Histórico da Página

#include "protheus.ch"

User function FIN151_1()

    Local cLog := ""
    dbSelectArea("FI2")
    FI2->(DbSetOrder(1))
    FI2->(dbSeek(xFilial("FI2",SE1->E1_FILORIG)+"1"+SE1->(E1_NUMBOR+E1_PREFIXO+E1_NUM+E1_PARCELA+E1_TIPO+E1_CLIENTE+E1_LOJA)))
    
    cLog += "Tit SE1 : " + SE1->E1_PREFIXO + " " + SE1->E1_NUM + " " + SE1->E1_PARCELA + " " + SE1->E1_TIPO
    cLog += chr(10) + chr(13)
    cLog += "Tit FI2 : " + FI2->FI2_PREFIX + " " + FI2->FI2_TITULO + " " + FI2->FI2_PARCEL + " " + FI2->FI2_TIPO  

    FWAlertInfo(cLog, "O ponto de entrada FIN151_1 esta sendo executado e nele será feito o posicionamento na FI2")

Return