Envio de CC-e - RESOLVIDO

[gss200610]

ola, atualizei meus fontes do ACBR,e compilei o projeto agora esta ocorrendo o seguinte erro ao enviar a CC-e, abaixo segue o codigo q estou usando com base no acbr, e antes de atualizar estava ok, talvez eu esteja sem informar algum dado.

se alguem puder da uma ajuda ai, agradeço.

segue anexo imagem do erro

procedure TFrmNotaFiscal.ToolButton1Click(Sender: TObject);

var

 Chave, idLote, CNPJ, nSeqEvento, Correcao : string;

begin

  nSeqEvento := '2';

  DM.QNF.Close;

  DM.QNF.ParamByName('codnf').AsInteger := StrToInt( EdtCod.Text );

  DM.QNF.Open;


  Application.CreateForm(TfrmDadosCCE, frmDadosCCE);

  frmDadosCCE.ShowModal;

  Correcao := frmDadosCCE.mDadosCCe.Text;

  Chave := DM.QNFCHAVE_ACESSO_NFE.AsString;

  Chave := Trim(OnlyNumber(Chave));

  idLote := '2';

  CNPJ := copy(Chave,7,14);

  DM.ACBrNFe1.EnvEvento.EnvEventoNFe.Evento.Clear;

  DM.ACBrNFe1.EnvEvento.EnvEventoNFe.idLote := StrToInt(idLote) ;

  with DM.ACBrNFe1.EnvEvento.EnvEventoNFe.Evento.Add do

   begin

     infEvento.chNFe := Chave;

     infEvento.CNPJ   := CNPJ;

     infEvento.dhEvento := now;

     infEvento.tpEvento := teCCe;

     infEvento.nSeqEvento := StrToInt(nSeqEvento);

     infEvento.detEvento.xCorrecao := Correcao;


   end;

  DM.ACBrNFe1.EnviarEventoNFe(StrToInt(idLote));

  PrisAlerta( DM.ACBrNFe1.WebServices.EnvEvento.xMotivo );


end;

CORRECAO DIA 01/10/2012 - SOLUCIONOU OS PROBLEMAS, APENAS ATUALIZEI OS FONTES DO SVN, GRATO.