Branestan | 10.09.2020 18:25 |
---|---|
Predmet:Re: kifkuf elektronski Kod mene izbacuje poruku da struktura zaglavlja ne odgovara propisanom formatu. Da li je neko imao sličan problem? |
|
Prilozi: 403978680005_2008_1_01.rar (Velicina datoteke:5.79 KB) |
Branestan | 10.09.2020 18:47 |
---|---|
Predmet:Re: kifkuf elektronski Izvinite, sada vidim gdje je greška |
nevsad | 24.08.2020 16:40 |
---|---|
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: kifkufelektro.rar (Velicina datoteke:49.23 KB) |
Zuko | 24.08.2020 17:46 |
---|---|
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 |
biromega | 24.08.2020 18:40 |
---|---|
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 |
biromega | 24.08.2020 19:03 |
---|---|
Predmet:Re: kifkuf elektronski tehničko uputstvo |
|
Prilozi: Tehničko uputstvo 31.12.19.rar (Velicina datoteke:740.75 KB) |
Zuko | 24.08.2020 20:24 |
---|---|
Predmet:Re: kifkuf elektronski Hvala biromega, slomio sam se tražeći. nisam nigdje našao a PU kažu nije još to propisano |
biromega | 25.08.2020 08:51 |
---|---|
Predmet:Re: kifkuf elektronski I naravno cijeli posao nije vezan za entiteske porezne uprave, nego za upravu za indirektno oporezivanje. |
|
Prilozi: Tehničko uputstvo 31.12.19.rar (Velicina datoteke:740.75 KB) |
nevsad | 25.08.2020 11:42 |
---|---|
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 |
biromega | 25.08.2020 17:35 |
---|---|
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) |