leandrosouzadsv

Boa tarde. httpsend.pas

ACBr\Fontes\Terceiros\synalist\httpsend.pas Identifiquei que o problema no FSock que esta destruido na primeira vez: Fiz uma medida de contenção, esta funcionando. if FSock.Socket = INVALID_SOCKET then FSock.CreateSocket; function THTTPSend.InternalDoConnect(needssl: Boolean): Boolean; begin Result := False; for var liTentativas := 1 to 3 do begin try FSock.CloseSocket; Sleep(300); if FSock.Socket = INVALID_SOCKET then FSock.CreateSocket; if FSock.LastError <> 0 then Continue; FSock.Bind(FIPInterface, cAnyPort); if FSock.LastError <> 0 then Continue; FSock.Connect(FTargetHost, FTargetPort); if FSock.LastError <> 0 then begin Sleep(500); Continue; end; if needssl then begin FSock.SSL.SNIHost := FTargetHost; FSock.SSLDoConnect; if FSock.LastError <> 0 then begin FSock.CloseSocket; Sleep(500); Continue; end; end; FAliveHost := FTargetHost; FAlivePort := FTargetPort; Result := True; Break; except FSock.CloseSocket; Sleep(500); end; end; end;

Boa tarde pessoal, tenho uma nfse enviada e cancelada, no padrão nacional pelo ACBRNFSeX, ambiente de homologação. Quando cancelei a nota, não recuperei os dados de cancelamento, tenho como recuperá-los por consulta? Já utilizei as consultas disponíveis, mas a situacaoNFSe vem snNormal.