From 4bdd0c6413f3800188b345ba18abc86e3bd39ccf Mon Sep 17 00:00:00 2001 From: ssy99 Date: Wed, 21 May 2025 09:46:14 +0900 Subject: [PATCH] =?UTF-8?q?style:=20=EC=98=A4=ED=83=80=20=EC=88=98?= =?UTF-8?q?=EC=A0=95=20=EB=B0=8F=20=EC=A3=BC=EC=84=9D=20=EC=A0=9C=EA=B1=B0?= MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit --- SalesPacking_MES_API_Project/mainForm.vb | 40 ++++++++++++------------ 1 file changed, 20 insertions(+), 20 deletions(-) diff --git a/SalesPacking_MES_API_Project/mainForm.vb b/SalesPacking_MES_API_Project/mainForm.vb index 470aabd..15c083d 100644 --- a/SalesPacking_MES_API_Project/mainForm.vb +++ b/SalesPacking_MES_API_Project/mainForm.vb @@ -526,7 +526,7 @@ Public Class mainForm Private nowFullCount As Integer = 0 ' 현재 수량 N Private nowFullCountBack As Integer = 0 ' 현재 수량 백업 - Private tatgetDeviceCount As Integer = 0 '세트 디바이스 수량 + Private targetDeviceCount As Integer = 0 '세트 디바이스 수량 Private nowDeviceCount As Integer = 0 '현재 세고 있는 디바이스 Private tgtFullCount As Integer = 0 ' 전체 수량 P @@ -879,7 +879,7 @@ Public Class mainForm 'If chbUseBarcode.Checked = True Then ' saveStart() 'End If - If tatgetDeviceCount = nowDeviceCount Then + If targetDeviceCount = nowDeviceCount Then saveStart() End If End If @@ -4442,27 +4442,27 @@ Public Class mainForm gbProdList.Text = "■ 출고 조건 : " & SetPKCode - 'If RequestCount = 0 Then - ' Dim worknum As Integer = WorkNowState() + If RequestCount = 0 Then + Dim worknum As Integer = WorkNowState() - ' If worknum >= prodArray.GetLength(1) Then - ' errorGen("이미 작업 완료된 코드입니다. 확인 바랍니다." & vbCrLf) - ' Return True - ' End If + If worknum >= prodArray.GetLength(1) Then + errorGen("이미 작업 완료된 코드입니다. 확인 바랍니다." & vbCrLf) + Return True + End If - ' txbRequest.ForeColor = Color.Black - ' txbRequest.BackColor = SystemColors.Window - ' RequestUpdate(prodArray.GetLength(1)) + txbRequest.ForeColor = Color.Black + txbRequest.BackColor = SystemColors.Window + RequestUpdate(prodArray.GetLength(1)) - ' txbWork.ForeColor = Color.Black - ' txbWork.BackColor = SystemColors.Window - ' WorkUpdate(worknum) + txbWork.ForeColor = Color.Black + txbWork.BackColor = SystemColors.Window + WorkUpdate(worknum) - ' txbLeftOver.ForeColor = Color.Black - ' txbLeftOver.BackColor = SystemColors.Window - ' LeftOverUpdate(prodArray.GetLength(1) - worknum) + txbLeftOver.ForeColor = Color.Black + txbLeftOver.BackColor = SystemColors.Window + LeftOverUpdate(prodArray.GetLength(1) - worknum) - 'End If + End If Return False End Function @@ -4489,7 +4489,7 @@ Public Class mainForm dataCount += 1 Next 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 nowFullCount += prodArray(itemCode.count, i) Next @@ -4506,7 +4506,7 @@ Public Class mainForm If StartSwitch = True Then If rdbMode2.Checked = True And rdbNew.Checked = True Then nowFullCount = 0 - tatgetDeviceCount = 0 + targetDeviceCount = 0 nowDeviceCount = 0 If PKCodeCheck() Then Return True