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: | Microsiga Protheus |
Segmento: | Manufatura |
Módulo: | Manutenção de Ativos e Gestão de Frotas - SIGAMNT |
Rotina: | MNTA656 - Abastecimento em Lote de Posto Interno |
Chamados Relacionados | MNG-4035 |
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çalhoMNTA656 | ||||||
Localização:SIGAMNT: Atualizações/ Controle de Combustíveis/ Abastecimento/Abast. Lote Posto Interno | MNTA656 | ||||||
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