Dim str As String = Tables("订单").Current("订单号")
Dim 订单ID As String = Tables("订单").current("ID")
Dim 客户ID As String = Tables("订单").current("客户ID")
Dim cmd As New SQLCommand
cmd.c
Dim i As Integer = 0
For Each dr As DataRow In DataTables("订单明细").Select("订单号 = '" & str & "'")
Dim qr As DataRow = DataTables("ERP品号").find("品号 = '" & dr("品号") & "'")
If dr("供货类型")="3" Then
cmd.CommandText = "In sert Into {SALES_ORDER_DOC_SD}(SequenceNumber,SALES_ORDER_DOC_SD_ID,SALES_ORDER_DOC_D_ID,PLAN_DELIVERY_DATE,PLAN_SHIP_DATE,BUSINESS_QTY,PRICE_QTY,INVENTORY_QTY,SHIP_TO_CUSTOMER_ID,CLOSE,TRANSFER_PURCHASE_STATUS,PLAN_STATUS,DIRECT_SHIP,DELIVERY_PLANT_ID,SETT_COMPANY_ID,SUPPLY_CENTER_ID,DELIVERY_PARTNER_ID_RTK,DELIVERY_PARTNER_ID_ROid,DELIVERY_TYPE) Values('1',newid(),'" & dr("DID") & "','" & dr("交货日期") & "','" & dr("交货日期") & "','" & dr("数量") & "','" & dr("数量") & "','" & dr("数量") & "','" & 客户ID & "','0','N','1','TRUE','4d51c226-b05f-46f1-542d-113804040690','9e006dcf-173a-4ac2-a3cb-113803de8682','5512b4fd-2eb9-41c8-3ca7-113804764d60','SUPPLIER','20f0516c-79b3-4e81-1b60-12baec5e63df','3')"
cmd.ExecuteNonQuery()
Else If dr("供货类型")="1" Or dr("供货类型")="2" Then
cmd.CommandText = "In sert Into {SALES_ORDER_DOC_SD}(SequenceNumber,SALES_ORDER_DOC_SD_ID,SALES_ORDER_DOC_D_ID,PLAN_DELIVERY_DATE,PLAN_SHIP_DATE,BUSINESS_QTY,PRICE_QTY,INVENTORY_QTY,SHIP_TO_CUSTOMER_ID,CLOSE,TRANSFER_PURCHASE_STATUS,PLAN_STATUS,DIRECT_SHIP,DELIVERY_PLANT_ID,SETT_COMPANY_ID,DELIVERY_PARTNER_ID_RTK,DELIVERY_PARTNER_ID_ROid,DELIVERY_TYPE) Values('1',newid(),'" & dr("DID") & "','" & dr("交货日期") & "','" & dr("交货日期") & "','" & dr("数量") & "','" & dr("数量") & "','" & dr("数量") & "','" & 客户ID & "','0','N','1','TRUE','4d51c226-b05f-46f1-542d-113804040690','9e006dcf-173a-4ac2-a3cb-113803de8682','PLANT','4d51c226-b05f-46f1-542d-113804040690','1')"
cmd.ExecuteNonQuery()
messagebox.Show("已更新", "提示")
End If
i=i+1
Next
messagebox.Show("报告领导!总共更新'" & i & "'行数据!", "o(*^@^*)o")
加好友 
发短信
Post By：2017/12/18 15:09:00 [只看该作者]
