Jump to content

dev botao

  • Este tópico foi criado há 2997 dias atrás.
  • Talvez seja melhor você criar um NOVO TÓPICO do que postar uma resposta aqui.

Recommended Posts

  • Membros Pro
Posted

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;
   

  • Este tópico foi criado há 2997 dias atrás.
  • Talvez seja melhor você criar um NOVO TÓPICO do que postar uma resposta aqui.

Create an account or sign in to comment

You need to be a member in order to leave a comment

Create an account

Sign up for a new account in our community. It's easy!

Register a new account

Sign in

Already have an account? Sign in here.

Sign In Now
×
×
  • Create New...

Important Information

We have placed cookies on your device to help make this website better. You can adjust your cookie settings, otherwise we'll assume you're okay to continue.