facturista.com - Foros de Factura Electrónica (Comprobante Fiscal Digital por Internet)

Venta de timbres y programas para Generar, Sellar y Timbrar Factura Electrónica (CFDI) en México
Fecha actual Jue Mar 28, 2024 12:45 pm

Todos los horarios son UTC - 6 horas




Nuevo tema Responder al tema  [ 1 mensaje ] 
Autor Mensaje
NotaPublicado: Mié Nov 27, 2013 11:38 am 
Desconectado

Registrado: Sab Mar 30, 2013 1:04 am
Mensajes: 47
Ejemplo en FoxPro

Código:
function recorrerConceptos(h)
local hn, hc, pnode, i, lc

   * Si esta en modo multihilo de la DLL, deberá usar
   * hn = cfdi_raiz(h)
   
   hn=xml_node(0,"")
   if hn != 0
      hc=xml_node(hn,"cfdi:Comprobante/cfdi:Conceptos")
      for i=1 to xml_node_children_number(hc)
         pnode=xml_node_by_index(hc,i)
         if pnode != 0
            lc = xml_node_attribute(pnode,"noIdentificacion")
            lc = xml_node_attribute(pnode,"descripcion")
            lc = xml_node_attribute(pnode,"cantidad")
            lc = xml_node_attribute(pnode,"unidad")
            lc = xml_node_attribute(pnode,"valorUnitario")
            lc = xml_node_attribute(pnode,"importe")
         endif
      endfor
   endif

return .T.

endfunc

function recorrerImpuestos(h)
local hn, hc, pnode, i, lc

   * Si esta en modo multihilo de la DLL, deberá usar
   * hn = cfdi_raiz(h)

   hn=xml_node(0,"")
   if hn != 0
      hc=xml_node(hn,"cfdi:Comprobante/cfdi:Impuestos/cfdi:Retenciones")
      for i=1 to xml_node_children_number(hc)
         pnode=xml_node_by_index(hc,i)
         if pnode != 0
            lc = xml_node_attribute(pnode,"impuesto")
            lc = xml_node_attribute(pnode,"importe")
         endif
      endfor

      hc=xml_node(hn,"cfdi:Comprobante/cfdi:Impuestos/cfdi:Traslados")
      for i=1 to xml_node_children_number(hc)
         pnode=xml_node_by_index(hc,i)
         if pnode != 0
            lc = xml_node_attribute(pnode,"impuesto")
            lc = xml_node_attribute(pnode,"tasa")
            lc = xml_node_attribute(pnode,"importe")
         endif
      endfor
   endif

return .T.

endfunc


Arriba
 Perfil  
 
Mostrar mensajes previos:  Ordenar por  
Nuevo tema Responder al tema  [ 1 mensaje ] 

Todos los horarios son UTC - 6 horas


¿Quién está conectado?

Usuarios navegando por este Foro: No hay usuarios registrados visitando el Foro y 11 invitados


No puedes abrir nuevos temas en este Foro
No puedes responder a temas en este Foro
No puedes editar tus mensajes en este Foro
No puedes borrar tus mensajes en este Foro
No puedes enviar adjuntos en este Foro

Buscar:
Saltar a:  
cron
Powered by phpBB® Forum Software © phpBB Group
Traducción al Español Mexicano por nextgen en colaboración con phpbb-es.com