local h, he, hc set proc to libfacturista additive init_libfacturista() rutaLlavePrivada="./aaa010101aaa__csd_01.key" contrasena="12345678a" rutaCertificado="./aaa010101aaa__csd_01.cer" rutaDestino="./cfdi_sellado_vfp.xml" xml2="./cfdi_timbrado_vfp.xml" h=cfdi_comprobante("3.2", "A", "1234", "2013-09-08T18:43:11", "Pago en una sola exhibicion", "6172.50", "12.34", "USD", "7124.75", "Efectivo", "ingreso", "Campeche, Campeche", "3849", "", "", "", "") he=cfdi_emisor(h,"AAA010101AAA","facturista.com") if he=0 messagebox(cfdi_error(h)) return -1 endif cfdi_emisor_regimen(he,"Regimen 1") cfdi_emisor_regimen(he,"Regimen 2") * el RFC de los clientes no debe contener guiones o espacios hr=cfdi_receptor(h,"X&XX010101AAA","nombre_tu_cliente") * los clientes deben tener desglosada su direccion para poder llenar los campos del receptor cfdi_receptor_domicilio(hr,"Paseo de Montejo", "1234", "456", "Col. Europea", "Ciudad gotica", "Municipio de Merida", "Yucatan", "Mexico", "38294", "Por la cascada") hc=cfdi_concepto(h,"10", "PZA", "1", "Memoria USB", "123.45", "1234.50") cfdi_concepto_informacionaduanera(hc,"12345", "2011-01-01","Aduana nogales") hc=cfdi_concepto(h,"10", "PZA", "2", "Memoria USB", "123.45", "1234.50") cfdi_concepto_cuentapredial(hc,"3836463729385495") hc=cfdi_concepto(h,"10", "PZA", "3", "Memoria USB", "123.45", "1234.50") cfdi_concepto_parte(h,"10", "PZA", "3", "Parte 1", "123.45", "1234.50") cfdi_concepto_parte(h,"10", "PZA", "3", "Parte 2", "123.45", "1234.50") hc=cfdi_concepto(h,"10", "PZA", "4", "Memoria USB", "123.45", "1234.50") cfdi_concepto_ComplementoConcepto(hc) hc=cfdi_concepto(h,"10", "PZA", "5", "Memoria USB", "123.45", "1234.50") hi=cfdi_impuestos(h,"35.35","987.60") cfdi_impuestos_retencion(hi,"ISR","12.12") cfdi_impuestos_retencion(hi,"IVA","23.23") cfdi_impuestos_traslado(hi,"IVA", "987.60", "16.00") cfdi_impuestos_traslado(hi,"IEPS", "0.00", "0.00") messagebox("Cadena original:"+cfdi_cadena_original(h)) if(cfdi_sellar_pkcs8(h, rutaLlavePrivada, contrasena, rutaCertificado, rutaDestino,1)>0) * Ecodex lcparams="TransaccionID=123456789" lcparams=lcparams+";RFC=AAA010101AAA;Servidor=pruebas.ecodex.com.mx;Puerto=2044"+";Sellar=1" lnpac=1 * En modo DEMO pasamos la cadena vacia en el segundo parametro, para timbrar lo que hay en memoria if cfdi_timbrar(h,"",xml2,lnpac,lcparams)>0 messagebox("timbrado con exito") else messagebox("Error al timbrar: "+cfdi_error(h)) endif else messagebox("Error al sellar: "+cfdi_error(h)) endif clear dlls close all
* facturista.com - Archivo de inclusion para FoxPro #define hcfdi INTEGER #define scfdi STRING #define cfdires INTEGER #define hconcepto INTEGER #define himpuesto INTEGER #define hnode INTEGER function init_libfacturista() declare; string libfacturista_version in libfacturista declare; hcfdi cfdi_comprobante in libfacturista scfdi version, scfdi serie, scfdi folio, scfdi fecha,; scfdi formaDePago, scfdi subTotal, scfdi TipoCambio, scfdi Moneda, scfdi total,; scfdi metodoDePago, scfdi tipoDeComprobante, scfdi LugarExpedicion, scfdi NumCtaPago,; scfdi FolioFiscalOrig, scfdi SerieFolioFiscalOrig, scfdi FechaFolioFiscalOrig, scfdi MontoFolioFiscalOrig declare; hcfdi cfdi_emisor in libfacturista hcfdi pcfdi, scfdi rfc, scfdi nombre declare; cfdires cfdi_emisor_regimen in libfacturista hcfdi pcfdi, scfdi Regimen declare; cfdires cfdi_emisor_domicilio in libfacturista hcfdi pcfdi, scfdi calle, scfdi noExterior, scfdi noInterior,; scfdi colonia, scfdi localidad, scfdi municipio, scfdi estado, scfdi pais, scfdi codigoPostal, scfdi referencia declare; cfdires cfdi_emisor_expedido_en in libfacturista hcfdi pcfdi, scfdi calle, scfdi noExterior, scfdi noInterior,; scfdi colonia, scfdi localidad, scfdi municipio, scfdi estado, scfdi pais, scfdi codigoPostal, scfdi referencia declare; hcfdi cfdi_receptor in libfacturista hcfdi pcfdi, scfdi rfc, scfdi nombre declare; cfdires cfdi_receptor_domicilio in libfacturista hcfdi pcfdi, scfdi calle, scfdi noExterior, scfdi noInterior,; scfdi colonia, scfdi localidad, scfdi municipio, scfdi estado, scfdi pais, scfdi codigoPostal, scfdi referencia declare; himpuesto cfdi_impuestos in libfacturista hcfdi pcfdi, scfdi totalImpuestosRetenidos, scfdi totalImpuestosTrasladados declare; cfdires cfdi_impuestos_retencion in libfacturista hcfdi pcfdi, scfdi impuesto, scfdi importe declare; cfdires cfdi_impuestos_traslado in libfacturista hcfdi pcfdi, scfdi impuesto, scfdi importe, scfdi tasa declare; hconcepto cfdi_concepto in libfacturista hcfdi pcfdi, scfdi cantidad, scfdi unidad, scfdi noIdentificacion,; scfdi descripcion, scfdi valorUnitario, scfdi importe declare; cfdires cfdi_concepto_informacionaduanera in libfacturista hconcepto hc, scfdi numero, scfdi fecha, scfdi aduana declare; cfdires cfdi_concepto_cuentapredial in libfacturista hconcepto hc, scfdi numero declare; cfdires cfdi_concepto_parte in libfacturista hconcepto hc, scfdi cantidad, scfdi unidad, scfdi noIdentificacion,; scfdi descripcion, scfdi valorUnitario, scfdi importe declare; cfdires cfdi_concepto_ComplementoConcepto in libfacturista hconcepto hc declare; hcfdi cfdi_xml_cargar in libfacturista hcfdi h, scfdi rutaFuente declare; integer cfdi_xml_guardar in libfacturista hcfdi h, scfdi rutaDestino, integer decorar declare; integer cfdi_xml_validar in libfacturista hcfdi h, scfdi archivoXML, scfdi archivoXSD, scfdi parametros declare; integer cfdi_sellar_pkcs8 in libfacturista hcfdi h, scfdi rutaLlavePrivada, scfdi contrasena, scfdi rutaCertificado, scfdi rutaDestino, integer decorar declare; integer cfdi_sellar_pem in libfacturista hcfdi h, scfdi rutaLlavePrivada, scfdi contrasena, scfdi rutaCertificado, scfdi rutaDestino, integer decorar declare; integer cfdi_sellar in libfacturista hcfdi h, scfdi rutaLlavePrivada, scfdi rutaCertificado, scfdi rutaDestino, integer decorar declare; integer cfdi_timbrar in libfacturista hcfdi h, scfdi rutaFuente, scfdi rutaDestino, integer numeroPAC, scfdi parametros declare; integer cfdi_cancelar in libfacturista hcfdi h, integer numeroPAC, scfdi parametros declare; integer cfdi_recuperar in libfacturista hcfdi h, scfdi rutaDestino, integer numeroPAC, scfdi parametros declare; string cfdi_estado_cuenta in libfacturista hcfdi h, integer numeroPAC, scfdi parametros declare; STRING cfdi_error in libfacturista hcfdi h declare; STRING cfdi_resultado in libfacturista hcfdi h declare; STRING cfdi_xml_atributo in libfacturista hcfdi h, scfdi ruta, scfdi nombre declare; integer cfdi_xml_atributo_agregar in libfacturista hcfdi h, scfdi ruta, scfdi nombre, scfdi valor declare; integer cfdi_xml_atributo_borrar in libfacturista hcfdi h, scfdi ruta, scfdi nombre declare; STRING cfdi_cadena_original in libfacturista hcfdi h declare; STRING cfdi_cadena_original_sat in libfacturista hcfdi h declare; STRING cfdi_uuid in libfacturista hcfdi h declare; STRING cfdi_fecha_timbrado in libfacturista hcfdi h declare; STRING cfdi_numero_certificado_sat in libfacturista hcfdi h declare; STRING cfdi_sello_cfd in libfacturista hcfdi h declare; STRING cfdi_sello_sat in libfacturista hcfdi h declare; STRING cfdi_sello in libfacturista hcfdi h declare; STRING cfdi_fecha in libfacturista hcfdi h declare; STRING cfdi_numero_certificado in libfacturista hcfdi h, scfdi rutaCertificado *// Call with root node and "acp" for windows programs not handling utf8 declare; integer xml_caller_charset in libfacturista hnode h, scfdi charset *// Return the node handler for the path specified, if h==0 it will return the root node declare; hnode xml_node in libfacturista hnode h, scfdi path *// Return the number of children nodes declare; integer xml_node_children_number in libfacturista hnode h *// Return a node handler for the index-th child, it is 1-based declare; hnode xml_node_by_index in libfacturista hnode h, integer index *// Return the node name declare; string xml_node_name in libfacturista hnode h *// Return a node handler for the child with the asked name declare; hnode xml_node_by_name in libfacturista hnode h, scfdi name *// Return the value of the asked attribute, empty if it does not exist declare; string xml_node_attribute in libfacturista hnode h, scfdi name declare; integer cfdi_timbrar_lote in libfacturista hcfdi h, scfdi rutaFuente, scfdi rutaDestino, scfdi parametrosLote, integer numeroPAC, scfdi parametrosPAC declare; integer xml_insert in libfacturista integer h, string path, string XMLstring, integer indexFather, integer indexChildren declare; string xml_serialize in libfacturista integer h, integer decorate declare; integer cfdi_validar in libfacturista hcfdi h, scfdi archivoXML, scfdi parametros return .T. endfunc * Extendemos las funciones, usando el acceso a los nodos XML function cfdi_tfd_version(hcfdi) local lcruta lcruta="cfdi:Comprobante/cfdi:Complemento/tfd:TimbreFiscalDigital" return cfdi_xml_atributo(hcfdi,lcruta,"version") endfunc function cfdi_tfd_uuid(hcfdi) local lcruta lcruta="cfdi:Comprobante/cfdi:Complemento/tfd:TimbreFiscalDigital" return cfdi_xml_atributo(hcfdi,lcruta,"UUID") endfunc function cfdi_tfd_fecha(hcfdi) local lcruta lcruta="cfdi:Comprobante/cfdi:Complemento/tfd:TimbreFiscalDigital" return cfdi_xml_atributo(hcfdi,lcruta,"FechaTimbrado") endfunc function cfdi_tfd_sellocfd(hcfdi) local lcruta lcruta="cfdi:Comprobante/cfdi:Complemento/tfd:TimbreFiscalDigital" return cfdi_xml_atributo(hcfdi,lcruta,"selloCFD") endfunc function cfdi_tfd_nocertificadosat(hcfdi) local lcruta lcruta="cfdi:Comprobante/cfdi:Complemento/tfd:TimbreFiscalDigital" return cfdi_xml_atributo(hcfdi,lcruta,"noCertificadoSAT") endfunc