Linha Microsiga Protheus

Árvore de páginas

01. DADOS GERAIS

Linha de Produto:Microsiga Protheus®
Segmento:Backoffice
Módulo:Financeiro
Função:

Aprovação e Rejeição de Transferência (FINA630)

02. DESCRIÇÃO

Este ponto de entrada permite a alteração do campo E5_HISTOR.

03. DEMAIS INFORMAÇÕES

Não se aplica.

04. ASSUNTOS RELACIONADOS

05. PARÂMETROS

Não se aplica.

06. RETORNO

NomeTipoDescrição
cRetCaractereRetorna a alteração realizada no campo E5_HISTOR.

07. EXEMPLO DE UTILIZAÇÃO

F630HIST
#include "protheus.ch"

/*/{Protheus.doc} F630HIST
    O ponto de entrada F630HIST permite a alteração do campo E5_HISTOR.   
	@author 
	@since 03/07/2012
	@version 12.1.2410
/*/  #Include "Protheus.ch"

User Function F630HIST()

	Local cHist  as Caracter
	Local cBanco as Caracter
	Local cTipo  as Caracter

	cHist  := ""
	cBanco := ""
	cTipo  := ""

	//Exemplo simples de verificação se o campo E5_HISTOR está vazio e possui banco no registro, substituindo o E5_HISTOR vazio por uma descrição.
	cHist  := SE5->E5_HISTOR
	cBanco := SE5->E5_BANCO
	cTipo  := SE5->E5_TIPO

	If Empty(cHist) .AND. !Empty(cBanco)
		cHist := "Título " + cTipo + " c/ banco " + cBanco
	EndIf

Return cHist