Re: PIT-11 i adresowanie kopert
Możesz dokonać niewielkich modyfikacji standardowego raportu PIT-11 aby pomiędzy drukowanymi deklaracjami drukowała się kartka z adresem Pracownika lub Urzędu Skarbowego.
Adres drukuje się w takim miejscu, że po zgięciu kartki na 3 pasuje do koperty z okienkiem.
DODAJ RAPORT
Kod:
//0,"pit11kop.sc","Mix-soft Koperta","PIT",0,2.6.3,SYSTEM
string sub pobierzDaneZAdresu(int ids,long id1)
if ZwrocWartosc(ids,id1) then
pobierzDaneZAdresu = g_hval.StrValue
endif
endsub
int sub drukujDaneZAdresu2()
#ifdef KOPERTAPR
str.nowa()
SetFont(fntMale)
print at 1100,450,infprac.nazwisko + " " + infprac.imie1+lf
print at 1100,#Y,pobierzDaneZAdresu(-1,8300) + " " + pobierzDaneZAdresu(-1,8301) + " " + pobierzDaneZAdresu(-1,8302)+ "/" + pobierzDaneZAdresu(-1,8303) + lf
print at 1100,#Y,pobierzDaneZAdresu(-1,8304) + " " + pobierzDaneZAdresu(-1,8306) + lf
#endif
endsub
int sub drukujDaneZAdresuUS()
#ifdef KOPERTAUS
str.nowa()
SetFont(fntMale)
print at 1100,450, infskarb.nazwa +lf
print at 1100,#Y, infskarb.ulica + " " + infskarb.NrDomu + lf
print at 1100,#Y, infskarb.Kod + " " + infskarb.Miejscowosc +lf
#endif
endsub
Otwórz Raport : Katalog raportów -> PIT -> PIT-11
ZNAJDŹ:
Kod:
#include "funokr.sci"
#include "okrzatrud.sci"
WSTAW POD:
Kod:
#include "Mix-soft Koperta"
// Odremuj to co ma się drukować
//#define KOPERTAPR 1 //Drukowanie adresu pracownika
//#define KOPERTAUS 1 //Drukowanie adresu US
ZNAJDŹ:
Kod:
print at 610,2810;sFoot
endif
Loop while (iKtoryPit != iIlePitow)
E_Deklaracja.EndE_DECL()
endif
WSTAW POD:
Kod:
drukujDaneZAdresu2()
drukujDaneZAdresuUS()
