# Wewnątrz wzorca definiuje się marginesy, wymiary etykiety                   
# oraz docelowo wywołuje się wydruk                                           
# TU: układ strony z etykietami ma układ: 4 kolumny x 9 rzędów                 
# Treść etykiety definiowana wewnątrz wzorca          
# Ilość etykiet = domyślnie z dokumentu z możliwością zmiany                                  
# 
# Data utworzenia: 08/2020 PZ, ET 
#-------------------------------------------------------------------          
#
#...................................................................
# Lista pozycji do druku                   
#...................................................................                                                       
T ţRok={ţFragment{ş-Dokument-ş;-2}}                                                               
T ţMc={ţFragment{ş-Dokument-ş;-5;2}}                                                              
T ţIndeks1{176;;şDos.şFAş-Dokument-ş;Pozycje;ţRok .ţMc .01} ţCofnijWiersze{3}                          
Tţ{                                                                                               
T ţRekord{176;ţPozycje[];Pozycja;ţRok .ţMc .01}                                                         
T ţţ{Poz_ ţPozycja[NUM_POZ]}={ţFormatLiczby{ţPozycja[ILOSC];999}}
T ţPorównaj{ţPozycja[INDEKS];;;                                                                    
T   ţWierszOkna{DoDruku;ţPozycja[NUM_POZ] ţPozycja[INDEKS] ţPozycja[INAZWA];Poz_ţPozycja[NUM_POZ]} 
T }                                                                                                
T ţCofnijWiersz                                                                                    
T}                                                                                                
TţOkno{DoDruku;Pozycje z dokumentu;Proszę wprowadzić ilość etykiet do druku:} ţCofnijWiersz                        
#                                                                                                 
# ..................................................................          
# Do indywidualnej edycji                                                     
# .................................................................   
# Marginesy strony z etykietami 
Tţţ{margines górny}={2} ţţ{margines lewy}={0} ţCofnijWiersz 
#                    ^                     ^
#       wartość marginesu górnego    wartość marginesu lewego 
# ................................................................. 
#  Wymiary etykiety
TţSzerokość={52.5} ţWysokość={29.7}  ţKolumn={4}  ţRzędów={9} ţCofnijWiersz 
# ustalenie:   ^                ^             ^            ^               
#         szerokości      wysokości   ilości kolumn   ilości rzędów      
# dla pojedynczej etykiety                                                    
#                                                                             
# ......................................................................... 
# Koniec indywidulanej edycji                                                 
#..........................................................................  
# 
# Wiersz i kolumna początkowa 
TţKolumna={1} ţRząd={1} ţCofnijWiersz
#
# Pytanie operatora o zmianę współrzędnych początkowych 
# 
#TţWierszOkna{Współrzędne;Współrzędne pierwszej etykiety:} ţCofnijWiersz
#TţWierszOkna{Współrzędne;Rząd    1-ţRzędów;Rząd}          ţCofnijWiersz
#TţWierszOkna{Współrzędne;Kolumna 1-ţKolumn;Kolumna}       ţCofnijWiersz
#TţWierszOkna{Współrzędne;}                                ţCofnijWiersz
#
TţPowtórzJeżeli~{
TţPowtórz{1;%2ţA02{ţPorównaj{ţ={%1};.T.;ţTR_I={0}}}}
T}
#
TţPowtórzJeżeli{ ţKolumna > ţKolumn | ţKolumna < 1 | ţRząd > ţRzędów | ţRząd < 1;
T  ţOkno{Współrzędne;Współrzędne początkowe; Program rozpocznie wydruk od wskazanego miejsca}
T}
# 
# Pozycję liczy od 0,0 
# 
TţSUMA{Rząd;-1} ţSUMA{Kolumna;-1} ţCofnijWiersz 
#
#==============================================================================
# Funkcja ustalająca położenie etykiety  
#============================================================================== 
TţPoz~{
T ţPorównajLiczby{ţRząd; ţRzędów; ţKolumna={0} ţRząd={0} ţNowaStrona}
T ţX={ţ={ţKolumna * ţSzerokość + ţţ{margines lewy};}}
T ţY={ţ={ţRząd    * ţWysokość  + ţţ{margines górny};}}
T ţSuma{Kolumna;1}
T ţPorównajLiczby{ţKolumna;ţKolumn;ţKolumna={0}ţSuma{Rząd;1}}
T ţXY{ţX;ţY}ţMarginesy{0;0;ţX;0}
T} ţCofnijWiersz
#
#=============================================================================== 
#         Definicja etykiety 
#=============================================================================== 
PţEtykieta~{
P ţCzcionka{Arial;10} ţKIM{şIndeks towaru ş;KIM}
#P ţProstokąt{ţX;ţY;+ţSzerokość;+ţWysokość;}                 ţ# ramka
P ţXY{ţX;+1.5em}ţPogrub{ţDoŚrodka{şIndeks towaru ş;ţSzerokość}}
P ţXY{ţX;+1em}ţCzcionka{Arial;9}ţXY{;+0.2em}ţDoŚrodka{ţFragment{ş--------------- Nazwa towaru -------------------ş;1;35};ţSzerokość}
P ţXY{ţX;+1em}ţX{+0.5em}ţDoŚrodka{ţFragment{ş--------------- Nazwa towaru -------------------ş;36;60};ţSzerokość}
P ţXY{ţX;+1em}ţXY{+0.1em;+0.5em}ţDośrodka{ţEAN128{ş-----------Kod KID----------ş;0.3;4};ţSzerokość}
P ţXY{ţX;+1em}ţCzcionka{;11}ţXY{+0.5em;+0.5em}ţDoŚrodka{Cena brutto: ţLtrim{ţCenaSpr{şIndeks towaru ş;4;50;10}} zł/şJzş;ţSzerokość}
P ţXY{ţX;+1em}ţCzcionka{;7}ţXY{-5;-0.5em}ţDoPrawej{ţOblicz{ţCenaSpr{şIndeks towaru ş;4;50;10}/ţKIM[WSTECH];999 999 999 999.99} za 1 ţKIM[JMTECH];ţSzerokość}
P} ţCofnijWiersz
#
#===============================================================================
# Wydruk etykiet 
#===============================================================================
PţPowtórz{ţţ{Poz_şPş};ţPoz{}ţEtykieta{}}