Como Obtener el Contenido de Fila en Xbrowse con Array "OK"

Posts: 719

Joined: Fri May 12, 2017 02:50 PM

Como Obtener el Contenido de Fila en Xbrowse con Array "OK"

Posted: Thu Oct 03, 2019 05:10 PM

Hola Amigos

Necesito obtener datos de una fila seleccionada en Xbrowse con Array, para enviarlos a una Function.
Ejemplo: Selecciona la Fila 3 del Xbrowse y necesito enviar el Contenido de la Columna 1 " Fec.Consulta" a la function para imprimir.

Desde ya muchas gracias.

Muchos Saludos
Antonio

Codigo:

Code (fw): Select all Collapse

    @ 20,10 XBROWSE oBrw4 SIZE -10,-35 PIXEL OF oDlg4 DATASOURCE aFichas ;     // aFichas Array con 2 Columnas
            HEADERS 'Fec.Consulta','Diagnóstico';
            COLUMNS 1, 2;
            PICTURES '@d','@!';
            CELL LINES AUTOSORT NOBORDER;
            oBrw4:nMarqueeStyle := MARQSTYLE_HIGHLWIN7
            oBrw4:nColDividerStyle := LINESTYLE_INSET
            oBrw4:nRowDividerStyle := LINESTYLE_INSET
            oBrw4:bClrHeader := {|| { nRGB(140, 0, 0), nRGB( 231, 242, 255 ), } }
            oBrw4:nOpacity    := 230


            oBrw4:bClrStd             := {|| { nRGB(  0,  0,  0), nRGB(255,248,220) } }
            oBrw4:bClrSelFocus        := {|| { nRGB(  255,  255,  255), nRGB(102, 178, 255) } }
            oBrw4:lFooter := .t.
            oBrw4:lHScroll := .f.
             oBrw4:lIncrFilter      := .f.
             oBrw4:lSeekWild        := .F.                   
            oBrw4:SetStyle( 2018)
            oBrw4:nColorPen := CLR_RED


            oBrw4:CreateFromCode()

            @ 253,90 BTNBMP SIZE 30, 30 PROMPT "FICHA"  OF oDlg4 PIXEL 2007 Resource "#8068"  FONT oFont11 oGroup FLAT ;
                            ToolTip  "CONSULTA FICHA MEDICA";
                            ACTION Imprime_Ficha(nFicha,Ape,Nom)      //   <====== Aqui debo Mandar la aCols[1] Fecha a la Function Imprime()

                        @ 253,180 BTNBMP SIZE 30, 30 PROMPT "SALIR"  OF oDlg4 PIXEL 2007 Resource "#8101"  FONT oFont11 oGroup FLAT ;
                            ToolTip  "SALIR DEL SISTEMA";
                            ACTION oDlg4:End()


   ACTIVATE DIALOG oDlg4 CENTERED

FWH 22.10 - HARBOUR - PELLES C

acuellar

Posts: 1710

Joined: Tue Oct 28, 2008 06:26 PM

Re: Como Obtener el Contenido de Fila en Xbrowse con Array

Posted: Thu Oct 03, 2019 06:05 PM

Antonio intenta con:

Code (fw): Select all Collapse

aFichas[ oBrw4:nArrayAt ][1]

Saludos,

Adhemar C.

remtec

Posts: 719

Joined: Fri May 12, 2017 02:50 PM

Re: Como Obtener el Contenido de Fila en Xbrowse con Array

Posted: Thu Oct 03, 2019 06:12 PM

Hola Adhemar C

Muchas gracias por tu ayuda, funciono PERFECTO.

Muchos saludos

Antonio

FWH 22.10 - HARBOUR - PELLES C

cnavarro

Posts: 6755

Joined: Wed Feb 15, 2012 08:25 PM

Re: Como Obtener el Contenido de Fila en Xbrowse con Array "OK"

Posted: Fri Oct 04, 2019 06:33 PM

Code (fw): Select all Collapse

oBrw:aRow[ 1 ]

Cristobal Navarro

Hay dos tipos de personas: las que te hacen perder el tiempo y las que te hacen perder la noción del tiempo

El secreto de la felicidad no está en hacer lo que te gusta, sino en que te guste lo que haces

remtec

Posts: 719

Joined: Fri May 12, 2017 02:50 PM

Re: Como Obtener el Contenido de Fila en Xbrowse con Array "OK"

Posted: Fri Oct 04, 2019 08:43 PM

Hola CNavarro

Muchas gracias por tu ayuda, ambas soluciones funcionan muy bien.

Muchos Saludos.

Antonio

FWH 22.10 - HARBOUR - PELLES C

FiveTech Support Forums