Painel de líderes

Atualize seus fontes e compile procedure TfrmDemo_ACBrMDFe.btnMDFeNaoEncerradoClick(Sender: TObject); begin // seus padroes de configuracao. ACBrMDFe1.Configuracoes.Geral.RetirarAcentos := False; ACBrMDFe1.ConsultarMDFeNaoEnc(edtEmitCNPJ.Text); MemoResp.Lines.Text := UTF8Encode(ACBrMDFe1.WebServices.ConsMDFeNaoEnc.RetWS); memoRespWS.Lines.Text := UTF8Encode(ACBrMDFe1.WebServices.ConsMDFeNaoEnc.RetornoWS); LoadXML(MemoResp, WBResposta); end;

Boa tarde Wislei, Após realizar a consulta, tente ler a chave desta forma: chave := ACBrMDFe1.WebServices.ConsMDFeNaoEnc.InfMDFe.Items[x].chMDFe; coloque a linha acima dentro de um loop, onde x é o índice iniciando de zero.

Bom dia a todos, vamos lá: 1) Alteração da unit ACBrNFeWebServices.pas - Capicom.dll {$ELSE} procedure TWebServicesBase.ConfiguraReqResp( ReqResp : THTTPReqResp); begin if FConfiguracoes.WebServices.ProxyHost <> '' then begin ReqResp.Proxy := FConfiguracoes.WebServices.ProxyHost+':'+FConfiguracoes.WebServices.ProxyPort; ReqResp.UserName := FConfiguracoes.WebServices.ProxyUser; ReqResp.Password := FConfiguracoes.WebServices.ProxyPass; ReqResp.ProxyByPass := '*gov.br*'; end; ReqResp.OnBeforePost := OnBeforePost; end; 2) Detectar se o IE utiliza proxy uses Registry, Types, StrUtils; function GetIEProxy(out AHost, APort: String): Boolean; var I: Integer; sList, sProxies: TStringDynArray; sProxyServer: String; bProxyEnable: Boolean; begin Result := False; AHost := ''; APort := ''; with TRegistry.Create do begin try RootKey := HKEY_CURRENT_USER; if OpenKeyReadOnly('\Software\Microsoft\Windows\CurrentVersion\Internet Settings') then begin if ValueExists('ProxyServer') then sProxyServer := ReadString('ProxyServer'); if ValueExists('ProxyEnable') then bProxyEnable := ReadBool('ProxyEnable'); if bProxyEnable and (sProxyServer<>'') then begin //-- Identificar proxy if ContainsStr(sProxyServer, '=') then begin sList := SplitString(sProxyServer, ';'); sProxyServer := ''; for I := 0 to Length(sList)-1 do begin if ContainsStr(sList, 'https=') then sProxyServer := StringReplace(sList, 'https=', '', []); end; end; //-- if (sProxyServer<>'') then begin sProxies := SplitString(sProxyServer, ':'); AHost := sProxies[0]; APort := sProxies[1]; end; //-- Result := (AHost<>''); end; CloseKey; end else Result := False; finally Free; end; end; end; 3) Configurar componente procedure ConfigACBrNFe; var sHost, sPort: String; begin //-- Verificar se está configurado para proxy if (GetIEProxy(sHost, sPort) and (edtProxyHost.Text='')) then begin end ..Configuracoes.WebServices.ProxyHost := sHost; ..Configuracoes.WebServices.ProxyPort := sPort; ..Configuracoes.WebServices.ProxyUser := ''; ..Configuracoes.WebServices.ProxyPass := ''; else begin ..Configuracoes.WebServices.ProxyHost := edtProxyHost.Text; ..Configuracoes.WebServices.ProxyPort := edtProxyPort.Text; ..Configuracoes.WebServices.ProxyUser := edtProxyUser.Text; ..Configuracoes.WebServices.ProxyPass := edtProxyPass.Text; end; end;

Boa tarde a todos, Quando ocorre a rejeição: assinatura não confere, significa que o XML foi alterado após ter sido assinado. Alguns provedores resolveram colocar o identificador todo em minusculo, ou seja, "id" onde a grande maioria usa "Id" (a letra i em maiúsculo). Se deixar tudo em minusculo ocorre erro ao tentar assinar, se colocar o i em maiúsculo a assinatura ocorre mas depois o lote não é validado pois o schema não reconhece o atributo. O que fazer então? Não assinar? Se não assinar o Web Services rejeita acusando a falta da assinatura. Se assinar com o identificador alterado e depois alterar para "id" pode ocorrer rejeição: assinatura não confere. Criar uma DLL em C que seja capaz de assinar sem alterar o identificador?

atualizei os fontes hoje 11/02/2015, compilei as blp's e ainda esta gerando o TXT sem a linha "A" do arquivo. alguma novidade sobre esse erro ?