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