A continuación se muestra un ejemplo de factura básica nota crédito VB.net SDK
Ejemplo de factura básica nota crédito VB.net 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("cfdi", "c:/sdk2/timbrados/ejemplo_factura_basica_nota_credito.xml");
sdk.Iniciales.Add("xml_debug", "c:/sdk2/timbrados/ejemplo_factura_basica_nota_credito_debug.xml");
sdk.Iniciales.Add("validacion_local", "NO");
sdk.Iniciales.Add("php_openssl", "SI");
//#NODO [conceptos]
Dim conceptos As MFObject = New MFObject("conceptos");
//#NODO [conceptos/0]
Dim conceptos_0 As MFObject = New MFObject("0");
//#NODO [conceptos/0/Impuestos]
Dim conceptos_0_Impuestos As MFObject = New MFObject("Impuestos");
//#NODO [conceptos/0/Impuestos/Traslados]
Dim conceptos_0_Impuestos_Traslados As MFObject = New MFObject("Traslados");
//#NODO [conceptos/0/Impuestos/Traslados/0]
Dim conceptos_0_Impuestos_Traslados_0 As MFObject = New MFObject("0");
conceptos_0_Impuestos_Traslados_0["TasaOCuota"] = "0.160000";
conceptos_0_Impuestos_Traslados_0["Impuesto"] = "002";
conceptos_0_Impuestos_Traslados_0["Importe"] = "160.00";
conceptos_0_Impuestos_Traslados_0["Base"] = "1000.00";
conceptos_0_Impuestos_Traslados_0["TipoFactor"] = "Tasa";
conceptos_0_Impuestos_Traslados.AgregaSubnodo(conceptos_0_Impuestos_Traslados_0);
conceptos_0_Impuestos.AgregaSubnodo(conceptos_0_Impuestos_Traslados);
conceptos_0.AgregaSubnodo(conceptos_0_Impuestos);
//#NODO [impuestos]
Dim impuestos As MFObject = New MFObject("impuestos");
impuestos["TotalImpuestosTrasladados"] = "160.00";
//#NODO [impuestos/translados]
Dim impuestos_translados As MFObject = New MFObject("translados");
impuestos_translados["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"] = "616";
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["Exportacion"] = "01";
factura["forma_pago"] = "01";
factura["tipocambio"] = "1";
factura["folio"] = "100";
factura["subtotal"] = "1000.00";
factura["total"] = "1160.00";
factura["LugarExpedicion"] = "27000";
factura["serie"] = "A";
factura["fecha_expedicion"] = "AUTO";
factura["tipocomprobante"] = "E";
factura["moneda"] = "MXN";
factura["metodo_pago"] = "PUE";
//#Agrega Nodos
sdk.AgregaObjeto(PAC);
sdk.AgregaObjeto(conf);
sdk.AgregaObjeto(factura);
sdk.AgregaObjeto(emisor);
sdk.AgregaObjeto(receptor);
conceptos.AgregaSubnodo(conceptos_0);
sdk.AgregaObjeto(conceptos);
impuestos.AgregaSubnodo(impuestos_translados);
sdk.AgregaObjeto(impuestos);
//#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);
