invhisreport.~pas

文件包含程序源原文件

    V := CreateOleObject('Excel.Application');
  except
    Screen.Cursor:=crDefault;
    MessageDlg('Excel Application startup Error.', mtError, [mbOk],0);
    Exit;
  end;

  V.Visible := True;

  Screen.Cursor:=crDefault;

  Filename:= ExtractFilePath(application.ExeName) + 'inpaper.XLS';

  if FileExists(Filename)=False then begin
    MessageDlg(Filename + ExtractFilePath(FileName)+'this parth is not exist file!',
    mtError, [mbOk],0);
    Exit;
  end;

  V.Workbooks.Open(FileName,,true,,,,,,,,,,); // Readonly = True
  V.WorkSheets[1].Activate;

  V.Sheets.Add;
  V.WorkSheets[2].Select;
  V.WorkSheets[2].Activate;
  V.ActiveSheet.Cells.Select;
  V.Selection.Copy;
  V.WorkSheets[1].Activate;
  V.WorkSheets[1].Select;
  V.ActiveSheet.Cells.Select;
  V.ActiveSheet.Paste;
  V.ActiveSheet.Name := 1;
  k := 0;
  fixrow := StrToIntDef(frmMain.IniData.PAPERNO,20);
  for j := (k*fixrow) to sList.Count-1 do begin
    lcp := sList[j];

    if (j-(k*fixrow)+1) > fixrow then
    begin
      inc(K);
      V.Sheets.Add;
      V.WorkSheets[k+2].Select;
      V.WorkSheets[k+2].Activate;
      V.ActiveSheet.Cells.Select;
      V.Selection.Copy;
      V.WorkSheets[1].Activate;
      V.WorkSheets[1].Select;
      V.ActiveSheet.Cells.Select;
      V.ActiveSheet.Paste;
      V.ActiveSheet.Name := k+1;
    end;

    ///////////////////////////////////
    ///////////////////////////////////////
    V.ActiveSheet.Cells[3, 3].NumberFormatLocal := '@';
    case rdoTitle.ItemIndex of
      0: V.ActiveSheet.Cells[ 3, 1].Value := GetMultiLingalMsg(90052, 'Date');
      1: V.ActiveSheet.Cells[ 3, 1].Value := GetMultiLingalMsg(90028, 'Material Code');
      2: V.ActiveSheet.Cells[ 3, 1].Value := GetMultiLingalMsg(90123, 'Material Class');
      3: V.ActiveSheet.Cells[ 3, 1].Value := GetMultiLingalMsg(90053, 'Paper');
      4: V.ActiveSheet.Cells[ 3, 1].Value := GetMultiLingalMsg(90063, 'Mold Code');
      5: V.ActiveSheet.Cells[ 3, 1].Value := GetMultiLingalMsg(90057, 'Suplier');
      6: V.ActiveSheet.Cells[ 3, 1].Value := GetMultiLingalMsg(90058, 'Maker');
      7: V.ActiveSheet.Cells[ 3, 1].Value := GetMultiLingalMsg(90088, 'Receive Man');
      8: V.ActiveSheet.Cells[ 3, 1].Value := GetMultiLingalMsg(90060, 'Input Man');
      9: V.ActiveSheet.Cells[ 3, 1].Value := GetMultiLingalMsg(90097, 'Manager Type');
      10: V.ActiveSheet.Cells[ 3, 1].Value:= GetMultiLingalMsg(90281, 'department');
      11: V.ActiveSheet.Cells[ 3, 1].Value := GetMultiLingalMsg(90079, 'ALL');
    end;
    V.ActiveSheet.Cells[3, 3].NumberFormatLocal := '@';
    Case rdoTitle.ItemIndex of
      0: V.ActiveSheet.Cells[ 3, 3].Value := FormatDatetime('yyyy/mm/dd',lcp^.DATE);
      1: V.ActiveSheet.Cells[ 3, 3].Value := dm_inventory.GetMaterialCode(lcp^.MAT_RID);
      2: V.ActiveSheet.Cells[ 3, 3].Value := dm_inventory.Get_Shizai_KubunName(lcp^.MAT_RID);
      3: V.ActiveSheet.Cells[ 3, 3].Value := strPas(lcp^.PAPERNO);
      4: V.ActiveSheet.Cells[ 3, 3].Value := dm_inventory.GetOrderNo(lcp^.ODR_RID);
      5: V.ActiveSheet.Cells[ 3, 3].Value := dm_inventory.GetShigenName(lcp^.SUP_CD);
      6: V.ActiveSheet.Cells[ 3, 3].Value := dm_inventory.GetShigenName(lcp^.MAK_CD); 
      7: V.ActiveSheet.Cells[ 3, 3].Value := dm_inventory.Get_EmpName(lcp^.RECIEVE_EMPID);
      8: V.ActiveSheet.Cells[ 3, 3].Value := dm_inventory.Get_EmpName(lcp^.INPUT_EMPID);
      9: V.ActiveSheet.Cells[ 3, 3].Value := dm_inventory.Get_IOIDName(lcp^.INOUT_ID,1);
      10: V.ActiveSheet.Cells[ 3, 3].Value := dm_inventory.GetDepartName_fromEmpID(lcp^.RECIEVE_EMPID);
      11: V.ActiveSheet.Cells[ 3, 3].Value := 'ALL';
    end;
    V.ActiveSheet.Cells[ 3, 3 ].Font.Size := 9;

    V.ActiveSheet.Cells[3, 10].NumberFormatLocal := '@';
    V.ActiveSheet.Cells[ 3, 10].Value := FormatDatetime('yyyy/mm/dd hh:mm',Now);
    V.ActiveSheet.Cells[ 3, 10].Font.Size := 9;

    //--
    V.ActiveSheet.Cells[ j-(k*fixrow)+5, 2].NumberFormatLocal := '@';
    V.ActiveSheet.Cells[ j-(k*fixrow)+5, 2].Value := dm_inventory.GetOrderNo(lcp^.ODR_RID);
    V.ActiveSheet.Cells[ j-(k*fixrow)+5, 2 ].Font.Size := 9;

    V.ActiveSheet.Cells[ j-(k*fixrow)+5, 3].NumberFormatLocal := '@';
    V.ActiveSheet.Cells[ j-(k*fixrow)+5, 3].Value := dm_inventory.GetPartCode(lcp^.ODR_RID,lcp^.PAT_RID);
    V.ActiveSheet.Cells[ j-(k*fixrow)+5, 3].Font.Size := 9;

    V.ActiveSheet.Cells[ j-(k*fixrow)+5, 4].NumberFormatLocal := '@';
    V.ActiveSheet.Cells[ j-(k*fixrow)+5, 4].Value := dm_inventory.GetMaterialName(lcp^.MAT_RID);
    V.ActiveSheet.Cells[ j-(k*fixrow)+5, 4].Font.Size := 9;

    V.ActiveSheet.Cells[ j-(k*fixrow)+5, 5].NumberFormatLocal := '@';
    V.ActiveSheet.Cells[ j-(k*fixrow)+5, 5].Value := dm_inventory.Get_GuageName(lcp^.MAT_RID,lcp^.GUAGE_ID);
    V.ActiveSheet.Cells[ j-(k*fixrow)+5, 5].Font.Size := 9;

    V.ActiveSheet.Cells[ j-(k*fixrow)+5, 6].NumberFormatLocal := '@';
    V.ActiveSheet.Cells[ j-(k*fixrow)+5, 6].Value := dm_inventory.GetUnitTypeName(lcp^.MAT_RID);
    V.ActiveSheet.Cells[ j-(k*fixrow)+5, 6].Font.Size := 9;

    V.ActiveSheet.Cells[ j-(k*fixrow)+5, 7].NumberFormatLocal:='#,##0.00';
    V.ActiveSheet.Cells[ j-(k*fixrow)+5, 7].Value := FormatFloat('#,##0.00', lcp^.UNT_PRICE);
    V.ActiveSheet.Cells[ j-(k*fixrow)+5, 7 ].Font.Size := 9;

    V.ActiveSheet.Cells[ j-(k*fixrow)+5, 8].NumberFormatLocal:='#,##0.00';
    V.ActiveSheet.Cells[ j-(k*fixrow)+5, 8].Value := FormatFloat('#,##0.00', lcp^.QUANTITY);
    V.ActiveSheet.Cells[ j-(k*fixrow)+5, 8 ].Font.Size := 9;

    V.ActiveSheet.Cells[ j-(k*fixrow)+5, 9].NumberFormatLocal:='#,##0.00';
    V.ActiveSheet.Cells[ j-(k*fixrow)+5, 9].Value := FormatFloat('#,##0.00', lcp^.TTL_PRICE);
    V.ActiveSheet.Cells[ j-(k*fixrow)+5, 9].Font.Size := 9;

    V.ActiveSheet.Cells[ j-(k*fixrow)+5, 10].NumberFormatLocal:='@';
    V.ActiveSheet.Cells[ j-(k*fixrow)+5, 10].Value := FormatDatetime('yyyy/mm/dd', lcp^.DATE);
    V.ActiveSheet.Cells[ j-(k*fixrow)+5, 10].Font.Size := 9;

    V.ActiveSheet.Cells[ j-(k*fixrow)+5, 11].NumberFormatLocal:='@';
    V.ActiveSheet.Cells[ j-(k*fixrow)+5, 11].Value := strpas(lcp^.NOTE);
    V.ActiveSheet.Cells[ j-(k*fixrow)+5, 11].Font.Size := 9;

    V.ActiveSheet.Cells[fixrow+7, 10].NumberFormatLocal:='@';
    V.ActiveSheet.Cells[fixrow+7, 10].Value := dm_inventory.Get_EmpName(lcp^.INPUT_EMPID);
    V.ActiveSheet.Cells[fixrow+7, 10].Font.Size := 9;
  end;
end;

///////////////////////////////////////////////////
Procedure TfrmHisReport.Excel_outpaperList(sList: TList);
var
  V: Variant;
  Sheet: Variant;
  Filename: string;
  ExePath:  string;
  j,k : integer;
  lcp: PINVENTORY;
  fixrow: Integer;
begin
  try
    V := CreateOleObject('Excel.Application');
  except
    Screen.Cursor:=crDefault;
    MessageDlg('Excel Application startup Error.', mtError, [mbOk],0);
    Exit;
  end;

  V.Visible := True;

  Screen.Cursor:=crDefault;

  Filename:= ExtractFilePath(application.ExeName) + 'outpaper.XLS';

  if FileExists(Filename)=False then begin
    MessageDlg(Filename + ExtractFilePath(FileName)+'this parth is not exist file!',
    mtError, [mbOk],0);
    Exit;
  end;

  V.Workbooks.Open(FileName,,true,,,,,,,,,,); // Readonly = True
  V.WorkSheets[1].Activate;

  V.Sheets.Add;
  V.WorkSheets[2].Select;
  V.WorkSheets[2].Activate;
  V.ActiveSheet.Cells.Select;
  V.Selection.Copy;
  V.WorkSheets[1].Activate;
  V.WorkSheets[1].Select;
  V.ActiveSheet.Cells.Select;
  V.ActiveSheet.Paste;
  V.ActiveSheet.Name := 1;
  k := 0;
  fixrow := StrToIntDef(frmMain.IniData.PAPERNO,20);
  for j := (k*fixrow) to sList.Count-1 do begin
    lcp := sList[j];

    if (j-(k*fixrow)+1) > fixrow then
    begin
      inc(K);
      V.Sheets.Add;
      V.WorkSheets[k+2].Select;
      V.WorkSheets[k+2].Activate;
      V.ActiveSheet.Cells.Select;
      V.Selection.Copy;
      V.WorkSheets[1].Activate;
      V.WorkSheets[1].Select;
      V.ActiveSheet.Cells.Select;
      V.ActiveSheet.Paste;
      V.ActiveSheet.Name := k+1;
    end;

    ///////////////////////////////////
    ///////////////////////////////////////
    V.ActiveSheet.Cells[3, 3].NumberFormatLocal := '@';
    case rdoTitle.ItemIndex of
      0: V.ActiveSheet.Cells[ 3, 1].Value := GetMultiLingalMsg(90052, 'Date');
      1: V.ActiveSheet.Cells[ 3, 1].Value := GetMultiLingalMsg(90028, 'Material Code');
      2: V.ActiveSheet.Cells[ 3, 1].Value := GetMultiLingalMsg(90123, 'Material Class');
      3: V.ActiveSheet.Cells[ 3, 1].Value := GetMultiLingalMsg(90053, 'Paper');
      4: V.ActiveSheet.Cells[ 3, 1].Value := GetMultiLingalMsg(90063, 'Mold Code');
      5: V.ActiveSheet.Cells[ 3, 1].Value := GetMultiLingalMsg(90057, 'Suplier');
      6: V.ActiveSheet.Cells[ 3, 1].Value := GetMultiLingalMsg(90058, 'Maker');
      7: V.ActiveSheet.Cells[ 3, 1].Value := GetMultiLingalMsg(90088, 'Receive Man');
      8: V.ActiveSheet.Cells[ 3, 1].Value := GetMultiLingalMsg(90060, 'Input Man');
      9: V.ActiveSheet.Cells[ 3, 1].Value := GetMultiLingalMsg(90097, 'Manager Type');
      10: V.ActiveSheet.Cells[ 3, 1].Value:= GetMultiLingalMsg(90281, 'department');
      11: V.ActiveSheet.Cells[ 3, 1].Value := GetMultiLingalMsg(90079, 'ALL');
    end;
    V.ActiveSheet.Cells[3, 3].NumberFormatLocal := '@';
    Case rdoTitle.ItemIndex of
      0: V.ActiveSheet.Cells[ 3, 3].Value := FormatDatetime('yyyy/mm/dd',lcp^.DATE);
      1: V.ActiveSheet.Cells[ 3, 3].Value := dm_inventory.GetMaterialCode(lcp^.MAT_RID);
      2: V.ActiveSheet.Cells[ 3, 3].Value := dm_inventory.Get_Shizai_KubunName(lcp^.MAT_RID);
      3: V.ActiveSheet.Cells[ 3, 3].Value := strPas(lcp^.PAPERNO);
      4: V.ActiveSheet.Cells[ 3, 3].Value := dm_inventory.GetOrderNo(lcp^.ODR_RID);
      5: V.ActiveSheet.Cells[ 3, 3].Value := dm_inventory.GetShigenName(lcp^.SUP_CD);
      6: V.ActiveSheet.Cells[ 3, 3].Value := dm_inventory.GetShigenName(lcp^.MAK_CD); 
      7: V.ActiveSheet.Cells[ 3, 3].Value := dm_inventory.Get_EmpName(lcp^.RECIEVE_EMPID);
      8: V.ActiveSheet.Cells[ 3, 3].Value := dm_inventory.Get_EmpName(lcp^.INPUT_EMPID);
      9: V.ActiveSheet.Cells[ 3, 3].Value := dm_inventory.Get_IOIDName(lcp^.INOUT_ID,1);
      10: V.ActiveSheet.Cells[ 3, 3].Value := dm_inventory.GetDepartName_fromEmpID(lcp^.RECIEVE_EMPID);
      11: V.ActiveSheet.Cells[3, 3].Value := 'ALL';
    end;
    V.ActiveSheet.Cells[ 3, 3].Font.Size := 9;

    V.ActiveSheet.Cells[3, 11].NumberFormatLocal := '@';
    V.ActiveSheet.Cells[3, 11].Value := FormatDatetime('yyyy/mm/dd hh:mm',Now);
    V.ActiveSheet.Cells[3, 11].Font.Size := 9;

    //--
    V.ActiveSheet.Cells[ j-(k*fixrow)+5, 2].NumberFormatLocal := '@';
    V.ActiveSheet.Cells[ j-(k*fixrow)+5, 2].Value := dm_inventory.GetOrderNo(lcp^.ODR_RID);
    V.ActiveSheet.Cells[ j-(k*fixrow)+5, 2 ].Font.Size := 9;

    V.ActiveSheet.Cells[ j-(k*fixrow)+5, 3].NumberFormatLocal := '@';
    V.ActiveSheet.Cells[ j-(k*fixrow)+5, 3].Value := dm_inventory.GetPartCode(lcp^.ODR_RID,lcp^.PAT_RID);
    V.ActiveSheet.Cells[ j-(k*fixrow)+5, 3].Font.Size := 9;

    V.ActiveSheet.Cells[ j-(k*fixrow)+5, 4].NumberFormatLocal := '@';
    V.ActiveSheet.Cells[ j-(k*fixrow)+5, 4].Value := dm_inventory.GetMaterialName(lcp^.MAT_RID);
    V.ActiveSheet.Cells[ j-(k*fixrow)+5, 4].Font.Size := 9;

    V.ActiveSheet.Cells[ j-(k*fixrow)+5, 5].NumberFormatLocal := '@';
    V.ActiveSheet.Cells[ j-(k*fixrow)+5, 5].Value := strpas(lcp^.USE_GUAGE);
    V.ActiveSheet.Cells[ j-(k*fixrow)+5, 5].Font.Size := 9;

    V.ActiveSheet.Cells[ j-(k*fixrow)+5, 6].NumberFormatLocal := '#,##0.00';
    V.ActiveSheet.Cells[ j-(k*fixrow)+5, 6].Value := dm_inventory.GetUnitTypeName(lcp^.MAT_RID);
    V.ActiveSheet.Cells[ j-(k*fixrow)+5, 6].Font.Size := 9;

    V.ActiveSheet.Cells[ j-(k*fixrow)+5, 7].NumberFormatLocal:='#,##0.00';
    V.ActiveSheet.Cells[ j-(k*fixrow)+5, 7].Value := FormatFloat('#,##0.00', lcp^.UNT_PRICE);
    V.ActiveSheet.Cells[ j-(k*fixrow)+5, 7 ].Font.Size := 9;

    V.ActiveSheet.Cells[ j-(k*fixrow)+5, 8].NumberFormatLocal:='#,##0.00';
    V.ActiveSheet.Cells[ j-(k*fixrow)+5, 8].Value := FormatFloat('#,##0.00', abs(lcp^.USE_QUANTITY));
    V.ActiveSheet.Cells[ j-(k*fixrow)+5, 8 ].Font.Size := 9;

    V.ActiveSheet.Cells[ j-(k*fixrow)+5, 9].NumberFormatLocal:='#,##0.00';
    V.ActiveSheet.Cells[ j-(k*fixrow)+5, 9].Value := FormatFloat('#,##0.00', abs(lcp^.USE_AMOUNT));
    V.ActiveSheet.Cells[ j-(k*fixrow)+5, 9].Font.Size := 9;

    V.ActiveSheet.Cells[ j-(k*fixrow)+5, 10].NumberFormatLocal:='@';
    V.ActiveSheet.Cells[ j-(k*fixrow)+5, 10].Value := FormatDatetime('yyyy/mm/dd', lcp^.DATE);
    V.ActiveSheet.Cells[ j-(k*fixrow)+5, 10].Font.Size := 9;

    V.ActiveSheet.Cells[ j-(k*fixrow)+5, 11].NumberFormatLocal:='@';
    V.ActiveSheet.Cells[ j-(k*fixrow)+5, 11].Value := dm_inventory.Get_EmpName(lcp^.RECIEVE_EMPID);
    V.ActiveSheet.Cells[ j-(k*fixrow)+5, 11].Font.Size := 9;

    V.ActiveSheet.Cells[ j-(k*fixrow)+5, 12].NumberFormatLocal:='@';
    V.ActiveSheet.Cells[ j-(k*fixrow)+5, 12].Value := strpas(lcp^.NOTE);
    V.ActiveSheet.Cells[ j-(k*fixrow)+5, 12].Font.Size := 9;

    V.ActiveSheet.Cells[fixrow+7, 11].NumberFormatLocal:='@';
    V.ActiveSheet.Cells[fixrow+7, 11].Value := dm_inventory.Get_EmpName(lcp^.INPUT_EMPID);
    V.ActiveSheet.Cells[fixrow+7, 11].Font.Size := 9;
  end;
end;

//*** 界面内容Copy  ***
function TfrmHisReport.CopyToClipBoard(var RecCnt, ColCnt: Integer): string;
var i, j: Integer;
    Buf: string;
begin
  RecCnt := 0; ColCnt := 0;
  Buf := '';
  for i:=0 to FColumnCnt-1 do begin
    Buf := Buf + LstViewQry.Column[i].Caption + #9;
    Inc(ColCnt);
  end;
  Buf := Buf + #13#10;
  for i:=0 to LstViewQry.Items.Count-1 do begin
    for j:=0 to FColumnCnt-1 do
      if j = 0 then Buf := Buf + Trim(LstViewQry.Items[i].Caption) + #9
      else Buf := Buf + Trim(LstViewQry.Items[i].SubItems[j-1]) + #9;
    Buf := Buf + #13#10;
    Inc(RecCnt);
  end;
  Result := Buf;
end;


procedure TfrmHisReport.btnExcelClick(Sender: TObject);
begin
  case rdoReport.ItemIndex of
    0: Excel_inpaperList(FQueryList);
    1: Excel_outpaperList(FQueryList);
    else PrintProc(0);
  end;
end;

procedure TfrmHisReport.rdoTitleClick(Sender: TObject);
begin
  btnQuery.Click;
end;

procedure TfrmHisReport.SetMultilingual;
begin
  Self.Caption         := GetMultiLingalMsg(90179, self.Caption);
  btnQuery.Caption     := GetMultiLingalMsg(90115, btnQuery.Caption);
  btnClose.Caption     := GetMultiLingalMsg(90025, btnClose.Caption);
  lblFDate.Caption     := GetMultiLingalMsg(90113, lblFDate.Caption);
  lblEDate.Caption     := GetMultiLingalMsg(90114, lblEDate.Caption);
  edtMoldID.EditLabel.Caption := GetMultiLingalMsg(90063, 'Mold Code');
  edtStkID.EditLabel.Caption  := GetMultiLingalMsg(90027, 'Stock ID');
  edtMatCode.EditLabel.Caption:= GetMultiLingalMsg(90028, 'Material Code');
  edtSuplier.EditLabel.Caption:= GetMultiLingalMsg(90057, 'Suplier');
  edtIssPaper.EditLabel.Caption := GetMultiLingalMsg(90236,'Issure Paper');

  rdoTitle.Caption     := GetMultiLingalMsg(90070, rdoTitle.Caption);
  rdoTitle.Items[0]    := GetMultiLingalMsg(90052, rdoTitle.Items[0]);
  rdoTitle.Items[1]    := GetMultiLingalMsg(90028, rdoTitle.Items[1]);
  rdoTitle.Items[2]    := GetMultiLingalMsg(90123, rdoTitle.Items[2]);
  rdoTitle.Items[3]    := GetMultiLingalMsg(90246,'Manager Paper');
  rdoTitle.Items[4]    := GetMultiLingalMsg(90063, rdoTitle.Items[4]);
  rdoTitle.Items[5]    := GetMultiLingalMsg(90057, rdoTitle.Items[5]);
  rdoTitle.Items[6]    := GetMultiLingalMsg(90058, rdoTitle.Items[6]);
  rdoTitle.Items[7]    := GetMultiLingalMsg(90088, rdoTitle.Items[7]);
  rdoTitle.Items[8]    := GetMultiLingalMsg(90247,'Manager Man');
  rdoTitle.Items[9]    := GetMultiLingalMsg(90097,'Manager Type');
  rdoTitle.Items[10]   := GetMultiLingalMsg(90281, 'Department');
  rdoTitle.Items[11]   := GetMultiLingalMsg(90079, rdoTitle.Items[11]);

  rdoSortID.Caption     := GetMultiLingalMsg(90135, rdoSortID.Caption);
  rdoSortID.Items[0]    := GetMultiLingalMsg(90052, rdoSortID.Items[0]);
  rdoSortID.Items[1]    := GetMultiLingalMsg(90094, rdoSortID.Items[1]);
  rdoSortID.Items[2]    := GetMultiLingalMsg(90028, rdoSortID.Items[2]);
  rdoSortID.Items[3]    := GetMultiLingalMsg(90246,'Manager Paper');

  rdoReport.Caption     := GetMultiLingalMsg(90136, rdoReport.Caption);
  rdoReport.Items[0]    := GetMultiLingalMsg(90137, rdoReport.Items[0]);
  rdoReport.Items[1]    := GetMultiLingalMsg(90138, rdoReport.Items[1]);
  rdoReport.Items[2]    := GetMultiLingalMsg(90139, rdoReport.Items[2]);
  rdoReport.Items[3]    := GetMultiLingalMsg(90140, rdoReport.Items[3]);
  rdoReport.Items[4]    := GetMultiLingalMsg(90141, rdoReport.Items[4]);
  rdoReport.Items[5]    := GetMultiLingalMsg(90142, rdoReport.Items[5]);
  rdoReport.Items[6]    := GetMultiLingalMsg(90143, rdoReport.Items[6]);
  rdoReport.Items[7]    := GetMultiLingalMsg(90144, rdoReport.Items[7]);
  rdoReport.Items[8]    := GetMultiLingalMsg(90145, rdoReport.Items[8]);

  rdoManager.Caption     := GetMultiLingalMsg(90146, rdoManager.Caption);
  rdoManager.Items[0]    := GetMultiLingalMsg(90147, rdoManager.Items[0]);
  rdoManager.Items[1]    := GetMultiLingalMsg(90148, rdoSortID.Items[1]);
end;

procedure TfrmHisReport.cbxStkChange(Sender: TObject);
begin
  edtStkID.Text   := Get_PosBeforeStr(cbxStk.Text,'_');
  edtStkName.Text := Get_PosAfterStr(cbxStk.Text,'_');
  edtStkID.SetFocus;
end;

procedure TfrmHisReport.edtStkIDChange(Sender: TObject);
begin
  edtStkName.Text := dm_Inventory.GetStockName(trim(edtStkID.Text));
end;

procedure TfrmHisReport.cbxSuplierDropDown(Sender: TObject);
begin
  dm_inventory.Read_SupplyMake_ToCbx(cbxSuplier);
end;

procedure TfrmHisReport.cbxSuplierChange(Sender: TObject);
begin
  edtSuplier.Text     := Get_PosBeforeStr(cbxSuplier.Text,'_');
  edtSuplierName.Text := Get_PosAfterStr(cbxSuplier.Text,'_');
  edtSuplier.SetFocus;
end;

procedure TfrmHisReport.edtSuplierChange(Sender: TObject);
begin
  edtSuplierName.Text := dm_inventory.GetShigenName(StrToIntDef(trim(edtSuplier.Text),0));
end;

end.