Dúvida DadosReducaoZ

[Diego.Melo]

Caros, estou com um problema na hora de gravar os dados da reducao z em uma impressora bematech mp4000,  usando "DadosReducaoZ" o cooInicial sempre fica zerado. Tenho o seguinte procedimento no meu sistema:

ThreadSimplesProcesso(nil, 'Emitindo Redução Z. Aguarde..',
    procedure
    var
      Sintegra60m: TSintegra60m;
      Sintegra60a: TSintegra60a;
      ACBrECFDadosRZ: TACBrECFDadosRZ;
      ReducaoZ: TStringList;
      IdSintegra60m: Int64;
      TimeoutAnterior: Integer;
    begin
      try
        TThread.Queue(TThread.CurrentThread,
          procedure
          var
            I: Integer;
          begin
            FDataModule.ACBrECF.Desativar;
            FDataModule.ACBrECF.Ativar;
            TimeoutAnterior := FDataModule.ACBrECF.TimeOut;
            FDataModule.ACBrECF.TimeOut := 600;
            ReducaoZ := TStringList.Create;
            Try
              ACBrECFDadosRZ := FDataModule.ACBrECF.DadosReducaoZClass;
              FDataModule.ACBrECF.ReducaoZ;
              ReducaoZ.Text := FDataModule.ACBrECF.DadosUltimaReducaoZ;

              Sintegra60m := TSintegra60m.Create;
              Sintegra60m.BeginTransaction;
              Sintegra60m.Id := 0;
              Sintegra60m.IdEmpresa := TSessaoUsuario.GetInstance.Empresa.Id;
              Sintegra60m.NumeroEquipamento := StrToIntDef(ACBrECFDadosRZ.NumeroDoECF, 0);
              Sintegra60m.NumeroSerieEcf := ACBrECFDadosRZ.NumeroDeSerie;
              Sintegra60m.DataEmissao := TSessaoUsuario.GetInstance.DataServidor;
              Sintegra60m.HoraEmissao := TSessaoUsuario.GetInstance.HoraMovimento;
              Sintegra60m.DataMovimento := ACBrECFDadosRZ.DataDoMovimento;
              Sintegra60m.ModeloDocumentoFiscal := '2D';
              Sintegra60m.COOInicial := StrToIntDef(ACBrECFDadosRZ.NumeroCOOInicial, 0);
              Sintegra60m.COOFinal := (ACBrECFDadosRZ.COO + 1);
              Sintegra60m.CRZ := (ACBrECFDadosRZ.CRZ + 1);
              Sintegra60m.CRO := ACBrECFDadosRZ.CRO;
              Sintegra60m.ValorVendaBruta := ACBrECFDadosRZ.ValorVendaBruta;
              Sintegra60m.ValorGrandeTotal := ACBrECFDadosRZ.ValorGrandeTotal;
              IdSintegra60m := Sintegra60m.Salvar;

              // ICMS
              for I := 0 to ACBrECFDadosRZ.ICMS.Count - 1 do
              begin
                try
                  Sintegra60a := TSintegra60a.Create;
                  Sintegra60a.Id := 0;
                  Sintegra60a.IdSintegra60m := IdSintegra60m;
                  Sintegra60a.SituacaoTributaria := StringReplace(FormatFloat('00.00', ACBrECFDadosRZ.ICMS.Aliquota), ',', '', [rfReplaceAll]);
                  Sintegra60a.Valor := ACBrECFDadosRZ.ICMS.Total;
                  Sintegra60a.Salvar;
                finally
                  FreeAndNil(Sintegra60a);
                end;
              end;

              // ICMS - Substituição Tributária
              try
                Sintegra60a := TSintegra60a.Create;
                Sintegra60a.Id := 0;
                Sintegra60a.IdSintegra60m := IdSintegra60m;
                Sintegra60a.SituacaoTributaria := 'F';
                Sintegra60a.Valor := ACBrECFDadosRZ.SubstituicaoTributariaICMS;
                Sintegra60a.Salvar;
              finally
                FreeAndNil(Sintegra60a);
              end;

              // ICMS - ISento
              try
                Sintegra60a := TSintegra60a.Create;
                Sintegra60a.Id := 0;
                Sintegra60a.IdSintegra60m := IdSintegra60m;
                Sintegra60a.SituacaoTributaria := 'I';
                Sintegra60a.Valor := ACBrECFDadosRZ.IsentoICMS;
                Sintegra60a.Salvar;
              finally
                FreeAndNil(Sintegra60a);
              end;

              // ICMS - Não-incidência
              try
                Sintegra60a := TSintegra60a.Create;
                Sintegra60a.Id := 0;
                Sintegra60a.IdSintegra60m := IdSintegra60m;
                Sintegra60a.SituacaoTributaria := 'N';
                Sintegra60a.Valor := ACBrECFDadosRZ.NaoTributadoICMS;
                Sintegra60a.Salvar;
              finally
                FreeAndNil(Sintegra60a);
              end;

              // ICMS - Desconto
              try
                Sintegra60a := TSintegra60a.Create;
                Sintegra60a.Id := 0;
                Sintegra60a.IdSintegra60m := IdSintegra60m;
                Sintegra60a.SituacaoTributaria := 'DESC';
                Sintegra60a.Valor := ACBrECFDadosRZ.DescontoICMS;
                Sintegra60a.Salvar;
              finally
                FreeAndNil(Sintegra60a);
              end;

              // Cancelamento - ICMS
              try
                Sintegra60a := TSintegra60a.Create;
                Sintegra60a.Id := 0;
                Sintegra60a.IdSintegra60m := IdSintegra60m;
                Sintegra60a.SituacaoTributaria := 'CANC';
                Sintegra60a.Valor := ACBrECFDadosRZ.CancelamentoICMS;
                Sintegra60a.Salvar;
              finally
                FreeAndNil(Sintegra60a);
              end;

              // ISSQN
              for I := 0 to ACBrECFDadosRZ.ISSQN.Count - 1 do
              begin
                try
                  Sintegra60a := TSintegra60a.Create;
                  Sintegra60a.Id := 0;
                  Sintegra60a.IdSintegra60m := IdSintegra60m;
                  Sintegra60a.SituacaoTributaria := 'ISS';
                  Sintegra60a.Valor := ACBrECFDadosRZ.ISSQN.Total;
                  Sintegra60a.Salvar;
                finally
                  FreeAndNil(Sintegra60a);
                end;
              end;
              Sintegra60m.CommitTransaction;

            except
              on E: Exception do
              begin
                Sintegra60m.RollbackTransaction;
                raise Exception.Create('Falha na emissão da Redução Z. ' + E.Message);
              end;
            end;

            try
              if not DirectoryExists(CaminhoApp + 'Arquivos\Reducoes Z') then
              begin
                if ForceDirectories(CaminhoApp + 'Arquivos\Reducoes Z') then
                  ReducaoZ.SaveToFile(Format('%sArquivos\Reducoes Z\ReducaoZ_%s.txt', [CaminhoApp, FormatDateTime('ddmmyyyy', ACBrECFDadosRZ.DataDoMovimento)]));
              end
              else
                ReducaoZ.SaveToFile(Format('%sArquivos\Reducoes Z\ReducaoZ_%s.txt', [CaminhoApp, FormatDateTime('ddmmyyyy', ACBrECFDadosRZ.DataDoMovimento)]));
            except
              // on E: Exception do
            end;
          end);
      finally
        FDataModule.ACBrECF.TimeOut := TimeoutAnterior;
        FreeAndNil(Sintegra60m);
        FreeAndNil(ReducaoZ);
      end;
    end);