Cambios para mostrar el lote y fecha de caducidad

2021-03-05 10:23:14 -07:00
parent ac4d0c2e4b
commit b56559b36c
3 changed files with 91 additions and 25 deletions
--- a/Inventarios/EntradasSalidas.aspx.vb
+++ b/Inventarios/EntradasSalidas.aspx.vb
@@ -3842,7 +3842,7 @@ Partial Class Inventarios_EntradasSalidas

            AddPSSalida(DdlPSSalida.SelectedValue.ToEntero, TxtCantidadSalidaInv.Text.ToDouble)
        Else
-            Mensaje = String.Format("No hay existencias suficientes del producto: {0}", DdlPSSalida.SelectedValue.ToEntero)
+            Mensaje = String.Format("No hay existencias suficientes del producto: {0}", ObjProductosServicios.PS)
            RegistraScript("playsonidito('142608__autistic-lucario__error.wav')")
            Alert(Mensaje, TipoMensaje.MsgError)
        End If
--- a/Inventarios/TrasladoSolicitud.aspx
+++ b/Inventarios/TrasladoSolicitud.aspx
@@ -311,7 +311,9 @@
                                <%--<asp:BoundField HeaderText="Direccion Envio" HeaderStyle-HorizontalAlign="Left" DataField="DireccionEnvio" ItemStyle-Width="20%" />--%>
                                <asp:BoundField HeaderText="Observaciones" DataField="Observaciones" ItemStyle-Width="20%" />
                                <asp:BoundField HeaderText="Precio" HeaderStyle-HorizontalAlign="Right" DataFormatString="{0:c}" ItemStyle-HorizontalAlign="Right" DataField="Precio" Visible="false" ItemStyle-Width="5%" />
-                                <asp:BoundField HeaderText="Serie" DataField="Serie" Visible="false" ItemStyle-Width="5%" />
+                                <asp:BoundField HeaderText="Serie" DataField="Serie" Visible="false" ItemStyle-Width="5%" ItemStyle-HorizontalAlign="Center"/>
+                                <asp:BoundField HeaderText="Lote" DataField="Lote" Visible="false" ItemStyle-Width="10%" ItemStyle-HorizontalAlign="Center"/>
+                                <asp:BoundField HeaderText="Fecha Caducidad" DataField="FechaCaducidad" Visible="false" ItemStyle-Width="10%" ItemStyle-HorizontalAlign="Center" DataFormatString="{0:d}"/>
                                <asp:TemplateField HeaderText="Eliminar" ItemStyle-HorizontalAlign="Center" HeaderStyle-HorizontalAlign="Center" ItemStyle-Width="5%">
                                    <ItemTemplate>
                                        <asp:LinkButton ID="imgD" runat="server" CausesValidation="False" CommandName="Delete" CssClass="btn btn-circle btn-sm red" Text="<i class='icon-trash'></i>" data-toggle="confirmation" data-popout="true" data-original-title="Confirmar" data-btn-ok-label="Si" />
@@ -433,7 +435,7 @@
        </div>
    </div>

-    <div id="ModalPS" class="modal ADS fade" role="dialog">
+    <div id="ModalPS" class="modal ADS fade" role="dialog" data-backdrop="static" >
        <div class="modal-dialog" style="width: 450px;">
            <asp:UpdatePanel runat="server" class="modal-content" ID="UpPS" UpdateMode="Conditional">
                <ContentTemplate>
@@ -486,6 +488,29 @@
                                </div>
                            </div>

+                            <div class="row marginRowLeft">
+                                <div class="col-md-4 form-group form-md-line-input input-iconright"  id="divLote" runat="server" visible="false">
+                                    <asp:TextBox ID="TxtLote" runat="server" CssClass="form-control"></asp:TextBox>
+                                    <label for="<%= TxtLote.ClientID.ToString()%>">Lote:</label>
+                                </div>
+
+                                <div class="col-md-3 form-group form-md-line-input input-iconright" id="divCaducidad" runat="server" visible="false">
+                                    <asp:TextBox ID="TxtCaducidad" runat="server" CssClass="form-control"></asp:TextBox>
+                                    <label for="<%= TxtCaducidad.ClientID.ToString()%>">Fecha Elaboracion:</label>
+                                </div>
+
+                                <div class="col-md-1 form-group form-md-line-input input-iconright" id="divCaducidad2" runat="server" visible="false">
+                                    <asp:LinkButton ID="ImgFechaCad" class="btn default " Text="<i class='fa fa-calendar'></i>" runat="server"></asp:LinkButton>
+                                    <asp:RequiredFieldValidator ID="RFVFechaCad" runat="server" ControlToValidate="TxtCaducidad" Display="None" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Fecha''</b> es necesario, por favor ingréselo." ValidationGroup="AddPSInvFisico"></asp:RequiredFieldValidator>
+                                    <ajax:ValidatorCalloutExtender ID="VCFechaCad" runat="server" HighlightCssClass="vco" TargetControlID="RFVFechaCad" Width="350px"></ajax:ValidatorCalloutExtender>
+                                    <ajax:MaskedEditExtender ID="MEEFechaCad" runat="server" TargetControlID="TxtCaducidad" Mask="99/99/9999" MaskType="Date" DisplayMoney="Left" AcceptNegative="Left"></ajax:MaskedEditExtender>
+                                    <ajax:CalendarExtender runat="server" ID="CEFechaCad" TargetControlID="TxtCaducidad" PopupButtonID="ImgFechaCad" PopupPosition="BottomRight" Enabled="True"></ajax:CalendarExtender>
+                                    <asp:CompareValidator ID="CVFechaCad" runat="server" ControlToValidate="TxtCaducidad" Display="None" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Fecha''</b> no tiene el formato correcto, por favor intente de nuevo con el siguiente formato: (dd/mm/yyyy)." Operator="DataTypeCheck" Type="Date" ValidationGroup="AddPSInvFisico"></asp:CompareValidator>
+                                    <ajax:ValidatorCalloutExtender ID="VCEFechaCad" runat="server" HighlightCssClass="vco" TargetControlID="CVFechaCad" Width="350px"></ajax:ValidatorCalloutExtender>
+
+                                </div>
+                            </div>
+
                        </div>
                    </div>
                    <div class="modal-footer">
--- a/Inventarios/TrasladoSolicitud.aspx.vb
+++ b/Inventarios/TrasladoSolicitud.aspx.vb
@@ -95,7 +95,9 @@ Partial Class Inventarios_TrasladoSolicitud
        TempDT.Columns.Add("CveContratoDetalle", Type.GetType("System.Int32"))
        'TempDT.Columns.Add("CveContratoDetalle", Type.GetType("System.Int32"))
        'TempDT.Columns.Add("CveDireccionEnvio", Type.GetType("System.Int32"))
-        TempDT.Columns.Add("Serie", Type.GetType("System.String"))
+        TempDT.Columns.Add("Serie", Type.GetType("System.String"))
+        TempDT.Columns.Add("Lote", Type.GetType("System.String"))
+        TempDT.Columns.Add("FechaCaducidad", Type.GetType("System.DateTime"))

        TempDT.Columns.Add()
    End Sub
@@ -322,6 +324,7 @@ Partial Class Inventarios_TrasladoSolicitud
        RegistraScript(String.Format("$('#{0}').modal();", "ModalPS"))
    End Sub
    Private Sub BtnAgregarPS_Click(sender As Object, e As EventArgs) Handles BtnAgregarPS.Click
+        Dim Existencia As Boolean
        If Not DdlProductoServicio.SelectedValue.ToEntero > 0 Then
            Alert("Tiene que seleccionar un producto.", TipoMensaje.MsgAdvertencia)
            Exit Sub
@@ -329,35 +332,63 @@ Partial Class Inventarios_TrasladoSolicitud

        If Not AddPSTemporal() Then
            Exit Sub
-        End If
-
-        TxtCantidad.Text = ""
-        DdlProductoServicio.SelectedText = ""
-        DdlProductoServicio.SelectedValue = "-1"
-        DdlUM.SelectedIndex = 0
-
-        GvDatos.DataSource = TempDT
-        GvDatos.DataBind()
-
-        If ChkSeguirAgregando.Checked Then
-            TxtCantidad.Focus()
-        Else
-            RegistraScript("$('#ModalPS').hide();", "EscondeAgregar")
-        End If
-
-        UpPS.Update()
-        UpDatos.Update()
-
+        End If
+
+        'If ObjInventario.GetExistenciasPS(DdlProductoServicio.SelectedValue.ToEntero, DdlUM.SelectedValue.ToEntero, UsuarioActual.CveEmpresa, DdlAlmacenOrigen.SelectedValue.ToEntero, PendientePorSurtir:=1, Lote:=TxtLote.Text.ToString, FechaCaducidad:=TxtCaducidad.Text.ToString) >= TxtCantidad.Text.ToDouble Then
+
+        TxtCantidad.Text = ""
+        DdlProductoServicio.SelectedText = ""
+        DdlProductoServicio.SelectedValue = "-1"
+        DdlUM.SelectedIndex = 0
+        TxtCaducidad.Text = ""
+        TxtSerie.Text = ""
+        TxtLote.Text = ""
+
+        GvDatos.DataSource = TempDT
+        GvDatos.DataBind()
+
+
+        If ChkSeguirAgregando.Checked Then
+            TxtCantidad.Focus()
+        Else
+            RegistraScript("$('#ModalPS').hide();", "EscondeAgregar")
+        End If
+
+        UpPS.Update()
+        UpDatos.Update()
+
    End Sub
    Private Function AddPSTemporal() As Boolean
        Dim Row As DataRow = TempDT.NewRow()
+        Dim Lote As String
+        Dim FechaCaducidad As Date
        Row("Cantidad") = TxtCantidad.Text.Trim.ToDouble
        Row("CvePS") = DdlProductoServicio.SelectedValue.ToEntero
        Row("CodigoPS") = DdlProductoServicio.SelectedText
        Row("Precio") = 0
        Row("CveUM") = DdlUM.SelectedValue.ToEntero
        Row("UnidadMedida") = DdlUM.SelectedItem.Text
-        Row("Observaciones") = ""
+        Row("Observaciones") = ""
+
+        If divLote.Visible Then
+            Row("Lote") = TxtLote.Text
+            GvDatos.Columns(6).Visible = True
+            Lote = TxtLote.Text.ToString
+        Else
+            Row("Lote") = "-1"
+            Lote = "-1"
+        End If
+
+
+        If divCaducidad.Visible Then
+            Row("FechaCaducidad") = TxtCaducidad.Text
+            GvDatos.Columns(7).Visible = True
+            FechaCaducidad = TxtCaducidad.Text.ToDate
+        Else
+            Row("FechaCaducidad") = MinFecha
+            FechaCaducidad = MinFecha
+        End If
+

        If Div4.Visible Then
            Row("Serie") = TxtSerie.Text
@@ -366,8 +397,10 @@ Partial Class Inventarios_TrasladoSolicitud
            Row("Serie") = "-1"
        End If

+
+
        Dim ObjInventarios As New ClsInventarios
-        Dim Existencia As Double = ObjInventarios.GetExistenciasPS(DdlProductoServicio.SelectedValue.ToEntero, DdlUM.SelectedValue.ToEntero, UsuarioActual.CveEmpresa, DdlAlmacenOrigen.SelectedValue.ToEntero, FechaMovto:=TxtFecha.Text.ToDate.ToString("yyyy/MM/dd 23:59"))
+        Dim Existencia As Double = ObjInventarios.GetExistenciasPS(DdlProductoServicio.SelectedValue.ToEntero, DdlUM.SelectedValue.ToEntero, UsuarioActual.CveEmpresa, DdlAlmacenOrigen.SelectedValue.ToEntero, FechaMovto:=TxtFecha.Text.ToDate.ToString("yyyy/MM/dd 23:59"), Lote:=Lote, FechaCaducidad:=FechaCaducidad)
        ObjInventarios.Dispose()

        If Existencia - TxtCantidad.Text.Trim.ToDouble - TempDT.SUM("Cantidad", $"CvePS = {DdlProductoServicio.SelectedValue.ToEntero} AND CveUM = {DdlUM.SelectedValue.ToEntero}") < 0 Then
@@ -988,6 +1021,14 @@ Partial Class Inventarios_TrasladoSolicitud
            DdlUM.SelectedValueExist(drPS("CveUnidadMedida").ToString)
            Dim AplicaSerie As Boolean = drPS("AplicaSerie").ToString = "True"
            Div4.Visible = AplicaSerie
+
+            Dim AplicaLote As Boolean = drPS("AplicaLote").ToString = "True"
+            divLote.Visible = AplicaLote
+
+            Dim AplicaCaducidad As Boolean = drPS("AplicaCaducidad").ToString = "True"
+            divCaducidad.Visible = AplicaCaducidad
+            divCaducidad2.Visible = AplicaCaducidad
+
        End If
        UpPS.Update()
        UpDatos.Update()