Centar za edukaciju-BiH

Open "C:\Temp\fprint.txt" For Output As #1

rst.MoveFirst
Do Until rst.EOF
Print #1, "107,1,______,_,__;"; "2"; ";"; "2"; ";"; Format(rst![PLU]); ";"; Format(rst![CijenasaPDV], "##0.00"); ";"; Format(rst![NazivArtikla]); ";"
Print #1, "107,1,______,_,__;"; "4"; ";"; Format(rst![PLU]); ";"; Format(rst![CijenasaPDV], "##0.00"); ";"
rst.MoveNext
x = x + 1
Loop

Print #1, "48,1,______,_,__;0000000000000000;Operator1;1
1111111;0;"; [BrojRekRacuna]; ";"

rst.MoveFirst
Do Until rst.EOF

Print #1, "52,1,______,_,__;"; Format(rst![PLU], "0"); ";"; Format(rst!SumOfKolicina * -1, "##0.00"); ";;"

rst.MoveNext
x = x + 1
Loop

Print #1, "51,1,______,_,__;"
Print #1, "53,1,______,_,__;"
Print #1, "55,1,______,_,__;"; ([Identifikacijski broj]); ";"; ([NazivKupca]); ";"; ([Grad]); ";"; ([Adresa]); ";"
Print #1, "56,1,______,_,__;"

rst.Close

Close #1

Close #1

107,1,______,_,__;2;2;0;7.02;PRIŠIVAČ WOLF-VELIKI;
107,1,______,_,__;4;0;7.02;
48,1,______,_,__;1234567890123456;1;000000;0;5767;

52,1,______,_,__;0;20.00;;
51,1,______,_,__;
53,1,______,_,__;0;;
55,1,______,_,__;32432432423;Firma 1;SARAJEVO;AZIZE ŠAĆIRBEGOVIĆ BB;
56,1,______,_,__;

imam prvi slučaj gdje faktura/fiskalni račun pravi za stranu firmu i za tu fakturu sam pohranio artikle koje želim prodati ali sa stopom K umjesto E (17%) tj. za ino tržište. Ono što me interesuje je koji podatak unijeti za Identifikacijski broj ako tog broja nemamo, kako rješiti to i kako u slučaju faktura koje su u Eurima, koju cijenu šaljemo uređaju Eur ili radimo konverziju?