Histórico da Página

Descrição:

O ponto de entrada PMA100EX é utilizado ao final da exclusão do orçamento.

Programa Fonte

PMSA100.PRW

Sintaxe

PMA100EX - Finalizar exclusão de orçamento ( ) --> SEM RETORNO

Retorno
lRet (lógico).T. - Exibe a tela de exclusão .F. - Não exibe

Exemplos

User function PMA100EX()

Local lRet     := .T.
Local aAreaAF1    := AF1->(GetArea())

If AF1->AF1_FASE == "01" .And. Empty(AF1->AF1_VALID)

    If MsgYesNo("A data de validade está vazio. Deseja gravar com a data atual antes de excluir?","Data de Validade Vazio")
        
        RecLock("SF1", .F.)
            AF1->AF1_VALID := dDatabase
        SF1->(MsUnlock())

        If !MsgYesNo("Deseja validar a exclusão?","Confirmação de Exclusão")
            lRet := .F.
        EndIf
    EndIf

EndIf

RestArea(aAreaAF1)
Return lRet