Linha Microsiga Protheus

Árvore de páginas

Versões comparadas

Versão antiga 4

changes.mady.by.user Juliani Schlickmann Damasceno

Gravado em

comparado com

Nova versão 5

changes.mady.by.user Guilherme Fre

Gravado em

Chave

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

PE MNTA735A Executado ao montar os detalhes do Check List para execução de regras específicas

Características do Requisito

Linha de Produto:

Microsiga Protheus

Segmento:

Manufatura

Módulo:

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

Rotina:

MNTA735 - Cadastro de Check List

Chamados Relacionados

MNG - 4900

País(es):

Todos

Banco(s) de Dados:

Todos

Sistema(s) Operacional(is):

Todos

Ponto de Entrada

Aviso
titleAviso

Ressaltamos que a implementação de regras específicas devem ser realizadas cuidadosamente para que não ocorram corrompimentos de registros na base de dados do cliente. Ao realizar customizações no processo padrão através do presente PE, o cliente deve atentar-se aos possíveis impactos como desvio de fluxos, corrompimentos de dados com módulos integrados ao Manutenção de Ativos e Gestão de Frotas (SIGAMNT).


Descrição:

A utilização do presente ponto de entrada permite que o usuário efetue a execução de regras específicas, onde essas serão consolidadas no momento da montagem dos detalhes na rotina de Geração de Check List (MNTA735 ).

Localização:

SIGAMNT: Atualizações/Controle de Oficina/ Check List/ Geração de Check List

Programa Fonte:

MNTA735.PRW

Função:

MNTA735A()

Parâmetros:

Nome

Tipo

Descrição

nLinhaNumérico

Número que indica a linha atual que esta sofrendo alteração.

Retorno:
NomeTipoDescrição
aColsArrayArray com registros adicionados na getDados
Obs:A chamada deste ponto de entrada já se encontra posicionada na tabela TTE.

 

Bloco de código
languagecpp
themeEclipse
titleExemp. do Ponto de Entrada MNTA735A
User Function MNTA735A()


    Local aArea     := GetArea()
	Local aCols		 oGrid      := ParamIXB[1]
    Local nCampoAnLinhas   := 0oGrid:Length()
    Local nCampoBnX   := 0
    Local nLinha    := 0 Len(aCols)


    For nCampoAnX := aScan(aHeader, {|x| AllTrim(Upper(X[2])) == "TTG_MARCA"})To nLinhas
		oGrid:AddLine()
    If nCampoA > 0
        aCols[nLinha][nCampoA] := TTE->TTE_MARCA
    Else oGrid:LoadValue('TTD_TIPMOD',Space(1))
        MsgAlert("Campo não encontrado!!","Atenção"oGrid:LoadValue('TTG_ETAPA','Etapa01')
    EndIf
    nCampoB := aScan(aHeader, {|x| AllTrim(Upper(X[2])) == "TTG_SITUAC"})oGrid:LoadValue('TTG_NOMETA','Etapa 01')
    If nCampoB > 0
        aCols[nLinha][nCampoB] := TTE->TTE_SITUAC
    Else oGrid:LoadValue('TTG_CRITIC','')


    Next    MsgAlert("Campo não encontrado!!","Atenção")
    EndIfnX 

    RestArea(aArea)

Return aCols