Freshmark replication server

freshmark-canonical

Program drill-down

PRINT_MOBI_SALES

CONFIRM MOBILE SALES. Type DSP, base table DEBTOR_TRANS.

Field inventory

87

Live detail pulled from the database.

Page Seq Table Field Type Visible Position Logic snippet
1 0.0 Work 4 I 0 21, 49
  
1 0.0 Work 1 I 0 391, 253
  
1 0.0 Work 2 I 0 411, 253
  
1 0.0 Work 34 I 0 761, 85
  
1 0.0 Work 35 I 0 761, 109
  
1 0.0 Work 35 I 0 761, 109
  
1 0.0 Work 37 I 0 761, 157
  
1 0.0 Work 38 I 0 761, 181
  
1 0.0 Work 39 I 0 761, 205
  
1 0.0 Label 49 T -1 231, 121
  
1 0.0 Work 47 I 0 611, 85
  
1 0.0 Work 48 I 0 611, 85
  
1 0.0 Work 40 I 0 731, 85
  
1 0.0 Work 41 I 0 731, 109
  
1 0.0 Work 42 I 0 731, 133
  
1 0.0 Work 43 I 0 731, 157
  
1 0.0 Work 44 I 0 731, 181
  
1 0.0 Work 45 I 0 731, 205
  
1 0.0 Work 46 I 0 761, 133
  
1 0.0 Work 50 I 0 611, 109
  
1 0.0 Work 51 I 0 681, 133
  
1 0.0 Work 2 I 0 521, 253
  
1 0.0 Work 3 I 0 621, 253
  
1 0.0 Work 4 I 0 261, 517
  
1 0.0 Work 5 I 0 141, 517
  
1 0.0 Work 2 I -1 511, 229
  
1 0.0 Label 3 T -1 551, 205
  
1 0.0 Label 4 T -1 511, 205
  
1 0.0 Work 52 I 0 21, 253
  
1 0.0 Work 53 I 0 121, 253
  
1 0.0 Work 54 I 0 51, 49
  
1 0.0 Work 1 I -1 551, 229
  
1 0.0 Work 2 I 0 221, 253
  
1 0.0 Work 1 I 0 421, 253
  
1 0.0 H -1 0, 0
  
1 0.0 Label 1 T -1 3, 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 181, 85
  
1 0.0 Label 6 T -1 350, 49
  
1 0.0 Label 7 T -1 621, 49
  
1 0.0 Label 8 T -1 671, 49
  
1 0.0 Work 9 I 0 1, 49
$DEFAULT  A:ORG;;I\MARKET  A:ORGS;;I\ORGS    'CHECK IF SALES HAVE BEEN PROHIBITED  F:CLIENT_MAST;;;T\MARKET=CM_NAME,I\TMP=CM_PROHIBIT_SALES,I\PROHIBIT_AGENT_SALES=CM_PROHIBIT_AGENT_SALES,I\TMP5=CM_CB_NOPREAMBLE,I\MAIN_SALE=CM_MAINBUYER_SALES,I\RFID=CM_USE_RFID,I\CREDITSALE=CM_AGENT_CR_SALE;CM_CODE='$I\MARKET$';    I:I\
1 0.0 Work 10 I -1 121, 85
$VALIDATE  I:I\ORGS;=;  DO(0)    I:I\AGENT;<>;    DO(AGN)      F:AGENT_MAST;;;T\AGENT_NAME=AM_NAME,I\NOINV=AM_NOINV_PRN,I\NOREM=AM_NOREM_PRN,I\AM_COMMIND=AM_COMMIND;AM_CODE='$I\AGENT$'      I:T\AGENT_NAME;=;      D:AGENT $I\AGENT$ DOES NOT EXIST;ERRORM;I\AGEBT    DOEND(AGN)  DOEND(0)
1 0.0 Work 11 I -1 121, 121
$VALIDATE  A:CONST;;I\LINE,I\CONSIGN,I\COMMODITY,I\SLD_QTY,I\PRICE,I\VAT:H,I\VALUE,I\DELDATE,I\TRDATE,I\BLK,I\DOCNO,I\PAID_VAL,I\DUES_DONE,I\PAY_AMT,I\TAXINV,I\SD_COMMP,I\SD_CONTMASS,I\SD_NOLEVY,I\SD_HPRICE,I\SD_LPRICE,I\SD_SLDQTY,I\SD_TOTSLS,I\DOC_MSG,I\SMAN,I\PRINT  'INITIALIZES THE GRID   U:ZZGRID_SPLIT;INIT_GRID;G\
1 0.0 Label 12 T -1 21, 121
  
1 0.0 Work 13 I -1 121, 157
$VALIDATE  C:UCASE  V:Y;N  A:CONST;;I\LINE,I\CONSIGN,I\COMMODITY,I\SLD_QTY,I\PRICE,I\VAT:H,I\VALUE,I\DELDATE,I\TRDATE,I\BLK,I\DOCNO,I\PAID_VAL,I\DUES_DONE,I\PAY_AMT,I\TAXINV,I\SD_COMMP,I\SD_CONTMASS,I\SD_NOLEVY,I\SD_HPRICE,I\SD_LPRICE,I\SD_SLDQTY,I\SD_TOTSLS,I\DOC_MSG,I\SMAN,I\PRINT  I:I\PRNT;=;Y  DO(0)    U:PRINT_MOBI
1 0.0 Label 14 T -1 21, 157
  
1 0.0 Work 15 I -1 21, 229
$CALCULATE  A:CONST;;I\TMP2    I:I\LINE;<>;  DO(DLD)       O:ENABLEINPUT;I\PRINT    O:SETFOCUS;I\PRINT          U:ZZGRID_SPLIT;GRID_TO_SCREEN;G\GRID;I\LINE    A:CONST;Y;I\PRINT      A:VAR;I\TAXINV;I\ST_TAXINV  DOEND(DLD)    I:I\LINE;=;  DO(SQS)    'U:PRINT_MOBI_SALES;CHECK_ROWS;G\GRID    'I:I\TMP2;<>;Y    'D:PLEASE MAR
1 0.0 Work 5 I 0 661, 253
  
1 0.0 Work 1 I 0 401, 253
  
1 0.0 Label 16 T -1 21, 85
  
1 0.0 CMD 33 C -1 651, 548
$SELECT    'U:PRINT_MOBI_SALES;CHECK_ROWS;G\GRID  'I:I\TMP2;<>;Y  'D:PLEASE MARK A LINE TO PRINT;ERRORM;I\LINE    U:PRINT_MOBI_SALES;PRINT;G\GRID,I\LINE    I:I\ERROR;<>;Y  DO(1)    U:ZZGRID_SPLIT;INIT_GRID;G\GRID;I\LINE,I\CONSIGN,I\COMMODITY,I\SLD_QTY,I\PRICE,I\VAT:H,I\VALUE,I\DELDATE:H,I\TRDATE:H,I\BLK,I\DOCNO,I\PRINT
1 0.0 Work 1 I 0 321, 253
  
1 0.0 Work 2 I 0 351, 253
  
1 0.0 Work 3 I 0 391, 253
  
1 0.0 Work 32 G -1 21, 253
  
1 0.0 Label 31 T -1 681, 205
  
1 0.0 Work 29 I -1 431, 229
  
1 0.0 Work 30 I -1 681, 229
$CALCULATE  C:UCASE  V:Y;N    I:I\PRINT;=;N  DO(0)    'U:PRINT_MOBI_SALES;UNMARK_INV;G\GRID    U:ZZGRID_SPLIT;SCREEN_TO_GRID;G\GRID;I\LINE    O:SETFOCUS;I\LINE    A:CONST;;I\LINE,I\CONSIGN,I\COMMODITY,I\SLD_QTY,I\PRICE,I\VAT:H,I\VALUE,I\DELDATE,I\TRDATE,I\BLK,I\DOCNO,I\PAID_VAL,I\DUES_DONE,I\PAY_AMT,I\TAXINV,I\SD_COMMP
1 0.0 Work 1 I 0 521, 253
  
1 0.0 Work 1 I 0 701, 253
  
1 0.0 Work 3 I 0 421, 253
  
1 0.0 Work 4 I 0 441, 253
  
1 0.0 Work 17 I -1 61, 229
  
1 0.0 Label 18 T -1 21, 205
  
1 0.0 Label 19 T -1 61, 205
  
1 0.0 Label 20 T -1 141, 205
  
1 0.0 Work 21 I -1 141, 229
  
1 0.0 Work 22 I -1 291, 229
  
1 0.0 Label 23 T -1 291, 205
  
1 0.0 Label 24 T -1 361, 205
  
1 0.0 Work 25 I -1 361, 229
  
1 0.0 Label 26 T 0 511, 109
  
1 0.0 Work 27 I 0 401, 229
  
1 0.0 Label 28 T -1 431, 205
  
1 0.0 Work 2 I 0 21, 517
$VALIDATE  
1 0.0 Work 1 I 0 611, 133
  
1 0.0 Work 1 I 0 381, 517
  
1 0.0 Work 1 I 0 161, 157
  
1 0.0 Work 2 I 0 201, 157
  
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