...
02. DESCRIÇÃO
O Ponto de Entrada GPM080HB é executado ao final do processamento da rotina de geração do CNAB, permitindo acessar as variáveis disponíveis com os valores totais para possíveis adequações de layouts específicos conforme a necessidade.
...
03. DEMAIS INFORMAÇÕES
O PE GPM080HB 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:
Image Added
| Bloco de código |
|---|
| language | ruby |
|---|
| title | GPM080HB |
|---|
|
#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 |
...
