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

1103 lines
30 KiB
ObjectPascal
Raw Normal View History

1
2025-01-20 13:04:03 +08:00
unit U_CGPriceChk;
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, cxPC, cxDropDownEdit, Menus;
type
TfrmCGPriceChk = class(TForm)
ToolBar1: TToolBar;
TBRafresh: TToolButton;
TBClose: TToolButton;
ADOQueryTemp: TADOQuery;
ADOQueryCmd: TADOQuery;
Panel1: TPanel;
ToolButton2: TToolButton;
ADOQueryMain: TADOQuery;
ToolButton1: TToolButton;
Label3: TLabel;
GYSJCName: TEdit;
begdate: TDateTimePicker;
Enddate: TDateTimePicker;
cxGridPopupMenu2: TcxGridPopupMenu;
DS_HZ: TDataSource;
CDS_HZ: TClientDataSet;
P_CodeName: TEdit;
Label4: TLabel;
CheckBox1: TCheckBox;
Label12: TLabel;
ChkStatusP: TComboBox;
Label5: TLabel;
HanShui: TComboBox;
PopupMenu1: TPopupMenu;
N1: TMenuItem;
N2: TMenuItem;
N3: TMenuItem;
Label1: TLabel;
N4: TMenuItem;
N5: TMenuItem;
N6: TMenuItem;
N7: TMenuItem;
Label2: TLabel;
P_Color: TEdit;
FactoryNo: TEdit;
Panel3: TPanel;
Label13: TLabel;
Label14: TLabel;
Label15: TLabel;
Label16: TLabel;
cxGrid2: TcxGrid;
TV2: TcxGridDBTableView;
cxGridDBColumn28: TcxGridDBColumn;
cxGridDBColumn29: TcxGridDBColumn;
cxGridDBColumn30: TcxGridDBColumn;
cxGridDBColumn31: TcxGridDBColumn;
cxGridDBColumn32: TcxGridDBColumn;
cxGridDBColumn33: TcxGridDBColumn;
cxGridDBColumn34: TcxGridDBColumn;
cxGridDBColumn35: TcxGridDBColumn;
cxGridDBColumn36: TcxGridDBColumn;
cxGridDBColumn37: TcxGridDBColumn;
cxGridDBColumn38: TcxGridDBColumn;
cxGridDBColumn39: TcxGridDBColumn;
cxGridDBColumn40: TcxGridDBColumn;
cxGridDBColumn41: TcxGridDBColumn;
cxGridDBColumn42: TcxGridDBColumn;
cxGridDBColumn43: TcxGridDBColumn;
cxGridDBColumn44: TcxGridDBColumn;
cxGridDBColumn45: TcxGridDBColumn;
cxGridDBColumn46: TcxGridDBColumn;
cxGridDBColumn47: TcxGridDBColumn;
cxGridDBColumn48: TcxGridDBColumn;
cxGridDBColumn49: TcxGridDBColumn;
cxGridDBColumn50: TcxGridDBColumn;
cxGridDBColumn51: TcxGridDBColumn;
cxGridDBColumn52: TcxGridDBColumn;
cxGridDBColumn53: TcxGridDBColumn;
cxGridDBColumn54: TcxGridDBColumn;
cxGridLevel1: TcxGridLevel;
Panel2: TPanel;
procedure FormDestroy(Sender: TObject);
procedure FormClose(Sender: TObject; var Action: TCloseAction);
procedure TBCloseClick(Sender: TObject);
procedure FormShow(Sender: TObject);
procedure TBRafreshClick(Sender: TObject);
procedure ToolButton2Click(Sender: TObject);
procedure GYSJCNameChange(Sender: TObject);
procedure cxGridDBColumn5PropertiesEditValueChanged(Sender: TObject);
procedure cxGridDBColumn1PropertiesEditValueChanged(Sender: TObject);
procedure cxGridDBColumn3PropertiesButtonClick(Sender: TObject;
AButtonIndex: Integer);
procedure cxGridDBColumn6PropertiesButtonClick(Sender: TObject;
AButtonIndex: Integer);
procedure ToolButton1Click(Sender: TObject);
procedure v2Column2PropertiesEditValueChanged(Sender: TObject);
procedure v2BatchNoPropertiesEditValueChanged(Sender: TObject);
procedure cxTabControl1Change(Sender: TObject);
procedure v2Column7PropertiesEditValueChanged(Sender: TObject);
procedure v2Column8PropertiesButtonClick(Sender: TObject;
AButtonIndex: Integer);
procedure GYSJCNameKeyPress(Sender: TObject; var Key: Char);
procedure v2Column11CustomDrawCell(Sender: TcxCustomGridTableView;
ACanvas: TcxCanvas; AViewInfo: TcxGridTableDataCellViewInfo;
var ADone: Boolean);
procedure v2Column11PropertiesEditValueChanged(Sender: TObject);
procedure v2Column14PropertiesButtonClick(Sender: TObject;
AButtonIndex: Integer);
procedure v2P_SpecPropertiesButtonClick(Sender: TObject;
AButtonIndex: Integer);
procedure N1Click(Sender: TObject);
procedure N2Click(Sender: TObject);
procedure N3Click(Sender: TObject);
procedure Tv2StylesGetContentStyle(Sender: TcxCustomGridTableView;
ARecord: TcxCustomGridRecord; AItem: TcxCustomGridTableItem;
out AStyle: TcxStyle);
procedure N6Click(Sender: TObject);
procedure N7Click(Sender: TObject);
procedure N4Click(Sender: TObject);
procedure N5Click(Sender: TObject);
procedure FactoryNoKeyPress(Sender: TObject; var Key: Char);
procedure CheckBox1Click(Sender: TObject);
procedure ToolButton3Click(Sender: TObject);
private
{ Private declarations }
procedure InitGridHZ();
procedure InitGrid();
function SaveData():Boolean;
procedure InitYFName();
public
fFlag:integer;
{ Public declarations }
RKFlag,FCYID,fmanage:String;
end;
var
frmCGPriceChk: TfrmCGPriceChk;
implementation
uses
U_DataLink,U_ZDYHelp,U_YSEdit,U_RTFun,U_KHListSelJJ,U_Fun;
{$R *.dfm}
procedure TfrmCGPriceChk.InitGrid();
begin
ToolBar1.SetFocus;
try
ADOQueryMain.DisableControls;
with ADOQueryMain do
begin
Close;
SQL.Clear;
Filtered:=False;
sql.Add(' select A.*,convert(varchar(10),CRTIme,120) as CRTime1,QtyStr=dbo.[F_Get_ShuZiStr](A.Qty),MoneyStr=dbo.[F_Get_ShuZiStr](A.Money) ');
sql.Add(',FactoryName10=dbo.getPinYin(A.FactoryName)+RTrim(A.FactoryName)');
sql.Add(',GYSJCName=(select KHNameJC from KH_Main KM where KM.KHName=A.FactoryName)');
sql.Add(' from YS_Money_CR A');
if CheckBox1.Checked then
begin
sql.Add('where A.CRTime>='''+FormatDateTime('yyyy-MM-dd',begdate.DateTime)+''' ');
sql.Add(' and CRTime<'''+FormatDateTime('yyyy-MM-dd',Enddate.DateTime+1)+''' ');
end else
begin
sql.Add('where A.CRTime>=''2000-01-01'' ');
sql.Add(' and CRTime<''2500-01-01'' ');
end;
sql.Add(' and A.CRType=''Ӧ<><D3A6><EFBFBD><EFBFBD><EFBFBD>Ǽ<EFBFBD>'' ');
Open;
end;
SCreateCDS20(ADOQueryMain,CDS_HZ);
SInitCDSData20(ADOQueryMain,CDS_HZ);
finally
ADOQueryMain.EnableControls;
ToolButton2.Click;
end;
end;
procedure TfrmCGPriceChk.InitGridHZ();
begin
end;
procedure TfrmCGPriceChk.FormDestroy(Sender: TObject);
begin
// frmYFCR:=nil;
frmCGPriceChk:=nil;
end;
procedure TfrmCGPriceChk.FormClose(Sender: TObject; var Action: TCloseAction);
begin
Action:=caFree;
end;
procedure TfrmCGPriceChk.TBCloseClick(Sender: TObject);
begin
WriteCxGrid('Ӧ<><D3A6><EFBFBD><EFBFBD><EFBFBD>Ǽ<EFBFBD>YXCG',Tv2,'<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>');
Close;
end;
procedure TfrmCGPriceChk.FormShow(Sender: TObject);
begin
ReadCxGrid('Ӧ<><D3A6><EFBFBD><EFBFBD><EFBFBD>Ǽ<EFBFBD>YXCG',Tv2,'<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>');
Enddate.DateTime:=SGetServerDate(ADOQueryTemp);
begdate.DateTime:=SGetServerDateMBeg(ADOQueryTemp);
InitGrid();
end;
procedure TfrmCGPriceChk.InitYFName();
begin
end;
procedure TfrmCGPriceChk.TBRafreshClick(Sender: TObject);
begin
// begdate.SetFocus;
InitGrid();
end;
procedure TfrmCGPriceChk.ToolButton2Click(Sender: TObject);
begin
if ADOQueryMain.Active=False then Exit;
SDofilter(ADOQueryMain,SGetFilters(Panel1,1,2));
SCreateCDS20(ADOQueryMain,CDS_HZ);
SInitCDSData20(ADOQueryMain,CDS_HZ);
end;
procedure TfrmCGPriceChk.GYSJCNameChange(Sender: TObject);
begin
ToolButton2.Click;
end;
function TfrmCGPriceChk.SaveData():Boolean;
var
maxId,CRID:String;
begin
try
ADOQueryCmd.Connection.BeginTrans;
if GetLSNo(ADOQueryCmd,maxId,'YS','YS_Money_CR',4,1)=False then
begin
Result:=False;
ADOQueryCmd.Connection.RollbackTrans;
Application.MessageBox('ȡ<><C8A1><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ʧ<EFBFBD>ܣ<EFBFBD>','<27><>ʾ',0);
Exit;
end;
with ADOQueryCmd do
begin
Close;
SQL.Clear;
sql.Add('select * from YS_Money_KC where FactoryName='''+Trim(CDS_HZ.fieldbyname('FactoryName').AsString)+''' ');
sql.Add(' and KCType=''KH'' ');
Open;
end;
if ADOQueryCmd.IsEmpty=False then
begin
CRID:=ADOQueryCmd.fieldbyname('CRID').AsString;
end else
begin
with ADOQueryCmd do
begin
Close;
sql.Clear;
sql.Add('Update YS_Money_CRID set CRID=CRID+1');
sql.Add('select * from YS_Money_CRID ');
Open;
end;
CRID:=ADOQueryCmd.fieldbyname('CRID').AsString;
with ADOQueryCmd do
begin
Close;
SQL.Clear;
sql.Add('select * from YS_Money_KC where 1<>1');
Open;
end;
with ADOQueryCmd do
begin
Append;
FieldByName('CRID').Value:=StrToInt(CRID);
FieldByName('FactoryNo').Value:=Trim(CDS_HZ.fieldbyname('FactoryNo').AsString);
FieldByName('FactoryName').Value:=Trim(CDS_HZ.fieldbyname('FactoryName').AsString);
FieldByName('ZdyStr1').Value:='Ӧ<><D3A6><EFBFBD><EFBFBD>';
Post;
end;
end;
with ADOQueryCmd do
begin
Close;
SQL.Clear;
sql.Add('select * from YS_Money_CR where 1<>1');
Open;
end;
with ADOQueryCmd do
begin
Append;
FieldByName('YFID').Value:=Trim(maxId);
FieldByName('CRID').Value:=StrToInt(CRID);
RTSetSaveDataCDS(ADOQueryCmd,Tv2,CDS_HZ,'YS_Money_CR',7);
FieldByName('Filler').Value:=Trim(DName);
FieldByName('CRType').Value:='Ӧ<>տ<EFBFBD><D5BF>Ǽ<EFBFBD>';
FieldByName('CRFlag').Value:='Ӧ<><D3A6><EFBFBD><EFBFBD>';
FieldByName('QtyFlag').Value:=1;
FieldByName('FactoryNo').Value:=Trim(CDS_HZ.fieldbyname('FactoryNo').AsString);
FieldByName('FactoryName').Value:=Trim(CDS_HZ.fieldbyname('FactoryName').AsString);
FieldByName('CRTime').Value:=formatdateTIme('yyyy-MM-dd',CDS_HZ.fieldbyname('CRTime').AsDateTime);
Post;
end;
with CDS_HZ do
begin
Edit;
FieldByName('YFId').Value:=Trim(maxId);
FieldByName('CRID').Value:=StrToInt(CRID);
end;
ADOQueryCmd.Connection.CommitTrans;
Result:=True;
except
Result:=True;
ADOQueryCmd.Connection.RollbackTrans;
Application.MessageBox('<27><><EFBFBD><EFBFBD>ʧ<EFBFBD><CAA7>!','<27><>ʾ',0);
end;
end;
procedure TfrmCGPriceChk.cxGridDBColumn5PropertiesEditValueChanged(
Sender: TObject);
var
mvalue,FQty,FPrice,FMoney,FShuiDian,FHSPrice,FHSMoney,FJSMoney,FHZFee,FFieldName:String;
begin
mvalue:=TcxTextEdit(Sender).EditingText;
FFieldName:=Trim(Tv2.Controller.FocusedColumn.DataBinding.FilterFieldName);
with CDS_HZ do
begin
Edit;
if Trim(mvalue)<>'' then
FieldByName(FFieldName).Value:=Trim(mvalue)
else
FieldByName(FFieldName).Value:=Null;
Post;
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';
FQty:=Trim(CDS_HZ.fieldbyname('Qty').AsString);
if Trim(FQty)='' then FQty:='0';
FHZFee:=Trim(CDS_HZ.fieldbyname('HZFee').AsString);
if Trim(FHZFee)='' then FHZFee:='0';
FMoney:=Trim(CDS_HZ.fieldbyname('Money').AsString);
if Trim(FMoney)='' then FMoney:='0';
if Trim(FFieldName)<>'Money' then
begin
FMoney:=FloatToStr(StrToFloat(FQty)*StrToFloat(FPrice)+StrToFloat(FHZFee));
end;
with CDS_HZ do
begin
Edit;
FieldByName('Money').Value:=StrToFloat(FMoney);
if Trim(CDS_HZ.fieldbyname('BZType').AsString)='<27><>' then
begin
FieldByName('MoneyRMB').Value:=StrToFloat(FMoney);
end else
if Trim(CDS_HZ.fieldbyname('BZType').AsString)='$' then
begin
FieldByName('MoneyMJ').Value:=StrToFloat(FMoney);
end;
Post;
end;
FShuiDian:=Trim(CDS_HZ.fieldbyname('ShuiDian').AsString);
if Trim(FShuiDian)='' then FShuiDian:='0';
if Trim(CDS_HZ.fieldbyname('ShuiDian').AsString)<>'' then
begin
with CDS_HZ do
begin
Edit;
FieldByName('HSPrice').Value:=StrToFloat(FPrice)*(1+StrToFloat(FShuiDian)*0.01);
FieldByName('HSMoney').Value:=StrToFloat(FPrice)*(1+StrToFloat(FShuiDian)*0.01)*StrToFloat(FQty)+StrToFloat(FHZFee);
FieldByName('JSMoney').Value:=StrToFloat(FPrice)*(1+StrToFloat(FShuiDian)*0.01)*StrToFloat(FQty)+StrToFloat(FHZFee);
post;
end;
end else
begin
with CDS_HZ do
begin
Edit;
FieldByName('HSPrice').Value:=Null;
FieldByName('HSMoney').Value:=Null;
FieldByName('JSMoney').Value:=StrToFloat(FMoney);
post;
end;
end;
tv2.Controller.EditingController.ShowEdit();
end;
procedure TfrmCGPriceChk.cxGridDBColumn1PropertiesEditValueChanged(
Sender: TObject);
var
mvalue,FFieldName:String;
begin
mvalue:=TcxTextEdit(Sender).EditingText;
FFieldName:=Trim(Tv2.Controller.FocusedColumn.DataBinding.FilterFieldName);
with CDS_HZ do
begin
Edit;
FieldByName(FFieldName).Value:=Trim(mvalue);
Post;
end;
tv2.Controller.EditingController.ShowEdit();
end;
procedure TfrmCGPriceChk.cxGridDBColumn3PropertiesButtonClick(Sender: TObject;
AButtonIndex: Integer);
begin
if Trim(CDS_HZ.FieldByName('YFType').AsString)='<27>Զ<EFBFBD><D4B6><EFBFBD><EFBFBD><EFBFBD>' then
begin
Application.MessageBox('<27>Զ<EFBFBD><D4B6><EFBFBD><EFBFBD>ɵ<EFBFBD><C9B5><EFBFBD><EFBFBD>ݲ<EFBFBD><DDB2><EFBFBD><EFBFBD>޸<EFBFBD>!','<27><>ʾ',0);
Exit;
end;
try
frmZDYHelp:=TfrmZDYHelp.Create(Application);
with frmZDYHelp do
begin
flag:='YFName';
flagname:='<27><>Ŀ<EFBFBD><C4BF>ժҪ';
MainType:='<27><><EFBFBD><EFBFBD>';
if ShowModal=1 then
begin
with Self.CDS_HZ do
begin
Edit;
FieldByName('YFCode').Value:=Trim(ClientDataSet1.fieldbyname('ZdyNo').AsString);
FieldByName('YFName').Value:=Trim(ClientDataSet1.fieldbyname('ZdyName').AsString);
end;
end;
end;
finally
frmZDYHelp.Free;
end;
end;
procedure TfrmCGPriceChk.cxGridDBColumn6PropertiesButtonClick(Sender: TObject;
AButtonIndex: Integer);
begin
try
frmZDYHelp:=TfrmZDYHelp.Create(Application);
with frmZDYHelp do
begin
flag:='OrderUnit';
flagname:='<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>λ';
if ShowModal=1 then
begin
Self.CDS_HZ.Edit;
Self.CDS_HZ.FieldByName('QtyUnit').Value:=Trim(ClientDataSet1.fieldbyname('ZDYName').AsString);
end;
end;
finally
frmZDYHelp.Free;
end;
end;
procedure TfrmCGPriceChk.ToolButton1Click(Sender: TObject);
begin
if ADOQueryMain.IsEmpty then Exit;
SelExportData(Tv2,ADOQueryMain,'Ӧ<><D3A6><EFBFBD><EFBFBD><EFBFBD>б<EFBFBD>');
end;
procedure TfrmCGPriceChk.v2Column2PropertiesEditValueChanged(Sender: TObject);
var
mvalue,FBBMoney,FKCBB,FFieldName:String;
begin
mvalue:=TcxTextEdit(Sender).EditingText;
if Trim(mvalue)='' then
begin
mvalue:='0';
end;
FFieldName:=Trim(Tv2.Controller.FocusedColumn.DataBinding.FilterFieldName);
with CDS_HZ do
begin
Edit;
FieldByName(FFieldName).Value:=Trim(mvalue);
Post;
end;
end;
procedure TfrmCGPriceChk.v2BatchNoPropertiesEditValueChanged(Sender: TObject);
var
mvalue,FFieldName:String;
begin
mvalue:=TcxTextEdit(Sender).EditingText;
FFieldName:=Trim(Tv2.Controller.FocusedColumn.DataBinding.FilterFieldName);
with CDS_HZ do
begin
Edit;
FieldByName(FFieldName).Value:=Trim(mvalue);
Post;
end;
end;
procedure TfrmCGPriceChk.cxTabControl1Change(Sender: TObject);
begin
InitGrid();
end;
procedure TfrmCGPriceChk.v2Column7PropertiesEditValueChanged(Sender: TObject);
var
mvalue:Boolean;
begin
mvalue:=TcxCheckBox(Sender).EditingValue;
with CDS_HZ do
begin
Edit;
FieldByName('KPFlag').Value:=mvalue;
Post;
end;
with ADOQueryCmd do
begin
Close;
SQL.Clear;
sql.Add('update YS_Money_CR Set ');
if mvalue=true then
begin
sql.Add(' KPFlag=1 ');
end else
begin
sql.Add(' KPFlag=0 ');
end;
sql.Add(' where YFID='''+Trim(CDS_HZ.fieldbyname('YFID').AsString)+'''');
ExecSQL;
end;
end;
procedure TfrmCGPriceChk.v2Column8PropertiesButtonClick(Sender: TObject;
AButtonIndex: Integer);
begin
if Trim(CDS_HZ.FieldByName('YFType').AsString)='<27>Զ<EFBFBD><D4B6><EFBFBD><EFBFBD><EFBFBD>' then
begin
Application.MessageBox('<27>Զ<EFBFBD><D4B6><EFBFBD><EFBFBD>ɵ<EFBFBD><C9B5><EFBFBD><EFBFBD>ݲ<EFBFBD><DDB2><EFBFBD><EFBFBD>޸<EFBFBD>!','<27><>ʾ',0);
Exit;
end;
try
frmZDYHelp:=TfrmZDYHelp.Create(Application);
with frmZDYHelp do
begin
flag:='GSTT';
flagname:='<27><>˾̧ͷ';
V1Name.Caption:='<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>';
if ShowModal=1 then
begin
with Self.CDS_HZ do
begin
Edit;
FieldByName('ComTaiTou').Value:=Trim(ClientDataSet1.fieldbyname('ZdyName').AsString);
end;
with ADOQueryCmd do
begin
Close;
sql.Clear;
sql.Add('UPdate YS_Money_CR ');
sql.Add(' Set ComTaiTou='''+Trim(ClientDataSet1.fieldbyname('ZdyName').AsString)+'''');
SQL.Add(',Editer='''+Trim(DName)+'''');
SQL.Add(',Edittime=getdate() ');
SQL.Add(' where YFId='''+Trim(CDS_HZ.fieldbyname('YFId').AsString)+'''');
ExecSQL;
end;
end;
end;
finally
frmZDYHelp.Free;
end;
end;
procedure TfrmCGPriceChk.GYSJCNameKeyPress(Sender: TObject;
var Key: Char);
begin
if Key=#13 then
begin
if Trim(GYSJCName.Text)='' then Exit;
ToolBar1.SetFocus;
try
ADOQueryMain.DisableControls;
with ADOQueryMain do
begin
Close;
SQL.Clear;
Filtered:=False;
sql.Add(' select A.*,convert(varchar(10),CRTIme,120) as CRTime1,QtyStr=dbo.[F_Get_ShuZiStr](A.Qty),MoneyStr=dbo.[F_Get_ShuZiStr](A.Money) ');
sql.Add(',FactoryName10=dbo.getPinYin(A.FactoryName)+RTrim(A.FactoryName)');
sql.Add(' from YS_Money_CR A where exists (select * from KH_Main KM where KM.KHName=A.FactoryName and KM.KHNameJC='''+Trim(GYSJCName.Text)+''')');
if CheckBox1.Checked then
begin
sql.Add(' and A.CRTime>='''+FormatDateTime('yyyy-MM-dd',begdate.DateTime)+''' ');
sql.Add(' and A.CRTime<'''+FormatDateTime('yyyy-MM-dd',Enddate.DateTime+1)+''' ');
end;
sql.Add(' and A.CRType=''Ӧ<><D3A6><EFBFBD><EFBFBD><EFBFBD>Ǽ<EFBFBD>'' ');
Open;
end;
SCreateCDS20(ADOQueryMain,CDS_HZ);
SInitCDSData20(ADOQueryMain,CDS_HZ);
finally
ADOQueryMain.EnableControls;
ToolButton2.Click;
end;
end;
end;
procedure TfrmCGPriceChk.v2Column11CustomDrawCell(
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 TfrmCGPriceChk.v2Column11PropertiesEditValueChanged(
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 YS_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 YS_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 TfrmCGPriceChk.v2Column14PropertiesButtonClick(Sender: TObject;
AButtonIndex: Integer);
begin
try
frmZDYHelp:=TfrmZDYHelp.Create(Application);
with frmZDYHelp do
begin
flag:='FHTaiTou';
flagname:='<27><>˾̧ͷ';
if ShowModal=1 then
begin
with CDS_HZ do
begin
Edit;
FieldByName('ComTaiTou').Value:=Trim(frmZDYHelp.ClientDataSet1.fieldbyname('ZdyName').AsString);
end;
end;
end;
finally
frmZDYHelp.Free;
end;
end;
procedure TfrmCGPriceChk.v2P_SpecPropertiesButtonClick(Sender: TObject;
AButtonIndex: Integer);
begin
if Trim(CDS_HZ.fieldbyname('P_CodeName').AsString)='' then
begin
Application.MessageBox('Ʒ<><C6B7><EFBFBD><EFBFBD><EFBFBD><EFBFBD>Ϊ<EFBFBD><CEAA>!','<27><>ʾ',0);
Exit;
end;
try
frmZDYHelp:=TfrmZDYHelp.Create(Application);
with frmZDYHelp do
begin
flag:='HLMLSpec';
flagname:='<27><><EFBFBD>Ϲ<EFBFBD><CFB9><EFBFBD>';
MainType:=Trim(CDS_HZ.fieldbyname('P_CodeName').AsString);
if ShowModal=1 then
begin
with Self.CDS_HZ do
begin
Edit;
FieldByName('P_Spec').Value:=Trim(frmZDYHelp.ClientDataSet1.fieldbyname('ZdyName').AsString);
end;
end;
end;
finally
frmZDYHelp.Free;
end;
end;
procedure TfrmCGPriceChk.N1Click(Sender: TObject);
var
FDate:TDateTime;
begin
if CDS_HZ.IsEmpty then Exit;
ToolBar1.SetFocus;
try
FDate:=SGetServerDateTime(ADOQueryTemp);
ADOQueryCmd.Connection.BeginTrans;
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;
ADOQueryCmd.Connection.CommitTrans;
except
ADOQueryCmd.Connection.RollbackTrans;
Application.MessageBox('<27><><EFBFBD><EFBFBD>ʧ<EFBFBD><CAA7>!','<27><>ʾ',0);
end;
end;
procedure TfrmCGPriceChk.N2Click(Sender: TObject);
begin
if CDS_HZ.IsEmpty then Exit;
ToolBar1.SetFocus;
try
ADOQueryCmd.Connection.BeginTrans;
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 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;
ADOQueryCmd.Connection.CommitTrans;
except
ADOQueryCmd.Connection.RollbackTrans;
Application.MessageBox('<27><><EFBFBD><EFBFBD>ʧ<EFBFBD><CAA7>!','<27><>ʾ',0);
end;
end;
procedure TfrmCGPriceChk.N3Click(Sender: TObject);
begin
if Trim(CDS_HZ.fieldbyname('ChkStatusP').AsString)='<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>' then
begin
Application.MessageBox('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ˣ<EFBFBD><CBA3><EFBFBD><EFBFBD><EFBFBD><EFBFBD>޸<EFBFBD>!','<27><>ʾ',0);
Exit;
end;
try
frmYSEdit:=TfrmYSEdit.Create(Application);
with frmYSEdit do
begin
FCKNO:=Trim(Self.CDS_HZ.fieldbyname('CKNO').AsString);
FYFID:=Trim(Self.CDS_HZ.fieldbyname('YFID').AsString);
if ShowModal=1 then
begin
end;
end;
finally
frmYSEdit.Free;
end;
end;
procedure TfrmCGPriceChk.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 TfrmCGPriceChk.N6Click(Sender: TObject);
begin
SelOKNo(CDS_HZ,True);
end;
procedure TfrmCGPriceChk.N7Click(Sender: TObject);
begin
SelOKNo(CDS_HZ,False);
end;
procedure TfrmCGPriceChk.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
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;
end;
CDS_HZ.EnableControls;
ADOQueryCmd.Connection.CommitTrans;
Panel2.Visible:=False;
except
Panel2.Visible:=False;
ADOQueryCmd.Connection.RollbackTrans;
Application.MessageBox('<27><><EFBFBD><EFBFBD>ʧ<EFBFBD><CAA7>!','<27><>ʾ',0);
end;
end;
procedure TfrmCGPriceChk.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
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 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;
end;
CDS_HZ.EnableControls;
ADOQueryCmd.Connection.CommitTrans;
Panel2.Visible:=False;
except
Panel2.Visible:=False;
ADOQueryCmd.Connection.RollbackTrans;
Application.MessageBox('<27><><EFBFBD><EFBFBD>ʧ<EFBFBD><CAA7>!','<27><>ʾ',0);
end;
end;
procedure TfrmCGPriceChk.FactoryNoKeyPress(Sender: TObject; var Key: Char);
begin
if Key=#13 then
begin
if Trim(FactoryNo.Text)='' then Exit;
ToolBar1.SetFocus;
try
ADOQueryMain.DisableControls;
with ADOQueryMain do
begin
Close;
SQL.Clear;
Filtered:=False;
sql.Add(' select A.*,convert(varchar(10),CRTIme,120) as CRTime1,QtyStr=dbo.[F_Get_ShuZiStr](A.Qty),MoneyStr=dbo.[F_Get_ShuZiStr](A.Money) ');
sql.Add(',FactoryName10=dbo.getPinYin(A.FactoryName)+RTrim(A.FactoryName)');
sql.Add(' from YS_Money_CR A where FactoryNo='''+Trim(FactoryNo.Text)+'''');
if CheckBox1.Checked then
begin
sql.Add(' and A.CRTime>='''+FormatDateTime('yyyy-MM-dd',begdate.DateTime)+''' ');
sql.Add(' and A.CRTime<'''+FormatDateTime('yyyy-MM-dd',Enddate.DateTime+1)+''' ');
end;
sql.Add(' and A.CRType=''Ӧ<>տ<EFBFBD><D5BF>Ǽ<EFBFBD>'' ');
Open;
end;
SCreateCDS20(ADOQueryMain,CDS_HZ);
SInitCDSData20(ADOQueryMain,CDS_HZ);
finally
ADOQueryMain.EnableControls;
ToolButton2.Click;
end;
end;
end;
procedure TfrmCGPriceChk.CheckBox1Click(Sender: TObject);
begin
if CheckBox1.Checked=True then
begin
begdate.Visible:=true;
Enddate.Visible:=true;
end
else
begin
begdate.Visible:=false;
Enddate.Visible:=false;
end;
end;
procedure TfrmCGPriceChk.ToolButton3Click(Sender: TObject);
begin
with ADOQueryCmd do
begin
Close;
sql.Clear;
sql.Add('select * from CK_MYSC_CR where MYID='''+Trim(CDS_HZ.fieldbyname('YFTypeId').AsString)+'''');
open;
end;
if ADOQueryCmd.IsEmpty=false then
begin
Application.MessageBox('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>','<27><>ʾ');
exit;
end;
with ADOQueryCmd do
begin
Close;
sql.Clear;
sql.Add('delete from YS_Money_CR where YFID='''+Trim(CDS_HZ.fieldbyname('YFID').AsString)+'''');
ExecSQL;
end;
CDS_HZ.Delete;
end;
end.
Reference in New Issue Copy Permalink