Group_99/D7myYunxiang
7
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity
main
D7myYunxiang/云翔财务(Money.dll)/U_YFMXlistMonDayGQX.pas

946 lines
26 KiB
ObjectPascal
Raw Permalink Normal View History

1
2025-01-20 13:04:03 +08:00
unit U_YFMXlistMonDayGQX;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, cxGraphics, cxCustomData, cxStyles, cxTL, cxMaskEdit, DB, ADODB,
cxInplaceContainer, cxDBTL, cxControls, cxTLData, ComCtrls, ToolWin,
StdCtrls, cxFilter, cxData, cxDataStorage, cxEdit, cxDBData, DBClient,
cxGridCustomTableView, cxGridTableView, cxGridDBTableView, ExtCtrls,
cxSplitter, cxGridLevel, cxClasses, cxGridCustomView, cxGrid,
cxGridCustomPopupMenu, cxGridPopupMenu, RM_Dataset, RM_System, RM_Common,
RM_Class, RM_GridReport, IdBaseComponent, IdComponent, IdTCPConnection,
IdTCPClient, IdFTP,ShellAPI,IniFiles, cxCheckBox, cxCalendar,
cxButtonEdit, cxTextEdit, cxDropDownEdit, RM_e_Xls, BtnEdit, cxPC, Menus;
type
TfrmYFMXlistMonDayGQX = class(TForm)
ToolBar1: TToolBar;
TBRafresh: TToolButton;
TBClose: TToolButton;
ADOQueryTemp: TADOQuery;
ADOQueryCmd: TADOQuery;
Panel1: TPanel;
ADOQueryMain: TADOQuery;
ToolButton1: TToolButton;
RM1: TRMGridReport;
RMDB_Main: TRMDBDataSet;
cxGrid2: TcxGrid;
Tv2: TcxGridDBTableView;
cxCRTime: TcxGridDBColumn;
cxMoneyYe: TcxGridDBColumn;
cxQty: TcxGridDBColumn;
cxQtyUnit: TcxGridDBColumn;
cxGridLevel1: TcxGridLevel;
cxGridPopupMenu2: TcxGridPopupMenu;
DS_HZ: TDataSource;
CDS_HZ: TClientDataSet;
v2Price: TcxGridDBColumn;
VMoney: TcxGridDBColumn;
v2BBMoney: TcxGridDBColumn;
v2MPRTCodeName: TcxGridDBColumn;
Label4: TLabel;
OrdDefNote3: TComboBox;
ToolButton3: TToolButton;
RMXLSExport1: TRMXLSExport;
v2Column1: TcxGridDBColumn;
v2note: TcxGridDBColumn;
Panetime: TPanel;
v2Column2: TcxGridDBColumn;
cxTabControl1: TcxTabControl;
v2Column4: TcxGridDBColumn;
v2Column5: TcxGridDBColumn;
v2Column6: TcxGridDBColumn;
v2Column7: TcxGridDBColumn;
Panel2: TPanel;
Label2: TLabel;
begdate: TDateTimePicker;
Panel3: TPanel;
Label1: TLabel;
Label3: TLabel;
FBegDate: TDateTimePicker;
FEndDate: TDateTimePicker;
Panel4: TPanel;
Label5: TLabel;
factoryName: TBtnEditA;
RadioGroup1: TRadioGroup;
PopupMenu1: TPopupMenu;
N6: TMenuItem;
N7: TMenuItem;
N4: TMenuItem;
N5: TMenuItem;
N1: TMenuItem;
N2: TMenuItem;
N3: TMenuItem;
v2Column3: TcxGridDBColumn;
v2Column8: TcxGridDBColumn;
Panel7: TPanel;
N8: TMenuItem;
N9: TMenuItem;
LabGYS: TLabel;
v2Column9: TcxGridDBColumn;
v2Column10: TcxGridDBColumn;
Panel6: TPanel;
Label8: TLabel;
Label9: TLabel;
Panel5: TPanel;
Label15: TLabel;
Label16: TLabel;
Panel9: TPanel;
ToolButton2: TToolButton;
Panel8: TPanel;
GroupBox2: TGroupBox;
Label11: TLabel;
Label12: TLabel;
Label13: TLabel;
FKMoneyHZ: TEdit;
FKMoneyYSH: TEdit;
FKMoneyWSH: TEdit;
GroupBox1: TGroupBox;
Label6: TLabel;
Label7: TLabel;
Label10: TLabel;
YFMoneyHZ: TEdit;
YFMoneyYSH: TEdit;
YFMoneyWSH: TEdit;
GroupBox3: TGroupBox;
Label17: TLabel;
Label14: TLabel;
SQMoney: TEdit;
BQMoney: TEdit;
GroupBox4: TGroupBox;
Label19: TLabel;
Label20: TLabel;
Label21: TLabel;
Label18: TLabel;
YFMoneyYear: TEdit;
HZMoney: TEdit;
QKXS: TEdit;
v2Column11: TcxGridDBColumn;
PopupMenu2: TPopupMenu;
procedure FormDestroy(Sender: TObject);
procedure FormClose(Sender: TObject; var Action: TCloseAction);
procedure TBCloseClick(Sender: TObject);
procedure FormShow(Sender: TObject);
procedure TBRafreshClick(Sender: TObject);
procedure ToolButton1Click(Sender: TObject);
procedure FormCreate(Sender: TObject);
procedure ToolButton3Click(Sender: TObject);
procedure factoryNameBtnClick(Sender: TObject);
procedure v2Column3PropertiesEditValueChanged(Sender: TObject);
procedure v2Column3CustomDrawCell(Sender: TcxCustomGridTableView;
ACanvas: TcxCanvas; AViewInfo: TcxGridTableDataCellViewInfo;
var ADone: Boolean);
procedure ToFactoryNameChange(Sender: TObject);
procedure cxTabControl1Change(Sender: TObject);
procedure RadioGroup1Click(Sender: TObject);
procedure N6Click(Sender: TObject);
procedure N7Click(Sender: TObject);
procedure N4Click(Sender: TObject);
procedure N5Click(Sender: TObject);
procedure N1Click(Sender: TObject);
procedure N2Click(Sender: TObject);
procedure Tv2StylesGetContentStyle(Sender: TcxCustomGridTableView;
ARecord: TcxCustomGridRecord; AItem: TcxCustomGridTableItem;
out AStyle: TcxStyle);
procedure N3Click(Sender: TObject);
procedure N8Click(Sender: TObject);
procedure N9Click(Sender: TObject);
procedure ToolButton2Click(Sender: TObject);
private
{ Private declarations }
FFBegDate,FFEndDate:TDateTime;
procedure InitGrid();
public
{ Public declarations }
RKFlag,FCYID:String;
fType,FMX:string;
PState:Integer;
end;
var
frmYFMXlistMonDayGQX: TfrmYFMXlistMonDayGQX;
implementation
uses
U_DataLink,U_Fun,U_ZDYHelp,U_RTFun,U_ZdyAttachGYS, U_KHListSelJJ,
U_GYSListSelJJ,U_GYSFKInPut,U_GYSFKListView;
{$R *.dfm}
procedure TfrmYFMXlistMonDayGQX.InitGrid();
var
FYue,FDate:string;
FInt:Integer;
begin
FInt:=cxTabControl1.TabIndex+1;
FYue:=Trim(IntToStr(FInt));
if FInt<10 then
begin
FYue:='0'+Trim(IntToStr(FInt));
end;
FDate:=Trim(FormatDateTime('yyyy',begdate.Date))+'-'+FYue;
if FMX='' then
begin
if RadioGroup1.ItemIndex=0 then
begin
FBegDate.Date:=StrToDate(FDate+'-01');
if FInt=12 then
FEndDate.Date:=StrToDate(Trim(FormatDateTime('yyyy',begdate.Date))+'-12-31')
else
FEndDate.Date:=StrToDate(Trim(FormatDateTime('yyyy',begdate.Date))+'-'+Trim(IntToStr(FInt+1))+'-01')-1;
end;
IF trim(factoryName.Text)='' then
begin
//application.MessageBox('<27><>ѡ<EFBFBD><D1A1><EFBFBD><EFBFBD>Ӧ<EFBFBD>̣<EFBFBD>','<27><>ʾ<EFBFBD><CABE>Ϣ',MB_ICONERROR);
exit;
end;
end;
screen.Cursor:=crsqlwait;
Panetime.Visible:=true;
Panetime.Left:=(Width-Panetime.Width) div 2;
Panetime.top:=(Height-Panetime.Height-200) div 2;
application.ProcessMessages;
with ADOQueryTemp do
begin
Close;
sql.Clear;
if RadioGroup1.ItemIndex=0 then
begin
sql.Add('exec P_YFFK_Month_HJ :FDate,:factoryNo');
Parameters.ParamByName('FDate').Value:=Trim(FDate);
Parameters.ParamByName('factoryNo').Value:=Trim(factoryName.TxtCode);
end else
if RadioGroup1.ItemIndex=1 then
begin
sql.Add('exec P_YFFK_Day_HJ :FBegDate,:FEndDate,:factoryNo');
Parameters.ParamByName('FBegdate').Value:=Trim(FormatDateTime('yyyy-MM-dd',FBegDate.Date));
Parameters.ParamByName('FEndDate').Value:=Trim(FormatDateTime('yyyy-MM-dd',FEndDate.Date+1));
Parameters.ParamByName('factoryNo').Value:=Trim(factoryName.TxtCode);
end;
Open;
end;
SCSHDataNew(ADOQueryTemp,GroupBox1,2);
SCSHDataNew(ADOQueryTemp,GroupBox2,2);
SCSHDataNew(ADOQueryTemp,GroupBox3,2);
SCSHDataNew(ADOQueryTemp,GroupBox4,2);
//LabGYS.Caption:=Trim(factoryName.Text)+'<27><><EFBFBD><EFBFBD>Ӧ<EFBFBD><D3A6><EFBFBD>'+Trim(ADOQueryTemp.fieldbyname('HZMoney').AsString);
// YFMoneyYear.Caption:='<27><><EFBFBD>ۼƶ'+Trim(ADOQueryTemp.fieldbyname('YFMoneyYear').AsString)
//+' Ƿ<><C7B7>ϵ<EFBFBD><CFB5><EFBFBD><EFBFBD>'+Trim(ADOQueryTemp.fieldbyname('QKXS').AsString)+'%';
try
ADOQueryMain.DisableControls;
with ADOQueryMain do
begin
Filtered:=False;
Close;
SQL.Clear;
if RadioGroup1.ItemIndex=0 then
begin
sql.Add(' exec P_Qry_YFk_Month :FDate,:factoryNo');
Parameters.ParamByName('FDate').Value:=Trim(FDate);
Parameters.ParamByName('factoryNo').Value:=Trim(factoryName.TxtCode);
end else
if RadioGroup1.ItemIndex=1 then
begin
sql.Add(' exec P_Qry_YFk_Day :FBegDate,:FEndDate,:factoryNo');
Parameters.ParamByName('FBegdate').Value:=Trim(FormatDateTime('yyyy-MM-dd',FBegDate.Date));
Parameters.ParamByName('FEndDate').Value:=Trim(FormatDateTime('yyyy-MM-dd',FEndDate.Date+1));
Parameters.ParamByName('factoryNo').Value:=Trim(factoryName.TxtCode);
end;
Open;
end;
SCreateCDS20(ADOQueryMain,CDS_HZ);
SInitCDSData20(ADOQueryMain,CDS_HZ);
finally
ADOQueryMain.EnableControls;
Panetime.Visible:=false;
screen.Cursor:=crdefault;
end;
end;
procedure TfrmYFMXlistMonDayGQX.FormDestroy(Sender: TObject);
begin
frmYFMXlistMonDayGQX:=nil;
end;
procedure TfrmYFMXlistMonDayGQX.FormClose(Sender: TObject; var Action: TCloseAction);
begin
Action:=caFree;
end;
procedure TfrmYFMXlistMonDayGQX.TBCloseClick(Sender: TObject);
begin
WriteCxGrid('Ӧ<><D3A6><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>˵<EFBFBD>YX1DZ',Tv2,'<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>');
Close;
end;
procedure TfrmYFMXlistMonDayGQX.FormShow(Sender: TObject);
var
fstr:string;
begin
ReadCxGrid('Ӧ<><D3A6><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>˵<EFBFBD>YX1DZ',Tv2,'<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>');
if Trim(FMX)='' then
begin
begdate.DateTime:=SGetServerDateMBeg(ADOQueryTemp);
fstr:=Trim(FormatDateTime('MM',begdate.Date));
cxTabControl1.TabIndex:=StrToInt(fstr)-1;
Panel3.Visible:=False;
end else
begin
RadioGroup1.ItemIndex:=PState;
if RadioGroup1.ItemIndex=0 then
begin
Panel2.Visible:=True;
Panel3.Visible:=False;
cxTabControl1.Visible:=True;
end else
if RadioGroup1.ItemIndex=1 then
begin
Panel2.Visible:=False;
Panel3.Visible:=True;
cxTabControl1.Visible:=False;
end;
InitGrid();
end;
end;
procedure TfrmYFMXlistMonDayGQX.TBRafreshClick(Sender: TObject);
begin
ToolBar1.SetFocus;
InitGrid();
end;
procedure TfrmYFMXlistMonDayGQX.ToolButton1Click(Sender: TObject);
begin
if ADOQueryMain.IsEmpty then Exit;
SelExportData(Tv2,ADOQueryMain,self.Caption);
end;
procedure TfrmYFMXlistMonDayGQX.FormCreate(Sender: TObject);
begin
cxGrid2.Align:=AlClient;
end;
procedure TfrmYFMXlistMonDayGQX.ToolButton3Click(Sender: TObject);
var
filepath,fsj:string;
mBegdate,mEnddate:string;
begin
fsj:=cxTabControl1.Tabs[cxTabControl1.TabIndex].Caption;
mbegdate:=FormatDateTime('yyyy',begdate.Date)+'<27><>'+Trim(Copy(fsj,3,Length(fsj)-2))+'<27><>';
if CDS_HZ.IsEmpty then exit;
try
filepath:=ExtractFilePath(Application.ExeName) + 'report\Ӧ<><D3A6><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>˵<EFBFBD>YX.rmf';
if not FileExists(Pchar(filepath)) then
begin
application.MessageBox(pchar('<27>ļ<EFBFBD>['+filepath+']<5D><><EFBFBD><EFBFBD><EFBFBD>ڣ<EFBFBD>'),'<27><>ʾ<EFBFBD><CABE>Ϣ',MB_IConError);
exit;
end;
RMVariables['dtxz'] :=FormatDateTime('yyyy-mm-dd',date());
RMVariables['zdr'] :=trim(DName);
RmVariables['begDate'] :=mbegdate;
RmVariables['endNum'] :=CDS_HZ.fieldbyname('MoneyYe').AsString;
RM1.LoadFromFile(filepath);
RM1.ShowReport;
finally
end;
end;
procedure TfrmYFMXlistMonDayGQX.factoryNameBtnClick(Sender: TObject);
begin
try
frmGYSListSelJJ:=TfrmGYSListSelJJ.Create(Application);
with frmGYSListSelJJ do
begin
frmGYSListSelJJ.canshu2:='<27><>Ȩ<EFBFBD><C8A8>';
if ShowModal=1 then
begin
Self.factoryName.Text:=Trim(frmGYSListSelJJ.CDS_HZ.fieldbyname('KHNameJC').AsString);
Self.factoryName.TxtCode:=Trim(frmGYSListSelJJ.CDS_HZ.fieldbyname('KHNO').AsString);
end;
end;
finally
frmGYSListSelJJ.Free;
end;
ToolBar1.SetFocus;
InitGrid();
end;
procedure TfrmYFMXlistMonDayGQX.v2Column3PropertiesEditValueChanged(
Sender: TObject);
var
mvalue:Boolean;
begin
mvalue:=TcxCheckBox(Sender).EditValue;
with CDS_HZ do
begin
Edit;
FieldByName('DZFlag').Value:=mvalue;
end;
if mvalue=True then
begin
with ADOQueryCmd do
begin
Close;
sql.Clear;
sql.Add('Update YF_Money_CR Set DZFlag=1,DZTime=getdate(),DZPerson='''+Trim(DName)+'''');
sql.Add(' where YFID='''+Trim(CDS_HZ.fieldbyname('YFID').AsString)+'''');
ExecSQL;
end;
end else
begin
with ADOQueryCmd do
begin
Close;
sql.Clear;
sql.Add('Update YF_Money_CR Set DZFlag=0,DZTime=getdate(),DZPerson='''+Trim(DName)+'''');
sql.Add(' where YFID='''+Trim(CDS_HZ.fieldbyname('YFID').AsString)+'''');
ExecSQL;
end;
end;
end;
procedure TfrmYFMXlistMonDayGQX.v2Column3CustomDrawCell(
Sender: TcxCustomGridTableView; ACanvas: TcxCanvas;
AViewInfo: TcxGridTableDataCellViewInfo; var ADone: Boolean);
var
id:Integer;
begin
Id:=TV2.GetColumnByFieldName('DZFlag').Index;//;-TV1.GroupedItemCount;
if Id<0 then Exit;
if AViewInfo.GridRecord.Values[Id]=True then
begin
ACanvas.Brush.Color:=clRed;
end;
end;
procedure TfrmYFMXlistMonDayGQX.ToFactoryNameChange(Sender: TObject);
begin
if ADOQueryMain.Active then
begin
SDofilter(ADOQueryMain,SGetFilters(Panel1,1,2));
SCreateCDS20(ADOQueryMain,CDS_HZ);
SInitCDSData20(ADOQueryMain,CDS_HZ);
end;
end;
procedure TfrmYFMXlistMonDayGQX.cxTabControl1Change(Sender: TObject);
begin
InitGrid();
end;
procedure TfrmYFMXlistMonDayGQX.RadioGroup1Click(Sender: TObject);
begin
if RadioGroup1.ItemIndex=0 then
begin
Panel2.Visible:=True;
Panel3.Visible:=False;
cxTabControl1.Visible:=True;
end else
if RadioGroup1.ItemIndex=1 then
begin
Panel2.Visible:=False;
Panel3.Visible:=True;
cxTabControl1.Visible:=False;
end;
InitGrid();
end;
procedure TfrmYFMXlistMonDayGQX.N6Click(Sender: TObject);
begin
SelOKNo(CDS_HZ,True);
end;
procedure TfrmYFMXlistMonDayGQX.N7Click(Sender: TObject);
begin
SelOKNo(CDS_HZ,False);
end;
procedure TfrmYFMXlistMonDayGQX.N4Click(Sender: TObject);
var
FDate:TDateTime;
begin
if CDS_HZ.IsEmpty then Exit;
if CDS_HZ.Locate('SSel',True,[])=False then
begin
Application.MessageBox('û<><C3BB>ѡ<EFBFBD><D1A1><EFBFBD><EFBFBD><EFBFBD><EFBFBD>!','<27><>ʾ',0);
Exit;
end;
ToolBar1.SetFocus;
try
Panel2.Visible:=True;
Panel2.Refresh;
FDate:=SGetServerDateTime(ADOQueryTemp);
ADOQueryCmd.Connection.BeginTrans;
CDS_HZ.DisableControls;
with CDS_HZ do
begin
First;
while CDS_HZ.Locate('SSel',True,[]) do
begin
if Trim(CDS_HZ.fieldbyname('ChkStatusP').AsString)<>'<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>' then
begin
if Trim(CDS_HZ.fieldbyname('YFID').AsString)<>'' then
begin
with ADOQueryCmd do
begin
Close;
sql.Clear;
sql.Add('select * from YS_Money_CR where YFID='''+Trim(CDS_HZ.fieldbyname('YFID').AsString)+'''');
Open;
end;
with ADOQueryCmd do
begin
Edit;
RTSetSaveDataCDS(ADOQueryCmd,Tv2,CDS_HZ,'YS_Money_CR',7);
FieldByName('ChkerP').Value:=Trim(DName);
FieldByName('ChkTimeP').Value:=FDate;
FieldByName('ChkStatusP').Value:='<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>';
FieldByName('ChkerQ').Value:=Trim(DName);
FieldByName('ChkTimeQ').Value:=FDate;
FieldByName('ChkStatusQ').Value:='<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>';
Post;
end;
with ADOQueryCmd do
begin
Close;
sql.Clear;
sql.Add('Update YS_Money_CR Set ');
sql.Add('HSMoney=Money');
sql.Add(',JSMoney=Money');
sql.Add(' where YFID='''+Trim(CDS_HZ.fieldbyname('YFID').AsString)+'''');
ExecSQL;
end;
with CDS_HZ do
begin
Edit;
FieldByName('ChkStatusP').Value:='<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>';
{FieldByName('ChkerP').Value:=Trim(DName);
FieldByName('ChkTimeP').Value:=FDate;
FieldByName('ChkStatusQ').Value:='<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>';
FieldByName('ChkerQ').Value:=Trim(DName);
FieldByName('ChkTimeQ').Value:=FDate; }
FieldByName('SSel').Value:=False;
Post;
end;
end else
begin
with CDS_HZ do
begin
Edit;
FieldByName('SSel').Value:=False;
Post;
end;
end;
end else
begin
with CDS_HZ do
begin
Edit;
FieldByName('SSel').Value:=False;
Post;
end;
end;
end;
end;
CDS_HZ.EnableControls;
ADOQueryCmd.Connection.CommitTrans;
TBRafresh.Click;
Panel2.Visible:=False;
except
Panel2.Visible:=False;
ADOQueryCmd.Connection.RollbackTrans;
Application.MessageBox('<27><><EFBFBD><EFBFBD>ʧ<EFBFBD><CAA7>!','<27><>ʾ',0);
end;
end;
procedure TfrmYFMXlistMonDayGQX.N5Click(Sender: TObject);
begin
if CDS_HZ.IsEmpty then Exit;
if CDS_HZ.Locate('SSel',True,[])=False then
begin
Application.MessageBox('û<><C3BB>ѡ<EFBFBD><D1A1><EFBFBD><EFBFBD><EFBFBD><EFBFBD>!','<27><>ʾ',0);
Exit;
end;
ToolBar1.SetFocus;
try
Panel2.Visible:=True;
Panel2.Refresh;
ADOQueryCmd.Connection.BeginTrans;
CDS_HZ.DisableControls;
with CDS_HZ do
begin
First;
while CDS_HZ.Locate('SSel',True,[]) do
begin
if Trim(CDS_HZ.fieldbyname('ChkStatusP').AsString)<>'δ<><CEB4><EFBFBD><EFBFBD>' then
begin
if Trim(CDS_HZ.fieldbyname('YFID').AsString)<>'' then
begin
with ADOQueryCmd do
begin
Close;
sql.Clear;
sql.Add('select * from YS_Money_CR where YFID='''+Trim(CDS_HZ.fieldbyname('YFID').AsString)+'''');
Open;
end;
with ADOQueryCmd do
begin
Edit;
FieldByName('ChkerP').Value:=Null;
FieldByName('ChkTimeP').Value:=Null;
FieldByName('ChkStatusP').Value:='δ<><CEB4><EFBFBD><EFBFBD>';
FieldByName('ChkerQ').Value:=Null;
FieldByName('ChkTimeQ').Value:=Null;
FieldByName('ChkStatusQ').Value:='δ<><CEB4><EFBFBD><EFBFBD>';
Post;
end;
with ADOQueryCmd do
begin
Close;
sql.Clear;
sql.Add('Update YS_Money_CR Set ');
sql.Add('HSMoney=Null');
sql.Add(',JSMoney=Null');
sql.Add(' where YFID='''+Trim(CDS_HZ.fieldbyname('YFID').AsString)+'''');
ExecSQL;
end;
with CDS_HZ do
begin
Edit;
FieldByName('ChkStatusP').Value:='δ<><CEB4><EFBFBD><EFBFBD>';
{ FieldByName('ChkerP').Value:=Null;
FieldByName('ChkTimeP').Value:=Null;
FieldByName('ChkStatusQ').Value:='δ<><CEB4><EFBFBD><EFBFBD>';
FieldByName('ChkerQ').Value:=Null;
FieldByName('ChkTimeQ').Value:=Null;}
FieldByName('SSel').Value:=False;
Post;
end;
end else
begin
with CDS_HZ do
begin
Edit;
FieldByName('SSel').Value:=False;
Post;
end;
end;
end else
begin
with CDS_HZ do
begin
Edit;
FieldByName('SSel').Value:=False;
Post;
end;
end;
end;
end;
CDS_HZ.EnableControls;
ADOQueryCmd.Connection.CommitTrans;
TBRafresh.Click;
Panel2.Visible:=False;
except
Panel2.Visible:=False;
ADOQueryCmd.Connection.RollbackTrans;
Application.MessageBox('<27><><EFBFBD><EFBFBD>ʧ<EFBFBD><CAA7>!','<27><>ʾ',0);
end;
end;
procedure TfrmYFMXlistMonDayGQX.N1Click(Sender: TObject);
var
FDate:TDateTime;
DWYFID:string;
begin
if CDS_HZ.IsEmpty then Exit;
ToolBar1.SetFocus;
try
FDate:=SGetServerDateTime(ADOQueryTemp);
ADOQueryCmd.Connection.BeginTrans;
if Trim(CDS_HZ.fieldbyname('YFID').AsString)<>'' then
begin
DWYFID:=Trim(CDS_HZ.fieldbyname('YFID').AsString);
with ADOQueryCmd do
begin
Close;
sql.Clear;
sql.Add('select * from YS_Money_CR where YFID='''+Trim(CDS_HZ.fieldbyname('YFID').AsString)+'''');
Open;
end;
with ADOQueryCmd do
begin
Edit;
RTSetSaveDataCDS(ADOQueryCmd,Tv2,CDS_HZ,'YS_Money_CR',7);
FieldByName('ChkerP').Value:=Trim(DName);
FieldByName('ChkTimeP').Value:=FDate;
FieldByName('ChkStatusP').Value:='<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>';
FieldByName('ChkerQ').Value:=Trim(DName);
FieldByName('ChkTimeQ').Value:=FDate;
FieldByName('ChkStatusQ').Value:='<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>';
Post;
end;
with ADOQueryCmd do
begin
Close;
sql.Clear;
sql.Add('Update YS_Money_CR Set ');
sql.Add('HSMoney=Money');
sql.Add(',JSMoney=Money');
sql.Add(' where YFID='''+Trim(CDS_HZ.fieldbyname('YFID').AsString)+'''');
ExecSQL;
end;
with CDS_HZ do
begin
Edit;
FieldByName('ChkStatusP').Value:='<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>';
{FieldByName('ChkStatusQ').Value:='<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>';
FieldByName('ChkTimeP').Value:=FDate;
FieldByName('ChkTimeQ').Value:=FDate;
FieldByName('ChkerP').Value:=Trim(DName);
FieldByName('ChkerQ').Value:=Trim(DName); }
Post;
end;
end;
ADOQueryCmd.Connection.CommitTrans;
TBRafresh.Click;
CDS_HZ.Locate('YFID',DWYFID,[]);
except
ADOQueryCmd.Connection.RollbackTrans;
Application.MessageBox('<27><><EFBFBD><EFBFBD>ʧ<EFBFBD><CAA7>!','<27><>ʾ',0);
end;
end;
procedure TfrmYFMXlistMonDayGQX.N2Click(Sender: TObject);
var
DWYFID:String;
begin
if CDS_HZ.IsEmpty then Exit;
ToolBar1.SetFocus;
try
ADOQueryCmd.Connection.BeginTrans;
if Trim(CDS_HZ.fieldbyname('YFID').AsString)<>'' then
begin
DWYFID:=Trim(CDS_HZ.fieldbyname('YFID').AsString);
with ADOQueryCmd do
begin
Close;
sql.Clear;
sql.Add('select * from YS_Money_CR where YFID='''+Trim(CDS_HZ.fieldbyname('YFID').AsString)+'''');
Open;
end;
with ADOQueryCmd do
begin
Edit;
FieldByName('ChkerP').Value:=Null;
FieldByName('ChkTimeP').Value:=Null;
FieldByName('ChkStatusP').Value:='δ<><CEB4><EFBFBD><EFBFBD>';
FieldByName('ChkerQ').Value:=Null;
FieldByName('ChkTimeQ').Value:=Null;
FieldByName('ChkStatusQ').Value:='δ<><CEB4><EFBFBD><EFBFBD>';
Post;
end;
with ADOQueryCmd do
begin
Close;
sql.Clear;
sql.Add('Update YS_Money_CR Set ');
sql.Add('HSMoney=Null');
sql.Add(',JSMoney=Null');
sql.Add(' where YFID='''+Trim(CDS_HZ.fieldbyname('YFID').AsString)+'''');
ExecSQL;
end;
with CDS_HZ do
begin
Edit;
FieldByName('ChkStatusP').Value:='δ<><CEB4><EFBFBD><EFBFBD>';
{FieldByName('ChkStatusQ').Value:='δ<><CEB4><EFBFBD><EFBFBD>';
FieldByName('ChkerQ').Value:=Null;
FieldByName('ChkTimeQ').Value:=Null;
FieldByName('ChkerP').Value:=Null;
FieldByName('ChkTimeP').Value:=Null;}
Post;
end;
end;
ADOQueryCmd.Connection.CommitTrans;
TBRafresh.Click;
CDS_HZ.Locate('YFID',DWYFID,[]);
except
ADOQueryCmd.Connection.RollbackTrans;
Application.MessageBox('<27><><EFBFBD><EFBFBD>ʧ<EFBFBD><CAA7>!','<27><>ʾ',0);
end;
end;
procedure TfrmYFMXlistMonDayGQX.Tv2StylesGetContentStyle(
Sender: TcxCustomGridTableView; ARecord: TcxCustomGridRecord;
AItem: TcxCustomGridTableItem; out AStyle: TcxStyle);
var
id:Integer;
begin
Id:=Tv2.GetColumnByFieldName('ChkStatusP').Index;
if ARecord.Values[id]='<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>' then exit;
AStyle:=DataLink_Money.SkyBlue;
end;
procedure TfrmYFMXlistMonDayGQX.N3Click(Sender: TObject);
var
DWYFID:string;
begin
try
frmGYSFKInPut:=TfrmGYSFKInPut.Create(Application);
with frmGYSFKInPut do
begin
FMainId:='';
frmGYSFKInPut.FactoryName.Text:=Self.factoryName.Text;
frmGYSFKInPut.FactoryName.TxtCode:=Self.factoryName.TxtCode;
if ShowModal=1 then
begin
DWYFID:=Trim(frmGYSFKInPut.FMainId);
Self.TBRafresh.Click;
Self.CDS_HZ.Locate('YFID',DWYFID,[]);
end;
end;
finally
frmGYSFKInPut.Free;
end;
end;
procedure TfrmYFMXlistMonDayGQX.N8Click(Sender: TObject);
var
DWYFID:string;
begin
if Trim(CDS_HZ.fieldbyname('CRType').AsString)<>'<27><><EFBFBD><EFBFBD><EFBFBD>Ǽ<EFBFBD>' then Exit;
DWYFID:=Trim(CDS_HZ.fieldbyname('YFID').AsString);
with ADOQueryTemp do
begin
Close;
sql.Clear;
sql.Add('select * from YS_Money_CR where YFID='''+Trim(DWYFID)+''' and isnull(ChkerP,'''')<>'''' ');
Open;
end;
if ADOQueryTemp.IsEmpty=False then
begin
Application.MessageBox('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>˲<EFBFBD><CBB2><EFBFBD><EFBFBD>޸<EFBFBD>!','<27><>ʾ',0);
Exit;
end;
try
frmGYSFKInPut:=TfrmGYSFKInPut.Create(Application);
with frmGYSFKInPut do
begin
FMainId:=Trim(Self.CDS_HZ.fieldbyname('YFID').AsString);
if ShowModal=1 then
begin
Self.TBRafresh.Click;
Self.CDS_HZ.Locate('YFID',DWYFID,[]);
end;
end;
finally
frmGYSFKInPut.Free;
end;
end;
procedure TfrmYFMXlistMonDayGQX.N9Click(Sender: TObject);
begin
if CDS_HZ.IsEmpty then Exit;
if Trim(CDS_HZ.fieldbyname('CRType').AsString)<>'<27><><EFBFBD><EFBFBD><EFBFBD>Ǽ<EFBFBD>' then Exit;
with ADOQueryTemp do
begin
Close;
sql.Clear;
sql.Add('select * from YS_Money_CR where YFID='''+Trim(Self.CDS_HZ.fieldbyname('YFID').AsString)+''' and isnull(ChkerP,'''')<>'''' ');
Open;
end;
if ADOQueryTemp.IsEmpty=False then
begin
Application.MessageBox('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>˲<EFBFBD><CBB2><EFBFBD>ɾ<EFBFBD><C9BE>!','<27><>ʾ',0);
Exit;
end;
if Application.MessageBox('ȷ<><C8B7>Ҫɾ<D2AA><C9BE><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>','<27><>ʾ',32+4)<>IDYES then Exit;
try
ADOQueryCmd.Connection.BeginTrans;
with ADOQueryCmd do
begin
close;
sql.Clear;
sql.Add(' insert into YS_Money_CR_DelLog ');
sql.Add(' select * from YS_Money_CR where YFID='''+Trim(CDS_HZ.fieldbyname('YFID').AsString)+'''');
sql.Add(' Update YS_Money_CR_DelLog Set DelTime=getdate(),DelPerson='''+Trim(DName)+'''');
sql.Add(' where YFID='''+Trim(CDS_HZ.fieldbyname('YFID').AsString)+'''');
sql.Add(' delete YS_Money_CR where YFID='''+Trim(CDS_HZ.fieldbyname('YFID').AsString)+'''');
execsql;
end;
ADOQueryCmd.Connection.CommitTrans;
CDS_HZ.Delete;
TBRafresh.Click;
except
ADOQueryCmd.Connection.RollbackTrans;
Application.MessageBox('ɾ<><C9BE>ʧ<EFBFBD><CAA7>!','<27><>ʾ',0);
end;
end;
procedure TfrmYFMXlistMonDayGQX.ToolButton2Click(Sender: TObject);
var
FName,FDate,FYue:string;
FInt:Integer;
begin
if CDS_HZ.IsEmpty then Exit;
// if Trim(FName)='FKMoney' then
begin
if RadioGroup1.ItemIndex=0 then
begin
FInt:=cxTabControl1.TabIndex+1;
FYue:=Trim(IntToStr(FInt));
if FInt<10 then
begin
FYue:='0'+Trim(IntToStr(FInt));
end;
FDate:=Trim(FormatDateTime('yyyy',begdate.Date))+'-'+FYue;
FFBegDate:=StrToDate(FDate+'-01');
if FInt=12 then
FFEndDate:=StrToDate(Trim(FormatDateTime('yyyy',begdate.Date))+'-12-31')
else
FFEndDate:=StrToDate(Trim(FormatDateTime('yyyy',begdate.Date))+'-'+Trim(IntToStr(FInt+1))+'-01')-1;
end else
if RadioGroup1.ItemIndex=1 then
begin
FFBegDate:=FBegDate.Date;
FFEndDate:=FEndDate.Date;
end;
try
frmGYSFKListView:=TfrmGYSFKListView.Create(Application);
with frmGYSFKListView do
begin
FKHNO:=Trim(factoryName.TxtCode);
frmGYSFKListView.begdate.Date:=Self.FFBegDate;
frmGYSFKListView.Enddate.Date:=Self.FFEndDate;
FactoryNameGYS.Text:=Trim(factoryName.Text);
if ShowModal=1 then
begin
end;
end;
finally
frmGYSFKListView.Free;
end;
end;
end;
end.
Reference in New Issue Copy Permalink