FiveTech Software tech support forums

Posted: **Thu Mar 01, 2007 1:35 pm**

Gente,

Necesito hacer esto:

Realizar una consulta en mysql ( ya esta hecho, uso Eagle );
Devuelva "datos" o no que se muestre un browse con sus columnas, encabezados etc ( o sea el esqueleto del browse ).

¿Cómo lo hago ?

Actualmente cuando ese SELECT no trae "datos"
el programa se me tilda. por lo que ahora hago lo siguiente,
pero queda FEO porque en el lugar del browse queda
un rectangulo sin nada.:

Code: Select all

      // cUltimoCampoClave != nil si la consulta trajo datos
   
      IF cUltimoCampoclave != NIL

         REDEFINE LISTBOX oBrw ;
            FIELDS  oQuery:FieldGet( 1 ) , oQuery:FieldGet( 2 ) ;
            HEADERS "Código particular", "Descripción artículo" ;
            sizes 105, 140 ;
            ID 203;
            OF oFolder:aDialogs[2];
            UPDATE;
            colors CLR_BLACK, rgb( 230, 235, 150 )

            ...

Alguna Idea?

Gracias.

Posted: **Sat Mar 03, 2007 1:08 pm**

Hola Cacho,

Desaparesiste mem!!!!

Bueno, aca va lo q buscas :

1. Definis _ y uso lFlag (al inicio del prg en .f., en el ON INIT lFlag:= .T. :

bFields := {|nAt| nAt:= oBrw:nAt,;
if ( lFlag,;
Array(4),;
{ STR( oRs21:Get('codcli'),6,0 ),;
oRs21:Get('nombre'),;
oRs21:Get('domici'),;
" " } ) }
aHeaders := { 'Cod.', 'Nombre', 'Domicilio', " " }
aTamanio := { 50,200,180,,15 }
aJusto := { .T.,.F.,.F.,.F. }

2. y despues the magic :

TWBrowse():lHScroll:= .F.
@ 1.9, 0 LISTBOX oBrw;
FIELDS ;
SIZE 587, 250;
OF oWndChild;
FONT oFont;
CURSOR oHand;
COLOR CLR_BLACK, RGB( 255, 255, 235) ;
UPDATE

oBrw:bLine := bFields
oBrw:aHeaders := aHeaders
oBrw:aColSizes:= aTamanio

oBrw:bLogicLen := { || oRs21:oRs:RecordCount }
oBrw:bGoTop := { || oRs21:oRs:MoveFirst() }
oBrw:bGoBottom := { || oRs21:oRs:MoveLast() }
oBrw:bSkip := { | nSkip | ADOSkipper( oRs21:oRs, nSkip ) }
oBrw:cAlias := "ARRAY"

LISTO!!!

Espero te sirva esta para ADO() pero si le ajustas para eagle1 te sirve igual.

un abrazo.

Posted: **Sat Mar 03, 2007 1:10 pm**

Gracias.

FiveTech Software tech support forums

¿Cómo redefino un twbrowse sin registros?

¿Cómo redefino un twbrowse sin registros?