jionmt-sw/shpmt-OrderPackingProcessor
6
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases 10 Wiki Activity

올리브영 88바코드 스캔시 포장로직 생성

Browse Source
This commit is contained in:
healinjung 2026-01-18 23:46:14 +09:00
parent 3299696539
commit f0349348a2
1 changed files with 163 additions and 144 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

195
OrderPackingProcessor/mainForm.vb
View File

@ -471,7 +471,7 @@ Public Class mainForm
Return "NONORDER" Return "NONORDER"
End If End If
Else Else
If playCode.Length = oldProdCodeLength Or playCode.Length = newProdCodeLength Then If playCode.Length = oldProdCodeLength Or playCode.Length = newProdCodeLength Or playCode.Length = 13 Then
Return "PRODSCAN" Return "PRODSCAN"
ElseIf playCode.Length > comCodeLength Then ElseIf playCode.Length > comCodeLength Then
Return "COMSCAN" Return "COMSCAN"
@ -705,7 +705,7 @@ Public Class mainForm
Return False Return False
End If End If
If prodCodeSearch() Then If prodCodeSearch() Then ''mes에서 불러온 정보와 비교하기 위해 스캔한 정보를 db에서 가지고 오기
Return False Return False
End If End If
@ -768,7 +768,7 @@ Public Class mainForm
Try Try
For i = 0 To prodArray.GetLength(1) - 1 For i = 0 To prodArray.GetLength(1) - 1
For n = 0 To scanCode.Length - 1 For n = 0 To scanCode.Length - 1 '' 스캔한 기기와 조건이 같은 품목 상품 들
If prodArray(itemCode.code, i) = scanCode(n) Then '' instr 에서 식으로 변경 If prodArray(itemCode.code, i) = scanCode(n) Then '' instr 에서 식으로 변경
@ -784,7 +784,7 @@ Public Class mainForm
Return False Return False
End If End If
If WorkSwitch = True Then If WorkSwitch = True Then '' 대량 포장에서 이미 포장이 끝나서 현재 새로운 포장에 들어간 경우
nowFullCount = nowFullCountBack + 1 nowFullCount = nowFullCountBack + 1
WorkSwitch = False WorkSwitch = False
@ -861,7 +861,7 @@ Public Class mainForm
playCode = txbProdSN.Text '' 시리얼 코드 전역 변수 playCode = txbProdSN.Text '' 시리얼 코드 전역 변수
If MasPlayFunc() Then If MasPlayFunc() Then
If playCode.Length < stateLength Or playCode.Length = newProdCodeLength Then If playCode.Length < stateLength Or playCode.Length = newProdCodeLength Or playCode.Length = 13 Then
If nowFullCount = tgtFullCount Then If nowFullCount = tgtFullCount Then
If chbUseBarcode.Checked = False Then ''true인데 false로 수정함 If chbUseBarcode.Checked = False Then ''true인데 false로 수정함
saveStart() saveStart()
@ -915,7 +915,7 @@ Public Class mainForm
End If End If
If packingRun() Then If packingRun() Then
If playCode.Length < stateLength Or playCode.Length = newProdCodeLength Or playCode.Length = 13 Then If playCode.Length < stateLength Or playCode.Length = newProdCodeLength Then
'포장할 모든 품목을 다 검사했을 때 '포장할 모든 품목을 다 검사했을 때
If nowFullCount = tgtFullCount Then If nowFullCount = tgtFullCount Then
If chbUseBarcode.Checked = False Then ''true인데 false로 수정함 If chbUseBarcode.Checked = False Then ''true인데 false로 수정함
@ -967,7 +967,7 @@ Public Class mainForm
Next Next
End If End If
If RequestCount = WorkCount Then If RequestCount = WorkCount Then '' 모든 패키징 수량 예시 약 100개가 완료됐음
StartSwitch = True StartSwitch = True
EndUpdate(DateTime.Now.TimeOfDay) EndUpdate(DateTime.Now.TimeOfDay)
Else Else
@ -1032,7 +1032,7 @@ Public Class mainForm
Try Try
Const colCount As Int16 = 4 Const colCount As Int16 = 4
DBCmd = "select it.code,it.name,io.expected_out_count,io.id from order_details od join items it on it.id = od.item_id join order_sheets os on os.id = od.order_sheet_id join item_outflows io on io.order_detail_id = od.id where os.code = '" & playCode & "' and od.deleted_at is null and io.state = 'registered';" DBCmd = "select COALESCE(it.code, '') as code,it.name,io.expected_out_count,io.id from order_details od join items it on it.id = od.item_id join order_sheets os on os.id = od.order_sheet_id join item_outflows io on io.order_detail_id = od.id where os.code = '" & playCode & "' and od.deleted_at is null and io.state = 'registered';"
If pgDBQueryReader(DBCmd) Then If pgDBQueryReader(DBCmd) Then
Dim RowCount As Int16 = (pgDataQuery.Length / colCount) - 1 Dim RowCount As Int16 = (pgDataQuery.Length / colCount) - 1
Dim dataSetCount As Int32 = 0 Dim dataSetCount As Int32 = 0
@ -1042,7 +1042,7 @@ Public Class mainForm
For col = 0 To colCount - 1 For col = 0 To colCount - 1
Select Case col Select Case col
Case directData.code Case directData.code
prodArray(itemCode.code, row) = pgDataQuery(dataSetCount) '' 패키징pk prodArray(itemCode.code, Row) = pgDataQuery(dataSetCount) '' 패키징pk
Case directData.name Case directData.name
prodArray(itemCode.name, row) = pgDataQuery(dataSetCount) '' 패키징 상품 품목이 문자열 덩어리로 넘어온다 prodArray(itemCode.name, row) = pgDataQuery(dataSetCount) '' 패키징 상품 품목이 문자열 덩어리로 넘어온다
Case directData.count Case directData.count
@ -1848,6 +1848,9 @@ Public Class mainForm
End Function End Function
Private Function serialDupCheck() As Boolean Private Function serialDupCheck() As Boolean
If oybtn.Checked Then
Return False
End If
For i = 0 To prodArray.GetLength(1) - 1 For i = 0 To prodArray.GetLength(1) - 1
If InStr(prodArray(itemCode.serialNum, i), playCode) > 0 Then If InStr(prodArray(itemCode.serialNum, i), playCode) > 0 Then
errorOut("데이터오류") errorOut("데이터오류")
@ -1861,7 +1864,9 @@ Public Class mainForm
Private Function serialPackCompare() As Boolean Private Function serialPackCompare() As Boolean
Dim commandStr As String Dim commandStr As String
If oybtn.Checked Then
Return True
End If
If playCode.Length = oldProdCodeLength Then '12자리 제품시리얼번호 If playCode.Length = oldProdCodeLength Then '12자리 제품시리얼번호
modelNum = Mid(playCode, 1, 1) modelNum = Mid(playCode, 1, 1)
typeNum = Mid(playCode, 2, 1) typeNum = Mid(playCode, 2, 1)
@ -2171,15 +2176,17 @@ Public Class mainForm
If rdbMode1.Checked = True Or (rdbMode2.Checked = True And rdbAuto1.Checked = True) Then If rdbMode1.Checked = True Or (rdbMode2.Checked = True And rdbAuto1.Checked = True) Then
packingCode = packingCode_Choice() ''디비에 저장될 pk 번호 정하기(정품번호 / 오더번호) packingCode = packingCode_Choice() ''포장 디비에 저장될 pk 번호 정하기(정품번호 / 오더번호)
If packingCode = "False" Then If packingCode = "False" Then
Return False Return False
End If End If
If Not oybtn.Checked Then
''패킹코드 중복 확인 ''패킹코드 중복 확인
If dbPackNumCompare(packingCode) Then If dbPackNumCompare(packingCode) Then
Return False Return False
End If End If
End If
If rdbMode1.Checked = True Then If rdbMode1.Checked = True Then
@ -2253,7 +2260,7 @@ Public Class mainForm
failDataReset(packingCode) failDataReset(packingCode)
Return False Return False
End If End If
Else Else ''ckbNEWDB.Checked = True 에서 한번에 저장 할 수 있도록 한게 else 에 작성함
If packingDBSaveOld(packingCode) Then ''패킹 테이블에서 포장된 상품 수량 cnt 저장 If packingDBSaveOld(packingCode) Then ''패킹 테이블에서 포장된 상품 수량 cnt 저장
failDataReset(packingCode) failDataReset(packingCode)
Return False Return False
@ -2311,11 +2318,19 @@ Public Class mainForm
End If End If
Next Next
If Not oybtn.Checked Then
DBCmd = "UPDATE " & applySalesDB & DBCmd = "UPDATE " & applySalesDB &
" SET Set_Cnt = '" & item_product_list(prodDB.proset).cnt + item_product_list(prodDB.luxset).cnt & "'" & " SET Set_Cnt = '" & item_product_list(prodDB.proset).cnt + item_product_list(prodDB.luxset).cnt & "'" &
query_product_cnt & query_product_cnt &
query_component_cnt & query_component_cnt &
" WHERE PackingCode = '" & packingCode & "'" " WHERE PackingCode = '" & packingCode & "'"
Else
DBCmd = "UPDATE " & applySalesDB &
" SET Set_Cnt = '" & item_product_list(prodDB.proset).cnt + item_product_list(prodDB.luxset).cnt & "'" &
query_product_cnt &
query_component_cnt &
" WHERE PackingCode = '" & packingCode & "' order by number desc limit 1"
End If
If DBCommand(DBCmd) = False Then If DBCommand(DBCmd) = False Then
errorOut("등록오류") errorOut("등록오류")
@ -2379,7 +2394,7 @@ Public Class mainForm
For i = prodDB.proface To item_product_max_index For i = prodDB.proface To item_product_max_index
query_product_serial = query_product_serial & ", " & item_product_list(i).sales_packing_serial_col_nm & " = '" & item_product_list(i).serial & "'" query_product_serial = query_product_serial & ", " & item_product_list(i).sales_packing_serial_col_nm & " = '" & item_product_list(i).serial & "'"
Next Next
If Not oybtn.Checked Then
DBCmd = "UPDATE " & applySalesDB & DBCmd = "UPDATE " & applySalesDB &
" SET `Data` = NOW()" & " SET `Data` = NOW()" &
", Main_Product_SN = '" & setSerial & "'" & ", Main_Product_SN = '" & setSerial & "'" &
@ -2387,6 +2402,16 @@ Public Class mainForm
", Main_EYE_SN = '" & eyeSerial & "'" & ", Main_EYE_SN = '" & eyeSerial & "'" &
query_product_serial & query_product_serial &
" WHERE PackingCode = '" & packingCode & "'" " WHERE PackingCode = '" & packingCode & "'"
Else
DBCmd = "UPDATE " & applySalesDB &
" SET `Data` = NOW()" &
", Main_Product_SN = '" & setSerial & "'" &
", Main_FACE_SN = '" & faceSerial & "'" &
", Main_EYE_SN = '" & eyeSerial & "'" &
query_product_serial &
" WHERE PackingCode = '" & packingCode & "' order by number desc limit 1"
End If
If DBCommand(DBCmd) Then If DBCommand(DBCmd) Then
Return False Return False
@ -3540,7 +3565,7 @@ Public Class mainForm
If choiceData = Nothing Then If choiceData = Nothing Then
Return orderCode Return orderCode
Else Else
If choiceData.Length = oldProdCodeLength Or choiceData.Length = newProdCodeLength Then ''최종 선택된 번호가 정품번호일때 If choiceData.Length = oldProdCodeLength Or choiceData.Length = newProdCodeLength Or choiceData.Length = 13 Then ''최종 선택된 번호가 정품번호일때
Return choiceData Return choiceData
Else Else
Return orderCode ''지금 포장에 기기가 존재하지 않을경우 ->출하번호 Return orderCode ''지금 포장에 기기가 존재하지 않을경우 ->출하번호
@ -3736,7 +3761,7 @@ Public Class mainForm
Else Else
'정품번호 '정품번호
If orderSwitch = True Then If orderSwitch = True Then
If playCode.Length = oldProdCodeLength Or playCode.Length = newProdCodeLength Or playCode.Length = 13 Then If playCode.Length = oldProdCodeLength Or playCode.Length = newProdCodeLength Then
Return "PRODSCAN" Return "PRODSCAN"
ElseIf playCode.Length > comCodeLength Then ''컴포넌트 ElseIf playCode.Length > comCodeLength Then ''컴포넌트
Return "COMSCAN" Return "COMSCAN"
@ -3764,13 +3789,13 @@ Public Class mainForm
setInfo(i) = Nothing setInfo(i) = Nothing
Next Next
''스캔한 정품번호가 가지고 있는(예_ 얼굴 카트리지 등 ) 모든 sn 저장 - setinfo ''스캔한 정품번호가 가지고 있는(예_ 얼굴 카트리지 등 )-> 분리형일 경우 카트리지 sn도 재고 관리를 위해 필요하니 확인하는 함수
If serialSearch() Then If serialSearch() Then
For i = 0 To serialCount - 1 For i = 0 To serialCount - 1
If setInfo(i) <> "NULL" Then If setInfo(i) <> "NULL" Then
If shotSearch(i) Then '' 현재 기기의 샷수 확인후 배열 저장 setinfo If shotSearch(i) Then '' sn가 있는 모든 기기의 현재 샷수를 화면에 나타내기 위해 db 서칭 후 배열 저장
If typeSearch(i) Then ''기기의 모델 정보 배열 저장 setinfo If typeSearch(i) Then ''기기의 모델,국가,수입등을 화면에 나타내기 위해 배열에 저장하고 대량 포장이니깐 모든 기기는 같아야하는 점을 이용해 이 후 들어오는 데이터가 서로 같은지 판단
Return False Return False
End If End If
Else Else
@ -3824,7 +3849,7 @@ Public Class mainForm
DBCmd = "SELECT Ct_Model,Ct_Abroad,Ct_Agency FROM " & applyCartDB & " WHERE Product_SN = '" & setInfo(type) & "'" DBCmd = "SELECT Ct_Model,Ct_Abroad,Ct_Agency FROM " & applyCartDB & " WHERE Product_SN = '" & setInfo(type) & "'"
End If End If
Else Else
If TDUseCompare = True Then If TDUseCompare = True Or oybtn.Checked Then
DBCmd = "SELECT Ct_Model,Ct_Abroad,Ct_Agency FROM " & applyCartDB & " WHERE Product_SN = '" & setInfo(type) & "'" DBCmd = "SELECT Ct_Model,Ct_Abroad,Ct_Agency FROM " & applyCartDB & " WHERE Product_SN = '" & setInfo(type) & "'"
Else Else
DBCmd = "SELECT Ct_Model,Ct_Abroad,Ct_Agency FROM " & applyNonTDDB & " WHERE Product_SN = '" & setInfo(type) & "'" DBCmd = "SELECT Ct_Model,Ct_Abroad,Ct_Agency FROM " & applyNonTDDB & " WHERE Product_SN = '" & setInfo(type) & "'"
@ -3863,8 +3888,11 @@ Public Class mainForm
Private Function serialSearch() As Boolean Private Function serialSearch() As Boolean
Dim deviceTypeCode As String = "" Dim deviceTypeCode As String = ""
If Not oybtn.Checked Then
DBCmd = "SELECT DeviceTypeCode FROM " & ApplyModelInfoDB & " WHERE ModelCode = '" & modelNum & "' LIMIT 1" DBCmd = "SELECT DeviceTypeCode FROM " & ApplyModelInfoDB & " WHERE ModelCode = '" & modelNum & "' LIMIT 1"
Else
DBCmd = "SELECT DeviceTypeCode FROM " & ApplyModelInfoDB & " WHERE ModelCode = 'A6' LIMIT 1"
End If
If DBQueryReader(DBCmd) Then If DBQueryReader(DBCmd) Then
deviceTypeCode = sqlDataQuery(0) deviceTypeCode = sqlDataQuery(0)
@ -3925,7 +3953,7 @@ Public Class mainForm
End If End If
Else Else
If TDUseCompare = True Then If TDUseCompare = True Or oybtn.Checked Then
DBCmd = "SELECT Ct_Max_ShotCnt FROM " & applyCartDB & " WHERE Product_SN = '" & setInfo(type) & "'" DBCmd = "SELECT Ct_Max_ShotCnt FROM " & applyCartDB & " WHERE Product_SN = '" & setInfo(type) & "'"
Else Else
DBCmd = "SELECT COUNT(Number) FROM " & applyNonTDDB & " WHERE Product_SN = '" & setInfo(type) & "'" DBCmd = "SELECT COUNT(Number) FROM " & applyNonTDDB & " WHERE Product_SN = '" & setInfo(type) & "'"
@ -3969,7 +3997,7 @@ Public Class mainForm
Private Function prodCodeSearch() As Boolean Private Function prodCodeSearch() As Boolean
Try Try
If Not oybtn.Checked Then
If modelNum = Nothing Or typeNum = Nothing Then If modelNum = Nothing Or typeNum = Nothing Then
errorOut("등록오류") errorOut("등록오류")
errorGen("해당 시리얼 번호의 모델과 타입을 알 수 없습니다.") errorGen("해당 시리얼 번호의 모델과 타입을 알 수 없습니다.")
@ -3985,6 +4013,9 @@ Public Class mainForm
End If End If
'포장할 기기가 주문한 품목이 맞는지 확인 '포장할 기기가 주문한 품목이 맞는지 확인
DBCmd = "SELECT ItemCode,ProdCode,FaceShot,EyeShot FROM " & applyPlistDB & " WHERE ModelNum = '" & modelNum & "' AND TypeNum = '" & typeNum & "' AND ColorNum = '" & codeColor & "'" DBCmd = "SELECT ItemCode,ProdCode,FaceShot,EyeShot FROM " & applyPlistDB & " WHERE ModelNum = '" & modelNum & "' AND TypeNum = '" & typeNum & "' AND ColorNum = '" & codeColor & "'"
Else
DBCmd = "SELECT ItemCode,ProdCode,FaceShot,EyeShot FROM " & applyPlistDB & " WHERE ItemCode = 'P001-OY001A';"
End If
If DBQueryReader(DBCmd) Then If DBQueryReader(DBCmd) Then
Dim sqlCount As Integer = sqlDataQuery.Length Dim sqlCount As Integer = sqlDataQuery.Length
'배열 생성 (3,같은 품목의 개수) -> 배열 초기화 -> 4행, 품목개수열 '배열 생성 (3,같은 품목의 개수) -> 배열 초기화 -> 4행, 품목개수열
@ -4050,6 +4081,7 @@ Public Class mainForm
End Function End Function
Private Sub mesShotSearch() Private Sub mesShotSearch()
If Not oybtn.Checked Then
For i = 0 To prodArray.GetLength(1) - 1 For i = 0 To prodArray.GetLength(1) - 1
DBCmd = "SELECT FaceShot,EyeShot FROM " & applyPlistDB & " WHERE ItemCode = '" & prodArray(itemCode.code, i) & "'" DBCmd = "SELECT FaceShot,EyeShot FROM " & applyPlistDB & " WHERE ItemCode = '" & prodArray(itemCode.code, i) & "'"
If DBQueryReader(DBCmd) Then If DBQueryReader(DBCmd) Then
@ -4060,6 +4092,8 @@ Public Class mainForm
prodArray(itemCode.eye, i) = 0 prodArray(itemCode.eye, i) = 0
End If End If
Next Next
End If
End Sub End Sub
Private Function mesParsing(pData As String) As Boolean Private Function mesParsing(pData As String) As Boolean
@ -4188,7 +4222,7 @@ Public Class mainForm
Private Function PKCodeCheck() As Boolean Private Function PKCodeCheck() As Boolean
ReDim SetIdCode(prodArray.GetLength(1) - 1) ReDim SetIdCode(prodArray.GetLength(1) - 1)
If Not oybtn.Checked Then
For i = 0 To prodArray.GetLength(1) - 1 For i = 0 To prodArray.GetLength(1) - 1
If i = 0 Then If i = 0 Then
SetPKCode = prodArray(itemCode.code, i) '' 패키징 pk SetPKCode = prodArray(itemCode.code, i) '' 패키징 pk
@ -4203,7 +4237,7 @@ Public Class mainForm
Next Next
gbProdList.Text = "■ 출고 조건 : " & SetPKCode gbProdList.Text = "■ 출고 조건 : " & SetPKCode
End If
If RequestCount = 0 Then If RequestCount = 0 Then
Dim worknum As Integer = WorkNowState() Dim worknum As Integer = WorkNowState()
@ -4232,7 +4266,13 @@ Public Class mainForm
''100 개의 패키징 상품이 들어온다고 해도 들어간 구성품은 모두 같으니 하나의 패키징 상품에 대한 정보만 배열에 저장 ''100 개의 패키징 상품이 들어온다고 해도 들어간 구성품은 모두 같으니 하나의 패키징 상품에 대한 정보만 배열에 저장
Private Function PKCodeSearch() As Boolean Private Function PKCodeSearch() As Boolean
Dim DBCmd As String
If oybtn.Checked Then
DBCmd = "SELECT itemCode, ItemName, 1 as prodCount, ifnull(faceShot, -1), ifnull(EyeShot, -1), ProdCode FROM " & applyPlistDB & "where itemCode = 'P001-OY001A';"
Else
DBCmd = "SELECT un.ItemCode,un.ItemName,pk.ProdCount,ifnull(pd.FaceShot,-1),ifnull(pd.EyeShot ,-1),un.ProdCode FROM " & applyPKCodeDB & " AS pk INNER JOIN (SELECT ItemCode,ProdCode,ItemName FROM " & applyPlistDB & " UNION SELECT ItemCode,ProdCode,ItemName FROM " & applyClistDB & ") AS un ON pk.ProdCode = un.ItemCode LEFT JOIN " & applyPlistDB & " AS pd ON pk.ProdCode = pd.ItemCode WHERE pk.PKCode = '" & SetPKCode & "' ORDER BY ifnull(pd.FaceShot,-1) desc" DBCmd = "SELECT un.ItemCode,un.ItemName,pk.ProdCount,ifnull(pd.FaceShot,-1),ifnull(pd.EyeShot ,-1),un.ProdCode FROM " & applyPKCodeDB & " AS pk INNER JOIN (SELECT ItemCode,ProdCode,ItemName FROM " & applyPlistDB & " UNION SELECT ItemCode,ProdCode,ItemName FROM " & applyClistDB & ") AS un ON pk.ProdCode = un.ItemCode LEFT JOIN " & applyPlistDB & " AS pd ON pk.ProdCode = pd.ItemCode WHERE pk.PKCode = '" & SetPKCode & "' ORDER BY ifnull(pd.FaceShot,-1) desc"
End If
If DBQueryReader(DBCmd) Then If DBQueryReader(DBCmd) Then
Dim dataCount As Integer = 0 Dim dataCount As Integer = 0
@ -4273,30 +4313,8 @@ Public Class mainForm
errorOut("등록오류") errorOut("등록오류")
Return True Return True
End If End If
Else Else
If oybtn.Checked Then
If RequestCount = 0 Then
Dim worknum As Integer = WorkNowState()
If worknum >= prodArray.GetLength(1) Then
errorGen("이미 작업 완료된 코드입니다. 확인 바랍니다." & vbCrLf)
Return True
End If
txbRequest.ForeColor = Color.Black
txbRequest.BackColor = SystemColors.Window
RequestUpdate(prodArray.GetLength(1)) '' 요청 수량
txbWork.ForeColor = Color.Black
txbWork.BackColor = SystemColors.Window
WorkUpdate(worknum) ''작업수량
txbLeftOver.ForeColor = Color.Black
txbLeftOver.BackColor = SystemColors.Window ''남은 수량
LeftOverUpdate(prodArray.GetLength(1) - worknum)
End If
End If
If setCodeParsing() = False Then If setCodeParsing() = False Then
Return True Return True
End If End If
@ -5943,11 +5961,12 @@ Public Class mainForm
If InStr(txbPrintName.Text.ToLower, txblaBro.Text) > 0 Then If InStr(txbPrintName.Text.ToLower, txblaBro.Text) > 0 Then
If brotherPrintPlay() Then 'If brotherPrintPlay() Then
' Return True
'Else
' Return False
'End If
Return True Return True
Else
Return False
End If
ElseIf InStr(txbPrintName.Text.ToLower, txblaZeb.Text) > 0 Then ElseIf InStr(txbPrintName.Text.ToLower, txblaZeb.Text) > 0 Then
@ -5990,50 +6009,50 @@ Public Class mainForm
End Try End Try
End Function End Function
Private Function brotherPrintPlay() As Boolean 'Private Function brotherPrintPlay() As Boolean
If txblabelAd.Text.Replace(" ", "") <> "" Then ' If txblabelAd.Text.Replace(" ", "") <> "" Then
If txbBarValue.Text.Replace(" ", "") <> "" Then ' If txbBarValue.Text.Replace(" ", "") <> "" Then
If txbtxtValue.Text.Replace(" ", "") <> "" Then ' If txbtxtValue.Text.Replace(" ", "") <> "" Then
Dim doc As bpac.Document = New bpac.Document ' Dim doc As bpac.Document = New bpac.Document
doc.Open(txblabelAd.Text) ' doc.Open(txblabelAd.Text)
Dim usePrinter As Boolean = doc.SetPrinter(txbPrintName.Text, True) ' Dim usePrinter As Boolean = doc.SetPrinter(txbPrintName.Text, True)
If usePrinter = False Then ' If usePrinter = False Then
errorOut("인쇄오류") ' errorOut("인쇄오류")
errorGen("프린터가 인쇄할 준비를 하지 못했습니다.") ' errorGen("프린터가 인쇄할 준비를 하지 못했습니다.")
Return False ' Return False
End If ' End If
For i = 0 To printSerial.Length - 1 ' For i = 0 To printSerial.Length - 1
doc.GetObject(txbBarValue.Text).Text = printSerial(i) ' doc.GetObject(txbBarValue.Text).Text = printSerial(i)
doc.GetObject(txbtxtValue.Text).Text = printSerial(i) ' doc.GetObject(txbtxtValue.Text).Text = printSerial(i)
doc.StartPrint("", bpac.PrintOptionConstants.bpoDefault) ' doc.StartPrint("", bpac.PrintOptionConstants.bpoDefault)
doc.PrintOut(1, bpac.PrintOptionConstants.bpoDefault) ' doc.PrintOut(1, bpac.PrintOptionConstants.bpoDefault)
doc.EndPrint() ' doc.EndPrint()
Next ' Next
doc.Close() ' doc.Close()
Return True ' Return True
Else ' Else
errorOut("인쇄오류") ' errorOut("인쇄오류")
errorGen("라벨 텍스트를 담당하는 변수를 알 수 없습니다.") ' errorGen("라벨 텍스트를 담당하는 변수를 알 수 없습니다.")
Return False ' Return False
End If ' End If
Else ' Else
errorOut("인쇄오류") ' errorOut("인쇄오류")
errorGen("라벨 바코드를 담당하는 변수를 알 수 없습니다.") ' errorGen("라벨 바코드를 담당하는 변수를 알 수 없습니다.")
Return False ' Return False
End If ' End If
Else ' Else
errorOut("인쇄오류") ' errorOut("인쇄오류")
errorGen("인쇄할 라벨 파일을 알 수 없습니다. 라벨 파일을 확인하여 주십시오.") ' errorGen("인쇄할 라벨 파일을 알 수 없습니다. 라벨 파일을 확인하여 주십시오.")
Return False ' Return False
End If ' End If
End Function 'End Function
Private Function zebraPrintCode(serialCode As String) As String Private Function zebraPrintCode(serialCode As String) As String
Dim zplCode As String = String.Empty Dim zplCode As String = String.Empty