'
'ตรวจสอบเงื่อนไข ปีที่ป้อน สำหรับออกรายงานต่างฯ อทิเช่น งบทดลอง/งบดุล/งบกำไรขาดทุน/*.*
'
Private Function CheckYear(ByRef txt As TextBox) As Boolean
Dim succ As Boolean = False
Dim lcEra_Type As String = PubConstant.ERA_TYPE.Trim() 'TH หรือ US หรือ XX
Dim lcCur_Year As String =PubConstant.CUR_YEAR.Trim() '1234
'01January(ปีปฏิทิน) หรือ 10October(ปีราชการ)
Dim lc1ST_PERIOD As String = GetBasicDataTab("x_PERIOD").Substring(0, 2) '01-12 Only
Dim val As Integer
If Integer.TryParse(txt.Text, val) Then
If val < 100 Then 'ป้อนปี 2 หลัก
val += If(String.Equals(lcEra_Type, "TH", StringComparison.CurrentCultureIgnoreCase), 2500, 2000)
End If
txt.Text = val.ToString("D4")
succ = True
Else
txt.Text = String.Empty
End If
'...
If 1 <> 2 Then
'งวดที่เริ่มต้นและงวดที่สิ้นสุด ไม่ได้อยู่ในปีบัญชีเดียวกัน XXX
End If
Return succ
End Function