Ejemplo de factura pagos20 todos los nodos 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_todos_los_nodos.xml");
sdk.Iniciales.Add("xml_debug", "c:/sdk2/timbrados/ejemplo_factura_pagos20_todos_los_nodos_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.0";
conceptos_0["importe"] = "0.0";
conceptos_0["cantidad"] = "1";
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");

//#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["NumParcialidad"] = "1";
pagos20_Pagos_0_DoctoRelacionado_0["Folio"] = "210";
pagos20_Pagos_0_DoctoRelacionado_0["ImpPagado"] = "5000";
pagos20_Pagos_0_DoctoRelacionado_0["ImpSaldoInsoluto"] = "5000";
pagos20_Pagos_0_DoctoRelacionado_0["EquivalenciaDR"] = "5000";
pagos20_Pagos_0_DoctoRelacionado_0["ObjetoImpDR"] = "5000";
pagos20_Pagos_0_DoctoRelacionado_0["ImpSaldoAnt"] = "10000";
pagos20_Pagos_0_DoctoRelacionado_0["IdDocumento"] = "970e4f32-0fe0-11e7-93ae-92361f002671";
pagos20_Pagos_0_DoctoRelacionado_0["Serie"] = "A";
pagos20_Pagos_0_DoctoRelacionado_0["MonedaDR"] = "MXN";
pagos20_Pagos_0_DoctoRelacionado_0["MetodoDePagoDR"] = "PIP";

//#NODO [pagos20/Pagos/0/DoctoRelacionado/0/ImpuestosDR]
Dim pagos20_Pagos_0_DoctoRelacionado_0_ImpuestosDR As MFObject = New MFObject("ImpuestosDR");

//#NODO [pagos20/Pagos/0/DoctoRelacionado/0/ImpuestosDR/RetencionDR]
Dim pagos20_Pagos_0_DoctoRelacionado_0_ImpuestosDR_RetencionDR As MFObject = New MFObject("RetencionDR");

//#NODO [pagos20/Pagos/0/DoctoRelacionado/0/ImpuestosDR/RetencionDR/0]
Dim pagos20_Pagos_0_DoctoRelacionado_0_ImpuestosDR_RetencionDR_0 As MFObject = New MFObject("0");
pagos20_Pagos_0_DoctoRelacionado_0_ImpuestosDR_RetencionDR_0["BaseDR"] = "5000";
pagos20_Pagos_0_DoctoRelacionado_0_ImpuestosDR_RetencionDR_0["ImpuestoDR"] = "5000";
pagos20_Pagos_0_DoctoRelacionado_0_ImpuestosDR_RetencionDR_0["TipoFactorDR"] = "5000";
pagos20_Pagos_0_DoctoRelacionado_0_ImpuestosDR_RetencionDR_0["TasaOCuotaDR"] = "5000";
pagos20_Pagos_0_DoctoRelacionado_0_ImpuestosDR_RetencionDR_0["ImporteDR"] = "5000";
pagos20_Pagos_0_DoctoRelacionado_0_ImpuestosDR_RetencionDR.AgregaSubnodo(pagos20_Pagos_0_DoctoRelacionado_0_ImpuestosDR_RetencionDR_0);
pagos20_Pagos_0_DoctoRelacionado_0_ImpuestosDR.AgregaSubnodo(pagos20_Pagos_0_DoctoRelacionado_0_ImpuestosDR_RetencionDR);

//#NODO [pagos20/Pagos/0/DoctoRelacionado/0/ImpuestosDR/TrasladosDR]
Dim pagos20_Pagos_0_DoctoRelacionado_0_ImpuestosDR_TrasladosDR As MFObject = New MFObject("TrasladosDR");

//#NODO [pagos20/Pagos/0/DoctoRelacionado/0/ImpuestosDR/TrasladosDR/0]
Dim pagos20_Pagos_0_DoctoRelacionado_0_ImpuestosDR_TrasladosDR_0 As MFObject = New MFObject("0");
pagos20_Pagos_0_DoctoRelacionado_0_ImpuestosDR_TrasladosDR_0["BaseDR"] = "5000";
pagos20_Pagos_0_DoctoRelacionado_0_ImpuestosDR_TrasladosDR_0["ImpuestoDR"] = "5000";
pagos20_Pagos_0_DoctoRelacionado_0_ImpuestosDR_TrasladosDR_0["TipoFactorDR"] = "5000";
pagos20_Pagos_0_DoctoRelacionado_0_ImpuestosDR_TrasladosDR_0["TasaOCuotaDR"] = "5000";
pagos20_Pagos_0_DoctoRelacionado_0_ImpuestosDR_TrasladosDR_0["ImporteDR"] = "5000";
pagos20_Pagos_0_DoctoRelacionado_0_ImpuestosDR_TrasladosDR.AgregaSubnodo(pagos20_Pagos_0_DoctoRelacionado_0_ImpuestosDR_TrasladosDR_0);
pagos20_Pagos_0_DoctoRelacionado_0_ImpuestosDR.AgregaSubnodo(pagos20_Pagos_0_DoctoRelacionado_0_ImpuestosDR_TrasladosDR);
pagos20_Pagos_0_DoctoRelacionado_0.AgregaSubnodo(pagos20_Pagos_0_DoctoRelacionado_0_ImpuestosDR);
pagos20_Pagos_0_DoctoRelacionado.AgregaSubnodo(pagos20_Pagos_0_DoctoRelacionado_0);
pagos20_Pagos_0.AgregaSubnodo(pagos20_Pagos_0_DoctoRelacionado);

//#NODO [pagos20/Pagos/0/ImpuestosP]
Dim pagos20_Pagos_0_ImpuestosP As MFObject = New MFObject("ImpuestosP");

//#NODO [pagos20/Pagos/0/ImpuestosP/RetencionesP]
Dim pagos20_Pagos_0_ImpuestosP_RetencionesP As MFObject = New MFObject("RetencionesP");

//#NODO [pagos20/Pagos/0/ImpuestosP/RetencionesP/0]
Dim pagos20_Pagos_0_ImpuestosP_RetencionesP_0 As MFObject = New MFObject("0");
pagos20_Pagos_0_ImpuestosP_RetencionesP_0["ImpuestoP"] = "5000";
pagos20_Pagos_0_ImpuestosP_RetencionesP_0["ImporteP"] = "5000";
pagos20_Pagos_0_ImpuestosP_RetencionesP.AgregaSubnodo(pagos20_Pagos_0_ImpuestosP_RetencionesP_0);
pagos20_Pagos_0_ImpuestosP.AgregaSubnodo(pagos20_Pagos_0_ImpuestosP_RetencionesP);

//#NODO [pagos20/Pagos/0/ImpuestosP/TrasladosP]
Dim pagos20_Pagos_0_ImpuestosP_TrasladosP As MFObject = New MFObject("TrasladosP");

//#NODO [pagos20/Pagos/0/ImpuestosP/TrasladosP/0]
Dim pagos20_Pagos_0_ImpuestosP_TrasladosP_0 As MFObject = New MFObject("0");
pagos20_Pagos_0_ImpuestosP_TrasladosP_0["BaseP"] = "5000";
pagos20_Pagos_0_ImpuestosP_TrasladosP_0["ImpuestoP"] = "5000";
pagos20_Pagos_0_ImpuestosP_TrasladosP_0["TipoFactorP"] = "5000";
pagos20_Pagos_0_ImpuestosP_TrasladosP_0["TasaOCuotaP"] = "5000";
pagos20_Pagos_0_ImpuestosP_TrasladosP_0["ImporteP"] = "5000";
pagos20_Pagos_0_ImpuestosP_TrasladosP.AgregaSubnodo(pagos20_Pagos_0_ImpuestosP_TrasladosP_0);
pagos20_Pagos_0_ImpuestosP.AgregaSubnodo(pagos20_Pagos_0_ImpuestosP_TrasladosP);
pagos20_Pagos_0.AgregaSubnodo(pagos20_Pagos_0_ImpuestosP);
pagos20_Pagos.AgregaSubnodo(pagos20_Pagos_0);

//#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);
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);

Como crear una factura pagos20 todos los nodos en VB SDK

Ejemplo de factura pagos20 todos los nodos en VB SDK