Caros, Estamos com a seguinte problema: Na rotina de liberação de Credito de pedido MATA450 criamos um ponto de entra o MTA450I, o ponto de entrada MTA450I criamos para ter a possibilidade de alteração no cadastro do cliente sem sair da rotina de liberação e funcionava perfeitamente até a virada para a 12.1.23. Após a virada a rotina é aberta(AxAltera("SA1",SA1->(RecNo()),4)) porém a mesma abre como visualização e não como alteração impossibilitando a utilização da customização.
AxAltera Erro ao chamar
- Você vai ver essas setas em qualquer página de pergunta. Com elas, você pode dizer se uma pergunta ou uma resposta foram relevantes ou não.
- Edite sua pergunta ou resposta caso queira alterar ou adicionar detalhes.
- Caso haja alguma dúvida sobre a pergunta, adicione um comentário. O espaço de respostas deve ser utilizado apenas para responder a pergunta.
- Se o autor da pergunta marcar uma resposta como solucionada, esta marca aparecerá.
- Clique aqui para mais detalhes sobre o funcionamento do TOTVS DevForum!
1 resposta
-
Boa tarde, Guilherme!
Tive o mesmo problema em minha empresa, porém ao utilizar o ponto de entrada MA450MNU. Tive que efetuar a seguinte correção, buscando a posição da minha função no aRotina e passando para o AxAltera.
If(Type('aRotina') == 'A') nOpc := aScan(aRotina, {|x| Alltrim(x[2]) == 'U_ELFINA08'}) Endif DbSelectArea('SA1') SA1->(DbSetOrder(1)) If(SA1->(DbSeek(xFilial('SA1') + SC9->C9_CLIENTE + SC9->C9_LOJA))) AxAltera('SA1',SA1->(RecNo()),nOpc,,,,,'MA030TudOk(4)',,,) Else MsgAlert('Não foi possível posicionar no cliente do pedido ' + SC9->C9_PEDIDO + '!', 'Cadastro de Clientes') Endif
Verifiquei na documentação que o parâmetro nOpc da função AxAltera, na verdade, é a linha do aRotina no qual a AxAltera irá executar a ação. Confuso, não? Eu sempre achei que era simplesmente o tipo de operação.
A seguir estarei demonstrando um exemplo prático.
Digamos que o meu aRotina esteja composto da seguinte maneira (ou o aRotina da função padrão):
ADD OPTION aRotina TITLE 'Pesquisar' ACTION 'PesqBrw' OPERATION 1 ACCESS 0 ADD OPTION aRotina TITLE 'Visualizar' ACTION 'VIEWDEF.MATA450' OPERATION 2 ACCESS 0 ADD OPTION aRotina TITLE 'Incluir' ACTION 'VIEWDEF.MATA450' OPERATION 3 ACCESS 0 ADD OPTION aRotina TITLE 'Alterar' ACTION 'VIEWDEF.MATA450' OPERATION 4 ACCESS 0 ADD OPTION aRotina TITLE 'Excluir' ACTION 'VIEWDEF.MATA450' OPERATION 5 ACCESS 0Ao informar o parâmetro nOpc igual a 4 para o AxAltera, ele irá executar a função em modo alteração, pois a quarta linha do aRotina possui a operação alteração.
Mas, se por algum motivo o meu aRotina esteja dessa forma:
ADD OPTION aRotina TITLE 'Pesquisar' ACTION 'PesqBrw' OPERATION 1 ACCESS 0 ADD OPTION aRotina TITLE 'Visualizar' ACTION 'VIEWDEF.MATA450' OPERATION 2 ACCESS 0 ADD OPTION aRotina TITLE 'Detalhes' ACTION 'U_DETALHE()' OPERATION 2 ACCESS 0 ADD OPTION aRotina TITLE 'Cliente' ACTION 'U_CLIENTE()' OPERATION 2 ACCESS 0 ADD OPTION aRotina TITLE 'Incluir' ACTION 'VIEWDEF.MATA450' OPERATION 3 ACCESS 0 ADD OPTION aRotina TITLE 'Alterar' ACTION 'VIEWDEF.MATA450' OPERATION 4 ACCESS 0 ADD OPTION aRotina TITLE 'Excluir' ACTION 'VIEWDEF.MATA450' OPERATION 5 ACCESS 0E eu mesmo assim informar o nOpc igual a 4, ele irá executar uma ação de visualização. Pois a quarta linha do meu aRotina está com uma função com operação visualização.
Sendo assim, você precisa buscar por uma linha do aRotina onde a operação seja 4 (alteração) e então passar o número dessa linha para o AxAltera. No meu caso, como eu adicionei a ELFINA08 no aRotina da MATA450, eu simplesmente busco pela posição dela. Como é uma customização minha, eu tenho certeza que a operação dela é 4, independente da posição onde ela se encontre no aRotina (6, 7, 8, etc).
Documentação: https://tdn.totvs.com/pages/viewpage.action?pageId=23889132
-
Muito Obrigado Giordano, mas assim eu ja estou passando setado o 4 , ele deveria acatar AxAltera("SA1",SA1->(RecNo()),4))
If MsgYesNo("Deseja revisar as informações de análise de crédito do Cliente ?","Atenção")
nModulo := 6 // Financeiro cModulo := "FIN"
nOpcA := AxAltera("SA1",SA1->(RecNo()),4)
nModulo := nModBkp cModulo := cModBkp
EndIf
PUTMV( "ST_CLLIBOK", SA1->(A1_COD+A1_LOJA) )
EndIf
EndIf
— Guilherme Moreira 09 de Jan de 2020 -
Boa tarde Giordano, mas assim eu passo setado para o AXALTERA o 4 que seria o nOpc, AxAltera("SA1",SA1->(RecNo()),4))
— Guilherme Moreira 09 de Jan de 2020 -
Boa tarde, Guilherme. Melhorei o meu comentário inicial, verifique se ficou mais entendível, pois realmente é uma solução confusa.
— Giordano Trabach Xavier 09 de Jan de 2020 -
Muito Obrigado Giordano era esse o problema , ele estava em outra posição em vez da 4 era a 5 e capturei com sua explicação vlw msmo
— Guilherme Moreira 13 de Jan de 2020
-