Histórico da Página

...

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:

Nome	Tipo	Descrição
Código do Produto	Caractere	Código do Produto
Cliente	Caractere	Cliente
Loja	Caractere	Loja
Tabela de Preço	Caractere	Tabela de Preço
Quantidade Vendida	Numérico	Quantidade Vendida
Condição de Pagamento	Caractere	Código da Condição de Pagamento
Forma de Pagamento	Caractere	Código da Forma de Pagamento
Tipo de Desconto	Numérico	1 - Desconto por Item 2 - Desconto por Total

Retorno

nDesconto - Numérico - Percentual de desconto

Exemplo

Bloco de código

language	js
linenumbers	true
collapse	true

#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

Árvore de páginas

Versões comparadas

Versão antiga 17

Nova versão Atual

Chave