Hetosoft Sistemas

Fis um monitor nfc-e para enviar os nfc-e em off-line como a cada 5 minutos ele tenta enviar, nao pode mostrar tela de erro, eu pego os erro e guardo em um memu, mais tem uma messagem que nao to conseguindo. Aparece com mensagem de ok, para ususario aperta ok, mais nao pode , tem que da erro e pula pro proximo registro. Erro: ha messagem é limite de tempo excediddo, como façor para nao mostrar esta messagem , obrigado.

Estou tentando configurar NFS-e para MICROEMPREENDEDOR INDIVIDUAL ele tem alicota zero mais da este erro Valor do ISS nao informado o que deve ser?

Solução provisolria https://sourceforge.net/p/recuperaxml/discussion/general/thread/c10f1f9e/

Sei que o projeto nao continuar, mais alguem ja tem as mudanca para funcionar no no site da sefaz, esta semana parou de funcionar, nao vem mais a imgem.

Ha entendi, desculpa, vc mudou no componente.

Não adiante continuar mostrando 6 linhas.

Aceita add as 8 mais so mostra no danfe 6 e a fonte ta bem grande né. a imagem com rave e com quickreport

Cara to muito acustumado com reportbuilder, mais tem impressao do nfc-e com QuickReport, porque tentei mais nao deu certo ? de uma olhada na configuração que fis

Estou usando ACBrNFeDANFEQR1 em vem do RAVE e so mostra 5 linhas nas informações adicionais, é isto mesmo, porque no RAVE mostrava 8 linhas?

Não to coseguindo configurar o componente do ReportBuilder coloco o conteudo 2DBarCode1.Data := e o BarCodeType := bcQRCode mais o codigo fica invalido, mais o conteudo ta correto, pos ja uso em um componete Barcode2D_QRCode1 tem que fazer mais alguma configuracao ? obrigado pela atencao. if Form_NFe.ACBrNFe1.NotasFiscais.Items[0].NFe.Ide.tpAmb = taProducao then URL := 'http://www.sefaz.mt.gov.br/nfce/consultanfce?' else URL := 'http://homologacao.sefaz.mt.gov.br/nfce/consultanfce?'; if Form_NFe.ACBrNFe1.NotasFiscais.Items[0].NFe.Ide.tpAmb = taProducao then tpAmb := '1' else tpAmb := '2'; cDest := Iif(Length(Form_NFe.ACBrNFe1.NotasFiscais.Items[0].NFe.Dest.CNPJCPF) > 0, Form_NFe.ACBrNFe1.NotasFiscais.Items[0].NFe.Dest.CNPJCPF, ''); Memo1.Lines.Clear; Memo1.Text := URL + 'chNFe=' + Form_NFe.ACBrNFe1.NotasFiscais.Items[0].NFe.procNFe.chNFe + '&nVersao=' + '100' + '&tpAmb=' + tpAmb + Iif((Length(cDest) > 0),('&cDest=' + cDest), '') + '&dhEmi=' + StringToHex(DateTimeTodhUTC(Form_NFe.ACBrNFe1.NotasFiscais.Items[0].NFe.Ide.dEmi,GetUTC(Form_NFe.ACBrNFe1.NotasFiscais.Items[0].NFe.emit.enderEmit.UF, Form_NFe.ACBrNFe1.NotasFiscais.Items[0].NFe.Ide.dEmi))) + '&vNF=' + FormatFloat(',0.00;-,0.00', Form_NFe.ACBrNFe1.NotasFiscais.Items[0].NFe.Total.ICMSTot.vNF) + '&vICMS=' + FormatFloat(',0.00;-,0.00', Form_NFe.ACBrNFe1.NotasFiscais.Items[0].NFe.Total.ICMSTot.vICMS) + '&digVal=' + StringToHex(Form_NFe.ACBrNFe1.NotasFiscais.Items[0].NFe.procNFe.digVal) + '&cIdToken=' + tokem; Hash_SHA1 := Form_NFe.ACBrEAD1.CalcularHash(UTF8Encode(Memo1.Text), dgstSHA1); Memo1.Text := Memo1.Text + '&cHashQRCode=' + Hash_SHA1; 2DBarCode1.Data := Memo1.Text;

Fiquei sabendo que (Bahia) com a utilização da NFC-e em estado que tem o PAF não é obrigatório o PDV com PAF e sim só a emissão da NFC-e isto é verídico ? só duvida? a RIO DE JANEIRO já ta, vc achar que SAO PAULO vai demora, ou ainda ta resistindo.

procedure TfrmDemo.Button8Click(Sender: TObject); Var i: integer; Titulo : TACBrTitulo; begin ACBrBoleto1.LerRetorno; try For I := 0 to ACBrBoleto1.ListadeBoletos.Count - 1 do begin Titulo := ACBrBoleto1.ListadeBoletos.Objects; Memo1.Lines.Add('Numero do Documento = ' + Titulo.NumeroDocumento); Memo1.Lines.Add('Valor Recebido = ' + FloatToStr(Titulo.ValorRecebido)); Memo1.Lines.Add('Nosso Numero = ' + Titulo.NossoNumero); Memo1.Lines.Add('Nome do Cliente = ' + Titulo.ACBrBoleto.Name); end; finally end; end;

Eu usando cobCaixaEconomica c240 ACBrBoleto1.LerRetorno; da erro neste lugar, erro de data falalndo que 00/00/00 nao data valida, significa que tem alguma configuracao que eu nao fis no ACBrBoleto1 ? procedure TACBrCaixaEconomica.LerRetorno240(ARetorno: TStringList); e como faço para colocar o que leu em um Memo1, obrigado pela atencao.

Depois da ultima atualização do site da sefaz ficamos sem poder baixar xml pra quem usar o projeto RecuperarXML (que foi descontinuado) aqui ta a unit corrigida. RecuperarXML.rar

vc alterou blz, ja ta baixando mais sem os produtos Na unit ACBrHTMLtoXML, alterar a linha: if Trim(Versao)<>'2.00' then para: if (Trim(Versao)<>'2.00') and (Trim(Versao)<>'XML2.00') then vc ja conseguii resolver ?

Post Falei tanto que esqueci de postar a "solução". Na unit ACBrHTMLtoXML, alterar a linha: if Trim(Versao)<>'2.00' then para: if (Trim(Versao)<>'2.00') and (Trim(Versao)<>'XML2.00') then Pelo que vi, na consulta completa mudou somente a versão: de "2.00" para "XML2.00" []´s Edson.

estavo usando o caminho https://acbr.svn.sourceforge.net/svnroot/acbr mais da erro falando que mudou para https://svn.code.sf.net/p/acbr/code/!svn/vcc/default eu queria para pode pegar o exemplo D:\All_Delphi\ACBr - All Pastas\tags\Projetos\RecuperarXML com as pastas ACBrFramework branches tags tools trunk Ta dando erro , Ele baixa o gif termina o processoBar, mais paraliza e da erro de e depois da imagem de erro , da outro Out of memony.

brigadoooooooooooooooooooooooooooooooooooooo.

DM12.Client_Produto.First; while NOT DM12.Client_Produto.EOF do begin Servico.Discriminacao:=Servico.Discriminacao+DM12.Client_ProdutoPRODUTOS.Text+' '+DM12.Client_ProdutoOBS.Text+' | '; DM12.Client_Produto.Next; end; Servico.Discriminacao:=Servico.Discriminacao+#13+ Form_NotaFiscal.MemoNFSe.Lines.Text; Estou colocando um obs a mais , e esse obs esta em um memo, este memo tem 1400 caracteres, ate ai tudo ok, mais o cliente reclamou que ta sem formatacao ex: SERVICORE DE MAO DE OBRA JOAO 300,00 MARIA (TERCERIAZADA) 200,00 Sair assim SERVICORE DE MAO DE OBRA JOAO 300,00 MARIA (TERCERIAZADA) 200,00 Tenho que muda algo no meu codigo? o que devo fazer.

ja copiei os arquivos da pasta Schemas\V200\PL_CTe_200a_NT2013_013 e coloque na pasta Schemas mais da esse erro, ao enviar ?

Descomentei ACBrBoletoFCQuickFr uses SysUtils, StdCtrls, Classes, Graphics, Controls, Forms, Dialogs, ACBrBoleto, QRMultiExport, QRCtrls, QuickRpt, ExtCtrls, QRExport, ACBrBarCode, QRWebFilt, QRPDFFilt; // RLFilters, RLPDFFilter ; case Filtro of fiPDF : begin FiltroExportacao := TQRPDFDocumentFilter.Create(NomeArquivo); try TQRPDFDocumentFilter(FiltroExportacao).CompressionOn := true; RLLayout.ExportToFilter(FiltroExportacao); finally FiltroExportacao.Free; end; MultiExport := TQRMultiExport.Create(self); try MultiExport.Report := RLLayout ; MultiExport.ExportFormat := qrxPDF ; MultiExport.FileName := NomeArquivo ; MultiExport.ShowDialog := MostrarSetup ; MultiExport.DPI := 300 ; MultiExport.DoExport ; finally MultiExport.Free ; end ; end ;

atualizei o acbr coloquei no ACBr.inc // Definições para o Quick Report // Descomente a linha abaixo caso o Quick Report tenha suporte a PDF //------------------------------------------------------------------------------ {$DEFINE QReport_PDF} a funcao ACBrBoleto1.GerarPDF; e estou com QReport 5 nao ta mais gerando ?

uma cliente disse que o gerente falou que o arquivo de remesa do boleto bradesco no arquivo de remessa modelo c400 esta enviando na possicao 109 e 110 o codigo 02(alteracao de boleto) e ocorreto seria 01(emisao de boleto), como faço isso para o componente enviar o 01 e nao o 02, brigadoo.

brigadoooooooooooooooooooo.

certinho so outra duvida, // Valor Total dos Tributos imp.vTotTrib := RoundTo(DM_CNT.ConhecimentovTotTrib.AsFloat, -2); // Obs do Contribuinte if (imp.vTotTrib <> 0.0) then begin with compl.ObsCont.Add do begin xCampo := 'Lei da Transparencia'; xTexto := 'O valor aproximado de tributos incidentes sobre o preço deste servico e de R$ ' + FormatFloat('##0.00', imp.vTotTrib) + ' (' + FormatFloat('#0.00', DM_CNT.ConhecimentoAliqNBS.AsFloat) + '%) ' + 'Fonte: IBPT'; end; end; como fazer o do CT-e porque o da NF-e tenho uma tabela em ecxel que mostra os tributos somo e faço o calculo mais com ct-e nao tem produtos, eu pego o icms para fazer esse calculo ?