Solivan

Olá a todos, tenho uns relatórios dentro do meu modulo de pdv que emite a RELAÇÃO DE REDUÇÕES Z utlizando o componente e as propriedades abaixo: with ACBrPAF.PAF_R.RegistroR02.New do hoje depois que atualizei a suite de componentes, recebi a mssg do compilador que a propriedade não está declarada, [DCC Error] uMovimentoECF.pas(313): E2003 Undeclared identifier: 'RegistroR02', então com base no resultado do compilador gostaria de saber se as funções foram realocadas pq elas não aparecem no meu editor, notei que elas estão dentro da unit ACBrPAF_R, mas como foi colocado no log de modificações que o arquivo sofreu alterações, gostaria de saber se existe um novo método para utilização dessa propriedade, notei que o demo continua com estava antes. Obrigado! Solivan Noleto Milhomem.

Desculpe Isaque a minha displicência, e que não abro o fórum todos os dias e somente fui notar o seu comentário hoje, mas indo ao que interessa; Pelo que percebi existe aqui uma incompatibilidade entre versões do componente, já que ele foi escrito em uma versão e tendo a sua utilização sendo feita em outra versão do Faste Report. Para resolver o problema aqui no meu PC abri a unit ACBrBoletoFCFR.pas no geral pra ter uma ideia melhor do que acontece, o erro é causado somente nos formes onde se encontram o componente frxPDFExport. do FastReport usado pra conversão em pdf, Se eu puder ajudar em mais alguma coisa é so avisar. Att. Solivan Noleto Milhomem

funciona direito com o instalador porque o mesmo faz o registro das dll no registro do windows, conforme instrução abaixo; "regserver" Source: capicom.dll; DestDir: {sys}; Flags: regserver; Source: msxml5.dll; DestDir: {sys}; Flags: regserver;

Nenhuma das soluções foram eficazes para resolver o problema, a única forma de resolver é abrindo o datamodule do projeto ACBrBoleto e ignorando a propriedade e depois salvando novamente, recompile que o problema desaparece.

Obrigado Daniel, e parabéns novamente pelo trabalho desenvolvido com certeza ajuda muitas pessoas.

uses uEnviarEmail Eu fiz uma limpeza na unit ACBrBoleto e deixei apenas a função que envia o boleto se alguém se interessar fica ai o anexo ... Envio com Thread para evitar travamento. Necessário ter o pacote ACBr instalado na máquina, haja vista que a função utiliza as rotinas de envio utilizadas pelo ACBr ... At. Solivan Noleto Milhomem var AEmail : TSendMailThread; cPath, cEmail, cFrom, cAssunto : string; begin AEmail := TSendMailThread.Create(nil); cAssunto := 'assunto do email'; cFrom := 'quem esta enviando'; cEmail := '[email protected]'; // email do destinatario try btn_EnviarEmail.Enabled := False; cPath := 'c:\localdoarquivoinicontendoosdadosdosmtp.ini'; AEmail.AFonteDados := cPath; AEmail.EnviarEmail(cFrom, cEmail, cAssunto, mmDescErro.Lines, True, nil, mmAnexoImagem.Lines, False, True, cFrom); finally btn_EnviarEmail.Enabled := True; end; end;

Tentei colocar o meu post mas deu erro de conexao entao foi postado 3 vezes, peço aos moderadores que por gentileza apage os comentários que não contenham o anexo *.pas Obrigado! uEnviarEmail.pas

Ola em primeiro lugar gostaria de parabenizar, a pessoa que disponibilizou o componente consultaCNPJ, mão na roda, parabens,e segundo já estou utilizando ajudou muito na inclusão do fornecedor, emitente, etc, no meu cadastro de emitentes tem um campo chamado CNAE que a principio não é necessário preencher mas observei que na consulta retornada pelo site da receita o campo faz parte das informações obtidas pela consulta então criei mais essa propriedade no componente e gostaria de saber se poderia ser incorporado no componente pra próxima atualização. Segue em anexo o arquivo com a alteração. Att. Solivan Noleto Milhomem Aprendiz ACBrConsultaCNPJ.rar

Ok Juliomar, vou seguir o seu conselho e tentar usar uma versão mais nova do fast-report e dar por encerrado o post. Obrigado!

eu estou usando o delphi XE com o Fast-Report na versão 4.0, e utilizo ele também pra emissão de DANFE e não tenho problema algum, você acha que ainda pode ser isso?

Ola, estou com o seguinte problemas; já tentei no google mas não há quase referências sobre o problema então resolvi postar depois de ter procurado algo semelhante no fórum, porém não tive sucesso. então vamos ao problema. Quando vou tentar gerar o pdf através do componente ACBrBoleto usando a função imprimir e definindo todos os parametros antes disso recebo a seguinte mssg: Error Reading frxPDFExport.Quality: propery Quality does not exist, em português diz que o erro é porque a propriedade "Qualidade" do componente do fast report não existe. tentei debugar e o erro acontece nesta função procedure TACBrBoletoFCFR.Imprimir; var DmBoleto: TdmACBrBoletoFCFR; begin inherited Imprimir; // Verifica se a lista de boletos está vazia DmBoleto := TdmACBrBoletoFCFR.Create(Self); try with DmBoleto do begin cdsBanco.EmptyDataSet; cdsCedente.EmptyDataSet; cdsTitulo.EmptyDataSet; exatamente na hora de criar a classe abaixo DmBoleto := TdmACBrBoletoFCFR.Create(Self); Se alguem souber como resolver e quizer compartilhar ficarei grato de não ter mais que quebrar a cabeça. Obrigado. Solivan Noleto Milhomem www.arenasoft.com.br Ilustração do erro abaixo

A explicação do Daniel sanou minha duvida por completo, obrigado a você e aos outros que contribuem com o projeto.

oU também poderia gravar num arquivo ini o numero do COO empre que abrisse um novo cupom fiscal como faço. desse forma o ultimo numero sempre seria o que vc precisa

As vezes quando se usa conexão USB você tem que aumentar a velocidade do ACBRECF.devide.baud para 115200 como já foi citado pelo nosso amigo, logo acima!

Entendo, e obrigado pelo retorno tão rápido, mas a questão é que o ecf está detectando como um erro mas mesmo assim ele imprime o item, eu recebo o retorno da função como falso, mas quando olho na bobina o item está impresso ignorando o desconto dado. Mas tudo bem vou validar pela aplicação, Obrigado.

Olá, estou desenvolvendo o meu paf ecf e recentemente me deparei com algo que ainda não sei se é um erro, mas vou postar aqui pra trazer isso a atenção dos desenvolvedores. Ok, vamos la; estou enviando um item de venda para o ecf (Daruma FS700), ao verificar o log notei que o ecf retorna o erro de desconto maior que o valor do item, acho que a mssg é issa, se não for é algo nesse sentido. No entando a minha função retorna False, por causa do erro, mas, mesmo assim com erro a impressora imprime no cupom fiscal e não lança no meu sistema por causa do retorno false da função. Gostaria de saber se isso é um erro e se devo tratar antes de enviar ao ecf? Segue abaixo codigos da função que imprime o item do cupom; function Tf_EmitirCupomFiscal.ImprimirItemCupomFiscal(cCodigo, cDesc, cSigla, cICMS, cUND : string; uQtde, uValorUnit, uValorDesc : Currency) : boolean; var cDesconto : string; begin Result := True; repeat Application.ProcessMessages; until (ACBrECF.AguardandoResposta = False); cDesconto := '$'; try if bckInmetro then ACBrECF.LegendaInmetroProximoItem; cICMS := TratarICMSZerado( cSigla, cICMS ); ACBrECF.VendeItem( cCodigo, cDesc, cICMS, uQtde, uValorUnit, uValorDesc, cUND, cDesconto, 'D'); except on E : Exception do begin Result := False; LabelRespostaOperador.Caption := E.Message; end; end; end; Grato! Solivan Noleto Milhomem Programador ECFLog.txt ECFLog.txt

A função que enviei já está corrigida, a que baixei estava com erro nas duas linhas, eu acho que já foi corrigida pq apaguei a unit, baixei novamente e compilei meu projeto e não constatei mas a ocorrencia de erro. Obrigado pela atenção!

na primeira função está dando erro nas duas linha que estão destacadas em azul, e o arquivo em questão é a Unit ACBrUtil.pas, a Segunda função se trata da rotina que verifica se a impressora está ligada, e sobre a pergunta se deseja tentar conectar no ECF novamente? que resulta em duas alteranitvas em ingles Yes e No, quando poderia simplemente usar a API do Windows(MessageBox) que acompanha todas as versões do windows, e o arquivo me parece que é o ACBrECFClass.pas.... na Verdade não é uma modificação pra personalizar o componente e sim pra corrigir supostos erros!!! Obrigado!

Em primeiro lugar boa noite, meus parabens pelos esforços em manter a compatibilidade no ACBr, funciona perfeitamente no DXE Gostaria de propor algumas alterações aqui, esta primeira apresentou dois pequenos bugs, depois que foi atualizado a suite ACBr, não sei se é coisa de versões do Delphi, se for queira desconsiderar; class function DFeUtil.FormatarFone(AValue: String): String; var lTemp: string; begin // Proposta de Italo AValue := IntToStr(StrToInt64Def(LimpaNumero(AValue), 0)); Result := AValue; lTemp := ''; if NaoEstaVazio(AValue) then begin case length(AValue) of 8: Result := '( )' + copy(AValue, 1, 4) + '-' + copy(AValue, 5, 4); 9: begin if copy(AValue, 1, 1) = '9' // Celulares da Municipio de São Paulo tem 9 Digitos e o primeiro é 9 then Result := '( )' + copy(AValue, 1, 5) + '-' + copy(AValue, 6, 4) else begin ltemp := '0' + copy(AValue, 1, 1); Result := '(' + lTemp + ')' + copy(AValue, 2, 4) + '-' + copy(AValue, 6, 4);; end; end; else begin AValue := Poem_Zeros(AValue, 12); if (copy(AValue, 1, 1) = '0') and (copy(AValue, 2, 1) = '0') then begin ltemp := copy(AValue, 3, 2); Result := '(' + lTemp + ')' + copy(AValue, 5, 4) + '-' + copy(AValue, 9, 4);; end else begin ltemp := copy(AValue, 2, 2); Result := '(' + lTemp + ')' + copy(AValue, 4, 5) + '-' + copy(AValue, 9, 4);; end; end; end; end; end; a outra modificações seria substituir o MessageDlg(, por MessageBox( na função da Unit da Classe de Impressora Fiscal quando tenta conectar-se no ECF e o mesmo não responde, então a seguinte mssg aparece Deseja tentar novamente, poderia ser com a api do windows ficaria mais elegante e em português, ao invés de Yes ou No? function MssgRetentar(cMssg : String) : boolean; { AnsiString exibe carracteres estranhos na mssg } begin Result := (MessageBox(Application.Handle, 'Retentar', PChar(cMssg), MB_ICONWARNING or MB_YESNO or MB_TOPMOST) = 6); end; function TACBrECFClass.DoOnMsgRetentar( const Mensagem : String; const Situacao : String = ''): Boolean; {$IFDEF MSWINDOWS} Var UsandoBlockInput : Boolean ; {$ENDIF} begin Result := False ; {$IFNDEF CONSOLE} {$IFDEF MSWINDOWS} UsandoBlockInput := False ; if fsUsandoBlockInput then begin UsandoBlockInput := True ; BlockInput(False,True); end ; {$ENDIF} {$ENDIF} if Assigned( fsOnMsgRetentar ) then fsOnMsgRetentar( ACBrStr(Mensagem), Situacao, Result ) else begin {$IFNDEF CONSOLE} if Retentar and (MssgRetentar( ACBrStr( Mensagem+sLineBreak+sLineBreak + cACBrECFDoOnMsgRetentar ))) then Result := True ; {$ENDIF} end ; {$IFNDEF CONSOLE} {$IFDEF MSWINDOWS} if UsandoBlockInput then BlockInput(True,False); {$ENDIF} {$ENDIF} end;

Ok Obrigado pelo suporte.

Ok, vou continuar o meu projeto assumindo que esta tudo bem com a aplicação, vcs sugerem algum outro emulador para teste. Att. Solivan Noleto Milhomem

Estou utilizando o Emul3000, Gostaria de saber tb se e viavel usar o timer para dar intervalo entre os trabalhos da impressora fiscal... pq esta retornando erro de forma de pagamento encerradas ... Mas o problema principal e mesmo a mensagem do post

Sei que ja existe topico pra esse assunto mas e que ja li todos e nao consigo achar a solução, ja tive problemas de "Impressora Bematech não está respondendo" antes e consegui resolver, agora preciso emitir a sangria e o mesmo erro acontece tanto no meu sistema como no exemplo do ACBR, tanto na Sangria quanto na funcao de Suprimento acontece o erro citado acima, gostaria de saber pq isso acontece, sendo que emito todos os documentos necessários para homologação do PAF com êxito em todos , somente nesses dois estou tendo problemas, ja aumentei o timeout, fiz um loop usando repeat e until, mesmo assim a impressora retorna o mesmo erro. Gostaria de saber se alguem poderia me ajudar, Obrigado! Estou anexando o arquivo de Log, percebi a referencia do sinal "!" no retorno da função de LOG, talvez signifique alguma coisa para os experts no assunto. att. Solivan acbrlog.txt

Ok galera ja consegui resolver era somente no demo do ecf o problema, quando passei a executar as funcões no meu emissor o bug desapareceu acho que era algum resquicio de programação... vlw

Ola estou tentando utilizar os componentes acbr pra emissão de cupom fiscal, no momento estou utilizando o emulador da bematech com porta virtual, ate ai tudo bem, ja cadastrei as aliquotas, as formas de pagamento, e quando abre o cupom tudo bem, imprime normal, mas quando tento vender um item a impressora me retorna a seguinte exception: "Impressora Bematech não está respondendo". Como se a mesma estivesse desativada ou coisa parecida. Gostaria de saber se pode me ajudar, preciso dar continuidade no meu trabalho. Ps. Este erro acontece utilizando o exemplo da suite AcBR Obrigado! acbrlog.txt