Group_02/D10myYicheng
3
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity
3d3f2fd0cd
D10myYicheng/发货申请(ShipmentRequest.dll)/U_CPKCCX.pas

1056 lines
27 KiB
ObjectPascal
Raw Normal View History

111
2025-05-27 14:08:09 +08:00
unit U_CPKCCX;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, cxStyles, cxCustomData, cxGraphics, cxFilter, cxData, cxDataStorage,
cxEdit, DB, cxDBData, StdCtrls, ExtCtrls, ADODB, DBClient,
cxGridCustomPopupMenu, cxGridPopupMenu, cxGridLevel, cxGridCustomTableView,
cxGridTableView, cxGridDBTableView, cxClasses, cxControls, cxGridCustomView,
cxGrid, MovePanel, cxCheckBox, Menus, ComCtrls, BtnEdit, ShellAPI, cxTextEdit,
RM_Common, RM_Class, RM_GridReport, RM_System, RM_Dataset, RM_e_Xls,
cxCalendar, cxLookAndFeels, cxLookAndFeelPainters, cxNavigator, dxSkinsCore,
dxSkinsDefaultPainters, dxDateRanges, dxBarBuiltInMenu;
type
TfrmCPKCCX = class(TForm)
ADOQueryTemp: TADOQuery;
ADOQueryCmd: TADOQuery;
DS_MainSel: TDataSource;
cxGridPopupMenu4: TcxGridPopupMenu;
cxStyleRepository1: TcxStyleRepository;
cxStyle1: TcxStyle;
CDS_YanSe: TClientDataSet;
RMXLSExport1: TRMXLSExport;
RMDBMX: TRMDBDataSet;
RM1: TRMGridReport;
DS_YanSe: TDataSource;
Panel1: TPanel;
Panel3: TPanel;
Label5: TLabel;
OrderNo: TEdit;
cxGrid5: TcxGrid;
TV5: TcxGridDBTableView;
v1Column12: TcxGridDBColumn;
v1Column14: TcxGridDBColumn;
v1Column1: TcxGridDBColumn;
v2Column1: TcxGridDBColumn;
v2Column3: TcxGridDBColumn;
v1Column8: TcxGridDBColumn;
v1Column9: TcxGridDBColumn;
v1Column6: TcxGridDBColumn;
v1Column13: TcxGridDBColumn;
v1Column2: TcxGridDBColumn;
v1Column4: TcxGridDBColumn;
v1Column3: TcxGridDBColumn;
v1Column18: TcxGridDBColumn;
v2Column6: TcxGridDBColumn;
v1Column7: TcxGridDBColumn;
v1Column5: TcxGridDBColumn;
v1Column16: TcxGridDBColumn;
cxGrid5Level1: TcxGridLevel;
Button2: TButton;
Button1: TButton;
Panel2: TPanel;
Button3: TButton;
Button4: TButton;
cxGrid1: TcxGrid;
TV1: TcxGridDBTableView;
cxGridLevel2: TcxGridLevel;
Panel4: TPanel;
V1Column15: TcxGridDBColumn;
V1Column17: TcxGridDBColumn;
V1Column19: TcxGridDBColumn;
V1Column20: TcxGridDBColumn;
V1Column21: TcxGridDBColumn;
V1Column22: TcxGridDBColumn;
V1Column23: TcxGridDBColumn;
cxGrid2: TcxGrid;
TV2: TcxGridDBTableView;
cxGridDBColumn1: TcxGridDBColumn;
cxGridDBColumn2: TcxGridDBColumn;
cxGridDBColumn3: TcxGridDBColumn;
cxGridDBColumn4: TcxGridDBColumn;
cxGridDBColumn5: TcxGridDBColumn;
cxGridDBColumn6: TcxGridDBColumn;
cxGridDBColumn7: TcxGridDBColumn;
cxGridLevel1: TcxGridLevel;
cxGrid3: TcxGrid;
TV3: TcxGridDBTableView;
cxGridDBColumn8: TcxGridDBColumn;
cxGridDBColumn11: TcxGridDBColumn;
cxGridDBColumn12: TcxGridDBColumn;
cxGridDBColumn13: TcxGridDBColumn;
cxGridDBColumn14: TcxGridDBColumn;
cxGridLevel3: TcxGridLevel;
Panel6: TPanel;
Panel5: TPanel;
Panel7: TPanel;
Panel8: TPanel;
LabHZ: TLabel;
CDS_MainSel: TClientDataSet;
CDS_GangHao: TClientDataSet;
CDS_TuoTuan: TClientDataSet;
DS_GangHao: TDataSource;
DS_TuoTuan: TDataSource;
V1Column10: TcxGridDBColumn;
V2Column2: TcxGridDBColumn;
V3Column1: TcxGridDBColumn;
V3Column2: TcxGridDBColumn;
V2Column4: TcxGridDBColumn;
V2Column7: TcxGridDBColumn;
V1Column11: TcxGridDBColumn;
V2Column8: TcxGridDBColumn;
V3Column3: TcxGridDBColumn;
CDS_YanSeSel: TClientDataSet;
CDS_GangHaoSel: TClientDataSet;
CDS_TuoTuanSel: TClientDataSet;
cxGridPopupMenu1: TcxGridPopupMenu;
cxGridPopupMenu2: TcxGridPopupMenu;
cxGridPopupMenu3: TcxGridPopupMenu;
btnCX: TButton;
DataSource6: TDataSource;
ClientDataSet6: TClientDataSet;
cxStyleRepository2: TcxStyleRepository;
cxStyle2: TcxStyle;
TV5Column1: TcxGridDBColumn;
PopupMenu2: TPopupMenu;
MenuItem1: TMenuItem;
N2: TMenuItem;
pmCDS_YanSe: TPopupMenu;
MenuItem2: TMenuItem;
MenuItem3: TMenuItem;
pmGangHao: TPopupMenu;
MenuItem4: TMenuItem;
MenuItem5: TMenuItem;
pmTuoTuan: TPopupMenu;
MenuItem6: TMenuItem;
MenuItem7: TMenuItem;
Label1: TLabel;
MPRTCodeName: TEdit;
Label2: TLabel;
MPRTMF: TEdit;
Label3: TLabel;
MPRTKZ: TEdit;
Label4: TLabel;
lidan: TEdit;
Label6: TLabel;
ConNo: TEdit;
Label7: TLabel;
ywy: TEdit;
Label8: TLabel;
MainId: TEdit;
TV5Column2: TcxGridDBColumn;
procedure FormClose(Sender: TObject; var Action: TCloseAction);
procedure FormDestroy(Sender: TObject);
procedure FormShow(Sender: TObject);
procedure Button2Click(Sender: TObject);
procedure Button1Click(Sender: TObject);
procedure btnCXClick(Sender: TObject);
procedure V1Column10PropertiesEditValueChanged(Sender: TObject);
procedure V2Column2PropertiesEditValueChanged(Sender: TObject);
procedure V3Column1PropertiesEditValueChanged(Sender: TObject);
procedure v1Column12PropertiesEditValueChanged(Sender: TObject);
procedure MenuItem1Click(Sender: TObject);
procedure N2Click(Sender: TObject);
procedure MenuItem4Click(Sender: TObject);
procedure MenuItem5Click(Sender: TObject);
procedure MenuItem2Click(Sender: TObject);
procedure MenuItem3Click(Sender: TObject);
procedure MenuItem6Click(Sender: TObject);
procedure MenuItem7Click(Sender: TObject);
private
{ Private declarations }
fsjYS, fsjGH, fsjTP: string;
XZPS: Integer;
XZMS, XZKg, XZYS: Double;
procedure InitKC();
procedure initMXKC();
procedure initHZData();
procedure initLab();
public
{ Public declarations }
end;
var
frmCPKCCX: TfrmCPKCCX;
implementation
uses
U_DataLink, U_RTFun, MMSystem, U_FHSQListSel, U_CPKCHZSel;
{$R *.dfm}
procedure TfrmCPKCCX.InitKC();
var
fwhere, Pwhere: string;
begin
Pwhere := SGetFilters(Panel1, 1, 2);
if trim(Pwhere) <> '' then
fwhere := fwhere + ' where ' + trim(Pwhere);
with ADOQueryTemp do
begin
Filtered := False;
Close;
sql.Clear;
sql.Add(' Select AA.* ');
sql.Add(' ,B.OrderNo,B.MPRTCode,B.MPRTCodeName,B.MPRTMF,B.MPRTKZ ');
sql.Add(' ,C.PRTColor,C.PRTEColor,C.PRTHX,C.PrtKuanNo,C.PRTColorNo ');
sql.Add(' from(select A.MainId,A.Subid,QtyY=sum(Cast(A.Qty*1.0936 as decimal(18,1))),QtyM=sum(Qty),QtyKg=Sum(KgQty),PS=Count(*) ');
sql.Add(' from CK_BanCP_CR A inner join CK_BanCP_KC D on A.MJID=D.MJID ');
sql.Add(' where A.CRFlag=''<27><><EFBFBD><EFBFBD>'' and A.CPType=''<27><>Ʒ'' and D.KCValid=''Y'' ');
sql.Add(' and A.MainId=' + QUOTEDSTR(MainId.Text));
sql.Add(' Group by A.MainId,A.Subid) AA ');
sql.Add(' inner join JYOrder_Main B on AA.MainId=B.MainId ');
sql.Add(' inner join JYOrder_Sub C on AA.SubId=C.SubId ');
Open;
end;
SCreateCDS(ADOQueryTemp, CDS_YanSe);
SInitCDSData(ADOQueryTemp, CDS_YanSe);
// SelOKNo(CDS_YanSe, True);
with ADOQueryTemp do
begin
Filtered := False;
Close;
sql.Clear;
sql.Add(' Select AA.* ');
sql.Add(' ,B.OrderNo,B.MPRTCode,B.MPRTCodeName,B.MPRTMF,B.MPRTKZ ');
sql.Add(' ,C.PRTColor,C.PRTEColor,C.PRTHX,C.PrtKuanNo,C.PRTColorNo ');
sql.Add(' from(select A.MainId,A.Subid,A.APID,A.GangHao,QtyY=sum(Cast(A.Qty*1.0936 as decimal(18,1))),QtyM=sum(Qty),QtyKg=Sum(KgQty),PS=Count(*) ');
sql.Add(' from CK_BanCP_CR A inner join CK_BanCP_KC D on A.MJID=D.MJID ');
sql.Add(' where A.CRFlag=''<27><><EFBFBD><EFBFBD>'' and A.CPType=''<27><>Ʒ'' and D.KCValid=''Y'' ');
sql.Add(' and A.MainId=' + QUOTEDSTR(MainId.Text));
sql.Add(' Group by A.MainId,A.Subid,A.APID,A.GangHao) AA ');
sql.Add(' inner join JYOrder_Main B on AA.MainId=B.MainId ');
sql.Add(' inner join JYOrder_Sub C on AA.SubId=C.SubId ');
Open;
end;
SCreateCDS(ADOQueryTemp, CDS_GangHao);
SInitCDSData(ADOQueryTemp, CDS_GangHao);
// SelOKNo(CDS_GangHao, True);
with ADOQueryTemp do
begin
Filtered := False;
Close;
sql.Clear;
sql.Add(' Select AA.* ');
sql.Add(' ,B.OrderNo,B.MPRTCode,B.MPRTCodeName,B.MPRTMF,B.MPRTKZ ');
sql.Add(' from(select A.MainId,A.RKOrdID,A.KuangHao,QtyY=sum(Cast(A.Qty*1.0936 as decimal(18,1))),QtyM=sum(Qty),QtyKg=Sum(KgQty),PS=Count(*) ');
sql.Add(' from CK_BanCP_CR A inner join CK_BanCP_KC D on A.MJID=D.MJID ');
sql.Add(' where A.CRFlag=''<27><><EFBFBD><EFBFBD>'' and A.CPType=''<27><>Ʒ'' and D.KCValid=''Y'' ');
sql.Add(' and A.MainId=' + QUOTEDSTR(MainId.Text));
sql.Add(' Group by A.MainId,A.RKOrdID,A.KuangHao) AA ');
sql.Add(' inner join JYOrder_Main B on AA.MainId=B.MainId ');
Open;
end;
SCreateCDS(ADOQueryTemp, CDS_TuoTuan);
SInitCDSData(ADOQueryTemp, CDS_TuoTuan);
// SelOKNo(CDS_TuoTuan, True);
with ADOQueryTemp do
begin
Filtered := False;
Close;
sql.Clear;
sql.Add(' select A.*,QtyY=Cast(A.Qty*1.0936 as decimal(18,1)) ');
sql.Add(' ,B.OrderNo,B.MPRTCode,B.MPRTCodeName,B.MPRTMF,B.MPRTKZ ');
sql.Add(' ,C.PRTColor,C.PRTEColor,C.PRTHX,C.PrtKuanNo ');
sql.Add(' from CK_BanCP_CR A inner join CK_BanCP_KC D on A.MJID=D.MJID ');
sql.Add(' inner join JYOrder_Main B on A.MainId=B.MainId ');
sql.Add(' inner join JYOrder_Sub C on A.SubId=C.SubId ');
sql.Add(' where A.CRFlag=''<27><><EFBFBD><EFBFBD>'' and A.CPType=''<27><>Ʒ'' and D.KCValid=''Y'' ');
sql.Add(' and A.MainId=' + QUOTEDSTR(MainId.Text));
Open;
end;
SCreateCDS(ADOQueryTemp, CDS_MainSel);
SInitCDSData(ADOQueryTemp, CDS_MainSel);
// SelOKNo(CDS_MainSel, True);
end;
procedure TfrmCPKCCX.initMXKC();
var
fsj: string;
begin
fsj := '';
with CDS_YanSeSel do
begin
First;
while not eof do
begin
if Trim(fsj) = '' then
begin
fsj := fsj + '''' + Trim(fieldbyname('SubId').AsString) + '''';
end
else
fsj := fsj + ',' + '''' + Trim(fieldbyname('SubId').AsString) + '''';
Next;
end;
end;
fsjYS := fsj;
fsj := '';
with CDS_GangHaoSel do
begin
First;
while not eof do
begin
if Trim(fsj) = '' then
begin
fsj := fsj + '''' + Trim(fieldbyname('APId').AsString) + '''';
end
else
fsj := fsj + ',' + '''' + Trim(fieldbyname('APId').AsString) + '''';
Next;
end;
end;
fsjGH := fsj;
fsj := '';
with CDS_TuoTuanSel do
begin
First;
while not eof do
begin
if Trim(fsj) = '' then
begin
fsj := fsj + '''' + Trim(fieldbyname('RKOrdID').AsString) + '''';
end
else
fsj := fsj + ',' + '''' + Trim(fieldbyname('RKOrdID').AsString) + '''';
Next;
end;
end;
fsjTP := fsj;
with ADOQueryTemp do
begin
Filtered := False;
Close;
sql.Clear;
sql.Add(' select A.*,QtyY=Cast(A.Qty*1.0936 as decimal(18,1)) ');
sql.Add(' ,B.OrderNo,B.MPRTCode,B.MPRTCodeName,B.MPRTMF,B.MPRTKZ ');
sql.Add(' ,C.PRTColor,C.PRTEColor,C.PRTHX,C.PrtKuanNo ');
sql.Add(' from CK_BanCP_CR A inner join CK_BanCP_KC D on A.MJID=D.MJID ');
sql.Add(' inner join JYOrder_Main B on A.MainId=B.MainId ');
sql.Add(' inner join JYOrder_Sub C on A.SubId=C.SubId ');
sql.Add(' where A.CRFlag=''<27><><EFBFBD><EFBFBD>'' and A.CPType=''<27><>Ʒ'' and D.KCValid=''Y'' ');
sql.Add(' and A.MainId=' + QUOTEDSTR(MainId.Text));
if Trim(fsjYS) <> '' then
begin
sql.Add(' and A.Subid in(' + Trim(fsjYS) + ')');
end;
if Trim(fsjGH) <> '' then
begin
sql.Add(' and A.APid in(' + Trim(fsjGH) + ')');
end;
if Trim(fsjTP) <> '' then
begin
sql.Add(' and A.RKOrdID in(' + Trim(fsjTP) + ')');
end;
Open;
end;
SCreateCDS(ADOQueryTemp, CDS_MainSel);
SInitCDSData(ADOQueryTemp, CDS_MainSel);
SelOKNo(CDS_MainSel, True);
initHZData();
initLab();
end;
procedure TfrmCPKCCX.initHZData();
begin
with ADOQueryTemp do
begin
Close;
sql.Clear;
sql.Add(' select PS=count(*),QtyY=sum(MJYLen),QtyKg=sum(KgQty),QtyM=sum(Qty) ');
sql.Add(' from CK_BanCP_CR A inner join CK_BanCP_KC D on A.MJID=D.MJID ');
sql.Add(' where A.CRFlag=''<27><><EFBFBD><EFBFBD>'' and A.CPType=''<27><>Ʒ'' and D.KCValid=''Y'' ');
sql.Add(' and A.MainId=' + QUOTEDSTR(MainId.Text));
if Trim(fsjYS) <> '' then
begin
sql.Add(' and A.Subid in(' + Trim(fsjYS) + ')');
end;
if Trim(fsjGH) <> '' then
begin
sql.Add(' and A.APid in(' + Trim(fsjGH) + ')');
end;
if Trim(fsjTP) <> '' then
begin
sql.Add(' and A.RKOrdID in(' + Trim(fsjTP) + ')');
end;
Open;
end;
if Trim(ADOQueryTemp.fieldbyname('PS').AsString) <> '' then
begin
XZPS := ADOQueryTemp.fieldbyname('PS').Value;
end
else
begin
XZPS := 0;
end;
if Trim(ADOQueryTemp.fieldbyname('QtyM').AsString) <> '' then
begin
XZMS := ADOQueryTemp.fieldbyname('QtyM').Value;
end
else
begin
XZMS := 0;
end;
if Trim(ADOQueryTemp.fieldbyname('QtyKg').AsString) <> '' then
begin
XZKg := ADOQueryTemp.fieldbyname('QtyKg').Value;
end
else
begin
XZKg := 0;
end;
if Trim(ADOQueryTemp.fieldbyname('QtyY').AsString) <> '' then
begin
XZYS := ADOQueryTemp.fieldbyname('QtyY').Value;
end
else
begin
XZYS := 0;
end;
end;
procedure TfrmCPKCCX.initLab();
begin
LabHZ.Caption := 'ѡ<>У<EFBFBD>' + inttostr(XZPS) + 'ƥ,' + ' ' + FloatToStr(XZMS) + '<27><>,' + ' ' + FloatToStr(XZYS) + '<27><>,' + ' ' + FloatToStr(XZKg) + '<27><><EFBFBD><EFBFBD>';
end;
procedure TfrmCPKCCX.FormClose(Sender: TObject; var Action: TCloseAction);
begin
Action := caFree;
end;
procedure TfrmCPKCCX.FormDestroy(Sender: TObject);
begin
frmCPKCCX := nil;
end;
procedure TfrmCPKCCX.FormShow(Sender: TObject);
begin
ReadCxGrid('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ѯ1', Tv1, '<27><>Ʒ<EFBFBD>ֿ<EFBFBD>');
ReadCxGrid('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ѯ2', Tv2, '<27><>Ʒ<EFBFBD>ֿ<EFBFBD>');
ReadCxGrid('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ѯ3', Tv3, '<27><>Ʒ<EFBFBD>ֿ<EFBFBD>');
ReadCxGrid('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ѯ5', Tv5, '<27><>Ʒ<EFBFBD>ֿ<EFBFBD>');
end;
procedure TfrmCPKCCX.Button2Click(Sender: TObject);
begin
Close;
WriteCxGrid('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ѯ1', Tv1, '<27><>Ʒ<EFBFBD>ֿ<EFBFBD>');
WriteCxGrid('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ѯ2', Tv2, '<27><>Ʒ<EFBFBD>ֿ<EFBFBD>');
WriteCxGrid('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ѯ3', Tv3, '<27><>Ʒ<EFBFBD>ֿ<EFBFBD>');
WriteCxGrid('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ѯ5', Tv5, '<27><>Ʒ<EFBFBD>ֿ<EFBFBD>');
end;
procedure TfrmCPKCCX.Button1Click(Sender: TObject);
var
MKey: Char;
begin
try
frmCPKCHZSel := TfrmCPKCHZSel.Create(self);
with frmCPKCHZSel do
begin
if ShowModal = 1 then
begin
self.orderNo.Text := Trim(CDS_Main.fieldbyname('orderNo').AsString);
end;
end;
finally
frmCPKCHZSel.Free;
end;
with ADOQueryTemp do
begin
Close;
sql.Clear;
sql.Add('select * from JYOrder_Main where orderNo=' + QUOTEDSTR(OrderNo.Text));
Open;
end;
SCSHData(ADOQueryTemp, Panel4, 1);
fsjYS := '';
fsjGH := '';
fsjTP := '';
btnCX.Click;
end;
procedure TfrmCPKCCX.btnCXClick(Sender: TObject);
begin
if Trim(OrderNo.Text) = '' then
Exit;
with ADOQueryTemp do
begin
Close;
sql.Clear;
sql.Add('select SubId=CAST('''' AS VARCHAR(60)) ');
Open;
end;
SCreateCDS(ADOQueryTemp, CDS_YanSeSel);
with ADOQueryTemp do
begin
Close;
sql.Clear;
sql.Add('select APId=CAST('''' AS VARCHAR(60)) ');
Open;
end;
SCreateCDS(ADOQueryTemp, CDS_GangHaoSel);
with ADOQueryTemp do
begin
Filtered := False;
Close;
sql.Clear;
sql.Add(' select RKOrdID =CAST('''' AS VARCHAR(60)) ');
Open;
end;
SCreateCDS(ADOQueryTemp, CDS_TuoTuanSel);
InitKC();
initHZData();
initLab();
end;
procedure TfrmCPKCCX.V1Column10PropertiesEditValueChanged(Sender: TObject);
var
mvalue: Boolean;
fsj: string;
begin
mvalue := TcxCheckBox(Sender).EditingValue;
with CDS_YanSe do
begin
Edit;
FieldByName('SSel').Value := mvalue;
end;
if mvalue = True then
begin
with CDS_YanSeSel do
begin
Append;
FieldByName('SubId').Value := Trim(CDS_YanSe.fieldbyname('SubId').AsString);
Post;
end;
end
else
begin
CDS_YanSeSel.Locate('SubId', Trim(CDS_YanSe.fieldbyname('SubId').AsString), []);
CDS_YanSeSel.Delete;
end;
fsj := '';
with CDS_YanSeSel do
begin
First;
while not eof do
begin
if Trim(fsj) = '' then
begin
fsj := fsj + '''' + Trim(fieldbyname('SubId').AsString) + '''';
end
else
fsj := fsj + ',' + '''' + Trim(fieldbyname('SubId').AsString) + '''';
Next;
end;
end;
with ADOQueryTemp do
begin
Filtered := False;
Close;
sql.Clear;
sql.Add(' Select AA.* ');
sql.Add(' ,B.OrderNo,B.MPRTCode,B.MPRTCodeName,B.MPRTMF,B.MPRTKZ ');
sql.Add(' ,C.PRTColor,C.PRTEColor,C.PRTHX,C.PrtKuanNo,C.PRTColorNo ');
sql.Add(' from(select A.MainId,A.Subid,A.GangHao,A.APID,QtyY=sum(Cast(A.Qty*1.0936 as decimal(18,1))),QtyM=sum(Qty),QtyKg=Sum(KgQty),PS=Count(*) ');
sql.Add(' from CK_BanCP_CR A inner join CK_BanCP_KC D on A.MJID=D.MJID ');
sql.Add(' where A.CRFlag=''<27><><EFBFBD><EFBFBD>'' and D.KCValid=''Y'' and A.CPType=''<27><>Ʒ'' ');
sql.Add(' and A.MainId=' + QUOTEDSTR(MainId.Text));
if Trim(fsj) <> '' then
begin
sql.Add(' and A.Subid in(' + Trim(fsj) + ')');
end
else
begin
sql.Add(' and 1=2');
end;
sql.Add(' Group by A.MainId,A.Subid,A.GangHao,A.APID) AA ');
sql.Add(' inner join JYOrder_Main B on AA.MainId=B.MainId ');
sql.Add(' inner join JYOrder_Sub C on AA.SubId=C.SubId ');
// ShowMessage(SQL.Text);
Open;
end;
SCreateCDS(ADOQueryTemp, CDS_GangHao);
SInitCDSData(ADOQueryTemp, CDS_GangHao);
// SelOKNo(CDS_GangHao, True);
with ADOQueryTemp do
begin
Close;
sql.Clear;
sql.Add('select APId=Cast(Null as varchar(20))');
Open;
end;
SCreateCDS(ADOQueryTemp, CDS_GangHaoSel);
SInitCDSData(ADOQueryTemp, CDS_GangHaoSel);
if CDS_GangHaoSel.IsEmpty = False then
begin
CDS_GangHaoSel.Delete;
end;
CDS_GangHao.DisableControls;
with CDS_GangHao do
begin
First;
while not Eof do
begin
if FieldByName('SSel').AsBoolean = True then
begin
with CDS_GangHaoSel do
begin
Append;
CDS_GangHaoSel.FieldByName('APID').Value := CDS_GangHao.FieldByName('APID').Value;
Post;
end;
end;
Next;
end;
end;
CDS_GangHao.EnableControls;
initMXKC();
end;
procedure TfrmCPKCCX.V2Column2PropertiesEditValueChanged(Sender: TObject);
var
mvalue: Boolean;
begin
mvalue := TcxCheckBox(Sender).EditingValue;
with CDS_GangHao do
begin
Edit;
FieldByName('SSel').Value := mvalue;
end;
if mvalue = True then
begin
with CDS_GangHaoSel do
begin
Append;
FieldByName('APId').Value := Trim(CDS_GangHao.fieldbyname('APId').AsString);
Post;
end;
end
else
begin
CDS_GangHaoSel.Locate('APId', Trim(CDS_GangHao.fieldbyname('APId').AsString), []);
CDS_GangHaoSel.Delete;
end;
initMXKC();
end;
procedure TfrmCPKCCX.V3Column1PropertiesEditValueChanged(Sender: TObject);
var
mvalue: Boolean;
begin
mvalue := TcxCheckBox(Sender).EditingValue;
with CDS_TuoTuan do
begin
Edit;
FieldByName('SSel').Value := mvalue;
end;
if mvalue = True then
begin
with CDS_TuoTuanSel do
begin
Append;
FieldByName('RKOrdID').Value := Trim(CDS_TuoTuan.fieldbyname('RKOrdID').AsString);
Post;
end;
end
else
begin
CDS_TuoTuanSel.Locate('RKOrdID', Trim(CDS_TuoTuan.fieldbyname('RKOrdID').AsString), []);
CDS_TuoTuanSel.Delete;
end;
initMXKC();
end;
procedure TfrmCPKCCX.v1Column12PropertiesEditValueChanged(Sender: TObject);
var
mvalue: Boolean;
begin
mvalue := TcxCheckBox(Sender).EditingValue;
with CDS_MainSel do
begin
Edit;
FieldByName('SSel').Value := mvalue;
Post;
end;
if mvalue = False then
begin
XZPS := XZPS - 1;
XZMS := XZMS - CDS_MainSel.fieldbyname('Qty').Value;
XZYS := XZYS - CDS_MainSel.fieldbyname('MJYLen').Value;
XZKg := XZKg - CDS_MainSel.fieldbyname('KGQty').Value;
end
else
begin
XZPS := XZPS + 1;
XZMS := XZMS + CDS_MainSel.fieldbyname('Qty').Value;
XZYS := XZYS + CDS_MainSel.fieldbyname('MJYLen').Value;
XZKg := XZKg + CDS_MainSel.fieldbyname('KGQty').Value;
end;
initLab();
end;
procedure TfrmCPKCCX.MenuItem1Click(Sender: TObject);
begin
SelOKNo(CDS_MainSel, True);
// XZPS := 0;
// XZMS := 0;
// XZYS := 0;
// XZKg := 0;
// initLab();
end;
procedure TfrmCPKCCX.N2Click(Sender: TObject);
begin
SelOKNo(CDS_MainSel, false);
XZPS := 0;
XZMS := 0;
XZYS := 0;
XZKg := 0;
initLab();
end;
procedure TfrmCPKCCX.MenuItem4Click(Sender: TObject);
begin
with CDS_GangHao do
begin
CDS_GangHao.DisableControls;
First;
while not Eof do
begin
if not CDS_GangHao.FieldByName('SSel').AsBoolean then
begin
with CDS_GangHao do
begin
Edit;
FieldByName('SSel').Value := True;
Post
end;
with CDS_GangHaoSel do
begin
Append;
FieldByName('APId').Value := Trim(CDS_GangHao.fieldbyname('APId').AsString);
Post;
end;
end;
Next;
end;
CDS_GangHao.EnableControls;
end;
initMXKC();
end;
procedure TfrmCPKCCX.MenuItem5Click(Sender: TObject);
begin
with CDS_GangHao do
begin
CDS_GangHao.DisableControls;
First;
while not Eof do
begin
if CDS_GangHao.FieldByName('SSel').AsBoolean then
begin
with CDS_GangHao do
begin
Edit;
FieldByName('SSel').Value := False;
Post
end;
end;
Next;
end;
CDS_GangHao.EnableControls;
end;
CDS_GangHaoSel.EmptyDataSet;
initMXKC();
end;
procedure TfrmCPKCCX.MenuItem2Click(Sender: TObject);
var
fsj: string;
begin
with CDS_YanSe do
begin
CDS_YanSe.DisableControls;
First;
while not Eof do
begin
if not CDS_YanSe.FieldByName('SSel').AsBoolean then
begin
with CDS_YanSe do
begin
Edit;
FieldByName('SSel').Value := True;
Post
end;
with CDS_YanSeSel do
begin
Append;
FieldByName('SubId').Value := Trim(CDS_YanSe.fieldbyname('SubId').AsString);
Post;
end;
end;
Next;
end;
CDS_YanSe.EnableControls;
end;
fsj := '';
with CDS_YanSeSel do
begin
First;
while not eof do
begin
if Trim(fsj) = '' then
begin
fsj := fsj + '''' + Trim(fieldbyname('SubId').AsString) + '''';
end
else
fsj := fsj + ',' + '''' + Trim(fieldbyname('SubId').AsString) + '''';
Next;
end;
end;
with ADOQueryTemp do
begin
Filtered := False;
Close;
sql.Clear;
sql.Add(' Select AA.* ');
sql.Add(' ,B.OrderNo,B.MPRTCode,B.MPRTCodeName,B.MPRTMF,B.MPRTKZ ');
sql.Add(' ,C.PRTColor,C.PRTEColor,C.PRTHX,C.PrtKuanNo,C.PRTColorNo ');
sql.Add(' from(select A.MainId,A.Subid,A.GangHao,A.APID,QtyY=sum(Cast(A.Qty*1.0936 as decimal(18,1))),QtyM=sum(Qty),QtyKg=Sum(KgQty),PS=Count(*) ');
sql.Add(' from CK_BanCP_CR A inner join CK_BanCP_KC D on A.MJID=D.MJID ');
sql.Add(' where A.CRFlag=''<27><><EFBFBD><EFBFBD>'' and D.KCValid=''Y'' and A.CPType=''<27><>Ʒ'' ');
sql.Add(' and A.MainId=' + QUOTEDSTR(MainId.Text));
if Trim(fsj) <> '' then
begin
sql.Add(' and A.Subid in(' + Trim(fsj) + ')');
end
else
begin
sql.Add(' and 1=2');
end;
sql.Add(' Group by A.MainId,A.Subid,A.GangHao,A.APID) AA ');
sql.Add(' inner join JYOrder_Main B on AA.MainId=B.MainId ');
sql.Add(' inner join JYOrder_Sub C on AA.SubId=C.SubId ');
// ShowMessage(SQL.Text);
Open;
end;
SCreateCDS(ADOQueryTemp, CDS_GangHao);
SInitCDSData(ADOQueryTemp, CDS_GangHao);
// SelOKNo(CDS_GangHao, True);
with ADOQueryTemp do
begin
Close;
sql.Clear;
sql.Add('select APId=Cast(Null as varchar(20))');
Open;
end;
SCreateCDS(ADOQueryTemp, CDS_GangHaoSel);
SInitCDSData(ADOQueryTemp, CDS_GangHaoSel);
if CDS_GangHaoSel.IsEmpty = False then
begin
CDS_GangHaoSel.Delete;
end;
CDS_GangHao.DisableControls;
with CDS_GangHao do
begin
First;
while not Eof do
begin
if FieldByName('SSel').AsBoolean = True then
begin
with CDS_GangHaoSel do
begin
Append;
CDS_GangHaoSel.FieldByName('APID').Value := CDS_GangHao.FieldByName('APID').Value;
Post;
end;
end;
Next;
end;
end;
CDS_GangHao.EnableControls;
initMXKC();
end;
procedure TfrmCPKCCX.MenuItem3Click(Sender: TObject);
var
fsj: string;
begin
with CDS_YanSe do
begin
CDS_YanSe.DisableControls;
First;
while not Eof do
begin
if CDS_YanSe.FieldByName('SSel').AsBoolean then
begin
with CDS_YanSe do
begin
Edit;
FieldByName('SSel').Value := False;
Post
end;
end;
Next;
end;
CDS_YanSe.EnableControls;
end;
CDS_YanSeSel.EmptyDataSet;
fsj := '';
with ADOQueryTemp do
begin
Filtered := False;
Close;
sql.Clear;
sql.Add(' Select AA.* ');
sql.Add(' ,B.OrderNo,B.MPRTCode,B.MPRTCodeName,B.MPRTMF,B.MPRTKZ ');
sql.Add(' ,C.PRTColor,C.PRTEColor,C.PRTHX,C.PrtKuanNo,C.PRTColorNo ');
sql.Add(' from(select A.MainId,A.Subid,A.GangHao,A.APID,QtyY=sum(Cast(A.Qty*1.0936 as decimal(18,1))),QtyM=sum(Qty),QtyKg=Sum(KgQty),PS=Count(*) ');
sql.Add(' from CK_BanCP_CR A inner join CK_BanCP_KC D on A.MJID=D.MJID ');
sql.Add(' where A.CRFlag=''<27><><EFBFBD><EFBFBD>'' and D.KCValid=''Y'' and A.CPType=''<27><>Ʒ'' ');
sql.Add(' and A.MainId=' + QUOTEDSTR(MainId.Text));
if Trim(fsj) <> '' then
begin
sql.Add(' and A.Subid in(' + Trim(fsj) + ')');
end
else
begin
sql.Add(' and 1=2');
end;
sql.Add(' Group by A.MainId,A.Subid,A.GangHao,A.APID) AA ');
sql.Add(' inner join JYOrder_Main B on AA.MainId=B.MainId ');
sql.Add(' inner join JYOrder_Sub C on AA.SubId=C.SubId ');
// ShowMessage(SQL.Text);
Open;
end;
SCreateCDS(ADOQueryTemp, CDS_GangHao);
SInitCDSData(ADOQueryTemp, CDS_GangHao);
// SelOKNo(CDS_GangHao, True);
with ADOQueryTemp do
begin
Close;
sql.Clear;
sql.Add('select APId=Cast(Null as varchar(20))');
Open;
end;
SCreateCDS(ADOQueryTemp, CDS_GangHaoSel);
SInitCDSData(ADOQueryTemp, CDS_GangHaoSel);
if CDS_GangHaoSel.IsEmpty = False then
begin
CDS_GangHaoSel.Delete;
end;
CDS_GangHao.DisableControls;
with CDS_GangHao do
begin
First;
while not Eof do
begin
if FieldByName('SSel').AsBoolean = True then
begin
with CDS_GangHaoSel do
begin
Append;
CDS_GangHaoSel.FieldByName('APID').Value := CDS_GangHao.FieldByName('APID').Value;
Post;
end;
end;
Next;
end;
end;
CDS_GangHao.EnableControls;
initMXKC();
end;
procedure TfrmCPKCCX.MenuItem6Click(Sender: TObject);
begin
with CDS_TuoTuan do
begin
CDS_TuoTuan.DisableControls;
First;
while not Eof do
begin
if not CDS_TuoTuan.FieldByName('SSel').AsBoolean then
begin
with CDS_TuoTuan do
begin
Edit;
FieldByName('SSel').Value := True;
Post
end;
with CDS_TuoTuanSel do
begin
Append;
FieldByName('RKOrdID').Value := Trim(CDS_TuoTuan.fieldbyname('RKOrdID').AsString);
Post;
end;
end;
Next;
end;
CDS_TuoTuan.EnableControls;
end;
initMXKC();
end;
procedure TfrmCPKCCX.MenuItem7Click(Sender: TObject);
begin
with CDS_TuoTuan do
begin
CDS_TuoTuan.DisableControls;
First;
while not Eof do
begin
if CDS_TuoTuan.FieldByName('SSel').AsBoolean then
begin
with CDS_TuoTuan do
begin
Edit;
FieldByName('SSel').Value := False;
Post
end;
end;
Next;
end;
CDS_TuoTuan.EnableControls;
end;
CDS_GangHaoSel.EmptyDataSet;
initMXKC();
end;
end.
Reference in New Issue Copy Permalink