Carta Correção CCe

[Luiz Carlos de Lima]

Bom dia,

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.

[Luiz Carlos de Lima]

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

[José M. S. Junior]

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.

[José M. S. Junior]

Tópico movido para a área do SAC, para que o SLA de respostas seja considerado

[Luiz Carlos de Lima]

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

 

[José M. S. Junior]

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

[Luiz Carlos de Lima]

Boa tarde Jose, o que eu precisava voce já respondeu, que era gravar o XML de envio (vACBRCTE.Configuracoes.WebServices.Salvar := true;), por ele ja resolvi o problema. Muito obrigado.

[Juliana Tamizou]

Obrigado pelo retorno