Ponto de Entrada - Lj901SL1
Este Ponto de Entrada é executado na rotina LOJA901A, após o pedido e-commerce ser incluído pela rotina 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