Endrigo Rodrigues

Sim Italo, funcionou perfeitamente. Muito obrigado.

Italo boa tarde. Estou tentando instalar o novo ACBrNFSe porém quando tento compilar o ACBrNFSeDanfseQRpkg é apresentado um erro dizendo que o pacote QR5RunD7 é necessário, porém não encontrei esse pacote. Como devo proceder?

Como você fez? No Delphi 7 funciona?

Se não me engano só funciona no QuickReport pago.

No componente da NFSe (Nota Fiscal de Serviço Eletrônica) não está sendo feito esse tratamento.

Possuo uma DataRegis e não tem dado problemas.

Alguma posição se essas alterações entrarão no SVN e quando? Obrigado.

Verifiquei que no envio também tenho o mesmo problema do número da conta, utilizando RightStr(Cedente.Conta, 5) tanto no cabeçalho quanto na linha do título resolve o problema. CNAB400.

Olá. Seguinte, estou fazendo testes para liberar o meu sistema para funcionar com Bradesco e Itaú, boleto registrado, e tenho encontrado alguns problemas. Arquivo: ACBrBancoBradesco.pas Função: LerRetorno400 Linha: 387 Solução: Se não tiver o RightStr() na verificação da conta, não funciona. if (not LeCedenteRetorno) and ((rAgencia <> OnlyNumber(Cedente.Agencia)) or (rConta <> RightStr(OnlyNumber(Cedente.Conta), Length(rConta)))) then raise Exception.Create(ACBrStr('Agencia\Conta do arquivo inválido')); Arquivo: ACBrBancoItau.pas Função: LerRetorno400 Linha: 800 Solução: A verificação de CNPJ/CPF está invertida. 01 = CPF, 02 = CNPJ. case StrToIntDef(Copy(ARetorno[1],2,2),0) of 1 : rCNPJCPF:= Copy(ARetorno[1],07,11); 2 : rCNPJCPF:= Copy(ARetorno[1],04,14); else rCNPJCPF:= Copy(ARetorno[1],4,14); end; Arquivo: ACBrBancoItau.pas Função: LerRetorno400 Linha: 812 Solução: Se não tiver o RightStr() na verificação da conta, não funciona. if (not LeCedenteRetorno) and ((rAgencia <> OnlyNumber(Cedente.Agencia)) or (rConta <> RightStr(OnlyNumber(Cedente.Conta), Length(rConta)))) then raise Exception.Create(ACBrStr('Agencia\Conta do arquivo inválido'));

O que pode ser feito também é ao verificar a data de movimento e for detectado que a mesma é diferente da data atual do ECF, verificar se o estado atual do ECF é diferente de estRequerZ, se for assumir a data de movimento como sendo a data do dia. function TECF.LerDataMovimento: TDateTime; var DtDia: TDateTime; begin Result := 0; try Result := frmPDV.ECFACBr.DataMovimento; DtDia := DateOf(frmPDV.ECFACBr.DataHora); if Result < DtDia then if frmPDV.ECFACBr.Estado <> estRequerZ then Result := DtDia; except on E: Exception do MsgErro(E.Message); end; end;

Ahhhh!!! Tinha esquecido de falar, tive que alterar também a função GetDadosUltimaReducaoZ acrescentando o comando para retornar a venda bruta do último Z 'LeMoeda;NomeDadoMonetario=VendaBrutaReducao[' + IntToStr(StrToInt(NumCRZ)) + ]"'; Pelo que vi a função GetDadosUltimaReducaoZ está completamente inconsistente, inclusive para as outras informações, pois para buscar os dados tem que ser utilizado essas variáveis com o índice do CRZ para retornar cada uma das funções, como eu só precisava de buscar a Venda Bruta e o CRZ por conta da reconstrução do arquivo do GT, então só modifiquei essa parte.

Segue abaixo as DLLs utilizadas com a Dataregis. Gostaria de informar que consegui homologar com a Dataregis 3202DT protocolo FiscNet após ter feito as duas alterações no código fonte e ter atualizado as DLLs. DataregisDLL.7z

Consegui resolver, segue em anexo o fonte da FiscNet que já vinha utilizando com a alteração que eu já tinha feito com relação ao rodapé do cupom fiscal por conta da Sangria que já havia postado em outro post, e com a alteração da geração do arquivo LMFC COTEPE. ACBrECFFiscNET.pas

Estou usando a função: ECF_ACBR.PafMF_LMFC_Cotepe1704(DataInicial, DataFinal, PathArquivo); E ví la no fonte do ACBr (ACBrECF.pas) que o que é executado é: Self.ArquivoMFD_DLL(DataInicial, DataFinal, PathArquivo, [docTodos], finMF); Com o parâmetro correto finMF, mas o arquivo não é gerado dessa forma e nem foi avisado que a função não tinha sido implementada.

Olá pessoal. Bom, estou no desespero aqui, estou homologando com uma Dataregis 3202DT (protocolo FiscNet) e estou nos últimos requisitos de minha homologação aqui, e não estou conseguindo fazer gerar o arquivo do menu fiscal LMFC Ato Cotepe. O homologador disse que o meu arquivo foi gerado como MFD e não como MF. Mas executei a função correta e com os parâmetros corretos. Quem puder me ajudar, por favor, não sei mais o que fazer.

Daniel? Alguma solução?

Dataregis Quick 3202DT 01.00.73

A questão Daniel, é se foi testado essa modificação após a alteração 1890 para Sangria com IdentificaPAF. Pois do jeito que está hoje, não funciona, funciona somente a Sangria se não tiver sido executado o IdentificaPAF. Agora, com a versão 1890 funciona todos os comandos.

Sim Daniel. Estou fazendo os testes para homologar amanhã, e depois da alteração tudo está funcionando.

Segue em anexo o arquivo fonte ACBrECFFiscNET.pas modificado. ACBrECFFiscNET.pas

Achei bem rápido, ainda não testei o ACBrMonitor via TCP/IP.

Vi que os fontes do SVN ainda continuam com problemas com ECF FiscNet. Alguma previsão de alteração da função FechaCupom?

Qual será o preço da versão comercial?

Tente abrir a sua tela de login no OnActivate do seu formulário principal da sua aplicação, e no mesmo OnActivate você trata com uma propriedade na classe do formulário se já foi executado o OnActivate, se não foi executado o OnActivate, você faz o processo de ativação do ACBr e depois a tela de login, lembrando que em sua tela de login você tem que disponibilizar um atalho para o "Menu Fiscal" senão você dança na homologação. Dessa forma, mesmo que você abra a tela de login novamente, a comunicação do ACBr estará ativa e vc não precisará ficar fechando e abrindo a mesma. Feche somente no evento OnClose ou OnDestroy do formulário principal.

Tente o seguinte: ECF_ACBR.Device.ProcessMessages := False;