home *** CD-ROM | disk | FTP | other *** search
/ PC World Komputer 1999 mARCH / PCWK3A99.iso / Polskie / Insert / WZORCE2.ARJ / PIT-40.WVR < prev    next >
Text File  |  1998-03-05  |  8KB  |  172 lines
  1. p1 = IIF(podmioty.osobafiz,ALLTRIM(podmioty.pnip),ALLTRIM(podmioty.nip)) ;  ; 20
  2. p4 = STR(l1_rok,4);;
  3. p5 = dbf_pole("pracow","urzad_nr","pracow.id=m.id"); ;
  4. p5 = alltrim(dbf_pole("urzedy","us_nazwa","us_id=pracow.urzad_nr"))+', '+alltrim(dbf_pole("urzedy","us_ulica","us_id=pracow.urzad_nr"))+' '+alltrim(dbf_pole("urzedy","us_nrdomu","us_id=pracow.urzad_nr"))+', '+ alltrim(dbf_pole("urzedy","us_miasto","us_id=pracow.urzad_nr"))  ;  ; 116
  5. p6 = IIF(podmioty.osobafiz,.T.,.F.)  ;  ; 
  6. p7 = IIF(~p6~,ALLTRIM(podmioty.pnazwisko)+' '+ALLTRIM(podmioty.pimie1)+'     '+DTOC(podmioty.pdataur),podmioty.nazwa) ;  ; 116
  7. p8 = IIF(~p6~,ALLTRIM(podmioty.pojciec)+' '+podmioty.pmatka,podmioty.nazwaskr) ;  ; 40
  8. p9 = podmioty.regon ;  ; 30
  9. p10 = IIF(~p6~,podmioty.pkraj,podmioty.kraj) ;  ; 22
  10. p11 = IIF(~p6~,podmioty.pwojewod,podmioty.wojewod) ;  ; 26
  11. p12 = IIF(~p6~,podmioty.pgmina,podmioty.gmina) ;  ; 40
  12. p13 = IIF(~p6~,podmioty.pulica,podmioty.adres) ;  ; 60
  13. p14 = IIF(~p6~,podmioty.pnr_domu,podmioty.nr_domu) ;  ; 8
  14. p15 = IIF(~p6~,podmioty.pnr_lokalu,podmioty.nr_lokalu) ;  ; 6
  15. p16 = IIF(~p6~,podmioty.pmiasto,podmioty.miasto) ;  ; 30
  16. p17 = IIF(~p6~,podmioty.pkod,podmioty.kod) ;  ; 6
  17. p18 = IIF(~p6~,podmioty.ppoczta,podmioty.poczta) ;  ; 30
  18. p19 = m.pd19 ;  ; 15
  19. p20 = m.pd20 ;  ; 55
  20. p21 = m.pd21 ;  ; 40
  21. p22 = m.pd22 ;  ;
  22. p23 = m.pd23 ;  ; 23
  23. p24 = m.pd24 ;  ; 24
  24. p25 = m.pd25 ;  ; 47
  25. p26 = m.pd26 ;  ; 60
  26. p27 = m.pd27 ; 999 ; 8
  27. p28 = m.pd28 ; 999 ; 6
  28. p29 = m.pd29 ;  ; 30
  29. p30 = m.pd30 ;  ; 6
  30. p31 = m.pd31 ;  ; 30
  31. p32 = m.pd32 ;  ;
  32. p33 = m.pd33 ;  ;
  33. p34 = dbf_suma("wyplaty","brutto", "YEAR(dataw)=l1_rok and wyplaty.idprac=m.id") ;  ;
  34. p35 = dbf_suma("wyplaty","koszt", "YEAR(dataw)=l1_rok and wyplaty.idprac=m.id") ;  ;
  35. p37 = dbf_suma("wyplaty","zaliczka", "YEAR(dataw)=l1_rok and wyplaty.idprac=m.id") ;  ;
  36. p38 = m.pd38 ;9,999,999,999.99;16
  37. p39 = m.pd39 ;9,999,999,999.99;16
  38. p36 = ~p34~ - ~p35~ + ~p38~ - ~p39~;  ;
  39. p40 = m.pd40 ;  ;
  40. p41 = ~p40~ ;  ;
  41. p42 = m.pd42 ;  ;
  42. p43 = m.pd43 ;  ;
  43. p44 = ~p43~ ;  ;
  44. p45 = m.pd45 ;  ;
  45. p46 = m.pd46 ;  ;
  46. p47 = ~p46~ ;  ;
  47. p48 = m.pd48 ;  ;
  48. p49 = m.pd49 ;  ;
  49. p50 = ~p49~ ;  ;
  50. p51 = m.pd51 ;  ;
  51. p52 = m.pd52 ;  ;
  52. p53 = m.pd53 ;  ;
  53. p54 = ~p52~ - ~p53~  ;  ;
  54. p55 = m.pd55 ;  ;
  55. p56 = m.pd56 ;  ;
  56. p57 = ~p56~ ;  ;
  57. p58 = m.pd58 ;  ;
  58. p59 = m.pd59 ;  ;
  59. p60 = m.pd60 ;  ;
  60. p61 = ~p59~ - ~p60~  ;  ;
  61. p62 = m.pd62 ;  ;
  62. p63 = m.pd63 ;  ;
  63. p64 = ~p63~ ;  ;
  64. p65 = m.pd65 ;  ;
  65. p66 = dbf_suma("zlecenie","brutto","zlecenie.idprac=m.id AND YEAR(dataw)=l1_rok AND !aktualna") ;  ;
  66. p67 = dbf_suma("zlecenie","brutto*koszt_s/100","zlecenie.idprac=m.id AND YEAR(dataw)=l1_rok AND !aktualna") ;  ;
  67. p68 = ~p66~ - ~p67~ ;  ;
  68. p69 = dbf_suma("zlecenie","podatek","zlecenie.idprac=m.id AND YEAR(dataw)=l1_rok AND !aktualna") ;  ;
  69. p70 = m.pd70 ;  ;
  70. p71 = m.pd71 ;  ;
  71. p72 = ~p70~ - ~p71~  ;  ;
  72. p73 = m.pd73 ;  ;
  73. p74 = m.pd74 ;  ;
  74. p75 = m.pd75 ;  ;
  75. p76 = ~p74~ - ~p75~  ;  ;
  76. p77 = m.pd77 ;  ;
  77. p78 = ~p34~+~p38~+~p40~+~p43~+~p46~+~p49~+~p52~+~p56~+~p59~+~p63~+~p66~+~p70~+~p74~ ;  ;
  78. p79 = ~p35~+~p39~+~p53~+~p60~+~p67~+~p71~+~p75~ ;  ;
  79. p80 = ~p78~-~p79~ ;  ;
  80. p81 = ~p37~+~p42~+~p45~+~p48~+~p51~+~p55~+~p58~+~p62~+~p65~+~p69~+~p73~+~p77~ ;  ;
  81. p82 = m.pd82 ;  ;
  82. p83 = m.pd83 ;  ;
  83. p84 = ~p80~-~p82~-~p83~
  84. p84 = IIF(~p84~<0,0,ROUND(~p84~,0))
  85. p85 = MAX(liczpod(~p84~,CTOD("31.12."+STR(l1_rok,4))),0) ;  ;
  86. p86 = ~p81~
  87. p87 = MAX(~p85~-~p86~,0) ;  ;
  88. p88 = MAX(~p86~-~p85~,0) ;  ;
  89. p89 = m.pd89 ;  ;
  90. p90 = ~p87~-~p89~ ;  ;
  91. p91 = m.pd91 ;  ;
  92. p92 = ~p88~-~p91~ ;  ;
  93. p93 = m.pd93 ;  ;
  94. p94 = m.pd94 ;  ;
  95. p95 = m.pd95 ;  ; 38
  96. p96 = m.pd96 ;  ; 38
  97. p97 = m.pd97 ;  ;
  98. p98 = m.pd98 ;  ;
  99. p201 = iif( ~p33~=1, 'X', ' ' ) ;  ; 1
  100. p202 = iif( ~p33~=2, 'X', ' ' ) ;  ; 1
  101. p203 = iif( ~p33~=3, 'X', ' ' ) ;  ; 1
  102. p204 = iif( ~p33~=4, 'X', ' ' ) ;  ; 1
  103. p205 = iif( ~p33~=5, 'X', ' ' ) ;  ; 1
  104. p206 = iif( ~p6~, ' ', 'X' ) ;  ; 1
  105. p207 = iif( ~p6~, 'X', ' ' ) ;  ; 1
  106. p208 = iif( ~p32~=1, 'X', ' ' ) ;  ; 1
  107. p209 = iif( ~p32~=2, 'X', ' ' ) ;  ; 1
  108. p210 = iif( ~p32~=3, 'X', ' ' ) ;  ; 1
  109. p211 = iif( ~p94~=1, 'X', ' ' ) ;  ; 1
  110. p212 = iif( ~p94~=2, 'X', ' ' ) ;  ; 1
  111.  
  112.  
  113. p234 = iif(~p34~<>0, transform(~p34~,'9,999,999,999.99'),' ') ;  ; 16
  114. p235 = iif(~p35~<>0, transform(~p35~,'9,999,999,999.99'),' ') ;  ; 16
  115. p236 = iif(~p36~<>0, transform(~p36~,'9,999,999,999.99'),' ') ;  ; 16
  116. p237 = iif(~p37~<>0, transform(~p37~,'9,999,999,999.99'),' ') ;  ; 16
  117. p238 = iif(~p38~<>0, transform(~p38~,'9,999,999,999.99'),' ') ;  ; 16
  118. p239 = iif(~p39~<>0, transform(~p39~,'9,999,999,999.99'),' ') ;  ; 16
  119. p240 = iif(~p40~<>0, transform(~p40~,'9,999,999,999.99'),' ') ;  ; 16
  120. p241 = iif(~p41~<>0, transform(~p41~,'9,999,999,999.99'),' ') ;  ; 16
  121. p242 = iif(~p42~<>0, transform(~p42~,'9,999,999,999.99'),' ') ;  ; 16
  122. p243 = iif(~p43~<>0, transform(~p43~,'9,999,999,999.99'),' ') ;  ; 16
  123. p244 = iif(~p44~<>0, transform(~p44~,'9,999,999,999.99'),' ') ;  ; 16
  124. p245 = iif(~p45~<>0, transform(~p45~,'9,999,999,999.99'),' ') ;  ; 16
  125. p246 = iif(~p46~<>0, transform(~p46~,'9,999,999,999.99'),' ') ;  ; 16
  126. p247 = iif(~p47~<>0, transform(~p47~,'9,999,999,999.99'),' ') ;  ; 16
  127. p248 = iif(~p48~<>0, transform(~p48~,'9,999,999,999.99'),' ') ;  ; 16
  128. p249 = iif(~p49~<>0, transform(~p49~,'9,999,999,999.99'),' ') ;  ; 16
  129. p250 = iif(~p50~<>0, transform(~p50~,'99,999,999,999.99'),' ') ;  ; 17
  130. p251 = iif(~p51~<>0, transform(~p51~,'99,999,999,999.99'),' ') ;  ; 17
  131. p252 = iif(~p52~<>0, transform(~p52~,'99,999,999,999.99'),' ') ;  ; 17
  132. p253 = iif(~p53~<>0, transform(~p53~,'99,999,999,999.99'),' ') ;  ; 17
  133. p254 = iif(~p54~<>0, transform(~p54~,'99,999,999,999.99'),' ') ;  ; 17
  134. p255 = iif(~p55~<>0, transform(~p55~,'99,999,999,999.99'),' ') ;  ; 17
  135. p256 = iif(~p56~<>0, transform(~p56~,'99,999,999,999.99'),' ') ;  ; 17
  136. p257 = iif(~p57~<>0, transform(~p57~,'99,999,999,999.99'),' ') ;  ; 17
  137. p258 = iif(~p58~<>0, transform(~p58~,'99,999,999,999.99'),' ') ;  ; 17
  138. p259 = iif(~p59~<>0, transform(~p59~,'99,999,999,999.99'),' ') ;  ; 17
  139. p260 = iif(~p60~<>0, transform(~p60~,'99,999,999,999.99'),' ') ;  ; 17
  140. p261 = iif(~p61~<>0, transform(~p61~,'99,999,999,999.99'),' ') ;  ; 17
  141. p262 = iif(~p62~<>0, transform(~p62~,'99,999,999,999.99'),' ') ;  ; 17
  142. p263 = iif(~p63~<>0, transform(~p63~,'99,999,999,999.99'),' ') ;  ; 17
  143. p264 = iif(~p64~<>0, transform(~p64~,'99,999,999,999.99'),' ') ;  ; 17
  144. p265 = iif(~p65~<>0, transform(~p65~,'99,999,999,999.99'),' ') ;  ; 17
  145. p266 = iif(~p66~<>0, transform(~p66~,'99,999,999,999.99'),' ') ;  ; 17
  146. p267 = iif(~p67~<>0, transform(~p67~,'99,999,999,999.99'),' ') ;  ; 17
  147. p268 = iif(~p68~<>0, transform(~p68~,'99,999,999,999.99'),' ') ;  ; 17
  148. p269 = iif(~p69~<>0, transform(~p69~,'99,999,999,999.99'),' ') ;  ; 17
  149. p270 = iif(~p70~<>0, transform(~p70~,'99,999,999,999.99'),' ') ;  ; 17
  150. p271 = iif(~p71~<>0, transform(~p71~,'99,999,999,999.99'),' ') ;  ; 17
  151. p272 = iif(~p72~<>0, transform(~p72~,'99,999,999,999.99'),' ') ;  ; 17
  152. p273 = iif(~p73~<>0, transform(~p73~,'99,999,999,999.99'),' ') ;  ; 17
  153. p274 = iif(~p74~<>0, transform(~p74~,'99,999,999,999.99'),' ') ;  ; 17
  154. p275 = iif(~p75~<>0, transform(~p75~,'99,999,999,999.99'),' ') ;  ; 17
  155. p276 = iif(~p76~<>0, transform(~p76~,'99,999,999,999.99'),' ') ;  ; 17
  156. p277 = iif(~p77~<>0, transform(~p77~,'99,999,999,999.99'),' ') ;  ; 17
  157. p278 = iif(~p78~<>0, transform(~p78~,'99,999,999,999.99'),' ') ;  ; 17
  158. p279 = iif(~p79~<>0, transform(~p79~,'99,999,999,999.99'),' ') ;  ; 17
  159. p280 = iif(~p80~<>0, transform(~p80~,'99,999,999,999.99'),' ') ;  ; 17
  160. p281 = iif(~p81~<>0, transform(~p81~,'99,999,999,999.99'),' ') ;  ; 17
  161. p282 = iif(~p82~<>0, transform(~p82~,'99,999,999,999.99'),' ') ;  ; 17
  162. p283 = iif(~p83~<>0, transform(~p83~,'99,999,999,999.99'),' ') ;  ; 17
  163. p284 = iif(~p84~<>0, transform(~p84~,'99,999,999,999.99'),' ') ;  ; 17
  164. p285 = iif(~p85~<>0, transform(~p85~,'99,999,999,999.99'),' ') ;  ; 17
  165. p286 = iif(~p86~<>0, transform(~p86~,'99,999,999,999.99'),' ') ;  ; 17
  166. p287 = iif(~p87~<>0, transform(~p87~,'99,999,999,999.99'),' ') ;  ; 17
  167. p288 = iif(~p88~<>0, transform(~p88~,'99,999,999,999.99'),' ') ;  ; 17
  168. p289 = iif(~p89~<>0, transform(~p89~,'99,999,999,999.99'),' ') ;  ; 17
  169. p290 = iif(~p90~<>0, transform(~p90~,'99,999,999,999.99'),' ') ;  ; 17
  170. p291 = iif(~p91~<>0, transform(~p91~,'99,999,999,999.99'),' ') ;  ; 17
  171. p292 = iif(~p92~<>0, transform(~p92~,'99,999,999,999.99'),' ') ;  ; 17
  172.