Freshmark replication server

freshmark-canonical

Program drill-down

AGN_EXIT_CTRL_CPT

AGENT SALES EXIT CONTROL. Type DSP, base table STK_TRANS.

Field inventory

75

Live detail pulled from the database.

Page Seq Table Field Type Visible Position Logic snippet
1 0.0 CMD 1 C -1 571, 145
$SELECT  S:UNSCANNED_DKTS;I\DOCKET
1 0.0 Work 1 G -1 281, 409
  
1 0.0 H -1 0, 30
  
1 0.0 DOCKET NUMBER I -1 371, 145
$SELECT  S:UNSCANNED_DKTS;I\DOCKET;I\AGENT;I\MARKET    $VALIDATE  C:UCASE  A:VAR;I\DOCKET;I\TMPDOC  O:HIDE;T\GOOD,T\BAD,T\NOPAY,T\TRAN,T\ONE,T\TWO  O:ENABLEINPUT;I\SCAN_REMARKS  M:    A:LEN;I\DOCKET;I\TMP  A:SUB;I\TMP;I\TMP12;I\TMP9  A:RIGHT;I\DOCKET,I\TMP12;I\DOCKET    A:VAR;I\DOCKET;I\TMPDOC    'CHECK IF A SCANNED DO
1 0.0 STK_TRANS ST_ACCNO I -1 371, 421
  
1 0.0 Work 15 I 0 691, 145
  
1 0.0 Work 13 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    A:USERIP;;I\IP    A:CONST;N;I\MKT_RESCAN,I\MKT_PW_APPROVAL,I\MKT_EXIT_STOP    O:HIDE;T\GOOD,T\BAD,T\NOPAY,T\TRAN    'PUTS PIC ON THE UPDATE BUTTON  O:LOADPIC;$GBLROOT$LEGEND\
1 0.0 Work 14 I 0 21, 61
'TO LOAD MARKET NAME  $DEFAULT  O:DISABLEINPUT;I\AGENT,C\SELECT  'LOAD MARKET CODE  A:ORG;;I\MARKET  'LOAD AGENT CODE  A:ORGS;;I\ORGS    'LOAD MARKET  NAME  F:CLIENT_MAST;;CM_CODE;T\MARKET=CM_NAME    'LOAD AGENT NAME  I:I\ORGS;<>;  DO(0)    F:AGENT_MAST;;;I\AGENT=AM_CODE,T\AGENT=AM_NAME;AM_CODE='$I\ORGS$';    O:DISABLE
1 0.0 TMP12 I 0 41, 61
  
1 0.0 Work 14 I 0 661, 145
  
1 0.0 Work 15 I 0 21, 529
  
1 0.0 Work 16 I 0 51, 529
  
1 0.0 Work 17 I -1 371, 109
$SELECT  S:AGENT_CODE;I\AGENT    $CALCULATE  M:  C:UCASE    'LOAD AGENT NAME  F:AGENT_MAST;;;T\AGENT=AM_NAME;AM_CODE='$I\AGENT$';I\AGENT    'CHANGING TEXT CASE FOR THE FIRST CHARACTER TO UPPER CASE  C:MCASE;;T\AGENT    I:I\MARKET;=;15  A:CONST;;T\SUPPL2,T\SUPPNAME2,T\CONS2,T\ITEM2,T\IDESC,T\QTY2,T\TWO,I\ST_ACCNO
1 0.0 TMP I 0 81, 61
  
1 0.0 TMP9 I 0 101, 61
  
1 0.0 TMP11 I 0 61, 61
  
1 0.0 SCAN_TYPE I 0 601, 121
  
1 0.0 CONSIGN I 0 641, 121
  
1 0.0 SLS_SECT I 0 661, 121
  
1 0.0 Work 23 I 0 81, 529
  
1 0.0 Work 24 I 0 631, 145
  
1 0.0 Work 13 I 0 21, 553
  
1 0.0 Work 2 I -1 281, 385
  
1 0.0 IND I 0 681, 121
  
1 0.0 IP I 0 621, 121
  
1 0.0 SD_DELNO I 0 721, 121
  
1 0.0 DELDATE I 0 701, 121
  
1 0.0 SUPP I 0 741, 121
  
1 0.0 SUPPLNAME I 0 761, 121
  
1 0.0 Work 1 I 0 21, 193
  
1 0.0 Work 2 I 0 21, 217
  
1 0.0 Work 3 I 0 21, 241
  
1 0.0 Work 4 I 0 21, 265
  
1 0.0 Work 5 I 0 21, 289
  
1 0.0 Work 6 I 0 21, 313
  
1 0.0 Work 5 I 0 91, 109
  
1 0.0 Work 1 I 0 51, 397
  
1 0.0 Work 2 I 0 51, 421
  
1 0.0 Work 3 I 0 51, 445
  
1 0.0 Label 1 T -1 261, 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 261, 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 161, 145
  
1 0.0 Label 11 T -1 221, 325
  
1 0.0 STK_TRANS ST_ACCNO T -1 281, 421
  
1 0.0 Label 8 T -1 381, 289
  
1 0.0 Label 18 T -1 481, 109
  
1 0.0 Label 21 T -1 271, 325
  
1 0.0 Label 22 T -1 201, 325
  
1 0.0 Label 4 T 0 141, 325
  
1 0.0 Label 5 T -1 541, 325
  
1 0.0 Label 1 T -1 261, 145
  
1 0.0 Label 3 T -1 281, 361
  
1 0.0 IDESC T -1 491, 265
  
1 0.0 Label 1 T -1 261, 217
  
1 0.0 Label 2 T -1 261, 241
  
1 0.0 Label 3 T -1 261, 265
  
1 0.0 Label 4 T -1 261, 289
  
1 0.0 Label 5 T -1 381, 217
  
1 0.0 Label 6 T -1 411, 241
  
1 0.0 Label 7 T -1 381, 265
  
1 0.0 SUPPNAME2 T -1 491, 217
  
1 0.0 Work 1 I -1 261, 181
$VALIDATE  O:BACKCOLOR;C\PROCESS;YELLOW  O:SETFOCUS;C\PROCESS
1 0.0 Label 2 T -1 161, 181
  
1 0.0 CMD 1 C -1 651, 548
$SELECT  I:I\TMP1;=Y  DO(1)    I:I\TMP2;=;SA    DO(X)      I:I\TMP3;<>;Y      DO(2)        I:I\MARKET;=;18        DO(55)          I:I\ST_TRDTE;<>;T\DATE          DO(PW)            U:AGN_EXIT_DKT_SCAN;AUTHORIZE                       I:I\INVALID_PASSWORD;=;Y            D:INVALID PASSWORD;ERROR;I\DOCKET              I:I\I
10 0.0 ZX_PRINT Z 0 0, 30
  
10 0.0 ZX_SELECT Z 0 0, 30
  
10 0.0 ZX_DELETE Z 0 0, 30
  
10 0.0 ZX_UPDATE Z 0 0, 30
  
10 0.0 ZX_EXIT Z 0 0, 30