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

style: 오타 수정 및 주석 제거

Browse Source
This commit is contained in:
ssy99 2025-05-21 09:46:14 +09:00
parent e9b8aa313f
commit 4bdd0c6413
1 changed files with 20 additions and 20 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

40
SalesPacking_MES_API_Project/mainForm.vb
View File

@ -526,7 +526,7 @@ Public Class mainForm
Private nowFullCount As Integer = 0 ' 현재 수량 N Private nowFullCount As Integer = 0 ' 현재 수량 N
Private nowFullCountBack As Integer = 0 ' 현재 수량 백업 Private nowFullCountBack As Integer = 0 ' 현재 수량 백업
Private tatgetDeviceCount As Integer = 0 '세트 디바이스 수량 Private targetDeviceCount As Integer = 0 '세트 디바이스 수량
Private nowDeviceCount As Integer = 0 '현재 세고 있는 디바이스 Private nowDeviceCount As Integer = 0 '현재 세고 있는 디바이스
Private tgtFullCount As Integer = 0 ' 전체 수량 P Private tgtFullCount As Integer = 0 ' 전체 수량 P
@ -879,7 +879,7 @@ Public Class mainForm
'If chbUseBarcode.Checked = True Then 'If chbUseBarcode.Checked = True Then
' saveStart() ' saveStart()
'End If 'End If
If tatgetDeviceCount = nowDeviceCount Then If targetDeviceCount = nowDeviceCount Then
saveStart() saveStart()
End If End If
End If End If
@ -4442,27 +4442,27 @@ Public Class mainForm
gbProdList.Text = "■ 출고 조건 : " & SetPKCode gbProdList.Text = "■ 출고 조건 : " & SetPKCode
'If RequestCount = 0 Then If RequestCount = 0 Then
' Dim worknum As Integer = WorkNowState() Dim worknum As Integer = WorkNowState()
' If worknum >= prodArray.GetLength(1) Then If worknum >= prodArray.GetLength(1) Then
' errorGen("이미 작업 완료된 코드입니다. 확인 바랍니다." & vbCrLf) errorGen("이미 작업 완료된 코드입니다. 확인 바랍니다." & vbCrLf)
' Return True Return True
' End If End If
' txbRequest.ForeColor = Color.Black txbRequest.ForeColor = Color.Black
' txbRequest.BackColor = SystemColors.Window txbRequest.BackColor = SystemColors.Window
' RequestUpdate(prodArray.GetLength(1)) RequestUpdate(prodArray.GetLength(1))
' txbWork.ForeColor = Color.Black txbWork.ForeColor = Color.Black
' txbWork.BackColor = SystemColors.Window txbWork.BackColor = SystemColors.Window
' WorkUpdate(worknum) WorkUpdate(worknum)
' txbLeftOver.ForeColor = Color.Black txbLeftOver.ForeColor = Color.Black
' txbLeftOver.BackColor = SystemColors.Window txbLeftOver.BackColor = SystemColors.Window
' LeftOverUpdate(prodArray.GetLength(1) - worknum) LeftOverUpdate(prodArray.GetLength(1) - worknum)
'End If End If
Return False Return False
End Function End Function
@ -4489,7 +4489,7 @@ Public Class mainForm
dataCount += 1 dataCount += 1
Next Next
If prodArray(itemCode.face, i) <> -1 And prodArray(itemCode.eye, i) <> -1 Then If prodArray(itemCode.face, i) <> -1 And prodArray(itemCode.eye, i) <> -1 Then
tatgetDeviceCount += prodArray(itemCode.count, i) targetDeviceCount += prodArray(itemCode.count, i)
End If End If
nowFullCount += prodArray(itemCode.count, i) nowFullCount += prodArray(itemCode.count, i)
Next Next
@ -4506,7 +4506,7 @@ Public Class mainForm
If StartSwitch = True Then If StartSwitch = True Then
If rdbMode2.Checked = True And rdbNew.Checked = True Then If rdbMode2.Checked = True And rdbNew.Checked = True Then
nowFullCount = 0 nowFullCount = 0
tatgetDeviceCount = 0 targetDeviceCount = 0
nowDeviceCount = 0 nowDeviceCount = 0
If PKCodeCheck() Then If PKCodeCheck() Then
Return True Return True