mrp_qry_analyzermo6_mopo.pas

一个MRPII系统源代码版本

unit Mrp_Qry_AnalyzerMo6_MoPo;

Interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  Base_Qry, Menus, ExtPrintReport, Db, ActnList, AdODB, Grids, DBGridEh,
  StdCtrls, ExtCtrls, ComCtrls, ToolWin;

Type
  TFrm_Mrp_Qry_AnalyzerMo6_MoPo = Class(TFrm_Base_Qry)
    AdoQry_MainMoNo: TStringField;
    AdoQry_MainMoDate: TDateTimeField;
    AdoQry_MainMoLineNo: TIntegerField;
    AdoQry_MainMoQty: TFloatField;
    AdoQry_MainMoStArtWorkDate: TDateTimeField;
    AdoQry_MainMoRealInqty: TFloatField;
    AdoQry_MainMoInqty: TFloatField;
    AdoQry_MainMoLineDate: TDateTimeField;
    AdoQry_MainMoNoFinishQty: TFloatField;
    AdoQry_MainMoLinestatus: TIntegerField;
    AdoQry_Mainfalg: TIntegerField;
    procedure Act_LookExecute(Sender: TObject);
  private
    { Private declarations }
  public
     procedure InitForm(AdOConnection:TAdOConnection;ReadOnly:Boolean);Override;
    { Public declarations }
  end;

var
  Frm_Mrp_Qry_AnalyzerMo6_MoPo: TFrm_Mrp_Qry_AnalyzerMo6_MoPo;

implementation

uses Mrp_Qry_AnalyzerMo6, Mrp_Qry_AnalyzerMo6_Po_D,
  Mrp_Qry_AnalyzerMo6_Mo_D;

{$R *.DFM}

{ TFrm_Mrp_Qry_AnalyzerMo6_MoPo }

procedure TFrm_Mrp_Qry_AnalyzerMo6_MoPo.InitForm(
  AdOConnection: TAdOConnection; ReadOnly: Boolean);
begin
  inherited;
  SelectFromSQL:=' Select Mo.MoNo,Mo.MoDate,MoLine.MoLineNo,MoLine.MoQty,MoLine.MoStArtWorkDate,MoLine.MoRealInqty,MoLine.MoInqty,'
                +' MoLine.MoLineDate,MoLine.MoNoFinishQty,MoLine.MoLinestatus,falg=0 '
                +' From Mo join MoLine on Mo.MoNo=MoLine.MoNo '
                +' where MoLine.ItemCode='''+Mrp_Qry_AnalyzerMo6.Ite_ItemCode +''''
                +' and Mo.Modate Between '''+Mrp_Qry_AnalyzerMo6.Datestate+''' and '''+Mrp_Qry_AnalyzerMo6.Dateend +''''
                +' And MoLine.MoLineStatus =7'
                +' union '
                +' Select Po.PoNo,Po.PoDate,Poline.PoLineNo,Poline.PoQty,Poline.PoStArtWorkDate,Poline.PorealInqty,Poline.PoInqty,'
                +' Poline.PolineDate,Poline.PoNoFinishQty,Poline.Polinestatus,falg=1 '
                +' From Po join Poline on Po.PoNo=Poline.PoNo '
                +' where PoLine.ItemCode= '''+Mrp_Qry_AnalyzerMo6.Ite_ItemCode +''''
                +' and Po.Podate Between '''+Mrp_Qry_AnalyzerMo6.Datestate+''' and '''+Mrp_Qry_AnalyzerMo6.Dateend +''''
                +' And PoType=3 '
                +' And PoLine.PoLineStatus =7 ';
  getdata;
end;

procedure TFrm_Mrp_Qry_AnalyzerMo6_MoPo.Act_LookExecute(Sender: TObject);
var
  SqlText:String;
  poType:string;
  linesta:string;
begin
  inherited;
  if AdoQry_Main.fieldbyname('falg').asinteger=0 then
  begin
    try
     with TFrm_Mrp_Qry_AnalyzerMo6_Mo_D.Create(Application) do
      begin
         AdoQry_Tmp.Connection:=dbconnect;
         SqlText:=' Select Mo.* ,MoLine.*  from Mo join MoLine on Mo.Mono=MoLine.MoNO '
                 +' and  MoLine.Mono='''+AdoQry_Main.fieldbyname('mono').asstring+''' '
                 +' and MoLine.MoLineno='''+AdoQry_Main.fieldbyname('MoLineno').asstring+''' ';
         AdoQry_Tmp.Close;
         AdoQry_Tmp.SQL.Text:= SqlText;
         AdoQry_tmp.Open;
         case AdoQry_tmp.fieldbyname('MoLinestatus').asinteger of
           5: linesta:='5 准备';
           6: linesta:='6 下达';
           7: linesta:='7 关闭';
         end;

         maskedit1.Text:=AdoQry_tmp.fieldbyname('modate').asstring;
         if AdoQry_tmp.fieldbyname('StandardFlag').asinteger=0 then
           edit1.Text:='否'
         else edit1.Text:='是';
         edit2.Text:=AdoQry_tmp.fieldbyname('SaleType').asstring;
         edit3.Text:=AdoQry_tmp.fieldbyname('mono').asstring;
         edit4.Text:=AdoQry_tmp.fieldbyname('DeptCode').asstring;
         edit5.Text:=AdoQry_tmp.fieldbyname('MOSpecial').asstring;
         edit6.Text:=inttostr(AdoQry_tmp.fieldbyname('MoLineno').asinteger);
         edit7.Text:=AdoQry_tmp.fieldbyname('ItemCode').asstring;
         edit8.Text:=AdoQry_tmp.fieldbyname('mostArtworkdate').asstring;
         edit9.Text:=AdoQry_tmp.fieldbyname('MoLinedate').asstring;
         edit10.Text:=floattostr(AdoQry_tmp.fieldbyname('moqty').asfloat);
         edit11.Text:=floattostr(AdoQry_tmp.fieldbyname('MoNoFinishqty').asfloat);
         edit12.Text:=linesta;
         if AdoQry_tmp.fieldbyname('ByProduct').asinteger=0 then
           edit13.Text:='否'
         else edit13.Text:='是';
         edit15.Text:=floattostr(AdoQry_tmp.fieldbyname('ssqty').asfloat);
         edit16.Text:=floattostr(AdoQry_tmp.fieldbyname('MoRealInQty').asfloat);
         edit17.Text:=floattostr(AdoQry_tmp.fieldbyname('MoRealInQty').asfloat);
         showmodal;
      end;
    finally
      Frm_Mrp_Qry_AnalyzerMo6_Mo_D.Free;
    end;

  end
  else
  begin
   try
     with TFrm_Mrp_Qry_AnalyzerMo6_Po_D.Create(Application) do
      begin
         AdoQry_Tmp.Connection:=dbconnect;
         SqlText:=' Select Po.* ,PoLine.*  from Po join Poline on Po.Pono=PoLine.PoNO '
                 +' and  Poline.pono='''+AdoQry_Main.fieldbyname('mono').asstring+''' '
                 +' and POline.polineno='''+AdoQry_Main.fieldbyname('MoLineno').asstring+''' ';
         AdoQry_Tmp.Close;
         AdoQry_Tmp.SQL.Text:= SqlText;
         AdoQry_tmp.Open;
         case AdoQry_tmp.fieldbyname('poType').asinteger of
            0: poType:='普通采购';
            1: poType:='进口采购';
            2: poType:='委外加工';
         end;
         case AdoQry_tmp.fieldbyname('polinestatus').asinteger of
           5: linesta:='5 准备';
           6: linesta:='6 下达';
           7: linesta:='7 关闭';
         end;

         maskedit1.Text:=AdoQry_tmp.fieldbyname('podate').asstring;
         edit1.Text:=AdoQry_tmp.fieldbyname('EmployeeCode').asstring;
         edit2.Text:=AdoQry_tmp.fieldbyname('pcno').asstring;
         edit3.Text:=AdoQry_tmp.fieldbyname('pono').asstring;
         edit4.Text:=AdoQry_tmp.fieldbyname('VendorCode').asstring;
         edit6.Text:=poType;
         edit6.Text:=inttostr(AdoQry_tmp.fieldbyname('polineno').asinteger);
         edit7.Text:=AdoQry_tmp.fieldbyname('ItemCode').asstring;
         edit8.Text:=AdoQry_tmp.fieldbyname('postArtworkdate').asstring;
         edit9.Text:=AdoQry_tmp.fieldbyname('polinedate').asstring;
         edit10.Text:=floattostr(AdoQry_tmp.fieldbyname('poqty').asfloat);
         edit11.Text:=floattostr(AdoQry_tmp.fieldbyname('ponoFinishqty').asfloat);
         edit12.Text:=linesta;
         if AdoQry_tmp.fieldbyname('poreferencedPrice').asinteger=0 then
         edit13.Text:='否'
         else edit13.Text:='是';
         edit14.Text:=floattostr(AdoQry_tmp.fieldbyname('potaxPrice').asfloat);
         edit16.Text:=floattostr(AdoQry_tmp.fieldbyname('potaxAmount').asfloat);
         edit16.Text:=floattostr(AdoQry_tmp.fieldbyname('ponotaxPrice').asfloat);
         edit17.Text:=floattostr(AdoQry_tmp.fieldbyname('ponotaxAmount').asfloat);
         showmodal;
      end;
    finally
      Frm_Mrp_Qry_AnalyzerMo6_Po_D.Free;
    end;
  end;
end;

end.