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

App_Code/ClsContabilidad.vb

@@ -5723,7 +5723,7 @@ Public Class ClsContabilidad
         Return Retorno
     End Function
 
-    Public Function AddCuentasAsignaciones(Optional CveConceptoContable As Integer = -1, Optional CveCuenta As Integer = -1, Optional IdCtaContable As Integer = -1,
+    Public Function AddCuentasAsignaciones(Optional CveConceptoContable As Integer = -1, Optional CveEmpresa As Integer = -1, Optional CveCuenta As Integer = -1, Optional IdCtaContable As Integer = -1,
                                            Optional CveProveedor As Integer = -1, Optional CveCliente As Integer = -1, Optional CvePersonal As Integer = -1, Optional CveClasificacion As Integer = -1,
                                            Optional CveAlmacen As Integer = -1, Optional PorcentajeIVA As Decimal = -1, Optional CveConceptoNomina As Decimal = -1) As Boolean
         Dim Retorno = False
@@ -5732,6 +5732,7 @@ Public Class ClsContabilidad
 
         With SqlAdapter.SelectCommand.Parameters
             .Add("@CveConceptoContable", SqlDbType.Int).Value = CveConceptoContable
+            .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa
             .Add("@CveCuenta", SqlDbType.Int).Value = CveCuenta
             .Add("@IdCtaContable", SqlDbType.Int).Value = IdCtaContable
             .Add("@CveProveedor", SqlDbType.Int).Value = CveProveedor

App_Code/ClsInventarios.vb

@@ -1628,7 +1628,7 @@ Public Class ClsInventarios
 
     End Function
 
-    Public Function GetProductosCaducidad(CveProveedor As Integer, FechaInicio As Date, FechaFin As Date, CveSubProyecto As Integer, CveClasificacion As Integer) As Boolean
+    Public Function GetProductosCaducidad(CveProveedor As Integer, FechaInicio As Date, FechaFin As Date, CveSubProyecto As Integer, CveClasificacion As Integer, CvePS As Integer, CveEmpresa As Integer) As Boolean
         Dim Retorno As Boolean = False
 
         DataAdapter("PA_Inv_ProductosCaducidadGet")
@@ -1639,6 +1639,8 @@ Public Class ClsInventarios
             .Add("@FechaFin", SqlDbType.Date).Value = FechaFin
             .Add("@CveSubProyecto", SqlDbType.Int).Value = CveSubProyecto
             .Add("@CveClasificacion", SqlDbType.Int).Value = CveClasificacion
+            .Add("@CvePS", SqlDbType.Int).Value = CvePS
+            .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa
         End With
 
         Try

Ashx/SIGFacturacion.ashx

@@ -362,14 +362,14 @@ Public Class SIGFacturacion : Implements IHttpHandler, IRequiresSessionState
                     ObjFactura.UsoCFDI = GlobalDTSATUsosCFDI.FiltroPrimeroValor("Descripcion", String.Format("CveUsoCFDI = {0}", ObjCliente.CveUsoCFDI))
                     ObjFactura.ClaveUsoCFDI = GlobalDTSATUsosCFDI.FiltroPrimeroValor("UsoCFDI", String.Format("CveUsoCFDI = {0}", ObjCliente.CveUsoCFDI))
 
-                    ObjFactura.CveMetodoPago = ObjCliente.CveMetodoPago
+                    'ObjFactura.CveMetodoPago = ObjCliente.CveMetodoPago
 
-                    If GlobalDTMetodosPago.FiltraParametros(String.Format("CveMetodoPago = {0}", ObjCliente.CveMetodoPago)).Rows.Count > 0 Then
-                        ObjFactura.MetodoPago = GlobalDTMetodosPago.FiltraParametros(String.Format("CveMetodoPago = {0}", ObjCliente.CveMetodoPago)).Rows(0)("MetodoPago").ToString
-                    Else
-                        ObjFactura.CveMetodoPago = 1
-                        ObjFactura.MetodoPago = "Efectivo"
-                    End If
+                    'If GlobalDTMetodosPago.FiltraParametros(String.Format("CveMetodoPago = {0}", ObjCliente.CveMetodoPago)).Rows.Count > 0 Then
+                    '    ObjFactura.MetodoPago = GlobalDTMetodosPago.FiltraParametros(String.Format("CveMetodoPago = {0}", ObjCliente.CveMetodoPago)).Rows(0)("MetodoPago").ToString
+                    'Else
+                    '    ObjFactura.CveMetodoPago = 1
+                    '    ObjFactura.MetodoPago = "Efectivo"
+                    'End If
                 End If
             End If
             If ObjCliente.GetSucursales(CveCliente) Then

Contabilidad/RegPrePoliza.aspx.vb

@@ -171,7 +171,7 @@ Partial Class ContabilidadC_RegPrePoliza
     Protected Sub Page_Load(sender As Object, e As EventArgs) Handles Me.Load
 
         If Not Page.IsPostBack Then
-            If UsuarioActual.Empresa.TipoContabilizacion = 1 Then
+            If UsuarioActual.Empresa.TipoContabilizacion = 1 OrElse UsuarioActual.Empresa.TipoContabilidad = 1 Then
                 Response.Redirect(Request.Url.PathAndQuery.Replace("RegPrePoliza", "RegPrePolizaS"))
             End If
 

Contabilidad2/CatCuentasAsignaciones.aspx.vb

@@ -146,7 +146,7 @@ Partial Class Contabilidad2_CatCuentasAsignaciones
         Dim ObjConta As New ClsContabilidad
         Dim ErrorString As String = ""
         If LbAgregar.Text = "Agregar" Then
-            If Not ObjConta.AddCuentasAsignaciones(DdlCconceptosContables.SelectedValue.ToEntero, DdlCuenta.SelectedValue.ToEntero, TxtIdCuentaContable.Text.ToEntero,
+            If Not ObjConta.AddCuentasAsignaciones(DdlCconceptosContables.SelectedValue.ToEntero, UsuarioActual.CveEmpresa, DdlCuenta.SelectedValue.ToEntero, TxtIdCuentaContable.Text.ToEntero,
                                                DdlProveedor.SelectedValue.ToEntero, DdlClientes.SelectedValue.ToEntero, DdlPersonal.SelectedValue.ToEntero,
                                                DdlClasificacion.SelectedValue.ToEntero, DdlAlmacen.SelectedValue.ToEntero, TxtPorcentajeIVA.Text.ToDecimal) Then
                 ErrorString = "Error al agregar"

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