~
This commit is contained in:
DESKTOP-E401PHE\Administrator
parent
cbee688bc5
commit
fb57b38be3
|
|
@ -834,7 +834,6 @@ object frmJYOrderCDOne: TfrmJYOrderCDOne
|
|||
OnCellDblClick = Tv1CellDblClick
|
||||
DataController.DataSource = DataSource1
|
||||
DataController.Filter.AutoDataSetFilter = True
|
||||
DataController.Options = [dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoImmediatePost]
|
||||
DataController.Summary.DefaultGroupSummaryItems = <>
|
||||
DataController.Summary.FooterSummaryItems = <
|
||||
item
|
||||
|
|
|
|||
|
|
@ -12,19 +12,19 @@ uses
|
|||
RM_Common, RM_Class, RM_GridReport, RM_e_Xls, Menus, MovePanel, cxTextEdit,
|
||||
cxLookAndFeels, cxLookAndFeelPainters, cxNavigator, cxContainer, ShellAPI,
|
||||
cxCurrencyEdit, MMSystem, dxSkinsCore, dxSkinBlack, dxSkinBlue,
|
||||
dxSkinBlueprint, dxSkinCaramel, dxSkinCoffee, dxSkinDarkRoom,
|
||||
dxSkinDarkSide, dxSkinDevExpressDarkStyle, dxSkinDevExpressStyle,
|
||||
dxSkinFoggy, dxSkinGlassOceans, dxSkinHighContrast, dxSkiniMaginary,
|
||||
dxSkinLilian, dxSkinLiquidSky, dxSkinLondonLiquidSky, dxSkinMcSkin,
|
||||
dxSkinMetropolis, dxSkinMetropolisDark, dxSkinMoneyTwins,
|
||||
dxSkinOffice2007Black, dxSkinOffice2007Blue, dxSkinOffice2007Green,
|
||||
dxSkinOffice2007Pink, dxSkinOffice2007Silver, dxSkinOffice2010Black,
|
||||
dxSkinOffice2010Blue, dxSkinOffice2010Silver, dxSkinOffice2013DarkGray,
|
||||
dxSkinOffice2013LightGray, dxSkinOffice2013White, dxSkinPumpkin,
|
||||
dxSkinSeven, dxSkinSevenClassic, dxSkinSharp, dxSkinSharpPlus,
|
||||
dxSkinSilver, dxSkinSpringTime, dxSkinStardust, dxSkinSummer2008,
|
||||
dxSkinTheAsphaltWorld, dxSkinsDefaultPainters, dxSkinValentine,
|
||||
dxSkinVS2010, dxSkinWhiteprint, dxSkinXmas2008Blue, dxSkinscxPCPainter;
|
||||
dxSkinBlueprint, dxSkinCaramel, dxSkinCoffee, dxSkinDarkRoom, dxSkinDarkSide,
|
||||
dxSkinDevExpressDarkStyle, dxSkinDevExpressStyle, dxSkinFoggy,
|
||||
dxSkinGlassOceans, dxSkinHighContrast, dxSkiniMaginary, dxSkinLilian,
|
||||
dxSkinLiquidSky, dxSkinLondonLiquidSky, dxSkinMcSkin, dxSkinMetropolis,
|
||||
dxSkinMetropolisDark, dxSkinMoneyTwins, dxSkinOffice2007Black,
|
||||
dxSkinOffice2007Blue, dxSkinOffice2007Green, dxSkinOffice2007Pink,
|
||||
dxSkinOffice2007Silver, dxSkinOffice2010Black, dxSkinOffice2010Blue,
|
||||
dxSkinOffice2010Silver, dxSkinOffice2013DarkGray, dxSkinOffice2013LightGray,
|
||||
dxSkinOffice2013White, dxSkinPumpkin, dxSkinSeven, dxSkinSevenClassic,
|
||||
dxSkinSharp, dxSkinSharpPlus, dxSkinSilver, dxSkinSpringTime, dxSkinStardust,
|
||||
dxSkinSummer2008, dxSkinTheAsphaltWorld, dxSkinsDefaultPainters,
|
||||
dxSkinValentine, dxSkinVS2010, dxSkinWhiteprint, dxSkinXmas2008Blue,
|
||||
dxSkinscxPCPainter;
|
||||
|
||||
type
|
||||
TfrmJYOrderCDOne = class(TForm)
|
||||
|
|
@ -408,7 +408,7 @@ begin
|
|||
Close;
|
||||
Filtered := False;
|
||||
sql.Clear;
|
||||
sql.Add('select A.*,');
|
||||
sql.Add('select CASE WHEN TRY_CAST(isnull(mjstr4,0) AS INT)=0 THEN null ELSE TRY_CAST(MJstr4 AS INT) END as MJstr4,A.*,');
|
||||
SQL.Add('cast(A.MJSTR4 as varchar(20)) as gangno,');
|
||||
sql.Add('C.OrderNo,C.MPRTCodeName,C.MPRTMF,C.MPRTKZ,B.*,');
|
||||
sql.Add('KouFenQty=(select Sum(X.KouFenQty) from WFB_MJJY_CD X where X.MJID=A.MJID),');
|
||||
|
|
@ -422,8 +422,8 @@ begin
|
|||
begin
|
||||
sql.add('and mjtype=''´ÎÆ·'' ');
|
||||
end;
|
||||
sql.add('order by A.mainid,B.prtcolor,gangno,A.mjxh');
|
||||
//ShowMessage(SQL.Text);
|
||||
sql.add('order by A.mainid,B.prtcolor,CASE WHEN TRY_CAST(isnull(mjstr4,0) AS INT)=0 THEN null ELSE TRY_CAST(MJstr4 AS INT) END,A.mjxh');
|
||||
// ShowMessage(SQL.Text);
|
||||
Open;
|
||||
end;
|
||||
SCreateCDS20(ADOQueryMain, Order_Main);
|
||||
|
|
@ -523,13 +523,13 @@ end;
|
|||
procedure TfrmJYOrderCDOne.TBExportClick(Sender: TObject);
|
||||
begin
|
||||
if ADOQueryMain.IsEmpty then
|
||||
Exit;
|
||||
Exit;
|
||||
SelExportData(Tv1, ADOQueryMain, '¼ìÑ鱨¸æ');
|
||||
end;
|
||||
|
||||
procedure TfrmJYOrderCDOne.TBRafreshClick(Sender: TObject);
|
||||
begin
|
||||
Tv1.DataController.Filter.AutoDataSetFilter := false;
|
||||
Tv1.DataController.Filter.AutoDataSetFilter := false;
|
||||
dingdanhao.SetFocus;
|
||||
MovePanel2.Visible := True;
|
||||
MovePanel2.Refresh;
|
||||
|
|
@ -874,9 +874,10 @@ begin
|
|||
with ADOQueryMain do
|
||||
begin
|
||||
Close;
|
||||
Filtered := False;
|
||||
Filtered := False;
|
||||
sql.Clear;
|
||||
sql.Add('select A.*,');
|
||||
sql.Add('select CASE WHEN TRY_CAST(isnull(mjstr4,0) AS INT)=0 THEN null ELSE TRY_CAST(MJstr4 AS INT) END as MJstr4,A.*,');
|
||||
SQL.Add('cast(A.MJSTR4 as varchar(20)) as gangno,');
|
||||
sql.Add('C.OrderNo,C.MPRTCodeName,C.MPRTMF,C.MPRTKZ,B.*,');
|
||||
sql.Add('KouFenQty=(select Sum(X.KouFenQty) from WFB_MJJY_CD X where X.MJID=A.MJID),');
|
||||
sql.Add('CDQty=(select count(X.MJID) from WFB_MJJY_CD X where X.MJID=A.MJID)');
|
||||
|
|
@ -910,7 +911,7 @@ begin
|
|||
//InitOrderColor(Trim(Order_Main.fieldbyname('MainId').AsString),PRTColor,ADOQueryTemp);
|
||||
//InitBCGangNo(Trim(Order_Main.fieldbyname('SubId').AsString),AOrdDefStr1,ADOQueryTemp);
|
||||
end;
|
||||
end;
|
||||
end;
|
||||
|
||||
procedure TfrmJYOrderCDOne.Tv1CellClick(Sender: TcxCustomGridTableView; ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton; AShift: TShiftState; var AHandled: Boolean);
|
||||
begin
|
||||
|
|
@ -1655,7 +1656,7 @@ begin
|
|||
with ADOQueryPrint do
|
||||
begin
|
||||
Close;
|
||||
sql.Clear;
|
||||
sql.Clear;
|
||||
sql.add('exec P_Do_PrintMd_HZ ');
|
||||
sql.add('@mainID=' + quotedstr(Trim('')));
|
||||
sql.add(',@DName=' + quotedstr(Trim(DCode)));
|
||||
|
|
@ -1663,7 +1664,7 @@ begin
|
|||
Open;
|
||||
end;
|
||||
end;
|
||||
if (trim(ComboBox1.Text) = '¼ìÑéÂëµ¥(Ó¡»¨)') then
|
||||
if (trim(ComboBox1.Text) = '¼ìÑéÂëµ¥(Ó¡»¨)') then
|
||||
begin
|
||||
with ADOQueryTemp do
|
||||
begin
|
||||
|
|
|
|||
|
|
@ -438,6 +438,7 @@ type
|
|||
function JsXj(str1: string): string;
|
||||
public
|
||||
fmanage, ftest: string;
|
||||
Canprint: Boolean;
|
||||
{ Public declarations }
|
||||
|
||||
end;
|
||||
|
|
@ -737,7 +738,7 @@ begin
|
|||
end;
|
||||
if trim(Edit7.Text) = '√' then
|
||||
IsJsMessage := true;
|
||||
|
||||
Canprint := False;
|
||||
if trim(fmanage) <> '高权限' then
|
||||
begin
|
||||
if trim(DllName) <> '' then
|
||||
|
|
@ -1245,7 +1246,7 @@ begin
|
|||
end
|
||||
else
|
||||
begin
|
||||
with ADOCmd do
|
||||
with ADOCmd do
|
||||
begin
|
||||
Close;
|
||||
sql.Clear;
|
||||
|
|
@ -1690,9 +1691,9 @@ var
|
|||
fRoll: Tstringlist;
|
||||
begin
|
||||
|
||||
if (strtofloatdef(trim(MJLen.Text), 0) = 0) and (strtofloatdef(trim(mjqty4.Text), 0) = 0) then
|
||||
if (strtofloatdef(trim(MJLen.Text), 0) = 0) or (strtofloatdef(trim(mjqty4.Text), 0) = 0) then
|
||||
begin
|
||||
application.MessageBox('长度或者重量不能都为零！', '提示信息', 0);
|
||||
application.MessageBox('长度或者重量不能为零！', '提示信息', 0);
|
||||
exit;
|
||||
end;
|
||||
|
||||
|
|
@ -1704,7 +1705,11 @@ begin
|
|||
application.MessageBox('卷号不能为空', '提示');
|
||||
exit;
|
||||
end;
|
||||
|
||||
if trim(MJStr4.text) = '' then
|
||||
begin
|
||||
application.MessageBox('缸号不能为空', '提示');
|
||||
exit;
|
||||
end;
|
||||
if trim(MJXH.text) = '0' then
|
||||
begin
|
||||
application.MessageBox('卷号不能为0', '提示');
|
||||
|
|
@ -1775,6 +1780,11 @@ begin
|
|||
|
||||
BTPrint.Enabled := False;
|
||||
Timer1.Enabled := True;
|
||||
if Canprint = false then
|
||||
begin
|
||||
Application.MessageBox('长度没有变化，不能提交!', '提示', 0);
|
||||
Exit;
|
||||
end;
|
||||
fRoll := Tstringlist.Create;
|
||||
for i := 1 to strtointdef(Edit14.Text, 1) do
|
||||
begin
|
||||
|
|
@ -1813,6 +1823,7 @@ begin
|
|||
BTAdd.Click;
|
||||
MJLen.SetFocus;
|
||||
MJLen.OnClick(Mjlen);
|
||||
Canprint := False;
|
||||
|
||||
// if SaveData() then
|
||||
// begin
|
||||
|
|
@ -2566,7 +2577,7 @@ var
|
|||
begin
|
||||
fRollType := '';
|
||||
with ADOTmp do
|
||||
begin
|
||||
begin
|
||||
Close;
|
||||
sql.Clear;
|
||||
sql.Add('select B.*,B.OrderNo OrderNoM,C.*, ');
|
||||
|
|
@ -2641,11 +2652,7 @@ begin
|
|||
kmxs.Text := Trim(ADOTmp.fieldbyname('kmxs').AsString);
|
||||
MJFK.Text := Trim(ADOTmp.fieldbyname('PRTMF').AsString);
|
||||
MJSJKZ.Text := Trim(ADOTmp.fieldbyname('PRTKZ').AsString);
|
||||
// CustomerNoName.Text:=CustomerNoName.Text;
|
||||
// PRTCodeName.Text:=PRTCodeName.Text;
|
||||
// PRTHX.Text:=PRTHX.Text;
|
||||
// PRTColor.Text:=PRTColor.Text;
|
||||
// SOrddefstr1.Text:=SOrddefstr1.Text;
|
||||
|
||||
if edit10.Text = '' then
|
||||
begin
|
||||
MJXH.Text := inttostr(ADOTmp.fieldbyname('maxMJxh').AsInteger + 1);
|
||||
|
|
@ -2665,7 +2672,7 @@ begin
|
|||
end;
|
||||
baoid.Text := FBaoID;
|
||||
Edit3.Text := '√';
|
||||
Edit4.Text := '';
|
||||
Edit4.Text := '';
|
||||
MJStr4.Text := '';
|
||||
dingdanhao.Text := Trim(ADOTmp.fieldbyname('OrderNo').AsString);
|
||||
dingdanhao.OnChange(dingdanhao);
|
||||
|
|
@ -2747,6 +2754,11 @@ end;
|
|||
procedure TfrmMJManageNewFDNewSF.MJLenChange(Sender: TObject);
|
||||
begin
|
||||
// MJLen.Text:=JsXj(MJLen.Text);
|
||||
if StrToFloatDef((MJLen.Text), 0) > 5 then
|
||||
begin
|
||||
Canprint := True;
|
||||
end;
|
||||
|
||||
end;
|
||||
|
||||
procedure TfrmMJManageNewFDNewSF.MJQty3Change(Sender: TObject);
|
||||
|
|
|
|||
Loading…
Reference in New Issue
Block a user