Limpiar recepcion de usados

Inventarios/RecepcionUsados.aspx.vb

@@ -322,82 +322,80 @@ Partial Class Inventarios_RecepcionUsados
 
     Protected Sub Page_Load(sender As Object, e As EventArgs) Handles Me.Load
         If Not IsPostBack Then
-
+            CargaInicial()
-
-            CveMovimiento = -1
-            CveMovimientoRelacionado = -1
-            TieneRelacionado = -1
-            TieneSalida = False
-            EstatusAlmacenCompra = -1
-            EsConsumoInterno = False
-            Correo = ""
-            FolioCorreo = ""
-
-            If IfNull(Request("Opc"), "").ToString = "S" Then
-                RBLOpcion.SelectedValue = "3"
-                DivCliente.Visible = False
-            End If
-
-            CreaDT()
-            CargaCombos()
-            TxtFecha.Text = Now.ToShortDateString
-            TxtFechaPendientes.Text = Now.ToShortDateString
-            RVFecha.MaximumValue = Now.ToShortDateString
-            InicializaClientes()
-
-            'si viene una parámetro para cargar un movimiento lo hacemos dentro del procedimiento cargadatos
-            Select Case UsuarioActual.Empresa.Funcionalidad(103)
-                Case "1"
-
-                Case "2"
-                    divMonedaSeccion.Visible = True
-                    divGuia.Visible = True
-            End Select
-
-
-
-            'AsignacionOpcion()
-            SiguienteFolio()
-
-
-            'SI YA ES MOVIMIENTO REGISTRADO NO ESCONDE COLUMNA AF
-            If CveMovimiento > 0 Then
-                BloqueaEdicionEncabezado()
-                If UsuarioActual.CveEmpresa.Contiene(66, 13) Then
-                    TrSubProyectoActivoFijo.Visible = True
-                    VisualizaAF(True)
-                    CargaSubProyectos()
-                End If
-            End If
-
-            CargaSubProyectosUsados()
-            InicializaBitacoraTemporal()
-
-            If UsuarioActual.Empresa.Funcionalidad(132) = "1" Then
-                DivCodigoSeriePS.Visible = True
-            End If
-
-            'If IfNull(Request("CI"), -1).ToString.ToEntero > 0 Then
-            '    ActivaConsumoInterno()
-            'End If
-
-            'BLOQUEA PERMISOS
-            BtnGuardar.Enabled = PermiteGuardar()
-            BtnEliminar.Enabled = PermiteEliminar()
-            BtnContabilizar.Enabled = PermiteContabilizar()
-            BtnNuevo.Enabled = PermiteCrearNuevo()
-
-            ActivaPermisoSeccionAlmacen()
-            If CveMovimiento > 0 Then
-                PermisoVerImportes()
-            End If
-
-            CargaTamaños()
-            'DdlProducto2.setEsWebService(True)
-            'DdlProducto2.Attributes.Add("data-metodo", "getpsusados")
         End If
     End Sub
 
+    Private Sub CargaInicial()
+        CveMovimiento = -1
+        CveMovimientoRelacionado = -1
+        TieneRelacionado = -1
+        TieneSalida = False
+        EstatusAlmacenCompra = -1
+        EsConsumoInterno = False
+        Correo = ""
+        FolioCorreo = ""
+
+        If IfNull(Request("Opc"), "").ToString = "S" Then
+            RBLOpcion.SelectedValue = "3"
+            DivCliente.Visible = False
+        End If
+
+        CreaDT()
+        CargaCombos()
+        TxtFecha.Text = Now.ToShortDateString
+        TxtFechaPendientes.Text = Now.ToShortDateString
+        RVFecha.MaximumValue = Now.ToShortDateString
+        InicializaClientes()
+
+        'si viene una parámetro para cargar un movimiento lo hacemos dentro del procedimiento cargadatos
+        Select Case UsuarioActual.Empresa.Funcionalidad(103)
+            Case "1"
+
+            Case "2"
+                divMonedaSeccion.Visible = True
+                divGuia.Visible = True
+        End Select
+
+        'AsignacionOpcion()
+        SiguienteFolio()
+
+        'SI YA ES MOVIMIENTO REGISTRADO NO ESCONDE COLUMNA AF
+        If CveMovimiento > 0 Then
+            BloqueaEdicionEncabezado()
+            If UsuarioActual.CveEmpresa.Contiene(66, 13) Then
+                TrSubProyectoActivoFijo.Visible = True
+                VisualizaAF(True)
+                CargaSubProyectos()
+            End If
+        End If
+
+        CargaSubProyectosUsados()
+        InicializaBitacoraTemporal()
+
+        If UsuarioActual.Empresa.Funcionalidad(132) = "1" Then
+            DivCodigoSeriePS.Visible = True
+        End If
+
+        'If IfNull(Request("CI"), -1).ToString.ToEntero > 0 Then
+        '    ActivaConsumoInterno()
+        'End If
+
+        'BLOQUEA PERMISOS
+        BtnGuardar.Enabled = PermiteGuardar()
+        BtnEliminar.Enabled = PermiteEliminar()
+        BtnContabilizar.Enabled = PermiteContabilizar()
+        BtnNuevo.Enabled = PermiteCrearNuevo()
+
+        ActivaPermisoSeccionAlmacen()
+        If CveMovimiento > 0 Then
+            PermisoVerImportes()
+        End If
+
+        CargaTamaños()
+        'DdlProducto2.setEsWebService(True)
+        'DdlProducto2.Attributes.Add("data-metodo", "getpsusados")
+    End Sub
 
 
 
@@ -630,6 +628,7 @@ Partial Class Inventarios_RecepcionUsados
         CveRemisionRecibida = -1
         EsDistribuidor = False
         DdlClientes.SelectedValueExist("-1")
+        DdlClientes_SelectedIndexChanged(DdlClientes, EventArgs.Empty)
 
         SiguienteFolio()
 
@@ -654,6 +653,7 @@ Partial Class Inventarios_RecepcionUsados
         If Not DdlAlmacen.Items.Contains(New ListItem("Seleccione", "-1")) Then
             DdlAlmacen.Items.Add(New ListItem("Seleccione", "-1"))
         End If
+
         DdlAlmacen.SelectedValue = "-1"
         If Not EsConsumoInterno Then
             DdlAlmacen_SelectedIndexChanged(DdlAlmacen, EventArgs.Empty)
@@ -680,6 +680,8 @@ Partial Class Inventarios_RecepcionUsados
         TxtRemision.Text = ""
         DivRemision.Visible = False
 
+        'CargaInicial()
+
         UpRegistroTipoCambio.Update()
         UPDatos.Update()
     End Sub
@@ -2046,22 +2048,12 @@ Partial Class Inventarios_RecepcionUsados
     'End Sub
 
     Private Sub CreaRemisionNC(CveCliente As Integer, CveSubProyecto As Integer, CveMoneda As Integer)
+        If ObjRemisionNC IsNot Nothing Then
+            ObjRemisionNC.Dispose()
+            ObjRemisionNC = Nothing
+        End If
         Me.ObjRemisionNC = New Modelos.Factura(UsuarioActual)
 
-        'Dim Folio As String = ""
-        'Dim Serie As String = ""
-
-        'Dim ObjFolios As New ClsGralFolios()
-        'If ObjFolios.GetFolios("RNC", UsuarioActual.CveEmpresa) Then
-        '    Dim DT As DataTable = ObjFolios.DtResultados.FiltraParametros(String.Format(" Estado = 'Activo' AND CveSubProyecto = {0}", CveSubProyecto))
-        '    If DT.Rows.Count > 0 Then
-        '        Serie = DT.Rows(0)("Serie").ToString()
-        '        Folio = DT.Rows(0)("FActual").ToString()
-        '    End If
-        '    DT.Dispose()
-        'End If
-        'ObjFolios.Dispose()
-
         Me.ObjRemisionNC.TipoMensajeRespuesta = Modelos.TipoMensajeRespuesta.HTML
         Me.ObjRemisionNC.Serie = "-1"
         Me.ObjRemisionNC.Folio = -1 'Folio.ToEntero()