Correcion en folios de garantia

Inventarios/RecepcionUsados.aspx

@@ -112,7 +112,7 @@
 
                                             <label class="col-md-1 truncate" style="width: 110px">Almacén:</label>
                                             <div class="col-md-2">
-                                                <asp:DropDownList ID="DdlAlmacen" AutoPostBack="true" AppendDataBoundItems="true" OnSelectedIndexChanged="DdlAlmacen_SelectedIndexChanged" runat="server" CssClass="form-control input-sm select2me" Style="max-width: 200px" DataTextField="Almacen" DataValueField="CveAlmacen"></asp:DropDownList>
+                                                <asp:DropDownList ID="DdlAlmacen" AutoPostBack="true" OnSelectedIndexChanged="DdlAlmacen_SelectedIndexChanged" runat="server" CssClass="form-control input-sm select2me" Style="max-width: 200px" DataTextField="Almacen" DataValueField="CveAlmacen"></asp:DropDownList>
                                                 <asp:RequiredFieldValidator InitialValue="-1" ID="RfvAlmacen" Display="None" ValidationGroup="GrpGuardar" runat="server" ControlToValidate="DdlAlmacen" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Almacen''</b> es necesario, por favor seleccione uno."></asp:RequiredFieldValidator>
                                                 <ajax:ValidatorCalloutExtender ID="ValidatorCalloutExtender1" runat="server" HighlightCssClass="vco" TargetControlID="RfvAlmacen" Width="350px"></ajax:ValidatorCalloutExtender>
                                             </div>

Inventarios/RecepcionUsados.aspx.vb

@@ -408,6 +408,9 @@ Partial Class Inventarios_RecepcionUsados
                 VisualizaAF(True)
                 CargaSubProyectos()
             End If
+        Else
+            RblUsadosAjuste.Enabled = False
+            RblUsadosAjuste.SelectedValue = "0"
         End If
 
         CargaSubProyectosUsados()
@@ -774,6 +777,7 @@ Partial Class Inventarios_RecepcionUsados
         End If
 
         RblUsadosAjuste.Enabled = True
+        RblUsadosAjuste.SelectedValue = "0"
 
         CveRemisionRecibida = -1
         EsDistribuidor = False
@@ -1604,21 +1608,22 @@ Partial Class Inventarios_RecepcionUsados
             Exit Sub
         End If
 
-
-
-        Dim filtro As String = ""
+        'Dim filtro As String = ""
         Dim CveTipoAlmacen = GlobalDTAlmacenUsuarios(UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, -1).FiltroPrimeroValor("CveTipoAlmacen", $"CveAlmacen = {DdlAlmacen.SelectedValue}").ToEntero
 
-        filtro = If(UsuarioActual.TienePermisoProceso(144), "CveConcepto NOT IN (1,4,5,8,9,10,12,26,27,29)", "CveConcepto NOT IN (1,2,4,5,8,9,10,12,26,27,29)")
+        'filtro = If(UsuarioActual.TienePermisoProceso(144), "CveConcepto NOT IN (1,4,5,8,9,10,12,26,27,29)", "CveConcepto NOT IN (1,2,4,5,8,9,10,12,26,27,29)")
 
-        If DdlAlmacen.SelectedValue = "-1" Then
-            filtro = IIf(UsuarioActual.CveEmpresa.Contiene(72, 1, 80), "CveConcepto NOT IN (4,5,10)", filtro).ToString
-        Else
-            filtro = String.Format("{0} AND CveTipoAlmacen = {1}", IIf(UsuarioActual.CveEmpresa.Contiene(72, 1, 80, 4, 7, 11, 12), "CveConcepto NOT IN (4,5,10)", filtro).ToString, CveTipoAlmacen)
+        'If DdlAlmacen.SelectedValue = "-1" Then
+        '    filtro = IIf(UsuarioActual.CveEmpresa.Contiene(72, 1, 80), "CveConcepto NOT IN (4,5,10)", filtro).ToString
+        'Else
+        '    filtro = String.Format("{0} AND CveTipoAlmacen = {1}", IIf(UsuarioActual.CveEmpresa.Contiene(72, 1, 80, 4, 7, 11, 12), "CveConcepto NOT IN (4,5,10)", filtro).ToString, CveTipoAlmacen)
+        'End If
+
+        If CveTipoAlmacen = 6 Then
+            CargaFolioAjuste()
         End If
 
 
-
     End Sub
 
 
@@ -2052,6 +2057,8 @@ Partial Class Inventarios_RecepcionUsados
             If CargaFacturas Then
                 CargaFacturasCliente()
             End If
+
+            RblUsadosAjuste.Enabled = True
         End If
         UpGenerales.Update()
     End Sub
@@ -2934,7 +2941,6 @@ Partial Class Inventarios_RecepcionUsados
             LnkAgregarUsado.Visible = True
             UppAcciones.Update()
         End If
-        DdlAlmacen.DataBind()
     End Sub
 
     Private Sub CargaAjuste()
@@ -3133,13 +3139,17 @@ Partial Class Inventarios_RecepcionUsados
 
     Private Sub CargaFolioAjuste()
         DdlFolioGarantia.Items.Clear()
-        Dim CveSubProyecto = GlobalDTAlmacen(UsuarioActual.CveEmpresa).FiltroPrimeroValor("CveSubProyecto", $"CveAlmacen={DdlAlmacen.SelectedValue}").ToEntero()
-        Dim ObjAcum As New ClsAcumuladores
-        If ObjAcum.FoliosGarantiaGet(-1, UsuarioActual.CveEmpresa, Estatus:=1, CveSubProyecto:=CveSubProyecto, Area:=2) Then
-            DdlFolioGarantia.DataSource = ObjAcum.DtResultados
+
+        If DdlAlmacen.SelectedValue.ToEntero() > 0 Then
+            Dim CveSubProyecto = GlobalDTAlmacen(UsuarioActual.CveEmpresa).FiltroPrimeroValor("CveSubProyecto", $"CveAlmacen={DdlAlmacen.SelectedValue}").ToEntero()
+            Dim ObjAcum As New ClsAcumuladores
+            If ObjAcum.FoliosGarantiaGet(-1, UsuarioActual.CveEmpresa, Estatus:=1, CveSubProyecto:=CveSubProyecto, Area:=2) Then
+                DdlFolioGarantia.DataSource = ObjAcum.DtResultados
+            End If
+            ObjAcum.Dispose()
+            DdlFolioGarantia.DataBind()
         End If
-        ObjAcum.Dispose()
-        DdlFolioGarantia.DataBind()
+
         DdlFolioGarantia.Items.Insert(0, New ListItem("Seleccione", "-1"))
 
     End Sub
@@ -3152,7 +3162,7 @@ Partial Class Inventarios_RecepcionUsados
         End If
         ObjAcumuladores.Dispose()
 
-        Dim FolioGarantia As MFolioGarantiaMensaje = ValidaFolioGarantia(DdlPSAjuste.SelectedValue.ToEntero(), DdlFolioGarantia.SelectedValue.ToEntero())
+        Dim FolioGarantia As Modelos.MFolioGarantiaMensaje = ValidaFolioGarantia(DdlPSAjuste.SelectedValue.ToEntero(), DdlFolioGarantia.SelectedValue.ToEntero())
 
         If Not FolioGarantia.Valido Then
             Alert($"El folio de garantía no es valido.<br/> Clasificacion del Producto:{FolioGarantia.ClasificacionPS}.<br/>Tipo Folio:{FolioGarantia.TipoFolio}", TipoMensaje.MsgAdvertencia)
@@ -3160,8 +3170,8 @@ Partial Class Inventarios_RecepcionUsados
 
     End Sub
 
-    Private Function ValidaFolioGarantia(CvePS As Integer, CveFolioGarantia As Integer) As MFolioGarantiaMensaje
-        Dim Retorno As New MFolioGarantiaMensaje
+    Private Function ValidaFolioGarantia(CvePS As Integer, CveFolioGarantia As Integer) As Modelos.MFolioGarantiaMensaje
+        Dim Retorno As New Modelos.MFolioGarantiaMensaje
 
         Dim Valido As Boolean = False
         Dim TipoFolio As String = ""
@@ -3372,7 +3382,7 @@ Partial Class Inventarios_RecepcionUsados
 
         Dim CvePS As Integer = DdlPSAjuste.SelectedValue.ToEntero
 
-        Dim FolioGarantia As MFolioGarantiaMensaje = ValidaFolioGarantia(CvePS, DdlFolioGarantia.SelectedValue.ToEntero())
+        Dim FolioGarantia As Modelos.MFolioGarantiaMensaje = ValidaFolioGarantia(CvePS, DdlFolioGarantia.SelectedValue.ToEntero())
 
         If Not FolioGarantia.Valido Then
             Alert($"El folio de garantía no es valido.<br/> Clasificacion del Producto:{FolioGarantia.ClasificacionPS}.<br/>Tipo Folio:{FolioGarantia.TipoFolio}", TipoMensaje.MsgAdvertencia)
@@ -3745,15 +3755,4 @@ Partial Class Inventarios_RecepcionUsados
     End Function
 #End Region
 
-
-    Partial Class MFolioGarantiaMensaje
-        Public Property CvePS As Integer
-        Public Property CveClasificacionPS As Integer
-        Public Property ClasificacionPS As String
-        Public Property CveFolioGarantia As Integer
-        Public Property TipoFolio As String
-
-        Public Property Valido As Boolean
-    End Class
-
 End Class