home *** CD-ROM | disk | FTP | other *** search
/ Polish Programs 2 / polishprograms2.iso / firma / rachmist / wzorce2.arj / VAT-7.WVR < prev    next >
Text File  |  1996-10-02  |  8KB  |  166 lines
  1. p1 = IIF(!empty(wspolnik.nip),ALLTRIM(wspolnik.nip),ALLTRIM(podmioty.nip)) ; ; 14
  2. p4 = twodig(x_miesnr)+'.'+str(fullyear(x_roknr),4); ;
  3. p5 = alltrim(urzedy.us_nazwa)+', '+alltrim(urzedy.us_ulica)+' '+alltrim(urzedy.us_nrdomu)+', '+ alltrim(urzedy.us_miasto);  ; 115
  4. p6 = podmioty.osobafiz;  ; 
  5. p7 = IIF(~p6~,alltrim( wspolnik.nazwisko ) + ' ' + alltrim( wspolnik.imie1 ) + ' ' + alltrim( wspolnik.imie2 ),podmioty.nazwa);  ; 115
  6. p8 = IIF(~p6~,alltrim( wspolnik.ojciec ) + ' ' + alltrim( wspolnik.matka ),podmioty.nazwaskr);  ; 115
  7. p9 = IIF(~p6~,alltrim( wspolnik.pesel ),podmioty.regon);  ; 30
  8. p10 = IIF(~p6~,DTOC(wspolnik.dataur),DTOC(podmioty.datarozp));  ; 10
  9. p11 = podmioty.orgrej;  ; 115
  10. p12 = podmioty.nazwarej;  ; 115
  11. p13 = DTOC(podmioty.datarej);  ; 10
  12. p14 = podmioty.nrrej ;  ; 40
  13. p15 = IIF(~p6~,wspolnik.kraj,podmioty.kraj);  ; 27
  14. p16 = IIF(~p6~,wspolnik.wojewod,podmioty.wojewod);  ; 30
  15. p17 = IIF(~p6~,wspolnik.gmina,podmioty.gmina);  ; 57
  16. p18 = IIF(~p6~,wspolnik.ulica,podmioty.adres);  ; 60
  17. p19 = IIF(~p6~,wspolnik.nr_domu,podmioty.nr_domu);  ; 8
  18. p20 = IIF(~p6~,wspolnik.nr_lokalu,podmioty.nr_lokalu);  ; 6
  19. p21 = IIF(~p6~,wspolnik.miasto,podmioty.miasto);  ; 28
  20. p22 = IIF(~p6~,wspolnik.kod,podmioty.kod);  ; 6
  21. p23 = IIF(~p6~,wspolnik.poczta,podmioty.poczta);  ; 30
  22. p24 = IIF(~p6~,wspolnik.skrpocz,podmioty.skrpocz);  ; 26
  23. p25 = IIF(~p6~,wspolnik.telefon,podmioty.telefon);  ; 26
  24. p26 = IIF(~p6~,wspolnik.teleks,podmioty.telex);  ; 26
  25. p27 = IIF(~p6~,wspolnik.fax,podmioty.fax);  ; 24
  26. p28 = m.pd28;  ; 
  27. p29 = m.pd29;  ; 
  28. p30 = m.pd30;  ; 
  29. p31 = m.pd31;  ; 
  30. p32 = m.pd32;  ;  
  31. p33 = m.pd33;  ;  
  32. p34 = m.pd34;  ; 
  33. p35 = m.pd35;  ; 
  34. p36 = m.pd36;  ; 
  35. p37 = m.pd37;  ; 
  36. p38 = m.pd38;  ; 
  37. p39 = l_stknet2 ;  ;
  38. p40 = l_stkvat2 ;  ; 
  39. p41 = l_stknet3 ;  ; 
  40. p42 = l_stkvat3 ;  ; 
  41. p43 = l_pozknet2 ;  ; 
  42. p44 = l_pozkvat2 ;  ;  
  43. p45 = l_pozknet3 ;  ; 
  44. p46 = l_pozkvat3 ;  ;  
  45. p47 = l_stnet2 ;  ;
  46. p48 = l_stvat2 ;  ; 
  47. p49 = l_stnet3 ;  ; 
  48. p50 = l_stvat3 ;  ; 
  49. p51 = l_poznet2 ;  ; 
  50. p52 = l_pozvat2 ;  ;  
  51. p53 = l_poznet3 ;  ; 
  52. p54 = l_pozvat3 ;  ;  
  53. p55 = l_spkneto ;  ; 
  54. p56 = l_spkvato ;  ; 
  55. p57 = l_spknetz ;  ; 
  56. p58 = l_spnetzw + l_denetzw ;  ; 
  57. p59 = l_spnet0 + l_denet0 ;  ; 
  58. p61 = l_spnetexp ;  ;
  59. p63 = l_spnet7 + l_denet7;  ; 
  60. p64 = l_spvat7 + l_devat7;  ; 
  61. p65 = l_spnet22 + l_denet22 ;  ; 
  62. p66 = l_spvat22 + l_devat22 ;  ; 
  63. p67 = l_spnet12 + l_denet12 ;  ; 
  64. p68 = l_spvat12 + l_devat12 ;  ; 
  65. p69 = INT(~p55~) + INT(~p57~) + INT(~p58~) + INT(~p59~) + INT(~p61~) + INT(~p63~) + INT(~p65~) + INT(~p67~);  ; 
  66. p70 = INT(~p56~) + INT(~p64~) + INT(~p66~) + INT(~p68~);  ; 
  67. p71 = INT(INT(~p34~) + INT(~p42~) + INT(~p50~)) * IIF( m.sprzedcal <> 0, (m.sprzedop / m.sprzedcal), 0 );  ; 
  68. p72 = IIF(INT(~p57~) + INT(~p57~) <= 0, INT(~p38~)+INT(~p46~)+INT(~p54~), IIF( ~p69~ == 0, INT(~p38~)+INT(~p46~)+INT(~p54~),(INT(~p38~)+INT(~p46~)+INT(~p54~))*(INT(~p69~)-INT(~p57~)-INT(~p58~))/INT(~p69~))) ;  ; 
  69. p73 = INT(~p29~) + INT(~p30~) + INT(~p32~) + INT(~p36~) + INT(~p40~) + INT(~p44~) + INT(~p48~) + INT(~p52~) + INT(~p71~) + INT(~p72~);  ; 
  70. p74 = m.pd74;  ; 8
  71. p75 = m.pd75;  ; 
  72. p76 = m.pd76;  ; 8
  73. p77 = m.pd77;  ; 
  74. p78 = m.pd78;  ; 8
  75. p79 = m.pd79;  ; 
  76. p80 = m.pd80;  ; 8
  77. p81 = m.pd81;  ; 
  78. p82 = ~p75~ + ~p77~ + ~p79~ + ~p81~;  ; 
  79. p83 = m.pd83;  ; 8
  80. p84 = m.pd84;  ; 
  81. p85 = m.pd85;  ; 8
  82. p86 = m.pd86;  ; 
  83. p87 = m.pd87;  ; 8
  84. p88 = m.pd88;  ; 
  85. p89 = m.pd89;  ; 8
  86. p90 = m.pd90;  ; 
  87. p91 = ~p84~ + ~p86~ + ~p88~ + ~p90~;  ; 
  88. p92 = IIF((~p70~ + ~p91~) - (~p73~ + ~p82~)>0, (~p70~ + ~p91~) - (~p73~ + ~p82~), 0) ;  ; 
  89. p93 = MIN(MAX(m.pd93,0),~p92~);  ; 
  90. p94 = ~p92~ - ~p93~;  ; 
  91. p95 = IIF((~p70~ + ~p91~) - (~p73~ + ~p82~)<0, (~p73~ + ~p82~)  - (~p70~ + ~p91~), 0);  ; 
  92. p96 = m.pd93;  ; 
  93. p97 = ~p95~ + ~p96~;  ; 
  94. p98 = MIN(m.pd98,~p97~);  ; 
  95. p99 = IIF(~p95~>0, ~p97~-MIN(MAX(~p98~,0),~p97~), 0);  ; 
  96. p100 = m.pd100;  ; 40
  97. p101 = m.pd101;  ; 60
  98. p102 = m.pd102;  ; 10
  99. p104 = m.pd104;  ; 40
  100. p200 = iif( ~p6~, ' ', 'X' ) ;  ; 1
  101. p201 = iif( ~p6~, 'X', ' ' ) ;  ; 1
  102. p202 = iif( ~p28~=1, 'X', ' ' ) ;  ; 1
  103. p203 = iif( ~p28~=2, 'X', ' ' ) ;  ; 1
  104. p204 = iif( ~p28~=3, 'X', ' ' ) ;  ; 1
  105. p205 = iif(~p42~<>0, transform(~p42~,'99,999,999,999'),' ') ;  ; 17
  106. p206 = iif(~p40~<>0, transform(~p40~,'99,999,999,999'),' ') ;  ; 17 
  107. p207 = iif(~p41~<>0, transform(~p41~,'99,999,999,999'),' ') ;  ; 17
  108. p208 = iif(~p39~<>0, transform(~p39~,'99,999,999,999'),' ') ;  ; 17
  109. p209 = iif(~p38~<>0, transform(~p38~,'99,999,999,999'),' ') ;  ; 17
  110. p210 = iif(~p36~<>0, transform(~p36~,'99,999,999,999'),' ') ;  ; 17
  111. p211 = iif(~p37~<>0, transform(~p37~,'99,999,999,999'),' ') ;  ; 17
  112. p212 = iif(~p35~<>0, transform(~p35~,'99,999,999,999'),' ') ;  ; 17
  113. p213 = iif(~p29~<>0, transform(~p29~,'99,999,999,999'),' ') ;  ; 17
  114. p214 = iif(~p31~<>0, transform(~p31~,'99,999,999,999'),' ') ;  ; 17
  115. p215 = iif(~p33~<>0, transform(~p33~,'99,999,999,999'),' ') ;  ; 17
  116. p216 = iif(~p30~<>0, transform(~p30~,'99,999,999,999'),' ') ;  ; 17
  117. p217 = iif(~p32~<>0, transform(~p32~,'99,999,999,999'),' ') ;  ; 17
  118. p218 = iif(~p34~<>0, transform(~p34~,'99,999,999,999'),' ') ;  ; 17
  119. p219 = iif(~p46~<>0, transform(~p46~,'99,999,999,999'),' ') ;  ; 17
  120. p220 = iif(~p44~<>0, transform(~p44~,'99,999,999,999'),' ') ;  ; 17
  121. p221 = iif(~p45~<>0, transform(~p45~,'99,999,999,999'),' ') ;  ; 17
  122. p222 = iif(~p43~<>0, transform(~p43~,'99,999,999,999'),' ') ;  ; 17
  123. p223 = iif(~p54~<>0, transform(~p54~,'99,999,999,999'),' ') ;  ; 17
  124. p224 = iif(~p52~<>0, transform(~p52~,'99,999,999,999'),' ') ;  ; 17
  125. p225 = iif(~p53~<>0, transform(~p53~,'99,999,999,999'),' ') ;  ; 17
  126. p226 = iif(~p51~<>0, transform(~p51~,'99,999,999,999'),' ') ;  ; 17
  127. p227 = iif(~p47~<>0, transform(~p47~,'99,999,999,999'),' ') ;  ; 17
  128. p228 = iif(~p49~<>0, transform(~p49~,'99,999,999,999'),' ') ;  ; 17
  129. p229 = iif(~p48~<>0, transform(~p48~,'99,999,999,999'),' ') ;  ; 17
  130. p230 = iif(~p50~<>0, transform(~p50~,'99,999,999,999'),' ') ;  ; 17
  131. p231 = iif(~p68~<>0, transform(~p68~,'99,999,999,999'),' ') ;  ; 17
  132. p232 = iif(~p67~<>0, transform(~p67~,'99,999,999,999'),' ') ;  ; 17
  133. p233 = iif(~p55~<>0, transform(~p55~,'99,999,999,999'),' ') ;  ; 17
  134. p234 = iif(~p57~<>0, transform(~p57~,'99,999,999,999'),' ') ;  ; 17
  135. p235 = iif(~p56~<>0, transform(~p56~,'99,999,999,999'),' ') ;  ; 17
  136. p236 = iif(~p58~<>0, transform(~p58~,'99,999,999,999'),' ') ;  ; 17
  137. p237 = iif(~p59~<>0, transform(~p59~,'99,999,999,999'),' ') ;  ; 17
  138. p238 = iif(~p64~<>0, transform(~p64~,'99,999,999,999'),' ') ;  ; 17
  139. p239 = iif(~p61~<>0, transform(~p61~,'99,999,999,999'),' ') ;  ; 17
  140. p240 = iif(~p63~<>0, transform(~p63~,'99,999,999,999'),' ') ;  ; 17
  141. p241 = iif(~p65~<>0, transform(~p65~,'99,999,999,999'),' ') ;  ; 17
  142. p242 = iif(~p66~<>0, transform(~p66~,'99,999,999,999'),' ') ;  ; 17
  143. p243 = iif(~p70~<>0, transform(~p70~,'99,999,999,999'),' ') ;  ; 17
  144. p244 = iif(~p69~<>0, transform(~p69~,'99,999,999,999'),' ') ;  ; 17
  145. p245 = iif(~p71~<>0, transform(~p71~,'99,999,999,999'),' ') ;  ; 17
  146. p246 = iif(~p72~<>0, transform(~p72~,'99,999,999,999'),' ') ;  ; 17
  147. p247 = iif(~p73~<>0, transform(~p73~,'99,999,999,999'),' ') ;  ; 17
  148. p248 = iif(~p75~<>0, transform(~p75~,'99,999,999,999'),' ') ;  ; 17
  149. p249 = iif(~p81~<>0, transform(~p81~,'99,999,999,999'),' ') ;  ; 17
  150. p250 = iif(~p77~<>0, transform(~p77~,'99,999,999,999'),' ') ;  ; 17
  151. p251 = iif(~p79~<>0, transform(~p79~,'99,999,999,999'),' ') ;  ; 17
  152. p252 = iif(~p82~<>0, transform(~p82~,'99,999,999,999'),' ') ;  ; 17
  153. p253 = iif(~p84~<>0, transform(~p84~,'99,999,999,999'),' ') ;  ; 17
  154. p254 = iif(~p90~<>0, transform(~p90~,'99,999,999,999'),' ') ;  ; 17
  155. p255 = iif(~p86~<>0, transform(~p86~,'99,999,999,999'),' ') ;  ; 17
  156. p256 = iif(~p88~<>0, transform(~p88~,'99,999,999,999'),' ') ;  ; 17
  157. p257 = iif(~p91~<>0, transform(~p91~,'99,999,999,999'),' ') ;  ; 17
  158. p258 = iif(~p92~>0, transform(~p92~,'99,999,999,999'),' ') ;  ; 17
  159. p259 = iif(~p97~>0, transform(~p97~,'99,999,999,999'),' ') ;  ; 17
  160. p260 = iif(~p98~>0, transform(~p98~,'99,999,999,999'),' ') ;  ; 17
  161. p261 = iif(~p99~>0, transform(~p99~,'99,999,999,999'),' ') ;  ; 17
  162. p262 = iif(~p93~>0, transform(~p93~,'99,999,999,999'),' ') ;  ; 17
  163. p263 = iif(~p94~>0, transform(~p94~,'99,999,999,999'), iif(~p92~ > 0, '             0',' ')) ;  ; 17
  164. p264 = iif(~p95~>0, transform(~p95~,'99,999,999,999'),' ') ;  ; 17
  165. p265 = iif(~p96~>0, transform(~p96~,'99,999,999,999'),' ') ;  ; 17
  166.