-- acomodo de código

OS/OrdenesServicios.aspx.vb

@@ -4,19 +4,11 @@ Option Strict On
 Imports Extensiones
 Imports System.IO
 Imports System.Data
-Imports Telerik.Web.UI
-Imports System.Data.SqlClient
-Imports Stimulsoft.Report.StiOptions.Export
-Imports Modelos
-Imports System.Runtime.InteropServices.ComTypes
-Imports APP_Code_CSharp
-Imports System.ComponentModel.Design
 
 Partial Class OS_OrdenesServicios
     Inherits ClsPaginas
 
 #Region "Propiedades"
-    Private Shared missing As Object = System.Reflection.Missing.Value
     Private Property CveCliente As Integer
         Get
             Return ViewState("CveCliente").ToString.ToEntero
@@ -436,11 +428,6 @@ Partial Class OS_OrdenesServicios
 
                 LblCuentaEquipoTH.Visible = False
                 DdlCuentaEquipo.Visible = False
-
-
-
-
-
                 TREstatus2.Visible = If(TipoEstatus.Contiene(4, 5), False, True)
 
                 DdlPsModalFinalizar.setEsWebService(UsuarioActual.Empresa.Funcionalidad(105) = "1")
@@ -456,8 +443,6 @@ Partial Class OS_OrdenesServicios
                     DdlPsModalFinalizar.ddl.Items.Insert(0, New ListItem("Seleccione el Producto", "-1"))
                 End If
 
-
-
             End If
 
             If UsuarioActual.Empresa.Funcionalidad(578).ToEntero = 1 Then
@@ -735,9 +720,6 @@ Partial Class OS_OrdenesServicios
                 TxtIdentificadorCliente.Text = ObjOS.IdentificadorCliente
                 TxtFolioAdicional.Text = ObjOS.FolioAdicional
 
-
-
-
                 CargaEventoBitacora()
                 CargaHistorial()
                 CargaDetalles()
@@ -762,7 +744,6 @@ Partial Class OS_OrdenesServicios
                 ViewState("CveCliente") = ObjVentas.DtResultados.Rows(0)("CveCliente").ToString.ToEntero
                 CargaCliente(CveCliente)
 
-
                 Dim Drow As DataRow = ObjVentas.DtResultados.Rows(0)
                 If UsuarioActual.Empresa.Funcionalidad(578) = "1" Then
                     TxtDescripcion.Text = Drow("SerieFolio").ToString
@@ -822,10 +803,7 @@ Partial Class OS_OrdenesServicios
 
                                 TmpDT.Rows.Add(drt)
                                 Cons = Cons + 1
-
-
                             End If
-
                         Next
                         GvPS.DataSource = TmpDT
                         GvPS.DataBind()
@@ -845,8 +823,6 @@ Partial Class OS_OrdenesServicios
         Dim IDOSDetalle As Integer = 1
 
         CreaDT()
-
-
         If ObjOrdenServicio.GetOrdenesServiciosDetalle(CveOS) Then
             If ObjOrdenServicio.DtResultados IsNot Nothing Then
                 For Each Row As DataRow In ObjOrdenServicio.DtResultados.Rows
@@ -999,13 +975,9 @@ Partial Class OS_OrdenesServicios
     End Sub
     Private Sub CargaCliente(CveCliente As Integer, Optional Estatus As Integer = 1, Optional CargaPublicoGeneral As Boolean = False)
 
-
-
         Dim ObjCliente As New ClsClientes()
-
         Dim NombreCliente As String = "-1"
 
-
         If CargaPublicoGeneral Then
             NombreCliente = "PUBLICO EN GENERAL"
         End If
@@ -1225,10 +1197,6 @@ Partial Class OS_OrdenesServicios
 
         'ObjEstatusPermisos.Dispose()
 
-
-
-
-
         'OS Estatus Inicial
         If tipoEstatus = 1 And UsuarioActual.TienePermisoProceso(366) Then
             Exit Sub
@@ -1256,7 +1224,6 @@ Partial Class OS_OrdenesServicios
 
         UpGuardar.Visible = False
 
-
     End Sub
 #End Region
 
@@ -3365,7 +3332,7 @@ Partial Class OS_OrdenesServicios
 
     End Sub
 
-    Private Function GeneraRemision(CveVentaPedido As Integer, ByRef TransaccionSQL As SqlTransaction) As RespuestaFacturacion
+    Private Function GeneraRemision(CveVentaPedido As Integer, ByRef TransaccionSQL As SqlClient.SqlTransaction) As RespuestaFacturacion
 
         Dim Respuesta As New RespuestaFacturacion()
         Dim CveRemisionGenerada As Integer = -1