От некоторых предприятий поступают жалобы о редких ошибках при печати Товарно-транспортных накладных,

когда печатается шапка от одной накладной,а продукция от другой.

Это происходит в случае ЧАСТНОГО бланка печати ТТН

Ниже приводится фрагмент из оригинально бланка печати RTHWIN.rpt, отсутствие строк с комментарием ОБЯЗАТЕЛЬНО

может приводить к ошибкам при печати накладных !!!

if !closePeriod and !('F' $ rth2->access)

if !('Д' $ rth2->printed)

// Выполняется отработка зависимостей на другие этажи

// После этого следует восстановить фильтры и области видимости !!!

Local filt1,filt2,scope1,scope2,rec

filt1:=(p1)->(DbFilter())

filt2:=(p2)->(DbFilter())

scope1:=(p1)->(DbScopes(1))

scope2:=(p2)->(DbScopes(1))

rec:=RTH2->(Recno()) // ОБЯЗАТЕЛЬНО !!!

DisSittingNum:=True // запрет регистрации изменений

try

RTH2->PRINTED:='Д'

//Rth3CloseFormBlk()

finally

DisSittingNum:=false

if rec<>RTH2->(Recno()) // ОБЯЗАТЕЛЬНО !!!

RTH2->(DbGoto(rec)) // ОБЯЗАТЕЛЬНО !!!

end // ОБЯЗАТЕЛЬНО !!!

end

if FactoryId='SN1'

if empty(RTH2->OTPDOST);RTH2->OTPDOST:=RTH2->NATTR5;endif

if empty(RTH2->OTPamort2);RTH2->OTPamort2:=RTH2->cattr8;endif

if empty(RTH2->OTPamort1);RTH2->OTPamort1:=RTH2->tara1amort;endif

endif

if filt1<>(p1)->(DbFilter())

if Empty(filt1);(p1)->(SetFilter());else;(p1)->(SetFilter(filt1));end

end

if filt2<>(p2)->(DbFilter())

if Empty(filt2);(p2)->(SetFilter());else;(p2)->(SetFilter(filt2));end

end

if scope1<>(p1)->(DbScopes(1))

(p1)->(SetScopes(scope1,scope1))

end

if scope2<>(p2)->(DbScopes(1))

(p2)->(SetScopes(scope2,scope2))

end

endif

DisSittingNum:=True // запрет регистрации изменений

try

RTH2->ct_nkl_prn:=RTH2->ct_nkl_prn+1 // Счетчик раз печати накладной в RTH2

finally

DisSittingNum:=false

end

else // Если запрет изменений в RTH

if taskname<>'SALE' and !('Д' $ rth2->printed)

WarningBeep()

Message({'Накладная № '+rth2->numdoc+' запрещена к изменению, но не была отпечатана',;

'Печать накладной запрещена'})

StopReport(); return

endif

endif