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: TBCDField;
    p_accept_billDSDesigner28: TBCDField;
    p_accept_billDSDesigner32: TBCDField;
    p_accept_billDSDesigner42: TBCDField;
    p_accept_billDSDesigner52: TBCDField;
    p_accept_billDSDesigner62: TBCDField;
    p_accept_billDSDesigner72: TBCDField;
    p_accept_billDSDesigner82: TBCDField;
    p_accept_billDSDesigner92: TBCDField;
    p_accept_billDSDesigner102: TBCDField;
    p_accept_billDSDesigner29: TBCDField;
    p_accept_billTEU: TBCDField;
    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;
    dxDBGrid4Column70: TdxDBGridColumn;
    p_accept_billField: TIntegerField;
    dxDBGrid5Column65: TdxDBGridColumn;
    dxDBGrid4Column71: TdxDBGridColumn;
    dxDBGrid6Column62: TdxDBGridColumn;
    p_accept_billField2: TStringField;
    dxDBGrid4Column72: TdxDBGridColumn;
    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;
    dxDBGrid5Column73: TdxDBGridColumn;
    dxDBGrid7Column68: TdxDBGridColumn;
    dxDBGrid4Column73: TdxDBGridColumn;
    dxDBGrid4Column74: TdxDBGridColumn;
    dxDBGrid4Column75: TdxDBGridColumn;
    p_accept_billField4: TFloatField;
    p_accept_billField5: TFloatField;
    p_accept_billBCDField: TFloatField;
    dxDBGrid6Column64: TdxDBGridColumn;
    dxDBGrid6Column65: TdxDBGridColumn;
    dxDBGrid6Column66: TdxDBGridColumn;
    dxDBGrid1Column30: TdxDBGridColumn;
    dxDBGrid1Column31: TdxDBGridColumn;
    dxDBGrid1Column32: TdxDBGridColumn;
    dxDBGrid1Column33: TdxDBGridColumn;
    dxDBGrid1Column34: TdxDBGridColumn;
    dxDBGrid1Column35: TdxDBGridColumn;
    dxDBGrid2Column24: TdxDBGridColumn;
    dxDBGrid2Column25: TdxDBGridColumn;
    dxDBGrid2Column26: TdxDBGridColumn;
    dxDBGrid2Column27: TdxDBGridColumn;
    dxDBGrid2Column28: TdxDBGridColumn;
    dxDBGrid2Column29: TdxDBGridColumn;
    dxDBGrid3Column27: TdxDBGridColumn;
    dxDBGrid3Column28: TdxDBGridColumn;
    dxDBGrid3Column29: TdxDBGridColumn;
    dxDBGrid3Column30: TdxDBGridColumn;
    dxDBGrid3Column31: TdxDBGridColumn;
    dxDBGrid3Column32: TdxDBGridColumn;
    dxDBGrid4Column76: TdxDBGridColumn;
    p_accept_billField6: TStringField;
    dxDBGrid6Column67: TdxDBGridColumn;
    dxDBGrid6Column68: TdxDBGridColumn;
    dxDBGrid6Column69: TdxDBGridColumn;
    dxDBGrid4Column77: TdxDBGridColumn;
    p_accept_billField7: TDateField;
    p_accept_billField8: TDateField;
    dxDBGrid4Column78: TdxDBGridColumn;
    dxDBGrid6Column70: TdxDBGridColumn;
    dxDBGrid6Column71: TdxDBGridColumn;
    p_accept_billField9: TStringField;
    dxDBGrid4Column79: TdxDBGridColumn;
    dxDBGrid5Column74: TdxDBGridColumn;
    dxDBGrid5Column75: TdxDBGridColumn;
    dxDBGrid5Column76: TdxDBGridColumn;
    dxDBGrid5Column77: TdxDBGridColumn;
    dxDBGrid5Column78: TdxDBGridColumn;
    dxDBGrid5Column79: TdxDBGridColumn;
    dxDBGrid7Column69: TdxDBGridColumn;
    dxDBGrid7Column70: TdxDBGridColumn;
    dxDBGrid7Column71: TdxDBGridColumn;
    dxDBGrid7Column72: TdxDBGridColumn;
    dxDBGrid7Column73: TdxDBGridColumn;
    dxDBGrid7Column74: TdxDBGridColumn;
    p_accept_billField10: TStringField;
    dxDBGrid4Column80: 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);
    procedure dxDBGrid4CustomDraw(Sender: TObject; ACanvas: TCanvas;
      ARect: TRect; ANode: TdxTreeListNode; AColumn: TdxDBTreeListColumn;
      const AText: String; AFont: TFont; var AColor: TColor; ASelected,
      AFocused: Boolean; var ADone: Boolean);
  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:='所有欠费统计';
    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.rp_seae_query_str:='综合欠费';


    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('欠费综合分析',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,'客户名称');
end;

procedure Tfrm_rp_no_total.dxDBGrid2ColumnSorting(Sender: TObject;
  Column: TdxDBTreeListColumn; var Allow: Boolean);
begin
  Column_sort_pro(Column,p_total_sales,'客户名称');
end;

procedure Tfrm_rp_no_total.dxDBGrid3ColumnSorting(Sender: TObject;
  Column: TdxDBTreeListColumn; var Allow: Boolean);
begin
  Column_sort_pro(Column,p_total,'业务种类');
end;

procedure Tfrm_rp_no_total.dxDBGrid4DblClick(Sender: TObject);
begin
  if EmpDr 
    and EmpCr then

  fee_view(p_accept_bill.fieldbyname('编号').asstring);

end;

procedure Tfrm_rp_no_total.dxDBGrid5DblClick(Sender: TObject);
begin
  if EmpDr 
    and EmpCr then
  fee_view(p_accept_fee.fieldbyname('编号').asstring);

end;

procedure Tfrm_rp_no_total.dxDBGrid6DblClick(Sender: TObject);
begin
  if EmpDr 
    and EmpCr then
  fee_view(p_pay_bill.fieldbyname('编号').asstring);

end;

procedure Tfrm_rp_no_total.dxDBGrid7DblClick(Sender: TObject);
begin
  if EmpDr 
    and EmpCr then
  fee_view(p_pay_fee.fieldbyname('编号').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,'客户名称');
end;

procedure Tfrm_rp_no_total.dxDBGrid5ColumnSorting(Sender: TObject;
  Column: TdxDBTreeListColumn; var Allow: Boolean);
begin
  Column_sort_pro(Column,p_accept_fee,'客户名称');

end;

procedure Tfrm_rp_no_total.dxDBGrid6ColumnSorting(Sender: TObject;
  Column: TdxDBTreeListColumn; var Allow: Boolean);
begin
  Column_sort_pro(Column,p_pay_bill,'客户名称');
end;

procedure Tfrm_rp_no_total.dxDBGrid7ColumnSorting(Sender: TObject;
  Column: TdxDBTreeListColumn; var Allow: Boolean);
begin
  Column_sort_pro(Column,p_pay_fee,'客户名称');

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('海运出口',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('海运出口',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('海运出口',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('海运出口',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('客户名称').asstring);
  mblno:=trim(DataSet.fieldByName('主提单号').asstring);
  if memtblDetail.Locate('客户名称;主提单号', VarArrayOf([corpsname, mblno]), []) then
  begin
    DataSet.FieldByName('USD发票号码').value:=memtblDetail.fieldByName('USD发票号码').asstring;
    DataSet.FieldByName('USD发票金额').value:=memtblDetail.fieldByName('USD发票金额').AsFloat;
    DataSet.FieldByName('RMB发票号码').value:=memtblDetail.fieldByName('RMB发票号码').asstring;
    DataSet.FieldByName('RMB发票金额').value:=memtblDetail.fieldByName('RMB发票金额').AsFloat;
  end;  
end;
procedure Tfrm_rp_no_total.dxDBGrid4CustomDraw(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
  if strtofloatdef(ANode.Strings[dxDBGrid4Column70.Index],0)>0 then
    if strtofloatdef(ANode.Strings[dxDBGrid1Column66.Index],0)>0 then
    begin
      AColor:=clMoneyGreen;
      exit;
    end;

end;

end.