inv_journalqry_inv.pas

一个MRPII系统源代码版本

unit Inv_JournalQry_Inv;

Interface

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

Type
  TFrm_Inv_JournalQry_Inv = Class(TFrm_Base_Qry)
    Label1: TLabel;
    DBText1: TDBText;
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure DBGridEhGetCellParams(Sender: TObject; Column: TColumnEh;
      AFont: TFont; var Background: TColor; State: TGridDrawState);
    procedure Act_LookExecute(Sender: TObject);
  private
    { Private declarations }
    tmpItemCode:string;
  public
    { Public declarations }
    procedure InitForm(AdOConnection:TAdOConnection;ShowExtendColumn:Boolean);Override;
  end;

var
  Frm_Inv_JournalQry_Inv: TFrm_Inv_JournalQry_Inv;

implementation

uses Inv_JournalQry_Inv_C, Inv_SaleBillQry, Inv_MnInBillQry,
  Inv_PurchaseInBillQry, Inv_OpOutBillQry, Inv_MnOutBillQry,
  Inv_OtherOutBillQry, Inv_OtherInBillQry, Inv_WhPMoveBillQry,
  Inv_CheckInBillQry,Sys_Global;

{$R *.DFM}

procedure TFrm_Inv_JournalQry_Inv.InitForm(AdOConnection:TAdOConnection;ShowExtendColumn:Boolean);
begin
  inherited;
  try
    AdoQry_Tmp.Close;
    AdoQry_Tmp.SQL.Text:='Drop TABLE #JournalQryInv';
    AdoQry_Tmp.ExecSQL;
  except
  end;
  AdoQry_Tmp.Close;
  AdoQry_Tmp.SQL.Text:='CREATE TABLE #JournalQryInv ('
    +' [JournalQryId] [numeric](18, 0) IDENTITY (1, 1) NOT NULL'
    +',[DateSting] [varchAr] (10) NULL'
    +',[MonthSting] [varchAr] (10) NULL'
    +',[BillTypeCode] [varchAr] (4) NULL'
    +',[InvBillNo] [varchAr] (30) NULL'
    +',[MoPoNo] [varchAr] (30) NULL'
    +',[InvBillRemArk] [varchAr] (200) NULL'
    +',[InvBillQty] [float] NULL'
    +',[OInvBillQty] [float] NULL'
    +',[InvBlncQty] [float] NULL'
    +',[InvBillCreateTime] [datetime] NULL'
    +',[WHCode] [varchAr] (4) NULL'
    +' )';
  AdoQry_Tmp.ExecSQL;
  SelectFromSQL:='Select DateSting'
    +',MonthSting'
    +',BillTypeCode'
    +',InvBillNo'
    +',MoPoNo'
    +',InvBillRemArk'
    +',InvBillQty'
    +',OInvBillQty'
    +',InvBlncQty'
    +',InvBillCreateTime'
    +',WHCode'
    +' From #JournalQryInv';
  OrderByFields:='MonthSting,InvBillCreateTime';
  Frm_Inv_JournalQry_Inv_C:=TFrm_Inv_JournalQry_Inv_C.Create(Self);
  if Param6='tmpItemCode' then
     Frm_Inv_JournalQry_Inv_C.defaultwhCode(AdOConnection,userCode,Param5);
  Frm_Sys_Condition:=Frm_Inv_JournalQry_Inv_C;
  Act_Filter.Execute;
end;

procedure TFrm_Inv_JournalQry_Inv.FormClose(Sender: TObject;
  var Action: TCloseAction);
begin
  inherited;
  AdoQry_Tmp.Close;
  AdoQry_Tmp.SQL.Text:='Drop TABLE #JournalQryInv';
  AdoQry_Tmp.ExecSQL;
end;

procedure TFrm_Inv_JournalQry_Inv.DBGridEhGetCellParams(Sender: TObject;
  Column: TColumnEh; AFont: TFont; var Background: TColor;
  State: TGridDrawState);
begin
  inherited;
  if (gdSelected in State)or(gdFocused in State) then
  begin
    Background:=clNavy;
    AFont.Color:=clWindow;
  end
  else
  begin
    if AdoQry_Main.fieldbyname('BillTypeCode').AsString='1102' then
    begin
      AFont.Color:=clBlue;
    end
    else
      AFont.Color:=clBlack;
  end;
  if (Column.FieldName='InvBillRemArk')
    and((AdoQry_Main.fieldbyname('InvBillRemArk').AsString='本月合计')
    or(AdoQry_Main.fieldbyname('InvBillRemArk').AsString='本月合计(未结帐)')) then
  begin
    AFont.Color:=clRed;
  end
end;

procedure TFrm_Inv_JournalQry_Inv.Act_LookExecute(Sender: TObject);
begin
  inherited;
  if AdoQry_Main.Active=False then
    Exit;
  if(AdoQry_Main.fieldbyname('BillTypeCode').AsString='0203')
    or(AdoQry_Main.fieldbyname('BillTypeCode').AsString='0204')then
  begin
    Application.CreateForm(TFrm_Inv_SaleBillQry,Frm_Inv_SaleBillQry);
    Frm_Inv_SaleBillQry.Getvar(GetCode(AdoQry_Main.fieldbyname('InvBillNo').AsString),
      AdoQry_Main.fieldbyname('WHCode').AsString,
      AdoQry_Main.fieldbyname('BillTypeCode').AsString,'Inv');
    Frm_Inv_SaleBillQry.InitForm(DBConnect,True);
  end
  else if(AdoQry_Main.fieldbyname('BillTypeCode').AsString='0105')
    or(AdoQry_Main.fieldbyname('BillTypeCode').AsString='0104')then
  begin
    Application.CreateForm(TFrm_Inv_MnInBillQry,Frm_Inv_MnInBillQry);
    Frm_Inv_MnInBillQry.Getvar(GetCode(AdoQry_Main.fieldbyname('InvBillNo').AsString),
      AdoQry_Main.fieldbyname('WHCode').AsString,
      AdoQry_Main.fieldbyname('BillTypeCode').AsString);
    Frm_Inv_MnInBillQry.InitForm(DBConnect,False);
  end
  else if(AdoQry_Main.fieldbyname('BillTypeCode').AsString='0101')
    or(AdoQry_Main.fieldbyname('BillTypeCode').AsString='0102')
    or(AdoQry_Main.fieldbyname('BillTypeCode').AsString='0103')then
  begin
    Application.CreateForm(TFrm_Inv_PurchaseInBillQry,Frm_Inv_PurchaseInBillQry);
    Frm_Inv_PurchaseInBillQry.Getvar(GetCode(AdoQry_Main.fieldbyname('InvBillNo').AsString),
      AdoQry_Main.fieldbyname('WHCode').AsString,
      AdoQry_Main.fieldbyname('BillTypeCode').AsString);
    Frm_Inv_PurchaseInBillQry.InitForm(DBConnect,False);
  end
  else if(AdoQry_Main.fieldbyname('BillTypeCode').AsString='0202')then
  begin
    Application.CreateForm(TFrm_Inv_OpOutBillQry,Frm_Inv_OpOutBillQry);
    Frm_Inv_OpOutBillQry.Getvar(GetCode(AdoQry_Main.fieldbyname('InvBillNo').AsString),
      AdoQry_Main.fieldbyname('WHCode').AsString,
      AdoQry_Main.fieldbyname('BillTypeCode').AsString);
    Frm_Inv_OpOutBillQry.InitForm(DBConnect,False);
  end
  else if(AdoQry_Main.fieldbyname('BillTypeCode').AsString='0201')then
  begin
    Application.CreateForm(TFrm_Inv_MnOutBillQry,Frm_Inv_MnOutBillQry);
    Frm_Inv_MnOutBillQry.Getvar(GetCode(AdoQry_Main.fieldbyname('InvBillNo').AsString),
      AdoQry_Main.fieldbyname('WHCode').AsString,
      AdoQry_Main.fieldbyname('BillTypeCode').AsString);
    Frm_Inv_MnOutBillQry.InitForm(DBConnect,False);
  end
  else if(AdoQry_Main.fieldbyname('BillTypeCode').AsString='0299')then
  begin
    Application.CreateForm(TFrm_Inv_OtherOutBillQry,Frm_Inv_OtherOutBillQry);
    Frm_Inv_OtherOutBillQry.Getvar(GetCode(AdoQry_Main.fieldbyname('InvBillNo').AsString),
      AdoQry_Main.fieldbyname('WHCode').AsString,
      AdoQry_Main.fieldbyname('BillTypeCode').AsString);
    Frm_Inv_OtherOutBillQry.InitForm(DBConnect,False);
  end
  else if(AdoQry_Main.fieldbyname('BillTypeCode').AsString='0199')then
  begin
    Application.CreateForm(TFrm_Inv_OtherInBillQry,Frm_Inv_OtherInBillQry);
    Frm_Inv_OtherInBillQry.Getvar(GetCode(AdoQry_Main.fieldbyname('InvBillNo').AsString),
      AdoQry_Main.fieldbyname('WHCode').AsString,
      AdoQry_Main.fieldbyname('BillTypeCode').AsString,
      AdoQry_Main.fieldbyname('DateSting').AsString);
    Frm_Inv_OtherInBillQry.InitForm(DBConnect,False);
  end
  else if(AdoQry_Main.fieldbyname('BillTypeCode').AsString='1101')then
  begin
    Application.CreateForm(TFrm_Inv_WhPMoveBillQry,Frm_Inv_WhPMoveBillQry);
    Frm_Inv_WhPMoveBillQry.Getvar(GetCode(AdoQry_Main.fieldbyname('InvBillNo').AsString),
      AdoQry_Main.fieldbyname('WHCode').AsString,
      AdoQry_Main.fieldbyname('BillTypeCode').AsString);
    Frm_Inv_WhPMoveBillQry.InitForm(DBConnect,True);
  end
  else if(AdoQry_Main.fieldbyname('BillTypeCode').AsString='1102')then
  begin
    Application.CreateForm(TFrm_Inv_CheckInBillQry,Frm_Inv_CheckInBillQry);
    Frm_Inv_CheckInBillQry.Getvar(GetCode(AdoQry_Main.fieldbyname('InvBillNo').AsString),
      AdoQry_Main.fieldbyname('WHCode').AsString);
    Frm_Inv_CheckInBillQry.InitForm(DBConnect,'ReadOnly',AdoQry_Main);
    Frm_Inv_CheckInBillQry.ShowModal;
    Frm_Inv_CheckInBillQry.Release;
  end;
end;

end.