Merge branch 'master' of http://192.168.10.111:8383/SIG

Inventarios/EntradasSalidas.aspx.vb

@@ -3556,8 +3556,9 @@ Partial Class Inventarios_EntradasSalidas
         'MOVIMIENTO DE ENTRADA
         If DtMovimientosEntradaInvFisico.Rows.Count > 0 Then
             Dim FolioEntrada As Integer = ObjInventario.GetFolioSiguiente(2, UsuarioActual.CveEmpresa)
-            CveMovimientoEntrada = ObjInventario.AddMovimiento(DdlAlmacenInventarioFisico.SelectedValue.ToEntero, 2, 1, Fecha, FolioEntrada, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, -1, -1, -1, -1, Observaciones:=TxtIFDescripcion.Text.Trim)
-
+            CveMovimientoEntrada = ObjInventario.AddMovimiento(DdlAlmacenInventarioFisico.SelectedValue.ToEntero, 2, 1, Fecha, FolioEntrada, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, -1, -1, -1, -1, Observaciones:=TxtIFDescripcion.Text.Trim)
+        Else
+            CveMovimientoEntrada = -1
         End If
 
         'MOVIMIENTO DE SALIDA

Inventarios/KardexAlmacenHorizontal.aspx

@@ -163,10 +163,19 @@
             <td style="padding: 0px">
                 <asp:UpdatePanel ID="UpDatos" runat="server">
                     <ContentTemplate>
-                        <asp:GridView ID="GvDatos" runat="server" ShowHeader="true" EmptyDataText="No hay registros." AutoGenerateColumns="True" DataKeyNames="CvePS"
+                        <asp:GridView ID="GvDatos" runat="server" ShowHeader="true" EmptyDataText="No hay registros." AutoGenerateColumns="True"
                             ShowFooter="True" ShowHeaderWhenEmpty="True" HeaderStyle-CssClass="Texto" CssClass="table table-striped table-hover Widthall ScrollAD" data-sort="true" GridLines="None">
                             <Columns>
-                                <%--                                <asp:BoundField HeaderText="Producto" DataField="PS" ItemStyle-Width="300px" ItemStyle-HorizontalAlign="Left" />--%>
+                                <asp:TemplateField ItemStyle-HorizontalAlign="Left">
+                                    <HeaderTemplate>
+                                        Código
+                                    </HeaderTemplate>
+                                    <ItemTemplate>
+                                        <div class='truncate' style='width: 200px;'>
+                                            <asp:Label runat="server" Text='<%# Eval("Codigo") %>' Width="100px"></asp:Label>
+                                        </div>
+                                    </ItemTemplate>
+                                </asp:TemplateField>
                                 <asp:TemplateField ItemStyle-HorizontalAlign="Left">
                                     <HeaderTemplate>
                                         Producto
@@ -177,16 +186,6 @@
                                         </div>
                                     </ItemTemplate>
                                 </asp:TemplateField>
-<%--                                <asp:TemplateField ItemStyle-HorizontalAlign="Left">
-                                    <HeaderTemplate>
-                                        Proveedor Fecha
-                                    </HeaderTemplate>
-                                    <ItemTemplate>
-                                        <div class='truncate' style='width: 200px;'>
-                                            <asp:Label runat="server" Text='<%# Eval("ProveedorFecha") %>' Width="250px"></asp:Label>
-                                        </div>
-                                    </ItemTemplate>
-                                </asp:TemplateField>--%>
                             </Columns>
                         </asp:GridView>
                     </ContentTemplate>

Inventarios/PaquetesArmadoDesarmado.aspx.vb

@@ -896,7 +896,7 @@ Partial Class Inventarios_PaquetesArmadoDesarmado
             'VERIFICA EXISTENCIAS
             Dim Existencia = 0.0D
             If TipoMovimiento = 1 Then
-                Existencia = ObjInventarios.GetExistenciasPS(CvePSSerieLote, CveUMSerieLote, UsuarioActual.CveEmpresa, DdlAlmacenArmado.SelectedValue.ToEntero, FechaMovto:=TxtFechaArmado.Text.ToDateTime.ToString("yyyy/MM/dd HH:mm"), SerieLote:=Serie)
+                Existencia = ObjInventarios.GetExistenciasPS(CvePSSerieLote, CveUMSerieLote, UsuarioActual.CveEmpresa, DdlAlmacenArmado.SelectedValue.ToEntero, FechaMovto:=TxtFechaArmado.Text.ToDateTime.ToString("yyyy/MM/dd HH:mm"), SerieLote:=Serie, CveVendedor:=CveVendedor, CveCliente:=If(UsuarioActual.Empresa.Funcionalidad(146) = "1", -1, CveCliente))
             Else
                 Existencia = If(DtExistenciasDesarmado Is Nothing, 0, DtExistenciasDesarmado.FiltraParametros($"CvePS={CvePSSerieLote} AND SeriePS='{Serie}'").Rows.Count.ToString.ToDecimal)
             End If

Inventarios/RepEntradasSalidas.aspx

@@ -56,7 +56,7 @@
                         <div class="row">
                             <div class="col-md-1 truncate">Almacén</div>
                             <div class="col-md-2">
-                                <asp:DropDownList ID="DdlAlmacen" CssClass="form-control input-sm select2me" runat="server" Width="100%" DataValueField="CveAlmacen" DataTextField="Almacen"></asp:DropDownList>
+                                 <asp:ListBox ID="DdlAlmacen" SelectionMode="Multiple" CssClass="form-control ddlFiltros input-sm select2me Widthall" DataTextField="Almacen" DataValueField="CveAlmacen" Style="width: 100%;" runat="server"></asp:ListBox>
                             </div>
                             <div class="col-md-1 truncate">Fecha Inicio</div>
                             <div class="col-md-2 col-sm-2">

Inventarios/RepEntradasSalidas.aspx.vb

@@ -209,13 +209,14 @@ Partial Class Inventarios_ReporteEntradasSalidas
         FechaInicial = If(TxtFechaI.Text.Trim <> "" AndAlso TxtFechaI.Text <> "__/__/____", TxtFechaI.Text, "-1")
         FechaFinal = If(TxtFechaF.Text.Trim <> "" AndAlso TxtFechaF.Text <> "__/__/____", TxtFechaF.Text, "-1")
         Dim TipoAlmacen As String = If(DdlTipoAlmacen.GetSelectedValuesM = "", "-1", DdlTipoAlmacen.GetSelectedValuesM)
+        Dim Almacenes As String = If(DdlAlmacen.GetSelectedValuesM = "", "-1", DdlAlmacen.GetSelectedValuesM)
 
         If UsuarioActual.Empresa.Funcionalidad(130) = "1" Then
             CveMarca = DdlMarca.SelectedValue.ToEntero
         End If
 
         If Reporte.RepMovimientos(UsuarioActual.CveEmpresa, DdlMoneda.SelectedValue.ToEntero, FechaInicial, FechaFinal, DdlTipoMovimiento.SelectedValue.ToEntero, DdlProveedor.SelectedValue.ToEntero,
-                                  DdlAlmacen.SelectedValue.ToEntero, DdlFamilia.SelectedValue.ToEntero, DdlSubFamilia.SelectedValue.ToEntero, DdlPS.SelectedValue.ToEntero, DdlClasificacion.SelectedValue.ToEntero,
+                                  Almacenes, DdlFamilia.SelectedValue.ToEntero, DdlSubFamilia.SelectedValue.ToEntero, DdlPS.SelectedValue.ToEntero, DdlClasificacion.SelectedValue.ToEntero,
                                   DdlMovs.SelectedValue.ToEntero, CveMarca, CvePersonal:=DdlPersonal.SelectedValue.ToEntero, CveClasificacion2:=DdlClasificacion2.SelectedValue.ToEntero, CveTipoAlmacen:=TipoAlmacen,
                                   Modalidad:=DdlModalidadFiltro.SelectedValue.ToEntero) Then
             dt = Reporte.DtResultados
@@ -712,8 +713,8 @@ Partial Class Inventarios_ReporteEntradasSalidas
             'libro.Cell(Fila + 1, 2).Style.NumberFormat.Format = "N2"
             libro.Cell(Fila + 1, 3).Value = String.Format("{0}", SaldoFCant)
             'libro.Cell(Fila + 1, 3).Style.NumberFormat.Format = "N2"
-            libro.Cell(Fila + 1, 4).Value = String.Format("{0}", SaldoFImp)
-            libro.Cell(Fila + 1, 4).Style.NumberFormat.Format = "$ #,##0.00"
+            libro.Cell(Fila + 1, 4).Value = String.Format("{0}", SaldoFCant)
+            'libro.Cell(Fila + 1, 4).Style.NumberFormat.Format = "$ #,##0.00"
 
 
             ''Guarda streem y descarga