ademar-datalan

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?