Perguntas Filtro e Campo na função MarkBrow

Mais
8 anos 10 meses atrás #30020 por rubem_mn
Prezados, estou estudando a função MarkBrow e não estou conseguindo fazer filtro e também exibir no browser somente os campos definido no array aCampos {}.

Segue código e fonte .:

#Include 'Protheus.ch'

User Function xMarkBrowser()


Local cFiltra := " A2_EST == 'BA' "
Local aAlias := "SA2"

Private cCadastro := "Enviar E-mail Cliente"
Private aRotina := {}
Private aCores := {}
Private aCampos := {}


AADD(aRotina,{"Pesquisar","AxPesqui",0,1})
AADD(aRotina,{"Legenda","U_Ulegenda()",0,2})
AADD(aRotina,{"Visualizar","AxVisual",0,3})
AADD(aRotina,{"Enviar Email","ENVIAR()",0,4})




dbSelectArea("SA2")
SET FILTER to &(cFiltra)



AADD(aCampos,{'A2_OK','C','Marca',1,0,'@!'})
AADD(aCampos,{'A2_COD','C','Códig1o',PesqPict("SA2","A2_COD"),TAMSX3("A2_COD")[1] ,TAMSX3("A2_COD")[2]})
AADD(aCampos,{'A2_LOJA','C','Loja',PesqPict("SA2","A2_LOJA"),TAMSX3("A2_LOJA")[1] ,TAMSX3("A2_LOJA")[2]})
AADD(aCampos,{'A2_NOME','C','Nome',PesqPict("SA2","A2_NOME"),TAMSX3("A2_NOME")[1] ,TAMSX3("A2_NOME")[2]})
AADD(aCampos,{'A2_CGC','C','CNPJ',PesqPict("SA2","A2_CGC"),TAMSX3("A2_CGC")[1] ,TAMSX3("A2_CGC")[2]})
AADD(aCampos,{'A2_EST','C','Telefone',PesqPict("SA2","A2_EST"),TAMSX3("A2_EST")[1] ,TAMSX3("A2_EST")[2]})


MarkBrow("SA2","A2_OK","",aCampos,.F.,GetMark(,aAlias,"A2_OK"),,,,,,,,,)


dbSelectArea("SA2")
SET FILTER to &(cFiltra)





Return ()

Por favor Acessar ou Registrar para participar da conversa.

Tempo para a criação da página:0.088 segundos
Joomla templates by a4joomla