Program drill-down
GRO_PART_CREDITS
CREDIT OR PART CREDITS. Type DSP, base table STK_TRANS.
Field inventory
80
Live detail pulled from the database.
| Page | Seq | Table | Field | Type | Visible | Position | Logic snippet |
|---|---|---|---|---|---|---|---|
| 1 | 0.0 | Work 3 | I | 0 | 201, 265 | ||
| 1 | 0.0 | CMD 1 | C | -1 | 653, 548 | $SCMD_FOCUS O:BACKCOLOR;C\CREATE;YELLOW $SELECT A:CONST;PROCESSING...;T\PROCESS U:GROW_DEDUCT;DO_CREDIT;G\GRID,I\LINE I:I\ERROR;<>;Y DO(1) U:ZZGRID_SPLIT;INIT_GRID;G\GRID;I\LINE,I\ST_DOCNO,I\COMM,I\ST_TRQTY,I\ST_PRICE,I\DED_VAT,I\VALUE,I\DEL,I\SUPPL:H,I\DELNO:H,I\CONSIGN:H,I\DELDATE:H |
|
| 1 | 0.0 | CMD 1 | C | 0 | 121, 121 | $SELECT 'DISPLAY A SELECTION WINDOW S:DEDUCT_CODE_GRO;I\ST_DED_CODE |
|
| 1 | 0.0 | Work 13 | G | -1 | 21, 253 | ||
| 1 | 0.0 | H | -1 | 1, 25 | |||
| 1 | 0.0 | SD_DELNO | I | 0 | 31, 517 | ||
| 1 | 0.0 | Work 1 | I | 0 | 61, 517 | ||
| 1 | 0.0 | SD_CONT | I | 0 | 91, 517 | ||
| 1 | 0.0 | SD_CLASS | I | 0 | 111, 517 | ||
| 1 | 0.0 | SD_CONTMASS | I | 0 | 101, 517 | ||
| 1 | 0.0 | Work 4 | I | 0 | 31, 517 | ||
| 1 | 0.0 | PROD | I | 0 | 71, 517 | ||
| 1 | 0.0 | PROHIBIT_SALES | I | 0 | 31, 517 | ||
| 1 | 0.0 | VARIETY | I | 0 | 31, 517 | ||
| 1 | 0.0 | Work 10 | I | 0 | 31, 517 | ||
| 1 | 0.0 | Work 2 | I | 0 | 21, 121 | $SELECT 'DISPLAY A SELECTION WINDOW S:DEDUCT_CODE_GRO;I\ST_DED_CODE $VALIDATE M: C:UCASE I:I\ST_DED_CODE;=; A:CONST;;T\DED_DESC I:I\ST_DED_CODE;<>; F:DEDUCT_MAST;Y;;T\DED_DESC=DM_DESC,T\DED_VAT=DM_VAT_CODE;DM_CODE='$I\ST_DED_CODE$';I\ST_DED_CODE A:LEFT;T\DED_DESC,15;T\DED_DESC C:MCASE;;T\DED_DESC |
|
| 1 | 0.0 | Work 10 | I | -1 | 451, 229 | $CALCULATE 'M: C:UCASE F:VAT_MAST;;;I\VAT_RATE=VT_RATE;VT_CODE='$T\DED_VAT$'; A:MULT;I\ST_TRQTY;I\VALUE;I\ST_PRICE;#0.00 A:VAR;I\VALUE;I\VALUE;#0.00 |
|
| 1 | 0.0 | Work 11 | I | 0 | 31, 517 | ||
| 1 | 0.0 | Work 1 | I | 0 | 101, 517 | ||
| 1 | 0.0 | SD_ITEM | I | 0 | 81, 517 | ||
| 1 | 0.0 | CM_DEL_LEN | I | 0 | 51, 517 | ||
| 1 | 0.0 | SD_SIZE | I | 0 | 111, 517 | ||
| 1 | 0.0 | STK_TRANS | ST_MARKET | I | 0 | 691, 157 | |
| 1 | 0.0 | SUPPL | I | 0 | 21, 145 | ||
| 1 | 0.0 | STK_DETS | SD_DATE | I | 0 | 661, 157 | |
| 1 | 0.0 | Work 1 | I | 0 | 1, 73 | $DEFAULT 'LOAD MARKET CODE A:ORG;;I\MARKET A:ORGS;;I\ORGS 'LOAD MARKET NAME F:CLIENT_MAST;;CM_CODE;T\MARKET=CM_NAME,I\PROHIBIT_SALES=CM_PROHIBIT_SALES 'CONVERT THE FIRST CHARACTER TO UPPERCASE C:MCASE;;T\MARKET I:I\PROHIBIT_SALES;=;Y D:YOU CAN'T CONTINUE PROGRAM IS PROHIBITED;ERRORM; A:VAR;I\MARKET;I |
|
| 1 | 0.0 | Work 6 | I | -1 | 391, 229 | ||
| 1 | 0.0 | Work 1 | I | 0 | 31, 517 | ||
| 1 | 0.0 | Work 2 | I | -1 | 531, 229 | ||
| 1 | 0.0 | Work 5 | I | 0 | 31, 517 | ||
| 1 | 0.0 | Work 9 | I | -1 | 321, 121 | $SELECT S:BUYER_NO;I\ST_DEBTOR $VALIDATE C:UCASE A:CONST;;I\LINE,I\ST_DOCNO,I\COMM,I\ST_TRQTY,I\ST_PRICE,I\DED_VAT,I\VALUE,I\DEL O:ENABLEINPUT;I\LINE,I\ST_DOCNO,I\COMM,I\ST_TRQTY,I\ST_PRICE,I\DED_VAT,I\VALUE,I\DEL M: F:DEBTOR_MAST;Y;;T\BUYER_NAME=DM_NAME;DM_DEBTOR='$I\ST_DEBTOR$';I\ST_DEBTOR |
|
| 1 | 0.0 | Work 11 | I | 0 | 51, 73 | $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 O:LOADPIC;$GBLROOT$LEGEND\PROJ_FMS\PICS\NEW_TEXT_DOC.ICO;C\CREATE |
|
| 1 | 0.0 | Work 4 | I | -1 | 611, 229 | ||
| 1 | 0.0 | CMD 1 | C | -1 | 421, 121 | ||
| 1 | 0.0 | SD_COMM | I | -1 | 171, 229 | ||
| 1 | 0.0 | STK_TRANS | ST_DOCNO | I | -1 | 61, 229 | '$SELECT 'S:DOCNO_AGN_GRO;I\ST_DOCNO;I\MARKET '$VALIDATE 'M: ' F:STK_TRANS;Y;;I\ST_TRDTE=ST_TRDTE,I\ST_TAXINV=ST_TAXINV,I\ST_CONSIGN=ST_CONSIGN,I\ST_DEBTOR=ST_DEBTOR,I\ST_TRQTY=ST_TRQTY,I\ST_PRICE=ST_TRPRICE;ST_MARKET='$I\MARKET$' AND ST_DOCNO = '$I\ST_DOCNO$';I\ST_DOCNO ' F:STK_DETS;Y;;I\SD_AGENT=SD |
| 1 | 0.0 | Work 1 | I | 0 | 661, 157 | ||
| 1 | 0.0 | Check 2 | K | -1 | 341, 481 | ||
| 1 | 0.0 | Label 16 | T | -1 | 671, 25 | ||
| 1 | 0.0 | Label 8 | T | -1 | 271, 25 | ||
| 1 | 0.0 | Label 14 | T | -1 | 621, 25 | ||
| 1 | 0.0 | Label 15 | T | -1 | 621, 49 | ||
| 1 | 0.0 | Label 9 | T | -1 | 171, 205 | ||
| 1 | 0.0 | Label 8 | T | -1 | 61, 205 | ||
| 1 | 0.0 | Label 9 | T | -1 | 271, 49 | ||
| 1 | 0.0 | Label 17 | T | -1 | 671, 49 | ||
| 1 | 0.0 | Label 1 | T | -1 | 1, 25 | ||
| 1 | 0.0 | Label 2 | T | 0 | 21, 145 | ||
| 1 | 0.0 | Label 3 | T | 0 | 21, 145 | ||
| 1 | 0.0 | Label 2 | T | 0 | 661, 157 | ||
| 1 | 0.0 | DEDUCTION CODE | T | 0 | 21, 121 | ||
| 1 | 0.0 | Label 1 | T | -1 | 461, 121 | ||
| 1 | 0.0 | Label 7 | T | -1 | 451, 205 | ||
| 1 | 0.0 | Label 3 | T | -1 | 231, 481 | ||
| 1 | 0.0 | Label 8 | T | -1 | 231, 121 | ||
| 1 | 0.0 | Label 2 | T | 0 | 21, 121 | ||
| 1 | 0.0 | Label 3 | T | -1 | 611, 205 | ||
| 1 | 0.0 | Label 5 | T | -1 | 391, 205 | ||
| 1 | 0.0 | Label 3 | T | -1 | 531, 205 | ||
| 1 | 0.0 | Work 1 | I | -1 | 711, 229 | $CALCULATE C:UCASE V:Y;N I:I\DEL;=;N DO(0) U:ZZGRID_SPLIT;SCREEN_TO_GRID;G\GRID;I\LINE O:SETFOCUS;I\LINE A:CONST;;I\LINE,I\ST_DOCNO,I\COMM,I\ST_TRQTY,I\ST_PRICE,I\DED_VAT,I\VALUE,I\SUPPL,I\DELNO,I\CONSIGN,I\DELDATE,I\DEL DOEND(0) I:I\DEL;=;Y DO(01) U:ZZGRID_SPLIT;SCREEN_TO_GRID;G\GRID;I\LINE |
|
| 1 | 0.0 | Label 2 | T | -1 | 711, 205 | ||
| 1 | 0.0 | Work 3 | I | -1 | 21, 229 | $CALCULATE I:I\LINE;<>; DO(DLD) O:ENABLEINPUT;I\PRICE O:SETFOCUS;I\PRICE U:ZZGRID_SPLIT;GRID_TO_SCREEN;G\GRID;I\LINE A:CONST;Y;I\DEL DOEND(DLD) I:I\LINE;=; DO(SQS) O:DISABLEINPUT;G\GRID,I\LINE,I\ST_DOCNO,I\COMM,I\ST_TRQTY,I\ST_PRICE,I\DED_VAT,I\VALUE,I\SUPPL,I\DELNO,I\CONSIGN,I\DELDATE, |
|
| 1 | 0.0 | Label 4 | T | -1 | 21, 205 | ||
| 1 | 0.0 | Label 5 | T | -1 | 231, 157 | ||
| 1 | 0.0 | Work 6 | I | 0 | 21, 73 | ||
| 1 | 0.0 | Work 7 | I | 0 | 61, 73 | ||
| 1 | 0.0 | Work 8 | I | -1 | 321, 157 | $SELECT S:GRO_TAX_INV;I\ST_TAXINV;I\MARKET;I\AGENT;I\ST_DEBTOR $VALIDATE 'INITIALIZES THE GRID U:ZZGRID_SPLIT;INIT_GRID;G\GRID;I\LINE,I\ST_DOCNO,I\COMM,I\ST_TRQTY,I\ST_PRICE,I\DED_VAT,I\VALUE,I\DEL,I\SUPPL:H,I\DELNO:H,I\CONSIGN:H,I\DELDATE:H M: F:STK_TRANS;Y;;;ST_MARKET='$I\MARKET$' AND ST_AGENT = '$I\AGEN |
|
| 1 | 0.0 | Label 1 | T | -1 | 3, 49 | ||
| 1 | 0.0 | Work 1 | I | 0 | 301, 265 | ||
| 1 | 0.0 | Work 2 | I | 0 | 401, 265 | ||
| 1 | 0.0 | Work 1 | I | 0 | 501, 265 | ||
| 1 | 0.0 | Check 1 | K | -1 | 561, 481 | $CALCULATE O:SETFOCUS;C\CREATE O:BACKCOLOR;C\CREATE;YELLOW |
|
| 1 | 0.0 | CMD 2 | C | -1 | 421, 157 | ||
| 1 | 0.0 | Label 2 | T | -1 | 451, 481 | ||
| 1 | 0.0 | Work 4 | I | 0 | 31, 517 | ||
| 10 | 0.0 | ZX_UPDATE | Z | 0 | 0, 0 | ||
| 10 | 0.0 | ZX_SELECT | Z | 0 | 1, 25 | ||
| 10 | 0.0 | ZX_EXIT | Z | 0 | 1, 25 | ||
| 10 | 0.0 | ZX_DELETE | Z | 0 | 1, 25 | ||
| 10 | 0.0 | ZX_PRINT | Z | 0 | 1, 25 |