unit u_rp_sales_profit2022;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, dxExEdtr, RxMemDS, DB, ADODB, Menus, XPMenu, bsSkinCtrls,
dxDBGrid, dxDBTLCl, dxGrClms, dxTL, dxDBCtrl, dxCntner, ComCtrls,DateUtils,
bsSkinTabs, ExtCtrls, StdCtrls, Mask, wwdbedit, Wwdotdot, Wwdbcomb,
kbmMemTable, kbmMemBinaryStreamFormat, wwdbdatetimepicker, RxLookup,IniFiles;
type
Tfrm_rp_sales_profit2022 = class(TForm)
Panel1: TPanel;
bsSkinPageControl1: TbsSkinPageControl;
bsSkinTabSheet1: TbsSkinTabSheet;
bsSkinTabSheet4: TbsSkinTabSheet;
bsSkinTabSheet6: TbsSkinTabSheet;
bsSkinPageControl2: TbsSkinPageControl;
bsSkinTabSheet11: TbsSkinTabSheet;
dxDBGrid1: TdxDBGrid;
dxDBGrid1Column5: TdxDBGridMaskColumn;
dxDBGrid1Column3: TdxDBGridMaskColumn;
dxDBGrid1Column4: TdxDBGridMaskColumn;
dxDBGrid1Column6: TdxDBGridDateColumn;
dxDBGrid1Column7: TdxDBGridMaskColumn;
dxDBGrid1Column8: TdxDBGridMaskColumn;
dxDBGrid1Column9: TdxDBGridMaskColumn;
dxDBGrid1Column10: TdxDBGridMaskColumn;
dxDBGrid1Column11: TdxDBGridMaskColumn;
dxDBGrid1Column24: TdxDBGridMaskColumn;
dxDBGrid1Column25: TdxDBGridMaskColumn;
dxDBGrid1Column26: TdxDBGridDateColumn;
dxDBGrid1Column31: TdxDBGridMaskColumn;
dxDBGrid1Column54: TdxDBGridMaskColumn;
dxDBGrid1Column55: TdxDBGridMaskColumn;
dxDBGrid1Column56: TdxDBGridColumn;
dxDBGrid1Column57: TdxDBGridColumn;
dxDBGrid11: TdxDBGridMaskColumn;
dxDBGrid12: TdxDBGridMaskColumn;
dxDBGrid13: TdxDBGridMaskColumn;
dxDBGrid14: TdxDBGridMaskColumn;
dxDBGrid15: TdxDBGridMaskColumn;
dxDBGrid16: TdxDBGridMaskColumn;
dxDBGrid17: TdxDBGridMaskColumn;
dxDBGrid18: TdxDBGridMaskColumn;
dxDBGrid19: TdxDBGridMaskColumn;
dxDBGrid110: TdxDBGridMaskColumn;
dxDBGrid1Column80: TdxDBGridMaskColumn;
dxDBGrid1TEU: TdxDBGridMaskColumn;
dxDBGrid1Column82: TdxDBGridMaskColumn;
dxDBGrid1Column83: TdxDBGridMaskColumn;
dxDBGrid1Column84: TdxDBGridDateColumn;
dxDBGrid1Column89: TdxDBGridMaskColumn;
dxDBGrid1Column90: TdxDBGridMaskColumn;
dxDBGrid1Column92: TdxDBGridMaskColumn;
dxDBGrid1Column85: TdxDBGridMaskColumn;
dxDBGrid1Column87: TdxDBGridMaskColumn;
dxDBGrid1Column86: TdxDBGridMaskColumn;
dxDBGrid1USD: TdxDBGridColumn;
dxDBGrid1RMB: TdxDBGridColumn;
dxDBGrid1Column102: TdxDBGridColumn;
dxDBGrid1Column105: TdxDBGridColumn;
dxDBGrid1Column108: TdxDBGridColumn;
dxDBGrid1Column111: TdxDBGridColumn;
dxDBGrid1Column114: TdxDBGridColumn;
dxDBGrid1Column115: TdxDBGridColumn;
dxDBGrid1Column116: TdxDBGridColumn;
dxDBGrid1Column117: TdxDBGridMaskColumn;
dxDBGrid2: TdxDBGrid;
dxDBGridMaskColumn93: TdxDBGridMaskColumn;
dxDBGrid1Column68: TdxDBGridColumn;
dxDBGrid1Column69: TdxDBGridColumn;
PopupMenu2: TPopupMenu;
N10: TMenuItem;
N11: TMenuItem;
N14: TMenuItem;
N13: TMenuItem;
N12: TMenuItem;
N15: TMenuItem;
N16: TMenuItem;
XPMenu2: TXPMenu;
bsSkinPanel1: TbsSkinPanel;
bsSkinPanel3: TbsSkinPanel;
kbmThreadDataSet1: TkbmThreadDataSet;
kbmBinaryStreamFormat1: TkbmBinaryStreamFormat;
memtblrpt_total: TkbmMemTable;
P_SUM: TkbmMemTable;
DataSource1: TDataSource;
DataSource4: TDataSource;
dxDBGrid1Column51: TdxDBGridColumn;
dxDBGrid1Column52: TdxDBGridColumn;
dxDBGrid1Column53: TdxDBGridColumn;
dxDBGrid1Column58: TdxDBGridColumn;
dxDBGrid1Column59: TdxDBGridColumn;
dxDBGrid2Column12: TdxDBGridColumn;
dxDBGrid2Column13: TdxDBGridColumn;
dxDBGrid2Column14: TdxDBGridColumn;
dxDBGrid2Column15: TdxDBGridColumn;
dxDBGrid2Column16: TdxDBGridColumn;
dxDBGrid2Column17: TdxDBGridColumn;
dxDBGrid2Column18: TdxDBGridColumn;
dxDBGrid2Column19: TdxDBGridColumn;
dxDBGrid1Column62: TdxDBGridColumn;
dxDBGrid9: TdxDBGrid;
dxDBGridMaskColumn77: TdxDBGridMaskColumn;
dxDBGridColumn27: TdxDBGridColumn;
dxDBGridColumn28: TdxDBGridColumn;
dxDBGridColumn29: TdxDBGridColumn;
dxDBGridColumn30: TdxDBGridColumn;
dxDBGridColumn31: TdxDBGridColumn;
dxDBGridColumn32: TdxDBGridColumn;
dxDBGridColumn33: TdxDBGridColumn;
dxDBGridColumn34: TdxDBGridColumn;
dxDBGridColumn35: TdxDBGridColumn;
dxDBGridColumn36: TdxDBGridColumn;
dxDBGridColumn37: TdxDBGridColumn;
dxDBGridColumn38: TdxDBGridColumn;
dxDBGridColumn39: TdxDBGridColumn;
dxDBGridColumn40: TdxDBGridColumn;
dxDBGridColumn41: TdxDBGridColumn;
dxDBGridColumn42: TdxDBGridColumn;
dxDBGridColumn43: TdxDBGridColumn;
dxDBGridColumn44: TdxDBGridColumn;
dxDBGridColumn45: TdxDBGridColumn;
dxDBGridColumn56: TdxDBGridColumn;
dxDBGrid2Column23: TdxDBGridColumn;
P_SUMField: TStringField;
P_SUMField2: TFloatField;
P_SUMField7: TFloatField;
P_SUMField8: TFloatField;
P_SUMField9: TFloatField;
P_SUMField10: TFloatField;
P_SUMField11: TFloatField;
P_SUMField12: TFloatField;
P_SUMField13: TFloatField;
P_SUMField16: TFloatField;
pnl1: TPanel;
bsSkinButton10: TbsSkinButton;
bsSkinButton9: TbsSkinButton;
bsSkinButton5: TbsSkinButton;
dxDBGrid2Column21: TdxDBGridColumn;
bsSkinGroupBox1: TbsSkinGroupBox;
bsSkinGroupBox2: TbsSkinGroupBox;
Label6: TLabel;
Edit1: TEdit;
Label1: TLabel;
Edit2: TEdit;
Label2: TLabel;
Label3: TLabel;
Edit3: TEdit;
Label4: TLabel;
Edit4: TEdit;
Label5: TLabel;
Edit5: TEdit;
Label7: TLabel;
Edit6: TEdit;
Label8: TLabel;
bsSkinGroupBox3: TbsSkinGroupBox;
Label9: TLabel;
Label10: TLabel;
Label11: TLabel;
Edit7: TEdit;
Edit8: TEdit;
wwDBComboBox2: TwwDBComboBox;
Label12: TLabel;
dxDBGrid1Column60: TdxDBGridColumn;
dxDBGrid1Column61: TdxDBGridColumn;
dxDBGrid1Column63: TdxDBGridColumn;
dxDBGrid1Column64: TdxDBGridColumn;
dxDBGrid1Column65: TdxDBGridColumn;
dxDBGrid1Column66: TdxDBGridColumn;
dxDBGrid1Column67: TdxDBGridColumn;
dxDBGrid1Column70: TdxDBGridColumn;
dxDBGrid1Column71: TdxDBGridColumn;
P_SUMA1: TFloatField;
P_SUMA2: TFloatField;
P_SUMField3: TFloatField;
P_SUMField4: TFloatField;
P_SUMField5: TFloatField;
dxDBGrid2Column20: TdxDBGridColumn;
dxDBGrid2Column22: TdxDBGridColumn;
dxDBGrid2Column24: TdxDBGridColumn;
dxDBGrid2Column25: TdxDBGridColumn;
dxDBGrid2Column26: TdxDBGridColumn;
dxDBGrid1Column72: TdxDBGridColumn;
procedure bsSkinButton5Click(Sender: TObject);
procedure FormClose(Sender: TObject; var Action: TCloseAction);
procedure FormShow(Sender: TObject);
procedure bsSkinButton9Click(Sender: TObject);
procedure N10Click(Sender: TObject);
procedure N14Click(Sender: TObject);
procedure N12Click(Sender: TObject);
procedure N16Click(Sender: TObject);
procedure bsSkinButton10Click(Sender: TObject);
procedure P_SUMAfterOpen(DataSet: TDataSet);
procedure memtblrpt_totalAfterOpen(DataSet: TDataSet);
private
procedure GetProfit;
procedure Getlx;
procedure Getcq;
procedure GetProfitSum;
function GetSALEprofit(SALE:string;aMonth:Integer;profit:Double;tuo:boolean):Double;
function GetBetwMonth(aBe,aEe:TDate):Integer;
function issameMonth(aBe,aEe:TDate):Boolean;
function gettotalprofit(sale:string):double;
{ Private declarations }
public
sqlstr:WideString;
{ Public declarations }
end;
var
frm_rp_sales_profit2022: Tfrm_rp_sales_profit2022;
rp_rp_total_open:boolean;
implementation
uses u_main, my_sys_function, u_rp_query, u_sys_progress,
u_data_share;
{$R *.dfm}
procedure Tfrm_rp_sales_profit2022.bsSkinButton5Click(Sender: TObject);
begin
close;
end;
function Tfrm_rp_sales_profit2022.GetSALEprofit(SALE:string;aMonth:Integer;profit:Double;tuo:boolean):Double;
begin
end;
procedure Tfrm_rp_sales_profit2022.FormClose(Sender: TObject;
var Action: TCloseAction);
begin
savereggrid(dxdbgrid1,caption+'1');
savereggrid(dxdbgrid2,caption+'2');
frm_rp_sales_profit2022.Hide;
frm_rp_sales_profit2022.ManualFloat(frm_rp_sales_profit2022.BoundsRect );
frm_main.freeTabs('frm_rp_sales_profit2022');
action:=cafree;
frm_rp_sales_profit2022:=nil;
end;
procedure Tfrm_rp_sales_profit2022.FormShow(Sender: TObject);
var
inifile1:Tinifile;
begin
inifile1:=Tinifile.Create(ExtractFilePath(application.ExeName)+'main.ini');
edit1.text:=inifile1.ReadString('TC2022','FA1DAY','17');
edit2.text:=inifile1.ReadString('TC2022','FABL1','15');
edit3.text:=inifile1.ReadString('TC2022','FABL2','10');
edit4.text:=inifile1.ReadString('TC2022','FBBL1','10');
edit5.text:=inifile1.ReadString('TC2022','FBBL2','10');
edit6.text:=inifile1.ReadString('TC2022','FBBL3','10');
edit7.text:=inifile1.ReadString('TC2022','SZKK','15');
edit8.text:=inifile1.ReadString('TC2022','SZTC','5');
inifile1.free;
loadreggrid(dxdbgrid1,true,caption+'1');
loadreggrid(dxdbgrid2,false,caption+'2');
end;
procedure Tfrm_rp_sales_profit2022.bsSkinButton9Click(Sender: TObject);
begin
sys_print('ҵ<> <D2B5> <EFBFBD> <EFBFBD> <EFBFBD> <EFBFBD> 2022',2,nil,nil,nil,DataSource4,DataSource1,nil,nil,nil,nil,nil,nil);
end;
procedure Tfrm_rp_sales_profit2022.N10Click(Sender: TObject);
begin
if bsSkinTabSheet1.Showing then begin
if bsSkinTabSheet11.Showing then
begin
update_grid_view_no(dxdbgrid1);
exit;
end;
end else begin
if bsSkinTabSheet4.Showing then
begin
update_grid_view_no(dxdbgrid2);
exit;
end;
end;
end;
procedure Tfrm_rp_sales_profit2022.N14Click(Sender: TObject);
begin
if bsSkinTabSheet1.Showing then begin
if bsSkinTabSheet11.Showing then
begin
update_grid_view_all(dxdbgrid1);
exit;
end;
end else begin
if bsSkinTabSheet4.Showing then
begin
update_grid_view_all(dxdbgrid2);
exit;
end;
end;
end;
procedure Tfrm_rp_sales_profit2022.N12Click(Sender: TObject);
begin
if bsSkinTabSheet1.Showing then
begin
if bsSkinTabSheet11.Showing then
begin
update_grid(dxdbgrid1,211);
exit;
end;
end;
if bsSkinTabSheet4.Showing then
begin
update_grid(dxdbgrid2,212);
exit;
end;
end;
procedure Tfrm_rp_sales_profit2022.N16Click(Sender: TObject);
begin
if bsSkinTabSheet1.Showing then begin
if bsSkinTabSheet11.Showing then
begin
grid_save_xls(dxdbgrid1);
exit;
end;
end else begin
if bsSkinTabSheet4.Showing then
begin
grid_save_xls(dxdbgrid2);
exit;
end;
end;
end;
procedure Tfrm_rp_sales_profit2022.bsSkinButton10Click(Sender: TObject);
var
betd,eetd:TDate;
aquery:TADOQuery;
str:String;
inifile1:Tinifile;
begin
inifile1:=Tinifile.Create(ExtractFilePath(application.ExeName)+'main.ini');
inifile1.WriteString('TC2022','FA1DAY',edit1.text);
inifile1.WriteString('TC2022','FABL1',edit2.text);
Inifile1.WriteString('TC2022','FABL2',edit3.text);
inifile1.WriteString('TC2022','FBBL1',edit4.text);
inifile1.WriteString('TC2022','FBBL2',edit5.text);
Inifile1.WriteString('TC2022','FBBL3',edit6.text);
inifile1.WriteString('TC2022','SZKK',edit7.text);
inifile1.WriteString('TC2022','SZTC',edit8.text);
inifile1.free;
if (Trim(wwDBComboBox2.text)='') then begin
ShowMessage('<27> <> <EFBFBD> <EFBFBD> ģ<EFBFBD> 岻<EFBFBD> <E5B2BB> Ϊ<EFBFBD> գ <EFBFBD> ');
exit;
end;
sqlstr:='';
query_seae(22,'0001');
sqlstr:=StringReplace(sqlstr,'t_op_seae','v_op_bscard_MAX_2022',[replaceAll]);
memtblrpt_total.EmptyTable;
P_SUM.EmptyTable;
aQuery:=CreateAdoQuery;
try
with aQuery do begin
aQuery.Close;
aquery.sql.Clear;
aquery.SQL.Add('select * from v_op_bscard_MAX_2022 ');
aquery.SQL.Add(sqlstr);
aquery.Open;
memtblrpt_total.LoadFromDataSet(aQuery,[mtcpostructure,mtcpoProperties,mtcpoFieldIndex]);
end;
GetProfit;
finally
FreeAndNil(aQuery);
end;
end;
procedure Tfrm_rp_sales_profit2022.GetProfit;
var
aQuery,aQuery3:TADOQuery;
aStlDate:TDate;
bYear,bMonth,bDate,eYear,eMonth,eDate:Word;
btMonth,l,d,Aday:Integer;
Abl1,Abl2,Bbl1,Bbl2,Bbl3,Szbl,Sztc:Double;
ED:Boolean;
begin
if not P_SUM.Active then
P_SUM.Open;
Aday:=StrToIntDef(Edit1.Text,0);
Abl1:=StrToFloatDef(Edit2.Text,0);
Abl2:=StrToFloatDef(Edit3.Text,0);
Bbl1:=StrToFloatDef(Edit4.Text,0);
Bbl2:=StrToFloatDef(Edit5.Text,0);
Bbl3:=StrToFloatDef(Edit6.Text,0);
Szbl:=StrToFloatDef(Edit7.Text,0);
Sztc:=StrToFloatDef(Edit8.Text,0);
if memtblrpt_total.RecordCount=0 then exit;
l:=memtblrpt_total.RecordCount;
if l=0 then l:=100;
memtblrpt_total.FieldByName('A<> <41> <EFBFBD> <EFBFBD> 1').ReadOnly:=false;
memtblrpt_total.FieldByName('A<> <41> <EFBFBD> <EFBFBD> 2').ReadOnly:=false;
memtblrpt_total.FieldByName('<27> <> <EFBFBD> ½<EFBFBD> <C2BD> <EFBFBD> ').ReadOnly:=false;
memtblrpt_total.FieldByName('<27> ζ<EFBFBD> <CEB6> ½<EFBFBD> <C2BD> <EFBFBD> ').ReadOnly:=false;
memtblrpt_total.FieldByName('<27> <> <EFBFBD> <EFBFBD> <EFBFBD> ½<EFBFBD> <C2BD> <EFBFBD> ').ReadOnly:=false;
memtblrpt_total.FieldByName('<27> <> <EFBFBD> <EFBFBD> <EFBFBD> <EFBFBD> <EFBFBD> <EFBFBD> ').ReadOnly:=false;
memtblrpt_total.FieldByName('<27> <> <EFBFBD> ˿۳<CBBF> ').ReadOnly:=false;
memtblrpt_total.FieldByName('<27> <> <EFBFBD> <EFBFBD> A<EFBFBD> <41> <EFBFBD> <EFBFBD> 1').ReadOnly:=false;
memtblrpt_total.FieldByName('<27> <> <EFBFBD> <EFBFBD> A<EFBFBD> <41> <EFBFBD> <EFBFBD> 2').ReadOnly:=false;
memtblrpt_total.FieldByName('<27> <> <EFBFBD> մ<EFBFBD> <D5B4> ½<EFBFBD> <C2BD> <EFBFBD> ').ReadOnly:=false;
memtblrpt_total.FieldByName('<27> <> <EFBFBD> մζ<D5B4> <CEB6> ½<EFBFBD> <C2BD> <EFBFBD> ').ReadOnly:=false;
memtblrpt_total.FieldByName('<27> <> <EFBFBD> մ<EFBFBD> <D5B4> <EFBFBD> <EFBFBD> ½<EFBFBD> <C2BD> <EFBFBD> ').ReadOnly:=false;
memtblrpt_total.FieldByName('<27> ؿ<EFBFBD> <D8BF> <EFBFBD> <EFBFBD> <EFBFBD> ').ReadOnly:=false;
try
if not ASSIGNED(frm_sys_progress) then
frm_sys_progress:=tfrm_sys_progress.Create(application);
frm_sys_progress.Show;
frm_sys_progress.bsSkinGauge1.MaxValue:=l;
frm_sys_progress.bsSkinGauge1.MinValue:=0;
frm_sys_progress.bsSkinGauge1.Value:=0;
frm_sys_progress.Update;
memtblrpt_total.First;
while not memtblrpt_total.eof do begin
memtblrpt_total.Edit;
if (memtblrpt_total.FieldByName('<27> ϼ<EFBFBD> Ӧ<EFBFBD> <D3A6> ').AsFloat=memtblrpt_total.FieldByName('<27> ϼ<EFBFBD> <CFBC> <EFBFBD> <EFBFBD> <EFBFBD> ').AsFloat) then begin
if (wwDBComboBox2.Text='A<> <41> <EFBFBD> <EFBFBD> ') then begin
memtblrpt_total.fieldbyname('<27> ؿ<EFBFBD> <D8BF> <EFBFBD> <EFBFBD> <EFBFBD> ').AsInteger:=DaysBetween(memtblrpt_total.FieldByName('<27> <> <EFBFBD> <EFBFBD> <EFBFBD> <EFBFBD> <EFBFBD> <EFBFBD> ').AsDateTime,memtblrpt_total.FieldByName('Ԥ<> <D4A4> <EFBFBD> <EFBFBD> <EFBFBD> <EFBFBD> ').AsDateTime);
if (memtblrpt_total.fieldbyname('<27> ؿ<EFBFBD> <D8BF> <EFBFBD> <EFBFBD> <EFBFBD> ').AsInteger<=Aday) then begin
memtblrpt_total.fieldbyname('A<> <41> <EFBFBD> <EFBFBD> 1').AsFloat:=memtblrpt_total.fieldbyname('ë<> <C3AB> <EFBFBD> <EFBFBD> ').AsFloat*Abl1/100;
memtblrpt_total.fieldbyname('<27> <> <EFBFBD> <EFBFBD> A<EFBFBD> <41> <EFBFBD> <EFBFBD> 1').AsFloat:=memtblrpt_total.fieldbyname('<27> ϼ<EFBFBD> <CFBC> <EFBFBD> <EFBFBD> <EFBFBD> ').AsFloat;
end else begin
memtblrpt_total.fieldbyname('A<> <41> <EFBFBD> <EFBFBD> 2').AsFloat:=memtblrpt_total.fieldbyname('ë<> <C3AB> <EFBFBD> <EFBFBD> ').AsFloat*Abl2/100;
memtblrpt_total.fieldbyname('<27> <> <EFBFBD> <EFBFBD> A<EFBFBD> <41> <EFBFBD> <EFBFBD> 2').AsFloat:=memtblrpt_total.fieldbyname('<27> ϼ<EFBFBD> <CFBC> <EFBFBD> <EFBFBD> <EFBFBD> ').AsFloat;
end;
end else if (wwDBComboBox2.Text='B<> <42> <EFBFBD> <EFBFBD> ') then begin
if (GetBetwMonth(memtblrpt_total.FieldByName('<27> <> <EFBFBD> <EFBFBD> <EFBFBD> <EFBFBD> <EFBFBD> <EFBFBD> ').AsDateTime,memtblrpt_total.FieldByName('Ԥ<> <D4A4> <EFBFBD> <EFBFBD> <EFBFBD> <EFBFBD> ').AsDateTime)<=1) then begin
memtblrpt_total.fieldbyname('<27> <> <EFBFBD> ½<EFBFBD> <C2BD> <EFBFBD> ').AsFloat:=memtblrpt_total.fieldbyname('ë<> <C3AB> <EFBFBD> <EFBFBD> ').AsFloat*Bbl1/100;
memtblrpt_total.fieldbyname('<27> <> <EFBFBD> մ<EFBFBD> <D5B4> ½<EFBFBD> <C2BD> <EFBFBD> ').AsFloat:=memtblrpt_total.fieldbyname('<27> ϼ<EFBFBD> <CFBC> <EFBFBD> <EFBFBD> <EFBFBD> ').AsFloat;
end else if (GetBetwMonth(memtblrpt_total.FieldByName('<27> <> <EFBFBD> <EFBFBD> <EFBFBD> <EFBFBD> <EFBFBD> <EFBFBD> ').AsDateTime,memtblrpt_total.FieldByName('Ԥ<> <D4A4> <EFBFBD> <EFBFBD> <EFBFBD> <EFBFBD> ').AsDateTime)<=2) then begin
memtblrpt_total.fieldbyname('<27> <> <EFBFBD> մζ<D5B4> <CEB6> ½<EFBFBD> <C2BD> <EFBFBD> ').AsFloat:=memtblrpt_total.fieldbyname('<27> ϼ<EFBFBD> <CFBC> <EFBFBD> <EFBFBD> <EFBFBD> ').AsFloat;
memtblrpt_total.fieldbyname('<27> ζ<EFBFBD> <CEB6> ½<EFBFBD> <C2BD> <EFBFBD> ').AsFloat:=memtblrpt_total.fieldbyname('ë<> <C3AB> <EFBFBD> <EFBFBD> ').AsFloat*Bbl2/100;
end else if (GetBetwMonth(memtblrpt_total.FieldByName('<27> <> <EFBFBD> <EFBFBD> <EFBFBD> <EFBFBD> <EFBFBD> <EFBFBD> ').AsDateTime,memtblrpt_total.FieldByName('Ԥ<> <D4A4> <EFBFBD> <EFBFBD> <EFBFBD> <EFBFBD> ').AsDateTime)<=6) then begin
memtblrpt_total.fieldbyname('<27> <> <EFBFBD> <EFBFBD> <EFBFBD> ½<EFBFBD> <C2BD> <EFBFBD> ').AsFloat:=memtblrpt_total.fieldbyname('ë<> <C3AB> <EFBFBD> <EFBFBD> ').AsFloat*Bbl3/100;
memtblrpt_total.fieldbyname('<27> <> <EFBFBD> մ<EFBFBD> <D5B4> <EFBFBD> <EFBFBD> ½<EFBFBD> <C2BD> <EFBFBD> ').AsFloat:=memtblrpt_total.fieldbyname('<27> ϼ<EFBFBD> <CFBC> <EFBFBD> <EFBFBD> <EFBFBD> ').AsFloat;
end;
end;
if (GetBetwMonth(Date,memtblrpt_total.FieldByName('Ԥ<> <D4A4> <EFBFBD> <EFBFBD> <EFBFBD> <EFBFBD> ').AsDateTime)>6) then begin
memtblrpt_total.fieldbyname('<27> <> <EFBFBD> <EFBFBD> <EFBFBD> <EFBFBD> <EFBFBD> <EFBFBD> ').AsFloat:=memtblrpt_total.fieldbyname('ë<> <C3AB> <EFBFBD> <EFBFBD> ').AsFloat*Sztc/100;
end;
end else begin
if (GetBetwMonth(Date,memtblrpt_total.FieldByName('Ԥ<> <D4A4> <EFBFBD> <EFBFBD> <EFBFBD> <EFBFBD> ').AsDateTime)>=6) then begin
memtblrpt_total.fieldbyname('<27> <> <EFBFBD> ˿۳<CBBF> ').AsFloat:=memtblrpt_total.fieldbyname('ë<> <C3AB> <EFBFBD> <EFBFBD> ').AsFloat*Szbl/100;
end;
end;
memtblrpt_total.Post;
if not P_SUM.Locate('<27> <> <EFBFBD> <EFBFBD> <EFBFBD> <EFBFBD> ',memtblrpt_total.fieldbyname('<27> <> <EFBFBD> <EFBFBD> <EFBFBD> <EFBFBD> ').asstring,[])then
begin
P_SUM.insert;
P_SUM['<27> <> <EFBFBD> <EFBFBD> <EFBFBD> <EFBFBD> ']:=memtblrpt_total.fieldbyname('<27> <> <EFBFBD> <EFBFBD> <EFBFBD> <EFBFBD> ').asstring;
P_SUM['A<> <41> <EFBFBD> <EFBFBD> 1']:=memtblrpt_total.fieldbyname('A<> <41> <EFBFBD> <EFBFBD> 1').AsFloat;
P_SUM['A<> <41> <EFBFBD> <EFBFBD> 2']:=memtblrpt_total.fieldbyname('A<> <41> <EFBFBD> <EFBFBD> 2').AsFloat;
P_SUM['<27> <> <EFBFBD> ½<EFBFBD> <C2BD> <EFBFBD> ']:=memtblrpt_total.fieldbyname('<27> <> <EFBFBD> ½<EFBFBD> <C2BD> <EFBFBD> ').AsFloat;
P_SUM['<27> ζ<EFBFBD> <CEB6> ½<EFBFBD> <C2BD> <EFBFBD> ']:=memtblrpt_total.fieldbyname('<27> ζ<EFBFBD> <CEB6> ½<EFBFBD> <C2BD> <EFBFBD> ').AsFloat;
P_SUM['<27> <> <EFBFBD> <EFBFBD> <EFBFBD> ½<EFBFBD> <C2BD> <EFBFBD> ']:=memtblrpt_total.fieldbyname('<27> <> <EFBFBD> <EFBFBD> <EFBFBD> ½<EFBFBD> <C2BD> <EFBFBD> ').AsFloat;
P_SUM['<27> <> <EFBFBD> ˿۳<CBBF> ']:=memtblrpt_total.fieldbyname('<27> <> <EFBFBD> ˿۳<CBBF> ').AsFloat;
P_SUM['<27> <> <EFBFBD> <EFBFBD> <EFBFBD> <EFBFBD> <EFBFBD> <EFBFBD> ']:=memtblrpt_total.fieldbyname('<27> <> <EFBFBD> <EFBFBD> <EFBFBD> <EFBFBD> <EFBFBD> <EFBFBD> ').AsFloat;
P_SUM['ë<> <C3AB> <EFBFBD> <EFBFBD> ']:=memtblrpt_total.fieldbyname('ë<> <C3AB> <EFBFBD> <EFBFBD> ').AsFloat;
P_SUM['<27> ϼ<EFBFBD> <CFBC> <EFBFBD> <EFBFBD> <EFBFBD> ']:=P_SUM['A<> <41> <EFBFBD> <EFBFBD> 1']+P_SUM['A<> <41> <EFBFBD> <EFBFBD> 2']+P_SUM['<27> <> <EFBFBD> ½<EFBFBD> <C2BD> <EFBFBD> ']+P_SUM['<27> ζ<EFBFBD> <CEB6> ½<EFBFBD> <C2BD> <EFBFBD> ']+P_SUM['<27> <> <EFBFBD> <EFBFBD> <EFBFBD> ½<EFBFBD> <C2BD> <EFBFBD> ']+P_SUM['<27> <> <EFBFBD> <EFBFBD> <EFBFBD> <EFBFBD> <EFBFBD> <EFBFBD> ']-P_SUM['<27> <> <EFBFBD> ˿۳<CBBF> '];
P_SUM.Post;
end
else
begin
P_SUM.edit;
P_SUM['<27> <> <EFBFBD> <EFBFBD> <EFBFBD> <EFBFBD> ']:=memtblrpt_total.fieldbyname('<27> <> <EFBFBD> <EFBFBD> <EFBFBD> <EFBFBD> ').asstring;
P_SUM['A<> <41> <EFBFBD> <EFBFBD> 1']:=P_SUM.fieldbyname('A<> <41> <EFBFBD> <EFBFBD> 1').AsFloat+memtblrpt_total.fieldbyname('A<> <41> <EFBFBD> <EFBFBD> 1').AsFloat;
P_SUM['A<> <41> <EFBFBD> <EFBFBD> 2']:=P_SUM.fieldbyname('A<> <41> <EFBFBD> <EFBFBD> 2').AsFloat+memtblrpt_total.fieldbyname('A<> <41> <EFBFBD> <EFBFBD> 2').AsFloat;
P_SUM['<27> <> <EFBFBD> ½<EFBFBD> <C2BD> <EFBFBD> ']:=P_SUM.fieldbyname('<27> <> <EFBFBD> ½<EFBFBD> <C2BD> <EFBFBD> ').AsFloat+memtblrpt_total.fieldbyname('<27> <> <EFBFBD> ½<EFBFBD> <C2BD> <EFBFBD> ').AsFloat;
P_SUM['<27> ζ<EFBFBD> <CEB6> ½<EFBFBD> <C2BD> <EFBFBD> ']:=P_SUM.fieldbyname('<27> ζ<EFBFBD> <CEB6> ½<EFBFBD> <C2BD> <EFBFBD> ').AsFloat+memtblrpt_total.fieldbyname('<27> ζ<EFBFBD> <CEB6> ½<EFBFBD> <C2BD> <EFBFBD> ').AsFloat;
P_SUM['<27> <> <EFBFBD> <EFBFBD> <EFBFBD> ½<EFBFBD> <C2BD> <EFBFBD> ']:=P_SUM.fieldbyname('<27> <> <EFBFBD> <EFBFBD> <EFBFBD> ½<EFBFBD> <C2BD> <EFBFBD> ').AsFloat+memtblrpt_total.fieldbyname('<27> <> <EFBFBD> <EFBFBD> <EFBFBD> ½<EFBFBD> <C2BD> <EFBFBD> ').AsFloat;
P_SUM['<27> <> <EFBFBD> ˿۳<CBBF> ']:=P_SUM.fieldbyname('<27> <> <EFBFBD> ˿۳<CBBF> ').AsFloat+memtblrpt_total.fieldbyname('<27> <> <EFBFBD> ˿۳<CBBF> ').AsFloat;
P_SUM['<27> <> <EFBFBD> <EFBFBD> <EFBFBD> <EFBFBD> <EFBFBD> <EFBFBD> ']:=P_SUM.fieldbyname('<27> <> <EFBFBD> <EFBFBD> <EFBFBD> <EFBFBD> <EFBFBD> <EFBFBD> ').AsFloat+memtblrpt_total.fieldbyname('<27> <> <EFBFBD> <EFBFBD> <EFBFBD> <EFBFBD> <EFBFBD> <EFBFBD> ').AsFloat;
P_SUM['ë<> <C3AB> <EFBFBD> <EFBFBD> ']:=P_SUM.fieldbyname('ë<> <C3AB> <EFBFBD> <EFBFBD> ').AsFloat+memtblrpt_total.fieldbyname('ë<> <C3AB> <EFBFBD> <EFBFBD> ').AsFloat;
P_SUM['<27> ϼ<EFBFBD> <CFBC> <EFBFBD> <EFBFBD> <EFBFBD> ']:=P_SUM['A<> <41> <EFBFBD> <EFBFBD> 1']+P_SUM['A<> <41> <EFBFBD> <EFBFBD> 2']+P_SUM['<27> <> <EFBFBD> ½<EFBFBD> <C2BD> <EFBFBD> ']+P_SUM['<27> ζ<EFBFBD> <CEB6> ½<EFBFBD> <C2BD> <EFBFBD> ']+P_SUM['<27> <> <EFBFBD> <EFBFBD> <EFBFBD> ½<EFBFBD> <C2BD> <EFBFBD> ']+P_SUM['<27> <> <EFBFBD> <EFBFBD> <EFBFBD> <EFBFBD> <EFBFBD> <EFBFBD> ']-P_SUM['<27> <> <EFBFBD> ˿۳<CBBF> '];
P_SUM.Post;
end;
frm_sys_progress.bsSkinGauge1.Value:=frm_sys_progress.bsSkinGauge1.Value+1;
memtblrpt_total.Next;
end;
finally
frm_sys_progress.bsSkinGauge1.Value:=frm_sys_progress.bsSkinGauge1.MaxValue;
frm_sys_progress.free;
frm_sys_progress:=nil;
FreeAndNil(aQuery);
FreeAndNil(aQuery3);
end;
end;
procedure Tfrm_rp_sales_profit2022.GetProfitSum;
begin
end;
procedure Tfrm_rp_sales_profit2022.Getlx;
begin
end;
function Tfrm_rp_sales_profit2022.GetBetwMonth(aBe, aEe: TDate): Integer;
var
bYear,bMonth,bDate,eYear,eMonth,eDate:Word;
begin
DecodeDate(aBe,bYear,bMonth,bDate);
DecodeDate(aEe,eYear,eMonth,eDate);
if bYear=eYear then
Result:=Abs(bMonth-eMonth)
else begin
if bYear>eYear then begin
Result:=bMonth+(12-eMonth);
end else begin
Result:=eMonth+(12-bMonth);
end;
end;
end;
function Tfrm_rp_sales_profit2022.issameMonth(aBe, aEe: TDate): Boolean;
begin
end;
procedure Tfrm_rp_sales_profit2022.Getcq;
begin
end;
procedure Tfrm_rp_sales_profit2022.P_SUMAfterOpen(DataSet: TDataSet);
begin
AdoFormatdxDBGrid(DataSet);
end;
procedure Tfrm_rp_sales_profit2022.memtblrpt_totalAfterOpen(DataSet: TDataSet);
begin
AdoFormatdxDBGrid(DataSet);
end;
function Tfrm_rp_sales_profit2022.gettotalprofit(sale: string): double;
begin
end;
end.
