ademar-datalan

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

Obrigado. Sempre a disposição.

Bom dia a todos, Tive um problema com a validação de uma NF-e que achei bem estranho. O Componente está devolvendo um aviso de que o valor da nota, o valor dos produtos, a base de ICMS e o valor da fatura estão com mais que duas decimais. Só que o valor não tem mais que duas decimais, o valor é de R$ 554.399,81. Fazendo um debug chegei ao problema, isso esta ocorrendo na unit pcnGerador na linha 728 a 731, nesse ponto é utilizada a rotina abaixo que devolve o valor incorreto. 554399,8100000001 ConteudoProcessado := FormatFloat('0.0000000000', valor); EstaVazio := (valor = 0) and (ocorrencias = 0); if StrToIntDef(Copy(ConteudoProcessado, pos(DecimalSeparator, ConteudoProcessado) + NumeroDecimais + 1, 10),0) > 0 then walerta(ID, Tag, Descricao, ERR_MSG_MAXIMO_DECIMAIS + ' ' + IntToStr(NumeroDecimais)); Fiz vários testes e fazendo a seguinte alteração, resolve o problema. VlrExt:Extended; // declarar valiavel do tipo Extended VlrExt := StrToFloat(Valor); // esse comando faz o ajuste ConteudoProcessado := FormatFloat('0.0000000000', VlrExt); // associado a este EstaVazio := (valor = 0) and (ocorrencias = 0); if StrToIntDef(Copy(ConteudoProcessado, pos(DecimalSeparator, ConteudoProcessado) + NumeroDecimais + 1, 10),0) > 0 then walerta(ID, Tag, Descricao, ERR_MSG_MAXIMO_DECIMAIS + ' ' + IntToStr(NumeroDecimais)); Espero ter contribuido.

Estou testando a CC-e usando o AcbrNFe_Demo. A resposta da solicitação para a carta de correção é sempre a mesma: Rejeicao:A data do evento nao pode ser maior que a data do processamento Algém tem alguma idéia do que está acontecendo?