Linha Microsiga Protheus

Árvore de páginas

Versões comparadas

Versão antiga 5

changes.mady.by.user Marcio Rogerio Menon

Gravado em

comparado com

Nova versão Atual

changes.mady.by.user Marcio Rogerio Menon

Gravado em

Chave

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

...

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 ] ) --> Percentual de descontonDesconto


Parâmetros:


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


Versões:Microsiga Protheus 12
NomeTipoDescrição
Código do Produto
Caracter
CaractereCódigo do Produto
Cliente
Caracter
CaractereCliente
Loja
Caracter
CaractereLoja
Tabela de Preço
Caracter
CaractereTabela de Preço
Quantidade Vendida
Caracter
NuméricoQuantidade Vendida
Condição de Pagamento
Caracter
CaractereCódigo da Condição de Pagamento
Forma de Pagamento
Caracter
CaractereCódigo da Forma de Pagamento
Tipo de DescontoNumérico1 - Desconto por Item
2 - Desconto por Total


Retorno
Percentual de descontoInformar o percentual de desconto
  • nDesconto - Numérico - Percentual de desconto


Exemplo

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