Histórico da Página
PE MNTA735A Preenche de forma automática campos de usuário ao gerar check list.
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
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 de Check List | ||||||
Programa Fonte: | MNTA735.PRW | ||||||
Função: | MNTA735A () | ||||||
Parâmetros: |
| ||||||
Retorno: |
| ||||||
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 aCols := ParamIXB[1] Local nCampoA := 0 Local nCampoB := 0 Local nLinha := ParamIXB[1] Len(aCols) nCampoA := aScan(aHeader, {|x| AllTrim(Upper(X[2])) == "TTG_MARCA"}) If nCampoA > 0 aCols[nLinha][nCampoA] := TTE->TTE_MARCA Else MsgAlert("Atenção", "Campo não encontrado!!") EndIf nCampoB := aScan(aHeader, {|x| AllTrim(Upper(X[2])) == "TTG_SITUAC"}) If nCampoB > 0 aCols[nLinha][nCampoB] := TTE->TTE_SITUAC Else MsgAlert("Atenção", "Campo não encontrado!!") EndIf RestArea(aArea) Return aCols |
Visão Geral
Import HTML Content
Conteúdo das Ferramentas
Tarefas