Eraldo

Boa noite Italo, Não tenho agora pra te passar. Fiz mais um teste excluindo essa const cDTD e, como imaginava, não faz falta alguma, ao contrário. Para confirmar, experimente setar essa const cDTD que esta na unit ACBrDFeOpenSSL, com vazio ( Const cDTD = ''; ) e observe que irá funcionar normalmente. Como está atualmente a consulta não funciona e para o envio, não faz falta. Att. Eraldo Desculpe-me, pela postagem anterior, me confundi. Boa tarde Italo, Na consulta o XML vai assim <!DOCTYPE test [<!ATTLIST id ID #IMPLIED>]>' e isso da erro. Porque ele pega <!DOCTYPE test [<!ATTLIST &infElement& Id ID #IMPLIED>]>' e substitui a TagElemento por ''. Se debuguar qualquer consulta pelo openssl, pegue o valor da variável ConteudoXML antes do xmlParseDoc e observe o que disse. Sustento que não precisa atribuir nada a constante cDTD no caso do openssl pelo menos. Gostaria de saber se tem algum colega que usa openssl e funciona. Eu até agora, atribuindo '' para a const cDTD, está funcionando que é uma maravilha. Att. Eraldo

Boa noite Italo, Não tenho agora pra te passar. Fiz mais um teste excluindo essa const cDTD e, como imaginava, não faz falta alguma, ao contrário. Para confirmar, experimente setar essa const cDTD que esta na unit ACBrDFeOpenSSL, com vazio ( Const cDTD = ''; ) e observe que irá funcionar normalmente. Como está atualmente a consulta não funciona e para o envio, não faz falta. Att. Eraldo

Italo, Resolve sim, mas para o caso da geração do XML do envio do Lote. No XML da consulta falha porque não existe atribuição para nenhum provedor. Para o caso de usar openssl, acredito que por ser mais restritivo, não acetia um campo ID sem referencia no XML como abaixo '<!DOCTYPE test [<!ATTLIST id ID #IMPLIED>]>' acima esta dizendo que o XML possui um elemento chave mas não está passando nada. No cado do XML do lote você informa que o elemento chave do XML é o "infNFSe" No caso da consulta, não esta sendo informado nada. E falha no parser do openssl. Percebi que esse elemento chave ID não é necessário. Os XML´s já tem os schemas que fazem a validação. Não precisamos dizer que o XML tem um campo chave... ou seja, a const cDTD pode ser apenas : cDTD = '<!DOCTYPE test []>'; Att. Eraldo

Boa tarde Italo e colegas, Avançando ainda no NFSe utilizando A1 com openssl, acredito não ser necessário atribuir o identificador ID no ATTLIST dos XML´s. Com Capicom passa, acredito que por não fazer a consistência do dessa informação na estrutura do XML...talvez alguém com mais conhecimento poderá confirmar/refutar isso. Já com o parser usando openssl a coisa é mais restritiva. Explico: Existe na unit ACBrDFeOpenSSL a a const cDTD, conforme trecho abaixo ..... HTTPSend, ssl_openssl, libxmlsec, libxslt, libxml2; const cDTD = '<!DOCTYPE test [<!ATTLIST &infElement& Id ID #IMPLIED>]>'; ///<<-- ME REFIRO A ESSA! cErrMngrCreate = 'Erro: Falha ao criar Gerenciador de Chaves "xmlSecKeysMngrCreate"'; cErrMngrInit = 'Erro: Falha ao inicializar o Gerenciador de Chaves "xmlSecCryptoAppDefaultKeysMngrInit"'; cErrCertLoad = 'Erro: Falha ao ler informação do Certificado no Gerenciador de Chaves'; cErrParseDoc = 'Erro: Falha ao interpretar o XML "xmlParseDoc"'; ....... E percebo que não é obrigatório informar o elemento do tipo ID, nem para a geração do XML para envio , e nem para consulta... hoje implementei a consulta também usando openssl aqui para Caxias do Sul. Mas tive que alterar a constante cDTD. O que proponho é que, pelo menos com Openssl, não informar ATTLIST. Então a const cDTD seria como abaixo. cDTD = '<!DOCTYPE test []>'; Nos testes que fiz até esse momento, fiz essa alteração e a geração/envio e consulta da NFSe, usando openssl para o provefor Infisc funcionou perfeitamente. Como tem efeito somente em openssl, Capicom não altera nada. Att. Eraldo

Boa noite colegas, Estou implementando a nota pelo provedor Infisc e tentando usar A1 com openssl... Não passava de jeito nenhum pela function xmlParseDoc, chamada na function TDFeOpenSSL.XmlSecSign da Unit ACBrDFeOpenSSL. Ai descobri um detalhe na procedure TNFSeEnviarLoteRPS.DefinirDadosMsg da Unit ACBrNFSeWebServices Descobrir que não faz o Parse por causa da variável TagElemento que no caso do provedor ser Infisc está sendo setada com vazio ('') Trecho dos fontes de hoje, 23 fevereiro de 2016 GerarDadosMsg := TNFSeG.Create; try case Provedor of proInfisc: TagGrupo := 'envioLote'; proISSDSF: TagGrupo := 'ReqEnvioLoteRPS'; proEquiplano: TagGrupo := 'enviarLoteRpsEnvio'; else TagGrupo := 'EnviarLoteRpsEnvio'; end; case FProvedor of proInfisc: TagElemento := ''; // <<<<<<<< Para "parsear" usando openssl essa variável tem que ter valor. else TagElemento := 'LoteRps'; end; Alterei conforme abaixo e passou. case FProvedor of proInfisc: TagElemento := 'infNFSe'; // <<<<<< else TagElemento := 'LoteRps'; end; O que me dizem? Confere minha observação?

Estou ficando sem cabelos de tanta pressão. Chequei a pensar que era por ser hoje o dia da mentira.

Aqui no RS também está com o mesmo problema!

Ola colegas de profissão, Estou usando OpenSSL para as NF-e´s O problema é que quando uso o cst60 o xml tem que constar as tag´s vBCSTRet e vICMSSTRet, mesmo zeradas. e vi que a se comentar a linha 1260 unit t pcnNFeW.pas >> if (nfe.Det.Imposto.ICMS.vBCSTRET > 0) or (nfe.Det.Imposto.ICMS.vICMSSTRET > 0) then funciona. há algum inconveniente em deixar enviar 0.00? ou alguém tem outra solução? Agradeço qualquer ajuda.

Realmente, utilizando OpenSSL funcionou. Felizmente o cliente usa A1.

Opa, Já resolvi. Troquei os schemas e deu certo.

Esse problema teve solução? Estou passando pelo mesmo problema.

Pois essa será minha última tentativa. Obrigado por lembrar dessa opção.

Voto pela dupla FoFa...

Boa tarde, Já fiz dezenas de tentativas e pesquisas mas não resolvi. O problema é que não consigo usar o certificado A1 instalado numa VPS Windows Server 2008R2. com meu programa. Instalei e removi todos os CAPICOM que encontrei. O certificado esta instalado corretamente... Fiz testes com 2 páginas que fazem isso funciona, assina usando o certificado. No meu software sempre funcionou(XP, 7, 8, Server 2008). O problema é que quero colocar o programa numa VPS. Alguém já passou por isso?

Hoje eu estou aumentando meus posts que é uma beleza Na função GetURLSepara(URL: String): String; Acredito deva ser alterada a para: function GetURLSepara(URL: String): String; var I, R: Integer; begin R:= Length(URL); for I := 0 to Length(URL) - 1 do // Adicionar '-1' por causa do range... ou então "for I := 0 to R - 1" para não chamar a função Length desnecessariamente.... if URL = '/' then R:= I; Result:= Copy(URL, 1, R); end;