Program drill-down
COMM_CHANGES
CHANGE COMMISSION ON A CONSIGNMENT. Type DSP, base table DEBTOR_MAST.
Field inventory
105
Live detail pulled from the database.
| Page | Seq | Table | Field | Type | Visible | Position | Logic snippet |
|---|---|---|---|---|---|---|---|
| 1 | 0.0 | Work 1 | I | 0 | 351, 85 | ||
| 1 | 0.0 | Work 1 | I | 0 | 311, 85 | ||
| 1 | 0.0 | Work 3 | I | 0 | 391, 85 | ||
| 1 | 0.0 | Work 2 | I | 0 | 371, 85 | ||
| 1 | 0.0 | Work 1 | I | 0 | 231, 565 | ||
| 1 | 0.0 | Work 2 | I | 0 | 251, 565 | ||
| 1 | 0.0 | TARGET | I | 0 | 21, 529 | ||
| 1 | 0.0 | Work 3 | G | -1 | 21, 253 | ||
| 1 | 0.0 | Label 12 | T | -1 | 471, 205 | ||
| 1 | 0.0 | Work 7 | I | -1 | 191, 229 | ||
| 1 | 0.0 | Label 8 | T | -1 | 371, 205 | ||
| 1 | 0.0 | Work 9 | I | -1 | 371, 229 | ||
| 1 | 0.0 | Label 10 | T | -1 | 421, 205 | ||
| 1 | 0.0 | Work 11 | I | -1 | 421, 229 | $CALCULATE M: 'MAKE SURE QTY IS NOT < 0 I:I\SLDQTY;<=;0;NUM D:QUANTITY MUST BE GREATER THAN ZERO;ERRORM;I\SLDQTY 'CHECK QTY IS NOT GREATER THAN QTY AVAIL I:I\SLDQTY;>;I\QTYAVAIL;NUM D:THIS IS GREATER THAN THE QUANTITY AVAILABLE;ERRORM;I\SLDQTY I:I\AM_TARGET_USE;=;Y DO(001) I:I\AM_TARGET_OVR;<>;Y |
|
| 1 | 0.0 | Work 4 | I | 0 | 411, 85 | ||
| 1 | 0.0 | Label 5 | T | -1 | 741, 205 | ||
| 1 | 0.0 | CMD 6 | C | -1 | 771, 229 | $SELECT 'DISPLAY PERIOD SELECTION WINDOW S:PERIOD_CODE;W\DEL |
|
| 1 | 0.0 | Work 1 | I | 0 | 471, 85 | ||
| 1 | 0.0 | Work 2 | I | 0 | 21, 553 | ||
| 1 | 0.0 | Work 1 | I | 0 | 431, 85 | ||
| 1 | 0.0 | Work 1 | I | 0 | 451, 85 | ||
| 1 | 0.0 | Work 8 | I | 0 | 141, 577 | ||
| 1 | 0.0 | Work 7 | I | 0 | 141, 553 | ||
| 1 | 0.0 | Work 4 | I | 0 | 91, 529 | ||
| 1 | 0.0 | Work 5 | I | 0 | 91, 553 | ||
| 1 | 0.0 | Work 6 | I | 0 | 141, 529 | ||
| 1 | 0.0 | Work 3 | I | 0 | 21, 577 | ||
| 1 | 0.0 | Work 1 | I | 0 | 441, 553 | ||
| 1 | 0.0 | Work 2 | I | 0 | 391, 493 | ||
| 1 | 0.0 | Work 1 | I | 0 | 361, 469 | ||
| 1 | 0.0 | Work 1 | I | 0 | 401, 469 | ||
| 1 | 0.0 | Work 1 | I | 0 | 511, 85 | ||
| 1 | 0.0 | Work 1 | I | 0 | 391, 577 | ||
| 1 | 0.0 | Work 1 | I | 0 | 471, 505 | ||
| 1 | 0.0 | Work 1 | I | 0 | 381, 517 | ||
| 1 | 0.0 | Work 3 | I | 0 | 401, 517 | ||
| 1 | 0.0 | Work 1 | I | 0 | 461, 469 | ||
| 1 | 0.0 | Work 2 | I | 0 | 541, 469 | ||
| 1 | 0.0 | Label 3 | T | -1 | 241, 457 | ||
| 1 | 0.0 | Label 1 | T | -1 | 741, 181 | ||
| 1 | 0.0 | Label 2 | T | -1 | 661, 145 | ||
| 1 | 0.0 | Work 2 | I | 0 | 331, 85 | ||
| 1 | 0.0 | SEQ | I | -1 | 21, 229 | $SELECT S:G:G\GRID:R1,I\SEQ $SELECT6 S:G:G\GRID:F1,I\SEQ $CALCULATE I:I\SEQ;=; DO(001) O:SETFOCUS;C\CREATE O:BACKCOLOR;C\CREATE;YELLOW O:DISABLEINPUT;I\CONSIGN,I\COMMOD,I\QTYAVAIL,I\SLDQTY,I\PRICE,I\VAT,I\VALUE,W\DEL DOEND(001) I:I\SEQ;<>; DO(002) I:I\SEQ;<>;+ DO(003) U:ZZGRID_SPLIT;GRID_ |
|
| 1 | 0.0 | Label 2 | T | -1 | 1, 49 | ||
| 1 | 0.0 | Work 1 | I | -1 | 671, 493 | ||
| 1 | 0.0 | AGENT | I | 0 | 181, 49 | $DEFAULT A:ORGS;;I\AGENT 'LOAD AGENT NAME F:AGENT_MAST;;AM_CODE;T\AGENT=AM_NAME,I\AM_DEL_LEN=AM_DEL_LEN,I\AM_TARGET_OVR=AM_TARGET_OVR,I\AM_TARGET_USE=AM_TARGET_USE ' IF RUN BY AN AGENT DON'T ALLOW F5 I:I\AGENT;<>; O:HIDE;C\BUYER ' IF AN AGENT ALLOW F5 I:I\AGENT;=; DO(001) O:ENABLEINPUT;C\BUYER O:SH |
|
| 1 | 0.0 | Label 20 | T | -1 | 741, 205 | ||
| 1 | 0.0 | Work 2 | I | 0 | 161, 49 | $DEFAULT 'LOAD MARKET CODE A:ORG;;I\MARKET 'LOAD MARKET NAME F:CLIENT_MAST;;CM_CODE;T\MARKET=CM_NAME 'CONVERT ONLY THE FIRST CHARACTER OF THE MARKET LABEL C:MCASE;;T\MARKET |
|
| 1 | 0.0 | Label 18 | T | -1 | 641, 205 | ||
| 1 | 0.0 | Work 19 | I | -1 | 641, 229 | ||
| 1 | 0.0 | PRICE | I | -1 | 471, 229 | $CALCULATE I:I\SCREEN_TYPE;=;PS U:AGENT_SALES;BUYER_AGENT_SURETY_LIMIT M: A:VAR;I\PRICE;I\PRICE;;#0.00 ' MAKE SURE AMOUNT IS NOT < 0 I:I\PRICE;<=;0 D:PRICE MUST BE GREATER THAN ZERO;ERRORM;I\PRICE ' CHECK THE PRICE VARAINCE F:CLIENT_MAST;;;I\TMP6=CM_PRICEVAR;CM_CODE='$I\MARKET$' F:CLIENT_MAST;;;I\TMP5=CM_ |
|
| 1 | 0.0 | Label 17 | T | -1 | 421, 181 | ||
| 1 | 0.0 | Label 14 | T | -1 | 561, 205 | ||
| 1 | 0.0 | Work 15 | I | -1 | 561, 229 | ||
| 1 | 0.0 | Label 16 | T | -1 | 371, 181 | ||
| 1 | 0.0 | Label 6 | T | -1 | 191, 205 | ||
| 1 | 0.0 | CMD 5 | C | -1 | 161, 229 | $SELECT 'DISPLAY A SELECTION WINDOW S:CONS_AGENT;I\CONSIGN;I\AGENT |
|
| 1 | 0.0 | Label 2 | T | -1 | 261, 109 | ||
| 1 | 0.0 | Work 1 | I | 0 | 451, 61 | ||
| 1 | 0.0 | Work 1 | I | 0 | 141, 49 | $DEFAULT A:DATE;DD MMM/YYYY;T\DATE A:TIME;HH:MM:SS;T\TIME A:TIMER_ON;1000 'GETS WHICH SCREEN IS BEING DISPLAYED I.E. AGENTS SALES (AS) OR PROVISIONAL SALES (PS) A:PARM;1;I\SCREEN_TYPE 'CHANGES THE TITLE OF THE SCREEN IF A PROVISIONAL SALE I:I\SCREEN_TYPE;=;PS DO(PS) A:CONST;PROVISIONAL SALES;T\SCREEN_T |
|
| 1 | 0.0 | STK_TRANS | ST_DEBTOR | T | -1 | 21, 109 | |
| 1 | 0.0 | CONSIGN | I | -1 | 61, 229 | $SELECT 'DISPLAY A SELECTION WINDOW S:CONS_AGENT;I\CONSIGN;I\AGENT $CALCULATE M: '''COMMENTED OUT BECAUSE KASSIE SAID ONE COULD SELL PORTION OF SAME CONSIGNMENT AT DIFFERENT PRICES - REFER DELIVERY TEST 22 '''U:AGENT_SALES;CHK_DUPLICATION;G\GRID,I\SEQ,I\CONSIGN,I\TMP1 '''I:I\TMP1;<>;0;NUM '''D:THIS CONSIG |
|
| 1 | 0.0 | STK_TRANS | ST_SMAN | T | -1 | 21, 145 | |
| 1 | 0.0 | I | -1 | 141, 109 | $DEFAULT 'INITIALIZES THE GRID U:ZZGRID_SPLIT;INIT_GRID;G\GRID;I\SEQ,I\CONSIGN,I\COMMOD,I\QTYAVAIL,I\SLDQTY,I\PRICE,I\VAT,I\VALUE,I\PALLS_SOLD:H,I\DOC_MSG:H,I\ITEM:H,W\DEL 'PUTS PIC ON THE UPDATE BUTTON O:LOADPIC;$GBLROOT$LEGEND\PROJ_FMS\PICS\NEW_TEXT_DOC.ICO;C\CREATE $SELECT I:I\SCREEN_TYPE;=;AS DO(AS) |
||
| 1 | 0.0 | Work 2 | I | 0 | 501, 61 | ||
| 1 | 0.0 | Work 1 | I | 0 | 211, 565 | ||
| 1 | 0.0 | Label 1 | T | -1 | 21, 205 | ||
| 1 | 0.0 | Label 3 | T | -1 | 61, 205 | ||
| 1 | 0.0 | I | -1 | 141, 145 | $SELECT 'DISPLAY A SELECTION WINDOW S:SALESMAN_AGENT;I\ST_SMAN;I\AGENT '$VALIDATE $CALCULATE M: A:VAR;I\ST_SMAN;I\ST_SMAN;;000 F:SALESMAN_MAST;Y;SLS_CODE;I\SC_SLS_NAME=SLS_NAME;SLS_AGENT='$I\AGENT$';"THIS SALESMAN FOR THIS AGENT" 'MAKE SURE THE SALESMAN IS A VALID SALESMAN AND DISPLAY THE SALESMAN NAME F |
||
| 1 | 0.0 | Label 4 | T | -1 | 621, 49 | ||
| 1 | 0.0 | Label 5 | T | -1 | 671, 25 | ||
| 1 | 0.0 | Label 6 | T | -1 | 671, 49 | ||
| 1 | 0.0 | CMD 4 | C | -1 | 231, 109 | $SELECT 'DISPLAY A SELECTION WINDOW S:DEBTOR;I\ST_DEBTOR |
|
| 1 | 0.0 | Label 3 | T | -1 | 621, 25 | ||
| 1 | 0.0 | Label 1 | T | -1 | 291, 25 | ||
| 1 | 0.0 | Label 2 | T | -1 | 1, 25 | ||
| 1 | 0.0 | CMD 1 | C | -1 | 651, 541 | $SELECT U:ZZGRID_VALIDATE;INIT_GRID;G\GRID F:AGENT_MAST;;;I\TMP=AM_PIN_SALES;AM_CODE='$I\AGENT$' I:I\TMP;=;1 DO(CHK1) F:DEBTOR_MAST;;;I\TMP1=DM_PIN_SALES;DM_DEBTOR='$I\ST_DEBTOR$' I:I\TMP1;=;Y U:AGENT_SALES;BUYER_PIN_NO I:I\INVALID_BUYER_PIN;=;Y D:BUYER PIN NUMBER IS INVALID;ERRORM;I\SEQ DOEND(CHK1) F:AG |
|
| 1 | 0.0 | Label 8 | T | -1 | 331, 49 | ||
| 1 | 0.0 | CMD 5 | C | -1 | 201, 145 | $SELECT S:SALESMAN_AGENT;I\ST_SMAN;I\AGENT |
|
| 1 | 0.0 | Label 10 | T | -1 | 511, 109 | ||
| 1 | 0.0 | Label 6 | T | -1 | 261, 145 | ||
| 1 | 0.0 | Work 21 | I | -1 | 741, 229 | $SELECT 'ALLOW FOR PERIOD SELECTION IF SCREEN TYPE IS PROVISIONAL SALES (PS) I:I\SCREEN_TYPE;=;PS DO(PS) 'DISPLAY PERIOD SELECTION WINDOW S:PERIOD_CODE;W\DEL DOEND(PS) $CALCULATE 'CHECK IF VALID PERIOD IS SELECTED IF SCREEN TYPE IS PROVISIONAL SALES (PS) I:I\SCREEN_TYPE;=;PS DO(PS) F:PROV_PER |
|
| 1 | 0.0 | Label 20 | T | -1 | 21, 469 | ||
| 1 | 0.0 | Work 21 | I | -1 | 21, 493 | ||
| 1 | 0.0 | Work 11 | I | -1 | 601, 109 | ||
| 1 | 0.0 | Label 12 | T | -1 | 511, 145 | ||
| 1 | 0.0 | Work 13 | I | -1 | 601, 145 | $SELECT 'DISPLAY A SELECTION WINDOW S:BUYER_GROUP;I\GROUP $VALIDATE 'MAKE THIS FIELD MANDATORY M: C:UCASE 'MAKE SURE THE GROUP IS A VALID GROUP AND DISPLAY THE GROUP DESC F:BUYER_GROUP;Y;BG_CODE;T\GROUP_DESC=BG_DESC;;I\GROUP |
|
| 1 | 0.0 | CMD 15 | C | -1 | 641, 145 | $SELECT 'DISPLAY A SELECTION WINDOW S:BUYER_GROUP;I\GROUP |
|
| 1 | 0.0 | Label 16 | T | -1 | 571, 469 | ||
| 1 | 0.0 | Label 17 | T | -1 | 571, 493 | ||
| 1 | 0.0 | PALLS_SOLD | I | 0 | 521, 517 | ||
| 1 | 0.0 | Work 19 | I | -1 | 671, 469 | ||
| 1 | 0.0 | Work 1 | I | 0 | 481, 61 | ||
| 1 | 0.0 | H | -1 | 1, 85 | |||
| 1 | 0.0 | AM_DEL_LEN | I | 0 | 471, 529 | ||
| 1 | 0.0 | AM_TARGET_OVR | I | 0 | 361, 517 | ||
| 1 | 0.0 | AM_TARGET_USE | I | 0 | 341, 541 | ||
| 1 | 0.0 | Label 1 | T | 0 | 421, 193 | ||
| 1 | 0.0 | Work 1 | I | 0 | 531, 61 | ||
| 1 | 0.0 | Work 1 | I | 0 | 211, 529 | ||
| 10 | 0.0 | ZX_PRINT | Z | 0 | 1, 85 | ||
| 10 | 0.0 | ZX_SELECT | Z | 0 | 1, 85 | ||
| 10 | 0.0 | ZX_DELETE | Z | 0 | 1, 85 | ||
| 10 | 0.0 | ZX_UPDATE | Z | 0 | 1, 85 | '$BEFORE_WRITE 'U:AGENT_SALES;BUYER_PIN_NO '$SELECT $UPDATE U:ZZGRID_VALIDATE;INIT_GRID;G\GRID F:AGENT_MAST;;;I\TMP=AM_PIN_SALES;AM_CODE='$I\AGENT$' I:I\TMP;=;1 U:AGENT_SALES;BUYER_PIN_NO I:I\INVALID_BUYER_PIN;=;Y D:BUYER PIN NUMBER IS INVALID;ERRORM;I\SEQ F:AGENT_MAST;;;I\TMP=AM_RESCAN;AM_CODE='$I\AGENT$ |
|
| 10 | 0.0 | ZX_EXIT | Z | 0 | 1, 85 |