📄 frmsettleinvoice.frm
字号:
VERSION 5.00
Object = "{9C4B12C2-D5CE-11D1-9ABC-444553540000}#1.0#0"; "GACEDIT.DLL"
Object = "{5E9E78A0-531B-11CF-91F6-C2863C385E30}#1.0#0"; "MSFLXGRD.OCX"
Object = "{F6125AB1-8AB1-11CE-A77F-08002B2F4E98}#2.0#0"; "MSRDC20.OCX"
Begin VB.Form frmSettleInvoice
BorderStyle = 3 'Fixed Dialog
Caption = "选择发票"
ClientHeight = 5235
ClientLeft = 45
ClientTop = 330
ClientWidth = 9315
LinkTopic = "Form1"
MaxButton = 0 'False
MinButton = 0 'False
ScaleHeight = 5235
ScaleWidth = 9315
ShowInTaskbar = 0 'False
StartUpPosition = 2 '屏幕中心
Begin MSRDC.MSRDC datSource
Height = 330
Left = 2055
Top = 4935
Visible = 0 'False
Width = 1200
_ExtentX = 2117
_ExtentY = 582
_Version = 393216
Options = 0
CursorDriver = 0
BOFAction = 0
EOFAction = 0
RecordsetType = 1
LockType = 3
QueryType = 0
Prompt = 3
Appearance = 1
QueryTimeout = 30
RowsetSize = 100
LoginTimeout = 15
KeysetSize = 0
MaxRows = 0
ErrorThreshold = -1
BatchSize = 15
BackColor = -2147483643
ForeColor = -2147483640
Enabled = -1 'True
ReadOnly = 0 'False
Appearance = -1 'True
DataSourceName = ""
RecordSource = ""
UserName = ""
Password = ""
Connect = ""
LogMessages = ""
Caption = "MSRDC1"
BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name = "宋体"
Size = 9
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
End
Begin VB.CommandButton cmdOk
Height = 350
Index = 0
Left = 8025
Style = 1 'Graphical
TabIndex = 5
Tag = "1001"
Top = 540
Width = 1215
End
Begin VB.CommandButton cmdOk
Height = 350
Index = 1
Left = 8025
Style = 1 'Graphical
TabIndex = 4
Tag = "1002"
Top = 915
Width = 1215
End
Begin VB.CommandButton cmdOk
Caption = "全部选择"
Height = 350
Index = 2
Left = 8025
TabIndex = 3
Top = 1365
Width = 1215
End
Begin VB.CommandButton cmdOk
Caption = "全部取消"
Height = 350
Index = 3
Left = 8025
TabIndex = 2
Top = 1740
Width = 1215
End
Begin VB.CheckBox chkClose
Caption = "关闭"
Height = 225
Left = 8160
TabIndex = 1
Top = 150
Width = 675
End
Begin GATLCTRLLibCtl.CalEdit txtEdit
Height = 270
Left = 8160
OleObjectBlob = "frmSettleInvoice.frx":0000
TabIndex = 0
Top = 2775
Visible = 0 'False
Width = 825
End
Begin MSFlexGridLib.MSFlexGrid msgGrid
Bindings = "frmSettleInvoice.frx":0081
Height = 4335
Left = 15
TabIndex = 6
Top = 525
Width = 7920
_ExtentX = 13970
_ExtentY = 7646
_Version = 393216
Cols = 9
FixedCols = 0
BackColor = 16777215
FormatString = "选择|日期 |单据号|发票号 |未核销数量|未核销金额|核销数量 |核销金额 "
End
Begin VB.Label hLb
Alignment = 1 'Right Justify
BackColor = &H00FFFFFF&
Height = 255
Index = 1
Left = 1005
TabIndex = 18
Top = 4935
Width = 855
End
Begin VB.Label hLb
Alignment = 1 'Right Justify
BackColor = &H00FFFFFF&
Height = 255
Index = 0
Left = 45
TabIndex = 17
Top = 4935
Width = 855
End
Begin VB.Label lblNote
AutoSize = -1 'True
Caption = "单位："
Height = 180
Index = 0
Left = 60
TabIndex = 16
Top = 45
Width = 540
End
Begin VB.Label lblNote
AutoSize = -1 'True
Caption = "(单位)"
Height = 180
Index = 1
Left = 600
TabIndex = 15
Top = 45
Width = 540
End
Begin VB.Label lblNote
AutoSize = -1 'True
Caption = "币种："
Height = 180
Index = 2
Left = 6315
TabIndex = 14
Top = 60
Width = 540
End
Begin VB.Label lblNote
AutoSize = -1 'True
Caption = "(RMB 人民币)"
Height = 180
Index = 3
Left = 6855
TabIndex = 13
Top = 60
Width = 1080
End
Begin VB.Label lblNote
AutoSize = -1 'True
Caption = "商品："
Height = 180
Index = 4
Left = 60
TabIndex = 12
Top = 315
Width = 540
End
Begin VB.Label lblNote
AutoSize = -1 'True
Caption = " (商品或劳务名称)"
Height = 180
Index = 5
Left = 600
TabIndex = 11
Top = 315
Width = 1530
End
Begin VB.Label lblNote
AutoSize = -1 'True
Caption = "未开票数量："
Height = 180
Index = 6
Left = 3375
TabIndex = 10
Top = 300
Visible = 0 'False
Width = 1080
End
Begin VB.Label lblNote
AutoSize = -1 'True
Caption = "(数量)"
Height = 180
Index = 7
Left = 4395
TabIndex = 9
Top = 300
Visible = 0 'False
Width = 540
End
Begin VB.Label lblNote
AutoSize = -1 'True
Caption = "未开票金额："
Height = 180
Index = 8
Left = 5775
TabIndex = 8
Top = 315
Width = 1080
End
Begin VB.Label lblNote
AutoSize = -1 'True
Caption = "(金额)"
Height = 180
Index = 9
Left = 6855
TabIndex = 7
Top = 315
Width = 540
End
End
Attribute VB_Name = "frmSettleInvoice"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
'标题：选择发票
'日期：1999.08.20
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
Option Explicit
Private Const mintOffsetCol = 10 '列偏移行数
Private Const mintLastChkAmtCol = 2
Private Const mintLastChkQtyCol = 3
Private Const mintLastUnChkAmtCol = 4
Private Const mintLastUnChkQtyCol = 5
Private Const mintTotalQtyCol = 6
Private Const mintTotalAmtCol = 7
Private Const mintFactorCol = 8
Private Const mintVoucherCol = 9
Private mintUnChkQtyCol As Integer
Private mintUnChkAmtCol As Integer
Private mintChkAmtCol As Integer
Private mintChkQtyCol As Integer
Private mlngViewID As Long
Private WithEvents mclsGrid As Grid '声明类模块
Attribute mclsGrid.VB_VarHelpID = -1
Private mlngItemID As Long
Private mlngCustomerID As Long '单位ID
Private mlngDetailID As Long 'DetailID为单据业务ID
Private mlngCurrencyID As Long
Private mstrCurrFormat As String
Private mdblQuantity As Double '加工入库串
Private mdblAmount As Double '加工入库金额
Private mdblInvoiceAmount As Double
Private mdblFactor As Double
Private mstrUnitName As String
Private mblnModify As Boolean '按钮退出吗
Private mblnOk As Boolean
Private mlngActivityTypeID As Long
Private mblnIsExpense As Boolean
Private mlngVoucherID As Long
Private mdblPrice As Double
Private mintCurrencyDec As Integer
Public Function GivemeParameter(lngActivityDetailID As Long) As Boolean
Dim strSql As String
Dim recDetail As rdoResultset
Dim recUnit As rdoResultset
Dim lngActivityID As Long
Dim lngUnitID As Long
Dim blnClose As Boolean
mblnOk = False
mblnModify = False
mlngDetailID = lngActivityDetailID
strSql = "SELECT lngActivityID,lngItemID,lngUnitID,dblQuantity,dblCurrAmount,dblCurrTaxAmount,dblCurrInvoiceAmount,blnCloseInvoice " _
& "FROM ItemActivityDetail WHERE lngActivityDetailID=" & lngActivityDetailID
Set recDetail = gclsBase.BaseDB.OpenResultset(strSql, rdOpenStatic)
If Not recDetail.EOF Then
mlngItemID = recDetail!lngItemID
mdblQuantity = recDetail!dblQuantity
mdblAmount = recDetail!dblCurrAmount + recDetail!dblCurrTaxAmount
mdblInvoiceAmount = recDetail!dblCurrInvoiceAmount
lngActivityID = recDetail!lngActivityID
lngUnitID = recDetail!lngUnitID
blnClose = (recDetail!blnCloseInvoice = 1)
Else
mlngDetailID = 0
End If
recDetail.Close
strSql = "SELECT strItemCategory FROM ItemNature,Item " _
& "WHERE ItemNature.lngItemNatureID=Item.lngItemNatureID " _
& "AND lngItemID=" & mlngItemID
Set recDetail = gclsBase.BaseDB.OpenResultset(strSql, rdOpenStatic)
If Not recDetail.EOF Then
If recDetail!strItemCategory = "1" Then
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -