Linha Microsiga Protheus

Árvore de páginas

Versões comparadas

Versão antiga 1

changes.mady.by.user Usuário desconhecido (amanda.vieira)

Gravado em

comparado com

Nova versão 2

changes.mady.by.user Usuário desconhecido (amanda.vieira)

Gravado em

Chave

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

...

Ponto de Entrada:GFEA3210

Descrição:

Possibilidade de realizar alguma outra ação ao aprovar a ocorrência como, por exemplo, a cópia da ocorrência para outro documento de carga.executar procedimentos na aprovação da ocorrência

Localização:

Chamado no final da função de aprovação manual e no final da função de aprovação automática da ocorrência.

Programa Fonte:

GFEA032 - Ocorrências

Parâmetros:

Necessário enviar as informações da ocorrência na seguinte sequência:

PARAMIXB[1]  = Número da Ocorrência (GWD_NROCO);

PARAMIXB[2]  = Situação da Ocorrência (GWD_SIT);

PARAMIXB[3]  = 1 se chamado por meio da função de aprovação manual da ocorrência ou 2 se chamado por meio da função de aprovação automática da ocorrência

NomeTipoDescriçãoObrigatório
PARAMIXB[1] CaracterNúmero da Ocorrência (GWD_NROCO)Sim
PARAMIXB[2] CaracterSituação da Ocorrência (GWD_SIT)Sim
PARAMIXB[3]Numérico

Indica de qual ponto do programa a função foi chamada.

  • Recebe 1 se chamado por meio da função de aprovação manual da ocorrência;
  • Recebe 2 se chamado por meio da função de aprovação automática da ocorrência.
Sim

.

Retorno:

Nada é retornado.
Bloco de código
languagedelphi
firstline1
titleExemplo: GFEA3210
linenumberstrue
#INCLUDE "PROTHEUS.CH"
 User Function GFEA3210()
Local nNrOcor   := PARAMIXB[1] 
Local cSituacao := PARAMIXB[2] 
Local cPonto     := PARAMIXB[3] 
  
	If  cPonto  == 1 .And.  cSituacao = "2" //Valida se a função foi chamada da aprovação manual e se  é uma aprovação da ocorrência 
		//Realiza procedimentos necessários
	EndIf
 
Return