~
This commit is contained in:
DESKTOP-E401PHE\Administrator
parent
8625d20e95
commit
9ff30f3ceb
|
|
@ -14,8 +14,8 @@
|
|||
重量下限=0
|
||||
重量上限=222
|
||||
米数小数位=0
|
||||
码数小数位=1
|
||||
重量小数位=1
|
||||
码数小数位=0
|
||||
重量小数位=0
|
||||
自定义字母键1=A
|
||||
自定义字母键2=-
|
||||
|
||||
|
|
|
|||
|
|
@ -454,7 +454,8 @@
|
|||
#26080#38656#36716#25442
|
||||
#38271#24230#36716#20844#26020
|
||||
#20928#37325#36716#38271#24230
|
||||
#27611#37325#36716#38271#24230)
|
||||
#27611#37325#36716#38271#24230
|
||||
'')
|
||||
Properties.OnChange = lblRuleConversionPropertiesChange
|
||||
Style.Font.Charset = ANSI_CHARSET
|
||||
Style.Font.Color = clWindowText
|
||||
|
|
@ -521,13 +522,13 @@
|
|||
Width = 149
|
||||
end
|
||||
object C_Pattern: TcxTextEdit
|
||||
Left = 8561
|
||||
Left = 10000
|
||||
Top = 10000
|
||||
ParentFont = False
|
||||
Properties.ReadOnly = True
|
||||
Style.HotTrack = False
|
||||
Style.TransparentBorder = False
|
||||
TabOrder = 39
|
||||
TabOrder = 51
|
||||
Visible = False
|
||||
Width = 124
|
||||
end
|
||||
|
|
@ -545,7 +546,7 @@
|
|||
Style.HotTrack = False
|
||||
Style.TransparentBorder = False
|
||||
Style.IsFontAssigned = True
|
||||
TabOrder = 40
|
||||
TabOrder = 39
|
||||
Text = '100'
|
||||
Visible = False
|
||||
OnClick = edtScanEnter
|
||||
|
|
@ -559,7 +560,7 @@
|
|||
Properties.ReadOnly = True
|
||||
Style.HotTrack = False
|
||||
Style.TransparentBorder = False
|
||||
TabOrder = 41
|
||||
TabOrder = 40
|
||||
Visible = False
|
||||
Width = 168
|
||||
end
|
||||
|
|
@ -584,7 +585,7 @@
|
|||
Properties.ReadOnly = True
|
||||
Style.HotTrack = False
|
||||
Style.TransparentBorder = False
|
||||
TabOrder = 42
|
||||
TabOrder = 41
|
||||
Visible = False
|
||||
OnClick = edtScanEnter
|
||||
Width = 121
|
||||
|
|
@ -594,7 +595,7 @@
|
|||
Top = 10000
|
||||
Style.HotTrack = False
|
||||
Style.TransparentBorder = False
|
||||
TabOrder = 43
|
||||
TabOrder = 42
|
||||
Visible = False
|
||||
OnClick = edtScanEnter
|
||||
Width = 121
|
||||
|
|
@ -605,7 +606,7 @@
|
|||
ParentFont = False
|
||||
Style.HotTrack = False
|
||||
Style.TransparentBorder = False
|
||||
TabOrder = 44
|
||||
TabOrder = 43
|
||||
Visible = False
|
||||
OnClick = edtScanEnter
|
||||
Width = 121
|
||||
|
|
@ -616,7 +617,7 @@
|
|||
ParentFont = False
|
||||
Style.HotTrack = False
|
||||
Style.TransparentBorder = False
|
||||
TabOrder = 45
|
||||
TabOrder = 44
|
||||
Visible = False
|
||||
OnClick = edtScanEnter
|
||||
Width = 121
|
||||
|
|
@ -626,7 +627,7 @@
|
|||
Top = 10000
|
||||
Style.HotTrack = False
|
||||
Style.TransparentBorder = False
|
||||
TabOrder = 46
|
||||
TabOrder = 45
|
||||
Visible = False
|
||||
OnClick = edtScanEnter
|
||||
Width = 121
|
||||
|
|
@ -636,7 +637,7 @@
|
|||
Top = 10000
|
||||
Style.HotTrack = False
|
||||
Style.TransparentBorder = False
|
||||
TabOrder = 47
|
||||
TabOrder = 46
|
||||
Visible = False
|
||||
OnClick = edtScanEnter
|
||||
Width = 121
|
||||
|
|
@ -653,7 +654,7 @@
|
|||
Font.Name = #24494#36719#38597#40657
|
||||
Font.Style = [fsBold]
|
||||
ParentFont = False
|
||||
TabOrder = 48
|
||||
TabOrder = 47
|
||||
Visible = False
|
||||
OnClick = bt_printmdClick
|
||||
end
|
||||
|
|
@ -662,7 +663,7 @@
|
|||
Top = 10000
|
||||
Style.HotTrack = False
|
||||
Style.TransparentBorder = False
|
||||
TabOrder = 49
|
||||
TabOrder = 48
|
||||
Visible = False
|
||||
OnClick = edtScanEnter
|
||||
Width = 121
|
||||
|
|
@ -672,7 +673,7 @@
|
|||
Top = 10000
|
||||
Style.HotTrack = False
|
||||
Style.TransparentBorder = False
|
||||
TabOrder = 50
|
||||
TabOrder = 49
|
||||
Visible = False
|
||||
OnClick = edtScanEnter
|
||||
Width = 121
|
||||
|
|
@ -682,7 +683,7 @@
|
|||
Top = 10000
|
||||
Style.HotTrack = False
|
||||
Style.TransparentBorder = False
|
||||
TabOrder = 51
|
||||
TabOrder = 50
|
||||
Visible = False
|
||||
OnClick = edtScanEnter
|
||||
Width = 121
|
||||
|
|
@ -778,7 +779,7 @@
|
|||
SizeOptions.SizableVert = True
|
||||
AllowRemove = False
|
||||
Hidden = True
|
||||
ItemIndex = 4
|
||||
ItemIndex = 2
|
||||
Padding.Left = -15
|
||||
Padding.Top = -5
|
||||
Padding.AssignedValues = [lpavLeft, lpavTop]
|
||||
|
|
@ -797,7 +798,7 @@
|
|||
SizeOptions.Width = 697
|
||||
AllowRemove = False
|
||||
Hidden = True
|
||||
ItemIndex = 3
|
||||
ItemIndex = 4
|
||||
LayoutDirection = ldHorizontal
|
||||
Padding.Bottom = -10
|
||||
Padding.Top = -10
|
||||
|
|
@ -2353,7 +2354,11 @@
|
|||
OnClick = FrameKeyBoard1SpeedButton1Click
|
||||
end
|
||||
inherited SpeedButton5: TSpeedButton
|
||||
Left = 58
|
||||
Top = 59
|
||||
OnClick = FrameKeyBoard1SpeedButton1Click
|
||||
ExplicitLeft = 58
|
||||
ExplicitTop = 59
|
||||
end
|
||||
inherited SpeedButton8: TSpeedButton
|
||||
OnClick = FrameKeyBoard1SpeedButton1Click
|
||||
|
|
|
|||
|
|
@ -368,6 +368,7 @@ type
|
|||
procedure initEditPiece();
|
||||
procedure GetPacketNo();
|
||||
procedure GetRulePacketNo();
|
||||
procedure CheckRulePacketNo();
|
||||
procedure getPlanImage(MSubID: string);
|
||||
function deletePack(packId: string): boolean;
|
||||
function checkPicecNo(): boolean;
|
||||
|
|
@ -447,7 +448,32 @@ begin
|
|||
Application.MessageBox('该颜色未在待检布仓库，不可以检验该颜色！', '提示信息', MB_ICONERROR);
|
||||
exit;
|
||||
end;
|
||||
|
||||
if ((trim(Coefficient.text) = '') and ((trim(lblRuleConversion.text) = '无需转换') or (trim(lblRuleConversion.text) = ''))) or (trim(C_Width.text) = '') or (trim(C_GramWeight.text) = '') then
|
||||
begin
|
||||
with ADOCmd do
|
||||
begin
|
||||
Close;
|
||||
SQL.Clear;
|
||||
SQL.Add(' select * from Trade_Cloth_Inspect A where A.mainid=''' + trim(Fmainid) + ''' ');
|
||||
SQL.Add(' and A.C_Name=''' + trim(CodeName.text) + '''');
|
||||
Open;
|
||||
end;
|
||||
if ADOCmd.IsEmpty then
|
||||
begin
|
||||
Application.MessageBox('该卷为第一卷,不允许克重门幅系数为空！', '提示信息', MB_ICONERROR);
|
||||
exit;
|
||||
end;
|
||||
end;
|
||||
// if (trim(Coefficient.text) <> '') and ((trim(lblRuleConversion.text) = '无需转换') or (trim(lblRuleConversion.text) = '')) then
|
||||
// begin
|
||||
// Application.MessageBox('系数不是空的时候,不能为无需转换！', '提示信息', MB_ICONERROR);
|
||||
// exit;
|
||||
// end;
|
||||
if (trim(Coefficient.text) = '') and ((trim(lblRuleConversion.text) <> '无需转换') or (trim(lblRuleConversion.text) = '')) then
|
||||
begin
|
||||
Application.MessageBox('系数不能为空！', '提示信息', MB_ICONERROR);
|
||||
exit;
|
||||
end;
|
||||
if CheckData('提交') = false then
|
||||
exit;
|
||||
|
||||
|
|
@ -1318,6 +1344,7 @@ begin
|
|||
Close;
|
||||
SQL.Clear;
|
||||
SQL.Add('EXEC P_Trade_Insp_Get_plan @SubID=''' + trim(MSubID) + '''');
|
||||
// showmessage(sql.text);
|
||||
Open;
|
||||
|
||||
if not IsEmpty then
|
||||
|
|
@ -1366,10 +1393,10 @@ begin
|
|||
FC_Color := trim(fieldbyName('C_Color').AsString);
|
||||
FC_ColorNo := trim(fieldbyName('C_ColorNo').AsString);
|
||||
FC_EColor := trim(fieldbyName('C_EColor').AsString);
|
||||
FC_Width := trim(fieldbyName('C_Width').AsString);
|
||||
FC_GramWeight := trim(fieldbyName('C_GramWeight').AsString);
|
||||
C_width.Text := FC_Width;
|
||||
C_GramWeight.Text := FC_GramWeight;
|
||||
// FC_Width := trim(fieldbyName('C_Width').AsString);
|
||||
// FC_GramWeight := trim(fieldbyName('C_GramWeight').AsString);
|
||||
// C_width.Text := FC_Width;
|
||||
// C_GramWeight.Text := FC_GramWeight;
|
||||
FC_Pattern := trim(fieldbyName('C_Pattern').AsString);
|
||||
C_Pattern.Text := trim(fieldbyName('C_Pattern').AsString);
|
||||
customStrField1.Text := trim(fieldbyName('PO').AsString);
|
||||
|
|
@ -1437,9 +1464,7 @@ begin
|
|||
cds_params.Post;
|
||||
//
|
||||
// BatchNO.Text := trim(fieldbyName('batchNo').AsString);
|
||||
|
||||
Coefficient.Text := trim(fieldbyName('Coefficient').AsString);
|
||||
|
||||
// Coefficient.Text := trim(fieldbyName('Coefficient').AsString);
|
||||
// 转换系数
|
||||
lblRuleConversion.ItemIndex := lblRuleConversion.Properties.Items.IndexOf(fieldbyName('RuleConversion').AsString);
|
||||
|
||||
|
|
@ -1490,6 +1515,32 @@ begin
|
|||
application.MessageBox('输入的条码错误,请检查!', '警告信息');
|
||||
end;
|
||||
end;
|
||||
|
||||
with ADOQueryBaseTemp do
|
||||
begin
|
||||
Close;
|
||||
SQL.Clear;
|
||||
SQL.Add('EXEC P_Trade_Insp_Get_WFKZ @SubID=''' + trim(FSubId) + '''');
|
||||
// showmessage(sql.text);
|
||||
Open;
|
||||
if not IsEmpty then
|
||||
begin
|
||||
FC_Width := trim(fieldbyName('C_Width').AsString);
|
||||
FC_GramWeight := trim(fieldbyName('C_GramWeight').AsString);
|
||||
C_width.Text := FC_Width;
|
||||
C_GramWeight.Text := FC_GramWeight;
|
||||
Coefficient.Text := trim(fieldbyName('Coefficient').AsString);
|
||||
lblRuleConversion.Text := trim(fieldbyName('lblRuleConversion').AsString);
|
||||
end
|
||||
else
|
||||
begin
|
||||
C_width.Text := '';
|
||||
C_GramWeight.Text := '';
|
||||
Coefficient.Text := '';
|
||||
lblRuleConversion.Text := '';
|
||||
end;
|
||||
|
||||
end;
|
||||
with ADOQueryBaseCmd do
|
||||
begin
|
||||
Close;
|
||||
|
|
@ -1629,10 +1680,83 @@ begin
|
|||
if CDS_3.FieldByName('ssel').AsBoolean = True then
|
||||
begin
|
||||
FCXPacketCIID := FCXPacketCIID + ',' + trim(cds_3.fieldbyName('CIID').AsString);
|
||||
|
||||
end;
|
||||
Next;
|
||||
end;
|
||||
with ADOQueryBaseCmd do
|
||||
begin
|
||||
close;
|
||||
sql.clear;
|
||||
sql.add('select top 1 isnull(PacketNo,0) PacketNo from Trade_Cloth_Inspect ');
|
||||
SQL.Add('where EXISTS(select X.RTValue from [dbo].[F_Tool_SplitString](' + QuotedStr(FCXPacketCIID) + ','','') X where Trade_Cloth_Inspect.CIID=X.RTValue ) ');
|
||||
sql.add(' order by PacketNo desc');
|
||||
// showmessage(SQL.text);
|
||||
Open;
|
||||
end;
|
||||
if ADOQueryBaseCmd.fieldbyName('PacketNo').asfloat > 0 then
|
||||
begin
|
||||
Application.MessageBox('请先撤销打包之后，再重新打包！', '提示', 0);
|
||||
exit;
|
||||
end;
|
||||
// CheckRulePacketNo();
|
||||
// GetRulePacketNo(); 判断最大包号
|
||||
|
||||
try
|
||||
if FRulePackNo = '按缸号生成' then
|
||||
begin
|
||||
with ADOQueryBaseTemp do
|
||||
begin
|
||||
Close;
|
||||
SQL.Clear;
|
||||
SQL.Add('select * from Trade_Cloth_Inspect X ');
|
||||
sql.Add('where X.mainID=''' + Trim(FMainId) + ''' and X.subid=''' + Trim(FSubId) + ''' and X.PacketNo=''' + Trim(edtPacketNo.text) + ''' and X.c_color=' + quotedstr(Trim(FC_Color)) + ' and isnull(X.BatchNO,'''')=' + quotedstr(Trim(BatchNO.Text)));
|
||||
|
||||
Open;
|
||||
end;
|
||||
end
|
||||
else if FRulePackNo = '按订单生成' then
|
||||
begin
|
||||
with ADOQueryBaseTemp do
|
||||
begin
|
||||
Close;
|
||||
SQL.Clear;
|
||||
SQL.Add('select * from Trade_Cloth_Inspect X ');
|
||||
SQL.Add('where X.mainID=''' + Trim(FMainId) + ''' and X.PacketNo=''' + Trim(edtPacketNo.text) + ''' and OrderNo=' + QuotedStr(trim(OrderNo.Text)));
|
||||
Open;
|
||||
end;
|
||||
end
|
||||
else if FRulePackNo = '按颜色生成' then
|
||||
begin
|
||||
with ADOQueryBaseTemp do
|
||||
begin
|
||||
Close;
|
||||
SQL.Clear;
|
||||
SQL.Add('select * from Trade_Cloth_Inspect X ');
|
||||
sql.Add('where X.mainID=''' + Trim(FMainId) + ''' and X.subid=''' + Trim(FSubId) + ''' and X.PacketNo=''' + Trim(edtPacketNo.text) + ''' and X.c_color=' + quotedstr(Trim(FC_Color)));
|
||||
Open;
|
||||
end;
|
||||
end
|
||||
else
|
||||
begin
|
||||
with ADOQueryBaseTemp do
|
||||
begin
|
||||
Close;
|
||||
SQL.Clear;
|
||||
SQL.Add('select * from Trade_Cloth_Inspect X ');
|
||||
SQL.Add('where X.mainID=''' + Trim(FMainId) + ''' and X.PacketNo=''' + Trim(edtPacketNo.text) + ''' and OrderNo=' + QuotedStr(trim(OrderNo.Text)));
|
||||
Open;
|
||||
end;
|
||||
end;
|
||||
if not ADOQueryBaseTemp.IsEmpty then
|
||||
begin
|
||||
Application.MessageBox('该包号已经存在，请重新输入！', '提示', 0);
|
||||
exit;
|
||||
end;
|
||||
|
||||
except
|
||||
|
||||
end;
|
||||
|
||||
if GetLSNo(ADOQueryBaseTemp, MPacketId, 'BI', 'Trade_Cloth_Inspect', 4, 1) = false then
|
||||
begin
|
||||
Application.MessageBox('取包条码最大号失败！', '提示', 0);
|
||||
|
|
@ -2218,7 +2342,7 @@ begin
|
|||
Application.MessageBox('取包条码最大号失败！', '提示', 0);
|
||||
exit;
|
||||
end;
|
||||
|
||||
GetRulePacketNo();
|
||||
try
|
||||
ADOQueryBaseCmd.Connection.BeginTrans;
|
||||
with ADOQueryBaseCmd do
|
||||
|
|
@ -2717,7 +2841,7 @@ begin
|
|||
//自定义输入1
|
||||
fieldbyName('customStrField1').value := trim(customStrField1.Text);
|
||||
fieldbyName('customStrField2').value := trim(customStrField2.Text);
|
||||
|
||||
fieldbyName('lblRuleConversion').value := trim(lblRuleConversion.Text);
|
||||
//拼匹
|
||||
if FieldList.FieldByName('unitPieces') <> nil then
|
||||
fieldbyName('unitPieces').value := funitPiecesStr;
|
||||
|
|
@ -3149,11 +3273,28 @@ begin
|
|||
end
|
||||
else
|
||||
InputLen.Text := format('%.' + trim(FMPlace) + 'f', [i1 / 100000 / 0.9144]);
|
||||
// if frameBads1.cxCheck_len.Checked and (trim(InputLen.Text) <> '') then
|
||||
// begin
|
||||
// frameBads1.CIFBeg.Text := trim(InputLen.Text);
|
||||
// frameBads1.CIFEnd.SetFocus;
|
||||
// end
|
||||
// else
|
||||
// begin
|
||||
// frameBads1.CIFBeg.Text := ''
|
||||
// end;
|
||||
end
|
||||
else
|
||||
begin
|
||||
InputLen.Text := format('%.' + trim(FMPlace) + 'f', [i1 / 100000]);
|
||||
|
||||
// if frameBads1.cxCheck_len.Checked and (trim(InputLen.Text) <> '') then
|
||||
// begin
|
||||
// frameBads1.CIFBeg.Text := trim(InputLen.Text);
|
||||
// frameBads1.CIFEnd.SetFocus;
|
||||
// end
|
||||
// else
|
||||
// begin
|
||||
// frameBads1.CIFBeg.Text := ''
|
||||
// end;
|
||||
if i2 = 0 then
|
||||
begin
|
||||
SetUnit('M');
|
||||
|
|
@ -3332,6 +3473,69 @@ begin
|
|||
|
||||
end;
|
||||
|
||||
procedure TfrmMachRollMain.CheckRulePacketNo();
|
||||
var
|
||||
mMaxPacketNo: string;
|
||||
begin
|
||||
try
|
||||
if FRulePackNo = '按缸号生成' then
|
||||
begin
|
||||
with ADOQueryBaseTemp do
|
||||
begin
|
||||
Close;
|
||||
SQL.Clear;
|
||||
SQL.Add('select * from Trade_Cloth_Inspect X ');
|
||||
sql.Add('where X.mainID=''' + Trim(FMainId) + ''' and X.subid=''' + Trim(FSubId) + ''' and X.c_color=' + quotedstr(Trim(FC_Color)) + ' and isnull(X.BatchNO,'''')=' + quotedstr(Trim(BatchNO.Text)));
|
||||
|
||||
Open;
|
||||
end;
|
||||
end
|
||||
else if FRulePackNo = '按订单生成' then
|
||||
begin
|
||||
with ADOQueryBaseTemp do
|
||||
begin
|
||||
Close;
|
||||
SQL.Clear;
|
||||
SQL.Add('select * from Trade_Cloth_Inspect X ');
|
||||
SQL.Add('where X.mainID=''' + Trim(FMainId) + ''' and OrderNo=' + QuotedStr(trim(OrderNo.Text)));
|
||||
Open;
|
||||
end;
|
||||
end
|
||||
else if FRulePackNo = '按颜色生成' then
|
||||
begin
|
||||
with ADOQueryBaseTemp do
|
||||
begin
|
||||
Close;
|
||||
SQL.Clear;
|
||||
SQL.Add('select * from Trade_Cloth_Inspect X ');
|
||||
sql.Add('where X.mainID=''' + Trim(FMainId) + ''' and X.subid=''' + Trim(FSubId) + ''' and X.c_color=' + quotedstr(Trim(FC_Color)));
|
||||
Open;
|
||||
end;
|
||||
end
|
||||
else
|
||||
begin
|
||||
with ADOQueryBaseTemp do
|
||||
begin
|
||||
Close;
|
||||
SQL.Clear;
|
||||
SQL.Add('select * from Trade_Cloth_Inspect X ');
|
||||
SQL.Add('where X.mainID=''' + Trim(FMainId) + ''' and OrderNo=' + QuotedStr(trim(OrderNo.Text)));
|
||||
Open;
|
||||
end;
|
||||
end;
|
||||
|
||||
|
||||
// mMaxPacketNo := trim(ADOQueryBaseTemp.fieldbyName('MaxPacketNo').AsString);
|
||||
// if mMaxPacketNo = '' then
|
||||
// mMaxPacketNo := '1';
|
||||
//
|
||||
// edtPacketNo.Text := mMaxPacketNo;
|
||||
except
|
||||
|
||||
end;
|
||||
|
||||
end;
|
||||
|
||||
procedure TfrmMachRollMain.getPlanImage(MSubID: string);
|
||||
begin
|
||||
with ADOQueryImage do
|
||||
|
|
|
|||
|
|
@ -55,7 +55,6 @@ object frmParamSet: TfrmParamSet
|
|||
inherited cxGroupBox1: TcxGroupBox
|
||||
Style.Font.Charset = GB2312_CHARSET
|
||||
Style.IsFontAssigned = True
|
||||
ExplicitTop = 2
|
||||
ExplicitWidth = 771
|
||||
Width = 771
|
||||
inherited Label34: TLabel
|
||||
|
|
|
|||
|
|
@ -4,10 +4,9 @@ interface
|
|||
|
||||
uses
|
||||
Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants,
|
||||
System.Classes, Vcl.Graphics,
|
||||
Vcl.Controls, Vcl.Forms, Vcl.Dialogs, U_frameParam, cxGraphics, cxControls,
|
||||
cxLookAndFeels, cxLookAndFeelPainters, cxGeometry,
|
||||
dxFramedControl, Vcl.Menus, Vcl.StdCtrls, cxButtons, dxPanel,
|
||||
System.Classes, Vcl.Graphics, Vcl.Controls, Vcl.Forms, Vcl.Dialogs,
|
||||
U_frameParam, cxGraphics, cxControls, cxLookAndFeels, cxLookAndFeelPainters,
|
||||
cxGeometry, dxFramedControl, Vcl.Menus, Vcl.StdCtrls, cxButtons, dxPanel,
|
||||
Vcl.Touch.Keyboard, Vcl.ExtCtrls, Data.DB, Datasnap.DBClient, dxSkinsCore;
|
||||
|
||||
type
|
||||
|
|
@ -36,6 +35,7 @@ var
|
|||
frmParamSet: TfrmParamSet;
|
||||
|
||||
implementation
|
||||
|
||||
uses
|
||||
U_iniparam;
|
||||
{$R *.dfm}
|
||||
|
|
@ -48,58 +48,57 @@ begin
|
|||
with FrameParam1 do
|
||||
begin
|
||||
if Trim(edtChen.Text) = '￡' then
|
||||
cds_params.fieldByName('chen').Value:='1'
|
||||
cds_params.fieldByName('chen').Value := '1'
|
||||
else
|
||||
cds_params.fieldByName('chen').Value:='0';
|
||||
cds_params.fieldByName('chen').Value := '0';
|
||||
|
||||
if Trim(edtMaBiao.Text) = '￡' then
|
||||
cds_params.fieldByName('mabiao').Value:='1'
|
||||
cds_params.fieldByName('mabiao').Value := '1'
|
||||
else
|
||||
cds_params.fieldByName('mabiao').Value:='0';
|
||||
cds_params.fieldByName('mabiao').Value := '0';
|
||||
|
||||
if Trim(edtMBDW.Text) = '￡' then
|
||||
cds_params.fieldByName('mbunit').Value:='1'
|
||||
cds_params.fieldByName('mbunit').Value := '1'
|
||||
else
|
||||
cds_params.fieldByName('mbunit').Value:='0';
|
||||
cds_params.fieldByName('mbunit').Value := '0';
|
||||
|
||||
//
|
||||
cds_params.fieldByName('weightRule').Value:=weightRule.ItemIndex ;
|
||||
cds_params.fieldByName('weightRule').Value := weightRule.ItemIndex;
|
||||
|
||||
// 놔笭
|
||||
cds_params.fieldByName('outPage').Value:=outPage.Text ;
|
||||
cds_params.fieldByName('labNumber').Value:=StrToIntDef(labNumber.Text ,1);
|
||||
cds_params.fieldByName('outPage').Value := outPage.Text;
|
||||
cds_params.fieldByName('labNumber').Value := StrToIntDef(labNumber.Text, 1);
|
||||
|
||||
//
|
||||
cds_params.fieldByName('MinLen').Value:=StrToIntDef(Trim(MinLen.Text) ,0);
|
||||
cds_params.fieldByName('MaxLen').Value:=StrToIntDef(Trim(MaxLen.Text) ,100);
|
||||
cds_params.fieldByName('MinWeight').Value:=StrToIntDef(Trim(MinWeight.Text) ,0);
|
||||
cds_params.fieldByName('MaxWeight').Value:=StrToIntDef(Trim(MaxWeight.Text) ,100);
|
||||
cds_params.fieldByName('MinLen').Value := StrToIntDef(Trim(MinLen.Text), 0);
|
||||
cds_params.fieldByName('MaxLen').Value := StrToIntDef(Trim(MaxLen.Text), 100);
|
||||
cds_params.fieldByName('MinWeight').Value := StrToIntDef(Trim(MinWeight.Text), 0);
|
||||
cds_params.fieldByName('MaxWeight').Value := StrToIntDef(Trim(MaxWeight.Text), 100);
|
||||
|
||||
cds_params.fieldByName('MPlace').Value := StrToIntDef(Trim(MPlace.Text), 1);
|
||||
cds_params.fieldByName('YPlace').Value := StrToIntDef(Trim(YPlace.Text), 1);
|
||||
cds_params.fieldByName('KgPlace').Value := StrToIntDef(Trim(KgPlace.Text), 1);
|
||||
|
||||
cds_params.fieldByName('MPlace').Value:=StrToIntDef(Trim(MPlace.Text) ,1);
|
||||
cds_params.fieldByName('YPlace').Value:=StrToIntDef(Trim(YPlace.Text) ,1);
|
||||
cds_params.fieldByName('KgPlace').Value:=StrToIntDef(Trim(KgPlace.Text) ,1);
|
||||
|
||||
cds_params.fieldByName('BeginPieceNo').Value:=StrToIntDef(Trim(BeginPieceNo.Text) ,1);
|
||||
cds_params.fieldByName('EndPieceNo').Value:=StrToIntDef(Trim(EndPieceNo.Text) ,1);
|
||||
cds_params.fieldByName('BeginPieceNo').Value := StrToIntDef(Trim(BeginPieceNo.Text), 1);
|
||||
cds_params.fieldByName('EndPieceNo').Value := StrToIntDef(Trim(EndPieceNo.Text), 1);
|
||||
|
||||
|
||||
// 댔관
|
||||
cds_params.fieldByName('dabao').Value:= trim(edtdabao.Text);
|
||||
cds_params.fieldByName('packRolls').Value:=StrToIntDef(Trim(packRolls.Text) ,2);
|
||||
cds_params.fieldByName('packnoMake').Value:= packnoMake.Text;
|
||||
cds_params.fieldByName('packPostAction').Value:=trim( packPrintAction.Text);
|
||||
cds_params.fieldByName('dabao').Value := trim(edtdabao.Text);
|
||||
cds_params.fieldByName('packRolls').Value := StrToIntDef(Trim(packRolls.Text), 2);
|
||||
cds_params.fieldByName('packnoMake').Value := packnoMake.Text;
|
||||
cds_params.fieldByName('packPostAction').Value := trim(packPrintAction.Text);
|
||||
|
||||
cds_params.fieldByName('packlabNumber').Value:=StrToIntDef(packlabNumber.Text ,0);
|
||||
cds_params.fieldByName('packlabNumber').Value := StrToIntDef(packlabNumber.Text, 0);
|
||||
|
||||
cds_params.fieldByName('packPrintPreview').value:=packPrintPreview.checked;
|
||||
cds_params.fieldByName('packPrintPreview').value := packPrintPreview.checked;
|
||||
|
||||
//
|
||||
cds_params.fieldByName('rollnoMake').Value:= rollnoMake.Text;
|
||||
cds_params.fieldByName('rollnoMake').Value := rollnoMake.Text;
|
||||
|
||||
cds_params.fieldByName('AddwetPresent').Value:=StrToFloatDef(Trim(AddwetPresent.Text) ,0);
|
||||
cds_params.fieldByName('AddLenPresent').Value:=StrToFloatDef(Trim(AddLenPresent.Text) ,0);
|
||||
gPresentNumFlag:=presentNumFlag.itemIndex;
|
||||
cds_params.fieldByName('AddwetPresent').Value := StrToFloatDef(Trim(AddwetPresent.Text), 0);
|
||||
cds_params.fieldByName('AddLenPresent').Value := StrToFloatDef(Trim(AddLenPresent.Text), 0);
|
||||
gPresentNumFlag := presentNumFlag.itemIndex;
|
||||
|
||||
end;
|
||||
cds_params.Post;
|
||||
|
|
@ -142,62 +141,55 @@ begin
|
|||
edtMBDW.Text := '';
|
||||
|
||||
//
|
||||
weightRule.ItemIndex :=cds_params.fieldByName('weightRule').AsInteger;
|
||||
weightRule.ItemIndex := cds_params.fieldByName('weightRule').AsInteger;
|
||||
|
||||
// 놔笭
|
||||
outPage.Text := Trim(cds_params.fieldByName('outPage').AsString);
|
||||
labNumber.ItemIndex := labNumber.Items.IndexOf
|
||||
(cds_params.fieldByName('labNumber').AsString);
|
||||
labNumber.ItemIndex := labNumber.Items.IndexOf(cds_params.fieldByName('labNumber').AsString);
|
||||
|
||||
//
|
||||
MinLen.Text := cds_params.fieldByName('MinLen').AsString;
|
||||
MaxLen.Text := cds_params.fieldByName('MaxLen').AsString;
|
||||
MinWeight.Text := cds_params.fieldByName('MinWeight').AsString;
|
||||
MaxWeight.Text := cds_params.fieldByName('MaxWeight').AsString;
|
||||
if cds_params.fieldByName('BeginPieceNo').AsString<>'0' then
|
||||
if cds_params.fieldByName('BeginPieceNo').AsString <> '0' then
|
||||
BeginPieceNo.Text := cds_params.fieldByName('BeginPieceNo').AsString;
|
||||
|
||||
if cds_params.fieldByName('EndPieceNo').AsString<>'0' then
|
||||
if cds_params.fieldByName('EndPieceNo').AsString <> '0' then
|
||||
EndPieceNo.Text := cds_params.fieldByName('EndPieceNo').AsString;
|
||||
|
||||
MPlace.Text := cds_params.fieldByName('MPlace').AsString;
|
||||
YPlace.Text := cds_params.fieldByName('YPlace').AsString;
|
||||
KgPlace.Text := cds_params.fieldByName('KgPlace').AsString;
|
||||
|
||||
AddwetPresent.Text :='';// cds_params.fieldByName('AddwetPresent').AsString;
|
||||
AddLenPresent.Text :='';// cds_params.fieldByName('AddLenPresent').AsString;
|
||||
|
||||
AddwetPresent.Text := ''; // cds_params.fieldByName('AddwetPresent').AsString;
|
||||
AddLenPresent.Text := ''; // cds_params.fieldByName('AddLenPresent').AsString;
|
||||
// 댔관
|
||||
edtdabao.Text := cds_params.fieldByName('dabao').AsString;
|
||||
if cds_params.fieldByName('packRolls').AsInteger>0 then
|
||||
if cds_params.fieldByName('packRolls').AsInteger > 0 then
|
||||
packRolls.Text := cds_params.fieldByName('packRolls').AsString;
|
||||
packPrintPreview.checked:= cds_params.fieldByName('packPrintPreview').AsBoolean;
|
||||
packlabNumber.ItemIndex := packlabNumber.Properties.Items.IndexOf
|
||||
(cds_params.fieldByName('packlabNumber').AsString);
|
||||
packPrintPreview.checked := cds_params.fieldByName('packPrintPreview').AsBoolean;
|
||||
packlabNumber.ItemIndex := packlabNumber.Properties.Items.IndexOf(cds_params.fieldByName('packlabNumber').AsString);
|
||||
//
|
||||
packnoMake.ItemIndex := packnoMake.Properties.Items.IndexOf
|
||||
(cds_params.fieldByName('packnoMake').AsString);
|
||||
|
||||
// packnoMake.ItemIndex := packnoMake.Properties.Items.IndexOf
|
||||
// (cds_params.fieldByName('packnoMake').AsString);
|
||||
packnoMake.text := 'ÊÖ¶¯';
|
||||
//댔丹관뵀
|
||||
packPrintAction.ItemIndex := packPrintAction.Properties.Items.IndexOf
|
||||
(cds_params.fieldByName('packPostAction').AsString);
|
||||
packPrintAction.ItemIndex := packPrintAction.Properties.Items.IndexOf(cds_params.fieldByName('packPostAction').AsString);
|
||||
|
||||
if packPrintAction.ItemIndex=-1 then
|
||||
packPrintAction.ItemIndex:=1;
|
||||
if packPrintAction.ItemIndex = -1 then
|
||||
packPrintAction.ItemIndex := 1;
|
||||
|
||||
if packnoMake.ItemIndex =-1 then
|
||||
packnoMake.ItemIndex :=0;
|
||||
// if packnoMake.ItemIndex =-1 then
|
||||
// packnoMake.ItemIndex :=0;
|
||||
//
|
||||
rollnoMake.ItemIndex := rollnoMake.Properties.Items.IndexOf(cds_params.fieldByName('rollnoMake').AsString);
|
||||
|
||||
if rollnoMake.ItemIndex = -1 then
|
||||
rollnoMake.ItemIndex := 0;
|
||||
|
||||
//
|
||||
rollnoMake.ItemIndex := rollnoMake.Properties.Items.IndexOf
|
||||
(cds_params.fieldByName('rollnoMake').AsString);
|
||||
|
||||
if rollnoMake.ItemIndex =-1 then
|
||||
rollnoMake.ItemIndex :=0;
|
||||
|
||||
//
|
||||
presentNumFlag.itemIndex:=gPresentNumFlag;
|
||||
presentNumFlag.itemIndex := gPresentNumFlag;
|
||||
|
||||
end;
|
||||
end;
|
||||
|
|
@ -206,26 +198,27 @@ end;
|
|||
|
||||
procedure TfrmParamSet.FrameParam1BeginPieceNoPropertiesChange(Sender: TObject);
|
||||
begin
|
||||
if (StrToIntDef(Trim(FrameParam1.BeginPieceNo.Text),0)>0) OR (StrToIntDef(Trim(FrameParam1.EndPieceNo.Text),0)>0) then
|
||||
if (StrToIntDef(Trim(FrameParam1.BeginPieceNo.Text), 0) > 0) or (StrToIntDef(Trim(FrameParam1.EndPieceNo.Text), 0) > 0) then
|
||||
begin
|
||||
FrameParam1.rollnoMake.ItemIndex:=1;
|
||||
FrameParam1.rollnoMake.ItemIndex := 1;
|
||||
end
|
||||
else
|
||||
begin
|
||||
FrameParam1.rollnoMake.ItemIndex:=0;
|
||||
FrameParam1.rollnoMake.ItemIndex := 0;
|
||||
end;
|
||||
end;
|
||||
|
||||
procedure TfrmParamSet.FrameParam1EndPieceNoPropertiesChange(Sender: TObject);
|
||||
begin
|
||||
if ( StrToIntDef(Trim(FrameParam1.EndPieceNo.Text),0)>0) or (StrToIntDef(Trim(FrameParam1.BeginPieceNo.Text),0)>0) then
|
||||
if (StrToIntDef(Trim(FrameParam1.EndPieceNo.Text), 0) > 0) or (StrToIntDef(Trim(FrameParam1.BeginPieceNo.Text), 0) > 0) then
|
||||
begin
|
||||
FrameParam1.rollnoMake.ItemIndex:=1;
|
||||
FrameParam1.rollnoMake.ItemIndex := 1;
|
||||
end
|
||||
else
|
||||
begin
|
||||
FrameParam1.rollnoMake.ItemIndex:=0;
|
||||
FrameParam1.rollnoMake.ItemIndex := 0;
|
||||
end;
|
||||
end;
|
||||
|
||||
end.
|
||||
|
||||
|
|
|
|||
|
|
@ -211,6 +211,7 @@ object frameBads: TframeBads
|
|||
Top = 54
|
||||
Caption = #38271#24230
|
||||
ParentFont = False
|
||||
State = cbsChecked
|
||||
Style.HotTrack = False
|
||||
Style.TransparentBorder = False
|
||||
TabOrder = 3
|
||||
|
|
|
|||
Loading…
Reference in New Issue
Block a user