Histórico da Página

#INCLUDE "PROTHEUS.CH"

User Function FT080RDES()

Local _cProduto  := PARAMIXB[1]     //Código do Produto
Local _cCliente  := PARAMIXB[2]     //Código do Cliente
Local _cLoja     := PARAMIXB[3]     //Loja do Cliente
Local _cTabPrc   := PARAMIXB[4]     //Tabela de Preço
Local _nQtdVen   := PARAMIXB[5]     //Quantidade Vendida
Local _cCondPg   := PARAMIXB[6]     //Condição de Pagamento
Local _cForPgto  := PARAMIXB[7]     //Forma de Pagamento
Local _nTpDesc   := PARAMIXB[8]     //Tipo de Desconto, sendo: 1- Por item / 2- Por total
Local _nDesconto := 0               

//Quando for o Cliente: 000001, vamos dar um desconto por item.
//Neste exemplo vamos dar um desconto de 10%, caso seja a condição de pagamento: 001,
//produto: 05 e a quantidade seja maior que 5 pçs  
If _cCliente == "000001" .And. _cLoja == "01" .And. _nTpDesc == 1
    If _cCondPg == "001" .And. _cProduto == "05             " .And. _nQtdVen > 5
        _nDesconto := 10
    EndIf
EndIf

//Quando for o Cliente: 000002, vamos dar um desconto de 5% por total.
If _cCliente == "000002" .And. _cLoja == "01" .And. _nTpDesc == 2
    _nDesconto := 5
EndIf

Return _nDesconto