ademar-datalan

Fiz atualização agora pela manhã do AcBr, executei o apagarAcbr.bat e estou tentando fazer a reinstalação com o ACBrInstall.exe, está dando erro na instalação do pacote do SPED C:\ACBr\Fontes\ACBrTXT\ACBrSPED\ACBrSPEDPisCofins\ACBrEPCBloco_0_Class.pas(712) Error: E2250 There is no overloaded version of 'IfThen' that can be called with these arguments ACBr_SPED.dpk(67) Fatal: F2063 Could not compile used unit 'ACBrEPCBloco_0_Class.pas' Att, Obrigado

Bom dia Italo, Funcionou, Obrigado.

Ao fazer o download do XML a data vem assim formatada '2015-07-01T10:44:50-03:00'. Internamento o AcBr usa a função StringToDateTime para fazer a conversão para o tipo date. Nesse momento dá erro. Veja o exemplo: objeto => TRetDownloadNFe entrada => '2015-07-01T10:44:50-03:00' linha => FretNFe.Items.FdhEmi := StringToDateTime(RetornarConteudoEntre(Leitor.Grupo, '<dhEmi>', '</dhEmi')); Como fazer para corrigir?

Bom dia, Fiz o ajuste e os testes, deu certo. Segue o arquivo com o ajuste ACBrNFeDANFEFR.pas

Na impressão da NFC-e numa impressora não fiscal (Ex. bematech MP 4200), usando o FastReport, o papel é cortado automaticamente, quando a NFC-e é muito longa (40 ou 50 centímetros). Para resolve o problema, tivemos que incluir o comando FdmDanfe.frxReport.PrintOptions.PrintMode:= pmSplit; Isso só funciona se for feito depois do LodaFromFile, antes não adianta. Gostaria de ver ser existe como fazer este ajuste de forma permanente no AcBr para que em atualizações futuras não seja perdido o ajuste.

Ok, Daniel, Não quero causar outros problemas, mas no meu caso não tem como deixar como está, pois da erro de AcessViolation. Para evitar o problema que você citou, e corrigir o problema de AcessViolation, poderia ser usada a variável PathDLL na chamada do procedimento ConfiguraBenaFI32Iini, ai ficaria assim: Ini := TiniFile.Create( PathDLL+IniFile ); É só uma sugestão, avalie a possibilidade. Obrigado.

Ok, Obrigado pelo retorno.

Bom dia, Gostaria de sugerir um pequeno ajuste na função TDistribuicaoDFe.TratarResposta: Boolean. Quando é retornado uma das opções tsprocNFe ou tsprocEventoNfe os arquivos XML são salvos automaticamente. Neste ponto poderia ser observada a propriedade Salvar do componente, para verificar se os arquivos serão salvos ou não. Obrigado.

OK, Segue fonte com a alteração. ACBrECFBematech.pas

Fiz a atualização e continua com o mesmo problema. Para funcionar corretamente, a linha 3529 do arquivo ACBrECFBematech.pas tem que ficar assim Ini:= TInifile .Create( aPath+IniFile) ;

Ops, Esqueci de dizer que o executável é chamado do servidor, usando caminho de rede \\servidor\xx........

Boa tarde, Tive alguns problemas com a impressora ECF da Bematech. Quando é executada a rotina AbrePortaSerialDLL dá um RiseEception na linha 3531. Este erro ocorre devido a forma como é criada a variável INI na linha 3529, nesta linha está sendo passado o parâmetro IniFile, sem o Path, mudando o parâmetro para aPath+IniFile, não deu mais o erro. A linha 3529 do arquivo ACBrECFBematech, ficou assim Ini := TIniFile .Create( aPath+IniFile ); Veja se é possível a correção no componente para evitar problemas futuros.

Boa tarde, Não tem solução? Não dá para fazer o download da MFD?

Bom dia, Alguém sabe como posso gerar o arquivo MFD da Bematech, usando ao AcBr?

Boa noite, Gostaria de fazer o download do arquivo MFD da Bematech e depois usar a função da Bematech_FI_FormatoDadosMFD (da própria DLL Bemafi32) para transformar em TXT das informações capturadas da impressora. Alguém sabe me dizer como faço para gerar o download? Obrigado.

Bom dia, Pode ser uma alternativa, só que antes tínhamos a opção de consultar as NF-es manifestadas ou não, isso dava segurança para verificar se alguma NF-e tinha sido emitida contra o CNPJ e não foi recebida. Se é assim que vai funcionar, vamos ter que nos adequar.

Boa tarde, Usando o nome Web Sevices NfeConsultaDest, como posso saber se a nota já foi manifestada? Antes tínhamos o retorno (cSitConf) para saber se a NF-e tinha sido manifestada.

Boa tarde, Atualizando o arquivo ACBrConsultaCNPJ.pas corre o seguinte erro: JPG erro #53

Boa tarde a todos. Nos últimos dias tenho tido reclamações com o uso do web services NfeDownloadNf. Fiz vários testes e verifiquei que o XML tem retornado com uma nova TAG <NFeZip>. Alguém sabe me dizer se houve alguma alteração no retorno deste web services?

Seria bem mais fácil fazer tudo num único componente, mas se não der, paciência. Se você puder mandar alguma coisa, fico agradecido, tudo ajuda.

Bom dia Rigotti, Gostaria de participar e auxiliar a desenvolver as rotinas para que o Acbr tenha as funcionalidades para a NFS-e de Caxias do Sul. Vamos trocar informações para agilizar o desenvolvimento.

Fiz atualização do pacote do AcBr e este ajuste não consta. Estou com o mesmo problema. Tem alguma previsão de inclusão deste ajuste no pacote oficial? Obrigado.

Foi feito ajuste para gerar corretamente o arquivo CANBA 240 do Banrisul. ACBrBancoBanrisul.pas ACBrBancoBanrisul.pas

Estou com problemas no envio de NF-e V3.10 no modelo ASSINCRONO, parece que está misturando as opções Sincrono e Assíncrono.

Acabamos de homologar o CNAB 240 do BANRISUL, por isso gostaria de compartilhar com todos os ajustes feitos. Segue abaixo a relação dos ajustes na unit ACBrBancoBanrisul.pas e em anexo o arquivo com todas a correções. Espero que seja adiciono ao repositório para que todos tenham acesso a estes ajuste. --------------------------------------------------------------------------------------- Alterações na unit C:\ACBr\Fontes\ACBrBoleto\ACBrBancoBanrisul.pas linha 87 –> fpTamanhoConta := 8; linha 426 –> '0'+ linha 427 –> padR(OnlyNumber(Agencia), 4, '0') + linha 630 try ACBrBanco.ACBrBoleto.DataArquivo := StringToDateTimeDef(Copy(ARetorno.Strings[0], 144, 2) +'/'+ Copy(ARetorno.Strings[0], 146, 2) +'/'+ Copy(ARetorno.Strings[0], 148, 4), 0, 'dd/mm/yyyy'); except ACBrBanco.ACBrBoleto.DataArquivo := 0; end; linha 635 try ACBrBanco.ACBrBoleto. DataCreditoLanc := StringToDateTimeDef(Copy(ARetorno.Strings[1], 200, 2) +'/'+ Copy(ARetorno.Strings[1], 202, 2) +'/'+ Copy(ARetorno.Strings[1], 204, 4), 0, 'dd/mm/yyyy'); except ACBrBanco.ACBrBoleto. DataCreditoLanc := 0; end; linha 640 –> rCNPJCPF := OnlyNumber( copy(ARetorno[1], 20, 14) ); linha 645 –> if (not LeCedenteRetorno) and (rCNPJCPF <> OnlyNumber(Cedente.CNPJCPF)) then linha 648 –> if (not LeCedenteRetorno) and ((rAgencia <> padR(OnlyNumber(Cedente.Agencia),5,'0')) or linha 649 –> (rConta <> padR(OnlyNumber(Cedente.Conta),12,'0'))) then linha 705 – >NossoNumero := Trim(Copy(FSegT, 38, TamanhoMaximoNossoNum)); linha 725 –> OcorrenciaOriginal.Tipo := CodOcorrenciaToTipo(Copy(FSegT, 16, 2)); linha 733 –> CodMotivoRejeicaoToDescricao(Titulo.OcorrenciaOriginal.Tipo, Copy(FSegT, IdxMotivo, 2))); colocado dentro da função CodMotivoRejeicaoToDescricao os motivos das situações toRetornoRegistroRecusado, toRetornoInstrucaoRejeitada, toRetornoAlteracaoDadosRejeitados: ACBrBancoBanrisul.pas