Linha Microsiga Protheus

Árvore de páginas

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

Ponto de Entrada - Lj900DGP

Este Ponto de Entrada é executado na rotina LOJA900D , para indicar se a característica do produto deve ou não ir para a integração.

Descrição:

Atualizações\Cadastros

Localização:

E-commerce

Eventos:

Monitor Serv. CiaShop

Programa Fonte:

LOJA900D - Características

Função:

Protheus

Parâmetos:

Nome

Tipo

Descrição

cProduto 

 Caractere

Código do produto no ERP

 

 

Retorno:

Nome

Tipo

Descrição

Obrigatório

 lGera

 Lógico

Indica se deve ser gerado o XML com as características do Produto.

Importante: caso o ponto de entrada do produto retorne que não seja gerado os dados -  retorno .F., os campos de controle de processamento do registro serão gravados para que o produto não seja selecionado na próxima execução da rotina

Sim 

 

Exemplo:

#Include 'Protheus.ch

 User Function Lj900DGP()
Local cProduto := ""
local lGera := .t.
Local aArea := {}


//Tratamento dos parâmetros de entrada
If ValType(PARAMIXB) == "A" .AND. Len(PARAMIXB) >= 1 .AND. ;
  ValType(PARAMIXB[1]) == "C" 
 
 cProduto := PARAMIXB[1]
 
  //Os dados de descrição do e-commerce, ficam na tabela SB5
  aArea := SB5->(GetArea())
  SB5->( dbSetOrder(1) )
  SB5->( dbSeek( xFilial("SB5") + cProduto ) )
  
  lGera := SB5->(Found() .AND. Empty(B5_ECSEQ2))
  
  RestArea(aArea)
EndIf


Return lGera