procedure Tlogpic_form.bitbtn_createClick(Sender: TObject);

begin

  Try
    With (dbm.main_data) Do
    Begin
      Active := False;
      datsrc_maindata := nil;
      Application.ProcessMessages;
      SQL.Clear;

      SQL.Add('Select '
             +'PSKSPN, PSKMPN, PSKPNT, PSKTON, PSKCNR, PSKVNR, '
             +'PCKSPN, PCKITM, PCKORT, PCKBEZ, PCKANR, PCKFBE, PCKCUP, '
             +'MATANR, MATCUP, MATDIM '
             +'From LOGPSK '
             +'Left Outer Join LOGPCK '
             +'On PSKSPN = PCKSPN '
             +'Left Outer Join LOGMAT '
             +'On PCKANR = MATANR '
             +'And PCKCUP = MATCUP '
             +'where PSKSPN = "'+ dbm.No_LOGPIC.FieldByName('PICSPN').Text +'"');

      //datsrc_maindata.DataSet := dbm.main_data;
      Active := True;

      //dbgrid_maindata.Columns[0].Field := dbm.main_data.FieldByName('PSKSPN');
      //dbgrid_maindata.Columns[1].Field := dbm.main_data.FieldByName('PSKMPN');
      //dbgrid_maindata.Columns[2].Field := dbm.main_data.FieldByName('PSKPNT');
      //dbgrid_maindata.Columns[3].Field := dbm.main_data.FieldByName('PSKTON');
      //dbgrid_maindata.Columns[4].Field := dbm.main_data.FieldByName('PSKCNR');
      //dbgrid_maindata.Columns[5].Field := dbm.main_data.FieldByName('PSKVNR');
      //dbgrid_maindata.Columns[6].Field := dbm.main_data.FieldByName('PCKITM');
      //dbgrid_maindata.Columns[7].Field := dbm.main_data.FieldByName('PCKORT');
      //dbgrid_maindata.Columns[8].Field := dbm.main_data.FieldByName('PCKBEZ');
      //dbgrid_maindata.Columns[9].Field := dbm.main_data.FieldByName('PCKANR');
      //dbgrid_maindata.Columns[10].Field := dbm.main_data.FieldByName('PCKFBE');
      //dbgrid_maindata.Columns[11].Field := dbm.main_data.FieldByName('PCKCUP');
      //dbgrid_maindata.Columns[12].Field := dbm.main_data.FieldByName('MATDIM');
    End
  Except
    MessageDlg('Error while getting Datas from DB!', mtError, [mbOK], 0);
  End;

  ShowMessage(dbm.main_data.FieldByName('MATDIM').AsString);

end;