-

Ventas/RepVentas.aspx.vb

@@ -2,11 +2,8 @@
 Option Strict On
 
 Imports System.Data
-Imports System.Web.Compilation
 Imports Extensiones
 Imports Microsoft.Reporting.WebForms
-Imports System.Xml.Serialization
-Imports System.IO
 Imports System.Xml
 
 Partial Class Ventas_RepVentas
@@ -116,20 +113,6 @@ Partial Class Ventas_RepVentas
             If UsuarioActual.CveEmpresa = 72 AndAlso UsuarioActual.CveUsuario.Contiene(100, 1614, 1517) Then
                 liRepHP.Visible = True
             End If
-
-            'SI ES EL USUARIO SISTEMA MOSTRAR LA MODALIDAD CONTABLE (TEMPORAL)
-            'If UsuarioActual.CveUsuario = 100 Then
-            'divModalidadcontable.Visible = True
-            'End If
-
-            'Modalidad Cotizacion
-            If Opcion = "Cot" Then
-                DdlTipoComprobante.SelectedValuesIfExistM(Opcion)
-                DdlGrupo.SelectedValueExist("7")
-                DdlTipoComprobante_SelectedIndexChanged(DdlTipoComprobante, EventArgs.Empty)
-                'DdlEstatus.SelectedValue = "-1"
-            End If
-
             CargaGrupo()
 
             If UsuarioActual.CveVendedor > 0 AndAlso Not UsuarioActual.TienePermisoProceso(263) Then
@@ -147,8 +130,14 @@ Partial Class Ventas_RepVentas
                 DVServicioDomicilio.Visible = True
                 DivLblDistr.Visible = True
                 DivDistr.Visible = True
+                'Modalidad Cotizacion
+                If Opcion = "Cot" Then
+                    DdlTipoComprobante.SelectedValuesIfExistM(Opcion)
+                    DdlGrupo.SelectedValueExist("7")
+                    DdlTipoComprobante_SelectedIndexChanged(DdlTipoComprobante, EventArgs.Empty)
+                    DdlEstatus.ClearSelection()
+                End If
             End If
-
             PrePersonalizacion()
             CargaPersonalizacion()
 
@@ -297,11 +286,8 @@ Partial Class Ventas_RepVentas
         Agrupador = DdlGrupo.SelectedItem.Text
         CveProyecto = DdlProyecto.SelectedValue.ToEntero
         ObjVentas.Dispose()
-
-
         GvDatosDataBind()
 
-
         Primeracontsulta = False
     End Sub
 
@@ -998,22 +984,16 @@ Partial Class Ventas_RepVentas
 
     Protected Sub LnkDescargaCartaPorte_Click(sender As Object, e As EventArgs)
 
-
         Dim ObjVentas As New ClsVentas
         Dim DTDataos As New DataTable
         Dim CveSubProyectos As String = If(DdlSubProyecto.GetSelectedValuesM = "", "-1", DdlSubProyecto.GetSelectedValuesM)
 
-
         If ObjVentas.GetListadoCartaPorteRep(txtFechaI.Text.ToDate, txtFechaF.Text.ToDate, CveSubProyectos, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa) Then
             DTDataos = ObjVentas.DtResultados
         End If
 
         ObjVentas.Dispose()
-
-
         DTDataos.ExportToExcel("RepCartasPorte")
-
-
     End Sub
 
     Protected Sub ImgExcelPersonalizado_Click(sender As Object, e As EventArgs) Handles ImgExcelPersonalizado.Click