Odair Antônio Nasiloski
Membros-
Total de ítens
5 -
Registro em
-
Última visita
Últimos Visitantes
O bloco dos últimos visitantes está desativado e não está sendo visualizado por outros usuários.
Odair Antônio Nasiloski's Achievements
-
Fontes atualizados. Tenho uma alteração no ACBRNFSeWebServices, pois a tag de consulta do provedor SystemPro é <ConsultarNfseFaixaEnvio>. Segue implementação abaixo que peço seja colocada em produção. procedure TNFSeConsultarNfse.DefinirDadosMsg; begin FCabecalhoStr := FPConfiguracoesNFSe.Geral.ConfigEnvelope.ConsNFSe.CabecalhoStr; FDadosStr := FPConfiguracoesNFSe.Geral.ConfigEnvelope.ConsNFSe.DadosStr; FTagGrupo := FPConfiguracoesNFSe.Geral.ConfigEnvelope.ConsNFSe.TagGrupo; FTagElemento := FPConfiguracoesNFSe.Geral.ConfigEnvelope.ConsNFSe.TagElemento; FDocElemento := FPConfiguracoesNFSe.Geral.ConfigEnvelope.ConsNFSe.DocElemento; FInfElemento := FPConfiguracoesNFSe.Geral.ConfigEnvelope.ConsNFSe.InfElemento; FxsdServico := FPConfiguracoesNFSe.Geral.ConfigSchemas.ServicoConNfse; InicializarDadosMsg(FPConfiguracoesNFSe.Geral.ConfigEnvelope.ConsNFSe.IncluiEncodingCab); if (FProvedor = proSP) and (TNFSeConsultarNfse(Self).DataInicial > 0) and (TNFSeConsultarNfse(Self).DataFinal > 0) then FTagGrupo := 'PedidoConsultaNFePeriodo' { odair - SystemPro - 17/06/2020 - início } else if (FProvedor = proSystemPro) then FTagGrupo := 'ConsultarNfseFaixaEnvio'; { SDS - SystemPro - 17/06/2020 - fim } GerarDadosMsg := TNFSeG.Create; try if FProvedor = proGoverna then FTagGrupo := FPrefixo4 + FTagGrupo else begin if FTagGrupo <> '' then FTagGrupo := FPrefixo3 + FTagGrupo; end; InicializarTagITagF; InicializarGerarDadosMsg; with GerarDadosMsg do begin DataInicial := TNFSeConsultarNfse(Self).DataInicial; DataFinal := TNFSeConsultarNfse(Self).DataFinal; NumeroNFSe := TNFSeConsultarNfse(Self).NumeroNFSe; Pagina := TNFSeConsultarNfse(Self).FPagina; CNPJTomador := TNFSeConsultarNfse(Self).FCNPJTomador; IMTomador := TNFSeConsultarNfse(Self).FIMTomador; NomeInter := TNFSeConsultarNfse(Self).FNomeInter; CNPJInter := TNFSeConsultarNfse(Self).FCNPJInter; IMInter := TNFSeConsultarNfse(Self).FIMInter; // Necessario para o provedor Infisc SerieNFSe := TNFSeConsultarNfse(Self).Serie; end; AjustarOpcoes( GerarDadosMsg.Gerador.Opcoes ); FPDadosMsg := FTagI + GerarDadosMsg.Gera_DadosMsgConsNFSe + FTagF; FIDLote := GerarDadosMsg.IdLote; finally GerarDadosMsg.Free; end; if (FProvedor = proNFSeBrasil) then FPDadosMsg := NumeroNFSe; // O procedimento recebe como parametro o XML a ser assinado e retorna o // mesmo assinado da propriedade FPDadosMsg if (FPConfiguracoesNFSe.Geral.ConfigAssinar.ConsNFSe) and (FPDadosMsg <> '') then AssinarXML(FPDadosMsg, FTagGrupo, FinfElemento, 'Falha ao Assinar - Consultar NFSe: '); IncluirEncoding(FPConfiguracoesNFSe.Geral.ConfigEnvelope.ConsNFSe.IncluiEncodingDados); FDadosEnvelope := FPConfiguracoesNFSe.Geral.ConfigEnvelope.ConsNFSe.Envelope; case FProvedor of proTinus: begin FPDadosMsg := StringReplace(FPDadosMsg, 'ConsultarNfseEnvio', 'Arg', [rfReplaceAll]); if FPConfiguracoesNFSe.WebServices.Ambiente = taHomologacao then FPDadosMsg := StringReplace(FPDadosMsg, 'www.tinus', 'www2.tinus', [rfReplaceAll]) end; // Italo 10/09/2019 proDSFSJC: FPDadosMsg := StringReplace(FPDadosMsg, 'http://www.abrasf.org.br/nfse.xsd', 'http:/www.abrasf.org.br/nfse.xsd', [rfReplaceAll]); end; if (FPDadosMsg = '') or (FDadosEnvelope = '') then GerarException(ACBrStr('A funcionalidade [Consultar NFSe] não foi disponibilizada pelo provedor: ' + FPConfiguracoesNFSe.Geral.xProvedor)); end;
-
Bom dia. Não estou conseguindo cancelar notas fiscais de serviços do provedor SytemPro. Recebo o erro "Assinatura Invalida na tag InfDeclaracaoPrestacaoServico". Segue em anexo os xmls da nota fiscal, do pedido de cancelamento e do retorno. Agradeço pelo auxílio. Odair A. Nasiloski 1267-can.xml 1267-ped-can.xml 1267-nfse.xml