mojaSymfonia FORUM
https://forum.mix-soft.pl/

PIT-11 i adresowanie kopert
https://forum.mix-soft.pl/viewtopic.php?f=3&t=3742		 Strona 1 z 1
Autor:  martar [ 2012-02-08, 15:42 ]
Tytuł:  PIT-11 i adresowanie kopert
w eDeklaracjach nadal nie ma PIT-11(19).
Nie chcąc czekać postanowiłam wydrukować tradycyjne pity.

Czy jest jakiś sposób, żeby automatycznie zaadresować koperty do osób dla, których wygeneruję deklaracje?
Autor:  rafal [ 2012-02-09, 10:13 ]
Tytuł:  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()
Strona 1 z 1 Strefa czasowa UTC+1godz. [letni]
Powered by phpBB © 2000, 2002, 2005, 2007 phpBB Group
http://www.phpbb.com/