01. DADOS GERAIS

Produto:

Linha de Produto:

Segmento:

Módulo:

Função:GPEM080
País:Brasil
Ticket:21058870
Issue:DRHROTPRT-20766

02. DESCRIÇÃO

O Ponto de Entrada GPM080HB é executado ao final do processamento da rotina, permitindo acessar as variáveis disponíveis com os valores totais para possíveis adequações de layouts específicos conforme a necessidade.

Rotina: GPEM080 - Geração do Arquivo de Líquidos

Parâmetros: N/A

Retorno: N/A

03. DEMAIS INFORMAÇÕES

O PE GPM080HB é utilizado em conjunto com o arquivo de configuração, buscando o conjunto de caracteres indicado para substituição pelo conteúdo a ser gerado no header do arquivo conforme exemplo abaixo:

Arquivo de configuração utilizando a string exemplo

#INCLUDE "Protheus.ch"
User Function GPM080HB()
	Local cCabec	:= ""
	Local cValorTot	:= ""
	Local cStrBusca	:= "POSICTOTAL"	//Exemplo de string a ser utilizada no arquivo de configuração
	Local nTamanTot	:= 10			//Tamanho do conteudo no layout
	Local nPos		:= 0
	Local nHandle	:= 0

	If (nHandle := FT_FUse(cArqSaida)) <> -1
		FT_FGoTop()

		cCabec	:= FT_FReadLn()
		nPos	:= At(cStrBusca, cCabec)	//Buscando posicao pela string configurada
		FT_FUSE()
	EndIf
	If nPos > 0
		If (nHandle := FOpen(cArqSaida,2)) >= 0

			//abaixo exemplo utilizando variável private nTotal, disponível dentro do PE
			cValorTot := StrZero( nTotal, nTamanTot)								//Tratar tipo para string
			cCabec    := StrTran(cCabec, cStrBusca, cValorTot) + Chr(13)+ Chr(10)	//Substituir linha do cabecalho

			FSeek(nHandle, 0)
			FWrite(nHandle, cCabec)
			FCLOSE(nHandle)
		EndIf
	EndIf

Return

04. ASSUNTOS RELACIONADOS