Correcciones Entradas Salidas, tamaño de Serie Folio, fecha actual
This commit is contained in:
rakcsle
BIN
Documentacion/140/CatAPSAGM-HT-LTH-CR 2021.pdf
Normal file
BIN
Documentacion/140/CatAPSAGM-HT-LTH-CR 2021.pdf
Normal file
Binary file not shown.
13
Inicio.aspx
13
Inicio.aspx
@@ -591,7 +591,18 @@
|
||||
</div>
|
||||
<div class="col-md-6">
|
||||
<div class="well well-sm">
|
||||
<asp:HyperLink ID="LnkDoc12" NavigateUrl="~/Documentacion/140/LTHAGM.pdf" runat="server" Target="_blank"><i class="fa fa-download" aria-hidden="true"></i> LTHAGM</asp:HyperLink>
|
||||
<asp:HyperLink ID="LnkDoc12" NavigateUrl="~/Documentacion/140/OPTIMA.pdf" runat="server" Target="_blank"><i class="fa fa-download" aria-hidden="true"></i> OPTIMA</asp:HyperLink>
|
||||
</div>
|
||||
</div>
|
||||
|
||||
|
||||
</div>
|
||||
|
||||
|
||||
<div class="row">
|
||||
<div class="col-md-6">
|
||||
<div class="well well-sm">
|
||||
<asp:HyperLink ID="LnkDoc13" NavigateUrl="~/Documentacion/140/CatAPSAGM-HT-LTH-CR 2021.pdf" runat="server" Target="_blank"><i class="fa fa-download" aria-hidden="true"></i> Cat APS AGM-HT-LTH-CR 2021</asp:HyperLink>
|
||||
</div>
|
||||
</div>
|
||||
</div>
|
||||
|
||||
@@ -1428,7 +1428,7 @@
|
||||
<th style="width: 63px">Cant</th>
|
||||
<th style="width: 200px">Producto</th>
|
||||
<th style="width: 10%" runat="server" id="Th5" visible="false">Sección almacén</th>
|
||||
<th style="width: 10%" runat="server" id="Th6" visible="false">Serie</th>
|
||||
<th style="width: 100px" runat="server" id="Th6" visible="false">Serie</th>
|
||||
<th style="width: 10%" runat="server" id="Th7" visible="false">Lote</th>
|
||||
<th style="width: 10%" runat="server" id="Th8" visible="false">Caducidad</th>
|
||||
<th style="width: 73px;"></th>
|
||||
@@ -1440,7 +1440,7 @@
|
||||
</td>
|
||||
<td>
|
||||
<div class="psagregar">
|
||||
<ADS:Dropdownlost runat="server" ID="DdlPSCambioSalida" CssStyle="width:100%" CssClassDdl="select2me" DataTextField="PSCodigo" DataValueField="CvePS" />
|
||||
<ADS:Dropdownlost runat="server" ID="DdlPSCambioSalida" CssStyle="width:100%" CssClassDdl="select2me" DataTextField="PSCodigo" DataValueField="CvePS" Onselectedindexchange="DdlPSCambioSalida_selectedindexchange" />
|
||||
</div>
|
||||
</td>
|
||||
<td runat="server" id="Td5" visible="false">
|
||||
@@ -1449,7 +1449,7 @@
|
||||
</asp:DropDownList>
|
||||
</td>
|
||||
<td runat="server" id="Td6" visible="false">
|
||||
<asp:TextBox ID="TxtSerieCambio" runat="server" Width="50px"></asp:TextBox>
|
||||
<asp:TextBox ID="TxtSerieCambio" runat="server" Width="100px"></asp:TextBox>
|
||||
</td>
|
||||
<td runat="server" id="Td7" visible="false">
|
||||
<asp:TextBox ID="TxtLoteCambio" runat="server" Width="50px"></asp:TextBox>
|
||||
|
||||
@@ -288,6 +288,18 @@ Partial Class Inventarios_EntradasSalidas
|
||||
End Set
|
||||
End Property
|
||||
|
||||
Public Property AplicaVigenciaCambioVigencia() As Boolean
|
||||
Get
|
||||
If ViewState("CveAFEdit") Is Nothing Then
|
||||
ViewState("CveAFEdit") = False
|
||||
End If
|
||||
Return Boolean.Parse(ViewState("CveAFEdit").ToString)
|
||||
End Get
|
||||
Set(value As Boolean)
|
||||
ViewState("CveAFEdit") = value
|
||||
End Set
|
||||
End Property
|
||||
|
||||
|
||||
#End Region
|
||||
|
||||
@@ -3777,6 +3789,35 @@ Partial Class Inventarios_EntradasSalidas
|
||||
|
||||
Protected Sub LnkCambioVigencia_Click(sender As Object, e As EventArgs)
|
||||
RegistraScript(String.Format("$('#{0}').modal();", "DivModalCambiarVigencias"))
|
||||
|
||||
TxtCantCambio.Text = ""
|
||||
TxtSerieCambio.Text = ""
|
||||
TxtFechaCambio.Text = Now.ToString("dd/MM/yyyy")
|
||||
TxtObsCambioVigencia.Text = ""
|
||||
|
||||
Th5.Visible = False
|
||||
Th6.Visible = False
|
||||
Th7.Visible = False
|
||||
Th8.Visible = False
|
||||
|
||||
|
||||
Td5.Visible = False
|
||||
Td6.Visible = False
|
||||
Td7.Visible = False
|
||||
Td8.Visible = False
|
||||
|
||||
DdlPSCambioSalida.txtText.Value = ""
|
||||
DdlPSCambioSalida.txtValue.Value = ""
|
||||
|
||||
DdlSeccionCambio.SelectedValueExist(-1)
|
||||
DdlAlmacenCambioVigencias.SelectedValueExist(-1)
|
||||
|
||||
|
||||
AplicaVigenciaCambioVigencia = False
|
||||
|
||||
UpCambioSalida.Update()
|
||||
UpModalCambiarVigencias.Update()
|
||||
|
||||
End Sub
|
||||
|
||||
#Region "ENTRADAS"
|
||||
@@ -4009,15 +4050,47 @@ Partial Class Inventarios_EntradasSalidas
|
||||
|
||||
#Region "CAMBIO VIGENCIA"
|
||||
Private Sub LnkAddSalidaCambio_Click(sender As Object, e As EventArgs) Handles LnkAddSalidaCambio.Click
|
||||
|
||||
If Not DdlPSCambioSalida.SelectedValue.ToEntero > 0 Then
|
||||
RegistraScript("playsonidito('142608__autistic-lucario__error.wav')")
|
||||
Alert("Es necesario especificar el producto.", TipoMensaje.MsgAdvertencia)
|
||||
Exit Sub
|
||||
End If
|
||||
|
||||
|
||||
If AplicaVigenciaCambioVigencia And TxtSerieCambio.Text.Trim.Length = 0 Then
|
||||
Alert("Es necesario especificar la serie del producto.", TipoMensaje.MsgAdvertencia)
|
||||
Exit Sub
|
||||
End If
|
||||
|
||||
AddPSCambioSalida(DdlPSCambioSalida.SelectedValue.ToEntero, TxtCantCambio.Text.ToDouble)
|
||||
End Sub
|
||||
|
||||
Protected Sub DdlPSCambioSalida_selectedindexchange(sender As Object, e As EventArgs)
|
||||
|
||||
Td6.Visible = False
|
||||
Th6.Visible = False
|
||||
|
||||
If DdlPSCambioSalida.SelectedValue.ToEntero > 0 Then
|
||||
|
||||
Using ObjPS As New ClsProductosServicios()
|
||||
If ObjPS.GetPS(DdlPSCambioSalida.SelectedValue.ToEntero, -1, UsuarioActual.CveEmpresa) AndAlso ObjPS.DtResultados.Rows.Count > 0 Then
|
||||
|
||||
AplicaVigenciaCambioVigencia = If(ObjPS.DtResultados.Rows(0)("AplicaSerie").ToString = "", False, Boolean.Parse(ObjPS.DtResultados.Rows(0)("AplicaSerie").ToString))
|
||||
|
||||
Td6.Visible = AplicaVigenciaCambioVigencia
|
||||
Th6.Visible = AplicaVigenciaCambioVigencia
|
||||
|
||||
End If
|
||||
End Using
|
||||
|
||||
|
||||
End If
|
||||
|
||||
UpCambioSalida.Update()
|
||||
|
||||
End Sub
|
||||
|
||||
Protected Sub AddPSCambioSalida(CvePS As Integer, Cantidad As Double)
|
||||
If DdlAlmacenCambioVigencias.SelectedValue.ToEntero <= 0 Then Alert("Seleccione un almacen", TipoMensaje.MsgAdvertencia) : RegistraScript("playsonidito('142608__autistic-lucario__error.wav')") : DdlPSCambioSalida.SelectedText = "" : Exit Sub
|
||||
|
||||
@@ -4029,10 +4102,10 @@ Partial Class Inventarios_EntradasSalidas
|
||||
Dim CodigoPS As String = ""
|
||||
Dim PS As String = ""
|
||||
|
||||
Dim CveSeccionAlmacen As Integer = DdlSeccionAlmacenSalida.SelectedValue.ToEntero
|
||||
Dim Serie As String = If(TxtSerieSalida.Text = "", "", TxtSerieSalida.Text)
|
||||
Dim Lote As String = If(TxtLoteSalida.Text = "", "", TxtLoteSalida.Text)
|
||||
Dim Caducidad As String = If(TxtCaducidadSalida.Text = "", MinFecha.ToShortDateString, TxtCaducidadSalida.Text)
|
||||
Dim CveSeccionAlmacen As Integer = DdlAlmacenCambioVigencias.SelectedValue.ToEntero
|
||||
Dim Serie As String = If(TxtSerieCambio.Text = "", "", TxtSerieCambio.Text)
|
||||
Dim Lote As String = If(TxtLoteCambio.Text = "", "", TxtLoteCambio.Text)
|
||||
Dim Caducidad As String = If(TxtCaducidadCambio.Text = "", MinFecha.ToShortDateString, TxtCaducidadCambio.Text)
|
||||
|
||||
Dim dr As DataRow = GlobalDTPS(UsuarioActual.CveEmpresa, CvePS).FiltroPrimero("", "PS")
|
||||
If dr IsNot Nothing Then
|
||||
@@ -4353,6 +4426,8 @@ Partial Class Inventarios_EntradasSalidas
|
||||
End Sub
|
||||
Private Sub BtnGuardarCambiosVigencia_Click(sender As Object, e As EventArgs) Handles BtnGuardarCambiosVigencia.Click
|
||||
|
||||
|
||||
|
||||
If GvSalidasCambioVigencia.Rows.Count = 0 Then
|
||||
Alert("No hay ningun registro para generar el movimiento. Por favor rectifique y vuelva a intentar.", TipoMensaje.MsgError)
|
||||
RegistraScript("playsonidito('142608__autistic-lucario__error.wav')")
|
||||
@@ -5346,4 +5421,5 @@ Partial Class Inventarios_EntradasSalidas
|
||||
Public Property FolioVirtual As String
|
||||
Public Property TieneError As Boolean
|
||||
End Class
|
||||
|
||||
End Class
|
||||
|
||||
Reference in New Issue
Block a user