Freshmark replication server

freshmark-canonical

Program drill-down

AGN_PALLRET_REV

REVERSAL OF AGENT PALLET RETURNS. Type DSP, base table PALL_TRANS.

Field inventory

47

Live detail pulled from the database.

Page Seq Table Field Type Visible Position Logic snippet
1 0.0 Work 1 I 0 421, 121
  
1 0.0 Work 1 I 0 71, 553
  
1 0.0 H -1 0, 0
  
1 0.0 I -1 231, 121
$SELECT  I:I\ORGS;=;  S:RECNO_RETURNS;I\DOCNO    I:I\ORGS;<>;  S:AGN_RECNO;I\DOCNO;I\ORGS    $CALCULATE  U:ZZGRID_SPLIT;INIT_GRID;G\GRID;I\SEQ,I\PALLCODE,I\DESC1,I\PALLTYPE,I\DESC2,I\TMP:H,I\QTY_RET  M:  '===JUSTIN TEST=====================================  F:PALL_TRANS;;;I\TMP=PT_PALL;PT_DOCNO='$I\DOCNO$' AND PT_TRTYP
1 0.0 CMD 1 C -1 651, 542
    $SCMD_FOCUS  O:BACKCOLOR;C\RUN;YELLOW    $SELECT  U:AGN_PALL_RETURNS_REVERSAL;UPDATE_TABLES    U:ZZGRID_SPLIT;INIT_GRID;G\GRID;I\SEQ,I\PALLCODE,I\DESC1,I\PALLTYPE,I\DESC2,I\TMP:H,I\QTY_RET    A:CONST;;I\DELDATE,I\DOCNO,I\PT_OWNER,T\NAME,K\PRINT  O:SETFOCUS;I\DOCNO    $ESC  O:HIDE;C\RUN
1 0.0 T -1 91, 121
  
1 0.0 PT_OWNER I -1 231, 169
  
1 0.0 PT_OWNER T -1 101, 169
  
1 0.0 Label 3 T -1 1, 25
  
1 0.0 Label 4 T -1 291, 25
  
1 0.0 Label 5 T -1 251, 49
  
1 0.0 Label 6 T -1 621, 25
  
1 0.0 Label 7 T -1 671, 25
  
1 0.0 Label 8 T -1 621, 49
  
1 0.0 Label 9 T -1 671, 49
  
1 0.0 Work 10 I 0 101, 73
$DEFAULT  A:USERIP;;I\IP  
1 0.0 Work 11 I 0 81, 73
$DEFAULT  A:USERID;;I\USERID
1 0.0 Work 12 I 0 61, 73
$DEFAULT  A:ORGS;;I\ORGS
1 0.0 Work 13 I 0 41, 73
$DEFAULT  '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\MARKET  
1 0.0 Work 14 I 0 21, 73
$DEFAULT    'PUTS PIC ON THE UPDATE BUTTON  O:LOADPIC;$GBLROOT$LEGEND\PROJ_FMS\PICS\NEW_TEXT_DOC.ICO;C\RUN    '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    U:ZZGRID_SPLIT;INIT_GRID;G\GRID;I\SEQ,I\PALLCODE,I\DESC1,I\PALLTYPE,I\DESC
1 0.0 Work 15 I 0 391, 565
'$BEFORE_WRITE  'U:AGN_PALL_RETURNS_REVERSAL;UPDATE_TABLES
1 0.0 Work 16 G -1 101, 277
  
1 0.0 CMD 17 C -1 361, 121
$SELECT  I:I\ORGS;=;  S:RECNO_RETURNS;I\DOCNO    I:I\ORGS;<>;  S:AGN_RECNO;I\DOCNO;I\ORGS
1 0.0 Work 18 I -1 101, 277
  
1 0.0 Work 19 I -1 141, 277
I\SEQ
1 0.0 Work 20 I -1 201, 277
  
1 0.0 Work 21 I -1 351, 277
  
1 0.0 Work 22 I -1 411, 277
  
1 0.0 Work 23 I -1 561, 277
  
1 0.0 Label 24 T -1 101, 253
  
1 0.0 Label 25 T -1 141, 253
  
1 0.0 Label 26 T -1 201, 253
  
1 0.0 Label 27 T -1 351, 253
  
1 0.0 Label 28 T -1 411, 253
  
1 0.0 Label 29 T -1 561, 253
  
1 0.0 Check 30 K -1 571, 481
$VALIDATE  'O:SHOW;C\RUN  'O:ENABLEINPUT;C\RUN  O:SETFOCUS;C\RUN  O:BACKCOLOR;C\RUN;YELLOW
1 0.0 Label 31 T -1 611, 481
  
1 0.0 Label 32 T -1 141, 229
  
1 0.0 Label 34 T -1 561, 229
  
1 0.0 Label 35 T -1 361, 169
  
1 0.0 Label 36 T -1 351, 229
  
1 0.0 Work 1 I 0 641, 277
  
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