Power Builder - Comparar 2 Dw en una ventana

 
Vista:
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

Comparar 2 Dw en una ventana

Publicado por Celeste E. (231 intervenciones) el 21/10/2014 15:42:09
amigos, tengo una ventana con dos dw (dw_1 tipo grid) en el que se muestran todos los datos de la tabla "bienes" y otro dw de nombre (dw_importa) tipo external - grid) en donde importo de excel todos los bienes conforme los muestro o filtro en el dw_1.

Bueno, quiero que al dar clic en un botón (cd_comparar) seleccione todos los registros del dw_importa que existen en el dw_1 y los que no están los deje sin seleccionar o los pinte de color como por ejemplo de color amarillo; como puedo hacer esto.

deseo hacerlo, por que no pretendo almacenarlos en la Base de datos, solo quiero compararlos para ver si es que son los mismos o no.

Espero su gran ayuda chicos, es urgente.
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

Comparar 2 Dw en una ventana

Publicado por Celeste E. (231 intervenciones) el 22/10/2014 17:07:08
Hola, bueno no obtuve respuesta pero al fin se logro de esta forma

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
Long ll_rtn, i
String ls_codigo
For i = 1 to dw_1.RowCount()
ll_rtn = 0
ls_codigo = dw_1.GetItemString(i,"tipo_cuenta")
ll_rtn = dw_importa.Find("tipo_cuenta='"+ls_codigo+"'",1,dw_importa.RowCount())
If ll_rtn > 0 Then
// pasar el cliente a dw_comparacion 
dw_1.ScrollToRow(i)
dw_1.selectrow(i,True)
End If
Next
 
/////////////////seleccion en el 2do dw
Long ll_rtn1, ii
String ls_codigo1
For ii = 1 to dw_importa.RowCount()
ll_rtn1 = 0
ls_codigo1 = dw_importa.GetItemString(ii,"tipo_cuenta")
ll_rtn1 = dw_1.Find("tipo_cuenta='"+ls_codigo1+"'",1,dw_1.RowCount())
If ll_rtn1 > 0 Then
// pasar el cliente a dw_comparacion 
dw_importa.ScrollToRow(ii)
dw_importa.selectrow(ii,True)
End If
Next

Perfecto funciona

Gracias de todos modos.
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
Imágen de perfil de xve

Comparar 2 Dw en una ventana

Publicado por xve (18 intervenciones) el 22/10/2014 20:15:26
Gracias por compartirlo Celeste!!!
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