Como Eliminar Ultima Fila de XBrowse ??

Board index FiveWin para Harbour/xHarbour Como Eliminar Ultima Fila de XBrowse ??

Posts: 719

Joined: Fri May 12, 2017 02:50 PM

Como Eliminar Ultima Fila de XBrowse ??
Posted: Fri Sep 23, 2022 01:30 AM

Amigos

Muy buenas noches.

Necesito saber si puedo eliminar la ultima fila del XBrowse, al final de las filas de datos, se muestra una fila en blanco, no es el footer de donde se muestra los totales si los tuviera, es dentro del XBrowse.

Muchos saludos.

Antonio

Muestro el codigo:

Code (fw): Select all Collapse

     @ 125,205 SAY oZona  Prompt cZona SIZE 200,20 PIXEL OF oDLG2      COLORS RGB(0,0,128), RGB(159,233,255)   FONT oFont17 BORDER ADJUST

               @ 125, 205 XBROWSE oBrw4 SIZE 200,150 PIXEL OF oDlg2  DATASOURCE "AZon" FONT oFont17;
                    HEADERS "Descripcion";
               COLUMNS "Nom_AZon";
                     COLSIZES 250;
                        PICTURES '@!';
                        CELL LINES AUTOSORT NOBORDER;
                                             oBrw4:nFreeze       := 1

                                                    */
                                             WITH OBJECT oBrw4
                                                        :lFooter := .f.
                                                        :lVScroll := .f.
                                                        :lHScroll := .f.
                                                :lIncrFilter      := .f.
                                                :lSeekWild        := .F.                   //  .T. Busca Contenido, .F. Que comience con lo que digita
                                                        :SetStyle( 2018)
                                                        :nColorPen := CLR_RED
                                                        :nStretchCol  := STRETCHCOL_WIDEST
                                                        :nRowHeight := (20)

                                                        :lRecordSelector := .f.               // Oculta  Primera Columna la de la Flecha


                                                :bLDblClick:={|| cZona:=AZon->Nom_AZon, oBrw4:Hide(),oZona:Show(), oZona:Refresh(),oFecha_Adm1:Show(),oGet10:Show(),oSay12:Show(),oSay13:Show(),oSay14:Show() }

                                                        :bKeyDown:={|nKey| iif(nKey == VK_RETURN, Eval(oBrw4:bLDblClick),)}

                                                :CreateFromCode()                                                                                         //,oBrw2:SetItems(aTipAdm)
                                             END

        @ 125,420 BTNBMP oBtn2 SIZE 30, 28  OF oDLG2 PIXEL 2007 Resource "#8023" FONT oFont16 ;
    ToolTip  "BUSCAR ZONAS ADMINISTRACION";
        Action   (oZona:Hide,oBrw4:Show(),oBrw4:SetFocus(),oFecha_Adm1:Hide(),oGet10:Hide(),oSay12:Hide(),oSay13:Hide(),oSay14:Hide() )        // Mando a Desactivar Say y Activar Xbrowse

FWH 22.10 - HARBOUR - PELLES C

remtec

Posts: 719

Joined: Fri May 12, 2017 02:50 PM

Re: Como Eliminar Ultima Fila de XBrowse ??
Posted: Sat Sep 24, 2022 04:06 PM

Buen día Amigos

Definitivamente no se puede realizar?

Saludos

Antonio

FWH 22.10 - HARBOUR - PELLES C

rubenfernandez01

Posts: 48

Joined: Sun Sep 20, 2015 01:41 AM

Re: Como Eliminar Ultima Fila de XBrowse ??
Posted: Sun Sep 25, 2022 05:06 AM

Hola, no lo he probado.

Pero a veces me sucedía cuando tenía un registro en blanco.

Enviado desde mi 21081111RG mediante Tapatalk

nageswaragunupudi

Posts: 10733

Joined: Sun Nov 19, 2006 05:22 AM

Re: Como Eliminar Ultima Fila de XBrowse ??
Posted: Fri Sep 30, 2022 03:25 PM

XBrowse never shows any blank record on its own, if that blank record is not in the DBF.

When you are hiding and showing browse with a code like this:

Code (fw): Select all Collapse

oBrw4:Show(),oBrw4:SetFocus()

add oBrw4:Refresh() also.

Regards

G. N. Rao.

Hyderabad, India

karinha

Posts: 8515

Joined: Tue Dec 20, 2005 07:36 PM

Re: Como Eliminar Ultima Fila de XBrowse ??
Posted: Fri Sep 30, 2022 04:26 PM

Que tal?

Code (fw): Select all Collapse

   @ 125, 420 BTNBMP oBtn2 SIZE 30, 28 OF oDlg2 PIXEL 2007 Resource "#8023"     ;
      FONT oFont16 ToolTip "BUSCAR ZONAS ADMINISTRACION"                        ;
      ACTION ( oZona:Hide(), oBrw4:Show(), oBrw4:Refresh(), oBrw4:SetFocus(),   ;
               oFecha_Adm1:Hide(), oGet10:Hide(), oSay12:Hide(), oSay13:Hide(), ;
               oSay14:Hide() ) // Mando a Desactivar Say y Activar Xbrowse

   Ó...

   @ 125, 420 BTNBMP oBtn2 SIZE 30, 28 OF oDlg2 PIXEL 2007 Resource "#8023"     ;
      FONT oFont16 ToolTip "BUSCAR ZONAS ADMINISTRACION"                        ;
      ACTION ( oZona:Hide(), oBrw4:Show(), oBrw4:GoBottom(),oBrw4:Refresh(),    ;
               oBrw4:GoTop(), oBrw4:SetFocus(), oFecha_Adm1:Hide(),             ;
               oGet10:Hide(), oSay12:Hide(), oSay13:Hide(), oSay14:Hide() )
               // Mando a Desactivar Say y Activar Xbrowse

Regards, saludos

João Santos - São Paulo - Brasil - Phone: +55(11)95150-7341

FiveTech Support Forums

Continue the discussion