Linha Microsiga Protheus

Árvore de páginas

ADICIONAR CAMPO NA GRID DO PROGRAMA OPERAR PONTO DE CONTROLE

Características do Requisito

Linha de Produto:

Microsiga Protheus

Segmento:

Supply Chain - Logística

Módulo:

SIGAGFE

Ponto de Entrada

Descrição:

Inclusão de campos na grid da tela de Operar ponto de controle.

Localização:

GFEA523

Programa Fonte:

GFEA5231

Função:

User Function GFEA5231()

Retorno:

Nome

Tipo

Descrição

Obrigatório

 aEst1

A

Array com a estrutura do cabeçalho

Sim

 aEst2

A

Array com a estrutura do campo a ser exibido na tabela

Sim

 aEst3

A

Array com o valor do campo

Sim

 

Exemplo:

Exemplo GFEA5231
#include 'protheus.ch'
#include 'parmtype.ch'
User Function GFEA5231()
Local aEst1 := {}
Local aEst2 := {}
Local aEst3 := {}
Local aTmpEst1 := {}
Local aTmpEst2 := {}
Local aTmpEst3 := {}
Local cTab := ""
Local nX := 0
If Len(PARAMIXB) <> 0 //Verifica se os parametros não estão vazios.
   cTab := PARAMIXB[1]
   nX := PARAMIXB[2]
EndIf
//Estrutura para o cabeçalho
aTmpEst1 := {"GX4_FILIAL", "C", TamSx3("GX4_FILIAL")[1], 0}
aadd(aEst1,aTmpEst1)
//Estrutura para o campo a ser preenchido {Titulo,Nome do campo,Tipo,Tamanho,Decimal,Picture}
aTmpEst2 := {"Filial","GX4_FILIAL" ,"C",TamSx3("GX4_FILIAL")[1],0, ""}
aadd(aEst2,aTmpEst2)

If !Empty(cTab)
   /**************************************************************************
   Campos da tabela temporária vinda do padrão que é passada por parâmetro
   (cTab)->GX4_FILIAL
   (cTab)->GX4_NRMOV
   (cTab)->GX4_SEQ
   (cTab)->GX3_SIT
   (cTab)->PLACAS
   (cTab)->ENDERECO
   (cTab)->GX4_CDENDE
   (cTab)->DTENTRADA
   (cTab)->DTINICARG
   (cTab)->DTFIMCARG
   (cTab)->DTLIBERAC
   (cTab)->DTSAIDA 
   ****************************************************************************/
//Valor que vai pra tabela temporaria que monta o grid
aTmpEst3 := "XVALOR"
aadd(aEst3,aTmpEst3)
Return ({aEst1, aEst2, aEst3})