Histórico da Página
Ponto de Entrada - Lj901PIt
Descrição - Este Ponto de Entrada é executado na rotina LOJA901A, para informação dos dados adicionais a serem cadastrados na rotina automática de Pedido de Venda (MATA410) para inserção dos itens do item do Pedido de Venda
Descrição: | Atualizações\Cadastros | ||||||||||||
Localização: | E-commerce | ||||||||||||
Eventos: | Monitor Serv. CiaShop | ||||||||||||
Programa Fonte: | LOJA901A - Pedidos | ||||||||||||
Função: | Protheus | ||||||||||||
Parâmetos: |
| ||||||||||||
Retorno: |
|
Exemplo:
#Include 'Protheus.ch'
User Function Lj901PIt()
Local oAItem := NIL
Local oRetExtra := NIL
Local aItem := {}
local aRet := {}
If ValType(PARAMIXB) == "A" .AND. Len(PARAMIXB) >= 3 .AND. ;
ValType(PARAMIXB[1]) == "O" .AND. ValType(PARAMIXB[2]) == "O" .AND. ValType(PARAMIXB[3]) == "A"
oAItem := PARAMIXB[1]
oRetExtra := PARAMIXB[2]
aItem := PARAMIXB[3]
EndIf
aAdd(aRet, {"C6_UCODIGO", oAItem:_PF_ID:TEXT, NIL})
AaDD(aRet, {"C6_UTOTAL", (VAL(oAItem:_ADJUSTED_PRICE:TEXT) / 100), NIL})
Return aRet