Refactor : Changed ShotSearch() condition from False to 0
This commit is contained in:
parent
5bd867e735
commit
3fe99e62ef
@ -559,7 +559,7 @@ Public Class MainForm
|
|||||||
|
|
||||||
Private Sub FormSetting()
|
Private Sub FormSetting()
|
||||||
Const ProgramName As String = "Product Program Ver_"
|
Const ProgramName As String = "Product Program Ver_"
|
||||||
Const VersionNum As String = "1.1.8"
|
Const VersionNum As String = "1.1.9"
|
||||||
|
|
||||||
Me.Text = ProgramName & VersionNum
|
Me.Text = ProgramName & VersionNum
|
||||||
Me.Size = New Size(1920, 1050)
|
Me.Size = New Size(1920, 1050)
|
||||||
@ -1259,7 +1259,7 @@ FinishFunc:
|
|||||||
|
|
||||||
If ProdRegData(txbPDCP.Text, txbPDCC.Text, txbPDAgency.Text) Then
|
If ProdRegData(txbPDCP.Text, txbPDCC.Text, txbPDAgency.Text) Then
|
||||||
If ShotReg(0) Then
|
If ShotReg(0) Then
|
||||||
If ShotSearch() = "False" Then
|
If ShotSearch() = "0" Then 'If ShotSearch() = "False" Then 'hjw test
|
||||||
If DBProdReg(txbPDCP.Text, txbPDCC.Text, txbPDAgency.Text, 0) Then
|
If DBProdReg(txbPDCP.Text, txbPDCC.Text, txbPDAgency.Text, 0) Then
|
||||||
If TraySuccess() Then
|
If TraySuccess() Then
|
||||||
|
|
||||||
|
@ -65,7 +65,7 @@ Module mySQLModule
|
|||||||
Return True
|
Return True
|
||||||
|
|
||||||
Catch ex As Exception
|
Catch ex As Exception
|
||||||
MsgBox("MySQL Command Error:" + vbCrLf + Err.Description)
|
MsgBox("MySQL Command Error:" + vbCrLf + Err.Description + "debug : " + cmdStr)
|
||||||
DBClose()
|
DBClose()
|
||||||
Return False
|
Return False
|
||||||
End Try
|
End Try
|
||||||
|
@ -1 +1,3 @@
|
|||||||
1. program ver 1.1.8
|
1. program ver 1.1.9
|
||||||
|
2. 샷 수 검색 조건 변경
|
||||||
|
- If ShotSearch() = "0" Then
|
Loading…
x
Reference in New Issue
Block a user