home *** CD-ROM | disk | FTP | other *** search
/ PC World Komputer 1999 mARCH / PCWK3A99.iso / Polskie / Insert / WZORCE2.ARJ / PIT-11.WVR < prev    next >
Text File  |  1998-02-26  |  9KB  |  175 lines
  1. p1 = IIF(podmioty.osobafiz,ALLTRIM(podmioty.pnip),ALLTRIM(podmioty.nip)) ;  ; 20
  2. p2 = MAX( CTOD("01/01/"+ALLTRIM(STR(l1_rok,99,0))),MIN(dbf_pole("zatrud","datapocz","zatrud.idprac=m.id","datapocz"),dbf_pole("zlecenie","dataw","zlecenie.idprac=m.id AND !aktualna","dataw")) );;
  3. p3 = CTOD("31.12."+STR(l1_rok,4));;
  4. p6 = dbf_pole("pracow","urzad_nr","pracow.id=m.id"); ;
  5. p6 = 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
  6. p7 = IIF(podmioty.osobafiz,.T.,.F.)  ;  ; 
  7. p8 = IIF(~p7~,ALLTRIM(podmioty.pnazwisko)+' '+ALLTRIM(podmioty.pimie1)+' '+podmioty.pimie2,podmioty.nazwa) ;  ; 116
  8. p9 = IIF(~p7~,ALLTRIM(podmioty.pojciec)+' '+podmioty.pmatka,podmioty.nazwaskr) ;  ; 116
  9. p10 = IIF(~p7~,podmioty.ppesel,podmioty.regon) ;  ; 30
  10. p11 = IIF(~p7~,DTOC(podmioty.pdataur),DTOC(podmioty.datarozp)) ;  ; 10
  11. p12 = podmioty.orgrej;  ; 120
  12. p13 = podmioty.nazwarej ;  ; 120
  13. p14 = DTOC(podmioty.datarej) ;  ; 10
  14. p15 = podmioty.nrrej ;  ; 38
  15. p16 = IIF(~p7~,podmioty.pkraj,podmioty.kraj) ;  ; 22
  16. p17 = IIF(~p7~,podmioty.pwojewod,podmioty.wojewod) ;  ; 26
  17. p18 = IIF(~p7~,podmioty.pgmina,podmioty.gmina) ;  ; 40
  18. p19 = IIF(~p7~,podmioty.pulica,podmioty.adres) ;  ; 60
  19. p20 = IIF(~p7~,podmioty.pnr_domu,podmioty.nr_domu) ;  ; 8
  20. p21 = IIF(~p7~,podmioty.pnr_lokalu,podmioty.nr_lokalu) ;  ; 6
  21. p22 = IIF(~p7~,podmioty.pmiasto,podmioty.miasto) ;  ; 30
  22. p23 = IIF(~p7~,podmioty.pkod,podmioty.kod) ;  ; 6
  23. p24 = IIF(~p7~,podmioty.ppoczta,podmioty.poczta) ;  ; 30
  24. p25 = IIF(~p7~,podmioty.pskrpocz,podmioty.skrpocz) ;  ; 26
  25. p26 = IIF(~p7~,podmioty.ptelefon,podmioty.telefon) ;  ; 29
  26. p27 = IIF(~p7~,podmioty.ptelex,podmioty.telex) ;  ; 26
  27. p28 = IIF(~p7~,podmioty.pfax,podmioty.fax) ;  ; 22
  28. p29 = m.pd29 ;  ; 15
  29. p30 = m.pd30 ;  ; 15
  30. p31 = m.pd31 ;  ; 60
  31. p32 = m.pd32 ;  ; 40
  32. p33 = m.pd33 ;  ; 40
  33. p34 = m.pd34 ;  ; 40
  34. p35 = m.pd35 ;  ; 40
  35. p36 = m.pd36 ;  ;
  36. p37 = m.pd37 ;  ; 27
  37. p38 = m.pd38 ;  ; 30
  38. p39 = m.pd39 ;  ; 58
  39. p40 = m.pd40 ;  ; 60
  40. p41 = m.pd41 ; 999 ; 8
  41. p42 = m.pd42 ; 999 ; 6
  42. p43 = m.pd43 ;  ; 30
  43. p44 = m.pd44 ;  ; 6
  44. p45 = m.pd45 ;  ; 30
  45. p46 = m.pd46 ;  ; 26
  46. p47 = m.pd47 ;  ; 29
  47. p48 = m.pd48 ;  ; 26
  48. p49 = m.pd49 ;  ; 22
  49. p203 = ~p3~ ;  ;
  50. p50 = dbf_suma("wyplaty","brutto", "BETWEEN(dataw,~p2~,~p203~) and wyplaty.idprac=m.id") ;  ;
  51. p51 = dbf_suma("wyplaty","koszt", "BETWEEN(dataw,~p2~,~p203~) and wyplaty.idprac=m.id") ;  ;
  52. p274 = m.pd274 ;9,999,999,999.99;16
  53. p275 = m.pd275 ;9,999,999,999.99;16
  54. p52 = ~p50~ - ~p51~ + ~p274~ - ~p275~;  ;
  55. p53 = dbf_suma("wyplaty","zaliczka", "BETWEEN(dataw,~p2~,~p203~) and wyplaty.idprac=m.id") ;  ;
  56. p54 = m.pd54 ;  ;
  57. p55 = ~p54~ ;  ;
  58. p56 = m.pd56 ;  ;
  59. p57 = m.pd57 ;  ;
  60. p58 = ~p57~ ;  ;
  61. p59 = m.pd59 ;  ;
  62. p60 = m.pd60 ;  ;
  63. p61 = ~p60~ ;  ;
  64. p62 = m.pd62 ;  ;
  65. p63 = m.pd63 ;  ;
  66. p64 = ~p63~ ;  ;
  67. p65 = m.pd65 ;  ;
  68. p66 = m.pd66 ;  ;
  69. p67 = ~p66~ ;  ;
  70. p68 = m.pd68 ;  ;
  71. p69 = m.pd69 ;  ;
  72. p70 = ~p69~;  ;
  73. p71 = m.pd71 ;  ;
  74. p72 = m.pd72 ;  ;
  75. p73 = ~p72~ ;  ;
  76. p74 = m.pd74 ;  ;
  77. p75 = m.pd75 ;  ;
  78. p76 = m.pd76 ;  ;
  79. p77 = ~p75~ - ~p76~  ;  ;
  80. p78 = m.pd78 ;  ;
  81. p79 = m.pd79 ;  ;
  82. p80 = ~p79~ ;  ;
  83. p81 = m.pd81;  ;
  84. p82 = m.pd82 ;  ;
  85. p83 = m.pd83 ;  ;
  86. p84 = ~p82~ - ~p83~  ;  ;
  87. p85 = m.pd85 ;  ;
  88. p86 = m.pd86 ;  ;
  89. p87 = ~p86~ ;  ;
  90. p88 = m.pd88 ;  ;
  91. p89 = dbf_suma("zlecenie","brutto","zlecenie.idprac=m.id AND BETWEEN(dataw,~p2~,~p203~) AND !aktualna") ;  ;
  92. p90 = dbf_suma("zlecenie","brutto*koszt_s/100","zlecenie.idprac=m.id AND BETWEEN(dataw,~p2~,~p203~) AND !aktualna") ;  ;
  93. p91 = ~p89~ - ~p90~ ;  ;
  94. p92 = dbf_suma("zlecenie","podatek","zlecenie.idprac=m.id AND BETWEEN(dataw,~p2~,~p203~) AND !aktualna") ;  ;
  95. p93 = m.pd93 ;  ;
  96. p94 = m.pd94 ;  ;
  97. p95 = ~p93~ - ~p94~  ;  ;
  98. p96 = m.pd96 ;  ;
  99. p97 = m.pd97 ;  ;
  100. p98 = m.pd98 ;  ;
  101. p99 = ~p97~ - ~p98~  ;  ;
  102. p100 = m.pd100 ;  ;
  103. p101 = ~p50~+~p54~+~p57~+~p60~+~p63~+~p66~+~p69~+~p72~+~p75~+~p79~+~p82~+~p86~+~p89~+~p93~+~p97~ +~p274~;  ;
  104. p102 = ~p51~+~p76~+~p83~+~p90~+~p94~+~p98~+~p275~ ;  ;
  105. p103 = ~p101~-~p102~ ;  ;
  106. p104 = ~p53~+~p56~+~p59~+~p62~+~p65~+~p68~+~p71~+~p74~+~p78~+~p81~+~p85~+~p88~+~p92~+~p96~+~p100~ ;  ;
  107. p105 = m.pd105 ;  ; 38
  108. p106 = m.pd106 ;  ; 38
  109. p107 = m.pd107 ;  ;
  110. p206 = iif( ~p7~, ' ', 'X' ) ;  ; 1
  111. p207 = iif( ~p7~, 'X', ' ' ) ;  ; 1
  112. p211 = iif(~p50~<>0, transform(~p50~,'9,999,999,999.99'),' ') ;  ; 16
  113. p212 = iif(~p54~<>0, transform(~p54~,'9,999,999,999.99'),' ') ;  ; 16
  114. p213 = iif(~p57~<>0, transform(~p57~,'9,999,999,999.99'),' ') ;  ; 16
  115. p214 = iif(~p60~<>0, transform(~p60~,'9,999,999,999.99'),' ') ;  ; 16
  116. p215 = iif(~p63~<>0, transform(~p63~,'9,999,999,999.99'),' ') ;  ; 16
  117. p216 = iif(~p66~<>0, transform(~p66~,'9,999,999,999.99'),' ') ;  ; 16
  118. p217 = iif(~p69~<>0, transform(~p69~,'9,999,999,999.99'),' ') ;  ; 16
  119. p218 = iif(~p72~<>0, transform(~p72~,'9,999,999,999.99'),' ') ;  ; 16
  120. p219 = iif(~p75~<>0, transform(~p75~,'9,999,999,999.99'),' ') ;  ; 16
  121. p220 = iif(~p79~<>0, transform(~p79~,'9,999,999,999.99'),' ') ;  ; 16
  122. p221 = iif(~p82~<>0, transform(~p82~,'9,999,999,999.99'),' ') ;  ; 16
  123. p222 = iif(~p86~<>0, transform(~p86~,'9,999,999,999.99'),' ') ;  ; 16
  124. p223 = iif(~p89~<>0, transform(~p89~,'9,999,999,999.99'),' ') ;  ; 16
  125. p224 = iif(~p93~<>0, transform(~p93~,'9,999,999,999.99'),' ') ;  ; 16
  126. p225 = iif(~p97~<>0, transform(~p97~,'9,999,999,999.99'),' ') ;  ; 16
  127. p226 = iif(~p101~<>0, transform(~p101~,'9,999,999,999.99'),' ') ;  ; 16
  128. p227 = iif(~p51~<>0, transform(~p51~,'99,999,999,999.99'),' ') ;  ; 17
  129. p228 = iif(~p76~<>0, transform(~p76~,'99,999,999,999.99'),' ') ;  ; 17
  130. p229 = iif(~p83~<>0, transform(~p83~,'99,999,999,999.99'),' ') ;  ; 17
  131. p230 = iif(~p90~<>0, transform(~p90~,'99,999,999,999.99'),' ') ;  ; 17
  132. p231 = iif(~p94~<>0, transform(~p94~,'99,999,999,999.99'),' ') ;  ; 17
  133. p232 = iif(~p98~<>0, transform(~p98~,'99,999,999,999.99'),' ') ;  ; 17
  134. p233 = iif(~p102~<>0, transform(~p102~,'99,999,999,999.99'),' ') ;  ; 17
  135. p234 = iif(~p52~<>0, transform(~p52~,'99,999,999,999.99'),' ') ;  ; 17
  136. p235 = iif(~p55~<>0, transform(~p55~,'99,999,999,999.99'),' ') ;  ; 17
  137. p236 = iif(~p58~<>0, transform(~p58~,'99,999,999,999.99'),' ') ;  ; 17
  138. p237 = iif(~p61~<>0, transform(~p61~,'99,999,999,999.99'),' ') ;  ; 17
  139. p238 = iif(~p64~<>0, transform(~p64~,'99,999,999,999.99'),' ') ;  ; 17
  140. p239 = iif(~p67~<>0, transform(~p67~,'99,999,999,999.99'),' ') ;  ; 17
  141. p240 = iif(~p70~<>0, transform(~p70~,'99,999,999,999.99'),' ') ;  ; 17
  142. p241 = iif(~p73~<>0, transform(~p73~,'99,999,999,999.99'),' ') ;  ; 17
  143. p242 = iif(~p77~<>0, transform(~p77~,'99,999,999,999.99'),' ') ;  ; 17
  144. p243 = iif(~p80~<>0, transform(~p80~,'99,999,999,999.99'),' ') ;  ; 17
  145. p244 = iif(~p84~<>0, transform(~p84~,'99,999,999,999.99'),' ') ;  ; 17
  146. p245 = iif(~p87~<>0, transform(~p87~,'99,999,999,999.99'),' ') ;  ; 17
  147. p246 = iif(~p91~<>0, transform(~p91~,'99,999,999,999.99'),' ') ;  ; 17
  148. p247 = iif(~p95~<>0, transform(~p95~,'99,999,999,999.99'),' ') ;  ; 17
  149. p248 = iif(~p99~<>0, transform(~p99~,'99,999,999,999.99'),' ') ;  ; 17
  150. p249 = iif(~p103~<>0, transform(~p103~,'99,999,999,999.99'),' ') ;  ; 17
  151. p250 = iif(~p104~<>0, transform(~p104~,'99,999,999,999.99'),' ') ;  ; 17
  152. p251 = iif(~p53~<>0, transform(~p53~,'99,999,999,999.99'),' ') ;  ; 17
  153. p252 = iif(~p56~<>0, transform(~p56~,'99,999,999,999.99'),' ') ;  ; 17
  154. p253 = iif(~p59~<>0, transform(~p59~,'99,999,999,999.99'),' ') ;  ; 17
  155. p254 = iif(~p62~<>0, transform(~p62~,'99,999,999,999.99'),' ') ;  ; 17
  156. p255 = iif(~p65~<>0, transform(~p65~,'99,999,999,999.99'),' ') ;  ; 17
  157. p256 = iif(~p68~<>0, transform(~p68~,'99,999,999,999.99'),' ') ;  ; 17
  158. p257 = iif(~p71~<>0, transform(~p71~,'99,999,999,999.99'),' ') ;  ; 17
  159. p258 = iif(~p74~<>0, transform(~p74~,'99,999,999,999.99'),' ') ;  ; 17
  160. p259 = iif(~p78~<>0, transform(~p78~,'99,999,999,999.99'),' ') ;  ; 17
  161. p260 = iif(~p81~<>0, transform(~p81~,'99,999,999,999.99'),' ') ;  ; 17
  162. p261 = iif(~p85~<>0, transform(~p85~,'99,999,999,999.99'),' ') ;  ; 17
  163. p262 = iif(~p88~<>0, transform(~p88~,'99,999,999,999.99'),' ') ;  ; 17
  164. p263 = iif(~p92~<>0, transform(~p92~,'99,999,999,999.99'),' ') ;  ; 17
  165. p264 = iif(~p96~<>0, transform(~p96~,'99,999,999,999.99'),' ') ;  ; 17
  166. p265 = iif(~p100~<>0, transform(~p100~,'99,999,999,999.99'),' ') ;  ; 17
  167. p267 = iif(m.pd266 # "",'X',' ') ;X; 1
  168. p268 = iif(m.pd266 # "",' ','X') ;X; 1
  169. p270 = m.pd270 ;  ;
  170. p271 = iif(~p270~=1,'X',' ') ;  ; 1
  171. p272 = iif(~p270~=2,'X',' ') ;  ; 1
  172. p273 = iif(~p270~=3,'X',' ') ;  ; 1
  173. p276 = iif(~p274~<>0, transform(~p274~,'99,999,999,999.99'),' ') ;  ; 17
  174. p277 = iif(~p275~<>0, transform(~p275~,'99,999,999,999.99'),' ') ;  ; 17
  175.