# Wzorzec etykiet
# 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 10 rzędów
# Treść etykiety definiowana wewnątrz wzorca
# Ilość etykiet = 1
#
# Data utworzenia: 04/2018 PZ, ET
#-------------------------------------------------------------------
# ..................................................................
# Do indywidualnej edycji
# .................................................................
# Marginesy strony z etykietami
#Tţ70{margines górny;20} ţ70{margines lewy;5} ţ50{;-1em}
# ^ ^
# wartość marginesu górnego wartość marginesu lewego
# .................................................................
# Wymiary etykiety
#Tţ70{szerokość;50} ţ70{wysokość;37} ţ70{kolumn;4} ţ70{rzędów;7} ţ50{;-1em}
# 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ţ70{kolumna;1} ţ70{rząd; 1} ţ50{;-1em}
#
# Pytanie operatora o zmianę współrzędnych początkowych
#
#Tţ62{Współrzędne;;01;Współrzędne pierwszej etykiety:}ţ50{;-1em}
#Tţ62{Współrzędne;rząd;02;Rząd 1-ţ70{rzędów}}ţ50{;-1em}
#Tţ62{Współrzędne;kolumna;03;Kolumna 1-ţ70{kolumn}}ţ50{;-1em}
#Tţ62{Współrzędne;;04;}ţ50{;-1em}
#Tţ50{;-1em}ţ92{1;ţ93{Współrzędne;Współrzędne początkowe; Program rozpocznie wydruk od wskazanego miejsca}ţ61{ţ70{kolumna};ţ70{kolumn};;ţ70{TR_I;0}}ţ61{ţ70{kolumna};1;;;ţ70{TR_I;0}}ţ61{ţ70{rząd};1;;;ţ70{TR_I;0}}ţ61{ţ70{rząd};ţ70{rzędów};;ţ70{TR_I;0}}}
#
# Pozycję liczy od 0,0
#
#Tţ96{TR_SUMA;;rząd;-1} ţ96{TR_SUMA;;kolumna;-1} ţ50{;-1em}
#
# Makro budujące funkcje inline pozycji
#Tţ70{poz;}ţ96{poz;ţ50{;-1em}ţ70{poz;ţ70{poz}%1}}ţ50{;-1em}
#
#Tţ96{poz;;ţA02{ţ61{ţ70{rząd};ţ70{rzędów}; ţ70{kolumna;0}ţ70{rząd;0}ţ39 }}}
#Tţ96{poz;;ţA02{ţ70{X;ţ69{ţ70{kolumna}*ţ70{szerokość}+ţ70{margines lewy};}}}}
#Tţ96{poz;;ţA02{ţ70{Y;ţ69{ţ70{rząd}*ţ70{wysokość}+ţ70{margines górny};}}}}
#Tţ96{poz;;ţA02{ţ96{TR_SUMA;;kolumna;1}}}
#Tţ96{poz;;ţA02{ţ61{ţ70{kolumna};ţ70{kolumn};ţ70{kolumna;0}ţ96{TR_SUMA;;rząd;1}}}}
#Tţ96{poz;;ţA02{ţ50{ţ70{X};ţ70{Y}}ţ98{0;0;ţ70{X};0}}}
#
#===============================================================================
# Definicja etykiety
#===============================================================================
# Makro budujące funkcje inline etykiety
#
#Tţ50{-1em}ţ96{etykieta;ţ50{;-1em}ţ70{etykieta;ţ70{etykieta}%1ţ50{ţ70{X};+1em}}}
#Pţ50{-1em}ţ70{etykieta;ţ51{Arial;9}}
#Pţ96{etykieta;;ţA02{ţ55{;;+ţ70{szerokość};+ţ70{wysokość};}}} ţ99{ramka}
#Pţ96{etykieta;;ţA02{ţ96{TR_KIM;;şIndeks towaru ş;KIM}ţ70{js;ş--------------Dodatkowy opis 14 z karty KIM-------------------ş}ţ70{jb;ş--------------Dodatkowy opis 15 z karty KIM-------------------ş}ţ70{cena;ţ96{TR_ILE;;ţ77{ţ78{şCena sprzedazy 4ş}}}}ţ50{;-1em}}}
#Pţ96{etykieta;;ţA02{ţ50{+0.5em;+0.5em}ţ33şIndeks towaru şţ34}}
#Pţ96{etykieta;;ţA02{ţ50{+0.3em;+0.5em}ţ79{ş--------------- Nazwa towaru -------------------ş;1;22}}}
#Pţ96{etykieta;;ţA02{ţ50{+0.3em;+0.5em}ţ79{ş--------------- Nazwa towaru -------------------ş;23;45}}}
#Pţ96{etykieta;;ţA02{ţ50{+0.3em;+0.5em}ţ79{ş--------------- Nazwa towaru -------------------ş;46;60}}}
#Pţ96{etykieta;;ţA02{ţ51{;22}ţ50{+0.5em;+0.5em}ţ61{ţ70{cena};6;ţ33ţ77{ţ78{şCena sprzedazy 4ş}}ţ34 ţ50{;-0.2em}ţ51{;6}PLN w tym 23% VATţ50{;+0.2em};ţ33ţ77{ţ78{şCena sprzedazy 4ş}}ţ34 ţ50{;-0.2em}ţ51{;6}PLN ţ50{-5;+1em}w tym 23% VATţ50{;-1em};ţ33ţ77{ţ78{şCena sprzedazy 4ş}}ţ34 ţ50{;-0.2em}ţ51{;6}PLN w tym 23% VATţ50{;+0.2em};}}}
#Pţ96{etykieta;;ţA02{ţ51{;5}ţ50{+4em;+0.2em}ţ60{ţ70{js};;;Cena za 1 ţ78{ţ70{jb}} ţ68{şCena sprzedazy 4ş;ţ70{js}} PLN}}}
#Pţ96{etykieta;;ţA02{}}
#Pţ96{etykieta;;ţA02{ţ50{+0.2em}ţ80{şIndeks towaru ş;0.2;3.5}}}
#Pţ96{etykieta;;ţA02{ţ50{+42;-0.5em}ţ51{;6}ţ60{ţ70{js};;ţ75{1 şJmsş;7};}}}
#
# Wydruk etykiet
#
#Pţ92{1;ţ70{poz}ţ70{etykieta}}
# ..................................................................
# Do indywidualnej edycji
# .................................................................
# Marginesy strony z etykietami
Tţţ{margines górny}={1} ţţ{margines lewy}={1} ţţ{margines dolny}={2} ţCofnijWiersz
# ^ ^
# wartość marginesu górnego wartość marginesu lewego
# .................................................................
# Wymiary etykiety
TţSzerokość={52.5} ţWysokość={29.7} ţKolumn={4} ţRzędów={10} ţ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 ţKIM{@INDEKS;KIM} ţRekord{117;@INDEKS;KID}
P ţProstokąt{ţX;ţY;+ţSzerokość;+ţWysokość;} ţ# ramka
P ţXY{ţX;+1em}ţCzcionka{Arial;9}ţXY{+0.7em;+1.1em}ţDoŚrodka{ţFragment{@INAZWA;1;24};ţSzerokość}
P ţXY{ţX;+1em}ţX{+0.7em}ţDoŚrodka{ţFragment{@INAZWA;25;60};ţSzerokość}
P ţXY{ţX;+1.5em}ţCzcionka{Arial;11}ţPogrub{ţDoŚrodka{ţLtrim{ţCenaSpr{@INDEKS;4;;}} zł/@JMS;ţSzerokość}}
P ţXY{ţX;+1em}ţXY{+0.3em;+0.3em}
P ţXY{ţX;+1em}ţCzcionka{;7}ţXY{+0.5em;-0.6em}ţDoŚrodka{ţRtrim{@INDEKS} ţOblicz{ţLtrim{ţCenaSpr{@INDEKS;4;;}}/@WSSPRZ;999 999 999 999.99} za 1 @JM;ţSzerokość}
P} ţCofnijWiersz
#
#===============================================================================
# Wydruk etykiet
#===============================================================================
PţPowtórz{1;ţPoz{}ţEtykieta{}}