Ir para conteúdo
  • Cadastre-se

dev botao

Carta Correção CCe


Ver Solução Respondido por José M. S. Junior,
  • Este tópico foi criado há 2071 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 para o comentário
Compartilhar em outros sites

  • Moderadores

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

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

  • Administradores

Obrigado pelo retorno

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

  • Este tópico foi criado há 2071 dias atrás.
  • Talvez seja melhor você criar um NOVO TÓPICO do que postar uma resposta aqui.
Visitante
Este tópico está agora fechado para novas respostas
×
×
  • 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.