Purtroppo non posso fari un esempio completo di file (.p7m) con una fattura vera che contiene dati personali di un azienda fornitrice di servizio e un cliente.
Ma ti posso fare un esempio di codice:
Ma ti posso fare un esempio di codice:
B4X:
Sub Globals
'These global variables will be redeclared each time the activity is created.
'These variables can only be accessed from this module.
Private Parse As ParseXml
Private XMLTreeView1 As XMLTreeView
Dim p7m_fe As p7m
End Sub
' esempio di nome file sorgente XML/p7m: "IT00000000000002_AAAA.xml.p7m"'
Sub recuperoFattura(PathSorgente As String,NomeFileSorgente As String, NomeFileDestinazione As String)
p7m_fe.Initialize(PathSorgente ,NomeFileSorgente)
Parse.Initialize(p7m_fe.xlmString)
If Parse.ErrorXML.Size>0 Then
' Se il file XML è privo di errori salva il testo estratto "p7m_fe.xlmString" (ovviamente in formato XML)
' il nome del file potrebbe essere anche lo stesso dell'originale privato dell'estenzione p7m
' NuovoNome=NomeXML.Replace(".p7m","")
File.WriteString(File.DirInternal,NomeFileDestinazione,Parse.ProperXML)
Else
' Se il file contiene errori salva il testo corretto",p7m_fe.xlmString"
File.WriteString(File.DirInternal,NomeFileDestinazione,p7m_fe.xlmString)
End If
' If p7m_fe.AllegatoFileName<>"" Then
' ' Se c'è allegato lo salvo
' File.WriteString(File.DirInternal,p7m_fe.AllegatoFileName,p7m_fe.AllegatoToString)
' End If
' Visualizza campi XMl nell'albero visivo
XMLTreeView1.RenderXML(p7m_fe.xlmString)
End Sub
Last edited: