Histórico da Página
PE MNTA656H Altera ordenação ou inclui campo de usuário no cabeçalho
Características do Requisito
Linha de Produto:SA | MNTA656 - Abastecimento de Posto Interno |
Segmento:Manufatura | MNTA656 - Abastecimento de Posto Interno |
Módulo: | SIGAMNT - Manutenção de Ativos e Gestão de Frotas MNTA656 - Abastecimento de Posto Interno |
Rotina: | MNTA656 - Abastecimento de Posto Interno |
Chamados RelacionadosMNG | -4035 MNTA656 - Abastecimento de Posto Interno |
País(es):Todos | |
Banco(s) de Dados: | Todos |
Sistema(s) Operacional(is): | Todos |
Ponto de Entrada
Descrição: | Altera ordenação ou inclui campo de usuário no cabeçalho | ||||||
Localização: | SIGAMNT: Atualizações/ Controle de Combustíveis/ Abastecimento/Abast. Lote Posto Interno | ||||||
Programa Fonte: | MNTA656.PRW | ||||||
Função: | MNTA656H () | ||||||
Parâmetros: |
| ||||||
Retorno: |
|
Bloco de código | ||||||
---|---|---|---|---|---|---|
| ||||||
User Function MNTA656H() Local aHeaderOld := PARAMIXB[1] Local nDel := 0 dbSelectArea("SX3") dbSetOrder(2) If dbseek("TQN_HRFIM") //Nome do campo de Usuario Aadd(aHeaderOld,{"Teste",X3_CAMPO,X3_PICTURE,X3_TAMANHO,X3_DECIMAL,X3_VALID,X3_USADO,X3_TIPO,X3_F3, /*X3_CONTEXT*/.T., X3_CBOX, X3_RELACAO, X3_WHEN}) nPosCampo := aSCAN(aHeaderOld,{|x| Trim(Upper(x[2])) == "TQN_HRFIM"}) nPosCampoOld := aSCAN(aHeaderOld,{|x| Trim(Upper(x[2])) == "TQN_HRABAS"}) aCampUser := aClone(aHeaderOld[nPosCampo]) aDel(aHeaderOld, nPosCampo) aIns(aHeaderOld,nPosCampoOld+1) aHeaderOld[nPosCampoOld+1] := aClone(aCampUser) If ValType(aHeaderOld) == "A" .And. Len(aHeaderOld) > 0 aHeader := aClone(aHeaderOld) EndIf Else MsgAlert("Campo não encontrado", "Atenção") EndIf Return |
Visão Geral
Import HTML Content
Conteúdo das Ferramentas
Tarefas