01. DADOS GERAIS

Produto:

Linha de Produto:

Segmento:

Módulo:

Função:MNTA656H()
País:Brasil


02. DESCRIÇÃO

Descrição:

Com o PE é permitido considerar os campos de usuários inclusos para ação de Incluir ou Alterar... 
No caso eles são adicionados na Grid, e permite também a alteração da ordem do campos.

Localização:

SIGAMNT: Atualizações/ Controle de Combustíveis/ Abastecimento/Abast. Lote Posto Interno

MNTA656.prx

Função:

MNTA656H

Parâmetros:

NomeTipoDescrição
aHeaderArray

Cabeçalho atual disponibilizado pelo sistema

Retorno:

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

03. DEMAIS INFORMAÇÕES

User Function MNTA656H()
     
    Local aHeaderOld := PARAMIXB[1] // Campos ja existentes na Grid
 
    dbSelectArea("SX3")
    dbSetOrder(2)
    If dbseek("TQN_HRFIM") // Nome do campo de Usuario - Verifica o primeiro campo criado
 
        Aadd(aHeaderOld,{"Teste",X3_CAMPO,X3_PICTURE,X3_TAMANHO,X3_DECIMAL,X3_VALID,X3_USADO,X3_TIPO,X3_F3, X3_CONTEXT, X3_CBOX, X3_RELACAO, X3_WHEN})
 
        nPosCampo       := aSCAN(aHeaderOld,{|x| Trim(Upper(x[2])) == "TQN_HRFIM"}) // Indica a Posição do Campo na Grid
        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
 
 
    If dbseek("TQN_TIPABST") // Nome do campo de Usuario - Verifica o segundo campo Criado
 
        Aadd(aHeaderOld,{"Teste",X3_CAMPO,X3_PICTURE,X3_TAMANHO,X3_DECIMAL,X3_VALID,X3_USADO,X3_TIPO,X3_F3, X3_CONTEXT, X3_CBOX, X3_RELACAO, X3_WHEN})
 
        nPosCampo       := aSCAN(aHeaderOld,{|x| Trim(Upper(x[2])) == "TQN_TIPABST"}) // Indica a Posição do Campo na Grid
        nPosCampoOld    := aSCAN(aHeaderOld,{|x| Trim(Upper(x[2])) == "TQN_HRFIM"})
 
        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


04. ASSUNTOS RELACIONADOS