Home

Linha Microsiga Protheus

Páginas filhas
  • PMA100EX - Finalizar exclusão de orçamento

Versões comparadas

Chave

  • Esta linha foi adicionada.
  • Esta linha foi removida.
  • A formatação mudou.

...

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 exibeExemplos


Bloco de código
languagec#
titleExemplo:
linenumberstrue
#include "protheus.ch"
#include "totvs.ch"

User function 
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
 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