Clipper/FiveWin - mostrar otra base en caja ??

 
Vista:

mostrar otra base en caja ??

Publicado por marcela molina (22 intervenciones) el 18/12/2006 13:43:14
tengo una caja de dialogo.con tres pestañas

REDEFINE DIALOG oDlg RESOURCE "PROPIE_FOLDER" TITLE "PROPIEDADES"
REDEFINE FOLDER oFld ID 101 OF oDlg ;
PROMPT "Datos Generales Propiedad" , "DATOS LEGALES", "MOSTRAR OTRA BASE DE DATOS"------> EN ESTA TERCERA PESTAñA QUIERO MOSTRAR OTRA BASE DE DATOS.

PESTAÑA NUMERO 1

REDEFINE GET oDbf:FECHAING PICTURE "@D" ID 20 OF oFld:aDialogs[ 1 ]
REDEFINE GET oDbf:FECHAVTO PICTURE "@D" ID 21 OF oFld:aDialogs[ 1 ]

PESTAÑA NUMERO 2

REDEFINE GET oDbf:MONTOCV PICTURE "@ 99,999,999.00" ID 32 OF oFld:aDialogs[2]
REDEFINE GET oDbf:MONTOCC PICTURE "@ 99,999,999.00" ID 37 OF oFld:aDialogs[2]


PESTAÑA NUMERO 3

ACA QUIERO MOSTRAR OTRA BASE DE DATOS. QUIERO DARLE CLICK A LA PESTAÑA Y QUE ME MUESTRE UN BROWSE CON OTRA BASE DE DATOS EN DONDE YO PUEDA AGREGAR ,MODIFICAR ELIMINAR Y LISTAR ITEMS.


ESPERO HABERME EXPRESADO BIEN .AHORA/.
AGRADECERE TODA LA AYUDA.MUCHAS 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

RE:mostrar otra base en caja ??

Publicado por Ricardo Ramírez E. (201 intervenciones) el 19/12/2006 11:06:37
Marcela...

suponiendo que abres asi las tablas--

use dbf01
database oDbf

use dbf02
database oDbf2

use dbf03
database oDbf3

PESTAÑA NUMERO 1

REDEFINE GET oDbf:FECHAING PICTURE "@D" ID 20 OF oFld:aDialogs[ 1 ]
REDEFINE GET oDbf:FECHAVTO PICTURE "@D" ID 21 OF oFld:aDialogs[ 1 ]

PESTAÑA NUMERO 2

REDEFINE GET oDbf2:campo1 PICTURE "@ 99,999,999.00" ID 32 OF oFld:aDialogs[2]
REDEFINE GET oDbf2:campo2 PICTURE "@ 99,999,999.00" ID 37 OF oFld:aDialogs[2]

PESTAÑA NUMERO 3
REDEFINE GET oDbf3:campoa PICTURE "@ 99,999,999.00" ID 32 OF oFld:aDialogs[3]
REDEFINE GET oDbf3:campob PICTURE "@ 99,999,999.00" ID 37 OF oFld:aDialogs[3]

// o si lo deseas en un browse (... para la TSBROWSE de Manuel Mercado)

REDEFINE BROWSE ::oBrw ID XXX OF oFld:aDialogs[3]
ALIAS (oDbf3:cAlias)

::oBrw:SetOdbf(oDbf3)

ADD COLUMN TO ::oBrw
HEADER "XXXX." ;
DATA {|| odbf3:campoa} ;
SIZE 40 ;

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