Joel

O seu é porque você não tem instalado um componente ai.. esse acbrnfedanferlpkg ta errado como vc escreveu ne.. deve ser fort, fast.. algo assim.. componente para relatorio. ou você desmarca essa opção de danfe na instalaçao ou você instala o componente antes de instalar o acbr.

Somente um mesmo a pasta de instaçao do jeito que veio do svn. Deve ser algum erro na instalação do delphi mesmo ne.. ou algo com o sistema operacional.

Bom dia, pois é.. também sempre fiz isso para instalação. Mas com esse erro não está funcionando rodar apenas o .bat infelizmente. Mas fiz a instalação manual pois não posso ficar com os projetos parados. Será que não é alguma incompatibilidade do delhi7 com o Windows 7? Li muitos posts de pessoas reclamando. Já fiz de tudo também. Coloquei em modo de compatibilidade para windows xp.. executar como administrador.. troquei até o linker algo assim por um mais atual ..e por ai vai.. mas nada resolveu o erro do instalador. Algo de diferente que aconteceu com o deplhi é dar constantemente erro do linker, tenho que fechar o delphi e abrir novamente quando isso acontece. Assim que tiver um tempo vou dar mais uma fuçada. Muito obrigado pessoal!

Segue anexo a imagem do erro e o log da instação. Se alguem puder ajudar. Obrigado! log_Delphi_7.txt

Boa tarde pessoal, estou com o mesmo problema do nosso parceiro acima, e já fiz tudo que ele também fez. Um detalhe, não tenho dois delphis instalado. apenas o delphi 7 , windows 7 64 bits. Desde já agradeço a vossa atenção!

Boa noite italo, Conforme o armando explicou acima: Linha 1323 do pnfsNFSeR.pas Favor retirar esta linha 1323 NFSe.Servico.Valores.ValorIssRetido := Leitor.rCampo(tcDe2, 'ValorIssRetido'); Pois ela já está sendo tratada acima dela para que não passe por essa linha caso o provedor seja proISSe. Favor fazer a modificação no fonte. Desde já agradeço a sua atenção! abraços!

Boa tarde Italo, encontrei uma incompatibilidade na impressão da DANFse no caso de retenção do iss. Vou mostrar o código porém estarei anexando a unit ok. Maringá não possui a tag valorissRetido então precisei tratar isso logo a cima deste código, mas alguém colocou código a baixo matando meu código. Por gentileza poderia atualizar o fonte. Muito obrigado! // Joel Takei 11/03/2015 a linha abaixo já está ai em cima, favor não colocar novamente. //NFSe.Servico.Valores.ValorIssRetido := Leitor.rCampo(tcDe2, 'ValorIssRetido'); pnfsNFSeR.pas

No Caso de Maringá-PR , este tratamento não resolveria, apesar de estarmos falando de arquivos diferentes, mas é o mesmo caso. O provedor de Maringá não tem este campo Tipo. E por isso dava erro ao fazer leitura do XML. Abs

Acredito que não tenha a ver, pois a unit é outra Julio. Não encontrei a marcação sua de alteração do código. Se puder coloque uma identificação com o seu nome sempre que fazer um tratamento. A unit que fiz a alteração foi esta: pnfsGerarNfseResposta.pas

Boa tarde Italo, Eu enviei em anexo, como você já havia me pedido. Só coloquei a parte que alterei para explicar o que estava acontecendo. Mas sem problemas, da próxima vez não vou postar o fonte. Abraços!

pnfsGerarNfseResposta.pas Verifiquei a falta de um tratamento na leitura do retorno do RPS, não sei, acho que a prefeitura de MARINGÁ volta e meia está mudando as tags desse retorno, pois não pode ser eu havia corrigido isso a um tempo atrás. É na unit pnfsGerarNfseResposta; Linha: 735 if FProvedor <> proISSe then // Alterado por Joel Takei Maringá-PR 26/02/2015 ListaNfse.FMsgRetorno.FIdentificacaoRps.Tipo := Leitor.rCampo(tcStr, 'Tipo'); Linha: 745 Percebi que um parceiro fez uma modificação para MG e o outro em seguida para BA, porém ele não tratou e está afetando o provedor ISSE e talvez demais provedores. Coloquei um tratamento para o mesmo, para não afetar o fonte de nosso parceiro que talvez precise de um tratamento pois está um pouco redundante, mas achei melhor não mexer. Penso que sempre que precisarem colocar um tratamento que por favor coloquem um filtro de provedor para não afetar os demais. Grato pela compreensão! if FProvedor <> proISSe then // Alterado por Joel Takei Maringá-PR 26/02/2015 begin // Jonatan - Nova Lima MG i := 0; while Leitor.rExtrai(2, 'ListaMensagemRetorno', '', i + 1) <> '' do begin ListaNfse.FMsgRetorno.Add; ListaNfse.FMsgRetorno.FIdentificacaoRps.Numero := Leitor.rCampo(tcStr, 'Numero'); ListaNfse.FMsgRetorno.FIdentificacaoRps.Serie := Leitor.rCampo(tcStr, 'Serie'); ListaNfse.FMsgRetorno.FIdentificacaoRps.Tipo := Leitor.rCampo(tcStr, 'Tipo'); ListaNfse.FMsgRetorno.FCodigo := Leitor.rCampo(tcStr, 'Codigo'); ListaNfse.FMsgRetorno.FMensagem := Leitor.rCampo(tcStr, 'Mensagem'); ListaNfse.FMsgRetorno.FCorrecao := Leitor.rCampo(tcStr, 'Correcao'); inc(i); end; // Andeson de Jesus - Luiz Eduardo Magalhães - BA i := 0; while Leitor.rExtrai(3, 'Erro', '', i + 1) <> '' do begin ListaNfse.FMsgRetorno.Add; ListaNfse.FMsgRetorno.FCodigo := Leitor.rCampo(tcStr, 'ErroID'); ListaNfse.FMsgRetorno.FMensagem := Leitor.rCampo(tcStr, 'ErroMensagem'); ListaNfse.FMsgRetorno.FCorrecao := Leitor.rCampo(tcStr, 'ErroSolucao'); inc(i); end; end;

Bom dia pessoal, estou tendo o mesmo problema do nosso amigo Toninho, e em minha rede assim como em meus clientes não existem 2 modens. Será que alguém também está tendo este problema?

Olá Marcelo, não utilizo também esta função, pois acredito que a própria função de envio deva estar chamando esta função. abs

Boa tarde Italo, confirmei com a Prefeitura, pois não existe a tag valorissretido no provedor isse de Maringá, sendo assim disseram que pode ser utilizado o valoriss que consta no xml para mostrar na impressão, pois o mesmo não estava sendo visualizado. Fiz uma modificação nas funções de leitura de XML, por favor se puder validar para mim. Desde já agradeço a sua atenção! Abraços! Na função function TNFSeR.LerRPS_ABRASF_V2: Boolean; if (FProvedor = proISSe) then // Joel Takei 10/12/2014 begin if StrToSituacaoTributaria(ok, Leitor.rCampo(tcStr, 'IssRetido')) = stRetencao then NFSe.Servico.Valores.ValorIssRetido := Leitor.rCampo(tcDe2, 'ValorIss') else NFSe.Servico.Valores.ValorIssRetido := 0; end; e na função : function TNFSeR.LerNFSe_ABRASF_V2: Boolean; if (FProvedor = proISSe) then // Joel Takei 10/12/2014 begin if StrToSituacaoTributaria(ok, Leitor.rCampo(tcStr, 'IssRetido')) = stRetencao then NFSe.Servico.Valores.ValorIssRetido := Leitor.rCampo(tcDe2, 'ValorIss') else NFSe.Servico.Valores.ValorIssRetido := 0; end else NFSe.Servico.Valores.ValorIssRetido := Leitor.rCampo(tcDe2, 'ValorIssRetido'); pnfsNFSeR.pas

Boa tarde Italo, tudo joia? Não estava enviando o ValorIssRetido para o xml mesmo que fosse com iss retido. No arquivo pnfsNFSeW.pas fiz uma modificação na função procedure TNFSeW.GerarServicoValores_V2; Acrescentando a linha abaixo: if (FProvedor in [proISSe]) // Joel Takei 08/12/2014 then Gerador.wCampoNFSe(tcDe2, '#22', 'ValorIssRetido', 01, 15, 0, NFSe.Servico.Valores.ValorIssRetido, ''); Por favor se puder verificar e se estiver ok atualizar o svn. Obrigado! A tempo Ainda não ficou no lugar certo, verifiquei o XSD da prefeitura e realmente não existe este campo, estou vendo para colocar apenas na impressão.. pois o cliente está questionando que tem o campo porém não mostra o valor... Estarei analisando a impressão do mesmo. Por favor desconsidere este post , desculpe! pnfsNFSeW.pas

Boa tarde pessoal, também estou com o mesmo problema do Rogério e não consigo descobrir o que acontece. Um cliente tem 2 computadores, com windows 7 service pack 1. Em um funciona normalmente, mas no outro não. Já formatamos 2 vezes pois antes estava sem o service pack 1 , foi instalado, e o IE era o 8 agora é o 11, mas nada de funcionar! Dá o erro de acess vionation na dll wininet.dll Se alguem souber de algum detalhe que eu tenha esquecido por favor agradeço de coração. abs

André, se você ler este tópico um pouco mais acima do seu post, vai ver que o Alessandro estava com o mesmo problema e já discutimos sobre isso. Com certeza é alguma configuração do sistema operacional ou algum programa de bloqueio, anti-virus, anti-spam instalado que pode ter mudado as configurações. Não sei se quando você vai no IE e olha o certificado digital ele está na aba outros e não na aba pessoal, no meu caso estava com este sintoma. abs

Como te falei, pode ter alterações em configurações de segurança.. ou fica algum rastro pelo sistema operacional, como não sou expert nessa área eu já não fico perdendo muito tempo rs.. format c:

kkkkk, imaginei mesmo. só não sei se vai conseguir tirar, e outra coisa, não sei se ele muda alguma configuração padrão do sistema ou do IE e vá funcionar apenas retirando ele... boa sorte ! abs

Erro Igualzinho o que estava acontecendo com o computador do meu cliente. Diz meu parceiro agora que não chegou a precisar formatar, um técnico fez uma limpeza lá que até eu quero ligar para ele para saber o que ele fez, e pronto.. funcionou. Ou seja.. alguma configuração.. serviço.. da parte de segurança.

Alessandro, com certeza a prefeitura não vai ter nenhuma resposta pois o erro está do lado cliente e não do lado servidor. Com relação a isso, como te passei você deve utilizar a função: ACBrNFSe1.EnviarSincrono(numero do lote); para enviar. Com relação ao erro: O servidor retornou uma resposta inválida ou não reconhecida - URL:https://isseteste.ma...a.pr.gov.br/ws/ -SOAPAction:https://isseteste.maringa.pr.gov.br/ws/#EnviarLoteRpsSincrono Com certeza é alguma configuração de segurança da máquina que está utilizando. Você disse que a máquina é nova e você formatou faz pouco tempo certo? Mas já instalou algum programa? anti-virus? anti- sei lá o que..ou até mesmo a segurança de algum banco? Acredito que ela não esteja apenas com o windows instalada...como te passei a minha experiência com este erro, formatei a máquina e deixei sem nada.. funcionou. abs

Bom dia Alessandro, eu envio desta forma : ACBrNFSe1.EnviarSincrono(numero do lote); por dentro o componte já faz a conversão para o nome da função do webservices EnviarLoteRpsSincronoEnvio. Com relação ao erro que está relatando, também já vi este erro, vou verificar com meu parceiro qual foi o problema que agora não estou lembrado. Em um cliente, que tivemos este erro, antes estava com um XP funcionando certinho com o certificado. Tivemos que trocar a máquina pois era muito antiga, então colocaram uma com windows 7, não era nova então veio com alguns programas de segurança já instalados.. e também o IE estva muito desatualizado, o certificado não ia para o pessoal de forma alguma. dava este mesmo erro que você teve. Não conseguimos atualizar o IE, por fim formatamos e conseguimos configurar e resolver.

Olá Italo tudo joia? Não sei se alguém de Maringá notou, mas detectei um problema ao reimprimir uma NFS-e. O campo COMPETÊNCIA vem no formato STRING e para o provedor proISSe estava sendo tratado como Date na função abaixo: Segue em anexo o arquivo. Muito obrigado! if NFSe.Competencia <> '' then begin case FProvedor of proPVH, proMitra, proGovDigital, proISSDigital, // proISSe, // Joel Takei 01/10/2014 proSisPMJP, proSystemPro: Gerador.wCampoNFSe(tcDat, '#4', 'Competencia', 10, 10, 1, NFSe.Competencia, DSC_DEMI); proGoiania, proTecnos: Gerador.wCampoNFSe(tcDatHor, '#4', 'Competencia', 19, 19, 0, NFSe.Competencia, DSC_DEMI); else Gerador.wCampoNFSe(tcStr, '#4', 'Competencia', 19, 19, 1, NFSe.Competencia, DSC_DEMI); pnfsNFSeW.pas

Bom dia Italo, por favor desconsidere este meu fonte que enviei com a linha das OutrasInformacoes. vou analisar melhor. abs

Italo, boa noite, tive que fazer uma correção em uma linha da unit pnfsNFSeW; linha 866. Acrescentei o provedor de maringá também para que enviasse no xml as outras informacoes. if FProvedor in [proTecnos, proISSe] // joel takei 25/04/2014 then Gerador.wCampoNFSe(tcStr, '#9', 'OutrasInformacoes', 00, 255, 0, NFSe.OutrasInformacoes); abs pnfsNFSeW.pas