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
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. |
Localização: | FINA150 |
Eventos: | Momento de geração de arquivo do CNAB modelo 1 |
Programa Fonte: | FINA150.PRX |
Função: | fA150Ger |
Retorno: | Vazio |
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