jionmt-sw/prod-SerialAssigner
4
0
Fork 0
Code Issues 1 Pull Requests Actions Packages Projects Releases 11 Wiki Activity

Optimum 모델 이후부터 신규 시리얼번호 부여 체계 적용

Browse Source
This commit is contained in:
KwakJooYoung 2025-11-20 14:05:12 +09:00
parent cf34c297e4
commit 2ed5840a3e
3 changed files with 707 additions and 976 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1264
MAXIMUM_Product_Program/MainForm.Designer.vb generated
View File

File diff suppressed because it is too large Load Diff

373
MAXIMUM_Product_Program/MainForm.vb
View File

@ -30,6 +30,7 @@ Public Class MainForm
Private TypeCode As String
Private ColorCode As String
Private ClassCode As String
Private VersionCode As String
Private ProdCode As String
Private TDUseCompare As Boolean = False
@ -200,44 +201,60 @@ Public Class MainForm
Private Sub RegCboSetting()
ModelCboSetting()
ClassCboSetting()
VersionCboSetting()
cboClear()
End Sub
Private Sub ClassCboSetting()
cboRegClass.DisplayMember = "Key"
cboRegClass.ValueMember = "Value"
cboRegClass.Items.Clear()
cboRegClass.Items.Add("국내-세트")
cboRegClass.Items.Add("국내-A/S")
cboRegClass.Items.Add("국내-샵용")
cboRegClass.Items.Add("해외-세트")
cboRegClass.Items.Add("해외-A/S")
cboRegClass.Items.Add("체험단")
cboRegClass.Items.Add(New DictionaryEntry("국내-세트", 1))
cboRegClass.Items.Add(New DictionaryEntry("국내-A/S", 2))
cboRegClass.Items.Add(New DictionaryEntry("국내-샵용", 3))
cboRegClass.Items.Add(New DictionaryEntry("해외-세트", 5))
cboRegClass.Items.Add(New DictionaryEntry("해외-A/S", 6))
cboRegClass.Items.Add(New DictionaryEntry("체험단", 7))
End Sub
Private Sub VersionCboSetting()
cboRegVersion.DisplayMember = "Key"
cboRegVersion.ValueMember = "Value"
cboRegVersion.Items.Clear()
cboRegVersion.Items.Add(New DictionaryEntry("V1", 0))
cboRegVersion.Items.Add(New DictionaryEntry("V2", 1))
cboRegVersion.Items.Add(New DictionaryEntry("V3", 2))
cboRegVersion.Items.Add(New DictionaryEntry("V4", 3))
cboRegVersion.Items.Add(New DictionaryEntry("V5", 4))
cboRegVersion.Items.Add(New DictionaryEntry("V6", 5))
cboRegVersion.Items.Add(New DictionaryEntry("V7", 6))
cboRegVersion.Items.Add(New DictionaryEntry("V8", 7))
cboRegVersion.Items.Add(New DictionaryEntry("V9", 8))
End Sub
Private Sub ModelCboSetting()
cboRegModel.Items.Clear()
cboRegModel.Items.Add("MAXIMUM")
cboRegModel.Items.Add("ALTO")
cboRegModel.Items.Add("EFFECT")
cboRegModel.Items.Add("MAXIMUM ALPHA")
DBCmd = "SELECT ModelName FROM " & ModelInfoDB & " WHERE DeviceTypeCode = 'A' GROUP BY ModelName"
If DBQueryReader(DBCmd) Then
For i = 0 To sqlDataQuery.Length - 1
cboRegModel.Items.Add(sqlDataQuery(i))
Next
End If
End Sub
Private Sub cboRegModel_SelectedIndexChanged(sender As Object, e As EventArgs) Handles cboRegModel.SelectedIndexChanged
If cboRegModel.SelectedIndex > -1 Then
cboRegType.Items.Clear()
Select Case cboRegModel.SelectedItem
Case "MAXIMUM"
cboRegType.Items.Add("V1")
cboRegType.Items.Add("V2")
Case "ALTO"
cboRegType.Items.Add("SET")
Case "EFFECT"
cboRegType.Items.Add("V2")
cboRegType.Items.Add("V3")
Case "MAXIMUM ALPHA"
cboRegType.Items.Add("SET")
Case Else
MsgBox("잘못된 경로입니다.", vbCritical)
End Select
DBCmd = "SELECT CartTypeName FROM " & ModelInfoDB & " WHERE ModelName = '" & cboRegModel.SelectedItem & "' GROUP BY CartTypeCode ORDER BY CartTypeCode ASC"
If DBQueryReader(DBCmd) Then
For i = 0 To sqlDataQuery.Length - 1
cboRegType.Items.Add(sqlDataQuery(i))
Next
End If
cboRegType.SelectedIndex = -1
cboRegType.Text = "SELECT!"
@ -249,68 +266,12 @@ Public Class MainForm
If cboRegType.SelectedIndex > -1 Then
cboRegColor.Items.Clear()
Select Case cboRegModel.SelectedItem
Case "MAXIMUM"
Select Case cboRegType.SelectedItem
Case "V1"
cboRegColor.Items.Add("White")
cboRegColor.Items.Add("Pink")
cboRegColor.Items.Add("Mint")
cboRegColor.Items.Add("Purple")
cboRegColor.Items.Add("Yellow")
cboRegColor.Items.Add("Black_Gold")
Case "V2"
cboRegColor.Items.Add("White")
cboRegColor.Items.Add("Shine_Mint")
cboRegColor.Items.Add("Black_Black")
cboRegColor.Items.Add("Peach")
cboRegColor.Items.Add("Purple")
cboRegColor.Items.Add("Black_Gold")
cboRegColor.Items.Add("Pink")
cboRegColor.Items.Add("Yellow")
Case Else
MsgBox("잘못된 경로입니다.", vbCritical)
End Select
Case "ALTO"
Select Case cboRegType.SelectedItem
Case "SET"
cboRegColor.Items.Add("White")
cboRegColor.Items.Add("Purple")
cboRegColor.Items.Add("Black_Gold")
Case Else
MsgBox("잘못된 경로입니다.", vbCritical)
End Select
Case "EFFECT"
Select Case cboRegType.SelectedItem
Case "V2"
cboRegColor.Items.Add("White_Brown")
cboRegColor.Items.Add("White_Pink")
cboRegColor.Items.Add("White_Sky")
Case "V3"
cboRegColor.Items.Add("LineFrends_Brown")
cboRegColor.Items.Add("LineFrends_Sally")
Case Else
MsgBox("잘못된 경로입니다.", vbCritical)
End Select
Case "MAXIMUM ALPHA"
Select Case cboRegType.SelectedItem
Case "SET"
cboRegColor.Items.Add("Ruby_Red")
cboRegColor.Items.Add("Topaz_Orange")
cboRegColor.Items.Add("Emerald_Green")
cboRegColor.Items.Add("Sapphire_Blue")
cboRegColor.Items.Add("Topaz_Brown")
cboRegColor.Items.Add("Sitrin_Gold")
Case Else
MsgBox("잘못된 경로입니다.", vbCritical)
End Select
Case Else
MsgBox("잘못된 경로입니다.", vbCritical)
End Select
DBCmd = "SELECT ColorName FROM " & ModelInfoDB & " WHERE ModelName = '" & cboRegModel.SelectedItem & "' AND CartTypeName = '" & cboRegType.SelectedItem & "' ORDER BY ColorCode ASC"
If DBQueryReader(DBCmd) Then
For i = 0 To sqlDataQuery.Length - 1
cboRegColor.Items.Add(sqlDataQuery(i))
Next
End If
cboRegColor.SelectedIndex = -1
cboRegColor.Text = "SELECT!"
@ -319,145 +280,22 @@ Public Class MainForm
End Sub
Private Function ColorSet(cboSelect As Integer) As Boolean
Select Case dgvDataSet.Rows(cboSelect).Cells(1).Value
Case "MAXIMUM"
ModelCode = "3"
TDUseCompare = True
Dim modelName As String = dgvDataSet.Rows(cboSelect).Cells(1).Value
Dim cartTypeName As String = dgvDataSet.Rows(cboSelect).Cells(2).Value
Dim colorName As String = dgvDataSet.Rows(cboSelect).Cells(5).Value
Select Case dgvDataSet.Rows(cboSelect).Cells(2).Value
Case "V1"
TypeCode = "0"
DBCmd = "SELECT ModelCode, CartTypeCode, ColorCode, TDUseYn FROM " & ModelInfoDB & " WHERE ModelName = '" & modelName & "' AND CartTypeName = '" & cartTypeName & "' AND ColorName = '" & colorName & "'"
Select Case dgvDataSet.Rows(cboSelect).Cells(5).Value
Case "White"
ColorCode = "0"
Case "Pink"
ColorCode = "3"
Case "Yellow"
ColorCode = "5"
Case "Mint"
ColorCode = "7"
Case "Purple"
ColorCode = "8"
Case "Black_Gold"
ColorCode = "9"
Case Else
Return True
End Select
Case "V2"
TypeCode = "1"
Select Case dgvDataSet.Rows(cboSelect).Cells(5).Value
Case "White"
ColorCode = "0"
Case "Shine_Mint"
ColorCode = "2"
Case "Black_Black"
ColorCode = "4"
Case "Peach"
ColorCode = "6"
Case "Purple"
ColorCode = "8"
Case "Black_Gold"
ColorCode = "9"
Case "Pink"
ColorCode = "3"
Case "Yellow"
ColorCode = "5"
Case Else
Return True
End Select
Case Else
Return True
End Select
Case "ALTO"
ModelCode = "5"
If DBQueryReader(DBCmd) Then
ModelCode = sqlDataQuery(0)
TypeCode = sqlDataQuery(1)
ColorCode = sqlDataQuery(2)
If sqlDataQuery(3) <> "Y" Then
TDUseCompare = False
Select Case dgvDataSet.Rows(cboSelect).Cells(2).Value
Case "SET"
TypeCode = "0"
Select Case dgvDataSet.Rows(cboSelect).Cells(5).Value
Case "White"
ColorCode = "0"
Case "Purple"
ColorCode = "8"
Case "Black_Gold"
ColorCode = "9"
Case Else
Return True
End Select
End Select
Case "EFFECT"
ModelCode = "6"
Else
TDUseCompare = True
Select Case dgvDataSet.Rows(cboSelect).Cells(2).Value
Case "V2"
TypeCode = "0" 'SET 였을 때 0 으로 고정
Select Case dgvDataSet.Rows(cboSelect).Cells(5).Value
Case "White_Pink"
ColorCode = "1"
Case "White_Sky"
ColorCode = "2"
Case "White_Brown"
ColorCode = "3"
Case Else
Return True
End Select
Case "V3"
TypeCode = "3" 'V3 혼란스럽지 않게 3으로 고정
Select Case dgvDataSet.Rows(cboSelect).Cells(5).Value
Case "LineFrends_Brown"
ColorCode = "4"
Case "LineFrends_Sally"
ColorCode = "5"
Case Else
Return True
End Select
End Select
Case "MAXIMUM ALPHA"
ModelCode = "7"
TDUseCompare = True
Select Case dgvDataSet.Rows(cboSelect).Cells(2).Value
Case "SET"
TypeCode = "0"
Select Case dgvDataSet.Rows(cboSelect).Cells(5).Value
Case "Ruby_Red"
ColorCode = "1"
Case "Topaz_Orange"
ColorCode = "2"
Case "Emerald_Green"
ColorCode = "3"
Case "Sapphire_Blue"
ColorCode = "4"
Case "Topaz_Brown"
ColorCode = "5"
Case "Sitrin_Gold"
ColorCode = "6"
Case Else
Return True
End Select
End Select
Case Else
TDUseCompare = False
Return True
End Select
End If
End If
Return False
End Function
@ -806,9 +644,14 @@ FailFunc:
ProdCode = txbNowNum.Text
End If
If ModelCode.Length = 2 Then '16자리 시리얼번호
Dim Serial As String = ProdCode.PadLeft(6, "0"c)
SerialNum = ModelCode & ColorCode & Format(Now, "yyMM") & Serial & ClassCode & TypeCode & VersionCode
Else '12자리 시리얼번호
Dim FrontSerial As String = Mid(ProdCode, 1, 3)
Dim BackSerial As String = Mid(ProdCode, 4, 3)
SerialNum = ModelCode & TypeCode & Format(Now, "yyMM") & BackSerial & FrontSerial
End If
If DBSerialCheck() Then
Return False
@ -1176,6 +1019,19 @@ FinishFunc:
ThreadSwitch = False
End Sub
Private Function CheckRfUse() As Boolean
DBCmd = "SELECT RfUseYn FROM " & ModelInfoDB & " WHERE ModelCode = '" & ModelCode & "' AND CartTypeCode = '" & TypeCode & "' AND ColorCode = '" & ColorCode & "'"
If DBQueryReader(DBCmd) Then
If sqlDataQuery(0) = "Y" Then
Return True
End If
End If
Return False
End Function
Private Sub RunTimer_Tick(sender As Object, e As EventArgs) Handles RunTimer.Tick
Dim ConfigStr As String
@ -1184,7 +1040,7 @@ FinishFunc:
If ckbOpAlto.Checked = False Then
If txbTDNum.Text.Length = TDMaxLength Then
If Not (ModelCode = 6 And (Val(TDData(SearchList.TestStep)) = 21 Or Val(TDData(SearchList.TestStep)) = 25)) Then
If Not (CheckRfUse() = False And (Val(TDData(SearchList.TestStep)) = 21 Or Val(TDData(SearchList.TestStep)) = 25)) Then
If Val(TDData(SearchList.TestStep)) <> 23 And Val(TDData(SearchList.TestStep)) <> 27 And Val(TDData(SearchList.TestStep)) <> 30 And Val(TDData(SearchList.TestStep)) <> 32 And Val(TDData(SearchList.TestStep)) <> 41 Then
If Val(TDData(SearchList.TestStep)) > 29 Then
RunStateFunc("중복 처리", Color.Red)
@ -1512,6 +1368,24 @@ FinishFunc:
Const Commander As String = "wrsconf1"
Dim retVal As String
If ModelCode.Length = 2 Then '16자리 시리얼번호
Dim Model As String = Mid(SerialNum, 1, 2)
Dim ModelOpt As String = Mid(SerialNum, 3, 1)
Dim BoardSN As String = Mid(SerialNum, 4, 10)
Dim QcOpt As String = Mid(SerialNum, 14, 3)
tmpCmdMessage = "[" & Commander & " " & Factory & "," & BoardSN & "," & Model & "," & ModelOpt & "," & QcOpt & "," & Country & "," & Agency & "]" + vbCrLf
If SendData(tmpCmdMessage) Then
Return False
End If
retVal = PollingReceiveData(2000)
If retVal <> Factory & "," & BoardSN & "," & Model & "," & ModelOpt & "," & QcOpt & "," & Country & "," & Agency Then
Return False
End If
Else '12자리 시리얼번호
Dim ProdCode As String = Mid(SerialNum, 1, 2)
Dim ProdDate As String = Mid(SerialNum, 3, 4)
Dim FrontSetSerial As String = Mid(SerialNum, 7, 3)
@ -1529,6 +1403,7 @@ FinishFunc:
If retVal <> Factory.ToLower & "," & UseSerial & "," & ProdCode & "," & Country & "," & Agency Then
Return False
End If
End If
Return True
End Function
@ -1681,7 +1556,7 @@ FinishFunc:
Private Function ParsingData(CmdInclude As Boolean) As String
Dim cmdStr As String
Dim cmdVal(0 To 6) As String
Dim cmdVal(0 To 8) As String
Dim i As Integer
Try
@ -1696,7 +1571,7 @@ FinishFunc:
cmdStr = Mid(cmdMessage, 1, (InStr(rxMessage, " ") - 2))
cmdMessage = Mid(rxMessage, InStr(rxMessage, " ") + 1, Len(cmdMessage))
For i = 1 To 5
For i = 1 To 7
If InStr(cmdMessage, ",") <> 0 Then
cmdVal(i) = Mid(cmdMessage, 1, InStr(cmdMessage, ",") - 1)
cmdMessage = Mid(cmdMessage, InStr(cmdMessage, ",") + 1, Len(cmdMessage))
@ -1720,7 +1595,11 @@ FinishFunc:
cmdStr = (cmdVal(1) & "," & cmdVal(2))
Return cmdStr
Case "wrsconf1"
If ModelCode.Length = 2 Then '16자리 시리얼번호
cmdStr = cmdVal(1) & "," & cmdVal(2) & "," & cmdVal(3) & "," & cmdVal(4) & "," & cmdVal(5) & "," & cmdVal(6) & "," & cmdVal(7)
Else '12자리 시리얼번호
cmdStr = cmdVal(1) & "," & cmdVal(2) & "," & cmdVal(3) & "," & cmdVal(4) & "," & cmdVal(5)
End If
Return cmdStr
Case "settdsn"
cmdStr = cmdVal(1)
@ -2057,14 +1936,13 @@ FailFunc:
Select Case NowMode
Case ModeList.Prod_Input
If ModelCode = 3 Then
DBCmd = "UPDATE " & ApplyPD1CntDB & " SET PD1_InfoTotalCnt = '" & CountSelect(CountList.Total) & "', PD1_InfoMaxOk = '" & CountSelect(CountList.Success) & "', PD1_InfoMaxNg = '" & CountSelect(CountList.Fail) & "' WHERE PD1_Date = '" & NowDate & "'"
ElseIf ModelCode = 5 Then
DBCmd = "UPDATE " & ApplyPD1CntDB & " SET PD1_InfoTotalCnt = '" & CountSelect(CountList.Total) & "', PD1_InfoAltoOk = '" & CountSelect(CountList.Success) & "', PD1_InfoAltoNg = '" & CountSelect(CountList.Fail) & "' WHERE PD1_Date = '" & NowDate & "'"
ElseIf ModelCode = 6 Then
DBCmd = "UPDATE " & ApplyPD1CntDB & " SET PD1_InfoTotalCnt = '" & CountSelect(CountList.Total) & "', PD1_InfoEffectOk = '" & CountSelect(CountList.Success) & "', PD1_InfoEffectNg = '" & CountSelect(CountList.Fail) & "' WHERE PD1_Date = '" & NowDate & "'"
ElseIf ModelCode = 7 Then
DBCmd = "UPDATE " & ApplyPD1CntDB & " SET PD1_InfoTotalCnt = '" & CountSelect(CountList.Total) & "', PD1_InfoMaxAlphaOk = '" & CountSelect(CountList.Success) & "', PD1_InfoMaxAlphaNg = '" & CountSelect(CountList.Fail) & "' WHERE PD1_Date = '" & NowDate & "'"
DBCmd = "SELECT InfoRegOkCntColumnName, InfoRegNgCntColumnName FROM " & ModelInfoDB & " WHERE ModelCode = '" & ModelCode & "' LIMIT 1"
If DBQueryReader(DBCmd) Then
Dim InfoRegOkCntColumnName As String = sqlDataQuery(0)
Dim InfoRegNgCntColumnName As String = sqlDataQuery(1)
DBCmd = "UPDATE " & ApplyPD1CntDB & " SET PD1_InfoTotalCnt = '" & CountSelect(CountList.Total) & "', " & InfoRegOkCntColumnName & " = '" & CountSelect(CountList.Success) & "', " & InfoRegNgCntColumnName & " = '" & CountSelect(CountList.Fail) & "' WHERE PD1_Date = '" & NowDate & "'"
Else
MsgBox("수량 업데이트, 잘못된 경로입니다.", vbCritical)
Return True
@ -2088,21 +1966,18 @@ FailFunc:
Select Case NowMode
Case ModeList.Prod_Input
DBCmd = "SELECT InfoRegOkCntColumnName, InfoRegNgCntColumnName FROM " & ModelInfoDB & " WHERE ModelCode = '" & ModelCode & "' LIMIT 1"
If ModelCode = "3" Then
DBCmd = "SELECT PD1_InfoTotalCnt,PD1_InfoMaxOk,PD1_InfoMaxNg FROM " & ApplyPD1CntDB & " WHERE PD1_Date = '" & NowDate & "'"
ElseIf ModelCode = "5" Then
DBCmd = "SELECT PD1_InfoTotalCnt,PD1_InfoAltoOk,PD1_InfoAltoNg FROM " & ApplyPD1CntDB & " WHERE PD1_Date = '" & NowDate & "'"
ElseIf ModelCode = "6" Then
DBCmd = "SELECT PD1_InfoTotalCnt,PD1_InfoEffectOk,PD1_InfoEffectNg FROM " & ApplyPD1CntDB & " WHERE PD1_Date = '" & NowDate & "'"
ElseIf ModelCode = "7" Then
DBCmd = "SELECT PD1_InfoTotalCnt,PD1_InfoMaxAlphaOk,PD1_InfoMaxAlphaNg FROM " & ApplyPD1CntDB & " WHERE PD1_Date = '" & NowDate & "'"
If DBQueryReader(DBCmd) Then
Dim InfoRegOkCntColumnName As String = sqlDataQuery(0)
Dim InfoRegNgCntColumnName As String = sqlDataQuery(1)
DBCmd = "SELECT PD1_InfoTotalCnt," & InfoRegOkCntColumnName & "," & InfoRegNgCntColumnName & " FROM " & ApplyPD1CntDB & " WHERE PD1_Date = '" & NowDate & "'"
Else
MsgBox("수량 카운터 잘못된 경로입니다.", vbCritical)
Return True
End If
Case ModeList.TDRecycle
DBCmd = "SELECT PD1_RecycleCnt,'0','0' FROM " & ApplyPD1CntDB & " WHERE PD1_Date = '" & NowDate & "'"
Case Else
@ -2250,6 +2125,7 @@ FailFunc:
End If
ClassCode = dgvDataSet.Rows(SelectData).Cells(6).Value
VersionCode = dgvDataSet.Rows(SelectData).Cells(7).Value
With txbPDModel
.Text = dgvDataSet.Rows(SelectData).Cells(1).Value
@ -2334,6 +2210,8 @@ FailFunc:
cboRegColor.Text = "SELECT!"
cboRegClass.SelectedIndex = -1
cboRegClass.Text = "SELECT!"
cboRegVersion.SelectedIndex = -1
cboRegVersion.Text = "SELECT!"
End Sub
Private Sub btnRegOK_Click(sender As Object, e As EventArgs) Handles btnRegOK.Click
@ -2366,7 +2244,11 @@ FailFunc:
MsgBox("대리점코드를 입력하지 않으셨습니다. 확인하여 주십시오.", vbExclamation)
txbRegAgency.Focus()
Else
dgvDataSet.Rows.Add(txbRegName.Text, cboRegModel.SelectedItem, cboRegType.SelectedItem, txbRegCountry.Text, txbRegAgency.Text, cboRegColor.SelectedItem, ClassNumber(cboRegClass.SelectedIndex))
If cboRegVersion.SelectedIndex = -1 Then
MsgBox("HW버전코드를 입력하지 않으셨습니다. 확인하여 주십시오.", vbExclamation)
cboRegVersion.Focus()
Else
dgvDataSet.Rows.Add(txbRegName.Text, cboRegModel.SelectedItem, cboRegType.SelectedItem, txbRegCountry.Text, txbRegAgency.Text, cboRegColor.SelectedItem, cboRegClass.SelectedItem.Value, cboRegVersion.SelectedItem.Value.ToString)
txbRegName.Text = String.Empty
txbRegCountry.Text = String.Empty
@ -2379,6 +2261,7 @@ FailFunc:
End If
End If
End If
End If
End Sub
Private Sub txbRegCountry_KeyPress(sender As Object, e As KeyPressEventArgs) Handles txbRegCountry.KeyPress, txbRegAgency.KeyPress
@ -2428,7 +2311,7 @@ FailFunc:
Select Case SaveType
Case SaveList.Info
For i = 0 To dgvDataSet.Rows.Count - 2
Dim RowData As String = dgvDataSet.Rows(i).Cells(0).Value.ToString & "|" & dgvDataSet.Rows(i).Cells(1).Value.ToString & "|" & dgvDataSet.Rows(i).Cells(2).Value.ToString & "|" & dgvDataSet.Rows(i).Cells(3).Value.ToString & "|" & dgvDataSet.Rows(i).Cells(4).Value.ToString & "|" & dgvDataSet.Rows(i).Cells(5).Value.ToString & "|" & dgvDataSet.Rows(i).Cells(6).Value.ToString & "|@"
Dim RowData As String = dgvDataSet.Rows(i).Cells(0).Value.ToString & "|" & dgvDataSet.Rows(i).Cells(1).Value.ToString & "|" & dgvDataSet.Rows(i).Cells(2).Value.ToString & "|" & dgvDataSet.Rows(i).Cells(3).Value.ToString & "|" & dgvDataSet.Rows(i).Cells(4).Value.ToString & "|" & dgvDataSet.Rows(i).Cells(5).Value.ToString & "|" & dgvDataSet.Rows(i).Cells(6).Value.ToString & "|" & dgvDataSet.Rows(i).Cells(7).Value.ToString & "|@"
SaveData = SaveData & RowData
Next
@ -2872,7 +2755,11 @@ FailLoad:
End If
If CtMax = "0" Then
If ModelCode.Length = 2 Then '16자리 시리얼번호
MinResult = "0"
Else '12자리 시리얼번호
MinResult = ClassCode & ColorCode & "0000"
End If
Else
MinResult = CtMax
End If

4
MAXIMUM_Product_Program/SqlAddressModule.vb
View File

@ -20,12 +20,16 @@
Public Const LoginDB As String = "jomtAccountDB.jomtTesterUserIDTbl"
Public Const InfoRegStateDB As String = "jomtTesterDB.jomtInfoRegStateTbl"
Private Const mainModelInfoDB As String = "jomtTesterDB.jomtModelInfoTbl"
Private Const testModelInfoDB As String = "jomtTesterServerDB.jomtModelInfoTbl"
Public ApplyCartDB As String = mainCartDB
Public ApplyHFTestDB As String = mainHFTestDB
Public ApplyRFTestDB As String = mainRFTestDB
Public ApplyPD1CntDB As String = mainPD1CntDB
Public ApplyNonTDDB As String = mainNonTDDB
Public ApplyReturnDB As String = MainReturnDB
Public ApplyModelInfoDB As String = mainModelInfoDB
Public Sub ServerChanger(ChangeState As Boolean)
If ChangeState = True Then