Predmet:kifkuf elektronski

---

po uputstvu pu fbih
potrebne su tri tabele npr.za kuf
tbl1N -zaglavlje
tbl2N -upisi recordi
tbl3N -sumarno
oni svojom aplikacijom preuzimaju CSV format
problem...
kad napravim isfiltriram podatke iz kalkulacija dobijem
navedene tri tabele
koje trebam exportovati u csv format...

******radim na exportu tbl2N

u formi frm2N napravio sam botom sa kodom

Private Sub Command22_Click()
Dim Db As Database
Dim RS As Recordset
Dim txt As String
Dim ImeFajla As String

ImeFajla = Year(Date) '& Month(Date) & Day(Date) & Hour(Time) & Minute(Time) & Second(Time)

Set Db = CurrentDb
Set RS = Db.OpenRecordset("tbl2N")

'Upis Fajla na disk
Open "C:\temp\2n.csv" For Output Shared As #1
'Open Db_Putanja & ImeFajla & ".csv" For Output Shared As #1

txt = "Porezni period;Redni broj;Tip dokumenta;Broj fakture ili drugog dokumenta;Datum fakture ili drugog dokumenta;Datum prijema fakture ili drugog dokumenta;Naziv dobavljača;Sjedište dobavljača;Identifikacioni (PDV) broj za dobavljača registriranog obveznika PDV-a na teritoriji Bosne i Hercegovine;JIB/PIB dobavljača;Iznos fakture, ili drugog dokumenta, bez PDV-a;Iznos fakture, ili drugog dokumenta, sa PDV-om;Iznos paušalne naknade;Iznos ulaznog PDV-a;Ulazni PDV koji se može odbiti;Ulazni PDV koji se ne može odbiti;Iznos ulaznog PDV-a koji se ne može odbiti, a koji se unosi u polje 32 PDV prijave;Iznos ulaznog PDV-a koji se ne može odbiti, a koji se unosi u polje 33 PDV prijave;Iznos ulaznog PDV-a koji se ne može odbiti, a koji se unosi u polje 34 PDV prijave"

Print #1, txt
'A = Format(RS.Fields(4), "yyyy-mm-dd")

Do While Not RS.EOF
txt = RS.Fields(0) & ";" & RS.Fields(1) & ";" & RS.Fields(2) & ";" & RS.Fields(3) & ";" & RS.Fields(4) & ";" & RS.Fields(5) & ";" & RS.Fields(6) & ";" & RS.Fields(7) & ";" & RS.Fields(8) & ";" & RS.Fields(9) & ";" & RS.Fields(10) & ";" & RS.Fields(11) & ";" & RS.Fields(12) & ";" & RS.Fields(13) & ";" & RS.Fields(14) & ";" & RS.Fields(15) & ";" & RS.Fields(16) & ";" & RS.Fields(17) & ";" & RS.Fields(18)

Print #1, txt

RS.MoveNext
Loop
RS.Close

Close #1
MsgBox "Eksport je zavrsen!"
End Sub
kod sve odradi kako treba osim na poljima datuma E i F
exportuje mi u formatu dd-mm-yyyy a u mojim tabelama je yyyy-mm-dd te na polju I gdje je inentifikacijski broj dobijem gresku

napomena**** na mašini imam instalira office2003

Prilozi: