Program drill-down
ABSA_BUYER_MAN
ABSA BUYER MAN. Type DSP, base table DEBTOR_MAST.
Field inventory
73
Live detail pulled from the database.
| Page | Seq | Table | Field | Type | Visible | Position | Logic snippet |
|---|---|---|---|---|---|---|---|
| 1 | 0.0 | Work 7 | I | 0 | 351, 457 | ||
| 1 | 0.0 | Label 9 | T | 0 | 41, 553 | ||
| 1 | 0.0 | ABSA_OSBAL | I | 0 | 361, 421 | ||
| 1 | 0.0 | CMD 2 | C | -1 | 341, 97 | $SELECT S:DEBTOR_CR2;I\DEBTOR |
|
| 1 | 0.0 | Work 4 | I | 0 | 671, 517 | ||
| 1 | 0.0 | Work 4 | I | 0 | 261, 553 | ||
| 1 | 0.0 | Work 5 | I | 0 | 281, 553 | ||
| 1 | 0.0 | Work 6 | I | 0 | 301, 553 | ||
| 1 | 0.0 | Work 7 | I | 0 | 321, 553 | ||
| 1 | 0.0 | Work 8 | I | 0 | 341, 553 | ||
| 1 | 0.0 | Work 36 | I | 0 | 411, 265 | ||
| 1 | 0.0 | Work 35 | I | 0 | 391, 265 | ||
| 1 | 0.0 | CMD 34 | C | -1 | 651, 541 | $SELECT '===================================================================== 'ABSA BUYER HAS TO BE SET UP! START '===================================================================== 'LOOK FOR THE MAIN ABSA BUYER F:DEBTOR_MAST;;;I\ABSA_MAIN=DM_DEBTOR;DM_ABSA_MAIN_ACC='Y' I: |
|
| 1 | 0.0 | Work 1 | I | 0 | 481, 97 | ||
| 1 | 0.0 | Label 32 | T | -1 | 371, 457 | ||
| 1 | 0.0 | REPAYMENT | I | -1 | 231, 493 | ||
| 1 | 0.0 | ABSA_MAIN | I | 0 | 401, 97 | ||
| 1 | 0.0 | Work 1 | I | 0 | 381, 97 | ||
| 1 | 0.0 | Label 28 | T | -1 | 81, 457 | ||
| 1 | 0.0 | FEE | I | -1 | 231, 457 | ||
| 1 | 0.0 | Label 30 | T | -1 | 81, 493 | ||
| 1 | 0.0 | Label 3 | T | -1 | 541, 217 | ||
| 1 | 0.0 | PCODE | I | -1 | 641, 217 | $CALCULATE M: A:LEN;I\PCODE;W\LEN I:W\LEN;<;4;NUM D:ERROR - POST CODE MUST BE 4 DIGITS;ERRORM;I\PCODE |
|
| 1 | 0.0 | LOAN_AMT | I | -1 | 231, 421 | $CALCULATE M: I:I\LOAN_AMT;=;0 D:LOAN AMOUNT CANNOT BE ZERO!;ERRORM;I\LOAN_AMT 'CHECK TO SEE IF MAIN ACCOUNT CAN COVER THE LOAN REQUESTED U:ABSA_LOAN;CHECK_OSBAL I:I\OK;=;N D:ABSA BUYER DOESN'T HAVE FUNDS TO COVER THIS LOAN;ERRORM;I\LOAN_AMT 'CALCULATE FEES AGAINST THIS ACCOUNT IF LOAN AMOUNT IS AVAILABLE |
|
| 1 | 0.0 | Label 26 | T | -1 | 81, 421 | ||
| 1 | 0.0 | Label 24 | T | -1 | 81, 373 | ||
| 1 | 0.0 | I | -1 | 231, 373 | |||
| 1 | 0.0 | FAXNO | I | -1 | 501, 313 | $CALCULATE I:I\FAXNO;<>; DO(M91) A:LEN;I\FAXNO;W\LEN I:W\LEN;<;10;NUM D:ERROR - FAXNO NO MUST BE 10 DIGITS;ERRORM;I\FAXNO DOEND(M91) |
|
| 1 | 0.0 | Label 20 | T | -1 | 81, 337 | ||
| 1 | 0.0 | CELL | I | -1 | 231, 337 | $CALCULATE I:I\CELL;<>; DO(EE2) A:LEN;I\CELL;W\LEN I:W\LEN;<;10;NUM D:ERROR - CELLNO NO MUST BE 10 DIGITS;ERRORM;I\CELL DOEND(EE2) |
|
| 1 | 0.0 | Label 22 | T | -1 | 391, 313 | ||
| 1 | 0.0 | TELNO | I | -1 | 231, 313 | $CALCULATE I:I\TELNO;<>; DO(VM2) A:LEN;I\TELNO;W\LEN I:W\LEN;<;10;NUM D:ERROR - TELNO NO MUST BE 10 DIGITS;ERRORM;I\TELNO DOEND(VM2) |
|
| 1 | 0.0 | Label 18 | T | -1 | 81, 313 | ||
| 1 | 0.0 | VATNO | I | -1 | 231, 289 | $CALCULATE C:UCASE I:I\VATNO;=; A:CONST;PENDING;I\VATNO |
|
| 1 | 0.0 | Label 16 | T | -1 | 81, 289 | ||
| 1 | 0.0 | Label 7 | T | -1 | 671, 49 | ||
| 1 | 0.0 | Label 1 | T | -1 | 81, 97 | ||
| 1 | 0.0 | DEBTOR | I | -1 | 231, 97 | $SELECT S:DEBTOR_CR2;I\DEBTOR $CALCULATE M: C:UCASE 'CHECK IF THIS DEBTOR EXISTS F:DEBTOR_MAST;;;I\MAIN_DEBTOR=DM_MAIN_DEBTOR,I\TMP_DEBTOR=DM_DEBTOR,I\ABSA_ACC=DM_ABSA_ACC,I\ACCTYPE=DM_ACCTYPE,I\NAME=DM_NAME,I\ID=DM_IDNO;DM_MARKET='$I\MARKET$' AND DM_DEBTOR='$I\DEBTOR$';I\DEBTOR I:I\TMP_DEBTOR;=; A:CONST; |
|
| 1 | 0.0 | Label 5 | T | -1 | 81, 133 | ||
| 1 | 0.0 | NAME | I | -1 | 231, 133 | $CALCULATE M: C:UCASE |
|
| 1 | 0.0 | Label 7 | T | -1 | 81, 169 | ||
| 1 | 0.0 | Label 8 | T | -1 | 161, 193 | ||
| 1 | 0.0 | Label 9 | T | -1 | 161, 217 | ||
| 1 | 0.0 | ADDR1 | I | -1 | 231, 169 | $CALCULATE C:UCASE |
|
| 1 | 0.0 | ADDR2 | I | -1 | 231, 193 | $CALCULATE C:UCASE |
|
| 1 | 0.0 | ADDR3 | I | -1 | 231, 217 | $CALCULATE C:UCASE |
|
| 1 | 0.0 | Label 13 | T | -1 | 161, 169 | ||
| 1 | 0.0 | Label 14 | T | -1 | 81, 265 | ||
| 1 | 0.0 | ID | I | -1 | 231, 265 | $CALCULATE M: F:DEBTOR_MAST;;;W\ID=DM_IDNO;DM_MARKET='$I\MARKET$' AND DM_IDNO='$I\ID$' AND DM_DEBTOR <> '$I\DEBTOR$' AND DM_BLOCKED <> 'Y' 'I:W\ID;=;I\ID 'D:THIS ID NO ALREADY EXIST IT CAN'T BE DUPLICATED;ERRORM;I\ID A:LEN;I\ID;W\LEN I:W\LEN;<;13;NUM D:ERROR - ID NO MUST BE 13 DIGITS;ERRORM;I\ID |
|
| 1 | 0.0 | Label 6 | T | -1 | 621, 49 | ||
| 1 | 0.0 | Label 5 | T | -1 | 671, 25 | ||
| 1 | 0.0 | Label 4 | T | -1 | 621, 25 | ||
| 1 | 0.0 | Label 3 | T | -1 | 287, 49 | ||
| 1 | 0.0 | Label 2 | T | -1 | 291, 25 | ||
| 1 | 0.0 | Label 1 | T | -1 | 1, 25 | ||
| 1 | 0.0 | Work 33 | I | 0 | 1, 49 | $DEFAULT 'LOAD MARKET CODE A:ORG;;I\MARKET 'LOAD MARKET NAME F:CLIENT_MAST;;CM_CODE;T\MARKET=CM_NAME 'CHANGING TEXT CASE FOR THE FIRST CHARACTER TO UPPER CASE C:MCASE;;T\MARKET 'INITIALIZES THE DATE AND TIME INTO THE T\DATE AND T\TIME FIELDS A:DATE;DD MMM YYYY;T\DATE A:TIME;HH:MM:SS;T\TIME A:TIMER_ON;1 |
|
| 1 | 0.0 | H | -1 | 0, 0 | |||
| 1 | 0.0 | Work 8 | I | 0 | 211, 457 | ||
| 1 | 0.0 | Work 9 | I | 0 | 331, 457 | ||
| 1 | 0.0 | Work 3 | I | 0 | 241, 553 | ||
| 1 | 0.0 | Work 2 | I | 0 | 221, 553 | ||
| 1 | 0.0 | Work 1 | I | 0 | 201, 553 | ||
| 1 | 0.0 | OSBAL | I | 0 | 421, 97 | ||
| 1 | 0.0 | NEW_BUYER | I | 0 | 561, 97 | ||
| 1 | 0.0 | TMP_DEBTOR | I | 0 | 511, 97 | ||
| 1 | 0.0 | Work 1 | I | 0 | 441, 97 | ||
| 1 | 0.0 | Work 2 | I | 0 | 461, 97 | ||
| 1 | 0.0 | OK | I | 0 | 400, 487 | ||
| 10 | 0.0 | ZX_EXIT | Z | 0 | 0, 0 | ||
| 10 | 0.0 | ZX_UPDATE | Z | 0 | 0, 0 | ||
| 10 | 0.0 | ZX_DELETE | Z | 0 | 0, 0 | ||
| 10 | 0.0 | ZX_SELECT | Z | 0 | 0, 0 | ||
| 10 | 0.0 | ZX_PRINT | Z | 0 | 0, 0 |