Ir para conteúdo
  • Cadastre-se

drsmoreira

Membros Pro
  • Total de ítens

    41
  • Registro em

  • Última visita

Tudo que drsmoreira postou

  1. Olá Italo! Atualizei os fontes, continua dando o seguinte erro : "Erro não especificado". Abs!
  2. Bom dia, Italo! Fiz a alteração no provedor Fiorilli e mandei pro cliente, ele só pode testar hoje e apresentou o seguinte erro : "Erro desconhecido". Não sei se faltou alguma alteração, fiz no pnfsConversao.pas trocando a cidade de Saquarema de GOVBR para Fiorilli, depois no arquivo do provedor eu adicionei pra cidade a URL de webservice de saquarema. Tem algum outro ponto que precisa ser trocado?
  3. Bom dia! Estou com um cliente de Saquarema - RJ, o provedor mudou do GOVBR para o Fiorelli, como posso ajudar? Faço a alteração no .pas ou envio o link ? Caso seja o Link do webservice, segue : http://201.18.231.99:5661/IssWeb-ejb/IssWebWS/IssWebWS?wsdl
  4. Bom dia a todos! Tive problema no GINFES de São Caetano do Sul - SP em relação a busca automática após o envio da NFSE, tem horas que ele retorna a busca do lote sem apresentar qualquer erro e dá o resultado como falso. Eu modifiquei essa função adicionando um loop que ficar até ele trazer um erro ou dar OK. Até o presente momento funcionou certinho, se puderem avaliar a função e verificar se tem como deixar fixo no componente para posteriores atualizações ou então propor uma solução melhor, desde já agradeço. Segue abaixo a copia da rotina de envio alterada : function TWebServices.Envia(ALote: String): Boolean; begin self.Enviar.FNumeroLote := ALote; Result := Self.Enviar.Executar; if not (Result) then begin if Assigned(TACBrNFSe( FACBrNFSe ).OnGerarLog) then TACBrNFSe( FACBrNFSe ).OnGerarLog(Self.Enviar.Msg); if Self.Enviar.Msg <> '' then raise Exception.Create(Self.Enviar.Msg) else raise Exception.Create('Erro Desconhecido!') end; if (TACBrNFSe( FACBrNFSe ).Configuracoes.WebServices.ConsultaLoteAposEnvio) and (Result) then begin Self.ConsSitLote.Cnpj := TACBrNFSe( FACBrNFSe ).NotasFiscais.Items[0].NFSe.Prestador.Cnpj; Self.ConsSitLote.InscricaoMunicipal := TACBrNFSe( FACBrNFSe ).NotasFiscais.Items[0].NFSe.Prestador.InscricaoMunicipal; Self.ConsSitLote.Protocolo := Self.Enviar.Protocolo; Self.ConsLote.Protocolo := Self.Enviar.Protocolo; if not (TACBrNFSe( FACBrNFSe ).Configuracoes.WebServices.Provedor in [profintelISS, proSaatri, proISSDigital, proFiorilli]) then begin Result := Self.ConsSitLote.Executar; while (not Result) and (Self.ConsSitLote.Msg = '') do begin Sleep(1000); Result := Self.ConsSitLote.Executar; end; if not (Result) then begin if Assigned(TACBrNFSe( FACBrNFSe ).OnGerarLog) then TACBrNFSe( FACBrNFSe ).OnGerarLog(Self.ConsSitLote.Msg); raise Exception.Create(Self.ConsSitLote.Msg); end; end; Result := Self.ConsLote.Executar; while (not Result) and (Self.ConsLote.Msg = '') do begin Sleep(1000); Result := Self.ConsLote.Executar; end; if not (Result) then begin if Assigned(TACBrNFSe( FACBrNFSe ).OnGerarLog) then TACBrNFSe( FACBrNFSe ).OnGerarLog(Self.ConsLote.Msg); raise Exception.Create(Self.ConsLote.Msg); end; end; end;
×
×
  • Criar Novo...

Informação Importante

Colocamos cookies em seu dispositivo para ajudar a tornar este site melhor. Você pode ajustar suas configurações de cookies, caso contrário, assumiremos que você está bem para continuar.