Freshmark replication server

freshmark-canonical

Program drill-down

DISCARDS_CONSIGN

DISCARDS MAINTENANCE. Type DSP, base table AREA_MAST.

Field inventory

81

Live detail pulled from the database.

Page Seq Table Field Type Visible Position Logic snippet
1 0.0 Work 1 I 0 591, 301
  
1 0.0 DISCARD_CONF I 0 681, 133
  
1 0.0 USERNAME I 0 31, 97
  
1 0.0 CMD 8 C -1 371, 457
$SELECT  'DISPLAY A SELECTION WINDOW  S:CHARGE_CODE;I\DT_DEDUCT_CODE
1 0.0 UPDATE C -1 651, 545
$SCMD_FOCUS  O:BACKCOLOR;C\UPDATE;YELLOW    $SELECT    I:I\SD_CONSIGN;<>;W\SD_CONSIGN  D:CONSIGNMENT HAS CHANGED - RE-ENTER THE CONSIGNMENT;ERRORM;I\SD_CONSIGN    'REVALIDATE THE QTY DISCARDED  I:I\DISQTY;=;0;NUM  D:DISCARD QUANTITY CANNOT BE ZERO;ERRORM;I\DISQTY    I:I\DISQTY;>;I\QTY_AVAIL;NUM  D:DISCARD QTY CANNOT BE
1 0.0 Work 1 I 0 531, 529
  
1 0.0 Work 1 I 0 701, 133
  
1 0.0 ST_CERTNO I -1 271, 421
$CALCULATE  C:UCASE    I:I\MARKET;=;11  M:    I:I\MARKET;=;11  DO(MKT11)  A:ISNUMERIC;I\ST_CERTNO;I\CHK  I:I\CHK;=;N  D:CERTIFICATE NUMBER MUST BE NUMERIC;ERRORM;I\ST_CERTNO  DOEND(MKT11)
1 0.0 Label 2 T -1 111, 421
  
1 0.0 Label 3 T -1 111, 277
  
1 0.0 Label 4 T -1 111, 313
  
1 0.0 Label 5 T -1 111, 385
  
1 0.0 SD_RECQTY I -1 271, 277
  
1 0.0 SUPPLIER T -1 271, 241
  
1 0.0 DELIVERY DATE T -1 271, 205
  
1 0.0 Label 2 T -1 111, 97
  
1 0.0 STK_DETS SD_CONSIGN I -1 271, 133
$SELECT  S:CONS;I\SD_CONSIGN;I\MARKET;I\SD_AGENT      $CALCULATE  ''I:I\AGENT;=;  ''D:ONLY AGENTS ARE ALLOWED TO VIEW THIS SCREEN;ERRORM;I\SD_CONSIGN    A:CONST;N;I\CONFIRM    I:W\DISCARD_CONF;=;N    DO(CFM)     A:CONST;Y;I\CONFIRM     O:DISABLEINPUT;I\CONFIRM    DOEND(CFM)    A:CONST;;T\COMMODITY,T\DELDATE,T\SUPPL,I\S
1 0.0 Label 4 T -1 111, 133
  
1 0.0 Label 10 T -1 1, 25
  
1 0.0 Label 9 T -1 671, 25
  
1 0.0 Label 8 T -1 621, 25
  
1 0.0 Label 7 T -1 671, 49
  
1 0.0 Label 6 T -1 621, 49
  
1 0.0 Label 5 T -1 301, 49
  
1 0.0 Label 4 T -1 291, 25
  
1 0.0 H -1 1, 1
  
1 0.0 SD_ITEM I 0 61, 553
  
1 0.0 CM_DEL_LEN I 0 421, 133
  
1 0.0 COMMODITY T -1 271, 169
  
1 0.0 Work 1 I 0 11, 61
$DEFAULT  'LOAD MARKET CODE  A:ORG;;I\MARKET    'LOAD MARKET  NAME  F:CLIENT_MAST;;CM_CODE;T\MARKET=CM_NAME,W\ZEROFILL=CM_DEL_LEN,I\PROHIBIT_SALES=CM_PROHIBIT_SALES,W\DISCARD_CONF=CM_DISCARD_CONF,I\MKTABBREV=CM_NAME_ABBREV,I\BO_ADDY=CM_BO_SERVER    I:I\PROHIBIT_SALES;=;Y  DO(LAM)    O:DISABLEINPUT;I\SD_AGENT    D:SALES
1 0.0 CMD 5 C -1 391, 133
$SELECT  S:CONS;I\SD_CONSIGN;I\MARKET;I\AGENT
1 0.0 BLOCKED I 0 521, 133
  
1 0.0 AGENT T -1 391, 97
  
1 0.0 AGENT CODE I 0 31, 61
$DEFAULT  'PUTS PIC ON THE UPDATE BUTTON  O:LOADPIC;$GBLROOT$LEGEND\PROJ_FMS\PICS\NEW_TEXT_DOC.ICO;C\UPDATE    A:ORGS;;I\AGENT    'GET USERNAME  A:USERNAME;;I\USER    'GET USER IP  A:USERIP;;I\IP    'GET THE USER ID OF THE CURRENT USER  A:USERID;;I\USER_NAME      'LOAD AGENT NAME  F:AGENT_MAST;;AM_CODE;T\AGENT=AM_NAME;
1 0.0 SD_CONT I 0 181, 553
  
1 0.0 SD_CONTMASS I 0 231, 553
  
1 0.0 SD_CLASS I 0 281, 553
  
1 0.0 SD_SIZE I 0 321, 553
  
1 0.0 SD_PROV I 0 371, 553
  
1 0.0 VARIETY I 0 141, 553
  
1 0.0 PRODUCT I 0 101, 553
  
1 0.0 PRODUCT DESC I 0 21, 553
  
1 0.0 VARIETY DESC I 0 41, 553
  
1 0.0 Label 28 T -1 111, 205
  
1 0.0 DELNO I 0 481, 133
  
1 0.0 Label 30 T -1 111, 241
  
1 0.0 Label 31 T -1 111, 169
  
1 0.0 SALESMAN I 0 551, 133
  
1 0.0 TEMP I 0 401, 241
  
1 0.0 CONFIRM I -1 541, 421
  
1 0.0 Label 2 T -1 441, 421
  
1 0.0 QTY AVAIL I -1 271, 313
  
1 0.0 DISQTY I -1 271, 385
$CALCULATE  'MANDATORY  M:    I:I\DISQTY;=;0;NUM  D:DISCARD QUANTITY CANNOT BE ZERO;ERRORM;I\DISQTY    I:I\DISQTY;>;I\QTY_AVAIL;NUM  D:DISCARD QTY CANNOT BE GREATER THAN THE AVAIL QTY;ERRORM;I\DISQTY  
1 0.0 Label 9 T -1 111, 349
  
1 0.0 REASON CODE D -1 271, 349
$DEFAULT  U:DISCARD_REASON;REASON_DESC  B:ADDLIST;D\RSN_CODE;I\REASONS  A:CONST;;D\RSN_CODE    'LOAD THE COMBOBOX WITH DATABASE VALUES  'B:READTABLE;D\RSN_CODE;REASON_MAST;RSN_REASON;SELECT RSN_REASON FROM REASON_MAST WHERE RSN_TYPE='DS' AND RSN_BLOCKED <> 'Y'    $VALIDATE  U:DELIVERY_MAN;COMBO_SIZE;D\RSN_CODE,180    A
1 0.0 Label 12 T -1 381, 349
  
1 0.0 Label 13 T -1 111, 493
  
1 0.0 REMARK I -1 271, 493
$CALCULATE  C:UCASE    O:BACKCOLOR;C\UPDATE;YELLOW  O:SETFOCUS;C\UPDATE
1 0.0 Work 1 I 0 501, 241
  
1 0.0 Label 5 T -1 111, 457
  
1 0.0 Label 6 T -1 441, 457
  
1 0.0 Label 13 T -1 431, 205
  
1 0.0 DT_DEDUCT_CODE I -1 271, 457
$SELECT  'DISPLAY A SELECTION WINDOW  S:CHARGE_CODE;I\DT_DEDUCT_CODE      $CALCULATE  'VALIDATE FOR EXISTING DEDUCTION CODE  A:CONST;;I\DT_AMOUNT     'CONVERT TO UPERCASE  C:UCASE    I:I\DT_DEDUCT_CODE;<>;  F:DEDUCT_MAST;Y;DM_CODE;I\DT_AMOUNT=DM_RATE;DM_CALC_TYPE = '01' OR DM_CALC_TYPE ='02';I\DT_DEDUCT_CODE
1 0.0 Work 2 I 0 721, 133
  
1 0.0 SD_AGENT I -1 271, 97
$SELECT  'ALLOW THE USER TO PRESS F5 TO VIEW SELECTION WINDOW  S:AGENT_CODE;I\SD_AGENT    $CALCULATE  C:UCASE  M:    'VALIDATE THE AGENT CODE  F:AGENT_MAST;Y;;T\AGENT=AM_NAME;AM_CODE='$I\SD_AGENT$';I\SD_AGENT    I:I\SD_AGENT;<>;I\AGENT  A:VAR;I\SD_AGENT;I\AGENT
1 0.0 USER IP I 0 11, 97
  
1 0.0 SM_DTIME T -1 551, 205
  
1 0.0 DT_AMOUNT I -1 541, 457
  
1 0.0 Work 1 I 0 491, 349
  
1 0.0 CONSIGN I 0 571, 133
  
1 0.0 Work 1 I 0 621, 145
  
1 0.0 MODE D I 0 11, 145
$DEFAULT  A:CONST;D;I\MODE
1 0.0 Label 1 T -1 341, 241
  
1 0.0 Work 2 I 0 531, 241
  
1 0.0 Work 3 I 0 51, 61
  
1 0.0 Work 4 I 0 71, 61
  
10 0.0 ZX_PRINT Z 0 1, 1
  
10 0.0 ZX_SELECT Z 0 1, 1
  
10 0.0 ZX_DELETE Z 0 1, 1
  
10 0.0 ZX_UPDATE Z 0 1, 1
  
10 0.0 ZX_EXIT Z 0 1, 1