MaPrcCal

Calcula preco de compra de produto/fornecedor considerando tabela de precos, condicoes especiais, descontos por volume.

Assinatura: MaPrcCal(cProd, cFor, cLoja, nQtd, dEntrega, cTES, [cMoeda]) -> nPreco

Retorna: Numeric

MaPrcCal retorna o preco final de compra aplicando todas as regras: tabela de preco do fornecedor (DAJ), descontos por volume, condicao especial vigente. Sem isso, voce reescreve toda essa logica.

nPreco := MaPrcCal( ;
    SC1->C1_PRODUTO, ;
    SC1->C1_FORNECE, ;
    SC1->C1_LOJA,    ;
    SC1->C1_QUANT,   ;
    SC1->C1_DATPRF,  ;
    SC1->C1_TES      )

ConOut("Preco unitario: R$" + Transform(nPreco, "@E 999,999.99"))

Pegadinhas

Considera vigencia — tabela vencida retorna 0 (e depois confunde).
Moeda — preco em moeda da tabela DAJ; se quer convertido, passe parametro moeda.
Sem tabela ativa retorna 0 — sempre teste antes de usar.

Veja também

malibdofat