FAQs - Suporte técnico

Cross Segmento - TOTVS Backoffice Linha Protheus - SIGAATF - Ponto de entrada MVC ATFA036

time.pngTempo aproximado para leitura: 00:03:00 min

Dúvida

O ponto entrada AF030VLBX não está funcionando na versão P12.1.17


Ambiente
Cross Segmento - TOTVS Backoffice (Linha Protheus) – ADVPL – A partir da versão 12.1.17

Solução
Conforme documentação o ponto ATFA036L substitui o ponto de entrada AF030VLBX da rotina ATFA030 e o ponto de entrada AF035BLBX da rotina ATFA035.
Ponto de entrada ATFA036L Este ponto só é acionado na opção "Baixa em Lote" para opção "Baixa" utilize o modelo de exemplo.
Como a rotina já está em MVC é necessário utilizar o Ponto de entrada Padrão MVC.
O id do modelo da dados da rotina ATFA036 é ATFA036, assim sendo, a assinatura da função de usuário deve ser User Function ATFA036().

Observação: O nome do arquivo.prw não poderá ser o mesmo da user function.


Saiba Mais
Todos os pontos de entrada terão seu legado mantido, salvo os pontos que consideramos como pontos padrões (ex: validação após a gravação e botões que serão substituídos), os pontos que trazem conteúdo do sistema por PARAMIXB, esses serão mantidos com suas particularidades

Exemplo

#include "parmtype.ch"

User Function ATFA036()
   Local aParam := PARAMIXB
   Local xRet := .T.
   Local oObj := ""
   Local cIdPonto := ""
   Local cIdModel := ""
   Local lIsGrid := .F.
   Local nLinha := 0
   Local nQtdLinhas := 0
    Local cMsg := ""

   If aParam <> NIL
       oObj := aParam[1]
       cIdPonto := aParam[2]
       cIdModel := aParam[3]
        lIsGrid := (Len(aParam) > 3)

       If cIdPonto == "MODELPOS"
           cMsg := "Chamada na validação total do modelo." + CRLF
           cMsg += "ID " + cIdModel + CRLF
           xRet := ApMsgYesNo(cMsg + "Continua?")
       ElseIf cIdPonto == "FORMPOS"
           cMsg := "Chamada na validação total do formulário." + CRLF
            cMsg += "ID " + cIdModel + CRLF

           If lIsGrid
               cMsg += "É um FORMGRID com " + Alltrim(Str(nQtdLinhas)) + " linha(s)." + CRLF
               cMsg += "Posicionado na linha " + Alltrim(Str(nLinha)) + CRLF
           Else
               cMsg += "É um FORMFIELD" + CRLF
           EndIf
            xRet := ApMsgYesNo(cMsg + "Continua?")
       ElseIf cIdPonto == "FORMLINEPRE"
           If aParam[5] == "DELETE"
               cMsg := "Chamada na pré validação da linha do formulário. " + CRLF
               cMsg += "Onde esta se tentando deletar a linha" + CRLF
               cMsg += "ID " + cIdModel + CRLF
               cMsg += "É um FORMGRID com " + Alltrim(Str(nQtdLinhas)) + " linha(s)." + CRLF
               cMsg += "Posicionado na linha " + Alltrim(Str(nLinha)) + CRLF
               xRet := ApMsgYesNo(cMsg + " Continua?")
           EndIf

        ElseIf cIdPonto == "FORMLINEPOS"
           cMsg := "Chamada na validação da linha do formulário." + CRLF
           cMsg += "ID " + cIdModel + CRLF
           cMsg += "É um FORMGRID com " + Alltrim(Str(nQtdLinhas)) + " linha(s)." + CRLF
           cMsg += "Posicionado na linha " + Alltrim(Str(nLinha)) + CRLF
           xRet := ApMsgYesNo(cMsg + " Continua?")
       ElseIf cIdPonto == "FORMCOMMITTTSPRE"
           ApMsgInfo("Chamada após a gravação da tabela do formulário.")
       ElseIf cIdPonto == "FORMCOMMITTTSPOS"
           ApMsgInfo("Chamada após a gravação da tabela do formulário.")
       ElseIf cIdPonto == "MODELCANCEL"
           cMsg := "Deseja realmente sair?"
           xRet := ApMsgYesNo(cMsg)
       ElseIf cIdPonto == "BUTTONBAR"
           xRet := {{"Salvar", "SALVAR", {||u_TSMT020()}}}
       EndIf
   EndIf
Return xRet

User Function TSMT020()
   Alert("Buttonbar")
Return NIL
Esse artigo foi útil?
Usuários que acharam isso útil: 0 de 0

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 _