FAQs - Suporte técnico

MP - ADVPL - Exemplo de execauto para alteração FINA050

Dúvida
Como utilizo a ExecAuto da FINA050 para realizar uma alteração.

Ambiente
Protheus – ADVPL – A partir da versão 11.8

Solução

Para alterar um registro via execauto, você precisa ter o registro posicionado, caso o registro não esteja posicionado, a execauto ira alterar o primeiro registro encontrado na tabela.

Basicamente a alteração via execauto é a mesma realizada na rotina padrão, por isso você precisa verificar a regra da rotina, para validar se tal alteração é permitida.

Exemplo

#Include "protheus.ch"
#Include "parmtype.ch"
#Include "tbiconn.ch"

User Function FIN050ALT()

LOCAL aArray := {}
PRIVATE lMsErroAuto := .F.

PREPARE ENVIRONMENT EMPRESA "99" FILIAL "01"

DbSelectArea("SE2")
DbSetOrder(1)
DbSeek(xFilial("SE2")+"ABC"+"00000027") //Alteração deve ter o registro SE2 posicionado

aArray := {{"E2_PREFIXO" ,SE2->E2_PREFIXO , NIL },;// CAMPO POSICIONADO
{"E2_NUM" ,SE2->E2_NUM , NIL },;
{"E2_VALOR" ,300 , NIL }} // campo que vai ser alterado

MsExecAuto( { |x,y,z| FINA050(x,y,z)},aArray,, 4) // 3 - Inclusao, 4 - Alteração, 5 - Exclusão

If lMsErroAuto
MostraErro()
Else
Alert("Título alterado com sucesso!")
Endif

RESET ENVIRONMENT

Return


 

Esse artigo foi útil?
Usuários que acharam isso útil: 1 de 1

0 Comentários

Por favor, entre para comentar.
X Fechar

Olá ,

Há pendência referente a um de seus produtos contratados para a empresa ().

Entre em contato com o Centro de Serviços TOTVS para tratativa.

Ligue! 4003-0015 opção 4 e 9 ou registre uma solicitação para CST – Cobrança – Verificação de pendências financeiras . clique aqui.

TOTVS

X Fechar

Olá ,

Seu contato não está cadastrado no Portal do Cliente como um perfil autorizado a solicitar consultoria telefônica.

Por gentileza, acione o administrador do Portal de sua empresa para: (1)configurar o seu acesso ou (2)buscar um perfil autorizado para registro desse atendimento.

Em caso de dúvidas sobre a identificação do contato administrador do Portal, ligue (11) 4003-0015, opção 7 e, em seguida, opção 4 para buscar o suporte com o time de Assessoria ao Portal do Cliente. . clique aqui.

TOTVS

X Fechar

Olá ,

Para o atendimento de "Consultoria Telefônica" você deverá estar de acordo com o Faturamento.

TOTVS

X Fechar

Olá,

Algo inesperado ocorreu, e o usuario nao foi reconhecido ou você nao se encontra logado

Por favor realize um novo login

Em caso de dúvidas, entre em contato com o administrador do Portal de Clientes de sua empresa para verificação do seu usuário, ou Centro de Serviços TOTVS.

Ligue! 4003-0015 opção 4 e 9 ou registre uma solicitação para CST – Cadastros . clique aqui.

TOTVS

Chat _

Preencha os campos abaixo para iniciar o atendimento:

Chat _