(Obrigatório)

Informações Gerais

   Legenda: 1 – Inovação 2 – Manutenção (Os demais campos devem ser preenchidos para ambos os processos). 

Objetivo

Reescrever o programa Lançamento Padrão (CTBA080) utilizando a arquitetura MVC isolando regras específicas por localização mantendo o comportamento atual da rotina.

Definição da Regra de Negócio

A rotina Lançamento Padrão (CTBA080) permite a configuração para integração de lançamentos contábeis provenientes de outros módulos do sistema. Essa rotina chama a rotina CTBA086 que também são os lançamentos mais com a visualização por processos sendo que cada uma delas é utilizada de forma separadas.

• Manter as funcionalidades existentes
• Manter pontos de entradas existentes
• Manter as integrações existentes
• Manter as validações existentes
• Separar processos específicos por localidade

Funções que a rotina CTBA080 fornece e suas funcionalidades:

As seguintes funções são utilizadas externamente a rotina CTBA080:

Os seguintes pontos de entradas são disponibilizados pela rotina CTBA080:

Documentação Ponto de Entrada:

Ponto de Entrada no Cadastro de Lançamento Padrão em MVC

Características do Requisito

Descrição

O objetivo do ponto de entrada no Cadastro de Lançamento Padrão segue os moldes das rotinas desenvolvidas em MVC onde um único ponto de entrada deve ser uma User Function e ter como nome o ID do Modelo de Dados (Model) do Fonte. Peguemos de exemplo um fonte do Modulo Contabilidade Gerencial :   CTBA080. Neste fonte o ID do Modelo de Dados ( definido na funcão ModelDef()  ) é também CTBA080, portanto ao se escrever o ponto de entrada desta rotina, faríamos User Function CTBA080(), onde este é invocado em diversos momentos, conforme documentação TDN.

link http://tdn.totvs.com/pages/viewpage.action?pageId=208345968 

Exemplo: 

#include "Protheus.ch"
#include "FWMVCDEF.CH"

Static lFlag := .F.

User Function CTBA080()
Local aParam := PARAMIXB
Local xRet := .T.
Local oObj := ''
Local cIdPonto := ''

Local cIdModel := ''
Local lIsGrid := .F.
Local nLinha := 0
Local nQtdLinhas := 0
Local cMsg := ''
Local cClasse := ""



If aParam <> NIL
	oObj := aParam[1]
	cIdPonto := aParam[2]
	cIdModel := aParam[3]
	
	lIsGrid := ( oObj:ClassName()=="FWFORMGRID" )   //.F. //( Len( aParam ) == 5 .And. aParam[5] != NIL )
	
	If lIsGrid
		nQtdLinhas := oObj:GetQtdLine()
		nLinha := oObj:nLine
	EndIf



	If cIdPonto == 'MODELPOS'
	
		lFlag := !lFlag
		
		If lFlag

			If 		oObj:GetOperation() == MODEL_OPERATION_INSERT
					// para inclusão;
					cMsg := 'P E Exemplo do metodo GetOperation INCLUSAO (NECESSARIO include FWMVCDEF.CH.' + CRLF
					cMsg += 'ID ' + cIdModel + CRLF
					If !( xRet := ApMsgYesNo( cMsg + ' - Continua ?' ) )
						Help( ,, 'Help',, 'OPERACAO INCLUSAO .F.', 1, 0 )
					EndIf
			
				
			ElseIf oObj:GetOperation() == MODEL_OPERATION_UPDATE
					// para alteração;
					cMsg := 'P E Exemplo do metodo GetOperation ALTERACAO (NECESSARIO include FWMVCDEF.CH.' + CRLF
					cMsg += 'ID ' + cIdModel + CRLF
					If !( xRet := ApMsgYesNo( cMsg + ' - Continua ?' ) )
						Help( ,, 'Help',, 'OPERACAO ALTERACAO .F.', 1, 0 )
					EndIf
			
			ElseIf oObj:GetOperation() == MODEL_OPERATION_DELETE
					//para exclusao
					cMsg := 'P E Exemplo do metodo GetOperation EXCLUSAO (NECESSARIO include FWMVCDEF.CH.' + CRLF
					cMsg += 'ID ' + cIdModel + CRLF
					If !( xRet := ApMsgYesNo( cMsg + ' - Continua ?' ) )
						Help( ,, 'Help',, 'OPERACAO EXCLUSAO .F.', 1, 0 )
					EndIf
			
			Else
					cMsg := 'P E Exemplo do metodo GetOperation Visualizacao (NECESSARIO include FWMVCDEF.CH.' + CRLF
					cMsg += 'ID ' + cIdModel + CRLF
					If !( xRet := ApMsgYesNo( cMsg + ' - Continua ?' ) )
						Help( ,, 'Help',, 'Visualizacao .F.', 1, 0 )
					EndIf
			
			EndIf
	
			cMsg := 'P E Validação total do modelo (MODELPOS).' + CRLF
			cMsg += 'ID ' + cIdModel + CRLF
			If !( xRet := ApMsgYesNo( cMsg  + If(oObj:GetValue( "CT5MASTER", 'CT5_STATUS' )=='1', "L P   A t i v o ", "LP Desabilitado") + ' - Continua ?' ) )
				Help( ,, 'Help',, 'O MODELPOS retornou .F.', 1, 0 )
			EndIf

		EndIf

	ElseIf cIdPonto == 'FORMPOS'
		/*
		cMsg := 'Chamada na validação total do formulário (FORMPOS).' + CRLF
		cMsg += 'ID ' + cIdModel + CRLF
		
		cClasse := oObj:ClassName() 
		
		If cClasse == 'FWFORMGRID'
			cMsg += 'É um FORMGRID com ' + Alltrim( Str( nQtdLinhas ) ) + ;
			' linha(s).' + CRLF
			cMsg += 'Posicionado na linha ' + Alltrim( Str( nLinha ) ) + CRLF
		ElseIf cClasse == 'FWFORMFIELD'
			cMsg += 'É um FORMFIELD' + CRLF
		EndIf
		If !( xRet := ApMsgYesNo( cMsg + 'Continua ?' ) )
			Help( ,, 'Help',, 'O FORMPOS retornou .F.', 1, 0 )
		EndIf
		*/

	ElseIf cIdPonto == 'FORMLINEPRE'
		/*
		If aParam[5] == 'DELETE'
			cMsg := 'Chamada na pré validação da linha do formulário (FORMLINEPRE).' + CRLF
			cMsg += 'Onde esta se tentando deletar uma linha' + CRLF
			cMsg += 'É um FORMGRID com ' + Alltrim( Str( nQtdLinhas ) ) +;
			' linha(s).' + CRLF
			cMsg += 'Posicionado na linha ' + Alltrim( Str( nLinha ) ) + CRLF
			cMsg += 'ID ' + cIdModel + CRLF
			If !( xRet := ApMsgYesNo( cMsg + 'Continua ?' ) )
				Help( ,, 'Help',, 'O FORMLINEPRE retornou .F.', 1, 0 )
			EndIf
		EndIf
		*/

	ElseIf cIdPonto == 'FORMLINEPOS'
		/*
		cMsg := 'Chamada na validação da linha do formulário (FORMLINEPOS).' + CRLF
		cMsg += 'ID ' + cIdModel + CRLF
		cMsg += 'É um FORMGRID com ' + Alltrim( Str( nQtdLinhas ) ) + 		' linha(s).' + CRLF
		cMsg += 'Posicionado na linha ' + Alltrim( Str( nLinha ) ) + CRLF
		
		If !( xRet := ApMsgYesNo( cMsg + 'Continua ?' ) )
			Help( ,, 'Help',, 'O FORMLINEPOS retornou .F.', 1, 0 )
		EndIf
		*/
		
	ElseIf cIdPonto == 'MODELCOMMITTTS'
		//ApMsgInfo('Chamada apos a gravação total do modelo e dentro da transação (MODELCOMMITTTS).' + CRLF + 'ID ' + cIdModel )

	ElseIf cIdPonto == 'MODELCOMMITNTTS'
		//ApMsgInfo('Chamada apos a gravação total do modelo e fora da transação (MODELCOMMITNTTS).' + CRLF + 'ID ' + cIdModel)
		
		If CT5->(FieldPos("CT5_USUARI"))  > 0
			RecLock("CT5", .F.)
			CT5->CT5_USUARI := "Paulo da Silva Nunes"
			MsUnlock()
		EndIf


	ElseIf cIdPonto == 'FORMCOMMITTTSPOS'
		//ApMsgInfo('Chamada apos a gravação da tabela do formulário (FORMCOMMITTTSPOS).' + CRLF + 'ID ' + cIdModel)

	ElseIf cIdPonto == 'MODELCANCEL'
		/*
		cMsg := 'Chamada no Botão Cancelar (MODELCANCEL).' + CRLF + 'Deseja Realmente Sair ?'
		If !( xRet := ApMsgYesNo( cMsg ) )
			Help( ,, 'Help',, 'O MODELCANCEL retornou .F.', 1, 0 )
		EndIf
      */
      
	ElseIf cIdPonto == 'MODELVLDACTIVE'
		/*
		cMsg := 'Chamada na validação da ativação do Model.' + CRLF + ;
		'Continua ?'
		If !( xRet := ApMsgYesNo( cMsg ) )
			Help( ,, 'Help',, 'O MODELVLDACTIVE retornou .F.', 1, 0 )
		EndIf
		*/
	ElseIf cIdPonto == 'BUTTONBAR'
	   /*
		ApMsgInfo('Adicionando Botão na Barra de Botões (BUTTONBAR).' + CRLF + 'ID ' + cIdModel )
		xRet := { {'Salvar', 'SALVAR', { || Alert( 'Salvou' ) }, 'Este botão Salva' } }
      */
      
	EndIf

EndIf  

Return xRet

Os seguintes alias são utilizados pela rotina CTBA080:

Os seguintes parâmetros controlam a execução da rotina:

As seguintes funcionalidades foram identificadas na rotina CTBA080 e serão mantidas / melhoradas:

Definição das alterações

• Os pontos de entrada serão mantidos em seus respectivos eventos para garantir o comportamentos já customizados pelo cliente.
• As configurações de ordenação não serão mantidas e serão utilizadas as existentes nas funcionalidades do MVC.
• As operações de múltiplos tipos de saldos serão agregados a tela principal com um grid separado.
• Visualização em árvore permanecerá chamando CTBA086

A seguinte estrutura será colocada para as localizações:

As seguintes alterações devem ser feitas na funções da rotina original: