NeoSquare

Olá. Procurei no API do Delphi e não achei o ANSI dentro do TEncoding. Alterei para ASCII para funcionar. Mesmo assim gostaria que fosse passado um acerto para que fique tudo de acordo com o trunk. Fonte da pesquisa: http://docwiki.embarcadero.com/CodeExamples/XE2/en/TEncoding_%28Delphi%29

Para resolver o erro do TEncoding, basta jogaro SysUtils para o Uses da Interface. Está agora ocorrendo erro na linha 1519 de ACBrNFSeUtil.pas: TEncoding.ANSI. O Delphi não encontra o ANSI.

Removendo todas as referências à variável TEncoding, o erro desaparece. Essa alteração é muito recente, pois quando atualizei meu ACBr ontem ela ainda não existia. Juliomar, isso é algo que falta no ACBr, ou no meu projeto? EDITADO: A diretiva de compilação existe no ACBr: {$IFDEF DELPHI2009_UP}

O erro ocorre na linha 101 do ACBRNFSeUtil, pois ele não encontra o tipo TEncoding. De qualquer forma, o log está em anexo. EDITADO: Uso o Delphi 2010. log_Delphi_2010.txt

Olá. Ao utilizar o instalador do ACBr, está ocorrendo erro ao compilar o pacote de NFSe. Estou instalando conforme mostra a imagem em anexo. Em outros computadores, a instalação ocorreu sem erros. Grato.

Olá. Só para confirmar os cenários de testes aqui: O contexto de produção do provedor ábaco precisa ser alterado de "e-nfs_cachoeiro" para "cachoeiro"; A mensagem de erro relacionada ao envio com a inscrição municipal contém um erro de português;

O ERRO DESCONHECIDO era uma falha interna da minha rede.

Olá. Eu estava passando errado o endereço, já que com o contexto "cachoeiro" funcionou o envio. Mas o cancelamento está apresentando ERRO DESCONHECIDO.

Olá. Estou com problemas para enviar uma Nota Fiscal eletrônica de serviços. Aparentemente está tudo configurado corretamente, mas ao tentar mandar, ele me retorna o seguinte erro: Atenção... FOUND (302) - 'HTTPS://WWW.E-NFS.COM.BR/E-NFS_CACHOEIRO/SERVLET/ARECEPCIONARLOTERPS?WSDL' Entrei em contato com o suporte da Ábaco e eles me informaram que o contexto correto é "cachoeiro" e não "e-nfs_cachoeiro", porém, ao tentar com o contexto correto, me é retornado o mesmo erro. Agradeço desde já.

Olá. Ao enviar uma NFSe com o cliente sendo a prefeitura da minha cidade, eu tenho que informar o ValorISSRetido, só que o valor de ISS é zero pois o produto não possui imposto. Quando eu transmito a NFSe, ele me retorna erro: 173 - CAMPO VALORISSRETIDO INFORMADO INCORRETAMENTERPS: 173 - CAMPO VALORISSRETIDO INFORMADO INCORRETAMENTE / Segue em anexo o XML gerado. 000000173-env-lot.xml

Olá. Ao enviar uma NFSe com o cliente sendo a prefeitura da minha cidade, eu tenho que informar o ValorISSRetido, só que o valor de ISS é zero pois o produto não possui imposto. Quando eu transmito a NFSe, ele me retorna erro: 173 - CAMPO VALORISSRETIDO INFORMADO INCORRETAMENTERPS: 173 - CAMPO VALORISSRETIDO INFORMADO INCORRETAMENTE / Segue em anexo o XML gerado.

Olá. Deixa, já encontrei.

Olá. Mesmo depois de debugar a funcionalidade de geração e envio do XML de NFSe, não consigo encontrar onde a funcionalidade gera de fato o arquivo para o envio. Alguém poderia me dizer onde fica essa parte da funcionalidade? Uso provedor Ábaco.

Italo, A NFSe foi cancelada aqui com sucesso aqui. Obrigado pela ajuda e, principalmente, pela paciência.

Italo, Está ocorrendo a mesma situação que ocorreu com o medreis. GOstaria de saber se há algum lugar onde o ACBr guarda o código da NFSe, para que eu possa buscar o arquivo correto diretamente sem a necessidade de um OpenDialog. Grato.

Olá. Italo, entendi, mas o fato é que tanto para um quanto para o outro está ocorrendo este erro. Eu fiz testes com todos os xmls gerados pelo registro. O erro continua. Fiz testes com o xml que segue em anexo também. 58-nfse.xml

Olá. Ítalo, o erro continua, mas eu percebi que estava tentando cancelar a NFSe com o XML errado, pois depois das alterações que você mandou, os campos CNPJ, IM e CodigoMunicipio estavam vindo em branco. O xml correto segue em anexo. Com este arquivo, os campos supracitados são preenchidos corretamente, mas o erro "Erro Não Especificado" continua. Grato! DB12E17E2A3DD606D28D9E0D431029C9-lista-nfse.xml

Olá. Utilizo o servidor Ábaco (Cachoeiro de Itapemirim, ES) e, ao tentar cancelar uma NFSe gerada dentro do meu sistema, exibe a mensagem de Erro não especificado. O erro ocorre na linha 1183 da unit ACBrNFSeUtil.pas. signedKey := xmldsig.sign(dsigKey, $00000002); O XML que estou carregando segue em anexo. Achei estranho que nesse trecho de código (linhas 1536 a 1545 de ACBrNFSeWebServices.pas): case FProvedor of proSaatri: URISig := 'Cancelamento_' + TNFSeCancelarNfse(Self).FCnpj; proIssIntel, proISSNet: begin URISig := ''; URIRef := 'http://www.w3.org/TR/2000/REC-xhtml1-20000126/'; end; else URISig := 'pedidoCancelamento_' + TNFSeCancelarNfse(Self).FCnpj + TNFSeCancelarNfse(Self).FIM + TNFSeCancelarNfse(Self).FNumeroRPS; end; As strings de CNPJ, IM e Número RPS estão vazias (não foi feita qualquer alteração no ACBr. Agradeço desde já. 000000099-env-lot.xml

Marcio, olá. Ainda que no modo de homologação, é necessário você ter um eToken, além de ter um cadastro na prefeitura (aqui em Cachoeiro de Itapemirim/ES é assim). Há uma tabela de código de tributação disponível no portal da Ábaco, dentro do seu cadastro, foi lá que peguei o meu.

Italo. Consegui transmitir um Lote RPS em modo de homologação. Obrigado! Marcio, vou começar a fazer testes no módulo de produção em breve.

Bom dia Italo. Muito obrigada pela ajuda! Só peço que você me tire duas dúvidas: Essa função: FDadosMsg := TNFSeG.Gera_DadosMsgGerarNFSe(Prefixo3, Prefixo4, FConfiguracoes.WebServices.Identificador, NameSpaceDad, VersaoDados, FVersaoXML, IntToStr(TNFSeGerarNFSe(Self).NumeroRps), SomenteNumeros(TNFSeGerarNFSe(Self).FNotasFiscais.Items[0].NFSe.Prestador.Cnpj), TNFSeGerarNFSe(Self).FNotasFiscais.Items[0].NFSe.Prestador.InscricaoMunicipal, IntToStr(TNFSeGerarNFSe(Self).FNotasFiscais.Count), vNotas, FTagI, FTagF, FProvedor); Está me retornando '', pois, dentro da função, na última linha, há esse comando: if AProvedor in [proNenhum, proAbaco, proBetha, proBetim, proBHIss, proDigifred, proEquiplano, proFiorilli, proFIssLex, proGinfes, proGovBR, proIssCuritiba, proIssIntel, proIssNet, proNatal, proProdemge, proPublica, proRecife, proRJ, proSimplIss, proThema, proTiplan, proCoplan, proIssDSF, proAgili] then Result := ''; Mas ao sair da função, para que ele assine o arquivo, ele verifica se essa string está ou não vazia, e caso esteja, ele me retorna: if FDadosMsg <> '' then begin if FConfiguracoes.WebServices.Salvar then FConfiguracoes.Geral.Save('-xxx1.xml', FDadosMsg); if not (FProvedor = profintelISS) then FDadosMsg := TNFSeGerarNFSe(Self).FNotasFiscais.AssinarLoteRps(IntToStr(TNFSeGerarNFSe(Self).NumeroRps), FDadosMSg); if FConfiguracoes.WebServices.Salvar then FConfiguracoes.Geral.Save('-xxx2.xml', FDadosMsg); if FProvedorClass.GetValidarLote then begin if not(NotaUtil.Valida(FDadosMsg, FMsg, FConfiguracoes.Geral.PathSchemas, FConfiguracoes.WebServices.URL, FConfiguracoes.WebServices.ServicoEnviar, FConfiguracoes.WebServices.Prefixo4)) then raise Exception.Create('Falha na validação do Lote ' + IntToStr(TNFSeGerarNFSe(Self).NumeroRps) + sLineBreak + FMsg); end; end else raise Exception.Create('A funcionalidade Gerar NFSe não esta disponivel para o provedor: ' + FxProvedor); Então, eu devo remover o provedor Ábaco do último comando, ou devo alterar o if para que, caso seja um desses provedores, ele passe? A outra dúvida: O Atributo AXML está sendo preenchido com a Signature, mas quando chega nessa parte: AXML := AXML + '</'+ APrefixo3 + EnviarLoteRps + '>'; O XML assim fica errado (fiz o seguinte teste: Gravei a variável em um arquivo .xml para verificar a estrutura, e quando tento abrí-lo, ele dá erro dizendo que a estrutura está errada). Novamente para testar, fiz a seguinte alteração: If AProvedor <> proAbaco Then Begin AXML := AXML + '</'+ APrefixo3 + EnviarLoteRps + '>'; End; Com isso a estrutura do XML fica correta, mas quando chego aqui: if ALote then begin if (URI <> '') and (AProvedor = proIssDSF) then xmldsig.signature := xmldoc.selectSingleNode('.//ns1:'+ EnviarLoteRps + '/ds:Signature') else if (URI <> '') and not (AProvedor in [proRecife, proRJ, proIssCuritiba]) then xmldsig.signature := xmldoc.selectSingleNode('.//ds:Signature[@' + Identificador + '="AssLote_' + URI + '"]') else begin xmldsig.signature := xmldoc.selectSingleNode('.//ds1:' + EnviarLoteRps + '/ds:Signature'); end; end else xmldsig.signature := xmldoc.selectSingleNode('.//ds:Signature'); Ele me retorna o erro: REFERENCE TO UNDECLARED NAMESPACE PREFIX: 'DS1' Italo, peço até desculpas por tornar e retornar a perguntar, mas é que realmente estou tendo dificuladades com esse módulo.

Olá. Italo, na verdade, a alteração que você faz neste trecho: if (URI = '') or (AProvedor in [proRecife, proRJ, proAbaco, proIssDSF, proIssCuritiba]) then AID := '>' else AID := ' ' + Identificador + '="AssLote_' + URI + '">'; Eu também tentei. Já essa eu não entendi muito bem: if AProvedor = proAbaco then URI := ''; De qualquer forma, agora ele está me retornando este erro: REFERENCE TO UNDECLARED NAMESPACE PREFIX: 'DS1' Obrigado pela ajuda!

Olá. Italo, caso precise de qualquer informação para realizar a verificação, por favor me peça que eu encaminho o que eu tiver. Novamente, obrigado.

Olá. Para acrescentar, a variável AXML que carrega o xmldoc está assim: '<Signature xmlns="http://www.w3.org/2000/09/xmldsig#"><SignedInfo><CanonicalizationMethod Algorithm="http://www.w3.org/TR/2001/REC-xml-c14n-20010315" /><SignatureMethod Algorithm="http://www.w3.org/2000/09/xmldsig#rsa-sha1" /><Reference URI="#66"><Transforms><Transform Algorithm="http://www.w3.org/2000/09/xmldsig#enveloped-signature" /><Transform Algorithm="http://www.w3.org/TR/2001/REC-xml-c14n-20010315" /></Transforms><DigestMethod Algorithm="http://www.w3.org/2000/09/xmldsig#sha1" /><DigestValue></DigestValue></Reference></SignedInfo><SignatureValue></SignatureValue><KeyInfo><X509Data><X509Certificate></X509Certificate></X509Data></KeyInfo></Signature>' Mas ao rodar a linha: if ALote then begin if (URI <> '') and (AProvedor = proIssDSF) then xmldsig.signature := xmldoc.selectSingleNode('.//ns1:'+ EnviarLoteRps + '/ds:Signature') else if (URI <> '') and (AProvedor <> proRecife) and (AProvedor <> proRJ) then xmldsig.signature := xmldoc.selectSingleNode('.//ds:Signature[@' + Identificador + '="AssLote_' + URI + '"]') else begin xmldsig.signature := xmldoc.selectSingleNode('.//ds1:' + EnviarLoteRps + '/ds:Signature'); end; end else xmldsig.signature := xmldoc.selectSingleNode('.//ds:Signature'); O xmlsignature fica nulo, dando erro, obviamente, aqui: if (xmldsig.signature = nil) then raise Exception.Create('É preciso carregar o template antes de assinar.'); Grato!

Obrigado pela resposta, Italo! Eu passo o caminho da pasta de schemas assim: ACBrNFSe1.Configuracoes.Geral.PathSchemas := poPetra.PathServidorDataSnap + 'NFSe\Schemas\'; E o código do município assim: ACBrNFSe1.Configuracoes.WebServices.CodigoMunicipio := StrToIntDef(poPetra.Empresa.NumeroCidade, 0); E acontece o mesmo problema. Meu vAssinada está assim: '<Rps xmlns="http://www.e-nfs.com.br"> <InfRps id="rps66UNICA"> <IdentificacaoRps> <Numero>66</Numero> <Serie>UNICA</Serie> <Tipo>1</Tipo></IdentificacaoRps> <DataEmissao>2013-08-06T00:00:00</DataEmissao> <NaturezaOperacao>1</NaturezaOperacao> <RegimeEspecialTributacao>1</RegimeEspecialTributacao> <OptanteSimplesNacional>1</OptanteSimplesNacional> <IncentivadorCultural>2</IncentivadorCultural> <Status>1</Status> <Servico> <Valores> <ValorServicos>15.40</ValorServicos> <IssRetido>2</IssRetido> <ValorIss>0.77</ValorIss> <BaseCalculo>15.40</BaseCalculo> <Aliquota>0.0500</Aliquota> <ValorLiquidoNfse>15.40</ValorLiquidoNfse> </Valores> <ItemListaServico>101</ItemListaServico> <CodigoCnae>6201500</CodigoCnae> <Discriminacao>PRODUTO SERVICO DESCRICAO MAXIMA A SERAA</Discriminacao> <CodigoMunicipio>3201209</CodigoMunicipio> </Servico> <Prestador> <Cnpj>00000000000000</Cnpj> <InscricaoMunicipal>15195</InscricaoMunicipal> </Prestador> <Tomador> <IdentificacaoTomador> <CpfCnpj> <Cpf/> </CpfCnpj> </IdentificacaoTomador> <RazaoSocial>MARIA ALVEZ ESPACO MAXIMO PARA VERIFICAR</RazaoSocial> <Endereco> <Endereco>AV JONES DOS SANTOS NEVES TESTANDO CAMPO</Endereco> <Numero>SN</Numero> <Bairro>KM 90 TESTANDO CAMPO PARA SERA</Bairro> <CodigoMunicipio>3201209</CodigoMunicipio> <Uf>ES</Uf> <Cep>29300000</Cep> </Endereco> <Contato> <Telefone>XXXXXXXXXXX</Telefone> <Email>[email protected]</Email> </Contato> </Tomador> </InfRps> </Rps>' Novamente, obrigado pela ajuda!