'	Author(s) Name(s)	 : Jayaprakash b
    '   Release Name         : R5.3
    '   Version              : 5.1.0.43
    '   Purpose              : Listener NETRONICs VARCHART XGANTT V4.2
    '   Modification :
    '   Gomathi         BAVN-R53_STPB_01256  July 13     

    Dim ToogleGroupExpandCollapse, ToggleLegend, ToggleGanttLoading
    Dim ServerURL, bDragDropEffect, bDragSourceGantt
    Dim ShowHideUP, ShowHideFS, ShowHideAP, ShowHideAddSrch, bUPLoaded, bFSLoaded, bAPLoaded
    Dim bShowCons, ImageURL, sOutDateFormat
    Dim nRowId, dOldTaskEndDate
	Dim flag
    
    ToogleGroupExpandCollapse = "collapsed"
    ToggleLegend = "hide"
    ShowHideUP = "show"
    ShowHideFS = "hide"
    ShowHideAP = "hide"
    
    ShowHideAddSrch = "hide"
    bShowCons   = False
    bUPLoaded   = False
    bFSLoaded   = False
    bAPLoaded   = False
	

    nRowId = 0
    
    'get path for INI and IFD files
    ServerURL = Location.HRef
    ServerURL = Left(ServerURL, Instrrev(ServerURL, "/"))
    
    ImageURL = Left(ServerURL,Len(ServerURL)-1)
    ImageURL = Left(ImageURL, Instrrev(ImageURL, "/"))
    ImageURL = ImageURL + "Resources/Images/CustomIcons/"

    'error: change "///" to "//"
    i = Instr(1, ServerURL, "///")

    If i > 0 Then
        ServerURL = Left(ServerURL, i) & Mid(ServerURL, i+2)
    End If

    i = Instr(1, ImageURL, "///")

    If i > 0 Then
        ImageURL = Left(ImageURL, i) & Mid(ImageURL, i+2)
    End If
    
    Sub InitCharts
	    Call Init_XGantt("ALL")
	    Call XGantt_Set_TimeScale ("wrpmain39searchtr")
	    Call XGantt_Set_TimeScale1 ("wrpmain39searc_tr")
    End Sub

    Sub Load_AcWu_Gantt_XML(sRequestLevel)
         If sRequestLevel = "review" Then  
         	
            Set dataRecCltn = Vcgantt.DataTableCollection.DataTableByName("Maindata").DataRecordCollection    
            Set oSchNodeList = plfInterface.m_ResponsePayLoad.SelectNodes("//_ganttcontent_/review/I2")
    
	     For Each oData in oSchNodeList
                dataRecCltn.Add oData.getAttribute("value")
            Next
	
            Vcgantt.EndLoading
        	
	End If
	If sRequestLevel = "review1" Then  
         	
            Set dataRecCltn = Vcgantt1.DataTableCollection.DataTableByName("Maindata").DataRecordCollection    
            Set oSchNodeList = plfInterface.m_ResponsePayLoad.SelectNodes("//_ganttcontent_/review1/I2")
    
	     For Each oData in oSchNodeList
                dataRecCltn.Add oData.getAttribute("value")
            Next
	
            Vcgantt1.EndLoading
        	
	End If
    End Sub

    //code added for gannt1 kandavel
    
   //  Sub Load_AcWu_Gantt_XML(sRequestLevel)
      //   If sRequestLevel = "review1" Then  
         	
       //     Set dataRecCltn = Vcgantt1.DataTableCollection.DataTableByName("Maindata").DataRecordCollection    
       //     Set oSchNodeList = plfInterface.m_ResponsePayLoad.SelectNodes("//_ganttcontent_/review1/I2")
    
	//     For Each oData in oSchNodeList
            //    dataRecCltn.Add oData.getAttribute("value")
       //     Next
	
       //     Vcgantt1.EndLoading
        	
	//End If
    //End Sub
       //code ends for gannt1 kandavel


    Sub Init_XGantt (sGantt)

        Dim i, mapCltn, map, mapEntry, ToDate, FromDate

        //sOutDateFormat = parent.Get_Ctrl_Val ("hdntxtdtformatinthide","hdntxtdtformatinthide",1)
        
        If sGantt = "1" OR sGantt = "ALL" Then
            ToogleGroupExpandCollapse = "expanded"
			flag= "Y"
            
            Vcgantt.ConfigurationName = ServerURL & "Vcgantt.ini"
            //Vcgantt.DateOutputFormat = "YYYY-MM-DD HH:MM:SS"
            Set mapCltn              = Vcgantt.MapCollection

            For Each map In mapCltn
                If map.Type = 7 Then 'graphicfilmap
                    MapEntryCount = map.Count
                    If MapEntryCount > 0 Then
                        Set mapEntry = map.FirstMapEntry
                        mapEntry.GraphicsFileName = ImageURL & mapEntry.GraphicsFileName
                        MapEntryCount = MapEntryCount - 1
                        Do While (MapEntryCount > 0)
                            Set mapEntry = map.NextMapEntry
                            mapEntry.GraphicsFileName = ImageURL & mapEntry.GraphicsFileName
                            MapEntryCount = MapEntryCount - 1
                        Loop
                    End If
                End If
            Next

	    //code added for gannt1 kandavel

	     Vcgantt1.ConfigurationName = ServerURL & "Vcgantt1.ini"
            //Vcgantt1.DateOutputFormat = "YYYY-MM-DD HH:MM:SS"
            Set mapCltn              = Vcgantt1.MapCollection

            For Each map In mapCltn
                If map.Type = 7 Then 'graphicfilmap
                    MapEntryCount = map.Count
                    If MapEntryCount > 0 Then
                        Set mapEntry = map.FirstMapEntry
                        mapEntry.GraphicsFileName = ImageURL & mapEntry.GraphicsFileName
                        MapEntryCount = MapEntryCount - 1
                        Do While (MapEntryCount > 0)
                            Set mapEntry = map.NextMapEntry
                            mapEntry.GraphicsFileName = ImageURL & mapEntry.GraphicsFileName
                            MapEntryCount = MapEntryCount - 1
                        Loop
                    End If
                End If
            Next

	    //code ends for gannt2  kandavel
		
        End If
 End Sub


    Sub XGantt_Set_TimeScale (sEventName)
        Dim FromDate, ToDate, nFrmYear, nFrmMonth, nFrmDate, nToYear, nToMonth, nToDate, dateLine 
        Dim sSltGanttLdBasis


        If sEventName = "wrpmain39searchtr" Or sEventName = "wrpmain39init" Then
            FromDate = Get_Ctrl_Val ("hdnhdncontrol13","hdnhdncontrol13",1)
           ToDate   = Get_Ctrl_Val ("hdnhdncontrol14","hdnhdncontrol14",1)
         
            If IsDate(FromDate) And IsDate(ToDate) Then
               ' Set dateLine = Vcgantt.DateLineCollection.DateLineByName("DateLine")
                'dateLine.Date = FromDate
               
                
                nFrmYear = Year(FromDate)
                nFrmMonth = Month(FromDate)
                nFrmDate = Day(FromDate)

                nToYear = Year(ToDate)
                nToMonth = Month(ToDate)
                nToDate = Day(ToDate)

                Vcgantt.TimeScaleStart = DateSerial(nFrmYear, nFrmMonth, nFrmDate)
                Vcgantt.TimeScaleEnd = DateSerial(nToYear, nToMonth, nToDate) 
            End If
            
				Vcgantt.ScrollToDate Vcgantt.TimeScaleStart , -1 , 0
        End If
    End Sub

    //code added for gannt1 --kandavel

    Sub XGantt_Set_TimeScale1 (sEventName)
        Dim FromDate, ToDate, nFrmYear, nFrmMonth, nFrmDate, nToYear, nToMonth, nToDate, dateLine 
        Dim sSltGanttLdBasis


        If sEventName = "wrpmain39searc_tr" Then
            FromDate = Get_Ctrl_Val ("hdnhdncontrol15","hdnhdncontrol15",1)
           ToDate   = Get_Ctrl_Val ("hdnhdncontrol16","hdnhdncontrol16",1)
         
            If IsDate(FromDate) And IsDate(ToDate) Then
               ' Set dateLine = Vcgantt1.DateLineCollection.DateLineByName("DateLine")
                'dateLine.Date = FromDate
               
                
                nFrmYear = Year(FromDate)
                nFrmMonth = Month(FromDate)
                nFrmDate = Day(FromDate)

                nToYear = Year(ToDate)
                nToMonth = Month(ToDate)
                nToDate = Day(ToDate)

                Vcgantt1.TimeScaleStart = DateSerial(nFrmYear, nFrmMonth, nFrmDate)
                Vcgantt1.TimeScaleEnd = DateSerial(nToYear, nToMonth, nToDate) 
            End If
            
				Vcgantt1.ScrollToDate Vcgantt.TimeScaleStart , -1 , 0
        End If
    End Sub
    //code ends for gannt1 --kandavel
  
    Private Sub Vcgantt_OnGroupLClick(ByVal group, ByVal x , ByVal y , returnStatus )
        Dim SubGrp,oSuperGroup1, Node,i,bCheckbox,aCrlVwVal(2000)
		Dim actstartdate,actstarttime,actenddate,actendtime,FormatedActStartDateStr,FormatedActEndDateStr
		VCGantt.SuspendUpdate True 
		 i = 0 
	if maintObject= "Aircraft Reg #" Then
           'On Group Click the check boxes needs to be selected
           If x >= 5 And x <= 30 then
                 If group.GroupingLevel = 2 then    
                         If group.datafield(10) = 0 then
                            group.datafield(10) = 1
							group.datafield(11) = 1
                            For Each Node in Group.NodeCollection
                                node.datafield(10)  = 1
                                node.datafield(11)  = 1
								node.datafield(30)	= "Y"
								Set oSuperGroup1 = Group.SuperGroup()
								Set oSuperGroup2 = oSuperGroup1.SuperGroup()
							    oSuperGroup1.DataField(10) = 1
							    oSuperGroup1.DataField(11) = 1
							    oSuperGroup1.DataField(30) = "Y"
							    oSuperGroup2.DataField(10) = 1
							    oSuperGroup2.DataField(11) = 1
							    oSuperGroup2.DataField(30) =  "Y"
							    oSuperGroup1.UpdateGroup()
							    oSuperGroup2.UpdateGroup()
								bExpand = "True"
								'group.Collapsed = false
                                node.Updatenode()
                                aCrlVwVal(i) = "25" + "~#~" + "1" + "~#~" + node.datafield(0)
                                i = i + 1
                                aCrlVwVal(i) = "26" + "~#~" + "1" + "~#~" + node.datafield(0)
                                i = i + 1
                             Next
							
                             group.UpdateGroup()

				 
                          Else
                            group.datafield(10) = 0
                            For Each Node in Group.NodeCollection
                                node.datafield(10)  = 0
                                node.datafield(11)  = 0
								'node.datafield(21)  = ""
								'node.datafield(15)  = ""
								node.datafield(30)	= "N"
								Set oSuperGroup1 = Group.SuperGroup()
								Set oSuperGroup2 = oSuperGroup1.SuperGroup()
							    oSuperGroup1.DataField(10) = 0
							    oSuperGroup1.DataField(11) = 0
								oSuperGroup1.DataField(30) = "N"
								oSuperGroup2.DataField(10) = 0
							    oSuperGroup2.DataField(11) = 0
							    oSuperGroup2.DataField(30) = "N"
							    oSuperGroup1.UpdateGroup()
								oSuperGroup2.UpdateGroup()
								bExpand = "false"
                                node.Updatenode()
                                aCrlVwVal(i) = "25" + "~#~" + "0" + "~#~" + node.datafield(0)
                                i = i + 1
                                aCrlVwVal(i) = "26" + "~#~" + "0" + "~#~" + node.datafield(0)
                                i = i + 1
                             Next      
				             group.UpdateGroup() 
							'  Call parent.Assign_Cntrl_Val_To_UI("txtactstartdttime","txtactstartdttime",0,"")
							'  Call parent.Assign_Cntrl_Val_To_UI("txtactstartdttime2","txtactstartdttime2",0,"")
							'  Call parent.Assign_Cntrl_Val_To_UI("txtactenddatetime","txtactenddatetime",0,"")
							'  Call parent.Assign_Cntrl_Val_To_UI("txtactenddatetime2","txtactenddatetime2",0,"")
                          End if    
                  End if   
				   
           End If
		ELSE
			For Each Node in Group.NodeCollection
				node.datafield(20)="1"
			 node.Updatenode()
			Next
			
		   End If
		  VCGantt.SuspendUpdate False
		
		   If bExpand = "True" Then
            For Each oGroup in Group.SubGroups
                oGroup.Visible = True
            Next
            Call Vcgantt_ExpandGroup (Group, True)
        ElseIf bExpand = "False" Then
            Call Vcgantt_ExpandGroup (Group, False)
        End If
	
	
    End Sub

	 Private Sub Vcgantt_ExpandGroup (ByRef oGroup, ByVal bAction)
        If bAction = True Then
            oGroup.UpdateGroup
            oGroup.Collapsed = False
        Else
            oGroup.UpdateGroup
            oGroup.Collapsed = True
        End If 
    End Sub

    Private Sub Vcgantt_OnNodeLClick(ByVal node, ByVal location, ByVal x, ByVal y, returnStatus)
			Dim group
			//maintObject = parent.Get_Ctrl_Val ("cmbmaintobjectcombo","cmbmaintobjectcombo",1)
	

		
	  


    End Sub

    Private Sub Vcgantt_OnNodeModifyEx(ByVal oldnode , ByVal node , ByVal modificationType , returnStatus )
            Dim FormatedPlnStartDateStr, FormatedPlnEndDateStr,FormatedActStartDateStr,FormatedActEndDateStr
            Dim ActStartDateTime,ActEndDateTime,PlnStartDateTime,PlnEndDateTime,histogram,curve,oSuperGroup1,oSuperGroup2
			
         //   FormatedPlnStartDateStr = formatDate1(node.datafield(13),1) 
        //    FormatedPlnEndDateStr   = formatDate1(node.datafield(14),1)
        //    FormatedActStartDateStr = formatDate1(node.datafield(15),1)
        //    FormatedActEndDateStr   = formatDate1(node.datafield(16),1)
	//		dOldTaskEndDate			= formatDate1(oldnode.datafield(14),1)

         //   if cdate(FormatedPlnStartDateStr) < cdate("1900-01-01") then
         //       FormatedPlnStartDateStr = ""
          //  end if
           // if cdate(FormatedPlnEndDateStr) < cdate("1900-01-01") then
           //     FormatedPlnEndDateStr = ""
          //  end if
         //   if cdate(FormatedActStartDateStr) < cdate("1900-01-01") then
          //      FormatedActStartDateStr = ""
         //   end if
         //   if cdate(FormatedActEndDateStr) < cdate("1900-01-01") then
            //    FormatedActEndDateStr = ""
           // end if
            
          
	 //  IF oldnode.datafield(13) <> node.datafield(13) OR oldnode.datafield(14) <> node.datafield(14) Then
    //        If node.datafield(13) > node.datafield(14) Then
    //            MsgBox "Plan start date cannot be greater than Plan end date"
    //            returnStatus = vcRetStatFalse
    //            Exit Sub
    //        End If
     //   End If	       
                   
    //        IF oldnode.datafield(13) <> node.datafield(13) Then
     //           Call parent.Assign_Cntrl_Val ("mlganntchartmltsec","14",Node.datafield(0),FormatedPlnStartDateStr)
     //       End If
     //       
      //      IF oldnode.datafield(14) <> node.datafield(14) Then
      //          Call parent.Assign_Cntrl_Val ("mlganntchartmltsec","15",Node.datafield(0),FormatedPlnEndDateStr)
      //      End If
            
       //     IF oldnode.datafield(15) <> node.datafield(15) Then
      //          Call parent.Assign_Cntrl_Val ("mlganntchartmltsec","16",Node.datafield(0),FormatedActStartDateStr)
       //     End If
       //     
       //     IF oldnode.datafield(16) <> node.datafield(16) Then
         //       Call parent.Assign_Cntrl_Val ("mlganntchartmltsec","17",Node.datafield(0),FormatedActEndDateStr)
         //   End If
			
            
  If node.DataField(10) = 1 Then
                       Call Assign_Cntrl_Val ("hdnhdncontrol23","hdnhdncontrol23",1,node.datafield(1))
                       Call Assign_Cntrl_Val ("hdnhdncontrol24","hdnhdncontrol24",1,node.datafield(3)) 

		       Call PlfApplicationForm.ExecuteTask("wrpmain39searc_tr","wrk_ord_pln_board","wrk_ord_pln_board_ma","","btnsearch_new","btnsearch_new","bExecutePostTask","",false)                                                                                                                
		       
            End If
			
    End Sub

  
      
    'Tool Tip the show the percentage completion 
   Private Sub VcGantt_OnToolTipTextAsVariant (ByVal hitObject , ByVal hitObjectType , ByVal x , ByVal y , ByRef ToolTipText , ByRef returnStatus )
'   Dim planstdate,planenddate,actstdate,actenddate
'   
'    if hitObjectType = 2 Then
'       ' ToolTipText = hitObject.DataField(6) & " %" 
'       maintObject = parent.Get_Ctrl_Val ("cmbmaintobjectcombo","cmbmaintobjectcombo",1)
'     
'           
'           if hitObject.DataField(13) = "12:00:00 AM" Then
'                planstdate=""
'           else
'                planstdate= formatDate1(hitObject.DataField(13),2)    
'           end if
'           if hitObject.DataField(14) = "12:00:00 AM" Then
'                planenddate=""
'           else
'                planenddate= formatDate1(hitObject.DataField(14),2)               
'           end if
'           if hitObject.DataField(15) = "12:00:00 AM" Then
'                actstdate=""
'           else
'                actstdate= formatDate1(hitObject.DataField(15),2)               
'           end if
'           if hitObject.DataField(16) = "12:00:00 AM" Then
'                actenddate=""
'           else
'                actenddate= formatDate1(hitObject.DataField(16),2)               
'           end if
'       
'       
'          ToolTipText ="Task #                 : " & hitObject.DataField(4) & vbCrLf & _
'                        "Task Desc            : " & hitObject.DataField(5) & vbCrLf & _
'                        "Plan Start Date    : " & planstdate  & vbCrLf & _
'                        "Plan End Date      : " & planenddate & vbCrLf & _
'                        "Actual Start Date : " & actstdate & vbCrLf & _
'                        "Actual End Date   : " & actenddate 
'            
'            VcGantt.ShowToolTip = True
'            VcGantt.ToolTipShowAfterClick = True
'            VcGantt.ToolTipDuration = 10000
'  	        VcGantt.ToolTipChangeDuration = 100
'   	        VcGantt.ToolTipPointerDuration = 10
'  
'    End If
    
   End Sub
function hier(node1,node2)
	dim len1
	dim len2
	dim node3
	 len1 = Len(node1)
	 len2 = Len(node2)
	 node3 = left(node1,len2)
	if node3=node2 then
	hier = 1
	else 
	hier =0
	end if
	end function
	'Function the format date 

      function formatDate1(InDate,OutFormat)
	    dim dtpMonth
	    dim dtpDay
	    dim dtpYear
	    dim dtpHour
	    dim dtpMinute
	    dim dtpSecond
	    Dim DayStr 
        Dim YearStr 
        Dim MonthStr 
        Dim HourStr 
        Dim MinuteStr 
        Dim SecondStr 
        dim DateStr
        dim TimeStr
        dim DateTimeStr
	    dtpYear = DatePart("yyyy",InDate)
	    dtpMonth = DatePart("m",InDate)
	    dtpDay = DatePart("d",InDate)
	    dtpHour = DatePart("h",InDate)
	    dtpMinute = DatePart("n",InDate)
	    dtpSecond = DatePart("s",InDate)
	    DayStr = cstr(dtpDay)
	    MonthStr = cstr(dtpMonth)
	    YearStr = cstr(dtpYear)
	    HourStr = cstr(dtpHour)
	    MinuteStr = cstr(dtpMinute)
	    SecondStr = cstr(dtpSecond)
	    If Len(DayStr) = 1 Then
            DayStr = "0" & DayStr
        End If
        If Len(YearStr) = 1 Then
            YearStr = "200" & YearStr
        elseIf Len(YearStr) = 2 Then
		    if dtpYear > 50 then
			    YearStr = "19" & YearStr
		    elseif dtpYear <= 49 then 
			    YearStr = "20" & YearStr
		    end if
        End If
        If Len(MonthStr) = 1 Then
            MonthStr = "0" & MonthStr
        End If
        If Len(HourStr) = 1 Then
            HourStr = "0" & HourStr
        End If
        If Len(MinuteStr) = 1 Then
            MinuteStr = "0" & MinuteStr
        End If
        If Len(SecondStr) = 1 Then
            SecondStr = "0" & SecondStr
        End If
        If OutFormat = 1 then
            DateStr = YearStr & "-" & MonthStr & "-" & DayStr
            TimeStr = HourStr & ":" & MinuteStr & ":" & SecondStr
            DateTimeStr = DateStr & " " & TimeStr
        end if
        If OutFormat = 2 then
            DateStr = DayStr & "/" & MonthStr & "/" & YearStr
            TimeStr = HourStr & ":" & MinuteStr & ":" & SecondStr
            DateTimeStr = DateStr & " " & TimeStr
        end if    
        formatDate1 = DateTimeStr
    end function 
	

    Sub ProcessInTD(sEventName,nerror)
        	Dim oGcs, oWcGrp, oPkgGrp, oNode, oGc, sStartDt, sEndDt,sTaskSeqNo,Node,oSuperGroup1,oSuperGroup2,Taskstatus,oGcs1
		Dim actualstrtdatetime,actualenddatetime,Givenactulstrtdte,Givenactulstrttme,Estelaptime,Givenactulenddte,Givenactulendttme
		
		
		Set oGcs = plfInterface.m_CustomRequestPayLoad.ownerDocument.createElement("gcs")
	    	plfInterface.m_CustomRequestPayLoad.appendChild(oGcs)

		//code added for gannt1 kandavel
		Set oGcs1 = plfInterface.m_CustomRequestPayLoad.ownerDocument.createElement("gcs1")
	    	plfInterface.m_CustomRequestPayLoad.appendChild(oGcs1)
		//code ends for gannt1 kandavel

			
   		If sEventName = "wrpmain39updatetr"  Then 
				Set oWu = plfInterface.m_CustomRequestPayLoad.ownerDocument.createElement("rw")
				oGcs.appendChild(oWu)
					'For Each oWcGrp in VCGantt.groupCollection
						'If (oWcGrp.datafield(10) = 1 Or oWcGrp.datafield(30) = "Y") Then
						'		for Each oAirGrp in oWcGrp.SubGroups
						'			If (oAirGrp.datafield(10) = 1 Or oAirGrp.datafield(30) = "Y") Then
						'				For Each oPkgGrp  in oAirGrp.Subgroups
						'					If (oPkgGrp.datafield(10) = 1 Or oPkgGrp.datafield(30) = "Y") Then
													for Each oNode in VCGantt.NodeCollection	
													'If oNode.datafield(10)  = 1 And oNode.datafield(25) = 1 Or oNode.DataField(30) = "Y" Then
														'If oNode.DataField(30) = "Y"  then
														'oNode.datafield(25)  = 1
														'End If
																
														Set oGc = plfInterface.m_CustomRequestPayLoad.ownerDocument.createElement("I2")
														oWu.appendChild(oGc)
															'	Call oGc.setAttribute ("ar", oNode.DataField(2))
															'	Call oGc.setAttribute ("pkn", oNode.DataField(3))
															'	Call oGc.setAttribute ("tkn", oNode.DataField(4))
															'	Call oGc.setAttribute ("ts",  oNode.DataField(29))

														Call oGc.setAttribute ("wono",  oNode.DataField(1))
														Call oGc.setAttribute ("wodesc", oNode.DataField(2))
														Call oGc.setAttribute ("taskno", oNode.DataField(3))
														Call oGc.setAttribute ("taskdesc", oNode.DataField(4))
														Call oGc.setAttribute ("wostdt", formatDate1(oNode.DataField(5),1))
														Call oGc.setAttribute ("woendt",  formatDate1(oNode.DataField(6),1))
														Call oGc.setAttribute ("tskstdt",  formatDate1(oNode.DataField(7),1))
														Call oGc.setAttribute ("tskendt",  formatDate1(oNode.DataField(8),1))
														Call oGc.setAttribute ("wo", oNode.DataField(25))
		

													' End if
												Next
											'End if
										'Next
									'End If
								'Next
						'End If
					'Next
		 End If
		//code added for gannt1 kandavel
		If sEventName = "wrpmain39updatetr"  Then 
				Set oWu = plfInterface.m_CustomRequestPayLoad.ownerDocument.createElement("rw1")
				oGcs1.appendChild(oWu)
					'For Each oWcGrp in VCGantt1.groupCollection
						'If (oWcGrp.datafield(10) = 1 Or oWcGrp.datafield(30) = "Y") Then
						'		for Each oAirGrp in oWcGrp.SubGroups
						'			If (oAirGrp.datafield(10) = 1 Or oAirGrp.datafield(30) = "Y") Then
						'				For Each oPkgGrp  in oAirGrp.Subgroups
						'					If (oPkgGrp.datafield(10) = 1 Or oPkgGrp.datafield(30) = "Y") Then
													for Each oNode in VCGantt1.NodeCollection	
													'If oNode.datafield(10)  = 1 And oNode.datafield(25) = 1 Or oNode.DataField(30) = "Y" Then
														'If oNode.DataField(30) = "Y"  then
														'oNode.datafield(25)  = 1
														'End If
																
														Set oGc = plfInterface.m_CustomRequestPayLoad.ownerDocument.createElement("I2")
														oWu.appendChild(oGc)
															

														Call oGc.setAttribute ("skill",  oNode.DataField(1))
														Call oGc.setAttribute ("emp", oNode.DataField(2))
														Call oGc.setAttribute ("frdt", formatDate1(oNode.DataField(3),1))
														Call oGc.setAttribute ("todt", formatDate1(oNode.DataField(4),1))
														
		

													' End if
												Next
											'End if
										'Next
									'End If
								'Next
						'End If
					'Next
		 End If //code added for gannt1 kandavel
 End Sub

 Sub ProcessLinkDataUpdate(sEventName)
 If sEventName = "wrpmain39emploelk" Or  sEventName ="wrpmain39spare_lk" Or sEventName ="wrpmain39serviclk" Or sEventName ="wrpmain39tool_rlk" Or sEventName ="wrpmain39other_lk" Or sEventName ="wrpmain39reservlk" Or sEventName ="wrpmain39allocalk" Or sEventName ="wrpmain39delay_lk" Or sEventName ="wrpmain39costs1lk" Or sEventName ="wrpmain39eam_sclk" Then
                for Each oNode in Vcgantt.NodeCollection           
                                                                                If oNode.DataField(10) = 1 Then
                                                                                                                Call Assign_Cntrl_Val ("hdnhdncontrol1","hdnhdncontrol1",1,oNode.datafield(1))
                                                                                                               	Call Assign_Cntrl_Val ("hdnhdncontrol2","hdnhdncontrol2",1,oNode.datafield(3))
                                                                                                                                
                                                                                End If
                                                                  Next
                                                 End If
 End Sub