Програмне забезпеченння для адміністрування комп'ютерного клубу, страница 21

if cash-hrns*100-cops<0 then begin

Лист

№докум.

Дата

Изм.

Подп.

Лист

ИАЛЦ.467.449.001.ПЗ

showmessage('В кассе нет столько денег');

givetime.seHrns.setfocus;

exit

end;

if (hrns=0)and(cops=0) then begin

showmessage('Нельзя взять нулевую сумму');

givetime.seHrns.setfocus;

exit

end;

givetime.modalresult:=mrOk

end;

procedure CH_CardName;

var st:string;

begin

st:=givetime.edCardname.text;

if getcardindexbyname(st)<>0 then begin

showmessage('Данное название уже существует');

givetime.edCardname.setfocus;

exit

end;

if st='' then begin

showmessage('Введите название карточки');

givetime.edCardname.setfocus;

exit

end;

givetime.modalresult:=mrOk

end;

procedure CH_PutToCash;

begin

if (givetime.seHrns.value=0)and(givetime.seCops.value=0) then begin

showmessage('Нельзя добавить нулевую сумму');

givetime.seHrns.setfocus;

exit

end;

givetime.modalresult:=mrOk

end;

procedure CH_AddTimeToCard;

var minsoncard,minstoremove:cardinal;

st1,st2:string;

begin

if (givetime.seHours.value=0)and(givetime.seMins.value=0) then begin

showmessage('Нельзя добавлять нулевое время');

givetime.seHours.setfocus;

exit

end;

if givetime.cxFromCard.checked then begin

if givetime.cbComps.text='' then begin

showmessage('Нет карточки, с которой можно снять время');

exit

end;

minsoncard:=cardgetminson(givetime.cbcomps.text);

minstoremove:=givetime.seHours.value*60+givetime.seMins.value;

if minsoncard<minstoremove then begin

st1:=inttostr(minstoremove div 60)+':'+zerostring(minstoremove mod 60);

st2:=inttostr(minsoncard div 60)+':'+zerostring(minsoncard mod 60);

showmessage('С карточки '+givetime.cbcomps.text+' нельзя снять время '+st1+', так как на ней осталось только '+st2);

givetime.seHours.setfocus;

exit

end

end;

givetime.modalresult:=mrOk

end;

procedure CH_DelTimeFromCard;

var badformattimedel,badformattimeon:cardinal;

st:string;

begin

if (givetime.seHours.value=0)and(givetime.seMins.value=0) then begin

showmessage('Нельзя отнимать нулевое время');

givetime.seHours.setfocus;

exit

end;

//Check for time to del be less or equal

//time on card

badformattimedel:=givetime.sehours.value*100+givetime.semins.value;

st:=cardsgetstring(CARD_HOURMINS,form1.pmCards.tag);

delete(st,length(st)-2,1);

badformattimeon:=strtoint(st);

if badformattimedel>badformattimeon then begin

showmessage('На карточке нет столько времени');

givetime.seHours.setfocus;

exit

end;

givetime.modalresult:=mrOk

end;

procedure GT_UpdateForeverTime;

begin

givetime.lbhours.visible:=false;

givetime.lbmins.visible:=false;

givetime.sehours.visible:=false;

givetime.semins.visible:=false;

givetime.seHrns.enabled:=true;

givetime.seCops.enabled:=true;

givetime.seHrns.visible:=true;

givetime.seCops.visible:=true;

givetime.lbpayed.visible:=true;

givetime.cbComps.visible:=false;

givetime.lbComps.visible:=false;

givetime.cxFromCard.visible:=false;

givetime.lbCardname.visible:=false;

givetime.edCardname.visible:=false;

givetime.sehours.value:=0;

givetime.semins.value:=0;

givetime.sehrns.value:=0;

givetime.secops.value:=0;

givetime.sehours.maxvalue:=99;

restoredefpos;

givetime.lbComments.top:=def[LB_COMPS].b;

givetime.edComments.top:=givetime.lbComments.top+def[ED_COMMENTS].b-def[LB_COMMENTS].b;

givetime.btOk.top:=givetime.edComments.top+def[BT_OK].b-def[ED_COMMENTS].b;

givetime.btCancel.top:=givetime.btOk.top;

movecontrols(givetime.lbPayed.top);

if tag_info.atag=ATG_GETFROMCASH then checkproc:=CH_GetFromCash;

if tag_info.atag=ATG_PUTTOCASH then checkproc:=CH_PutToCash;

if tag_info.atag=ATG_PUTNIGHTCASH then checkproc:=CH_PutToCash

end;

end.