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