Linha Microsiga Protheus

Árvore de páginas

Versões comparadas

Versão antiga 1

changes.mady.by.user Vivian Beatriz de Almeida Nogueira

Gravado em

comparado com

Nova versão 2

changes.mady.by.user Vivian Beatriz de Almeida Nogueira

Gravado em

Chave

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

MT650PISCA - Controla a geração de OPs intermediárias e empenhos ao realizar um Apontamento de Produção do Chão de Fábrica pelo APP Minha Produção

Linha de Produto:

Protheus

Segmento:

Manufatura

Módulo:

SIGAPCP - Planejamento e Controle da Produção

Parâmetro(s):


Nome
Tipo
Descrição
Default
Obrigatório Referência

PARAMIXB[1]

Model


Model da CYV do SFCA314






Idiomas:

Português (Brasil)

País(es):

Todos

Banco(s) de Dados:

Todos

Sistema(s) Operacional(is):

Todos

Ponto de Entrada

Descrição:

O parâmetro MT650PISCA é utilizado para controlar a geração de OPs Intermediárias e Empenhos ao realizar um Apontamento de Produção do Chão de Fábrica (SFC) pelo APP Minha Produção

Localização:

Function A650OpBatch - Efetua validação de Geração de OPs Intermediárias e Empenhos

Quando o parâmetro 'MV_APTEMP' está marcado é apresentada a pergunta "A OP informada não teve as OPs intermediárias criadas. Deseja mesmo produzi-la?", quando é efetuado um apontamento da produção simples, MOD2 ou SFC, pelo Protheus Padrão. Quando o apontamento é efetuado pelo APP Minha Produção, se o parâmetro 'MV_APTEMP' estiver marcado, o sistema permite prosseguir o apontamento mesmo se a OP não possuir as intermediárias e empenhos.

Quando o parâmetro 'MV_APTEMP' está desmarcado é apresentada a mensagem 'Não é possível registrar o apontamento pois não foi gerado empenho para a OP. Ordem de produção sem empenho.' e não permite realizar o apontamento.

O ponto de entrada MT650PISCA permite que a decisão de prosseguir com um apontamento da produção, efetuado pelo SFC, sem OPs intermediárias e empenhos possa ser efetuada pelo usuário, sem interferência do parâmetro 'MV_APTEMP'.


Programa Fonte:

MATA650.PRX

Sintaxe:

MT650PISCA - Controla a geração de OPs intermediárias no SFC pelo APP  ( [ ] ) --> lRet

Retorno:

lRet

    (logico)
  • É esperada como retorno uma variável lógica onde: 
    .T. →Permite prosseguir com a geração do apontamento sem Empenhos
    .F. →Não permite prosseguir com a geração do apontamento sem Empenhos
Variáveis:
Nome
Tipo
Escopo
Pode Alterar
Descrição
lRet
Lógico
Local
Não
.T. -→Permite prosseguir com a geração do apontamento sem Empenhos
.F. →Não permite prosseguir com a geração do apontamento sem Empenhos
Observações:

Para fazer a validação de geração de OPs Intermediárias ao incluir uma Ordem de Produção(MATA650), é utilizado o Ponto de Entrada MTA650OK: MTA650OK - Inibe diálogo confirmando criação OPs e SCspermitir que o usuário possa sinalizar no apontamento se o apontamento pode ser efetuado caso a OP não possua empenhos, é necessário utilizar a opção de campos customizados disponível no APP Minha Produção Protheus.

No SIGACFG é necessário criar um campo na tabela CYV, do tipo Caracter, com tamanho igual a 1, para o usuário poder informar se pode ou não apontar a OP sem empenho (no exemplo foi criado o campo CYV_APONTA):

Image Added


No programa Formulário do Apontamento da Produção (PCPA125), o campo novo deverá ser incluído na aba "Campos Customizados", para o tipo CustomFieldCharacter, como visível e editável. É possível definir um valor padrão com o conteúdo mais utilizado, ou seja, se a maioria das OPs não podem ser apontadas sem empenho, então o valor padrão deverá ser 'N' (não):


Image Added

Bloco de código
titleExemplo:
linenumberstrue
//--------------------------- EXEMPLO 1  ----------------------------------------------------------------------------------//
User Function MT650PISCA() 
Local lRet  

//...customização do cliente 

Return lRet

//--------------------------- EXEMPLO 2  ----------------------------------------------------------------------------------// 
User Function MT650PISCA()

Local oModel := PARAMIXB[01] // Código do Produto.
Local cAponta
Local lRet := F

If Type("_IsPost314") != "L" //Para i
   _IsPost314 := .F.
EndIf

If _IsPost314 
   cAponta := oModel:GetValue('CYV_APONTA') //campo novo criado na tabela CYV e cadastrado nos campos customizados do formulário no PCPA125
EndIF

If cAponta == 'S'
   lRet :=.T.   
EndIf

Return lRet    
// Lembrando que este PE é chamado a cada apontamento, dependendo das validações pode afetar a performance.