Hetosoft Sistemas

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 ?

Atualizei os fontes do acbr e o cte que era 1.4 abilitei o 2.0 depois disso nao consigo mais compilar o projeto da erro na seguinte linha Erro: comando nao existe. with Rem.InfNF.Add do comando: case DM12.Client_CteNFTIPO.AsInteger of 1: begin with Rem.InfNF.Add do begin nRoma := ''; nPed := DM12.Client_CteNFNUMDOC.AsString; serie := DM12.Client_CteNFSER.AsString; nDoc := DM12.Client_CteNFNUMDOC.AsString; dEmi := DM12.Client_CteNFDATAEMISSAO.AsDateTime; vBC := 0; vICMS := 0; vBCST := 0; vST := 0; vProd := DM12.Client_CteNFVALORDOC.AsFloat; vNF := DM12.Client_CteNFVALORDOC.AsFloat; nCFOP := StrToInt(cfop); nPeso := 0; PIN := ''; end;

atualizei o acbr hoje de manha e deu erro ao compilar ACBr_BoletoFC_Quick fala que as dcu's RLFilters, RLPDFFilter nao existe na pasta, procurei os arquivos e nao achei, o que eu faço.

Eu tambem estou com o mesmo problema, a messagem é download concluido . nais o nome fica Arquivo.exe.part e mesmo renomeando ele nao tem conteudo tamanho 0kb o que devo fazer ja coloquei o bufferSize de varios tambanho e nada.

BLZ porque ate o codigo do Servico: tava a variavel e nao o cod 01.05 / Licednciamento ou cessao de idreito de uso de programas de computacao

posso voltar as pasta fontes da versao anteriro que tem a pasta D:\All_Delphi\ACBr_7 Antigo\Fontes\ACBrNFSe\DANFSE_QR3

tem componete do FastReport para BOLETO, NF-E , NFS-E, CT-E ? Uso todos o qreport. falar nisso depois que atualizai a nfs-e no relatorio qreport 5.02 delphi 7 a DATA DE SERVICO no top da nfs-e ta saida o nome da vliavel em vez da data (qrlDataSer)

Como façor para manda nfs-e para dois email juntos ex: [email protected]; [email protected] sem usar a //CC.Add('[email protected]'); //especifique um email válido //CC.Add('[email protected]'); //especifique um email válido usando o Para:= [email protected]; [email protected] Da erro ao enviar SMTP ERROR: MailPermanent Failure-Bad if OpenDialog1.Execute then begin ACBrCTe1.Conhecimentos.Clear; ACBrCTe1.Conhecimentos.LoadFromFile(OpenDialog1.FileName); CC:=TstringList.Create; //CC.Add('[email protected]'); //especifique um email válido //CC.Add('[email protected]'); //especifique um email válido try mmEmailMsg.Text:=dm.Client_MERCADOFANTASIA.Text+' Nº '+DM12.Client_NotaFiscalNUMERO.Text; ACBrCTe1.Conhecimentos.Items[0].EnviarEmail(Trim(edtSmtpHost.Text) , Trim(edtSmtpPort.Text) , Trim(edtSmtpUser.Text) , Trim(edtSmtpPass.Text) , Trim(edtSmtpUser.Text) , Para , edtEmailAssunto.Text , mmEmailMsg.Lines , cbEmailSSL.Checked , True //Enviar PDF junto , nil //Lista com emails que serão enviado cópias - TStrings , nil // Lista de anexos - TStrings , False ); //Pede confirmação de leitura do email CC.Free; MessagemH(3,'Enviado com Sucesso !!!'); except MessagemH(2,'Erro ao enviar !!!'); end; end;

Isaque Pinheiro instalaei o qreport 5.02 e subistituir os arquivos ACBrNFSeDANFSeQRRetrato.zip tudo blz, vc vai colocar no servidor svn://svn.code.sf.net/p/acbr/code ?

sim instalaei o qreport 5.02 e subistituir os arquivos e compilei tudo de novo, agora blz, mais ainda preferia a pasta D:\All_Delphi\ACBr_7 Antigo\Fontes\ACBrNFSe\DANFSE_QR3

ta dano erro ao compilar o ACBrNFSeDanfseQRpkg Erro Cannot load package QR5RunD7 it contains uni QRExpr which is also contained in packge QR4RunD7 sabendo que uso o QREPORT 4.6 Esse ja resolvir mudei o {$IFDEF VER150} QR4RunD7, vcljpg; {$ENDIF} // D7 {$IFDEF VER200} QR5RunD2009, vclimg; {$ENDIF} // D2009 {$IFDEF VER210} QR5RunD2010, vclimg; {$ENDIF} // D2010 {$IFDEF VER220} QR5RunDXE, vclimg; {$ENDIF} // XE {$IFDEF VER230} QR5RunDXE2, vclimg; {$ENDIF} //XE2 {$IFDEF VER240} QR5RunDXE3, vclimg; {$ENDIF} //XE3 Cara piro tudo aqui, tava tudo 100% com essa mudanca da pasta D:\All_Delphi\ACBr_7 Antigo\Fontes\ACBrNFSe\DANFSE_QR3

que compricacao porque nao deixa como tava, so substituir a arquivos e pronto. mais tudo otimo, o acbr é o top dos componentes. acompanhei o txt, e agora ta dando erro aqui unit ACBrNFSeDANFSeQRRetrato; if trim(FNFSe.Servico.Descricao) = '' then qrlCodServico.Caption := FNFSe.Servico.ItemListaServico + ' / ' + messagem erro [Error] ACBrNFSeDANFSeQRRetrato.pas(412): Undeclared identifier: 'qrlCodServico'