- Fórum
- Protheus/Microsiga/Totvs
- AdvPL (Advanced Protheus Language)
- Dúvidas Gerais
- Usar "Conhecimento" rotina personalizada
×
Linguagem de Programação ADVPL
Perguntas Usar "Conhecimento" rotina personalizada
- michelp
- Autor do Tópico
- Desconectado
- Membro Especialista
Menos
Mais
- Postagens: 115
- Obrigados Recebidos: 0
12 anos 2 meses atrás #5689
por michelp
Usar "Conhecimento" rotina personalizada foi criado por michelp
Bom dia,
Criei o programa abaixo para criar um browse e adicionar o botão "Conhecimento" na rotina porém ao clicar no botão surge um erro e não consegui achar material para me ajudar na internet por isso estou recorrendo a vocês para me darem uma força.
#include "rwmake.ch"
User Function CADSZ1()
LOCAL aRotAdd
aRotAdd := { { "Conhecimento", "MsDocument", 0, 2}}
AxCadastro("SZ1","Cadastro Customizado",,,aRotAdd)
Return
#include "rwmake.ch"
USER FUNCTION FTMSREL
LOCAL aEntidade := {}
AADD( aEntidade, { "SZ1", { "Z1_CODIGO" }, { || SZ1->Z1_CODIGO } } )
Return aEntidade
erro.bmp
Criei o programa abaixo para criar um browse e adicionar o botão "Conhecimento" na rotina porém ao clicar no botão surge um erro e não consegui achar material para me ajudar na internet por isso estou recorrendo a vocês para me darem uma força.
#include "rwmake.ch"
User Function CADSZ1()
LOCAL aRotAdd
aRotAdd := { { "Conhecimento", "MsDocument", 0, 2}}
AxCadastro("SZ1","Cadastro Customizado",,,aRotAdd)
Return
#include "rwmake.ch"
USER FUNCTION FTMSREL
LOCAL aEntidade := {}
AADD( aEntidade, { "SZ1", { "Z1_CODIGO" }, { || SZ1->Z1_CODIGO } } )
Return aEntidade
erro.bmp
Por favor Acessar ou Registrar para participar da conversa.
- lalberto
- Desconectado
- Administrador
Menos
Mais
- Postagens: 3676
- Obrigados Recebidos: 6
12 anos 2 meses atrás #5690
por lalberto
Luiz Alberto Vieira Alves
Proprietário
55 (12) 9 8256-5905 (Vivo)
www.3lsystems.com.br
www.masteradvpl.com.br
Respondido por lalberto no tópico Re: Usar "Conhecimento" rotina personalizada
Brother anexa novamente o arquivo bmp, esta extensão não estava na lista de permissões, mas acabei de liberar, mas se puder converter em jpeg que é bem menor eu agradeço.
Abraços
Abraços
Luiz Alberto Vieira Alves
Proprietário
55 (12) 9 8256-5905 (Vivo)
www.3lsystems.com.br
www.masteradvpl.com.br
Por favor Acessar ou Registrar para participar da conversa.
- michelp
- Autor do Tópico
- Desconectado
- Membro Especialista
Menos
Mais
- Postagens: 115
- Obrigados Recebidos: 0
- lalberto
- Desconectado
- Administrador
Menos
Mais
- Postagens: 3676
- Obrigados Recebidos: 6
12 anos 2 meses atrás #5703
por lalberto
Luiz Alberto Vieira Alves
Proprietário
55 (12) 9 8256-5905 (Vivo)
www.3lsystems.com.br
www.masteradvpl.com.br
Respondido por lalberto no tópico Re: Usar "Conhecimento" rotina personalizada
Brother usei aqui na minha maquina e funfou de boa, tenta ao invez de executar pelo formulas cria uma opção no menu pra chamar a rotina.
Segue meu exemplo que funfou de boa, só troquei a tabela customizada.
#include "rwmake.ch"
User Function CADSZ1()
LOCAL aRotAdd
aRotAdd := { { "Conhecimento", "MsDocument", 0, 2}}
AxCadastro("SZY","Cadastro Customizado",,,aRotAdd)
Return
#include "rwmake.ch"
USER FUNCTION FTMSREL
LOCAL aEntidade := {}
AADD( aEntidade, { "SZY", { "ZY_NUMCHAM" }, { || SZY->ZY_NUMCHAM } } )
Return aEntidade
Segue meu exemplo que funfou de boa, só troquei a tabela customizada.
#include "rwmake.ch"
User Function CADSZ1()
LOCAL aRotAdd
aRotAdd := { { "Conhecimento", "MsDocument", 0, 2}}
AxCadastro("SZY","Cadastro Customizado",,,aRotAdd)
Return
#include "rwmake.ch"
USER FUNCTION FTMSREL
LOCAL aEntidade := {}
AADD( aEntidade, { "SZY", { "ZY_NUMCHAM" }, { || SZY->ZY_NUMCHAM } } )
Return aEntidade
Luiz Alberto Vieira Alves
Proprietário
55 (12) 9 8256-5905 (Vivo)
www.3lsystems.com.br
www.masteradvpl.com.br
Por favor Acessar ou Registrar para participar da conversa.
- lalberto
- Desconectado
- Administrador
Menos
Mais
- Postagens: 3676
- Obrigados Recebidos: 6
12 anos 2 meses atrás #5704
por lalberto
Luiz Alberto Vieira Alves
Proprietário
55 (12) 9 8256-5905 (Vivo)
www.3lsystems.com.br
www.masteradvpl.com.br
Respondido por lalberto no tópico Re: Usar "Conhecimento" rotina personalizada
Inclui um registro na tabela customizada.
Luiz Alberto Vieira Alves
Proprietário
55 (12) 9 8256-5905 (Vivo)
www.3lsystems.com.br
www.masteradvpl.com.br
Por favor Acessar ou Registrar para participar da conversa.
- michelp
- Autor do Tópico
- Desconectado
- Membro Especialista
Menos
Mais
- Postagens: 115
- Obrigados Recebidos: 0
12 anos 2 meses atrás #5718
por michelp
Respondido por michelp no tópico Re: Usar "Conhecimento" rotina personalizada
Luiz,
Inclui o registro na tabela customizada sem problema o problema esta quando clico no botão conhecimento mesmo
Inclui o item no menu e fiz o teste, quando clico em conhecimento neste caso gera o erro abaixo
ERRO THREAD (Admin, MICHEL) 19/09/2012 12:52:10
type mismatch on += on MABUILDKEY(MATXFUNC.PRX) 14/04/2010 line : 7921
[ByYou build:7.00.090818P]
Called from MSDOCUMENT(MATXFUNC.PRX) 14/04/2010 line : 4571
Called from FWMBROWSE:EXECUTE(FWFORMBROWSE.PRW) 04/05/2010 line : 828
Será que é porque eu estou testando no Protheus 11
Att. Michel
Inclui o registro na tabela customizada sem problema o problema esta quando clico no botão conhecimento mesmo
Inclui o item no menu e fiz o teste, quando clico em conhecimento neste caso gera o erro abaixo
ERRO THREAD (Admin, MICHEL) 19/09/2012 12:52:10
type mismatch on += on MABUILDKEY(MATXFUNC.PRX) 14/04/2010 line : 7921
[ByYou build:7.00.090818P]
Called from MSDOCUMENT(MATXFUNC.PRX) 14/04/2010 line : 4571
Called from FWMBROWSE:EXECUTE(FWFORMBROWSE.PRW) 04/05/2010 line : 828
Será que é porque eu estou testando no Protheus 11
Att. Michel
Por favor Acessar ou Registrar para participar da conversa.
- Fórum
- Protheus/Microsiga/Totvs
- AdvPL (Advanced Protheus Language)
- Dúvidas Gerais
- Usar "Conhecimento" rotina personalizada
Tempo para a criação da página:0.243 segundos