Árvore de páginas

Versões comparadas

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

campo no Grid  

Ocorrência

Características do Requisito

Linha de Produto:

Microsiga Protheus

Segmento:

Distribuição e Logística

Módulo:

SIGAGFE

Ponto de Entrada - GFEA0328

Descrição:

Possibilitar a exibição apresentação de um campo especifico no grid Grid de Trechos e Itinerários dos Documentos de Carga feita , 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 Documentos de carga 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.

 

NOTA: para usar
  1. Para utilizar este ponto de entrada é obrigatório definir também os pontos de entrada GFEA0324, GFEA0325, GFEA0327 e
GFEA3029
  1. 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
languagedelphithemeMidnight
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