Imprimi Página | Fechar janela

PERSONALIZA AXCADASTRO Impresso de: Helpfacil - Portal do conhecimento Nome do Forum: ADVPL Descrição do Forum: Dúvidas sobre a programação em ADVPL URL:http://www.helpfacil.com.br/display_topic_threads.asp?ForumID=1&TopicID=44583 Data da Impressão: domingo, 8 de setembro de 2024 at 10:33 Topico: PERSONALIZA AXCADASTRO Postado por: MOEBACITY Assunto: PERSONALIZA AXCADASTRO Data Postagem: quinta-feira, 1 de agosto de 2024 at 09:35 Bom dia, pessoal. Estou tentando fazer uma tela com o AXCADASTRO para mostrar a tabela SRA. Mas eu tenho que exibir apenas 3 campos, ao invés de todos como está sendo exibido. É possível fazer isso? Respostas: Postado Por: ROBERTOMEN Data Postagem: quinta-feira, 1 de agosto de 2024 at 12:17 Private aCampos := {"RA_NOME","RA_IDADE","RA_SEXO"} Private aCPOS   := {"RA_NOME","RA_IDADE","RA_SEXO"} private aRotina := { { ‘Pesquisar‘        , "AxPesqui"        , 0, 1},;                      { ‘Visualizar‘        , "u_AxSRAVIS"       , 0, 2}} mBrowse ( 6, 1,22 ,75 ,"SRA") ********************** User Function AXSRAVIS() ********************** AxVisual("SRA", SRA->(Recno()) , 2 , aCampos,,aCPo) Teste ai..... Postado Por: MOEBACITY Data Postagem: sexta-feira, 2 de agosto de 2024 at 11:45 ROBERTOMEN, testei e não ficou apenas os 3 campos. Continua mostrando todos os campos. User Function SRAATIV()     Local aArea        := GetArea()     Local cAlias        := "SRA"        Private aCampos := {"RA_NOME","RA_IDADE","RA_SEXO"}     Private aCPOS   := {"RA_NOME","RA_IDADE","RA_SEXO"}     Private aRotina   := {}     aAdd(aRotina,{"Pesquisar", "AxPesqui",     0, 1})     aAdd(aRotina,{"Visualizar", "u_Vis",     0, 2})     aAdd(aRotina,{"Incluir",    "AxInclui",     0, 3})     aAdd(aRotina,{"Alterar",    "AxAltera",     0, 4})     aAdd(aRotina,{"Excluir",    "AxDeleta",     0, 5})     mBrowse( 6, 1,22 ,75 ,cAlias)     FWRestArea(aArea) Return User Function Vis()     AxVisual("SRA", SRA->(Recno()) , 2 , aCampos,,aCPo) return Postado Por: ROBERTOMEN Data Postagem: sexta-feira, 2 de agosto de 2024 at 13:05 User Function SRAATIV()     Local aArea        := GetArea()     Local cAlias        := "SRA"        Private aCampos := {"RA_NOME","RA_IDADE","RA_SEXO"}     Private aCPos   := {"RA_NOME","RA_IDADE","RA_SEXO"}     Private aRotina   := {}     aAdd(aRotina,{"Pesquisar", "AxPesqui",     0, 1})     aAdd(aRotina,{"Visualizar", "u_Vis",     0, 2})     aAdd(aRotina,{"Incluir",    "AxInclui",     0, 3})     aAdd(aRotina,{"Alterar",    "AxAltera",     0, 4})     aAdd(aRotina,{"Excluir",    "AxDeleta",     0, 5})     mBrowse( 6, 1,22 ,75 ,cAlias)     FWRestArea(aArea) Return User Function Vis()     AxVisual("SRA", SRA->(Recno()) , 2 , aCampos,aCPos) return Tente agora... Postado Por: MOEBACITY Data Postagem: segunda-feira, 5 de agosto de 2024 at 11:55 THREAD ERROR 05/08/2024 11:53:30 variable does not exist CCADASTRO on AXVISUAL(MATXATU.PRX) 08/09/2022 07:20:50 line : 167 Esse está sendo o Log ao tentar visualizar. Não sei qual é essa variável CCADASTRO Postado Por: ROBERTOMEN Data Postagem: segunda-feira, 5 de agosto de 2024 at 13:16 Private cCadastro := "Consulta SRA - Alguns Campos" Private aCampos := {"RA_NOME","RA_IDADE","RA_SEXO"} Private aCPOS   := {"RA_NOME","RA_IDADE","RA_SEXO"} private aRotina := { { 'Pesquisar'        , "AxPesqui"        , 0, 1},;                      { 'Visualizar'        , "u_AxSRAVIS"       , 0, 2}} mBrowse ( 6, 1,22 ,75 ,"SRA") ********************** User Function AXSRAVIS() ********************** AxVisual("SRA", SRA->(Recno()) , 2 , aCampos,,aCPo) Postado Por: MOEBACITY Data Postagem: terça-feira, 6 de agosto de 2024 at 12:04 THREAD ERROR array out of bounds ( 4 of 1 ) on MSMGET:NEW(MSMGETPR.PRW) line : 1100 Código: AxVisual("SRA", SRA->(Recno()) , 2 , aCampos,aCPo) THREAD ERROR type mismatch on compare on MSMGET:NEW(MSMGETPR.PRW) Código: AxVisual("SRA", SRA->(Recno()), aCampos,,aCPo) Fiz as alterações e retornou esses dois erros. Postado Por: ROBERTOMEN Data Postagem: terça-feira, 6 de agosto de 2024 at 14:19 Rodei sem problemas, vou postar a função novamente: ********************** User Function SRAATIV() ********************** Private cCadastro := "Consulta SRA - Alguns Campos" Private aCampos := {"RA_NOME","RA_IDADE","RA_SEXO"} Private aCPos   := {"RA_NOME","RA_IDADE","RA_SEXO"} private aRotina := { { ‘Pesquisar‘        , "AxPesqui"        , 0, 1},;                      { ‘Visualizar‘        , "u_AxSRAVIS"       , 0, 2}} mBrowse ( 6, 1,22 ,75 ,"SRA") RETURN ********************** User Function AXSRAVIS() ********************** AxVisual("SRA", SRA->(Recno()) , 2 , aCampos,,aCPos) RETURN

Imprimir Página | Fechar Janela