Freshmark replication server

freshmark-canonical

Program drill-down

SUB_BUYER_LIMITS

SUB BUYER LIMITS. Type DSP, base table AUD_DEBTOR_MAST.

Field inventory

39

Live detail pulled from the database.

Page Seq Table Field Type Visible Position Logic snippet
1 0.0 CMD 4 C 0 311, 133
$SELECT    S:MAIN_BUYER_NUMBER;I\AC_HOLD  
1 0.0 CMD 6 C 0 161, 529
$SELECT    S:SUB_BUYER_NUMBER;I\SUB_ACCOUNT;I\MDEBTOR  
1 0.0 H -1 0, 0
  
1 0.0 Work 5 I -1 211, 133
$SELECT    'S:MAIN_BUYER_NUMBER;I\AC_HOLD    $VALIDATE  M:  'A:LEN;I\AC_HOLD;I\RFIDL    'A:SUB;I\RFIDL;I\RFIDL2;L\SUB_BR;#0  'A:RIGHT;I\AC_HOLD,I\RFIDL2;I\RFIDAB    'F:DEBTOR_MAST;;;I\AC_HOLD=DM_DEBTOR,I\MAIN_DEBTOR=DM_MAIN_DEBTOR,I\DM_ACCTYPE=DM_ACCTYPE,I\DEBTOR_T=DM_DEBTOR;DM_MARKET='$I\MARKET$' AND DM_RFID='$I\RFIDA
1 0.0 Work 8 I 0 1, 61
$DEFAULT  'LOAD MARKET CODE  A:ORG;;I\MARKET    'LOAD MARKET  NAME  F:CLIENT_MAST;;CM_CODE;T\MARKET=CM_NAME    'CONVERT ONLY THE FIRST CHARACTER OF THE MARKET LABEL  C:MCASE;;T\MARKET    'U:ZZGRID_SPLIT;INIT_GRID;G\BUYERS;I\LINE,I\SUB_ACCOUNT,I\LIMIT_AMOUNT:H    A:SETPWFIELD;I\AC_HOLD      O:SETFOCUS;I\AC_HOLD    'A:CO
1 0.0 Work 9 I 0 81, 61
$DEFAULT    A:DATE;DD MMM YYYY;T\DATE  A:TIME;HH:MM:SS;T\TIME  A:TIMER_ON;1000    '$CALCULATE  'U:ZZGRID_SPLIT;INIT_GRID;G\GRIDM;I\LV_CODE,I\LV_DESC,I\LV_CALC_TYPE,I\LV_RATE,I\LV_MRATE,I\LV_VATCD,I\LV_BOARD  'U:ZZGRID_SPLIT;DB_TO_GRID;G\GRIDM;LEVY_MAST    'O:SETFOCUS;I/ACC_HOLDER    '$BEFORE_DELETE  
1 0.0 Work 13 I 0 451, 133
  
1 0.0 Work 2 I 0 221, 529
  
1 0.0 Label 1 T 0 31, 457
  
1 0.0 Label 2 T 0 31, 493
  
1 0.0 Label 1 T -1 31, 133
  
1 0.0 Label 1 T -1 1, 25
  
1 0.0 Label 2 T -1 291, 25
  
1 0.0 Label 3 T 0 31, 529
  
1 0.0 Label 12 T -1 351, 133
  
1 0.0 Label 6 T -1 621, 49
  
1 0.0 Label 4 T -1 671, 25
  
1 0.0 Label 7 T -1 671, 49
  
1 0.0 Label 5 T -1 311, 49
  
1 0.0 Label 3 T -1 621, 25
  
1 0.0 Label 10 T -1 31, 169
  
1 0.0 Label 1 T -1 151, 529
  
1 0.0 Work 4 I 0 551, 205
  
1 0.0 Work 1 I 0 551, 133
  
1 0.0 Work 2 I 0 551, 157
  
1 0.0 Label 3 T 0 551, 181
  
1 0.0 Work 5 I 0 551, 229
  
1 0.0 Work 6 I 0 551, 253
  
1 0.0 Work 7 I 0 551, 277
  
1 1.0 Work 5 I 0 71, 529
$SELECT    S:SUB_BUYER_NUMBER;I\SUB_ACCOUNT;I\MDEBTOR  F:DEBTOR_MAST;;;I\SDEBTOR=DM_DEBTOR;DM_MARKET='$I\MARKET$' AND DM_DEBTOR='$I\SUB_ACCOUNT$';I\SUB_ACCOUNT    $VALIDATE    A:VAR;I\SUB_ACCOUNT;I\SDEBTOR  F:DEBTOR_MAST;;;T\NAMES=DM_NAME;DM_MARKET='$I\MARKET$' AND DM_DEBTOR='$I\SUB_ACCOUNT$'      'I:I\SUB_ACCOUNT;=;  
1 2.0 Work 3 I 0 61, 457
$DEFAULT  A:DATE;DD MMM YYYY;I\FROM_DATE  A:DATE;DD MMM YYYY;I\TO_DATE    $VALIDATE  I:I\FROM_DATE;=;  A:CONST;$T\DATE$;I\FROM_DATE  M:  
1 3.0 Work 4 I 0 61, 493
$VALIDATE  I:I\TO_DATE;=;  A:CONST;$T\DATE$;I\TO_DATE    A:DATEDIFF;I\TO_DATE;I\NEW_DATE;I\FROM_DATE  A:LEFT;I\NEW_DATE,1;I\TMP    I:I\TMP;=;-  D: DATE ENTERED CANNOT BE LATER THAN TODAY'S DATE;ERRORM;I\DATE_D  
1 4.0 Work 11 I -1 211, 169
$VALIDATE    I:I\DUMP;=;  DO(SVAL)      A:CONST;N;I\DUMP    DOEND(SVAL)    V:Y;N    O:SETFOCUS;I\SET
1 5.0 CMD 4 C -1 231, 217
'$SCMD_FOCUS    $SELECT    O:BACKCOLOR;C\SET;YELLOW      'E:$GBLROOT$LEGEND\PROJ_FMS\BIN\PRINTING.EXE /PRINT=PRINT_PURCHASE_LIMIT_SET;$I\FROM_DATE$,$I\TO_DATE$,$I\MARKET$,$I\AC_HOLD$,$I\SUB_ACCOUNT$,$I\DUMP$,S  E:$GBLROOT$LEGEND\PROJ_FMS\BIN\PRINTING2.EXE /PRINT=PRINT_DEBTOR_LIMIT_BALANCES;$I\MARKET$,CR,$I\AC_HOLD$,,$I
10 0.0 ZX_EXIT Z 0 0, 0
  
10 0.0 ZX_UPDATE Z 0 0, 0
  
10 0.0 ZX_SELECT Z 0 0, 0
  
10 0.0 ZX_PRINT Z 0 0, 0
  
10 0.0 ZX_DELETE Z 0 0, 0