PE FIMPFCH Permite alterar a Função de impressao da Ficha de Registro chamada no GPEA260

01. DADOS GERAIS

O ponto de entrada é executado na montagem do MenuDef da rotina GPEA260 e pode ser utilizado para alterar o programa da Ficha de Registro.

Por padrão a rotina executa a função GPER460, mas isso pode ser modificado alterando o conteúdo da variável cImpFch.

Exemplo de utilização:

1) Chamada de uma User Function GPER460U

#INCLUDE "PROTHEUS.CH"

User Function FIMPFCH()

	If ExistBlock("gper460U")
		cImpFch := 'EXECBLOCK("gper460U",.F.,.F.)'
	Endif

Return

2) Chamada de uma Function GPER460F

#INCLUDE "PROTHEUS.CH"

User Function FIMPFCH()

	If FindFunction("GPER460F")
		cImpFch := "GPER460F(.F.)"
	EndIf

Return