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
'
Me.pnOption.Controls.Add(Me.oyGroupBox)
Me.pnOption.Controls.Add(Me.gbMass)
Me.pnOption.Controls.Add(Me.gbMesDb)
Me.pnOption.Controls.Add(Me.gbAutoCount)

75
OrderPackingProcessor/mainForm.vb
View File

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

3
OrderPackingProcessor/mySQLAddress.vb
View File

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