diff --git a/打卷检验管理/U_JYOrderCDOne.pas b/打卷检验管理/U_JYOrderCDOne.pas index 0883f3e..e41dd53 100644 --- a/打卷检验管理/U_JYOrderCDOne.pas +++ b/打卷检验管理/U_JYOrderCDOne.pas @@ -1116,7 +1116,7 @@ end; procedure TfrmJYOrderCDOne.PRTCodeNameChange(Sender: TObject); begin - TBFind.Click; + TBFind.Click; end; procedure TfrmJYOrderCDOne.ToolButton3Click(Sender: TObject); @@ -1134,66 +1134,82 @@ begin application.MessageBox('δܴӡ', 'ʾ'); exit; end; - try - Moudle := LoadLibrary('MakeQRBarcode.dll'); - @Makebar := GetProcAddress(Moudle, 'Make'); - @Mixtext := GetProcAddress(Moudle, 'MixText'); - Txt := Trim(Order_Main.fieldbyname('BaoID').AsString); - fImagePath := ExtractFilePath(Application.ExeName) + 'image\temp.bmp'; - if not DirectoryExists(pchar(ExtractFilePath(Application.ExeName) + 'image')) then - CreateDirectory(pchar(ExtractFilePath(Application.ExeName) + 'image'), nil); - if FileExists(fImagePath) then - DeleteFile(fImagePath); - Makebar(pchar(Txt), Length(Txt), 3, 3, 0, PChar(fImagePath), 3); - except - application.MessageBox('ʧܣ', 'ʾϢ', MB_ICONERROR); - Order_Main.EnableControls; - exit; - end; - with ADOQueryPrint do + Order_Main.DisableControls; + with Order_Main do begin - Close; - SQL.Clear; - sql.Add('select A.Baoid,A.BaoNo,A.MJTypeOther as QtyUnit,D.OrderNo,D.conNo,D.customerNoName,D.MprtCodeName,D.Mprtspec,D.OrdPerson1,D.MPRTKuanNO,D.LBName,D.NLBName,'); - sql.Add('PRTColor=DBO.F_Get_Order_SubStr(BaoID,''BNColor''),SOrddefstr1=DBO.F_Get_Order_SubStr(BaoID,''BNSOrddefstr1''),'); - sql.Add('SOrddefstr4=DBO.F_Get_Order_SubStr(BaoID,''BNSOrddefstr4''),PRtHX=DBO.F_Get_Order_SubStr(BaoID,''BNPRtHX''), '); - sql.Add('Mjstr4=DBO.F_Get_Order_SubStr(BaoID,''BNGangNo''), '); - sql.Add('BNMJLENLIST=DBO.F_Get_Order_SubStr(BaoID,''BNMJLENLIST''), '); - sql.Add('PRTkuanNo=DBO.F_Get_Order_SubStr(BaoID,''BNPrtkuanno''),'); - sql.Add('khConNo=(select top 1 khConNo from JYOrderCon_Main X where X.ConNO=D.conNO), '); - sql.Add('MprtCodeNameEng=(select top 1 Note from KH_Zdy X where X.zdyName=D.MprtCodeName), '); - SQL.ADD('count(A.MJID) as JSl,sum(A.MJMaoZ) MJMAOZ,sum(MJQty3) as MJQty3,sum(MJQty4) as MJQty4,SUM(A.MJLen)as MJLen'); - sql.Add('from WFB_MJJY A'); - sql.Add(' inner join JYOrder_Sub C on C.SubID=A.SubID'); - sql.Add(' inner join JYOrder_Main D on D.MainID=A.MainID'); - SQL.Add(' where A.BaoID=''' + Trim(Order_Main.fieldbyname('BaoID').AsString) + ''''); - SQL.ADD('group by A.Baoid,A.BaoNo,A.MJTypeOther,D.OrderNo,D.conNo,D.customerNoName,D.MprtCodeName,D.Mprtspec,D.OrdPerson1,D.MPRTKuanNO,D.LBName,D.NLBName'); - Open; - end; - if Trim(ADOQueryPrint.fieldbyname('NLBName').AsString) <> '' then - begin - ExportFtErpFile(Trim(ADOQueryPrint.fieldbyname('NLBName').AsString), ADOQueryCmd); - fPrintFile := ExtractFilePath(Application.ExeName) + 'Report\' + Trim(ADOQueryPrint.fieldbyname('NLBName').AsString); - end - else - begin - ExportFtErpFile('ͨðǩ.rmf', ADOQueryCmd); - fPrintFile := ExtractFilePath(Application.ExeName) + 'Report\ͨðǩ.rmf'; - end; + First; + while not Eof do + begin + if Order_Main.FieldByName('SSel').AsBoolean = True then + begin + try + Moudle := LoadLibrary('MakeQRBarcode.dll'); + @Makebar := GetProcAddress(Moudle, 'Make'); + @Mixtext := GetProcAddress(Moudle, 'MixText'); + Txt := Trim(Order_Main.fieldbyname('BaoID').AsString); + fImagePath := ExtractFilePath(Application.ExeName) + 'image\temp.bmp'; + if not DirectoryExists(pchar(ExtractFilePath(Application.ExeName) + 'image')) then + CreateDirectory(pchar(ExtractFilePath(Application.ExeName) + 'image'), nil); + if FileExists(fImagePath) then + DeleteFile(fImagePath); + Makebar(pchar(Txt), Length(Txt), 3, 3, 0, PChar(fImagePath), 3); + except + application.MessageBox('ʧܣ', 'ʾϢ', MB_ICONERROR); + Order_Main.EnableControls; + exit; + end; + with ADOQueryPrint do + begin + Close; + SQL.Clear; + sql.Add('select A.Baoid,A.BaoNo,A.MJTypeOther as QtyUnit,D.OrderNo,D.conNo,D.customerNoName,D.MprtCodeName,D.Mprtspec,D.OrdPerson1,D.MPRTKuanNO,D.LBName,D.NLBName,'); + sql.Add('PRTColor=DBO.F_Get_Order_SubStr(BaoID,''BNColor''),SOrddefstr1=DBO.F_Get_Order_SubStr(BaoID,''BNSOrddefstr1''),'); + sql.Add('SOrddefstr4=DBO.F_Get_Order_SubStr(BaoID,''BNSOrddefstr4''),PRtHX=DBO.F_Get_Order_SubStr(BaoID,''BNPRtHX''), '); + sql.Add('Mjstr4=DBO.F_Get_Order_SubStr(BaoID,''BNGangNo''), '); + sql.Add('MJxh=DBO.F_Get_Order_SubStr(BaoID,''BNMJXH''), '); + sql.Add('BNMJLENLIST=DBO.F_Get_Order_SubStr(BaoID,''BNMJLENLIST''), '); + sql.Add('PRTkuanNo=DBO.F_Get_Order_SubStr(BaoID,''BNPrtkuanno''),'); + sql.Add('khConNo=(select top 1 khConNo from JYOrderCon_Main X where X.ConNO=D.conNO), '); + sql.Add('MprtCodeNameEng=(select top 1 Note from KH_Zdy X where X.zdyName=D.MprtCodeName), '); + SQL.ADD('count(A.MJID) as JSl,sum(A.MJMaoZ) MJMAOZ,sum(MJQty3) as MJQty3,sum(MJQty4) as MJQty4,SUM(A.MJLen)as MJLen'); + sql.Add('from WFB_MJJY A'); + sql.Add(' inner join JYOrder_Sub C on C.SubID=A.SubID'); + sql.Add(' inner join JYOrder_Main D on D.MainID=A.MainID'); + SQL.Add(' where A.BaoID=''' + Trim(Order_Main.fieldbyname('BaoID').AsString) + ''''); + SQL.ADD('group by A.Baoid,A.BaoNo,A.MJTypeOther,D.OrderNo,D.conNo,D.customerNoName,D.MprtCodeName,D.Mprtspec,D.OrdPerson1,D.MPRTKuanNO,D.LBName,D.NLBName'); + Open; + end; + if Trim(ADOQueryPrint.fieldbyname('NLBName').AsString) <> '' then + begin + ExportFtErpFile(Trim(ADOQueryPrint.fieldbyname('NLBName').AsString), ADOQueryCmd); + fPrintFile := ExtractFilePath(Application.ExeName) + 'Report\' + Trim(ADOQueryPrint.fieldbyname('NLBName').AsString); + end + else + begin + ExportFtErpFile('ͨðǩ.rmf', ADOQueryCmd); + fPrintFile := ExtractFilePath(Application.ExeName) + 'Report\ͨðǩ.rmf'; + end; - if FileExists(fPrintFile) then - begin - RMVariables['QRBARCODE'] := fImagePath; - RM2.LoadFromFile(fPrintFile); - RM2.ShowReport; + if FileExists(fPrintFile) then + begin + RMVariables['QRBARCODE'] := fImagePath; + RM2.LoadFromFile(fPrintFile); + RM2.ShowReport; //RM2.printReport; - end - else - begin - Order_Main.EnableControls; - Application.MessageBox(PChar('û' + trim(fPrintFile)), 'ʾ', 0); - Exit; + end + else + begin + Order_Main.EnableControls; + Application.MessageBox(PChar('û' + trim(fPrintFile)), 'ʾ', 0); + Exit; + end; + end; + + Next; + end; end; + Order_Main.EnableControls; + end; procedure TfrmJYOrderCDOne.Button6Click(Sender: TObject); @@ -2175,7 +2191,7 @@ begin if Order_Main.IsEmpty then Exit; if Order_Main.Locate('SSel', True, []) = False then - begin + begin Application.MessageBox('ûѡ!', 'ʾ', 0); Exit; end; @@ -2196,8 +2212,9 @@ begin sql.Clear; sql.Add('Update JYOrder_Sub Set kmxs=''' + trim(Edit5.Text) + ''' '); sql.Add('where subid=''' + Trim(Order_Main.fieldbyname('subid').AsString) + ''''); - sql.Add('Update WFB_MJJY A,JYOrder_Sub B Set A.MJLen=A.MJQty4*B.kmxs '); - sql.Add('where A.subid=B.subid and MJID=''' + Trim(Order_Main.fieldbyname('MJID').AsString) + ''''); + sql.Add('UPDATE A SET A.MJLen = A.MJQty4 * B.kmxs '); + sql.Add('FROM WFB_MJJY A JOIN JYOrder_Sub B ON A.subid = B.subid'); + sql.Add('where MJID=''' + Trim(Order_Main.fieldbyname('MJID').AsString) + ''''); // ShowMessage(SQL.Text); ExecSQL; end;