karlusheidrich

Bom dia. Sim, todos os fonte de todas as pastas estão atualizados. Como você deve ter percebido, o arquivo está com a RPS ID altera, pois para postar aqui eu removi os dados de CNPJ e inscrição municipal da empresa. Estou tentando transmitir primeiro com o exemplo que vem junto com o componente. Se tem algo errado no fonte, isso consta no programa de exemplo, pois não alterei nada no fonte do exemplo. Esses arquivos que mandei em anexo foram gerados no botão "Gerar e Enviar Lote" do programa exemplo. Procurei seguir exatamente o que esta no programa exemplo, pois quando fiz meu sistema para NFe segui exatamente o que constava no exemplo da NFe e funcionou perfeitamente.

Bom dia. Estou tentando fazer homologação da NFSe de Ivoti e estou com alguns problemas na transmisão da NFS-e. Li aqui no fórum que vários colegas estão tendo problemas com o provedor Tecnos, e que a maioria dos problemas ainda não foi encontrado a solução. Creio que os meus problemas são novos (pelo menos não encontrei ele aqui no fórum) e por isso resolvi criar um novo tópico. Anexei alguns prints dos erros que aparecem no debug Delphi e na minha aplicação. Achei que fosse algum erro na minha aplicação, mas ao usar o programa exemplo do ACBrNFSe, o problema continua. Anexei todos os arquivos que o sistema gerou ao clicar no botão "Gerar e Enviar Lote". Desde já agradeço a atenção. 201403.7z

MUITO OBRIGADOOOOO !!!!! Tirou um peso das minhas costas. Só uma dúvida: Quando será utilizado o código 110 já que agora, pelo que percebi, a receita só retorna 301 e 302?

Alguém já sabe se essa unit do Astrogildo82 já foi atualizada no projeto?

Colega, também estou enfrentando esse problema. E no meu caso é um pouco mais grave devido a esperteza dos meus usuários. Um cliente meu emitiu 3 nfe's que ficaram como denegado e como o componente não retornou o protocolo, meu sistema permitiu deletar as notas. Alguns usuários "ispertos" que tenho, foram lá e deletaram as 3 notas achando que não estava na receita. Resumindo: me f#@& pra recuperar a chave de acesso e o xml das 3 notas. Se você já conseguiu resolver esse problema, por favor poste ai a solução.

Pergunta: Tem como imprimir a descrição complementar dos produtos nesta versão? Pergunto por que eu usava o DANFE do quick e só larguei porque ela não tinha opção de visualização deste campo na impressão.

Na verdade, meu cliiente quer essa opção para que o cliente dele possa saber quais nfe's estão sendo cobradas nesta fatura. E como a fatura é emitida pelo banco, eu preciso citar o número dessas nfe's no arquivo de remessa para o banco, pois é o banco quem vai enviar para os clientes do meu cliente.

Na verdade são várias notas em uma mesma fatura. Se não me engano é permitido colocar 80 números de notas e mandar o arquivo pro banco. Sem contar que é preciso criar novas linhas de transação. É um negócio bem complexo. Que pena, que o ACBR não tem. Vou ter que fazer o arquivo na mão.

Na verdade, quem emite o boleto é o banco. Eu só preciso gerar o arquivo de remessa onde conste essas informações dos números das notas. Você saberia me dizer se tem uma previsão disponibilizar essa nova versão com as funcionalidades que você citou?

Olá. Meu cliente precisa gerar arquivo pro banco Banrisul e precisam informar no verso do boleto, quais as nfe's que estão sendo cobradas naquela fatura. Tentei gerar um arquivo aqui, mas fica bem diferente do arquivo que era gerado no sistema antigo deles. Gostaria de ver com vocês se alguém já precisou fazer isso e quais as propriedade da classe eu preciso alimentar com esta mensagem. Segue abaixo o código: procedure TGerArquivosBanco.GeraBanrisul400; var Titulo: TACBrTitulo; vsNotas: String; begin while not cdsContasReceber2.Eof do begin Titulo := ACBrBoleto.CriarTituloNaLista; with Titulo do begin Vencimento := cdsContasReceber2DATA_VENCIMENTO.AsDateTime; DataDocumento := cdsContasReceber2DATA_EMISSAO.AsDateTime; NumeroDocumento := cdsContasReceber2DOCUMENTO.AsString; EspecieDoc := '02'; if cbAceite.EditValue = 'atSim' then Aceite := atSim else Aceite := atNao; DataProcessamento := Now; NossoNumero := cdsBancosNOSSO_NUMERO.AsString; Carteira := cdsBancosCARTEIRA.AsString; //CodigoCarteira := cbCodigoCarteira.EditValue; ValorDocumento := cdsContasReceber2VALOR_ABERTO.AsCurrency; if Length(cdsContasReceber2SACADO_CNPJCPF.AsString) > 12 then Sacado.Pessoa := pJuridica else Sacado.Pessoa := pFisica; Sacado.NomeSacado := cdsContasReceber2SACADO_NOME.AsString; Sacado.CNPJCPF := cdsContasReceber2SACADO_CNPJCPF.AsString; Sacado.Logradouro := cdsContasReceber2SACADO_LOGRADOURO.AsString; Sacado.Numero := cdsContasReceber2SACADO_NUMERO.AsString; Sacado.Bairro := cdsContasReceber2SACADO_BAIRRO.AsString; Sacado.Cidade := cdsContasReceber2SACADO_NOME_MUNICIPIO.AsString; Sacado.UF := cdsContasReceber2SACADO_UF.AsString; Sacado.CEP := cdsContasReceber2SACADO_CEP.AsString; // Pelo que entendi, é esse o campo do ACBRBoleto usado para receber as informações para o verso do boleto Mensagem.Text := SQLLinha('SELECT CAST(LIST(NUMERO_NOTA, ' + QuotedStr(', ') + ') AS VARCHAR(2000)) FROM NOTAS_SAIDA WHERE ID_FATURA = ' + cdsContasReceber2ID_FATURA.AsString); ACBrBoleto.AdicionarMensagensPadroes(Titulo, Mensagem); end; SQLExec('UPDATE CONTAS_RECEBER SET CONTAS_RECEBER.ID_BANCO = ' + cdsBancosID_BANCO.AsString + ',' + ' CONTAS_RECEBER.DATA_ARQUIVO_REMESSA = ' + DataTimeSQL(Now) + ',' + ' CONTAS_RECEBER.NOME_ARQUIVO_REMESSA = ' + QuotedStr(CalculaNomeArquivo(True)) + ',' + ' CONTAS_RECEBER.CODIGO_CARTEIRA = ' + QuotedStr(cbCodigoCarteira.EditValue) + ' WHERE CONTAS_RECEBER.ID_CONTA_RECEBER = ' + cdsContasReceber2ID_CONTA_RECEBER.AsString); cdsContasReceber2.Next; end; end; Desde já, agradeço a ajuda.

Na verdade eu uso o DANFE com o FortesReport por que o DANFE do QuickReport não tinha opção para imprimir o detalhamento específico dos produtos. Ai na época que me surgiu essa necessidade, me indicaram o Fortes. Não sei se hoje o DANFE do QuickReport já possui a opção para imprimir o detalhamento específico. Alguém saberia me dizer? Eu até ia preferir usar o do Quick, pois é um componente a menos para instalar.

Já deletei TODA a pasta ACBR, deletei o Fortes e nada. Só não desinstalei o Delphi(Mas já tô considerando a possibilidade). Tem uma pasta que fica em C:\Users\Public\Documents\RAD Studio\7.0\Bpl, que sempre preciso copiar e colar nela os arquivos do fortes, mesmo tem instalado em outro lugar. Existe mais alguma pasta que preciso verificar?

Pessoal, vocês tem uma idéia do que possa estar causando isso? Meus clientes estão querendo o meu rim!

Pessoal, estou com um problema bem chato aqui. Fiz uma atualização dos fontes do ACBR e atualizei a versão do Fortes Report no meu Delphi 2010. Agora quando tento passa um numero de cópias maior para o componente da DANFE, o mesmo fica sempre imprimindo apenas 1 cópia por vez. Pesquisei aqui no fórum e vi alguns relatos idênticos, mas ninguém conseguiu resolver meu problema. Neste tópico os colegas relatam que é problema na versão do Fortes e eu testei praticamente todas e nenhuma deu certo. Gostaria de saber qual é a versão recomendada do Fortes Report para Delphi 2010 e se possível receber um link para download da mesma. Ou ainda, se os colegas souberem como resolver via código, também já me serve. Já baixei o Fortes 3.69B, o 3.70B e o 3.71B e nenhum deles funciou. Grato pela atenção.

Você conseguiu resolver o problema?

Amigo, eu também estou com esse problema. Não sei mais o que fazer pra corrigir isso.

Até antes de atualizar, eu estava deixando em branco, ai o sistema criava a pasta "remessas" e ia criando os arquivos dentro dessa pasta que ficava junto do aplicativo. Depois que começou a ocorrer esse erro tentei colocar um nome pra pasta, escrevi "remessa" na property do componente, mas foi em vão. Sem contar que o componente não deixou mais a propriedade ficar em branco. Sempre que eu apagava o valor e saia dela, a property reassumia o valor anterior.

Olá! Quando estou tentando gerar um arquivo de remessa pra banco, está dando o seguinte erro: "Unable to create directory". Esse erro começou acontecer depois que fiz uma atualização do pacote ACBR. A parte do ACBRBoleto estava bem desatualizada devido a modificações que eu tinha feito no componente para corrigir bugs, que hoje acredito que não existem mais. Se precisarem de mais informações, eu posto ai. Desde já agradeço a ajuda.

Estou com o mesmisimo problema do Zanini, mas no meu caso o sistema operacional é o Windows 7 Ultimate 32 bits. Vou testar essas duas opções (Atualizar / Formatar) e postarei o resultado aqui...

Olá! Procurei no fórum e não achei ninguém com esse meu problema. Tenho meu sistema desenvolvido em Delphi 2010 com Firebird 2.5.1 e DBExpress. Um cliente meu tem reclamado seguidamente que ao transmitir uma NFE o sistema retorna uma mensagem de erro em branco, sem nenhuma informação sobre o que houve. Assim que o erro acontece ela precisa fechar a tela de notas e abri-la novamente para conseguir transmitir a nota. Fiz um debug e constatei que a mensagem de erro vem do ACBRNFE e que realmente ela vem em branco, sem código, sem descrição, sem nada. Gostaria de saber o que pode estar havendo quando isso acontece. Segue abaixo o código que utilizo para transmitir a NFE. procedure TLanNotasSaida.btnTransmitirClick(Sender: TObject); begin try case TfrmMsg.Msg('Confirmação', 'Tem certeza que deseja transmitir essa nota?', imPergunta, [mbNao, mbSim]) of 1: Abort; end; if not(TemInternet) then begin TfrmMsg.Msg('Você está SEM INTERNET!', 'Atenção! Seu computador não está conectado com a internet. Entre em contato com o administrador da sua rede de computadores para que o mesmo resolva o problema.', imAviso, [mbOk]); Abort; end; cxProgressBar.Visible := True; Application.ProcessMessages; if cdsNotasSaidaDATA_EMISSAO.AsDateTime <> Date then begin if SQLLinha('SELECT EMITE_NFE_DIAS_ANTERIORES FROM EMPRESAS WHERE ID_EMPRESA = ' + cdsNotasSaidaID_EMPRESA.AsString) = 'SIM' then begin case TfrmMsg.Msg('Atenção', 'A data de emissão da NFE não coincide com a data de hoje. Deseja atualizar a data de emissão da NFE(Colocar a data de hoje)?', imPergunta, [mbNao, mbSim]) of 2: begin cdsNotaSaidaParcelas.First; while not(cdsNotaSaidaParcelas.Eof) do begin if cdsNotasSaidaDATA_EMISSAO.AsDateTime < Date then begin cdsNotaSaidaParcelas.Edit; cdsNotaSaidaParcelasDATA_VENCIMENTO.AsDateTime := cdsNotaSaidaParcelasDATA_VENCIMENTO.AsDateTime + (Date - cdsNotasSaidaDATA_EMISSAO.AsDateTime); cdsNotaSaidaParcelas.Post; end else begin cdsNotaSaidaParcelas.Edit; cdsNotaSaidaParcelasDATA_VENCIMENTO.AsDateTime := cdsNotaSaidaParcelasDATA_VENCIMENTO.AsDateTime - (cdsNotasSaidaDATA_EMISSAO.AsDateTime - Date); cdsNotaSaidaParcelas.Post; end; cdsNotaSaidaParcelas.Next; end; cdsNotasSaida.Edit; cdsNotasSaidaDATA_EMISSAO.AsDateTime := Date; cdsNotasSaida.Post; end; end; end else begin cdsNotaSaidaParcelas.First; while not(cdsNotaSaidaParcelas.Eof) do begin if cdsNotasSaidaDATA_EMISSAO.AsDateTime < Date then begin cdsNotaSaidaParcelas.Edit; cdsNotaSaidaParcelasDATA_VENCIMENTO.AsDateTime := cdsNotaSaidaParcelasDATA_VENCIMENTO.AsDateTime + (Date - cdsNotasSaidaDATA_EMISSAO.AsDateTime); cdsNotaSaidaParcelas.Post; end else begin cdsNotaSaidaParcelas.Edit; cdsNotaSaidaParcelasDATA_VENCIMENTO.AsDateTime := cdsNotaSaidaParcelasDATA_VENCIMENTO.AsDateTime - (cdsNotasSaidaDATA_EMISSAO.AsDateTime - Date); cdsNotaSaidaParcelas.Post; end; cdsNotaSaidaParcelas.Next; end; cdsNotasSaida.Edit; cdsNotasSaidaDATA_EMISSAO.AsDateTime := Date; cdsNotasSaida.Post; end; end; if ((cdsNotasSaidaDATA_SAIDA_ENTRADA.AsDateTime > 0) and (cdsNotasSaidaDATA_SAIDA_ENTRADA.AsDateTime < Date)) then begin cdsNotasSaida.Edit; cdsNotasSaidaDATA_SAIDA_ENTRADA.AsDateTime := Date; cdsNotasSaida.Post; end; case TfrmMsg.Msg('Confirmação', 'Deseja imprimir a hora de saída na nota?', imPergunta, [mbNao, mbSim]) of 2: begin if cdsNotasSaidaHORA_SAIDA_ENTRADA.IsNull then begin cdsNotasSaida.Edit; cdsNotasSaidaHORA_SAIDA_ENTRADA.AsDateTime := TimeOf(Now); cdsNotasSaida.Post; end; end; 1: begin if not(cdsNotasSaidaHORA_SAIDA_ENTRADA.IsNull) then begin cdsNotasSaida.Edit; cdsNotasSaidaHORA_SAIDA_ENTRADA.Clear; cdsNotasSaida.Post; end; end; end; ACBrNFe.NotasFiscais.Clear; ConfiguraACBR_NFE; AlimentaACBR_NFE; try ACBrNFe.Enviar(1, False); except on E: Exception do begin if Pos('Certificado Digital não encontrado!', E.Message) > 0 then begin TfrmMsg.Msg('Erro no envio', 'Certificado digital não encontrado.', imErro, [mbOk]); Abort; end; ACBrNFe.WebServices.Retorno.Executar; TfrmMsg.Msg('Erro no envio', E.Message, imErro, [mbOk]); TfrmMsg.Msg('Erro no envio', Copy(ACBrNFe.WebServices.Retorno.RetWS, Pos('', ACBrNFe.WebServices.Retorno.RetWS) + 17, Length(ACBrNFe.WebServices.Retorno.RetWS) - 1), imErro, [mbOk]); Abort; end; end; TfrmMsg.Msg('Retorno do envio', ACBrNFe.WebServices.Retorno.Msg, imInformacao, [mbOk]); if ACBrNFe.WebServices.Retorno.Protocolo > '' then begin cdsNotasSaida.Edit; cdsNotasSaidaNUMERO_PROTOCOLO.AsString := ACBrNFe.WebServices.Retorno.NFeRetorno.ProtNFe.Items[0].nProt; cdsNotasSaidaDATA_AUTORIZACAO.AsDateTime := ACBrNFe.WebServices.Retorno.NFeRetorno.ProtNFe.Items[0].dhRecbto; cdsNotasSaida.Post; ACBrNFe.NotasFiscais.Imprimir; ACBrNFe.NotasFiscais.ImprimirPDF; EnviarEmailXML; end; finally cxProgressBar.Visible := False; end; end;

Olá! Fiquei sabendo que no dia 01/11/2011 entrará em vigo algumas alterações no layout da NFe. Gostaria de saber se essas alterações já foram feitas no ACBRNfe ou, se ainda não foram feitas, quando as mesmas estaram disponíveis? Grato pela atenção.

Putz!!! Que vergonha... Depois dessa fui rebaixado a programador cabaço.... Tava tão atucanado que nem me dei em conta da gafe. Desculpa pelo encomodo. Agora está funcionando sem problemas. Obrigado.

Olha só, fiz um novo debug e constatei que o erro não ocorre na linha 289 e sim na linha 288 p := m.AddPartMultipart('mixed', nil); if sMensagem <> nil then //Linha 287 m.AddPartText(sMensagem, p); //Linha 288 SaveToStream(StreamNFe) ; //Linha 289 m.AddPartBinary(StreamNFe,copy(NFe.infNFe.ID, (length(NFe.infNFe.ID)-44)+1, 44)+'-NFe.xml', p); E também reparei que o parametro sMensagem não está "Salvando" os dados que ele recebe. No Local Variables o Delphi exibe a frase "E2171 Variable 'sMensagem' inaccessible here due to optimization" quando deveria mostra "TESTE DA NFE", que é o que estou passando para o parâmetro. Acompanhei a funtion "m.AddPartText(sMensagem, p);" e vi que no arquivo mimemess.pas, a linha 622 (Value.SaveToStream(DecodedLines) é que causa o erro.

Sim, todos os campos tem valor. Nenhum deles é null.

Segue abaixo a rotina que faço pra mandar o e-mail: procedure TLanNotasSaida.EnviarEmailXML; var Host, Porta, Usuario, Senha, From: String; Mensagem: TMemo; Autentica: Boolean; begin if cdsNotasSaidaEMAIL_DESTINATARIO.AsString > '' then begin case TfrmMsg.Msg('Confirmação', 'Deseja enviar o e-mail com o arquivo XML para o cliente?', imPergunta, [mbNao, mbSim]) of 1: Abort; end; SQLLinha('SELECT EMPRESAS_PARAMETROS.HOST_EMAIL_NFE, ' + ' EMPRESAS_PARAMETROS.PORTA_EMAIL_NFE, ' + ' EMPRESAS_PARAMETROS.USUARIO_EMAIL_NFE, ' + ' EMPRESAS_PARAMETROS.SENHA_EMAIL_NFE, ' + ' EMPRESAS_PARAMETROS.FROM_EMAIL_NFE, ' + ' EMPRESAS_PARAMETROS.MENSAGEM_EMAIL_NFE, ' + ' EMPRESAS_PARAMETROS.AUTENTICA_SSL_EMAIL_NFE ' + 'FROM EMPRESAS_PARAMETROS ' + 'WHERE EMPRESAS_PARAMETROS.ID_EMPRESA = ' + cdsNotasSaidaID_EMPRESA.AsString); Host := dmLookUp.Procura.FieldByName('HOST_EMAIL_NFE').AsString; Porta := dmLookUp.Procura.FieldByName('PORTA_EMAIL_NFE').AsString; Usuario := dmLookUp.Procura.FieldByName('USUARIO_EMAIL_NFE').AsString; Senha := dmLookUp.Procura.FieldByName('SENHA_EMAIL_NFE').AsString; From := dmLookUp.Procura.FieldByName('FROM_EMAIL_NFE').AsString; Mensagem.Text := dmLookUp.Procura.FieldByName('MENSAGEM_EMAIL_NFE').AsString; Autentica := dmLookUp.Procura.FieldByName('AUTENTICA_SSL_EMAIL_NFE').AsString = 'SIM'; try ACBrNFe.NotasFiscais.Items[0].EnviarEmail(Host, Porta, Usuario, Senha, From, cdsNotasSaidaEMAIL_DESTINATARIO.AsString, 'Nota fiscal ' + cdsNotasSaidaNUMERO_NOTA.AsString, Mensagem.Lines, Autentica); except on E: Exception do begin TfrmMsg.Msg('Erro ao enviar o XML e PDF', E.Message, imErro, [mbOk]); Abort; end; end; Application.ProcessMessages; TfrmMsg.Msg('Confirmacao', 'E-Mail enviado com sucesso!', imInformacao, [mbOk]); end; end;