cmd.CommandText = "Insert Into 民生贷方 (交易日期,贷方序号,主机交易流水号,贷方发生额,对方账号名称,委托编号集合,委托编号集合金额,币种,汇率,委托税后集合人民币,收款录入人,结束) Values(?,?,?,?,?,?,?,?,?,?,?,?)"
cmd.Parameters.Add("@交易日期",Date.Today)
cmd.Parameters.Add("@贷方序号",dfxh)
cmd.Parameters.Add("@主机交易流水号",zjls)
cmd.Parameters.Add("@贷方发生额",sin1)
cmd.Parameters.Add("@对方账号名称",tb1.Current("付款单位"))
cmd.Parameters.Add("@委托编号集合",tb1.Current("委托编号集合"))
cmd.Parameters.Add("@委托编号集合金额",tb1.Current("委托编号集合金额"))
cmd.Parameters.Add("@币种",e.Form.Controls("Combo币种").value)
cmd.Parameters.Add("@汇率",e.Form.Controls("Text汇率").value)
cmd.Parameters.Add("@委托税后集合人民币",tb1.Current("委托编号集合金额") * e.Form.Controls("Text汇率").value)
cmd.Parameters.Add("@收款录入人",user.name)
cmd.Parameters.Add("@结束",1)
cmd.ExecuteNonQuery
msgbox(1)
'------------------------------------------------------追加 原始fa piao
cmd.CommandText = "Insert Into 原始fa piao (fa piao号码,购方企业名称,开piao日期,单据号,金额,税率,税额,开piao人,piao据种类,开piaoid,导入日期,导入人) Values(?,?,?,?,?,?,?,?,?,?,?,?)"
cmd.Parameters.Add("@fa piao号码",e.Form.Controls("Text凭证号").value)
cmd.Parameters.Add("@购方企业名称",tb1.Current("付款单位"))
cmd.Parameters.Add("@开piao日期",e.Form.Controls("DateTimePicker1").value)
cmd.Parameters.Add("@单据号",e.Form.Controls("Text凭证号").value)
cmd.Parameters.Add("@金额",e.Form.Controls("Text开piao金额").value)
cmd.Parameters.Add("@税率",0.06)
cmd.Parameters.Add("@税额",0)
cmd.Parameters.Add("@开piao人",user.Name)
cmd.Parameters.Add("@piao据种类","收据")
cmd.Parameters.Add("@开piaoid",e.Form.Controls("Text开piaoid").value)
cmd.Parameters.Add("@导入日期",Date.Today)
cmd.Parameters.Add("@导入人",user.Name)
cmd.ExecuteNonQuery
msgbox（2）
此主题相关图片如下：捕获.png
加好友 
发短信
Post By：2021/6/2 15:18:00 [显示全部帖子]
