Como Eliminar Ultima Fila de XBrowse ??

[remtec]

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: Select all  Expand view

     @ 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

 

[remtec]

Buen día Amigos

Definitivamente no se puede realizar?

Saludos

Antonio

[rubenfernandez01]

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]

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: Select all  Expand view

oBrw4:Show(),oBrw4:SetFocus()

add oBrw4:Refresh() also.

[karinha]

Que tal?

Code: Select all  Expand view

   @ 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