Merge branch 'master' of http://oirigoyen@192.168.10.111:8383/SIG.git

App_Code/ClsPaginas.vb

@@ -1809,6 +1809,13 @@ Public Class ClsPaginas
 
     Property GlobalDTAlmacen(CveEmpresa As Integer, Optional CveTipoAlmacen As Integer = -1, Optional CveEstatus As Integer = 1, Optional CveAlmacen As Integer = -1) As DataTable
         Get
+            Dim AppNombre As String = String.Format("GlobalDTAlmacen-{0}", CveEmpresa)
+            'sino existe, recarga los datos
+            If Application(AppNombre) Is Nothing Then
+                Dim ObjUsr As New ClsInventarios
+                If ObjUsr.GetAlmacenes(-1, -1, CveEmpresa, -1) Then Application(AppNombre) = ObjUsr.DtResultados
+                ObjUsr.Dispose()
+            End If
 
             Dim Str As New StringBuilder
             Str.Append("1=1 AND ")
@@ -1817,14 +1824,31 @@ Public Class ClsPaginas
             If CveEstatus > 0 Then Str.AppendFormat("AND CveEstatus = {0}", CveEstatus)
             If CveAlmacen > 0 Then Str.AppendFormat("AND CveAlmacen = {0}", CveAlmacen)
 
-            Dim Dv As New DataView(DirectCast(Application("GlobalDTAlmacen"), DataTable), Str.ToString, "", DataViewRowState.CurrentRows)
+            Dim Dv As New DataView(DirectCast(Application(AppNombre), DataTable), Str.ToString, "", DataViewRowState.CurrentRows)
             GlobalDTAlmacen = Dv.ToTable
             Dv.Dispose()
-
         End Get
         Set(value As DataTable)
-            Application("GlobalDTAlmacen") = value
+            Dim AppNombre As String = String.Format("GlobalDTAlmacen-{0}", CveEmpresa)
+            Application(AppNombre) = value
         End Set
+        'Get
+
+        '    Dim Str As New StringBuilder
+        '    Str.Append("1=1 AND ")
+        '    If CveEmpresa <> -1 Then Str.AppendFormat(" CveEmpresa = {0} ", CveEmpresa)
+        '    If CveTipoAlmacen > 0 Then Str.AppendFormat("AND CveTipoAlmacen = {0}", CveTipoAlmacen)
+        '    If CveEstatus > 0 Then Str.AppendFormat("AND CveEstatus = {0}", CveEstatus)
+        '    If CveAlmacen > 0 Then Str.AppendFormat("AND CveAlmacen = {0}", CveAlmacen)
+
+        '    Dim Dv As New DataView(DirectCast(Application("GlobalDTAlmacen"), DataTable), Str.ToString, "", DataViewRowState.CurrentRows)
+        '    GlobalDTAlmacen = Dv.ToTable
+        '    Dv.Dispose()
+
+        'End Get
+        'Set(value As DataTable)
+        '    Application("GlobalDTAlmacen") = value
+        'End Set
     End Property
     Property GlobalDTAlmacenUsuarios(CveUsuario As Integer, CveEmpresa As Integer, Optional CveTipoAlmacen As Integer = 1, Optional CveEstatus As Integer = 1) As DataTable
         Get

Bancos/PagoDeudor.aspx.cs

@@ -842,6 +842,17 @@ public partial class Bancos_PagoDeudor : ClsPaginas
                         MsgError = "No se pudo insertar concepto de bancos complementaria";
                     }
                 }
+
+                if (ObjMov.ValidacionPrePolizaCuadre(CvePrePoliza, 10))
+                {
+                    if (ObjMov.ValorPolizaDescuadre > 0)
+                    {
+                        MsgError = ObjMov.MensajePolizaDescuadre;
+                        $"Bancos/IE PAGO Deudor | Error:{ObjMov.MensajePolizaDescuadre} Diferencia:{ObjMov.ValorDiferencia} | CvePrePoliza:{CvePrePoliza}".GuardaLogAD("LogPrePolizas");
+                    }
+                }
+
+
                 bool AutoConta = UsuarioActual.Empresa.Funcionalidad(200).Equals("1");
                 //if (UsuarioActual.CveEmpresa == 119) AutoConta = false;
 
@@ -881,14 +892,6 @@ public partial class Bancos_PagoDeudor : ClsPaginas
             MsgError = "No se pudo insertar la póliza";
         }
 
-        if (ObjMov.ValidacionPrePolizaCuadre(CvePrePoliza, 10))
-        {
-            if (ObjMov.ValorPolizaDescuadre > 0)
-            {
-                MsgError = ObjMov.MensajePolizaDescuadre;
-                $"Bancos/IE PAGO Deudor | Error:{ObjMov.MensajePolizaDescuadre} Diferencia:{ObjMov.ValorDiferencia} | CvePrePoliza:{CvePrePoliza}".GuardaLogAD("LogPrePolizas");
-            }
-        }
        
         if (MsgError.Equals(""))
         {

Bancos/PolizaCheque.aspx.vb

@@ -850,6 +850,7 @@ Partial Class Bancos_PolizaCheque
             Dim IDPoliza As Integer = 0
             Dim CveIE As Integer
             Dim MsgError As String = ""
+            Dim idCuentaContabilizacion As Long = 1
 
             'If ChkContabilizar.Checked AndAlso UsuarioActual.Empresa.UsaContabilidad Then
             '    Conta = New ClsContPAQi(UsuarioActual.Empresa)
@@ -876,6 +877,7 @@ Partial Class Bancos_PolizaCheque
                         If dr IsNot Nothing Then
                             CveMoneda = dr("CveMoneda").ToString.ToEntero
                         End If
+
                         Dim TC As Decimal = If(CveMoneda > 1, GlobalTipoCambio(TxtFechaDocumento.Text.ToDate), 1)
                         Dim CveTipoPoliza As Integer = GlobalDTContaPlantillasPolizas(UsuarioActual.CveEmpresa, TipoPlantilla).FiltroPrimeroValor("TipoPoliza", String.Format("CvePlantillaPoliza={0}", DdlPlantilla.SelectedValue)).ToEntero
                         CvePrePoliza = ObjMov.AddPrePolizas("PolizaCheque/Guardar", DdlPlantilla.SelectedValue.ToEntero, TotalCargos, TotalAbonos, 1, TxtFechaDocumento.Text.ToDate, ConceptoPoliza, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, CveTipoPoliza:=CveTipoPoliza)
@@ -887,7 +889,7 @@ Partial Class Bancos_PolizaCheque
 
                             If CvePrePoliza > 0 Then
                                 Dim alertaContabilizacion As String = "Se enviaron correctamente las siguientes pólizas:<br><br>"
-                                Dim idCuentaContabilizacion As Long = 1
+
                                 Dim Importe As Double = 0
                                 Dim TipoMovto As Boolean = False
                                 Dim IdCtaContable As Integer = 0
@@ -958,20 +960,6 @@ Partial Class Bancos_PolizaCheque
                                 End If
 
 
-                                'El movimiento 2 es el de Pago
-                                If UsuarioActual.Empresa.Funcionalidad(200) = "1" And MsgError = "" Then
-                                    If idCuentaContabilizacion > 0 Then
-                                        If ObjMov.ContabilizarPrePoliza(CvePrePoliza, UsuarioActual.CveUsuario, UsuarioActual.Empresa) Then
-                                            'Alert(alertaContabilizacion, ModExtensiones.TipoMensaje.MsgInformacion)
-                                            IDPoliza = ObjMov.ContaIdPoliza
-                                        Else
-                                            Alert("Ocurrio un error al contabilizar, pongase en contacto con Soporte Técnico", TipoMensaje.MsgError)
-                                        End If
-                                    Else
-                                        Alert("No se puede contabilizar la Prepoliza debido a que una o mas cuentas son inválidas", TipoMensaje.MsgError)
-                                    End If
-                                End If
-
                                 If CvePeriodo > 0 Then
                                     If Not ObjNom.UpdatePagoNomina(CvePeriodo, CveIE, CvePrePoliza, UsuarioActual.CveEmpresa) Then
                                         MsgError = "No se pudo actualizar el periodo de la nómina"
@@ -1010,6 +998,23 @@ Partial Class Bancos_PolizaCheque
                         End If
                     End If
 
+
+                    'El movimiento 2 es el de Pago
+                    If UsuarioActual.Empresa.Funcionalidad(200) = "1" And MsgError = "" Then
+                        If idCuentaContabilizacion > 0 Then
+                            If ObjMov.ContabilizarPrePoliza(CvePrePoliza, UsuarioActual.CveUsuario, UsuarioActual.Empresa) Then
+                                'Alert(alertaContabilizacion, ModExtensiones.TipoMensaje.MsgInformacion)
+                                IDPoliza = ObjMov.ContaIdPoliza
+                            Else
+                                MsgError = "Error al contabilizar"
+                                Alert("Ocurrio un error al contabilizar, pongase en contacto con Soporte Técnico", TipoMensaje.MsgError)
+                            End If
+                        Else
+                            Alert("No se puede contabilizar la Prepoliza debido a que una o mas cuentas son inválidas", TipoMensaje.MsgError)
+                        End If
+                    End If
+
+
                     If MsgError = "" Then
 
                         ObjIE.Commit()

Contabilidad/RegPrePoliza1.aspx.vb

@@ -856,6 +856,20 @@ Partial Class ContabilidadC_RegPrePoliza
                         End If
                     Next
 
+                    If CvePeriodo > 0 Then
+                        If Not ObjNom.UpdateProvisionNomina(CvePeriodo, CvePrePoliza, UsuarioActual.CveEmpresa) Then
+                            MsgError = "No se pudo actualizar el periodo de la nómina"
+                        End If
+                    End If
+
+                    If ObjMov.ValidacionPrePolizaCuadre(CvePrePoliza, 1) Then
+                        If ObjMov.ValorPolizaDescuadre > 0 Then
+                            GuardaLogAD($"Contabilidad/RegPrePolizas | Error:{ObjMov.MensajePolizaDescuadre} Diferencia:{ObjMov.ValorDiferencia} | CvePrePoliza:{CvePrePoliza}", "LogPrePolizas")
+                            MsgError = ObjMov.MensajePolizaDescuadre
+                        End If
+                    End If
+
+
                     'El movimiento 2 es el de Pago
                     If ChkAutoConta.Checked AndAlso UsuarioActual.Empresa.Funcionalidad(200) = "1" AndAlso MsgError = "" Then
                         If idCuentaContabilizacion > 0 Then
@@ -871,18 +885,6 @@ Partial Class ContabilidadC_RegPrePoliza
                             Alert("No se puede contabilizar la Prepoliza debido a que una o mas cuentas son inválidas")
                         End If
                     End If
-                    If CvePeriodo > 0 Then
-                        If Not ObjNom.UpdateProvisionNomina(CvePeriodo, CvePrePoliza, UsuarioActual.CveEmpresa) Then
-                            MsgError = "No se pudo actualizar el periodo de la nómina"
-                        End If
-                    End If
-
-                    If ObjMov.ValidacionPrePolizaCuadre(CvePrePoliza, 1) Then
-                        If ObjMov.ValorPolizaDescuadre > 0 Then
-                            GuardaLogAD($"Contabilidad/RegPrePolizas | Error:{ObjMov.MensajePolizaDescuadre} Diferencia:{ObjMov.ValorDiferencia} | CvePrePoliza:{CvePrePoliza}", "LogPrePolizas")
-                            MsgError = ObjMov.MensajePolizaDescuadre
-                        End If
-                    End If
 
                 Else
                     MsgError = "No se pudo insertar la póliza"

Contabilidad/RegPrePolizaS.aspx.vb

@@ -853,6 +853,20 @@ Partial Class ContabilidadC_RegPrePolizaS
                         End If
                     Next
 
+                    If CvePeriodo > 0 Then
+                        If Not ObjNom.UpdateProvisionNomina(CvePeriodo, CvePrePoliza, UsuarioActual.CveEmpresa) Then
+                            MsgError = "No se pudo actualizar el periodo de la nómina"
+                        End If
+                    End If
+
+                    If ObjMov.ValidacionPrePolizaCuadre(CvePrePoliza, 1) Then
+                        If ObjMov.ValorPolizaDescuadre > 0 Then
+                            GuardaLogAD($"Contabilidad/RegPrePolizas | Error:{ObjMov.MensajePolizaDescuadre} Diferencia:{ObjMov.ValorDiferencia} | CvePrePoliza:{CvePrePoliza}", "LogPrePolizas")
+                            MsgError = ObjMov.MensajePolizaDescuadre
+                        End If
+                    End If
+
+
                     'El movimiento 2 es el de Pago
                     If ChkAutoConta.Checked AndAlso UsuarioActual.Empresa.Funcionalidad(200) = "1" AndAlso MsgError = "" Then
                         If idCuentaContabilizacion > 0 Then
@@ -868,18 +882,6 @@ Partial Class ContabilidadC_RegPrePolizaS
                             Alert("No se puede contabilizar la Prepoliza debido a que una o mas cuentas son inválidas")
                         End If
                     End If
-                    If CvePeriodo > 0 Then
-                        If Not ObjNom.UpdateProvisionNomina(CvePeriodo, CvePrePoliza, UsuarioActual.CveEmpresa) Then
-                            MsgError = "No se pudo actualizar el periodo de la nómina"
-                        End If
-                    End If
-
-                    If ObjMov.ValidacionPrePolizaCuadre(CvePrePoliza, 1) Then
-                        If ObjMov.ValorPolizaDescuadre > 0 Then
-                            GuardaLogAD($"Contabilidad/RegPrePolizas | Error:{ObjMov.MensajePolizaDescuadre} Diferencia:{ObjMov.ValorDiferencia} | CvePrePoliza:{CvePrePoliza}", "LogPrePolizas")
-                            MsgError = ObjMov.MensajePolizaDescuadre
-                        End If
-                    End If
 
                 Else
                     MsgError = "No se pudo insertar la póliza"

Global.asax

@@ -208,7 +208,7 @@
         'I N V E N T A R I O S 
 
         Using Objinventarios As New ClsInventarios
-            If Objinventarios.GetAlmacenes(-1, -1, -1, -1) Then Application("GlobalDTAlmacen") = Objinventarios.DtResultados Else Application("GlobalDTAlmacen") = Nothing
+            'If Objinventarios.GetAlmacenes(-1, -1, -1, -1) Then Application("GlobalDTAlmacen") = Objinventarios.DtResultados Else Application("GlobalDTAlmacen") = Nothing
             If Objinventarios.GetSeccionesAlmacenes(-1, -1) Then Application("GlobalDTSeccionAlmacen") = Objinventarios.DtResultados Else Application("GlobalDTSeccionAlmacen") = Nothing
             If Objinventarios.GetTiposAlmacenes Then Application("GlobalDTTipoAlmacen") = Objinventarios.DtResultados Else Application("GlobalDTTipoAlmacen") = Nothing
             If Objinventarios.GetConceptos Then Application("GlobalDTInvConceptos") = Objinventarios.DtResultados Else Application("GlobalDTInvConceptos") = Nothing