|
|
unit u_rp_no_total_com;
|
|
|
|
|
|
interface
|
|
|
|
|
|
uses
|
|
|
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
|
|
|
Dialogs, bsSkinCtrls, ExtCtrls, ComCtrls, bsSkinTabs, DB, ADODB,
|
|
|
dxExEdtr, dxDBTLCl, dxGrClms, dxDBGrid, dxTL, dxDBCtrl, dxCntner, Menus,
|
|
|
StdCtrls, Grids, DBGrids, kbmMemTable, wwdbdatetimepicker, RxLookup;
|
|
|
|
|
|
type
|
|
|
Tfrm_rp_no_total_com = class(TForm)
|
|
|
Panel1: TPanel;
|
|
|
bsSkinPanel2: TbsSkinPanel;
|
|
|
bsSkinButton10: TbsSkinButton;
|
|
|
bsSkinButton9: TbsSkinButton;
|
|
|
bsSkinButton1: TbsSkinButton;
|
|
|
bsSkinButton5: TbsSkinButton;
|
|
|
bsSkinCheckRadioBox1: TbsSkinCheckRadioBox;
|
|
|
bsSkinCheckRadioBox2: TbsSkinCheckRadioBox;
|
|
|
bsSkinCheckRadioBox3: TbsSkinCheckRadioBox;
|
|
|
p_total: TADOStoredProc;
|
|
|
p_total1: TDataSource;
|
|
|
p_total_client1: TDataSource;
|
|
|
p_total_client: TADOStoredProc;
|
|
|
p_total_sales: TADOStoredProc;
|
|
|
p_total_sales1: TDataSource;
|
|
|
SaveDialog: TSaveDialog;
|
|
|
bsSkinPageControl4: TbsSkinPageControl;
|
|
|
bsSkinTabSheet1: TbsSkinTabSheet;
|
|
|
bsSkinTabSheet2: TbsSkinTabSheet;
|
|
|
dxDBGrid1: TdxDBGrid;
|
|
|
dxDBGridMaskColumn95: TdxDBGridMaskColumn;
|
|
|
dxDBGrid1Column23: TdxDBGridColumn;
|
|
|
dxDBGridColumn17: TdxDBGridColumn;
|
|
|
dxDBGridColumn18: TdxDBGridColumn;
|
|
|
dxDBGridColumn19: TdxDBGridColumn;
|
|
|
dxDBGridColumn20: TdxDBGridColumn;
|
|
|
dxDBGridColumn21: TdxDBGridColumn;
|
|
|
dxDBGridColumn22: TdxDBGridColumn;
|
|
|
dxDBGridColumn23: TdxDBGridColumn;
|
|
|
dxDBGridColumn24: TdxDBGridColumn;
|
|
|
dxDBGridColumn25: TdxDBGridColumn;
|
|
|
dxDBGridColumn26: TdxDBGridColumn;
|
|
|
dxDBGridColumn27: TdxDBGridColumn;
|
|
|
dxDBGridColumn28: TdxDBGridColumn;
|
|
|
dxDBGridColumn29: TdxDBGridColumn;
|
|
|
dxDBGridColumn30: TdxDBGridColumn;
|
|
|
dxDBGridColumn31: TdxDBGridColumn;
|
|
|
dxDBGridColumn32: TdxDBGridColumn;
|
|
|
dxDBGridColumn33: TdxDBGridColumn;
|
|
|
dxDBGridColumn34: TdxDBGridColumn;
|
|
|
dxDBGridColumn35: TdxDBGridColumn;
|
|
|
dxDBGridColumn36: TdxDBGridColumn;
|
|
|
dxDBGridColumn37: TdxDBGridColumn;
|
|
|
dxDBGrid2: TdxDBGrid;
|
|
|
dxDBGridMaskColumn96: TdxDBGridMaskColumn;
|
|
|
dxDBGrid2Column23: TdxDBGridColumn;
|
|
|
dxDBGridColumn38: TdxDBGridColumn;
|
|
|
dxDBGridColumn39: TdxDBGridColumn;
|
|
|
dxDBGridColumn40: TdxDBGridColumn;
|
|
|
dxDBGridColumn41: TdxDBGridColumn;
|
|
|
dxDBGridColumn42: TdxDBGridColumn;
|
|
|
dxDBGridColumn43: TdxDBGridColumn;
|
|
|
dxDBGridColumn44: TdxDBGridColumn;
|
|
|
dxDBGridColumn45: TdxDBGridColumn;
|
|
|
dxDBGridColumn46: TdxDBGridColumn;
|
|
|
dxDBGridColumn47: TdxDBGridColumn;
|
|
|
dxDBGridColumn48: TdxDBGridColumn;
|
|
|
dxDBGridColumn49: TdxDBGridColumn;
|
|
|
dxDBGridColumn50: TdxDBGridColumn;
|
|
|
dxDBGridColumn51: TdxDBGridColumn;
|
|
|
dxDBGridColumn52: TdxDBGridColumn;
|
|
|
dxDBGridColumn53: TdxDBGridColumn;
|
|
|
dxDBGridColumn54: TdxDBGridColumn;
|
|
|
dxDBGridColumn55: TdxDBGridColumn;
|
|
|
dxDBGridColumn56: TdxDBGridColumn;
|
|
|
dxDBGridColumn57: TdxDBGridColumn;
|
|
|
dxDBGridColumn58: TdxDBGridColumn;
|
|
|
bsSkinTabSheet4: TbsSkinTabSheet;
|
|
|
bsSkinTabSheet5: TbsSkinTabSheet;
|
|
|
bsSkinTabSheet6: TbsSkinTabSheet;
|
|
|
bsSkinTabSheet7: TbsSkinTabSheet;
|
|
|
p_accept_bill1: TDataSource;
|
|
|
p_accept_fee: TADOStoredProc;
|
|
|
p_accept_fee1: TDataSource;
|
|
|
p_pay_bill: TADOStoredProc;
|
|
|
p_pay_bill1: TDataSource;
|
|
|
p_pay_fee: TADOStoredProc;
|
|
|
p_pay_fee1: TDataSource;
|
|
|
dxDBGrid4: TdxDBGrid;
|
|
|
dxDBGrid1Column1: TdxDBGridMaskColumn;
|
|
|
dxDBGrid1Column54: TdxDBGridMaskColumn;
|
|
|
dxDBGrid1Column13: TdxDBGridMaskColumn;
|
|
|
dxDBGrid1Column15: TdxDBGridMaskColumn;
|
|
|
dxDBGrid1Column4: TdxDBGridColumn;
|
|
|
dxDBGrid1Column7: TdxDBGridColumn;
|
|
|
dxDBGrid1Column10: TdxDBGridColumn;
|
|
|
dxDBGrid1Column61: TdxDBGridColumn;
|
|
|
dxDBGrid5: TdxDBGrid;
|
|
|
dxDBGrid3Column1: TdxDBGridMaskColumn;
|
|
|
dxDBGrid3Column2: TdxDBGridMaskColumn;
|
|
|
dxDBGrid3Column3: TdxDBGridMaskColumn;
|
|
|
dxDBGrid3Column4: TdxDBGridMaskColumn;
|
|
|
dxDBGrid3Column5: TdxDBGridMaskColumn;
|
|
|
dxDBGrid3Column6: TdxDBGridMaskColumn;
|
|
|
dxDBGrid3Column7: TdxDBGridMaskColumn;
|
|
|
dxDBGrid3Column8: TdxDBGridColumn;
|
|
|
dxDBGrid3Column9: TdxDBGridColumn;
|
|
|
dxDBGrid3Column10: TdxDBGridColumn;
|
|
|
dxDBGrid3Column11: TdxDBGridDateColumn;
|
|
|
dxDBGrid3Column59: TdxDBGridColumn;
|
|
|
dxDBGrid3Column12: TdxDBGridMaskColumn;
|
|
|
dxDBGrid3Column13: TdxDBGridMaskColumn;
|
|
|
dxDBGrid3Column15: TdxDBGridMaskColumn;
|
|
|
dxDBGrid3Column16: TdxDBGridMaskColumn;
|
|
|
dxDBGrid3Column18: TdxDBGridMaskColumn;
|
|
|
dxDBGrid3Column17: TdxDBGridMaskColumn;
|
|
|
dxDBGrid3Column19: TdxDBGridDateColumn;
|
|
|
dxDBGrid3Column20: TdxDBGridMaskColumn;
|
|
|
dxDBGrid3Column21: TdxDBGridMaskColumn;
|
|
|
dxDBGridMaskColumn2: TdxDBGridMaskColumn;
|
|
|
dxDBGrid3Column23: TdxDBGridMaskColumn;
|
|
|
dxDBGrid3Column24: TdxDBGridMaskColumn;
|
|
|
dxDBGrid3Column25: TdxDBGridColumn;
|
|
|
dxDBGrid3Column26: TdxDBGridColumn;
|
|
|
dxDBGrid31: TdxDBGridMaskColumn;
|
|
|
dxDBGrid32: TdxDBGridMaskColumn;
|
|
|
dxDBGrid33: TdxDBGridMaskColumn;
|
|
|
dxDBGrid34: TdxDBGridMaskColumn;
|
|
|
dxDBGrid35: TdxDBGridMaskColumn;
|
|
|
dxDBGrid36: TdxDBGridMaskColumn;
|
|
|
dxDBGrid37: TdxDBGridMaskColumn;
|
|
|
dxDBGrid38: TdxDBGridMaskColumn;
|
|
|
dxDBGrid39: TdxDBGridMaskColumn;
|
|
|
dxDBGrid310: TdxDBGridMaskColumn;
|
|
|
dxDBGrid3Column47: TdxDBGridMaskColumn;
|
|
|
dxDBGrid3TEU: TdxDBGridMaskColumn;
|
|
|
dxDBGrid3Column49: TdxDBGridMaskColumn;
|
|
|
dxDBGrid3Column50: TdxDBGridMaskColumn;
|
|
|
dxDBGrid3Column51: TdxDBGridMaskColumn;
|
|
|
dxDBGrid3Column52: TdxDBGridMaskColumn;
|
|
|
dxDBGrid3Column53: TdxDBGridMaskColumn;
|
|
|
dxDBGrid3Column54: TdxDBGridMaskColumn;
|
|
|
dxDBGrid3Column55: TdxDBGridMaskColumn;
|
|
|
dxDBGrid3Column56: TdxDBGridMaskColumn;
|
|
|
dxDBGrid3Column57: TdxDBGridColumn;
|
|
|
dxDBGrid3Column58: TdxDBGridColumn;
|
|
|
dxDBGrid3Column60: TdxDBGridColumn;
|
|
|
dxDBGrid3Column61: TdxDBGridColumn;
|
|
|
dxDBGrid3Column62: TdxDBGridColumn;
|
|
|
dxDBGrid3Column63: TdxDBGridColumn;
|
|
|
dxDBGrid3Column64: TdxDBGridColumn;
|
|
|
dxDBGrid3Column65: TdxDBGridColumn;
|
|
|
dxDBGrid6: TdxDBGrid;
|
|
|
dxDBGridMaskColumn3: TdxDBGridMaskColumn;
|
|
|
dxDBGridMaskColumn4: TdxDBGridMaskColumn;
|
|
|
dxDBGridMaskColumn5: TdxDBGridMaskColumn;
|
|
|
dxDBGridMaskColumn6: TdxDBGridMaskColumn;
|
|
|
dxDBGridMaskColumn7: TdxDBGridMaskColumn;
|
|
|
dxDBGridColumn5: TdxDBGridColumn;
|
|
|
dxDBGridColumn6: TdxDBGridColumn;
|
|
|
dxDBGridColumn7: TdxDBGridColumn;
|
|
|
dxDBGridColumn8: TdxDBGridColumn;
|
|
|
dxDBGridColumn9: TdxDBGridColumn;
|
|
|
dxDBGridColumn10: TdxDBGridColumn;
|
|
|
dxDBGridColumn11: TdxDBGridColumn;
|
|
|
dxDBGridColumn80: TdxDBGridColumn;
|
|
|
dxDBGridColumn81: TdxDBGridColumn;
|
|
|
dxDBGridDateColumn1: TdxDBGridDateColumn;
|
|
|
dxDBGridColumn82: TdxDBGridColumn;
|
|
|
dxDBGridMaskColumn8: TdxDBGridMaskColumn;
|
|
|
dxDBGridMaskColumn9: TdxDBGridMaskColumn;
|
|
|
dxDBGridMaskColumn10: TdxDBGridMaskColumn;
|
|
|
dxDBGridMaskColumn11: TdxDBGridMaskColumn;
|
|
|
dxDBGridMaskColumn12: TdxDBGridMaskColumn;
|
|
|
dxDBGridMaskColumn13: TdxDBGridMaskColumn;
|
|
|
dxDBGridDateColumn2: TdxDBGridDateColumn;
|
|
|
dxDBGridMaskColumn14: TdxDBGridMaskColumn;
|
|
|
dxDBGridMaskColumn15: TdxDBGridMaskColumn;
|
|
|
dxDBGridMaskColumn16: TdxDBGridMaskColumn;
|
|
|
dxDBGridMaskColumn17: TdxDBGridMaskColumn;
|
|
|
dxDBGridMaskColumn18: TdxDBGridMaskColumn;
|
|
|
dxDBGridColumn83: TdxDBGridColumn;
|
|
|
dxDBGridColumn84: TdxDBGridColumn;
|
|
|
dxDBGridMaskColumn19: TdxDBGridMaskColumn;
|
|
|
dxDBGridMaskColumn20: TdxDBGridMaskColumn;
|
|
|
dxDBGridMaskColumn21: TdxDBGridMaskColumn;
|
|
|
dxDBGridMaskColumn22: TdxDBGridMaskColumn;
|
|
|
dxDBGridMaskColumn23: TdxDBGridMaskColumn;
|
|
|
dxDBGridMaskColumn24: TdxDBGridMaskColumn;
|
|
|
dxDBGridMaskColumn25: TdxDBGridMaskColumn;
|
|
|
dxDBGridMaskColumn26: TdxDBGridMaskColumn;
|
|
|
dxDBGridMaskColumn27: TdxDBGridMaskColumn;
|
|
|
dxDBGridMaskColumn28: TdxDBGridMaskColumn;
|
|
|
dxDBGridMaskColumn29: TdxDBGridMaskColumn;
|
|
|
dxDBGridMaskColumn30: TdxDBGridMaskColumn;
|
|
|
dxDBGridMaskColumn31: TdxDBGridMaskColumn;
|
|
|
dxDBGridMaskColumn32: TdxDBGridMaskColumn;
|
|
|
dxDBGridMaskColumn33: TdxDBGridMaskColumn;
|
|
|
dxDBGridMaskColumn34: TdxDBGridMaskColumn;
|
|
|
dxDBGridMaskColumn35: TdxDBGridMaskColumn;
|
|
|
dxDBGridMaskColumn36: TdxDBGridMaskColumn;
|
|
|
dxDBGridMaskColumn37: TdxDBGridMaskColumn;
|
|
|
dxDBGridMaskColumn38: TdxDBGridMaskColumn;
|
|
|
dxDBGridColumn85: TdxDBGridColumn;
|
|
|
dxDBGridColumn86: TdxDBGridColumn;
|
|
|
dxDBGridColumn87: TdxDBGridColumn;
|
|
|
dxDBGridColumn88: TdxDBGridColumn;
|
|
|
dxDBGrid7: TdxDBGrid;
|
|
|
dxDBGridMaskColumn47: TdxDBGridMaskColumn;
|
|
|
dxDBGridMaskColumn48: TdxDBGridMaskColumn;
|
|
|
dxDBGridMaskColumn49: TdxDBGridMaskColumn;
|
|
|
dxDBGridMaskColumn50: TdxDBGridMaskColumn;
|
|
|
dxDBGridMaskColumn51: TdxDBGridMaskColumn;
|
|
|
dxDBGridMaskColumn52: TdxDBGridMaskColumn;
|
|
|
dxDBGridMaskColumn53: TdxDBGridMaskColumn;
|
|
|
dxDBGridColumn12: TdxDBGridColumn;
|
|
|
dxDBGridColumn13: TdxDBGridColumn;
|
|
|
dxDBGridColumn14: TdxDBGridColumn;
|
|
|
dxDBGridDateColumn3: TdxDBGridDateColumn;
|
|
|
dxDBGrid5Column58: TdxDBGridColumn;
|
|
|
dxDBGridMaskColumn54: TdxDBGridMaskColumn;
|
|
|
dxDBGridMaskColumn55: TdxDBGridMaskColumn;
|
|
|
dxDBGridMaskColumn56: TdxDBGridMaskColumn;
|
|
|
dxDBGridMaskColumn57: TdxDBGridMaskColumn;
|
|
|
dxDBGridMaskColumn58: TdxDBGridMaskColumn;
|
|
|
dxDBGridMaskColumn59: TdxDBGridMaskColumn;
|
|
|
dxDBGridDateColumn4: TdxDBGridDateColumn;
|
|
|
dxDBGridMaskColumn60: TdxDBGridMaskColumn;
|
|
|
dxDBGridMaskColumn61: TdxDBGridMaskColumn;
|
|
|
dxDBGridMaskColumn62: TdxDBGridMaskColumn;
|
|
|
dxDBGridMaskColumn63: TdxDBGridMaskColumn;
|
|
|
dxDBGridMaskColumn64: TdxDBGridMaskColumn;
|
|
|
dxDBGridColumn15: TdxDBGridColumn;
|
|
|
dxDBGridColumn16: TdxDBGridColumn;
|
|
|
dxDBGridMaskColumn65: TdxDBGridMaskColumn;
|
|
|
dxDBGridMaskColumn66: TdxDBGridMaskColumn;
|
|
|
dxDBGridMaskColumn67: TdxDBGridMaskColumn;
|
|
|
dxDBGridMaskColumn68: TdxDBGridMaskColumn;
|
|
|
dxDBGridMaskColumn69: TdxDBGridMaskColumn;
|
|
|
dxDBGridMaskColumn70: TdxDBGridMaskColumn;
|
|
|
dxDBGridMaskColumn71: TdxDBGridMaskColumn;
|
|
|
dxDBGridMaskColumn72: TdxDBGridMaskColumn;
|
|
|
dxDBGridMaskColumn73: TdxDBGridMaskColumn;
|
|
|
dxDBGridMaskColumn74: TdxDBGridMaskColumn;
|
|
|
dxDBGridMaskColumn85: TdxDBGridMaskColumn;
|
|
|
dxDBGridMaskColumn86: TdxDBGridMaskColumn;
|
|
|
dxDBGridMaskColumn87: TdxDBGridMaskColumn;
|
|
|
dxDBGridMaskColumn88: TdxDBGridMaskColumn;
|
|
|
dxDBGridMaskColumn89: TdxDBGridMaskColumn;
|
|
|
dxDBGridMaskColumn90: TdxDBGridMaskColumn;
|
|
|
dxDBGridMaskColumn91: TdxDBGridMaskColumn;
|
|
|
dxDBGridMaskColumn92: TdxDBGridMaskColumn;
|
|
|
dxDBGridMaskColumn93: TdxDBGridMaskColumn;
|
|
|
dxDBGridMaskColumn94: TdxDBGridMaskColumn;
|
|
|
dxDBGrid5Column56: TdxDBGridColumn;
|
|
|
dxDBGrid5Column57: TdxDBGridColumn;
|
|
|
dxDBGrid5Column49: TdxDBGridColumn;
|
|
|
dxDBGrid5Column50: TdxDBGridColumn;
|
|
|
dxDBGrid5Column51: TdxDBGridColumn;
|
|
|
dxDBGrid5Column52: TdxDBGridColumn;
|
|
|
dxDBGrid5Column53: TdxDBGridColumn;
|
|
|
dxDBGrid5Column54: TdxDBGridColumn;
|
|
|
dxDBGrid5Column55: TdxDBGridColumn;
|
|
|
dxDBGrid6Column55: TdxDBGridColumn;
|
|
|
dxDBGrid7Column55: TdxDBGridColumn;
|
|
|
PopupMenu2: TPopupMenu;
|
|
|
N10: TMenuItem;
|
|
|
N11: TMenuItem;
|
|
|
N14: TMenuItem;
|
|
|
N13: TMenuItem;
|
|
|
N12: TMenuItem;
|
|
|
N15: TMenuItem;
|
|
|
N16: TMenuItem;
|
|
|
dxDBGrid5Column59: TdxDBGridColumn;
|
|
|
dxDBGrid6Column56: TdxDBGridColumn;
|
|
|
dxDBGrid7Column56: TdxDBGridColumn;
|
|
|
bsSkinCheckRadioBox4: TbsSkinCheckRadioBox;
|
|
|
bsSkinCheckRadioBox5: TbsSkinCheckRadioBox;
|
|
|
bsSkinCheckRadioBox6: TbsSkinCheckRadioBox;
|
|
|
N1: TMenuItem;
|
|
|
N2: TMenuItem;
|
|
|
N3: TMenuItem;
|
|
|
N4: TMenuItem;
|
|
|
dxDBGrid5Column60: TdxDBGridColumn;
|
|
|
dxDBGrid5Column61: TdxDBGridColumn;
|
|
|
dxDBGrid6Column57: TdxDBGridColumn;
|
|
|
dxDBGrid6Column58: TdxDBGridColumn;
|
|
|
dxDBGrid7Column57: TdxDBGridColumn;
|
|
|
dxDBGrid7Column58: TdxDBGridColumn;
|
|
|
dxDBGrid5Column62: TdxDBGridColumn;
|
|
|
dxDBGrid6Column59: TdxDBGridColumn;
|
|
|
dxDBGrid7Column59: TdxDBGridColumn;
|
|
|
dxDBGrid5Column63: TdxDBGridColumn;
|
|
|
dxDBGrid6Column60: TdxDBGridColumn;
|
|
|
dxDBGrid7Column60: TdxDBGridColumn;
|
|
|
dxDBGrid5Column64: TdxDBGridColumn;
|
|
|
dxDBGrid6Column61: TdxDBGridColumn;
|
|
|
dxDBGrid7Column61: TdxDBGridColumn;
|
|
|
p_accept_bill: TADOQuery;
|
|
|
p_accept_billDSDesigner: TStringField;
|
|
|
p_accept_billDSDesigner2: TStringField;
|
|
|
p_accept_billUSD: TBCDField;
|
|
|
p_accept_billUSD2: TBCDField;
|
|
|
p_accept_billUSD3: TBCDField;
|
|
|
p_accept_billRMB: TBCDField;
|
|
|
p_accept_billRMB2: TBCDField;
|
|
|
p_accept_billRMB3: TBCDField;
|
|
|
p_accept_billDSDesigner3: TBCDField;
|
|
|
p_accept_billDSDesigner4: TBCDField;
|
|
|
p_accept_billDSDesigner5: TBCDField;
|
|
|
p_accept_billDSDesigner6: TStringField;
|
|
|
p_accept_billDSDesigner7: TDateTimeField;
|
|
|
p_accept_billDSDesigner8: TStringField;
|
|
|
p_accept_billDSDesigner9: TStringField;
|
|
|
p_accept_billDSDesigner10: TStringField;
|
|
|
p_accept_billDSDesigner11: TStringField;
|
|
|
p_accept_billDSDesigner12: TStringField;
|
|
|
p_accept_billDSDesigner13: TStringField;
|
|
|
p_accept_billDSDesigner14: TStringField;
|
|
|
p_accept_billDSDesigner15: TStringField;
|
|
|
p_accept_billDSDesigner16: TStringField;
|
|
|
p_accept_billDSDesigner17: TStringField;
|
|
|
p_accept_billDSDesigner18: TStringField;
|
|
|
p_accept_billDSDesigner19: TStringField;
|
|
|
p_accept_billDSDesigner20: TStringField;
|
|
|
p_accept_billDSDesigner21: TDateTimeField;
|
|
|
p_accept_billDSDesigner22: TStringField;
|
|
|
p_accept_billDSDesigner23: TStringField;
|
|
|
p_accept_billDSDesigner24: TStringField;
|
|
|
p_accept_billDSDesigner25: TIntegerField;
|
|
|
p_accept_billDSDesigner26: TBCDField;
|
|
|
p_accept_billDSDesigner27: TBCDField;
|
|
|
p_accept_billDSDesigner1: TIntegerField;
|
|
|
p_accept_billDSDesigner28: TIntegerField;
|
|
|
p_accept_billDSDesigner32: TIntegerField;
|
|
|
p_accept_billDSDesigner42: TIntegerField;
|
|
|
p_accept_billDSDesigner52: TIntegerField;
|
|
|
p_accept_billDSDesigner62: TIntegerField;
|
|
|
p_accept_billDSDesigner72: TIntegerField;
|
|
|
p_accept_billDSDesigner82: TIntegerField;
|
|
|
p_accept_billDSDesigner92: TIntegerField;
|
|
|
p_accept_billDSDesigner102: TIntegerField;
|
|
|
p_accept_billDSDesigner29: TIntegerField;
|
|
|
p_accept_billTEU: TIntegerField;
|
|
|
p_accept_billDSDesigner30: TStringField;
|
|
|
p_accept_billDSDesigner31: TStringField;
|
|
|
p_accept_billDSDesigner33: TStringField;
|
|
|
p_accept_billDSDesigner34: TStringField;
|
|
|
p_accept_billDSDesigner35: TStringField;
|
|
|
p_accept_billDSDesigner36: TStringField;
|
|
|
p_accept_billDSDesigner37: TStringField;
|
|
|
p_accept_billDSDesigner38: TStringField;
|
|
|
p_accept_billDSDesigner39: TStringField;
|
|
|
p_accept_billDSDesigner40: TStringField;
|
|
|
p_accept_billDSDesigner41: TStringField;
|
|
|
p_accept_billDSDesigner43: TStringField;
|
|
|
p_accept_billDSDesigner44: TStringField;
|
|
|
p_accept_billDSDesigner45: TIntegerField;
|
|
|
p_accept_billDSDesigner46: TIntegerField;
|
|
|
p_accept_billDSDesigner47: TBCDField;
|
|
|
ADOQueryINV: TADOQuery;
|
|
|
ADOQueryINVDSDesigner: TStringField;
|
|
|
ADOQueryINVDSDesigner2: TStringField;
|
|
|
ADOQueryINVUSD: TStringField;
|
|
|
ADOQueryINVusd2: TBCDField;
|
|
|
ADOQueryINVRMB: TStringField;
|
|
|
ADOQueryINVRMB2: TBCDField;
|
|
|
memtblDetail: TkbmMemTable;
|
|
|
p_accept_billUSD4: TStringField;
|
|
|
p_accept_billUSD5: TFloatField;
|
|
|
p_accept_billRMB4: TStringField;
|
|
|
p_accept_billRMB5: TFloatField;
|
|
|
p_accept_billField: TIntegerField;
|
|
|
dxDBGrid5Column65: TdxDBGridColumn;
|
|
|
dxDBGrid6Column62: TdxDBGridColumn;
|
|
|
p_accept_billField2: TStringField;
|
|
|
dxDBGrid6Column63: TdxDBGridColumn;
|
|
|
p_accept_billField3: TStringField;
|
|
|
dxDBGrid5Column66: TdxDBGridColumn;
|
|
|
dxDBGrid5Column67: TdxDBGridColumn;
|
|
|
dxDBGrid7Column62: TdxDBGridColumn;
|
|
|
dxDBGrid7Column63: TdxDBGridColumn;
|
|
|
dxDBGrid5Column68: TdxDBGridColumn;
|
|
|
dxDBGrid5Column69: TdxDBGridColumn;
|
|
|
dxDBGrid5Column70: TdxDBGridColumn;
|
|
|
dxDBGrid5Column71: TdxDBGridColumn;
|
|
|
dxDBGrid7Column64: TdxDBGridColumn;
|
|
|
dxDBGrid7Column65: TdxDBGridColumn;
|
|
|
dxDBGrid7Column66: TdxDBGridColumn;
|
|
|
dxDBGrid7Column67: TdxDBGridColumn;
|
|
|
dxDBGrid5Column72: TdxDBGridColumn;
|
|
|
bsSkinPanel1: TbsSkinPanel;
|
|
|
Label13: TLabel;
|
|
|
RxDBLookupCombo5: TRxDBLookupCombo;
|
|
|
Label40: TLabel;
|
|
|
RxDBLookupCombo15: TRxDBLookupCombo;
|
|
|
Label10: TLabel;
|
|
|
Label5: TLabel;
|
|
|
wwDBDateTimePicker1: TwwDBDateTimePicker;
|
|
|
wwDBDateTimePicker2: TwwDBDateTimePicker;
|
|
|
ADOQuerySelect: TADOQuery;
|
|
|
dbsub: TADOConnection;
|
|
|
dxDBGrid4Column9: TdxDBGridColumn;
|
|
|
dxDBGrid4Column10: TdxDBGridColumn;
|
|
|
procedure bsSkinButton5Click(Sender: TObject);
|
|
|
procedure FormClose(Sender: TObject; var Action: TCloseAction);
|
|
|
procedure Panel1Resize(Sender: TObject);
|
|
|
procedure bsSkinButton1Click(Sender: TObject);
|
|
|
procedure bsSkinButton9Click(Sender: TObject);
|
|
|
procedure dxDBGrid1ColumnSorting(Sender: TObject;
|
|
|
Column: TdxDBTreeListColumn; var Allow: Boolean);
|
|
|
procedure dxDBGrid2ColumnSorting(Sender: TObject;
|
|
|
Column: TdxDBTreeListColumn; var Allow: Boolean);
|
|
|
procedure dxDBGrid3ColumnSorting(Sender: TObject;
|
|
|
Column: TdxDBTreeListColumn; var Allow: Boolean);
|
|
|
procedure dxDBGrid5DblClick(Sender: TObject);
|
|
|
procedure dxDBGrid6DblClick(Sender: TObject);
|
|
|
procedure dxDBGrid7DblClick(Sender: TObject);
|
|
|
procedure N10Click(Sender: TObject);
|
|
|
procedure N14Click(Sender: TObject);
|
|
|
procedure N12Click(Sender: TObject);
|
|
|
procedure N16Click(Sender: TObject);
|
|
|
procedure FormShow(Sender: TObject);
|
|
|
procedure p_totalAfterOpen(DataSet: TDataSet);
|
|
|
procedure dxDBGrid4ColumnSorting(Sender: TObject;
|
|
|
Column: TdxDBTreeListColumn; var Allow: Boolean);
|
|
|
procedure dxDBGrid5ColumnSorting(Sender: TObject;
|
|
|
Column: TdxDBTreeListColumn; var Allow: Boolean);
|
|
|
procedure dxDBGrid6ColumnSorting(Sender: TObject;
|
|
|
Column: TdxDBTreeListColumn; var Allow: Boolean);
|
|
|
procedure dxDBGrid7ColumnSorting(Sender: TObject;
|
|
|
Column: TdxDBTreeListColumn; var Allow: Boolean);
|
|
|
procedure bsSkinPageControl4Change(Sender: TObject);
|
|
|
procedure N3Click(Sender: TObject);
|
|
|
procedure N4Click(Sender: TObject);
|
|
|
procedure dxDBGrid5Column61CustomDraw(Sender: TObject;
|
|
|
ACanvas: TCanvas; ARect: TRect; ANode: TdxTreeListNode;
|
|
|
AColumn: TdxDBTreeListColumn; const AText: String; AFont: TFont;
|
|
|
var AColor: TColor; ASelected, AFocused: Boolean;
|
|
|
var ADone: Boolean);
|
|
|
procedure dxDBGrid6Column58CustomDraw(Sender: TObject;
|
|
|
ACanvas: TCanvas; ARect: TRect; ANode: TdxTreeListNode;
|
|
|
AColumn: TdxDBTreeListColumn; const AText: String; AFont: TFont;
|
|
|
var AColor: TColor; ASelected, AFocused: Boolean;
|
|
|
var ADone: Boolean);
|
|
|
procedure dxDBGrid7Column58CustomDraw(Sender: TObject;
|
|
|
ACanvas: TCanvas; ARect: TRect; ANode: TdxTreeListNode;
|
|
|
AColumn: TdxDBTreeListColumn; const AText: String; AFont: TFont;
|
|
|
var AColor: TColor; ASelected, AFocused: Boolean;
|
|
|
var ADone: Boolean);
|
|
|
procedure bsSkinButton10Click(Sender: TObject);
|
|
|
private
|
|
|
{ Private declarations }
|
|
|
public
|
|
|
{ Public declarations }
|
|
|
procedure GetNoFee_items(ADOQuerySelect:TAdoquery);
|
|
|
procedure Creatememtbl;
|
|
|
|
|
|
end;
|
|
|
|
|
|
var
|
|
|
frm_rp_no_total_com: Tfrm_rp_no_total_com;
|
|
|
|
|
|
implementation
|
|
|
|
|
|
uses u_main,my_sys_function, u_data_share, u_sys_progress;
|
|
|
|
|
|
{$R *.dfm}
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
procedure Tfrm_rp_no_total_com.bsSkinButton5Click(Sender: TObject);
|
|
|
begin
|
|
|
close;
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_rp_no_total_com.FormClose(Sender: TObject;
|
|
|
var Action: TCloseAction);
|
|
|
begin
|
|
|
savereggrid(dxdbgrid1,caption+'1');
|
|
|
savereggrid(dxdbgrid2,caption+'2');
|
|
|
savereggrid(dxdbgrid4,caption+'4');
|
|
|
savereggrid(dxdbgrid5,caption+'5');
|
|
|
savereggrid(dxdbgrid6,caption+'6');
|
|
|
savereggrid(dxdbgrid7,caption+'7');
|
|
|
frm_rp_no_total_com.Hide;
|
|
|
frm_rp_no_total_com.ManualFloat(frm_rp_no_total_com.BoundsRect );
|
|
|
frm_main.freeTabs('frm_rp_no_total_com');
|
|
|
action:=cafree;
|
|
|
frm_rp_no_total_com:=nil;
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_rp_no_total_com.Panel1Resize(Sender: TObject);
|
|
|
var
|
|
|
i:integer;
|
|
|
begin
|
|
|
i:=round(bsSkinPanel2.Width/10);
|
|
|
bsSkinCheckRadioBox1.Width:=i;
|
|
|
bsSkinCheckRadioBox2.Width:=i;
|
|
|
bsSkinCheckRadioBox3.Width:=i;
|
|
|
bsSkinCheckRadioBox4.Width:=i;
|
|
|
bsSkinCheckRadioBox5.Width:=i;
|
|
|
bsSkinCheckRadioBox6.Width:=i;
|
|
|
bsSkinButton10.Width:=i;
|
|
|
bsSkinButton9.Width:=i;
|
|
|
bsSkinButton1.Width:=i;
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_rp_no_total_com.bsSkinButton1Click(Sender: TObject);
|
|
|
begin
|
|
|
with SaveDialog do
|
|
|
begin
|
|
|
DefaultExt :='xls';
|
|
|
Filter := '(*.xls)|*.xls';
|
|
|
if Execute then
|
|
|
begin
|
|
|
if bsSkinTabSheet1.Showing then
|
|
|
dxDBGrid1.SaveToXLS(FileName,true)
|
|
|
else if bsSkinTabSheet2.Showing then
|
|
|
dxDBGrid2.SaveToXLS(FileName,true)
|
|
|
else if bsSkinTabSheet4.Showing then
|
|
|
dxDBGrid4.SaveToXLS(FileName,true)
|
|
|
else if bsSkinTabSheet5.Showing then
|
|
|
dxDBGrid5.SaveToXLS(FileName,true)
|
|
|
else if bsSkinTabSheet6.Showing then
|
|
|
dxDBGrid6.SaveToXLS(FileName,true)
|
|
|
else if bsSkinTabSheet7.Showing then
|
|
|
dxDBGrid7.SaveToXLS(FileName,true);
|
|
|
end;
|
|
|
end;
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_rp_no_total_com.bsSkinButton9Click(Sender: TObject);
|
|
|
begin
|
|
|
sys_print('Ƿ<><C7B7><EFBFBD>ۺϷ<DBBA><CFB7><EFBFBD>',2,nil,nil,nil,nil,p_accept_bill1,p_accept_fee1,p_pay_bill1,p_pay_fee1,p_total_client1,p_total_sales1,p_total1);
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_rp_no_total_com.dxDBGrid1ColumnSorting(Sender: TObject;
|
|
|
Column: TdxDBTreeListColumn; var Allow: Boolean);
|
|
|
begin
|
|
|
Column_sort_pro(Column,p_total_client,'<27>ͻ<EFBFBD><CDBB><EFBFBD><EFBFBD><EFBFBD>');
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_rp_no_total_com.dxDBGrid2ColumnSorting(Sender: TObject;
|
|
|
Column: TdxDBTreeListColumn; var Allow: Boolean);
|
|
|
begin
|
|
|
Column_sort_pro(Column,p_total_sales,'<27>ͻ<EFBFBD><CDBB><EFBFBD><EFBFBD><EFBFBD>');
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_rp_no_total_com.dxDBGrid3ColumnSorting(Sender: TObject;
|
|
|
Column: TdxDBTreeListColumn; var Allow: Boolean);
|
|
|
begin
|
|
|
Column_sort_pro(Column,p_total,'ҵ<><D2B5><EFBFBD><EFBFBD><EFBFBD><EFBFBD>');
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_rp_no_total_com.dxDBGrid5DblClick(Sender: TObject);
|
|
|
begin
|
|
|
fee_view(p_accept_fee.fieldbyname('<27><><EFBFBD><EFBFBD>').asstring);
|
|
|
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_rp_no_total_com.dxDBGrid6DblClick(Sender: TObject);
|
|
|
begin
|
|
|
fee_view(p_pay_bill.fieldbyname('<27><><EFBFBD><EFBFBD>').asstring);
|
|
|
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_rp_no_total_com.dxDBGrid7DblClick(Sender: TObject);
|
|
|
begin
|
|
|
fee_view(p_pay_fee.fieldbyname('<27><><EFBFBD><EFBFBD>').asstring);
|
|
|
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_rp_no_total_com.N10Click(Sender: TObject);
|
|
|
begin
|
|
|
if bsSkinTabSheet1.showing then
|
|
|
begin
|
|
|
update_grid_view_no(dxdbgrid1);
|
|
|
exit;
|
|
|
end;
|
|
|
if bsSkinTabSheet2.showing then
|
|
|
begin
|
|
|
update_grid_view_no(dxdbgrid2);
|
|
|
exit;
|
|
|
end;
|
|
|
if bsSkinTabSheet4.showing then
|
|
|
begin
|
|
|
update_grid_view_no(dxdbgrid4);
|
|
|
exit;
|
|
|
end;
|
|
|
if bsSkinTabSheet5.showing then
|
|
|
begin
|
|
|
update_grid_view_no(dxdbgrid5);
|
|
|
exit;
|
|
|
end;
|
|
|
if bsSkinTabSheet6.showing then
|
|
|
begin
|
|
|
update_grid_view_no(dxdbgrid6);
|
|
|
exit;
|
|
|
end;
|
|
|
if bsSkinTabSheet7.showing then
|
|
|
begin
|
|
|
update_grid_view_no(dxdbgrid7);
|
|
|
exit;
|
|
|
end;
|
|
|
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_rp_no_total_com.N14Click(Sender: TObject);
|
|
|
begin
|
|
|
if bsSkinTabSheet1.showing then
|
|
|
begin
|
|
|
update_grid_view_all(dxdbgrid1);
|
|
|
exit;
|
|
|
end;
|
|
|
if bsSkinTabSheet2.showing then
|
|
|
begin
|
|
|
update_grid_view_all(dxdbgrid2);
|
|
|
exit;
|
|
|
end;
|
|
|
if bsSkinTabSheet4.showing then
|
|
|
begin
|
|
|
update_grid_view_all(dxdbgrid4);
|
|
|
exit;
|
|
|
end;
|
|
|
if bsSkinTabSheet5.showing then
|
|
|
begin
|
|
|
update_grid_view_all(dxdbgrid5);
|
|
|
exit;
|
|
|
end;
|
|
|
if bsSkinTabSheet6.showing then
|
|
|
begin
|
|
|
update_grid_view_all(dxdbgrid6);
|
|
|
exit;
|
|
|
end;
|
|
|
if bsSkinTabSheet7.showing then
|
|
|
begin
|
|
|
update_grid_view_all(dxdbgrid7);
|
|
|
exit;
|
|
|
end;
|
|
|
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_rp_no_total_com.N12Click(Sender: TObject);
|
|
|
begin
|
|
|
if bsSkinTabSheet1.showing then
|
|
|
begin
|
|
|
update_grid(dxdbgrid1,123);
|
|
|
exit;
|
|
|
end;
|
|
|
if bsSkinTabSheet2.showing then
|
|
|
begin
|
|
|
update_grid(dxdbgrid2,124);
|
|
|
exit;
|
|
|
end;
|
|
|
if bsSkinTabSheet4.showing then
|
|
|
begin
|
|
|
update_grid(dxdbgrid4,126);
|
|
|
exit;
|
|
|
end;
|
|
|
if bsSkinTabSheet5.showing then
|
|
|
begin
|
|
|
update_grid(dxdbgrid5,127);
|
|
|
exit;
|
|
|
end;
|
|
|
if bsSkinTabSheet6.showing then
|
|
|
begin
|
|
|
update_grid(dxdbgrid6,128);
|
|
|
exit;
|
|
|
end;
|
|
|
if bsSkinTabSheet7.showing then
|
|
|
begin
|
|
|
update_grid(dxdbgrid7,129);
|
|
|
exit;
|
|
|
end;
|
|
|
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_rp_no_total_com.N16Click(Sender: TObject);
|
|
|
begin
|
|
|
if bsSkinTabSheet1.showing then
|
|
|
begin
|
|
|
grid_save_xls(dxdbgrid1);
|
|
|
exit;
|
|
|
end;
|
|
|
if bsSkinTabSheet2.showing then
|
|
|
begin
|
|
|
grid_save_xls(dxdbgrid2);
|
|
|
exit;
|
|
|
end;
|
|
|
if bsSkinTabSheet4.showing then
|
|
|
begin
|
|
|
grid_save_xls(dxdbgrid4);
|
|
|
exit;
|
|
|
end;
|
|
|
if bsSkinTabSheet5.showing then
|
|
|
begin
|
|
|
grid_save_xls(dxdbgrid5);
|
|
|
exit;
|
|
|
end;
|
|
|
if bsSkinTabSheet6.showing then
|
|
|
begin
|
|
|
grid_save_xls(dxdbgrid6);
|
|
|
exit;
|
|
|
end;
|
|
|
if bsSkinTabSheet7.showing then
|
|
|
begin
|
|
|
grid_save_xls(dxdbgrid7);
|
|
|
exit;
|
|
|
end;
|
|
|
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_rp_no_total_com.FormShow(Sender: TObject);
|
|
|
begin
|
|
|
wwDBDateTimePicker1.Date:=Date;
|
|
|
wwDBDateTimePicker2.Date:=Date;
|
|
|
|
|
|
loadreggrid(dxdbgrid1,true,caption+'1');
|
|
|
loadreggrid(dxdbgrid2,true,caption+'2');
|
|
|
loadreggrid(dxdbgrid4,true,caption+'4');
|
|
|
loadreggrid(dxdbgrid5,true,caption+'5');
|
|
|
loadreggrid(dxdbgrid6,true,caption+'6');
|
|
|
loadreggrid(dxdbgrid7,true,caption+'7');
|
|
|
|
|
|
|
|
|
bsSkinTabSheet4.TabVisible:=EmpDr;
|
|
|
bsSkinTabSheet5.TabVisible:=EmpDr;
|
|
|
bsSkinTabSheet6.TabVisible:=EmpCr;
|
|
|
bsSkinTabSheet7.TabVisible:=EmpCr;
|
|
|
|
|
|
bsSkinTabSheet1.TabVisible:=EmpProfit;
|
|
|
bsSkinTabSheet2.TabVisible:=EmpProfit;
|
|
|
|
|
|
bsSkinTabSheet4.TabVisible:=True;
|
|
|
bsSkinTabSheet5.TabVisible:=False;
|
|
|
bsSkinTabSheet6.TabVisible:=False;
|
|
|
bsSkinTabSheet7.TabVisible:=False;
|
|
|
|
|
|
bsSkinTabSheet1.TabVisible:=False;
|
|
|
bsSkinTabSheet2.TabVisible:=False;
|
|
|
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_rp_no_total_com.p_totalAfterOpen(DataSet: TDataSet);
|
|
|
begin
|
|
|
AdoFormatdxDBGrid(DataSet);
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_rp_no_total_com.dxDBGrid4ColumnSorting(Sender: TObject;
|
|
|
Column: TdxDBTreeListColumn; var Allow: Boolean);
|
|
|
begin
|
|
|
Column_sort(Column,p_accept_bill,'<27>ͻ<EFBFBD><CDBB><EFBFBD><EFBFBD><EFBFBD>');
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_rp_no_total_com.dxDBGrid5ColumnSorting(Sender: TObject;
|
|
|
Column: TdxDBTreeListColumn; var Allow: Boolean);
|
|
|
begin
|
|
|
Column_sort_pro(Column,p_accept_fee,'<27>ͻ<EFBFBD><CDBB><EFBFBD><EFBFBD><EFBFBD>');
|
|
|
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_rp_no_total_com.dxDBGrid6ColumnSorting(Sender: TObject;
|
|
|
Column: TdxDBTreeListColumn; var Allow: Boolean);
|
|
|
begin
|
|
|
Column_sort_pro(Column,p_pay_bill,'<27>ͻ<EFBFBD><CDBB><EFBFBD><EFBFBD><EFBFBD>');
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_rp_no_total_com.dxDBGrid7ColumnSorting(Sender: TObject;
|
|
|
Column: TdxDBTreeListColumn; var Allow: Boolean);
|
|
|
begin
|
|
|
Column_sort_pro(Column,p_pay_fee,'<27>ͻ<EFBFBD><CDBB><EFBFBD><EFBFBD><EFBFBD>');
|
|
|
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_rp_no_total_com.bsSkinPageControl4Change(Sender: TObject);
|
|
|
begin
|
|
|
// bsSkinPageControl4.Refresh;
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_rp_no_total_com.N3Click(Sender: TObject);
|
|
|
begin
|
|
|
if bsSkinTabSheet1.showing then
|
|
|
begin
|
|
|
dxdbgrid1.FullExpand;
|
|
|
exit;
|
|
|
end;
|
|
|
if bsSkinTabSheet2.showing then
|
|
|
begin
|
|
|
dxdbgrid2.FullExpand;
|
|
|
exit;
|
|
|
end;
|
|
|
if bsSkinTabSheet4.showing then
|
|
|
begin
|
|
|
dxdbgrid4.FullExpand;
|
|
|
exit;
|
|
|
end;
|
|
|
if bsSkinTabSheet5.showing then
|
|
|
begin
|
|
|
dxdbgrid5.FullExpand;
|
|
|
exit;
|
|
|
end;
|
|
|
if bsSkinTabSheet6.showing then
|
|
|
begin
|
|
|
dxdbgrid6.FullExpand;
|
|
|
exit;
|
|
|
end;
|
|
|
if bsSkinTabSheet7.showing then
|
|
|
begin
|
|
|
dxdbgrid7.FullExpand;
|
|
|
exit;
|
|
|
end;
|
|
|
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_rp_no_total_com.N4Click(Sender: TObject);
|
|
|
begin
|
|
|
if bsSkinTabSheet1.showing then
|
|
|
begin
|
|
|
dxdbgrid1.FullCollapse;
|
|
|
exit;
|
|
|
end;
|
|
|
if bsSkinTabSheet2.showing then
|
|
|
begin
|
|
|
dxdbgrid2.FullCollapse;
|
|
|
exit;
|
|
|
end;
|
|
|
if bsSkinTabSheet4.showing then
|
|
|
begin
|
|
|
dxdbgrid4.FullCollapse;
|
|
|
exit;
|
|
|
end;
|
|
|
if bsSkinTabSheet5.showing then
|
|
|
begin
|
|
|
dxdbgrid5.FullCollapse;
|
|
|
exit;
|
|
|
end;
|
|
|
if bsSkinTabSheet6.showing then
|
|
|
begin
|
|
|
dxdbgrid6.FullCollapse;
|
|
|
exit;
|
|
|
end;
|
|
|
if bsSkinTabSheet7.showing then
|
|
|
begin
|
|
|
dxdbgrid7.FullCollapse;
|
|
|
exit;
|
|
|
end;
|
|
|
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_rp_no_total_com.dxDBGrid5Column61CustomDraw(Sender: TObject;
|
|
|
ACanvas: TCanvas; ARect: TRect; ANode: TdxTreeListNode;
|
|
|
AColumn: TdxDBTreeListColumn; const AText: String; AFont: TFont;
|
|
|
var AColor: TColor; ASelected, AFocused: Boolean; var ADone: Boolean);
|
|
|
begin
|
|
|
AColor:=dxgrid_color_fee(ANode.strings[dxDBGrid5Column61.Index]);
|
|
|
AFont.Color:=clblack;
|
|
|
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_rp_no_total_com.dxDBGrid6Column58CustomDraw(Sender: TObject;
|
|
|
ACanvas: TCanvas; ARect: TRect; ANode: TdxTreeListNode;
|
|
|
AColumn: TdxDBTreeListColumn; const AText: String; AFont: TFont;
|
|
|
var AColor: TColor; ASelected, AFocused: Boolean; var ADone: Boolean);
|
|
|
begin
|
|
|
AColor:=dxgrid_color_fee(ANode.strings[dxDBGrid6Column58.Index]);
|
|
|
AFont.Color:=clblack;
|
|
|
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_rp_no_total_com.dxDBGrid7Column58CustomDraw(Sender: TObject;
|
|
|
ACanvas: TCanvas; ARect: TRect; ANode: TdxTreeListNode;
|
|
|
AColumn: TdxDBTreeListColumn; const AText: String; AFont: TFont;
|
|
|
var AColor: TColor; ASelected, AFocused: Boolean; var ADone: Boolean);
|
|
|
begin
|
|
|
AColor:=dxgrid_color_fee(ANode.strings[dxDBGrid7Column58.Index]);
|
|
|
AFont.Color:=clblack;
|
|
|
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_rp_no_total_com.Creatememtbl;
|
|
|
var
|
|
|
aDate,aToDate:TDate;
|
|
|
sDate,aYear,aMonth:String;
|
|
|
aColumn:TdxDBTreeListColumn;
|
|
|
aBand:TdxTreeListBand;
|
|
|
i:integer;
|
|
|
begin
|
|
|
memtblDetail.Close;
|
|
|
memtblDetail.EmptyTable;
|
|
|
memtblDetail.Fields.Clear;
|
|
|
memtblDetail.FieldDefs.Clear;
|
|
|
memtblDetail.FieldDefs.Add('<27><><EFBFBD><EFBFBD>', ftString, 20, false);
|
|
|
memtblDetail.FieldDefs.Add('<27>ͻ<EFBFBD><CDBB><EFBFBD><EFBFBD><EFBFBD>', ftString, 20, false);
|
|
|
memtblDetail.FieldDefs.Add('ί<>б<EFBFBD><D0B1><EFBFBD>', ftString, 20, false);
|
|
|
memtblDetail.FieldDefs.Add('<27><><EFBFBD>ᵥ<EFBFBD><E1B5A5>', ftString, 20, false);
|
|
|
memtblDetail.FieldDefs.Add('δ<><CEB4>RMB',ftFloat, 0, false);
|
|
|
memtblDetail.FieldDefs.Add('δ<><CEB4>USD',ftFloat, 0, false);
|
|
|
memtblDetail.FieldDefs.Add('δ<><CEB4>USD<53>ϼ<EFBFBD>',ftFloat, 0, false);
|
|
|
memtblDetail.FieldDefs.Add('δ<>պϼ<D5BA>',ftFloat, 0, false);
|
|
|
memtblDetail.FieldDefs.Add('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>', ftString, 20, false);
|
|
|
memtblDetail.FieldDefs.Add('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>', ftString, 20, false);
|
|
|
memtblDetail.FieldDefs.Add('<27><><EFBFBD>۲<EFBFBD><DBB2><EFBFBD>', ftString, 20, false);
|
|
|
memtblDetail.CreateTable;
|
|
|
memtblDetail.Open;
|
|
|
end;
|
|
|
|
|
|
|
|
|
procedure Tfrm_rp_no_total_com.GetNoFee_items(ADOQuerySelect:TAdoquery);
|
|
|
var
|
|
|
aDate,aToDate:TDate;
|
|
|
strdate,stredate,sDate:String;
|
|
|
i:integer;
|
|
|
// S:TChartSeries;
|
|
|
begin
|
|
|
try
|
|
|
memtblDetail.DisableControls;
|
|
|
with ADOQuerySelect do begin
|
|
|
aDate:=wwDBDateTimePicker1.Date;
|
|
|
aToDate:=wwDBDateTimePicker2.Date;
|
|
|
if not ASSIGNED(frm_sys_progress) then
|
|
|
frm_sys_progress:=tfrm_sys_progress.Create(application);
|
|
|
frm_sys_progress.Show;
|
|
|
frm_sys_progress.bsSkinGauge1.MinValue:=0;
|
|
|
frm_sys_progress.bsSkinGauge1.Value:=0;
|
|
|
frm_sys_progress.Update;
|
|
|
|
|
|
stredate:=FormatDateTime('YYYY-MM-DD',aDate);
|
|
|
strdate:=FormatDateTime('YYYY-MM-DD',aToDate);
|
|
|
CLOSE;
|
|
|
SQL.Clear;
|
|
|
SQL.Add('Select t_ch_fee.<2E><><EFBFBD><EFBFBD>,t_ch_fee.<2E>ͻ<EFBFBD><CDBB><EFBFBD><EFBFBD><EFBFBD> ');
|
|
|
SQL.Add(',v_op_bscard_all.ί<>б<EFBFBD><D0B1><EFBFBD>,v_op_bscard_all.<2E><><EFBFBD>ᵥ<EFBFBD><E1B5A5>,v_op_bscard_all.<2E><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>,v_op_bscard_all.<2E><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>,v_op_bscard_all.<2E><><EFBFBD>۲<EFBFBD><DBB2><EFBFBD>');
|
|
|
SQL.Add(',sum(case t_ch_fee.<2E><><EFBFBD><EFBFBD> when ''<27><>'' then (case t_ch_fee.<2E>ұ<EFBFBD> when ''USD'' then t_ch_fee.<2E><><EFBFBD><EFBFBD>-t_ch_fee.<2E><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> else 0 end) else 0 end) as δ<><CEB4>USD');
|
|
|
SQL.Add(',sum(case t_ch_fee.<2E><><EFBFBD><EFBFBD> when ''<27><>'' then (case t_ch_fee.<2E>ұ<EFBFBD> when ''RMB'' then t_ch_fee.<2E><><EFBFBD><EFBFBD>-t_ch_fee.<2E><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> else 0 end) else 0 end) as δ<><CEB4>RMB');
|
|
|
SQL.Add(',sum(case t_ch_fee.<2E><><EFBFBD><EFBFBD> when ''<27><>'' then (case t_ch_fee.<2E>ұ<EFBFBD> when ''USD'' then (t_ch_fee.<2E><><EFBFBD><EFBFBD>-t_ch_fee.<2E><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>)*t_ch_fee.<2E><><EFBFBD><EFBFBD> else 0 end) else 0 end) as δ<><CEB4>USD<53>ϼ<EFBFBD>');
|
|
|
SQL.Add(',sum(case t_ch_fee.<2E><><EFBFBD><EFBFBD> when ''<27><>'' then (t_ch_fee.<2E><><EFBFBD><EFBFBD>-t_ch_fee.<2E><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>)*t_ch_fee.<2E><><EFBFBD><EFBFBD> else 0 end) as δ<>պϼ<D5BA>');
|
|
|
SQL.Add('from t_ch_fee');
|
|
|
SQL.Add('Left join v_op_bscard_all on t_ch_fee.<2E><><EFBFBD><EFBFBD>=v_op_bscard_all.<2E><><EFBFBD><EFBFBD>');
|
|
|
SQL.Add('where t_ch_fee.<2E><><EFBFBD><EFBFBD><>t_ch_fee.<2E><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> and t_ch_fee.<2E><><EFBFBD><EFBFBD><>0 and t_ch_fee.<2E><><EFBFBD><EFBFBD>=''<27><>''');
|
|
|
SQL.Add('and v_op_bscard_all.<2E><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>>='''+stredate+''' and v_op_bscard_all.<2E><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><='''+strdate+'''');
|
|
|
|
|
|
if RxDBLookupCombo5.DisplayValues[1]<>'' then
|
|
|
SQL.Add(' and t_ch_fee.<2E>ͻ<EFBFBD><CDBB><EFBFBD><EFBFBD><EFBFBD>='''+RxDBLookupCombo5.DisplayValues[1]+'''');
|
|
|
SQL.Add('Group by t_ch_fee.<2E><><EFBFBD><EFBFBD>,t_ch_fee.<2E>ͻ<EFBFBD><CDBB><EFBFBD><EFBFBD><EFBFBD>');
|
|
|
SQL.Add(',v_op_bscard_all.ί<>б<EFBFBD><D0B1><EFBFBD>,v_op_bscard_all.<2E><><EFBFBD>ᵥ<EFBFBD><E1B5A5>,v_op_bscard_all.<2E><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>,v_op_bscard_all.<2E><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>,v_op_bscard_all.<2E><><EFBFBD>۲<EFBFBD><DBB2><EFBFBD>');
|
|
|
Open;First;
|
|
|
if not ADOQuerySelect.IsEmpty then
|
|
|
frm_sys_progress.bsSkinGauge1.MaxValue:=ADOQuerySelect.RecordCount
|
|
|
else frm_sys_progress.bsSkinGauge1.MaxValue:=1;
|
|
|
while not eof do begin
|
|
|
memtblDetail.Insert;
|
|
|
memtblDetail.FieldByName('<27><><EFBFBD><EFBFBD>').AsString:=FieldbyName('<27><><EFBFBD><EFBFBD>').AsString;
|
|
|
memtblDetail.FieldByName('<27>ͻ<EFBFBD><CDBB><EFBFBD><EFBFBD><EFBFBD>').AsString:=FieldbyName('<27>ͻ<EFBFBD><CDBB><EFBFBD><EFBFBD><EFBFBD>').AsString;
|
|
|
memtblDetail.FieldByName('ί<>б<EFBFBD><D0B1><EFBFBD>').AsString:=FieldbyName('ί<>б<EFBFBD><D0B1><EFBFBD>').AsString;
|
|
|
memtblDetail.FieldByName('<27><><EFBFBD>ᵥ<EFBFBD><E1B5A5>').AsString:=FieldbyName('<27><><EFBFBD>ᵥ<EFBFBD><E1B5A5>').AsString;
|
|
|
memtblDetail.FieldByName('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').AsString:=FormatDateTime('YYYY-MM-DD',FieldbyName('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').AsDateTime);
|
|
|
memtblDetail.FieldByName('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').AsString:=FieldbyName('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').AsString;
|
|
|
memtblDetail.FieldByName('<27><><EFBFBD>۲<EFBFBD><DBB2><EFBFBD>').AsString:=FieldbyName('<27><><EFBFBD>۲<EFBFBD><DBB2><EFBFBD>').AsString;
|
|
|
memtblDetail.FieldByName('δ<><CEB4>USD').AsString:=FormatFloat('0.00;-0.00;0',FieldbyName('δ<><CEB4>USD').AsFloat);
|
|
|
memtblDetail.FieldByName('δ<><CEB4>USD').AsString:=FormatFloat('0.00;-0.00;0',FieldbyName('δ<><CEB4>USD').AsFloat);
|
|
|
memtblDetail.FieldByName('δ<><CEB4>RMB').AsString:=FormatFloat('0.00;-0.00;0',FieldbyName('δ<><CEB4>RMB').AsFloat);
|
|
|
memtblDetail.FieldByName('δ<><CEB4>USD<53>ϼ<EFBFBD>').AsString:=FormatFloat('0.00;-0.00;0',FieldbyName('δ<><CEB4>USD<53>ϼ<EFBFBD>').AsFloat);
|
|
|
memtblDetail.FieldByName('δ<>պϼ<D5BA>').AsString:=FormatFloat('0.00;-0.00;0',FieldbyName('δ<>պϼ<D5BA>').AsFloat);
|
|
|
memtblDetail.Post;
|
|
|
frm_sys_progress.bsSkinGauge1.Value:=frm_sys_progress.bsSkinGauge1.Value+1;
|
|
|
Next;
|
|
|
end;
|
|
|
end;
|
|
|
finally
|
|
|
freeAndNil(frm_sys_progress);
|
|
|
memtblDetail.EnableControls;
|
|
|
|
|
|
end;
|
|
|
end;
|
|
|
|
|
|
{ if memtblDetail.Locate('<27>ͻ<EFBFBD><CDBB><EFBFBD><EFBFBD><EFBFBD>',FieldbyName('<27>ͻ<EFBFBD><CDBB><EFBFBD><EFBFBD><EFBFBD>').AsString,[]) then begin
|
|
|
memtblDetail.Edit;
|
|
|
memtblDetail.FieldByName('δ<><CEB4>USD').AsFloat:=memtblDetail.FieldByName('δ<><CEB4>USD').AsFloat+FieldbyName('δ<><CEB4>USD').AsFloat;
|
|
|
memtblDetail.FieldByName('δ<><CEB4>RMB').AsFloat:=memtblDetail.FieldByName('δ<><CEB4>RMB').AsFloat+FieldbyName('δ<><CEB4>RMB').AsFloat;
|
|
|
memtblDetail.FieldByName('δ<><CEB4>USD<53>ϼ<EFBFBD>').AsFloat:=memtblDetail.FieldByName('δ<><CEB4>USD<53>ϼ<EFBFBD>B').AsFloat+FieldbyName('δ<><CEB4>USD<53>ϼ<EFBFBD>').AsFloat;
|
|
|
memtblDetail.FieldByName('δ<>պϼ<D5BA>').AsFloat:=memtblDetail.FieldByName('δ<>պϼ<D5BA>').AsFloat+FieldbyName('δ<>պϼ<D5BA>').AsFloat;
|
|
|
memtblDetail.Post;
|
|
|
frm_sys_progress.bsSkinGauge1.Value:=frm_sys_progress.bsSkinGauge1.Value+1;
|
|
|
end else begin
|
|
|
memtblDetail.Insert;
|
|
|
memtblDetail.FieldByName('<27>ͻ<EFBFBD><CDBB><EFBFBD><EFBFBD><EFBFBD>').AsString:=FieldbyName('<27>ͻ<EFBFBD><CDBB><EFBFBD><EFBFBD><EFBFBD>').AsString;
|
|
|
memtblDetail.FieldByName('ί<>б<EFBFBD><D0B1><EFBFBD>').AsString:=FieldbyName('ί<>б<EFBFBD><D0B1><EFBFBD>').AsString;
|
|
|
memtblDetail.FieldByName('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').AsString:=FormatDateTime('YYYY-MM-DD',FieldbyName('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').AsDateTime);
|
|
|
memtblDetail.FieldByName('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').AsString:=FieldbyName('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').AsString;
|
|
|
memtblDetail.FieldByName('<27><><EFBFBD>۲<EFBFBD><DBB2><EFBFBD>').AsString:=FieldbyName('<27><><EFBFBD>۲<EFBFBD><DBB2><EFBFBD>').AsString;
|
|
|
memtblDetail.FieldByName('δ<><CEB4>USD').AsFloat:=FieldbyName('δ<><CEB4>USD').AsFloat;
|
|
|
memtblDetail.FieldByName('δ<><CEB4>USD').AsFloat:=FieldbyName('δ<><CEB4>USD').AsFloat;
|
|
|
memtblDetail.FieldByName('δ<><CEB4>RMB').AsFloat:=FieldbyName('δ<><CEB4>RMB').AsFloat;
|
|
|
memtblDetail.FieldByName('δ<><CEB4>USD<53>ϼ<EFBFBD>').AsFloat:=FieldbyName('δ<><CEB4>USD<53>ϼ<EFBFBD>').AsFloat;
|
|
|
memtblDetail.FieldByName('δ<>պϼ<D5BA>').AsFloat:=FieldbyName('δ<>պϼ<D5BA>').AsFloat;
|
|
|
memtblDetail.Post;
|
|
|
}
|
|
|
|
|
|
|
|
|
procedure Tfrm_rp_no_total_com.bsSkinButton10Click(Sender: TObject);
|
|
|
var connstr:String;
|
|
|
begin
|
|
|
Creatememtbl;
|
|
|
|
|
|
if RxDBLookupCombo15.DisplayValues[0]='' then
|
|
|
begin
|
|
|
ShowMessage('<27>ֲ<EFBFBD><D6B2><EFBFBD><EFBFBD>Ʋ<EFBFBD><C6B2><EFBFBD>Ϊ<EFBFBD><CEAA>');
|
|
|
exit;
|
|
|
end;
|
|
|
connstr:='';
|
|
|
if RxDBLookupCombo15.DisplayValue<>'<27>ܹ<EFBFBD>˾' then
|
|
|
begin
|
|
|
if frm_data_share.t_code_subcomp.Locate('<27>ֲ<EFBFBD><D6B2><EFBFBD><EFBFBD><EFBFBD>',RxDBLookupCombo15.DisplayValue,[]) then
|
|
|
begin
|
|
|
connstr:=frm_data_share.t_code_subcomp.FieldByName('<27><><EFBFBD>ݿ<EFBFBD><DDBF><EFBFBD><EFBFBD><EFBFBD>').AsString;
|
|
|
end;
|
|
|
if connstr<>'' then
|
|
|
begin
|
|
|
try
|
|
|
dbsub.Close;
|
|
|
dbsub.ConnectionString:=connstr;
|
|
|
dbsub.Close;
|
|
|
dbsub.Open;
|
|
|
GetNoFee_items(ADOQuerySelect)
|
|
|
except
|
|
|
on E: Exception do
|
|
|
begin
|
|
|
ShowMessage(e.Message);
|
|
|
end;
|
|
|
end;
|
|
|
end;
|
|
|
end
|
|
|
else
|
|
|
begin
|
|
|
with frm_data_share.t_code_subcomp do
|
|
|
begin
|
|
|
First;
|
|
|
while not eof do
|
|
|
begin
|
|
|
connstr:=frm_data_share.t_code_subcomp.FieldByName('<27><><EFBFBD>ݿ<EFBFBD><DDBF><EFBFBD><EFBFBD><EFBFBD>').AsString;
|
|
|
if connstr<>'' then
|
|
|
begin
|
|
|
try
|
|
|
ADOQuerySelect.Close;
|
|
|
dbsub.Close;
|
|
|
dbsub.ConnectionString:=connstr;
|
|
|
dbsub.Close;
|
|
|
dbsub.Open;
|
|
|
except
|
|
|
on E: Exception do
|
|
|
begin
|
|
|
ShowMessage(e.Message);
|
|
|
end;
|
|
|
end;
|
|
|
GetNoFee_items(ADOQuerySelect);
|
|
|
end;
|
|
|
Next;
|
|
|
end;
|
|
|
end;
|
|
|
|
|
|
end;
|
|
|
|
|
|
|
|
|
end;
|
|
|
|
|
|
end.
|