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: | SIGAMNT - Manutenção de Ativos e Gestão de Frotas |
Rotina: | MNTA656 - Abastecimento 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ç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 aHeader[nPosCampoOld+1][2]
|
Visão Geral
Import HTML Content
Conteúdo das Ferramentas
Tarefas