[es] - Prilog uz xml fakturu

DuskoSt
informaticar
privatna
Kraljevo

Član broj: 347741
Poruke: 4
82.208.244.*

Profil

^{01.02.2023. u 12:13 - pre 14 meseci}

Postovanje, koristeci access uspesno kreiram xml file za elektronske fakture koji se posle ucitava u SEF bez problema. Medjutim, nemam mogucnost, tj ne znam, kako bih uz fakturu "prikacio" i prilog. Da li neko ima resenje?
Dusko

Odgovor na temu

fiola

Član broj: 173684
Poruke: 9
*.static.isp.telekom.rs.

+2 Profil

Re: Prilog uz xml fakturu

^{01.02.2023. u 14:22 - pre 14 meseci}

Code:

    a.WriteLine "<cac:Attachment>"
    a.WriteLine "<cbc:EmbeddedDocumentBinaryObject mimeCode=""application/pdf"" encodingCode=""base64"" filename=" & Chr(34) & strFajl & Chr(34) & ">"
    a.WriteLine ConvertFileToBase64(strFajl)
    a.WriteLine "</cbc:EmbeddedDocumentBinaryObject>"
    a.WriteLine "</cac:Attachment>"

Treba ti ConvertFileToBase64. Ima ga na google.
StrFajl je putanja do PDF-a koji treba da se ubaci.

Odgovor na temu

DuskoSt
informaticar
privatna
Kraljevo

Član broj: 347741
Poruke: 4
82.208.244.*

Profil

Re: Prilog uz xml fakturu

^{01.02.2023. u 14:32 - pre 14 meseci}

Hvala na odgovoru, pokusacu.

Odgovor na temu

bokinet

Član broj: 29844
Poruke: 574

+50 Profil

Re: Prilog uz xml fakturu

^{01.02.2023. u 19:43 - pre 14 meseci}

Pogledati na efaktura.gov.rs primere koji su dati.

Inace, po dokumentaciji moguce je priloziti do 3 priloga gde svaki prilog ne bi smeo da bude veci od 25MB.

Dakle sve ukupno 75MB.

Sto se tice Base64 i svega ostalog voditi racuna oko konverzije ASCII/UNICODE/UTF8 posto to moze da pravi odredjeni problem za starije RAD alate kao sto su VB, VBA, Access i sl.

Evo primera oko Base64 enkodovanja i dekodovanja za VB6/VBA/MS Access
web.archive.org/web/20060527094535/http://www.nonhostile.com/howto-encode-decode-base64-vb6.asp

Dakle sustina je da se sadrzaj file kao prilog iscita u niz byte-ova pa da se onda isti enkoduje pomocu Base64.

Odgovor na temu

DuskoSt
informaticar
privatna
Kraljevo

Član broj: 347741
Poruke: 4
*.dynamic.isp.telekom.rs.

Profil

Re: Prilog uz xml fakturu

^{01.02.2023. u 21:54 - pre 14 meseci}

Pokusao sam da kreiram ponudjeni kod u xml file-u, ali ocigledno da ne ide. Slab sam sa programiranjem i ako je moguce posaljite mi dodatno objasnjenje. Prilog koji zelim da posaljem uz fakturu nalazi mi se u folderu c:\prilozi i zove se racun1.pdf.
Kada kucam na google-u "ConvertFileToBase64" dobijam "samo" online konvertore, a razumeo sam da konvertor treba da imam na svom racunaru.
Sve sto sam uspeo da kreiram u xmlu izgleda ovako:
<cac:Attachment>
<cbc:EmbeddedDocumentBinaryObject MimeKod="""application/pdf"" encodingCode=""base64"" filename=" & Chr(34) & "C:\Prilozi\racun1.pdf" & Chr(34)">ConvertFileToBase64(C:\Prilozi\racun1.pdf)</cbc:EmbeddedDocumentBinaryObject>
</cac:Attachment>
Pozdrav
Dusko

Odgovor na temu

Dexxxl
Dejan Stojanovic
Blagi uzas
Knjazevac

Član broj: 252836
Poruke: 212
178-220-94-60.dynamic.isp.telekom.rs.

+9 Profil

Re: Prilog uz xml fakturu

^{02.02.2023. u 19:28 - pre 14 meseci}

Code:

Public Function ConvToBase64(strFilePath As String) As String

    Const UseBinaryStreamType = 1

    Dim streamInput: Set streamInput = CreateObject("ADODB.Stream")
    Dim xmlDoc: Set xmlDoc = CreateObject("Microsoft.XMLDOM")
    Dim xmlElem: Set xmlElem = xmlDoc.createElement("tmp")

    streamInput.Open
    streamInput.Type = UseBinaryStreamType
    streamInput.LoadFromFile strFilePath
    xmlElem.DataType = "bin.base64"
    xmlElem.nodeTypedValue = streamInput.Read
    ConvToBase64 = Replace(xmlElem.Text, vbLf, "")

    Set streamInput = Nothing
    Set xmlDoc = Nothing
    Set xmlElem = Nothing

End Function

Odgovor na temu

DuskoSt
informaticar
privatna
Kraljevo

Član broj: 347741
Poruke: 4
*.ptt.rs.

Profil

Re: Prilog uz xml fakturu

^{03.02.2023. u 12:05 - pre 14 meseci}

Hvala svima na odgovorima, snasao sam se nekako.

Odgovor na temu