Ir para conteúdo
  • Cadastre-se

dev botao

Falha na Validação dos Dados do Conhecimento


eliton.sc
  • Este tópico foi criado há 994 dias atrás.
  • Talvez seja melhor você criar um NOVO TÓPICO do que postar uma resposta aqui.

Recommended Posts

  • Consultores

Bom dia Eliton,

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

Consultor SAC ACBr

Italo Giurizzato Junior
Ajude o Projeto ACBr crescer - Assine o SAC

Projeto ACBr

Analista de Sistemas / e-mail: [email protected] / Fone: (16) 9-9701-5030 / Araraquara-SP

Araraquara - A era dos Trólebus

Link para o comentário
Compartilhar em outros sites

  • Consultores

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.

  • Curtir 1
Consultor SAC ACBr

Italo Giurizzato Junior
Ajude o Projeto ACBr crescer - Assine o SAC

Projeto ACBr

Analista de Sistemas / e-mail: [email protected] / Fone: (16) 9-9701-5030 / Araraquara-SP

Araraquara - A era dos Trólebus

Link para o comentário
Compartilhar em outros sites

  • 11 meses depois ...
  • Consultores

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.

  • Curtir 1
Consultor SAC ACBr

Italo Giurizzato Junior
Ajude o Projeto ACBr crescer - Assine o SAC

Projeto ACBr

Analista de Sistemas / e-mail: [email protected] / Fone: (16) 9-9701-5030 / Araraquara-SP

Araraquara - A era dos Trólebus

Link para o comentário
Compartilhar em outros sites

  • 2 meses depois ...

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

Thiago Ribeiro da Silva

Analista Sistema Auditor

www.SistemaAuditor.com.br

Link para o comentário
Compartilhar em outros sites

  • Administradores

Bom dia.

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

Att.

Consultora SAC ACBr

Juliana Tamizou

Gerente de Projetos ACBr / Diretora de Marketing AFRAC
Ajude o Projeto ACBr crescer - Seja Pro

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 para o comentário
Compartilhar em outros sites

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.

Thiago Ribeiro da Silva

Analista Sistema Auditor

www.SistemaAuditor.com.br

Link para o comentário
Compartilhar em outros sites

  • Consultores

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.

  • Curtir 1
Consultor SAC ACBr

Italo Giurizzato Junior
Ajude o Projeto ACBr crescer - Assine o SAC

Projeto ACBr

Analista de Sistemas / e-mail: [email protected] / Fone: (16) 9-9701-5030 / Araraquara-SP

Araraquara - A era dos Trólebus

Link para o comentário
Compartilhar em outros sites

  • 1 mês depois ...
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.

Thiago Ribeiro da Silva

Analista Sistema Auditor

www.SistemaAuditor.com.br

Link para o comentário
Compartilhar em outros sites

  • 1 ano depois...

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...

Link para o comentário
Compartilhar em outros sites

  • Moderadores
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.

Equipe ACBr BigWings
Ajude o Projeto ACBr crescer - Assine o SAC

Projeto ACBr

 

 

Link para o comentário
Compartilhar em outros sites

  • 3 meses depois ...

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

Link para o comentário
Compartilhar em outros sites

  • Consultores

Bom dia,

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

Consultor SAC ACBr

Italo Giurizzato Junior
Ajude o Projeto ACBr crescer - Assine o SAC

Projeto ACBr

Analista de Sistemas / e-mail: [email protected] / Fone: (16) 9-9701-5030 / Araraquara-SP

Araraquara - A era dos Trólebus

Link para o comentário
Compartilhar em outros sites

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!!!

Link para o comentário
Compartilhar em outros sites

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:

image.png.8827206afc07539b20273fed9da6b365.png

 

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;

 

Link para o comentário
Compartilhar em outros sites

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:

image.png.8827206afc07539b20273fed9da6b365.png

 

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?

Link para o comentário
Compartilhar em outros sites

  • Consultores

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. 

  • Curtir 1
Link para o comentário
Compartilhar em outros sites

  • Este tópico foi criado há 994 dias atrás.
  • Talvez seja melhor você criar um NOVO TÓPICO do que postar uma resposta aqui.

Crie uma conta ou entre para comentar

Você precisar ser um membro para fazer um comentário

Criar uma conta

Crie uma nova conta em nossa comunidade. É fácil!

Crie uma nova conta

Entrar

Já tem uma conta? Faça o login.

Entrar Agora
×
×
  • Criar Novo...

Informação Importante

Colocamos cookies em seu dispositivo para ajudar a tornar este site melhor. Você pode ajustar suas configurações de cookies, caso contrário, assumiremos que você está bem para continuar.