Histórico da Página

Ponto de entrada para

utilização

customização adicional no Retorno

Mod2

Mod. 2

Características do Requisito

Linha de Produto:

Microsiga Protheus

Segmento:

Manufatura

Módulo:

SIGAMNT - Manutenção de Ativos e Gestão de Frotas

Rotina:

Rotina	Nome Técnico
MNTA435	Retorno Mod2

Chamados Relacionados

DNG-3844

País(es):

Todos

Banco(s) de Dados:

Todos

Sistema(s) Operacional(is):

Todos

Ponto de Entrada

Função:FVALIDOKDetalhes

Descrição:

Ponto de entrada acionado na validação do Retorno Mod2Modelo 2 (MNTA435) que permite validação adicional antes da gravação dos insumos.

Localização:

SIGAMNT: Atualizações/Controle de Oficina/Retorno de OS/Retorno Mod2 Mod. 2 (MNTA435)

Eventos:

Retorno Mod2 Mod. 2 (MNTA435)

Programa Fonte:

MNTA435.PRW

Funções

MNTA435N()

Parâmetros:

PosiçãoNome	Tipo	Descrição	Obrigatório
ParamIXB[1]	Caracter	Id que indica o local da chamada do ponto de entrada	Sim

A partir da 2ª posição os parâmetros podem ser diferentes de acordo com o ID, como citado na tabela abaixo:

Nome	Tipo	Descrição

Demais Parâmetros

VALID_OK

Posição

Tipo

	Obrigatório
ParamIXB[2]	Array

Informações das ordens de serviço

Posição
1	Caracter	Número da O.S.
2	Caracter	Plano
3	Array	Insumos previstos já salvos
4	Array	Insumos realizados já salvos
5	Array	Todos os insumos realizados e modificados

Sim

Retorno:

IDNome	Tipo	Descrição	Obrigatório
VALID_OK.T. / .F.	Lógico	Se obteve sucesso nas Define se poderá prosseguir após as validações	Sim

Bloco de código

language	sql
firstline	1
title	Exemplo

: PE MNTA902G

de ponto de entrada MNTA435
linenumbers	true

#include

"Protheus.ch" #include"hbutton.ch" #include"DbTree.ch" User Function MNTA902G() oPnlBtn2

 'protheus.ch'

//-------------------------------------------------------------------
/*/{Protheus.doc} U_MNTA435
Exemplo da utilização do ponto de entrada MNTA435, ID "VALID_CONFIRM" 
Neste exemplo o objetivo é não permitir incluir um insumo de MDO com 
data menor que a data atual

@obs
@author  NG Informática
@since   12/02/2019
@return lógico, se obteve sucesso nas validações
@obs neste exemplo é utilizado o retorno lógico utilizado para o ID "VALID_CONFIRM" 
/*/
//-------------------------------------------------------------------
User Function MNTA435N()
    
    Local aArea     := GetArea()
    Local cId       := PARAMIXB[1] //Indica o momento da chamada do PE
    Local aDadosOS  := {}
    Local aInsumos  := {} //

Adição

Array de

botão

insumos

com

realizados

chamada

do

relatório

de

Local

OS

nOrdem

oBtnPE

Local nInsumo
	Local nPosTipReg :=

TBtnBmp2():New( 00,00,27,25,"NG_ICO_ATV_LOC_M",,,,{|| MNTR675()},oPnlBtn2,"Ponto de Entrada",bOk,.T. ) //"Ponto de Entrada" oBtnPE:Align := CONTROL_ALIGN_TOP //Adição de botão sem chamada de rotina oBtnPE2 := TBtnBmp2():New( 00,00,27,25,"NG_ICO_VIS_RES_M",,,,,oPnlBtn2,"Ponto de Entrada2",bOk,.T. ) //"Ponto de Entrada" oBtnPE2:Align := CONTROL_ALIGN_TOP Return oPnlBtn2

 aScan(aHoBrw2,{|x| Trim(Upper(x[2])) == "TL_TIPOREG"})
	Local nPosDtInic := aScan(aHoBrw2,{|x| Trim(Upper(x[2])) == "TL_DTINICI"})
    
	If cId == "VALID_CONFIRM"
		//Array com os dados das ordens de serviço
		aDadosOS := ParamIXB[2] 
	
        //Percorre o array de ordens
        For nOrdem := 1 To Len( aDadosOS )
            
            //Verifica se há insumos realizados
            If ValType( aDadosOS[ nOrdem, 5 ] ) == "A" 
                aInsumos := aClone( aDadosOS[ nOrdem, 5 ] )
            
                //Percorre o array de insumos realizados
                For nInsumo := 1 to Len( aInsumos )
                   
                    If !aTail( aInsumos[ nInsumo ] ); //Verifica se não está deletado
                        .And. aInsumos[ nInsumo, nPosTipReg ] == "M"; //Verifica se é insumo do tipo MDO
                        .And. aInsumos[ nInsumo, nPosDtInic ] < dDatabase // Verifica se a data é menor que a data atual
                        
						//Apresenta para o usuário o número da OS que há uma inconsistência
                        MsgAlert( "Ordem " + aDadosOS[ nOrdem, 1 ] +  ": a data dos insumos tipo mão de obra não pode ser menor que a data atual.")
                        
                        //Quando há problema, deve retornar falso
                        RestArea( aArea )
                        Return .F.            
                    EndIf
                    
                Next nInsumo

            EndIf
        Next nOrdem
        
        //Quando não houver problema retorna sucesso na validação
        RestArea( aArea )
        Return .T.
    EndIf
 
Return

Árvore de páginas

Versões comparadas

Versão antiga 3

Nova versão Atual

Chave

Ponto de entrada para

customização adicional no Retorno

Mod. 2

Características do Requisito

Ponto de Entrada