correccion de warning, para que retorne valor función

asmx/WSSIGApp.asmx

@@ -1548,7 +1548,7 @@ Public Class WSSIGApp
 #Region "P R O D U C T O S - S E R V I C I O S"
     <WebMethod>
     Public Function AddPS(parametros As String) As Boolean
-        'Dim TieneError As Boolean = False
+        Dim TieneError As Boolean = False
         'Dim ObjPS As New ClsProductosServicios
         'ObjPS.IniciaTransacSQL()
         'Try
@@ -1571,7 +1571,7 @@ Public Class WSSIGApp
         '    End If
         '    ObjPS.Dispose()
         'End Try
-        'Return Not TieneError
+        Return Not TieneError
     End Function
     <WebMethod()>
     Public Function GetPS(CveEmpresa As Integer) As String
@@ -1598,7 +1598,7 @@ Public Class WSSIGApp
     End Function
     <WebMethod>
     Public Function AddClasificaciones(parametros As String) As Boolean
-        'Dim TieneError As Boolean = False
+        Dim TieneError As Boolean = False
         'Dim ObjClasi As New ClsClasificaciones
         'ObjClasi.IniciaTransacSQL()
         'Try
@@ -1620,7 +1620,7 @@ Public Class WSSIGApp
         '    End If
         '    ObjClasi.Dispose()
         'End Try
-        'Return Not TieneError
+        Return Not TieneError
     End Function
     <WebMethod()>
     Public Function GetRepPS(params As String) As String