Facilitando as coisas

[JoséQuintas]

Ainda vou testar, mas .....
Acabo de fazer uma mudança radical no meu browse genérico.

acrescentei uma variável

Código: Selecionar todos

FUNCTION BrowseADO( cnSQL, oTBrowse, cFilterKey, bKeyboard, bUserFunction, nFixToCol, aADOFilterList, aBtnList )

Acrescentei 3 linhas

Código: Selecionar todos

   FOR EACH aBtn IN aBtnList
      AAdd* oFrm:acMenuOptions, aBtn )
   NEXT

Agora vou testar.
Estou acrescentando botões com funções extras.

É que esse browse genérico era apenas pra consultas e nada mais.
É chamado como BrowseADO( lista )

E não fico multiplicando rotinas de browse à toa.
Tenho basicamente apenas duas.

E se fosse ambiente GUI ?

Bom... no dlgauto tenho uma pra cada LIB, pra infinitas telas....
Talvez uma baste.... pra cada lib.