Cancelamento de NFC-e

[Gustavo de Souza]

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;

[Gustavo de Souza]

Boa tarde!

Peço encarecidamente descupas o código está correto, estava pegando a xml de outra tabela.

Minhas sinceras descupas.

[Juliana Tamizou]

Obrigado por reportar.

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