待检布加日志
This commit is contained in:
DESKTOP-E401PHE\Administrator
parent
05c7c64d72
commit
57b9ca0396
|
|
@ -245,6 +245,7 @@ begin
|
|||
if Trim(FFSPID) = '' then
|
||||
begin
|
||||
Append;
|
||||
FieldByName('BZNoteList').Value := Trim(CDS_Sub.fieldbyname('FactoryName').AsString) + ';' + Trim(CDS_Sub.fieldbyname('OrderNo').AsString) + ';' + Trim(CDS_Sub.fieldbyname('PiQty').AsString);
|
||||
end
|
||||
else
|
||||
begin
|
||||
|
|
|
|||
|
|
@ -437,13 +437,13 @@ object frmDJBCKOutList: TfrmDJBCKOutList
|
|||
Left = 0
|
||||
Top = 105
|
||||
Width = 1193
|
||||
Height = 440
|
||||
Height = 439
|
||||
Align = alClient
|
||||
PopupMenu = PopupMenu1
|
||||
TabOrder = 2
|
||||
object Tv1: TcxGridDBTableView
|
||||
OnMouseDown = Tv1MouseDown
|
||||
NavigatorButtons.ConfirmDelete = False
|
||||
Navigator.Buttons.CustomButtons = <>
|
||||
DataController.DataSource = DataSource1
|
||||
DataController.Summary.DefaultGroupSummaryItems = <>
|
||||
DataController.Summary.FooterSummaryItems = <
|
||||
|
|
|
|||
|
|
@ -4,14 +4,27 @@ interface
|
|||
|
||||
uses
|
||||
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
|
||||
Dialogs, cxStyles, cxCustomData, cxGraphics, cxFilter, cxData,
|
||||
cxDataStorage, cxEdit, DB, cxDBData, cxGridCustomTableView,
|
||||
cxGridTableView, cxGridBandedTableView, cxGridDBBandedTableView,
|
||||
cxGridLevel, cxClasses, cxControls, cxGridCustomView, cxGridDBTableView,
|
||||
cxGrid, StdCtrls, ComCtrls, ExtCtrls, ToolWin, cxGridCustomPopupMenu,
|
||||
cxGridPopupMenu, ADODB, DBClient, cxDropDownEdit, cxCheckBox, RM_Common,
|
||||
RM_Class, RM_e_Xls, RM_Dataset, RM_System, RM_GridReport, Menus,
|
||||
cxCalendar, cxButtonEdit, cxTextEdit, RM_BarCode;
|
||||
Dialogs, cxStyles, cxCustomData, cxGraphics, cxFilter, cxData, cxDataStorage,
|
||||
cxEdit, DB, cxDBData, cxGridCustomTableView, cxGridTableView,
|
||||
cxGridBandedTableView, cxGridDBBandedTableView, cxGridLevel, cxClasses,
|
||||
cxControls, cxGridCustomView, cxGridDBTableView, cxGrid, StdCtrls, ComCtrls,
|
||||
ExtCtrls, ToolWin, cxGridCustomPopupMenu, cxGridPopupMenu, ADODB, DBClient,
|
||||
cxDropDownEdit, cxCheckBox, RM_Common, RM_Class, RM_e_Xls, RM_Dataset,
|
||||
RM_System, RM_GridReport, Menus, cxCalendar, cxButtonEdit, cxTextEdit,
|
||||
RM_BarCode, cxLookAndFeels, cxLookAndFeelPainters, dxSkinsCore, dxSkinBlack,
|
||||
dxSkinBlue, dxSkinBlueprint, dxSkinCaramel, dxSkinCoffee, dxSkinDarkRoom,
|
||||
dxSkinDarkSide, dxSkinDevExpressDarkStyle, dxSkinDevExpressStyle, dxSkinFoggy,
|
||||
dxSkinGlassOceans, dxSkinHighContrast, dxSkiniMaginary, dxSkinLilian,
|
||||
dxSkinLiquidSky, dxSkinLondonLiquidSky, dxSkinMcSkin, dxSkinMetropolis,
|
||||
dxSkinMetropolisDark, dxSkinMoneyTwins, dxSkinOffice2007Black,
|
||||
dxSkinOffice2007Blue, dxSkinOffice2007Green, dxSkinOffice2007Pink,
|
||||
dxSkinOffice2007Silver, dxSkinOffice2010Black, dxSkinOffice2010Blue,
|
||||
dxSkinOffice2010Silver, dxSkinOffice2013DarkGray, dxSkinOffice2013LightGray,
|
||||
dxSkinOffice2013White, dxSkinPumpkin, dxSkinSeven, dxSkinSevenClassic,
|
||||
dxSkinSharp, dxSkinSharpPlus, dxSkinSilver, dxSkinSpringTime, dxSkinStardust,
|
||||
dxSkinSummer2008, dxSkinTheAsphaltWorld, dxSkinsDefaultPainters,
|
||||
dxSkinValentine, dxSkinVS2010, dxSkinWhiteprint, dxSkinXmas2008Blue,
|
||||
dxSkinscxPCPainter, cxNavigator;
|
||||
|
||||
type
|
||||
TfrmDJBCKOutList = class(TForm)
|
||||
|
|
@ -133,8 +146,7 @@ type
|
|||
procedure TBAddClick(Sender: TObject);
|
||||
procedure TBEditClick(Sender: TObject);
|
||||
procedure ToolButton3Click(Sender: TObject);
|
||||
procedure Tv1MouseDown(Sender: TObject; Button: TMouseButton;
|
||||
Shift: TShiftState; X, Y: Integer);
|
||||
procedure Tv1MouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
|
||||
procedure PRTColorChange(Sender: TObject);
|
||||
procedure SOrddefstr1Change(Sender: TObject);
|
||||
procedure PRTHXChange(Sender: TObject);
|
||||
|
|
@ -153,6 +165,7 @@ var
|
|||
frmDJBCKOutList: TfrmDJBCKOutList;
|
||||
|
||||
implementation
|
||||
|
||||
uses
|
||||
U_DataLink, U_RTFun, U_DJBCKOutPut;
|
||||
|
||||
|
|
@ -167,7 +180,7 @@ begin
|
|||
sql.Clear;
|
||||
sql.Add('select * from KH_Zdy where Type=''LBGANGFLAG'' ');
|
||||
open;
|
||||
If not isEmpty then
|
||||
if not isEmpty then
|
||||
begin
|
||||
while not eof do
|
||||
begin
|
||||
|
|
@ -185,8 +198,7 @@ begin
|
|||
frmDJBCKOutList := nil;
|
||||
end;
|
||||
|
||||
procedure TfrmDJBCKOutList.FormClose(Sender: TObject;
|
||||
var Action: TCloseAction);
|
||||
procedure TfrmDJBCKOutList.FormClose(Sender: TObject; var Action: TCloseAction);
|
||||
begin
|
||||
Action := caFree;
|
||||
end;
|
||||
|
|
@ -255,7 +267,8 @@ begin
|
|||
TBAdd.Visible := False;
|
||||
TBDel.Visible := False;
|
||||
TBEdit.Visible := False;
|
||||
end else
|
||||
end
|
||||
else
|
||||
begin
|
||||
TBAdd.Visible := True;
|
||||
TBDel.Visible := True;
|
||||
|
|
@ -268,7 +281,8 @@ end;
|
|||
|
||||
procedure TfrmDJBCKOutList.TBExportClick(Sender: TObject);
|
||||
begin
|
||||
if ADOQueryMain.IsEmpty then exit;
|
||||
if ADOQueryMain.IsEmpty then
|
||||
exit;
|
||||
TcxGridToExcel('外加工出库列表', cxGrid2);
|
||||
end;
|
||||
|
||||
|
|
@ -291,13 +305,13 @@ procedure TfrmDJBCKOutList.SPIDChange(Sender: TObject);
|
|||
begin
|
||||
if Length(Trim(SPID.Text)) < 4 then
|
||||
begin
|
||||
if Trim(SPID.Text)<>'' then Exit;
|
||||
if Trim(SPID.Text) <> '' then
|
||||
Exit;
|
||||
end;
|
||||
TBFind.Click;
|
||||
end;
|
||||
|
||||
procedure TfrmDJBCKOutList.SPIDKeyPress(Sender: TObject;
|
||||
var Key: Char);
|
||||
procedure TfrmDJBCKOutList.SPIDKeyPress(Sender: TObject; var Key: Char);
|
||||
begin
|
||||
if Key = #13 then
|
||||
begin
|
||||
|
|
@ -326,7 +340,8 @@ end;
|
|||
|
||||
procedure TfrmDJBCKOutList.N1Click(Sender: TObject);
|
||||
begin
|
||||
if CDS_Main.IsEmpty then Exit;
|
||||
if CDS_Main.IsEmpty then
|
||||
Exit;
|
||||
CDS_Main.DisableControls;
|
||||
with CDS_Main do
|
||||
begin
|
||||
|
|
@ -352,7 +367,8 @@ end;
|
|||
|
||||
procedure TfrmDJBCKOutList.TBDelClick(Sender: TObject);
|
||||
begin
|
||||
if CDS_Main.IsEmpty then Exit;
|
||||
if CDS_Main.IsEmpty then
|
||||
Exit;
|
||||
if Trim(CDS_Main.fieldbyname('SPID').AsString) <> '' then
|
||||
begin
|
||||
with ADOQueryTemp do
|
||||
|
|
@ -386,7 +402,8 @@ begin
|
|||
end;
|
||||
end;
|
||||
|
||||
if Application.MessageBox('确定要删除数据吗？','提示',32+4)<>IDYES then Exit;
|
||||
if Application.MessageBox('确定要删除数据吗？', '提示', 32 + 4) <> IDYES then
|
||||
Exit;
|
||||
try
|
||||
ADOQueryCmd.Connection.BeginTrans;
|
||||
with ADOQueryCmd do
|
||||
|
|
@ -401,6 +418,14 @@ begin
|
|||
begin
|
||||
sql.Add(' delete CK_SXPB_CR where isnull(PYID,'''')=''' + Trim(CDS_Main.fieldbyname('PYID').AsString) + '''');
|
||||
end;
|
||||
sql.Add('insert into SY_SysLog(operor,opertime,Model,acction,opevent,result) values( ');
|
||||
sql.Add(' ' + quotedstr(trim(DName)));
|
||||
sql.Add(',getdate() ');
|
||||
sql.Add(',' + quotedstr(trim(self.Caption)));
|
||||
sql.Add(',' + quotedstr(trim('待检布出库删除')));
|
||||
sql.Add(',' + quotedstr(trim('出库单号：' + trim(CDS_Main.FieldByName('SPID').AsString) + ',加工厂' + trim(CDS_Main.FieldByName('factoryName').AsString) + ',订单号' + trim(CDS_Main.FieldByName('QCorderNo').AsString) + ',匹数' + trim(CDS_Main.FieldByName('piqty').AsString))));
|
||||
sql.Add(',' + quotedstr(trim('成功')));
|
||||
sql.Add(')');
|
||||
ExecSQL;
|
||||
end;
|
||||
ADOQueryCmd.Connection.CommitTrans;
|
||||
|
|
@ -431,7 +456,8 @@ end;
|
|||
|
||||
procedure TfrmDJBCKOutList.TBEditClick(Sender: TObject);
|
||||
begin
|
||||
if CDS_Main.IsEmpty then Exit;
|
||||
if CDS_Main.IsEmpty then
|
||||
Exit;
|
||||
with ADOQueryTemp do
|
||||
begin
|
||||
Close;
|
||||
|
|
@ -472,16 +498,16 @@ var
|
|||
Moudle: THandle;
|
||||
Makebar: TMakebar;
|
||||
Mixtext: TMixtext;
|
||||
|
||||
begin
|
||||
if CDS_Main.IsEmpty then Exit;
|
||||
if CDS_Main.IsEmpty then
|
||||
Exit;
|
||||
//if Trim(CDS_Main.fieldbyname('CRType').AsString)<>'检验出库' then Exit;
|
||||
if CDS_Main.Locate('SSel', True, []) = False then
|
||||
begin
|
||||
Application.MessageBox('没有选择数据!', '提示', 0);
|
||||
Exit;
|
||||
end;
|
||||
IF Trim(LBGANG.Text)='' then
|
||||
if Trim(LBGANG.Text) = '' then
|
||||
begin
|
||||
Application.MessageBox('选择要打印的缸标签！', '提示', 0);
|
||||
Exit;
|
||||
|
|
@ -516,7 +542,8 @@ begin
|
|||
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);
|
||||
if FileExists(fImagePath) then
|
||||
DeleteFile(fImagePath);
|
||||
Makebar(pchar(Txt), Length(Txt), 3, 3, 0, PChar(fImagePath), 3);
|
||||
except
|
||||
CDS_Main.EnableControls;
|
||||
|
|
@ -530,7 +557,8 @@ begin
|
|||
RM1.LoadFromFile(fPrintFile);
|
||||
//RM1.ShowReport;
|
||||
RM1.PrintReport;
|
||||
end else
|
||||
end
|
||||
else
|
||||
begin
|
||||
CDS_Main.EnableControls;
|
||||
Application.MessageBox(PChar('没有找' + fPrintFile), '提示', 0);
|
||||
|
|
@ -545,8 +573,7 @@ begin
|
|||
|
||||
end;
|
||||
|
||||
procedure TfrmDJBCKOutList.Tv1MouseDown(Sender: TObject;
|
||||
Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
|
||||
procedure TfrmDJBCKOutList.Tv1MouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
|
||||
begin
|
||||
{ if CDS_Main.IsEmpty then Exit;
|
||||
if Trim(CDS_Main.fieldbyname('CRType').AsString)<>'检验出库' then
|
||||
|
|
@ -573,11 +600,11 @@ begin
|
|||
TBFind.Click;
|
||||
end;
|
||||
|
||||
procedure TfrmDJBCKOutList.QCorderNoKeyPress(Sender: TObject;
|
||||
var Key: Char);
|
||||
procedure TfrmDJBCKOutList.QCorderNoKeyPress(Sender: TObject; var Key: Char);
|
||||
begin
|
||||
IF trim(QCorderNo.Text)='' then exit;
|
||||
IF Key=#13 then
|
||||
if trim(QCorderNo.Text) = '' then
|
||||
exit;
|
||||
if Key = #13 then
|
||||
begin
|
||||
try
|
||||
ADOQueryMain.DisableControls;
|
||||
|
|
@ -603,11 +630,11 @@ begin
|
|||
end;
|
||||
end;
|
||||
|
||||
procedure TfrmDJBCKOutList.CKorderNoKeyPress(Sender: TObject;
|
||||
var Key: Char);
|
||||
procedure TfrmDJBCKOutList.CKorderNoKeyPress(Sender: TObject; var Key: Char);
|
||||
begin
|
||||
IF trim(CKorderNo.Text)='' then exit;
|
||||
IF Key=#13 then
|
||||
if trim(CKorderNo.Text) = '' then
|
||||
exit;
|
||||
if Key = #13 then
|
||||
begin
|
||||
try
|
||||
ADOQueryMain.DisableControls;
|
||||
|
|
@ -634,3 +661,4 @@ begin
|
|||
end;
|
||||
|
||||
end.
|
||||
|
||||
|
|
|
|||
|
|
@ -4,29 +4,27 @@ interface
|
|||
|
||||
uses
|
||||
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
|
||||
Dialogs, cxStyles, cxCustomData, cxGraphics, cxFilter, cxData,
|
||||
cxDataStorage, cxEdit, DB, cxDBData, cxGridCustomTableView,
|
||||
cxGridTableView, cxGridBandedTableView, cxGridDBBandedTableView,
|
||||
cxGridLevel, cxClasses, cxControls, cxGridCustomView, cxGridDBTableView,
|
||||
cxGrid, StdCtrls, ComCtrls, ExtCtrls, ToolWin, cxGridCustomPopupMenu,
|
||||
cxGridPopupMenu, ADODB, DBClient, cxDropDownEdit, cxCheckBox, RM_Common,
|
||||
RM_Class, RM_e_Xls, RM_Dataset, RM_System, RM_GridReport, Menus,
|
||||
cxCalendar, cxButtonEdit, cxTextEdit, cxPC, BtnEdit, cxLookAndFeels,
|
||||
cxLookAndFeelPainters, dxSkinsCore, dxSkinBlack, dxSkinBlue,
|
||||
dxSkinBlueprint, dxSkinCaramel, dxSkinCoffee, dxSkinDarkRoom,
|
||||
dxSkinDarkSide, dxSkinDevExpressDarkStyle, dxSkinDevExpressStyle,
|
||||
dxSkinFoggy, dxSkinGlassOceans, dxSkinHighContrast, dxSkiniMaginary,
|
||||
dxSkinLilian, dxSkinLiquidSky, dxSkinLondonLiquidSky, dxSkinMcSkin,
|
||||
dxSkinMetropolis, dxSkinMetropolisDark, dxSkinMoneyTwins,
|
||||
dxSkinOffice2007Black, dxSkinOffice2007Blue, dxSkinOffice2007Green,
|
||||
dxSkinOffice2007Pink, dxSkinOffice2007Silver, dxSkinOffice2010Black,
|
||||
dxSkinOffice2010Blue, dxSkinOffice2010Silver, dxSkinOffice2013DarkGray,
|
||||
dxSkinOffice2013LightGray, dxSkinOffice2013White, dxSkinPumpkin,
|
||||
dxSkinSeven, dxSkinSevenClassic, dxSkinSharp, dxSkinSharpPlus,
|
||||
dxSkinSilver, dxSkinSpringTime, dxSkinStardust, dxSkinSummer2008,
|
||||
dxSkinTheAsphaltWorld, dxSkinsDefaultPainters, dxSkinValentine,
|
||||
dxSkinVS2010, dxSkinWhiteprint, dxSkinXmas2008Blue, dxSkinscxPCPainter,
|
||||
cxNavigator, dxBarBuiltInMenu;
|
||||
Dialogs, cxStyles, cxCustomData, cxGraphics, cxFilter, cxData, cxDataStorage,
|
||||
cxEdit, DB, cxDBData, cxGridCustomTableView, cxGridTableView,
|
||||
cxGridBandedTableView, cxGridDBBandedTableView, cxGridLevel, cxClasses,
|
||||
cxControls, cxGridCustomView, cxGridDBTableView, cxGrid, StdCtrls, ComCtrls,
|
||||
ExtCtrls, ToolWin, cxGridCustomPopupMenu, cxGridPopupMenu, ADODB, DBClient,
|
||||
cxDropDownEdit, cxCheckBox, RM_Common, RM_Class, RM_e_Xls, RM_Dataset,
|
||||
RM_System, RM_GridReport, Menus, cxCalendar, cxButtonEdit, cxTextEdit, cxPC,
|
||||
BtnEdit, cxLookAndFeels, cxLookAndFeelPainters, dxSkinsCore, dxSkinBlack,
|
||||
dxSkinBlue, dxSkinBlueprint, dxSkinCaramel, dxSkinCoffee, dxSkinDarkRoom,
|
||||
dxSkinDarkSide, dxSkinDevExpressDarkStyle, dxSkinDevExpressStyle, dxSkinFoggy,
|
||||
dxSkinGlassOceans, dxSkinHighContrast, dxSkiniMaginary, dxSkinLilian,
|
||||
dxSkinLiquidSky, dxSkinLondonLiquidSky, dxSkinMcSkin, dxSkinMetropolis,
|
||||
dxSkinMetropolisDark, dxSkinMoneyTwins, dxSkinOffice2007Black,
|
||||
dxSkinOffice2007Blue, dxSkinOffice2007Green, dxSkinOffice2007Pink,
|
||||
dxSkinOffice2007Silver, dxSkinOffice2010Black, dxSkinOffice2010Blue,
|
||||
dxSkinOffice2010Silver, dxSkinOffice2013DarkGray, dxSkinOffice2013LightGray,
|
||||
dxSkinOffice2013White, dxSkinPumpkin, dxSkinSeven, dxSkinSevenClassic,
|
||||
dxSkinSharp, dxSkinSharpPlus, dxSkinSilver, dxSkinSpringTime, dxSkinStardust,
|
||||
dxSkinSummer2008, dxSkinTheAsphaltWorld, dxSkinsDefaultPainters,
|
||||
dxSkinValentine, dxSkinVS2010, dxSkinWhiteprint, dxSkinXmas2008Blue,
|
||||
dxSkinscxPCPainter, cxNavigator, dxBarBuiltInMenu;
|
||||
|
||||
type
|
||||
TfrmDJBRKList = class(TForm)
|
||||
|
|
@ -174,7 +172,7 @@ type
|
|||
private
|
||||
canshu1, canshu2: string;
|
||||
procedure InitGrid();
|
||||
Procedure setstatus();
|
||||
procedure setstatus();
|
||||
{ Private declarations }
|
||||
public
|
||||
{ Public declarations }
|
||||
|
|
@ -184,18 +182,19 @@ var
|
|||
frmDJBRKList: TfrmDJBRKList;
|
||||
|
||||
implementation
|
||||
|
||||
uses
|
||||
U_DataLink, U_RTFun, U_DJBCKInPut, U_ZdyAttachGYS;
|
||||
|
||||
{$R *.dfm}
|
||||
Procedure TfrmDJBRKList.setstatus();
|
||||
procedure TfrmDJBRKList.setstatus();
|
||||
begin
|
||||
TBedit.Visible := false;
|
||||
TBdel.Visible := false;
|
||||
TBchk.Visible := false;
|
||||
TBNochk.Visible := false;
|
||||
TBTSedit.Visible := false;
|
||||
IF canshu1='高权限'then
|
||||
if canshu1 = '高权限' then
|
||||
begin
|
||||
|
||||
case cxTabControl1.TabIndex of
|
||||
|
|
@ -237,8 +236,7 @@ begin
|
|||
frmDJBRKList := nil;
|
||||
end;
|
||||
|
||||
procedure TfrmDJBRKList.FormClose(Sender: TObject;
|
||||
var Action: TCloseAction);
|
||||
procedure TfrmDJBRKList.FormClose(Sender: TObject; var Action: TCloseAction);
|
||||
begin
|
||||
Action := caFree;
|
||||
end;
|
||||
|
|
@ -272,7 +270,7 @@ begin
|
|||
sql.Add(' and A.CRTime<=''' + Trim(FormatDateTime('yyyy-MM-dd', enddate.DateTime + 1)) + '''');
|
||||
sql.Add(' and isnull(CKName,'''')=''待检布''');
|
||||
SQL.Add(' and CRFlag=''入库'' ');
|
||||
IF cxTabControl1.TabIndex<2 then
|
||||
if cxTabControl1.TabIndex < 2 then
|
||||
SQL.Add(' and isnull(A.chkstatus,''0'')=''' + inttostr(cxTabControl1.TabIndex) + ''' ');
|
||||
Open;
|
||||
//ShowMessage(SQL.Text);
|
||||
|
|
@ -311,7 +309,8 @@ begin
|
|||
TBAdd.Visible := False;
|
||||
TBDel.Visible := False;
|
||||
TBEdit.Visible := False;
|
||||
end else
|
||||
end
|
||||
else
|
||||
begin
|
||||
TBAdd.Visible := True;
|
||||
TBDel.Visible := True;
|
||||
|
|
@ -324,7 +323,8 @@ end;
|
|||
|
||||
procedure TfrmDJBRKList.TBExportClick(Sender: TObject);
|
||||
begin
|
||||
if ADOQueryMain.IsEmpty then exit;
|
||||
if ADOQueryMain.IsEmpty then
|
||||
exit;
|
||||
TcxGridToExcel('待检布入库列表', cxGrid2);
|
||||
end;
|
||||
|
||||
|
|
@ -350,7 +350,8 @@ end;
|
|||
|
||||
procedure TfrmDJBRKList.TBDelClick(Sender: TObject);
|
||||
begin
|
||||
if CDS_Main.IsEmpty then Exit;
|
||||
if CDS_Main.IsEmpty then
|
||||
Exit;
|
||||
if Trim(CDS_Main.fieldbyname('SPID').AsString) <> '' then
|
||||
begin
|
||||
if Trim(CDS_Main.fieldbyname('CRType').AsString) = '平移入库' then
|
||||
|
|
@ -371,7 +372,8 @@ begin
|
|||
Application.MessageBox('已有出库记录，不能删除!', '提示', 0);
|
||||
Exit;
|
||||
end;
|
||||
if Application.MessageBox('确定要删除数据吗？','提示',32+4)<>IDYES then Exit;
|
||||
if Application.MessageBox('确定要删除数据吗？', '提示', 32 + 4) <> IDYES then
|
||||
Exit;
|
||||
try
|
||||
ADOQueryCmd.Connection.BeginTrans;
|
||||
|
||||
|
|
@ -383,6 +385,14 @@ begin
|
|||
{sql.Add('Update CK_SXPB_KC Set KCKGQty=(select sum(isnull(KGQty,0)*CRQtyFlag) from CK_SXPB_CR A where A.CRID=CK_SXPB_KC.CRID)');
|
||||
sql.Add(',KCPiQty=(select sum(isnull(PiQty,0)*CRQtyFlag) from CK_SXPB_CR A where A.CRID=CK_SXPB_KC.CRID)');
|
||||
sql.Add(' where CRID='+Trim(CDS_Main.fieldbyname('CRID').AsString));}
|
||||
sql.Add('insert into SY_SysLog(operor,opertime,Model,acction,opevent,result) values( ');
|
||||
sql.Add(' ' + quotedstr(trim(DName)));
|
||||
sql.Add(',getdate() ');
|
||||
sql.Add(',' + quotedstr(trim(self.Caption)));
|
||||
sql.Add(',' + quotedstr(trim('待检布入库删除')));
|
||||
sql.Add(',' + quotedstr(trim('入库单号：' + trim(CDS_Main.FieldByName('SPID').AsString) + ',加工厂' + trim(CDS_Main.FieldByName('factoryName').AsString) + ',订单号' + trim(CDS_Main.FieldByName('QCorderNo').AsString) + ',匹数' + trim(CDS_Main.FieldByName('piqty').AsString))));
|
||||
sql.Add(',' + quotedstr(trim('成功')));
|
||||
sql.Add(')');
|
||||
ExecSQL;
|
||||
end;
|
||||
{ with ADOQueryTemp do
|
||||
|
|
@ -409,7 +419,8 @@ begin
|
|||
Application.MessageBox('删除异常!', '提示', 0);
|
||||
end;
|
||||
|
||||
end else
|
||||
end
|
||||
else
|
||||
begin
|
||||
CDS_Main.Delete;
|
||||
end;
|
||||
|
|
@ -434,12 +445,26 @@ end;
|
|||
|
||||
procedure TfrmDJBRKList.TBEditClick(Sender: TObject);
|
||||
begin
|
||||
if CDS_Main.IsEmpty then Exit;
|
||||
if CDS_Main.IsEmpty then
|
||||
Exit;
|
||||
if Trim(CDS_Main.fieldbyname('CRType').AsString) = '平移入库' then
|
||||
begin
|
||||
Application.MessageBox('平移入库的数据为自动生成，不能修改!', '提示', 0);
|
||||
Exit;
|
||||
end;
|
||||
with ADOQueryTemp do
|
||||
begin
|
||||
Close;
|
||||
sql.Clear;
|
||||
sql.Add('select * from CK_SXPB_CR where FZSPID=''' + Trim(CDS_Main.fieldbyname('SPID').AsString) + '''');
|
||||
sql.Add(' and CRQtyFlag=-1');
|
||||
Open;
|
||||
end;
|
||||
if ADOQueryTemp.IsEmpty = False then
|
||||
begin
|
||||
Application.MessageBox('已有出库记录，不能修改!', '提示', 0);
|
||||
Exit;
|
||||
end;
|
||||
try
|
||||
frmDJBCKInPut := TfrmDJBCKInPut.Create(Application);
|
||||
with frmDJBCKInPut do
|
||||
|
|
@ -490,7 +515,8 @@ procedure TfrmDJBRKList.SPIDChange(Sender: TObject);
|
|||
begin
|
||||
if Length(Trim(SPID.Text)) < 4 then
|
||||
begin
|
||||
if Trim(SPID.Text)<>'' then Exit;
|
||||
if Trim(SPID.Text) <> '' then
|
||||
Exit;
|
||||
end;
|
||||
TBFind.Click;
|
||||
end;
|
||||
|
|
@ -507,8 +533,9 @@ end;
|
|||
|
||||
procedure TfrmDJBRKList.OrderNoKeyPress(Sender: TObject; var Key: Char);
|
||||
begin
|
||||
IF trim(OrderNo.Text)='' then exit;
|
||||
IF Key=#13 then
|
||||
if trim(OrderNo.Text) = '' then
|
||||
exit;
|
||||
if Key = #13 then
|
||||
begin
|
||||
try
|
||||
ADOQueryMain.DisableControls;
|
||||
|
|
@ -527,7 +554,7 @@ begin
|
|||
sql.add(' where exists(select MainID from JYOrder_Main X where X.mainID=A.ORDMainIdRK and X.orderNo like ' + quotedstr('%' + trim(OrderNo.text) + '%') + ')');
|
||||
sql.Add(' and isnull(CKName,'''')=''待检布''');
|
||||
SQL.Add(' and CRFlag=''入库'' ');
|
||||
IF cxTabControl1.TabIndex<2 then
|
||||
if cxTabControl1.TabIndex < 2 then
|
||||
SQL.Add(' and isnull(A.chkstatus,''0'')=''' + inttostr(cxTabControl1.TabIndex) + ''' ');
|
||||
Open;
|
||||
//ShowMessage(SQL.Text);
|
||||
|
|
@ -542,7 +569,8 @@ end;
|
|||
|
||||
procedure TfrmDJBRKList.TBCHKClick(Sender: TObject);
|
||||
begin
|
||||
if CDS_Main.IsEmpty then exit;
|
||||
if CDS_Main.IsEmpty then
|
||||
exit;
|
||||
if CDS_Main.Locate('SSel', True, []) = False then
|
||||
begin
|
||||
Application.MessageBox('没有选择数据!', '提示', 0);
|
||||
|
|
@ -554,7 +582,7 @@ begin
|
|||
DisableControls;
|
||||
while not eof do
|
||||
begin
|
||||
IF fieldbyname('ssel').AsBoolean then
|
||||
if fieldbyname('ssel').AsBoolean then
|
||||
begin
|
||||
with ADOQueryCmd do
|
||||
begin
|
||||
|
|
@ -578,7 +606,8 @@ end;
|
|||
|
||||
procedure TfrmDJBRKList.TBNOchkClick(Sender: TObject);
|
||||
begin
|
||||
if CDS_Main.IsEmpty then exit;
|
||||
if CDS_Main.IsEmpty then
|
||||
exit;
|
||||
if CDS_Main.Locate('SSel', True, []) = False then
|
||||
begin
|
||||
Application.MessageBox('没有选择数据!', '提示', 0);
|
||||
|
|
@ -590,7 +619,7 @@ begin
|
|||
DisableControls;
|
||||
while not eof do
|
||||
begin
|
||||
IF fieldbyname('ssel').AsBoolean then
|
||||
if fieldbyname('ssel').AsBoolean then
|
||||
begin
|
||||
with ADOQueryCmd do
|
||||
begin
|
||||
|
|
@ -621,18 +650,28 @@ end;
|
|||
|
||||
procedure TfrmDJBRKList.Button5Click(Sender: TObject);
|
||||
begin
|
||||
IF CDS_Main.IsEmpty then exit;
|
||||
IF trim(factoryName1.Text)='' then
|
||||
if CDS_Main.IsEmpty then
|
||||
exit;
|
||||
if trim(factoryName1.Text) = '' then
|
||||
begin
|
||||
application.MessageBox('加工厂不能为空！', '提示信息', 0);
|
||||
exit;
|
||||
end;
|
||||
if Application.MessageBox('确定要修改加工厂吗？','提示',32+4)<>IDYES then Exit;
|
||||
if Application.MessageBox('确定要修改加工厂吗？', '提示', 32 + 4) <> IDYES then
|
||||
Exit;
|
||||
try
|
||||
with ADOQueryCmd do
|
||||
begin
|
||||
Close;
|
||||
sql.Clear;
|
||||
sql.Add('insert into SY_SysLog(operor,opertime,Model,acction,opevent,result) values( ');
|
||||
sql.Add(' ' + quotedstr(trim(DName)));
|
||||
sql.Add(',getdate() ');
|
||||
sql.Add(',' + quotedstr(trim(self.Caption)));
|
||||
sql.Add(',' + quotedstr(trim('待检布入库修改')));
|
||||
sql.Add(',' + quotedstr(trim('入库单号：' + trim(CDS_Main.FieldByName('SPID').AsString) + ',原加工厂' + Trim(CDS_Main.fieldbyname('factoryName').AsString) + ',修改后' + trim(factoryName1.Text))));
|
||||
sql.Add(',' + quotedstr(trim('成功')));
|
||||
sql.Add(')');
|
||||
sql.Add('update CK_SXPB_CR SET factoryName=''' + trim(factoryName1.Text) + ''',edittime=getdate() where SPID=''' + Trim(CDS_Main.fieldbyname('SPID').AsString) + '''');
|
||||
// sql.Add('update WFB_MJJY SET factoryName='''+trim(factoryName1.Text)+''' where APID='''+Trim(CDS_Main.fieldbyname('SPID').AsString)+'''');
|
||||
ExecSQL;
|
||||
|
|
@ -647,18 +686,28 @@ end;
|
|||
|
||||
procedure TfrmDJBRKList.Button1Click(Sender: TObject);
|
||||
begin
|
||||
IF CDS_Main.IsEmpty then exit;
|
||||
IF trim(Com_CRype.Text)='' then
|
||||
if CDS_Main.IsEmpty then
|
||||
exit;
|
||||
if trim(Com_CRype.Text) = '' then
|
||||
begin
|
||||
application.MessageBox('入库类型不能为空！', '提示信息', 0);
|
||||
exit;
|
||||
end;
|
||||
if Application.MessageBox('确定要修改入库类型吗？','提示',32+4)<>IDYES then Exit;
|
||||
if Application.MessageBox('确定要修改入库类型吗？', '提示', 32 + 4) <> IDYES then
|
||||
Exit;
|
||||
try
|
||||
with ADOQueryCmd do
|
||||
begin
|
||||
Close;
|
||||
sql.Clear;
|
||||
sql.Add('insert into SY_SysLog(operor,opertime,Model,acction,opevent,result) values( ');
|
||||
sql.Add(' ' + quotedstr(trim(DName)));
|
||||
sql.Add(',getdate() ');
|
||||
sql.Add(',' + quotedstr(trim(self.Caption)));
|
||||
sql.Add(',' + quotedstr(trim('待检布入库修改')));
|
||||
sql.Add(',' + quotedstr(trim('入库单号：' + trim(CDS_Main.FieldByName('SPID').AsString) + ',原入库类型' + Trim(CDS_Main.fieldbyname('CRType').AsString) + ',修改后' + trim(Com_CRype.Text))));
|
||||
sql.Add(',' + quotedstr(trim('成功')));
|
||||
sql.Add(')');
|
||||
sql.Add('update CK_SXPB_CR SET CRType=''' + trim(Com_CRype.Text) + ''' where SPID=''' + Trim(CDS_Main.fieldbyname('SPID').AsString) + '''');
|
||||
ExecSQL;
|
||||
end;
|
||||
|
|
@ -704,13 +753,15 @@ end;
|
|||
|
||||
procedure TfrmDJBRKList.Button2Click(Sender: TObject);
|
||||
begin
|
||||
IF CDS_Main.IsEmpty then exit;
|
||||
IF trim(edit_defstr2.Text)='' then
|
||||
if CDS_Main.IsEmpty then
|
||||
exit;
|
||||
if trim(edit_defstr2.Text) = '' then
|
||||
begin
|
||||
application.MessageBox('统计单号不能为空！', '提示信息', 0);
|
||||
exit;
|
||||
end;
|
||||
if Application.MessageBox('确定要修改统计单号吗？','提示',32+4)<>IDYES then Exit;
|
||||
if Application.MessageBox('确定要修改统计单号吗？', '提示', 32 + 4) <> IDYES then
|
||||
Exit;
|
||||
try
|
||||
with CDS_Main do
|
||||
begin
|
||||
|
|
@ -718,12 +769,20 @@ begin
|
|||
first;
|
||||
while not eof do
|
||||
begin
|
||||
IF fieldbyName('Ssel').AsBoolean then
|
||||
if fieldbyName('Ssel').AsBoolean then
|
||||
begin
|
||||
with ADOQueryCmd do
|
||||
begin
|
||||
Close;
|
||||
sql.Clear;
|
||||
sql.Add('insert into SY_SysLog(operor,opertime,Model,acction,opevent,result) values( ');
|
||||
sql.Add(' ' + quotedstr(trim(DName)));
|
||||
sql.Add(',getdate() ');
|
||||
sql.Add(',' + quotedstr(trim(self.Caption)));
|
||||
sql.Add(',' + quotedstr(trim('待检布入库修改')));
|
||||
sql.Add(',' + quotedstr(trim('入库单号：' + trim(CDS_Main.FieldByName('SPID').AsString) + ',原统计单号' + Trim(CDS_Main.fieldbyname('defstr2').AsString) + ',修改后' + trim(edit_defstr2.Text))));
|
||||
sql.Add(',' + quotedstr(trim('成功')));
|
||||
sql.Add(')');
|
||||
sql.Add('update CK_SXPB_CR SET defstr2=''' + trim(edit_defstr2.Text) + ''' where SPID=''' + Trim(CDS_Main.fieldbyname('SPID').AsString) + '''');
|
||||
ExecSQL;
|
||||
end;
|
||||
|
|
@ -743,8 +802,9 @@ end;
|
|||
|
||||
procedure TfrmDJBRKList.defstr2KeyPress(Sender: TObject; var Key: Char);
|
||||
begin
|
||||
IF trim(defstr2.Text)='' then exit;
|
||||
IF Key=#13 then
|
||||
if trim(defstr2.Text) = '' then
|
||||
exit;
|
||||
if Key = #13 then
|
||||
begin
|
||||
try
|
||||
ADOQueryMain.DisableControls;
|
||||
|
|
@ -763,7 +823,7 @@ begin
|
|||
sql.add(' where A.defstr2 like ' + quotedstr('%' + trim(OrderNo.text) + '%'));
|
||||
sql.Add(' and isnull(CKName,'''')=''待检布''');
|
||||
SQL.Add(' and CRFlag=''入库'' ');
|
||||
IF cxTabControl1.TabIndex<2 then
|
||||
if cxTabControl1.TabIndex < 2 then
|
||||
SQL.Add(' and isnull(A.chkstatus,''0'')=''' + inttostr(cxTabControl1.TabIndex) + ''' ');
|
||||
Open;
|
||||
//ShowMessage(SQL.Text);
|
||||
|
|
@ -777,3 +837,4 @@ begin
|
|||
end;
|
||||
|
||||
end.
|
||||
|
||||
|
|
|
|||
Loading…
Reference in New Issue
Block a user