esperando correcciones

Inventarios/EntradasSalidas.aspx.vb

@@ -5,6 +5,7 @@ Imports System.Data
 Imports Extensiones
 Imports System.IO
 Imports Microsoft.Reporting.WebForms
+Imports System.Math
 
 'Imports DocumentFormat.OpenXml.Wordprocessing
 
@@ -260,6 +261,22 @@ Partial Class Inventarios_EntradasSalidas
             ViewState("DescripcionDetalladaEliminar") = value
         End Set
     End Property
+    Public Property CveAFEdit() As Integer
+        Get
+            Return ViewState("CveAFEdit").ToString.ToEntero
+        End Get
+        Set(value As Integer)
+            ViewState("CveAFEdit") = value
+        End Set
+    End Property
+    Public Property CveMovimientoDetalleEdit() As Integer
+        Get
+            Return ViewState("CveMovimientoDetalleEdit").ToString.ToEntero
+        End Get
+        Set(value As Integer)
+            ViewState("CveMovimientoDetalleEdit") = value
+        End Set
+    End Property
 
 #End Region
 
@@ -362,13 +379,14 @@ Partial Class Inventarios_EntradasSalidas
     End Function
     Private Sub ActivaPermisoSeccionAlmacen()
         GvM.Columns(12).Visible = UsuarioActual.Empresa.Funcionalidad(147) = "1"
-        TrSeccionAlmacen.Visible = UsuarioActual.Empresa.Funcionalidad(147) = "1"
-        TrSeccionAlmacen2.Visible = UsuarioActual.Empresa.Funcionalidad(147) = "1"
+        'TrSeccionAlmacen.Visible = UsuarioActual.Empresa.Funcionalidad(147) = "1"
+        'TrSeccionAlmacen2.Visible = UsuarioActual.Empresa.Funcionalidad(147) = "1"
+        divSeccionAlmacen.Visible = UsuarioActual.Empresa.Funcionalidad(147) = "1"
     End Sub
     Private Sub PermisoVerImportes()
         Dim TienePermisoImportes As Boolean = UsuarioActual.TienePermisoProceso(201)
-        tdPU.Visible = TienePermisoImportes
-        tdTxtPU.Visible = TienePermisoImportes
+        'tdPU.Visible = TienePermisoImportes
+        'tdTxtPU.Visible = TienePermisoImportes
         GvM.Columns(4).Visible = TienePermisoImportes
 
         ThTotal.Visible = TienePermisoImportes
@@ -1138,9 +1156,18 @@ Partial Class Inventarios_EntradasSalidas
         Return Existencia
     End Function
 
-    Protected Sub btnAgregar_Click(sender As Object, e As EventArgs) Handles LbAgregar.Click
-        AgregarPS()
+    'Protected Sub btnAgregar_Click(sender As Object, e As EventArgs) Handles LbAgregar.Click
+    '    AgregarPS()
+    'End Sub
+
+    Protected Sub btnAgregarDetalle_Click(sender As Object, e As EventArgs) Handles LkAgregarDetalle.Click
+        If LkAgregarDetalle.Text = "Agregar" Then
+            AgregarPS()
+        Else
+            ActualizarPS()
+        End If
     End Sub
+
     Protected Sub BtnSerieAddNew_Click(sender As Object, e As EventArgs)
         AgregarPS()
     End Sub
@@ -1192,7 +1219,7 @@ Partial Class Inventarios_EntradasSalidas
         If Valido AndAlso DdlConcepto.SelectedValue.Contiene({"3", "5", "7", "8", "11", "12", "13", "15", "16", "17", "20", "21", "30", "31"}) Then ' salida de almacen
 
             Dim Existencia As Double = GetExistencias(CvePS, CveUM, UsuarioActual.CveEmpresa, DdlAlmacen.SelectedValue.ToEntero, If(SerieLote = "", "-1", SerieLote), If(Lote = "", "-1", Lote), If(Batch = "", "-1", Batch))
-            LbAgregar.ToolTip = Existencia.ToString
+            'LbAgregar.ToolTip = Existencia.ToString
             If Existencia - Cantidad - DtMovimientos.SUM("Cantidad", $"CvePS = {CvePS} AND CveUM = {CveUM} {If(SerieLote <> "", $" AND SerieLote = '{SerieLote}'", "")}") < 0 Then
                 If Existencia <= 0 Then
                     Alert("No hay existencia del producto", TipoMensaje.MsgAdvertencia)
@@ -1319,7 +1346,10 @@ Partial Class Inventarios_EntradasSalidas
                                     End If
                                 ElseIf Dr("Estatus").ToString = "U" Then
 
-                                    If Not ObjInventario.UpdateMovimientoDetalle(Dr("Cantidad").ToString.ToDouble, Dr("CveUM").ToString.ToEntero, Dr("CvePS").ToString.ToEntero, ImporteConcepto, Dr("CveAF").ToString.ToEntero, Dr("CveMovimientoDetalle").ToString.ToEntero, Dr("CveSeccionAlmacen").ToString.ToEntero, Dr("SerieLote").ToString, Dr("Observaciones").ToString, CveUsuarioModifico:=UsuarioActual.CveUsuario) Then
+                                    If Not ObjInventario.UpdateMovimientoDetalle(Dr("Cantidad").ToString.ToDouble, Dr("CveUM").ToString.ToEntero, Dr("CvePS").ToString.ToEntero,
+                                                                                 ImporteConcepto, Dr("CveAF").ToString.ToEntero, Dr("CveMovimientoDetalle").ToString.ToEntero,
+                                                                                 Dr("CveSeccionAlmacen").ToString.ToEntero, Dr("SerieLote").ToString, Dr("Observaciones").ToString,
+                                                                                 CveUsuarioModifico:=UsuarioActual.CveUsuario) Then
                                         Mensaje = "Error al Actualizar los movimientos"
                                         ErrorMovInv = True : Exit For
                                     End If
@@ -2083,9 +2113,12 @@ Partial Class Inventarios_EntradasSalidas
     End Sub
 
     Private Sub VisualizaPU(Opcion As Boolean)
-        tdPU.Visible = Opcion
-        tdTxtPU.Visible = Opcion
+        'tdPU.Visible = Opcion
+        'tdTxtPU.Visible = Opcion
+
         txtPrecio.Visible = Opcion
+        divPrecio.Visible = Opcion
+
         GvM.Columns(4).Visible = Opcion
 
         TdTotal.Visible = Opcion
@@ -2098,7 +2131,7 @@ Partial Class Inventarios_EntradasSalidas
         GvM.Columns(6).Visible = Opcion
     End Sub
     Private Sub VisualizaAF(Opcion As Boolean)
-        tdAF.Visible = Opcion
+        'tdAF.Visible = Opcion
         ThAF.Visible = Opcion
         GvM.Columns(8).Visible = Opcion
     End Sub
@@ -2143,29 +2176,38 @@ Partial Class Inventarios_EntradasSalidas
     End Sub
     Private Sub ElProductoChange()
         TxtnSerieLote.Visible = False
+        divSerieLote.Visible = False
+
         TxtnLote.Visible = False
+        divLote.Visible = False
         TxtnBatch.Visible = False
+        divBatch.Visible = False
 
         EscondeColumnasGVM(DtMovimientos.FiltraParametros("Estatus <> 'E' "))
 
         If DdlProducto2.SelectedValue.ToEntero > 0 Then
             Dim MetodoInventario As Integer = GlobalDTPS(UsuarioActual.CveEmpresa, DdlProducto2.SelectedValue.ToEntero).FiltroPrimeroValor("Inv_CveMetodoInventario", "").ToEntero ' ("Inv_CveMetodoInventario = 6", "PS")
             If MetodoInventario = 5 Then
-                LblSerieLote.Visible = True
+
+                'LblSerieLote.Visible = True
                 TxtnSerieLote.Visible = True
-                TrSerieLote.Visible = True
-                TrSerieLote2.Visible = True
+                divSerieLote.Visible = True
+
+                'TrSerieLote.Visible = True
+                'TrSerieLote2.Visible = True
                 GvM.Columns(9).Visible = True
             End If
             If MetodoInventario = 6 Then
                 TxtnLote.Visible = True
-                TrLote.Visible = True
-                TrLote2.Visible = True
+                divLote.Visible = True
+                'TrLote.Visible = True
+                'TrLote2.Visible = True
                 GvM.Columns(10).Visible = True
 
                 TxtnBatch.Visible = True
-                TrBatch.Visible = True
-                TrBatch2.Visible = True
+                divBatch.Visible = True
+                'TrBatch.Visible = True
+                'TrBatch2.Visible = True
                 GvM.Columns(11).Visible = True
             End If
         End If
@@ -2184,27 +2226,26 @@ Partial Class Inventarios_EntradasSalidas
         GvM.DataBind()
 
         EscondeColumnasGVM(DtTemp)
+        UppGrid.Update()
     End Sub
     Private Sub EscondeColumnasGVM(DtTemp As DataTable)
-        LblSerieLote.Visible = False
+        'LblSerieLote.Visible = False
         TxtnSerieLote.Visible = False
-        TrSerieLote.Visible = False
-        TrSerieLote2.Visible = False
+        divSerieLote.Visible = False
 
-        GvM.Columns(9).Visible = False
-        'PERMISO SOLO PARA EDITAR SERIELOTE
-        If UsuarioActual.TienePermisoProceso(245) Then
-            GvM.Columns(9).Visible = True
-        End If
+        'TrSerieLote.Visible = False
+        'TrSerieLote2.Visible = False
 
         TxtnLote.Visible = False
-        TrLote.Visible = False
-        TrLote2.Visible = False
+        divLote.Visible = False
+        'TrLote.Visible = False
+        'TrLote2.Visible = False
         GvM.Columns(10).Visible = False
 
         TxtnBatch.Visible = False
-        TrBatch.Visible = False
-        TrBatch2.Visible = False
+        divBatch.Visible = False
+        'TrBatch.Visible = False
+        'TrBatch2.Visible = False
         GvM.Columns(11).Visible = False
 
         Dim TienePermisoImportes = UsuarioActual.TienePermisoProceso(201)
@@ -2217,23 +2258,34 @@ Partial Class Inventarios_EntradasSalidas
         GvM.Columns(7).Visible = False
 
         If DtTemp IsNot Nothing AndAlso DtTemp.Rows.Count > 0 Then
+            GvM.Columns(9).Visible = False
+            'PERMISO SOLO PARA EDITAR SERIELOTE
+            If UsuarioActual.TienePermisoProceso(245) Then
+                GvM.Columns(9).Visible = True
+            End If
+            Dim SerieLoteVal As Integer = DtTemp.FiltraParametros("LEN(SerieLote) > 0").Rows.Count()
+            GvM.Columns(9).Visible = False
             If DtTemp.MAX("SerieLote").ToString <> "" Then
-                LblSerieLote.Visible = True
+                'LblSerieLote.Visible = True
                 TxtnSerieLote.Visible = True
-                TrSerieLote.Visible = True
-                TrSerieLote2.Visible = True
+                divSerieLote.Visible = True
+
+                'TrSerieLote.Visible = True
+                'TrSerieLote2.Visible = True
                 GvM.Columns(9).Visible = True
             End If
 
             If DtTemp.MAX("Lote").ToString <> "" Then
                 TxtnLote.Visible = True
-                TrLote.Visible = True
-                TrLote2.Visible = True
+                divLote.Visible = True
+                'TrLote.Visible = True
+                'TrLote2.Visible = True
                 GvM.Columns(10).Visible = True
 
                 TxtnBatch.Visible = True
-                TrBatch.Visible = True
-                TrBatch2.Visible = True
+                divBatch.Visible = True
+                'TrBatch.Visible = True
+                'TrBatch2.Visible = True
                 GvM.Columns(11).Visible = True
             End If
 
@@ -2320,34 +2372,34 @@ Partial Class Inventarios_EntradasSalidas
                 If CveMovimiento > 0 Then
                     'DEPENDE PERMISOS HABILITA
                     e.Row.FCLinkButton("lnkRemove").Visible = PermiteEliminar()
-                    e.Row.FCLinkButton("imgE").Visible = PermiteGuardar()
+                    e.Row.FCLinkButton("imgEd").Visible = PermiteGuardar()
 
                     If e.Row.DBCampo("CountMovimientoEntradaDetalle").ToEntero > 0 Then
                         TieneSalida = True
                         e.Row.FCLinkButton("lnkRemove").Visible = False
-                        e.Row.FCLinkButton("imgE").Visible = False
+                        e.Row.FCLinkButton("imgEd").Visible = False
                     End If
 
                     'SI TIENE PREPOLIZAS NO PUEDE EDITAR NI ELIMINAR
                     If e.Row.DBCampo("TienePrePoliza").ToEntero > 0 Then
                         e.Row.FCLinkButton("lnkRemove").Visible = False
-                        e.Row.FCLinkButton("imgE").Visible = False
+                        e.Row.FCLinkButton("imgEd").Visible = False
                     End If
 
                     'APAGA TODO SI TIENE MOVIMIENTO RELACIONADO
                     If TieneRelacionado > 0 Or CveMovimientoRelacionado > 0 Then
                         e.Row.FCLinkButton("lnkRemove").Visible = False
-                        e.Row.FCLinkButton("imgE").Visible = False
+                        e.Row.FCLinkButton("imgEd").Visible = False
                     End If
 
                     'PERMISO SOLO PARA EDITAR OBSERVACIONES
                     If PermiteGuardarObservacionDetalle() Then
-                        e.Row.FCLinkButton("imgE").Visible = True
+                        e.Row.FCLinkButton("imgEd").Visible = True
                     End If
 
                     'PERMISO SOLO PARA EDITAR SERIELOTE
                     If UsuarioActual.TienePermisoProceso(245) Then
-                        e.Row.FCLinkButton("imgE").Visible = True
+                        e.Row.FCLinkButton("imgEd").Visible = True
                     End If
 
                     If EsNuevoMov Then
@@ -2363,8 +2415,8 @@ Partial Class Inventarios_EntradasSalidas
             End If
 
             If DtSeccionAlmacen.FiltraParametros($"IndexSeccionAlmacen = {e.Row.RowIndex}").SUMD("CantidadSeccionAlmacen") > 0 Then
-                e.Row.FCLinkButton("imgE").Visible = False
-                e.Row.FCLinkButton("imgE").ToolTip = "Cuenta con sección almacen"
+                e.Row.FCLinkButton("imgEd").Visible = False
+                e.Row.FCLinkButton("imgEd").ToolTip = "Cuenta con sección almacen"
                 e.Row.FCLinkButton("lnkRemove").Visible = False
                 e.Row.FCLinkButton("lnkRemove").ToolTip = "Cuenta con sección almacen"
                 e.Row.FCLinkButton("lnkDividir").Visible = False
@@ -2375,7 +2427,50 @@ Partial Class Inventarios_EntradasSalidas
     End Sub
     Protected Sub GvM_RowEditing(sender As Object, e As GridViewEditEventArgs) Handles GvM.RowEditing
         GvM.EditIndex = e.NewEditIndex
-
+        Dim Gv As GridView = DirectCast(sender, GridView)
+        Dim GvRow As GridViewRow = Gv.Rows(0)
+        If CveMovimiento > 0 Then
+            CveMovimientoDetalleEdit = GvRow.DataKey("CveMovimientoDetalle").ToEntero
+            divCantidad.Visible = False
+            divClasificacionProducto.Visible = False
+            divUnidadMedida.Visible = False
+        End If
+        txtCantidad.Text = GvRow.DataKey("Cantidad").ToEntero().ToString
+        DdlProducto2.SelectedValue = GvRow.DataKey("CvePS")
+        DdlProducto2.SelectedText = GvRow.DataKey("CodigoPS")
+        ElProductoChange()
+        DdlUnidad.SelectedValue = GvRow.DataKey("CveUM")
+        CveAFEdit = GvRow.DataKey("CveAF").ToEntero
+        txtPrecio.Text = GvRow.DataKey("PU").ToDouble.FormatoNumero
+        TxtnSerieLote.Text = GvRow.DataKey("SerieLote")
+        TxtObservacionesdetalle.Text = GvRow.DataKey("Observaciones")
+        DdlSeccionAlmacen.SelectedValueExist(GvRow.DataKey("CveSeccionAlmacen"))
+        LkAgregarDetalle.Text = "Actualizar"
+        UpAgregar.Update()
+        RegistraScript("$('#ModalAgregar').modal()")
+        CargaGVM(DtMovimientos.FiltraParametros("Estatus <> 'E' "))
+    End Sub
+    Protected Sub EditPS(sender As Object, e As EventArgs)
+        Dim GvRow As GridViewRow = DirectCast(DirectCast(sender, LinkButton).NamingContainer, GridViewRow)
+        If CveMovimiento > 0 Then
+            CveMovimientoDetalleEdit = GvRow.DataKey("CveMovimientoDetalle").ToEntero
+            divCantidad.Visible = False
+            divClasificacionProducto.Visible = False
+            divUnidadMedida.Visible = False
+        End If
+        txtCantidad.Text = GvRow.DataKey("Cantidad").ToEntero().ToString
+        DdlProducto2.SelectedValue = GvRow.DataKey("CvePS")
+        DdlProducto2.SelectedText = GvRow.DataKey("CodigoPS")
+        ElProductoChange()
+        DdlUnidad.SelectedValue = GvRow.DataKey("CveUM")
+        CveAFEdit = GvRow.DataKey("CveAF").ToEntero
+        txtPrecio.Text = GvRow.DataKey("PU").ToDouble.FormatoNumero
+        TxtnSerieLote.Text = GvRow.DataKey("SerieLote")
+        TxtObservacionesdetalle.Text = GvRow.DataKey("Observaciones")
+        DdlSeccionAlmacen.SelectedValueExist(GvRow.DataKey("CveSeccionAlmacen"))
+        LkAgregarDetalle.Text = "Actualizar"
+        UpAgregar.Update()
+        RegistraScript("$('#ModalAgregar').modal()")
         CargaGVM(DtMovimientos.FiltraParametros("Estatus <> 'E' "))
     End Sub
     Protected Sub GvM_RowCancelingEdit(sender As Object, e As GridViewCancelEditEventArgs) Handles GvM.RowCancelingEdit
@@ -2591,7 +2686,7 @@ Partial Class Inventarios_EntradasSalidas
             LblCodigo.Text = HdnCodigoAF.Value
         End If
 
-        LbAgregar.Focus()
+        'LbAgregar.Focus()
 
         UPDatos.Update()
     End Sub
@@ -4065,15 +4160,15 @@ Partial Class Inventarios_EntradasSalidas
         End If
 
         If CantidadTotalSeccion > 0 Then
-            GvM.Rows(IndexSeccionAlmacen).FCLinkButton("imgE").Visible = False
-            GvM.Rows(IndexSeccionAlmacen).FCLinkButton("imgE").ToolTip = "Cuenta con sección almacen"
+            GvM.Rows(IndexSeccionAlmacen).FCLinkButton("imgEd").Visible = False
+            GvM.Rows(IndexSeccionAlmacen).FCLinkButton("imgEd").ToolTip = "Cuenta con sección almacen"
             GvM.Rows(IndexSeccionAlmacen).FCLinkButton("lnkRemove").Visible = False
             GvM.Rows(IndexSeccionAlmacen).FCLinkButton("lnkRemove").ToolTip = "Cuenta con sección almacen"
             GvM.Rows(IndexSeccionAlmacen).FCLinkButton("lnkDividir").Visible = False
             GvM.Rows(IndexSeccionAlmacen).FCLinkButton("lnkDividir").ToolTip = "Cuenta con sección almacen"
         Else
-            GvM.Rows(IndexSeccionAlmacen).FCLinkButton("imgE").Visible = True
-            GvM.Rows(IndexSeccionAlmacen).FCLinkButton("imgE").ToolTip = ""
+            GvM.Rows(IndexSeccionAlmacen).FCLinkButton("imgEd").Visible = True
+            GvM.Rows(IndexSeccionAlmacen).FCLinkButton("imgEd").ToolTip = ""
             GvM.Rows(IndexSeccionAlmacen).FCLinkButton("lnkRemove").Visible = True
             GvM.Rows(IndexSeccionAlmacen).FCLinkButton("lnkRemove").ToolTip = ""
             GvM.Rows(IndexSeccionAlmacen).FCLinkButton("lnkDividir").Visible = True
@@ -4141,4 +4236,41 @@ Partial Class Inventarios_EntradasSalidas
 
 #End Region
 
+    Protected Sub LkAgregar_Click() Handles LkAgregar.Click
+        limpiarModalDetalle()
+        UpAgregar.Update()
+        RegistraScript("$('#ModalAgregar').modal()")
+    End Sub
+
+    Private Sub ActualizarPS()
+        Dim ObjInventario As New ClsInventarios
+        If Not ObjInventario.UpdateMovimientoDetalle(txtCantidad.Text.ToDouble, DdlUnidad.ToEntero, DdlProducto2.SelectedValue.ToEntero, txtPrecio.Text.ToDouble, CveAFEdit,
+                                                     CveMovimientoDetalleEdit, DdlSeccionAlmacen.SelectedValue.ToEntero, TxtnSerieLote.Text, TxtObservacionesdetalle.Text,
+                                                     CveUsuarioModifico:=UsuarioActual.CveUsuario) Then
+            Alert("Error al Actualizar los movimientos")
+        End If
+    End Sub
+
+    Private Sub limpiarModalDetalle()
+
+        divCantidad.Visible = True
+        divClasificacionProducto.Visible = True
+        divUnidadMedida.Visible = True
+        txtCantidad.Text = ""
+        DdlProducto2.SelectedValue = "-1"
+        DdlProducto2.SelectedText = ""
+        ElProductoChange()
+        txtPrecio.Text = ""
+        TxtnSerieLote.Text = ""
+        TxtObservacionesdetalle.Text = ""
+        DdlSeccionAlmacen.SelectedValue = "-1"
+        LkAgregarDetalle.Text = "Agregar"
+        If DdlMonedaTC.SelectedValue.ToEntero = 2 Then
+            VisualizaPUExtranjero(UsuarioActual.TienePermisoProceso(201))
+        Else
+            VisualizaPUExtranjero(False)
+        End If
+
+        UpAgregar.Update()
+    End Sub
 End Class