Freshmark replication server

freshmark-canonical

Program drill-down

BUYER_TRANS_LISTING

BUYER TRANSACTION LISTING. Type DSP, base table SIZE_MAST.

Field inventory

49

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 CMD 1 C -1 291, 457
$SCMD_FOCUS  O:BACKCOLOR;C\RUN;YELLOW    $SELECT  'I:I\DATE_D;=;  '  D:ENTER DATE IS A MANDATORY FIELD;ERRORM;I\DATE_D      E:$GBLROOT$LEGEND\PROJ_FMS\BIN\PRINTING.EXE /PRINT=PRINT_BUYER_TRANSACTION_LISTING;$I\FROM_DATE$,$I\TO_DATE$,$I\MARKET$,$I\DEBTOR$,N,$I\AT_CODE$,$I\DM_DTYPE$,$I\TRANS_TYPE$,$I\FROM_AMOUNT$,$I\TO_A
1 0.0 Label 1 T -1 221, 241
  
1 0.0 Work 2 I -1 361, 241
$SELECT  'DISPLAY A SELECTION WINDOW  S:PAYMENT_METHOD;I\PAYMETH;I\MARKET      $VALIDATE  'CONVERT TO UPPERCASE  C:UCASE      I:I\PAYMETH;<>;  DO(1)    F:CASH_PAYMTHD;Y;;T\DESC=CPM_DESC;CPM_PAYMETH='$I\PAYMETH$';I\PAYMETH  DOEND(1)    
1 0.0 Label 1 T -1 221, 205
  
1 0.0 Label 2 T -1 221, 277
  
1 0.0 Label 1 T -1 221, 181
  
1 0.0 Label 2 T -1 511, 181
  
1 0.0 Label 2 T -1 291, 25
  
1 0.0 Label 3 T -1 281, 49
  
1 0.0 MARKET I 0 31, 85
$DEFAULT  'LOAD MARKET CODE  A:ORGS;;I\AGENT  A:ORG;;I\MARKET    'LOAD MARKET  NAME  F:CLIENT_MAST;;;T\MARKET=CM_NAME;CM_CODE='$I\MARKET$'    'CONVERT ONLY THE FIRST CHARACTER OF THE MARKET LABEL  C:MCASE;;T\MARKET    A:DATE;DD MMM YYYY;T\DATE  A:TIME;HH:MM:SS;T\TIME  A:TIMER_ON;1000      I:I\AGENT;<>;    DO(01)     O:
1 0.0 Label 5 T -1 621, 25
  
1 0.0 Label 6 T -1 671, 25
  
1 0.0 Label 7 T -1 621, 49
  
1 0.0 Label 8 T -1 671, 49
  
1 0.0 Label 9 T -1 1, 25
  
1 0.0 DATE I -1 361, 121
$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:  'C:UCASE  'U:DATECHECKER;FUTURE;I\DATE_D  'A:DATEDIFF;T\DATE;I\NEW_DATE;I\DATE_D  'A:LEFT;I\NEW_DATE,1;I\TMP    'I:I\TMP;=;-  'D: DATE ENTERED CANNOT BE LATER THAN TODAY'S DATE;ERRORM
1 0.0 Work 4 I -1 361, 181
$SELECT  S:DEBTOR;I\DEBTOR    $CALCULATE  I:I\DEBTOR;<>;  F:DEBTOR_MAST;Y;;T\NAME=DM_NAME;DM_DEBTOR='$I\DEBTOR$';I\DEBTOR  
1 0.0 Work 3 I -1 361, 205
$SELECT  'DISPLAY A SELECTION WINDOW  S:ACCOUNT;I\AT_CODE    $VALIDATE  'MAKE THIS FIELD MANDATORY      'CONVERT TO UPPERCASE  C:UCASE    'DISPLAY ERROR MESSAGE IF THE TYPE CODE DOES NOT EXIST  I:I\AT_CODE;<>;  DO(1)  F:ACCOUNT_TYPE;Y;;T\ACCNAME=AT_DESC;AT_CODE='$I\AT_CODE$';I\AT_CODE  DOEND(1)  
1 0.0 Label 2 T -1 221, 121
  
1 0.0 AGENT I 0 81, 85
  
1 0.0 NEW_DATE I 0 281, 529
  
1 0.0 TMP I 0 311, 529
  
1 0.0 TMP1 I 0 341, 529
  
1 0.0 Label 1 T -1 221, 145
  
1 0.0 Work 2 I -1 361, 145
$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    'O:BACKCOLOR;C\RUN;YELLOW  'O:SETFOCUS;C\RUN
1 0.0 Work 4 I -1 361, 277
$SELECT  S:DEBTOR_TYPE;I\DM_DTYPE    $VALIDATE  'ADDED BY LP20101026 ON CHRISTO'S AND SPRINGS REQUEST      'MANDATORY    'UPPERCASE  C:UCASE      'VALIDATE THE DEBTOR TYPE AND LOAD THE DESCRIPTION  I:I\DM_DTYPE;<>;  DO(1)  F:DEBTOR_TYPE;Y;;T\DTYPE=DT_DESC;DT_TYPE='$I\DM_DTYPE$';I\DM_DTYPE  DOEND(1)  
1 0.0 CMD 3 C -1 461, 181
$SELECT  S:DEBTOR;I\DEBTOR
1 0.0 Label 8 T -1 511, 205
  
1 0.0 Label 9 T -1 511, 277
  
1 0.0 CMD 1 C -1 461, 313
$SELECT  S:TRANSACTION_TYPE;I\TRANS_TYPE
1 0.0 CMD 6 C -1 461, 205
$SELECT  'DISPLAY A SELECTION WINDOW  S:ACCOUNT;I\AT_CODE
1 0.0 CMD 7 C -1 461, 277
$SELECT  S:DEBTOR_TYPE;I\DM_DTYPE
1 0.0 Work 5 I -1 361, 349
$VALIDATE    I:I\FROM_AMOUNT;<=;0  A:CONST;;I\FROM_AMOUNT    I:I\FROM_AMOUNT;<>;  A:VAR;I\FROM_AMOUNT;I\FROM_AMOUNT;;#0.00
1 0.0 Label 2 T -1 511, 241
  
1 0.0 Work 6 I -1 361, 385
$VALIDATE    I:I\TO_AMOUNT;<=;0  A:CONST;;I\TO_AMOUNT  I:I\TO_AMOUNT;<>;  A:VAR;I\TO_AMOUNT;I\TO_AMOUNT;;#0.00  I:I\MARKET;<>;11  DO(11)  O:SETFOCUS;C\RUN  O:BACKCOLOR;C\RUN;YELLOW  DOEND(11)
1 0.0 Label 3 T -1 221, 385
  
1 0.0 Work 4 I -1 361, 313
$SELECT  S:TRANSACTION_TYPE;I\TRANS_TYPE    $VALIDATE  C:UCASE  I:I\TRANS_TYPE;<>;  F:CASH_TRN_TYPE;Y;;T\TRANS_NAME=CTT_DESC;CTT_TRTYPE='$I\TRANS_TYPE$';I\TRANS_TYPE
1 0.0 CMD 1 C -1 461, 241
$SELECT  'DISPLAY A SELECTION WINDOW  S:PAYMENT_METHOD;I\PAYMETH;I\MARKET
1 0.0 Label 1 T -1 221, 313
  
1 0.0 Label 2 T -1 221, 349
  
1 0.0 Label 2 T -1 511, 313
  
1 0.0 Label 1 T -1 221, 421
  
1 0.0 Check 2 K -1 361, 421
$VALIDATE  O:SETFOCUS;C\RUN  O:BACKCOLOR;C\RUN;YELLOW
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