Ir para conteúdo
  • Cadastre-se

paulo.bietkoski

Membros
  • Total de ítens

    28
  • Registro em

  • Última visita

Contact Methods

  • Website URL
    www.mtsbr.com.br

Últimos Visitantes

O bloco dos últimos visitantes está desativado e não está sendo visualizado por outros usuários.

paulo.bietkoski's Achievements

Explorer

Explorer (4/14)

  • First Post
  • Collaborator Rare
  • Week One Done
  • One Month Later
  • One Year In

Recent Badges

1

Reputação

  1. Bom dia Italo, A principio o problema esta na base de homologação pois funcionou na base de produção.
  2. Boa noite preciso consultar uma nota da tecnos que eu tenho certeza que esta cancelada, mas o retorno dela é normal consulto assim: Acbr.ConsultarNFSeporRps(vlsRPS, 'UNICA', '1'); mas o retorno vem como Normal e não como srCancelado acbr.NotasFiscais.Items[0].NFSe.Status
  3. quando envio a nota ocorre o erro abaixo... como devo proceder para resolver? Falha na validação dos dados da nota: 2907 O elemento '{http://www.portalfiscal.inf.br/nfe}vFCPUFDest' é inesperado, de acordo com o modelo de conteúdo do elemento pai '{http://www.portalfiscal.inf.br/nfe}ICMSTot'. Esperado: {http://www.portalfiscal.inf.br/nfe}vBCST. quando desabilito a validação para testar... function TACBrNFe.Enviar(ALote: String; Imprimir: Boolean; Sincrono: Boolean): Boolean; ... // NotasFiscais.Validar; ocorre o seguinte erro: 'Codigo Identificador do CSC no QR-Code nao cadastrado na SEFAZ' mas o token esta como '&cIdToken=000002&' <![CDATA[http://www.dfeportal.fazenda.pr.gov.br/dfe-portal/rest/servico/consultaNFCe?chNFe=41160376029024000135651000000029091000029090&nVersao=100&tpAmb=2&dhEmi=323031362d30332d32395431353a32393a33322d30333a3030&vNF=10.00&vICMS=0.00&digVal=326f324d72796773493257776e69766461474e386a4d7443586e493d&cIdToken=000002&cHashQRCode=C558033B4D2D86A69BDB3F9D88086F491F7AB916]]> como devo proceder para resolver esta questão?
  4. Bom Dia, Presciso saber como faco para consultar e popular as classes do ACBr com um xml ja enviado para o provedor tecnos que sincrono
  5. Bom Dia, Presciso saber como faco para consultar e popular as classes do ACBr com um xml ja enviado para o provedor tecnos que sincrono
  6. se eu setar : UseCertificado=0 ocorre erro em : function TDFeCapicom.Assinar(const ConteudoXML, docElement, infElement: String; SignatureNode: String; SelectionNamespaces: String; IdSignature: String ): String; var ... begin ... OleCheck(IDispatch(FCertificado.PrivateKey).QueryInterface(IPrivateKey, PrivateKey)); e desabilitar: // if not UseCertificate then // raise EACBrDFeException.Create('Impossível assinar. Componente configurado para não usar Certificado');
  7. se eu desabilitar if (FUseCertificate) then FUseSSL := True; ocorre exceção em : if (FUseCertificate) then begin if not InternetSetOption(pRequest, INTERNET_OPTION_CLIENT_CERT_CONTEXT, Pointer(HCertContext), SizeOf(CERT_CONTEXT)) then raise EACBrHTTPReqResp.Create('Erro: Problema ao inserir o certificado') e não envia!!! segue o arquivo soap 419-env-lotS-soap.xml 419-env-lotS.xml
  8. Bom dia Italo, Procuramos o erro, e quando setamos o TECNOS.INI para: UseCertificado=0 UseSSL=0 O componente gerava um erro de exceção em: function TDFeSSL.Assinar(const ConteudoXML, docElement, infElement: String; SignatureNode: String; SelectionNamespaces: String; IdSignature: String ): String; Var XmlAss, xmlHeaderAntes, xmlHeaderDepois: String; I: integer; begin if not UseCertificate then raise EACBrDFeException.Create('Impossível assinar. Componente configurado para não usar Certificado'); entao setei para: UseCertificado=1 UseSSL=0 mas então quando envio, a rotina abaixo altera a propriedade UseSSL para True mesmo colocando no .ini para false: procedure TACBrHTTPReqResp.Execute(Resp: TStream); ... begin if (FUseCertificate) then FUseSSL := True; ----------------------------------------------------------------------------------------------------------------------------------------------------- A SOLUÇÃO PALIATIVA QUE TIVEMOS PARA COMEÇAR A ENVIAR NOVAMENTE FOI: 1) SETAR O TECNOS.INI PARA UseCertificado=1 UseSSL=0 2) SETAR O (FUseCertificate := false;) E (flags := INTERNET_SERVICE_HTTP;) procedure TACBrHTTPReqResp.Execute(Resp: TStream); ... begin if (FUseCertificate) then FUseSSL := True; AProt := ''; APort := ''; APath := ''; HCertContext := 0; ParseURL(FUrl, AProt, ANone, ANone, AHost, APort, APath, ANone); FUseCertificate := false; // forcar para false pois não esta respeitando o ini if (FUseCertificate) then begin if ((ShowCertStore) or ((FCertSerialNumber = '') and (FCertificate = nil))) then begin FCertSerialNumber := OpenCertStore; if FCertSerialNumber <> '' then FCertificate := nil; end; ... try { if (FUseSSL) then begin flags := INTERNET_FLAG_KEEP_CONNECTION or INTERNET_FLAG_NO_CACHE_WRITE; flags := flags or INTERNET_FLAG_SECURE; if (FUseCertificate) then flags := flags or (INTERNET_FLAG_IGNORE_CERT_CN_INVALID or INTERNET_FLAG_IGNORE_CERT_DATE_INVALID); end else } flags := INTERNET_SERVICE_HTTP; // forcar para que o envio seja efetuado ----------------------------------------------------------------------------------------------------------- Apos as alterações o componente voltou a enviar para o provedor a nfs! OBS: Mas o erro que iniciou este tópico persiste e se encontra na validação abaixo retornando (FDataRecebimento := 0;), criando uma exceção em branco; function TNFSeWebService.ExtrairNotasRetorno: Boolean; ... begin ... if FRetornoNFSe.ListaNFSe.CompNFSe.Count > 0 then begin FDataRecebimento := FRetornoNFSe.ListaNFSe.CompNFSe[0].NFSe.dhRecebimento; if FDataRecebimento = 0 then FDataRecebimento := FRetornoNFSe.ListaNFSe.CompNFSe[0].NFSe.DataEmissao; if FProvedor in [proInfisc, proGovDigital] then FProtocolo := FRetornoNFSe.ListaNFSe.CompNFSe[0].NFSe.Protocolo; end else begin FDataRecebimento := 0; // aqui esta populando como zero e retornando erro em branco end; ... Result := (FDataRecebimento <> 0); end; -------------------------------------------------------------------------------------------------------------------------- (favor avisar quando todos o itens que relatei forem consertado no componente, obrigado)
  9. aproveitando a post... poderia me informar qual a melhor cidade que eu posso utilizar para testar no programa teste? (poderia ser Curitiba?)
  10. isso eu já está configurado desta forma! Segue o arquivo Tecnos.ini Tecnos.ini antes da atualização do dia 10/03 eu estava conseguindo enviar para a homologação e retornava o erro em branco conforme o tópico em que estamos... mas agora apos atualizar para a versão de hoje nem chega a sair dando o erro: Erro Interno: 12029Erro HTTP: 0Erro: Requisição não enviada.12029 - Uma conexão com o servidor não pôde ser estabelecida conforme post anterior
  11. Sim, Esta cadastrado e esta funcionando na versão antiga(trunk1). marcando o SSL3 começa a ocorrer erro de canais seguros e se marcar ssl1 ocorre este erro de conexão...o endereço no browser acessa normalmente. alguma dica ?
  12. Ajustado problema anterior, mas agora está apresentando o erro abaixo. Erro de envio [ Erro Interno: 12029 Erro HTTP: 0 Erro: Requisição não enviada. 12029 - Uma conexão com o servidor não pôde ser estabelecida]!
  13. agora ocorreu Erro Interno: 12157 Erro HTTP: 0 Erro: Requisição não enviada. 12157 - Erro no suporte a canais seguro
  14. Bom dia, Atualizamos tudo mas agora esta aparecendo o erro: Erro ao ajustar INTERNET_OPTION_CLIENT_CERT_CONTEXT: 12046
  15. Bom dia, Efetuamos a instalação do componente do FastReport e todos os componentes do ACBR e sua compilação. 1) Estamos tentando utilizar o exemplo Demo ACBrNFSe e não está aparecendo a cidade de Veranópolis/RS e Nova Prata/RS. [4322806] Nome=Veranopolis UF=RS Provedor=Tecnos NomeURL_H=ver NomeURL_P=veranopolis [4313300] Nome=Nova Prata UF=RS Provedor=Tecnos NomeURL_H=prata NomeURL_P=novaprata 2) Tentamos fazer uma consulta de notas já enviadas em homologação e apresentou de requisição
×
×
  • 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.