Linha Microsiga Protheus

Árvore de páginas

  • Criado por Usuário desconhecido (fabiana.silva), última alteração em 30 dez, 2015

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:

Nome

Tipo

Descrição

 cC5_Filial CaractereFilial do Pedido de Venda
 cC5_NumCaractere Número do Pedido de Venda

 

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