131
INNER JOIN personal!post ;
INNER JOIN personal!sprpod ;
ON post.Cod_podr==sprpod.cod_podr ;
ON movings.Cod_post==post.Cod_post ;
ON work.Cod_work==movings.COd_work ;
ON people.Cod_priv==work.cod_priv ;
WHERE people.cod_priv==lnCod_priv ;
AND movings.dt_norm>DATE() ;
AND ICASE(work.outercombinate,.T.,not work.outercombinate AND
movings.type_movi==2,.F.,.T.) ;
INTO CURSOR Cur_servis_info
lnCod_movi=Cur_servis_info.COd_movi
aDocs[20,1]=Cur_servis_info.stavka
lcServis_info='Cod_work: '+ALLTRIM(STR(Cur_servis_info.Cod_work))+CHR(13) ;
+'Cod_movi: '+ALLTRIM(STR(Cur_servis_info.COd_movi))+CHR(13) ;
+'Cod_post: '+ALLTRIM(STR(Cur_servis_info.Cod_post))+CHR(13) ;
+'Cod_podr: '+ALLTRIM(STR(Cur_servis_info.Cod_podr))+CHR(13) ;
+'Cod_group: '+ALLTRIM(STR(lnCod_group))+CHR(13) ;
+'****************************************'+CHR(13)+lcSprav
lcServis_info = lcServis_info + CHR( 13 ) + lcAdd_Service_Info
IF lnDoc_type = 280 then
IF NOT lStatement then
lcDoc_num=''
ldDt_doc ={}
EndIf
EndIf
LOCAL oEx as Exception
TRY
BEGIN TRANSACTION
IF EMPTY(lnCod_doc)
INSERT INTO pers!Doc (Doc_type, Cod_tab, Doc_num, Dt_doc, ;
Dt_begin, Dt_end, Quantity_day, Doc_source, Info, ;
Cod_priv, Cod_work, n_tab, servis_info, Cod_movi, cod_group, ;
HolyCount, dt_year_begin, dt_year_end) ;
VALUES (lnDoc_type, lcCod_tab, lcDoc_num, ldDt_doc, ;
ldDt_begin, ldDt_end, lnQuantity_day, lcDoc_source, lcInfo, ;
lnCod_priv, lnCod_work, lcN_tab, lcServis_info, lnCod_movi, lnCod_group, ;
lnHolyCount, ldDt_year_begin, ldDt_year_end )
IF NOT EMPTY(lnCod_otp)
UPDATE pers!otpusk SET status=4 WHERE otpusk.Cod_otp==lnCod_otp
ENDIF
SELECT ('Doc')
lnCod_doc=GETAUTOINCVALUE(0)
IF EMPTY(lnCod_group)
UPDATE pers!Doc SET Cod_group=-lnCod_doc WHERE Doc.Cod_doc==lnCod_doc
ENDIF
ELSE
UPDATE pers!doc SET Doc_type=lnDoc_type, Cod_tab=lcCod_tab, Doc_num=lcDoc_num, ;
Dt_doc=ldDt_doc, Dt_begin=ldDt_begin, Dt_end=ldDt_end, ;
Quantity_day=lnQuantity_day, Doc_source=lcDoc_source, Info=lcInfo, ;
servis_info=lcServis_info, ;
Cod_priv=lnCod_priv, Cod_work=lnCod_work, n_tab=lcN_tab, Cod_movi=lnCod_movi, ;