Преобразование OPI -> OInt (workflow)

This commit is contained in:
Vitaly the Alpaca
2024-07-30 09:08:20 +00:00
committed by Vitaly the Alpaca (bot)
parent 47b64c998a
commit b592a855f8
4 changed files with 830 additions and 831 deletions
File diff suppressed because it is too large Load Diff
@@ -509,11 +509,11 @@ Procedure AddField(Val Name, Val Value, Val Type, Collection) Export
ElsIf Type = "DateISO" Then
OPI_TypeConversion.GetDate(Value);
Value = XMLString(Value);
Value = Left(XMLString(Value), 19);
ElsIf Type = "DateISOZ" Then
OPI_TypeConversion.GetDate(Value);
Value = XMLString(Value) + "Z";
Value = Left(XMLString(Value), 19) + "Z";
ElsIf Type = "Collection" Then
OPI_TypeConversion.GetCollection(Value);
@@ -509,11 +509,11 @@ Procedure AddField(Val Name, Val Value, Val Type, Collection) Export
ElsIf Type = "DateISO" Then
OPI_TypeConversion.GetDate(Value);
Value = XMLString(Value);
Value = Left(XMLString(Value), 19);
ElsIf Type = "DateISOZ" Then
OPI_TypeConversion.GetDate(Value);
Value = XMLString(Value) + "Z";
Value = Left(XMLString(Value), 19) + "Z";
ElsIf Type = "Collection" Then
OPI_TypeConversion.GetCollection(Value);
@@ -509,12 +509,11 @@
ИначеЕсли Тип = "ДатаISO" Тогда
OPI_ПреобразованиеТипов.ПолучитьДату(Значение);
Значение = XMLСтрока(Значение);
Значение = Лев(XMLСтрока(Значение), 19);
ИначеЕсли Тип = "ДатаISOZ" Тогда
OPI_ПреобразованиеТипов.ПолучитьДату(Значение);
Значение = XMLСтрока(Значение) + "Z";
Сообщить(Значение);
Значение = Лев(XMLСтрока(Значение), 19) + "Z";
ИначеЕсли Тип = "Коллекция" Тогда
OPI_ПреобразованиеТипов.ПолучитьКоллекцию(Значение);