Notes与SAP数据的互换

寂寞大萝卜

　　Sub CreatePO_SAP
　　Dim OPO As Variant
　　Dim arrPO_Header(7,1) As String
　　Dim arrPO_Header_Add(5,1) As String
　　Dim arrPO_Address(2,1) As String
　　Dim ws As New NotesUIWorkspace
　　Dim uidoc As notesuidocument
　　Dim doc As notesdocument
　　Set uidoc=ws.currentdocument
　　Set doc=uidoc.document
　　REM Set "PO Header" data
　　arrpo_header(0,0)="DOC_DATE"
　　arrpo_header(1,0)="DOC_TYPE"
　　arrpo_header(2,0)="DOC_CAT"
　　arrpo_header(3,0)="Company Code"
　　arrpo_header(4,0)="Purchase Organization"
　　arrpo_header(5,0)="Purchase Group"
　　arrpo_header(6,0)="Vendor No"
　　arrpo_header(7,0)="Created By"
　　arrpo_header(0,1)=Format$(doc.docdate(0),"YYYYMMDD")
　　arrpo_header(1,1)="NB"
　　arrpo_header(2,1)="F"
　　tmpvar=Evaluate(|@dblookup("":"NoCache";"":"";"视图名";company;"SAPCompany")|,doc)
　　arrpo_header(3,1)=Trim(tmpvar(0))
　　arrpo_header(4,1)=Trim(doc.Purch_Org(0))
　　arrpo_header(5,1)=Trim(doc.Pur_Group(0))
　　arrpo_header(6,1)=Format$(Cstr(doc.vendor(0)),"0000000000")
　　tmp=|@dblookup("":"NoCache";@name([cn];"| & db.server & |"):"names.nsf";"($Users)";@lowercase("| & s.commonusername & |");"Mailfile")|
　　tmpvar=Evaluate(tmp)
　　tmpvar2$=Right$(tmpvar(0),Len(tmpvar(0))-5)
　　arrpo_header(7,1)= tmpvar2$
　　For i=0 To 6
　　If arrpo_header(i,1)="" Then
　　Msgbox "Please kindly fill out the data - " & arrpo_header(i,0) & ".",0+16,db.title
　　Exit Sub
　　End If
　　Next
　　arrPO_Header_Add(0,0)="Payment Terms"
　　arrPO_Header_Add(1,0)="Currency"
　　arrPO_Header_Add(2,0)="Exchange Rate"
　　arrPO_Header_Add(3,0)="Delivery Term"
　　arrPO_Header_Add(4,0)="Delivery Method"
　　arrPO_Header_Add(5,0)="Contact Person"
　　arrPO_Header_Add(0,1)=Trim(doc.PMNTTrms(0))
　　arrPO_Header_Add(1,1)=Trim(doc.currency(0))
　　arrPO_Header_Add(2,1)=Trim(doc.Exch_rate(0))
　　arrPO_Header_Add(3,1)=Trim(doc.dlyterm(0))
　　arrPO_Header_Add(4,1)=Trim(doc.DlyAdres(0)) & " " & Trim(doc.DlyMtd(0))
　　arrPO_Header_Add(5,1)=Trim(doc.attn(0))
　　arrPO_Address(0,0)="Telephone No"
　　arrPO_Address(1,0)="Fax No"
　　arrPO_Address(0,1)=Trim(doc.TelNo(0))
　　arrPO_Address(1,1)=Trim(doc.FaxNo(0))
　　For i=0 To 2
　　If arrPO_Header_Add(i,1)="" Then
　　Msgbox "Please kindly fill out the data - " & arrPO_Header_Add(i,0) & ".",0+16,db.title
　　Exit Sub
　　End If
　　Next
　　If GetSAPSystem=0 Then  Exit Sub
　　Print "Please wait a moment ....Creating PO in SAP "
　　Set ofun = CreateObject("SAP.Functions")
　　Set ologonctrl=createobject("SAP.Logoncontrol.1")
　　Set ofun.connection=ologonctrl.newconnection
　　ofun.connection.system = sap_System
　　ofun.connection.systemnumber = sap_SystemNo
　　ofun.connection.applicationserver = sap_appserver
　　ofun.connection.user = sap_user
　　ofun.connection.Password = sap_pw
　　ofun.connection.Client = sap_client
　　ofun.connection.Language = sap_lan
　　Call ofun.connection.logon(0,True)
　　Set oPO = ofun.Add("BAPI_PO_CREATE")
　　Set otablepo_header=opo.exports("PO_HEADER")
　　otablePO_header.Value(1) = arrPO_Header(0,1)
　　otablePO_header.Value(2) = arrPO_Header(1,1)
　　otablePO_header.Value(3) = arrPO_Header(2,1)
　　otablePO_header.Value(4) = arrPO_Header(3,1)
　　otablePO_header.Value(5) = arrPO_Header(4,1)
　　otablePO_header.Value(6) = arrPO_Header(5,1)
　　otablePO_header.Value(8) = arrPO_Header(6,1)
　　otablePO_header.Value(11) = arrPO_Header(7,1)
　　opo.exports("SKIP_ITEMS_WITH_ERROR")="X"
　　opo.exports("ITEM_ADD_DATA_RELEVANT")="X"
　　opo.exports("HEADER_ADD_DATA_RELEVANT")="X"
　　Set otablepo_header_add=opo.exports("PO_HEADER_ADD_DATA")
　　otablepo_header_add.Value(1) = arrPO_Header_ADD(0,1)
　　otablepo_header_add.Value(8) = arrPO_Header_ADD(1,1)
　　otablepo_header_add.Value(9) = arrPO_Header_ADD(2,1)
　　otablepo_header_add.Value(11) = arrPO_Header_ADD(3,1)
　　otablepo_header_add.Value(12) = arrPO_Header_ADD(4,1)
　　otablepo_header_add.Value(14) = arrPO_Header_ADD(5,1)
　　Set otablepo_item = opo.Tables("PO_ITEMS")
　　i=0
　　Forall p In doc.cxcode
　　otablepo_item.rows.add
　　otablepo_item.value(i+1,2)=Format$(Cstr((i+1)*10),"00000")
　　'otablepo_item.value(i+1,4)=Format$(p,"000000000000000000")
　　'otablepo_item.value(i+1,5)=Format$(p,"000000000000000000")
　　otablepo_item.value(i+1,4)=p
　　otablepo_item.value(i+1,5)=p
　　otablepo_item.value(i+1,13)=Trim(doc.cxdesp(i))
　　otablepo_item.value(i+1,17)=Trim(doc.plant(0))
　　otablepo_item.value(i+1,21)=Csng(doc.nxuprice(i))
　　otablepo_item.value(i+1,38)="X"
　　i=i+1
　　End Forall
　　Set otablepo_item_sch = opo.Tables("PO_ITEM_SCHEDULES")
　　i=0
　　Forall p In doc.cxcode
　　otablepo_item_sch.rows.add
　　otablepo_item_sch.value(i+1,1)=Format$(Cstr((i+1)*10),"00000")
　　otablepo_item_sch.value(i+1,2)=Format$(Cstr(i),"0000")
　　otablepo_item_sch.value(i+1,4)=Format$(doc.dlydate(0),"YYYYMMDD")
　　otablepo_item_sch.value(i+1,6)=doc.nxqty(i)
　　i=i+1
　　End Forall
　　Set otablepo_item_text=opo.tables("PO_ITEM_TEXT")
　　i=0
　　j=0
　　Forall d In doc.cxdetails
　　If d"*" Then
　　otablepo_item_text.rows.add
　　otablepo_item_text.value(i+1,2)=Format$(Cstr((j+1)*10),"00000")
　　otablepo_item_text.value(i+1,3)="F02"
　　otablepo_item_text.value(i+1,4)="*"
　　otablepo_item_text.value(i+1,5)=d
　　i=i+1
　　End If
　　j=j+1
　　End Forall
　　opo.call
　　Set otablere = opo.Tables("RETURN")
　　For i=1 To otablere.rows.count
　　Print otablere.value(i,1) & "--" & otablere.value(i,2) & "--" & otablere.value(i,3)
　　For j=1 To 3
　　If Cstr(otablere.value(i,j))="E" Or Cstr(otablere.value(i,j))="A" Then
　　strmsg$=otablere.value(i,3)
　　AddDeliveryInfo=0
　　Goto Passvalidation
　　End If
　　Next
　　Next
　　Set OCom=ofun.add("BAPI_TRANSACTION_COMMIT")
　　ocom.exports("WAIT")="X"
　　Ocom.call
　　REM Get PO No
　　Stop
　　Set pono=opo.imports("PURCHASEORDER")
　　doc.PONO=PONO.VALUE
　　Call Change_PO_Header_TEXT(ofun,doc)
　　Msgbox "The PO - '" & doc.PONo(0) & "' has been created in SAP." & Chr(13) & "Please kindly go to SAP to make up the other data.",0+64,db.title
　　t$=Format$(Now,"yyyy/mm/dd hh:mm AM/PM" ) & " Created PO - " & doc.pono(0) & " in SAP " & " by " & s.commonusername
　　doc.historylog=Evaluate(|historylog : ("| & t$ & |")|,doc)
　　doc.step=4
　　doc.status="PO Created in SAP"
　　If uidoc.editmode=True Then
　　Call uidoc.save
　　Else
　　Call doc.save(False,True)
　　End If
　　Call uidoc.close
　　Call ws.EditDocument (False,doc)
　　Goto Logoff_SAP
　　Passvalidation:
　　If AddDeliveryInfo=0 Then
　　Msgbox "The Purchase Order cannot be created in SAP system on the following reason :" &_
　　Chr(13) & Chr(13) & strmsg$ & Chr(13) & Chr(13) & "please kindly contact db owner for help.",0+16,"Reminder"
　　Goto errorhandle
　　End If
　　ErrorHandle:
　　sMessage = "Error in Initialize routine " & Str(Err) & ": " & Error$
　　GetSAPNumber="Error"
　　Logoff_SAP:
　　Set opo=Nothing
　　Set oPOr=Nothing
　　Call ofun.connection.logoff()
　　End Sub