Re: Остатки МЦ. Кто как когда считает
Добавлено: 11 янв 2011, 11:32
Просто решил выложит небольшие изменения к исходнику который создал автор (заранее извиняюсь но делал для 712)
У автора считает на последний день текущего месяца, а если в текущем месяце делают движения материалов уже на начало следующего месяца (не знаю у кого как у нас такое бывает) то...
Interface RAS_Tek_OST alwaysreturn;
var
Dat_Ras: Date
Last_DayR,Last_MesR : String
Last_YR : String
view
As Select * from Sporder;
handleEvent
cminit:{
Last_DayR := String(LAST_DAY(Cur_Date));
Last_MesR := String(MONTH(Cur_Date));
Last_YR := String(YEAR(Cur_Date));
IF Length(TRIM(Last_MesR)) = 1 THEN Last_MesR := '0'+Last_MesR;
Dat_Ras := StrToDATE((Last_DayR+'/'+Last_MesR+'/'+Last_YR),'DD/MM/YYYY');
//--проверка на наличие движения после даты расчета текущих остатков
if RecordExists SpOrder where ((Dat_Ras << SpOrder.dOrd))=tsOk then
Dat_Ras := StrToDATE((String(LAST_DAY(SpOrder.dOrd))+'/'
+String(MONTH(SpOrder.dOrd))+'/'+String(YEAR(sporder.dord))),'DD/MM/YYYY');
runinterface(TekSRas,Dat_Ras,1,0);
Abort;
}
end;
end.
Вот как то так, может быть кому пригодится...
У автора считает на последний день текущего месяца, а если в текущем месяце делают движения материалов уже на начало следующего месяца (не знаю у кого как у нас такое бывает) то...
Interface RAS_Tek_OST alwaysreturn;
var
Dat_Ras: Date
Last_DayR,Last_MesR : String
Last_YR : String
view
As Select * from Sporder;
handleEvent
cminit:{
Last_DayR := String(LAST_DAY(Cur_Date));
Last_MesR := String(MONTH(Cur_Date));
Last_YR := String(YEAR(Cur_Date));
IF Length(TRIM(Last_MesR)) = 1 THEN Last_MesR := '0'+Last_MesR;
Dat_Ras := StrToDATE((Last_DayR+'/'+Last_MesR+'/'+Last_YR),'DD/MM/YYYY');
//--проверка на наличие движения после даты расчета текущих остатков
if RecordExists SpOrder where ((Dat_Ras << SpOrder.dOrd))=tsOk then
Dat_Ras := StrToDATE((String(LAST_DAY(SpOrder.dOrd))+'/'
+String(MONTH(SpOrder.dOrd))+'/'+String(YEAR(sporder.dord))),'DD/MM/YYYY');
runinterface(TekSRas,Dat_Ras,1,0);
Abort;
}
end;
end.
Вот как то так, может быть кому пригодится...