- quitar WT_Fletes

App_Code/ClsVentas.vb

@@ -3850,24 +3850,24 @@ Public Class ClsVentas
 
 #End Region
 
-#Region "  FLETES  "
+    '#Region "  FLETES  "
-    Public Function GetFletes(CveEmpresa As Integer) As Boolean
+    '    Public Function GetFletes(CveEmpresa As Integer) As Boolean
-        Dim Retorno As Boolean = False
+    '        Dim Retorno As Boolean = False
-        DataAdapter("PA_WT_Viajes")
+    '        DataAdapter("PA_WT_Viajes")
 
-        With SqlAdapter.SelectCommand.Parameters
+    '        With SqlAdapter.SelectCommand.Parameters
-            .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa
+    '            .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa
-        End With
+    '        End With
 
-        Try
+    '        Try
-            SqlAdapter.Fill(Data)
+    '            SqlAdapter.Fill(Data)
-            Retorno = True
+    '            Retorno = True
-        Catch Ex As SqlException
+    '        Catch Ex As SqlException
-            Me.OnError("Ocurrió un error al intentar obtener los Fletes", Ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo())
+    '            Me.OnError("Ocurrió un error al intentar obtener los Fletes", Ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo())
-        End Try
+    '        End Try
-        Return Retorno
+    '        Return Retorno
-    End Function
+    '    End Function
-#End Region
+    '#End Region
 
 #Region "Metodos y Forma de Pago"