ssouza_fiscal

estou testando nesse momento, nela você conseguiu resolver a questão do dígito a mais no arquivo de remessa?

Estou com dois problemas iguais ao seu, 1: nosso numero divergente, resolvi assim: function TACBrBancoSafra.MontarCampoCodigoCedente(const ACBrTitulo: TACBrTitulo): string; begin with ACBrTitulo.ACBrBoleto.Cedente do begin //Result := PadLeft(RightStr(Agencia,4), 4, '0') + PadLeft(AgenciaDigito, 1, '0') + ' / ' + PadLeft(ACBrBoleto.Cedente.Conta, 8, '0') + PadLeft(ACBrBoleto.Cedente.ContaDigito, 1, '0'); Result := PadLeft(RightStr(Agencia,5), 5, '0') + ' / ' + PadLeft(ACBrBoleto.Cedente.Conta, 8, '0') + PadLeft(ACBrBoleto.Cedente.ContaDigito, 1, '0'); end; end; Quanto ao digito que ele inclui no final do nosso numero na remessa ainda estou batendo cabeça...

para ocultar a coluna desconto usando o Fast poderia seguir o mesmo exemplo?

Bom dia, li que foi implementado a opção para ocultar de desconto do danfe nfe, onde ela fica? pode passar um exemplo do uso dela? obrigado

Bom dia amigos, podem me dizer se existe uma propriedade para mostrar a quantidade de parcelas na impressão do tipo carnê? no meu caso, quando defino que é do tipo carnê ele só mostra duas parcelas em cada página. Obrigado...

Seque o arquivo de Pedido Eletrônico de ressarcimento, homologado pelo site da sefaz-AM, se puder gerar um método, seria bom, aqui eu passei o xml como parâmetro: nfe.NotasFiscais.Clear; try nfe.NotasFiscais.LoadFromFile(OpenDialog1.FileName); // AssignFile(f,'c:\Temp\' + nfe.NotasFiscais.Items[0].NFe.procNFe.chNFe+ '-nfe-ressarcimento' + '.xml'); Rewrite(f); //abre o arquivo para escrita Writeln(f,'<?xml version="1.0" encoding="UTF-8" standalone="yes"?>'); Writeln(f,'<enviOperacaoRessarcimento xmlns="http://www.sefaz.am.gov.br/ressarcimento">'); Writeln(f,'<versao>2.00</versao>'); Writeln(f,'<dadosDeclaracao>'); Writeln(f,'<cnpjRaiz>' + copy(nfe.NotasFiscais.Items[0].NFe.Emit.CNPJCPF, 1,8) + '</cnpjRaiz>'); Writeln(f,'<ieContribuinteDeclarante>' + nfe.NotasFiscais.Items[0].NFe.Emit.IE + '</ieContribuinteDeclarante>'); Writeln(f,'<razaoSocial>' + nfe.NotasFiscais.Items[0].NFe.Emit.xNome + '</razaoSocial>'); Writeln(f,'<nomeResponsavel>' +nfe.NotasFiscais.Items[0].NFe.infRespTec.xContato + '</nomeResponsavel>'); Writeln(f,'<foneResponsavel>' +nfe.NotasFiscais.Items[0].NFe.infRespTec.fone + '</foneResponsavel>'); Writeln(f,'<emailResponsavel>'+ nfe.NotasFiscais.Items[0].NFe.infRespTec.email + '</emailResponsavel>'); Writeln(f,'<anoPeriodoReferencia>'+ copy(dateToStr(nfe.NotasFiscais.Items[0].NFe.Ide.dEmi),7,4) + '</anoPeriodoReferencia>'); Writeln(f,'<mesPeriodoReferencia>'+ copy(dateToStr(nfe.NotasFiscais.Items[0].NFe.Ide.dEmi),4,2) + '</mesPeriodoReferencia>'); Writeln(f,'</dadosDeclaracao>'); Writeln(f,'<listaOperacoes>'); Writeln(f,'<operacao>'); Writeln(f,'<chaveNFe>' + nfe.NotasFiscais.Items[0].NFe.procNFe.chNFe +'</chaveNFe>'); Writeln(f,'<listaItens>'); Writeln(f,'<item>'); for i :=0 to (nfe.NotasFiscais.Items[0].NFe.Det.Count - 1) do begin Writeln(f,'<codInternoProduto>' + nfe.NotasFiscais.Items[0].NFe.Det.Items[0].Prod.cProd + '</codInternoProduto>'); Writeln(f,'<numItemNfe>' + intTostr(nfe.NotasFiscais.Items[0].NFe.Det.Items[0].Prod.nItem) + '</numItemNfe>'); end; Writeln(f,'</item>'); Writeln(f,'</listaItens>'); Writeln(f,'</operacao>'); Writeln(f,'</listaOperacoes>'); // Writeln(f,'<listaNFeEntrada>'); Writeln(f,'<chaveNFeEntrada>' + nfe.NotasFiscais.Items[0].NFe.procNFe.chNFe + '</chaveNFeEntrada>'); Writeln(f,'</listaNFeEntrada>'); Writeln(f,'</enviOperacaoRessarcimento>'); Closefile(f); // showMessage('Pedido eletrônico gerado com sucesso'); Except Application.MessageBox('Erro ao gerar o Pedido eletrônico','Atenção', MB_ICONERROR) end;

Bom dia sabem me dizer se no projeto ACBr já esta gerando o pedido de ressarcimento? segue a legislação em anexo doc.pdf

Resolvido Leandro, era exatamento as margens que estavam todas com 10 e precisa ficar com 0,7.. Obrigado

Bom dia, estou com um problema semelhante, usava normalmente os danfes: ACBrNFeDANFCeFortesA41 e ACBrNFeDANFCeFortesA42 para impressão do danfe em A4 nesse momento so está funcionando o ACBrNFeDANFCeFortes1 mas não aparece o nome do produto e não aparece as informações adicionais, isso pela aplicação se eu for pelo site da sefaz imprimir normalmente, quer dizer o xml contém as informações..

Bom dia pessoal, baixei a ultima versão do projeto, notei que o layout para impressão apresentou um problema (anexo) estou usando esse layout: ACBrNFeDANFCeFortesA42, podem me dar uma dica? Obrigado

Boa noite pessoal, pode me dar uma dica, qual propriedade preciso usar para acessar a função COdMotivoRejeicaoToDescricao, já fiz uma isso uma vez mas apaguei e não sei mais pra onde foi essa propriedade. precisa pegar as ocorrencias: case CodMotivo of 00: Result := '00-Ocorrencia aceita'; 01: Result := '01-Codigo de banco inválido'; 04: Result := '04-Cod. movimentacao nao permitido p/ a carteira'; 15: Result := '15-Caracteristicas de Cobranca Imcompativeis'; 17: Result := '17-Data de vencimento anterior a data de emissão'; 21: Result := '21-Espécie do Título inválido'; 24: Result := '24-Data da emissão inválida'; 38: Result := '38-Prazo para protesto inválido'; 39: Result := '39-Pedido para protesto não permitido para título'; 43: Result := '43-Prazo para baixa e devolução inválido'; 45: Result := '45-Nome do Sacado inválido'; 46: Result := '46-Tipo/num. de inscrição do Sacado inválidos'; 47: Result := '47-Endereço do Sacado não informado'; 48: Result := '48-CEP invalido'; 50: Result := '50-CEP referente a Banco correspondente'; 53: Result := '53-Nº de inscrição do Sacador/avalista inválidos (CPF/CNPJ)'; 54: Result := '54-Sacador/avalista não informado'; 67: Result := '67-Débito automático agendado'; 68: Result := '68-Débito não agendado - erro nos dados de remessa'; 69: Result := '69-Débito não agendado - Sacado não consta no cadastro de autorizante'; 70: Result := '70-Débito não agendado - Cedente não autorizado pelo Sacado'; 71: Result := '71-Débito não agendado - Cedente não participa da modalidade de débito automático'; 72: Result := '72-Débito não agendado - Código de moeda diferente de R$'; 73: Result := '73-Débito não agendado - Data de vencimento inválida'; 75: Result := '75-Débito não agendado - Tipo do número de inscrição do sacado debitado inválido'; 86: Result := '86-Seu número do documento inválido'; 89: Result := '89-Email sacado nao enviado - Titulo com debito automatico'; 90: Result := '90-Email sacado nao enviado - Titulo com cobranca sem registro'; else Result:= IntToStrZero(CodMotivo,2) +' - Outros Motivos'; end; toRetornoRegistroRecusado: case CodMotivo of 02: Result:= '02-Codigo do registro detalhe invalido'; 03: Result:= '03-Codigo da Ocorrencia Invalida'; 04: Result:= '04-Codigo da Ocorrencia nao permitida para a carteira'; 05: Result:= '05-Codigo de Ocorrencia nao numerico'; 07: Result:= 'Agencia\Conta\Digito invalido'; 08: Result:= 'Nosso numero invalido'; 09: Result:= 'Nosso numero duplicado'; 10: Result:= 'Carteira invalida'; 13: Result:= 'Idetificacao da emissao do boleto invalida'; 16: Result:= 'Data de vencimento invalida'; 18: Result:= 'Vencimento fora do prazo de operacao'; 20: Result:= 'Valor do titulo invalido'; 21: Result:= 'Especie do titulo invalida'; 22: Result:= 'Especie nao permitida para a carteira'; 24: Result:= 'Data de emissao invalida'; 28: Result:= 'Codigo de desconto invalido'; 38: Result:= 'Prazo para protesto invalido'; 44: Result:= 'Agencia cedente nao prevista'; 45: Result:= 'Nome cedente nao informado'; 46: Result:= 'Tipo/numero inscricao sacado invalido'; 47: Result:= 'Endereco sacado nao informado'; 48: Result:= 'CEP invalido'; 50: Result:= 'CEP irregular - Banco correspondente'; 63: Result:= 'Entrada para titulo ja cadastrado'; 65: Result:= 'Limite excedido'; 66: Result:= 'Numero autorizacao inexistente'; 68: Result:= 'Debito nao agendado - Erro nos dados da remessa'; 69: Result:= 'Debito nao agendado - Sacado nao consta no cadastro de autorizante'; 70: Result:= 'Debito nao agendado - Cedente nao autorizado pelo sacado'; 71: Result:= 'Debito nao agendado - Cedente nao participa de debito automatico'; 72: Result:= 'Debito nao agendado - Codigo de moeda diferente de R$'; 73: Result:= 'Debito nao agendado - Data de vencimento invalida'; 74: Result:= 'Debito nao agendado - Conforme seu pedido titulo nao registrado'; 75: Result:= 'Debito nao agendado - Tipo de numero de inscricao de debitado invalido'; else Result:= IntToStrZero(CodMotivo,2) +' - Outros Motivos'; end; ja tentei assim: ACBrBoleto.ListadeBoletos.Objects.DescricaoMotivoRejeicaoComando.Text; ACBrBoleto.ListadeBoletos.Objects.OcorrenciaOriginal.Descricao; mas não vem as ocorrências citados acima Obrigado

Boa noite podem me tirar uma dúvida, gostaria de pegar o código da ocorrência e o motivo da rejeição por exemplo, sei que na posição 109-110 vem o código que eu já estou pegando, se foi aceito ou rejeitado, gostaria de pegar o código do motivo da rejeição, li o manual e vi que essa informação está na posição 319 a 328 (0900000000) nesse exemplo o código que representa o motivo da rejeição é 09, pergunta, qual é a propriedade dentro do componente que pego esse código? sei também que ele pode ter até 5 motivos (códigos) Obrigado

Obrigado Ricardo, irei tentar a sua alternativa...valeu

Bom dia pessoa, estou há alguns dias procurando uma solução para falha no recebimento da NFCe mas todas as alternativas ainda não resolveram 100% dos problemas, o problema acontece da seguinte forma: eu faço o envio, ele envia normalmente e quando começa a fazer o recebimento que dá erro, na maioria das vezes é time out. quando eu configurei as opções da internet e mudei as configurações do webservice da seguinte forma: ACBrNFe1.Configuracoes.WebServices.AguardarConsultaRet := 0; ACBrNFe1.Configuracoes.WebServices.AjustaAguardaConsultaRet := True; ACBrNFe1.Configuracoes.WebServices.IntervaloTentativas := 3500; ACBrNFe1.Configuracoes.WebServices.TimeOut := 120000; //2 minutos ACBrNFe1.Configuracoes.WebServices.Tentativas := 10; ACBrNFe1.Configuracoes.Certificados.VerificarValidade := False; ACBrNFe1.Configuracoes.WebServices.Visualizar := chkMensagemRetorno.Checked; Resolveu 80% dos problemas mas ainda apresenta erros no recebimento (time out) liguei para o suporte da sefaz mas sem muito sucesso, a minha próxima tentativa será tentar pegar a chave de acesso antes de enviar, gravo no banco de dados e se der erro no recebimento, faço uma consulta usando a chave de acesso e armazeno os dados , mesmo que na consulta não venha todos os dados, como XML e outras informações. Estaria eu reinventando a roda ou existe outra maneira mas simples de resolver esse problema? como eu poderia pegar a chave e o xml antes de enviar a nota? isso é possível? Obrigado

Bom dia. senhores, será que precisa fazer alguma configuração especifica para trabalhar em ambiente de homologação da NFSe (Manaus)? em produção funciona perfeito, entrei em contato com o suporte e eles disseram a resposta padrão: está tudo normal! O erro que dá eh: erro:12000 time out, estive analisando o código e o WS parece está fora mesmo pois dá erro 404, esse teste fiz colocando o endereço direto no internet. Obrigado

Problema Resolvido pessoal, agradeço a ajuda de todos, as mudanças que fiz: ACBrNFe1.Configuracoes.Geral.VersaoQRCode := veqr100; (essa linha eu inclui as demais eu só alterei) ACBrNFe1.Configuracoes.WebServices.AguardarConsultaRet := 20000; ACBrNFe1.Configuracoes.WebServices.AjustaAguardaConsultaRet := True; ACBrNFe1.Configuracoes.WebServices.IntervaloTentativas := 1500; ACBrNFe1.Configuracoes.WebServices.TimeOut := 30000; ACBrNFe1.Configuracoes.WebServices.Tentativas := 40; ACBrNFe1.Configuracoes.WebServices.Visualizar := chkMensagemRetorno.Checked; Dessa forma, chego a enviar 10 notas (NFCe) e volta uma com o erro de timeOut, mas agora eu tenho certeza que o o problema não é do sistema e sim na transferências do recebimento dos dados da nota enviado pela sefaz. Obrigado mais uma vez, segue a dica para quem está com esse problema....

Era exatamente isso mesmo, agora está apresentando outra mensagem, Erro interno 0 Erro HTTP: 404.... Agradeço pela ajuda....

Agradeço pela ajuda de vocês, o problema foi resolvido incluindo a propriedade versão do qrcod, agora apareceu outra mensagem, para qualquer nota que eu emita, vc acha que pode ser fonte desatualizada ainda?

Bom dia, Pessoal estou com um problema que surgiu sem que eu fizesse nenhuma atualização no meu software, começou pelo erro: TimeOut, fiz uma atualização e agora ele aparece esse erro, de duplicidade de chave de acesso. Para qualquer nota que eu emita ele dá o mesmo erro:

Obrigado Ítalo! as configurações de segurança? nessa parte ainda não mexi!

Estou com o mesmo problema a dias e não consigo resolver já fiz tudo que diz no forum mas nada, o que eu já fiz: 1: removi a minha pasta do acbr e atualizei novamente 2: removi o delphi e instalei tudo novamente 3: e o problema continua isso aconteceu após uma atualização. 4: vou continuar tentando e se vc conseguir resolver posta ai. valeu

pessoal podem me confirmar se o endereço correto para atualizar é esse: https://svn.code.sf.net/p/acbr/code? estou começando a imaginar que estou pegando informações do lugar errado, já tentei varias vezes contornar essa situação mas nada ainda. obrigado... a pasta que estou apontando os schemas é essa: C:\ACBr\trunk2\Exemplos\ACBrDFe\ACBrNFSe\Schemas\Ginfes, é esse local mesmo?

Não tem também o meu está assim: [SoapAction] Recepcionar=http://tempuri.org/INFSEGeracao/RecepcionarLoteRps ConsSit=http://tempuri.org/INFSEConsultas/ConsultarSituacaoLoteRps ConsLote=http://tempuri.org/INFSEConsultas/ConsultarLoteRps ConsNFSeRps=http://tempuri.org/INFSEConsultas/ConsultarNfsePorRps ConsNFSe=http://tempuri.org/INFSEConsultas/ConsultarNfse Cancelar=http://tempuri.org/INFSEGeracao/CancelarNfse Gerar= RecSincrono= Substituir= Uso do servidor Ginfes

O arquivo que você refere-se é esse: Demo_ACBrNFSe.ini? não encontrei o Recepcionar=* nele! posso está procurando no lugar errado.

Já troquei o DNS, atualizei os meus fontes e nada. se alguém puder dá um dica, agradeço.