Aggille Sistemas de Gestão

Bom dia.. Novo Hamburgo / RS - Provedor IPM/2.04

Problema ocorre somente o Danfe com o Fortes Report...

Fiz o teste no demo do componente e acontece o mesmo problema..

A passagem dos valores pro danfe está correta.. acho que o problema está na leitura do xml.. mas ainda não consegui chegar na rotina que lê o xml pra conferir se está lendo da tag correta

Bom dia... Na impressão do DanfeNFSe, o componente está colocando o valor dos serviços como Valor Liquido.. Nesse xml,por exemplo, o valor dos serviços é 767,37, dai tem 11,02 de IR e o valor liquido seria 755,86. Notem que o XML está correto, os valores no site da prefeitura também estão OK Porém no Danfe aparece 767,37 como valor líquido quando deveria ser 755,86 35-nfse.xml Emissão NFS-e.pdf

o sefaz bloqueia o ip, caso o cliente faça muitas consultas repetivas aos webservices do dfe... ou manda as consultas sempre com o NSU=0, ou toma muitos erros de exceso de consumo.. tem que aumentar o tempo entre as consultas aos webservices de distribuição de DFE.. eu rempre recomendo aos meus clientes pelo menos 2 horas entre as consultas.... já tive clientes com esse problema.. principalmente quando tem esses sistemas de baixar o xml no contador e na sede da empresa...

é uma pergunta meio óbvia... mas o cadastro deo destinatário foi alterado pro novo estado e colocada a nova inscrição estadual ?

O erro é na consulta detalhada ? Eu faço mais ou menos assim... FACBrBoleto.Configuracoes.WebService.Operacao := tpConsultaDetalhe; FTitulo := FACBRBoleto.CriarTituloNaLista; FTitulo.NossoNumero := aNossoNumero; if ( FACBrBoleto.EnviarBoleto ) then for x := 0 to FAcbrBoleto.TotalListaRetornoWeb -1 do if( FAcbrBoleto.ListaRetornoweb[x] <> nil ) then begin ARet := TRetornoCobrancaDTO.Create; ARet.CodBarras := FAcbrBoleto.ListaRetornoweb[x].DadosRet.TituloRet.CodBarras; Aret.LinhaDig := FAcbrBoleto.ListaRetornoweb[x].DadosRet.TituloRet.LinhaDig; ARet.NossoNumero := FAcbrBoleto.ListaRetornoweb[x].DadosRet.TituloRet.SeuNumero; ARet.NumeroDocumento := FAcbrBoleto.ListaRetornoweb[x].DadosRet.TituloRet.NumeroDocumento; ARet.DataRegistro := FAcbrBoleto.ListaRetornoweb[x].DadosRet.TituloRet.DataRegistro; ARet.Vencimento := FAcbrBoleto.ListaRetornoweb[x].DadosRet.TituloRet.Vencimento; ARet.ValorDocumento := FAcbrBoleto.ListaRetornoweb[x].DadosRet.TituloRet.ValorDocumento; ARet.Carteira := FAcbrBoleto.ListaRetornoweb[x].DadosRet.TituloRet.Carteira; ARet.Modalidade := FAcbrBoleto.ListaRetornoweb[x].DadosRet.TituloRet.Modalidade.ToString; ARet.CodigoEstadoTituloCobranca := FAcbrBoleto.ListaRetornoweb[x].DadosRet.TituloRet.CodigoEstadoTituloCobranca; ARet.EstadoTituloCobranca := FAcbrBoleto.ListaRetornoweb[x].DadosRet.TituloRet.EstadoTituloCobranca; ARet.Contrato := FAcbrBoleto.ListaRetornoweb[x].DadosRet.TituloRet.Contrato; ARet.DataMovimento := FAcbrBoleto.ListaRetornoweb[x].DadosRet.TituloRet.DataMovimento; ARet.DataCredito := FAcbrBoleto.ListaRetornoweb[x].DadosRet.TituloRet.DataCredito; ARet.ValorAtual := FAcbrBoleto.ListaRetornoweb[x].DadosRet.TituloRet.ValorDocumento; ARet.ValorPago := FAcbrBoleto.ListaRetornoweb[x].DadosRet.TituloRet.ValorPago; ARet.NumeroDocumento := FAcbrBoleto.ListaRetornoweb[x].DadosRet.TituloRet.NumeroDocumento; Aret.NumeroDoBanco := ANumeros[x]; ARet.NomeSacado := FAcbrBoleto.ListaRetornoweb[x].DadosRet.TituloRet.Sacado.NomeSacado; ARet.CidadeSacado := FAcbrBoleto.ListaRetornoweb[x].DadosRet.TituloRet.Sacado.Cidade; ARet.UFSacado := FAcbrBoleto.ListaRetornoweb[x].DadosRet.TituloRet.Sacado.UF; ARet.BairroSacado := FAcbrBoleto.ListaRetornoweb[x].DadosRet.TituloRet.Sacado.Bairro; ARet.DataPagamento := FAcbrBoleto.ListaRetornoweb[x].DadosRet.TituloRet.DataBaixa; aRet.ValorOutrasDespesas := FAcbrBoleto.ListaRetornoweb[x].DadosRet.TituloRet.ValorOutrasDespesas; aRet.ValorJuroMoraRecebido := FAcbrBoleto.ListaRetornoweb[x].DadosRet.TituloRet.ValorMoraJuros; aRet.ValorMultaRecebido := FAcbrBoleto.ListaRetornoweb[x].DadosRet.TituloRet.PercentualMulta; aRet.CodigoOcorrenciaCartorio := StrToIntDef( FAcbrBoleto.ListaRetornoweb[x].DadosRet.TituloRet.CodigoOcorrenciaCartorio,0); FREtornoWeb.Add( ARet ); end;

La no site do banco Inter, tem que solicitar os arquivos de retorno por periodo, eles não disponibilizam automaticamente...

Cria uma função tipo ImprimeRelatorio( aMostraImagemFundo:boolean ) e dai nessa função tu exibe ou oculta a imagem como o Juliomar falou acima...

no retorno da consulta, tem o campo ValorPago..ou DataPagamento..é só verificar esses campos..

por arquivo CNAB e API..

aqui no RS, quando o cliente muda de cidade, muda a inscrição estadual, e a IE antiga fica 'baixada', então se é enviada a inscrição estadual antiga, o sefaz retorna como 'denegada'...

eu busco dessa forma após o envio.. FNFSE.WebService.Emite.CodigoVerificacao sds,

na verdade não tinha notado no padrão 400.. meus clientes que utilizam negativação usam padrao cnab240.. e esse funciona perfeitamente.. estou analisando os fontes e realmente não tem a geração desse registro. a instrução que eu tive do pessoa do T.I. do Banco do Brasil, logo que iniciou essa opção de negativação, quando ainda não haviam campos específicos era essa: "No Cnab400 é o seguinte: Posições 157 a 159 (primeira instrução) vai o código 88 que indica negativação. Nas posições 392 a 393 vai a quantidade de dias para envio a negativação (ex. 05 para envio a negativação em cinco dias). No caso de negativação, são sempre dias corridos." Falando com eles, disseram que no layout antigo nao tinha esse registro, porque o agente era sempre o serasa, e recentemente homologaram a Quod. Mas o ACBR ainda não gera esse registro 5... Se o agente foi o Serasa, pode fazer da maneira acima que funciona..

na hora de alimentar a lista de titulos do acbr, eu uso dessa forma with FAcbrBoleto.CriarTituloNaLista do begin CodigoNegativacao := TACBrCodigoNegativacao( FCarteira.Codigo_Negativacao ); <<-----( essa informação vem da minha classe de configuração da carteira ) if( CodigoNegativacao in [cnNegativar] ) then begin DiasDeNegativacao := FCarteira.DIAS_PROTESTO; orgaoNegativador := FCarteira.ORGAO_NEGATIVADOR.ToString; end; end; o AcbrBoleto faz todo o resto

esse caso acontece aqui pra mim quando ocorre o erro de Acesso Negado.. o componente não está levantando a exception.. esse provedor é muito estranho.. eles dizem que utilizam o padrão Abrasv 2.04, mas tem várias inconsistências no layout deles... se for no site da prefeitura baixar o xml, só tem a opção de baixar um XML IPM.. que é completamente diferente do padrão...sempre que eu recebo esse erro de lista de nfse vazia, ja vou direto nos arquivos de retorno do xml pra ver o erro.

Testado em produçao e funcionando

tem que atualizar o schema do provedor IPM...

ok.. descomentei a linha que tinha comentado no IPMGravar, coloquei o novo schema e funcionou... obrigado...

também tive esse problema... fiz a mesma coisa ontem e funcionou...

bom dia... capturou as mensagens de retorno ? esse provedor exige que seja informado usuário e senha..

Olhei o arquivo de Schemas... e o ItemListaServico deve ir formatado.. e acho que o acbr em algum momento remove a formatação.. sds,

um erro bem estranho agora... estou alimentando '01.08' no componente...

Bom dia.. Fazendo os testes no provedor IPM2.04 em Novo Hamburgo, quando acontece o erro de Acesso Negado ( erro ) 401, o ACBR gera o xml de retorno, com o erro conforme abaixo <?xml version="1.0" encoding="UTF-8"?> <retorno><msg>Acesso Negado!</msg><sis>EST</sis><code>401</code></retorno> Porém, ao percorrer o List de erros em WebService.Envio, somente vem o erro de Retorno de xml vazio.. Não deveria ser levantada um exception quando ocorrer o erro de Acesso Negado ? Ou tem uma forma de capturar esse erro pra que seja exibido ao usuário a mensagem correta ? sds,