Linha Microsiga Protheus

Árvore de páginas

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.