Cambios nominas e inventarios

Inventarios/InventarioFisicoDetalle.aspx.vb

@@ -277,42 +277,44 @@ Partial Class Inventarios_InventarioFisicoDetalle
             If SerieLote <> "" And (SerieLote.ToUpper = dr("Codigo").ToString.ToUpper Or SerieLote.ToUpper = dr("CodigoBarras").ToString.ToUpper) Then
                 Alert($"La serie indicada <b>{SerieLote}</b> coincide con el codigo o codigo de barras del producto. Por favor rectifique y vuelva a intentar.", TipoMensaje.MsgAdvertencia)
                 Exit Sub
-            End If
-
-
-            Dim Inventarios As New ClsInventarios
+            End If
+
+
             Dim Consulto As Boolean = False
-            If Inventarios.AddInventarioFisicoDetalle(CveInventarioFisico, CveProducto, CveUnidadMedida, If(CveMetodoInv = 5, 1, Cantidad), SerieLote, UsuarioActual.CveUsuario) Then
-                If GvIFDUltimoRegistrado.Rows.Count > 0 Then
-                    GvIFDUltimoRegistrado.Rows(0).Cells(0).Text = Now
-                    GvIFDUltimoRegistrado.Rows(0).Cells(1).Text = dr("CodigoBarras").ToString
-                    GvIFDUltimoRegistrado.Rows(0).Cells(2).Text = dr("Codigo").ToString
-                    GvIFDUltimoRegistrado.Rows(0).Cells(3).Text = dr("PS").ToString
-                    GvIFDUltimoRegistrado.Rows(0).Cells(4).Text = TxtCodigoSerie.Text.Trim
-                    GvIFDUltimoRegistrado.Rows(0).Cells(5).Text = TxtCantidadProducto.Text.Trim
-                Else
-                    Consulto = True
-                    If Inventarios.GetInventarioFisicoDetalle(CveInventarioFisico, UsuarioActual.CveUsuario) Then
-                        If Inventarios.DtResultados.Rows.Count > 0 Then
-                            GvIFDUltimoRegistrado.DataSource = Inventarios.DtResultados.AsEnumerable.OrderByDescending(Function(k) k!CveInventarioFisicoDetalle).Take(1).CopyToDataTable
-                        Else
-                            GvIFDUltimoRegistrado.DataSource = Nothing
-                        End If
-                    Else
-                        Alert("Ocurrió un error al consultar el inventario fisico. Por favor vuelva a intentar.", TipoMensaje.MsgError)
-                        RegistraScript("playsonidito('142608__autistic-lucario__error.wav')")
-                    End If
-                End If
-                TxtCodigoBarras.Text = ""
-                TxtCodigoSerie.Text = ""
-                TxtCodigo.Text = ""
-                TxtCantidadProducto.Text = "1"
-                RegistraScript("playsonidito('beep-07.wav')")
-            Else
-                TxtCodigoSerie.Text = ""
-            End If
-            TxtCodigoBarras.Focus()
-            Inventarios.Dispose()
+            Using Inventarios As New ClsInventarios
+
+                If Inventarios.AddInventarioFisicoDetalle(CveInventarioFisico, CveProducto, CveUnidadMedida, If(CveMetodoInv = 5, 1, Cantidad), SerieLote, UsuarioActual.CveUsuario) Then
+                    If GvIFDUltimoRegistrado.Rows.Count > 0 Then
+                        GvIFDUltimoRegistrado.Rows(0).Cells(0).Text = Now
+                        GvIFDUltimoRegistrado.Rows(0).Cells(1).Text = dr("CodigoBarras").ToString
+                        GvIFDUltimoRegistrado.Rows(0).Cells(2).Text = dr("Codigo").ToString
+                        GvIFDUltimoRegistrado.Rows(0).Cells(3).Text = dr("PS").ToString
+                        GvIFDUltimoRegistrado.Rows(0).Cells(4).Text = TxtCodigoSerie.Text.Trim
+                        GvIFDUltimoRegistrado.Rows(0).Cells(5).Text = TxtCantidadProducto.Text.Trim
+                    Else
+                        Consulto = True
+                        If Inventarios.GetInventarioFisicoDetalle(CveInventarioFisico, UsuarioActual.CveUsuario) Then
+                            If Inventarios.DtResultados.Rows.Count > 0 Then
+                                GvIFDUltimoRegistrado.DataSource = Inventarios.DtResultados.AsEnumerable.OrderByDescending(Function(k) k!CveInventarioFisicoDetalle).Take(1).CopyToDataTable
+                            Else
+                                GvIFDUltimoRegistrado.DataSource = Nothing
+                            End If
+                        Else
+                            Alert("Ocurrió un error al consultar el inventario fisico. Por favor vuelva a intentar.", TipoMensaje.MsgError)
+                            RegistraScript("playsonidito('142608__autistic-lucario__error.wav')")
+                        End If
+                    End If
+                    TxtCodigoBarras.Text = ""
+                    TxtCodigoSerie.Text = ""
+                    TxtCodigo.Text = ""
+                    TxtCantidadProducto.Text = "1"
+                    RegistraScript("playsonidito('beep-07.wav')")
+                Else
+                    TxtCodigoSerie.Text = ""
+                End If
+                TxtCodigoBarras.Focus()
+            End Using
+
             If Consulto Then GvIFDUltimoRegistrado.DataBind()
         Else
             TxtCodigoBarras.Text = ""
@@ -469,4 +471,24 @@ Partial Class Inventarios_InventarioFisicoDetalle
 
 #End Region
 
+    Protected Sub BtnBuscarCodVarras_Click(sender As Object, e As EventArgs)
+        Dim CodigoBarras As String = If(TxtConCodigoVarras.Text.Trim <> "", TxtConCodigoVarras.Text.Trim, "-1").Replace("'", "''")
+        LblContador.Text = "No se encontraron resultados"
+        Using Inventarios As New ClsInventarios
+            If Inventarios.GetInventarioFisicoContador(CveInventarioFisico, ddlUsuario.SelectedValue.ToString.ToEntero, CodigoBarras) Then
+                'Cantidad,@CodigoBarras CodigoBarras 
+                If (Inventarios.DtResultados.Rows.Count > 0) Then
+                    Dim drow As DataRow = Inventarios.DtResultados.Rows(0)
+                    If (drow("Cantidad").ToString().ToDouble() > 0) Then
+                        LblContador.Text = String.Format("Contador={0:##,###.##}", drow("Cantidad"))
+                    Else
+
+                    End If
+                End If
+            End If
+        End Using
+        UpBuscar.Update()
+        ' UsuarioActual.CveUsuario
+        '
+    End Sub
 End Class