היי יצחק,
לצערי גם אחרי הוספת החיתוכים אני לא מצליח (כמובן כולם עם מזהה 9? )
זה ה DUMP של הדוח:
/*
*
* Report MYBS_CUSTDISC1 : מגוון/ללקוח והנחות מחירים סיכום
*
*/
/* סיכום מחירים והנחות ללקוח/מגוון */
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 )
ORDER BY 1 ASC, 8 ASC ;
וזה הDUMP של הפרוצדורה:
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);
15 GOTO B אחר לשלב דלוג
Parameters
----------
GO: INT
20 CUSTDISC R ללקוח והנחות מחירים סיכום
Parameters
----------
CPP=CUSTDISCREP: FILE
DIS: DATE
FLG: INT
21 GOTO B אחר לשלב דלוג
Parameters
----------
GO=40: INT
30 MYBS_CUSTDISC1 R מגוון/ללקוח והנחות מחירים סיכום
Parameters
----------
CFL: CHAR
CPP=CUSTDISCREP: FILE
DIS: DATE
FLG: INT
40 END B פרוצדורה סיום
.
