hanxuntao
/
DONGSHENG6
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 'master'
${ noResults }
DONGSHENG6/财务管理/u_ch_invoice.~pas

4479 lines
146 KiB
Plaintext
Raw Permalink Blame History Unescape Escape

This file contains ambiguous Unicode characters!

This file contains ambiguous Unicode characters that may be confused with others in your current locale. If your use case is intentional and legitimate, you can safely ignore this warning. Use the Escape button to highlight these characters.

{$INCLUDE t_main.inc}
unit u_ch_invoice;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, ComCtrls, bsSkinTabs, bsSkinCtrls, DB, ADODB, dxExEdtr,CommCtrl,
dxCntner, dxTL, dxDBCtrl, dxDBGrid, dxDBTLCl, dxGrClms, wwdblook,
StdCtrls, DBCtrls, RxLookup, bsdbctrls, Mask, wwdbdatetimepicker,
ExtCtrls, Menus, XPMenu, u_ch_add_do, u_ch_delete_do, wwdbedit, Wwdotdot,
Wwdbcomb, DBCtrlsEh, cxStyles, cxCustomData, cxGraphics, cxFilter,
cxData, cxDataStorage, cxEdit, cxDBData, cxCurrencyEdit, cxNavigator,
cxDBNavigator, cxGridLevel, cxGridCustomTableView, cxGridTableView,
cxGridDBTableView, cxClasses, cxControls, cxGridCustomView, cxGrid,inifiles;
type
Tfrm_ch_invoice = class(TForm)
bsSkinPageControl1: TbsSkinPageControl;
bsSkinTabSheet1: TbsSkinTabSheet;
bsSkinTabSheet2: TbsSkinTabSheet;
bsSkinTabSheet3: TbsSkinTabSheet;
bsSkinPanel2: TbsSkinPanel;
bsSkinButton5: TbsSkinButton;
bsSkinButton9: TbsSkinButton;
bsSkinButton10: TbsSkinButton;
bsSkinButton3: TbsSkinButton;
bsSkinButton1: TbsSkinButton;
t_ch_invoice_shen: TADOQuery;
t_ch_invoice_shen1: TDataSource;
v_fee_do_seae: TADOQuery;
v_fee_do_seae1: TDataSource;
t_ch_invoice: TADOQuery;
t_ch_invoice1: TDataSource;
bsSkinButton2: TbsSkinButton;
bsSkinButton6: TbsSkinButton;
bsSkinButton7: TbsSkinButton;
bsSkinButton8: TbsSkinButton;
bsSkinPanel1: TbsSkinPanel;
bsSkinButton4: TbsSkinButton;
bsSkinButton11: TbsSkinButton;
bsSkinButton12: TbsSkinButton;
bsSkinButton13: TbsSkinButton;
bsSkinButton14: TbsSkinButton;
bsSkinButton16: TbsSkinButton;
bsSkinButton17: TbsSkinButton;
bsSkinButton18: TbsSkinButton;
bsSkinButton19: TbsSkinButton;
bsSkinButton15: TbsSkinButton;
bsSkinButton20: TbsSkinButton;
bsSkinPanel3: TbsSkinPanel;
bsSkinButton21: TbsSkinButton;
bsSkinButton23: TbsSkinButton;
bsSkinButton24: TbsSkinButton;
bsSkinButton25: TbsSkinButton;
bsSkinButton26: TbsSkinButton;
bsSkinButton30: TbsSkinButton;
bsSkinPageControl2: TbsSkinPageControl;
bsSkinTabSheet11: TbsSkinTabSheet;
bsSkinTabSheet22: TbsSkinTabSheet;
dxDBGrid2: TdxDBGrid;
dxDBGridMaskColumn1: TdxDBGridMaskColumn;
dxDBGridMaskColumn2: TdxDBGridMaskColumn;
dxDBGridMaskColumn3: TdxDBGridMaskColumn;
dxDBGridMaskColumn4: TdxDBGridMaskColumn;
dxDBGridMaskColumn5: TdxDBGridMaskColumn;
dxDBGridMaskColumn6: TdxDBGridMaskColumn;
dxDBGridMaskColumn7: TdxDBGridMaskColumn;
dxDBGridDateColumn1: TdxDBGridDateColumn;
dxDBGridMaskColumn8: TdxDBGridMaskColumn;
dxDBGridMaskColumn9: TdxDBGridMaskColumn;
dxDBGridMaskColumn10: TdxDBGridMaskColumn;
dxDBGridMaskColumn11: TdxDBGridMaskColumn;
dxDBGridMaskColumn12: TdxDBGridMaskColumn;
dxDBGridColumn1: TdxDBGridColumn;
dxDBGridColumn2: TdxDBGridColumn;
dxDBGridColumn3: TdxDBGridColumn;
dxDBGridColumn4: TdxDBGridColumn;
dxDBGrid1Column18: TdxDBGridMaskColumn;
dxDBGridMaskColumn13: TdxDBGridMaskColumn;
dxDBGridDateColumn2: TdxDBGridDateColumn;
dxDBGridMaskColumn14: TdxDBGridMaskColumn;
dxDBGridDateColumn3: TdxDBGridDateColumn;
dxDBGridMaskColumn15: TdxDBGridMaskColumn;
dxDBGridDateColumn4: TdxDBGridDateColumn;
bsSkinButton28: TbsSkinButton;
bsSkinButton29: TbsSkinButton;
bsSkinPageControl3: TbsSkinPageControl;
bsSkinTabSheet4: TbsSkinTabSheet;
dxDBGrid3: TdxDBGrid;
dxDBGridMaskColumn16: TdxDBGridMaskColumn;
dxDBGridMaskColumn17: TdxDBGridMaskColumn;
dxDBGridMaskColumn18: TdxDBGridMaskColumn;
dxDBGridMaskColumn19: TdxDBGridMaskColumn;
dxDBGridMaskColumn20: TdxDBGridMaskColumn;
dxDBGridColumn5: TdxDBGridColumn;
dxDBGridColumn6: TdxDBGridColumn;
dxDBGridMaskColumn21: TdxDBGridMaskColumn;
dxDBGridDateColumn5: TdxDBGridDateColumn;
dxDBGridDateColumn6: TdxDBGridDateColumn;
dxDBGridMaskColumn22: TdxDBGridMaskColumn;
dxDBGridMaskColumn23: TdxDBGridMaskColumn;
dxDBGridMaskColumn24: TdxDBGridMaskColumn;
dxDBGridMaskColumn25: TdxDBGridMaskColumn;
dxDBGridMaskColumn26: TdxDBGridMaskColumn;
dxDBGridColumn7: TdxDBGridColumn;
dxDBGridColumn8: TdxDBGridColumn;
dxDBGridMaskColumn27: TdxDBGridMaskColumn;
dxDBGridMaskColumn28: TdxDBGridMaskColumn;
dxDBGridMaskColumn29: TdxDBGridMaskColumn;
dxDBGridMaskColumn30: TdxDBGridMaskColumn;
bsSkinTabSheet5: TbsSkinTabSheet;
bsSkinTabSheet6: TbsSkinTabSheet;
bsSkinTabSheet7: TbsSkinTabSheet;
bsSkinPanel7: TbsSkinPanel;
Label54: TLabel;
DBEdit16: TDBEdit;
Label21: TLabel;
DBEdit12: TDBEdit;
Label57: TLabel;
DBEdit17: TDBEdit;
Label59: TLabel;
DBEdit18: TDBEdit;
Label63: TLabel;
RxDBLookupCombo3: TRxDBLookupCombo;
PopupMenu2: TPopupMenu;
N1: TMenuItem;
N2: TMenuItem;
N20: TMenuItem;
bsSkinButton31: TbsSkinButton;
XPMenu1: TXPMenu;
v_fee_do_seai: TADOQuery;
v_fee_do_seai1: TDataSource;
dxDBGrid4: TdxDBGrid;
dxDBGridMaskColumn31: TdxDBGridMaskColumn;
dxDBGridMaskColumn32: TdxDBGridMaskColumn;
dxDBGridMaskColumn33: TdxDBGridMaskColumn;
dxDBGridMaskColumn34: TdxDBGridMaskColumn;
dxDBGridMaskColumn35: TdxDBGridMaskColumn;
dxDBGridColumn9: TdxDBGridColumn;
dxDBGridColumn10: TdxDBGridColumn;
dxDBGridMaskColumn36: TdxDBGridMaskColumn;
dxDBGridDateColumn7: TdxDBGridDateColumn;
dxDBGridDateColumn8: TdxDBGridDateColumn;
dxDBGridMaskColumn37: TdxDBGridMaskColumn;
dxDBGridMaskColumn38: TdxDBGridMaskColumn;
dxDBGridMaskColumn39: TdxDBGridMaskColumn;
dxDBGridMaskColumn40: TdxDBGridMaskColumn;
dxDBGridMaskColumn41: TdxDBGridMaskColumn;
dxDBGridColumn11: TdxDBGridColumn;
dxDBGridColumn12: TdxDBGridColumn;
dxDBGridMaskColumn42: TdxDBGridMaskColumn;
dxDBGridMaskColumn43: TdxDBGridMaskColumn;
dxDBGridMaskColumn44: TdxDBGridMaskColumn;
dxDBGridMaskColumn45: TdxDBGridMaskColumn;
N3: TMenuItem;
N4: TMenuItem;
v_fee_do_aire: TADOQuery;
v_fee_do_aire1: TDataSource;
v_fee_do_airi: TADOQuery;
v_fee_do_airi1: TDataSource;
dxDBGrid5: TdxDBGrid;
dxDBGridMaskColumn46: TdxDBGridMaskColumn;
dxDBGridMaskColumn47: TdxDBGridMaskColumn;
dxDBGridMaskColumn48: TdxDBGridMaskColumn;
dxDBGridMaskColumn49: TdxDBGridMaskColumn;
dxDBGridMaskColumn50: TdxDBGridMaskColumn;
dxDBGridColumn13: TdxDBGridColumn;
dxDBGridColumn14: TdxDBGridColumn;
dxDBGridMaskColumn51: TdxDBGridMaskColumn;
dxDBGridDateColumn9: TdxDBGridDateColumn;
dxDBGridDateColumn10: TdxDBGridDateColumn;
dxDBGridMaskColumn52: TdxDBGridMaskColumn;
dxDBGridMaskColumn53: TdxDBGridMaskColumn;
dxDBGridMaskColumn54: TdxDBGridMaskColumn;
dxDBGridColumn15: TdxDBGridColumn;
dxDBGridColumn16: TdxDBGridColumn;
dxDBGridMaskColumn55: TdxDBGridMaskColumn;
dxDBGridMaskColumn56: TdxDBGridMaskColumn;
dxDBGridMaskColumn57: TdxDBGridMaskColumn;
dxDBGrid6: TdxDBGrid;
dxDBGridMaskColumn58: TdxDBGridMaskColumn;
dxDBGridMaskColumn59: TdxDBGridMaskColumn;
dxDBGridMaskColumn60: TdxDBGridMaskColumn;
dxDBGridMaskColumn61: TdxDBGridMaskColumn;
dxDBGridMaskColumn62: TdxDBGridMaskColumn;
dxDBGridColumn17: TdxDBGridColumn;
dxDBGridColumn18: TdxDBGridColumn;
dxDBGridMaskColumn63: TdxDBGridMaskColumn;
dxDBGridDateColumn11: TdxDBGridDateColumn;
dxDBGridDateColumn12: TdxDBGridDateColumn;
dxDBGridMaskColumn64: TdxDBGridMaskColumn;
dxDBGridMaskColumn65: TdxDBGridMaskColumn;
dxDBGridMaskColumn66: TdxDBGridMaskColumn;
dxDBGridColumn19: TdxDBGridColumn;
dxDBGridColumn20: TdxDBGridColumn;
dxDBGridMaskColumn67: TdxDBGridMaskColumn;
dxDBGridMaskColumn68: TdxDBGridMaskColumn;
dxDBGridMaskColumn69: TdxDBGridMaskColumn;
PopupMenu1: TPopupMenu;
N10: TMenuItem;
N11: TMenuItem;
N14: TMenuItem;
N13: TMenuItem;
N12: TMenuItem;
N15: TMenuItem;
N16: TMenuItem;
bsSkinButton22: TbsSkinButton;
bsSkinButton27: TbsSkinButton;
bsSkinButton32: TbsSkinButton;
ADOQuery1: TADOQuery;
DataSource1: TDataSource;
ADOQuery2: TADOQuery;
DataSource2: TDataSource;
ADOQuery3: TADOQuery;
DataSource3: TDataSource;
ADOQuery4: TADOQuery;
DataSource4: TDataSource;
PopupMenu3: TPopupMenu;
N17: TMenuItem;
N18: TMenuItem;
N34: TMenuItem;
N35: TMenuItem;
N36: TMenuItem;
MenuItem1: TMenuItem;
N6: TMenuItem;
N5: TMenuItem;
MenuItem2: TMenuItem;
bsSkinPanel4: TbsSkinPanel;
Label1: TLabel;
Label4: TLabel;
Label7: TLabel;
Label13: TLabel;
Label2: TLabel;
Label5: TLabel;
Label8: TLabel;
Label14: TLabel;
Label9: TLabel;
Label3: TLabel;
Label6: TLabel;
Label10: TLabel;
Label11: TLabel;
Label16: TLabel;
Label15: TLabel;
bsSkinPanel5: TbsSkinPanel;
Label25: TLabel;
Label17: TLabel;
Label18: TLabel;
Label20: TLabel;
Label19: TLabel;
Label12: TLabel;
Label64: TLabel;
Label65: TLabel;
DBEdit14: TDBEdit;
DBEdit1: TDBEdit;
DBEdit5: TDBEdit;
DBEdit7: TDBEdit;
DBEdit8: TDBEdit;
DBEdit2: TDBEdit;
DBEdit3: TDBEdit;
DBEdit4: TDBEdit;
DBMemo1: TDBMemo;
DBEdit6: TDBEdit;
DBEdit9: TDBEdit;
DBMemo2: TDBMemo;
DBEdit10: TDBEdit;
DBEdit11: TDBEdit;
DBEdit20: TDBEdit;
DBEdit21: TDBEdit;
DBMemo3: TDBMemo;
DBEdit22: TDBEdit;
DBEdit23: TDBEdit;
DBEdit24: TDBEdit;
DBEdit25: TDBEdit;
DBEdit26: TDBEdit;
DBEdit28: TDBEdit;
dxDBGrid2Column25: TdxDBGridColumn;
dxDBGrid2Column26: TdxDBGridColumn;
dxDBGrid3Column22: TdxDBGridColumn;
dxDBGrid4Column22: TdxDBGridColumn;
dxDBGrid5Column19: TdxDBGridColumn;
dxDBGrid6Column19: TdxDBGridColumn;
t_ch_invoice_head: TADOQuery;
t_ch_invoice_head1: TDataSource;
dxDBGrid3Column23: TdxDBGridColumn;
dxDBGrid6Column20: TdxDBGridColumn;
dxDBGrid5Column20: TdxDBGridColumn;
dxDBGrid4Column23: TdxDBGridColumn;
N7: TMenuItem;
N8: TMenuItem;
N9: TMenuItem;
N19: TMenuItem;
bsSkinNotebook1: TbsSkinNotebook;
dxDBGrid1: TdxDBGrid;
dxDBGrid1Column1: TdxDBGridMaskColumn;
dxDBGrid1Column38: TdxDBGridCheckColumn;
dxDBGrid1Column2: TdxDBGridMaskColumn;
dxDBGrid1Column3: TdxDBGridMaskColumn;
dxDBGrid1Column4: TdxDBGridMaskColumn;
dxDBGrid1Column5: TdxDBGridDateColumn;
dxDBGrid1Column6: TdxDBGridMaskColumn;
dxDBGrid1Column7: TdxDBGridMaskColumn;
dxDBGrid1Column8: TdxDBGridMaskColumn;
dxDBGrid1Column9: TdxDBGridMaskColumn;
dxDBGrid1Column10: TdxDBGridDateColumn;
dxDBGrid1Column11: TdxDBGridMaskColumn;
dxDBGrid1Column12: TdxDBGridMaskColumn;
dxDBGrid1Column13: TdxDBGridMaskColumn;
dxDBGrid1Column14: TdxDBGridMaskColumn;
dxDBGrid1Column15: TdxDBGridMaskColumn;
dxDBGrid1Column16: TdxDBGridMaskColumn;
dxDBGrid1Column17: TdxDBGridMaskColumn;
dxDBGrid1Column37: TdxDBGridColumn;
dxDBGrid1Column19: TdxDBGridColumn;
dxDBGrid1Column20: TdxDBGridColumn;
dxDBGrid1Column21: TdxDBGridColumn;
dxDBGrid1Column22: TdxDBGridMaskColumn;
dxDBGrid1Column23: TdxDBGridMaskColumn;
dxDBGrid1Column24: TdxDBGridMaskColumn;
dxDBGrid1Column25: TdxDBGridCheckColumn;
dxDBGrid1Column26: TdxDBGridMaskColumn;
dxDBGrid1Column27: TdxDBGridDateColumn;
dxDBGrid1Column28: TdxDBGridMaskColumn;
dxDBGrid1Column32: TdxDBGridCheckColumn;
dxDBGrid1Column29: TdxDBGridCheckColumn;
dxDBGrid1Column30: TdxDBGridMaskColumn;
dxDBGrid1Column35: TdxDBGridMaskColumn;
dxDBGrid1Column36: TdxDBGridDateColumn;
dxDBGrid1Column31: TdxDBGridMaskColumn;
dxDBGrid1Column33: TdxDBGridMaskColumn;
dxDBGrid1Column34: TdxDBGridDateColumn;
bsSkinPageControl4: TbsSkinPageControl;
pagesheet2: TbsSkinTabSheet;
bsSkinPageControl5: TbsSkinPageControl;
bsSkinTabSheet8: TbsSkinTabSheet;
dxDBGrid7: TdxDBGrid;
dxDBGridMaskColumn70: TdxDBGridMaskColumn;
dxDBGridMaskColumn71: TdxDBGridMaskColumn;
dxDBGridMaskColumn72: TdxDBGridMaskColumn;
dxDBGridMaskColumn73: TdxDBGridMaskColumn;
dxDBGridMaskColumn74: TdxDBGridMaskColumn;
dxDBGridColumn21: TdxDBGridColumn;
dxDBGrid7Column23: TdxDBGridColumn;
dxDBGridColumn22: TdxDBGridColumn;
dxDBGridMaskColumn75: TdxDBGridMaskColumn;
dxDBGrid7Column22: TdxDBGridColumn;
dxDBGridDateColumn13: TdxDBGridDateColumn;
dxDBGridDateColumn14: TdxDBGridDateColumn;
dxDBGridMaskColumn76: TdxDBGridMaskColumn;
dxDBGridMaskColumn77: TdxDBGridMaskColumn;
dxDBGridMaskColumn78: TdxDBGridMaskColumn;
dxDBGridMaskColumn79: TdxDBGridMaskColumn;
dxDBGridMaskColumn80: TdxDBGridMaskColumn;
dxDBGridColumn23: TdxDBGridColumn;
dxDBGridColumn24: TdxDBGridColumn;
dxDBGridMaskColumn81: TdxDBGridMaskColumn;
dxDBGridMaskColumn82: TdxDBGridMaskColumn;
dxDBGridMaskColumn83: TdxDBGridMaskColumn;
dxDBGridMaskColumn84: TdxDBGridMaskColumn;
bsSkinTabSheet9: TbsSkinTabSheet;
dxDBGrid8: TdxDBGrid;
dxDBGridMaskColumn85: TdxDBGridMaskColumn;
dxDBGridMaskColumn86: TdxDBGridMaskColumn;
dxDBGridMaskColumn87: TdxDBGridMaskColumn;
dxDBGridMaskColumn88: TdxDBGridMaskColumn;
dxDBGridMaskColumn89: TdxDBGridMaskColumn;
dxDBGridColumn25: TdxDBGridColumn;
dxDBGrid8Column23: TdxDBGridColumn;
dxDBGridColumn26: TdxDBGridColumn;
dxDBGridMaskColumn90: TdxDBGridMaskColumn;
dxDBGrid8Column22: TdxDBGridColumn;
dxDBGridDateColumn15: TdxDBGridDateColumn;
dxDBGridDateColumn16: TdxDBGridDateColumn;
dxDBGridMaskColumn91: TdxDBGridMaskColumn;
dxDBGridMaskColumn92: TdxDBGridMaskColumn;
dxDBGridMaskColumn93: TdxDBGridMaskColumn;
dxDBGridMaskColumn94: TdxDBGridMaskColumn;
dxDBGridMaskColumn95: TdxDBGridMaskColumn;
dxDBGridColumn27: TdxDBGridColumn;
dxDBGridColumn28: TdxDBGridColumn;
dxDBGridMaskColumn96: TdxDBGridMaskColumn;
dxDBGridMaskColumn97: TdxDBGridMaskColumn;
dxDBGridMaskColumn98: TdxDBGridMaskColumn;
dxDBGridMaskColumn99: TdxDBGridMaskColumn;
bsSkinTabSheet10: TbsSkinTabSheet;
dxDBGrid9: TdxDBGrid;
dxDBGridMaskColumn100: TdxDBGridMaskColumn;
dxDBGridMaskColumn101: TdxDBGridMaskColumn;
dxDBGridMaskColumn102: TdxDBGridMaskColumn;
dxDBGridMaskColumn103: TdxDBGridMaskColumn;
dxDBGridMaskColumn104: TdxDBGridMaskColumn;
dxDBGridColumn29: TdxDBGridColumn;
dxDBGrid9Column20: TdxDBGridColumn;
dxDBGridColumn30: TdxDBGridColumn;
dxDBGridMaskColumn105: TdxDBGridMaskColumn;
dxDBGrid9Column19: TdxDBGridColumn;
dxDBGridDateColumn17: TdxDBGridDateColumn;
dxDBGridDateColumn18: TdxDBGridDateColumn;
dxDBGridMaskColumn106: TdxDBGridMaskColumn;
dxDBGridMaskColumn107: TdxDBGridMaskColumn;
dxDBGridMaskColumn108: TdxDBGridMaskColumn;
dxDBGridColumn31: TdxDBGridColumn;
dxDBGridColumn32: TdxDBGridColumn;
dxDBGridMaskColumn109: TdxDBGridMaskColumn;
dxDBGridMaskColumn110: TdxDBGridMaskColumn;
dxDBGridMaskColumn111: TdxDBGridMaskColumn;
bsSkinTabSheet12: TbsSkinTabSheet;
dxDBGrid10: TdxDBGrid;
dxDBGridMaskColumn112: TdxDBGridMaskColumn;
dxDBGridMaskColumn113: TdxDBGridMaskColumn;
dxDBGridMaskColumn114: TdxDBGridMaskColumn;
dxDBGridMaskColumn115: TdxDBGridMaskColumn;
dxDBGridMaskColumn116: TdxDBGridMaskColumn;
dxDBGridColumn33: TdxDBGridColumn;
dxDBGrid10Column20: TdxDBGridColumn;
dxDBGridColumn34: TdxDBGridColumn;
dxDBGridMaskColumn117: TdxDBGridMaskColumn;
dxDBGrid10Column19: TdxDBGridColumn;
dxDBGridDateColumn19: TdxDBGridDateColumn;
dxDBGridDateColumn20: TdxDBGridDateColumn;
dxDBGridMaskColumn118: TdxDBGridMaskColumn;
dxDBGridMaskColumn119: TdxDBGridMaskColumn;
dxDBGridMaskColumn120: TdxDBGridMaskColumn;
dxDBGridColumn35: TdxDBGridColumn;
dxDBGridColumn36: TdxDBGridColumn;
dxDBGridMaskColumn121: TdxDBGridMaskColumn;
dxDBGridMaskColumn122: TdxDBGridMaskColumn;
dxDBGridMaskColumn123: TdxDBGridMaskColumn;
bsSkinPageControl6: TbsSkinPageControl;
bstab1: TbsSkinTabSheet;
bstab2: TbsSkinTabSheet;
s_invoice: TScrollBox;
Label27: TLabel;
Label29: TLabel;
Label31: TLabel;
Label33: TLabel;
Label35: TLabel;
Label41: TLabel;
Shape10: TShape;
Shape14: TShape;
Label46: TLabel;
Label47: TLabel;
Label48: TLabel;
Label49: TLabel;
Label50: TLabel;
Label52: TLabel;
Label53: TLabel;
Label55: TLabel;
Label56: TLabel;
Label58: TLabel;
Label60: TLabel;
Label61: TLabel;
Label62: TLabel;
Label24: TLabel;
Label26: TLabel;
Label66: TLabel;
wwDBDateTimePicker1: TwwDBDateTimePicker;
DE_ShipName: TDBEdit;
DE_BLNO: TDBEdit;
wwDBDateTimePicker2: TwwDBDateTimePicker;
DM: TDBMemo;
DE_SumUpper: TDBEdit;
DBSumLower: TDBEdit;
DE_BusnessNo: TDBEdit;
DE_TaxNo: TDBEdit;
DE_Maker: TDBEdit;
wwDBDateTimePicker3: TwwDBDateTimePicker;
wwDBLookupCombo6: TwwDBLookupCombo;
wwDBLookupCombo7: TwwDBLookupCombo;
DBCheckBox3: TDBCheckBox;
wwDBLookupCombo12: TwwDBLookupCombo;
RxDBLookupCombo2: TRxDBLookupCombo;
DBEdit27: TDBEdit;
bsSkinPanel6: TbsSkinPanel;
Label22: TLabel;
Label23: TLabel;
DBEdit13: TDBEdit;
DBEdit15: TDBEdit;
bsSkinDBCheckRadioBox2: TbsSkinDBCheckRadioBox;
bsSkinDBCheckRadioBox3: TbsSkinDBCheckRadioBox;
DBEdit29: TDBEdit;
wwDBLookupCombo1: TwwDBLookupCombo;
Panel1: TPanel;
fra_ch_delete_do1: Tfra_ch_delete_do;
fra_ch_add_do1: Tfra_ch_add_do;
ComboBoxObjBsCard: TDBComboBox;
dxDBGrid1Column39: TdxDBGridColumn;
dbedt1: TDBEdit;
DBEdit19: TDBEdit;
DBEdit30: TDBEdit;
t_sys_bank: TADOQuery;
t_sys_bank1: TDataSource;
bsSkinButton38: TbsSkinButton;
bsSkinButton33: TbsSkinButton;
DBComboBoxEh1: TDBComboBoxEh;
dxDBGrid3Column24: TdxDBGridColumn;
dxDBGrid3Column25: TdxDBGridColumn;
dxDBGrid4Column24: TdxDBGridColumn;
dxDBGrid4Column25: TdxDBGridColumn;
dxDBGrid5Column21: TdxDBGridColumn;
dxDBGrid5Column22: TdxDBGridColumn;
dxDBGrid6Column21: TdxDBGridColumn;
dxDBGrid6Column22: TdxDBGridColumn;
dxDBGrid7Column24: TdxDBGridColumn;
dxDBGrid7Column25: TdxDBGridColumn;
dxDBGrid8Column24: TdxDBGridColumn;
dxDBGrid8Column25: TdxDBGridColumn;
bsSkinButton34: TbsSkinButton;
bsSkinButton35: TbsSkinButton;
v_fee_do_bscard: TADOQuery;
v_fee_do_bscard1: TDataSource;
bsSkinTabSheet13: TbsSkinTabSheet;
dxDBGrid11: TdxDBGrid;
dxDBGridMaskColumn124: TdxDBGridMaskColumn;
dxDBGridMaskColumn125: TdxDBGridMaskColumn;
dxDBGridMaskColumn126: TdxDBGridMaskColumn;
dxDBGridMaskColumn127: TdxDBGridMaskColumn;
dxDBGridMaskColumn128: TdxDBGridMaskColumn;
dxDBGridColumn37: TdxDBGridColumn;
dxDBGridColumn38: TdxDBGridColumn;
dxDBGridColumn39: TdxDBGridColumn;
dxDBGridMaskColumn129: TdxDBGridMaskColumn;
dxDBGridColumn40: TdxDBGridColumn;
dxDBGridDateColumn21: TdxDBGridDateColumn;
dxDBGridDateColumn22: TdxDBGridDateColumn;
dxDBGridMaskColumn130: TdxDBGridMaskColumn;
dxDBGridMaskColumn131: TdxDBGridMaskColumn;
dxDBGridMaskColumn132: TdxDBGridMaskColumn;
dxDBGridMaskColumn133: TdxDBGridMaskColumn;
dxDBGridMaskColumn134: TdxDBGridMaskColumn;
dxDBGridColumn41: TdxDBGridColumn;
dxDBGridColumn42: TdxDBGridColumn;
dxDBGridMaskColumn135: TdxDBGridMaskColumn;
dxDBGridMaskColumn136: TdxDBGridMaskColumn;
dxDBGridMaskColumn137: TdxDBGridMaskColumn;
dxDBGridMaskColumn138: TdxDBGridMaskColumn;
dxDBGridColumn43: TdxDBGridColumn;
dxDBGridColumn44: TdxDBGridColumn;
dxDBGrid11Column26: TdxDBGridColumn;
bsSkinTabSheet14: TbsSkinTabSheet;
dxDBGrid12: TdxDBGrid;
dxDBGridMaskColumn139: TdxDBGridMaskColumn;
dxDBGridMaskColumn140: TdxDBGridMaskColumn;
dxDBGridMaskColumn141: TdxDBGridMaskColumn;
dxDBGridMaskColumn142: TdxDBGridMaskColumn;
dxDBGridMaskColumn143: TdxDBGridMaskColumn;
dxDBGridColumn45: TdxDBGridColumn;
dxDBGridColumn46: TdxDBGridColumn;
dxDBGridColumn47: TdxDBGridColumn;
dxDBGridColumn48: TdxDBGridColumn;
dxDBGridMaskColumn144: TdxDBGridMaskColumn;
dxDBGridColumn49: TdxDBGridColumn;
dxDBGridDateColumn23: TdxDBGridDateColumn;
dxDBGridDateColumn24: TdxDBGridDateColumn;
dxDBGridMaskColumn145: TdxDBGridMaskColumn;
dxDBGridMaskColumn146: TdxDBGridMaskColumn;
dxDBGridMaskColumn147: TdxDBGridMaskColumn;
dxDBGridMaskColumn148: TdxDBGridMaskColumn;
dxDBGridMaskColumn149: TdxDBGridMaskColumn;
dxDBGridColumn50: TdxDBGridColumn;
dxDBGridColumn51: TdxDBGridColumn;
dxDBGridColumn52: TdxDBGridColumn;
dxDBGridMaskColumn150: TdxDBGridMaskColumn;
dxDBGridMaskColumn151: TdxDBGridMaskColumn;
dxDBGridMaskColumn152: TdxDBGridMaskColumn;
dxDBGridMaskColumn153: TdxDBGridMaskColumn;
dxDBGrid12Column26: TdxDBGridColumn;
bsSkinButton36: TbsSkinButton;
DBCheckBox1: TDBCheckBox;
Label70: TLabel;
DBComboBoxEh3: TDBComboBoxEh;
Label71: TLabel;
DBComboBoxEh4: TDBComboBoxEh;
Label72: TLabel;
DBComboBoxEh5: TDBComboBoxEh;
t_msg_mold: TADOQuery;
ADOQuery5: TADOQuery;
Label67: TLabel;
DBEdit31: TDBEdit;
t_ch_invoice_item1: TDataSource;
t_ch_invoice_item: TADOQuery;
cxGrid1: TcxGrid;
cxGrid1DBTableView1: TcxGridDBTableView;
cxGrid1DBTableView1DBColumn1: TcxGridDBColumn;
cxGrid1DBTableView1DBColumn2: TcxGridDBColumn;
cxGrid1DBTableView1DBColumn3: TcxGridDBColumn;
cxGrid1DBTableView1DBColumn4: TcxGridDBColumn;
cxGrid1DBTableView1DBColumn5: TcxGridDBColumn;
cxGrid1DBTableView1DBColumn6: TcxGridDBColumn;
cxGrid1DBTableView1DBColumn7: TcxGridDBColumn;
cxGrid1DBTableView1DBColumn8: TcxGridDBColumn;
cxGrid1Level1: TcxGridLevel;
Label37: TLabel;
wwDBLookupCombo10: TwwDBLookupCombo;
cxDBNavigator1: TcxDBNavigator;
Label28: TLabel;
Label30: TLabel;
Label32: TLabel;
DBComboBoxEh2: TDBComboBoxEh;
DBComboBoxEh6: TDBComboBoxEh;
DBComboBoxEh7: TDBComboBoxEh;
cxGrid2: TcxGrid;
cxGridDBTableView1: TcxGridDBTableView;
cxGridDBColumn1: TcxGridDBColumn;
cxGridDBColumn2: TcxGridDBColumn;
cxGridDBColumn3: TcxGridDBColumn;
cxGridDBColumn4: TcxGridDBColumn;
cxGridDBColumn5: TcxGridDBColumn;
cxGridDBColumn6: TcxGridDBColumn;
cxGridDBColumn7: TcxGridDBColumn;
cxGridDBColumn8: TcxGridDBColumn;
cxGridLevel1: TcxGridLevel;
t_ch_invoice_shen_item: TADOQuery;
t_ch_invoice_shen_item1: TDataSource;
bsSkinButton37: TbsSkinButton;
bsSkinButton39: TbsSkinButton;
dxDBGrid1Column40: TdxDBGridColumn;
dxDBGrid1Column41: TdxDBGridColumn;
dxDBGrid2Column27: TdxDBGridColumn;
dxDBGrid2Column28: TdxDBGridColumn;
Label34: TLabel;
DBEdit32: TDBEdit;
CheckBox1: TCheckBox;
bsSkinPanel8: TbsSkinPanel;
Label43: TLabel;
DM_CostType: TDBMemo;
Label44: TLabel;
DM_Money: TDBMemo;
bsSkinButton40: TbsSkinButton;
dxDBGrid1Column42: TdxDBGridColumn;
dxDBGrid2Column29: TdxDBGridColumn;
bsSkinDBCheckRadioBox1: TbsSkinDBCheckRadioBox;
bsSkinDBCheckRadioBox4: TbsSkinDBCheckRadioBox;
dxDBGrid1Column43: TdxDBGridColumn;
cxGridDBTableView1DBColumn1: TcxGridDBColumn;
cxGrid1DBTableView1DBColumn9: TcxGridDBColumn;
Label36: TLabel;
DBEdit33: TDBEdit;
dxDBGrid11Column27: TdxDBGridColumn;
dxDBGrid12Column27: TdxDBGridColumn;
dxDBGrid11Column28: TdxDBGridColumn;
dxDBGrid11Column29: TdxDBGridColumn;
dxDBGrid12Column28: TdxDBGridColumn;
dxDBGrid12Column29: TdxDBGridColumn;
Label38: TLabel;
DBEdit34: TDBEdit;
Label39: TLabel;
Label40: TLabel;
Label42: TLabel;
DBEdit35: TDBEdit;
dxDBGrid2Column30: TdxDBGridColumn;
dxDBGrid1Column44: TdxDBGridColumn;
dxDBGrid1Column45: TdxDBGridCheckColumn;
bsSkinButton41: TbsSkinButton;
bsSkinButton42: TbsSkinButton;
PopupMenu6: TPopupMenu;
MenuItem3: TMenuItem;
MenuItem7: TMenuItem;
MenuItem4: TMenuItem;
procedure FormClose(Sender: TObject; var Action: TCloseAction);
procedure bsSkinButton5Click(Sender: TObject);
procedure bsSkinPanel1Resize(Sender: TObject);
procedure bsSkinPanel3Resize(Sender: TObject);
procedure FormShow(Sender: TObject);
procedure t_ch_invoiceAfterInsert(DataSet: TDataSet);
procedure bsSkinButton4Click(Sender: TObject);
procedure bsSkinButton11Click(Sender: TObject);
procedure bsSkinButton13Click(Sender: TObject);
procedure bsSkinButton15Click(Sender: TObject);
procedure bsSkinButton20Click(Sender: TObject);
procedure t_ch_invoiceBeforeInsert(DataSet: TDataSet);
procedure t_ch_invoiceBeforePost(DataSet: TDataSet);
procedure bsSkinButton18Click(Sender: TObject);
procedure bsSkinButton1Click(Sender: TObject);
procedure bsSkinButton9Click(Sender: TObject);
procedure bsSkinButton16Click(Sender: TObject);
procedure N1Click(Sender: TObject);
procedure N20Click(Sender: TObject);
procedure t_ch_invoiceBeforeEdit(DataSet: TDataSet);
procedure RxDBLookupCombo2Change(Sender: TObject);
procedure DM_MoneyChange(Sender: TObject);
procedure DM_MoneyExit(Sender: TObject);
procedure DBSumLowerChange(Sender: TObject);
procedure bsSkinButton17Click(Sender: TObject);
procedure bsSkinButton12Click(Sender: TObject);
procedure bsSkinButton23Click(Sender: TObject);
procedure bsSkinButton28Click(Sender: TObject);
procedure bsSkinButton29Click(Sender: TObject);
procedure bsSkinButton30Click(Sender: TObject);
procedure bsSkinButton26Click(Sender: TObject);
procedure bsSkinButton25Click(Sender: TObject);
procedure RxDBLookupCombo3Enter(Sender: TObject);
procedure FormCloseQuery(Sender: TObject; var CanClose: Boolean);
procedure bsSkinButton24Click(Sender: TObject);
procedure bsSkinButton3Click(Sender: TObject);
procedure bsSkinButton31Click(Sender: TObject);
procedure N3Click(Sender: TObject);
procedure DBEdit12KeyPress(Sender: TObject; var Key: Char);
procedure DBEdit16KeyPress(Sender: TObject; var Key: Char);
procedure DBEdit17KeyPress(Sender: TObject; var Key: Char);
procedure DBEdit18KeyPress(Sender: TObject; var Key: Char);
procedure RxDBLookupCombo3KeyPress(Sender: TObject; var Key: Char);
procedure RxDBLookupCombo2KeyPress(Sender: TObject; var Key: Char);
procedure DE_ShipNameKeyPress(Sender: TObject; var Key: Char);
procedure DE_BLNOKeyPress(Sender: TObject; var Key: Char);
procedure wwDBDateTimePicker2KeyPress(Sender: TObject; var Key: Char);
procedure wwDBLookupCombo11KeyPress(Sender: TObject; var Key: Char);
procedure DE_SumUpperKeyPress(Sender: TObject; var Key: Char);
procedure DBSumLowerKeyPress(Sender: TObject; var Key: Char);
procedure wwDBLookupCombo6KeyPress(Sender: TObject; var Key: Char);
procedure DE_BusnessNoKeyPress(Sender: TObject; var Key: Char);
procedure DE_TaxNoKeyPress(Sender: TObject; var Key: Char);
procedure DE_MakerKeyPress(Sender: TObject; var Key: Char);
procedure RxDBLookupCombo3Change(Sender: TObject);
procedure bsSkinButton10Click(Sender: TObject);
procedure N10Click(Sender: TObject);
procedure N14Click(Sender: TObject);
procedure N12Click(Sender: TObject);
procedure N16Click(Sender: TObject);
procedure dxDBGrid1ColumnSorting(Sender: TObject;
Column: TdxDBTreeListColumn; var Allow: Boolean);
procedure dxDBGrid2ColumnSorting(Sender: TObject;
Column: TdxDBTreeListColumn; var Allow: Boolean);
procedure bsSkinButton22Click(Sender: TObject);
procedure bsSkinButton27Click(Sender: TObject);
procedure bsSkinButton32Click(Sender: TObject);
procedure N17Click(Sender: TObject);
procedure N34Click(Sender: TObject);
procedure N36Click(Sender: TObject);
procedure N6Click(Sender: TObject);
procedure MenuItem2Click(Sender: TObject);
procedure dxDBGridMaskColumn2CustomDraw(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 DBEdit1Change(Sender: TObject);
procedure DBEdit29KeyPress(Sender: TObject; var Key: Char);
procedure wwDBDateTimePicker1KeyPress(Sender: TObject; var Key: Char);
procedure wwDBLookupCombo1KeyPress(Sender: TObject; var Key: Char);
procedure DBEdit27KeyPress(Sender: TObject; var Key: Char);
procedure t_ch_invoiceAfterPost(DataSet: TDataSet);
procedure N8Click(Sender: TObject);
procedure N19Click(Sender: TObject);
procedure DBEdit12Change(Sender: TObject);
procedure DE_BLNODblClick(Sender: TObject);
procedure DBEdit29DblClick(Sender: TObject);
procedure t_ch_invoiceAfterScroll(DataSet: TDataSet);
procedure t_ch_invoice1DataChange(Sender: TObject; Field: TField);
procedure ComboBoxObjBsCardDropDown(Sender: TObject);
procedure ComboBoxObjBsCardKeyPress(Sender: TObject; var Key: Char);
procedure dbedt1KeyPress(Sender: TObject; var Key: Char);
procedure DBEdit30Change(Sender: TObject);
procedure RxDBLookupCombo2Enter(Sender: TObject);
procedure bsSkinButton38Click(Sender: TObject);
procedure bsSkinButton33Click(Sender: TObject);
procedure dxDBGrid1CustomDraw(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 wwDBLookupCombo6Change(Sender: TObject);
procedure DBComboBoxEh1DropDown(Sender: TObject);
procedure dbedt1Change(Sender: TObject);
procedure DBComboBoxEh1CloseUp(Sender: TObject; Accept: Boolean);
procedure bsSkinPageControl1Change(Sender: TObject);
procedure bsSkinPageControl6Change(Sender: TObject);
procedure dxDBGrid3Column25CustomDraw(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 dxDBGrid4Column25CustomDraw(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 dxDBGrid5Column22CustomDraw(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 dxDBGrid6Column22CustomDraw(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 dxDBGrid3Column24CustomDraw(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 dxDBGrid4Column24CustomDraw(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 dxDBGrid7Column24CustomDraw(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 dxDBGrid8Column24CustomDraw(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 dxDBGrid7Column25CustomDraw(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 dxDBGrid8Column25CustomDraw(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 bsSkinButton35Click(Sender: TObject);
procedure bsSkinPanel2Resize(Sender: TObject);
procedure bsSkinPageControl2Change(Sender: TObject);
procedure dxDBGridColumn43CustomDraw(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 dxDBGridColumn44CustomDraw(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 fra_ch_add_do1MenuItem1Click(Sender: TObject);
procedure bsSkinButton36Click(Sender: TObject);
procedure DBComboBoxEh3CloseUp(Sender: TObject; Accept: Boolean);
procedure DBComboBoxEh3DropDown(Sender: TObject);
procedure DBComboBoxEh4CloseUp(Sender: TObject; Accept: Boolean);
procedure DBComboBoxEh4DropDown(Sender: TObject);
procedure DBComboBoxEh5DropDown(Sender: TObject);
procedure DBComboBoxEh5CloseUp(Sender: TObject; Accept: Boolean);
procedure DBComboBoxEh1Change(Sender: TObject);
procedure bsSkinButton37Click(Sender: TObject);
procedure bsSkinButton39Click(Sender: TObject);
procedure t_msg_moldAfterInsert(DataSet: TDataSet);
procedure t_ch_invoice_itemBeforePost(DataSet: TDataSet);
procedure t_ch_invoice_itemNewRecord(DataSet: TDataSet);
procedure t_ch_invoice_itemBeforeEdit(DataSet: TDataSet);
procedure CheckBox1Click(Sender: TObject);
procedure bsSkinButton40Click(Sender: TObject);
procedure dxDBGrid2Column29CustomDraw(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 dxDBGrid1Column43CustomDraw(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 t_ch_invoice_itemAfterPost(DataSet: TDataSet);
procedure t_ch_invoice_itemBeforeInsert(DataSet: TDataSet);
procedure dxDBGrid11DblClick(Sender: TObject);
procedure dxDBGrid12DblClick(Sender: TObject);
procedure fra_ch_add_do1N1Click(Sender: TObject);
procedure bsSkinButton42Click(Sender: TObject);
procedure MenuItem3Click(Sender: TObject);
procedure MenuItem4Click(Sender: TObject);
procedure bsSkinButton41Click(Sender: TObject);
private
shiji:double;
function getfeestr:boolean;
{ Private declarations }
public
fname1,fname2,fname3,fname4,fname5,fname6,fname7,fnum:string;
fprice1,fprice2,fprice3,fprice4,fprice5,fprice6,fprice7,invremarks:string;
main,vessldate,feinum,bibie:thandle;
procedure t_ch_invoice_itemvatPriceFieldChange(Sender: TField);
{ Public declarations }
end;
var
ch_invoice_open:boolean;
frm_ch_invoice: Tfrm_ch_invoice;
invcontrid:integer;
function EnumChildWindowsProc(hwnd,lparam:Integer):Boolean;stdcall;//<2F><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ؼ<EFBFBD>
implementation
uses u_main, my_sys_function, u_data_share, u_ch_invoice_add,
u_ch_shen_query, u_ch_invoice_query, u_ch_invoice_addone, u_msg_mold,
u_code_UsdExRate_Invoice;
{$R *.dfm}
procedure Tfrm_ch_invoice.t_ch_invoice_itemvatPriceFieldChange(Sender: TField);
var price,Amt:double;
begin
try
Sender.DataSet.fieldbyname('<27><><EFBFBD><EFBFBD>').asfloat:=Sender.DataSet.fieldbyname('<27><>˰<EFBFBD><CBB0><EFBFBD><EFBFBD>').asfloat/(1+Sender.DataSet.fieldbyname('˰<><CBB0>').asfloat);
Sender.DataSet.FieldByName('˰<><CBB0>').Value:=s_w(2,Sender.DataSet.fieldbyname('<27><><EFBFBD><EFBFBD>').asfloat*Sender.DataSet.fieldbyname('<27><>˰<EFBFBD><CBB0><EFBFBD><EFBFBD>').asfloat/(1+Sender.DataSet.fieldbyname('˰<><CBB0>').asfloat)*Sender.DataSet.fieldbyname('˰<><CBB0>').asfloat);
Sender.DataSet.FieldByName('<27><><EFBFBD><EFBFBD>').Value:=s_w(strtoint(apointnum),Sender.DataSet.fieldbyname('<27><>˰<EFBFBD><CBB0><EFBFBD><EFBFBD>').asfloat*Sender.DataSet.fieldbyname('<27><><EFBFBD><EFBFBD>').asfloat-Sender.DataSet.FieldByName('˰<><CBB0>').Value)
finally
end;
end;
procedure Tfrm_ch_invoice.FormClose(Sender: TObject;
var Action: TCloseAction);
begin
ch_invoice_open:=false;
savereggrid(dxdbgrid1,caption+'1');
savereggrid(dxdbgrid2,caption+'2');
savereggrid(fra_ch_delete_do1.dxDBGrid9,caption+'9');
savereggrid(fra_ch_add_do1.dxDBGrid19,caption+'19');
savereggrid(fra_ch_add_do1.dxDBGrid17,caption+'17');
frm_ch_invoice.Hide;
frm_ch_invoice.ManualFloat(frm_ch_invoice.BoundsRect );
frm_main.freeTabs('frm_ch_invoice');
action:=cafree;
frm_ch_invoice:=nil;
end;
procedure Tfrm_ch_invoice.bsSkinButton5Click(Sender: TObject);
begin
close;
end;
procedure Tfrm_ch_invoice.bsSkinPanel1Resize(Sender: TObject);
var
i:integer;
begin
i:=round(bsSkinPanel1.Width/11);
bsSkinButton16.Width:=i;
bsSkinButton17.Width:=i;
bsSkinButton15.Width:=i;
bsSkinButton20.Width:=i;
bsSkinButton4.Width:=i;
bsSkinButton11.Width:=i;
bsSkinButton12.Width:=i;
bsSkinButton13.Width:=i;
bsSkinButton18.Width:=i;
bsSkinButton19.Width:=i;
end;
procedure Tfrm_ch_invoice.bsSkinPanel3Resize(Sender: TObject);
var
i:integer;
begin
//<2F><><EFBFBD>㰴ť<E3B0B4><C5A5><EFBFBD><EFBFBD>
if strtobool(get_parameters_value(1,'false'))then
begin
bsSkinButton25.Caption:='<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>Ʊ';
bsSkinButton22.Visible:=false;
bsSkinButton27.Visible:=false;
i:=round(bsSkinPanel3.Width/10);
bsSkinButton23.Width:=i;
bsSkinButton24.Width:=i;
bsSkinButton28.Width:=i;
bsSkinButton29.Width:=i;
bsSkinButton30.Width:=i;
bsSkinButton25.Width:=i;
bsSkinButton26.Width:=i;
bsSkinButton31.Width:=i;
bsSkinButton33.Width:=i;
end
else
begin
bsSkinButton25.Caption:='<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>Ʊ';
bsSkinButton22.Visible:=true;
bsSkinButton27.Visible:=true;
i:=round(bsSkinPanel3.Width/13);
bsSkinButton23.Width:=i;
bsSkinButton24.Width:=i;
bsSkinButton28.Width:=i;
bsSkinButton29.Width:=i;
bsSkinButton30.Width:=i;
bsSkinButton25.Width:=i;
bsSkinButton26.Width:=i;
bsSkinButton31.Width:=i;
bsSkinButton22.Width:=i;
bsSkinButton27.Width:=i;
bsSkinButton23.Width:=i;
bsSkinButton33.Width:=i;
end;
bsSkinButton32.Left:=dxDBGrid2.Width-bsSkinButton32.Width-20;
end;
procedure Tfrm_ch_invoice.FormShow(Sender: TObject);
var inifile1:Tinifile;
begin
inifile1:=Tinifile.Create(ExtractFilePath(application.ExeName)+'main.ini');
bsSkinPanel8.Visible:=inifile1.Readbool('other','invoicedsp',True);
CheckBox1.Checked:=inifile1.Readbool('other','invoicedsp',True);
inifile1.free;
t_ch_invoice.close;
t_ch_invoice.sql.clear;
t_ch_invoice.sql.add('select top 50 * from t_ch_invoice where '
+open_data('1001','<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>','<27>Ƶ<EFBFBD><C6B5><EFBFBD>','no','no','no')
+' order by <20><>Ʊ<EFBFBD><C6B1><EFBFBD><EFBFBD> desc');
t_ch_invoice.open;
ch_invoice_open:=true;
TNumericField(t_ch_invoice.FieldByName('<27>ϼƽ<CFBC><C6BD><EFBFBD>')).DisplayFormat:='#,##0.00;-#,##0.00';
ADOQuery1.open;
ADOQuery2.open;
ADOQuery3.open;
ADOQuery4.open;
// t_ch_invoice_head.open;
//<2F><>ҵ<EFBFBD><D2B5><EFBFBD>ϲ<EFBFBD><CFB2><EFBFBD><EFBFBD><EFBFBD>
bsSkinPageControl1.ActivePageIndex:=0;
if StrToBool(get_parameters_value(85,'false')) then begin
fra_ch_add_do1.bsSkinTabSheet1.TabVisible:=False;
fra_ch_add_do1.bsSkinTabSheet2.TabVisible:=False;
fra_ch_add_do1.bsSkinTabSheet3.TabVisible:=False;
fra_ch_add_do1.bsSkinTabSheet4.TabVisible:=False;
fra_ch_add_do1.bsSkinTabSheet5.TabVisible:=True;
fra_ch_add_do1.bsSkinPageControl1.TabIndex:=0;
// fra_ch_add_do1.bsSkinButton11.Caption:='<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>Ʊ';
fra_ch_delete_do1.bsSkinTabSheet1.TabVisible:=false;
fra_ch_delete_do1.bsSkinTabSheet2.TabVisible:=false;
fra_ch_delete_do1.bsSkinTabSheet3.TabVisible:=false;
fra_ch_delete_do1.bsSkinTabSheet4.TabVisible:=false;
fra_ch_delete_do1.bsSkinTabSheet5.TabVisible:=True;
fra_ch_delete_do1.bsSkinPageControl1.ActivePage:=fra_ch_delete_do1.bsSkinTabSheet5;
fra_ch_add_do1.do_ban_fee1.DataSet:=fra_ch_delete_do1.v_fee_do_bscard;
end else begin
fra_ch_add_do1.bsSkinTabSheet1.TabVisible:=True;
fra_ch_add_do1.bsSkinTabSheet2.TabVisible:=True;
fra_ch_add_do1.bsSkinTabSheet3.TabVisible:=True;
fra_ch_add_do1.bsSkinTabSheet4.TabVisible:=True;
fra_ch_add_do1.bsSkinPageControl1.ActivePage:=fra_ch_add_do1.bsSkinTabSheet1;
fra_ch_add_do1.bsSkinTabSheet5.TabVisible:=False;
fra_ch_delete_do1.bsSkinTabSheet1.TabVisible:=True;
fra_ch_delete_do1.bsSkinTabSheet2.TabVisible:=True;
fra_ch_delete_do1.bsSkinTabSheet3.TabVisible:=True;
fra_ch_delete_do1.bsSkinTabSheet4.TabVisible:=True;
fra_ch_delete_do1.bsSkinTabSheet5.TabVisible:=false;
fra_ch_delete_do1.bsSkinPageControl1.ActivePage:=fra_ch_delete_do1.bsSkinTabSheet1;
fra_ch_add_do1.do_ban_fee1.DataSet:=fra_ch_delete_do1.v_fee_do_seae;
end;
fra_ch_add_do1.do_ban1.DataSet:=t_ch_invoice;
fra_ch_add_do1.bs_text.text:='1';
fra_ch_add_do1.wwDBComboBox31.text:='<27><>';
fra_ch_add_do1.t_ch_fee_do.open;
fra_ch_add_do1.bsSkinCheckRadioBox4.Checked:=False;
fra_ch_add_do1.bsSkinPanel9.Visible:=true;
fra_ch_delete_do1.bs_text.Text:='1';
fra_ch_delete_do1.do_ban1.DataSet:=t_ch_invoice;
t_ch_invoice_item.Close;
t_ch_invoice_item.open;
t_ch_invoice_shen_item.Close;
t_ch_invoice_shen_item.open;
loadreggrid(dxdbgrid1,false,caption+'1');
loadreggrid(dxdbgrid2,false,caption+'2');
loadreggrid(fra_ch_delete_do1.dxDBGrid9,false,caption+'9');
loadreggrid(fra_ch_add_do1.dxDBGrid19,false,caption+'19');
loadreggrid(fra_ch_add_do1.dxDBGrid17,false,caption+'17');
frm_data_share.t_crm_client_all.requery;
frm_data_share.t_code_currency.requery;
t_sys_bank.open;
//<2F>Ƿ<EFBFBD>ע<EFBFBD><D7A2>˰<EFBFBD>ؽӿ<D8BD>
if not if_reg(417) then begin
bsSkinButton34.Visible:=false;
bsSkinButton35.Visible:=false;
end;
{$IFDEF FPSHENQING}
{$ELSE}
bsSkinTabSheet3.TabVisible:=false;
{$ENDIF}
t_ch_invoice_item.FieldByName('<27><>˰<EFBFBD><CBB0><EFBFBD><EFBFBD>').OnChange:=t_ch_invoice_itemvatPriceFieldChange;
t_ch_invoice_item.FieldByName('<27><><EFBFBD><EFBFBD>').OnChange:=t_ch_invoice_itemvatPriceFieldChange;
end;
procedure Tfrm_ch_invoice.t_ch_invoiceAfterInsert(DataSet: TDataSet);
begin
t_ch_invoice['<27>Ƶ<EFBFBD><C6B5><EFBFBD>']:=employee;
t_ch_invoice['<27><>Ʊ<EFBFBD><C6B1><EFBFBD><EFBFBD>']:=date;
t_ch_invoice['<27>ϼƽ<CFBC><C6BD><EFBFBD>']:=0;
t_ch_invoice['ʵ<>ʽ<EFBFBD><CABD><EFBFBD>']:=0;
t_ch_invoice['<27>鿪<EFBFBD><E9BFAA><EFBFBD><EFBFBD>']:=0;
t_ch_invoice['<27>Զ<EFBFBD>']:=1;
t_ch_invoice['<27><><EFBFBD>̵ǼǺ<C7BC>']:=Trim(frm_data_share.t_sys_company.fieldbyname('<27><><EFBFBD>̵ǼǺ<C7BC>').AsString);
t_ch_invoice['˰<><CBB0><EFBFBD>ǼǺ<C7BC>']:=Trim(frm_data_share.t_sys_company.fieldbyname('˰<><CBB0><EFBFBD>ǼǺ<C7BC>').AsString);
t_ch_invoice['<27><><EFBFBD><EFBFBD>״̬']:=0;
t_ch_invoice['<27>Ƿ<EFBFBD><C7B7><EFBFBD>ӡ']:=0;
t_ch_invoice['<27>Ƿ<EFBFBD><C7B7>ϳ<EFBFBD>']:=0;
t_ch_invoice['<27>Ƿ<EFBFBD><C7B7><EFBFBD><EFBFBD><EFBFBD>']:=0;
t_ch_invoice['<27>ұ<EFBFBD>']:='RMB';
t_ch_invoice['<27>Ƿ<EFBFBD><C7B7><EFBFBD>ӡ<EFBFBD><D3A1><EFBFBD><EFBFBD><EFBFBD>ʺ<EFBFBD><CABA><EFBFBD><EFBFBD><EFBFBD>']:=1;
t_ch_invoice['˰<><CBB0>']:=0;
end;
procedure Tfrm_ch_invoice.bsSkinButton4Click(Sender: TObject);
begin
if strtobool(get_parameters_value(5,'FALSE'))then
begin
try
frm_ch_invoice_add:=tfrm_ch_invoice_add.Create (self);
frm_ch_invoice_add.bsSkinCheckRadioBox1.enabled:=false;
frm_ch_invoice_add.bsSkinCheckRadioBox2.Visible:=false;
frm_ch_invoice_add.wwDBLookupCombo6.Text:='RMB';
if t_ch_invoice.IsEmpty then
frm_ch_invoice_add.bsSkinCheckRadioBox8.enabled:=false;
frm_ch_invoice_add.ShowModal;
finally
frm_ch_invoice_add.Free;
end;
end
else
begin
showmessage('<27>Բ<EFBFBD><D4B2><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ܿ<EFBFBD><DCBF><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ɷ<EFBFBD>Ʊ<EFBFBD><C6B1><EFBFBD><EFBFBD>');
end;
end;
procedure Tfrm_ch_invoice.bsSkinButton11Click(Sender: TObject);
begin
table_post(t_ch_invoice);
end;
procedure Tfrm_ch_invoice.bsSkinButton13Click(Sender: TObject);
begin
table_cancel(t_ch_invoice);
end;
procedure Tfrm_ch_invoice.bsSkinButton15Click(Sender: TObject);
begin
table_Prior(t_ch_invoice);
end;
procedure Tfrm_ch_invoice.bsSkinButton20Click(Sender: TObject);
begin
table_next(t_ch_invoice);
end;
procedure Tfrm_ch_invoice.t_ch_invoiceBeforeInsert(DataSet: TDataSet);
begin
if not modify_all then
abort;
end;
procedure Tfrm_ch_invoice.t_ch_invoiceBeforePost(DataSet: TDataSet);
var
currency_chi:String;
total_money:Double;
aAdoQuery :TAdoQuery;
begin
t_ch_invoice['ʵ<>ʽ<EFBFBD><CABD><EFBFBD>']:=s_w(StrToInt(apointnum),t_ch_invoice['ʵ<>ʽ<EFBFBD><CABD><EFBFBD>']);
if (t_ch_invoice.state=dsinsert) and (t_ch_invoice.FieldByName('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').asstring='') then
t_ch_invoice['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']:=get_no(date,'IA');
if (frm_ch_invoice.t_ch_invoice.fieldbyname('<27><>Ʊ<EFBFBD><C6B1><EFBFBD><EFBFBD>').asstring<>'<27><><EFBFBD>뷢Ʊ') and (shiji<>t_ch_invoice.FieldByName('ʵ<>ʽ<EFBFBD><CABD><EFBFBD>').value) then
t_ch_invoice['<27>ϼƽ<CFBC><C6BD><EFBFBD>']:=t_ch_invoice['ʵ<>ʽ<EFBFBD><CABD><EFBFBD>'];
total_money:=Abs(t_ch_invoice['<27>ϼƽ<CFBC><C6BD><EFBFBD>']);
if t_ch_invoice['<27>ұ<EFBFBD>']='RMB' then currency_chi:='';//<2F><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
if t_ch_invoice['<27>ұ<EFBFBD>']='USD' then currency_chi:=''; //<2F><>Ԫ
if abs(t_ch_invoice['<27>ϼƽ<CFBC><C6BD><EFBFBD>'])>0.1 then
begin
if t_ch_invoice['<27>ϼƽ<CFBC><C6BD><EFBFBD>']<0 then
begin
t_ch_invoice['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>д']:=invoice_max(total_money,currency_chi+'(<28><>)');
end
else
t_ch_invoice['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>д']:=invoice_max(t_ch_invoice['<27>ϼƽ<CFBC><C6BD><EFBFBD>'],currency_chi);
end
else t_ch_invoice['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>д']:=t_ch_invoice['<27>ϼƽ<CFBC><C6BD><EFBFBD>'];
if Trim(t_ch_invoice.fieldbyname('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').AsString)<>'' then
begin
aAdoQuery:=CreateAdoQuery;
with aAdoQuery do
try
close;
SQL.clear;
sql.add('select ');
sql.Add('sum(case when <20><><EFBFBD><EFBFBD>=''<27><>'' and ԭʼ<D4AD>ұ<EFBFBD>=''RMB'' then ԭʼ<D4AD><CABC><EFBFBD><EFBFBD> else 0 end) as <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>');
sql.Add(',sum(case when <20><><EFBFBD><EFBFBD>=''<27><>'' and ԭʼ<D4AD>ұ<EFBFBD><>''RMB'' then ԭʼ<D4AD><CABC><EFBFBD><EFBFBD> else 0 end) as <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>');
sql.Add(',sum(case when <20><><EFBFBD><EFBFBD>=''<27><>'' and ԭʼ<D4AD>ұ<EFBFBD>=''RMB'' then ԭʼ<D4AD><CABC><EFBFBD><EFBFBD> else 0 end) as <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>');
sql.Add(',sum(case when <20><><EFBFBD><EFBFBD>=''<27><>'' and ԭʼ<D4AD>ұ<EFBFBD><>''RMB'' then ԭʼ<D4AD><CABC><EFBFBD><EFBFBD> else 0 end) as <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>');
sql.Add('from v_fee_do_bscard ');
sql.Add('where <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>=:<3A><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> ');
Parameters.ParamByName('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').Value:=t_ch_invoice.fieldbyname('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').AsString;
Open;First;
t_ch_invoice.FieldByName('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').value:=FieldByName('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').AsFloat-FieldByName('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').AsFloat;
t_ch_invoice.FieldByName('<27><><EFBFBD><EFBFBD>').value:=FieldByName('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').AsFloat-FieldByName('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').AsFloat;
finally
Free;
end;
end;
t_ch_invoice['<27>鿪<EFBFBD><E9BFAA><EFBFBD><EFBFBD>']:=t_ch_invoice['<27>ϼƽ<CFBC><C6BD><EFBFBD>']-t_ch_invoice['ʵ<>ʽ<EFBFBD><CABD><EFBFBD>'];
table_before_post(t_ch_invoice,'<27><>Ʊ<EFBFBD><C6B1><EFBFBD><EFBFBD>');
table_before_post(t_ch_invoice,'<27>ұ<EFBFBD>');
end;
procedure Tfrm_ch_invoice.bsSkinButton18Click(Sender: TObject);
begin
bsSkinTabSheet1.Show;
end;
procedure Tfrm_ch_invoice.bsSkinButton1Click(Sender: TObject);
begin
bsSkinTabSheet2.Show;
if StrToBool(get_parameters_value(85,'false')) then
begin
bsSkinTabSheet8.TabVisible:=false;
bsSkinTabSheet9.TabVisible:=false;
bsSkinTabSheet10.TabVisible:=false;
bsSkinTabSheet12.TabVisible:=false;
bsSkinTabSheet13.TabVisible:=true;
v_fee_do_bscard.Close;
v_fee_do_bscard.DataSource:=t_ch_invoice1;
v_fee_do_bscard.Open;
ADOQuery1.Close;
ADOQuery2.Close;
ADOQuery3.Close;
ADOQuery4.Close;
end
else
begin
bsSkinTabSheet8.TabVisible:=true;
bsSkinTabSheet9.TabVisible:=true;
bsSkinTabSheet10.TabVisible:=true;
bsSkinTabSheet12.TabVisible:=true;
bsSkinTabSheet13.TabVisible:=false;
ADOQuery1.open;
ADOQuery2.open;
ADOQuery3.open;
ADOQuery4.open;
v_fee_do_bscard.Close;
end;
end;
procedure Tfrm_ch_invoice.bsSkinButton9Click(Sender: TObject);
var
Pnt:Tpoint;
begin
Pnt:=bsSkinButton9.ClientToScreen(Point(0,bsSkinButton9.Height));
PopupMenu2.Popup(Pnt.x,Pnt.y);
end;
procedure Tfrm_ch_invoice.bsSkinButton16Click(Sender: TObject);
var
Pnt:Tpoint;
begin
Pnt:=bsSkinButton16.ClientToScreen(Point(0,bsSkinButton16.Height));
PopupMenu2.Popup(Pnt.x,Pnt.y);
end;
procedure Tfrm_ch_invoice.N1Click(Sender: TObject);
begin
if t_ch_invoice.IsEmpty then
exit;
if t_ch_invoice.FieldByName('<27>Ƿ<EFBFBD><C7B7>ϳ<EFBFBD>').asboolean then
begin
showmessage('<27><>Ʊ<EFBFBD>Ѿ<EFBFBD><D1BE>ϳ<EFBFBD><CFB3><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ܴ<EFBFBD>ӡ<EFBFBD><D3A1><EFBFBD><EFBFBD>');
exit;
end;
if Trim(t_ch_invoice.FieldByName('<27><>Ʊ̧ͷ').AsString)='' then
begin
showmessage('<27><>Ʊ̧ͷΪ<CDB7>գ<EFBFBD><D5A3><EFBFBD><EFBFBD>ܴ<EFBFBD>ӡ<EFBFBD><D3A1><EFBFBD><EFBFBD>');
exit;
end;
if t_ch_invoice.state in [dsedit,dsinsert] then t_ch_invoice.post;
if not t_ch_invoice.FieldByName('<27>Ƿ<EFBFBD><C7B7><EFBFBD>ӡ').asboolean then
begin
t_ch_invoice.Edit;
t_ch_invoice['<27>Ƿ<EFBFBD><C7B7><EFBFBD>ӡ']:=1;
t_ch_invoice.post;
end;
sys_print('ҵ<><D2B5><EFBFBD><EFBFBD>Ʊ<EFBFBD><C6B1>ӡ',1,t_ch_invoice1,nil,nil,nil,DataSource1,DataSource2,DataSource3,DataSource4,t_ch_invoice1,nil,nil);
end;
procedure Tfrm_ch_invoice.N20Click(Sender: TObject);
begin
if t_ch_invoice.IsEmpty then
exit;
if t_ch_invoice.FieldByName('<27>Ƿ<EFBFBD><C7B7>ϳ<EFBFBD>').asboolean then
begin
showmessage('<27><>Ʊ<EFBFBD>Ѿ<EFBFBD><D1BE>ϳ<EFBFBD><CFB3><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ܴ<EFBFBD>ӡ<EFBFBD><D3A1><EFBFBD><EFBFBD>');
exit;
end;
if Trim(t_ch_invoice.FieldByName('<27><>Ʊ̧ͷ').AsString)='' then
begin
showmessage('<27><>Ʊ̧ͷΪ<CDB7>գ<EFBFBD><D5A3><EFBFBD><EFBFBD>ܴ<EFBFBD>ӡ<EFBFBD><D3A1><EFBFBD><EFBFBD>');
exit;
end;
if t_ch_invoice.state in [dsedit,dsinsert] then t_ch_invoice.post;
if not t_ch_invoice.FieldByName('<27>Ƿ<EFBFBD><C7B7><EFBFBD>ӡ').asboolean then
begin
t_ch_invoice.Edit;
t_ch_invoice['<27>Ƿ<EFBFBD><C7B7><EFBFBD>ӡ']:=1;
t_ch_invoice.post;
end;
sys_print('ҵ<><D2B5><EFBFBD><EFBFBD>Ʊ<EFBFBD><C6B1>ӡ',2,t_ch_invoice1,nil,nil,nil,DataSource1,DataSource2,DataSource3,DataSource4,t_ch_invoice1,nil,nil);
end;
procedure Tfrm_ch_invoice.t_ch_invoiceBeforeEdit(DataSet: TDataSet);
begin
if not modify_all then
begin
if t_ch_invoice.FieldByName('<27>Ƿ<EFBFBD><C7B7>ϳ<EFBFBD>').asboolean then
begin
showmessage('<27><>Ʊ<EFBFBD>Ѿ<EFBFBD><D1BE>ϳ<EFBFBD><CFB3><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>޸ģ<DEB8><C4A3><EFBFBD>');
abort;
end;
if t_ch_invoice.FieldByName('<27><><EFBFBD><EFBFBD>').asboolean then
begin
showmessage('<27><>Ʊ<EFBFBD><C6B1><EFBFBD><EFBFBD>ƾ֤<C6BE><D6A4><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>޸ģ<DEB8><C4A3><EFBFBD>');
abort;
end;
if t_ch_invoice.FieldByName('<27>Ƿ<EFBFBD><C7B7><EFBFBD>ӡ').asboolean then
begin
showmessage('<27><>Ʊ<EFBFBD>Ѿ<EFBFBD><D1BE><EFBFBD>ӡ<EFBFBD><D3A1><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>޸ģ<DEB8><C4A3><EFBFBD>');
abort;
end;
if t_ch_invoice.FieldByName('<27>Ƿ<EFBFBD><C7B7><EFBFBD><EFBFBD><EFBFBD>').asboolean then
begin
showmessage('<27><>Ʊ<EFBFBD>Ѿ<EFBFBD><D1BE><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>޸ģ<DEB8><C4A3><EFBFBD>');
abort;
end;
end;
shiji:=t_ch_invoice.fieldbyname('ʵ<>ʽ<EFBFBD><CABD><EFBFBD>').asfloat;
end;
procedure Tfrm_ch_invoice.RxDBLookupCombo2Change(Sender: TObject);
begin
try
// if (t_ch_invoice.state=dsinsert) or (t_ch_invoice.state=dsedit) then
// begin
if not t_sys_bank.IsEmpty then
if t_sys_bank.Locate('<27><><EFBFBD><EFBFBD>',RxDBLookupCombo2.DisplayValues[0],[])then begin
t_ch_invoice.Edit;
t_ch_invoice['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']:=t_sys_bank.fieldbyname('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').asstring;
t_ch_invoice['<27><><EFBFBD><EFBFBD><EFBFBD>˺<EFBFBD>']:=t_sys_bank.fieldbyname('<27><><EFBFBD><EFBFBD><EFBFBD>˺<EFBFBD>').asstring;
end;
// end;
except
;
end;
end;
procedure Tfrm_ch_invoice.DM_MoneyChange(Sender: TObject);
VAR
total_money:real;
currency_chi:string;
begin
try
if (t_ch_invoice.state=dsinsert) or (t_ch_invoice.state=dsedit) then
begin
if frm_data_share.t_code_currency.Locate('<27>ұ<EFBFBD>',wwDBLookupCombo6.text,[])then
total_money:=total_num(DM_Money);
t_ch_invoice['<27>ϼƽ<CFBC><C6BD><EFBFBD>']:=total_money;
if total_money<0 then
begin
total_money:=Abs(total_money);
t_ch_invoice['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>д']:=invoice_max(total_money,'<27><>'+currency_chi);
end
else
t_ch_invoice['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>д']:=invoice_max(total_money,currency_chi);
end;
except
;
end;
end;
procedure Tfrm_ch_invoice.DM_MoneyExit(Sender: TObject);
begin
if (t_ch_invoice.State=dsedit)or(t_ch_invoice.State=dsinsert)then
begin
add_zero(DM_Money);
t_ch_invoice['<27><><EFBFBD><EFBFBD><EFBFBD>б<EFBFBD>']:=DM_Money.text;
end;
end;
procedure Tfrm_ch_invoice.DBSumLowerChange(Sender: TObject);
VAR
total_money:real;
currency_chi,str_currency:string;
begin
try
if (t_ch_invoice.state=dsinsert) or (t_ch_invoice.state=dsedit) then
begin
if frm_data_share.t_code_currency.Locate('<27>ұ<EFBFBD>',wwDBLookupCombo6.text,[])then
currency_chi:=frm_data_share.t_code_currency.fieldbyname('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').asstring;
str_currency:=StringReplace(DBSumLower.text,',','',[rfReplaceAll]);
total_money:=strtofloat(str_currency);
if total_money<0 then
begin
total_money:=Abs(total_money);
t_ch_invoice['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>д']:=invoice_max(total_money,currency_chi+'(<28><>)');
end
else
t_ch_invoice['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>д']:=invoice_max(total_money,currency_chi);
end;
except
;
end;
end;
procedure Tfrm_ch_invoice.bsSkinButton17Click(Sender: TObject);
begin
if t_ch_invoice.IsEmpty then
exit;
if not if_open('031') then
begin
showmessage('<27>Բ<EFBFBD><D4B2><EFBFBD><EFBFBD><EFBFBD>û<EFBFBD>д<EFBFBD>ģ<EFBFBD><C4A3><EFBFBD>IJ<EFBFBD><C4B2><EFBFBD>Ȩ<EFBFBD>ޣ<EFBFBD>');
exit;
end;
if t_ch_invoice.FieldByName('<27>Ƿ<EFBFBD><C7B7>ϳ<EFBFBD>').asboolean then
begin
showmessage('<27><>Ʊ<EFBFBD>Ѿ<EFBFBD><D1BE>ϳ<EFBFBD><CFB3><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ȡ<EFBFBD><C8A1><EFBFBD><EFBFBD>ӡ<EFBFBD><D3A1><EFBFBD><EFBFBD>');
exit;
end;
if t_ch_invoice.FieldByName('<27>Ƿ<EFBFBD><C7B7><EFBFBD>ӡ').asboolean then
begin
if application.MessageBox('<27><>ȷ<EFBFBD><C8B7>Ҫȡ<D2AA><C8A1><EFBFBD><EFBFBD>ӡ<EFBFBD><D3A1>?','<27><><EFBFBD><EFBFBD>:',MB_OKCANCEL)=IDOK then
begin
try
modify_all:=true;
t_ch_invoice.Edit;
t_ch_invoice['<27>Ƿ<EFBFBD><C7B7><EFBFBD>ӡ']:=0;
t_ch_invoice.post;
finally
modify_all:=false;
end;
end;
end;
end;
procedure Tfrm_ch_invoice.bsSkinButton12Click(Sender: TObject);
var
str:widestring;
if_shen:string;
in_id,I:integer;
aQuery:TADOQuery;
alistBsNo:TStringList;
begin
//ɾ<><C9BE><EFBFBD><EFBFBD>Ʊ<EFBFBD><C6B1><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>Ѵ<EFBFBD>ӡֻ<D3A1>ܷϳ<DCB7><CFB3><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ɾ<EFBFBD><C9BE>
if t_ch_invoice.IsEmpty then
exit;
if t_ch_invoice.FieldByName('<27><><EFBFBD><EFBFBD>').asboolean then
begin
showmessage('<27><>Ʊ<EFBFBD>Ѿ<EFBFBD><D1BE><EFBFBD><EFBFBD><EFBFBD>ƾ֤<C6BE><D6A4><EFBFBD><EFBFBD>ɾ<EFBFBD><C9BE><EFBFBD><EFBFBD><EFBFBD>޸<EFBFBD>,<2C><>ɾ<EFBFBD><C9BE>ƾ֤,<2C><>ɾ<EFBFBD><C9BE><EFBFBD><EFBFBD>Ʊ<EFBFBD><C6B1><EFBFBD><EFBFBD>');
Exit;
end;
if t_ch_invoice.FieldByName('<27>Ƿ<EFBFBD><C7B7><EFBFBD><EFBFBD><EFBFBD>').asboolean then
begin
showmessage('<27><>Ʊ<EFBFBD>Ѿ<EFBFBD><D1BE><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ɾ<EFBFBD><C9BE><EFBFBD><EFBFBD><EFBFBD>޸<EFBFBD>,<2C><>ɾ<EFBFBD><C9BE>ƾ֤<C6BE><D6A4><EFBFBD><EFBFBD>ɾ<EFBFBD><C9BE><EFBFBD><EFBFBD>Ʊ<EFBFBD><C6B1><EFBFBD><EFBFBD>');
abort;
end;
if t_ch_invoice.FieldByName('<27>Ƿ<EFBFBD><C7B7>ϳ<EFBFBD>').asboolean then
begin
if if_open('309') then begin
modify_all:=true;
t_ch_invoice.Edit;
t_ch_invoice['<27>Ƿ<EFBFBD><C7B7>ϳ<EFBFBD>']:=0;
t_ch_invoice['<27>ϳ<EFBFBD>ԭ<EFBFBD><D4AD>']:='';
t_ch_invoice['<27>ϳ<EFBFBD><CFB3><EFBFBD>']:='';
t_ch_invoice['<27>ϳ<EFBFBD><CFB3><EFBFBD><EFBFBD><EFBFBD>']:=null;
t_ch_invoice['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']:='';
t_ch_invoice.post;
modify_all:=false;
end else begin
showmessage('<27>Բ<EFBFBD><D4B2><EFBFBD>,<2C><>û<EFBFBD>г<EFBFBD><D0B3><EFBFBD><EFBFBD>ϳ<EFBFBD><CFB3><EFBFBD>Ȩ<EFBFBD>ޣ<EFBFBD><DEA3><EFBFBD>');
end;
exit;
end;
if_shen:=t_ch_invoice.fieldbyname('<27><>Ʊ<EFBFBD><C6B1><EFBFBD><EFBFBD>').asstring;
if t_ch_invoice.FieldByName('<27>Ƿ<EFBFBD><C7B7><EFBFBD>ӡ').asboolean then
begin
str:=trim(InputBox('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ϳ<EFBFBD>ԭ<EFBFBD><D4AD>', '<27>ϳ<EFBFBD>ԭ<EFBFBD><D4AD><EFBFBD><EFBFBD>', ''));
if str=''then
begin
showmessage('<27>ϳ<EFBFBD>ԭ<EFBFBD><D4AD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>Ϊ<EFBFBD>գ<EFBFBD><D5A3>ϳ<EFBFBD>ʧ<EFBFBD>ܣ<EFBFBD><DCA3><EFBFBD>');
exit;
end
else if str=''then
begin
exit;
end;
in_id:=t_ch_invoice.FieldByName('IN_ID').asinteger;
t_ch_invoice.Refresh;
if not t_ch_invoice.locate('IN_ID',in_id,[]) then
exit;
try
if t_ch_invoice.FieldByName('<27><>Ʊ<EFBFBD><C6B1><EFBFBD><EFBFBD>').AsString<>'<27><><EFBFBD>뷢Ʊ' then
begin
aQuery:=CreateAdoQuery;
try
with aQuery do
begin
Close;SQL.Clear;
SQL.Add('select * from t_ch_fee_do where <20><><EFBFBD><EFBFBD>=''1'' and <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>='''+t_ch_invoice.FieldByName('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').AsString+'''');
Open;
first;
while not eof do
begin
Delete;
end;
end;
t_ch_invoice_item.first;
while not t_ch_invoice_item.eof do
t_ch_invoice_item.delete;
finally
FreeAndNil(aQuery);
end;
end
else
begin
aQuery:=CreateAdoQuery;
alistBsNo:=TStringList.Create;
alistBsNo.Clear;
try
with aQuery do
begin
Close;SQL.Clear;
SQL.Add('select * from t_ch_fee_do where <20><><EFBFBD><EFBFBD>=''1'' and <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>='''+t_ch_invoice.FieldByName('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').AsString+'''');
Open;
first;
while not eof do
begin
edit;
fieldbyname('<27><><EFBFBD><EFBFBD>').AsString:='7';
post;
// ShowMessage(alistBsNo.Text);
alistBsNo.IndexOf(fieldbyname('ҵ<><D2B5><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').Asstring);
if alistBsNo.IndexOf(fieldbyname('ҵ<><D2B5><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').Asstring)<0 then
alistBsNo.Add(fieldbyname('ҵ<><D2B5><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').Asstring);
next;
end;
end;
finally
FreeAndNil(aQuery);
end;
try
if alistBsNo.Count>=1 then
begin
for i :=0 to alistBsNo.Count-1 do
begin
UpdateInviceRemarks(alistBsNo[i],'t_op_seae',1);
UpdateInviceRemarks(alistBsNo[i],'t_op_Aire',1);
end;
end;
finally
alistBsNo.Free;
end;
end;
modify_all:=true;
t_ch_invoice.Edit;
t_ch_invoice['<27>Ƿ<EFBFBD><C7B7>ϳ<EFBFBD>']:=1;
t_ch_invoice['<27>ϳ<EFBFBD>ԭ<EFBFBD><D4AD>']:=str;
t_ch_invoice['<27>ϳ<EFBFBD><CFB3><EFBFBD>']:=employee;
t_ch_invoice['<27>ϳ<EFBFBD><CFB3><EFBFBD><EFBFBD><EFBFBD>']:=now;
t_ch_invoice['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']:='';
t_ch_invoice.post;
modify_all:=false;
except
modify_all:=false;
showmessage('<27>ϳ<EFBFBD>ʧ<EFBFBD>ܣ<EFBFBD><DCA3><EFBFBD>');
exit;
end;
end
else
begin
if application.MessageBox('<27><>ȷ<EFBFBD><C8B7>Ҫɾ<D2AA><C9BE><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>?','<27><><EFBFBD><EFBFBD>:',MB_OKCANCEL)=IDOK then
begin
if t_ch_invoice.FieldByName('<27><>Ʊ<EFBFBD><C6B1><EFBFBD><EFBFBD>').AsString<>'<27><><EFBFBD>뷢Ʊ' then
begin
aQuery:=CreateAdoQuery;
try
with aQuery do
begin
Close;SQL.Clear;
SQL.Add('select * from t_ch_fee_do where <20><><EFBFBD><EFBFBD>=''1'' and <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>='''+t_ch_invoice.FieldByName('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').AsString+'''');
Open;
first;
while not eof do
begin
Delete;
end;
end;
t_ch_invoice_item.first;
while not t_ch_invoice_item.eof do
t_ch_invoice_item.delete;
finally
FreeAndNil(aQuery);
end;
end
else
begin
aQuery:=CreateAdoQuery;
alistBsNo:=TStringList.Create;
alistBsNo.Clear;
try
with aQuery do
begin
Close;SQL.Clear;
SQL.Add('select * from t_ch_fee_do where <20><><EFBFBD><EFBFBD>=''1'' and <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>='''+t_ch_invoice.FieldByName('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').AsString+'''');
Open;
first;
while not eof do
begin
edit;
fieldbyname('<27><><EFBFBD><EFBFBD>').AsString:='7';
post;
alistBsNo.IndexOf(fieldbyname('ҵ<><D2B5><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').Asstring);
if alistBsNo.IndexOf(fieldbyname('ҵ<><D2B5><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').Asstring)<0 then
alistBsNo.Add(fieldbyname('ҵ<><D2B5><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').Asstring);
next;
end;
end;
try
if alistBsNo.Count>=1 then
begin
for i :=0 to alistBsNo.Count-1 do
begin
UpdateInviceRemarks(alistBsNo[i],'t_op_seae',1);
UpdateInviceRemarks(alistBsNo[i],'t_op_Aire',1);
end;
end;
finally
alistBsNo.Free;
end;
finally
FreeAndNil(aQuery);
end;
end;
t_ch_invoice.delete;
end else
exit;
end;
if if_shen<>'<27><><EFBFBD>ɷ<EFBFBD>Ʊ'then
begin
t_ch_invoice_shen.requery;
end;
end;
procedure Tfrm_ch_invoice.bsSkinButton23Click(Sender: TObject);
begin
sys_print('ҵ<><D2B5><EFBFBD><EFBFBD>Ʊ<EFBFBD><C6B1><EFBFBD><EFBFBD>',2,t_ch_invoice_shen1,nil,nil,nil,v_fee_do_seae1,v_fee_do_seai1,v_fee_do_aire1,v_fee_do_airi1,t_ch_invoice_shen1,nil,nil);
end;
procedure Tfrm_ch_invoice.bsSkinButton28Click(Sender: TObject);
begin
table_Prior(t_ch_invoice_shen);
end;
procedure Tfrm_ch_invoice.bsSkinButton29Click(Sender: TObject);
begin
table_next(t_ch_invoice_shen);
end;
procedure Tfrm_ch_invoice.bsSkinButton30Click(Sender: TObject);
begin
if bsSkinButton30.Caption='<27><>ϸ<EFBFBD><CFB8><EFBFBD><EFBFBD>' then
begin
if t_ch_invoice_shen.IsEmpty then
exit;
bsSkinTabSheet22.show;
bsSkinButton30.Caption:='<27><><EFBFBD><EFBFBD><EFBFBD>б<EFBFBD>';
end
else
begin
bsSkinTabSheet11.show;
bsSkinButton30.Caption:='<27><>ϸ<EFBFBD><CFB8><EFBFBD><EFBFBD>';
end;
if StrToBool(get_parameters_value(85,'false')) then
begin
bsSkinTabSheet4.TabVisible:=false;
bsSkinTabSheet5.TabVisible:=false;
bsSkinTabSheet6.TabVisible:=false;
bsSkinTabSheet7.TabVisible:=false;
bsSkinTabSheet14.TabVisible:=true;
v_fee_do_bscard.Close;
v_fee_do_bscard.DataSource:=t_ch_invoice_shen1;
v_fee_do_bscard.Open;
v_fee_do_seae.Close;
v_fee_do_seai.Close;
v_fee_do_aire.Close;
v_fee_do_airi.Close;
end
else
begin
bsSkinTabSheet4.TabVisible:=true;
bsSkinTabSheet5.TabVisible:=true;
bsSkinTabSheet6.TabVisible:=true;
bsSkinTabSheet7.TabVisible:=true;
bsSkinTabSheet14.TabVisible:=false;
v_fee_do_seae.open;
v_fee_do_seai.open;
v_fee_do_aire.open;
v_fee_do_airi.open;
v_fee_do_bscard.Close;
end;
end;
procedure Tfrm_ch_invoice.bsSkinButton26Click(Sender: TObject);
begin
if t_ch_invoice_shen.IsEmpty then
exit;
if (t_ch_invoice_shen.FieldByName('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').asstring='ʵ<>ʿ<EFBFBD>Ʊ')then
begin
shen_back(t_ch_invoice_shen);
end
else
begin
if (t_ch_invoice_shen.FieldByName('<27><><EFBFBD><EFBFBD>״̬').asstring='<27>ύ<EFBFBD><E1BDBB><EFBFBD><EFBFBD>')or
(t_ch_invoice_shen.FieldByName('<27><><EFBFBD><EFBFBD>״̬').asstring='<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>Ʊ')or
(t_ch_invoice_shen.FieldByName('<27><><EFBFBD><EFBFBD>״̬').asstring='<27><>׼<EFBFBD><D7BC>Ʊ')or
(t_ch_invoice_shen.FieldByName('<27><><EFBFBD><EFBFBD>״̬').asstring='<27><>ֹ<EFBFBD>޸<EFBFBD>')then
begin
t_ch_invoice_shen.Edit;
t_ch_invoice_shen['<27><><EFBFBD><EFBFBD>״̬']:='<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>';
t_ch_invoice_shen['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']:=employee;
t_ch_invoice_shen['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']:=now;
t_ch_invoice_shen.post;
t_ch_invoice_shen.Refresh;
end
else
begin
showmessage('<27><>ǰҵ<C7B0><D2B5>״̬<D7B4><CCAC><EFBFBD>ܲ<EFBFBD><DCB2><EFBFBD><EFBFBD><EFBFBD><EFBFBD>룡<EFBFBD><EBA3A1>');
end;
end;
end;
procedure Tfrm_ch_invoice.bsSkinButton25Click(Sender: TObject);
var
sdate:TDate;
aList,aListCurrency:TStringList;
i:integer;
billnos:string;
Current,bm: TBookmarkStr;
begin
if t_ch_invoice_shen.IsEmpty then
exit;
{
aList:=TStringList.create;
aListCurrency:=TStringList.create;
try
t_ch_invoice_shen.DisableControls;
if dxDBGrid2.SelectedCount>0 then
begin
billnos:='';
aList.Clear;
for i:=0 to dxDBGrid2.SelectedCount-1 do
begin
t_ch_invoice_shen.GotoBookmark(pointer(dxDBGrid2.selectedrows[i]));
if aList.IndexOf(t_ch_invoice_shen['<27>ͻ<EFBFBD><CDBB><EFBFBD><EFBFBD><EFBFBD>'])<0 then
aList.Add(t_ch_invoice_shen['<27>ͻ<EFBFBD><CDBB><EFBFBD><EFBFBD><EFBFBD>']);
if aListCurrency.IndexOf(t_ch_invoice_shen['<27>ұ<EFBFBD>'])<0 then
aListCurrency.Add(t_ch_invoice_shen['<27>ұ<EFBFBD>']);
if billnos='' then billnos:=t_ch_invoice_shen.fieldbyname('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').asstring
else billnos:=billnos+','+t_ch_invoice_shen.fieldbyname('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').asstring;
end;
if aList.Count>1 then begin
showmessage('<27><><EFBFBD><EFBFBD>ͬ<EFBFBD>Ŀͻ<C4BF><CDBB><EFBFBD><EFBFBD><EFBFBD>ͬʱ<CDAC><CAB1>Ʊ:'+#13#10+aList.Text);
exit;
end;
if aListCurrency.Count>1 then begin
showmessage('<27><><EFBFBD><EFBFBD>ͬ<EFBFBD>ıұ<C4B1><D2B1><EFBFBD><EFBFBD><EFBFBD>ͬʱ<CDAC><CAB1>Ʊ:'+#13#10+aListCurrency.Text);
exit;
end;
end
else
begin
billnos:='';
aList.Clear;
aList.Add(t_ch_invoice_shen['<27>ͻ<EFBFBD><CDBB><EFBFBD><EFBFBD><EFBFBD>']);
if billnos='' then billnos:=t_ch_invoice_shen.fieldbyname('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').asstring
else billnos:=billnos+','+t_ch_invoice_shen.fieldbyname('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').asstring;
if aList.Count=0 then begin
showmessage('û<><C3BB><EFBFBD><EFBFBD>Ҫ<EFBFBD><D2AA>Ʊ<EFBFBD><C6B1><EFBFBD><EFBFBD>Ϣ:'+#13#10+aList.Text);
exit;
end;
end;
finally
aList.free;
aListCurrency.free;
t_ch_invoice_shen.EnableControls;
end;
}
if (t_ch_invoice_shen.FieldByName('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').asstring<>'ʵ<>ʿ<EFBFBD>Ʊ')then
begin
if (t_ch_invoice_shen.FieldByName('<27><><EFBFBD><EFBFBD>״̬').asstring='<27>ύ<EFBFBD><E1BDBB><EFBFBD><EFBFBD>')or
(t_ch_invoice_shen.FieldByName('<27><><EFBFBD><EFBFBD>״̬').asstring='<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>')or
(t_ch_invoice_shen.FieldByName('<27><><EFBFBD><EFBFBD>״̬').asstring='<27><>׼<EFBFBD><D7BC>Ʊ')or
(t_ch_invoice_shen.FieldByName('<27><><EFBFBD><EFBFBD>״̬').asstring='<27><>ֹ<EFBFBD>޸<EFBFBD>')then
begin
t_ch_invoice_shen.Edit;
t_ch_invoice_shen['<27><><EFBFBD><EFBFBD>״̬']:='<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>Ʊ';
t_ch_invoice_shen['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']:=employee;
t_ch_invoice_shen['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']:=now;
t_ch_invoice_shen.post;
t_ch_invoice_shen.Refresh;
end
else
begin
showmessage('<27><>ǰҵ<C7B0><D2B5>״̬<D7B4><CCAC><EFBFBD><EFBFBD><EFBFBD><EFBFBD>׼<EFBFBD><D7BC><EFBFBD><EFBFBD><EFBFBD><EFBFBD>Ʊ<EFBFBD><C6B1><EFBFBD><EFBFBD>');
end;
end
else
begin
if strtobool(get_parameters_value(1,'false')) then
begin
if (t_ch_invoice_shen.FieldByName('<27><><EFBFBD><EFBFBD>״̬').asstring<>'<27><>׼<EFBFBD><D7BC>Ʊ') and
(t_ch_invoice_shen.FieldByName('<27><><EFBFBD><EFBFBD>״̬').asstring<>'<27><>ֹ<EFBFBD>޸<EFBFBD>') then
begin
showmessage('<27><>ǰ<EFBFBD><C7B0><EFBFBD><EFBFBD>״̬<D7B4><CCAC><EFBFBD>ܿ<EFBFBD><DCBF><EFBFBD><EFBFBD><EFBFBD>Ʊ<EFBFBD><C6B1><EFBFBD><EFBFBD>');
exit;
end;
end
else
begin
if (t_ch_invoice_shen.FieldByName('<27><><EFBFBD><EFBFBD>״̬').asstring<>'<27><>׼<EFBFBD><D7BC>Ʊ') and
(t_ch_invoice_shen.FieldByName('<27><><EFBFBD><EFBFBD>״̬').asstring<>'<27><>ֹ<EFBFBD>޸<EFBFBD>') and
(t_ch_invoice_shen.FieldByName('<27><><EFBFBD><EFBFBD>״̬').asstring<>'<27>ύ<EFBFBD><E1BDBB><EFBFBD><EFBFBD>') then
begin
showmessage('<27><>ǰ<EFBFBD><C7B0><EFBFBD><EFBFBD>״̬<D7B4><CCAC><EFBFBD>ܿ<EFBFBD><DCBF><EFBFBD><EFBFBD><EFBFBD>Ʊ<EFBFBD><C6B1><EFBFBD><EFBFBD>');
exit;
end;
end;
try
frm_ch_invoice_add:=tfrm_ch_invoice_add.Create (self);
frm_ch_invoice_add.bsSkinCheckRadioBox1.checked:=true;
frm_ch_invoice_add.bsSkinCheckRadioBox7.enabled:=false;
frm_ch_invoice_add.bsSkinCheckRadioBox8.enabled:=false;
frm_ch_invoice_add.wwDBLookupCombo6.Text:=t_ch_invoice_shen.fieldbyname('<27>ұ<EFBFBD>').asstring;
frm_ch_invoice_add.wwDBLookupCombo6.ReadOnly:=true;
frm_ch_invoice_add.edit2.text:=t_ch_invoice_shen.fieldbyname('<27>ͻ<EFBFBD><CDBB><EFBFBD><EFBFBD><EFBFBD>').asstring;
frm_ch_invoice_add.edit2.Visible:=true;
frm_ch_invoice_add.RxDBLookupCombo3.Visible:=false;
if billnos<>'' then
frm_ch_invoice_add.Memo1.text:='<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>:'+billnos;
if t_ch_invoice_shen.FieldByName('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').asstring<>''then
begin
{
if (date-t_ch_invoice_shen.FieldByName('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').asdatetime)>7 then
begin
showmessage('<27><><EFBFBD>棺<EFBFBD><E6A3BA>Ʊ<EFBFBD><C6B1><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ڳ<EFBFBD><DAB3><EFBFBD><EFBFBD><EFBFBD>˰<EFBFBD><CBB0><EFBFBD><EFBFBD>Ҫ<EFBFBD><D2AA><EFBFBD><EFBFBD>7<EFBFBD><37><EFBFBD><EFBFBD><EFBFBD>ƣ<EFBFBD><C6A3><EFBFBD>');
end;
}
end;
frm_ch_invoice_add.ShowModal;
finally
t_ch_invoice_item.Requery();
frm_ch_invoice_add.Free;
end;
end;
end;
procedure Tfrm_ch_invoice.RxDBLookupCombo3Enter(Sender: TObject);
begin
if DBEdit12.text='<27><><EFBFBD>뷢Ʊ' then
begin
RxDBLookupCombo3.ReadOnly:=true;
{DBEdit19.ReadOnly:=true;
DE_ShipName.ReadOnly:=true;
DE_BLNO.ReadOnly:=true;
wwDBDateTimePicker2.ReadOnly:=true;
wwDBLookupCombo10.ReadOnly:=true;
wwDBLookupCombo11.ReadOnly:=true;
wwDBLookupCombo12.ReadOnly:=true;
DM_ChaCon.ReadOnly:=true;
DM_CostType.ReadOnly:=true;
DM_Money.ReadOnly:=true;
DE_SumUpper.ReadOnly:=true;
DBSumLower.ReadOnly:=true; }
wwDBLookupCombo6.ReadOnly:=true;
end
else
begin
RxDBLookupCombo3.ReadOnly:=false;
wwDBLookupCombo6.ReadOnly:=false;
if StrToBool(get_parameters_value(85,'false')) then
begin
if fra_ch_delete_do1.v_fee_do_bscard.IsEmpty then
begin
RxDBLookupCombo3.ReadOnly:=false;
wwDBLookupCombo6.ReadOnly:=false;
end
else
begin
RxDBLookupCombo3.ReadOnly:=true;
wwDBLookupCombo6.ReadOnly:=true;
end;
end
else
begin
if fra_ch_delete_do1.v_fee_do_seae.IsEmpty and fra_ch_delete_do1.v_fee_do_seai.IsEmpty
and fra_ch_delete_do1.v_fee_do_aire.IsEmpty and fra_ch_delete_do1.v_fee_do_airi.IsEmpty then
begin
RxDBLookupCombo3.ReadOnly:=false;
wwDBLookupCombo6.ReadOnly:=false;
end
else
begin
RxDBLookupCombo3.ReadOnly:=true;
wwDBLookupCombo6.ReadOnly:=true;
end;
end;
end;
end;
procedure Tfrm_ch_invoice.FormCloseQuery(Sender: TObject;
var CanClose: Boolean);
begin
CanClose:=frm_close_query(t_ch_invoice);
end;
procedure Tfrm_ch_invoice.bsSkinButton24Click(Sender: TObject);
begin
try
frm_ch_shen_query:=tfrm_ch_shen_query.Create (self);
shen_query_type:=3;
shen_query_limited:='no';
shen_query_op_limited:='no';
frm_ch_shen_query.ShowModal;
finally
frm_ch_shen_query.Free;
end;
end;
procedure Tfrm_ch_invoice.bsSkinButton3Click(Sender: TObject);
begin
if t_ch_invoice.IsEmpty then
exit;
if t_ch_invoice.FieldByName('<27><>Ʊ<EFBFBD><C6B1><EFBFBD><EFBFBD>').asstring<>'<27><><EFBFBD>뷢Ʊ'then
begin
showmessage('<27><>ǰ<EFBFBD><C7B0>Ʊ<EFBFBD><C6B1><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>뷢Ʊ<EBB7A2><C6B1><EFBFBD><EFBFBD>');
exit;
end;
if t_ch_invoice.FieldByName('<27>Ƿ<EFBFBD><C7B7>ϳ<EFBFBD>').asboolean then
begin
showmessage('<27><>ǰ<EFBFBD><C7B0>Ʊ<EFBFBD>Ѿ<EFBFBD><D1BE>ϳ<EFBFBD><CFB3><EFBFBD><EFBFBD><EFBFBD>');
exit;
end;
if not t_ch_invoice_shen.Locate('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>',t_ch_invoice.fieldbyname('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').asstring,[])then
begin
t_ch_invoice_shen.close;
t_ch_invoice_shen.sql.clear;
t_ch_invoice_shen.sql.add('select * from t_ch_invoice_shen where <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>='
+''''+t_ch_invoice.fieldbyname('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').asstring+'''');
t_ch_invoice_shen.open;
t_ch_invoice_shen_item.Close;
t_ch_invoice_shen_item.open;
end;
bsSkinTabSheet22.Show;
end;
procedure Tfrm_ch_invoice.bsSkinButton31Click(Sender: TObject);
begin
if t_ch_invoice_shen.IsEmpty then
exit;
if t_ch_invoice_shen.FieldByName('<27><><EFBFBD><EFBFBD>״̬').asstring<>'<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>Ʊ'then
begin
showmessage('<27><>ǰ<EFBFBD><C7B0><EFBFBD>뻹û<EBBBB9>п<EFBFBD><D0BF><EFBFBD><EFBFBD><EFBFBD>Ʊ<EFBFBD><C6B1><EFBFBD><EFBFBD>');
exit;
end;
if not t_ch_invoice.Locate('<27><>Ʊ<EFBFBD><C6B1><EFBFBD><EFBFBD>',t_ch_invoice_shen.fieldbyname('<27><>Ʊ<EFBFBD><C6B1><EFBFBD><EFBFBD>').asstring,[])then
begin
t_ch_invoice.close;
t_ch_invoice.sql.clear;
t_ch_invoice.sql.add('select * from t_ch_invoice where <20><>Ʊ<EFBFBD><C6B1><EFBFBD><EFBFBD>='
+''''+t_ch_invoice_shen.fieldbyname('<27><>Ʊ<EFBFBD><C6B1><EFBFBD><EFBFBD>').asstring+'''');
t_ch_invoice.open;
end;
if not t_ch_invoice.IsEmpty then
bsSkinTabSheet2.Show
else
showmessage('û<><C3BB><EFBFBD>ҵ<EFBFBD><D2B5><EFBFBD>Ӧ<EFBFBD>ķ<EFBFBD>Ʊ<EFBFBD><C6B1>Ϣ<EFBFBD><CFA2><EFBFBD><EFBFBD>');
end;
procedure Tfrm_ch_invoice.N3Click(Sender: TObject);
begin
if t_ch_invoice.IsEmpty then
exit;
if t_ch_invoice.FieldByName('<27>Ƿ<EFBFBD><C7B7>ϳ<EFBFBD>').asboolean then
begin
showmessage('<27><>Ʊ<EFBFBD>Ѿ<EFBFBD><D1BE>ϳ<EFBFBD><CFB3><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ܴ<EFBFBD>ӡ<EFBFBD><D3A1><EFBFBD><EFBFBD>');
exit;
end;
if Trim(t_ch_invoice.FieldByName('<27><>Ʊ̧ͷ').AsString)='' then
begin
showmessage('<27><>Ʊ̧ͷΪ<CDB7>գ<EFBFBD><D5A3><EFBFBD><EFBFBD>ܴ<EFBFBD>ӡ<EFBFBD><D3A1><EFBFBD><EFBFBD>');
exit;
end;
if t_ch_invoice.state in [dsedit,dsinsert] then t_ch_invoice.post;
if not t_ch_invoice.FieldByName('<27>Ƿ<EFBFBD><C7B7><EFBFBD>ӡ').asboolean then
begin
t_ch_invoice.Edit;
t_ch_invoice['<27>Ƿ<EFBFBD><C7B7><EFBFBD>ӡ']:=1;
t_ch_invoice.post;
end;
sys_print('ҵ<><D2B5><EFBFBD><EFBFBD>Ʊ<EFBFBD><C6B1>ӡ',3,t_ch_invoice1,nil,nil,nil,DataSource1,DataSource2,DataSource3,DataSource4,t_ch_invoice1,nil,nil);
// bsSkinButton4Click(sender);
end;
procedure Tfrm_ch_invoice.DBEdit12KeyPress(Sender: TObject; var Key: Char);
begin
key_DBEdit(Key,DBEdit16);
end;
procedure Tfrm_ch_invoice.DBEdit16KeyPress(Sender: TObject; var Key: Char);
begin
key_DBEdit(Key,DBEdit17);
end;
procedure Tfrm_ch_invoice.DBEdit17KeyPress(Sender: TObject; var Key: Char);
begin
key_DBEdit(Key,DBEdit18);
end;
procedure Tfrm_ch_invoice.DBEdit18KeyPress(Sender: TObject; var Key: Char);
begin
key_RxDBLookupCombo(Key,RxDBLookupCombo3);
end;
procedure Tfrm_ch_invoice.RxDBLookupCombo3KeyPress(Sender: TObject;
var Key: Char);
begin
key_RxDBLookupCombo(Key,RxDBLookupCombo2);
end;
procedure Tfrm_ch_invoice.RxDBLookupCombo2KeyPress(Sender: TObject;
var Key: Char);
begin
key_DBEdit(Key,DBEdit27);
end;
procedure Tfrm_ch_invoice.DE_ShipNameKeyPress(Sender: TObject;
var Key: Char);
begin
key_DBEdit(Key,DE_BLNO);
end;
procedure Tfrm_ch_invoice.DE_BLNOKeyPress(Sender: TObject; var Key: Char);
begin
key_wwDBDateTimePicker(Key,wwDBDateTimePicker2);
end;
procedure Tfrm_ch_invoice.wwDBDateTimePicker2KeyPress(Sender: TObject;
var Key: Char);
begin
key_wwDBLookupCombo(Key,wwDBLookupCombo10);
end;
procedure Tfrm_ch_invoice.wwDBLookupCombo11KeyPress(Sender: TObject;
var Key: Char);
begin
key_wwDBLookupCombo(Key,wwDBLookupCombo12);
end;
procedure Tfrm_ch_invoice.DE_SumUpperKeyPress(Sender: TObject;
var Key: Char);
begin
key_DBEdit(Key,DBSumLower);
end;
procedure Tfrm_ch_invoice.DBSumLowerKeyPress(Sender: TObject;
var Key: Char);
begin
key_wwDBLookupCombo(Key,wwDBLookupCombo6);
end;
procedure Tfrm_ch_invoice.wwDBLookupCombo6KeyPress(Sender: TObject;
var Key: Char);
begin
key_DBEdit(Key,DE_BusnessNo);
end;
procedure Tfrm_ch_invoice.DE_BusnessNoKeyPress(Sender: TObject;
var Key: Char);
begin
key_DBEdit(Key,DE_TaxNo);
end;
procedure Tfrm_ch_invoice.DE_TaxNoKeyPress(Sender: TObject; var Key: Char);
begin
key_DBEdit(Key,DE_Maker);
end;
procedure Tfrm_ch_invoice.DE_MakerKeyPress(Sender: TObject; var Key: Char);
begin
key_wwDBLookupCombo(Key,wwDBLookupCombo7);
end;
procedure Tfrm_ch_invoice.RxDBLookupCombo3Change(Sender: TObject);
begin
if t_ch_invoice.fieldbyname('<27><>Ʊ<EFBFBD><C6B1><EFBFBD><EFBFBD>').asstring='<27><><EFBFBD>ɷ<EFBFBD>Ʊ'then
begin
if (t_ch_invoice.state=dsinsert)or(t_ch_invoice.state=dsedit)then
begin
if not frm_data_share.t_crm_client_all.IsEmpty then
if frm_data_share.t_crm_client_all.locate('<27>ͻ<EFBFBD><CDBB><EFBFBD><EFBFBD><EFBFBD>',RxDBLookupCombo3.DisplayValues[1],[]) then
begin
if frm_data_share.t_crm_client_all.fieldbyname('<27><>Ʊ̧ͷ').asstring<>'' then
t_ch_invoice['<27><>Ʊ̧ͷ']:=frm_data_share.t_crm_client_all.fieldbyname('<27><>Ʊ̧ͷ').asstring
else
t_ch_invoice['<27><>Ʊ̧ͷ']:=frm_data_share.t_crm_client_all.fieldbyname('<27>ͻ<EFBFBD>ȫ<EFBFBD><C8AB>').asstring;
t_ch_invoice['<27><>˰<EFBFBD><CBB0>ʶ<EFBFBD><CAB6><EFBFBD><EFBFBD>']:=frm_data_share.t_crm_client_all.fieldbyname('<27><>˰<EFBFBD><CBB0>ʶ<EFBFBD><CAB6><EFBFBD><EFBFBD>').asstring;
t_ch_invoice['<27><>ַ<EFBFBD>绰']:=frm_data_share.t_crm_client_all.fieldbyname('ͨѶ<CDA8><D1B6>ַ').asstring+frm_data_share.t_crm_client_all.fieldbyname('<27>绰').asstring;
t_ch_invoice['<27><><EFBFBD><EFBFBD><EFBFBD>м<EFBFBD><D0BC>˺<EFBFBD>']:=frm_data_share.t_crm_client_all.fieldbyname('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>RMB').asstring+frm_data_share.t_crm_client_all.fieldbyname('<27>ʺ<EFBFBD>RMB').asstring
+frm_data_share.t_crm_client_all.fieldbyname('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>USD').asstring+frm_data_share.t_crm_client_all.fieldbyname('<27>ʺ<EFBFBD>USD').asstring;
t_ch_invoice['<27><>˰<EFBFBD><CBB0><EFBFBD><EFBFBD>']:=frm_data_share.t_crm_client_all.fieldbyname('<27><>˰<EFBFBD><CBB0><EFBFBD><EFBFBD>').asstring;
end;
end;
end;
end;
procedure Tfrm_ch_invoice.bsSkinButton10Click(Sender: TObject);
begin
try
frm_ch_invoice_query:=tfrm_ch_invoice_query.Create (self);
frm_ch_invoice_query.shen_query_limited:='1001';
frm_ch_invoice_query.ShowModal;
finally
frm_ch_invoice_query.Free;
end;
end;
procedure Tfrm_ch_invoice.N10Click(Sender: TObject);
begin
if bsSkinTabSheet1.Showing then
update_grid_view_no(dxdbgrid1)
else
update_grid_view_no(dxdbgrid2);
end;
procedure Tfrm_ch_invoice.N14Click(Sender: TObject);
begin
if bsSkinTabSheet1.Showing then
update_grid_view_all(dxdbgrid1)
else
update_grid_view_all(dxdbgrid2);
end;
procedure Tfrm_ch_invoice.N12Click(Sender: TObject);
begin
if bsSkinTabSheet1.Showing then
update_grid(dxdbgrid1,7)
else
update_grid(dxdbgrid2,8);
end;
procedure Tfrm_ch_invoice.N16Click(Sender: TObject);
begin
if bsSkinTabSheet1.Showing then
grid_save_xls(dxdbgrid1)
else
grid_save_xls(dxdbgrid2);
end;
procedure Tfrm_ch_invoice.dxDBGrid1ColumnSorting(Sender: TObject;
Column: TdxDBTreeListColumn; var Allow: Boolean);
begin
Column_sort(Column,t_ch_invoice,'<27><>Ʊ<EFBFBD><C6B1><EFBFBD><EFBFBD>');
end;
procedure Tfrm_ch_invoice.dxDBGrid2ColumnSorting(Sender: TObject;
Column: TdxDBTreeListColumn; var Allow: Boolean);
begin
Column_sort(Column,t_ch_invoice_shen,'<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>');
end;
procedure Tfrm_ch_invoice.bsSkinButton22Click(Sender: TObject);
begin
shen_modify_ok(t_ch_invoice_shen);
end;
procedure Tfrm_ch_invoice.bsSkinButton27Click(Sender: TObject);
begin
shen_modify_back(t_ch_invoice_shen);
end;
procedure Tfrm_ch_invoice.bsSkinButton32Click(Sender: TObject);
var
Pnt:Tpoint;
begin
Pnt:=bsSkinButton32.ClientToScreen(Point(0,bsSkinButton32.Height));
PopupMenu3.Popup(Pnt.x,Pnt.y);
end;
procedure Tfrm_ch_invoice.N17Click(Sender: TObject);
begin
t_ch_invoice_shen.Close;
t_ch_invoice_shen.SQL.clear;
t_ch_invoice_shen.SQL.Add('select * from t_ch_invoice_shen where <20><><EFBFBD><EFBFBD>״̬ in ('+''''+'<27><><EFBFBD>뿪Ʊ'+''''
+') '
+' and '+open_data('1001','<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>','no','no','no','no')
+' order by <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> desc');
t_ch_invoice_shen.open;
t_ch_invoice_shen_item.Close;
t_ch_invoice_shen_item.open;
end;
procedure Tfrm_ch_invoice.N34Click(Sender: TObject);
begin
t_ch_invoice_shen.Close;
t_ch_invoice_shen.SQL.clear;
t_ch_invoice_shen.SQL.Add('select * from t_ch_invoice_shen where <20><><EFBFBD><EFBFBD>״̬ in ('+''''+'<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>'+''''
+','+''''+'<27><>ֹ<EFBFBD>޸<EFBFBD>'+''''+') '
+' and '+open_data('1001','<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>','no','no','no','no')
+' order by <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> desc');
t_ch_invoice_shen.open;
t_ch_invoice_shen_item.Close;
t_ch_invoice_shen_item.open;
end;
procedure Tfrm_ch_invoice.N36Click(Sender: TObject);
begin
t_ch_invoice_shen.Close;
t_ch_invoice_shen.SQL.clear;
t_ch_invoice_shen.SQL.Add('select * from t_ch_invoice_shen where <20><><EFBFBD><EFBFBD>״̬ in ('
+''''+'<27>ύ<EFBFBD><E1BDBB><EFBFBD><EFBFBD>'+''''+','+''''+'<27><><EFBFBD><EFBFBD><EFBFBD>޸<EFBFBD>'+''''+') '
+' and '+open_data('1001','<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>','no','no','no','no')
+' order by <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> desc');
t_ch_invoice_shen.open;
t_ch_invoice_shen_item.Close;
t_ch_invoice_shen_item.open;
end;
procedure Tfrm_ch_invoice.N6Click(Sender: TObject);
begin
t_ch_invoice_shen.Close;
t_ch_invoice_shen.SQL.clear;
t_ch_invoice_shen.SQL.Add('select * from t_ch_invoice_shen where <20><><EFBFBD><EFBFBD>״̬ in ('+''''+'<27><>׼<EFBFBD><D7BC>Ʊ'+''''
+','+''''+'<27><>ֹ<EFBFBD>޸<EFBFBD>'+''''+') '
+' and '+open_data('1001','<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>','no','no','no','no')
+' order by <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> desc');
t_ch_invoice_shen.open;
t_ch_invoice_shen_item.Close;
t_ch_invoice_shen_item.open;
end;
procedure Tfrm_ch_invoice.MenuItem2Click(Sender: TObject);
begin
t_ch_invoice_shen.Close;
t_ch_invoice_shen.SQL.clear;
t_ch_invoice_shen.SQL.Add('select * from t_ch_invoice_shen where <20><><EFBFBD><EFBFBD>״̬ in ('+''''+'<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>Ʊ'+''''+') '
+' and '+open_data('1001','<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>','no','no','no','no')
+' order by <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> desc');
t_ch_invoice_shen.open;
t_ch_invoice_shen_item.Close;
t_ch_invoice_shen_item.open;
end;
procedure Tfrm_ch_invoice.dxDBGridMaskColumn2CustomDraw(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 (ANode.strings[dxDBGridMaskColumn2.Index]='<27><><EFBFBD>뿪Ʊ')or
(ANode.strings[dxDBGridMaskColumn2.Index]='<27><>׼<EFBFBD>޸<EFBFBD>') then
AColor :=clwhite
else if (ANode.strings[dxDBGridMaskColumn2.Index]='<27>ύ<EFBFBD><E1BDBB><EFBFBD><EFBFBD>')or
(ANode.strings[dxDBGridMaskColumn2.Index]='<27><><EFBFBD><EFBFBD><EFBFBD>޸<EFBFBD>') then
AColor :=clyellow
else if (ANode.strings[dxDBGridMaskColumn2.Index]='<27><>ֹ<EFBFBD>޸<EFBFBD>')or
(ANode.strings[dxDBGridMaskColumn2.Index]='<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>')then
AColor :=clred
else if (ANode.strings[dxDBGridMaskColumn2.Index]='<27><>׼<EFBFBD><D7BC>Ʊ')or
(ANode.strings[dxDBGridMaskColumn2.Index]='<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>Ʊ') then
AColor :=$00DDF21C;
AFont.Color:=clblack;
end;
procedure Tfrm_ch_invoice.DBEdit1Change(Sender: TObject);
begin
if (DBEdit1.Text='') or (DBEdit1.Text='<27><><EFBFBD>뿪Ʊ') or
(DBEdit1.Text='<27><>׼<EFBFBD>޸<EFBFBD>')then
DBEdit1.Color:=clwhite
else if (DBEdit1.Text='<27>ύ<EFBFBD><E1BDBB><EFBFBD><EFBFBD>') or (DBEdit1.Text='<27><><EFBFBD><EFBFBD><EFBFBD>޸<EFBFBD>') then
DBEdit1.Color:=clyellow
else if (DBEdit1.Text='<27><>ֹ<EFBFBD>޸<EFBFBD>') or (DBEdit1.Text='<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>') then
DBEdit1.Color:=clred
else if (DBEdit1.Text='<27><>׼<EFBFBD><D7BC>Ʊ') or (DBEdit1.Text='<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>Ʊ') then
DBEdit1.Color:=$00DDF21C;
end;
procedure Tfrm_ch_invoice.DBEdit29KeyPress(Sender: TObject; var Key: Char);
begin
key_DBEdit(Key,DE_ShipName);
end;
procedure Tfrm_ch_invoice.wwDBDateTimePicker1KeyPress(Sender: TObject;
var Key: Char);
begin
key_DBEdit(Key,DBEdit29);
end;
procedure Tfrm_ch_invoice.wwDBLookupCombo1KeyPress(Sender: TObject;
var Key: Char);
begin
// key_wwDBDateTimePicker(Key,wwDBDateTimePicker1);
end;
procedure Tfrm_ch_invoice.DBEdit27KeyPress(Sender: TObject; var Key: Char);
begin
key_wwDBLookupCombo(Key,wwDBLookupCombo1);
end;
procedure Tfrm_ch_invoice.t_ch_invoiceAfterPost(DataSet: TDataSet);
var aAdoQuery:TAdoQuery;
FeeList,AmtList:TStringList;
i:Integer;
Amt :Double;
begin
// t_ch_invoice_head.Requery();
if t_ch_invoice['<27><>Ʊ<EFBFBD><C6B1><EFBFBD><EFBFBD>']<>'<27><><EFBFBD>뷢Ʊ' then begin
if bsSkinPageControl1.ActivePage=bsSkinTabSheet3 then begin
ADOQuery1.Requery;
ADOQuery2.Requery;
ADOQuery3.Requery;
ADOQuery4.Requery;
end;
if StrToBool(get_parameters_value(85,'false')) then begin
if (bsSkinPageControl6.ActivePage=bstab2) then begin
if fra_ch_delete_do1.v_fee_do_bscard_sum.active then begin
fra_ch_delete_do1.v_fee_do_bscard_sum.Requery;
fra_ch_delete_do1.v_fee_do_bscard.Requery;
end;
end;
end else begin
if (bsSkinPageControl6.ActivePage=bstab2) then begin
if fra_ch_delete_do1.v_fee_do_seae.active then begin
fra_ch_delete_do1.v_fee_do_seae.Requery;
fra_ch_delete_do1.v_fee_do_seae_sum.Requery;
fra_ch_delete_do1.v_fee_do_seai.Requery;
fra_ch_delete_do1.v_fee_do_seai_sum.Requery;
fra_ch_delete_do1.v_fee_do_aire.Requery;
fra_ch_delete_do1.v_fee_do_aire_sum.Requery;
fra_ch_delete_do1.v_fee_do_airi.Requery;
fra_ch_delete_do1.v_fee_do_airi_sum.Requery;
end;
end;
end;
if if_ch_delete_do then
begin
case delete_do_type_num of
1,2,3,4,5:
begin
if fra_ch_add_do1.t_op_seae.Active then
begin
fra_ch_add_do1.t_ch_fee.Requery();
fra_ch_add_do1.t_ch_fee_sum.Requery();
end;
end;
end;
end;
delete_do_type_num:=0;
if_ch_delete_do:=false;
end;
aAdoQuery:=CreateAdoQuery;
with aAdoQuery do
try
Close;SQL.Clear;
SQL.Add('Update t_ch_invoice_item set <20><>ע=:<3A><>ע');
SQL.Add('where IN_ID=:IN_ID');
Parameters.ParamByName('IN_ID').Value:=t_ch_invoice.FieldByName('IN_ID').AsInteger;
Parameters.ParamByName('<27><>ע').Value:=t_ch_invoice.FieldByName('<27><>ע').asString;
ExecSQL;
finally
Free;
end;
{
with t_ch_invoice_item do
try
t_ch_invoice_item.DisableControls;
first;
while not eof do
begin
edit;
fieldbyname('<27><>ע').AsString:=t_ch_invoice.FieldByName('<27><>ע').asString;
post;
next;
end;
finally
t_ch_invoice_item.EnableControls;
end;
}
if t_ch_invoice_item.active then
begin
t_ch_invoice_item.Requery;
end
else
begin
t_ch_invoice_item.Open;
t_ch_invoice_item.Requery;
end;
{
FeeList:=TStringList.Create;
FeeList.Clear;
AmtList:=TStringList.Create;
AmtList.Clear;
FeeList.Text:=Trim(t_ch_invoice.FieldByName('<27><><EFBFBD><EFBFBD><EFBFBD>б<EFBFBD>').AsString);
AmtList.Text:=Trim(t_ch_invoice.FieldByName('<27><><EFBFBD><EFBFBD><EFBFBD>б<EFBFBD>').AsString);
if FeeList.Count=AmtList.Count then
begin
if (FeeList.Count>=1) and (AmtList.Count>=1) then
begin
aAdoQuery:=CreateAdoQuery;
with aAdoQuery do
try
Close;sql.Clear;
SQL.Add('Delete from t_ch_invoice_item');
SQL.Add('where IN_ID=:IN_ID');
Parameters.ParamByName('IN_ID').Value:=t_ch_invoice.FieldByName('IN_ID').asinteger;
ExecSQL;
if FeeList.Count>=1 then
begin
for i :=0 to FeeList.Count-1 do
begin
Amt:=0;
Close;sql.Clear;
SQL.Add('Insert into t_ch_invoice_item ( IN_ID, <20><>Ʒ<EFBFBD><C6B7><EFBFBD><EFBFBD>, <20><><EFBFBD><EFBFBD><EFBFBD>ͺ<EFBFBD>, <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>λ, <20><><EFBFBD><EFBFBD>, <20><><EFBFBD><EFBFBD>, <20><><EFBFBD><EFBFBD>, ˰<><CBB0> ,˰<><CBB0> ,<2C>ۿ<EFBFBD>,<2C><>ע,<2C><>˰<EFBFBD>۱<EFBFBD>־ )');
SQL.Add('values (:IN_ID,:<3A><>Ʒ<EFBFBD><C6B7><EFBFBD><EFBFBD>,:<3A><><EFBFBD><EFBFBD><EFBFBD>ͺ<EFBFBD>,:<3A><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>λ,:<3A><><EFBFBD><EFBFBD>,:<3A><><EFBFBD><EFBFBD>,:<3A><><EFBFBD><EFBFBD>, :˰<><CBB0>,:˰<><CBB0>,:<3A>ۿ<EFBFBD>,:<3A><>ע,:<3A><>˰<EFBFBD>۱<EFBFBD>־)');
Parameters.ParamByName('IN_ID').Value:=t_ch_invoice.FieldByName('IN_ID').asinteger;
if pos('<27><><EFBFBD><EFBFBD>',FeeList[i])>0 then
Parameters.ParamByName('<27><>Ʒ<EFBFBD><C6B7><EFBFBD><EFBFBD>').Value:=FeeList[i]
else Parameters.ParamByName('<27><>Ʒ<EFBFBD><C6B7><EFBFBD><EFBFBD>').Value:='<27><><EFBFBD><EFBFBD>'+FeeList[i];
Parameters.ParamByName('<27><><EFBFBD><EFBFBD><EFBFBD>ͺ<EFBFBD>').Value:='0';
Parameters.ParamByName('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>λ').Value:='Ʊ';
Parameters.ParamByName('<27><><EFBFBD><EFBFBD>').Value:=1;
Amt:=StrToFloat(AmtList[i]);
Parameters.ParamByName('˰<><CBB0>').Value:=(Amt/(1+frm_data_share.t_sys_company.fieldbyname('˰<><CBB0>').AsFloat/100))*frm_data_share.t_sys_company.fieldbyname('˰<><CBB0>').AsFloat/100;
Parameters.ParamByName('<27><><EFBFBD><EFBFBD>').Value:=Amt-Parameters.ParamByName('˰<><CBB0>').Value;
Parameters.ParamByName('<27><><EFBFBD><EFBFBD>').Value:=Amt-Parameters.ParamByName('˰<><CBB0>').Value;
Parameters.ParamByName('˰<><CBB0>').Value:=frm_data_share.t_sys_company.fieldbyname('˰<><CBB0>').AsFloat/100;
Parameters.ParamByName('<27>ۿ<EFBFBD>').Value:=0;
Parameters.ParamByName('<27><>ע').Value:=t_ch_invoice.FieldByName('<27><>ע').asString;
Parameters.ParamByName('<27><>˰<EFBFBD>۱<EFBFBD>־').Value:=0;
ExecSQL;
end;
end;
finally
Free;
end;
end;
end
else
begin
ShowMessage('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>Ŀ<EFBFBD><C4BF><EFBFBD><EFBFBD><EFBFBD>ڽ<EFBFBD><DABD><EFBFBD><EFBFBD><EFBFBD>Ŀ');
end;
try
finally
FeeList.Free;
AmtList.Free;
end;
}
end;
procedure Tfrm_ch_invoice.N8Click(Sender: TObject);
var
aQuery:TADOQuery;
begin
// aQuery:=CreateAdoQuery;
try
modify_all:=true;
t_ch_invoice.edit;
t_ch_invoice['<27>Ƿ<EFBFBD><C7B7>շ<EFBFBD>']:=1;
t_ch_invoice.post;
{
with aQuery do begin
Close;SQL.Clear;
SQL.Add('Update t_ch_invoice set <20>Ƿ<EFBFBD><C7B7>շ<EFBFBD>=1 where IN_ID='+inttostr(t_ch_invoice.fieldbyName('IN_ID').AsInteger));
ExecSQL;
end;
t_ch_invoice.Refresh;
}
finally
modify_all:=false;
// FreeAndNil(aQuery);
end;
end;
procedure Tfrm_ch_invoice.N19Click(Sender: TObject);
begin
// aQuery:=CreateAdoQuery;
try
modify_all:=true;
t_ch_invoice.edit;
t_ch_invoice['<27>Ƿ<EFBFBD><C7B7>շ<EFBFBD>']:=0;
t_ch_invoice.post;
{
with aQuery do begin
Close;SQL.Clear;
SQL.Add('Update t_ch_invoice set <20>Ƿ<EFBFBD><C7B7>շ<EFBFBD>=0 where IN_ID='+inttostr(t_ch_invoice.fieldbyName('IN_ID').AsInteger));
ExecSQL;
end;
t_ch_invoice.Refresh;
}
finally
modify_all:=false;
// FreeAndNil(aQuery);
end;
end;
procedure Tfrm_ch_invoice.DBEdit12Change(Sender: TObject);
begin
if DBEdit12.Text<>'<27><><EFBFBD>뷢Ʊ' then
bstab2.TabVisible:=True
else
bstab2.TabVisible:=false;
end;
procedure Tfrm_ch_invoice.DE_BLNODblClick(Sender: TObject);
var
str:String;
begin
//˫<><CBAB><EFBFBD><EFBFBD><EFBFBD>ᵥ<EFBFBD><E1B5A5><EFBFBD><EFBFBD><EFBFBD>ӷ<EFBFBD>Ʊ<EFBFBD><C6B1>ϸ
frmch_invoice_addone:=Tfrmch_invoice_addone.Create(Self);
try
with frmch_invoice_addone.ADOQuery1 do begin
frmch_invoice_addone.MblNo:=true;
frmch_invoice_addone.ADOQuery2.Close;
frmch_invoice_addone.ADOQuery2.SQL.Clear;
frmch_invoice_addone.ADOQuery2.SQL.Add('select <20><><EFBFBD>ᵥ<EFBFBD><E1B5A5>,ί<>б<EFBFBD><D0B1><EFBFBD>,<2C><><EFBFBD><EFBFBD>,<2C><><EFBFBD><EFBFBD>,<2C><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>,<2C><><EFBFBD>˸<EFBFBD>,ж<><D0B6><EFBFBD><EFBFBD>,Ŀ<>ĵ<EFBFBD> from v_op_bscard where <20><><EFBFBD>ᵥ<EFBFBD><E1B5A5>='''+Trim(DE_BLNO.Text)+''' or <20><><EFBFBD>ᵥ<EFBFBD><E1B5A5>='''+Trim(DE_BLNO.Text)+'''');
frmch_invoice_addone.ADOQuery2.Open;
str:=' and <20><><EFBFBD><EFBFBD><>(<28><>Ʊ<EFBFBD><C6B1><EFBFBD><EFBFBD>+<2B><><EFBFBD>뿪Ʊ) and <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>Ʊ<>1 and <20><><EFBFBD><EFBFBD>=''<27><>'' and <20><><EFBFBD><EFBFBD> in (select <20><><EFBFBD><EFBFBD> from v_op_bscard where <20><><EFBFBD>ᵥ<EFBFBD><E1B5A5>='''+Trim(DE_BLNO.Text)+''' or <20><><EFBFBD>ᵥ<EFBFBD><E1B5A5>='''+Trim(DE_BLNO.Text)+''')';
frmch_invoice_addone.t_fee_obj.Close;
frmch_invoice_addone.t_fee_obj.SQL.Clear;
frmch_invoice_addone.t_fee_obj.SQL.Add('Select distinct <20>ͻ<EFBFBD><CDBB><EFBFBD><EFBFBD><EFBFBD> from t_ch_fee where 1=1 ') ;
frmch_invoice_addone.t_fee_obj.SQL.Add(str);
if t_ch_invoice.FieldByName('<27>ͻ<EFBFBD><CDBB><EFBFBD><EFBFBD><EFBFBD>').AsString<>'' then
frmch_invoice_addone.t_fee_obj.SQL.Add(' and <20>ͻ<EFBFBD><CDBB><EFBFBD><EFBFBD><EFBFBD>='''+t_ch_invoice.FieldByName('<27>ͻ<EFBFBD><CDBB><EFBFBD><EFBFBD><EFBFBD>').AsString+'''');
frmch_invoice_addone.t_fee_obj.Open;
Close;
SQL.Clear;
SQL.Add('Select * from t_ch_fee where 1=1 ');
if t_ch_invoice.FieldByName('<27>ͻ<EFBFBD><CDBB><EFBFBD><EFBFBD><EFBFBD>').AsString<>'' then
SQL.Add(' and <20>ͻ<EFBFBD><CDBB><EFBFBD><EFBFBD><EFBFBD>='''+t_ch_invoice.FieldByName('<27>ͻ<EFBFBD><CDBB><EFBFBD><EFBFBD><EFBFBD>').AsString+'''');
// else
// SQL.Add(' and <20>ͻ<EFBFBD><CDBB><EFBFBD><EFBFBD><EFBFBD>=:<3A>ͻ<EFBFBD><CDBB><EFBFBD><EFBFBD><EFBFBD> ');
SQL.Add(str);
Open;
if not IsEmpty then begin
if t_ch_invoice.FieldByName('<27>ұ<EFBFBD>').AsString='USD' then
frmch_invoice_addone.bsSkinRadioGroup1.ItemIndex:=1
else
frmch_invoice_addone.bsSkinRadioGroup1.ItemIndex:=0;
frmch_invoice_addone.ShowModal;
end else begin
MessageDlg('<27><><EFBFBD><EFBFBD><EFBFBD>ᵥ<EFBFBD><E1B5A5><EFBFBD>´˿ͻ<CBBF><CDBB><EFBFBD>Ӧ<EFBFBD><D3A6><EFBFBD><EFBFBD>Ʊ<EFBFBD>ķ<EFBFBD><C4B7><EFBFBD>',mtWarning,[mbYes],0);
end;
end;
finally
t_ch_invoice_item.Requery();
FreeAndNil(frmch_invoice_addone);
end;
end;
procedure Tfrm_ch_invoice.DBEdit29DblClick(Sender: TObject);
var
str:String;
begin
//˫<><CBAB>ί<EFBFBD>б<EFBFBD><D0B1><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ӷ<EFBFBD>Ʊ<EFBFBD><C6B1>ϸ
frmch_invoice_addone:=Tfrmch_invoice_addone.Create(Self);
try
with frmch_invoice_addone.ADOQuery1 do begin
frmch_invoice_addone.MblNo:=false;
frmch_invoice_addone.ADOQuery2.Close;
frmch_invoice_addone.ADOQuery2.SQL.Clear;
frmch_invoice_addone.ADOQuery2.SQL.Add('select <20><><EFBFBD>ᵥ<EFBFBD><E1B5A5>,ί<>б<EFBFBD><D0B1><EFBFBD>,<2C><><EFBFBD><EFBFBD>,<2C><><EFBFBD><EFBFBD>,<2C><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>,<2C><><EFBFBD>˸<EFBFBD>,ж<><D0B6><EFBFBD><EFBFBD>,Ŀ<>ĵ<EFBFBD> from v_op_bscard where ί<>б<EFBFBD><D0B1><EFBFBD>='''+Trim(DBEdit29.Text)+''' or ҵ<><D2B5><EFBFBD><EFBFBD><EFBFBD><EFBFBD>='''+Trim(DBEdit29.Text)+''' or <20><><EFBFBD>ᵥ<EFBFBD><E1B5A5>='''+Trim(DBEdit29.Text)+'''');
frmch_invoice_addone.ADOQuery2.Open;
str:=' and <20><><EFBFBD><EFBFBD><>(<28><>Ʊ<EFBFBD><C6B1><EFBFBD><EFBFBD>+<2B><><EFBFBD>뿪Ʊ) and <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>Ʊ<>1 and <20><><EFBFBD><EFBFBD>=''<27><>'' and <20><><EFBFBD><EFBFBD> in (select <20><><EFBFBD><EFBFBD> from v_op_bscard where ί<>б<EFBFBD><D0B1><EFBFBD>='''+Trim(DBEdit29.Text)+''' or ҵ<><D2B5><EFBFBD><EFBFBD><EFBFBD><EFBFBD>='''+Trim(DBEdit29.Text)+''' or <20><><EFBFBD>ᵥ<EFBFBD><E1B5A5>='''+Trim(DBEdit29.Text)+''')';
frmch_invoice_addone.t_fee_obj.Close;
frmch_invoice_addone.t_fee_obj.SQL.Clear;
frmch_invoice_addone.t_fee_obj.SQL.Add('Select distinct <20>ͻ<EFBFBD><CDBB><EFBFBD><EFBFBD><EFBFBD> from t_ch_fee where 1=1 ') ;
frmch_invoice_addone.t_fee_obj.SQL.Add(str);
if t_ch_invoice.FieldByName('<27>ͻ<EFBFBD><CDBB><EFBFBD><EFBFBD><EFBFBD>').AsString<>'' then
frmch_invoice_addone.t_fee_obj.SQL.Add(' and <20>ͻ<EFBFBD><CDBB><EFBFBD><EFBFBD><EFBFBD>='''+t_ch_invoice.FieldByName('<27>ͻ<EFBFBD><CDBB><EFBFBD><EFBFBD><EFBFBD>').AsString+'''');
frmch_invoice_addone.t_fee_obj.Open;
Close;
SQL.Clear;
SQL.Add('Select * from t_ch_fee where 1=1 ');
if t_ch_invoice.FieldByName('<27>ͻ<EFBFBD><CDBB><EFBFBD><EFBFBD><EFBFBD>').AsString<>'' then
SQL.Add(' and <20>ͻ<EFBFBD><CDBB><EFBFBD><EFBFBD><EFBFBD>='''+t_ch_invoice.FieldByName('<27>ͻ<EFBFBD><CDBB><EFBFBD><EFBFBD><EFBFBD>').AsString+'''');
// else
// SQL.Add(' and <20>ͻ<EFBFBD><CDBB><EFBFBD><EFBFBD><EFBFBD>=:<3A>ͻ<EFBFBD><CDBB><EFBFBD><EFBFBD><EFBFBD> ');
SQL.Add(str);
Open;
// frmch_invoice_addone.memtblDetail.open;
if not IsEmpty then begin
if t_ch_invoice.FieldByName('<27>ұ<EFBFBD>').AsString='USD' then
frmch_invoice_addone.bsSkinRadioGroup1.ItemIndex:=1
else
frmch_invoice_addone.bsSkinRadioGroup1.ItemIndex:=0;
frmch_invoice_addone.ShowModal;
end else begin
MessageDlg('<27><>ί<EFBFBD>б<EFBFBD><D0B1><EFBFBD><EFBFBD>´˿ͻ<CBBF><CDBB><EFBFBD>Ӧ<EFBFBD><D3A6><EFBFBD><EFBFBD>Ʊ<EFBFBD>ķ<EFBFBD><C4B7><EFBFBD>',mtWarning,[mbYes],0);
end;
end;
finally
t_ch_invoice_item.Requery();
FreeAndNil(frmch_invoice_addone);
end;
end;
procedure Tfrm_ch_invoice.t_ch_invoiceAfterScroll(DataSet: TDataSet);
begin
{
if t_ch_invoice['<27>Ƿ<EFBFBD><C7B7>ϳ<EFBFBD>'] then begin
if t_ch_invoice['<27>Ƿ<EFBFBD><C7B7><EFBFBD>ӡ'] then begin
bsSkinButton7.Caption:='ɾ<><C9BE><EFBFBD><EFBFBD>Ʊ';
bsSkinButton12.Caption:='ɾ<><C9BE><EFBFBD><EFBFBD>Ʊ';
end else begin
bsSkinButton7.Caption:='<27>ϳ<EFBFBD><CFB3><EFBFBD>Ʊ';
bsSkinButton12.Caption:='<27>ϳ<EFBFBD><CFB3><EFBFBD>Ʊ';
end;
end;
}
end;
procedure Tfrm_ch_invoice.t_ch_invoice1DataChange(Sender: TObject;
Field: TField);
begin
if t_ch_invoice.State in [dsinsert] then exit;
if t_ch_invoice.IsEmpty then exit;
if t_ch_invoice['<27>Ƿ<EFBFBD><C7B7><EFBFBD>ӡ'] then begin
if t_ch_invoice.fieldbyname('<27>Ƿ<EFBFBD><C7B7>ϳ<EFBFBD>').asboolean then begin
bsSkinButton7.Caption:='<27><><EFBFBD><EFBFBD><EFBFBD>ϳ<EFBFBD>';
bsSkinButton12.Caption:='<27><><EFBFBD><EFBFBD><EFBFBD>ϳ<EFBFBD>';
end else begin
bsSkinButton7.Caption:='<27>ϳ<EFBFBD><CFB3><EFBFBD>Ʊ';
bsSkinButton12.Caption:='<27>ϳ<EFBFBD><CFB3><EFBFBD>Ʊ';
end;
end else begin
bsSkinButton7.Caption:='ɾ<><C9BE><EFBFBD><EFBFBD>Ʊ';
bsSkinButton12.Caption:='ɾ<><C9BE><EFBFBD><EFBFBD>Ʊ';
end;
end;
procedure Tfrm_ch_invoice.ComboBoxObjBsCardDropDown(Sender: TObject);
var
aQuery:TADOQuery;
begin
ComboBoxObjBsCard.Items.Clear;
aQuery:=CreateAdoQuery;
with aQuery do
try
Close;SQL.Clear;
SQL.Add('select distinct <20><>Ʊ̧ͷ from t_ch_invoice');
SQL.Add('order by <20><>Ʊ̧ͷ');
Open;
First;
while not Eof do begin
ComboBoxObjBsCard.Items.Add(FieldByName('<27><>Ʊ̧ͷ').AsString);
Next;
end;
finally
Close;
FreeAndNil(aQuery);
end;
end;
procedure Tfrm_ch_invoice.ComboBoxObjBsCardKeyPress(Sender: TObject;
var Key: Char);
begin
// key_wwDBDateTimePicker(Key,wwDBDateTimePicker1);
end;
procedure Tfrm_ch_invoice.dbedt1KeyPress(Sender: TObject; var Key: Char);
begin
if key=#13 then
DBComboBoxEh1.Text:=dbedt1.text;
DBComboBoxEh1.DropDown;
// ComboBoxObjBsCard.DropDown;
// key_wwDBDateTimePicker(Key,wwDBDateTimePicker1);
end;
procedure Tfrm_ch_invoice.DBEdit30Change(Sender: TObject);
begin
if DBEdit30.Text='' then begin
t_sys_bank.Filtered:=false;
end else begin
t_sys_bank.Filtered:=false;
t_sys_bank.Filter:='<27>ֲ<EFBFBD><D6B2><EFBFBD><EFBFBD><EFBFBD>='''+DBEdit30.text+'''';
t_sys_bank.Filtered:=true;
if t_sys_bank.IsEmpty then
t_sys_bank.Filtered:=false;
end;
end;
procedure Tfrm_ch_invoice.RxDBLookupCombo2Enter(Sender: TObject);
begin
DBEdit30Change(sender);
end;
procedure Tfrm_ch_invoice.bsSkinButton38Click(Sender: TObject);
var
book1:Tbookmark;
begin
book1:=t_ch_invoice.GetBookmark;
t_ch_invoice.Requery;
t_ch_invoice.GotoBookmark(book1);
end;
procedure Tfrm_ch_invoice.bsSkinButton33Click(Sender: TObject);
var
book1:Tbookmark;
begin
book1:=t_ch_invoice_shen.GetBookmark;
t_ch_invoice_shen.Requery;
t_ch_invoice_shen.GotoBookmark(book1);
end;
procedure Tfrm_ch_invoice.dxDBGrid1CustomDraw(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 ANode.Strings[dxDBGrid1Column29.Index]='True' then begin
AFont.Style:=AFont.Style+[fsStrikeOut];
AFont.Color:=clred;
end;
if ANode.Strings[dxDBGrid1Column38.Index]='True' then begin
if frm_data_share.t_code_fee_color.Locate('<27><><EFBFBD><EFBFBD>״̬','<27><><EFBFBD><EFBFBD>ͨ<EFBFBD><CDA8>',[])then
begin
aColor:=StringToColor(frm_data_share.t_code_fee_color.fieldbyname('<27><>ɫ').asstring);
end;
end;
end;
procedure Tfrm_ch_invoice.wwDBLookupCombo6Change(Sender: TObject);
VAR
total_money:real;
currency_chi:string;
begin
//<2F>ұ<EFBFBD><D2B1><EFBFBD><EFBFBD><EFBFBD>
try
if (t_ch_invoice.state=dsinsert) or (t_ch_invoice.state=dsedit) then
begin
if frm_data_share.t_code_currency.Locate('<27>ұ<EFBFBD>',wwDBLookupCombo6.text,[])then
currency_chi:=frm_data_share.t_code_currency.fieldbyname('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').asstring;
total_money:=strtofloat(DBSumLower.text);
if total_money<0 then
begin
total_money:=Abs(total_money);
t_ch_invoice['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>д']:=invoice_max(total_money,currency_chi+'(<28><>)');
end
else
t_ch_invoice['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>д']:=invoice_max(total_money,currency_chi);
end;
if t_sys_bank.Active then
if t_sys_bank.Locate('<27>ұ<EFBFBD>',wwDBLookupCombo6.text,[])then begin
t_ch_invoice['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']:=t_sys_bank.fieldbyname('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').asstring;
t_ch_invoice['<27><><EFBFBD><EFBFBD><EFBFBD>˺<EFBFBD>']:=t_sys_bank.fieldbyname('<27><><EFBFBD><EFBFBD><EFBFBD>˺<EFBFBD>').asstring;
end;
except
;
end;
end;
procedure Tfrm_ch_invoice.DBComboBoxEh1DropDown(Sender: TObject);
var
aQuery:TADOQuery;
begin
DBComboBoxEh1.Items.Clear;
aQuery:=CreateAdoQuery;
with aQuery do
try
Close;SQL.Clear;
SQL.Add('select <20><>Ʊ̧ͷ,<2C><>˰<EFBFBD><CBB0>ʶ<EFBFBD><CAB6><EFBFBD><EFBFBD>,<2C><>ַ<EFBFBD>绰,<2C><><EFBFBD><EFBFBD><EFBFBD>м<EFBFBD><D0BC>ʺ<EFBFBD> from t_crm_client_Invoice');
SQL.Add('Where <20>ͻ<EFBFBD><CDBB><EFBFBD><EFBFBD><EFBFBD>=:<3A>ͻ<EFBFBD><CDBB><EFBFBD><EFBFBD><EFBFBD>');
Parameters.ParamByName('<27>ͻ<EFBFBD><CDBB><EFBFBD><EFBFBD><EFBFBD>').Value:=t_ch_invoice.FieldByName('<27>ͻ<EFBFBD><CDBB><EFBFBD><EFBFBD><EFBFBD>').AsString;
open;
if not IsEmpty then
begin
while not eof do
begin
DBComboBoxEh1.Items.Add(fieldbyname('<27><>Ʊ̧ͷ').asstring);
Next;
end;
end
else
begin
Close;SQL.Clear;
SQL.Add('select distinct <20><>Ʊ̧ͷ from t_ch_invoice');
SQL.Add('where <20><>Ʊ̧ͷ<>''''');
Open;First;
while not eof do
begin
DBComboBoxEh1.Items.Add(fieldbyname('<27><>Ʊ̧ͷ').asstring);
Next;
end;
end;
finally
Close;
FreeAndNil(aQuery);
end;
end;
procedure Tfrm_ch_invoice.dbedt1Change(Sender: TObject);
begin
// DBComboBoxEh1.Text:=dbedt1.text;
end;
procedure Tfrm_ch_invoice.DBComboBoxEh1CloseUp(Sender: TObject;
Accept: Boolean);
begin
DBComboBoxEh1.items.Clear;
end;
procedure Tfrm_ch_invoice.bsSkinPageControl1Change(Sender: TObject);
begin
if not ch_invoice_open then exit;
if bsSkinPageControl1.ActivePage=bsSkinTabSheet3 then
begin
if strtobool(get_parameters_value(1,'false'))then
begin
if not t_ch_invoice_shen.Active then
begin
t_ch_invoice_shen.close;
t_ch_invoice_shen.sql.clear;
t_ch_invoice_shen.sql.add('select * from t_ch_invoice_shen ');
t_ch_invoice_shen.sql.add('where <20><><EFBFBD><EFBFBD>״̬ in ('+''''+'<27><>׼<EFBFBD><D7BC>Ʊ'+''''+','+''''+'<27><>ֹ<EFBFBD>޸<EFBFBD>'+''''+','+''''+'<27><><EFBFBD><EFBFBD><EFBFBD>޸<EFBFBD>'+''''
+','+''''+'<27>ύ<EFBFBD><E1BDBB><EFBFBD><EFBFBD>'+''''+')');
t_ch_invoice_shen.sql.add('and '+open_data('1001','<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>','no','no','no','no'));
t_ch_invoice_shen.sql.add(' order by <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>');
t_ch_invoice_shen.open;
t_ch_invoice_shen_item.Close;
t_ch_invoice_shen_item.open;
end;
end
else
begin
if not t_ch_invoice_shen.Active then
begin
t_ch_invoice_shen.close;
t_ch_invoice_shen.sql.clear;
t_ch_invoice_shen.sql.add('select * from t_ch_invoice_shen ');
t_ch_invoice_shen.sql.add('where <20><><EFBFBD><EFBFBD>״̬ in ('+''''+'<27><>׼<EFBFBD><D7BC>Ʊ'+''''+','+''''+'<27><>ֹ<EFBFBD>޸<EFBFBD>'+''''+','+''''+'<27><><EFBFBD><EFBFBD><EFBFBD>޸<EFBFBD>'+''''
+','+''''+'<27>ύ<EFBFBD><E1BDBB><EFBFBD><EFBFBD>'+''''+')');
t_ch_invoice_shen.sql.add('and '+open_data('1001','<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>','no','no','no','no'));
t_ch_invoice_shen.sql.add(' order by <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>');
t_ch_invoice_shen.Open;
t_ch_invoice_shen_item.Close;
t_ch_invoice_shen_item.open;
end;
end;
end;
if bsSkinPageControl2.ActivePage=bsSkinTabSheet22 then
begin
if StrToBool(get_parameters_value(85,'false')) then
begin
bsSkinTabSheet4.TabVisible:=false;
bsSkinTabSheet5.TabVisible:=false;
bsSkinTabSheet6.TabVisible:=false;
bsSkinTabSheet7.TabVisible:=false;
bsSkinTabSheet14.TabVisible:=true;
v_fee_do_bscard.Close;
v_fee_do_bscard.DataSource:=t_ch_invoice_shen1;
v_fee_do_bscard.Open;
v_fee_do_seae.Close;
v_fee_do_seai.Close;
v_fee_do_aire.Close;
v_fee_do_airi.Close;
end
else
begin
bsSkinTabSheet4.TabVisible:=true;
bsSkinTabSheet5.TabVisible:=true;
bsSkinTabSheet6.TabVisible:=true;
bsSkinTabSheet7.TabVisible:=true;
bsSkinTabSheet14.TabVisible:=false;
v_fee_do_seae.open;
v_fee_do_seai.open;
v_fee_do_aire.open;
v_fee_do_airi.open;
v_fee_do_bscard.Close;
end;
end;
if bsSkinPageControl1.ActivePage=bsSkinTabSheet2 then
begin
if StrToBool(get_parameters_value(85,'false')) then
begin
bsSkinTabSheet8.TabVisible:=false;
bsSkinTabSheet9.TabVisible:=false;
bsSkinTabSheet10.TabVisible:=false;
bsSkinTabSheet12.TabVisible:=false;
bsSkinTabSheet13.TabVisible:=true;
v_fee_do_bscard.Close;
v_fee_do_bscard.DataSource:=t_ch_invoice1;
v_fee_do_bscard.Open;
ADOQuery1.Close;
ADOQuery2.Close;
ADOQuery3.Close;
ADOQuery4.Close;
end
else
begin
bsSkinTabSheet8.TabVisible:=true;
bsSkinTabSheet9.TabVisible:=true;
bsSkinTabSheet10.TabVisible:=true;
bsSkinTabSheet12.TabVisible:=true;
bsSkinTabSheet13.TabVisible:=false;
ADOQuery1.open;
ADOQuery2.open;
ADOQuery3.open;
ADOQuery4.open;
v_fee_do_bscard.Close;
end;
end;
end;
procedure Tfrm_ch_invoice.bsSkinPageControl6Change(Sender: TObject);
begin
if not ch_invoice_open then exit;
if not (bsSkinPageControl6.ActivePage=bstab2) then exit;
if StrToBool(get_parameters_value(85,'false')) then begin
fra_ch_delete_do1.v_fee_do_bscard.close;
fra_ch_delete_do1.v_fee_do_bscard.SQL.clear;
fra_ch_delete_do1.v_fee_do_bscard.sql.add('select * from v_fee_do_bscard '
+'where <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>='''+t_ch_invoice.fieldbyname('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').AsString+''' order by <20><><EFBFBD><EFBFBD>,<2C><><EFBFBD><EFBFBD>,<2C><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>');
// fra_ch_delete_do1.v_fee_do_bscard.DataSource:=t_ch_invoice1;
fra_ch_delete_do1.v_fee_do_bscard.Open;
fra_ch_delete_do1.v_fee_do_bscard_sum.close;
fra_ch_delete_do1.v_fee_do_bscard_sum.SQL.clear;
fra_ch_delete_do1.v_fee_do_bscard_sum.sql.add('select <20><><EFBFBD><EFBFBD>,SUBSTRING(CONVERT(char(15),<2C><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>,111),1,7) AS <20>·<EFBFBD>,<2C><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>,ԭʼ<D4AD>ұ<EFBFBD>,sum(ԭʼ<D4AD><CABC><EFBFBD><EFBFBD>) as ԭʼ<D4AD><CABC><EFBFBD><EFBFBD>,sum(<28><><EFBFBD><EFBFBD>) as <20><><EFBFBD><EFBFBD> from v_fee_do_bscard '
+'where <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>='''+t_ch_invoice.fieldbyname('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').AsString+''' group by <20><><EFBFBD><EFBFBD>,SUBSTRING(CONVERT(char(15),<2C><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>,111),1,7),<2C><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>,ԭʼ<D4AD>ұ<EFBFBD> '
+'order by <20><><EFBFBD><EFBFBD>,<2C><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>,SUBSTRING(CONVERT(char(15),<2C><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>,111),1,7),ԭʼ<D4AD>ұ<EFBFBD>');
// fra_ch_delete_do1.v_fee_do_bscard_sum.DataSource:=t_ch_invoice1;
fra_ch_delete_do1.v_fee_do_bscard_sum.Open;
end else begin
fra_ch_delete_do1.v_fee_do_seae.close;
fra_ch_delete_do1.v_fee_do_seae.SQL.clear;
fra_ch_delete_do1.v_fee_do_seae.sql.add('select * from v_fee_do_seae '
+'where <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>='''+t_ch_invoice.fieldbyname('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').AsString+''' order by <20><><EFBFBD><EFBFBD>,<2C><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>');
// fra_ch_delete_do1.v_fee_do_seae.DataSource:=t_ch_invoice1;
fra_ch_delete_do1.v_fee_do_seae.Open;
fra_ch_delete_do1.v_fee_do_seai.close;
fra_ch_delete_do1.v_fee_do_seai.SQL.clear;
fra_ch_delete_do1.v_fee_do_seai.sql.add('select * from v_fee_do_seai '
+'where <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>='''+t_ch_invoice.fieldbyname('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').AsString+''' order by <20><><EFBFBD><EFBFBD>,<2C><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>');
// fra_ch_delete_do1.v_fee_do_seai.DataSource:=t_ch_invoice1;
fra_ch_delete_do1.v_fee_do_seai.Open;
fra_ch_delete_do1.v_fee_do_aire.close;
fra_ch_delete_do1.v_fee_do_aire.SQL.clear;
fra_ch_delete_do1.v_fee_do_aire.sql.add('select * from v_fee_do_aire '
+'where <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>='''+t_ch_invoice.fieldbyname('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').AsString+''' order by <20><><EFBFBD><EFBFBD>,<2C><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>');
// fra_ch_delete_do1.v_fee_do_aire.DataSource:=t_ch_invoice1;
fra_ch_delete_do1.v_fee_do_aire.Open;
fra_ch_delete_do1.v_fee_do_airi.close;
fra_ch_delete_do1.v_fee_do_airi.SQL.clear;
fra_ch_delete_do1.v_fee_do_airi.sql.add('select * from v_fee_do_airi '
+'where <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>='''+t_ch_invoice.fieldbyname('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').AsString+''' order by <20><><EFBFBD><EFBFBD>,<2C><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>');
// fra_ch_delete_do1.v_fee_do_airi.DataSource:=t_ch_invoice1;
fra_ch_delete_do1.v_fee_do_airi.Open;
fra_ch_delete_do1.v_fee_do_seae_sum.close;
fra_ch_delete_do1.v_fee_do_seae_sum.SQL.clear;
fra_ch_delete_do1.v_fee_do_seae_sum.sql.add('select SUBSTRING(CONVERT(char(15),<2C><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>,111),1,7) AS <20>·<EFBFBD>,<2C><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>,ԭʼ<D4AD>ұ<EFBFBD>,sum(ԭʼ<D4AD><CABC><EFBFBD><EFBFBD>) as ԭʼ<D4AD><CABC><EFBFBD><EFBFBD>,sum(<28><><EFBFBD><EFBFBD>) as <20><><EFBFBD><EFBFBD> from v_fee_do_seae '
+'where <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>='''+t_ch_invoice.fieldbyname('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').AsString+''' group by SUBSTRING(CONVERT(char(15),<2C><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>,111),1,7),<2C><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>,ԭʼ<D4AD>ұ<EFBFBD> '
+'order by <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>,SUBSTRING(CONVERT(char(15),<2C><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>,111),1,7),ԭʼ<D4AD>ұ<EFBFBD>');
// fra_ch_delete_do1.v_fee_do_seae_sum.DataSource:=t_ch_invoice1;
fra_ch_delete_do1.v_fee_do_seae_sum.Open;
fra_ch_delete_do1.v_fee_do_seai_sum.close;
fra_ch_delete_do1.v_fee_do_seai_sum.SQL.clear;
fra_ch_delete_do1.v_fee_do_seai_sum.sql.add('select SUBSTRING(CONVERT(char(15),<2C><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>,111),1,7) AS <20>·<EFBFBD>,<2C><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>,ԭʼ<D4AD>ұ<EFBFBD>,sum(ԭʼ<D4AD><CABC><EFBFBD><EFBFBD>) as ԭʼ<D4AD><CABC><EFBFBD><EFBFBD>,sum(<28><><EFBFBD><EFBFBD>) as <20><><EFBFBD><EFBFBD> from v_fee_do_seai '
+'where <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>='''+t_ch_invoice.fieldbyname('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').AsString+''' group by SUBSTRING(CONVERT(char(15),<2C><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>,111),1,7),<2C><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>,ԭʼ<D4AD>ұ<EFBFBD> '
+'order by <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>,SUBSTRING(CONVERT(char(15),<2C><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>,111),1,7),ԭʼ<D4AD>ұ<EFBFBD>');
// fra_ch_delete_do1.v_fee_do_seai_sum.DataSource:=t_ch_invoice1;
fra_ch_delete_do1.v_fee_do_seai_sum.Open;
fra_ch_delete_do1.v_fee_do_aire_sum.close;
fra_ch_delete_do1.v_fee_do_aire_sum.SQL.clear;
fra_ch_delete_do1.v_fee_do_aire_sum.sql.add('select SUBSTRING(CONVERT(char(15),<2C><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>,111),1,7) AS <20>·<EFBFBD>,<2C><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>,ԭʼ<D4AD>ұ<EFBFBD>,sum(ԭʼ<D4AD><CABC><EFBFBD><EFBFBD>) as ԭʼ<D4AD><CABC><EFBFBD><EFBFBD>,sum(<28><><EFBFBD><EFBFBD>) as <20><><EFBFBD><EFBFBD> from v_fee_do_aire '
+'where <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>='''+t_ch_invoice.fieldbyname('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').AsString+''' group by SUBSTRING(CONVERT(char(15),<2C><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>,111),1,7),<2C><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>,ԭʼ<D4AD>ұ<EFBFBD> '
+'order by <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>,SUBSTRING(CONVERT(char(15),<2C><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>,111),1,7),ԭʼ<D4AD>ұ<EFBFBD>');
// fra_ch_delete_do1.v_fee_do_aire_sum.DataSource:=t_ch_invoice1;
fra_ch_delete_do1.v_fee_do_aire_sum.Open;
fra_ch_delete_do1.v_fee_do_airi_sum.close;
fra_ch_delete_do1.v_fee_do_airi_sum.SQL.clear;
fra_ch_delete_do1.v_fee_do_airi_sum.sql.add('select SUBSTRING(CONVERT(char(15),<2C><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>,111),1,7) AS <20>·<EFBFBD>,<2C><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>,ԭʼ<D4AD>ұ<EFBFBD>,sum(ԭʼ<D4AD><CABC><EFBFBD><EFBFBD>) as ԭʼ<D4AD><CABC><EFBFBD><EFBFBD>,sum(<28><><EFBFBD><EFBFBD>) as <20><><EFBFBD><EFBFBD> from v_fee_do_airi '
+'where <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>='''+t_ch_invoice.fieldbyname('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').AsString+''' group by SUBSTRING(CONVERT(char(15),<2C><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>,111),1,7),<2C><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>,ԭʼ<D4AD>ұ<EFBFBD> '
+'order by <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>,SUBSTRING(CONVERT(char(15),<2C><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>,111),1,7),ԭʼ<D4AD>ұ<EFBFBD>');
// fra_ch_delete_do1.v_fee_do_airi_sum.DataSource:=t_ch_invoice1;
fra_ch_delete_do1.v_fee_do_airi_sum.Open;
end;
end;
procedure Tfrm_ch_invoice.dxDBGrid3Column25CustomDraw(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[dxDBGrid3Column25.Index]);
AFont.Color:=clblack;
end;
procedure Tfrm_ch_invoice.dxDBGrid4Column25CustomDraw(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[dxDBGrid4Column25.Index]);
AFont.Color:=clblack;
end;
procedure Tfrm_ch_invoice.dxDBGrid5Column22CustomDraw(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[dxDBGrid5Column22.Index]);
AFont.Color:=clblack;
end;
procedure Tfrm_ch_invoice.dxDBGrid6Column22CustomDraw(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[dxDBGrid6Column22.Index]);
AFont.Color:=clblack;
end;
procedure Tfrm_ch_invoice.dxDBGrid3Column24CustomDraw(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[dxDBGrid3Column24.Index]);
AFont.Color:=clblack;
end;
procedure Tfrm_ch_invoice.dxDBGrid4Column24CustomDraw(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[dxDBGrid4Column24.Index]);
AFont.Color:=clblack;
end;
procedure Tfrm_ch_invoice.dxDBGrid7Column24CustomDraw(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[dxDBGrid7Column24.Index]);
AFont.Color:=clblack;
end;
procedure Tfrm_ch_invoice.dxDBGrid8Column24CustomDraw(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[dxDBGrid8Column24.Index]);
AFont.Color:=clblack;
end;
procedure Tfrm_ch_invoice.dxDBGrid7Column25CustomDraw(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[dxDBGrid7Column25.Index]);
AFont.Color:=clblack;
end;
procedure Tfrm_ch_invoice.dxDBGrid8Column25CustomDraw(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[dxDBGrid8Column25.Index]);
AFont.Color:=clblack;
end;
procedure Tfrm_ch_invoice.bsSkinButton35Click(Sender: TObject); //<2F><><EFBFBD>Ƶ<EFBFBD>˰<EFBFBD><CBB0>
begin
if not if_open('602') then
begin
showmessage('<27>Բ<EFBFBD><D4B2><EFBFBD><EFBFBD><EFBFBD>û<EFBFBD>д<EFBFBD>ģ<EFBFBD><C4A3><EFBFBD>IJ<EFBFBD><C4B2><EFBFBD>Ȩ<EFBFBD><C8A8>,<2C><><EFBFBD><EFBFBD>ϵϵͳ<CFB5><CDB3><EFBFBD><EFBFBD>Ա<EFBFBD><D4B1>ͨȨ<CDA8>ޣ<EFBFBD>');
exit;
end;
try
frm_code_UsdExRate_Invoice:=tfrm_code_UsdExRate_Invoice.Create (self);
frm_code_UsdExRate_Invoice.ShowModal;
finally
frm_code_UsdExRate_Invoice.Free;
end;
end;
function EnumChildWindowsProc(hwnd,lparam:Integer):Boolean;stdcall; //<2F><><EFBFBD><EFBFBD>˰<EFBFBD><CBB0><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
var
WndClassName: array[0..254] of Char;
WndCaption: array[0..254] of Char;
WndLong: integer;
pid,phd,maininv:thandle;
p:pointer;
st:TSystemTime;
l:dword;
nm:NMHDR;
tg:tagNMDATETIMECHANGE;
Mwd,Cwd: LongInt;
StrNum:string;
begin
StrNum:='1';
GetClassName(hwnd,wndClassName,254);
GetWindowText(hwnd,WndCaption,254);
if get_parameters_value(155,'0')='0' then
begin
if invcontrid=9 then
SendMessage(hwnd,WM_SETTEXT,255,Integer(PChar(frm_ch_invoice.t_ch_invoice.fieldbyname('<27><><EFBFBD><EFBFBD><EFBFBD>˺<EFBFBD>').asstring)));
if invcontrid=11 then
SendMessage(hwnd,WM_SETTEXT,255,Integer(PChar(frm_ch_invoice.t_ch_invoice.fieldbyname('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').asstring)));
if invcontrid=13 then
frm_ch_invoice.bibie:=hwnd;
if invcontrid=21 then
SendMessage(hwnd,WM_SETTEXT,255,Integer(PChar(frm_ch_invoice.t_ch_invoice.fieldbyname('<27>ᵥ<EFBFBD><E1B5A5>').asstring)));
if invcontrid=23 then begin
SendMessage(hwnd,WM_SETTEXT,255,Integer(PChar(frm_ch_invoice.t_ch_invoice.fieldbyname('Ŀ<>ĸ<EFBFBD>').asstring)));
end;
if invcontrid=25 then begin
SendMessage(hwnd,WM_SETTEXT,255,Integer(PChar(frm_ch_invoice.t_ch_invoice.fieldbyname('ж<><D0B6><EFBFBD><EFBFBD>').asstring)));
end;
if invcontrid=27 then begin
SendMessage(hwnd,WM_SETTEXT,255,Integer(PChar(frm_ch_invoice.t_ch_invoice.fieldbyname('<27><><EFBFBD>˸<EFBFBD>').asstring)))
end;
if invcontrid=29 then begin
SendMessage(hwnd,WM_SETTEXT,255,Integer(PChar(frm_ch_invoice.t_ch_invoice.fieldbyname('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').asstring)))
end;
if invcontrid=31 then begin
SendMessage(hwnd,WM_SETTEXT,255,Integer(PChar(frm_ch_invoice.t_ch_invoice.fieldbyname('<27><>Ʊ̧ͷ').asstring)))
end;
if (invcontrid=35) then begin
frm_ch_invoice.vessldate:=hwnd;
end;
if (invcontrid=77) and (frm_ch_invoice.fprice1<>'') then begin
SendMessage(hwnd,WM_SETTEXT,255,Integer(PChar(frm_ch_invoice.fprice1)));
end;
if (invcontrid=78) and (frm_ch_invoice.fprice1<>'') then begin
frm_ch_invoice.feinum:=hwnd;
end;
if (invcontrid=80) and (frm_ch_invoice.fname1<>'') then begin
SendMessage(hwnd,WM_SETTEXT,255,Integer(PChar(frm_ch_invoice.fname1)));
end;
if (invcontrid=73) and (frm_ch_invoice.fprice2<>'') then begin
SendMessage(hwnd,WM_SETTEXT,255,Integer(PChar(frm_ch_invoice.fprice2)));
end;
if (invcontrid=74) and (frm_ch_invoice.fprice2<>'') then begin
SendMessage(hwnd,WM_Char,Wparam('1'),1);
end;
if (invcontrid=82) and (frm_ch_invoice.fname2<>'') then begin
SendMessage(hwnd,WM_SETTEXT,255,Integer(PChar(frm_ch_invoice.fname2)));
end;
if (invcontrid=70) and (frm_ch_invoice.fprice3<>'') then begin
SendMessage(hwnd,WM_SETTEXT,255,Integer(PChar(frm_ch_invoice.fprice3)));
end;
if (invcontrid=71) and (frm_ch_invoice.fprice3<>'') then begin
SendMessage(hwnd,WM_Char,Wparam('1'),1);
end;
if (invcontrid=84) and (frm_ch_invoice.fname3<>'') then begin
SendMessage(hwnd,WM_SETTEXT,255,Integer(PChar(frm_ch_invoice.fname3)));
end;
if (invcontrid=67) and (frm_ch_invoice.fprice4<>'') then begin
SendMessage(hwnd,WM_SETTEXT,255,Integer(PChar(frm_ch_invoice.fprice4)));
end;
if (invcontrid=68) and (frm_ch_invoice.fprice4<>'') then begin
SendMessage(hwnd,WM_Char,Wparam('1'),1);
end;
if (invcontrid=86) and (frm_ch_invoice.fname4<>'') then begin
SendMessage(hwnd,WM_SETTEXT,255,Integer(PChar(frm_ch_invoice.fname4)));
end;
if (invcontrid=64) and (frm_ch_invoice.fprice5<>'') then begin
SendMessage(hwnd,WM_SETTEXT,255,Integer(PChar(frm_ch_invoice.fprice5)));
end;
if (invcontrid=65) and (frm_ch_invoice.fprice5<>'') then begin
SendMessage(hwnd,WM_Char,Wparam('1'),1);
end;
if (invcontrid=88) and (frm_ch_invoice.fname5<>'') then begin
SendMessage(hwnd,WM_SETTEXT,255,Integer(PChar(frm_ch_invoice.fname5)));
end;
if (invcontrid=48) and (frm_ch_invoice.fprice6<>'') then begin
SendMessage(hwnd,WM_SETTEXT,255,Integer(PChar(frm_ch_invoice.fprice6)));
end;
if (invcontrid=49) and (frm_ch_invoice.fprice6<>'') then begin
SendMessage(hwnd,WM_Char,Wparam('1'),1);
end;
if (invcontrid=90) and (frm_ch_invoice.fname6<>'') then begin
SendMessage(hwnd,WM_SETTEXT,255,Integer(PChar(frm_ch_invoice.fname6)));
end;
if (invcontrid=45) and (frm_ch_invoice.fprice7<>'') then begin
SendMessage(hwnd,WM_SETTEXT,255,Integer(PChar(frm_ch_invoice.fprice7)));
end;
if (invcontrid=46) and (frm_ch_invoice.fprice7<>'') then begin
SendMessage(hwnd,WM_Char,Wparam('1'),1);
end;
if (invcontrid=92) and (frm_ch_invoice.fname7<>'') then begin
SendMessage(hwnd,WM_SETTEXT,255,Integer(PChar(frm_ch_invoice.fname7)));
end;
if invcontrid=75 then begin
SendMessage(hwnd,WM_SETTEXT,255,Integer(PChar(frm_ch_invoice.t_ch_invoice.fieldbyname('<27><>ע').asstring)))
end;
end else if get_parameters_value(155,'0')='1' then begin
if invcontrid=24 then begin
SendMessage(hwnd,WM_SETTEXT,255,Integer(PChar(frm_ch_invoice.t_ch_invoice.fieldbyname('<27><><EFBFBD><EFBFBD><EFBFBD>˺<EFBFBD>').asstring)))
end;
if invcontrid=40 then begin
SendMessage(hwnd,WM_SETTEXT,255,Integer(PChar(frm_ch_invoice.t_ch_invoice.fieldbyname('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').asstring)))
end;
if invcontrid=12 then begin
frm_ch_invoice.bibie:=hwnd;
end;
if invcontrid=16 then begin
SendMessage(hwnd,WM_SETTEXT,255,Integer(PChar(frm_ch_invoice.t_ch_invoice.fieldbyname('Ŀ<>ĸ<EFBFBD>').asstring)))
end;
if invcontrid=18 then begin
SendMessage(hwnd,WM_SETTEXT,255,Integer(PChar(frm_ch_invoice.t_ch_invoice.fieldbyname('ж<><D0B6><EFBFBD><EFBFBD>').asstring)))
end;
if invcontrid=20 then begin
SendMessage(hwnd,WM_SETTEXT,255,Integer(PChar(frm_ch_invoice.t_ch_invoice.fieldbyname('<27><><EFBFBD>˸<EFBFBD>').asstring)))
end;
if invcontrid=22 then begin
SendMessage(hwnd,WM_SETTEXT,255,Integer(PChar(frm_ch_invoice.t_ch_invoice.fieldbyname('<27><><EFBFBD>˸<EFBFBD>').asstring)))
end;
if invcontrid=42 then begin
SendMessage(hwnd,WM_SETTEXT,255,Integer(PChar(frm_ch_invoice.t_ch_invoice.fieldbyname('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').asstring)))
end;
if invcontrid=26 then begin
SendMessage(hwnd,WM_SETTEXT,255,Integer(PChar(frm_ch_invoice.t_ch_invoice.fieldbyname('<27><>Ʊ̧ͷ').asstring)))
end;
if (invcontrid=33) then begin
frm_ch_invoice.vessldate:=hwnd;
end;
if (invcontrid=103) and (frm_ch_invoice.fprice1<>'') then begin
SendMessage(hwnd,WM_SETTEXT,255,Integer(PChar(frm_ch_invoice.fprice1)));
end;
if (invcontrid=104) and (frm_ch_invoice.fprice1<>'') then begin
SendMessage(hwnd,WM_SETTEXT,255,Integer(PChar(inttostr(1))))
end;
if (invcontrid=105) and (frm_ch_invoice.fprice1<>'') then begin
frm_ch_invoice.feinum:=hwnd;
// SendMessage(hwnd,WM_SETTEXT,255,Integer(PChar(inttostr(1))))
end;
if (invcontrid=108) and (frm_ch_invoice.fname1<>'') then begin
SendMessage(hwnd,WM_SETTEXT,255,Integer(PChar(frm_ch_invoice.fname1)));
end;
if (invcontrid=98) and (frm_ch_invoice.fprice2<>'') then begin
SendMessage(hwnd,WM_SETTEXT,255,Integer(PChar(frm_ch_invoice.fprice2)));
end;
if (invcontrid=99) and (frm_ch_invoice.fprice2<>'') then begin
SendMessage(hwnd,WM_SETTEXT,255,Integer(PChar(inttostr(1))))
end;
if (invcontrid=100) and (frm_ch_invoice.fprice2<>'') then begin
SendMessage(hwnd,WM_SETTEXT,255,Integer(PChar(inttostr(1))))
end;
if (invcontrid=55) and (frm_ch_invoice.fname2<>'') then begin
SendMessage(hwnd,WM_SETTEXT,255,Integer(PChar(frm_ch_invoice.fname2)));
end;
if (invcontrid=94) and (frm_ch_invoice.fprice3<>'') then begin
SendMessage(hwnd,WM_SETTEXT,255,Integer(PChar(frm_ch_invoice.fprice3)));
end;
if (invcontrid=95) and (frm_ch_invoice.fprice3<>'') then begin
SendMessage(hwnd,WM_SETTEXT,255,Integer(PChar(inttostr(1))))
end;
if (invcontrid=96) and (frm_ch_invoice.fprice3<>'') then begin
SendMessage(hwnd,WM_SETTEXT,255,Integer(PChar(inttostr(1))))
end;
if (invcontrid=53) and (frm_ch_invoice.fname3<>'') then begin
SendMessage(hwnd,WM_SETTEXT,255,Integer(PChar(frm_ch_invoice.fname3)));
end;
if (invcontrid=90) and (frm_ch_invoice.fprice4<>'') then begin
SendMessage(hwnd,WM_SETTEXT,255,Integer(PChar(frm_ch_invoice.fprice4)));
end;
if (invcontrid=91) and (frm_ch_invoice.fprice4<>'') then begin
SendMessage(hwnd,WM_SETTEXT,255,Integer(PChar(inttostr(1))))
end;
if (invcontrid=92) and (frm_ch_invoice.fprice4<>'') then begin
SendMessage(hwnd,WM_SETTEXT,255,Integer(PChar(inttostr(1))))
end;
if (invcontrid=51) and (frm_ch_invoice.fname4<>'') then begin
SendMessage(hwnd,WM_SETTEXT,255,Integer(PChar(frm_ch_invoice.fname4)));
end;
if (invcontrid=86) and (frm_ch_invoice.fprice5<>'') then begin
SendMessage(hwnd,WM_SETTEXT,255,Integer(PChar(frm_ch_invoice.fprice5)));
end;
if (invcontrid=87) and (frm_ch_invoice.fprice5<>'') then begin
SendMessage(hwnd,WM_SETTEXT,255,Integer(PChar(inttostr(1))))
end;
if (invcontrid=88) and (frm_ch_invoice.fprice5<>'') then begin
SendMessage(hwnd,WM_SETTEXT,255,Integer(PChar(inttostr(1))))
end;
if (invcontrid=49) and (frm_ch_invoice.fname5<>'') then begin
SendMessage(hwnd,WM_SETTEXT,255,Integer(PChar(frm_ch_invoice.fname5)));
end;
if (invcontrid=68) and (frm_ch_invoice.fprice6<>'') then begin
SendMessage(hwnd,WM_SETTEXT,255,Integer(PChar(frm_ch_invoice.fprice6)));
end;
if (invcontrid=69) and (frm_ch_invoice.fprice6<>'') then begin
SendMessage(hwnd,WM_SETTEXT,255,Integer(PChar(inttostr(1))))
end;
if (invcontrid=70) and (frm_ch_invoice.fprice6<>'') then begin
SendMessage(hwnd,WM_SETTEXT,255,Integer(PChar(inttostr(1))))
end;
if (invcontrid=47) and (frm_ch_invoice.fname6<>'') then begin
SendMessage(hwnd,WM_SETTEXT,255,Integer(PChar(frm_ch_invoice.fname6)));
end;
if (invcontrid=64) and (frm_ch_invoice.fprice7<>'') then begin
SendMessage(hwnd,WM_SETTEXT,255,Integer(PChar(frm_ch_invoice.fprice7)));
end;
if (invcontrid=65) and (frm_ch_invoice.fprice7<>'') then begin
SendMessage(hwnd,WM_SETTEXT,255,Integer(PChar(inttostr(1))))
end;
if (invcontrid=66) and (frm_ch_invoice.fprice7<>'') then begin
SendMessage(hwnd,WM_SETTEXT,255,Integer(PChar(inttostr(1))))
end;
if (invcontrid=45) and (frm_ch_invoice.fname7<>'') then begin
SendMessage(hwnd,WM_SETTEXT,255,Integer(PChar(frm_ch_invoice.fname7)));
end;
if invcontrid=102 then begin
SendMessage(hwnd,WM_SETTEXT,255,Integer(PChar(frm_ch_invoice.t_ch_invoice.fieldbyname('<27><>ע').asstring)));
end;
if invcontrid=106 then begin
SendMessage(hwnd,WM_SETTEXT,255,Integer(PChar(frm_ch_invoice.t_ch_invoice.fieldbyname('<27>ᵥ<EFBFBD><E1B5A5>').asstring)));
end;
end
else if get_parameters_value(155,'0')='2' then
begin
if invcontrid=9 then begin
SendMessage(hwnd,WM_SETTEXT,255,Integer(PChar(frm_ch_invoice.t_ch_invoice.fieldbyname('<27><><EFBFBD><EFBFBD><EFBFBD>˺<EFBFBD>').asstring)))
end;
if invcontrid=11 then begin
SendMessage(hwnd,WM_SETTEXT,255,Integer(PChar(frm_ch_invoice.t_ch_invoice.fieldbyname('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').asstring)))
end;
if invcontrid=13 then begin // ԭ<><D4AD>Ϊ13
frm_ch_invoice.bibie:=hwnd;
end;
if invcontrid=24 then begin //ԭ<><D4AD>Ϊ21
SendMessage(hwnd,WM_SETTEXT,255,Integer(PChar(frm_ch_invoice.t_ch_invoice.fieldbyname('<27>ᵥ<EFBFBD><E1B5A5>').asstring)))
end;
if invcontrid=26 then begin //ԭ<><D4AD>Ϊ23
SendMessage(hwnd,WM_SETTEXT,255,Integer(PChar(frm_ch_invoice.t_ch_invoice.fieldbyname('Ŀ<>ĸ<EFBFBD>').asstring)))
end;
if invcontrid=28 then begin //ԭ<><D4AD>Ϊ25
SendMessage(hwnd,WM_SETTEXT,255,Integer(PChar(frm_ch_invoice.t_ch_invoice.fieldbyname('ж<><D0B6><EFBFBD><EFBFBD>').asstring)))
end;
if invcontrid=30 then begin //ԭ<><D4AD>Ϊ27
SendMessage(hwnd,WM_SETTEXT,255,Integer(PChar(frm_ch_invoice.t_ch_invoice.fieldbyname('<27><><EFBFBD>˸<EFBFBD>').asstring)))
end;
if invcontrid=32 then begin //ԭ<><D4AD>Ϊ29
SendMessage(hwnd,WM_SETTEXT,255,Integer(PChar(frm_ch_invoice.t_ch_invoice.fieldbyname('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').asstring)))
end;
if invcontrid=23 then begin //ԭ<><D4AD>Ϊ31
SendMessage(hwnd,WM_SETTEXT,255,Integer(PChar(frm_ch_invoice.t_ch_invoice.fieldbyname('<27><><EFBFBD>λ').asstring)))
end;
if (invcontrid=78) and (frm_ch_invoice.fprice1<>'') then begin //ԭ<><D4AD>Ϊ 77
SendMessage(hwnd,WM_SETTEXT,255,Integer(PChar(frm_ch_invoice.fprice1)));
end;
if (invcontrid=79) and (frm_ch_invoice.fprice1<>'') then begin //ԭ<><D4AD>Ϊ 78
// SendMessage(hwnd,WM_SETTEXT,255,Integer(PChar(StrNum)));
frm_ch_invoice.feinum:=hwnd;
end;
if (invcontrid=81) and (frm_ch_invoice.fname1<>'') then begin //ԭ<><D4AD>Ϊ 80
SendMessage(hwnd,WM_SETTEXT,255,Integer(PChar(frm_ch_invoice.fname1)));
end;
if (invcontrid=74) and (frm_ch_invoice.fprice2<>'') then begin //ԭ<><D4AD>Ϊ 73
SendMessage(hwnd,WM_SETTEXT,255,Integer(PChar(frm_ch_invoice.fprice2)));
end;
if (invcontrid=75) and (frm_ch_invoice.fprice2<>'') then begin //ԭ<><D4AD>Ϊ 74
// SendMessage(hwnd,WM_Char,Wparam('1'),1);
SendMessage(hwnd,WM_SETTEXT,255,Integer(PChar(StrNum)));
end;
if (invcontrid=83) and (frm_ch_invoice.fname2<>'') then begin //ԭ<><D4AD>Ϊ 82
SendMessage(hwnd,WM_SETTEXT,255,Integer(PChar(frm_ch_invoice.fname2)));
end;
if (invcontrid=71) and (frm_ch_invoice.fprice3<>'') then begin //ԭ<><D4AD>Ϊ 70
SendMessage(hwnd,WM_SETTEXT,255,Integer(PChar(frm_ch_invoice.fprice3)));
end;
if (invcontrid=72) and (frm_ch_invoice.fprice3<>'') then begin //ԭ<><D4AD>Ϊ 71
// SendMessage(hwnd,WM_Char,Wparam('1'),1);
SendMessage(hwnd,WM_SETTEXT,255,Integer(PChar(StrNum)));
end;
if (invcontrid=85) and (frm_ch_invoice.fname3<>'') then begin //ԭ<><D4AD>Ϊ 84
SendMessage(hwnd,WM_SETTEXT,255,Integer(PChar(frm_ch_invoice.fname3)));
end;
if (invcontrid=68) and (frm_ch_invoice.fprice4<>'') then begin //ԭ<><D4AD>Ϊ 67
SendMessage(hwnd,WM_SETTEXT,255,Integer(PChar(frm_ch_invoice.fprice4)));
end;
if (invcontrid=69) and (frm_ch_invoice.fprice4<>'') then begin //ԭ<><D4AD>Ϊ 68
// SendMessage(hwnd,WM_Char,Wparam('1'),1);
SendMessage(hwnd,WM_SETTEXT,255,Integer(PChar(StrNum)));
end;
if (invcontrid=87) and (frm_ch_invoice.fname4<>'') then begin //ԭ<><D4AD>Ϊ 86
SendMessage(hwnd,WM_SETTEXT,255,Integer(PChar(frm_ch_invoice.fname4)));
end;
if (invcontrid=65) and (frm_ch_invoice.fprice5<>'') then begin //ԭ<><D4AD>Ϊ 64
SendMessage(hwnd,WM_SETTEXT,255,Integer(PChar(frm_ch_invoice.fprice5)));
end;
if (invcontrid=66) and (frm_ch_invoice.fprice5<>'') then begin //ԭ<><D4AD>Ϊ 65
// SendMessage(hwnd,WM_Char,Wparam('1'),1);
SendMessage(hwnd,WM_SETTEXT,255,Integer(PChar(StrNum)));
end;
if (invcontrid=89) and (frm_ch_invoice.fname5<>'') then begin //ԭ<><D4AD>Ϊ 88
SendMessage(hwnd,WM_SETTEXT,255,Integer(PChar(frm_ch_invoice.fname5)));
end;
if (invcontrid=49) and (frm_ch_invoice.fprice6<>'') then begin //ԭ<><D4AD>Ϊ 48
SendMessage(hwnd,WM_SETTEXT,255,Integer(PChar(frm_ch_invoice.fprice6)));
end;
if (invcontrid=50) and (frm_ch_invoice.fprice6<>'') then begin //ԭ<><D4AD>Ϊ 49
// SendMessage(hwnd,WM_Char,Wparam('1'),1);
SendMessage(hwnd,WM_SETTEXT,255,Integer(PChar(StrNum)));
end;
if (invcontrid=91) and (frm_ch_invoice.fname6<>'') then begin //ԭ<><D4AD>Ϊ 90
SendMessage(hwnd,WM_SETTEXT,255,Integer(PChar(frm_ch_invoice.fname6)));
end;
if (invcontrid=46) and (frm_ch_invoice.fprice7<>'') then begin //ԭ<><D4AD>Ϊ 45
SendMessage(hwnd,WM_SETTEXT,255,Integer(PChar(frm_ch_invoice.fprice7)));
end;
if (invcontrid=47) and (frm_ch_invoice.fprice7<>'') then begin //ԭ<><D4AD>Ϊ 46
// SendMessage(hwnd,WM_Char,Wparam('1'),1);
SendMessage(hwnd,WM_SETTEXT,255,Integer(PChar(StrNum)));
end;
if (invcontrid=92) and (frm_ch_invoice.fname7<>'') then begin //ԭ<><D4AD>Ϊ 92
SendMessage(hwnd,WM_SETTEXT,255,Integer(PChar(frm_ch_invoice.fname7)));
end;
if invcontrid=76 then begin //ԭ<><D4AD>Ϊ 75
SendMessage(hwnd,WM_SETTEXT,255,Integer(PChar(frm_ch_invoice.t_ch_invoice.fieldbyname('<27><>ע').asstring)))
end;
end;
invcontrid:=invcontrid+1;
result:=true;
end;
function Tfrm_ch_invoice.getfeestr: boolean; //<2F><>ʼ<EFBFBD><CABC>˰<EFBFBD><CBB0><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
var
i,j:integer;
str_num,str:string;
begin
fname1:='';
fname2:='';
fname3:='';
fname4:='';
fname5:='';
fname6:='';
fname7:='';
fprice1:='';
fprice2:='';
fprice3:='';
fprice4:='';
fprice5:='';
fprice6:='';
fprice7:='';
fnum:='1';
try
for i:=0 to DM_CostType.Lines.Count-1 do
begin
str:=trim(DM_CostType.Lines[i]);
if str<>'' then begin
if i=0 then begin
fname1:=str;
end;
if i=1 then begin
fname2:=str;
end;
if i=2 then begin
fname3:=str;
end;
if i=3 then begin
fname4:=str;
end;
if i=4 then begin
fname5:=str;
end;
if i=5 then begin
fname6:=str;
end;
if i=6 then begin
fname7:=str;
end;
end;
end;
for i:=0 to DM_Money.Lines.Count-1 do
begin
str:=trim(DM_Money.Lines[i]);
str_num:='';
for j:=1 to length(str) do
begin
if (str[j]='0') or (str[j]='1')
OR (str[j]='2') or (str[j]='3')
OR (str[j]='4') or (str[j]='5')
OR (str[j]='6') or (str[j]='7')
OR (str[j]='8') or (str[j]='9')
or (str[j]='.')then
begin
str_num:=str_num+str[j];
end
else
begin
end;
end;
if str<>'' then begin
if i=0 then begin
fprice1:=str_num;
end;
if i=1 then begin
fprice2:=str_num;
end;
if i=2 then begin
fprice3:=str_num;
end;
if i=3 then begin
fprice4:=str_num;
end;
if i=4 then begin
fprice5:=str_num;
end;
if i=5 then begin
fprice6:=str_num;
end;
if i=6 then begin
fprice7:=str_num;
end;
end;
end;
finally
end;
end;
procedure Tfrm_ch_invoice.bsSkinPanel2Resize(Sender: TObject);
var
i:integer;
begin
if not if_reg(417) then begin
i:=round(bsSkinPanel2.Width/12);
bsSkinButton9.Width:=i;
bsSkinButton2.Width:=i;
bsSkinButton10.Width:=i;
bsSkinButton6.Width:=i;
bsSkinButton7.Width:=i;
bsSkinButton8.Width:=i;
bsSkinButton1.Width:=i;
bsSkinButton3.Width:=i;
bsSkinButton38.Width:=i;
bsSkinButton41.Width:=i;
bsSkinButton42.Width:=i;
end else begin
i:=round(bsSkinPanel2.Width/13);
bsSkinButton9.Width:=i;
bsSkinButton2.Width:=i;
bsSkinButton10.Width:=i;
bsSkinButton6.Width:=i;
bsSkinButton7.Width:=i;
bsSkinButton8.Width:=i;
bsSkinButton1.Width:=i;
bsSkinButton3.Width:=i;
bsSkinButton38.Width:=i;
bsSkinButton34.Width:=i;
bsSkinButton41.Width:=i;
bsSkinButton42.Width:=i;
end;
end;
procedure Tfrm_ch_invoice.bsSkinPageControl2Change(Sender: TObject);
begin
if bsSkinPageControl2.TabIndex=1 then
if StrToBool(get_parameters_value(85,'false')) then
begin
bsSkinTabSheet4.TabVisible:=false;
bsSkinTabSheet5.TabVisible:=false;
bsSkinTabSheet6.TabVisible:=false;
bsSkinTabSheet7.TabVisible:=false;
bsSkinTabSheet14.TabVisible:=true;
v_fee_do_bscard.Close;
v_fee_do_bscard.DataSource:=t_ch_invoice_shen1;
v_fee_do_bscard.Open;
v_fee_do_seae.Close;
v_fee_do_seai.Close;
v_fee_do_aire.Close;
v_fee_do_airi.Close;
end
else
begin
bsSkinTabSheet4.TabVisible:=true;
bsSkinTabSheet5.TabVisible:=true;
bsSkinTabSheet6.TabVisible:=true;
bsSkinTabSheet7.TabVisible:=true;
bsSkinTabSheet14.TabVisible:=false;
v_fee_do_seae.open;
v_fee_do_seai.open;
v_fee_do_aire.open;
v_fee_do_airi.open;
v_fee_do_bscard.Close;
end;
end;
procedure Tfrm_ch_invoice.dxDBGridColumn43CustomDraw(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[dxDBGrid11Column26.Index],ANode.Strings[dxDBGridColumn43.Index]);
AFont.Color:=clblack;
end;
procedure Tfrm_ch_invoice.dxDBGridColumn44CustomDraw(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[dxDBGridColumn44.Index]);
AFont.Color:=clblack;
end;
procedure Tfrm_ch_invoice.fra_ch_add_do1MenuItem1Click(Sender: TObject);
begin
fra_ch_add_do1.MenuItem1Click(Sender);
end;
procedure Tfrm_ch_invoice.bsSkinButton36Click(Sender: TObject);
var ASqlQuery:TADOQuery;
str1,str2:Tstringlist;
begin
ASqlQuery:=CreateAdoQuery;
str1:=Tstringlist.Create;
str2:=Tstringlist.Create;
with ASqlQuery do
try
str1.Clear;
str2.Clear;
Close;SQL.Clear;
SQL.Add('select <20><><EFBFBD>ᵥ<EFBFBD><E1B5A5>,sum(<28><><EFBFBD><EFBFBD>) <20><><EFBFBD><EFBFBD> from v_fee_do_bscard');
SQL.Add('where <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>=:<3A><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>');
SQL.Add('Group by <20><><EFBFBD>ᵥ<EFBFBD><E1B5A5>');
SQL.Add('order by <20><><EFBFBD>ᵥ<EFBFBD><E1B5A5>');
Parameters.ParamByName('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').Value:=t_ch_invoice.fieldByName('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').AsString;
Open;First;
while not eof do
begin
if t_ch_invoice['<27>ұ<EFBFBD>']='USD' then
str1.Add(get_parameters_value(7,'<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>˷<EFBFBD>')+fieldByName('<27><><EFBFBD>ᵥ<EFBFBD><E1B5A5>').AsString)
else
str1.Add(get_parameters_value(147,'<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ӷ<EFBFBD>')+fieldByName('<27><><EFBFBD>ᵥ<EFBFBD><E1B5A5>').AsString);
str2.Add(fieldByName('<27><><EFBFBD><EFBFBD>').AsString);
Next;
end;
t_ch_invoice.Edit;
t_ch_invoice['<27><><EFBFBD><EFBFBD><EFBFBD>б<EFBFBD>']:=str1.text;
t_ch_invoice['<27><><EFBFBD><EFBFBD><EFBFBD>б<EFBFBD>']:=str2.text;
t_ch_invoice.Post;
finally
Free;
str1.Free;
str2.Free;
end;
end;
procedure Tfrm_ch_invoice.DBComboBoxEh3CloseUp(Sender: TObject;
Accept: Boolean);
begin
DBComboBoxEh3.items.Clear;
end;
procedure Tfrm_ch_invoice.DBComboBoxEh3DropDown(Sender: TObject);
var
aQuery:TADOQuery;
begin
DBComboBoxEh3.Items.Clear;
if frm_data_share.t_crm_client_all.locate('<27>ͻ<EFBFBD><CDBB><EFBFBD><EFBFBD><EFBFBD>',RxDBLookupCombo3.DisplayValues[1],[]) then
begin
if Trim(frm_data_share.t_crm_client_all.fieldbyname('<27><>˰<EFBFBD><CBB0>ʶ<EFBFBD><CAB6><EFBFBD><EFBFBD>').asstring)<>'' then
DBComboBoxEh3.Items.Add(frm_data_share.t_crm_client_all.fieldbyname('<27><>˰<EFBFBD><CBB0>ʶ<EFBFBD><CAB6><EFBFBD><EFBFBD>').asstring);
end;
{
aQuery:=CreateAdoQuery;
with aQuery do
try
Close;SQL.Clear;
SQL.Add('select distinct <20><>˰<EFBFBD><CBB0>ʶ<EFBFBD><CAB6><EFBFBD><EFBFBD> from t_ch_invoice');
SQL.Add('Where <20><>Ʊ̧ͷ=:<3A><>Ʊ̧ͷ and <20><>˰<EFBFBD><CBB0>ʶ<EFBFBD><CAB6><EFBFBD><EFBFBD><>''''');
SQL.Add('order by <20><>˰<EFBFBD><CBB0>ʶ<EFBFBD><CAB6><EFBFBD><EFBFBD>');
Parameters.ParamByName('<27><>Ʊ̧ͷ').Value:=t_ch_invoice.FieldByName('<27><>Ʊ̧ͷ').AsString;
Open;
First;
while not Eof do begin
DBComboBoxEh3.Items.Add(FieldByName('<27><>˰<EFBFBD><CBB0>ʶ<EFBFBD><CAB6><EFBFBD><EFBFBD>').AsString);
Next;
end;
finally
Close;
FreeAndNil(aQuery);
end;
}
end;
procedure Tfrm_ch_invoice.DBComboBoxEh4CloseUp(Sender: TObject;
Accept: Boolean);
begin
DBComboBoxEh4.items.Clear;
end;
procedure Tfrm_ch_invoice.DBComboBoxEh4DropDown(Sender: TObject);
var
aQuery:TADOQuery;
begin
DBComboBoxEh4.Items.Clear;
if frm_data_share.t_crm_client_all.locate('<27>ͻ<EFBFBD><CDBB><EFBFBD><EFBFBD><EFBFBD>',RxDBLookupCombo3.DisplayValues[1],[]) then
begin
if (Trim(frm_data_share.t_crm_client_all.fieldbyname('ͨѶ<CDA8><D1B6>ַ').asstring)<>'')
and (Trim(frm_data_share.t_crm_client_all.fieldbyname('<27>绰').asstring)<>'') then
DBComboBoxEh4.Items.Add(frm_data_share.t_crm_client_all.fieldbyname('ͨѶ<CDA8><D1B6>ַ').asstring+frm_data_share.t_crm_client_all.fieldbyname('<27>绰').asstring);
end;
{
aQuery:=CreateAdoQuery;
with aQuery do
try
Close;SQL.Clear;
SQL.Add('select distinct <20><>ַ<EFBFBD>绰 from t_ch_invoice');
SQL.Add('Where <20><>Ʊ̧ͷ=:<3A><>Ʊ̧ͷ and <20><>ַ<EFBFBD>绰<>''''');
SQL.Add('order by <20><>ַ<EFBFBD>绰');
Parameters.ParamByName('<27><>Ʊ̧ͷ').Value:=t_ch_invoice.FieldByName('<27><>Ʊ̧ͷ').AsString;
Open;
First;
while not Eof do begin
DBComboBoxEh4.Items.Add(FieldByName('<27><>ַ<EFBFBD>绰').AsString);
Next;
end;
finally
Close;
FreeAndNil(aQuery);
end;
}
end;
procedure Tfrm_ch_invoice.DBComboBoxEh5DropDown(Sender: TObject);
var
aQuery:TADOQuery;
begin
DBComboBoxEh5.Items.Clear;
if frm_data_share.t_crm_client_all.locate('<27>ͻ<EFBFBD><CDBB><EFBFBD><EFBFBD><EFBFBD>',RxDBLookupCombo3.DisplayValues[1],[]) then
begin
if (Trim(frm_data_share.t_crm_client_all.fieldbyname('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>RMB').asstring)<>'')
and (Trim(frm_data_share.t_crm_client_all.fieldbyname('<27>ʺ<EFBFBD>RMB').asstring)<>'') then
DBComboBoxEh5.Items.Add(frm_data_share.t_crm_client_all.fieldbyname('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>RMB').asstring+frm_data_share.t_crm_client_all.fieldbyname('<27>ʺ<EFBFBD>RMB').asstring);
if (Trim(frm_data_share.t_crm_client_all.fieldbyname('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>USD').asstring)<>'')
and (Trim(frm_data_share.t_crm_client_all.fieldbyname('<27>ʺ<EFBFBD>USD').asstring)<>'') then
DBComboBoxEh5.Items.Add(frm_data_share.t_crm_client_all.fieldbyname('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>USD').asstring+frm_data_share.t_crm_client_all.fieldbyname('<27>ʺ<EFBFBD>USD').asstring);
end;
{
aQuery:=CreateAdoQuery;
with aQuery do
try
Close;SQL.Clear;
SQL.Add('select distinct <20><><EFBFBD><EFBFBD><EFBFBD>м<EFBFBD><D0BC>˺<EFBFBD> from t_ch_invoice');
SQL.Add('Where <20><>Ʊ̧ͷ=:<3A><>Ʊ̧ͷ and <20><><EFBFBD><EFBFBD><EFBFBD>м<EFBFBD><D0BC>˺<EFBFBD><>''''');
SQL.Add('order by <20><><EFBFBD><EFBFBD><EFBFBD>м<EFBFBD><D0BC>˺<EFBFBD>');
Parameters.ParamByName('<27><>Ʊ̧ͷ').Value:=t_ch_invoice.FieldByName('<27><>Ʊ̧ͷ').AsString;
Open;
First;
while not Eof do begin
DBComboBoxEh5.Items.Add(FieldByName('<27><><EFBFBD><EFBFBD><EFBFBD>м<EFBFBD><D0BC>˺<EFBFBD>').AsString);
Next;
end;
finally
Close;
FreeAndNil(aQuery);
end;
}
end;
procedure Tfrm_ch_invoice.DBComboBoxEh5CloseUp(Sender: TObject;
Accept: Boolean);
begin
DBComboBoxEh5.items.Clear;
end;
procedure Tfrm_ch_invoice.DBComboBoxEh1Change(Sender: TObject);
var
aQuery:TADOQuery;
begin
aQuery:=CreateAdoQuery;
with aQuery do
try
Close;SQL.Clear;
SQL.Add('select <20><>Ʊ̧ͷ,<2C><>˰<EFBFBD><CBB0>ʶ<EFBFBD><CAB6><EFBFBD><EFBFBD>,<2C><>ַ<EFBFBD>绰,<2C><><EFBFBD><EFBFBD><EFBFBD>м<EFBFBD><D0BC>ʺ<EFBFBD>,<2C><>˰<EFBFBD><CBB0><EFBFBD><EFBFBD> from t_crm_client_Invoice');
SQL.Add('Where <20>ͻ<EFBFBD><CDBB><EFBFBD><EFBFBD><EFBFBD>=:<3A>ͻ<EFBFBD><CDBB><EFBFBD><EFBFBD><EFBFBD> and <20><>Ʊ̧ͷ=:<3A><>Ʊ̧ͷ');
Parameters.ParamByName('<27>ͻ<EFBFBD><CDBB><EFBFBD><EFBFBD><EFBFBD>').Value:=t_ch_invoice.FieldByName('<27>ͻ<EFBFBD><CDBB><EFBFBD><EFBFBD><EFBFBD>').AsString;
Parameters.ParamByName('<27><>Ʊ̧ͷ').Value:=Trim(DBComboBoxEh1.Text);
open;
if not IsEmpty then
begin
if (t_ch_invoice.state=dsinsert) or (t_ch_invoice.state=dsedit) then
begin
DBComboBoxEh3.Text:=FieldByName('<27><>˰<EFBFBD><CBB0>ʶ<EFBFBD><CAB6><EFBFBD><EFBFBD>').AsString;
DBComboBoxEh4.Text:=FieldByName('<27><>ַ<EFBFBD>绰').AsString;
DBComboBoxEh5.Text:=FieldByName('<27><><EFBFBD><EFBFBD><EFBFBD>м<EFBFBD><D0BC>ʺ<EFBFBD>').AsString;
DBEdit31.Text:=FieldByName('<27><>˰<EFBFBD><CBB0><EFBFBD><EFBFBD>').AsString;
end
end
else
begin
Close;SQL.Clear;
SQL.Add('select distinct <20><>Ʊ̧ͷ,<2C><>˰<EFBFBD><CBB0>ʶ<EFBFBD><CAB6><EFBFBD><EFBFBD>,<2C><>ַ<EFBFBD>绰,<2C><><EFBFBD><EFBFBD><EFBFBD>м<EFBFBD><D0BC>˺<EFBFBD>,<2C><>˰<EFBFBD><CBB0><EFBFBD><EFBFBD> from t_ch_invoice');
SQL.Add('Where <20><>Ʊ̧ͷ=:<3A><>Ʊ̧ͷ and <20><>˰<EFBFBD><CBB0>ʶ<EFBFBD><CAB6><EFBFBD><EFBFBD><>'''' and <20><>ַ<EFBFBD>绰<>'''' and <20><><EFBFBD><EFBFBD><EFBFBD>м<EFBFBD><D0BC>˺<EFBFBD><>'''' ');
Parameters.ParamByName('<27><>Ʊ̧ͷ').Value:=Trim(DBComboBoxEh1.Text);
Open;
First;
if (t_ch_invoice.state=dsinsert) or (t_ch_invoice.state=dsedit) then
begin
DBComboBoxEh3.Text:=FieldByName('<27><>˰<EFBFBD><CBB0>ʶ<EFBFBD><CAB6><EFBFBD><EFBFBD>').AsString;
DBComboBoxEh4.Text:=FieldByName('<27><>ַ<EFBFBD>绰').AsString;
DBComboBoxEh5.Text:=FieldByName('<27><><EFBFBD><EFBFBD><EFBFBD>м<EFBFBD><D0BC>˺<EFBFBD>').AsString;
DBEdit31.Text:=FieldByName('<27><>˰<EFBFBD><CBB0><EFBFBD><EFBFBD>').AsString;
end;
end;
finally
Close;
FreeAndNil(aQuery);
end;
end;
procedure Tfrm_ch_invoice.bsSkinButton37Click(Sender: TObject);
var s:string;
aAdoQuery:TADOQuery;
begin
s:='';
t_msg_mold.Close;
t_msg_mold.sql.text:='select * from t_sys_msgmold where <20><>Ϣ<EFBFBD><CFA2><EFBFBD><EFBFBD>=''<27><><EFBFBD>Ʊģ<C6B1><C4A3>'' ';
t_msg_mold.open;
aAdoQuery:=CreateAdoQuery;
with aAdoQuery do
try
close;
SQL.clear;
sql.add('select <20><><EFBFBD><EFBFBD>,ҵ<><D2B5><EFBFBD><EFBFBD><EFBFBD><EFBFBD>, <20><><EFBFBD>ᵥ<EFBFBD><E1B5A5>,ί<>б<EFBFBD><D0B1><EFBFBD>,<2C><><EFBFBD><EFBFBD>,<2C><><EFBFBD><EFBFBD>,<2C><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>,ж<><D0B6><EFBFBD><EFBFBD>,Ŀ<>ĵ<EFBFBD>,װ<><D7B0><EFBFBD><EFBFBD>,<2C><><EFBFBD>ᵥ<EFBFBD><E1B5A5>,<2C><>ͬ<EFBFBD><CDAC>,<2C><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>');
sql.Add(',sum(case when ԭʼ<D4AD>ұ<EFBFBD>=''RMB'' then ԭʼ<D4AD><CABC><EFBFBD><EFBFBD> else 0 end) as <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>');
sql.Add(',sum(case when ԭʼ<D4AD>ұ<EFBFBD><>''RMB'' then ԭʼ<D4AD><CABC><EFBFBD><EFBFBD> else 0 end) as <20><><EFBFBD><EFBFBD>');
sql.Add('from v_fee_do_bscard ');
sql.Add('where <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>=:<3A><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> ');
sql.Add('Group by <20><><EFBFBD><EFBFBD>,ҵ<><D2B5><EFBFBD><EFBFBD><EFBFBD><EFBFBD>, <20><><EFBFBD>ᵥ<EFBFBD><E1B5A5>,ί<>б<EFBFBD><D0B1><EFBFBD>,<2C><><EFBFBD><EFBFBD>,<2C><><EFBFBD><EFBFBD>,<2C><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>,ж<><D0B6><EFBFBD><EFBFBD>,Ŀ<>ĵ<EFBFBD>,װ<><D7B0><EFBFBD><EFBFBD>,<2C><><EFBFBD>ᵥ<EFBFBD><E1B5A5>,<2C><>ͬ<EFBFBD><CDAC>,<2C><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>');
sql.Add('order by <20><><EFBFBD><EFBFBD>,ҵ<><D2B5><EFBFBD><EFBFBD><EFBFBD><EFBFBD>, <20><><EFBFBD>ᵥ<EFBFBD><E1B5A5>,ί<>б<EFBFBD><D0B1><EFBFBD>,<2C><><EFBFBD><EFBFBD>,<2C><><EFBFBD><EFBFBD>,<2C><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>');
Parameters.ParamByName('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').Value:=t_ch_invoice.fieldbyname('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').AsString;
Open;First;
while not eof do
begin
if Trim(s)='' then
s:=getstrfromdataset(aAdoQuery,t_msg_mold.fieldbyname('ģ<><C4A3><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').asstring)
else
s:=s+#13#10+getstrfromdataset(aAdoQuery,t_msg_mold.fieldbyname('ģ<><C4A3><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').asstring)+' ';
Next;
end;
t_ch_invoice.Edit;
t_ch_invoice.FieldByName('<27><>ע').AsString:=s;
t_ch_invoice.Post;
finally
Free;
end;
end;
procedure Tfrm_ch_invoice.bsSkinButton39Click(Sender: TObject);
begin
if not if_open('602') then
begin
showmessage('<27>Բ<EFBFBD><D4B2><EFBFBD><EFBFBD><EFBFBD>û<EFBFBD>д<EFBFBD>ģ<EFBFBD><C4A3><EFBFBD>IJ<EFBFBD><C4B2><EFBFBD>Ȩ<EFBFBD><C8A8>,<2C><><EFBFBD><EFBFBD>ϵϵͳ<CFB5><CDB3><EFBFBD><EFBFBD>Ա<EFBFBD><D4B1>ͨȨ<CDA8>ޣ<EFBFBD>');
exit;
end;
t_msg_mold.Close;
t_msg_mold.sql.text:='select * from t_sys_msgmold where <20><>Ϣ<EFBFBD><CFA2><EFBFBD><EFBFBD>=''<27><><EFBFBD>Ʊģ<C6B1><C4A3>'' ';
t_msg_mold.open;
if t_msg_mold.IsEmpty then t_msg_mold.Insert;
frm_msg_mold:=Tfrm_msg_mold.create(self);
try
frm_msg_mold.transtype:=5;
frm_msg_mold.t_msg_mold1.DataSet:=t_msg_mold;
frm_msg_mold.ShowModal;
finally
FreeAndNil(frm_msg_mold);
end;
end;
procedure Tfrm_ch_invoice.t_msg_moldAfterInsert(DataSet: TDataSet);
begin
dataset.FieldByName('<27><>Ϣ<EFBFBD><CFA2><EFBFBD><EFBFBD>').AsString:='<27><><EFBFBD>Ʊģ<C6B1><C4A3>';
end;
procedure Tfrm_ch_invoice.t_ch_invoice_itemBeforePost(DataSet: TDataSet);
var
Amt,price:double;
begin
if trim(DataSet.FieldByName('<27><>Ʒ<EFBFBD><C6B7><EFBFBD><EFBFBD>').asstring)='' then
begin
showmessage('<27><>Ʒ<EFBFBD><C6B7><EFBFBD>Ʋ<EFBFBD><C6B2><EFBFBD>Ϊ<EFBFBD>գ<EFBFBD><D5A3><EFBFBD>');
abort;
end;
if DataSet.FieldByName('<27><><EFBFBD><EFBFBD>').AsFloat=0 then
begin
showmessage('<27><><EFBFBD>۲<EFBFBD><DBB2><EFBFBD>Ϊ<EFBFBD>գ<EFBFBD><D5A3><EFBFBD>');
abort;
end;
if DataSet.FieldByName('<27><><EFBFBD><EFBFBD>').AsFloat=0 then
begin
showmessage('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>Ϊ<EFBFBD>գ<EFBFBD><D5A3><EFBFBD>');
abort;
end;
if DataSet.fieldbyname('<27><>˰<EFBFBD><CBB0><EFBFBD><EFBFBD>').asfloat<>0 then
begin
DataSet.fieldbyname('<27><><EFBFBD><EFBFBD>').asfloat:=DataSet.fieldbyname('<27><>˰<EFBFBD><CBB0><EFBFBD><EFBFBD>').asfloat/(1+DataSet.fieldbyname('˰<><CBB0>').asfloat);
DataSet.FieldByName('˰<><CBB0>').Value:=s_w(2,DataSet.fieldbyname('<27><><EFBFBD><EFBFBD>').asfloat*DataSet.fieldbyname('<27><>˰<EFBFBD><CBB0><EFBFBD><EFBFBD>').asfloat/(1+DataSet.fieldbyname('˰<><CBB0>').asfloat)*DataSet.fieldbyname('˰<><CBB0>').asfloat);
DataSet.FieldByName('<27><><EFBFBD><EFBFBD>').Value:=s_w(strtoint(apointnum),DataSet.fieldbyname('<27><>˰<EFBFBD><CBB0><EFBFBD><EFBFBD>').asfloat*DataSet.fieldbyname('<27><><EFBFBD><EFBFBD>').asfloat-DataSet.FieldByName('˰<><CBB0>').Value)
end
else
begin
price:=DataSet.fieldbyname('<27><><EFBFBD><EFBFBD>').asfloat*DataSet.fieldbyname('˰<><CBB0>').asfloat+DataSet.fieldbyname('<27><><EFBFBD><EFBFBD>').asfloat;
DataSet.FieldByName('<27><><EFBFBD><EFBFBD>').Value:=s_w(strtoint(apointnum),DataSet.fieldbyname('<27><><EFBFBD><EFBFBD>').asfloat*DataSet.fieldbyname('<27><><EFBFBD><EFBFBD>').asfloat);
price:=s_w(strtoint(apointnum),price);
Amt:=s_w(strtoint(apointnum),price*DataSet.fieldbyname('<27><><EFBFBD><EFBFBD>').asfloat);
DataSet.FieldByName('˰<><CBB0>').Value:=s_w(strtoint(apointnum),Amt/(1+DataSet.fieldbyname('˰<><CBB0>').AsFloat)*DataSet.fieldbyname('˰<><CBB0>').AsFloat);
end;
end;
procedure Tfrm_ch_invoice.t_ch_invoice_itemNewRecord(DataSet: TDataSet);
begin
DataSet.FieldByName('<27><>Ʒ<EFBFBD><C6B7><EFBFBD><EFBFBD>').asstring:='';
DataSet.FieldByName('<27><><EFBFBD><EFBFBD><EFBFBD>ͺ<EFBFBD>').asstring:='0';
DataSet.FieldByName('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>λ').asstring:='Ʊ';
DataSet.FieldByName('<27><><EFBFBD><EFBFBD>').AsInteger:=1;
DataSet.FieldByName('<27><><EFBFBD><EFBFBD>').AsFloat:=0;
DataSet.FieldByName('<27><><EFBFBD><EFBFBD>').AsFloat:=0;
DataSet.FieldByName('˰<><CBB0>').AsFloat:=frm_data_share.t_sys_company.fieldbyname('˰<><CBB0>').AsFloat;
DataSet.FieldByName('˰<><CBB0>').AsFloat:=0;
DataSet.FieldByName('<27>ۿ<EFBFBD>').AsFloat:=0;
DataSet.FieldByName('<27><>ע').asstring:='';
DataSet.FieldByName('<27><>˰<EFBFBD>۱<EFBFBD>־').Value:=0;
end;
procedure Tfrm_ch_invoice.t_ch_invoice_itemBeforeEdit(DataSet: TDataSet);
begin
if not modify_all then
begin
if t_ch_invoice.FieldByName('<27>Ƿ<EFBFBD><C7B7>ϳ<EFBFBD>').asboolean then
begin
showmessage('<27><>Ʊ<EFBFBD>Ѿ<EFBFBD><D1BE>ϳ<EFBFBD><CFB3><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>޸ģ<DEB8><C4A3><EFBFBD>');
abort;
end;
if t_ch_invoice.FieldByName('<27><><EFBFBD><EFBFBD>').asboolean then
begin
showmessage('<27><>Ʊ<EFBFBD><C6B1><EFBFBD><EFBFBD>ƾ֤<C6BE><D6A4><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>޸ģ<DEB8><C4A3><EFBFBD>');
abort;
end;
if t_ch_invoice.FieldByName('<27>Ƿ<EFBFBD><C7B7><EFBFBD>ӡ').asboolean then
begin
showmessage('<27><>Ʊ<EFBFBD>Ѿ<EFBFBD><D1BE><EFBFBD>ӡ<EFBFBD><D3A1><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>޸ģ<DEB8><C4A3><EFBFBD>');
abort;
end;
end;
end;
procedure Tfrm_ch_invoice.CheckBox1Click(Sender: TObject);
var
inifile1:Tinifile;
begin
//<2F><>ʾ<EFBFBD><CABE>Ʊ<EFBFBD><C6B1><EFBFBD><EFBFBD><EFBFBD>б<EFBFBD>
inifile1:=Tinifile.Create(ExtractFilePath(application.ExeName)+'main.ini');
inifile1.WriteBool('other','invoicedsp',CheckBox1.Checked);
inifile1.free;
if CheckBox1.Checked then
begin
bsSkinPanel8.Visible:=true;
end
else
begin
bsSkinPanel8.Visible:=false;
end;
end;
procedure Tfrm_ch_invoice.bsSkinButton40Click(Sender: TObject);
begin
frm_main.view_momo(t_ch_invoice1,'<27><>ע');
end;
procedure Tfrm_ch_invoice.dxDBGrid2Column29CustomDraw(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 UpperCase(ANode.strings[dxDBGrid2Column29.Index])='TRUE'then
AColor :=clred
else
AColor :=clwhite;
AFont.Color:=clblack;
end;
procedure Tfrm_ch_invoice.dxDBGrid1Column43CustomDraw(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 UpperCase(ANode.strings[dxDBGrid1Column43.Index])='TRUE'then
AColor :=clred
else
AColor :=clwhite;
AFont.Color:=clblack;
end;
procedure Tfrm_ch_invoice.t_ch_invoice_itemAfterPost(DataSet: TDataSet);
var aAdoQuery:TAdoQuery;
amt:Double;
begin
aAdoQuery:=CreateAdoQuery;
with aAdoQuery do
try
close;
SQL.clear;
sql.add('select sum(<28><><EFBFBD><EFBFBD>+˰<><CBB0>) Amt');
sql.Add('from t_ch_invoice_item ');
sql.Add('where IN_ID=:IN_ID');
Parameters.ParamByName('IN_ID').Value:=t_ch_invoice.fieldbyname('IN_ID').AsInteger;
Open;First;
amt:=fieldbyname('Amt').AsFloat;
if Abs(Amt)<0.1 then
begin
close;
SQL.clear;
sql.add('update t_ch_invoice set <20>ϼƽ<CFBC><C6BD><EFBFBD>=:<3A>ϼƽ<CFBC><C6BD><EFBFBD>,ʵ<>ʽ<EFBFBD><CABD><EFBFBD>=:ʵ<>ʽ<EFBFBD><CABD><EFBFBD>,<2C><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>д=:<3A><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>д');
sql.Add('where IN_ID=:IN_ID');
Parameters.ParamByName('IN_ID').Value:=t_ch_invoice.fieldbyname('IN_ID').AsInteger;
Parameters.ParamByName('<27>ϼƽ<CFBC><C6BD><EFBFBD>').Value:=Amt;
Parameters.ParamByName('ʵ<>ʽ<EFBFBD><CABD><EFBFBD>').Value:=Amt;
if Amt<0 then
begin
Parameters.ParamByName('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>д').Value:=FloatToStr(Amt)+'(<28><>)';
end
else
Parameters.ParamByName('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>д').Value:=FloatToStr(Amt);
ExecSQL;
end
else
begin
close;
SQL.clear;
sql.add('update t_ch_invoice set <20>ϼƽ<CFBC><C6BD><EFBFBD>=:<3A>ϼƽ<CFBC><C6BD><EFBFBD>,ʵ<>ʽ<EFBFBD><CABD><EFBFBD>=:ʵ<>ʽ<EFBFBD><CABD><EFBFBD>,<2C><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>д=:<3A><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>д');
sql.Add('where IN_ID=:IN_ID');
Parameters.ParamByName('IN_ID').Value:=t_ch_invoice.fieldbyname('IN_ID').AsInteger;
Parameters.ParamByName('<27>ϼƽ<CFBC><C6BD><EFBFBD>').Value:=Amt;
Parameters.ParamByName('ʵ<>ʽ<EFBFBD><CABD><EFBFBD>').Value:=Amt;
if Amt<0 then
begin
Parameters.ParamByName('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>д').Value:=invoice_max(Amt,''+'(<28><>)');
end
else
Parameters.ParamByName('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>д').Value:=invoice_max(Amt,'');
ExecSQL;
end;
t_ch_invoice.Refresh;
finally
Free;
end;
end;
procedure Tfrm_ch_invoice.t_ch_invoice_itemBeforeInsert(DataSet: TDataSet);
begin
if t_ch_invoice.state in [dsedit,dsinsert] then t_ch_invoice.post;
end;
procedure Tfrm_ch_invoice.dxDBGrid11DblClick(Sender: TObject);
begin
fee_view(v_fee_do_bscard1.dataset.fieldbyname('<27><><EFBFBD><EFBFBD>').asstring);
end;
procedure Tfrm_ch_invoice.dxDBGrid12DblClick(Sender: TObject);
begin
fee_view(v_fee_do_bscard1.dataset.fieldbyname('<27><><EFBFBD><EFBFBD>').asstring);
end;
procedure Tfrm_ch_invoice.fra_ch_add_do1N1Click(Sender: TObject);
begin
fra_ch_add_do1.N1Click(Sender);
end;
procedure Tfrm_ch_invoice.bsSkinButton42Click(Sender: TObject);
var
Pnt:Tpoint;
begin
Pnt:=bsSkinButton42.ClientToScreen(Point(0,bsSkinButton42.Height));
PopupMenu6.Popup(Pnt.x,Pnt.y);
end;
procedure Tfrm_ch_invoice.MenuItem3Click(Sender: TObject);
var strBillNo,str_feeValid:string;
begin
if t_ch_invoice.IsEmpty then begin
Showmessage('û<>з<EFBFBD>Ʊ<EFBFBD><C6B1><EFBFBD><EFBFBD>');
exit;
end;
if not if_open('418') then
begin
showmessage('<27>Բ<EFBFBD><D4B2><EFBFBD><EFBFBD><EFBFBD>û<EFBFBD>д<EFBFBD>ģ<EFBFBD><C4A3><EFBFBD>IJ<EFBFBD><C4B2><EFBFBD>Ȩ<EFBFBD>ޣ<EFBFBD>');
exit;
end;
if t_ch_invoice.FieldByName('<27>Ƿ<EFBFBD><C7B7><EFBFBD><EFBFBD><EFBFBD>').AsBoolean then
begin
showmessage('<27><>Ʊ<EFBFBD>Ѿ<EFBFBD><D1BE><EFBFBD><EFBFBD>ˣ<EFBFBD><CBA3><EFBFBD>');
end
else
begin
try
if t_ch_invoice.State in [dsedit,dsinsert] then t_ch_invoice.post;
t_ch_invoice.Refresh;
modify_all:=true;
t_ch_invoice.edit;
t_ch_invoice['<27>Ƿ<EFBFBD><C7B7><EFBFBD><EFBFBD><EFBFBD>']:=True;
t_ch_invoice.post;
modify_all:=false;
except
modify_all:=false;
showmessage('<27><><EFBFBD><EFBFBD>ʧ<EFBFBD>ܣ<EFBFBD><DCA3><EFBFBD>');
end;
t_ch_invoice.Refresh;
end;
end;
procedure Tfrm_ch_invoice.MenuItem4Click(Sender: TObject);
var str_feeValid:string;
begin
if t_ch_invoice.IsEmpty then
exit;
if t_ch_invoice.State in [dsedit,dsinsert] then t_ch_invoice.post;
if not if_open('418') then
begin
showmessage('<27>Բ<EFBFBD><D4B2><EFBFBD><EFBFBD><EFBFBD>û<EFBFBD>д<EFBFBD>ģ<EFBFBD><C4A3><EFBFBD>IJ<EFBFBD><C4B2><EFBFBD>Ȩ<EFBFBD>ޣ<EFBFBD>');
exit;
end;
t_ch_invoice.first;
while not t_ch_invoice.eof do begin
if t_ch_invoice.FieldByName('<27>Ƿ<EFBFBD><C7B7><EFBFBD><EFBFBD><EFBFBD>').AsBoolean then
begin
// showmessage('<27>ʵ<EFBFBD><CAB5>Ѿ<EFBFBD><D1BE><EFBFBD><EFBFBD>ˣ<EFBFBD><CBA3><EFBFBD>');
end
else
begin
try
t_ch_invoice.Refresh;
modify_all:=true;
t_ch_invoice.edit;
t_ch_invoice['<27>Ƿ<EFBFBD><C7B7><EFBFBD><EFBFBD><EFBFBD>']:=True;
t_ch_invoice.post;
modify_all:=false;
except
on e: Exception do
begin
modify_all:=false;
end;
end;
t_ch_invoice.Refresh;
end;
t_ch_invoice.Next;
end;
end;
procedure Tfrm_ch_invoice.bsSkinButton41Click(Sender: TObject);
begin
if t_ch_invoice.IsEmpty then
exit;
if not if_open('419') then
begin
showmessage('<27>Բ<EFBFBD><D4B2><EFBFBD><EFBFBD><EFBFBD>û<EFBFBD>д<EFBFBD>ģ<EFBFBD><C4A3><EFBFBD>IJ<EFBFBD><C4B2><EFBFBD>Ȩ<EFBFBD>ޣ<EFBFBD>');
exit;
end;
if not t_ch_invoice.FieldByName('<27>Ƿ<EFBFBD><C7B7><EFBFBD><EFBFBD><EFBFBD>').AsBoolean then
begin
showmessage('<27>ʵ<EFBFBD>û<EFBFBD>б<EFBFBD>Ҫȡ<D2AA><C8A1><EFBFBD><EFBFBD><EFBFBD>ˣ<EFBFBD><CBA3><EFBFBD>');
end
else
begin
try
modify_all:=true;
t_ch_invoice.edit;
t_ch_invoice['<27>Ƿ<EFBFBD><C7B7><EFBFBD><EFBFBD><EFBFBD>']:=false;
t_ch_invoice.post;
modify_all:=false;
except
modify_all:=false;
showmessage('ȡ<><C8A1><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ʧ<EFBFBD>ܣ<EFBFBD><DCA3><EFBFBD>');
end;
t_ch_invoice.Refresh;
end;
end;
end.
Reference in New Issue View Git Blame Copy Permalink