home *** CD-ROM | disk | FTP | other *** search
/ PC World Komputer 1999 mARCH / PCWK3A99.iso / Polskie / Insert / WZORCE2.ARJ / PIT-8B.WVR < prev    next >
Text File  |  1999-01-05  |  7KB  |  133 lines
  1. p1 = IIF(podmioty.osobafiz,ALLTRIM(podmioty.pnip),ALLTRIM(podmioty.nip)) ;  ; 20
  2. p5 = dbf_pole("pracow","urzad_nr","pracow.id=m.id"); ;
  3. p5 = 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
  4. p6 = IIF(podmioty.osobafiz,.T.,.F.)  ;  ; 
  5. p7 = IIF(~p6~,ALLTRIM(podmioty.pnazwisko)+' '+ALLTRIM(podmioty.pimie1)+' '+podmioty.pimie2+' '+DTOC(podmioty.pdataur),podmioty.nazwa) ;  ; 116
  6. p8 = IIF(~p6~,ALLTRIM(podmioty.pojciec)+' '+podmioty.pmatka,podmioty.nazwaskr) ;  ; 45
  7. p9 = IIF(~p6~,podmioty.regon,podmioty.regon) ;  ; 30
  8. p10 = IIF(~p6~,DTOC(podmioty.pdataur),DTOC(podmioty.datarozp)) ;  ; 10
  9.  
  10. p11 = IIF(~p6~,podmioty.pkraj,podmioty.kraj) ;  ; 22
  11. p12 = IIF(~p6~,podmioty.pwojewod,podmioty.wojewod) ;  ; 26
  12. p13 = IIF(~p6~,podmioty.pgmina,podmioty.gmina) ;  ; 40
  13. p14 = IIF(~p6~,podmioty.pulica,podmioty.adres) ;  ; 60
  14. p15 = IIF(~p6~,podmioty.pnr_domu,podmioty.nr_domu) ;  ; 8
  15. p16 = IIF(~p6~,podmioty.pnr_lokalu,podmioty.nr_lokalu) ;  ; 6
  16. p17 = IIF(~p6~,podmioty.pmiasto,podmioty.miasto) ;  ; 30
  17. p18 = IIF(~p6~,podmioty.pkod,podmioty.kod) ;  ; 6
  18. p19 = IIF(~p6~,podmioty.ppoczta,podmioty.poczta) ;  ; 30
  19. p20 = IIF(~p6~,podmioty.pskrpocz,podmioty.skrpocz) ;  ; 10
  20. p21 = IIF(~p6~,podmioty.ptelefon,podmioty.telefon) ;  ; 20
  21. p22 = IIF(~p6~,podmioty.ptelex,podmioty.telex) ;  ; 22
  22. p23 = IIF(~p6~,podmioty.pfax,podmioty.fax) ;  ; 22
  23. p24 = m.pd24 ;  ; 15
  24. p25 = m.pd25 ;  ; 15
  25. p26 = m.pd26 ;  ; 60
  26. p27 = m.pd27 ;  ; 40
  27. p28 = m.pd28 ;  ; 40
  28. p29 = m.pd29 ;  ; 40
  29. p30 = m.pd30 ;  ; 40
  30. p31 = m.pd31 ;  ;
  31. p32 = m.pd32 ;  ; 27
  32. p33 = m.pd33 ;  ; 30
  33. p34 = m.pd34 ;  ; 58
  34. p35 = m.pd35 ;  ; 58
  35. p36 = m.pd36 ;  ; 8
  36. p37 = m.pd37 ;  ; 6
  37. p38 = m.pd38 ;  ; 30
  38. p39 = m.pd39 ;  ; 6
  39. p40 = m.pd40 ;  ; 30
  40. p41 = m.pd41 ;  ; 29
  41. p42 = m.pd42 ;  ; 26
  42. p43 = m.pd43 ;  ; 15
  43. p44 = m.pd44 ;  ; 
  44. p45 = m.pd45 ;  ; 
  45. p46 = ~p44~ - ~p45~;  ; 
  46. p47 = m.pd47 ;  ; 
  47. p48 = m.pd48 ;  ; 
  48. p49 = ~p48~ ;  ; 
  49. p50 = m.pd50 ;  ; 
  50. p51 = m.pd51 ;  ; 
  51. p52 = m.pd52 ;  ; 
  52. p53 = ~p51~ - ~p52~;  ; 
  53. p54 = m.pd54 ;  ; 
  54. p55 = m.pd55 ;  ; 
  55. p56 = ~p55~ ;  ; 
  56. p57 = m.pd57 ;  ; 
  57. p58 = dbf_suma("zlecenie","brutto","zlecenie.brutto>=l1_pit8ab AND zlecenie.idprac=m.id AND YEAR(zlecenie.dataw)=l1_rok AND !zlecenie.aktualna") ;  ; 
  58. p59 = dbf_suma("zlecenie","brutto*koszt_s/100","zlecenie.brutto>=l1_pit8ab AND zlecenie.idprac=m.id AND YEAR(zlecenie.dataw)=l1_rok AND !zlecenie.aktualna") ;  ; 
  59. p60 = ~p58~ - ~p59~ ;  ; 
  60. p61 = dbf_suma("zlecenie","podatek","zlecenie.brutto>=l1_pit8ab AND zlecenie.idprac=m.id AND YEAR(zlecenie.dataw)=l1_rok AND !zlecenie.aktualna") ;  ; 
  61. p62 = m.pd62 ;  ; 
  62. p63 = m.pd63 ;  ; 
  63. p64 = ~p62~ - ~p63~ ;  ; 
  64. p65 = m.pd65 ;  ; 
  65. p66 = m.pd66 ;  ; 
  66. p67 = m.pd67 ;  ; 
  67. p68 = ~p66~ - ~p67~ ;  ; 
  68. p69 = m.pd69 ;  ; 
  69. p70 = ~p44~ + ~p48~ + ~p51~ + ~p55~ + ~p58~ + ~p62~ + ~p66~;  ; 
  70. p71 = ~p45~ + ~p52~ + ~p59~ + ~p63~ + ~p67~;  ; 
  71. p72 = ~p70~ - ~p71~ ;  ; 
  72. p73 = ~p47~ + ~p50~ + ~p54~ + ~p57~ + ~p61~ + ~p65~ + ~p69~ ;  ; 
  73. p83 = m.pd83 ;  ;
  74. p84 = ~p73~ - ~p83~ ;  ;
  75. p74 = ~p84~ ;9,999,999,999.99; 16
  76. p75 = m.pd75 ;  ; 100
  77. p76 = m.pd76 ;  ; 
  78. p77 = m.pd77 ;  ; 100
  79. p78 = m.pd78 ;  ; 
  80. p79 = m.pd79 ;  ; 38
  81. p80 = m.pd80 ;  ; 40
  82. p81 = m.pd81 ;  ; 38
  83. p82 = m.pd82 ;  ; 10
  84. p200 = iif( ~p6~, ' ', 'X' ) ;  ; 1
  85. p201 = iif( ~p6~, 'X', ' ' ) ;  ; 1
  86. p203 = iif(~p79~=1,'X',' ') ;  ; 1
  87. p204 = iif(~p79~=2,'X',' ') ;  ; 1
  88. p205 = str(fullyear(l1_rok),4) ;  ; 4
  89.  
  90. p206 = iif(~p44~<>0, transform(~p44~,'99,999,999,999.99'),' ') ;  ; 17
  91. p207 = iif(~p48~<>0, transform(~p48~,'99,999,999,999.99'),' ') ;  ; 17
  92. p208 = iif(~p51~<>0, transform(~p51~,'99,999,999,999.99'),' ') ;  ; 17
  93. p209 = iif(~p55~<>0, transform(~p55~,'99,999,999,999.99'),' ') ;  ; 17
  94. p210 = iif(~p58~<>0, transform(~p58~,'99,999,999,999.99'),' ') ;  ; 17
  95. p211 = iif(~p62~<>0, transform(~p62~,'99,999,999,999.99'),' ') ;  ; 17
  96. p212 = iif(~p66~<>0, transform(~p66~,'99,999,999,999.99'),' ') ;  ; 17
  97. p213 = iif(~p70~<>0, transform(~p70~,'99,999,999,999.99'),' ') ;  ; 17
  98. p214 = iif(~p45~<>0, transform(~p45~,'99,999,999,999.99'),' ') ;  ; 17
  99. p215 = iif(~p52~<>0, transform(~p52~,'99,999,999,999.99'),' ') ;  ; 17
  100. p216 = iif(~p59~<>0, transform(~p59~,'99,999,999,999.99'),' ') ;  ; 17
  101. p217 = iif(~p63~<>0, transform(~p63~,'99,999,999,999.99'),' ') ;  ; 17
  102. p218 = iif(~p67~<>0, transform(~p67~,'99,999,999,999.99'),' ') ;  ; 17
  103. p219 = iif(~p71~<>0, transform(~p71~,'99,999,999,999.99'),' ') ;  ; 17
  104. p220 = iif(~p47~<>0, transform(~p47~,'99,999,999,999.99'),' ') ;  ; 17
  105. p221 = iif(~p50~<>0, transform(~p50~,'99,999,999,999.99'),' ') ;  ; 17
  106. p222 = iif(~p54~<>0, transform(~p54~,'99,999,999,999.99'),' ') ;  ; 17
  107. p223 = iif(~p57~<>0, transform(~p57~,'99,999,999,999.99'),' ') ;  ; 17
  108. p224 = iif(~p61~<>0, transform(~p61~,'99,999,999,999.99'),' ') ;  ; 17
  109. p225 = iif(~p65~<>0, transform(~p65~,'99,999,999,999.99'),' ') ;  ; 17
  110. p226 = iif(~p69~<>0, transform(~p69~,'99,999,999,999.99'),' ') ;  ; 17
  111. p227 = iif(~p73~<>0, transform(~p73~,'99,999,999,999.99'),' ') ;  ; 17
  112. p228 = iif(~p46~<>0, transform(~p46~,'99,999,999,999.99'),' ') ;  ; 17
  113. p229 = iif(~p49~<>0, transform(~p49~,'99,999,999,999.99'),' ') ;  ; 17
  114. p230 = iif(~p53~<>0, transform(~p53~,'99,999,999,999.99'),' ') ;  ; 17
  115. p231 = iif(~p56~<>0, transform(~p56~,'99,999,999,999.99'),' ') ;  ; 17
  116. p232 = iif(~p60~<>0, transform(~p60~,'99,999,999,999.99'),' ') ;  ; 17
  117. p233 = iif(~p64~<>0, transform(~p64~,'99,999,999,999.99'),' ') ;  ; 17
  118. p234 = iif(~p68~<>0, transform(~p68~,'99,999,999,999.99'),' ') ;  ; 17
  119. p235 = iif(~p72~<>0, transform(~p72~,'99,999,999,999.99'),' ') ;  ; 17
  120. p239 = iif(~p76~<>0, transform(~p76~,'99,999,999,999.99'),' ') ;  ; 17
  121. p240 = iif(~p78~<>0, transform(~p78~,'99,999,999,999.99'),' ') ;  ; 17
  122. p241 = iif(~p83~<>0, transform(~p83~,'99,999,999,999.99'),' ') ;  ; 17
  123. p242 = iif(~p84~<>0, transform(~p84~,'99,999,999,999.99'),' ') ;  ; 17
  124.  
  125.  
  126.  
  127. p394 = ~p74~
  128. p395 = alltrim(dbf_pole("urzedy","us_nazwa","us_id=pracow.urzad_nr")) ; ; 40
  129. p396 = alltrim(dbf_pole("urzedy","us_ulica","us_id=pracow.urzad_nr"))+' '+alltrim(dbf_pole("urzedy","us_nrdomu","us_id=pracow.urzad_nr")) ; ; 40
  130. p397 = alltrim(dbf_pole("urzedy","us_kodzip","us_id=pracow.urzad_nr"))+' '+alltrim(dbf_pole("urzedy","us_miasto","us_id=pracow.urzad_nr")) ; ; 40
  131. p398 = alltrim(dbf_pole("urzedy","bk_nazwa","us_id=pracow.urzad_nr")) ; ; 40
  132. p399 = alltrim(dbf_pole("urzedy","konto1","us_id=pracow.urzad_nr"))+' '+alltrim(dbf_pole("urzedy","konto2","us_id=pracow.urzad_nr")) ; ; 80
  133.