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 ( ) --> lRet
Retorno
lRet (lógico) --> .T. - Exibe a tela de exclusão do orçamento / .F. - Não exibe
Exemplo:
#include "protheus.ch" #include "totvs.ch" 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á vazia. Deseja gravar a exclusão com a data atual?","Data de Validade Vazia") RecLock("SF1", .F.) AF1->AF1_VALID := dDatabase SF1->(MsUnlock()) If !MsgYesNo("Deseja exibir a tela de exclusão?","Confirmação de Exclusão") lRet := .F. EndIf EndIf EndIf RestArea(aAreaAF1) Return lRet
Visão Geral
Import HTML Content
Conteúdo das Ferramentas
Tarefas