Daniel Simoes

Você poderia usar "ACBrECF1.TipoUltimoDocumento"... mas esse método não funciona em todos os modelos...

Se você usa CAPICOM e está na dúvida do que é retornado, verifique esse post, para habilitar o retorno em modo de DEBUG

A correção está correta, acabei esquecendo de enviar para o SVN, me desculpem... já está corrigido

Em relação a Unit ACBrNFeDANFEFRDM.pas modifiquei as linhas: iDelLen := PCardinal(Cardinal(ADelimiter) - SizeOf(Cardinal))^; iLen := PCardinal(Cardinal(AString) - SizeOf(Cardinal))^; para: iDelLen := Length(ADelimiter); iLen := Length(AString);

Em relação a JediWin32API, apliquei as seguintes modificações

aparentemente há algo errado na instalação do Fortes CE... por favor remova-o e reinstale-o pelo Instalador Acabei de rodar o ACBrInstall_Trunk2.exe no D7 e funcionou normalmente..

Pois é... antes de sair "achando", eu rodei a UnitTeste em Lazarus, D7 e XE7... todas retornaram 19.66

Não viaja... o RoundABNT não resulta 19.67 e sim 19.66... antes de sair falando... use a UnitTeste dblValorUnit := 0.69; dblQtde := 28.50; dblTotal := dblValorUnit * dblQtde; CheckEquals( 19.66, RoundABNT(dblTotal, 2)); Não responderei mais a esse tópico, a não ser que os "entendidos" façam testes usando a UnitTeste... Não sabe usar a UnitTeste ? então use o ECFTeste, e venda um item com os valores indicados, em um emulador de ECFs qualquer, pois eles seguem a regra de arredondamento do ABNT... (Use 3 casas na Qtd, se necessário (e não no Preço Unitário))

Muito obrigado pela analise e ajuda... já está no SVN... Lembrando que para usar a Carga Tardia com DELAYED é necessário: Ter Delphi 2010 ou superior (não funciona no Lazarus/FPC) Ativar a diretiva USE_DELAYED no ACBr.inc {.$DEFINE USE_DELAYED} // DESATIVADA {$DEFINE USE_DELAYED} // ATIVADA

poderia por favor postar o Log do ACBrInstall ?

poderia por favor anexar as Units modificadas ?

Amarildo, Poderia por favor descrever melhor, como reproduzir o problema ? Ate o momento não compreendi o que você considera como errado... Preciso conseguir reproduzi-lo no ECFTeste, para debugar e analisar suas sugestões

É a senha do Cerificado... Qual outra poderia ser ??

Vc usa Capicom ? Se SIM, por favor ligue (descomente) a linha de DEBUG em ACBrDFeCapicom.pas: 640 function TDFeCapicom.Enviar(const ConteudoXML: String; const URL: String; const SoapAction: String; const MimeType: String): String; var Resp: TMemoryStream; begin Result := ''; if MimeType = '' then FMimeType := 'application/soap+xml' else FMimeType := MimeType; ConfiguraReqResp(URL, SoapAction); Resp := TMemoryStream.Create; try Executar(ConteudoXML, Resp); Resp.Position := 0; Result := ReadStrFromStream(Resp, Resp.Size); // DEBUG // //Resp.SaveToFile('c:\temp\ReqResp.xml'); // <------ AQUI ----- finally Resp.Free; end; end; Recompile e após isso, verifique o conteúdo de "c:\temp\ReqResp.xml" (ajuste o Path se necessário)

Oi Waldir, obrigado pela contínua colaboração... por favor anexe a Unit para analise...

poderia por favor anexar as Units modificadas ? Seria muito melhor usarmos a carga dinâmica, com mapeamento dos métodos, para variáveis internas na Unit... mas essa mudança é bastante substancial... Tenho receio de que elas possam trazer efeitos colaterais...

Foi intencional... não achei necessário... Da maneira que está... ele só inicializará a XMLSec, quando realmente precisar... ou seja, quando algum método que precisa da XMLSec for acionado...

O WebService anterior não existe mais (saiu do ar)... leia:

Você alterou toda a Unit ? são centenas de métodos... Acabo de enviar modificações modificações para o SVN, para contemplar a diretiva de compilação, USE_DELAYED Não seria mais simples, remover o "FreeLibrary" da inicialização ? Algo como finalization if Assigned( libHandle ) FreeLibrary(libHandle);

Configure no PLUS, aba DFe->Certificados - Caminho para arquivo PFX - Senha As DLLs do OpenSSL já acompanham a instalação do PLUS

Veja a linha: ACBrMail.pas:695 // Sending Blind Carbon Copies //

Correção já está no SVN...

Enviei para o SVN modificações que devem corrigir o problema... -- ACBrDFeSSL, ACBrDFeCapicom, ACBrDFeOpenSSL, ACBrHTTPReqResp -- [*] Ajustes para o correto funcionamento, quando a propriedade DFeSSL.UseCertificate = False (por: DSA) -- ACBrDFeCapicom -- [-] Correção no ajuste do Proxy, quando informando valores vazios (por: DSA) -- ACBrDFeOpenSSL -- [-] Correção de encoding nas mensagens de Erro de "VerificarAssinatura" (por: DSA) Fiz um teste bem simples, usando uma consulta em um WebService do Correios. procedure TForm1.Button7Click(Sender: TObject); var Acao: String; begin Acao := '<?xml version="1.0" encoding="UTF-8" standalone="no"?>'+ '<soapenv:Envelope xmlns:soapenv="http://schemas.xmlsoap.org/soap/envelope/" '+ 'xmlns:cli="http://cliente.bean.master.sigep.bsb.correios.com.br/"> '+ ' <soapenv:Header/>'+ ' <soapenv:Body>' + ' <cli:consultaCEP>' + ' <cep>18270-170</cep>' + ' </cli:consultaCEP>' + ' </soapenv:Body>' + ' </soapenv:Envelope>'; ACBrNFe1.SSL.UseCertificate := False; ACBrNFe1.SSL.UseSSL := False; WBResposta.Text := ACBrNFe1.SSL.Enviar(Acao, 'https://apps.correios.com.br/SigepMasterJPA/AtendeClienteService/AtendeCliente?wsdl', ''); end;

O problema foi acidentalmente ocasionado na revisão 11339... já corrigi o problema no SVN

Reverti a modificação... obrigado pela analise e bug report...