Baza ok 2500 tabel.

[Cezary Grądys]

Witam.

Co o tym sądzić? Czy to uzasadnione może być, czy spodziewać się
więlkiej lipy? Branża ubezpieczeniowa.
Jakie maksymalne ilości tabel spotykacie w praktyce?

--
Cezary Grądys
czar...@wa.onet.pl

[wloochacz]

W dniu 2017-06-13 o 18:14, Cezary Grądys pisze:

> Witam.
>
> Co o tym sądzić? Czy to uzasadnione może być, czy spodziewać się
> więlkiej lipy? Branża ubezpieczeniowa.

IMO lipa; taka ilość tabel sugeruje partycjonowanie w bieda wersji.
Oczywiście mogę się mylić i ciekaw jestem czy się mylę ;-)

> Jakie maksymalne ilości tabel spotykacie w praktyce?

Ok. 1000 +/- 15%
Ale to kobyła do wszystkiego była, której projekt wyrósł z baz ISAM...
W formie stricte relacyjnej można by to było zrobić ciut inaczej i lepiej.

--
wloochacz

[M.M.]

On Tuesday, June 13, 2017 at 6:14:27 PM UTC+2, Cezary Grądys wrote:
> Witam.
>
> Co o tym sądzić? Czy to uzasadnione może być, czy spodziewać się
> więlkiej lipy? Branża ubezpieczeniowa.
> Jakie maksymalne ilości tabel spotykacie w praktyce?

Nie można nic powiedzieć o systemie na podstawie samej ilości
tabel :) Co w sytuacji, gdy automat w jakimś celu zakłada
tabele? Co gdy jedna z tabel ma taką definicję:
nazwa_tabeli, numer_rekordu, nazwa_pola, dane_wlasciwe - taka
jedna tabela zastępuje dowolną ilość tabel w bazie :)

Trzeba coś wiedzieć, albo chociaż założyć o tabelach.
Gdy założy się rozsądek, to aplikacja pracująca na bazie zawierającej
(powiedzmy) od 6 do 14 dobrze zaprojektowanych tabel i te tabele
zawierają "dane główne", a nie jakieś szczegółowe ustawienia, to
(ta aplikacja) może być już baaaardzo zaawansowaną i rozbudowaną
aplikacją. A gdy ilość tabel idzie w tysiące to co można myśleć?

Myślę, że tabele są generowane automatycznie, albo powstają/powstały w
celu jakiejś optymalizacji. Wyłuskaj z tego "dane główne", zastanów
się ile potrzeba tabel przy dobrej normalizacji, bez optymalizacji,
wtedy będzie można jakieś zgrubne wnioski wyciągać.

Pozdrawiam

[Marcin B.]

On 2017-06-13 18:14, Cezary Grądys wrote:
> Witam.
>
> Co o tym sądzić? Czy to uzasadnione może być, czy spodziewać się
> więlkiej lipy? Branża ubezpieczeniowa.
> Jakie maksymalne ilości tabel spotykacie w praktyce?
>

Trzeba rzucić okiem na bazę, sama liczba tabel niewiele mówi. Z
doświadczenia wiem, że większy ERP to grubo ponad 1000 tabel, a np.
systemy bankowe to kilka tys. Chociaż widziałem kiedyś w pewnym ERP
tabele dokument_wz, dokument_mm, dokument_pw itd., przy czym 90% pól
było wspólne - wtedy można się przyczepić do struktury bazy.

M.

[Jivanmukta]

> Jakie maksymalne ilości tabel spotykacie w praktyce?

Pracowałem z systemem SAP R/3 który ma 14000 tabel.

[Cezary Grądys]

W dniu 14.06.2017 o 04:44, Jivanmukta pisze:

>> Jakie maksymalne ilości tabel spotykacie w praktyce?
>
> Pracowałem z systemem SAP R/3 który ma 14000 tabel.
>

Dzięki wszystkim, widzę, że na dwoje babka wróżyła.
Bardziej skłaniam się, że to jakaś lipa, jakieś sprawy historyczne, bo
dokumentacji prawie nie ma.

[Adam]

W dniu 2017-06-14 o 04:44, Jivanmukta pisze:

>> Jakie maksymalne ilości tabel spotykacie w praktyce?
>
> Pracowałem z systemem SAP R/3 który ma 14000 tabel.
>

IMO - SAP nie jest dobrym przykładem :(

Dla ichniejszych ludzików z IT najmniejsza pierdółka rosła do rangi
problemu miesiąca. Spotykałem się z sytuacją, że zmiana jednego pola
była awykonalna, a na przykład zmiana adresu portu RS232 (dla wysyłania
danych do drukarki fiskalnej) trwała blisko trzy tygodnie :(


--
Pozdrawiam.

Adam

[Cezary Grądys]

W dniu 14.06.2017 o 12:07, Adam pisze:

Chyba nie jest prosto, jak baza ma 14000 tabel :)

[Stokrotka]

Raczej wielka lipa.

Często pszyczyną jest to, że jak do konserwacji systemu zatrudniany jest
nowy, kolejny programista,
to zamiast wczytać się w dokumentację i używać istniejącej tabeli,
po prostu zakłada garść nowyh tabel
(bo tak jest szybciej: w końcu jak pszyjmowali do roboty pytali o znajomość
SQL
- a tu wystarczy jedna instrukcja by załozyć tabelę -,
a nie pytali o stosunek do dokumentacji, a kandydat na pracownika -
programistę
nie pytał czy dokumentacja jest i ile już jest tabel marką auta.)

Czasem tabele robi automat.
Czasem właściwie, czasem bez sensu nie kasując tabeli
bo programista zapomniał, że powinien założyć tymczasową.

Jest jescze nadzieja, że ty spisując ilośc tabel , nie odzieliłeś,
pomieszałeś
tabele z indeksami i kluczami itp.
Ale nawet jak odejmiesz jakiś procent, nawet 75%, to i tak wyjdzie za wiele.
Raczj ktoś coś spiep...

--
(tekst bez: ó, ch, rz i -ii)
Ortografia to NAWYK, często nielogiczny, ktury ludzie ociężali umysłowo,
nażucają bezmyślnie następnym pokoleniom. ( ortografia . pev . pl )


.

[Adam]

W dniu 2017-06-14 o 13:36, Cezary Grądys pisze:

Ciężko ogarnąć.

Jeśli jeszcze brakuje triggerów, to już prześledzenie transakcji może
być co najmniej problematyczne.

Ja na szczęście pracuję z programami, którym wystarcza kilkaset tabel.
Praktycznie wszystko jest jeszcze obwarowane triggerami, więc grzebiąc w
bazie nie jestem w stanie (oczywiście bez wyłączenia triggera)
przykładowo wycofać dokumentu wydania towaru, aby tenże towar nie
pojawił się ponownie na stanie magazynowym.
Niektóre triggery sprawdzają kilkadziesiąt warunków - też nie sposób to
robić ręcznie - ale to już OT.


--
Pozdrawiam.

Adam

[Jacek]

Dnia Wed, 14 Jun 2017 04:44:29 +0200, Jivanmukta napisał(a):

>> Jakie maksymalne ilości tabel spotykacie w praktyce?
>
> Pracowałem z systemem SAP R/3 który ma 14000 tabel.

To pewnie pozostałość po programistach piszących programy z DBFami...

[M.M.]

Kilkaset to też dużo. Jeśli można spytać, ile było które nie zawierały
danych nadmiarowych, jaka była średnia ilość rekordów w tabeli (licząc
tylko te nienadmiarowe) i ile tabel miało ilość rekordów powyżej średniej -
też licząc tylko te nienadmiarowe.

Pozdrawiam

[Cezary Grądys]

W dniu 14.06.2017 o 16:19, Stokrotka pisze:

> apomniał, że powinien założyć tymczasową.
>
> Jest jescze nadzieja, że ty spisując ilośc tabel , nie odzieliłeś,
> pomieszałeś
> tabele z indeksami i kluczami itp.

Nie miałem możliwości długo się przyglądać, rzuciłem okiem z poziomu
PgAdmina, a tam ilość tabel jest jednoznacznie podana...

No to może jeszcze takie pytanie, kiedy taka ilość tabel jest
uzasadniona? Są podobno tacy, co robia tabele słownikowe nazwisk, ale
mimo wszystko jakoś trudno tyle tabel stworzyć.
Ja skłaniam się do wniosku, że brakuje odważnego do zrobienia
DROP TABLE...

--
Cezary Grądys
czar...@wa.onet.pl

[M.M.]

On Thursday, June 15, 2017 at 2:37:35 PM UTC+2, Cezary Grądys wrote:
> W dniu 14.06.2017 o 16:19, Stokrotka pisze:
> > apomniał, że powinien założyć tymczasową.
> >
> > Jest jescze nadzieja, że ty spisując ilośc tabel , nie odzieliłeś,
> > pomieszałeś
> > tabele z indeksami i kluczami itp.
>
>
> Nie miałem możliwości długo się przyglądać, rzuciłem okiem z poziomu
> PgAdmina, a tam ilość tabel jest jednoznacznie podana...
>
> No to może jeszcze takie pytanie, kiedy taka ilość tabel jest
> uzasadniona?

Ty jesteś przy systemie, dlaczego Ty nie odpowiesz na to pytanie?
Jest kilka tak oczywistych powodów z których ilość tabel rośnie, że aż
wstyd te powody wymieniać. Ale czy urośnie w danym systemie do 300 czy
do 5tys to nie mam bladego pojęcia.

Wśród tych powodów jest optymalizacja: ktoś mógł ręcznie podzielić
tabele w pionie i w poziomie - jak ktoś się uprze, to ilość tabel
po takim zabiegu wzrośnie np. 10-50 razy. Może ciężki obliczeniowo
raport jest generowany codziennie, więc na wypadek gdyby chcieli
wrócić do raportu, wszystkie raporty są archiwizowane. Z trzech
lat działania takiego systemu już masz ponad tysiąc tabel. Potem
podsystemy w systemach zintegrowanych - na każdy pod system trzeba
np. 20-100 tabelek, 10 pod-systemów (bez żadnej denormalizacji) już
daje z 500-600 tabelek. Potem zapomniane tabele do skasowania -
chociaż tego wiele nie powinno być.

> Są podobno tacy, co robia tabele słownikowe nazwisk, ale
> mimo wszystko jakoś trudno tyle tabel stworzyć.
> Ja skłaniam się do wniosku, że brakuje odważnego do zrobienia
> DROP TABLE...

Jeszcze raz: Ty widzisz system, a nas pytasz skąd tyle tabel.

[Cezary Grądys]

W dniu 15.06.2017 o 16:22, M.M. pisze:

> Ty jesteś przy systemie, dlaczego Ty nie odpowiesz na to pytanie?
> Jest kilka tak oczywistych powodów z których ilość tabel rośnie, że aż
> wstyd te powody wymieniać. Ale czy urośnie w danym systemie do 300 czy
> do 5tys to nie mam bladego pojęcia.
>

Nie jestem przy systemie i nie wiem czy będę. Dlatego pytam co o tym
sądzić.


--
Cezary Grądys
czar...@wa.onet.pl

[irq]

W dniu czwartek, 15 czerwca 2017 20:57:21 UTC+2 użytkownik Cezary Grądys napisał:
>
> Nie jestem przy systemie i nie wiem czy będę. Dlatego pytam co o tym
> sądzić.
>
>
> --
> Cezary Grądys
> czar...@wa.onet.pl

Witaj, kolego,

żeby się dowiedzieć, czy będziesz (chciał pozostać) przy systemie, musisz jednak przy nim nieco pobyć. Wtedy sam będziesz wiedział co o nim sądzić. Sprawdź czy nazwy tabel układają się w jakiś regularny schemat, czy ich struktura jest taka sama. Grupa za Ciebie nie znajdzie odpowiedzi na wszystkie pytania, ani nie podejmie decyzji.

Pozdrawiam
Irek.

[Stokrotka]

>żeby się dowiedzieć, czy będziesz (chciał pozostać) przy systemie, musisz

>jednak przy nim nieco pobyć. ...

Nie zgadzam się. Czasem od pierwszego wejżenia widać , że system sie nie
nadaje, że do du...
Czasem nawet nie tszeba ogladać systemu, wystarczy kilka zdań opisu...
np ....szukam programisty ktury dokończy rozgżebaną robotę....

[Cezary Grądys]

W dniu 16.06.2017 o 18:16, Stokrotka pisze:

>

>
> Nie zgadzam się. Czasem od pierwszego wejżenia widać , że system sie nie
> nadaje, że do du...
> Czasem nawet nie tszeba ogladać systemu, wystarczy kilka zdań opisu...
> np ....szukam programisty ktury dokończy rozgżebaną robotę....
>
>

Albo przykład z którym się spotkałem dali polskie litery w loginach...
Mi z tego powodu raport nie chciał zadziałać, szefowi też, kombinowali z
uprawnieniami i w końcu doszli, że to to. No ale inteligentnie zmienili
login na taki jak adres poczty, więc zamiast 7 znaków miałem 23 znaki!
już po tym bylo widać czego się spodziewać.



--
Cezary Grądys
czar...@wa.onet.pl

[Adam]

W dniu 2017-06-15 o 11:42, M.M. pisze:

Poniżej wkleiłem CSV z tabelami z systemu CDN-Optima.
Baza produkcyjna z przed kilku lat.

Możesz to wkleić do jakiegoś arkusza, aby lepiej widzieć.

W zasadzie nie ma nadmiarowych tabel, dane nadmiarowe trzymane są w
widokach.

Część tabel jest pustych, gdyż ich wypełnienie zależy m.in. od licencji
wykupionych przez klienta (np. czy tylko Faktury, czy pełny Handel; czy
czy Serwis; czy CRM) itp.
Zależy też od rodzaju działalności klienta - np. czy Książka Przychodów
i Rozchodów, czy pełna Księga Handlowa.

Jeszcze dodatkowe informacje:

O ilości kolumn w tabeli nie bardzo wiem, jak zapytać.
Tabele mają od kilku pól do ponad 100.

Oprócz bazy roboczej (tu przedstawionej) jest jeszcze baza
konfiguracyjna, wspólna dla wszystkich baz roboczych. Ma ok. 70 tabel.


Zrzut bazy roboczej:

Nr_kol;name;rows;reserved;data;index_size;unsed
1;AkordDefinicja;0;0;0;0;0
2;AkordProgres;0;0;0;0;0
3;Akordy;0;0;0;0;0
4;AkordyHist;0;0;0;0;0
5;AkordyHistWartosci;0;0;0;0;0
6;AnalizyBIParam;1;16;8;8;0
7;AutoEwid;0;0;0;0;0
8;AutoKoszty;0;0;0;0;0
9;AutoPrzejazd;0;0;0;0;0
10;AutoRozlicz;0;0;0;0;0
11;AutoTrasy;0;0;0;0;0
12;Awizo;0;0;0;0;0
13;AwizoOpakowania;0;0;0;0;0
14;AwizoTowary;0;0;0;0;0
15;AwizoTypyOpakowan;6;16;8;8;0
16;AwizoTypyTransportu;5;16;8;8;0
17;AwizoWarunkiDostawy;15;16;8;8;0
18;BnkBOMW;0;0;0;0;0
19;BnkCertyfikaty;0;0;0;0;0
20;BnkDokElem;24;48;8;40;0
21;BnkDokNag;13;96;8;88;0
22;BnkFormatyElem;461;112;24;48;40
23;BnkFormatyNag;35;32;8;24;0
24;BnkNazwy;4248;3072;1696;1104;272
25;BnkRachunki;6;128;8;120;0
26;BnkRachZakazy;0;0;0;0;0
27;BnkRaporty;3738;2264;912;1096;256
28;BnkRozKwoty;51576;44464;16504;26128;1832
29;BnkRozKwotyMW;0;0;0;0;0
30;BnkRozRelacje;103148;12168;3016;6952;2200
31;BnkZapisy;42241;45448;22152;21992;1304
32;BnkZapisyCDCSEPAInfo;0;0;0;0;0
33;BnkZdarzenia;50358;56040;24688;29784;1568
34;BnkZdarzeniaCDCSEPAInfo;0;0;0;0;0
35;BOElem;592;232;80;112;40
36;BONag;32;96;8;88;0
37;BRpAgregaty;3728;464;184;136;144
38;BudzetElem;0;0;0;0;0
39;BudzetNag;0;0;0;0;0
40;Centra;2;48;8;40;0
41;CentraKierownicy;0;0;0;0;0
42;CentraLink;2;48;8;40;0
43;CfgKlucze;1135;208;96;88;24
44;CfgWartosci;1143;176;80;48;48
45;CRMDokumenty;0;0;0;0;0
46;CRMKontakty;0;0;0;0;0
47;CrmKontaktyCykl;0;0;0;0;0
48;CrmUczestnicy;0;0;0;0;0
49;CTIWyslaneWyplaty;5;16;8;8;0
50;DaneBinarne;3;48;8;40;0
51;DaneBinarneLinki;0;0;0;0;0
52;DaneKad;57;32;16;16;0
53;DaneKadMod;32;16;8;8;0
54;DanePlac;28;16;8;8;0
55;DanePlacMod;136;64;32;32;0
56;DefAtrElem;14;32;8;24;0
57;DefAtrybuty;48;64;16;48;0
58;DefCeny;6;32;8;24;0
59;DefEtapy;0;0;0;0;0
60;DefinicjaZmian;2;32;8;24;0
61;DefinicjaZmianPola;4;48;8;40;0
62;DefinicjeStref;5;64;8;56;0
63;DefProjekty;1;48;8;40;0
64;DeklElem;30770;4560;3872;496;192
65;DeklKedu;68;32;8;24;0
66;DeklNag;446;256;104;144;8
67;DeklStr;169;1192;1112;32;48
68;DeklV27;0;0;0;0;0
69;DeklVUEK;0;0;0;0;0
70;DeklWydr;26734;4048;3336;488;224
71;DeklZaklady;0;0;0;0;0
72;DekretyElem;234058;84792;47440;36904;448
73;DekretyKonta;346390;60976;19944;40704;328
74;DekretyNag;91588;54624;23864;29856;904
75;DetalAtrybuty;0;0;0;0;0
76;DetalCeny;0;0;0;0;0
77;DetalFormyPlatnosci;0;0;0;0;0
78;DetalKntOsoby;0;0;0;0;0
79;DetalKontrahenci;0;0;0;0;0
80;DetalOperator;0;0;0;0;0
81;DetalPlatnosciDokumentu;0;0;0;0;0
82;DetalRaporty;0;0;0;0;0
83;DetalRoliczeniaZaleglosci;0;0;0;0;0
84;DetalStanFormyPlatnosci;0;0;0;0;0
85;DetalStanKonfiguracja;0;0;0;0;0
86;DetalStanKontrahenci;0;0;0;0;0
87;DetalStanOpakElem;0;0;0;0;0
88;DetalStanOpakNag;0;0;0;0;0
89;DetalStanOperatorzy;0;0;0;0;0
90;DetalStanowiska;0;0;0;0;0
91;DetalStanPlatnosciDokumentu;0;0;0;0;0
92;DetalStanStawkiVAT;0;0;0;0;0
93;DetalStanTowary;0;0;0;0;0
94;DetalStanTraElem;0;0;0;0;0
95;DetalStanTraNag;0;0;0;0;0
96;DetalStanTwrEan;0;0;0;0;0
97;DetalStanTwrJMZ;0;0;0;0;0
98;DetalStanZapisyKB;0;0;0;0;0
99;DetalStanZmiany;0;0;0;0;0
100;DetalTraElem;0;0;0;0;0
101;DetalTraNag;0;0;0;0;0
102;DetalWalKursy;0;0;0;0;0
103;DetalZakazyMagazyn;0;0;0;0;0
104;DetalZapisyKB;0;0;0;0;0
105;DlgDokumenty;0;0;0;0;0
106;DlgElem;0;0;0;0;0
107;DlgNag;0;0;0;0;0
108;DlgTrasy;0;0;0;0;0
109;DlgZaliczki;0;0;0;0;0
110;Dodatki;0;0;0;0;0
111;DodatkiHist;0;0;0;0;0
112;DodatkiUmowy;0;0;0;0;0
113;DokAtrybuty;188;280;16;160;104
114;DokDefinicje;103;88;24;64;0
115;DokNag;0;0;0;0;0
116;DokNagEtapy;0;0;0;0;0
117;DokNagEtapyHistoria;0;0;0;0;0
118;DokNagEtapyKolejne;0;0;0;0;0
119;DokNagPliki;0;0;0;0;0
120;DokNagProcesEtapy;0;0;0;0;0
121;DokPodmioty;0;0;0;0;0
122;DokRelacje;0;0;0;0;0
123;DPD;0;0;0;0;0
124;Dzialy;5;80;8;72;0
125;DzialZakazy;0;0;0;0;0
126;Dzienniki;48;32;8;24;0
127;DziennikZakazy;0;0;0;0;0
128;eSklepFormyPlatnosci;0;0;0;0;0
129;eSklepKntRelacje;0;0;0;0;0
130;eSklepMagazyny;0;0;0;0;0
131;eSklepROCechy;0;0;0;0;0
132;eSklepStanowiska;0;0;0;0;0
133;eSklepWaluty;0;0;0;0;0
134;EwidDodElem;0;0;0;0;0
135;EwidDodNag;0;0;0;0;0
136;FaCyklElem;0;0;0;0;0
137;FaCyklKnt;0;0;0;0;0
138;FaCyklNag;0;0;0;0;0
139;FaCyklTwrKnt;0;0;0;0;0
140;Firma;1113;176;120;48;8
141;FormatyRcp;0;0;0;0;0
142;FormyPlatnosci;11;64;8;56;0
143;FormyPlatnosciDF;37;32;8;24;0
144;FormyPlatnWaluty;2;48;8;40;0
145;FrsPromocje;0;0;0;0;0
146;Grupy;61;32;8;24;0
147;GrupyKontElem;0;0;0;0;0
148;GrupyKontNag;0;0;0;0;0
149;GrupyPotracen;2;48;8;40;0
150;GrupyPotrSkladniki;0;0;0;0;0
151;Harmonogram;0;0;0;0;0
152;HarmonogramLista;0;0;0;0;0
153;HisWyksztal;16;32;8;24;0
154;HisZatrud;45;64;16;48;0
155;Idn;0;0;0;0;0
156;IGaleriaAtrWartosci;0;0;0;0;0
157;IGaleriaAtrybuty;0;0;0;0;0
158;IGaleriaDefAtrWartosci;0;0;0;0;0
159;IGaleriaKategorie;0;0;0;0;0
160;IntrastatElem;0;0;0;0;0
161;IntrastatNag;0;0;0;0;0
162;Kalendarze;1;32;8;24;0
163;KalendDni;16;32;8;24;0
164;KalendDniGodz;18;48;8;40;0
165;KartyKredytowe;8;32;8;24;0
166;KasaChor;16;16;8;8;0
167;Katalogi;1;32;8;24;0
168;KatalogZakazy;0;0;0;0;0
169;Kategorie;83;104;24;80;0
170;KntAtrybuty;19;64;8;56;0
171;KntESklepy;0;0;0;0;0
172;KntGrupy;0;0;0;0;0
173;KntLinki;0;0;0;0;0
174;KntOdbiorcy;1;48;8;40;0
175;KntOsoby;321;96;32;32;32
176;KntPromocje;0;0;0;0;0
177;KntScalHist;0;0;0;0;0
178;KodyCN;1;32;8;24;0
179;KompensatyElem;0;0;0;0;0
180;KompensatyNag;0;0;0;0;0
181;KonfigText;0;0;0;0;0
182;Konta;9147;5152;1640;2960;552
183;KontaZakazy;0;0;0;0;0
184;Kontrahenci;1378;2576;1072;1288;216
185;KorektaPodatkuDochodowego;0;0;0;0;0
186;KragKosztElem;0;0;0;0;0
187;KragKosztNag;0;0;0;0;0
188;KRD;0;0;0;0;0
189;KsiDokElem;0;0;0;0;0
190;KsiDokNag;0;0;0;0;0
191;KsiRozrachunki;11427;16304;3872;11416;1016
192;KwotyCelne;3;32;8;24;0
193;KwotyDodatkowe;0;0;0;0;0
194;LimitNieobec;5;48;8;40;0
195;ListyPlac;332;296;96;176;24
196;Lokalizacje;1;48;8;40;0
197;Magazyny;2;32;8;24;0
198;MagazynZakazy;0;0;0;0;0
199;Marki;0;0;0;0;0
200;MarkiJezykObcy;0;0;0;0;0
201;Miasta;0;0;0;0;0
202;MiejscaUzytkowania;0;0;0;0;0
203;NotyOdsElem;0;0;0;0;0
204;NotyOdsNag;0;0;0;0;0
205;OAtrybuty;0;0;0;0;0
206;OAtrybutyGrupy;0;0;0;0;0
207;OAtrybutyGrupyLinki;0;0;0;0;0
208;OAtrybutyHist;0;0;0;0;0
209;OAtrybutyKlasy;0;0;0;0;0
210;OAtrybutyKlasyElem;0;0;0;0;0
211;Obroty;21592;5144;2336;1712;1096
212;OfertyDok;0;0;0;0;0
213;OfertyElem;0;0;0;0;0
214;OfertyElemCeny;0;0;0;0;0
215;OfertyKnt;0;0;0;0;0
216;OkresoweElem;6;48;8;40;0
217;OkresoweHarmonogram;0;0;0;0;0
218;OkresoweNag;2;64;8;56;0
219;OkresyObrach;6;48;8;40;0
220;OpisKadry;0;0;0;0;0
221;OpisPlace;0;0;0;0;0
222;Parametry;0;0;0;0;0
223;PKZP;0;0;0;0;0
224;PlikiJPK;0;0;0;0;0
225;PltPromocje;0;0;0;0;0
226;PodArkuszInwenElem;0;0;0;0;0
227;PodArkuszInwenNag;0;0;0;0;0
228;PodmiotyView;6137;3496;2720;696;80
229;PodtypWyplata;0;0;0;0;0
230;Poreczyciele;0;0;0;0;0
231;PozDeklPIT;73;32;16;16;0
232;PozDeklZUS;53;32;16;16;0
233;PracaSzczeg;66;40;24;16;0
234;PracEtaty;35;312;56;256;0
235;Pracidx;40;96;8;88;0
236;PracKartyRcp;0;0;0;0;0
237;PracKod;20;48;8;40;0
238;PracLimit;37;80;16;64;0
239;PracNieobec;518;208;80;80;48
240;PracPitKwoty;180;32;8;24;0
241;PracPitMies;77;32;8;24;0
242;PracPlanDni;0;0;0;0;0
243;PracPlanDniGodz;0;0;0;0;0
244;PracPracaDni;0;0;0;0;0
245;PracPracaDniGodz;0;0;0;0;0
246;PracSchorzenia;0;0;0;0;0
247;PracZestaw;0;0;0;0;0
248;PracZestawElem;0;0;0;0;0
249;PrmHistoria;0;0;0;0;0
250;PrmKarty;0;0;0;0;0
251;ProdElem;0;0;0;0;0
252;ProdReceptury;0;0;0;0;0
253;ProdSkladniki;0;0;0;0;0
254;Producenci;0;0;0;0;0
255;ProducenciJezykObcy;0;0;0;0;0
256;Progi;0;0;0;0;0
257;PrzeszacWalutElem;0;0;0;0;0
258;PrzeszacWalutNag;0;0;0;0;0
259;PrzWyrej;75;40;24;16;0
260;Rabaty;940;160;48;96;16
261;RegulyRcp;12;16;8;8;0
262;RemanentElem;0;0;0;0;0
263;RemanentNag;0;0;0;0;0
264;Rodzina;1;32;8;24;0
265;RptKolejka2;0;0;0;0;0
266;RptObrazy2;0;0;0;0;0
267;RptTemp2;0;16;8;8;0
268;RptZaznaczenia2;0;0;0;0;0
269;Ryczalt;0;0;0;0;0
270;SchematPlatnosci;216;128;32;96;0
271;SchematWindykacjiEtapy;3;16;8;8;0
272;SchematyOpakElem;0;0;0;0;0
273;SchematyOpakNag;0;0;0;0;0
274;SchematyWindykacji;1;32;8;24;0
275;SchKsiElem;245;96;56;32;8
276;SchKsiNag;47;48;16;32;0
277;SchKsiRelac;2;48;8;40;0
278;SenditAdresyNadawcze;2;16;8;8;0
279;SenditPaczki;17;16;8;8;0
280;SenditTypyPaczek;1;16;8;8;0
281;SenditZleceniePrzesylki;12;48;16;32;0
282;SerieKalNag;1;48;8;40;0
283;SerieKalPoz;7;32;8;24;0
284;SerieKalPozGodz;7;48;8;40;0
285;SrsCyklElem;0;0;0;0;0
286;SrsCyklNag;0;0;0;0;0
287;SrsCzesci;0;0;0;0;0
288;SrsCzynnosci;0;0;0;0;0
289;SrsNotatki;0;0;0;0;0
290;SrsRodzajeU;0;0;0;0;0
291;SrsUrzadzenia;0;0;0;0;0
292;SrsZlecenia;0;0;0;0;0
293;StatElem;0;0;0;0;0
294;StatNag;0;0;0;0;0
295;SystemCDN;9;16;8;8;0
296;SzDekElem;0;0;0;0;0
297;SzDekNag;0;0;0;0;0
298;Towary;13358;19032;9360;8104;1568
299;TraElem;1058563;896464;687976;207744;744
300;TraElemAtr;188994;15000;6992;6168;1840
301;TraElemKorZbiorcza;0;0;0;0;0
302;TraElemKwotyCelne;0;0;0;0;0
303;TraElemRelacje;6382;736;288;336;112
304;TraFakZaliczkowe;0;0;0;0;0
305;TraNag;98970;160624;97688;61408;1528
306;TraNagRelacje;96284;6944;2584;4264;96
307;TraSElem;542991;101560;43024;58232;304
308;TraSElemCechy;0;0;0;0;0
309;TraSElemDost;0;0;0;0;0
310;TraVat;149870;12368;10520;1688;160
311;TrSBlad;0;0;0;0;0
312;TrSBladOper;0;0;0;0;0
313;Trwale;46;176;16;160;0
314;TrwaleAIElem;0;0;0;0;0
315;TrwaleAINag;0;0;0;0;0
316;TrwaleAtrybuty;0;0;0;0;0
317;TrwaleCzesci;0;0;0;0;0
318;TrwaleHist;577;424;152;232;40
319;TrwaleHistPowiazania;2;32;8;24;0
320;TrwaleMaska;0;0;0;0;0
321;TrwaleMiejscaUzytkowania;0;0;0;0;0
322;TrwaleOsobyOdpowiedzialne;2;32;8;24;0
323;TrwalePowiazania;3;32;8;24;0
324;TrwaleZawieszeniaAmo;0;0;0;0;0
325;TwrAtrybuty;3465;600;232;344;24
326;TwrCeny;54842;7864;4672;2936;256
327;TwrDost;0;0;0;0;0
328;TwrEan;13372;1560;624;800;136
329;TwrESklep;0;0;0;0;0
330;TwrGrupy;17500;7856;2464;5032;360
331;TwrGrupyAtrybuty;0;0;0;0;0
332;TwrGrupyJezykObcy;0;0;0;0;0
333;TwrIlosci;820937;136200;61384;74624;192
334;TwrJezykObcy;0;0;0;0;0
335;TwrJm;0;0;0;0;0
336;TwrJMZ;5744;600;312;192;96
337;TwrKntAtrybuty;1;48;8;40;0
338;TwrLinki;39547;1768;1680;16;72
339;TwrPromocje;0;0;0;0;0
340;TwrPrzeceny;136902;19272;6104;9200;3968
341;TwrTSModEsklep;0;0;0;0;0
342;TwrZasoby;4671;808;328;368;112
343;TypNieobec;56;112;8;104;0
344;TypNieobecKartaPracy;20;16;8;8;0
345;TypWyplata;262;288;136;96;56
346;TypWyplataGrupa;0;0;0;0;0
347;TypWyplataGrupaSkladniki;0;0;0;0;0
348;TypWyplataStaz;0;0;0;0;0
349;TytUbezp;210;136;72;16;48
350;TytUmowy;0;0;0;0;0
351;Umowy;0;0;0;0;0
352;UmowyZestCzasu;0;0;0;0;0
353;Uprawnienia;1;48;8;40;0
354;Urzedy;491;352;168;160;24
355;UrzRachunki;1732;416;136;224;56
356;VatNag;37288;45272;27736;15912;1624
357;VatTab;60525;12184;9920;2008;256
358;VatTab7;56580;5400;3344;1696;360
359;VatZD;0;0;0;0;0
360;WdrKopieElektroniczne;2;296;208;88;0
361;WindykacjaLog;0;0;0;0;0
362;WkrZaznaczenia2;0;0;0;0;0
363;WypElementy;1947;1096;896;200;0
364;WypElementyPodstawa;270;96;48;48;0
365;WypElementyPodstawaElem;814;240;136;48;56
366;Wyplaty;1483;776;360;352;64
367;WyplatyElem;0;0;0;0;0
368;WyplatyNag;0;0;0;0;0
369;Wyposazenie;1;144;8;136;0
370;WyposazenieAIElem;0;0;0;0;0
371;WyposazenieAINag;0;0;0;0;0
372;WyposazenieMiejscaUzytkowania;0;0;0;0;0
373;WyposazenieOsobyOdpowiedzialne;0;0;0;0;0
374;WyposazeniePowiazania;0;0;0;0;0
375;WypSkladniki;2209;1064;664;360;40
376;Wzorce;0;0;0;0;0
377;WzorWartosci;0;0;0;0;0
378;ZajeciaWynagr;0;0;0;0;0
379;Zaklady;0;0;0;0;0
380;Zaliczki;0;0;0;0;0
381;Zamienniki;0;0;0;0;0
382;Zaniechania;0;0;0;0;0
383;ZaniechaniaRoz;0;0;0;0;0
384;ZapisyKPR;0;0;0;0;0
385;ZestawyRegul;2;48;8;40;0
386;ZestawyRegulElem;12;48;8;40;0
387;ZestawyTwr;0;0;0;0;0
388;ZestawyTwrSkladniki;0;0;0;0;0
389;ZestKsiKol;20;32;8;24;0
390;ZestKsiNag;15;48;8;40;0
391;ZestKsiPoz;592;192;88;64;40
392;ZestKsiWyniki;36;64;8;56;0
393;ZstPromocje;0;0;0;0;0


--
Pozdrawiam.

Adam

[Stokrotka]

Jak widać na początku ktoś nad tym panował,
a potem się coś rozjechało.

[Adam]

W dniu 2017-06-19 o 17:03, Stokrotka pisze:

>>
>> Zrzut bazy roboczej:
>>
>> Nr_kol;name;rows;reserved;data;index_size;unsed
>> 1;AkordDefinicja;0;0;0;0;0
>> 2;AkordProgres;0;0;0;0;0
>> 3;Akordy;0;0;0;0;0
>> 4;AkordyHist;0;0;0;0;0
>> 5;AkordyHistWartosci;0;0;0;0;0

>> (...)

>>
> Jak widać na początku ktoś nad tym panował,
> a potem się coś rozjechało.
>

A w którym miejscu widzisz rozjazd?
Funkcjonalnie jest raczej OK.

Faktem jest, że program cały czas rośnie. Co jakiś czas dochodzi nowa
funkcjonalność.
W dużym skrócie program rósł:

- Kasa/Bank i KP
- Faktury i Magazyn
- KH
- PiK
- CRM
- Serwis

Poza tym były swego czasu zmiany wymagające też nowych tabel i relacji.
Przykładowo: najpierw na kartotece towaru było pole EAN.
Później trzeba było dodać wiele EAN-ów do jednej karty towarowej - więc
powstała nowa tabela z relacją 1:Many w rodzaju [TowarID] [kody EAN]

W ciągu roku jest wydawanych kilka nowych wersji.
W wielu z nich są nowe funkcjonalności oraz poprawiane zgłoszone błędy.
Oczywiście część funkcjonalności (nie lubię tego określenia) jest
wymuszona przepisami - np. faktury wewnętrzne, księgowanie paliwa
50/50%, nieszczęsne JPK itd. Ale część to zgłoszenia klientów lub dealerów.

Oczywistym jest, że pisząc system na nowo można nieco inaczej ustawić
tabele czy relacje, można pewnie trochę uprościć. Ciężko "uczesać" żywy
system, zwłaszcza, że zasada jest, aby struktura rosła, ale raczej się
nie zmieniała.
Zasada ta wynika z tego, że dealerzy piszą dodatki, szablony wydruków,
własne moduły. Klienci "kumaci" także. Nie może raczej być tak, że coś
się zmieni i nagle stare wydruki przestają działać.


--
Pozdrawiam.

Adam

[Andrzej Stróżyński]

W dniu 2017-06-19 o 19:55, Adam pisze:
[...]

> Zasada ta wynika z tego, że dealerzy piszą dodatki, szablony wydruków,
> własne moduły. Klienci "kumaci" także. Nie może raczej być tak, że coś
> się zmieni i nagle stare wydruki przestają działać.

Po aktualizacji wersji "obce" raporty działają bez problemu w Optimie?
Pytam, bo taka Symfonia wywala obce raporty przy każdej aktualizacji
(przynajmniej KDP)


--
pozdrawiam
AS

[Adam]

W dniu 2017-06-20 o 07:24, Andrzej Stróżyński pisze:

> W dniu 2017-06-19 o 19:55, Adam pisze:
> [...]

>> Zasada ta wynika z tego, że dealerzy piszą dodatki, szablony wydruków,rystal Reportd

>> własne moduły. Klienci "kumaci" także. Nie może raczej być tak, że coś
>> się zmieni i nagle stare wydruki przestają działać.
>
> Po aktualizacji wersji "obce" raporty działają bez problemu w Optimie?
> Pytam, bo taka Symfonia wywala obce raporty przy każdej aktualizacji
> (przynajmniej KDP)
>
>

Działają.
Pod jednym warunkiem: Starsze wersje Optimy (numeracja jedno- i
dwu-cyfrowa, zakończona na wersji 17.x) były pisane w Clarionie. Wydruki
ich częściowo też były pisane w Clarionie (oprócz tego w Crystalu).
Około roku 2010 Optima została przepisana w Visualach i innych
dotNetach, siłą rzeczy część wydruków (w Clarionie) musiała zostać
przepisana w Crystal Reports.
Od tej pory są już tylko dwa rodzaje wydruków:
1/ Crystal
2/ GenRap

GenRap jest bardzo prosty, sporo wydruków może sobie stworzyć bądź
zmodyfikować użytkownik końcowy - działa to na zasadzie budowania
raportów z klocków.

Crystala nie będę omawiał - raczej jest znany.

Z jednej strony trochę łatwiej operuje się wyglądem w porównaniu np. do
raportów dotNET, jak w systemie Enova/Soneta, z drugiej czasem w
dotNecie łatwiej coś uzyskać.
Ale zawsze w Crystalu można użyć SQL-a, jak coś trudno zrobić (lub nie
da się) w czystej składni Crystala.

A dzięki kompatybilności systemu w dół (dopisywanie nowych kolumn,
"poszerzanie" istniejących, nowe tabele) - raporty z przed kilku lat
działają.
Jeszcze jedna zaleta: dzięki ODBC nie potrzeba raportów pisać pod
konkretną bazę. Raport odwołuje się tylko do nazwy tabeli, więc raport
stworzony na jednaj bazie będzie działał w zasadzie na dowolnej innej.

Aczkolwiek mam raporty pisane pod OLE DB wywoływane z zewnętrznych
aplikacji - wtedy trzeba wołać je przez instancję i bazę.

Natomiast Symfonia czy jakieś tam Inserty mają oprócz tego, co napisałeś
jeszcze sporo innych problemów. Najpoważniejsze: brak spójności systemu.
Bywa u klientów, że towar zostanie pobrany na dokument, a nie zejdzie ze
stanu magazynowego.

W przypadku Optimy, CDN-XL czy Enovy - o spójność baz danych dbają
triggery. Albo cała transakcja (w znaczeniu ścieżki logicznej zdarzeń)
przejdzie, albo cała zostanie wycofana. Nawet, gdybym grzebał
bezpośrednio w tabelach z danymi, transakcje są spójne, albo trigger nie
pozwoli zmienić pola, gdy pozostałe warunki nie są zachowane.
Jest to bardzo dobre dla serwisantów.

Przykład z życia: pad prądu w środku wpisywania dokumentu. W różnych
systemach następuje rozjazd pomiędzy stanami handlowymi a stanami
magazynowymi, natomiast w Optimie/XL/Enovie praktycznie nigdy. Znam
tylko kilka zgłoszonych przypadków przez blisko 20 lat.


--
Pozdrawiam.

Adam

[Stokrotka]

> Natomiast Symfonia czy jakieś tam Inserty mają oprócz tego, co napisałeś
> jeszcze sporo innych problemów. Najpoważniejsze: brak spójności systemu.

Nie wiem co Symfonia ma w środku,
ale byłam na kursie z urzędu pracy, gdzie uczono ksiegowości na Symfoni.
Podobał mi się ten sytem z punktu widzenia użytkownika,
nie pisząc już o tym, że tani w zestawieniu z okszyczanymi dużymi systemami,
z kturymi są tylko kłopoty, bo to ani uniwersalne, ani nie pisane od
konkretnego użytkownika (użytkownik w sensie zakład produkcyjny).

[Adam]

W dniu 2017-06-20 o 18:53, Stokrotka pisze:

>
>> Natomiast Symfonia czy jakieś tam Inserty mają oprócz tego, co napisałeś
>> jeszcze sporo innych problemów. Najpoważniejsze: brak spójności systemu.
>
> Nie wiem co Symfonia ma w środku,
> ale byłam na kursie z urzędu pracy, gdzie uczono ksiegowości na Symfoni.
> Podobał mi się ten sytem z punktu widzenia użytkownika,
> nie pisząc już o tym, że tani w zestawieniu z okszyczanymi dużymi
> systemami, z kturymi są tylko kłopoty, bo to ani uniwersalne, ani nie
> pisane od konkretnego użytkownika (użytkownik w sensie zakład produkcyjny).
>

Symfonia siedzi nie na SQL, lecz na Pervasive. Czyli taki plikowy SQL,
bardziej podobny jednak do dBase niż do "normalnych" SQL-i.
Od strony technicznej: naprawa bazy żmudna, baza łatwa do przewrócenia.

Od strony operatora: program bardzo siermiężny. Nie ma automatów. Są
tylko proste szablony księgowań.

Przykładowo w innych systemach (Optima, CDN-XL, Enova) można stworzyć
wzorce, które jedną fakturę:

1/ paliwo osobowy
2/ paliwo "z kratką"
3/ papier xero
4/ kawa
5/ drukarka (środek trwały)
6/ serniczek ;)

rozksięgują odpowiednio - [1] - bez VAT; [2] - odliczanie 50% VAT; [3] -
można puścić w kręgi kosztów, równolegle na konta 4. i 5.; [5] - jako
ST, z osobną amortyzacją bilansową i kosztową, i/lub z amortyzacją
sezonową; [6] - omijamy, nie podlega księgowaniu

To dość prosty przykład.

Nie wiem, jak w Symfonii wygląda obsługa kont bankowych.
W innych systemach może następować automatyczne rozliczanie płatności po
imporcie przelewów z banku, lub wysyłka wprost z programu przelewów do
realizacji.

Takich "licytacji" można tworzyć jeszcze wiele.


--
Pozdrawiam.

Adam

[Adam]

W dniu 2017-06-21 o 11:42, Adam pisze:

Jeszcze jeden przykład:
Moduł "Biuro Rachunkowe" dla Optimy umożliwia pracę na wielu podmiotach
(ważne dla biur rachunkowych mających kilkudziesięciu czy więcej
klientów) i robienie globalnie dla wszystkich lub wskazanych m.in.
wysyłanie na serwery Ministerstwa plików JPK, wysyłanie VAT7, wydruki
deklaracji, naliczanie wypłat właścicieli, tworzenie różnych raportów.
Nie potrzeba wchodzić do każdej z firm z osobna.
Jest to bardzo duże ułatwienie.

A ceny systemów są podobne.

Jednak ważniejszy od ceny jest support.
Ważne też jest, że Optima, Enova czy XL są systemami otwartymi i można
zrobić czy dorobić dużo więcej dodatków, wydruków, raportów czy osobnych
modułów (np. import danych z innych systemów) niż w Symfonii.


--
Pozdrawiam.

Adam

[Stokrotka]

>>> Natomiast Symfonia czy jakieś tam Inserty mają oprócz tego, co napisałeś
>>> jeszcze sporo innych problemów. Najpoważniejsze: brak spójności systemu.
>>
>> Nie wiem co Symfonia ma w środku,
>> ale byłam na kursie z urzędu pracy, gdzie uczono ksiegowości na Symfoni.
>> Podobał mi się ten sytem z punktu widzenia użytkownika,
>> nie pisząc już o tym, że tani w zestawieniu z okszyczanymi dużymi
>> systemami, z kturymi są tylko kłopoty, bo to ani uniwersalne, ani nie
>> pisane od konkretnego użytkownika (użytkownik w sensie zakład
>> produkcyjny).
>>
>
>
> Symfonia siedzi nie na SQL, lecz na Pervasive. Czyli taki plikowy SQL,
> bardziej podobny jednak do dBase niż do "normalnych" SQL-i.
> Od strony technicznej: naprawa bazy żmudna, baza łatwa do przewrócenia.
>
> Od strony operatora: program bardzo siermiężny. Nie ma automatów. Są
> tylko proste szablony księgowań.

Są wystarczające ułatwienia dla użytkownika.
Nie jest to system dla dużej firmy, wymagającej pracy "hurtowej".

> Nie wiem, jak w Symfonii wygląda obsługa kont bankowych.
> W innych systemach może następować automatyczne rozliczanie płatności po
> imporcie przelewów z banku, lub wysyłka wprost z programu przelewów do
> realizacji.

Nawet jeśli tego nie ma, a pewnie nie ma, to programy "z drugiej strony"
umozliwiają to, wiem bo wdarażałam taki program ,
włacznie z odpowiednim imortem danyh.

--
(tekst bez: ó, ch, rz i -ii)
Ortografia to NAWYK, często nielogiczny, ktury ludzie ociężali umysłowo,
nażucają bezmyślnie następnym pokoleniom. ( ortografia . pev . pl )

>

[Andrzej Stróżyński]

W dniu 2017-06-21 o 11:42, Adam pisze:

Nie pastw się nad Symfonią, skoro jej nie znasz.
Jest wersja SQL
Z funkcjonalnością nie jest pewnie tak źle, skoro kilku znajomych
księgowych nie narzeka a niektórzy pracują też na innych programach,
więc mają porównanie.
Złe doświadczenie mam tylko z jednym dorabianym raportem w KDP (wersja
na Pervasive) który, bez żadnej zmiany w kodzie, należy na nowo doczytać
po "dużej" aktualizacji wersji - z reguły raz do roku.



--
pozdrawiam
AS

[wloochacz]

W dniu 2017-06-20 o 15:20, Adam pisze:
/ciach/

> Natomiast Symfonia czy jakieś tam Inserty mają oprócz tego, co napisałeś
> jeszcze sporo innych problemów. Najpoważniejsze: brak spójności systemu.
> Bywa u klientów, że towar zostanie pobrany na dokument, a nie zejdzie ze
> stanu magazynowego.
>
> W przypadku Optimy, CDN-XL czy Enovy - o spójność baz danych dbają
> triggery.

No popatrz, mam bazę Enovy (stan na rok 2015, ale nie sadzę aby były aż
tak poważne zmiany) pod ręką i nie ma w niej ani jednego triggera.
Tak wszystko co piszesz poniżej w kontekście Enovy, nie jest prawdziwe...

> Albo cała transakcja (w znaczeniu ścieżki logicznej zdarzeń)
> przejdzie, albo cała zostanie wycofana. Nawet, gdybym grzebał
> bezpośrednio w tabelach z danymi, transakcje są spójne, albo trigger nie
> pozwoli zmienić pola, gdy pozostałe warunki nie są zachowane.
> Jest to bardzo dobre dla serwisantów.

Dobre dla serwisantów?
A co to za serwisant, który grzebie w bazie nie wiedząc jakie będę tego
konsekwencje dla całego systemu?

Taki "serwisant" niech lepiej trzyma lepkie łapki blisko siebie...

> Przykład z życia: pad prądu w środku wpisywania dokumentu. W różnych
> systemach następuje rozjazd pomiędzy stanami handlowymi a stanami
> magazynowymi, natomiast w Optimie/XL/Enovie praktycznie nigdy. Znam
> tylko kilka zgłoszonych przypadków przez blisko 20 lat.

Zatem mylisz transakcję bazodanową (która została wycofana, po padł
prąd), ze spójnością danych logicznych zapewnioną przez triggery, po
stronie bazy danych.
I tak przez blisko 20 lat :P

--
wloochacz

[Adam]

W dniu 2017-07-05 o 13:30, wloochacz pisze:

> W dniu 2017-06-20 o 15:20, Adam pisze:
> /ciach/
>
>> Natomiast Symfonia czy jakieś tam Inserty mają oprócz tego, co
>> napisałeś jeszcze sporo innych problemów. Najpoważniejsze: brak
>> spójności systemu. Bywa u klientów, że towar zostanie pobrany na
>> dokument, a nie zejdzie ze stanu magazynowego.
>>
>> W przypadku Optimy, CDN-XL czy Enovy - o spójność baz danych dbają
>> triggery.
> No popatrz, mam bazę Enovy (stan na rok 2015, ale nie sadzę aby były aż
> tak poważne zmiany) pod ręką i nie ma w niej ani jednego triggera.
> Tak wszystko co piszesz poniżej w kontekście Enovy, nie jest prawdziwe...

Aż zobaczyłem do jakiejś bazy:

name id xtype uid info status base_schema_ver replinfo parent_obj crdate
ftcatid schema_ver stats_schema_ver type userstat sysstat indexdel
refdate version deltrig instrig updtrig seltrig category cache
AdresyWWW_INTERFACEUPDATE 2151103 TR 1 0 0 0 0 85575343 2016-08-10
15:24:11.603 0 0 0 TR 0 8 0 2016-08-10 15:24:11.603 0 85575343 0 0 0 0 0
Zaplaty_INTERFACEDELETE 7723130 TR 1 0 0 0 0 1636916903 2016-08-10
15:24:13.190 0 0 0 TR 0 8 0 2016-08-10 15:24:13.190 0 1636916903 0 0 0 0 0
Nieobecnosci_INTERFACEDELETE 11199140 TR 1 0 0 0 0 733245667 2016-08-10
15:24:12.517 0 0 0 TR 0 8 0 2016-08-10 15:24:12.517 0 733245667 0 0 0 0 0
tr_bi_pik_UmowaHistorie 13959126 TR 1 0 0 0 0 1963870063 2016-08-10
15:24:01.140 0 0 0 TR 0 8 0 2016-08-10 15:24:01.140 0 1963870063 0 0 0 0 0
DefDokumentow_INTERFACEDELETE 14675150 TR 1 0 0 0 0 690101499 2016-08-10
15:24:11.947 0 0 0 TR 0 8 0 2016-08-10 15:24:11.947 0 690101499 0 0 0 0 0
Attachments_INTERFACEUPDATE 18151160 TR 1 0 0 0 0 533576939 2016-08-10
15:24:11.607 0 0 0 TR 0 8 0 2016-08-10 15:24:11.607 0 533576939 0 0 0 0 0
ZasInnyPlatnik_INTERFACEDELETE 23723187 TR 1 0 0 0 0 1700917131
2016-08-10 15:24:13.193 0 0 0 TR 0 8 0 2016-08-10 15:24:13.193 0
1700917131 0 0 0 0 0
OcenyArkusze_INTERFACEDELETE 27199197 TR 1 0 0 0 0 1181247263 2016-08-10
15:24:12.520 0 0 0 TR 0 8 0 2016-08-10 15:24:12.520 0 1181247263 0 0 0 0 0
tr_bi_pik_ZajKomornicze 29959183 TR 1 0 0 0 0 1060914851 2016-08-10
15:24:01.147 0 0 0 TR 0 8 0 2016-08-10 15:24:01.147 0 1060914851 0 0 0 0 0
DefElementow_INTERFACEDELETE 30675207 TR 1 0 0 0 0 754101727 2016-08-10
15:24:11.953 0 0 0 TR 0 8 0 2016-08-10 15:24:11.953 0 754101727 0 0 0 0 0
BasicDocs_INTERFACEUPDATE 34151217 TR 1 0 0 0 0 853578079 2016-08-10
15:24:11.607 0 0 0 TR 0 8 0 2016-08-10 15:24:11.607 0 853578079 0 0 0 0 0
ZbiegiPracyIRodz_INTERFACEDELETE 39723244 TR 1 0 0 0 0 1956918043
2016-08-10 15:24:13.197 0 0 0 TR 0 8 0 2016-08-10 15:24:13.197 0
1956918043 0 0 0 0 0
OcenyPracownikow_INTERFACEDELETE 43199254 TR 1 0 0 0 0 1501248403
2016-08-10 15:24:12.523 0 0 0 TR 0 8 0 2016-08-10 15:24:12.523 0
1501248403 0 0 0 0 0
tr_bi_pik_ZajKomorniczeHis 45959240 TR 1 0 0 0 0 1124915079 2016-08-10
15:24:01.153 0 0 0 TR 0 8 0 2016-08-10 15:24:01.153 0 1124915079 0 0 0 0 0
DefElementowOcen_INTERFACEDELETE 46675264 TR 1 0 0 0 0 818101955
2016-08-10 15:24:11.957 0 0 0 TR 0 8 0 2016-08-10 15:24:11.957 0
818101955 0 0 0 0 0
BudzetyProjektu_INTERFACEUPDATE 50151274 TR 1 0 0 0 0 1045578763
2016-08-10 15:24:11.610 0 0 0 TR 0 8 0 2016-08-10 15:24:11.610 0
1045578763 0 0 0 0 0
ZestawieniaKS_INTERFACEDELETE 55723301 TR 1 0 0 0 0 129435535 2016-08-10
15:24:13.200 0 0 0 TR 0 8 0 2016-08-10 15:24:13.200 0 129435535 0 0 0 0 0
PrzedmiotySzkol_Zakres_FK_RELATION 57103294 TR 1 0 0 0 0 1814297523
2016-08-10 15:24:11.157 0 0 0 TR 0 8 0 2016-08-10 15:24:11.157 0
1814297523 0 0 0 0 0
OcenyRealizacje_INTERFACEDELETE 59199311 TR 1 0 0 0 0 1565248631
2016-08-10 15:24:12.527 0 0 0 TR 0 8 0 2016-08-10 15:24:12.527 0
1565248631 0 0 0 0 0
DefElemOcenPrac_INTERFACEDELETE 62675321 TR 1 0 0 0 0 882102183
2016-08-10 15:24:11.960 0 0 0 TR 0 8 0 2016-08-10 15:24:11.960 0
882102183 0 0 0 0 0
DaneKnt_INTERFACEUPDATE 66151331 TR 1 0 0 0 0 1877581727 2016-08-10
15:24:11.610 0 0 0 TR 0 8 0 2016-08-10 15:24:11.610 0 1877581727 0 0 0 0 0

itd - 490 rekordów.

Optimka ma 272, CDN-XL ma 852.
Zresztą do XL masz dokumentację, podsyłałem Ci kiedyś.

>
>> Albo cała transakcja (w znaczeniu ścieżki logicznej zdarzeń)
>> przejdzie, albo cała zostanie wycofana. Nawet, gdybym grzebał
>> bezpośrednio w tabelach z danymi, transakcje są spójne, albo trigger
>> nie pozwoli zmienić pola, gdy pozostałe warunki nie są zachowane.
>> Jest to bardzo dobre dla serwisantów.
> Dobre dla serwisantów?
> A co to za serwisant, który grzebie w bazie nie wiedząc jakie będę tego
> konsekwencje dla całego systemu?
>
> Taki "serwisant" niech lepiej trzyma lepkie łapki blisko siebie...

E, tam, nie przesadzaj.

Przykładowy trigger dotyczący elementu transakcji (np. faktury) poniżej.

Myślisz, że bez triggera ktoś by to zapamiętał?


GO
/****** Object: Trigger [CDN].[TraElem_InsertUpdateDelete_Trigger]
Script Date: 07/05/2017 15:13:13 ******/
SET ANSI_NULLS ON
GO
SET QUOTED_IDENTIFIER ON
GO
ALTER TRIGGER [CDN].[TraElem_InsertUpdateDelete_Trigger]
ON [CDN].[TraElem]
FOR INSERT, UPDATE, DELETE
AS
IF (SELECT TOP 1 TrE_TypDokumentu FROM inserted where TrE_TypDokumentu =
301) = 301
BEGIN
DECLARE @EFakturaTrNId int
Declare dodane Cursor Local Fast_Forward For
Select TrE_TrNId
From inserted
Open Dodane
While 1=1
Begin
Fetch Next From Dodane InTo
@EfakturaTrNID
If @@Fetch_Status <> 0 Break
IF exists (SELECT * FROM CDN.TraNag WHERE TrN_TrNid = @EfakturaTrNId
AND TrN_DabID IS NOT NULL AND TrN_TypDokumentu = 301 and
TrN_EfakturaGUID IS NOT NULL)
AND Exists (SELECT tre_treid FROM inserted where tre_cenat = 0 and
tre_trnid = @EfakturaTrNId)
BEGIN
RaisError ('Nie można modyfikować e-faktury', 16,1)
RollBack Tran
Return
END
END
END
-- jesli zmienimy lppow na proformie to trzeba tez na wz do nich
nalezacych
IF exists (SELECT TrE_TypDokumentu FROM inserted where TrE_TypDokumentu
in (308,309,320) )
BEGIN
IF UPDATE( TrE_LpPow )
AND NOT UPDATE( TrE_TrEId )
AND NOT UPDATE( TrE_TrNId )
AND NOT UPDATE( TrE_ZwrId )
AND NOT UPDATE( TrE_TrEIdProd )
AND NOT UPDATE( TrE_TypDokumentu )
AND NOT UPDATE( TrE_Aktywny )
AND NOT UPDATE( TrE_DataDok )
AND NOT UPDATE( TrE_DataOpe )
AND NOT UPDATE( TrE_TwrId )
AND NOT UPDATE( TrE_Stawka )
AND NOT UPDATE( TrE_Flaga )
AND NOT UPDATE( TrE_Zrodlowa )
AND NOT UPDATE( TrE_TwCNumer )
AND NOT UPDATE( TrE_TypNB )
AND NOT UPDATE( TrE_Cena0 )
AND NOT UPDATE( TrE_Rabat )
AND NOT UPDATE( TrE_CenaW )
AND NOT UPDATE( TrE_CenaT )
AND NOT UPDATE( TrE_Ilosc )
AND NOT UPDATE( TrE_Jm )
AND NOT UPDATE( TrE_JmZ )
AND NOT UPDATE( TrE_JmCalkowite )
AND NOT UPDATE( TrE_JmPrzelicznikL )
AND NOT UPDATE( TrE_JmPrzelicznikM )
AND NOT UPDATE( TrE_IloscJM )
AND NOT UPDATE( TrE_WartoscNetto )
AND NOT UPDATE( TrE_WartoscBrutto )
AND NOT UPDATE( TrE_Cena0WD )
AND NOT UPDATE( TrE_CenaWWD )
AND NOT UPDATE( TrE_WartoscNettoWal )
AND NOT UPDATE( TrE_WartoscBruttoWal )
AND NOT UPDATE( TrE_KosztUslugi)
AND NOT UPDATE (TrE_Atr1_DeAId)
AND NOT UPDATE (TrE_Atr1_Kod)
AND NOT UPDATE (TrE_Atr1_Wartosc)
AND NOT UPDATE (TrE_Atr2_DeAId)
AND NOT UPDATE (TrE_Atr2_Kod)
AND NOT UPDATE (TrE_Atr2_Wartosc)
AND NOT UPDATE (TrE_Atr3_DeAId)
AND NOT UPDATE (TrE_Atr3_Kod)
AND NOT UPDATE (TrE_Atr3_Wartosc)
AND NOT UPDATE (TrE_Atr4_DeAId)
AND NOT UPDATE (TrE_Atr4_Kod)
AND NOT UPDATE (TrE_Atr4_Wartosc)
AND NOT UPDATE (TrE_Atr5_DeAId)
AND NOT UPDATE (TrE_Atr5_Kod)
AND NOT UPDATE (TrE_Atr5_Wartosc)
BEGIN
set nocount on
DECLARE
@TrE_TrEId1 INT,
@TrN_Rodzaj1 INT,
@TrE_TrNId1 INT,
@TrE_TypDokumentu1 INT,
@TrE_LpPow1 INT,
@TrE_TrEId2 INT,
@PFzRO int,
@TrE_TrEIdRO INT,
@TrE_LpPow2 INT,
@TrE_TrEIdWZ INT
DECLARE Dodawane CURSOR LOCAL FAST_FORWARD FOR
SELECT TrE_TrEId, TrE_TrNId, TrE_LpPow, TrE_TypDokumentu
FROM inserted
ORDER BY TrE_TrNId, TrE_Lp
OPEN Dodawane
WHILE 1=1
BEGIN
FETCH NEXT FROM Dodawane INTO @TrE_TrEId1, @TrE_TrNId1,
@TrE_LpPow1, @TrE_TypDokumentu1
IF @@FETCH_STATUS <> 0 BREAK
SELECT TOP 1
@TrN_Rodzaj1 = TrN_Rodzaj
FROM cdn.TraNag
JOIN cdn.TraElem ON TrN_TrNId = TrE_TrNId AND TrE_TrEId =
@TrE_TrEId1
IF (UPDATE (TrE_LpPow) and @TrE_TypDokumentu1 = 320)
begin
SELECT TOP 1 @TrE_TrEIdWZ = a.TrE_TrEId
FROM CDN.TraElem a
JOIN CDN.tranagrelacje on TrR_TrNID = a.TrE_TrNID AND
TrR_FaTyp =320 AND TrR_TrNTyp NOT IN (317,309,320)
JOIN CDN.traelem b on TrR_FaId = b.TrE_TrNID AND
a.TrE_Lppow = b.TrE_LpPow
JOIN CDN.tranag on TrR_TrNId = TrN_TrNID
WHERE b.TrE_TrEId = @TrE_TrEId1 AND TrN_Rodzaj not in
(302200,302202) AND a.TrE_TrEId not in (SELECT TeR_ChildId FROM
CDN.TraElemRelacje WHERE TeR_ParentId = @TrE_TrEId1)
AND a.TrE_TrEId not in (SELECT TeR_ParentId FROM
CDN.TraElemRelacje WHERE TeR_ChildId = @TrE_TrEId1)
ORDER BY TrR_TrRId DESC
INSERT INTO CDN.TraElemRelacje
(TeR_ParentTyp,TeR_ParentId,TeR_ChildTyp,TeR_ChildId,TeR_Flaga)
SELECT TOP 1
b.TrE_TypDokumentu,b.TrE_TrEId,a.TrE_TypDokumentu,a.TrE_TrEId,0
FROM CDN.TraElem a
JOIN CDN.tranagrelacje on TrR_TrNID = a.TrE_TrNID AND
TrR_FaTyp =320 AND TrR_TrNTyp NOT IN (317,309,320)
JOIN CDN.traelem b on TrR_FaId = b.TrE_TrNID AND
a.TrE_Lppow = b.TrE_LpPow
JOIN CDN.tranag on TrR_TrNId = TrN_TrNID
WHERE b.TrE_TrEId = @TrE_TrEId1 AND TrN_Rodzaj not in
(302200,302202) AND a.TrE_TrEId not in (SELECT TeR_ChildId FROM
CDN.TraElemRelacje WHERE TeR_ParentId = @TrE_TrEId1)
AND a.TrE_TrEId not in (SELECT TeR_ParentId FROM
CDN.TraElemRelacje WHERE TeR_ChildId = @TrE_TrEId1)
ORDER BY TrR_TrRId DESC
select @PFzRO = a.Trr_TrNId from cdn.tranagrelacje a
where a.TrR_FaId =@TrE_TrNId1 AND a.Trr_TrNTyp =308 AND
a.Trr_FaTyp =320
if @PFzRO > 0
begin
select @TrE_TrEIdRO = 0, @TrE_TrEId2 = 0
create table #RO (TrE_TrEIdRO int ,TrE_TrEIdFA int)
insert into #RO(TrE_TrEIdRO)
select TeR_ChildId from cdn.traelemrelacje where TeR_ParentId =
@TrE_TrEId1 and TeR_ParentTyp = 320 and TeR_ChildTyp = 308
insert into #RO(TrE_TrEIdRO)
select TeR_ParentId from cdn.traelemrelacje where TeR_ChildId =
@TrE_TrEId1 and TeR_ChildTyp = 320 and TeR_ParentTyp = 308
select top 1 @TrE_TrEId2 = TeR_ChildId from cdn.traelemrelacje where
TeR_ParentId = @TrE_TrEId1 and TeR_ParentTyp = 320 and TeR_ChildTyp in
(302,306)
and TeR_ChildId not in (SELECT TeR_ChildId FROM CDN.TraElemRelacje WHERE
TeR_ParentId in (select TrE_TrEIdRO from #RO)) order by ter_terid desc
if @TrE_TrEId2 = 0
select top 1 @TrE_TrEId2 = TeR_ParentId from cdn.traelemrelacje where
TeR_ChildId = @TrE_TrEId1 and TeR_ChildTyp = 320 and TeR_ParentTyp in
(302,306)
and TeR_ParentId not in (SELECT TeR_ChildId FROM CDN.TraElemRelacje
WHERE TeR_ParentId in (select TrE_TrEIdRO from #RO)) order by ter_terid desc
if @TrE_TrEId2 <> 0
begin
update #RO set TrE_TrEIdFA = @TrE_TrEId2
insert into CDN.TraElemRelacje
(TeR_ParentTyp,TeR_ParentId,TeR_ChildTyp,TeR_ChildId,TeR_Flaga)
select 308,TrE_TrEIdRO,TrE_TypDokumentu,TrE_TrEIdFA,0 from #RO join
cdn.traelem on TrE_TrEIdFA = TrE_TrEId--where TrE_TrEID = @TrE_TrEId2
--select 308,@TrE_TrEIdRO,TrE_TypDokumentu,@TrE_TrEId2,0 from
cdn.traelem where TrE_TrEID = @TrE_TrEId2
exec [CDN].[UstawRezerwacje] @TrE_TrEId2,0,0
end
drop table #RO
/*
select @TrE_LpPow2 = TrE_Lppow
FROM Cdn.TraElem
where TrE_TreId = @TrE_TrEId1
select @TrE_TrEIdRO = tre_treid from cdn.traelem where tre_trnid =
@PFzRO and tre_lppow = @TrE_LpPow2
SELECT TOP 1 @TrE_TrEId2 = a.TrE_TrEId
FROM CDN.TraElem a
JOIN CDN.tranagrelacje on TrR_TrNID = a.TrE_TrNID AND TrR_FaTyp IN
(308,309) AND TrR_TrNTyp NOT IN (317,309,308,320)
JOIN CDN.traelem b on TrR_FaId = b.TrE_TrNID AND a.TrE_Lppow =
@TrE_Lppow1
WHERE b.TrE_TrEId = @TrE_TrEIdRO AND a.TrE_TrEId not in (SELECT
TeR_ChildId FROM CDN.TraElemRelacje WHERE TeR_ParentId = @TrE_TrEIdRO)
ORDER BY TrR_TrRId DESC
INSERT INTO CDN.TraElemRelacje
(TeR_ParentTyp,TeR_ParentId,TeR_ChildTyp,TeR_ChildId,TeR_Flaga)
SELECT TOP 1
b.TrE_TypDokumentu,b.TrE_TrEId,a.TrE_TypDokumentu,a.TrE_TrEId,0
FROM CDN.TraElem a
JOIN CDN.tranagrelacje on TrR_TrNID = a.TrE_TrNID AND TrR_FaTyp IN
(308,309) AND TrR_TrNTyp NOT IN (317,309,308,320)
JOIN CDN.traelem b on TrR_FaId = b.TrE_TrNID AND a.TrE_Lppow =
@TrE_Lppow1
WHERE b.TrE_TrEId = @TrE_TrEIdRO AND a.TrE_TrEId not in (SELECT
TeR_ChildId FROM CDN.TraElemRelacje WHERE TeR_ParentId = @TrE_TrEIdRO)
ORDER BY TrR_TrRId DESC
exec [CDN].[UstawRezerwacje] @TrE_TrEId2,0,0
*/
end
end
/*IF (UPDATE (TrE_LpPow) and @TrN_Rodzaj1 = 320009)
BEGIN
UPDATE a SET a.TrE_LppowRel = d.TrE_Lppow
FROM Cdn.TraElem a
JOIN deleted d ON d.TrE_TreId = @TrE_TrEId1
where a.TrE_TreId = @TrE_TrEId1
END*/
IF (UPDATE (TrE_LpPow) and @TrN_Rodzaj1 in (320000,320009))
BEGIN
UPDATE a SET a.TrE_Lppow = d.TrE_Lppow
FROM Cdn.TraElem a
JOIN deleted d ON d.TrE_TreId = @TrE_TrEId1
where a.TrE_TreId = @TrE_TrEId1
--poprawa zgłoszenia 150109
UPDATE a SET a.TrE_LppowRel = a.TrE_Lppow ,a.TrE_Lppow =
@TrE_Lppow1 FROM Cdn.TraElem a
JOIN deleted d ON d.TrE_TreId = @TrE_TrEId1
join cdn.traelemrelacje on TeR_ChildId = a.tre_treid and
TeR_ParentId = @TrE_TrEId1 and TeR_ChildTyp = 306
join cdn.tranag WZ on a.tre_trnid = WZ.trn_trnid
join cdn.tranagrelacje on trr_faid = WZ.trn_trnid and TrR_TrNTyp = 302
join cdn.traelem b on b.tre_trnid = TrR_TrNId and b.tre_treid =
@TrE_TrEIdWZ
--poprawa zgłoszenia 154645
UPDATE a SET a.TrE_LppowRel = a.TrE_Lppow ,a.TrE_Lppow =
@TrE_Lppow1 FROM Cdn.TraElem a
where a.tre_zwrid in(
select a.tre_treid FROM Cdn.TraElem a
JOIN deleted d ON d.TrE_TreId = @TrE_TrEId1
join cdn.traelemrelacje on TeR_ChildId = a.tre_treid and
TeR_ParentId = @TrE_TrEId1 and TeR_ChildTyp = 306
join cdn.tranag WZ on a.tre_trnid = WZ.trn_trnid
join cdn.tranagrelacje on trr_faid = WZ.trn_trnid and TrR_TrNTyp = 302
join cdn.traelem b on b.tre_trnid = TrR_TrNId and b.tre_treid =
@TrE_TrEIdWZ)
--UPDATE a SET a.TrE_LppowRel = a.TrE_Lppow ,a.TrE_Lppow =
@TrE_Lppow1
--FROM Cdn.TraElem a
--JOIN deleted d ON d.TrE_TreId = @TrE_TrEId1 and
a.TrE_Lppow = d.TrE_Lppow and a.TrE_TwrId = d.TrE_TwrId
--JOIN CDN.TraNagRelacje ON d.TrE_TrnId = TrR_FaId
--WHERE TrR_TrNTyp = 306 AND a.TrE_TrnId = TrR_TrNId
END
IF (UPDATE (TrE_LpPow) and @TrE_TypDokumentu1 in (308,309))
BEGIN
SELECT TOP 1 @TrE_TrEId2 = a.TrE_TrEId
FROM CDN.TraElem a
JOIN CDN.tranagrelacje on TrR_TrNID = a.TrE_TrNID AND
TrR_FaTyp IN (308,309) AND TrR_TrNTyp NOT IN (317,309,308,320)
JOIN CDN.traelem b on TrR_FaId = b.TrE_TrNID AND
a.TrE_Lppow = b.TrE_LpPow
WHERE b.TrE_TrEId = @TrE_TrEId1 AND a.TrE_TrEId not in
(SELECT TeR_ChildId FROM CDN.TraElemRelacje WHERE TeR_ParentId =
@TrE_TrEId1)
ORDER BY TrR_TrRId DESC
INSERT INTO CDN.TraElemRelacje
(TeR_ParentTyp,TeR_ParentId,TeR_ChildTyp,TeR_ChildId,TeR_Flaga)
SELECT TOP 1
b.TrE_TypDokumentu,b.TrE_TrEId,a.TrE_TypDokumentu,a.TrE_TrEId,0
FROM CDN.TraElem a
JOIN CDN.tranagrelacje on TrR_TrNID = a.TrE_TrNID AND
TrR_FaTyp IN (308,309) AND TrR_TrNTyp NOT IN (317,309,308)
JOIN CDN.traelem b on TrR_FaId = b.TrE_TrNID AND
a.TrE_Lppow = b.TrE_LpPow
WHERE b.TrE_TrEId = @TrE_TrEId1 AND a.TrE_TrEId not in
(SELECT TeR_ChildId FROM CDN.TraElemRelacje WHERE TeR_ParentId =
@TrE_TrEId1)
AND a.TrE_TrEId not in (SELECT TeR_ParentId FROM
CDN.TraElemRelacje WHERE TeR_ChildId = @TrE_TrEId1) and b.TrE_LppowRel
is not null
ORDER BY TrR_TrRId DESC
UPDATE CDN.TraElem SET TrE_Lppow =
TrE_LppowRel,TrE_LppowRel = NULL WHERE TrE_TrEId = @TrE_TrEId1 and
TrE_LppowRel is not null
exec [CDN].[UstawRezerwacje] @TrE_TrEId2,0,0
END
END
CLOSE Dodawane
DEALLOCATE Dodawane
set nocount off
END
end
IF exists (SELECT TrE_TypDokumentu FROM inserted where TrE_TypDokumentu
= 311 ) or exists (SELECT TrE_TypDokumentu FROM deleted where
TrE_TypDokumentu = 311 )
BEGIN
set nocount on
DECLARE
@TrE_TrEIdAI INT
DECLARE Dodawane CURSOR LOCAL FAST_FORWARD FOR
SELECT TrE_TrEId
FROM inserted
ORDER BY TrE_TrNId, TrE_Lp
OPEN Dodawane
WHILE 1=1
BEGIN
FETCH NEXT FROM Dodawane INTO @TrE_TrEIdAI
IF @@FETCH_STATUS <> 0 BREAK
If (Update (TrE_Atr1_DeAId) Or Update (TrE_Atr1_Kod) Or Update
(TrE_Atr1_Wartosc) Or Update (TrE_Atr2_DeAId) Or Update (TrE_Atr2_Kod)
Or Update (TrE_Atr2_Wartosc)
Or Update (TrE_Atr3_DeAId) Or Update (TrE_Atr3_Kod) Or Update
(TrE_Atr3_Wartosc) Or Update (TrE_Atr4_DeAId) Or Update (TrE_Atr4_Kod)
Or Update (TrE_Atr4_Wartosc)
Or Update (TrE_Atr5_DeAId) Or Update (TrE_Atr5_Kod) Or Update
(TrE_Atr5_Wartosc))
BEGIN
DELETE FROM Cdn.TraElemAtr WHERE Tra_TrEId =@TrE_TrEIdAI
INSERT INTO Cdn.TraElemAtr SELECT
Tre_TreId,1,TrE_Atr1_DeAId,TrE_Atr1_Kod,TrE_Atr1_Wartosc FROM
Cdn.TraElem WHERE Tre_TreId=@TrE_TrEIdAI AND TrE_Atr1_DeAId>0 AND
TrE_Atr1_DeAId is not NULL
INSERT INTO Cdn.TraElemAtr SELECT
Tre_TreId,2,TrE_Atr2_DeAId,TrE_Atr2_Kod,TrE_Atr2_Wartosc FROM
Cdn.TraElem WHERE Tre_TreId=@TrE_TrEIdAI AND TrE_Atr2_DeAId>0 AND
TrE_Atr2_DeAId is not NULL
INSERT INTO Cdn.TraElemAtr SELECT
Tre_TreId,3,TrE_Atr3_DeAId,TrE_Atr3_Kod,TrE_Atr3_Wartosc FROM
Cdn.TraElem WHERE Tre_TreId=@TrE_TrEIdAI AND TrE_Atr3_DeAId>0 AND
TrE_Atr3_DeAId is not NULL
INSERT INTO Cdn.TraElemAtr SELECT
Tre_TreId,4,TrE_Atr4_DeAId,TrE_Atr4_Kod,TrE_Atr4_Wartosc FROM
Cdn.TraElem WHERE Tre_TreId=@TrE_TrEIdAI AND TrE_Atr4_DeAId>0 AND
TrE_Atr4_DeAId is not NULL
INSERT INTO Cdn.TraElemAtr SELECT
Tre_TreId,5,TrE_Atr5_DeAId,TrE_Atr5_Kod,TrE_Atr5_Wartosc FROM
Cdn.TraElem WHERE Tre_TreId=@TrE_TrEIdAI AND TrE_Atr5_DeAId>0 AND
TrE_Atr5_DeAId is not NULL
END
END
CLOSE Dodawane
DEALLOCATE Dodawane
set nocount off
return
end
-- uruchamiamy procedurę obsługi zasobów, jesli są podmieniane
jakiekolwiek pola za wyjatkiem TrE_LpPow
IF ( UPDATE( TrE_LpPow )
OR UPDATE( TrE_Lp )
OR UPDATE( TrE_PodmiotTyp )
OR UPDATE( TrE_PodId )
OR UPDATE( TrE_KatId )
OR UPDATE( TrE_TwrNazwa )
OR UPDATE( TrE_TwrEAN )
OR UPDATE( TrE_TwrNumerKat )
OR UPDATE( TrE_TwrKod )
OR UPDATE( TrE_TwrOpis )
OR UPDATE( TrE_KosztKGO )
OR UPDATE( TrE_TwrSWW )
OR UPDATE( TrE_Prog )
OR UPDATE( TrE_UpustTyp )
OR UPDATE( TrE_Upust )
OR UPDATE( TrE_UpustKnt )
OR UPDATE( TrE_UpustKntTyp )
OR UPDATE( TrE_Waluta )
OR UPDATE( TrE_KursNumer )
OR UPDATE( TrE_KursL )
OR UPDATE( TrE_KursM )
OR UPDATE( TrE_WartoscZakupuWylicz )
OR UPDATE (TrE_Atr1_DeAId)
OR UPDATE (TrE_Atr1_Kod)
OR UPDATE (TrE_Atr1_Wartosc)
OR UPDATE (TrE_Atr2_DeAId)
OR UPDATE (TrE_Atr2_Kod)
OR UPDATE (TrE_Atr2_Wartosc)
OR UPDATE (TrE_Atr3_DeAId)
OR UPDATE (TrE_Atr3_Kod)
OR UPDATE (TrE_Atr3_Wartosc)
OR UPDATE (TrE_Atr4_DeAId)
OR UPDATE (TrE_Atr4_Kod)
OR UPDATE (TrE_Atr4_Wartosc)
OR UPDATE (TrE_Atr5_DeAId)
OR UPDATE (TrE_Atr5_Kod)
OR UPDATE (TrE_Atr5_Wartosc)
OR UPDATE (TrE_WartoscTymczasowa)
OR UPDATE (TrE_ZTwID)
OR UPDATE (TrE_ZTwGlowny)
OR UPDATE (TrE_ZestawWiazanie)
OR UPDATE (TrE_zTwKod)
OR UPDATE (TrE_TwrTyp)
OR UPDATE (TrE_TwrKodDostawcy)
OR UPDATE (TrE_DoZwrotu)
)
AND NOT UPDATE( TrE_TrEId )
AND NOT UPDATE( TrE_TrNId )
AND NOT UPDATE( TrE_ZwrId )
AND NOT UPDATE( TrE_TrEIdProd )
-- AND NOT UPDATE( TrE_Lp )
AND NOT UPDATE( TrE_TypDokumentu )
AND NOT UPDATE( TrE_Aktywny )
AND NOT UPDATE( TrE_DataDok )
AND NOT UPDATE( TrE_DataOpe )
-- AND NOT UPDATE( TrE_PodmiotTyp )
-- AND NOT UPDATE( TrE_PodID )
-- AND NOT UPDATE( TrE_KatID )
AND NOT UPDATE( TrE_TwrId )
-- AND NOT UPDATE( TrE_TwrNazwa )
-- AND NOT UPDATE( TrE_TwrEAN )
-- AND NOT UPDATE( TrE_TwrNumerKat )
-- AND NOT UPDATE( TrE_TwrKod )
-- AND NOT UPDATE( TrE_TwrOpis )
-- AND NOT UPDATE( TrE_TwrSWW )
AND NOT UPDATE( TrE_Stawka )
AND NOT UPDATE( TrE_Flaga )
AND NOT UPDATE( TrE_Zrodlowa )
AND NOT UPDATE( TrE_TwCNumer )
AND NOT UPDATE( TrE_TypNB )
AND NOT UPDATE( TrE_Cena0 )
AND NOT UPDATE( TrE_Rabat )
AND NOT UPDATE( TrE_CenaW )
-- AND NOT UPDATE( TrE_Waluta )
-- AND NOT UPDATE( TrE_KursNumer )
-- AND NOT UPDATE( TrE_KursL )
-- AND NOT UPDATE( TrE_KursM )
AND NOT UPDATE( TrE_CenaT )
AND NOT UPDATE( TrE_Ilosc )
AND NOT UPDATE( TrE_Jm )
AND NOT UPDATE( TrE_JmZ )
AND NOT UPDATE( TrE_JmCalkowite )
AND NOT UPDATE( TrE_JmPrzelicznikL )
AND NOT UPDATE( TrE_JmPrzelicznikM )
AND NOT UPDATE( TrE_IloscJM )
AND NOT UPDATE( TrE_WartoscNetto )
AND NOT UPDATE( TrE_WartoscBrutto )
AND NOT UPDATE( TrE_Cena0WD )
AND NOT UPDATE( TrE_CenaWWD )
AND NOT UPDATE( TrE_WartoscNettoWal )
AND NOT UPDATE( TrE_WartoscBruttoWal )
AND NOT UPDATE( TrE_MagId )
-- AND NOT UPDATE( TrE_Prog )
-- AND NOT UPDATE( TrE_UpustTyp )
-- AND NOT UPDATE( TrE_Upust )
-- AND NOT UPDATE( TrE_UpustKnt )
-- AND NOT UPDATE( TrE_UpustKntTyp )
AND NOT UPDATE( TrE_KosztUslugi)
AND NOT UPDATE (TrE_WyborDostaw)
BEGIN
set nocount on
If (Update (TrE_Atr1_DeAId) Or Update (TrE_Atr1_Kod) Or Update
(TrE_Atr1_Wartosc) Or Update (TrE_Atr2_DeAId) Or Update (TrE_Atr2_Kod)
Or Update (TrE_Atr2_Wartosc)
Or Update (TrE_Atr3_DeAId) Or Update (TrE_Atr3_Kod) Or Update
(TrE_Atr3_Wartosc) Or Update (TrE_Atr4_DeAId) Or Update (TrE_Atr4_Kod)
Or Update (TrE_Atr4_Wartosc)
Or Update (TrE_Atr5_DeAId) Or Update (TrE_Atr5_Kod) Or Update
(TrE_Atr5_Wartosc))
begin
DECLARE
@TrE_TrEIdAtr INT
DECLARE Dodawane CURSOR LOCAL FAST_FORWARD FOR
SELECT TrE_TrEId
FROM inserted
ORDER BY TrE_TrNId, TrE_Lp
OPEN Dodawane
WHILE 1=1
BEGIN
FETCH NEXT FROM Dodawane INTO @TrE_TrEIdAtr
IF @@FETCH_STATUS <> 0 BREAK
If (Update (TrE_Atr1_DeAId) Or Update (TrE_Atr1_Kod) Or Update
(TrE_Atr1_Wartosc) Or Update (TrE_Atr2_DeAId) Or Update (TrE_Atr2_Kod)
Or Update (TrE_Atr2_Wartosc)
Or Update (TrE_Atr3_DeAId) Or Update (TrE_Atr3_Kod) Or Update
(TrE_Atr3_Wartosc) Or Update (TrE_Atr4_DeAId) Or Update (TrE_Atr4_Kod)
Or Update (TrE_Atr4_Wartosc)
Or Update (TrE_Atr5_DeAId) Or Update (TrE_Atr5_Kod) Or Update
(TrE_Atr5_Wartosc))
BEGIN
DELETE FROM Cdn.TraElemAtr WHERE Tra_TrEId =@TrE_TrEIdAtr
INSERT INTO Cdn.TraElemAtr SELECT
Tre_TreId,1,TrE_Atr1_DeAId,TrE_Atr1_Kod,TrE_Atr1_Wartosc FROM
Cdn.TraElem WHERE Tre_TreId=@TrE_TrEIdAtr AND TrE_Atr1_DeAId>0 AND
TrE_Atr1_DeAId is not NULL
INSERT INTO Cdn.TraElemAtr SELECT
Tre_TreId,2,TrE_Atr2_DeAId,TrE_Atr2_Kod,TrE_Atr2_Wartosc FROM
Cdn.TraElem WHERE Tre_TreId=@TrE_TrEIdAtr AND TrE_Atr2_DeAId>0 AND
TrE_Atr2_DeAId is not NULL
INSERT INTO Cdn.TraElemAtr SELECT
Tre_TreId,3,TrE_Atr3_DeAId,TrE_Atr3_Kod,TrE_Atr3_Wartosc FROM
Cdn.TraElem WHERE Tre_TreId=@TrE_TrEIdAtr AND TrE_Atr3_DeAId>0 AND
TrE_Atr3_DeAId is not NULL
INSERT INTO Cdn.TraElemAtr SELECT
Tre_TreId,4,TrE_Atr4_DeAId,TrE_Atr4_Kod,TrE_Atr4_Wartosc FROM
Cdn.TraElem WHERE Tre_TreId=@TrE_TrEIdAtr AND TrE_Atr4_DeAId>0 AND
TrE_Atr4_DeAId is not NULL
INSERT INTO Cdn.TraElemAtr SELECT
Tre_TreId,5,TrE_Atr5_DeAId,TrE_Atr5_Kod,TrE_Atr5_Wartosc FROM
Cdn.TraElem WHERE Tre_TreId=@TrE_TrEIdAtr AND TrE_Atr5_DeAId>0 AND
TrE_Atr5_DeAId is not NULL
END
END
CLOSE Dodawane
DEALLOCATE Dodawane
end
set nocount off
GOTO KOMUNIKAT
end
DECLARE
@MyIdentity INT, -- niezwykle ważne dla ProdElem
-- zmienne pomocnicze dla kursora
@TrE_TrEId INT,
@TrE_TrNId INT,
@TrE_ZwrId INT,
@TrE_Lp INT,
@TrE_LpPow INT,
@TrE_TypDokumentu SMALLINT,
@TrE_Aktywny SMALLINT,
@TrE_DataDok DATETIME,
@TrE_DataOpe DATETIME,
@TrE_TwrId INT,
@TrE_TwrKod NVarchar(40),
@TrE_TwrNazwa NVarchar(255),
@TrE_Stawka DECIMAL(5,2),
@TrE_CenaW DECIMAL(15,2),
@TrE_CenaWWD DECIMAL(15,2),
@TrE_CenaT DECIMAL(15,2),
@TrE_Waluta NVarchar(3),
@TrE_KursNumer INT,
@TrE_KursL DECIMAL(15,4),
@TrE_KursM DECIMAL(5,0),
@TrE_Ilosc DECIMAL(15,4),
@TrE_WartoscNetto DECIMAL(15,2),
@TrE_WartoscBrutto DECIMAL(15,2),
@TrE_WartoscZakupu DECIMAL(15,2),
@TrE_JMPrzelicznikL DECIMAL(15,2),
@TrE_JMPrzelicznikM DECIMAL( 7,0),
@TrE_IloscJM DECIMAL(15,4),
@TrE_PodmiotTyp INT,
@TrE_PodId INT,
@TrE_KosztUslugi DECIMAL(15,2),
@TrE_TypNB TINYINT,
@Tre_WyborDostaw TINYINT,
@TrE_IFA24Mag INT,
@Tre_MagId INT,
@TrE_KosztUslugiZDok DECIMAL(15,2),
-- zmienne z naglowka dla poprawnego zbudowania subelementu
@TrN_TrNId INT,
@TrN_FaId INT,
@TrN_ZwrId INT,
@TrN_Rodzaj INT,
@TrN_Bufor SMALLINT,
@TrN_MagZrdId INT,
@TrN_MagDocId INT,
@TrN_DataDok DATETIME,
@TrN_DataWys DATETIME,
@TrN_DataOpe DATETIME,
@TrN_TrSTyp SMALLINT,
@TrN_TypNB TINYINT,
@TrN_PodmiotTyp INT,
@TrN_PodId INT,
@TrN_Centrala TINYINT,
@TrN_Waluta NVarchar(3),
@TrN_KursNumer INT,
@TrN_KursL DECIMAL(15,4),
@TrN_KursM DECIMAL(5,0),
@WalutaSys NVarchar(3),
@TrN_DekId INT,
@TrN_NumerPelny NVarchar(31),
-- zmienne dla dokumentu pierwotnego
@TrN_TrNId_Old INT,
@TrN_TrNId_PAdoFA_Old INT,
@TrN_FaId_Old INT,
@TrE_TrEId_Old INT,
-- zmienne dla kreowanego subelementu
@TrS_TrSId INT,
@TrS_TrEId INT,
@TrS_TrSIdDost INT,
@TrS_ZwrId INT,
@TrS_TwrId INT,
@TrS_MagId INT,
@TrS_Rodzaj INT,
@TrS_Typ INT,
@TrS_Metoda INT,
@TrS_DataOpe DATETIME,
@TrS_Ilosc DECIMAL(15,4),
@TrS_Wartosc DECIMAL(15,2),
@TrS_Cena DECIMAL(15,2),
@TrS_Termin DATETIME,
-- zmienne pomocnicze dla metody
@QUAN INT,
@Metoda INT,
@ZawszeBraki INT,
@ZezwalajMimoRez INT,
@DataZamowienia INT,
-- zmienne pomocnicze symulacji marży
@Marza_Sym_Ostatnia INT,
@Marza_Sym_Srednia INT,
-- Pomocnicza dla kursora
@TrS_TrSId_K INT,
@TrS_TrEId_K INT,
-- zmienna dla aktualizacji ceny zakupu i marz
@TwC_TwCId INT,
@TwC_TwCNumer INT,
@TwC_Wartosc DECIMAL(15,2),
@TwC_Marza DECIMAL(15,2), -- potrzebna, zeby zbadać, czy
nie jest za duża
@TwC_MarzaWStu DECIMAL(15,2), -- potrzebna, zeby zbadać, czy
nie jest za duża
@TwC_Waluta NVarchar(3),
@TwC_Typ SMALLINT,
@Twr_Typ SMALLINT,
@Twr_KosztUslugiTyp SMALLINT,
@Twr_KosztUslugi DECIMAL(15,2),
@Twr_Stawka DECIMAL(5,2),
@Twr_KursL DECIMAL(15,4),
@Twr_KursM DECIMAL(5,0),
@Twr_KosztUslugiNew DECIMAL(15,2),
@Twr_KosztUslugiWalNew DECIMAL(15,2),
@Waluta NVarchar(3),
@KursNumer INT,
@KursL DECIMAL(15,4),
@KursM DECIMAL(5,0),
@CenaW_New DECIMAL(15,2),
-- aktualizacja ceny zakupu przy zapisie MM-OL
@Aktualizuj_CenaZ_MMOL TINYINT,
-- dla liczenia wzoru na marże cen sprzedaży, gdy aktualizacja jest
na "Nie"
@CenaZakupuNew DECIMAL(15,2),
@CenaZakupuNewPLN DECIMAL(15,2),
@CenaZakupuNewWal DECIMAL(15,2),
-- dla dostaw
@DostIloscRecordowReal int,
@DostIloscRecordow int,
@DostIloscRecordowDodanych int,
@DostTrS_Ilosc decimal(15,4),
@DostTrS_TrSId int,
@ResztaWartosc DECIMAL(15,2),
-- pomocnicze dla komunikatu
@Data_Dost DATETIME,
@Komunikat NVarchar(250)
SET NOCOUNT ON
-- ustawienie komunikatu
SET @Komunikat = ''
-- symbol waluty systemowej
SET @WalutaSys = ( SELECT SUBSTRING(Fir_Wartosc,1,3) FROM cdn.Firma
WHERE Fir_Numer = 3 )
-- elementy kasowane jesli wybordostawy = 2 to nie robimy nic
DECLARE @TrE TABLE ( TrEId INT )
INSERT INTO @TrE ( TrEId ) SELECT TrE_TrEId FROM deleted
IF EXISTS(SELECT TrS_WyborDostaw FROM cdn.TraSElem JOIN @TrE ON TrEId
= TrS_TrEId WHERE ISNULL(TrS_WyborDostaw,0) = 2)
RETURN
DELETE cdn.TraSElem FROM cdn.TraSElem JOIN @TrE ON TrEId = TrS_TrEId
-- WHERE TrS_TrEId IN ( SELECT TrE_TrEId FROM deleted ) -- = @TrE_TrEId
IF NOT EXISTS ( SELECT * FROM inserted ) AND EXISTS ( SELECT * FROM
deleted )
BEGIN
DECLARE
@TrE_TrEId3 INT,
@TrE_TypDok3 INT
DECLARE Dodawane CURSOR LOCAL FAST_FORWARD FOR
SELECT TrE_TrEId, TrE_TypDokumentu
FROM deleted
ORDER BY TrE_TrEId
OPEN Dodawane
WHILE 1=1
BEGIN
FETCH NEXT FROM Dodawane INTO @TrE_TrEId3, @TrE_TypDok3
IF @@FETCH_STATUS <> 0 BREAK
EXEC [CDN].[UstawRezerwacje] @TrE_TrEId3, 1,@TrE_TypDok3
DELETE CDN.TraElemRelacje WHERE TeR_ParentTyp=@TrE_TypDok3 and
TeR_ParentId=@TrE_TrEId3
DELETE CDN.TraElemRelacje WHERE TeR_ChildTyp=@TrE_TypDok3 and
TeR_ChildId=@TrE_TrEId3
END
CLOSE Dodawane
DEALLOCATE Dodawane
DELETE CDN.TraSElem WHERE TRS_TrEIdWydania in(SELECT TrE_TrEId
FROM deleted)
END
-- elementy kasowane trzeba skasowac atrybuty
--IF EXISTS ( SELECT * FROM deleted )
-- BEGIN
-- DELETE FROM Cdn.TraElemAtr WHERE TrA_TrEId in (SELECT
TrE_TrEId FROM deleted)
-- END
-- Metoda rozliczania magazynu
IF EXISTS ( SELECT * FROM inserted )
BEGIN
SET @Metoda = ( SELECT TOP 1 ISNULL( Fir_Wartosc,1 ) FROM
cdn.Firma WHERE Fir_Numer = 1352 )
SET @QUAN = ( SELECT TOP 1 ISNULL( Fir_Wartosc,0 ) FROM
cdn.Firma WHERE Fir_Numer = 1485 )
END
-- elementy dodawane
DECLARE Dodawane CURSOR LOCAL FAST_FORWARD FOR
SELECT TrE_TrEId, TrE_TrNId, TrE_ZwrId, TrE_Lp, TrE_TypDokumentu,
TrE_Aktywny, TrE_DataDok, TrE_DataOpe, TrE_TwrId, TrE_TwrKod, TrE_Stawka ,
TrE_CenaW, TrE_CenaWWD, TrE_CenaT, TrE_Waluta,
TrE_KursNumer, TrE_KursL, TrE_KursM, TrE_Ilosc, TrE_WartoscNetto,
TrE_WartoscBrutto,
TrE_JMPrzelicznikL, TrE_JMPrzelicznikM, TrE_PodmiotTyp,
TrE_PodId, TrE_LpPow, TrE_IloscJM, TrE_TypNB, Tre_WyborDostaw,
Tre_MagID, TrE_IFA24Mag, TrE_KosztUslugi
FROM inserted
ORDER BY TrE_TrNId, TrE_Lp
OPEN Dodawane
WHILE 1=1
BEGIN
FETCH NEXT FROM Dodawane INTO @TrE_TrEId, @TrE_TrNId,
@TrE_ZwrId, @TrE_Lp, @TrE_TypDokumentu, @TrE_Aktywny, @TrE_DataDok,
@TrE_DataOpe, @TrE_TwrId, @TrE_TwrKod, @TrE_Stawka,
@TrE_CenaW, @TrE_CenaWWD,
@TrE_CenaT, @TrE_Waluta, @TrE_KursNumer, @TrE_KursL, @TrE_KursM,
@TrE_Ilosc, @TrE_WartoscNetto, @TrE_WartoscBrutto,
@TrE_JMPrzelicznikL,
@TrE_JMPrzelicznikM, @TrE_PodmiotTyp, @TrE_PodId, @TrE_LpPow,
@TrE_IloscJM, @TrE_TypNB, @Tre_WyborDostaw, @TrE_MagId, @TrE_IFA24Mag ,
@TrE_KosztUslugiZDok
IF @@FETCH_STATUS <> 0 BREAK
-- Zmiana towaru musimy usunąć relacje na elementach
IF UPDATE( TrE_TwrId )
BEGIN
IF NOT EXISTS (SELECT TrE_TwrId FROM deleted WHERE
@TrE_TrEId = TrE_TrEId AND @TrE_TwrId = TrE_TwrId)
BEGIN
DECLARE
@TrE_TrEIdWiNi1 INT,
@TrE_TypWiNi1 INT
DECLARE Kasowane CURSOR LOCAL FAST_FORWARD FOR
SELECT TrE_TrEId, TrE_TypDokumentu
FROM deleted
ORDER BY TrE_TrEId
OPEN Kasowane
WHILE 1=1
BEGIN
FETCH NEXT FROM Kasowane INTO @TrE_TrEIdWiNi1, @TrE_TypWiNi1
IF @@FETCH_STATUS <> 0 BREAK
DELETE CDN.TraElemRelacje WHERE TeR_ParentTyp=@TrE_TypWiNi1 and
TeR_ParentId=@TrE_TrEIdWiNi1
DELETE CDN.TraElemRelacje WHERE TeR_ChildTyp=@TrE_TypWiNi1 and
TeR_ChildId=@TrE_TrEIdWiNi1
END
CLOSE Kasowane
DEALLOCATE Kasowane
END
END
-- Sprawdzenie zgodności przeliczników i ilości
IF (( @TrE_JMPrzelicznikL = @TrE_JMPrzelicznikM AND
@TrE_Ilosc <> @TrE_IloscJM)
OR ( @TrE_JMPrzelicznikL <> @TrE_JMPrzelicznikM AND
@TrE_Ilosc = @TrE_IloscJM))
AND (@TrE_Ilosc<>0 AND @TrE_IloscJM<>0)
BEGIN
SET @Komunikat = 'Zapis niemożliwy ! Dla towaru ' +
@TrE_TwrKod + ' przeliczniki miar niezgodne z ilościami ! '
IF @Komunikat <> '' GOTO KOMUNIKAT
END
-- Przepisujemy z PA na FA czy wybor dostaw
IF @TrE_TypDokumentu = 302
update FA set FA.TrE_WyborDostaw = PA.TrE_WyborDostaw from
cdn.TraElem FA left join cdn.TraElem PA on FA.TrE_PATrEID = PA.TrE_TrEID
where FA.TrE_TrEId = @TrE_TrEId AND FA.TrE_PATrEID > 0
-- Niezwykle istotne ze wzglednu na prawidlowy FK dla ProdElem
po wykonaniu triggera
SET @MyIdentity = @@IDENTITY
-- Odczytanie z naglowka informacji potrzebnych do zbudowania
subelementu i decyzji o sposobie aktualizowania ceny zakupu
SELECT TOP 1
@TrN_TrNId = TrN_TrNId,
@TrN_FaId = case when TrN_TypDokumentu= 313 or
TrN_TypDokumentu= 314 then CDN.TraNagRelacjeFaId (TrN_TrNID,0,2 ) else
CDN.TraNagRelacjeFaId (TrN_TrNID,0,0 ) end ,
--@TrN_FaId = TrN_FaId,
@TrN_ZwrId = TrN_ZwrId,
@TrN_Rodzaj = TrN_Rodzaj,
@TrN_Bufor = TrN_Bufor,
@TrN_MagZrdId = TrN_MagZrdId,
@TrN_MagDocId = TrN_MagDocId,
@TrN_DataDok = TrN_DataDok,
@TrN_DataWys = TrN_DataWys,
@TrN_DataOpe = TrN_DataOpe,
@TrN_TrSTyp = ISNULL(TrN_TrSTyp,3),
@TrN_TypNB = TrN_TypNB,
@TrN_PodmiotTyp = TrN_PodmiotTyp,
@TrN_PodId = TrN_PodId,
@TrN_Centrala = TrN_Centrala,
@TrN_Waluta = TrN_Waluta,
@TrN_KursNumer = TrN_KursNumer,
@TrN_KursL = TrN_KursL,
@TrN_KursM = TrN_KursM
FROM cdn.TraNag
JOIN cdn.TraElem ON TrN_TrNId = TrE_TrNId AND TrE_TrEId =
@TrE_TrEId
-- ustalenie symbolu waluty, jeśli jest to waluta systemowa
IF ( @TrN_Waluta = '' OR @TrN_Waluta = @WalutaSys ) AND
@TrN_KursL=1 AND @TrN_KursM = 1
SET @TrN_Waluta = @WalutaSys
-- Sprawdzenie zgodności podmiotu między nagłówkiem i elementem
(ZB)
If IsNull(@TrN_PodmiotTyp, 0) <> IsNull(@TrE_PodmiotTyp, 0) Or
IsNull(@TrN_PodId, 0) <> IsNull(@TrE_PodId, 0)
Update CDN.TraElem Set TrE_PodmiotTyp = @TrN_PodmiotTyp,
TrE_PodId = @TrN_PodId Where TrE_TrEId = @TrE_TrEId
-- Ustalenie metody rozliczania magazynu dla dodawanego elementu
IF @QUAN = 1 AND @TrE_DataOpe > ( SELECT
ISNULL(MAX(TrN_DataOpe),0) FROM cdn.TraNag WHERE TrN_Rodzaj = 310005 )
SET @Metoda = 4
-- ustawiamy lppow dla wz jesli zmienia sie lppow na proformie
IF (Update (TrE_LpPow) and @TrN_Rodzaj in (320000,320009))
BEGIN
UPDATE a SET a.TrE_Lppow = @TrE_Lppow
FROM Cdn.TraElem a
join deleted d on d.TrE_Treid = @TrE_TrEId and a.TrE_lppow =
d.TrE_lppow and a.TrE_TwrId = d.TrE_TwrId
JOIN CDN.TraNagRelacje ON d.TrE_TrnId = TrR_FaId
--JOIN Cdn.TraNag c ON d.TrE_TrnId = c.TrN_RelTrnId
WHERE TrR_FaTyp = 306 AND a.TrE_TrnId = TrR_TrNId
--WHERE c.TrN_TypDokumentu = 306 and a.TrE_TrnId = c.TrN_TrNId
END
If (Update (TrE_Atr1_DeAId) Or Update (TrE_Atr1_Kod) Or Update
(TrE_Atr1_Wartosc) Or Update (TrE_Atr2_DeAId) Or Update (TrE_Atr2_Kod)
Or Update (TrE_Atr2_Wartosc)
Or Update (TrE_Atr3_DeAId) Or Update (TrE_Atr3_Kod) Or Update
(TrE_Atr3_Wartosc) Or Update (TrE_Atr4_DeAId) Or Update (TrE_Atr4_Kod)
Or Update (TrE_Atr4_Wartosc)
Or Update (TrE_Atr5_DeAId) Or Update (TrE_Atr5_Kod) Or Update
(TrE_Atr5_Wartosc))
BEGIN
DELETE FROM Cdn.TraElemAtr WHERE Tra_TrEId =@TrE_TrEId
INSERT INTO Cdn.TraElemAtr SELECT
Tre_TreId,1,TrE_Atr1_DeAId,TrE_Atr1_Kod,TrE_Atr1_Wartosc FROM
Cdn.TraElem WHERE Tre_TreId=@TrE_TrEId AND TrE_Atr1_DeAId>0 AND
TrE_Atr1_DeAId is not NULL
INSERT INTO Cdn.TraElemAtr SELECT
Tre_TreId,2,TrE_Atr2_DeAId,TrE_Atr2_Kod,TrE_Atr2_Wartosc FROM
Cdn.TraElem WHERE Tre_TreId=@TrE_TrEId AND TrE_Atr2_DeAId>0 AND
TrE_Atr2_DeAId is not NULL
INSERT INTO Cdn.TraElemAtr SELECT
Tre_TreId,3,TrE_Atr3_DeAId,TrE_Atr3_Kod,TrE_Atr3_Wartosc FROM
Cdn.TraElem WHERE Tre_TreId=@TrE_TrEId AND TrE_Atr3_DeAId>0 AND
TrE_Atr3_DeAId is not NULL
INSERT INTO Cdn.TraElemAtr SELECT
Tre_TreId,4,TrE_Atr4_DeAId,TrE_Atr4_Kod,TrE_Atr4_Wartosc FROM
Cdn.TraElem WHERE Tre_TreId=@TrE_TrEId AND TrE_Atr4_DeAId>0 AND
TrE_Atr4_DeAId is not NULL
INSERT INTO Cdn.TraElemAtr SELECT
Tre_TreId,5,TrE_Atr5_DeAId,TrE_Atr5_Kod,TrE_Atr5_Wartosc FROM
Cdn.TraElem WHERE Tre_TreId=@TrE_TrEId AND TrE_Atr5_DeAId>0 AND
TrE_Atr5_DeAId is not NULL
END
-- Kreowanie subelementów jest podejmowane tylko w
uzasadnionych przypadkach
-- Anulowane
IF @TrE_Aktywny = 0
BEGIN
DELETE FROM CDN.TrasElemDost WHERE TsD_TrEId = @TrE_TrEID
-- Kasujemy rezerwacje na subelementach dla RO/ZD i ich relacje
exec [CDN].[UstawRezerwacje] @TrE_TrEId, 1, @TrE_TypDokumentu
DELETE CDN.TraSElem WHERE TRS_TrEIdWydania = @TrE_TrEId
DELETE CDN.TraElemRelacje WHERE
TeR_ParentTyp=@TrE_TypDokumentu and TeR_ParentId = @TrE_TrEId
DELETE CDN.TraElemRelacje WHERE
TeR_ChildTyp=@TrE_TypDokumentu and TeR_ChildId = @TrE_TrEId
IF @TrN_Rodzaj IN (302006,302004)
begin
update WZ set WZ.TrE_LpPow = FA.TrE_LpPow from cdn.traelem WZ
left join cdn.tranagrelacje on WZ.TrE_TrNId = TrR_TrNId and
TrR_FaTyp = 305 and TrR_TrNTyp= 306
left join cdn.TraElem PA on PA.TrE_TrNId = TrR_FaId
left join cdn.TraElem FA on FA.TrE_PATrEID = PA.TrE_TrEID
where FA.TrE_TrEId = @TrE_TrEId AND WZ.TrE_Lppow = PA.TrE_LpPow
and FA.TrE_PATrEID > 0
update PA set PA.TrE_LpPow = FA.TrE_LpPow from cdn.TraElem PA
left join cdn.TraElem FA on FA.TrE_PATrEID = PA.TrE_TrEID where
FA.TrE_TrEId = @TrE_TrEId AND FA.TrE_PATrEID > 0
end
--PA z Pobraniem- >FA -> Korekta nie zwraca na magazyn
IF @TrN_Rodzaj IN (302006) AND @TrN_Bufor = 0
begin
--update TraS set trs_treid = @TrE_TrEId from cdn.TraSElem TraS
join cdn.TraElem on tre_treid = trs_treid where TrE_TrNId = @TrN_FaId
and TrE_LpPow = @tre_lppow and TrE_TypDokumentu != 304 --usługa złozona
RW nie przepinamy.
update TraS set trs_treid = FA.TrE_TrEId from cdn.TraSElem TraS
left join cdn.TraElem PA on PA.TrE_TrEID = TraS.TrS_TrEId
left join cdn.TraElem FA on FA.TrE_PATrEID = PA.TrE_TrEID
where FA.TrE_TrEId = @TrE_TrEId and PA.TrE_TypDokumentu != 304
--usługa złozona RW nie przepinamy.
update TraS set tsd_treid = FA.TrE_TrEId from cdn.TraSElemDost TraS
left join cdn.TraElem PA on PA.TrE_TrEID = TraS.Tsd_TrEId
left join cdn.TraElem FA on FA.TrE_PATrEID = PA.TrE_TrEID
where FA.TrE_TrEId = @TrE_TrEId and PA.TrE_TypDokumentu != 304
--usługa złozona RW nie przepinamy.
end
CONTINUE
END
/*
-- FZ z PZ, FZKI z PZKI akceptowane trwale lub w buforze
IF @TrN_Rodzaj IN ( 301004, 301005 ) AND @TrN_Bufor IN ( 0, 1 )
begin
-- Sprawdzenie, czy należy aktualizować cenę zakupu na MM-OL
-- Rodzaj marży: 0 = "od stu", 1 = "w stu"
IF @TrN_Rodzaj = 301004
AND @TrE_Ilosc > 0
AND @TrN_Bufor IN ( 0 )
BEGIN
SELECT
@Twr_Typ = Twr_Typ,
@Twr_KosztUslugiTyp = Twr_KosztUslugiTyp,
@Twr_KosztUslugi = Twr_KosztUslugi,
@Twr_Stawka = Twr_Stawka,
@Twr_KursL = Twr_KursL,
@Twr_KursM = Twr_KursM
FROM cdn.Towary
WHERE Twr_TwrId = @TrE_TwrId
IF @TrN_Waluta = @WalutaSys
BEGIN
SET @Waluta = @TrE_Waluta
SET @KursNumer = @TrE_KursNumer
SET @KursL = @TrE_KursL
SET @KursM = @TrE_KursM
SET @CenaW_New = @TrE_CenaW
END
-- parametry waluty z nagłówka
ELSE
BEGIN
SET @Waluta = @TrN_Waluta
SET @KursNumer = @TrN_KursNumer
SET @KursL = @TrN_KursL
SET @KursM = @TrN_KursM
SET @CenaW_New = @TrE_CenaWWD
END
-- parametry kursu waluty dla towaru lub usługi z typem
kwotowym
IF @Twr_Typ = 1 OR ( @Twr_Typ = 0 AND @Twr_KosztUslugiTyp = 1 )
UPDATE cdn.Towary SET
Twr_Waluta = @Waluta,
Twr_KursNumer = @KursNumer,
Twr_KursL = @KursL,
Twr_KursM = @KursM
WHERE Twr_TwrId = @TrE_TwrId
-- koszt usługi ( usługa i typ kosztu kwotowy )
IF @Twr_Typ = 0 AND @Twr_KosztUslugiTyp = 1
BEGIN
-- od netto
IF @TrE_TypNB = 1
BEGIN
SET @Twr_KosztUslugiNew = @TrE_CenaT
SET @Twr_KosztUslugiWalNew = @CenaW_New
END
-- od brutto
ELSE IF @TrE_TypNB = 2
BEGIN
SET @Twr_KosztUslugiNew = @TrE_CenaT - ROUND (
@TrE_CenaT * @TrE_Stawka / (100 + @TrE_Stawka) , 2 )
SET @Twr_KosztUslugiWalNew = @CenaW_New - ROUND (
@CenaW_New * @TrE_Stawka / (100 + @TrE_Stawka) , 2 )
END
UPDATE cdn.Towary SET
Twr_KosztUslugi = @Twr_KosztUslugiNew,
Twr_KosztUslugiWal = @Twr_KosztUslugiWalNew
WHERE Twr_TwrId = @TrE_TwrId
END
-- Kursor po cenach dla towaru lub usługi z kosztem kwotowym:
-- aktualizacja ceny zakupu (TwC_TwCNumer = 1)
-- aktualizacja marży dla cen sprzedaży z aktualizacją
ustawiną na "Nie" ( TwC_TwCNumer <> 1 AND TwC_Aktualizacja = 0 )
IF @Twr_Typ = 1 OR ( @Twr_Typ = 0 AND @Twr_KosztUslugiTyp = 1 )
BEGIN
DECLARE TwrCeny CURSOR LOCAL FAST_FORWARD FOR
SELECT TwC_TwCNumer, TwC_TwCId, TwC_Waluta,
TwC_Wartosc, TwC_Typ
FROM cdn.TwrCeny
WHERE TwC_TwrId = @TrE_TwrId AND TwC_TwCNumer = 1
UNION ALL
SELECT TwC_TwCNumer, TwC_TwCId, TwC_Waluta,
TwC_Wartosc, TwC_Typ
FROM cdn.TwrCeny
WHERE TwC_TwrId = @TrE_TwrId AND TwC_TwCNumer <> 1
AND TwC_Aktualizacja = 0
OPEN TwrCeny
WHILE 1=1
BEGIN
FETCH NEXT FROM TwrCeny INTO @TwC_TwCNumer,
@TwC_TwCId, @TwC_Waluta, @TwC_Wartosc, @TwC_Typ
IF @@FETCH_STATUS <> 0 BREAK
-- aktualizacja ceny zakupu
IF @TwC_TwCNumer = 1
BEGIN
-- od netto
IF @TrE_TypNB = 1
IF @TwC_Typ = 1
SET @TwC_Wartosc = @CenaW_New * (
@TrE_JMPrzelicznikM / @TrE_JMPrzelicznikL )
ELSE
SET @TwC_Wartosc = ( @CenaW_New + ROUND(
@CenaW_New * @TrE_Stawka / 100, 2 ) ) * ( @TrE_JMPrzelicznikM /
@TrE_JMPrzelicznikL )
-- od brutto
ELSE IF @TrE_TypNB = 2
IF @TwC_Typ = 1
SET @TwC_Wartosc = ( @CenaW_New - ROUND(
@CenaW_New * @TrE_Stawka / ( 100+@TrE_Stawka), 2 ) ) * (
@TrE_JMPrzelicznikM / @TrE_JMPrzelicznikL )
ELSE
SET @TwC_Wartosc = @CenaW_New * (
@TrE_JMPrzelicznikM / @TrE_JMPrzelicznikL )
UPDATE cdn.TwrCeny SET
TwC_Wartosc = @TwC_Wartosc,
TwC_Waluta = @Waluta
WHERE TwC_TwCId = @TwC_TwCId
SET @CenaZakupuNew = @TwC_Wartosc
SET @CenaZakupuNewWal = @CenaZakupuNew
SET @CenaZakupuNewPLN = @CenaZakupuNew *
@KursL/@KursM
END -- @TwC_TWCNumer = 1
-- aktualizacja marż dla cen sprzedaży
-- tylko wtedy, gdy waluta zakupu i sprzedaży są
równe lub gdy waluta sprzedazy jest systemowa
ELSE IF @TwC_TwCNumer <> 1 AND ( @TwC_Waluta =
@Waluta OR @TwC_Waluta = @WalutaSys )
BEGIN
-- cena sprzedaży brutto - obliczamy jej
reprezentację netto
IF @TwC_Typ = 2
SET @TwC_Wartosc = @TwC_Wartosc - ROUND(
@TwC_Wartosc * @Twr_Stawka / ( 100 + @Twr_Stawka), 2 )
-- marża "od stu" i "w stu"
IF @CenaZakupuNew <> 0
BEGIN
-- jeśli waluta zakupu i sprzedaży są
równe, to bierzemy cenę zakupu w walucie dokumentu
-- w przeciwnym przypadku, gdy cena
sprzedaży jest w walucie systemowej, to bierzemy cenę zakupu w walucie
systemowej
IF @TwC_Waluta = @WalutaSys AND @Waluta <>
@WalutaSys
SET @CenaZakupuNew = @CenaZakupuNewPLN
ELSE
SET @CenaZakupuNew = @CenaZakupuNewWal
SET @TwC_Marza = ( ( @TwC_Wartosc /
@CenaZakupuNew ) - 1 ) * 100
IF ( @TwC_Marza = -100 ) OR (
@CenaZakupuNew = @TwC_Wartosc )
SET @TwC_MarzaWStu = 100
ELSE IF @TwC_Wartosc = 0
SET @TwC_MarzaWStu = -100
ELSE
SET @TwC_MarzaWStu = 100 * @TwC_Marza /
( 100 + @TwC_Marza )
IF @TwC_Marza > 99999.99 SET
@TwC_Marza = 99999.99
IF @TwC_MarzaWStu > 99999.99 SET
@TwC_MarzaWStu = 99999.99
IF @TwC_Marza < - 99999.99 SET
@TwC_Marza = -99999.99
IF @TwC_MarzaWStu < - 99999.99 SET
@TwC_MarzaWStu = -99999.99
END
IF @TwC_Marza IS NOT NULL AND
@TwC_MarzaWStu IS NOT NULL
UPDATE cdn.TwrCeny SET
TwC_Marza = @TwC_Marza,
TwC_MarzaWStu = @TwC_MarzaWStu
WHERE TwC_TwCId = @TwC_TwCId
END
END -- kursor TwrCeny
CLOSE TwrCeny
DEALLOCATE TwrCeny
END -- Towar lub usługa z kosztem kwotowym
END -- aktualizacji ostatniej ceny zakupu
CONTINUE
end
*/
--dla 149306 mimo ze FAWZ to trzeba ustawić rezerwację
IF UPDATE( TrE_Ilosc ) and @TrN_Rodzaj = 302004 and exists(
SELECT Twr_Typ FROM cdn.Towary WHERE Twr_TwrId =
@TrE_TwrId and Twr_Typ = 0)
EXEC [CDN].[UstawRezerwacje] @TrE_TrEId,0,@TrE_TypDokumentu
-- FA z WZ, PA z WZ, FAKI z WZKI, PAKI z WZ, FZKI z PZ, AI, AI
z PW/RW, RO z PA, RO z FA, RO z WZ akceptowane trwale, PF z FA, PF z RO
IF @TrN_Rodzaj IN ( 302004, 305004, 302005, 305005, 301005,
311000, 311001, 308008, 308009, 308010, 320008, 320009, 320000 ) AND
@TrN_Bufor IN ( 0 ) and @TrE_TypDokumentu != 304
CONTINUE
-- ZD konwertowane do PZ/FZ
IF @TrN_Rodzaj IN ( /*309000,*/ 309008, 309009 ) --AND
@TrN_FaId IS NOT NULL
CONTINUE
-- FZKW, PZKW w buforze
IF @TrN_Rodzaj IN ( 301002, 307002, 310002, 301006,
307006,303002,307003, 307011 ) AND @TrN_Bufor IN ( 1 )
CONTINUE
-- RO, ZD z pzeznaczeniem do centrali XL
IF @TrN_Rodzaj IN ( 308000, 309000 ) AND @TrN_Centrala IN ( 1 )
CONTINUE
-- FA z PA z buforze
IF @TrN_Rodzaj IN (302006) AND @TrN_Bufor = 1
CONTINUE
-- PWP - pierwszy przebieg (TrE_Aktywny = 1 - nie liczymy
zasobów, najpierw RWS musi wyliczyć koszt)
IF @TrE_TypDokumentu IN (317) AND @TrE_Aktywny = 1
CONTINUE
-- PWP - drugi przebieg (TrE_Aktywny = 2 - liczymy zsoby,
PdE_Wartosc są już policzone)
IF @TrE_TypDokumentu IN (317) AND @TrE_Aktywny = 2
BEGIN
UPDATE cdn.TraElem SET TrE_Aktywny = 1 WHERE TrE_TrEId =
@TrE_TrEId
SET @TrE_Aktywny = 1
END
-- przeksztalcenia ZD do PZ, RO do FA/PA/WZ, PA do FA, PF do
FS, PF do RO, ZD do FZ
-- skasowanie subelementów zamowieniowych/rezerwacyjnych z
dokumentu pierwotnego
/* IF @TrN_Rodzaj IN ( 307010, 302008, 305008, 306008, 306010,
302006, 302009, 308011, 301011 )
BEGIN
SET @TrN_FaId_Old = ( SELECT TOP 1 TrN_TrNId FROM
cdn.TraNag WHERE TrN_TrNId = @TrE_TrNId )
-- tablica nagłówków do przeglądnięcia i skasowania subelemntów
DECLARE @TrN_TrNId_Prw TABLE (TrN_TrNId INT)
INSERT INTO @TrN_TrNId_Prw SELECT TrN_TrNId FROM cdn.TraNag
JOIN CDN.TraNagRelacje ON TrN_TrNId = TrR_TrNId
WHERE TrR_FaId = @TrN_FaId_Old
DECLARE E CURSOR LOCAL FAST_FORWARD FOR
SELECT TrE_TrEId
FROM cdn.TraElem
WHERE TrE_TrNId IN ( SELECT TrN_TrNId FROM @TrN_TrNId_Prw
) -- AND TrE_TwrId = @TrE_TwrId
OPEN E
WHILE 1=1
BEGIN
FETCH NEXT FROM E INTO @TrE_TrEId_Old
IF @@FETCH_STATUS <> 0 BREAK
-- skasowanie subelementów z dokumentu pierwotnego
DELETE FROM cdn.TraSElem WHERE TrS_TrEId =
@TrE_TrEId_Old
END
CLOSE E
DEALLOCATE E
END*/
IF @TrN_Rodzaj IN ( 306010, 302006, 302009, 308011 )
BEGIN
DELETE FROM cdn.TraSElem WHERE TrS_TrEId in (SELECT TrE_TrEId
FROM cdn.TraElem
WHERE TrE_TrNId IN ( SELECT TrN_TrNId FROM cdn.TraNag
JOIN CDN.TraNagRelacje ON TrN_TrNId = TrR_TrNId
WHERE TrR_FaId = @TrE_TrNId and trn_typdokumentu = 320
and trn_trstyp = 3) )
/*
SET @TrN_FaId_Old = ( SELECT TOP 1 TrN_TrNId FROM
cdn.TraNag WHERE TrN_TrNId = @TrE_TrNId )
-- tablica nagłówków do przeglądnięcia i skasowania subelemntów
DECLARE @TrN_TrNId_Prw TABLE (TrN_TrNId INT)
INSERT INTO @TrN_TrNId_Prw SELECT TrN_TrNId FROM cdn.TraNag
JOIN CDN.TraNagRelacje ON TrN_TrNId = TrR_TrNId
WHERE TrR_FaId = @TrN_FaId_Old
DECLARE E CURSOR LOCAL FAST_FORWARD FOR
SELECT TrE_TrEId
FROM cdn.TraElem
WHERE TrE_TrNId IN ( SELECT TrN_TrNId FROM @TrN_TrNId_Prw
) -- AND TrE_TwrId = @TrE_TwrId
OPEN E
WHILE 1=1
BEGIN
FETCH NEXT FROM E INTO @TrE_TrEId_Old
IF @@FETCH_STATUS <> 0 BREAK
-- skasowanie subelementów z dokumentu pierwotnego
DELETE FROM cdn.TraSElem WHERE TrS_TrEId =
@TrE_TrEId_Old
END
CLOSE E
DEALLOCATE E*/
END
/*IF @TrN_Rodzaj IN ( 307010, 302008, 305008, 306008, 301011 )
BEGIN
SET @TrN_FaId_Old = ( SELECT TOP 1 TrN_TrNId FROM
cdn.TraNag WHERE TrN_TrNId = @TrE_TrNId )
-- tablica nagłówków do przeglądnięcia i skasowania subelemntów
DECLARE @TrN_TrNId_Prw1 TABLE (TrN_TrNId INT)
INSERT INTO @TrN_TrNId_Prw1 SELECT TrN_TrNId FROM cdn.TraNag
JOIN CDN.TraNagRelacje ON TrN_TrNId = TrR_TrNId
WHERE TrR_FaId = @TrN_FaId_Old
DECLARE E CURSOR LOCAL FAST_FORWARD FOR
SELECT TrE_TrEId
FROM cdn.TraElem
WHERE TrE_TrNId IN ( SELECT TrN_TrNId FROM
@TrN_TrNId_Prw1 ) -- AND TrE_TwrId = @TrE_TwrId
OPEN E
WHILE 1=1
BEGIN
FETCH NEXT FROM E INTO @TrE_TrEId_Old
IF @@FETCH_STATUS <> 0 BREAK
-- skasowanie subelementów z dokumentu pierwotnego
--DELETE FROM cdn.TraSElem WHERE TrS_TrEId =
@TrE_TrEId_Old
END
CLOSE E
DEALLOCATE E
END*/
-- przed trwalym zapisem skasowanie subelemntów z dokumentu
konwertowanego
-- nie można przepinać zasobów, ponieważ na dokumencie
pierwotnym mogą być usługi, które zaburzaja LP
-- WZ z FA, WZ z PA, WZKI z FA, WZKI z PA, PZ z FZ, PZKI z
FZKI, WZ z RO
--
IF @TrN_Rodzaj IN ( /*306004, 306006,*/ 306005, 306007,
/*307004,*/ 307005 /*, 306008*/ )
EXEC CDN.KasujTraSElemZDokZrodlowych @TrN_TrNId, @TrN_Rodzaj,
@TrN_FaId
/* -- ZG 9.0
BEGIN
SET @TrN_TrNId_Old = ( SELECT TrN_FaId FROM cdn.TraNag
WHERE TrN_TrNId = @TrE_TrNId )
-- przypadek szczególny - FA z PA nie przechodzi przez
302006, tylko od razu dostaje 302004
SET @TrN_TrNId_PAdoFA_Old = ( SELECT ISNULL(TrN_FaId,0)
FROM cdn.TraNag WHERE TrN_TrNId = @TrN_TrNId_Old AND TrN_Rodzaj = 302004 )
-- ooptymalizacja 8.5
DECLARE @TrN TABLE ( TrNId INT )
INSERT INTO @TrN ( TrNId ) SELECT @TrN_TrNId_Old
INSERT INTO @TrN ( TrNId ) SELECT @TrN_TrNId_PAdoFA_Old
INSERT INTO @TrN ( TrNId ) SELECT TrN_TrNId FROM cdn.TraNag
WHERE TrN_ZwrId = @TrN_TrNId_Old
DECLARE E CURSOR LOCAL FAST_FORWARD FOR
SELECT TrE_TrEId
FROM cdn.TraElem
JOIN @TrN ON TrNId = TrE_TrNId
AND TrE_TwrId = @TrE_TwrId
OPEN E
WHILE 1=1
BEGIN
FETCH NEXT FROM E INTO @TrE_TrEId_Old
IF @@FETCH_STATUS <> 0 BREAK
-- subelementy ze starego elemntu sa kasowane
-- najpierw korekcyjne PZKW, które wskazują na
kasowane subelemnty
DECLARE SKR CURSOR LOCAL FAST_FORWARD FOR
SELECT K.TrS_TrSId, K.TrS_TrEId, TrN_DekId,
TrN_NumerPelny
FROM cdn.TraSElem P LEFT OUTER JOIN cdn.TraSElem K
WITH ( INDEX = TrSZwrot) ON P.TrS_TrSId =
K.TrS_ZwrId
JOIN cdn.TraElem ON TrE_TrEId = K.TrS_TrEId
JOIN cdn.TraNag ON TrN_TrNId = TrE_TrNId
WHERE K.TrS_Rodzaj = 306072 AND P.TrS_TrEId =
@TrE_TrEId_Old
OPEN SKR
WHILE 1=1
BEGIN
FETCH NEXT FROM SKR INTO @TrS_TrSId_K,
@TrS_TrEId_K, @TrN_DekId, @TrN_NumerPelny
IF @@FETCH_STATUS <> 0 BREAK
IF @TrN_DekId IS NOT NULL
BEGIN
SET @Komunikat = 'Zapis niemożliwy
! Dokument korekcyjny WZKK (' + @TrN_NumerPelny + '), na którym musi
zostać zmodyfikowany koszt jest już zaksięgowany ! '
IF @Komunikat <> '' GOTO KOMUNIKAT
END
DELETE FROM cdn.TraSElem WHERE
TrS_TrSId = @TrS_TrSId_K
EXEC CDN.sp_AktualizujWZKK @TrS_TrEId_K
END
CLOSE SKR
DEALLOCATE SKR
-- teraz właściwy subelemnt z pierwotnego
DELETE FROM cdn.TraSElem WHERE TrS_TrEId =
@TrE_TrEId_Old
END
CLOSE E
DEALLOCATE E
END
*/
-- zainicjowanie typu
SET @TrS_Typ = -1
-- dokumenty w buforze
IF @TrN_Bufor = 1
BEGIN
-- FZ, PW, PZ z ZD, BO, PWP, ZD, PW z AI, FZ z ZD
IF @TrN_Rodzaj IN ( 301000, 303000, 307000, 307010,
310000, 317000, 309000, 303010, 312010, 301011, 301050, 313000, 313004 )
SET @TrS_Typ = 4
-- FA, FA z RO, PA, PA z RO
IF @TrN_Rodzaj IN ( 302000, 302008, 305000, 305008, 318000,
302009, 320000 )
SET @TrS_Typ = @TrN_TrSTyp
IF @TrN_Rodzaj IN ( 302004,305004 ) and @TrE_TypDokumentu = 304
SET @TrS_Typ = @TrN_TrSTyp
-- FA z WZ dla elementów dodanych
IF @TrN_Rodzaj IN ( 302004 ) AND @TrE_LpPow < 0
SET @TrS_Typ = @TrN_TrSTyp
-- RO, RO z PF
IF @TrN_Rodzaj IN ( 308000, 308011 )
SET @TrS_Typ = 3
-- RW, WZ, WZ z FA, WZ z PA, MM, RW z AI
IF @TrN_Rodzaj IN ( 304000, 304006, 304004,304008, 306000,
306004, 306006, 312000,312008, 304010, 306008, 306010, 312100, 314000,
314004, 314006 )
SET @TrS_Typ = 2
-- FAKI, FAKI z WZKI, PAKI, PAKI z WZKI, RWKI, WZKI w buforze
IF @TrN_Rodzaj IN ( 302001, 302005, 305001, 305005,
304001, 306001, 314001, 318001 ) AND @TrN_Bufor IN ( 1 )
SET @TrS_Typ = 4
-- FAKI, FAKI z WZKI, PAKI, PAKI z WZKI, RWKI, WZKI w
buforze dla ilości dodatnich
IF @TrN_Rodzaj IN ( 302001, 302005, 305001, 305005, 318001
) AND @TrN_Bufor IN ( 1 ) AND @TrE_Ilosc > 0
BEGIN
DECLARE @TrN_TrSTyp_Pierw INT
-- dla nie RWSK z dokumentu pierwotnego
IF @TrN_Rodzaj <> 318001
SELECT TOP 1
@TrN_TrSTyp_Pierw = ISNULL(MAX(TrN_TrSTyp),0)
FROM cdn.TraNag
JOIN cdn.TraElem ON TrE_TrNId = TrN_TrNId
WHERE TrE_TrEId = @TrE_ZwrId
-- dla RWSK ze skojarzonego dokumentu PWPK
ELSE
SELECT TOP 1
@TrN_TrSTyp_Pierw = ISNULL(MAX(PWP_N.TrN_TrSTyp),0)
FROM cdn.TraNag RWS_N
JOIN cdn.TraElem RWS_E ON RWS_E.TrE_TrNId =
RWS_N.TrN_TrNId
JOIN cdn.TraNag PWP_N ON PWP_N.TrN_TrNId =
RWS_N.TrN_FaId
WHERE RWS_E.TrE_TrEId = @TrE_TrEId
-- jeśli na pierwotnym nie jest ustawione "pobranie",
to z pierwotnego
IF @TrN_TrSTyp_Pierw = 2
SET @TrS_Typ = @TrN_TrSTyp_Pierw
ELSE
SET @TrS_Typ = 3
END
-- FAKI, FAKI z WZKI, PAKI, PAKI z WZKI w buforze dla
ilości dodatnich
IF @TrN_Rodzaj IN ( 306001, 314001 ) AND @TrN_Bufor IN ( 1
) AND @TrE_Ilosc > 0
SET @TrS_Typ = 2
-- FZKI, FZKI z PZKI, PWKI, PZKI, BOMKI w buforze
IF (@TrN_Rodzaj IN ( 301001, 301005, 303001, 307001,
310001, 313001, 317001 ) AND @TrN_Bufor IN ( 1 )) or (@TrN_Rodzaj =
301051 AND @TrN_Bufor = 1 and not exists (select * from cdn.TraNag
where TrN_FaId = @TrN_TrNId and TrN_Rodzaj = 307005))
SET @TrS_Typ = 3
-- FZKI, FZKI z PZKI, PWKI, PZKI, BOMKI w buforze dla
ilości dodatnich
IF (@TrN_Rodzaj IN ( 301001, 301005, 303001, 307001,
310001, 313001, 317001) AND @TrN_Bufor IN ( 1 ) AND @TrE_Ilosc > 0) or
(@TrN_Rodzaj = 301051 AND @TrN_Bufor = 1 AND @TrE_Ilosc > 0 and not
exists (select * from cdn.TraNag where TrN_FaId = @TrN_TrNId and
TrN_Rodzaj = 307005))
SET @TrS_Typ = 4
END
-- dokumenty zaakceptowane trwale
ELSE IF @TrN_Bufor = 0
BEGIN
-- FZ, FZKI, FZKI z PZKI, ZD, FZ z ZD
IF @TrN_Rodzaj IN ( 301000, 301001, 301005, 309000, 301011,
301050) or (@TrN_Rodzaj = 301051 and not exists (select * from
cdn.TraNag where TrN_FaId = @TrN_TrNId and TrN_Rodzaj = 307005))
SET @TrS_Typ = 4
-- PW, PWKI, PZ, PZ z FZ, PZKI, PZKI z FZKI, PZKW, PZKW z
FZKW, PZ z ZD, BO, PWP, PW z AI, BOMKI, BOMKW
IF @TrN_Rodzaj IN ( 303000, 303001, 303002, 307000, 307004,
307001, 307005, 307002, 307003, 307011, 307006, 307010, 310000, 317000,
303010, 310001, 310002, 312010, 313000, 313001, 313002, 313004, 317001 )
SET @TrS_Typ = 1
-- FAKI, PAKI - subelement o typie z dokumentu pierwotnego
IF @TrN_Rodzaj IN ( 302001, 305001 )
SET @TrS_Typ = ISNULL( ( SELECT MAX(TrS_Typ) FROM
cdn.TraElem JOIN cdn.TraSElem ON TrS_TrEId = TrE_TrEId WHERE TrE_TrEId =
@TrE_ZwrId ), 0 )
-- FA, FA z WZ, PA, FA z RO, PA z RO, PF, PF z FA, PF z RO,
FA z PF
IF @TrN_Rodzaj IN ( 302000, 302006, 305000, 302008, 305008,
320000, 320008, 320009, 302009 )
SET @TrS_Typ = @TrN_TrSTyp
IF @TrN_Rodzaj IN ( 302004,305004 ) and @TrE_TypDokumentu = 304
SET @TrS_Typ = @TrN_TrSTyp
-- FA z WZ dla elementów dodanych
IF @TrN_Rodzaj IN ( 302004 ) AND @TrE_LpPow < 0
SET @TrS_Typ = @TrN_TrSTyp
-- RO, FA z RO, PA z RO
IF @TrN_Rodzaj IN ( 308000, 308011 )
SET @TrS_Typ = 3
-- RW, RWKI, WZ, WZKI, WZ z FA, WZ z PA, WZKI, WZKI z FAKI,
WZKI z PAKI, MM, RWS, RW z AI
IF @TrN_Rodzaj IN ( 304000, 304006, 304004,304008, 304001,
306000, 306004, 306006, 306001, 306005, 306007, 312000,312008, 318000,
304010, 306008, 306010, 312100, 314000, 314001, 314004, 314006, 318001 )
SET @TrS_Typ = 2
END
-- Jesli nie ustawiono prawidlowego typu - nie kreujemy
subelementow
IF @TrS_Typ NOT IN ( 1, 2, 3, 4 )
CONTINUE
-- Update wartości i cen elementu dla PWP - ( musi być przed
ustawieniem subelementu - jest już RWS )
IF @TrE_TypDokumentu = 317
BEGIN
SET @TrE_WartoscZakupu = ( SELECT
ISNULL(SUM(PdE_WartoscZakupu),0) FROM cdn.ProdElem WHERE PdE_TrEId =
@TrE_TrEId )
UPDATE cdn.TraElem SET
TrE_WartoscNetto = @TrE_WartoscZakupu,
TrE_WartoscBrutto = ROUND(@TrE_WartoscZakupu * ( ( 100
+ TrE_Stawka ) / 100 ), 2 ),
TrE_WartoscNettoWal = @TrE_WartoscZakupu,
TrE_WartoscBruttoWal = ROUND(@TrE_WartoscZakupu * ( ( 100
+ TrE_Stawka ) / 100 ), 2 ),
TrE_Rabat = 0,
TrE_CenaT = CASE TrE_IloscJM WHEN 0 THEN 0
ELSE @TrE_WartoscZakupu / TrE_IloscJM END,
TrE_CenaW = CASE TrE_IloscJM WHEN 0 THEN 0
ELSE @TrE_WartoscZakupu / TrE_IloscJM END ,
TrE_Cena0 = CASE TrE_Ilosc WHEN 0 THEN 0
ELSE @TrE_WartoscZakupu / TrE_Ilosc END ,
TrE_CenaWWD = CASE TrE_IloscJM WHEN 0 THEN 0
ELSE @TrE_WartoscZakupu / TrE_IloscJM END,
TrE_Cena0WD = CASE TrE_Ilosc WHEN 0 THEN 0
ELSE @TrE_WartoscZakupu / TrE_Ilosc END,
TrE_Waluta = @WalutaSys,
TrE_KursNumer = 0,
TrE_KursL = 1,
TrE_KursM = 1
WHERE TrE_TrEId = @TrE_TrEId
-- Wczytanie poprawionych wartości
SELECT
@TrE_WartoscNetto = @TrE_WartoscZakupu,
@TrE_CenaT = CASE @TrE_IloscJM WHEN 0 THEN 0
ELSE @TrE_WartoscZakupu / @TrE_IloscJM END,
@TrE_CenaW = CASE @TrE_IloscJM WHEN 0 THEN 0
ELSE @TrE_WartoscZakupu / @TrE_IloscJM END,
@TrE_CenaWWD = CASE @TrE_IloscJM WHEN 0 THEN 0
ELSE @TrE_WartoscZakupu / @TrE_IloscJM END,
@TrE_Waluta = @WalutaSys,
@TrE_KursNumer = 0,
@TrE_KursL = 1,
@TrE_KursM = 1
END
-- wartosci pozostalych pol
SET @TrS_TrSId = ( SELECT ISNULL(MAX(TrS_TrSId),0) FROM
cdn.TraSElem ) + 1
SET @TrS_TrEId = @TrE_TrEId
SET @TrS_TrSIdDost = NULL
SET @TrS_ZwrId = NULL
SET @TrS_TwrId = @TrE_TwrId
SET @TrS_MagId = CASE WHEN @TrN_Rodzaj <> 312010 THEN
CASE WHEN @TrE_MagId is null THEN @TrN_MagZrdId ELSE @TrE_MagId END ELSE
@TrN_MagDocId END
SET @TrS_Rodzaj = @TrN_Rodzaj
SET @TrS_Metoda = @Metoda
SET @TrS_DataOpe = @TrE_DataOpe
SET @TrS_Ilosc = @TrE_Ilosc
SET @TrS_Wartosc = 0
SET @TrS_Cena = @TrE_CenaT
SET @TrS_Termin = NULL
-- dostawy
IF @TrS_Typ = 1
BEGIN
SET @TrS_Wartosc = @TrE_WartoscNetto
SET @TrS_Cena = case when @TrE_Ilosc <> 0 THEN
@TrE_WartoscNetto / @TrE_Ilosc ELSE @TrS_Wartosc END
END
-- Zwykłe dostawy PZ, PZ z FZ, PW, BO, PZ z ZD, PWP, PW z AI, MM-OL
IF @TrS_Rodzaj IN ( 307000, 307004, 303000, 310000, 307010,
317000, 303010, 312010, 313000, 313004 )
BEGIN
-- TrS_TrSIdDost i TrS_ZwrId
SET @TrS_TrSIdDost = @TrS_TrSId
SET @TrS_ZwrId = NULL
END
-- Korekty ilościowe dostaw PZKI, PZKI z FZKI, PWKI, PZKW,
BOMKI, BOMKW
IF @TrS_Rodzaj IN ( 307001, 307005, 303001, 303002, 307002,
310001, 310002, 307003, 307011, 307006, 313001, 313002, 317001 )
BEGIN
SELECT
@TrS_TrSIdDost = TrS_TrSIdDost,
@TrS_Cena = TrS_Cena,
@TrS_ZwrId = TrS_TrSId
FROM cdn.TraSElem
WHERE TrS_TrSId = ( -- TrS_TrSId pierwotnej dostawy
SELECT TOP 1 A.TrS_TrSId
FROM cdn.TraSElem A
JOIN cdn.TraElem B ON B.TrE_TrEId =
A.TrS_TrEId
WHERE B.TrE_TrEId = @TrE_ZwrId
)
END
-- Dostawa i QUAN - zerowa cena i wartosc subelementu
IF @TrS_Typ = 1 AND @TrS_Metoda = 4
BEGIN
SET @TrS_Wartosc = 0
SET @TrS_Cena = 0
END
-- daty dla rezerwacji i zamowien
-- Rezerwacja - bufor
IF @TrN_Rodzaj IN ( 308000, 308011 ) -- AND @TrN_Bufor = 1
BEGIN
SET @TrS_Termin = @TrN_DataWys
END
/*
-- Rezerwacja - zapis trwaly (rezerwacja bezterminowa)
IF @TrN_Rodzaj IN ( 308000 ) AND @TrN_Bufor = 0
SET @TrS_DataOpe = NULL --@TrE_DataDok
*/
-- Zamówienie - bufor i zapis trwaly
IF @TrN_Rodzaj IN ( 309000 )
BEGIN
SELECT @DataZamowienia = ISNULL(MAX(Fir_Wartosc),2) FROM
cdn.Firma WHERE Fir_Numer = 2075
IF @DataZamowienia = 2
SET @TrS_DataOpe = @TrN_DataWys
END
-- odwrotne ilosci dla korekt w buforze
-- FAKI, FAKI z WZKI, PAKI, PAKI z WZKI, FZKI, FZKI z PZKI,
PWKI, RWKI, WZKI, PZKI, BOMKI w buforze
IF (@TrN_Rodzaj IN ( 302001, 302005, 305001, 305005, 301001,
301005, 303001, 304001, 306001, 307001, 310001, 313001, 314001, 318001,
317001) AND @TrN_Bufor IN ( 1 ) AND @TrS_Typ IN ( 3, 4 ) AND @TrS_Ilosc
< 0 )
or (@TrN_Rodzaj = 301051 AND @TrN_Bufor IN ( 1 ) AND @TrS_Typ
IN ( 3, 4 ) AND @TrS_Ilosc < 0 and not exists (select * from cdn.TraNag
where TrN_FaId = @TrN_TrNId and TrN_Rodzaj = 307005) )
BEGIN
SET @TrS_Ilosc = - @TrE_Ilosc
/* IF @TrS_Typ IN ( 3, 4 ) AND @TrS_Ilosc < 0
SELECT
@TrS_Typ = CASE @TrS_Typ WHEN 4 THEN 3 ELSE 4 END,
@TrS_Ilosc = -@TrS_Ilosc
*/
END
-- insert subelemntu i procedura aktualizacji wartości zakupu
(subelement dodawany tylko dla towaru)
-- odczytanie typu karty (towar/usługa) oraz typu kosztu usługi
i stawki VAT dla późniejszej aktualizacji ceny zakupu
SELECT
@Twr_Typ = Twr_Typ,
@Twr_KosztUslugiTyp = Twr_KosztUslugiTyp,
@Twr_KosztUslugi = Twr_KosztUslugi,
@Twr_Stawka = Twr_Stawka,
@Twr_KursL = Twr_KursL,
@Twr_KursM = Twr_KursM
FROM cdn.Towary
WHERE Twr_TwrId = @TrE_TwrId
-- Kontrola ilosci przed dodaniem subelemntu
IF @Twr_Typ = 1 AND (( @TrS_Typ = 1 AND @TrS_Ilosc < 0 ) OR (
@TrS_Typ = 2 AND @TrS_Ilosc > 0 )) AND @TrE_IFA24Mag = 0
BEGIN
SELECT @ZawszeBraki = ISNULL(MAX(Fir_Wartosc),0) FROM
cdn.Firma WHERE Fir_Numer = 1536
if (SELECT ISNULL(MAX(Fir_Wartosc),0) FROM cdn.Firma WHERE Fir_Numer
= 1970) = 1 or (SELECT ISNULL(MAX(Fir_Wartosc),0) FROM cdn.Firma WHERE
Fir_Numer = 1776) = 1
select @ZezwalajMimoRez = 1
else
select @ZezwalajMimoRez = 0
--SELECT @ZezwalajMimoRez = ISNULL(MAX(Fir_Wartosc),0) FROM
cdn.Firma WHERE Fir_Numer = 1970
IF ((@TrS_Rodzaj IN (305001,302001,306001,302000,302009, 305000,
306000,304000,302008, 305008, 306008,304008) AND @TrS_Typ = 2)
and exists (select * from deleted join inserted on deleted.TrE_TrEID
= inserted.TrE_TrEID and inserted.TrE_TrEID = @TrE_TrEId and
deleted.tre_ilosc >= inserted.tre_ilosc and deleted.TrE_DataOpe =
inserted.TrE_DataOpe))
or
((@TrS_Rodzaj IN ( 306004,306006) AND @TrS_Typ = 2) and exists
(select TrN_TrSTyp from cdn.tranag join cdn.tranagrelacje on trr_faid=
trn_trnid and trr_trnid = @TrE_TrNID where TrN_TrSTyp =2))
SET @Komunikat = CDN.TwrIlosciErr ( 1, @TrS_Typ, @TrS_TwrId,
@TrS_MagId, @TrS_DataOpe, @TrS_Ilosc, 3)
ELSE
IF ((@TrS_Rodzaj IN (302008, 305008, 306008,304008,312008) AND
@TrS_Typ = 2)
OR (@TrS_Rodzaj =306010 AND @TrS_Typ = 2 and exists(select
trr_trrid from cdn.tranagrelacje where trr_trnid = @trn_trnid and
Trr_fatyp = 308 ))
OR (@TrS_Rodzaj =302009 AND @TrS_Typ = 2 and exists(select
trr_trrid from cdn.tranagrelacje where trr_trnid = @trn_trnid and
Trr_fatyp = 308 ))
OR (@TrS_Rodzaj =306004 AND @TrS_Typ = 2 and exists(select
trr_trrid from cdn.tranagrelacje where trr_trnid = @trn_trnid and
Trr_fatyp = 308 )))
and not exists (select * from deleted join inserted on
deleted.TrE_TrEID = inserted.TrE_TrEID and inserted.TrE_TrEID =
@TrE_TrEId and deleted.tre_ilosc < inserted.tre_ilosc)
IF @ZezwalajMimoRez = 1 and(@TrS_rodzaj in
(306008,306010,306004,304008,312008) or (@TrS_rodzaj in (302009) AND
@TrS_Typ = 2) or (@TrS_rodzaj in (302008) AND @TrS_Typ = 2) or
(@TrS_rodzaj in (305008) AND @TrS_Typ = 2))
SET @Komunikat = CDN.TwrIlosciErr ( 1, @TrS_Typ, @TrS_TwrId,
@TrS_MagId, @TrS_DataOpe, @TrS_Ilosc, 2 )
ELSE
SET @Komunikat = CDN.TwrIlosciErr ( 1, @TrS_Typ, @TrS_TwrId,
@TrS_MagId, @TrS_DataOpe, @TrS_Ilosc, 1 )
else
SET @Komunikat = CDN.TwrIlosciErr ( 1, @TrS_Typ, @TrS_TwrId,
@TrS_MagId, @TrS_DataOpe, @TrS_Ilosc, 0)
IF @Komunikat <> '' GOTO KOMUNIKAT
END
-- Marze symulowane dla FA, PA, FA z PA, RWS (symulacja poprzez
ustawienie wartosci na subelemencie rezerwacyjnym)
IF @Twr_Typ = 1 AND @TrS_Typ IN ( 3, 4 )
BEGIN
SET @Marza_Sym_Ostatnia = ( SELECT TOP 1
ISNULL(Fir_Wartosc,0) FROM cdn.Firma WHERE Fir_Numer = 1481 )
SET @Marza_Sym_Srednia = ( SELECT TOP 1
ISNULL(Fir_Wartosc,0) FROM cdn.Firma WHERE Fir_Numer = 1482 )
-- Marze symulowane tylko dla elementów z subelementami
rezerwacyjnymi - poprawa wartosći na subelementach rezerwacyjnych
IF @Marza_Sym_Ostatnia = 1 OR @Marza_Sym_Srednia = 1
BEGIN
-- w każdym przypadku symulwoana wg ostatniej ceny zakupu
SET @TrS_Wartosc = @TrE_Ilosc * ( SELECT
ROUND(ISNULL(TwC_Wartosc,0)*(@Twr_KursL/@Twr_KursM),2) FROM cdn.TwrCeny
WHERE TwC_TwrId = @TrS_TwrId AND TwC_TwCNumer = 1 )
-- jeśli marża ze średniej z zasobów i nie brakuje zasobów
IF @Marza_Sym_Srednia = 1
IF ( SELECT ISNULL(SUM(TwZ_Ilosc),0) FROM
cdn.TwrZasoby WHERE TwZ_TwrId = @TrS_TwrId ) <> 0
SET @TrS_Wartosc = @TrE_Ilosc * ( SELECT
ISNULL(SUM(TwZ_Wartosc)/SUM(TwZ_Ilosc),0) FROM cdn.TwrZasoby WHERE
TwZ_TwrId = @TrS_TwrId )
SET @TrS_Cena = CASE @TrS_Ilosc WHEN 0 THEN 0 ELSE
@TrS_Wartosc / @TrS_Ilosc END
END
END
-- Liczenie kosztu usługi dla RWS (na pozostałych wewnętrznych
koszt usługi jest zapisywany z obiektu)
IF @Twr_Typ = 0 AND @TrE_TypDokumentu = 318 and
@TrE_KosztUslugiZDok = 0
BEGIN
IF @Twr_KosztUslugiTyp = 1
SET @TrE_KosztUslugi = ROUND( @TrE_Ilosc *
@Twr_KosztUslugi, 2 )
ELSE IF @Twr_KosztUslugiTyp = 2
SET @TrE_KosztUslugi = ROUND( @TrE_WartoscNetto *
@Twr_KosztUslugi / 100, 2 )
UPDATE cdn.TraElem SET TrE_KosztUslugi = @TrE_KosztUslugi
WHERE TrE_TrEId = @TrE_TrEId
END
-- AVCO - przed dodaniem subelementu dostawczego lub kosztowego
sprawdzić date ostatniej modyfikacji zasobu
IF @TrS_Metoda = 3 AND @TrS_Typ IN ( 1, 2 )
BEGIN
SET @Data_Dost = ( SELECT ISNULL(TwZ_Data,'1800-01-01')
FROM cdn.TwrZasoby WHERE TwZ_TwrId = @TrS_TwrId AND TwZ_MagId =
@TrS_MagId AND TwZ_TrSIdDost IS NULL )
IF @TrS_DataOpe < @Data_Dost
BEGIN
-- jeśli kontrola daty ostatniej modyfiakcji zasobu
zaznaczona
IF ( SELECT TOP 1
ISNULL(MAX(SUBSTRING(Fir_Wartosc,1,1)),0) FROM cdn.Firma WHERE Fir_Numer
= 1688 ) = 0
BEGIN
SET @Komunikat = 'Zapis niemożliwy ! Dla towaru ' +
@TrE_TwrKod + ' data ostatniej modyfikacji zasobu (' + CONVERT(
NVarchar(10), @Data_Dost, 120 ) + ') jest późniejsza niż data transakcji
(' + CONVERT( NVarchar(10), @TrS_DataOpe, 120 ) + ')'
IF @Komunikat <> '' GOTO KOMUNIKAT
END
END
END
-- ustawienia korekty wartosci dla PZ z dostawami
SET @DostIloscRecordow = 0
SET @DostIloscRecordowReal = 0
IF @TrS_Rodzaj IN ( 307002,307006,310002,303002,307003, 307011)
BEGIN
SELECT @DostIloscRecordowReal =count(A.TrS_TrSId)
FROM cdn.TraSElem A
JOIN cdn.TraElem B ON B.TrE_TrEId = A.TrS_TrEId
WHERE B.TrE_TrEId = @TrE_ZwrId
END
IF @DostIloscRecordowReal > 1
BEGIN
SELECT @DostIloscRecordow =count(A.TrS_TrSId)
FROM cdn.TraSElem A
JOIN cdn.TraElem B ON B.TrE_TrEId = A.TrS_TrEId
JOIN (SELECT A.TrS_TrSId,
abs(ISNULL(A.TrS_Ilosc,0))-abs(ISNULL(B.TrS_Ilosc,0)) as Roznica
FROM cdn.TraSElem A
LEFT OUTER JOIN cdn.TraSElem B ON A.TrS_TrSId =
B.TrS_ZwrId
WHERE A.TrS_Typ = 1 AND A.TrS_TrEId = @TrE_ZwrId) AS C ON
C.TrS_TrSId = A.TrS_TrSId
WHERE B.TrE_TrEId = @TrE_ZwrId AND C.Roznica > 0
SELECT @DostTrS_Ilosc =
(SELECT ISNULL(sum(TrS_Ilosc),0) FROM cdn.TraSElem WHERE
Trs_Typ = 1 AND TrS_TrEId = @TrE_ZwrId)
+
(SELECT ISNULL(sum(TrS_Ilosc),0) FROM cdn.TraSElem WHERE
Trs_Typ = 1 AND TrS_Zwrid
in(SELECT TrS_TrSId FROM cdn.TraSElem WHERE Trs_Typ = 1
AND TrS_TrEId = @TrE_ZwrId ))
SET @DostIloscRecordowDodanych = 1
SET @ResztaWartosc = @TrE_WartoscNetto
DECLARE DostawyKorektaWartosci CURSOR LOCAL FAST_FORWARD FOR
SELECT A.TrS_TrSId
FROM cdn.TraSElem A
JOIN cdn.TraElem B ON B.TrE_TrEId = A.TrS_TrEId
JOIN (SELECT A.TrS_TrSId,
abs(ISNULL(A.TrS_Ilosc,0))-abs(ISNULL(B.TrS_Ilosc,0)) AS Roznica
FROM cdn.TraSElem A
LEFT OUTER JOIN (SELECT B.TrS_ZwrId,
SUM(ISNULL(B.TrS_Ilosc,0)) as TrS_Ilosc
FROM cdn.TraSElem A
LEFT OUTER JOIN cdn.TraSElem B ON
A.TrS_TrSId = B.TrS_ZwrId WHERE A.TrS_Typ = 1 AND A.TrS_TrEId =
@TrE_ZwrId AND B.TrS_ZwrId IS NOT NULL
GROUP BY B.TrS_ZwrId) B ON
A.TrS_TrSId = B.TrS_ZwrId
WHERE A.TrS_Typ = 1 AND A.TrS_TrEId = @TrE_ZwrId)
AS C ON C.TrS_TrSId = A.TrS_TrSId
WHERE B.TrE_TrEId = @TrE_ZwrId AND c.roznica > 0
OPEN DostawyKorektaWartosci
WHILE 1=1
BEGIN
FETCH NEXT FROM DostawyKorektaWartosci INTO @DostTrS_TrSId
IF @@FETCH_STATUS <> 0 BREAK
IF @DostIloscRecordowDodanych = @DostIloscRecordow
SELECT
@TrS_TrSIdDost = TrS_TrSIdDost,
@TrS_Cena = TrS_Cena,
@TrS_Wartosc = @ResztaWartosc,
@TrS_ZwrId = TrS_TrSId
FROM cdn.TraSElem
WHERE TrS_TrSId = @DostTrS_TrSId
ELSE
SELECT
@TrS_TrSIdDost = MAX(TrS_TrSIdDost),
@TrS_Cena = MAX(TrS_Cena),
@TrS_Wartosc = ROUND(
(@TrE_WartoscNetto/@DostTrS_Ilosc)*SUM(TrS_Ilosc),2),
@TrS_ZwrId = MIN(TrS_TrSId)
FROM cdn.TraSElem
WHERE TrS_TrSId = @DostTrS_TrSId OR TrS_ZwrID =
@DostTrS_TrSId
SET @DostIloscRecordowDodanych =
@DostIloscRecordowDodanych + 1
SET @ResztaWartosc = @ResztaWartosc - @TrS_Wartosc
--select @TrS_TrSId, @TrS_TrEId, @TrS_TrSIdDost,
@TrS_ZwrId, @TrS_TwrId, @TrS_MagId, @TrS_Rodzaj, @TrS_Typ, @TrS_Metoda,
@TrS_DataOpe, @TrS_Ilosc, @TrS_Wartosc as wartosc, @TrS_Cena,
@TrS_Termin, @TrE_ZwrId, @TrN_TrNId, @TrN_MagDocId, @TrN_Bufor
EXECUTE CDN.AktualizujTraSElem @TrS_TrSId, @TrS_TrEId,
@TrS_TrSIdDost, @TrS_ZwrId, @TrS_TwrId, @TrS_MagId, @TrS_Rodzaj,
@TrS_Typ, @TrS_Metoda, @TrS_DataOpe, @TrS_Ilosc, @TrS_Wartosc,
@TrS_Cena, @TrS_Termin, @TrE_ZwrId, @TrN_TrNId, @TrN_MagDocId, @TrN_Bufor
END
CLOSE DostawyKorektaWartosci
DEALLOCATE DostawyKorektaWartosci
UPDATE cdn.TraElem SET TrE_KosztUslugi = 0 WHERE TrE_TrEId =
@TrE_TrEId
END
-- dodanie subelemntu (towary lub usługi gdy dokumenty rozchodowe )
IF @Twr_Typ = 1 AND ISNULL(@Tre_WyborDostaw,0) = 0 AND
@DostIloscRecordowReal < 2 AND @TrE_IFA24Mag = 0
BEGIN
EXECUTE CDN.AktualizujTraSElem @TrS_TrSId, @TrS_TrEId,
@TrS_TrSIdDost, @TrS_ZwrId, @TrS_TwrId, @TrS_MagId, @TrS_Rodzaj,
@TrS_Typ, @TrS_Metoda, @TrS_DataOpe, @TrS_Ilosc, @TrS_Wartosc,
@TrS_Cena, @TrS_Termin, @TrE_ZwrId, @TrN_TrNId, @TrN_MagDocId, @TrN_Bufor
UPDATE cdn.TraElem SET TrE_KosztUslugi = 0 WHERE TrE_TrEId
= @TrE_TrEId
END
-- dodanie subelemntu dla rezerwacji (usługi)
IF @Twr_Typ = 0
BEGIN
IF @TrS_Rodzaj IN ( 307010, 302008, 305008, 306008,
301011 , 306004, 307004, 302009, 302004, 306010,304000,304008,312008,312100)
EXEC [CDN].[UstawRezerwacje] @TrS_TrEId,0,0
IF @TrE_TypDokumentu IN ( 308, 309)
BEGIN
SET @TrS_Typ = @TrS_Typ + 10
EXECUTE CDN.AktualizujTraSElem @TrS_TrSId, @TrS_TrEId,
@TrS_TrSIdDost, @TrS_ZwrId, @TrS_TwrId, @TrS_MagId, @TrS_Rodzaj,
@TrS_Typ , @TrS_Metoda, @TrS_DataOpe, @TrS_Ilosc, @TrS_Wartosc,
@TrS_Cena, @TrS_Termin, @TrE_ZwrId, @TrN_TrNId, @TrN_MagDocId, @TrN_Bufor
END
END
-- Update wartości i cen elementu dla dokumentów wewnętrznych
IF @TrE_TypDokumentu IN ( 304, 312, 318 ) AND @TrN_Rodzaj NOT
IN ( 312010 )
BEGIN
SET @TrE_WartoscZakupu = ( SELECT TrE_WartoscZakupu FROM
cdn.TraElem WHERE TrE_TrEId = @TrE_TrEId )
UPDATE cdn.TraElem SET
TrE_WartoscNetto = @TrE_WartoscZakupu,
TrE_WartoscBrutto = ROUND(@TrE_WartoscZakupu * ( ( 100
+ TrE_Stawka ) / 100 ), 2 ),
TrE_WartoscNettoWal = @TrE_WartoscZakupu,
TrE_WartoscBruttoWal = ROUND(@TrE_WartoscZakupu * ( ( 100
+ TrE_Stawka ) / 100 ), 2 ),
TrE_Rabat = 0,
TrE_CenaT = CASE TrE_IloscJM WHEN 0 THEN 0
ELSE @TrE_WartoscZakupu / TrE_IloscJM END,
TrE_CenaW = CASE TrE_IloscJM WHEN 0 THEN 0
ELSE @TrE_WartoscZakupu / TrE_IloscJM END ,
TrE_Cena0 = CASE TrE_Ilosc WHEN 0 THEN 0
ELSE @TrE_WartoscZakupu / TrE_Ilosc END ,
TrE_CenaWWD = CASE TrE_IloscJM WHEN 0 THEN 0
ELSE @TrE_WartoscZakupu / TrE_IloscJM END,
TrE_Cena0WD = CASE TrE_Ilosc WHEN 0 THEN 0
ELSE @TrE_WartoscZakupu / TrE_Ilosc END,
TrE_Waluta = @WalutaSys,
TrE_KursNumer = 0,
TrE_KursL = 1,
TrE_KursM = 1
WHERE TrE_TrEId = @TrE_TrEId
END
-- Aktualizacja ceny zakupu towaru i kosztu usługi na karcie
magazynowej dla każdego elementu PWP
-- Jeśli waluta dokumentu (naglowka) jest systemowa, to zmiana
ceny zakupu na podstawie waluty elemetnu
-- parametry waluty z elementu
IF @TrN_Waluta = @WalutaSys
BEGIN
SET @Waluta = @TrE_Waluta
SET @KursNumer = @TrE_KursNumer
SET @KursL = @TrE_KursL
SET @KursM = @TrE_KursM
SET @CenaW_New = @TrE_CenaW
END
-- parametry waluty z nagłówka
ELSE
BEGIN
SET @Waluta = @TrN_Waluta
SET @KursNumer = @TrN_KursNumer
SET @KursL = @TrN_KursL
SET @KursM = @TrN_KursM
SET @CenaW_New = @TrE_CenaWWD
END
/*
-- Sprawdzenie, czy należy aktualizować cenę zakupu na MM-OL
IF @TrN_Rodzaj = 312010
SELECT TOP 1 @Aktualizuj_CenaZ_MMOL = CONVERT(TINYINT,
ISNULL(Fir_Wartosc,0)) FROM cdn.Firma WHERE Fir_Numer = 1758
-- Rodzaj marży: 0 = "od stu", 1 = "w stu"
IF ( @TrE_TypDokumentu IN ( 310, 303, 307, 301, 317, 313 ) OR (
@TrN_Rodzaj = 312010 AND @Aktualizuj_CenaZ_MMOL = 1 ) )
AND @TrE_Ilosc > 0
AND @TrN_Bufor IN ( 0 )
BEGIN
-- parametry kursu waluty dla towaru lub usługi z typem
kwotowym
IF @Twr_Typ = 1 OR ( @Twr_Typ = 0 AND @Twr_KosztUslugiTyp = 1 )
UPDATE cdn.Towary SET
Twr_Waluta = @Waluta,
Twr_KursNumer = @KursNumer,
Twr_KursL = @KursL,
Twr_KursM = @KursM
WHERE Twr_TwrId = @TrE_TwrId
-- koszt usługi ( usługa i typ kosztu kwotowy )
IF @Twr_Typ = 0 AND @Twr_KosztUslugiTyp = 1
BEGIN
-- od netto
IF @TrE_TypNB = 1
BEGIN
SET @Twr_KosztUslugiNew = @TrE_CenaT
SET @Twr_KosztUslugiWalNew = @CenaW_New
END
-- od brutto
ELSE IF @TrE_TypNB = 2
BEGIN
SET @Twr_KosztUslugiNew = @TrE_CenaT - ROUND (
@TrE_CenaT * @TrE_Stawka / (100 + @TrE_Stawka) , 2 )
SET @Twr_KosztUslugiWalNew = @CenaW_New - ROUND (
@CenaW_New * @TrE_Stawka / (100 + @TrE_Stawka) , 2 )
END
UPDATE cdn.Towary SET
Twr_KosztUslugi = @Twr_KosztUslugiNew,
Twr_KosztUslugiWal = @Twr_KosztUslugiWalNew
WHERE Twr_TwrId = @TrE_TwrId
END
-- Kursor po cenach dla towaru lub usługi z kosztem kwotowym:
-- aktualizacja ceny zakupu (TwC_TwCNumer = 1)
-- aktualizacja marży dla cen sprzedaży z aktualizacją
ustawiną na "Nie" ( TwC_TwCNumer <> 1 AND TwC_Aktualizacja = 0 )
IF @Twr_Typ = 1 OR ( @Twr_Typ = 0 AND @Twr_KosztUslugiTyp = 1 )
BEGIN
DECLARE TwrCeny CURSOR LOCAL FAST_FORWARD FOR
SELECT TwC_TwCNumer, TwC_TwCId, TwC_Waluta,
TwC_Wartosc, TwC_Typ
FROM cdn.TwrCeny
WHERE TwC_TwrId = @TrE_TwrId AND TwC_TwCNumer = 1
UNION ALL
SELECT TwC_TwCNumer, TwC_TwCId, TwC_Waluta,
TwC_Wartosc, TwC_Typ
FROM cdn.TwrCeny
WHERE TwC_TwrId = @TrE_TwrId AND TwC_TwCNumer <> 1
AND TwC_Aktualizacja = 0
OPEN TwrCeny
WHILE 1=1
BEGIN
FETCH NEXT FROM TwrCeny INTO @TwC_TwCNumer,
@TwC_TwCId, @TwC_Waluta, @TwC_Wartosc, @TwC_Typ
IF @@FETCH_STATUS <> 0 BREAK
-- aktualizacja ceny zakupu
IF @TwC_TwCNumer = 1
BEGIN
-- od netto
IF @TrE_TypNB = 1
IF @TwC_Typ = 1
SET @TwC_Wartosc = @CenaW_New * (
@TrE_JMPrzelicznikM / @TrE_JMPrzelicznikL )
ELSE
SET @TwC_Wartosc = ( @CenaW_New + ROUND(
@CenaW_New * @TrE_Stawka / 100, 2 ) ) * ( @TrE_JMPrzelicznikM /
@TrE_JMPrzelicznikL )
-- od brutto
ELSE IF @TrE_TypNB = 2
IF @TwC_Typ = 1
SET @TwC_Wartosc = ( @CenaW_New - ROUND(
@CenaW_New * @TrE_Stawka / ( 100+@TrE_Stawka), 2 ) ) * (
@TrE_JMPrzelicznikM / @TrE_JMPrzelicznikL )
ELSE
SET @TwC_Wartosc = @CenaW_New * (
@TrE_JMPrzelicznikM / @TrE_JMPrzelicznikL )
UPDATE cdn.TwrCeny SET
TwC_Wartosc = @TwC_Wartosc,
TwC_Waluta = @Waluta
WHERE TwC_TwCId = @TwC_TwCId
SET @CenaZakupuNew = @TwC_Wartosc
SET @CenaZakupuNewWal = @CenaZakupuNew
SET @CenaZakupuNewPLN = @CenaZakupuNew *
@KursL/@KursM
END -- @TwC_TWCNumer = 1
-- aktualizacja marż dla cen sprzedaży
-- tylko wtedy, gdy waluta zakupu i sprzedaży są
równe lub gdy waluta sprzedazy jest systemowa
ELSE IF @TwC_TwCNumer <> 1 AND ( @TwC_Waluta =
@Waluta OR @TwC_Waluta = @WalutaSys )
BEGIN
-- cena sprzedaży brutto - obliczamy jej
reprezentację netto
IF @TwC_Typ = 2
SET @TwC_Wartosc = @TwC_Wartosc - ROUND(
@TwC_Wartosc * @Twr_Stawka / ( 100 + @Twr_Stawka), 2 )
-- marża "od stu" i "w stu"
IF @CenaZakupuNew <> 0
BEGIN
-- jeśli waluta zakupu i sprzedaży są
równe, to bierzemy cenę zakupu w walucie dokumentu
-- w przeciwnym przypadku, gdy cena
sprzedaży jest w walucie systemowej, to bierzemy cenę zakupu w walucie
systemowej
IF @TwC_Waluta = @WalutaSys AND @Waluta <>
@WalutaSys
SET @CenaZakupuNew = @CenaZakupuNewPLN
ELSE
SET @CenaZakupuNew = @CenaZakupuNewWal
SET @TwC_Marza = ( ( @TwC_Wartosc /
@CenaZakupuNew ) - 1 ) * 100
IF ( @TwC_Marza = -100 ) OR (
@CenaZakupuNew = @TwC_Wartosc )
SET @TwC_MarzaWStu = 100
ELSE IF @TwC_Wartosc = 0
SET @TwC_MarzaWStu = -100
ELSE
SET @TwC_MarzaWStu = 100 * @TwC_Marza /
( 100 + @TwC_Marza )
IF @TwC_Marza > 99999.99 SET
@TwC_Marza = 99999.99
IF @TwC_MarzaWStu > 99999.99 SET
@TwC_MarzaWStu = 99999.99
IF @TwC_Marza < - 99999.99 SET @TwC_Marza = -99999.99
IF @TwC_MarzaWStu < - 99999.99 SET
@TwC_MarzaWStu = -99999.99
END
IF @TwC_Marza IS NOT NULL AND
@TwC_MarzaWStu IS NOT NULL
UPDATE cdn.TwrCeny SET
TwC_Marza = @TwC_Marza,
TwC_MarzaWStu = @TwC_MarzaWStu
WHERE TwC_TwCId = @TwC_TwCId
END
END -- kursor TwrCeny
CLOSE TwrCeny
DEALLOCATE TwrCeny
END -- Towar lub usługa z kosztem kwotowym
END -- aktualizacji ostatniej ceny zakupu
IF @MyIdentity IS NOT NULL
BEGIN
SET IDENTITY_INSERT cdn.Idn ON
INSERT INTO cdn.Idn (i) VALUES (@MyIdentity)
SET IDENTITY_INSERT cdn.Idn OFF
DELETE FROM cdn.Idn WHERE i = @MyIdentity --WiNi
END
*/
END
CLOSE Dodawane
DEALLOCATE Dodawane
-- KosztUslugi = 0 dla towarów
UPDATE CDN.TraElem SET TrE_KosztUslugi = 0 WHERE TrE_TrEId IN (select
TrE_TrEId FROM inserted join cdn.towary on inserted.tre_twrid =
twr_twrid and twr_typ = 1)
-- sprawdzenie towaru z elementu po modyfikacjach dla dodawanych i
kasowanych
DECLARE EKI CURSOR LOCAL FAST_FORWARD FOR
SELECT TrE_TrEId, TrE_TwrId, TrE_DataOpe, TrE_TwrKod, TrE_TwrNazwa
FROM (
SELECT TrE_TrEId, TrE_TwrId, TrE_DataOpe, TrE_TwrKod,
TrE_TwrNazwa
FROM deleted where ISNULL(Tre_WyborDostaw,0) = 0
UNION ALL
SELECT TrE_TrEId, TrE_TwrId, TrE_DataOpe, TrE_TwrKod,
TrE_TwrNazwa
FROM inserted where ISNULL(Tre_WyborDostaw,0) = 0
) AS TrE_ERR
GROUP BY TrE_TrEId, TrE_TwrId, TrE_DataOpe, TrE_TwrKod, TrE_TwrNazwa
OPEN EKI
WHILE 1=1
BEGIN
FETCH NEXT FROM EKI INTO @TrE_TrEId, @TrE_TwrId, @TrE_DataOpe,
@TrE_TwrKod,@TrE_TwrNazwa
IF @@FETCH_STATUS <> 0 BREAK
SET @Komunikat = CDN.TwrZasobyErr ( @TrE_TrEId, @TrE_TwrId,
@TrE_TwrKod,@TrE_TwrNazwa, @TrE_DataOpe )
IF @Komunikat <> '' GOTO KOMUNIKAT
END
CLOSE EKI
DEALLOCATE EKI
-- Wyswietlenie komunikatu i rollback całej transakcji
KOMUNIKAT:
IF @Komunikat <> ''
BEGIN
RAISERROR( '%s', 16, 1, @Komunikat)
ROLLBACK TRAN
SET NOCOUNT OFF
RETURN
END
SET NOCOUNT OFF

>
>> Przykład z życia: pad prądu w środku wpisywania dokumentu. W różnych
>> systemach następuje rozjazd pomiędzy stanami handlowymi a stanami
>> magazynowymi, natomiast w Optimie/XL/Enovie praktycznie nigdy. Znam
>> tylko kilka zgłoszonych przypadków przez blisko 20 lat.
> Zatem mylisz transakcję bazodanową (która została wycofana, po padł
> prąd), ze spójnością danych logicznych zapewnioną przez triggery, po
> stronie bazy danych.
> I tak przez blisko 20 lat :P
>

Być może mylę - nie przeczę.
Bazodanowa - to jak coś w rodzaju TTS w Novellu?
Ale to chyba na innym poziomie, niż logiczna spójność. Muszę doczytać.
Jakiś link?


--
Pozdrawiam.

Adam

[wloochacz]

W dniu 2017-07-05 o 15:21, Adam pisze:

> W dniu 2017-07-05 o 13:30, wloochacz pisze:
>> W dniu 2017-06-20 o 15:20, Adam pisze:
>> /ciach/
>>
>>> Natomiast Symfonia czy jakieś tam Inserty mają oprócz tego, co
>>> napisałeś jeszcze sporo innych problemów. Najpoważniejsze: brak
>>> spójności systemu. Bywa u klientów, że towar zostanie pobrany na
>>> dokument, a nie zejdzie ze stanu magazynowego.
>>>
>>> W przypadku Optimy, CDN-XL czy Enovy - o spójność baz danych dbają
>>> triggery.
>> No popatrz, mam bazę Enovy (stan na rok 2015, ale nie sadzę aby były aż
>> tak poważne zmiany) pod ręką i nie ma w niej ani jednego triggera.
>> Tak wszystko co piszesz poniżej w kontekście Enovy, nie jest prawdziwe...
>
> Aż zobaczyłem do jakiejś bazy:

/ciach/

> itd - 490 rekordów.
No i co tam zobaczyłeś, bo nic z tego nie rozumiem...

> Optimka ma 272, CDN-XL ma 852.
> Zresztą do XL masz dokumentację, podsyłałem Ci kiedyś.

Pisałem o Enovie, a Ty mi tu pokazujesz XL.
A to, że "logika" w ERP XL jest w bazie danych, to jasne.
Burdel z tym taki, że łooo matko...
A najlepiej jest wtedy, gdy mam na przestrzeni kilku lat, kilka firm
obsługujących ten sam system u klienta (tzw. fakt autentyczny i dotyczy
ERP XL), robi własne zmiany w triggerach.
Każda z tych firm grzebie sobie w bazie jak im się podoba.
Po kilkunastu takich zmianach, nikt tak naprawdę nie wie co w tym
trigger-hell się dzieje i kiedy się dzieje...

>>> Albo cała transakcja (w znaczeniu ścieżki logicznej zdarzeń)
>>> przejdzie, albo cała zostanie wycofana. Nawet, gdybym grzebał
>>> bezpośrednio w tabelach z danymi, transakcje są spójne, albo trigger
>>> nie pozwoli zmienić pola, gdy pozostałe warunki nie są zachowane.
>>> Jest to bardzo dobre dla serwisantów.
>> Dobre dla serwisantów?
>> A co to za serwisant, który grzebie w bazie nie wiedząc jakie będę tego
>> konsekwencje dla całego systemu?
>>
>> Taki "serwisant" niech lepiej trzyma lepkie łapki blisko siebie...
>
> E, tam, nie przesadzaj.

Jasne, ale mam inną opinię.

> Przykładowy trigger dotyczący elementu transakcji (np. faktury) poniżej.

Myślę, że ten trigger jest z definicji zjebany.

Select top 1?
A co w przypadku, kiedy insert będzie batchowy i będzie więcej niż jeden
rekord wkładany w tym samym czasie?

Dlatego powtórzę: "Taki "serwisant" niech lepiej trzyma lepkie łapki
blisko siebie..."
Na co Ty - nie przesadzaj...

> Myślisz, że bez triggera ktoś by to zapamiętał?

Tak, ale to wymaga programowania w ERPie, a nie w jego bazie.

Poza tym ten cały trigger, jest wzorcowym przykładem jak nie należy tego
robić i dlaczego nie należy tak tego robić.
Po prostu utrzymanie takiego systemu to istny horror-szoł...

>>> Przykład z życia: pad prądu w środku wpisywania dokumentu. W różnych
>>> systemach następuje rozjazd pomiędzy stanami handlowymi a stanami
>>> magazynowymi, natomiast w Optimie/XL/Enovie praktycznie nigdy. Znam
>>> tylko kilka zgłoszonych przypadków przez blisko 20 lat.
>> Zatem mylisz transakcję bazodanową (która została wycofana, po padł
>> prąd), ze spójnością danych logicznych zapewnioną przez triggery, po
>> stronie bazy danych.
>> I tak przez blisko 20 lat :P
>>
>
> Być może mylę - nie przeczę.
> Bazodanowa - to jak coś w rodzaju TTS w Novellu?

Bazodanowa to bazodanowa, zgodna z ACID.
W porównaniu do ACID, TTS w Novell to bieda wersja, ale głównie dlatego
że operuje na plikach (czy na blokach pliku? Ja jestem noga od Novella i
wiem tyle ile wyczytam) i z tego co wiem, wymaga interakcji z Novell TTS.
W bazie danych nie posługujesz się pojęciem pliku i nic Cię on nie
obchodzi, a sama transakcja dotyczy wszystkich (zazwyczaj chodzi o
polecania DML, ale bywa różnie w różnych bazach danych) poleceń SQL,
które są nią objęte.

> Ale to chyba na innym poziomie, niż logiczna spójność. Muszę doczytać.
> Jakiś link?

ACID
https://pl.wikipedia.org/wiki/ACID
https://msdn.microsoft.com/en-us/library/aa480356.aspx?f=255&MSPPError=-2147217396

--
wloochacz

[Adam]

W dniu 2017-07-10 o 19:47, wloochacz pisze:

> W dniu 2017-07-05 o 15:21, Adam pisze:
>> W dniu 2017-07-05 o 13:30, wloochacz pisze:
>>> W dniu 2017-06-20 o 15:20, Adam pisze:
>>> /ciach/
>>>
>>>> Natomiast Symfonia czy jakieś tam Inserty mają oprócz tego, co
>>>> napisałeś jeszcze sporo innych problemów. Najpoważniejsze: brak
>>>> spójności systemu. Bywa u klientów, że towar zostanie pobrany na
>>>> dokument, a nie zejdzie ze stanu magazynowego.
>>>>
>>>> W przypadku Optimy, CDN-XL czy Enovy - o spójność baz danych dbają
>>>> triggery.
>>> No popatrz, mam bazę Enovy (stan na rok 2015, ale nie sadzę aby były aż
>>> tak poważne zmiany) pod ręką i nie ma w niej ani jednego triggera.
>>> Tak wszystko co piszesz poniżej w kontekście Enovy, nie jest
>>> prawdziwe...
>>
>> Aż zobaczyłem do jakiejś bazy:
> /ciach/
>
>> itd - 490 rekordów.
> No i co tam zobaczyłeś, bo nic z tego nie rozumiem...
>

Wylistowałem triggery z bazy danych Enovy, baza z roku 2014.

>> Optimka ma 272, CDN-XL ma 852.
>> Zresztą do XL masz dokumentację, podsyłałem Ci kiedyś.
> Pisałem o Enovie, a Ty mi tu pokazujesz XL.
> A to, że "logika" w ERP XL jest w bazie danych, to jasne.

W Enovie chyba też.
Mam tylko kilku klientów z Enovy, robionych zresztą "z doskoku". Od
ładnych kilku lat jakoś nie mogę się zebrać, aby skoczyć do Roberta
podpisać umowę.
W każdym razie bazy Enovy nie naprawiałem, nie znam jej tak, jak baz
dawnego CDN-u.

> Burdel z tym taki, że łooo matko...

Dopóki nie zatrudniali studentów, i dopóki CDN to był CDN a nie jakiś
Comarch, to było dobrze :(

> A najlepiej jest wtedy, gdy mam na przestrzeni kilku lat, kilka firm
> obsługujących ten sam system u klienta (tzw. fakt autentyczny i dotyczy
> ERP XL), robi własne zmiany w triggerach.

Niestety, czasem nawet do wydruku w Crystalu trzeba podpiąć pod bazę
dodatkowe tabele i triggery. Mam tak w jednej specyficznej firmie -
obrót "żelastwem" na budowy (kształtowniki, ramy, pojemniki, pręty, itp).

> Każda z tych firm grzebie sobie w bazie jak im się podoba.
> Po kilkunastu takich zmianach, nikt tak naprawdę nie wie co w tym
> trigger-hell się dzieje i kiedy się dzieje...
>

Najgorzej to przejąć takiego klienta. Robi się dla niego jakiś dodatkowy
wydruk lub mniej typowy obieg dokumentów, i to, co chodzi na bazach
testowych albo u innych klientów, u niego nie chce :(

>>>> Albo cała transakcja (w znaczeniu ścieżki logicznej zdarzeń)
>>>> przejdzie, albo cała zostanie wycofana. Nawet, gdybym grzebał
>>>> bezpośrednio w tabelach z danymi, transakcje są spójne, albo trigger
>>>> nie pozwoli zmienić pola, gdy pozostałe warunki nie są zachowane.
>>>> Jest to bardzo dobre dla serwisantów.
>>> Dobre dla serwisantów?
>>> A co to za serwisant, który grzebie w bazie nie wiedząc jakie będę tego
>>> konsekwencje dla całego systemu?
>>>
>>> Taki "serwisant" niech lepiej trzyma lepkie łapki blisko siebie...
>>
>> E, tam, nie przesadzaj.
> Jasne, ale mam inną opinię.
>
>> Przykładowy trigger dotyczący elementu transakcji (np. faktury) poniżej.
> Myślę, że ten trigger jest z definicji zjebany.
>

Wziąłem pierwszy lepszy z brzegu, tam gdzie mi kursor myszki w
Management Studio stanął.

> Select top 1?
> A co w przypadku, kiedy insert będzie batchowy i będzie więcej niż jeden
> rekord wkładany w tym samym czasie?

Z tego, co na szybko popatrzyłem to TOP 1 wskazuje na typ i rodzaj
dokumentu. Dokument może być tylko i wyłącznie jednego rodzaju czy typu
i nie podlega zmianom. Tu akurat IMO nie ma błędu. Zresztą te flagi są
zakładane w momencie inicjacji rekordu, a rekord jest blokowany na
wyłączność w trakcie inicjalizacji.

>
> Dlatego powtórzę: "Taki "serwisant" niech lepiej trzyma lepkie łapki
> blisko siebie..."
> Na co Ty - nie przesadzaj...
>
>> Myślisz, że bez triggera ktoś by to zapamiętał?
> Tak, ale to wymaga programowania w ERPie, a nie w jego bazie.
>

A później ktoś mnie woła do jakiegoś Wf-Maga, że poszła faktura a towar
dalej wisi na stanie.
Wydaje mi się, że triggery w tym momencie dużo pomagają i jeszcze więcej
(a w zasadzie całkowicie) zabezpieczają bazę.
Zważ na to, że systemy CDN-u (łącznie z FPP) są poniekąd "otwarte",
można coś "wtykać" choćby przez API.
Nie wyobrażam sobie tworzenia własnych, nawet najprostszych formatek czy
funkcji dodatkowych bez triggerów.

> Poza tym ten cały trigger, jest wzorcowym przykładem jak nie należy tego
> robić i dlaczego nie należy tak tego robić.
> Po prostu utrzymanie takiego systemu to istny horror-szoł...

Nie mam innych doświadczeń, brak podstaw abym się wypowiadał.

>>>> Przykład z życia: pad prądu w środku wpisywania dokumentu. W różnych
>>>> systemach następuje rozjazd pomiędzy stanami handlowymi a stanami
>>>> magazynowymi, natomiast w Optimie/XL/Enovie praktycznie nigdy. Znam
>>>> tylko kilka zgłoszonych przypadków przez blisko 20 lat.
>>> Zatem mylisz transakcję bazodanową (która została wycofana, po padł
>>> prąd), ze spójnością danych logicznych zapewnioną przez triggery, po
>>> stronie bazy danych.
>>> I tak przez blisko 20 lat :P
>>>
>>
>> Być może mylę - nie przeczę.
>> Bazodanowa - to jak coś w rodzaju TTS w Novellu?
> Bazodanowa to bazodanowa, zgodna z ACID.
> W porównaniu do ACID, TTS w Novell to bieda wersja, ale głównie dlatego
> że operuje na plikach (czy na blokach pliku? Ja jestem noga od Novella i
> wiem tyle ile wyczytam) i z tego co wiem, wymaga interakcji z Novell TTS.

Novella zaprzestałem serwisować już gdzieś na v.5.x - więc dość dawno
temu. Aczkolwiek jeszcze kilka lat temu coś naprawiałem w bazach KH w
jakiejś Spółdzielni Mieszkaniowej - jakoś mnie przez kogoś znaleźli.
Mieli CDN Klasykę na Novellu, a sieć na RG58.

> W bazie danych nie posługujesz się pojęciem pliku i nic Cię on nie
> obchodzi, a sama transakcja dotyczy wszystkich (zazwyczaj chodzi o
> polecania DML, ale bywa różnie w różnych bazach danych) poleceń SQL,
> które są nią objęte.
>
>> Ale to chyba na innym poziomie, niż logiczna spójność. Muszę doczytać.
>> Jakiś link?
> ACID
> https://pl.wikipedia.org/wiki/ACID
> https://msdn.microsoft.com/en-us/library/aa480356.aspx?f=255&MSPPError=-2147217396

Dzięki, w wolnej chwili poczytam.


--
Pozdrawiam.

Adam