{"text_format":"dbase-jsonl-2026-09-30","columns":[{"name":"LINE","type":"character","width":254},{"name":"_NullFlags","type":"null_flags","width":1,"hidden":true,"read":false}],"n_rows":168,"rows_kept":168,"cut":false,"deleted_skipped":0,"read_ended":"whole","bounds":"16MiB/16384/4096/first_that_fit","version":"visual_foxpro","encoding_class":"enc_single_byte","reader":"statdb_count/9"}
[null,null]
["<><><><><><><><><><><><><><><><><><><><><><><><><>",null]
["<>                                              <>",null]
["<>   Program to link to UBS Accounting System   <>",null]
["<>                                              <>",null]
["<><><><><><><><><><><><><><><><><><><><><><><><><>",null]
[null,null]
["Welcome you to write program to link to UBS Accounting System. The process",null]
["is very simple. It consists of 2 interface programs, X and Y as indicated",null]
["below.",null]
[null,null]
["+-------------------+     +-------------------+     +-------------------+",null]
["|     Your Data     |  X  |    GLPOST9.DBF    |  Y  |  UBS Accounting   |",null]
["+-------------------+ ==> +-------------------+ ==> +-------------------+",null]
["an intermediate file",null]
[null,null]
["What you have to do is to write an interface program X that will update",null]
["the GLPOST9.DBF.",null]
[null,null]
["Normally, one record in your data file will generate 2 records in GLPOST9.",null]
["The second interface program i.e. Y is handled by UBS Accounting System.",null]
["The program will update all necessary data files in UBS Accounting.",null]
[null,null]
["Example",null]
["^^^^^^^",null]
["Assuming that you have a billing system for a clinic and would like to",null]
["update the UBS Accounting.",null]
[null,null]
["For every bill in your clinic system, you need to append 2 records into",null]
["the accounting system. The following example shows how 4 bills (4 records)",null]
["in the clinic system generate 8 transactions (8 records) in GLPOST9.DBF.",null]
[null,null]
["+-------------------+     +-------------------+     +-------------------+",null]
["|     BILLS.DBF     |  X  |    GLPOST9.DBF    |  Y  |    GLPOST.DBF     |",null]
["+-------------------+ ==> +-------------------+ ==> +-------------------+",null]
["clinic data files         intermediate file        UBS Accounting files",null]
[null,null]
["Please refer to the following sample data files",null]
[null,null]
["1) File structure for BILLS.DBF",null]
["2) Records in BILLS.DBF",null]
["3) Fields in GLPOST9 required to be updated",null]
["4) Interface program X",null]
["5) Records in GLPOST9",null]
[null,null]
["FILE STRUCTURE : BILLS.DBF",null]
["^^^^^^^^^^^^^^^^^^^^^^^^^^",null]
["Field  Field Name      Type           Width     Dec",null]
["1  PERIOD          Numeric            2",null]
["2  DATE            Date               8",null]
["3  CODE            Character          8",null]
["4  BILLNO          Character          8",null]
["5  TREATMENT       Character         20",null]
["6  AMOUNT          Numeric           12       2",null]
[null,null]
["SAMPLE RECORDS IN FILE BILLS.DBF",null]
["^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^",null]
["PERIOD  DATE       CODE        BILLNO       TREATEMENT         AMOUNT",null]
["1  02/01/94   3000/A01    B112         OPERATION          150.00",null]
["1  03/02/94   3000/B01    B113         MEDICINE            20.00",null]
["1  04/03/94   3000/A01    B114         MEDICINE            15.00",null]
["1  05/04/94   3000/B01    B115         OPERATION          200.00",null]
[null,null]
["FIELDS IN GLPOST9.DBF THAT ARE REQUIRED TO BE UPDATED",null]
[null,null]
["FIELD NO.     FIELD NAME    REMARK",null]
["^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^",null]
["1.        FPERIOD       PERIOD 1 - 18",null]
["4.        ACCNO         eg DEBTOR CODE, SALES A/C",null]
["5.        REFERENCE     ie BILL NO.",null]
["7.        DATE          TRANSACTION DATE",null]
["8.        DESP          DESCRIPTION TO APPEAR ON LEDGER",null]
["11.        DEBITAMT      AMOUNT YOU WANT TO DEBIT",null]
["12.        CREDITAMT     AMOUNT YOU WANT TO CREDIT",null]
["14.        ARAPTYPE      I = INVOICE        C = CREDIT NOTE",null]
["D = DEBIT NOTE     P = PAYMENT",null]
["R = RETURN CHEQUE  H = CASH SALE",null]
["15.        AGE           0 FOR INVOICE, 11 FOR PAYMENT",null]
[null,null]
["****************************************************",null]
["*  SAMPLE PROGRAM THAT ADD RECORDS TO GLPOST9.DBF  *",null]
["*  5000/000 IS THE SALES ACCOUNT NO.               *",null]
["****************************************************",null]
["SET TALK OFF",null]
["SELECT A",null]
["USE BILLS",null]
["SELECT B",null]
["USE GLPOST9",null]
["SELECT A",null]
["SALESACC = \"5000/000\"",null]
["DO WHILE .NOT. EOF()",null]
["SELECT B",null]
["APPEND BLANK",null]
["REPLACE FPERIOD   WITH A->PERIOD, ;",null]
["DATE      WITH A->DATE,   ;",null]
["ACCNO     WITH A->CODE,   ;",null]
["REFERENCE WITH A->BILLNO, ;",null]
["DESP      WITH A->TREATMENT",null]
["REPLACE DEBITAMT  WITH A->AMOUNT, ;",null]
["CREDITAMT WITH 0,         ;",null]
["ARAPTYPE  WITH \"I\",       ;",null]
["AGE       WITH 0",null]
["APPEND BLANK",null]
["REPLACE FPERIOD   WITH A->PERIOD, ;",null]
["DATE      WITH A->DATE,   ;",null]
["ACCNO     WITH SALESACC,  ;",null]
["REFERENCE WITH A->BILLNO, ;",null]
["DESP      WITH A->TREATMENT",null]
["REPLACE DEBITAMT  WITH 0,         ;",null]
["CREDITAMT WITH A->AMOUNT",null]
["SELECT A",null]
["SKIP",null]
["ENDDO",null]
["CLOSE DATABASES",null]
["****************************************************",null]
[null,null]
["DATAFLOW",null]
["^^^^^^^^",null]
["+----------------------------------------------------------+",null]
["|    BILLS.DBF     |            GLPOST9.DBF                |",null]
["|------------------+---------------------------------------|",null]
["| Code    Amount   |  Accno      Debitamt     Creditamt    |",null]
["|------------------+---------------------------------------|",null]
["| 3000/A01   150   |  3000/A01      150                    |",null]
["|                  |  5000/000                    150      |",null]
["|------------------+---------------------------------------|",null]
["| 3000/B01    20   |  3000/B01       20                    |",null]
["|                  |  5000/000                    150      |",null]
["|------------------+---------------------------------------|",null]
["| 3000/A01    15   |  3000/A01       15                    |",null]
["|                  |  5000/000                     15      |",null]
["|------------------+---------------------------------------|",null]
["| 3000/B01   200   |  3000/B01      200                    |",null]
["|                  |  5000/000                    200      |",null]
["+----------------------------------------------------------+",null]
[null,null]
["Records in GLPOST9 to be generated by your program",null]
["^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^",null]
["FPERIOD  DATE   ACCNO    REF   DESP       DEBITAMT  CREDITAMT  ARAPTYPE  AGE",null]
["1   02/01/94 3000/A01 B112  OPERATION    150.00      0.00       I      0",null]
["1   02/01/94 5000/000 B112  OPERATION      0.00    150.00       I      0",null]
["1   03/01/94 3000/B01 B113  MEDICINE      20.00      0.00       I      0",null]
["1   03/01/94 5000/000 B113  MEDICINE       0.00     20.00       I      0",null]
["1   04/01/94 3000/A01 B114  MEDICINE      15.00      0.00       I      0",null]
["1   04/01/94 5000/000 B114  MEDICINE       0.00     15.00       I      0",null]
["1   05/01/94 3000/B01 B115  OPERATION    200.00      0.00       I      0",null]
["1   05/01/94 5000/000 B115  OPERATION      0.00    200.00       I      0",null]
[null,null]
["Using Debtor & Creditor Files",null]
["^^^^^^^^^^^^^^^^^^^^^^^^^^^^^",null]
["(Please list out the file structure of both files)",null]
[null,null]
["File Name      Index Key       Index Tag         Index File",null]
["^^^^^^^^^      ^^^^^^^^^       ^^^^^^^^^         ^^^^^^^^^^",null]
["ARCUST         CUSTNO          CUSTNOI           ARCUST",null]
["NAME            NAMEI",null]
["APVEND         CUSTNO          CUSTNOI           APVEND",null]
["NAME            NAMEI",null]
[null,null]
["Program Codes",null]
["^^^^^^^^^^^^^",null]
["USE ARCUST",null]
["INDEX ON CUSTNO TAG CUSTNOI",null]
["INDEX ON NAME TAG NAMEI",null]
["USE APVEND",null]
["INDEX ON CUSTNO TAG CUSTNOI",null]
["INDEX ON NAME TAG NAMEI",null]
[null,null]