Linha Microsiga Protheus

Árvore de páginas

Versões comparadas

Versão antiga 7

changes.mady.by.user Sidnei Trevizan

Gravado em

comparado com

Nova versão 8

changes.mady.by.user Sidnei Trevizan

Gravado em

Chave

  • Esta linha foi adicionada.
  • Esta linha foi removida.
  • A formatação mudou.

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:

Nome

Tipo

Descrição

aHeaderArray

Cabeçalho atual disponibilizado pelo sistema

Retorno:
TipoDescrição
CaracterNome do campo de usuário adicionado ao cabeçalho

 

Bloco de código
languagecpp
themeEclipse
titleExemplo do ponto de entrada NGUTIL4D
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