FCalDesc - Desconto na baixa automática

Ponto de entrada que permite desconto no momento da baixa automática.

Para correto funcionamento desta função, se faz necessário também conter o ponto de entrada FA110DES, para realizar o cálculo do desconto.

Devem ser passados ao ponto de entrada F110CPOS os campos que devem ser adicionados na baixa a receber automática, para gravar o valor do desconto inserido e o valor recebido.

Exemplo: SE1->E1_VLDESC Campo que contem o desconto/ SE1->E1_VlRECDES Campo que contem o valor do titulo menos o desconto.

User Function FCalDesc()

Local nDias := 0
Local cMarca := ParamIxb[1]
Local nOpca := ParamIxb[2]

nDias := SE1->E1_VENCTO - dDataBase

RecLock("SE1",.f.)
If SE1->E1_OK == cMarca .and. nOpca == 1
If nDias == 1
SE1->E1_VLDESC := 10
Elseif nDias == 2
SE1->E1_VLDESC := 20
Elseif nDias == 3
SE1->E1_VLDESC := 30
Endif

SE1->E1_VlRECDES := SE1->E1_VALOR - SE1->E1_VLDESC
Else
SE1->E1_VLDESC := 0
SE1->E1_VlRECDES := 0
Endif

SE1->(MSUNLOCK())

Return

Português(Brasil)

Microsiga_Protheus11

Todos

Todas

Local cMarca := ParamIxb[1] (Permite a marcação dos titulos)
Local nOpca := ParamIxb[2] (Confirmação da operação)

ExecBlock("FCalDesc",.F.,.F.,{cMarca,1},)

FINA110.PRX