Prilog uz xml fakturu

[ DuskoSt @ 01.02.2023. 12:13 ] @

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

[ fiola @ 01.02.2023. 14:22 ] @

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.

[ DuskoSt @ 01.02.2023. 14:32 ] @

Hvala na odgovoru, pokusacu.

[ bokinet @ 01.02.2023. 19:43 ] @

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.

[ DuskoSt @ 01.02.2023. 21:54 ] @

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

[ Dexxxl @ 02.02.2023. 19:28 ] @

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

[ DuskoSt @ 03.02.2023. 12:05 ] @

Hvala svima na odgovorima, snasao sam se nekako.