Histórico da Página

#include 'Protheus.ch'       

User Function FA070BXL()

    Local aAreaSe1 := SE1->(GetArea())

    SE1->(DbGoTop())

    While SE1->(!EOF()) 
        If SE1->E1_LOTE == cLoteFin
            SE1->(RecLock("SE1", .F.))
                SE1->E1_HIST := "P.E. FA070BXL EXECUTADO"
            SE1->(MsUnLock())
        Endif

        SE1->(DbSkip())
    Enddo

    RestArea(aAreaSe1)

Return