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

Inventarios/AjustesSeccionAlmacen.aspx

@@ -135,7 +135,7 @@
                     </asp:TemplateField>
                 </Columns>
             </asp:GridView>
-            <asp:Button ID="BtnCambiarSeccion" runat="server" Text="Cambiar Sección" CssClass="btn btn-primary" />
+            <asp:Button ID="BtnCambiarSeccion" runat="server" Text="Aplicar Cambios" CssClass="btn btn-primary" />
         </ContentTemplate>
     </asp:UpdatePanel>
     <div id="DivCargaExcel" class="modal ADS fade" role="dialog">

Inventarios/AjustesSeccionAlmacen.aspx.vb

@@ -177,11 +177,14 @@ Partial Class Inventarios_AjustesSeccionAlmacen
                         End If
                         'actualizamos el PS, para que tenga el aplica seccion
 
-                        If Lista.ContainsKey(CvePS) Then
-                            ObjPS.UpdateAplicaSeccionAlmacen(Row("CvePS").ToString().ToEntero(), UsuarioActual.CveEmpresa, True)
-                        End If
-                        If Not ObjInventario.AddProductosServiciosAlmacenSeccion(CvePS, CveAlmacen, CveSeccionAlmacen) Then
-                            ErrorMovInv = True
+                        If CveSeccionAlmacen > 0 Then
+                            If Lista.ContainsKey(CvePS) Then
+                                ObjPS.UpdateAplicaSeccionAlmacen(Row("CvePS").ToString().ToEntero(), UsuarioActual.CveEmpresa, True)
+                            End If
+                            If Not ObjInventario.AddProductosServiciosAlmacenSeccion(CvePS, CveAlmacen, CveSeccionAlmacen) Then
+                                ErrorMovInv = True
+                            End If
+
                         End If
 
                         If Not ObjInventario.AddMovimientoDetalle(CveMovimientoEntrada, Cantidad, CveUM, CvePS, PU, -1, CostoIndirecto:=CostoIndirecto, CveSeccionAlmacen:=CveSeccionAlmacen, Lote:=Lote, Serie:=Serie, FechaCaducidad:=FechaCaducidad, CveUsuarioModifico:=UsuarioActual.CveUsuario) Then
@@ -388,6 +391,8 @@ Partial Class Inventarios_AjustesSeccionAlmacen
                     dtSecciones.CaseSensitive = False
                     Dim resultado As DataTable = Nothing
 
+                    DtExcel = DtExcel.FiltraParametros("Código <> ''")
+
                     For Each RowExcel As DataRow In DtExcel.Rows
 
                         Dim Codigo As String = RowExcel("Código").ToString.Trim()
@@ -395,7 +400,7 @@ Partial Class Inventarios_AjustesSeccionAlmacen
 
                         Dim DrPS As DataRow = GlobalDTPSSimplificado(UsuarioActual.CveEmpresa).FiltroPrimero($"Codigo='{Codigo}'")
 
-                        If DrPS IsNot Nothing Then
+                        If Codigo <> "" AndAlso DrPS IsNot Nothing Then
                             If Not ErrorMovInv Then
 
                                 Dim CantidadEntrada As Decimal = RowExcel("Cantidad").ToString().ToDecimal()
@@ -478,7 +483,10 @@ Partial Class Inventarios_AjustesSeccionAlmacen
                                 End If
 
                                 If RowExistencia Is Nothing Then
-                                    ExistenciasNoEncontradas.AppendFormat("{0} - S:{1}<br/>", Codigo, Serie)
+                                    Dim str As String = ""
+                                    If Serie <> "" Then Serie = String.Format(" - Serie:{0} ")
+                                    ExistenciasNoEncontradas.AppendFormat("{0} {1}<br/>", Codigo, str)
+
                                     ErrorMovInv = True
                                 End If
 

Inventarios/Kardex.aspx

@@ -574,7 +574,7 @@
                                 <asp:UpdatePanel ID="UpProductoCaducidad" runat="server" UpdateMode="Conditional" RenderMode="Inline">
                                 <ContentTemplate>
                                     <div runat="server" id="DivImprimir" style="text-align:right" visible="false">
-                                        <asp:HyperLink ID="ImprimirQR" runat="server"><i class="fa fa-file-pdf-o" style="font-weight:bold;"></i> Imprmir QR</asp:HyperLink>
+                                        <asp:HyperLink ID="ImprimirQR" runat="server"><i class="fa fa-file-pdf-o" style="font-weight:bold;"></i> Imprimir QR</asp:HyperLink>
                                     </div>
                                     
                                     <asp:GridView ID="GvProductoCaducidad" Width="98%" runat="server" ShowHeader="true" EmptyDataText="No hay registros." AutoGenerateColumns="False" AllowPaging="False"

Inventarios/PrestamosdeProveedor.aspx.vb

@@ -181,7 +181,7 @@ Partial Class Inventarios_PrestamosdeProveedor
                 'faltan las prepólizas
                 If Not ErrorMovInv AndAlso ObjInventario.GetMovimientosDetalle(CveMovimientoSalida, UsuarioActual.CveEmpresa) Then
                     Dim CvePrePoliza As Integer = ObjConta.AddPrePolizas("Inv/PrestamodeProvedor", 53, 0, 0, 1, Fecha, $" {TxtObservacionesEntrega.Text}", UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, CveTipoPoliza:=3)
-                    Dim tValorInventario As Decimal = ObjInventario.DtResultados.SUM("Total", "").ToDecimal.RoundSQL()
+                    Dim tValorInventario As Decimal = ObjInventario.DtResultados.SUMD("Total", "").RoundAD()
                     Dim idCtaContable As Integer = 0
                     Dim IdCtaContableOtro As Integer = UsuarioActual.Empresa.IdCuentaOtrosIngresos
                     Dim TipoMovtoAlmacen As Boolean = False