Message:
: I have the following code to create a test record and it does not seem to work. Is there anything i am doing wrong in here. : Please Help : Call SAPLogon(Me) : 'Set sapCustomerAddressData = CreateObject("SAPTableFactoryCtrl.Table") : 'Set sapCustomerIDRange = CreateObject("SAPTableFactoryCtrl.Table") : Set boOrder = oBAPICtrl.GetSAPObject("SalesOrder") : 'Create the header : Set oOrderHeader = oBAPICtrl.DimAs(boOrder, _ : "CreateFromDat1", "OrderHeaderIn") : : oOrderHeader("DOC_TYPE") = "ZOR7" : oOrderHeader("SALES_ORG") = "NYSE" : oOrderHeader("DISTR_CHAN") = "N1" : oOrderHeader("DIVISION") = "N1" : oOrderHeader("REQ_DATE_H") = Format$(Date, "MM/DD/YYYY") : 'Create Object for Table - OrderItemsIn : Set otabItems = oBAPICtrl.DimAs(boOrder, _ : "CreateFromDat1", "OrderItemsIn") : 'Add a row into the table - OrderItemsIn : 'Only the mandatory fields are added. : otabItems.AppendRow : 'otabItems.Columns("ITM_NUMBER").Value(1) = "000010" : otabItems.Columns("MATERIAL").Value(1) = "000000000000000795" : otabItems.Columns("PLANT").Value(1) = "NYSE" : otabItems.Columns("REQ_QTY").Value(1) = "12345" : otabItems.Columns("SALES_UNIT").Value(1) = "EA" : 'Create Object for Table - OrderItemsIn : Set otabPartners = oBAPICtrl.DimAs(boOrder, _ : "CreateFromDat1", "OrderPartners") : 'Add a row into the table - OrderItemsIn : 'Only the mandatory fields are added. : otabPartners.AppendRow : otabPartners.Columns("PARTN_ROLE").Value(1) = "SP" : otabPartners.Columns("PARTN_NUMB").Value(1) = "0000059834" : 'Create the records appended to the object : boOrder.CreateFromDat1 OrderHeaderIn:=oOrderHeader, _ : OrderPartners:=otabPartners, _ : OrderItemsIn:=otabItems, _ : Return:=oReturn : : Stop