Linha Microsiga Protheus

Árvore de páginas

Versões comparadas

Versão antiga 12

changes.mady.by.user Marcio Rogerio Menon

Gravado em

comparado com

Nova versão 13

changes.mady.by.user Marcio Rogerio Menon

Gravado em

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
#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               
 0               

//Quando for o Cliente: 000001, vamos dar um desconto no item.


If _cCliente == '000001' .And. _cLoja == "01" .And. _nTpDesc ==
1
    
 1
    //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
 pçs
    If _cCondPg == "001" .And. _cProduto ==
"05             "
 "05             " .And. _nQtdVen >
5
        
 5
        _nDesconto :=
10
    EndIf
EndIf
 10
    EndIf
EndIf
//Quando for o Cliente: 000002, vamos dar um desconto de 5% no total.


If _cCliente == '000002' .And. _cLoja == "01" .And. _nTpDesc ==
2
    
 2
    _nDesconto := 5


EndIf



Return _nDesconto