Limpiar recepcion de usados

Inventarios/RecepcionUsados.aspx.vb

@@ -322,8 +322,11 @@ Partial Class Inventarios_RecepcionUsados
 
     Protected Sub Page_Load(sender As Object, e As EventArgs) Handles Me.Load
         If Not IsPostBack Then
+            CargaInicial()
+        End If
+    End Sub
 
-
+    Private Sub CargaInicial()
         CveMovimiento = -1
         CveMovimientoRelacionado = -1
         TieneRelacionado = -1
@@ -354,12 +357,9 @@ Partial Class Inventarios_RecepcionUsados
                 divGuia.Visible = True
         End Select
 
-
-
         'AsignacionOpcion()
         SiguienteFolio()
 
-
         'SI YA ES MOVIMIENTO REGISTRADO NO ESCONDE COLUMNA AF
         If CveMovimiento > 0 Then
             BloqueaEdicionEncabezado()
@@ -395,12 +395,10 @@ Partial Class Inventarios_RecepcionUsados
         CargaTamaños()
         'DdlProducto2.setEsWebService(True)
         'DdlProducto2.Attributes.Add("data-metodo", "getpsusados")
-        End If
     End Sub
 
 
 
-
 #Region "  PERMISOS PAGINAS  "
     Private Function PermiteGuardar() As Boolean
         Return True 'If(UsuarioActual.TienePermisoProceso(181) Or EsConsumoInterno, True, False)
@@ -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()