Histórico da Página

/*/{Protheus.doc} User Function ACD250I 
    Valida de continua com a baixa do empenho
    @type  Function
    @author TOTVS
    /*/
User Function  ACD250I()
    Local aArea := GetArea()
    Local lRet := .F.

    // Validações do Cliente
    If MsgYesNo("Deseja realizar o empenho?"+Chr(13)+"OP: "+SD3->D3_OP,"ACD250I")
       lRet := .T.
    Endif

    // retorna
    RestArea(aArea)
Return(lRet)