| |
|
Bem Vindo, Visitante
|
 Todos os Fórums
  ADVPL
|
 Imprimir
 Enviar Para um Amigo
Precisa estar Logado
|
 |
 |
Assunto: |
PERSONALIZA AXCADASTRO |
|
Versão: |
. |
|
Plataforma: |
Microsoft |
Complemento: |
|
|
DB: |
SQL Server |
Complemento: |
|
|
|
|
|
|
|
Mensagem do
MOEBACITY
em 01/08/2024, 09:35 h
Local: AL Registro: 12/07/2024 Postagens: 6 |
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?
|
|
|
|
Mensagem do
ROBERTOMEN
em 01/08/2024, 12:17 h
Local: PR Registro: 04/07/2017 Postagens: 548 |
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..... |
|
|
|
Mensagem do
MOEBACITY
em 02/08/2024, 11:45 h
Local: AL Registro: 12/07/2024 Postagens: 6 |
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 |
|
|
|
Mensagem do
ROBERTOMEN
em 02/08/2024, 13:05 h
Local: PR Registro: 04/07/2017 Postagens: 548 |
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... |
|
|
|
Mensagem do
MOEBACITY
em 05/08/2024, 11:55 h
Local: AL Registro: 12/07/2024 Postagens: 6 |
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 |
|
|
|
Mensagem do
ROBERTOMEN
em 05/08/2024, 13:16 h
Local: PR Registro: 04/07/2017 Postagens: 548 |
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)
|
|
|
|
Mensagem do
MOEBACITY
em 06/08/2024, 12:04 h
Local: AL Registro: 12/07/2024 Postagens: 6 |
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. |
|
|
|
Mensagem do
ROBERTOMEN
em 06/08/2024, 14:19 h
Local: PR Registro: 04/07/2017 Postagens: 548 |
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
|
|
 Para postar no Fórum você precisa efetuar o seu login ou se registrar
|
|
