Freshmark replication server

freshmark-canonical

Program drill-down

AGN_POOL_RET_MAN

AGENT TO POOL MAINTENANCE. Type DSP, base table PALL_TRANS.

Field inventory

119

Live detail pulled from the database.

Page Seq Table Field Type Visible Position Logic snippet
1 0.0 CMD 2 C -1 261, 121
$SELECT  I:I\MARKET;<>;23  DO(OTHER)  I:I\AGENT;=;  S:PAL_DOCNO;;I\PT_DEBTOR    I:I\AGENT;<>;  S:PAL_DOCNO2;;I\MARKET_CODE;I\AGENT;I\PT_DEBTOR  DOEND(OTHER)
1 0.0 CMD 3 C -1 651, 545
$SCMD_FOCUS  O:BACKCOLOR;C\CREATE;YELLOW      $SELECT  'UPDATE RECORDS    'I:I\PT_PALL;<>;  'DO(LAO)  '  I:I\PT_TRQTY;<=;0  '  D:PLEASE FINISH THE LINE;ERRORM;I\LINE  'DOEND(LAO)      '========================================================  'ADDED BY MOMZ AND SIYA TO VALIDATE USAGE PERIOD 20120911    'GET THE  MAXIMU
1 0.0 GRID G -1 1, 325
  
1 0.0 H -1 1, 61
  
1 0.0 VALIDATED I 0 591, 541
  
1 0.0 TEMP4 I 0 71, 505
  
1 0.0 PERIOD I -1 551, 301
  
1 0.0 PALL_TRANS PT_DEBTOR I -1 161, 85
$VALIDATE  M:  F:AGENT_MAST;Y;;T\PT_DEBTOR2=AM_NAME;AM_CODE='$I\PT_DEBTOR$';I\PT_DEBTOR
1 0.0 PALL_MAST PM_USAGE I -1 496, 301
  
1 0.0 PALL_TRANS PT_CONSIGN I -1 161, 157
  
1 0.0 PALL_TRANS PT_DOCNO I -1 161, 121
$SELECT  ''''I:I\AGENT;=;  S:PAL_DOCN_AGN;;I\MARKET_CODE;I\PT_DEBTOR    ''''I:I\AGENT;<>;  ''''S:PAL_DOCN_AGN;;I\MARKET_CODE;I\PT_DEBTOR    ''''S:DELIVERY_CONS_AGN4;I\DELNO;I\MARKET;I\AGENT    $CALCULATE  A:CONST;;I\LINE,I\PT_PALL,I\SQTY,I\PT_DEPOSIT,I\PT_DEPOSIT_VAT,I\PT_TRQTY,I\PT_TRDTE,I\PM_USAGE,I\PERIOD,I\PT_USAGE
1 0.0 TOTAL VAT I -1 701, 505
  
1 0.0 PALL_TRANS PT_DEPOSIT I -1 191, 301
  
1 0.0 PALL_TRANS PT_TRDTE I -1 391, 301
$CALCULATE  M:    I:I\PT_TRDTE;<>;    DO(DIFF)            'JD WHILE GOING LIVE ON EL!!!!!!!!!!!!!!!!!!!!!!!!!!!!      A:CONST;Y;I\VALIDATED      'JD WHILE GOING LIVE ON EL!!!!!!!!!!!!!!!!!!!!!!!!!!!!        'GET THE DATE DIFF      A:DATEDIFF;I\PT_TRDTE;W\DIFF;I\DDTE            I:W\DIFF;<;0      D:DATE RETURNED CANNOT B
1 0.0 PALL_TRANS PT_TRQTY I -1 321, 301
$CALCULATE    I:I\PT_TRQTY;=;0;NUM  D:RETURNED QUANTITY MUST BE GREATER THAN ZERO;ERRORM;I\PT_TRQTY    ''CHECK IF RETURNED QTY IS GREATER THAN SOLD QTY                  THIS CHECK COMMENTED BY LP20100126 ON JANET'S REQUEST   'I:I\PT_TRQTY;>;I\SQTY  'D:RETURNED QUANTITY CANNOT BE GREATER THAN THE SOLD QUANTITY;ERRORM;I\
1 0.0 AGENTPV I 0 451, 169
  
1 0.0 TOTAL FEE I -1 621, 505
  
1 0.0 SOLD QTY I -1 91, 301
  
1 0.0 LINE I -1 1, 301
$CALCULATE    'DISPLAY GRID DATA  I:I\LINE;<>;  U:ZZGRID_SPLIT;GRID_TO_SCREEN;G\GRID;I\LINE        'CHECK THIS PALLET IS A CHEP PALLET IF PRETORIA  'I:I\MARKET;=;11  'DO(PMA)  '  I:I\PT_PALL;<>;  '  DO(H2N)  '   F:PALL_MAST;;;I\CHEP=PM_TYPE;PM_PALL='$I\PT_PALL$'  '   I:I\CHEP;<>;01  '     D:MAY ONLY RETURN CHEP PALLETS
1 0.0 PALL_TRANS PT_PALL I -1 41, 301
  
1 0.0 PALL_TRANS PT_DEPOSIT_VAT I -1 261, 301
  
1 0.0 PALL_TRANS PT_USAGE_FEE I -1 621, 301
  
1 0.0 PALL_TRANS PT_USAGE_VAT I -1 691, 301
  
1 0.0 DDTE I -1 161, 193
  
1 0.0 DTIME I -1 161, 217
  
1 0.0 I MARKET I 0 21, 61
$DEFAULT    'PUTS PIC ON THE UPDATE BUTTON  O:LOADPIC;$GBLROOT$LEGEND\PROJ_FMS\PICS\NEW_TEXT_DOC.ICO;C\CREATE    'LOAD MARKET CODE  A:ORG;;I\MARKET    'LOAD MARKET  NAME  F:CLIENT_MAST;;CM_CODE;T\MARKET=CM_NAME    'CONVERT ONLY THE FIRST CHARACTER OF THE MARKET LABEL  C:MCASE;;T\MARKET    'LOAD MARKET PARAMENTER  F:CLI
1 0.0 Mode I 0 61, 61
$DEFAULT  A:PARM;1;I\MODE      I:I\MODE;=;P  A:CONST;BUYER PALLET RETURN TO POOL;T\HEADING    I:I\MODE;=;A  A:CONST;BUYER PALLET RETURN TO AGENT;T\HEADING    
1 0.0 CM_PALL_SCAN I 0 321, 121
  
1 0.0 PAID I 0 601, 157
  
1 0.0 AGENT I 0 81, 61
$DEFAULT  A:ORGS;;I\AGENT    I:I\MARKET;=;41  A:CONST;AGN;I\AGENT    'GET USERNAME  A:USERNAME;;I\USER    'GET USER IP  A:USERIP;;I\IP    F:AGENT_MAST;;AM_CODE;W\AM_OWN_PALL_POOL=AM_OWN_PALL_POOL;          'GETS USERID                 1  A:USERID;;W\USERID    'GETS USER'S IP ADDRESS1     2  F:ZU_USER;;;W\USER_IP=ZU_LOC
1 0.0 USER I 0 531, 205
  
1 0.0 IP I 0 61, 541
  
1 0.0 SCANNED DEBTOR I -1 381, 205
$CALCULATE  'MAKE THIS FIELD MANDATORY  M:      I:W\CM_PALL_SCAN;=;1  U:VALIDATE_PREAMBLE;VALIDATE;I\DEBTOR,I\TMP4    I:I\TMP4;=;2  D:ERROR - INVALID BUYER NUMBER;ERRORM;I\PT_DOCNO    I:I\TMP4;<>;2    DO(PRE)      I:I\PT_DEBTOR;<>;I\DEBTOR       DO(3)         D:ERROR - BUYER NUMBERS DO NOT MATCH;ERRORM;I\PT_DOCNO      
1 0.0 Work 1 I 0 321, 493
  
1 0.0 Work 1 I 0 91, 505
  
1 0.0 Work 2 I 0 111, 505
  
1 0.0 Work 1 I 0 101, 61
$DEFAULT  A:ORG;;I\MARKET_CODE
1 0.0 PALLTYPE I 0 441, 121
  
1 0.0 CHEP_PALL I 0 461, 121
  
1 0.0 SECT I 0 511, 169
  
1 0.0 Work 1 I 0 681, 157
  
1 0.0 SUPPL I 0 421, 121
  
1 0.0 DATE DIFF I 0 561, 85
  
1 0.0 USAGE I 0 491, 505
  
1 0.0 W DATE I 0 279, 180
  
1 0.0 MINIMUM DAYS I 0 341, 121
  
1 0.0 NUMBER OF DAYS I 0 361, 121
  
1 0.0 DELNO I 0 41, 61
  
1 0.0 MAXIMUM PERIOD I 0 381, 121
  
1 0.0 TRVAL I 0 411, 529
  
1 0.0 POOL ID I 0 311, 529
  
1 0.0 AM_OWN_PALL_POOL I 0 331, 529
  
1 0.0 CM_PALL_SECT I 0 351, 529
  
1 0.0 CASHIER I 0 31, 505
  
1 0.0 CASHPT I 0 51, 505
  
1 0.0 USER_IP I 0 151, 61
  
1 0.0 CPO_CASHPT I 0 171, 61
  
1 0.0 USERID I 0 141, 61
  
1 0.0 VAT CODE I 0 171, 517
  
1 0.0 TEMP 3 I 0 501, 253
  
1 0.0 DF_VATCODE I 0 301, 121
  
1 0.0 ACC TYPE I 0 371, 529
  
1 0.0 CENTRAL POOL I 0 291, 529
  
1 0.0 REFUNDED VAT I 0 221, 517
  
1 0.0 SM_DDATE I 0 1, 61
  
1 0.0 TEMP 2 I 0 21, 541
  
1 0.0 LENGTH I 0 1, 541
  
1 0.0 QTY RETURNED I 0 521, 252
  
1 0.0 TEMP I 0 461, 505
  
1 0.0 QTY AVAIL I -1 151, 301
  
1 0.0 FEE I 0 401, 121
  
1 0.0 DELIND I 0 751, 217
  
1 0.0 TRANS I 0 751, 301
  
1 0.0 WOFF I 0 251, 61
  
1 0.0 SALE_TRNO I 0 581, 85
  
1 0.0 Work 1 I 0 11, 253
  
1 0.0 Work 2 I 0 621, 85
  
1 0.0 Work 3 I 0 601, 85
  
1 0.0 RETDAYS I 0 441, 253
  
1 0.0 PALLSUPPL I 0 751, 193
  
1 0.0 Label 17 T -1 671, 49
  
1 0.0 Label 10 T -1 271, 85
  
1 0.0 Label 8 T -1 291, 25
  
1 0.0 Label 18 T -1 321, 253
  
1 0.0 Label 16 T -1 671, 25
  
1 0.0 Label 15 T -1 621, 49
  
1 0.0 Label 14 T -1 621, 25
  
1 0.0 Label 9 T -1 41, 253
  
1 0.0 Label 20 T -1 21, 157
  
1 0.0 Label 24 T -1 91, 253
  
1 0.0 Label 34 T -1 21, 121
  
1 0.0 Label 3 T -1 191, 277
  
1 0.0 Label 8 T -1 21, 217
  
1 0.0 Label 7 T -1 41, 277
  
1 0.0 Label 16 T -1 281, 277
  
1 0.0 Label 3 T -1 21, 85
  
1 0.0 Label 55 T -1 1, 25
  
1 0.0 Label 5 T -1 21, 193
  
1 0.0 Label 13 T -1 321, 276
  
1 0.0 Label 14 T -1 386, 276
  
1 0.0 Label 15 T -1 387, 252
  
1 0.0 Label 16 T -1 497, 277
  
1 0.0 Label 18 T -1 551, 277
  
1 0.0 Label 20 T -1 621, 277
  
1 0.0 Label 59 T -1 1, 277
  
1 0.0 Label 22 T -1 691, 277
  
1 0.0 Label 74 T -1 541, 505
  
1 0.0 Label 1 T -1 91, 277
  
1 0.0 HEADING T -1 265, 49
  
1 0.0 Label 10 T -1 281, 205
  
1 0.0 Label 4 T 0 323, 241
  
1 0.0 Label 5 T 0 403, 250
  
1 0.0 Label 2 T -1 151, 253
  
1 0.0 Label 3 T -1 151, 277
  
10 0.0 ZX_SELECT Z 0 1, 61
  
10 0.0 ZX_PRINT Z 0 1, 61
  
10 0.0 ZX_EXIT Z 0 1, 61
  
10 0.0 ZX_UPDATE Z 0 1, 61
  
10 0.0 ZX_DELETE Z 0 1, 61