Power Builder - XML

 
Vista:
sin imagen de perfil

XML

Publicado por GUARDAR VARIOS REGISTRO XML (67 intervenciones) el 02/06/2015 18:05:52
Buenos días queridos foristas,
tengo la siguiente consulta estoy incursionando con power builder 12.5, debido a que tenia que exportar e importar unos archivos por tipo xml.
esto lo realice por medio de plantillas de xml las cuales las organice de acuerdo a el xml que se importa o exporta
el problema que tengo es con la importación, cuando intento importar solo me permite uno a la vez, de que forma puedo importar varios como tipo lista y como los podria automatizar para guardarlos en una base de datos.
Agradezco la información gracias.
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder
sin imagen de perfil
Val: 37
Ha mantenido su posición en Power Builder (en relación al último mes)
Gráfica de Power Builder

XML

Publicado por Jeinner Hidalgo (646 intervenciones) el 03/06/2015 22:33:41
Si mal no recuerdo, puedes crear un DW con la estructura del XML y hacerle un ImportFile a este.

Cómo lo estás haciendo?

Saludos.
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar
sin imagen de perfil

XML

Publicado por MARCOS (67 intervenciones) el 03/06/2015 22:44:14
Hola Jeiner si ya eso lo realice el problema es que cuando capturo solo me da la opcion de un solo archivo, yo quiero saber como hacerlo para varios al mismo tiempo un ejemplo tengo en la carpeta 5 archivos xml1, xm2, xm3, xml...
que los púeda seleccionar y cargar a la dw y no uno por uno:
el codigo que tengo es para la busqueda es:
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
int li_ret
string ls_archivo,directorio,reemplazo
long longitud,posicion
 
if f_parametro_x_clave_consulta('RIA25',LS_CAMINO)=FALSE THEN RETURN  //Ruta importa a25
ls_camino = ls_camino+'\EXPAuto.XML'
//llama la funcion estandar para abrir archivos con extension PSR
li_ret = GetFileSaveName("Selecione el Archivo Almacenado", &
	ls_camino,ls_archivo,"XML","Archivos de texto (*.XML),*.XML")
 
If li_ret = 0 Then
	Return
End If
 
//Almacena el archivo seleccionado
sle_camino.text = ls_camino



y para importar es:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
long ret,contador,registro_num,numero_servicio_num,contador2
 
string registro,numero_servicio,paciente,codigo_a25,concepto,servicio
 
setPointer(hourglass!)
 
ls_camino=sle_camino.text
if trim(ls_camino)='' then
	messagebox('Error...', 'Seleccione el archivo a importar')
   return
End If
 
 
dw_1.Reset()
ret=dw_1.ImportFile(XML!,ls_camino)
if ret <= 0 then
	Messagebox('Error...','Importando el archivo')
	Return
End If
 
contador = dw_1.RowCount()
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar