home *** CD-ROM | disk | FTP | other *** search
/ Polish Programs 2 / polishprograms2.iso / firma / rachmist / wzorce2.arj / PIT-5.WVR < prev    next >
Text File  |  1996-10-11  |  7KB  |  157 lines
  1. p1 = IIF(!empty(wspolnik.nip),ALLTRIM(wspolnik.nip),ALLTRIM(podmioty.nip)) ;  ; 15
  2. p4 = twodig(x_miesnr) + "." + str(fullyear(x_roknr),4);  ; 7
  3. p5 = alltrim(urzedy.us_nazwa)+', '+alltrim(urzedy.us_ulica)+' '+alltrim(urzedy.us_nrdomu)+', '+ alltrim(urzedy.us_miasto) ;  ; 110
  4. p6 = m.pd6 ;  ; 15
  5. p7 = m.pd7 ;  ; 55
  6. p8 = m.pd8 ;  ; 40
  7. p9 = m.pd9 ;  ; 40
  8. p10 = m.pd10 ;  ; 40
  9. p11 = m.pd11 ;  ; 40
  10. p12 = m.pd12 ; @E ; 8
  11. p13 = m.pd13 ;  ; 30
  12. p14 = m.pd14 ;  ; 30
  13. p15 = m.pd15 ;  ; 30
  14. p16 = m.pd16 ;  ; 30
  15. p17 = m.pd17 ;  ; 60
  16. p18 = m.pd18 ;  ; 8
  17. p19 = m.pd19 ;  ; 6
  18. p20 = m.pd20 ;  ; 30
  19. p21 = m.pd21 ;  ; 6
  20. p22 = m.pd22 ;  ; 30
  21. p23 = m.pd23 ;  ; 15
  22. p24 = m.pd24 ;  ; 25
  23. p25 = m.pd24 ;  ; 25
  24. p26 = m.pd26 ;  ; 25
  25. p102 = dbf_pole("podmioty","nip") ;  ; 15
  26. p103 = dbf_pole("podmioty","regon") ;  ; 15
  27. p104 = dbf_pole("podmioty","nazwa") ;  ; 50
  28. p105 = dbf_pole("podmioty","miasto") ;  ; 60
  29. p106 = (dbf_pole("wspolnik","udzial_lz")/dbf_pole("wspolnik","udzial_mz"))*100 ; 999.99 ; 6
  30. p107 = m.pop107+dbf_suma("work","ptowar+pinne","YEAR(data)==fullyear(x_roknr) AND MONTH(data) = x_miesnr")*~p106~/100 ; 99,999,999,999.99 ; 17
  31. p108 = m.pop108+dbf_suma("work","wzakup+wkoszty+wprzerob+wreklama+wwyplata+winne","YEAR(data)==fullyear(x_roknr) AND MONTH(data) = x_miesnr")*~p106~/100 ; 99,999,999,999.99 ; 17
  32. p109 = MAX(0,~p107~-~p108~) ; 99,999,999,999.99 ; 17
  33. p110 = MAX(0,~p108~-~p107~) ; 99,999,999,999.99 ; 17
  34. p111 = dbf_pole("wspdzial","NIP","id=wspolnik.id AND typ =1") ;  ; 15
  35. p112 = dbf_pole("wspdzial","REGON","id=wspolnik.id AND typ =1") ;  ; 15
  36. p113 = m.pd113 ;  ; 50
  37. p114 = dbf_pole("wspdzial","miejsce","id=wspolnik.id AND typ =1") ;  ; 60
  38. p115 = m.pd115 ; 999.99 ; 6
  39. p116 = m.pd116 ; 99,999,999,999.99 ; 17
  40. p117 = m.pd117 ; 99,999,999,999.99 ; 17
  41. p118 = m.pd118 ; 99,999,999,999.99 ; 17
  42. p119 = m.pd119 ; 99,999,999,999.99 ; 17
  43. p27 =  ~p107~+~p116~; 99,999,999,999.99 ; 17
  44. p28 =  ~p108~+~p117~; 99,999,999,999.99 ; 17
  45. p29 = MAX(0,~p27~- ~p28~) ; 99,999,999,999.99 ; 17
  46. p30 = MAX(0,-(~p27~- ~p28~)) ; 99,999,999,999.99 ; 17
  47. p120 = m.pd120 ;  ; 50
  48. p121 = dbf_pole("wspdzial","miejsce","id=wspolnik.id AND typ =2") ;  ; 60
  49. p122 = m.pd122 ; 999.99 ; 6
  50. p123 = m.pd126 ; 99,999,999,999.99 ; 17
  51. p124 = m.pd124 ; 99,999,999,999.99 ; 17
  52. p125 = m.pd125 ; 99,999,999,999.99 ; 17
  53. p126 = m.pd126 ; 99,999,999,999.99 ; 17
  54. p127 = m.pd127 ;  ; 50
  55. p128 = m.pd128 ;  ; 60
  56. p129 = m.pd129 ; 999.99 ; 6
  57. p130 = m.pd130 ; 99,999,999,999.99 ; 17
  58. p131 = m.pd131 ; 99,999,999,999.99 ; 17
  59. p132 = m.pd132 ; 99,999,999,999.99 ; 17
  60. p133 = m.pd133 ; 99,999,999,999.99 ; 17
  61. p31 = ~p123~+~p130~ ; 99,999,999,999.99 ; 17
  62. p32 = ~p124~+~131~ ; 99,999,999,999.99 ; 17
  63. p33 = MAX(0,~p31~- ~p32~) ; 99,999,999,999.99 ; 17
  64. p34 = MAX(0,-(~p31~- ~p32~)) ; 99,999,999,999.99 ; 17
  65. p35 = m.pd35 ; 99,999,999,999.99 ; 17
  66. p36 = m.pd36 ; 99,999,999,999.99 ; 17
  67. p37 = MAX(0,~p35~- ~p36~) ; 99,999,999,999.99 ; 17
  68. p38 = MAX(0,-(~p35~- ~p36~)) ; 99,999,999,999.99 ; 17
  69. p39 = m.pd39 ; 99,999,999,999.99 ; 17
  70. p40 = m.pd40 ; 99,999,999,999.99 ; 17
  71. p41 = MAX(0,~p39~- ~p40~) ; 99,999,999,999.99 ; 17
  72. p42 = MAX(0, - (~p39~- ~p40~)) ; 99,999,999,999.99 ; 17
  73. p43 = m.pd43 ; 99,999,999,999.99 ; 17
  74. p44 = m.pd43 ; 99,999,999,999.99 ; 17
  75. p45 = ~p27~ + ~p31~ + ~p35~ + ~p39~ + ~p43~ ; 99,999,999,999.99 ; 17
  76. p46 = ~p28~ + ~p32~ + ~p36~ + ~p40~ ; 99,999,999,999.99 ; 17
  77. p47 = ~p29~ + ~p33~ + ~p37~ + ~p41~ + ~p44~ ; 99,999,999,999.99 ; 17
  78. p48 = ~p30~ + ~p34~ + ~p38~ + ~p42~ ; 99,999,999,999.99 ; 17
  79. p49 = m.pd49 ; 99,999,999,999.99 ; 17
  80. p50 = MAX(0,~p47~ - ~p49~) ; 99,999,999,999.99 ; 17
  81. p51 = m.pd51 ;  ; 55
  82. p52 = m.pd52 ; 99,999,999,999.99 ; 17
  83. p53 = m.pd53 ;  ; 55
  84. p54 = m.pd54 ; 99,999,999,999.99 ; 17
  85. p55 = m.pd55 ; 99,999,999,999.99 ; 17
  86. p56 = m.pd56 ; 99,999,999,999.99 ; 17
  87. p57 = m.pd57 ; 99,999,999,999.99 ; 17
  88. p58 = m.pd58 ; 99999 ; 
  89. p59 = m.pd59 ; 99,999,999,999.99 ; 17
  90. p60 = m.pd60 ; 99,999,999,999.99 ; 17
  91. p61 = m.pd61 ; 99,999,999,999.99 ; 17
  92. p62 = m.pd62 ; 99,999,999,999.99 ; 17
  93. p63 = m.pd63 ; 99,999,999,999.99 ; 17
  94. p64 = m.pd64 ; 99,999,999,999.99 ; 17
  95. p65 = m.pd65 ; 99,999,999,999.99 ; 17
  96. p66 = m.pd66 ; 99,999,999,999.99 ; 17
  97. p67 = m.pd67 ;  ; 60
  98. p68 = m.pd68 ; 99,999,999,999.99 ; 17
  99. p69 = m.pd69 ;  ; 60
  100. p70 = m.pd70 ; 99,999,999,999.99 ; 17
  101. p71 = m.pd71 ;  ; 60
  102. p72 = m.pd72 ; 99,999,999,999.99 ; 17
  103. p73 = m.pd73 ;  ; 60
  104. p74 = m.pd74 ; 99,999,999,999.99 ; 17
  105. p75 = m.pd75 ;  ; 60
  106. p76 = m.pd76 ; 99,999,999,999.99 ; 17
  107. p77 = ~p52~ + ~p54~ + ~p55~ + ~p56~ + ~p57~ + ~p59~ + ~p60~ + ~p61~ + ~p62~ + ~p63~ + ~p64~ + ~p65~ + ~p66~ + ~p68~ + ~p70~ + ~p72~ + ~p74~ + ~p76~ ; 99,999,999,999.99 ; 17
  108. p78 = round(MAX((~p50~ - ~p77~),0),0); 99,999,999,999.99 ; 17
  109. p79 = MAX(liczpod(~p78~,makedata()),0); 99,999,999,999.99 ; 17
  110. p80 = m.pd80 ; 99,999,999,999.99 ; 17
  111. p81 = m.pd81 ; 99,999,999,999.99 ; 17
  112. p82 = m.pd82 ; 99,999,999,999.99 ; 17
  113. p83 = m.pd83 ;  ; 70
  114. p84 = m.pd84 ; 99,999,999,999.99 ; 17
  115. p85 = ~p80~ + ~p81~ + ~p82~ + ~p84~  ; 99,999,999,999.99 ; 17
  116. p86 = IIF(~p79~ - ~p85~ < 0,0, ~p79~ - ~p85~); 99,999,999,999.99 ; 17
  117. p87 = m.pd87 ; 99,999,999,999.99 ; 17 
  118. p88 = m.pd88 ;  99,999,999,999.99 ; 17 
  119. p89 = INT(~p87~*~p88~/100) ; 99,999,999,999.99 ; 17 
  120. p90 = ~p89~*0.1 ; 99,999,999,999.99 ; 17 
  121. p91 = VAL(STR(~p86~+~p90~,13,1)) ; 99,999,999,999.99 ; 17 
  122. p92 = m.pop91 ;  ; 
  123. p93 = IIF(~p91~ - ~p92~ < 0, 0, ~p91~ - ~p92~) ; 99,999,999,999.99 ; 17 
  124. p94 = IIF(~p92~ - ~p91~ < 0, 0, ~p92~ - ~p91~) ; 99,999,999,999.99 ; 17 
  125. p95 = m.pop95+m.pop96 ;  ; 
  126. p96 = IIF(~p91~ - ~p95~ < 0, 0, ~p91~ - ~p95~) ; 99,999,999,999.99 ; 17 
  127. p97 = IIF(~p95~ - ~p91~ < 0, 0, ~p95~ - ~p91~) ; 99,999,999,999.99 ; 17 
  128. p98 = ~p96~ ; 99,999,999,999.99 ; 17  
  129. p99 = slowami(~p98~) ;  ; 
  130. p100 = m.pd100 ;  ; 
  131. p101 = m.pd101 ; @E ; 8
  132. p134 = m.pd134 ;99; 6
  133. p135 = m.pd135 ;99; 6
  134. p136 = m.pd136 ;99; 6
  135. p137 = m.pd137 ;99; 6
  136. p138 = m.pd138 ;  ; 45
  137. p139 = m.pd139 ;  ; 60
  138. p140 = m.pd140 ; @E ; 8
  139. p201 = iif(~p100~=1,'X',' ') ;  ; 1
  140. p202 = iif(~p100~=2,'X',' ') ;  ; 1
  141. p203 = iif(~p100~=3,'X',' ') ;  ; 1
  142. p204 = iif(~p91~<>0, transform(~p91~,'99,999,999,999.99'),' ') ;  ; 17
  143. p205 = iif(~p92~<>0, transform(~p92~,'99,999,999,999.99'),' ') ;  ; 17
  144. p206 = iif(~p93~<>0, transform(~p93~,'99,999,999,999.99'),' ') ;  ; 17
  145. p207 = iif(~p94~<>0, transform(~p94~,'99,999,999,999.99'),' ') ;  ; 17
  146. p208 = iif(~p95~<>0, transform(~p95~,'99,999,999,999.99'),' ') ;  ; 17
  147. p209 = iif(~p96~<>0, transform(~p96~,'99,999,999,999.99'),' ') ;  ; 17
  148. p210 = iif(~p97~<>0, transform(~p97~,'99,999,999,999.99'),' ') ;  ; 17
  149. p211 = iif(~p89~<>0, transform(~p89~,'99,999,999,999.99'),' ') ;  ; 17
  150. p212 = iif(~p87~<>0, transform(~p87~,'99,999,999,999.99'),' ') ;  ; 17
  151. p213 = iif(~p88~<>0, transform(~p88~,'99,999,999,999.99')+' %',' ') ;  ; 17
  152. p214 = iif(~p90~<>0, transform(~p90~,'99,999,999,999.99'),' ') ;  ; 17
  153. p215 = iif(~p98~<0,0,trans(~p98~,'99,999,999,999.99')) ;  ; 17
  154. p216 = left(~p99~,80) ;  ; 80
  155. p217 = substr(~p99~,81) ;  ; 80
  156. p218 = ~p86~ ; 99,999,999,999.99 ; 17
  157.