DT CTBM300 - Altera CT2_USERGA do lançamento copiado

01. DADOS GERAIS

02. SITUAÇÃO/REQUISITO

A rotina está preenchimento indevidamente do campo CT2_USERGA para os lançamentos de origem, isso é devido ao fato de que o usuário não está realizando alterações em nenhuma informação durante a execução de uma rotina contábil chamada CTBM300 no lançamento de origem.

03. SOLUÇÃO

Implementada a melhoria para que o campo CT2_USERGA não seja alterado no momento da cópia no lançamento de Origem.

Para isso, foi criada a tabela QLN - Controle de Lançamentos que servirá de controle interno para sabermos quais registros foram copiados, tendo os campos de QLN_FILIAL, QLN_MSUIDT e QLN_STATUS.

Mudanças na Rotina:

Originalmente, os lançamentos nascidos de uma Cópia eram criados na tabela CT2 e o lançamento que serviu de origem para esse lançamento copiado tinha o conteúdo do campo CT2_CTLSLD atualizado para 2.

Com o campo CT2_CTLSLD igual a 2 no lançamento de origem, a rotina entendia que esse registro já foi usado anteriormente para gerar um lançamento de cópia.
Então para gerar uma nova cópia tendo esse mesmo registro como origem, era necessário estar com a pergunta MV_PAR18 - "Limpar controle de copia ?  " Igual a Sim, e assim a rotina atualizava o conteúdo do campo CT2_CTLSLD para 0, gerava os novos lançamentos e posteriormente atualizada o campo CT2_CTLSLD para 2 novamente no lançamento de origem.

O problema disso é que ao alterar o campo de status (CT2_CTLSLD), o campo CT2_USERGA também é editado com o usuário que está fazendo a cópia, o que para questões de auditoria é um problema, pois o sistema informa que o usuário que apenas fez uma cópia realizou uma alteração no lançamento copiado.

Agora com a melhoria, a ideia é basicamente a mesma. Porem, ao invés da rotina atualizar o campo CT2_CTLSLD nos lançamentos de origem, a rotina irá verificar se o lançamento de origem já foram copiados, caso o lançamento nunca foi copiado, o mesmo será incluído na tabela QLN com Status igual a 2 "Lançamento Copiado".

Nesse cenário ao realizar a cópia de um lançamento de origem que já foi copiado anteriormente, é necessário estar com a  pergunta MV_PAR18 - "Limpar controle de copia ?  " Igual a Sim igual antes, mas ao invés da rotina buscar no lançamento de origem o conteúdo do campo CT2_CTLSLD a rotina irá buscar na tabela QLN o conteúdo do campo QLN_STATUS.

       E assim a rotina atualizava o conteúdo do campo QLN_STATUS para 0, gera os novos lançamentos e posteriormente atualizada o campo QLN_STATUS para 2 novamente, fazendo assim nenhuma alteração no lançamento de origem quando o mesmo for copiado.

SX2 - Tabelas

     SX3 - Campos

    SIX - Índices

04. DEMAIS INFORMAÇÕES

Não se aplica

05. ASSUNTOS RELACIONADOS

18663241 DSERCTR1-43895 DT CTBM300 - COPIA PREENCHE OS CAMPOS USERGA E USERGI INCORRETOS