Linha Microsiga Protheus.

Home

Linha Microsiga Protheus

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

Versões comparadas

Versão antiga 6

changes.mady.by.user Usuário desconhecido (fernando.gabriel)

Gravado em

comparado com

Nova versão Atual

changes.mady.by.user Juan Pablo Boreggio Bartha

Gravado em

Chave

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

...

Ponto-de-Entrada: PMA100EX - Finalizar exclusão de orçamento Versões: Advanced Protheus 7.10 , Microsiga Protheus 8.11 Idiomas: 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 Retorno lRet (lógico) .T. - Exibe a tela de exclusão .F. - Não exibe Exemplos User function PMA100EX() Local lRet     := .T. Local aAreaAF1    := vazio antes de excluir Vazio validar a exclusão?","Confirmação de Exclusão")             lRet := .F.         EndIf     EndIf EndIf RestArea(aAreaAF1) Return lRet
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
language
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

Informações
c#
titleExemplo:
linenumberstrue
#include "protheus.ch"
#include "totvs.ch"

User function PMA100EX()

Local lRet     := .T.
Local aAreaAF1 :=
title
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

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
 exibir a tela de exclusão?","Confirmação de Exclusão")


            lRet := .F.


        EndIf



    EndIf


EndIf


RestArea(aAreaAF1)


Return lRet