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

1037 lines
30 KiB
ObjectPascal
Raw Permalink Normal View History

1
2025-01-20 13:04:03 +08:00
unit U_YFMXlistMonDayGQXEY;
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,
cxLookAndFeels, cxLookAndFeelPainters, cxNavigator, dxBarBuiltInMenu;
type
TfrmYFMXlistMonDayGQXEY = 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;
v2Column9: TcxGridDBColumn;
v2Column10: TcxGridDBColumn;
Panel6: TPanel;
Label8: TLabel;
Label9: TLabel;
Panel5: TPanel;
Label15: TLabel;
Label16: TLabel;
ToolButton2: TToolButton;
v2Column11: TcxGridDBColumn;
PopupMenu2: TPopupMenu;
Label22: TLabel;
P_CodeName: TComboBox;
Label23: TLabel;
PType: TComboBox;
Panel9: TPanel;
LabGYS: TLabel;
v2Column12: TcxGridDBColumn;
v2Column13: TcxGridDBColumn;
v2Column14: TcxGridDBColumn;
N10: TMenuItem;
Tv2Column1: TcxGridDBColumn;
Tv2Column2: TcxGridDBColumn;
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);
procedure P_CodeNameChange(Sender: TObject);
procedure v2PricePropertiesEditValueChanged(Sender: TObject);
procedure N10Click(Sender: TObject);
private
{ Private declarations }
FFBegDate,FFEndDate:TDateTime;
procedure InitGrid();
public
{ Public declarations }
RKFlag,FCYID:String;
fType,FMX:string;
PState:Integer;
end;
var
frmYFMXlistMonDayGQXEY: TfrmYFMXlistMonDayGQXEY;
implementation
uses
U_DataLink,U_Fun,U_ZDYHelp,U_RTFun,U_ZdyAttachGYS, U_KHListSelJJ,
U_GYSListSelJJ,U_GYSFKInPut,U_GYSFKListView;
{$R *.dfm}
procedure TfrmYFMXlistMonDayGQXEY.InitGrid();
var
FYue,FDate,fsj:string;
FInt:Integer;
begin
if RadioGroup1.ItemIndex=0 then
begin
if cxTabControl1.TabIndex<11 then
begin
FInt:=cxTabControl1.TabIndex+2;
end else
begin
FInt:=1;
end;
FYue:=Trim(IntToStr(FInt));
if FInt<10 then
begin
FYue:='0'+Trim(IntToStr(FInt));
end;
if FInt<>1 then
begin
FDate:=Trim(FormatDateTime('yyyy',begdate.Date))+'-'+FYue;
end else
begin
FDate:=Trim(FormatDateTime('yyyy',begdate.Date));
FDate:=IntToStr(strtoint(FDate)+1);
FDate:=FDate+'-'+FYue;
end;
if FMX='' then
begin
FBegDate.Date:=StrToDate(FDate+'-01');
if FInt=12 then
FEndDate.Date:=StrToDate(Trim(FormatDateTime('yyyy',begdate.Date))+'-12-31')
else begin
if FInt=1 then
begin
FEndDate.Date:=StrToDate(FDate+'-31');
end else
begin
FEndDate.Date:=StrToDate(Trim(FormatDateTime('yyyy',begdate.Date))+'-'+Trim(IntToStr(FInt+1))+'-01')-1;
end;
end;
end;
end;
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,GroupBox4,2);
LabGYS.Caption:=Trim(factoryName.Text)+ ' <20><>ҵ<EFBFBD><D2B5><EFBFBD><EFBFBD><EFBFBD>'+Trim(ADOQueryTemp.fieldbyname('YFMoneyLJ').AsString)
+ ' <20><><EFBFBD><EFBFBD>ҵ<EFBFBD><D2B5><EFBFBD><EFBFBD><EFBFBD>'+Trim(ADOQueryTemp.fieldbyname('YFMoneyYear').AsString)
+' Ƿ<><C7B7>ϵ<EFBFBD><CFB5><EFBFBD><EFBFBD>'+Trim(ADOQueryTemp.fieldbyname('QKXS').AsString)
+'<27><><EFBFBD><EFBFBD>Ӧ<EFBFBD><D3A6><EFBFBD>'+Trim(ADOQueryTemp.fieldbyname('HZMoney').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);
fsj:='select Code,Name from('+
' select Code=Null, Case when CRType=''Ӧ<><D3A6><EFBFBD><EFBFBD><EFBFBD>Ǽ<EFBFBD>'' and ISNULL(YFName,'''')='''' then A.P_Codename '+
' when CRType=''Ӧ<><D3A6><EFBFBD><EFBFBD><EFBFBD>Ǽ<EFBFBD>'' and ISNULL(YFName,'''')<>'''' then A.P_Codename '+
' when CRType=''<27>ڳ<EFBFBD>Ӧ<EFBFBD><D3A6><EFBFBD><EFBFBD><EFBFBD>Ǽ<EFBFBD>'' then ''<27>ڳ<EFBFBD><DAB3>˿<EFBFBD>'' '+
' when CRType=''<27><><EFBFBD><EFBFBD><EFBFBD>Ǽ<EFBFBD>'' then '''' '+
' when CRType=''<27><>Ӧ<EFBFBD>̷<EFBFBD><CCB7>ù<EFBFBD><C3B9><EFBFBD>'' then A.YFName'+
' else '''' end as Name '+
' from YS_Money_CR A where A.factoryNo='''+Trim(factoryName.TxtCode)+'''';
if RadioGroup1.ItemIndex=0 then
begin
fsj:=fsj+' and convert(varchar(7),A.CRTime,120)='''+Trim(FDate)+'''';
end else
if RadioGroup1.ItemIndex=1 then
begin
fsj:=fsj+' and A.CRTime>='''+Trim(Trim(FormatDateTime('yyyy-MM-dd',FBegDate.Date)))+''''+
' and A.CRTime<'''+Trim(FormatDateTime('yyyy-MM-dd',FEndDate.Date+1))+'''';
end;
fsj:=fsj+')AA where isnull(Name,'''')<>'''' group by Code,Name ';
SInitComBoxBySql(ADOQueryTemp,P_CodeName,False,fsj);
fsj:='select Code,Name from('+
' select Code=Null, Case when CRType=''Ӧ<><D3A6><EFBFBD><EFBFBD><EFBFBD>Ǽ<EFBFBD>'' then A.YFName '+
' when CRType=''<27>ڳ<EFBFBD>Ӧ<EFBFBD><D3A6><EFBFBD><EFBFBD><EFBFBD>Ǽ<EFBFBD>'' then '''' '+
' when CRType=''<27><><EFBFBD><EFBFBD><EFBFBD>Ǽ<EFBFBD>'' then ''<27><><EFBFBD><EFBFBD>'''+
' when CRType=''<27><>Ӧ<EFBFBD>̷<EFBFBD><CCB7>ù<EFBFBD><C3B9><EFBFBD>'' then FKType '+
' else '''' end as Name '+
' from YS_Money_CR A where A.factoryNo='''+Trim(factoryName.TxtCode)+'''';
if RadioGroup1.ItemIndex=0 then
begin
fsj:=fsj+' and convert(varchar(7),A.CRTime,120)='''+Trim(FDate)+'''';
end else
if RadioGroup1.ItemIndex=1 then
begin
fsj:=fsj+' and A.CRTime>='''+Trim(Trim(FormatDateTime('yyyy-MM-dd',FBegDate.Date)))+''''+
' and A.CRTime<'''+Trim(FormatDateTime('yyyy-MM-dd',FEndDate.Date+1))+'''';
end;
fsj:=fsj+')AA where isnull(Name,'''')<>'''' group by Code,Name ';
SInitComBoxBySql(ADOQueryTemp,PType,False,fsj);
finally
ADOQueryMain.EnableControls;
Panetime.Visible:=false;
screen.Cursor:=crdefault;
end;
end;
procedure TfrmYFMXlistMonDayGQXEY.FormDestroy(Sender: TObject);
begin
frmYFMXlistMonDayGQXEY:=nil;
end;
procedure TfrmYFMXlistMonDayGQXEY.FormClose(Sender: TObject; var Action: TCloseAction);
begin
Action:=caFree;
end;
procedure TfrmYFMXlistMonDayGQXEY.TBCloseClick(Sender: TObject);
begin
WriteCxGrid('Ӧ<><D3A6><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>˵<EFBFBD>YX1DZ',Tv2,'<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>');
Close;
end;
procedure TfrmYFMXlistMonDayGQXEY.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 TfrmYFMXlistMonDayGQXEY.TBRafreshClick(Sender: TObject);
begin
ToolBar1.SetFocus;
cxTabControl1.Tabs[11].Caption:=' 1<>£<EFBFBD>'+inttostr(strtoint(FormatDateTime('yyyy',begdate.Date))+1)+'<27><>)';
InitGrid();
end;
procedure TfrmYFMXlistMonDayGQXEY.ToolButton1Click(Sender: TObject);
begin
if ADOQueryMain.IsEmpty then Exit;
SelExportData(Tv2,ADOQueryMain,self.Caption);
end;
procedure TfrmYFMXlistMonDayGQXEY.FormCreate(Sender: TObject);
begin
cxGrid2.Align:=AlClient;
end;
procedure TfrmYFMXlistMonDayGQXEY.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 TfrmYFMXlistMonDayGQXEY.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 TfrmYFMXlistMonDayGQXEY.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 TfrmYFMXlistMonDayGQXEY.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 TfrmYFMXlistMonDayGQXEY.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 TfrmYFMXlistMonDayGQXEY.cxTabControl1Change(Sender: TObject);
begin
InitGrid();
end;
procedure TfrmYFMXlistMonDayGQXEY.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 TfrmYFMXlistMonDayGQXEY.N6Click(Sender: TObject);
begin
SelOKNo(CDS_HZ,True);
end;
procedure TfrmYFMXlistMonDayGQXEY.N7Click(Sender: TObject);
begin
SelOKNo(CDS_HZ,False);
end;
procedure TfrmYFMXlistMonDayGQXEY.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 TfrmYFMXlistMonDayGQXEY.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 TfrmYFMXlistMonDayGQXEY.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 TfrmYFMXlistMonDayGQXEY.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 TfrmYFMXlistMonDayGQXEY.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 TfrmYFMXlistMonDayGQXEY.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 TfrmYFMXlistMonDayGQXEY.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 TfrmYFMXlistMonDayGQXEY.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 TfrmYFMXlistMonDayGQXEY.ToolButton2Click(Sender: TObject);
var
FName,FDate,FYue:string;
FInt:Integer;
begin
if CDS_HZ.IsEmpty then Exit;
begin
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;
procedure TfrmYFMXlistMonDayGQXEY.P_CodeNameChange(Sender: TObject);
begin
if ADOQueryMain.Active=False then Exit;
SDofilter(ADOQueryMain,SGetFilters(Panel4,1,2));
SCreateCDS20(ADOQueryMain,CDS_HZ);
SInitCDSData20(ADOQueryMain,CDS_HZ);
end;
procedure TfrmYFMXlistMonDayGQXEY.v2PricePropertiesEditValueChanged(
Sender: TObject);
var
mvalue,FQty,FMoney,FPrice:string;
begin
mvalue:=TcxTextEdit(Sender).EditingText;
if Trim(mvalue)='' then
begin
with CDS_HZ do
begin
Edit;
FieldByName('Price').Value:=Null;
Post;
end;
end else
begin
with CDS_HZ do
begin
Edit;
FieldByName('Price').Value:=mvalue;
Post;
end;
end;
FQty:=Trim(CDS_HZ.fieldbyname('Qty').AsString);
if Trim(FQty)='' then FQty:='0';
FPrice:=Trim(CDS_HZ.fieldbyname('Price').AsString);
if Trim(FPrice)='' then FPrice:='0';
with CDS_HZ do
begin
Edit;
FieldByName('YFMoney').Value:=StrToFloat(FQty)*StrToFloat(FPrice);
Post;
end;
end;
procedure TfrmYFMXlistMonDayGQXEY.N10Click(Sender: TObject);
var
FPrice,FMoney,FNote:string;
begin
if CDS_HZ.IsEmpty then Exit;
FPrice:=Trim(CDS_HZ.fieldbyname('Price').AsString);
FMoney:=Trim(CDS_HZ.fieldbyname('YFMoney').AsString);
FNote:=Trim(CDS_HZ.fieldbyname('Note').AsString);
with ADOQueryCmd do
begin
Close;
sql.Clear;
sql.Add('Update YS_Money_CR Set ');
if Trim(FPrice)<>'' then
begin
sql.Add(' Price='+FPrice);
end else
begin
sql.Add(' Price=Null');
end;
sql.Add(' ,Note='''+Trim(FNote)+'''');
if Trim(FMoney)<>'' then
begin
sql.Add(' ,Money='+FMoney);
sql.Add(' ,JSMoney='+FMoney);
sql.Add(' ,HSMoney='+FMoney);
end else
begin
sql.Add(' ,Money=Null');
sql.Add(' ,JSMoney=Null');
sql.Add(' ,HSMoney=Null');
end;
sql.Add(' where YFID='''+Trim(CDS_HZ.fieldbyname('YFID').AsString)+'''');
ExecSQL;
end;
end;
end.
Reference in New Issue Copy Permalink