private void GeneraCFDI()
{
int hXml = VXML_NewWithLog("4.0","cfdi40_acuentatercero.log");
VXML_SetUserInfo(hXml,"demo_cibertec","demo");
VXML_SetComprobanteInfo_cfdi40(hXml,"A","1",%cb_date,"99","Contado Comercial","50000.00","","MXN","","58000.00","I2,"PPD","53050","","01");
VXML_SetEmisorInfo_cfdi40(hXml,"EKU9003173C9","ESCUELA KEMPER URGATE","601","");
VXML_SetReceptorInfo_cfdi40(hXml,"CTE940531F58","CIBERNETICA Y TECNOLOGIA","","","G01","53050","601");
VXML_AddConcepto_cfdi40(hXml,"80131502", "", "1", "E48", "No aplica", "Renta del mes de julio 20269", "28600.00", "28600.00", "02");
VXML_SetConceptoACuentaTerceros_cfdi40(hXml,"AACS890501AF3","SELENE APARICIO CASTIGLIONI","626","11000");
VXML_AddConceptoTraslado(hXml,"50000.00","002","Tasa","0.160000","8000.00");
VXML_SetImpuestosInfo_cfdi40(hXml,"8000.00");
VXML_AddTraslado_cfdi40(hXml,"002","Tasa","0.160000","8000.00","50000.00");
VXML_ProcesaDocumento(hXml,"CSD_EKU9003173C9.cer","CSD_EKU9003173C9.key","12345678a","cfdi40_hidroypetro10.xml");
VXML_Fre(hXml);
}