Visualizzare la Fattura Elettronica

di il
10 risposte

Visualizzare la Fattura Elettronica

Buon Pomeriggio a tutti,

vi scrivo perchè attualmente a causa di alcune inefficenze interne a lavoro, mi è stato dato il compto di rimettere in piedi l'argomento fatturazione elettronica. La parte dell'invio, non da alcun problema, e neanche la ricezione dallo SDI.

La parte che invece devo ritoccare è creando un form, visualizzare la fattura elettronica in formato xml su una Webview, successivamente, muovere se presente la fattura di cortesia, in un altra locazione.

Prelevare alcuni campi dalla fattura, come ad esempio : mittente,importo, descrizione importo.

Per quanto riguarda il rimanente, non ho alcun problema per le restanti funzioni. Però ho trovato centinaia di guide, ma non ho onestamente mai capito come approcciarmi e lavorare sull'argomento. Avete qualche riferimento? Consiglio, formazione? Risorsa?

Grazie 1000 a tutti.

10 Risposte

  • Re: Visualizzare la Fattura Elettronica

    L'importo potrebbe non esserci.
    o essere sbagliato.
    Personalmente parso 'a mano' come stringhe il file xml
  • Re: Visualizzare la Fattura Elettronica

    Ok, ma per quanto riguarda invece la visualizzazione della fattura?
  • Re: Visualizzare la Fattura Elettronica

    Scusami se interpreto bene vuoi mostrare una fattura elettronica a video o stamparla? Tipicamente si converte in pdf con uno dei vari programmelli.
    fartelo da zero è senza dubbio possibile, ma richiede qualche mese di sviluppo
  • Re: Visualizzare la Fattura Elettronica

    Salve,
    con Vb.Net, puoi utilizzare il controllo WebBrowser... visualizza direttamente l'albero xml... oppure, volendolo renderizzare con foglio di stile, tramite System.Xml.Xsl.XslCompiledTransform si applica il foglio di stile e poi si carica il WebBrowser...
    saluti omni
    --
    Andre
  • Re: Visualizzare la Fattura Elettronica

    Vi spiego meglio,
    vorrei visualizzare con un webbrowser, ma step prima convertirlo da xml a html con foglio di stile.
    attualmente io ho creato questo codice.
        Public Shared Function TransformXMLToHTML(ByVal inputXml As String, ByVal xsltString As String) As String
            ' Dim reader As XmlReader
    
            Dim transform As New XslCompiledTransform
            Using reader = XmlReader.Create(New StringReader(xsltString))
                transform.Load()
            End Using
            Dim results As New StringWriter
            Using reader = XmlReader.Create(New StringReader(inputXml))
                transform.Transform(reader, Nothing, DirectCast(results, TextWriter))
            End Using
            Return results.ToString
        End Function
        
        
    ma quando vado a richiamarlo, mi becco sempre l'errore in linea 1.

    quindi onestamente non so se è sbaglaita la trasformazione e/o non sto capendo qualcosa.
  • Re: Visualizzare la Fattura Elettronica

    Spiegando meglio,
        Public Shared Function TransformXMLToHTML(ByVal inputXml As String, ByVal xsltString As String) As String
            ' Dim reader As XmlReader
    
            Dim transform As New XslCompiledTransform
            Using reader = XmlReader.Create(New StringReader(xsltString))
                transform.Load(reader)
            End Using
            Dim results As New StringWriter
            Using reader = XmlReader.Create(New StringReader(inputXml))
                transform.Transform(reader, Nothing, DirectCast(results, TextWriter))
            End Using
            Return results.ToString
        End Function
        
        
    questo fatto così mi genera questo errore:
    XSLT compile error Inner Exception
    xmlException:Data at the root level is invalid. Line 1, position 1.


    ho provato anche a modifcarle con la versione integrale di quello che avevo trovato a giro, che era così fatto
    
        Public Shared Function TransformXMLToHTML(ByVal inputXml As String, ByVal xsltString As String) As String
            Dim reader As XmlReader
            Dim transform As New XslCompiledTransform
            Using reader = XmlReader.Create(New StringReader(xsltString))
                transform.Load(reader)
            End Using
            Dim results As New StringWriter
            Using reader = XmlReader.Create(New StringReader(inputXml))
                transform.Transform(reader, Nothing, DirectCast(results, TextWriter))
            End Using
            Return results.ToString
        End Function
       
    in questo ultimo caso invece, mi dava errore il reader
    variable "reader" hides a variable in an enclosing block.

    i fogli di stile prelevati sono:
    1 - Agenzia dell'entrate
    2 -Assoinvoice
  • Re: Visualizzare la Fattura Elettronica

    Cerca "xml parser online validator" e prova a parsare il tuo xml utilizzando i siti che tornano dalla ricerca
  • Re: Visualizzare la Fattura Elettronica

    Vi potrebbe essere utile,
    ho risolto così.
    
     Dim xsltrans As New Xsl.XslCompiledTransform()
            Dim dest As String = "C:\FATEL\myfile.html"
            xsltrans.Load("C:\FATEL\Stili\FoglioStileAssoSoftware.xsl")
             xsltrans.Transform(pathexplorer, dest)
                WebBrowser2.Url = New Uri(dest)
    
                InitialZoom = 58
                PerformZoom(InitialZoom)
    
  • Re: Visualizzare la Fattura Elettronica

    Grazie della condivisione del codice,se puoi posta anche il metodo PerformZoom ,
  • Re: Visualizzare la Fattura Elettronica

    Sicuro,
        '*****ZOOM
        Dim InitialZoom As Integer = 100
        Public Enum Exec
            OLECMDID_OPTICAL_ZOOM = 63
        End Enum
        Private Enum execOpt
            OLECMDEXECOPT_DODEFAULT = 0
            OLECMDEXECOPT_PROMPTUSER = 1
            OLECMDEXECOPT_DONTPROMPTUSER = 2
            OLECMDEXECOPT_SHOWHELP = 3
        End Enum

    Seguito da una Sub
        Public Sub PerformZoom(ByVal Value As Integer)
            Try
                Dim Res As Object = Nothing
                Dim MyWeb As Object
                MyWeb = Me.WebBrowser2.ActiveXInstance
                MyWeb.ExecWB(Exec.OLECMDID_OPTICAL_ZOOM, execOpt.OLECMDEXECOPT_PROMPTUSER, CObj(Value), CObj(IntPtr.Zero))
            Catch ex As Exception
                MsgBox(ex.Message)
            End Try
        End Sub
    per chiudere con questo nella mia cmdbutton
    InitialZoom = 58
                PerformZoom(InitialZoom)
                
Devi accedere o registrarti per scrivere nel forum
10 risposte