Factura Electrónica en VB 6 12


Factura Electrónica en Visual Basic 6

La librería Gen_CFDI.DLL es 100% compatible con Microsoft® Visual Basic 6 / Access (VBA)

Para una rápida integración, ponemos a su disposición la Interfaz TXT a CFDI genera el XML y PDF de una forma muy sencilla.

Incluye un nuevo ejemplo CFDI v4.0 de integración para factura electrónica en VB 6 / Access (VBA), incluye código fuente y le permite generar de una manera muy sencilla los siguientes documentos:

Factura Electrónica en Visual Basic 6

  • Facturas de productos y servicios.

  • Facturas con pedimento de importación.

  • Recibos de honorarios y arrendamiento

  • Recibos de pago de colegiaturas (IEDU)

  • IVA a diferentes tasas e importes.

  • Diferentes tasas e importes del impuesto especial de productos y servicios (IEPS)

  • Impuestos locales (hospedaje, celular, 5 al millar, etc…)

  • Nómina v1.2.

  • Recepción de Pagos v2.0.

  • Divisas

 

A continuación se muestra como generar una factura electrónica en VB 6 / Access (VBA):

NOTA: Los datos del ejemplo son ficticios, la intención es demostrar la generación de un CFDI de prueba.

 

Generar Factura

Matrices de datos.

Variables de memoria previamente definidas:
' Datos del PAC
Public aParametros(1 To 4)
' Comprobante (Serie, Folio, forma de pago, etc...)
Public aComprobante(1 To 16)
' CfdiRelacionado (UUID) precisa la información de los comprobantes relacionados.
Public aCfdiRelacionado(1 To 50)
' Emisor (Nombre, RFC, Regimen Fiscal)
Public aEmisor(1 To 3)
' Receptor (Nombre, RFC, UsoCFDI)
Public aReceptor(1 To 5)
' Datos de los conceptos, por defecto 1000 Conceptos (ampliar segun se requiera) / 6 atributos
Public aConceptos(1 To 1000, 1 To 9)
' Datos de los Impuestos Traslado, por defecto 1000 Conceptos (ampliar segun se requiera) / 5 atributos
Public aConceptosTraslado(1 To 1000, 1 To 20, 1 To 5)
' Datos de los Impuestos Retencion, por defecto 1000 Conceptos (ampliar segun se requiera) / 5 atributos
Public aConceptosRetencion(1 To 1000, 1 To 2, 1 To 5)
' Datos de los pedimentos de importación / 3 atributos para 3 Pedimentos diferentes.
Public aImportacion(1 To 1000, 1 To 10)
' Datos del predial / 6 atributos.
Public aPredial(1 To 1000, 1 To 1)
' Datos del complemento IEDU / 6 atributos.
Public aIEDU(1 To 1000, 1 To 6)
' Datos para el totalImpuestosRetenidos y totalImpuestosTrasladados
Public aImpuestos(1 To 2)
' Importes para ISR e IVA (Retenciones)
Public aRetencion(1 To 14, 1 To 2)
' Datos del IVA, por defecto 3 tasas diferentes (ampliar segun se requiera) / 3 atributos
Public aTraslado(1 To 3, 1 To 4)
' Datos del IEPS, por defecto 5 tasas diferentes (ampliar segun se requiera) / 3 atributos
Public aIEPS(1 To 14, 1 To 4)

 

Comprobante.

Capturamos los datos del Comprobante:

' Datos del comprobante
aComprobante(1) = "4.0"                             ' Versión del estandar CFDI
aComprobante(2) = "AB"                              ' Serie
aComprobante(3) = "12345"                           ' Folio
aComprobante(4) = FechaActual()                     ' Fecha
aComprobante(5) = "T" & Hora()                      ' Hora
aComprobante(6) = "01"                              ' Forma de Pago (Catálogo: c_FormaPago)
aComprobante(7) = ""                                ' Condiciones de pago
aComprobante(8) = "350.00"                          ' SubTotal
aComprobante(9) = ""                                ' Descuento
aComprobante(10) = "MXN"                            ' Moneda (Catálogo: c_Moneda)
aComprobante(11) = ""                               ' Tipo de Cambio
aComprobante(12) = "406.00"                         ' TOTAL
aComprobante(13) = "I"                              ' Tipo de Comprobante (Catálogo: c_TipoDeComprobante)
aComprobante(14) = "PUE"                            ' Método de Pago (Catálogo: c_MetodoPago)
aComprobante(15) = "11000"                          ' Lugar de expedición (Catálogo: c_CodigoPostal)
aComprobante(16) = ""                               ' Confirmación.

' Datos del CFDI Relacionado
cCfdiTipoRelacion = ""                              ' Tipo de Relacion (Catálogo: c_TipoRelacion)
aCfdiRelacionado(1) = ""                            ' Folio fiscal (UUID) de un CFDI relacionado

 

Emisor.

Capturamos los datos del Emisor (Persona física o Moral):

' Datos del Emisor
aEmisor(0) = "TME960709LR2"                            ' RFC del emisor
aEmisor(1) = "La Empresa Inválida, S.A. de C.V."       ' Nombre del emisor
aEmisor(2) = "601"                                     ' Régimen Fiscal (Catálogo: c_RegimenFiscal)

 

Receptor.

Se capturan los datos del Receptor (Cliente):

' Datos del Receptor
aReceptor(0) = "XAXX010101000"                         ' RFC
aReceptor(1) = "Nombre o Razon Social del Cliente"     ' Nombre Cliente
aReceptor(2) = ""                                      ' ResidenciaFiscal
aReceptor(3) = ""                                      ' NumRegIdTrib 
aReceptor(4) = "G01"                                   ' UsoCFDI (Catálogo: c_UsoCFDI)

 

Conceptos.

Capturamos los conceptos (Productos y/o Servicios que contiene el comprobante):

' Concepto / Impuestos / Traslados / Traslado
' 1
aConceptos(0, 0) = "50202306"                          ' Clave Producto Servicio (Catálogo: c_ClaveProdServ)
aConceptos(0, 1) = "COD_001"                           ' Clave o código del producto (NoIdentificacion)
aConceptos(0, 2) = "10"                                ' Cantidad
aConceptos(0, 3) = "H87"                               ' Clave Unidad de medida (Catálogo: c_ClaveUnidad)
aConceptos(0, 4) = "Pieza"                             ' Unidad de medida
aConceptos(0, 5) = "Refresco 3 Litros"                 ' Descripción del producto
aConceptos(0, 6) = "25.00"                             ' Importe unitario
aConceptos(0, 7) = "250.00"                            ' Importe Total
aConceptos(0, 8) = ""                                  ' Descuento. Debe registrarse cuando el concepto efectivamente tenga algún descuento de lo contrario omitir.

' Concepto / Impuestos / Traslados / Traslado
aConceptosTraslado(0, 0, 0) = "250.00"                 ' Base para el cálculo del impuesto
aConceptosTraslado(0, 0, 1) = "002"                    ' Clave impuesto trasladado (Catálogo: c_Impuesto)
aConceptosTraslado(0, 0, 2) = "Tasa"                   ' Clave tipo de factor (Catálogo: c_TipoFactor)
aConceptosTraslado(0, 0, 3) = "0.160000"               ' Tasa o cuota del impuesto
aConceptosTraslado(0, 0, 4) = "40.00"                  ' Importe del impuesto

' 2
aConceptos(1, 0) = "50202302"                          ' Clave Producto Servicio (Catálogo: c_ClaveProdServ)
aConceptos(1, 1) = "COD_002"                           ' Clave o código del producto (NoIdentificacion)
aConceptos(1, 2) = "4"                                 ' Cantidad
aConceptos(1, 3) = "H87"                               ' Clave Unidad de medida (Catálogo: c_ClaveUnidad)
aConceptos(1, 4) = "Pieza"                             ' Unidad de medida
aConceptos(1, 5) = "Bolsas de hielo"                   ' Descripción del producto
aConceptos(1, 6) = "25.00"                             ' Importe unitario
aConceptos(1, 7) = "100.00"                            ' Importe Total
aConceptos(1, 8) = ""                                  ' Descuento

' Concepto / Impuestos / Traslados / Traslado
aConceptosTraslado(1, 0, 0) = "100.00"                 ' Base para el cálculo del impuesto
aConceptosTraslado(1, 0, 1) = "002"                    ' Clave impuesto trasladado (Catálogo: c_Impuesto)
aConceptosTraslado(1, 0, 2) = "Tasa"                   ' Clave tipo de factor (Catálogo: c_TipoFactor)
aConceptosTraslado(1, 0, 3) = "0.160000"               ' Tasa o cuota del impuesto
aConceptosTraslado(1, 0, 4) = "16.00"                  ' Importe del impuesto

' .fin conceptos

 

Impuestos y retenciones.

Establecemos los impuestos y/o retenciones aplicables al documento (IVA, IEPS, ISR):

' Total de Impuestos
aImpuestos(0) = ""                                     ' Total de los impuestos retenidos
aImpuestos(1) = "56.00"                                ' Total de los impuestos trasladados

aTraslado(0, 0) = "002"                                ' Clave impuesto trasladado (Catálogo: c_Impuesto)
aTraslado(0, 1) = "Tasa"                               ' Clave tipo de factor (Catálogo: c_TipoFactor)
aTraslado(0, 2) = "0.160000"                           ' Tasa o cuota del impuesto
aTraslado(0, 3) = "56.00"                              ' Importe del impuesto

 

Generar CFDI.

Por último llama la función de generación del CFDI y es todo,.

 
' Genera el CFDI firmado, sellado y timbrado.
 Generar_CFDIv4(cTmpFile);

 

Al terminar el proceso se crean 3 archivos:

 

1.- El XML timbrado

<?xml version="1.0" encoding="utf-8"?>
<cfdi:Comprobante xsi:schemaLocation="http://www.sat.gob.mx/cfd/4 http://www.sat.gob.mx/sitio_internet/cfd/4/cfdv40.xsd" Version="4.0" Serie="AB" Folio="12345" Fecha="2022-05-20T15:36:11" Sello="QnTkhXf7940h9cWrfBCRxRI97mS4P6/IXzv/oh3jR/j7lJXRLhO2OajDUS3ZfllPattc3G8yY2vMVNsNlxVEDYArdqQ8l9hdAVZdlFZ/dqs5DIxiC7VgTQKFH+Lr1X5nKNdsm7JdS1pUhRIZFRL9z1uHHrknD1cv/+jixgSVEqWCpnLIir4ZS8vcee+UX+7a+A/nuxQpJ5/8bd/ltbWHstAHaciaKt+PDjnfarpcEw9RTuSRlgro48EkoHykOx1OwOqYrJgf6GggtbhdOoEk69O9Y76WkUlt0Lh8lYmc0WUo9a/R2NwIjYA3WM7MzZK2Ciu3ExxxvV+/l2/2h1YvKQ==" FormaPago="01" NoCertificado="30001000000400002434" Certificado="MIIFuzCCA6OgAwIBAgIUMzAwMDEwMDAwMDA0MDAwMDI0MzQwDQYJKoZIhvcNAQELBQAwggErMQ8wDQYDVQQDDAZBQyBVQVQxLjAsBgNVBAoMJVNFUlZJQ0lPIERFIEFETUlOSVNUUkFDSU9OIFRSSUJVVEFSSUExGjAYBgNVBAsMEVNBVC1JRVMgQXV0aG9yaXR5MSgwJgYJKoZIhvcNAQkBFhlvc2Nhci5tYXJ0aW5lekBzYXQuZ29iLm14MR0wGwYDVQQJDBQzcmEgY2VycmFkYSBkZSBjYWRpejEOMAwGA1UEEQwFMDYzNzAxCzAJBgNVBAYTAk1YMRkwFwYDVQQIDBBDSVVEQUQgREUgTUVYSUNPMREwDwYDVQQHDAhDT1lPQUNBTjERMA8GA1UELRMIMi41LjQuNDUxJTAjBgkqhkiG9w0BCQITFnJlc3BvbnNhYmxlOiBBQ0RNQS1TQVQwHhcNMTkwNjE3MTk0NDE0WhcNMjMwNjE3MTk0NDE0WjCB4jEnMCUGA1UEAxMeRVNDVUVMQSBLRU1QRVIgVVJHQVRFIFNBIERFIENWMScwJQYDVQQpEx5FU0NVRUxBIEtFTVBFUiBVUkdBVEUgU0EgREUgQ1YxJzAlBgNVBAoTHkVTQ1VFTEEgS0VNUEVSIFVSR0FURSBTQSBERSBDVjElMCMGA1UELRMcRUtVOTAwMzE3M0M5IC8gWElRQjg5MTExNlFFNDEeMBwGA1UEBRMVIC8gWElRQjg5MTExNk1HUk1aUjA1MR4wHAYDVQQLExVFc2N1ZWxhIEtlbXBlciBVcmdhdGUwggEiMA0GCSqGSIb3DQEBAQUAA4IBDwAwggEKAoIBAQCN0peKpgfOL75iYRv1fqq+oVYsLPVUR/GibYmGKc9InHFy5lYF6OTYjnIIvmkOdRobbGlCUxORX/tLsl8Ya9gm6Yo7hHnODRBIDup3GISFzB/96R9K/MzYQOcscMIoBDARaycnLvy7FlMvO7/rlVnsSARxZRO8Kz8Zkksj2zpeYpjZIya/369+oGqQk1cTRkHo59JvJ4Tfbk/3iIyf4H/Ini9nBe9cYWo0MnKob7DDt/vsdi5tA8mMtA953LapNyCZIDCRQQlUGNgDqY9/8F5mUvVgkcczsIgGdvf9vMQPSf3jjCiKj7j6ucxl1+FwJWmbvgNmiaUR/0q4m2rm78lFAgMBAAGjHTAbMAwGA1UdEwEB/wQCMAAwCwYDVR0PBAQDAgbAMA0GCSqGSIb3DQEBCwUAA4ICAQBcpj1TjT4jiinIujIdAlFzE6kRwYJCnDG08zSp4kSnShjxADGEXH2chehKMV0FY7c4njA5eDGdA/G2OCTPvF5rpeCZP5Dw504RZkYDl2suRz+wa1sNBVpbnBJEK0fQcN3IftBwsgNFdFhUtCyw3lus1SSJbPxjLHS6FcZZ51YSeIfcNXOAuTqdimusaXq15GrSrCOkM6n2jfj2sMJYM2HXaXJ6rGTEgYmhYdwxWtil6RfZB+fGQ/H9I9WLnl4KTZUS6C9+NLHh4FPDhSk19fpS2S/56aqgFoGAkXAYt9Fy5ECaPcULIfJ1DEbsXKyRdCv3JY89+0MNkOdaDnsemS2o5Gl08zI4iYtt3L40gAZ60NPh31kVLnYNsmvfNxYyKp+AeJtDHyW9w7ftM0Hoi+BuRmcAQSKFV3pk8j51la+jrRBrAUv8blbRcQ5BiZUwJzHFEKIwTsRGoRyEx96sNnB03n6GTwjIGz92SmLdNl95r9rkvp+2m4S6q1lPuXaFg7DGBrXWC8iyqeWE2iobdwIIuXPTMVqQb12m1dAkJVRO5NdHnP/MpqOvOgLqoZBNHGyBg4Gqm4sCJHCxA1c8Elfa2RQTCk0tAzllL4vOnI1GHkGJn65xokGsaU4B4D36xh7eWrfj4/pgWHmtoDAYa8wzSwo2GVCZOs+mtEgOQB91/g==" SubTotal="350.00" Moneda="MXN" Total="406.00" TipoDeComprobante="I" Exportacion="01" MetodoPago="PUE" LugarExpedicion="11000" xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance" xmlns:cfdi="http://www.sat.gob.mx/cfd/4">
    <cfdi:Emisor Rfc="EKU9003173C9" Nombre="ESCUELA KEMPER URGATE" RegimenFiscal="601"/>
    <cfdi:Receptor Rfc="XAXX010101000" Nombre="MOSTRADOR" DomicilioFiscalReceptor="11000" RegimenFiscalReceptor="616" UsoCFDI="S01"/>
    <cfdi:Conceptos>
        <cfdi:Concepto ClaveProdServ="50202306" NoIdentificacion="COD_001" Cantidad="10" ClaveUnidad="H87" Unidad="Pieza" Descripcion="Refresco 3 Litros" ValorUnitario="25.00" Importe="250.00" ObjetoImp="02">
            <cfdi:Impuestos>
                <cfdi:Traslados>
                    <cfdi:Traslado Base="250.00" Impuesto="002" TipoFactor="Tasa" TasaOCuota="0.160000" Importe="40.00"/>
                </cfdi:Traslados>
            </cfdi:Impuestos>
        </cfdi:Concepto>
        <cfdi:Concepto ClaveProdServ="50202302" NoIdentificacion="COD_002" Cantidad="4" ClaveUnidad="H87" Unidad="Pieza" Descripcion="Bolsas de hielo" ValorUnitario="25.00" Importe="100.00" ObjetoImp="02">
            <cfdi:Impuestos>
                <cfdi:Traslados>
                    <cfdi:Traslado Base="100.00" Impuesto="002" TipoFactor="Tasa" TasaOCuota="0.160000" Importe="16.00"/>
                </cfdi:Traslados>
            </cfdi:Impuestos>
        </cfdi:Concepto>
    </cfdi:Conceptos>
    <cfdi:Impuestos TotalImpuestosTrasladados="56.00">
        <cfdi:Traslados>
            <cfdi:Traslado Base="350.00" Impuesto="002" TipoFactor="Tasa" TasaOCuota="0.160000" Importe="56.00"/>
        </cfdi:Traslados>
    </cfdi:Impuestos>
    <cfdi:Complemento>
        <tfd:TimbreFiscalDigital xsi:schemaLocation="http://www.sat.gob.mx/TimbreFiscalDigital http://www.sat.gob.mx/sitio_internet/cfd/TimbreFiscalDigital/TimbreFiscalDigitalv11.xsd" Version="1.1" UUID="8c041983-f9f7-479e-ac7b-f6b750489ffb" FechaTimbrado="2022-05-20T15:39:01" RfcProvCertif="SPR190613I52" SelloCFD="QnTkhXf7940h9cWrfBCRxRI97mS4P6/IXzv/oh3jR/j7lJXRLhO2OajDUS3ZfllPattc3G8yY2vMVNsNlxVEDYArdqQ8l9hdAVZdlFZ/dqs5DIxiC7VgTQKFH+Lr1X5nKNdsm7JdS1pUhRIZFRL9z1uHHrknD1cv/+jixgSVEqWCpnLIir4ZS8vcee+UX+7a+A/nuxQpJ5/8bd/ltbWHstAHaciaKt+PDjnfarpcEw9RTuSRlgro48EkoHykOx1OwOqYrJgf6GggtbhdOoEk69O9Y76WkUlt0Lh8lYmc0WUo9a/R2NwIjYA3WM7MzZK2Ciu3ExxxvV+/l2/2h1YvKQ==" NoCertificadoSAT="30001000000400002495" SelloSAT="PAh+HyXDGpreujOD2eoxIMk3riDdtWpcdrG3WMLIf3fvv8mvkl19lCwb3Seyebnfresmfncc94b3//vGzAPaOWw7mot3dfEP8A00k2Be2fRcnmfLBeGl88hVkRNHUfWo3o4X46+5LXlyQ/k/0gyXdOSP6yDMierbycg2a6SCgKOs5XHzr1PrE2R/PHGoMMfoUTDkAaqcjCypfG0fGeVJvXKipNB1Df+XR2uq7lPfFzFiEiJLJeBqLUZXXje7S50oyJXl2MHybx9HtG08wwkoqwN7cJPiVCWDJFB+ILk3EM8aO3WB3GEECnE77YK6WqKT2NRtY2VjGSjwrM7TwL6Vgw==" xmlns:tfd="http://www.sat.gob.mx/TimbreFiscalDigital"/>
    </cfdi:Complemento>
</cfdi:Comprobante>

 

2.- Imagen con el Codigo de Barras Bidimencional (CBB) en formato BMP o PNG:

 

3.- Archivo en formato INI o TXT con la información del timbrado:

[Factura_Electronica]
nError=0
Desc_Error=
Version=4.0
NumCertificado=20001000000300022763
Cert_FechaInicio=
Cert_FechaFin=
Sello_Digital=MLjAx8wmEIv9bNJY1afJz5BfWxYH00BHNYixEXCyNGkcwZOXG+x3TdU/c9kDhcpUyoI7Mr2K1bP0fx6sRnM4DhdGiJ6qkIzIGJjo02tqgY1YfIjT3U3Q7D599AynP0yqlsQ1BNiFDPJbVmY8/BLYLCEn7942kOXBLmKOWiBHpBgtCH/nzmPlQTlFzAwZ7fxHyxkMLNoH8ddRwgXLgPvYtdkUt4nKcPL2OjZyqcw4I6lMdAE91e7zNPHiXyyasatQm9OpXI5GqL1AW80XBxSmKQ/fcxVwGzFggmQVPyg/s7kVHGesXmUmY+QklGcHCmmtfqwiWmu2ki6iL4rElYQwlQ==
Serie=AB
Folio=12345
UUID_(Timbre)=A5212703-8662-48D6-8480-EFAC06AFA48F
Certificado_SAT=20001000000300022323
RfcProvCertif=DAL050601L35
Sello_SAT=pPMevPUh/LYSi56dQqeQu4vkAeiS+r0CpG1oeYobHZbk0fNCh1P3He+TiQhj02Z5NGXwo9q7Xrd6T6aMyDpbBUSi08Qn2iVHnszr/xbVA3l8UiBEf6b3BXg7lJFOF9j3TR/Zb+cCmpQvdL0m5dEa4Pe6+BlqPZ3HTERd50TzXsDmtElbEuocYRnnCWdUX2hco5if4ufTx1nIU+loDESGC5M8det62V2fm5DDNH4Y2eC3LFzTlVsxv0Wrl+x4Wt69GmtakyOfSCJ8CYgMtViI0opOdP1w+1qcQziuC6zSjgynpJEpwZhXzWsC8llPkLAdOH3oQnoPWNO/S2s9JSYbXA==
Fecha_Timbrado=2018-05-13T23:18:34
Cadena_Timbre_digital=||1.1|A5212703-8662-48D6-8480-EFAC06AFA48F|2018-05-13T23:18:34|DAL050601L35|MLjAx8wmEIv9bNJY1afJz5BfWxYH00BHNYixEXCyNGkcwZOXG+x3TdU/c9kDhcpUyoI7Mr2K1bP0fx6sRnM4DhdGiJ6qkIzIGJjo02tqgY1YfIjT3U3Q7D599AynP0yqlsQ1BNiFDPJbVmY8/BLYLCEn7942kOXBLmKOWiBHpBgtCH/nzmPlQTlFzAwZ7fxHyxkMLNoH8ddRwgXLgPvYtdkUt4nKcPL2OjZyqcw4I6lMdAE91e7zNPHiXyyasatQm9OpXI5GqL1AW80XBxSmKQ/fcxVwGzFggmQVPyg/s7kVHGesXmUmY+QklGcHCmmtfqwiWmu2ki6iL4rElYQwlQ==|20001000000300022323||

 

Cancelar CFDI

A continuación se muestra como cancelar un CFDI desde VB 6:

 

Inicio del proceso

Variables involucradas en el proceso.

Dim cXmlTmp As String
Dim cTmpFile As String
Dim cCertFile As String
Dim cKeyFile As String
Dim cKeyPass As String
Dim cResultado As String
Dim cUUID As String
Dim cLicenciaDLL As String

 

Folio Fiscal.

Capturamos los datos del comprobante a cancelar:

' Establece el UUID para cancelar...
cUUID = "A5212703-8662-48D6-8480-EFAC06AFA48F"

' Nombre del archivo temporal generado a traves de la plantilla.
cTmpFile = "Cancelar_CFDI.tmp"

' Archivo de certificado CER (CSD)
cCertFile = "CSD_Pruebas_CFDI_TME960709LR2.cer"

' Archivo de llave privada KEY (CSD)
cKeyFile = "CSD_Pruebas_CFDI_TME960709LR2.key"

' Contraseña llave privada (CSD)
cKeyPass = "12345678a"

' Nombre del archivo de respuesta en formato INI
' NOTA: Se recomienda usar rutas absolutas.
cResultado = DirPrg & "\R_Cancelacion.ini"

' Licencia de uso de la Librería DLL para CFDI v4.0
cLicenciaDLL = ""

 

Cancelar CFDI.

Por último se invoca a la función para cancelar el CFDI y es todo.

// Cancela el comprobante.
 Cancelar_CFDI(cTmpFile);

 

Al terminar el proceso se crean 3 archivos:

 

1.- Acuse de cancelación del SAT en formato XML.

<?xml version="1.0" encoding="UTF-8" standalone="yes"?><acuse xmlns="http://cancelacfd.sat.gob.mx" xmlns:ns2="http://www.w3.org/2000/09/xmldsig#" RfcEmisor="TME960709LR2" Fecha="2018-05-23T11:04:06.4317633"><Folios><UUID>A5212703-8662-48D6-8480-EFAC06AFA48F</UUID><EstatusUUID>201</EstatusUUID></Folios><ns2:Signature Id="SelloSAT"><ns2:SignedInfo><ns2:CanonicalizationMethod Algorithm="http://www.w3.org/TR/2001/REC-xml-c14n-20010315"/><ns2:SignatureMethod Algorithm="http://www.w3.org/2001/04/xmldsig-more#hmac-sha512"/><ns2:Reference URI=""><ns2:Transforms><ns2:Transform Algorithm="http://www.w3.org/TR/1999/REC-xpath-19991116"><ns2:XPath>not(ancestor-or-self::*[local-name()='Signature'])</ns2:XPath></ns2:Transform></ns2:Transforms><ns2:DigestMethod Algorithm="http://www.w3.org/2001/04/xmlenc#sha512"/><ns2:DigestValue>xOovRbIxUIVBbf9gGpESGlYtu0dbzkWteMJIA8CD87y8HRiZ9YzfLE97Jo02vH7mvgznRFo7Grpv9U2pk6uSEQ==</ns2:DigestValue></ns2:Reference></ns2:SignedInfo><ns2:SignatureValue>2C9lIm9YKCX3spD8j6qAOlPJ4jvG7+OKomT/NGaTMprl3VGLYenKNvAwASaC9Uy0d2Jk4Hg0+XyijOGw1Ju9KQ==</ns2:SignatureValue><ns2:KeyInfo><ns2:KeyName>00001088888800000093</ns2:KeyName><ns2:KeyValue><ns2:RSAKeyValue><ns2:Modulus>vAr6QLmcvW6auTg7a+Ogm0veNvqJ30rD3j0iSAHxGzGVrg1d0xl0Fj5l+JX9EivD+qhkSY7pfLnJoObLpQ3GGZZOOihJVS2tbJDmnn9TW8fKUOVg+jGhcnpCHaUPq/Poj8I2OVb3g7hiaREORm6tLtzOIjkOv9INXxIpRMx54cw46D5F1+0M7ECEVO8Jg+3yoI6OvDNBH+jABsj7SutmSnL1Tov/omIlSWausdbXqykcl10BLu2XiQAc6KLnl0+Ntzxoxk+dPUSdRyR7f3Vls6yUlK/+C/4FacbR+fszT0XIaJNWkHaTOoqz76Ax9XgTv9UuT67j7rdTVzTvAN363w==</ns2:Modulus><ns2:Exponent>AQAB</ns2:Exponent></ns2:RSAKeyValue></ns2:KeyValue></ns2:KeyInfo></ns2:Signature></acuse>

 

2.- Información del acuse de cancelación en formato TXT.

===========================================================================================
[Servidor de pruebas] OK - Autenticación correcta, verifique los resultados por comprobante
===========================================================================================

Estatus de respuesta del SAT para el comprobante que se envió a cancelación: 

 Código de respuesta del SAT: 201
 Fecha de la operación: 2018-05-23T11:04:06.4317633
 R.F.C Emisor:TME960709LR2
 Acuse: 38dRLqZcqAHmzjO6cglOzyc3PgeM3JeJnXFjx8T7AnDGsrxyshaz3glxqkbybEtq33i8BfGvRiPPsth72Oh+IQ== 
 Digest: EkWBIJaH+lEDA4H0GA7g9hZZUl5wn2xsMAYmhp4QuV6C+oExb02e4XFzZ/31O7loehTtFYK0t3k1xr/ajSDM3A== 
 Certificado: 00001088888800000093 
 UUID: A5212703-8662-48D6-8480-EFAC06AFA48F

 

3.- Archivo en formato INI o TXT con la información del proceso de cancelación:

[Cancelar_Factura_Electronica]
nError=0
Desc_Error=
UUID=A5212703-8662-48D6-8480-EFAC06AFA48F
Servidor=[Servidor de pruebas] OK - Autenticación correcta.
Respuesta_SAT=201
Fecha_Op=2018-05-23T11:04:06.4317633
RFC_Emisor=TME960709LR2 
Acuse=38dRLqZcqAHmzjO6cglOzyc3PgeM3JeJnXFjx8T7AnDGsrxyshaz3glxqkbybEtq33i8BfGvRiPPsth72Oh+IQ== 
Digest=EkWBIJaH+lEDA4H0GA7g9hZZUl5wn2xsMAYmhp4QuV6C+oExb02e4XFzZ/31O7loehTtFYK0t3k1xr/ajSDM3A== 
Certificado=00001088888800000093

 

(c) Derechos reservados 2011-2020, FacturaRapida.com.mx.

Todas las marcas registradas, logotipos y marcas comerciales mencionadas en esta página pertenecen a sus respectivos propietarios.

* Para más información envíe por favor un correo a:

Firma


Dejar un comentario

Tu dirección de correo electrónico no será publicada. Los campos obligatorios están marcados con *

12 ideas sobre “Factura Electrónica en VB 6

  • Ezequiel

    Hola me gustaría obtener un demo de la Librería para VB6.

    ¿Cuál es el Precio de la Librería?

    ¿Qué pasa si solo facturo 5 veces por mes?
    ¿El costo seguiría siendo .30 Centavos por factura?

    ¿Posteriores adaptaciones de cambios de la SAT se cobrarían?

    Espero pronta respuesta y agradezco de antemano. SALUDOS!!!!

    • Factura Rápida Autor

      Estimado Ezequiel,

      Gracias por visitarnos, hemos enviado un ejemplo de uso para VB6 y el DEMO de la librería así como la información de contratación.

      Recientemente hemos actualizado nuestros paquetes de timbres, los cuales se ajustan a todos los presupuestos y necesidades.

      Un cordial saludo.

  • Luis Valenzuela Alcaíno

    hola, estoy implementando un sistema de facturación electrónica en vb 6.0, soy de Chile.
    Cuanto es el valor, se puede adaptar a nuestras leyes chilenas, y por ultimo trae algún manual explicando como enlazarlo con vb 6.0?
    Gracias

    • Factura Rápida Autor

      Estimado Luis,

      Gracias por su interés, le comento que de momento los productos y servicios que ofrece Factura Rápida, funcionan de acuerdo con las leyes vigentes conforme al Sistema de Administración Tributaria (SAT) de México, en breve contaremos con productos para otros países de america latina.

      Un cordial saludo.

  • jorge lopez

    despues de leer sus metodos de facturas , agradeceria si ustedes tienen un metodo para firmar en access 2007 o superior para facturas de SAT Guatemala. todo mi codigo esta en access 2013 y genero el xml pero para la autorizacion necesito firmarlo con XADES SHA256.
    Agradezco su repuesta. mi correo es jcoto@hotmail.com

    • Factura Rápida Autor

      Estimado Jorge.

      Gracias por su interés, le comento que de momento los productos y servicios que ofrece Factura Rápida, funcionan de acuerdo con la legislación fiscal vigente de México (SAT), en breve contaremos con productos para otros países de América Latina..

      Un cordial saludo.

    • Factura Rápida Autor

      Estimado Diego.

      Le comento que la librería DLL, los ejemplos de integración, documentación, acceso al ambiente de pruebas, soporte, etc. Se obtiene sin costo al comprar un paquete mínimo de mil timbres digitales.

      Para información de todos los paquetes de timbrado y precios puede consultar el siguiente enlace:

      Servicio de Timbrado

      Asimismo, hemos enviado toda la información a su correo.

      Saludos.

  • Raul

    Me contacto desde Argentina, en representacion de una empresa, por lo expuesto estaría interesado en la librería (dll), usos, licencias, integración para visual basic 6.0, deseo hacer una integración de un ERP para México, pero necesito poder realizar la facturación Electrónica, por lo cual necesitaría por un tiempo también asesoría sobre el uso y funcionalidades de la libreria que utilizan, que cubre y que debo tener en cuenta para una puesta en funcionamiento correcta.

    Espero vuestra respuesta, desde ya muy agradecido.

    • Factura Rápida Autor

      Estimado Raúl,

      Hemos enviado la información de contratación para el timbrado y la integración.

      Muchas gracias por su confianza en nuestros productos y servicios.

      Le reiteramos el apoyo por parte del departamento de soporte técnico para la rápida integración de su ERP.

      Quedamos a sus órdenes.

  • jesus

    Buenos días, me podrían dan mas información del costo de la librería para el timbrado y el costo del mismo, actualmente ya genero el XMl sellado solo ocupo el timbrado, y en caso del servicio de ASPEL, que es lo que manejan uno debe tener la licencia del programa de ASPEL y zoilo compra uno los timbres con uds y como se hace la configuraciòn. gracias.

    • Factura Rápida Autor

      Estimado Jesús,

      Gracias por visitarnos, hemos enviado a su correo toda la información del Servicio de Timbrado.

      Respecto al timbrado con los Sistemas ASPEL, le comento que de momento no estamos ofreciendo esa opción de timbrado. Esperamos en breve volver a ofrecer el servicio.

      Quedamos a sus órdenes.

      Un cordial saludo.