Приложение 8. Коды с примерами использования процедур для добавления данных

/////////////////////////////////   ЗАПОЛНЕНИЕ ТАБЛИЦ

exec newpos ('Инженер', 66147)

exec NewEmployee ('Натхин Владимир Петрович', '18-03-1982', 'Инженер')

exec NewSub ('ООО ПСТ', 7810382640, 780501001,'89286581498')

exec NewCust ('СПб ГКУ','89389673454')

exec NewObj ('Работы по реконструкции водопроводной сети Д=800-1000 мм','Санкт-Петербург, ул. Доблести, д. 15')

exec NewWork ('Крепление шпунтового ряда ограждения котлованов','т','29000')

exec NewPass ('СПб ГКУ','ООО ЭНКОМ КСМ','Работы по реконструкции водопроводной сети Д=800-1000 мм','01-11-2019','25-11-2019','54-Ru54303000-125-2019')

exec NewAct ('ООО ЭНКОМ КСМ','ООО ПСТ','Работы по реконструкции водопроводной сети Д=800-1000 мм','Натхин Владимир Петрович','Крепление шпунтового ряда ограждения котлованов','01-09-2019','01-08-2020')

exec newpos ('Директор', 85335)

exec newpos ('Секретарь', 46321)

exec newpos ('Юрист', 72956)

exec NewEmployee ('Прохоров Андрей Геннадиевич', '11-08-1991', 'Инженер')

exec NewEmployee ('Горбунов Эльдар Витальевич', '26-04-1985', 'Инженер')

exec NewEmployee ('Фадеева Ева Романовна', '06-12-1970', 'Юрист')  

exec NewEmployee ('Полякова Екатерина Олеговна', '20-10-1995', 'Секретарь')

exec NewEmployee ('Бобров Дмитрий Ефимович', '19-02-1970', 'Директор')

exec NewSub ('ООО МСБ', 7810357896, 780509078,'89286581498')

exec NewSub ('ООО СТОРИМЛАЙМ', 7810147643, 780537009,'89065597814')

exec NewSub ('ООО ДАР', 7810657816, 780569008,'89386523347')

exec NewCust ('ГУП ВСП','89689631458')

exec NewObj ('Строительство водопроводных очистных сооружений','пос. Молодежное, ул. Солнечная')

exec NewObj ('Реконструкция канализационной сети','Санкт-Петербург, ул. Богайчука, д. 20')

exec NewWork ('Укладка трубопроводов из полиэтиленовых труб','км','373905')

exec NewWork ('Вставки демонтажные фланцевые д=1000','шт','267958')

exec NewWork ('Установка фасоных частей','10 частей','2315')

exec NewWork ('Песок карьерный','м3','285')

exec NewPass ('СПб ГКУ','ООО ЭНКОМ КСМ','Реконструкция канализационной сети','01-09-2018','15-10-2019','67-Ru32509006-195-2018')

exec NewPass ('ГУП ВСП','ООО ЭНКОМ КСМ','Строительство водопроводных очистных сооружений','01-08-2019','30-12-2020','35-Ru34009806-108-2019')

exec NewAct ('ООО ЭНКОМ КСМ','ООО МСБ','Строительство водопроводных очистных сооружений','Горбунов Эльдар Витальевич','Укладка трубопроводов из полиэтиленовых труб','25-10-2019','25-12-2019')

exec NewAct ('ООО ЭНКОМ КСМ','ООО ДАР','Реконструкция канализационной сети','Прохоров Андрей Геннадиевич','Вставки демонтажные фланцевые д=1000','15-12-2019','10-03-2020')