Linha Microsiga Protheus

Árvore de páginas

GFEA0329 - Inclusão de Campos Específicos do Documento de Carga Para Exibição na Inclusão de Ocorrência

Características do Requisito

Linha de Produto:

Microsiga Protheus

Segmento:

Logística

Módulo:

SIGAGFE

Ponto de Entrada - GFEA0329

Descrição:

Possibilitar a apresentação de um campo especifico no Grid de Trechos e Itinerários dos Documentos de Carga efetuada a partir da opção Ações Relacionadas / Ocorrências do Documento de Carga (GFEA044).

O objetivo deste ponto de entrada é ler o array alimentado com os campos específicos alimentados pelo ponto de entrada GFEA0328 e gavar na tabela temporária que é utilizada para apresentar os Trechos e Itinerários dos Documentos de Carga que possuem o mesmo romaneio ou o mesmo cálculo do documento de carga selecionado.

Importante:

  1. Deve ser realizada a leitura da variável global gravada pelo ponto de entrada GFEA0328, de forma a saber a partir de qual índice encontram-se os campos específicos.
  2. Deve ser efetuada a eliminação da variável global após o ponto de entrada GFEA0329 ser chamado pela última vez. Por este motivo o If existente em conjunto com a função ClearGlbValue deve ser mantido.
  3. Para utilizar este ponto de entrada é obrigatório definir também os pontos de entrada GFEA0324, GFEA0325, GFEA0327 e GFEA0328.

Localização:

Inclusão de Ocorrências.

Programa Fonte:

GFEA032 - Inclusão de Ocorrências

Parâmetros:

Nome
Tipo
Descrição
Obrigatório
PARAMIXB[1]PonteiroTabela temporária usada para apresentar os Trechos e Itinerários dos Documentos de Carga, onde os campos específicos serão gravadosSim
PARAMIXB[2]ArrayContém todos os campos que serão utilizados para gravar na tabela temporária acima.Sim
PARAMIXB[3]Numerico

Linha do array que está sendo lida.

Sim

Retorno:

Não há.

 

Exemplo: GFEA0329
User Function GFEA0329() 
	Local nQtCp
	Local cTabTemporaria := ParamIxb[1]
	Local aDocCarga := ParamIxb[2]
	Local nIndice := ParamIxb[3]
	
	nQtCp := Val(GetGlbValue('GFEA328QtCampos'))	
	
	(cTabTemporaria)->GW1_SIT := aDocCarga[nIndice, nQtCp+1]
	
	If nIndice == Len(aDocCarga)
		ClearGlbValue('GFEA328QtCampos')
	EndIf
Return