1871 - element {http://www.portalfiscal.inf.br/cte}cte Falha na Validação dos Dados do Conhecimento

[eliton.sc]

Ao Gerar o CT-e na Versão 3.0 esta apresentando esse erro não validando o mesmo.

 

Alguém sabe me informar o motivo do erro.

Os Componentes apaguei tudo e Atualizei novamente o SVN.

 

42171200471390000188570010000155741596121168-cte.xml

[Italo Giurizzato Junior]

Bom dia Eliton,

Favor postar a mensagem completa do erro de validação.

[eliton.sc]

O Erro que recebo é esse :

 

Falha na validação dos dados do Conhecimento: 15575

1871 - Element '{http://www.portalfiscal.inf.br/cte}CTe': Missing child element(s). Expected is ( {http://www.w3.org/2000/09/xmldsig#}Signature ).
 

[Italo Giurizzato Junior]

Eliton,

Antes de executar o método Validar, você executou o método Assinar?

Lhe pergunto isso, pois o XML que você anexou não esta assinado.

Note que a mensagem de erro diz que é esperado o elemento Signature, ou seja, o validador não encontrou a assinatura no XML.

[eliton.sc]

OI Boa tarde, realmente esqueci desse detalhe. Na migração do Software essa semana esqueci desse pequeno comando. Feito isso deu certo..

Muito Obrigado pela ajuda.

[LINDOMAR XAVIER]

Boa tarde, estou com o mesmo erro, mas a solução não se aplicou a mim igualmente. Poderiam dizer-me o erro desse xml?

PRE-CTEMGDALA_11_2018_1_4.XML

[LINDOMAR XAVIER]

Quando CHAMO o método validar msg: Falha na validação do Conhecimento: xx

Quando omito o método validar e chamo apenas o assinar aparece: Erro falha ao localizar o nó de Assinatura

na próxima tela CryptExpportkey -len

[Italo Giurizzato Junior]

Bom dia Lindomar,

Esse erro esta aparecendo pelo fato de você estar executando a sua aplicação através do Delphi, fora dele ela não aparece.

Clique no botão Continuar que a assinatura vai ocorrer sem nenhum problema.

Importante é preciso primeiro Assinar para depois poder Validar o XML.

[Thiago Sist. Auditor]

Havia colocado esta duvida em outro post mas muito antigo de 2011 mas achei este mais recente segue estou migrando meu sistema da Flexdocs para o ACBR já fiz todo processo de NFE e NFCe agora estou fazendo no CTe testando a Contigencia FSDA gerei o XML assinado e na hora que vou transmitir apareceu a mensagem "1871 - Element '{http://www.portalfiscal.inf.br/cte}CTe': Missing child element(s). Expected is ( {http://www.w3.org/2000/09/xmldsig#}Signature ).". Segue o xml anexado.

Obrigado pela atenção de todos.

Segue um pedaço do fonte que fiz para assinar o xml. O XML quem gera sou eu, apenas carrego no ACBR para fazer a assinatura  e processos do WS.

   PopularConfig(); // Esta função carrega os dados do certificado e configurações básica para o ACBR funcionar
   mAcbrCTe.Configuracoes.Geral.FormaEmissao := teFSDA;
   mAcbrCTe.Conhecimentos.LoadFromFile(_UrlXml);

   Try

      mAcbrCTe.Conhecimentos.Assinar;
      mAcbrCTe.Conhecimentos.Validar;

xml cte.xml

[Juliana Tamizou]

Bom dia.

Procure relatar seu problema utilizando virgulas, pontos e etc..desta forma ficará mais fácil entender qual é seu problema.

Att.

[Thiago Sist. Auditor]

10 minutos atrás, Juliana Tamizou disse:

Bom dia.

Procure relatar seu problema utilizando virgulas, pontos e etc..desta forma ficará mais fácil entender qual é seu problema.

Att.

Havia colocado esta duvida em outro post mas muito antigo de 2011, mas achei este mais recente. Então  estou migrando meu sistema da Flexdocs para o ACBR, já fiz todo processo de NFE e NFCe, agora estou fazendo no CTe.
Ao testar a Contigencia FSDA, gerei o XML assinado e na hora que vou transmitir apareceu a mensagem: "1871 - Element '{http://www.portalfiscal.inf.br/cte}CTe': Missing child element(s). Expected is ( {http://www.w3.org/2000/09/xmldsig#}Signature ).".
Segue o xml anexado.

[Italo Giurizzato Junior]

Bom dia Thiago,

Vamos ver se eu entendi o seu problema.

Você tem uma rotina própria que gera o XML, correto?

Esta utilizando o componente ACBrCTe apenas para assinar, validar e enviar, correto?

Mas ao tentar enviar ocorre o erro de validação acusando que não consta o elemento Signature.

O XML que você anexou, contem a assinatura, logo não era para ocorrer esse erro de validação.

[Thiago Sist. Auditor]

Em 06/03/2019 at 09:59, Italo Jurisato Junior disse:

Bom dia Thiago,

Vamos ver se eu entendi o seu problema.

Você tem uma rotina própria que gera o XML, correto?

Esta utilizando o componente ACBrCTe apenas para assinar, validar e enviar, correto?

Mas ao tentar enviar ocorre o erro de validação acusando que não consta o elemento Signature.

O XML que você anexou, contem a assinatura, logo não era para ocorrer esse erro de validação.

Correto, eu gero XML e o ACBR faz todo processo trabalhoso, rsrs inclusive a parte da assinatura.

[Walter Almeida]

Boa tarde, estou com um problema nesse cte, quando, quando libero o envio da esse erro.

erro : -> Falha na validação dos dados do Conhecimento: 116

''floriculturaubatu.com.br'' violates pattern constraint of ''[^@]+@[^\.]+\..+''.
The element ''{http://www.portalfiscal.inf.br/cte}email'' with value ''floriculturaubatu.com.br'' failed to parse.

Não sei como resolver, alguém poderia me ajudar...

[BigWings]

4 horas atrás, Walter Almeida disse:

''floriculturaubatu.com.br'' violates pattern constraint of ''[^@]+@[^\.]+\..+''.
The element ''{http://www.portalfiscal.inf.br/cte}email'' with value ''floriculturaubatu.com.br'' failed to parse.

Não sei como resolver, alguém poderia me ajudar...

Você não informou um email válido.

[dbechelli]

Boa noite, saberiam dizer o porque o XML está sendo gerado vazio (em anexo)?

Dada a pandemia, minha aplicação ficou sem emitir CTeOS por mais de um ano. Fiz a atualização dos fontes para a versão mais recente (Delphi), inclusive dos schemas.

Nenhum erro é apresentado, a não ser quando efetuo a validação, que não encontra nada no XML.

Obrigado pelo apoio.

 

31210707410645000141670320000000671090929676-cte.xml

[Italo Giurizzato Junior]

Bom dia,

Com o programa exemplo também ocorre o mesmo problema?

[dbechelli]

On 7/2/2021 at 8:48 AM, Italo Giurizzato Junior said:

Bom dia,

Com o programa exemplo também ocorre o mesmo problema?

Boa tarde,

Sim, esta gerando normalmente pelo exemplo!

Não sei dizer o por que de minha aplicação, isso estar acontecendo. 

Vou revisar os códigos mais uma vez. Obrigado e bom domingo!!!

[dbechelli]

1 hour ago, dbechelli said:

Boa tarde,

Sim, esta gerando normalmente pelo exemplo!

Não sei dizer o por que de minha aplicação, isso estar acontecendo. 

Vou revisar os códigos mais uma vez. Obrigado e bom domingo!!!

Honestamente não vi nada em meu código que estivesse diferente do arquivo exemplo:

Chamada:

 

GerarCTeOS:

procedure TFRMCTE.GerarCTeOS(NumCTe: String);
var
NTAF, NNRE : STRING;
begin
//CTeOS
WITH FRMCONFIG, DM DO
  begin
    QLICENCA.Close;
    QLICENCA.Open;

    with ACBrCTe1.Conhecimentos.Add.CTe do
      begin
        if rgVersaoDF.ItemIndex = 0 then
          infCTe.versao := 2.0
        else
          infCTe.versao := 3.0;

        Ide.cUF         := UFtoCUF(QLICENCAESTADO.AsString);
        Ide.CFOP        := STRTOINT (cbCFOP.Text);
        Ide.natOp       := TXNATUREZA.Text;
        Ide.modelo      := 67;
        Ide.serie       := 32;
        Ide.nCT         := StrToInt(NumCTe);
        Ide.cCT         := GerarCodigoDFe(Ide.nCT);
        Ide.dhEmi       := Now;
        Ide.tpImp       := tiRetrato;

        case rgFormaEmissao.ItemIndex of
          0: Ide.tpEmis := teNormal;
          1: Ide.tpEmis := teDPEC;
          2: Ide.tpEmis := teFSDA;
          3: Ide.tpEmis := teSVCRS;
          4: Ide.tpEmis := teSVCSP;
        end;
        if rgFormaEmissao.ItemIndex = 2 then
        begin
          ide.dhCont := Now;
          ide.xJust  := 'Entrada em contingência por falhas na conexão com o web service.';
        end;

        if rgTipoAmb.ItemIndex = 0 then
          Ide.tpAmb := taProducao
        else
          Ide.tpAmb := taHomologacao;
      
        case cbFinalidade.ItemIndex of
         0: Ide.tpCTe     := tcNormal;
         1: Ide.tpCTe     := tcComplemento;
         2: Ide.tpCTe     := tcAnulacao;
         3: Ide.tpCTe     := tcSubstituto;
        end;
    

        Ide.procEmi   := peAplicativoContribuinte;
        Ide.verProc   := '3.0';
        Ide.cMunEnv   := StrToInt(edtEmitCodCidade.Text);
        Ide.xMunEnv   := Trim(edtEmitCidade.Text);
        Ide.UFEnv     := Trim(edtEmitUF.Text);

        case cbModal.ItemIndex of
         0: Ide.modal     := mdRodoviario;
         1: Ide.modal     := mdAereo;
         2: Ide.modal     := mdAquaviario;
         3: Ide.modal     := mdFerroviario;
         4: Ide.modal     := mdDutoviario;
         5: Ide.modal     := mdMultimodal;
        end;
    
        case cbTipoServico.ItemIndex of
         0: Ide.tpServ    := tsNormal;
         1: Ide.tpServ    := tsSubcontratacao;
         2: Ide.tpServ    := tsRedespacho;
         3: Ide.tpServ    := tsIntermediario;
         4: Ide.tpServ    := tsMultimodal;
         5: Ide.tpServ    := tsTranspPessoas;
         6: Ide.tpServ    := tsTranspValores;
         7: Ide.tpServ    := tsExcessoBagagem;
        end;

        case cbPapelTomador.ItemIndex of
        0: ide.indIEToma := inContribuinte;
        1: ide.indIEToma := inIsento;
        2: ide.indIEToma := inNaoContribuinte;
        end;
        QMUNICIPIO.Close;
        QMUNICIPIO.SQL.Clear;
        QMUNICIPIO.SQL.Add('SELECT * FROM MUNICIPIO WHERE UF = '''+CBUFINI.Text+''' AND DESCRICAO = '''+CBMUNINI.Text+'''');
        QMUNICIPIO.Open;

        Ide.cMunIni   := QMUNICIPIOCOD_IBGE.AsInteger;
        Ide.xMunIni   := cbMunIni.Text;
        Ide.UFIni     := cbUFini.Text;

        QMUNICIPIO.Close;
        QMUNICIPIO.SQL.Clear;
        QMUNICIPIO.SQL.Add('SELECT * FROM MUNICIPIO WHERE UF = '''+CBUFFIM.Text+''' AND DESCRICAO = '''+CBMUNFIM.Text+'''');
        QMUNICIPIO.Open;

        Ide.cMunFim   := QMUNICIPIOCOD_IBGE.AsInteger;
        Ide.xMunFim   := cbMunFim.Text;
        Ide.UFFim     := cbUFFim.Text;
        QMUNICIPIO.Close;

        {Dados do Percurso}
        //ide.infPercurso.Add.UFPer := 'PR';

        {Dados do Emitente}
        Emit.CNPJ              := Trim(QLICENCACNPJ.AsString);
        Emit.IE                := Trim(QLICENCAEMP_INSC_ESTADUAL.AsString);
        Emit.xNome             := Trim(QLICENCAEMP_RAZAO_SOCIAL.AsString);
        Emit.xFant             := Trim(QLICENCAEMP_FANTASIA.AsString);
        Emit.enderEmit.xLgr    := Trim(QLICENCAENDERECO.AsString);
        Emit.enderEmit.nro     := Trim(QLICENCANUMERO.AsString);
        Emit.enderEmit.xCpl    := Trim(QLICENCAEMP_COMPLEMENTO.AsString);
        Emit.enderEmit.xBairro := Trim(QLICENCABAIRRO.AsString);
        Emit.enderEmit.cMun    := QLICENCAEMP_IBGE.AsInteger;
        Emit.enderEmit.xMun    := Trim(QLICENCACIDADE.AsString);
        Emit.enderEmit.CEP     := QLICENCACEP.AsInteger;
        Emit.enderEmit.UF      := Trim(QLICENCAESTADO.AsString);
        Emit.enderEmit.fone    := Trim(QLICENCATELEFONES.AsString);

        //Adiciona dados do tomador do serviço
        toma.CNPJCPF           := TXCNPJ.Text;
        toma.IE                := TXIE.Text;
        toma.xNome             := TXRAZAO.Text;
        toma.xFant             := TXFANTASIA.Text;
        toma.fone              := TXTELEFONE.Text;
        toma.enderToma.xLgr    := TXENDERECO.Text;
        toma.enderToma.nro     := TXNUM.Text;
        toma.enderToma.xCpl    := TXCOMPLEMENTO.Text;
        toma.enderToma.xBairro := TXBAIRRO.Text;
        toma.enderToma.cMun    := STRTOINT (TXCODIBGE.Text);
        toma.enderToma.xMun    := TXCIDADE.Text;
        toma.enderToma.CEP     := STRTOINT (TXCEP.Text);
        toma.enderToma.UF      := TXUF.Text;
        toma.enderToma.cPais   := 1058;
        toma.enderToma.xPais   := 'BRASIL';
        toma.email             := '';

        {Carrega valores da prestacao de servico}
        vPrest.vTPrest         := STRTOFLOAT (TXVTOTAL.Text);
        vPrest.vRec            := STRTOFLOAT (TXVRECEBER.Text);

        {Carrega componentes do valor da prestacao}
        with vPrest.comp.Add do
        begin
          xNome                := '';
          vComp                := 0;
        end;

        {Carrega Impostos}

        case cbSituacaoTrib.ItemIndex of
         0: //00 - Tributação Normal ICMS
         BEGIN
         Imp.ICMS.SituTrib    := cst00;
         Imp.ICMS.ICMS00.CST  := cst00;
         Imp.ICMS.ICMS00.vBC  := STRTOFLOAT (TXVRBC.Text);
         Imp.ICMS.ICMS00.pICMS:= STRTOFLOAT (TXALIQCIMS.Text);
         Imp.ICMS.ICMS00.vICMS:= STRTOFLOAT (TXVRICMS.Text);
         END;

         1: //40 - ICMS Isento
         BEGIN
         Imp.ICMS.SituTrib  := cst40;
         Imp.ICMS.ICMS45.CST:= cst40;
         END;

         2: //41 - ICMS não Tributada
         BEGIN
         Imp.ICMS.SituTrib  := cst41;
         Imp.ICMS.ICMS45.CST:= cst41;
         END;

         3://51 - ICMS diferido
         BEGIN
         Imp.ICMS.SituTrib  := cst51;
         Imp.ICMS.ICMS45.CST:= cst51;
         END;

         4://90 - ICMS Outros
         BEGIN
          if Emit.enderEmit.UF = Rem.enderReme.UF then
          begin
          Imp.ICMS.SituTrib     := cst90;
          Imp.ICMS.ICMS90.CST   := cst90;
          Imp.ICMS.ICMS90.pRedBC:= 10.00;
          Imp.ICMS.ICMS90.vBC   := 100.00;
          Imp.ICMS.ICMS90.pICMS := 7.00;
          Imp.ICMS.ICMS90.vICMS := 6.30;
          Imp.ICMS.ICMS90.vCred := 0.00;
          end;

          if cbCOBRAICMS.Checked = TRUE then
          begin
          Imp.ICMS.SituTrib                  := cstICMSOutraUF;
          Imp.ICMS.ICMSOutraUF.CST           := cstICMSOutraUF; // ICMS Outros
          Imp.ICMS.ICMSOutraUF.pRedBCOutraUF := STRTOFLOAT (TXALIQINTER.Text);
          Imp.ICMS.ICMSOutraUF.vBCOutraUF    := STRTOFLOAT (TXBCINTEREST.Text);
          Imp.ICMS.ICMSOutraUF.pICMSOutraUF  := STRTOINT (cbPERCPARTILHA.Text);
          Imp.ICMS.ICMSOutraUF.vICMSOutraUF  := STRTOINT (TXICMSUFTERMINO.Text);
          end;
         END;

         5: //SN - Simples Nacional
         BEGIN
         Imp.ICMS.SituTrib     := cstICMSSN;
         Imp.ICMS.ICMSSN.indSN := 1;
         END;
        end;

        compl.xObs     := TXOBSGERAIS.Text;
        Imp.infAdFisco := 'Lei da Transparencia: O valor aproximado de tributos incidentes sobre o preço deste servico é de R$ '''+TXVIMPOSTOS.Text+'''. Fonte: IBPT';
        imp.vTotTrib   := STRTOFLOAT (TXVIMPOSTOS.Text);

        //Impostos federais
        imp.infTribFed.vPIS    := (STRTOFLOAT(TXVTOTAL.Text)*0.0065);
        imp.infTribFed.vCOFINS := (STRTOFLOAT(TXVTOTAL.Text)*0.03);
        imp.infTribFed.vIR     := 0;
        imp.infTribFed.vINSS   := (STRTOFLOAT(TXVTOTAL.Text)*0.033);
        imp.infTribFed.vCSLL   := 0;

        {Carrega as informacoes CTe Normal}
        infCTeNorm.infServico.xDescServ := TXDESCRICAOSERV.Text;
        infCTeNorm.infServico.qCarga    := StrToFloat (TXQUANTIDADE.Text);

        {Informações dos documentos referenciados}
        {with infCTeNorm.infDocRef.Add do
        begin
          nDoc     := '';
          serie    := '';
          subserie := '';
          dEmi     := Date;
          vDoc     := 0.00;
        end;}

        {Carrega informacoes do seguro}
        with infCTeNorm.Seg.Add do
        begin
          respSeg := rsEmitenteCTe;
          xSeg    := TXSEGURADORA.Text;
          nApol   := TXNUMAPOLICE.Text;
        end;

        {Carrega Informacoes do Modal}
        {Rodoviario}

        NTAF := FRMCTE.TXTAF.Text;
        NNRE := FRMCTE.TXNRE.Text;

       if NTAF <> '' then infCTeNorm.rodoOS.TAF            := NTAF;
       if NNRE <> '' then infCTeNorm.rodoOS.NroRegEstadual := NNRE;

       infCTeNorm.rodoOS.infFretamento.tpFretamento := tfEventual;
       infCTeNorm.rodoOS.infFretamento.dhViagem     := now + 1;
        {Carega inf veiculos do modal rodo 0-1}
        with infCTeNorm.rodoOS.veic do
        begin
          placa    := cbPLACA.Text;
          RENAVAM  := TXRENAVAM.Text;
          UF       := cbUFVEICULO.Text;
          //Se for de Terceiro
          {Prop.CNPJCPF        := '';
          Prop.xNome          := '';
          Prop.UF             := '';
          prop.TAF            := '';
          prop.NroRegEstadual := '';
          Prop.IE             := '';
          Prop.tpProp         := tpTACAgregado;}
        end;

        {Carrega dados da CTe substituta 0-1}
        {with infCTeNorm.infCTeSub do
        begin
          chCte := '';
          //Se tomador não é Contribuinte
            tomaNaoICMS.refCteAnu := '';

          //Se tomador for Contribuinte
            case TipoDoc of //Tipo do Documento que o Tomador Emitiu para anulação de valor do Cte Anterior
              0: tomaICMS.refNFe := '';//NFe
              1: tomaICMS.refCte := '';//CTe
              2://NF
              begin
                tomaICMS.refNF.CNPJCPF  := '';
                tomaICMS.refNF.modelo   := '';
                tomaICMS.refNF.serie    := 0;
                tomaICMS.refNF.subserie := 0;
                tomaICMS.refNF.nro      := 0;
                tomaICMS.refNF.valor    := 0;
                tomaICMS.refNF.dEmi     := Date;
              end;
            end;
        end;}

        {CTe de Complemento de valor}
          //InfCTeComp.chave := '';

        {CTe de Anulacao de valores}
          //infCteAnu.chCTe := '';
          //infCteAnu.dEmi  := Date;

        {Seleciona o dados dos Autorizados a baixar o xml}
          //autXML.Add.CNPJCPF := '';
        {Informações do Responsável Técnico pela emissão do DF-e}
        infRespTec.xContato := '';
        infRespTec.email    := '';
        infRespTec.fone     := '';
      end;

  end;

 

[dbechelli]

On 7/4/2021 at 5:29 PM, dbechelli said:

Honestamente não vi nada em meu código que estivesse diferente do arquivo exemplo:

Chamada:

 

GerarCTeOS:

procedure TFRMCTE.GerarCTeOS(NumCTe: String);
var
NTAF, NNRE : STRING;
begin
//CTeOS
WITH FRMCONFIG, DM DO
  begin
    QLICENCA.Close;
    QLICENCA.Open;

    with ACBrCTe1.Conhecimentos.Add.CTe do
      begin
        if rgVersaoDF.ItemIndex = 0 then
          infCTe.versao := 2.0
        else
          infCTe.versao := 3.0;

        Ide.cUF         := UFtoCUF(QLICENCAESTADO.AsString);
        Ide.CFOP        := STRTOINT (cbCFOP.Text);
        Ide.natOp       := TXNATUREZA.Text;
        Ide.modelo      := 67;
        Ide.serie       := 32;
        Ide.nCT         := StrToInt(NumCTe);
        Ide.cCT         := GerarCodigoDFe(Ide.nCT);
        Ide.dhEmi       := Now;
        Ide.tpImp       := tiRetrato;

        case rgFormaEmissao.ItemIndex of
          0: Ide.tpEmis := teNormal;
          1: Ide.tpEmis := teDPEC;
          2: Ide.tpEmis := teFSDA;
          3: Ide.tpEmis := teSVCRS;
          4: Ide.tpEmis := teSVCSP;
        end;
        if rgFormaEmissao.ItemIndex = 2 then
        begin
          ide.dhCont := Now;
          ide.xJust  := 'Entrada em contingência por falhas na conexão com o web service.';
        end;

        if rgTipoAmb.ItemIndex = 0 then
          Ide.tpAmb := taProducao
        else
          Ide.tpAmb := taHomologacao;
      
        case cbFinalidade.ItemIndex of
         0: Ide.tpCTe     := tcNormal;
         1: Ide.tpCTe     := tcComplemento;
         2: Ide.tpCTe     := tcAnulacao;
         3: Ide.tpCTe     := tcSubstituto;
        end;
    

        Ide.procEmi   := peAplicativoContribuinte;
        Ide.verProc   := '3.0';
        Ide.cMunEnv   := StrToInt(edtEmitCodCidade.Text);
        Ide.xMunEnv   := Trim(edtEmitCidade.Text);
        Ide.UFEnv     := Trim(edtEmitUF.Text);

        case cbModal.ItemIndex of
         0: Ide.modal     := mdRodoviario;
         1: Ide.modal     := mdAereo;
         2: Ide.modal     := mdAquaviario;
         3: Ide.modal     := mdFerroviario;
         4: Ide.modal     := mdDutoviario;
         5: Ide.modal     := mdMultimodal;
        end;
    
        case cbTipoServico.ItemIndex of
         0: Ide.tpServ    := tsNormal;
         1: Ide.tpServ    := tsSubcontratacao;
         2: Ide.tpServ    := tsRedespacho;
         3: Ide.tpServ    := tsIntermediario;
         4: Ide.tpServ    := tsMultimodal;
         5: Ide.tpServ    := tsTranspPessoas;
         6: Ide.tpServ    := tsTranspValores;
         7: Ide.tpServ    := tsExcessoBagagem;
        end;

        case cbPapelTomador.ItemIndex of
        0: ide.indIEToma := inContribuinte;
        1: ide.indIEToma := inIsento;
        2: ide.indIEToma := inNaoContribuinte;
        end;
        QMUNICIPIO.Close;
        QMUNICIPIO.SQL.Clear;
        QMUNICIPIO.SQL.Add('SELECT * FROM MUNICIPIO WHERE UF = '''+CBUFINI.Text+''' AND DESCRICAO = '''+CBMUNINI.Text+'''');
        QMUNICIPIO.Open;

        Ide.cMunIni   := QMUNICIPIOCOD_IBGE.AsInteger;
        Ide.xMunIni   := cbMunIni.Text;
        Ide.UFIni     := cbUFini.Text;

        QMUNICIPIO.Close;
        QMUNICIPIO.SQL.Clear;
        QMUNICIPIO.SQL.Add('SELECT * FROM MUNICIPIO WHERE UF = '''+CBUFFIM.Text+''' AND DESCRICAO = '''+CBMUNFIM.Text+'''');
        QMUNICIPIO.Open;

        Ide.cMunFim   := QMUNICIPIOCOD_IBGE.AsInteger;
        Ide.xMunFim   := cbMunFim.Text;
        Ide.UFFim     := cbUFFim.Text;
        QMUNICIPIO.Close;

        {Dados do Percurso}
        //ide.infPercurso.Add.UFPer := 'PR';

        {Dados do Emitente}
        Emit.CNPJ              := Trim(QLICENCACNPJ.AsString);
        Emit.IE                := Trim(QLICENCAEMP_INSC_ESTADUAL.AsString);
        Emit.xNome             := Trim(QLICENCAEMP_RAZAO_SOCIAL.AsString);
        Emit.xFant             := Trim(QLICENCAEMP_FANTASIA.AsString);
        Emit.enderEmit.xLgr    := Trim(QLICENCAENDERECO.AsString);
        Emit.enderEmit.nro     := Trim(QLICENCANUMERO.AsString);
        Emit.enderEmit.xCpl    := Trim(QLICENCAEMP_COMPLEMENTO.AsString);
        Emit.enderEmit.xBairro := Trim(QLICENCABAIRRO.AsString);
        Emit.enderEmit.cMun    := QLICENCAEMP_IBGE.AsInteger;
        Emit.enderEmit.xMun    := Trim(QLICENCACIDADE.AsString);
        Emit.enderEmit.CEP     := QLICENCACEP.AsInteger;
        Emit.enderEmit.UF      := Trim(QLICENCAESTADO.AsString);
        Emit.enderEmit.fone    := Trim(QLICENCATELEFONES.AsString);

        //Adiciona dados do tomador do serviço
        toma.CNPJCPF           := TXCNPJ.Text;
        toma.IE                := TXIE.Text;
        toma.xNome             := TXRAZAO.Text;
        toma.xFant             := TXFANTASIA.Text;
        toma.fone              := TXTELEFONE.Text;
        toma.enderToma.xLgr    := TXENDERECO.Text;
        toma.enderToma.nro     := TXNUM.Text;
        toma.enderToma.xCpl    := TXCOMPLEMENTO.Text;
        toma.enderToma.xBairro := TXBAIRRO.Text;
        toma.enderToma.cMun    := STRTOINT (TXCODIBGE.Text);
        toma.enderToma.xMun    := TXCIDADE.Text;
        toma.enderToma.CEP     := STRTOINT (TXCEP.Text);
        toma.enderToma.UF      := TXUF.Text;
        toma.enderToma.cPais   := 1058;
        toma.enderToma.xPais   := 'BRASIL';
        toma.email             := '';

        {Carrega valores da prestacao de servico}
        vPrest.vTPrest         := STRTOFLOAT (TXVTOTAL.Text);
        vPrest.vRec            := STRTOFLOAT (TXVRECEBER.Text);

        {Carrega componentes do valor da prestacao}
        with vPrest.comp.Add do
        begin
          xNome                := '';
          vComp                := 0;
        end;

        {Carrega Impostos}

        case cbSituacaoTrib.ItemIndex of
         0: //00 - Tributação Normal ICMS
         BEGIN
         Imp.ICMS.SituTrib    := cst00;
         Imp.ICMS.ICMS00.CST  := cst00;
         Imp.ICMS.ICMS00.vBC  := STRTOFLOAT (TXVRBC.Text);
         Imp.ICMS.ICMS00.pICMS:= STRTOFLOAT (TXALIQCIMS.Text);
         Imp.ICMS.ICMS00.vICMS:= STRTOFLOAT (TXVRICMS.Text);
         END;

         1: //40 - ICMS Isento
         BEGIN
         Imp.ICMS.SituTrib  := cst40;
         Imp.ICMS.ICMS45.CST:= cst40;
         END;

         2: //41 - ICMS não Tributada
         BEGIN
         Imp.ICMS.SituTrib  := cst41;
         Imp.ICMS.ICMS45.CST:= cst41;
         END;

         3://51 - ICMS diferido
         BEGIN
         Imp.ICMS.SituTrib  := cst51;
         Imp.ICMS.ICMS45.CST:= cst51;
         END;

         4://90 - ICMS Outros
         BEGIN
          if Emit.enderEmit.UF = Rem.enderReme.UF then
          begin
          Imp.ICMS.SituTrib     := cst90;
          Imp.ICMS.ICMS90.CST   := cst90;
          Imp.ICMS.ICMS90.pRedBC:= 10.00;
          Imp.ICMS.ICMS90.vBC   := 100.00;
          Imp.ICMS.ICMS90.pICMS := 7.00;
          Imp.ICMS.ICMS90.vICMS := 6.30;
          Imp.ICMS.ICMS90.vCred := 0.00;
          end;

          if cbCOBRAICMS.Checked = TRUE then
          begin
          Imp.ICMS.SituTrib                  := cstICMSOutraUF;
          Imp.ICMS.ICMSOutraUF.CST           := cstICMSOutraUF; // ICMS Outros
          Imp.ICMS.ICMSOutraUF.pRedBCOutraUF := STRTOFLOAT (TXALIQINTER.Text);
          Imp.ICMS.ICMSOutraUF.vBCOutraUF    := STRTOFLOAT (TXBCINTEREST.Text);
          Imp.ICMS.ICMSOutraUF.pICMSOutraUF  := STRTOINT (cbPERCPARTILHA.Text);
          Imp.ICMS.ICMSOutraUF.vICMSOutraUF  := STRTOINT (TXICMSUFTERMINO.Text);
          end;
         END;

         5: //SN - Simples Nacional
         BEGIN
         Imp.ICMS.SituTrib     := cstICMSSN;
         Imp.ICMS.ICMSSN.indSN := 1;
         END;
        end;

        compl.xObs     := TXOBSGERAIS.Text;
        Imp.infAdFisco := 'Lei da Transparencia: O valor aproximado de tributos incidentes sobre o preço deste servico é de R$ '''+TXVIMPOSTOS.Text+'''. Fonte: IBPT';
        imp.vTotTrib   := STRTOFLOAT (TXVIMPOSTOS.Text);

        //Impostos federais
        imp.infTribFed.vPIS    := (STRTOFLOAT(TXVTOTAL.Text)*0.0065);
        imp.infTribFed.vCOFINS := (STRTOFLOAT(TXVTOTAL.Text)*0.03);
        imp.infTribFed.vIR     := 0;
        imp.infTribFed.vINSS   := (STRTOFLOAT(TXVTOTAL.Text)*0.033);
        imp.infTribFed.vCSLL   := 0;

        {Carrega as informacoes CTe Normal}
        infCTeNorm.infServico.xDescServ := TXDESCRICAOSERV.Text;
        infCTeNorm.infServico.qCarga    := StrToFloat (TXQUANTIDADE.Text);

        {Informações dos documentos referenciados}
        {with infCTeNorm.infDocRef.Add do
        begin
          nDoc     := '';
          serie    := '';
          subserie := '';
          dEmi     := Date;
          vDoc     := 0.00;
        end;}

        {Carrega informacoes do seguro}
        with infCTeNorm.Seg.Add do
        begin
          respSeg := rsEmitenteCTe;
          xSeg    := TXSEGURADORA.Text;
          nApol   := TXNUMAPOLICE.Text;
        end;

        {Carrega Informacoes do Modal}
        {Rodoviario}

        NTAF := FRMCTE.TXTAF.Text;
        NNRE := FRMCTE.TXNRE.Text;

       if NTAF <> '' then infCTeNorm.rodoOS.TAF            := NTAF;
       if NNRE <> '' then infCTeNorm.rodoOS.NroRegEstadual := NNRE;

       infCTeNorm.rodoOS.infFretamento.tpFretamento := tfEventual;
       infCTeNorm.rodoOS.infFretamento.dhViagem     := now + 1;
        {Carega inf veiculos do modal rodo 0-1}
        with infCTeNorm.rodoOS.veic do
        begin
          placa    := cbPLACA.Text;
          RENAVAM  := TXRENAVAM.Text;
          UF       := cbUFVEICULO.Text;
          //Se for de Terceiro
          {Prop.CNPJCPF        := '';
          Prop.xNome          := '';
          Prop.UF             := '';
          prop.TAF            := '';
          prop.NroRegEstadual := '';
          Prop.IE             := '';
          Prop.tpProp         := tpTACAgregado;}
        end;

        {Carrega dados da CTe substituta 0-1}
        {with infCTeNorm.infCTeSub do
        begin
          chCte := '';
          //Se tomador não é Contribuinte
            tomaNaoICMS.refCteAnu := '';

          //Se tomador for Contribuinte
            case TipoDoc of //Tipo do Documento que o Tomador Emitiu para anulação de valor do Cte Anterior
              0: tomaICMS.refNFe := '';//NFe
              1: tomaICMS.refCte := '';//CTe
              2://NF
              begin
                tomaICMS.refNF.CNPJCPF  := '';
                tomaICMS.refNF.modelo   := '';
                tomaICMS.refNF.serie    := 0;
                tomaICMS.refNF.subserie := 0;
                tomaICMS.refNF.nro      := 0;
                tomaICMS.refNF.valor    := 0;
                tomaICMS.refNF.dEmi     := Date;
              end;
            end;
        end;}

        {CTe de Complemento de valor}
          //InfCTeComp.chave := '';

        {CTe de Anulacao de valores}
          //infCteAnu.chCTe := '';
          //infCteAnu.dEmi  := Date;

        {Seleciona o dados dos Autorizados a baixar o xml}
          //autXML.Add.CNPJCPF := '';
        {Informações do Responsável Técnico pela emissão do DF-e}
        infRespTec.xContato := '';
        infRespTec.email    := '';
        infRespTec.fone     := '';
      end;

  end;

 

Boa noite, alguma sugestão?

[Renato Rubinho]

Bom dia,

Pode estar dando erro na assinatura devido às configurações.

Sugestão:

Comenta a ACBrCTe1.Conhecimentos.Assinar e veja se ele gera o xml. 

Se for isso, investiga as configurações de assinatura ( SSLLib e cia ) e debuga a assinatura para achar o erro específico.

Pode ser falta de dlls, por exemplo.