home *** CD-ROM | disk | FTP | other *** search
/ PC World Komputer 1999 mARCH / PCWK3A99.iso / Polskie / Insert / WZORCE2.ARJ / PIT-8A.WVR < prev    next >
Text File  |  1998-09-01  |  5KB  |  106 lines
  1. p1 = IIF(podmioty.osobafiz,ALLTRIM(podmioty.pnip),ALLTRIM(podmioty.nip)) ;  ; 20
  2. p4 = twodig(l1_mies); ; 2
  3. p5 = str(fullyear(l1_rok),4) ; ; 4
  4. p6 = alltrim(urzedy.us_nazwa)+', '+alltrim(urzedy.us_ulica)+' '+alltrim(urzedy.us_nrdomu)+', '+ alltrim(urzedy.us_miasto)  ;  ; 116
  5. p7 = IIF(podmioty.osobafiz,.T.,.F.)  ;  ; 
  6. p8 = IIF(~p7~,ALLTRIM(podmioty.pnazwisko)+' '+ALLTRIM(podmioty.pimie1)+' '+podmioty.pimie2+' '+DTOC(podmioty.pdataur),podmioty.nazwa) ;  ; 116
  7. p9 = IIF(~p7~,ALLTRIM(podmioty.pojciec)+' '+podmioty.pmatka,podmioty.nazwaskr) ;  ; 116
  8. p10 = IIF(~p7~,podmioty.ppesel,podmioty.regon) ;  ; 30
  9. p11 = IIF(~p7~,DTOC(podmioty.pdataur),DTOC(podmioty.datarozp)) ;  ; 10
  10. p12 = podmioty.orgrej;  ; 116
  11. p13 = podmioty.nazwarej ;  ; 116
  12. p14 = DTOC(podmioty.datarej) ;  ; 10
  13. p15 = podmioty.nrrej ;  ; 38
  14. p16 = IIF(~p7~,podmioty.pkraj,podmioty.kraj) ;  ; 22
  15. p17 = IIF(~p7~,podmioty.pwojewod,podmioty.wojewod) ;  ; 26
  16. p18 = IIF(~p7~,podmioty.pgmina,podmioty.gmina) ;  ; 40
  17. p19 = IIF(~p7~,podmioty.pulica,podmioty.adres) ;  ; 60
  18. p20 = IIF(~p7~,podmioty.pnr_domu,podmioty.nr_domu) ;  ; 8
  19. p21 = IIF(~p7~,podmioty.pnr_lokalu,podmioty.nr_lokalu) ;  ; 6
  20. p22 = IIF(~p7~,podmioty.pmiasto,podmioty.miasto) ;  ; 30
  21. p23 = IIF(~p7~,podmioty.pkod,podmioty.kod) ;  ; 6
  22. p24 = IIF(~p7~,podmioty.ppoczta,podmioty.poczta) ;  ; 30
  23. p25 = IIF(~p7~,podmioty.pskrpocz,podmioty.skrpocz) ;  ; 26
  24. p26 = IIF(~p7~,podmioty.ptelefon,podmioty.telefon) ;  ; 29
  25. p27 = IIF(~p7~,podmioty.ptelex,podmioty.telex) ;  ; 26
  26. p28 = IIF(~p7~,podmioty.pfax,podmioty.fax) ;  ; 22
  27. p29 = m.pd29 ; 99,999,999.99 ;
  28. p30 = m.pd30 ; 99,999,999.99 ;
  29. p31 = m.pd31 ; 99,999,999.99 ;
  30. p32 = m.pd32 ; 99,999,999.99 ;
  31.  
  32. p33 = dbf_suma("zlecenie","brutto","zlecenie.brutto<l1_pit8ab AND zlecenie.idprac=m.id AND YEAR(zlecenie.dataw)=l1_rok AND MONTH(zlecenie.dataw)=l1_mies AND !zlecenie.aktualna") ;  ; 
  33. p34 = dbf_suma("zlecenie","podatek","zlecenie.brutto<l1_pit8ab AND zlecenie.id=m.id AND YEAR(zlecenie.dataw)=l1_rok AND MONTH(zlecenie.dataw)=l1_mies AND !zlecenie.aktualna") ;  ; 
  34.  
  35. p35 = m.pd35 ; 99,999,999.99 ;
  36. p36 = m.pd36 ; 99,999,999.99 ;
  37. p37 = m.pd37 ; 99,999,999.99 ;
  38. p38 = m.pd38 ; 99.9 ;
  39. p39 = m.pd39 ; 99,999,999.99 ;
  40. p40 = m.pd40 ; 99,999,999.99 ;
  41. p41 = m.pd41 ; 99,999,999.99 ;
  42. p42 = m.pd42 ; 99,999,999.99 ;
  43. p43 = m.pd43 ; 99,999,999.99 ;
  44. p44 = m.pd44 ; 99,999,999.99 ;
  45. p45 = m.pd45 ; 99,999,999.99 ;
  46. p46 = m.pd46 ; 99,999,999.99 ;
  47. p47 = m.pd47 ; 99,999,999.99 ;
  48. p48 = m.pd48 ; 99,999,999.99 ;
  49. p49 = m.pd49 ; 99.9 ;
  50. p50 = m.pd50 ; 99,999,999.99 ;
  51. p51 = ~p30~ + ~p32~ +~p34~ +~p36~ +~p39~ +~p41~ +~p43~ +~p45~ +~p47~ +~p50~;  ;
  52. p59 = m.pd59 ; 99,999,999.99 ;
  53. p60 = ~p51~ - ~p59~
  54. p52 = ~p60~
  55. p53 = slowami(~p52~) ;  ;
  56. p54 = m.pd54 ;  ;
  57. p55 = m.pd55 ;  ; 10
  58. p56 = m.pd56;  ; 40
  59. p57 = m.pd57;  ; 60
  60. p58 = m.pd58;  ; 10
  61.  
  62. p200 = iif( ~p7~, ' ', 'X' ) ;  ; 1
  63. p201 = iif( ~p7~, 'X', ' ' ) ;  ; 1
  64.  
  65.  
  66. p202 = iif(~p29~<>0, transform(~p29~,'99,999,999,999.99'),' ') ;  ; 17
  67. p203 = iif(~p31~<>0, transform(~p31~,'99,999,999,999.99'),' ') ;  ; 17
  68. p204 = iif(~p33~<>0, transform(~p33~,'99,999,999,999.99'),' ') ;  ; 17
  69. p205 = iif(~p35~<>0, transform(~p35~,'99,999,999,999.99'),' ') ;  ; 17
  70. p206 = iif(~p37~<>0, transform(~p37~,'99,999,999,999.99'),' ') ;  ; 17
  71. p207 = iif(~p40~<>0, transform(~p40~,'99,999,999,999.99'),' ') ;  ; 17
  72. p208 = iif(~p42~<>0, transform(~p42~,'99,999,999,999.99'),' ') ;  ; 17
  73. p209 = iif(~p44~<>0, transform(~p44~,'99,999,999,999.99'),' ') ;  ; 17
  74. p210 = iif(~p46~<>0, transform(~p46~,'99,999,999,999.99'),' ') ;  ; 17
  75. p211 = iif(~p48~<>0, transform(~p48~,'99,999,999,999.99'),' ') ;  ; 17
  76. p212 = iif(~p38~<>0, transform(~p38~,'99.9'),' ') ;  ; 5
  77. p213 = iif(~p49~<>0, transform(~p49~,'99.9'),' ') ;  ; 5
  78. p214 = iif(~p30~<>0, transform(~p30~,'99,999,999,999.99'),' ') ;  ; 17
  79. p215 = iif(~p32~<>0, transform(~p32~,'99,999,999,999.99'),' ') ;  ; 17
  80. p216 = iif(~p34~<>0, transform(~p34~,'99,999,999,999.99'),' ') ;  ; 17
  81. p217 = iif(~p36~<>0, transform(~p36~,'99,999,999,999.99'),' ') ;  ; 17
  82. p218 = iif(~p39~<>0, transform(~p39~,'99,999,999,999.99'),' ') ;  ; 17
  83. p219 = iif(~p41~<>0, transform(~p41~,'99,999,999,999.99'),' ') ;  ; 17
  84. p220 = iif(~p43~<>0, transform(~p43~,'99,999,999,999.99'),' ') ;  ; 17
  85. p221 = iif(~p45~<>0, transform(~p45~,'99,999,999,999.99'),' ') ;  ; 17
  86. p222 = iif(~p47~<>0, transform(~p47~,'99,999,999,999.99'),' ') ;  ; 17
  87. p223 = iif(~p50~<>0, transform(~p50~,'99,999,999,999.99'),' ') ;  ; 17
  88. p224 = iif(~p51~<>0, transform(~p51~,'99,999,999,999.99'),' ') ;  ; 17
  89. p225 = iif(~p52~<>0, transform(~p52~,'99,999,999,999.99'),' ') ;  ; 17
  90. p226 = iif(~p59~<>0, transform(~p59~,'99,999,999,999.99'),' ') ;  ; 17
  91. p227 = iif(~p60~<>0, transform(~p60~,'99,999,999,999.99'),' ') ;  ; 17
  92.  
  93. p240 = left( ~p53~, 80 ) ;  ; 80
  94. p241 = substr(~p53~,81) ;  ; 80
  95. p242 = iif(~p54~=1,'X',' ') ;  ; 1
  96. p243 = iif(~p54~=2,'X',' ') ;  ; 1
  97. p244 = iif(~p54~=3,'X',' ') ;  ; 1
  98.  
  99.  
  100. p394 = ~p52~
  101. p395 = urzedy.us_nazwa ; ; 40
  102. p396 = alltrim(urzedy.us_ulica)+' '+alltrim(urzedy.us_nrdomu) ; ; 40
  103. p397 = urzedy.us_kodzip+' '+urzedy.us_miasto ; ; 40
  104. p398 = urzedy.bk_nazwa ; ; 40
  105. p399 = alltrim(urzedy.konto1)+' '+alltrim(urzedy.konto2) ; ; 80
  106.