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 '9abf05a513'
${ noResults }
DONGSHENG6/复件 财务管理/u_ch_invoice.pas

1638 lines
50 KiB
Plaintext
Raw Normal View History Unescape Escape

1
11 months ago
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;
dxDBGrid7Column23: TdxDBGridColumn;
dxDBGrid8Column23: TdxDBGridColumn;
dxDBGrid9Column20: TdxDBGridColumn;
dxDBGrid10Column20: TdxDBGridColumn;
dxDBGrid3Column23: TdxDBGridColumn;
dxDBGrid6Column20: TdxDBGridColumn;
dxDBGrid5Column20: TdxDBGridColumn;
dxDBGrid4Column23: TdxDBGridColumn;
dxDBGrid1Column38: TdxDBGridCheckColumn;
N7: TMenuItem;
N8: TMenuItem;
N9: TMenuItem;
N19: TMenuItem;
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 N8Click(Sender: TObject);
procedure N19Click(Sender: TObject);
private
{ 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;
{$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/9);
bsSkinButton9.Width:=i;
bsSkinButton2.Width:=i;
bsSkinButton10.Width:=i;
bsSkinButton6.Width:=i;
bsSkinButton7.Width:=i;
bsSkinButton8.Width:=i;
bsSkinButton1.Width:=i;
bsSkinButton3.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>');
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,'<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: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;
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;
try
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
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.N8Click(Sender: TObject);
var
aQuery:TADOQuery;
begin
aQuery:=CreateAdoQuery;
try
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.Requery();
finally
FreeAndNil(aQuery);
end;
end;
procedure Tfrm_ch_invoice.N19Click(Sender: TObject);
var
aQuery:TADOQuery;
begin
aQuery:=CreateAdoQuery;
try
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.Requery();
finally
FreeAndNil(aQuery);
end;
end;
end.