matin.pas

文件包含程序源原文件

unit MatIN;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, tabFrm, ImgList, ExtCtrls, ComCtrls, StdCtrls, Buttons, Ex2nmedt,
  InvDef, EnhLV, GLLV, ComObj, xlsConst, Math, ClipBrd, InvHistory, dpConst;

type
  TfrmMatIN = class(TTabForm)
    pnlInput: TPanel;
    lblindate: TLabel;
    lblCode: TLabel;
    lblName: TLabel;
    lblRemarks: TLabel;
    lblpaper: TLabel;
    btnMatQry: TSpeedButton;
    lblOutType: TLabel;
    lblRecieve: TLabel;
    lblInVoice: TLabel;
    lblUType: TLabel;
    lblInGuage: TLabel;
    lblunitPrice: TLabel;
    lblINQuantity: TLabel;
    lblINAmount: TLabel;
    lblMold: TLabel;
    lblPart: TLabel;
    btnOrdDelivery: TSpeedButton;
    lblStockID: TLabel;
    lblSuplier: TLabel;
    lblMaker: TLabel;
    lblOrderSerial: TLabel;
    edtDate: TEdit;
    edtMatCode: TEdit;
    edtMatName: TEdit;
    edtNote: TEdit;
    edtINPaperNo: TEdit;
    cbxMatIn: TComboBox;
    cbxInput: TComboBox;
    edtInputEmpName: TEdit;
    edtInputEmpID: TEdit;
    edtMatInID: TEdit;
    edtInIDName: TEdit;
    edtInvoiceNo: TEdit;
    edtPrice: TEx2NumEdit;
    edtWeight: TEx2NumEdit;
    edtMoldID: TEdit;
    edtPartID: TEdit;
    Panel4: TPanel;
    btnNew: TBitBtn;
    Panel9: TPanel;
    cbxStk: TComboBox;
    edtStkID: TEdit;
    edtStkName: TEdit;
    edtSuplierCode: TEx2NumEdit;
    edtMakerCode: TEx2NumEdit;
    Panel5: TPanel;
    Panel1: TPanel;
    btnDelete: TBitBtn;
    edtOrderSerial: TEdit;
    cbxGuage: TComboBox;
    edtGuageID: TEx2NumEdit;
    edtGuageName: TEdit;
    Panel2: TPanel;
    btnSave: TBitBtn;
    lblIsspaper: TLabel;
    edtIssPaperNO: TEdit;
    cbxSuplier: TComboBox;
    lblSupplierNM: TEdit;
    cbxMaker: TComboBox;
    lblMakerNM: TEdit;
    Panel3: TPanel;
    ckbNew: TCheckBox;
    rdoGroupBy: TRadioGroup;
    tabsGroup: TTabControl;
    Panel11: TPanel;
    Panel7: TPanel;
    ListViewMatIN: TGradLineListView;
    Panel6: TPanel;
    btnGuageDef: TSpeedButton;
    lblTPrice: TLabel;
    edtOrderCode: TEdit;
    lblOrderCode: TLabel;
    edtMakPrice: TEx2NumEdit;
    lblMakerPrice: TLabel;
    edtSequalNo: TEdit;
    lblSequalNo: TLabel;
    btnPaper: TBitBtn;
    cbxReportID: TComboBox;
    procedure FormCreate(Sender: TObject);
    procedure FormShow(Sender: TObject);
    procedure FormDestroy(Sender: TObject);
    procedure FormCloseQuery(Sender: TObject; var CanClose: Boolean);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);

    procedure TabControlChanging(Sender: TObject; var AllowChange: Boolean);
    procedure ControlChange(Sender: TObject);

    procedure ControlExit(Sender: TObject);
    procedure edtNoteKeyDown(Sender: TObject; var Key: Word; Shift: TShiftState);
    procedure edtDateKeyDown(Sender: TObject; var Key: Word; Shift: TShiftState);

    procedure btnNewClick(Sender: TObject);
    procedure btnSaveClick(Sender: TObject);
    procedure btnDeleteClick(Sender: TObject);
    procedure ckbNewClick(Sender: TObject);
    procedure btnExitClick(Sender: TObject);

    procedure rdoGroupByClick(Sender: TObject);
    procedure tabsGroupChange(Sender: TObject);
    procedure cbxGuageDropDown(Sender: TObject);
    procedure cbxStkChange(Sender: TObject);
    procedure cbxMatInDropDown(Sender: TObject);
    procedure cbxMatInChange(Sender: TObject);
    procedure cbxInputDropDown(Sender: TObject);
    procedure cbxInputChange(Sender: TObject);
    procedure btnPaperClick(Sender: TObject);
    procedure btnMatQryClick(Sender: TObject);
    procedure btnOrdDeliveryClick(Sender: TObject);
    procedure cbxGuageChange(Sender: TObject);
    procedure cbxSuplierDropDown(Sender: TObject);
    procedure cbxSuplierChange(Sender: TObject);
    procedure cbxMakerDropDown(Sender: TObject);
    procedure cbxMakerChange(Sender: TObject);
    procedure btnCaculateClick(Sender: TObject);
    procedure btnGuageDefClick(Sender: TObject);



  private
    { Private declarations }

    function  ReturnValueToVariable(lcP: PINVENTORY; CtrlList: PCONTROL_LIST; Msg: Boolean): Boolean;
    procedure SetData(Item: Pointer);
    procedure SetNull;
    function  ErrorCheck(Item: PINVENTORY): Integer;
    function  UpdateProc(UpdateListList: TList): Boolean;
    procedure UpdateCheck;
    procedure SetCopy;

    //////////////////////////////////////////////////////
    //////////////////////////////////////////////////////
    //////////////////////////////////////////////////////
    procedure Read_IOChangedList;
    Function  Set_QueryedList(sList: TList): TList;
    procedure CreateTabs_ByGroup(rdoIndex: integer; sList: TList);
    procedure Set_QryList_FromTabs(iTab: integer; FGroupList: TList);
    Function  CheckViewData(lcPA: Pointer; rdoTitleIndex,TabIndex: integer): boolean;
    
    procedure SetListView;
    function  SetListColumn(sListView: TGradLineListView): Integer;
    procedure MakeItemCaption(Item: TListItem);

    procedure set_tmpdata(i: integer; lcp: PINVENTORY; agp: PUnDeliveryOnTime);

    procedure SetMultilingual;
  public
    { Public declarations }
    default_suplier: integer;
    default_issuepaper: string;
    default_ioid: string;
    default_inmanid: string;
    default_stkid:   string;

    procedure SetNew(Index: Integer);
    function  RECExists(RecID: LongInt): Boolean;

    Procedure Excel_StockInList(sList: TList; iReport: Integer);

  protected
    { Protected }
    function  GetTabCaption(Item: Pointer): string; override;
    procedure SetKomoku(Item: Pointer); override;

  end;

var
  frmMatIN: TfrmMatIN;
  FExitSkip: boolean;
  MatRID: LongInt;

  //////////////////////
  FMatIOList,
  FQueryList: TList;
  FListViewClear,
  FOnMakeItemCaption: Boolean;
  FSelectedItem: TListItem;
  FColCnt: Integer;

  /////////////////////
  FGroupValue: array[0..120000] of variant;  //-- TabControl tabs group value
  sFDate,sEDate: TDateTime;

implementation

uses Main, InvDM, QryMaterial, QryOrderDelivery, InSuplier;

{$R *.dfm}

procedure TfrmMatIN.FormCreate(Sender: TObject);
var ix: integer;
    View: TINVENTORY;
begin
  inherited;
  Top    := frmMain.Height;
  Left   := 0;
  Width  := Screen.Width;
  Height := Screen.Height-(frmMain.Height+20);

  /////////////////////////////
  FMatIOList := TList.Create;
  FMatIOList.Clear;

  FQueryList := TList.Create;
  FQueryList.Clear;

  IX := 0;
  InitCtrlList(edtIssPaperNO,  IX, Longint(@View.ISS_PAPERNO)-Longint(@View),    nil,nil);
  Inc(IX);
  InitCtrlList(edtINPaperNo,   IX, Longint(@View.PAPERNO)-Longint(@View),    nil,nil);
  Inc(IX);
  InitCtrlList(edtDate,        IX, Longint(@View.date)-Longint(@View),    nil,nil);
  Inc(IX);
  InitCtrlList(edtSuplierCode, IX, Longint(@View.SUP_CD)-Longint(@View),    nil,nil);
  Inc(IX);
  InitCtrlList(edtInvoiceNo,   IX, Longint(@View.INVOICE_NO)-Longint(@View),    nil,nil);
  Inc(IX);
  InitCtrlList(edtMoldID,      IX, Longint(@View.ODR_RID)-Longint(@View),    nil,nil);
  Inc(IX);
  InitCtrlList(edtPartID,      IX, Longint(@View.PAT_RID)-Longint(@View),    nil,nil);
  Inc(IX);
  InitCtrlList(edtSequalNo,      IX, Longint(@View.SEQUAL_NO)-Longint(@View),    nil,nil);
  Inc(IX);

  InitCtrlList(edtMatCode,     IX, Longint(@View.MAT_RID)-Longint(@View),    nil,nil);
  Inc(IX);
  InitCtrlList(edtMatName,     IX, Longint(@View.MAT_NM)-Longint(@View),    nil,nil);
  Inc(IX);
  InitCtrlList(edtGuageID,     IX,  Longint(@View.GUAGE_ID)-Longint(@View),    nil,nil);
  Inc(IX);
  InitCtrlList(edtWeight,      IX, Longint(@View.QUANTITY)-Longint(@View),    nil,nil);
  Inc(IX);
  InitCtrlList(edtPrice,       IX, Longint(@View.UNT_PRICE)-Longint(@View),    nil,nil);
  Inc(IX);
  InitCtrlList(edtMakPrice,      IX, Longint(@View.MAK_PRICE)-Longint(@View),    nil,nil);
  Inc(IX);
  InitCtrlList(edtMakerCode,   IX, Longint(@View.MAK_CD)-Longint(@View),    nil,nil);
  Inc(IX);

  InitCtrlList(edtStkID,       IX, Longint(@View.stk_id)-Longint(@View),   nil,nil);
  Inc(IX);
  InitCtrlList(edtMatInID,     IX, Longint(@View.INOUT_ID)-Longint(@View),    nil,nil);
  Inc(IX);
  InitCtrlList(edtInputEmpID,  IX, Longint(@View.INPUT_EMPID)-Longint(@View),    nil,nil);
  Inc(IX);
  InitCtrlList(edtOrderCode, IX, Longint(@View.HAT_CODE)-Longint(@View),    nil,nil);
  Inc(IX);
  InitCtrlList(edtOrderSerial, IX, Longint(@View.HAT_RID)-Longint(@View),    nil,nil);
  Inc(IX);

  InitCtrlList(edtNote,        99, Longint(@View.NOTE)-Longint(@View),    nil,nil);
  PostCtrlList;

  SetMultilingual;
  SetNull;
end;

procedure TfrmMatIN.FormShow(Sender: TObject);
begin
  Top    := frmMain.Height;
  Left   := 0;
  Width  := Screen.Width;
  Height := Screen.Height-(frmMain.Height+20);

  cbxReportID.ItemIndex := 0;

  TabControl.Tabs.Clear;
  SetNew(-1);
  if TabControl.Tabs.Count > 0 then SelectTabIndex(0);

  //////////////////////////////////////////////////////
  sFDate := Now;
  sEDate := Now+1;
  dm_Inventory.Read_IOHistory(FMatIOList,trim(edtStkID.Text),0,sFDate,sEDate);
  Set_QueryedList(FQueryList);
  CreateTabs_ByGroup(rdoGroupBy.ItemIndex,FQueryList);
  tabsGroupChange(Self);
end;

procedure TfrmMatIN.FormDestroy(Sender: TObject);
begin
//
end;

procedure TfrmMatIN.FormCloseQuery(Sender: TObject; var CanClose: Boolean);
var UpdateListList, List: TList;
begin
  UpdateListList := GetUpdateListList;
  if (UpdateListList.Count>0)then begin
    List := UpdateListList[0];
    if (List.Count=0) then Exit;
    if ErrorCheck(Selected) <> 0 then begin
      CanClose := False;
      Exit;
    end;
    UpdateProc(UpdateListList);
    TabControl.Tabs.Clear;
  end;
  dm_Inventory.Delete_NullMaterial;
end;

procedure TfrmMatIN.FormClose(Sender: TObject; var Action: TCloseAction);
begin
  //frmInvHistory.ReReadProc(True);
  dm_Inventory.ListFreeMemory(FMatIOList);
  Action := caHide;
end;

procedure TfrmMatIN.ControlChange(Sender: TObject);
var CtrlList: PCONTROL_LIST;
    lcP:  PINVENTORY;
    WRID: LongInt;
    PInputID: string;
    T_price: Double;
begin
  if OnTabChange then Exit;
  if Selected = nil then Exit;
  lcP := Selected;
  try    CtrlList := GetCtrlListTarget(Sender as TWinControl);
  except
    Exit;
  end;

  if CtrlList = nil then Exit;
  if not FOnUndo then SetUndoBuffer(Sender as TWinControl);
  SetUpdateList(lcP^.REC_ID, CtrlList^.Address, CtrlList^.UpdateIndex, 0, lcP);

  //////////////////////////////////
  if Sender = edtStkID then begin
    edtStkName.Text := dm_Inventory.GetStockName(trim(edtStkID.Text));
  end;
  if Sender = edtMatInID then begin
    edtInIDName.Text := dm_Inventory.Get_IOIDName(trim(edtMatInID.Text),1);
  end;
  if Sender = edtInputEmpID then begin
    edtInputEmpName.Text := dm_Inventory.Get_EmpName(trim(edtInputEmpID.Text));
  end;

  if Sender = edtMatCode then begin
      WRID             := dm_Inventory.GetMaterialRID(TEdit(Sender).Text);
      edtMatName.Text  := dm_Inventory.GetMaterialName(WRID);
      lblUType.Caption := dm_Inventory.GetUnitTypeName(WRID);
      
      //////////////////////////