Linha Microsiga Protheus

Árvore de páginas

  • Criado por Usuário desconhecido (fabiana.silva), última alteração em 30 dez, 2015

Ponto de Entrada - LJX904VP

Este Ponto de Entrada é executado na rotina Lj904XPr - para informar o novo preço de venda do produto. Informações, estas utilizadas nas rotinas LOJA900A  - Produtos e LOJA900C - Estoque/Preço

Descrição:

Atualizações\Cadastros

Localização:

E-commerce

Eventos:

Monitor Serv. CiaShop

Programa Fonte:

LOJA900A  - Produtos

LOJA900C - Estoque/Preço

LOJX904 - Funções e-commerce

Função:

Protheus

Parâmetos:

Nome

Tipo

Descrição

cProduto 

 Caractere

Codigo do produto no ERP
 cCodTab Caractere Código da Tabela de Preço (DA1)

lAtuPrc

Lógico

Atualização de preço nas tabelas de controle

 
 nVlrPrcNumérico Valor Original da Tabela de Preço (DA1)

Retorno:

Nome

Tipo

Descrição

Obrigatório

nVlrPrc 

Numérico

Novo preço de Venda do Produto

Sim 

 

Exemplo:

#Include 'Protheus.ch'

 User Function LJX904VP()
Local cProduto := ""
local lGera := .t.
Local cTabPreco := ""
Local nVlrAtu := 0
Local cTabPad  := SuperGetMV("MV_LJECOMQ", , "001") //Tabela de Preço  - Cenário de Vendas
Local cTabProm := SuperGetMV("MV_LJECOML", , "") //Tabela de Promoção contendo a vigência da Promoção

//Tratamento dos parâmetros de entrada
If ValType(PARAMIXB) == "A" .AND. Len(PARAMIXB) >= 4 .AND. ;
  ValType(PARAMIXB[1]) == "C"  .and. ValType(PARAMIXB[2]) == "C" ;
  .and. ValType(PARAMIXB[4]) == "N"  
 
  cProduto := PARAMIXB[1]
  cTabPreco := PARAMIXB[2]
  
  nVlrAtu := PARAMIXB[4]
 
  //Logica para atualizacao de preço (opcional)
  //So recalcula se não for tabela promocional
  If cTabPreco <> cTabProm
   //Adiciona 10% de tabela de preço padrão
   nVlrAtu *= 1.1
  Else//If cTabPreco = cTabProm
   //Abate 10%  no preço se promoção
   nVlrAtu *= 0.9
  EndIf
 
EndIf


Return nVlrAtu