📄 frmmaildone.frm
字号:
rst3![PRICE] = 0
rst3![DISCOUNT] = 0
rst3![Type] = "进货"
rst3![Count] = rst2![Count]
rst3![S340] = rst2![S34]
rst3![S345] = rst2![S34_]
rst3![S350] = rst2![S35]
rst3![S355] = rst2![S35_]
rst3![S360] = rst2![S36]
rst3![S365] = rst2![S36_]
rst3![S370] = rst2![S37]
rst3![S375] = rst2![S37_]
rst3![S380] = rst2![S38]
rst3![S385] = rst2![S38_]
rst3![S390] = rst2![S39]
rst3![s395] = rst2![s39_]
rst3![S400] = rst2![S40]
rst3![S405] = 0
rst3![S410] = rst2![S40_]
rst3![S415] = 0
rst3![S420] = rst2![S41]
rst3![S425] = 0
rst3![S430] = rst2![S41_]
rst3![S435] = 0
rst3![S440] = rst2![S42]
rst3![S445] = 0
rst3![S450] = 0
rst3![S455] = 0
rst3![S460] = 0
rst3![S465] = 0
rst3![S470] = 0
rst3.Update
rst2.MoveNext
Loop
Case "052" '调出
Do Until rst2.EOF
rst3.AddNew
rst3![StockNo] = Left(Rst1![htmlname], 15)
rst3![Date] = Format(rst2![Time], "yyyy/mm/dd")
'rst3![boxcode] = rst2![boxcode]
rst3![ADDRESS] = NChar(rst2![From])
rst3![Formcode] = NChar(rst2![Formcode])
rst3![OrderCode] = NChar(rst2![OrderCode])
rst3![PRICE] = 0
rst3![DISCOUNT] = 0
rst3![Type] = "调出"
rst3![Count] = -rst2![Count]
rst3![S340] = -rst2![S34]
rst3![S345] = -rst2![S34_]
rst3![S350] = -rst2![S35]
rst3![S355] = -rst2![S35_]
rst3![S360] = -rst2![S36]
rst3![S365] = -rst2![S36_]
rst3![S370] = -rst2![S37]
rst3![S375] = -rst2![S37_]
rst3![S380] = -rst2![S38]
rst3![S385] = -rst2![S38_]
rst3![S390] = -rst2![S39]
rst3![s395] = -rst2![s39_]
rst3![S400] = -rst2![S40]
rst3![S405] = 0
rst3![S410] = -rst2![S40_]
rst3![S415] = 0
rst3![S420] = -rst2![S41]
rst3![S425] = 0
rst3![S430] = -rst2![S41_]
rst3![S435] = 0
rst3![S440] = -rst2![S42]
rst3![S445] = 0
rst3![S450] = 0
rst3![S455] = 0
rst3![S460] = 0
rst3![S465] = 0
rst3![S470] = 0
rst3.Update
rst2.MoveNext
Loop
Case "053" '调入
Do Until rst2.EOF
rst3.AddNew
rst3![StockNo] = Left(Rst1![htmlname], 15)
rst3![Date] = Format(rst2![Time], "yyyy/mm/dd")
'rst3![boxcode] = rst2![boxcode]
rst3![ADDRESS] = NChar(rst2![To])
rst3![Formcode] = NChar(rst2![Formcode])
rst3![OrderCode] = NChar(rst2![OrderCode])
rst3![PRICE] = 0
rst3![DISCOUNT] = 0
rst3![Type] = "调入"
rst3![Count] = rst2![Count]
rst3![S340] = rst2![S34]
rst3![S345] = rst2![S34_]
rst3![S350] = rst2![S35]
rst3![S355] = rst2![S35_]
rst3![S360] = rst2![S36]
rst3![S365] = rst2![S36_]
rst3![S370] = rst2![S37]
rst3![S375] = rst2![S37_]
rst3![S380] = rst2![S38]
rst3![S385] = rst2![S38_]
rst3![S390] = rst2![S39]
rst3![s395] = rst2![s39_]
rst3![S400] = rst2![S40]
rst3![S405] = 0
rst3![S410] = rst2![S40_]
rst3![S415] = 0
rst3![S420] = rst2![S41]
rst3![S425] = 0
rst3![S430] = rst2![S41_]
rst3![S435] = 0
rst3![S440] = rst2![S42]
rst3![S445] = 0
rst3![S450] = 0
rst3![S455] = 0
rst3![S460] = 0
rst3![S465] = 0
rst3![S470] = 0
rst3.Update
rst2.MoveNext
Loop
Case "054" '配货
Do Until rst2.EOF
rst3.AddNew
rst3![StockNo] = Left(Rst1![htmlname], 15)
rst3![Date] = Format(rst2![Date], "yyyy/mm/dd")
'rst3![boxcode] = rst2![boxcode]
rst3![ADDRESS] = NChar(rst2![From])
rst3![Formcode] = NChar(rst2![Formcode])
rst3![OrderCode] = NChar(IIf(IsNull(rst2![OrderCode]), 0, rst2![OrderCode]))
rst3![PRICE] = 0
rst3![DISCOUNT] = 0
rst3![Type] = "配出"
rst3![Count] = -rst2![Count]
rst3![S340] = -rst2![S34]
rst3![S345] = -rst2![S34_]
rst3![S350] = -rst2![S35]
rst3![S355] = -rst2![S35_]
rst3![S360] = -rst2![S36]
rst3![S365] = -rst2![S36_]
rst3![S370] = -rst2![S37]
rst3![S375] = -rst2![S37_]
rst3![S380] = -rst2![S38]
rst3![S385] = -rst2![S38_]
rst3![S390] = -rst2![S39]
rst3![s395] = -rst2![s39_]
rst3![S400] = -rst2![S40]
rst3![S405] = 0
rst3![S410] = -rst2![S40_]
rst3![S415] = 0
rst3![S420] = -rst2![S41]
rst3![S425] = 0
rst3![S430] = -rst2![S41_]
rst3![S435] = 0
rst3![S440] = -rst2![S42]
rst3![S445] = 0
rst3![S450] = 0
rst3![S455] = 0
rst3![S460] = 0
rst3![S465] = 0
rst3![S470] = 0
rst3.Update
rst3.AddNew
rst3![StockNo] = Left(Rst1![htmlname], 15)
rst3![Date] = Format(rst2![Date], "yyyy/mm/dd")
'rst3![boxcode] = rst2![boxcode]
rst3![ADDRESS] = NChar(rst2![To])
rst3![Formcode] = NChar(rst2![Formcode])
rst3![OrderCode] = NChar(IIf(IsNull(rst2![OrderCode]), 0, rst2![OrderCode]))
rst3![PRICE] = 0
rst3![DISCOUNT] = 0
rst3![Type] = "配入"
rst3![Count] = rst2![Count]
rst3![S340] = rst2![S34]
rst3![S345] = rst2![S34_]
rst3![S350] = rst2![S35]
rst3![S355] = rst2![S35_]
rst3![S360] = rst2![S36]
rst3![S365] = rst2![S36_]
rst3![S370] = rst2![S37]
rst3![S375] = rst2![S37_]
rst3![S380] = rst2![S38]
rst3![S385] = rst2![S38_]
rst3![S390] = rst2![S39]
rst3![s395] = rst2![s39_]
rst3![S400] = rst2![S40]
rst3![S405] = 0
rst3![S410] = rst2![S40_]
rst3![S415] = 0
rst3![S420] = rst2![S41]
rst3![S425] = 0
rst3![S430] = rst2![S41_]
rst3![S435] = 0
rst3![S440] = rst2![S42]
rst3![S445] = 0
rst3![S450] = 0
rst3![S455] = 0
rst3![S460] = 0
rst3![S465] = 0
rst3![S470] = 0
rst3.Update
rst2.MoveNext
Loop
Case "055" '销售
Do Until rst2.EOF
rst3.AddNew
rst3![StockNo] = Left(Rst1![htmlname], 15)
rst3![Date] = Format(rst2![sellday], "yyyy/mm/dd")
rst3![ADDRESS] = NChar(rst2![SELLADRESSCODE])
rst3![OrderCode] = NChar(rst2![OrderCode])
rst3![PRICE] = rst2![PRICE]
rst3![DISCOUNT] = rst2![DISCOUNT]
rst3![discountkind] = NChar(IIf(IsNull(rst2![discountkind]), 0, rst2![discountkind])) & " "
If IsNull(rst2![developyear]) Then
rst3![developyear] = Format(Date, "yyyy")
Else
If Len(rst2![developyear]) = 2 Then
rst3![developyear] = IIf(Len(rst2![developyear]) = 4, cField(rst2![developyear]), IIf(Val(rst2![developyear]) > 90, "19" & cField(rst2![developyear]), Format(Date, "yyyy")))
Else
rst3![developyear] = Format(Date, "yyyy")
End If
End If
rst3![Type] = "销售"
rst3![Count] = -1
rst3![S340] = 0
rst3![S345] = 0
rst3![S350] = 0
rst3![S355] = 0
rst3![S360] = 0
rst3![S365] = 0
rst3![S370] = 0
rst3![S375] = 0
rst3![S380] = 0
rst3![S385] = 0
rst3![S390] = 0
rst3![s395] = 0
rst3![S400] = 0
rst3![S405] = 0
rst3![S410] = 0
rst3![S415] = 0
rst3![S420] = 0
rst3![S425] = 0
rst3![S430] = 0
rst3![S435] = 0
rst3![S440] = 0
rst3![S445] = 0
rst3![S450] = 0
rst3![S455] = 0
rst3![S460] = 0
rst3![S465] = 0
rst3![S470] = 0
rst3.Fields("S" & rst2![Size]).Value = -1
rst3.Update
rst2.MoveNext
Loop
Case "056" '退货
Do Until rst2.EOF
rst3.AddNew
rst3![StockNo] = Left(Rst1![htmlname], 15)
rst3![Date] = Format(rst2![backday], "yyyy/mm/dd")
rst3![ADDRESS] = NChar(rst2![SELLADRESSCODE])
rst3![OrderCode] = NChar(rst2![OrderCode])
rst3![PRICE] = rst2![PRICE]
rst3![DISCOUNT] = 0
rst3![Type] = "退货"
rst3![Count] = 1
rst3![S340] = 0
rst3![S345] = 0
rst3![S350] = 0
rst3![S355] = 0
rst3![S360] = 0
rst3![S365] = 0
rst3![S370] = 0
rst3![S375] = 0
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -