T3_3_梱包物量.vb 詳細説明書

1. 概要

このプログラムは、出荷梱包物量を計算・管理するためのVisual Basicフォームアプリケーションです。EPPlusライブラリを使用してExcelファイルとの連携を行い、出荷データを基に様々な梱包形態(ケース出荷、コンテナ出荷、段ボール梱包)の容積と数量を計算します。

2. プログラム構造

2.1 使用ライブラリ

• OfficeOpenXml - Excel操作用ライブラリ

2.2 主要コンポーネント

3. 主要機能

3.1 出荷梱包計算機能

• ケース単位出荷容積計算 - ケース単位での出荷容積を算出
• バラ単位コンテナ容積計算 - コンテナベースの出荷容積を算出
• 段ボール梱包数計算 - 段ボールサイズ別の梱包数を割り付け
• 梱包後容積計算 - 梱包後の総容積を集計

3.2 データ表示機能

• 出荷日指定による絞り込み
• 出荷データの容積換算表示
• コンテナ仕様表示
• 段ボールサイズ表表示
• 集計データのDataGridView表示

3.3 Excel連携機能

• Excelからのマスタデータ読み込み
• 計算結果のExcel出力
• 段ボール仕様、コンテナ仕様の読み込み

4. メソッド詳細

4.1 初期化・イベントハンドラ

4.2 主要計算メソッド

4.3 データ表示メソッド

4.4 Excel処理メソッド

5. データフロー

5.1 処理フロー図

5.2 データソース

6. データベース処理

6.1 使用テーブル

6.2 SQL処理

7. 計算ロジック

7.1 段ボールサイズ割り付けロジック

7.2 コンテナ計算ロジック

7.3 複数個段ボール計算

8. Excel連携

8.1 読み込みファイル

8.2 出力ファイル

8.3 EPPlus使用例

' Excel読み込み
Dim fi As New IO.FileInfo(Dat保存Path & "\SoftData\出荷スペース計算.xlsx")
Using pkg As New ExcelPackage(fi)
	Dim sheet1 As ExcelWorksheet = pkg.Workbook.Worksheets("段ボール仕様")
	For j = 1 To 10
		For i = 2 To 10
			MyDgv.Item(j - 1, i - 2).Value = sheet1.Cells(i, j).Value
		Next
	Next
End Using

' Excel書き込み
Dim MYFile As String = Dat保存Path & "\SoftData\" & myExcel & ".xlsx"
Dim fi As IO.FileInfo = New IO.FileInfo(MYFile)
Using pkg As New ExcelPackage(fi)
	Dim sheet1 As ExcelWorksheet = pkg.Workbook.Worksheets.Add("Sheet1")
	For j = 0 To Maxj
		For i = 0 To Maxi
			sheet1.Cells(i + 2, j + 1).Value = MyDgv.Item(j, i).Value
		Next
	Next
	pkg.Save()
End Using

9. 補足情報

9.1 出荷区分

• ケース_出荷 - ケース単位での出荷
• バラ_出荷コンテナ - コンテナによるバラ出荷
• バラ_段ボール - 段ボール梱包によるバラ出荷

9.2 画面項目

• 指定出荷日Tb - 計算対象の出荷日
• 全出荷日数Tb - 全体の出荷日数
• バラ出荷_コンテナ選択Cb - コンテナ型式選択コンボボックス
• 出荷コンテナ充填率Tb - コンテナ充填率(デフォルト90%)
• 段ボール充填率Tb - 段ボール充填率(固定90%)
• 出荷データの区分Rb - 出荷データ区分ラジオボタン

9.3 注意事項

10. まとめ

このプログラムは、複雑な出荷梱包計算を自動化するための包括的なソリューションです。以下の特徴があります：

• 多様な梱包形態への対応 - ケース、コンテナ、段ボールの3形態
• 正確な容積計算 - 充填率を考慮した精密な計算
• 最適な梱包割り付け - 容積に応じた適切なサイズ選定
• データベース連携 - Access DBでのデータ管理
• Excel連携 - マスタ読み込みと結果出力
• 視覚的なデータ表示 - DataGridViewによる分かりやすい表示