Histórico da Página
PE MNTA656H
Altera ordenação ou inclui campoPermite incluir e alterar campos de usuário no cabeçalho e ajustar a ordenação.
Características do Requisito
Linha de Produto: | MNTA656 - Abastecimento de Posto InternoMicrosiga Protheus |
Segmento: | MNTA656 - Abastecimento de Posto InternoManufatura |
Módulo: | MNTA656 - Abastecimento de Posto InternoManutenção de Ativos e Gestão de Frotas - SIGAMNT |
Rotina: | MNTA656 - Abastecimento em Lote de Posto Interno |
Chamados Relacionados | MNG - 4035 MNG - 4254 MNG - 4857MNTA656 - Abastecimento de Posto Interno |
País(es): | Todos |
Banco(s) de Dados: | Todos |
Sistema(s) Operacional(is): | Todos |
Ponto de Entrada
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.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] // Campos ja Localexistentes nDel := 0na 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*/.T., X3_, 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_HRFIMTIPABST"}) // Indica a Posição do Campo na Grid nPosCampoOld := aSCAN(aHeaderOld,{|x| Trim(Upper(x[2])) == "TQN_HRABASHRFIM"}) 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