Claudiomir

Saudações Juliomar. Não Trunk2. ( Ainda não cheguei lá!!) Sim, fazia um tempo que eu não atualizava. Talvez 8 meses. Instalei tudo agora. Todas as opções. Compilou normal. Não deu erro em nada na instalação. Abri o delphi. Abri o projeto. F9. Ele abriu esse erro. Por acaso essa opção foi descontinuada??? Ou tem outra maneira de fazer isso? Claudiomir

Saudações Tudo estava rodando certinho. Precisei atualizar o Acbr e agora estou encontrando alguns... erros. Por exemplo: ACBrNFe1.EnviarCartaCorrecao(0); Protocolo := ACBrNFe1.WebServices.CartaCorrecao.CCeRetorno.retEvento.Items[0].RetInfEvento.nProt; motivo := ACBrNFe1.WebServices.CartaCorrecao.CCeRetorno.retEvento.Items[0].RetInfEvento.xMotivo; istat := ACBrNFe1.WebServices.CartaCorrecao.CCeRetorno.retEvento.Items[0].RetInfEvento.cStat; agora, na segunda linha, ele acusa que ACBrNFe1.WebServices.CartaCorrecao não existe. Ele não encontra a opção CartaCorreção. Houve alguma mudança que eu não sei? Ou quando eu reinstalei, eu esqueci de instalar algo com o acbrinstal?? Alguém tem alguma idéia??? Claudiomir

Saudações Daniel Simões. Deletei a pasta inteira. Baixei tudo de novo. Dai instalou sem problemas. Grato por tua ajuda e paciência. Abraços, Claudiomir

Alguma idéia?

Saudações Daniel Encontrei o que você fala, mas nunca alterei o fonte deles. Nem tentei fazer isso em momento algum,. Pergunto. Quando eu executo o desinstalador, e depois atualizo, os fontes não são atualizados automaticamente? Se sim, estes "erros"... não estão vindo direto da atualização com alterações incompletas? Se for o caso, onde baixo as atualizações corretas? Descrevo abaixo os "erros" do acbrboleto.pas <<<<<<< .mine ======= uses ACBrBase, {Units da ACBr} {$IFDEF FPC} LResources, {$ENDIF} SysUtils, ACBrValidador,typinfo, smtpsend, ssl_openssl, mimemess, mimepart // units para enviar email {$IF DEFINED(VisualCLX)} ,QForms, QGraphics {$ELSEIF DEFINED(FMX)} ,FMX.Forms, FMX.Graphics {$ELSE} ,Forms ,Graphics {$IFEND} , Contnrs, Classes, Math, dateutils, strutils; >>>>>>> .r10009 Desculpe, eles se repetem várias vezes no código e em vários locais diferentes. Estes são apenas exemplos.

Saudações Fui atualizar o acbr e ele dá erro na instalação no acbrboleto e não permite a instalação dos demais. Segui todas as rotinas descritas acima, mas o erro persiste. Anexo log de atividades. Estou bem enrolado e não sei mais o que fazer. Claudiomir log_Delphi_2010.txt

Saudações Perdão pela idiotice da pergunta, mas eu estou bem perdido. Eu envio o arquivo de remessa para o Sicredi, e gostaria de pegar o arquivo de retorno para saber se o boleto foi processado corretamente. Eu até consigo pegar os dados quando o cliente paga. Mas não sei como fazer para pegar os dados que eu quero. Alguém tem algo assim implementado?? No aguardo, Claudiomir

Valeu Miguel!! Funcionou perfeitamente!! Obrigado!!!

Saudações. Gero e envio a remessa para o Itaú Bankline que me retorna erro acusando a seguinte mensagem: Layout Itau Cob. com Registro - Cnab 400 Registro Detalhe Posição 148 - Campo: Espécie do Titulo: Conteúdo do campo fora do conjunto permitido. (00) Chequei a posição do arquivo e realmente ele está gerando com 00. Mas... no fonte, antes de gerar eu tenho o seguinte código: if fprinci.ACBrBoleto1.Banco.TipoCobranca = cobItau then begin Titulo.EspecieDoc := '02'; end; Ele verifica o teste e sai dele com Titulo.EspecieDoc=02. Conferi várias vezes. Verifiquei em todos os lugares possíveis para encontrar algo do tipo Titulo.EspecieDoc := '00'; mas não encontrei nada. Absolutamente nada. Alguém tem alguma idéia do por que ele não grava como 02 e sim como 00?? No aguardo de alguma ideia, Claudiomir

Olá. Estou implementando os boletos para o Itau, mas recebi uma mensagem deles dizendo que o arquivo de remessa tem que finalizar com a extensão ".txt". Localizei, nos fontes do acbrboleto, function TACBrBancoClass.CalcularNomeArquivoRemessa: String, linha 1739, onde é determinado o nome do arquivo. Destaco o código abaixo: NomeArq := NomeFixo + IntToStrZero(Sequencia, 2) + '.rem' Pergunto. Basta alterar o final dele? E como ele vai se comportar com os outros bancos? Sicredi, por exemplo usa outra extensão. O que devo fazer, ou melhor, o que eu ESQUECI DE FAZER?? Aguardando.. Claudiomir

Valeu Marco Mas eu acabo de descobrir meu erro. Eu estava tratando Titulo.Carteira como se fosse ele o campo a ser alterado e não Titulo.Modalidade. Depois de reler vários topicos eu percebi o tamanho da minha burrice. Para o Sicredi está resolvido. Você por acaso fez algo para Itaú, ou Bancoob, Sicoob e etc?? Tem as Modalidades que deveriam preencher ou tem idéia de onde eu encontro?? Claudiomir

Saudações Não estou conseguindo gerar a cobrança com boleto com registro junto ao sicredi. Segui as instruções do manual do sicredi (1 com registro, 3 sem), Corrigi minha carteira (1) fiz as ligações... Na hora de enviar os dados para gerar a cobrança, verifiquei o código e fprinci.ACBrBoleto1.ChecarDadosObrigatorios; // visualizo aqui e o campo, no caso do sicredi chega como // titulo.carteira = 1 showmessage(Titulo.Carteira); fprinci.ACBrBoleto1.Imprimir; Mas no boleto, no campo Linha Digitágel ele gera como 74893 -- que é sem registro O que eu estou fazendo de errado?? No aguardo de uma idéia.. Claudiomir

Delphi XE + Mysql

Funcionou... mais ou menos. Err.... não, não funcionou. Ele envia sem erros, processa o lote e me retorna o erro 494. Dados enviados estão corretos até onde posso ver. Vou anexar o arquivo de retorno. No código fonte, eu especifico que o evento é: InfEvento.tpEvento := teCancelamento; // erro aqui??? Tecnicamente ele deveria enviar 1, correto?? No arquivo de retorno ele acusa que recebeu: <cStat>494</cStat> <xMotivo>Rejeicao: Chave de Acesso inexistente para o tpEvento que exige a existencia da NF-e</xMotivo> <chNFe>51150411696196000117650010000017581000017584</chNFe> <tpEvento>110111</tpEvento> // isso está correto??? <nSeqEvento>1</nSeqEvento Bem perdido por aqui. 5115041169619600011765001000001758100001758411011101-procEventoNFe.xml 0-ped-evento.xml 0-eve.xml

Tenho um sistema funcionando com VE310. Delphi e Mysql. Emite o nfce normal, exceto que não trato as contingências. Se estiver on-line funciona, senão... “passa mais tarde”. Preciso de tratamento das contingências, suas opções e diversos. Preciso de uma tela onde fiquem armazenadas as nfce que foram emitidas corretamente, bem como aqueles que deram problema e qual o problema que aconteceu. Preciso de um “programa” em “segundo plano” que fique tentando enviar as NFE/NFCE para a sefaz, que foram emitidas em contingência. Se houver alguém disponível, favor entrar em contato. Anexo imagem demo de forma da tela desejada ou similar. Favor contatar [email protected] Claudiomir

Caro Juliomar Acho que pode ser isso que está faltando. ACBrNFe1.Configuracoes.Certificados.SelecionarCertificado := cfgcfgnumserie.AsString; Vou tentar aqui. Obrigado por vossa ajuda. Claudiomir

Caro Juliomar. Posso ter me expressado de forma errada. Tenho uma tela de configurações, onde é feito a seleção do certificado. Ele fica arquivado lá. Desculpe postar código aqui. a Linha de comando é abaixo. DBEdit13.text := ACBrNFe1.Configuracoes.Certificados.SelecionarCertificado; ele seleciona e salva nesse campo na base de dados. abraços Claudiomir

Caro Juliomar. Obrigado por vossa resposta. Vou procurar anexar o código e não mais colar. Não, a única coisa que eu uso é (perdão por colar aqui) listado abaixo. ACBrNFe1.Configuracoes.Geral.IdToken := cfgcfgidtoken.AsString; ACBrNFe1.Configuracoes.Geral.Token := cfgcfgtoken.AsString; Quando eu seleciono o certificado, ele fica gravado aqui. É isso que eu estou errando? Nesse caso, como eu "carrego" o certificado? Desculpe as dúvidas de principiante, mas estou ficando sem idéias. Grato por vossa resposta, Claudiomir

Saudações. Perdão por recriar um tópico semelhante, mas não encontrei a resposta em outros tópicos abertos com o assunto desejado. Estou gerando nfce normalmente. Funciona. Ok. Sem problemas. Vou executar o cancelamento de uma nfce e ele me retorna erro de que o certificado digital não foi carregado. Segue abaixo código fonte. if qvndvndEmitiuNfce.AsString = 'Sim' then begin ACBrNFe1.EventoNFe.Evento.Clear; ACBrNFe1.NotasFiscais.Clear; ACBrNFe1.NotasFiscais.LoadFromFile(qvndvndnomenfce.AsString); Danfenfce.FastFile := 'C:\Posirelo\relat\nfcesimples - modelo 2.fr3'; Danfenfce.MostrarPreview := true; ACBrNFe1.Configuracoes.Geral.IdToken := cfgcfgidtoken.AsString; ACBrNFe1.Configuracoes.Geral.Token := cfgcfgtoken.AsString; // numero do lote de envio (somente um exemplo, pode-se utilizar seu proprio controle) NumeroLote := 0; Protocolo := qvndvndnprot.AsString; // carregar o xml da nota fiscal eletronica, pode ser omitido // showmessage(copy(qvndvndnomenfce.AsString, 28, 52)); { if not ACBrNFe1.NotasFiscais.LoadFromString(qvndvndnomenfce.AsString) then raise Exception.Create('Não foi possível carregar o XML da Nota Fiscal Eletrônica correspondente!'); } // Criar o cancelamento ACBrNFe1.EventoNFe.idLote := NumeroLote; with ACBrNFe1.EventoNFe.Evento.Add do begin InfEvento.tpAmb := ACBrNFe1.NotasFiscais.Items[0].NFe.Ide.tpAmb; InfEvento.chNFe := copy(qvndvndnomenfce.AsString, 27, 44); InfEvento.CNPJ := cfgcfgdoc1.AsString; InfEvento.cOrgao := ACBrNFe1.NotasFiscais.Items[0].NFe.Ide.cUF; InfEvento.dhEvento := now; InfEvento.nSeqEvento := 1; InfEvento.tpEvento := teCancelamento; InfEvento.detEvento.nProt := Protocolo; InfEvento.detEvento.xJust := motivo; ACBrNFe1.EnviarEventoNFe(NumeroLote); end; O erro ocorre no arquivo acbrnfeconfiguracoes, linha 458. fonte abaixo if (PCertCarregado <> nil) and (NumCertCarregado = FNumeroSerie) then Result := PCertCarregado else begin CoInitialize(nil); // PERMITE O USO DE THREAD try if DFeUtil.EstaVazio(FNumeroSerie) then raise EACBrNFeException.Create('Número de Série do Certificado Digital não especificado !'); Result := nil; A questão que me toca é: Se eu tenho funcionando a emissao do NFCE, o certificado não carregaria junto?? Ou devo carregar o certificado de forma diferente. Se sim, como ou onde?? Bem perdido por aqui. No aguardo de uma resposta ou idéia, Claudiomir

Desculpe, Até onde consegui me informar, todos os bancos irão aceitar apenas boletos com registro. Sicredi me informou que é ordem do Banco Central e da Febraban. Claudiomir

Saudações ncc.star Até onde consegui me informar, todos os bancos irão entrar nessa de boletos com registro.

Saudações Com medo de perguntar besteira, mas só vou saber se é besteira depois de perguntar então... vamos lá; Uso o acbr juntamente com o fastreport. Três clientes usam o mesmo sistema e tudo funciona bem, tanto no Sicredi como no Itau. Eles utilizam Cobrança SEM REGISTRO. Agora, segundo o que o Sicredi me informou, a partir de 03/2015 todas as cobranças(boletos) devem ser COM REGISTRO. Eu estou bem perdido. O que devo alterar para que a cobrança se torne "COM REGISTRO"?? Existe um "caminho das pedras", manual, modelo, carta de alforria ou algo assim?? Se sim, onde eu a encontro?? Grato, Claudiomir Levemente em pânico!

Saudações Se me perguntarem, eu não sei o que houve. Um colega programador removeu todo o Acbr e reinstalou tudo de novo. Aparentemente funcionou e resolveu o problema. Grato a todos pelo auxílio. Claudiomir

Saudações a Todos. Rotina de teste case strtoint(bc) of 1: fprinci.ACBrBoleto1.Banco.TipoCobranca := cobBancoDoBrasil; 237: fprinci.ACBrBoleto1.Banco.TipoCobranca := cobBradesco; 341: fprinci.ACBrBoleto1.Banco.TipoCobranca := cobItau; 748: fprinci.ACBrBoleto1.Banco.TipoCobranca := cobSicred; // incluido na atualizacao da nfce 756: fprinci.ACBrBoleto1.Banco.TipoCobranca := cobBancoob; 104: fprinci.ACBrBoleto1.Banco.TipoCobranca := cobCaixaEconomica; 33, 53, 008: fprinci.ACBrBoleto1.Banco.TipoCobranca := cobSantander; end; -- testo neste ponto e o valor de fprinci.ACBrBoleto1.Banco.TipoCobranca é cobBancoDoBrasil. Não tenho mais nenhuma interação com Tipo de Cobrança deste ponto em diante. coloquei vários Break point antes de acbr.boleto.imprimir e verifico os valores informados para Tipo Cobranca. Ele é cobBancoDoBrasil. mas quando chega nesse bloco do componente ele cai nesse teste if Banco.Numero = 0 then raise Exception.Create( ACBrStr('Banco não definido, impossivel listar boleto') ); voltei no break point anterior e verifiquei e ele continua cobBancoDoBrasil. Não consigo entender isso. Por acaso houve alguma alteração nos relatórios de boletos que explique isso?? estou usando o Fast Report! Imprimo Banco Itau e BanSicredi normal. Funciona 100%! Só dá problema com Banco do Brasil. O que eu estou esquecendo?? Alguma Idéia?? Claudiomir

Olá a todos. Deixei esse erro de lado por um tempo, enquanto tentava corrigir. Hoje forcei uma atualização do componente e recompilou tudo. Tentei de novo. Está atualizado. Nada da certo. na Unit AcbrBoleto linha 1215 começa o seguinte codigo. Procedure TACBrBoleto.Imprimir; begin if not Assigned(ACBrBoletoFC) then raise Exception.Create( ACBrStr('Nenhum componente "ACBrBoletoFC" associado' ) ) ; if Banco.Numero = 0 then raise Exception.Create( ACBrStr('Banco não definido, impossivel listar boleto') ); <<<===== ERRO OCORRE AQUI!!! ChecarDadosObrigatorios; ACBrBoletoFC.Imprimir; end; Não importa o que eu atribua para esta variável ou como eu faça isso. Ela sempre chega com 0 (zero). Eu aceito qualquer idéia, por que eu estou sem mais nenhuma. Claudiomir