Version: 1.4
Generated: 2025-10-30
Document Iteration: 6
Best reliability: give the AI this plain-text URL:
https://clarionproseries.com/ai/qbai-primer.txt
Then ask for your task, for example:
Write Clarion code using QBAI to send a CustomerQuery for Name and ListID, then call QBTools.ShowXMLViewer.
This is the Clarion QuickBooks Wrapper QBAI primer: https://clarionproseries.com/ai/qbai-primer.txt Please read and use this as context for the next prompt. Confirm when loaded.
QBAI.Init('CustomerQuery') without the Rq suffix.QBTools.ShowXMLViewer().QBAI.Init('CustomerQuery')
QBAI.AddTag('IncludeRetElement', 'Name')
QBAI.AddTag('IncludeRetElement', 'ListID')
ResultCode = QBAI.SendRequest()
IF ResultCode = 0 AND QBParser.ValidateResponse()
QBTools.ShowXMLViewer()
END
QBAI.Init('CustomerAdd')
QBAI.AddGroupStart('CustomerAdd')
QBAI.AddTag('Name', 'AAA Clarion Test Customer')
QBAI.AddTag('CompanyName', 'AAA Clarion Customer Company')
QBAI.AddTag('Phone', '555-123-4567')
QBAI.AddTag('Email', 'support@example.com')
QBAI.AddTag('Notes', 'Customer created via Clarion QBWrapper')
QBAI.AddGroupEnd()
ResultCode# = QBAI.SendRequest()
IF ResultCode# = 0 AND QBParser.ValidateResponse()
StatusCode# = QBSessionMgr.ResponseStatusCode
StatusMessage# = QBSessionMgr.ResponseStatusMessage
ListID# = QBAI.GetField('ListID')
MESSAGE('Customer Add Result:' & |
'<13,10>Status Code: ' & StatusCode# & |
'<13,10>Message: ' & CLIP(StatusMessage#) & |
'<13,10>ListID: ' & CLIP(ListID#), 'Success', ICON:Exclamation)
END
QBTools.ShowXMLViewer().(c) 2025 Clarion ProSeries by LANSRAD