Linha Microsiga Protheus

Árvore de páginas

Versões comparadas

Versão antiga 1

changes.mady.by.user Nathalia Lira Akamine

Gravado em

comparado com

Nova versão Atual

changes.mady.by.user Diego da Silva Domingos

Gravado em

Chave

  • Esta linha foi adicionada.
  • Esta linha foi removida.
  • A formatação mudou.

Produto:

PROTHEUS

Versões:

11,12

Ocorrência:

Ao incluir um lançamento partida simples a débito por exemplo, é permitido digitar a conta crédito e vice versa. Como bloquear o campo da conta contábil quando o lançamento for partida simples?

Passo a passo:

Utilize o ponto de entrada CT105VLENT - Entidade contábil -- 23493

 

User Function CT105VLENT()

 

Local lRet := .T.

 

Local cDC,cDebito,cCredito, cContCCD,cContCCC, cItemD,cItemC, cCLVLD,cCLVLC

 

cDc := ParamIxb[1]

 

cDebito := ParamIxb[2]

 

cCredito := ParamIxb[3]

 

//cContCCD:= ParamIxb[4]

 

//cContCCC:= ParamIxb[5]

 

//cItemD:= ParamIxb[6]

 

//cItemC:= ParamIxb[7]

 

//cCLVLD:= ParamIxb[8]

 

//cCLVLC:= ParamIxb[9]

 

//ATRIBUIR OUTROS PARAMETROS CC /ITEM / CLASSE DE VALOR

 

If cDc == "1" //Debito

 

lRet := !Empty(cDebito) .And. Empty(cCredito)

 

ElseIf cDc == "2" //Credito

 

lRet := !Empty(cDebito) .And. Empty(cCredito)

 

ElseIf cDc == "4" //Cont. Historico

 

lRet := .T.

 

Else

 

lRet := !Empty(cDebito) .And. !Empty(cCredito)

 

EndIf

 

//VALIDADAR OUTRAS ENTIDADES

 

If !lRet

 

MsgAlert("Ponto de Entrada CT105VLENT - Verifique Conta a Debito / Credito

 

!")

 

EndIf

Return(lRet)

Trata-se de um legado do módulo contábil a possibilidade de mostrar a contrapartida de débito ou crédito, mesmo não sendo um lançamento de partida dobrada é uma facilidade em um eventual processo de auditoria.

o   Porém, existe a opção de bloquear este processo na validação do documento contábil, com o ponto de entrada CT105VLENT (http://tdn.totvs.com/pages/viewpage.action?pageId=6068647)


Observações:

Caso necessite de um apoio para implementação do ponto de entrada, sugerimos analista in loco.

 

...