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