Freshmark replication server

freshmark-canonical

Program drill-down

DISCARDS_REV

DISCARDS REVERSAL. Type DSP, base table AREA_MAST.

Field inventory

124

Live detail pulled from the database.

Page Seq Table Field Type Visible Position Logic snippet
1 0.0 H -1 1, 85
  
1 0.0 SM_DELNO I 0 481, 73
  
1 0.0 ST_TRDTE I -1 521, 337
  
1 0.0 DISCARD CONFIRMA I 0 381, 529
  
1 0.0 Work 1 I 0 161, 49
  
1 0.0 Label 2 T -1 1, 25
  
1 0.0 MARKET I 0 11, 49
$DEFAULT  'LOAD MARKET CODE  A:ORG;;I\MARKET    'LOAD MARKET  NAME  F:CLIENT_MAST;;CM_CODE;T\MARKET=CM_NAME,I\PROHIBIT_SALES=CM_PROHIBIT_SALES,W\ZEROFILL=CM_DEL_LEN,W\DISCARD_CONF=CM_DISCARD_CONF    'I:I\PROHIBIT_SALES;=;Y  'DO(LAM)  '  O:DISABLEINPUT;I\SM_AGENT,I\CONSIGN  '  D:SALES ARE PROHIBITED, TRANSACTION CANNOT 
1 0.0 SD_RECQTY I 0 211, 529
  
1 0.0 STK_MAST SM_AGENT I -1 151, 97
$SELECT  S:AGENT_CODE;I\SM_AGENT    $CALCULATE  C:UCASE  M:  F:AGENT_MAST;Y;;T\AGENT=AM_NAME;AM_CODE='$I\SM_AGENT$'  A:VAR;I\SM_AGENT;I\AGENT
1 0.0 STK_MAST SM_AGENT T -1 11, 97
  
1 0.0 GRID G -1 1, 361
  
1 0.0 Label 16 T -1 291, 25
  
1 0.0 Label 17 T -1 301, 49
  
1 0.0 Label 18 T -1 621, 25
  
1 0.0 Label 19 T -1 671, 25
  
1 0.0 Label 20 T -1 621, 49
  
1 0.0 Label 21 T -1 671, 49
  
1 0.0 STK_DETS SD_CONSIGN I 0 31, 373
  
1 0.0 I -1 111, 337
  
1 0.0 Label 24 T -1 111, 313
  
1 0.0 SD_RECQTY I -1 251, 337
  
1 0.0 STK_DETS SD_RECQTY T -1 251, 313
  
1 0.0 RSN_CODE T -1 321, 313
  
1 0.0 STK_DETS SD_CERTNO I -1 31, 337
  
1 0.0 I -1 371, 337
  
1 0.0 T -1 369, 312
  
1 0.0 Label 30 T -1 201, 97
  
1 0.0 COMMOITY T -1 151, 169
  
1 0.0 Label 5 T -1 151, 205
  
1 0.0 Label 33 T 0 321, 277
  
1 0.0 SOLD QTY I -1 280, 337
  
1 0.0 Label 35 T -1 471, 289
  
1 0.0 I -1 476, 336
  
1 0.0 SD_CERTNO T -1 34, 313
  
1 0.0 ST_RSN_CODE D 0 551, 133
  
1 0.0 SD_CFM T -1 599, 311
  
1 0.0 CONFIRM I -1 600, 337
  
1 0.0 DEDUCT_TRANS DT_DEDUCT_CODE I -1 635, 337
  
1 0.0 ACTION I -1 771, 337
$CALCULATE  'CONVERT TO UPERCASE  C:UCASE    'DISPLAY ERROR MESSAGE IF ANY OTHER VALUES OTHER THAN BLANK OR 'Y' ARE ENTERED  V:Y;    I:I\RSN_CODE;=;  D:THERE ARE NO DISCARDS ON THIS CONSIGNMENT;ERRORM;I\LINE               U:ZZGRID_SPLIT;SCREEN_TO_GRID;G\DISCARD;I\LINE    A:CONST;;I\LINE,I\SD_CONSIGN,I\ST_DOCNO,I\SD_COM
1 0.0 Label 44 T -1 713, 311
  
1 0.0 Label 45 T -1 771, 313
  
1 0.0 Label 46 T -1 635, 311
  
1 0.0 Label 47 T -1 251, 291
  
1 0.0 Label 48 T 0 281, 277
  
1 0.0 Label 49 T -1 477, 312
  
1 0.0 Work 56 I 0 1, 529
  
1 0.0 DEFAULT I 0 41, 49
$DEFAULT  'PUTS PIC ON THE UPDATE BUTTON  O:LOADPIC;$GBLROOT$LEGEND\PROJ_FMS\PICS\NEW_TEXT_DOC.ICO;C\UPDATE      A:DATE;DD MMM YYYY;T\DATE  A:TIME;HH:MM:SS;T\TIME  A:TIMER_ON;1000    'INITIALIZE GRID  'U:ZZGRID_SPLIT;INIT_GRID;G\DISCARD;I\LINE,I\SD_CONSIGN,I\ST_DOCNO:H,I\SD_COMM,I\SD_RECQTY,I\FLAG:H,I\SD_QTY:H,D\RSN_CO
1 0.0 Work 52 I 0 23, 531
  
1 0.0 Work 53 I 0 44, 530
  
1 0.0 CMD 54 C -1 251, 133
$SELECT  'DISPLAY SELECTION WINDOW FOR DELIVERIES  'S:DELIVERY_CONSIGN;I\SM_DELNO  'S:DELIVERY_CONSIGN_2;I\SM_DELNO    I:I\AGENT;=;  S:DISCARDS_CONSIGN;I\CONSIGN    I:I\AGENT;<>;  S:DISCARDS_AGN;I\CONSIGN;I\AGENT  
1 0.0 STK_DETS SD_CLASS I 0 361, 73
  
1 0.0 STK_DETS SD_SIZE I 0 381, 73
  
1 0.0 STK_DETS SD_CONT I 0 421, 85
  
1 0.0 STK_DETS SD_CONTMASS I 0 451, 73
  
1 0.0 STK_DETS SD_PROV I 0 281, 565
  
1 0.0 Label 3 T -1 1, 493
  
1 0.0 Label 4 T -1 281, 493
  
1 0.0 Label 5 T -1 551, 493
  
1 0.0 Work 6 I -1 671, 493
  
1 0.0 Work 7 I -1 421, 493
  
1 0.0 Work 8 I -1 111, 493
  
1 0.0 STK_DETS SD_RETQTY I 0 191, 565
  
1 0.0 STK_DETS SD_SLDQTY I 0 171, 565
  
1 0.0 STK_DETS SD_ADJQTY I 0 61, 565
  
1 0.0 STK_DETS SD_CSQTY I 0 31, 565
  
1 0.0 STK_DETS SD_RRQTY I 0 211, 565
  
1 0.0 DEDUCT_TRANS DT_AMOUNT I -1 711, 337
  
1 0.0 C\DT_CODE C 0 721, 181
$SELECT  'DISPLAY A SELECTION WINDOW  S:CHARGE_CODE;I\DT_DEDUCT_CODE    
1 0.0 Label 4 T -1 631, 289
  
1 0.0 Label 5 T -1 701, 289
  
1 0.0 DT_DEDUCT_CODE T 0 672, 263
  
1 0.0 W DELNO I 0 291, 73
  
1 0.0 Work 1 I 0 191, 49
  
1 0.0 STK_DETS SD_CONQTY I 0 231, 565
  
1 0.0 STK_DETS SD_PROVQTY I 0 251, 565
  
1 0.0 Work 1 I 0 311, 565
  
1 0.0 Work 2 I 0 331, 565
  
1 0.0 Work 1 I 0 371, 565
  
1 0.0 Work 1 I 0 351, 565
  
1 0.0 Work 2 I 0 391, 565
  
1 0.0 W SM_DDATE I 0 311, 73
  
1 0.0 Mode I 0 91, 49
$DEFAULT  A:CONST;R;I\MODE    
1 0.0 LINE I -1 1, 337
$SELECT  'DISPLAY A SELECTION WINDOW FOR GRID VALUES  S:G:G\DISCARD:R1        $CALCULATE  'O:DISABLEINPUT;I\RSN_CODE    I:I\LINE;=;+  D:INVALID ENTRY;ERRORM;I\LINE    I:I\LINE;<>;  O:ENABLEINPUT;I\SD_ACTION    I:I\LINE;=;   DO(NULL)     A:CONST;;I\CODE,I\DIS_QTY,I\CERTNO,I\CFM,I\DEDUCT_CODE  '''   A:CONST;;I\SD_CONSIGN
1 0.0 LINE T -1 1, 313
  
1 0.0 FLAG I 0 251, 373
  
1 0.0 ST_DOCNO I 0 71, 529
  
1 0.0 DIS QTY I 0 301, 529
  
1 0.0 CODE I 0 281, 529
  
1 0.0 CERTNO I 0 321, 529
  
1 0.0 CONFIRM I 0 341, 529
  
1 0.0 DEDUCT CODE I 0 361, 529
  
1 0.0 Label 7 T 0 481, 289
  
1 0.0 W LINE TEMP I 0 1, 289
  
1 0.0 LINE TEMP I 0 21, 289
  
1 0.0 LINE 2 I 0 41, 289
  
1 0.0 ZERO FILL I 0 511, 73
  
1 0.0 CM_DEL_LEN I 0 391, 157
  
1 0.0 Label 2 T -1 531, 289
  
1 0.0 Label 3 T -1 521, 313
  
1 0.0 CONSIGNMENT I -1 151, 133
$SELECT  'DISPLAY SELECTION WINDOW FOR DELIVERIES  'S:DISCARDS_CONSIGN;I\SM_DELNO  I:I\AGENT;=;  S:DISCARDS_CONSIGN;I\CONSIGN    I:I\AGENT;<>;  S:DISCARDS_AGN;I\CONSIGN;I\AGENT    $CALCULATE  'INTITIALIZE GRID  '''U:ZZGRID_SPLIT;INIT_GRID;G\DISCARD;I\LINE,I\SD_CONSIGN:H,I\SD_CERTNO,I\ST_DOCNO:H,I\SD_COMM,I\SD_RECQTY,I\
1 0.0 SM_DTIME T -1 411, 205
  
1 0.0 SUPPL_NAME T -1 271, 241
  
1 0.0 AGENT I 0 131, 97
$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\USER_IP    'GET THE USER ID OF THE CURRENT USER  A:USERID;;I\USER_NAME    I:I\PROHIBIT_SALES;=;Y  DO(LAM)    O:DISABLEINPUT;I\
1 0.0 Label 3 T -1 11, 133
  
1 0.0 SUPPLIER T -1 151, 241
  
1 0.0 PROD_DESC I 0 561, 73
  
1 0.0 PROD I 0 541, 73
  
1 0.0 VARIETY I 0 581, 73
  
1 0.0 Label 10 T -1 11, 205
  
1 0.0 Label 11 T -1 301, 205
  
1 0.0 Label 12 T -1 11, 241
  
1 0.0 Label 13 T -1 11, 169
  
1 0.0 SD_ITEM I 0 341, 73
  
1 0.0 VAR_DESC I 0 601, 73
  
1 0.0 UPDATE C -1 651, 545
$SCMD_FOCUS  O:BACKCOLOR;C\UPDATE;YELLOW      '$AFTER_WRITE  $SELECT    'CALCULATE GRID TOTALS  U:ZZGRID_SPLIT;GRID_SUM;G\DISCARD;I\SD_DISQTY,I\TDISCARD      '''U:DISCARDS_UPDATE;WRITE_VALUES;D\RSN_CODE,I\SM_AGENT,I\MARKET,I\SD_CONSIGN,I\SM_DELNO,T\SALESMAN,I\SD_DISQTY,T\DATE,T\TIME,I\ST_REASON,I\SD_ACTION,I\USER_NAME,
1 0.0 Work 1 I -1 321, 337
  
1 0.0 Label 1 T -1 761, 289
  
1 0.0 AREA_MAST AR_CODE I 0 301, 97
  
1 0.0 Work 3 I 0 501, 181
  
10 0.0 ZX_EXIT Z 0 1, 85
  
10 0.0 ZX_UPDATE 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_PRINT Z 0 1, 85