Cte Gerando 2 Xmls

[emrinfo]

Boa tarde a todos!  Estou gerando o xml do cte em homologacao MG com a rotina abaixo so que assinatura esta ficando em um novo xml, na verdade fico com 2 xmls um sem assinatura e outro com a assinatura mas sem as informacoes do primeiro. Com isso da varios erros de informacoes. Alguem ja passou por este problema. 

 

           vAux          := cdsPesquisaID_NUMERO_CONH_FRS.AsString;

           vNumLote  := CDS_EmpresaNUM_LOTE_CONHEC_EMP.AsString;

 

           ACBrCTe1.Conhecimentos.Clear;

           GerarCTe(vAux);

           ACBrCTe1.Enviar(StrToInt(vNumLote));

 

 

[Italo Giurizzato Junior]

Boa noite emrinfo,

 

Dentro da procedure GerarCTe, não tem nenhum comando que esta salvando o XML?

Se tem, remova.

[emrinfo]

Boa tarde!

 

Qdo estou validando ele gera um novo xml so com a assinatura ( ACBrCTe1.Conhecimentos.Valida).

 

 

 

 cxGrid1DBTableView1.DataController.DataSet.First;

 while not cxGrid1DBTableView1.DataController.DataSet.Eof  do
 begin
//    cxGrid1DBTableView1DBColumn1.EditValue  := 'S';
//    showMessage(': ' + IntToStr(i));
//    showMessage('[DbColumn1]: ' + cxGrid1DBTableView1ID_NUMERO_CONH_FRS.EditValue);
       if  cxGrid1DBTableView1DBColumn1.EditValue  = 'S'  Then
       Begin
           vAux      := cdsPesquisaID_NUMERO_CONH_FRS.AsString;
           vNumLote  := CDS_EmpresaNUM_LOTE_CONHEC_EMP.AsString;

           ACBrCTe1.Conhecimentos.Clear;
 

 //Preenche o componente
           GerarCTe(vAux);

 

 // Gera o XML, Assina e Salva o Arquivo
           ACBrCTe1.Conhecimentos.Assinar;

 

 // Valida os dados do XML salvo
           ACBrCTe1.Conhecimentos.Valida;

 

 //Aqui eu envio CT-e
           ACBrCTe1.WebServices.Envia(StrToInt(vNumLote));
           ACBrCTe1.Enviar(StrToInt(vNumLote), False);

 

 

 

[Italo Giurizzato Junior]

Boa noite,

 

Você esta atribuindo algum valor para a propriedade cCT ao alimentar o componente?

 

Porque você esta executando o enviar 2 vezes?

 

//Aqui eu envio CT-e
ACBrCTe1.WebServices.Envia(StrToInt(vNumLote));
ACBrCTe1.Enviar(StrToInt(vNumLote), False);

 

basta apenas:

 

 //Aqui eu envio CT-e
ACBrCTe1.Enviar(StrToInt(vNumLote), False);

 

Uma outra informação o comando acima "Enviar" se encarrega de Assinar, Validar e salvar o XML em disco, alem é claro de envia-lo para SEFAZ.

[emrinfo]

Obrigado, Italo!