Ir para conteúdo
  • Cadastre-se
Seja bem-vindo
Regras e orientações da nossa comunidade Participe do Discord do ACBr

adromarc

Membros
 Perfil  Explorar Conteúdo

  • Total de ítens

    18

  • Registro em

  • Última visita

 Tipo de Conteúdo 

Posts postados por adromarc

    Erro com CST 61 com CFOP 5929

    em ACBrNFe

    Postado

    OLá,

    Fiz uma nota NFe com CST 61 e o CFOP 5929 e deu

    esse seguinte erro: "959-NFe não pode ter preenchimento de Grupo de

    Tributação do ICMS monofásico sobre combustíveis".

    Então se trocar para o CST 60, funciona.

    Existe alguma excessão para qdo é o CST61 Monofásico em referência ao CFOP 5929?

    Pacote DCLACBr_DFeComum

    em Dúvidas gerais

    Postado · Editado por adromarc

    No repositório continua baixando "'DCLACBr_DFeComum" e fica dando problema já que ele está vazio sem componentes.

    Na versão anterior esse pacote parece que não tinha. Foi adicionado recentemente ou repositório está em manutenção?

    Usei o instalador, ele compilou e instalou certinho...

     

    Pacote DCLACBr_DFeComum

    em Dúvidas gerais

    Postado

    No repositório continua baixando "'DCLACBr_DFeComum" e fica dando problema já que ele está vazio sem componentes.

    Na versão anterior esse pacote parece que não tinha. Foi adicionado recentemente ou repositório está em manutenção?

    Pacote DCLACBr_DFeComum

    em Dúvidas gerais

    Postado

    Estou atualizando o ACBr só que estou tendo problemas com esse pacote que foi compilado, mas no meu projeto fica pedindo ele:

    "[dcc32 Error] E2466 Never-build package '.ACBr_LMC' requires always-build package 'DCLACBr_DFeComum'

    Eu abri o fonte dele compilei manual e não vi nada de código nele, mas mesmo assim não entendi...

    Quando clico em componentes ele aparece vazio não tem nada nele

    Erro ntdll.dll

    em Dúvidas gerais

    Postado

    Em 07/04/2022 at 16:54, adromarc disse:

    Depurando o projeto a exceção deu em um método "assinar" nas bibliotecas do ACBr,

    Lembrando que quando eu envio na primeira vez a nota vai normal, é na segunda vez que cai nessa exceção.

    Deem uma olhada nesta imagem:

     

    erro4.png

    É no método que está passando o xml que deu a exceçao: 

    ACBr_DFeComum.ACBrDFeXsLibXml2.TDFeSSLXmlSignLibXml2.Assinar('<?xml version="1.0" encoding="UTF-8"?><NFe xmlns="http://www.portalfiscal.inf.br/nfe"><infNFe versao="4.00" Id="NFe41220407424383000174550010000001881000001898"><ide><cUF>41</cUF><cNF>00000189</cNF><natOp>Venda de mercadoria adquirida ou recebida de terceiros</natOp><mod>55</mod><serie>1</serie><nNF>188</nNF><dhEmi>2022-04-07T00:00:00-03:00</dhEmi><dhSaiEnt>2022-04-07T00:00:00-03:00</dhSaiEnt><tpNF>1</tpNF><idDest>1</idDest><cMunFG>4106605</cMunFG><tpImp>1</tpImp><tpEmis>1</tpEmis><cDV>8</cDV><tpAmb>2</tpAmb><finNFe>1</finNFe><indFinal>1</indFinal><indPres>9</indPres><indIntermed>0</indIntermed><procEmi>0</procEmi><verProc>1.0.0.0</verProc></ide><emit><CNPJ>07424383000174</CNPJ><xNome>POSTO CRUZEIRO COLONIAL LTDA</xNome><xFant>POSTO CRUZEIRO COLONIAL LTDA</xFant><enderEmit><xLgr>AVENIDA SAO PAULO</xLgr><nro>372</nro><xBairro>CENTRO</xBairro><cMun>4106605</cMun><xMun>CRUZEIRO DO OESTE</xMun><UF>PR</UF><CEP>87400000</CEP><cPais>1058</cPais><xPais>BRASIL</xPais><fone>4436762081</fone></enderEmit><IE>9034527900</IE><CRT>3</CRT></emit><dest><CPF>02324142970</CPF><xNome>NF-E EMITIDA EM AMBIENTE DE HOMOLOGACAO - SEM VALOR FISCAL</xNome><enderDest><xLgr>RUA JOAO DE RESENDE</xLgr><nro>S/N</nro><xBairro>CENTRO</xBairro><cMun>4106605</cMun><xMun>CRUZEIRO DO OESTE</xMun><UF>PR</UF><CEP>87400000</CEP><cPais>1058</cPais><xPais>BRASIL</xPais></enderDest><indIEDest>9</indIEDest></dest><det nItem="1"><prod><cProd>0030074</cProd><cEAN>SEM GTIN</cEAN><xProd>CHICL. BUBBALOO</xProd><NCM>17041000</NCM><CFOP>5102</CFOP><uCom>UN</uCom><qCom>1.0000</qCom><vUnCom>0.1500000000</vUnCom><vProd>0.15</vProd><cEANTrib>SEM GTIN</cEANTrib><uTrib>UN</uTrib><qTrib>1.0000</qTrib><vUnTrib>0.1500000000</vUnTrib><indTot>1</indTot></prod><imposto><ICMS><ICMS00><orig>0</orig><CST>00</CST><modBC>2</modBC><vBC>0.15</vBC><pICMS>12.0000</pICMS><vICMS>0.02</vICMS></ICMS00></ICMS><IPI><cEnq>999</cEnq><IPINT><CST>53</CST></IPINT></IPI><PIS><PISOutr><CST>49</CST><vBC>0.00</vBC><pPIS>0.0000</pPIS>...

    Alguém tem ideia do que pode ser isso? Nessa função percebi que alguns parâmetros estão passando vazio e retorna nada no Result.

    Usando o "winCrypt" também dá o mesmo problema nessa dll "ntdll.dll",

    mas depurando a sequência de mensagens é diferente cai na dll "libxml2.dll" antes de ir para "ntdll.dll"

     

    Alguém tem alguma ideia para  descobrir porquê desse bug que está dando. Porque eu não

    consegui reproduzir esse problema na versão demonstração, em vista que nosso projeto tem vários detalhes...?

    Já que está sendo pago alguém deveria estar dando suporte...

     

    Erro ntdll.dll

    em Dúvidas gerais

    Postado

    23 horas atrás, adromarc disse:

    Depurando o projeto a exceção deu em um método "assinar" nas bibliotecas do ACBr,

    Lembrando que quando eu envio na primeira vez a nota vai normal, é na segunda vez que cai nessa exceção.

    Deem uma olhada nesta imagem:

     

    erro4.png

    É no método que está passando o xml que deu a exceçao: 

    ACBr_DFeComum.ACBrDFeXsLibXml2.TDFeSSLXmlSignLibXml2.Assinar('<?xml version="1.0" encoding="UTF-8"?><NFe xmlns="http://www.portalfiscal.inf.br/nfe"><infNFe versao="4.00" Id="NFe41220407424383000174550010000001881000001898"><ide><cUF>41</cUF><cNF>00000189</cNF><natOp>Venda de mercadoria adquirida ou recebida de terceiros</natOp><mod>55</mod><serie>1</serie><nNF>188</nNF><dhEmi>2022-04-07T00:00:00-03:00</dhEmi><dhSaiEnt>2022-04-07T00:00:00-03:00</dhSaiEnt><tpNF>1</tpNF><idDest>1</idDest><cMunFG>4106605</cMunFG><tpImp>1</tpImp><tpEmis>1</tpEmis><cDV>8</cDV><tpAmb>2</tpAmb><finNFe>1</finNFe><indFinal>1</indFinal><indPres>9</indPres><indIntermed>0</indIntermed><procEmi>0</procEmi><verProc>1.0.0.0</verProc></ide><emit><CNPJ>07424383000174</CNPJ><xNome>POSTO CRUZEIRO COLONIAL LTDA</xNome><xFant>POSTO CRUZEIRO COLONIAL LTDA</xFant><enderEmit><xLgr>AVENIDA SAO PAULO</xLgr><nro>372</nro><xBairro>CENTRO</xBairro><cMun>4106605</cMun><xMun>CRUZEIRO DO OESTE</xMun><UF>PR</UF><CEP>87400000</CEP><cPais>1058</cPais><xPais>BRASIL</xPais><fone>4436762081</fone></enderEmit><IE>9034527900</IE><CRT>3</CRT></emit><dest><CPF>02324142970</CPF><xNome>NF-E EMITIDA EM AMBIENTE DE HOMOLOGACAO - SEM VALOR FISCAL</xNome><enderDest><xLgr>RUA JOAO DE RESENDE</xLgr><nro>S/N</nro><xBairro>CENTRO</xBairro><cMun>4106605</cMun><xMun>CRUZEIRO DO OESTE</xMun><UF>PR</UF><CEP>87400000</CEP><cPais>1058</cPais><xPais>BRASIL</xPais></enderDest><indIEDest>9</indIEDest></dest><det nItem="1"><prod><cProd>0030074</cProd><cEAN>SEM GTIN</cEAN><xProd>CHICL. BUBBALOO</xProd><NCM>17041000</NCM><CFOP>5102</CFOP><uCom>UN</uCom><qCom>1.0000</qCom><vUnCom>0.1500000000</vUnCom><vProd>0.15</vProd><cEANTrib>SEM GTIN</cEANTrib><uTrib>UN</uTrib><qTrib>1.0000</qTrib><vUnTrib>0.1500000000</vUnTrib><indTot>1</indTot></prod><imposto><ICMS><ICMS00><orig>0</orig><CST>00</CST><modBC>2</modBC><vBC>0.15</vBC><pICMS>12.0000</pICMS><vICMS>0.02</vICMS></ICMS00></ICMS><IPI><cEnq>999</cEnq><IPINT><CST>53</CST></IPINT></IPI><PIS><PISOutr><CST>49</CST><vBC>0.00</vBC><pPIS>0.0000</pPIS>...

    Alguém tem ideia do que pode ser isso? Nessa função percebi que alguns parâmetros estão passando vazio e retorna nada no Result.

    Usando o "winCrypt" também dá o mesmo problema nessa dll "ntdll.dll",

    mas depurando a sequência de mensagens é diferente cai na dll "libxml2.dll" antes de ir para "ntdll.dll"

     

    erro5.png

    erro6.png

    erro8.png

    Erro ntdll.dll

    em Dúvidas gerais

    Postado

    18 horas atrás, adromarc disse:

    Depurando o projeto a exceção deu em um método "assinar" nas bibliotecas do ACBr,

    Lembrando que quando eu envio na primeira vez a nota vai normal, é na segunda vez que cai nessa exceção.

    Deem uma olhada nesta imagem:

     

    erro4.png

    É no método que está passando o xml que deu a exceçao: 

    ACBr_DFeComum.ACBrDFeXsLibXml2.TDFeSSLXmlSignLibXml2.Assinar('<?xml version="1.0" encoding="UTF-8"?><NFe xmlns="http://www.portalfiscal.inf.br/nfe"><infNFe versao="4.00" Id="NFe41220407424383000174550010000001881000001898"><ide><cUF>41</cUF><cNF>00000189</cNF><natOp>Venda de mercadoria adquirida ou recebida de terceiros</natOp><mod>55</mod><serie>1</serie><nNF>188</nNF><dhEmi>2022-04-07T00:00:00-03:00</dhEmi><dhSaiEnt>2022-04-07T00:00:00-03:00</dhSaiEnt><tpNF>1</tpNF><idDest>1</idDest><cMunFG>4106605</cMunFG><tpImp>1</tpImp><tpEmis>1</tpEmis><cDV>8</cDV><tpAmb>2</tpAmb><finNFe>1</finNFe><indFinal>1</indFinal><indPres>9</indPres><indIntermed>0</indIntermed><procEmi>0</procEmi><verProc>1.0.0.0</verProc></ide><emit><CNPJ>07424383000174</CNPJ><xNome>POSTO CRUZEIRO COLONIAL LTDA</xNome><xFant>POSTO CRUZEIRO COLONIAL LTDA</xFant><enderEmit><xLgr>AVENIDA SAO PAULO</xLgr><nro>372</nro><xBairro>CENTRO</xBairro><cMun>4106605</cMun><xMun>CRUZEIRO DO OESTE</xMun><UF>PR</UF><CEP>87400000</CEP><cPais>1058</cPais><xPais>BRASIL</xPais><fone>4436762081</fone></enderEmit><IE>9034527900</IE><CRT>3</CRT></emit><dest><CPF>02324142970</CPF><xNome>NF-E EMITIDA EM AMBIENTE DE HOMOLOGACAO - SEM VALOR FISCAL</xNome><enderDest><xLgr>RUA JOAO DE RESENDE</xLgr><nro>S/N</nro><xBairro>CENTRO</xBairro><cMun>4106605</cMun><xMun>CRUZEIRO DO OESTE</xMun><UF>PR</UF><CEP>87400000</CEP><cPais>1058</cPais><xPais>BRASIL</xPais></enderDest><indIEDest>9</indIEDest></dest><det nItem="1"><prod><cProd>0030074</cProd><cEAN>SEM GTIN</cEAN><xProd>CHICL. BUBBALOO</xProd><NCM>17041000</NCM><CFOP>5102</CFOP><uCom>UN</uCom><qCom>1.0000</qCom><vUnCom>0.1500000000</vUnCom><vProd>0.15</vProd><cEANTrib>SEM GTIN</cEANTrib><uTrib>UN</uTrib><qTrib>1.0000</qTrib><vUnTrib>0.1500000000</vUnTrib><indTot>1</indTot></prod><imposto><ICMS><ICMS00><orig>0</orig><CST>00</CST><modBC>2</modBC><vBC>0.15</vBC><pICMS>12.0000</pICMS><vICMS>0.02</vICMS></ICMS00></ICMS><IPI><cEnq>999</cEnq><IPINT><CST>53</CST></IPINT></IPI><PIS><PISOutr><CST>49</CST><vBC>0.00</vBC><pPIS>0.0000</pPIS>...

    Alguém tem ideia do que pode ser isso? Nessa função percebi que alguns parâmetros estão passando vazio e retorna nada no Result.

     

    Erro ntdll.dll

    em Dúvidas gerais

    Postado

    Depurando o projeto a exceção deu em um método "assinar" nas bibliotecas do ACBr,

    Lembrando que quando eu envio na primeira vez a nota vai normal, é na segunda vez que cai nessa exceção.

    Deem uma olhada nesta imagem:

     

    erro4.png

    É no método que está passando o xml que deu a exceçao: 

    ACBr_DFeComum.ACBrDFeXsLibXml2.TDFeSSLXmlSignLibXml2.Assinar('<?xml version="1.0" encoding="UTF-8"?><NFe xmlns="http://www.portalfiscal.inf.br/nfe"><infNFe versao="4.00" Id="NFe41220407424383000174550010000001881000001898"><ide><cUF>41</cUF><cNF>00000189</cNF><natOp>Venda de mercadoria adquirida ou recebida de terceiros</natOp><mod>55</mod><serie>1</serie><nNF>188</nNF><dhEmi>2022-04-07T00:00:00-03:00</dhEmi><dhSaiEnt>2022-04-07T00:00:00-03:00</dhSaiEnt><tpNF>1</tpNF><idDest>1</idDest><cMunFG>4106605</cMunFG><tpImp>1</tpImp><tpEmis>1</tpEmis><cDV>8</cDV><tpAmb>2</tpAmb><finNFe>1</finNFe><indFinal>1</indFinal><indPres>9</indPres><indIntermed>0</indIntermed><procEmi>0</procEmi><verProc>1.0.0.0</verProc></ide><emit><CNPJ>07424383000174</CNPJ><xNome>POSTO CRUZEIRO COLONIAL LTDA</xNome><xFant>POSTO CRUZEIRO COLONIAL LTDA</xFant><enderEmit><xLgr>AVENIDA SAO PAULO</xLgr><nro>372</nro><xBairro>CENTRO</xBairro><cMun>4106605</cMun><xMun>CRUZEIRO DO OESTE</xMun><UF>PR</UF><CEP>87400000</CEP><cPais>1058</cPais><xPais>BRASIL</xPais><fone>4436762081</fone></enderEmit><IE>9034527900</IE><CRT>3</CRT></emit><dest><CPF>02324142970</CPF><xNome>NF-E EMITIDA EM AMBIENTE DE HOMOLOGACAO - SEM VALOR FISCAL</xNome><enderDest><xLgr>RUA JOAO DE RESENDE</xLgr><nro>S/N</nro><xBairro>CENTRO</xBairro><cMun>4106605</cMun><xMun>CRUZEIRO DO OESTE</xMun><UF>PR</UF><CEP>87400000</CEP><cPais>1058</cPais><xPais>BRASIL</xPais></enderDest><indIEDest>9</indIEDest></dest><det nItem="1"><prod><cProd>0030074</cProd><cEAN>SEM GTIN</cEAN><xProd>CHICL. BUBBALOO</xProd><NCM>17041000</NCM><CFOP>5102</CFOP><uCom>UN</uCom><qCom>1.0000</qCom><vUnCom>0.1500000000</vUnCom><vProd>0.15</vProd><cEANTrib>SEM GTIN</cEANTrib><uTrib>UN</uTrib><qTrib>1.0000</qTrib><vUnTrib>0.1500000000</vUnTrib><indTot>1</indTot></prod><imposto><ICMS><ICMS00><orig>0</orig><CST>00</CST><modBC>2</modBC><vBC>0.15</vBC><pICMS>12.0000</pICMS><vICMS>0.02</vICMS></ICMS00></ICMS><IPI><cEnq>999</cEnq><IPINT><CST>53</CST></IPINT></IPI><PIS><PISOutr><CST>49</CST><vBC>0.00</vBC><pPIS>0.0000</pPIS>...

     

    Erro ntdll.dll

    em Dúvidas gerais

    Postado

    Estou usando o meu sistema como bpl dinâmicas linkando em runtime

    esse aqui é o exemplo do código que eu usei e as configurações: 

        //Executando no modelo NFCe 


	TACBrNFe(AACBrObj).Configuracoes.Geral.SSLLib := libOpenSSL
	TACBrNFe(AACBrObj).Configuracoes.Geral.SSLCryptLib := cryOpenSSL;
	TACBrNFe(AACBrObj).Configuracoes.Geral.SSLHttpLib := httpOpenSSL;
	TACBrNFe(AACBrObj).Configuracoes.Geral.SSLXmlSignLib := xsLibXml2;
	TACBrNFe(AACBrObj).Configuracoes.webservices.SSLtype := LT_TLSv1_2;
	  
	//este código é no momento que vou enviar    

  Parallel.Async(procedure
                 var
                 begin 
				     // Executando em BackGround thread
				      FSincrono := 1; //enviando de modo síncrono
					 
				     with FACBrNFCe do
                     begin
						 NotasFiscais.Clear;
						 WebServices.Enviar.Clear;
						 WebServices.Retorno.Clear;
						 WebServices.Recibo.Clear;
						 WebServices.Consulta.Clear;
						 WebServices.Inutilizacao.Clear;
						 WebServices.ConsultaCadastro.Clear;
						 WebServices.EnvEvento.Clear;
						 WebServices.AdministrarCSCNFCe.Clear;
						 WebServices.DistribuicaoDFe.Clear;
						 WebServices.EnvioWebService.Clear;

						 WebServices.Retorno.Recibo := '';
						 WebServices.Retorno.Protocolo := '';

						 NotasFiscais.LoadFromString(AXML);

						 NotasFiscais.GerarNFe;
						 NotasFiscais.Assinar;
						 NotasFiscais.Validar;
						  
						 if Enviar(1, False, FSincrono) then
						 begin
						   if FSincrono then
							 FDomParser.XML := WebServices.Enviar.RetWS
						   else
						   begin
							 FDomParser.XML := Trim(WebServices.Retorno.RetWS);
							 if FDomParser.XML = '' then
								FDomParser.XML := Trim(WebServices.Enviar.RetWS);
						   end;

						  { Adicionado Sincrono } //adicionei recentemente para pegar protocolo
						  if FSincrono then
							if Consultar then FDomParser.XML := WebServices.Consulta.RetWS;
						 end;
                    end;
                 end,

                 Parallel.TaskConfig.OnTerminated(procedure (const Task: IOmniTaskControl)
                                                  var
                                                    Excp: Exception;
                                                    S: String;
                                                  begin
													//Executa em Main Thread depois que termina em Background 
													
                                                    if Assigned(Task.FatalException) then //Caso exista exceção gera Uma mensagem de erro
                                                    begin
                                                      Excp := Task.DetachException;
                                                      try
														// É aqui que é pegado a excessão da dll "ntdll.dll"
                                                         AppMessageBox(Excp.Message, ' Sefa - Erro...', MB_OK + MB_ICONERROR);
                                                      finally
                                                        FreeAndNil(Excp);
                                                      end;
                                                    end
                                                    else // Caso Contrarario exibe a mensagem de retorno
                                                    begin                                                   
                                                      try
                                                        if FSincrono then 
															S := Trim(FACBrNFCe.WebServices.Enviar.Msg)
                                                        else 
															S := Trim(FACBrNFCe.WebServices.Retorno.Msg);

                                                        AppMessageBox(S, ' Sefa - Mensagem...', MB_OK + MB_ICONINFORMATION);

                                                      except
                                                        on E: Exception do
                                                            AppMessageBox(E.Message, ' Sefa - Erro...', MB_OK + MB_ICONERROR);
                                                      end;
                                                    end;

                                                   end)
	            );

     

    Erro ntdll.dll

    em Dúvidas gerais

    Postado

    Tentei de várias formas até copiei nessa dll "ntdll.dll" para pasta do meu projeto e nada.

    Só que esse erro acontece  em todas as máquinas que é instalado.

    Inclusive em máquina que acabaram de ser formatada, Indiferente do sistema Operacinal windows 7, 8, e 10.

    Foram testadas mais de 10 máquinas e continua o erro.

     

    O interessante é que na primeira tentativa ele vai certo e retorna status 100.

    Mas o problema é na segunda tentativa que ocorre uma exceção na hora de enviar e não retorna nada,

    parasse que não tem um tratamento é muito estranho, já com o capicom dá certo 

      Parallel.Async(procedure
                 var
                   FXML_SEFA: String;
                 begin
                   FXML_SEFA := HKStreamsReadString('{GLOBAL_XML_CONFIG_SEFA}');
                   FSincrono := XPathGetBoolean(FXML_SEFA, '//confignfce/envsincrono="1"');

                   Self.FDomParser.XML := '';

                   with FACBrNFCe do
                   begin
                     if HKStreamsReadInteger('{STATUS_NFCE_' + TpAmbToStr(Configuracoes.WebServices.Ambiente) + '}') = 1 then
                       raise Exception.Create('Existe uma transmissão em andamento. Aguarde a finalização e tente novamente!');

                     if Self.FIntervTempoNFCe > 0 then
                       if SecondsBetween(Now(), HKStreamsReadDateTime('{ACESSO_NFCE_' + TpAmbToStr(Configuracoes.WebServices.Ambiente) + '}')) < Self.FIntervTempoNFCe then
                         raise Exception.Create('O INTERVALO MÍNIMO ENTRE TRANSMISSÕES NÃO FOI ATINGIDO - ÚLTIMO: ' +
                                                FormatDateTime('dd/mm/yyyy hh:nn:ss', HKStreamsReadDateTime('{ACESSO_NFCE_' + TpAmbToStr(Configuracoes.WebServices.Ambiente) + '}')));

                     NotasFiscais.Clear;

                     WebServices.Enviar.Clear;
                     WebServices.Retorno.Clear;
                     WebServices.Recibo.Clear;
                     WebServices.Consulta.Clear;
                     WebServices.Inutilizacao.Clear;
                     WebServices.ConsultaCadastro.Clear;
                     WebServices.EnvEvento.Clear;
                     WebServices.AdministrarCSCNFCe.Clear;
                     WebServices.DistribuicaoDFe.Clear;
                     WebServices.EnvioWebService.Clear;

                     WebServices.Retorno.Recibo := '';
                     WebServices.Retorno.Protocolo := '';

                     NotasFiscais.LoadFromString(AXML);

                     NotasFiscais.GerarNFe;
                     NotasFiscais.Assinar;
                     NotasFiscais.Validar;
                     HKStreamsWriteInteger('{STATUS_NFCE_' + TpAmbToStr(Configuracoes.WebServices.Ambiente) + '}', 1);
                     LogSalvar('"EnviaNFCe" - Linha: 2090');
        
                     if Enviar(1, False, FSincrono) then
                     begin
                       if FSincrono then
                         FDomParser.XML := WebServices.Enviar.RetWS
                       else
                       begin
                         FDomParser.XML := Trim(WebServices.Retorno.RetWS);
                         if FDomParser.XML = '' then
                            FDomParser.XML := Trim(WebServices.Enviar.RetWS);
                       end;

                      { Adicionado Sincrono }
                      if FSincrono then
                        if Consultar then FDomParser.XML := WebServices.Consulta.RetWS;
                     end;
                     LogSalvar('"EnviaNFCe" - Linha: 2110');
                   end;
                 end,

                 Parallel.TaskConfig.OnTerminated(procedure (const Task: IOmniTaskControl)
                                                  var
                                                    Excp: Exception;
                                                    S: String;
                                                  begin
   
                                                    HKStreamsWriteInteger('{STATUS_NFCE_' + TpAmbToStr(FACBrNFCe.Configuracoes.WebServices.Ambiente) + '}', 0);

                                                    if FHandleForm > 0 then
                                                      EnviaMensagem(FHandleForm, '', '', 'AM_LIMPAR_MENSAGEM');

                                                    if Assigned(Task.FatalException) then
                                                    begin
                                                      Excp := Task.DetachException;
                                                      try
                                                        if Assigned(AInstancia) and (AProcAposErro <> '') then
                                                          Self.Invoke(AInstancia, AProcAposErro,
                                                                                  [Excp.Message,
                                                                                   FACBrNFCe.SSL.HTTPResultCode,
                                                                                   FACBrNFCe.SSL.InternalErrorCode]);

                                                        if FHandleForm > 0 then
                                                          EnviaMensagem(FHandleForm, Excp.Message, '')
                                                        else
                                                        begin
                                                          LogSalvar('"EnviaNFCe" - Linha: 2137 - Msg: '+Excp.Message); {AQUI QUE É                                                                              GERADA A EXCEÇÃO}
                                                          AppMessageBox(Excp.Message, ' Sefa - Erro...', MB_OK + MB_ICONERROR);
                                                        end;

                                                      finally
                                                        FreeAndNil(Excp);
                                                      end;
                                                    end

     

    Usando a versão de demonstração na hora de carregar o certificado o xml para validar aparece essa mensagem de errro,

    com o capicom ele consegue validar e assinar

    erro2.png

    Erro ntdll.dll

    em Dúvidas gerais

    Postado

    Tentei de várias formas até copiei nessa dll "ntdll.dll" para pasta do meu projeto e nada.

    Só que esse erro acontece  em todas as máquinas que é instalado.

    Inclusive em máquina que acabaram de ser formatada, Indiferente do sistema Operacinal windows 7, 8, e 10.

    Foram testadas mais de 10 máquinas e continua o erro.

     

    O interessante é que na primeira tentativa ele vai certo e retorna status 100.

    Mas o problema é na segunda tentativa que ocorre uma exceção na hora de enviar e não retorna nada,

    parasse que não tem um tratamento é muito estranho, já com o capicom dá certo 

      Parallel.Async(procedure
                 var
                   FXML_SEFA: String;
                 begin
                   FXML_SEFA := HKStreamsReadString('{GLOBAL_XML_CONFIG_SEFA}');
                   FSincrono := XPathGetBoolean(FXML_SEFA, '//confignfce/envsincrono="1"');

                   Self.FDomParser.XML := '';

                   with FACBrNFCe do
                   begin
                     if HKStreamsReadInteger('{STATUS_NFCE_' + TpAmbToStr(Configuracoes.WebServices.Ambiente) + '}') = 1 then
                       raise Exception.Create('Existe uma transmissão em andamento. Aguarde a finalização e tente novamente!');

                     if Self.FIntervTempoNFCe > 0 then
                       if SecondsBetween(Now(), HKStreamsReadDateTime('{ACESSO_NFCE_' + TpAmbToStr(Configuracoes.WebServices.Ambiente) + '}')) < Self.FIntervTempoNFCe then
                         raise Exception.Create('O INTERVALO MÍNIMO ENTRE TRANSMISSÕES NÃO FOI ATINGIDO - ÚLTIMO: ' +
                                                FormatDateTime('dd/mm/yyyy hh:nn:ss', HKStreamsReadDateTime('{ACESSO_NFCE_' + TpAmbToStr(Configuracoes.WebServices.Ambiente) + '}')));

                     NotasFiscais.Clear;

                     WebServices.Enviar.Clear;
                     WebServices.Retorno.Clear;
                     WebServices.Recibo.Clear;
                     WebServices.Consulta.Clear;
                     WebServices.Inutilizacao.Clear;
                     WebServices.ConsultaCadastro.Clear;
                     WebServices.EnvEvento.Clear;
                     WebServices.AdministrarCSCNFCe.Clear;
                     WebServices.DistribuicaoDFe.Clear;
                     WebServices.EnvioWebService.Clear;

                     WebServices.Retorno.Recibo := '';
                     WebServices.Retorno.Protocolo := '';

                     NotasFiscais.LoadFromString(AXML);

                     NotasFiscais.GerarNFe;
                     NotasFiscais.Assinar;
                     NotasFiscais.Validar;
                     HKStreamsWriteInteger('{STATUS_NFCE_' + TpAmbToStr(Configuracoes.WebServices.Ambiente) + '}', 1);
                     LogSalvar('"EnviaNFCe" - Linha: 2090');
        
                     if Enviar(1, False, FSincrono) then
                     begin
                       if FSincrono then
                         FDomParser.XML := WebServices.Enviar.RetWS
                       else
                       begin
                         FDomParser.XML := Trim(WebServices.Retorno.RetWS);
                         if FDomParser.XML = '' then
                            FDomParser.XML := Trim(WebServices.Enviar.RetWS);
                       end;

                      { Adicionado Sincrono }
                      if FSincrono then
                        if Consultar then FDomParser.XML := WebServices.Consulta.RetWS;
                     end;
                     LogSalvar('"EnviaNFCe" - Linha: 2110');
                   end;
                 end,

                 Parallel.TaskConfig.OnTerminated(procedure (const Task: IOmniTaskControl)
                                                  var
                                                    Excp: Exception;
                                                    S: String;
                                                  begin
   
                                                    HKStreamsWriteInteger('{STATUS_NFCE_' + TpAmbToStr(FACBrNFCe.Configuracoes.WebServices.Ambiente) + '}', 0);

                                                    if FHandleForm > 0 then
                                                      EnviaMensagem(FHandleForm, '', '', 'AM_LIMPAR_MENSAGEM');

                                                    if Assigned(Task.FatalException) then
                                                    begin
                                                      Excp := Task.DetachException;
                                                      try
                                                        if Assigned(AInstancia) and (AProcAposErro <> '') then
                                                          Self.Invoke(AInstancia, AProcAposErro,
                                                                                  [Excp.Message,
                                                                                   FACBrNFCe.SSL.HTTPResultCode,
                                                                                   FACBrNFCe.SSL.InternalErrorCode]);

                                                        if FHandleForm > 0 then
                                                          EnviaMensagem(FHandleForm, Excp.Message, '')
                                                        else
                                                        begin
                                                          LogSalvar('"EnviaNFCe" - Linha: 2137 - Msg: '+Excp.Message); {AQUI QUE É                                                                              GERADA A EXCEÇÃO}
                                                          AppMessageBox(Excp.Message, ' Sefa - Erro...', MB_OK + MB_ICONERROR);
                                                        end;

                                                      finally
                                                        FreeAndNil(Excp);
                                                      end;
                                                    end

     

    Erro ntdll.dll

    em Dúvidas gerais

    Postado

    Com o demo não testei, no openssl está certo está configuração: 

       TACBrNFe(AACBrObj).Configuracoes.Geral.SSLCryptLib := cryOpenSSL;
   TACBrNFe(AACBrObj).Configuracoes.Geral.SSLHttpLib := httpOpenSSL;
   TACBrNFe(AACBrObj).Configuracoes.Geral.SSLXmlSignLib := xsMsXml;
   TACBrNFe(AACBrObj).Configuracoes.webservices.SSLtype := LT_TLSv1_2;

     

    Erro ntdll.dll

    em Dúvidas gerais

    Postado

    Estou tendo esse erro "ntdll.dll" com a utilização do WinCrypt e OpenSsl, usei as mesma configurações do exemplo aqui do fórum e continua aparecendo essa mensagem, só o capicom que está dando certo.

      

        TACBrNFe(AACBrObj).Configuracoes.Geral.SSLLib := TSSLLib(FTipo);
    if FTipo = 1 then   //OpenSSL
    begin
      TACBrNFe(AACBrObj).Configuracoes.Geral.SSLCryptLib := cryOpenSSL;
      TACBrNFe(AACBrObj).Configuracoes.Geral.SSLHttpLib := httpOpenSSL;
      TACBrNFe(AACBrObj).Configuracoes.Geral.SSLXmlSignLib := xsMsXml;
      TACBrNFe(AACBrObj).Configuracoes.webservices.SSLtype := LT_TLSv1_2;
    end
    else if FTipo =  4 then  //winCrypt
    begin
      TACBrNFe(AACBrObj).Configuracoes.Geral.SSLCryptLib := cryWinCrypt;
      TACBrNFe(AACBrObj).Configuracoes.Geral.SSLHttpLib := httpWinHttp;
      TACBrNFe(AACBrObj).Configuracoes.Geral.SSLXmlSignLib := xsLibXml2;
      TACBrNFe(AACBrObj).Configuracoes.webservices.SSLtype := LT_TLSv1_2;
    end
    else if FTipo = 2 then //Capicom
    begin
      TACBrNFe(AACBrObj).Configuracoes.Geral.SSLLib := libcapicomdelphisoap;
      TACBrNFe(AACBrObj).Configuracoes.Geral.SSLCryptLib := cryCapicom;
      TACBrNFe(AACBrObj).Configuracoes.Geral.SSLHttpLib := httpIndy;
      TACBrNFe(AACBrObj).Configuracoes.Geral.SSLXmlSignLib := xsMsXmlCapicom;
      TACBrNFe(AACBrObj).Configuracoes.webservices.SSLtype := LT_TLSv1_2;
    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.

The popup will be closed in 10 segundos...