clear
@10,10 say "Sacekajte radim IOS"
set century on
set date german
set deleted on
use f:\bios\ro\fi01 index f:\bios\ro\sif_kup alias fi01 shared new
use ios alias ios exclusive new
select ios
goto top
@11,10 say ios->analitika
set device to print
set print to lpt1
select ios
goto top
a=ios->konto
b=ios->analitika
c=ios->datsta
select fi01
goto top
seek b
msifk=fi01->fi01ctrl
mnazk1=fi01->fi01naz1
mnazk2=fi01->fi01naz2
madrk=fi01->fi01adre
mmesk=fi01->fi01post+" "+alltrim(fi01->fi01grad)
mpibk=fi01->fi01part
select ios
goto top
@prow()+1,0 say chr(18)
@prow()+1,0 say "AD 'MOTINS'"
@prow()+1,0 say "PUT NOVOSADSKOG PARTIZANSKOG ODREDA 6"
@PROW()+1,0 SAY "21000 NOVI SAD"
@PROW()+1,0 SAY "PIB: 100237513"
@PROW()+1,0 SAY CHR(15)
@PROW()+3,6 SAY "Vasa sifra kod nas:"+msifk
@prow()+1,6 say MNAZK1
@PROW()+1,6 SAY MNAZK2
@PROW()+1,6 SAY MADRK
@PROW()+1,6 SAY MMESK
@PROW()+1,6 SAY MPIBK
@PROW()+1,0 SAY CHR(18)
@PROW()+1,30 SAY "IZVOD OTVORENIH STAVKI"
@PROW()+1,30 SAY "NA DAN: "+dtoc(c)
@PROW()+2,0 SAY "Uvidom u nase poslovne knjige na racunu "+alltrim(a)+" na dan: "+dtoc(c)
@prow()+1,0 say "Vas saldo se sastoji iz sledecih otvorenih stavki:"
**@prow()+1,0 say chr(15)
@prow()+1,0 say "============================================================================="
@prow()+1,0 say "  Nalog      Datum     Dokument      Duguje       Potrazuje        Saldo"
@prow()+1,0 say "============================================================================="
select ios
goto top
mdu=0
mpo=0
msal=0
do while !eof()
@prow()+1,0 say ios->nalog
@prow(),11 say ios->datum
@prow(),22 say substr(ios->zatvara,1,10)
@prow(),33 say round(ios->duguje,2) picture "999,999,999.99"
@prow(),49 say round(ios->potrazuje,2) picture "999,999,999.99"
@prow(),64 say round(ios->saldo,2) picture "999,999,999.99"
mdu=mdu+ios->duguje
mpo=mpo+ios->potrazuje
msal=ios->saldo
skip
if prow()>63
        eject
        @prow()+1,0 say "============================================================================="
        @prow()+1,0 say "  Nalog      Datum     Dokument      Duguje       Potrazuje        Saldo"
        @prow()+1,0 say "============================================================================="
endif
enddo
@prow()+1,0 say "============================================================================="
@prow()+1,10 say "UKUPNO:"
@prow(),33 say mdu picture "999,999,999.99"
@prow(),49 say mpo picture "999,999,999.99"
@prow(),64 say msal picture "999,999,999.99"
@prow()+2,0 say "Posiljalac izvoda:"
@prow(),40 say "Potvrdjujemo stanje otvorenih stavki"
@prow()+2,0 say "Racunovodja: Slavojka Markovic"
@prow(),40 say  "MP     __________________"
@prow()+1,0 say "MP     __________________"
@prow(),40 say "Mesto i datum _______________________"
@prow()+1,7 say "Novi Sad,"+dtoc(date())
**xxxxxxxxxx xxxxxxxxxx xxxxxxxxxx 999,999,999.99 999,999,999.99 999,999,999.99
@prow()+2,0 say "Osporavamo izvod iz sledecih razloga:"
@prow()+1,0 say "___________________________________________________________________________"
@prow()+1,0 say "___________________________________________________________________________"
@prow()+1,0 say "                                 MP   Mesto i datum:_______________________"
@prow()+1,0 say chr(15)
@prow()+1,2 say "Molimo Vas da ispunite svoju zakonsku obavezu (Clan 16-18. Zakona o racunovodstvu i reviziji Sl.List SRJ br.71/2002)"
@prow()+1,2 say "uskladjivanja i potvrdjen ili osporen izvod overite i primerak vratite u roku od 5 dana od dana prijema istog."
@prow()+1,2 say "S postovanjem!"
@prow()+1,2 say "Kontakt telefon: 021/443-133 lok. 116"
eject
set print to
set device to screen
return





