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
-
Como consultar uma nota NFSE e verificar se esta cancelada (Tecnos)
um tópico no fórum postou paulo.bietkoski ACBrNFSe
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 -
Erro ao enviar NFC-e
um tópico no fórum postou paulo.bietkoski NFC-e - Nota Fiscal do Consumidor Eletrônica
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? -
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');
-
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
-
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)
-
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
-
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