'Code Added By MSN on 19/02/2005
'Start

Sub fnDateAdd (CtlID , srcDate, Day, Month, Year)
	document.getElementById(CtlID).value = fnValidateDatevb(srcDate,Day,Month,Year)
End Sub			

Function fnValidateDatevb_DayLess (srcDate, Year)
	if srcDate <> "" then
		if trim(Year) = "" then Year = "0"
		Edate =	FormatDateTime(DateAdd("yyyy", Year, srcDate),2)
		Edate = FormatDateTime(DateAdd("d", -1, FormatDateTime(Edate,2)),2)
		Edate = left(Edate,2) & "-" & mid(Edate,4,2) & "-" & Right(Edate,4)
		fnValidateDatevb_DayLess = Edate
	end if
End Function			
			
Function fnCalAddNos(calcval1,calcval2,digits)
    'Function Created By PGB To add the two digit Nos.
	if trim(calcval1) ="" then	calcval1 =0		'Added for Null Value Checking
	if trim(calcval2) ="" then	calcval2 =0		'Added for Null Value Checking
	fnCalAddNos =Round(cdbl(calcval1) + cdbl(calcval2),digits)' Modified by SAS for Converting to Double
End Function

Function fnValidateDatevb(srcDate,Day,Month,Year)
	'VID on 06/06/2005 Start
	if srcDate <> "" then 'code added by VID on 26/09/2005 for srcDate empty check 
		if trim(Day) ="" then	Day ="0"
		if trim(Month) ="" then	Month ="0"
		if trim(Year) ="" then	Year ="0"'Added by ANA on 26/10/2005 for empty check
		'VID on 06/06/2005 End	
		Edate =	FormatDateTime(DateAdd("yyyy", Year, srcDate))
		Edate = FormatDateTime(DateAdd("m", Month, FormatDateTime(Edate ,2)),2) 
		Edate  = FormatDateTime(DateAdd("d", Day , FormatDateTime(Edate,2)),2)
		
		fnValidateDatevb = Edate
	end if  'code added by VID on 26/09/2005 for srcDate empty check 
End Function

'Code Added By MSN on 19/02/2005
'End

'Commented and Modified by MUT on 26/05/05 (Start)
'Reason: Null Value Checking
 
'Code Added By MSN on 23/05/05

'Sub fnCalPercentage(ctrl,percent,total,digits)
'		document.getElementById(ctrl).value = Round(((percent)*(total)/100),digits)
'End Sub

'Sub fnCalMultiply(ctrl,calcval1,calcval2,digits)
'		document.getElementById(ctrl).value =Round((calcval1 * calcval2),digits)
'End Sub

'Sub fnCalAdd(ctrl,calcval1,calcval2,digits)
'		document.getElementById(ctrl).value =Round((calcval1 + calcval2),digits)
'End Sub

'Sub fnCalSubtract(ctrl,calcval1,calcval2,digits)
'		document.getElementById(ctrl).value =Round((calcval1 - calcval2),digits)
'End Sub

'MSN-End-23/05/05

 Sub fnCalPercentage(ctrl,percent,total,digits)
	if trim(total) ="" then	total ="0"				'Added for Null Value Checking
		document.getElementById(ctrl).value = Round(((percent)*(total)/100),digits)
End Sub

Sub fnCalMultiply(ctrl,calcval1,calcval2,digits)
	if trim(calcval1) ="" then	calcval1 ="0"		'Added for Null Value Checking
	if trim(calcval2) ="" then	calcval2 ="0"		'Added for Null Value Checking
		document.getElementById(ctrl).value =Round((calcval1 * calcval2),digits)
End Sub

Sub fnCalAdd(ctrl,calcval1,calcval2,digits)
	if trim(calcval1) ="" then	calcval1 =0		'Added for Null Value Checking
	if trim(calcval2) ="" then	calcval2 =0		'Added for Null Value Checking
	'document.getElementById(ctrl).value =Round((calcval1 + calcval2),digits)
	document.getElementById(ctrl).value =Round(cdbl(calcval1) + cdbl(calcval2),digits)' Modified by SAS for Converting to Double
End Sub

Sub fnCalSubtract(ctrl,calcval1,calcval2,digits)
	if trim(calcval1) ="" then	calcval1 ="0"		'Added for Null Value Checking
	if trim(calcval2) ="" then	calcval2 ="0"		'Added for Null Value Checking
		document.getElementById(ctrl).value =Round((calcval1 - calcval2),digits)
End Sub
'Commented and Modified by MUT on 26/05/05 (End)

'Code Added By MSN on 25/05/2005
'Start

Sub fnCalcExpDate(CtlID , srcDate, Day, Month, Year)	'Change in Function Name 01-06-05 by MUT
	'This Code Added By MUT for Date Validation (02-07-2005)
	'Start 
	Flag = isDate(srcDate)	
	if Flag = True then
		document.getElementById(CtlID).value = fnValdnExpDate(srcDate,Day,Month,Year)	'Change in Function Name 01-06-05 By MUT
	End if
	'End
End Sub			
			
Function fnValdnExpDate(srcDate,Day,Month,Year) 'Change in Function Name on 1-06-05 by MUT
	'Code Added by MUT on 31/05/2005 11 AM
	'This code Added for Null Value Checking
	'MUT on 31/05/2005 Start
	if trim(Day) ="" then	Day ="0"
	if trim(Month) ="" then	Month ="0"
	if trim(Year) ="" then	Year ="0" ' Code Added by SAS on 18-07-2005
	'MUT on 31/05/2005 End	
	Edate =	FormatDateTime(DateAdd("yyyy", Year, srcDate))
	Edate = FormatDateTime(DateAdd("m", Month, FormatDateTime(Edate ,2)),2) 
	Edate  = FormatDateTime(DateAdd("d", Day , FormatDateTime(Edate,2)),2) 
	'Edate  = FormatDateTime(DateAdd("d", -1 , FormatDateTime(Edate,2)),2) 'commented by SAS on 05.12.2005
	fnValdnExpDate = Edate 'Change in Function Name on 1-06-05 by MUT
	
End Function

'code added by SAS on 17-07-2006 starts
'Function FnDateDiff(startdate,enddate)
	'days = DateDiff("d", startdate, enddate) +1
	'FnDateDiff=days
 'End Function
 
 'Function FnMonthDiff(startdate,enddate)
	'months = DateDiff("m", startdate, enddate)  
	'FnMonthDiff=months
 'End Function
 
 'Commented by LOG on 20-09-2006 starts
 'Function FnDateAdd(startdate,enddate)
'	days = DateAdd("d", startdate, enddate) 
	'FnDateAdd=days
' End Function
 'Commented by LOG on 20-09-2006 ends
 
 'code added by SAS on 17-07-2006 ends
'Code Added By MSN on 25/05/2005
'End
						
'Added by SAS on 20-2-2007	- starts
'added by LOG on 12-JUN -PS starts
Sub fnDateDiff (CtlID , srcDate, desdate,Extmon,TnMon)
		document.getElementById(CtlID).value = TnMon-datediff("m",srcDate,DesDate)+Extmon 
End Sub		
'added by LOG on 12-JUN -PS ends

'added by LOG on 10-JUL -PS starts
Sub fnDateDiffDays (CtlID , srcDate, desdate,ExtDays,TnDays)
	if TnDays = 0 and ExtDays > 0 then  
		document.getElementById(CtlID).value = ExtDays
	else
		if( (TnDays -datediff("d",srcDate,DesDate)) > 0 ) then
			document.getElementById(CtlID).value = TnMon-datediff("d",srcDate,DesDate)+ExtDays 
		else
			document.getElementById(CtlID).value = 0
		end if
	end if
End Sub		
'added by LOG on 10-JUL -PS ends
'Added by SAS on 20-2-2007 -ends