Pesquisar na Comunidade

Olá Pessoal, Estou com um problema ao processar arquivo de retorno BNB, boletos rejeitados que no arquivo de retorno vem com ocorrencia "51 - Entrada Rejeitada." , esta listando no ACBRBoleto a ocorrência "02 - Entrada Confirmada.". Depois de verificar o código do ACBR vi que não esta implantado no código a ocorrência 51 function TACBrBancoNordeste.CodOcorrenciaToTipo(const CodOcorrencia: Integer ) : TACBrTipoOcorrencia; begin case CodOcorrencia of 02: Result := toRetornoRegistroConfirmado; 03: Result := toRetornoRegistroRecusado; 06: Result := toRetornoLiquidado; 09: Result := toRetornoBaixadoViaArquivo; 10: Result := toRetornoBaixadoInstAgencia; 11: Result := toRetornoTituloEmSer; 12: Result := toRetornoAbatimentoConcedido; 13: Result := toRetornoAbatimentoCancelado; 14: Result := toRetornoVencimentoAlterado; 15: Result := toRetornoLiquidadoEmCartorio; 16: Result := toRetornoLiquidado; 17: Result := toRetornoLiquidadoAposBaixaouNaoRegistro; 18: Result := toRetornoAcertoDepositaria; 19: Result := toRetornoRecebimentoInstrucaoProtestar; 20: Result := toRetornoRecebimentoInstrucaoSustarProtesto; 21: Result := toRetornoAcertoControleParticipante; 22: Result := toRetornoRecebimentoInstrucaoAlterarDados; 23: Result := toRetornoEncaminhadoACartorio; 24: Result := toRetornoEntradaRejeitaCEPIrregular; 27: Result := toRetornoBaixaRejeitada; 28: Result := toRetornoDebitoTarifas; 29: Result := toRetornoOcorrenciasdoSacado; 30: Result := toRetornoALteracaoOutrosDadosRejeitada; 32: Result := toRetornoComandoRecusado; 33: Result := toRetornoRecebimentoInstrucaoAlterarDados; 34: Result := toRetornoRetiradoDeCartorio; 35: Result := toRetornoDesagendamentoDebitoAutomatico; 99: Result := toRetornoRegistroRecusado; else Result := toRetornoOutrasOcorrencias; end; end; Segue trecho do manual do BNB para confirmar os códigos de retorno. NOTA Nº 5 - Serviço (Arquivo - Retorno). 02 - Entrada Confirmada. 04 - Alteração. 06 - Liquidação Normal. 07 - Pagamento por Conta. 08 - Pagamento por Cartório. 09 - Baixa Simples. 10 - Devolvido - Protestado 11 - Em ser. 12 - Abatimento Concedido. 13 - Abatimento Cancelado. 14 - Vencimento Alterado. 15 - Baixa Automática 18 - Alteração Depositária. 19 - Confirmação de Protesto. 20 - Confirmação de Sustar-Protesto. 21 - Alteração Informações de Controle da Empresa 22 - Alteração "Seu Número". 51 - Entrada Rejeitada. Obs.: - Os registros com erros no arquivo-remessa serão gravados com a identificação do serviço original acrescido de 50. Ex.: Um registro com Código de Serviço 04 (Concessão de Abatimento), se estiver errado, retornará com o código de serviço 54. PADRAO BNB - CNAB400.pdf

Ao realizar a leitura de arquivo de retorno do Banco Santander, com cedente cadastrado como pessoa física, obtive o seguinte erro: 'CNPJ\CPF do arquivo inválido', isso acontecia, porque no arquivo de retorno, o banco envia o CPF com zeros nas posições não utilizadas, o que causava erro na validação do CPF porque estava com 14 dígitos dentro da variável 'rCNPJCPF'. Solucionei o problema trocando o código da linha 991 'rCNPJCPF := OnlyNumber( Copy(ARetorno[1],04,14) );' por case StrToIntDef(Copy(ARetorno[1],2,2),0) of 01: rCNPJCPF := Copy(ARetorno[1],7,11); 02: rCNPJCPF := Copy(ARetorno[1],4,14); else rCNPJCPF := Copy(ARetorno[1],4,14); end; isso para cnab400. e troquei o codigo da linha 888 'rCNPJCPF := RightStr(OnlyNumber(Copy(ARetorno[0], 18, 15)), 14);' por case StrToIntDef(Copy(ARetorno[0],17,1),0) of 1: rCNPJCPF := Copy(ARetorno[0],22,11); 2: rCNPJCPF := Copy(ARetorno[0],18,15); else rCNPJCPF := Copy(ARetorno[0],18,15); end; Obs.: esta validação já existe no arquivo ACBrBancoBradesco, para manter o padrão, copiei o código deste arquivo. Após estas modificações o arquivo de retorno foi lido com sucesso (testado com retorno cnab400 e cnab240). Peço que esta alteração seja verificada e comitada por algum commiter. Desde já agradeço.

Prezados, Estou trabalhando no processo de migração para a NFe 4.0. Após configuração do ambiente: ACBR, pasta Schema, implementação das novas Tags da versão 4.0, estou trabalhando no envio das notas fiscais, com sucesso. A nota é validada, enviada e impressa, o DANFE está ok. O protocolo de autorização de uso vem com a TAG 3.10 ainda. (achei que fosse desatualização da pasta schema, mas baixei os novos esquemas PL009 disponíveis no Portal Nacional da Nfe, e não obtive sucesso). Não consegui descobrir o motivo e compartilho com os senhores para buscar a solução. Em anexo seguem as imagens do cabeçalho (já na versão 4.0) do DANFE e também do protocolo de retorno (ainda na versão 3.10). Obrigado, Michel Abrão.