Como obtener valor de una celda Xbrowse “SOLUCIONADO”

Posts: 719

Joined: Fri May 12, 2017 02:50 PM

Como obtener valor de una celda Xbrowse “SOLUCIONADO”
Posted: Fri May 06, 2022 11:18 PM

Amigos

Muy buenas tardes.

Necesito poder obtener el valor de una celda del xbrowse, la una acción de un botón.

El xbrowse muestra un listado de ingresos de caja, la idea es que se pueda actualizar cualquier ingreso, presionando un botón destinado para actualizar.

Muchos Saludos

Antonio

Codigo:

Code (fw): Select all Collapse

                                ****** Boton destinado para actualiza la fila seleccionada en xbrowse
                               
                REDEFINE BTNBMP ID 4009  OF oDlg  PROMPT "MODIFICA" TOOLTIP "MODIFICA INGRESO"  FONT oFont1     ADJUST 2007;
              ACTION (MsgStop("FOLIO CAJA : "+[oIngre:nArrayAt][nroCol])           // Aqui Boton Acepta


             ** MUESTRA INGRESOS DE CAJAS
             REDEFINE XBROWSE oIngre  DATASOURCE ALIAS(2) ;
                             COLUMNS;
                                 "Fol_caj",;
                             OemToAnsi("Nom_pac"),;
                                 "Tip_pag",;
                                 "Tip_ate",;
                                 "Tot_gen",;
                                 "Med_tra",;
                                 "Cod_dig",;
                                 "Hor_dig";
                                HEADERS;
                             "Folio Caja",;
                             "Nombre de Paciente",;
                                 "T. Pago",;
                                 "T. Aten",;
                                 "Valor Total",;
                                 "Med.Tra.",;
                                 "Digita",;
                                 "H.Digita";
                                 PICTURES "99999999","@!","@!","@!","9999,999,999","@!","@!","@!";
                                    ID 104 OF oDlg;
                                    FONT oFont1;
                                  FOOTERS LINES CELL

                                 oIngre:aCols[1]:bClrHeader := { || { CLR_HRED,CLR_WHITE } }
                                 oIngre:aCols[3]:bClrHeader := { || { CLR_HRED,CLR_WHITE } }
                                 oIngre:aCols[7]:bClrHeader := { || { CLR_HRED,CLR_WHITE } }

                                 oIngre:nFooterLines:=1

                                 oIngre:aCols[5]:bClrStd:= {|| if(&nro_usu3->Mod_bon = "N", {CLR_RED,CLR_WHITE}, {255, 0, 0}) }

                             oIngre:nMarqueeStyle := MARQSTYLE_HIGHLROW
                             oIngre:nColDividerStyle := LINESTYLE_INSET
                             oIngre:nRowDividerStyle := LINESTYLE_INSET
                                 oIngre:bClrHeader := {|| { nRGB(140, 0, 0), nRGB( 231, 242, 255 ), } }
                                 oIngre:nOpacity    := 230

                                 oIngre:aCols[1]:cToolTip :="Haga doble Click para ordenar por Vale"
                                 oIngre:aCols[3]:cToolTip :="Haga doble Click para ordenar por Tipo de Pago"
                                 oIngre:aCols[7]:cToolTip :="Haga doble Click para ordenar por Digitadora"

                                 oIngre:lAutoSort := .t.
                                 oIngre:aCols[1]:cSortOrder := "&Nro_usu3"
                                 oIngre:aCols[3]:cSortOrder := "&Nro_usu5"
                                 oIngre:aCols[7]:cSortOrder := "&Nro_usu7"

                                 oIngre:bClrStd             := {|| { nRGB(  0,  0,  0), nRGB(255,248,220) } }
                                 oIngre:bClrSelFocus        := {|| { nRGB(  0,  0,  0), nRGB(137, 247, 33) } }

                                 oIngre:aCols[3]:bClrStd:= {|| if(&nro_usu3->Mod_bon = "N", {CLR_WHITE,CLR_RED}, {CLR_BLACK,nRGB(255,248,220)}) }
                                 oIngre:aCols[5]:bClrStd:= {|| if(&nro_usu3->Mod_bon = "S", {CLR_WHITE,METRO_TURQUE}, {CLR_BLACK,nRGB(255,248,220)}) }
                                 oIngre:aCols[5]:bClrStd:= {|| if(&nro_usu3->Tot_Gen = 0, {CLR_WHITE,nRGB(237,9,32)}, {CLR_BLACK,nRGB(255,248,220)}) }

                                 oIngre:l2007:=.t.
                                 oIngre:lVScroll := .t.
                                 oIngre:lFooter := .t.


                                    oIngre:aCols[2]:cFooter := "TOTAL DEL DIA -->"
                          oIngre:aCols[2]:nFootStrAlign := AL_RIGHT


                                oCol := oIngre:AddCol()
                                oCol:AddResource("#10")           // Vigente
                                oCol:AddResource("#8043")           // Modificado
                                oCol:AddResource("#30")           // Nulo

                                    oCol:cHeader = "Estado"
                                    oCol:bBmpData   :=  { || IIF(&nro_usu3->Mod_bon = "V",1,If(&nro_usu3->Mod_bon = "S",2,3) )}
                                 // oIngre:aCols[1]:bFooter := { || oIngre:nLen }
                                  oIngre:aCols[01]:bFooter   := { || Ltrim( Str( oIngre:KeyNo() ) ) + " / " + LTrim( Str( oIngre:KeyCount() ) ) }

                                 oIngre:aCols[5]:bClrStd:= {|| if(b->Tip_Pag="EGRE", {CLR_WHITE,nRGB(237,9,32)}, {CLR_BLACK,nRGB(255,248,220)}) }

                                 oIngre:aCols[05]:cEditPicture    := "999,999,999"
                             oIngre:aCols[05]:nFooterType    := AGGR_TOTAL

                                 oIngre:aCols[04]:cEditPicture    := "9999"
                                 oIngre:aCols[04]:nFooterType := AGGR_COUNT

                                 oIngre:bLDblClick :=      {||( IIF( &nro_usu3->Mod_bon = "S", MsgAlert("MODIFICADO POR: "+&nro_usu3->Cod_Usu,"Atención"), oIngre:Refresh() ) ,oIngre:Refresh() ) }

                                 oIngre:MakeTotals()
                                 oIngre:bChange := {|| oIngre:Maketotals() }

FWH 22.10 - HARBOUR - PELLES C

cnavarro

Posts: 6755

Joined: Wed Feb 15, 2012 08:25 PM

Re: Como obtener valor de una celda Xbrowse
Posted: Sat May 07, 2022 03:14 PM

Prueba a hacer

Code (fw): Select all Collapse

   MsgInfo( oBrw:aCols[ 2 ]:Value )    // 2 o la columna que necesitas

Ya nos dices si es lo que necesitas

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 valor de una celda Xbrowse “Urgente”
Posted: Sat May 07, 2022 03:25 PM

Amigo Cristobal

Muy buen día.

Muchas gracias, por tu respuesta y tiempo dedicado, funciono PERFECTO.

Muchos saludos.

Antonio

FWH 22.10 - HARBOUR - PELLES C

FiveTech Support Forums

Continue the discussion