Home
> Uncategorized > Reading Sage Purchase Orders
Reading Sage Purchase Orders
Once again, another post about Sage. But – there’s virtually no information on the web about Sage Data Objects, so I thought, I’d fill that void with my findings…
Here’s code to read Sage Purchase Orders
Dim WS As SageDataObject90.WorkSpace
Dim ppOrder As SageDataObject90.PopRecord
Dim PiOrderLine As SageDataObject90.PopItem
Dim ppOrder As SageDataObject90.PopRecord
Dim PiOrderLine As SageDataObject90.PopItem
‘Create instance of Engine and Workspace
Dim SDO As New SageDataObject90.SDOEngine
Dim blnHasFoundCustomer As Boolean
Set WS = SDO.Workspaces.Add("Myconnection")
Dim SDO As New SageDataObject90.SDOEngine
Dim blnHasFoundCustomer As Boolean
Set WS = SDO.Workspaces.Add("Myconnection")
‘Connect to data files
WS.Connect SageLocation, SageUsername, SagePassword, "ThisIsUnique"
WS.Connect SageLocation, SageUsername, SagePassword, "ThisIsUnique"
‘Create an instance of InvoicePost & Record object’s
Set ppOrder = WS.CreateObject("PopRecord")
Set ppOrder = WS.CreateObject("PopRecord")
ppOrder.MoveFirst
Do
DoEvents
‘ ppOrder has the following fields
‘ACCOUNT_REF: CAN012
‘ADDRESS_1:76 DUNCRUN ROAD
‘ADDRESS_2: BALLARENA
‘ADDRESS_3: LIMAVADY
‘ADDRESS_4: BT49 OJD
‘ADDRESS_5:
‘AMOUNT_PREPAID:0
‘CARR_DEPT_NUMBER:0
‘CARR_NET:0
‘CARR_NOM_CODE:
‘CARR_TAX:0
‘CARR_TAX_CODE:0
‘CONSIGNMENT_REF:
‘CONTACT_NAME:
‘COURIER:1
‘CURRENCY:0
‘CURRENCY_USED:0
‘DEL_ADDRESS_1:
‘DEL_ADDRESS_2:
‘DEL_ADDRESS_3:
‘DEL_ADDRESS_4:
‘DEL_ADDRESS_5:
‘DELETED_FLAG:0
‘DELIVERY_DATE:
‘DELIVERY_NAME:
‘DISCOUNT_TYPE:0
‘DUE_DATE:
‘EURO_GROSS:126.63
‘EURO_RATE:1.407
‘EXTERNAL_USAGE:0
‘FIRST_ITEM:2
‘FOREIGN_GROSS:90
‘FOREIGN_RATE:1
‘GLOBAL_DEPT_NUMBER:0
‘INVOICE_NUMBER:
‘ITEMS_NET:90
‘ITEMS_TAX:0
‘NAME: G.CANNING
‘NOTES_1:
‘NOTES_2:
‘NOTES_3:
‘ORDER_DATE:2003/08/09
‘ORDER_NUMBER:1
‘ORDER_TYPE:0
‘PAYMENT_REF:
‘PAYMENT_TYPE:3
‘POSTED_CODE:1
‘PRINTED_CODE:0
‘SETTLEMENT_DISC_RATE:0
‘SETTLEMENT_DUE_DAYS:0
‘STATUS:8
‘SUPP_DISC_RATE:0
‘SUPP_ORDER_NUMBER:
‘SUPP_TEL_NUMBER:
‘TAKEN_BY: william
‘TOTAL_BYTES:0
Set PiOrderLine = ppOrder.Link
PiOrderLine.MoveFirst
Do
‘ PiOrderLine has the following fields
‘ ADD_DISC_RATE:0
‘ COMMENT_1:
‘COMMENT_2:
‘DELIVERY_DATE:2005/06/01
‘DEPT_NUMBER:3
‘DESCRIPTION: Mushrooms P / P
‘DISCOUNT_AMOUNT:0
‘DISCOUNT_RATE:0
‘FULL_NET_AMOUNT:36.72
‘INVOICE_NUMBER:13
‘ITEM_NUMBER:3
‘JOB_REFERENCE:
‘NET_AMOUNT:36.72
‘NEXT_ITEM:0
‘NOMINAL_CODE:4100
‘OFFSET:0
‘PREV_ITEM:0
‘QTY_ALLOCATED:0
‘QTY_DELIVERED:72
‘QTY_DESPATCH:0
‘QTY_INVOICED:72
‘QTY_ORDER:72
‘SERVICE_FILE: Mushrooms P / P
‘SERVICE_FILE_SIZE:864904
‘SERVICE_FLAG:0
‘SERVICE_ITEM_LINES:864904
‘STOCK_CODE: MUXX02
‘TAX_AMOUNT:0
‘TAX_CODE:7
‘TAX_FLAG:0
‘TAX_RATE:0
‘TEXT: Mushrooms P / P
‘UNIT_OF_SALE:Each
‘UNIT_PRICE:0.51
Loop Until Not PiOrderLine.MoveNext
End If
If ppOrder.IsEOF Then
Exit Do
Else
ppOrder.MoveNext
End If
Loop
WS.Disconnect
Do
DoEvents
‘ ppOrder has the following fields
‘ACCOUNT_REF: CAN012
‘ADDRESS_1:76 DUNCRUN ROAD
‘ADDRESS_2: BALLARENA
‘ADDRESS_3: LIMAVADY
‘ADDRESS_4: BT49 OJD
‘ADDRESS_5:
‘AMOUNT_PREPAID:0
‘CARR_DEPT_NUMBER:0
‘CARR_NET:0
‘CARR_NOM_CODE:
‘CARR_TAX:0
‘CARR_TAX_CODE:0
‘CONSIGNMENT_REF:
‘CONTACT_NAME:
‘COURIER:1
‘CURRENCY:0
‘CURRENCY_USED:0
‘DEL_ADDRESS_1:
‘DEL_ADDRESS_2:
‘DEL_ADDRESS_3:
‘DEL_ADDRESS_4:
‘DEL_ADDRESS_5:
‘DELETED_FLAG:0
‘DELIVERY_DATE:
‘DELIVERY_NAME:
‘DISCOUNT_TYPE:0
‘DUE_DATE:
‘EURO_GROSS:126.63
‘EURO_RATE:1.407
‘EXTERNAL_USAGE:0
‘FIRST_ITEM:2
‘FOREIGN_GROSS:90
‘FOREIGN_RATE:1
‘GLOBAL_DEPT_NUMBER:0
‘INVOICE_NUMBER:
‘ITEMS_NET:90
‘ITEMS_TAX:0
‘NAME: G.CANNING
‘NOTES_1:
‘NOTES_2:
‘NOTES_3:
‘ORDER_DATE:2003/08/09
‘ORDER_NUMBER:1
‘ORDER_TYPE:0
‘PAYMENT_REF:
‘PAYMENT_TYPE:3
‘POSTED_CODE:1
‘PRINTED_CODE:0
‘SETTLEMENT_DISC_RATE:0
‘SETTLEMENT_DUE_DAYS:0
‘STATUS:8
‘SUPP_DISC_RATE:0
‘SUPP_ORDER_NUMBER:
‘SUPP_TEL_NUMBER:
‘TAKEN_BY: william
‘TOTAL_BYTES:0
Set PiOrderLine = ppOrder.Link
PiOrderLine.MoveFirst
Do
‘ PiOrderLine has the following fields
‘ ADD_DISC_RATE:0
‘ COMMENT_1:
‘COMMENT_2:
‘DELIVERY_DATE:2005/06/01
‘DEPT_NUMBER:3
‘DESCRIPTION: Mushrooms P / P
‘DISCOUNT_AMOUNT:0
‘DISCOUNT_RATE:0
‘FULL_NET_AMOUNT:36.72
‘INVOICE_NUMBER:13
‘ITEM_NUMBER:3
‘JOB_REFERENCE:
‘NET_AMOUNT:36.72
‘NEXT_ITEM:0
‘NOMINAL_CODE:4100
‘OFFSET:0
‘PREV_ITEM:0
‘QTY_ALLOCATED:0
‘QTY_DELIVERED:72
‘QTY_DESPATCH:0
‘QTY_INVOICED:72
‘QTY_ORDER:72
‘SERVICE_FILE: Mushrooms P / P
‘SERVICE_FILE_SIZE:864904
‘SERVICE_FLAG:0
‘SERVICE_ITEM_LINES:864904
‘STOCK_CODE: MUXX02
‘TAX_AMOUNT:0
‘TAX_CODE:7
‘TAX_FLAG:0
‘TAX_RATE:0
‘TEXT: Mushrooms P / P
‘UNIT_OF_SALE:Each
‘UNIT_PRICE:0.51
Loop Until Not PiOrderLine.MoveNext
End If
If ppOrder.IsEOF Then
Exit Do
Else
ppOrder.MoveNext
End If
Loop
WS.Disconnect
Categories: Uncategorized
Comments (0)
Trackbacks (0)
Leave a comment
Trackback