Program drill-down
SUPPLIER_PALL_RETURN
SUPPLIER PALLET RETURN. Type DSP, base table PALL_TRANS.
Field inventory
71
Live detail pulled from the database.
| Page | Seq | Table | Field | Type | Visible | Position | Logic snippet |
|---|---|---|---|---|---|---|---|
| 1 | 0.0 | PT_PALL | I | -1 | 51, 265 | 'SELECT PALLET CODE FROM THE SELECTION WINDOW $SELECT I:I\POOL;=;1 DO(01) I:I\AGN_POOL;=;0 S:PALLET_CODE2_2;I\PT_PALL DOEND(01) I:I\POOL;=;0 DO(02) I:I\AGN_POOL;=;1 S:PALLET_CODE2_1;I\PT_PALL;I\AGENT DOEND(02) I:I\POOL;=;0 DO(03) I:I\AGN_POOL;=;0 S:PALLET_CODE2_2;I\PT_PALL DOEND(03) $CALCULAT |
|
| 1 | 0.0 | H | -1 | 0, 30 | |||
| 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 | 291, 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 | Work 8 | I | 0 | 101, 37 | $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 | Work 9 | I | 0 | 111, 493 | ||
| 1 | 0.0 | Label 10 | T | -1 | 361, 181 | ||
| 1 | 0.0 | Work 11 | I | 0 | 131, 37 | $DEFAULT 'PUTS PIC ON THE UPDATE BUTTON O:LOADPIC;$GBLROOT$LEGEND\PROJ_FMS\PICS\NEW_TEXT_DOC.ICO;C\CREATE A:DATE;DD MMM YYYY;T\DATE A:TIME;HH:MM:SS;T\TIME A:TIMER_ON;1000 A:USERIP;;I\IP A:USERID;;I\USER U:ZZGRID_SPLIT;INIT_GRID;G\GRID;I\LINE,I\PT_PALL,I\DESCRIPTION,I\PT_SECT,I\DEL_QTY,I\RETURN,I\PAID,I\AVAI |
|
| 1 | 0.0 | Work 33 | I | 0 | 141, 493 | ||
| 1 | 0.0 | PT_SUPPL | I | -1 | 251, 133 | 'SELECT SUPPLIER CODE FROM THE SELECTION WINDOW $SELECT S:SUPPLIER_CODE;I\PT_SUPPL $VALIDATE M: C:UCASE 'CHECK AGENT IF IS SET TO USE PALLET POOL I:I\POOL;=;0 DO(CKH) I:I\AGN_POOL;=;0 D:AGENT IS NOT SET TO USE PALLET POOL;ERROR; DOEND(CHK) A:ZEROFILL;I\PT_SUPPL,6,I\PT_SUPPL 'LOOKUP FOR AN EXISTING |
|
| 1 | 0.0 | PALL_TRANS | PT_SUPPL | T | -1 | 161, 133 | |
| 1 | 0.0 | PALL_TRANS | PT_PALL | T | 0 | 51, 193 | |
| 1 | 0.0 | CMD 2 | C | -1 | 101, 265 | 'SELECT PALLET CODE FROM THE SELECTION WINDOW $SELECT S:PALLET_CODE2;I\PT_PALL |
|
| 1 | 0.0 | PT_SECT | I | -1 | 281, 265 | $DEFAULT 'CHECK MARKET IF USES SECTION OR SALESMAN F:CLIENT_MAST;;;W\SECTION=CM_PALL_SECT;CM_CODE='$I\MARKET$'; $SELECT 'I:W\SECTION;=;S 'S:SECTION_CODE23;I\PT_SECT;I\PT_SUPPL;I\PT_PALL THIS SECTION THING COMMENTED BY LP16022010 ON CHRISTO'S REQUEST 'I:W\SECTION;=;I 'S:SECTION_CODE23;I\PT_SECT;I\PT_SU |
|
| 1 | 0.0 | PALL_TRANS | PT_SECT | T | 0 | 201, 217 | |
| 1 | 0.0 | DESCRIPTION | I | -1 | 131, 265 | ||
| 1 | 0.0 | Label 5 | T | -1 | 131, 241 | ||
| 1 | 0.0 | DEL_QTY | I | -1 | 361, 265 | ||
| 1 | 0.0 | PT_TRQTY | T | 0 | 411, 217 | ||
| 1 | 0.0 | CMD 7 | C | -1 | 331, 265 | $SELECT I:W\SECTION;=;S S:SECTION_CODE23;I\PT_SECT;I\PT_SUPPL;I\PT_PALL I:W\SECTION;=;I S:SECTION_CODE23;I\PT_SECT;I\PT_SUPPL;I\PT_PALL I:W\SECTION;=;M S:SALESMAN23;I\PT_SECT;I\PT_SUPPL;I\PT_PALL |
|
| 1 | 0.0 | RETURN | I | -1 | 421, 265 | ||
| 1 | 0.0 | CMD 9 | C | -1 | 351, 133 | 'SELECT SUPPLIER CODE FROM THE SELECTION WINDOW $SELECT S:SUPPLIER_CODE;I\PT_SUPPL |
|
| 1 | 0.0 | Label 10 | T | -1 | 421, 241 | ||
| 1 | 0.0 | PAID | I | -1 | 491, 265 | ||
| 1 | 0.0 | PAID | T | -1 | 491, 241 | ||
| 1 | 0.0 | LINE | I | -1 | 1, 265 | $DEFAULT A:CONST;+;I\LINE $CALCULATE I:I\LINE;<>;+ DO(LINE1) U:ZZGRID_SPLIT;GRID_TO_SCREEN;G\GRID;I\LINE O:DISABLEINPUT;I\PT_PALL,I\PT_SECT,I\PT_TRQTY,I\PT_TRVAL,I\PT_DELIND,K\PRINT DOEND(LINE1) I:I\LINE;=; DO(LINE) O:DISABLEINPUT;I\PT_PALL,I\PT_SECT,I\PT_TRQTY,I\PT_TRVAL,I\PT_DELIND |
|
| 1 | 0.0 | Label 13 | T | -1 | 1, 241 | ||
| 1 | 0.0 | Label 14 | T | -1 | 291, 217 | ||
| 1 | 0.0 | Label 15 | T | -1 | 281, 241 | ||
| 1 | 0.0 | Label 16 | T | -1 | 551, 241 | ||
| 1 | 0.0 | AVAIL_QTY | I | -1 | 551, 265 | ||
| 1 | 0.0 | PT_TRQTY | I | -1 | 621, 265 | $CALCULATE M: I:I\PT_TRQTY;>;I\AVAIL_QTY D:RETURNED QUANTITY CANNOT BE GREATER THAN AVAILABLE QUANTITY;ERRORM;I\PT_TRQTY 'I:I\LINE;=;+ U:SUPPLIER_PALL_RETURN;CHECK_QTY;G\GRID,I\PT_PALL,I\PT_TRQTY,I\PT_SECT I:W\CHK_QTY;=;N O:SETFOCUS;I\PT_TRQTY |
|
| 1 | 0.0 | Label 19 | T | -1 | 621, 241 | ||
| 1 | 0.0 | PT_TRVAL | I | -1 | 671, 265 | $CALCULATE M: I:I\PT_TRVAL;=;0.00 D:ERROR - MONEY CANNOT BE ZERO;ERRORM;I\PT_TRVAL |
|
| 1 | 0.0 | Label 21 | T | -1 | 671, 241 | ||
| 1 | 0.0 | Label 22 | T | -1 | 51, 217 | ||
| 1 | 0.0 | Label 23 | T | -1 | 51, 241 | ||
| 1 | 0.0 | Label 24 | T | -1 | 361, 217 | ||
| 1 | 0.0 | Label 25 | T | -1 | 361, 241 | ||
| 1 | 0.0 | PT_DELIND | I | -1 | 751, 265 | $CALCULATE I:I\PT_DELIND;=; A:CONST;N;I\PT_DELIND V:Y;N M: I:I\LINE;=;+ U:SUPPLIER_PALL_RETURN;LINE_NO;G\GRID I:I\FLAG;=;N O:SETFOCUS;I\PT_SECT I:I\FLAG;=;Y DO(FLAG) U:ZZGRID_SPLIT;SCREEN_TO_GRID;G\GRID;I\LINE,I\PT_PALL A:CONST;;I\LINE,I\PT_PALL,I\DESCRIPTION,I\PT_SECT,I\DEL_QTY,I\RETURN |
|
| 1 | 0.0 | Label 27 | T | -1 | 751, 241 | ||
| 1 | 0.0 | GRID | G | -1 | 1, 289 | ||
| 1 | 0.0 | Label 29 | T | -1 | 631, 493 | ||
| 1 | 0.0 | Check 30 | K | -1 | 601, 493 | $VALIDATE O:SHOW;C\CREATE O:ENABLEINPUT;C\CREATE O:SETFOCUS;C\CREATE O:BACKCOLOR;C\CREATE;YELLOW $ESC O:HIDE;C\CREATE O:DISABLEINPUT;C\CREATE |
|
| 1 | 0.0 | Label 31 | T | -1 | 611, 181 | ||
| 1 | 0.0 | Label 32 | T | -1 | 381, 133 | ||
| 1 | 0.0 | AGENT | I | -1 | 71, 85 | $DEFAULT A:ORGS;I\AGENT F:AGENT_MAST;;AM_CODE;T\AGENT2=AM_NAME,I\POOL=AM_PALLET_POOL,I\AGN_POOL=AM_OWN_PALL_POOL;AM_MARKET='$I\MARKET$' AND AM_CODE = '$I\AGENT$' O:HIDE;C\CREATE I:I\AGENT;=; DO(01) O:DISABLEINPUT;C\SUPPL,C\PALL,C\SECT D:YOU MUST BE AN AGENT;ERRORM; DOEND(01) 'I:I\POOL;<>;1 'D:AGENT IS |
|
| 1 | 0.0 | Label 2 | T | -1 | 1, 85 | ||
| 1 | 0.0 | Label 3 | T | -1 | 131, 85 | ||
| 1 | 0.0 | POOL | I | 0 | 81, 493 | ||
| 1 | 0.0 | Work 6 | I | 0 | 191, 493 | ||
| 1 | 0.0 | Work 7 | I | 0 | 211, 493 | ||
| 1 | 0.0 | Work 8 | I | 0 | 231, 493 | ||
| 1 | 0.0 | Work 1 | I | 0 | 261, 493 | ||
| 1 | 0.0 | CMD 2 | C | -1 | 651, 545 | $ESC O:HIDE;C\CREATE O:DISABLEINPUT;C\CREATE $SCMD_FOCUS O:BACKCOLOR;C\CREATE;YELLOW $SELECT 'COUNT GRID ROWS U:SUPPLIER_PALL_RETURN;LINE_NO;G\GRID I:I\LINE;<=;1 D:NO RECORDS SELECTED TO PROCESS;ERRORM;I\LINE I:I\LINE;>;1 U:SUPPLIER_PALL_RETURN;UPDATE_PALL_RETURNS;G\GRID,I\PT_SUPPL,I\MARKET,I\AGENT,I\U |
|
| 1 | 0.0 | Work 1 | I | 0 | 361, 493 | ||
| 1 | 0.0 | Work 1 | I | 0 | 291, 493 | ||
| 1 | 0.0 | Label 2 | T | 0 | 621, 217 | ||
| 1 | 0.0 | Work 3 | I | 0 | 311, 493 | ||
| 1 | 0.0 | RESULT2 | I | 0 | 331, 493 | ||
| 1 | 0.0 | Work 1 | I | 0 | 161, 37 | ||
| 10 | 0.0 | ZX_PRINT | Z | 0 | 0, 30 | ||
| 10 | 0.0 | ZX_SELECT | Z | 0 | 0, 30 | ||
| 10 | 0.0 | ZX_DELETE | Z | 0 | 0, 30 | ||
| 10 | 0.0 | ZX_UPDATE | Z | 0 | 0, 30 | ||
| 10 | 0.0 | ZX_EXIT | Z | 0 | 0, 30 |