Histórico da Página

...

Portuguese

Pagetitle

	PMA100EX - Finalizar exclusão de orçamento
	PMA100EX - Finalizar exclusão de orçamento

Ponto-de-Entrada: PMA100EX - Finalizar exclusão de orçamento

Versões:	Advanced Protheus 7.10 , Microsiga Protheus 8.11
Idiomas:	Português, Espanhol, Inglês

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 lRet

Retorno

lRet (lógico) --> .T. - Exibe a tela de exclusão do orçamento / .F. - Não exibe

Bloco de código

#include "protheus.ch"
#include "totvs.ch"

User function

ExemplosUser 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

 vazia. Deseja gravar a exclusão com a data atual

antes de excluir

?","Data de Validade

Vazio

 Vazia")


        RecLock("SF1", .F.)


            AF1->AF1_VALID := dDatabase


        SF1->(MsUnlock())



        If !MsgYesNo("Deseja

validar a

 exibir a tela de exclusão?","Confirmação de Exclusão")


            lRet := .F.


        EndIf



    EndIf



EndIf



RestArea(aAreaAF1)


Return lRet

Home