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.
125 lines
3.0 KiB
Plaintext
125 lines
3.0 KiB
Plaintext
unit u_ch_invoice_view;
|
|
|
|
interface
|
|
|
|
uses
|
|
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
|
|
Dialogs, DB, RxLookup, StdCtrls, DBCtrls, wwdblook, Mask,
|
|
wwdbdatetimepicker, ExtCtrls, cxStyles, cxCustomData, cxGraphics,
|
|
cxFilter, cxData, cxDataStorage, cxEdit, cxDBData, cxCurrencyEdit, ADODB,
|
|
cxGridLevel, cxGridCustomTableView, cxGridTableView, cxGridDBTableView,
|
|
cxClasses, cxControls, cxGridCustomView, cxGrid;
|
|
|
|
type
|
|
Tfrm_ch_invoice_view = class(TForm)
|
|
t_ch_invoice1: TDataSource;
|
|
shp1: TShape;
|
|
lbl1: TLabel;
|
|
lbl2: TLabel;
|
|
lbl3: TLabel;
|
|
lbl4: TLabel;
|
|
shp2: TShape;
|
|
lbl5: TLabel;
|
|
lbl6: TLabel;
|
|
shp3: TShape;
|
|
lbl7: TLabel;
|
|
lbl8: TLabel;
|
|
shp4: TShape;
|
|
shp5: TShape;
|
|
lbl9: TLabel;
|
|
lbl10: TLabel;
|
|
lbl11: TLabel;
|
|
lbl12: TLabel;
|
|
shp6: TShape;
|
|
lbl13: TLabel;
|
|
lbl14: TLabel;
|
|
shp7: TShape;
|
|
lbl15: TLabel;
|
|
lbl16: TLabel;
|
|
shp8: TShape;
|
|
shp9: TShape;
|
|
lbl17: TLabel;
|
|
shp10: TShape;
|
|
shp11: TShape;
|
|
shp12: TShape;
|
|
lbl18: TLabel;
|
|
lbl19: TLabel;
|
|
shp13: TShape;
|
|
lbl20: TLabel;
|
|
lbl21: TLabel;
|
|
lbl22: TLabel;
|
|
lbl23: TLabel;
|
|
lbl24: TLabel;
|
|
lbl25: TLabel;
|
|
lbl26: TLabel;
|
|
lbl27: TLabel;
|
|
lbl28: TLabel;
|
|
lbl29: TLabel;
|
|
lbl30: TLabel;
|
|
lbl31: TLabel;
|
|
lbl32: TLabel;
|
|
shp14: TShape;
|
|
lbl33: TLabel;
|
|
wwDBDateTimePicker1: TwwDBDateTimePicker;
|
|
DE_ShipName: TDBEdit;
|
|
DE_BLNO: TDBEdit;
|
|
wwDBDateTimePicker2: TwwDBDateTimePicker;
|
|
dbmmoDM_ChaCon: TDBMemo;
|
|
dbmmoDM_CostType: TDBMemo;
|
|
dbmmoDM_Money: TDBMemo;
|
|
dbmmoDM: 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;
|
|
DBEdit27: TDBEdit;
|
|
DBEdit29: TDBEdit;
|
|
ComboBoxObjBsCard: TDBComboBox;
|
|
dbedt1: TDBEdit;
|
|
lbl34: TLabel;
|
|
lbl35: TLabel;
|
|
RxDBLookupCombo2: TRxDBLookupCombo;
|
|
lbl36: TLabel;
|
|
cxGrid2: TcxGrid;
|
|
cxGridDBTableView1: TcxGridDBTableView;
|
|
cxGridDBColumn1: TcxGridDBColumn;
|
|
cxGridDBColumn2: TcxGridDBColumn;
|
|
cxGridDBColumn3: TcxGridDBColumn;
|
|
cxGridDBColumn4: TcxGridDBColumn;
|
|
cxGridDBColumn5: TcxGridDBColumn;
|
|
cxGridDBColumn6: TcxGridDBColumn;
|
|
cxGridDBColumn7: TcxGridDBColumn;
|
|
cxGridDBColumn8: TcxGridDBColumn;
|
|
cxGridLevel1: TcxGridLevel;
|
|
t_ch_invoice_item1: TDataSource;
|
|
t_ch_invoice_item: TADOQuery;
|
|
procedure FormShow(Sender: TObject);
|
|
private
|
|
{ Private declarations }
|
|
public
|
|
{ Public declarations }
|
|
end;
|
|
|
|
var
|
|
frm_ch_invoice_view: Tfrm_ch_invoice_view;
|
|
|
|
implementation
|
|
|
|
{$R *.dfm}
|
|
|
|
procedure Tfrm_ch_invoice_view.FormShow(Sender: TObject);
|
|
begin
|
|
t_ch_invoice_item.Close;
|
|
t_ch_invoice_item.Open;
|
|
end;
|
|
|
|
end.
|