Freshmark replication server

freshmark-canonical

Program drill-down

PED_REPRINTS

REPRINT PED. Type DSP, base table FM_PED_DETAILS.

Field inventory

53

Live detail pulled from the database.

Page Seq Table Field Type Visible Position Logic snippet
1 0.0 H -1 0, 0
  
1 0.0 Label 1 T -1 1, 25
  
1 0.0 Label 2 T -1 350, 25
  
1 0.0 Label 3 T -1 621, 25
  
1 0.0 Label 4 T -1 671, 25
  
1 0.0 Label 5 T -1 351, 49
  
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 231, 217
  
1 0.0 Label 9 T -1 231, 253
  
1 0.0 Label 11 T -1 481, 217
  
1 0.0 Label 12 T -1 231, 361
  
1 0.0 Label 13 T -1 231, 397
  
1 0.0 Work 14 I -1 371, 217
$SELECT  S:PERMIT_HOLDERS;I\PERMITNO    $CALCULATE  F:FM_PED_MAST;Y;;I\FM_VREGNO=FM_PED_VEHICLENO,I\FM_PED_DATE=FM_PED_DATE,I\FM_PED_TIME=FM_PED_TIME,I\PERMITNO=FM_PED_PERMITNO;FM_PED_PERMITNO='$I\PERMITNO$' AND FM_PED_DELIND <> 'Y';I\PERMITNO    F:FM_PERMIT_HOLDERS;Y;;I\FM_SUPPL=FM_SUPPL,T\FM_SUPPL_NAME=FM_SUPPL_NAME,
1 0.0 Label 3 T -1 231, 109
  
1 0.0 Work 15 I -1 371, 253
$SELECT  S:PED_NUMBERS1;I\PED    $VALIDATE  I:I\REPRINT_CASH;<>;Y  M:    I:I\PED;<>;  F:FM_PED_MAST;Y;;I\FM_VREGNO=FM_PED_VEHICLENO,I\FM_PED_DATE=FM_PED_DATE,I\FM_PED_TIME=FM_PED_TIME,I\FM_PED_CONF_RECEIPT=FM_PED_CONF_RECEIPT;FM_PED_PERMITNO='$I\PERMITNO$' AND FM_PED_NUMBER='$I\PED$' AND FM_PED_DELIND <> 'Y';I\PED    F
1 0.0 Label 4 T -1 231, 181
  
1 0.0 Work 1 I 0 11, 193
  
1 0.0 Work 16 I 0 11, 109
  
1 0.0 Work 17 I -1 371, 361
  
1 0.0 Work 18 I -1 371, 397
  
1 0.0 Work 19 I -1 371, 325
  
1 0.0 Label 20 T -1 231, 325
  
1 0.0 CMD 21 C -1 371, 433
$SELECT  A:CONST;PROCESSING ...;T\PROG    U:PED_MAN;REPRINT_PED    A:CONST;DONE PROCESSING !!!;T\PROG    A:CONST;N;I\REPRINT_PED,I\REPRINT_CASH,I\REPRINT_CONF  A:CONST;;I\PED,I\PERMITNO,I\FM_SUPPL,T\FM_SUPPL_NAME,I\SM_VREGNO,I\FM_PED_DATE,I\FM_PED_TIME,I\FM_PED_RECEIPT,I\TOT_OWING,I\TABLE_COST,I\RAND_PERCENT,I\NO_OF_TB
1 0.0 Work 3 I 0 71, 61
  
1 0.0 Label 22 T -1 311, 469
  
1 0.0 Work 23 I 0 11, 61
  
1 0.0 Work 24 I 0 41, 61
$DEFAULT  'LOAD MARKET CODE  A:ORG;;I\MARKET  A:ORGS;;I\ORGS    'LOAD MARKET  NAME  F:CLIENT_MAST;;;T\MARKET=CM_NAME,I\FM_PED_NOTES=CM_FRM_PEDREMNO,I\PED_RECEIPT=CM_FRM_PEDRECPT;    'CHANGING TEXT CASE FOR THE FIRST CHARACTER TO UPPER CASE  C:MCASE;;T\MARKET    A:CONST;N;I\REPRINT_PED,I\REPRINT_CONF,I\REPRINT_CASH,I\ST
1 0.0 Work 25 I 0 11, 85
  
1 0.0 CMD 1 C -1 471, 253
$SELECT  S:PED_NUMBERS1;I\PED
1 0.0 Work 3 I 0 41, 253
  
1 0.0 Work 6 I -1 431, 109
$VALIDATE  C:UCASE  V:Y;N    A:CONST;;T\PROG  A:CONST;N;I\STOP    I:I\REPRINT_PED;=;Y  O:DISABLEINPUT;I\FM_PED_RECEIPT      
1 0.0 Work 1 I 0 11, 145
  
1 0.0 Work 2 I 0 41, 145
  
1 0.0 Work 3 I 0 71, 145
  
1 0.0 Work 4 I 0 11, 169
  
1 0.0 Work 5 I -1 431, 181
$ESC  A:CONST;N;I\REPRINT_CASH    $VALIDATE  V:Y;N    I:I\REPRINT_PED;=;N  DO(1)    I:I\REPRINT_CONF;=;N    DO(2)      I:I\REPRINT_CASH;=;N      A:CONST;Y;I\STOP    DOEND(2)  DOEND(1)      I:I\STOP;=;Y  D:YOU HAVE TO CHOOSE WHAT TO REPRINT;ERRORM;I\REPRINT_PED    I:I\REPRINT_CASH;=;Y  O:ENABLEINPUT;I\FM_PED_RECEIPT    
1 0.0 Work 1 I -1 431, 145
$ESC  A:CONST;N;I\REPRINT_CONF,I\STOP    $VALIDATE  C:UCASE  V:Y;N    I:I\REPRINT_CONF;=;N  'O:DISABLEINPUT;I\REPRINT_CONF
1 0.0 Label 2 T -1 231, 145
  
1 0.0 Work 1 I -1 371, 289
$SELECT  S:GET_RECEIPT;I\FM_PED_RECEIPT;I\PERMITNO    $VALIDATE  I:I\REPRINT_CASH;=;Y  M:    I:I\FM_PED_RECEIPT;<>;  F:FM_PED_MAST;Y;;I\PAID=FM_PED_PAID,I\FM_PED_DATE=FM_PED_DATE,I\FM_PED_TIME=FM_PED_TIME;FM_PED_PERMITNO='$I\PERMITNO$' AND FM_PED_RECEIPT='$I\FM_PED_RECEIPT$' AND FM_PED_DELIND <> 'Y';I\FM_PED_RECEIPT   
1 0.0 Label 2 T -1 231, 289
  
1 0.0 CMD 3 C -1 471, 289
  
1 0.0 Work 3 I 0 11, 253
  
1 0.0 Work 1 I 0 11, 229
  
1 0.0 Work 2 I 0 51, 229
  
1 0.0 Work 4 I 0 11, 277
  
1 0.0 Work 1 I 0 11, 313
  
1 0.0 Work 2 I 0 11, 337
  
10 0.0 ZX_PRINT Z 0 0, 0
  
10 0.0 ZX_SELECT Z 0 0, 0
  
10 0.0 ZX_DELETE Z 0 0, 0
  
10 0.0 ZX_UPDATE Z 0 0, 0
  
10 0.0 ZX_EXIT Z 0 0, 0