2009.07.18予定一覧修正（AIF） ↑ここまではルールがなかったので、番号なし ↓こっからは以下の様に記載する事 ===================================================================== 001 09/08/10 障害内容 複数の手配に対してロット分割を行った時、保存ボタンを押すと異常終了する。 対応方法 MainForm−Command8−Clickの中にある以下の箇所 修正前----------------------------------- Loop GoTo DoOKS2 ErrDoS: ----------------------------------------- 修正後----------------------------------- Loop '############09/08/10 001 ADD STR kimura SeqDataSet2.Close '############09/08/10 001 ADD END kimura GoTo DoOKS2 ErrDoS: ----------------------------------------- ===================================================================== 002 09/08/10 障害内容 生産計画入力で作成した生産計画情報からできた手配を確定した後、 予定に戻すと、生産計画情報の確定区分が「予定」なる。 対応方法 MainForm−Command8−Clickの中にある以下の箇所 修正前----------------------------------- If ShoyouRec.EOF Then SeqDataSet("確定区分").Value = "1" SeqDataSet("指示済区分").Value = "1" Else SeqDataSet("確定区分").Value = "2" SeqDataSet("指示済区分").Value = "2" End If ----------------------------------------- 修正後----------------------------------- '############09/08/10 002 MNT STR kimura If ShoyouRec.EOF Then If SeqDataSet("登録プログラム").Value <> "P202010" Then SeqDataSet("確定区分").Value = "1" End If SeqDataSet("指示済区分").Value = "1" Else If SeqDataSet("登録プログラム").Value <> "P202010" Then SeqDataSet("確定区分").Value = "2" End If SeqDataSet("指示済区分").Value = "2" End If '############09/08/10 002 MNT END kimura ===================================================================== 003 09/08/10 障害内容内容 作業時間を手で変更した手配を予定に戻し、再度確定した時に、前回入力した 作業時間を覚えている。 対応方法 予定に戻す時に、作業時間を計算しなおす。 MainFormのpopYotei_ClickにあるDim分の下に以下のコマンドを追加する '############09/09/10 ADD STR kimura 003 PlanInfo(mIntPopUpIndex).TotalTime = TimeCalc(PlanInfo(mIntPopUpIndex).ReadyTime, PlanInfo(mIntPopUpIndex).SeisanSei, PlanInfo(mIntPopUpIndex).PlanQty, PlanInfo(mIntPopUpIndex).JinIn) '############09/09/10 ADD STR kimura 003 ===================================================================== 004 09/09/10 障害内容 確定したオーダを予定に戻した時、予定一覧表に表示される開始日、納期が AsPLANerの開始日からの計算値になっている。 対応方法 起動時点の開始日、納期に戻す。 ===================================================================== 005 09/09/11 障害内容 mainformで工程分類をダブルクリックして、日付の範囲を変更した時、 異常終了する。 対応方法 Preservの使い方がよくなかった。 変更前 ReDim Preserve InTime(0 To DateCnt, 1 To RCount) ReDim Preserve ChangeTime(0 To DateCnt, 1 To RCount) ReDim Preserve ChkTime(0 To DateCnt, 8, 1 To RCount) ReDim Preserve ChkTime2(0 To DateCnt, gIntMaxChk2, 1 To RCount) ''2009.04.01追加（AIF） 変更後 '#########09/09/11 MNT STR kimura 005 ' ReDim Preserve InTime(0 To DateCnt, 1 To RCount) ' ReDim Preserve ChangeTime(0 To DateCnt, 1 To RCount) ' ReDim Preserve ChkTime(0 To DateCnt, 8, 1 To RCount) ' ReDim Preserve ChkTime2(0 To DateCnt, gIntMaxChk2, 1 To RCount) ''2009.04.01追加（AIF） If RCount = 2 Then ReDim InTime(0 To DateCnt, 1 To RCount) ReDim ChangeTime(0 To DateCnt, 1 To RCount) ReDim ChkTime(0 To DateCnt, 8, 1 To RCount) ReDim ChkTime2(0 To DateCnt, gIntMaxChk2, 1 To RCount) ''2009.04.01追加（AIF） Else ReDim Preserve InTime(0 To DateCnt, 1 To RCount) ReDim Preserve ChangeTime(0 To DateCnt, 1 To RCount) ReDim Preserve ChkTime(0 To DateCnt, 8, 1 To RCount) ReDim Preserve ChkTime2(0 To DateCnt, gIntMaxChk2, 1 To RCount) ''2009.04.01追加（AIF） End If '#########09/09/11 MNT END kimura 005 ===================================================================== 006 10/12/23 障害内容 手配分割時に、入数=0の場合に、「0で除算できません」エラーで異常終了した。 対応方法 IIF関数で行うと引数を渡す際に計算を行っていた。 変更箇所：BunWindows.frm - Command3_Click() 変更前 PlanWindow.Text28 = IIf(PlanInfo(InfoNo).Irisu = 0, PlanInfo(InfoNo).PlanQty, PlanInfo(InfoNo).PlanQty Mod PlanInfo(InfoNo).Irisu) PlanWindow.Text27 = IIf(PlanInfo(InfoNo).Irisu = 0, 0, Int(PlanInfo(InfoNo).PlanQty / PlanInfo(InfoNo).Irisu)) 変更後 ' 6　2010/12/23 yoshida START ' PlanWindow.Text28 = IIf(PlanInfo(InfoNo).Irisu = 0, PlanInfo(InfoNo).PlanQty, PlanInfo(InfoNo).PlanQty Mod PlanInfo(InfoNo).Irisu) ' PlanWindow.Text27 = IIf(PlanInfo(InfoNo).Irisu = 0, 0, Int(PlanInfo(InfoNo).PlanQty / PlanInfo(InfoNo).Irisu)) If PlanInfo(InfoNo).Irisu = 0 Then PlanWindow.Text28 = PlanInfo(InfoNo).PlanQty Else PlanWindow.Text28 = PlanInfo(InfoNo).PlanQty Mod PlanInfo(InfoNo).Irisu End If If PlanInfo(InfoNo).Irisu = 0 Then PlanWindow.Text27 = 0 Else PlanWindow.Text27 = Int(PlanInfo(InfoNo).PlanQty / PlanInfo(InfoNo).Irisu) End If ' 6　2010/12/23 yoshida END ===================================================================== 007 10/12/23 障害内容 Oracle使用時に、受注関連テーブルの表示で、品名コード以降の項目間に スペースが無く、左に詰まっている。 対応方法 テーブルの情報を取得した際に、Pervasiveでは空白込みだが、Oracleでは空白無しになるため。 変更箇所：MainForm.frm - RightButtonDown() 変更前 PlanWindow.JList.AddItem "受注 " & Right$(Space(8) & ReturnPlanDataSet("番号"), 8) & " " & Right$(Space(23) & ReturnPlanDataSet("注文番号"), 23) & " " _ & ReturnPlanDataSet("受注品名コード") & ReturnPlanDataSet("受注品名") _ & ReturnPlanDataSet("受注得意先コード") & ReturnPlanDataSet("受注得意先名") _ & Format(Right(ReturnPlanDataSet("受注納期"), 4), "00/00") & Right$(Space(8) & ReturnPlanDataSet("受注数量") - ReturnPlanDataSet("出荷数量"), 8) 変更後 ' 7 2010/12/23 吉田 品名コード以降の項目間にスペースを作成 PlanWindow.JList.AddItem "受注 " & DivAlign("番号", 8, "R") & " " & DivAlign("注文番号", 23, "L") & " " _ & DivAlign("受注品名コード", 25, "L") & DivAlign("受注品名", 40, "L") _ & DivAlign("受注得意先コード", 12, "L") & DivAlign("受注得意先名", 17, "L") _ & Format(Right(ReturnPlanDataSet("受注納期"), 4), "00/00") & Right$(Space(8) & ReturnPlanDataSet("受注数量") - ReturnPlanDataSet("出荷数量"), 8) 変更箇所：Planner Module.bas - (関数追加) 変更後 '7 2010/12/23 吉田　手配受注関連表示の文字列整形に使用 '文字列整形関数 'ColumnName= 項目名 'StringLen=　文字数 'align= R　右寄せ ' L　左寄せ Public Function DivAlign(ColumnName As String, StringLen As Integer, align As String) As String If align = "L" Then DivAlign = Left$(ReturnPlanDataSet(ColumnName) & Space(StringLen), StringLen) ElseIf align = "R" Then DivAlign = Right$(Space(StringLen) & ReturnPlanDataSet(ColumnName), StringLen) ElseIf align = "" Then DivAlign = ReturnPlanDataSet(ColumnName) End If End Function =====================================================================