Jump to content
Mario Rodz

EXTRAER IMPUESTOS DE UN XML DE FACTURA ELECTRONICA

Recommended Posts

Buen dìa Expertos.

Solicito de sus valiosos apoyo para lo siguiente, resulta que recien estoy sumergièndome en esto de lo maravilloso de VBA y estoy creando una macro que me ayude a extraer los datos que para mi son importantes y que estan contenidos en un archivo xml de factura electrònica, la mayoria de los datos que me son importantes ya los pude extraer, pero me he detenido por el detalle que al querer extraer los datos de los impuestos trasladados como lo son IVA 0% y TUA la macro no me extrae los importes que el xml desglosa, en caso del Total IEPS e IVA 16% el incoveniente que tengo es que me extrae la informacion pero me la extrae mal pues me repite el importe de iva al 16% en la columna de Total IEPS y en la mayoria de los casos me repite el mismo importe de Iva 16% en varias celdas. mucho agradeceria el valioso apoyo de ustedes para indicarme que estoy haciendo mal y como puedo solucionarlo.

Adjunto libro excel y algunos archivos Xml para su mejor comprensiòn y apoyo de parte de ustedes.

De antemano Gracias.

Importar Datos CFDI XML.xlsm  

XML.rar

 

Share this post


Link to post
Share on other sites

Hola Estimado:

 

Ví tu código y es muy bueno, me pasé toda la noche estudiándolo, de hecho también a mí me sirvió para extraer los datos del CFDI. Le hice algunas modificaciones a tu archivo y a tu código, para el tema del TUA era necesario declarar otra variable. Espero te sirva.

Y de antemano gracias a tí, 

Saludos desde Celaya, Gto!

DE XML A EXCEL - copia.xlsm

Share this post


Link to post
Share on other sites
En miércoles, 24 de mayo de 2017 at 9:26 , JESUSMTZ_85 dijo:

Hola Estimado:

 

Ví tu código y es muy bueno, me pasé toda la noche estudiándolo, de hecho también a mí me sirvió para extraer los datos del CFDI. Le hice algunas modificaciones a tu archivo y a tu código, para el tema del TUA era necesario declarar otra variable. Espero te sirva.

Y de antemano gracias a tí, 

Saludos desde Celaya, Gto!

DE XML A EXCEL - copia.xlsm

Antes que nada, Muchas gracias por tomarte la molestia de leer el post, analizar el codigo y responder, analizare los cambios que realizaste al archivo y al codigo ya que me es de mucha utilidad para un proyecto de auditoria que tengo y aun mas con tus modificaciones.. gracias.

Saludos desde Chiapas.

Share this post


Link to post
Share on other sites

De igual forma podemos ponernos en contacto y si requieres algún cambio adicional, con gusto te puedo ayudar, mi correo es: xxx@xxx.xxx

 

Saludos, y buen inicio de semana :D

Edited by johnmpl
No se debe colocar información personal en los mensajes

Share this post


Link to post
Share on other sites
En 29/5/2017 at 10:48 , JESUSMTZ_85 dijo:

De igual forma podemos ponernos en contacto y si requieres algún cambio adicional, con gusto te puedo ayudar, mi correo es: xxx@xxx.xxx

 

Saludos, y buen inicio de semana :D

Muchas gracias.

Tomare en cuenta el medio de contacto jejeje :D

Share this post


Link to post
Share on other sites
Hace 2 horas, logroastur dijo:

Buenas @Mario Rodz

 

Chequea archivo

GetValuesCFDI

Un saludo

Muchas gracias por responder a mi consulta, Intente descargar el archivo que amablemente proporcionas pero no puedo descargarlo, al dar click en el enlace me indica que la pagina es bloqueada, ya configure mi cortafuegos, intente con otros exploradores, desinstale e Instale mi explorador y nada.

Por favor serias tan amable de volver a subir el archivo.

Gracias.

 

Share this post


Link to post
Share on other sites

Que tal Mario:

 

Bien podría ser algún virus o alguna de esas molestas paginas de publicidad. Te recomiendo que si necesitas algún requerimiento específico lo menciones y con gusto te ayudamos. El código que proporcionaste al principio es muy bueno y con las modificaciones que le hice a mí me funciona de maravilla.

 

Por las reglas del foro no podemos proporcionar correos ni medios de contacto pero con gusto aquí lo resolvemos.

Saludos!!!

Share this post


Link to post
Share on other sites
Guest
This topic is now closed to further replies.

INFORMACIÓN BÁSICA SOBRE PROTECCIÓN DE DATOS

Responsable: Sergio Andrés Celemín

Finalidad: Moderar y responder comentarios de usuarios. Recuerda que la información que facilites es pública, y los datos que incluyas los leerá cualquier visitante de esta web, así como el avatar que poseas.

Legitimación: Consentimiento del interesado.

Destinatarios: Hetzner Online GmbH.

Derechos: Puedes ejercitar en cualquier momento tus derechos de acceso,
rectificación, supresión, oposición y demás derechos legalmente establecidos a
través del email sergio@ayudaexcel.com.

Información adicional: Encontrarás más información en la política de privacidad.




  • Posts

    • Buenos días!   Amigos del foro quisiera solicitarles el apoyo para resolver el siguiente problema, necesito una macro que me permita copiar de una hoja a otra si se cumplen los siguientes criterios: Si el valor en la columna G de la hoja Diario es mayor que cero, se copien los datos de Diario(hasta la ultima celda con datos) a la hoja BD pegando los datos en la ultima celda vacía de BD. Al copiar aquellos valores mayores a cero en la hoja BD quitarlos de la hoja Diario, solamente dejando los datos que contengan cero o se encuentren vacios en la columna G de la hoja Diario. Lo estuve intentando de la siguiente manera: Sub copiar2() Set J1 = Sheets("Diario") Set J2 = Sheets("BD") j = J2.Range("A" & Rows.Count).End(xlUp).Row + 1 For i = 3 To 79 If J1.Cells(i, "G") > 0 Then J2.Cells(i, "A") = J1.Cells(i, "A") J2.Cells(i, "B") = J1.Cells(i, "B") J2.Cells(i, "C") = J1.Cells(i, "C") J2.Cells(i, "D") = J1.Cells(i, "D") J2.Cells(i, "E") = J1.Cells(i, "E") J2.Cells(i, "F") = J1.Cells(i, "F") J2.Cells(i, "G") = J1.Cells(i, "G") J2.Cells(i, "H") = J1.Cells(i, "H") J2.Cells(i, "I") = J1.Cells(i, "I") J2.Cells(i, "J") = J1.Cells(i, "J") J2.Cells(i, "K") = J1.Cells(i, "K") J2.Cells(i, "L") = J1.Cells(i, "L") J2.Cells(i, "M") = J1.Cells(i, "M") J2.Cells(i, "N") = J1.Cells(i, "N") End If Next MsgBox "Valores copiados" End Sub Saludos JB Consulta copiado.xlsm
    • Hola! También puedes poner =Valor(A2), luego copiar y pegar valores
    • Cielos no se que decir, siempre me sorprenden; ambos casos son buenos. Aun no termino de analizar el código bien, pero en cuanto termine les haré saber de antemano muchas gracias.
    • Si te vas al explorador del proyecto VBA, en el árbol de módulos, puedes ver la hoja "aux"  Te adjunto otro método, trabajando con una matriz y como te lo comenté al inicio, trasladando los registros visibles   Saludos! Importar datos de otro libro.zip
  • Recently Browsing

    No registered users viewing this page.

×
×
  • Create New...

Important Information

Privacy Policy