📄 frminvoicesettle.frm
字号:
VERSION 5.00
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 frmInvoiceSettle
BorderStyle = 1 'Fixed Single
Caption = "发票核销"
ClientHeight = 5700
ClientLeft = 45
ClientTop = 330
ClientWidth = 8775
KeyPreview = -1 'True
LinkTopic = "Form1"
MaxButton = 0 'False
MinButton = 0 'False
ScaleHeight = 5700
ScaleWidth = 8775
StartUpPosition = 2 '屏幕中心
Begin MSRDC.MSRDC DATA1
Height = 330
Left = 7500
Top = 5280
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.CheckBox chkAuto
Caption = "自动生成采购单据(&A)"
Height = 315
Left = 210
TabIndex = 4
Top = 4860
Width = 2055
End
Begin VB.Frame Frame1
Height = 735
Left = 60
TabIndex = 3
Top = 4890
Width = 7365
Begin VB.OptionButton OptSelect
Caption = "差额调整"
Enabled = 0 'False
Height = 255
Index = 1
Left = 4830
TabIndex = 6
Top = 330
Value = -1 'True
Width = 1245
End
Begin VB.OptionButton OptSelect
Caption = "全额回冲"
Enabled = 0 'False
Height = 255
Index = 0
Left = 990
TabIndex = 5
Top = 330
Width = 1245
End
End
Begin VB.CommandButton cmdOkCancel
Cancel = -1 'True
Height = 350
Index = 1
Left = 7500
Style = 1 'Graphical
TabIndex = 2
Tag = "1002"
Top = 750
UseMaskColor = -1 'True
Width = 1210
End
Begin VB.CommandButton cmdOkCancel
Height = 350
Index = 0
Left = 7500
Style = 1 'Graphical
TabIndex = 1
Tag = "1001"
Top = 360
UseMaskColor = -1 'True
Width = 1210
End
Begin MSFlexGridLib.MSFlexGrid GrdCol
Bindings = "frmInvoiceSettle.frx":0000
Height = 4455
Left = 60
TabIndex = 0
Top = 360
Width = 7365
_ExtentX = 12991
_ExtentY = 7858
_Version = 393216
Cols = 20
FixedCols = 0
RowHeightMin = 270
BackColorBkg = -2147483643
GridColor = -2147483633
GridColorFixed = -2147483640
AllowBigSelection= 0 'False
FocusRect = 0
GridLinesFixed = 0
AllowUserResizing= 1
End
Begin VB.Label lblTitle
Caption = "发票号："
Height = 195
Index = 5
Left = 5520
TabIndex = 12
Top = 360
Visible = 0 'False
Width = 2175
End
Begin VB.Label lblTitle
Caption = "发票类型：增殖税专用发票"
Height = 180
Index = 4
Left = 3300
TabIndex = 11
Top = 360
Visible = 0 'False
Width = 2160
End
Begin VB.Label lblTitle
Caption = "单据号：ABCDEF0123"
Height = 180
Index = 3
Left = 1650
TabIndex = 10
Top = 360
Visible = 0 'False
Width = 1620
End
Begin VB.Label lblTitle
Caption = "日期：1999-11-19"
Height = 195
Index = 2
Left = 120
TabIndex = 9
Top = 360
Visible = 0 'False
Width = 1485
End
Begin VB.Label lblTitle
Caption = "币种：RMB 人民币"
Height = 195
Index = 1
Left = 5520
TabIndex = 8
Top = 90
Width = 1905
End
Begin VB.Label lblTitle
Caption = "单位："
Height = 195
Index = 0
Left = 120
TabIndex = 7
Top = 90
Width = 5265
End
End
Attribute VB_Name = "frmInvoiceSettle"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit
Private strColName() As String
Private strCurrDec As String
Private strPriceDec As String
Private strSelectItem As String
Private blnSucceed As Boolean
Private mclsGrid As Grid
Attribute mclsGrid.VB_VarHelpID = -1
Private xlngColNo() As Long
Private Type RowData
lngActivityDetailID As Long
lngInvoiceDetailID As Long
lngItemID As Long
strItemCategory As String
strCostMethod As String
lngStockPositionID As Long
blnIsBatch As Boolean
dblPlanPrice As Double
dblRetainPrice As Double
lngUnitID As Long
dblFactor As Double
lngTaxID As Long
dblTaxRate As Double
strProduceNum As String
strProduceDate As String
strValidDate As String
intValidDay As Integer
lngCustomID0 As Long
lngCustomID1 As Long
lngCustomID2 As Long
lngCustomID3 As Long
lngCustomID4 As Long
lngCustomID5 As Long
lngJobID As Long
dblQuantity As Double
dblReceiptAmount As Double
dblInvoiceAmount As Double
dblSettleAmount As Double
End Type
Private RowDatas() As RowData
Private Type BorrowData
lngOldStockDetailID As Long
lngStockDetailID As Long
lngSettleDetailID As Long
dblQuantity As Double
dblAmount As Double
End Type
Private mBorrowDatas() As BorrowData
Private mintYear As Integer
Private mbytPeriod As Byte
Private mlngTemplateID As Long
Private mlngDefaultPositionID As Long
Private mstrReceiptNO As String
Private mlngActivityID As Long
Private mlngReceiptTypeID As Long
Private frmName As FrmStockBill
Private mlngNewActivityID As Long
Private mblnFirst As Boolean
Public Function ShowMe(frmTmp As FrmStockBill) As Boolean
On Error Resume Next
blnSucceed = False
mlngActivityID = frmTmp.getID
If mlngActivityID = 0 Then Exit Function
mlngReceiptTypeID = C2lng(frmTmp.lblHead(2).Tag)
If mlngReceiptTypeID <> 8 And mlngReceiptTypeID <> 20 Then Exit Function
Set frmName = frmTmp
Me.Show vbModal
ShowMe = blnSucceed
End Function
Private Sub chkAuto_Click()
OptSelect(0).Enabled = (chkAuto.Value = 1)
OptSelect(1).Enabled = (chkAuto.Value = 1)
' Frame1.Enabled = (chkAuto.Value = 1)
End Sub
Private Sub Form_Activate()
If Me.HelpContextID <> 0 Then
SetHelpID Me.HelpContextID
End If
If mblnFirst = True Then
mblnFirst = False
RefreshGrid
End If
End Sub
Private Sub Form_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
If Me.ActiveControl Is GrdCol Then
Else
BKKEY Me.ActiveControl.hWnd, vbKeyTab
End If
End If
End Sub
Private Sub Form_Load()
Dim i As Long
Dim j As Long
Dim lngTmp As Long
Screen.MousePointer = vbHourglass
Utility.LoadFormResPicture Me
lblTitle(0).Caption = "单位：" & frmName.lblHead(1).Caption
lblTitle(1).Caption = "币种：" & frmName.lblField(7).Caption
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -