Joel

Entendi Italo, estou fazendo o certo então em salvar o conteúdo de ACBrNFSe1.WebServices.EnviarSincrono.NFSeRetorno.ListaNfse.CompNfse[0].Nfse.XML no banco de dados, obrigado. Agora fiquei em dúvida no seguinte, eu salvo este xml no banco certo, mas quando passo ele para impressão dá o problema que lhe falei de não aparecer os dados. O XML que lhe enviei outro dia para te dizer do problema é o xml que é gerado pelo componente na pasta de nfes. Como pensei que ambos eram semelhantes, estava mais facil pegar o arquivo e enviar para você, e ai que vi que não eram iguais, o arquivo é mais completo. Fico na dúvida agora com o seguinte, eu tento pegar esse completo para salvar no meu banco, que é o que está dando certo a impressão ou mudamos a função de leitura do xml? Qual dos XML o componente deve ler para fazer a impresão? (Só para lembrar, antes, ele lia o XML do retorno do webservices). Aliás, analisando os fontes ontem , eu descobri também que a função de leitura por arquivo está diferente da leitura por Stream, que no caso é a que eu utilizo, pois pego do banco gero um stream e passo para o componente, eu estava modificando ela já, tudo bem? abs

Italo bom dia, Eu acho que devo estar salvando o xml de forma errada. Poderia confirmar ou me dizer como eu pego o retorno do XML corretamete? No retorno da função: ACBrNFSe1.EnviarSincrono estou pegando desta forma : qaux.ParamByName('xml').AsString := ACBrNFSe1.WebServices.EnviarSincrono.NFSeRetorno.ListaNfse.CompNfse[0].Nfse.XML; Mas veja o xml que vem desta forma, é diferente do XML que fica salvo em arquivo. Segue xml que vem no retorno logo abaixo : o xml em anexo é o que fica salvo em arquivo pelo proprio componente. Obrigado <Nfse versao="2.01"><InfNfse><Numero>1821</Numero><CodigoVerificacao>SX418JHIV</CodigoVerificacao><DataEmissao>2014-03-19T11:19:14</DataEmissao><ValoresNfse><BaseCalculo>105</BaseCalculo><Aliquota>3.84</Aliquota><ValorIss>4.03</ValorIss><ValorLiquidoNfse>105</ValorLiquidoNfse></ValoresNfse><PrestadorServico><IdentificacaoPrestador><CpfCnpj><Cnpj>09</Cnpj></CpfCnpj><InscricaoMunicipal>1</InscricaoMunicipal></IdentificacaoPrestador><RazaoSocial>aaaaa</RazaoSocial><NomeFantasia>ELETRICOS LTDA</NomeFantasia><Endereco><Endereco>AVENIDA PALMARES DOS</Endereco><Numero>478</Numero><Complemento>SALA 5</Complemento><Bairro>LOTEAMENTO</Bairro><CodigoMunicipio>4115200</CodigoMunicipio><Uf>PR</Uf><Cep>8700</Cep></Endereco><Contato><Telefone>44</Telefone><Email>financeir</Email></Contato></PrestadorServico><OrgaoGerador><CodigoMunicipio>4115200</CodigoMunicipio><Uf>PR</Uf></OrgaoGerador><DeclaracaoPrestacaoServico><InfDeclaracaoPrestacaoServico><Rps><IdentificacaoRps><Numero>1819</Numero><Serie>1</Serie><Tipo>1</Tipo></IdentificacaoRps><DataEmissao>2014-03-19</DataEmissao><Status>1</Status></Rps><Competencia>2014-03-01</Competencia><Servico><Valores><ValorServicos>105</ValorServicos><ValorDeducoes>0</ValorDeducoes><ValorPis>0</ValorPis><ValorCofins>0</ValorCofins><ValorInss>0</ValorInss><ValorIr>0</ValorIr><ValorCsll>0</ValorCsll><OutrasRetencoes>0</OutrasRetencoes><ValorIss>4.03</ValorIss><Aliquota>3.84</Aliquota><DescontoIncondicionado>0</DescontoIncondicionado><DescontoCondicionado>0</DescontoCondicionado></Valores><IssRetido>2</IssRetido><ItemListaServico>3101</ItemListaServico><Discriminacao>1 - VISITA TECNICA valor: 105,00;</Discriminacao><CodigoMunicipio>4115200</CodigoMunicipio><CodigoPais>1058</CodigoPais><ExigibilidadeISS>1</ExigibilidadeISS><MunicipioIncidencia>4115200</MunicipioIncidencia></Servico><Prestador><CpfCnpj><Cnpj>0</Cnpj></CpfCnpj><InscricaoMunicipal>1</InscricaoMunicipal></Prestador><Tomador><IdentificacaoTomador><CpfCnpj><Cnpj>8</Cnpj></CpfCnpj></IdentificacaoTomador><RazaoSocial>BATISTA &amp; IZEPE LTDA</RazaoSocial><Endereco><Endereco>AV. BRASIL</Endereco><Numero>542</Numero><Bairro>JARDIM INDEPENDENCIA</Bairro><CodigoMunicipio>4126256</CodigoMunicipio><Uf>PR</Uf><Cep>87</Cep></Endereco><Contato><Telefone>3</Telefone><Email>financeiro</Email></Contato></Tomador><RegimeEspecialTributacao>6</RegimeEspecialTributacao><OptanteSimplesNacional>1</OptanteSimplesNacional><IncentivoFiscal>1</IncentivoFiscal></InfDeclaracaoPrestacaoServico></DeclaracaoPrestacaoServico></InfNfse>

Realmente tem razão Italo, o exemplo funcionou perfeitamente. Devo ter esquecido de fazer alguma coisa. O duro é que fiz tudo que você disse. atualizei a pasta acbr inteira , apaguei todas as bpl do acbr do projects do delphi, instalei utilizando o instalador do acbr e depois fiz o build da aplicação e nada.. Teria alguma dica a mais sera? Mas vou refazer em todo caso todo processo. Perdão pelo incômodo. Obrigado!

Italo, boa tarde. Eu atualizei o fonte do ACBR e percebi que foi feito uma fusão das funções de leitura do xml para impressão. Isso é muito importante pra organizar o código. Porém percebi que a função LerNFSe_ABRASF_V2 que está sendo usado por Maringá, não está lendo o xml conforme necessário, acontecendo o problema que o Marcelo comentou logo a cima. A estrutura do XML da prefeitura não mudou isto é fato certo? Portanto se eu utlizasse o componente para fazer a reimpressão usando um XML que fora enviado antes da atualização, ele deveria ler os dados das tags e imprimir normalmente certo? Reparei que algumas verificações não estão passando e por conta disso não estão sendo impressas. as verificações estão acredito com o número do nó adiantados por exemplo: Leitor.rExtrai(3, 'ValoresNfse') antes era Leitor.rExtrai(2, 'ValoresNfse') Leitor.rExtrai(3, 'PrestadorServico') antes era Leitor.rExtrai(2, 'PrestadorServico') Outra coisa que encontrei interessante foi que a função : LerRPS_ABRASF_V2 está pegando dos nós corretos exmplo: (Leitor.rExtrai(2, 'ValoresServico') e (Leitor.rExtrai(2, 'ListaServicos') Será que estou fazendo algo de errado? Para imprimir a NFSe estou usando a mesma linha do exemplo: ACBrNFSe1.NotasFiscais.Imprimir; Segue abaixo o XML da NFSe para conferència. Preciso resolver isso o quanto antes ou precisarei voltar a versão. OBs: Abri novamente um tópico novo pois não consegui tirar a marcação de resolvido do topico, me desculpe se fiz errado. Obrigado! 1702-nfse - Cópia.xml

Italo, boa tarde. Eu atualizei o fonte do ACBR e percebi que foi feito uma fusão das funções de leitura do xml para impressão. Isso é muito importante pra organizar o código. Porém percebi que a função LerNFSe_ABRASF_V2 que está sendo usado por Maringá, não está lendo o xml conforme necessário, acontecendo o problema que o Marcelo comentou logo a cima. A estrutura do XML da prefeitura não mudou isto é fato certo? Portanto se eu utlizasse o componente para fazer a reimpressão usando um XML que fora enviado antes da atualização, ele deveria ler os dados das tags e imprimir normalmente certo? Reparei que algumas verificações não estão passando e por conta disso não estão sendo impressas. as verificações estão acredito com o número do nó adiantados por exemplo: Leitor.rExtrai(3, 'ValoresNfse') antes era Leitor.rExtrai(2, 'ValoresNfse') Leitor.rExtrai(3, 'PrestadorServico') antes era Leitor.rExtrai(2, 'PrestadorServico') Outra coisa que encontrei interessante foi que a função : LerRPS_ABRASF_V2 está pegando dos nós corretos exmplo: (Leitor.rExtrai(2, 'ValoresServico') e (Leitor.rExtrai(2, 'ListaServicos') Será que estou fazendo algo de errado? Para imprimir a NFSe estou usando a mesma linha do exemplo: ACBrNFSe1.NotasFiscais.Imprimir; Segue abaixo o XML da NFSe para conferència. Preciso resolver isso o quanto antes ou precisarei voltar a versão. Obrigado! 1702-nfse - Cópia.xml

Olá Italo, se puder subir essa alteração no fonte: unit pnfsNFSeR; procedure TNFSeR.NFSe_ProvedorMaringa; // incluido por Joel Takei 24/06/2013 NFSe.Status := StrToStatusRPS(ok, Leitor.rCampo(tcStr, 'Status')); // alterado por joel takei 24/07/2013 Obrigado!

Olá Vanessa, Somente com esse erro fica dificil de ajudar. Em que momento está ocorrendo o erro? Qual a unit ? na hora de abrir o projeto ou compilar o componente? Ou o problema está quando você compila o seu programa?

Na impressão pelo quickreport, está saindo 2 impressões da danfse, alguem teve esse problema e sabe como resolver? Uma coisa que percebi que a primeira impressão sai sem a descrição e a segunda sai com a descricao.

Olá Italo, obrigado. Mas tenho mais umas 2 ou 3 alterações no fonte que enviei ai para cima que acredito não estão atualizadas. Baixei a atualização outro dia e sumiu algumas alterações, por sorte fiz um backup e recuperei. Se puder dar uma olhada nos outros posts eu agradeço. Abraços

Saul Gabeloni Qual o seu problema ? Dá alguma mensagem? Essa correção que fiz ai corrige um erro no canelamento de Maringá. Não sei se o seu caso é o mesmo parceiro. abraços

Pessoal, acho que vou parar de mandar minhas correções para o fonte de Maringá, pois ninguém está atualizando o site, não tem como atualizar a minha maquina desta forma, pois fica tudo desatualizado. Infelizmente é uma pena , pois estou terminando a implementação do envio, impressão , cancelamento , consulta para Maringá.

Alteracao na unit unit pnfsNFSeG; funcao class function TNFSeG.Gera_DadosMsgCancelarNFSe(Prefixo4, NameSpaceDad, NumeroNFSe, // alterado por joel takei 05/07/2013 DFeUtil.SeSenao( AProvedor in[ pro4R, proisse] , '<' + Prefixo4 + 'CpfCnpj>' + '<' + Prefixo4 + 'Cnpj>' + Cnpj + '</' + Prefixo4 + 'Cnpj>' + '</' + Prefixo4 + 'CpfCnpj>', '<' + Prefixo4 + 'Cnpj>' + Cnpj + '</' + Prefixo4 + 'Cnpj>') + pnfsNFSeG.pas

Correcao da impressao da unit ACBrNFSeDANFSeQRRetrato; procedure procedure TfqrDANFSeQRRetrato.qrb_6_ISSQNBeforePrint(Sender: TQRCustomBand; // Alterado esta linha em 27/12/2012 Daniel Jr - Pois o ICMS não estava sendo dividido por 100) Ex 1,00 estava 100,00 // qrlValorISS.Caption := DFeUtil.FormatFloat(FNFSe.Servico.Valores.ValorIss / 100); // alterado por joel takei 04/07/2013 qrlValorISS.Caption := DFeUtil.FormatFloat(FNFSe.Servico.Valores.ValorIss); Por favor se alguem puder atualizar o fonte. Obrigado!

Segue arquivos para avaliação e compartilhar. OBs: Eu já havia feito algumas alterações deste arquivo, porém não devem ter sido acrescentados ao código e quando eu atualizei os fontes haviam sumido. Por favor acrescentem ao fonte para que não se percam novamente. pnfsGerarNfseResposta.pas pnfsConversao.pas pnfsNFSeR.pas

Bom dia Adilson. Obrigado pelo apoio, Então, quanto ao erro, eu já havia visto este poste que você me encaminhou mas agradeço sua atenção em me passa-lo. Eu fiz o passo a passo e estou utilizando a versao 5.02 e não sei por que ainda está ocorrendo os erros. Ontem fiquei madrugada a dentro fuçando e ai percebi que realmente aquelas propriedades que acusavam apareciam no componente do band porém não estavam no .pas Sabe o que eu fiz para resolver? Fui criando estas propriedades uma por uma.. se não me engano depois do erro Continuous apareceram mais uns 3 propriedades. mas consegui resolver e consegui até que em fim fazer a impressão. (Resolvido problema de Continuous). tipo assim: na unit QRCtrls; property XLColumn : integer read FXLColumn write SetXLColumn; property FullJustify : boolean read FFullJustify write SetFullJustify; Com relação aos fontes atrasados, talvez você esteja dizendo isso porque eu não atualizei antes de enviar para eles ne. Quando enviei fui informado por um companheiro que haviam atualizações, mas eu não podia fazer pois iria passar por cima do que havia feito, por isso enviei antes de atualizar. Agora estou com o fonte atualizado e passei as minhas modificações para ele. Vou enviar novamente com minhas alterações. Algumas alterações que fiz e que me recordo foram: -Correção do recebimento do xml de retorno da nfse para importar para o sistema, alguns dados não estavam sendo absorvidos. -Correção da leitura do xml da nfse para impressão. -Melhoria do layout da impressão . ( o .dfm não consegui anexar) . pnfsNFSeR.pas ACBrNFSeDANFSeQRRetrato.pas

Estou com problema no quickreport, alguém poderia me dar uma mão? Consegui atualizar para o quickreport 5. alguma coisa, mas ainda está dando o erro da propriedade QRNFSe.Page.Continuous Property Continuous não existe. O que será que está acontecendo? Já excluí todas as dll que tinham referência ao quickreport anterior nativo do delphi 7. Joguei as dll do quickreport novo no system32 , system64, bin e projects blz do delphi e nada. Compilei tudo novamente os projetos ACBR. Alguma outra coisa que eu poderia fazer ou que esqueci de fazer? Agradeço a ajuda, pois estou terminando o recebimento dos dados e leitura do xml e impressão da nfse para Maringá e isto está só me atrasando, quero terminar logo para soltar e compartilhar mas está difícil pessoal. Meus fontes do post anterior também não tive nem retorno dos responsáveis pelo projeto.

Boa tarde pessoal, estou mexendo a parte do tratamento do retorno do envio da rps e a leitura do xml para impressão do mesmo. Gostaria que o pessoal do projeto desse uma verificada e disponibilizassem para o pessoal. pnfsNFSeW.pas ACBrProvedorISSe.pas ACBrNFSeWebServices.pas pnfsGerarNfseResposta.pas ACBrNFSeDANFSeQRRetrato.pas pnfsNFSeR.pas

Bom dia senhores, Fiz as correções do provedor de maringá e gostaria que os responsáveis pelo projeto avaliassem meus códigos e colocassem no ar para o pessoal poder baixar. Estou enviando em anexo os .pas que alterei. Ainda estou terminando a parte do envio... Uma pequena observação: utilizem a função ACBrNFSe1.EnviarSincrono(vnumlote); e não a Enviar apenas. Abraços ACBrProvedorISSe.pas pnfsNFSeW.pas pnfsGerarNfseResposta.pas ACBrNFSeWebServices.pas

Bom dia senhores, Depois de nosso colega Claudemir ter descoberto o erro do certificado consegui prosseguir com os testes e descobri algumas coisas interessantes que gostaria de compartilhar: O Servidor de Maringá está retornando um erro dizendo que a função EnviaLoteRps não está disponível, utilize a função EnviaLoteRpsSincrono. Utilizando a função sincrono, parece que não está retornando nenhuma mensagem, mas está. Se você debugar o fonte, verá que o componente não está conseguindo tratar a mensagem e mostrar na tela, ainda estou tentando ver o motivo. O erro retornado se refere a estrutura do xml de envio. Se corrigir a estrutura do xml com certeza o pacote será entregue. Já havia simulado esses casos enviando o xml gerado pelo componente pelo SOAPUI. Havia dado o mesmo erro, e ao corrigir a estrutura conforme está no erro, o xml foi aceito, e ai retornaram erros de dados. Estou alterando a estrutura do xml nesta função.. vamos ver se vai funcionar. procedure TNFSeW.GerarServico; var i: integer; begin case FProvedor of profintelISS: begin Gerador.wGrupoNFSe('ListaServicos'); for i := 0 to NFSe.Servico.ItemServico.Count - 1 do ..................... else begin Gerador.wGrupoNFSe('Servico'); Gerador.wGrupoNFSe('Valores'); Gerador.wCampoNFSe(tcDe2, '#13', 'ValorServicos', 01, 15, 1, NFSe.Servico.Valores.ValorServicos, ''); // Alterado por Italo em 13/12/2012 if (FProvedor = proGinfes) then begin Gerador.wCampoNFSe(tcDe2, '#14', 'ValorDeducoes', 01, 15, 1, NFSe.Servico.Valores.ValorDeducoes, ''); Gerador.wCampoNFSe(tcDe2, '#15', 'ValorPis ', 01, 15, 1, NFSe.Servico.Valores.ValorPis, ''); Gerador.wCampoNFSe(tcDe2, '#16', 'ValorCofins ', 01, 15, 1, NFSe.Servico.Valores.ValorCofins, ''); Gerador.wCampoNFSe(tcDe2, '#17', 'ValorInss ', 01, 15, 1, NFSe.Servico.Valores.ValorInss, ''); Gerador.wCampoNFSe(tcDe2, '#18', 'ValorIr ', 01, 15, 1, NFSe.Servico.Valores.ValorIr, ''); Gerador.wCampoNFSe(tcDe2, '#19', 'ValorCsll ', 01, 15, 1, NFSe.Servico.Valores.ValorCsll, ''); end else begin Gerador.wCampoNFSe(tcDe2, '#14', 'ValorDeducoes', 01, 15, 0, NFSe.Servico.Valores.ValorDeducoes, ''); Gerador.wCampoNFSe(tcDe2, '#15', 'ValorPis ', 01, 15, 0, NFSe.Servico.Valores.ValorPis, ''); Gerador.wCampoNFSe(tcDe2, '#16', 'ValorCofins ', 01, 15, 0, NFSe.Servico.Valores.ValorCofins, ''); Gerador.wCampoNFSe(tcDe2, '#17', 'ValorInss ', 01, 15, 0, NFSe.Servico.Valores.ValorInss, ''); Gerador.wCampoNFSe(tcDe2, '#18', 'ValorIr ', 01, 15, 0, NFSe.Servico.Valores.ValorIr, ''); Gerador.wCampoNFSe(tcDe2, '#19', 'ValorCsll ', 01, 15, 0, NFSe.Servico.Valores.ValorCsll, '');

Claro, toda ajuda é bem vinda, quem sabe conseguimos resolver este detalhe e depois partimos para deixar a estrutura conforme layout de Maringa. Meu skype joelmga Já estou te adicionando Sandro.

Pois é, ele diz que funciona, mas então... Ele não conseguiu me explicar o problema do certificado que não é encontrado e está instalado na máquina.

Olá Sandro, Pois é, o de maringá não está terminado. Você também viu o erro do certificado não encontrado ne.. Se não me engano, no forum, já lí em algum lugar ou o próprio Italo me disse, que alguns provedores não funcionam a função gerarnfse que está no botão para envio de um rps apenas. tendo que ser utilizado o botão de criar e enviar lote.

Pessoal, não tem ninguém do ACBR trabalhando nos fontes da Prefeitura de Maringá. Apenas nós mesmos de Maringá. O pessoal a maioria é de fora e com certeza todos estão ocupados com suas cidades. O fonte que está no site está bem desatualizado, pois deve ter sido cópia de outro provedor apenas. a estrutura do xml também não está de acordo com o wsdl, Já corrigi a estrutura do enviar EnviarLoteRps , mas devido a um erro que está ocorrendo de certificado não encontrado, não estou conseguindo prosseguir. Mas se conseguisse eliminar este erro , seria fácil deixar o restante do fonte pronto. Vocês estão utilizando CAPICOM ou OPEN SSL? Eu utilizo CAPICOM e estou com o problema no certificado. Se alguém entender da parte da validação do certificado na conexão com o webservice, por favor preciso de sua ajuda. Resolvendo isso posso terminar de acertar os xml.

Olá pessoal, sou de Maringá-PR, A implementação para a NFSe de Maringá parece não estar funcionando ainda, já a algum tempinho estou tentando faze la funcionar, mas o erro de É NECESSÁRIO UM CERTIFICADO PARA CONCLUIR A AUTENTICAÇÃO DO CLIENTE que está dando está dificultando o prosseguimento da implementação. Já existe um post a respeito portanto não vou entram em detalhes. Gostaria de reunir por aqui uma força tarefa de desenvolvedores de Maringá e região que queiram contribuir para terminarmos a implementação da NFSe de Maringá. Tenho certeza que será mais fácil juntando conhecimentos e dividindo as tarefas. Quem estiver disposto a nos ajudar ou também sentindo a necessidade desta implementação, por favor poste ou também entre em contato. Joel Analista de Sistemas [email protected] fone (44) 9960-3399

Ainda estou com o mesmo problema de nosso companheiro Danilo. Como podemos saber se o certificado é padrao icp brasil? Mas acredito que o problema não seja o certificado, sendo que meu cliente já o utiliza normalmente para enviar suas nfse por outro aplicativo, assim como consigo acessar o endereço do webservice de envio que solicita o certificado instalado na máquina para poder acessar. A validação do certificado é antes do envio para o web service certo? Qual dos arquivos gerados em arquivo eu preciso conferir se estão assinados corretamente? -xxx1.xml -xxx2.xml 0001-env-lot.xml 0001-env-lot-c.xml 3728UNICA-Rps.xml 3728UNICA-Rps2.xml ?