Freshmark replication server

freshmark-canonical

Program drill-down

RESERVATION_MAN

A RESERVATION CONFIRMATION. Type MAN, base table DEBTOR_MAST.

Field inventory

125

Live detail pulled from the database.

Page Seq Table Field Type Visible Position Logic snippet
1 0.0 Work 1 I 0 711, 229
  
1 0.0 Work 2 I 0 691, 229
  
1 0.0 Work 1 I 0 481, 193
  
1 0.0 Work 1 I 0 661, 469
  
1 0.0 Work 2 I 0 761, 301
  
1 0.0 Work 1 I 0 771, 301
  
1 0.0 Label 15 T -1 621, 49
  
1 0.0 Label 8 T -1 291, 25
  
1 0.0 RFID I 0 271, 61
  
1 0.0 SALE_BLOCK I 0 351, 109
  
1 0.0 TMP_BUYER I 0 471, 85
  
1 0.0 Label 14 T -1 621, 25
  
1 0.0 Work 1 I -1 241, 517
  
1 0.0 Label 16 T -1 671, 25
  
1 0.0 Label 9 T -1 291, 49
  
1 0.0 H -1 1, 121
  
1 0.0 Label 17 T -1 671, 49
  
1 0.0 Label 1 T -1 1, 109
  
1 0.0 Label 2 T -1 281, 157
  
1 0.0 Work 55 I -1 551, 495
  
1 0.0 Label 6 T -1 161, 205
  
1 0.0 Label 8 T -1 103, 274
  
1 0.0 Label 9 T -1 194, 274
  
1 0.0 Label 10 T -1 361, 277
  
1 0.0 Label 11 T -1 361, 253
  
1 0.0 Label 12 T -1 421, 277
  
1 0.0 Label 13 T -1 501, 277
  
1 0.0 Label 14 T -1 591, 277
  
1 0.0 Label 15 T -1 651, 277
  
1 0.0 Work 25 I -1 191, 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\ST_DOCNO,I\CON,I\COMM,I\AQTY,I\QTY,I\PRICE,I\ST_ORIG_QTY:H,I\ST_O
1 0.0 Label 3 T -1 1, 274
  
1 0.0 Work 54 I -1 551, 469
  
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, 157
'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 101, 300
  
1 0.0 Work 11 I -1 421, 301
  
1 0.0 Work 53 G -1 1, 301
'$GRID_VALIDATE   COMMENTED ON JANET'S REQUEST ON 14082009  'U:RESERVATION_GRID;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:RESERVATION_GRID;CREDIT_LIMIT;I\DM_DEBTOR,I\MARKET,I\TOTAL    '$ESC  'O:SET
1 0.0 Work 1 I 0 301, 457
  
1 0.0 SMAN I 0 551, 229
  
1 0.0 Work 1 I 0 651, 157
  
1 0.0 Work 2 I 0 651, 193
  
1 0.0 TMP1 I 0 221, 553
  
1 0.0 Work 52 I -1 0, 472
  
1 0.0 Work 51 I -1 651, 301
  
1 0.0 Work 50 I -1 591, 301
  
1 0.0 Work 19 I -1 361, 301
  
1 0.0 Work 20 I -1 501, 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 Work 1 I 0 141, 61
$DEFAULT  A:ORGS;;I\ORGS  A:ORG;;I\MARKET  A:VAR;I\ORGS;I\AGENT    F:CLIENT_MAST;;CM_CODE;T\MARKET=CM_NAME,I\CHK_CREDIT=CM_RESV_DEBTOR_UPD,I\CM_ROUND=CM_ROUND,I\CM_VATNO=CM_VATNO,I\CM_DKT_COMMENT=CM_DKT_COMMENT,I\RFID=CM_USE_RFID    I:I\ORGS;<>;  DO(01)    F:AGENT_MAST;Y;;T\AGENT1=AM_NAME,I\NOREM_PRINT=AM_NOREM_PRN,I\N
1 0.0 DEBTOR_MAST DM_VATNO T -1 1, 181
  
1 0.0 Work 4 I -1 71, 109
$VALIDATE  'I:I\AGENT;=;  M:  C:UCASE    F:AGENT_MAST;Y;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$'              $AFTER_READ  O:CAPTION_UPD;UPDATE  'A:ORGS;I\AGENT  'F:AGENT_MAST;;AM_CODE;T\AGENT=AM_NAME;AM_CODE='$I\AGENT$'            
1 0.0 STK_DETS SD_COUNT I 0 111, 521
  
1 0.0 Label 3 T -1 171, 109
  
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, 157
  
1 0.0 DEBTOR_MAST DM_GROUP T -1 1, 205
  
1 0.0 Work 8 I -1 1, 300
  
1 0.0 TEMP1 I 0 241, 157
  
1 0.0 STK_DETS SD_CONT I 0 41, 521
  
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, 157
'SELECTING BUYER NUMBER FROM DEBTOR_MAST TABLE FOR F5 FUNCTION  $SELECT  S:BUYER_NUMBER;I\DM_DEBTOR    'CHANGE TEXT CASE TO UPPER CASE AND SET THIS FIELD MANDATORY  $VALIDATE  M:      $CALCULATE  A:CONST;Y;I\SCANNED  A:CONST;;I\DM_VATNO,I\MESSAGE,I\TOTAL,I\CRED,I\DM_GROUP,T\DM_GROUP1,T\DM_NAME,I\MESSAGE  A:CONST;;I\DM_
1 0.0 Work 1 I 0 381, 229
  
1 0.0 Work 2 I 0 441, 229
  
1 0.0 Work 3 I 0 501, 229
  
1 0.0 Work 1 I 0 681, 193
  
1 0.0 Work 2 I 0 681, 157
  
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
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 2 I 0 331, 229
  
1 0.0 Work 3 I 0 321, 325
  
1 0.0 Work 4 I 0 371, 325
  
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 281, 229
  
1 0.0 Work 2 I 0 531, 109
  
1 0.0 Work 5 I 0 511, 325
  
1 0.0 Work 6 I 0 561, 325
  
1 0.0 Work 2 I 0 351, 457
  
1 0.0 Work 3 I 0 231, 229
  
1 0.0 Work 4 I 0 1, 241
  
1 0.0 Work 5 I 0 51, 241
  
1 0.0 Work 6 I 0 101, 241
  
1 0.0 DM_RESERV_CARD_SCAN I 0 701, 157
  
1 0.0 Work 1 I 0 611, 229
  
10 0.0 ZX_UPDATE Z 0 1, 121
$ESC  U:BUYER_RESERVATION_GRID_PRETORIA;UNFLAG_CARD    $UPDATE    'CHECK IF THE SCANNED BUYER IS THE SAME AS THE BUYER NUMBER WHICH WAS ENTERED - JD20130920  I:I\DM_DEBTOR;<>;I\TMP_BUYER  D:THIS BUYER CARD WAS NOT SCANNED. ADMINISTRATORS HAVE BEEN NOTIFIED.;ERRORM;I\DM_DEBTOR    U:FIX_LOC_TRANS;SYSTEM_ALLOW_TIME  I:I\A
10 0.0 ZX_DELETE Z 0 1, 121
  
10 0.0 ZX_EXIT Z 0 1, 121
$EXIT  U:BUYER_RESERVATION_GRID_PRETORIA;UNFLAG_CARD  U:RESERVATION_BUYER_LOCK;UNACTIVE_BUYER
10 0.0 ZX_SELECT Z 0 1, 121
  
10 0.0 ZX_PRINT Z 0 1, 121