fbpx

Solicita tu kit de integración

Ejemplo Cfdi 3.3 Comprobante básico

Updated on enero 20, 2021
Imports System Namespace Cfdi.Base33    Class Program        Private Shared Sub Main()            Dim usLib As USLib.FachadaCfdv33 = New USLib.FachadaCfdv33()            usLib.P00Setup(numeroDecimalesEnTotales:=2, numeroDecimalesEnDetalle:=6, numeroDecimalesEnImpuestos:=6, cerFile:="D:DropboxCSD PruebasCSD_Pruebas_CFDI_MAG041126GT8CSD_Pruebas_CFDI_MAG041126GT8.cer", keyFile:="D:DropboxCSD PruebasCSD_Pruebas_CFDI_MAG041126GT8CSD_Pruebas_CFDI_MAG041126GT8.key", passwordKey:="12345678a")            usLib.P01DatosGenerales(serie:="A", folio:="12345", fecha:=DateTime.Now.ToString("s"), formaPago:="01", condicionesDePago:="Contado", subTotal:="931.08", descuento:="0.00", moneda:="MXN", tipoCambio:="1.00", total:="997.28", tipoDeComprobante:="I", metodoPago:="PUE", lugarExpedicion:="85040", confirmacion:="")            usLib.P03Emisor(rfc:="MAG041126GT8", nombre:="EMCORSOFT SC", regimenFiscal:="601")            usLib.P04Receptor(rfc:="XAXX010101000", nombre:="PUBLICO GENERAL", residenciaFiscal:="", numRegIdTrib:="", usoCfdi:="G01")            Dim c1 = usLib.P05ConceptosAgregar(claveProdServ:="83111504", noIdentificacion:="1001567", cantidad:="5.000000", claveUnidad:="E48", unidad:="Servicio", descripcion:="CONCEPTO 1", valorUnitario:="17.240000", importe:="86.200000", descuento:="0.000000")            usLib.P05ConceptoAgregarImpuestoTraslado(baseCalculoImpuesto:="86.200000", impuesto:="002", tipoFactor:="Tasa", tasaOCuota:="0.160000", importe:="13.792000", concepto:=c1)            c1 = usLib.P05ConceptosAgregar(claveProdServ:="83111504", noIdentificacion:="1001567", cantidad:="1.000000", claveUnidad:="E48", unidad:="Servicio", descripcion:="CONCEPTO 2", valorUnitario:="17.240000", importe:="17.240000", descuento:="0.000000")            usLib.P05ConceptoAgregarImpuestoTraslado(baseCalculoImpuesto:="17.240000", impuesto:="002", tipoFactor:="Tasa", tasaOCuota:="0.160000", importe:="2.758400", concepto:=c1)            c1 = usLib.P05ConceptosAgregar(claveProdServ:="83111504", noIdentificacion:="1001567", cantidad:="2.000000", claveUnidad:="E48", unidad:="Servicio", descripcion:="CONCEPTO 3", valorUnitario:="25.860000", importe:="51.720000", descuento:="0.000000")            usLib.P05ConceptoAgregarImpuestoTraslado(baseCalculoImpuesto:="51.720000", impuesto:="002", tipoFactor:="Tasa", tasaOCuota:="0.160000", importe:="8.275200", concepto:=c1)            c1 = usLib.P05ConceptosAgregar(claveProdServ:="83111504", noIdentificacion:="1001567", cantidad:="3.000000", claveUnidad:="E48", unidad:="Servicio", descripcion:="CONCEPTO 4", valorUnitario:="258.640000", importe:="775.920000", descuento:="0.000000")            usLib.P05ConceptoAgregarImpuestoTraslado(baseCalculoImpuesto:="775.920000", impuesto:="002", tipoFactor:="Tasa", tasaOCuota:="0.160000", importe:="124.147200", concepto:=c1)            usLib.P05ConceptoAgregarImpuestoRetencion(baseCalculoImpuesto:="775.920000", impuesto:="001", tipoFactor:="Tasa", tasaOCuota:="0.106667", importe:="82.76505864", concepto:=c1)            usLib.P06ImpuestosCrearResumenPorConceptos()            usLib.P08GenerarSelloDigital()            Dim result = usLib.P09TimbrarDocumento(esPrueba:=True, validacionPrevia:=False, key:="", referencia:="USLib")             If result.OperacionExitosa Then                Dim rfcProveedor = usLib.ResumenCfdv33.TfdRfcProvCertif                Dim uuid = usLib.ResumenCfdv33.TfdUuid                Dim fechaTimbrado = usLib.ResumenCfdv33.TfdFechaTimbrado                Dim selloSat = usLib.ResumenCfdv33.TfdSelloSat                Dim noCertificadoSat = usLib.ResumenCfdv33.TfdNoCertificadoSat                Dim noCertificadoEmisor = usLib.CsdSerie                Dim cadenaSat = usLib.ResumenCfdv33.TfdCadenaOriginal                System.IO.File.WriteAllBytes("C:Wsdl" & usLib.ResumenCfdv33.TfdUuid & ".jpg", usLib.ResumenCfdv33.QrImagen)                Console.WriteLine("OK")                System.IO.File.WriteAllBytes("C:Wsdl" & usLib.ResumenCfdv33.TfdUuid & ".xml", result.XmlFile)            Else                System.IO.File.WriteAllBytes("C:WsdlError.xml", result.XmlFile)                Console.WriteLine(result.MensajeError)            End If             Console.WriteLine("Fin")            Console.ReadKey()        End Sub

Estamos cerca de ti, ¡síguenos!
Y entérate de nuestras promociones

© emcor software todos los derechos reservados 2020.

Solicita tu

Kit de integración

Ingresa tus datos


Recibe nuestro kit de integración!, solo tienes que solicitarlo por medio de este formulario.