CalcDesc
Calcula desconto por antecipacao em titulo financeiro. Par natural com CalcAcrs.
Assinatura: CalcDesc(cPrefixo, cTitulo, cParcela, cTipo, cCliFor, cLoja, dData) -> nDesconto
Retorna: Numeric
Espelho do CalcAcrs mas pra desconto. Calcula o desconto que cliente teria se pagasse antes do vencimento (regra cadastrada na condicao de pagamento).
nDesc := CalcDesc(SE1->E1_PREFIXO, SE1->E1_NUM, SE1->E1_PARCELA, ;
SE1->E1_TIPO, SE1->E1_CLIENTE, SE1->E1_LOJA, dDataBase)
nLiquido := SE1->E1_VALOR - nDesc + CalcAcrs(...)