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

1. 보급형 checkbox 사용하지 않고 보급형 88코드 스캔 가능

Browse Source 
2. 보급형 일반 sn 스캔할 때 세모ldm 테이블 추가
3. 보급형 checkbox ui 숨김
4. 버전 3.0.8
This commit is contained in:
hyelinjung 2026-03-06 09:24:29 +09:00
parent f632ccf10c
commit 2841837ca8
3 changed files with 27 additions and 54 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
OrderPackingProcessor/mainForm.Designer.vb generated
View File

@ -2066,7 +2066,6 @@ Partial Class mainForm
' '
'pnOption 'pnOption
' '
Me.pnOption.Controls.Add(Me.oyGroupBox)
Me.pnOption.Controls.Add(Me.gbMass) Me.pnOption.Controls.Add(Me.gbMass)
Me.pnOption.Controls.Add(Me.gbMesDb) Me.pnOption.Controls.Add(Me.gbMesDb)
Me.pnOption.Controls.Add(Me.gbAutoCount) Me.pnOption.Controls.Add(Me.gbAutoCount)

75
OrderPackingProcessor/mainForm.vb
View File

@ -8,7 +8,7 @@ Imports Newtonsoft.Json.Linq
Public Class mainForm Public Class mainForm
Public projectName As String = "OrderPackingProcessor Ver." Public projectName As String = "OrderPackingProcessor Ver."
Public projectVer As String = "3.0.7" Public projectVer As String = "3.0.8"
Private apiItemOutURL As String = "item-outflows/page" Private apiItemOutURL As String = "item-outflows/page"
@ -211,6 +211,7 @@ Public Class mainForm
Private typeNum As String Private typeNum As String
Private modelNum As String Private modelNum As String
Private TDUseCompare As Boolean Private TDUseCompare As Boolean
Private LdmUseCompare As Boolean
Private mesDate As DateTime Private mesDate As DateTime
@ -249,8 +250,7 @@ Public Class mainForm
''보급형 88코드 ''보급형 88코드
Private lowProdList As New Dictionary(Of String, String) ''key: itemcode value: 88_Code Private lowProdList As New Dictionary(Of String, String) ''key: itemcode value: 88_Code
''보급형 기기 포함
Private lowProdContain As Boolean = False
'' 세트코드 '' 세트코드
Private setCodeUse As Boolean = False ''세트 코드 번호를 사용했냐 안했냐 구분 Private setCodeUse As Boolean = False ''세트 코드 번호를 사용했냐 안했냐 구분
Private Const setCodeSort As String = "PK" Private Const setCodeSort As String = "PK"
@ -489,7 +489,7 @@ Public Class mainForm
Return "NONORDER" Return "NONORDER"
End If End If
Else Else
If oybtn.Checked Then If lowProdList.ContainsValue(playCode) Then
Return "CHECKERROR" Return "CHECKERROR"
End If End If
If playCode.Length = oldProdCodeLength Or playCode.Length = newProdCodeLength Then If playCode.Length = oldProdCodeLength Or playCode.Length = newProdCodeLength Then
@ -778,7 +778,7 @@ Public Class mainForm
Return False Return False
Case "CHECKERROR" Case "CHECKERROR"
errorOut("등록오류") errorOut("등록오류")
errorGen("보급형 상품이 아닙니다. 보급형 사용 여부를 해제해 주십시오.") errorGen("보급형 상품입니다.")
Return False Return False
Case Else Case Else
errorOut("동작불량") errorOut("동작불량")
@ -1553,14 +1553,6 @@ Public Class mainForm
errorOut("등록오류") errorOut("등록오류")
errorGen("코드를 파싱하는 도중 오류가 발생하였습니다.") errorGen("코드를 파싱하는 도중 오류가 발생하였습니다.")
Return False Return False
Case "CHECKERROR"
errorOut("등록오류")
errorGen("보급형 상품이 아닙니다. 보급형 사용을 해제해 주십시오.")
Return False
Case "UNCHECKERROR"
errorOut("등록오류")
errorGen("보급형 상품입니다. 보급형 사용 여부를 확인해 주십시오.")
Return False
Case Else Case Else
errorOut("등록오류") errorOut("등록오류")
errorGen("잘못된 접근입니다. 관리자에게 문의하여 주십시오.") errorGen("잘못된 접근입니다. 관리자에게 문의하여 주십시오.")
@ -1871,7 +1863,7 @@ Public Class mainForm
End Function End Function
Private Function serialDupCheck() As Boolean Private Function serialDupCheck() As Boolean
If oybtn.Checked And playCode.Length = lowProdCodeLength Then If playCode.Length = lowProdCodeLength Then
Return False Return False
End If End If
For i = 0 To prodArray.GetLength(1) - 1 For i = 0 To prodArray.GetLength(1) - 1
@ -1887,7 +1879,7 @@ Public Class mainForm
Private Function serialPackCompare() As Boolean Private Function serialPackCompare() As Boolean
Dim commandStr As String Dim commandStr As String
If oybtn.Checked And playCode.Length = lowProdCodeLength Then If playCode.Length = lowProdCodeLength Then
Return True Return True
End If End If
@ -1903,9 +1895,11 @@ Public Class mainForm
Return False Return False
End If End If
DBCmd = "SELECT TDUseYn FROM " & ApplyModelInfoDB & " WHERE ModelCode = '" & modelNum & "' LIMIT 1" DBCmd = "SELECT TDUseYn, LdmUseYn FROM " & ApplyModelInfoDB & " WHERE ModelCode = '" & modelNum & "' LIMIT 1"
If DBQueryReader(DBCmd) Then If DBQueryReader(DBCmd) Then
If sqlDataQuery(0) = "Y" Then If sqlDataQuery(1) = "Y" Then
LdmUseCompare = True
ElseIf sqlDataQuery(0) = "Y" Then
TDUseCompare = True TDUseCompare = True
Else Else
TDUseCompare = False TDUseCompare = False
@ -3689,7 +3683,7 @@ Public Class mainForm
If prodArray(itemCode.serialNum, i) = Nothing Then If prodArray(itemCode.serialNum, i) = Nothing Then
prodArray(itemCode.serialNum, i) = playCode prodArray(itemCode.serialNum, i) = playCode
Else Else
If Not (oybtn.Checked And playCode.Length = lowProdCodeLength) Then If Not playCode.Length = lowProdCodeLength Then
prodArray(itemCode.serialNum, i) = prodArray(itemCode.serialNum, i) & "/" & playCode prodArray(itemCode.serialNum, i) = prodArray(itemCode.serialNum, i) & "/" & playCode
End If End If
End If End If
@ -3756,17 +3750,8 @@ Public Class mainForm
End If End If
Else Else
If orderSwitch = True Then If orderSwitch = True Then
If lowProdList.ContainsValue(playCode) Then
If oybtn.Checked Then
Return "PRODSCAN"
Else
Return "UNCHECKERROR"
End If
ElseIf oybtn.Checked And lowProdContain = False Then
Return "CHECKERROR"
End If
If playCode.Length = oldProdCodeLength Or playCode.Length = newProdCodeLength Then If playCode.Length = oldProdCodeLength Or playCode.Length = newProdCodeLength Or lowProdList.ContainsValue(playCode) Then
Return "PRODSCAN" Return "PRODSCAN"
ElseIf playCode.Length > comCodeLength Then ElseIf playCode.Length > comCodeLength Then
Return "COMSCAN" Return "COMSCAN"
@ -3788,7 +3773,7 @@ Public Class mainForm
End Function End Function
Private Function searchData() As Boolean Private Function searchData() As Boolean
If oybtn.Checked And playCode.Length = lowProdCodeLength Then If playCode.Length = lowProdCodeLength Then
For i = 0 To setInfoList.prodCode For i = 0 To setInfoList.prodCode
setInfo(i) = "NULL" setInfo(i) = "NULL"
Next Next
@ -3860,6 +3845,8 @@ Public Class mainForm
Else Else
If TDUseCompare = True Then If TDUseCompare = True 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) & "'"
ElseIf LdmUseCompare = True Then
DBCmd = "SELECT Ct_Model,Ct_Abroad,Ct_Agency FROM " & ApplyLdmDB & " 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) & "'"
End If End If
@ -3959,6 +3946,8 @@ Public Class mainForm
If TDUseCompare = True Then If TDUseCompare = True 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) & "'"
ElseIf LdmUseCompare = True Then
DBCmd = "SELECT Ct_Max_ShotCnt FROM " & ApplyLdmDB & " 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) & "'"
End If End If
@ -3973,7 +3962,7 @@ Public Class mainForm
Return False Return False
End If End If
If TDUseCompare = False Then If TDUseCompare = False And LdmUseCompare = False Then
If shotcnt > 0 Then If shotcnt > 0 Then
shotcnt = 0 shotcnt = 0
Else Else
@ -4001,7 +3990,7 @@ Public Class mainForm
Private Function prodCodeSearch() As Boolean Private Function prodCodeSearch() As Boolean
Try Try
If Not (oybtn.Checked And playCode.Length = lowProdCodeLength) Then If playCode.Length <> lowProdCodeLength Then
If modelNum = Nothing Or typeNum = Nothing Then If modelNum = Nothing Or typeNum = Nothing Then
errorOut("등록오류") errorOut("등록오류")
errorGen("해당 시리얼 번호의 모델과 타입을 알 수 없습니다.") errorGen("해당 시리얼 번호의 모델과 타입을 알 수 없습니다.")
@ -4017,7 +4006,7 @@ Public Class mainForm
ElseIf playCode.Length = newProdCodeLength Then '16자리 제품시리얼번호 ElseIf playCode.Length = newProdCodeLength Then '16자리 제품시리얼번호
codeColor = Mid(playCode, 3, 1) codeColor = Mid(playCode, 3, 1)
End If End If
If oybtn.Checked And playCode.Length = lowProdCodeLength Then If playCode.Length = lowProdCodeLength Then
DBCmd = "SELECT ItemCode,ProdCode,FaceShot,EyeShot FROM " & applyPlistDB & " WHERE 88_Code = '" & playCode & "'" DBCmd = "SELECT ItemCode,ProdCode,FaceShot,EyeShot FROM " & applyPlistDB & " WHERE 88_Code = '" & playCode & "'"
Else Else
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 & "'"
@ -4102,7 +4091,6 @@ Public Class mainForm
Try Try
Dim dataCount As Int16 = 0 Dim dataCount As Int16 = 0
Dim codeExist As Boolean = False Dim codeExist As Boolean = False
lowProdContain = False
ReDim prodArray(itemCode.id, 0) ReDim prodArray(itemCode.id, 0)
ReDim apiData(apiDataList.address) ReDim apiData(apiDataList.address)
@ -4173,9 +4161,6 @@ Public Class mainForm
errorGen("등록 데이터 중 제품이 등록되어 있지 않는 항목이 존재합니다.") errorGen("등록 데이터 중 제품이 등록되어 있지 않는 항목이 존재합니다.")
Return False Return False
End If End If
If lowProdList.ContainsKey(prodArray(itemCode.code, dataCount)) And lowProdContain = False Then
lowProdContain = True
End If
prodArray(itemCode.chkCount, dataCount) = 0 prodArray(itemCode.chkCount, dataCount) = 0
prodArray(itemCode.serialNum, dataCount) = Nothing prodArray(itemCode.serialNum, dataCount) = Nothing
@ -5020,7 +5005,6 @@ Public Class mainForm
Dim weightNum As Int16 Dim weightNum As Int16
Dim apiDBNum As Int16 Dim apiDBNum As Int16
Dim MassNum As Int16 Dim MassNum As Int16
Dim oyNum As Int16
If rdbMode1.Checked = True Then If rdbMode1.Checked = True Then
modeNum = 0 modeNum = 0
@ -5060,13 +5044,7 @@ Public Class mainForm
MassNum = 1 MassNum = 1
End If End If
If oybtn.Checked = True Then saveStr = cboComPort.SelectedItem & "^" & modeNum & "^" & autoNum & "^" & weightNum & "^" & apiDBNum & "^" & MassNum
oyNum = 1
Else
oyNum = 0
End If
saveStr = cboComPort.SelectedItem & "^" & modeNum & "^" & autoNum & "^" & weightNum & "^" & apiDBNum & "^" & MassNum & "^" & oyNum
Case saveList.ckbData Case saveList.ckbData
saveStr = optionCkb(optionCkbList.weight).Checked & "^" & optionCkb(optionCkbList.barcode).Checked & "^" & optionCkb(optionCkbList.printer).Checked & "^" & optionCkb(optionCkbList.api).Checked saveStr = optionCkb(optionCkbList.weight).Checked & "^" & optionCkb(optionCkbList.barcode).Checked & "^" & optionCkb(optionCkbList.printer).Checked & "^" & optionCkb(optionCkbList.api).Checked
@ -5263,13 +5241,6 @@ Public Class mainForm
rdbNew.Checked = False rdbNew.Checked = False
rdbBef.Checked = True rdbBef.Checked = True
End If End If
ElseIf i = 6 Then
If parsingCk = 0 Then
oybtn.Checked = False
Else
oybtn.Checked = True
End If
Else Else
errorOut("설정오류") errorOut("설정오류")
errorGen("Config 파일을 불러오는 과정에서 오류가 발생하였습니다.") errorGen("Config 파일을 불러오는 과정에서 오류가 발생하였습니다.")
@ -5348,7 +5319,7 @@ Public Class mainForm
End Sub End Sub
Private Sub ckbWeight_Click(sender As Object, e As EventArgs) Handles ckbWeight.Click, chbUseBarcode.Click, ckbPrinter.Click, ckbAPIuse.Click, rdbMode1.Click, rdbMode2.Click, rdbAuto1.Click, rdbAuto2.Click, rdbWeightAuto.Click, rdbWeightCAS.Click, rdbWeightQW.Click, rdbMesDbAPI.Click, rdbMesDbPg.Click, rdbNew.Click, rdbBef.Click, oybtn.Click Private Sub ckbWeight_Click(sender As Object, e As EventArgs) Handles ckbWeight.Click, chbUseBarcode.Click, ckbPrinter.Click, ckbAPIuse.Click, rdbMode1.Click, rdbMode2.Click, rdbAuto1.Click, rdbAuto2.Click, rdbWeightAuto.Click, rdbWeightCAS.Click, rdbWeightQW.Click, rdbMesDbAPI.Click, rdbMesDbPg.Click, rdbNew.Click, rdbBef.Click
ckbChange = True ckbChange = True
' 중량 관련 라디오 버튼이 변경된 경우 시리얼 포트 재연결 ' 중량 관련 라디오 버튼이 변경된 경우 시리얼 포트 재연결

3
OrderPackingProcessor/mySQLAddress.vb
View File

@ -7,6 +7,8 @@ Module mySQLAddress
Private Const mainSalesDB As String = "jomtTesterDB.jomtSalesPackingTbl" Private Const mainSalesDB As String = "jomtTesterDB.jomtSalesPackingTbl"
Private Const testSalesDB As String = "jomtTesterServerDB.jomtSalesPackingTbl" Private Const testSalesDB As String = "jomtTesterServerDB.jomtSalesPackingTbl"
Private Const mainLdmDB As String = "jomtTesterDB.jomtLDMTbl"
Private Const mainCountDB As String = "jomtTesterDB.jomtPackingCount" Private Const mainCountDB As String = "jomtTesterDB.jomtPackingCount"
Private Const testCountDB As String = "jomtTesterServerDB.jomtPackingCount" Private Const testCountDB As String = "jomtTesterServerDB.jomtPackingCount"
@ -51,6 +53,7 @@ Module mySQLAddress
Public applyPKCodeDB As String = mainPKCodeDB Public applyPKCodeDB As String = mainPKCodeDB
Public applyNonTDDB As String = MainNonTDDB Public applyNonTDDB As String = MainNonTDDB
Public ApplyModelInfoDB As String = mainModelInfoDB Public ApplyModelInfoDB As String = mainModelInfoDB
Public ApplyLdmDB As String = mainLdmDB
Public applyPackDB As String = testPackDB Public applyPackDB As String = testPackDB
Public applyHistoryDB As String = testHistoryDB Public applyHistoryDB As String = testHistoryDB