Interlligent

/* סיכום מחירים והנחות ללקוח/מגוון */
‎ SELECT CUSTOMERS.CUSTNAME AS '‎לקוח‎ .‎מס‎',
‎ CUSTOMERS.CUSTDES AS '‎לקוח‎ ‎שם‎',
‎ CUSTDISCREP.CDISCOUNT AS '(%) ‎כללית‎ ‎הנחה‎',
‎ CUSTOMERS1.CUSTNAME AS '‎מרכז‎ ‎לקוח‎ \'‎מס‎',
‎ CUSTOMERS1.CUSTDES AS '‎מרכז‎ ‎לקוח‎ ‎שם‎',
‎ CUSTDISCREP.MDISCOUNT AS '(%) ‎מ‎"‎לל‎ ‎כללית‎ ‎הנחה‎',
‎ CUSTDISCREP.GMDISCOUNT AS '(%) ‎כ‎"‎לל‎ ‎כללית‎ ‎הנחה‎',
‎ PART.PARTNAME AS '‎ט‎"‎מק‎',
‎ PART.PARTDES AS '‎מוצר‎ ‎תאור‎',
‎ CUSTDISCREP.CPPRICE AS '‎מוצר‎ /‎ללקוח‎ ‎מחיר‎',
‎ CURRENCIES1.CODE AS '.‎מט‎',
‎ UNIT1.UNITNAME AS '.‎יח‎',
‎ CUSTDISCREP.MCPPRICE AS '‎מוצר‎ /‎מ‎"‎לל‎ ‎מחיר‎',
‎ CURRENCIES3.CODE AS '.‎מט‎',
‎ UNIT3.UNITNAME AS '.‎יח‎',
‎ CUSTDISCREP.GMCPPRICE AS '‎מוצר‎ /‎כ‎"‎לל‎ ‎מחיר‎',
‎ CURRENCIES6.CODE AS '.‎מט‎',
‎ UNIT6.UNITNAME AS '.‎יח‎',
‎ CUSTDISCREP.PLPRICE AS '‎לקוח‎ ‎מחירון‎',
‎ CURRENCIES2.CODE AS '.‎מט‎',
‎ UNIT2.UNITNAME AS '.‎יח‎',
‎ CUSTDISCREP.MPLPRICE AS '‎מרכז‎ ‎לקוח‎ ‎מחירון‎',
‎ CURRENCIES4.CODE AS '.‎מט‎',
‎ UNIT4.UNITNAME AS '.‎יח‎',
‎ CUSTDISCREP.GMPLPRICE AS '‎כללי‎ ‎לקוח‎ ‎מחירון‎',
‎ CURRENCIES7.CODE AS '.‎מט‎',
‎ UNIT7.UNITNAME AS '.‎יח‎',
‎ CUSTDISCREP.BPLPRICE AS '‎בסיס‎ ‎מחירון‎',
‎ CURRENCIES5.CODE AS '.‎מט‎',
‎ UNIT5.UNITNAME AS '.‎יח‎',
‎ CUSTDISCREP.FAMPERCENT AS '‎משפחה‎ /‎ללקוח‎ ‎הנחה‎',
‎ CUSTDISCREP.FAMMPERCENT AS '‎משפחה‎ /‎מ‎"‎לל‎ ‎הנחה‎',
‎ CUSTDISCREP.FAMGMPERCENT AS '‎משפחה‎ /‎כ‎"‎לל‎ ‎הנחה‎',
‎ CUSTDISCREP.CPPERCENT AS '‎מוצר‎ /‎ללקוח‎ ‎הנחה‎',
‎ CUSTDISCREP.MCPPERCENT AS '‎מוצר‎ /‎מ‎"‎לל‎ ‎הנחה‎',
‎ CUSTDISCREP.GMCPPERCENT AS '‎מוצר‎ /‎כ‎"‎לל‎ ‎הנחה‎',
‎ CUSTDISCREP.PRICE AS '‎סופי‎ ‎מחיר‎',
‎ CURRENCIES.CODE AS '.‎מט‎',
‎ UNIT.UNITNAME AS '.‎יח‎',
‎ CUSTPART9.VALIDFLAG AS '?‎בתוקף‎',
‎ CUSTPART.PART AS '(ID) ‎ט‎"‎מק‎',
‎ CUSTPART.CUSTPART AS '(ID) ‎ט‎"‎מק‎ ‎לקוח‎',
‎ CUSTPART.CUST AS '(ID) ‎לקוח‎ \'‎מס‎'
FROM CUSTPART , CUSTPART CUSTPART9 ?, UNIT , CURRENCIES , UNIT UNIT5
, CURRENCIES CURRENCIES5 , UNIT UNIT7 , CURRENCIES CURRENCIES7 , UNIT
UNIT4 , CURRENCIES CURRENCIES4 , UNIT UNIT2 , CURRENCIES CURRENCIES2
, UNIT UNIT6 , CURRENCIES CURRENCIES6 , UNIT UNIT3 , CURRENCIES CURRENCIES3
, UNIT UNIT1 , CURRENCIES CURRENCIES1 , PART , CUSTOMERS CUSTOMERS1
, CUSTDISCREP !, CUSTOMERS
WHERE (PART.PART IN (SELECT PART FROM CUSTPART WHERE CUST = CUSTDISCREP.CUST)
AND :CFL = 'Y')
AND (CUSTDISCREP.MCUST = CUSTOMERS1.CUST)
AND (CUSTDISCREP.CUST = CUSTOMERS.CUST)
AND (CUSTDISCREP.GMPLUNIT = UNIT7.UNIT)
AND (CUSTDISCREP.GMCPUNIT = UNIT6.UNIT)
AND (CUSTDISCREP.GMPLCURRENCY = CURRENCIES7.CURRENCY)
AND (CUSTDISCREP.GMCPCURRENCY = CURRENCIES6.CURRENCY)
AND (CUSTDISCREP.CPPRICE 0.0 OR MCPPRICE 0.0 OR PLPRICE 0.0 OR
CUSTDISCREP.MPLPRICE 0.0 OR CUSTDISCREP.CPPERCENT 0.0 OR CUSTDISCREP.MCPPERCENT
0.0 OR CUSTDISCREP.FAMPERCENT 0.0 OR CUSTDISCREP.CDISCOUNT 0.0
OR CUSTDISCREP.MDISCOUNT 0.0 OR CUSTDISCREP.FAMPERCENT 0.0 OR :FLG
= 1)
AND (CUSTDISCREP.BPLUNIT = UNIT5.UNIT)
AND (CUSTDISCREP.MPLUNIT = UNIT4.UNIT)
AND (CUSTDISCREP.PLUNIT = UNIT2.UNIT)
AND (CUSTDISCREP.MCPUNIT = UNIT3.UNIT)
AND (CUSTDISCREP.CPUNIT = UNIT1.UNIT)
AND (CUSTDISCREP.UNIT = UNIT.UNIT)
AND (CUSTDISCREP.BPLCURRENCY = CURRENCIES5.CURRENCY)
AND (CUSTDISCREP.MPLCURRENCY = CURRENCIES4.CURRENCY)
AND (CUSTDISCREP.PART > 0)
AND (CUSTDISCREP.PART = PART.PART)
AND (CUSTDISCREP.CPCURRENCY = CURRENCIES1.CURRENCY)
AND (CUSTDISCREP.PLCURRENCY = CURRENCIES2.CURRENCY)
AND (CUSTDISCREP.MCPCURRENCY = CURRENCIES3.CURRENCY)
AND (CUSTDISCREP.CURRENCY = CURRENCIES.CURRENCY)
AND ( 1=1 )

Procedure MYBS_CUSTDISC1:

/*
*
‎ * Procedure MYBS_CUSTDISC1 : ‎מגוון‎/‎ללקוח‎ ‎והנחות‎ ‎מחירים‎ ‎סיכום
*
*/

POS ENAME TY TITLE
--- ---------------- - --------------------------------
‎ 2 CHOOSE B ‎פרמטר‎ ‎בחירת
Parameters
----------
‎ HL1(CHOOSE‎ל‎ ‎עזרה‎): HELP,Input
‎ FLG(‎ח‎"‎הדו‎ ‎הפקת‎ ‎אופן‎): INT,Input
‎ F1=1(‎המחירונים‎ ‎כל‎): INT,Input
‎ F2=2(‎בלבד‎ ‎לקוח‎ ‎מחירוני‎): INT,Input
‎ 10 CUSTDISC C ‎ללקוח‎ ‎והנחות‎ ‎מחירים‎ ‎סיכום‎ ‎ביצוע
Parameters
----------
CUS: FILE,CUSTOMERS.CUSTNAME,Input
PAR: FILE,PART.PARTNAME,Input
CPP: FILE
‎ DIS=SQL.DATE8(‎תאריך‎): DATE,Input
‎ CFL(?‎לקוח‎ ‎מוצרי‎): CHAR,Input
‎ 12 SQLI C ‎הנתונים‎ ‎למסד‎ ‎גישה
Parameters
----------
CFL: CHAR
Query
-----
#line 1 MYBS_CUSTDISC1/12---
:MYBS_CUSTDISC1.GO = (:MYBS_CUSTDISC1.CFL = 'Y' ? 30 : 20);