📄 pgbaozhuangwuprint.frm
字号:
' pgkaipiao.Text4.Text = ""
' pgkaipiao.Text4.Enabled = True
' pgkaipiao.Text5.Text = ""
' pgkaipiao.Text5.Enabled = True
' pgkaipiao.Combo3.Text = ""
' pgkaipiao.Combo3.Enabled = True
' pgkaipiao.Combo4.Text = ""
' pgkaipiao.Combo4.Enabled = True
' pgkaipiao.Combo5.Text = ""
' pgkaipiao.Combo5.Enabled = True
' pgkaipiao.Combo6.Text = ""
' pgkaipiao.Combo6.Enabled = True
' pgkaipiao.Combo7.Text = ""
' pgkaipiao.Combo7.Enabled = True
' ' pgkaipiao.Combo8.Text = ""
' pgkaipiao.Combo8.Enabled = True
' cn.Close
' en.Close
' Unload Me
End Sub
Private Sub Command3_Click()
If Option1.Value = False And Option2.Value = False Then
MsgBox "没选打印项目，非法操作？？"
Exit Sub
End If
''''''''控制不添数
Dim s1, s2, s3, s4 As Double
For i = 1 To MSF.Rows - 1
s1 = s1 + Val(Trim(MSF.TextArray(i * MSF.Cols + 2)))
s2 = s2 + Val(Trim(MSF.TextArray(i * MSF.Cols + 3)))
s3 = s3 + Val(Trim(MSF.TextArray(i * MSF.Cols + 4)))
s4 = s4 + Val(Trim(MSF.TextArray(i * MSF.Cols + 5)))
Next i
If Option2.Value = True And Text1.Text = "" Then
MsgBox "没添打印张数，非法操作？？"
Exit Sub
End If
If s1 = 0 And s2 = 0 And s3 = 0 And s4 = 0 Then
MsgBox "没添数据，非法操作？？"
Exit Sub
End If
''''''控制一行没有数据
For i = 1 To MSF.Rows - 2
If Trim(MSF.TextArray(i * MSF.Cols + 2)) = "" And Trim(MSF.TextArray(i * MSF.Cols + 3)) = "" And Trim(MSF.TextArray(i * MSF.Cols + 4)) = "" And Trim(MSF.TextArray(i * MSF.Cols + 5)) = "" Then
MsgBox "某行数据为空，非法操作？？"
Exit Sub
End If
Next i
''''''''''''''控制连打
If record(2) = "" And record(3) = "" Then
MsgBox "票据已经打印过"
Exit Sub
End If
'''''''''''''结束
If MsgBox("确认是否打印", vbYesNo, "提示") = vbYes Then
'''''''''''开票存盘
If t = False Then
For i = 1 To MSF.Rows - 1
'''''''开票表
If MSF.Rows > 2 Then
SQL = "insert into pgysd values ('" & Trim(record(3)) & "','" & Trim(record(4)) & "','" & Trim(record(1)) & "','" & Trim(MSF.TextArray(i * MSF.Cols)) & "','" & Trim(MSF.TextArray(i * MSF.Cols + 2)) & "','" & Trim(MSF.TextArray(i * MSF.Cols + 3)) & "','" & Trim(MSF.TextArray(i * MSF.Cols + 4)) & "','" & Trim(MSF.TextArray(i * MSF.Cols + 5)) & "','" & Trim(record(11)) & "','" & Trim(record(12)) & "','" & Trim(record(13)) & "','" & Trim(record(9)) & "','" & Trim(bzw(1)) & "','" & Trim(bzw(2)) & "','" & Trim(bzw(3)) & "','" & Trim(bzw(4)) & "','" & Trim(MSF.TextArray(i * MSF.Cols + 1)) & "','','否','开票掰票','否','" & Trim(record(14)) & "')"
Else
SQL = "insert into pgysd values ('" & Trim(record(3)) & "','" & Trim(record(4)) & "','" & Trim(record(1)) & "','" & Trim(MSF.TextArray(i * MSF.Cols)) & "','" & Trim(MSF.TextArray(i * MSF.Cols + 2)) & "','" & Trim(MSF.TextArray(i * MSF.Cols + 3)) & "','" & Trim(MSF.TextArray(i * MSF.Cols + 4)) & "','" & Trim(MSF.TextArray(i * MSF.Cols + 5)) & "','" & Trim(record(11)) & "','" & Trim(record(12)) & "','" & Trim(record(13)) & "','" & Trim(record(9)) & "','" & Trim(bzw(1)) & "','" & Trim(bzw(2)) & "','" & Trim(bzw(3)) & "','" & Trim(bzw(4)) & "','" & Trim(MSF.TextArray(i * MSF.Cols + 1)) & "','','否','开票','否','" & Trim(record(14)) & "')"
End If
Set result = cn.OpenResultset(SQL, rdOpenDynamic, rdConcurRowVer)
result.Close
'''''''''提货表
If MSF.Rows > 2 Then
SQL = "insert into pgthd values ('" & Trim(record(3)) & "','" & Trim(record(4)) & "','" & Trim(record(1)) & "','" & Trim(MSF.TextArray(i * MSF.Cols)) & "','" & Trim(MSF.TextArray(i * MSF.Cols + 2)) & "','" & Trim(MSF.TextArray(i * MSF.Cols + 3)) & "','" & Trim(MSF.TextArray(i * MSF.Cols + 4)) & "','" & Trim(MSF.TextArray(i * MSF.Cols + 5)) & "','" & Trim(record(11)) & "','" & Trim(record(12)) & "','" & Trim(record(13)) & "','" & Trim(record(9)) & "','" & Trim(bzw(1)) & "','" & Trim(bzw(2)) & "','" & Trim(bzw(3)) & "','" & Trim(bzw(4)) & "','" & Trim(MSF.TextArray(i * MSF.Cols + 1)) & "','','否','开票掰票','否','" & Trim(record(14)) & "','','','否','')"
Else
SQL = "insert into pgthd values ('" & Trim(record(3)) & "','" & Trim(record(4)) & "','" & Trim(record(1)) & "','" & Trim(MSF.TextArray(i * MSF.Cols)) & "','" & Trim(MSF.TextArray(i * MSF.Cols + 2)) & "','" & Trim(MSF.TextArray(i * MSF.Cols + 3)) & "','" & Trim(MSF.TextArray(i * MSF.Cols + 4)) & "','" & Trim(MSF.TextArray(i * MSF.Cols + 5)) & "','" & Trim(record(11)) & "','" & Trim(record(12)) & "','" & Trim(record(13)) & "','" & Trim(record(9)) & "','" & Trim(bzw(1)) & "','" & Trim(bzw(2)) & "','" & Trim(bzw(3)) & "','" & Trim(bzw(4)) & "','" & Trim(MSF.TextArray(i * MSF.Cols + 1)) & "','','否','开票','否','" & Trim(record(14)) & "','','','否','')"
End If
Set result = cn.OpenResultset(SQL, rdOpenDynamic, rdConcurRowVer)
result.Close
'''''''''插入进计算单据号的表中(PGDanjuHao)''''''''''
SQL = "insert into pgdanjuhao values ('" & Trim(record(1)) & "','" & Trim(MSF.TextArray(i * MSF.Cols)) & "')"
Set result = cn.OpenResultset(SQL, rdOpenDynamic, rdConcurRowVer)
result.Close
If MSF.Rows > 2 Then
''''''开票时掰票
SQL = "insert into pgbaipiao values ('" & Trim(record(2)) & "','" & Trim(Text1.Text) & "','" & Trim(record(5)) & "','" & Trim(record(6)) & "','" & Trim(record(7)) & "','" & Trim(record(8)) & "','" & Trim(MSF.TextArray(i * MSF.Cols)) & "','开票掰票')"
Set result = cn.OpenResultset(SQL, rdOpenDynamic, rdConcurRowVer)
result.Close
End If
Next i
End If
'''''''''调票掰票
If t = True Then
''''控制调票后打一张
' If MSF.Rows = 2 Then
' MsgBox "票据已经打印过！！！！！！"
' Exit Sub
' End If
''''''''调票掰票后存盘
For i = 1 To MSF.Rows - 1
SQL = "insert into pgysd values ('" & Trim(record(3)) & "','" & Trim(record(4)) & "','" & Trim(record(1)) & "','" & Trim(MSF.TextArray(i * MSF.Cols)) & "','" & Trim(MSF.TextArray(i * MSF.Cols + 2)) & "','" & Trim(MSF.TextArray(i * MSF.Cols + 3)) & "','" & Trim(MSF.TextArray(i * MSF.Cols + 4)) & "','" & Trim(MSF.TextArray(i * MSF.Cols + 5)) & "','" & Trim(record(11)) & "','" & Trim(record(12)) & "','" & Trim(record(13)) & "','" & Trim(record(9)) & "','" & Trim(bzw(1)) & "','" & Trim(bzw(2)) & "','" & Trim(bzw(3)) & "','" & Trim(bzw(4)) & "','" & Trim(MSF.TextArray(i * MSF.Cols + 1)) & "','','否','调票掰票','否','" & Trim(record(14)) & "')"
Set result = cn.OpenResultset(SQL, rdOpenDynamic, rdConcurRowVer)
result.Close
SQL = "insert into pgthd values ('" & Trim(record(3)) & "','" & Trim(record(4)) & "','" & Trim(record(1)) & "','" & Trim(MSF.TextArray(i * MSF.Cols)) & "','" & Trim(MSF.TextArray(i * MSF.Cols + 2)) & "','" & Trim(MSF.TextArray(i * MSF.Cols + 3)) & "','" & Trim(MSF.TextArray(i * MSF.Cols + 4)) & "','" & Trim(MSF.TextArray(i * MSF.Cols + 5)) & "','" & Trim(record(11)) & "','" & Trim(record(12)) & "','" & Trim(record(13)) & "','" & Trim(record(9)) & "','" & Trim(bzw(1)) & "','" & Trim(bzw(2)) & "','" & Trim(bzw(3)) & "','" & Trim(bzw(4)) & "','" & Trim(MSF.TextArray(i * MSF.Cols + 1)) & "','','否','调票掰票','否','" & Trim(record(14)) & "','','','否','')"
Set result = cn.OpenResultset(SQL, rdOpenDynamic, rdConcurRowVer)
result.Close
SQL = "insert into pgdanjuhao values ('" & Trim(Format(Date, "yyyy年mm月dd日")) & "','" & Trim(MSF.TextArray(i * MSF.Cols)) & "')"
Set result = cn.OpenResultset(SQL, rdOpenDynamic, rdConcurRowVer)
result.Close
SQL = "insert into pgbaipiao values ('" & Trim(djh) & "','" & Trim(Text1.Text) & "','" & Trim(record(5)) & "','" & Trim(record(6)) & "','" & Trim(record(7)) & "','" & Trim(record(8)) & "','" & Trim(MSF.TextArray(i * MSF.Cols)) & "','调票掰票')"
Set result = cn.OpenResultset(SQL, rdOpenDynamic, rdConcurRowVer)
result.Close
Next i
'''''''对要掰票单据号打上掰过票的标志
SQL = "update pgysd set 是否掰过票='是' where 单据号='" & Trim(djh) & "'"
Set result = cn.OpenResultset(SQL, rdOpenDynamic, rdConcurRowVer)
result.Close
SQL = "update pgthd set 是否掰过票='是' where 单据号='" & Trim(djh) & "'"
Set result = cn.OpenResultset(SQL, rdOpenDynamic, rdConcurRowVer)
result.Close
t = False
End If
End If
''''''''''打印读一条打一条
If Option3.Value = False Then
For i = 1 To MSF.Rows - 1
SQL = "delete from tmppgysd"
Set result = cn.OpenResultset(SQL, rdOpenDynamic, rdConcurRowVer)
result.Close
SQL = "insert into tmppgysd values ('" & Trim(record(4)) & "','" & Trim(record(1)) & "','" & Trim(MSF.TextArray(i * MSF.Cols)) & "','" & Trim(MSF.TextArray(i * MSF.Cols + 2)) & "','" & Trim(MSF.TextArray(i * MSF.Cols + 3)) & "','" & Trim(MSF.TextArray(i * MSF.Cols + 4)) & "','" & Trim(MSF.TextArray(i * MSF.Cols + 5)) & "','" & Trim(record(11)) & "','" & Trim(record(12)) & "','" & Trim(record(13)) & "','" & Trim(record(10)) & "','" & Trim(record(9)) & "')"
Set result = cn.OpenResultset(SQL, rdOpenDynamic, rdConcurRowVer)
result.Close
' ' Com.Action = 5
' Cry.WindowHeight = Screen.Height
' Cry.WindowWidth = Screen.Width
' Cry.WindowTop = 0
' Cry.WindowLeft = 0
Cry.ReportFileName = App.Path & "\ysdprint.rpt "
Cry.Action = 1
Next i
End If
'''''''''清零
record(2) = ""
record(3) = ""
record(4) = ""
record(5) = ""
record(6) = ""
record(7) = ""
record(8) = ""
record(9) = ""
record(10) = ""
record(11) = ""
record(12) = ""
record(13) = ""
' record(14) = ""
' MsgBox "打印结束"
End Sub
Private Sub Form_Load()
Move Screen.Width / 2 - pgbaozhuangwuprint.Width / 2, Screen.Height / 2 - pgbaozhuangwuprint.Height / 2 - 500
Set en = rdoEnvironments(0)
Set cn = en.OpenConnection(dsname:="odbc_api_demo", Prompt:="rdodriverprompt", ReadOnly:=False, Connect:="uid=sa;pwd=;driver={SQL SERVER};SERVER=ntserver;database=rongpin2004;")
MSF.FormatString = " 单 据 号 |^ 包装物名称 |^ 酒桶数 |^ 成套包装数 |^ 空箱数 |^ 空瓶数 "
For i = 0 To MSF.Rows - 1
MSF.RowHeight(i) = 400
Next i
record(1) = Trim(pgkaipiao.Mask.Text)
If t = False Then
record(2) = Trim(pgkaipiao.Text1.Text)
Else
djh = Trim(pgkaipiao.Text1.Text)
SQL = "select max(单据号) from pgdanjuhao where 开票日期='" & Trim(Format(Date, "yyyy年mm月dd日")) & "'"
Set result = cn.OpenResultset(SQL, rdOpenDynamic, rdConcurRowVer)
If IsNull(result(0)) = True Then
record(2) = Format(Date, "yyyymmdd") & "0000"
Else
record(2) = Val(Trim(result(0)))
End If
result.Close
End If
record(3) = Trim(pgkaipiao.Combo1.Text)
record(4) = Trim(pgkaipiao.Combo2.Text)
record(5) = Trim(pgkaipiao.Text2.Text)
record(6) = Trim(pgkaipiao.Text3.Text)
record(7) = Trim(pgkaipiao.Text4.Text)
record(8) = Trim(pgkaipiao.Text5.Text)
record(9) = Trim(pgkaipiao.Combo3.Text)
record(10) = Trim(pgkaipiao.Combo4.Text)
record(11) = Trim(pgkaipiao.Combo5.Text)
record(12) = Trim(pgkaipiao.Combo6.Text)
record(13) = Trim(pgkaipiao.Combo7.Text)
record(14) = Trim(pgkaipiao.Combo8.Text)
SQL = "select * from pgbaozhuangwu where 包装物名称='" & Trim(record(10)) & "'"
Set result = cn.OpenResultset(SQL, rdOpenDynamic, rdConcurRowVer)
If result.RowCount <> 0 Then
bzw(1) = Trim(result("箱色"))
bzw(2) = Trim(result("瓶色"))
bzw(3) = Trim(result("箱规格"))
bzw(4) = Trim(result("瓶规格"))
Else
bzw(1) = ""
bzw(2) = ""
bzw(3) = ""
bzw(4) = ""
End If
result.Close
End Sub
Private Sub Form_Unload(Cancel As Integer)
t = False
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -