A continuación se muestra un ejemplo de factura pagos20 USD en VB SDK
Ejemplo de factura pagos20 USD en VB SDK
Dim sdk As MFSDK;
sdk = new MFSDK();
sdk.Iniciales.Add("MODOINI", "DIVISOR");
sdk.Iniciales.Add("RESPUESTA_UTF8", "SI");
sdk.Iniciales.Add("version_cfdi", "4.0");
sdk.Iniciales.Add("complemento", "pagos20");
sdk.Iniciales.Add("validacion_local", "NO");
sdk.Iniciales.Add("cfdi", "c:/sdk2/timbrados/ejemplo_factura_pagos20_usd.xml");
sdk.Iniciales.Add("xml_debug", "c:/sdk2/timbrados/ejemplo_factura_pagos20_usd_debug.xml");
//#NODO [conceptos]
Dim conceptos As MFObject = New MFObject("conceptos");
//#NODO [conceptos/0]
Dim conceptos_0 As MFObject = New MFObject("0");
conceptos_0["valorunitario"] = "0";
conceptos_0["importe"] = "0";
conceptos_0["cantidad"] = "1";
conceptos_0["ObjetoImp"] = "01";
conceptos_0["ClaveProdServ"] = "84111506";
conceptos_0["ClaveUnidad"] = "ACT";
conceptos_0["descripcion"] = "Pago";
//#NODO [pagos20]
Dim pagos20 As MFObject = New MFObject("pagos20");
//#NODO [pagos20/Pagos]
Dim pagos20_Pagos As MFObject = New MFObject("Pagos");
//#NODO [pagos20/Pagos/0]
Dim pagos20_Pagos_0 As MFObject = New MFObject("0");
pagos20_Pagos_0["NomBancoOrdExt"] = "0.0";
pagos20_Pagos_0["TipoCambioP"] = "1";
pagos20_Pagos_0["FormaDePagoP"] = "06";
pagos20_Pagos_0["Monto"] = "187426.15";
pagos20_Pagos_0["FechaPago"] = "2023-09-19T10:31:37";
pagos20_Pagos_0["MonedaP"] = "MXN";
//#NODO [pagos20/Pagos/0/DoctoRelacionado]
Dim pagos20_Pagos_0_DoctoRelacionado As MFObject = New MFObject("DoctoRelacionado");
//#NODO [pagos20/Pagos/0/DoctoRelacionado/0]
Dim pagos20_Pagos_0_DoctoRelacionado_0 As MFObject = New MFObject("0");
pagos20_Pagos_0_DoctoRelacionado_0["ImpSaldoInsoluto"] = "0.00";
pagos20_Pagos_0_DoctoRelacionado_0["EquivalenciaDR"] = "0.045331";
pagos20_Pagos_0_DoctoRelacionado_0["NumParcialidad"] = "1";
pagos20_Pagos_0_DoctoRelacionado_0["ObjetoImpDR"] = "01";
pagos20_Pagos_0_DoctoRelacionado_0["Folio"] = "210";
pagos20_Pagos_0_DoctoRelacionado_0["ImpSaldoAnt"] = "1943";
pagos20_Pagos_0_DoctoRelacionado_0["ImpPagado"] = "1943";
pagos20_Pagos_0_DoctoRelacionado_0["IdDocumento"] = "970e4f32-0fe0-11e7-93ae-92361f002671";
pagos20_Pagos_0_DoctoRelacionado_0["Serie"] = "A";
pagos20_Pagos_0_DoctoRelacionado_0["MonedaDR"] = "USD";
pagos20_Pagos_0_DoctoRelacionado.AgregaSubnodo(pagos20_Pagos_0_DoctoRelacionado_0);
pagos20_Pagos_0.AgregaSubnodo(pagos20_Pagos_0_DoctoRelacionado);
pagos20_Pagos.AgregaSubnodo(pagos20_Pagos_0);
//#NODO [pagos20/Totales]
Dim pagos20_Totales As MFObject = New MFObject("Totales");
pagos20_Totales["MontoTotalPagos"] = "187426";
//#NODO [emisor]
Dim emisor As MFObject = New MFObject("emisor");
emisor["RegimenFiscal"] = "601";
emisor["rfc"] = "EKU9003173C9";
emisor["nombre"] = "ESCUELA KEMPER URGATE";
//#NODO [conf]
Dim conf As MFObject = New MFObject("conf");
conf["pass"] = "12345678a";
conf["cer"] = "c:/sdk2/certificados/EKU9003173C9.cer.pem";
conf["key"] = "c:/sdk2/certificados/EKU9003173C9.key.pem";
//#NODO [PAC]
Dim PAC As MFObject = New MFObject("PAC");
PAC["usuario"] = "DEMO700101XXX";
PAC["pass"] = "DEMO700101XXX";
PAC["produccion"] = "NO";
//#NODO [receptor]
Dim receptor As MFObject = New MFObject("receptor");
receptor["RegimenFiscalReceptor"] = "601";
receptor["DomicilioFiscalReceptor"] = "27054";
receptor["UsoCFDI"] = "G01";
receptor["nombre"] = "MIGUEL ANGEL SOSA HERNANDEZ";
receptor["rfc"] = "SOHM7509289MA";
//#NODO [factura]
Dim factura As MFObject = New MFObject("factura");
factura["subtotal"] = "0";
factura["total"] = "0";
factura["Exportacion"] = "01";
factura["folio"] = "100";
factura["LugarExpedicion"] = "45079";
factura["fecha_expedicion"] = "AUTO";
factura["tipocomprobante"] = "P";
factura["moneda"] = "XXX";
factura["serie"] = "Z";
//#Agrega Nodos
sdk.AgregaObjeto(PAC);
sdk.AgregaObjeto(conf);
sdk.AgregaObjeto(factura);
sdk.AgregaObjeto(emisor);
sdk.AgregaObjeto(receptor);
conceptos.AgregaSubnodo(conceptos_0);
sdk.AgregaObjeto(conceptos);
pagos20.AgregaSubnodo(pagos20_Pagos);
pagos20.AgregaSubnodo(pagos20_Totales);
sdk.AgregaObjeto(pagos20);
//#Ejecuta KIT
SDKRespuesta respuesta = sdk.Timbrar(@"C:\sdk2\timbrar32.bat", @"C:\sdk2\timbrados\", "factura", false);
//Muestra el archivo ini
//textBox1.Text = sdk.Ini;
//Muestra la respuesta de timbrado
//textBox2.Text = respuesta.RespuestaOriginalSDK;
// Se notifica que el SDK se ejecutó
string mensaje = string.Format("Código: {0}\r\nMensaje: {1}", respuesta.Codigo_MF_Numero, respuesta.Codigo_MF_Texto);
MessageBox.Show(this, mensaje, Application.ProductName, MessageBoxButtons.OK, respuesta.Codigo_MF_Numero == "0" ? MessageBoxIcon.Information : MessageBoxIcon.Warning);
