sousa
-
Total de ítens
22 -
Registro em
-
Última visita
Tipo de Conteúdo
Blocks
Notes ACBrLibNFe
Fóruns
Downloads
Calendário
Posts postados por sousa
-
-
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.
-
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
-
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 7Grato pela atençãoFrancisco Sousa -
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
-
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
-
Em 04/02/2016 at 14:01, Italo Jurisato Junior disse:
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
-
Boa tarde,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
-
23 minutos atrás, Italo Jurisato Junior disse:
Souza,
Abra este link:
https://iss.fortaleza.ce.gov.br/grpfor-iss/ServiceGinfesImplService?wsdl
Note que os soapAction das operações é vazio.
No arquivo INI colocamos um " * " para que o componente entenda que foi definido um soapAction para operação, se deixarmos em branco ele levanta uma exceçã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
-
No meu caso me certifiquei em retirar a declaração qrFramelines de todos os arquivos referente ao quick,
pois veja que existem heranças, e pode sobrar em algum arquivo.
-
Agradeço a orientação
-
Bom dia Italo,
Finalmente conseguir transmitir a NFSe, fiz os teste no ambiente de produção com dados reais e funcionou, só não conseguir emitir o Danfse, dá um erro Qrnfse.page.Continuos não existe. Obrigado.
Basta apagar a declaração "qrFramelines" no Uses das units referentes ao Quickreport
Exemplo: ACBrNFSeDANFSeQRRetratoCampinas
-
Basta apagar a declaração "qrFramelines" no Uses das units referentes ao Quickreport
Exemplo: ACBrNFSeDANFSeQRRetratoCampinas
-
Senhores,
Estou com problemas para visualização da nota de serviço quando envio o link para o cliente,
Link enviado pelo ACBr
h ttp://visualizar.ginfes.com.br/report/consultarNota?__report=nfs_ver4&cdVerificacao=720957466&numNota=1155&cnpjPrestador=null
Link exemplo de nota visualizado pelo website "iss.fortaleza.ce.gov.br"
h ttps://iss.fortaleza.ce.gov.br/grpfor/pagesPublic/consultarNota.seam?codigo=966364152&chave=2156330&numero=1110&cid=35030
Grato pela atenção
-
Amigos,
O problema aconteceu em testes que fiz, mas consegui solucionar.
Simplesmente deixei de informar as tags "IntermediarioServico".
Gostaria de obter mais informações sobre sua obrigatoriedade,
porém até o momento tá dando certo.
-
Ao gerar um DAV tenho 3 momentos:
Primeiro - gravo um DAV registrando seus itens sem imprimir (tendo a liberdade de imprimir a qualquer momento)
Segundo - imprimir em RG ou ECF obtendo a data de impressão do DAV
Terceiro - emitir o cupom fiscal a partir de um DAV
Gostaria de saber qual data utilizo para atender o requisito de "DAV emitidos", a data em que ele foi gerado ou a data em que ele foi impresso, pois veja que ao gerar um DAV posso ainda não ter registrado sua impressão, e quando utilizo a data de impressão (RG ou ECF), minha consulta ao banco de dados fica incompleta, mas quando utilizo a data em que gravei o DAV pela primeira vez, obtenho todas as informações, mas tenho o inconveniente de mostrar um DAV de um período que fora emitido ou efetivado em outro mês.
NFSe servidor Tinus de Olinda-PE
em ACBrNFSe
Postado
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