topic-21512

ruben Dario

Posts: 1078

Joined: Thu Sep 27, 2007 03:47 PM

Alguine tiene ejemplo TCBrowse con ADO
Posted: Tue May 10, 2011 02:01 PM

Alguien tiene un ejemplo TCBrowse con ADO.

Ruben Dario Gonzalez
Cali-Colombia
rubendariogd@hotmail.com - rubendariogd@gmail.com

ricardog

Posts: 158

Joined: Tue Oct 11, 2005 03:10 PM

Re: Alguine tiene ejemplo TCBrowse con ADO
Posted: Tue May 10, 2011 07:50 PM

Espero que este ejemplo te sirva:

Code (fw): Select all Collapse

@ 0,0 LISTBOX oBrw FIELDS ;
                     AllTrim(oD03:Fields("Apellidos"):Value)+" "+AllTrim( oD03:Fields("Nombre"):Value),;
                    Tran( oD03:Fields("gPaciente"):Value,"#######" ),;
                    IF(!Empty(oD03:Fields("Telefono1"):Value),;
                                                                           Tran(oD03:Fields("Telefono1"):Value,"@R (XXX)-XXXX-XXXX"),"FALTA REG."),;
                    IF(Empty(oD03:Fields("Edad"):Value),;
                                                                           If(Empty(oD03:Fields("Meses"):Value),"FALTA REG.",;
                    Tran(oD03:Fields("Meses"):Value,"99")+" MESES"),;
                    Tran(oD03:Fields("Edad"):Value,"99")+" AÑOS"),;
                     IF(oD03:Fields("Sexo"):Value == "M","MASCULINO","FEMENINO");
                     Sizes 480,75,100,100,100;
                     HEADERS "Nombre","Codigo","Telefono","Edad","Sexo" PIXEL SIZE 428,282 OF oDlg 

                     oBrw:cAlias:="ARRAY"
                     oBrw:nLineStyle := 6
                     oBrw:nClrPane:={||IIF(oD03:AbsolutePosition%2==0,AZULES,BLANCOS)}
                     oBrw:bLogicLen = { || oD03:RecordCount }
                     oBrw:bGoTop    = { || oD03:MoveFirst() }
                     oBrw:bGoBottom = { || oD03:MoveLast() }
                    oBrw:bSkip     = { | nSkip | Skipper( oD03, nSkip ) }

Saludos

Ricardo E. Guardado F.

FiveTech Support Forums

Continue the discussion