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 | Descrição: O ponto de entrada FT080RDES substitui a rotina de Regra de Desconto padrão (MaRgrDesc). SintaxeFT080RDES( [ 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
#INCLUDE"PROTHEUS.CH"
UserFunctionFT080RDES()
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 no item. If _cCliente == '000001'.And. _cLoja == "01".And. _nTpDesc == 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 _cCondPg == "001".And. _cProduto == "05 ".And. _nQtdVen > 5 _nDesconto := 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 _nDesconto := 5 EndIf
Return _nDesconto
|