fbpx
Categorías

Cfdi – Complemento Comercio Exterior

Estás aquí:
< Todos los temas
 
Dim usLib As New USLibCOM.FachadaCfdv33
Call usLib.P00Setup(NumeroDecimalesEnTotales:=2, NumeroDecimalesEnDetalle:=2, NumeroDecimalesEnImpuestos:=2, cerFile:="D:\Dropbox\CSD Pruebas\CSD_Pruebas_CFDI_MAG041126GT8\CSD_Pruebas_CFDI_MAG041126GT8.cer", keyFile:="D:\Dropbox\CSD Pruebas\CSD_Pruebas_CFDI_MAG041126GT8\CSD_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 String
c1 = 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.FachadaComercioExterior11
Call 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 String
selloDigital = usLib.P08GenerarSelloDigital
 
Dim result As RespuestaTFD
 
Set result = usLib.P09TimbrarDocumento(esPrueba:=True, validacionPrevia:=False, Key:="USLib")
 
If result.OperacionExitosa Then
'Timbrado correcto
    Dim rfcProveedor As String
    rfcProveedor = usLib.ResumenCfdv33.TfdRfcProvCertif
    Dim uuid  As String
    uuid = usLib.ResumenCfdv33.TfdUuid
    Dim fechaTimbrado As String
    fechaTimbrado = usLib.ResumenCfdv33.TfdFechaTimbrado
    Dim selloSat As String
    selloSat = usLib.ResumenCfdv33.TfdSelloSat
    Dim noCertificadoSat As String
    noCertificadoSat = usLib.ResumenCfdv33.TfdNoCertificadoSat
    Dim noCertificadoEmisor As String
    noCertificadoEmisor = usLib.CsdSerie
    Dim cadenaSat As String
    cadenaSat = usLib.ResumenCfdv33.TfdCadenaOriginal
     
Else
    'Detenerflujo
End If
Anterior Cancelar un Cfdi 3.3 con Certificado.cer Llave.key y Password
Siguiente Consultar documentos relacionados Cfdi 3.3
Tabla de contenidos