-- editar serie

Inventarios/EntradasSalidas.aspx

@@ -1183,7 +1183,7 @@
                                                                 <asp:BoundField HeaderText="Sección Alm" ReadOnly="true" DataField="SeccionAlmacen" ItemStyle-Width="100px" ItemStyle-HorizontalAlign="Center" />
                                                                 <asp:BoundField HeaderText="Serie" ReadOnly="true" DataField="Serie" ItemStyle-Width="100px" ItemStyle-HorizontalAlign="Center" />
                                                                 <asp:BoundField HeaderText="Lote" ReadOnly="true" DataField="Lote" ItemStyle-Width="100px" ItemStyle-HorizontalAlign="Center" />
-                                                                <asp:BoundField HeaderText="Caducidad" ReadOnly="true" DataField="FechaCaducidad" ItemStyle-Width="100px" ItemStyle-HorizontalAlign="Center" />
+                                                                <asp:BoundField HeaderText="Caducidad" ReadOnly="true" DataField="FechaCaducidad" DataFormatString="{0:d}" ItemStyle-Width="100px" ItemStyle-HorizontalAlign="Center" />
                                                                 <asp:TemplateField ItemStyle-HorizontalAlign="Center" ItemStyle-Width="100px">
                                                                     <ItemTemplate>
                                                                         <asp:LinkButton ID="LnkRemoveInvFisico" runat="server" AlternateText="Eliminar" OnClick="DeleteRowInvFisicoEntrada" CommandArgument='<%# Eval("No")%>' CssClass="btn btn-circle btn-sm red" Text="<i class='icon-trash'></i>" data-toggle="confirmation" data-popout="true" data-original-title="¿Seguro que desea eliminar el concepto?" data-btn-ok-label="si" />
@@ -1275,7 +1275,7 @@
                                                                 <asp:BoundField HeaderText="Sección Alm" ReadOnly="true" DataField="SeccionAlmacen" ItemStyle-Width="100px" ItemStyle-HorizontalAlign="Center" />
                                                                 <asp:BoundField HeaderText="Serie" ReadOnly="true" DataField="Serie" ItemStyle-Width="100px" ItemStyle-HorizontalAlign="Center" />
                                                                 <asp:BoundField HeaderText="Lote" ReadOnly="true" DataField="Lote" ItemStyle-Width="100px" ItemStyle-HorizontalAlign="Center" />
-                                                                <asp:BoundField HeaderText="Caducidad" ReadOnly="true" DataField="FechaCaducidad" ItemStyle-Width="100px" ItemStyle-HorizontalAlign="Center" />
+                                                                <asp:BoundField HeaderText="Caducidad" ReadOnly="true" DataField="FechaCaducidad" DataFormatString="{0:d}" ItemStyle-Width="100px" ItemStyle-HorizontalAlign="Center" />
                                                                 <asp:TemplateField ItemStyle-HorizontalAlign="Center" ItemStyle-Width="100px">
                                                                     <ItemTemplate>
                                                                         <asp:LinkButton ID="LnkRemoveInvFisicoSalida" runat="server" AlternateText="Eliminar" OnClick="DeleteRowInvFisicoSalida" CommandArgument='<%# Eval("No")%>' CssClass="btn btn-circle btn-sm red" Text="<i class='icon-trash'></i>" data-toggle="confirmation" data-popout="true" data-original-title="¿Seguro que desea eliminar el concepto?" data-btn-ok-label="si" />

Inventarios/EntradasSalidas.aspx.vb

@@ -255,7 +255,7 @@ Partial Class Inventarios_EntradasSalidas
 
     Public Property CveMovimientoDetalleEdit() As Integer
         Get
-            Return ViewState("CveMovimientoDetalleEdit").ToString.ToEntero
+            Return IfNull(ViewState("CveMovimientoDetalleEdit"), 0).ToString.ToEntero
         End Get
         Set(value As Integer)
             ViewState("CveMovimientoDetalleEdit") = value
@@ -2382,8 +2382,11 @@ Partial Class Inventarios_EntradasSalidas
             DdlClasificacion.Enabled = False
             DdlProducto2.Enabled = False
             DdlUnidad.Enabled = False
+
+            'codigo provisional, hay entradas con productos, que al asignar serie, debe de tener e ncantidad = 1
+            If GvRow.DataKey("Cantidad").ToEntero() > 1 Then txtCantidad.Enabled = True
         End If
-        txtCantidad.Text = GvRow.DataKey("Cantidad").ToEntero().ToString
+            txtCantidad.Text = GvRow.DataKey("Cantidad").ToEntero().ToString
         DdlProducto2.SelectedValue = GvRow.DataKey("CvePS")
         DdlProducto2.SelectedText = GvRow.DataKey("CodigoPS")
         ElProductoChange()
@@ -3480,9 +3483,9 @@ Partial Class Inventarios_EntradasSalidas
             Dim PS As String = ""
 
             Dim CveSeccionAlmacen As Integer = DdlSeccionAlmacenEntrada.SelectedValue.ToEntero
-            Dim Serie As String = If(TxtSerieEntrada.Text = "", "-1", TxtSerieEntrada.Text)
+            Dim Serie As String = If(TxtSerieEntrada.Text = "", "", TxtSerieEntrada.Text)
-            Dim Lote As String = If(TxtLoteEntrada.Text = "", "-1", TxtLoteEntrada.Text)
+            Dim Lote As String = If(TxtLoteEntrada.Text = "", "", TxtLoteEntrada.Text)
-            Dim Caducidad As String = If(TxtCaducidadEntrada.Text = "", "-1", TxtCaducidadEntrada.Text)
+            Dim Caducidad As String = If(TxtCaducidadEntrada.Text = "", MinFecha.ToShortDateString, TxtCaducidadEntrada.Text)
 
             Dim dr As DataRow = GlobalDTPS(UsuarioActual.CveEmpresa, CvePS).FiltroPrimero("", "PS")
             If dr IsNot Nothing Then
@@ -3517,6 +3520,12 @@ Partial Class Inventarios_EntradasSalidas
         GvEntradas.DataSource = DtTemp
         GvEntradas.DataBind()
         UpEntradasGv.Update()
+        If DtTemp IsNot Nothing AndAlso DtTemp.Rows.Count > 0 Then
+            GvEntradas.Columns(3).Visible = DtTemp.MAX("CveSeccionAlmacen").ToEntero > 0
+            GvEntradas.Columns(4).Visible = DtTemp.MAX("Serie") <> ""
+            GvEntradas.Columns(5).Visible = DtTemp.MAX("Lote") <> ""
+            GvEntradas.Columns(6).Visible = DtTemp.MAX("FechaCaducidad").ToDate > MinFecha
+        End If
     End Sub
 
     Protected Sub DdlPSInvFisico_ValueChanged(sender As Object, e As EventArgs) Handles DdlPS.selectedindexchange
@@ -3586,9 +3595,9 @@ Partial Class Inventarios_EntradasSalidas
             Dim PS As String = ""
 
             Dim CveSeccionAlmacen As Integer = DdlSeccionAlmacenSalida.SelectedValue.ToEntero
-            Dim Serie As String = If(TxtSerieSalida.Text = "", "-1", TxtSerieSalida.Text)
+            Dim Serie As String = If(TxtSerieSalida.Text = "", "", TxtSerieSalida.Text)
-            Dim Lote As String = If(TxtLoteSalida.Text = "", "-1", TxtLoteSalida.Text)
+            Dim Lote As String = If(TxtLoteSalida.Text = "", "", TxtLoteSalida.Text)
-            Dim Caducidad As String = If(TxtCaducidadSalida.Text = "", "-1", TxtCaducidadSalida.Text)
+            Dim Caducidad As String = If(TxtCaducidadSalida.Text = "", MinFecha.ToShortDateString, TxtCaducidadSalida.Text)
 
             Dim dr As DataRow = GlobalDTPS(UsuarioActual.CveEmpresa, CvePS).FiltroPrimero("", "PS")
             If dr IsNot Nothing Then
@@ -3623,6 +3632,12 @@ Partial Class Inventarios_EntradasSalidas
         GvSalidas.DataSource = DtTemp
         GvSalidas.DataBind()
         UpSalidaGv.Update()
+        If DtTemp IsNot Nothing AndAlso DtTemp.Rows.Count > 0 Then
+            GvSalidas.Columns(2).Visible = DtTemp.MAX("CveSeccionAlmacen").ToEntero > 0
+            GvSalidas.Columns(3).Visible = DtTemp.MAX("Serie") <> ""
+            GvSalidas.Columns(4).Visible = DtTemp.MAX("Lote") <> ""
+            GvSalidas.Columns(5).Visible = DtTemp.MAX("FechaCaducidad").ToDate > MinFecha
+        End If
     End Sub
 
     Protected Sub DeleteRowInvFisicoSalida(ByVal sender As Object, ByVal e As EventArgs)
@@ -4313,7 +4328,7 @@ Partial Class Inventarios_EntradasSalidas
     Private Sub ActualizarPS()
 
         Dim ObjInventario As New ClsInventarios
-        If Not ObjInventario.UpdateMovimientoDetalle(txtCantidad.Text.ToDouble, DdlUnidad.ToEntero, DdlProducto2.SelectedValue.ToEntero, txtPrecio.Text.ToDouble, CveAFEdit,
+        If Not ObjInventario.UpdateMovimientoDetalle(txtCantidad.Text.ToDouble, DdlUnidad.SelectedValue.ToEntero, DdlProducto2.SelectedValue.ToEntero, txtPrecio.Text.ToDouble, CveAFEdit,
                                                      CveMovimientoDetalleEdit, DdlSeccionAlmacen.SelectedValue.ToEntero, TxtnSerie.Text, TxtObservacionesdetalle.Text,
                                                      CveUsuarioModifico:=UsuarioActual.CveUsuario) Then
             Alert("Error al Actualizar los movimientos")
@@ -4324,7 +4339,10 @@ Partial Class Inventarios_EntradasSalidas
     End Sub
 
     Private Sub limpiarModalDetalle()
-
+        txtCantidad.Enabled = True
+        DdlClasificacion.Enabled = True
+        DdlProducto2.Enabled = True
+        DdlUnidad.Enabled = True
         divCantidad.Visible = True
         divClasificacionProducto.Visible = True
         divUnidadMedida.Visible = True