×
Linguagem de Programação ADVPL
Perguntas mbrowse
- JamesWesTRP
- Autor do Tópico
- Desconectado
- Membro Dourado
Menos
Mais
- Postagens: 248
- Obrigados Recebidos: 1
11 anos 1 mês atrás #17693
por JamesWesTRP
mbrowse foi criado por JamesWesTRP
Pessoal,
bom dia!
Criei uma mbrowse com arquivo temporário.
Porém, aquele campo de pesquisa à direita não aparece (aquele que mostra no padrão).
É possível habilitar ele ?
O axPesqui está o padrão como "axPesqui" mesmo..
Se alguem puder me ajudar!
bom dia!
Criei uma mbrowse com arquivo temporário.
Porém, aquele campo de pesquisa à direita não aparece (aquele que mostra no padrão).
É possível habilitar ele ?
O axPesqui está o padrão como "axPesqui" mesmo..
Se alguem puder me ajudar!
Por favor Acessar ou Registrar para participar da conversa.
- kanaamlrr
- Desconectado
- Membro Platina
Menos
Mais
- Postagens: 1576
- Obrigados Recebidos: 4
- JamesWesTRP
- Autor do Tópico
- Desconectado
- Membro Dourado
Menos
Mais
- Postagens: 248
- Obrigados Recebidos: 1
11 anos 1 mês atrás #17699
por JamesWesTRP
Respondido por JamesWesTRP no tópico mbrowse
Então Kanaãm eu até criei... mas mesmo assim não aparece
Por favor Acessar ou Registrar para participar da conversa.
- JamesWesTRP
- Autor do Tópico
- Desconectado
- Membro Dourado
Menos
Mais
- Postagens: 248
- Obrigados Recebidos: 1
11 anos 1 mês atrás - 11 anos 1 mês atrás #17730
por JamesWesTRP
Respondido por JamesWesTRP no tópico mbrowse
Kanaãm segue trecho do código:
aAdd(aEstrut, { "ORDEM" , "C", 1, 0})
For nX := 1 To Len(aCposBrw)
aAdd(aEstrut, { aCposBrw[nX,2], aCposBrw[nX,3], aCposBrw[nX,4],aCposBrw[nX,5]})
Next nX
If Select("TMP") > 0
TMP->(dbCloseArea())
EndIf
cArqTMP := CriaTrab(aEstrut, .T.)
dbUseArea(.T.,, cArqTMP, "TMP", .T., .F.)
IndRegua( "TMP", cArqTMP, "Codigo+DESCRICAO",,,"Indexando registros..." )
DbSelectArea("TMP")
TMP->(dbClearIndex())
TMP->(dbSetIndex(cArqTMP + OrdBagExt()))
Sendo que no arquivo Trab eu tenho os campos CODIGO e DESCRICAO
aAdd(aEstrut, { "ORDEM" , "C", 1, 0})
For nX := 1 To Len(aCposBrw)
aAdd(aEstrut, { aCposBrw[nX,2], aCposBrw[nX,3], aCposBrw[nX,4],aCposBrw[nX,5]})
Next nX
If Select("TMP") > 0
TMP->(dbCloseArea())
EndIf
cArqTMP := CriaTrab(aEstrut, .T.)
dbUseArea(.T.,, cArqTMP, "TMP", .T., .F.)
IndRegua( "TMP", cArqTMP, "Codigo+DESCRICAO",,,"Indexando registros..." )
DbSelectArea("TMP")
TMP->(dbClearIndex())
TMP->(dbSetIndex(cArqTMP + OrdBagExt()))
Sendo que no arquivo Trab eu tenho os campos CODIGO e DESCRICAO
Ultima edição: 11 anos 1 mês atrás por JamesWesTRP.
Por favor Acessar ou Registrar para participar da conversa.
- kanaamlrr
- Desconectado
- Membro Platina
Menos
Mais
- Postagens: 1576
- Obrigados Recebidos: 4
- JamesWesTRP
- Autor do Tópico
- Desconectado
- Membro Dourado
Menos
Mais
- Postagens: 248
- Obrigados Recebidos: 1
11 anos 1 mês atrás #17768
por JamesWesTRP
Respondido por JamesWesTRP no tópico mbrowse
Private aRotina := { {"Pesquisar","axPesqui()",0,1 } ,;
{"Visualizar","AxVisual",0,2} ,;
{"Incluir","U_PRIO002()",0,3 } ,;
{"Alterar","AxAltera",0,4 } ,;
{"Legenda","U_Leadleg()",0,5},;
{"Excluir","AxDeleta",0,6 }}
chamada:
mBrowse( 6, 1, 22, 75, "TMP",aCposBrw,,,,, aCores)
Array aCposBrw
aAdd(aCposBrw, { "Codigo " , "CODIGO" , "C" , 15 , 0, ""})
aAdd(aCposBrw, { "Descricao " , "DESCRICAO" , "C" , 60 , 0, ""})
aAdd(aCposBrw, { "Revisao " , "REVISAO" , "C" , 02 , 0, ""})
{"Visualizar","AxVisual",0,2} ,;
{"Incluir","U_PRIO002()",0,3 } ,;
{"Alterar","AxAltera",0,4 } ,;
{"Legenda","U_Leadleg()",0,5},;
{"Excluir","AxDeleta",0,6 }}
chamada:
mBrowse( 6, 1, 22, 75, "TMP",aCposBrw,,,,, aCores)
Array aCposBrw
aAdd(aCposBrw, { "Codigo " , "CODIGO" , "C" , 15 , 0, ""})
aAdd(aCposBrw, { "Descricao " , "DESCRICAO" , "C" , 60 , 0, ""})
aAdd(aCposBrw, { "Revisao " , "REVISAO" , "C" , 02 , 0, ""})
Por favor Acessar ou Registrar para participar da conversa.
Tempo para a criação da página:0.083 segundos