DT F150GRV Gravacao de linhas adicionais

Descrição

O ponto de entrada F150GRV permite gravar linhas adicionais, após confirmar a gravação da linha de detalhe tipo "1". Seu objetivo é atender à IN09 da ANS (Abril/2009), que dispõe sobre a informação dos dados dos beneficiários (dependentes) no boleto bancário.

Ponto de Entrada

O ponto de entrada F150GRV permite gravar linhas adicionais, após confirmar a gravação da linha de detalhe tipo "1"

Seu objetivo é atender à IN09 da ANS (Abril/2009), que dispõe sobre a informação dos dados dos beneficiários (dependentes) no boleto bancário.

FINA150

Momento de geração de arquivo do CNAB modelo 1

FINA150.PRX

fA150Ger

Exemplo:

#Include 'Protheus.ch'

User Function F150GRV()// Handle do arquivo de remessa em gravacao

Local nHdlSaida := ParamIxb[1] // Exemplo de gravacao de uma linha de Cobranca Mensagem para envio ao banco. Tipo de registro "7"

fWrite( nHdlSaida, "7" ) // Codigo do Registro
fWrite( nHdlSaida, "XXX" ) // Flash
fWrite( nHdlSaida, "99" ) // Numero da primeira linha
fWrite( nHdlSaida, Replicate("X",100) ) // Texto da linha 1
fWrite( nHdlSaida, Replicate(" ",28) ) // Complemento do registro (brancos)
fWrite( nHdlSaida, "99" ) // Numero da segunda linha
fWrite( nHdlSaida, Replicate("X",100) ) // Texto da linha 2
fWrite( nHdlSaida, Replicate("X",28) ) // Complemento do registro (brancos)
fWrite( nHdlSaida, "99" ) // Numero da terceira linha
fWrite( nHdlSaida, Replicate("X",100) ) // Texto da linha 3
fWrite( nHdlSaida, Replicate("X",27) ) // Complemento do registro (brancos)
fWrite( nHdlSaida, "X" ) // Destino Bloqueto
fWrite( nHdlSaida, "999999" ) // Numero sequencial do registro no arquivo

// Quebra de linha no arquivo de remessa. Deve ser feita no
// ponto de entrada, independente se uma ou mais linhas)

fWrite( nHdlSaida, CHR(13) + CHR(10))
Return