Predmet:Re: Fiskalizacija u FBiH
PRESJEK STANJA:
Private Sub Command53_Click()
Open "c:\temp\x.inp" For Output As #1
Print #1, "X,1,______,_,__;"
Close #1
End Sub
DNEVNI:
Private Sub Command54_Click()
Open "c:\temp\z.inp" For Output As #1
Print #1, "Z,1,______,_,__;"
Close #1
End Sub
Private Sub DepozitI_Click()
Open "c:\temp\DepI.inp" For Output As #1
Print #1, "I,1,______,_,__;1;"; Format([DepozitIzvadi], "0.00")
Close #1
End Sub
Private Sub DepozitU_Click()
Open "c:\temp\DepU.inp" For Output As #1
Print #1, "I,1,______,_,__;0;"; Format([DepozitUnesi], "0.00")
Close #1
End Sub
Private Sub UnosArtikala_Click()
strSQLAuFS = "SELECT Skladiste.Sifra, Skladiste.OpisArt, Skladiste.Kolicina, Skladiste.MPC FROM Skladiste;"
Set rst = CurrentDb.OpenRecordset(strSQLAuFS)
Open "c:\temp\UnosArtikala.inp" For Output As #1
rst.MoveFirst
Do Until rst.EOF
Print #1, "U,1,______,_,__;"; rst![OpisArt]; ";"; Format(rst![MPC], "0.00"); ";"; Format(rst![Kolicina], "0.00"); ";1;1;
2;0"; ";"; Format(rst![Sifra], "0"); ";"
rst.MoveNext
Loop
rst.Close
Close #1
End Sub
Private Sub BrisanjeArt_Click()
Open "c:\temp\BrRFS.inp" For Output As #1
Print #1, "O,1,______,_,__;"; Format([Sifra], "0"); ";"
Close #1
End Sub
RACUN:
Open "C:\Temp\Prodaja.inp" For Output As #1
rst.MoveFirst
Do Until rst.EOF
Print #1, "S,1,______,_,__;"; rst!OpisArt; ";"; Format(rst!MPC, "##0.00"); ";"; Format(rst!Kolicina, "##0.00"); ";1;1;
2;-0;"; Format(rst![Sifra], "0"); ";"
rst.MoveNext
x = x + 1
Loop
Print #1, "T,1,______,_,__;3;"; Format([Uplata], "####0.00"); ";;;;"
rst.Close
Close #1
Close #1
AKO VAM TREBA BILO STA VEZANO ZA F-LINK, PROFESIONAL, HYBRID TU SAM.