AdminADS/SIG
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Correcion en folios de garantia

Browse Source
This commit is contained in:
Jonathan Alexis Perez Morales
2023-04-11 16:17:17 -07:00
parent ed3faf60a9
commit 81938fab94
2 changed files with 31 additions and 32 deletions
Download Patch File Download Diff File Expand all files Collapse all files

2
Inventarios/RecepcionUsados.aspx
View File

@@ -112,7 +112,7 @@
<label class="col-md-1 truncate" style="width: 110px">Almacén:</label> <label class="col-md-1 truncate" style="width: 110px">Almacén:</label>
<div class="col-md-2"> <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> <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> <ajax:ValidatorCalloutExtender ID="ValidatorCalloutExtender1" runat="server" HighlightCssClass="vco" TargetControlID="RfvAlmacen" Width="350px"></ajax:ValidatorCalloutExtender>
</div> </div>

61
Inventarios/RecepcionUsados.aspx.vb
View File

@@ -408,6 +408,9 @@ Partial Class Inventarios_RecepcionUsados
VisualizaAF(True) VisualizaAF(True)
CargaSubProyectos() CargaSubProyectos()
End If End If
Else
RblUsadosAjuste.Enabled = False
RblUsadosAjuste.SelectedValue = "0"
End If End If
CargaSubProyectosUsados() CargaSubProyectosUsados()
@@ -774,6 +777,7 @@ Partial Class Inventarios_RecepcionUsados
End If End If
RblUsadosAjuste.Enabled = True RblUsadosAjuste.Enabled = True
RblUsadosAjuste.SelectedValue = "0"
CveRemisionRecibida = -1 CveRemisionRecibida = -1
EsDistribuidor = False EsDistribuidor = False
@@ -1604,21 +1608,22 @@ Partial Class Inventarios_RecepcionUsados
Exit Sub Exit Sub
End If End If
'Dim filtro As String = ""
Dim filtro As String = ""
Dim CveTipoAlmacen = GlobalDTAlmacenUsuarios(UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, -1).FiltroPrimeroValor("CveTipoAlmacen", $"CveAlmacen = {DdlAlmacen.SelectedValue}").ToEntero 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 'If DdlAlmacen.SelectedValue = "-1" Then
filtro = IIf(UsuarioActual.CveEmpresa.Contiene(72, 1, 80), "CveConcepto NOT IN (4,5,10)", filtro).ToString ' filtro = IIf(UsuarioActual.CveEmpresa.Contiene(72, 1, 80), "CveConcepto NOT IN (4,5,10)", filtro).ToString
Else '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) ' 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 If
End Sub End Sub
@@ -2052,6 +2057,8 @@ Partial Class Inventarios_RecepcionUsados
If CargaFacturas Then If CargaFacturas Then
CargaFacturasCliente() CargaFacturasCliente()
End If End If
RblUsadosAjuste.Enabled = True
End If End If
UpGenerales.Update() UpGenerales.Update()
End Sub End Sub
@@ -2934,7 +2941,6 @@ Partial Class Inventarios_RecepcionUsados
LnkAgregarUsado.Visible = True LnkAgregarUsado.Visible = True
UppAcciones.Update() UppAcciones.Update()
End If End If
DdlAlmacen.DataBind()
End Sub End Sub
Private Sub CargaAjuste() Private Sub CargaAjuste()
@@ -3133,13 +3139,17 @@ Partial Class Inventarios_RecepcionUsados
Private Sub CargaFolioAjuste() Private Sub CargaFolioAjuste()
DdlFolioGarantia.Items.Clear() DdlFolioGarantia.Items.Clear()
Dim CveSubProyecto = GlobalDTAlmacen(UsuarioActual.CveEmpresa).FiltroPrimeroValor("CveSubProyecto", $"CveAlmacen={DdlAlmacen.SelectedValue}").ToEntero()
Dim ObjAcum As New ClsAcumuladores If DdlAlmacen.SelectedValue.ToEntero() > 0 Then
If ObjAcum.FoliosGarantiaGet(-1, UsuarioActual.CveEmpresa, Estatus:=1, CveSubProyecto:=CveSubProyecto, Area:=2) Then Dim CveSubProyecto = GlobalDTAlmacen(UsuarioActual.CveEmpresa).FiltroPrimeroValor("CveSubProyecto", $"CveAlmacen={DdlAlmacen.SelectedValue}").ToEntero()
DdlFolioGarantia.DataSource = ObjAcum.DtResultados 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 End If
ObjAcum.Dispose()
DdlFolioGarantia.DataBind()
DdlFolioGarantia.Items.Insert(0, New ListItem("Seleccione", "-1")) DdlFolioGarantia.Items.Insert(0, New ListItem("Seleccione", "-1"))
End Sub End Sub
@@ -3152,7 +3162,7 @@ Partial Class Inventarios_RecepcionUsados
End If End If
ObjAcumuladores.Dispose() 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 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) 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 End Sub
Private Function ValidaFolioGarantia(CvePS As Integer, CveFolioGarantia As Integer) As MFolioGarantiaMensaje Private Function ValidaFolioGarantia(CvePS As Integer, CveFolioGarantia As Integer) As Modelos.MFolioGarantiaMensaje
Dim Retorno As New MFolioGarantiaMensaje Dim Retorno As New Modelos.MFolioGarantiaMensaje
Dim Valido As Boolean = False Dim Valido As Boolean = False
Dim TipoFolio As String = "" Dim TipoFolio As String = ""
@@ -3372,7 +3382,7 @@ Partial Class Inventarios_RecepcionUsados
Dim CvePS As Integer = DdlPSAjuste.SelectedValue.ToEntero 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 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) 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 Function
#End Region #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 End Class