Daniel Moroni

Boa tarde Junior, esse é o único arquivo que esta sendo gerado quando chamo a função SubstituirNFSe. Att. Daniel

Boa tarde Junior, segue arquivo xml conforme solicitado, desde já muito obrigado Att. Daniel arquivo_gerado.xml

Bom dia Jurisato Junior, conforme sugerido atualize novamente o acbr e teste, a mensagem de erro mudo novamente agora esta mostrando o seguinte: obrigado novamente pela ajuda, aguardo retorno, Atentamente Daniel

Bom dia Jurisato Junio, atualize as fontes e volte a fazer o teste apos as alterações conforme você recomendo ao realizar o teste a mensagem de erro mudo, agora traz o seguinte: tem alguns números ocultos em preto por ser cnpj de um cliente mais pelo que vi na montagem do id o acbr concatena o cnpj formatado mais se o campos "ID" é um integer não deveria ser só numero so para ressaltar que quando alimento a informação do campo estou removendo os caracteres de texto e só envia o numero na seguinte imagem fiz um showmessage do cnpj alimentado para verificar e esta carregando sem formatação : alguma idéia? aguardo retorno desde já muito obrigado. Atentamente Daniel

Boa tarde Italo Jurisato Junio, vou atualizar e fazer o teste depois dou um retorno de como me foi mais desde já muito obrigado Atentamente Daniel

Boa tarde Juliomar Marchetti, Estou preenchendo as informações da seguinte forma: Nota1.Configuracoes.Certificados.NumeroSerie := RetTag('CertNumero', sDados); Nota1.Configuracoes.Certificados.Senha := RetTag('CertSenha', sDados); Nota1.Configuracoes.Geral.SSLCryptLib := cryCapicom; Nota1.Configuracoes.Geral.SSLHttpLib := httpWinINet; Nota1.Configuracoes.Geral.SSLLib := libCapicom; Nota1.Configuracoes.Geral.SSLXmlSignLib := xsMsXmlCapicom; Nota1.Configuracoes.Geral.PathIniCidades := RetTag('DirINI', sDados); Nota1.Configuracoes.Geral.PathIniProvedor := Nota1.Configuracoes.Geral.PathIniCidades; Nota1.Configuracoes.Geral.Emitente.CNPJ := RetTag('PrestCNPJ', sDados); Nota1.Configuracoes.Geral.Emitente.InscMun := RetTag('PrestIM', sDados); Nota1.Configuracoes.Geral.Emitente.RazSocial := RetTag('PrestRazao', sDados); Nota1.Configuracoes.Geral.Emitente.WebUser := RetTag('PrestWebUser', sDados); Nota1.Configuracoes.Geral.Emitente.WebSenha := RetTag('PrestWebSenha', sDados); if RetTag('Amb', sDados) = 'P' then Nota1.Configuracoes.WebServices.Ambiente := taProducao else Nota1.Configuracoes.WebServices.Ambiente := taHomologacao; Nota1.Configuracoes.Arquivos.PathSchemas := RetTag('DirSchemas', sDados); Nota1.Configuracoes.Geral.Salvar := False; //xml SEM envelope Nota1.Configuracoes.WebServices.Salvar := False; //xml COM envelope Nota1.Configuracoes.Geral.CodigoMunicipio := StrToInt(RetTag('PrestCidIBGE', sDados)); Nota1.Configuracoes.Geral.SetConfigMunicipio; Nota1.Configuracoes.Geral.ConsultaLoteAposEnvio := False; Nota1.Configuracoes.WebServices.Tentativas := 10; Nota1.Configuracoes.WebServices.AguardarConsultaRet := 5000; Nota1.Configuracoes.WebServices.IntervaloTentativas := 5000; with Nota1 do try sDados := StrSimples(sDados, 0, False, True, False, ''); NotasFiscais.Clear; NotasFiscais.NumeroLote := RetTag('NumLote', sDados); NotasFiscais.Transacao := True; with NotasFiscais.Add.NFSe do begin IdentificacaoRps.Numero := RetTag('NumRPS', sDados); IdentificacaoRps.Serie := RetTag('Serie', sDados); IdentificacaoRps.Tipo := trRPS; DataEmissao := StrToDateTime(RetTag('DataEmissao', sDados)); DataEmissaoRps := StrToDateTime(RetTag('DataEmissao', sDados)); NaturezaOperacao := no0; RegimeEspecialTributacao := retSimplesNacional; PrestadorServico.Endereco.CodigoMunicipio := RetTag('CodigoMunicipio', sDados); OptanteSimplesNacional := snSim; IncentivadorCultural := snNao; Numero := RetTag('NumNota', sDados); Status := srNormal; OutrasInformacoes := RetTag('observacao', sDados); if RetTag('Amb', sDados) = 'P' then Producao := snSim else Producao := snNao; Servico.Valores.ValorServicos := RetTagFloat('ValorServicosB', sDados); Servico.Valores.ValorDeducoes := 0.00; Servico.Valores.ValorPis := 0.00; Servico.Valores.ValorCofins := 0.00; Servico.Valores.ValorInss := 0.00; Servico.Valores.ValorIr := 0.00; Servico.Valores.ValorCsll := 0.00; case StrToInt(RetTag('ISSRetido', sDados)) of 0: Servico.Valores.IssRetido := stNormal; else Servico.Valores.IssRetido := stRetencao; end; Servico.Valores.OutrasRetencoes := 0.00; Servico.Valores.DescontoIncondicionado := RetTagFloat('ValorDesconto', sDados); Servico.Valores.DescontoCondicionado := 0.00; Servico.Valores.BaseCalculo := Servico.Valores.ValorServicos - Servico.Valores.ValorDeducoes - Servico.Valores.DescontoIncondicionado; Servico.Valores.Aliquota := RetTagFloat('AliquotaISS', sDados); Servico.Valores.ValorIss := RetTagFloat('ValorISS', sDados); Servico.Valores.ValorIssRetido := RetTagFloat('ValorISSRetido', sDados); Servico.Valores.ValorLiquidoNfse := Servico.Valores.ValorServicos - Servico.Valores.ValorPis - Servico.Valores.ValorCofins - Servico.Valores.ValorInss - Servico.Valores.ValorIr - Servico.Valores.ValorCsll - Servico.Valores.OutrasRetencoes - Servico.Valores.ValorIssRetido - Servico.Valores.ValorIss - Servico.Valores.DescontoIncondicionado - Servico.Valores.DescontoCondicionado; Servico.ItemListaServico := AddPontoLC116(RetTag('ItemListaServico', sDados)); Servico.Discriminacao := RetTag('Discriminacao', sDados); Servico.CodigoMunicipio := RetTag('CodigoMunicipio', sDados); Servico.ExigibilidadeISS := exiExigivel; Servico.CodigoPais := 1058; Servico.MunicipioIncidencia := StrToInt(RetTag('MunicipioIncidencia', sDados)); XMLDoc := LoadXMLData('<?xml version="1.0" encoding="iso-8859-1"?>' + copy(sDados, Pos('<itens>', sDados), Pos('</itens>', sDados) - Pos('<itens>', sDados) + 8)); Node_Pai := XMLDoc.ChildNodes.FindNode('itens'); for i := 0 to Node_Pai.ChildNodes.Count - 1 do begin Node_Geral := Node_Pai.ChildNodes[i]; with Servico.ItemServico.Add do begin Descricao := VarToStr(Node_Geral.ChildNodes.FindNode('Descr').NodeValue); Quantidade := Node_Geral.ChildNodes.FindNode('Qtd').NodeValue; ValorUnitario := Node_Geral.ChildNodes.FindNode('vUnit').NodeValue; Aliquota := Node_Geral.ChildNodes.FindNode('Aliq').NodeValue; BaseCalculo := Node_Geral.ChildNodes.FindNode('vBC').NodeValue; ValorDeducoes := 0; ValorServicos := Node_Geral.ChildNodes.FindNode('vServ').NodeValue; DescontoCondicionado := 0; DescontoIncondicionado := Node_Geral.ChildNodes.FindNode('Desc').NodeValue; ValorIss := (BaseCalculo * Aliquota) / 100; Discriminacao := VarToStr(Node_Geral.ChildNodes.FindNode('Discr').NodeValue); end; end; Prestador.Cnpj := SoNumeros(RetTag('PrestCNPJ', sDados)); Prestador.InscricaoMunicipal := SoNumeros(RetTag('PrestIM', sDados)); Tomador.IdentificacaoTomador.CpfCnpj := SoNumeros(RetTag('TomDOC', sDados)); Tomador.IdentificacaoTomador.InscricaoMunicipal := SoNumeros(RetTag('TomIM', sDados)); Tomador.RazaoSocial := RetTag('TomNome', sDados); Tomador.Endereco.Endereco := RetTag('TomEnd', sDados); Tomador.Endereco.Numero := RetTag('TomEndNum', sDados); Tomador.Endereco.Complemento := RetTag('TomCompl', sDados); Tomador.Endereco.Bairro := RetTag('TomBairro', sDados); Tomador.Endereco.xMunicipio := RetTag('TomCid', sDados); Tomador.Endereco.CodigoMunicipio := RetTag('TomCidIBGE', sDados); Tomador.Endereco.UF := RetTag('TomUF', sDados); Tomador.Endereco.CEP := SoNumeros(RetTag('TomCEP', sDados)); Tomador.Contato.Telefone := SoNumeros(RetTag('TomFone', sDados)); Tomador.Contato.Email := RetTag('TomMail', sDados); NfseSubstituida := RetTag('NumNotaSubstituta', sDados); end; e apos estou fazendo a chamada do evento, Nota1.SubstituirNFSe('1', RetTag('NumNotaSubstituta', sDados), RetTag('observacao', sDados)); Verifique o manual tente preencher o campo NfseSubstituida o qual imagino não precisaria porque já é informado no parâmetro 2 do evento "SubstituirNFSe" mas mesmo assim não passa a validação, alguma idéia desde já obrigado. Atentamente Daniel

Boa tarde, estou dando um retorno para atualizar a situação do enviou da nota de substituição já tente de tudo e não passa a validação pelas dúvidas que tivesse alguma coisa errada apague todo da pasta do acbr e baixe de novo também reinstale o acbr no delphi já que tinha alguns componentes desatualizados mais mesmo assim continua dando erro, alguém consegue fazer o teste de substituição para ver se esta funcionando muito obrigado desde já, Atentamente Daniel

Boa tarde Juliomar Marchetti, primeiramente muito obrigado pelo aporte fiz o teste conforme sugerido lamentavelmente ainda não foi, porem mudo a mensagem de erro acusando erro no schema com o tipo errado definido vou verificar e depois dou um retorno. atentamente Daniel

Boa tarde Ao solicitar a substituição de uma nota me esta retornando a seguinte mensagem: Já tenho o ACBR atualizado e as informações e certificados estão corretas já que posso enviar NFS-e normal e cancelar sem problema só esta acontecendo com a substituição agradeceria se pudessem nos orientar asia uma solução, desde já muito obrigado. e parabéns pelo projeto. Atentamente: Daniel