• R/O
  • SSH
  • HTTPS

mlapplication: Commit


Commit MetaInfo

Revision56 (tree)
Time2017-01-16 20:12:18
Authoryukio_miura

Log Message

(empty log message)

Change Summary

Incremental Difference

--- trunk/MLApp.TRNLib/Class/dba/Cutoff.vb (revision 55)
+++ trunk/MLApp.TRNLib/Class/dba/Cutoff.vb (revision 56)
@@ -534,14 +534,20 @@
534534 sWHR &= " AND C120_KUBN2=0"
535535 Dim drC120S6 As DataModel.C1_TRNDataSet.C120_FRow() = dtC120.Select(sWHR, "C120_DATE1")
536536 For Each dr As DataModel.C1_TRNDataSet.C120_FRow In drC120S6
537- Dim dteKADTtmp As Date = dr.C120_DATE1
538- Dim dteOWDTtmp As Date = dr.C120_DATE1
539537
540538 '' Z110 - RECMP
539+ '' ***
541540
542541 '' Z120 - RECMP
542+ '' ***
543543
544544 '' Z130 - RECMP
545+ Dim execProcZ130 As New TRNLib.Z130.ExecProc
546+ execProcZ130.M150CD1s = String.Empty
547+ execProcZ130.M150CD1e = String.Empty
548+ execProcZ130.StartDate = dr.C120_DATE2
549+ execProcZ130.EndDate = dr.C120_DATE1
550+ execProcZ130.Recmp()
545551
546552 Next
547553
--- trunk/MLApp.TRNLib/Class/dba/ExecProc.vb (revision 55)
+++ trunk/MLApp.TRNLib/Class/dba/ExecProc.vb (revision 56)
@@ -22,6 +22,14 @@
2222
2323 End Class
2424
25+Namespace Z110
26+
27+End Namespace
28+
29+Namespace Z120
30+
31+End Namespace
32+
2533 Namespace Z130
2634
2735 ''' <summary>
Show on old repository browser