wandarlei

Bom dia Regis, Eu fiz todos os teste no AM mas fiz da seguinte forma. - Na empresa deixei como o dados correto (no caso estou utilizando um certificado de AL e os dados da empresa de um cliente também de AL) - No Web Service coloco AM. Com isso funciona corretamente para os teste no AM. Estou com cliente emitindo com sucesso em produção no MT. Agradeço ao fórum, pela ajuda que obtive. Grato.

Bom dia, Estou imprimindo com sucesso em um cliente com Fortes Report e uma Bematech modelo MP-4200 TH. Abraço a todos.

Boa tarde Elton, Fiz os passos novamente conforme sua dica, contudo ficou igual. Ai busquei uma forma para que ao menos pudesse compilar o exemplo do componente. Fiz as seguintes mudanças para compilar. ACBrHTTPDownload.pas linha 141 Outra coisa que observei se passar o nome do arquivo diretamente na url faz o download normalmente se passar a url e o nome do arquivo em separado não faz o download. Estou postando os arquivos que modifiquei. Grato. ACBrDownload.zip ACBrDownload.zip

Bom dia Elton, Fiz todos os passos citados no tópico, inclusive removi todos os componentes da biblioteca ACBr da IDE através do Component -> Install Packages. Baixei do svn a versão 7019 e refiz a instalação através do ACBrInstall, mas continua com o mesmo problema. Acusa que não esta declarado: fDownloadNomeArq na unit ACBrHTTPDownload. Grato.

Boa tarde Juliomar, Sim dei um Build. Grato.

Boa tarde a todos, Estou efetuando teste no ACBrDownload pelo exemplo do svn, ao compilar acusa o seginte: Estou com a versão atualizado do svn e utilizando o Delphi 7. como devo proceder? At.

Muito obrigado Italo.

Olá pessoal. Conclui um aplicativo para no NFS-e para a cidade de Curitiba, para uso interna da empresa em que trabalho. Foi bem tranquilo a implementação utilizando o ACBrNFSe, mesmo porque já utilizo, o ACBrNFe, ACBrECF, ACBrSintegra, ACBrSPED, entre outros. Agradeço a comunidade pelos componentes. No ACBrNFSe, me deparei com a necessidade de enviar o e-mail no formato html para que o link de acesso a NFSe no site da prefeitura ficar com o hiperlink somente. Já existe este recurso em TACBrNFSe.EnviaEmailThread, contudo na chamada deste procedimento não tem o parâmetro então fiz uma mudança para contemplar o mesmo. Na linha 58 da unit ACBrNFSeNotasFiscais E na linha 239 na chamada TACBrNFSe( TNotasFiscais( Collection ).ACBrNFSe ).EnviaEmail(sSmtpHost, sSmtpPort, sSmtpUser, sSmtpPasswd, sFrom, sTo, sAssunto, sMensagem, SSL, sCC, AnexosEmail, PedeConfirma, AguardarEnvio, NomeRemetente, TLS, StreamNFSe, // copy(NFSe.Numero, (length(NFSe.Numero) - 44) + 1, 44) + '-NFSe.xml', NomeArqXML + '-nfse.xml', UsarThread, FormatoEmHTML); Estou anexando a unit para avaliação. At. Wandarlei Michelon ACBrNFSeNotasFiscais.zip

Boa tarde, Para conhecimento, Eu recebi o seguinte texto da contabilidade de um cliente Abraço a todos.

Boa tarde pessoal, Eu fiz a implementação com o Bloca P e esta validando normal. O único detalhe que encontrei é que não zera o contador fRegistroP200Count, se gerar o arquivo sem sair do programa ele continua somando sem zerar. Fiz a seguinte mudança para resolver isso. ACBrEPCBloco_P_Class; ... procedure TBloco_P.CriaRegistros; ... fRegistroP200Count := 0; ... end; Abraço a todos.

Boa tarde Daniel e Lampada, Muito obrigado vou aguardar e verificar o link. Grato.

Bom dia Elton e Daniel, De fato encontrei uma chamada ao ESTADO do ECF sem necessidade, desabilitei ela. Vou atualizar no cliente e verificar o comportamento. Muito obrigado pela ajuda. Aproveitando, tenho tido problemas com impressoras Bematech e cabo USB. Não consigo fazer funcionar, quando um cliente aparece com uma solicito a compra de uma placa PCI de seriais ou um conversor de USB para Serial. No caso utilizando as impressoras Daruma, Epson ou Dataregis (que tenho clientes com essas marcas e com cabo USB), não tive problema algum simplesmente seleciono a USB que foi instalada e mudo a velocidade da porta serial com o comando ACBrECF.Device.Baud := 115200; mas com a Bematech não consigo fazer funcionar. Tem algum detalhe diferente a ser feito? Grato

Oi Elton, Faltou a função; function TFRM_Caixa.f_VerificaDataImpressora: Boolean; var vls_horaI, vls_horaF, vls_Hora, vls_Tolerancia: string; begin Result := True; vls_horaI := FormatDateTime('hh:mm:ss', now); vls_horaF := FormatDateTime('hh:mm:ss', DM.ACBrECF.DataHora); vgs_Data := FormatDateTime('ddmmyy', DM.ACBrECF.DataHora); if vls_horaI > vls_horaF then vls_Hora := DifHora(vls_horaF, vls_horaI) else vls_Hora := DifHora(vls_horaI, vls_horaF); if DM.CDS_Conf_PDVUF_PDV.AsString = 'SC' then vls_Tolerancia := '00:14:59' else vls_Tolerancia := '00:59:59'; if vls_Hora > vls_Tolerancia then begin Application.MessageBox(PChar('Hora do micro com difereça maior que ' + vls_Tolerancia + ' da impressora fiscal,' + #13#10 + 'O sistema não poderá emitir cupons!'), Pchar(vgs_Mensagem_Atencao), MB_OK + MB_ICONINFORMATION); Result := False; end; if FormatDateTime('ddmmyy', now) <> vgs_Data then begin Application.MessageBox('Devido a Data do Micro estar diferente da Data da Impressora Fiscal,' + #13#10 + 'O sistema não poderá emitir cupons!', Pchar(vgs_Mensagem_Atencao), MB_OK + MB_ICONINFORMATION); Result := False; end; end; Grato.

Boa tarde Elton O código é este: try ... DM.ACBrECF.AbreCupom(vgs_CNPJ_Cli, vgs_Nome_Cli, vgs_Endereco_Cli); except on e: exception do begin Application.MessageBox(PChar(e.message), PChar(vgs_Mensagem_Atencao), MB_OK + MB_ICONSTOP); f_Inicia_Venda := False; Exit; end; end; // Retorna o numero do cupom try vgb_Gravar_Operacao := True; vgs_Nro_Cupom := DM.ACBrECF.NumCupom; if not f_VerificaDataImpressora then begin f_Inicia_Venda := False; Exit; end; //se o retorno da impressora esta ok, grava operação if vgb_Gravar_Operacao then begin try vgi_Numero_Caixa := StrToInt(DM.ACBrECF.UsuarioAtual); except vgi_Numero_Caixa := 0; end; vls_Tipo_Venda := ''; p_Insere_Cabecalho; end; except EDT_Codigo.Enabled := True; //por seguranca end; f_Inicia_Venda := True; feito isso eu faço a inserção das peças no cupom consultando na base conforme a digitação do operador. Grato.

Boa tarde Régys e Elton, Segue o arquivo de log. Este problema ocorre nos clientes usando cabo serial, Aqui eu utilizo uma Daruma, mas no emulador da Bematech utilizando porta serial (com um cabo ligando as 2 seriais sem necessidade de emulador), raramente ocorre. grato. log_ecf.zip

Oi Régys, A velocidade é de 9600 pois segundo o suporte da Bematech não tem como alterar a velocidade da porta serial. Não o único aplicativo utilizando a porta é o emissor de cupons. Não fiz o teste com o ECFTeste pois a impressora esta em produção nos clientes. Em relação ao Log não gero, vou habilitar. Se houver mais algum caminho. Grato.

Boa tarde a Todos. Estou com o seguinte problema com a impressora Bematech Ao enviar um comando por exemplo abrir um cupom fiscal retorna que o Componente ACBrECF esta ocupado, o mesmo acontece no fechamento, e como eu não tenho uma impressora da Bematech para os testes somente uma da Daruma não sei o que fazer. Eu criei uma variável para determinar um tempo de retardo que coloco no "ACBrECF.IntervaloAposComando" um tempo para tentar resolver, mas nem sempre isso resolve, E isso só acontece com as impressoras da Bematech, nas Daruma, Espson, Elgim, Sweda isso não acontece. Alguém tem alguma dica para este problema? Grato.

Obrigado, Kiko Fernandes, Eu não havia visto o tópico. Eu já tenho o PAF-ECF homologado e o homologador aceitou colocar nas informações adicionais, a minha preocupação é se em algum estado exigir no campo reservado ao fisco. Grato.

Bom dia Evandros, Estou precisando também, meu e-mail é [email protected]. Grato.

Oi Elton, O GRG utiliza o seguinte comando. function TACBrECFDaruma.GetNumGRG: String; begin Result := '0' ; if fpMFD then Result := RetornaInfoECF('33'); end; Já o CER utiliza function TACBrECFDaruma.GetNumCER: String; begin Result := '0' ; if fpMFD then Result := Copy(RetornaInfoECF('44'),1,4); end; Pelo que vi o CER é reiniciado a toda redução Z.

Bom dia a todos. Estou em fase final de testes para a reomologação do PAF-ECF, e me deparei com o seguinte item: Requisito XLI-A, onde exige que seja armazenado e impresso no cupom fiscal o CER, como não encontrei a propriedade no componente, recorri ao help da impressora Daruma, que utilizo para teste. Seguindo a orientação do help da impressora fis os ajustes no componente para recuperar esta informação, coloco aqui as modificações efetuadas e os arquivos para a avaliação e quem sabe a inclusão dos mesmo no cvs. ACBrECF; function GetNumCERClass: String; -------- Property NumCER : String read GetNumCERClass ; -------- function TACBrECF.GetNumCERClass: String; begin ComandoLOG := 'NumCER' ; Result := fsECF.NumCER ; end; -------- try CER := StrToIntDef(Self.NumCER,0); except end ; ACBrECFClass; fsCER: Integer; -------- property CER: integer read fsCER write fsCER; //Contador Específico de Relatório Gerencial -------- function GetNumCER: String; virtual ; -------- Property NumCER : String read GetNumCER ; -------- function TACBrECFClass.GetNumCER: String; begin Result := '' ; end; ACBrECFDaruma; function GetNumCER: String; override ; -------- function TACBrECFDaruma.GetNumCER: String; begin Result := '0' ; if fpMFD then Result := Copy(RetornaInfoECF('44'),1,4); end; ACBrSerial.zip

Bom dia, Com este arquivo funcionou, contudo não coloca a informação do fisco que o PAF-ECF esta exigindo. Grato.

Elton, Eu também achava isso, inclusive outras funções que tem o AnsiString funciona mas esta não teve jeito ate eu mudar isso, de qualquer forma eu mudei aqui se os colegas não tiverem o mesmo problema eu deixo isso observado para as próximas versões. Grato.

Boa tarde a todos, Consegui gerar os relatórios, mas para isso tive que mudar o seguinte: Mudei em ACBrECFDaruma.pas xrGerarRelatorio_ECF_Daruma: function(ARelatorio, ATipo , AInicial, AFinal: AnsiString): Integer; {$IFDEF LINUX} cdecl {$ELSE} stdcall {$ENDIF} ; Para xrGerarRelatorio_ECF_Daruma: function(ARelatorio, ATipo , AInicial, AFinal: String): Integer; {$IFDEF LINUX} cdecl {$ELSE} stdcall {$ENDIF} ; Lembrando que utilizo a impressora Daruma FS 600 e Delphi 7. Grato.

Bom dia a todos, Estou fazendo a checagem final para a reomologação do PAF-ECF e me deparei com o seguinte problema: Depois da compatibilização do ACBrECF com a nova DLL da Daruma não consigo mais gerar o relatório do Menu Fiscal LMFC - ATO COTEPE 17/04, ao tentar gerar este relatório me retorna o seguinte mensagem de erro: Outra coisa que também encontrei no ACBrECF.pas é o seguinte: procedure TACBrECF.LeituraMemoriaFiscalSerial(ReducaoInicial, ReducaoFinal: Integer; Linhas : TStringList; Simplificada : Boolean ); begin if ComandoLOG = '' then ComandoLOG := 'LeituraMemoriaFiscalSerial( '+IntToStr(ReducaoInicial)+' , '+ IntToStr(ReducaoFinal)+' , Linhas ,'+ BoolToStr(Simplificada)+' )'; LeituraMemoriaFiscalSerial( ReducaoInicial, ReducaoFinal, Linhas, Simplificada ) ; Linhas.Text := DecodificarPaginaDeCodigoECF( Linhas.Text ); end; Para funcionar eu inclui o fsECF. na linha LeituraMemoriaFiscalSerial( ReducaoInicial, ReducaoFinal, Linhas, Simplificada ) ; ficando assim fsECF.LeituraMemoriaFiscalSerial( ReducaoInicial, ReducaoFinal, Linhas, Simplificada ) ; Com isso resolvei esta questão, mas a do ATO COTEPE 17/04, não consegui, estou com a última versão do SVN, fiz o teste no demo e o erro acontece também. Dados utilizados: Delphi 7; impressora Daruma FS600. Outro detalhe emitindo diretamente pela DLL da Daruma funciona fiz o teste com o exemplo de uso da DLL da Daruma. Grato a todos