Cambios nominas e inventarios

Inventarios/InventarioFisicoDetalle.aspx

@@ -244,6 +244,45 @@
             </ContentTemplate>
         </asp:UpdatePanel>
 
+        <asp:UpdatePanel ID="UpBuscar" runat="server" RenderMode="Inline" ViewStateMode="Inherit" UpdateMode="Conditional">
+            <ContentTemplate>
+                <div class="col-md-3">
+                    <asp:Panel ID="Panel1" runat="server" DefaultButton="BtnBuscarCodVarras">
+                        <div class="portlet smmallpadding light bordered" id="Div2" runat="server">
+                            <div class="portlet-title">
+                                <div class="tools">
+                                    <a href="javascript:;" class="collapse"></a>
+                                </div>
+                                <div class="caption uppercase" style="position: relative;">
+                                    <i class="fa fa-info-circle"></i>Consultar Producto
+                               
+                                </div>
+                            </div>
+                            <div class="portlet-body">
+                                <div class="row" style="margin-top: 5px;">
+                                    <label class="col-sm-4">Código.Barras</label>
+                                    <div class="col-sm-4">
+                                        <asp:TextBox runat="server" CssClass="form-control" ID="TxtConCodigoVarras"></asp:TextBox>
+                                    </div>
+                                    <div class="col-sm-4">
+                                        <asp:Button ID="BtnBuscarCodVarras" OnClick="BtnBuscarCodVarras_Click" runat="server" Text="Consultar" class="btn btn-primary" Enabled="true" />
+                                    </div>
+                                </div>
+                                <div class="row" style="margin-top: 5px;">
+                                    <%--<label class="col-sm-4 "> </label>--%>
+                                    <div class="col-sm-12" style="text-align: center">
+                                        <h4>
+                                            <asp:Label ID="LblContador" CssClass="bold" runat="server" Text=""></asp:Label>
+                                        </h4>
+                                    </div>
+
+                                </div>
+                            </div>
+                        </div>
+                    </asp:Panel>
+                </div>
+            </ContentTemplate>
+        </asp:UpdatePanel>
     </div>
     <asp:UpdatePanel ID="UPPInventario" runat="server" UpdateMode="Conditional">
         <ContentTemplate>

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