Linha Microsiga Protheus

Árvore de páginas

Versões comparadas

Versão antiga 97

changes.mady.by.user Andre Luis Wisnheski

Gravado em

comparado com

Nova versão Atual

changes.mady.by.user Andre Luis Wisnheski

Gravado em

Chave

  • Esta linha foi adicionada.
  • Esta linha foi removida.
  • A formatação mudou.
Comentário: Migration of unmigrated content due to installation of a new plugin

GFEA0328 - 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 - GFEA0328

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 campo específico do banco de dados e atribuir o conteúdo ao array passado como primeiro parâmetro, que contém 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. A variável global GFEA328QtCampos deve ser definida para utilização no ponto de entrada GFEA0329.
  2. Para utilizar este ponto de entrada é obrigatório definir também os pontos de entrada GFEA0324, GFEA0325, GFEA0327 e GFEA0329.

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]ArrayInformações dos Trechos e Itinerários dos Documentos de Carga com o mesmo número do romaneio ou mesmo cálculo do Documento de Carga selecionado no GFEA044.Sim
PARAMIXB[2]Inteiro

Quantidade de campos do primeiro parâmetro.

Sim

Retorno:

Nome

Tipo

Descrição

Obrigatório

aRom
ArrayTrechos e ItineráriosSim

 

Bloco de código
languagedelphi
titleExemplo: GFEA0328
linenumberstrue
User Function GFEA0328()
Local nI
Local aAreaGW1 := GW1->( GetArea() )
Local aDocCarga := ParamIxb[1]
Local nQtdeCampos := ParamIxb[2]


PutGlbValue('GFEA328QtCampos',cValToChar(nQtdeCampos))


For nI := 1 to Len(aDocCarga)
	dbSelectArea("GW1")
	dbSetOrder(1)
	dbSeek(aDocCarga[nI,1]+aDocCarga[nI,2]+aDocCarga[nI,3]+aDocCarga[nI,4]+aDocCarga[nI,5])
	aSize(aDocCarga[nI],Len(aDocCarga[nI]) + 1)
	aDocCarga[nI,nQtdeCampos+1] := GW1->GW1_SIT
Next nI


RestArea (aAreaGW1)


Return aDocCarga