WINDEL

Ok, obrigado.

Desculpe, esqueci de anexar. Agora tá anexa pnfsNFSeG.pas

Bom dia, Após eu atualizar os fontes do acbr começou a dar um problema na consulta da nota d serviço para o provedor DBSeller, Comparei os fontes com os que eu tinha e tem um detalhe errado, Na unit Fontes\ACBrNFSe\pnfsNFSeG.pas na linha 387 está abrindo e fechando 2 vezes a tag ConsultarNfseRpsEnvio. Estou enviando a unit correta, vc poderia fazer a atualização Italo? Muito obrigado

Vou enviar um e-mail para eles agora mesmo. Obrigado

Boa tarde, estou com uma situação e gostaria de ver se alguém já passou por essa dificuldade também... A nota é enviada e aprovada corretamente, porém, após a consulta, é retornado o seguinte erro: <Codigo>E0800</Codigo> <Mensagem>Object reference not set to an instance of an object.</Mensagem> <Correcao>Erro no processamento do envio.</Correcao> </MensagemRetorno> Vou anexar os arquivos XML's caso alguém possa me ajudar na analise do problema. Fico no aguardo. Obrigado. 114-env-lot.xml 114-rec.xml 116UNICA-comp-nfse.xml 116UNICA-con-nfse-rps.xml 04381132000161000000114-con-lot.xml 04381132000161000000114-lista-nfse.xml

Bom dia pessoal, Estou com uma situação que é a seguinte, o cliente precisa que o desconto não rateie entre os itens, então eu setei a propriedade 'FDANFEClassOwner.ImprimirTotalLiquido' = True porém aí acontece um problema, anexei a impressão da NFCe, veja que parece que o desconto está sendo aplicado duas vezes. Então fiz algumas alterações e já testei e ficou tudo certo, Na impressão do report 'DANFeNFCe.fr3', caso o desconto do produto for maior que zero, o componente acaba imprimindo os dados do desconto: Campos 'Desconto' e 'Valor Líquido'. Eu fiz a seguinte modificação na unit ...\ACBrNFe2\ACBrDANFEFRDM.pas, no método 'CarregaDadosProdutos'. if FDANFEClassOwner.ImprimirDescPorc then begin if vDesc > 0 then FieldByName('vDesc').AsString := DFeUtil.FormatFloat(((vDesc*100) / (VUnCom * QCom))) + '%' //FieldByName('vDesc').AsString := DFeUtil.FormatFloat(RoundTo(100 - ((((VUnCom * QCom) - vDesc) / (VUnCom * QCom)) * 100), -1)) + '%' else FieldByName('vDesc').AsString := DFeUtil.FormatFloat(vDesc); end else if vDesc > 0 then if (FDANFEClassOwner.ImprimirTotalLiquido) then FieldByName('vDesc').AsString := '0' else FieldByName('vDesc').AsString := DFeUtil.FormatFloat(vDesc) else FieldByName('vDesc').AsString := '0'; Foi acrescentada a validação abaixo para definir o valor do desconto igual a zero, assim o componente acaba não imprimindo os 'DadosDesconto' do report 'DANFeNFCe.fr3' if vDesc > 0 then if (FDANFEClassOwner.ImprimirTotalLiquido) then FieldByName('vDesc').AsString := '0' Seria possível disponibilizar as alterações no fonte oficial? Se sim, segue em anexo a unit alterada para ser feito um merge. Obrigado Diogo DANFeNFCe - ImprimirTotalLiquido = True.pdf ACBrNFeDANFEFRDM.pas

Bom dia pessoal, alterei a unit pnfsConversao e adicionei as cidades abaixo que também são do provedor Betha, já fiz os testes e está funcionando. 4304630, // Capao Da Canoa/RS' 4321501 // Torres/RS'; Italo, se puder adicionar ao fontes oficiais agradeço, Obrigado Diogo

Bom dia, segue anexo units alteradas. Obrigado Diogo ACBrProvedorDBSeller.pas pnfsConsNfseporRpsResposta.pas pnfsNFSeG.pas pnfsNFSeR.pas

Pessoal, está tudo funcionando corretamente, o cliente já está emitindo notas. Gostaria de agradecer a ajuda de todos. Mas teve algumas alterações que foram necessárias fazer para funcionar tudo. 1) na unit pnfsConsNfseporRpsResposta.pas , na função LerXml, linha 306 mudei para if FProvedor in [proFreire, proSpeedGov, proVitoria, proDBSeller] then ListaNfse.FCompNfse.FNFSe.DataEmissao := Leitor.rCampo(tcDat, 'DataEmissao') else ListaNfse.FCompNfse.FNFSe.DataEmissao := Leitor.rCampo(tcDatHor, 'DataEmissao'); adicionando o proDBSeller pois senão dava erro por causa do formato da data que tem no XML, dessa forma funcionou. 2) na unit pnfsNFSeR.pas , linha 1564 , mudei para if FProvedor in [proFreire, proSpeedGov, proVitoria, proDBSeller] adicionando também o proDBSeller 3) na unit ACBrProvedorDBSeller.pas, linha 208 tirei a palavra Envio ficando assim acConsNFSeRps: Result := '<' + Prefixo3 + 'ConsultarNfseRps' + NameSpaceDad; e na linha 237 também tirei palavra envio acConsNFSeRps: Result := '</' + Prefixo3 + 'ConsultarNfseRps>'; 4) na unit pnfsNFSeG.pas, linha 341 mudei para: DadosMsg := DFeUtil.SeSenao(AProvedor = proDBSeller, ' <ConsultarNfseRpsEnvio>', '') + e na linha 387 para DFeUtil.SeSenao(AProvedor = proDBSeller, ' </ConsultarNfseRpsEnvio>', ''); Ítalo, poderia fazer essas alterações no fonte quente? assim quando eu atualizar os fontes não preciso re-fazer.. Muito obrigado mais uma vez. Diogo

Boa tarde Custódio, conseguiu fazer funcionar tudo certinho ? Abraço Diogo

Bom dia, Estou com uma outra situação agora onde na impressão do DACTE, a IE fica sem a máscara, para o destinatário a IE fica correta com a máscara, porém para o tomador do serviço fica incorreta, na verdade sem máscara, e a IE do remetente e do expedidor tbm ficam sem a máscara... Seria possível ajustar no fonte do ACBR aplicar para as todas as pessoas envolvidas a mesma máscara usada para o destinatário? Eu uso a impressão do DACTE em fast....teoricamente estou usando o .fr3 atual que veio na ultima atualização de fonte. Por favor, se puderem fazer o ajuste, eu atualizo os fontes aqui e faço os testes. =) Muito obrigado por enquanto. Diogo

Opa, eu estava conversando com o Jason da DBSeller e olha que noticia boa ele me deu. [14:43:09] Jason Bock: teve outro desenvolvedor que conseguiu enviar, consultar e cancelar a nota com ACBR [14:43:36] Jason Bock: pedi para ele disponibilizar no fórum as alterações que ele fez Já que estamos falando deste assunto aqui, eu pedi para o Jason passar o link deste tópico para este desenvolvedor, para ele adicionar aqui as alterações que fez, vamos aguardar. Agradeço a atenção e o empenho de todos nessa missão. Abraço

Opa, agora funcionou, retornou com a nota gerada no arquivo 23ffa07482464e22608a109a747a34bd60f5d33b-lista-nfse.xml Mas achei estranhei que retornou um erro se olhar no arquivo 17002-comp-nfse.xml Segue anexo os arquivos gerados e que retornaram do webservice. Acho que agora falta pouco para resolver esse caso. =) XMLs Lote 7.rar

Vou testar, perai

Custódio, tu poderia enviar esse arquivo para o Jason e comentar isso que o Italo falou? Pois eu também estou chegando a conclusão que agora é algo lá no webservice. Fico no aguardo, valeu

Eu estava falando com o Jason da DBSeller O acbr gera o XML assim na parte do numero do rps. -<InfRps id="15002"> -<IdentificacaoRps> <Numero>15</Numero> <Serie>002</Serie> <Tipo>1</Tipo> </IdentificacaoRps> Onde o InfRps é o numero do rps + serie.. O Jason pediu para enviar apenas o numero ali, sem concatenar com o lote. Tem como fazer essa alteração para fazermos um teste?

Bom dia, meus parabéns, o problema no ID sumiu, agora eles receberem o lote. Porém, agora está dando outro erro no retorno, que deve ser alguma validação ou liberação de cadastro lá, não tenho certeza. <ii:Situacao>1</ii:Situacao> -<ii:ListaMensagemRetorno> -<ii:MensagemRetorno> <ii:Codigo>E88</ii:Codigo> <ii:Mensagem>Numero de lote nao informado</ii:Mensagem> <ii:Correcao>Informe o numero do lote.</ii:Correcao> </ii:MensagemRetorno> -<ii:MensagemRetorno> <ii:Codigo>E46</ii:Codigo> <ii:Mensagem>CNPJ do prestador nao informado</ii:Mensagem> <ii:Correcao>Informe o CNPJ do prestador.</ii:Correcao> </ii:MensagemRetorno> </ii:ListaMensagemRetorno> Para você também retornou este erro? alguma ideia? Abraço Jones

Boa tarde, o Jason da DBSeller falou que ia ver como fazer para aceitar Id. =) A principio só nos resta aguardar agora.. Abraço

Bom dia Italo, Pois é, eu concordo com você, vou tentar conversar novamente com eles novamente. Obrigado por enquanto.

Boa tarde Italo, atualizei os fontes e fiz um teste, mas retornou o seguinte erro do webservice: <ii:Codigo>E160</ii:Codigo> <ii:Mensagem>Arquivo enviado fora da estrutura do arquivo XML de entrada. (Linha 1: Element 'LoteRps', attribute 'Id': The attribute 'Id' is not allowed. ,Linha 1: Element 'InfRps', attribute 'Id': The attribute 'Id' is not allowed. )</ii:Mensagem> <ii:Correcao>Envie um arquivo dentro do schema do arquivo XML de entrada.</ii:Correcao> Falando com o pessoal da DBSeller, eles me falaram que o problema é o Id, que precisa o i ser minusculo, porém com o i minusculo o acbr não consegue assinar o xml, isso né? Porém, se fizermos aquele lance (volta) de assinar e depois mudar para i minusculo, retorna aquele outro erro dizendo que o arquivo foi violado. O problema é que estou tentando convencer eles a arrumar isso, falei que os outros provedores aceitam com o I maiúsculo e tal, mas ele me respondeu que o correto seria enviar o XML na estrutura que disponibilizamos... =( Daí te pergunto, existe alguma forma de resolver essa questão? ou o jeito é eles tirarem o case sensitive ? Obrigado por enquanto.

Muito obrigado. =)

Boa tarde, Estamos com um problema no carregamento da IE de alguns estados, onde o numero tem mais que 14 dígitos, aí no DACTE acaba cortando o ultimo digito. A solução seria alterar na unit ACBrCTeDACTEFRDM , nas funções de carregamento do destinatário e das outras pessoas envolvidas, seria só mudar para puxar 17 dígitos, e não só 14 como está hoje... Por exemplo, mudar: FieldDefs.Add('IE', ftString, 14) para FieldDefs.Add('IE', ftString, 17) Se puderes fazer esta alteração, me avisa que eu atualizo os fontes e testo. Obrigado por enquanto Diogo

Boa tarde Italo, Falei com o pessoal da DBSeller, então eles vão ajustar o webservice deles para aceitar Id como os outros provedores aceitam, mas eles me pediram para enviar um xml com a a tag Id com o "i" maiúsculo ali e assinado, sem a edição do xml para não violá-lo. Você pode fazer essa alteração no fonte e liberar, dai eu atualizo aqui e envio um teste para eles? Obrigado por enquanto, estamos quase resolvendo a questão, falta pouco agora.. Diogo

Boa tarde Italo, atualizei os fontes e testei, gerou a tag com o "i" minusculo e assinado, como o previsto, porém, o webservice rejeitou dando este erro: <ii:MensagemErro>integridade do arquivo foi violada</ii:MensagemErro> Então eu vou tentar falar com o pessoal da DBSeller, como vc sugeriu, para eles alterarem lá para aceitar o "i" maiusculo, para que agente não precise fazer essa alteração no xml, para não "violá-lo" Obrigado por enquanto Diogo

Bom dia Italo, nos últimos dias venho conversando com o pessoal da DBSeller para tentar resolver essa questão, e parece que eles acharam o problema, pois ele disse que ajustou manual e fez a importação manual e aí funcionou. Segundo ele o problema é no campo <InfRps Id="7002"> do xml, a letra i do Id tem de ser minuscula, teria que ficar assim: <InfRps id="7002"> Porém, eu fiz essa alteração direto no acbr para fazer um teste, mas dai acontece outro problema, não chega nem a enviar a nota, dá um erro na assinatura digital. Tem alguma ideia de como resolver isso? Obrigado por enquanto Diogo