Jump to content
Notícias do ACBr

click.png

click.png

click.png

click.png

click.png

click.png

logo_acbr_paygo.png

TEF ACBr PayGo
Seja um revendedor e ofereça uma solução completa para seu cliente.


Saiba mais

beneficios.png

click.png

click.png

click.png

Carta Correção CCe


Go to solution Solved by José M. S. Junior,
  • Este tópico foi criado há 1094 dias atrás.
  • Talvez seja melhor você criar um NOVO TÓPICO do que postar uma resposta aqui

Recommended Posts

  • Membros Pro

Bom dia,

Favor desconsiderar o texto ( Após atualizar o ACBr Começou a dar erro "is not valid value of local atomic type", ver erro anexo. Isso não só em novos CTe, mas em CTe já autorizados quando vai emitir um pdf ou imprimir um DACTE.)  Incluído erroneamente e não consegui alterar.

Este é meu problema:

Estou com retorno de erro ao enviar Carta de Correção de CTeOS,  "Falha no Schema XML", Já atualizei o ACBr mas não resolveu. Preciso verificar o XML dele mas não consigo, pois o erro dá ao enviar   Retorno := vACBRCTE.EnviarEvento(1). Tentei fazer uma consulta antes mas o XML não monta nada.

Estou utilizando a mesma rotina que uso para o CTe, trocando apenas  InfEvento.tpEvento := teCCe;

Grato, Luiz

Link to comment
Share on other sites

  • Consultores

Boa tarde, realizou testes utilizando o demo CTe? Se possível anexe um passo a passo para simular o problema utilizando o Demo... Certifique-se de que os Schemas estão atualizados.

Consultor SAC ACBr

José Junior
Ajude o Projeto ACBr crescer - Assine o SAC

Projeto ACBr     Telefone:(15) 2105-0750 WhatsApp(15)99790-2976.

Link to comment
Share on other sites

  • Membros Pro

Boa tarde José, grato pela atenção,

Atualizei hoje o projeto ACBr assim como os schemas. haviam reclamado do erro no CTeOS, mas ao fazer testes verifiquei que no CTe também esta com erro. Segue os fontes:

   // CONFIGURACAO

    if vModeloDF = 57 then
       vACBRCTE.Configuracoes.Geral.ModeloDF := MoCTe // Mod 57
    else
       vACBRCTE.Configuracoes.Geral.ModeloDF := MoCTeOS; // Mod 67

    if vModeloDF = 67 then
       ACBrCTeDACTeFR.FastFile  := 'C:\Gintran\Programa\Modelo_Impressão\DACTE_OS.fr3'
    else
       ACBrCTeDACTeFR.FastFileEvento := 'C:\Gintran\Programa\Modelo_Impressão\DACTE_EVENTOS.fr3';

    ACBrCTeDACTeFR.TipoDACTE      := tiRetrato;
    ACBrCTeDACTeFR.PathPDF        := vPatchPadrao + vPastaDacte;

     SelecionarCertificado

    ACBrCTeDACTeFR.MostrarPreview := False;

    ACBrCTeDacteFR.MostrarStatus  := False;

    ACBrCTeDACTeFR.Logo := '';
    vLogo := ReplaceChars(ExtractFilePath(Application.ExeName) + '\Modelo_Impressão\' + FormatFloat('000', SisCodigoEmpresa) + '-LogoEmpresa.jpg');

    if FileExists(vLogo) then
      ACBrCTeDACTeFR.Logo := vLogo;

    ACBrCTeDACTeFR.ExpandirLogoMarca := True;

    vACBRCTE.Configuracoes.Geral.ValidarDigest := False;

    vACBrCTe.Configuracoes.Geral.Salvar        := False;

     if vModeloDF = 57 then
     begin
       vACBRCTE.Configuracoes.Arquivos.PathCTe    := 'C:\Gintran\Programa\XML_CTE';
       vACBRCTE.Configuracoes.Arquivos.PathSalvar := 'C:\Gintran\Programa\XML_CTE';
     end
    else begin
       vACBRCTE.Configuracoes.Arquivos.PathEvento := 'C:\Gintran\Programa\XML_CCe';
       vACBRCTE.Configuracoes.Arquivos.PathSalvar := 'C:\Gintran\Programa\XML_CCe';
    end;

    vACBRCTE.DACTe := ACBrCTeDACTeFR;
    vACBRCTE.Configuracoes.WebServices.Visualizar := False;

    vACBRCTE.Configuracoes.WebServices.UF         := vUFFilialEmissora;
    vACBRCTE.Configuracoes.WebServices.TimeOut := 20000; 

    if vVersao = 300 then
       vACBRCTE.Configuracoes.Geral.VersaoDF := ve300
    else
       vACBRCTE.Configuracoes.Geral.VersaoDF := ve200;

   // ENVIO

    vACBRCTE.Conhecimentos.Clear;
    with vACBRCTE.EventoCTe.Evento.Add do
    begin
      InfEvento.cOrgao   := vACBrCTe.Conhecimentos.Items[0].CTe.ide.cUF;
      InfEvento.tpAmb    := vACBrCTe.Conhecimentos.Items[0].CTe.ide.tpAmb;
      InfEvento.CNPJ     := vACBrCTe.Conhecimentos.Items[0].CTe.emit.CNPJ;
      InfEvento.chCTe    := Copy(vACBrCTe.Conhecimentos.Items[0].CTe.infCTe.Id, 4, 44);
      InfEvento.dhEvento := vDataHoraServ;
      InfEvento.tpEvento := teCCe;
      InfEvento.nSeqEvento := CdsCorrecao.FieldByName('Sequencia_Correcao_Carga').AsInteger;
      i := 0;
      CdsCorrecao.First;
      while (not(CdsCorrecao.Eof)) do
      begin
        with InfEvento.detEvento.infCorrecao.Add do
        begin
          InfEvento.detEvento.infCorrecao.Items.grupoAlterado := CdsCorrecao.FieldByName('Grupo_Correcao_Carga').AsString;
          InfEvento.detEvento.infCorrecao.Items.campoAlterado := CdsCorrecao.FieldByName('Campo_Correcao_Carga').AsString;
          InfEvento.detEvento.infCorrecao.Items.valorAlterado := CdsCorrecao.FieldByName('ValorAlterado_Correcao_Carga').AsString;
          InfEvento.detEvento.infCorrecao.Items.nroItemAlterado := 1;
          inc(i);
        end;
        CdsCorrecao.Next;
      end;
    end;

    vACBRCTE.EnviarEvento(1);  Aqui acontece o Erro


 

Link to comment
Share on other sites

  • Consultores
  • Solution

Bom dia, aparentemente não houve nenhuma alteração de Schemas. Qual exatamente o erro ao Enviar Evento? Marque a opção "Salvar" em WebServices no Componente para gravar o XML de envio. Anexe aqui o XML que está sendo gerado para verificação...

Consultor SAC ACBr

José Junior
Ajude o Projeto ACBr crescer - Assine o SAC

Projeto ACBr     Telefone:(15) 2105-0750 WhatsApp(15)99790-2976.

Link to comment
Share on other sites

  • Consultores

Obrigado pelo retorno

Consultora SAC ACBr

Juliana Tamizou
Ajude o Projeto ACBr crescer - Assine o SAC

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 to comment
Share on other sites

  • Este tópico foi criado há 1094 dias atrás.
  • Talvez seja melhor você criar um NOVO TÓPICO do que postar uma resposta aqui
Guest
This topic is now closed to further replies.
×
×
  • Create New...

Important Information

We have placed cookies on your device to help make this website better. You can adjust your cookie settings, otherwise we'll assume you're okay to continue.