** NORMAS DEL FORO **
Inicio del foro Inicio del foro > Access y VBA > Access y VBA
  Mensajes nuevos Mensajes nuevos RSS - Extraer Datos de XML y Volcarlos a una Tabla
  Preguntas frecuentes Preguntas frecuentes  Buscar en el foro   Eventos   Registro Registro  Iniciar sesion Iniciar sesion

Tema cerradoExtraer Datos de XML y Volcarlos a una Tabla

 Responder Responder Página  12>
Autor
Mensaje Invertir el orden de clasificación
RUGALB Ver desplegable
Asiduo
Asiduo
Avatar

Unido: 21/Julio/2006
Localización: Mexico
Estado: Sin conexión
Puntos: 432
Enlace directo a este mensaje Tema: Extraer Datos de XML y Volcarlos a una Tabla
    Enviado: 30/Agosto/2022 a las 20:38
Si me hacen favor, se puede cerrar el hilo. muchas gracias a todos.
Saludos desde Toluca, Estado de Mexico "El pesimista se queja del viento, el optimista espera que cambie, el realista ajusta las velas"(William Ward)
Arriba
emiliove Ver desplegable
Administrador
Administrador


Unido: 16/Junio/2009
Localización: Mexico
Estado: Sin conexión
Puntos: 5581
Enlace directo a este mensaje Enviado: 30/Agosto/2022 a las 16:14
Podemos cerrar ya.
Arriba
RUGALB Ver desplegable
Asiduo
Asiduo
Avatar

Unido: 21/Julio/2006
Localización: Mexico
Estado: Sin conexión
Puntos: 432
Enlace directo a este mensaje Enviado: 30/Agosto/2022 a las 04:49
Curiosamente al tomar el screenshot solo capturó la ventana de "Extrayendo... pero se hizo invisible el FormularioPinch 

Editado por RUGALB - 30/Agosto/2022 a las 04:50
Saludos desde Toluca, Estado de Mexico "El pesimista se queja del viento, el optimista espera que cambie, el realista ajusta las velas"(William Ward)
Arriba
RUGALB Ver desplegable
Asiduo
Asiduo
Avatar

Unido: 21/Julio/2006
Localización: Mexico
Estado: Sin conexión
Puntos: 432
Enlace directo a este mensaje Enviado: 30/Agosto/2022 a las 04:46
Hola Bacterio!

Quiero Pensar que el programa que utilicé para grabar la pantalla se come algunos Frames, si se muestra pero en el video no se alcanza a apreciar. dejo una captura de pantalla.Smile


Saludos desde Toluca, Estado de Mexico "El pesimista se queja del viento, el optimista espera que cambie, el realista ajusta las velas"(William Ward)
Arriba
Bacterio Ver desplegable
Moderador
Moderador
Avatar

Unido: 16/Octubre/2004
Localización: España
Estado: Sin conexión
Puntos: 2105
Enlace directo a este mensaje Enviado: 29/Agosto/2022 a las 10:53
Me ha llamado la atención que al generar el PDF no aparece el mensaje "Extrayendo ... al archivo ..."

¿Cómo evitas que aparezca ese mensaje?
Arriba
RUGALB Ver desplegable
Asiduo
Asiduo
Avatar

Unido: 21/Julio/2006
Localización: Mexico
Estado: Sin conexión
Puntos: 432
Enlace directo a este mensaje Enviado: 26/Agosto/2022 a las 05:56
Dejo un clip de Video de como quedo funcionando la Aplicación.


¡Mil Gracias a Todos!

Saludos.Smile
Saludos desde Toluca, Estado de Mexico "El pesimista se queja del viento, el optimista espera que cambie, el realista ajusta las velas"(William Ward)
Arriba
RUGALB Ver desplegable
Asiduo
Asiduo
Avatar

Unido: 21/Julio/2006
Localización: Mexico
Estado: Sin conexión
Puntos: 432
Enlace directo a este mensaje Enviado: 26/Agosto/2022 a las 04:32
Ofrezco una disculpa por dejar el hilo abandonado.

Agradezco todas las respuestas brindadas.
Bacterio, prometo indagar más sobre este tema del Tratamiento de XML desde VBA, me brindaste muy buenas bases.

solo tuve que cambiar lo siguiente en tu código:
Agregar el namespace:
xmlns:tfd='http://www.sat.gob.mx/TimbreFiscalDigital' "
y cambie esto:
 Set ndComplemento_TimbreFiscalDigital = ndComplemento.selectSingleNode("cfdi:TimbreFiscalDigital")
por esto:
 Set ndComplemento_TimbreFiscalDigital = ndComplemento.selectSingleNode("tfd:TimbreFiscalDigital")
  para que no causara conflicto con los XML a importar.

Mi gratidud y mis Saludos para todos.
Saludos desde Toluca, Estado de Mexico "El pesimista se queja del viento, el optimista espera que cambie, el realista ajusta las velas"(William Ward)
Arriba
RUGALB Ver desplegable
Asiduo
Asiduo
Avatar

Unido: 21/Julio/2006
Localización: Mexico
Estado: Sin conexión
Puntos: 432
Enlace directo a este mensaje Enviado: 26/Agosto/2022 a las 04:26
Entiendo, no veía todo el panorama jeje.

Saludos cordiales
Saludos desde Toluca, Estado de Mexico "El pesimista se queja del viento, el optimista espera que cambie, el realista ajusta las velas"(William Ward)
Arriba
emiliove Ver desplegable
Administrador
Administrador


Unido: 16/Junio/2009
Localización: Mexico
Estado: Sin conexión
Puntos: 5581
Enlace directo a este mensaje Enviado: 25/Agosto/2022 a las 13:49
Me refiero a la forma que crearon el Xml, los nodos hijos que no tienen datos pueden estar o no estar, en ambos casos el xml es válido y si cumple con los requisitos de nodos obligatorios del xsl también es correcto para el proveedor del timbrado.
Es solo la forma que crearon el xml, en factura de comisiones o créditos bancarias, en servicios de agua y en comprobantes de pago tenía el problema claro que en comprobantes de pago me falta agregar algunos nodos hijos extras.

Saludos.
Arriba
RUGALB Ver desplegable
Asiduo
Asiduo
Avatar

Unido: 21/Julio/2006
Localización: Mexico
Estado: Sin conexión
Puntos: 432
Enlace directo a este mensaje Enviado: 25/Agosto/2022 a las 00:51
Emilio, ¿haces alusión a cuando por ejemplo son Facturas Ventas al Público en General?

lo pregunto por que No había probado con algun XML de esa naturaleza...Shocked 


Saludos a todos.
Saludos desde Toluca, Estado de Mexico "El pesimista se queja del viento, el optimista espera que cambie, el realista ajusta las velas"(William Ward)
Arriba
emiliove Ver desplegable
Administrador
Administrador


Unido: 16/Junio/2009
Localización: Mexico
Estado: Sin conexión
Puntos: 5581
Enlace directo a este mensaje Enviado: 24/Agosto/2022 a las 22:08
Mucho más fácil, si detectaba que ndConceptoTraslado se hacía nothing cuando no tenía nodos y entraba a IsMissing(strMensajeError) pero batelle en entender por qué.

Muchas gracias.
Arriba
Bacterio Ver desplegable
Moderador
Moderador
Avatar

Unido: 16/Octubre/2004
Localización: España
Estado: Sin conexión
Puntos: 2105
Enlace directo a este mensaje Enviado: 24/Agosto/2022 a las 21:27
Verificando si SelectSingleNode ha devuelto Nothing

Set ndConceptoTraslado = ndConcepto.selectSingleNode("cfdi:Impuestos/cfdi:Traslados/cfdi:Traslado")
if not ndConceptoTraslado is nothing then
For Each att In ndConceptoTraslado.Attributes
Debug.Print , ndConcepto.baseName & "_" & ndConceptoTraslado.baseName & "_" & AttributeNameToFieldName(att.Name), att.Value
Next
End If
Arriba
emiliove Ver desplegable
Administrador
Administrador


Unido: 16/Junio/2009
Localización: Mexico
Estado: Sin conexión
Puntos: 5581
Enlace directo a este mensaje Enviado: 24/Agosto/2022 a las 18:35
Me respondo con un Length > 0 reviso primero que existan los nodos y procedo a recorrerlos.

Saludos.
Arriba
emiliove Ver desplegable
Administrador
Administrador


Unido: 16/Junio/2009
Localización: Mexico
Estado: Sin conexión
Puntos: 5581
Enlace directo a este mensaje Enviado: 24/Agosto/2022 a las 17:49
Una pregunta Bacterio, si por ejemplo tenemos en el nodo cfdi:Concepto valor en los atributos
pero ya no existen los nodos subsiguientes cfdi:Impuestos/cfdi:Traslados/cfdi:Traslado me marca Variable de objeto o bloque with no establecido y no se me ocurre como evitar, que recorra esos nodos. Alguna idea.

Gracias.

Arriba
RUGALB Ver desplegable
Asiduo
Asiduo
Avatar

Unido: 21/Julio/2006
Localización: Mexico
Estado: Sin conexión
Puntos: 432
Enlace directo a este mensaje Enviado: 18/Agosto/2022 a las 02:08
Hola Emilio, en relidad requiero toda la información disponible para almacenarla temporalmente, esto solo es el primer paso de un proceso para despues Generar un PDF  (Factura Fiscal), pero se necesitan tratar esos datos antes de hacer la conversión, una vez generado el PDF ya no es necesaria la información y borro los registros de la tabla para que quede lista para recibir los datos de otro fichero. Por otra parte, tienes razón, voy a crear la otra tabla para almacenar los datos "fijos", para no tener tanto campo amontonado e inecesario en la tabla 1Dead

Gracias por tus comentarios!
Saludos desde Toluca, Estado de Mexico "El pesimista se queja del viento, el optimista espera que cambie, el realista ajusta las velas"(William Ward)
Arriba
 Responder Responder Página  12>
  Compartir tema   

Ir al foro Permisos de foro Ver desplegable