- Fórum
- Protheus/Microsiga/Totvs
- AdvPL (Advanced Protheus Language)
- AdvPL x MVC
- Filtro e Campo na função MarkBrow
Perguntas Filtro e Campo na função MarkBrow
- rubem_mn
- Autor do Tópico
- Desconectado
- Membro Sénior
Menos
Mais
- Postagens: 60
- Obrigados Recebidos: 0
8 anos 10 meses atrás #30020
por rubem_mn
Filtro e Campo na função MarkBrow foi criado 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 ()
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.
- Fórum
- Protheus/Microsiga/Totvs
- AdvPL (Advanced Protheus Language)
- AdvPL x MVC
- Filtro e Campo na função MarkBrow
Tempo para a criação da página:0.088 segundos