Freshmark replication server

freshmark-canonical

Program drill-down

CONDITION_COMMENT

CONSIGNMENT CONDITION. Type DSP, base table STK_DETS.

Field inventory

57

Live detail pulled from the database.

Page Seq Table Field Type Visible Position Logic snippet
1 0.0 Work 1 I 0 131, 469
  
1 0.0 CMD 22 C -1 481, 169
$SELECT  I:I\ORGS;=;  S:CONSDEL;I\CONSIGN    I:I\ORGS;<>;  S:CONSDEL1;I\CONSIGN;I\ORGS
1 0.0 Work 15 I -1 381, 169
$SELECT  I:I\ORGS;=;  S:CONSDEL;I\CONSIGN    I:I\ORGS;<>;  S:CONSDEL1;I\CONSIGN;I\ORGS    $CALCULATE    A:CONST;;I\TMP1  M:  'ZEROFILL  F:CLIENT_MAST;;;I\DEL_LEN=CM_DEL_LEN;CM_CODE='$I\MARKET$'  A:ADD;"2";I\DEL_LEN;I\DEL_LEN  A:ZEROFILL;I\CONSIGN,I\DEL_LEN;I\CONSIGN    'LOOK UP DETAILS FOR THIS CONSIGNMENT=============
1 0.0 CMD 1 C -1 371, 409
$SELECT  A:VAR;I\DELDATE;I\DELDATE;;YYYY/MM/DD      U:CONDITION_COMMENT;UPDATE_COMMENT    I:I\ORGS;=;  DO(0)    O:SETFOCUS;I\AGENT    A:CONST;;I\CONSIGN,I\TMP1,I\PALLS,I\AGENT,T\AGN_DESC,I\SUPPL,T\SUPP_DESC,I\COMMODITY,I\QTY,I\DELDATE,I\COMMENT  DOEND(0)    I:I\ORGS;<>;  DO(0)    O:SETFOCUS;I\CONSIGN    A:CONST;;I\CONS
1 0.0 Work 1 I 0 41, 229
  
1 0.0 H -1 0, 0
  
1 0.0 I -1 381, 133
$VALIDATE  A:CONST;;I\CONSIGN,I\SUPPL,T\SUPP_DESC,I\COMMODITY,I\QTY,I\DELDATE,I\COMMENT    F:AGENT_MAST;Y;;T\AGN_DESC=AM_NAME;AM_CODE='$I\AGENT$';I\AGENT  
1 0.0 Work 17 I -1 381, 217
  
1 0.0 Work 18 I -1 381, 253
  
1 0.0 Work 19 I -1 381, 289
  
1 0.0 I -1 381, 325
  
1 0.0 I -1 381, 361
$CALCULATE  M:  C:UCASE      O:BACKCOLOR;C\DEL;YELLOW  O:SETFOCUS;C\DEL
1 0.0 Work 24 I 0 1, 61
$DEFAULT  A:DATE;DD MMM YYYY;T\DATE  A:TIME;HH:MM:SS;T\TIME  A:TIMER_ON;1000    O:CAPTION_UPD;PROCESS    U:MENU_GROUP;LOOKUP
1 0.0 Work 25 I 0 21, 61
$DEFAULT  'LOAD MARKET CODE  A:ORG;;I\MARKET  A:ORGS;;I\ORGS    'LOAD MARKET  NAME  F:CLIENT_MAST;;CM_CODE;I\PROHIBIT_SALES=CM_PROHIBIT_SALES,T\MARKET=CM_NAME    I:I\PROHIBIT_SALES;=;Y  DO(LAM)    O:DISABLEINPUT;I\CONSIGN    D:SALES ARE PROHIBITED, TRANSACTION CANNOT BE DONE;ERRORM;I\CONSIGN  DOEND(LAM)    'CHANGING TE
1 0.0 Work 26 I 0 41, 61
$DEFAULT  A:ORGS;;I\ORGS  
1 0.0 Work 27 I 0 61, 61
$DEFAULT  A:USERIP;;I\IP
1 0.0 Work 28 I 0 81, 61
$DEFAULT  A:USERID;;I\USERID
1 0.0 Work 30 I 0 701, 529
$BEFORE_WRITE  A:VAR;I\DELDATE;I\DELDATE;;YYYY/MM/DD    U:CONSIGN_DELETION;CHECK_SALES  I:I\TMP1;=;N  DO(DSS)   D:CANNOT DELETE CONSIGNMENT, SALES HAVE TAKEN PLACE;ERRORM;I\CONSIGN   A:CONST;;I\TMP1  DOEND(DSS)    'MAKE SURE NO CS MOVMENT IS PRESENT  U:CONSIGN_DELETION;CHECK_CS  I:I\TMP1;=;N  DO(GBG)   D:COLD STORAGE M
1 0.0 Work 1 I 0 11, 253
  
1 0.0 Work 2 I 0 41, 253
  
1 0.0 Work 3 I 0 71, 253
  
1 0.0 Work 36 I 0 11, 541
  
1 0.0 Work 35 I 0 31, 541
  
1 0.0 Work 34 I 0 51, 541
  
1 0.0 Work 38 I 0 71, 541
  
1 0.0 I 0 11, 385
  
1 0.0 I 0 171, 61
  
1 0.0 Work 40 I 0 731, 109
  
1 0.0 Work 5 I 0 691, 109
  
1 0.0 Work 3 I 0 651, 109
  
1 0.0 Work 2 I 0 591, 109
  
1 0.0 Work 1 I 0 641, 109
  
1 0.0 Work 4 I 0 591, 85
  
1 0.0 RR I 0 711, 109
  
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 251, 49
  
1 0.0 Label 4 T -1 621, 25
  
1 0.0 Label 5 T -1 671, 25
  
1 0.0 Label 6 T -1 621, 49
  
1 0.0 Label 7 T -1 671, 49
  
1 0.0 Label 8 T -1 221, 169
  
1 0.0 Label 9 T -1 221, 133
  
1 0.0 Label 10 T -1 221, 217
  
1 0.0 Label 11 T -1 221, 253
  
1 0.0 Label 12 T -1 221, 289
  
1 0.0 Label 13 T -1 221, 325
  
1 0.0 Label 14 T -1 221, 361
  
1 0.0 Label 32 T -1 441, 133
  
1 0.0 Work 1 I 0 11, 469
  
1 0.0 Label 39 T -1 491, 217
  
1 0.0 Work 1 I 0 11, 229
  
10 0.0 ZX_PRINT Z 0 0, 0
  
10 0.0 ZX_SELECT Z 0 0, 0
  
10 0.0 ZX_DELETE Z 0 0, 0
  
10 0.0 ZX_UPDATE Z 0 0, 0
  
10 0.0 ZX_EXIT Z 0 0, 0