📄 moddbuptable_inpati.bas
字号:
'-- DepCode ---->
'-- DcCode ---->
'-- FootSerial ---->
'-- FootID ---->
'-- Flag ---->
'-- UpdateCondition ----> 更新时指定的条件
'-- 返回制：TRUE 成功
'-- FALSE 失败
'-- 产生日期：2000年03月10日
'-----------------------------------------------------------------------
Public Function Update_FairMarkMain(ByVal UpdateFlag As DbOpType, _
Optional MarkSerial As String = "", _
Optional SkSerial As String = "", _
Optional MarkDate As String = "", _
Optional HdCode = "", _
Optional DepCode As String = "", _
Optional DcCode = "", _
Optional FootSerial = "", _
Optional FootID = "", _
Optional Flag As Integer = -32767, _
Optional FetchDate As String = "", _
Optional FetchHdCode As String = "", _
Optional UpdateCondition As String = "") As Boolean
Dim StrSQL As String
Set gDBFldsObj = New clsDBFields
gDBFldsObj.TableName = "FairMarkMain"
gDBFldsObj.UpdateCondition = UpdateCondition
gDBFldsObj.Add "MarkSerial", MarkSerial, ""
gDBFldsObj.Add "SkSerial", SkSerial, ""
gDBFldsObj.Add "MarkDate", MarkDate, ""
gDBFldsObj.Add "HdCode", HdCode, ""
gDBFldsObj.Add "DepCode", DepCode, ""
gDBFldsObj.Add "DcCode", DcCode, ""
gDBFldsObj.Add "FootSerial", FootSerial, ""
gDBFldsObj.Add "FootID", FootID, ""
gDBFldsObj.Add "Flag", Flag, -32767
gDBFldsObj.Add "FetchDate", FetchDate, ""
gDBFldsObj.Add "FetchHdCode", FetchHdCode, ""
Select Case UpdateFlag
Case HISDbInsert
StrSQL = gDBFldsObj.MakeInsertSQL
Case HISDBdelete
StrSQL = gDBFldsObj.MakeDeleteSQL
Case HISDBUpdate
StrSQL = gDBFldsObj.MakeUpdateSQL
End Select
If Not gdbobj.DBExec(StrSQL) Then
Update_FairMarkMain = False
Else
Update_FairMarkMain = True
End If
Set gDBFldsObj = Nothing
End Function
'-----------------------------------------------------------------------
'-- 功能：插入、删除、更新表(FairMarkSub)
'-- 参数：
'-- UpdateFlag ----> 更新标志
'-- MarkSerial ---->
'-- Num ---->
'-- ItemCode ---->
'-- DepCode ---->
'-- Amount ---->
'-- CPrice ---->
'-- Factor ---->
'-- Unit ---->
'-- Fair ---->
'-- InFair ---->
'-- DsCode ---->
'-- ADVSerial ---->
'-- ADVNum ---->
'-- UpdateCondition ----> 更新时指定的条件
'-- 返回制：TRUE 成功
'-- FALSE 失败
'-- 产生日期：2000年03月10日
'-----------------------------------------------------------------------
Public Function Update_FairMarkSub(ByVal UpdateFlag As DbOpType, _
Optional MarkSerial As String = "", _
Optional Num As Integer = -32767, _
Optional ItemCode As String = "", _
Optional DepCode As String = "", _
Optional Amount As Double = -0.001, _
Optional Cprice As Currency = -0.001, _
Optional Factor As Integer = -32767, _
Optional unit As String = "", _
Optional Fair As Currency = -0.001, _
Optional InFair As Currency = -0.001, _
Optional DsCode = "", _
Optional ADVSerial = "", _
Optional ADVNum = -32767, _
Optional gprice = -0.001, _
Optional gmoney = -0.001, _
Optional batchid As String = "", _
Optional UpdateCondition As String = "") As Boolean
Dim StrSQL As String
Set gDBFldsObj = New clsDBFields
gDBFldsObj.TableName = "FairMarkSub"
gDBFldsObj.UpdateCondition = UpdateCondition
gDBFldsObj.Add "MarkSerial", MarkSerial, ""
gDBFldsObj.Add "Num", Num, -32767
gDBFldsObj.Add "ItemCode", ItemCode, ""
gDBFldsObj.Add "DepCode", DepCode, ""
gDBFldsObj.Add "Amount", Amount, -0.001
gDBFldsObj.Add "CPrice", Cprice, -0.001
gDBFldsObj.Add "Factor", Factor, -32767
gDBFldsObj.Add "Unit", unit, ""
gDBFldsObj.Add "Fair", Fair, -0.001
gDBFldsObj.Add "InFair", InFair, -0.001
gDBFldsObj.Add "DsCode", DsCode, ""
gDBFldsObj.Add "ADVSerial", ADVSerial, ""
gDBFldsObj.Add "ADVNum", ADVNum, -32767
gDBFldsObj.Add "GPrice", gprice, -0.001
gDBFldsObj.Add "GMoney", gmoney, -0.001
gDBFldsObj.Add "Batchid", batchid, ""
Select Case UpdateFlag
Case HISDbInsert
StrSQL = gDBFldsObj.MakeInsertSQL
Case HISDBdelete
StrSQL = gDBFldsObj.MakeDeleteSQL
Case HISDBUpdate
StrSQL = gDBFldsObj.MakeUpdateSQL
End Select
If Not gdbobj.DBExec(StrSQL) Then
Update_FairMarkSub = False
Else
Update_FairMarkSub = True
End If
Set gDBFldsObj = Nothing
End Function
'住院退药表
Public Function Update_FairMarkBack(ByVal UpdateFlag As DbOpType, _
Optional MarkSerial As String = "", _
Optional Num As Integer = -32767, _
Optional BackDate = "", _
Optional BackAmount As Double = -0.001, _
Optional BackHD As String = "", _
Optional Flag = -32767, _
Optional UpdateCondition As String = "") As Boolean
Dim StrSQL As String
Set gDBFldsObj = New clsDBFields
gDBFldsObj.TableName = "FairMarkBack"
gDBFldsObj.UpdateCondition = UpdateCondition
gDBFldsObj.Add "MarkSerial", MarkSerial, ""
gDBFldsObj.Add "Num", Num, -32767
gDBFldsObj.Add "BackDate", BackDate, ""
gDBFldsObj.Add "BackAmount", BackAmount, -0.001
gDBFldsObj.Add "BackHD", BackHD, ""
gDBFldsObj.Add "Flag", Flag, -32767
Select Case UpdateFlag
Case HISDbInsert
StrSQL = gDBFldsObj.MakeInsertSQL
Case HISDBdelete
StrSQL = gDBFldsObj.MakeDeleteSQL
Case HISDBUpdate
StrSQL = gDBFldsObj.MakeUpdateSQL
End Select
If Not gdbobj.DBExec(StrSQL) Then
Update_FairMarkBack = False
Else
Update_FairMarkBack = True
End If
Set gDBFldsObj = Nothing
End Function
'-----------------------------------------------------------------------
'-- 功能：插入、删除、更新表(SickFoot)
'-- 参数：
'-- UpdateFlag ----> 更新标志
'-- FootSerial ---->
'-- SkSerial ---->
'-- FootDate ---->
'-- HdCode ---->
'-- FootedFair ---->
'-- Flag ---->
'-- EndDate ---->
'-- Comment ---->
'-- FootID ---->
'-- UpdateCondition ----> 更新时指定的条件
'-- 返回制：TRUE 成功
'-- FALSE 失败
'-- 产生日期：2000年03月10日
'-----------------------------------------------------------------------
Public Function Update_SickFoot(ByVal UpdateFlag As DbOpType, _
Optional FootSerial As String = "", _
Optional FootedFair As Currency = -0.001, _
Optional PrePay As Currency = -0.001, _
Optional EndDate = "", _
Optional DepCode As String = "", _
Optional UpdateCondition As String = "") As Boolean
Dim StrSQL As String
Set gDBFldsObj = New clsDBFields
gDBFldsObj.TableName = "SickFoot"
gDBFldsObj.UpdateCondition = UpdateCondition
gDBFldsObj.Add "FootSerial", FootSerial, ""
gDBFldsObj.Add "FootedFair", FootedFair, -0.001
gDBFldsObj.Add "PrePay", PrePay, -0.001
gDBFldsObj.Add "EndDate", EndDate, ""
gDBFldsObj.Add "DepCode", DepCode, ""
Select Case UpdateFlag
Case HISDbInsert
StrSQL = gDBFldsObj.MakeInsertSQL
Case HISDBdelete
StrSQL = gDBFldsObj.MakeDeleteSQL
Case HISDBUpdate
StrSQL = gDBFldsObj.MakeUpdateSQL
End Select
If Not gdbobj.DBExec(StrSQL) Then
Update_SickFoot = False
Else
Update_SickFoot = True
End If
Set gDBFldsObj = Nothing
End Function
'-----------------------------------------------------------------------
'-- 功能：插入、删除、更新表(ADVDetail)
'-- 参数：
'-- UpdateFlag ----> 更新标志
'-- ADVSerial ---->
'-- Num ---->
'-- ItemCode ---->
'-- RevDepCode ---->
'-- Amount ---->
'-- Factor ---->
'-- Unit ---->
'-- SFlag ---->
'-- PrevEndDate ---->
'-- DsCode ---->
'-- MarkDate ---->
'-- UpdateCondition ----> 更新时指定的条件
'-- 返回制：TRUE 成功
'-- FALSE 失败
'-- 产生日期：2000年03月11日
'-----------------------------------------------------------------------
Public Function Update_ADVDetail(ByVal UpdateFlag As DbOpType, _
Optional ADVSerial As String = "", _
Optional Num As Integer = -32767, _
Optional ItemCode As String = "", _
Optional RevDepCode = "", _
Optional ModelAmount As Double = -0.001, _
Optional Factor As Double = -0.001, _
Optional unit As String = "", _
Optional SFlag As Integer = -32767, _
Optional PrevEndDate = "", _
Optional DsCode = "", _
Optional MarkDate = "", _
Optional batchid As String = "", _
Optional UpdateCondition As String = "") As Boolean
Dim StrSQL As String
Set gDBFldsObj = New clsDBFields
gDBFldsObj.TableName = "ADVDetail"
gDBFldsObj.UpdateCondition = UpdateCondition
gDBFldsObj.Add "ADVSerial", ADVSerial, ""
gDBFldsObj.Add "Num", Num, -32767
gDBFldsObj.Add "ItemCode", ItemCode, ""
gDBFldsObj.Add "RevDepCode", RevDepCode, ""
gDBFldsObj.Add "ModelAmount", ModelAmount, -0.001
gDBFldsObj.Add "Factor", Factor, -0.001
gDBFldsObj.Add "Unit", unit, ""
gDBFldsObj.Add "SFlag", SFlag, -32767
gDBFldsObj.Add "PrevEndDate", PrevEndDate, ""
gDBFldsObj.Add "DsCode", DsCode, ""
gDBFldsObj.Add "MarkDate", MarkDate, ""
gDBFldsObj.Add "Batchid", batchid, ""
Select Case UpdateFlag
Case HISDbInsert
StrSQL = gDBFldsObj.MakeInsertSQL
Case HISDBdelete
StrSQL = gDBFldsObj.MakeDeleteSQL
Case HISDBUpdate
StrSQL = gDBFldsObj.MakeUpdateSQL
End Select
If Not gdbobj.DBExec(StrSQL) Then
Update_ADVDetail = False
Else
Update_ADVDetail = True
End If
Set gDBFldsObj = Nothing
End Function
'-----------------------------------------------------------------------
'-- 功能：插入、删除、更新表(ADVMain)
'-- 参数：
'-- UpdateFlag ----> 更新标志
'-- ADVSerial ---->
'-- SkSerial ---->
'-- DepCode ---->
'-- RecordDate ---->
'-- BeginDate ---->
'-- EndDate ---->
'-- BeginDcCode ---->
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -