Produto:

PROTHEUS

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)