DSERCTR1-11028 DT Código Reduzido

Segmento:

Serviços

Função:

CTBA105

Solução/Implementação:

A funcionalidade que destrói o modelo esta deixando resquícios na memória, e quando o FWModelActive() é acionado, recebemos como retorno o último modelo utilizado e não o modelo ativo, seguindo orientação do FrameWork, incluímos a validação para garantir que o modelo esta ativo.

Para rotinas que não estão em MVC, será necessário utilizar uma variável chamada lSetValue , e marca-lá como .T., a mesma esta declarada como Static no CTBA105, e se verdadeira efetuará a validação pela forma antiga.

Exemplo de chamada para ser validada pelo método antigo (para rotinas não migradas para MVC (legado)).

#include 'protheus.ch'
#include 'parmtype.ch'

User Function CTBA105PE()

Local cConta := '1'

CTB105MVC(.T.)

CTB105CTA(cConta,cTipo)

Return