hanxuntao
/
DS6JIEFENG
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity
You cannot select more than 25 topics Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
master
Branches Tags
${ item.name }
Create tag ${ searchTerm }
Create branch ${ searchTerm }
from '48f045977c'
${ noResults }
DS6JIEFENG/业务统计/u_rp_no_total.~pas

1101 lines
36 KiB
Plaintext
Raw Normal View History Unescape Escape

1
11 months ago
unit u_rp_no_total;
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;
type
Tfrm_rp_no_total = 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;
bsSkinTabSheet3: 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;
dxDBGrid3: TdxDBGrid;
dxDBGrid3Column22: TdxDBGridColumn;
dxDBGridColumn59: TdxDBGridColumn;
dxDBGridColumn60: TdxDBGridColumn;
dxDBGridColumn61: TdxDBGridColumn;
dxDBGridColumn62: TdxDBGridColumn;
dxDBGridColumn63: TdxDBGridColumn;
dxDBGridColumn64: TdxDBGridColumn;
dxDBGridColumn65: TdxDBGridColumn;
dxDBGridColumn66: TdxDBGridColumn;
dxDBGridColumn67: TdxDBGridColumn;
dxDBGridColumn68: TdxDBGridColumn;
dxDBGridColumn69: TdxDBGridColumn;
dxDBGridColumn70: TdxDBGridColumn;
dxDBGridColumn71: TdxDBGridColumn;
dxDBGridColumn72: TdxDBGridColumn;
dxDBGridColumn73: TdxDBGridColumn;
dxDBGridColumn74: TdxDBGridColumn;
dxDBGridColumn75: TdxDBGridColumn;
dxDBGridColumn76: TdxDBGridColumn;
dxDBGridColumn77: TdxDBGridColumn;
dxDBGridColumn78: TdxDBGridColumn;
dxDBGridColumn79: 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;
dxDBGrid1Column11: TdxDBGridMaskColumn;
dxDBGrid1Column13: TdxDBGridMaskColumn;
dxDBGrid1Column15: TdxDBGridMaskColumn;
dxDBGrid1Column64: TdxDBGridColumn;
dxDBGrid1Column66: TdxDBGridColumn;
dxDBGrid1USD: TdxDBGridColumn;
dxDBGrid1Column3: TdxDBGridColumn;
dxDBGrid1Column4: TdxDBGridColumn;
dxDBGrid1RMB: TdxDBGridColumn;
dxDBGrid1Column6: TdxDBGridColumn;
dxDBGrid1Column7: TdxDBGridColumn;
dxDBGrid1Column8: TdxDBGridColumn;
dxDBGrid1Column9: TdxDBGridColumn;
dxDBGrid1Column10: TdxDBGridColumn;
dxDBGrid1Column12: TdxDBGridDateColumn;
dxDBGrid1Column63: TdxDBGridColumn;
dxDBGrid1Column14: TdxDBGridMaskColumn;
dxDBGrid1Column16: TdxDBGridMaskColumn;
dxDBGrid1Column18: TdxDBGridMaskColumn;
dxDBGrid1Column19: TdxDBGridMaskColumn;
dxDBGrid1Column21: TdxDBGridMaskColumn;
dxDBGrid1Column20: TdxDBGridMaskColumn;
dxDBGrid1Column22: TdxDBGridDateColumn;
dxDBGridMaskColumn1: TdxDBGridMaskColumn;
dxDBGrid1Column24: TdxDBGridMaskColumn;
dxDBGrid1Column25: TdxDBGridMaskColumn;
dxDBGrid1Column26: TdxDBGridMaskColumn;
dxDBGrid1Column27: TdxDBGridMaskColumn;
dxDBGrid1Column28: TdxDBGridColumn;
dxDBGrid1Column29: TdxDBGridColumn;
dxDBGrid11: TdxDBGridMaskColumn;
dxDBGrid12: TdxDBGridMaskColumn;
dxDBGrid13: TdxDBGridMaskColumn;
dxDBGrid14: TdxDBGridMaskColumn;
dxDBGrid15: TdxDBGridMaskColumn;
dxDBGrid16: TdxDBGridMaskColumn;
dxDBGrid17: TdxDBGridMaskColumn;
dxDBGrid18: TdxDBGridMaskColumn;
dxDBGrid19: TdxDBGridMaskColumn;
dxDBGrid110: TdxDBGridMaskColumn;
dxDBGrid1Column50: TdxDBGridMaskColumn;
dxDBGrid1TEU: TdxDBGridMaskColumn;
dxDBGrid1Column52: TdxDBGridMaskColumn;
dxDBGrid1Column53: TdxDBGridMaskColumn;
dxDBGrid1Column55: TdxDBGridMaskColumn;
dxDBGrid1Column56: TdxDBGridMaskColumn;
dxDBGrid1Column57: TdxDBGridMaskColumn;
dxDBGrid1Column58: TdxDBGridMaskColumn;
dxDBGrid1Column59: TdxDBGridMaskColumn;
dxDBGrid1Column60: TdxDBGridMaskColumn;
dxDBGrid1Column61: TdxDBGridColumn;
dxDBGrid1Column62: TdxDBGridColumn;
dxDBGrid1Column68: TdxDBGridColumn;
dxDBGrid1Column69: 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;
dxDBGrid4Column59: TdxDBGridColumn;
dxDBGrid5Column55: TdxDBGridColumn;
dxDBGrid6Column55: TdxDBGridColumn;
dxDBGrid7Column55: TdxDBGridColumn;
PopupMenu2: TPopupMenu;
N10: TMenuItem;
N11: TMenuItem;
N14: TMenuItem;
N13: TMenuItem;
N12: TMenuItem;
N15: TMenuItem;
N16: TMenuItem;
dxDBGrid4Column60: TdxDBGridColumn;
dxDBGrid5Column59: TdxDBGridColumn;
dxDBGrid6Column56: TdxDBGridColumn;
dxDBGrid7Column56: TdxDBGridColumn;
bsSkinCheckRadioBox4: TbsSkinCheckRadioBox;
bsSkinCheckRadioBox5: TbsSkinCheckRadioBox;
bsSkinCheckRadioBox6: TbsSkinCheckRadioBox;
N1: TMenuItem;
N2: TMenuItem;
N3: TMenuItem;
N4: TMenuItem;
dxDBGrid4Column61: TdxDBGridColumn;
dxDBGrid4Column62: TdxDBGridColumn;
dxDBGrid5Column60: TdxDBGridColumn;
dxDBGrid5Column61: TdxDBGridColumn;
dxDBGrid6Column57: TdxDBGridColumn;
dxDBGrid6Column58: TdxDBGridColumn;
dxDBGrid7Column57: TdxDBGridColumn;
dxDBGrid7Column58: TdxDBGridColumn;
dxDBGrid4Column63: TdxDBGridColumn;
dxDBGrid5Column62: TdxDBGridColumn;
dxDBGrid6Column59: TdxDBGridColumn;
dxDBGrid7Column59: TdxDBGridColumn;
dxDBGrid4Column64: TdxDBGridColumn;
dxDBGrid5Column63: TdxDBGridColumn;
dxDBGrid6Column60: TdxDBGridColumn;
dxDBGrid7Column60: TdxDBGridColumn;
dxDBGrid4Column65: TdxDBGridColumn;
dxDBGrid5Column64: TdxDBGridColumn;
dxDBGrid6Column61: TdxDBGridColumn;
dxDBGrid7Column61: TdxDBGridColumn;
dxDBGrid4Column66: TdxDBGridColumn;
dxDBGrid4Column67: TdxDBGridColumn;
dxDBGrid4Column68: TdxDBGridColumn;
dxDBGrid4Column69: 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;
memtblDetailField: TStringField;
memtblDetailField2: TStringField;
memtblDetailUSD: TStringField;
memtblDetailusd2: TFloatField;
memtblDetailRMB: TStringField;
memtblDetailRMB2: TFloatField;
p_accept_billUSD4: TStringField;
p_accept_billUSD5: TFloatField;
p_accept_billRMB4: TStringField;
p_accept_billRMB5: TFloatField;
p_accept_billField: TIntegerField;
dxDBGrid4Column70: TdxDBGridColumn;
dxDBGrid3Column27: TdxDBGridColumn;
dxDBGrid5Column65: TdxDBGridColumn;
dxDBGrid7Column62: TdxDBGridColumn;
procedure bsSkinButton5Click(Sender: TObject);
procedure FormClose(Sender: TObject; var Action: TCloseAction);
procedure Panel1Resize(Sender: TObject);
procedure bsSkinButton10Click(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 dxDBGrid4DblClick(Sender: TObject);
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 dxDBGrid4Column61CustomDraw(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 dxDBGrid5Column60CustomDraw(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 dxDBGrid6Column57CustomDraw(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 dxDBGrid7Column57CustomDraw(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 dxDBGrid4Column62CustomDraw(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 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 p_accept_billCalcFields(DataSet: TDataSet);
private
{ Private declarations }
public
{ Public declarations }
end;
var
frm_rp_no_total: Tfrm_rp_no_total;
implementation
uses u_main, u_rp_no_seae_query,my_sys_function;
{$R *.dfm}
procedure Tfrm_rp_no_total.bsSkinButton5Click(Sender: TObject);
begin
close;
end;
procedure Tfrm_rp_no_total.FormClose(Sender: TObject;
var Action: TCloseAction);
begin
savereggrid(dxdbgrid1,caption+'1');
savereggrid(dxdbgrid2,caption+'2');
savereggrid(dxdbgrid3,caption+'3');
savereggrid(dxdbgrid4,caption+'4');
savereggrid(dxdbgrid5,caption+'5');
savereggrid(dxdbgrid6,caption+'6');
savereggrid(dxdbgrid7,caption+'7');
frm_rp_no_total.Hide;
frm_rp_no_total.ManualFloat(frm_rp_no_total.BoundsRect );
frm_main.freeTabs('frm_rp_no_total');
action:=cafree;
frm_rp_no_total:=nil;
end;
procedure Tfrm_rp_no_total.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.bsSkinButton10Click(Sender: TObject);
begin
// if p_total.Active then p_total.close;
// p_total1.DataSet:=nil;
if p_total_client.Active then p_total_client.close;
p_total_client1.DataSet:=nil;
if p_total_sales.Active then p_total_sales.close;
p_total_sales1.DataSet:=nil;
if p_accept_bill.Active then p_accept_bill.close;
p_accept_bill1.DataSet:=nil;
if p_accept_fee.Active then p_accept_fee.close;
p_accept_fee1.DataSet:=nil;
if p_pay_bill.Active then p_pay_bill.close;
p_pay_bill1.DataSet:=nil;
if p_pay_fee.Active then p_pay_fee.close;
p_pay_fee1.DataSet:=nil;
try
frm_rp_no_seae_query:=tfrm_rp_no_seae_query.Create (self);
frm_rp_no_seae_query.Caption:='<27><><EFBFBD><EFBFBD>Ƿ<EFBFBD><C7B7>ͳ<EFBFBD><CDB3>';
no_seae_query_bs:=5;
no_seae_query_limited:='0033';
if bsSkinCheckRadioBox1.Checked then
no_seae_query_fee:=1
else if bsSkinCheckRadioBox2.Checked then
no_seae_query_fee:=2
else if bsSkinCheckRadioBox4.Checked then
no_seae_query_fee:=4
else if bsSkinCheckRadioBox5.Checked then
no_seae_query_fee:=5
else if bsSkinCheckRadioBox6.Checked then
no_seae_query_fee:=6
else
no_seae_query_fee:=3;
frm_rp_no_seae_query.ShowModal;
finally
end;
end;
procedure Tfrm_rp_no_total.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)
else if bsSkinTabSheet3.Showing then
dxDBGrid3.SaveToXLS(FileName,true);
end;
end;
end;
procedure Tfrm_rp_no_total.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.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.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.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.dxDBGrid4DblClick(Sender: TObject);
begin
fee_view(p_accept_bill.fieldbyname('<27><><EFBFBD><EFBFBD>').asstring);
end;
procedure Tfrm_rp_no_total.dxDBGrid5DblClick(Sender: TObject);
begin
fee_view(p_accept_fee.fieldbyname('<27><><EFBFBD><EFBFBD>').asstring);
end;
procedure Tfrm_rp_no_total.dxDBGrid6DblClick(Sender: TObject);
begin
fee_view(p_pay_bill.fieldbyname('<27><><EFBFBD><EFBFBD>').asstring);
end;
procedure Tfrm_rp_no_total.dxDBGrid7DblClick(Sender: TObject);
begin
fee_view(p_pay_fee.fieldbyname('<27><><EFBFBD><EFBFBD>').asstring);
end;
procedure Tfrm_rp_no_total.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 bsSkinTabSheet3.showing then
begin
update_grid_view_no(dxdbgrid3);
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.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 bsSkinTabSheet3.showing then
begin
update_grid_view_all(dxdbgrid3);
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.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 bsSkinTabSheet3.showing then
begin
update_grid(dxdbgrid3,125);
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.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 bsSkinTabSheet3.showing then
begin
grid_save_xls(dxdbgrid3);
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.FormShow(Sender: TObject);
begin
loadreggrid(dxdbgrid1,true,caption+'1');
loadreggrid(dxdbgrid2,true,caption+'2');
loadreggrid(dxdbgrid3,true,caption+'3');
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;
bsSkinTabSheet3.TabVisible:=EmpProfit;
end;
procedure Tfrm_rp_no_total.p_totalAfterOpen(DataSet: TDataSet);
begin
AdoFormatdxDBGrid(DataSet);
end;
procedure Tfrm_rp_no_total.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.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.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.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.bsSkinPageControl4Change(Sender: TObject);
begin
// bsSkinPageControl4.Refresh;
end;
procedure Tfrm_rp_no_total.N3Click(Sender: TObject);
begin
if bsSkinTabSheet1.showing then
begin
dxdbgrid1.FullExpand;
exit;
end;
if bsSkinTabSheet2.showing then
begin
dxdbgrid2.FullExpand;
exit;
end;
if bsSkinTabSheet3.showing then
begin
dxdbgrid3.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.N4Click(Sender: TObject);
begin
if bsSkinTabSheet1.showing then
begin
dxdbgrid1.FullCollapse;
exit;
end;
if bsSkinTabSheet2.showing then
begin
dxdbgrid2.FullCollapse;
exit;
end;
if bsSkinTabSheet3.showing then
begin
dxdbgrid3.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.dxDBGrid4Column61CustomDraw(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('<27><><EFBFBD>˳<EFBFBD><CBB3><EFBFBD>',ANode.Strings[dxDBGrid4Column61.Index]);
AFont.Color:=clblack;
end;
procedure Tfrm_rp_no_total.dxDBGrid5Column60CustomDraw(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('<27><><EFBFBD>˳<EFBFBD><CBB3><EFBFBD>',ANode.Strings[dxDBGrid5Column60.Index]);
AFont.Color:=clblack;
end;
procedure Tfrm_rp_no_total.dxDBGrid6Column57CustomDraw(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('<27><><EFBFBD>˳<EFBFBD><CBB3><EFBFBD>',ANode.Strings[dxDBGrid6Column57.Index]);
AFont.Color:=clblack;
end;
procedure Tfrm_rp_no_total.dxDBGrid7Column57CustomDraw(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('<27><><EFBFBD>˳<EFBFBD><CBB3><EFBFBD>',ANode.Strings[dxDBGrid7Column57.Index]);
AFont.Color:=clblack;
end;
procedure Tfrm_rp_no_total.dxDBGrid4Column62CustomDraw(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[dxDBGrid4Column62.Index]);
AFont.Color:=clblack;
end;
procedure Tfrm_rp_no_total.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.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.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.p_accept_billCalcFields(DataSet: TDataSet);
var corpsname,mblno:string;
begin
corpsname:=trim(DataSet.fieldByName('<27>ͻ<EFBFBD><CDBB><EFBFBD><EFBFBD><EFBFBD>').asstring);
mblno:=trim(DataSet.fieldByName('<27><><EFBFBD>ᵥ<EFBFBD><E1B5A5>').asstring);
if memtblDetail.Locate('<27>ͻ<EFBFBD><CDBB><EFBFBD><EFBFBD><EFBFBD>;<3B><><EFBFBD>ᵥ<EFBFBD><E1B5A5>', VarArrayOf([corpsname, mblno]), []) then
begin
DataSet.FieldByName('USD<53><44>Ʊ<EFBFBD><C6B1><EFBFBD><EFBFBD>').value:=memtblDetail.fieldByName('USD<53><44>Ʊ<EFBFBD><C6B1><EFBFBD><EFBFBD>').asstring;
DataSet.FieldByName('USD<53><44>Ʊ<EFBFBD><C6B1><EFBFBD><EFBFBD>').value:=memtblDetail.fieldByName('USD<53><44>Ʊ<EFBFBD><C6B1><EFBFBD><EFBFBD>').AsFloat;
DataSet.FieldByName('RMB<4D><42>Ʊ<EFBFBD><C6B1><EFBFBD><EFBFBD>').value:=memtblDetail.fieldByName('RMB<4D><42>Ʊ<EFBFBD><C6B1><EFBFBD><EFBFBD>').asstring;
DataSet.FieldByName('RMB<4D><42>Ʊ<EFBFBD><C6B1><EFBFBD><EFBFBD>').value:=memtblDetail.fieldByName('RMB<4D><42>Ʊ<EFBFBD><C6B1><EFBFBD><EFBFBD>').AsFloat;
end;
end;
end.