Fórum SQL de Consulta e Atualizacao #49717

  Qry := TSQLQuery.Create(nil);
  Qry.SQLConnection := BD.BD;
  Qry.Close;
  Qry.SQL.Clear;
  Qry.SQL.Text := ´Select CliRem.UF as ....´;  // select principal

  QryNF := TSQLQuery.Create(nil);
  QryNF.SQLConnection := Bd.BD;
  QryNF.Close;
  QryNF.SQL.Clear;
  QryNF.SQL.Text := ´Select CTONOTAS.NOTAFISCAL... ;  // Select q é feito a cada conhecimento para pegar as nf´s digitadas nele

  // Query p/ atualizacao do conhecimento impresso
  QryAtualiza := TSQLQuery.Create(nil);
  QryAtualiza.SQLConnection := BD.BD;
  QryAtualiza.Close;
  QryAtualiza.SQL.Clear;
  QryAtualiza.SQL.Text := ´Update CONHECIMENTOS Set ´ +
                          ´JA_IMPRESSO = ´ + QuotedStr(´S´) + ´ ´ +
                          ´WHERE (SERIE = :SerieCto)´;

  try
    try
      Qry.ParamByName(´Data´).AsDate := edtData.Date;
      Qry.ParamByName(´IniCto´).AsInteger := StrToIntDef(Copy(cmbIni.Text, 1, 6), 0);
      Qry.ParamByName(´FimCto´).AsInteger := StrToIntDef(Copy(cmbIni.Text, 1, 6), 0);
      Qry.Open;
      if not Qry.IsEmpty then
      begin
        // Inicia o Documento
        VDODmPrinter1.BeginDoc;
        VDODmPrinter1.Font.Size := fsCondensed;
        while not Qry.Eof do
        begin
          with VDODmPrinter1, Qry do
          begin
            // Detalhes do Conhecimento
            SomaQtde := 0;
            SomaPesoR := 0.00;
            SomaPesoC := 0.00;
            SomaCubagem := 0;
            SomaNF := 0.00;
            TemSecLinha := False;

            {-=-} Print(000, ´´, True);
            {-=-} Print(000, ´´, True);
            Print(100, ´TRANSPORTE DE CARGAS´, True);
            Print(100, FieldByName(´COD_TRANSPORTE´).AsString, True);
            Print(100, FieldByName(´EMISSAO´).AsString, True);
            ...
           {-=-} Print(000, ´´, True);

            // Ini NF  (selecao das notas fiscais do conhecimento
            QryNF.ParamByName(´SerieCto´).AsInteger := Qry.FieldByName(´SERIE´).AsInteger;
            Open;
            try
              try
                while not QryNF.Eof do
                begin
                     // Detalhes da NF
                end;  // while eof
              except
                on E:Exception do
                begin
                  MsgError(´Erro na consulta de NF para os Conhecimentos´);
                end;
              end;  // try..except
            finally
              QryNF.Close;
            end;  // try..finally
            // Fim NF

            // Atualiza Cto como já impresso
            // O erro quando dá em tempo de execucao pega a exceção deste try
            try
              try
                QryAtualiza.Close;
                QryAtualiza.SQL.Clear;
                QryAtualiza.SQL.Text := ´Update CONHECIMENTOS Set ´ +
                          ´JA_IMPRESSO = ´ + QuotedStr(´S´) + ´ ´ +
                          ´WHERE (SERIE = :SerieCto)´;
                QryAtualiza.ParamByName(´SerieCto´).AsInteger :=
                                   Qry.FieldByName(´SERIE´).AsInteger;
                ExecSQL;
              except
                on E:Exception do
                begin
                  MsgError(´Erro na atualização do Status de impressão.´);
                end;
              end;  // try..except
            finally
              QryAtualiza.Close;
            end;  // try..finally
            Next;  // Vai para o Proximo Conhecimento
          end;  // VDODmPrinter1, Qry
        end; // While Eof
        // Finaliza a Impressão
        VDODmPrinter1.Font.Size := fsDefault;
        VDODmPrinter1.EndDoc(False);
      end
      else
      begin
        MsgWarn(´Sem Conhecimentos para imprimir´);
      end;  // if Qry.IsEmpty
    except
      on E:Exception do
      begin
        ShowMessage(´Erro na recuperação dos conhecimento para imprimir.´ + #1313 +
                    ´SQL: ´ + Qry.SQL.Text + 13 +
                    ´Erro Compilador: ´ + E.Message);
      end;
    end;  // try..except
  finally
    Qry.Close;
    QryNF.Close;
    FreeAndNil(Qry);
    FreeAndNil(QryNF);
  end;  // try..finally