Imagen

DESCARGA SOFTWARE PARA FACTURA ELECTRONICA DE AQUI.
Facturacion, Validacion, Addendas, Librerias de programacion, etc.


ECODEX TIENE ESTOS NUEVOS DATOS DE CONTACTO :
Comercializacion y Ventas - Evelia Vicke evicke@ecodex.com.mx 33-16-03-03-48
Soporte - Humberto Guerrero soporte@ecodex.com.mx 33-34-90-46-03

Agregar Timbre a XML

Para quienes programan Visual Basic aqui esta la solucion
[[ FORO CERRADO DEBIDO A QUE YA LA INFORMACION YA NO ES VIGENTE ]]
rent84
Mensajes: 15
Registrado: Mar Jul 31, 2012 12:07 pm

Agregar Timbre a XML

Mensajepor rent84 » Lun Jul 21, 2014 9:35 am

Buen día, estoy utilizando VB.NET para generar el CFDI ya mando a timbrar el XML y recibo la respuesta, el detalle esta en que aún no logró agregar el timbre a mi XML, no conozco mucho sobre .net asi que si alguien me pude apoyar se los agradecería mucho.
Esto es lo que tengo de codigo.

Código: Seleccionar todo


Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click

        Dim uuid As String = String.Empty, fecha As String = String.Empty

        Dim nTimbreFiscal As XmlNode

        Dim xml As String = "PruebaTimbre.xml"
        Dim xml1 As String = "PruebaXML.xml"


        If Not String.IsNullOrEmpty(xml) Then
            Dim xDoc As New XmlDocument()
            Dim xDoc1 As New XmlDocument()
            Dim xDoc2 As New XmlDocument()
            xDoc.Load(xml)
            xDoc1.Load(xml1)

            nTimbreFiscal = xDoc1.CreateNode(XmlNodeType.Element, "Complemento", "")
            nTimbreFiscal.Prefix = "cfdi"
           'ontengo el nodo Comprobante o nodo raiz
            Dim nodoRaiz As XmlNode = xDoc1.DocumentElement

            Dim lista As XmlNodeList = xDoc.GetElementsByTagName("tfd:TimbreFiscalDigital")

            If lista.Count >= 1 Then
                For Each nodo As XmlElement In lista

                    Dim nTemporal As XmlAttribute

                    uuid = nodo.GetAttribute("UUID")
                    nTemporal = xDoc1.CreateAttribute("UUID")
                    nTemporal.Value = uuid
                    nTimbreFiscal.Attributes.Append(nTemporal)
                 

                    fecha = nodo.GetAttribute("FechaTimbrado")
                    nTemporal = xDoc1.CreateAttribute("FechaTimbrado")
                    nTemporal.Value = uuid
                    nTimbreFiscal.Attributes.Append(nTemporal)

                    xDoc1.InsertAfter(nTimbreFiscal, nodoRaiz.FirstChild)

                    xDoc1.Save("XML_con_timbre.xml")
                Next

            End If
        End If

    End Sub

elomer
Mensajes: 18
Registrado: Vie Abr 25, 2014 9:28 pm

Re: Agregar Timbre a XML

Mensajepor elomer » Mié Oct 01, 2014 4:35 pm

Tienes que sellarlo con algun PAC chavo.
En mi caso solo genero el XML y despues mando llamar el web service del PAC en mi caso Fimco Digital y lo paso como parametro con las funciones del web service y te devuelve el xml con el timbrado.

jggtz
Mensajes: 362
Registrado: Lun Oct 10, 2011 11:50 am

Re: Agregar Timbre a XML

Mensajepor jggtz » Mié Oct 01, 2014 6:55 pm

Que yo sepa, algunos PACs solo regresan el Timbre y uno tiene que agregarlos al xml

jerryeagle
Mensajes: 19
Registrado: Vie Mar 16, 2012 6:14 am

Re: Agregar Timbre a XML

Mensajepor jerryeagle » Dom Nov 02, 2014 8:10 am

Así es, hay varios (o muchos?) PAC que tienen diferentes "Planes" y generalmente el Más barato es devolver Sólo el Nodo TimbreFiscalDigital y uno debe agregarlo al XML, por ejm, DIVERZA, ATEB, etc.


Volver a “Visual Basic”

¿Quién está conectado?

Usuarios navegando por este Foro: No hay usuarios registrados visitando el Foro y 4 invitados