home *** CD-ROM | disk | FTP | other *** search
/ PC World Komputer 1999 mARCH / PCWK3A99.iso / Polskie / Insert / WZORCE2.ARJ / PIT-4.WVR < prev    next >
Text File  |  1998-08-31  |  6KB  |  122 lines
  1. p1 = IIF(podmioty.osobafiz,ALLTRIM(podmioty.pnip),ALLTRIM(podmioty.nip)) ;  ; 20
  2. p4 = twodig(l1_mies); ; 2
  3. p5 = str(fullyear(l1_rok),4) ; ; 4
  4. p6 = alltrim(urzedy.us_nazwa)+', '+alltrim(urzedy.us_ulica)+' '+alltrim(urzedy.us_nrdomu)+', '+ alltrim(urzedy.us_miasto)  ;  ; 116
  5. p7 = IIF(podmioty.osobafiz,.T.,.F.)  ;  ; 
  6. p8 = IIF(~p7~,ALLTRIM(podmioty.pnazwisko)+' '+ALLTRIM(podmioty.pimie1)+' '+podmioty.pimie2+' '+DTOC(podmioty.pdataur),podmioty.nazwa) ;  ; 116
  7. p9 = IIF(~p7~,ALLTRIM(podmioty.pojciec)+' '+podmioty.pmatka,podmioty.nazwaskr) ;  ; 116
  8. p10 = IIF(~p7~,podmioty.ppesel,podmioty.regon) ;  ; 30
  9. p11 = IIF(~p7~,DTOC(podmioty.pdataur),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~,podmioty.pkraj,podmioty.kraj) ;  ; 22
  15. p17 = IIF(~p7~,podmioty.pwojewod,podmioty.wojewod) ;  ; 26
  16. p18 = IIF(~p7~,podmioty.pgmina,podmioty.gmina) ;  ; 40
  17. p19 = IIF(~p7~,podmioty.pulica,podmioty.adres) ;  ; 60
  18. p20 = IIF(~p7~,podmioty.pnr_domu,podmioty.nr_domu) ;  ; 8
  19. p21 = IIF(~p7~,podmioty.pnr_lokalu,podmioty.nr_lokalu) ;  ; 6
  20. p22 = IIF(~p7~,podmioty.pmiasto,podmioty.miasto) ;  ; 30
  21. p23 = IIF(~p7~,podmioty.pkod,podmioty.kod) ;  ; 6
  22. p24 = IIF(~p7~,podmioty.ppoczta,podmioty.poczta) ;  ; 30
  23. p25 = IIF(~p7~,podmioty.pskrpocz,podmioty.skrpocz) ;  ; 26
  24. p26 = IIF(~p7~,podmioty.ptelefon,podmioty.telefon) ;  ; 29
  25. p27 = IIF(~p7~,podmioty.ptelex,podmioty.telex) ;  ; 26
  26. p28 = IIF(~p7~,podmioty.pfax,podmioty.fax) ;  ; 22
  27. p29 = dbf_lrec("wyplaty","typ=1 AND MONTH(dataw)=l1_mies AND YEAR(dataw)=l1_rok") ; 99999  ;
  28. p30 = dbf_suma("wyplaty","brutto", "MONTH(dataw)=l1_mies AND YEAR(dataw)=l1_rok") ;  ;
  29. p31 = dbf_suma("wyplaty","zaliczka", "MONTH(dataw)=l1_mies AND YEAR(dataw)=l1_rok") ;  ;
  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. p71 = m.pd71 ; 99,999,999.99 ;
  62. p72 = ~p62~ - ~p71~;  ;
  63. p63 = ~p72~
  64. p64 = slowami(~p63~) ;  ;
  65. p65 = m.pd65 ;  ;
  66. p66 = m.pd66 ;  ; 10
  67. p67 = m.pd67 ;  ; 80
  68. p68 = m.pd68;  ; 40
  69. p69 = m.pd69;  ; 60
  70. p70 = m.pd70;  ; 10
  71. p200 = iif( ~p7~, ' ', 'X' ) ;  ; 1
  72. p201 = iif( ~p7~, 'X', ' ' ) ;  ; 1
  73. p202 = iif(~p30~<>0, transform(~p30~,'99,999,999,999.99'),' ') ;  ; 17
  74. p203 = iif(~p65~=1,'X',' ') ;  ; 1
  75. p204 = iif(~p65~=2,'X',' ') ;  ; 1
  76. p205 = iif(~p65~=3,'X',' ') ;  ; 1
  77. p206 = iif(~p33~<>0, transform(~p33~,'99,999,999,999.99'),' ') ;  ; 17
  78. p207 = iif(~p36~<>0, transform(~p36~,'99,999,999,999.99'),' ') ;  ; 17
  79. p208 = iif(~p39~<>0, transform(~p39~,'99,999,999,999.99'),' ') ;  ; 17
  80. p209 = iif(~p42~<>0, transform(~p42~,'99,999,999,999.99'),' ') ;  ; 17
  81. p210 = iif(~p45~<>0, transform(~p45~,'99,999,999,999.99'),' ') ;  ; 17
  82. p211 = iif(~p48~<>0, transform(~p48~,'99,999,999,999.99'),' ') ;  ; 17
  83. p212 = iif(~p51~<>0, transform(~p51~,'99,999,999,999.99'),' ') ;  ; 17
  84. p213 = iif(~p54~<>0, transform(~p54~,'99,999,999,999.99'),' ') ;  ; 17
  85. p214 = iif(~p31~<>0, transform(~p31~,'99,999,999,999.99'),' ') ;  ; 17
  86. p215 = iif(~p34~<>0, transform(~p34~,'99,999,999,999.99'),' ') ;  ; 17
  87. p216 = iif(~p37~<>0, transform(~p37~,'99,999,999,999.99'),' ') ;  ; 17
  88. p217 = iif(~p40~<>0, transform(~p40~,'99,999,999,999.99'),' ') ;  ; 17
  89. p218 = iif(~p43~<>0, transform(~p43~,'99,999,999,999.99'),' ') ;  ; 17
  90. p219 = iif(~p46~<>0, transform(~p46~,'99,999,999,999.99'),' ') ;  ; 17
  91. p220 = iif(~p49~<>0, transform(~p49~,'99,999,999,999.99'),' ') ;  ; 17
  92. p221 = iif(~p52~<>0, transform(~p52~,'99,999,999,999.99'),' ') ;  ; 17
  93. p222 = iif(~p55~<>0, transform(~p55~,'99,999,999,999.99'),' ') ;  ; 17
  94. p223 = iif(~p29~<>0, transform(~p29~,'9,999'),' ') ;  ; 6
  95. p224 = iif(~p32~<>0, transform(~p32~,'9,999'),' ') ;  ; 6
  96. p225 = iif(~p35~<>0, transform(~p35~,'9,999'),' ') ;  ; 6
  97. p226 = iif(~p38~<>0, transform(~p38~,'9,999'),' ') ;  ; 6
  98. p227 = iif(~p41~<>0, transform(~p41~,'9,999'),' ') ;  ; 6
  99. p228 = iif(~p44~<>0, transform(~p44~,'9,999'),' ') ;  ; 6
  100. p229 = iif(~p47~<>0, transform(~p47~,'9,999'),' ') ;  ; 6
  101. p230 = iif(~p50~<>0, transform(~p50~,'9,999'),' ') ;  ; 6
  102. p231 = iif(~p53~<>0, transform(~p53~,'9,999'),' ') ;  ; 6
  103. p232 = iif(~p56~<>0, transform(~p56~,'99,999,999,999.99'),' ') ;  ; 17
  104. p233 = iif(~p57~<>0, transform(~p57~,'99,999,999,999.99'),' ') ;  ; 17
  105. p234 = iif(~p58~<>0, transform(~p58~,'99,999,999,999.99'),' ') ;  ; 17
  106. p235 = iif(~p59~<>0, transform(~p59~,'99,999,999,999.99'),' ') ;  ; 17
  107. p236 = iif(~p60~<>0, transform(~p60~,'99,999,999,999.99'),' ') ;  ; 17
  108. p237 = iif(~p61~<>0, transform(~p61~,'99,999,999,999.99'),' ') ;  ; 17
  109. p238 = iif(~p62~<>0, transform(~p62~,'99,999,999,999.99'),' ') ;  ; 17
  110. p239 = iif(~p63~<>0, transform(~p63~,'99,999,999,999.99'),' ') ;  ; 17
  111. p240 = left( ~p64~, 80 ) ;  ; 80
  112. p241 = substr(~p64~,81) ;  ; 80
  113. p242 = iif(~p71~<>0, transform(~p71~,'99,999,999,999.99'),' ') ;  ; 17
  114. p243 = iif(~p72~<>0, transform(~p72~,'99,999,999,999.99'),' ') ;  ; 17
  115.  
  116. p394 = ~p63~
  117. p395 = urzedy.us_nazwa ; ; 40
  118. p396 = alltrim(urzedy.us_ulica)+' '+alltrim(urzedy.us_nrdomu) ; ; 40
  119. p397 = urzedy.us_kodzip+' '+urzedy.us_miasto ; ; 40
  120. p398 = urzedy.bk_nazwa ; ; 40
  121. p399 = alltrim(urzedy.konto1)+' '+alltrim(urzedy.konto2) ; ; 80
  122.