Histórico da Página
Ponto de Entrada - Lj901SL1
Descrição - Este Ponto de Entrada é executado na rotina LOJA901A, para processamento adicionais após o pedido e-commerce ser incluído pela rotina de automática de Venda Assistida (LOJA701)
Descrição: | Atualizações\Cadastros | ||||||||||
Localização: | E-commerce | ||||||||||
Eventos: | Monitor Serv. CiaShop | ||||||||||
Programa Fonte: | LOJA901A - Pedidos | ||||||||||
Função: | Protheus | ||||||||||
Parâmetos: |
|
Exemplo:
#Include 'Protheus.ch'
User Function Lj901SL1()
Local cFilOrc := ""
Local cNumOrc := ""
Local aAreaSL1 := SL1->(GetArea())
Local aAreaSL2 := SL2->(GetArea())
If ValType(PARAMIXB) == "A" .AND. Len(PARAMIXB) >= 2 .AND. ;
ValType(PARAMIXB[1]) == "C" .and. ValType(PARAMIXB[2]) == "C"
cFilOrc := PARAMIXB[1]
cNumOrc := PARAMIXB[2]
SL1->(DbSerOrder(1))
SL1->(DbSeek( cFilOrc + cNumOrc))
SL2->(DbSetOrder(1))
SL2->(DbSeek( cFilOrc + cNumOrc)
If SL1->(Found()) .AND. SL2->(Found())
RecLock("SL2", .F.)
SL2->L2_UFILRES := SL1->L1_FILRES //Filial do Pedido de Venda
SL2->L2_UPEDRES := SL1->L1_PEDRES //Pedido de venda
SL2->(MsUnLock())
EndIf
EndIf
RestArea(aAreaSL1)
RestArea(aAreaSL2) return
Return