Jump to content

Assista click.png tectoy.png

C6 chamada_c6.png botao.png

Cancelamento de NFC-e


Go to solution Solved by Gustavo de Souza,

Recommended Posts

Boa tarde!

Estou tentando fazer o cancelamento da NFC-e e está dando um erro (UF em branco),

alguém sabe me dizer onde estou errando? Segue o código abaixo.

Obs: o arquivo vem de um campo BLOB do BD.

Desde já agradeço a atenção

 

procedure TfrmMonitor.CancelaVenda;
  var
    idLote : string;
begin
  if frmPrincipal.dfe = 'NFCE' then
    begin
      with frmPrincipal do
        begin
          with DmPrincipal.qryNFCe do
            begin
              Close;
              SQL.Clear;
              SQL.Add('SELECT * FROM NFCE ');
              SQL.Add('WHERE VENDA = :VND');
              ParamByName('VND').Value:=codVenda;
              Open;

              ACBrNFe1.NotasFiscais.Clear;
              ACBrNFe1.NotasFiscais.LoadFromString(FieldByName('XML_ENV').AsString);

              idLote :='1';

              ACBrNFe1.EventoNFe.Evento.Clear;
              ACBrNFe1.EventoNFe.idLote := StrToInt(idLote);

              with ACBrNFe1.EventoNFe.Evento.New do
                begin
                  infEvento.dhEvento :=now;
                  infEvento.tpEvento :=teCancelamento;
                  infEvento.detEvento.xJust :=motivo;
                end;

              ACBrNFe1.EnviarEvento(StrToInt(idLote));

              if rbEscPos.Checked then
                ACBrNFe1.DANFE :=AcbrNfeDANFCeESCPOS1
              else
                ACBrNFe1.DANFE :=ACBrNFeDANFCeFortes1;

              ACBrNFe1.NotasFiscais.Imprimir;
            end;

          with frmPrincipal.ACBrNFe1.WebServices.EnvEvento.EventoRetorno.retEvento do
            begin
              Stat            :=Items[0].RetInfEvento.cStat;
              motivo        :=Items[0].RetInfEvento.xMotivo;
              saidaNFCe :=Items[0].RetInfEvento.dhRegEvento;
              protocolo    :=Items[0].RetInfEvento.nProt;

              dataNFCe :=EncodeDate(YearOf(saidaNFCe),MonthOf(saidaNFCe),DayOf(saidaNFCe));


              with DmPrincipal.qryNFCe do
                begin
                  Edit;
                  FieldByName('DATA_CAN').AsDateTime :=dataNFCe;
                  FieldByName('PROC_CAN').AsString      :=protocolo;
                  FieldByName('MOTIVO').AsString           :=motivo;
                  FieldByName('XML_CAN').AsString         :=Items[0].RetInfEvento.XML;
                  Post;
                  ApplyUpdates(0);
                  Close;
                end;
            end;
        end;
    end;
end;

Link to comment
Share on other sites

  • Administradores

Obrigado por reportar.

Fechando. Para novas dúvidas, criar um novo tópico.

Consultora SAC ACBr

Juliana Tamizou
Ajude o Projeto ACBr crescer - Assine o SAC

Projeto ACBr     Telefone:(15) 2105-0750 WhatsApp(15)99790-2976.  Discord

Projeto ACBr - A maior comunidade Open Source de Automação Comercial do Brasil


Participe de nosso canal no Discord e fique ainda mais próximo da Comunidade !!

Link to comment
Share on other sites

Guest
This topic is now closed to further replies.
×
×
  • 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.