Group_99/D7myYunxiang
7
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity
e5a0893d5d
D7myYunxiang/云翔生产管理(MYSC.dll)/U_SCDMX.pas

1143 lines
34 KiB
ObjectPascal
Raw Normal View History

1
2025-01-20 13:04:03 +08:00
unit U_SCDMX;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, ExtCtrls, ComCtrls, ToolWin, cxStyles, cxCustomData,
cxGraphics, cxFilter, cxData, cxDataStorage, cxEdit, DB, cxDBData, ADODB,
cxGridCustomPopupMenu, cxGridPopupMenu, cxGridLevel, cxClasses, cxControls,
cxGridCustomView, cxGridCustomTableView, cxGridTableView, cxGridDBTableView,
cxGrid, DBClient, cxCheckBox, cxCalendar, cxSplitter, RM_Dataset, RM_System,
RM_Common, RM_Class, RM_GridReport, RM_e_Xls, Menus, cxButtonEdit,
cxDropDownEdit, cxPC, Buttons, cxTextEdit, cxLookAndFeels,
Apply new .gitignore
2025-07-19 16:54:23 +08:00
cxLookAndFeelPainters, cxNavigator, dxSkinsCore,
dxSkinDarkRoom,
dxSkinOffice2013White,
dxSkinSharpPlus, dxSkinSpringTime,
dxSkinsDefaultPainters,
1
2025-01-20 13:04:03 +08:00
dxSkinscxPCPainter, BtnEdit, dxBarBuiltInMenu;
type
TfrmSCDMX = class(TForm)
ToolBar1: TToolBar;
TBRafresh: TToolButton;
TBFind: TToolButton;
TBAdd: TToolButton;
TBClose: TToolButton;
Tv1: TcxGridDBTableView;
cxGrid1Level1: TcxGridLevel;
cxGrid1: TcxGrid;
cxGridPopupMenu1: TcxGridPopupMenu;
ADOQueryCmd: TADOQuery;
ADOQueryMain: TADOQuery;
ADOQueryTemp: TADOQuery;
DataSource1: TDataSource;
TBExport: TToolButton;
Order_Main: TClientDataSet;
ToolButton1: TToolButton;
Panel1: TPanel;
Label34: TLabel;
v1Column7: TcxGridDBColumn;
v1Column9: TcxGridDBColumn;
KHNameHZ: TEdit;
BegDate: TDateTimePicker;
EndDate: TDateTimePicker;
RM1: TRMGridReport;
RMDBMain: TRMDBDataSet;
RMXLSExport2: TRMXLSExport;
CDS_PRT: TClientDataSet;
v1Column5: TcxGridDBColumn;
Label2: TLabel;
MYName: TEdit;
v1Column2: TcxGridDBColumn;
Label1: TLabel;
Note: TEdit;
labMYType: TLabel;
Panel2: TPanel;
SpeedButton1: TSpeedButton;
PopupMenu1: TPopupMenu;
N1: TMenuItem;
N2: TMenuItem;
CheckBox1: TCheckBox;
v1JCDanWeiJC: TcxGridDBColumn;
Label3: TLabel;
JCDanWeiJC: TEdit;
v1filler: TcxGridDBColumn;
Label4: TLabel;
filler: TEdit;
ToolButton2: TToolButton;
ClientDataSet1: TClientDataSet;
SpeedButton2: TSpeedButton;
SpeedButton3: TSpeedButton;
SpeedButton4: TSpeedButton;
SpeedButton5: TSpeedButton;
SpeedButton6: TSpeedButton;
SpeedButton7: TSpeedButton;
SpeedButton8: TSpeedButton;
SpeedButton9: TSpeedButton;
SpeedButton10: TSpeedButton;
SpeedButton11: TSpeedButton;
SpeedButton12: TSpeedButton;
SpeedButton13: TSpeedButton;
SpeedButton14: TSpeedButton;
SpeedButton15: TSpeedButton;
Image2: TImage;
v1Column4: TcxGridDBColumn;
v1Column10: TcxGridDBColumn;
Label5: TLabel;
MYTypeFlag: TComboBox;
v1Column11: TcxGridDBColumn;
v1Column12: TcxGridDBColumn;
Label6: TLabel;
MLOrderNo: TEdit;
Label7: TLabel;
KHNameHZZ: TEdit;
v1Column13: TcxGridDBColumn;
Tv1Column1: TcxGridDBColumn;
Label8: TLabel;
PBBatchNo: TEdit;
Tv1Column3: TcxGridDBColumn;
Tv1Column4: TcxGridDBColumn;
Tv1Column5: TcxGridDBColumn;
Label9: TLabel;
MYColor: TEdit;
Tv1Column6: TcxGridDBColumn;
Tv1Column7: TcxGridDBColumn;
Tv1Column8: TcxGridDBColumn;
ToolButton3: TToolButton;
Panel3: TPanel;
Label10: TLabel;
ComboBox1: TComboBox;
Label11: TLabel;
CDZSD: TBtnEditC;
Button1: TButton;
Button2: TButton;
Tv1Column9: TcxGridDBColumn;
ToolButton4: TToolButton;
ADOQueryPrint: TADOQuery;
RM2: TRMGridReport;
RMDB_Main: TRMDBDataSet;
Panel4: TPanel;
Label12: TLabel;
Label13: TLabel;
Button3: TButton;
Button4: TButton;
GJ: TEdit;
MS: TEdit;
ToolButton6: TToolButton;
ToolButton5: TToolButton;
ZKZT: TBtnEditC;
Label14: TLabel;
Tv1Column2: TcxGridDBColumn;
cxTabControl1: TcxTabControl;
ToolButton7: TToolButton;
PopupMenu2: TPopupMenu;
MenuItem1: TMenuItem;
MenuItem2: TMenuItem;
Tv1Column10: TcxGridDBColumn;
Label15: TLabel;
GH: TEdit;
procedure FormDestroy(Sender: TObject);
procedure FormClose(Sender: TObject; var Action: TCloseAction);
procedure FormCreate(Sender: TObject);
procedure TBCloseClick(Sender: TObject);
procedure TBFindClick(Sender: TObject);
procedure TBExportClick(Sender: TObject);
procedure TBRafreshClick(Sender: TObject);
procedure TBAddClick(Sender: TObject);
procedure FormShow(Sender: TObject);
procedure CheckBox1Click(Sender: TObject);
procedure CheckBox2Click(Sender: TObject);
procedure ToolButton1Click(Sender: TObject);
procedure CustomerNoNameChange(Sender: TObject);
procedure N2Click(Sender: TObject);
procedure N1Click(Sender: TObject);
procedure cxTabControl1Change(Sender: TObject);
procedure ZJStatusChange(Sender: TObject);
procedure Tv1DblClick(Sender: TObject);
procedure Image2Click(Sender: TObject);
procedure SpeedButton1Click(Sender: TObject);
procedure ToolButton2Click(Sender: TObject);
procedure v1Column1CustomDrawCell(Sender: TcxCustomGridTableView; ACanvas: TcxCanvas; AViewInfo: TcxGridTableDataCellViewInfo; var ADone: Boolean);
procedure v1Column17CustomDrawCell(Sender: TcxCustomGridTableView; ACanvas: TcxCanvas; AViewInfo: TcxGridTableDataCellViewInfo; var ADone: Boolean);
procedure v1Column3CustomDrawCell(Sender: TcxCustomGridTableView; ACanvas: TcxCanvas; AViewInfo: TcxGridTableDataCellViewInfo; var ADone: Boolean);
procedure ToolButton3Click(Sender: TObject);
procedure Button2Click(Sender: TObject);
procedure CDZSDBtnDnClick(Sender: TObject);
procedure CDZSDBtnUpClick(Sender: TObject);
procedure Button1Click(Sender: TObject);
procedure ToolButton4Click(Sender: TObject);
// procedure ToolButton5Click(Sender: TObject);
procedure ToolButton6Click(Sender: TObject);
procedure Button4Click(Sender: TObject);
procedure Button3Click(Sender: TObject);
procedure ToolButton5Click(Sender: TObject);
procedure ZKZTBtnDnClick(Sender: TObject);
procedure ZKZTBtnUpClick(Sender: TObject);
procedure ToolButton7Click(Sender: TObject);
procedure MenuItem1Click(Sender: TObject);
procedure MenuItem2Click(Sender: TObject);
private
FGXName: string;
DQdate: TDateTime;
procedure InitGrid();
procedure InitForm();
function DelData(): Boolean;
procedure initGX();
procedure SetStatus();
{ Private declarations }
public
FFInt, FCloth: Integer;
Fsubid: string;
canshu1: string;
{ Public declarations }
end;
var
frmSCDMX: TfrmSCDMX;
implementation
uses
U_DataLink, U_RTFun, U_ZDYHelp, U_LLRKInPutMH_RCCG, U_ZSDXZ;
{$R *.dfm}
procedure TfrmSCDMX.SetStatus();
begin
// ToolButton3.Visible := false;
// ToolButton7.Visible := false;
// ToolButton5.Visible := false;
// ToolButton6.Visible := false;
// case cxTabControl1.TabIndex of
// 0:
// begin
// ToolButton3.Visible := true;
// ToolButton5.Visible := true;
// ToolButton6.Visible := true;
// end;
// 1:
// begin
// ToolButton7.Visible := true;
// end;
// end;
end;
procedure TfrmSCDMX.FormDestroy(Sender: TObject);
begin
frmSCDMX := nil;
end;
procedure TfrmSCDMX.FormClose(Sender: TObject; var Action: TCloseAction);
begin
Action := caFree;
end;
procedure TfrmSCDMX.FormCreate(Sender: TObject);
begin
cxgrid1.Align := alClient;
canshu1 := Trim(DParameters1);
end;
procedure TfrmSCDMX.TBCloseClick(Sender: TObject);
begin
WriteCxGrid('<27><><EFBFBD><EFBFBD><EFBFBD>ӹ<EFBFBD><D3B9>뵥<EFBFBD><EBB5A5>ϸ', Tv1, '<27><><EFBFBD><EFBFBD>ó<EFBFBD><C3B3><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ϸ');
Close;
end;
procedure TfrmSCDMX.InitGrid();
begin
try
ADOQueryMain.DisableControls;
with ADOQueryMain do
begin
Filtered := False;
Close;
sql.Clear;
sql.Add('select AA.* ');
sql.Add(',KHNameHZ=dbo.getpinyin(isnull(AA.KHNameJC,''''))+AA.GYSNo+isnull(AA.KHNameJC,'''')');
sql.Add('from(');
sql.Add(' select A.*,D.GangNo as GH,D.KGQTY as mxkgqty ,D.MQTY as mxmqty ,D.MXID,D.KCCDZSD,D.Fsubid,D.CMXID,D.ZKZT,D.JH');
sql.Add(',KHNameJC=(select Top 1 B.KHNameJC from KH_Main B ');
sql.Add(' where isnull(B.KHFlag,'''')=''GYS'' and isnull(B.Valid,'''')=''Y'' and B.KHNO=A.GYSNo)');
sql.Add(',KHNameJCDH=(select Top 1 B.KHNameJC from KH_Main B ');
sql.Add(' where isnull(B.KHFlag,'''')=''GYS'' and isnull(B.Valid,'''')=''Y'' and B.KHNO=A.ToGYSNo)');
sql.Add(',KHNameHZZ=dbo.getpinyin(isnull(KM.KHNameJC,''''))+B.KHNO+isnull(KM.KHNameJC,'''')');
sql.Add(',KHNameJCZ=KM.KHNameJC,B.MLOrderNo,KHNOKH=B.KHNO');
sql.Add(' from CK_MYSC_CR A ');
sql.Add(' left join CK_MYSC_CR_MX D on D.MYID=A.MYID');
sql.Add(' left join ML_OrderMainNew B on A.MainId=B.NewMLID');
sql.Add(' left join KH_Main KM on KM.KHNO=B.KHNO ');
sql.Add(' where 1=1 ');
sql.Add(' and D.FSubId=''' + trim(Fsubid) + ''' ');
if CheckBox1.Checked = False then
begin
sql.Add(' and A.CRTime>=''' + Trim(FormatDateTime('yyyy-MM', now) + '-01') + '''');
sql.Add(' and A.CRTime<''' + Trim(FormatDateTime('yyyy-MM-dd', now + 1)) + '''');
// BegDate.Visible := false;
// EndDate.Visible := false;
end
else
begin
sql.Add(' and A.CRTime>=''' + Trim(FormatDateTime('yyyy-MM-dd', BegDate.Date)) + '''');
sql.Add(' and A.CRTime<''' + Trim(FormatDateTime('yyyy-MM-dd', EndDate.Date + 1)) + '''');
// BegDate.Visible := true;
// EndDate.Visible := true;
end;
sql.Add(' and isnull(CRType,'''')=''<27>ӹ<EFBFBD><D3B9>뵥'' ');
// if cxTabControl1.TabIndex = 0 then
// begin
// sql.Add(' and isnull(D.ZKZT,'''')=''<27>ڿ<EFBFBD>'' ');
// end
// else
// begin
// sql.Add(' and (isnull(D.ZKZT,'''')<> ''<27>ڿ<EFBFBD>'' and isnull(D.ZKZT,'''')<> '''' ) ');
// end;
// if canshu1<>'<27><>Ȩ<EFBFBD><C8A8>' then
// begin
// sql.add(' and A.filler='''+trim(DName)+'''');
// end;
sql.Add(')AA');
sql.Add('where KHNameJCDH=''<27><><EFBFBD><EFBFBD><EFBFBD>ֿ<EFBFBD>''');
// ShowMessage(SQL.text);
Open;
end;
SCreateCDS20(ADOQueryMain, Order_Main);
SInitCDSData20(ADOQueryMain, Order_Main);
finally
ADOQueryMain.EnableControls;
end;
end;
procedure TfrmSCDMX.InitForm();
var
fsj: string;
begin
BegDate.Date := StrToDate(formatdatetime('yyyy-MM', SGetServerDate(ADOQueryTemp)) + '-01');
EndDate.Date := SGetServerDate(ADOQueryTemp);
ReadCxGrid('<27><><EFBFBD><EFBFBD><EFBFBD>ӹ<EFBFBD><D3B9>뵥<EFBFBD><EBB5A5>ϸ', Tv1, '<27><><EFBFBD><EFBFBD>ó<EFBFBD><C3B3><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ϸ');
fsj := 'select Name=ZDYName,Code=Null from KH_Zdy where Type=''JGGongXu'' ';
SInitComBoxBySql(ADOQueryTemp, MYTypeFlag, False, fsj);
SetStatus();
InitGrid();
end;
procedure TfrmSCDMX.TBFindClick(Sender: TObject);
begin
if ADOQueryMain.Active = False then
Exit;
SDofilter(ADOQueryMain, SGetFilters(Panel1, 1, 2));
SCreateCDS20(ADOQueryMain, Order_Main);
SInitCDSData20(ADOQueryMain, Order_Main);
end;
function TfrmSCDMX.DelData(): Boolean;
begin
try
Result := false;
ADOQueryCmd.Connection.BeginTrans;
Order_Main.DisableControls;
with Order_Main do
begin
//First;
// while Order_Main.Locate('SSel',True,[]) do
begin
with ADOQueryCmd do
begin
Close;
sql.Clear;
sql.Add(' delete YS_Money_CR where YFTypeId=''' + Trim(Order_Main.fieldbyname('MYID').AsString) + '''');
sql.Add(' insert into CK_MYSC_CR_Log ');
sql.Add(' select * from CK_MYSC_CR where MYID=''' + Trim(Order_Main.fieldbyname('MYID').AsString) + '''');
sql.Add(' UPdate CK_MYSC_CR_Log Set DelTime=getdate(),DelerCode=''' + Trim(DCode) + ''',Deler=''' + Trim(DName) + '''');
sql.Add(' where MYID=''' + Trim(Order_Main.fieldbyname('MYID').AsString) + '''');
sql.Add(' Delete CK_MYSC_CR where MYId=''' + Trim(Order_Main.fieldbyname('MYId').AsString) + '''');
sql.Add(' delete from TP_File where WBID=''' + trim(Order_Main.fieldbyname('MYId').AsString) + ''' ');
sql.Add(' and TFType=''<27>ӹ<EFBFBD><D3B9>뵥''');
ExecSQL;
end;
Order_Main.Delete;
end;
end;
Order_Main.EnableControls;
ADOQueryCmd.Connection.CommitTrans;
Result := True;
except
ADOQueryCmd.Connection.RollbackTrans;
Result := False;
Application.MessageBox('<27><><EFBFBD><EFBFBD>ɾ<EFBFBD><C9BE><EFBFBD>쳣<EFBFBD><ECB3A3>', '<27><>ʾ', 0);
end;
end;
procedure TfrmSCDMX.TBExportClick(Sender: TObject);
begin
if ADOQueryMain.IsEmpty then
Exit;
TcxGridToExcel(Self.Caption, cxGrid1);
end;
procedure TfrmSCDMX.TBRafreshClick(Sender: TObject);
begin
InitGrid();
TBFind.Click;
end;
procedure TfrmSCDMX.TBAddClick(Sender: TObject);
begin
Panel2.Visible := True;
initGX();
end;
procedure TfrmSCDMX.initGX();
var
BB: array[0..100] of string;
i, j: Integer;
begin
with ADOQueryTemp do
begin
Close;
sql.Clear;
sql.Add('select ZDYName from KH_Zdy where Type=''JGGongXu'' '); //order by ZDYName
Open;
end;
if ADOQueryTemp.IsEmpty then
begin
Application.MessageBox('û<>ж<EFBFBD><D0B6><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ݣ<EFBFBD>', '<27><>ʾ', 0);
Exit;
end;
with ADOQueryTemp do
begin
First;
i := 0;
while not Eof do
begin
BB[i] := Trim(fieldbyname('ZDYName').AsString);
i := i + 1;
Next;
end;
end;
i := i - 1;
if i > 14 then
begin
i := 14;
end;
for j := 0 to i do
begin
with Panel2 do
begin
TSpeedButton(Controls[j]).Visible := True;
TSpeedButton(Controls[j]).Caption := BB[j];
end;
end;
end;
procedure TfrmSCDMX.FormShow(Sender: TObject);
begin
InitForm();
end;
procedure TfrmSCDMX.CheckBox1Click(Sender: TObject);
begin
InitGrid();
end;
procedure TfrmSCDMX.CheckBox2Click(Sender: TObject);
begin
TBRafresh.Click;
end;
procedure TfrmSCDMX.ToolButton1Click(Sender: TObject);
var
FFMYType: string;
begin
FFMYType := Trim(Order_Main.fieldbyname('MYType').AsString);
try
frmLLRKInPutMH_RCCG := TfrmLLRKInPutMH_RCCG.Create(Application);
with frmLLRKInPutMH_RCCG do
begin
PState := 1;
FMainId := Trim(Self.Order_Main.fieldbyname('MYId').AsString);
FMYType := Trim(Self.Order_Main.fieldbyname('MYType').AsString);
FMYTypeFlag := Trim(Self.Order_Main.fieldbyname('MYTypeFlag').AsString);
labMYType.Caption := Trim(Self.Order_Main.fieldbyname('MYTypeFlag').AsString);
if ShowModal = 1 then
begin
end;
end;
finally
frmLLRKInPutMH_RCCG.Free;
end;
end;
procedure TfrmSCDMX.CustomerNoNameChange(Sender: TObject);
begin
if ADOQueryMain.Active = False then
Exit;
SDofilter(ADOQueryMain, SGetFilters(Panel1, 1, 2));
SCreateCDS20(ADOQueryMain, Order_Main);
SInitCDSData20(ADOQueryMain, Order_Main);
end;
procedure TfrmSCDMX.N2Click(Sender: TObject);
begin
if Order_Main.IsEmpty then
Exit;
if Trim(canshu1) <> '<27><>Ȩ<EFBFBD><C8A8>' then
begin
// if Order_Main.FieldByName('filltime').AsDateTime+1<Now then
// begin
// application.MessageBox('<27><><EFBFBD><EFBFBD>һ<EFBFBD>첻<EFBFBD><ECB2BB>ɾ<EFBFBD><C9BE>','<27><>ʾ');
// Exit;
// end;
end;
with ADOQueryTemp do
begin
Close;
sql.Clear;
sql.Add('select * from YS_Money_CR where YFTypeId=''' + Trim(Self.Order_Main.fieldbyname('MYId').AsString) + '''');
sql.Add(' and ChkStatusP=''<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>''');
Open;
end;
if ADOQueryTemp.IsEmpty = false then
begin
Application.MessageBox('Ӧ<><D3A6><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>˲<EFBFBD><CBB2>ܲ<EFBFBD><DCB2><EFBFBD>', '<27><>ʾ');
exit;
end;
with ADOQueryTemp do
begin
Close;
sql.Clear;
sql.Add('select * from YS_Money_CR where YFTypeId=''' + trim(Order_Main.fieldbyname('MYID').AsString) + '''');
sql.Add(' and (isnull(ChkerP,'''')<>'''' ');
sql.Add(' or isnull(ChkerQ,'''')<>'''') ');
Open;
end;
if ADOQueryTemp.IsEmpty = false then
begin
Application.MessageBox('Ӧ<><D3A6><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>,<2C><><EFBFBD><EFBFBD>ɾ<EFBFBD><C9BE>', '<27><>ʾ');
exit;
end;
if Application.MessageBox('ȷ<><C8B7>Ҫɾ<D2AA><C9BE><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>', '<27><>ʾ', 32 + 4) <> IDYES then
Exit;
if DelData() then
begin
end;
end;
procedure TfrmSCDMX.N1Click(Sender: TObject);
var
FFMYType: string;
begin
if Order_Main.IsEmpty then
Exit;
if Trim(canshu1) <> '<27><>Ȩ<EFBFBD><C8A8>' then
begin
// if Order_Main.FieldByName('filltime').AsDateTime+1<Now then
// begin
// application.MessageBox('<27><><EFBFBD><EFBFBD>һ<EFBFBD>첻<EFBFBD><ECB2BB><EFBFBD>޸<EFBFBD>','<27><>ʾ');
// Exit;
// end;
end;
with ADOQueryTemp do
begin
Close;
sql.Clear;
sql.Add('select * from YS_Money_CR where YFTypeId=''' + Trim(Self.Order_Main.fieldbyname('MYId').AsString) + '''');
sql.Add(' and ChkStatusP=''<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>''');
Open;
end;
if ADOQueryTemp.IsEmpty = false then
begin
Application.MessageBox('Ӧ<><D3A6><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>˲<EFBFBD><CBB2>ܲ<EFBFBD><DCB2><EFBFBD>', '<27><>ʾ');
exit;
end;
FFMYType := Trim(Order_Main.fieldbyname('MYType').AsString); //<2F><><EFBFBD><EFBFBD><EFBFBD>Ʋ<EFBFBD><C6B2><EFBFBD>ChkerP=''<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>''
try
frmLLRKInPutMH_RCCG := TfrmLLRKInPutMH_RCCG.Create(Application);
with frmLLRKInPutMH_RCCG do
begin
PState := 1;
FMainId := Trim(Self.Order_Main.fieldbyname('MYId').AsString);
FMYType := Trim(Self.Order_Main.fieldbyname('MYType').AsString);
FMYTypeFlag := Trim(Self.Order_Main.fieldbyname('MYTypeFlag').AsString);
labMYType.Caption := Trim(Self.Order_Main.fieldbyname('MYTypeFlag').AsString) + '<27>ӹ<EFBFBD><D3B9>뵥';
if ShowModal = 1 then
begin
InitGrid();
end;
end;
finally
frmLLRKInPutMH_RCCG.Free;
end;
end;
procedure TfrmSCDMX.cxTabControl1Change(Sender: TObject);
begin
SetStatus();
InitGrid();
end;
procedure TfrmSCDMX.ZJStatusChange(Sender: TObject);
begin
TBFind.Click;
end;
procedure TfrmSCDMX.Tv1DblClick(Sender: TObject);
begin
// ToolButton1.Click;
end;
procedure TfrmSCDMX.Image2Click(Sender: TObject);
begin
Panel2.Visible := False;
end;
procedure TfrmSCDMX.SpeedButton1Click(Sender: TObject);
begin
Panel2.Visible := False;
FGXName := TSpeedButton(Sender).Caption;
try
frmLLRKInPutMH_RCCG := TfrmLLRKInPutMH_RCCG.Create(Application);
with frmLLRKInPutMH_RCCG do
begin
PState := 0;
FMainId := '';
FMYType := FGXName;
FMYTypeFlag := FGXName;
labMYType.Caption := Trim(FGXName) + '<27>ӹ<EFBFBD><D3B9>뵥';
if ShowModal = 1 then
begin
InitGrid();
end;
end;
finally
frmLLRKInPutMH_RCCG.Free;
end;
end;
procedure TfrmSCDMX.ToolButton2Click(Sender: TObject);
begin
try
frmZDYHelp := TfrmZDYHelp.Create(Application);
with frmZDYHelp do
begin
flag := 'JGGongXu';
flagname := '<27><><EFBFBD><EFBFBD>';
//fnote:=True;
//V1Note.Caption:='<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ϵ<EFBFBD><CFB5>';
if ShowModal = 1 then
begin
end;
end;
finally
frmZDYHelp.Free;
end;
end;
procedure TfrmSCDMX.v1Column1CustomDrawCell(Sender: TcxCustomGridTableView; ACanvas: TcxCanvas; AViewInfo: TcxGridTableDataCellViewInfo; var ADone: Boolean);
var
Id, Id10: Integer;
begin
Id := TV1.GetColumnByFieldName('PS').Index;
Id10 := TV1.GetColumnByFieldName('MXHZPS').Index;
if (AViewInfo.GridRecord.Values[Id]) <> (AViewInfo.GridRecord.Values[Id10]) then
begin
ACanvas.Brush.Color := clRed;
end;
end;
procedure TfrmSCDMX.v1Column17CustomDrawCell(Sender: TcxCustomGridTableView; ACanvas: TcxCanvas; AViewInfo: TcxGridTableDataCellViewInfo; var ADone: Boolean);
var
Id, Id10: Integer;
begin
Id := TV1.GetColumnByFieldName('KgQty').Index;
Id10 := TV1.GetColumnByFieldName('MXHZKgQty').Index;
if (AViewInfo.GridRecord.Values[Id]) <> (AViewInfo.GridRecord.Values[Id10]) then
begin
ACanvas.Brush.Color := clRed;
end;
end;
procedure TfrmSCDMX.v1Column3CustomDrawCell(Sender: TcxCustomGridTableView; ACanvas: TcxCanvas; AViewInfo: TcxGridTableDataCellViewInfo; var ADone: Boolean);
var
Id, Id10: Integer;
begin
Id := TV1.GetColumnByFieldName('Qty').Index;
Id10 := TV1.GetColumnByFieldName('MXHZQty').Index;
if (AViewInfo.GridRecord.Values[Id]) <> (AViewInfo.GridRecord.Values[Id10]) then
begin
ACanvas.Brush.Color := clRed;
end;
end;
procedure TfrmSCDMX.ToolButton3Click(Sender: TObject);
begin
if Order_Main.IsEmpty then
Exit;
Panel3.Left := (self.Width - Panel3.Width) div 2;
Panel3.Visible := true;
end;
procedure TfrmSCDMX.Button2Click(Sender: TObject);
begin
Panel3.Visible := False;
end;
procedure TfrmSCDMX.CDZSDBtnDnClick(Sender: TObject);
begin
TBtnEditC(Sender).Text := '';
TBtnEditC(Sender).TxtCode := '';
end;
procedure TfrmSCDMX.CDZSDBtnUpClick(Sender: TObject);
begin
try
frmzsdxz := Tfrmzsdxz.Create(Application);
with frmzsdxz do
begin
if ShowModal = 1 then
begin
Self.CDZSD.Text := Trim(frmzsdxz.Order_Main.fieldbyname('MLOrderNo').AsString);
Self.CDZSD.TxtCode := Trim(frmzsdxz.Order_Main.fieldbyname('NewSubid').AsString);
end;
end;
finally
frmzsdxz.Free;
end;
end;
procedure TfrmSCDMX.Button1Click(Sender: TObject);
begin
if Order_Main.IsEmpty then
Exit;
if Order_Main.Locate('SSel', True, []) = False then
begin
Application.MessageBox('û<><C3BB>ѡ<EFBFBD><D1A1><EFBFBD><EFBFBD><EFBFBD><EFBFBD>!', '<27><>ʾ', 0);
Exit;
end;
if Trim(ComboBox1.text) = '' then
begin
Application.MessageBox('<27><>ƥ<EFBFBD><C6A5><EFBFBD>Ͳ<EFBFBD><CDB2><EFBFBD>Ϊ<EFBFBD><CEAA>!', '<27><>ʾ', 0);
Exit;
end;
try
Order_Main.DisableControls;
ADOQueryCmd.Connection.BeginTrans;
with Order_Main do
begin
First;
while not Eof do
begin
if Order_Main.FieldByName('SSel').AsBoolean = True then
begin
with ADOQueryCmd do
begin
Close;
sql.Clear;
// sql.Add('Update CK_MYSC_CR_MX Set BPLX=''' + trim(ComboBox1.Text) + ''' ');
sql.Add('Update CK_MYSC_CR_MX Set ');
sql.Add('CDZSD=''' + trim(CDZSD.Text) + ''' ');
sql.Add(', CDmainid=''' + trim(CDZSD.TxtCode) + ''' ');
sql.Add(', ZKZT=''' + trim(ZKZT.Text) + ''' ');
sql.Add('where MXID=''' + Trim(Order_Main.fieldbyname('MXID').AsString) + '''');
ExecSQL;
end;
end;
Next;
end;
end;
ADOQueryCmd.Connection.CommitTrans;
Order_Main.EnableControls;
application.MessageBox('<27><><EFBFBD>ݱ<EFBFBD><DDB1><EFBFBD><EFBFBD>ɹ<EFBFBD><C9B9><EFBFBD>', '<27><>ʾ<EFBFBD><CABE>Ϣ');
Panel3.Visible := false;
TBRafresh.Click;
except
ADOQueryCmd.Connection.RollbackTrans;
Order_Main.EnableControls;
application.MessageBox('<27><><EFBFBD>ݱ<EFBFBD><DDB1><EFBFBD>ʧ<EFBFBD>ܣ<EFBFBD>', '<27><>ʾ<EFBFBD><CABE>Ϣ', 0);
end;
end;
procedure TfrmSCDMX.ToolButton4Click(Sender: TObject);
var
fPrintFile: string;
Txt, fImagePath: string;
Moudle: THandle;
Makebar: TMakebar;
Mixtext: TMixtext;
CurRow: Integer;
begin
if Order_Main.IsEmpty then
Exit;
if Order_Main.Locate('SSel', True, []) = False then
begin
Application.MessageBox('û<><C3BB>ѡ<EFBFBD><D1A1><EFBFBD><EFBFBD><EFBFBD><EFBFBD>!', '<27><>ʾ', 0);
Exit;
end;
Order_Main.DisableControls;
with Order_Main do
begin
First;
while not Eof do
begin
if Order_Main.FieldByName('SSel').AsBoolean = True then
begin
CurRow := Tv1.Controller.FocusedRowIndex;
with ADOQueryPrint do
begin
Close;
SQL.Clear;
sql.Add('select AA.* ');
sql.Add(',KHNameHZ=dbo.getpinyin(isnull(AA.KHNameJC,''''))+AA.GYSNo+isnull(AA.KHNameJC,'''')');
sql.Add('from(');
sql.Add(' select A.*,D.KGQTY as mxkgqty ,D.MQTY as mxmqty ,D.MXID,D.KCCDZSD,D.ZKZT,D.JH');
sql.Add(',KHNameJC=(select Top 1 B.KHNameJC from KH_Main B ');
sql.Add(' where isnull(B.KHFlag,'''')=''GYS'' and isnull(B.Valid,'''')=''Y'' and B.KHNO=A.GYSNo)');
sql.Add(',KHNameJCDH=(select Top 1 B.KHNameJC from KH_Main B ');
sql.Add(' where isnull(B.KHFlag,'''')=''GYS'' and isnull(B.Valid,'''')=''Y'' and B.KHNO=A.ToGYSNo)');
sql.Add(',KHNameHZZ=dbo.getpinyin(isnull(KM.KHNameJC,''''))+B.KHNO+isnull(KM.KHNameJC,'''')');
sql.Add(',KHNameJCZ=KM.KHNameJC,B.MLOrderNo,KHNOKH=B.KHNO');
sql.Add(' from CK_MYSC_CR A ');
sql.Add(' left join CK_MYSC_CR_MX D on D.MYID=A.MYID');
sql.Add(' left join ML_OrderMainNew B on A.MainId=B.NewMLID');
sql.Add(' left join KH_Main KM on KM.KHNO=B.KHNO ');
sql.Add(' where 1=1 and isnull(D.ZKZT,'''')<>'''' ');
if CheckBox1.Checked = False then
begin
sql.Add(' and A.CRTime>=''' + Trim(FormatDateTime('yyyy-MM', now) + '-01') + '''');
sql.Add(' and A.CRTime<''' + Trim(FormatDateTime('yyyy-MM-dd', now + 1)) + '''');
BegDate.Visible := false;
EndDate.Visible := false;
end
else
begin
sql.Add(' and A.CRTime>=''' + Trim(FormatDateTime('yyyy-MM-dd', BegDate.Date)) + '''');
sql.Add(' and A.CRTime<''' + Trim(FormatDateTime('yyyy-MM-dd', EndDate.Date + 1)) + '''');
BegDate.Visible := true;
EndDate.Visible := true;
end;
sql.Add(' and isnull(CRType,'''')=''<27>ӹ<EFBFBD><D3B9>뵥'' ');
sql.Add('and D.MXID=''' + Trim(Order_Main.fieldbyname('MXID').AsString) + '''');
sql.Add(')AA');
Open;
end;
try
Moudle := LoadLibrary('MakeQRBarcode.dll');
@Makebar := GetProcAddress(Moudle, 'Make');
@Mixtext := GetProcAddress(Moudle, 'MixText');
Txt := Trim(ADOQueryPrint.fieldbyname('MXID').AsString);
fImagePath := ExtractFilePath(Application.ExeName) + 'image\temp.bmp';
if not DirectoryExists(pchar(ExtractFilePath(Application.ExeName) + 'image')) then
CreateDirectory(pchar(ExtractFilePath(Application.ExeName) + 'image'), nil);
if FileExists(fImagePath) then
DeleteFile(fImagePath);
Makebar(pchar(Txt), Length(Txt), 3, 3, 0, PChar(fImagePath), 3);
except
application.MessageBox('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ʧ<EFBFBD>ܣ<EFBFBD>', '<27><>ʾ<EFBFBD><CABE>Ϣ', MB_ICONERROR);
Order_Main.EnableControls;
exit;
end;
// if Trim(ADOQueryPrint.fieldbyname('SLbName').AsString) <> '' then
// begin
// ExportFtErpFile(Trim(ADOQueryPrint.fieldbyname('SLbName').AsString), ADOQueryCmd);
// fPrintFile := ExtractFilePath(Application.ExeName) + 'Report\' + Trim(ADOQueryPrint.fieldbyname('SLbName').AsString);
// end
// else
// begin
ExportFtErpFile('ͨ<>ñ<EFBFBD>ǩ.rmf', ADOQueryCmd);
fPrintFile := ExtractFilePath(Application.ExeName) + 'Report\<5C><><EFBFBD>Ͽ<EFBFBD><CFBF><EFBFBD><EFBFBD><EFBFBD>ǩ.rmf';
// end;
if FileExists(fPrintFile) then
begin
RMVariables['QRBARCODE'] := fImagePath;
RM2.LoadFromFile(fPrintFile);
//RM2.ShowReport;
RM2.PrintReport;
end
else
begin
Order_Main.EnableControls;
Application.MessageBox(PChar('û<><C3BB><EFBFBD><EFBFBD>' + ExtractFilePath(Application.ExeName) + 'Report\<5C><><EFBFBD>Ͽ<EFBFBD><CFBF><EFBFBD><EFBFBD><EFBFBD>ǩ.rmf'), '<27><>ʾ', 0);
Exit;
end;
end;
Next;
end;
end;
Order_Main.EnableControls;
Tv1.Controller.FocusedRowIndex := CurRow;
end;
procedure TfrmSCDMX.ToolButton6Click(Sender: TObject);
begin
if Order_Main.IsEmpty then
Exit;
if Order_Main.Locate('SSel', True, []) = False then
begin
Application.MessageBox('û<><C3BB>ѡ<EFBFBD><D1A1><EFBFBD><EFBFBD><EFBFBD><EFBFBD>!', '<27><>ʾ', 0);
Exit;
end;
// if Order_Main.IsEmpty then
// Exit;
Panel4.Left := (self.Width - Panel4.Width) div 2;
Panel4.Visible := true;
end;
procedure TfrmSCDMX.Button4Click(Sender: TObject);
begin
Panel4.Visible := False;
end;
procedure TfrmSCDMX.Button3Click(Sender: TObject);
var
maxno: string;
CRID, JH: Integer;
ZL, CD: string;
MaxCkNo, MaxCkSubNo: string;
begin
try
ADOQueryCmd.Connection.BeginTrans;
Order_Main.DisableControls;
with Order_Main do
begin
if Order_Main.FieldByName('SSel').AsBoolean = True then
begin
if GetLSNo(ADOQueryCmd, maxno, 'MX', 'CK_MYSC_CR_MX', 4, 1) = False then
begin
ADOQueryCmd.Connection.RollbackTrans;
Application.MessageBox('ȡ<><C8A1><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ʧ<EFBFBD>ܣ<EFBFBD>', '<27><>ʾ', 0);
Exit;
end;
with ADOQueryCmd do
begin
Close;
sql.Clear;
sql.Add('select * from CK_MYSC_CR_MX where 1<>1');
Open;
end;
with ADOQueryTemp do
begin
Close;
sql.Clear;
sql.Add('select count(*) as js from CK_MYSC_CR_MX where MYID=''' + Trim(Order_Main.fieldbyname('MYID').AsString) + '''');
Open;
end;
JH := StrToInt(Trim(ADOQueryTemp.fieldbyname('js').AsString)) + 1;
with ADOQueryCmd do
begin
Append;
FieldByName('Filler').Value := Trim(DName);
FieldByName('MYID').Value := Trim(Order_Main.fieldbyname('MYID').AsString);
FieldByName('MXID').Value := Trim(maxno);
FieldByName('CMXID').Value := Trim(Order_Main.fieldbyname('MXID').AsString);
FieldByName('FSubId').Value := Trim(Order_Main.fieldbyname('FSubId').AsString);
FieldByName('KCCDZSD').Value := Trim(Order_Main.fieldbyname('KCCDZSD').AsString);
FieldByName('KgQty').Value := strtofloatdef(trim(GJ.Text), 0);
FieldByName('MQty').Value := strtofloatdef(trim(MS.Text), 0);
FieldByName('ZKZT').Value := '<27>ڿ<EFBFBD>';
FieldByName('JH').Value := JH;
Post;
end;
ZL := floattostr(strtofloatdef(trim(GJ.Text), 0));
CD := floattostr(strtofloatdef(trim(MS.Text), 0));
with ADOQueryCmd do
begin
Close;
sql.Clear;
sql.Add('Update CK_MYSC_CR_MX set KgQty=KgQty-''' + ZL + ''' ,MQty=MQty -''' + CD + ''' where MXID=''' + Trim(Order_Main.fieldbyname('MXID').AsString) + ''' ');
sql.Add(' UPdate CK_MYSC_CR Set MXHZQty=(select Sum(MQty) from CK_MYSC_CR_MX A where A.MYID=CK_MYSC_CR.MYID) ');
sql.Add(' ,MXHZKgQty=(select Sum(KgQty) from CK_MYSC_CR_MX A where A.MYID=CK_MYSC_CR.MYID) ');
sql.Add(' ,MXHZPS=(select Count(*) from CK_MYSC_CR_MX A where A.MYID=CK_MYSC_CR.MYID) ');
sql.Add(' where MYID=''' + Trim(Order_Main.fieldbyname('MYID').AsString) + '''');
sql.Add(' Update CK_MYSC_CR Set QtyChaE=isnull(MXHZQty,0)-isnull(Qty,0),KgQtyChaE=isnull(MXHZKgQty,0)-isnull(KgQty,0),PSChaE=isnull(MXHZPS,0)-isnull(PS,0) ');
sql.Add(' where MYID=''' + Trim(Order_Main.fieldbyname('MYID').AsString) + '''');
// showmessage(sql.text);
ExecSQL;
end;
application.ProcessMessages;
end;
end;
Order_Main.EnableControls;
ADOQueryCmd.Connection.CommitTrans;
Application.MessageBox('<27><>ƥ<EFBFBD>ɹ<EFBFBD><C9B9><EFBFBD>', '<27><>ʾ', 0);
Panel4.Visible := False;
TBRafresh.Click;
Exit;
except
Order_Main.EnableControls;
ADOQueryCmd.Connection.RollbackTrans;
Application.MessageBox('<27><>ƥ<EFBFBD>쳣<EFBFBD><ECB3A3>', '<27><>ʾ', 0);
Panel4.Visible := False;
end;
end;
procedure TfrmSCDMX.ToolButton5Click(Sender: TObject);
var
ZL, CD: string;
begin
if Order_Main.IsEmpty then
Exit;
if Order_Main.Locate('SSel', True, []) = False then
begin
Application.MessageBox('û<><C3BB>ѡ<EFBFBD><D1A1><EFBFBD><EFBFBD><EFBFBD><EFBFBD>!', '<27><>ʾ', 0);
Exit;
end;
with ADOQueryTemp do
begin
Close;
sql.Clear;
sql.Add('select * from CK_MYSC_CR_MX where MXID=''' + Trim(Order_Main.fieldbyname('MXID').AsString) + '''');
Open;
end;
if Trim(Order_Main.fieldbyname('CMXID').AsString) = '' then
begin
Application.MessageBox('<27><>ƥ<EFBFBD><C6A5><EFBFBD>Dz<EFBFBD>ƥ<EFBFBD><C6A5>,<2C><><EFBFBD>ܳ<EFBFBD><DCB3><EFBFBD><EFBFBD><EFBFBD>ƥ<EFBFBD><C6A5>', '<27><>ʾ');
exit;
end;
try
// Result := false;
ADOQueryCmd.Connection.BeginTrans;
Order_Main.DisableControls;
with Order_Main do
begin
ZL := floattostr(strtofloatdef(Trim(Order_Main.fieldbyname('mxKgQty').AsString), 0));
CD := floattostr(strtofloatdef(Trim(Order_Main.fieldbyname('mxMQty').AsString), 0));
with ADOQueryCmd do
begin
Close;
sql.Clear;
sql.Add('Update CK_MYSC_CR_MX set KgQty=KgQty+''' + ZL + ''' ,MQty=MQty +''' + CD + ''' where MXID=''' + Trim(Order_Main.fieldbyname('CMXID').AsString) + ''' ');
sql.Add(' Delete CK_MYSC_CR_MX where MXID=''' + Trim(Order_Main.fieldbyname('MXID').AsString) + '''');
sql.Add(' UPdate CK_MYSC_CR Set MXHZQty=(select Sum(MQty) from CK_MYSC_CR_MX A where A.MYID=CK_MYSC_CR.MYID) ');
sql.Add(' ,MXHZKgQty=(select Sum(KgQty) from CK_MYSC_CR_MX A where A.MYID=CK_MYSC_CR.MYID) ');
sql.Add(' ,MXHZPS=(select Count(*) from CK_MYSC_CR_MX A where A.MYID=CK_MYSC_CR.MYID) ');
sql.Add(' where MYID=''' + Trim(Order_Main.fieldbyname('MYID').AsString) + '''');
sql.Add(' Update CK_MYSC_CR Set QtyChaE=isnull(MXHZQty,0)-isnull(Qty,0),KgQtyChaE=isnull(MXHZKgQty,0)-isnull(KgQty,0),PSChaE=isnull(MXHZPS,0)-isnull(PS,0) ');
sql.Add(' where MYID=''' + Trim(Order_Main.fieldbyname('MYID').AsString) + '''');
ExecSQL;
end;
Order_Main.Delete;
end;
Order_Main.EnableControls;
ADOQueryCmd.Connection.CommitTrans;
// Result := True;
Application.MessageBox('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ƥ<EFBFBD>ɹ<EFBFBD><C9B9><EFBFBD>', '<27><>ʾ', 0);
TBRafresh.Click;
except
ADOQueryCmd.Connection.RollbackTrans;
// Result := False;
Application.MessageBox('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ƥ<EFBFBD>쳣<EFBFBD><ECB3A3>', '<27><>ʾ', 0);
end;
end;
procedure TfrmSCDMX.ZKZTBtnDnClick(Sender: TObject);
begin
TBtnEditC(Sender).Text := '';
TBtnEditC(Sender).TxtCode := '';
end;
procedure TfrmSCDMX.ZKZTBtnUpClick(Sender: TObject);
begin
try
frmZDYHelp := TfrmZDYHelp.Create(Application);
with frmZDYHelp do
begin
flag := 'ZKZT';
flagname := '<27><><EFBFBD><EFBFBD>״̬';
V1Name.Caption := '<27><><EFBFBD><EFBFBD>״̬';
if ShowModal = 1 then
begin
Self.ZKZT.Text := Trim(ClientDataSet1.fieldbyname('ZDYName').AsString);
end;
end;
finally
frmZDYHelp.Free;
end;
end;
procedure TfrmSCDMX.ToolButton7Click(Sender: TObject);
begin
if Order_Main.IsEmpty then
Exit;
if Order_Main.Locate('SSel', True, []) = False then
begin
Application.MessageBox('û<><C3BB>ѡ<EFBFBD><D1A1><EFBFBD><EFBFBD><EFBFBD><EFBFBD>!', '<27><>ʾ', 0);
Exit;
end;
try
Order_Main.DisableControls;
ADOQueryCmd.Connection.BeginTrans;
with Order_Main do
begin
First;
while not Eof do
begin
if Order_Main.FieldByName('SSel').AsBoolean = True then
begin
with ADOQueryCmd do
begin
Close;
sql.Clear;
sql.Add('Update CK_MYSC_CR_MX Set BPLX='''' ');
sql.Add(', CDZSD='''' ');
sql.Add(', CDmainid='''' ');
sql.Add(', ZKZT=''<27>ڿ<EFBFBD>'' ');
sql.Add('where MXID=''' + Trim(Order_Main.fieldbyname('MXID').AsString) + '''');
ExecSQL;
end;
end;
Next;
end;
end;
ADOQueryCmd.Connection.CommitTrans;
Order_Main.EnableControls;
application.MessageBox('<27><><EFBFBD>ݱ<EFBFBD><DDB1><EFBFBD><EFBFBD>ɹ<EFBFBD><C9B9><EFBFBD>', '<27><>ʾ<EFBFBD><CABE>Ϣ');
TBRafresh.Click;
except
ADOQueryCmd.Connection.RollbackTrans;
Order_Main.EnableControls;
application.MessageBox('<27><><EFBFBD>ݱ<EFBFBD><DDB1><EFBFBD>ʧ<EFBFBD>ܣ<EFBFBD>', '<27><>ʾ<EFBFBD><CABE>Ϣ', 0);
end;
end;
procedure TfrmSCDMX.MenuItem1Click(Sender: TObject);
begin
SelOKNoFilter(Tv1, True);
end;
procedure TfrmSCDMX.MenuItem2Click(Sender: TObject);
begin
SelOKNoFilter(Tv1, False);
end;
end.
Reference in New Issue Copy Permalink