Devido a necessidade de atualizar o cadastro de naturezas para MVC e localizar para os países Brasil, Costa Rica, República Dominicana e México, os pontos de entrada que existiam no programa FINA010 (até a versão 12.1.16) foram descontinuados. Estes pontos de entrada eram: F010CAND - Não documentado FIN010EXC - http://tdn.totvs.com.br/pages/releaseview.action?pageId=6071270 FA010INC - http://tdn.totvs.com.br/pages/releaseview.action?pageId=6071629 FIN010INC - http://tdn.totvs.com.br/pages/releaseview.action?pageId=6071271 FA010ALT - Não documentado FIN010ALT - http://tdn.totvs.com.br/pages/releaseview.action?pageId=6071269 F10NATDEL - http://tdn.totvs.com.br/pages/releaseview.action?pageId=6071396 Todos os pontos de entrada acima citados e suas respectivas documentações serão descontinuados a partir da release 12.1.17, devendo ser adotados os pontos de entrada padrão do MVC, conforme exemplo abaixo: #INCLUDE 'PROTHEUS.CH' #INCLUDE 'FWMVCDEF.CH' //------------------------------------------------------------------------------------------- /*/{Protheus.doc} FINA010 Exemplo de uso dos pontos de entrada padrão para o cadastro de Naturezas em MVC @author Pedro Pereira Lima @since 30/05/2017 @version 12.1.17 /*/ //------------------------------------------------------------------------------------------- User Function FINA010() Local aParam := PARAMIXB Local xRet := .T. Local oObjForm Local cIdExec Local cIdForm //----------------------------------------------------------------------------------------------------- // Na hipótese dos parâmetros serem nulos, aborto a execução dos pontos de entrada do MVC //----------------------------------------------------------------------------------------------------- If aParam != Nil oObjForm := aParam[1] cIdExec := aParam[2] cIdForm := aParam[3]
//----------------------------------------------------------------------------------------------------- // Validação total do modelo - MODELPOS //----------------------------------------------------------------------------------------------------- If cIdExec == 'MODELPOS' //----------------------------------------------------------------------------------------------------- // Para validação de exclusão, utilizar a constante MODEL_OPERATION_INSERT e o método GetOperation() //----------------------------------------------------------------------------------------------------- If oObjForm:GetOperation() == MODEL_OPERATION_INSERT // Equivale ao FA010INC Alert('Apenas para exemplificar que, na inclusão de um novo registro, essa validação pode ser utilizada para confirmar ou não a gravação') xRet := .T. EndIf //----------------------------------------------------------------------------------------------------- // Para validação de exclusão, utilizar a constante MODEL_OPERATION_UPDATE e o método GetOperation() //----------------------------------------------------------------------------------------------------- If oObjForm:GetOperation() == MODEL_OPERATION_UPDATE // Equivale ao FA010ALT Alert('Apenas para exemplificar que, na alteração de um novo registro, essa validação pode ser utilizada para confirmar ou não a gravação') xRet := .T. EndIf //----------------------------------------------------------------------------------------------------- // Para validação de exclusão, utilizar a constante MODEL_OPERATION_DELETE e o método GetOperation() //----------------------------------------------------------------------------------------------------- If oObjForm:GetOperation() == MODEL_OPERATION_DELETE // Equivale ao F010CAND e ao F10NATDEL Alert('Execução da pós validação do model quando executado o "Delete"') Help(,,'Pontos de Entrada MVC',,'Help do pós valid do MVC após validação do ponto de entrada default do MVC',1,0) xRet := .F. EndIf //----------------------------------------------------------------------------------------------------- // Antes da gravação da tabela do formulário - FORMCOMMITTTSPRE //----------------------------------------------------------------------------------------------------- ElseIf cIdExec == 'FORMCOMMITTTSPRE' //-------------------------------------------------------------------------------------------------------------------- // Para gravações adicionais antes da inclusão, utilizar a constante MODEL_OPERATION_INSERT e o método GetOperation() //-------------------------------------------------------------------------------------------------------------------- If oObjForm:GetOperation() == MODEL_OPERATION_INSERT // Equivale ao FIN010INC Alert('A inclusão pode ter dados manipulados como gravação adicional neste momento, antes da confirmação da transação') xRet := Nil EndIf //-------------------------------------------------------------------------------------------------------------------- // Para gravações adicionais antes da alteração, utilizar a constante MODEL_OPERATION_INSERT e o método GetOperation() //-------------------------------------------------------------------------------------------------------------------- If oObjForm:GetOperation() == MODEL_OPERATION_UPDATE // Equivale ao FIN010ALT Alert('A alteração pode ter dados manipulados como gravação adicional neste momento, antes da confirmação da transação') xRet := Nil EndIf //-------------------------------------------------------------------------------------------------------------------- // Para gravações adicionais antes da exclusão, utilizar a constante MODEL_OPERATION_INSERT e o método GetOperation() //-------------------------------------------------------------------------------------------------------------------- If oObjForm:GetOperation() == MODEL_OPERATION_DELETE // Equivale ao FIN010EXC Alert('A exclusão pode ter dados manipulados como gravação adicional neste momento, antes da confirmação da transação') xRet := Nil EndIf EndIf
EndIf Return xRet |