Block( {Графа С} Let(@BufMemo, ""), Let(@BufString, DCL.GetFieldVal(PRIM, 'GC1') + Supress(' ', DCL.GetFieldVal(PRIM, 'GC2'))), AddToMemo(@BufMemo, Supress('1-', BufString)), Let(@BufString1, DCL.GetFieldVal(PRIM, 'GD0')), Let(@BufMemo1, GetMemoVal(ADD, 'GD', 0)), Let(@Bufstring, DCL.GetFieldVal(PRIM, 'GD1')), If(Length(BufString), Let(@BufString, FormatDateTime('DD.MM.YYYY', Convert(BufString, DateTime)))), AddToMemo(@BufMemo1, BufString), Let(@BufInt, StringsCount(@BufMemo1)), If(BufInt, Block( Let(@BufString, '2-' + BufString1 + ' ' + GetString(@BufMemo1, 0)), AddToMemo(@BufMemo, BufString), Let(@BufInt1, 1), While(BufInt1 < BufInt, Block( AddToMemo(@BufMemo, GetString(@BufMemo1, BufInt1) ), Let(@BufInt1, BufInt1 + 1) ) ) ), AddToMemo(@BufMemo, Supress('2-', BufString1)) ), GTD.SFP('Графа C', 'Caption', BufMemo), {Графа D} If(DCL.GetFieldVal(PRIM, 'GDPermit'), Let(@BufString, 'Разовое допущение'), Let(@BufString, '') ), Let(@BufString, BufString + Supress(' AТД №', DCL.GetFieldVal(PRIM, 'GDATD'))), GTD.SFP('Графа D_Результат', 'Caption', BufString), GTD.SFP('Графа D_Средства идентификации_Количество', 'Caption', Zero('%d', DCL.GetFieldVal(PRIM, 'GDSealsCount'))), GTD.SFP('Графа D_Средства идентификации_Номера', 'Caption', DCL.GetFieldVal(PRIM, 'GDSealsNum')), GTD.SFP('Графа D_Средства идентификации_Тип', 'Caption', Zero('%d', DCL.GetFieldVal(PRIM, 'GDSealsType'))), Let(@BufString, DCL.GetFieldVal(PRIM, 'GD_TransitDate')), If(Length(BufString), Let(@BufString, FormatDateTime('DDMMYY', Convert(BufString, DateTime)))), Let(@BufString, BufString + Supress('/', DCL.GetFieldVal(ADD2, 'GD31') + Supress(' ', DCL.GetFieldVal(ADD2, 'GD32')) ) ), {В начале добавляем пробелы, чтобы была видна подпись (поле ввода ее накрывает)} If(Length(BufString), Let(@BufString, ' ' + BufString)), Let(@BufMemo, ConvertToMemo(BufString)), Let(@BufMemo1, GetMemoVal(ADD2, 'GD33', 0)), { AddStrToSnake(@BufMemo1, GetEconomicOperator('D'), 1, '/'),} Let(@BufMemo, BufMemo + BufMemo1), GTD.SFP('Графа D_Срок транзита', 'Caption', BufMemo), Let(@BufString, DCL.GetFieldVal(ADD2, 'GD34') + Supress(' ', DCL.GetFieldVal(PRIM, 'GDFIO') + Supress(' ЛНП ', DCL.GetFieldVal(PRIM, 'GD2')) ) ), GTD.SFP('Графа D_Подпись', 'Caption', BufString) )