2463 lines
69 KiB
ObjectPascal
2463 lines
69 KiB
ObjectPascal
unit U_MachRollMain;
|
||
|
||
interface
|
||
|
||
uses
|
||
Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants,
|
||
System.Classes, Vcl.Graphics, mmsystem, Vcl.Controls, Vcl.Forms, Vcl.Dialogs,
|
||
cxGraphics, cxControls, cxLookAndFeels, cxLookAndFeelPainters, cxClasses,
|
||
dxLayoutContainer, dxLayoutControl, dxLayoutcxEditAdapters, cxContainer,
|
||
cxEdit, Vcl.StdCtrls, cxTextEdit, Vcl.ExtCtrls, dxLayoutControlAdapters,
|
||
U_BaseList, Data.DB, Data.Win.ADODB, Vcl.Buttons, Vcl.ComCtrls, Vcl.ToolWin,
|
||
cxImage, cxDBEdit, cxStyles, cxCustomData, cxFilter, cxData, cxDataStorage,
|
||
cxNavigator, dxDateRanges, dxScrollbarAnnotations, cxDBData, dxBarBuiltInMenu,
|
||
cxPC, cxGridLevel, cxGridCustomTableView, cxGridTableView, cxGridDBTableView,
|
||
cxGridCustomView, cxGrid, cxMemo, cxRichEdit, U_frameBads, Datasnap.DBClient,
|
||
RM_Common, RM_Class, RM_GridReport, cxCheckBox, cxMaskEdit, cxDropDownEdit,
|
||
Vcl.Menus, cxButtonEdit, RM_Dataset, cxGeometry, dxFramedControl, dxPanel,
|
||
U_KeyBoard, cxGroupBox, cxGridCustomPopupMenu, cxGridPopupMenu, MovePanel,
|
||
RM_RichEdit, cxProgressBar, cxCurrencyEdit, dxSkinsCore, frxBarcode, frxRich,
|
||
frxOLE, frxTableObject, frxExportXLSX, frxClass, frxExportBaseDialog,
|
||
frxExportPPTX, frxDBSet, dxSkinWXI, dxSkinsDefaultPainters, System.StrUtils,
|
||
imm, cxLookupEdit, cxDBLookupEdit, cxDBLookupComboBox;
|
||
|
||
type
|
||
TfrmMachRollMain = class(TfrmBaseList)
|
||
Panel_right: TPanel;
|
||
cds_params: TClientDataSet;
|
||
cds_paramsdabao: TStringField;
|
||
cds_paramspackRolls: TIntegerField;
|
||
cds_paramsrollNoMake: TStringField;
|
||
cds_paramsMinWeight: TIntegerField;
|
||
cds_paramsMaxWeight: TIntegerField;
|
||
cds_paramslblLenUnit: TStringField;
|
||
cds_paramsMinLen: TIntegerField;
|
||
cds_paramsmaxLen: TIntegerField;
|
||
cds_paramsweightRule: TIntegerField;
|
||
cds_paramschen: TStringField;
|
||
cds_paramsmabiao: TStringField;
|
||
cds_paramsmbunit: TStringField;
|
||
cds_paramsmplace: TIntegerField;
|
||
cds_paramsyplace: TIntegerField;
|
||
cds_paramskgplace: TIntegerField;
|
||
cds_paramslabNumber: TIntegerField;
|
||
CDS_2: TClientDataSet;
|
||
DS_2: TDataSource;
|
||
cds_1: TClientDataSet;
|
||
cds_3: TClientDataSet;
|
||
ds_3: TDataSource;
|
||
ds_1: TDataSource;
|
||
ADOQueryMain: TADOQuery;
|
||
cds_paramsoutPage: TStringField;
|
||
ADOQueryPrint: TADOQuery;
|
||
cds_paramsEndPieceNo: TIntegerField;
|
||
cds_paramsBeginPieceNo: TIntegerField;
|
||
cds_paramsFixedLength: TIntegerField;
|
||
cds_paramspacknoMake: TStringField;
|
||
cds_paramspieceOrder: TBooleanField;
|
||
cds_paramsLabVolume: TStringField;
|
||
cds_paramsLabPackage: TStringField;
|
||
cxGroupBox_keys: TcxGroupBox;
|
||
FrameKeyBoard1: TFrameKeyBoard;
|
||
cds_paramsAddwetPresent: TFloatField;
|
||
cds_paramsAddLenPresent: TFloatField;
|
||
GPM_3: TcxGridPopupMenu;
|
||
ADOQueryImage: TADOQuery;
|
||
DS_IMAGE: TDataSource;
|
||
cds_paramspackPrintPreview: TBooleanField;
|
||
cds_paramspacklabNumber: TIntegerField;
|
||
cds_paramspackPostAction: TStringField;
|
||
ADO_CJ: TADOQuery;
|
||
fRMDB_1: TfrxDBDataset;
|
||
frxReport1: TfrxReport;
|
||
frxPPTXExport1: TfrxPPTXExport;
|
||
frxXLSXExport1: TfrxXLSXExport;
|
||
frxReportTableObject1: TfrxReportTableObject;
|
||
frxOLEObject1: TfrxOLEObject;
|
||
frxRichObject1: TfrxRichObject;
|
||
frxBarCodeObject1: TfrxBarCodeObject;
|
||
cxGrid2: TcxGrid;
|
||
TV2: TcxGridDBTableView;
|
||
cxGridDBColumn1: TcxGridDBColumn;
|
||
TV2Column1: TcxGridDBColumn;
|
||
TV2Column2: TcxGridDBColumn;
|
||
v1PRTColor: TcxGridDBColumn;
|
||
v1PRTOrderQty: TcxGridDBColumn;
|
||
v1OrderUnit: TcxGridDBColumn;
|
||
cxGridDBColumn7: TcxGridDBColumn;
|
||
cxGridLevel1: TcxGridLevel;
|
||
TV2Column3: TcxGridDBColumn;
|
||
TV2Column4: TcxGridDBColumn;
|
||
ADO_2: TADOQuery;
|
||
TV2Column5: TcxGridDBColumn;
|
||
TV2Column7: TcxGridDBColumn;
|
||
Panel1: TPanel;
|
||
edtScan: TcxTextEdit;
|
||
Label1: TLabel;
|
||
OrderNo: TcxTextEdit;
|
||
ColorNo: TcxTextEdit;
|
||
FtyPCId: TcxTextEdit;
|
||
Qty: TcxTextEdit;
|
||
BCIOID: TcxTextEdit;
|
||
Color: TcxTextEdit;
|
||
CodeName: TcxTextEdit;
|
||
Label2: TLabel;
|
||
Label3: TLabel;
|
||
Label4: TLabel;
|
||
Label5: TLabel;
|
||
Label6: TLabel;
|
||
Label7: TLabel;
|
||
Label8: TLabel;
|
||
Label9: TLabel;
|
||
InputLen: TcxTextEdit;
|
||
lblLenUnit: TLabel;
|
||
Label10: TLabel;
|
||
InputWeight: TcxTextEdit;
|
||
Tare: TcxTextEdit;
|
||
Label11: TLabel;
|
||
BTPrint: TButton;
|
||
Coefficient: TcxTextEdit;
|
||
lblRuleConversion: TcxComboBox;
|
||
Label12: TLabel;
|
||
AOrdDefNote1: TcxRichEdit;
|
||
packnote: TcxMemo;
|
||
unitPieces: TcxTextEdit;
|
||
presentWeight: TcxTextEdit;
|
||
presentLen: TcxTextEdit;
|
||
bt_printmd: TButton;
|
||
addWet: TcxTextEdit;
|
||
addLen: TcxTextEdit;
|
||
C_GramWeight: TcxTextEdit;
|
||
C_Width: TcxTextEdit;
|
||
customStrField2: TcxTextEdit;
|
||
customStrField1: TcxTextEdit;
|
||
C_StyleNo: TcxTextEdit;
|
||
RuleYardstick: TcxTextEdit;
|
||
C_Pattern: TcxTextEdit;
|
||
OutPutWeight: TcxTextEdit;
|
||
cxDBImage1: TcxDBImage;
|
||
Button1: TButton;
|
||
TV2Column8: TcxGridDBColumn;
|
||
Panel2: TPanel;
|
||
cxGrid3: TcxGrid;
|
||
Tv3: TcxGridDBTableView;
|
||
v3PieceNo: TcxGridDBColumn;
|
||
Tv3Yardage: TcxGridDBColumn;
|
||
Tv3Meter: TcxGridDBColumn;
|
||
v3NetWeight: TcxGridDBColumn;
|
||
v3GrossWeight: TcxGridDBColumn;
|
||
Tv3Grade: TcxGridDBColumn;
|
||
tv3CIID: TcxGridDBColumn;
|
||
cxGridLevel2: TcxGridLevel;
|
||
ToolBar2: TToolBar;
|
||
ToolButton3: TToolButton;
|
||
Trolldel: TToolButton;
|
||
ToolButton1: TToolButton;
|
||
Tlog: TToolButton;
|
||
ToolButton8: TToolButton;
|
||
ToolButton2: TButton;
|
||
Tv3Column1: TcxGridDBColumn;
|
||
TV2Column6: TcxGridDBColumn;
|
||
TV2Column9: TcxGridDBColumn;
|
||
TV2Column10: TcxGridDBColumn;
|
||
ToolButton4: TToolButton;
|
||
GroupBox1: TGroupBox;
|
||
Button3: TButton;
|
||
Label13: TLabel;
|
||
Label14: TLabel;
|
||
Label15: TLabel;
|
||
C_CODE: TcxTextEdit;
|
||
C_NAME2: TcxComboBox;
|
||
ADO_PM: TADOQuery;
|
||
Label16: TLabel;
|
||
DUNIT: TcxTextEdit;
|
||
ADO_YS: TADOQuery;
|
||
Label17: TLabel;
|
||
C_COLOR: TcxTextEdit;
|
||
Label18: TLabel;
|
||
CICUNIT: TcxTextEdit;
|
||
Panel3: TPanel;
|
||
cxGrid1: TcxGrid;
|
||
TV1: TcxGridDBTableView;
|
||
cxGridDBColumn2: TcxGridDBColumn;
|
||
cxGridLevel3: TcxGridLevel;
|
||
CDS_4: TClientDataSet;
|
||
DS_4: TDataSource;
|
||
ADO_4: TADOQuery;
|
||
C_NAME: TcxTextEdit;
|
||
Tv3Column2: TcxGridDBColumn;
|
||
cxGridPopupMenu1: TcxGridPopupMenu;
|
||
cxTextEdit1: TcxTextEdit;
|
||
cxStyleRepository1: TcxStyleRepository;
|
||
cxStyle1: TcxStyle;
|
||
DS_YS: TDataSource;
|
||
Button4: TButton;
|
||
Panel4: TPanel;
|
||
Label19: TLabel;
|
||
SCAN2: TcxTextEdit;
|
||
cxGrid4: TcxGrid;
|
||
TV4: TcxGridDBTableView;
|
||
cxGridDBColumn3: TcxGridDBColumn;
|
||
cxGridLevel4: TcxGridLevel;
|
||
Label20: TLabel;
|
||
TV4Column1: TcxGridDBColumn;
|
||
TV4Column2: TcxGridDBColumn;
|
||
DS_HP: TDataSource;
|
||
CDS_HP: TClientDataSet;
|
||
Button5: TButton;
|
||
Button6: TButton;
|
||
CheckBox1: TCheckBox;
|
||
TV2Column11: TcxGridDBColumn;
|
||
CRTYPE: TcxComboBox;
|
||
Button2: TButton;
|
||
C_COLORNO: TcxTextEdit;
|
||
Panel5: TPanel;
|
||
cxGrid5: TcxGrid;
|
||
TV5: TcxGridDBTableView;
|
||
cxGridDBColumn4: TcxGridDBColumn;
|
||
cxGridLevel5: TcxGridLevel;
|
||
CDS_5: TClientDataSet;
|
||
DS_5: TDataSource;
|
||
ADO_5: TADOQuery;
|
||
procedure FormCreate(Sender: TObject);
|
||
procedure FormShow(Sender: TObject);
|
||
procedure FormClose(Sender: TObject; var Action: TCloseAction);
|
||
procedure FormDestroy(Sender: TObject);
|
||
procedure edtScanDblClick(Sender: TObject);
|
||
procedure edtScanKeyPress(Sender: TObject; var Key: Char);
|
||
procedure ToolButton8Click(Sender: TObject);
|
||
procedure edtScanEnter(Sender: TObject);
|
||
procedure BTPrintClick(Sender: TObject);
|
||
procedure TrolldelClick(Sender: TObject);
|
||
procedure ToolButton3Click(Sender: TObject);
|
||
procedure Tv3CustomDrawCell(Sender: TcxCustomGridTableView; ACanvas: TcxCanvas; AViewInfo: TcxGridTableDataCellViewInfo; var ADone: Boolean);
|
||
procedure InputLenKeyPress(Sender: TObject; var Key: Char);
|
||
procedure InputLenPropertiesChange(Sender: TObject);
|
||
procedure FrameKeyBoard1SpeedButton_ycClick(Sender: TObject);
|
||
procedure dxLayoutItem1CaptionClick(Sender: TObject);
|
||
procedure lblRuleConversionPropertiesChange(Sender: TObject);
|
||
procedure bt_printmdClick(Sender: TObject);
|
||
procedure dxLayoutControl_packDblClick(Sender: TObject);
|
||
procedure ToolButton1Click(Sender: TObject);
|
||
procedure FrameKeyBoard1SpeedButton1Click(Sender: TObject);
|
||
procedure ToolButton2Click(Sender: TObject);
|
||
procedure Button1Click(Sender: TObject);
|
||
procedure FrameKeyBoard1SpeedButton_backClick(Sender: TObject);
|
||
procedure ToolButton4Click(Sender: TObject);
|
||
procedure Button3Click(Sender: TObject);
|
||
procedure Button2Click(Sender: TObject);
|
||
procedure C_NAMEExit(Sender: TObject);
|
||
procedure C_NAMEPropertiesChange(Sender: TObject);
|
||
procedure c_colornoPropertiesChange(Sender: TObject);
|
||
procedure C_NAME2Click(Sender: TObject);
|
||
procedure C_NAME2Enter(Sender: TObject);
|
||
procedure c_colornoExit(Sender: TObject);
|
||
procedure c_colornoEnter(Sender: TObject);
|
||
procedure TV1CellClick(Sender: TcxCustomGridTableView; ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton; AShift: TShiftState; var AHandled: Boolean);
|
||
procedure C_NAMEClick(Sender: TObject);
|
||
procedure Panel1Click(Sender: TObject);
|
||
procedure cxTextEdit1Click(Sender: TObject);
|
||
procedure Button4Click(Sender: TObject);
|
||
procedure SCAN2KeyPress(Sender: TObject; var Key: Char);
|
||
procedure Button6Click(Sender: TObject);
|
||
procedure Button5Click(Sender: TObject);
|
||
procedure ColorNoClick(Sender: TObject);
|
||
procedure C_COLORNOClick(Sender: TObject);
|
||
procedure TV5CellClick(Sender: TcxCustomGridTableView; ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton; AShift: TShiftState; var AHandled: Boolean);
|
||
procedure GroupBox1Click(Sender: TObject);
|
||
private
|
||
FCIID, FCIFName, FWorkshop: string;
|
||
FBCIOID, FC_Code, FC_ColorNo, FC_Color, FQtyUnit, FLenUnit, FTMSId, FTMMId: string;
|
||
Faddwet, faddlen: double;
|
||
FFtyPCId, FGangNo, FRulePieceNo, FCDUnit: string;
|
||
FPieceNo: Integer;
|
||
fIsPack: string;
|
||
fIsCommopen: Boolean;
|
||
FPacketCIID: string;
|
||
fLabPackage, fLabVolume: string;
|
||
FPacketCount: Integer;
|
||
fAddwetVirtual: double;
|
||
fAddLenVirtual: double;
|
||
fTareType: string;
|
||
funitPiecesStr: string; //ƴƥ
|
||
procedure setFocusCtrol(controlName: string);
|
||
procedure QuantityConversion();
|
||
procedure ClearGlobal();
|
||
procedure InitPlan(MSubID: string);
|
||
procedure SetUnit(MUnit: string);
|
||
procedure SetDdetails();
|
||
procedure SetINIFile();
|
||
procedure GetINIFile();
|
||
procedure InitJYGrid();
|
||
procedure InitGrid2();
|
||
procedure InitGridCP();
|
||
|
||
procedure InitGridys();
|
||
|
||
procedure OpenCom(DllName: string);
|
||
procedure CloseCom(DllName: string);
|
||
procedure clearCom(DllName: string);
|
||
function SaveData(): Boolean;
|
||
procedure PrtData(MCIID: string; againPring: Boolean = false);
|
||
procedure PrtData2(MCIID: string; againPring: Boolean = false);
|
||
procedure BadSpeedButtonClick(Sender: TObject);
|
||
procedure setFormCtrol();
|
||
procedure On1201(var Message: Tmessage); message 1201; // <20><><EFBFBD>ӳ<EFBFBD>
|
||
procedure On1301(var Message: Tmessage); message 1301; // <20><><EFBFBD><EFBFBD>
|
||
function CheckData(CKType: string): Boolean;
|
||
function deletePack(packId: string): boolean;
|
||
type
|
||
|
||
|
||
public
|
||
fmanage, fzt, FZT2: string;
|
||
fFlileFlag, FCKLX: string; //FCKLX <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD>վ<EFBFBD><D5BE><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
|
||
end;
|
||
|
||
var
|
||
frmMachRollMain: TfrmMachRollMain;
|
||
newh, newh1: hwnd;
|
||
|
||
implementation
|
||
|
||
uses
|
||
U_DataLink, U_ControlData, U_ParamSet, U_RTFun, U_globalVar,
|
||
U_FormLayOutDesign, U_ZDYHelp, U_iniParam, U_ProductListHelp, U_SysLogList,
|
||
U_ProgressUpdate, U_LabelPrint, U_TradeClothTotalOutSel;
|
||
{$R *.dfm}
|
||
|
||
procedure TfrmMachRollMain.ClearCom(DllName: string);
|
||
type
|
||
TMyFunc = function(sCommName: PAnsiChar): hwnd; stdcall;
|
||
var
|
||
Tf1: TMyFunc;
|
||
Tp1: TFarProc;
|
||
Th1: Thandle;
|
||
begin
|
||
Th1 := LoadLibrary(pchar(trim(DllName)));
|
||
if Th1 > 0 then
|
||
begin
|
||
try
|
||
Tp1 := GetProcAddress(Th1, 'CommClear');
|
||
if Tp1 <> nil then
|
||
begin
|
||
Tf1 := TMyFunc(Tp1);
|
||
newh1 := Tf1('Comm1');
|
||
end
|
||
else
|
||
begin
|
||
|
||
end;
|
||
finally
|
||
// FreeLibrary(Th1);
|
||
end;
|
||
end
|
||
else
|
||
begin
|
||
Application.MessageBox(pchar('<27>Ҳ<EFBFBD><D2B2><EFBFBD> ' + trim(DllName) + ' <20>ļ<EFBFBD><C4BC><EFBFBD>'), '<27><>ʾ');
|
||
end;
|
||
end;
|
||
|
||
procedure TfrmMachRollMain.InitGrid2();
|
||
var
|
||
SqlStr: string;
|
||
begin
|
||
if FCKLX = '<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>' then
|
||
begin
|
||
SqlStr := ' exec P_Trade_Market_WaitOut_Market ';
|
||
SqlStr := SqlStr + ' @TMSId =' + quotedstr(trim(FTMSId));
|
||
end
|
||
else
|
||
begin
|
||
SqlStr := ' exec P_Trade_Market_WaitOut ';
|
||
SqlStr := SqlStr + ' @C_Code =' + quotedstr(trim(FC_Code));
|
||
SqlStr := SqlStr + ' ,@C_ColorNo =' + quotedstr(trim(FC_ColorNo));
|
||
end;
|
||
|
||
// showmessage(SqlStr);
|
||
InitCDSData(ADO_2, CDS_2, Tv2, SqlStr, '', '');
|
||
end;
|
||
|
||
procedure TfrmMachRollMain.InitGridCP();
|
||
var
|
||
SqlStr: string;
|
||
begin
|
||
|
||
SqlStr := ' select distinct C_CODE,c_name from bs_cloth_info where c_name like ' + quotedstr('%' + trim(C_NAME.Text) + '%');
|
||
|
||
SqlStr := SqlStr + 'order by C_CODE,c_name';
|
||
// showmessage(SqlStr);
|
||
InitCDSData(ADO_4, CDS_4, Tv1, SqlStr, '', '');
|
||
end;
|
||
|
||
procedure TfrmMachRollMain.InitGridys();
|
||
var
|
||
SqlStr: string;
|
||
begin
|
||
|
||
SqlStr := ' select distinct A.C_Code,B.C_Color,B.C_ColorNo,B.referencePrice AS Price from bs_cloth_info A inner join BS_Cloth_Info_Sub B on A.BCIID=B.BCIID where c_name = ' + quotedstr(trim(C_NAME.Text));
|
||
SqlStr := SqlStr + ' AND B.C_ColorNO LIKE ' + quotedstr('%' + trim(C_ColorNO.Text) + '%');
|
||
SqlStr := SqlStr + 'order by B.C_Color,B.C_ColorNo';
|
||
// showmessage(SqlStr);
|
||
InitCDSData(ADO_5, CDS_5, Tv5, SqlStr, '', '');
|
||
|
||
end;
|
||
|
||
function TfrmMachRollMain.CheckData(CKType: string): Boolean;
|
||
var
|
||
mvalue: double;
|
||
mCurPieceNo: Integer;
|
||
begin
|
||
Result := false;
|
||
|
||
try
|
||
if trim(FBCIOID) = '' then
|
||
raise Exception.create('<27><>ɨ<EFBFBD><C9A8><EFBFBD><EFBFBD><EFBFBD>̿<EFBFBD><CCBF><EFBFBD>');
|
||
|
||
if trim(CKType) = '<27>ύ' then
|
||
begin
|
||
|
||
if trim(lblLenUnit.Caption) = '' then
|
||
raise Exception.create('<27><><EFBFBD>ȵ<EFBFBD>λ<EFBFBD><CEBB><EFBFBD><EFBFBD>Ϊ<EFBFBD><CEAA>!');
|
||
|
||
if trim(InputWeight.Text) <> '' then
|
||
begin
|
||
if TryStrToFloat(InputWeight.Text, mvalue) = false then
|
||
raise Exception.create('<27><><EFBFBD><EFBFBD>¼<EFBFBD><C2BC><EFBFBD><EFBFBD><EFBFBD><EFBFBD>!');
|
||
if strtofloatdef(trim(InputWeight.Text), 0) < cds_params.fieldbyName('minWeight').AsInteger then
|
||
raise Exception.create('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>С<EFBFBD><D0A1>' + cds_params.fieldbyName('minWeight').AsString + '!');
|
||
if strtofloatdef(trim(InputWeight.Text), 0) > cds_params.fieldbyName('maxWeight').AsInteger then
|
||
raise Exception.create('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ܴ<EFBFBD><DCB4><EFBFBD>' + cds_params.fieldbyName('maxWeight').AsString + '!');
|
||
end;
|
||
|
||
if trim(InputLen.Text) <> '' then
|
||
begin
|
||
if TryStrToFloat(InputLen.Text, mvalue) = false then
|
||
raise Exception.create('<27><><EFBFBD><EFBFBD>¼<EFBFBD><C2BC><EFBFBD><EFBFBD><EFBFBD><EFBFBD>!');
|
||
if strtofloatdef(trim(InputLen.Text), 0) < cds_params.fieldbyName('minLen').AsInteger then
|
||
raise Exception.create('<27><><EFBFBD>Ȳ<EFBFBD><C8B2><EFBFBD>С<EFBFBD><D0A1>' + cds_params.fieldbyName('minLen').AsString + '<27><>!');
|
||
if strtofloatdef(trim(InputLen.Text), 0) > cds_params.fieldbyName('maxLen').AsInteger then
|
||
raise Exception.create('<27><><EFBFBD>Ȳ<EFBFBD><C8B2>ܴ<EFBFBD><DCB4><EFBFBD>' + cds_params.fieldbyName('maxLen').AsString + '<27><>!');
|
||
end;
|
||
if UpperCase(CICUNIT.Text) = 'KG' then
|
||
begin
|
||
if (strtofloatdef(trim(InputWeight.Text), 0) = 0) then
|
||
raise Exception.create('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>Ϊ0!!');
|
||
end
|
||
else if (UpperCase(CICUNIT.Text) = 'M') or (UpperCase(CICUNIT.Text) = 'Y') then
|
||
begin
|
||
if (strtofloatdef(trim(InputLen.Text), 0) = 0) then
|
||
raise Exception.create('<27><><EFBFBD>Ȳ<EFBFBD><C8B2><EFBFBD>Ϊ0!!');
|
||
end
|
||
else
|
||
begin
|
||
if (strtofloatdef(trim(InputLen.Text), 0) = 0) and (strtofloatdef(trim(InputWeight.Text), 0) = 0) then
|
||
raise Exception.create('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ܶ<EFBFBD>Ϊ0!!');
|
||
end;
|
||
// if UpperCase(FQtyUnit) = 'KG' then
|
||
// begin
|
||
// if (strtofloatdef(trim(InputWeight.Text), 0) = 0) then
|
||
// raise Exception.create('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>Ϊ0!!');
|
||
// end
|
||
// else
|
||
// begin
|
||
// if (strtofloatdef(trim(InputLen.Text), 0) = 0) then
|
||
// raise Exception.create('<27><><EFBFBD>Ȳ<EFBFBD><C8B2><EFBFBD>Ϊ0!!');
|
||
// end;
|
||
|
||
end;
|
||
Result := true;
|
||
except
|
||
Application.MessageBox(pchar(Exception(ExceptObject).Message), '<27><>ʾ<EFBFBD><CABE>Ϣ', 0);
|
||
end;
|
||
end;
|
||
|
||
procedure TfrmMachRollMain.BTPrintClick(Sender: TObject);
|
||
var
|
||
fPrintFile, MPacketId: string;
|
||
mvalue: double;
|
||
i: Integer;
|
||
begin
|
||
if CDS_2.IsEmpty then
|
||
begin
|
||
Application.MessageBox('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>', '<27><>ʾ<EFBFBD><CABE>Ϣ', 0);
|
||
exit;
|
||
end;
|
||
|
||
try
|
||
BTPrint.Enabled := false;
|
||
|
||
edtScan.SetFocus;
|
||
|
||
if CheckData('<27>ύ') = false then
|
||
exit;
|
||
|
||
if SaveData() then
|
||
begin
|
||
InputLen.Text := '';
|
||
presentLen.Text := '';
|
||
funitPiecesStr := '';
|
||
presentWeight.Text := '';
|
||
|
||
if fileexists(ExtractFilePath(Application.ExeName) + '<27><>ȷ.wav') then
|
||
playSound(pwidechar('<27><>ȷ.wav'), 0, SND_FILENAME or SND_ASYNC);
|
||
|
||
InputWeight.Text := '';
|
||
|
||
if trim(cds_params.fieldbyName('outPage').AsString) = '<27><>' then
|
||
begin
|
||
PrtData(FCIID);
|
||
end;
|
||
|
||
end;
|
||
InputLen.SetFocus;
|
||
setFocusCtrol(InputLen.Name);
|
||
InitJYGrid();
|
||
InitGrid2();
|
||
|
||
FCIID := '';
|
||
finally
|
||
BTPrint.Enabled := true;
|
||
end;
|
||
if fIsCommopen then
|
||
begin
|
||
ClearCom(MBDYDllName);
|
||
end;
|
||
edtScan.SetFocus();
|
||
end;
|
||
|
||
procedure TfrmMachRollMain.bt_printmdClick(Sender: TObject);
|
||
var
|
||
WSql: string;
|
||
begin
|
||
if cds_3.IsEmpty then
|
||
Exit;
|
||
|
||
WSql := '';
|
||
cds_3.DisableControls;
|
||
with cds_3 do
|
||
begin
|
||
First;
|
||
while not Eof do
|
||
begin
|
||
|
||
if WSql <> '' then
|
||
begin
|
||
WSql := WSql + ',' + Trim(cds_3.fieldbyname('CIID').AsString);
|
||
end
|
||
else
|
||
begin
|
||
WSql := Trim(cds_3.fieldbyname('CIID').AsString);
|
||
end;
|
||
|
||
Next;
|
||
end;
|
||
end;
|
||
|
||
cds_3.EnableControls;
|
||
// try
|
||
// frmMdPrint := TfrmMdPrint.Create(Application);
|
||
// with frmMdPrint do
|
||
// begin
|
||
// FLMType := '<27><><EFBFBD><EFBFBD><EFBFBD>뵥';
|
||
// FFiltration1 := WSql;
|
||
// FFiltration2 := WSql;
|
||
// if ShowModal = 1 then
|
||
// begin
|
||
//// Self.InitGrid();
|
||
// end;
|
||
// end;
|
||
// finally
|
||
// frmMdPrint.Free;
|
||
// end;
|
||
try
|
||
frmLabelPrint := TfrmLabelPrint.Create(Application);
|
||
with frmLabelPrint do
|
||
begin
|
||
FLMType := '<27><><EFBFBD><EFBFBD><EFBFBD>뵥';
|
||
FFiltration1 := WSql;
|
||
if ShowModal = 1 then
|
||
begin
|
||
// Self.InitGrid();
|
||
end;
|
||
end;
|
||
finally
|
||
frmLabelPrint.Free;
|
||
end;
|
||
end;
|
||
|
||
procedure TfrmMachRollMain.Button1Click(Sender: TObject);
|
||
var
|
||
fPrintFile, MPacketId, MTMSId: string;
|
||
mvalue: double;
|
||
i: Integer;
|
||
begin
|
||
try
|
||
Button1.Enabled := false;
|
||
MTMSId := Trim(SelTVKey(Tv2, ['TMSId'])[0]);
|
||
edtScan.SetFocus;
|
||
|
||
try
|
||
ADOQueryBaseCmd.Connection.BeginTrans;
|
||
if trim(MTMSId) = '' then
|
||
raise Exception.create('<27><>ѡ<EFBFBD><D1A1><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>');
|
||
if trim(FBCIOID) = '' then
|
||
raise Exception.create('<27><>ɨ<EFBFBD><C9A8><EFBFBD><EFBFBD><EFBFBD>̿<EFBFBD><CCBF><EFBFBD>');
|
||
with ADOQueryBaseCmd do
|
||
begin
|
||
Close;
|
||
sql.Clear;
|
||
Sql.Add('exec P_BS_Cloth_Out_DistributionAll ');
|
||
Sql.Add(' @StkID=' + quotedstr(Trim(FBCIOID)));
|
||
Sql.Add(' ,@TMSId =' + quotedstr(MTMSId));
|
||
Sql.Add(' ,@Dcode=' + quotedstr(Trim(Dcode)));
|
||
Sql.Add(' ,@DName=' + quotedstr(Trim(DName)));
|
||
// showmessage(sql.Text);
|
||
open;
|
||
end;
|
||
|
||
if ADOQueryBaseCmd.fieldbyName('intReturn').AsInteger = -1 then
|
||
begin
|
||
raise Exception.create(pchar(trim(ADOQueryBaseCmd.fieldbyName('ShowMsg').AsString)));
|
||
end;
|
||
|
||
FCIID := trim(trim(ADOQueryBaseCmd.fieldbyName('MaxIOID2').AsString));
|
||
if trim(cds_params.fieldbyName('outPage').AsString) = '<27><>' then
|
||
begin
|
||
PrtData(FCIID);
|
||
end;
|
||
ADOQueryBaseCmd.Connection.CommitTrans;
|
||
TradeMarketProgressUpdate(ADOQueryBaseCmd, MTMSId);
|
||
except
|
||
ADOQueryBaseCmd.Connection.RollbackTrans;
|
||
Application.MessageBox(pchar(Exception(ExceptObject).Message), '<27><>ʾ<EFBFBD><CABE>Ϣ', 0);
|
||
|
||
end;
|
||
InputLen.SetFocus;
|
||
setFocusCtrol(InputLen.Name);
|
||
InitJYGrid();
|
||
InitGrid2();
|
||
FCIID := '';
|
||
finally
|
||
Button1.Enabled := true;
|
||
end;
|
||
if fIsCommopen then
|
||
begin
|
||
ClearCom(MBDYDllName);
|
||
end;
|
||
edtScan.SetFocus();
|
||
end;
|
||
|
||
procedure TfrmMachRollMain.Button2Click(Sender: TObject);
|
||
var
|
||
Maxno, MBCIOID: string;
|
||
MInputLen, MMeter, MYardage: double;
|
||
MInputWeight, MGrossWeight, MNetWeight, MTare, Maddwet, maddLen: double;
|
||
mYardStick: double;
|
||
mPresentLen, mpresentWeight: double;
|
||
begin
|
||
if C_name.Text = '' then
|
||
begin
|
||
application.MessageBox('<27><><EFBFBD>Ʋ<EFBFBD><C6B2><EFBFBD>Ϊ<EFBFBD><CEAA>', '<27><>ʾ<EFBFBD><CABE>Ϣ', 0);
|
||
exit;
|
||
end;
|
||
if C_COlor.Text = '' then
|
||
begin
|
||
application.MessageBox('<27><>ɫ<EFBFBD><C9AB><EFBFBD><EFBFBD>Ϊ<EFBFBD><CEAA>', '<27><>ʾ<EFBFBD><CABE>Ϣ', 0);
|
||
exit;
|
||
end;
|
||
if DUNIT.Text = '' then
|
||
begin
|
||
application.MessageBox('<27><>λ<EFBFBD><CEBB><EFBFBD><EFBFBD>Ϊ<EFBFBD><CEAA>', '<27><>ʾ<EFBFBD><CABE>Ϣ', 0);
|
||
exit;
|
||
end;
|
||
|
||
if ((DUNIT.Text = 'M') or (DUNIT.Text = 'Y')) and (StrToFloatDef(InputLen.Text, 0) = 0) then
|
||
begin
|
||
application.MessageBox('<27><><EFBFBD>Ȳ<EFBFBD><C8B2><EFBFBD>Ϊ0', '<27><>ʾ<EFBFBD><CABE>Ϣ', 0);
|
||
exit;
|
||
end;
|
||
if (UpperCase(DUNIT.Text) = 'KG') and (StrToFloatDef(InputWEIGHT.Text, 0) = 0) then
|
||
begin
|
||
application.MessageBox('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>Ϊ0', '<27><>ʾ<EFBFBD><CABE>Ϣ', 0);
|
||
exit;
|
||
end;
|
||
with ADOQueryBaseTemp do
|
||
begin
|
||
Close;
|
||
sql.Clear;
|
||
sql.Add('select * from Bs_Cloth_Info A INNER JOIN BS_Cloth_Info_Sub B ON A.BCIID=B.BCIID ');
|
||
SQL.Add(' where c_name=' + QuotedStr(C_NAME.Text));
|
||
SQL.Add(' AND B.c_COLOR=' + QuotedStr(c_COLOR.Text));
|
||
SQL.Add(' AND B.C_ColorNo=' + QuotedStr(C_ColorNo.Text));
|
||
open;
|
||
end;
|
||
if ADOQueryBaseTemp.IsEmpty then
|
||
begin
|
||
application.MessageBox('δ<>ҵ<EFBFBD><D2B5>ò<EFBFBD>Ʒɫ<C6B7><C9AB><EFBFBD><EFBFBD>ɫ<EFBFBD><C9AB><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ȷ<EFBFBD>Ϻ<EFBFBD><CFBA><EFBFBD>д', '<27><>ʾ<EFBFBD><CABE>Ϣ', 0);
|
||
exit;
|
||
end;
|
||
|
||
try
|
||
ADOQueryBaseCmd.Connection.BeginTrans;
|
||
Maddwet := strTofloatDef(trim(addwet.text), 0); // Faddwet;
|
||
maddLen := strTofloatDef(trim(addlen.text), 0); // faddlen;
|
||
mYardStick := strtofloatdef(trim(RuleYardstick.Text), 100);
|
||
mPresentLen := strTofloatDef(trim(presentlen.text), 0);
|
||
mpresentWeight := strTofloatDef(trim(presentWeight.text), 0);
|
||
with ADOQueryBaseTemp do
|
||
begin
|
||
Close;
|
||
sql.Clear;
|
||
sql.Add('select * from BS_Cloth_IO where 1<>1 ');
|
||
open;
|
||
end;
|
||
|
||
if not GetLSNo(ADOQueryBaseCmd, Maxno, 'TC', 'BS_Cloth_IO', 4, 1) then
|
||
raise Exception.Create('ȡ<><C8A1><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ʧ<EFBFBD>ܣ<EFBFBD>');
|
||
|
||
if (strtoIntdef(Trim(unitPieces.Text), 0) > 0) and (strtoIntdef(trim(InputLen.Text), 0) > 0) then
|
||
begin
|
||
if strtoIntdef(trim(InputLen.Text), 0) > strtoIntdef(Trim(unitPieces.Text), 0) then
|
||
funitPiecesStr := intTostr((strtoIntdef(trim(InputLen.Text), 0)) - strtoIntdef(Trim(unitPieces.Text), 0)) + '+' + Trim(unitPieces.Text);
|
||
end;
|
||
//0:<3A><><EFBFBD>䣻1<E4A3BB><31><EFBFBD><EFBFBD>ȥ<EFBFBD><C8A5><EFBFBD><EFBFBD>
|
||
if gPresentNumFlag = 1 then
|
||
begin
|
||
mPresentLen := -1 * mPresentLen;
|
||
mpresentWeight := -1 * mpresentWeight;
|
||
end;
|
||
|
||
MTare := strtofloatdef(trim(Tare.Text), 0); // Ƥ<><C6A4>
|
||
MInputWeight := RoundFloat(strtofloatdef(trim(InputWeight.Text), 0), cds_params.fieldbyName('KgPlace').AsInteger); // <20><><EFBFBD><EFBFBD>
|
||
MGrossWeight := MInputWeight + Maddwet + mpresentWeight; // ë<><C3AB>
|
||
MNetWeight := MInputWeight + Maddwet + mpresentWeight - MTare; // <20><><EFBFBD><EFBFBD> +<2B><><EFBFBD><EFBFBD>
|
||
|
||
MInputLen := RoundFloat(strtofloatdef(trim(InputLen.Text), 0), 4);
|
||
// <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>+mAddLen
|
||
if (uppercase(lblLenUnit.Caption) = 'M') or (lblLenUnit.Caption = '<27><>') then
|
||
begin
|
||
MMeter := RoundFloat((MInputLen + maddLen + mPresentLen) / (mYardStick / 100), cds_params.fieldbyName('MPlace').AsInteger);
|
||
MYardage := RoundFloat(MMeter / 0.9144, cds_params.fieldbyName('YPlace').AsInteger);
|
||
end
|
||
else
|
||
begin
|
||
MYardage := RoundFloat((MInputLen + maddLen + mPresentLen) / (mYardStick / 100), cds_params.fieldbyName('YPlace').AsInteger);
|
||
MMeter := RoundFloat(MYardage * 0.9144, cds_params.fieldbyName('MPlace').AsInteger);
|
||
end;
|
||
with ADOQueryBaseCmd do
|
||
begin
|
||
Close;
|
||
sql.Clear;
|
||
sql.Add('select * from BS_Cloth_IO where BCIOID=''' + Trim(Maxno) + '''');
|
||
Open;
|
||
end;
|
||
with ADOQueryBaseCmd do
|
||
begin
|
||
if ADOQueryBaseCmd.ISEMPTY then
|
||
begin
|
||
Append;
|
||
FieldByName('Fillid').Value := Trim(Dcode);
|
||
FieldByName('Filler').Value := Trim(DName);
|
||
FieldByName('BCIONO').Value := Trim(Maxno);
|
||
FieldByName('BCIOID').Value := Trim(Maxno);
|
||
FieldByName('BCIONO').Value := Trim(Maxno);
|
||
FieldByName('STKID').Value := Trim(Maxno);
|
||
FieldByName('CIID').Value := Trim(Maxno);
|
||
end
|
||
else
|
||
begin
|
||
Edit;
|
||
FieldByName('Editid').Value := Trim(Dcode);
|
||
FieldByName('Editer').Value := Trim(DName);
|
||
FieldByName('EditTime').Value := SGetServerDate(ADOQueryBaseTemp);
|
||
FieldByName('status').value := '1';
|
||
end;
|
||
FieldByName('C_NAME').Value := C_NAME.Text;
|
||
FieldByName('C_CODE').Value := C_CODE.Text;
|
||
FieldByName('C_COLORNO').Value := C_COLORNO.Text;
|
||
FieldByName('C_COLOR').Value := C_COLOR.Text;
|
||
|
||
FieldByName('IOTime').Value := StrToDate(FormatDateTime('yyyy-mm-dd', SGetServerDate(ADOQueryBaseTemp)));
|
||
|
||
FieldByName('STKName').Value := 'ó<>ײ<EFBFBD>ƥ';
|
||
FieldByName('IOFlag').Value := '<27><><EFBFBD><EFBFBD>';
|
||
|
||
FieldByName('IOTYPE').Value := CRTYPE.Text;
|
||
|
||
FieldByName('IOQtyFlag').Value := 1;
|
||
|
||
FieldByName('piece').Value := 1;
|
||
FieldByName('stkpiece').Value := 1;
|
||
|
||
FieldByName('GrossWeight').Value := MGrossWeight;
|
||
FieldByName('NetWeight').Value := MNetWeight;
|
||
FieldByName('Meter').Value := MMeter;
|
||
FieldByName('Yardage').Value := MYardage;
|
||
|
||
FieldByName('QTYUNIT').Value := DUNIT.Text;
|
||
if DUNIT.Text = 'M' then
|
||
begin
|
||
FieldByName('qty').Value := MMeter;
|
||
FieldByName('STKqty').Value := MMeter;
|
||
end
|
||
else if DUNIT.Text = 'Y' then
|
||
begin
|
||
FieldByName('qty').Value := MYardage;
|
||
FieldByName('STKqty').Value := MYardage;
|
||
end
|
||
else
|
||
begin
|
||
FieldByName('qty').Value := MGrossWeight;
|
||
FieldByName('STKqty').Value := MGrossWeight;
|
||
end;
|
||
|
||
Post;
|
||
end;
|
||
with ADOQueryBaseCmd do
|
||
begin
|
||
Close;
|
||
sql.Clear;
|
||
sql.Add('Update BS_Cloth_IO Set StkPiece=(select Sum(isnull(Piece,0)*IOQtyFlag) from BS_Cloth_IO A where A.STKID=BS_Cloth_IO.BCIOID )');
|
||
sql.Add(',StkQty=(select Sum(isnull(Qty,0)*IOQtyFlag) from BS_Cloth_IO A where A.STKID=BS_Cloth_IO.BCIOID )');
|
||
sql.Add(' where BCIOID=''' + Trim(Maxno) + '''');
|
||
ExecSQL;
|
||
end;
|
||
|
||
with ADOQueryBaseCmd do
|
||
begin
|
||
Close;
|
||
sql.Clear;
|
||
sql.Add('Update BS_Cloth_IO Set status = 1');
|
||
|
||
sql.Add(' where BCIOID=''' + Trim(Maxno) + '''');
|
||
ExecSQL;
|
||
end;
|
||
|
||
with ADOQueryBaseCmd do
|
||
begin
|
||
Close;
|
||
sql.Clear;
|
||
sql.Add('insert into Finance_Need_Up(UType,UDataId,UOperation,UOperator,UModule,UDetails) ');
|
||
sql.Add('values(''ó<>״<EFBFBD><D7B4>첼<EFBFBD><ECB2BC><EFBFBD><EFBFBD>'' ');
|
||
sql.Add(',' + quotedstr(Maxno));
|
||
sql.Add(',''<27><><EFBFBD><EFBFBD>'' ');
|
||
sql.Add(',' + quotedstr(DName));
|
||
sql.Add(',' + quotedstr(trim(self.Caption)));
|
||
sql.Add(',' + quotedstr(Maxno));
|
||
sql.Add(') ');
|
||
ExecSQL;
|
||
end;
|
||
PrtData2(Maxno);
|
||
ADOQueryBaseCmd.Connection.CommitTrans;
|
||
InputLen.Text := '';
|
||
presentLen.Text := '';
|
||
funitPiecesStr := '';
|
||
presentWeight.Text := '';
|
||
except
|
||
|
||
ADOQueryBaseCmd.Connection.RollbackTrans;
|
||
application.MessageBox(PChar(Exception(ExceptObject).Message), '<27><>ʾ<EFBFBD><CABE>Ϣ', 0);
|
||
end;
|
||
|
||
end;
|
||
|
||
procedure TfrmMachRollMain.Button3Click(Sender: TObject);
|
||
begin
|
||
if GroupBox1.Visible = FALSE then
|
||
begin
|
||
GroupBox1.Visible := True;
|
||
button2.Visible := True;
|
||
CRTYPE.Visible := True;
|
||
end
|
||
else
|
||
begin
|
||
GroupBox1.Visible := false;
|
||
button2.Visible := false;
|
||
CRTYPE.Visible := false;
|
||
end;
|
||
end;
|
||
|
||
procedure TfrmMachRollMain.Button4Click(Sender: TObject);
|
||
begin
|
||
if BCIOID.text = '' then
|
||
begin
|
||
application.MessageBox('<27><><EFBFBD><EFBFBD>ɨ<EFBFBD><C9A8>Ҫƴ<D2AA><C6B4><EFBFBD><EFBFBD><EFBFBD><EFBFBD>', '<27><>ʾ<EFBFBD><CABE>Ϣ', 0);
|
||
exit;
|
||
end
|
||
else
|
||
begin
|
||
Label20.Caption := '<27>ϵ<EFBFBD><CFB5><EFBFBD><EFBFBD><EFBFBD>Ϊ<EFBFBD><CEAA>' + BCIOID.text;
|
||
Panel4.Visible := true;
|
||
with ADOQueryBaseTemp do
|
||
begin
|
||
Close;
|
||
sql.Clear;
|
||
sql.Add('select * From bs_cloth_io where 1<>1');
|
||
|
||
open;
|
||
end;
|
||
SCreateCDS(ADOQueryBaseTemp, cds_hp);
|
||
SInitCDSData(ADOQueryBaseTemp, cds_hp);
|
||
end;
|
||
|
||
end;
|
||
|
||
procedure TfrmMachRollMain.Button5Click(Sender: TObject);
|
||
begin
|
||
if CDS_HP.IsEmpty then
|
||
begin
|
||
application.MessageBox('<27><>ϸ<EFBFBD><CFB8><EFBFBD><EFBFBD>Ϊ<EFBFBD><CEAA>', '<27><>ʾ<EFBFBD><CABE>Ϣ', 0);
|
||
exit;
|
||
end;
|
||
with CDS_HP do
|
||
begin
|
||
First;
|
||
while not Eof do
|
||
begin
|
||
try
|
||
ADOQueryBaseCmd.Connection.BeginTrans;
|
||
|
||
with ADOQueryBaseCmd do
|
||
begin
|
||
Close;
|
||
sql.Clear;
|
||
Sql.Add('exec P_BS_Cloth_Out_DistributionAll_hp ');
|
||
Sql.Add(' @StkID=' + quotedstr(Trim(CDS_HP.FieldByName('bcioid').AsString)));
|
||
Sql.Add(' ,@tostkid =' + quotedstr(bcioid.Text));
|
||
Sql.Add(' ,@Dcode=' + quotedstr(Trim(Dcode)));
|
||
Sql.Add(' ,@DName=' + quotedstr(Trim(DName)));
|
||
// showmessage(sql.Text);
|
||
open;
|
||
end;
|
||
|
||
if ADOQueryBaseCmd.fieldbyName('intReturn').AsInteger = -1 then
|
||
begin
|
||
raise Exception.create(pchar(trim(ADOQueryBaseCmd.fieldbyName('ShowMsg').AsString)));
|
||
end;
|
||
|
||
ADOQueryBaseCmd.Connection.CommitTrans;
|
||
Application.MessageBox(pchar('<27><><EFBFBD><EFBFBD><EFBFBD>ɹ<EFBFBD>'), '<27><>ʾ<EFBFBD><CABE>Ϣ', 0);
|
||
InitPlan(BCIOID.Text);
|
||
except
|
||
ADOQueryBaseCmd.Connection.RollbackTrans;
|
||
Application.MessageBox(pchar(Exception(ExceptObject).Message), '<27><>ʾ<EFBFBD><CABE>Ϣ', 0);
|
||
|
||
end;
|
||
Next;
|
||
end;
|
||
end;
|
||
end;
|
||
|
||
procedure TfrmMachRollMain.Button6Click(Sender: TObject);
|
||
begin
|
||
Panel4.Visible := false;
|
||
end;
|
||
|
||
procedure TfrmMachRollMain.FormClose(Sender: TObject; var Action: TCloseAction);
|
||
begin
|
||
inherited;
|
||
if fIsCommopen then
|
||
begin
|
||
CloseCom(DZCDYDllName);
|
||
CloseCom(MBDYDllName);
|
||
end;
|
||
Action := caFree;
|
||
end;
|
||
|
||
procedure TfrmMachRollMain.FormCreate(Sender: TObject);
|
||
begin
|
||
inherited;
|
||
fIsCommopen := false;
|
||
cds_params.Close;
|
||
cds_params.CreateDataSet;
|
||
Panel_right.Align := alClient;
|
||
end;
|
||
|
||
procedure TfrmMachRollMain.FormDestroy(Sender: TObject);
|
||
begin
|
||
inherited;
|
||
frmMachRollMain := nil;
|
||
end;
|
||
|
||
procedure TfrmMachRollMain.FormShow(Sender: TObject);
|
||
var
|
||
i: Integer;
|
||
begin
|
||
inherited;
|
||
gIsCanDesign := gIsCanDesign;
|
||
gGridNativeSet := true;
|
||
|
||
ReadCxGrid(trim(Self.Caption) + 'Tv3', Tv3, gDllFileCaption);
|
||
ReadCxGrid(trim(Self.Caption) + 'Tv21', Tv2, gDllFileCaption);
|
||
if IsINIFile() then
|
||
ReadINIFile()
|
||
else
|
||
WriteINIFile;
|
||
|
||
GetINIFile();
|
||
setFormCtrol();
|
||
if trim(fmanage) <> '<27><>Ȩ<EFBFBD><C8A8>' then
|
||
begin
|
||
if trim(DZCDYDllName) <> '' then
|
||
OpenCom(DZCDYDllName);
|
||
if trim(MBDYDllName) <> '' then
|
||
OpenCom(MBDYDllName);
|
||
|
||
end;
|
||
if trim(fCanInputFs) = '1' then
|
||
begin
|
||
// cxGroupBox_keys.ClientHeight := round(cxGrid3.ClientHeight * 0.6);
|
||
frameKeyBoard1.SpeedButton10.Visible := true;
|
||
end
|
||
else
|
||
begin
|
||
// cxGroupBox_keys.ClientHeight := round(cxGrid3.ClientHeight * 0.55);
|
||
frameKeyBoard1.SpeedButton10.Visible := false;
|
||
end;
|
||
with ADO_PM do
|
||
begin
|
||
Close;
|
||
sql.Clear;
|
||
sql.Add(' SELECT distinct A.C_Name,A.C_CODE,TMSUnit=QTYUNIT ');
|
||
SQL.ADD(' FROM Bs_Cloth_Info A ');
|
||
|
||
SQL.ADD('order by A.C_Code ');
|
||
// showmessage(SQL.text);
|
||
Open;
|
||
// c_name.Properties.LookupItems.Clear;
|
||
// while not Eof do
|
||
// begin
|
||
// c_name.Properties.LookupItems.Add(Trim(ADO_PM.fieldByName('c_name').AsString));
|
||
// Next;
|
||
// end;
|
||
end;
|
||
with ADO_YS do
|
||
begin
|
||
Close;
|
||
sql.Clear;
|
||
sql.Add(' SELECT DISTINCT A.C_Code,B.C_Color,B.C_ColorNo,B.referencePrice AS Price FROM Bs_Cloth_Info A inner join BS_Cloth_Info_Sub B on A.BCIID=B.BCIID ');
|
||
sql.Add(' where 1<>1');
|
||
SQL.ADD(' order by B.C_ColorNo');
|
||
//ShowMessage(sql.text);
|
||
Open;
|
||
|
||
end;
|
||
// ֧<><D6A7><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
|
||
// C_NAME.Properties.DropDownListStyle := lsEditList;
|
||
// C_NAME.Properties.ImeMode := imChinese;
|
||
|
||
end;
|
||
|
||
procedure TfrmMachRollMain.FrameKeyBoard1SpeedButton1Click(Sender: TObject);
|
||
var
|
||
fsj: string;
|
||
mComponent: TComponent;
|
||
mkey: Char;
|
||
NewText: string;
|
||
begin
|
||
fsj := trim(TSpeedButton(Sender).Hint);
|
||
if trim(fsj) = '' then
|
||
exit;
|
||
mComponent := FindComponent(trim(TSpeedButton(Sender).Hint));
|
||
|
||
if mComponent = nil then
|
||
exit;
|
||
if TcxTextEdit(mComponent).Name = 'KuangHao' then
|
||
exit;
|
||
|
||
if (trim(TSpeedButton(Sender).Caption) = '<27><>') then
|
||
begin
|
||
Tare.Text := FloatToStr(strtofloatdef(Tare.Text, 0) + 0.1);
|
||
end
|
||
else if (trim(TSpeedButton(Sender).Caption) = '<27><>') then
|
||
begin
|
||
Tare.Text := FloatToStr(strtofloatdef(Tare.Text, 0) - 0.1);
|
||
end
|
||
else
|
||
begin
|
||
if (TcxTextEdit(mComponent).Name = 'edtScan') and (trim(TSpeedButton(Sender).Caption) = '<27>س<EFBFBD>') then
|
||
begin
|
||
mkey := #13;
|
||
edtScanKeyPress(edtScan, mkey);
|
||
exit;
|
||
end;
|
||
fsj := trim(TcxTextEdit(mComponent).Text);
|
||
if mComponent is TcxCurrencyEdit then
|
||
begin
|
||
TcxCurrencyEdit(mComponent).text := fsj + trim(TSpeedButton(Sender).Caption);
|
||
TcxCurrencyEdit(mComponent).SelectAll;
|
||
end
|
||
else if mComponent is TcxTextEdit then
|
||
begin
|
||
TcxTextEdit(mComponent).Text := fsj + trim(TSpeedButton(Sender).Caption);
|
||
TcxTextEdit(mComponent).SelectAll;
|
||
end
|
||
else if mComponent is TcxComboBox then
|
||
begin
|
||
|
||
NewText := fsj + trim(TSpeedButton(Sender).Caption);
|
||
;
|
||
|
||
|
||
// C_NAME.Properties.OnChange := nil;
|
||
if TcxComboBox(mComponent).Properties.Items.IndexOf(NewText) = -1 then
|
||
TcxComboBox(mComponent).Properties.Items.Add(NewText);
|
||
TcxComboBox(mComponent).ItemIndex := TcxComboBox(mComponent).Properties.Items.IndexOf(NewText);
|
||
|
||
TcxComboBox(mComponent).DroppedDown := True;
|
||
// C_NAME.Text := C_NAME.Text + '1';
|
||
|
||
// TcxComboBox(mComponent).Text := fsj + trim(TSpeedButton(Sender).Caption);
|
||
// TcxComboBox(mComponent).SelectAll;
|
||
end;
|
||
end;
|
||
|
||
end;
|
||
|
||
procedure TfrmMachRollMain.FrameKeyBoard1SpeedButton_backClick(Sender: TObject);
|
||
var
|
||
fsj: string;
|
||
begin
|
||
fsj := Trim(TcxTextEdit(FindComponent(Trim(TSpeedButton(Sender).Hint))).Text);
|
||
if Trim(fsj) = '' then
|
||
Exit;
|
||
TcxTextEdit(FindComponent(Trim(TSpeedButton(Sender).Hint))).Text := Copy(fsj, 1, Length(fsj) - 1);
|
||
TcxTextEdit(FindComponent(Trim(TSpeedButton(Sender).Hint))).SelectAll;
|
||
|
||
end;
|
||
|
||
procedure TfrmMachRollMain.FrameKeyBoard1SpeedButton_ycClick(Sender: TObject);
|
||
begin
|
||
inherited;
|
||
cxGroupBox_keys.Visible := false;
|
||
end;
|
||
|
||
procedure TfrmMachRollMain.ClearGlobal();
|
||
begin
|
||
FBCIOID := '';
|
||
|
||
FQtyUnit := '';
|
||
|
||
FCIID := '';
|
||
FWorkshop := '';
|
||
InputLen.Text := '';
|
||
Coefficient.Text := '';
|
||
AOrdDefNote1.Text := '';
|
||
Tare.Text := '0.3';
|
||
InputWeight.Text := '';
|
||
FLenUnit := '';
|
||
Faddwet := 0;
|
||
faddlen := 0;
|
||
FPacketCIID := '';
|
||
FPacketCount := 0;
|
||
FC_ColorNo := '';
|
||
FC_Code := '';
|
||
end;
|
||
|
||
procedure TfrmMachRollMain.QuantityConversion();
|
||
begin
|
||
// if trim(OrderNo.Text)='' then exit;
|
||
|
||
if cds_params.fieldbyName('weightRule').AsInteger = 0 then
|
||
// InputWeight ë<><C3AB> OutPutWeight <20><><EFBFBD><EFBFBD>
|
||
begin
|
||
if lblRuleConversion.Text <> '<27><><EFBFBD><EFBFBD>ת<EFBFBD><D7AA>' then
|
||
begin
|
||
if lblRuleConversion.Text = '<27><><EFBFBD><EFBFBD>ת<EFBFBD><D7AA><EFBFBD><EFBFBD>' then
|
||
begin
|
||
InputWeight.Text := floattostr(strtofloatdef(trim(InputLen.Text), 0) * strtofloatdef(trim(Coefficient.Text), 0) + strtofloatdef(trim(Tare.Text), 0));
|
||
end;
|
||
if lblRuleConversion.Text = 'ë<><C3AB>ת<EFBFBD><D7AA><EFBFBD><EFBFBD>' then
|
||
begin
|
||
InputLen.Text := floattostr(strtofloatdef(trim(InputWeight.Text), 0) * strtofloatdef(trim(Coefficient.Text), 0));
|
||
end;
|
||
if lblRuleConversion.Text = '<27><><EFBFBD><EFBFBD>ת<EFBFBD><D7AA><EFBFBD><EFBFBD>' then
|
||
begin
|
||
InputLen.Text := floattostr((RoundFloat(strtofloatdef(trim(InputWeight.Text), 0), 1) - strtofloatdef(trim(Tare.Text), 0)) * strtofloatdef(trim(Coefficient.Text), 0));
|
||
end;
|
||
end;
|
||
if strtofloatdef(trim(InputWeight.Text), 0) > 0 then
|
||
begin
|
||
OutPutWeight.Text := floattostr((strtofloatdef(trim(InputWeight.Text), 0) - strtofloatdef(trim(Tare.Text), 0))); // <20><><EFBFBD><EFBFBD>
|
||
end;
|
||
end;
|
||
|
||
if cds_params.fieldbyName('weightRule').AsInteger = 1 then
|
||
// InputWeight <20><><EFBFBD><EFBFBD> OutPutWeight ë<><C3AB>
|
||
begin
|
||
if lblRuleConversion.Text <> '<27><><EFBFBD><EFBFBD>ת<EFBFBD><D7AA>' then
|
||
begin
|
||
if lblRuleConversion.Text = '<27><><EFBFBD><EFBFBD>ת<EFBFBD><D7AA><EFBFBD><EFBFBD>' then
|
||
begin
|
||
InputWeight.Text := floattostr(strtofloatdef(trim(InputLen.Text), 0) * strtofloatdef(trim(Coefficient.Text), 0));
|
||
end;
|
||
if lblRuleConversion.Text = 'ë<><C3AB>ת<EFBFBD><D7AA><EFBFBD><EFBFBD>' then
|
||
begin
|
||
InputLen.Text := floattostr((strtofloatdef(trim(InputWeight.Text), 0) + strtofloatdef(trim(Tare.Text), 0)) * strtofloatdef(trim(Coefficient.Text), 0));
|
||
end;
|
||
if lblRuleConversion.Text = '<27><><EFBFBD><EFBFBD>ת<EFBFBD><D7AA><EFBFBD><EFBFBD>' then
|
||
begin
|
||
InputLen.Text := floattostr(RoundFloat(strtofloatdef(trim(InputWeight.Text), 0), 1) * strtofloatdef(trim(Coefficient.Text), 0));
|
||
end;
|
||
end;
|
||
if strtofloatdef(trim(InputWeight.Text), 0) > 0 then
|
||
begin
|
||
OutPutWeight.Text := floattostr((strtofloatdef(trim(InputWeight.Text), 0) + strtofloatdef(trim(Tare.Text), 0))); // ë<><C3AB>
|
||
end;
|
||
end;
|
||
|
||
end;
|
||
|
||
procedure TfrmMachRollMain.InitPlan(MSubID: string);
|
||
begin
|
||
if leftstr(MSubID, 2) = 'JS' then
|
||
begin
|
||
FCKLX := '<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>';
|
||
Button1.visible := false;
|
||
ToolButton2.visible := False;
|
||
end
|
||
else
|
||
begin
|
||
FCKLX := '<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>';
|
||
Button1.visible := true;
|
||
ToolButton2.visible := true;
|
||
end;
|
||
|
||
with ADOQueryBaseTemp do
|
||
begin
|
||
Close;
|
||
SQL.Clear;
|
||
if FCKLX = '<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>' then
|
||
begin
|
||
SQL.Add('EXEC P_Trade_Insp_Get_Market @TMSId=''' + trim(MSubID) + '''');
|
||
end
|
||
else
|
||
begin
|
||
SQL.Add('EXEC P_Trade_Insp_Get_plan @BCIOID=''' + trim(MSubID) + '''');
|
||
end;
|
||
Open;
|
||
|
||
if not IsEmpty then
|
||
begin
|
||
FLenUnit := trim(ADOQueryBaseTemp.fieldbyName('LenUnit').AsString);
|
||
if FLenUnit = '' then
|
||
begin
|
||
FLenUnit := 'M';
|
||
end;
|
||
|
||
fLabPackage := 'Ĭ<>ϰ<EFBFBD><CFB0><EFBFBD>ǩ';
|
||
fLabVolume := '<27>ͻ<EFBFBD><CDBB><EFBFBD>ǩ';
|
||
|
||
|
||
// fLabPackage := trim(ADOQueryBaseTemp.fieldbyName('LabPackage').AsString);
|
||
// fLabVolume := trim(ADOQueryBaseTemp.fieldbyName('LabVolume').AsString);
|
||
|
||
SetUnit(FLenUnit);
|
||
FCDUnit := lblLenUnit.Caption;
|
||
|
||
CICUNIT.Text := trim(fieldbyName('CICUNIT').AsString);
|
||
FTMSId := trim(fieldbyName('TMSId').AsString);
|
||
FTMMId := trim(fieldbyName('TMMId').AsString);
|
||
FBCIOID := trim(fieldbyName('BCIOID').AsString);
|
||
FQtyUnit := trim(fieldbyName('QtyUnit').AsString);
|
||
OrderNo.Text := trim(fieldbyName('FromOrdNo').AsString);
|
||
CodeName.Text := trim(fieldbyName('C_Name').AsString);
|
||
C_width.Text := trim(fieldbyName('C_width').AsString);
|
||
C_GramWeight.Text := trim(fieldbyName('C_GramWeight').AsString);
|
||
ColorNo.Text := trim(fieldbyName('C_ColorNo').AsString) + ' ' + trim(fieldbyName('C_Color').AsString);
|
||
Color.Text := trim(fieldbyName('C_Color').AsString);
|
||
C_Pattern.Text := trim(fieldbyName('C_Pattern').AsString);
|
||
FFtyPCId := trim(fieldbyName('FtyPCId').AsString);
|
||
FC_Code := trim(fieldbyName('C_Code').AsString);
|
||
FC_ColorNo := trim(fieldbyName('C_ColorNo').AsString);
|
||
FC_Color := trim(fieldbyName('C_Color').AsString);
|
||
cds_params.Edit;
|
||
cds_params.fieldbyName('outPage').value := '<27><>';
|
||
cds_params.Post;
|
||
|
||
// Coefficient.Text := trim(fieldbyName('Coefficient').AsString);
|
||
// ת<><D7AA>ϵ<EFBFBD><CFB5>
|
||
// lblRuleConversion.ItemIndex := lblRuleConversion.Properties.Items.IndexOf(fieldbyName('RuleConversion').AsString);
|
||
|
||
FtyPCId.Text := FFtyPCId;
|
||
BCIOID.Text := FBCIOID;
|
||
|
||
Qty.Text := trim(fieldbyName('StkQty').AsString) + trim(fieldbyName('QtyUnit').AsString);
|
||
|
||
// Tare.Text := trim(fieldbyName('RuleLaterTare').AsString);
|
||
|
||
fTareType := '';
|
||
|
||
RuleYardstick.Text := '100';
|
||
|
||
packnote.Lines.Clear;
|
||
|
||
InputLen.SetFocus;
|
||
setFocusCtrol(InputLen.Name);
|
||
SetDdetails();
|
||
end
|
||
else
|
||
begin
|
||
// ClearGlobal();
|
||
application.MessageBox('<27><><EFBFBD><EFBFBD><EFBFBD>쳣,<2C><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>Ϣ<EFBFBD>ʹ<EFBFBD><CDB4><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>!', '<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>Ϣ');
|
||
end;
|
||
end;
|
||
InitJYGrid();
|
||
|
||
edtScan.Text := '';
|
||
|
||
// <20><>ʾ<EFBFBD><CABE>
|
||
setFormCtrol();
|
||
|
||
end;
|
||
|
||
procedure TfrmMachRollMain.InputLenKeyPress(Sender: TObject; var Key: Char);
|
||
begin
|
||
if Key = #13 then
|
||
begin
|
||
Key := #0;
|
||
SelectNext(ActiveControl as TWinControl, true, true);
|
||
end;
|
||
|
||
end;
|
||
|
||
procedure TfrmMachRollMain.InputLenPropertiesChange(Sender: TObject);
|
||
begin
|
||
|
||
// if StrToIntDef(trim(InputWeight.Text), 0) = 0 then
|
||
// begin
|
||
// exit;
|
||
// end;
|
||
QuantityConversion();
|
||
end;
|
||
|
||
procedure TfrmMachRollMain.lblRuleConversionPropertiesChange(Sender: TObject);
|
||
begin
|
||
inherited;
|
||
if lblRuleConversion.Text = '<27><><EFBFBD><EFBFBD>ת<EFBFBD><D7AA>' then
|
||
begin
|
||
OutPutWeight.Text := '';
|
||
InputLen.Text := '';
|
||
InputWeight.Text := '';
|
||
end;
|
||
QuantityConversion();
|
||
end;
|
||
|
||
procedure TfrmMachRollMain.SetUnit(MUnit: string);
|
||
begin
|
||
|
||
lblLenUnit.Caption := MUnit;
|
||
|
||
end;
|
||
|
||
procedure TfrmMachRollMain.ToolButton1Click(Sender: TObject);
|
||
begin
|
||
|
||
frmParamSet := TfrmParamSet.create(Self);
|
||
with frmParamSet do
|
||
begin
|
||
cds_params.Data := Self.cds_params.Data;
|
||
if ShowModal = 1 then
|
||
begin
|
||
Self.cds_params.Data := cds_params.Data;
|
||
setFormCtrol();
|
||
end;
|
||
free;
|
||
end;
|
||
SetINIFile();
|
||
if trim(fmanage) <> '<27><>Ȩ<EFBFBD><C8A8>' then
|
||
begin
|
||
if (trim(MBDYDllName) <> '') and not fIsCommopen then
|
||
OpenCom(MBDYDllName);
|
||
|
||
end;
|
||
end;
|
||
|
||
procedure TfrmMachRollMain.ToolButton2Click(Sender: TObject);
|
||
var
|
||
fPrintFile: string;
|
||
Txt, fImagePath, Txt2, fImagePath2: string;
|
||
Moudle: Thandle;
|
||
Makebar: TMakebar;
|
||
Mixtext: TMixtext;
|
||
begin
|
||
if CDS_2.IsEmpty then
|
||
begin
|
||
Application.MessageBox('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>', '<27><>ʾ<EFBFBD><CABE>Ϣ', 0);
|
||
exit;
|
||
end;
|
||
if cxTextEdit1.Text <> '' then
|
||
begin
|
||
BTPrint.Click();
|
||
end;
|
||
|
||
with ADOQueryPrint do
|
||
begin
|
||
Close;
|
||
SQL.Clear;
|
||
SQL.Add(' EXEC P_BS_Cloth_Prt2 ');
|
||
SQL.Add(' @Filtration=''' + trim(FBCIOID) + '''');
|
||
|
||
Open;
|
||
end;
|
||
if ADOQueryPrint.IsEmpty then
|
||
begin
|
||
Application.MessageBox('<27><>ǩ<EFBFBD><C7A9><EFBFBD><EFBFBD>δ<EFBFBD>ҵ<EFBFBD><D2B5><EFBFBD>', '<27><>ʾ<EFBFBD><CABE>Ϣ', MB_ICONERROR);
|
||
exit;
|
||
end;
|
||
|
||
ExportFtErpFile('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ǩ.fr3', ADOQueryBaseTemp);
|
||
fPrintFile := ExtractFilePath(Application.ExeName) + 'Report\<5C><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ǩ.fr3';
|
||
if FileExists(fPrintFile) then
|
||
begin
|
||
|
||
frxReport1.LoadFromFile(fPrintFile);
|
||
frxReport1.PrintOptions.Copies := cds_params.fieldbyName('labNumber').AsInteger;
|
||
frxReport1.PrintOptions.ShowDialog := false;
|
||
frxReport1.PrepareReport(True);
|
||
frxReport1.Print();
|
||
|
||
end
|
||
else
|
||
begin
|
||
Application.MessageBox(PChar('û<><C3BB><EFBFBD>ҵ<EFBFBD>' + fPrintFile), '<27><>ʾ', 0);
|
||
end;
|
||
end;
|
||
|
||
procedure TfrmMachRollMain.ToolButton3Click(Sender: TObject);
|
||
begin
|
||
if cds_3.IsEmpty then
|
||
exit;
|
||
PrtData(cds_3.fieldbyName('BCIOID').AsString);
|
||
|
||
end;
|
||
|
||
procedure TfrmMachRollMain.ToolButton4Click(Sender: TObject);
|
||
begin
|
||
|
||
writeCxGrid(trim(Self.Caption) + 'Tv3', Tv3, gDllFileCaption);
|
||
writeCxGrid(trim(Self.Caption) + 'Tv21', Tv2, gDllFileCaption);
|
||
|
||
end;
|
||
|
||
procedure TfrmMachRollMain.TrolldelClick(Sender: TObject);
|
||
var
|
||
MBCIOID: string;
|
||
begin
|
||
if cds_3.IsEmpty then
|
||
exit;
|
||
|
||
if Application.MessageBox('ȷ<><C8B7>Ҫɾ<D2AA><C9BE>ѡ<EFBFBD><D1A1><EFBFBD>ľ<EFBFBD><C4BE><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>', '<27><>ʾ', 32 + 4) <> IDYES then
|
||
exit;
|
||
|
||
ADOQueryBaseCmd.Connection.BeginTrans;
|
||
try
|
||
MBCIOID := trim(cds_3.fieldbyName('BCIOID').AsString);
|
||
|
||
with ADOQueryBaseCmd do
|
||
begin
|
||
Close;
|
||
SQL.Clear;
|
||
Sql.Add('exec P_BS_Cloth_Out_Del ');
|
||
Sql.Add(' @BCIOIDS=' + quotedstr(MBCIOID));
|
||
Sql.Add(',@DCode=' + quotedstr(Trim(DCode)));
|
||
Sql.Add(',@DName=' + quotedstr(Trim(DName)));
|
||
Open;
|
||
end;
|
||
if ADOQueryBaseCmd.fieldbyName('intReturn').AsInteger = -1 then
|
||
begin
|
||
raise Exception.create(pchar(trim(ADOQueryBaseCmd.fieldbyName('ShowMsg').AsString)));
|
||
end;
|
||
ADOQueryBaseCmd.Connection.CommitTrans;
|
||
|
||
cds_3.Delete;
|
||
Application.MessageBox('ɾ<><C9BE><EFBFBD>ɹ<EFBFBD><C9B9><EFBFBD>', '<27><>ʾ<EFBFBD><CABE>Ϣ');
|
||
InitGrid2();
|
||
InitJYGrid();
|
||
except
|
||
ADOQueryBaseCmd.Connection.RollbackTrans;
|
||
Application.MessageBox(pchar(Exception(ExceptObject).Message), '<27><>ʾ<EFBFBD><CABE>Ϣ', 0);
|
||
end;
|
||
|
||
end;
|
||
|
||
procedure TfrmMachRollMain.TV1CellClick(Sender: TcxCustomGridTableView; ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton; AShift: TShiftState; var AHandled: Boolean);
|
||
begin
|
||
|
||
fzt := '0';
|
||
|
||
C_NAME.Text := CDS_4.FieldByName('c_name').AsString;
|
||
|
||
ADO_PM.Locate('C_Name', C_NAME.Text, []);
|
||
|
||
C_Code.Text := ADO_PM.FieldByName('C_Code').Value;
|
||
DUnit.TEXT := ADO_PM.FieldByName('TMSUnit').Value;
|
||
with ADO_YS do
|
||
begin
|
||
Close;
|
||
sql.Clear;
|
||
sql.Add(' SELECT DISTINCT A.C_Code,B.C_Color,B.C_ColorNo,B.referencePrice AS Price,DBO.GETNUM(B.C_ColorNo) FROM Bs_Cloth_Info A inner join BS_Cloth_Info_Sub B on A.BCIID=B.BCIID ');
|
||
sql.Add(' where A.C_Code= ' + QuotedStr(C_CODE.TEXT));
|
||
SQL.ADD(' order by DBO.GETNUM(B.C_ColorNo)');
|
||
// ShowMessage(sql.text);
|
||
Open;
|
||
|
||
end;
|
||
C_CoLOR.Text := '';
|
||
C_CoLORNO.Text := '';
|
||
Panel3.Visible := false;
|
||
fzt := '1';
|
||
end;
|
||
|
||
procedure TfrmMachRollMain.Tv3CustomDrawCell(Sender: TcxCustomGridTableView; ACanvas: TcxCanvas; AViewInfo: TcxGridTableDataCellViewInfo; var ADone: Boolean);
|
||
begin
|
||
if AViewInfo.GridRecord.Values[TcxGridDBTableView(Sender).GetColumnByFieldName('Grade').Index] = '<27><>Ʒ' then
|
||
ACanvas.Brush.Color := clRed;
|
||
end;
|
||
|
||
procedure TfrmMachRollMain.TV5CellClick(Sender: TcxCustomGridTableView; ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton; AShift: TShiftState; var AHandled: Boolean);
|
||
begin
|
||
FZT2 := '0';
|
||
|
||
C_COLOR.Text := CDS_5.FieldByName('C_COLOR').AsString;
|
||
C_COLORNO.Text := CDS_5.FieldByName('C_COLORNO').AsString;
|
||
|
||
Panel5.Visible := false;
|
||
FZT2 := '1';
|
||
end;
|
||
|
||
procedure TfrmMachRollMain.ToolButton8Click(Sender: TObject);
|
||
begin
|
||
inherited;
|
||
Close;
|
||
end;
|
||
|
||
procedure TfrmMachRollMain.setFocusCtrol(controlName: string);
|
||
var
|
||
i: Integer;
|
||
begin
|
||
with FrameKeyBoard1.dxPanel1 do
|
||
begin
|
||
for i := 0 to ControlCount - 1 do
|
||
begin
|
||
if Controls[i] is TSpeedButton then
|
||
begin
|
||
TSpeedButton(Controls[i]).Hint := trim(controlName);
|
||
if (trim(controlName) = 'edtScan') and (TSpeedButton(Controls[i]).Name = 'SpeedButton_dot') then
|
||
begin
|
||
TSpeedButton(Controls[i]).Caption := '<27>س<EFBFBD>';
|
||
end
|
||
else if (TSpeedButton(Controls[i]).Name = 'SpeedButton_dot') then
|
||
begin
|
||
TSpeedButton(Controls[i]).Caption := '.';
|
||
end;
|
||
end;
|
||
end;
|
||
end;
|
||
cxGroupBox_keys.Left := Panel_right.Left + 5;
|
||
cxGroupBox_keys.Visible := true;
|
||
end;
|
||
|
||
procedure TfrmMachRollMain.SetDdetails();
|
||
begin
|
||
AOrdDefNote1.Text := '';
|
||
|
||
AOrdDefNote1.Text := AOrdDefNote1.Text + '<27><><EFBFBD><EFBFBD>:' + FBCIOID + #13;
|
||
|
||
if FRulePieceNo <> '' then
|
||
AOrdDefNote1.Text := AOrdDefNote1.Text + '<27><><EFBFBD>Ź<EFBFBD><C5B9><EFBFBD>:' + FRulePieceNo + #13;
|
||
|
||
if gMachOperators <> '' then
|
||
AOrdDefNote1.Text := AOrdDefNote1.Text + '<27><>̨<EFBFBD><CCA8>Ա:' + gMachOperators + #13;
|
||
|
||
end;
|
||
|
||
procedure TfrmMachRollMain.SetINIFile();
|
||
begin
|
||
IsDZCDYDll := trim(cds_params.fieldbyName('chen').AsString);
|
||
IsMBDYDll := trim(cds_params.fieldbyName('mabiao').AsString);
|
||
IsMBDYDllUnit := trim(cds_params.fieldbyName('mbunit').AsString);
|
||
|
||
LabQty := trim(cds_params.fieldbyName('labNumber').AsString);
|
||
FMinLen := trim(cds_params.fieldbyName('minLen').AsString);
|
||
FMaxLen := trim(cds_params.fieldbyName('maxLen').AsString);
|
||
FMinWeight := trim(cds_params.fieldbyName('minweight').AsString);
|
||
FMaxWeight := trim(cds_params.fieldbyName('maxweight').AsString);
|
||
|
||
FMPlace := trim(cds_params.fieldbyName('mplace').AsString);
|
||
FYPlace := trim(cds_params.fieldbyName('yplace').AsString);
|
||
FKgPlace := trim(cds_params.fieldbyName('kgplace').AsString);
|
||
|
||
WriteINIFile();
|
||
|
||
end;
|
||
|
||
procedure TfrmMachRollMain.setFormCtrol();
|
||
begin
|
||
|
||
FrameKeyBoard1.SpeedButton_zdykey1.Caption := gZdyKey1;
|
||
// FrameKeyBoard1.SpeedButton_zdykey2.Caption := gZdyKey2;
|
||
FrameKeyBoard1.SpeedButton_zdykey2.Caption := gZdyKey2;
|
||
|
||
//<2F><><EFBFBD><EFBFBD>
|
||
presentlen.text := trim(cds_params.fieldbyName('AddLenPresent').AsString);
|
||
presentWeight.text := trim(cds_params.fieldbyName('AddwetPresent').AsString);
|
||
end;
|
||
|
||
procedure TfrmMachRollMain.GetINIFile();
|
||
begin
|
||
with cds_params do
|
||
begin
|
||
if IsEmpty then
|
||
Append
|
||
else
|
||
edit;
|
||
fieldbyName('chen').value := IsDZCDYDll;
|
||
fieldbyName('mabiao').value := IsMBDYDll;
|
||
fieldbyName('mbunit').value := IsMBDYDllUnit;
|
||
|
||
fieldbyName('MinLen').value := strtointdef(FMinLen, 0);
|
||
fieldbyName('MaxLen').value := strtointdef(FMaxLen, 100);
|
||
fieldbyName('MinWeight').value := strtointdef(FMinWeight, 0);
|
||
fieldbyName('MaxWeight').value := strtointdef(FMaxWeight, 50);
|
||
|
||
fieldbyName('MPlace').value := strtointdef(FMPlace, 1);
|
||
fieldbyName('YPlace').value := strtointdef(FYPlace, 1);
|
||
fieldbyName('KgPlace').value := strtointdef(FKgPlace, 1);
|
||
|
||
fieldbyName('labNumber').value := strtointdef(trim(LabQty), 1);
|
||
Post;
|
||
end;
|
||
|
||
end;
|
||
|
||
procedure TfrmMachRollMain.GroupBox1Click(Sender: TObject);
|
||
begin
|
||
PANEL3.Visible := FALSE;
|
||
PANEL5.Visible := FALSE;
|
||
end;
|
||
|
||
procedure TfrmMachRollMain.InitJYGrid();
|
||
var
|
||
MNetWeight, MJYLen: double;
|
||
begin
|
||
try
|
||
cds_3.DisableControls;
|
||
if FCKLX = '<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>' then
|
||
begin
|
||
with ADOQueryMain do
|
||
begin
|
||
Close;
|
||
SQL.Clear;
|
||
SQL.Add('select A.*,tmmno=(select tmmno from Trade_Market_Main e where e.tmmid=a.tmmid)');
|
||
SQL.Add('from Bs_Cloth_IO A where IOType=''<27><><EFBFBD>۳<EFBFBD><DBB3><EFBFBD>'' and TMSId=''' + trim(FTMSId) + '''');
|
||
SQL.Add('order by filltime desc');
|
||
Open;
|
||
end;
|
||
end
|
||
else
|
||
begin
|
||
with ADOQueryMain do
|
||
begin
|
||
Close;
|
||
SQL.Clear;
|
||
SQL.Add('select A.*,tmmno=(select tmmno from Trade_Market_Main e where e.tmmid=a.tmmid)');
|
||
SQL.Add('from Bs_Cloth_IO A where IOflag=''<27><><EFBFBD><EFBFBD>'' and STKID=''' + trim(FBCIOID) + '''');
|
||
SQL.Add('order by filltime desc');
|
||
Open;
|
||
end;
|
||
Qty.Text := trim(ADOQueryMain.fieldbyName('StkQty').AsString) + trim(trim(ADOQueryMain.fieldbyName('QtyUnit').AsString));
|
||
|
||
// InitPlan(FBCIOID);
|
||
with ADOQueryMain do
|
||
begin
|
||
Close;
|
||
SQL.Clear;
|
||
SQL.Add('select A.*,tmmno=(select tmmno from Trade_Market_Main e where e.tmmid=a.tmmid)');
|
||
SQL.Add('from Bs_Cloth_IO A where IOType=''<27><><EFBFBD>۳<EFBFBD><DBB3><EFBFBD>'' and STKID=''' + trim(FBCIOID) + '''');
|
||
SQL.Add('order by filltime desc');
|
||
Open;
|
||
end;
|
||
end;
|
||
|
||
SCreateCDS(ADOQueryMain, cds_3);
|
||
SInitCDSData(ADOQueryMain, cds_3);
|
||
|
||
finally
|
||
cds_3.EnableControls;
|
||
end;
|
||
|
||
end;
|
||
|
||
procedure TfrmMachRollMain.OpenCom(DllName: string);
|
||
type
|
||
TMyFunc = function(fhandle: hwnd; sCommName: PAnsiChar; IntTime: Integer; IsMessage: Integer): hwnd; stdcall;
|
||
var
|
||
Tf: TMyFunc;
|
||
Tp: TFarProc;
|
||
Th: Thandle;
|
||
begin
|
||
Th := LoadLibrary(pchar(trim(DllName)));
|
||
if Th > 0 then
|
||
begin
|
||
try
|
||
Tp := GetProcAddress(Th, 'CommOpen');
|
||
if Tp <> nil then
|
||
begin
|
||
Tf := TMyFunc(Tp);
|
||
newh := Tf(Self.Handle, 'Comm1', 500, 1);
|
||
if newh < 1 then
|
||
begin
|
||
Application.MessageBox(pchar('<27><EFBFBD><F2BFAAB4><EFBFBD>ʧ<EFBFBD>ܣ<EFBFBD>'), '<27><>ʾ');
|
||
end
|
||
else
|
||
fIsCommopen := true;
|
||
end
|
||
else
|
||
begin
|
||
fIsCommopen := false;
|
||
end;
|
||
finally
|
||
// FreeLibrary(Th);
|
||
end;
|
||
end
|
||
else
|
||
begin
|
||
fIsCommopen := false;
|
||
Application.MessageBox(pchar('<27>Ҳ<EFBFBD><D2B2><EFBFBD> ' + trim(DllName) + ' <20>ļ<EFBFBD><C4BC><EFBFBD>'), '<27><>ʾ');
|
||
end;
|
||
end;
|
||
|
||
procedure TfrmMachRollMain.CloseCom(DllName: string);
|
||
type
|
||
TMyFunc = function(sCommName: PAnsiChar): hwnd; stdcall;
|
||
var
|
||
Tf1: TMyFunc;
|
||
Tp1: TFarProc;
|
||
Th1: Thandle;
|
||
begin
|
||
Th1 := LoadLibrary(pchar(trim(DllName)));
|
||
if Th1 > 0 then
|
||
begin
|
||
try
|
||
Tp1 := GetProcAddress(Th1, 'CommClose');
|
||
if Tp1 <> nil then
|
||
begin
|
||
Tf1 := TMyFunc(Tp1);
|
||
newh1 := Tf1('Comm1');
|
||
end
|
||
else
|
||
begin
|
||
|
||
end;
|
||
finally
|
||
// FreeLibrary(Th1);
|
||
end;
|
||
end
|
||
else
|
||
begin
|
||
Application.MessageBox(pchar('<27>Ҳ<EFBFBD><D2B2><EFBFBD> ' + trim(DllName) + ' <20>ļ<EFBFBD><C4BC><EFBFBD>'), '<27><>ʾ');
|
||
end;
|
||
end;
|
||
|
||
procedure TfrmMachRollMain.ColorNoClick(Sender: TObject);
|
||
var
|
||
i: Integer;
|
||
begin
|
||
with FrameKeyBoard1.dxPanel1 do
|
||
begin
|
||
for i := 0 to ControlCount - 1 do
|
||
begin
|
||
if Controls[i] is TSpeedButton then
|
||
begin
|
||
TSpeedButton(Controls[i]).Hint := trim('ColorNo');
|
||
|
||
end;
|
||
end;
|
||
end;
|
||
cxGroupBox_keys.Left := Panel_right.Left + 5;
|
||
cxGroupBox_keys.Visible := true;
|
||
end;
|
||
|
||
procedure TfrmMachRollMain.cxTextEdit1Click(Sender: TObject);
|
||
begin
|
||
if Trim(cxTextEdit1.Text) = '' then
|
||
begin
|
||
cxTextEdit1.Text := '<27><>';
|
||
|
||
end
|
||
else
|
||
begin
|
||
cxTextEdit1.Text := '';
|
||
|
||
end;
|
||
end;
|
||
|
||
procedure TfrmMachRollMain.C_COLORNOClick(Sender: TObject);
|
||
begin
|
||
if C_NAME.Text <> '' then
|
||
begin
|
||
FZT2 := '1';
|
||
Panel5.Visible := true;
|
||
Panel3.Visible := false;
|
||
InitGridys();
|
||
setFocusCtrol(TWinControl(Sender).Name);
|
||
end;
|
||
|
||
end;
|
||
|
||
procedure TfrmMachRollMain.c_colornoEnter(Sender: TObject);
|
||
var
|
||
i: Integer;
|
||
begin
|
||
with FrameKeyBoard1.dxPanel1 do
|
||
begin
|
||
for i := 0 to ControlCount - 1 do
|
||
begin
|
||
if Controls[i] is TSpeedButton then
|
||
begin
|
||
TSpeedButton(Controls[i]).Hint := trim('C_COLORNO');
|
||
|
||
end;
|
||
end;
|
||
end;
|
||
cxGroupBox_keys.Left := Panel_right.Left + 5;
|
||
cxGroupBox_keys.Visible := true;
|
||
end;
|
||
|
||
procedure TfrmMachRollMain.c_colornoExit(Sender: TObject);
|
||
var
|
||
i: Integer;
|
||
begin
|
||
with FrameKeyBoard1.dxPanel1 do
|
||
begin
|
||
for i := 0 to ControlCount - 1 do
|
||
begin
|
||
if Controls[i] is TSpeedButton then
|
||
begin
|
||
TSpeedButton(Controls[i]).Hint := trim('C_NAME');
|
||
|
||
end;
|
||
end;
|
||
end;
|
||
cxGroupBox_keys.Left := Panel_right.Left + 5;
|
||
cxGroupBox_keys.Visible := true;
|
||
end;
|
||
|
||
procedure TfrmMachRollMain.c_colornoPropertiesChange(Sender: TObject);
|
||
begin
|
||
// ADO_YS.Locate('C_ColorNo', C_ColorNo.Text, []);
|
||
//
|
||
// C_Color.Text := ADO_YS.FieldByName('C_Color').ASSTRING;
|
||
//
|
||
if FZT2 = '1' then
|
||
begin
|
||
Panel5.Visible := true;
|
||
InitGridYS();
|
||
end;
|
||
|
||
end;
|
||
|
||
procedure TfrmMachRollMain.C_NAME2Click(Sender: TObject);
|
||
var
|
||
i: Integer;
|
||
begin
|
||
with FrameKeyBoard1.dxPanel1 do
|
||
begin
|
||
for i := 0 to ControlCount - 1 do
|
||
begin
|
||
if Controls[i] is TSpeedButton then
|
||
begin
|
||
TSpeedButton(Controls[i]).Hint := trim('C_NAME');
|
||
|
||
end;
|
||
end;
|
||
end;
|
||
cxGroupBox_keys.Left := Panel_right.Left + 5;
|
||
cxGroupBox_keys.Visible := true;
|
||
end;
|
||
|
||
procedure TfrmMachRollMain.C_NAME2Enter(Sender: TObject);
|
||
var
|
||
i: Integer;
|
||
begin
|
||
with FrameKeyBoard1.dxPanel1 do
|
||
begin
|
||
for i := 0 to ControlCount - 1 do
|
||
begin
|
||
if Controls[i] is TSpeedButton then
|
||
begin
|
||
TSpeedButton(Controls[i]).Hint := trim('C_NAME');
|
||
|
||
end;
|
||
end;
|
||
end;
|
||
cxGroupBox_keys.Left := Panel_right.Left + 5;
|
||
cxGroupBox_keys.Visible := true;
|
||
end;
|
||
|
||
procedure TfrmMachRollMain.C_NAMEClick(Sender: TObject);
|
||
begin
|
||
fzt := '1';
|
||
Panel3.Visible := true;
|
||
PANEL5.Visible := FALSE;
|
||
InitGridCP();
|
||
setFocusCtrol(TWinControl(Sender).Name);
|
||
end;
|
||
|
||
procedure TfrmMachRollMain.C_NAMEExit(Sender: TObject);
|
||
begin
|
||
panel3.Visible := False;
|
||
end;
|
||
|
||
procedure TfrmMachRollMain.C_NAMEPropertiesChange(Sender: TObject);
|
||
var
|
||
I: Integer;
|
||
S: string;
|
||
begin
|
||
|
||
if fzt = '1' then
|
||
begin
|
||
C_CoLOR.Text := '';
|
||
C_CoLORNO.Text := '';
|
||
Panel3.Visible := true;
|
||
PANEL5.Visible := FALSE;
|
||
InitGridCP();
|
||
end;
|
||
|
||
end;
|
||
|
||
procedure TfrmMachRollMain.dxLayoutControl_packDblClick(Sender: TObject);
|
||
begin
|
||
if gIsCanDesign then
|
||
layoutDesign(TdxLayoutControl(Sender), ADOQueryBaseCmd, PWideChar(dcode));
|
||
end;
|
||
|
||
procedure TfrmMachRollMain.dxLayoutItem1CaptionClick(Sender: TObject);
|
||
var
|
||
mkey: Char;
|
||
begin
|
||
inherited;
|
||
// frmProductListHelp := TfrmProductListHelp.create(Self);
|
||
// with frmProductListHelp do
|
||
// begin
|
||
// fType := '10';
|
||
// if ShowModal = 1 then
|
||
// begin
|
||
// edtScan.Text := trim(order_main.fieldbyName('Subid').AsString);
|
||
// mkey := #13;
|
||
// edtScanKeyPress(edtScan, mkey);
|
||
// end;
|
||
// free;
|
||
// end;
|
||
|
||
frmTradeClothTotalOutSel := TfrmTradeClothTotalOutSel.create(Self);
|
||
with frmTradeClothTotalOutSel do
|
||
begin
|
||
|
||
if ShowModal = 1 then
|
||
begin
|
||
edtScan.Text := trim(CDS_Main.fieldbyName('BCIOID').AsString);
|
||
end;
|
||
free;
|
||
end;
|
||
|
||
mkey := #13;
|
||
edtScanKeyPress(edtScan, mkey);
|
||
end;
|
||
|
||
procedure TfrmMachRollMain.edtScanDblClick(Sender: TObject);
|
||
begin
|
||
inherited;
|
||
edtScan.Text := '';
|
||
end;
|
||
|
||
procedure TfrmMachRollMain.edtScanEnter(Sender: TObject);
|
||
begin
|
||
inherited;
|
||
|
||
setFocusCtrol(TWinControl(Sender).Name);
|
||
end;
|
||
|
||
procedure TfrmMachRollMain.edtScanKeyPress(Sender: TObject; var Key: Char);
|
||
var
|
||
strKeyID: string;
|
||
begin
|
||
inherited;
|
||
|
||
if Key = #13 then
|
||
begin
|
||
if panel4.Visible = true then
|
||
begin
|
||
if trim(edtScan.Text) = FBCIOID then
|
||
begin
|
||
Application.MessageBox('ԭ<><D4AD><EFBFBD>벻<EFBFBD><EBB2BB><EFBFBD>ٴ<EFBFBD>ɨ<EFBFBD>裡', '<27><>ʾ<EFBFBD><CABE>Ϣ', MB_ICONERROR);
|
||
edtScan.Text := '';
|
||
exit;
|
||
end;
|
||
if cds_hp.Locate('BCIOID', edtScan.Text, []) then
|
||
begin
|
||
Application.MessageBox('<27>ظ<EFBFBD>ɨ<EFBFBD>裡', '<27><>ʾ<EFBFBD><CABE>Ϣ', MB_ICONERROR);
|
||
edtScan.Text := '';
|
||
exit;
|
||
// <20><><EFBFBD>ҵ<EFBFBD><D2B5><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
|
||
end;
|
||
|
||
with ADOQueryBaseTemp do
|
||
begin
|
||
Close;
|
||
SQL.Clear;
|
||
SQL.Add('EXEC P_Trade_Insp_Get_plan @BCIOID=''' + trim(edtScan.Text) + '''');
|
||
Open;
|
||
end;
|
||
if ADOQueryBaseTemp.IsEmpty = false then
|
||
begin
|
||
if ADOQueryBaseTemp.fieldbyname('C_NAME').AsString <> CodeName.Text then
|
||
begin
|
||
Application.MessageBox('Ʒ<><C6B7><EFBFBD><EFBFBD>һ<EFBFBD>£<EFBFBD>', '<27><>ʾ<EFBFBD><CABE>Ϣ', MB_ICONERROR);
|
||
edtScan.Text := '';
|
||
exit;
|
||
end;
|
||
if ADOQueryBaseTemp.fieldbyname('C_COLOR').AsString <> FC_Color then
|
||
begin
|
||
Application.MessageBox('<27><>ɫ<EFBFBD><C9AB>һ<EFBFBD>£<EFBFBD>', '<27><>ʾ<EFBFBD><CABE>Ϣ', MB_ICONERROR);
|
||
edtScan.Text := '';
|
||
exit;
|
||
end;
|
||
if ADOQueryBaseTemp.fieldbyname('C_COLORno').AsString <> FC_Colorno then
|
||
begin
|
||
Application.MessageBox('ɫ<>Ų<EFBFBD>һ<EFBFBD>£<EFBFBD>', '<27><>ʾ<EFBFBD><CABE>Ϣ', MB_ICONERROR);
|
||
edtScan.Text := '';
|
||
exit;
|
||
end;
|
||
with CDS_HP do
|
||
begin
|
||
Append;
|
||
|
||
CDS_HP.FieldByName('BCIOID').AsString := ADOQueryBaseTemp.FieldByName('BCIOID').AsString;
|
||
|
||
CDS_HP.FieldByName('stkqty').VALUE := ADOQueryBaseTemp.FieldByName('stkqty').ASFLOAT;
|
||
|
||
CDS_HP.FieldByName('qtyunit').VALUE := ADOQueryBaseTemp.FieldByName('qtyunit').AsString;
|
||
|
||
Post;
|
||
end;
|
||
end;
|
||
edtScan.Text := '';
|
||
edtScan.SetFocus();
|
||
end
|
||
else
|
||
begin
|
||
if trim(edtScan.Text) = '' then
|
||
exit;
|
||
if trim(edtScan.Text) = FBCIOID then
|
||
exit;
|
||
|
||
if checkbox1.Checked then
|
||
begin
|
||
if not cds_2.Locate('ssel', True, []) then
|
||
begin
|
||
Application.MessageBox('<27><><EFBFBD><EFBFBD>ѡ<EFBFBD><D1A1><EFBFBD><EFBFBD><EFBFBD>ݣ<EFBFBD>', '<27><>ʾ<EFBFBD><CABE>Ϣ', MB_OK);
|
||
Exit;
|
||
end;
|
||
|
||
strKeyID := cds_2.FieldByName('TMMID').AsString;
|
||
|
||
end;
|
||
ClearGlobal();
|
||
|
||
InitPlan(edtScan.Text);
|
||
InitGrid2();
|
||
if trim(OrderNo.Text) <> '' then
|
||
InputLen.SetFocus;
|
||
cxGroupBox_keys.Visible := false;
|
||
if checkbox1.Checked then
|
||
begin
|
||
|
||
Button1.Click();
|
||
|
||
if Trim(strKeyID) <> '' then
|
||
begin
|
||
cds_2.DisableControls;
|
||
try
|
||
cds_2.Locate('TMMID', strKeyID, []);
|
||
cds_2.Edit;
|
||
cds_2.FieldByName('ssel').AsBoolean := True;
|
||
cds_2.Post;
|
||
finally
|
||
cds_2.EnableControls;
|
||
end;
|
||
end;
|
||
end;
|
||
end;
|
||
|
||
end;
|
||
end;
|
||
|
||
function TfrmMachRollMain.SaveData(): Boolean;
|
||
var
|
||
MInputLen, MMeter, MYardage: double;
|
||
MInputWeight, MGrossWeight, MNetWeight, MTare, Maddwet, maddLen: double;
|
||
mYardStick: double;
|
||
mPresentLen, mpresentWeight: double;
|
||
MTMSId: string;
|
||
begin
|
||
Result := false;
|
||
MTMSId := Trim(SelTVKey(Tv2, ['TMSId'])[0]);
|
||
Maddwet := strTofloatDef(trim(addwet.text), 0); // Faddwet;
|
||
maddLen := strTofloatDef(trim(addlen.text), 0); // faddlen;
|
||
mYardStick := strtofloatdef(trim(RuleYardstick.Text), 100);
|
||
mPresentLen := strTofloatDef(trim(presentlen.text), 0);
|
||
mpresentWeight := strTofloatDef(trim(presentWeight.text), 0);
|
||
if (strtoIntdef(Trim(unitPieces.Text), 0) > 0) and (strtoIntdef(trim(InputLen.Text), 0) > 0) then
|
||
begin
|
||
if strtoIntdef(trim(InputLen.Text), 0) > strtoIntdef(Trim(unitPieces.Text), 0) then
|
||
funitPiecesStr := intTostr((strtoIntdef(trim(InputLen.Text), 0)) - strtoIntdef(Trim(unitPieces.Text), 0)) + '+' + Trim(unitPieces.Text);
|
||
end;
|
||
//0:<3A><><EFBFBD>䣻1<E4A3BB><31><EFBFBD><EFBFBD>ȥ<EFBFBD><C8A5><EFBFBD><EFBFBD>
|
||
if gPresentNumFlag = 1 then
|
||
begin
|
||
mPresentLen := -1 * mPresentLen;
|
||
mpresentWeight := -1 * mpresentWeight;
|
||
end;
|
||
|
||
try
|
||
ADOQueryBaseCmd.Connection.BeginTrans;
|
||
MTare := strtofloatdef(trim(Tare.Text), 0); // Ƥ<><C6A4>
|
||
MInputWeight := RoundFloat(strtofloatdef(trim(InputWeight.Text), 0), cds_params.fieldbyName('KgPlace').AsInteger); // <20><><EFBFBD><EFBFBD>
|
||
MGrossWeight := MInputWeight + Maddwet + mpresentWeight; // ë<><C3AB>
|
||
MNetWeight := MInputWeight + Maddwet + mpresentWeight - MTare; // <20><><EFBFBD><EFBFBD> +<2B><><EFBFBD><EFBFBD>
|
||
|
||
MInputLen := RoundFloat(strtofloatdef(trim(InputLen.Text), 0), 4);
|
||
// <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>+mAddLen
|
||
if (uppercase(lblLenUnit.Caption) = 'M') or (lblLenUnit.Caption = '<27><>') then
|
||
begin
|
||
MMeter := RoundFloat((MInputLen + maddLen + mPresentLen) / (mYardStick / 100), cds_params.fieldbyName('MPlace').AsInteger);
|
||
MYardage := RoundFloat(MMeter / 0.9144, cds_params.fieldbyName('YPlace').AsInteger);
|
||
end
|
||
else
|
||
begin
|
||
MYardage := RoundFloat((MInputLen + maddLen + mPresentLen) / (mYardStick / 100), cds_params.fieldbyName('YPlace').AsInteger);
|
||
MMeter := RoundFloat(MYardage * 0.9144, cds_params.fieldbyName('MPlace').AsInteger);
|
||
end;
|
||
if FCKLX = '<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>' then
|
||
begin
|
||
with ADOQueryBaseCmd do
|
||
begin
|
||
Close;
|
||
sql.Clear;
|
||
Sql.Add('exec P_BS_Cloth_Out_Distribution_KC ');
|
||
Sql.Add(' @GrossWeight=' + quotedstr(Trim(FloatToStr(MGrossWeight))));
|
||
Sql.Add(' ,@Tare=' + quotedstr(Trim(FloatToStr(MTare))));
|
||
Sql.Add(' ,@NetWeight=' + quotedstr(Trim(FloatToStr(MNetWeight))));
|
||
Sql.Add(' ,@Meter=' + quotedstr(Trim(FloatToStr(MMeter))));
|
||
Sql.Add(' ,@Yardage=' + quotedstr(Trim(FloatToStr(MYardage))));
|
||
Sql.Add(' ,@QtyUnit=' + quotedstr(Trim(lblLenUnit.caption)));
|
||
Sql.Add(' ,@StkID=' + quotedstr(Trim(FBCIOID)));
|
||
Sql.Add(' ,@TMSId =' + quotedstr(FTMSId));
|
||
Sql.Add(' ,@TMMId =' + quotedstr(FTMSId));
|
||
Sql.Add(' ,@Dcode=' + quotedstr(Trim(Dcode)));
|
||
Sql.Add(' ,@DName=' + quotedstr(Trim(DName)));
|
||
// ShowMessage(sql.Text);
|
||
open;
|
||
end;
|
||
end
|
||
else
|
||
begin
|
||
with ADOQueryBaseCmd do
|
||
begin
|
||
Close;
|
||
sql.Clear;
|
||
Sql.Add('exec P_BS_Cloth_Out_Distribution ');
|
||
Sql.Add(' @GrossWeight=' + quotedstr(Trim(FloatToStr(MGrossWeight))));
|
||
Sql.Add(' ,@Tare=' + quotedstr(Trim(FloatToStr(MTare))));
|
||
Sql.Add(' ,@NetWeight=' + quotedstr(Trim(FloatToStr(MNetWeight))));
|
||
Sql.Add(' ,@Meter=' + quotedstr(Trim(FloatToStr(MMeter))));
|
||
Sql.Add(' ,@Yardage=' + quotedstr(Trim(FloatToStr(MYardage))));
|
||
Sql.Add(' ,@StkID=' + quotedstr(Trim(FBCIOID)));
|
||
Sql.Add(' ,@TMSId =' + quotedstr(MTMSId));
|
||
Sql.Add(' ,@Dcode=' + quotedstr(Trim(Dcode)));
|
||
Sql.Add(' ,@DName=' + quotedstr(Trim(DName)));
|
||
ShowMessage(sql.Text);
|
||
open;
|
||
end;
|
||
end;
|
||
|
||
if ADOQueryBaseCmd.fieldbyName('intReturn').AsInteger = -1 then
|
||
begin
|
||
raise Exception.create(pchar(trim(ADOQueryBaseCmd.fieldbyName('ShowMsg').AsString)));
|
||
end;
|
||
|
||
FCIID := trim(trim(ADOQueryBaseCmd.fieldbyName('MaxIOID2').AsString));
|
||
|
||
ADOQueryBaseCmd.Connection.CommitTrans;
|
||
TradeMarketProgressUpdate(ADOQueryBaseCmd, MTMSId);
|
||
Result := true;
|
||
except
|
||
ADOQueryBaseCmd.Connection.RollbackTrans;
|
||
Application.MessageBox(pchar(Exception(ExceptObject).Message), '<27><>ʾ<EFBFBD><CABE>Ϣ', 0);
|
||
|
||
end;
|
||
end;
|
||
|
||
procedure TfrmMachRollMain.SCAN2KeyPress(Sender: TObject; var Key: Char);
|
||
begin
|
||
if Key = #13 then
|
||
begin
|
||
with ADOQueryBaseTemp do
|
||
begin
|
||
Close;
|
||
SQL.Clear;
|
||
SQL.Add('EXEC P_Trade_Insp_Get_plan @BCIOID=''' + trim(SCAN2.Text) + '''');
|
||
Open;
|
||
end;
|
||
if ADOQueryBaseTemp.IsEmpty = false then
|
||
begin
|
||
if ADOQueryBaseTemp.fieldbyname('C_NAME').AsString <> CodeName.Text then
|
||
begin
|
||
Application.MessageBox('Ʒ<><C6B7><EFBFBD><EFBFBD>һ<EFBFBD>£<EFBFBD>', '<27><>ʾ<EFBFBD><CABE>Ϣ', MB_ICONERROR);
|
||
SCAN2.Text := '';
|
||
exit;
|
||
end;
|
||
if ADOQueryBaseTemp.fieldbyname('C_COLOR').AsString <> FC_Color then
|
||
begin
|
||
Application.MessageBox('<27><>ɫ<EFBFBD><C9AB>һ<EFBFBD>£<EFBFBD>', '<27><>ʾ<EFBFBD><CABE>Ϣ', MB_ICONERROR);
|
||
SCAN2.Text := '';
|
||
exit;
|
||
end;
|
||
if ADOQueryBaseTemp.fieldbyname('C_COLORno').AsString <> FC_Colorno then
|
||
begin
|
||
Application.MessageBox('ɫ<>Ų<EFBFBD>һ<EFBFBD>£<EFBFBD>', '<27><>ʾ<EFBFBD><CABE>Ϣ', MB_ICONERROR);
|
||
SCAN2.Text := '';
|
||
exit;
|
||
end;
|
||
with CDS_HP do
|
||
begin
|
||
Append;
|
||
|
||
CDS_HP.FieldByName('BCIOID').AsString := ADOQueryBaseTemp.FieldByName('BCIOID').AsString;
|
||
|
||
CDS_HP.FieldByName('stkqty').VALUE := ADOQueryBaseTemp.FieldByName('stkqty').ASFLOAT;
|
||
|
||
CDS_HP.FieldByName('qtyunit').VALUE := ADOQueryBaseTemp.FieldByName('qtyunit').AsString;
|
||
|
||
Post;
|
||
end;
|
||
end;
|
||
SCAN2.Text := '';
|
||
end;
|
||
end;
|
||
|
||
procedure TfrmMachRollMain.Panel1Click(Sender: TObject);
|
||
begin
|
||
Panel3.Visible := false;
|
||
Panel5.Visible := false;
|
||
end;
|
||
|
||
procedure TfrmMachRollMain.PrtData(MCIID: string; againPring: Boolean = false);
|
||
var
|
||
fPrintFile: string;
|
||
Txt, fImagePath, Txt2, fImagePath2: string;
|
||
Moudle: Thandle;
|
||
Makebar: TMakebar;
|
||
Mixtext: TMixtext;
|
||
begin
|
||
with ADOQueryPrint do
|
||
begin
|
||
Close;
|
||
SQL.Clear;
|
||
SQL.Add(' EXEC P_BS_Cloth_Prt2 ');
|
||
SQL.Add(' @Filtration=''' + trim(MCIID) + '''');
|
||
Open;
|
||
end;
|
||
if ADOQueryPrint.IsEmpty then
|
||
begin
|
||
Application.MessageBox('<27><>ǩ<EFBFBD><C7A9><EFBFBD><EFBFBD>δ<EFBFBD>ҵ<EFBFBD><D2B5><EFBFBD>', '<27><>ʾ<EFBFBD><CABE>Ϣ', MB_ICONERROR);
|
||
exit;
|
||
end;
|
||
|
||
// if trim(ADOQueryPrint.fieldbyName('SLabVolume').AsString) <> '' then
|
||
// fLabVolume := trim(ADOQueryPrint.fieldbyName('SLabVolume').AsString)
|
||
// else
|
||
// fLabVolume := trim(ADOQueryPrint.fieldbyName('LabVolume').AsString);
|
||
// if fLabVolume = '' then
|
||
// begin
|
||
// Application.MessageBox('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>δ<EFBFBD><CEB4><EFBFBD>ñ<EFBFBD>ǩ<EFBFBD><C7A9>', '<27><>ʾ<EFBFBD><CABE>Ϣ', MB_ICONERROR);
|
||
// exit;
|
||
// end;
|
||
//
|
||
// ExportFtErpFile(fLabVolume + '.fr3', ADOQueryBaseTemp);
|
||
// fPrintFile := ExtractFilePath(Application.ExeName) + 'Report\' + fLabVolume + '.fr3';
|
||
ExportFtErpFile('<27>ͻ<EFBFBD><CDBB><EFBFBD>ǩ.fr3', ADOQueryBaseTemp);
|
||
fPrintFile := ExtractFilePath(Application.ExeName) + 'Report\<5C>ͻ<EFBFBD><CDBB><EFBFBD>ǩ.fr3';
|
||
if FileExists(fPrintFile) then
|
||
begin
|
||
|
||
frxReport1.LoadFromFile(fPrintFile);
|
||
frxReport1.PrintOptions.Copies := cds_params.fieldbyName('labNumber').AsInteger;
|
||
frxReport1.PrintOptions.ShowDialog := false;
|
||
frxReport1.PrepareReport(True);
|
||
frxReport1.Print();
|
||
|
||
end
|
||
else
|
||
begin
|
||
Application.MessageBox(PChar('û<><C3BB><EFBFBD>ҵ<EFBFBD>' + fPrintFile), '<27><>ʾ', 0);
|
||
end;
|
||
end;
|
||
|
||
procedure TfrmMachRollMain.PrtData2(MCIID: string; againPring: Boolean = false);
|
||
var
|
||
fPrintFile: string;
|
||
Txt, fImagePath, Txt2, fImagePath2: string;
|
||
Moudle: Thandle;
|
||
Makebar: TMakebar;
|
||
Mixtext: TMixtext;
|
||
begin
|
||
with ADOQueryPrint do
|
||
begin
|
||
Close;
|
||
SQL.Clear;
|
||
SQL.Add(' EXEC P_BS_Cloth_Prt2 ');
|
||
SQL.Add(' @Filtration=''' + trim(MCIID) + '''');
|
||
Open;
|
||
end;
|
||
if ADOQueryPrint.IsEmpty then
|
||
begin
|
||
Application.MessageBox('<27><>ǩ<EFBFBD><C7A9><EFBFBD><EFBFBD>δ<EFBFBD>ҵ<EFBFBD><D2B5><EFBFBD>', '<27><>ʾ<EFBFBD><CABE>Ϣ', MB_ICONERROR);
|
||
exit;
|
||
end;
|
||
|
||
// if trim(ADOQueryPrint.fieldbyName('SLabVolume').AsString) <> '' then
|
||
// fLabVolume := trim(ADOQueryPrint.fieldbyName('SLabVolume').AsString)
|
||
// else
|
||
// fLabVolume := trim(ADOQueryPrint.fieldbyName('LabVolume').AsString);
|
||
// if fLabVolume = '' then
|
||
// begin
|
||
// Application.MessageBox('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>δ<EFBFBD><CEB4><EFBFBD>ñ<EFBFBD>ǩ<EFBFBD><C7A9>', '<27><>ʾ<EFBFBD><CABE>Ϣ', MB_ICONERROR);
|
||
// exit;
|
||
// end;
|
||
//
|
||
// ExportFtErpFile(fLabVolume + '.fr3', ADOQueryBaseTemp);
|
||
// fPrintFile := ExtractFilePath(Application.ExeName) + 'Report\' + fLabVolume + '.fr3';
|
||
ExportFtErpFile('<27>ͻ<EFBFBD><CDBB>˲ֱ<CBB2>ǩ.fr3', ADOQueryBaseTemp);
|
||
fPrintFile := ExtractFilePath(Application.ExeName) + 'Report\<5C>ͻ<EFBFBD><CDBB>˲ֱ<CBB2>ǩ.fr3';
|
||
if FileExists(fPrintFile) then
|
||
begin
|
||
|
||
frxReport1.LoadFromFile(fPrintFile);
|
||
frxReport1.PrintOptions.Copies := cds_params.fieldbyName('labNumber').AsInteger;
|
||
frxReport1.PrintOptions.ShowDialog := false;
|
||
frxReport1.PrepareReport(True);
|
||
frxReport1.Print();
|
||
|
||
end
|
||
else
|
||
begin
|
||
Application.MessageBox(PChar('û<><C3BB><EFBFBD>ҵ<EFBFBD>' + fPrintFile), '<27><>ʾ', 0);
|
||
end;
|
||
end;
|
||
|
||
procedure TfrmMachRollMain.BadSpeedButtonClick(Sender: TObject);
|
||
begin
|
||
|
||
end;
|
||
|
||
procedure TfrmMachRollMain.On1301(var Message: Tmessage);
|
||
var
|
||
i1, i2: Integer;
|
||
unitname: string;
|
||
fdata: double;
|
||
begin
|
||
i1 := Message.WParam;
|
||
i2 := Message.LParam;
|
||
|
||
if (trim(cds_params.fieldbyName('mabiao').AsString) = '1') then
|
||
begin
|
||
InputLen.Text := format('%.2f', [i1 / 100000]);
|
||
if trim(cds_params.fieldbyName('mbunit').AsString) = '1' then
|
||
begin
|
||
if i2 = 0 then
|
||
begin
|
||
SetUnit('M');
|
||
end
|
||
else
|
||
begin
|
||
SetUnit('Y');
|
||
end;
|
||
end;
|
||
end;
|
||
end;
|
||
|
||
procedure TfrmMachRollMain.On1201(var Message: Tmessage);
|
||
var
|
||
i1, i2: Integer;
|
||
unitname: string;
|
||
fdata: double;
|
||
begin
|
||
i1 := Message.WParam;
|
||
i2 := Message.LParam;
|
||
|
||
if trim(cds_params.fieldbyName('chen').AsString) = '1' then
|
||
begin
|
||
InputWeight.Text := format('%.2f', [i1 / 100000]);
|
||
end;
|
||
|
||
end;
|
||
|
||
|
||
/////////////////////////////////////
|
||
function TfrmMachRollMain.deletePack(packId: string): boolean;
|
||
var
|
||
ccids: string;
|
||
packNo: integer;
|
||
begin
|
||
try
|
||
ccids := '';
|
||
packNo := strtointdef(Trim(cds_3.FieldByName('packetNo').AsString), 0);
|
||
ADOQueryBaseCmd.Connection.BeginTrans;
|
||
cds_3.First;
|
||
while not cds_3.eof do
|
||
begin
|
||
if Trim(cds_3.FieldByName('packetid').AsString) = packId then
|
||
begin
|
||
ccids := ccids + ',' + Trim(cds_3.FieldByName('CIID').AsString);
|
||
end;
|
||
with ADOQueryBaseCmd do
|
||
begin
|
||
Close;
|
||
SQL.Clear;
|
||
SQL.Add('insert into Trade_Need_Up(UType,UOperation,UDataId,uoperator) values(''<27><><EFBFBD><EFBFBD>'',''<27><><EFBFBD><EFBFBD>ɾ<EFBFBD><C9BE>'',' + QuotedStr(Trim(cds_3.FieldByName('CIID').AsString)) + ',' + QuotedStr(DName) + ') ');
|
||
ExecSQL;
|
||
end;
|
||
cds_3.Next;
|
||
end;
|
||
|
||
with ADOQueryBaseCmd do
|
||
begin
|
||
Close;
|
||
SQL.Clear;
|
||
SQL.Add('exec P_Trade_Insp_Del ');
|
||
SQL.Add('@CIIDS=' + QuotedStr(ccids));
|
||
SQL.Add(',@DCode=' + QuotedStr(DCode));
|
||
SQL.Add(',@DName=' + QuotedStr(DName));
|
||
Open;
|
||
end;
|
||
if ADOQueryBaseCmd.fieldbyName('intReturn').AsInteger = -1 then
|
||
begin
|
||
raise Exception.create(pchar(trim(ADOQueryBaseCmd.fieldbyName('ShowMsg').AsString)));
|
||
end;
|
||
ADOQueryBaseCmd.Connection.CommitTrans;
|
||
|
||
InitJYGrid();
|
||
Application.MessageBox('ɾ<><C9BE><EFBFBD>ɹ<EFBFBD><C9B9><EFBFBD>', '<27><>ʾ<EFBFBD><CABE>Ϣ');
|
||
except
|
||
ADOQueryBaseCmd.Connection.RollbackTrans;
|
||
Application.MessageBox(pchar(Exception(ExceptObject).Message), '<27><>ʾ<EFBFBD><CABE>Ϣ', 0);
|
||
end;
|
||
end;
|
||
|
||
end.
|
||
|