home *** CD-ROM | disk | FTP | other *** search
/ Polish Programs 2 / polishprograms2.iso / firma / rachmist / wzorce2.arj / PIT-4.WVR < prev    next >
Text File  |  1996-10-03  |  6KB  |  111 lines
  1. p1 = IIF(!empty(wspolnik.nip),ALLTRIM(wspolnik.nip),ALLTRIM(podmioty.nip));  ; 20
  2. p4 = twodig(x_miesnr); ; 2
  3. p5 = str(fullyear(x_roknr),4) ; ; 4
  4. p6 = alltrim(urzedy.us_nazwa)+', '+alltrim(urzedy.us_ulica)+' '+alltrim(urzedy.us_nrdomu)+', '+ alltrim(urzedy.us_miasto)  ;  ; 116
  5. p7 = IIF(m.numwspol > 0, IIF(podmioty.osobafiz,.T.,.F.), .F.) ;  ; 
  6. p8 = IIF(~p7~,alltrim( wspolnik.nazwisko ) + ' ' + alltrim( wspolnik.imie1 ) + ' ' + alltrim( wspolnik.imie2 ),podmioty.nazwa) ;  ; 116
  7. p9 = IIF(~p7~,alltrim( wspolnik.ojciec ) + ' ' + alltrim( wspolnik.matka ),podmioty.nazwaskr) ;  ; 116
  8. p10 = IIF(~p7~,alltrim( wspolnik.pesel ),podmioty.regon) ;  ; 30
  9. p11 = IIF(~p7~,DTOC(wspolnik.dataur),DTOC(podmioty.datarozp)) ;  ; 10
  10. p12 = podmioty.orgrej;  ; 116
  11. p13 = podmioty.nazwarej ;  ; 116
  12. p14 = DTOC(podmioty.datarej) ;  ; 10
  13. p15 = podmioty.nrrej ;  ; 38
  14. p16 = IIF(~p7~,wspolnik.kraj,podmioty.kraj) ;  ; 22
  15. p17 = IIF(~p7~,wspolnik.wojewod,podmioty.wojewod) ;  ; 26
  16. p18 = IIF(~p7~,wspolnik.gmina,podmioty.gmina) ;  ; 40
  17. p19 = IIF(~p7~,wspolnik.ulica,podmioty.adres) ;  ; 60
  18. p20 = IIF(~p7~,wspolnik.nr_domu,podmioty.nr_domu) ;  ; 8
  19. p21 = IIF(~p7~,wspolnik.nr_lokalu,podmioty.nr_lokalu) ;  ; 6
  20. p22 = IIF(~p7~,wspolnik.miasto,podmioty.miasto) ;  ; 30
  21. p23 = IIF(~p7~,wspolnik.kod,podmioty.kod) ;  ; 6
  22. p24 = IIF(~p7~,wspolnik.poczta,podmioty.poczta) ;  ; 30
  23. p25 = IIF(~p7~,wspolnik.skrpocz,podmioty.skrpocz) ;  ; 26
  24. p26 = IIF(~p7~,wspolnik.telefon,podmioty.telefon) ;  ; 29
  25. p27 = IIF(~p7~,wspolnik.teleks,podmioty.telex) ;  ; 26
  26. p28 = IIF(~p7~,wspolnik.fax,podmioty.fax) ;  ; 22
  27. p29 = dbf_lrec("ewwypl","MONTH(dataw)=x_miesnr") ; 99999  ; 
  28. p30 = dbf_suma("ewwypl","brutto", "MONTH(dataw)=x_miesnr and !bez") ;  ; 
  29. p31 = dbf_suma("ewwypl","zaliczka", "MONTH(dataw)=x_miesnr and !bez") ;  ; 
  30. p32 = m.pd32 ; 99999 ; 
  31. p33 = m.pd33 ; 99,999,999.99 ; 
  32. p34 = m.pd34 ; 99,999,999.99 ; 
  33. p35 = m.pd35 ; 99999 ; 
  34. p36 = m.pd36 ; 99,999,999.99 ; 
  35. p37 = m.pd37 ; 99,999,999.99 ; 
  36. p38 = m.pd38 ; 99999 ; 
  37. p39 = m.pd39 ; 99,999,999.99 ; 
  38. p40 = m.pd40 ; 99,999,999.99 ; 
  39. p41 = m.pd41 ; 99999 ;
  40. p42 = m.pd42 ; 99,999,999.99 ;
  41. p43 = m.pd43 ; 99,999,999.99 ;
  42. p44 = m.pd44 ; 99999 ;
  43. p45 = m.pd45 ; 99,999,999.99 ;
  44. p46 = m.pd46 ; 99,999,999.99 ;
  45. p47 = m.pd47 ; 99999 ;
  46. p48 = m.pd48 ; 99,999,999.99 ;
  47. p49 = m.pd49 ; 99,999,999.99 ;
  48. p50 = m.pd50 ; 99999 ;
  49. p51 = m.pd51 ; 99,999,999.99 ;
  50. p52 = m.pd52 ; 99,999,999.99 ;
  51. p53 = m.pd53 ; 99999 ;
  52. p54 = m.pd54 ; 99,999,999.99 ;
  53. p55 = m.pd55 ; 99,999,999.99 ;
  54. p56 = ~p31~ + ~p34~ +~p37~ +~p40~ +~p43~ +~p46~ +~p49~ +~p52~ +~p55~;  ; 
  55. p57 = m.pd57 ; 99,999,999.99 ;
  56. p58 = m.pd58 ; 99,999,999.99 ;
  57. p59 = m.pd59 ; 99,999,999.99 ;
  58. p60 = m.pd60 ; 99,999,999.99 ;
  59. p61 = m.pd61 ; 99,999,999.99 ;
  60. p62 = ~p56~ + ~p58~ + ~p59~ - (~p57~ + ~p60~ + ~p61~);  ; 
  61. p63 = ~p62~
  62. p64 = slowami(~p63~) ;  ; 
  63. p65 = m.pd65 ;  ; 
  64. p66 = m.pd66 ;  ; 10
  65. p67 = m.pd67 ;  ; 80
  66. p68 = m.pd68;  ; 40
  67. p69 = m.pd69;  ; 60
  68. p70 = m.pd70;  ; 10
  69. p200 = iif( ~p7~, ' ', 'X' ) ;  ; 1
  70. p201 = iif( ~p7~, 'X', ' ' ) ;  ; 1
  71. p202 = iif(~p30~<>0, transform(~p30~,'99,999,999,999.99'),' ') ;  ; 17
  72. p203 = iif(~p65~=1,'X',' ') ;  ; 1
  73. p204 = iif(~p65~=2,'X',' ') ;  ; 1
  74. p205 = iif(~p65~=3,'X',' ') ;  ; 1
  75. p206 = iif(~p33~<>0, transform(~p33~,'99,999,999,999.99'),' ') ;  ; 17
  76. p207 = iif(~p36~<>0, transform(~p36~,'99,999,999,999.99'),' ') ;  ; 17
  77. p208 = iif(~p39~<>0, transform(~p39~,'99,999,999,999.99'),' ') ;  ; 17
  78. p209 = iif(~p42~<>0, transform(~p42~,'99,999,999,999.99'),' ') ;  ; 17
  79. p210 = iif(~p45~<>0, transform(~p45~,'99,999,999,999.99'),' ') ;  ; 17
  80. p211 = iif(~p48~<>0, transform(~p48~,'99,999,999,999.99'),' ') ;  ; 17
  81. p212 = iif(~p51~<>0, transform(~p51~,'99,999,999,999.99'),' ') ;  ; 17
  82. p213 = iif(~p54~<>0, transform(~p54~,'99,999,999,999.99'),' ') ;  ; 17
  83. p214 = iif(~p31~<>0, transform(~p31~,'99,999,999,999.99'),' ') ;  ; 17
  84. p215 = iif(~p34~<>0, transform(~p34~,'99,999,999,999.99'),' ') ;  ; 17
  85. p216 = iif(~p37~<>0, transform(~p37~,'99,999,999,999.99'),' ') ;  ; 17
  86. p217 = iif(~p40~<>0, transform(~p40~,'99,999,999,999.99'),' ') ;  ; 17
  87. p218 = iif(~p43~<>0, transform(~p43~,'99,999,999,999.99'),' ') ;  ; 17
  88. p219 = iif(~p46~<>0, transform(~p46~,'99,999,999,999.99'),' ') ;  ; 17
  89. p220 = iif(~p49~<>0, transform(~p49~,'99,999,999,999.99'),' ') ;  ; 17
  90. p221 = iif(~p52~<>0, transform(~p52~,'99,999,999,999.99'),' ') ;  ; 17
  91. p222 = iif(~p55~<>0, transform(~p55~,'99,999,999,999.99'),' ') ;  ; 17
  92. p223 = iif(~p29~<>0, transform(~p29~,'9,999'),' ') ;  ; 6
  93. p224 = iif(~p32~<>0, transform(~p32~,'9,999'),' ') ;  ; 6
  94. p225 = iif(~p35~<>0, transform(~p35~,'9,999'),' ') ;  ; 6
  95. p226 = iif(~p38~<>0, transform(~p38~,'9,999'),' ') ;  ; 6
  96. p227 = iif(~p41~<>0, transform(~p41~,'9,999'),' ') ;  ; 6
  97. p228 = iif(~p44~<>0, transform(~p44~,'9,999'),' ') ;  ; 6
  98. p229 = iif(~p47~<>0, transform(~p47~,'9,999'),' ') ;  ; 6
  99. p230 = iif(~p50~<>0, transform(~p50~,'9,999'),' ') ;  ; 6
  100. p231 = iif(~p53~<>0, transform(~p53~,'9,999'),' ') ;  ; 6
  101. p232 = iif(~p56~<>0, transform(~p56~,'99,999,999,999.99'),' ') ;  ; 17
  102. p233 = iif(~p57~<>0, transform(~p57~,'99,999,999,999.99'),' ') ;  ; 17
  103. p234 = iif(~p58~<>0, transform(~p58~,'99,999,999,999.99'),' ') ;  ; 17
  104. p235 = iif(~p59~<>0, transform(~p59~,'99,999,999,999.99'),' ') ;  ; 17
  105. p236 = iif(~p60~<>0, transform(~p60~,'99,999,999,999.99'),' ') ;  ; 17
  106. p237 = iif(~p61~<>0, transform(~p61~,'99,999,999,999.99'),' ') ;  ; 17
  107. p238 = iif(~p62~<>0, transform(~p62~,'99,999,999,999.99'),' ') ;  ; 17
  108. p239 = iif(~p63~<>0, transform(~p63~,'99,999,999,999.99'),' ') ;  ; 17
  109. p240 = left( ~p64~, 80 ) ;  ; 80
  110. p241 = substr(~p64~,81) ;  ; 80
  111.