home *** CD-ROM | disk | FTP | other *** search
/ Polish Programs 2 / polishprograms2.iso / firma / rachmist / wzorce1.arj / PIT-11.DVR < prev    next >
Text File  |  1996-10-03  |  8KB  |  164 lines
  1. p1 = IIF(!empty(wspolnik.nip),ALLTRIM(wspolnik.nip),ALLTRIM(podmioty.nip)) ;  ; 20
  2. p2 = CTOD("01/01/"+ALLTRIM(STR(x_roknr,99,0)));;
  3. p3 = maxday();;
  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;  ; 120
  11. p13 = podmioty.nazwarej ;  ; 120
  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 = m.pd29 ;  ; 15
  28. p30 = m.pd30 ;  ; 15
  29. p31 = m.pd31 ;  ; 60
  30. p32 = m.pd32 ;  ; 40
  31. p33 = m.pd33 ;  ; 40
  32. p34 = m.pd34 ;  ; 40
  33. p35 = m.pd35 ;  ; 40
  34. p36 = m.pd36 ;  ;
  35. p37 = m.pd37 ;  ; 27
  36. p38 = m.pd38 ;  ; 30
  37. p39 = m.pd39 ;  ; 58
  38. p40 = m.pd40 ;  ; 60
  39. p41 = m.pd41 ; 999 ; 8
  40. p42 = m.pd42 ; 999 ; 6
  41. p43 = m.pd43 ;  ; 30
  42. p44 = m.pd44 ;  ; 6
  43. p45 = m.pd45 ;  ; 30
  44. p46 = m.pd46 ;  ; 26
  45. p47 = m.pd47 ;  ; 29
  46. p48 = m.pd48 ;  ; 26
  47. p49 = m.pd49 ;  ; 22
  48. p50 = dbf_suma("ewwypl","brutto", "MONTH(dataw)=x_miesnr and !bez and ewwypl.kod=m.kodprac") ;  ; 
  49. p51 = dbf_suma("ewwypl","koszt", "MONTH(dataw)=x_miesnr and !bez and ewwypl.kod=m.kodprac") ;  ; 
  50. p52 = ~p50~ - ~p51~ ;  ; 
  51. p53 = dbf_suma("ewwypl","zaliczka", "MONTH(dataw)=x_miesnr and !bez and ewwypl.kod=m.kodprac") ;  ; 
  52. p54 = m.pd54 ;  ; 
  53. p55 = m.pd55 ;  ; 
  54. p56 = m.pd56 ;  ; 
  55. p57 = m.pd57 ;  ; 
  56. p58 = m.pd58 ;  ; 
  57. p59 = m.pd59 ;  ; 
  58. p60 = m.pd60 ;  ; 
  59. p61 = m.pd61 ;  ; 
  60. p62 = m.pd62 ;  ; 
  61. p63 = m.pd63 ;  ; 
  62. p64 = m.pd64 ;  ; 
  63. p65 = m.pd65 ;  ; 
  64. p66 = m.pd66 ;  ; 
  65. p67 = m.pd67 ;  ; 
  66. p68 = m.pd68 ;  ; 
  67. p69 = m.pd69 ;  ; 
  68. p70 = m.pd70;  ; 
  69. p71 = m.pd71 ;  ; 
  70. p72 = m.pd72 ;  ; 
  71. p73 = m.pd73 ;  ; 
  72. p74 = m.pd74 ;  ; 
  73. p75 = m.pd75 ;  ; 
  74. p76 = m.pd76 ;  ; 
  75. p77 = m.pd77 ;  ; 
  76. p78 = m.pd78 ;  ; 
  77. p79 = m.pd79 ;  ; 
  78. p80 = m.pd80 ;  ; 
  79. p81 = m.pd81;  ; 
  80. p82 = m.pd82 ;  ; 
  81. p83 = m.pd83 ;  ; 
  82. p84 = m.pd84 ;  ; 
  83. p85 = m.pd85 ;  ; 
  84. p86 = m.pd86 ;  ; 
  85. p87 = m.pd87 ;  ; 
  86. p88 = m.pd88 ;  ; 
  87. p89 = dbf_suma("ewumowy","u_brutto","ewumowy.kod=m.kodprac") ;  ; 
  88. p90 = dbf_suma("ewumowy","u_brutto*u_koszt_s/100","ewumowy.kod=m.kodprac") ;  ; 
  89. p91 = ~p89~ - ~p90~ ;  ; 
  90. p92 = dbf_suma("ewumowy","u_podatek","ewumowy.kod=m.kodprac") ;  ; 
  91. p93 = m.pd93 ;  ; 
  92. p94 = m.pd94 ;  ; 
  93. p95 = m.pd95 ;  ; 
  94. p96 = m.pd96 ;  ; 
  95. p97 = m.pd97 ;  ; 
  96. p98 = m.pd98 ;  ; 
  97. p99 = m.pd99 ;  ; 
  98. p100 = m.pd100 ;  ; 
  99. p101 = ~p50~+~p54~+~p57~+~p60~+~p63~+~p66~+~p69~+~p72~+~p75~+~p79~+~p82~+~p86~+~p89~+~p93~+~p97~ ;  ; 
  100. p102 = ~p51~+~p76~+~p83~+~p90~+~p94~+~p98~ ;  ; 
  101. p103 = ~p101~-~p102~ ;  ; 
  102. p104 = ~p53~+~p56~+~p59~+~p62~+~p65~+~p68~+~p71~+~p74~+~p78~+~p81~+~p85~+~p88~+~p92~+~p96~+~p100~ ;  ; 
  103. p105 = m.pd105 ;  ; 38
  104. p106 = m.pd106 ;  ; 38
  105. p107 = m.pd107 ;  ; 
  106. p203 = CTOD(ALLTRIM(STR(~p3~,99,0))+"/"+ALLTRIM(STR(x_miesnr,2,0))+"/"+ALLTRIM(STR(x_roknr,99,0))) ;  ; 2
  107. p206 = iif( ~p7~, ' ', 'X' ) ;  ; 1
  108. p207 = iif( ~p7~, 'X', ' ' ) ;  ; 1
  109. p211 = iif(~p50~<>0, transform(~p50~,'9,999,999,999.99'),' ') ;  ; 16
  110. p212 = iif(~p54~<>0, transform(~p54~,'9,999,999,999.99'),' ') ;  ; 16
  111. p213 = iif(~p57~<>0, transform(~p57~,'9,999,999,999.99'),' ') ;  ; 16
  112. p214 = iif(~p60~<>0, transform(~p60~,'9,999,999,999.99'),' ') ;  ; 16
  113. p215 = iif(~p63~<>0, transform(~p63~,'9,999,999,999.99'),' ') ;  ; 16
  114. p216 = iif(~p66~<>0, transform(~p66~,'9,999,999,999.99'),' ') ;  ; 16
  115. p217 = iif(~p69~<>0, transform(~p69~,'9,999,999,999.99'),' ') ;  ; 16
  116. p218 = iif(~p72~<>0, transform(~p72~,'9,999,999,999.99'),' ') ;  ; 16
  117. p219 = iif(~p75~<>0, transform(~p75~,'9,999,999,999.99'),' ') ;  ; 16
  118. p220 = iif(~p79~<>0, transform(~p79~,'9,999,999,999.99'),' ') ;  ; 16
  119. p221 = iif(~p82~<>0, transform(~p82~,'9,999,999,999.99'),' ') ;  ; 16
  120. p222 = iif(~p86~<>0, transform(~p86~,'9,999,999,999.99'),' ') ;  ; 16
  121. p223 = iif(~p89~<>0, transform(~p89~,'9,999,999,999.99'),' ') ;  ; 16
  122. p224 = iif(~p93~<>0, transform(~p93~,'9,999,999,999.99'),' ') ;  ; 16
  123. p225 = iif(~p97~<>0, transform(~p97~,'9,999,999,999.99'),' ') ;  ; 16
  124. p226 = iif(~p101~<>0, transform(~p101~,'9,999,999,999.99'),' ') ;  ; 16
  125. p227 = iif(~p51~<>0, transform(~p51~,'99,999,999,999.99'),' ') ;  ; 17
  126. p228 = iif(~p76~<>0, transform(~p76~,'99,999,999,999.99'),' ') ;  ; 17
  127. p229 = iif(~p83~<>0, transform(~p83~,'99,999,999,999.99'),' ') ;  ; 17
  128. p230 = iif(~p90~<>0, transform(~p90~,'99,999,999,999.99'),' ') ;  ; 17
  129. p231 = iif(~p94~<>0, transform(~p94~,'99,999,999,999.99'),' ') ;  ; 17
  130. p232 = iif(~p98~<>0, transform(~p98~,'99,999,999,999.99'),' ') ;  ; 17
  131. p233 = iif(~p102~<>0, transform(~p102~,'99,999,999,999.99'),' ') ;  ; 17
  132. p234 = iif(~p52~<>0, transform(~p52~,'99,999,999,999.99'),' ') ;  ; 17
  133. p235 = iif(~p55~<>0, transform(~p55~,'99,999,999,999.99'),' ') ;  ; 17
  134. p236 = iif(~p58~<>0, transform(~p58~,'99,999,999,999.99'),' ') ;  ; 17
  135. p237 = iif(~p61~<>0, transform(~p61~,'99,999,999,999.99'),' ') ;  ; 17
  136. p238 = iif(~p64~<>0, transform(~p64~,'99,999,999,999.99'),' ') ;  ; 17
  137. p239 = iif(~p67~<>0, transform(~p67~,'99,999,999,999.99'),' ') ;  ; 17
  138. p240 = iif(~p70~<>0, transform(~p70~,'99,999,999,999.99'),' ') ;  ; 17
  139. p241 = iif(~p73~<>0, transform(~p73~,'99,999,999,999.99'),' ') ;  ; 17
  140. p242 = iif(~p77~<>0, transform(~p77~,'99,999,999,999.99'),' ') ;  ; 17
  141. p243 = iif(~p80~<>0, transform(~p80~,'99,999,999,999.99'),' ') ;  ; 17
  142. p244 = iif(~p84~<>0, transform(~p84~,'99,999,999,999.99'),' ') ;  ; 17
  143. p245 = iif(~p87~<>0, transform(~p87~,'99,999,999,999.99'),' ') ;  ; 17
  144. p246 = iif(~p91~<>0, transform(~p91~,'99,999,999,999.99'),' ') ;  ; 17
  145. p247 = iif(~p95~<>0, transform(~p95~,'99,999,999,999.99'),' ') ;  ; 17
  146. p248 = iif(~p99~<>0, transform(~p99~,'99,999,999,999.99'),' ') ;  ; 17
  147. p249 = iif(~p103~<>0, transform(~p103~,'99,999,999,999.99'),' ') ;  ; 17
  148. p250 = iif(~p104~<>0, transform(~p104~,'99,999,999,999.99'),' ') ;  ; 17
  149. p251 = iif(~p53~<>0, transform(~p53~,'99,999,999,999.99'),' ') ;  ; 17
  150. p252 = iif(~p56~<>0, transform(~p56~,'99,999,999,999.99'),' ') ;  ; 17
  151. p253 = iif(~p59~<>0, transform(~p59~,'99,999,999,999.99'),' ') ;  ; 17
  152. p254 = iif(~p62~<>0, transform(~p62~,'99,999,999,999.99'),' ') ;  ; 17
  153. p255 = iif(~p65~<>0, transform(~p65~,'99,999,999,999.99'),' ') ;  ; 17
  154. p256 = iif(~p68~<>0, transform(~p68~,'99,999,999,999.99'),' ') ;  ; 17
  155. p257 = iif(~p71~<>0, transform(~p71~,'99,999,999,999.99'),' ') ;  ; 17
  156. p258 = iif(~p74~<>0, transform(~p74~,'99,999,999,999.99'),' ') ;  ; 17
  157. p259 = iif(~p78~<>0, transform(~p78~,'99,999,999,999.99'),' ') ;  ; 17
  158. p260 = iif(~p81~<>0, transform(~p81~,'99,999,999,999.99'),' ') ;  ; 17
  159. p261 = iif(~p85~<>0, transform(~p85~,'99,999,999,999.99'),' ') ;  ; 17
  160. p262 = iif(~p88~<>0, transform(~p88~,'99,999,999,999.99'),' ') ;  ; 17
  161. p263 = iif(~p92~<>0, transform(~p92~,'99,999,999,999.99'),' ') ;  ; 17
  162. p264 = iif(~p96~<>0, transform(~p96~,'99,999,999,999.99'),' ') ;  ; 17
  163. p265 = iif(~p100~<>0, transform(~p100~,'99,999,999,999.99'),' ') ;  ; 17
  164.