jh625專案條碼格式更改，在程式設計過程中，出現了 更改任何格式，條碼列印出來的格式都沒有改變，原始碼如下：
public function getbarcodestr2dg(byval printproductcode1 as string, byval printproducttype1 as string, byval printdatestr1 as string, byval printbatchstr1 as string, byval printdescribecode1 as string) as string
dim t as
string
dim d as string
dim n as string
d =
microsoft.visualbasic.left(printproductcode1, 20) '取條碼位數
t = microsoft.visualbasic.right(printproductcode1,
11)n = t + " " + logsyscode
dim str0 as string
str0 = ""
str0 +=
"c0" & vbcrlf
str0 += "l31" &
vbcrlf
str0 +=
"p;" & vbcrlf
str0 += "e*;f*;" &
vbcrlf
str0 += "e2,1;a2,;"
& vbcrlf
str0 +=
"l39;d0;" & vbcrlf
str0 += "b0,barcode ;o350,800;f3;c17;h8;w8;d0,50" &
vbcrlf
'str0 += "h1,part/batch
;o200,50;f3;h15;w15;c26,d0,30;" & vbcrlf
str0 += "h1,barcode
;o350,100;f3;h20;w20;c26;d0,80;" & vbcrlf
str0 += "h2,date
;o250,100;f3;h20;w20;c26;d0,30;" & vbcrlf
str0 +=
"h3,description;o150,100;f3;h20;w25;c3;d0,40;" &
vbcrlf
str0 += "h4,area
;o180,1000;f3;h15;w15;c26;d0,30;" & vbcrlf
'str0 += "h5,barcode
;o20,530;f0;h10;w8;c26;d0,30;" & vbcrlf
str0 += "r" & vbcrlf
str0 +=
"e1" & vbcrlf
str0 += "k" &
vbcrlf
str0 +=
"f0" & printproductcode1 & ""
& vbcrlf
'str0 +=
"f1" & printproducttype1 & "/" &
printbatchstr1 & "" & vbcrlf
str0 += "f1" & d & "" &
vbcrlf
str0 +=
"f2" & n & "" & vbcrlf
str0 += "f3" &
printdescribecode1 & "" & vbcrlf
'str0 += "f4" &
logsyscode & "" & vbcrlf
'str0 += "f5" & printproductcode1 &
"" & vbcrlf
str0 +=
"1" & vbcrlf
str0 += "r1" & vbcrlf
str0 += "r100"
& vbcrlf
str0 +=
"1"
& vbcrlf
return str0
end function
通過除錯發現，以前程式設計的格式，缺少了需多命令列，缺少的命令是以下標紅行，如下：
'型別為15
public function
getbarcodestr2d9(byval printproductcode1 as string, byval printproducttype1 as
string, byval printdatestr1 as string, byval printbatchstr1 as string, byval
printdescribecode1 as string) as string
dim t as
string
dim d as string
dim n as string
dim
a1 as integer
dim a2 as string
dim a3 as string
dim num as integer
a1 =
len(printdescribecode1) '列印描述位數
num = a1 - 11
a2 = microsoft.visualbasic.mid(printdescribecode1,
1, num) '取描述資訊
a3 =
microsoft.visualbasic.right(printdescribecode1, 11) '取3c資訊
d =
microsoft.visualbasic.left(printproductcode1, 20) '取條碼位數
t = microsoft.visualbasic.right(printproductcode1,
11)n = t + " " + logsyscode
dim str0 as string
str0 = ""
str0 +=
"c0" & vbcrlf
str0 += "l31" &
vbcrlf
str0 +=
"p;" & vbcrlf
str0 += "e*;f*;" &
vbcrlf
str0 += "e2,1;a2,;"
& vbcrlf
str0 +=
"l39;d0;" & vbcrlf
str0 += "b0,barcode ;o400,800;f3;c17;h8;w8;d0,50" &
vbcrlf
'str0 += "h1,part/batch
;o200,50;f3;h15;w15;c26,d0,30;" & vbcrlf
str0 += "h1,barcode
;o400,100;f3;h20;w20;c26;d0,80;" & vbcrlf
str0 += "h2,date
;o300,100;f3;h20;w20;c26;d0,40;" & vbcrlf
str0 +=
"h3,description;o100,100;f3;h20;w25;c3;d0,40;" &
vbcrlf
'str0 += "h4,area
;o380,1000;f3;h15;w15;c26;d0,30;" & vbcrlf
str0 +=
"h4,description;o200,100;f3;h20;w20;c26;d0,40;" &
vbcrlf
'str0 += "h5,barcode
;o20,530;f0;h10;w8;c26;d0,30;" & vbcrlf
str0 += "r" & vbcrlf
str0 += "r" & vbcrlf
str0 +=
"e*" & vbcrlf
str0 += "k" &
vbcrlf
str0 +=
"g1t1r0r0d0c0t0l0f-10f0l1000i0s30d8"
& vbcrlf
str0 +=
"e2,1" & vbcrlf
str0 += "f0" &
printproductcode1 & "" & vbcrlf
'str0 += "f1" &
printproducttype1 & "/" & printbatchstr1 & "" &
vbcrlf
str0 +=
"f1" & d & "" & vbcrlf
str0 += "f2" &
n & "" & vbcrlf
str0 +=
"f3" & a2 & "" &
vbcrlf
str0 +=
"f4" & a3.trim & "" &
vbcrlf
'str0 +=
"f4" & logsyscode & "" &
vbcrlf
'str0 +=
"f5" & a3 & "" &
vbcrlf
str0 +=
"1" & vbcrlf
str0 += "r1" & vbcrlf
str0 += "r100"
& vbcrlf
str0 +=
"1"
& vbcrlf
return str0
end function
PM談判心得4 借力打力，四兩撥千斤
此法適合於你是作為乙個專案的子專案的專案經理。背景 因為你合作夥伴的原因，變更多，進度延遲，無法在預定時間內完成，並且已嚴重影響了下乙個里程碑。此時你已無法憑己之力解決這個問題。這時，你需要做的是。1 所有的延遲的原因的證據。2 預計還需要多少時間才能完成當前任務。做好這些後就可以發給合作夥伴的專案...
PM談判心得4 借力打力，四兩撥千斤
此法適合於你是作為乙個專案的子專案的專案經理。背景 因為你合作夥伴的原因，變更多，進度延遲，無法在預定時間內完成，並且已嚴重影響了下乙個里程碑。此時你已無法憑己之力解決這個問題。這時，你需要做的是。1 所有的延遲的原因的證據。2 預計還需要多少時間才能完成當前任務。做好這些後就可以發給合作夥伴的專案...