Wykres na liscie kontrahentow

[DanGrab3]

Witam,
Probuje stworzyc wykres na liscie kontrahentow w XL 9.8 - identyczny jak wydruk na liscie kontrahentow - >Archiwalne należności/zobowiązania->Płatności nierozliczone wg kontrahentow lecz ma to byc wykres.

Stworzylem cos takiego ale nie do konca jest zgodny z wydrukiem. Nie pokazuja sie wszyscy kontrahenci z listy na wydrukach. Gdzie tkwi problem ?
Moze komus wpadnie jakis pomysl.

Kod: Zaznacz cały

select distinct 

  knt_akronim [Kontrahent]
 ,isnull((select sum(trp_pozostaje) from cdn.traplat where trp_kntNumer=knt_Gidnumer and TrP_KntTyp = 32 and trp_typ=2  and TrP_Rozliczona=0 and DATEDIFF([day],'18001228',getdate())-TrP_Termin=0),0) as [W terminie]
 ,isnull((select sum(trp_pozostaje) from cdn.traplat where trp_kntNumer=knt_Gidnumer and TrP_KntTyp = 32 and trp_typ=2  and TrP_Rozliczona=0 and (DATEDIFF([day],'18001228',getdate())-TrP_Termin>0 and DATEDIFF([day],'18001228',getdate())-TrP_Termin<=30)),0) as [1-30 dni]
 ,isnull((select sum(trp_pozostaje) from cdn.traplat where trp_kntNumer=knt_Gidnumer and TrP_KntTyp = 32 and trp_typ=2  and TrP_Rozliczona=0 and (DATEDIFF([day],'18001228',getdate())-TrP_Termin>=31 and DATEDIFF([day],'18001228',getdate())-TrP_Termin<=60)),0) as [31-60 dni]
 ,isnull((select sum(trp_pozostaje) from cdn.traplat where trp_kntNumer=knt_Gidnumer and TrP_KntTyp = 32 and trp_typ=2  and TrP_Rozliczona=0 and (DATEDIFF([day],'18001228',getdate())-TrP_Termin>=61 and DATEDIFF([day],'18001228',getdate())-TrP_Termin<=90)),0) as [61-90 dni]
 ,isnull((select sum(trp_pozostaje) from cdn.traplat where trp_kntNumer=knt_Gidnumer and TrP_KntTyp = 32 and trp_typ=2  and TrP_Rozliczona=0 and (DATEDIFF([day],'18001228',getdate())-TrP_Termin>=91 and DATEDIFF([day],'18001228',getdate())-TrP_Termin<=180)),0) as [91-180 dni]
 ,isnull((select sum(trp_pozostaje) from cdn.traplat where trp_kntNumer=knt_Gidnumer and TrP_KntTyp = 32 and trp_typ=2  and TrP_Rozliczona=0 and (DATEDIFF([day],'18001228',getdate())-TrP_Termin>=181 and DATEDIFF([day],'18001228',getdate())-TrP_Termin<=365)),0) as [181-365 dni]
 ,isnull((select sum(trp_pozostaje) from cdn.traplat where trp_kntNumer=knt_Gidnumer and TrP_KntTyp = 32 and trp_typ=2  and TrP_Rozliczona=0 and (DATEDIFF([day],'18001228',getdate())-TrP_Termin>=366 and DATEDIFF([day],'18001228',getdate())-TrP_Termin<=730)),0) as [366-730 dni]
 ,isnull((select sum(trp_pozostaje) from cdn.traplat where trp_kntNumer=knt_Gidnumer and TrP_KntTyp = 32 and trp_typ=2  and TrP_Rozliczona=0 and DATEDIFF([day],'18001228',getdate())-TrP_Termin>=730),0) as [>730 dni]
 ,isnull((select sum(trp_pozostaje) from cdn.traplat where trp_kntNumer=knt_Gidnumer and TrP_KntTyp = 32 and trp_typ=2  and TrP_Rozliczona=0),0) as [Razem]
 ,isnull((select sum(trp_pozostaje) from cdn.traplat where trp_kntNumer=knt_Gidnumer and TrP_KntTyp = 32 and trp_typ=1  and TrP_Rozliczona=0),0) as [Zobowiązania]
 ,isnull((select sum(kaz_pozostaje) from cdn.zapisy where Knt_GIDNumer=KAZ_KNTNumer and kaz_rp=2),0) as [Wplata]
 ,isnull((select sum(kaz_pozostaje) from cdn.zapisy where Knt_GIDNumer=KAZ_KNTNumer and kaz_rp=1),0) as [Wyplata]
 ,isnull((select sum(trp_pozostaje) from cdn.traplat where trp_kntNumer=knt_Gidnumer and TrP_KntTyp = 32 and trp_typ=2  and TrP_Rozliczona=0) - (select sum(trp_pozostaje) from cdn.traplat where trp_kntNumer=knt_Gidnumer and TrP_KntTyp = 32 and trp_typ=1  and TrP_Rozliczona=0)-(select sum(kaz_pozostaje) from cdn.zapisy where Knt_GIDNumer=KAZ_KNTNumer and kaz_rp=2)+(select sum(kaz_pozostaje) from cdn.zapisy where Knt_GIDNumer=KAZ_KNTNumer and kaz_rp=1),0) as [Per Saldo] 
from cdn.zapisy, cdn.traplat, cdn.kntkarty 

WHERE trp_kntNumer=knt_Gidnumer and Knt_GIDNumer=KAZ_KNTNumer and TrP_Rozliczona=0

group by knt_akronim,trp_typ,trp_Rozliczona,Knt_GIDNumer
order by 1

Pozdrawiam
Dangrab

[xtomi]

A nie prościej skorzystać w gotowej procedury PlatnosciNierozliczone

[DanGrab3]

Napewno prosciej ale musze dodac dodatkowo do takiego wykresu atrybuty z karty kontrahenta z przypisaniem do akronimu.

Poza tym pytanie
Podlaczajac wskazana procedure na wykresie uzywam polecenia

Kod: Zaznacz cały

@PAR ?@D17|@Data_|Stan na dzień:{Today()} @? PAR@
@PAR ?@R(SELECT ID = 1, Kod = 'zobowiązania' UNION SELECT ID = 2, Kod = 'należności')|@Typ_|&Typ płatności:2| @? PAR@
@PAR ?@R(SELECT ID = 1, Kod = 'dokumentów' UNION SELECT ID = 2, Kod = 'płatności')|@TypDaty_|&Wg dat:2| @? PAR@
@PAR ?@S5|Waluta_|Waluta:{GetSQL('select kon_wartosc from cdn.konfig where kon_numer = 211')} @? @TIP(Domyślnie - waluta systemowa.) PAR@
@PAR ?@R(SELECT ID = 1, Kod = 'dokumentu' UNION SELECT ID = 0, Kod = 'tabeli')|@KursDok|&Kurs z:dokumentu @? @D( {??Waluta_ = 'PLN'}) PAR@
@PAR ?@HN7|FormaPl|Płatności:REG=0 @? PAR@
@PAR ?@R(SELECT ID = 0, Kod = 'Nie' UNION SELECT ID = 1, Kod = 'Tak')|@PRL_|&Płatności planowane:0| @? PAR@
@PAR ?@n10|@p1_|Przedział &1:30 @? PAR@
@PAR ?@n10|@p2_|Przedział &2:60 @? PAR@
@PAR ?@n10|@p3_|Przedział &3:90 @? PAR@
@PAR ?@n10|@p4_|Przedział &4:180 @? PAR@
@PAR ?@n10|@p5_|Przedział &5:365 @? PAR@
@PAR ?@n10|@p6_|Przedział &6:730 @? PAR@

SET NOCOUNT ON
select [1]=1, [2]=2
execute CDN.PlatnosciNierozliczone
SET NOCOUNT OFF

otrzymuje taki komunikat bledu:

"Znalezienie biblioteki nie udało się.
Sprawdź, czy wszystkie biblioteki DLL są dostępne."

Ktos wie o co chodzi ?

[Mihhss]

Odpal plik "Rejestr" w progam files / cdn xl - powinno pomóc.

[DanGrab3]

Robilem juz to wczesniej lecz nic to to nie pomoglo.