Árvore de páginas

Versões comparadas

Chave

  • Esta linha foi adicionada.
  • Esta linha foi removida.
  • A formatação mudou.

...

Portuguese

Pagetitle
FT080RDES - Substitução da rotina de regra de desconto padrão
FT080RDES - Substitução da rotina de regra de desconto padrão

Ponto-de-Entrada: FT080RDES - Substituição da rotina de Regra de Desconto padrão


Descrição:

O ponto de entrada FT080RDES substitui a rotina de Regra de Desconto padrão (MaRgrDesc).

Programa Fonte
FATA080.PRW

Sintaxe

FT080RDES( [ Código do Produto ], [ Cliente ], [ Loja ], [ Tabela de Preço ], [ Quantidade Vendida ], [ Condição de Pagamento ], [ Forma de Pagamento ], [ Tipo de Desconto ] ) --> nDesconto


Parâmetros:


NomeTipoDescrição
Código do ProdutoCaractereCódigo do Produto
ClienteCaractereCliente
LojaCaractereLoja
Tabela de PreçoCaractereTabela de Preço
Quantidade VendidaNuméricoQuantidade Vendida
Condição de PagamentoCaractereCódigo da Condição de Pagamento
Forma de PagamentoCaractereCódigo da Forma de Pagamento
Tipo de DescontoNumérico1 - Desconto por Item
2 - Desconto por Total


Retorno
  • nDesconto - Numérico - Percentual de desconto


Exemplo

Bloco de código
languagejs
linenumberstrue
collapsetrue
#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