Freshmark replication server

freshmark-canonical

Program drill-down

CLEAR_RSVD_STK_ALL

CLEAR ALL RESERVED STOCK PER BUYER. Type DSP, base table STK_TRANS.

Field inventory

135

Live detail pulled from the database.

Page Seq Table Field Type Visible Position Logic snippet
1 0.0 Work 5 I 0 461, 85
  
1 0.0 Work 6 I 0 371, 553
  
1 0.0 Work 1 I 0 481, 277
  
1 0.0 CLUBFEE VAT I 0 91, 493
  
1 0.0 TOT DUES I 0 141, 469
  
1 0.0 CASHIER I 0 191, 493
  
1 0.0 BLOCKED I 0 231, 493
  
1 0.0 USER_IP I 0 101, 49
  
1 0.0 USER I 0 81, 49
  
1 0.0 Work 10 I 0 391, 577
  
1 0.0 Work 7 I 0 351, 553
  
1 0.0 USER ID I 0 211, 493
  
1 0.0 DUES VAT I 0 81, 469
  
1 0.0 ST_DELIND I 0 361, 85
$DEFAULT  A:CONST;N;I\ST_DELIND    
1 0.0 LVT_TRANS I 0 261, 529
  
1 0.0 ST_TRTYPE I 0 21, 361
  
1 0.0 Work 1 I 0 231, 529
  
1 0.0 TOT SLS 2 I 0 21, 469
  
1 0.0 W SM_DDATE I 0 121, 361
  
1 0.0 LEVY_VAT I 0 251, 493
  
1 0.0 CLUB FEE TEMP I 0 671, 229
'MIGHT USE THIS FIELD FOR THE CLUB FEE OF THE TRANSFER TRANSACTION
1 0.0 W DELNO I 0 101, 361
  
1 0.0 Work 1 I 0 411, 553
  
1 0.0 SCREEN TYPE I 0 131, 49
$DEFAULT  A:CONST;SA;I\SCREEN
1 0.0 Work 2 I 0 321, 529
  
1 0.0 Work 1 I 0 301, 529
  
1 0.0 LEVT AMOUNT I 0 201, 469
  
1 0.0 COMMVAL_VAT I 0 111, 493
  
1 0.0 Work 1 I 0 341, 529
  
1 0.0 TOTAL CLUB FEE I 0 51, 493
  
1 0.0 TOTAL CLUB FEE VAT I 0 71, 493
  
1 0.0 Work 16 I 0 401, 529
  
1 0.0 LEVY I 0 271, 493
    
1 0.0 LEVY VAT I 0 291, 493
  
1 0.0 TOT LEVY VAT I 0 311, 493
  
1 0.0 TOT DUES VAT I 0 161, 469
  
1 0.0 TOT LEVY I 0 221, 469
  
1 0.0 Work 4 I 0 91, 361
  
1 0.0 TMP I 0 291, 577
  
1 0.0 SOLD QTY I 0 151, 361
  
1 0.0 Work 4 I 0 421, 529
  
1 0.0 Work 5 I 0 191, 577
  
1 0.0 Work 6 I 0 211, 577
  
1 0.0 TOT SLS I 0 1, 469
  
1 0.0 TOT VAT I 0 61, 469
  
1 0.0 Work 3 I 0 131, 361
  
1 0.0 Work 6 I 0 371, 529
  
1 0.0 Work 7 I 0 281, 529
  
1 0.0 Work 1 I 0 162, 564
  
1 0.0 Work 2 I 0 101, 361
  
1 0.0 Work 2 I 0 291, 553
  
1 0.0 CASHPOINT I 0 41, 361
  
1 0.0 Work 1 I 0 691, 229
  
1 0.0 Work 2 I 0 1, 361
  
1 0.0 Work 5 I 0 361, 529
  
1 0.0 Work 4 I 0 391, 529
  
1 0.0 Work 5 I 0 81, 565
  
1 0.0 SIZE I 0 111, 565
  
1 0.0 TRTYPE I 0 341, 505
  
1 0.0 SD_TOTCOM I 0 121, 469
  
1 0.0 Work 1 I -1 101, 277
  
1 0.0 Label 2 T -1 101, 253
  
1 0.0 Work 7 I 0 61, 565
  
1 0.0 Work 1 I 0 142, 564
  
1 0.0 H -1 1, 61
  
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 221, 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 MARKET CODE I 0 1, 49
$DEFAULT  'LOAD MARKET CODE  A:ORG;;I\MARKET    'LOAD AGENT CODE  A:ORGS;;I\AGENT    'LOAD MARKET  NAME  F:CLIENT_MAST;;CM_CODE;T\MARKET=CM_NAME,I\CHK_CREDIT=CM_RESV_DEBTOR_UPD,W\ZEROFILL=CM_DEL_LEN;CM_CODE='$I\MARKET$'    'A:ADD;"2";W\ZEROFILL;W\ZEROFILL      'GETS USERID                 1  A:USERID;;W\USERID    'GETS
1 0.0 DEFAULT I 0 41, 49
$DEFAULT    A:DATE;DD MMM YYYY;T\DATE  A:TIME;HH:MM:SS;T\TIME  A:TIMER_ON;1000    LOAD THE CURRENT USER'S NAME  A:USERNAME;;I\USER    LOAD THE CURRENT USER'S IP ADDRESS  A:USERIP;;I\USER_IP    'INITIALIZE GRID  'I\ST_DOCNO,I\BUYER,I\ST_CONSIGN,I\SD_ITEM,I\GRADE,I\SD_CONT,I\DELDATE:H,I\ST_TRQTY,I\ST_TRPRICE,I\ST_TRVAT  
1 0.0 I -1 131, 85
'RETRIVING AGENT NAME  $DEFAULT  'PUTS PIC ON THE UPDATE BUTTON  O:LOADPIC;$GBLROOT$LEGEND\PROJ_FMS\PICS\NEW_TEXT_DOC.ICO;C\UPDATE    O:HIDE;T\CONFIRM,K\CONFIRM  O:DISABLEINPUT,K\CONFIRM      A:ORGS;I\AGENT  A:VAR;I\AGENT;W\AGENT  F:AGENT_MAST;;;T\AGENT1=AM_NAME,I\UNPAID_PARM=AM_CLR_UNPD_SALES;AM_CODE='$I\AGENT$'    I:
1 0.0 Label 11 T -1 11, 85
  
1 0.0 Label 13 T -1 211, 85
  
1 0.0 Work 14 I 0 1, 565
  
1 0.0 ST_DOCNO T -1 1, 253
  
1 0.0 Work 1 I 0 21, 565
  
1 0.0 USER IP I 0 61, 361
  
1 0.0 Work 2 I 0 41, 565
  
1 0.0 Label 6 T -1 401, 181
  
1 0.0 ST_DEBTOR I -1 291, 181
$SELECT  S:BUYER_NUMBER;I\ST_DEBTOR      $VALIDATE  A:CONST;;I\CONTINUE,T\BUYER  O:HIDE;C\UPDATE,K\CONFIRM,T\CONFIRM        'INITIALIZE GRID  U:ZZGRID_SPLIT;INIT_GRID;G\GRID;I\ST_DOCNO,I\BUYER,I\ST_CONSIGN,I\SD_ITEM,I\GRADE,I\SD_CONT,I\DELDATE:H,I\ST_TRQTY,I\ST_TRPRICE,I\ST_TRVAT,I\VALUE  M:  C:UCASE    I:I\ST_DEBTOR;<
1 0.0 Label 5 T -1 181, 181
  
1 0.0 Label 7 T -1 171, 253
  
1 0.0 Label 9 T -1 271, 253
  
1 0.0 Work 3 I 0 381, 529
  
1 0.0 Label 18 T -1 491, 253
  
1 0.0 Label 21 T -1 551, 253
  
1 0.0 Label 22 T -1 651, 253
  
1 0.0 Label 23 T -1 711, 253
  
1 0.0 CMD 1 C -1 371, 181
$SELECT  S:BUYER_NUMBER;I\ST_DEBTOR
1 0.0 Label 2 T -1 181, 145
  
1 0.0 Label 3 T -1 421, 145
  
1 0.0 Work 4 I -1 291, 145
$SELECT  S:SECTION1;I\SECTION    $VALIDATE  A:CONST;;T\SECTION2,I\CONTINUE  O:HIDE;C\UPDATE,K\CONFIRM,T\CONFIRM        'INITIALIZE GRID  U:ZZGRID_SPLIT;INIT_GRID;G\GRID;I\ST_DOCNO,I\BUYER,I\ST_CONSIGN,I\SD_ITEM,I\GRADE,I\SD_CONT,I\DELDATE:H,I\ST_TRQTY,I\ST_TRPRICE,I\ST_TRVAT,I\VALUE        C:UCASE    I:I\SECTION;<>;  F
1 0.0 CMD 5 C -1 391, 145
$SELECT  S:SECTION1;I\SECTION
1 0.0 TOT VAT2 I 0 41, 469
  
1 0.0 PAID I 0 431, 529
  
1 0.0 Label 47 T 0 501, 229
  
1 0.0 Label 48 T -1 401, 253
  
1 0.0 ST_DOCNO I -1 1, 277
  
1 0.0 Work 1 I 0 521, 109
  
1 0.0 Label 54 T -1 351, 253
  
1 0.0 I_IP I 0 621, 385
  
1 0.0 W_USERID I 0 661, 385
  
1 0.0 Work 2 I 0 71, 361
  
1 0.0 ST_CASHIER I 0 171, 493
$DEFAULT  A:USERID;;W\USERID    
1 0.0 SD_COMMP_VAT I 0 181, 469
  
1 0.0 UNPAID_PARM I 0 281, 469
  
1 0.0 Work 1 I 0 501, 301
  
1 0.0 Work 1 I 0 521, 145
  
1 0.0 CMD 1 C -1 651, 546
$SCMD_FOCUS  O:BACKCOLOR;C\UPDATE;YELLOW  $SELECT    I:K\CONFIRM;=;1  DO(PROCESS)   I:W\AGENT;<>;    DO(AGN)     'CHECK IF SALES HAVE NOT BEEN PROHIBITED     F:CLIENT_MAST;;;I\TEMP2=CM_PROHIBIT_SALES;CM_CODE='$I\MARKET$';     I:I\TEMP2;=;Y      DO(PROHIBIT)       D:ERROR - SALES ARE CURRENTLY PROHIBITED;ERRORM;I\ST_DOC
1 0.0 CMD 3 C -1 181, 85
$SELECT  S:AGENT_CODE;I\AGENT
1 0.0 Work 4 G -1 1, 277
  
1 0.0 Work 1 I 0 621, 145
  
1 0.0 Check 6 K -1 681, 517
$VALIDATE  M:  I:K\CONFIRM;=;1    DO(CON)      O:SHOW;C\UPDATE      O:ENABLEINPUT;C\UPDATE      O:BACKCOLOR;C\UPDATE;YELLOW      O:SETFOCUS;C\UPDATE    DOEND(CON)    I:K\CONFIRM;=;0    DO(CON)      O:HIDE;C\UPDATE      O:DISABLEINPUT;C\UPDATE    DOEND(CON)
1 0.0 Label 7 T -1 481, 517
  
1 1.0 ST_CONSIGN I -1 171, 277
  
1 1.0 SD_ITEM I -1 271, 277
  
1 1.0 I -1 351, 277
        
1 3.0 SD_CONT I -1 401, 277
        
1 4.0 ST_TRDTE I 0 551, 229
  
1 4.0 ST_TRQTY I -1 491, 277
  
1 4.0 ST_TRPRICE I -1 551, 277
  
1 4.0 ST_TRVAT I -1 651, 277
  
1 4.0 VALUE FIELD I -1 711, 277
        
1 4.0 ST_COMMVAL I 0 131, 493
  
1 4.0 ST_DUES I 0 101, 469
  
1 4.0 ST_CLUBFEE I 0 33, 493
    
10 0.0 ZX_PRINT Z 0 1, 61
  
10 0.0 ZX_SELECT Z 0 1, 61
  
10 0.0 ZX_DELETE Z 0 1, 61
  
10 0.0 ZX_UPDATE Z 0 1, 61
  
10 0.0 ZX_EXIT Z 0 1, 61
$SCMD_FOCUS  O:BACKCOLOR;Z\ZX_EXIT;YELLOW