FabioMachado

Boa noite pessoal, tava lendo aqui um bocado mas não encontrei sobre o download do xml da sefaz. Eu estou fazendo essa rotina abaixo pra buscar e fazer o download do arquivo só que agora começou a dar erro "URL não definida para: TNFEEvent" LerConfiguracaoNFe; InteliNFe.EventoNFe.Evento.Clear; with InteliNFe.EventoNFe.Evento.Add do begin infEvento.cOrgao := 91; infEvento.chNFe := edtChaveAcesso.Text; infEvento.CNPJ := dm.sqlEmpresaEMP_CNPJ.AsString; infEvento.dhEvento := now; infEvento.tpEvento := teManifDestConfirmacao; end; InteliNFe.EnviarEvento(1); with InteliNFe.DownloadNFe do begin Download.CNPJ := dm.sqlEmpresaEMP_CNPJ.AsString; with Download.Chaves.Add do begin chNFe := edtChaveAcesso.Text; end; end; try InteliNFe.Download; except on e : Exception do begin MessageBox(Handle, PWideChar(e.Message), PWideChar('Atenção'), MB_OK + MB_ICONEXCLAMATION); Exit; end; end;

É Daniel eu também pensava assim mais olha o que ta na unit ACBrNFe: Result := WebServices.Envia(ALote, Sincrono); function TACBrNFe.Enviar(ALote: String; Imprimir: Boolean; Sincrono: Boolean): Boolean; var i: integer; begin if NotasFiscais.Count <= 0 then GerarException(ACBrStr('ERRO: Nenhuma NF-e adicionada ao Lote')); if NotasFiscais.Count > 50 then GerarException(ACBrStr('ERRO: Conjunto de NF-e transmitidas (máximo de 50 NF-e)' + ' excedido. Quantidade atual: ' + IntToStr(NotasFiscais.Count))); NotasFiscais.Assinar; NotasFiscais.Validar; Result := WebServices.Envia(ALote, Sincrono); if DANFE <> nil then begin for i := 0 to NotasFiscais.Count - 1 do begin if NotasFiscais.Items.Confirmada and Imprimir then begin NotasFiscais.Items.Imprimir; if (DANFE.ClassName = 'TACBrNFeDANFERaveCB') then Break; end; end; end; end;

Boa tarde, valeu mesmo pelas dicas, to fazendo os testes aqui e esbarrei no seguinte, ta dando: Rejeicao: Total do Valor Aproximado dos Tributos difere do somatorio dos itens. Anexei o XML pra ver o que pode ser, pq o que acontece é que é do Simples Nacional com CST 102, mas quando eu coloca o valor dos tributos da essa rejeição. E fica também a pergunta, empresas optantes pelo simples nacional são obrigadas a informar o valor Aproximado dos tributos? 14151007198515000197650010000006351000006353-nfe.xml

Um simples exemplo: var AliqFederal: Double; if ACBrIBPTax1.Procurar('61091000', ex, descricao, tabela, aliqFedNac, aliqFedImp, aliqEst, aliqMun, False) then AliqFederal := aliqFedNac/100; Entendi, então eu calculo isso de cada produto lançado e vou somando os valores de cada um dos impostos, e onde eu coloco o valor total desses impostos para poder gerar aquela mensagem da Lei "Impostos totais incidentes"? Isso mesmo... E depois de calcular isso ai tudo, onde é que eu preencho no componente para ele imprimir no danfe a informação dos impostos?

Um simples exemplo: var AliqFederal: Double; if ACBrIBPTax1.Procurar('61091000', ex, descricao, tabela, aliqFedNac, aliqFedImp, aliqEst, aliqMun, False) then AliqFederal := aliqFedNac/100; Entendi, então eu calculo isso de cada produto lançado e vou somando os valores de cada um dos impostos, e onde eu coloco o valor total desses impostos para poder gerar aquela mensagem da Lei "Impostos totais incidentes"?

Bom dia galera, fuçando o exemplos do acbr eu encontrei apenas como importar a tabela do ibpt como segue: try dm.tmpCadastro.Close; //ACBrIBPTax1.URLDownload := Trim('https://acbr.svn.sourceforge.net/svnroot/acbr/trunk/Exemplos/ACBrIBPTax/tabela/AcspDeOlhoNoImpostoIbptV.0.0.1.csv'); // if not ACBrIBPTax1.DownloadTabela then begin // se o path do arquivo não for passado, então o componente vai tentar baixar // a tabela no URL informado cdiretorio:= ExtractFilePath(Application.ExeName); ACBrIBPTax1.AbrirTabela('c:\Liberty\bin\IBPT.csv');//cdiretorio+'IBPT.csv'); // end; dm.tmpCadastro.Close; dm.tmpCadastro.CreateDataSet; dm.tmpCadastro.DisableControls; try for I := 0 to ACBrIBPTax1.Itens.Count - 1 do begin dm.tmpCadastro.Append; dm.tmpCadastroNCM.AsString := ACBrIBPTax1.Itens.NCM; dm.tmpCadastroEx.AsString := ACBrIBPTax1.Itens.Excecao; dm.tmpCadastroTabela.AsInteger := Integer(ACBrIBPTax1.Itens.Tabela); dm.tmpCadastroAliqNacional.AsFloat := ACBrIBPTax1.Itens.FederalNacional; dm.tmpCadastroAliqInternacional.AsFloat := ACBrIBPTax1.Itens.FederalImportado; dm.tmpCadastro.Post; end; finally dm.tmpCadastro.First; dm.tmpCadastro.EnableControls; Tá até ai tudo bem, o que não encontrei foi como utilizar isso dentro da NFe ou NFCe. Alguem tem um exemplo por ai?

Bom dia O Log mostra que é a sua aplicação que está enviando 2x... veja que existem duas chamadas ao método: -- 20/10 17:11:25:089 - Imprimir, Copias:1, DecodificarTags:SIM, TraduzirTags:SIM Tente debugar... Provavelmente é algo na sua aplicação... Faça testes com o SATTeste.exe, nesse ambienBom Bom dia Daniel, reparei o seguinte, eu só tenho uma chama em toda a minha aplicação para a impressão que é essa linha a baixo. ImprimeDanfe; que faz exatamente isso: procedure TFrmFinalizaCupom.ImprimeDanfe; {Var cNomeOld, cNomeNew : String;} begin if frmPrincipal.iModeleDanfe=0 then begin try try // frmPrincipal.inteliNFCe.DANFE.ViaConsumidor := True; frmPrincipal.inteliNFCe.DANFE.ImprimirItens := True;// := not chkDanfeResumido.Checked; frmPrincipal.inteliNFCe.NotasFiscais.Imprimir; finally end; except on e : exception do begin Application.MessageBox(pChar(E.Message), 'Erro', MB_ICONERROR + MB_OK); end; end; end; if frmPrincipal.iModeleDanfe=1 then begin try try // frmPrincipal.inteliNFCe.DANFE.ViaConsumidor := True; frmPrincipal.inteliNFCe.DANFE.ImprimirItens := True;// := not chkDanfeResumido.Checked; frmPrincipal.inteliNFCe.NotasFiscais.Imprimir; // frmPrincipal.inteliNFCe.NotasFiscais.ImprimirPDF; finally end; except on e : exception do begin Application.MessageBox(pChar(E.Message), 'Erro', MB_ICONERROR + MB_OK); end; end; end; end; ///////////////////////////// Só que ta gerando a impressão antes de chegar ai, eu acho que o componente ta imprimindo direto sem que eu chame a impressão.

Cara eu fiz o seguinte, tenho uma tabela de pagamentos onde defino o tipo la para o usuário aparece dinheiro e registra 0, cartão crédito registro 1 e por ai vai. ficou assim na hora de alimentar o componente. Derepente ajuda. while not dm.sqlPagamentosNFCe.Eof do begin with Pag.Add do begin case dm.sqlPagamentosNFCePMP_ID_FISCAL.AsInteger of 0: tPag := fpDinheiro; 1: tPag := fpCheque; 2: tPag := fpCartaoCredito; 3: tPag := fpCartaoDebito; 4: tPag := fpCreditoLoja; 5: tPag := fpValeAlimentacao; 6: tPag := fpValeRefeicao; 7: tPag := fpValePresente; 8: tPag := fpValeCombustivel; 9: tPag := fpOutro; end; //vPag := dm.sqlPagamentosNFCePMP_VALOR_PAGO.AsCurrency; //rTotalNota - rTotalDesconto; vPag := dm.sqlPagamentosNFCePMP_VALOR_RECEBIDO.AsCurrency; end; dm.sqlPagamentosNFCe.Next; end;

Daniel, ta enviando duas vias de acordo com o Log. LogImpNFCe

Cara, eu passei muitos dias com esse problema, até postei aqui o problema e o que eu percebi foi o seguinte, o usuário te ferra o quanto ele puder, rsrsrsrs. Quando envia uma nota, normalmente os dados são registrados blz mas quando na sequencia vc tem um erro na validação por exemplo, não existe dados no retorno e o clear parece que não funciona em alguns campos. Veja: objNFM_PROTOCOLO_RECEBIMENTO.Text := LibertyNFe.WebServices.Retorno.Recibo; objNFM_PROTOCOLO_PROCESSAMENTO.Text := LibertyNFe.WebServices.Retorno.Protocolo; objNFM_CHAVE_ACESSO.Text := LibertyNFe.WebServices.Retorno.ChaveNFe; Pra mim ficou assim e deu resultado: except {coloquei tudo dentro de um try except e não pego o retorno quando dá o erro, apenas aviso o usuário} on e : exception do begin MessageDlg('Erro ao enviar NFe: ' + e.message, mtWarning, [mbOK], 0); frmNotasFiscais.FormStyle := fsStayOnTop; end;

Boa Noite, ja li um monte de post mais eu ainda tenho um problema e não consegui descobrir. São dois ambientes 1º - o meu com windows 10 impressora Epson TM-T20 pela porta USB imprimindo uma via normalmente. 2º De um cliente, com windows 7 impressora Epson TM-T20 pela porta USB imprimindo duas vias. ja revisei a configuração do Arquivo .ini que uso guardar as configurações, ja exclui e re-configurei todo o arquivo. e a só imprime duas vias, e isso ta acontecendo em dois clientes com a mesma impressora que a minha de testes, e outros clientes com a mesma impressora funciona normal imprimindo apenas uma via e todos utilizando a mesma compilação. Mais alguém passando por algo assim?

Descobri o seguinte, tem que configurar primeiro o tipo de cobrança pra depois colocar os dados do cedente. ACBrBoleto1.Banco.TipoCobranca:=cobItau;

Reparei algo estranho no componente, em alguns momentos quando se preenche o número da conta ele automaticamente coloca dois 00 antes exemplo eu preencho em 65064 ele faz o seguinte 0065064 e quando isso acontece, da erro.

Resultado: Após calcular, recalcular e recalcular umas 20 vezes, chequei a conclusão que os cálculos no ACBrBoleto não estavam errados então fui atrás do que poderia ser e aconteceu o seguinte: Antes do Trunk2 eu informava o código do sedente da seguinte maneira: 06506-4 e agora bastou retirar o - informando o código do cedente assim: 065064 e tudo calculou-se normalmente e a linha digitável passou ha não dar mais erros.

Perfeito, acabei de baixar e começo a trabalhar nele amanhã cedo. assim que tiver novidades eu posto aqui.

estou usando o trunk2 Eu estou usando o trunk2 ( https://svn.code.sf.net/p/acbr/code/trunk2 )

Eu acho que essa pasta só aparece pra vcs que teem acesso ao comitar, pra mim aqui não rola essa pasta não.

Alguem tem um manual atualizado do Itaú? eu ja solicitei no banco mas por aqui o pessoal ta nem ai pra gente. Se tiverem favor me enviar por email:[email protected]

Agora deu certo, consegui. kkkkk, problema resolvido, de anti mão, não era o componente como eu previa. era o meu código mesmo. não tava passando a série e tb tava passando o imposto sem calcular. Será que seria possivel você falar qual imposto estava faltando calcular ? ou talvez mandar o XML corrigido. Estou com o mesmo problema. Desde de já agradeço e fico no aguardo. Não me lembro exatamente o que era, mas eu estava deixando de preencher algumas tags. Segue uma xml para analise. 14151007198515000197650010000005761000005761-nfe.xml

Juliana não sou apenas eu não, todos que estão usando o boleto do Itaú estão com esse problema, pelo menos aqueles que atualizaram o componente.

Ja o tinha feito, o instalador não funciona aqui comigo ja faz um bom tempo, por isso eu criei um projeto onde coloco toas as units para poder compilar na sequencia correta justamente pra evitar de faltar uma compilação ou uma instalação. Sempre funcionou, hoje, atualização que fiz pela manhã não compila da esse erro.

Nada? Ainda não pude enviar os meus boletos do mês, o desespero ja começa a tomar conta.

Atualizado hoje pela manhã, não instala da o seguinte erro [dcc32 Error] ACBrNFeDANFEFRDM.pas(1935): E2003 Undeclared identifier: 'FpNFe' Na linha: if EstaVazio(Trim(FpNFe.infNFeSupl.qrCode)) then //1935 qrcode := TACBrNFe(DANFEClassOwner.ACBrNFe).GetURLQRCode( NFe.ide.cUF, NFe.ide.tpAmb, OnlyNumber(NFe.InfNFe.ID), IfThen(NFe.Dest.idEstrangeiro <> '',NFe.Dest.idEstrangeiro, NFe.Dest.CNPJCPF), NFe.ide.dEmi, NFe.Total.ICMSTot.vNF, NFe.Total.ICMSTot.vICMS, NFe.signature.DigestValue ) else qrcode := FpNFe.infNFeSupl.qrCode; da unit unit ACBrNFeDANFEFRDM;

Boa Noite, fiz a atualização a pouco do componente, instalei tudo, blz e tal agora fui testar a ultima compilação do sistema e começou a aparecer a seguinte rejeição; Erro: 0 - Rejeição: Nota Fiscal sem a informação do QR-Code. O estranho é que estava funcionando tudo, então fui conferir o código que está assim: NFCe.Configuracoes.Geral.IdCSC:=Ini.ReadString('Configuracao', 'idToken', ''); NFCe.Configuracoes.Geral.CSC:=Ini.ReadString('Configuracao', 'Token', ''); então fiz o seguinte pra ver se realmente estava preenchendo: lblMensagem.Caption:='ID: '+NFCe.Configuracoes.Geral.IdCSC+' Chave: '+NFCe.Configuracoes.Geral.CSC; e está tudo la, certinho. Mudou algo?

Oi Juliana, o problema está ocorrendo nos dois, uma vez que tanto lendo como digitando da código de barras inválido.