ValidaCFD

Código: Seleccionar todo

Imports System.Text
Public Class clsCFD

    Public Shared Sub CreaXML(ByVal Comp As Comprobante, _
                                   Optional ByVal xmlFile As String = "", _
                                   Optional ByVal Guardar As Boolean = True)

        Dim serializer As New Xml.Serialization.XmlSerializer(GetType(Comprobante))
        Dim ws As New IO.StreamWriter(xmlFile, False, New UTF8Encoding)

        serializer.Serialize(ws, Comp)

        ws.Flush()
        ws.Close()
        ws.Dispose()
        serializer = Nothing

    End Sub

End Class

Código: Seleccionar todo

    Dim xmlFile As String = IO.Path.Combine(Application.StartupPath, "CFDv22 " & Today.ToString("yyyy-MMM-dd ss") & ".xml")
    Sub CreaXmlCFD()
        Dim cfd As New Comprobante
        With cfd
            .version = "2.2"
            .anoAprobacion = "2012"
            .noAprobacion = "10020020202102"
            .fecha = Now.ToString("s")
            .folio = "1"
            .metodoDePago = "TRANSFERENCIA"
            .NumCtaPago = "6722"
            .noCertificado = "01234567890123456789"
            .tipoDeComprobante = ComprobanteTipoDeComprobante.ingreso

            .Emisor = New ComprobanteEmisor With _
                    {.nombre = "NOMBRE EMISOR",
                     .rfc = "RFCEMISOR",
                     .DomicilioFiscal = New t_UbicacionFiscal With _
                                        {.calle = "Calle",
                                         .noExterior = "123",
                                         .codigoPostal = "44150",
                                         .municipio = "GUADALAJARA"}}
            .Receptor = New ComprobanteReceptor With _
                    {.nombre = "NOMBRE EMISOR",
                     .rfc = "RFCEMISOR",
                     .Domicilio = New t_Ubicacion With _
                                        {.calle = "Calle",
                                         .noExterior = "123",
                                         .codigoPostal = "44150",
                                         .municipio = "GUADALAJARA"}}

            .Conceptos = {New ComprobanteConcepto With _
                            {.cantidad = 3,
                             .unidad = "PZA",
                             .descripcion = "PRODUCTO 1",
                             .valorUnitario = 150,
                             .importe = CDec(CDbl(.cantidad * .valorUnitario))}}

            .Impuestos = New ComprobanteImpuestos With _
                        {.Traslados = {New ComprobanteImpuestosTraslado With _
                                            {.impuesto = ComprobanteImpuestosTrasladoImpuesto.IVA,
                                             .tasa = 16,
                                             .importe = CDec(cfd.Conceptos.Sum(Function(con) con.importe)) * CDec("." & .tasa)}}}

            .subTotal = CDec(cfd.Conceptos.Sum(Function(con) con.importe))
            .total = CDec(.subTotal * 1.16)
        End With

        clsCFD.CreaXML(cfd, xmlFile)
        WebBrowser1.Navigate(xmlFile)

    End Sub

Código: Seleccionar todo

    Public Shared Function GetCadenaOriginal(ByVal xmlDoc As String, ByVal fileXSLT As String) As String
        Dim strCadenaOriginal As String
        Dim newFile = Path.GetTempFileName()

        Dim Xsl = New Xml.Xsl.XslCompiledTransform()
        Xsl.Load(fileXSLT)
        Xsl.Transform(xmlDoc, newFile)
        Xsl = Nothing

        Dim sr = New IO.StreamReader(newFile)
        strCadenaOriginal = sr.ReadToEnd
        sr.Close()

        'Eliminamos el archivo Temporal
        System.IO.File.Delete(newFile)

        fileXSLT = Nothing
        newFile = Nothing
        Xsl = Nothing
        sr.Dispose()

        Return strCadenaOriginal
    End Function

Código: Seleccionar todo

Dim cComprobante As New Comprobante
Dim cRegimen As ComprobanteEmisorRegimenFiscal

    Sub AgregaRegimenFiscal(ByVal ParamArray Regimen() As String)
        Dim Regs As New List(Of ComprobanteEmisorRegimenFiscal)

        For Each r In Regimen
            Regs.Add(New ComprobanteEmisorRegimenFiscal With {.Regimen = r})
        Next

        cRegimen = Regs.ToArray
    End Sub

cComprobante.RegimenFiscal() = cRegimen

Código: Seleccionar todo

'El método recibe Strings separados por coma "," yo puse dos pero pueden ser todos los necesarios
AgregaRegimenFiscal("REGIMEN INTERMEDIO", _
                    "REGIMEN GENERAL")

Código: Seleccionar todo

    Private Function RemoveAllemptys(ByVal el As XElement, 
                                     Optional ByVal includeChildNodes As Boolean = False) As XElement

        Dim current = el.LastAttribute

        Do While current IsNot Nothing
            Dim temp = current.PreviousAttribute
            If current.Value = "" Then
                If current.Name <> "sello" Then
                    current.Remove()
                End If
            End If
            current = temp
        Loop

        If includeChildNodes Then
            For Each child In el.Descendants
                RemoveAllemptys(child)
            Next
        End If

        Return el
    End Function