Program drill-down
SELT_PROF_SALES_BYR
VALIDATE SELECTED PROF SALES BYR. Type DSP, base table DEBTOR_MAST.
Field inventory
108
Live detail pulled from the database.
| Page | Seq | Table | Field | Type | Visible | Position | Logic snippet |
|---|---|---|---|---|---|---|---|
| 1 | 0.0 | Work 2 | I | 0 | 291, 505 | ||
| 1 | 0.0 | Work 1 | I | 0 | 221, 505 | ||
| 1 | 0.0 | CMD 2 | C | -1 | 261, 121 | $SELECT S:DEBTOR_PROV_SALES2;I\DM_DEBTOR |
|
| 1 | 0.0 | Work 21 | G | -1 | 11, 241 | ||
| 1 | 0.0 | H | -1 | 1, 25 | |||
| 1 | 0.0 | Work 1 | I | 0 | 201, 481 | ||
| 1 | 0.0 | Work 6 | I | 0 | 111, 529 | ||
| 1 | 0.0 | Work 5 | I | 0 | 141, 529 | ||
| 1 | 0.0 | Work 4 | I | 0 | 171, 529 | ||
| 1 | 0.0 | Work 3 | I | 0 | 81, 529 | ||
| 1 | 0.0 | Work 2 | I | 0 | 51, 529 | ||
| 1 | 0.0 | Work 23 | I | -1 | 101, 217 | ||
| 1 | 0.0 | DEBTOR_MAST | DM_DEBTOR | I | -1 | 141, 121 | $SELECT I:I\ORGS;=; S:DEBTOR_PROV_SALES2;I\DM_DEBTOR ''S:DEBTOR_PROV_SALES;I\DM_DEBTOR $CALCULATE A:CONST;;I\PAY_METH,I\CH,I\TRCHG,I\MAIN_DEBTOR,I\CALLCHQ,I\CHV,I\CH_DUE,I\TRIND,I\ERROR,W\TEMP4,I\CRED_LIMIT O:DISABLEINPUT;I\TRCHG M: 'THIS FUNCTION CLEARS THE GRID U:CLEARGRID;CLEAR;G\GRID 'CALL A FUNCT |
| 1 | 0.0 | Work 24 | I | -1 | 191, 217 | ||
| 1 | 0.0 | Work 8 | I | 0 | 51, 505 | ||
| 1 | 0.0 | Work 9 | I | 0 | 111, 505 | ||
| 1 | 0.0 | Work 11 | I | 0 | 41, 61 | $DEFAULT A:ORG;;I\MARKET 'LOAD MARKET NAME F:CLIENT_MAST;;CM_CODE;I\DEFRECS=CM_NOREC_PRN,T\MARKET=CM_NAME,I\TMP2=CM_PROHIBIT_SALES,I\GRP=CM_BUYGRP,I\VALCHEQUE=CM_CHEQUE_DETS A:VAR;I\DEFRECS;I\NUMRECS 'CHANGING TEXT CASE FOR THE FIRST CHARACTER TO UPPER CASE C:MCASE;;T\MARKET I:I\TMP2;=;Y D:SALES |
|
| 1 | 0.0 | Work 1 | I | 0 | 71, 61 | $DEFAULT 'LOAD AGENT CODE A:ORGS;;I\ORGS I:I\ORGS;<>; O:HIDE;C\LOOK ''A:SETPWFIELD;I\DM_DEBTOR |
|
| 1 | 0.0 | Work 18 | I | -1 | 611, 85 | ||
| 1 | 0.0 | Work 19 | I | -1 | 611, 121 | ||
| 1 | 0.0 | Work 25 | I | -1 | 331, 217 | ||
| 1 | 0.0 | Work 26 | I | -1 | 381, 217 | ||
| 1 | 0.0 | Work 27 | I | -1 | 511, 217 | ||
| 1 | 0.0 | Work 28 | I | -1 | 571, 217 | ||
| 1 | 0.0 | Work 29 | I | -1 | 51, 217 | ||
| 1 | 0.0 | Work 30 | I | 0 | 651, 217 | ||
| 1 | 0.0 | Work 31 | I | -1 | 721, 217 | $CALCULATE C:UCASE V:Y;N; I:I\VALIDATE;=; A:CONST;N;I\VALIDATE U:ZZGRID_SPLIT;SCREEN_TO_GRID;G\GRID;I\LINE U:POP_GRID;SUM_SELECTED A:CONST;$I\TOT_RND$;I\TOTAL I:I\BUYER_TYPE;<>;CA DO(NOT_VF) A:CONST;;I\PAY_METH O:DISABLEINPUT;I\PAY_METH O:HIDE;T\TENDERED,I\AMT_TENDERED,T\CHANGE,I\CHANGE U:PRO |
|
| 1 | 0.0 | TEMP4 | I | 0 | 431, 97 | ||
| 1 | 0.0 | Work 4 | I | 0 | 441, 517 | ||
| 1 | 0.0 | Work 44 | I | -1 | 611, 409 | ||
| 1 | 0.0 | Work 45 | I | -1 | 121, 409 | ||
| 1 | 0.0 | Work 1 | I | 0 | 751, 121 | ||
| 1 | 0.0 | Work 1 | I | 0 | 141, 505 | ||
| 1 | 0.0 | Work 1 | I | 0 | 201, 529 | ||
| 1 | 0.0 | Work 2 | I | 0 | 151, 61 | ||
| 1 | 0.0 | Work 1 | I | 0 | 231, 529 | ||
| 1 | 0.0 | Work 1 | I | 0 | 261, 529 | ||
| 1 | 0.0 | Work 1 | I | 0 | 291, 529 | ||
| 1 | 0.0 | Work 2 | I | 0 | 321, 529 | ||
| 1 | 0.0 | Work 3 | I | 0 | 351, 529 | ||
| 1 | 0.0 | Work 2 | I | 0 | 81, 505 | ||
| 1 | 0.0 | Work 1 | I | 0 | 101, 61 | ||
| 1 | 0.0 | Work 1 | I | -1 | 121, 445 | ||
| 1 | 0.0 | BUYER_TYPE | I | 0 | 201, 505 | ||
| 1 | 0.0 | Work 4 | I | -1 | 451, 217 | ||
| 1 | 0.0 | Work 2 | I | 0 | 171, 505 | ||
| 1 | 0.0 | Label 1 | T | -1 | 721, 193 | ||
| 1 | 0.0 | Label 7 | T | -1 | 701, 25 | ||
| 1 | 0.0 | DEBTOR_MAST | DM_DEBTOR | T | -1 | 21, 121 | |
| 1 | 0.0 | Label 3 | T | -1 | 1, 25 | ||
| 1 | 0.0 | Label 4 | T | -1 | 291, 25 | ||
| 1 | 0.0 | Label 6 | T | -1 | 651, 25 | ||
| 1 | 0.0 | Label 9 | T | -1 | 701, 49 | ||
| 1 | 0.0 | Label 8 | T | -1 | 651, 49 | ||
| 1 | 0.0 | Label 10 | T | -1 | 11, 481 | ||
| 1 | 0.0 | Label 12 | T | -1 | 301, 121 | ||
| 1 | 0.0 | Label 16 | T | -1 | 531, 85 | ||
| 1 | 0.0 | Label 17 | T | -1 | 531, 121 | ||
| 1 | 0.0 | Label 20 | T | -1 | 651, 121 | ||
| 1 | 0.0 | Label 33 | T | -1 | 101, 193 | ||
| 1 | 0.0 | Label 34 | T | -1 | 51, 193 | ||
| 1 | 0.0 | Label 35 | T | -1 | 191, 193 | ||
| 1 | 0.0 | Label 36 | T | -1 | 331, 193 | ||
| 1 | 0.0 | Label 37 | T | -1 | 381, 193 | ||
| 1 | 0.0 | Label 38 | T | -1 | 511, 193 | ||
| 1 | 0.0 | Label 39 | T | -1 | 571, 193 | ||
| 1 | 0.0 | Label 40 | T | 0 | 731, 181 | ||
| 1 | 0.0 | Label 41 | T | -1 | 651, 193 | ||
| 1 | 0.0 | Label 42 | T | -1 | 511, 409 | ||
| 1 | 0.0 | Label 43 | T | -1 | 1, 409 | ||
| 1 | 0.0 | Label 3 | T | -1 | 451, 193 | ||
| 1 | 0.0 | Label 2 | T | -1 | 277, 48 | ||
| 1 | 0.0 | CMD 3 | C | -1 | 649, 546 | $SCMD_FOCUS O:BACKCOLOR;C\UPDATE;YELLOW $SELECT I:I\BUYER_TYPE;=;CA DO(FJF) I:I\PAY_METH;=; D:PLEASE ENTER A PAYMENT METHOD;ERRORM;I\PAY_METH DOEND(FJF) I:I\BUYER_TYPE;<>;CA DO(SO) U:UPD_TABLES_PROV_SLS;BALANCE_CREDIT_LIMITS DOEND(SO) 'ANOTHER CHECK HERE BECAUSE PEOPLE ARE TRYING TO GIPPO |
|
| 1 | 0.0 | CPO_CASHPT | I | 0 | 131, 61 | ||
| 1 | 0.0 | Label 2 | T | -1 | 11, 193 | ||
| 1 | 0.0 | Work 1 | I | -1 | 11, 217 | $SELECT S:G:G\GRID:L1;I\LINE $VALIDATE I:I\LINE;<>; DO(LINE) U:ZZGRID_SPLIT;GRID_TO_SCREEN;G\GRID;I\LINE O:ENABLEINPUT;I\VALIDATE DOEND(LINE) I:I\LINE;=; DO(O) O:DISABLEINPUT;G\GRID,I\VALIDATE A:CONST;$I\TOT_RND$;I\TOTAL 'U:POP_GRID;SUM_SELECTED I:I\TOTAL;=;0.00 D:SELECT A SALE TO VALIDATE; |
|
| 1 | 0.0 | Work 10 | I | -1 | 611, 445 | $CALCULATE U:CATCHCHARS;FALSE '$DEFAULT I:I\AMT_TENDERED;=; A:CONST;0;I\AMT_TENDERED I:I\PAY_METH;=;CH A:SUB;I\AMT_TENDERED;I\CHANGE;I\CH_DUE;#0.00 I:I\PAY_METH;<>;CH A:SUB;I\AMT_TENDERED;I\CHANGE;I\TOTAL;#0.00 I:I\BUYER_TYPE;=;CA DO(NNJ) I:I\PAY_METH;=;CH DO(KUK) I:I\AMT_TENDERED;<;I\CH_ |
|
| 1 | 0.0 | Work 1 | I | 0 | 421, 73 | ||
| 1 | 0.0 | DOCNO | I | 0 | 711, 193 | ||
| 1 | 0.0 | DATE | I | -1 | 651, 217 | ||
| 1 | 0.0 | Label 5 | T | -1 | 321, 409 | ||
| 1 | 0.0 | PAY_METH | I | -1 | 401, 409 | $SELECT S:PAYMENT_METHOD;I\PAY_METH;I\MARKET $VALIDATE I:I\BUYER_TYPE;=;CA DO(VEW) M: F:CASH_PAYMTHD;Y;;;CPM_PAYMETH='$I\PAY_METH$';I\PAY_METH DOEND(VEW) $CALCULATE C:UCASE F:CASH_PAYMTHD;Y;;;CPM_PAYMETH='$I\PAY_METH$';I\PAY_METH O:DISABLEINPUT;I\AMT_TENDERED I:I\BUYER_TYPE;<>;CA DO(WER) |
|
| 1 | 0.0 | NUMRECS | I | -1 | 141, 97 | $CALCULATE I:I\NUMRECS;=;0;NUM A:VAR;I\DEFRECS;I\NUMRECS I:I\NUMRECS;=; A:VAR;I\DEFRECS;I\NUMRECS I:I\NUMRECS;>;10;NUM D:YOU MAY NOT PRINT MORE THAN 10 INVOICES;ERRORM;I\NUMRECS |
|
| 1 | 0.0 | Label 5 | T | -1 | 21, 97 | ||
| 1 | 0.0 | Work 6 | I | 0 | 171, 97 | ||
| 1 | 0.0 | Work 1 | I | 0 | 261, 505 | ||
| 1 | 0.0 | Label 9 | T | -1 | 511, 445 | ||
| 1 | 0.0 | Label 1 | T | -1 | 1, 445 | ||
| 1 | 0.0 | Label 11 | T | -1 | 511, 481 | ||
| 1 | 0.0 | Work 12 | I | -1 | 611, 481 | ||
| 1 | 0.0 | Label 9 | T | -1 | 311, 73 | ||
| 1 | 0.0 | VALCHEQUE | I | 0 | 411, 97 | ||
| 1 | 0.0 | CRIND | I | 0 | 471, 97 | ||
| 1 | 0.0 | CODEFLD | I | 0 | 451, 97 | ||
| 1 | 0.0 | MAIN_DEBTOR | I | 0 | 401, 121 | ||
| 1 | 0.0 | TRIND | I | 0 | 421, 121 | ||
| 1 | 0.0 | Label 3 | T | -1 | 531, 157 | ||
| 1 | 0.0 | TRCHG | I | -1 | 611, 157 | $CALCULATE C:UCASE V:Y;N; I:I\TRCHG;=; A:CONST;N;I\TRCHG 'SHOW THE BUYERS CREDIT LIMIT(CR LIMIT - OUTSTDNG BAL - GRID TOTAL) I:I\BUYER_TYPE;<>;CA DO(NOTA) O:HIDE;T\TENDERED,I\AMT_TENDERED,T\CHANGE,I\CHANGE U:PROV_SALES_VAL_MAN;CRED_LIM_DISPLAY I:I\CRIND;=;N O:SETFOCUS;I\DM_DEBTOR DOEND(NOTA) O:DI |
|
| 1 | 0.0 | CALLCHQ | I | 0 | 441, 121 | ||
| 1 | 0.0 | CHV | I | 0 | 461, 121 | ||
| 1 | 0.0 | CH_DUE | I | 0 | 481, 121 | ||
| 1 | 0.0 | Label 8 | T | -1 | 321, 445 | ||
| 1 | 0.0 | CH | I | -1 | 401, 445 | ||
| 10 | 0.0 | ZX_PRINT | Z | 0 | 1, 25 | ||
| 10 | 0.0 | ZX_SELECT | Z | 0 | 1, 25 | ||
| 10 | 0.0 | ZX_DELETE | Z | 0 | 1, 25 | ||
| 10 | 0.0 | ZX_UPDATE | Z | 0 | 1, 25 | ||
| 10 | 0.0 | ZX_EXIT | Z | 0 | 1, 25 |