Program drill-down
BUYER_PUR_FROM_POOL
BUYER PURCHASES FROM POOL. Type DSP, base table DEBTOR_MAST.
Field inventory
51
Live detail pulled from the database.
| Page | Seq | Table | Field | Type | Visible | Position | Logic snippet |
|---|---|---|---|---|---|---|---|
| 1 | 0.0 | H | -1 | 0, 0 | |||
| 1 | 0.0 | Label 1 | T | -1 | 1, 25 | ||
| 1 | 0.0 | Label 2 | T | -1 | 291, 25 | ||
| 1 | 0.0 | Label 3 | T | -1 | 271, 49 | ||
| 1 | 0.0 | Label 4 | T | -1 | 621, 25 | ||
| 1 | 0.0 | Label 5 | T | -1 | 621, 49 | ||
| 1 | 0.0 | Label 6 | T | -1 | 671, 25 | ||
| 1 | 0.0 | Label 7 | T | -1 | 671, 49 | ||
| 1 | 0.0 | DEBTOR_MAST | DM_DEBTOR | T | -1 | 21, 121 | |
| 1 | 0.0 | DEBTOR_MAST | DM_DEBTOR | I | -1 | 101, 121 | $SELECT S:DEBTOR;I\DM_DEBTOR $VALIDATE M: C:UCASE $CALCULATE M: C:UCASE F:DEBTOR_MAST;Y;;T\BUYER_NAME=DM_NAME;DM_DEBTOR='$I\DM_DEBTOR$';I\DM_DEBTOR |
| 1 | 0.0 | CMD 10 | C | -1 | 201, 121 | $SELECT S:DEBTOR;I\DM_DEBTOR |
|
| 1 | 0.0 | Label 11 | T | -1 | 251, 121 | ||
| 1 | 0.0 | Work 12 | G | -1 | 11, 253 | ||
| 1 | 0.0 | SEQ | I | -1 | 11, 229 | $CALCULATE I:I\SEQ;<>;+ DO(TEE) I:I\SEQ;<>; DO(GET) I:I\SEQ;<>; U:ZZGRID_SPLIT;GRID_TO_SCREEN;G\GRID;I\SEQ DOEND(GET) I:I\SEQ;=; DO(GDE) O:DISABLEINPUT;I\PALLET,I\COST,I\QTY_SOLD,I\DEL DOEND(GDE) DOEND(TEE) I:I\SEQ;=;+ DO(SAS) A:CONST;;I\SEQ,I\PALLET,I\DESC,I\COST,I\QTY_A |
|
| 1 | 0.0 | PALLET | I | -1 | 61, 229 | $SELECT S:PALL_POOL_MARKET;I\PALLET $CALCULATE M: C:UCASE F:PALL_POOL;Y;;I\QTY_AVAIL=PL_POOLQ;PL_MARKET='$I\MARKET$' AND PL_OWNER='POOL' AND PL_PALL='$I\PALLET$';I\PALLET F:PALL_MAST;Y;;I\DESC=PM_DESC,I\COST=PM_DEPOSIT,I\TMP_DEPOSIT=PM_DEPOSIT;PM_PALL='$I\PALLET$' |
|
| 1 | 0.0 | DESC | I | -1 | 171, 229 | ||
| 1 | 0.0 | COST | I | -1 | 331, 229 | $CALCULATE M: I:I\COST;<=;0 D:COST MUST BE GREATER THAN ZERO;ERRORM;I\COST |
|
| 1 | 0.0 | QTY_AVAIL | I | -1 | 411, 229 | ||
| 1 | 0.0 | QTY_SOLD | I | -1 | 501, 229 | $CALCULATE M: I:I\QTY_SOLD;>;I\QTY_AVAIL DO(FLE) I:I\QTY_AVAIL;<>; D:THERE ARE ONLY $I\QTY_AVAIL$ PALLETS AVAILABLE;ERRORM;I\QTY_SOLD I:I\QTY_AVAIL;=; D:THERE ARE NO PALLETS AVAILABLE;ERRORM;I\QTY_SOLD DOEND(FLE) I:I\QTY_SOLD;<=;0 D:SOLD QTY MUST BE GREATER THAN ZERO;ERRORM;I\QTY_SOLD U:BUYER_P |
|
| 1 | 0.0 | VAT | I | -1 | 591, 229 | ||
| 1 | 0.0 | TOT_COST | I | -1 | 661, 229 | ||
| 1 | 0.0 | Label 21 | T | -1 | 11, 205 | ||
| 1 | 0.0 | Label 22 | T | -1 | 61, 205 | ||
| 1 | 0.0 | Label 23 | T | -1 | 171, 205 | ||
| 1 | 0.0 | Label 24 | T | -1 | 331, 205 | ||
| 1 | 0.0 | Label 25 | T | -1 | 411, 205 | ||
| 1 | 0.0 | Label 26 | T | -1 | 501, 205 | ||
| 1 | 0.0 | Label 27 | T | -1 | 591, 205 | ||
| 1 | 0.0 | Label 28 | T | -1 | 661, 205 | ||
| 1 | 0.0 | CMD 29 | C | -1 | 141, 229 | $SELECT S:PALL_POOL_MARKET;I\PALLET |
|
| 1 | 0.0 | Label 30 | T | 0 | 21, 433 | ||
| 1 | 0.0 | TMP1 | I | 0 | 61, 433 | ||
| 1 | 0.0 | Label 32 | T | -1 | 571, 433 | ||
| 1 | 0.0 | TOT_AMT | I | -1 | 671, 433 | ||
| 1 | 0.0 | Work 34 | I | 0 | 71, 61 | $DEFAULT A:USERID;;I\USERID |
|
| 1 | 0.0 | Work 35 | I | 0 | 51, 61 | $DEFAULT A:ORGS;;I\ORGS I:I\ORGS;<>; F:AGENT_MAST;;;I\TMP_OWN_POOL=AM_PALLET_POOL;AM_CODE='$I\ORGS$' |
|
| 1 | 0.0 | Work 36 | I | 0 | 31, 61 | $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 |
|
| 1 | 0.0 | Work 37 | I | 0 | 11, 61 | $DEFAULT '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;1000 U:ZZGRID_SPLIT;INIT_GRID;G\GRID;I\SEQ,I\PALLET,I\DESC,I\COST,I\QTY_AVAIL,I\QTY_SOLD,I\VAT,I\TOT_COST,I\DEL A:CONST;+;I\SEQ |
|
| 1 | 0.0 | Work 38 | I | 0 | 91, 61 | $DEFAULT A:USERIP;;I\IP |
|
| 1 | 0.0 | Label 39 | T | -1 | 761, 205 | ||
| 1 | 0.0 | DEL | I | -1 | 761, 229 | $CALCULATE V:N;Y; I:I\DEL;=; A:CONST;N;I\DEL I:I\DEL;=;Y U:MANIPULATE_GRID;DELETE_RECORD;I\SEQ,G\GRID,I\SEQ U:ZZGRID_SPLIT;SCREEN_TO_GRID;G\GRID;I\SEQ U:ZZGRID_SPLIT;GRID_SUM;G\GRID;I\TOT_COST,I\TOT_AMT A:CONST;+;I\SEQ A:CONST;;I\PALLET,I\DESC,I\COST,I\QTY_AVAIL,I\QTY_SOLD,I\VAT,I\TOT_COST,I\DEL O:SETFO |
|
| 1 | 0.0 | Work 41 | I | 0 | 701, 529 | ''''$BEFORE_WRITE ''''U:BUYER_PALL_PURCHASES;UPDATE_TABLES |
|
| 1 | 0.0 | Work 1 | I | 0 | 81, 433 | ||
| 1 | 0.0 | Label 42 | T | 0 | 21, 469 | ||
| 1 | 0.0 | Work 43 | I | 0 | 61, 469 | ||
| 1 | 0.0 | CMD 1 | C | -1 | 651, 553 | '$BEFORE_WRITE $SELECT U:U_BUYER_PALL_PURCHASES_INT;UPDATE_TABLES O:SETFOCUS;I\DM_DEBTOR |
|
| 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 |