* Отмена фильтра
SELECT DETAL1
SET FILTER TO
GO TOP
* Сохранение
BEGIN TRANSACTION
LOCAL llok1, llok2, llok3
LOCAL ARRAY la_error1[1], la_error2[1], la_error3[1]
SELECT DOC1
IF EMPTY(id)
    LOCAL lc_newid
    lc_newid=sp_newid('documents', 'doc')
    REPLACE id WITH lc_newid
ENDIF
llok1=TABLEUPDATE(0, .T.)
AERROR(la_error1)
SELECT PF1
REPLACE id_doc  WITH DOC1.id ALL
REPLACE type_pr WITH DOC1.type_pr ALL
SCAN FOR EMPTY(PF1.id)
    * назначим постоянный id
    lc_newid=sp_newid('doc_prod', 'opf')
    REPLACE id    WITH lc_newid
    * пропишем в деталях постоянные связи
    SELECT DETAL1
    REPLACE DETAL1.id_prod WITH PF1.id FOR DETAL1.id2_prod=PF1.id2
    * номер партии для новых деталей в пф
    REPLACE DETAL1.npart   WITH (o_tables.doc.new_npart()) ;
        FOR DETAL1.id2_prod=PF1.id2 AND DETAL1.npart=0
    SELECT PF1
ENDSCAN
llok2=TABLEUPDATE(1, .T.)
AERROR(la_error2)
SELECT DETAL1
REPLACE id_doc WITH DOC1.id ALL
REPLACE type_pr WITH DOC1.type_pr ALL
llok3=TABLEUPDATE(1, .T.)
AERROR(la_error3)
IF llok1=.T. AND llok2=.T. AND llok3=.T.
    END TRANSACTION
    THISFORM.Hide()
    IF TYPE('THISFORM.Form_parent.Name')='C'
        * обновление журнала
        THISFORM.Form_parent.RefreshData()
    ENDIF
    THISFORM.Release()
ELSE
    ROLLBACK
    LOCAL lc_errstr
    lc_errstr='Наряд на работу: ошибка в Tableupdate() '+chr(13)
    FOR i=1 TO ALEN(la_error1)
        lc_errstr=lc_errstr+la_error1[i]+' '
    ENDFOR
    lc_errstr=lc_errstr+chr(13)
    FOR i=1 TO ALEN(la_error2)
        lc_errstr=lc_errstr+la_error2[i]+' '
    ENDFOR
    lc_errstr=lc_errstr+chr(13)
    FOR i=1 TO ALEN(la_error3)
        lc_errstr=lc_errstr+la_error3[i]+' '
    ENDFOR
    
    DO ADD_IN_LOG IN Progs\errorlog
    o_App.Message('Немогу сохранить изменения!', '!')
ENDIF