Pesquisar na Comunidade

Boa tarde! Estou tentando conectar com a SEFAZ utilizando um Certificado de Pessoa Física, com CPF. Porém, ao fazer uma consulta ao Status do Serviço, estou recebendo a seguinte rejeição: Certificado transmissor sem CNPJ. Já informo de antemão que o certificado já é utilizado para emitir notas fiscais, porém quando tento integrar através do ACBr estou tendo este retorno. Já procurei aqui no próprio fórum e encontrei alguns posts de pessoas com o mesmo problema, porém as possíveis soluções/motivos apresentadas neles não condizem com a minha situação, então resolvi abrir este post.. Alguns dados sobre o Certificado, caso tenha alguma relevância: - Modelo ePass2003 - Certificado PF A3 - Nome do Token: SOLUTI Alguém pode me ajudar com esse problema?

Bom Dia ! Ao executar os seguinte procedimento: Gerar o evento de Manifestação Salvar em Banco Carregar novamente o evento para o componente (LerXMLFromString), o mesmo troca a tag <cpf> pela tag <cnpj> Em anexo está o documento detalhando a situação. Os testes foram realizados na revisão 20412 Att. Leandro Manifestação Pessoa Física.pdf

Boa tarde! Estou com essa mensagem de erro, somente no RJ já fiz todos os procedimentos disponiveis no fórum, qual a forma correta de preenchimento de IE para pessoa física? Anexo XML 33190928400631000117550010000000251883717550-nfe.xml

Boa Tarde ! É possível realizar a manifestação do destinatário sendo uma pessoa física, através de um certificado digital com CPF ? De acordo com a NT 2012_002 página 4 diz que é possível informar o CPF. No xml enviado para testes em anexo, vai a tag do XML Porém como retorno tem o erro 282 - Rejeicao: Certificado Transmissor sem CNPJ Att. Leandro Vignoto CIENTE.XML

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.

Estou com um problema, onde o ACBrPlus retorna a seguinte mensagem de erro: Rejeição: Erro não catalogado. Creio que o o erro seja por que o certificado é de pessoa física e não esta conseguindo realizar a comunicação com a sefaz. É possível configurar o ACBrPlus com certificado de pessoa física?

Juliana, Enfrentei um caso novo nessa unit essa semana. Tenho um cliente pessoa física. E para pessoa física usa o cpf no arquivo retorno. Por esse motivo emitia erro de CNPJ inválido. Tive que realizar alteração no metodo: procedure TACBrBancoob.LerRetorno400(ARetorno: TStringList); rCNPJCPF := trim( Copy(ARetorno[1],4,14)) ; with ACBrBanco.ACBrBoleto do begin Cedente.Nome := rCedente; case StrToIntDef(Copy(ARetorno[1],2,2),0) of 1: begin Cedente.TipoInscricao:= pFisica; rCNPJCPF := copy(rCNPJCPF,length(rCNPJCPF) - 10,length(rCNPJCPF)); end; else Cedente.TipoInscricao:= pJuridica; end; Cedente.CNPJCPF := rCNPJCPF; ACBrBanco.ACBrBoleto.ListadeBoletos.Clear; end; Exemplo de preenchimento: //Configurar banco ACBrBoleto1.Banco.Numero := DMEmpresa.ClientDataSet2NUM_BANCO.AsInteger; // DADOS DO BANCO with ACBrBoleto1.Banco do begin Digito := 0;//StrtoIntDef(0, 0); Nome := DMEmpresa.ClientDataSet2NOME_CONTA.AsString; Numero := DMEmpresa.ClientDataSet2NUM_BANCO.AsInteger; case DMEmpresa.ClientDataSet2NUM_BANCO.AsInteger of 237 : TipoCobranca := cobBradesco; 1 : TipoCobranca := cobBancoDoBrasil; 341 : TipoCobranca := cobItau; 748 : TipoCobranca := cobSicred; 104 : TipoCobranca := cobCaixaEconomica; 756 : TipoCobranca := cobBancoob; 33,53,008 : TipoCobranca := cobSantander; 21 : TipoCobranca := cobBanestes; else TipoCobranca := cobNenhum; end; end; with ACBrBoleto1.Cedente do begin Nome := DMEmpresa.ClientDataSet1EMPRESA.AsString; Agencia := DMEmpresa.ClientDataSet2AGENC_BANCO.AsString; AgenciaDigito := DMEmpresa.ClientDataSet2DIGITO_AGENC_BANCO.AsString; CodigoCedente := DMEmpresa.ClientDataSet2COD_CEDENTE.AsString; Conta := DMEmpresa.ClientDataSet2NUM_CONTA_BANCO.AsString; ContaDigito := DMEmpresa.ClientDataSet2DIGITO_CONTA_BANCO.AsString; if ( isCPF(tiraMask(DMEmpresa.ClientDataSet1CNPJ.AsString)) ) then TipoInscricao := pFisica else TipoInscricao := pJuridica; CNPJCPF := tiraMask(DMEmpresa.ClientDataSet1CNPJ.AsString); if ( Length(DMEmpresa.ClientDataSet2MODALIDADE.AsString) > 0) then Modalidade := DMEmpresa.ClientDataSet2MODALIDADE.AsString; if ( Length(DMEmpresa.ClientDataSet2CONVENIO.AsString) > 0) then Convenio := DMEmpresa.ClientDataSet2CONVENIO.AsString; end; ACBrBoleto1.DirArqRetorno := ExtractFilePath(txtNomeArquivoRetorno.Text) ; ACBrBoleto1.NomeArqRetorno := ExtractFileName(txtNomeArquivoRetorno.Text) ; ACBrBoleto1.LerRetorno; ACBrBancoob-03-09-2013.rar