📄 realtyc41a.pas
字号:
begin
s2:=query11.fieldbyname('编号').Value;
d:=query11.fieldbyname('建筑面积').AsVariant;
query1.SQL.Clear;
query1.SQL.Add('select * from 入伙登记 where 房间='''+s2+'''');
query1.Open;
if query1.RecordCount>0 then
begin
s3:=query1.fieldbyname('客户').Value;
query1.SQL.Clear;
query1.SQL.Add('select * from 客户资料 where 客户名称='''+s3+'''');
query1.Open;
if query1.RecordCount>0 then
begin
s3:=query1.fieldbyname('客户代码').Value;
end;
s9:='0';
query.SQL.Clear;
query.SQL.Add('select * from 房间收费项目设置 where 房间编号='''+s2+'''');
query.Open;
while not query.Eof do
begin
s4:=query.fieldbyname('收费项目编号').Value;
s5:=query.fieldbyname('收费标准编号').Value;
s:='select * from 收费项目 where 编号='''+s4;
s:=s+''' and 费用项目类型='''+'常规收费项目';
s:=s+'''';
query2.SQL.Clear;
query2.SQL.Add(s);
query2.Open;
if query2.RecordCount>0 then
begin
s:='select * from 收费标准 where 编号='''+query.fieldbyname('收费标准编号').Value;
s:=s+'''';
query2.SQL.Clear;
query2.SQL.Add(s);
query2.Open;
if query2.RecordCount>0 then
begin
s:='select * from 收费时间 where 编号='''+query2.fieldbyname('收费时间').Value;
s:=s+'''';
s9:=query2.fieldbyname('单价').Value;
s10:=Format('%.2f', [strtofloat(s9)*d]);
query2.SQL.Clear;
query2.SQL.Add(s);
query2.Open;
if query2.RecordCount>0 then
begin
if query2.fieldbyname('名称').Value='收当月' then
begin
s6:=query2.fieldbyname('收费日期').Value;
if strtoint(s6)<10 then s6:='0'+s6;
s6:=copy(datetostr(date),1,7)+'-'+ s6;
end;
if query2.fieldbyname('名称').Value='收上月' then
begin
if strtoint(query2.fieldbyname('收费日期').Value)<10 then s6:='0'+query2.fieldbyname('收费日期').Value
else s6:= query2.fieldbyname('收费日期').Value;
s7:=copy(datetostr(date),1,7)+'-01';
s7:=datetostr(strtodate(s7)-1);
s6:=copy(s7,1,7)+'-'+ s6;
end;
if query2.fieldbyname('名称').Value='收下月' then
begin
if strtoint(query2.fieldbyname('收费日期').Value)<10 then s6:='0'+query2.fieldbyname('收费日期').Value
else s6:= query2.fieldbyname('收费日期').Value;
s7:=copy(datetostr(date),1,7)+'-28';
s7:=datetostr(strtodate(s7)+4);
s6:=copy(s7,1,7)+'-'+ s6;
end;
if query2.fieldbyname('名称').Value='指定月' then
begin
s6:=query2.fieldbyname('收费日期').Value;
if strtoint(s6)<10 then s6:='0'+s6;
s6:=copy(datetostr(date),1,7)+'-'+ s6;
s:='select * from 收费时间明细 where 编号='''+query2.fieldbyname('编号').Value;
s:=s+''' and 月份='''+copy(copy(datetostr(date),1,7),6,2);
s:=s+'''';
query2.SQL.Clear;
query2.SQL.Add(s);
query2.Open;
if query2.RecordCount=0 then s6:='';
end;
end;
end;
s := 'select top 1 * from 常规费用 ORDER BY 单号 DESC';
query1.SQL.Clear;
Query1.SQL.Add(s);
Query1.Open ;
if query1.recordcount > 0 then
begin
s:= Query1.Fieldbyname('单号').AsString;
s:= Copy(S, 1, 7);
i:= strtoint(s)+1;
if i<10 then s1 := '000000'+inttostr(i)
else if (i > 9) and (i<100) then s1 := '00000'+inttostr(i)
else if (i > 99) and (i<1000) then s1 := '0000'+inttostr(i)
else if (i > 999) and (i<10000) then s1 := '000'+inttostr(i)
else if (i > 9999) and (i<100000) then s1 := '00'+inttostr(i)
else if (i > 99999) and (i<1000000) then s1 := '0'+inttostr(i)
else if i>999999 then s3 := inttostr(i);
end
else s1 := '0000001';
s:='select * from 常规费用 where 收费月份='''+copy(datetostr(DateTimePicker1.Date),1,7);
s:=s+''' and 房间='''+s2+''' and 收费项目='''+s4;
s:=s+'''';
query1.SQL.clear;
query1.SQL.Add(s);
query1.Open;
if (query1.RecordCount=0) and (s6<>'')then
begin
s:='insert into 常规费用 (单号,房间,客户,收费项目,收费标准,';
s:=s+'应收日期,计费开始日期,计费结束日期,单价,金额,';
s:=s+'优惠金额,优惠后金额,滞纳金截至日期,滞纳金天数,滞纳金,';
s:=s+'减免缴滞纳金,应收滞纳金,收取滞纳金,应收金额,已收金额,';
s:=s+'已收全,收全日期,收取费用类型,备注,制单人,';
s:=s+'修订人,自动生成类别,收费月份)';
s:=s+'values (:s1,:s2,:s3,:s4,:s5,';
s:=s+':s6,:s7,:s8,:s9,:s10,';
s:=s+':s11,:s12,:s13,:s14,:s15,';
s:=s+':s16,:s17,:s18,:s19,:s20,';
s:=s+':s21,:s22,:s23,:s24,:s25,';
s:=s+':s26,:s27,:s28)';
query1.SQL.Clear;
query1.SQL.Add(s);
query1.Parameters.ParamByName('s1').Value:=s1;
query1.Parameters.ParamByName('s2').Value:=s2;
query1.Parameters.ParamByName('s3').Value:=s3;
query1.Parameters.ParamByName('s4').Value:=s4;
query1.Parameters.ParamByName('s5').Value:=s5;
query1.Parameters.ParamByName('s6').Value:=s6;
query1.Parameters.ParamByName('s7').Value:=datetostr(date);
query1.Parameters.ParamByName('s8').Value:=datetostr(date);
query1.Parameters.ParamByName('s9').Value:=s9;
query1.Parameters.ParamByName('s10').Value:=s10;
query1.Parameters.ParamByName('s11').Value:=0;
query1.Parameters.ParamByName('s12').Value:=0;
query1.Parameters.ParamByName('s13').Value:=datetostr(date);
query1.Parameters.ParamByName('s14').Value:=0;
query1.Parameters.ParamByName('s15').Value:=0;
query1.Parameters.ParamByName('s16').Value:=0;
query1.Parameters.ParamByName('s17').Value:=0;
query1.Parameters.ParamByName('s18').Value:=0;
query1.Parameters.ParamByName('s19').Value:=s10;
query1.Parameters.ParamByName('s20').Value:=0;
query1.Parameters.ParamByName('s21').Value:='N';
query1.Parameters.ParamByName('s22').Value:=datetostr(Date);
query1.Parameters.ParamByName('s23').Value:='-';
query1.Parameters.ParamByName('s24').Value:='-';
query1.Parameters.ParamByName('s25').Value:=czy;
query1.Parameters.ParamByName('s26').Value:='-';
query1.Parameters.ParamByName('s27').Value:=ss;
query1.Parameters.ParamByName('s28').Value:=copy(datetostr(DateTimePicker1.Date),1,7);
DataModuleADO.ADOConnection1.BeginTrans;
query1.ExecSQL;
DataModuleADO.ADOConnection1.CommitTrans;
bGetdata:=true;
end;
end;
query.Next;
end;
end;
query11.Next;
end;
end;
if bGetdata=true then showmessage('保存成功');
end;
procedure Tf_RealtyC41A.Button5Click(Sender: TObject);
begin
close;
end;
procedure Tf_RealtyC41A.Button1Click(Sender: TObject);
begin
if (edit5.Text<>'') or (edit8.text<>'') then
begin
showmessage('你已经选择了所要批量生成的单位');
exit;
end;
f_realtyI11C:=Tf_realtyI11C.Create(self);
f_RealtyI11C.button1.Visible:=true;
f_realtyI11C.ShowModal;
if f_realtyI11C.bOk=true then
begin
edit7.Text:=f_RealtyI11C.sNum+'--'+f_RealtyI11C.sName;
end;
end;
procedure Tf_RealtyC41A.Button2Click(Sender: TObject);
begin
if (edit7.Text<>'') or (edit8.text<>'') then
begin
showmessage('你已经选择了所要批量生成的单位');
exit;
end;
f_RealtyA11:=Tf_RealtyA11.Create(self);
f_RealtyA11.ToolButton6.Visible:=true;
f_RealtyA11.ShowModal;
if f_RealtyA11.bOk=true then
begin
edit5.Text:=f_RealtyA11.sNum+'--'+f_RealtyA11.sName;
end;
end;
procedure Tf_RealtyC41A.Button3Click(Sender: TObject);
begin
if (edit7.Text<>'') or (edit5.text<>'') then
begin
showmessage('你已经选择了所要批量生成的单位');
exit;
end;
f_RealtyA12:=Tf_RealtyA12.Create(self);
f_RealtyA12.ToolButton6.Visible:=true;
f_RealtyA12.ShowModal;
if f_RealtyA12.bOk=true then
begin
edit8.Text:=f_RealtyA12.sNum+'--'+f_RealtyA12.sName;
end;
end;
procedure Tf_RealtyC41A.FormCreate(Sender: TObject);
begin
datetimepicker1.date:=date;
end;
end.
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -