Linha Microsiga Protheus

Árvore de páginas

Versões comparadas

Versão antiga 2

changes.mady.by.user Marcelo Neumann

Gravado em

comparado com

Nova versão 3

changes.mady.by.user Susan Marjorie Alves

Gravado em

Chave

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

MA630VLE - Realiza validações na exclusão do Processo Produtivo

Linha de Produto:

Protheus

Segmento:

Manufatura

Módulo:

SIGAPCP

Rotina:

Rotina

Nome Técnico

MATA632

Operações

PCPA124Processos Produtivos

Rotina(s) envolvida(s)

Nome Técnico

MATA632

Operações

PCPA124Processos Produtivos

Ponto de Entrada:

MA630VLE - Realiza validações na exclusão do Processo Produtivo.

Tickets relacionados

Requisito/Story/Issue (informe o requisito relacionado):

DMANNEWPCP-127

País(es):

Todos

Banco(s) de Dados:

Todos

Tabelas Utilizadas:

SG2

Sistema(s) Operacional(is):

Todos


Ponto de Entrada

N/A

Descrição:

Este ponto Ponto de entrada Entrada é utilizado para realizar validações no momento da exclusão do PCPA124 - Processos Produtivos.

Localização:

Método ModelPosVld do programa PCPA124 - Processos Produtivos

Função A630ValDel do programa MATA632 - Operações

Eventos:

Programa Fonte:

PCPA124EVDEF.PRW (PCPA124 - Processos Produtivos)

MATA630.PRX (MATA632 - Operações)

Retorno:

Nome

Tipo

Descrição

Obrigatório

lExclui

Lógico

Indicador lógico para permitir ou não a exclusão do Processo Produtivo.

Se retornar FALSO (.F.) a exclusão não será permitida.

Se retornar VERDADEIRO (.T.) será permitida a exclusão. Para manter a originalidade do ponto de entrada (criado no MATA632), caso o ponto de entrada retorne .T., não será realizada a validação padrão das OPs Abertas utilizando o roteiro: "Roteiro/Operação não poderá ser excluído. Existem produções em andamento utilizando esse Roteiro/Operação.".

Sim

 

Exemplo:

#Include 'Protheus.ch'

User Function MA630VLE()

   Local lExcui := .T.

   If ApMsgYesNo("Deseja que o ponto de entrada INTERROMPA a exclusão?", "PONTO DE ENTRADA - MA630VLE")
      lExcui := .F.
      Help(,,'Help',,'Exclusão não permitida!',1,0)
   EndIf

Return lExcui