Program drill-down
LOAN_DISBURSEMENT
SEFA LOAN DISBURSMENT. Type DSP, base table SEFA_DEPOSITS.
Field inventory
68
Live detail pulled from the database.
| Page | Seq | Table | Field | Type | Visible | Position | Logic snippet |
|---|---|---|---|---|---|---|---|
| 1 | 0.0 | Work 10 | I | 0 | 11, 505 | ||
| 1 | 0.0 | CMD 30 | C | 0 | 11, 505 | ||
| 1 | 0.0 | H | -1 | 0, 0 | |||
| 1 | 0.0 | Work 20 | I | 0 | 71, 61 | ||
| 1 | 0.0 | Work 24 | I | 0 | 161, 85 | ||
| 1 | 0.0 | SEFA_DEPOSITS | SFD_DEPOSITID | I | 0 | 21, 505 | $SVAR_FOCUS I:W\CASHIER;=; D:THIS USER IS NOT A CASHIER;ERRORM;I\SFD_DEPOSITID I:I\DT_CASHPNT;=; D:THERE IS NO CASH POINT SET UP FOR THIS CASHIER;ERRORM;I\SFD_DEPOSITID I:I\TYPES;=; DO(T) A:CONST;;I\SFD_DEPOSITID D:NO TRANSACTION TYPES HAVE BEEN SET UP FOR THIS CASHIER;ERRORM;I\SFD_DEPOSITID DOEND(T) |
| 1 | 0.0 | I | -1 | 81, 265 | |||
| 1 | 0.0 | I | -1 | 181, 265 | |||
| 1 | 0.0 | I | -1 | 281, 265 | |||
| 1 | 0.0 | Work 16 | I | -1 | 381, 265 | ||
| 1 | 0.0 | I | -1 | 581, 265 | $CALCULATE C:UCASE V:Y;N; I:I\SFM_DISBURSED;=; DO(0) A:CONST;N;I\SFM_DISBURSED U:ZZGRID_SPLIT;SCREEN_TO_GRID;G\GRID;I\SEQ O:SETFOCUS;I\SEQ A:CONST;;I\SEQ,I\SFM_DEBTOR,I\SFM_VALUE,I\SFM_VALUE_PAID,I\SFM_INTEREST,I\SFM_INTEREST_PAID,I\SFM_DISBURSED DOEND(0) I:I\SFM_DISBURSED;=;Y DO(01) U:SEFA;SU |
||
| 1 | 0.0 | Work 18 | I | 0 | 11, 61 | $DEFAULT 'LOAD MARKET CODE A:ORG;;I\MARKET 'PUTS PIC ON THE UPDATE BUTTON O:LOADPIC;$GBLROOT$LEGEND\PROJ_FMS\PICS\NEW_TEXT_DOC.ICO;C\UPDATE 'LOAD MARKET NAME F:CLIENT_MAST;;CM_CODE;I\RFID=CM_USE_RFID,T\MARKET=CM_NAME,I\CM_SEFA_MAIN_BUYER=CM_SEFA_MAIN_BUYER; 'SEFA DEFAULTS ============ A:VAR;I\CM_SEFA_MAI |
|
| 1 | 0.0 | Work 19 | I | 0 | 41, 61 | ||
| 1 | 0.0 | Work 25 | I | 0 | 191, 85 | ||
| 1 | 0.0 | Work 23 | I | 0 | 131, 85 | ||
| 1 | 0.0 | Work 26 | I | 0 | 131, 61 | ||
| 1 | 0.0 | Work 28 | I | 0 | 11, 85 | $DEFAULT A:USERID;;I\USERID U:MENU_GROUP;LOOKUP |
|
| 1 | 0.0 | Work 27 | I | 0 | 71, 85 | ||
| 1 | 0.0 | Work 29 | I | 0 | 161, 61 | ||
| 1 | 0.0 | Work 1 | I | 0 | 41, 85 | ||
| 1 | 0.0 | Work 10 | I | 0 | 11, 529 | ||
| 1 | 0.0 | Work 11 | I | 0 | 21, 493 | ||
| 1 | 0.0 | Work 12 | I | 0 | 11, 481 | ||
| 1 | 0.0 | Work 9 | I | 0 | 111, 505 | ||
| 1 | 0.0 | Work 31 | I | 0 | 191, 61 | ||
| 1 | 0.0 | Work 7 | I | 0 | 111, 505 | ||
| 1 | 0.0 | Work 6 | I | 0 | 111, 529 | ||
| 1 | 0.0 | Work 32 | I | 0 | 111, 481 | ||
| 1 | 0.0 | Work 4 | I | 0 | 111, 505 | ||
| 1 | 0.0 | Work 5 | I | 0 | 111, 529 | ||
| 1 | 0.0 | Work 3 | I | 0 | 101, 481 | ||
| 1 | 0.0 | Work 2 | I | 0 | 101, 61 | ||
| 1 | 0.0 | Work 18 | I | 0 | 11, 481 | ||
| 1 | 0.0 | Work 8 | I | 0 | 11, 481 | ||
| 1 | 0.0 | Work 19 | I | 0 | 11, 505 | ||
| 1 | 0.0 | Work 17 | I | 0 | 101, 85 | ||
| 1 | 0.0 | Work 16 | I | 0 | 11, 529 | ||
| 1 | 0.0 | Work 20 | I | 0 | 11, 529 | ||
| 1 | 0.0 | Label 1 | T | -1 | 3, 25 | ||
| 1 | 0.0 | Label 2 | T | -1 | 350, 25 | ||
| 1 | 0.0 | Label 3 | T | -1 | 621, 25 | ||
| 1 | 0.0 | Label 4 | T | -1 | 350, 49 | ||
| 1 | 0.0 | Label 5 | T | -1 | 621, 49 | ||
| 1 | 0.0 | Label 6 | T | 0 | 11, 493 | ||
| 1 | 0.0 | Label 7 | T | -1 | 81, 241 | ||
| 1 | 0.0 | Label 8 | T | -1 | 181, 241 | ||
| 1 | 0.0 | Label 9 | T | -1 | 281, 241 | ||
| 1 | 0.0 | Label 10 | T | -1 | 381, 241 | ||
| 1 | 0.0 | Label 11 | T | -1 | 481, 241 | ||
| 1 | 0.0 | Label 22 | T | -1 | 671, 49 | ||
| 1 | 0.0 | Label 21 | T | -1 | 671, 25 | ||
| 1 | 0.0 | Label 15 | T | 0 | 1, 505 | ||
| 1 | 0.0 | Label 14 | T | 0 | 11, 517 | ||
| 1 | 0.0 | Work 8 | I | -1 | 181, 193 | $VALIDATE C:UCASE V:Y;N I:I\MARK_ALL;=;Y DO(0) I:I\DM_OSBAL;=;0 D:SEFA MAIN BUYER HAS NO OUTSTANDING BALANCE;ERRORM;I\MARK_ALL U:SEFA;DISBURSE_ALL;G\GRID U:SEFA;SUM_LOANS;G\GRID I:I\TOT_LOANS;>;I\DM_OSBAL D:DISBURSED LOANS EXCEEDS SEFA MAIN BUYERS BALANCE;ERRORM;I\MARK_ALL O:DISABLE |
|
| 1 | 0.0 | Label 9 | T | -1 | 41, 193 | ||
| 1 | 0.0 | Label 2 | T | -1 | 581, 241 | ||
| 1 | 0.0 | Work 3 | I | -1 | 481, 265 | ||
| 1 | 0.0 | Label 5 | T | -1 | 41, 241 | ||
| 1 | 0.0 | CMD 6 | C | -1 | 651, 548 | $SELECT U:SEFA;DISBURSE_LOANS;G\GRID I:I\ERROR;<>;Y DO(1) U:ZZGRID_SPLIT;INIT_GRID;G\GRID;I\SEQ,I\SFM_DEBTOR,I\SFM_VALUE,I\SFM_VALUE_PAID,I\SFM_INTEREST,I\SFM_INTEREST_PAID,I\SFM_DISBURSED A:VAR;I\CM_SEFA_MAIN_BUYER;I\DT_DEBTOR A:CONST;SEFA MAIN DEPOSIT;I\DT_REMARK A:CONST;N;I\MARK_ALL A:CONST;Y;I\L |
|
| 1 | 0.0 | Work 1 | G | -1 | 41, 289 | ||
| 1 | 0.0 | Work 4 | I | -1 | 41, 265 | $CALCULATE I:I\SEQ;<>; DO(DLD) I:I\DM_OSBAL;=;0 D:SEFA MAIN BUYER HAS NO OUTSTANDING BALANCE;ERRORM;I\SEQ U:SEFA;SUM_LOANS;G\GRID O:ENABLEINPUT;I\SFM_DISBURSED O:SETFOCUS;I\SFM_DISBURSED U:ZZGRID_SPLIT;GRID_TO_SCREEN;G\GRID;I\SEQ DOEND(DLD) I:I\SEQ;=; DO(SQS) I:I\DM_OSBAL;=;0 D: |
|
| 1 | 0.0 | Work 1 | I | -1 | 181, 145 | $VALIDATE C:UCASE V:Y;N 'LOAD LOANS TO GRID I:I\LOAD;=;N D:YOU HAVE LOAD THE GRID TO DISBURSE LOANS;ERRORM;I\LOAD I:I\LOAD;=;Y DO(1) A:CONST;0.00;I\TOT_LOANS U:ZZGRID_SPLIT;INIT_GRID;G\GRID;I\SEQ,I\SFM_DEBTOR,I\SFM_VALUE,I\SFM_VALUE_PAID,I\SFM_INTEREST,I\SFM_INTEREST_PAID,I\SFM_DISBURSED U:SEFA;LOAD |
|
| 1 | 0.0 | Label 2 | T | -1 | 41, 145 | ||
| 10 | 0.0 | ZX_PRINT | Z | 0 | 0, 0 | ||
| 10 | 0.0 | ZX_SELECT | Z | 0 | 0, 0 | ||
| 10 | 0.0 | ZX_DELETE | Z | 0 | 0, 0 | ||
| 10 | 0.0 | ZX_UPDATE | Z | 0 | 0, 0 | ||
| 10 | 0.0 | ZX_EXIT | Z | 0 | 0, 0 |