TWBrowse17 y xharbour 1.2.1 y FWH9.09

[ADBLANCO]

Y ESTE ES UN EJEMPLO DE COMO SE PUEDE UTILIZAR

Code: Select all  Expand view

******************************************************************************************
FUNCTION SSN01()                       && Actualiza Tipos de Accidentes
******************************************************************************************
LOCAL  oDlg       ,;
       oLbx       ,;
       oFKey      ,;
       oButSalir  ,;
       oButInsert ,;
       oButElim   ,;
       oButModif  ,;
       oButPrint  ,;
       bButSalir  ,;
       bButInsert ,;
       bButElim   ,;
       bButModif  ,;
       bButPrint  ,;
       oModif     ,;
       bModif     ,;
       bElim      ,;
       bInsert    ,;
       nNewCod:=0 ,;
       bButEnab   ,;
       bButDisab  ,;
       bPrint     ,;
       uBuffer    ,;
       aDatos


IF o_files( { "TIPACC" }, .F., .F. )
  oFKey:=tvkey():NEW   // CLASE TVKEY (control de teclas de funcion)
  SETKEY(VK_F9, {|| EVAL(bButPrint )} )
  SETKEY(VK_F2, {|| EVAL(bButInsert)} )
  SETKEY(VK_F3, {|| EVAL(bButElim  )} )
  SETKEY(VK_ESCAPE, {|| oDlg:End()  } )
  TIPACC->(DBSETORDER("ORD1"))
  bButInsert:={|| IIF(oButInsert:lActive,EVAL(bInsert),)}
  bButPrint :={|| IIF(oButPrint:lActive,EVAL(bPrint)  ,)}
  bButElim  :={|| IIF(oButElim:lActive,EVAL(bElim)    ,)}
  bButEnab  :={|| oButSalir:Enable()     ,;
                  oButElim:Enable()      ,;
                  oButPrint:Enable()     ,;
                  oButInsert:Enable()    ,;
                  oButInsert:lActive:=.T.,;
                  oButModif:Enable()     ,;
                  oButSalir:lActive:=.t. ,;
                  oButElim:lActive:=.t.  ,;
                  oButPrint:lActive:=.t. ,;
                  oButModif:lActive:=.t. }

  bButDisab:={|| oButSalir:Disable() ,;
                 oButElim:Disable()  ,;
                 oButPrint:Disable() ,;
                 oButInsert:Disable(),;
                 oButModif:Disable()}
  bPrint   :={|| Eval(bButDisab),RepAcc(oDlg),eval(bbutenab),oLbx:refresh(),oLbx:setfocus()}
  bInsert  :={|nCol, cBuffer, lFirstEdit|;
                eval(bButDisab)             ,;
                TipAcc->(dbgobottom())      ,;
                nNewcod:=TIPACC->codtipacc+1,;
                iif(Add_Reg("TIPACC",1,.f.) ,;
                (TIPACC->codtipacc:=nNewCod ,;
                oLbx:Refresh()              ,;
                oLbx:Click()                ,;
                uBuffer:=SPACE(LEN(TIPACC->NOMTIPACC)),;
                IIF(oLbx:lEditCol( 2, @uBuffer, "@!",,CLR_WHITE,CLR_BLUE,,,,,"Coloque Descripción, [Esc]-Sale" ),;
                (TIPACC->NOMTIPACC:=AnsiToOem(uBuffer)),),;
                tipacc->(dbunlock())),),;
                IIF(len(ALLTRIM(TipAcc->NomTipAcc))=0,(delreg("TipAcc"),;
                tipacc->(dbunlock())),),;
                TipAcc->(dbgobottom()),;
                eval(bButEnab),;
                oLbx:Refresh()}

  bElim    :={|nCol, cBuffer, lFirstEdit|;
                eval(bButDisab),;
                iif(msgYesno("Desea Eliminar"),(delreg("TipAcc"),;
                tipacc->(dbunlock())),oButSalir:Enable()),;
                eval(bButEnab),;
                TipAcc->(dbgobottom()),;
                oLbx:Refresh()}

  bModif   :={|nCol, cBuffer, lFirstEdit|;
                eval(bButDisab),;
                oLbx:Click(),;
                iif(Reg_lock("TIPACC",1,.f.),;
                (uBuffer:=OemToAnsi(TIPACC->NOMTIPACC),;
                IIF(oLbx:lEditCol( 2, @uBuffer, "@!",,CLR_WHITE,CLR_BLUE,,,,,"Modifique Descripción, [Esc]-Sale" ),;
                (TIPACC->NOMTIPACC:=AnsiToOem(uBuffer)),),),MSGALERT("Registro Bloqueado","Atencion...")),;
                IIF(len(ALLTRIM(TipAcc->NomTipAcc))=0,(delreg("TipAcc"),;
                tipacc->(dbunlock()),;
                TipAcc->(dbgobottom())),;
                oButSalir:Enable()),;
                eval(bButEnab),;
                oLbx:Refresh()}

  DEFINE    DIALOG      oDlg        RESOURCE "TipAcc";
            FONT oWnd:GetFont();
            TITLE       'Tipos de Accidentes' OF oWnd
  oDlg:lHelpIcon  :=.f.  && Apago el Icono de Help

  REDEFINE LISTBOX oLbx ;
           FIELDS   transform(tipacc->codtipacc,'99'),OemToAnsi(tipacc->nomtipacc);
           ALIAS   "tipacc" ;
           HEADERS "Codigo","Descripcion";
           FIELDSIZES 55,190;
           FONT OFONTGEN;
           MESSAGE "Doble Click o [Enter], Modifica";
           ID 401   OF oDlg

  oLbx:Set3DStyle()
  oLbx:nHeaderHeight := 31    // Da la altura del header
  oLbx:bKeyDown      := {|nKey| IIF( nKey == VK_RETURN,EVAL(bModif),)}
  oLbx:nLineHeight   := 18    // Da la altura de la linea
  oLbx:nFreeze       :=  1    // Congela hasta la primera columna
  oLbx:Ajustify      := {1,0} // Justificado de Columnas 0=izq, 1=Der, 2=Cent
  oLbx:lAutoEdit     := .f.   // Prende el AutoEdit
  oLbx:lCellStyle    := .f.   // .t.=> Marca por celda, Si=.f. =>Marca por linea
  oLbx:lAdjLastCol   := .t.   // ajusta la ultima columna

  REDEFINE  BUTTON      oButPrint     ID  105  OF oDlg;
            MESSAGE "Imprime Reporte";
            PROMPT "[F9]-Listar";
            ACTION  eval(bPrint)

  REDEFINE  BUTTON      oButModif     ID  104  OF oDlg;
            MESSAGE "Modifica Registro";
            PROMPT "[Enter]-Modificar";
            ACTION  eval(bModif)

  REDEFINE  BUTTON      oButElim      ID  103  OF oDlg;
            MESSAGE "Elimina Registro";
            PROMPT "[F3]-Eliminar";
            ACTION  eval(bElim)

  REDEFINE  BUTTON      oButInsert    ID  102  OF oDlg;
            MESSAGE "Incluye Registro";
            PROMPT "[F2]-Incluir";
            ACTION  eval(bInsert)

  REDEFINE  BUTTON      oButSalir     ID  101  OF oDlg;
            MESSAGE "Sale de Esta Pantalla";
            PROMPT "[Esc]-&Salir";
            ACTION  oDlg:End()        && Sale de la Rutina, Por Convencion el ID es 101

  ACTIVATE DIALOG       oDlg CENTER
  oFKey:End()
ENDIF
N_CLOSE("TIPACC")

RETURN   NIL

 

[ADBLANCO]

No Creo que te sirva, ya que utilizo demasiadas clases, métodos y funciones propias.

y en este momento, estoy desarrollando un proyecto que no meda demasiado tiempo.