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: |
| ||||
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)