Centar za edukaciju-BiH

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:

Predmet:Re: kifkuf elektronski

---

gdje si našao ovo uputstvo stavi link. ja ovu uputu tražim već dva mjeseca. ćak sam zvao i poreznu i rekli su mi da još nije pripremljeno zbog CORONE

---

Predmet:Re: kifkuf elektronski

---

primjer jednog CSV fajla za kuf (npr. samo dvje ulazne fakture i npr. za februar/2020)

ime fajla: 202744760000_2002_1_01.CSV

1;202744760000;2002;1;01;2020-08-24;18:38:50
2;2002;548;01;1565263365/0;2020-01-31;2020-02-10;TELEKOMUNIKACIJE RS AD;BANJA LUKA KRALJA PETRA I;400964000002;;32.54;38.07;0.00;5.53;5.53;0.00;0.00;0.00;0.00
2;2002;549;01;75022361;2020-01-14;2020-02-10;SSL DOO;LUKAVAC PRVA ULICA BR. 1;209796740001;;1427.51;1670.19;0.00;242.68;242.68;0.00;0.00;0.00;0.00
3;1460.05;1708.26;0.00;248.21;248.21;0.00;0.00;0.00;0.00;2

Predmet:Re: kifkuf elektronski

---

tehničko uputstvo

Prilozi:

Predmet:Re: kifkuf elektronski

---

Hvala biromega, slomio sam se tražeći. nisam nigdje našao a PU kažu nije još to propisano

---

Predmet:Re: kifkuf elektronski

---

I naravno cijeli posao nije vezan za entiteske porezne uprave, nego za upravu za indirektno oporezivanje.

Prilozi:

Predmet:Re: kifkuf elektronski

---

imam isto tehničko upustvo
primjer csv kufa sa 7 faktura
1;363088180003;2008;1;01;2020-08-19;18:17:27
2;2008;1;01;0010108427/20;2020-08-04;2020-08-05;SELENA DOO;BANJA LUKA BIH;400920050002;;155.41;181.82;0;26.41;26.41;0;26.41;0;26.41
2;2008;2;01;01/2001003372/20;2020-08-03;2020-08-04;SLADABONI DOO;BANJA LUKA REP.SRPSKA;400965310005;;1457.41;1705.17;0;247.76;247.76;0;247.76;0;247.76
2;2008;3;01;203001807/20;2020-08-03;2020-08-04;TRUCK SHOP STR;BANJA LUKA BIH;502283550001;;56.67;66.3;0;9.64;9.64;0;9.64;0;9.64
2;2008;4;01;312/20;2020-08-04;2020-08-05;VUK KOMERC DOO;BIJELJINA BIH;402871320000;;117.06;136.96;0;19.9;19.9;0;19.9;0;19.9
2;2008;5;01;42/20/3/2020;2020-08-04;2020-08-05;VUK KOMERC DOO;BIJELJINA BIH;402871320000;;115.1;134.67;0;19.57;19.57;0;19.57;0;19.57
2;2008;6;01;8567/20;2020-08-03;2020-08-04;DE-MI PROMET DOO;BANJA LUKA BIH;400878690004;;746.9;873.86;0;126.96;126.96;0;126.96;0;126.96
2;2008;7;01;8625/20;2020-08-04;2020-08-05;DE-MI PROMET DOO;BANJA LUKA BIH;400878690004;;557.2;651.92;0;94.72;94.72;0;94.72;0;94.72
3;34603.46;40485.79;0;5882.59;5882.59;0;5882.59;0;5882.59;0.00

ali ne prodje na verifikaciji

Predmet:Re: kifkuf elektronski

---

11. podatak u zadnjem redu treba biti ukupan broj redova - broj slogova nabavki
u tvom primjeru treba biti 7

nisam provjeravao ostale podatke iz zadnjeg reda (da li su zbirovi tačni)

Predmet:Re: kifkuf elektronski

---

to je ok jer sam probao nesto drugo
problem je sto ja to exportujem u txt, a dobijem u xls
pa to maoram otvoriti u notepad
evo primjera

Prilozi:

Predmet:Re: kifkuf elektronski

---

evo drugi primjer
ali ne prolazi

Prilozi: