Search options (Page 341 of 400)

//============== ИМПОРТ_1 =================================================
procedure frmChoice_bImportNAF_OnClick (Sender: string; var Cancel: boolean);
var
   OpenDialog: TOpenDialog;
   sl: TStringList;
   arrStr: array of string;

   i,c: integer;

   sid_sked: string; //опись
   sid_type: string; //тип дела
   sDocNum: string; //номер дела
   sDocName: string; //название
   sid_year: string; //год формирования
   sBeginDate: string; //начато
   sEndDate: string; //окончено
   sid_period: string; //срок хранения
   sPages: string; //количество страниц
   sid_room: string; //комната
   sid_scaff: string; //стеллаж
   sid_rack: string; //полка
   sNote: string; //примечание

   YY, MM, DD: string;



   sCurrentDate: string;
   sForm: string;
   sOperation: string;

   sSked: string;
   sType: string;
   sYear: string;
   sPeriod: string;
   sRoom: string;
   sScaff: string;
   sRack: string;
   sFileYes: string;

begin
     OpenDialog := TOpenDialog.Create(frmChoice);
     OpenDialog.InitialDir := 'd:\Archive 1.01\ImportCSV';
     if OpenDialog.Execute then
     begin
          sl := TStringList.Create;
          sl.LoadFromFile (OpenDialog.FileName); ///открытие файла

          c := sl.Count - 1;
          for i := 1 to c do
          begin
               arrStr := SplitString(sl[i], ';');

               //0 sid_sked
               if arrStr[0] <> '' then
               begin
                    sid_sked := SQLExecute ('SELECT id FROM sked WHERE sked LIKE "' + arrStr[0] +'"');
                    if sid_sked = '' then
                    begin
                         SQLExecute ('INSERT INTO sked (sked) VALUES ("'+ arrStr[0] +'");');
                         sid_sked := IntToStr(Last_Insert_id('sked'));
                         if sid_sked = '-1' then sid_sked := 'NULL';
                    end;
               end else sid_sked := 'NULL';

              //1 sid_type
               if arrStr[1] <> '' then
               begin
                    sid_type := SQLExecute ('SELECT id FROM type WHERE type LIKE "' + arrStr[1] +'"');
                    if sid_type = '' then
                    begin
                         SQLExecute ('INSERT INTO type (type) VALUES ("'+ arrStr[1] +'");');
                         sid_type := IntToStr(Last_Insert_id('type'));
                         if sid_type = '-1' then sid_type := 'NULL';
                    end;
               end else sid_type := 'NULL';

               //2 sDocNum
               if arrStr[2]<>'' then sDocNum := '"'+arrStr[2]+'"' else sDocNum := 'NULL';

               //3 sDocName
               if arrStr[3]<>'' then sDocName := '"' +  ReplaceStr(arrStr[3], '"', '""') + '"' else sDocName := 'NULL';

               //4 sid_year
               if arrStr[4] <> '' then
               begin
                    sid_year := SQLExecute ('SELECT id FROM year WHERE year LIKE "' + arrStr[4] +'"');
                    if sid_year = '' then
                    begin
                         SQLExecute ('INSERT INTO year (year) VALUES ("'+ arrStr[4] +'");');
                         sid_year := IntToStr(Last_Insert_id('year'));
                         if sid_year = '-1' then sid_year := 'NULL';
                    end;
               end else sid_year := 'NULL';

               //5 sBeginDate
               if arrStr[5]<>'' then
                  sBeginDate := '"'+ FormatDateTime('yyyy-MM-DD 00:00:00.000', StrToDate(arrStr[5])) + '"'
                  else sBeginDate := 'NULL';

               //6 sEndDate
               if arrStr[6]<>'' then
                  sEndDate := '"'+ FormatDateTime('yyyy-MM-DD 00:00:00.000', StrToDate(arrStr[6])) + '"'
                  else sEndDate := 'NULL';

               //7 sid_period
               if arrStr[7] <> '' then
               begin
                    sid_period := SQLExecute ('SELECT id FROM period WHERE period LIKE "' + arrStr[7] +'"');
                    if sid_period = '' then
                    begin
                         SQLExecute ('INSERT INTO period (period) VALUES ("'+ arrStr[7] +'");');
                         sid_period := IntToStr(Last_Insert_id('period'));
                         if sid_period = '-1' then sid_period := 'NULL';
                    end;
               end else sid_period := 'NULL';

               //8 sPages
               if arrStr[8]<>'' then sPages := '"'+arrStr[8]+'"' else sPages := 'NULL';

               //9 sid_room
               if arrStr[9] <> '' then
               begin
                    sid_room := SQLExecute ('SELECT id FROM room WHERE room LIKE "' + arrStr[9] +'"');
                    if sid_room = '' then
                    begin
                         SQLExecute ('INSERT INTO room (room) VALUES ("'+ arrStr[9] +'");');
                         sid_room := IntToStr(Last_Insert_id('room'));
                         if sid_room = '-1' then sid_room := 'NULL';
                    end;
               end else sid_room := 'NULL';

               //10 sid_scaff
               if arrStr[10] <> '' then
               begin
                    sid_scaff := SQLExecute ('SELECT id FROM scaff WHERE scaff LIKE "' + arrStr[10] +'"');
                    if sid_scaff = '' then
                    begin
                         SQLExecute ('INSERT INTO scaff (scaff) VALUES ("'+ arrStr[10] +'");');
                         sid_scaff := IntToStr(Last_Insert_id('scaff'));
                         if sid_scaff = '-1' then sid_scaff := 'NULL';
                    end;
               end else sid_scaff := 'NULL';

               //11 sid_rack
               if arrStr[11] <> '' then
               begin
                    sid_rack := SQLExecute ('SELECT id FROM rack WHERE rack LIKE "' + arrStr[11] +'"');
                    if sid_rack = '' then
                    begin
                         SQLExecute ('INSERT INTO rack (rack) VALUES ("'+ arrStr[11] +'");');
                         sid_rack := IntToStr(Last_Insert_id('rack'));
                         if sid_rack = '-1' then sid_rack := 'NULL';
                    end;
               end else sid_rack := 'NULL';

               //12 sNote
               if arrStr[12]<>'' then sNote := '"'+arrStr[12]+'"' else sNote := 'NULL';




               SQLExecute ('INSERT INTO one (id_sked, id_type, [docNum], [docName], id_year, [beginDate], [endDate], id_period, [pages], id_room, id_scaff, id_rack, [note]) VALUES ('+
               sid_sked +','+
               sid_type +','+
               sDocNum +','+
               sDocName +','+
               sid_year +','+
               sBeginDate +','+
               sEndDate +','+
               sid_period +','+
               sPages +','+
               sid_room +','+
               sid_scaff +','+
               sid_rack +','+
               sNote +
               ');');




                 sCurrentDate := '"' + FormatDateTime('yyyy-MM-DD hh:nn:ss.000', now) + '"';
                 sForm  := '"NULL"';
                 sSked   := '"'+arrStr[0]+'"';
                 sType   := '"'+arrStr[1]+'"';
                 sYear  := '"'+arrStr[4]+'"';
                 sPeriod  := '"'+arrStr[7]+'"';
                 sPages  := '"'+frmDocProcessingNAF.edPages.Text+'"';
                 sRoom  := '"'+arrStr[9]+'"';
                 sScaff  := '"'+arrStr[10]+'"';
                 sRack  := '"'+arrStr[11]+'"';
                 sNote  := '"'+frmDocProcessingNAF.mNote.Text+'"';
                 sFileYes  := '"NULL"';
                 sOperation := '"Додано"';


                 SQLExecute ('INSERT INTO logNAF (date, user, form, operation, sked, type, docNum, docName, year, beginDate, endDate, period, pages, room, scaff, rack, note, FileYes)' +
                 'VALUES ('+sCurrentDate+', "'+sUser+'", '+sForm+','+sOperation+','+sSked+','+sType+','+sDocNum+','+sDocName+', '+sYear+', '+sBeginDate+', '+sEndDate+', '+sPeriod+', '+sPages+', '+sRoom+', '+sScaff+', '+sRack+', '+sNote+', '+sFileYes+')');






               frmChoice.Label8.Caption := IntToStr(i) + ' з ' + IntToStr(c);
               Application.ProcessMessages;
          end;

          sl.Free;
          UpdateDatabase('sked');
          UpdateDatabase('type');
          UpdateDatabase('year');
          UpdateDatabase('period');
          UpdateDatabase('room');
          UpdateDatabase('scaff');
          UpdateDatabase('rack');
          frmChoice.TableGrid1.dbUpdate;
          frmActions.tgActions.dbUpdate;
     end;
     OpenDialog.Free;
     frmChoice.bSearch1.Click;  ////!!!!!Нажатие на кнопку ПОИСК (при этом видимые записи таблицы обновляются)


end;
//====================================================================