"Code": "Private Sub >>|F03025<<_NotInList(NewData As String, Response As Integer)\r\n MsgBox \"|S00249\"\r\n Response = acDataErrContinue\r\nEnd Sub\r\nPrivate Sub >>|F03025<<_AfterUpdate()\r\nOn Error Goto Err_>>|F03025<<_AfterUpdate\r\n If Not IsNull(Me![|F03025]) then\r\n If Me![|F03025].column(2) = True Then 'Is this a credit card payment type?\r\n Me![|F02268] = [Forms]![|P00135]![|F03101] & \" \" & [Forms]![|P00135]![|F03102]\r\n End If\r\n End If\r\n\r\nExit_>>|F03025<<_AfterUpdate:\r\n Exit Sub\r\n\r\nErr_>>|F03025<<_AfterUpdate:\r\n MsgBox Err.Description\r\n Resume Exit_>>|F03025<<_AfterUpdate\r\nEnd Sub\r\n\r\nPrivate Sub >>|F03025<<_DblClick (Cancel As Integer)\r\nOn Error Goto Err_>>|F03025<<_DblClick\r\n Dim lngPaymentMethodID As Long\r\n\r\n If IsNull(Me![|F03025]) Then\r\n Me![|F03025].Text = \"\"\r\n Else\r\n lngPaymentMethodID = Me![|F03025]\r\n Me![|F03025] = Null\r\n End If\r\n DoCmd.OpenForm \"|P00141\", , , , , acDialog, \"GotoNew\"\r\n Me![|F03025].Requery\r\n if lngPaymentMethodID<>0 then Me![|F03025] = lngPaymentMethodID\r\n\r\nExit_>>|F03025<<_DblClick:\r\n Exit Sub\r\n\r\nErr_>>|F03025<<_DblClick:\r\n MsgBox Err.Description\r\n Resume Exit_>>|F03025<<_DblClick\r\nEnd Sub"
},
{
"ControlID": 1235,
"AddressType": 0,
"BlockID": 213,
"ControlType": 109,
"TableID": 193,
"FieldID": 1176,
"Order": 3,
"NoLabel": 0,
"TotalIt": 0,
"NumProps": 0
},
{
"ControlID": 1236,
"AddressType": 0,
"BlockID": 213,
"ControlType": 109,
"TableID": 193,
"FieldID": 2271,
"Order": 4,
"NoLabel": 0,
"TotalIt": 0,
"NumProps": 0
},
{
"ControlID": 1237,
"AddressType": 0,
"BlockID": 213,
"ControlType": 109,
"TableID": 193,
"FieldID": 2268,
"Order": 5,
"NoLabel": 0,
"TotalIt": 0,
"NumProps": 0
},
{
"ControlID": 1238,
"AddressType": 0,
"BlockID": 213,
"ControlType": 109,
"TableID": 193,
"FieldID": 2270,
"Order": 6,
"NoLabel": 0,
"TotalIt": 0,
"NumProps": 0
},
{
"ControlID": 1239,
"AddressType": 0,
"BlockID": 213,
"ControlType": 109,
"TableID": 193,
"FieldID": 2269,
"Order": 7,
"NoLabel": 0,
"TotalIt": 0,
"NumProps": 0
},
{
"ControlID": 1240,
"AddressType": 0,
"BlockID": 213,
"ControlType": 109,
"TableID": 193,
"FieldID": 3086,
"Order": 8,
"NoLabel": 0,
"TotalIt": 0,
"NumProps": 0
},
{
"ControlID": 1241,
"AddressType": 0,
"ControlName": "|S00512",
"BlockID": 214,
"ControlType": 109,
"Order": 1,
"DataType": 4,
"NoLabel": 0,
"TotalIt": 0,
"NumProps": 3
},
{
"ControlID": 1242,
"AddressType": 0,
"ControlName": "|S00028",
"BlockID": 214,
"ControlType": 109,
"Order": 2,
"DataType": 8,
"NoLabel": 0,
"TotalIt": 0,
"NumProps": 3,
"Format": "Short Date"
},
{
"ControlID": 1243,
"AddressType": 0,
"ControlName": "|S00029",
"BlockID": 214,
"ControlType": 109,
"Order": 3,
"DataType": 5,
"NoLabel": 0,
"TotalIt": 0,
"NumProps": 3,
"Format": "Currency"
},
{
"ControlID": 1244,
"AddressType": 0,
"ControlName": "|S00030",
"ControlCaption": "|S00513",
"BlockID": 214,
"ControlType": 109,
"Order": 4,
"DataType": 10,
"NoLabel": 0,
"TotalIt": 0,
"NumProps": 1,
"Width": 3500,
"Height": -3
},
{
"ControlID": 1245,
"AddressType": 0,
"ControlName": "|S00031",
"BlockID": 214,
"ControlType": 109,
"Order": 5,
"DataType": 10,
"NoLabel": 0,
"TotalIt": 0,
"NumProps": 1,
"Width": 3500,
"Height": -1
},
{
"ControlID": 1246,
"AddressType": 0,
"ControlName": "|S00526",
"BlockID": 215,
"ControlType": 104,
"Order": 1,
"NoLabel": 1,
"TotalIt": 0,
"NumProps": 1,
"Width": 1000,
"Code": "Private Sub >>|C01246<<_Click()\r\n Me.visible = False\r\nEnd Sub"
},
{
"ControlID": 1247,
"AddressType": 0,
"BlockID": 216,
"ControlType": 109,
"TableID": 228,
"FieldID": 1581,
"Order": 1,
"NoLabel": 0,
"TotalIt": 0,
"NumProps": 0
},
{
"ControlID": 1248,
"AddressType": 0,
"BlockID": 216,
"ControlType": 109,
"TableID": 228,
"FieldID": 2126,
"Order": 2,
"NoLabel": 0,
"TotalIt": 0,
"NumProps": 0
},
{
"ControlID": 1249,
"AddressType": 0,
"BlockID": 216,
"ControlType": 109,
"TableID": 228,
"FieldID": 2149,
"Order": 3,
"NoLabel": 0,
"TotalIt": 0,
"NumProps": 1
},
{
"ControlID": 1250,
"AddressType": 0,
"BlockID": 217,
"ControlType": 109,
"TableID": 343,
"FieldID": 3025,
"Order": 1,
"NoLabel": 0,
"TotalIt": 0,
"NumProps": 0
},
{
"ControlID": 1251,
"AddressType": 0,
"BlockID": 217,
"ControlType": 109,
"TableID": 343,
"FieldID": 2231,
"Order": 2,
"NoLabel": 0,
"TotalIt": 0,
"NumProps": 0
},
{
"ControlID": 1252,
"AddressType": 0,
"BlockID": 217,
"ControlType": 106,
"TableID": 343,
"FieldID": 3087,
"Order": 3,
"NoLabel": 0,
"TotalIt": 0,
"NumProps": 0
},
{
"ControlID": 1253,
"AddressType": 0,
"BlockID": 218,
"ControlType": 109,
"TableID": 346,
"FieldID": 3027,
"Order": 1,
"NoLabel": 0,
"TotalIt": 0,
"NumProps": 0
},
{
"ControlID": 1254,
"AddressType": 0,
"BlockID": 218,
"ControlType": 109,
"TableID": 346,
"FieldID": 3029,
"Order": 2,
"NoLabel": 0,
"TotalIt": 0,
"NumProps": 0
},
{
"ControlID": 1255,
"AddressType": 0,
"ControlName": "|S00502",
"ControlCaption": "|S00374",
"BlockID": 219,
"ControlType": 100,
"Order": 1,
"DataType": 10,
"NoLabel": 1,
"TotalIt": 0,
"NumProps": 0,
"Width": 5500,
"Height": 540
},
{
"ControlID": 1256,
"AddressType": 0,
"ControlCaption": "|S00322",
"BlockID": 220,
"ControlType": 109,
"TableID": 344,
"FieldID": 3082,
"Order": 1,
"NoLabel": 0,
"TotalIt": 0,
"NumProps": 0
},
{
"ControlID": 1257,
"AddressType": 0,
"ControlName": "|S00508",
"BlockID": 208,
"ControlType": 112,
"Order": 1,
"NoLabel": 1,
"TotalIt": 0,
"NumProps": 0,
"Width": 8500,
"Height": 1360
},
{
"ControlID": 1258,
"AddressType": 0,
"BlockID": 207,
"ControlType": 109,
"TableID": 192,
"FieldID": 3011,
"Order": 2,
"NoLabel": 0,
"TotalIt": 0,
"NumProps": 0,
"Width": 3000,
"Height": -2
},
{
"ControlID": 1259,
"AddressType": 0,
"BlockID": 221,
"ControlType": 109,
"TableID": 3,
"FieldID": 1,
"Order": 1,
"NoLabel": 0,
"TotalIt": 0,
"NumProps": 0
},
{
"ControlID": 1260,
"AddressType": 0,
"ControlCaption": "|S00407",
"BlockID": 5,
"ControlType": 111,
"TableID": 10,
"FieldID": 2796,
"Order": 4,
"NoLabel": 0,
"TotalIt": 0,
"NumProps": 0,
"Code": "Private Sub >>|F02796<<_NotInList(NewData As String, Response As Integer)\r\n MsgBox \"|S00249\"\r\n Response = acDataErrContinue\r\nEnd Sub\r\nPrivate Sub >>|F02796<<_DblClick (Cancel As Integer)\r\nOn Error Goto Err_>>|F02796<<_DblClick\r\n Dim lngCategoryID As Long\r\n\r\n If IsNull(Me![|F02796]) Then\r\n Me![|F02796].Text = \"\"\r\n Else\r\n lngCategoryID = Me![|F02796]\r\n Me![|F02796] = Null\r\n End If\r\n DoCmd.OpenForm \"|P00145\", , , , , acDialog, \"GotoNew\"\r\n Me![|F02796].Requery\r\n if lngCategoryID<>0 then Me![|F02796] = lngCategoryID\r\n\r\nExit_>>|F02796<<_DblClick:\r\n Exit Sub\r\n\r\nErr_>>|F02796<<_DblClick:\r\n MsgBox Err.Description\r\n Resume Exit_>>|F02796<<_DblClick\r\nEnd Sub"
},
{
"ControlID": 1261,
"AddressType": 0,
"ControlCaption": "|S00409",
"BlockID": 5,
"ControlType": 111,
"TableID": 10,
"FieldID": 3105,
"Order": 7,
"NoLabel": 0,
"TotalIt": 0,
"NumProps": 0,
"Code": "Private Sub >>|F03105<<_NotInList(NewData As String, Response As Integer)\r\n MsgBox \"|S00249\"\r\n Response = acDataErrContinue\r\nEnd Sub\r\nPrivate Sub >>|F03105<<_DblClick (Cancel As Integer)\r\nOn Error Goto Err_>>|F03105<<_DblClick\r\n Dim lngRoomID As Long\r\n\r\n If IsNull(Me![|F03105]) Then\r\n Me![|F03105].Text = \"\"\r\n Else\r\n lngRoomID = Me![|F03105]\r\n Me![|F03105] = Null\r\n End If\r\n DoCmd.OpenForm \"|P00144\", , , , , acDialog, \"GotoNew\"\r\n Me![|F03105].Requery\r\n if lngRoomID<>0 then Me![|F03105] = lngRoomID\r\n\r\nExit_>>|F03105<<_DblClick:\r\n Exit Sub\r\n\r\nErr_>>|F03105<<_DblClick:\r\n MsgBox Err.Description\r\n Resume Exit_>>|F03105<<_DblClick\r\nEnd Sub"
},
{
"ControlID": 1262,
"AddressType": 0,
"BlockID": 222,
"ControlType": 109,
"TableID": 363,
"FieldID": 3105,
"Order": 1,
"NoLabel": 0,
"TotalIt": 0,
"NumProps": 0
},
{
"ControlID": 1263,
"AddressType": 0,
"BlockID": 222,
"ControlType": 109,
"TableID": 363,
"FieldID": 2175,
"Order": 2,
"NoLabel": 0,
"TotalIt": 0,
"NumProps": 0
},
{
"ControlID": 1264,
"AddressType": 0,
"BlockID": 223,
"ControlType": 109,
"TableID": 261,
"FieldID": 2796,
"Order": 1,
"NoLabel": 0,
"TotalIt": 0,
"NumProps": 0
},
{
"ControlID": 1265,
"AddressType": 0,
"BlockID": 223,
"ControlType": 109,
"TableID": 261,
"FieldID": 2357,
"Order": 2,
"NoLabel": 0,
"TotalIt": 0,
"NumProps": 0
},
{
"ControlID": 1266,
"AddressType": 0,
"BlockID": 41,
"ControlType": 109,
"TableID": 261,
"FieldID": 2357,
"Order": 1,
"NoLabel": 0,
"TotalIt": 0,
"NumProps": 0
},
{
"ControlID": 1267,
"AddressType": 0,
"BlockID": 41,
"ControlType": 109,
"TableID": 10,
"FieldID": 1059,
"Order": 5,
"NoLabel": 0,
"TotalIt": 1,
"NumProps": 0,
"Width": 2200
},
{
"ControlID": 1269,
"AddressType": 0,
"BlockID": 41,
"ControlType": 109,
"TableID": 10,
"FieldID": 1004,
"Order": 4,
"NoLabel": 0,
"TotalIt": 0,
"NumProps": 1
},
{
"ControlID": 1270,
"AddressType": 0,
"BlockID": 41,
"ControlType": 109,
"TableID": 10,
"FieldID": 2075,
"Order": 5,
"NoLabel": 0,
"TotalIt": 1,
"NumProps": 0,
"Width": 2200
},
{
"ControlID": 1271,
"AddressType": 0,
"BlockID": 41,
"ControlType": 109,
"TableID": 10,
"FieldID": 337,
"Order": 5,
"NoLabel": 0,
"TotalIt": 0,
"NumProps": 0
},
{
"ControlID": 1273,
"AddressType": 0,
"ControlName": "|S00516",
"ControlCaption": "|S00517",
"BlockID": 224,
"ControlType": 109,
"Order": 1,
"DataType": 8,
"NoLabel": 0,
"TotalIt": 0,
"NumProps": 1,
"Format": "Short Date"
},
{
"ControlID": 1274,
"AddressType": 0,
"ControlName": "|S00515",
"BlockID": 224,
"ControlType": 109,
"Order": 2,
"DataType": 8,
"NoLabel": 0,
"TotalIt": 0,
"NumProps": 1,
"Format": "Short Date"
},
{
"ControlID": 1275,
"AddressType": 0,
"ControlName": "|S00151",
"ControlCaption": "|S00311",
"BlockID": 225,
"ControlType": 104,
"Order": 1,
"NoLabel": 1,
"TotalIt": 0,
"NumProps": 1,
"Code": "Private Sub >>|C01275<<_Click()\r\n If isnull([|C01273]) or isnull([|C01274]) then \r\n msgbox \"|S00248\"\r\n docmd.gotocontrol \"|C01273\"\r\n Else\r\n If [|C01273] > [|C01274] Then\r\n MsgBox \"|S00287\"\r\n DoCmd.GoToControl \"|C01273\"\r\n Else\r\n Me.Visible = False\r\n End If\r\n End If\r\nEnd Sub"
"Code": "Private Sub >>|C01366<<_Click()\r\n If isnull([|C01364]) or isnull([|C01365]) then \r\n msgbox \"|S00248\"\r\n docmd.gotocontrol \"|C01364\"\r\n Else\r\n If [|C01364] > [|C01365] Then\r\n MsgBox \"|S00287\"\r\n DoCmd.GoToControl \"|C01364\"\r\n Else\r\n Me.Visible = False\r\n End If\r\n End If\r\nEnd Sub"
},
{
"ControlID": 1367,
"AddressType": 0,
"BlockID": 221,
"ControlType": 109,
"TableID": 3,
"FieldID": 2,
"Order": 2,
"NoLabel": 0,
"TotalIt": 0,
"NumProps": 0
},
{
"ControlID": 1368,
"AddressType": 0,
"ControlCaption": "|S00322",
"BlockID": 221,
"ControlType": 109,
"TableID": 3,
"FieldID": 3082,
"Order": 3,
"NoLabel": 0,
"TotalIt": 0,
"NumProps": 0
},
{
"ControlID": 1369,
"AddressType": 0,
"BlockID": 221,
"ControlType": 109,
"TableID": 3,
"FieldID": 34,
"Order": 11,
"NoLabel": 0,
"TotalIt": 0,
"NumProps": 0,
"Width": 1600
},
{
"ControlID": 1370,
"AddressType": 0,
"BlockID": 221,
"ControlType": 109,
"TableID": 3,
"FieldID": 3088,
"Order": 4,
"NoLabel": 0,
"TotalIt": 0,
"NumProps": 0
},
{
"ControlID": 1371,
"AddressType": 0,
"BlockID": 221,
"ControlType": 109,
"TableID": 3,
"FieldID": 4,
"Order": 5,
"NoLabel": 0,
"TotalIt": 0,
"NumProps": 0,
"Width": 3000,
"Height": -2
},
{
"ControlID": 1372,
"AddressType": 1,
"BlockID": 221,
"ControlType": 109,
"TableID": 3,
"FieldID": 5,
"Order": 6,
"NoLabel": 0,
"TotalIt": 0,
"NumProps": 0
},
{
"ControlID": 1372,
"AddressType": 2,
"BlockID": 221,
"ControlType": 109,
"TableID": 3,
"FieldID": 5,
"Order": 7,
"NoLabel": 0,
"TotalIt": 0,
"NumProps": 0
},
{
"ControlID": 1373,
"AddressType": 1,
"BlockID": 221,
"ControlType": 109,
"TableID": 3,
"FieldID": 3089,
"Order": 7,
"NoLabel": 0,
"TotalIt": 0,
"NumProps": 0
},
{
"ControlID": 1373,
"AddressType": 2,
"BlockID": 221,
"ControlType": 109,
"TableID": 3,
"FieldID": 3089,
"Order": 8,
"NoLabel": 0,
"TotalIt": 0,
"NumProps": 0
},
{
"ControlID": 1374,
"AddressType": 1,
"BlockID": 221,
"ControlType": 109,
"TableID": 3,
"FieldID": 139,
"Order": 8,
"NoLabel": 0,
"TotalIt": 0,
"NumProps": 0
},
{
"ControlID": 1374,
"AddressType": 2,
"BlockID": 221,
"ControlType": 109,
"TableID": 3,
"FieldID": 139,
"Order": 6,
"NoLabel": 0,
"TotalIt": 0,
"NumProps": 0
},
{
"ControlID": 1375,
"AddressType": 0,
"BlockID": 221,
"ControlType": 109,
"TableID": 3,
"FieldID": 8,
"Order": 9,
"NoLabel": 0,
"TotalIt": 0,
"NumProps": 0
},
{
"ControlID": 1377,
"AddressType": 0,
"BlockID": 221,
"ControlType": 109,
"TableID": 3,
"FieldID": 10,
"Order": 12,
"NoLabel": 0,
"TotalIt": 0,
"NumProps": 0,
"Width": 1600
},
{
"ControlID": 1379,
"AddressType": 0,
"BlockID": 221,
"ControlType": 109,
"TableID": 3,
"FieldID": 2868,
"Order": 14,
"NoLabel": 0,
"TotalIt": 0,
"NumProps": 0,
"Width": 1600
},
{
"ControlID": 1380,
"AddressType": 0,
"BlockID": 221,
"ControlType": 109,
"TableID": 3,
"FieldID": 2319,
"Order": 15,
"NoLabel": 0,
"TotalIt": 0,
"NumProps": 0,
"Width": 1600
},
{
"ControlID": 1381,
"AddressType": 0,
"BlockID": 221,
"ControlType": 109,
"TableID": 3,
"FieldID": 11,
"Order": 16,
"NoLabel": 0,
"TotalIt": 0,
"NumProps": 0,
"Width": 1600
},
{
"ControlID": 1382,
"AddressType": 0,
"BlockID": 275,
"ControlType": 109,
"TableID": 3,
"FieldID": 980,
"Order": 3,
"NoLabel": 0,
"TotalIt": 0,
"NumProps": 0,
"Width": 1600
},
{
"ControlID": 1383,
"AddressType": 0,
"BlockID": 275,
"ControlType": 109,
"TableID": 3,
"FieldID": 566,
"Order": 8,
"NoLabel": 0,
"TotalIt": 0,
"NumProps": 0
},
{
"ControlID": 1384,
"AddressType": 0,
"BlockID": 275,
"ControlType": 109,
"TableID": 3,
"FieldID": 2311,
"Order": 4,
"NoLabel": 0,
"TotalIt": 0,
"NumProps": 0,
"Width": 1600
},
{
"ControlID": 1385,
"AddressType": 0,
"ControlCaption": "|S00323",
"BlockID": 275,
"ControlType": 111,
"TableID": 3,
"FieldID": 3079,
"Order": 2,
"NoLabel": 0,
"TotalIt": 0,
"NumProps": 0,
"Width": 1600,
"Code": "Private Sub >>|F03079<<_NotInList(NewData As String, Response As Integer)\r\n MsgBox \"|S00249\"\r\n Response = acDataErrContinue\r\nEnd Sub\r\nPrivate Sub >>|F03079<<_DblClick (Cancel As Integer)\r\nOn Error Goto Err_>>|F03079<<_DblClick\r\n Dim lngContactTypeID As Long\r\n\r\n If IsNull(Me![|F03079]) Then\r\n Me![|F03079].Text = \"\"\r\n Else\r\n lngContactTypeID = Me![|F03079]\r\n Me![|F03079] = Null\r\n End If\r\n DoCmd.OpenForm \"|P00157\", , , , , acDialog, \"GotoNew\"\r\n Me![|F03079].Requery\r\n if lngContactTypeID<>0 then Me![|F03079] = lngContactTypeID\r\n\r\nExit_>>|F03079<<_DblClick:\r\n Exit Sub\r\n\r\nErr_>>|F03079<<_DblClick:\r\n MsgBox Err.Description\r\n Resume Exit_>>|F03079<<_DblClick\r\nEnd Sub"
"Code": "Private Sub >>|P00168<<_Enter ()\r\n If IsNull(Me![|F03075]) Then\r\n Me![|P00167].form![|F03097] = Date\r\n DoCmd.GoToControl \"|P00167\"\r\n DoCmd.DoMenuItem acFormBar, acRecordsMenu, acSaveRecord, , acMenuVer70\r\n DoCmd.GoToControl \"|P00168\"\r\n End If\r\nEnd Sub"
},
{
"ControlID": 1500,
"AddressType": 0,
"BlockID": 275,
"ControlType": 109,
"TableID": 3,
"FieldID": 968,
"Order": 12,
"NoLabel": 0,
"TotalIt": 0,
"NumProps": 1,
"Width": 2800,
"Height": -4
},
{
"ControlID": 1502,
"AddressType": 0,
"BlockID": 276,
"ControlType": 109,
"TableID": 367,
"FieldID": 3140,
"Order": 1,
"NoLabel": 0,
"TotalIt": 0,
"NumProps": 0
},
{
"ControlID": 1503,
"AddressType": 0,
"BlockID": 276,
"ControlType": 109,
"TableID": 367,
"FieldID": 3146,
"Order": 2,
"NoLabel": 0,
"TotalIt": 0,
"NumProps": 0
},
{
"ControlID": 1504,
"AddressType": 0,
"ControlCaption": "|S00163",
"BlockID": 276,
"ControlType": 109,
"TableID": 367,
"FieldID": 3142,
"Order": 3,
"NoLabel": 0,
"TotalIt": 0,
"NumProps": 0
},
{
"ControlID": 1505,
"AddressType": 0,
"ControlCaption": "|S00479",
"BlockID": 278,
"ControlType": 111,
"TableID": 366,
"FieldID": 3121,
"Order": 1,
"NoLabel": 0,
"TotalIt": 0,
"NumProps": 0
},
{
"ControlID": 1506,
"AddressType": 0,
"BlockID": 278,
"ControlType": 109,
"TableID": 366,
"FieldID": 3141,
"Order": 2,
"NoLabel": 0,
"TotalIt": 0,
"NumProps": 0
},
{
"ControlID": 1507,
"AddressType": 0,
"ControlName": "|S00477",
"ControlCaption": "|S00478",
"BlockID": 277,
"ControlType": 112,
"Order": 1,
"NoLabel": 0,
"TotalIt": 0,
"NumProps": 0,
"Width": 6000,
"Height": 1820,
"Code": "Private Sub >>|P00111<<_Enter()\r\n If IsNull(Me![|F03140]) Then\r\n msgbox \"|S00789\"\r\n DoCmd.GoToControl \"|F03146\"\r\n End If\r\nEnd Sub"
},
{
"ControlID": 1508,
"AddressType": 0,
"ControlCaption": "|S00486",
"BlockID": 279,
"ControlType": 111,
"TableID": 367,
"FieldID": 3140,
"Order": 1,
"NoLabel": 0,
"TotalIt": 0,
"NumProps": 0,
"Code": "Private Sub >>|F03140<<_NotInList(NewData As String, Response As Integer)\r\n MsgBox \"|S00249\"\r\n Response = acDataErrContinue\r\nEnd Sub\r\nPrivate Sub >>|F03140<<_DblClick (Cancel As Integer)\r\nOn Error Goto Err_>>|F03140<<_DblClick\r\n Dim lngCommitteeID As Long\r\n\r\n If IsNull(Me![|F03140]) Then\r\n Me![|F03140].Text = \"\"\r\n Else\r\n lngCommitteeID = Me![|F03140]\r\n Me![|F03140] = Null\r\n End If\r\n DoCmd.OpenForm \"|P00110\", , , , , acDialog, \"GotoNew\"\r\n Me![|F03140].Requery\r\n if lngCommitteeID<>0 then Me![|F03140] = lngCommitteeID\r\n\r\nExit_>>|F03140<<_DblClick:\r\n Exit Sub\r\n\r\nErr_>>|F03140<<_DblClick:\r\n MsgBox Err.Description\r\n Resume Exit_>>|F03140<<_DblClick\r\nEnd Sub"
},
{
"ControlID": 1509,
"AddressType": 0,
"BlockID": 279,
"ControlType": 109,
"TableID": 366,
"FieldID": 3141,
"Order": 2,
"NoLabel": 0,
"TotalIt": 0,
"NumProps": 0
},
{
"ControlID": 1510,
"AddressType": 0,
"BlockID": 280,
"ControlType": 109,
"TableID": 365,
"FieldID": 1,
"Order": 2,
"NoLabel": 0,
"TotalIt": 0,
"NumProps": 0
},
{
"ControlID": 1511,
"AddressType": 0,
"BlockID": 280,
"ControlType": 109,
"TableID": 365,
"FieldID": 2,
"Order": 3,
"NoLabel": 0,
"TotalIt": 0,
"NumProps": 0
},
{
"ControlID": 1512,
"AddressType": 0,
"BlockID": 280,
"ControlType": 109,
"TableID": 365,
"FieldID": 3133,
"Order": 4,
"NoLabel": 0,
"TotalIt": 0,
"NumProps": 0,
"Width": 2800,
"Height": -2
},
{
"ControlID": 1513,
"AddressType": 1,
"BlockID": 280,
"ControlType": 109,
"TableID": 365,
"FieldID": 3134,
"Order": 5,
"NoLabel": 0,
"TotalIt": 0,
"NumProps": 0
},
{
"ControlID": 1513,
"AddressType": 2,
"BlockID": 280,
"ControlType": 109,
"TableID": 365,
"FieldID": 3134,
"Order": 6,
"NoLabel": 0,
"TotalIt": 0,
"NumProps": 0
},
{
"ControlID": 1514,
"AddressType": 1,
"BlockID": 280,
"ControlType": 109,
"TableID": 365,
"FieldID": 3135,
"Order": 6,
"NoLabel": 0,
"TotalIt": 0,
"NumProps": 0
},
{
"ControlID": 1514,
"AddressType": 2,
"BlockID": 280,
"ControlType": 109,
"TableID": 365,
"FieldID": 3135,
"Order": 7,
"NoLabel": 0,
"TotalIt": 0,
"NumProps": 0
},
{
"ControlID": 1515,
"AddressType": 1,
"BlockID": 280,
"ControlType": 109,
"TableID": 365,
"FieldID": 3136,
"Order": 7,
"NoLabel": 0,
"TotalIt": 0,
"NumProps": 0
},
{
"ControlID": 1515,
"AddressType": 2,
"BlockID": 280,
"ControlType": 109,
"TableID": 365,
"FieldID": 3136,
"Order": 5,
"NoLabel": 0,
"TotalIt": 0,
"NumProps": 0
},
{
"ControlID": 1516,
"AddressType": 0,
"BlockID": 280,
"ControlType": 109,
"TableID": 365,
"FieldID": 3121,
"Order": 1,
"NoLabel": 0,
"TotalIt": 0,
"NumProps": 0
},
{
"ControlID": 1517,
"AddressType": 0,
"ControlCaption": "|S00487",
"BlockID": 280,
"ControlType": 111,
"TableID": 365,
"FieldID": 3122,
"Order": 10,
"NoLabel": 0,
"TotalIt": 0,
"NumProps": 0,
"Width": 1700,
"Code": "Private Sub >>|F03122<<_NotInList(NewData As String, Response As Integer)\r\n MsgBox \"|S00249\"\r\n Response = acDataErrContinue\r\nEnd Sub\r\nPrivate Sub >>|F03122<<_AfterUpdate ()\r\n Me![|F03137] = Me![|F03122].Column(2)\r\nEnd Sub\r\nPrivate Sub >>|F03122<<_DblClick (Cancel As Integer)\r\nOn Error Goto Err_>>|F03122<<_DblClick\r\n Dim lngMembershipTypeID As Long\r\n\r\n If IsNull(Me![|F03122]) Then\r\n Me![|F03122].Text = \"\"\r\n Else\r\n lngMembershipTypeID = Me![|F03122]\r\n Me![|F03122] = Null\r\n End If\r\n DoCmd.OpenForm \"|P00171\", , , , , acDialog, \"GotoNew\"\r\n Me![|F03122].Requery\r\n if lngMembershipTypeID<>0 then Me![|F03122] = lngMembershipTypeID\r\n\r\nExit_>>|F03122<<_DblClick:\r\n Exit Sub\r\n\r\nErr_>>|F03122<<_DblClick:\r\n MsgBox Err.Description\r\n Resume Exit_>>|F03122<<_DblClick\r\nEnd Sub"
"Code": "Private Sub >>|F03152<<_DblClick (Cancel As Integer)\r\n |S00114\r\nEnd Sub"
},
{
"ControlID": 1622,
"AddressType": 0,
"BlockID": 308,
"ControlType": 109,
"TableID": 370,
"FieldID": 2259,
"Order": 2,
"NoLabel": 0,
"TotalIt": 0,
"NumProps": 0,
"Code": "Private Sub >>|F02259<<_DblClick (Cancel As Integer)\r\n |S00114\r\nEnd Sub"
},
{
"ControlID": 1623,
"AddressType": 0,
"BlockID": 308,
"ControlType": 109,
"TableID": 370,
"FieldID": 2258,
"Order": 3,
"NoLabel": 0,
"TotalIt": 0,
"NumProps": 0,
"Code": "Private Sub >>|F02258<<_DblClick (Cancel As Integer)\r\n |S00114\r\nEnd Sub"
},
{
"ControlID": 1624,
"AddressType": 0,
"ControlName": "|S00037",
"BlockID": 308,
"ControlType": 109,
"Expression": "|S00037",
"Order": 4,
"DataType": 5,
"NoLabel": 0,
"TotalIt": 0,
"NumProps": 1,
"Format": "Currency",
"Code": "Private Sub >>|C01624<<_DblClick (Cancel As Integer)\r\n |S00114\r\nEnd Sub"
},
{
"ControlID": 1625,
"AddressType": 0,
"ControlName": "|S00046",
"BlockID": 308,
"ControlType": 109,
"Expression": "=nz([|C01624])-nz([|F02258])",
"Order": 5,
"DataType": 5,
"NoLabel": 0,
"TotalIt": 0,
"NumProps": 2,
"Format": "Currency",
"Code": "Private Sub >>|C01625<<_DblClick (Cancel As Integer)\r\n |S00114\r\nEnd Sub"
},
{
"ControlID": 1626,
"AddressType": 0,
"BlockID": 308,
"ControlType": 106,
"TableID": 370,
"FieldID": 3156,
"Order": 6,
"NoLabel": 0,
"TotalIt": 0,
"NumProps": 0
},
{
"ControlID": 1627,
"AddressType": 0,
"BlockID": 309,
"ControlType": 109,
"TableID": 370,
"FieldID": 3151,
"Order": 1,
"NoLabel": 0,
"TotalIt": 0,
"NumProps": 0
},
{
"ControlID": 1628,
"AddressType": 0,
"BlockID": 75,
"ControlType": 109,
"TableID": 370,
"FieldID": 2259,
"Order": 7,
"NoLabel": 0,
"TotalIt": 0,
"NumProps": 1,
"Width": 1100
},
{
"ControlID": 1629,
"AddressType": 0,
"BlockID": 75,
"ControlType": 109,
"TableID": 370,
"FieldID": 2258,
"Order": 8,
"NoLabel": 0,
"TotalIt": 0,
"NumProps": 0,
"Width": 1100
},
{
"ControlID": 1630,
"AddressType": 0,
"ControlName": "|S00397",
"BlockID": 75,
"ControlType": 109,
"Expression": "=[|P00062].form![|C01633]",
"Order": 9,
"DataType": 5,
"NoLabel": 0,
"TotalIt": 0,
"NumProps": 1,
"Width": 1100,
"Format": "Currency"
},
{
"ControlID": 1631,
"AddressType": 0,
"ControlName": "|S00392",
"BlockID": 75,
"ControlType": 109,
"Expression": "=nz([|C01630])-nz([|F02258])",
"Order": 10,
"DataType": 5,
"NoLabel": 0,
"TotalIt": 0,
"NumProps": 1,
"Width": 1100,
"Format": "Currency"
},
{
"ControlID": 1632,
"AddressType": 0,
"BlockID": 75,
"ControlType": 106,
"TableID": 370,
"FieldID": 3156,
"Order": 11,
"NoLabel": 0,
"TotalIt": 0,
"NumProps": 0
},
{
"ControlID": 1633,
"AddressType": 0,
"ControlName": "|S00397",
"BlockID": 310,
"ControlType": 109,
"Expression": "=sum([|F02994])",
"Order": 1,
"DataType": 5,
"NoLabel": 0,
"TotalIt": 0,
"NumProps": 1,
"Format": "Currency"
},
{
"ControlID": 1634,
"AddressType": 0,
"ControlCaption": "|S00390",
"BlockID": 311,
"ControlType": 109,
"TableID": 328,
"FieldID": 2974,
"Order": 1,
"NoLabel": 0,
"TotalIt": 0,
"NumProps": 0
},
{
"ControlID": 1635,
"AddressType": 0,
"BlockID": 311,
"ControlType": 109,
"TableID": 328,
"FieldID": 2975,
"Order": 2,
"NoLabel": 0,
"TotalIt": 0,
"NumProps": 0
},
{
"ControlID": 1636,
"AddressType": 0,
"BlockID": 311,
"ControlType": 109,
"TableID": 328,
"FieldID": 2997,
"Order": 3,
"NoLabel": 0,
"TotalIt": 0,
"NumProps": 0
},
{
"ControlID": 1637,
"AddressType": 0,
"ControlName": "|S00406",
"BlockID": 312,
"ControlType": 109,
"Order": 1,
"DataType": 8,
"NoLabel": 0,
"TotalIt": 0,
"NumProps": 1,
"Format": "Short Date"
},
{
"ControlID": 1638,
"AddressType": 0,
"ControlName": "|S00405",
"BlockID": 312,
"ControlType": 109,
"Order": 2,
"DataType": 8,
"NoLabel": 0,
"TotalIt": 0,
"NumProps": 1,
"Format": "Short Date"
},
{
"ControlID": 1639,
"AddressType": 0,
"ControlName": "|S00151",
"ControlCaption": "|S00311",
"BlockID": 313,
"ControlType": 104,
"Order": 1,
"NoLabel": 1,
"TotalIt": 0,
"NumProps": 1,
"Code": "Private Sub >>|C01275<<_Click()\r\n If isnull([|C01637]) or isnull([|C01638]) then \r\n msgbox \"|S00248\"\r\n docmd.gotocontrol \"|C01637\"\r\n Else\r\n If [|C01637] > [|C01638] Then\r\n MsgBox \"|S00287\"\r\n DoCmd.GoToControl \"|C01637\"\r\n Else\r\n Me.Visible = False\r\n End If\r\n End If\r\nEnd Sub"
},
{
"ControlID": 1640,
"AddressType": 0,
"BlockID": 314,
"ControlType": 109,
"TableID": 370,
"FieldID": 1122,
"Order": 2,
"NoLabel": 0,
"TotalIt": 0,
"NumProps": 1,
"Width": 1440
},
{
"ControlID": 1641,
"AddressType": 0,
"ControlName": "|S00013",
"BlockID": 314,
"ControlType": 109,
"Expression": "=[|F00001]&\" \"&[|F00002]",
"Order": 3,
"DataType": 10,
"NoLabel": 0,
"TotalIt": 0,
"NumProps": 1
},
{
"ControlID": 1642,
"AddressType": 0,
"BlockID": 314,
"ControlType": 109,
"TableID": 370,
"FieldID": 3152,
"Order": 4,
"NoLabel": 0,
"TotalIt": 0,
"NumProps": 1
},
{
"ControlID": 1643,
"AddressType": 0,
"ControlCaption": "|S00163",
"BlockID": 314,
"ControlType": 109,
"TableID": 370,
"FieldID": 3153,
"Order": 7,
"NoLabel": 0,
"TotalIt": 0,
"NumProps": 2
},
{
"ControlID": 1644,
"AddressType": 0,
"BlockID": 314,
"ControlType": 109,
"TableID": 370,
"FieldID": 3155,
"Order": 8,
"NoLabel": 0,
"TotalIt": 0,
"NumProps": 2
},
{
"ControlID": 1645,
"AddressType": 0,
"ControlCaption": "|S00393",
"BlockID": 314,
"ControlType": 109,
"TableID": 370,
"FieldID": 3154,
"Order": 6,
"NoLabel": 0,
"TotalIt": 0,
"NumProps": 1
},
{
"ControlID": 1646,
"AddressType": 0,
"BlockID": 314,
"ControlType": 109,
"TableID": 370,
"FieldID": 2259,
"Order": 1,
"NoLabel": 0,
"TotalIt": 0,
"NumProps": 1,
"Width": 1440
},
{
"ControlID": 1648,
"AddressType": 0,
"ControlCaption": "|S00163",
"BlockID": 78,
"ControlType": 109,
"TableID": 329,
"FieldID": 2995,
"Order": 3,
"NoLabel": 0,
"TotalIt": 0,
"NumProps": 1,
"Width": 5200
},
{
"ControlID": 1649,
"AddressType": 0,
"ControlName": "|S00037",
"BlockID": 315,
"ControlType": 109,
"Expression": "=sum(nz([|F02994]))",
"Order": 4,
"DataType": 5,
"NoLabel": 1,
"TotalIt": 0,
"NumProps": 1,
"Width": 1300,
"Height": 300,
"Format": "Currency"
},
{
"ControlID": 1650,
"AddressType": 0,
"BlockID": 315,
"ControlType": 109,
"TableID": 370,
"FieldID": 2258,
"Order": 5,
"DataType": 5,
"NoLabel": 1,
"TotalIt": 0,
"NumProps": 0,
"Width": 1300,
"Height": 300,
"Format": "Currency"
},
{
"ControlID": 1651,
"AddressType": 0,
"ControlName": "|S00392",
"BlockID": 315,
"ControlType": 109,
"Expression": "=[|C01649]-nz([|F02258])",
"Order": 6,
"DataType": 5,
"NoLabel": 1,
"TotalIt": 0,
"NumProps": 1,
"Width": 1300,
"Height": 300,
"Format": "Currency"
},
{
"ControlID": 1652,
"AddressType": 0,
"ControlCaption": "|S00403",
"BlockID": 80,
"ControlType": 109,
"TableID": 328,
"FieldID": 2997,
"Order": 4,
"NoLabel": 0,
"TotalIt": 0,
"NumProps": 0,
"Width": 2200
},
{
"ControlID": 1653,
"AddressType": 0,
"ControlName": "|S00013",
"BlockID": 316,
"ControlType": 109,
"Expression": "|S00013",
"Order": 1,
"NoLabel": 0,
"TotalIt": 0,
"NumProps": 0
},
{
"ControlID": 1654,
"AddressType": 0,
"BlockID": 317,
"ControlType": 109,
"TableID": 328,
"FieldID": 2975,
"Order": 1,
"NoLabel": 0,
"TotalIt": 0,
"NumProps": 0
},
{
"ControlID": 1655,
"AddressType": 0,
"ControlCaption": "|S00300",
"BlockID": 317,
"ControlType": 109,
"TableID": 329,
"FieldID": 2994,
"Order": 3,
"NoLabel": 0,
"TotalIt": 1,
"NumProps": 0,
"Width": 2200
},
{
"ControlID": 1656,
"AddressType": 0,
"ControlName": "|S00399",
"ControlCaption": "|S00400",
"BlockID": 318,
"ControlType": 104,
"Order": 1,
"NoLabel": 1,
"TotalIt": 0,
"NumProps": 0,
"Code": "Private Sub >>|C01656<<_Click()\r\nOn Error Goto Err_>>|C01656<<_Click\r\n If IsNull(Me![|F01122]) then\r\n MsgBox \"|S00219\"\r\n Else\r\n DoCmd.DoMenuItem acFormBar, acRecordsMenu, acSaveRecord, , acMenuVer70\r\n DoCmd.OpenForm \"|P00061\"\r\n End If\r\n\r\nExit_>>|C01656<<_Click:\r\n Exit Sub\r\n\r\nErr_>>|C01656<<_Click:\r\n MsgBox Err.Description\r\n Resume Exit_>>|C01656<<_Click\r\nEnd Sub"
},
{
"ControlID": 1658,
"AddressType": 0,
"ControlCaption": "|S00519",
"BlockID": 125,
"ControlType": 111,
"TableID": 29,
"FieldID": 3169,
"Order": 13,
"NoLabel": 0,
"TotalIt": 0,
"NumProps": 0,
"Code": "Private Sub >>|F03169<<_NotInList(NewData As String, Response As Integer)\r\n MsgBox \"|S00249\"\r\n Response = acDataErrContinue\r\nEnd Sub\r\nPrivate Sub >>|F03169<<_DblClick (Cancel As Integer)\r\nOn Error Goto Err_>>|F03169<<_DblClick\r\n Dim lngPhotoLocationID As Long\r\n\r\n If IsNull(Me![|F03169]) Then\r\n Me![|F03169].Text = \"\"\r\n Else\r\n lngPhotoLocationID = Me![|F03169]\r\n Me![|F03169] = Null\r\n End If\r\n DoCmd.OpenForm \"|P00188\", , , , , acDialog, \"GotoNew\"\r\n Me![|F03169].Requery\r\n if lngPhotoLocationID<>0 then Me![|F03169] = lngPhotoLocationID\r\n\r\nExit_>>|F03169<<_DblClick:\r\n Exit Sub\r\n\r\nErr_>>|F03169<<_DblClick:\r\n MsgBox Err.Description\r\n Resume Exit_>>|F03169<<_DblClick\r\nEnd Sub"
},
{
"ControlID": 1661,
"AddressType": 0,
"BlockID": 125,
"ControlType": 109,
"TableID": 29,
"FieldID": 2825,
"Order": 14,
"NoLabel": 0,
"TotalIt": 0,
"NumProps": 0
},
{
"ControlID": 1662,
"AddressType": 0,
"BlockID": 320,
"ControlType": 109,
"TableID": 373,
"FieldID": 3169,
"Order": 1,
"NoLabel": 0,
"TotalIt": 0,
"NumProps": 0
},
{
"ControlID": 1663,
"AddressType": 0,
"BlockID": 320,
"ControlType": 109,
"TableID": 373,
"FieldID": 3170,
"Order": 2,
"NoLabel": 0,
"TotalIt": 0,
"NumProps": 0
},
{
"ControlID": 1664,
"AddressType": 0,
"BlockID": 322,
"ControlType": 109,
"TableID": 373,
"FieldID": 3170,
"Order": 1,
"NoLabel": 0,
"TotalIt": 0,
"NumProps": 0
},
{
"ControlID": 1665,
"AddressType": 0,
"BlockID": 323,
"ControlType": 109,
"TableID": 29,
"FieldID": 135,
"Order": 1,
"NoLabel": 0,
"TotalIt": 0,
"NumProps": 0
},
{
"ControlID": 1666,
"AddressType": 0,
"BlockID": 323,
"ControlType": 109,
"TableID": 29,
"FieldID": 129,
"Order": 2,
"NoLabel": 0,
"TotalIt": 0,
"NumProps": 0,
"Width": 1500
},
{
"ControlID": 1667,
"AddressType": 0,
"BlockID": 323,
"ControlType": 109,
"TableID": 309,
"FieldID": 3009,
"Order": 3,
"NoLabel": 0,
"TotalIt": 0,
"NumProps": 0
},
{
"ControlID": 1668,
"AddressType": 0,
"BlockID": 323,
"ControlType": 109,
"TableID": 309,
"FieldID": 467,
"Order": 4,
"NoLabel": 0,
"TotalIt": 0,
"NumProps": 0
},
{
"ControlID": 1669,
"AddressType": 0,
"BlockID": 323,
"ControlType": 109,
"TableID": 309,
"FieldID": 2949,
"Order": 5,
"NoLabel": 0,
"TotalIt": 0,
"NumProps": 0
},
{
"ControlID": 1670,
"AddressType": 0,
"BlockID": 324,
"ControlType": 109,
"TableID": 309,
"FieldID": 3009,
"Order": 1,
"NoLabel": 0,
"TotalIt": 0,
"NumProps": 0
},
{
"ControlID": 1671,
"AddressType": 0,
"ControlName": "|S00520",
"ControlCaption": "|S00521",
"BlockID": 319,
"ControlType": 104,
"Order": 1,
"NoLabel": 1,
"TotalIt": 0,
"NumProps": 0,
"Code": "Private Sub >>|C01671<<_Click()\r\nOn Error Goto Err_>>|C01671<<_Click\r\n If IsNull(Me![|F02872]) Then\r\n MsgBox \"|S00133\"\r\n Else\r\n DoCmd.DoMenuItem acFormBar, acRecordsMenu, acSaveRecord, , acMenuVer70\r\n DoCmd.OpenForm \"|P00100\"\r\n End If\r\n\r\nExit_>>|C01671<<_Click:\r\n Exit Sub\r\n\r\nErr_>>|C01671<<_Click:\r\n MsgBox Err.Description\r\n Resume Exit_>>|C01671<<_Click\r\nEnd Sub"
"Code": "Private Sub >>|C01676<<_Click()\r\nOn Error Goto Err_>>|C01676<<_Click\r\n If IsNull(Me![|F02903]) Then\r\n MsgBox \"|S00131\"\r\n Else\r\n DoCmd.DoMenuItem acFormBar, acRecordsMenu, acSaveRecord, , acMenuVer70\r\n DoCmd.OpenForm \"|P00093\"\r\n End If\r\n\r\nExit_>>|C01676<<_Click:\r\n Exit Sub\r\n\r\nErr_>>|C01676<<_Click:\r\n MsgBox Err.Description\r\n Resume Exit_>>|C01676<<_Click\r\nEnd Sub"
},
{
"ControlID": 1677,
"AddressType": 0,
"BlockID": 118,
"ControlType": 109,
"TableID": 339,
"FieldID": 2903,
"Order": 1,
"NoLabel": 0,
"TotalIt": 0,
"NumProps": 1
},
{
"ControlID": 1678,
"AddressType": 0,
"BlockID": 118,
"ControlType": 109,
"TableID": 339,
"FieldID": 72,
"Order": 4,
"NoLabel": 0,
"TotalIt": 0,
"NumProps": 0
},
{
"ControlID": 1679,
"AddressType": 0,
"BlockID": 118,
"ControlType": 109,
"TableID": 339,
"FieldID": 3006,
"Order": 5,
"NoLabel": 0,
"TotalIt": 0,
"NumProps": 0
},
{
"ControlID": 1680,
"AddressType": 0,
"BlockID": 118,
"ControlType": 109,
"TableID": 339,
"FieldID": 324,
"Order": 6,
"NoLabel": 0,
"TotalIt": 0,
"NumProps": 0,
"Width": 1600
},
{
"ControlID": 1681,
"AddressType": 0,
"BlockID": 118,
"ControlType": 109,
"TableID": 339,
"FieldID": 2149,
"Order": 7,
"NoLabel": 0,
"TotalIt": 0,
"NumProps": 0,
"Width": 1600
},
{
"ControlID": 1682,
"AddressType": 0,
"BlockID": 118,
"ControlType": 109,
"TableID": 339,
"FieldID": 1208,
"Order": 14,
"NoLabel": 0,
"TotalIt": 0,
"NumProps": 1
},
{
"ControlID": 1683,
"AddressType": 0,
"BlockID": 326,
"ControlType": 109,
"TableID": 374,
"FieldID": 3171,
"Order": 1,
"NoLabel": 0,
"TotalIt": 0,
"NumProps": 0
},
{
"ControlID": 1684,
"AddressType": 0,
"BlockID": 326,
"ControlType": 109,
"TableID": 374,
"FieldID": 2906,
"Order": 2,
"NoLabel": 0,
"TotalIt": 0,
"NumProps": 0
},
{
"ControlID": 1687,
"AddressType": 0,
"ControlName": "|S00707",
"BlockID": 114,
"ControlType": 109,
"Expression": "=[|F03173]*[|F00324]",
"Order": 7,
"DataType": 5,
"NoLabel": 0,
"TotalIt": 1,
"NumProps": 1,
"Format": "Currency"
},
{
"ControlID": 1688,
"AddressType": 0,
"ControlName": "|S00707",
"BlockID": 117,
"ControlType": 109,
"Expression": "=[|F03173]*[|F00324]",
"Order": 6,
"DataType": 5,
"NoLabel": 0,
"TotalIt": 1,
"NumProps": 1,
"Format": "Currency"
},
{
"ControlID": 1689,
"AddressType": 0,
"ControlName": "|S00707",
"BlockID": 120,
"ControlType": 109,
"Expression": "=[|F03173]*[|F00324]",
"Order": 7,
"DataType": 5,
"NoLabel": 0,
"TotalIt": 1,
"NumProps": 1,
"Width": 2200,
"Format": "Currency"
},
{
"ControlID": 1690,
"AddressType": 0,
"BlockID": 127,
"ControlType": 109,
"TableID": 29,
"FieldID": 3175,
"Order": 1,
"NoLabel": 0,
"TotalIt": 0,
"NumProps": 0,
"Code": "Private Sub >>|F03175<<_DblClick (Cancel As Integer)\r\n |S00115\r\nEnd Sub"
},
{
"ControlID": 1691,
"AddressType": 0,
"BlockID": 125,
"ControlType": 109,
"TableID": 29,
"FieldID": 3175,
"Order": 2,
"NoLabel": 0,
"TotalIt": 0,
"NumProps": 0,
"Width": 1100
},
{
"ControlID": 1692,
"AddressType": 0,
"BlockID": 110,
"ControlType": 109,
"TableID": 311,
"FieldID": 2897,
"Order": 3,
"NoLabel": 0,
"TotalIt": 0,
"NumProps": 0,
"Width": 1800
},
{
"ControlID": 1693,
"AddressType": 0,
"ControlName": "|S00530",
"ControlCaption": "|S00531",
"BlockID": 327,
"ControlType": 112,
"Order": 1,
"NoLabel": 0,
"TotalIt": 0,
"NumProps": 0,
"Width": 6300,
"Height": 1135
},
{
"ControlID": 1694,
"AddressType": 0,
"ControlName": "|S00532",
"ControlCaption": "|S00533",
"BlockID": 328,
"ControlType": 104,
"Order": 1,
"NoLabel": 1,
"TotalIt": 0,
"NumProps": 0,
"Code": "Private Sub >>|C01694<<_Click()\r\n Dim rst As Recordset\r\n Dim dblFactor As Double\r\n\r\n On Error GoTo >>|C01694<<_Err\r\n DoCmd.OpenForm \"|P00193\", , , , , acDialog\r\n \r\n If Not IsLoaded(\"|P00193\") Then\r\n Exit Sub\r\n End If\r\n\r\n If isnull(Forms![|P00193]![|C01703]) or Forms![|P00193]![|C01703]=0 then \r\n DoCmd.Close acForm, \"|P00193\"\r\n Exit Sub\r\n End If\r\n\r\n DoCmd.Hourglass True\r\n dblFactor = CDbl(Forms![|P00193]![|C01703])\r\n Set rst = Me![|P00195].Form.RecordsetClone\r\n rst.MoveFirst\r\n While (Not (rst.EOF))\r\n rst.Edit\r\n rst![|F00324] = rst![|F00324] * dblFactor\r\n rst.Update\r\n rst.MoveNext\r\n Wend\r\n Me.SetFocus\r\n Me![|F00075] = Forms![|P00065]![|F00075] * dblFactor\r\n rst.Close\r\n\r\n>>|C01694<<_Exit:\r\n DoCmd.Close acForm, \"|P00193\"\r\n DoCmd.Hourglass False\r\n Exit Sub\r\n\r\n>>|C01694<<_Err:\r\n MsgBox Err.Description\r\n Resume >>|C01694<<_Exit\r\nEnd Sub"
},
{
"ControlID": 1695,
"AddressType": 0,
"ControlCaption": "|S00538",
"BlockID": 329,
"ControlType": 111,
"TableID": 376,
"FieldID": 3178,
"Order": 1,
"NoLabel": 0,
"TotalIt": 0,
"NumProps": 0,
"Code": "Private Sub >>|F03178<<_NotInList(NewData As String, Response As Integer)\r\n MsgBox \"|S00249\"\r\n Response = acDataErrContinue\r\nEnd Sub\r\nPrivate Sub >>|F03178<<_DblClick (Cancel As Integer)\r\nOn Error Goto Err_>>|F03178<<_DblClick\r\n Dim lngIngredientID As Long\r\n\r\n If IsNull(Me![|F03178]) Then\r\n Me![|F03178].Text = \"\"\r\n Else\r\n lngIngredientID = Me![|F03178]\r\n Me![|F03178] = Null\r\n End If\r\n DoCmd.OpenForm \"|P00192\", , , , , acDialog, \"GotoNew\"\r\n Me![|F03178].Requery\r\n if lngIngredientID<>0 then Me![|F03178] = lngIngredientID\r\n\r\nExit_>>|F03178<<_DblClick:\r\n Exit Sub\r\n\r\nErr_>>|F03178<<_DblClick:\r\n MsgBox Err.Description\r\n Resume Exit_>>|F03178<<_DblClick\r\nEnd Sub"
},
{
"ControlID": 1696,
"AddressType": 0,
"BlockID": 329,
"ControlType": 109,
"TableID": 376,
"FieldID": 324,
"Order": 2,
"NoLabel": 0,
"TotalIt": 0,
"NumProps": 0
},
{
"ControlID": 1697,
"AddressType": 0,
"BlockID": 329,
"ControlType": 109,
"TableID": 376,
"FieldID": 1208,
"Order": 3,
"NoLabel": 0,
"TotalIt": 0,
"NumProps": 0
},
{
"ControlID": 1698,
"AddressType": 0,
"BlockID": 330,
"ControlType": 109,
"TableID": 377,
"FieldID": 3176,
"Order": 1,
"NoLabel": 0,
"TotalIt": 0,
"NumProps": 0
},
{
"ControlID": 1699,
"AddressType": 0,
"BlockID": 330,
"ControlType": 109,
"TableID": 377,
"FieldID": 2998,
"Order": 2,
"NoLabel": 0,
"TotalIt": 0,
"NumProps": 0
},
{
"ControlID": 1700,
"AddressType": 0,
"BlockID": 331,
"ControlType": 109,
"TableID": 375,
"FieldID": 3178,
"Order": 1,
"NoLabel": 0,
"TotalIt": 0,
"NumProps": 0
},
{
"ControlID": 1701,
"AddressType": 0,
"BlockID": 331,
"ControlType": 109,
"TableID": 375,
"FieldID": 3179,
"Order": 2,
"NoLabel": 0,
"TotalIt": 0,
"NumProps": 0
},
{
"ControlID": 1702,
"AddressType": 0,
"ControlName": "|S00524",
"ControlCaption": "|S00525",
"BlockID": 332,
"ControlType": 100,
"Order": 1,
"NoLabel": 0,
"TotalIt": 0,
"NumProps": 0,
"Width": 3500,
"Height": 1150
},
{
"ControlID": 1703,
"AddressType": 0,
"ControlName": "|S00522",
"BlockID": 332,
"ControlType": 109,
"Order": 2,
"NoLabel": 0,
"TotalIt": 0,
"NumProps": 1
},
{
"ControlID": 1704,
"AddressType": 0,
"ControlName": "|S00526",
"BlockID": 333,
"ControlType": 104,
"Order": 1,
"NoLabel": 1,
"TotalIt": 0,
"NumProps": 1,
"Width": 1000,
"Code": "Private Sub >>|C01704<<_Click()\r\n Me.visible = False\r\nEnd Sub"
},
{
"ControlID": 1705,
"AddressType": 0,
"ControlName": "|S00523",
"BlockID": 333,
"ControlType": 104,
"Order": 2,
"NoLabel": 1,
"TotalIt": 0,
"NumProps": 1,
"Width": 1000,
"Code": "Private Sub >>|C01705<<_Click()\r\n DoCmd.Close acForm, \"|P00193\"\r\nEnd Sub"
},
{
"ControlID": 1706,
"AddressType": 0,
"ControlName": "|S00528",
"ControlCaption": "|S00529:",
"BlockID": 334,
"ControlType": 112,
"Order": 1,
"NoLabel": 0,
"TotalIt": 0,
"NumProps": 1,
"Width": 6500,
"Height": 300
},
{
"ControlID": 1707,
"AddressType": 0,
"BlockID": 335,
"ControlType": 109,
"TableID": 375,
"FieldID": 3179,
"Order": 1,
"NoLabel": 0,
"TotalIt": 0,
"NumProps": 0
},
{
"ControlID": 1708,
"AddressType": 0,
"BlockID": 335,
"ControlType": 109,
"TableID": 376,
"FieldID": 324,
"Order": 2,
"NoLabel": 0,
"TotalIt": 0,
"NumProps": 0
},
{
"ControlID": 1709,
"AddressType": 0,
"BlockID": 335,
"ControlType": 109,
"TableID": 376,
"FieldID": 1208,
"Order": 3,
"NoLabel": 0,
"TotalIt": 0,
"NumProps": 1
},
{
"ControlID": 1710,
"AddressType": 0,
"ControlCaption": "|S00264",
"BlockID": 9,
"ControlType": 111,
"TableID": 254,
"FieldID": 3192,
"Order": 6,
"NoLabel": 0,
"TotalIt": 0,
"NumProps": 0,
"Code": "Private Sub >>|F03192<<_NotInList(NewData As String, Response As Integer)\r\n MsgBox \"|S00249\"\r\n Response = acDataErrContinue\r\nEnd Sub\r\nPrivate Sub >>|F03192<<_DblClick (Cancel As Integer)\r\nOn Error Goto Err_>>|F03192<<_DblClick\r\n Dim lngCategoryID As Long\r\n\r\n If IsNull(me![|F03192]) Then\r\n me![|F03192].Text = \"\"\r\n Else\r\n lngCategoryID = me![|F03192]\r\n me![|F03192] = Null\r\n End If\r\n DoCmd.OpenForm \"|P00118\", , , , , acDialog, \"GotoNew\"\r\n Me![|F03192].Requery\r\n if lngCategoryID<>0 then me![|F03192] = lngCategoryID\r\n\r\nExit_>>|F03192<<_DblClick:\r\n Exit Sub\r\n\r\nErr_>>|F03192<<_DblClick:\r\n MsgBox Err.Description\r\n Resume Exit_>>|F03192<<_DblClick\r\nEnd Sub"
},
{
"ControlID": 1711,
"AddressType": 0,
"ControlCaption": "|S00292",
"BlockID": 9,
"ControlType": 111,
"TableID": 254,
"FieldID": 3183,
"Order": 7,
"NoLabel": 0,
"TotalIt": 0,
"NumProps": 0,
"Code": "Private Sub >>|F03183<<_NotInList(NewData As String, Response As Integer)\r\n MsgBox \"|S00249\"\r\n Response = acDataErrContinue\r\nEnd Sub\r\nPrivate Sub >>|F03183<<_DblClick (Cancel As Integer)\r\nOn Error Goto Err_>>|F03183<<_DblClick\r\n Dim lngStatusID As Long\r\n\r\n If IsNull(me![|F03183]) Then\r\n me![|F03183].Text = \"\"\r\n Else\r\n lngStatusID = me![|F03183]\r\n Me![|F03183] = Null\r\n End If\r\n DoCmd.OpenForm \"|P00200\", , , , , acDialog, \"GotoNew\"\r\n Me![|F03183].Requery\r\n if lngStatusID<>0 then Me![|F03183] = lngStatusID\r\n\r\nExit_>>|F03183<<_DblClick:\r\n Exit Sub\r\n\r\nErr_>>|F03183<<_DblClick:\r\n MsgBox Err.Description\r\n Resume Exit_>>|F03183<<_DblClick\r\nEnd Sub"
},
{
"ControlID": 1712,
"AddressType": 0,
"ControlCaption": "|S00290",
"BlockID": 9,
"ControlType": 111,
"TableID": 254,
"FieldID": 2921,
"Order": 8,
"ReqTblID": 327,
"NoLabel": 0,
"TotalIt": 0,
"NumProps": 0,
"Code": "Private Sub >>|F02921<<_NotInList(NewData As String, Response As Integer)\r\n MsgBox \"|S00249\"\r\n Response = acDataErrContinue\r\nEnd Sub\r\nPrivate Sub >>|F02921<<_DblClick (Cancel As Integer)\r\nOn Error Goto Err_>>|F02921<<_DblClick\r\n Dim lngDepartmentID As Long\r\n\r\n If IsNull(me![|F02921]) Then\r\n me![|F02921].Text = \"\"\r\n Else\r\n lngDepartmentID = me![|F02921]\r\n me![|F02921] = Null\r\n End If\r\n DoCmd.OpenForm \"|P00117\", , , , , acDialog, \"GotoNew\"\r\n Me![|F02921].Requery\r\n if lngDepartmentID<>0 then me![|F02921] = lngDepartmentID\r\n\r\nExit_>>|F02921<<_DblClick:\r\n Exit Sub\r\n\r\nErr_>>|F02921<<_DblClick:\r\n MsgBox Err.Description\r\n Resume Exit_>>|F02921<<_DblClick\r\nEnd Sub"
},
{
"ControlID": 1713,
"AddressType": 0,
"BlockID": 9,
"ControlType": 109,
"TableID": 254,
"FieldID": 73,
"Order": 11,
"NoLabel": 0,
"TotalIt": 0,
"NumProps": 0
},
{
"ControlID": 1714,
"AddressType": 0,
"BlockID": 9,
"ControlType": 109,
"TableID": 254,
"FieldID": 3191,
"Order": 14,
"NoLabel": 0,
"TotalIt": 0,
"NumProps": 0,
"Width": 1700
},
{
"ControlID": 1715,
"AddressType": 0,
"ControlName": "|S00142",
"ControlCaption": "|S00446",
"BlockID": 336,
"ControlType": 104,
"Order": 1,
"NoLabel": 1,
"TotalIt": 0,
"NumProps": 0,
"Code": "Private Sub >>|C01715<<_Click()\r\nOn Error Goto Err_>>|C01715<<_Click\r\n If IsNull(me![|F02345]) Then\r\n MsgBox \"|S00235\"\r\n Else\r\n DoCmd.DoMenuItem acFormBar, acRecordsMenu, acSaveRecord, , acMenuVer70\r\n DoCmd.OpenForm \"|P00198\"\r\n End If\r\n\r\nExit_>>|C01715<<_Click:\r\n Exit Sub\r\n\r\nErr_>>|C01715<<_Click:\r\n MsgBox Err.Description\r\n Resume Exit_>>|C01715<<_Click\r\nEnd Sub"
},
{
"ControlID": 1716,
"AddressType": 0,
"ControlName": "|S00141",
"ControlCaption": "|S00447",
"BlockID": 336,
"ControlType": 104,
"Order": 2,
"NoLabel": 1,
"TotalIt": 0,
"NumProps": 0,
"Code": "Private Sub >>|C01716<<_Click()\r\nOn Error Goto Err_>>|C01716<<_Click\r\n If IsNull(me![|F02345]) Then\r\n MsgBox \"|S00236\"\r\n Else\r\n DoCmd.DoMenuItem acFormBar, acRecordsMenu, acSaveRecord, , acMenuVer70\r\n DoCmd.OpenForm \"|P00197\"\r\n End If\r\n\r\nExit_>>|C01716<<_Click:\r\n Exit Sub\r\n\r\nErr_>>|C01716<<_Click:\r\n MsgBox Err.Description\r\n Resume Exit_>>|C01716<<_Click\r\nEnd Sub"
},
{
"ControlID": 1719,
"AddressType": 0,
"BlockID": 14,
"ControlType": 109,
"TableID": 5,
"FieldID": 34,
"Order": 4,
"NoLabel": 0,
"TotalIt": 0,
"NumProps": 0
},
{
"ControlID": 1720,
"AddressType": 0,
"BlockID": 14,
"ControlType": 109,
"TableID": 5,
"FieldID": 3194,
"Order": 5,
"NoLabel": 0,
"TotalIt": 0,
"NumProps": 0
},
{
"ControlID": 1721,
"AddressType": 0,
"ControlCaption": "|S00306",
"BlockID": 14,
"ControlType": 109,
"TableID": 5,
"FieldID": 3150,
"Order": 8,
"NoLabel": 0,
"TotalIt": 0,
"NumProps": 0,
"Width": 1600
},
{
"ControlID": 1722,
"AddressType": 0,
"BlockID": 14,
"ControlType": 109,
"TableID": 5,
"FieldID": 2868,
"Order": 10,
"NoLabel": 0,
"TotalIt": 0,
"NumProps": 0,
"Width": 1600
},
{
"ControlID": 1723,
"AddressType": 0,
"BlockID": 14,
"ControlType": 109,
"TableID": 5,
"FieldID": 10,
"Order": 11,
"NoLabel": 0,
"TotalIt": 0,
"NumProps": 0,
"Width": 1600
},
{
"ControlID": 1724,
"AddressType": 0,
"BlockID": 337,
"ControlType": 109,
"TableID": 378,
"FieldID": 3182,
"Order": 1,
"NoLabel": 1,
"TotalIt": 0,
"NumProps": 0
},
{
"ControlID": 1725,
"AddressType": 0,
"BlockID": 338,
"ControlType": 109,
"TableID": 254,
"FieldID": 2345,
"Order": 1,
"NoLabel": 0,
"TotalIt": 0,
"NumProps": 0,
"Width": 1440
},
{
"ControlID": 1726,
"AddressType": 0,
"BlockID": 338,
"ControlType": 109,
"TableID": 254,
"FieldID": 3187,
"Order": 3,
"NoLabel": 0,
"TotalIt": 0,
"NumProps": 0,
"Width": 1440
},
{
"ControlID": 1727,
"AddressType": 0,
"BlockID": 338,
"ControlType": 109,
"TableID": 254,
"FieldID": 3188,
"Order": 4,
"NoLabel": 0,
"TotalIt": 0,
"NumProps": 0,
"Width": 1440
},
{
"ControlID": 1728,
"AddressType": 0,
"BlockID": 338,
"ControlType": 109,
"TableID": 254,
"FieldID": 1059,
"Order": 5,
"NoLabel": 0,
"TotalIt": 0,
"NumProps": 0,
"Width": 1440
},
{
"ControlID": 1729,
"AddressType": 0,
"ControlName": "|S00139",
"BlockID": 338,
"ControlType": 109,
"Expression": "=[|P00201].form![|C01734]",
"Order": 6,
"DataType": 5,
"NoLabel": 0,
"TotalIt": 0,
"NumProps": 1,
"Width": 1440,
"Format": "Currency"
},
{
"ControlID": 1730,
"AddressType": 0,
"ControlName": "|S00149",
"BlockID": 338,
"ControlType": 109,
"Expression": "=[|F01059]-[|C01729]-[|F03188]",
"Order": 7,
"DataType": 5,
"NoLabel": 0,
"TotalIt": 0,
"NumProps": 1,
"Width": 1440,
"Format": "Currency"
},
{
"ControlID": 1731,
"AddressType": 0,
"ControlName": "|S00144",
"ControlCaption": "|S00299",
"BlockID": 339,
"ControlType": 112,
"Order": 1,
"NoLabel": 0,
"TotalIt": 0,
"NumProps": 0,
"Width": 5000,
"Height": 1640
},
{
"ControlID": 1732,
"AddressType": 0,
"ControlCaption": "|S00289",
"BlockID": 340,
"ControlType": 109,
"TableID": 371,
"FieldID": 3162,
"Order": 1,
"NoLabel": 0,
"TotalIt": 0,
"NumProps": 0
},
{
"ControlID": 1733,
"AddressType": 0,
"ControlCaption": "|S00300",
"BlockID": 340,
"ControlType": 109,
"TableID": 371,
"FieldID": 3163,
"Order": 2,
"NoLabel": 0,
"TotalIt": 0,
"NumProps": 0
},
{
"ControlID": 1734,
"AddressType": 0,
"ControlName": "|S00139",
"BlockID": 341,
"ControlType": 109,
"Expression": "=sum([|F03163])",
"Order": 1,
"DataType": 5,
"NoLabel": 0,
"TotalIt": 0,
"NumProps": 1
},
{
"ControlID": 1735,
"AddressType": 0,
"BlockID": 342,
"ControlType": 109,
"TableID": 254,
"FieldID": 2345,
"Order": 1,
"NoLabel": 0,
"TotalIt": 0,
"NumProps": 0,
"Width": 1600
},
{
"ControlID": 1736,
"AddressType": 0,
"ControlName": "|S00107",
"BlockID": 342,
"ControlType": 109,
"Expression": "=[|P00202].form![|C01741]",
"Order": 2,
"DataType": 5,
"NoLabel": 0,
"TotalIt": 0,
"NumProps": 1,
"Width": 1600,
"Format": "Currency"
},
{
"ControlID": 1737,
"AddressType": 0,
"ControlCaption": "|S00289",
"BlockID": 344,
"ControlType": 109,
"TableID": 372,
"FieldID": 3165,
"Order": 1,
"NoLabel": 0,
"TotalIt": 0,
"NumProps": 0
},
{
"ControlID": 1738,
"AddressType": 0,
"ControlCaption": "|S00163",
"BlockID": 344,
"ControlType": 109,
"TableID": 372,
"FieldID": 3184,
"Order": 2,
"NoLabel": 0,
"TotalIt": 0,
"NumProps": 0
},
{
"ControlID": 1739,
"AddressType": 0,
"ControlCaption": "|S00309",
"BlockID": 344,
"ControlType": 109,
"TableID": 372,
"FieldID": 3185,
"Order": 3,
"NoLabel": 0,
"TotalIt": 0,
"NumProps": 0
},
{
"ControlID": 1740,
"AddressType": 0,
"ControlCaption": "|S00302",
"BlockID": 344,
"ControlType": 109,
"TableID": 372,
"FieldID": 3167,
"Order": 4,
"NoLabel": 0,
"TotalIt": 0,
"NumProps": 0
},
{
"ControlID": 1741,
"AddressType": 0,
"ControlName": "|S00107",
"BlockID": 345,
"ControlType": 109,
"Expression": "=sum([|F03167])",
"Order": 1,
"DataType": 5,
"NoLabel": 0,
"TotalIt": 0,
"NumProps": 1
},
{
"ControlID": 1742,
"AddressType": 0,
"BlockID": 342,
"ControlType": 109,
"TableID": 254,
"FieldID": 3189,
"Order": 3,
"NoLabel": 0,
"TotalIt": 0,
"NumProps": 0,
"Width": 1600
},
{
"ControlID": 1743,
"AddressType": 0,
"ControlName": "|S00145",
"ControlCaption": "|S00308",
"BlockID": 343,
"ControlType": 112,
"Order": 1,
"NoLabel": 0,
"TotalIt": 0,
"NumProps": 0,
"Width": 8500,
"Height": 1865
},
{
"ControlID": 1746,
"AddressType": 0,
"ControlName": "|S00151",
"ControlCaption": "|S00311",
"BlockID": 347,
"ControlType": 104,
"Order": 1,
"NoLabel": 1,
"TotalIt": 0,
"NumProps": 1,
"Code": "Private Sub >>|C01746<<_Click()\r\n If isnull([|C02852]) or isnull([|C02853]) then \r\n msgbox \"|S00248\"\r\n docmd.gotocontrol \"|C02852\"\r\n Else\r\n If [|C02852] > [|C02853] Then\r\n MsgBox \"|S00287\"\r\n DoCmd.GoToControl \"|C02852\"\r\n Else\r\n Me.Visible = False\r\n End If\r\n End If\r\nEnd Sub"
"Code": "Private Sub >>|F03025<<_NotInList(NewData As String, Response As Integer)\r\n MsgBox \"|S00249\"\r\n Response = acDataErrContinue\r\nEnd Sub\r\nPrivate Sub >>|F03025<<_AfterUpdate ()\r\nOn Error Goto Err_>>|F03025<<_AfterUpdate\r\n If Not IsNull(Me![|F03025]) then\r\n If Me![|F03025].column(2) = True Then\r\n Me![|F02268] = [Forms]![|P00224]![|F03220] & \" \" & [Forms]![|P00224]![|F03221]\r\n End If\r\n End If\r\n\r\nExit_>>|F03025<<_AfterUpdate:\r\n Exit Sub\r\n\r\nErr_>>|F03025<<_AfterUpdate:\r\n MsgBox Err.Description\r\n Resume Exit_>>|F03025<<_AfterUpdate\r\nEnd Sub\r\n\r\nPrivate Sub >>|F03025<<_DblClick (Cancel As Integer)\r\nOn Error Goto Err_>>|F03025<<_DblClick\r\n Dim lngPaymentMethodID As Long\r\n\r\n If IsNull(Me![|F03025]) Then\r\n Me![|F03025].Text = \"\"\r\n Else\r\n lngPaymentMethodID = Me![|F03025]\r\n Me![|F03025] = Null\r\n End If\r\n DoCmd.OpenForm \"|P00227\", , , , , acDialog, \"GotoNew\"\r\n Me![|F03025].Requery\r\n if lngPaymentMethodID<>0 then Me![|F03025] = lngPaymentMethodID\r\n\r\nExit_>>|F03025<<_DblClick:\r\n Exit Sub\r\n\r\nErr_>>|F03025<<_DblClick:\r\n MsgBox Err.Description\r\n Resume Exit_>>|F03025<<_DblClick\r\nEnd Sub"
},
{
"ControlID": 1965,
"AddressType": 0,
"BlockID": 405,
"ControlType": 109,
"TableID": 193,
"FieldID": 1176,
"Order": 4,
"NoLabel": 0,
"TotalIt": 0,
"NumProps": 0
},
{
"ControlID": 1966,
"AddressType": 0,
"BlockID": 405,
"ControlType": 109,
"TableID": 193,
"FieldID": 2271,
"Order": 5,
"NoLabel": 0,
"TotalIt": 0,
"NumProps": 0
},
{
"ControlID": 1967,
"AddressType": 0,
"BlockID": 405,
"ControlType": 109,
"TableID": 193,
"FieldID": 2268,
"Order": 6,
"NoLabel": 0,
"TotalIt": 0,
"NumProps": 0
},
{
"ControlID": 1968,
"AddressType": 0,
"BlockID": 405,
"ControlType": 109,
"TableID": 193,
"FieldID": 2270,
"Order": 7,
"NoLabel": 0,
"TotalIt": 0,
"NumProps": 0
},
{
"ControlID": 1969,
"AddressType": 0,
"BlockID": 405,
"ControlType": 109,
"TableID": 193,
"FieldID": 2269,
"Order": 8,
"NoLabel": 0,
"TotalIt": 0,
"NumProps": 0
},
{
"ControlID": 1970,
"AddressType": 0,
"BlockID": 405,
"ControlType": 109,
"TableID": 193,
"FieldID": 3086,
"Order": 9,
"NoLabel": 0,
"TotalIt": 0,
"NumProps": 0
},
{
"ControlID": 1971,
"AddressType": 0,
"ControlName": "|S00379",
"BlockID": 406,
"ControlType": 109,
"Order": 1,
"DataType": 4,
"NoLabel": 0,
"TotalIt": 0,
"NumProps": 3
},
{
"ControlID": 1972,
"AddressType": 0,
"ControlName": "|S00028",
"BlockID": 406,
"ControlType": 109,
"Order": 2,
"DataType": 8,
"NoLabel": 0,
"TotalIt": 0,
"NumProps": 4,
"Format": "short date"
},
{
"ControlID": 1973,
"AddressType": 0,
"ControlName": "|S00029",
"BlockID": 406,
"ControlType": 109,
"Order": 3,
"DataType": 5,
"NoLabel": 0,
"TotalIt": 0,
"NumProps": 4,
"Format": "Currency"
},
{
"ControlID": 1974,
"AddressType": 0,
"ControlName": "|S00030",
"ControlCaption": "|S00373",
"BlockID": 406,
"ControlType": 109,
"Order": 4,
"DataType": 10,
"NoLabel": 0,
"TotalIt": 0,
"NumProps": 1,
"Width": 3500,
"Height": -2
},
{
"ControlID": 1975,
"AddressType": 0,
"ControlName": "|S00031",
"BlockID": 406,
"ControlType": 109,
"Order": 5,
"DataType": 10,
"NoLabel": 0,
"TotalIt": 0,
"NumProps": 1,
"Width": 3500,
"Height": -1
},
{
"ControlID": 1976,
"AddressType": 0,
"ControlName": "|S00526",
"BlockID": 407,
"ControlType": 104,
"Order": 1,
"NoLabel": 1,
"TotalIt": 0,
"NumProps": 1,
"Width": 1000,
"Code": "Private Sub >>|C01976<<_Click()\r\n Me.visible = False\r\nEnd Sub"
},
{
"ControlID": 1977,
"AddressType": 0,
"ControlName": "|S00387",
"ControlCaption": "|S00388",
"BlockID": 408,
"ControlType": 109,
"Order": 1,
"DataType": 8,
"NoLabel": 0,
"TotalIt": 0,
"NumProps": 1,
"Format": "short date"
},
{
"ControlID": 1978,
"AddressType": 0,
"ControlName": "|S00385",
"ControlCaption": "|S00386",
"BlockID": 408,
"ControlType": 109,
"Order": 2,
"DataType": 8,
"NoLabel": 0,
"TotalIt": 0,
"NumProps": 1,
"Format": "short date"
},
{
"ControlID": 1979,
"AddressType": 0,
"ControlName": "|S00151",
"ControlCaption": "|S00311",
"BlockID": 409,
"ControlType": 104,
"Order": 1,
"NoLabel": 1,
"TotalIt": 0,
"NumProps": 1,
"Code": "Private Sub >>|C01639<<_Click()\r\n If isnull([|C01977]) or isnull([|C01978]) then \r\n msgbox \"|S00248\"\r\n docmd.gotocontrol \"|C01977\"\r\n Else\r\n If [|C01977] > [|C01978] Then\r\n MsgBox \"|S00287\"\r\n DoCmd.GoToControl \"|C01977\"\r\n Else\r\n Me.Visible = False\r\n End If\r\n End If\r\nEnd Sub"
"Code": "Private Sub >>|F03248<<_NotInList(NewData As String, Response As Integer)\r\n MsgBox \"|S00249\"\r\n Response = acDataErrContinue\r\nEnd Sub\r\nPrivate Sub >>|F03248<<_AfterUpdate ()\r\n If Not IsNull(Me![|F03248].column(2)) Then Me![|F03258] = Me![|F03248].column(2)\r\n If Not IsNull(Me![|F03248].column(3)) Then Me![|F03259] = Me![|F03248].column(3)\r\n If Not IsNull(Me![|F03248].column(4)) Then Me![|F03251] = Me![|F03248].column(4)\r\n If Not IsNull(Me![|F03248].column(5)) Then Me![|F03260] = Me![|F03248].column(5)\r\nEnd Sub\r\nPrivate Sub >>|F03248<<_DblClick (Cancel As Integer)\r\nOn Error Goto Err_>>|F03248<<_DblClick\r\n Dim lngExerciseID As Long\r\n\r\n If IsNull(Me![|F03248]) Then\r\n Me![|F03248].Text = \"\"\r\n Else\r\n lngExerciseID = Me![|F03248]\r\n Me![|F03248] = Null\r\n End If\r\n DoCmd.OpenForm \"|P00253\", , , , , acDialog, \"GotoNew\"\r\n Me![|F03248].Requery\r\n if lngExerciseID<>0 then Me![|F03248] = lngExerciseID\r\n\r\nExit_>>|F03248<<_DblClick:\r\n Exit Sub\r\n\r\nErr_>>|F03248<<_DblClick:\r\n MsgBox Err.Description\r\n Resume Exit_>>|F03248<<_DblClick\r\nEnd Sub"
},
{
"ControlID": 2152,
"AddressType": 0,
"BlockID": 443,
"ControlType": 109,
"TableID": 394,
"FieldID": 3258,
"Order": 2,
"NoLabel": 0,
"TotalIt": 0,
"NumProps": 0
},
{
"ControlID": 2153,
"AddressType": 0,
"BlockID": 443,
"ControlType": 109,
"TableID": 394,
"FieldID": 3259,
"Order": 3,
"NoLabel": 0,
"TotalIt": 0,
"NumProps": 0
},
{
"ControlID": 2154,
"AddressType": 0,
"ControlCaption": "|S00442",
"BlockID": 443,
"ControlType": 111,
"TableID": 394,
"FieldID": 3251,
"Order": 4,
"NoLabel": 0,
"TotalIt": 0,
"NumProps": 0,
"Code": "Private Sub >>|F03251<<_NotInList(NewData As String, Response As Integer)\r\n MsgBox \"|S00249\"\r\n Response = acDataErrContinue\r\nEnd Sub\r\nPrivate Sub >>|F03251<<_DblClick (Cancel As Integer)\r\nOn Error Goto Err_>>|F03251<<_DblClick\r\n Dim lngUnitsID As Long\r\n\r\n If IsNull(Me![>>|F03251<<]) Then\r\n Me![|F03251].Text = \"\"\r\n Else\r\n lngUnitsID = Me![|F03251]\r\n Me![|F03251] = Null\r\n End If\r\n DoCmd.OpenForm \"|P00255\", , , , , acDialog, \"GotoNew\"\r\n Me![|F03251].Requery\r\n if lngUnitsID<>0 then Me![|F03251] = lngUnitsID\r\n\r\nExit_>>|F03251<<_DblClick:\r\n Exit Sub\r\n\r\nErr_>>|F03251<<_DblClick:\r\n MsgBox Err.Description\r\n Resume Exit_>>|F03251<<_DblClick\r\nEnd Sub"
},
{
"ControlID": 2155,
"AddressType": 0,
"BlockID": 443,
"ControlType": 109,
"TableID": 394,
"FieldID": 3260,
"Order": 5,
"NoLabel": 0,
"TotalIt": 0,
"NumProps": 0
},
{
"ControlID": 2157,
"AddressType": 0,
"BlockID": 444,
"ControlType": 109,
"TableID": 393,
"FieldID": 3195,
"Order": 2,
"NoLabel": 0,
"TotalIt": 0,
"NumProps": 0
},
{
"ControlID": 2158,
"AddressType": 0,
"ControlCaption": "|S00163",
"BlockID": 444,
"ControlType": 109,
"TableID": 393,
"FieldID": 3245,
"Order": 1,
"NoLabel": 0,
"TotalIt": 0,
"NumProps": 1
},
{
"ControlID": 2159,
"AddressType": 0,
"ControlName": "|S00726",
"ControlCaption": "|S00727",
"BlockID": 445,
"ControlType": 112,
"Order": 1,
"NoLabel": 0,
"TotalIt": 0,
"NumProps": 0,
"Width": 8200,
"Height": 1820,
"Code": "Private Sub >>|P00261<<_Enter()\r\n If isnull(Me.[|F03613]) then \r\n msgbox \"|S00245\"\r\n docmd.gotocontrol \"|F03245\"\r\n End If\r\nEnd Sub"
},
{
"ControlID": 2160,
"AddressType": 0,
"BlockID": 446,
"ControlType": 109,
"TableID": 396,
"FieldID": 3248,
"Order": 1,
"NoLabel": 0,
"TotalIt": 0,
"NumProps": 0
},
{
"ControlID": 2161,
"AddressType": 0,
"BlockID": 446,
"ControlType": 109,
"TableID": 396,
"FieldID": 3249,
"Order": 2,
"NoLabel": 0,
"TotalIt": 0,
"NumProps": 0
},
{
"ControlID": 2162,
"AddressType": 0,
"BlockID": 446,
"ControlType": 109,
"TableID": 396,
"FieldID": 3250,
"Order": 3,
"NoLabel": 0,
"TotalIt": 0,
"NumProps": 1
},
{
"ControlID": 2163,
"AddressType": 0,
"BlockID": 446,
"ControlType": 109,
"TableID": 396,
"FieldID": 3252,
"Order": 4,
"NoLabel": 0,
"TotalIt": 0,
"NumProps": 1
},
{
"ControlID": 2164,
"AddressType": 0,
"ControlCaption": "|S00442",
"BlockID": 446,
"ControlType": 111,
"TableID": 396,
"FieldID": 3251,
"Order": 5,
"NoLabel": 0,
"TotalIt": 0,
"NumProps": 0,
"Code": "Private Sub >>|F03251<<_NotInList(NewData As String, Response As Integer)\r\n MsgBox \"|S00249\"\r\n Response = acDataErrContinue\r\nEnd Sub\r\nPrivate Sub >>|F03251<<_DblClick (Cancel As Integer)\r\nOn Error Goto Err_>>|F03251<<_DblClick\r\n Dim lngUnitsID As Long\r\n\r\n If IsNull(Me![|F03251]) Then\r\n Me![|F03251].Text = \"\"\r\n Else\r\n lngUnitsID = Me![|F03251]\r\n Me![|F03251] = Null\r\n End If\r\n DoCmd.OpenForm \"|P00255\", , , , , acDialog, \"GotoNew\"\r\n Me![|F03251].Requery\r\n if lngUnitsID<>0 then Me![|F03251] = lngUnitsID\r\n\r\nExit_>>|F03251<<_DblClick:\r\n Exit Sub\r\n\r\nErr_>>|F03251<<_DblClick:\r\n MsgBox Err.Description\r\n Resume Exit_>>|F03251<<_DblClick\r\nEnd Sub"
},
{
"ControlID": 2165,
"AddressType": 0,
"ControlCaption": "|S00717",
"BlockID": 446,
"ControlType": 109,
"TableID": 396,
"FieldID": 3253,
"Order": 6,
"NoLabel": 0,
"TotalIt": 0,
"NumProps": 0
},
{
"ControlID": 2166,
"AddressType": 0,
"ControlCaption": "|S00716",
"BlockID": 446,
"ControlType": 109,
"TableID": 396,
"FieldID": 3254,
"Order": 7,
"NoLabel": 0,
"TotalIt": 0,
"NumProps": 0
},
{
"ControlID": 2167,
"AddressType": 0,
"ControlCaption": "|S00718",
"BlockID": 446,
"ControlType": 111,
"TableID": 396,
"FieldID": 3255,
"Order": 8,
"NoLabel": 0,
"TotalIt": 0,
"NumProps": 0,
"Code": "Private Sub >>|F03255<<_NotInList(NewData As String, Response As Integer)\r\n MsgBox \"|S00249\"\r\n Response = acDataErrContinue\r\nEnd Sub\r\nPrivate Sub >>|F03255<<_DblClick (Cancel As Integer)\r\nOn Error Goto Err_>>|F03255<<_DblClick\r\n Dim lngExerciseTypeID As Long\r\n\r\n If IsNull(Me![|F03255]) Then\r\n Me![|F03255].Text = \"\"\r\n Else\r\n lngExerciseTypeID = Me![|F03255]\r\n Me![|F03255] = Null\r\n End If\r\n DoCmd.OpenForm \"|P00254\", , , , , acDialog, \"GotoNew\"\r\n Me![|F03255].Requery\r\n if lngExerciseTypeID<>0 then Me![|F03255] = lngExerciseTypeID\r\n\r\nExit_>>|F03255<<_DblClick:\r\n Exit Sub\r\n\r\nErr_>>|F03255<<_DblClick:\r\n MsgBox Err.Description\r\n Resume Exit_>>|F03255<<_DblClick\r\nEnd Sub"
},
{
"ControlID": 2168,
"AddressType": 0,
"BlockID": 447,
"ControlType": 109,
"TableID": 397,
"FieldID": 3255,
"Order": 1,
"NoLabel": 0,
"TotalIt": 0,
"NumProps": 0
},
{
"ControlID": 2169,
"AddressType": 0,
"BlockID": 447,
"ControlType": 109,
"TableID": 397,
"FieldID": 2844,
"Order": 2,
"NoLabel": 0,
"TotalIt": 0,
"NumProps": 0
},
{
"ControlID": 2170,
"AddressType": 0,
"BlockID": 448,
"ControlType": 109,
"TableID": 395,
"FieldID": 3251,
"Order": 1,
"NoLabel": 0,
"TotalIt": 0,
"NumProps": 0
},
{
"ControlID": 2171,
"AddressType": 0,
"BlockID": 448,
"ControlType": 109,
"TableID": 395,
"FieldID": 2923,
"Order": 2,
"NoLabel": 0,
"TotalIt": 0,
"NumProps": 0
},
{
"ControlID": 2172,
"AddressType": 0,
"ControlName": "|S00719",
"ControlCaption": "|S00032",
"BlockID": 449,
"ControlType": 109,
"Order": 1,
"DataType": 8,
"NoLabel": 0,
"TotalIt": 0,
"NumProps": 1,
"Format": "Short Date"
},
{
"ControlID": 2173,
"AddressType": 0,
"ControlName": "|S00720",
"ControlCaption": "|S00033",
"BlockID": 449,
"ControlType": 109,
"Order": 2,
"DataType": 8,
"NoLabel": 0,
"TotalIt": 0,
"NumProps": 1,
"Format": "SHort Date"
},
{
"ControlID": 2174,
"AddressType": 0,
"ControlName": "|S00151",
"ControlCaption": "|S00311",
"BlockID": 450,
"ControlType": 104,
"Order": 1,
"NoLabel": 1,
"TotalIt": 0,
"NumProps": 1,
"Code": "Private Sub >>|C02174<<_Click()\r\n If isnull([|C02172]) or isnull([|C02173]) then \r\n msgbox \"|S00248\"\r\n docmd.gotocontrol \"|C02172\"\r\n Else\r\n If [|C02172] > [|C02173] Then\r\n MsgBox \"|S00287\"\r\n DoCmd.GoToControl \"|C02172\"\r\n Else\r\n Me.Visible = False\r\n End If\r\n End If\r\nEnd Sub"
"Code": "Private Sub >>|C02207<<_DblClick (Cancel As Integer)\r\n |S00116\r\nEnd Sub"
},
{
"ControlID": 2208,
"AddressType": 0,
"ControlCaption": "|S00313",
"BlockID": 88,
"ControlType": 109,
"TableID": 192,
"FieldID": 3102,
"Order": 5,
"NoLabel": 0,
"TotalIt": 0,
"NumProps": 0
},
{
"ControlID": 2209,
"AddressType": 0,
"ControlName": "|S00619",
"BlockID": 463,
"ControlType": 112,
"Order": 1,
"NoLabel": 1,
"TotalIt": 0,
"NumProps": 0,
"Width": 8200,
"Height": 1135
},
{
"ControlID": 2210,
"AddressType": 0,
"ControlCaption": "|S00599",
"BlockID": 464,
"ControlType": 111,
"TableID": 399,
"FieldID": 3268,
"Order": 1,
"NoLabel": 0,
"TotalIt": 0,
"NumProps": 0,
"Code": "Private Sub >>|F03268<<_NotInList(NewData As String, Response As Integer)\r\n MsgBox \"|S00249\"\r\n Response = acDataErrContinue\r\nEnd Sub\r\nPrivate Sub >>|F03268<<_AfterUpdate ()\r\n Me![|F02149] = Me![|F03268].column(2)\r\nEnd Sub\r\nPrivate Sub >>|F03268<<_DblClick (Cancel As Integer)\r\nOn Error Goto Err_>>|F03268<<_DblClick\r\n Dim lngPartID As Long\r\n\r\n If IsNull(Me![|F03268]) Then\r\n Me![|F03268].Text = \"\"\r\n Else\r\n lngPartID = Me![|F03268]\r\n Me![|F03268] = Null\r\n End If\r\n DoCmd.OpenForm \"|P00262\", , , , , acDialog, \"GotoNew\"\r\n Me![|F03268].Requery\r\n if lngPartID<>0 then Me![|F03268] = lngPartID\r\n\r\nExit_>>|F03268<<_DblClick:\r\n Exit Sub\r\n\r\nErr_>>|F03268<<_DblClick:\r\n MsgBox Err.Description\r\n Resume Exit_>>|F03268<<_DblClick\r\nEnd Sub"
},
{
"ControlID": 2211,
"AddressType": 0,
"BlockID": 464,
"ControlType": 109,
"TableID": 399,
"FieldID": 324,
"Order": 2,
"NoLabel": 0,
"TotalIt": 0,
"NumProps": 1
},
{
"ControlID": 2212,
"AddressType": 0,
"BlockID": 464,
"ControlType": 109,
"TableID": 399,
"FieldID": 2149,
"Order": 3,
"NoLabel": 0,
"TotalIt": 0,
"NumProps": 1
},
{
"ControlID": 2213,
"AddressType": 0,
"ControlName": "|S00025",
"BlockID": 465,
"ControlType": 109,
"Expression": "=sum([|F00324]*[|F02149])",
"Order": 1,
"DataType": 5,
"NoLabel": 0,
"TotalIt": 0,
"NumProps": 1
},
{
"ControlID": 2214,
"AddressType": 0,
"ControlCaption": "|S00034",
"BlockID": 466,
"ControlType": 111,
"TableID": 400,
"FieldID": 1122,
"Order": 1,
"NoLabel": 0,
"TotalIt": 0,
"NumProps": 0,
"Code": "Private Sub >>|F01122<<_NotInList(NewData As String, Response As Integer)\r\n MsgBox \"|S00249\"\r\n Response = acDataErrContinue\r\nEnd Sub\r\nPrivate Sub >>|F01122<<_AfterUpdate ()\r\n Me![|F03273] = Me![|F01122].column(2)\r\nEnd Sub\r\nPrivate Sub >>|F01122<<_DblClick (Cancel As Integer)\r\nOn Error Goto Err_>>|F01122<<_DblClick\r\n Dim lngEmployeeID As Long\r\n\r\n If IsNull(Me![|F01122]) Then\r\n Me![|F01122].Text = \"\"\r\n Else\r\n lngEmployeeID = Me![|F01122]\r\n Me![|F01122] = Null\r\n End If\r\n DoCmd.OpenForm \"|P00281\", , , , , acDialog, \"GotoNew\"\r\n Me![|F01122].Requery\r\n if lngEmployeeID<>0 then Me![|F01122] = lngEmployeeID\r\n\r\nExit_>>|F01122<<_DblClick:\r\n Exit Sub\r\n\r\nErr_>>|F01122<<_DblClick:\r\n MsgBox Err.Description\r\n Resume Exit_>>|F01122<<_DblClick\r\nEnd Sub"
},
{
"ControlID": 2215,
"AddressType": 0,
"BlockID": 466,
"ControlType": 109,
"TableID": 400,
"FieldID": 2304,
"Order": 2,
"NoLabel": 0,
"TotalIt": 0,
"NumProps": 1
},
{
"ControlID": 2216,
"AddressType": 0,
"BlockID": 466,
"ControlType": 109,
"TableID": 400,
"FieldID": 3273,
"Order": 3,
"NoLabel": 0,
"TotalIt": 0,
"NumProps": 1
},
{
"ControlID": 2217,
"AddressType": 0,
"BlockID": 466,
"ControlType": 109,
"TableID": 400,
"FieldID": 3215,
"Order": 4,
"NoLabel": 0,
"TotalIt": 0,
"NumProps": 0
},
{
"ControlID": 2218,
"AddressType": 0,
"ControlName": "|S00026",
"BlockID": 467,
"ControlType": 109,
"Expression": "=sum([|F02304]*[|F03273])",
"Order": 1,
"DataType": 5,
"NoLabel": 0,
"TotalIt": 0,
"NumProps": 1
},
{
"ControlID": 2219,
"AddressType": 0,
"BlockID": 468,
"ControlType": 109,
"TableID": 401,
"FieldID": 3268,
"Order": 1,
"NoLabel": 0,
"TotalIt": 0,
"NumProps": 0
},
{
"ControlID": 2220,
"AddressType": 0,
"BlockID": 468,
"ControlType": 109,
"TableID": 401,
"FieldID": 3269,
"Order": 2,
"NoLabel": 0,
"TotalIt": 0,
"NumProps": 0
},
{
"ControlID": 2221,
"AddressType": 0,
"BlockID": 468,
"ControlType": 109,
"TableID": 401,
"FieldID": 2149,
"Order": 3,
"NoLabel": 0,
"TotalIt": 0,
"NumProps": 1
},
{
"ControlID": 2222,
"AddressType": 0,
"BlockID": 468,
"ControlType": 109,
"TableID": 401,
"FieldID": 3274,
"Order": 4,
"NoLabel": 0,
"TotalIt": 0,
"NumProps": 0
},
{
"ControlID": 2223,
"AddressType": 0,
"ControlCaption": "|S00375",
"BlockID": 469,
"ControlType": 109,
"TableID": 343,
"FieldID": 3025,
"Order": 1,
"NoLabel": 0,
"TotalIt": 0,
"NumProps": 0
},
{
"ControlID": 2224,
"AddressType": 0,
"BlockID": 469,
"ControlType": 109,
"TableID": 343,
"FieldID": 2231,
"Order": 2,
"NoLabel": 0,
"TotalIt": 0,
"NumProps": 0
},
{
"ControlID": 2225,
"AddressType": 0,
"BlockID": 469,
"ControlType": 106,
"TableID": 343,
"FieldID": 3087,
"Order": 3,
"NoLabel": 0,
"TotalIt": 0,
"NumProps": 0
},
{
"ControlID": 2226,
"AddressType": 0,
"BlockID": 470,
"ControlType": 109,
"TableID": 193,
"FieldID": 3262,
"Order": 1,
"NoLabel": 0,
"TotalIt": 0,
"NumProps": 1
},
{
"ControlID": 2227,
"AddressType": 0,
"ControlCaption": "|S00378",
"BlockID": 470,
"ControlType": 111,
"TableID": 193,
"FieldID": 3025,
"Order": 2,
"NoLabel": 0,
"TotalIt": 0,
"NumProps": 0,
"Code": "Private Sub >>|F03025<<_NotInList(NewData As String, Response As Integer)\r\n MsgBox \"|S00249\"\r\n Response = acDataErrContinue\r\nEnd Sub\r\nPrivate Sub >>|F03025<<_AfterUpdate ()\r\nOn Error Goto Err_>>|F03025<<_AfterUpdate\r\n If Not IsNull(Me![|F03025]) then\r\n If Me![|F03025].column(2) = True Then \r\n Me![|F02268] = [Forms]![|P00070]![|F03101] & \" \" & [Forms]![|P00070]![|F03102]\r\n End If\r\n End If \r\n\r\nExit_>>|F03025<<_AfterUpdate:\r\n Exit Sub\r\n\r\nErr_>>|F03025<<_AfterUpdate:\r\n MsgBox Err.Description\r\n Resume Exit_>>|F03025<<_AfterUpdate\r\nEnd Sub\r\nPrivate Sub >>|F03025<<_DblClick (Cancel As Integer)\r\nOn Error Goto Err_>>|F03025<<_DblClick\r\n Dim lngPaymentMethodID As Long\r\n\r\n If IsNull(Me![|F03025]) Then\r\n Me![|F03025].Text = \"\"\r\n Else\r\n lngPaymentMethodID = Me![|F03025]\r\n Me![|F03025] = Null\r\n End If\r\n DoCmd.OpenForm \"|P00263\", , , , , acDialog, \"GotoNew\"\r\n Me![|F03025].Requery\r\n if lngPaymentMethodID<>0 then Me![|F03025] = lngPaymentMethodID\r\n\r\nExit_>>|F03025<<_DblClick:\r\n Exit Sub\r\n\r\nErr_>>|F03025<<_DblClick:\r\n MsgBox Err.Description\r\n Resume Exit_>>|F03025<<_DblClick\r\nEnd Sub"
},
{
"ControlID": 2228,
"AddressType": 0,
"BlockID": 470,
"ControlType": 109,
"TableID": 193,
"FieldID": 1176,
"Order": 3,
"NoLabel": 0,
"TotalIt": 0,
"NumProps": 0
},
{
"ControlID": 2229,
"AddressType": 0,
"BlockID": 470,
"ControlType": 109,
"TableID": 193,
"FieldID": 2271,
"Order": 4,
"NoLabel": 0,
"TotalIt": 0,
"NumProps": 0
},
{
"ControlID": 2230,
"AddressType": 0,
"BlockID": 470,
"ControlType": 109,
"TableID": 193,
"FieldID": 2268,
"Order": 5,
"NoLabel": 0,
"TotalIt": 0,
"NumProps": 0
},
{
"ControlID": 2231,
"AddressType": 0,
"BlockID": 470,
"ControlType": 109,
"TableID": 193,
"FieldID": 2270,
"Order": 6,
"NoLabel": 0,
"TotalIt": 0,
"NumProps": 0
},
{
"ControlID": 2232,
"AddressType": 0,
"BlockID": 470,
"ControlType": 109,
"TableID": 193,
"FieldID": 2269,
"Order": 7,
"NoLabel": 0,
"TotalIt": 0,
"NumProps": 0
},
{
"ControlID": 2233,
"AddressType": 0,
"BlockID": 470,
"ControlType": 109,
"TableID": 193,
"FieldID": 3086,
"Order": 8,
"NoLabel": 0,
"TotalIt": 0,
"NumProps": 0
},
{
"ControlID": 2234,
"AddressType": 0,
"ControlName": "|S00027",
"BlockID": 471,
"ControlType": 109,
"Order": 1,
"NoLabel": 0,
"TotalIt": 0,
"NumProps": 3
},
{
"ControlID": 2235,
"AddressType": 0,
"ControlName": "|S00028",
"BlockID": 471,
"ControlType": 109,
"Order": 2,
"DataType": 8,
"NoLabel": 0,
"TotalIt": 0,
"NumProps": 3
},
{
"ControlID": 2236,
"AddressType": 0,
"ControlName": "|S00029",
"BlockID": 471,
"ControlType": 109,
"Order": 3,
"DataType": 5,
"NoLabel": 0,
"TotalIt": 0,
"NumProps": 4,
"Format": "Currency"
},
{
"ControlID": 2237,
"AddressType": 0,
"ControlName": "|S00373",
"BlockID": 471,
"ControlType": 109,
"Order": 4,
"DataType": 10,
"NoLabel": 0,
"TotalIt": 0,
"NumProps": 1,
"Width": 3500,
"Height": -3
},
{
"ControlID": 2238,
"AddressType": 0,
"ControlName": "|S00031",
"BlockID": 471,
"ControlType": 109,
"Order": 5,
"DataType": 10,
"NoLabel": 0,
"TotalIt": 0,
"NumProps": 1,
"Width": 3500,
"Height": -1
},
{
"ControlID": 2239,
"AddressType": 0,
"ControlName": "|S00526",
"BlockID": 472,
"ControlType": 104,
"Order": 1,
"NoLabel": 1,
"TotalIt": 0,
"NumProps": 1,
"Width": 1000,
"Code": "Private Sub >>|C02239<<_Click()\r\n Me.visible = False\r\nEnd Sub"
},
{
"ControlID": 2240,
"AddressType": 0,
"ControlName": "|S00032",
"BlockID": 473,
"ControlType": 109,
"Order": 1,
"DataType": 8,
"NoLabel": 0,
"TotalIt": 0,
"NumProps": 1,
"Format": "Short Date"
},
{
"ControlID": 2241,
"AddressType": 0,
"ControlName": "|S00033",
"BlockID": 473,
"ControlType": 109,
"Order": 2,
"DataType": 8,
"NoLabel": 0,
"TotalIt": 0,
"NumProps": 1,
"Format": "Short Date"
},
{
"ControlID": 2242,
"AddressType": 0,
"ControlName": "|S00151",
"ControlCaption": "|S00311",
"BlockID": 474,
"ControlType": 104,
"Order": 1,
"NoLabel": 1,
"TotalIt": 0,
"NumProps": 1,
"Code": "Private Sub >>|C02242<<_Click()\r\n If isnull([|C02240]) or isnull([|C02241]) then \r\n msgbox \"|S00248\"\r\n docmd.gotocontrol \"|C02240\"\r\n Else\r\n If [|C02240] > [|C02241] Then\r\n MsgBox \"|S00287\"\r\n DoCmd.GoToControl \"|C02240\"\r\n Else\r\n Me.Visible = False\r\n End If\r\n End If\r\nEnd Sub"
"Expression": "=DCount(\"[|F03262]\",\"|T00398\",\"(([|T00398].[|F03271]>=[Forms]![|P00266]![|S00032] And [|T00398].[|F03271]<=[Forms]![|P00266]![|S00033]))\")",
"Order": 1,
"DataType": 6,
"NoLabel": 0,
"TotalIt": 0,
"NumProps": 2,
"Width": 1440
},
{
"ControlID": 2296,
"AddressType": 0,
"ControlName": "|S00612",
"ControlCaption": "|S00613",
"BlockID": 484,
"ControlType": 109,
"Expression": "=DCount(\"[|F03262]\",\"|T00398\",\"(([|T00398].[|F03263]>=[Forms]![|P00266]![|S00032] And [|T00398].[|F03263]<=[Forms]![|P00266]![|S00033]))\")",
"Order": 2,
"DataType": 6,
"NoLabel": 0,
"TotalIt": 0,
"NumProps": 2,
"Width": 1440
},
{
"ControlID": 2297,
"AddressType": 0,
"ControlName": "|S00602",
"ControlCaption": "|S00603",
"BlockID": 484,
"ControlType": 109,
"Expression": "=DAvg(\"[|F03263]-[|F03271]\",\"|T00398\",\"(([|T00398].[|F03263]>=[Forms]![|P00266]![|S00032] And [|T00398].[|F03263]<=[Forms]![|P00266]![|S00033]))\")",
"Order": 3,
"DataType": 6,
"NoLabel": 0,
"TotalIt": 0,
"NumProps": 2,
"Width": 1440,
"Format": "Fixed"
},
{
"ControlID": 2298,
"AddressType": 0,
"ControlName": "|S00604",
"ControlCaption": "|S00605",
"BlockID": 484,
"ControlType": 109,
"Expression": "|S00036",
"Order": 4,
"DataType": 5,
"NoLabel": 0,
"TotalIt": 0,
"NumProps": 2,
"Width": 1440,
"Format": "Currency"
},
{
"ControlID": 2299,
"AddressType": 0,
"ControlName": "|S00608",
"ControlCaption": "|S00606",
"BlockID": 486,
"ControlType": 109,
"Expression": "=DCount(\"[|F03262]\",\"|T00398\",\"(([|T00398].[|F03263] Is Null))\")",
"Order": 1,
"DataType": 3,
"NoLabel": 0,
"TotalIt": 0,
"NumProps": 1,
"Width": 1440
},
{
"ControlID": 2300,
"AddressType": 0,
"ControlName": "|S00609",
"ControlCaption": "|S00607",
"BlockID": 486,
"ControlType": 109,
"Expression": "=DCount(\"[|F03262]\",\"|T00398\",\"(([|T00398].[|F03263] Is Not Null) AND ([|T00398].[|F03265] Is Null))\")",
"Order": 2,
"DataType": 3,
"NoLabel": 0,
"TotalIt": 0,
"NumProps": 1,
"Width": 1440
},
{
"ControlID": 2301,
"AddressType": 0,
"ControlName": "|S00610",
"ControlCaption": "|S00611",
"BlockID": 485,
"ControlType": 100,
"Order": 1,
"DataType": 10,
"NoLabel": 0,
"TotalIt": 0,
"NumProps": 0
},
{
"ControlID": 2313,
"AddressType": 0,
"ControlName": "|S00620",
"ControlCaption": "|S00621",
"BlockID": 489,
"ControlType": 104,
"Order": 1,
"NoLabel": 1,
"TotalIt": 0,
"NumProps": 0,
"Code": "Private Sub >>|C02313<<_Click()\r\nOn Error Goto Err_>>|C02313<<_Click\r\n If IsNull([|F01579]) Then\r\n MsgBox \"|S00124\"\r\n Else\r\n DoCmd.DoMenuItem acFormBar, acRecordsMenu, acSaveRecord, , acMenuVer70\r\n DoCmd.OpenForm \"|P00072\"\r\n End If\r\n\r\nExit_>>|C02313<<_Click:\r\n Exit Sub\r\n\r\nErr_>>|C02313<<_Click:\r\n MsgBox Err.Description\r\n Resume Exit_>>|C02313<<_Click\r\nEnd Sub"
"Code": "Private Sub >>|P00283<<_Enter()\r\n If IsNull(Me![|C02394].Form![|F02977]) Then\r\n MsgBox \"|S00772\"\r\n DoCmd.GoToControl \"[|C02394]\"\r\n End If\r\nEnd Sub"
"Code": "Private Sub >>|C02397<<_Click()\r\nOn Error GoTo Err_>>|C02397<<_Click\r\n if isnull([|C02394].Form![|F02977]) then \r\n DoCmd.OpenReport \"|P00031\", acPreview\r\n Else\r\n DoCmd.OpenReport \"|P00031\", acPreview, , \"[|F02977]=\" & [|C02394].Form![|F02977]\r\n End If\r\n\r\nExit_>>|C02397<<_Click:\r\n Exit Sub\r\n\r\nErr_>>|C02397<<_Click:\r\n if err<>2501 then\r\n MsgBox Err.Description\r\n end if\r\n Resume Exit_>>|C02397<<_Click\r\n End Sub"
},
{
"ControlID": 2398,
"AddressType": 0,
"ControlName": "|S00570",
"BlockID": 508,
"ControlType": 109,
"Order": 4,
"DataType": 4,
"NoLabel": 0,
"TotalIt": 0,
"NumProps": 1
},
{
"ControlID": 2399,
"AddressType": 0,
"ControlName": "|F02977",
"ControlCaption": "|S00554:",
"BlockID": 509,
"ControlType": 111,
"Order": 1,
"NoLabel": 0,
"TotalIt": 0,
"NumProps": 6,
"Code": "Private Sub >>|F02977<<_AfterUpdate()\r\n If Not IsNull([|F02977]) Then\r\n Me![|C02411].Enabled = True\r\n Else\r\n Me![|C02411].Enabled = False\r\n End If\r\nEnd Sub"
},
{
"ControlID": 2400,
"AddressType": 0,
"ControlName": "|S00455",
"ControlCaption": "|S00560",
"BlockID": 509,
"ControlType": 109,
"Order": 3,
"DataType": 8,
"NoLabel": 0,
"TotalIt": 0,
"NumProps": 2,
"Format": "Short Date"
},
{
"ControlID": 2401,
"AddressType": 0,
"ControlName": "|S00558",
"ControlCaption": "|S00559",
"BlockID": 509,
"ControlType": 111,
"Order": 4,
"DataType": 8,
"NoLabel": 0,
"TotalIt": 0,
"NumProps": 3
},
{
"ControlID": 2402,
"AddressType": 0,
"ControlName": "|S00551",
"ControlCaption": "|S00543:",
"BlockID": 509,
"ControlType": 111,
"Order": 5,
"DataType": 8,
"NoLabel": 0,
"TotalIt": 0,
"NumProps": 3
},
{
"ControlID": 2403,
"AddressType": 0,
"ControlName": "|S00556",
"ControlCaption": "|S00557",
"BlockID": 509,
"ControlType": 111,
"Order": 6,
"DataType": 10,
"NoLabel": 0,
"TotalIt": 0,
"NumProps": 5
},
{
"ControlID": 2404,
"AddressType": 0,
"ControlName": "|S00561",
"ControlCaption": "|S00561",
"BlockID": 510,
"ControlType": 106,
"Order": 1,
"DataType": 10,
"NoLabel": 0,
"TotalIt": 0,
"NumProps": 1
},
{
"ControlID": 2405,
"AddressType": 0,
"ControlName": "|S00555",
"ControlCaption": "|S00555",
"BlockID": 510,
"ControlType": 106,
"Order": 2,
"DataType": 10,
"NoLabel": 0,
"TotalIt": 0,
"NumProps": 1
},
{
"ControlID": 2406,
"AddressType": 0,
"ControlName": "|S00547",
"ControlCaption": "|S00547",
"BlockID": 510,
"ControlType": 106,
"Order": 3,
"DataType": 10,
"NoLabel": 0,
"TotalIt": 0,
"NumProps": 1
},
{
"ControlID": 2407,
"AddressType": 0,
"ControlName": "|S00550",
"ControlCaption": "|S00550",
"BlockID": 510,
"ControlType": 106,
"Order": 4,
"DataType": 10,
"NoLabel": 0,
"TotalIt": 0,
"NumProps": 1
},
{
"ControlID": 2408,
"AddressType": 0,
"ControlName": "|S00549",
"ControlCaption": "|S00549",
"BlockID": 510,
"ControlType": 106,
"Order": 5,
"DataType": 10,
"NoLabel": 0,
"TotalIt": 0,
"NumProps": 1
},
{
"ControlID": 2409,
"AddressType": 0,
"ControlName": "|S00548",
"ControlCaption": "|S00548",
"BlockID": 510,
"ControlType": 106,
"Order": 6,
"DataType": 10,
"NoLabel": 0,
"TotalIt": 0,
"NumProps": 1
},
{
"ControlID": 2410,
"AddressType": 0,
"ControlName": "|S00544",
"ControlCaption": "|S00544",
"BlockID": 510,
"ControlType": 106,
"Order": 7,
"DataType": 10,
"NoLabel": 0,
"TotalIt": 0,
"NumProps": 1
},
{
"ControlID": 2411,
"AddressType": 0,
"ControlName": "|S00526",
"ControlCaption": "|S00546",
"BlockID": 511,
"ControlType": 104,
"Order": 1,
"NoLabel": 1,
"TotalIt": 0,
"NumProps": 2,
"Width": 1000,
"Code": "Private Sub >>|C02411<<_Click()\r\nOn Error GoTo >>|C02411<<_Click_Error\r\n\r\n Dim dbl30Minutes As Double\r\n Dim dblTimeIncr As Double\r\n Dim dblCurrentTime As Double\r\n Dim dblBeginTime As Double\r\n Dim dblEndTime As Double\r\n \r\n Dim intCurrentTime As Integer 'used to test times in aTimeSlots array\r\n Dim intBeginTime As Integer\r\n Dim intEndTime As Integer\r\n \r\n Dim dblCurrentDate As Date\r\n Dim dblBeginDate As Date\r\n Dim dblEndDate As Date\r\n \r\n Dim fSkipDay As Boolean 'flags used to track various states\r\n Dim fSkipTime As Boolean\r\n Dim fPreviousRecs As Boolean\r\n \r\n Dim lngResourceID As Long\r\n Dim lngScheduleId As Long\r\n Dim strCriteria As String\r\n\r\n If IsNull(Me![|C02401]) or IsNull(Me![|C02402]) Then\r\n MsgBox \"|S00246\"\r\n DoCmd.GoToControl \"|C02401\"\r\n Exit Sub\r\n End If\r\n\r\n If Me![|C02401].ListIndex >= Me![|C02402].ListIndex Then\r\n MsgBox \"|S00788\"\r\n DoCmd.GoToControl \"|C02401\"\r\n Exit Sub\r\n End If\r\n\r\n If Me![|C02654]>Me![|C02400] Then\r\n MsgBox \"|S00787\"\r\n DoCmd.GoToControl \"|C02401\"\r\n Exit Sub\r\n End If\r\n\r\n DoCmd.Hourglass True\r\n lngResourceID = Me![|F02977]\r\n dbl30Minutes = TimeSerial(2, 30, 0) - TimeSerial(2, 0, 0)\r\n dblBeginTime = Me![|C02401].listindex * dbl30Minutes\r\n dblEndTime = Me![|C02402].listindex * dbl30Minutes\r\n dblTimeIncr = dbl30Minutes * Me![|C02403].Column(0) 'column 0 contains the number of 30 minute time segments in the time increment\r\n \r\n Set dbs = CurrentDb()\r\n Set rstSchedule = dbs.openrecordset(\"|T00332\", dbOpenDynaset)\r\n Set rstScheduleDtl = dbs.openrecordset(\"|T00403\")\r\n \r\n dblBeginDate = Me![|C02654]\r\n dblEndDate = Me![|C02400]\r\n dblCurrentDate = dblBeginDate\r\n \r\n While dblCurrentDate <= dblEndDate\r\n If (Not SkipThisDay(DatePart(\"w\", dblCurrentDate))) Then\r\n rstSchedule.FindFirst \"[|F02977]=\" & Me![|F02977] & \" AND [|F03276]= #\" & format(dblCurrentDate,\"m-d-yy\") & \"#\"\r\n If rstSchedule.nomatch Then\r\n rstSchedule.AddNew\r\n rstSchedule![|F02977] = lngResourceID\r\n rstSchedule![|F03276] = dblCurrentDate\r\n lngScheduleId = rstSchedule![|F02981]\r\n rstSchedule.update\r\n fPreviousRecs = False\r\n Else\r\n lngScheduleId = rstSchedule![|F02981]\r\n End If\r\n fPreviousRecs = isPreviousRecs(lngResourceId, dblCurrentDate) 'sets flag and loads atimeSlots array if applicable\r\n \r\n dblCurrentTime = dblBeginTime\r\n intCurrentTime = Me![|C02401].listindex + 48\r\n intBeginTime = intCurrentTime\r\n intEndTime = intBeginTime + Me![|C02403].Column(0)\r\n Do\r\n fSkipTime = False\r\n If fPreviousRecs Then\r\n If isOverlap(intBeginTime, intEndTime) Then\r\n fSkipTime = True\r\n End If\r\n intBeginTime = intBeginTime + Me![|C02403].Column(0)\r\n intEndTime = intBeginTime + Me![|C02403].Column(0)\r\n End If\r\n If fSkipTime = False Then\r\n rstScheduleDtl.AddNew\r\n rstScheduleDtl![|F02981] = lngScheduleId\r\n rstScheduleDtl![|F03278] = format(dblCurrentTime, \"hh:mm AMPM\")\r\n rstScheduleDtl![|F03279] = format(dblCurrentTime + dblTimeIncr, \"hh:mm AMPM\")\r\n rstScheduleDtl.update\r\n End If\r\n dblCurrentTime = dblCurrentTime + dblTimeIncr\r\n Loop Until (dblCurrentTime + dblTimeIncr) > (dblEndTime+.01) 'the .01 adds a few minutes to deal with small number precision issues\r\n End If\r\n dblCurrentDate = dblCurrentDate + 1\r\n Wend\r\n\r\n DoCmd.Close acForm, \"|P00284\"\r\n rstSchedule.Close\r\n rstScheduleDtl.Close\r\n dbs.Close\r\n\r\n>>|C02411<<_Click_Exit:\r\n DoCmd.Hourglass False\r\n Exit Sub\r\n\r\n>>|C02411<<_Click_Error:\r\n MsgBox Err.Description\r\n Resume >>|C02411<<_Click_Exit\r\nEnd Sub"
},
{
"ControlID": 2412,
"AddressType": 0,
"ControlName": "|S00523",
"ControlCaption": "|S00545",
"BlockID": 511,
"ControlType": 104,
"Order": 2,
"NoLabel": 1,
"TotalIt": 0,
"NumProps": 1,
"Width": 1000,
"Code": "Private Sub >>|C02412<<_Click()\r\n DoCmd.Close acForm, \"|P00284\"\r\nEnd Sub"
},
{
"ControlID": 2413,
"AddressType": 0,
"ControlName": "|S00032",
"ControlCaption": "|S00032:",
"BlockID": 512,
"ControlType": 109,
"Order": 1,
"DataType": 8,
"NoLabel": 0,
"TotalIt": 0,
"NumProps": 1,
"Format": "short date"
},
{
"ControlID": 2414,
"AddressType": 0,
"ControlName": "|S00033",
"ControlCaption": "|S00033:",
"BlockID": 512,
"ControlType": 109,
"Order": 2,
"DataType": 8,
"NoLabel": 0,
"TotalIt": 0,
"NumProps": 1,
"Format": "short date"
},
{
"ControlID": 2415,
"AddressType": 0,
"ControlName": "|S00151",
"ControlCaption": "|S00311",
"BlockID": 513,
"ControlType": 104,
"Order": 1,
"NoLabel": 1,
"TotalIt": 0,
"NumProps": 1,
"Code": "Private Sub >>|C02415<<_Click()\r\n If isnull([|C02413]) or isnull([|C02414]) then \r\n msgbox \"|S00248\"\r\n docmd.gotocontrol \"|C02413\"\r\n Else\r\n If [|C02413] > [|C02414] Then\r\n MsgBox \"|S00287\"\r\n DoCmd.GoToControl \"|C02413\"\r\n Else\r\n Me.Visible = False\r\n End If\r\n End If\r\nEnd Sub"
"Code": "Private Sub >>|F01122<<_NotInList(NewData As String, Response As Integer)\r\n MsgBox \"|S00249\"\r\n Response = acDataErrContinue\r\nEnd Sub\r\nPrivate Sub >>|F01122<<_DblClick (Cancel As Integer)\r\nOn Error Goto Err_>>|F01122<<_DblClick\r\n Dim lngEmployeeID As Long\r\n\r\n If IsNull(Me![|F01122]) Then\r\n Me![|F01122].Text = \"\"\r\n Else\r\n lngEmployeeID = Me![|F01122]\r\n Me![|F01122] = Null\r\n End If\r\n DoCmd.OpenForm \"|P00291\", , , , , acDialog, \"GotoNew\"\r\n Me![|F01122].Requery\r\n if lngEmployeeID<>0 then Me![|F01122] = lngEmployeeID\r\n\r\nExit_>>|F01122<<_DblClick:\r\n Exit Sub\r\n\r\nErr_>>|F01122<<_DblClick:\r\n MsgBox Err.Description\r\n Resume Exit_>>|F01122<<_DblClick\r\nEnd Sub\r\n\r\nPrivate Sub >>|F01122<<_Click ()\r\n Me![|P00314].requery\r\nEnd Sub"
},
{
"ControlID": 2515,
"AddressType": 0,
"BlockID": 539,
"ControlType": 109,
"TableID": 410,
"FieldID": 3195,
"Order": 2,
"NoLabel": 0,
"TotalIt": 0,
"NumProps": 1
},
{
"ControlID": 2516,
"AddressType": 0,
"ControlName": "|S00689",
"ControlCaption": "|S00690",
"BlockID": 540,
"ControlType": 112,
"Order": 1,
"NoLabel": 0,
"TotalIt": 0,
"NumProps": 0,
"Width": 8500,
"Height": 1360,
"Code": "Private Sub >>|P00314<<_Enter()\r\n If IsNull(Me![|F01122]) Then\r\n MsgBox \"|S00771\"\r\n docmd.GotoControl \"|F01122\"\r\n End If\r\nEnd Sub"
},
{
"ControlID": 2517,
"AddressType": 0,
"ControlName": "|S00685",
"ControlCaption": "|S00671",
"BlockID": 540,
"ControlType": 112,
"Order": 2,
"NoLabel": 0,
"TotalIt": 0,
"NumProps": 0,
"Width": 8500,
"Height": 1360,
"Code": "Private Sub >>|P00315<<_Enter()\r\n If IsNull(Me![|F01122]) Then\r\n MsgBox \"|S00771\"\r\n docmd.GotoControl \"|F01122\"\r\n End If\r\nEnd Sub"
},
{
"ControlID": 2518,
"AddressType": 0,
"BlockID": 542,
"ControlType": 109,
"TableID": 409,
"FieldID": 3298,
"Order": 1,
"NoLabel": 0,
"TotalIt": 0,
"NumProps": 0
},
{
"ControlID": 2519,
"AddressType": 0,
"ControlCaption": "|S00667",
"BlockID": 542,
"ControlType": 111,
"TableID": 409,
"FieldID": 2862,
"Order": 2,
"NoLabel": 0,
"TotalIt": 0,
"NumProps": 0,
"Code": "Private Sub >>|F02862<<_NotInList(NewData As String, Response As Integer)\r\n MsgBox \"|S00760\"\r\n Response = acDataErrContinue\r\nEnd Sub"
},
{
"ControlID": 2520,
"AddressType": 0,
"BlockID": 542,
"ControlType": 109,
"TableID": 409,
"FieldID": 3299,
"Order": 6,
"NoLabel": 0,
"TotalIt": 0,
"NumProps": 0
},
{
"ControlID": 2521,
"AddressType": 0,
"BlockID": 542,
"ControlType": 109,
"TableID": 409,
"FieldID": 3273,
"Order": 4,
"NoLabel": 0,
"TotalIt": 0,
"NumProps": 1
},
{
"ControlID": 2522,
"AddressType": 0,
"BlockID": 542,
"ControlType": 109,
"TableID": 409,
"FieldID": 2304,
"Order": 5,
"NoLabel": 0,
"TotalIt": 0,
"NumProps": 0
},
{
"ControlID": 2523,
"AddressType": 0,
"ControlCaption": "|S00684",
"BlockID": 542,
"ControlType": 111,
"TableID": 409,
"FieldID": 3295,
"Order": 3,
"NoLabel": 0,
"TotalIt": 0,
"NumProps": 0,
"Code": "Private Sub >>|F03295<<_NotInList(NewData As String, Response As Integer)\r\n MsgBox \"|S00249\"\r\n Response = acDataErrContinue\r\nEnd Sub\r\nPrivate Sub >>|F03295<<_DblClick (Cancel As Integer)\r\nOn Error Goto Err_>>|F03295<<_DblClick\r\n Dim lngWorkCodeID As Long\r\n\r\n If IsNull(Me![|F03295]) Then\r\n Me![|F03295].Text = \"\"\r\n Else\r\n lngWorkCodeID = Me![|F03295]\r\n Me![|F03295] = Null\r\n End If\r\n DoCmd.OpenForm \"|P00297\", , , , , acDialog, \"GotoNew\"\r\n Me![|F03295].Requery\r\n if lngWorkCodeID<>0 then Me![|F03295] = lngWorkCodeID\r\n\r\nExit_>>|F03295<<_DblClick:\r\n Exit Sub\r\n\r\nErr_>>|F03295<<_DblClick:\r\n MsgBox Err.Description\r\n Resume Exit_>>|F03295<<_DblClick\r\nEnd Sub"
},
{
"ControlID": 2524,
"AddressType": 0,
"ControlName": "|S00680",
"BlockID": 543,
"ControlType": 109,
"Expression": "=sum([|F02304])",
"Order": 1,
"DataType": 6,
"NoLabel": 0,
"TotalIt": 0,
"NumProps": 0
},
{
"ControlID": 2525,
"AddressType": 0,
"ControlCaption": "|S00289",
"BlockID": 544,
"ControlType": 109,
"TableID": 406,
"FieldID": 2996,
"Order": 1,
"NoLabel": 0,
"TotalIt": 0,
"NumProps": 0
},
{
"ControlID": 2526,
"AddressType": 0,
"ControlCaption": "|S00667",
"BlockID": 544,
"ControlType": 111,
"TableID": 406,
"FieldID": 2862,
"Order": 2,
"NoLabel": 0,
"TotalIt": 0,
"NumProps": 0,
"Code": "Private Sub >>|F02862<<_NotInList(NewData As String, Response As Integer)\r\n MsgBox \"|S00760\"\r\n Response = acDataErrContinue\r\nEnd Sub"
},
{
"ControlID": 2527,
"AddressType": 0,
"ControlCaption": "|S00163",
"BlockID": 544,
"ControlType": 109,
"TableID": 406,
"FieldID": 3291,
"Order": 5,
"NoLabel": 0,
"TotalIt": 0,
"NumProps": 0
},
{
"ControlID": 2528,
"AddressType": 0,
"ControlCaption": "|S00300",
"BlockID": 544,
"ControlType": 109,
"TableID": 406,
"FieldID": 3292,
"Order": 4,
"NoLabel": 0,
"TotalIt": 0,
"NumProps": 0
},
{
"ControlID": 2529,
"AddressType": 0,
"ControlCaption": "|S00691",
"BlockID": 544,
"ControlType": 111,
"TableID": 406,
"FieldID": 3293,
"Order": 3,
"NoLabel": 0,
"TotalIt": 0,
"NumProps": 0,
"Code": "Private Sub >>|F03293<<_NotInList(NewData As String, Response As Integer)\r\n MsgBox \"|S00249\"\r\n Response = acDataErrContinue\r\nEnd Sub\r\nPrivate Sub >>|F03293<<_DblClick (Cancel As Integer)\r\nOn Error Goto Err_>>|F03293<<_DblClick\r\n Dim lngExpenseCodeID As Long\r\n\r\n If IsNull(Me![|F03293]) Then\r\n Me![|F03293].Text = \"\"\r\n Else\r\n lngExpenseCodeID = Me![|F03293]\r\n Me![|F03293] = Null\r\n End If\r\n DoCmd.OpenForm \"|P00292\", , , , , acDialog, \"GotoNew\"\r\n Me![|F03293].Requery\r\n if lngExpenseCodeID<>0 then Me![|F03293] = lngExpenseCodeID\r\n\r\nExit_>>|F03293<<_DblClick:\r\n Exit Sub\r\n\r\nErr_>>|F03293<<_DblClick:\r\n MsgBox Err.Description\r\n Resume Exit_>>|F03293<<_DblClick\r\nEnd Sub"
},
{
"ControlID": 2530,
"AddressType": 0,
"ControlName": "|S00037",
"BlockID": 545,
"ControlType": 109,
"Expression": "=sum([|F03292])",
"Order": 1,
"DataType": 5,
"NoLabel": 0,
"TotalIt": 0,
"NumProps": 1
},
{
"ControlID": 2531,
"AddressType": 0,
"ControlName": "|S00687",
"ControlCaption": "|S00688",
"BlockID": 541,
"ControlType": 104,
"Order": 1,
"NoLabel": 1,
"TotalIt": 0,
"NumProps": 0,
"Code": "Private Sub >>|C02531<<_Click()\r\n On Error GoTo >>|C02531<<_Err \r\n If isnull(Me![|F03289]) then\r\n msgbox \"|S00759\"\r\n Else\r\n DoCmd.DoMenuItem acFormBar, acRecordsMenu, acSaveRecord, , acMenuVer70\r\n DoCmd.OpenReport \"|P00300\", acPreview, , \"[|F03289]=\" &[|F03289]\r\n End If\r\n\r\n>>|C02531<<_Exit:\r\n Exit Sub\r\n\r\n>>|C02531<<_Err:\r\n MsgBox Err.Description\r\n Resume >>|C02531<<_Exit\r\nEnd Sub"
"Code": "Private Sub >>|F03025<<_AfterUpdate()\r\nOn Error Goto Err_>>|F03025<<_AfterUpdate\r\n If Not IsNull(Me![|F03025]) then\r\n If Me![|F03025].column(2) = True Then\r\n Me![|F02268] = [Forms]![|P00287]![|F03101] & \" \" & [Forms]![|P00287]![|F03102]\r\n End If\r\n End If\r\n\r\nExit_>>|F03025<<_AfterUpdate:\r\n Exit Sub\r\n\r\nErr_>>|F03025<<_AfterUpdate:\r\n MsgBox Err.Description\r\n Resume Exit_>>|F03025<<_AfterUpdate\r\nEnd Sub\r\nPrivate Sub >>|F03025<<_NotInList(NewData As String, Response As Integer)\r\n MsgBox \"|S00249\"\r\n Response = acDataErrContinue\r\nEnd Sub\r\nPrivate Sub >>|F03025<<_DblClick (Cancel As Integer)\r\nOn Error Goto Err_>>|F03025<<_DblClick\r\n Dim lngPaymentMethodID As Long\r\n\r\n If IsNull(Me![|F03025]) Then\r\n Me![|F03025].Text = \"\"\r\n Else\r\n lngPaymentMethodID = Me![|F03025]\r\n Me![|F03025] = Null\r\n End If\r\n DoCmd.OpenForm \"|P00293\", , , , , acDialog, \"GotoNew\"\r\n Me![|F03025].Requery\r\n if lngPaymentMethodID<>0 then Me![|F03025] = lngPaymentMethodID\r\n\r\nExit_>>|F03025<<_DblClick:\r\n Exit Sub\r\n\r\nErr_>>|F03025<<_DblClick:\r\n MsgBox Err.Description\r\n Resume Exit_>>|F03025<<_DblClick\r\nEnd Sub"
},
{
"ControlID": 2553,
"AddressType": 0,
"BlockID": 549,
"ControlType": 109,
"TableID": 193,
"FieldID": 1176,
"Order": 4,
"NoLabel": 0,
"TotalIt": 0,
"NumProps": 0,
"Width": 1500
},
{
"ControlID": 2554,
"AddressType": 0,
"BlockID": 549,
"ControlType": 109,
"TableID": 193,
"FieldID": 2271,
"Order": 5,
"NoLabel": 0,
"TotalIt": 0,
"NumProps": 0,
"Width": 1500
},
{
"ControlID": 2555,
"AddressType": 0,
"BlockID": 549,
"ControlType": 109,
"TableID": 193,
"FieldID": 2268,
"Order": 6,
"NoLabel": 0,
"TotalIt": 0,
"NumProps": 0
},
{
"ControlID": 2556,
"AddressType": 0,
"BlockID": 549,
"ControlType": 109,
"TableID": 193,
"FieldID": 2270,
"Order": 7,
"NoLabel": 0,
"TotalIt": 0,
"NumProps": 0
},
{
"ControlID": 2557,
"AddressType": 0,
"BlockID": 549,
"ControlType": 109,
"TableID": 193,
"FieldID": 2269,
"Order": 8,
"NoLabel": 0,
"TotalIt": 0,
"NumProps": 0
},
{
"ControlID": 2558,
"AddressType": 0,
"BlockID": 549,
"ControlType": 109,
"TableID": 193,
"FieldID": 3086,
"Order": 9,
"NoLabel": 0,
"TotalIt": 0,
"NumProps": 0
},
{
"ControlID": 2559,
"AddressType": 0,
"ControlName": "|S00456",
"ControlCaption": "|S00032:",
"BlockID": 550,
"ControlType": 109,
"Order": 1,
"DataType": 8,
"NoLabel": 0,
"TotalIt": 0,
"NumProps": 1,
"Format": "Short Date"
},
{
"ControlID": 2560,
"AddressType": 0,
"ControlName": "|S00455",
"ControlCaption": "|S00033:",
"BlockID": 550,
"ControlType": 109,
"Order": 2,
"DataType": 8,
"NoLabel": 0,
"TotalIt": 0,
"NumProps": 1,
"Format": "Short Date"
},
{
"ControlID": 2561,
"AddressType": 0,
"ControlName": "|S00151",
"ControlCaption": "|S00311",
"BlockID": 551,
"ControlType": 104,
"Order": 1,
"NoLabel": 1,
"TotalIt": 0,
"NumProps": 1,
"Code": "Private Sub >>|C02561<<_Click()\r\n If isnull([|C02559]) or isnull([|C02560]) then \r\n msgbox \"|S00248\"\r\n docmd.gotocontrol \"|C02559\"\r\n Else\r\n If [|C02559] > [|C02560] Then\r\n MsgBox \"|S00287\"\r\n DoCmd.GoToControl \"|C02559\"\r\n Else\r\n Me.Visible = False\r\n End If\r\n End If\r\nEnd Sub"
"Code": "Private Sub >>|F02796<<_NotInList(NewData As String, Response As Integer)\r\n MsgBox \"|S00249\"\r\n Response = acDataErrContinue\r\nEnd Sub\r\nPrivate Sub >>|F02796<<_DblClick (Cancel As Integer)\r\nOn Error Goto Err_>>|F02796<<_DblClick\r\n Dim lngCategoryID As Long\r\n\r\n If IsNull(Me![|F02796]) Then\r\n Me![|F02796].Text = \"\"\r\n Else\r\n lngCategoryID = Me![|F02796]\r\n Me![|F02796] = Null\r\n End If\r\n DoCmd.OpenForm \"|P00326\", , , , , acDialog, \"GotoNew\"\r\n Me![|F02796].Requery\r\n if lngCategoryID<>0 then Me![|F02796] = lngCategoryID\r\n\r\nExit_>>|F02796<<_DblClick:\r\n Exit Sub\r\n\r\nErr_>>|F02796<<_DblClick:\r\n MsgBox Err.Description\r\n Resume Exit_>>|F02796<<_DblClick\r\nEnd Sub"
},
{
"ControlID": 2662,
"AddressType": 0,
"BlockID": 582,
"ControlType": 109,
"TableID": 228,
"FieldID": 3307,
"Order": 5,
"NoLabel": 0,
"TotalIt": 0,
"NumProps": 0,
"Width": 1600
},
{
"ControlID": 2663,
"AddressType": 0,
"BlockID": 582,
"ControlType": 109,
"TableID": 228,
"FieldID": 2153,
"Order": 6,
"NoLabel": 0,
"TotalIt": 0,
"NumProps": 0,
"Width": 1600
},
{
"ControlID": 2664,
"AddressType": 0,
"ControlName": "|S00423",
"ControlCaption": "|S00424",
"BlockID": 582,
"ControlType": 109,
"Expression": "=[|P00331].[Form]![|C02664]",
"Order": 7,
"DataType": 4,
"NoLabel": 0,
"TotalIt": 0,
"NumProps": 1,
"Width": 1600,
"Format": "Fixed"
},
{
"ControlID": 2665,
"AddressType": 0,
"ControlName": "|S00420",
"ControlCaption": "|S00094",
"BlockID": 582,
"ControlType": 109,
"Expression": "=[|P00331].[Form]![|C02665]",
"Order": 8,
"DataType": 4,
"NoLabel": 0,
"TotalIt": 0,
"NumProps": 1,
"Width": 1600,
"Format": "Fixed"
},
{
"ControlID": 2666,
"AddressType": 0,
"ControlName": "|S00418",
"ControlCaption": "|S00419",
"BlockID": 583,
"ControlType": 112,
"Order": 1,
"NoLabel": 0,
"TotalIt": 0,
"NumProps": 0,
"Width": 8300,
"Height": 1585,
"Code": "Private Sub >>|P00331<<_Enter()\r\n If IsNull(Me![|F01581]) Then\r\n msgbox \"|S00129\" \r\n docmd.gotocontrol \"|F02126\"\r\n End If\r\nEnd Sub"
},
{
"ControlID": 2667,
"AddressType": 0,
"ControlCaption": "|S00289",
"BlockID": 584,
"ControlType": 109,
"TableID": 411,
"FieldID": 2369,
"Order": 1,
"NoLabel": 0,
"TotalIt": 0,
"NumProps": 1,
"Code": "Private Sub >>|F02369<<_DblClick (Cancel As Integer)\r\n |S00108\r\nEnd Sub"
},
{
"ControlID": 2668,
"AddressType": 0,
"ControlCaption": "|S00425",
"BlockID": 584,
"ControlType": 109,
"TableID": 411,
"FieldID": 3301,
"Order": 2,
"NoLabel": 0,
"TotalIt": 0,
"NumProps": 1,
"Code": "Private Sub >>|F03301<<_DblClick (Cancel As Integer)\r\n |S00108\r\nEnd Sub"
},
{
"ControlID": 2669,
"AddressType": 0,
"ControlCaption": "|S00163",
"BlockID": 584,
"ControlType": 109,
"TableID": 411,
"FieldID": 3023,
"Order": 3,
"NoLabel": 0,
"TotalIt": 0,
"NumProps": 0,
"Code": "Private Sub >>|F03023<<_DblClick (Cancel As Integer)\r\n |S00108\r\nEnd Sub"
},
{
"ControlID": 2670,
"AddressType": 0,
"ControlCaption": "|S00415",
"BlockID": 584,
"ControlType": 109,
"TableID": 411,
"FieldID": 3302,
"Order": 4,
"NoLabel": 0,
"TotalIt": 0,
"NumProps": 0,
"Code": "Private Sub >>|F03302<<_DblClick (Cancel As Integer)\r\n |S00108\r\nEnd Sub"
},
{
"ControlID": 2671,
"AddressType": 0,
"ControlCaption": "|S00414",
"BlockID": 584,
"ControlType": 109,
"TableID": 411,
"FieldID": 3303,
"Order": 5,
"NoLabel": 0,
"TotalIt": 0,
"NumProps": 0,
"Code": "Private Sub >>|F03303<<_DblClick (Cancel As Integer)\r\n |S00108\r\nEnd Sub"
},
{
"ControlID": 2672,
"AddressType": 0,
"ControlCaption": "|S00417",
"BlockID": 584,
"ControlType": 109,
"TableID": 411,
"FieldID": 3304,
"Order": 6,
"NoLabel": 0,
"TotalIt": 0,
"NumProps": 0,
"Code": "Private Sub >>|F03304<<_DblClick (Cancel As Integer)\r\n |S00108\r\nEnd Sub"
},
{
"ControlID": 2673,
"AddressType": 0,
"ControlCaption": "|S00416",
"BlockID": 584,
"ControlType": 109,
"TableID": 411,
"FieldID": 3305,
"Order": 7,
"NoLabel": 0,
"TotalIt": 0,
"NumProps": 0,
"Code": "Private Sub >>|F03305<<_DblClick (Cancel As Integer)\r\n |S00108\r\nEnd Sub"
"Code": "Private Sub >>|F00338<<_NotInList(NewData As String, Response As Integer)\r\n MsgBox \"|S00249\"\r\n Response = acDataErrContinue\r\nEnd Sub\r\nPrivate Sub >>|F00338<<_DblClick (Cancel As Integer)\r\nOn Error Goto Err_>>|F00338<<_DblClick\r\n Dim lngSupplierID As Long\r\n\r\n If IsNull(Me![|F00338]) Then\r\n Me![|F00338].Text = \"\"\r\n Else\r\n lngSupplierID = Me![|F00338]\r\n Me![|F00338] = Null\r\n End If\r\n DoCmd.OpenForm \"|P00325\", , , , , acDialog, \"GotoNew\"\r\n Me![|F00338].Requery\r\n if lngSupplierID<>0 then Me![|F00338] = lngSupplierID\r\n\r\nExit_>>|F00338<<_DblClick:\r\n Exit Sub\r\n\r\nErr_>>|F00338<<_DblClick:\r\n MsgBox Err.Description\r\n Resume Exit_>>|F00338<<_DblClick\r\nEnd Sub"
},
{
"ControlID": 2683,
"AddressType": 0,
"ControlCaption": "|S00291",
"BlockID": 587,
"ControlType": 111,
"TableID": 412,
"FieldID": 1122,
"Order": 4,
"NoLabel": 0,
"TotalIt": 0,
"NumProps": 0,
"Code": "Private Sub >>|F01122<<_NotInList(NewData As String, Response As Integer)\r\n MsgBox \"|S00249\"\r\n Response = acDataErrContinue\r\nEnd Sub\r\nPrivate Sub >>|F01122<<_DblClick (Cancel As Integer)\r\nOn Error Goto Err_>>|F01122<<_DblClick\r\n Dim lngEmployeeID As Long\r\n\r\n If IsNull(Me![|F01122]) Then\r\n Me![|F01122].Text = \"\"\r\n Else\r\n lngEmployeeID = Me![|F01122]\r\n Me![|F01122] = Null\r\n End If\r\n DoCmd.OpenForm \"|P00324\", , , , , acDialog, \"GotoNew\"\r\n Me![|F01122].Requery\r\n if lngEmployeeID<>0 then Me![|F01122] = lngEmployeeID\r\n\r\nExit_>>|F01122<<_DblClick:\r\n Exit Sub\r\n\r\nErr_>>|F01122<<_DblClick:\r\n MsgBox Err.Description\r\n Resume Exit_>>|F01122<<_DblClick\r\nEnd Sub"
},
{
"ControlID": 2684,
"AddressType": 0,
"BlockID": 587,
"ControlType": 109,
"TableID": 412,
"FieldID": 352,
"Order": 6,
"NoLabel": 0,
"TotalIt": 0,
"NumProps": 1,
"Width": 1600
},
{
"ControlID": 2685,
"AddressType": 0,
"ControlCaption": "|S00163",
"BlockID": 587,
"ControlType": 109,
"TableID": 412,
"FieldID": 3309,
"Order": 5,
"NoLabel": 0,
"TotalIt": 0,
"NumProps": 0,
"Width": 2800,
"Height": -2
},
{
"ControlID": 2686,
"AddressType": 0,
"ControlCaption": "|S00453",
"BlockID": 587,
"ControlType": 111,
"TableID": 412,
"FieldID": 3027,
"Order": 7,
"NoLabel": 0,
"TotalIt": 0,
"NumProps": 0,
"Width": 1600,
"Code": "Private Sub >>|F03027<<_NotInList(NewData As String, Response As Integer)\r\n MsgBox \"|S00249\"\r\n Response = acDataErrContinue\r\nEnd Sub\r\nPrivate Sub >>|F03027<<_DblClick (Cancel As Integer)\r\nOn Error Goto Err_>>|F03027<<_DblClick\r\n Dim lngShippingMethodID As Long\r\n\r\n If IsNull(Me![|F03027]) Then\r\n Me![|F03027].Text = \"\"\r\n Else\r\n lngShippingMethodID = Me![|F03027]\r\n Me![|F03027] = Null\r\n End If\r\n DoCmd.OpenForm \"|P00328\", , , , , acDialog, \"GotoNew\"\r\n Me![|F03027].Requery\r\n if lngShippingMethodID<>0 then Me![|F03027] = lngShippingMethodID\r\n\r\nExit_>>|F03027<<_DblClick:\r\n Exit Sub\r\n\r\nErr_>>|F03027<<_DblClick:\r\n MsgBox Err.Description\r\n Resume Exit_>>|F03027<<_DblClick\r\nEnd Sub"
},
{
"ControlID": 2687,
"AddressType": 0,
"BlockID": 587,
"ControlType": 109,
"TableID": 412,
"FieldID": 353,
"Order": 8,
"NoLabel": 0,
"TotalIt": 0,
"NumProps": 0,
"Width": 1600
},
{
"ControlID": 2688,
"AddressType": 0,
"BlockID": 587,
"ControlType": 109,
"TableID": 412,
"FieldID": 3264,
"Order": 9,
"NoLabel": 0,
"TotalIt": 0,
"NumProps": 0,
"Width": 1600
},
{
"ControlID": 2689,
"AddressType": 0,
"BlockID": 587,
"ControlType": 109,
"TableID": 412,
"FieldID": 2201,
"Order": 10,
"NoLabel": 0,
"TotalIt": 0,
"NumProps": 0,
"Width": 1600
},
{
"ControlID": 2690,
"AddressType": 0,
"ControlName": "|S00151",
"ControlCaption": "|S00311",
"BlockID": 588,
"ControlType": 104,
"Order": 1,
"NoLabel": 1,
"TotalIt": 0,
"NumProps": 0,
"Code": "Private Sub >>|C02690<<_Click()\r\nOn Error GoTo Err_>>|C02690<<_Click\r\n DoCmd.DoMenuItem acFormBar, acRecordsMenu, acSaveRecord, , acMenuVer70\r\n If IsNull(Me![|F03301]) Then\r\n MsgBox \"|S00130\"\r\n Else\r\n DoCmd.OpenReport \"|P00336\", acPreview, , \"[|T00412].[|F03301]=\" & Me![|F03301]\r\n End If\r\n\r\nExit_>>|C02690<<_Click:\r\n Exit Sub\r\n\r\nErr_>>|C02690<<_Click:\r\n If Err<>2501 then\r\n MsgBox Err.Description\r\n End If\r\n Resume Exit_>>|C02690<<_Click\r\nEnd Sub"
},
{
"ControlID": 2691,
"AddressType": 0,
"ControlName": "|S00443",
"ControlCaption": "|S00444",
"BlockID": 589,
"ControlType": 112,
"Order": 1,
"NoLabel": 0,
"TotalIt": 0,
"NumProps": 0,
"Width": 8500,
"Height": 1360,
"Code": "Private Sub >>|C02691<<_Enter()\r\n If IsNull(Me![|F03301]) Then\r\n Me![|F00352] = Date\r\n End If\r\nEnd Sub"
},
{
"ControlID": 2692,
"AddressType": 0,
"BlockID": 590,
"ControlType": 109,
"TableID": 5,
"FieldID": 1122,
"Order": 1,
"NoLabel": 0,
"TotalIt": 0,
"NumProps": 0
},
{
"ControlID": 2693,
"AddressType": 0,
"BlockID": 590,
"ControlType": 109,
"TableID": 5,
"FieldID": 1,
"Order": 2,
"NoLabel": 0,
"TotalIt": 0,
"NumProps": 0
},
{
"ControlID": 2694,
"AddressType": 0,
"BlockID": 590,
"ControlType": 109,
"TableID": 5,
"FieldID": 2,
"Order": 3,
"NoLabel": 0,
"TotalIt": 0,
"NumProps": 0
},
{
"ControlID": 2695,
"AddressType": 0,
"BlockID": 590,
"ControlType": 109,
"TableID": 5,
"FieldID": 34,
"Order": 4,
"NoLabel": 0,
"TotalIt": 0,
"NumProps": 0
},
{
"ControlID": 2696,
"AddressType": 0,
"BlockID": 590,
"ControlType": 109,
"TableID": 5,
"FieldID": 10,
"Order": 5,
"NoLabel": 0,
"TotalIt": 0,
"NumProps": 0
},
{
"ControlID": 2697,
"AddressType": 0,
"BlockID": 590,
"ControlType": 109,
"TableID": 5,
"FieldID": 980,
"Order": 7,
"NoLabel": 0,
"TotalIt": 0,
"NumProps": 0
},
{
"ControlID": 2698,
"AddressType": 0,
"BlockID": 591,
"ControlType": 109,
"TableID": 261,
"FieldID": 2796,
"Order": 1,
"NoLabel": 0,
"TotalIt": 0,
"NumProps": 0
},
{
"ControlID": 2699,
"AddressType": 0,
"BlockID": 591,
"ControlType": 109,
"TableID": 261,
"FieldID": 2357,
"Order": 2,
"NoLabel": 0,
"TotalIt": 0,
"NumProps": 0
},
{
"ControlID": 2701,
"AddressType": 0,
"BlockID": 592,
"ControlType": 109,
"TableID": 17,
"FieldID": 2968,
"Order": 2,
"NoLabel": 0,
"TotalIt": 0,
"NumProps": 0
},
{
"ControlID": 2702,
"AddressType": 0,
"BlockID": 592,
"ControlType": 109,
"TableID": 17,
"FieldID": 413,
"Order": 3,
"NoLabel": 0,
"TotalIt": 0,
"NumProps": 0
},
{
"ControlID": 2703,
"AddressType": 0,
"BlockID": 592,
"ControlType": 109,
"TableID": 17,
"FieldID": 2146,
"Order": 4,
"NoLabel": 0,
"TotalIt": 0,
"NumProps": 0
},
{
"ControlID": 2704,
"AddressType": 0,
"BlockID": 592,
"ControlType": 109,
"TableID": 17,
"FieldID": 4,
"Order": 5,
"NoLabel": 0,
"TotalIt": 0,
"NumProps": 0
},
{
"ControlID": 2705,
"AddressType": 1,
"BlockID": 592,
"ControlType": 109,
"TableID": 17,
"FieldID": 5,
"Order": 6,
"NoLabel": 0,
"TotalIt": 0,
"NumProps": 0
},
{
"ControlID": 2705,
"AddressType": 2,
"BlockID": 592,
"ControlType": 109,
"TableID": 17,
"FieldID": 5,
"Order": 7,
"NoLabel": 0,
"TotalIt": 0,
"NumProps": 0
},
{
"ControlID": 2706,
"AddressType": 1,
"BlockID": 592,
"ControlType": 109,
"TableID": 17,
"FieldID": 3089,
"Order": 7,
"NoLabel": 0,
"TotalIt": 0,
"NumProps": 0
},
{
"ControlID": 2706,
"AddressType": 2,
"BlockID": 592,
"ControlType": 109,
"TableID": 17,
"FieldID": 3089,
"Order": 8,
"NoLabel": 0,
"TotalIt": 0,
"NumProps": 0
},
{
"ControlID": 2707,
"AddressType": 1,
"BlockID": 592,
"ControlType": 109,
"TableID": 17,
"FieldID": 139,
"Order": 8,
"NoLabel": 0,
"TotalIt": 0,
"NumProps": 0
},
{
"ControlID": 2707,
"AddressType": 2,
"BlockID": 592,
"ControlType": 109,
"TableID": 17,
"FieldID": 139,
"Order": 6,
"NoLabel": 0,
"TotalIt": 0,
"NumProps": 0
},
{
"ControlID": 2708,
"AddressType": 0,
"BlockID": 592,
"ControlType": 109,
"TableID": 17,
"FieldID": 8,
"Order": 9,
"NoLabel": 0,
"TotalIt": 0,
"NumProps": 0
},
{
"ControlID": 2709,
"AddressType": 0,
"BlockID": 592,
"ControlType": 109,
"TableID": 17,
"FieldID": 1558,
"Order": 10,
"NoLabel": 0,
"TotalIt": 0,
"NumProps": 0
},
{
"ControlID": 2710,
"AddressType": 0,
"BlockID": 592,
"ControlType": 109,
"TableID": 17,
"FieldID": 11,
"Order": 11,
"NoLabel": 0,
"TotalIt": 0,
"NumProps": 0
},
{
"ControlID": 2712,
"AddressType": 0,
"BlockID": 592,
"ControlType": 109,
"TableID": 17,
"FieldID": 968,
"Order": 13,
"NoLabel": 0,
"TotalIt": 0,
"NumProps": 1,
"Width": 5000,
"Height": -3
},
{
"ControlID": 2713,
"AddressType": 0,
"ControlName": "|S00376",
"ControlCaption": "|S00374",
"BlockID": 593,
"ControlType": 100,
"Order": 1,
"DataType": 10,
"NoLabel": 1,
"TotalIt": 0,
"NumProps": 0,
"Width": 6000,
"Height": 540
},
{
"ControlID": 2714,
"AddressType": 0,
"BlockID": 594,
"ControlType": 109,
"TableID": 344,
"FieldID": 3082,
"Order": 1,
"NoLabel": 0,
"TotalIt": 0,
"NumProps": 0
},
{
"ControlID": 2715,
"AddressType": 0,
"BlockID": 594,
"ControlType": 109,
"TableID": 344,
"FieldID": 4,
"Order": 2,
"NoLabel": 0,
"TotalIt": 0,
"NumProps": 0
},
{
"ControlID": 2716,
"AddressType": 1,
"BlockID": 594,
"ControlType": 109,
"TableID": 344,
"FieldID": 5,
"Order": 3,
"NoLabel": 0,
"TotalIt": 0,
"NumProps": 0
},
{
"ControlID": 2716,
"AddressType": 2,
"BlockID": 594,
"ControlType": 109,
"TableID": 344,
"FieldID": 5,
"Order": 4,
"NoLabel": 0,
"TotalIt": 0,
"NumProps": 0
},
{
"ControlID": 2717,
"AddressType": 1,
"BlockID": 594,
"ControlType": 109,
"TableID": 344,
"FieldID": 3089,
"Order": 4,
"NoLabel": 0,
"TotalIt": 0,
"NumProps": 0
},
{
"ControlID": 2717,
"AddressType": 2,
"BlockID": 594,
"ControlType": 109,
"TableID": 344,
"FieldID": 3089,
"Order": 5,
"NoLabel": 0,
"TotalIt": 0,
"NumProps": 0
},
{
"ControlID": 2718,
"AddressType": 1,
"BlockID": 594,
"ControlType": 109,
"TableID": 344,
"FieldID": 139,
"Order": 5,
"NoLabel": 0,
"TotalIt": 0,
"NumProps": 0
},
{
"ControlID": 2718,
"AddressType": 2,
"BlockID": 594,
"ControlType": 109,
"TableID": 344,
"FieldID": 139,
"Order": 3,
"NoLabel": 0,
"TotalIt": 0,
"NumProps": 0
},
{
"ControlID": 2719,
"AddressType": 0,
"BlockID": 594,
"ControlType": 109,
"TableID": 344,
"FieldID": 8,
"Order": 6,
"NoLabel": 0,
"TotalIt": 0,
"NumProps": 0
},
{
"ControlID": 2720,
"AddressType": 0,
"BlockID": 594,
"ControlType": 109,
"TableID": 344,
"FieldID": 1558,
"Order": 7,
"NoLabel": 0,
"TotalIt": 0,
"NumProps": 0
},
{
"ControlID": 2721,
"AddressType": 0,
"BlockID": 594,
"ControlType": 109,
"TableID": 344,
"FieldID": 11,
"Order": 8,
"NoLabel": 0,
"TotalIt": 0,
"NumProps": 0
},
{
"ControlID": 2723,
"AddressType": 0,
"ControlCaption": "|S00457",
"BlockID": 595,
"ControlType": 109,
"TableID": 346,
"FieldID": 3027,
"Order": 1,
"NoLabel": 0,
"TotalIt": 0,
"NumProps": 0
},
{
"ControlID": 2724,
"AddressType": 0,
"BlockID": 595,
"ControlType": 109,
"TableID": 346,
"FieldID": 3029,
"Order": 2,
"NoLabel": 0,
"TotalIt": 0,
"NumProps": 0
},
{
"ControlID": 2725,
"AddressType": 0,
"ControlName": "|S00456",
"ControlCaption": "|S00032:",
"BlockID": 596,
"ControlType": 109,
"Order": 1,
"DataType": 8,
"NoLabel": 0,
"TotalIt": 0,
"NumProps": 1,
"Format": "short date"
},
{
"ControlID": 2726,
"AddressType": 0,
"ControlName": "|S00455",
"ControlCaption": "|S00033:",
"BlockID": 596,
"ControlType": 109,
"Order": 2,
"DataType": 8,
"NoLabel": 0,
"TotalIt": 0,
"NumProps": 1,
"Format": "short date"
},
{
"ControlID": 2727,
"AddressType": 0,
"ControlName": "|S00151",
"ControlCaption": "|S00311",
"BlockID": 597,
"ControlType": 104,
"Order": 1,
"NoLabel": 1,
"TotalIt": 0,
"NumProps": 1,
"Code": "Private Sub >>|C02727<<_Click()\r\n If isnull([|C02725]) or isnull([|C02726]) then \r\n msgbox \"|S00248\"\r\n docmd.gotocontrol \"|C02725\"\r\n Else\r\n If [|C02725] > [|C02726] Then\r\n MsgBox \"|S00287\"\r\n DoCmd.GoToControl \"|C02725\"\r\n Else\r\n Me.Visible = False\r\n End If\r\n End If\r\nEnd Sub"
"Code": "Private Sub >>|C02785<<_Click()\r\nOn Error Goto Err_>>|C02785<<_Click\r\n If IsNull(Me![|F01581]) Then\r\n MsgBox \"|S00129\"\r\n Else\r\n DoCmd.DoMenuItem acFormBar,acRecordsMenu,acSaveRecord,,acMenuVer70\r\n DoCmd.OpenForm \"|P00323\"\r\n If Me![|P00331].form![|F03301]>0 Then\r\n DoCmd.GotoControl \"|F03301\"\r\n DoCmd.FindRecord Me![|P00331].form![|F03301]\r\n Else\r\n If not isnull(Forms![|P00323]![|F03301]) then\r\n DoCmd.DoMenuItem acFormBar,3,0,,acMenuVer70\r\n End If\r\n End If\r\n End If\r\n\r\nExit_>>|C02785<<_Click:\r\n Exit Sub\r\n\r\nErr_>>|C02785<<_Click:\r\n MsgBox Err.Description\r\n Resume Exit_>>|C02785<<_Click\r\nEnd Sub"
},
{
"ControlID": 2787,
"AddressType": 0,
"BlockID": 614,
"ControlType": 109,
"TableID": 482,
"FieldID": 80,
"Order": 1,
"NoLabel": 0,
"TotalIt": 0,
"NumProps": 0
},
{
"ControlID": 2791,
"AddressType": 0,
"BlockID": 614,
"ControlType": 109,
"TableID": 482,
"FieldID": 2,
"Order": 2,
"NoLabel": 0,
"TotalIt": 0,
"NumProps": 0
},
{
"ControlID": 2792,
"AddressType": 0,
"BlockID": 614,
"ControlType": 109,
"TableID": 482,
"FieldID": 1,
"Order": 3,
"NoLabel": 0,
"TotalIt": 0,
"NumProps": 0
},
{
"ControlID": 2793,
"AddressType": 0,
"BlockID": 614,
"ControlType": 109,
"TableID": 482,
"FieldID": 566,
"Order": 4,
"NoLabel": 0,
"TotalIt": 0,
"NumProps": 0
},
{
"ControlID": 2794,
"AddressType": 0,
"ControlName": "|S00694",
"BlockID": 614,
"ControlType": 112,
"Order": 5,
"NoLabel": 1,
"TotalIt": 0,
"NumProps": 0,
"Width": 3000,
"Height": 2045
},
{
"ControlID": 2796,
"AddressType": 0,
"BlockID": 615,
"ControlType": 109,
"TableID": 479,
"FieldID": 1004,
"Order": 2,
"NoLabel": 0,
"TotalIt": 0,
"NumProps": 1,
"Width": 5000,
"Height": -2
},
{
"ControlID": 2797,
"AddressType": 0,
"ControlName": "|S00705",
"ControlCaption": "|S00706",
"BlockID": 846,
"ControlType": 112,
"Order": 3,
"NoLabel": 0,
"TotalIt": 0,
"NumProps": 0,
"Width": 8500,
"Height": 1360,
"Code": "Private Sub >>|P00343<<_Enter()\r\n If IsNull(Me![|F03589]) Then\r\n Me![|F01004] = Date\r\n DoCmd.DoMenuItem acFormBar, acRecordsMenu, acSaveRecord, , acMenuVer70\r\n End If\r\nEnd Sub\r\n\r\nPrivate Sub >>|P00343<<_Exit (Cancel As Integer)\r\n DoCmd.DoMenuItem acFormBar, acRecordsMenu, acSaveRecord, , acMenuVer70\r\n Me![|C02805] = Me![|P00343].form![|F03586]\r\n Me![|P00342 |S00792].caption = \"|S00167\" & Me![|P00343].form![|F03587] & \"'\"\r\nEnd Sub"
},
{
"ControlID": 2798,
"AddressType": 0,
"ControlName": "|S00703",
"ControlCaption": "|S00704",
"BlockID": 846,
"ControlType": 112,
"Order": 4,
"NoLabel": 0,
"TotalIt": 0,
"NumProps": 0,
"Width": 3600,
"Height": 910,
"Code": "Private Sub >>|P00342<<_Enter()\r\n If IsNull(Me![|C02805]) Then\r\n MsgBox \"|S00165\"\r\n DoCmd.GoToControl \"[|F01004]\"\r\n End If\r\nEnd Sub"
"Code": "Private Sub >>|C02932<<_Click()\r\n If isnull([|C02933]) or isnull([|C02934]) then \r\n msgbox \"|S00248\"\r\n docmd.gotocontrol \"|C02933\"\r\n Else\r\n If [|C02933] > [|C02934] Then\r\n MsgBox \"|S00287\"\r\n DoCmd.GoToControl \"|C02933\"\r\n Else\r\n Me.Visible = False\r\n End If\r\n End If\r\nEnd Sub"