Linha Microsiga Protheus

Árvore de páginas

Versões comparadas

Versão antiga 2

changes.mady.by.user Ana Claudia Da Silva

Gravado em

comparado com

Nova versão 3

changes.mady.by.user Usuário desconhecido (wander.horongoso)

Gravado em

Chave

  • Esta linha foi adicionada.
  • Esta linha foi removida.
  • A formatação mudou.

GFEA0328- Inclusão de campo no Grid  

Características do Requisito

Linha de Produto:

Protheus

Segmento:

Distribuição e Logística

Módulo:

SIGAGFE

Ponto de Entrada - GFEA0328

Descrição:

Possibilitar a exibição de um campo especifico na inclusão de ocorrências (GFEA032), no grid de documentos de carga.no grid de Trechos e Itinerários dos Documentos de Carga feita 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.

 

A variável global GFEA328QtCampos deve ser definida para utilização no ponto de entrada GFEA0329.

 

NOTA: para usar este ponto de entrada é obrigatório definir também os pontos de entrada GFEA0324, GFEA0325, GFEA0327 e GFEA3029NOTA: os pontos de entrada GFEA0327, GFEA0328 e GFEA0329 só funcionarão se usados em conjunto.

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

Filial do RomaneioQuantidade de campos do primeiro parâmetro.

Sim

Retorno:

Nome

Tipo

Descrição

Obrigatório

aRom
ArrayTrechos e ItineráriosSim
arom[1]
Array

Informações Trechos e Itinerários

Sim

 

 

Bloco de código
languagedelphi
themeMidnight
titleExemplo: GFEA0328
linenumberstrue
User Function GFEA0328()
Local aPosnI
Local aAreaGW1 := GW1->( GetArea() )
Local aDocCarga := PARAMIXBParamIxb[1]
Local aStructnQtdeCampos   := PARAMIXBParamIxb[2]
 
    // Realizar as alterações necessárias
Return {arom, arom[1]}


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