#================================================================================================= 
# Algorytm drukowania pozycji faktury posortownych wg adresu dostawy na zamówieniu
# Podsumy dla każdego adresu dostawy
#
# PZ 2018/06 
#================================================================================================= 
# 
#-------------------------------------------------------------------------------------------------- 
# Ustalenie adresu dostawy 
#-------------------------------------------------------------------------------------------------- 
T ţ70{odbdost;şPla.ş} 
P ţ96{TR_REKORD;;314;ţ70{odbdost}ZLşPNr zamow.ş;Zamówienie} 
P ţ70{shipto;ţ62{Zamówienie;SHIPTO}} 
# 
#--------------------------------------------------------------------------------------------------- 
# Zapamiętanie adresów dostawy dla każdej pozycji
# Sortowanie wg ShipTo+Nr zamówienia+nr pozycji z faktury 
#--------------------------------------------------------------------------------------------------- 
P ţ62{ShipTo;;ţ70{shipto}şPNr zamow.şşPş;ţ70{shipto}} 
# 
#--------------------------------------------------------------------------------------------------- 
# Przygotowanie i zapamiętanie linii pozycji do wydruku
# Sortowanie jw 
#--------------------------------------------------------------------------------------------------- 
P ţ62{Pozycje;;ţ70{shipto}şPNr zamow.şşPş;şIndeks towaru ş ş-- Ilosc ---ş şJSş │şPozycja-netto wlş} 
# 
#---------------------------------------------------------------------------------------------------- 
# Obliczenie podsumowań w osobnych rejestrach dla każdego ShipTo 
#---------------------------------------------------------------------------------------------------- 
P ţ96{TR_SUMA;;Suma ţ70{shipto};şPozycja-netto wlş;999 999 999 999.99}  
P ţ50{;-6em} 
#
#----------------------------------------------------------------------------------------------------
# Drukowanie
#---------------------------------------------------------------------------------------------------- 
# Dowolna wartość poprzednia aby wydrukował pierwszy symbol adresu ShipTo 
T ţ70{shipto pop;?}
T ┌ţ50{+3em}┬ţ50{+50em}┬ţ50{+19em}┐ 
# 
#---------------------------------------------------------------------------------------------------- 
# Wydruk pozycji i podsumowań (musi być w jednym wierszu) 
#----------------------------------------------------------------------------------------------------
T ţ70{shipto;ţ62{ShipTo}}ţ60{ţ70{shipto};ţ70{shipto pop};;ţ60{ţ70{shipto pop};?;;│││ -----------------│ţ50{;+1em}││Podsuma │ţ70{Suma ţ70{shipto pop}}│ţ50{;+1em}}││Adres [ţ70{shipto}]││ţ50{;+1em}}│ţ96{TR_INC;;lp;999}│ţ62{Pozycje}│ ţ70{shipto pop;ţ70{shipto}}
# 
#---------------------------------------------------------------------------------------------------- 
# Wydruk ostatniego podsumowania 
#---------------------------------------------------------------------------------------------------- 
T │││ -----------------│ 
T ││Podsuma │ţ70{Suma ţ70{shipto}}│
T └┴┴┘