⭐ 欢迎来到虫虫下载站！ | 📦 资源下载 📁 资源专辑 ℹ️ 关于我们
⭐ 虫虫下载站
📤 上传资源

📄 tuneinvqty.~pas

📁 文件包含程序源原文件
💻 ~PAS
📖 第 1 页 / 共 4 页
字号:
🔍
1234 
unit TuneInvQty;

interface

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

type
  TfrmTuneInvQty = class(TTabForm)
    pnlInput: TPanel;
    lblOutdate: TLabel;
    lblCode: TLabel;
    lblName: TLabel;
    lblRemarks: TLabel;
    lblpaper: TLabel;
    btnMatQry: TSpeedButton;
    lblOutType: TLabel;
    lblUType: TLabel;
    Label1: TLabel;
    Label4: TLabel;
    Label5: TLabel;
    Label7: TLabel;
    lblTPrice: TLabel;
    Label16: TLabel;
    edtDate: TEdit;
    edtMatCode: TEdit;
    edtMatName: TEdit;
    edtNote: TEdit;
    edtPaperNo: TEdit;
    cbxMatOut: TComboBox;
    edtMatOutID: TEdit;
    edtOutIDName: TEdit;
    edtPrice: TEx2NumEdit;
    edtIssWeight: TEx2NumEdit;
    Panel4: TPanel;
    btnNew: TBitBtn;
    Panel9: TPanel;
    cbxStk: TComboBox;
    edtStkID: TEdit;
    edtStkName: TEdit;
    Panel5: TPanel;
    Panel1: TPanel;
    btnDelete: TBitBtn;
    cbxOutGuage: TComboBox;
    edtIssGuageID: TEx2NumEdit;
    edtIssGuageName: TEdit;
    btnSave: TBitBtn;
    cbxInput: TComboBox;
    edtInputEmpID: TEdit;
    edtInputEmpName: TEdit;
    Label3: TLabel;
    Label8: TLabel;
    edtSuplierCode: TEx2NumEdit;
    Label19: TLabel;
    edtMakerCode: TEx2NumEdit;
    cbxSuplier: TComboBox;
    lblSupplierNM: TEdit;
    cbxMaker: TComboBox;
    lblMakerNM: TEdit;
    Label9: TLabel;
    Label10: TLabel;
    Label11: TLabel;
    edtMakPrice: TEx2NumEdit;
    Label2: TLabel;
    edtstkPrice: TEx2NumEdit;
    edtStdPrice: TEx2NumEdit;
    edtCurrQty: TEx2NumEdit;
    Panel3: TPanel;
    rdoGroupBy: TRadioGroup;
    Panel8: TPanel;
    tabsGroup: TTabControl;
    Panel11: TPanel;
    Panel7: TPanel;
    ListViewMatIN: TGradLineListView;
    ckbNew: TCheckBox;
    Panel6: TPanel;
    edtIssPaper: TEdit;
    lblIssPaper: TLabel;
    lblMold: TLabel;
    lblPart: TLabel;
    lblSequalNo: TLabel;
    edtPartID: TEdit;
    edtMoldID: TEdit;
    edtSequalNo: TEdit;
    lblOrderSerial: TLabel;
    edtOrderSerial: TEdit;
    lblOrderCode: TLabel;
    edtOrderCode: TEdit;
    lblInVoice: TLabel;
    edtInvoiceNo: TEdit;
    btnPaper: TBitBtn;
    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 btnExcelClick(Sender: TObject);
    procedure btnExitClick(Sender: TObject);

    procedure rdoGroupByClick(Sender: TObject);
    procedure tabsGroupChange(Sender: TObject);
    procedure cbxStkChange(Sender: TObject);
    procedure cbxOutGuageDropDown(Sender: TObject);
    procedure cbxOutGuageChange(Sender: TObject);
    procedure cbxMatOutDropDown(Sender: TObject);
    procedure cbxMatOutChange(Sender: TObject);
    procedure cbxInputDropDown(Sender: TObject);
    procedure cbxInputChange(Sender: TObject);
    procedure btnMatQryClick(Sender: TObject);
    procedure btnPaperClick(Sender: TObject);
    procedure cbxSuplierDropDown(Sender: TObject);
    procedure cbxSuplierChange(Sender: TObject);
    procedure cbxMakerDropDown(Sender: TObject);
    procedure cbxMakerChange(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);
    
  public
    { Public declarations }
    default_stkid: string;
    
    procedure SetNew(Index: Integer);
    function  RECExists(RecID: LongInt): Boolean;

    /////////////////////////////////////////////////////
    /////////////////////////////////////////////////////
    procedure SetBalanceList(RID: LongInt; List: TList; DT: TDateTime);
    function  SetInventoryCnt(rec_id,mat_rec_id,guage_id: LongInt; stk_id: string; DT: TDateTime; var Cnt: Double): Double;

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

  end;

var
  frmTuneInvQty: TfrmTuneInvQty;
  FExitSkip: boolean;
  InvCnt: Double;
  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;
  FList: TList;

implementation

uses Main, InvDM, QryMaterial;

{$R *.dfm}

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

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

  FQueryList := TList.Create;
  FQueryList.Clear;

  IX := 0;
  InitCtrlList(edtStkID,       IX, Longint(@View.stk_id)-Longint(@View),   nil,nil);
  Inc(IX);
  InitCtrlList(edtPaperNo,     IX, Longint(@View.PAPERNO)-Longint(@View),    nil,nil);
  Inc(IX);
  InitCtrlList(edtMatOutID,     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(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(edtDate,        IX, Longint(@View.date)-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(edtIssGuageID,  IX, Longint(@View.GUAGE_ID)-Longint(@View),    nil,nil);
  Inc(IX);
  InitCtrlList(edtIssWeight,   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(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(edtIssPaper,    IX, Longint(@View.ISS_PAPERNO)-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;
  SetNull;

  FList := TList.Create;
  FList.Clear;
end;

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

  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),3,sFDate,sEDate);
  Set_QueryedList(FQueryList);
  CreateTabs_ByGroup(rdoGroupBy.ItemIndex,FQueryList);
  tabsGroupChange(Self);
end;

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

procedure TfrmTuneInvQty.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 TfrmTuneInvQty.FormClose(Sender: TObject; var Action: TCloseAction);
begin
  dm_Inventory.ListFreeMemory(FMatIOList);
  ModalResult := mrOK;
  Action := caHide;
  //frmInvHistory.ReReadProc(True);
end;

procedure TfrmTuneInvQty.ControlChange(Sender: TObject);
var CtrlList: PCONTROL_LIST;
    lcP:  PINVENTORY;
    WRID: LongInt;
    PInputID: string;
    View: TInventory;
    DBL: 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 = edtMatOutID then begin
    edtOutIDName.Text := dm_Inventory.Get_IOIDName(trim(edtMatOutID.Text),4);
  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);
      //////////////////////////
      lcp^.MAT_RID := WRID;
      edtIssGuageName.Text := dm_Inventory.Get_GuageName(WRID,Trunc(edtIssGuageID.Value));
      SetTabCaption(lcP);
    end;

  /////////////////////////////////
  if Sender = edtIssGuageID then
  begin
    edtIssGuageName.Text := dm_Inventory.Get_GuageName(lcp^.MAT_RID,Trunc(edtIssGuageID.Value));
    DBL := abs(SetInventoryCnt(lcP^.REC_ID,lcP^.MAT_RID,lcp^.GUAGE_ID,lcp^.STK_ID,lcP^.DATE,InvCnt));
    edtstkPrice.Value  := DBL;
    edtCurrQty.Value   := InvCnt;
    edtStdPrice.Value  := dm_inventory.GetStdUnitPrice(lcp^.MAT_RID);

    edtPrice.Value := dm_inventory.GetStdUnitPrice(lcp^.MAT_RID);;
  end;

  if (Sender = edtPrice)or(Sender = edtIssWeight)or(sender=edtMakPrice) then begin
    lblTPrice.Caption := FormatFloat('#,##0.00', UserDecimalDefine(edtPrice.Value*edtIssWeight.Value+edtMakPrice.Value,-2));
  end;

  if Sender = edtSuplierCode then
    lblSupplierNM.Text := dm_Inventory.GetShigenName(Trunc(edtSuplierCode.Value));

  if Sender = edtMakerCode then
    lblMakerNM.Text := dm_Inventory.GetShigenName(Trunc(edtMakerCode.Value));

  if Sender = edtNote then begin
    strPCopy(lcp^.NOTE,trim(edtNote.Text));
    SetUpdateList(lcP^.REC_ID, @lcP^.Note, LongInt(@View.Note)-LongInt(@View), 0, lcP);
  end;
  /////////////////////////////////
end;

procedure TfrmTuneInvQty.ControlExit(Sender: TObject);
var CtrlList: PCONTROL_LIST;
    lcP: Pointer;
begin
  if FExitSkip then Exit;
  if Selected = nil then Exit;
  lcP := Selected;
  try
    CtrlList := GetCtrlListTarget(Sender as TWinControl);
1234

⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -