Envio NFC-e

[Arnaldo Cruz]

Estou enviando a NFC-e como segue abaixo

Protocol      := '';
Recibo        := '';
ChaveNfc      := '';
EdtProtocolo  := '';
edtRecibo     := '';
NomeArqOR     := '';
NomeArq       := '';
NovoCaminho   := '';
FDataModule.ACBrNFe1.NotasFiscais.Clear ;
FDataModule.ACBrNFeDANFeESCPOS1.ViaConsumidor :=False;
FDataModule.ACBrNFeDANFeESCPOS1.NumCopias := edtNumeroVias.AsInteger ;
FDataModule.ACBrNFe1.NotasFiscais.LoadFromFile(Caminho); //Carrego o xml gerado
FDataModule.ACBrNFe1.Enviar('1',False ,False  );
cStat         := IntToStr(FDataModule.ACBrNFe1.WebServices.Retorno.cStat);
Protocol      := FDataModule.ACBrNFe1.WebServices.Retorno.NFeRetorno.ProtNFe.Items[0].nProt;
Recibo        := FDataModule.ACBrNFe1.WebServices.Retorno.NFeRetorno.nRec;
ChaveNfc      := FDataModule.ACBrNFe1.WebServices.Retorno.NFeRetorno.ProtNFe.Items[0].chNFe;

if cStat = '100'   then
begin
     if Protocol <> '' then
     begin
         Aqui verifico se já existe o numero de protocolo gravado no banco de dados
        if não existe no banco de dados then
        begin
            Gravo no banco de dados
            O problema é que volta cStat 100, volta o numero do protocolo
            porem quando eu consulto no site a NFC-e não foi transmitida.
        end else begin
            Aqui as vezes volta o protocolo e recibo da penultima nota transmitida
            Só acontece em clientes que usam Certificado A3
        end;
    end;
end;