Ponto de Entrada - LJX904PR

Este Ponto de Entrada é executado na rotina Lj904XPr - para indicar se o preço do produto deve ou não ir para a integração. 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

 

Retorno:

Nome

Tipo

Descrição

Obrigatório

lGera

 

 Lógico

Indica se deve ser enviado o preço de venda do produto.

Sim 

 

Exemplo:

#Include 'Protheus.ch'

User Function LJX904PR()
Local cProduto := ""
local lGera := .t.
Local cTabPreco := ""
Local aAreaDA1 := DA1->(GetArea())
//Tratamento dos parâmetros de entrada
If ValType(PARAMIXB) == "A" .AND. Len(PARAMIXB) >= 2 .AND. ;
  ValType(PARAMIXB[1]) == "C"  .and. ValType(PARAMIXB[2]) == "C"  
 
  cProduto := PARAMIXB[1]
  cTabPreco := PARAMIXB[2]
 
  //Logica para atualizacao de preço (opcional)
  DA1->(DbSetorder(1))
  lGera := DA1->(DbSeek(xFilial("DA1") + cTabPreco + cProduto))
  
  RestArea(aAreaDA1)
 
EndIf

Return lGera