Freshmark replication server

freshmark-canonical

Program drill-down

BUYER_RESER_CONF_PRT

RESERVATION CONFIRMATION PER BUYER. Type MAN, base table DEBTOR_MAST.

Field inventory

149

Live detail pulled from the database.

Page Seq Table Field Type Visible Position Logic snippet
1 0.0 Label 10 T -1 431, 277
  
1 0.0 Work 2 I 0 681, 229
  
1 0.0 Work 1 I 0 301, 193
  
1 0.0 STK_DETS SD_SIZE I 0 71, 521
  
1 0.0 STK_DETS SD_CONSIGN I 0 211, 517
  
1 0.0 STK_DETS SD_ITEM I 0 151, 521
  
1 0.0 STK_DETS SD_CLASS I 0 91, 521
  
1 0.0 STK_DETS SD_RECQTY I 0 491, 517
  
1 0.0 STK_DETS SD_SLDQTY I 0 461, 517
  
1 0.0 STK_DETS SD_DISQTY I 0 431, 517
  
1 0.0 STK_DETS SD_RETQTY I 0 401, 521
  
1 0.0 STK_DETS SD_ADJQTY I 0 341, 521
  
1 0.0 STK_DETS SD_CSQTY I 0 311, 521
  
1 0.0 STK_DETS SD_RRQTY I 0 371, 521
  
1 0.0 Work 4 I 0 331, 109
  
1 0.0 DEBTOR_MAST DM_DEBTOR I -1 111, 133
'SELECTING BUYER NUMBER FROM DEBTOR_MAST TABLE FOR F5 FUNCTION  $SELECT  S:BUYER_NUMBER;I\DM_DEBTOR    $SVAR_FOCUS  'LOOK FOR THE PRINTER. IF TABLE NOT SET UP ERROR  U:CASHIER_RESERVATION_PRETORIA;GET_PRINTER  I:I\PRN;=;N  D:PRINTING TABLE NOT SET UP, CONTACT FRESHMARK;ERRORM;I\DM_DEBTOR      'CHANGE TEXT CASE TO UPPER
1 0.0 STK_DETS SD_CONT I 0 41, 521
  
1 0.0 Work 5 I 0 411, 325
  
1 0.0 ORIG_TOTAL I 0 321, 553
  
1 0.0 Work 1 I 0 311, 217
  
1 0.0 Work 2 I 0 531, 109
  
1 0.0 Work 1 I 0 781, 301
  
1 0.0 Work 2 I 0 771, 301
  
1 0.0 Work 54 I -1 551, 469
  
1 0.0 Label 8 T -1 291, 25
  
1 0.0 TMP1 I 0 221, 553
  
1 0.0 ORGS I 0 341, 73
  
1 0.0 Label 14 T -1 621, 25
  
1 0.0 Work 1 I 0 481, 193
  
1 0.0 Work 1 I 0 661, 469
  
1 0.0 Work 1 I 0 651, 205
  
1 0.0 Label 15 T -1 621, 49
  
1 0.0 Label 9 T -1 235, 46
  
1 0.0 Label 16 T -1 671, 25
  
1 0.0 Work 1 I 0 701, 229
  
1 0.0 Work 2 I 0 361, 229
  
1 0.0 Work 3 I 0 321, 325
  
1 0.0 Work 4 I 0 371, 325
  
1 0.0 Work 52 I -1 0, 472
  
1 0.0 Work 51 I -1 681, 301
  
1 0.0 Work 50 I -1 621, 301
  
1 0.0 Work 19 I -1 431, 301
  
1 0.0 Work 20 I -1 531, 301
  
1 0.0 DEBTOR_MAST DM_GROUP I -1 111, 205
  
1 0.0 DEBTOR_MAST DM_VATNO I -1 111, 181
  
1 0.0 Label 4 T -1 1, 448
  
1 0.0 Label 5 T -1 421, 469
  
1 0.0 Label 6 T -1 421, 493
  
1 0.0 CMD 47 C -1 211, 133
'SELECTING BUYER NUMBER FROM DEBTOR_MAST TABLE FOR F5 FUNCTION  $SELECT  S:BUYER_NUMBER;I\DM_DEBTOR
1 0.0 Label 46 T -1 1, 25
  
1 0.0 Work 10 I -1 171, 301
  
1 0.0 Work 11 I -1 481, 301
  
1 0.0 Work 53 G -1 1, 301
'$GRID_VALIDATE   COMMENTED ON JANET'S REQUEST ON 14082009  '$GRID_VALIDATE  'U:BUYER_RESERVATION_GRID_PRETORIA;VALIDATE_PRICE;G\GRID,I\DM_DEBTOR,I\MARKET,I\AGENT      'U:ZZGRID_SPLIT;GRID_SUM;G\GRID;I\VALUE,I\TOTAL  'U:ZZGRID_SPLIT;GRID_SUM;G\GRID;I\VAT,I\TOTALVALUEVAT    ''U:LOAD_TOTAL1;TOTAL_VALUES;G\GRID  'U:BUYER_
1 0.0 Work 1 I 0 541, 229
  
1 0.0 Work 6 I 0 661, 493
  
1 0.0 Work 7 I 0 661, 517
  
1 0.0 Work 1 I 0 271, 109
  
1 0.0 Work 3 I 0 591, 109
  
1 0.0 Work 4 I 0 651, 109
  
1 0.0 Work 1 I 0 441, 109
  
1 0.0 Work 2 I 0 481, 109
  
1 0.0 PALL_TYPE PTP_DESC I 0 341, 481
  
1 0.0 PALL_TYPE PTP_TYPE I 0 311, 481
  
1 0.0 DEBTOR_MAST DM_MARKET I 0 231, 61
$DEFAULT  A:ORG  A:USERIP;;I\IP  A:USERID;;W\USERID    A:ORGS;;I\ORGS    'GETS USER'S IP ADDRESS1      F:ZU_USER;;;W\USER_IP=ZU_LOCAL_IP;ZU_USERID='$W\USERID$'    'GETS CASH POINT               F:CASH_POINT;;;W\CPO_CASHPT=CPO_CASHPT;CPO_IP='$I\IP$' AND CPO_MARKET='$I\MARKET$';    I:W\USERID;=;CLIENT1  DO(CLI1)  A:CONST
1 0.0 Work 1 I 0 341, 193
  
1 0.0 TEMP6 I 0 501, 157
  
1 0.0 Work 2 I 0 541, 157
  
1 0.0 Work 1 I 0 591, 157
  
1 0.0 Work 4 I 0 601, 193
  
1 0.0 Work 3 I 0 541, 193
  
1 0.0 Work 2 I 0 421, 193
  
1 0.0 FLAG I 0 541, 517
  
1 0.0 ACCTYPE I 0 521, 517
  
1 0.0 CONTINUE I 0 581, 517
  
1 0.0 FLAG2 I 0 561, 517
  
1 0.0 Work 1 I 0 61, 61
$DEFAULT  'LOAD MARKET CODE  A:ORG;;I\MARKET    A:ORGS;;I\ORGS    'LOAD MARKET  NAME  'F:CLIENT_MAST;;CM_CODE;T\MARKET=CM_NAME,I\CHK_CREDIT=CM_RESV_CRLCHK,I\CM_ROUND=CM_ROUND,I\CM_VATNO=CM_VATNO,I\CM_DUES=CM_DUES,I\CM_DKT_COMMENT=CM_DKT_COMMENT  F:CLIENT_MAST;;CM_CODE;T\MARKET=CM_NAME,I\CHK_CREDIT=CM_RESV_DEBTOR_UPD,I\
1 0.0 DEBTOR_MAST DM_VATNO T -1 1, 181
  
1 0.0 Work 4 I 0 71, 61
'RETRIVING AGENT NAME  '$DEFAULT  'A:ORGS;I\AGENT  'F:AGENT_MAST;;AM_CODE;T\AGENT1=AM_NAME,I\NOREM_PRINT=AM_NOREM_PRN,I\NOINV_PRINT=AM_NOINV_PRN,I\AM_VATREG=AM_VATREG;AM_CODE='$I\AGENT$'    'I:I\AGENT;=;  'DO(AGN)  'O:ENABLEINPUT;I\AGENT  'O:SETFOCUS;I\AGENT  'DOEND(AGN)    '$VALIDATE  'I:I\AGENT;=;  'M:  'C:UCASE    '
1 0.0 Work 1 I 0 391, 229
  
1 0.0 Work 2 I 0 421, 229
  
1 0.0 Work 3 I 0 451, 229
  
1 0.0 STK_DETS SD_COUNT I 0 111, 521
  
1 0.0 Label 3 T 0 151, 49
  
1 0.0 STK_DETS SD_PROV I 0 11, 517
  
1 0.0 STK_DETS SD_CONTMASS I 0 181, 521
  
1 0.0 DEBTOR_MAST DM_DEBTOR T -1 1, 133
  
1 0.0 DEBTOR_MAST DM_GROUP T -1 1, 205
  
1 0.0 Work 8 I -1 71, 301
  
1 0.0 TEMP1 I 0 241, 133
  
1 0.0 Label 8 T -1 171, 277
  
1 0.0 Label 9 T -1 261, 277
  
1 0.0 Work 55 I -1 551, 495
  
1 0.0 Label 12 T -1 481, 277
  
1 0.0 Label 13 T -1 531, 277
  
1 0.0 Label 14 T -1 621, 277
  
1 0.0 Label 15 T -1 681, 277
  
1 0.0 Work 25 I -1 261, 301
  
1 0.0 Work 2 I 0 191, 61
$DEFAULT    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\ST_DOCNO,I\CON,I\COMM,I\AQTY,I\QTY,I\PRICE,I\ST_ORIG_QTY:H,I\ST_ORIG_PRICE:H,I\DELDATE:H,I\VAT,I\VALUE  U:ZZGRID_SPLIT;INIT_GRID;G\GRID;I\AGENT1,I\AGN_NAME:H,I\ST_DOCNO,I\CON,I\COMM,I\AQTY,I\QTY,I\PRICE
1 0.0 Label 3 T -1 71, 277
  
1 0.0 Label 6 T -1 161, 205
  
1 0.0 Label 11 T -1 431, 253
  
1 0.0 H -1 1, 121
  
1 0.0 Label 17 T -1 671, 49
  
1 0.0 Label 1 T 0 1, 49
  
1 0.0 Label 2 T -1 271, 133
  
1 0.0 Work 5 I 0 511, 325
  
1 0.0 Work 6 I 0 561, 325
  
1 0.0 Work 1 I 0 651, 133
  
1 0.0 Work 2 I 0 651, 157
  
1 0.0 Work 3 I 0 651, 181
  
1 0.0 Label 1 T -1 1, 277
  
1 0.0 Work 2 I -1 1, 301
  
1 0.0 Work 2 I 0 191, 85
  
1 0.0 SMAN I 0 481, 229
  
1 0.0 Label 2 T -1 1, 157
  
1 0.0 Work 10 I 0 31, 61
  
1 0.0 Work 1 I 0 121, 241
  
1 0.0 Work 2 I 0 211, 241
  
1 0.0 Work 1 I 0 511, 229
  
1 0.0 Work 3 I 0 61, 241
  
1 0.0 Work 2 I 0 31, 241
  
1 0.0 Work 5 I 0 311, 469
  
1 0.0 Work 7 I 0 1, 61
  
1 0.0 Work 8 I 0 1, 85
  
1 0.0 Work 9 I 0 31, 85
  
1 0.0 Work 1 I 0 1, 241
  
1 0.0 Work 4 I 0 91, 241
  
1 0.0 Work 3 I 0 151, 241
  
1 0.0 Work 4 I 0 181, 241
  
1 0.0 Work 6 I 0 241, 241
  
1 0.0 Work 1 I 0 371, 169
  
1 0.0 Work 11 I 0 61, 85
  
1 0.0 CMD 1 C -1 211, 157
$SELECT    S:SLS_ACCESS;I\SECTION
1 0.0 Label 2 T -1 241, 157
  
1 0.0 Work 1 I 0 271, 241
  
1 0.0 Work 1 I -1 111, 157
$SELECT    S:SLS_ACCESS;I\SECTION      $CALCULATE  A:CONST;;G\GRID,I\TOTAL,I\CRED  A:CONST;;T\SE_DESC  U:ZZGRID_SPLIT;INIT_GRID;G\GRID;I\AGENT1,I\AGN_NAME:H,I\ST_DOCNO,I\CON,I\COMM,I\AQTY,I\QTY,I\PRICE,I\ST_ORIG_QTY:H,I\ST_ORIG_PRICE:H,I\ORIG_VAT:H,I\DELDATE:H,I\PALLET_CON:H,I\PALLET_DELDATE:H,I\DOC_MSG:H,I\ST_RECNO:H,
1 0.0 Work 2 I 0 571, 229
  
1 0.0 Work 1 I 0 91, 85
  
1 0.0 Work 1 I 0 301, 241
  
1 0.0 Work 1 I 0 721, 229
  
1 0.0 Work 1 I 0 601, 229
  
1 0.0 Work 1 I 0 421, 169
  
1 0.0 Work 1 I 0 371, 457
  
1 0.0 Work 1 I 0 501, 73
  
10 0.0 ZX_EXIT Z 0 1, 121
$EXIT  U:BUYER_RESERVATION_GRID_PRETORIA;UNFLAG_CARD  A:CONST;;I\TOTAL,I\CRED  U:ZZGRID_SPLIT;INIT_GRID;G\GRID;I\AGENT1,I\AGN_NAME:H,I\ST_DOCNO,I\CON,I\COMM,I\AQTY,I\QTY,I\PRICE,I\ST_ORIG_QTY:H,I\ST_ORIG_PRICE:H,I\ORIG_VAT:H,I\DELDATE:H,I\PALLET_CON:H,I\PALLET_DELDATE:H,I\DOC_MSG:H,I\ST_RECNO:H,I\ST_SMAN:H,I\VAT,I\VALU
10 0.0 ZX_UPDATE Z 0 1, 121
$ESC  U:BUYER_RESERVATION_GRID_PRETORIA;UNFLAG_CARD  A:CONST;;I\TOTAL,I\CRED  U:ZZGRID_SPLIT;INIT_GRID;G\GRID;I\AGENT1,I\AGN_NAME:H,I\ST_DOCNO,I\CON,I\COMM,I\AQTY,I\QTY,I\PRICE,I\ST_ORIG_QTY:H,I\ST_ORIG_PRICE:H,I\ORIG_VAT:H,I\DELDATE:H,I\PALLET_CON:H,I\PALLET_DELDATE:H,I\DOC_MSG:H,I\ST_RECNO:H,I\ST_SMAN:H,I\VAT,I\VALUE
10 0.0 ZX_DELETE Z 0 1, 121
  
10 0.0 ZX_PRINT Z 0 1, 121
  
10 0.0 ZX_SELECT Z 0 1, 121