home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Polish Programs 2
/
polishprograms2.iso
/
firma
/
rachmist
/
wzorce1.arj
/
VAT-7.DVR
< prev
next >
Wrap
Text File
|
1996-10-02
|
8KB
|
166 lines
p1 = IIF(!empty(wspolnik.nip),ALLTRIM(wspolnik.nip),ALLTRIM(podmioty.nip)) ; ; 14
p4 = twodig(x_miesnr)+'.'+str(fullyear(x_roknr),4); ;
p5 = alltrim(urzedy.us_nazwa)+', '+alltrim(urzedy.us_ulica)+' '+alltrim(urzedy.us_nrdomu)+', '+ alltrim(urzedy.us_miasto); ; 115
p6 = podmioty.osobafiz; ;
p7 = IIF(~p6~,alltrim( wspolnik.nazwisko ) + ' ' + alltrim( wspolnik.imie1 ) + ' ' + alltrim( wspolnik.imie2 ),podmioty.nazwa); ; 115
p8 = IIF(~p6~,alltrim( wspolnik.ojciec ) + ' ' + alltrim( wspolnik.matka ),podmioty.nazwaskr); ; 115
p9 = IIF(~p6~,alltrim( wspolnik.pesel ),podmioty.regon); ; 30
p10 = IIF(~p6~,DTOC(wspolnik.dataur),DTOC(podmioty.datarozp)); ; 10
p11 = podmioty.orgrej; ; 115
p12 = podmioty.nazwarej; ; 115
p13 = DTOC(podmioty.datarej); ; 10
p14 = podmioty.nrrej ; ; 40
p15 = IIF(~p6~,wspolnik.kraj,podmioty.kraj); ; 27
p16 = IIF(~p6~,wspolnik.wojewod,podmioty.wojewod); ; 30
p17 = IIF(~p6~,wspolnik.gmina,podmioty.gmina); ; 57
p18 = IIF(~p6~,wspolnik.ulica,podmioty.adres); ; 60
p19 = IIF(~p6~,wspolnik.nr_domu,podmioty.nr_domu); ; 8
p20 = IIF(~p6~,wspolnik.nr_lokalu,podmioty.nr_lokalu); ; 6
p21 = IIF(~p6~,wspolnik.miasto,podmioty.miasto); ; 28
p22 = IIF(~p6~,wspolnik.kod,podmioty.kod); ; 6
p23 = IIF(~p6~,wspolnik.poczta,podmioty.poczta); ; 30
p24 = IIF(~p6~,wspolnik.skrpocz,podmioty.skrpocz); ; 26
p25 = IIF(~p6~,wspolnik.telefon,podmioty.telefon); ; 26
p26 = IIF(~p6~,wspolnik.teleks,podmioty.telex); ; 26
p27 = IIF(~p6~,wspolnik.fax,podmioty.fax); ; 24
p28 = m.pd28; ;
p29 = m.pd29; ;
p30 = m.pd30; ;
p31 = m.pd31; ;
p32 = m.pd32; ;
p33 = m.pd33; ;
p34 = m.pd34; ;
p35 = m.pd35; ;
p36 = m.pd36; ;
p37 = m.pd37; ;
p38 = m.pd38; ;
p39 = l_stknet2 ; ;
p40 = l_stkvat2 ; ;
p41 = l_stknet3 ; ;
p42 = l_stkvat3 ; ;
p43 = l_pozknet2 ; ;
p44 = l_pozkvat2 ; ;
p45 = l_pozknet3 ; ;
p46 = l_pozkvat3 ; ;
p47 = l_stnet2 ; ;
p48 = l_stvat2 ; ;
p49 = l_stnet3 ; ;
p50 = l_stvat3 ; ;
p51 = l_poznet2 ; ;
p52 = l_pozvat2 ; ;
p53 = l_poznet3 ; ;
p54 = l_pozvat3 ; ;
p55 = l_spkneto ; ;
p56 = l_spkvato ; ;
p57 = l_spknetz ; ;
p58 = l_spnetzw + l_denetzw ; ;
p59 = l_spnet0 + l_denet0 ; ;
p61 = l_spnetexp ; ;
p63 = l_spnet7 + l_denet7; ;
p64 = l_spvat7 + l_devat7; ;
p65 = l_spnet22 + l_denet22 ; ;
p66 = l_spvat22 + l_devat22 ; ;
p67 = l_spnet12 + l_denet12 ; ;
p68 = l_spvat12 + l_devat12 ; ;
p69 = INT(~p55~) + INT(~p57~) + INT(~p58~) + INT(~p59~) + INT(~p61~) + INT(~p63~) + INT(~p65~) + INT(~p67~); ;
p70 = INT(~p56~) + INT(~p64~) + INT(~p66~) + INT(~p68~); ;
p71 = INT(INT(~p34~) + INT(~p42~) + INT(~p50~)) * IIF( m.sprzedcal <> 0, (m.sprzedop / m.sprzedcal), 0 ); ;
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~))) ; ;
p73 = INT(~p29~) + INT(~p30~) + INT(~p32~) + INT(~p36~) + INT(~p40~) + INT(~p44~) + INT(~p48~) + INT(~p52~) + INT(~p71~) + INT(~p72~); ;
p74 = m.pd74; ; 8
p75 = m.pd75; ;
p76 = m.pd76; ; 8
p77 = m.pd77; ;
p78 = m.pd78; ; 8
p79 = m.pd79; ;
p80 = m.pd80; ; 8
p81 = m.pd81; ;
p82 = ~p75~ + ~p77~ + ~p79~ + ~p81~; ;
p83 = m.pd83; ; 8
p84 = m.pd84; ;
p85 = m.pd85; ; 8
p86 = m.pd86; ;
p87 = m.pd87; ; 8
p88 = m.pd88; ;
p89 = m.pd89; ; 8
p90 = m.pd90; ;
p91 = ~p84~ + ~p86~ + ~p88~ + ~p90~; ;
p92 = IIF((~p70~ + ~p91~) - (~p73~ + ~p82~)>0, (~p70~ + ~p91~) - (~p73~ + ~p82~), 0) ; ;
p93 = MIN(MAX(m.pd93,0),~p92~); ;
p94 = ~p92~ - ~p93~; ;
p95 = IIF((~p70~ + ~p91~) - (~p73~ + ~p82~)<0, (~p73~ + ~p82~) - (~p70~ + ~p91~), 0); ;
p96 = m.pd93; ;
p97 = ~p95~ + ~p96~; ;
p98 = MIN(m.pd98,~p97~); ;
p99 = IIF(~p95~>0, ~p97~-MIN(MAX(~p98~,0),~p97~), 0); ;
p100 = m.pd100; ; 40
p101 = m.pd101; ; 60
p102 = m.pd102; ; 10
p104 = m.pd104; ; 40
p200 = iif( ~p6~, ' ', 'X' ) ; ; 1
p201 = iif( ~p6~, 'X', ' ' ) ; ; 1
p202 = iif( ~p28~=1, 'X', ' ' ) ; ; 1
p203 = iif( ~p28~=2, 'X', ' ' ) ; ; 1
p204 = iif( ~p28~=3, 'X', ' ' ) ; ; 1
p205 = iif(~p42~<>0, transform(~p42~,'99,999,999,999'),' ') ; ; 17
p206 = iif(~p40~<>0, transform(~p40~,'99,999,999,999'),' ') ; ; 17
p207 = iif(~p41~<>0, transform(~p41~,'99,999,999,999'),' ') ; ; 17
p208 = iif(~p39~<>0, transform(~p39~,'99,999,999,999'),' ') ; ; 17
p209 = iif(~p38~<>0, transform(~p38~,'99,999,999,999'),' ') ; ; 17
p210 = iif(~p36~<>0, transform(~p36~,'99,999,999,999'),' ') ; ; 17
p211 = iif(~p37~<>0, transform(~p37~,'99,999,999,999'),' ') ; ; 17
p212 = iif(~p35~<>0, transform(~p35~,'99,999,999,999'),' ') ; ; 17
p213 = iif(~p29~<>0, transform(~p29~,'99,999,999,999'),' ') ; ; 17
p214 = iif(~p31~<>0, transform(~p31~,'99,999,999,999'),' ') ; ; 17
p215 = iif(~p33~<>0, transform(~p33~,'99,999,999,999'),' ') ; ; 17
p216 = iif(~p30~<>0, transform(~p30~,'99,999,999,999'),' ') ; ; 17
p217 = iif(~p32~<>0, transform(~p32~,'99,999,999,999'),' ') ; ; 17
p218 = iif(~p34~<>0, transform(~p34~,'99,999,999,999'),' ') ; ; 17
p219 = iif(~p46~<>0, transform(~p46~,'99,999,999,999'),' ') ; ; 17
p220 = iif(~p44~<>0, transform(~p44~,'99,999,999,999'),' ') ; ; 17
p221 = iif(~p45~<>0, transform(~p45~,'99,999,999,999'),' ') ; ; 17
p222 = iif(~p43~<>0, transform(~p43~,'99,999,999,999'),' ') ; ; 17
p223 = iif(~p54~<>0, transform(~p54~,'99,999,999,999'),' ') ; ; 17
p224 = iif(~p52~<>0, transform(~p52~,'99,999,999,999'),' ') ; ; 17
p225 = iif(~p53~<>0, transform(~p53~,'99,999,999,999'),' ') ; ; 17
p226 = iif(~p51~<>0, transform(~p51~,'99,999,999,999'),' ') ; ; 17
p227 = iif(~p47~<>0, transform(~p47~,'99,999,999,999'),' ') ; ; 17
p228 = iif(~p49~<>0, transform(~p49~,'99,999,999,999'),' ') ; ; 17
p229 = iif(~p48~<>0, transform(~p48~,'99,999,999,999'),' ') ; ; 17
p230 = iif(~p50~<>0, transform(~p50~,'99,999,999,999'),' ') ; ; 17
p231 = iif(~p68~<>0, transform(~p68~,'99,999,999,999'),' ') ; ; 17
p232 = iif(~p67~<>0, transform(~p67~,'99,999,999,999'),' ') ; ; 17
p233 = iif(~p55~<>0, transform(~p55~,'99,999,999,999'),' ') ; ; 17
p234 = iif(~p57~<>0, transform(~p57~,'99,999,999,999'),' ') ; ; 17
p235 = iif(~p56~<>0, transform(~p56~,'99,999,999,999'),' ') ; ; 17
p236 = iif(~p58~<>0, transform(~p58~,'99,999,999,999'),' ') ; ; 17
p237 = iif(~p59~<>0, transform(~p59~,'99,999,999,999'),' ') ; ; 17
p238 = iif(~p64~<>0, transform(~p64~,'99,999,999,999'),' ') ; ; 17
p239 = iif(~p61~<>0, transform(~p61~,'99,999,999,999'),' ') ; ; 17
p240 = iif(~p63~<>0, transform(~p63~,'99,999,999,999'),' ') ; ; 17
p241 = iif(~p65~<>0, transform(~p65~,'99,999,999,999'),' ') ; ; 17
p242 = iif(~p66~<>0, transform(~p66~,'99,999,999,999'),' ') ; ; 17
p243 = iif(~p70~<>0, transform(~p70~,'99,999,999,999'),' ') ; ; 17
p244 = iif(~p69~<>0, transform(~p69~,'99,999,999,999'),' ') ; ; 17
p245 = iif(~p71~<>0, transform(~p71~,'99,999,999,999'),' ') ; ; 17
p246 = iif(~p72~<>0, transform(~p72~,'99,999,999,999'),' ') ; ; 17
p247 = iif(~p73~<>0, transform(~p73~,'99,999,999,999'),' ') ; ; 17
p248 = iif(~p75~<>0, transform(~p75~,'99,999,999,999'),' ') ; ; 17
p249 = iif(~p81~<>0, transform(~p81~,'99,999,999,999'),' ') ; ; 17
p250 = iif(~p77~<>0, transform(~p77~,'99,999,999,999'),' ') ; ; 17
p251 = iif(~p79~<>0, transform(~p79~,'99,999,999,999'),' ') ; ; 17
p252 = iif(~p82~<>0, transform(~p82~,'99,999,999,999'),' ') ; ; 17
p253 = iif(~p84~<>0, transform(~p84~,'99,999,999,999'),' ') ; ; 17
p254 = iif(~p90~<>0, transform(~p90~,'99,999,999,999'),' ') ; ; 17
p255 = iif(~p86~<>0, transform(~p86~,'99,999,999,999'),' ') ; ; 17
p256 = iif(~p88~<>0, transform(~p88~,'99,999,999,999'),' ') ; ; 17
p257 = iif(~p91~<>0, transform(~p91~,'99,999,999,999'),' ') ; ; 17
p258 = iif(~p92~>0, transform(~p92~,'99,999,999,999'),' ') ; ; 17
p259 = iif(~p97~>0, transform(~p97~,'99,999,999,999'),' ') ; ; 17
p260 = iif(~p98~>0, transform(~p98~,'99,999,999,999'),' ') ; ; 17
p261 = iif(~p99~>0, transform(~p99~,'99,999,999,999'),' ') ; ; 17
p262 = iif(~p93~>0, transform(~p93~,'99,999,999,999'),' ') ; ; 17
p263 = iif(~p94~>0, transform(~p94~,'99,999,999,999'), iif(~p92~ > 0, ' 0',' ')) ; ; 17
p264 = iif(~p95~>0, transform(~p95~,'99,999,999,999'),' ') ; ; 17
p265 = iif(~p96~>0, transform(~p96~,'99,999,999,999'),' ') ; ; 17