Dim usLib As New USLibCOM.FachadaCfdv33Call usLib.P00Setup(NumeroDecimalesEnTotales:=2, NumeroDecimalesEnDetalle:=2, NumeroDecimalesEnImpuestos:=2, cerFile:="D:DropboxCSD PruebasCSD_Pruebas_CFDI_MAG041126GT8CSD_Pruebas_CFDI_MAG041126GT8.cer", keyFile:="D:DropboxCSD PruebasCSD_Pruebas_CFDI_MAG041126GT8CSD_Pruebas_CFDI_MAG041126GT8.key", passwordKey:="12345678a")Call usLib.P01DatosGenerales(serie:="A", folio:="12345", fecha:=DateTime.Now.ToString("s"), formaPago:="03", condicionesDePago:="Contado", Subtotal:="10.00", descuento:="", moneda:="MXN", tipoCambio:="1.00", Total:="10.00", tipoDeComprobante:="I", metodoPago:="PUE", lugarExpedicion:="85040", confirmacion:="")Call usLib.P03Emisor(rfc:="MAG041126GT8", nombre:="EMCORSOFT SC", regimenFiscal:="601")Call usLib.P04Receptor(rfc:="XEXX010101000", nombre:="CLIENTE EXTRANJERO", residenciaFiscal:="USA", numRegIdTrib:="123456789", usoCfdi:="P01")Dim c1 As Stringc1 = usLib.P05ConceptosAgregar(claveProdServ:="01010101", noIdentificacion:="998877660011", cantidad:="1.00", claveUnidad:="H87", unidad:="Pieza", descripcion:="CABLE NUMERO 5", valorUnitario:="10.00", importe:="10.00", descuento:="") Dim comercio As New USLibCOM.FachadaComercioExterior11Call comercio.P01Generales(motivoTraslado:="", certificadoOrigen:=0, numCertificadoOrigen:="", numeroExportadorConfiable:="", incoterm:="CFR", subdivision:=0, observaciones:="", tipoCambioUsd:=1, totalUsd:=10)Call comercio.P03EmisorDomicilio("Mayo", "600C", "", "1539", "04", "", "018", "SON", "MEX", "85040")Call comercio.P06ReceptorDomicilio("Mayo", "600C", "", "1539", "04", "", "018", "SON", "MEX", "85040")Call comercio.P09MercanciasAgregar(noIdentificacion:="998877660011", fraccionArancelaria:="53062001", cantidadAduana:=1, unidadAduana:="01", valorUnitarioAduana:=10, valorDolares:=10)Call comercio.Cerrar33(usLib.Cfd) Dim selloDigital As StringselloDigital = usLib.P08GenerarSelloDigital Dim result As RespuestaTFD Set result = usLib.P09TimbrarDocumento(esPrueba:=True, validacionPrevia:=False, Key:="USLib") If result.OperacionExitosa Then'Timbrado correctoDim rfcProveedor As StringrfcProveedor = usLib.ResumenCfdv33.TfdRfcProvCertifDim uuid  As Stringuuid = usLib.ResumenCfdv33.TfdUuidDim fechaTimbrado As StringfechaTimbrado = usLib.ResumenCfdv33.TfdFechaTimbradoDim selloSat As StringselloSat = usLib.ResumenCfdv33.TfdSelloSatDim noCertificadoSat As StringnoCertificadoSat = usLib.ResumenCfdv33.TfdNoCertificadoSatDim noCertificadoEmisor As StringnoCertificadoEmisor = usLib.CsdSerieDim cadenaSat As StringcadenaSat = usLib.ResumenCfdv33.TfdCadenaOriginal Else'DetenerflujoEnd If