Ponto de Entrada - Lj901SC5
Descrição - Este Ponto de Entrada é executado na rotina LOJA901A, após o pedido e-commerce ser incluído pela rotina automática de Pedido de Venda (MATA410)
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'
Function Lj901SC5()
Local cFilped := ""
Local cNumPed := ""
Local aAreaSC5 := SC5->(GetArea())
Local aAreaSC6 := SC6->(GetArea())
If ValType(PARAMIXB) == "A" .AND. Len(PARAMIXB) >= 2 .AND. ;
ValType(PARAMIXB[1]) == "C" .and. ValType(PARAMIXB[2]) == "C"
cFilped := PARAMIXB[1] cNumPed := PARAMIXB[2]
SC5->(DbSetOrder(1))
SC5->(cFilped + cNumPed))
If SC5->(Found()) .AND. SC6->(DbSeek(SC5->C5_FILIAL + SC5->C5_NUM ))
SC6->(RecLock("SC6", .F.))
SC6->C6_UGERADO := "S"
SC6->(MsUnLock())
EndIf
EndIf
RestArea(aAreaSC5)
RestArea(aAreaSC6)
Return