FiveTech Software tech support forums

     @ 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

 

oBrw4:Show(),oBrw4:SetFocus()

   @ 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