📄 invreport.pas
字号:
with LstViewQry.Items do begin
BeginUpdate;
Clear;
EndUpdate;
end;
SetListViewColumn_InOutStk(sIndex);
//--
LstViewQry.Items.BeginUpdate;
FOnMakeItemCaption := True;
try
case sIndex of
0: begin
for i := 0 to FInOutStkList.Count-1 do begin
lcP := FInOutStkList.Items[i];
if not(SetZeroCheck1(lcp)) then continue;
Item := LstViewQry.Items.Add;
for j := 0 to FColumnCnt-1 do Item.Subitems.Add('');
lcP^.ITEM := Item;
Item.Data := lcP;
MakeItemCaption_InOutStk(Item, sIndex);
end;
end;
else begin
for i := 0 to FInOutStkCostList.Count-1 do begin
lcPc := FInOutStkCostList.Items[i];
if not(SetZeroCheck2(lcpc)) then continue;
Item := LstViewQry.Items.Add;
for j := 0 to FColumnCnt-1 do Item.Subitems.Add('');
lcPc^.ITEM := Item;
Item.Data := lcPc;
MakeItemCaption_InOutStk(Item, sIndex);
end;
end;
end;
finally
FOnMakeItemCaption := False;
LstViewQry.Items.EndUpdate;
if LstViewQry.Items.Count > 0 then LstViewQry.TopItem.Selected := True;
Screen.Cursor := crDefault;
end;
end;
procedure TfrmReport.MakeItemCaption_InOutStk(Item: TListItem; sIndex: integer);
var lcP: PInOutStkList;
lcpC: PInOutStkListOfCost;
begin
if Item = nil then Exit;
case sIndex of
0: begin
if Item.Data = nil then Exit;
lcP := Item.Data;
Item.Caption := dm_inventory.GetMaterialcode(lcP^.mtl_rec_id);
Item.SubItems[00] := dm_inventory.GetMaterialName(lcP^.mtl_rec_id);
Item.SubItems[01] := dm_inventory.GetMaterialStandardName(lcP^.mtl_rec_id);
Item.SubItems[02] := dm_inventory.GetUnitTypeName(lcP^.mtl_rec_id);
Item.SubItems[03] := FormatFloat('#,##0.00',lcP^.initqty);
Item.SubItems[04] := FormatFloat('#,##0.00',abs(lcP^.inqty));
Item.SubItems[05] := FormatFloat('#,##0.00',abs(lcP^.outqty));
Item.SubItems[06] := FormatFloat('#,##0.00',abs(lcP^.returnqty));
Item.SubItems[07] := FormatFloat('#,##0.00',abs(lcP^.tuneqty));
Item.SubItems[08] := FormatFloat('#,##0.00',abs(lcP^.stkqty));
end;
else begin
if Item.Data = nil then Exit;
lcPc := Item.Data;
Item.Caption := dm_inventory.GetMaterialcode(lcpC^.mtl_rec_id);
Item.SubItems[00] := dm_inventory.GetMaterialName(lcpC^.mtl_rec_id);
Item.SubItems[01] := dm_inventory.GetMaterialStandardName(lcpC^.mtl_rec_id);
Item.SubItems[02] := dm_inventory.GetUnitTypeName(lcpC^.mtl_rec_id);
Item.SubItems[03] := FormatFloat('#,##0.00',lcpC^.initqty);
Item.SubItems[04] := FormatFloat('#,##0.00',lcpC^.initAmount);
Item.SubItems[05] := FormatFloat('#,##0.00',abs(lcpC^.inqty));
Item.SubItems[06] := FormatFloat('#,##0.00',abs(lcpC^.inAmount));
Item.SubItems[07] := FormatFloat('#,##0.00',abs(lcpC^.outqty));
Item.SubItems[08] := FormatFloat('#,##0.00',abs(lcpC^.outAmount));
Item.SubItems[09] := FormatFloat('#,##0.00',abs(lcpC^.returnqty));
Item.SubItems[10] := FormatFloat('#,##0.00',abs(lcpC^.returnAmount));
Item.SubItems[11] := FormatFloat('#,##0.00',abs(lcpC^.tuneqty));
Item.SubItems[12] := FormatFloat('#,##0.00',abs(lcpC^.tuneAmout));
Item.SubItems[13] := FormatFloat('#,##0.00',abs(lcpC^.stkqty));
Item.SubItems[14] := FormatFloat('#,##0.00',abs(lcpC^.stkAmout));
end;
end;
end;
procedure TfrmReport.btnCloseClick(Sender: TObject);
begin
Close;
end;
procedure TfrmReport.rdoManagerClick(Sender: TObject);
begin
rdoReport.ItemIndex := -1;
rdoTitle.Enabled := false;
rdoSortID.Enabled := false;
rdoSortID.ItemIndex := 2;
btnQuery.Click;
end;
procedure TfrmReport.rdoSortIDClick(Sender: TObject);
begin
case rdoSortID.ItemIndex of
0: ListSortKey := 1;
1: ListSortKey := 2;
2: ListSortKey := 3;
3: ListSortKey := 4;
else ListSortKey := 3;
end;
btnQuery.Click;
end;
//////////////////////////////////////////////////////////////////////////////////////
procedure TfrmReport.PrintProc(iReport: Integer);
var V: OleVariant;
RecCnt, ColCnt: Integer;
i: Integer;
S: string;
begin
try
V := CreateOleObject('Excel.Application');
except
MessageDlg('Excel Application is Created Error!', mtError, [mbOk], 0);
Exit;
end;
V.Visible := True;
V.WorkBooks.Add;
V.WorkBooks[1].Activate;
V.WorkSheets[1].Activate;
RecCnt := 0; ColCnt := 0;
ClipBoard.asText := CopyToClipBoard(RecCnt, ColCnt);
V.ActiveSheet.PageSetUp.Orientation := xlLandscape; //--
V.ActiveSheet.PageSetUp.PrintTitleRows := '$1:$3'; //--
V.ActiveSheet.PageSetUp.RightHeader := //--
'&9 '+FormatDateTime('yyyy/mm/dd hh:nn', Now) + ' ' + 'Print Date';
V.ActiveSheet.PageSetUp.CenterFooter := '&9&P/&N Page'; //--
V.ActiveSheet.PageSetUp.Order := xlOverThenDown; //--
//--
V.ActiveSheet.PageSetUp.LeftMargin := V.InchesToPoints(15/25.4); // 15mm
V.ActiveSheet.PageSetUp.RightMargin := V.InchesToPoints(15/25.4); // 15mm
V.ActiveSheet.PageSetUp.TopMargin := V.InchesToPoints(15/25.4); // 15mm
V.ActiveSheet.PageSetUp.BottomMargin := V.InchesToPoints(15/25.4); // 15mm
V.ActiveSheet.PageSetUp.HeaderMargin := V.InchesToPoints(10/25.4); // 10mm
V.ActiveSheet.PageSetUp.FooterMargin := V.InchesToPoints(10/25.4); // 10mm
//--
V.ActiveSheet.Cells.Font.Size := 9;
V.ActiveSheet.Cells[1, 1].HorizontalAlignment := xlLeft;
V.ActiveSheet.Cells[1, 1].Font.Size := 20;
V.ActiveSheet.Cells[1, 1].Font.Bold := True;
V.ActiveSheet.Cells[1, 1].Font.Italic := True;
V.ActiveSheet.Rows[3].HorizontalAlignment := xlCenter;
V.ActiveSheet.Rows[3].Font.Size := 11;
V.ActiveSheet.Rows[3].Font.Bold := True;
//--
V.ActiveSheet.Columns[2].NumberFormatLocal := '@'; //--
V.ActiveSheet.Columns[7].NumberFormatLocal := '@'; //--
V.ActiveSheet.Columns[8].NumberFormatLocal := '@'; //--
V.ActiveSheet.Columns[9].NumberFormatLocal := '@';
//--
S := 'A3:'+Chr(Ord('A')+(ColCnt-1))+IntToStr(RecCnt+3);
V.ActiveSheet.Range[S].Borders[xlDiagonalDown].LineStyle := xlNone;
V.ActiveSheet.Range[S].Borders[xlDiagonalUp].LineStyle := xlNone;
V.ActiveSheet.Range[S].Borders[xlEdgeLeft].LineStyle := xlContinuous;
V.ActiveSheet.Range[S].Borders[xlEdgeLeft].Weight := xlThin;
V.ActiveSheet.Range[S].Borders[xlEdgeLeft].ColorIndex := xlAutomatic;
V.ActiveSheet.Range[S].Borders[xlEdgeTop].LineStyle := xlContinuous;
V.ActiveSheet.Range[S].Borders[xlEdgeTop].Weight := xlThin;
V.ActiveSheet.Range[S].Borders[xlEdgeTop].ColorIndex := xlAutomatic;
V.ActiveSheet.Range[S].Borders[xlEdgeBottom].LineStyle := xlContinuous;
V.ActiveSheet.Range[S].Borders[xlEdgeBottom].Weight := xlThin;
V.ActiveSheet.Range[S].Borders[xlEdgeBottom].ColorIndex := xlAutomatic;
V.ActiveSheet.Range[S].Borders[xlEdgeRight].LineStyle := xlContinuous;
V.ActiveSheet.Range[S].Borders[xlEdgeRight].Weight := xlThin;
V.ActiveSheet.Range[S].Borders[xlEdgeRight].ColorIndex := xlAutomatic;
V.ActiveSheet.Range[S].Borders[xlInsideVertical].LineStyle := xlDot;
V.ActiveSheet.Range[S].Borders[xlInsideVertical].Weight := xlThin;
V.ActiveSheet.Range[S].Borders[xlInsideVertical].ColorIndex := xlAutomatic;
V.ActiveSheet.Range[S].Borders[xlInsideHorizontal].LineStyle := xlDot;
V.ActiveSheet.Range[S].Borders[xlInsideHorizontal].Weight := xlThin;
V.ActiveSheet.Range[S].Borders[xlInsideHorizontal].ColorIndex := xlAutomatic;
S := 'A3:'+Chr(Ord('A')+(ColCnt-1))+'3';
V.ActiveSheet.Range[S].Borders[xlDiagonalDown].LineStyle := xlNone;
V.ActiveSheet.Range[S].Borders[xlDiagonalUp].LineStyle := xlNone;
V.ActiveSheet.Range[S].Borders[xlEdgeLeft].LineStyle := xlContinuous;
V.ActiveSheet.Range[S].Borders[xlEdgeLeft].Weight := xlThin;
V.ActiveSheet.Range[S].Borders[xlEdgeLeft].ColorIndex := xlAutomatic;
V.ActiveSheet.Range[S].Borders[xlEdgeTop].LineStyle := xlContinuous;
V.ActiveSheet.Range[S].Borders[xlEdgeTop].Weight := xlThin;
V.ActiveSheet.Range[S].Borders[xlEdgeTop].ColorIndex := xlAutomatic;
V.ActiveSheet.Range[S].Borders[xlEdgeBottom].LineStyle := xlContinuous;
V.ActiveSheet.Range[S].Borders[xlEdgeBottom].Weight := xlThin;
V.ActiveSheet.Range[S].Borders[xlEdgeBottom].ColorIndex := xlAutomatic;
V.ActiveSheet.Range[S].Borders[xlEdgeRight].LineStyle := xlContinuous;
V.ActiveSheet.Range[S].Borders[xlEdgeRight].Weight := xlThin;
V.ActiveSheet.Range[S].Borders[xlEdgeRight].ColorIndex := xlAutomatic;
//--
V.ActiveSheet.Cells[3, 1].PasteSpecial;
V.ActiveSheet.Cells[3, 1].Select;
//--
V.ActiveSheet.Columns['A:'+Chr(Ord('A')+(ColCnt-1))].EntireColumn.AutoFit;
for i:=1 to ColCnt do
V.ActiveSheet.Columns[i].ColumnWidth :=
V.ActiveSheet.Columns[i].ColumnWidth + 2;
//--
V.ActiveSheet.Cells[1, 1].Value := ' ' + 'report List';
if frmMain.IniData.isExcelPrint then V.Print;
end;
Procedure TfrmReport.Excel_inpaperList(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;
if chkRptIssNo.Checked then
Filename := ExtractFilePath(application.ExeName) + 'inpaper2.xls'
else 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;
//////////////////////////////////
if chkRptIssNo.Checked then begin
V.ActiveSheet.PageSetUp.Orientation := xlLandscape; //-- xlLandscape; //--
V.ActiveSheet.PageSetUp.PrintTitleRows := '$1:$3'; //--
V.ActiveSheet.PageSetUp.CenterFooter := '&9&P/&N Page'; //--
V.ActiveSheet.PageSetUp.Order := xlOverThenDown; //--
end
else begin
V.ActiveSheet.PageSetUp.Orientation := xlPortrait; //-- xlLandscape; //--
V.ActiveSheet.PageSetUp.PrintTitleRows := '$1:$3'; //--
V.ActiveSheet.PageSetUp.CenterFooter := '&9&P/&N Page'; //--
V.ActiveSheet.PageSetUp.Order := xlOverThenDown; //--
end;
//--
V.ActiveSheet.PageSetUp.LeftMargin := V.InchesToPoints(7/25.4); // 15mm
V.ActiveSheet.PageSetUp.RightMargin := V.InchesToPoints(7/25.4); // 15mm
V.ActiveSheet.PageSetUp.TopMargin := V.InchesToPoints(15/25.4); // 15mm
V.ActiveSheet.PageSetUp.BottomMargin := V.InchesToPoints(15/25.4); // 15mm
V.ActiveSheet.PageSetUp.HeaderMargin := V.InchesToPoints(10/25.4); // 10mm
V.ActiveSheet.PageSetUp.FooterMargin := V.InchesToPoints(10/25.4); // 10mm
///////////////////////////////////////
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;
if chkRptIssNo.Checked then begin
{
V.ActiveSheet.Cells[2, 11].NumberFormatLocal := '@';
V.ActiveSheet.Cells[2, 11].Value := strpas(lcp^.PAPERNO);
V.ActiveSheet.Cells[2, 11].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;
end
else begin
{
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -