MT680VAL - Inclusão das Produções

Linha de Produto:	Protheus
Segmento:	Manufatura
Módulo:	SIGAPCP - Planejamento e Controle da Produção
Ponto de Entrada:	MT680VAL - Inclusão das Produções
País(es):	Todos
Idiomas:	Espanhol , Inglês
Banco(s) de Dados:	Todos
Sistema(s) Operacional(is):	Todos

Ponto de Entrada

Descrição:

É chamado na confirmação da inclusão das produções PCP, modelo I e II (função A680TudoOk()).

É utilizado para validar a inclusão do apontamento das produções PCP.

Para verificar de qual programa esta chamando a função, utilize as variáveis Private l680,l681,l682 e l250 a partir da versão 6.09.

Localização:

Function A680TudoOk() - Programa que faz consistências após a digitação da tela.

Parâmetro(s):

	Nome		Tipo		Descrição		Default		Obrigatório		Referência
	PARAMIXB[1]		Caractere		Informação do Local

Programa Fonte:

MATA680.PRX

Sintaxe:

MT680VAL - Inclusão das Produções ( ) --> lRet

Retorno:

lRet(logico)

Em caso de retorno afirmativo (.T.), permite incluir o apontamento.
Em caso de retorno negativo (.F.), nao permite incluir o apontamento.

Observações:

Caso for utilizada a rotina automática do MATA241 - Movimentação Interna, pelo ponto de entrada MT680VAL, deverão ser declaradas as seguintes variáveis do tipo Private: Private l250, l240, l241 . Conforme exemplo abaixo.

Exemplo

#include 'totvs.ch'
#include 'Protheus.ch'
#include 'tbiconn.ch'
#include 'rwmake.ch'
  
User Function MT680VAL()
 
    Local lRet := .T.
    Local cLocal := PARAMIXB[1]
 
    //Regras do usuário
 	U_TMATA241( )
 
Return lRet

User Function TMATA241( )    
    Local _aCab1    := {}
    Local _aItem    := {}
    Local _atotitem := {}
    Local cCodigoTM := "501"
    Local cCodProd  := "1438           "                       
    Local cUnid     := "PC"
 
    Private lMsHelpAuto := .T.
    Private lMsErroAuto := .F.    
    Private l250, l240, l241
   
    PREPARE ENVIRONMENT EMPRESA "99" FILIAL "01" MODULO "EST"
 
    _aCab1 := {{"D3_DOC" ,NextNumero("SD3",2,"D3_DOC",.T.), NIL},;
        	   {"D3_TM" ,cCodigoTM , NIL},;
   		       {"D3_EMISSAO" ,ddatabase, NIL}}    
    
    _aItem:={{"D3_COD" ,cCodProd ,NIL},;    
    		 {"D3_QUANT" ,1 ,NIL},;
    		 {"D3_LOCAL" ,"01  " ,NIL},;    
    		 {"D3_OP" ,"04070401001   ",NIL},;
    		 {"D3_LOTECTL", "          ", NIL}}
    
    AADD(_atotitem,_aitem)
    MSExecAuto({|x,y,z| MATA241(x,y,z)},_aCab1,_atotitem,3)
    
    If lMsErroAuto
        Mostraerro()
        DisarmTransaction()        
    EndIf

    Pergunte("MTA680",.F.)
  
Return .F.

Árvore de páginas

MT680VAL - Inclusão das Produções

MT680VAL - Inclusão das Produções

Ponto de Entrada