viernes, 14 de noviembre de 2014

Contabilidad Electronica - Xml Polizas

Aquí  les comparto en clase en Visual Basic para crear el Xml de la Contabilidad Electronica, espero les sea de utilidad..


Codigo:

Imports Microsoft.VisualBasic

Imports System.Xml
Imports System.Xml.Schema
Imports System.Xml.Xsl
Imports System.IO
Imports System.Windows
Imports System.Text
Imports System.Diagnostics



Namespace Polizas

    Public Class polizas

#Region "Declaracion de Variables"

        Dim URI_SAT As String = "http://www.sat.gob.mx/polizas"

        ' Esta variable de nivel de modulo nos facilita las operaciones en las demas subrutinas
        Private m_xmlDOM As System.Xml.XmlDocument
        Private Nodo As System.Xml.XmlNode
        Private Const DIR_SAT = "\"
        Private Const DIR_PKI = "\"

        '---------Variables Publicas
        Public Archivo_XSLT As String
        Public Archivo_XML As String

        '---------Variable Rutas de Guardado
        Public Directorio_Guardado As String
        Private Carpeta_xml As String
        Private Rutafactura As String


        Private vAño As Integer
        Private vMes As Integer
        Private vTotalCtas As Integer
        Private vRFC As String

#End Region

        Private Sub RutaFact()
            Carpeta_xml = Archivo_XML.Replace(".xml", "")
            Rutafactura = Directorio_Guardado & Carpeta_xml
        End Sub

        Public Sub New(ByVal pAño As String, ByVal pMes As Integer, ByVal pTotalCtas As Integer, _
                                             ByVal pRFC As String)

            MyBase.New()

            vAño = pAño
            vMes = pMes
            vTotalCtas = pTotalCtas
            vRFC = pRFC
            CreaPolizas()

        End Sub

        Private Sub CreaPolizas()
            Dim nPolizas As System.Xml.XmlNode
            Dim ElementNodo As System.Xml.XmlElement
            Dim oDOM As XmlDocument = New XmlDocument()
            Nodo = oDOM.CreateProcessingInstruction("xml", "version=""1.0"" encoding=""UTF-8""")
            oDOM.AppendChild(Nodo)

            m_xmlDOM = oDOM
            m_xmlDOM.Normalize()

            nPolizas = m_xmlDOM.CreateElement("Polizas", "http://www.sat.gob.mx/polizas")
            ElementNodo = nPolizas
            ElementNodo.SetAttribute("xmlns:PLZ", URI_SAT)
            ElementNodo.SetAttribute("xmlns:xs", "http://www.w3.org/2001/XMLSchema")
            ElementNodo.SetAttribute("targetNamespace", "http://www.sat.gob.mx/polizas")
            ElementNodo.SetAttribute("version", "1.0")
            ElementNodo.SetAttribute("Ano", vAño)
            ElementNodo.SetAttribute("Mes", vMes)
            ElementNodo.SetAttribute("TotalCtas", vTotalCtas)
            m_xmlDOM.AppendChild(nPolizas)
            Nodo = nPolizas
            InsentarNodo(nPolizas)
            nPolizas.Prefix = "PLZ"
        End Sub

        Public Sub AgraegaDatosPoliza(ByVal pTipo As Integer, ByVal pNum As String, ByVal pFecha As Date, ByVal pConcepto As String)

            Dim ePolizas As System.Xml.XmlElement
            Dim ePoliza As System.Xml.XmlElement

            ePolizas = EditarNodo("/PLZ:Polizas")
            ePoliza = CrearNodo("PLZ", "Poliza")
            ePoliza.SetAttribute("Tipo", pTipo)
            ePoliza.SetAttribute("Num", pNum)
            ePoliza.SetAttribute("Fecha", pFecha)
            ePoliza.SetAttribute("Concepto", pConcepto)
            ePolizas.AppendChild(ePoliza)
            InsentarNodo(ePolizas)
        End Sub

        Public Sub AgraegaDatosTransaccion(ByVal pNumCta As String, ByVal pConcepto As String, _
                                       ByVal pDebe As Decimal, ByVal pHaber As Decimal, ByVal pMoneda As String, ByVal pTipoCambio As Decimal, ByVal pTipoPoliza As Integer, ByVal pNumPoliza As String)
            Dim ePoliza As System.Xml.XmlElement
            Dim eTransaccion As System.Xml.XmlElement

            ePoliza = EditarNodo("/PLZ:Polizas/PLZ:Poliza", pTipoPoliza, pNumPoliza)
            eTransaccion = CrearNodo("PLZ", "Transaccion")
            eTransaccion.SetAttribute("NumCta", pNumCta)
            eTransaccion.SetAttribute("Concepto", pConcepto)
            eTransaccion.SetAttribute("Debe", pDebe)
            eTransaccion.SetAttribute("Haber", pHaber)
            eTransaccion.SetAttribute("Moneda", pMoneda)
            eTransaccion.SetAttribute("TipCamb", pTipoCambio)
            ePoliza.AppendChild(eTransaccion)
            InsentarNodo(ePoliza)

        End Sub

        Public Sub AgraegaDatosCheque(ByVal pNum As String, ByVal pBanco As String, _
                                       ByVal pCtaOri As String, ByVal pFecha As Date, ByVal pMonto As Decimal, ByVal pBenef As String, ByVal pRFC As String, ByVal pTipoPoliza As Integer, ByVal pNumPoliza As String, ByVal pNumCtaTrans As String, ByVal pConceptoTrans As String)

            Dim Transaccion As System.Xml.XmlElement
            Dim Cheques As System.Xml.XmlElement


            Transaccion = EditarNodo("/PLZ:Polizas/PLZ:Poliza", "/PLZ:Transaccion", pTipoPoliza, pNumPoliza, pNumCtaTrans, pConceptoTrans)
            Cheques = CrearNodo("PLZ", "Cheques")
            Cheques.SetAttribute("Num", pNum)
            Cheques.SetAttribute("Banco", pBanco)
            Cheques.SetAttribute("CtaOri", pCtaOri)
            Cheques.SetAttribute("Fecha", pFecha)
            Cheques.SetAttribute("Monto", pMonto)
            Cheques.SetAttribute("Benef", pBenef)
            Cheques.SetAttribute("RFC", pRFC)
            Transaccion.AppendChild(Cheques)
            InsentarNodo(Transaccion)

        End Sub

        Public Sub AgraegaDatosTransferencia(ByVal pCtaOri As String, ByVal pBancoOri As String, _
                                       ByVal pMonto As String, ByVal pCtaDest As String, ByVal pBancoDest As String, ByVal pFecha As Date, ByVal pBenef As String, ByVal pRFC As String, ByVal pTipoPoliza As Integer, ByVal pNumPoliza As String, ByVal pNumCtaTrans As String, ByVal pConceptoTrans As String)

            Dim Tranzaccion As System.Xml.XmlElement
            Dim Transferencia As System.Xml.XmlElement

            Tranzaccion = EditarNodo("/PLZ:Polizas/PLZ:Poliza", "/PLZ:Transaccion", pTipoPoliza, pNumPoliza, pNumCtaTrans, pConceptoTrans)
            Transferencia = CrearNodo("PLZ", "Transferencia")
            Transferencia.SetAttribute("CtaOri", pCtaOri)
            Transferencia.SetAttribute("BancoOri", pBancoOri)
            Transferencia.SetAttribute("Monto", pMonto)
            Transferencia.SetAttribute("CtaDest", pCtaDest)
            Transferencia.SetAttribute("BancoDest", pBancoDest)
            Transferencia.SetAttribute("Fecha", pFecha)
            Transferencia.SetAttribute("Benef", pBenef)
            Transferencia.SetAttribute("RFC", pRFC)
            Tranzaccion.AppendChild(Transferencia)
            InsentarNodo(Tranzaccion)

        End Sub

        Public Sub AgraegaDatosComprobantes(ByVal pUUID_CFDI As String, ByVal pMonto As Decimal, ByVal pRFC As String, ByVal pTipoPoliza As Integer, ByVal pNumPoliza As String, ByVal pNumCtaTrans As String, ByVal pConceptoTrans As String)

            Dim Transaccion As System.Xml.XmlElement
            Dim Comprobantes As System.Xml.XmlElement

            Transaccion = EditarNodo("/PLZ:Polizas/PLZ:Poliza", "/PLZ:Transaccion", pTipoPoliza, pNumPoliza, pNumCtaTrans, pConceptoTrans)
            Comprobantes = CrearNodo("PLZ", "Comprobantes")
            Comprobantes.SetAttribute("UUID_CFDI", pUUID_CFDI)
            Comprobantes.SetAttribute("Monto", pMonto)
            Comprobantes.SetAttribute("RFC", pRFC)
            Transaccion.AppendChild(Comprobantes)
            InsentarNodo(Transaccion)

        End Sub

        Private Function CrearNodo(ByVal prefijo As String, ByVal Nombre As String) As System.Xml.XmlNode
            CrearNodo = m_xmlDOM.CreateNode(XmlNodeType.Element, prefijo, Nombre, "http://www.sat.gob.mx/polizas")
        End Function

        Private Function EditarNodo(ByVal Nombre As String) As System.Xml.XmlElement
            Dim doc As XmlDocument = New XmlDocument()
            doc = m_xmlDOM

            Dim nsmgr As XmlNamespaceManager = New XmlNamespaceManager(doc.NameTable)
            nsmgr.AddNamespace("PLZ", "http://www.sat.gob.mx/polizas")

            Dim nodeList As XmlNodeList
            Dim root As XmlElement = doc.DocumentElement
            EditarNodo = m_xmlDOM.SelectSingleNode(Nombre, nsmgr)
        End Function

        Private Function EditarNodo(ByVal Nombre As String, ByVal Tipo As Integer, ByVal Num As String) As System.Xml.XmlElement
            Dim doc As XmlDocument = New XmlDocument()
            doc = m_xmlDOM

            Dim nsmgr As XmlNamespaceManager = New XmlNamespaceManager(doc.NameTable)
            nsmgr.AddNamespace("PLZ", "http://www.sat.gob.mx/polizas")

            Dim nodeList As XmlNodeList
            Dim root As XmlElement = doc.DocumentElement
            nodeList = m_xmlDOM.SelectNodes(Nombre, nsmgr)
            For Each vAuxNode As XmlElement In nodeList
                If vAuxNode.Attributes("Tipo").Value = Tipo And vAuxNode.Attributes("Num").Value = Num Then
                    EditarNodo = vAuxNode
                    'Exit For
                End If
            Next vAuxNode
        End Function

        Private Function EditarNodo(ByVal Nombre As String, ByVal NombreAux As String, ByVal Tipo As Integer, ByVal Num As String, ByVal TransNumCta As String, ByVal TransConcepto As String) As System.Xml.XmlElement
            Dim doc As XmlDocument = New XmlDocument()          
            doc = m_xmlDOM
            Dim nsmgr As XmlNamespaceManager = New XmlNamespaceManager(doc.NameTable)
            nsmgr.AddNamespace("PLZ", "http://www.sat.gob.mx/polizas")

            Dim nodeList As XmlNodeList
            Dim nodeTrans As XmlNodeList
            Dim root As XmlElement = doc.DocumentElement
            nodeList = m_xmlDOM.SelectNodes(Nombre, nsmgr)
            For Each vAuxNode As XmlElement In nodeList
                If vAuxNode.Attributes("Tipo").Value = Tipo And vAuxNode.Attributes("Num").Value = Num Then
                    nodeTrans = vAuxNode.SelectNodes(Nombre & NombreAux, nsmgr)
                    For Each vAuxNodeTrans As XmlElement In nodeTrans
                        If vAuxNodeTrans.Attributes("NumCta").Value = TransNumCta And vAuxNodeTrans.Attributes("Concepto").Value = TransConcepto Then
                            EditarNodo = vAuxNodeTrans
                            'Exit For
                        End If
                    Next vAuxNodeTrans
                End If
            Next vAuxNode
        End Function


        Private Sub InsentarNodo(ByVal Nodo As System.Xml.XmlElement)
            Nodo.AppendChild(m_xmlDOM.CreateTextNode(vbNewLine))
        End Sub

        Public Sub GenereArchivos(Optional ByVal vTemporal As Boolean = False)

            Dim direct_Nuevo As System.IO.Directory
            If vTemporal Then
                RutaFact()
                direct_Nuevo.CreateDirectory(Rutafactura)
                m_xmlDOM.Save(Rutafactura & "\" & Archivo_XML)
            Else
                RutaFact()
                direct_Nuevo.CreateDirectory(Rutafactura)
                m_xmlDOM.Save(Rutafactura & "\" & Archivo_XML)

            End If
        End Sub

    End Class

End Namespace

Contabilidad Electronica - Xml Cuentas

Contabilidad Electrónica -  Xml Cuentas

Aquí les comparto  una clase más en  Visual  Basic, para generar  el xml de las cuentas, para  la Contabilidad Electronica espero les sea de algún apoyo.

Código:

Imports Microsoft.VisualBasic

Imports System.Xml
Imports System.Xml.Schema
Imports System.Xml.Xsl
Imports System.IO
Imports System.Windows
Imports System.Text
Imports System.Diagnostics



Namespace Catalogo

    Public Class Catalogo

#Region "Declaracion de Variables"

        Dim URI_SAT As String = "http://www.sat.gob.mx/catalogo"

        ' Esta variable de nivel de modulo nos facilita las operaciones en las demas subrutinas
        Private m_xmlDOM As System.Xml.XmlDocument
        Private Nodo As System.Xml.XmlNode
        Private Const DIR_SAT = "\"
        Private Const DIR_PKI = "\"

        '---------Variables Publicas
        Public Archivo_XSLT As String
        Public Archivo_XML As String

        '---------Variable Rutas de Guardado
        Public Directorio_Guardado As String
        Private Carpeta_xml As String
        Private Rutafactura As String


        Private vAño As Integer
        Private vMes As Integer
        Private vTotalCtas As Integer
        Private vRFC As String

#End Region

        Private Sub RutaFact()
            Carpeta_xml = Archivo_XML.Replace(".xml", "")
            Rutafactura = Directorio_Guardado & Carpeta_xml
        End Sub

        Public Sub New(ByVal pAño As String, ByVal pMes As Integer, ByVal pTotalCtas As Integer, _
                                             ByVal pRFC As String)

            MyBase.New()

            vAño = pAño
            vMes = pMes
            vTotalCtas = pTotalCtas
            vRFC = pRFC
            CreaCatalogo()

        End Sub

        Private Sub CreaCatalogo()
            Dim Catalogo As System.Xml.XmlNode
            Dim ElementNodo As System.Xml.XmlElement
            Dim oDOM As XmlDocument = New XmlDocument()
            Nodo = oDOM.CreateProcessingInstruction("xml", "version=""1.0"" encoding=""UTF-8""")
            oDOM.AppendChild(Nodo)

            m_xmlDOM = oDOM
            m_xmlDOM.Normalize()

            Catalogo = m_xmlDOM.CreateElement("Catalogo", "http://www.sat.gob.mx/catalogo")
            ElementNodo = Catalogo
            ElementNodo.SetAttribute("xmlns:catalogocuentas", URI_SAT)
            ElementNodo.SetAttribute("xmlns:xs", "http://www.w3.org/2001/XMLSchema")
            ElementNodo.SetAttribute("targetNamespace", "http://www.sat.gob.mx/catalogo")
            ElementNodo.SetAttribute("version", "1.0")
            ElementNodo.SetAttribute("Ano", vAño)
            ElementNodo.SetAttribute("Mes", vMes)
            ElementNodo.SetAttribute("TotalCtas", vTotalCtas)
            m_xmlDOM.AppendChild(Catalogo)
            Nodo = Catalogo
            InsentarNodo(Catalogo)
            Catalogo.Prefix = "catalogocuentas"
        End Sub



        Public Sub AgraegaDatosCuentas(ByVal pNatur As String, ByVal pNivel As Integer, _
                                       ByVal pDesc As String, ByVal pCodAgrup As String, ByVal pNumCta As String)

            Dim Conceptos As System.Xml.XmlElement
            Dim Concepto As System.Xml.XmlElement


            Conceptos = EditarNodo("/catalogocuentas:Catalogo")
            Concepto = CrearNodo("catalogocuentas", "Ctas")
            Concepto.SetAttribute("Natur", pNatur)
            Concepto.SetAttribute("Nivel", pNivel)
            Concepto.SetAttribute("Desc", pDesc)
            Concepto.SetAttribute("NumCta", pNumCta)
            Concepto.SetAttribute("CodAgrup", pCodAgrup)
            Conceptos.AppendChild(Concepto)
            InsentarNodo(Conceptos)
        End Sub
        Public Sub AgraegaDatosCuentas(ByVal pNatur As String, ByVal pNivel As Integer, _
                                       ByVal pDesc As String, ByVal pCodAgrup As String, ByVal pNumCta As String, ByVal pSubCtaDe As String)

            Dim Conceptos As System.Xml.XmlElement
            Dim Concepto As System.Xml.XmlElement


            Conceptos = EditarNodo("/Catalogo")
            Concepto = CrearNodo("catalogocuentas", "Ctas")
            Concepto.SetAttribute("Natur", pNatur)
            Concepto.SetAttribute("Nivel", pNivel)
            Concepto.SetAttribute("Desc", pDesc)
            Concepto.SetAttribute("NumCta", pNumCta)
            Concepto.SetAttribute("SubCtaDe", pSubCtaDe)
            Concepto.SetAttribute("CodAgrup", pCodAgrup)
            Conceptos.AppendChild(Concepto)
            InsentarNodo(Conceptos)

        End Sub

        Private Function CrearNodo(ByVal prefijo As String, ByVal Nombre As String) As System.Xml.XmlNode
            CrearNodo = m_xmlDOM.CreateNode(XmlNodeType.Element, prefijo, Nombre, "http://www.sat.gob.mx/catalogo")
        End Function

        Private Function EditarNodo(ByVal Nombre As String) As System.Xml.XmlElement
            Dim doc As XmlDocument = New XmlDocument()
            doc = m_xmlDOM

            Dim nsmgr As XmlNamespaceManager = New XmlNamespaceManager(doc.NameTable)
            nsmgr.AddNamespace("catalogocuentas", "http://www.sat.gob.mx/catalogo")

            Dim nodeList As XmlNodeList
            Dim root As XmlElement = doc.DocumentElement
            EditarNodo = m_xmlDOM.SelectSingleNode(Nombre, nsmgr)

        End Function

        Private Sub InsentarNodo(ByVal Nodo As System.Xml.XmlElement)
            Nodo.AppendChild(m_xmlDOM.CreateTextNode(vbNewLine))
        End Sub

        Public Sub GenereArchivos(Optional ByVal vTemporal As Boolean = False)

            Dim direct_Nuevo As System.IO.Directory
            If vTemporal Then
                RutaFact()
                direct_Nuevo.CreateDirectory(Rutafactura)
                m_xmlDOM.Save(Rutafactura & "\" & Archivo_XML)
            Else
                RutaFact()
                direct_Nuevo.CreateDirectory(Rutafactura)
                m_xmlDOM.Save(Rutafactura & "\" & Archivo_XML)

            End If
        End Sub

    End Class

End Namespace


Contabilidad Electronica - Balanza

CONTABILIDAD ELECTONICA "Xml de Balanza"

Aquí les comparto una clase en Visual Basic, para crear unos de los archivos necesarios para presentar su Contabilidad Electrónica, espero les sea de mucha utilidad..

Código:


Imports Microsoft.VisualBasic

Imports System.Xml
Imports System.Xml.Schema
Imports System.Xml.Xsl
Imports System.IO
Imports System.Windows
Imports System.Text
Imports System.Diagnostics



Namespace Balanza

    Public Class XmlBalanza

#Region "Declaracion de Variables"

        Dim URI_SAT As String = "http://www.sat.gob.mx/balanza"

        ' Esta variable de nivel de modulo nos facilita las operaciones en las demas subrutinas
        Private m_xmlDOM As System.Xml.XmlDocument
        Private Nodo As System.Xml.XmlNode
        Private Const DIR_SAT = "\"
        Private Const DIR_PKI = "\"

        '---------Variables Publicas
        Public Archivo_XSLT As String
        Public Archivo_XML As String

        '---------Variable Rutas de Guardado
        Public Directorio_Guardado As String
        Private Carpeta_xml As String
        Private Rutafactura As String


        Private vAño As Integer
        Private vMes As Integer
        Private vTotalCtas As Integer
        Private vRFC As String      
             
#End Region

        Private Sub RutaFact()
            Carpeta_xml = Archivo_XML.Replace(".xml", "")
            Rutafactura = Directorio_Guardado & Carpeta_xml
        End Sub
 
        Public Sub New(ByVal pAño As String, ByVal pMes As Integer, ByVal pTotalCtas As Integer, _
                                             ByVal pRFC As String)

            MyBase.New()

            vAño = pAño
            vMes = pMes
            vTotalCtas = pTotalCtas
            vRFC = pRFC          
            CreaBalanza()

        End Sub

        Private Sub CreaBalanza()
            Dim Balanza As System.Xml.XmlNode
            Dim ElementNodo As System.Xml.XmlElement
            Dim oDOM As XmlDocument = New XmlDocument()
            Nodo = oDOM.CreateProcessingInstruction("xml", "version=""1.0"" encoding=""UTF-8""")
            oDOM.AppendChild(Nodo)

            m_xmlDOM = oDOM
            m_xmlDOM.Normalize()

            Balanza = m_xmlDOM.CreateElement("Balanza", "http://www.sat.gob.mx/balanza")
            ElementNodo = Balanza
            ElementNodo.SetAttribute("xmlns:BCE", URI_SAT)
            ElementNodo.SetAttribute("xmlns:xs", "http://www.w3.org/2001/XMLSchema")
            ElementNodo.SetAttribute("targetNamespace", "http://www.sat.gob.mx/balanza")          
            ElementNodo.SetAttribute("version", "1.0")
            ElementNodo.SetAttribute("Ano", vAño)
            ElementNodo.SetAttribute("Mes", vMes)
            ElementNodo.SetAttribute("TotalCtas", vTotalCtas)          
            m_xmlDOM.AppendChild(Balanza)
            Nodo = Balanza
            InsentarNodo(Balanza)
            Balanza.Prefix = "BCE"
        End Sub

             

        Public Sub AgraegaDatosCuentas(ByVal pSaldoFin As Decimal, ByVal pHaber As Decimal, _
                                       ByVal pDebe As Decimal, ByVal pSaldoIni As Decimal, ByVal pNumCta As String)

            Dim Conceptos As System.Xml.XmlElement
            Dim Concepto As System.Xml.XmlElement


            Conceptos = EditarNodo("/BCE:Balanza")
            Concepto = CrearNodo("BCE", "Ctas")
            Concepto.SetAttribute("SaldoFin", pSaldoFin)
            Concepto.SetAttribute("Haber", pHaber)
            Concepto.SetAttribute("Debe", pDebe)
            Concepto.SetAttribute("SaldoIni", pSaldoIni)
            Concepto.SetAttribute("NumCta", pNumCta)
            Conceptos.AppendChild(Concepto)
            InsentarNodo(Conceptos)

        End Sub

        ' Crea nuevos nodos y les asigna el Namespace http://www.sat.gob.mx/balanza, esto evita que en cada nodo que creemos nos aparezca un atributo xmlns vacio.
        Private Function CrearNodo(ByVal prefijo As String, ByVal Nombre As String) As System.Xml.XmlNode
            CrearNodo = m_xmlDOM.CreateNode(XmlNodeType.Element, prefijo, Nombre, "http://www.sat.gob.mx/balanza")
        End Function

        Private Function EditarNodo(ByVal Nombre As String) As System.Xml.XmlElement
            Dim doc As XmlDocument = New XmlDocument()
            doc = m_xmlDOM

            Dim nsmgr As XmlNamespaceManager = New XmlNamespaceManager(doc.NameTable)
            nsmgr.AddNamespace("BCE", "http://www.sat.gob.mx/balanza")

            Dim nodeList As XmlNodeList
            Dim root As XmlElement = doc.DocumentElement
            EditarNodo = m_xmlDOM.SelectSingleNode(Nombre, nsmgr)

        End Function

        Private Sub InsentarNodo(ByVal Nodo As System.Xml.XmlElement)
            Nodo.AppendChild(m_xmlDOM.CreateTextNode(vbNewLine))
        End Sub

        Public Sub GenereArchivos(Optional ByVal vTemporal As Boolean = False)

            Dim direct_Nuevo As System.IO.Directory
            If vTemporal Then
                RutaFact()
                direct_Nuevo.CreateDirectory(Rutafactura)
                m_xmlDOM.Save(Rutafactura & "\" & Archivo_XML)
            Else
                RutaFact()
                direct_Nuevo.CreateDirectory(Rutafactura)
                m_xmlDOM.Save(Rutafactura & "\" & Archivo_XML)

            End If
        End Sub

    End Class

End Namespace






lunes, 18 de agosto de 2014

Software para Validar las Facturas Electronicas CFDI v3.2

Validar CFDI  v3.2


El siguiente programa lo puede descargar  para apoyarse a validar  su factura electronica generada. Valida los CFDI versión 3.2, con los siguientes complementos:

http://www.sat.gob.mx/detallista http://www.sat.gob.mx/divisas http://www.sat.gob.mx/donat http://www.sat.gob.mx/ecb http://www.sat.gob.mx/ecc http://www.sat.gob.mx/implocal http://www.sat.gob.mx/TimbreFiscalDigital http://www.sat.gob.mx/leyendasFiscales http://www.sat.gob.mx/TuristaPasajeroExtranjero
http://www.sat.gob.mx/pfic http://www.sat.gob.mx/iedu http://www.sat.gob.mx/ventavehiculos http://www.sat.gob.mx/terceros http://www.sat.gob.mx/spei http://www.sat.gob.mx/registrofiscal http://www.sat.gob.mx/nomina http://www.sat.gob.mx/pagoenespecie http://www.sat.gob.mx/valesdedespensa http://www.sat.gob.mx/consumodecombustibles http://www.sat.gob.mx/aerolineas http://www.sat.gob.mx/notariospublicos

Los complementos se instalan en raiz en una carpeta llamada SAT. ahí los pueden encontrar.
Espero les sirva el programa.
Link de Descarga:


Dejen sus comentarios..

lunes, 14 de julio de 2014

Facturación Electronica Generar el XML CDFI v3.2 completo

Facturación Electrónica Generar el XML CDFI v3.2, Completo.

El siguiente código muestra un ejemplo de como generar un CFDI v3.2.   el  codigo es completo... en  artículos anteriores publique algo similar, el cual no traía ni el sello y el certificado incrustado en el Xml.   Anexo este nuevo código que trae los procedimientos de como insertar el certificado, asi como el sello digital. 

El programa esta realizado en Visual Basic con Visual Estudio 2008.

Link para descargar código:

Dejen sus comentarios.

sábado, 14 de diciembre de 2013

CFDI - Crear PDF apartir del XML

CFDI - Crear PDF a partir del XML

El siguiente código nos ayuda a generar la  impresión gráfica del CFDI. El ejemplo esta programado en Visual Basic, lo utilizo en la mayoría de las publicaciones por lo sencillo que se me hace realizar los ejemplos.

Para generar el PDF utilice en esta ocasión un reporte hecho con la herramienta de CrystalReports, ademas reutilizo la utileria "ThoughtWorks.QRCode.dll" que anteriormente publique  en como "Generar un Código de Barras Bidimensional"

Link para realizar Descarga: https://www.mediafire.com/?axirzf0n3w0ywhu

Espero les pueda servir el  código  como referencia...

Dejen sus comentarios..