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

📄 invreport.pas

📁 文件包含程序源原文件
💻 PAS
📖 第 1 页 / 共 5 页
字号:
🔍
12345 
  LstViewQry.Columns.Clear;
  FColumnCnt := 0;

  case FColumnCaptionType of
    2: begin
  //--
  Column         := LstViewQry.Columns.Add;
  Column.Width   := LstViewQry.Font.Size * 7;
  Column.Caption := '类型';
  Inc(FColumnCnt);
  //--
  Column         := LstViewQry.Columns.Add;
  Column.Width   := LstViewQry.Font.Size * 5;
  Column.Caption := GetMultiLingalMsg(90027,'Stock ID');
  Inc(FColumnCnt);
  //--
  Column         := LstViewQry.Columns.Add;
  Column.Width   := LstViewQry.Font.Size * 10;
  Column.Caption := GetMultiLingalMsg(90028,'Material Code');
  Inc(FColumnCnt);
  //--
  Column         := LstViewQry.Columns.Add;
  Column.Width   := LstViewQry.Font.Size * 12;
  Column.Caption := GetMultiLingalMsg(90029,'Material Name');
  Inc(FColumnCnt);
  //--
  Column         := LstViewQry.Columns.Add;
  Column.Width   := LstViewQry.Font.Size * 10;
  Column.Caption := GetMultiLingalMsg(90031,'Guage Name');
  Inc(FColumnCnt);
  //--
  Column         := LstViewQry.Columns.Add;
  Column.Width   := LstViewQry.Font.Size * 5;
  Column.Alignment := taLeftJustify;
  Column.Caption := GetMultiLingalMsg(90032,'Unit Name');
  Inc(FColumnCnt);
  //--
  Column           := LstViewQry.Columns.Add;
  Column.Width     := LstViewQry.Font.Size * 8;
  Column.Alignment := taRightJustify;
  Column.Caption   := GetMultiLingalMsg(90149,'Total Quantity');
  Inc(FColumnCnt);
  //--
  Column         := LstViewQry.Columns.Add;
  Column.Width   := LstViewQry.Font.Size * 10;
  Column.Caption := GetMultiLingalMsg(90150,'Total Amount');
  Inc(FColumnCnt);
  //--
  Column           := LstViewQry.Columns.Add;
  Column.Width     := LstViewQry.Font.Size * 16;
  Column.Alignment := taRightJustify;
  Column.Caption   := GetMultiLingalMsg(90065,'Remarks');
  Inc(FColumnCnt);
       end;
    else begin
  //--
  //--
  Column         := LstViewQry.Columns.Add;
  Column.Width   := LstViewQry.Font.Size * 7;
  Column.Caption := '类型';
  Inc(FColumnCnt);
  //--
  Column         := LstViewQry.Columns.Add;
  Column.Width   := LstViewQry.Font.Size * 5;
  Column.Caption := GetMultiLingalMsg(90027,'Stock ID');
  Inc(FColumnCnt);
  //--
  Column         := LstViewQry.Columns.Add;
  Column.Width   := LstViewQry.Font.Size * 12;
  Column.Alignment := taRightJustify;
  Column.Caption := GetMultiLingalMsg(90246,'Manager Paper');;
  Inc(FColumnCnt);
  //--
  Column         := LstViewQry.Columns.Add;
  Column.Width   := LstViewQry.Font.Size * 8;
  Column.Caption := GetMultiLingalMsg(90052,'Date');
  Inc(FColumnCnt);
  //--
  Column         := LstViewQry.Columns.Add;
  Column.Width   := LstViewQry.Font.Size * 10;
  Column.Caption := GetMultiLingalMsg(90028,'Material Code');
  Inc(FColumnCnt);
  //--
  Column         := LstViewQry.Columns.Add;
  Column.Width   := LstViewQry.Font.Size * 12;
  Column.Caption := GetMultiLingalMsg(90029,'Material Name');
  Inc(FColumnCnt);
  //--
  Column         := LstViewQry.Columns.Add;
  Column.Width   := LstViewQry.Font.Size * 10;
  Column.Caption := GetMultiLingalMsg(90031,'Guage Name');
  Inc(FColumnCnt);
  //--
  Column         := LstViewQry.Columns.Add;
  Column.Width   := LstViewQry.Font.Size * 5;
  Column.Alignment := taLeftJustify;
  Column.Caption := GetMultiLingalMsg(90032,'Unit Name');
  Inc(FColumnCnt);
  //--
  Column           := LstViewQry.Columns.Add;
  Column.Width     := LstViewQry.Font.Size * 8;
  Column.Alignment := taRightJustify;
  Column.Caption   := GetMultiLingalMsg(90095,'Quantity');
  Inc(FColumnCnt);
  //--
  Column         := LstViewQry.Columns.Add;
  Column.Width   := LstViewQry.Font.Size * 8;
  Column.Caption := GetMultiLingalMsg(90033,'Unit Price');
  Inc(FColumnCnt);
  //--
  Column           := LstViewQry.Columns.Add;
  Column.Width     := LstViewQry.Font.Size * 10;
  Column.Alignment := taRightJustify;
  Column.Caption   := GetMultiLingalMsg(90150,'Total Amount');
  Inc(FColumnCnt);
  //--
  Column         := LstViewQry.Columns.Add;
  Column.Width   := LstViewQry.Font.Size * 8;
  Column.Caption := GetMultiLingalMsg(90247,'Manager Man');
  Inc(FColumnCnt);
  //--
  Column         := LstViewQry.Columns.Add;
  Column.Width   := LstViewQry.Font.Size * 8;
  Column.Alignment := taRightJustify;
  Column.Caption := GetMultiLingalMsg(90097,'Manager Type');
  Inc(FColumnCnt);
  //--
  Column         := LstViewQry.Columns.Add;
  Column.Width   := LstViewQry.Font.Size * 8;
  Column.Caption := GetMultiLingalMsg(90063,'Mold Code');
  Inc(FColumnCnt);
  //--
  Column         := LstViewQry.Columns.Add;
  Column.Width   := LstViewQry.Font.Size * 8;
  Column.Caption := GetMultiLingalMsg(90064,'Part Code');
  Inc(FColumnCnt);
  //--
  Column         := LstViewQry.Columns.Add;
  Column.Width   := LstViewQry.Font.Size * 8;
  Column.Caption := GetMultiLingalMsg(90236,'Issure Paper');
  Inc(FColumnCnt);
  //--
  Column         := LstViewQry.Columns.Add;
  Column.Width   := LstViewQry.Font.Size * 16;
  Column.Caption := '供应商';
  Inc(FColumnCnt);
  //--
  Column         := LstViewQry.Columns.Add;
  Column.Width   := LstViewQry.Font.Size * 16;
  Column.Caption := '制造商';
  Inc(FColumnCnt);
  //--
  Column         := LstViewQry.Columns.Add;
  Column.Width   := LstViewQry.Font.Size * 16;
  Column.Caption := GetMultiLingalMsg(90065,'Remarks');
  Inc(FColumnCnt);
    end;
  end;
end;

procedure TfrmReport.SetListViewColumn_InOutStk(sIndex: integer);
var
  Column: TListColumn;
begin
  LstViewQry.Columns.Clear;
  FColumnCnt := 0;
  case sIndex of
  0: begin
  Column         := LstViewQry.Columns.Add;
  Column.Width   := LstViewQry.Font.Size * 10;
  Column.Caption := GetMultiLingalMsg(90028,'Material Code');
  Inc(FColumnCnt);
  //--
  Column         := LstViewQry.Columns.Add;
  Column.Width   := LstViewQry.Font.Size * 12;
  Column.Caption := GetMultiLingalMsg(90029,'Material Name');
  Inc(FColumnCnt);
  //--
  Column         := LstViewQry.Columns.Add;
  Column.Width   := LstViewQry.Font.Size * 10;
  Column.Caption := GetMultiLingalMsg(90031,'Guage Name');
  Inc(FColumnCnt);
  //--
  Column         := LstViewQry.Columns.Add;
  Column.Width   := LstViewQry.Font.Size * 6;
  Column.Alignment := taLeftJustify;
  Column.Caption := GetMultiLingalMsg(90032,'Unit Name');
  Inc(FColumnCnt);
  //--
  Column           := LstViewQry.Columns.Add;
  Column.Width     := LstViewQry.Font.Size * 10;
  Column.Alignment := taRightJustify;
  Column.Caption   := GetMultiLingalMsg(90151, 'Init Stock Qty');
  Inc(FColumnCnt);
  //--
  Column           := LstViewQry.Columns.Add;
  Column.Width     := LstViewQry.Font.Size * 10;
  Column.Alignment := taRightJustify;
  Column.Caption   := GetMultiLingalMsg(90152, 'Period IN Quantity');
  Inc(FColumnCnt);
  //--
  Column         := LstViewQry.Columns.Add;
  Column.Width   := LstViewQry.Font.Size * 10;
  Column.Alignment := taRightJustify;
  Column.Caption := GetMultiLingalMsg(90153, 'Period OUT Quantity');
  Inc(FColumnCnt);
  //--
  Column         := LstViewQry.Columns.Add;
  Column.Width   := LstViewQry.Font.Size * 10;
  Column.Alignment := taRightJustify;
  Column.Caption   := GetMultiLingalMsg(90154, 'Period Return Quantity');
  Inc(FColumnCnt);
  //--
  Column           := LstViewQry.Columns.Add;
  Column.Width     := LstViewQry.Font.Size * 10;
  Column.Alignment := taRightJustify;
  Column.Caption   := GetMultiLingalMsg(90155, 'Period Tune Quantity');
  Inc(FColumnCnt);
  //--
  Column         := LstViewQry.Columns.Add;
  Column.Width   := LstViewQry.Font.Size * 10;
  Column.Alignment := taRightJustify;
  Column.Caption := GetMultiLingalMsg(90156, 'Final Stock Qty');
  Inc(FColumnCnt);
  end;
  else begin
  Column         := LstViewQry.Columns.Add;
  Column.Width   := LstViewQry.Font.Size * 10;
  Column.Caption := GetMultiLingalMsg(90028,'Material Code');
  Inc(FColumnCnt);
  //--
  Column         := LstViewQry.Columns.Add;
  Column.Width   := LstViewQry.Font.Size * 12;
  Column.Caption := GetMultiLingalMsg(90029,'Material Name');
  Inc(FColumnCnt);
  //--
  Column         := LstViewQry.Columns.Add;
  Column.Width   := LstViewQry.Font.Size * 10;
  Column.Caption := GetMultiLingalMsg(90031,'Guage Name');
  Inc(FColumnCnt);
  //--
  Column         := LstViewQry.Columns.Add;
  Column.Width   := LstViewQry.Font.Size * 6;
  Column.Alignment := taLeftJustify;
  Column.Caption := GetMultiLingalMsg(90032,'Unit Name');
  Inc(FColumnCnt);
  //--
  Column           := LstViewQry.Columns.Add;
  Column.Width     := LstViewQry.Font.Size * 10;
  Column.Alignment := taRightJustify;
  Column.Caption   := GetMultiLingalMsg(90151, 'Init Stock Qty');
  Inc(FColumnCnt);
  //--
  Column           := LstViewQry.Columns.Add;
  Column.Width     := LstViewQry.Font.Size * 10;
  Column.Alignment := taRightJustify;
  Column.Caption   := GetMultiLingalMsg(90157, 'Init Stock Amount');
  Inc(FColumnCnt);
  //--
  Column           := LstViewQry.Columns.Add;
  Column.Width     := LstViewQry.Font.Size * 10;
  Column.Alignment := taRightJustify;
  Column.Caption   := GetMultiLingalMsg(90152, 'Period IN Quantity');
  Inc(FColumnCnt);
  //--
  Column           := LstViewQry.Columns.Add;
  Column.Width     := LstViewQry.Font.Size * 10;
  Column.Alignment := taRightJustify;
  Column.Caption   := GetMultiLingalMsg(90158, 'Period IN Amount');
  Inc(FColumnCnt);
  //--
  Column         := LstViewQry.Columns.Add;
  Column.Width   := LstViewQry.Font.Size * 10;
  Column.Alignment := taRightJustify;
  Column.Caption := GetMultiLingalMsg(90153, 'Period OUT Quantity');
  Inc(FColumnCnt);
  //--
  Column           := LstViewQry.Columns.Add;
  Column.Width     := LstViewQry.Font.Size * 10;
  Column.Alignment := taRightJustify;
  Column.Caption   := GetMultiLingalMsg(90159, 'Period OUT Amount');
  Inc(FColumnCnt);
  //--
  Column         := LstViewQry.Columns.Add;
  Column.Width   := LstViewQry.Font.Size * 10;
  Column.Alignment := taRightJustify;
  Column.Caption   := GetMultiLingalMsg(90154, 'Period Return Quantity');
  Inc(FColumnCnt);
  //--
  Column           := LstViewQry.Columns.Add;
  Column.Width     := LstViewQry.Font.Size * 10;
  Column.Alignment := taRightJustify;
  Column.Caption   := GetMultiLingalMsg(90160, 'Period Return Amount');
  Inc(FColumnCnt);
  //--
  Column           := LstViewQry.Columns.Add;
  Column.Width     := LstViewQry.Font.Size * 10;
  Column.Alignment := taRightJustify;
  Column.Caption   := GetMultiLingalMsg(90155, 'Period Tune Quantity');
  Inc(FColumnCnt);
  //--
  Column           := LstViewQry.Columns.Add;
  Column.Width     := LstViewQry.Font.Size * 10;
  Column.Alignment := taRightJustify;
  Column.Caption   := GetMultiLingalMsg(90161, 'Period Tune Amount');
  Inc(FColumnCnt);
  //--
  Column         := LstViewQry.Columns.Add;
  Column.Width   := LstViewQry.Font.Size * 10;
  Column.Alignment := taRightJustify;
  Column.Caption := GetMultiLingalMsg(90156, 'Final Stock Quantity');
  Inc(FColumnCnt);
  //--
  Column           := LstViewQry.Columns.Add;
  Column.Width     := LstViewQry.Font.Size * 10;
  Column.Alignment := taRightJustify;
  Column.Caption   := GetMultiLingalMsg(90162, 'Final Stock Amount');
  Inc(FColumnCnt);
  end;
  end;   //end case
end;

Procedure TfrmReport.SetListView_InOutStk(sIndex: integer);
  function SetZeroCheck1(lcP1: PInOutStkList): Boolean;
  begin
    Result := True;
    //--- defauly query date
    if ((lcp1^.inqty=0)and(lcp1^.outqty=0)and(lcp1^.stkqty=0)) then begin
      Result := False;
      Exit;
    end;
  end;
  function SetZeroCheck2(lcP2: PInOutStkListOfCost): Boolean;
  begin
    Result := True;
    //--- defauly query date
    if ((lcp2^.inqty=0) and (lcp2^.outqty=0) and(lcp2^.stkqty=0)) then begin
      Result := False;
      Exit;
    end;
  end;
var i,j: Integer;
    lcP: PInOutStkList;
    lcpc: PInOutStkListOfCost;
    Item: TListItem;
begin
  Screen.Cursor  := crHourGlass;
12345

⌨️ 快捷键说明

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