Código: Selecionar todos
// Browse
@ 05,40 BROWSE oBrw DATABASE OF oFrm SIZE 795,510 STYLE WS_VSCROLL + WS_HSCROLL;
MULTISELECT;
ON CLICK {|o,key| pesquisaBrowse(o, key, oFrm, nomeForm)}
oBrw:alias := alias()
ADD COLUMN {|| cod_doc } TO oBrw HEADER t("Código") LENGTH 15 PICTURE mask_doc BHEADCLICK {|o,key| ordenaBrowse(obrw,1,1)}
ADD COLUMN {|| nr_rev } TO oBrw HEADER t("Rev") LENGTH 3 PICTURE "@!"
ADD COLUMN {|| doc_origem } TO oBrw HEADER t("Número") LENGTH 25 PICTURE "@!" BHEADCLICK {|o,key| ordenaBrowse(obrw,2,3)}
ADD COLUMN {|| rev_doc } TO oBrw HEADER t("Rev") LENGTH 10 PICTURE "@!"
ADD COLUMN {|| titulo } TO oBrw HEADER t("Título") LENGTH 50
ADD COLUMN {|| titulo2 } TO oBrw HEADER t("Título - Continuação") LENGTH 50
ADD COLUMN {|| titulo3 } TO oBrw HEADER t("Título - Continuação") LENGTH 50
ADD COLUMN {|| cod_end } TO oBrw HEADER t("Original") LENGTH 20 PICTURE mask_ende BHEADCLICK {|o,key| ordenaBrowse(obrw,3,8)}
ADD COLUMN {|| cod_end3 } TO oBrw HEADER t("Cópia") LENGTH 20 PICTURE mask_ende BHEADCLICK {|o,key| ordenaBrowse(obrw,5,9)}
ADD COLUMN {|| cod_end2 } TO oBrw HEADER t("Digital") LENGTH 20 PICTURE mask_ende BHEADCLICK {|o,key| ordenaBrowse(obrw,4,10)}
oBrw:bKeyDown := {|o,key| pesquisaBrowse(o, key, oFrm, nomeForm)}
oBrw:bother:= {|o,w|botaodireitoBrowse(o, w, oFrm, nomeForm)}
ordenaBrowse(obrw,1,1)