#================================================================================================== 
# Algorytm drukowania pozycji faktury posortownych wg symbolu Q12
# Podsumy wartości dla każdego symbolu Q12
#
# ET 2019/03 
#================================================================================================== 
#-------------------------------------------------------------------------------------------------- 
# Ustalenie kodu Q12 
#-------------------------------------------------------------------------------------------------- 
P ţ70{q12;şSymbol Q12ş} 
# 
#-------------------------------------------------------------------------------------------------- 
# Zapamiętanie symboli Q12 dla każdej pozycji
# Sortowanie wg symbolu Q12+nr pozycji z faktury 
#-------------------------------------------------------------------------------------------------- 
P ţ62{Q12;;} 
P ţ62{Q12;;ţ70{q12}şPş;ţ70{q12}} 
# 
#-------------------------------------------------------------------------------------------------- 
# Przygotowanie i zapamiętanie linii pozycji do wydruku
# Sortowanie jw 
#-------------------------------------------------------------------------------------------------- 
P ţ62{Pozycje;;ţ70{q12}şPş;şIndeks towaru ş ş-- Ilosc ---ş şJSş │şPozycja-netto wlş} 
# 
#-------------------------------------------------------------------------------------------------- 
# Obliczenie podsumowań w osobnych rejestrach dla każdego symbolu Q12 
#-------------------------------------------------------------------------------------------------- 
P ţ96{TR_SUMA;;Suma ţ70{q12};şPozycja-netto wlş;999 999 999 999.99}  
P ţ50{;-6em} 
#
#--------------------------------------------------------------------------------------------------
# Drukowanie
#-------------------------------------------------------------------------------------------------- 
# Dowolna wartość poprzednia, aby wydrukował pierwszy symbol Q12 
T ţ70{pQ12;?} 
T ┌ţ50{+3em}┬ţ50{+50em}┬ţ50{+19em}┐ 
# 
#-------------------------------------------------------------------------------------------------- 
# Wydruk pozycji i podsumowań (musi być w jednym wierszu) 
#--------------------------------------------------------------------------------------------------
T ţ70{q12;ţ62{Q12}}ţ60{ţ70{q12};ţ70{pQ12};;ţ60{ţ70{pQ12};?;;│││ -----------------│ţ50{;+1em}││Podsuma │ţ70{Suma ţ70{pQ12}}│ţ50{;+1em}}││Symbol Q12: ţ70{q12}││ţ50{;+1em}}│ţ96{TR_INC;;lp;999}│ţ62{Pozycje}│ ţ70{pQ12;ţ70{q12}}
# 
#-------------------------------------------------------------------------------------------------- 
# Wydruk ostatniego podsumowania 
#-------------------------------------------------------------------------------------------------- 
T │││ -----------------│ 
T ││Podsuma │ţ70{Suma ţ70{q12}}│
T └┴┴┘