Linha Microsiga Protheus

Árvore de páginas

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

Ponto de Entrada - LJ901SE1 

Este Ponto de Entrada é executado na rotina LOJA901A , antes da inclusão do título de Contas a Receber pela rotina FINA040

Descrição:

Atualizações\Cadastros

Localização:

E-commerce

Eventos:

Monitor Serv. CiaShop

Programa Fonte:

LOJA901A - Pedidos

Função:

Protheus

Parâmetos:

Nome

Tipo

Descrição

 aSE1 Array Array dos Campos a serem inseridos pela rotina automática
 oAPed

Objeto

Objeto XML do Pedido e-commerce

oRetExtra

Objeto

Objeto XML referente aos dados extra do pedido e-commerce

Retorno:

Nome

Tipo

Descrição

Obrigatório

 aRetSE1

 

 Array

Array unidimensional, contendo os campos a serem inseridos pela rotina automática; senão houver campos, informar array vazio

Sim 

 

Exemplo:

#Include 'Protheus.ch'

User Function LJ901SE1()

Local aSE1 := {}
local oAPed := NIL
Local oRetExtra := NIL
Local lE1_XPEDECO := SE1->(FieldPos("E1_XPEDECO")) > 0
Local aRetSE1 := {}
Local cPedECom := ""

//Tratamento dos parâmetros de entrada
If ValType(PARAMIXB) == "A" .AND. Len(PARAMIXB) >= 3 .AND. ;
  ValType(PARAMIXB[1]) == "A"  .AND. ValType(PARAMIXB[2]) == "O"
  
 oAPed := PARAMIXB[2]
 aSE1 := PARAMIXB[1]

 If ValType(PARAMIXB[3]) == "O"
  //Dados extra do Pedido
  oRetExtra := PARAMIXB[3]
 EndIf

 
 If lE1_XPEDECO
  cPedECom := oAPed:_RECEIPT_DETAILS:_ORDER_ID:TEXT  

   aAdd(aRetSE1, {"E1_XPEDECO"  , cPedECom, nil})
 EndIf
 
EndIf

Return aRetSE1