ROGERIO EDVAR DE SOUZA

Obrigado, Juliana...

Boa tarde... Estou programando para transformar minha aplicação ACBrECF em NFCe ... - Ao executar o comando : "ACBrECFVirtualNFCe1.LeArqINI ;" percebi que releu o .ini corretamente, servindo para se o computador "reiniciar" por exemplo, no meio de uma NFCe, dá para continuar onde parou... - MAS... não releu os itens, quando foi gerar o XML. (AO FECHAR DOCUMENTO, deu para verificar...) DÚVIDA : Como se faz para reler os itens também , do .INI ? Obrigado!!! Observação : Estamos ajustando para criar NFCe utilizando ACBrECF e ACBrECFVirtualNFCe, conforme esquema em anexo

Boa tarde... (podem fechar o tópico) ... - Consegui fazer a alteração, utilizei um software "Superfinder" para encontrar onde tinha sido feita a impressão da REDUÇÃO Z Virtual. - Segue abaixo a alteração, dando minha pequena contribuição ao Fórum, evitando que RZ seja impressa, - Basta substituir o evento dentro de : C:\ACBR\Fontes\ACBrSerial\ACBrECFVirtual.pas pelo que alterei abaixo // 16/04/2029.Carlos : Redução Z da CLASSE VIRTUAL alterada : // Casos: // (1) Se a impressora estiver BLOQUEADA (RZ já tirada), simplesmente DESBLOQUEIA e SAI // ... // (2) Reiniciando valores sem impressão: Se estiver "requisitando RZ"(dia seguinte), ou imprimindo Z, então, // emite aviso "Iniciando Novo dia de Movimento" e limpa valores e libera Impressora // ... // (3) Reiniciando valores sem impressão: Se estiver "Livre"(dia seguinte), ou imprimindo Z, então, // emite pergunta "Reiniciar dia de Movimento?" ... se sim, limpa valores e libera Impressora // ... // Units extras que precisei : WIndows{Mb_Ok}, Forms{Appliaction}, Controls{mrNo} , // ... procedure TACBrECFVirtualClass.ReducaoZ(DataHora : TDateTime) ; var A: Integer ; begin GravaLog( ComandoLOG ); // (1) Se a impressora estiver BLOQUEADA (RZ já tirada), simplesmente DESBLOQUEIA e SAI if Estado = estBloqueada then Begin // Como era: raise EACBrECFERRO.Create(ACBrStr('Dia já foi fechado. Redução Z já emitida')) ; // fpEstado := estLivre ; fpDia := now ; Exit; End; // Se o estado não for LIVRE nem for REQUER REDUÇÃO Z : if not (Estado in [estLivre,estRequerZ]) then Begin raise EACBrECFERRO.create(ACBrStr('O Estado não é "LIVRE" Cancele o último Documento')) ; End; // (2) Se estiver "requisitando RZ"(dia seguinte), ou imprimindo Z, então, // emite aviso "Iniciando Novo dia de Movimento" e limpa valores e libera Impressora if Estado=estRequerZ then Application.MessageBox( 'Clique em [Ok] para iniciar Novo dia de Movimento', 'Leia com Atenção', MB_OK + MB_IconInformation ); // (3) Reiniciando valores sem impressão: Se estiver "Livre"(dia seguinte), ou imprimindo Z, então, // emite pergunta "Reiniciar dia de Movimento?" ... se sim, limpa valores e libera Impressora if Estado=estLivre then Begin If Application.MessageBox( Pchar( '* Redução Z Virtual - Sem Impressão *'+#13+#13+#13+ 'Reiniciar dia de Movimento ?'+#13+#13+ '[Sim] = Leitura X Virtual será reiniciada;'+#13+ '[Não] = Leitura X Virtual continuará acumulando valores;'), 'Responda com Atenção', MB_YESNO + MB_DefButton2 + Mb_IconQuestion )=MrNo then Exit; End; // try ZeraCupom; fpReducoesZ := fpReducoesZ + 1 ; // ReducaoZVirtual( DataHora ); Local que ocorreria a impressão { Como ERA : if fpEstado = estRequerZ then begin fpEstado := estLivre ; fpDia := now ; end else fpEstado := estBloqueada ; } fpEstado := estLivre ; fpDia := now ; fpNumCER := 0; fpVendaBruta := 0; fpTotalDescontosICMS := 0; fpTotalDescontosISSQN := 0; fpTotalAcrescimosICMS := 0; fpTotalAcrescimosISSQN := 0; fpCNFCancelados := 0; fpCNFCanceladosTotal := 0; fpCuponsCancelados := 0; fpCuponsCanceladosTotalICMS := 0; fpCuponsCanceladosTotalISSQN := 0; fpCuponsCanceladosEmAberto := 0; fpCuponsCanceladosEmAbertoTotalICMS := 0; fpCuponsCanceladosEmAbertoTotalISSQN := 0; For A := 0 to fpAliquotas.Count - 1 do fpAliquotas[A].Total := 0 ; For A := 0 to fpFormasPagamentos.Count - 1 do fpFormasPagamentos[A].Total := 0 ; For A := 0 to fpComprovantesNaoFiscais.Count - 1 do begin fpComprovantesNaoFiscais[A].Total := 0 ; fpComprovantesNaoFiscais[A].Contador := 0 ; end; For A := 0 to fpRelatoriosGerenciais.Count - 1 do fpRelatoriosGerenciais[A].Contador := 0 ; AbreDia; // AbreDocumento ; parte da impressão except LeArqINI ; raise ; end ; end; // procedure TACBrECFVirtualClass.ReducaoZ(DataHora : TDateTime) ;

Boa tarde... ( podem fechar o tópico ) - Consegui fazer a alteração, utilizei um software "Superfinder" para encontrar onde tinha sido feita a impressão da REDUÇÃO Z Virtual. - Segue abaixo a alteração, dando minha pequena contribuição ao Fórum, evitando que RZ seja impressa, - Basta substituir o evento dentro de : C:\ACBR\Fontes\ACBrSerial\ACBrECFVirtual.pas pelo que alterei abaixo // 16/04/2029.Carlos : Redução Z da CLASSE VIRTUAL alterada : // Casos: // (1) Se a impressora estiver BLOQUEADA (RZ já tirada), simplesmente DESBLOQUEIA e SAI // ... // (2) Reiniciando valores sem impressão: Se estiver "requisitando RZ"(dia seguinte), ou imprimindo Z, então, // emite aviso "Iniciando Novo dia de Movimento" e limpa valores e libera Impressora // ... // (3) Reiniciando valores sem impressão: Se estiver "Livre"(dia seguinte), ou imprimindo Z, então, // emite pergunta "Reiniciar dia de Movimento?" ... se sim, limpa valores e libera Impressora // ... // Units extras que precisei : WIndows{Mb_Ok}, Forms{Appliaction}, Controls{mrNo} , // ... procedure TACBrECFVirtualClass.ReducaoZ(DataHora : TDateTime) ; var A: Integer ; begin GravaLog( ComandoLOG ); // (1) Se a impressora estiver BLOQUEADA (RZ já tirada), simplesmente DESBLOQUEIA e SAI if Estado = estBloqueada then Begin // Como era: raise EACBrECFERRO.Create(ACBrStr('Dia já foi fechado. Redução Z já emitida')) ; // fpEstado := estLivre ; fpDia := now ; Exit; End; // Se o estado não for LIVRE nem for REQUER REDUÇÃO Z : if not (Estado in [estLivre,estRequerZ]) then Begin raise EACBrECFERRO.create(ACBrStr('O Estado não é "LIVRE" Cancele o último Documento')) ; End; // (2) Se estiver "requisitando RZ"(dia seguinte), ou imprimindo Z, então, // emite aviso "Iniciando Novo dia de Movimento" e limpa valores e libera Impressora if Estado=estRequerZ then Application.MessageBox( 'Clique em [Ok] para iniciar Novo dia de Movimento', 'Leia com Atenção', MB_OK + MB_IconInformation ); // (3) Reiniciando valores sem impressão: Se estiver "Livre"(dia seguinte), ou imprimindo Z, então, // emite pergunta "Reiniciar dia de Movimento?" ... se sim, limpa valores e libera Impressora if Estado=estLivre then Begin If Application.MessageBox( Pchar( '* Redução Z Virtual - Sem Impressão *'+#13+#13+#13+ 'Reiniciar dia de Movimento ?'+#13+#13+ '[Sim] = Leitura X Virtual será reiniciada;'+#13+ '[Não] = Leitura X Virtual continuará acumulando valores;'), 'Responda com Atenção', MB_YESNO + MB_DefButton2 + Mb_IconQuestion )=MrNo then Exit; End; // try ZeraCupom; fpReducoesZ := fpReducoesZ + 1 ; // ReducaoZVirtual( DataHora ); Local que ocorreria a impressão { Como ERA : if fpEstado = estRequerZ then begin fpEstado := estLivre ; fpDia := now ; end else fpEstado := estBloqueada ; } fpEstado := estLivre ; fpDia := now ; fpNumCER := 0; fpVendaBruta := 0; fpTotalDescontosICMS := 0; fpTotalDescontosISSQN := 0; fpTotalAcrescimosICMS := 0; fpTotalAcrescimosISSQN := 0; fpCNFCancelados := 0; fpCNFCanceladosTotal := 0; fpCuponsCancelados := 0; fpCuponsCanceladosTotalICMS := 0; fpCuponsCanceladosTotalISSQN := 0; fpCuponsCanceladosEmAberto := 0; fpCuponsCanceladosEmAbertoTotalICMS := 0; fpCuponsCanceladosEmAbertoTotalISSQN := 0; For A := 0 to fpAliquotas.Count - 1 do fpAliquotas[A].Total := 0 ; For A := 0 to fpFormasPagamentos.Count - 1 do fpFormasPagamentos[A].Total := 0 ; For A := 0 to fpComprovantesNaoFiscais.Count - 1 do begin fpComprovantesNaoFiscais[A].Total := 0 ; fpComprovantesNaoFiscais[A].Contador := 0 ; end; For A := 0 to fpRelatoriosGerenciais.Count - 1 do fpRelatoriosGerenciais[A].Contador := 0 ; AbreDia; // AbreDocumento ; parte da impressão except LeArqINI ; raise ; end ; end; // procedure TACBrECFVirtualClass.ReducaoZ(DataHora : TDateTime) ;

Boa tarde... Foi dada uma dica para Criar classe herdada de TACBrECFVirtualNaoFiscalClass sobrescrevendo método da RedZ, p/não imprimir RZ... Não estamos conseguindo. Alguém já conseguiu fazer isto ? Obrigado!

Olá , Juliana... como faço isto ? (mover para área aberta?) Você consegue fazer isto pra mim ? ... Ah... algo que está ocorrendo também... Ontem saiu a redução z automaticamente ao "ativer o componente",... e hoje SEM NENHUMA VENDA... saiu novamente... Obrigado!

Bom dia... - Já abri um tópico sobre este assunto mas não consegui uma resposta que me satisfizesse. - Estou contribuindo com a comunidade( e não vamos parar, pois os componentes ACBr são maravilhosos ) e creio eu que é de interesse de todos que transformaram ou estão transformando sua aplicação PAF que utiliza ACBrECF em aplicação que também pode gerar o ACBrNFCe. - Como evitar que, ao ativar o objeto ACBrECF, saia "inesperadamente" uma REDUÇÃO Z ou mesmo que EXIJA esta impressão visto que, isto NÃO É uma exigência do cliente que utiliza NFCe e tenho certeza que os clientes reclamarão de tal "impressão obrigatória". Por favor, me explique qual é a melhor forma de corrigir isto (tentei inicialmente alterar o arquivo .ini manualmente, ACHEI que tinha dado certo mas não tinha. Obrigado...

Resolvido. Era o TIMEOUT mesmo, que é EM SEGUNDOS, havia um local no meu sistema que mudava ele para 150. Como é em SEGUNDOS (pensei quando criei esta linha que eram MILISSEGUNDOS), então 150/60 = 2,5 minutos. Exatamente o tempo que estava demorando... Mesmo assim, obrigado!!! (não consegui apagar o tópico, mas pode deixar se quiserem, que fica de "referência" para outros que tiverem o mesmo "problema)

Boa tarde... Estou fazendo testes aqui com meu TEF (parte do TEF é toda feita sem uso de componente ACBrTEF) , usando o ACBrECF e no momento da impressão do Comprovante Não Fiscal Vinculado, com os dados do CARTÃO, caso eu DESLIGUE a ECF, o componente ACBrECF chega a demorar 2 minutos e 35 segundos para "detectar que está desligada". A partir daí entra em um laço que eu criei, daí fica tudo "normal" (clicando em "sim, tentar novamente, com ela desligada, rapidinho já dá o erro novamente") Vocês sabem qual configuração eu teria que mexer para diminuir este tempo de retorno de erro ? Observação: meu Timeout já está com 10 (que acho bem curto, se for 10 milissegundos). Obrigado, Carlos A.F.Silva - Ferreira & Souza Informática Ltda

Bom dia... (data que vi o possível bug : 09/10/2018, versão do instalador 03/10/2018) Vou relatar um erro que percebi aqui, mas já encontrei uma aparente solução : Ao marcar as opções conforme PRINT abaixo no ACBrInstall_Trunk2.exe, ao recompilar e abrir minha aplicação que trabalha com ACBrNFe, está dando a seguinte mensagem : "Suporte a 'xsXmlSec' foi desativado por compilação {$DEFINE DFE_SEM_OPENSSL} ou {$DEFINE DEF_SEM_XMLSEC}" Para evitar esta mensagem/erro, bastou eu desmarcar a opção "Não utilizar XMLSec" e reinstalar os componentes e recompilar minha aplicação. (observação importante : esta opção no instalador, ao reabrir o ACBrInstall_Trunk2.exe, NÃO está ficando setada desmarcada mesmo eu desmarcando, da última vez) Carlos A.F.S. - Ferreira & Souza Informática

Régis, AGRADECEMOS MUITÍSSIMO SUA AJUDA e postamos abaixo como foi a SOLUÇÃO FINAL ...: A correção final para mensagem de erro, na instalação do ACBR : Error: E2199 Packages 'ACBr_synapse' and 'synapse' both contain unit 'tlntsend' se deu da seguinte maneira : A) Bastou eu procurar no HD INTEIRO por SYNAPSE.* A.1) Encontrei 2 arquivos : C:\Users\Public\Documents\RAD Studio\5.0\Dcp\Synapse.dcp C:\Users\Public\Documents\RAD Studio\5.0\Bpl\Synapse.bpl Com o DELPHI FECHADO B.1) Criei 2 pastas BKP e coloquei os arquivos destas pastas B.2) Apaguei os arquivos das pastas de origem C) Reinstalei o componente e deu tudo certo. Muitíssimo obrigado pelo auxílio rápido ... Que fique a dica acima para dúvidas de outros programadores, Rogério Edvar de Souza, FERREIRA & SOUZA INFORMÁTICA LTDA. ...

Bom dia Régys.... Fui efetuar o procedimento de instalação em outro micro aqui, na mesma versão do Delphi 2007. A instalação do fortes Report deu tudo certinho, mas ao instalar o componente ACbr apresentou uns erros que não estou conseguindo ver o que pode ser . e o engraçado que usei o mesmo ACBrInstall_Trunk2.ini para esta outra instalação para ter certeza que as opções dos componentes selecionados seriam iguais segue algumas informações ....................................................... componente ACBR : "ACBr_CTeDacteRL.dpk" ACBr_CTeDacteRL.dpk(75) Error: E2199 Packages 'ACBr_synapse' and 'synapse' both contain unit 'tlntsend' ACBr_CTeDacteRL.dpk(75) Fatal: F2220 Could not compile package 'ACBr_synapse' Compilation failure Erro ao compilar o pacote "ACBr_CTeDacteRL.dpk". ... observação : Se NÃO instalar o PACOTE ACBR "ACBr_CTeDacteRL.dpk" o erro NÃO é apresentado. .......................................................... segue em anexo o log log_Delphi_2007.txt

Régys... Apesar de não ter apresentando nenhum erro ao instalar o Fortes Report, e depois o componente AcBr pelo instaladores correspondente, ao abrir o projeto exemplo ACBrNfe_Demo, está dando erro ao compilar [DCC Error] RLReport.pas(27): F1026 File not found: 'Qt.dcu' Lembrando que estou usando o DELPHI 2007 Professional Logicamente que pela mensagem está faltando esta dcu, mas o que estou fazendo de errado agora ? pois não deu erro nas 2 instalações. Obrigado

Muito obrigado Régys.... Agora deu tudo certo. t+

Régys... bom dia.... Escolhemos o FORTES REPORT... mas ainda estamos tendo problemas, veja o que está acontecendo: ------------------------------------------- +++ Dúvida , NÃO estamos conseguindo instalar ACBR TRUNK2 no DELPHI 2007 +++ Obsevações INICIAIS : => Para instalarmos o FORTES REPORT no DELPHI 2007, 1) Baixamos os fontes no link do SOURCEFORGE, guia SVN, e recompilamos a versão para DELPHI 2006. 2) Alteramos o arquivo : RLMetaVCL.pas Na linha 608 : {$if CompilerVersion >= 20} // delphi 2009 para {$if CompilerVersion >= 18} // delphi 2007 3) Abrimos o delphi, abrimos o DPK, clicamos em BUILD e INSTALL ... Erro que OCORRE : Ao instalar o ACBR TRUNK2, dá a seguinte mensagem de erro : E2202 Required package 'frce' not found .. Já tentamos , e não deu certo a) Apontar em DELPHI > TOOLS > OPTIONS > LIBRARY-WIN32 >LIBRARY PATH a pasta com os fontes, fechar o delphi e tentamos instalar novamente Copiar os arquivos fontes de : ...\Componentes\fortesreport-Compilado.3.71.b\ para ...\Componentes\fortesreport-Compilado.3.71.b\bin\d6vcl\ ... Segue o log de erro em anexo log_Delphi_2007.txt