|
|
unit u_ch_invoice;
|
|
|
|
|
|
interface
|
|
|
|
|
|
uses
|
|
|
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
|
|
|
Dialogs, ComCtrls, bsSkinTabs, bsSkinCtrls, DB, ADODB, dxExEdtr,
|
|
|
dxCntner, dxTL, dxDBCtrl, dxDBGrid, dxDBTLCl, dxGrClms, wwdblook,
|
|
|
StdCtrls, DBCtrls, RxLookup, bsdbctrls, Mask, wwdbdatetimepicker,
|
|
|
ExtCtrls, Menus, XPMenu;
|
|
|
|
|
|
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;
|
|
|
dxDBGrid1: TdxDBGrid;
|
|
|
dxDBGrid1Column1: TdxDBGridMaskColumn;
|
|
|
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;
|
|
|
dxDBGrid1Column19: TdxDBGridColumn;
|
|
|
dxDBGrid1Column20: TdxDBGridColumn;
|
|
|
dxDBGrid1Column21: TdxDBGridColumn;
|
|
|
dxDBGrid1Column22: TdxDBGridMaskColumn;
|
|
|
dxDBGrid1Column23: TdxDBGridMaskColumn;
|
|
|
dxDBGrid1Column24: TdxDBGridMaskColumn;
|
|
|
dxDBGrid1Column25: TdxDBGridCheckColumn;
|
|
|
dxDBGrid1Column26: TdxDBGridMaskColumn;
|
|
|
dxDBGrid1Column27: TdxDBGridDateColumn;
|
|
|
dxDBGrid1Column28: TdxDBGridMaskColumn;
|
|
|
dxDBGrid1Column29: TdxDBGridCheckColumn;
|
|
|
dxDBGrid1Column30: TdxDBGridMaskColumn;
|
|
|
dxDBGrid1Column31: TdxDBGridMaskColumn;
|
|
|
dxDBGrid1Column32: TdxDBGridCheckColumn;
|
|
|
dxDBGrid1Column33: TdxDBGridMaskColumn;
|
|
|
dxDBGrid1Column34: TdxDBGridDateColumn;
|
|
|
dxDBGrid1Column35: TdxDBGridMaskColumn;
|
|
|
dxDBGrid1Column36: TdxDBGridDateColumn;
|
|
|
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;
|
|
|
s_invoice: TScrollBox;
|
|
|
Shape9: TShape;
|
|
|
Label27: TLabel;
|
|
|
Label28: TLabel;
|
|
|
Label29: TLabel;
|
|
|
Label30: TLabel;
|
|
|
Shape2: TShape;
|
|
|
Label31: TLabel;
|
|
|
Label32: TLabel;
|
|
|
Shape3: TShape;
|
|
|
Label33: TLabel;
|
|
|
Label34: TLabel;
|
|
|
Shape4: TShape;
|
|
|
Shape5: TShape;
|
|
|
Label35: TLabel;
|
|
|
Label36: TLabel;
|
|
|
Label37: TLabel;
|
|
|
Label38: TLabel;
|
|
|
Shape6: TShape;
|
|
|
Label39: TLabel;
|
|
|
Label40: TLabel;
|
|
|
Shape7: TShape;
|
|
|
Label41: TLabel;
|
|
|
Label42: TLabel;
|
|
|
Shape8: TShape;
|
|
|
Shape10: TShape;
|
|
|
Label43: TLabel;
|
|
|
Shape11: TShape;
|
|
|
Shape12: TShape;
|
|
|
Shape13: TShape;
|
|
|
Label44: TLabel;
|
|
|
Label45: TLabel;
|
|
|
Shape14: TShape;
|
|
|
Label46: TLabel;
|
|
|
Label47: TLabel;
|
|
|
Label48: TLabel;
|
|
|
Label49: TLabel;
|
|
|
Label50: TLabel;
|
|
|
Label51: TLabel;
|
|
|
Label52: TLabel;
|
|
|
Label53: TLabel;
|
|
|
Label55: TLabel;
|
|
|
Label56: TLabel;
|
|
|
Label58: TLabel;
|
|
|
Label60: TLabel;
|
|
|
Label61: TLabel;
|
|
|
Label62: TLabel;
|
|
|
Shape1: TShape;
|
|
|
Label24: TLabel;
|
|
|
Label26: TLabel;
|
|
|
wwDBDateTimePicker1: TwwDBDateTimePicker;
|
|
|
DE_ShipName: TDBEdit;
|
|
|
DE_BLNO: TDBEdit;
|
|
|
wwDBDateTimePicker2: TwwDBDateTimePicker;
|
|
|
DM_ChaCon: TDBMemo;
|
|
|
DM_CostType: TDBMemo;
|
|
|
DM_Money: TDBMemo;
|
|
|
DM: TDBMemo;
|
|
|
DE_SumUpper: TDBEdit;
|
|
|
DBSumLower: TDBEdit;
|
|
|
DE_BusnessNo: TDBEdit;
|
|
|
DE_TaxNo: TDBEdit;
|
|
|
DE_Maker: TDBEdit;
|
|
|
wwDBDateTimePicker3: TwwDBDateTimePicker;
|
|
|
wwDBLookupCombo6: TwwDBLookupCombo;
|
|
|
wwDBLookupCombo7: TwwDBLookupCombo;
|
|
|
DBCheckBox3: TDBCheckBox;
|
|
|
wwDBLookupCombo10: TwwDBLookupCombo;
|
|
|
wwDBLookupCombo11: TwwDBLookupCombo;
|
|
|
wwDBLookupCombo12: TwwDBLookupCombo;
|
|
|
RxDBLookupCombo2: TRxDBLookupCombo;
|
|
|
DBEdit27: 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;
|
|
|
bsSkinPanel6: TbsSkinPanel;
|
|
|
Label22: TLabel;
|
|
|
Label23: TLabel;
|
|
|
DBEdit13: TDBEdit;
|
|
|
DBEdit15: TDBEdit;
|
|
|
bsSkinDBCheckRadioBox2: TbsSkinDBCheckRadioBox;
|
|
|
bsSkinDBCheckRadioBox3: TbsSkinDBCheckRadioBox;
|
|
|
bsSkinPageControl4: TbsSkinPageControl;
|
|
|
bsSkinTabSheet8: TbsSkinTabSheet;
|
|
|
dxDBGrid7: TdxDBGrid;
|
|
|
dxDBGridMaskColumn70: TdxDBGridMaskColumn;
|
|
|
dxDBGridMaskColumn71: TdxDBGridMaskColumn;
|
|
|
dxDBGridMaskColumn72: TdxDBGridMaskColumn;
|
|
|
dxDBGridMaskColumn73: TdxDBGridMaskColumn;
|
|
|
dxDBGridMaskColumn74: TdxDBGridMaskColumn;
|
|
|
dxDBGridColumn21: TdxDBGridColumn;
|
|
|
dxDBGridColumn22: TdxDBGridColumn;
|
|
|
dxDBGridMaskColumn75: TdxDBGridMaskColumn;
|
|
|
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;
|
|
|
dxDBGridColumn26: TdxDBGridColumn;
|
|
|
dxDBGridMaskColumn90: TdxDBGridMaskColumn;
|
|
|
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;
|
|
|
dxDBGridColumn30: TdxDBGridColumn;
|
|
|
dxDBGridMaskColumn105: TdxDBGridMaskColumn;
|
|
|
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;
|
|
|
dxDBGridColumn34: TdxDBGridColumn;
|
|
|
dxDBGridMaskColumn117: TdxDBGridMaskColumn;
|
|
|
dxDBGridDateColumn19: TdxDBGridDateColumn;
|
|
|
dxDBGridDateColumn20: TdxDBGridDateColumn;
|
|
|
dxDBGridMaskColumn118: TdxDBGridMaskColumn;
|
|
|
dxDBGridMaskColumn119: TdxDBGridMaskColumn;
|
|
|
dxDBGridMaskColumn120: TdxDBGridMaskColumn;
|
|
|
dxDBGridColumn35: TdxDBGridColumn;
|
|
|
dxDBGridColumn36: TdxDBGridColumn;
|
|
|
dxDBGridMaskColumn121: TdxDBGridMaskColumn;
|
|
|
dxDBGridMaskColumn122: TdxDBGridMaskColumn;
|
|
|
dxDBGridMaskColumn123: TdxDBGridMaskColumn;
|
|
|
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;
|
|
|
dxDBGrid7Column22: TdxDBGridColumn;
|
|
|
dxDBGrid8Column22: TdxDBGridColumn;
|
|
|
dxDBGrid9Column19: TdxDBGridColumn;
|
|
|
dxDBGrid10Column19: TdxDBGridColumn;
|
|
|
dxDBGrid1Column37: TdxDBGridColumn;
|
|
|
Label66: TLabel;
|
|
|
DBEdit29: TDBEdit;
|
|
|
t_ch_invoice_head: TADOQuery;
|
|
|
t_ch_invoice_head1: TDataSource;
|
|
|
wwDBLookupCombo1: TwwDBLookupCombo;
|
|
|
bsSkinButton38: TbsSkinButton;
|
|
|
dxDBGrid1Column38: TdxDBGridColumn;
|
|
|
dxDBGrid3Column23: TdxDBGridColumn;
|
|
|
bsSkinButton42: TbsSkinButton;
|
|
|
bsSkinButton41: TbsSkinButton;
|
|
|
PopupMenu6: TPopupMenu;
|
|
|
MenuItem3: TMenuItem;
|
|
|
MenuItem7: TMenuItem;
|
|
|
MenuItem4: TMenuItem;
|
|
|
dxDBGrid1Column39: TdxDBGridCheckColumn;
|
|
|
dxDBGrid1Column40: TdxDBGridColumn;
|
|
|
dxDBGrid1Column41: TdxDBGridColumn;
|
|
|
dxDBGrid1Column42: TdxDBGridColumn;
|
|
|
dxDBGrid1Column43: TdxDBGridColumn;
|
|
|
bsSkinButton37: TbsSkinButton;
|
|
|
bsSkinButton33: TbsSkinButton;
|
|
|
t_ch_fee_do_delete: TADOQuery;
|
|
|
bsSkinButton34: TbsSkinButton;
|
|
|
bsSkinButton35: TbsSkinButton;
|
|
|
procedure FormClose(Sender: TObject; var Action: TCloseAction);
|
|
|
procedure bsSkinButton5Click(Sender: TObject);
|
|
|
procedure FormResize(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 wwDBLookupCombo10KeyPress(Sender: TObject; var Key: Char);
|
|
|
procedure wwDBLookupCombo11KeyPress(Sender: TObject; var Key: Char);
|
|
|
procedure wwDBLookupCombo12KeyPress(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 bsSkinButton38Click(Sender: TObject);
|
|
|
procedure MenuItem3Click(Sender: TObject);
|
|
|
procedure MenuItem4Click(Sender: TObject);
|
|
|
procedure bsSkinButton41Click(Sender: TObject);
|
|
|
procedure bsSkinButton42Click(Sender: TObject);
|
|
|
procedure bsSkinButton37Click(Sender: TObject);
|
|
|
procedure bsSkinButton33Click(Sender: TObject);
|
|
|
procedure bsSkinButton34Click(Sender: TObject);
|
|
|
procedure bsSkinButton35Click(Sender: TObject);
|
|
|
private
|
|
|
procedure getHldo(newdate:string);
|
|
|
|
|
|
{ Private declarations }
|
|
|
public
|
|
|
{ Public declarations }
|
|
|
end;
|
|
|
|
|
|
var
|
|
|
frm_ch_invoice: Tfrm_ch_invoice;
|
|
|
|
|
|
implementation
|
|
|
|
|
|
uses u_main, my_sys_function, u_data_share, u_ch_invoice_add,
|
|
|
u_ch_shen_query, u_ch_invoice_query, u_hd_date, u_ch_invoice_inv_do,
|
|
|
u_ch_invoice_inv_monthdo;
|
|
|
|
|
|
{$R *.dfm}
|
|
|
|
|
|
procedure Tfrm_ch_invoice.FormClose(Sender: TObject;
|
|
|
var Action: TCloseAction);
|
|
|
begin
|
|
|
savereggrid(dxdbgrid1,caption+'1');
|
|
|
savereggrid(dxdbgrid2,caption+'2');
|
|
|
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.FormResize(Sender: TObject);
|
|
|
var
|
|
|
i:integer;
|
|
|
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;
|
|
|
bsSkinButton37.Width:=i;
|
|
|
bsSkinButton33.Width:=i;
|
|
|
bsSkinButton34.Width:=i;
|
|
|
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
|
|
|
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/9);
|
|
|
bsSkinButton23.Width:=i;
|
|
|
bsSkinButton24.Width:=i;
|
|
|
bsSkinButton28.Width:=i;
|
|
|
bsSkinButton29.Width:=i;
|
|
|
bsSkinButton30.Width:=i;
|
|
|
bsSkinButton25.Width:=i;
|
|
|
bsSkinButton26.Width:=i;
|
|
|
bsSkinButton31.Width:=i;
|
|
|
end
|
|
|
else
|
|
|
begin
|
|
|
bsSkinButton25.Caption:='<27><><EFBFBD><D7BC>Ʊ';
|
|
|
bsSkinButton22.Visible:=true;
|
|
|
bsSkinButton27.Visible:=true;
|
|
|
i:=round(bsSkinPanel3.Width/11);
|
|
|
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;
|
|
|
end;
|
|
|
bsSkinButton32.Left:=dxDBGrid2.Width-bsSkinButton32.Width-20;
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_ch_invoice.FormShow(Sender: TObject);
|
|
|
begin
|
|
|
t_ch_invoice.close;
|
|
|
t_ch_invoice.sql.clear;
|
|
|
t_ch_invoice.sql.add('select top 50 * from t_ch_invoice order by <20><>Ʊ<EFBFBD><C6B1><EFBFBD><EFBFBD> desc');
|
|
|
t_ch_invoice.open;
|
|
|
ADOQuery1.open;
|
|
|
ADOQuery2.open;
|
|
|
ADOQuery3.open;
|
|
|
ADOQuery4.open;
|
|
|
t_ch_invoice_head.open;
|
|
|
|
|
|
if strtobool(get_parameters_value(1,'false'))then
|
|
|
begin
|
|
|
t_ch_invoice_shen.open;
|
|
|
end
|
|
|
else
|
|
|
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><E1BDBB><EFBFBD><EFBFBD>'+''''+')');
|
|
|
t_ch_invoice_shen.sql.add(' order by <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>');
|
|
|
t_ch_invoice_shen.Open;
|
|
|
end;
|
|
|
v_fee_do_seae.open;
|
|
|
v_fee_do_seai.open;
|
|
|
v_fee_do_aire.open;
|
|
|
v_fee_do_airi.open;
|
|
|
|
|
|
loadreggrid(dxdbgrid1,false,caption+'1');
|
|
|
loadreggrid(dxdbgrid2,false,caption+'2');
|
|
|
frm_data_share.t_crm_client_all.requery;
|
|
|
frm_data_share.t_code_currency.requery;
|
|
|
frm_data_share.t_sys_bank.requery;
|
|
|
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>̵ǼǺ<C7BC>']:=frm_data_share.t_sys_company.fieldbyname('<27><><EFBFBD>̵ǼǺ<C7BC>').value;
|
|
|
t_ch_invoice['˰<><CBB0><EFBFBD>ǼǺ<C7BC>']:=frm_data_share.t_sys_company.fieldbyname('˰<><CBB0><EFBFBD>ǼǺ<C7BC>').value;
|
|
|
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><EFBFBD><EFBFBD>б<EFBFBD>']:='<27><><EFBFBD>˷<EFBFBD>';
|
|
|
|
|
|
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;
|
|
|
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);
|
|
|
begin
|
|
|
|
|
|
IF t_ch_invoice.FieldByName('<27><>Ʊ<EFBFBD><C6B1><EFBFBD><EFBFBD>').asstring='<27><><EFBFBD>ɷ<EFBFBD>Ʊ'then
|
|
|
begin
|
|
|
t_ch_invoice['ʵ<>ʽ<EFBFBD><CABD><EFBFBD>']:=0;
|
|
|
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><CDBB><EFBFBD><EFBFBD><EFBFBD>');
|
|
|
table_before_post(t_ch_invoice,'<27>ұ<EFBFBD>');
|
|
|
if total_num(DM_Money)<>t_ch_invoice['<27>ϼƽ<CFBC><C6BD><EFBFBD>'] then
|
|
|
begin
|
|
|
showmessage('<27><>Ʊ<EFBFBD><C6B1><EFBFBD><EFBFBD><EFBFBD>б<EFBFBD><D0B1>ĺϼƽ<CFBC><C6BD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>һ<EEB2BB>£<EFBFBD><C2A3><EFBFBD>');
|
|
|
Abort;
|
|
|
end;
|
|
|
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_ch_invoice.bsSkinButton18Click(Sender: TObject);
|
|
|
begin
|
|
|
bsSkinTabSheet1.Show;
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_ch_invoice.bsSkinButton1Click(Sender: TObject);
|
|
|
begin
|
|
|
bsSkinTabSheet2.Show;
|
|
|
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 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 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><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.RxDBLookupCombo2Change(Sender: TObject);
|
|
|
begin
|
|
|
try
|
|
|
if (t_ch_invoice.state=dsinsert) or (t_ch_invoice.state=dsedit) then
|
|
|
begin
|
|
|
if not frm_data_share.t_sys_bank.IsEmpty then
|
|
|
if frm_data_share.t_sys_bank.Locate('<27><><EFBFBD><EFBFBD>',RxDBLookupCombo2.DisplayValues[0],[])then
|
|
|
t_ch_invoice['<27><><EFBFBD><EFBFBD><EFBFBD>˺<EFBFBD>']:=frm_data_share.t_sys_bank.fieldbyname('<27><><EFBFBD><EFBFBD><EFBFBD>˺<EFBFBD>').asstring;
|
|
|
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
|
|
|
currency_chi:=frm_data_share.t_code_currency.fieldbyname('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').asstring;
|
|
|
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,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.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: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;
|
|
|
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;
|
|
|
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:integer;
|
|
|
aQuery:TADOQuery;
|
|
|
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><C9BE><EFBFBD><EFBFBD><EFBFBD><EFBFBD>');
|
|
|
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;
|
|
|
aQuery:=CreateAdoQuery;
|
|
|
try
|
|
|
try
|
|
|
modify_all:=true;
|
|
|
if t_ch_fee_do_delete.Active then t_ch_fee_do_delete.Close;
|
|
|
t_ch_fee_do_delete.Open;
|
|
|
aQuery.Close;
|
|
|
aQuery.SQL.Add('select * from t_ch_fee_do where <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>='''+t_ch_invoice.fieldbyname('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').AsString+'''');
|
|
|
aQuery.Open;
|
|
|
aQuery.First;
|
|
|
while not aQuery.Eof do begin
|
|
|
t_ch_fee_do_delete.Insert;
|
|
|
t_ch_fee_do_delete['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']:=aQuery['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>'];
|
|
|
t_ch_fee_do_delete['ҵ<><D2B5><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']:=aQuery['ҵ<><D2B5><EFBFBD><EFBFBD><EFBFBD><EFBFBD>'];
|
|
|
t_ch_fee_do_delete['CH_ID']:=aQuery['CH_ID'];
|
|
|
t_ch_fee_do_delete['<27>ұ<EFBFBD>']:=aQuery['<27>ұ<EFBFBD>'];
|
|
|
t_ch_fee_do_delete['<27><><EFBFBD><EFBFBD>']:=aQuery['<27><><EFBFBD><EFBFBD>'];
|
|
|
t_ch_fee_do_delete['ԭʼ<D4AD><CABC><EFBFBD><EFBFBD>']:=aQuery['ԭʼ<D4AD><CABC><EFBFBD><EFBFBD>'];
|
|
|
t_ch_fee_do_delete['<27><><EFBFBD><EFBFBD>']:=aQuery['<27><><EFBFBD><EFBFBD>'];
|
|
|
t_ch_fee_do_delete['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']:=aQuery['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>'];
|
|
|
t_ch_fee_do_delete['<27><><EFBFBD>ֽ<EFBFBD><D6BD><EFBFBD>']:=aQuery['<27><><EFBFBD>ֽ<EFBFBD><D6BD><EFBFBD>'];
|
|
|
t_ch_fee_do_delete.Post;
|
|
|
aQuery.Next;
|
|
|
end;
|
|
|
|
|
|
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;
|
|
|
finally
|
|
|
FreeAndNil(aQuery);
|
|
|
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
|
|
|
t_ch_invoice.delete
|
|
|
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;
|
|
|
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);
|
|
|
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
|
|
|
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 bsSkinButton25.Caption='<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>Ʊ' 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 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
|
|
|
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;
|
|
|
{DBEdit19.ReadOnly:=false;
|
|
|
DE_ShipName.ReadOnly:=false;
|
|
|
DE_BLNO.ReadOnly:=false;
|
|
|
wwDBDateTimePicker2.ReadOnly:=false;
|
|
|
wwDBLookupCombo10.ReadOnly:=false;
|
|
|
wwDBLookupCombo11.ReadOnly:=false;
|
|
|
wwDBLookupCombo12.ReadOnly:=false;
|
|
|
DM_ChaCon.ReadOnly:=false;
|
|
|
DM_CostType.ReadOnly:=false;
|
|
|
DM_Money.ReadOnly:=false;
|
|
|
DE_SumUpper.ReadOnly:=false;
|
|
|
DBSumLower.ReadOnly:=false; }
|
|
|
wwDBLookupCombo6.ReadOnly:=false;
|
|
|
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;
|
|
|
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 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);
|
|
|
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.wwDBLookupCombo10KeyPress(Sender: TObject;
|
|
|
var Key: Char);
|
|
|
begin
|
|
|
key_wwDBLookupCombo(Key,wwDBLookupCombo11);
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_ch_invoice.wwDBLookupCombo11KeyPress(Sender: TObject;
|
|
|
var Key: Char);
|
|
|
begin
|
|
|
key_wwDBLookupCombo(Key,wwDBLookupCombo12);
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_ch_invoice.wwDBLookupCombo12KeyPress(Sender: TObject;
|
|
|
var Key: Char);
|
|
|
begin
|
|
|
key_DBMemo(Key,DM_ChaCon);
|
|
|
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 trim(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;
|
|
|
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.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>뿪Ʊ'+''''
|
|
|
+') '
|
|
|
+'order by <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> desc');
|
|
|
t_ch_invoice_shen.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>'+''''+') '
|
|
|
+'order by <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> desc');
|
|
|
t_ch_invoice_shen.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>'+''''+') '
|
|
|
+'order by <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> desc');
|
|
|
t_ch_invoice_shen.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>'+''''+') '
|
|
|
+'order by <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> desc');
|
|
|
t_ch_invoice_shen.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>Ʊ'+''''+') '
|
|
|
+'order by <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> desc');
|
|
|
t_ch_invoice_shen.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);
|
|
|
begin
|
|
|
t_ch_invoice_head.Requery();
|
|
|
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.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 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>');
|
|
|
end
|
|
|
else
|
|
|
begin
|
|
|
try
|
|
|
frm_hd_date:=tfrm_hd_date.Create (self);
|
|
|
frm_hd_date.ShowModal;
|
|
|
if (frm_hd_date.ModalResult=mrok) then 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['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']:=Date;
|
|
|
t_ch_invoice.post;
|
|
|
getHldo(frm_hd_date.wwDBDateTimePicker1.Text);
|
|
|
modify_all:=false;
|
|
|
except
|
|
|
modify_all:=false;
|
|
|
showmessage('<27><><EFBFBD><EFBFBD>ʧ<EFBFBD>ܣ<EFBFBD><DCA3><EFBFBD>');
|
|
|
end;
|
|
|
t_ch_invoice.Refresh;
|
|
|
end;
|
|
|
finally
|
|
|
frm_hd_date.Free;
|
|
|
frm_hd_date:=nil;
|
|
|
end;
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
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;
|
|
|
|
|
|
try
|
|
|
frm_hd_date:=tfrm_hd_date.Create (self);
|
|
|
frm_hd_date.ShowModal;
|
|
|
if (frm_hd_date.ModalResult=mrok) then begin
|
|
|
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['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']:=Date;
|
|
|
t_ch_invoice.post;
|
|
|
getHldo(frm_hd_date.wwDBDateTimePicker1.Text);
|
|
|
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;
|
|
|
finally
|
|
|
frm_hd_date.Free;
|
|
|
frm_hd_date:=nil;
|
|
|
end;
|
|
|
|
|
|
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_ch_invoice.bsSkinButton41Click(Sender: TObject);
|
|
|
begin
|
|
|
if t_ch_invoice.IsEmpty then
|
|
|
exit;
|
|
|
|
|
|
|
|
|
|
|
|
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['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']:=null;
|
|
|
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;
|
|
|
|
|
|
procedure Tfrm_ch_invoice.getHldo(newdate:string);
|
|
|
var
|
|
|
aQuery,t_ch_pay,t_ch_fee,p_accmonth:TADOQuery;
|
|
|
ttamount,exchange,rate,Oamount,damount:Double;
|
|
|
reccount,selcount:Integer;
|
|
|
begin
|
|
|
aQuery:=CreateAdoQuery;
|
|
|
t_ch_pay:=CreateAdoQuery;
|
|
|
t_ch_fee:=CreateAdoQuery;
|
|
|
p_accmonth:=CreateAdoQuery;
|
|
|
ttamount:=t_ch_invoice.FIELDBYNAME('ʵ<>ʽ<EFBFBD><CABD><EFBFBD>').AsFloat;
|
|
|
try
|
|
|
with aQuery do begin
|
|
|
close;sql.Clear;
|
|
|
SQL.Add('select * from v_fee_do_seae where <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>='''+t_ch_invoice['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']+'''');
|
|
|
Open;
|
|
|
reccount:=FieldCount;
|
|
|
selcount:=0;
|
|
|
if not aQuery.IsEmpty then begin
|
|
|
t_ch_pay.Close;
|
|
|
t_ch_pay.SQL.Text:='select top 0 * from t_ch_fee';;
|
|
|
t_ch_pay.Open;
|
|
|
First;
|
|
|
while not Eof do begin
|
|
|
selcount:=selcount+1;
|
|
|
|
|
|
t_ch_fee.Close;
|
|
|
t_ch_fee.SQL.Text:='select * from t_ch_fee WHERE CH_ID='+Fieldbyname('CH_ID').AsString;
|
|
|
t_ch_fee.Open;
|
|
|
Oamount:=StrToFloatDef(FormatFloat('0.00;-0.00;0.0',StrToFloat(FloatToStr((FieldByName('<27><><EFBFBD><EFBFBD>').AsFloat)))), 0);
|
|
|
Damount:=StrToFloatDef(FormatFloat('0.00;-0.00;0.0',StrToFloat(FloatToStr((fieldbyname('ԭʼ<D4AD><CABC><EFBFBD><EFBFBD>').AsFloat*fieldbyname('ԭʼ<D4AD><CABC><EFBFBD><EFBFBD>').AsFloat)))), 0);
|
|
|
rate:=StrToFloatDef(FormatFloat('0.00;-0.00;0.0',StrToFloat(FloatToStr(Oamount-Damount))), 0);
|
|
|
|
|
|
if (FieldByName('<27><><EFBFBD><EFBFBD>').AsString='<27><>') then
|
|
|
ttamount:=ttamount+fieldbyname('<27><><EFBFBD><EFBFBD>').AsFloat
|
|
|
else
|
|
|
ttamount:=ttamount-fieldbyname('<27><><EFBFBD><EFBFBD>').AsFloat;
|
|
|
if (selcount=reccount) and (ttamount<>0.00) then begin
|
|
|
if (FieldByName('<27><><EFBFBD><EFBFBD>').AsString='<27><>') then begin
|
|
|
rate:=rate-ttamount;
|
|
|
ttamount:=0;
|
|
|
end else begin
|
|
|
rate:=rate+ttamount;
|
|
|
ttamount:=0;
|
|
|
end;
|
|
|
end;
|
|
|
|
|
|
t_ch_pay.Insert;
|
|
|
t_ch_pay['<27><><EFBFBD><EFBFBD>']:=t_ch_fee.FieldByName('<27><><EFBFBD><EFBFBD>').AsString;
|
|
|
t_ch_pay['<27><><EFBFBD><EFBFBD>']:=Fieldbyname('<27><><EFBFBD><EFBFBD>').AsString;
|
|
|
t_ch_pay['<27><><EFBFBD><EFBFBD>״̬']:='<27><><EFBFBD><EFBFBD>ͨ<EFBFBD><CDA8>';
|
|
|
t_ch_pay['¼<><C2BC><EFBFBD><EFBFBD>']:=employee;
|
|
|
t_ch_pay['<27><><EFBFBD><EFBFBD>']:=rate;
|
|
|
t_ch_pay['<27><><EFBFBD><EFBFBD>']:=1;
|
|
|
t_ch_pay['<27><><EFBFBD><EFBFBD>']:=rate;
|
|
|
t_ch_pay['<27>ұ<EFBFBD>']:='RMB';
|
|
|
t_ch_pay['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']:='<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>';
|
|
|
t_ch_pay['<27><>']:='Ʊ';
|
|
|
t_ch_pay['<27>ͻ<EFBFBD><CDBB><EFBFBD><EFBFBD><EFBFBD>']:='';
|
|
|
t_ch_pay['<27><><EFBFBD>㵥λ']:='';
|
|
|
t_ch_pay['<27><>ע']:=t_ch_fee.Fieldbyname('<27>ͻ<EFBFBD><CDBB><EFBFBD><EFBFBD><EFBFBD>').AsString;
|
|
|
t_ch_pay.fieldbyname('<27>ұ<EFBFBD>').asstring:='RMB';
|
|
|
t_ch_pay['<27><>id']:=Fieldbyname('CH_ID').AsString;
|
|
|
t_ch_pay['<27><><EFBFBD><EFBFBD>']:=1;
|
|
|
t_ch_pay['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']:=0;
|
|
|
t_ch_pay['<27><>Ʊ<EFBFBD><C6B1><EFBFBD><EFBFBD>']:=0;
|
|
|
t_ch_pay['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']:=0;
|
|
|
t_ch_pay['<27><><EFBFBD>ֽ<EFBFBD><D6BD><EFBFBD>']:=0;
|
|
|
t_ch_pay['¼<><C2BC><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']:=newdate;
|
|
|
t_ch_pay['<27>Ƿ<EFBFBD><C7B7><EFBFBD><EFBFBD><EFBFBD>']:=0;
|
|
|
t_ch_pay['ϵͳ<CFB5><CDB3><EFBFBD><EFBFBD>']:=0;
|
|
|
t_ch_pay['˰<><CBB0>']:=0;
|
|
|
t_ch_pay['˰<><CBB0>']:=0;
|
|
|
t_ch_pay['<27><><EFBFBD><EFBFBD>˰<EFBFBD><CBB0><EFBFBD><EFBFBD>']:=0;
|
|
|
t_ch_pay['˳<><CBB3>']:=100;
|
|
|
t_ch_pay['<27><><EFBFBD><EFBFBD>']:=0;
|
|
|
t_ch_pay['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>Ʊ']:=0;
|
|
|
t_ch_pay['<27>ύ<EFBFBD><E1BDBB><EFBFBD><EFBFBD>']:=now;
|
|
|
t_ch_pay['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']:=employee;
|
|
|
t_ch_pay['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']:=newdate;
|
|
|
t_ch_pay.Post;
|
|
|
|
|
|
p_accmonth.Close;
|
|
|
p_accmonth.SQL.Text:='exec p_exec_accmonth '''+t_ch_fee.fieldbyname('<27><><EFBFBD><EFBFBD>').AsString+'''';
|
|
|
p_accmonth.ExecSQL;
|
|
|
Next;
|
|
|
|
|
|
end;
|
|
|
if (ttamount<>0) then begin
|
|
|
if (not t_ch_pay.IsEmpty) then begin
|
|
|
|
|
|
|
|
|
|
|
|
end else begin
|
|
|
|
|
|
|
|
|
if (FieldByName('<27><><EFBFBD><EFBFBD>').AsString='<27><>') then begin
|
|
|
rate:=-ttamount;
|
|
|
end else begin
|
|
|
rate:=ttamount;
|
|
|
end;
|
|
|
|
|
|
t_ch_pay.Insert;
|
|
|
t_ch_pay['<27><><EFBFBD><EFBFBD>']:=FieldByName('<27><><EFBFBD><EFBFBD>').AsString;
|
|
|
t_ch_pay['<27><><EFBFBD><EFBFBD>']:=Fieldbyname('<27><><EFBFBD><EFBFBD>').AsString;
|
|
|
t_ch_pay['<27><><EFBFBD><EFBFBD>״̬']:='<27><><EFBFBD><EFBFBD>ͨ<EFBFBD><CDA8>';
|
|
|
t_ch_pay['¼<><C2BC><EFBFBD><EFBFBD>']:=employee;
|
|
|
t_ch_pay['<27><><EFBFBD><EFBFBD>']:=rate;
|
|
|
t_ch_pay['<27><><EFBFBD><EFBFBD>']:=1;
|
|
|
t_ch_pay['<27><><EFBFBD><EFBFBD>']:=rate;
|
|
|
t_ch_pay['<27><><EFBFBD><EFBFBD>˰<EFBFBD><CBB0><EFBFBD><EFBFBD>']:=rate;
|
|
|
t_ch_pay['<27>ұ<EFBFBD>']:='RMB';
|
|
|
t_ch_pay['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']:='<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>';
|
|
|
t_ch_pay['<27><>']:='Ʊ';
|
|
|
t_ch_pay['<27>ͻ<EFBFBD><CDBB><EFBFBD><EFBFBD><EFBFBD>']:='';
|
|
|
t_ch_pay['<27><><EFBFBD>㵥λ']:=t_ch_fee.fieldbyname('<27><><EFBFBD>㵥λ').AsString;
|
|
|
t_ch_pay['<27><>ע']:=t_ch_fee.fieldbyname('<27>ͻ<EFBFBD><CDBB><EFBFBD><EFBFBD><EFBFBD>').AsString;
|
|
|
t_ch_pay.fieldbyname('<27>ұ<EFBFBD>').asstring:='RMB';
|
|
|
t_ch_pay['<27><>id']:=Fieldbyname('CH_ID').AsString;
|
|
|
t_ch_pay['<27><><EFBFBD><EFBFBD>']:=1;
|
|
|
t_ch_pay['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']:=0;
|
|
|
t_ch_pay['<27><>Ʊ<EFBFBD><C6B1><EFBFBD><EFBFBD>']:=0;
|
|
|
t_ch_pay['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']:=0;
|
|
|
t_ch_pay['<27><><EFBFBD>ֽ<EFBFBD><D6BD><EFBFBD>']:=0;
|
|
|
t_ch_pay['¼<><C2BC><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']:=now;
|
|
|
t_ch_pay['<27>Ƿ<EFBFBD><C7B7><EFBFBD><EFBFBD><EFBFBD>']:=0;
|
|
|
t_ch_pay['ϵͳ<CFB5><CDB3><EFBFBD><EFBFBD>']:=0;
|
|
|
t_ch_pay['˰<><CBB0>']:=0;
|
|
|
t_ch_pay['˰<><CBB0>']:=0;
|
|
|
t_ch_pay['<27><><EFBFBD><EFBFBD>˰<EFBFBD><CBB0><EFBFBD><EFBFBD>']:=0;
|
|
|
t_ch_pay['˳<><CBB3>']:=100;
|
|
|
t_ch_pay['<27><><EFBFBD><EFBFBD>']:=0;
|
|
|
t_ch_pay['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>Ʊ']:=0;
|
|
|
t_ch_pay['<27>ύ<EFBFBD><E1BDBB><EFBFBD><EFBFBD>']:=now;
|
|
|
t_ch_pay['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']:=employee;
|
|
|
t_ch_pay['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']:=Now;
|
|
|
t_ch_pay.Post;
|
|
|
if (FieldByName('<27><><EFBFBD><EFBFBD>').AsString='<27><>') then
|
|
|
ttamount:=ttamount+StrToFloatDef(FormatFloat('0.00;-0.00;0.0',StrToFloat(FloatToStr((fieldbyname('ԭʼ<D4AD><CABC><EFBFBD><EFBFBD>').AsFloat*fieldbyname('ԭʼ<D4AD><CABC><EFBFBD><EFBFBD>').AsFloat)))), 0)+rate
|
|
|
else
|
|
|
ttamount:=ttamount-(StrToFloatDef(FormatFloat('0.00;-0.00;0.0',StrToFloat(FloatToStr((fieldbyname('ԭʼ<D4AD><CABC><EFBFBD><EFBFBD>').AsFloat*fieldbyname('ԭʼ<D4AD><CABC><EFBFBD><EFBFBD>').AsFloat)))), 0)+rate);
|
|
|
p_accmonth.Close;
|
|
|
p_accmonth.SQL.Text:='exec p_exec_accmonth '''+t_ch_fee.fieldbyname('<27><><EFBFBD><EFBFBD>').AsString+'''';
|
|
|
p_accmonth.ExecSQL;
|
|
|
|
|
|
end;
|
|
|
end
|
|
|
|
|
|
|
|
|
end;
|
|
|
|
|
|
end;
|
|
|
finally
|
|
|
FreeAndNil(aQuery);
|
|
|
FreeAndNil(t_ch_pay);
|
|
|
FreeAndNil(t_ch_fee);
|
|
|
FreeandNil(p_accmonth);
|
|
|
end;
|
|
|
|
|
|
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.bsSkinButton37Click(Sender: TObject);
|
|
|
begin
|
|
|
if (t_ch_invoice.FieldByName('<27><>Ʊ<EFBFBD><C6B1><EFBFBD><EFBFBD>').AsFloat<>0) then begin
|
|
|
ShowMessage('<27><>¼<EFBFBD>뿪ƱRMB<4D><42><EFBFBD><EFBFBD>,<2C><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ظ<EFBFBD>¼<EFBFBD>룡');
|
|
|
exit;
|
|
|
end;
|
|
|
|
|
|
try
|
|
|
frm_ch_invoice_inv_monthdo:=tfrm_ch_invoice_inv_monthdo.Create (application);
|
|
|
frm_ch_invoice_inv_monthdo.ShowModal;
|
|
|
finally
|
|
|
frm_ch_invoice_inv_monthdo.Free;
|
|
|
frm_ch_invoice_inv_monthdo:=nil;
|
|
|
end;
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_ch_invoice.bsSkinButton33Click(Sender: TObject);
|
|
|
var
|
|
|
aQuery:TADOQuery;
|
|
|
begin
|
|
|
if (t_ch_invoice.FieldByName('<27><>Ʊ<EFBFBD><C6B1><EFBFBD><EFBFBD>').AsFloat=0) then begin
|
|
|
ShowMessage('û<><C3BB>¼<EFBFBD>뿪ƱRMB<4D><42><EFBFBD>');
|
|
|
exit;
|
|
|
end;
|
|
|
aQuery:=CreateAdoQuery;
|
|
|
try
|
|
|
with aQuery do begin
|
|
|
Close;SQL.Clear;
|
|
|
SQL.Add('select count(1) ct from t_ch_fee where <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>=''<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>'' and ISNULL(<28><><EFBFBD><EFBFBD>,0)=1 and <20><>id in (select ch_id from t_ch_fee_do where <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>='''+t_ch_invoice.fieldbyname('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').AsString+''') ');
|
|
|
Open;
|
|
|
if FieldByName('ct').AsInteger>0 then begin
|
|
|
ShowMessage('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ƾ֤<C6BE><D6A4><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ɾ<EFBFBD><C9BE><EFBFBD><EFBFBD>');
|
|
|
Exit;
|
|
|
end;
|
|
|
Close;sql.Clear;
|
|
|
SQL.Add('select * from t_ch_fee where <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>=''<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>'' and <20><>id in (select ch_id from t_ch_fee_do where <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;
|
|
|
Close;
|
|
|
SQL.Text:='update t_ch_invoice set <20><>Ʊ<EFBFBD><C6B1><EFBFBD><EFBFBD>=0,<2C><>Ʊ<EFBFBD><C6B1><EFBFBD><EFBFBD>=0 where <20>ʵ<EFBFBD><CAB5><EFBFBD><EFBFBD><EFBFBD>='''+t_ch_invoice.fieldbyname('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').asstring+'''';
|
|
|
ExecSQL;
|
|
|
t_ch_invoice.Refresh;
|
|
|
end;
|
|
|
finally
|
|
|
FreeAndNil(aQuery);
|
|
|
end;
|
|
|
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_ch_invoice.bsSkinButton34Click(Sender: TObject);
|
|
|
var
|
|
|
str:widestring;
|
|
|
if_shen:string;
|
|
|
in_id:integer;
|
|
|
aQuery:TADOQuery;
|
|
|
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><C9BE><EFBFBD><EFBFBD><EFBFBD><EFBFBD>');
|
|
|
exit;
|
|
|
end;
|
|
|
|
|
|
if_shen:=t_ch_invoice.fieldbyname('<27><>Ʊ<EFBFBD><C6B1><EFBFBD><EFBFBD>').asstring;
|
|
|
if application.MessageBox('<27><>ȷ<EFBFBD><C8B7>Ҫɾ<D2AA><C9BE><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>?','<27><><EFBFBD><EFBFBD>:',MB_OKCANCEL)=IDOK then
|
|
|
t_ch_invoice.delete
|
|
|
else
|
|
|
exit;
|
|
|
if if_shen<>'<27><><EFBFBD>ɷ<EFBFBD>Ʊ'then
|
|
|
begin
|
|
|
t_ch_invoice_shen.requery;
|
|
|
end;
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_ch_invoice.bsSkinButton35Click(Sender: TObject);
|
|
|
var
|
|
|
aQuery:TADOQuery;
|
|
|
begin
|
|
|
if t_ch_invoice.IsEmpty then
|
|
|
exit;
|
|
|
if application.MessageBox('<27><>ȷ<EFBFBD><C8B7>Ҫ<EFBFBD><D2AA><EFBFBD><EFBFBD><EFBFBD>ϳ<EFBFBD><CFB3><EFBFBD>Ʊ<EFBFBD><C6B1>?','<27><><EFBFBD><EFBFBD>:',MB_OKCANCEL)=IDOK then begin
|
|
|
aQuery:=CreateAdoQuery;
|
|
|
try
|
|
|
aQuery.Close;
|
|
|
aQuery.SQL.Clear;
|
|
|
aQuery.SQL.Add('delete from t_ch_fee_do_delete where <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>='''+t_ch_invoice.fieldbyname('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').AsString+'''');
|
|
|
aQuery.ExecSQL;
|
|
|
aQuery.Close;
|
|
|
aQuery.SQL.Clear;
|
|
|
aQuery.SQL.Add('update t_ch_invoice set <20>Ƿ<EFBFBD><C7B7>ϳ<EFBFBD>=0 where IN_ID='+t_ch_invoice.fieldbyname('IN_ID').AsString);
|
|
|
aQuery.ExecSQL;
|
|
|
t_ch_invoice.Requery();
|
|
|
finally
|
|
|
FreeAndNil(aQuery);
|
|
|
end;
|
|
|
|
|
|
end;
|
|
|
|
|
|
|
|
|
end;
|
|
|
|
|
|
end.
|
|
|
|