Author Topic: AR_Customer  (Read 2656 times)

0 Members and 1 Guest are viewing this topic.

John Spikowski

  • Posts: 52
AR_Customer
« on: December 20, 2017, 09:31:49 pm »
This BOI script example gets the first customer in the table / file and displays the selected columns.

Code: Script BASIC
  1. ' BOI - first customer - selected columns
  2.  
  3. IMPORT BOI.sbi
  4.  
  5. oscript = BOI::CREATE(:SET, "ProvideX.Script")
  6. BOI::CBN oScript, "Init", :CALL, "C:\\Sage\\Sage 100 Advanced ERP\\MAS90\\HOME"
  7. osession = BOI::CBN(oscript, "NewObject", :SET, "SY_Session")
  8. BOI::CBN osession, "nSetUser", :CALL, "JRS", "MyPassword"
  9. BOI::CBN osession, "nsetcompany", :CALL, "ABC"
  10. BOI::CBN osession, "nSetDate", :CALL, "A/R", "20171218"
  11. BOI::CBN osession, "nSetModule", :CALL, "A/R"
  12. ocust = BOI::CBN(oscript, "NewObject", :SET, "AR_Customer_svc", osession)
  13. BOI::CBN ocust, "nMoveFirst"
  14. CustomerNo$ = BOI::CBN(ocust, "sCustomerNo", :GET)
  15. CustomerName$ = BOI::CBN(ocust, "sCustomerName", :GET)
  16. City$ = BOI::CBN(ocust, "sCity", :GET)
  17. State$ = BOI::CBN(ocust, "sState", :GET)
  18. TelephoneNo$ = BOI::CBN(ocust, "sTelephoneNo", :GET)
  19. BOI::CBN ocust, "DropObject"
  20. BOI::CBN osession, "DropObject"
  21. BOI::RELEASE oscript
  22.  
  23. PRINT "Customer:  ", CustomerNo$, "  ", CustomerName$, "  ", City$, "  ", State$, "  ", TelephoneNo$, "\n"
  24.  

Output

C:\ScriptBASIC\examples>scriba firstcust.sb
Customer:  ABF  American Business Futures  Milwaukee  WI  (414) 555-4787

C:\ScriptBASIC\examples>


« Last Edit: January 30, 2018, 02:41:44 pm by John Spikowski »

John Spikowski

  • Posts: 52
AR_Customer - Read Record
« Reply #1 on: December 20, 2017, 09:37:22 pm »
This example returns the table column names and the associated data for all columns in AR_Customer.

Code: Script BASIC
  1. ' Script BASIC BOI - READ AR_Customer RECORD
  2.  
  3. IMPORT BOI.sbi
  4.  
  5. oscript = BOI::CREATE(:SET, "ProvideX.Script")
  6. BOI::CBN oScript, "Init", :CALL, "C:\\Sage\\Sage 100 Advanced ERP\\MAS90\\HOME"
  7. osession = BOI::CBN(oscript, "NewObject", SET, "SY_Session")
  8. BOI::CBN osession, "nSetUser", :CALL, "JRS", "MyPassword"
  9. BOI::CBN osession, "nsetcompany", :CALL, "ABC"
  10. BOI::CBN osession, "nSetDate", :CALL, "A/R", "20171218"
  11. BOI::CBN osession, "nSetModule", :CALL, "A/R"
  12. ocust = BOI::CBN(oscript, "NewObject", :SET, "AR_Customer_svc", osession)
  13.  
  14. BOI::CBN ocust, "nMoveFirst"
  15. iolist = BOI::CBN(ocust, "scIOList", :GET)
  16. BOI::CBN ocust, "nGetRecord", :CALL, recdata, iolist
  17.  
  18. BOI::CBN ocust, "DropObject"
  19. BOI::CBN osession, "DropObject"
  20. BOI::RELEASE oscript
  21.  
  22. SPLITA iolist BY "`" TO iolist_array
  23. SPLITA recdata BY "`" TO recdata_array
  24.  
  25. FOR x = 0 TO UBOUND(iolist_array)
  26.   PRINT iolist_array[x] & STRING(30 - LEN(iolist_array[x]), " "),"| ",recdata_array[x],"\n"
  27. NEXT
  28.  

Output

C:\ScriptBASIC\examples>scriba custrec.sb
ARDIVISIONNO$                 | 01
CUSTOMERNO$                   | ABF
CUSTOMERNAME$                 | American Business Futures
ADDRESSLINE1$                 | 2131 N. 14th Street
ADDRESSLINE2$                 | Suite 100
ADDRESSLINE3$                 | Accounting Department
CITY$                         | Milwaukee
STATE$                        | WI
ZIPCODE$                      | 53205-1204
COUNTRYCODE$                  | USA
TELEPHONENO$                  | (414) 555-4787
TELEPHONEEXT$                 | 219
FAXNO$                        |
EMAILADDRESS$                 | artie@sage.sample.com
URLADDRESS$                   | www.abf.com
EBMENABLED$                   | Y
EBMCONSUMERUSERID$            |
BATCHFAX$                     | N
DEFAULTCREDITCARDPMTTYPE$     |
CONTACTCODE$                  | ARTIE JOHN
SHIPMETHOD$                   | UPS BLUE
TAXSCHEDULE$                  | WI MILMIL
TAXEXEMPTNO$                  |
TERMSCODE$                    | 01
SALESPERSONDIVISIONNO$        | 01
SALESPERSONNO$                | 0100
SALESPERSONDIVISIONNO2$       |
SALESPERSONNO2$               |
SALESPERSONDIVISIONNO3$       |
SALESPERSONNO3$               |
SALESPERSONDIVISIONNO4$       |
SALESPERSONNO4$               |
SALESPERSONDIVISIONNO5$       |
SALESPERSONNO5$               |
COMMENT$                      | Call Ed for credit approval.
SORTFIELD$                    | AMER
TEMPORARYCUSTOMER$            |
CUSTOMERSTATUS$               | A
INACTIVEREASONCODE$           |
OPENITEMCUSTOMER$             | Y
RESIDENTIALADDRESS$           | N
STATEMENTCYCLE$               | M
PRINTDUNNINGMESSAGE$          | Y
USESAGECLOUDFORINVPRINTING$   | N
CUSTOMERTYPE$                 | A2
PRICELEVEL$                   | 1
DATELASTACTIVITY$             | 20200531
DATELASTPAYMENT$              | 20200531
DATELASTSTATEMENT$            | 20200531
DATELASTFINANCECHRG$          | 20200430
DATELASTAGING$                | 20200531
DEFAULTITEMCODE$              | /WIDGET
DEFAULTCOSTCODE$              |
DEFAULTCOSTTYPE$              |
CREDITHOLD$                   | N
PRIMARYSHIPTOCODE$            | 2
DATEESTABLISHED$              | 20190101
CREDITCARDGUID$               |
DEFAULTPAYMENTTYPE$           |
EMAILSTATEMENTS$              | N
NUMBEROFINVTOUSEINCALC        | 6
AVGDAYSPAYMENTINVOICE         | 4
AVGDAYSOVERDUE                | 0
CUSTOMERDISCOUNTRATE          | 0
SERVICECHARGERATE             | 1.5
CREDITLIMIT                   | 120000
LASTPAYMENTAMT                | 864.25
HIGHESTSTMNTBALANCE           | 5732.36
UNPAIDSERVICECHRG             | 43.89
BALANCEFORWARD                | 0
CURRENTBALANCE                | 3252.38
AGINGCATEGORY1                | 1222.58
AGINGCATEGORY2                | 1257.4
AGINGCATEGORY3                | 0
AGINGCATEGORY4                | 0
OPENORDERAMT                  | 8422.64
RETENTIONCURRENT              | 0
RETENTIONAGING1               | 0
RETENTIONAGING2               | 0
RETENTIONAGING3               | 0
RETENTIONAGING4               | 0
SPLITCOMMRATE2                | 0
SPLITCOMMRATE3                | 0
SPLITCOMMRATE4                | 0
SPLITCOMMRATE5                | 0
DATECREATED$                  | 20060614
TIMECREATED$                  | 10.74974
USERCREATEDKEY$               | 0000000000
DATEUPDATED$                  | 20141104
TIMEUPDATED$                  | 7.52484
USERUPDATEDKEY$               | 0000000000

C:\ScriptBASIC\examples>

« Last Edit: January 30, 2018, 02:42:51 pm by John Spikowski »

John Spikowski

  • Posts: 52
AR_Customer - By KEY Value
« Reply #2 on: December 24, 2017, 10:24:58 pm »
I'm trying to avoid having to instantiate AR_Customer_bus as it's so huge. For reading the AR_Customer master I just use the AR_Customer_svc object and use the Find() method to set the key value I wish.

Code: Script BASIC
  1. ' Script BASIC BOI - READ AR_Customer RECORD
  2.  
  3. IMPORT BOI.sbi
  4.  
  5. oscript = BOI::CREATE(:SET, "ProvideX.Script")
  6. BOI::CBN oScript, "Init", :CALL, "C:\\Sage\\Sage 100 Advanced ERP\\MAS90\\HOME"
  7. osession = BOI::CBN(oscript, "NewObject", :SET, "SY_Session")
  8. BOI::CBN osession, "nSetUser", :CALL, "JRS", "MyPassword"
  9. BOI::CBN osession, "nsetcompany", :CALL, "ABC"
  10. BOI::CBN osession, "nSetDate", :CALL, "A/R", "20171218"
  11. BOI::CBN osession, "nSetModule", :CALL, "A/R"
  12. ocust = BOI::CBN(oscript, "NewObject", :SET, "AR_Customer_svc", osession)
  13. BOI::CBN ocust,"nFind", :CALL, "02ATOZ"
  14. iolist = BOI::CBN(ocust, "scIOList", :GET)
  15. BOI::CBN ocust, "nGetRecord", :CALL, recdata, iolist
  16.  
  17. BOI::CBN ocust, "DropObject"
  18. BOI::CBN osession, "DropObject"
  19. BOI::RELEASE oscript
  20.  
  21. SPLITA iolist BY "`" TO iolist_array
  22. SPLITA recdata BY "`" TO recdata_array
  23.  
  24. FOR x = 0 TO UBOUND(iolist_array)
  25.   PRINT iolist_array[x] & STRING(30 - LEN(iolist_array[x]), " "),"| ",recdata_array[x],"\n"
  26. NEXT
  27.  

Output

C:\ScriptBASIC\examples>scriba custrec.sb
ARDIVISIONNO$                 | 02
CUSTOMERNO$                   | ATOZ
CUSTOMERNAME$                 | A To Z Carpet Supply
ADDRESSLINE1$                 | 1805 Newport Blvd
ADDRESSLINE2$                 |
ADDRESSLINE3$                 |
CITY$                         | Newport Beach
STATE$                        | CA
ZIPCODE$                      | 92661
COUNTRYCODE$                  |
TELEPHONENO$                  | (714) 555-2231
TELEPHONEEXT$                 |
FAXNO$                        |
EMAILADDRESS$                 |
URLADDRESS$                   |
EBMENABLED$                   | Y
EBMCONSUMERUSERID$            |
BATCHFAX$                     | N
DEFAULTCREDITCARDPMTTYPE$     |
CONTACTCODE$                  | ALLEN ABLE
SHIPMETHOD$                   | UPS BLUE
TAXSCHEDULE$                  | CA
TAXEXEMPTNO$                  |
TERMSCODE$                    | 01
SALESPERSONDIVISIONNO$        | 02
SALESPERSONNO$                | 0400
SALESPERSONDIVISIONNO2$       |
SALESPERSONNO2$               |
SALESPERSONDIVISIONNO3$       |
SALESPERSONNO3$               |
SALESPERSONDIVISIONNO4$       |
SALESPERSONNO4$               |
SALESPERSONDIVISIONNO5$       |
SALESPERSONNO5$               |
COMMENT$                      |
SORTFIELD$                    | ATOZCARPET
TEMPORARYCUSTOMER$            |
CUSTOMERSTATUS$               | A
INACTIVEREASONCODE$           |
OPENITEMCUSTOMER$             | Y
RESIDENTIALADDRESS$           | N
STATEMENTCYCLE$               | M
PRINTDUNNINGMESSAGE$          | Y
USESAGECLOUDFORINVPRINTING$   | N
CUSTOMERTYPE$                 | A4
PRICELEVEL$                   | 1
DATELASTACTIVITY$             | 20200531
DATELASTPAYMENT$              | 20200521
DATELASTSTATEMENT$            | 20200531
DATELASTFINANCECHRG$          |
DATELASTAGING$                | 20200531
DEFAULTITEMCODE$              |
DEFAULTCOSTCODE$              |
DEFAULTCOSTTYPE$              |
CREDITHOLD$                   | N
PRIMARYSHIPTOCODE$            |
DATEESTABLISHED$              | 20190101
CREDITCARDGUID$               |
DEFAULTPAYMENTTYPE$           |
EMAILSTATEMENTS$              | N
NUMBEROFINVTOUSEINCALC        | 2
AVGDAYSPAYMENTINVOICE         | 67
AVGDAYSOVERDUE                | 37
CUSTOMERDISCOUNTRATE          | 0
SERVICECHARGERATE             | 1.5
CREDITLIMIT                   | 25000
LASTPAYMENTAMT                | 5064.2
HIGHESTSTMNTBALANCE           | 8732.4
UNPAIDSERVICECHRG             | 0
BALANCEFORWARD                | 0
CURRENTBALANCE                | 8732.4
AGINGCATEGORY1                | 0
AGINGCATEGORY2                | 0
AGINGCATEGORY3                | 0
AGINGCATEGORY4                | 0
OPENORDERAMT                  | 169.18
RETENTIONCURRENT              | 0
RETENTIONAGING1               | 0
RETENTIONAGING2               | 0
RETENTIONAGING3               | 0
RETENTIONAGING4               | 0
SPLITCOMMRATE2                | 0
SPLITCOMMRATE3                | 0
SPLITCOMMRATE4                | 0
SPLITCOMMRATE5                | 0
DATECREATED$                  | 20060614
TIMECREATED$                  | 10.74974
USERCREATEDKEY$               | 0000000000
DATEUPDATED$                  | 20141104
TIMEUPDATED$                  | 7.52484
USERUPDATEDKEY$               | 0000000000

C:\ScriptBASIC\examples>
« Last Edit: January 30, 2018, 02:43:52 pm by John Spikowski »

John Spikowski

  • Posts: 52
AR_Customer List
« Reply #3 on: December 25, 2017, 05:19:01 pm »
This example shows how to read the AR_Customer table/file and selectively printing columns/fields. The GetValue() doesn't do any formating and just does a VIS/VIN of the passed variable name. Getting the column name directly as a property seems more efficient.

Code: Script BASIC
  1. ' Script BASIC BOI - READ AR_Customer RECORD
  2.  
  3. IMPORT BOI.sbi
  4.  
  5. oscript = BOI::CREATE(:SET, "ProvideX.Script")
  6. BOI::CBN oScript, "Init", :CALL, "C:\\Sage\\Sage 100 Advanced ERP\\MAS90\\HOME"
  7. osession = BOI::CBN(oscript, "NewObject", :SET, "SY_Session")
  8. BOI::CBN osession, "nSetUser", :CALL, "JRS", "MyPassword"
  9. BOI::CBN osession, "nsetcompany", :CALL, "ABC"
  10. BOI::CBN osession, "nSetDate", :CALL, "A/R", "20171218"
  11. BOI::CBN osession, "nSetModule", :CALL, "A/R"
  12. ocust = BOI::CBN(oscript, "NewObject", :SET, "AR_Customer_svc",  osession)
  13.  
  14. BOI::CBN ocust,"nMoveFirst"
  15. DO UNTIL BOI::CBN(ocust, "nEOF", :GET)
  16.   PRINT BOI::BB_PAD(BOI::CBN(ocust, "sCUSTOMERNO", :GET), 7, "R", " "), " | ", _
  17.         BOI::BB_PAD(BOI::CBN(ocust, "sCUSTOMERNAME", :GET), 30, "R", " "), " | ", _
  18.         BOI::CBN(ocust, "sTELEPHONENO", :GET), "\n"
  19.   BOI::CBN ocust, "nMoveNext"
  20. LOOP
  21.  
  22. BOI::CBN ocust, "DropObject"
  23. BOI::CBN osession, "DropObject"
  24. BOI::RELEASE oscript
  25.  

Output

C:\ScriptBASIC\examples>scriba custlist.sb
ABF     | American Business Futures      | (414) 555-4787
ABS     | ABS - Sage cloud for invoices  | (949) 555-7814
AVNET   | Avnet Processing Corp          | (414) 555-2635
BRESLIN | Breslin Parts Supply           | (414) 555-9654
HILLSB  | Hillsboro Service Center       | (414) 555-6599
INACTIV | Inactive Customer **INACTIVE** | (414) 555--8747
MAVRK   | Maverick Papers                | (312) 861-1200
RSSUPPL | R & S Supply Corp.             | (414) 555-5587
SHEPARD | Shepard Motorworks             | (414) 555-6544
ALLENAP | Allen's Appliance Repair       | (714) 555-3121
AMERCON | American Concrete Service      | (714) 555-2134
ATOZ    | A To Z Carpet Supply           | (714) 555-2231
AUTOCR  | Autocraft Accessories          | (714) 555-0101
BAYPYRO | Bay Pyrotronics Corp.          | (415) 555-9654
CAPRI   | Capri Sailing Ships            | (714) 555-4421
CUSTOM  | Custom Craft Products          | (714) 555-7848
GREALAR | Greater Alarm Company          | (714) 555-5531
JELLCO  | Jellco Packing                 | (714) 555-9451
ORANGE  | Orange Door & Window Co.       | (714) 555-7823

C:\ScriptBASIC\examples>



« Last Edit: January 30, 2018, 02:44:56 pm by John Spikowski »

John Spikowski

  • Posts: 52
AR_Customer - ODBC
« Reply #4 on: December 25, 2017, 06:05:06 pm »
Here is an ODBC example that does what the BOI example above does.

Code: Script BASIC
  1. ' ODBC - AR_Customer Contact List
  2.  
  3. IMPORT odbc.sbi
  4.  
  5. dbh = odbc::RealConnect("Sage100", "", "")
  6.  
  7. odbc::query(dbh, "SELECT CUSTOMERNO, CUSTOMERNAME, TELEPHONENO FROM AR_Customer")
  8.  
  9. WHILE odbc::FetchHash(dbh, dbcol)
  10.   PRINT dbcol{"CUSTOMERNO"}, STRING(7 - LEN(dbcol{"CUSTOMERNO"}), " "), " | ", _
  11.         dbcol{"CUSTOMERNAME"}, STRING(30 - LEN(dbcol{"CUSTOMERNAME"}), " "), " | ", _
  12.         dbcol{"TELEPHONENO"}, "\n"
  13. WEND
  14.  
  15. odbc::Close(dbh)
  16.  

Output

C:\ScriptBASIC\examples>scriba custodbc.sb
ABF     | American Business Futures      | (414) 555-4787
ABS     | ABS - Sage cloud for invoices  | (949) 555-7814
AVNET   | Avnet Processing Corp          | (414) 555-2635
BRESLIN | Breslin Parts Supply           | (414) 555-9654
HILLSB  | Hillsboro Service Center       | (414) 555-6599
INACTIV | Inactive Customer **INACTIVE** | (414) 555--8747
MAVRK   | Maverick Papers                | (312) 861-1200
RSSUPPL | R & S Supply Corp.             | (414) 555-5587
SHEPARD | Shepard Motorworks             | (414) 555-6544
ALLENAP | Allen's Appliance Repair       | (714) 555-3121
AMERCON | American Concrete Service      | (714) 555-2134
ATOZ    | A To Z Carpet Supply           | (714) 555-2231
AUTOCR  | Autocraft Accessories          | (714) 555-0101
BAYPYRO | Bay Pyrotronics Corp.          | (415) 555-9654
CAPRI   | Capri Sailing Ships            | (714) 555-4421
CUSTOM  | Custom Craft Products          | (714) 555-7848
GREALAR | Greater Alarm Company          | (714) 555-5531
JELLCO  | Jellco Packing                 | (714) 555-9451
ORANGE  | Orange Door & Window Co.       | (714) 555-7823

C:\ScriptBASIC\examples>

« Last Edit: December 25, 2017, 08:50:49 pm by John Spikowski »

John Spikowski

  • Posts: 52
AR_Customer - New Customer
« Reply #5 on: December 27, 2017, 10:00:53 pm »
This example creates a new AR_Customer record and then displays the newly created record. Notice the fields that get set by default.

Code: Script BASIC
  1. ' BOI - New AR_Customer
  2.  
  3. IMPORT BOI.sbi
  4.  
  5. oscript = BOI::CREATE(:SET, "ProvideX.Script")
  6. BOI::CBN oScript, "Init", :CALL, "C:\\Sage\\Sage 100 Advanced ERP\\MAS90\\HOME"
  7. osession = BOI::CBN(oscript, "NewObject", :SET, "SY_Session")
  8. BOI::CBN osession, "nSetUser", :CALL, "JRS", "MyPassword"
  9. BOI::CBN osession, "nsetcompany", :CALL, "ABC"
  10. BOI::CBN osession, "nSetModule", :CALL, "A/R"
  11. mdate = BOI::CBN(osession, "sModuleDate", :GET)
  12. BOI::CBN osession, "nSetDate", :CALL, "A/R", mdate
  13. BOI::CBN(osession, "nSetProgram", :CALL, BOI::CBN(osession, "nLookupTask", :CALL, "AR_Customer_ui"))
  14. ocust = BOI::CBN(oscript, "NewObject", :SET, "AR_Customer_bus", osession)
  15. BOI::CBN ocust, "nSetKeyValue", :CALL, "ARDIVISIONNO$", "01"
  16. BOI::CBN ocust, "nSetKeyValue", :CALL, "CUSTOMERNO$", "SAGE"
  17. BOI::CBN ocust, "nSetKey"
  18. BOI::CBN ocust, "nSetValue", :CALL, "CUSTOMERNAME$", "Sage North America"
  19. BOI::CBN ocust, "nSetValue", :CALL, "ADDRESSLINE1$", "271 17th Street Northwest"
  20. BOI::CBN ocust, "nSetValue", :CALL, "CITY$", "Atlanta"
  21. BOI::CBN ocust, "nSetValue", :CALL, "STATE$", "GA"
  22. BOI::CBN ocust, "nSetValue", :CALL, "ZIPCODE$", "30363"
  23. BOI::CBN ocust, "nSetValue", :CALL, "COUNTRYCODE$", "USA"
  24. BOI::CBN ocust, "nSetValue", :CALL, "SALESPERSONDIVISIONNO$", "01"
  25. BOI::CBN ocust, "nSetValue", :CALL, "SALESPERSONNO$", "0100"
  26. BOI::CBN ocust, "nWrite"
  27.  
  28. BOI::CBN ocust,"nFind", :CALL, "01SAGE"
  29. iolist = BOI::CBN(ocust, "scIOList", :GET)
  30. BOI::CBN ocust, "nGetRecord", :CALL, recdata, iolist
  31.  
  32. BOI::CBN ocust, "DropObject"
  33. BOI::CBN osession, "DropObject"
  34. BOI::RELEASE oscript
  35.  
  36. SPLITA iolist BY "`" TO iolist_array
  37. SPLITA recdata BY "`" TO recdata_array
  38.  
  39. FOR x = 0 TO UBOUND(iolist_array)
  40.   PRINT iolist_array[x] & STRING(30 - LEN(iolist_array[x]), " "),"| ",recdata_array[x],"\n"
  41. NEXT
  42.  

Output

C:\ScriptBASIC\examples>scriba newcust.sb
ARDIVISIONNO$                 | 01
CUSTOMERNO$                   | SAGE
CUSTOMERNAME$                 | Sage North America
ADDRESSLINE1$                 | 271 17th Street Northwest
ADDRESSLINE2$                 |
ADDRESSLINE3$                 |
CITY$                         | Atlanta
STATE$                        | GA
ZIPCODE$                      | 30363
COUNTRYCODE$                  | USA
TELEPHONENO$                  |
TELEPHONEEXT$                 |
FAXNO$                        |
EMAILADDRESS$                 |
URLADDRESS$                   |
EBMENABLED$                   | N
EBMCONSUMERUSERID$            |
BATCHFAX$                     | N
DEFAULTCREDITCARDPMTTYPE$     |
CONTACTCODE$                  |
SHIPMETHOD$                   |
TAXSCHEDULE$                  |
TAXEXEMPTNO$                  |
TERMSCODE$                    | 00
SALESPERSONDIVISIONNO$        | 01
SALESPERSONNO$                | 0100
SALESPERSONDIVISIONNO2$       |
SALESPERSONNO2$               |
SALESPERSONDIVISIONNO3$       |
SALESPERSONNO3$               |
SALESPERSONDIVISIONNO4$       |
SALESPERSONNO4$               |
SALESPERSONDIVISIONNO5$       |
SALESPERSONNO5$               |
COMMENT$                      |
SORTFIELD$                    |
TEMPORARYCUSTOMER$            |
CUSTOMERSTATUS$               | A
INACTIVEREASONCODE$           |
OPENITEMCUSTOMER$             | Y
RESIDENTIALADDRESS$           | N
STATEMENTCYCLE$               | M
PRINTDUNNINGMESSAGE$          | Y
USESAGECLOUDFORINVPRINTING$   | N
CUSTOMERTYPE$                 |
PRICELEVEL$                   |
DATELASTACTIVITY$             |
DATELASTPAYMENT$              |
DATELASTSTATEMENT$            |
DATELASTFINANCECHRG$          |
DATELASTAGING$                |
DEFAULTITEMCODE$              |
DEFAULTCOSTCODE$              |
DEFAULTCOSTTYPE$              |
CREDITHOLD$                   | N
PRIMARYSHIPTOCODE$            |
DATEESTABLISHED$              | 20171227
CREDITCARDGUID$               |
DEFAULTPAYMENTTYPE$           | CHECK
EMAILSTATEMENTS$              | N
NUMBEROFINVTOUSEINCALC        | 0
AVGDAYSPAYMENTINVOICE         | 0
AVGDAYSOVERDUE                | 0
CUSTOMERDISCOUNTRATE          | 0
SERVICECHARGERATE             | 1.5
CREDITLIMIT                   | 0
LASTPAYMENTAMT                | 0
HIGHESTSTMNTBALANCE           | 0
UNPAIDSERVICECHRG             | 0
BALANCEFORWARD                | 0
CURRENTBALANCE                | 0
AGINGCATEGORY1                | 0
AGINGCATEGORY2                | 0
AGINGCATEGORY3                | 0
AGINGCATEGORY4                | 0
OPENORDERAMT                  | 0
RETENTIONCURRENT              | 0
RETENTIONAGING1               | 0
RETENTIONAGING2               | 0
RETENTIONAGING3               | 0
RETENTIONAGING4               | 0
SPLITCOMMRATE2                | 0
SPLITCOMMRATE3                | 0
SPLITCOMMRATE4                | 0
SPLITCOMMRATE5                | 0
DATECREATED$                  | 20171227
TIMECREATED$                  | 21.83698
USERCREATEDKEY$               | 0000000003
DATEUPDATED$                  | 20171227
TIMEUPDATED$                  | 21.83698
USERUPDATEDKEY$               | 0000000003

C:\ScriptBASIC\examples>



« Last Edit: January 30, 2018, 02:46:38 pm by John Spikowski »