hanxuntao
/
DONGSHENG6
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity
You cannot select more than 25 topics Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
master
Branches Tags
${ item.name }
Create tag ${ searchTerm }
Create branch ${ searchTerm }
from 'master'
${ noResults }
DONGSHENG6/费用模块/u_ch_fee_sea_sales.pas

1020 lines
33 KiB
Plaintext
Raw Permalink Blame History Unescape Escape

This file contains ambiguous Unicode characters!

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

unit u_ch_fee_sea_sales;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, u_fee, bsSkinCtrls, ComCtrls, bsSkinTabs, dxExEdtr, dxDBTLCl,
dxGrClms, dxTL, dxDBCtrl, dxDBGrid, dxCntner, DB, ADODB, RxLookup,
StdCtrls, Mask, DBCtrls, wwdblook, wwdbdatetimepicker, wwdbedit,
Wwdotdot, Wwdbcomb, u_fee_zhu, bsdbctrls, Menus, XPMenu;
type
Tfrm_ch_fee_seae_sales = class(TForm)
bsSkinPanel2: TbsSkinPanel;
bsSkinButton5: TbsSkinButton;
bsSkinButton6: TbsSkinButton;
bsSkinButton7: TbsSkinButton;
bsSkinButton10: TbsSkinButton;
bsSkinButton11: TbsSkinButton;
bsSkinPageControl1: TbsSkinPageControl;
bsSkinTabSheet1: TbsSkinTabSheet;
bsSkinTabSheet2: TbsSkinTabSheet;
bsSkinTabSheet3: TbsSkinTabSheet;
bsSkinTabSheet4: TbsSkinTabSheet;
t_op_seae1: TDataSource;
t_op_state: TADOQuery;
t_op_state1: TDataSource;
fra_fee1: Tfra_fee;
bsSkinPanel4: TbsSkinPanel;
Label1: TLabel;
Label2: TLabel;
Label3: TLabel;
Label4: TLabel;
Label5: TLabel;
Label36: TLabel;
Label37: TLabel;
Label38: TLabel;
Label19: TLabel;
Label17: TLabel;
DBEdit1: TDBEdit;
DBEdit2: TDBEdit;
DBEdit3: TDBEdit;
DBEdit4: TDBEdit;
DBEdit7: TDBEdit;
DBEdit8: TDBEdit;
DBEdit9: TDBEdit;
bsSkinPanel1: TbsSkinPanel;
Label6: TLabel;
Label7: TLabel;
Label8: TLabel;
Label9: TLabel;
Label10: TLabel;
Label11: TLabel;
Label12: TLabel;
Label13: TLabel;
Label14: TLabel;
Label15: TLabel;
DBEdit5: TDBEdit;
DBEdit6: TDBEdit;
DBEdit10: TDBEdit;
DBEdit12: TDBEdit;
DBEdit13: TDBEdit;
DBEdit14: TDBEdit;
Label122: TLabel;
DBMemo33: TDBMemo;
Label121: TLabel;
DBMemo34: TDBMemo;
Label123: TLabel;
DBMemo35: TDBMemo;
Label16: TLabel;
DBMemo1: TDBMemo;
Label163: TLabel;
DBMemo38: TDBMemo;
Label158: TLabel;
DBMemo37: TDBMemo;
Label164: TLabel;
DBMemo39: TDBMemo;
Label165: TLabel;
DBMemo40: TDBMemo;
Label166: TLabel;
DBMemo41: TDBMemo;
Label167: TLabel;
DBMemo42: TDBMemo;
Label170: TLabel;
DBEdit83: TDBEdit;
Label169: TLabel;
DBEdit82: TDBEdit;
DBEdit81: TDBEdit;
DBEdit80: TDBEdit;
Label168: TLabel;
Label125: TLabel;
Label18: TLabel;
Label20: TLabel;
Label124: TLabel;
Label146: TLabel;
Label145: TLabel;
Label32: TLabel;
Label21: TLabel;
Label27: TLabel;
Label30: TLabel;
Label31: TLabel;
Label22: TLabel;
Label23: TLabel;
Label24: TLabel;
Label40: TLabel;
DBEdit15: TDBEdit;
DBEdit16: TDBEdit;
DBEdit27: TDBEdit;
DBEdit25: TDBEdit;
DBEdit17: TDBEdit;
DBEdit18: TDBEdit;
Label126: TLabel;
Label25: TLabel;
Label34: TLabel;
Label39: TLabel;
Label26: TLabel;
Label73: TLabel;
Label28: TLabel;
Label35: TLabel;
Label29: TLabel;
Label33: TLabel;
Label41: TLabel;
Label42: TLabel;
Label43: TLabel;
Label44: TLabel;
DBEdit26: TDBEdit;
DBEdit63: TDBEdit;
bsSkinTabSheet5: TbsSkinTabSheet;
dxDBGrid1: TdxDBGrid;
dxDBGrid1Column1: TdxDBGridMaskColumn;
dxDBGrid1Column2: TdxDBGridMaskColumn;
dxDBGrid1Column3: TdxDBGridMaskColumn;
dxDBGrid1Column4: TdxDBGridMaskColumn;
dxDBGrid1Column5: TdxDBGridMaskColumn;
dxDBGrid1Column6: TdxDBGridMaskColumn;
dxDBGrid1Column7: TdxDBGridMaskColumn;
dxDBGrid1Column8: TdxDBGridMaskColumn;
dxDBGrid1Column9: TdxDBGridMaskColumn;
dxDBGrid1Column10: TdxDBGridMaskColumn;
dxDBGrid1Column11: TdxDBGridMaskColumn;
dxDBGrid1Column12: TdxDBGridMaskColumn;
dxDBGrid1Column13: TdxDBGridMaskColumn;
dxDBGrid1Column14: TdxDBGridMaskColumn;
dxDBGrid1Column15: TdxDBGridMaskColumn;
dxDBGrid1Column16: TdxDBGridDateColumn;
dxDBGrid1Column17: TdxDBGridDateColumn;
dxDBGrid1Column18: TdxDBGridDateColumn;
dxDBGrid1Column19: TdxDBGridMaskColumn;
dxDBGrid1Column20: TdxDBGridMaskColumn;
dxDBGrid1Column22: TdxDBGridDateColumn;
dxDBGrid1Column23: TdxDBGridMaskColumn;
dxDBGrid1Column24: TdxDBGridMaskColumn;
dxDBGrid1Column25: TdxDBGridMaskColumn;
dxDBGrid1Column26: TdxDBGridMaskColumn;
dxDBGrid1Column27: TdxDBGridMaskColumn;
dxDBGrid1Column28: TdxDBGridMaskColumn;
dxDBGrid1Column29: TdxDBGridMaskColumn;
dxDBGrid1Column30: TdxDBGridMaskColumn;
dxDBGrid1Column31: TdxDBGridDateColumn;
dxDBGrid1Column32: TdxDBGridMaskColumn;
dxDBGrid1Column33: TdxDBGridMaskColumn;
dxDBGrid1Column34: TdxDBGridMaskColumn;
dxDBGrid1Column35: TdxDBGridMaskColumn;
dxDBGrid1Column36: TdxDBGridMaskColumn;
dxDBGrid1Column37: TdxDBGridMaskColumn;
dxDBGrid1Column38: TdxDBGridMaskColumn;
dxDBGrid11: TdxDBGridMaskColumn;
dxDBGrid12: TdxDBGridMaskColumn;
dxDBGrid13: TdxDBGridMaskColumn;
dxDBGrid14: TdxDBGridMaskColumn;
dxDBGrid15: TdxDBGridMaskColumn;
dxDBGrid16: TdxDBGridMaskColumn;
dxDBGrid17: TdxDBGridMaskColumn;
dxDBGrid18: TdxDBGridMaskColumn;
dxDBGrid19: TdxDBGridMaskColumn;
dxDBGrid110: TdxDBGridMaskColumn;
dxDBGrid1Column61: TdxDBGridMaskColumn;
dxDBGrid1TEU: TdxDBGridMaskColumn;
dxDBGrid1Column63: TdxDBGridMaskColumn;
dxDBGrid1Column64: TdxDBGridMaskColumn;
dxDBGrid1Column65: TdxDBGridDateColumn;
dxDBGrid1Column66: TdxDBGridMaskColumn;
dxDBGrid1Column67: TdxDBGridMaskColumn;
dxDBGrid1Column72: TdxDBGridMaskColumn;
dxDBGrid1Column68: TdxDBGridMaskColumn;
dxDBGrid1Column69: TdxDBGridMaskColumn;
dxDBGrid1Column70: TdxDBGridMaskColumn;
dxDBGrid1Column74: TdxDBGridMaskColumn;
dxDBGrid1Column75: TdxDBGridMaskColumn;
dxDBGrid1Column39: TdxDBGridColumn;
dxDBGrid1Column40: TdxDBGridColumn;
dxDBGrid2: TdxDBGrid;
dxDBGrid2Column1: TdxDBGridMaskColumn;
dxDBGrid2Column2: TdxDBGridCheckColumn;
dxDBGrid2Column3: TdxDBGridDateColumn;
dxDBGrid2Column4: TdxDBGridMaskColumn;
dxDBGrid2Column5: TdxDBGridMaskColumn;
bsSkinPanel3: TbsSkinPanel;
Label58: TLabel;
Label59: TLabel;
Label60: TLabel;
Label61: TLabel;
Label62: TLabel;
Label63: TLabel;
Label64: TLabel;
Label65: TLabel;
Label66: TLabel;
Label67: TLabel;
DBEdit23: TDBEdit;
DBEdit24: TDBEdit;
DBEdit28: TDBEdit;
DBEdit29: TDBEdit;
DBEdit30: TDBEdit;
DBEdit31: TDBEdit;
DBEdit32: TDBEdit;
bsSkinPanel5: TbsSkinPanel;
Label68: TLabel;
Label69: TLabel;
Label70: TLabel;
Label71: TLabel;
Label72: TLabel;
Label74: TLabel;
Label75: TLabel;
Label76: TLabel;
Label77: TLabel;
Label78: TLabel;
DBEdit33: TDBEdit;
DBEdit34: TDBEdit;
DBEdit35: TDBEdit;
DBEdit36: TDBEdit;
DBEdit37: TDBEdit;
DBEdit38: TDBEdit;
DBEdit39: TDBEdit;
dxDBGrid2Column6: TdxDBGridColumn;
dxDBGrid2Column7: TdxDBGridColumn;
dxDBGrid1Column73: TdxDBGridColumn;
DBEdit11: TDBEdit;
Label79: TLabel;
DBEdit40: TDBEdit;
bsSkinButton1: TbsSkinButton;
XPMenu1: TXPMenu;
PopupMenu2: TPopupMenu;
N10: TMenuItem;
N11: TMenuItem;
N14: TMenuItem;
N13: TMenuItem;
N12: TMenuItem;
N15: TMenuItem;
N16: TMenuItem;
bsSkinGroupBox1: TbsSkinGroupBox;
Label45: TLabel;
Label46: TLabel;
Label47: TLabel;
Label48: TLabel;
DBEdit19: TDBEdit;
bsSkinGroupBox5: TbsSkinGroupBox;
bsSkinGroupBox2: TbsSkinGroupBox;
Label49: TLabel;
Label50: TLabel;
Label51: TLabel;
Label52: TLabel;
Label53: TLabel;
Label54: TLabel;
Label55: TLabel;
Label56: TLabel;
Label57: TLabel;
Label80: TLabel;
Label81: TLabel;
Label82: TLabel;
Label83: TLabel;
wwDBDateTimePicker5: TwwDBDateTimePicker;
DBEdit20: TDBEdit;
DBEdit21: TDBEdit;
DBEdit22: TDBEdit;
wwDBDateTimePicker9: TwwDBDateTimePicker;
bsSkinDBCheckRadioBox7: TbsSkinDBCheckRadioBox;
wwDBDateTimePicker10: TwwDBDateTimePicker;
DBEdit41: TDBEdit;
bsSkinDBCheckRadioBox8: TbsSkinDBCheckRadioBox;
DBEdit42: TDBEdit;
DBEdit43: TDBEdit;
DBEdit44: TDBEdit;
DBMemo11: TDBMemo;
DBMemo12: TDBMemo;
bsSkinGroupBox3: TbsSkinGroupBox;
t_op_card: TADOQuery;
t_op_card1: TDataSource;
dxDBGrid3: TdxDBGrid;
dxDBGridButtonColumn1: TdxDBGridButtonColumn;
dxDBGridMaskColumn1: TdxDBGridMaskColumn;
dxDBGridDateColumn1: TdxDBGridDateColumn;
dxDBGridDateColumn2: TdxDBGridDateColumn;
dxDBGridCheckColumn1: TdxDBGridCheckColumn;
dxDBGridDateColumn3: TdxDBGridDateColumn;
dxDBGridCheckColumn2: TdxDBGridCheckColumn;
dxDBGridDateColumn4: TdxDBGridDateColumn;
dxDBGridMaskColumn2: TdxDBGridMaskColumn;
DBEdit45: TDBEdit;
DBEdit46: TDBEdit;
DBEdit47: TDBEdit;
DBEdit48: TDBEdit;
DBEdit49: TDBEdit;
DBEdit50: TDBEdit;
DBEdit51: TDBEdit;
DBEdit52: TDBEdit;
DBEdit53: TDBEdit;
DBEdit54: TDBEdit;
DBEdit55: TDBEdit;
DBEdit56: TDBEdit;
DBEdit57: TDBEdit;
DBEdit58: TDBEdit;
DBEdit59: TDBEdit;
DBEdit60: TDBEdit;
DBEdit61: TDBEdit;
DBEdit62: TDBEdit;
DBEdit64: TDBEdit;
DBEdit65: TDBEdit;
DBEdit66: TDBEdit;
DBEdit67: TDBEdit;
DBEdit68: TDBEdit;
DBEdit69: TDBEdit;
DBEdit70: TDBEdit;
DBEdit71: TDBEdit;
DBEdit72: TDBEdit;
DBEdit73: TDBEdit;
DBEdit74: TDBEdit;
DBEdit75: TDBEdit;
DBEdit76: TDBEdit;
DBEdit77: TDBEdit;
DBEdit78: TDBEdit;
DBEdit79: TDBEdit;
DBEdit84: TDBEdit;
DBEdit85: TDBEdit;
DBEdit86: TDBEdit;
DBEdit87: TDBEdit;
DBEdit88: TDBEdit;
DBEdit89: TDBEdit;
DBEdit90: TDBEdit;
DBEdit91: TDBEdit;
DBEdit92: TDBEdit;
t_op_seae: TADOStoredProc;
PopupMenu3: TPopupMenu;
N37: TMenuItem;
N38: TMenuItem;
N17: TMenuItem;
N18: TMenuItem;
N34: TMenuItem;
N35: TMenuItem;
N36: TMenuItem;
bsSkinDBCheckRadioBox1: TbsSkinDBCheckRadioBox;
bsSkinDBCheckRadioBox2: TbsSkinDBCheckRadioBox;
bsSkinDBCheckRadioBox3: TbsSkinDBCheckRadioBox;
bsSkinDBCheckRadioBox5: TbsSkinDBCheckRadioBox;
bsSkinDBCheckRadioBox4: TbsSkinDBCheckRadioBox;
bsSkinDBCheckRadioBox6: TbsSkinDBCheckRadioBox;
bsSkinDBCheckRadioBox9: TbsSkinDBCheckRadioBox;
bsSkinDBCheckRadioBox10: TbsSkinDBCheckRadioBox;
bsSkinDBCheckRadioBox11: TbsSkinDBCheckRadioBox;
N1: TMenuItem;
N2: TMenuItem;
N3: TMenuItem;
N4: TMenuItem;
N5: TMenuItem;
N6: TMenuItem;
N7: TMenuItem;
N8: TMenuItem;
dxDBGrid1Column71: TdxDBGridCheckColumn;
bsSkinButton38: TbsSkinButton;
dxDBGrid1Column76: TdxDBGridColumn;
bsSkinButton2: TbsSkinButton;
dxDBGrid1Column77: TdxDBGridColumn;
bsSkinButton3: TbsSkinButton;
dxDBGrid1Column78: TdxDBGridColumn;
Label84: TLabel;
DBMemo2: TDBMemo;
dxDBGrid1Column79: TdxDBGridColumn;
dxDBGrid1Column80: TdxDBGridColumn;
bsSkinButton4: TbsSkinButton;
Label85: TLabel;
DBEdit93: TDBEdit;
bsSkinButton8: TbsSkinButton;
dxDBGrid1Column81: TdxDBGridColumn;
dxDBGrid1Column82: TdxDBGridColumn;
dxDBGrid1Column83: TdxDBGridColumn;
bsSkinButton9: TbsSkinButton;
procedure FormClose(Sender: TObject; var Action: TCloseAction);
procedure bsSkinButton5Click(Sender: TObject);
procedure FormShow(Sender: TObject);
procedure dxDBGrid1DblClick(Sender: TObject);
procedure bsSkinButton11Click(Sender: TObject);
procedure bsSkinButton7Click(Sender: TObject);
procedure bsSkinButton6Click(Sender: TObject);
procedure bsSkinButton10Click(Sender: TObject);
procedure dxDBGrid1Column3CustomDraw(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 dxDBGrid1Column2CustomDraw(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 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 bsSkinButton1Click(Sender: TObject);
procedure N37Click(Sender: TObject);
procedure N17Click(Sender: TObject);
procedure N34Click(Sender: TObject);
procedure N36Click(Sender: TObject);
procedure N1Click(Sender: TObject);
procedure N4Click(Sender: TObject);
procedure N5Click(Sender: TObject);
procedure N8Click(Sender: TObject);
procedure bsSkinButton38Click(Sender: TObject);
procedure dxDBGrid1Column76CustomDraw(Sender: TObject;
ACanvas: TCanvas; ARect: TRect; ANode: TdxTreeListNode;
AColumn: TdxDBTreeListColumn; const AText: String; AFont: TFont;
var AColor: TColor; ASelected, AFocused: Boolean;
var ADone: Boolean);
procedure fra_fee1bsSkinButton6Click(Sender: TObject);
procedure fra_fee1bsSkinButton7Click(Sender: TObject);
procedure fra_fee1bsSkinButton17Click(Sender: TObject);
procedure fra_fee1bsSkinButton18Click(Sender: TObject);
procedure bsSkinButton2Click(Sender: TObject);
procedure dxDBGrid1CustomDraw(Sender: TObject; ACanvas: TCanvas;
ARect: TRect; ANode: TdxTreeListNode; AColumn: TdxDBTreeListColumn;
const AText: String; AFont: TFont; var AColor: TColor; ASelected,
AFocused: Boolean; var ADone: Boolean);
procedure bsSkinButton3Click(Sender: TObject);
procedure dxDBGrid1Column78CustomDraw(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 bsSkinButton4Click(Sender: TObject);
procedure bsSkinButton8Click(Sender: TObject);
procedure dxDBGrid1Column81CustomDraw(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 bsSkinButton9Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
frm_ch_fee_seae_sales: Tfrm_ch_fee_seae_sales;
implementation
uses u_main, my_sys_function, u_data_share;
{$R *.dfm}
procedure Tfrm_ch_fee_seae_sales.FormClose(Sender: TObject;
var Action: TCloseAction);
begin
savereggrid(dxdbgrid1,caption);
savewwgrid(fra_fee1.wwDBGrid1,'<27><><EFBFBD>˳<EFBFBD><CBB3><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>Ӧ<EFBFBD><D3A6>');
savewwgrid(fra_fee1.wwDBGrid2,'<27><><EFBFBD>˳<EFBFBD><CBB3><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>Ӧ<EFBFBD><D3A6>');
frm_ch_fee_seae_sales.Hide;
frm_ch_fee_seae_sales.ManualFloat(frm_ch_fee_seae_sales.BoundsRect );
frm_main.freeTabs('frm_ch_fee_seae_sales');
action:=cafree;
frm_ch_fee_seae_sales:=nil;
end;
procedure Tfrm_ch_fee_seae_sales.bsSkinButton5Click(Sender: TObject);
begin
close;
end;
procedure Tfrm_ch_fee_seae_sales.FormShow(Sender: TObject);
begin
t_op_state.close;
t_op_seae.Close;
t_op_seae.Parameters.ParamByName('SQLStr').value:='select * from t_op_seae where '
+' SUBSTRING(CONVERT(char(15),<2C><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>,111),1,7)='''+FormatDateTime('YYYY',Date)+'/'+FormatDateTime('MM',Date)+''' and '
+'<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>='+''''+employee+''''
+default_sort(53,'t_op_seae','','desc');
t_op_seae.open;
t_op_state.open;
t_op_card.open;
loadreggrid(dxdbgrid1,true,caption);
dxDBGrid1Column71.ReadOnly:=true;
bsSkinButton7.Width:=round(frm_ch_fee_seae_sales.Width/10);
bsSkinButton6.Width:=round(frm_ch_fee_seae_sales.Width/10);
bsSkinButton1.Width:=round(frm_ch_fee_seae_sales.Width/10);
bsSkinButton10.Width:=round(frm_ch_fee_seae_sales.Width/10);
bsSkinButton11.Width:=round(frm_ch_fee_seae_sales.Width/10);
bsSkinButton38.Width:=round(frm_ch_fee_seae_sales.Width/10);
bsSkinButton2.Width:=round(frm_ch_fee_seae_sales.Width/10);
bsSkinButton4.Width:=round(frm_ch_fee_seae_sales.Width/10);
bsSkinButton9.Width:=round(frm_ch_fee_seae_sales.Width/10);
loadwwgrid(fra_fee1.wwDBGrid1,'<27><><EFBFBD>˳<EFBFBD><CBB3><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>Ӧ<EFBFBD><D3A6>');
loadwwgrid(fra_fee1.wwDBGrid2,'<27><><EFBFBD>˳<EFBFBD><CBB3><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>Ӧ<EFBFBD><D3A6>');
fra_fee1.edit_type.text:='1';
fra_fee1.edit_data.text:='0021';
fra_fee1.edit_report.text:='<27><><EFBFBD>˳<EFBFBD><CBB3><EFBFBD>';
fra_fee1.t_ch_accept.DataSource:=t_op_seae1;
if strtobool(get_parameters_value(150,'false')) then
fra_fee1.bsSkinPanel3.Visible:=true;
fra_fee1.DBEdit48.DataSource:=t_op_seae1;
if if_open('293') then
begin
fra_fee1.t_ch_accept.DataSource:=t_op_seae1;
if (strtobool(get_parameters_value(153,'false'))=true) then
begin
if (strtobool(get_parameters_value(64,'false'))=true) and (if_open('206')=false) then
begin
fra_fee1.t_ch_accept.close;
fra_fee1.t_ch_accept.SQL.Clear;
fra_fee1.t_ch_accept.SQL.Add('select top 100 * from t_ch_fee where <20><><EFBFBD><EFBFBD>='
+''''+'<27><>'+''''+' and <20><><EFBFBD><EFBFBD>=:<3A><><EFBFBD><EFBFBD> and (¼<><C2BC><EFBFBD><EFBFBD>='
+''''+employee+''''+' or (¼<><C2BC><EFBFBD><EFBFBD><>'+''''+employee+''''
+' and <20><><EFBFBD><EFBFBD><>1) ) and '+open_data('7000','¼<><C2BC><EFBFBD><EFBFBD>','no','no','no','no')
+' order by ˳<><CBB3>,CH_ID');
end else begin
fra_fee1.t_ch_accept.close;
fra_fee1.t_ch_accept.SQL.Clear;
fra_fee1.t_ch_accept.SQL.Add('select top 100 * from t_ch_fee where <20><><EFBFBD><EFBFBD>='
+''''+'<27><>'+''''+' and <20><><EFBFBD><EFBFBD>=:<3A><><EFBFBD><EFBFBD> and '
+open_data('7000','¼<><C2BC><EFBFBD><EFBFBD>','no','no','no','no')
+' order by ˳<><CBB3>,CH_ID');
end;
fra_fee1.t_ch_accept.open;
end
else
begin
if (strtobool(get_parameters_value(64,'false'))=true) and (if_open('206')=false) then
begin
fra_fee1.t_ch_accept.close;
fra_fee1.t_ch_accept.SQL.Clear;
fra_fee1.t_ch_accept.SQL.Add('select top 100 * from t_ch_fee where <20><><EFBFBD><EFBFBD>='
+''''+'<27><>'+''''+' and <20><><EFBFBD><EFBFBD>=:<3A><><EFBFBD><EFBFBD> and (¼<><C2BC><EFBFBD><EFBFBD>='
+''''+employee+''''+' or (¼<><C2BC><EFBFBD><EFBFBD><>'+''''+employee+''''
+' and <20><><EFBFBD><EFBFBD><>1) ) order by ˳<><CBB3>,CH_ID');
end;
fra_fee1.t_ch_accept.open;
end;
fra_fee1.a_shen_delete.open;
fra_fee1.a_shen_modify_old.open;
fra_fee1.a_shen_modify_new.open;
fra_fee1.Panel3.visible:=true;
end
else
begin
fra_fee1.Panel3.visible:=false;
end;
if if_open('294') then
begin
fra_fee1.t_ch_pay.DataSource:=t_op_seae1;
if (strtobool(get_parameters_value(153,'false'))=true) then begin
if (strtobool(get_parameters_value(64,'false'))=true) and (if_open('206')=false) then
begin
fra_fee1.t_ch_pay.close;
fra_fee1.t_ch_pay.SQL.Clear;
fra_fee1.t_ch_pay.SQL.Add('select top 100 * from t_ch_fee where <20><><EFBFBD><EFBFBD>='
+''''+'<27><>'+''''+' and <20><><EFBFBD><EFBFBD>=:<3A><><EFBFBD><EFBFBD> and (¼<><C2BC><EFBFBD><EFBFBD>='
+''''+employee+''''+' or (¼<><C2BC><EFBFBD><EFBFBD><>'+''''+employee+''''
+' and <20><><EFBFBD><EFBFBD><>1) ) and '+open_data('7000','¼<><C2BC><EFBFBD><EFBFBD>','no','no','no','no')
+' order by ˳<><CBB3>,CH_ID');
end else begin
fra_fee1.t_ch_pay.close;
fra_fee1.t_ch_pay.SQL.Clear;
fra_fee1.t_ch_pay.SQL.Add('select top 100 * from t_ch_fee where <20><><EFBFBD><EFBFBD>='
+''''+'<27><>'+''''+' and <20><><EFBFBD><EFBFBD>=:<3A><><EFBFBD><EFBFBD> and '
+open_data('7000','¼<><C2BC><EFBFBD><EFBFBD>','no','no','no','no')
+' order by ˳<><CBB3>,CH_ID');
end;
fra_fee1.t_ch_pay.open;
end else begin
if (strtobool(get_parameters_value(64,'false'))=true) and (if_open('206')=false) then
begin
fra_fee1.t_ch_pay.close;
fra_fee1.t_ch_pay.SQL.Clear;
fra_fee1.t_ch_pay.SQL.Add('select * from t_ch_fee where <20><><EFBFBD><EFBFBD>='
+''''+'<27><>'+''''+' and <20><><EFBFBD><EFBFBD>=:<3A><><EFBFBD><EFBFBD> and (¼<><C2BC><EFBFBD><EFBFBD>='
+''''+employee+''''+' or (¼<><C2BC><EFBFBD><EFBFBD><>'+''''+employee+''''
+' and <20><><EFBFBD><EFBFBD><>1) ) order by ˳<><CBB3>,CH_ID');
end;
fra_fee1.t_ch_pay.open;
end;
fra_fee1.p_shen_delete.open;
fra_fee1.p_shen_modify_old.open;
fra_fee1.p_shen_modify_new.open;
fra_fee1.Panel1.visible:=true;
end
else
begin
fra_fee1.Panel1.visible:=false;
end;
if fra_fee1.Panel1.visible and
fra_fee1.Panel3.visible then
begin
if if_open('226') then begin
fra_fee1.Panel8.Visible:=true;
fra_fee1.Panel8.Height:=20;
end else
fra_fee1.Panel8.Visible:=false;
fra_fee1.t_op_gain.DataSource:=t_op_seae1;
fra_fee1.t_op_gain.open;
fra_fee1.Panel9.Visible:=false;
end
else
begin
fra_fee1.Panel8.Visible:=false;
end;
frm_data_share.t_crm_client.requery;
frm_data_share.t_code_currency.requery;
if G_ZWCHK='TRUE' then
begin
bsSkinButton11.Visible:=false ;
bsSkinTabSheet2.TabVisible:=false ;
end ;
end;
procedure Tfrm_ch_fee_seae_sales.dxDBGrid1DblClick(Sender: TObject);
begin
bsSkinTabSheet3.Show;
end;
procedure Tfrm_ch_fee_seae_sales.bsSkinButton11Click(Sender: TObject);
begin
bsSkinTabSheet2.Show;
end;
procedure Tfrm_ch_fee_seae_sales.bsSkinButton7Click(Sender: TObject);
begin
if not t_op_seae.Bof then
t_op_seae.Prior;
end;
procedure Tfrm_ch_fee_seae_sales.bsSkinButton6Click(Sender: TObject);
begin
if not t_op_seae.eof then
t_op_seae.next;
end;
procedure Tfrm_ch_fee_seae_sales.bsSkinButton10Click(Sender: TObject);
begin
query_seae(2,'0021');
end;
procedure Tfrm_ch_fee_seae_sales.dxDBGrid1Column3CustomDraw(
Sender: TObject; ACanvas: TCanvas; ARect: TRect; ANode: TdxTreeListNode;
AColumn: TdxDBTreeListColumn; const AText: String; AFont: TFont;
var AColor: TColor; ASelected, AFocused: Boolean; var ADone: Boolean);
begin
AColor:=dxgrid_color_fee(ANode.strings[dxDBGrid1Column3.Index]);
AFont.Color:=clblack;
end;
procedure Tfrm_ch_fee_seae_sales.dxDBGrid1Column2CustomDraw(
Sender: TObject; ACanvas: TCanvas; ARect: TRect; ANode: TdxTreeListNode;
AColumn: TdxDBTreeListColumn; const AText: String; AFont: TFont;
var AColor: TColor; ASelected, AFocused: Boolean; var ADone: Boolean);
begin
AColor:=dxgrid_color('<27><><EFBFBD>˳<EFBFBD><CBB3><EFBFBD>',ANode.Strings[dxDBGrid1Column2.Index]);
AFont.Color:=clblack;
end;
procedure Tfrm_ch_fee_seae_sales.N10Click(Sender: TObject);
begin
update_grid_view_no(dxdbgrid1);
end;
procedure Tfrm_ch_fee_seae_sales.N14Click(Sender: TObject);
begin
update_grid_view_all(dxdbgrid1);
end;
procedure Tfrm_ch_fee_seae_sales.N12Click(Sender: TObject);
begin
update_grid(dxdbgrid1,11);
end;
procedure Tfrm_ch_fee_seae_sales.N16Click(Sender: TObject);
begin
grid_save_xls(dxdbgrid1);
end;
procedure Tfrm_ch_fee_seae_sales.dxDBGrid1ColumnSorting(Sender: TObject;
Column: TdxDBTreeListColumn; var Allow: Boolean);
begin
Column_sort_pro(Column,t_op_seae,'ҵ<><D2B5><EFBFBD><EFBFBD><EFBFBD><EFBFBD>');
end;
procedure Tfrm_ch_fee_seae_sales.bsSkinButton1Click(Sender: TObject);
var
Pnt:Tpoint;
begin
Pnt:=bsSkinButton1.ClientToScreen(Point(0,bsSkinButton1.Height));
PopupMenu3.Popup(Pnt.x,Pnt.y);
end;
procedure Tfrm_ch_fee_seae_sales.N37Click(Sender: TObject);
begin
t_op_seae.Close;
t_op_seae.Parameters.ParamByName('SQLStr').value:='select * from t_op_seae where '
+open_data('0021','<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>','<27><><EFBFBD><EFBFBD>Ա','<27>ͷ<EFBFBD>Ա','<27><><EFBFBD>ز<EFBFBD><D8B2><EFBFBD>','<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>')
+' and <20><><EFBFBD><EFBFBD> in (select distinct <20><><EFBFBD><EFBFBD> from t_op_state where <20>Ƿ<EFBFBD><C7B7><EFBFBD><EFBFBD><EFBFBD><>1) '
+default_sort(53,'t_op_seae','','desc');
t_op_seae.open;
end;
procedure Tfrm_ch_fee_seae_sales.N17Click(Sender: TObject);
begin
t_op_seae.Close;
t_op_seae.Parameters.ParamByName('SQLStr').value:='select * from t_op_seae where '
+open_data('0021','<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>','<27><><EFBFBD><EFBFBD>Ա','<27>ͷ<EFBFBD>Ա','<27><><EFBFBD>ز<EFBFBD><D8B2><EFBFBD>','<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>')
+' and <20><><EFBFBD><EFBFBD> in (select distinct <20><><EFBFBD><EFBFBD> from t_ch_fee where <20><><EFBFBD><EFBFBD>״̬='
+''''+'¼<><C2BC>״̬'+''''+') '
+default_sort(53,'t_op_seae','','desc');
t_op_seae.open;
end;
procedure Tfrm_ch_fee_seae_sales.N34Click(Sender: TObject);
begin
t_op_seae.Close;
t_op_seae.Parameters.ParamByName('SQLStr').value:='select * from t_op_seae where '
+open_data('0021','<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>','<27><><EFBFBD><EFBFBD>Ա','<27>ͷ<EFBFBD>Ա','<27><><EFBFBD>ز<EFBFBD><D8B2><EFBFBD>','<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>')
+' and <20><><EFBFBD><EFBFBD> in (select distinct <20><><EFBFBD><EFBFBD> from t_ch_fee where <20><><EFBFBD><EFBFBD>״̬ in ('
+''''+'<27><><EFBFBD><EFBFBD><EFBFBD>ύ'+''''+','+''''+'<27><>ֹ<EFBFBD>޸<EFBFBD>'+''''+','+''''+'<27><>ֹɾ<D6B9><C9BE>'+''''+')) '
+default_sort(53,'t_op_seae','','desc');
t_op_seae.open;
end;
procedure Tfrm_ch_fee_seae_sales.N36Click(Sender: TObject);
begin
t_op_seae.Close;
t_op_seae.Parameters.ParamByName('SQLStr').value:='select * from t_op_seae where '
+open_data('0021','<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>','<27><><EFBFBD><EFBFBD>Ա','<27>ͷ<EFBFBD>Ա','<27><><EFBFBD>ز<EFBFBD><D8B2><EFBFBD>','<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>')
+' and <20><><EFBFBD><EFBFBD> in (select distinct <20><><EFBFBD><EFBFBD> from t_ch_fee where <20><><EFBFBD><EFBFBD>״̬ in ('
+''''+'<27>ύ<EFBFBD><E1BDBB><EFBFBD><EFBFBD>'+''''+','+''''+'<27><><EFBFBD><EFBFBD><EFBFBD>޸<EFBFBD>'+''''+','+''''+'<27><><EFBFBD><EFBFBD>ɾ<EFBFBD><C9BE>'+''''+')) '
+default_sort(53,'t_op_seae','','desc');
t_op_seae.open;
end;
procedure Tfrm_ch_fee_seae_sales.N1Click(Sender: TObject);
begin
t_op_seae.Close;
t_op_seae.Parameters.ParamByName('SQLStr').value:='select * from t_op_seae where '
+open_data('0021','<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>','<27><><EFBFBD><EFBFBD>Ա','<27>ͷ<EFBFBD>Ա','<27><><EFBFBD>ز<EFBFBD><D8B2><EFBFBD>','<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>')
+' and <20><><EFBFBD><EFBFBD>״̬<>'+''''+'<27><><EFBFBD>÷<EFBFBD><C3B7><EFBFBD>'+''''
+' and <20><><EFBFBD><EFBFBD> not in (select distinct <20><><EFBFBD><EFBFBD> from t_ch_fee where <20><><EFBFBD><EFBFBD>='+''''+'<27><>'+''''+')'
+default_sort(53,'t_op_seae','','desc');
t_op_seae.open;
end;
procedure Tfrm_ch_fee_seae_sales.N4Click(Sender: TObject);
begin
t_op_seae.Close;
t_op_seae.Parameters.ParamByName('SQLStr').value:='select * from t_op_seae where '
+open_data('0021','<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>','<27><><EFBFBD><EFBFBD>Ա','<27>ͷ<EFBFBD>Ա','<27><><EFBFBD>ز<EFBFBD><D8B2><EFBFBD>','<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>')
+' and <20><><EFBFBD><EFBFBD>״̬<>'+''''+'<27><><EFBFBD>÷<EFBFBD><C3B7><EFBFBD>'+''''
+' and <20><><EFBFBD><EFBFBD> not in (select distinct <20><><EFBFBD><EFBFBD> from t_ch_fee where <20><><EFBFBD><EFBFBD>='+''''+'<27><>'+''''+')'
+default_sort(53,'t_op_seae','','desc');
t_op_seae.open;
end;
procedure Tfrm_ch_fee_seae_sales.N5Click(Sender: TObject);
begin
t_op_seae.Close;
t_op_seae.Parameters.ParamByName('SQLStr').value:='select * from t_op_seae where '
+open_data('0021','<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>','<27><><EFBFBD><EFBFBD>Ա','<27>ͷ<EFBFBD>Ա','<27><><EFBFBD>ز<EFBFBD><D8B2><EFBFBD>','<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>')
+' and <20><><EFBFBD><EFBFBD>״̬<>'+''''+'<27><><EFBFBD>÷<EFBFBD><C3B7><EFBFBD>'+''''
+' and <20><><EFBFBD><EFBFBD> not in (select distinct <20><><EFBFBD><EFBFBD> from t_ch_fee )'
+default_sort(53,'t_op_seae','','desc');
t_op_seae.open;
end;
procedure Tfrm_ch_fee_seae_sales.N8Click(Sender: TObject);
begin
t_op_seae.Close;
t_op_seae.Parameters.ParamByName('SQLStr').value:='select * from t_op_seae where '
+open_data('0021','<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>','<27><><EFBFBD><EFBFBD>Ա','<27>ͷ<EFBFBD>Ա','<27><><EFBFBD>ز<EFBFBD><D8B2><EFBFBD>','<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>')
+' and <20><><EFBFBD><EFBFBD>״̬<>'+''''+'<27><><EFBFBD>÷<EFBFBD><C3B7><EFBFBD>'+''''
+' and <20><><EFBFBD><EFBFBD> in (select distinct <20><><EFBFBD><EFBFBD> from t_ch_fee where <20><><EFBFBD><EFBFBD>״̬<>'+''''+'<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>'+''''+')'
+default_sort(53,'t_op_seae','','desc');
t_op_seae.open;
end;
procedure Tfrm_ch_fee_seae_sales.bsSkinButton38Click(Sender: TObject);
begin
if t_op_seae.IsEmpty then
exit;
if t_op_seae['<27><><EFBFBD>۶<EFBFBD><DBB6><EFBFBD>'] then
salesorder_view(t_op_seae.fieldbyname('<27><><EFBFBD><EFBFBD>').AsString);
end;
procedure Tfrm_ch_fee_seae_sales.dxDBGrid1Column76CustomDraw(
Sender: TObject; ACanvas: TCanvas; ARect: TRect; ANode: TdxTreeListNode;
AColumn: TdxDBTreeListColumn; const AText: String; AFont: TFont;
var AColor: TColor; ASelected, AFocused: Boolean; var ADone: Boolean);
begin
AColor:=dxgrid_color('<27><><EFBFBD>˳<EFBFBD><CBB3><EFBFBD>',ANode.Strings[dxDBGrid1Column76.Index]);
AFont.Color:=clblack;
end;
procedure Tfrm_ch_fee_seae_sales.fra_fee1bsSkinButton6Click(
Sender: TObject);
begin
if date>=t_op_seae1.DataSet.FieldByName('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').Value then
if not StrToBool(get_parameters_value(157,'false')) then
begin
ShowMessage('<27>Ѿ<EFBFBD><D1BE><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>޸ķ<DEB8><C4B7><EFBFBD>');
Exit;
end;
fra_fee1.bsSkinButton6Click(Sender);
end;
procedure Tfrm_ch_fee_seae_sales.fra_fee1bsSkinButton7Click(
Sender: TObject);
begin
if date>=t_op_seae1.DataSet.FieldByName('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').Value then
if not StrToBool(get_parameters_value(157,'false')) then
begin
ShowMessage('<27>Ѿ<EFBFBD><D1BE><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>޸ķ<DEB8><C4B7><EFBFBD>');
Exit;
end;
fra_fee1.bsSkinButton7Click(Sender);
end;
procedure Tfrm_ch_fee_seae_sales.fra_fee1bsSkinButton17Click(
Sender: TObject);
begin
if date>=t_op_seae1.DataSet.FieldByName('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').Value then
if not StrToBool(get_parameters_value(157,'false')) then
begin
ShowMessage('<27>Ѿ<EFBFBD><D1BE><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>޸ķ<DEB8><C4B7><EFBFBD>');
Exit;
end;
fra_fee1.bsSkinButton17Click(Sender);
end;
procedure Tfrm_ch_fee_seae_sales.fra_fee1bsSkinButton18Click(
Sender: TObject);
begin
if date>=t_op_seae1.DataSet.FieldByName('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').Value then
if not StrToBool(get_parameters_value(157,'false')) then
begin
ShowMessage('<27>Ѿ<EFBFBD><D1BE><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>޸ķ<DEB8><C4B7><EFBFBD>');
Exit;
end;
fra_fee1.bsSkinButton18Click(Sender);
end;
procedure Tfrm_ch_fee_seae_sales.bsSkinButton2Click(Sender: TObject);
var
book1:Tbookmark;
begin
book1:=t_op_seae1.DataSet.GetBookmark;
t_op_seae1.DataSet.Refresh;
t_op_seae1.DataSet.GotoBookmark(book1);
end;
procedure Tfrm_ch_fee_seae_sales.dxDBGrid1CustomDraw(Sender: TObject;
ACanvas: TCanvas; ARect: TRect; ANode: TdxTreeListNode;
AColumn: TdxDBTreeListColumn; const AText: String; AFont: TFont;
var AColor: TColor; ASelected, AFocused: Boolean; var ADone: Boolean);
begin
if uppercase(ANode.Strings[dxDBGrid1Column77.Index])='TRUE' then begin
AFont.Style:=AFont.Style+[fsStrikeOut];
AColor:=clFuchsia;
exit;
end;
end;
procedure Tfrm_ch_fee_seae_sales.bsSkinButton3Click(Sender: TObject);
var aAdoQuery:TAdoQuery;
remarks:string;
begin
if t_op_seae1.DataSet.FieldByName('<27><><EFBFBD>ųɱ<C5B3>').AsInteger=0 then
begin
ShowMessage('<27><><EFBFBD><EFBFBD>û<EFBFBD><C3BB><EFBFBD>ƺ<EFBFBD><C6BA><EFBFBD>,<2C><><EFBFBD><EFBFBD>ȷ<EFBFBD><C8B7>');
Exit;
end;
Remarks:='';
Remarks:=trim(InputBox('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ԭ<EFBFBD><D4AD>', 'ԭ<><D4AD>', ''));
if Remarks='' then
begin
ShowMessage('ԭ<><D4AD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>Ϊ<EFBFBD><CEAA>');
Exit;
end;
aAdoQuery:=CreateAdoQuery;
with aAdoQuery do
try
Close;SQL.Clear;
SQL.Add('select <20><><EFBFBD><EFBFBD><EFBFBD>ֶ<EFBFBD><D6B6><EFBFBD> from t_op_seae');
SQL.Add('where <20><><EFBFBD><EFBFBD>=:<3A><><EFBFBD><EFBFBD>');
Parameters.ParamByName('<27><><EFBFBD><EFBFBD>').Value:=t_op_seae1.DataSet.FieldByName('<27><><EFBFBD><EFBFBD>').AsString;
Open;
if (trim(FieldByName('<27><><EFBFBD><EFBFBD><EFBFBD>ֶ<EFBFBD><D6B6><EFBFBD>').AsString)='') or (FieldByName('<27><><EFBFBD><EFBFBD><EFBFBD>ֶ<EFBFBD><D6B6><EFBFBD>').IsNull) then
begin
Close;SQL.Clear;
SQL.Add('Update t_op_seae set <20><><EFBFBD>ųɱ<C5B3>=0,<2C><><EFBFBD><EFBFBD><EFBFBD>ֶ<EFBFBD><D6B6><EFBFBD>=''''');
SQL.Add('where <20><><EFBFBD><EFBFBD>=:<3A><><EFBFBD><EFBFBD>');
Parameters.ParamByName('<27><><EFBFBD><EFBFBD>').Value:=t_op_seae1.DataSet.FieldByName('<27><><EFBFBD><EFBFBD>').AsString;
Execsql;
Close;SQL.Clear;
SQL.Add('Update t_op_seae set <20><><EFBFBD>ųɱ<C5B3>=0,<2C><><EFBFBD><EFBFBD><EFBFBD>ֶ<EFBFBD><D6B6><EFBFBD>=:<3A><><EFBFBD><EFBFBD><EFBFBD>ֶ<EFBFBD><D6B6><EFBFBD>');
SQL.Add('where <20><><EFBFBD><EFBFBD>=:<3A><><EFBFBD><EFBFBD>');
Parameters.ParamByName('<27><><EFBFBD><EFBFBD>').Value:=t_op_seae1.DataSet.FieldByName('<27><><EFBFBD><EFBFBD>').AsString;
Parameters.ParamByName('<27><><EFBFBD><EFBFBD><EFBFBD>ֶ<EFBFBD><D6B6><EFBFBD>').Value:=#13#10+Remarks+' '+employee+' '+FormatdateTime('YYYY-MM-DD hh:mm:sss',now);
Execsql;
end
else
begin
Close;SQL.Clear;
SQL.Add('Update t_op_seae set <20><><EFBFBD>ųɱ<C5B3>=0,<2C><><EFBFBD><EFBFBD><EFBFBD>ֶ<EFBFBD><D6B6><EFBFBD>=<3D><><EFBFBD><EFBFBD><EFBFBD>ֶ<EFBFBD><D6B6><EFBFBD>+:<3A><><EFBFBD><EFBFBD><EFBFBD>ֶ<EFBFBD><D6B6><EFBFBD>');
SQL.Add('where <20><><EFBFBD><EFBFBD>=:<3A><><EFBFBD><EFBFBD>');
Parameters.ParamByName('<27><><EFBFBD><EFBFBD>').Value:=t_op_seae1.DataSet.FieldByName('<27><><EFBFBD><EFBFBD>').AsString;
Parameters.ParamByName('<27><><EFBFBD><EFBFBD><EFBFBD>ֶ<EFBFBD><D6B6><EFBFBD>').Value:=#13#10+Remarks+' '+employee+' '+FormatdateTime('YYYY-MM-DD hh:mm:sss',now);
Execsql;
end;
finally
ShowMessage('ȷ<><C8B7><EFBFBD><EFBFBD><EFBFBD><EFBFBD>');
t_op_seae1.DataSet.Refresh;
Free;
end;
end;
procedure Tfrm_ch_fee_seae_sales.dxDBGrid1Column78CustomDraw(
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 Trim(ANode.Strings[dxDBGrid1Column78.Index])='1' then
begin
AColor:=clRed;
AFont.Color:=clblack;
end;
end;
procedure Tfrm_ch_fee_seae_sales.bsSkinButton4Click(Sender: TObject);
var
amt,usd:Double;
FeeItems,JobAmt,Remarks:string;
begin
if t_op_seae1.DataSet=nil then
exit;
if GetCrmsales( t_op_seae1.DataSet.FieldByName('<27><><EFBFBD><EFBFBD>').AsString, t_op_seae1.DataSet.FieldByName('ί<>е<EFBFBD>λ').AsString
, t_op_seae1.DataSet.FieldByName('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').AsString,amt,usd,FeeItems) then
MessageDlg('RMB:'+FormatFloat('0.00;0.00;0',amt) +' USD:'+FormatFloat('0.00;0.00;0',USD),mtWarning,[mbOK],0);
end;
procedure Tfrm_ch_fee_seae_sales.bsSkinButton8Click(Sender: TObject);
var aAdoQuery:TAdoQuery;
begin
if MessageDlg('Ҫȷ<D2AA><C8B7><EFBFBD><EFBFBD>, <20>Ƿ<EFBFBD><C7B7><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>',mtWarning,[mbyes,mbno],0)<>mryes then
exit;
aAdoQuery:=CreateAdoQuery;
with aAdoQuery do
try
Close;SQL.Clear;
SQL.Add('select <20><><EFBFBD><EFBFBD>,<2C><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>,<2C><><EFBFBD>յ<EFBFBD><D5B5><EFBFBD> from t_op_seae');
SQL.Add('where <20><><EFBFBD><EFBFBD>=:<3A><><EFBFBD><EFBFBD>');
Parameters.ParamByName('<27><><EFBFBD><EFBFBD>').Value:=t_op_seae1.DataSet.FieldByName('<27><><EFBFBD><EFBFBD>').AsString;
Open;
edit;
FieldByName('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').AsString:=employee;
FieldByName('<27><><EFBFBD>յ<EFBFBD><D5B5><EFBFBD>').AsString:=FormatDateTime('YYYY-MM-DD hh:mm:ss',Now);
post;
finally
ShowMessage('ȷ<><C8B7><EFBFBD><EFBFBD><EFBFBD><EFBFBD>');
t_op_seae1.DataSet.Refresh;
Free;
end;
end;
procedure Tfrm_ch_fee_seae_sales.dxDBGrid1Column81CustomDraw(
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 Trim(ANode.Strings[dxDBGrid1Column81.Index])<>'' then
begin
AColor:=clRed;
AFont.Color:=clblack;
end;
end;
procedure Tfrm_ch_fee_seae_sales.bsSkinButton9Click(Sender: TObject);
begin
sys_print('<27><><EFBFBD>˳<EFBFBD><CBB3><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>̨<EFBFBD><CCA8>',2,t_op_seae1,nil,nil,nil,nil,nil,nil,nil,nil,nil,nil);
end;
end.
Reference in New Issue View Git Blame Copy Permalink