DT_Lj901SL1_Integracao_e-Commerce_CiaShop

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)

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