/*
Процедура сохраняет производственные даты этапов по заказу
1. Проверить, есть ли заказ с таким ID.
2. Удалить все даты по заказу
3. Сохранить все даты заново
    Разобрать строку-массив
        Пока не встретим символ конца строки, берем значение полей, и пихаем их в переменные
        выполнить запрос на вставку данных
        Делать, Пока не закончатся строки

Пример входных данных
--ArrStr = 'Раскрой МДФ,Раскрой МДФ,1.08-2.08,,;Раскрой шпона ,Раскрой Шпона,1.08-2.08,,;Приклейка шпона +шлифовка,Приклейка шпона и шлифовка,3-6-7.08,,;Изготовление заготовки (Титова О.),Изг. Заготовки Титова,1-14.08,,;ЧПУ (Даник),not found,6.08-7.08,10.08-13.08,;ЦВЕТКОВ Н.   Сборка,Сборка,8-14.08,,;Склад (Люба),not found,15-16.08,,;Станок,Станок,15-16.08,,;ЯБЛОКОВА  Шлифовка,Шлифовка,17-22.08,,;Попов А.,Попов,1.08-8.08,,;Шлифовка (Попов),Шлифовка Попов,9.08-13.08,,;Л № 1  ЮЛЯ  Лакировка,Лакировка,23-30.08,,;ОКСАНА,Оксана,31.07,,;Упаковка,Упаковка,31.08,,;';
--OrderID=2636;
*/

create or alter procedure SAVE_ORDERS_DATES (
    ARRSTR varchar(30000),
    ORDERID integer,
    PlanDate_FirstStage varchar(20),
    PlanDate_Upack varchar(20)
    )
returns (
    ERRNUM smallint,
    ERRTEXT varchar(1000)
    )
as
    declare variable CURRSTR varchar(3000);
    declare variable ISDONE smallint = 0;
    declare variable sPos1 smallint;
    declare variable sPos2 smallint;
    declare variable OrderExist smallint;
    
    declare variable PDate1 VARCHAR(20);
    declare variable PDate2 VARCHAR(20);
    declare variable DSector VARCHAR(50);
    declare variable DDescr VARCHAR(50);

begin
 -- 1. Проверяем, есть ли такой заказ
    select ID from orders where id = :OrderID INTO :OrderExist;
    if (orderexist is null) then
        begin
            ERRNUM=1;
            ERRTEXT='Не найден заказ с ID ' || :OrderID;
            Suspend;
            Exit;
        End
 -- 2. Удаляем предыдущие данные
    Delete from orders_date_plan od where od.order_id = :OrderID;

 -- 3. В цикле расщепляем строку и добавляем данные
  While (IsDone=0) Do
    Begin
        sPos1 = POsition (';',arrstr);
        CURRSTR = SUBSTRING (arrstr FROM 1 FOR sPos1-1);
        -- Отрываем по одному значению и сохраняем в переменные
          -- DataDescription
            sPos2 = POsition (',',CURRSTR);
            DDescr= SUBSTRING(CURRSTR FROM 1 FOR sPos2-1);
            currstr = SUBSTRING (CurrSTr From sPos2+1 FOR CHAR_LENGTH(CurrStr));
          -- DateSector
            sPos2 = POsition (',',CURRSTR);
            DSector= SUBSTRING(CURRSTR FROM 1 FOR sPos2-1);
            currstr = SUBSTRING (CurrSTr From sPos2+1 FOR CHAR_LENGTH(CurrStr));
          -- Date1
            sPos2 = POsition (',',CURRSTR);
            PDate1= SUBSTRING(CURRSTR FROM 1 FOR sPos2-1);
            currstr = SUBSTRING (CurrSTr From sPos2+1 FOR CHAR_LENGTH(CurrStr));
        -- Date2
            sPos2 = POsition (',',CURRSTR);
            PDate2= SUBSTRING(CURRSTR FROM 1 FOR sPos2-1);
            currstr = SUBSTRING (CurrSTr From sPos2+1 FOR CHAR_LENGTH(CurrStr));
    -- Обновляем строку, отрезая разобранную часть
      arrstr = SUBSTRING (arrstr From sPos1+1 FOR CHAR_LENGTH(arrstr));

    -- 4. Вставляем данные
      Insert Into orders_date_plan  (order_id, date_sector, date_description, plan_date, plan_date2) VALUES (:orderid, :dsector, :ddescr,:pdate1, :pdate2);

    -- Проверка выхода
      if (:ArrStr = '') then
            IsDone=1;
    end
    -- 5. После всего обновляем ключевые даты в таблице заказов
  Update orders o set o.plan_date_firststage = :plandate_firststage, o.plan_date_pack = :plandate_upack where o.id= :orderid;

  errnum=0;
  errtext='ok';
  suspend;
  -- commit;
end

Function ArrToString(Arr As Variant) As String
    Const DelimStr = ";"
    Const DelimColumn = ","
    
    Dim i As Integer, j As Integer
    Dim ResSTR As String
    
    ' В цикле проходим массив, и если значение не содержит в себе символов разделителей, то клеим его к результирующей строке
    For i = 1 To UBound(Arr)
        For j = 1 To UBound(Arr, 2)
            If InStr(Arr(i, j), DelimStr) > 0 Or InStr(Arr(i, j), DelimColumn) > 0 Then
                Call MsgBox("!Ошибка. Ячейка содержит символ разделитель. " & vbLf & " Индекс: " & i & ";" & j & vbLf & "Неправильные символы будут заменены на пробелы. Старайтесь их избегать", vbExclamation, "Неправильный символ")
                    Arr(i, j) = Replace(Arr(i, j), DelimStr, " ")
                    Arr(i, j) = Replace(Arr(i, j), DelimColumn, " ")
                    Arr(i, j) = Trim(Replace(Arr(i, j), "  ", " "))
            Else
                ResSTR = ResSTR & Arr(i, j) & DelimColumn
            End If
        Next j
        ResSTR = ResSTR & DelimStr ' В  конце клеем символ-разделитель конца строки
    Next i
    
    ArrToString = ResSTR
End Function

Sub S_СохранитьДаты(OrderID As Integer)
'...
' Опустил кусок кода, где объявляются переменные и формируется массив дат <===============
'...
' Формируем строку для передачи в ХП (Хранимую процедуру)
    ArrStr = ArrToString(ArrDate)
'=====
    Call CreateConnection
    If CN.State = adStateClosed Then Exit Sub
        CN.BeginTrans
        ' Формируем запрос
            With CMD
                .CommandType = adCmdStoredProc
                .CommandText = "SAVE_ORDERS_DATES"
                .NamedParameters = True
                .Parameters.Refresh ' Получили список параметров
                .Parameters(0).Value = ArrStr
                .Parameters(1).Value = OrderID
                .Parameters(2).Value = ДатаНачалаПроизводства
                .Parameters(3).Value = ДатаУпаковки
            End With
        ' Выполняем запрос.
            Set RS = CMD.Execute
            
        ' Если прошло без ошибок,
            If RS!ERRNUM = 0 Then
                CN.CommitTrans ' значит можно подтвердить транзакцию
            Else
                CN.RollbackTrans ' Или откатить
            End If
        
        Call TerminateConnection
End Sub