Histórico da Página
PE
MNTA735A Preenche de forma automática campos de usuário ao gerar check list.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 Retorno 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 | ||
---|---|---|
| ||
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 Retorno de Check List (MNTA735 ) | Descrição: | Com o PE é permitido carregar informações automaticamente de campos de usuários inclusos caso eles são adicionados na Grid.
| ||||||
Localização: | SIGAMNT: Atualizações/Controle de Oficina/ Check List/ Geração Retorno de Check List | ||||||||
Programa Fonte: | MNTA735.PRW | ||||||||
Função: | MNTA735A() | ||||||||
ParâmetrosRetorno: |
| ||||||||
Obs: | A chamada deste ponto de entrada já se encontra posicionada na tabela TTE. |
Bloco de código | ||||||
---|---|---|---|---|---|---|
| ||||||
User Function MNTA735A() Local aArea := GetArea() Local oGrid Local nCampoA := 0ParamIXB[1] Local nCampoBnLinhas := 0oGrid:Length() Local nX nLinha := ParamIXB[1] nCampoA := aScan(aHeader, {|x| AllTrim(Upper(X[2])) == "TTG_MARCA"}) If nCampoA > 00 For aCols[nLinha][nCampoA] nX := TTE->TTE_MARCA ElseTo nLinhas oGrid:AddLine() MsgAlert("Atenção", "Campo não encontrado!!"oGrid:LoadValue('TTD_TIPMOD',Space(1)) EndIf nCampoB := aScan(aHeader, {|x| AllTrim(Upper(X[2])) == "TTG_SITUAC"}oGrid:LoadValue('TTG_ETAPA','Etapa01') If nCampoB > 0 aCols[nLinha][nCampoB] := TTE->TTE_SITUAC Else oGrid:LoadValue('TTG_NOMETA','Etapa 01') MsgAlert("Atenção", "Campo não encontrado!!") EndIfoGrid:LoadValue('TTG_CRITIC','') Next nX RestArea(aArea) Return aCols |