Árvore de páginas

TTFDOE_DT_Limite_campo_histórico_CT2_HIST

Características do Requisito

Linha de Produto:

Microsiga Protheus

Segmento:

Serviços

Módulo:

Contabilidade Gerencial

Rotina:

Rotina

Nome Técnico

CTBA101

Lancamento contabil manul.

 

 

Cadastros Iniciais:

Incluir lançamento contabiil via rotina CTBA101.

Ponto de Entrada:

CT101TOK 

Chamados relacionados

TTFDOE

País(es):

Todos

Banco(s) de Dados:

Todos

Tabelas utilizadas:

CT2 - Movimentos Contabeis

Sistema(s) operacional(is):

Todos

Versões/Release:

12.1.6

É possível modificar a quantidade de caracteres do campo CTK_HIST, porém não é aconselhável alterar o campo CT2_HIST, pois todas as rotinas em que este campo é utilizado, estão limitadas a 40 caracteres, como por exemplo, o Razão Contábil e caso exista uma alteração a rotina, somente são exibidos 40 caracteres, porém é permitido aumentar caso seja necessário, para no máximo 240 caracteres, tendo no Lançamento Normal (débito, crédito e partida dobrada) com 40 caracteres na CT2_HIST e 5 linhas no campo Cont. Hist.

Para isto é necessário configurar o parâmetro MV_CT5HIST - Histórico de lançamento padrão com o conteúdo em .T. Atualmente o sistema está padronizado para aceitar 240 caracteres no cadastro de histórico devido a limitação existente a usuários que utilizam base dbf. Para mais informações consulte o link http://tdn.totvs.com/pages/releaseview.action?pageId=6068557

O ponto de entrada CT101TOK pode ser utilizado para validação do tamanho da linha ao confirmar o lançamento na rotina Lançamento Contábil Manual (CTBA101). Este ponto de entrada recebe o histórico digitado no lançamento na variável cTexto.

Para mais informações: http://tdn.totvs.com.br/display/mp/CT101TOK+-+Valida+Folder+de+Lancamento+Contabil++++--+109598

 

Exemplo de utilização do ponto de entrada CT101TOK com referência a limitar o tamanho do histórico:

 

#include "Protheus.ch"

User Function CT101TOK()

Local lRet := .T.

Local cTxtMemo := Paramixb[12]  //outros parametros ver na documentação TDN

If Len(cTxtMemo) > 240

                ALERT("LIMITE DE HISTORICO É DE 240 CARACTERES")

                lRet := .F.

EndIf

Return(lRet)