Разработка программного модуля для формирования плана изготовления продукции на предприятии
Дипломная работа - Компьютеры, программирование
Другие дипломы по предмету Компьютеры, программирование
39;,0+16,"")istoria=.f.= MESSAGEBOX(Вы желаете удалить документ плана с изделием +alltrim(plan_2868.izd)+, заказом +ALLTRIM(plan_2868.zakaz),4+32,Запрос на удаление)d==6(nom_conn, " update plan_868 set tipzap=1 "+;
" where zakaz=?plan_2868.zakaz and id_dce=?plan_2868.id_dce and dat_vip=?plan_2868.srok")(Запись успешно удалена из базы,0,)
plan2868.activate
ENDIF
ELSE
d= MESSAGEBOX(Вы желаете удалить документ плана с изделием +alltrim(p_ist_2868.izd)+, заказом +ALLTRIM(p_ist_2868.zakaz),4+32,Запрос на удаление)
IF d==6(nom_conn, " update plan_868 set tipzap=1 "+;
" where zakaz=?p_ist_2868.zakaz and id_dce=?p_ist_2868.id_dce and dat_vip=?p_ist_2868.srok")
MESSAGEBOX(Запись успешно удалена из базы,0,)
plan2868.activate.grid1.visible=.F..grid2.visible=.t..label6.visible=.F..combo1.Visible=.F..grid2.RecordSource=p_ist_2868.grid2.column1.Width=120.grid2.column1.header1.caption=Изделие.grid2.column1.header1.fontbold=.t..grid2.column1.header1.backcolor=RGB(192,192,192).grid2.column1.header1.forecolor=RGB(0,0,128).grid2.column2.Width=180.grid2.column2.header1.caption=Обозн. изделия.grid2.column2.header1.fontbold=.t..grid2.column2.header1.backcolor=RGB(192,192,192).grid2.column2.header1.forecolor=RGB(0,0,128).grid2.column3.Width=75.grid2.column3.header1.caption=Заказ.grid2.column3.header1.fontbold=.t..grid2.column3.header1.backcolor=RGB(192,192,192).grid2.column3.header1.forecolor=RGB(0,0,128).grid2.column5.Width=57.grid2.column5.header1.caption=Комплект.grid2.column5.header1.fontbold=.t..grid2.column5.header1.backcolor=RGB(192,192,192).grid2.column5.header1.forecolor=RGB(0,0,128).grid2.column4.Width=80.grid2.column4.header1.caption=Срок выполн..grid2.column4.header1.fontbold=.t..grid2.column4.header1.backcolor=RGB(192,192,192).grid2.column4.header1.forecolor=RGB(0,0,128).grid2.column6.Width=70.grid2.column6.header1.caption=Комп.в году.grid2.column6.header1.fontbold=.t..grid2.column6.header1.backcolor=RGB(192,192,192).grid2.column6.header1.forecolor=RGB(0,0,128).grid2.column7.Width=100.grid2.column7.header1.caption=Пользователь.grid2.column7.header1.fontbold=.t..grid2.column7.header1.backcolor=RGB(192,192,192).grid2.column7.header1.forecolor=RGB(0,0,128).grid2.column8.Width=80.grid2.column8.header1.caption=Дата кор..grid2.column8.header1.fontbold=.t..grid2.column8.header1.backcolor=RGB(192,192,192).grid2.column8.header1.forecolor=RGB(0,0,128).label5.Caption=История= 1=.t.Подождите, идет выборка данных WINDOW nowait.Caption=История изменения плана.command3.Visible=.f..command2.Visible=.f.( nom_conn, " select a.id_dce, a.izd_bd, a.obozn_dce,.zakaz,b.ms, "+;
" b.dat_vip, b.kt_god, b.surname, b.datecor "+;
" from v_iz a inner join plan_868 b on b.id_dce=a.id_dce "+;
" where b.id_dce=?plan_2868.id_dce and b.zakaz=?plan_2868.zakaz and b.tipzap=0"+;
" order by (substring(b.dat_vip,4,2)+substring(b.dat_vip,1,2))", cur)TOP IN curIN p_ist_2868=alltrim(str(val(substr(cur.ms,3,5))))ALLTRIM(SUBSTR(cur.kt_god,1,2))==00= +alltrim(str(val(substr(cur.kt_god,3,5))))=alltrim(substr(cur.kt_god,1,2))+ +alltrim(str(val(substr(cur.kt_god,3,5))))INTO p_ist_2868 VALUES (cur.izd_bd, cur.obozn_dce, cur.zakaz, cur.dat_vip, ms2, ktg, cur.surname, cur.datecor,1,cur.id_dce)top IN p_ist_2868.Refresh.grid2.SetFocus.grid2.AfterRowColChange.label3.Caption=alltrim(str(RECCOUNT(p_ist_2868)))=role(868_write)t3==1 OR rl_ow==1.command4.Enabled=.t..command5.Enabled=.t..command4.Enabled=.f..command5.Enabled=.f.RECCOUNT(p_ist_2868)==0.command5.Enabled=.f..command4.Enabled=.f.clear=.t.