adromarc

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?

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...

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?

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

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...

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"

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: É 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>...

Vi aqui no fórum vários relatos e tópicos criados sobre esse mesmo problema: https://www.projetoacbr.com.br/forum/topic/45171-viola%C3%A7%C3%A3o-do-acesso-ntdlldll/ https://www.projetoacbr.com.br/forum/topic/1987-erro-ntdlldll/ Estou testando na demo e tentando fazer reproduzir esse problema só que continua aparecendo essa tela, qual é configuração correta com o OpenSsl?

Esse problema para que é alguma exceção do próprio windows, não teria como tratar essa exceção no fonte? Para quando ele retornar isso ignorar?

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) );

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

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

Aparece essa mensagem com o OpenSSL na hora e validar e enviar

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;