Claudiomir

Saudações a todos Eu assumi esse sistema que estou terminando de outro programador. Ele já usava o acbrboleto. Entrei em contato com ele e ele comentou que alterou algo no codigo fonte do acbr na parte específica do banco do brasil. Essa semana eu baixei a atualização do acbr e simplesmente compilei o meu projeto feito no delphi. Funciona para Sicredi e Itau. Não para Banco do Brasil. A pergunta que tenho é:: Se ele alterou algo no fonte do acbrboleto, quando eu atualizei e compilei MEU PROJETO, ele compilou também a versão nova do acbrboleto, ou não??? Se não, o que devo fazer para forçar essa atualização?? Quaisquer idéias seriam bem vindas. Claudiomir

Saudações Juliana Essa é a parte interessante. Ele entra no if. Ele aceita a opção fprinci.ACBrBoleto1.Banco.TipoCobranca := cobBancoDoBrasil; Tudo normal, exceto que o fprinci.ACBrBoleto1.Banco.Numero := 1 não funciona. Não acusa erro algum aqui. Ele roda normal e "tecnicamente" aceita o valor 1. No entanto, ele permanece como 0(zero). Debuguei, linha a linha, várias vezes. Testei tudo o que pude. Inclusive removi a declaração fprinci.ACBrBoleto1.Banco.Numero := 1; Continua dando mesmo erro. Como uso o Delphi, deletei os .DCU. Recompilei todo o projeto e não acusa erro algum, exceto que quando mando imprimir ele continua dando erro dizendo que eu não informei o ACBrBoleto1.Banco.Numero. Realmente essa me pegou de surpresa. Não consigo encontrar o bug em lugar algum. Quaisquer idéias seriam bem vindas. Claudiomir

Saudações Juliana Sim. Segue codigo anexo. fprinci.ACBrBoleto1.ListadeBoletos.Clear; // fprinci.ACBrBoleto1.Banco.Numero := strtoint(bc); case strtoint(bc) of 1: begin fprinci.ACBrBoleto1.Banco.Numero := 1; fprinci.ACBrBoleto1.Banco.TipoCobranca := cobBancoDoBrasil; end; 237: fprinci.ACBrBoleto1.Banco.TipoCobranca := cobBradesco; 341: fprinci.ACBrBoleto1.Banco.TipoCobranca := cobItau; 748: fprinci.ACBrBoleto1.Banco.TipoCobranca := cobSicred; 756: fprinci.ACBrBoleto1.Banco.TipoCobranca := cobBancoob; 104: fprinci.ACBrBoleto1.Banco.TipoCobranca := cobCaixaEconomica; 33, 53, 008: fprinci.ACBrBoleto1.Banco.TipoCobranca := cobSantander; end; fprinci.ACBrBoleto1.Cedente.Agencia := self.ctactanragencia.AsString; fprinci.ACBrBoleto1.Cedente.AgenciaDigito := self.ctactadgagencia.AsString; fprinci.ACBrBoleto1.Cedente.Conta := self.ctacatnrconta.AsString; fprinci.ACBrBoleto1.Cedente.ContaDigito := self.ctactadgconta.AsString; . . . Se eu testar aqui, nesse ponto ele me retorna Banco=0 fprinci.ACBrBoleto1.ChecarDadosObrigatorios; fprinci.ACBrBoleto1.Imprimir; Ainda tentando entender... Claudiomir

Saudações David_Junior. ABCRBoleto atualizado. Testei sua ideia. Não funcionou. Continua dando "Banco não definido, impossível listar boleto" Continuo tentando e aguardando novas ideias. Claudiomir

Saudações Estou tentando implementar o AcbrBoleto para o Banco do Brasil, mas estou esbarrando em um erro. Segue código abaixo: case strtoint(bc) of 1: begin fprinci.ACBrBoleto1.Banco.TipoCobranca := cobBancoDoBrasil; fprinci.ACBrBoleto1.Banco.Numero := 001; <=== erro aqui end; 237: fprinci.ACBrBoleto1.Banco.TipoCobranca := cobBradesco; 341: fprinci.ACBrBoleto1.Banco.TipoCobranca := cobItau; 748: fprinci.ACBrBoleto1.Banco.TipoCobranca := cobSicred; Ele aceita o valor, mas de alguma forma, maneira ou circunstância, continua com valor 0(zero). Não importa quantas vezes ou de que forma eu atribua valor para este campo (ACBrBoleto1.Banco.Numero) ele continua com valor zero. Na hora de imprimir o boleto ele retorna erro dizendo que o banco não foi informado. "Banco não definido, impossível listar boleto" Já tentei somente com '1', e nada feito. Com outros bancos, isso não acontece. Imprimo com itau e Sicredi numa boa. Alguém tem alguma idéia??? Claudiomir

resolvi da seguinte forma. unit ACBrBancoob; . . . . constructor TACBrBancoob.create(AOwner: TACBrBanco); begin inherited create(AOwner); fpDigito := 0; fpNome := 'SICOOB'; fpNumero := 756; fpTamanhoMaximoNossoNum := 9; fpTamanhoCarteira := 1; fpTamanhoConta := 8; fpCodigosMoraAceitos:= '2'; end; por enquanto.... funciona Claudiomir

Saudações Otávio. Desculpe, mas não posso te ajudar. Estou com o mesmo problema, apesar de usar o Fast Report. Meu problema tem sido Bancoob e Banco do Brasil. Se alguém puder ajudar, fico grato. Claudiomir

Ok, Rodrigo. Agradeço vosso esclarecimento. Sem forçar a amizade, já forçando, e por favor não me xingue, mas você tem um "roteiro" de como fazer isso? Você usou algum componente para isso ou fez tudo na unha?? Abraços Bom final de semana

Saudações. O Escritório contábil de um cliente exige que eu envie para eles, no final de cada mês, somente um e-mail com todos os xml das NFC-e e das NFE emitidas durante o mês. Não um e-mal por NFE. Um geral, com tudo. Duvida: 1) Isso é responsabilidade do Sistema ou do Escritório Contábil? 2) Alguém tem alguma ideia de como implementar isso?? No aguardo, Claudiomir

Desculpe reabrir o tópico mas achei melhor do que começar um novo. Sobre o cancelamento da nfce tenho o seguinte código: // retornos qvnd.Edit; qvndvndDataHoraEvento.AsFloat := EventoRetorno.retEvento.Items[0].RetInfEvento.dhRegEvento; qvndvndnprotcancela.AsString := EventoRetorno.retEvento.Items[0].RetInfEvento.nProt; qvndstatus.AsString := 'NFC-e Cancelada'; qvndvndXMLCancelamento.AsString := EventoRetorno.retEvento.Items[0].RetInfEvento.XML; //// Aqui! O que devo salvar aqui? O Xml inteiro? o local onde ele foi gravado?? no momento ele me retorna o seguinte valor <?xml version="1.0" encoding="UTF-8" ?> <procEventoNFe versao="1.00" xmlns="http://www.portalfiscal e só. Ou o campo é pequeno ou eu estou salvando a coisa errada por aqui. idéias?? Sugestões?? No aguardo Claudiomir

Caro Centuryinf Testei sua ideia. Ele aparece somente uma parcela, ja quitada. No entanto, eu gostaria que aparecesse como 'PAGAMENTO A VISTA'. Grato pela ajuda. Claudiomir

Arquivo anexado. 51140811124759000100550010001760001001760004-nfe.xml

Desculpe, Juliomar, mas não entendi nada. Por favor use palavras pequenas. Sem férias ha 5 anos e sem dormir ha 3 dias. Foi definida que as Nfe deste cliente seriam sempre a vista. Ide.natOp: = 'VENDA'; Ide.indPag: = ipVista; Não é assim que determina a forma de pgto da NFE?? Ou estou viajando tanto em café que nem sei mais?? No aguardo, Claudiomir

Saudações Estou montando a NFE e estou sem entender como defino o pagamento a vista na NFE. Estou usando o Fast-Report e não aparece nada em 'Fatura'. Sei que esqueci algo, mas nem ideia do que seja. Código segue abaixo. ACBrNFe1.NotasFiscais.Clear; with ACBrNFe1.NotasFiscais.Add.NFe do begin ACBrNFeDANFEFR1.FastFile := 'C:\Posirelo\relat\danfe.fr3'; ACBrNFeDANFEFR1.MostrarPreview := true; { ACBrNFe1.Configuracoes.Geral.IdToken := cfgcfgidtoken.AsString; ACBrNFe1.Configuracoes.Geral.Token := cfgcfgtoken.AsString; } ACBrNFe1.Configuracoes.Certificados.NumeroSerie := cfgcfgnumserie.AsString; ACBrNFe1.Configuracoes.Certificados.Senha := cfgcfgsenha.AsString; ACBrNFe1.Configuracoes.Geral.PathSalvar := cfgcfgcaminhoarquivoenviorespostaNFC.AsString; numNfe := cfgcfgnumNFC.AsInteger + 1; Ide.cNF := numNfe; Ide.nNF := numNfe; Ide.natOp := 'VENDA '; Ide.indPag := ipVista; Ide.Modelo := 55; Ide.Serie := 1; Ide.cUF := NotaUtil.UFtoCUF(cfgcfguf.AsString); Ide.cMunFG := cfgcddcodigo.AsInteger; Ide.finNFe := fnNormal; Ide.dEmi := Date; Ide.dSaiEnt := Date; Ide.hSaiEnt := now; Ide.tpNF := tnSaida; Ide.tpEmis := teNormal; ACBrNFe1.Configuracoes.Geral.VersaoDF := ve310; Ide.indFinal := cfConsumidorFinal; Ide.indPres := pcPresencial; Transp.modFrete := mfSemFrete; if Assigned(ACBrNFe1.DANFE) then Ide.tpImp := ACBrNFe1.DANFE.TipoDANFE; if cfgcfgnfceambiente.AsString = 'Produção' then begin Ide.tpAmb := taProducao; ACBrNFe1.Configuracoes.WebServices.Ambiente := taProducao; end else begin Ide.tpAmb := taHomologacao; ACBrNFe1.Configuracoes.WebServices.Ambiente := taHomologacao; end; { // ***************************** // Dados da Empresa Emissora // ***************************** } Se alguém tiver uma ideia, fico grato e ofereço em troca um saco de balinhas de limão, ruins como só. akakakaka No aguardo Claudiomir

Sim, Regys. Erro de idiota. Falta de sono.

Galera... acho que achei. Testes indicam isso. mudei isso. with ACBrNFe1.EventoNFe.Evento.Add do begin infEvento.chNFe := copy(qvndvndnomenfce.AsString, 28, 44); infEvento.CNPJ := cfgcfgdoc1.AsString; infEvento.dhEvento := now; erro no envio da chave. Abraços galera Tópico (aparentemente) resolvido.

Saudações Estou cometendo algum erro muito idiota que não consigo ver. Estou tentando cancelar uma Nfce emitida e estou tendo um retorno que não encontro aqui no site, (apesar de achar alguns bem parecidos). Fiz a nota em tempo de homologação e tento cancelar ainda entro do prazo de 2 horas. Estou usando o código abaixo: if qvndvndEmitiuNfce.AsString = 'Sim' then begin ACBrNFe1.NotasFiscais.Clear; ACBrNFe1.NotasFiscais.LoadFromFile(qvndvndnomenfce.AsString); ACBrNFeDANFEFR1.FastFile := 'C:\Posirelo\relat\nfcesimples - modelo 2.fr3'; ACBrNFeDANFEFR1.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((copy(qvndvndnomenfce.AsString, 28, 52))) then raise Exception.Create('Não foi possível carregar o XML da Nota Fiscal Eletrônica correspondente!'); } // Criar o cancelamento ACBrNFe1.EventoNFe.Evento.Clear; ACBrNFe1.EventoNFe.idLote := NumeroLote; with ACBrNFe1.EventoNFe.Evento.Add do begin infEvento.chNFe := copy(qvndvndnomenfce.AsString, 28, 152); infEvento.CNPJ := cfgcfgdoc1.AsString; infEvento.dhEvento := now; infEvento.tpEvento := teCancelamento; infEvento.detEvento.nProt := Protocolo; infEvento.detEvento.xJust := motivo; infEvento.detEvento.cOrgaoAutor := 51; // Mato Grosso ACBrNFe1.EnviarEventoNFe(1); end; // Enviar o evento de cancelamento if ACBrNFe1.EnviarEventoNFe(NumeroLote) then begin with ACBrNFe1.WebServices.EnvEvento do begin if EventoRetorno.retEvento.Items[0].RetInfEvento.cStat <> 135 then begin raise Exception.CreateFmt('Ocorreu o seguinte erro ao cancelar a nota fiscal eletrônica:' + sLineBreak + 'Código:%d' + sLineBreak + 'Motivo: %s', [EventoRetorno.retEvento.Items[0].RetInfEvento.cStat, EventoRetorno.retEvento.Items[0].RetInfEvento.xMotivo]); end; // retornos qvndvndDataHoraEvento.AsFloat := EventoRetorno.retEvento.Items[0].RetInfEvento.dhRegEvento; qvndvndNumeroProtocolo.AsString := EventoRetorno.retEvento.Items[0].RetInfEvento.nProt; qvndvndXMLCancelamento.AsString := EventoRetorno.retEvento.Items[0].RetInfEvento.XML; qvndvndCodigoStatus.AsInteger := EventoRetorno.retEvento.Items[0].RetInfEvento.cStat; qvndvndMotivoStatus.AsString := EventoRetorno.retEvento.Items[0].RetInfEvento.xMotivo; end; end else begin with ACBrNFe1.WebServices.EnvEvento do begin raise Exception.Create('Ocorreram erros ao tentar efetuar o cancelamento:' + sLineBreak + 'Lote: ' + inttostr (EventoRetorno.idLote) + sLineBreak + 'Ambiente: ' + TpAmbToStr(EventoRetorno.tpAmb) + sLineBreak + 'Orgao: ' + inttostr(EventoRetorno.cOrgao) + sLineBreak + sLineBreak + 'Status: ' + inttostr(EventoRetorno.cStat) + sLineBreak + 'Motivo: ' + EventoRetorno.xMotivo); end; end; end; O erro que retorna é : ' Falha na validação dos dados de envio de evento '51140811124759000100650010000670011000670018-nfe.xml' violates pattern constraint of '[0-9] {44}. The element '{www.portalfiuscal.inf.br/nfe/} chnfe ' whith value 51140811124759000100650010000670011000670018. Até onde entendi, estou enviando a chave errada, mas não consigo descobrir o porque. Ás vezes também recebo o erro de Orgão não identificado. Sou de MT onde o Orgão seria 51. Qualquer idéia ajuda. Grato galera. Claudiomir

Caro juaumkiko Resolvi com uma alteração minima. No formulário, opção onclose. Action:=cafree. Falta de sono e cansaço somado a falta de férias causam erros estupidos. Obrigado por vossa ajuda. Tópico Resolvido.

Saudações. Gero a nfce do Senhor XXX. Envio a Nfce do Senhor XXX. Visualizo a NFce do Senhor XXX. Imprimo a Nfce do Senhor XXX. Gero a nfce do Senhor YYY.Envio a Nfce do Senhor YYY. Visualizo a NFce do Senhor XXX Imprimo a Nfce do Senhor XXX. Nem mesmo com a opção de reimprimir a Nfce ele permite a visualização da NFce do Senhor YYY. Somente a do Senhor XXX. A única maneira de visualizar e imprimir a Nfce do Senhor YYYY é fechando o sistema inteiro e abrindo de novo. Funciona mas é impraticável a longo prazo. É como se o relatorio ficasse preso na memoria e não atualizasse os dados do relatório de jeito nenhum. Alguém tem alguma idéia do que estou fazendo de errado?? Abaixo código usado para impressão. .... ACBrNFe1.NotasFiscais.Clear; ACBrNFeDANFEFR1.FastFile := 'C:\Posirelo\relat\nfcesimples - modelo 2.fr3'; ACBrNFeDANFEFR1.MostrarPreview := true; ... ACBrNFe1.Enviar(vNumLote, true, Sincrono); E da Reimpressão.. if qvndvndEmitiuNfce.AsString = 'Sim' then begin ACBrNFe1.NotasFiscais.Clear; ACBrNFeDANFEFR1.FastFile := ''; ACBrNFe1.NotasFiscais.LoadFromFile(qvndvndnomenfce.AsString); ACBrNFeDANFEFR1.FastFile := 'C:\Posirelo\relat\nfcesimples - modelo 2.fr3'; // ACBrNFeDANFEFR1.MostrarPreview := true; ACBrNFe1.Configuracoes.Geral.IdToken := cfgcfgidtoken.AsString; ACBrNFe1.Configuracoes.Geral.Token := cfgcfgtoken.AsString; ACBrNFe1.NotasFiscais.Imprimir; end Aguardo qualquer ideia por que as minhas se esgotaram. Claudiomir

Ainda com problema. Consegui acertar NossoNumero de acordo com o manual, mas agora dá erro dizendo que o Nosso Numero não está correto. Peguei o manual direto do banco e ele informa que nosso numero é de 9 digitos. estou informando essa linha abaixo, antes de dar o erro. fprinci.ACBrBoleto1.Banco.Numero := strtoint(bc); // sendo que bc é = 756. Uma vez que envio para impressao tenho uma mensagem de erro dizendo: " Tamanho Máximo do Nosso Numero é 7" Galera, qualquer ajuda, ajuda. No aguardo. Claudiomir

Saudações a todos Assumi os fontes de um sistema e precisei atualizar o Acbr para imprimir as NFC-e. Depois de muita ajuda por parte de todos, incluindo os membros deste grupo, as NFC-e estão funcionando. No entanto, o acbr boleto ficou... bem, eu diria insano, mas não se adequa. 1) Por exemplo, ele não imprime mais boletos para o banco Bancoob, e sim, eu li o tópico associado a este grupo e fiz as alterações de acordo, conforme modelo abaixo. fprinci.ACBrBoleto1.Banco.Numero := strtoint(bc); //fprinci é o formulario principal, ou tela principal do sistema 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; Fazendo dessa forma, ele indica que on banco 756 o numero máximo do "nosso número" deve ser 7 e não 13 como estava sendo feito. Estou errando algo ou é assim mesmo??? 2) em outro cliente, que usa o mesmo sistema(só que com o banco sicredi) ele funciona adequadamente. Só que o programador antigo alterou algo( e não, eu não sei onde ele fez ou por onde anda) só que na impressão do boleto, ele imprimia ao invés de recibo e fatura (com código de barra para pgto em banco) ele imprimia recibo, fatura, fatura (2x) na mesma folha. Como torno a implementar isso??? Espero ter sido claro ( embora os problemas sejam obscuros kakakakaka!!) No aguardo de qualquer ajuda, Antecipadamente agradeço, Claudiomir

Valeu Régys. Obrigado. Achei realmente que o contador tava tirando uma da minha cara. Vou implementar a reimpressão. Mais uma vez, muito obrigado. Claudiomir - Sorriso - MT

Saudações a todos Vou fazer uma pergunta meio idiota, mas... Contador de um cliente me informa que devo montar uma rotina de Reimpressão de Nfc-E. Pesquisei para todos os lados e não encontrei nada sobre isso. Das duas uma, ou não encontrei por procurar no lugar errado, ou o contador tá tirando uma com a minha cara. Por favor, alguém tem alguma idéia? E se tiver a informação, pode me orientar onde a encontrar?? Obrigado a todos. Claudiomir - Sorriso - MT.

Caro Régys Grato por sua explicação. Estou usando um aplicativo chamado QR Droid. Ele realmente entende como texto simples. Vou tentar usar outro aplicativo e ver se resolve o problema. Por falar nisso... Parabéns a todos do Projeto ACBR por um componente tão fabuloso. Salvaram-me de semanas de dor de cabeça. Abraço especial ao criador do módulo de impressão integrada ao Fast Report. Até + Claudiomir

Caro Régys Grato por sua explicação. Consegui criar o qrcode e o imprimir. Mas quando vou ler no celular ele ao invés de acessar o site da sefaz, acessa o do google e traz o endereço na tela como se fosse um link normal. Após confirmar ele finalmente acessa o site da sefaz. Tentei com vários celulares e deu a mesma coisa. Isso é "assim mesmo" ou estou errando algo tão na cara que nem estou vendo?? No aguardo, Claudiomir - Sorriso - MT