La versión de su navegador no está debidamente actualizada. Le recomendamos actualizarla a la versión más reciente.

NUEVO : Envío de la factura al WhatsAPP del Cliente

Como crear una factura global descuento al concepto en VB SDK

Como crear una factura global descuento al concepto en VB SDK

Publicado 21/07/2023

A continuación se muestra un ejemplo de factura global descuento al concepto en VB SDK

Ejemplo de factura global descuento al concepto con 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("validacion_local", "NO");
sdk.Iniciales.Add("cfdi", "c:/sdk2/timbrados/Ejemplo_factura_global.xml");
sdk.Iniciales.Add("xml_debug", "c:/sdk2/timbrados/Ejemplo_factura_global_debug.xml");

 

//#NODO [impuestos]
Dim impuestos As MFObject = New MFObject("impuestos");
impuestos["TotalImpuestosTrasladados"] = "47.68";

 

//#NODO [impuestos/translados]
Dim impuestos_translados As MFObject = New MFObject("translados");

 

//#NODO [impuestos/translados/0]
Dim impuestos_translados_0 As MFObject = New MFObject("0");
impuestos_translados_0["tasa"] = "0.160000";
impuestos_translados_0["impuesto"] = "002";
impuestos_translados_0["TipoFactor"] = "Tasa";
impuestos_translados_0["importe"] = "47.68";
impuestos_translados_0["Base"] = "298";
impuestos_translados.AgregaSubnodo(impuestos_translados_0);

 

//#NODO [conceptos]
Dim conceptos As MFObject = New MFObject("conceptos");

 

//#NODO [conceptos/1]
Dim conceptos_1 As MFObject = New MFObject("1");
conceptos_1["unidad"] = "NA";
conceptos_1["cantidad"] = "1";
conceptos_1["ObjetoImp"] = "02";
conceptos_1["ID"] = "1586";
conceptos_1["descripcion"] = "PRODUCTO DE PRUEBA 2";
conceptos_1["valorunitario"] = "199";
conceptos_1["importe"] = "199";
conceptos_1["ClaveProdServ"] = "01010101";
conceptos_1["ClaveUnidad"] = "ACT";

 

//#NODO [conceptos/1/Impuestos]
Dim conceptos_1_Impuestos As MFObject = New MFObject("Impuestos");

 

//#NODO [conceptos/1/Impuestos/Traslados]
Dim conceptos_1_Impuestos_Traslados As MFObject = New MFObject("Traslados");

 

//#NODO [conceptos/1/Impuestos/Traslados/0]
Dim conceptos_1_Impuestos_Traslados_0 As MFObject = New MFObject("0");
conceptos_1_Impuestos_Traslados_0["TasaOCuota"] = "0.160000";
conceptos_1_Impuestos_Traslados_0["Impuesto"] = "002";
conceptos_1_Impuestos_Traslados_0["TipoFactor"] = "Tasa";
conceptos_1_Impuestos_Traslados_0["Importe"] = "31.84";
conceptos_1_Impuestos_Traslados_0["Base"] = "199";
conceptos_1_Impuestos_Traslados.AgregaSubnodo(conceptos_1_Impuestos_Traslados_0);
conceptos_1_Impuestos.AgregaSubnodo(conceptos_1_Impuestos_Traslados);
conceptos_1.AgregaSubnodo(conceptos_1_Impuestos);

 

//#NODO [conceptos/0]
Dim conceptos_0 As MFObject = New MFObject("0");
conceptos_0["unidad"] = "Pieza";
conceptos_0["cantidad"] = "1";
conceptos_0["ObjetoImp"] = "02";
conceptos_0["ID"] = "1726";
conceptos_0["descripcion"] = "Cigarros";
conceptos_0["valorunitario"] = "99";
conceptos_0["importe"] = "99";
conceptos_0["ClaveProdServ"] = "50211503";
conceptos_0["ClaveUnidad"] = "H87";

 

//#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["TipoFactor"] = "Tasa";
conceptos_0_Impuestos_Traslados_0["Importe"] = "15.84";
conceptos_0_Impuestos_Traslados_0["Base"] = "99";
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 [InformacionGlobal]
Dim InformacionGlobal As MFObject = New MFObject("InformacionGlobal");
InformacionGlobal["Periodicidad"] = "02";
InformacionGlobal["Meses"] = "05";
InformacionGlobal["Año"] = "2022";

 

//#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"] = "45079";
receptor["nombre"] = "PUBLICO EN GENERAL";
receptor["UsoCFDI"] = "S01";
receptor["rfc"] = "XAXX010101000";

 

//#NODO [factura]
Dim factura As MFObject = New MFObject("factura");
factura["forma_pago"] = "01";
factura["folio"] = "100";
factura["LugarExpedicion"] = "45079";
factura["serie"] = "A";
factura["fecha_expedicion"] = "AUTO";
factura["condicionesDePago"] = "CONDICIONEES";
factura["tipocomprobante"] = "I";
factura["moneda"] = "MXN";
factura["metodo_pago"] = "PUE";
factura["tipocambio"] = "1";
factura["Exportacion"] = "01";
factura["subtotal"] = "298";
factura["total"] = "345.68";


//#Agrega Nodos
sdk.AgregaObjeto(PAC);
sdk.AgregaObjeto(conf);
sdk.AgregaObjeto(factura);
sdk.AgregaObjeto(emisor);
sdk.AgregaObjeto(receptor);
sdk.AgregaObjeto(InformacionGlobal);
conceptos.AgregaSubnodo(conceptos_0);
conceptos.AgregaSubnodo(conceptos_1);
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);