Freshmark replication server

freshmark-canonical

Program drill-down

CS_ADJUSTMENTS

CS ADJUSTMENTS. Type DSP, base table LOC_TRANS.

Field inventory

47

Live detail pulled from the database.

Page Seq Table Field Type Visible Position Logic snippet
1 0.0 H -1 0, 0
  
1 0.0 MARKET T -1 1, 25
  
1 0.0 FRESH T -1 291, 25
  
1 0.0 SCREEN T -1 271, 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 USERID I 0 61, 61
$DEFAULT  A:USERID;;I\USERID
1 0.0 IP I 0 41, 61
$DEFAULT  A:USERIP;;I\IP
1 0.0 AGENT I 0 21, 61
$DEFAULT  A:ORGS;;I\ORGS
1 0.0 MARKET I 0 1, 61
$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  A:TIMER_ON;1000    'LOAD MARKET CODE  A:ORG;;I\MARKET    'LOAD MARKET  NAME  F:CLIENT_MAST;;CM_CODE;T\MARKET=CM_NAME    'CHANGING TEXT CASE FOR THE FIRST CHARACTER TO UPPER CASE  C:MCASE;;T\MAR
1 0.0 CMD 12 C -1 651, 541
$SELECT    I:I\QTY;=;  DO(SSA)    I:I\VAL;=;      DO(LAQ)        I:I\PALL_QTY;=;        D:PLEASE MAKE AN ADJUSTMENT;ERRORM;I\QTY                I:I\PALL_QTY;=;0        D:PLEASE MAKE AN ADJUSTMENT;ERRORM;I\QTY      DOEND(LAQ)    I:I\VAL;=;0      DO(MAM)         I:I\PALL_QTY;=;        D:PLEASE MAKE AN ADJUSTMENT;ERRORM;I
1 0.0 Work 1 I 0 21, 421
  
1 0.0 TMP I 0 671, 493
  
1 0.0 DEPNO T -1 181, 97
  
1 0.0 DEPNO I -1 321, 97
$SELECT  S:DEPOSIT_NO1;I\DEPNO    $CALCULATE  M:    F:LOC_TRANS;Y;;I\DOCNO=LT_DOCNO,T\AGN=LT_AGENT,T\CONS=LT_CONSIGNO,T\ROOMNO=LT_LOCA,T\OLD_QTY2=LT_PRQTY,T\OLD_PALL_QTY2=LT_PALL_QTY,I\DELDATE=LT_DELDATE;LT_DEPNO = '$I\DEPNO$' AND LT_TYPE = 'IS'  U:CS_ADJUSTMENTS;COMPLETE_DETAILS    A:LEFT;I\DEPNO,1;I\TMP    I:I\TMP;=;
1 0.0 CMD 4 C -1 431, 97
$SELECT  S:DEPOSIT_NO1;I\DEPNO
1 0.0 CONSIGND T -1 211, 277
  
1 0.0 QTY I -1 321, 433
$CALCULATE  A:CONST;;I\PALL_QTY,I\VAL    I:I\QTY;=;    DO(DQL)      I:T\OLD_PALL_QTY2;=;0      O:DISABLEINPUT;I\PALL_QTY            O:ENABLEINPUT;I\VAL    DOEND(DQL)    I:T\OLD_PALL_QTY2;=;0    O:DISABLEINPUT;I\PALL_QTY    I:I\QTY;<>;    DO(LAL)      O:DISABLEINPUT;I\VAL        O:SETFOCUS;C\UPDATE          O:BACKCOLOR;
1 0.0 PALL_QTY I -1 321, 469
  
1 0.0 CONS T -1 381, 277
  
1 0.0 ROOM T -1 211, 169
  
1 0.0 ROOMNO T -1 381, 169
  
1 0.0 QTY T -1 181, 433
  
1 0.0 PALL_QTY T -1 181, 469
  
1 0.0 VAL I -1 321, 505
$CALCULATE    O:SETFOCUS;C\UPDATE  O:BACKCOLOR;C\UPDATE;YELLOW  
1 0.0 VAL T -1 181, 505
  
1 0.0 OLD_QTY1 T -1 211, 349
  
1 0.0 OLD_QTY2 T -1 381, 349
  
1 0.0 OLD_PALL_QTY1 T -1 211, 385
  
1 0.0 OLD_PALL_QTY2 T -1 381, 385
  
1 0.0 SUPPL _NAME T -1 501, 241
  
1 0.0 FLOOR T -1 381, 313
  
1 0.0 SUPPL1 T -1 211, 241
  
1 0.0 SUPPL T -1 381, 241
  
1 0.0 AGN1 T -1 211, 133
  
1 0.0 AGN T -1 381, 133
  
1 0.0 FQTY T -1 211, 313
  
1 0.0 COMM T -1 211, 205
  
1 0.0 COMMOD T -1 381, 205
  
1 0.0 Work 28 I 0 41, 553
  
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