sousa

Caro Italo, Conversei com Neilson da Tinus e ele me falou que há problema na namespace, que a extensão deve ser xml e não xsd. Grato

Estou em contato com a Tinus no momento, os componentes já estão ajustados pelo Italo, o erro 400 continua, mas está gerando os arquivos corretamente, bastando para isso configurar o arquivo tinus.ini. Enviei meus arquivos de teste para a Tinus e aguardo resposta para saber se os mesmos estão devidamente estruturados. Vou te encaminhar meus arquivos ini. Cidades.INI Tinus.INI

Bom dia Italo, Os testes estão sendo realizados em aplicação que temos, e já utilizamos para se comunicar com outras prefeituras, mas fiz testes com a versão exemplo do ACBr e o resultado é o mesmo, sempre dar "bad request". Fiz ajustes no arquivo cidades.ini. Observando que o ACBr não consegue gerar o arquivo xml se configurar para assinar o RPS e Lote ao mesmo tempo, condição esta que a cidade Olinda/PE exige, conforme modelo que nos enviaram. Código da cidade: 2609600 Provedor: Tinus 193-env-lot.xml 193-env-lot-soap.xml 193-rec.xml 193-rec-soap.xml Cidades.INI

Caríssimo, O certificado que estou utilizando é da empresa cliente de Olinda e está na validade. Os fontes estão atualizados. A cidade Olinda realmente utiliza Tinus. Você poderia me indicar alguém que conseguiu acesso em Olinda, estamos meio aflitos pois precisamos entregar a solução para nosso cliente. Grato.

Caríssimos, Não consigo comunicação com o servidor TINUS de Olinda no Pernambuco, já fiz de tudo, a resposta sempre é : <?xml version="1.0" encoding="UTF-8"?>Bad Request. Já tentei todo tipo de configuração no arquivo Tinus.ini, mas não consigo. Acredito que eles só recebam arquivo com assinatura no lote e no rps, e quando configuro, o ACBr não consegue gerar o arquivo, dá o erro: A string literal was expected,but no opening quote character was found.. Por último desinstalei e atualizei todo o ACBr, e o resultado continua o mesmo. OBS: Utilizo o Delphi 7 Grato pela atenção Francisco Sousa Tinus.INI Cidades.INI

Ilustre, Estou passando pelo mesmo problema após atualização em fev/2016. Caso tenha solucionado, poderia me orientar. Problema: Found element Cabecalho but could not find matching RPC/Literal part

Ilustre Italo, Resolvi o problema modificando o conteúdo de duas Units, unit ACBrNFSeWebServices procedure TNFSeGerarLoteRPS.DefinirServicoEAction; begin FPServico := 'GerarLoteRPS'; //FPSoapAction := '*'; if (FPConfiguracoes.WebServices.UFCodigo = 23) and (FPConfiguracoesNFSe.Geral.Provedor = proGinfes) then FPSoapAction := '' else FPSoapAction := '*'; end; procedure TNFSeEnviarLoteRPS.DefinirServicoEAction; begin FPServico := 'EnviarLoteRPS'; //FPSoapAction := FPConfiguracoesNFSe.Geral.ConfigSoapAction.Recepcionar; if (FPConfiguracoes.WebServices.UFCodigo = 23) and (FPConfiguracoesNFSe.Geral.Provedor = proGinfes) then FPSoapAction := '' else FPSoapAction := FPConfiguracoesNFSe.Geral.ConfigSoapAction.Recepcionar; end; procedure TNFSeEnviarSincrono.DefinirServicoEAction; begin FPServico := 'NFSeEnviarSincrono'; //FPSoapAction := FPConfiguracoesNFSe.Geral.ConfigSoapAction.RecSincrono; if (FPConfiguracoes.WebServices.UFCodigo = 23) and (FPConfiguracoesNFSe.Geral.Provedor = proGinfes) then FPSoapAction := '' else FPSoapAction := FPConfiguracoesNFSe.Geral.ConfigSoapAction.RecSincrono; end; procedure TNFSeGerarNFSe.DefinirServicoEAction; begin FPServico := 'NFSeGerarNFSe'; //FPSoapAction := FPConfiguracoesNFSe.Geral.ConfigSoapAction.Gerar; if (FPConfiguracoes.WebServices.UFCodigo = 23) and (FPConfiguracoesNFSe.Geral.Provedor = proGinfes) then FPSoapAction := '' else FPSoapAction := FPConfiguracoesNFSe.Geral.ConfigSoapAction.Gerar; end; procedure TNFSeConsultarSituacaoLoteRPS.DefinirServicoEAction; begin FPServico := 'NFSeConsSitLoteRPS'; //FPSoapAction := FPConfiguracoesNFSe.Geral.ConfigSoapAction.ConsSit; if (FPConfiguracoes.WebServices.UFCodigo = 23) and (FPConfiguracoesNFSe.Geral.Provedor = proGinfes) then FPSoapAction := '' else FPSoapAction := FPConfiguracoesNFSe.Geral.ConfigSoapAction.ConsSit; end; procedure TNFSeConsultarLoteRPS.DefinirServicoEAction; begin FPServico := 'NFSeConsLote'; //FPSoapAction := FPConfiguracoesNFSe.Geral.ConfigSoapAction.ConsLote; if (FPConfiguracoes.WebServices.UFCodigo = 23) and (FPConfiguracoesNFSe.Geral.Provedor = proGinfes) then FPSoapAction := '' else FPSoapAction := FPConfiguracoesNFSe.Geral.ConfigSoapAction.ConsLote; end; procedure TNFSeConsultarNfseRPS.DefinirServicoEAction; begin FPServico := 'NFSeConsNfseRPS'; //FPSoapAction := FPConfiguracoesNFSe.Geral.ConfigSoapAction.ConsNfseRps; if (FPConfiguracoes.WebServices.UFCodigo = 23) and (FPConfiguracoesNFSe.Geral.Provedor = proGinfes) then FPSoapAction := '' else FPSoapAction := FPConfiguracoesNFSe.Geral.ConfigSoapAction.ConsNfseRps; end; procedure TNFSeConsultarNfse.DefinirServicoEAction; begin FPServico := 'NFSeConsNfse'; //FPSoapAction := FPConfiguracoesNFSe.Geral.ConfigSoapAction.ConsNfse; if (FPConfiguracoes.WebServices.UFCodigo = 23) and (FPConfiguracoesNFSe.Geral.Provedor = proGinfes) then FPSoapAction := '' else FPSoapAction := FPConfiguracoesNFSe.Geral.ConfigSoapAction.ConsNfse; end; procedure TNFSeCancelarNfse.DefinirServicoEAction; begin FPServico := 'NFSeCancNfse'; //FPSoapAction := FPConfiguracoesNFSe.Geral.ConfigSoapAction.Cancelar; if (FPConfiguracoes.WebServices.UFCodigo = 23) and (FPConfiguracoesNFSe.Geral.Provedor = proGinfes) then FPSoapAction := '' else FPSoapAction := FPConfiguracoesNFSe.Geral.ConfigSoapAction.Cancelar; end; procedure TNFSeSubstituirNFSe.DefinirServicoEAction; begin FPServico := 'NFSeSubNfse'; //FPSoapAction := FPConfiguracoesNFSe.Geral.ConfigSoapAction.Substituir; if (FPConfiguracoes.WebServices.UFCodigo = 23) and (FPConfiguracoesNFSe.Geral.Provedor = proGinfes) then FPSoapAction := '' else FPSoapAction := FPConfiguracoesNFSe.Geral.ConfigSoapAction.Substituir; end; unit ACBrDFeWebService; procedure TDFeWebService.InicializarServico; begin { Sobrescrever apenas se necessário } Clear; DefinirURL; if URL = '' then GerarException( ACBrStr('URL não definida para: ') + ClassName); DefinirServicoEAction; if Servico = '' then GerarException( ACBrStr('Servico não definido para: ')+ ClassName); //if SoapAction = '' then // GerarException( ACBrStr('SoapAction não definido para: ') + ClassName); if (FPConfiguracoes.WebServices.UFCodigo <> 23) and (SoapAction = '') then GerarException( ACBrStr('SoapAction não definido para: ') + ClassName); end; Acredito que as alterações não são as mais adequadas, mas funcionou a comunicação com o WS. Grato pela atenção ACBrDFeWebService.pas ACBrNFSeWebServices.pas

Ilustre, O teste foi somente de consulta pelo Demo do ACBr. Em nosso sistema, fazemos a consulta antes do envio, por isso a necessidade do procedimento. Grato

Bom dia Italo, Realizei testes com a versão Demo para consultar RPS no WS Fortaleza, fiz todas as configurações necessárias, e coloquei os arquivos INI conforme orientações. Resposta do WS: The given SOAPAction * does not match an operation Envio em anexo os arquivos de comunicação. Grato pela atenção 1513UNICA-comp-nfse.xml 1513UNICA-comp-nfse-soap.xml 1513UNICA-con-nfse-rps.xml 1513UNICA-con-nfse-rps-soap.xml

Boa tarde, Italo Jurisato Junior Acredito que em Fortaleza não seja necessário cadastro para usar o WebService, visto que em versão compilada antes da atualização, com os mesmos dados cadastrais, as consultas são realizadas com sucesso. Gostaria que analisasse o trecho abaixo do procedimento ConsultaNFSeporRps, nas duas versões do componente, pois há diferenças consideráveis. Grato pela atenção. ********************************** ANTES DA ATUALIZAÇÃO *********************************************** function TWebServices.ConsultaNFSeporRps(ANumero, ASerie, ATipo, ACnpj, AInscricaoMunicipal: String; const ASenha : String = ''; const AFraseSecreta : String = ''; const ARazaoSocial: String = ''): Boolean; begin ACnpj := OnlyNumber(ACnpj); if not ValidarCNPJ(ACnpj) and (Length(ACnpj) = 14) then //Eduardo Silva dos Santos - DRD SISTEMAS, testar somente CNPJ raise Exception.Create('CNPJ '+ACnpj+' inválido.'); if not ValidarCPF(ACnpj) and (Length(ACnpj) = 11) then //Eduardo Silva dos Santos - DRD SISTEMAS, testar somente CPF raise Exception.Create('CPF '+ACnpj+' inválido.'); Self.ConsNfseRps.Numero := ANumero; Self.ConsNfseRps.Serie := ASerie; Self.ConsNfseRps.Tipo := ATipo; Self.ConsNfseRps.Cnpj := ACnpj; Self.ConsNfseRps.InscricaoMunicipal := AInscricaoMunicipal; Self.ConsNfseRps.Senha := ASenha; Self.ConsNfseRps.FraseSecreta := AFraseSecreta; Self.ConsNfseRps.RazaoSocial := ARazaoSocial; Result := Self.ConsNfseRps.Executar; if not (Result) then begin if Assigned(TACBrNFSe( FACBrNFSe ).OnGerarLog) then TACBrNFSe( FACBrNFSe ).OnGerarLog(Self.ConsNfseRps.Msg); if Self.ConsNfseRps.Msg <> '' then raise Exception.Create(Self.ConsNfseRps.Msg) else raise Exception.Create('Erro Desconhecido ao Consultar a NFS-e por RPS!') end; end; ********************* APÓS ATUALIZAÇÃO DOS COMPONENTES ******************************** function TWebServices.ConsultaNFSeporRps(ANumero, ASerie, ATipo: String): Boolean; begin FConsNfseRps.FNumeroRps := ANumero; FConsNfseRps.FSerie := ASerie; FConsNfseRps.FTipo := ATipo; Result := FConsNfseRps.Executar; if not (Result) then FConsNfseRps.GerarException( FConsNfseRps.Msg ); end;

Ilustre, Fiz alguns ajustes conforme programa exemplo, mas realmente não há comunicação com os componentes atualizados. Em versão compilada antes da atualização, funciona perfeitamente. Grato

Ilustre, Atualizei todos os componentes, deixei na pasta somente os arquivos Cidades.INI e ISSFortaleza.INI. O resultado foi o mesmo, sem comunicação. Observei que não há pasta Schema nos exemplos do ACBr para "ISSFortaleza", deixei os arquivos do Schema anterior. Fiz um teste apontando para o provedor GINFES e percebo que houve comunicação, porém não localiza o CNPJ da empresa, apenas um teste, o que reforça a idéia que no arquivo de configuração para o provedor de Fortaleza, falta algo mais. Gostaria me indicasse alguém que em Fortaleza/Ce conseguiu conexão. Grato pela atenção

Ilustre, Não deu certo, depurando o código ele para na linha da unit ACBrDFeSSL: function TDFeSSL.Enviar(var ConteudoXML: String; const URL: String; const SoapAction: String; const MimeType: String): String; begin // Nota: ConteudoXML, DEVE estar em UTF8 // Result := FSSLClass.Enviar(ConteudoXML, URL, SoapAction, MimeType); end; Valores: ConteudoXML = pelo que analisei estão corretos os dados da RPS URL = 'https://iss.fortaleza.ce.gov.br/grpfor-iss/ServiceGinfesImplService' SoapAction = * MimeType = 'application/soap+xml' Poderia está ausente algum arquivo, estava com alguns meses que eu não atualizava os componentes, mas deu tudo certo para a NFe, mas como sempre a Nota de Serviço é mais trabalhosa. Observação: quando limpei os endereços [SoapAction] apareceu a seguinte mensagem: SoapAction não definido para: TNFSeConsultarNFSeRPS No aguardo

Ilustre, estou tentando com estas alterações, pois conforme o arquivo original, eu não consigo acessar, sempre obtenho a resposta "The given SOAPAction * does not match an operation.".

Senhores, Já tentei de tudo mas não consigo consultar nfse no servidor de Fortaleza, atualizei todos os componentes, porém o arquivo ISSFortaleza.INI está sem os endereços na secção [SoapAction], tentei de tudo mas não deu certo, na versão anterior à atualização dar tudo certo. Atualizei os schemas e o sistema aponta para o arquivo Cidades.INI. segue arquivo em anexo para conferência Grato pela atenção ISSFortaleza.INI