Создаем ярлык i0001003 за период "рік 2021"
В него добавляем табличку i5100003 - работаем с ней - все отлично. Сохраняем кнопкой. Сохраняется.
Добавляем табличку i2100003. Сохраняем ее. Закрываем.
Открываем i5100003 - редактируем (или нет). Нажимаем кнопку сохранить (Голубенький шестиугольник) и вылетает ошибка...
Удаляем табличку i2100003 - все работает.
Импорт экспорт, копирование, создание нового отчета - ведет себя одинаково...
База на ошибки проверена - ошибок нет.
И что делать??
- | Показать
-
M.E.DOC 11.02.093
Мережева версія
I5100003 ОС: Microsoft Windows NT 6.1.7601 Service Pack 1
Помилка виконання програми обробки:
If rsSomeDoc.FldVal("A"&cstr(row)&"_3") <> 0 then
Помилка отримання значення поля A34_3 таблиці MAIN
Поле відсутнє у таблиці!
Line: 205 Pos: 7
Error: 0x80020101
Script sub: CHECK
'VERSION=1;STYLE=NEW;
SUB MODIFY() 'Модифiкацiя
rsMain.Edit
With rsMain
t = Doc.PerType
For i= 2 to 3
.FldVal("A17_"+CStr(i)) = rsMain.SumNotNull("A4_"&Cstr(i)&";A5_"&Cstr(i)&";A6_"&Cstr(i)&";A7_"&Cstr(i)&";A8_"&Cstr(i)&";A9_"&Cstr(i),"A11_"&Cstr(i)&";A12_"&Cstr(i)&";A13_"&Cstr(i)&";A14_"&Cstr(i)&";A15_"&Cstr(i)&";A16_"&Cstr(i)&"")
'Doc.SumByRange("A%d_"+CStr(i), 4, 9) - Doc.SumByRange("A%d_"+CStr(i), 11, 16)
.FldVal("A24_"+CStr(i)) = rsMain.SumNotNull("A17_"&Cstr(i)&";A19_"&Cstr(i)&";A21_"&Cstr(i)&";A23_"&Cstr(i)&"","A18_"&Cstr(i)&";A20_"&Cstr(i)&";A22_"&Cstr(i)&"")'Doc.SumByList("A17_"+CStr(i),"A19_"+CStr(i),"A21_"+CStr(i),"A23_"+CStr(i)) - Doc.SumByList("A18_"+CStr(i),"A20_"+CStr(i),"A22_"+CStr(i))
.FldVal("A48_"+CStr(i)) = rsMain.SumNotNull("A26_"&Cstr(i)&";A28_"&Cstr(i)&";A30_"&Cstr(i)&";A32_"&Cstr(i)&";A34_"&Cstr(i)&";A36_"&Cstr(i)&";A38_"&Cstr(i)&";A40_"&Cstr(i)&";A42_"&Cstr(i)&";A43_"&Cstr(i)&";A45_"&Cstr(i)&";A47_"&Cstr(i)&"", _
"A27_"&Cstr(i)&";A29_"&Cstr(i)&";A31_"&Cstr(i)&";A33_"&Cstr(i)&";A35_"&Cstr(i)&";A37_"&Cstr(i)&";A39_"&Cstr(i)&";A41_"&Cstr(i)&";A44_"&Cstr(i)&";A46_"&Cstr(i)&"")
'Doc.SumByList("A26_"+CStr(i),"A28_"+CStr(i),"A30_"+CStr(i),"A32_"+CStr(i),"A34_"+CStr(i),"A36_"+CStr(i),"A38_"+CStr(i),"A40_"+CStr(i),"A42_"+CStr(i),"A43_"+CStr(i),"A45_"+CStr(i),"A47_"+CStr(i)) - _
'Doc.SumByList("A27_"+CStr(i),"A29_"+CStr(i),"A31_"+CStr(i),"A33_"+CStr(i),"A35_"+CStr(i),"A37_"+CStr(i),"A39_"+CStr(i),"A41_"+CStr(i),"A44_"+CStr(i),"A46_"+CStr(i))
.FldVal("A65_"+CStr(i)) = rsMain.SumNotNull("A50_"&Cstr(i)&";A52_"&Cstr(i)&";A53_"&Cstr(i)&";A56_"&Cstr(i)&";A60_"&Cstr(i)&";A64_"&Cstr(i)&"", _
"A51_"&Cstr(i)&";A54_"&Cstr(i)&";A55_"&Cstr(i)&";A57_"&Cstr(i)&";A59_"&Cstr(i)&";A61_"&Cstr(i)&";A62_"&Cstr(i)&";A63_"&Cstr(i)&"")
'Doc.SumByList("A50_"+CStr(i),"A52_"+CStr(i),"A53_"+CStr(i),"A56_"+CStr(i),"A60_"+CStr(i),"A64_"+CStr(i)) - _
'Doc.SumByList("A51_"+CStr(i),"A54_"+CStr(i),"A55_"+CStr(i),"A57_"+CStr(i),"A59_"+CStr(i),"A61_"+CStr(i),"A62_"+CStr(i),"A63_"+CStr(i))
.FldVal("A66_"+CStr(i)) = rsMain.SumNotNull("A24_"&Cstr(i)&";A48_"&Cstr(i)&";A65_"&Cstr(i)&"")'Doc.SumByList("A24_"+CStr(i),"A48_"+CStr(i),"A65_"+CStr(i))
.FldVal("A69_"+CStr(i)) = rsMain.SumNotNull("A66_"&Cstr(i)&";A68_"&Cstr(i)&"")'Doc.SumByList("A66_"+CStr(i),"A68_"+CStr(i))
.FldVal("A71_"+CStr(i)) = .SumNotNull("A69_"&Cstr(i)&";A70_"&Cstr(i)&"") '.FldVal("A71_"+CStr(i)) = Doc.SumByRange("A%d_"+CStr(i), 69, 70)'rsMain.SumNotNull("A69_"&Cstr(i)&";A70_"&Cstr(i)&"")
Next
If t = 30 Then
'.FldVal("A70_2") = .FldVal("A71_3")
'.FldVal("A71_2") = Doc.SumByRange("A%d_2", 69, 70)
.FldVal("A70_2") = .FldOrigVal("A71_3") '.SumNotNull("A71_3")
.FldVal("A71_2") = .SumNotNull("A69_2;A70_2")
End If
End With
rsMain.Post
END SUB
SUB CHECK() 'Перевiрка
rsMain.Edit
With rsMain
t = Doc.PerType
If t = 30 and .FldVal("A70_2") <> .FldVal("A71_3") Then _
Call Trace_AddMessage("Показник р.70 гр. 2 = "&Cstr(.FldVal("A70_2"))&" має дорівнювати показнику р.71 гр. 3 = "&Cstr(.FldVal("A71_3")),"A70_2")
For i= 2 to 3
C = Doc.SumByRange("A%d_"+CStr(i), 4, 9) - Doc.SumByRange("A%d_"+CStr(i), 11, 16)
If .FldVal("A17_"+CStr(i)) <> C Then _
Call Trace_AddMessage("Показник р.17 гр. "&Cstr(i)&" = "&Cstr(.FldVal("A17_"+CStr(i)))&" має дорівнювати розрахунку: р.4+ р.5 + р.6 + р.7 + р.8 + р.9 - р.11 - р.12 - р.13 - р.14 - р.15 - р.16 по гр. "&Cstr(i)&" = "&Cstr(C),"A17_"+CStr(i))
C = Doc.SumByList("A17_"+CStr(i),"A19_"+CStr(i),"A21_"+CStr(i),"A23_"+CStr(i)) - Doc.SumByList("A18_"+CStr(i),"A20_"+CStr(i),"A22_"+CStr(i))
If .FldVal("A24_"+CStr(i)) <> C Then _
Call Trace_AddMessage("Показник р.24 гр. "&Cstr(i)&" = "&Cstr(.FldVal("A24_"+CStr(i)))&" має дорівнювати розрахунку: р.17 - р.18 + р.19 - р.20 + р.21 - р.22 + р.23 по гр. "&Cstr(i)&" = "&Cstr(C),"A24_"+CStr(i))
C = Doc.SumByList("A26_"+CStr(i),"A28_"+CStr(i),"A30_"+CStr(i),"A32_"+CStr(i),"A34_"+CStr(i),"A36_"+CStr(i),"A38_"+CStr(i),"A40_"+CStr(i),"A42_"+CStr(i),"A43_"+CStr(i),"A45_"+CStr(i),"A47_"+CStr(i)) - _
Doc.SumByList("A27_"+CStr(i),"A29_"+CStr(i),"A31_"+CStr(i),"A33_"+CStr(i),"A35_"+CStr(i),"A37_"+CStr(i),"A39_"+CStr(i),"A41_"+CStr(i),"A44_"+CStr(i),"A46_"+CStr(i))
If .FldVal("A48_"+CStr(i)) <> C Then _
Call Trace_AddMessage("Показник р.48 гр. "&Cstr(i)&" = "&Cstr(.FldVal("A48_"+CStr(i)))&" має дорівнювати розрахунку: р.26 - р.27 + р.28 - р.29 + р.30 - р.31 + р.32 - р.33+ р.34 - р.35 + р.36 - р.37 + р.38 - р.39 + р.40 - р.41 + р.42 + р.43 - р.44 + р.45 - р.46 + р.47 по гр. "&Cstr(i)&" = "&Cstr(C),"A48_"+CStr(i))
C = Doc.SumByList("A50_"+CStr(i),"A52_"+CStr(i),"A53_"+CStr(i),"A56_"+CStr(i),"A60_"+CStr(i),"A64_"+CStr(i)) - _
Doc.SumByList("A51_"+CStr(i),"A54_"+CStr(i),"A55_"+CStr(i),"A57_"+CStr(i),"A59_"+CStr(i),"A61_"+CStr(i),"A62_"+CStr(i),"A63_"+CStr(i))
If .FldVal("A65_"+CStr(i)) <> C Then _
Call Trace_AddMessage("Показник р.65 гр. "&Cstr(i)&" = "&Cstr(.FldVal("A65_"+CStr(i)))&" має дорівнювати розрахунку: р.50 - р.51 + р.52 + р.53 - р.54 - р.55 + р.56 - р.57 - р.59 + р.60 - р.61 - р.62 - р.63 + р.64 по гр. "&Cstr(i)&" = "&Cstr(C),"A65_"+CStr(i))
If .FldVal("A66_"+CStr(i)) <> Doc.SumByList("A24_"+CStr(i),"A48_"+CStr(i),"A65_"+CStr(i)) Then _
Call Trace_AddMessage("Показник р.66 гр. "&Cstr(i)&" = "&Cstr(.FldVal("A66_"+CStr(i)))&" має дорівнювати розрахунку: р.24 + р.48 + р.65 по гр. "&Cstr(i)&" = "&Cstr(Doc.SumByList("A24_"+CStr(i),"A48_"+CStr(i),"A65_"+CStr(i))),"A66_"+CStr(i))
If .FldVal("A69_"+CStr(i)) <> Doc.SumByList("A66_"+CStr(i),"A68_"+CStr(i)) Then _
Call Trace_AddMessage("Показник р.69 гр. "&Cstr(i)&" = "&Cstr(.FldVal("A69_"+CStr(i)))&" має дорівнювати розрахунку: р.66 + р.68 по гр. "&Cstr(i)&" = "&Cstr(Doc.SumByList("A66_"+CStr(i),"A68_"+CStr(i))),"A69_"+CStr(i))
If .FldVal("A71_"+CStr(i)) <> Doc.SumByRange("A%d_"+CStr(i), 69, 70) Then _
Call Trace_AddMessage("Показник р.71 гр. "&Cstr(i)&" = "&Cstr(.FldVal("A71_"+CStr(i)))&" має дорівнювати розрахунку: р.70 + р.69 по гр. "&Cstr(i)&" = "&Cstr(Doc.SumByRange("A%d_"+CStr(i), 69, 70)),"A71_"+CStr(i))
If .FldVal("A70_"+CStr(i)) < 0 Then _
Call Trace_InfoMessage("Показник р. 70 гр. "&Cstr(i)&" не може бути менше 0","A70_"+CStr(i))
If .FldVal("A71_"+CStr(i)) < 0 Then _
Call Trace_InfoMessage("Показник р. 71 гр. "&Cstr(i)&" не може бути менше 0","A71_"+CStr(i))
Next
For i = 4 to 62
For j = 2 to 3
If (i < 22 and i <> 10 and i <> 17) or (i > 25 and i < 46) or (i > 49 and i <> 58) Then
If .FldVal("A"&Cstr(i)&"_"&Cstr(j)) < 0 Then _
Call Trace_InfoMessage("Ряд."&Cstr(i)&" гр."&Cstr(j)&" не може бути менше 0","A"&Cstr(i)&"_"&Cstr(j))
End If
Next
Next
Cnd = "CharCode = 'I8511003' AND IDPARENT = " + Trim(Doc.Card("IDPARENT"))
Set rsDocs = App.DocumentsDataSet(Cnd)
rsDocs.First
Doc.GblVal("I8511003") = rsDocs.EOF
If Not Doc.GblVal("I8511003") Then
Set SomeDoc = App.OpenDocumentByCode(rsDocs.FldVal("Code"))
Set rsSomeDoc = SomeDoc.DataSets("MAIN")
For i = 2 to 3
If i = 2 Then
text = "гр. 2"
Else
text = "гр. 3"
End If
If .FldVal("A22_"+CStr(i)) <> 0 and rsSomeDoc.FldVal("A34_"+CStr(i)) <> 0 Then
If .FldVal("A22_"+CStr(i)) <> rsSomeDoc.FldVal("A34_"+CStr(i)) Then _
Call Trace_AddMessage("Показник ряд. 22 гр. "&CStr(i)&" = "&CStr(.FldVal("A22_"+CStr(i)))&" має дорівнювати показнику ряд. 34 "&CStr(text)&" звіту I8511003 = "&CStr(rsSomeDoc.FldVal("A34_"+CStr(i))),"A22_"+CStr(i))
End If
If .FldVal("A46_"+CStr(i)) <> rsSomeDoc.FldVal("A35_"+CStr(i)) Then _
Call Trace_AddMessage("Показник ряд. 46 гр. "&CStr(i)&" = "&CStr(.FldVal("A46_"+CStr(i)))&" має дорівнювати показнику ряд. 35 "&CStr(text)&" звіту I8511003 = "&CStr(rsSomeDoc.FldVal("A35_"+CStr(i))),"A46_"+CStr(i))
If .FldVal("A63_"+CStr(i)) <> rsSomeDoc.FldVal("A36_"+CStr(i)) Then _
Call Trace_AddMessage("Показник ряд. 63 гр. "&CStr(i)&" = "&CStr(.FldVal("A63_"+CStr(i)))&" має дорівнювати показнику ряд. 36 "&CStr(text)&" звіту I8511003 = "&CStr(rsSomeDoc.FldVal("A36_"+CStr(i))),"A63_"+CStr(i))
Next
If .FldVal("A70_2") <> rsSomeDoc.FldVal("A9_3") Then _
Call Trace_AddMessage("Показник ряд. 70 гр. 2 = "&CStr(.FldVal("A70_2"))&" має дорівнювати показнику ряд. 9 гр. 2 звіту I8511003 = "&CStr(rsSomeDoc.FldVal("A9_3")),"A70_2")
If .FldVal("A71_2") <> rsSomeDoc.FldVal("A9_2") Then _
Call Trace_AddMessage("Показник ряд. 71 гр. 2 = "&CStr(.FldVal("A71_2"))&" має дорівнювати показнику ряд. 9 гр. 3 звіту I8511003 = "&CStr(rsSomeDoc.FldVal("A9_2")),"A71_2")
Set SomeDoc = nothing
Set rsSomeDoc = nothing
End If ' If Not (rsDocs.EOF and rsDocs.BOF)
Set rsDocs = Nothing
Cnd = "CharCode = 'I8259003' AND IDPARENT = " + Trim(Doc.Card("IDPARENT"))
Set rsDocs = App.DocumentsDataSet(Cnd)
rsDocs.First
Doc.GblVal("I8259003") = rsDocs.EOF
If Not Doc.GblVal("I8259003") Then
Set SomeDoc = App.OpenDocumentByCode(rsDocs.FldVal("Code"))
Set rsSomeDoc = SomeDoc.DataSets("MAIN")
For i = 2 to 3
If .FldVal("A24_"+CStr(i)) <> rsSomeDoc.FldVal("A9_"+CStr(i-1)) Then _
Call Trace_AddMessage("Показник ряд. 24 гр. "&CStr(i)&" = "&CStr(.FldVal("A24_"+CStr(i)))&" має дорівнювати показнику ряд. 9 гр. "&CStr(i-1)&" звіту I8259003 = "&CStr(rsSomeDoc.FldVal("A9_"+CStr(i-1))),"A24_"+CStr(i))
If .FldVal("A48_"+CStr(i)) <> rsSomeDoc.FldVal("A12_"+CStr(i-1)) Then _
Call Trace_AddMessage("Показник ряд. 48 гр. "&CStr(i)&" = "&CStr(.FldVal("A48_"+CStr(i)))&" має дорівнювати показнику ряд. 12 гр. "&CStr(i-1)&" звіту I8259003 = "&CStr(rsSomeDoc.FldVal("A12_"+CStr(i-1))),"A48_"+CStr(i))
If .FldVal("A65_"+CStr(i)) <> rsSomeDoc.FldVal("A15_"+CStr(i-1)) Then _
Call Trace_AddMessage("Показник ряд. 65 гр. "&CStr(i)&" = "&CStr(.FldVal("A65_"+CStr(i)))&" має дорівнювати показнику ряд. 15 гр. "&CStr(i-1)&" звіту I8259003 = "&CStr(rsSomeDoc.FldVal("A15_"+CStr(i-1))),"A65_"+CStr(i))
Next
Set SomeDoc = nothing
Set rsSomeDoc = nothing
End If ' If Not (rsDocs.EOF and rsDocs.BOF)
Set rsDocs = Nothing
Cnd = "CharCode = 'I8711003' AND IDPARENT = " + Trim(Doc.Card("IDPARENT"))
Set rsDocs = App.DocumentsDataSet(Cnd)
rsDocs.First
Doc.GblVal("I8711003") = rsDocs.EOF
If Not Doc.GblVal("I8711003") Then
Set SomeDoc = App.OpenDocumentByCode(rsDocs.FldVal("Code"))
Set rsSomeDoc = SomeDoc.DataSets("MAIN")
For i = 2 to 3
If i = 2 Then
letter = "A"
Else
letter = "B"
End If
If .FldVal("A24_"+CStr(i)) <> rsSomeDoc.FldVal(letter&"20_25") Then _
Call Trace_AddMessage("Показник ряд. 24 гр. "&CStr(i)&" = "&CStr(.FldVal("A24_"+CStr(i)))&" має дорівнювати показнику Табл. "&CStr(letter)&" ряд. 20 гр. 25 звіту I8711003 = "&CStr(rsSomeDoc.FldVal(letter&"20_25")),"A24_"+CStr(i))
If .FldVal("A48_"+CStr(i)) <> rsSomeDoc.FldVal(letter&"21_25") Then _
Call Trace_AddMessage("Показник ряд. 48 гр. "&CStr(i)&" = "&CStr(.FldVal("A48_"+CStr(i)))&" має дорівнювати показнику Табл. "&CStr(letter)&" ряд. 21 гр. 25 звіту I8711003 = "&CStr(rsSomeDoc.FldVal(letter&"21_25")),"A48_"+CStr(i))
If .FldVal("A65_"+CStr(i)) <> rsSomeDoc.FldVal(letter&"22_25") Then _
Call Trace_AddMessage("Показник ряд. 65 гр. "&CStr(i)&" = "&CStr(.FldVal("A65_"+CStr(i)))&" має дорівнювати показнику Табл. "&CStr(letter)&" ряд. 22 гр. 25 звіту I8711003 = "&CStr(rsSomeDoc.FldVal(letter&"22_25")),"A65_"+CStr(i))
Next
Set SomeDoc = nothing
Set rsSomeDoc = nothing
End If ' If Not (rsDocs.EOF and rsDocs.BOF)
Set rsDocs = Nothing
Cnd = "CharCode = 'I2100003' AND IDPARENT = " + Trim(Doc.Card("IDPARENT"))
Set rsDocs = App.DocumentsDataSet(Cnd)
rsDocs.First
Doc.GblVal("I2100003") = rsDocs.EOF
If Not Doc.GblVal("I2100003") Then
Set SomeDoc = App.OpenDocumentByCode(rsDocs.FldVal("Code"))
Set rsSomeDoc = SomeDoc.DataSets("MAIN")
' перевірка всіх комірок графи 3
row = 1
checker = 0
While row <= 64 and checker <> 1
If rsSomeDoc.FldVal("A"&cstr(row)&"_3") <> 0 then
checker = 1
else
row = row + 1
End If
Wend
If .FldVal("A70_3") <> rsSomeDoc.FldVal("A23_3") and checker <> 0 Then _
Call Trace_AddMessage("Показник ряд. 70 гр. 3 = "&CStr(.FldVal("A70_3"))&" має дорівнювати показнику ряд. 23 гр. 3 звіту I2100003 = "&CStr(rsSomeDoc.FldVal("A23_3")),"A70_3")
If .FldVal("A70_2") <> rsSomeDoc.FldVal("A23_2") Then _
Call Trace_AddMessage("Показник ряд. 70 гр. 2 = "&CStr(.FldVal("A70_2"))&" має дорівнювати показнику ряд. 23 гр. 2 звіту I2100003 = "&CStr(rsSomeDoc.FldVal("A23_2")),"A70_2")
If .FldVal("A71_2") <> rsSomeDoc.FldVal("A23_1") Then _
Call Trace_AddMessage("Показник ряд. 71 гр. 2 = "&CStr(.FldVal("A71_2"))&" має дорівнювати показнику ряд. 23 гр. 1 звіту I2100003 = "&CStr(rsSomeDoc.FldVal("A23_1")),"A71_2")
'If t = 30 and .FldVal("A71_3") <> rsSomeDoc.FldVal("A23_2") Then _
' Call Trace_AddMessage("Показник ряд. 71 гр. 3 = "&CStr(.FldVal("A71_3"))&" має дорівнювати показнику ряд. 23 гр. 2 звіту I2100003 = "&CStr(rsSomeDoc.FldVal("A23_2")),"A71_3")
Set SomeDoc = nothing
Set rsSomeDoc = nothing
End If ' If Not (rsDocs.EOF and rsDocs.BOF)
Set rsDocs = Nothing
Cnd = "CharCode = 'I8001003' AND IDPARENT = " + Trim(Doc.Card("IDPARENT"))
Set rsDocs = App.DocumentsDataSet(Cnd)
rsDocs.First
Doc.GblVal("I8001003") = rsDocs.EOF
If Not Doc.GblVal("I8001003") Then
Set SomeDoc = App.OpenDocumentByCode(rsDocs.FldVal("Code"))
Set rsSomeDoc = SomeDoc.DataSets("MAIN")
If .FldVal("A70_2") <> rsSomeDoc.FldVal("A188_3") Then _
Call Trace_AddMessage("Показник ряд. 70 гр. 2 = "&CStr(.FldVal("A70_2"))&" має дорівнювати показнику ряд. 188 гр. 3 звіту I8001003 = "&CStr(rsSomeDoc.FldVal("A188_3")),"A70_2")
If .FldVal("A71_2") <> rsSomeDoc.FldVal("A188_2") Then _
Call Trace_AddMessage("Показник ряд. 71 гр. 2 = "&CStr(.FldVal("A71_2"))&" має дорівнювати показнику ряд. 188 гр. 2 звіту I8001003 = "&CStr(rsSomeDoc.FldVal("A188_2")),"A71_2")
Set SomeDoc = nothing
Set rsSomeDoc = nothing
End If ' If Not (rsDocs.EOF and rsDocs.BOF)
Set rsDocs = Nothing
comment = 0
Comment1 = Array("A22_2","A22_3","A46_2","A46_3","A63_2","A63_3")
For i = 0 to UBound(Comment1)
If CStr(.FldVal(Comment1(i))) <> 0 and Doc.GblVal("I8511003") Then comment = 1
Next
If comment = 1 Then Call Trace_InfoMessage("При необхідності створіть та заповніть форму I8511003 'Примітки - Звіт про рух грошових коштів'")
Comment1 = Array("A24_2","A24_3","A48_2","A48_3","A65_2","A65_3")
For i = 0 to UBound(Comment1)
If CStr(.FldVal(Comment1(i))) <> 0 and Doc.GblVal("I8259003") Then comment = 2
Next
If comment = 2 Then Call Trace_InfoMessage( "При необхідності створіть та заповніть форму I8259003 'Примітки - Непоточний актив, утримуваний для продажу, та припинена діяльність'")
Comment1 = Array("A24_2","A24_3","A48_2","A48_3","A65_2","A65_3")
For i = 0 to UBound(Comment1)
If CStr(.FldVal(Comment1(i))) <> 0 and Doc.GblVal("I8711003") Then comment = 3
Next
If comment = 3 Then Call Trace_InfoMessage("При необхідності створіть та заповніть форму I8711003 'Примітки - Операційні сегменти'")
End With
rsMain.Post
END SUB