otherin.~pas

文件包含程序源原文件

          default_suplier    := trunc(frmInSuplier.edtSuplierCode.Value);
          default_issuepaper := trim(frmInSuplier.edtIssPaperNO.Text);
          default_IOID       := trim(frmInSuplier.edtIOID.Text);
          default_InManID    := trim(frmInSuplier.edtManID.Text);
          default_stkid      := trim(frmInSuplier.edtStkID.Text);
          SetNew(-1);
        end;
      end
      else begin
        case MessageDlg(GetMultiLingalMsg(60106, 'confirm Copy Data to New Record!'), mtConfirmation, mbYesNoCancel, 0) of
          mrYes:    SetCopy;
          mrNo:     SetNew(-1);
          mrCancel: edtStkID.SetFocus;
        end;
      end
    end else edtSuplierCode.SetFocus;
  end;  //-- end if the first if.. then
end;

procedure TfrmOtherIn.ckbNewClick(Sender: TObject);
begin
  inherited;
  edtStkID.SetFocus;
end;

procedure TfrmOtherIn.btnSaveClick(Sender: TObject);
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 Exit;
    UpdateProc(UpdateListList);
    TabControl.Tabs.Clear;
    SetNew(-1);
    if TabControl.Tabs.Count > 0 then SelectTabIndex(0);
    Read_IOChangedList;
  end
  else begin
    TabControl.Tabs.Clear;
    SetNew(-1);
    if TabControl.Tabs.Count > 0 then SelectTabIndex(0);
    Read_IOChangedList;
  end;
end;

procedure TfrmOtherIn.btnDeleteClick(Sender: TObject);
var lcP: PINVENTORY;
begin
  if Selected <> nil then begin
    if MessageDlg('确定要删除当前正在编辑的记录吗,不删除的话系统会自动保存?',
      mtConfirmation, [mbYes, mbNo], 0) = mrNo then begin
      SetCtrlFocusFromIndex(0);
      Exit;
    end;
    lcP := Selected;
    if lcP^.REC_ID > 0 then begin
      dm_inventory.DeleteDatabase('inventory_sheet', lcP^.REC_ID);
      dm_inventory.UpdateHatNo_JKCD(lcp^.HAT_RID);
    end;
    FreeUpdateList(Selected);
    DeleteTab(Selected, False);
    if TabControl.TabIndex = -1 then Close;
  end
  else CLOSE;
end;

procedure TfrmOtherIn.btnExitClick(Sender: TObject);
begin
  //inherited;
  CLOSE;
end;

procedure TfrmOtherIn.set_caculatePanel(iBool: Boolean);
begin

end;

////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////
procedure TfrmOtherIn.Read_IOChangedList;
begin
  dm_Inventory.Read_IOHistory(FMatIOList,trim(edtStkID.Text),0,sFDate,sEDate);
  Set_QueryedList(FQueryList);
  CreateTabs_ByGroup(rdoGroupBy.ItemIndex,FQueryList);
  tabsGroupChange(Self);
end;

Function TfrmOtherIn.Set_QueryedList(sList: TList): TList;
  function SetQryCheck(lcP: PINVENTORY): Boolean;
  var i: Integer;
      WDate: array[0..1] of TDateTime;
  begin
    Result := True;
    //--
    WDate[0] := strtodatetime(formatdatetime('yyyy/mm/dd 00:00',Now));
    WDate[1] := strtodatetime(formatdatetime('yyyy/mm/dd 23:59',Now));
    if ((WDate[0] > 2) and (WDate[0] > lcP^.DATE))or
       ((WDate[1] > 2) and (WDate[1] < lcP^.DATE))then begin
      Result := False;
      Exit;
    end;

    if (lcp^.KIND <> 0) then begin
        result := false;
        exit;
      end;
  end;
var
  ix: integer;
  lcpA: PINVENTORY;
begin
   sList.Clear;
   for ix := 0 to FMatIOList.Count - 1 do
   begin
     lcpA := FMatIOList[ix];
     if not SetQryCheck(lcpA) then continue;
     sList.Add(lcpA);
   end;
   result := sList
end;

procedure TfrmOtherIn.CreateTabs_ByGroup(rdoIndex: integer; sList: TList);
var tmpTabIndex: integer;
    i,j: integer;
    lcp: PINVENTORY;
    tmpGroupTitle: variant;
    iGroupFind: Boolean;
begin
  tmpTabIndex := 0;
  tabsGroup.Tabs.Clear;

  for i := 0 to sList.Count - 1 do
  begin
    lcp := sList[i];
    if lcp = nil then continue;

    case rdoIndex of
      0: tmpGroupTitle := dm_Inventory.GetShigenName(lcp^.SUP_CD);
      1: tmpGroupTitle := dm_inventory.GetOrderNo(lcp^.ODR_RID);
      2: tmpGroupTitle := strPas(lcp^.paperno);
      3: tmpGroupTitle := formatDatetime('yy/mm/dd',lcp^.DATE);
      4: tmpGroupTitle := dm_inventory.GetMaterialCode(lcp^.MAT_RID);
      5: tmpGroupTitle := strpas(lcp^.INVOICE_NO);
      6: tmpGroupTitle := dm_inventory.Get_EmpName(lcp^.INPUT_EMPID);
      7: tmpGroupTitle := dm_inventory.Get_IOIDName(lcp^.INOUT_ID,1);
      8: tmpGroupTitle := strpas(lcp^.ISS_PAPERNO);
      9: tmpGroupTitle := dm_Inventory.GetShigenName(lcp^.MAK_CD);
      10: tmpGroupTitle := strpas(lcp^.HAT_CODE);
      11: tmpGroupTitle := 'ALL';
    end;

    //-- IF you find title information then iGroupFind := true
    iGroupFind := false;
    for j := 0 to tmpTabIndex - 1 do
    begin
      try
        if tmpGroupTitle = FGroupValue[j] then begin
          iGroupFind := true;
          break;
        end;
      except
      end;
    end;

    if not iGroupFind then begin   //-- if you do not find Title Group then New tabs
      FGroupValue[tmpTabIndex] := tmpGroupTitle;
      inc(tmpTabIndex);

      tabsGroup.Tabs.Add(tmpGroupTitle);
    end;

  end;
  //////////////////////////////////////////////
  //-- tabsGroup.TabIndex value
  if tmpTabIndex >0 then tabsGroup.TabIndex := 0
  else tabsGroup.TabIndex := -1;
end;


procedure TfrmOtherIn.Set_QryList_FromTabs(iTab: integer; FGroupList: TList);
function SetQryCheck(lcP: PINVENTORY): Boolean;
  var i: Integer;
      WDate: array[0..1] of TDateTime;
  begin
    Result := True;
    //--
    WDate[0] := strtodatetime(formatdatetime('yyyy/mm/dd',Now)+' 00:00:00');
    WDate[1] := strtodatetime(formatdatetime('yyyy/mm/dd',Now)+' 23:59:59');
    if ((WDate[0] > 2)and(WDate[0] > lcP^.DATE))or
       ((WDate[1] > 2)and(WDate[1] < lcP^.DATE))then begin
      Result := False;
      Exit;
    end;

    if (lcp^.KIND <> 0) then begin
        result := false;
        exit;
      end;
  end;
var i,j: integer;
    lcP,lcPA: PINVENTORY;
    iView: Boolean;
    iBool: Boolean;
begin
  if FMatIOList = nil then exit;
  if FMatIOList.Count = 0 then exit;
  FQueryList.Clear;

  for i := 0 to FMatIOList.Count-1 do begin
    lcP := FMatIOList.Items[i];
    if not SetQryCheck(lcp) then continue;
    iView := CheckViewData(lcP, rdoGroupBy.ItemIndex, TabsGroup.TabIndex);
    if not iView then Continue;
    FQueryList.Add(lcP);
  end;
end;

Function  TfrmOtherIn.CheckViewData(lcPA: Pointer; rdoTitleIndex,TabIndex: integer): boolean;
var
  TmpV: Variant;
  lcp: PINVENTORY;
begin

      Result := False;

      if lcPA=Nil then Exit;
      lcp := LcpA;
      if (rdoTitleIndex<0) or (TabIndex<0) then Exit;


      if rdoTitleIndex = 8 then
      begin
           Result:=True;
           Exit;
      end;
    case rdoTitleIndex of
      0: TmpV := dm_Inventory.GetShigenName(lcp^.SUP_CD);
      1: TmpV := dm_inventory.GetOrderNo(lcp^.ODR_RID);
      2: TmpV := strPas(lcp^.paperno);
      3: TmpV := formatDatetime('yy/mm/dd',lcp^.DATE);
      4: TmpV := dm_inventory.GetMaterialCode(lcp^.MAT_RID);
      5: TmpV := strpas(lcp^.INVOICE_NO);
      6: TmPV := dm_inventory.Get_EmpName(lcp^.INPUT_EMPID);
      7: TmPV := dm_inventory.Get_IOIDName(lcp^.INOUT_ID,1);
      8: TmPV := strpas(lcp^.ISS_PAPERNO);
      9: TmpV := dm_Inventory.GetShigenName(lcp^.MAK_CD);
      10: TmpV := strpas(lcp^.HAT_CODE);
      11: TmpV := 'ALL';
    end;
    try
      if TmPV = FGroupValue[TabIndex] then Result:=True;
    except
      Result:=False;
    end;
end;

procedure TfrmOtherIn.SetListView;
var i,j: Integer;
    lcP: PINVENTORY;
    Item: TListItem;
begin
  Screen.Cursor  := crHourGlass;
  with ListViewMatIN.Items do begin
    BeginUpdate;
    Clear;
    EndUpdate;
  end;

  SetListColumn(ListViewMatIN);
  //--
  ListViewMatIN.Items.BeginUpdate;

  //FQueryList.Sort(TListSortCompare(@ListSortCompare));

  FOnMakeItemCaption := True;
  try
    for i := 0 to FQueryList.Count-1 do begin
      lcP  := FQueryList.Items[i];
      Item := ListViewMatIN.Items.Add;
      for j := 0 to FColCnt-1 do Item.Subitems.Add('');
      lcP^.ITEM := Item;
      Item.Data := lcP;
      MakeItemCaption(Item);
    end;
  finally
    FOnMakeItemCaption := False;
    ListViewMatIN.Items.EndUpdate;
    if ListViewMatIN.Items.Count > 0 then ListViewMatIN.TopItem.Selected := True;
    Screen.Cursor := crDefault;
  end;
end;

function  TfrmOtherIn.SetListColumn(sListView: TGradLineListView): Integer;
var
  Column: TListColumn;
begin
  sListView.Columns.Clear;
  FColCnt := 0;

  Column         := sListView.Columns.Add;
  Column.Width   := sListView.Font.Size * 7;
  Column.Caption := GetMultiLingalMsg(90027, 'Stock ID');
  Inc(FColCnt);
  //--
  Column         := sListView.Columns.Add;
  Column.Width   := sListView.Font.Size * 10;
  Column.Caption := GetMultiLingalMsg(90063, 'Mold Code');
  Inc(FColCnt);
  //--
  Column         := sListView.Columns.Add;
  Column.Width   := sListView.Font.Size * 12;
  Column.Caption := GetMultiLingalMsg(90028, 'Material Code');
  Inc(FColCnt);
  //--
  Column         := sListView.Columns.Add;
  Column.Width   := sListView.Font.Size * 12;
  Column.Caption := GetMultiLingalMsg(90029, 'Material Name');
  Inc(FColCnt);
  //--
  Column         := sListView.Columns.Add;
  Column.Width   := sListView.Font.Size * 10;
  Column.Caption := GetMultiLingalMsg(90031, 'Guage Name');
  Inc(FColCnt);
  //--
  Column         := sListView.Columns.Add;
  Column.Width   := sListView.Font.Size * 6;
  Column.Caption := GetMultiLingalMsg(90032, 'Unit Name');
  Inc(FColCnt);
  //--
  Column         := sListView.Columns.Add;
  Column.Width   := sListView.Font.Size * 7;
  Column.Caption := GetMultiLingalMsg(90033, 'Unit Price');
  Inc(FColCnt);
  //--
  Column         := sListView.Columns.Add;
  Column.Width   := sListView.Font.Size * 7;
  Column.Caption := GetMultiLingalMsg(90055, 'IN Quantity');
  Inc(FColCnt);
  //--
  Column         := sListView.Columns.Add;
  Column.Width   := sListView.Font.Size * 9;
  Column.Caption := GetMultiLingalMsg(90056, 'IN Amount');
  Inc(FColCnt);
  //--
  Column         := sListView.Columns.Add;
  Column.Width   := sListView.Font.Size * 8;
  Column.Caption := GetMultiLingalMsg(90057, 'Suplier');
  Inc(FColCnt);
  //--
  Column         := sListView.Columns.Add;
  Column.Width   := sListView.Font.Size * 8;
  Column.Caption := GetMultiLingalMsg(90058, 'Maker');
  Inc(FColCnt);
  //--
  Column         := sListView.Columns.Add;
  Column.Width   := sListView.Font.Size * 8;