diff --git a/App_Code/ClsPaginas.vb b/App_Code/ClsPaginas.vb
index 9d546b7b5..b8fed70d2 100644
--- a/App_Code/ClsPaginas.vb
+++ b/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
diff --git a/Bancos/PagoDeudor.aspx.cs b/Bancos/PagoDeudor.aspx.cs
index 88424c2bd..c59201a8f 100644
--- a/Bancos/PagoDeudor.aspx.cs
+++ b/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,15 +892,7 @@ 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(""))
{
if (Msg.ToString().Equals(""))
diff --git a/Bancos/PolizaCheque.aspx.vb b/Bancos/PolizaCheque.aspx.vb
index f27450da1..40d7ad541 100644
--- a/Bancos/PolizaCheque.aspx.vb
+++ b/Bancos/PolizaCheque.aspx.vb
@@ -849,7 +849,8 @@ Partial Class Bancos_PolizaCheque
'Dim Conta As ClsContPAQi = Nothing
Dim IDPoliza As Integer = 0
Dim CveIE As Integer
- Dim MsgError As String = ""
+ Dim MsgError As String = ""
+ Dim idCuentaContabilizacion As Long = 1
'If ChkContabilizar.Checked AndAlso UsuarioActual.Empresa.UsaContabilidad Then
' Conta = New ClsContPAQi(UsuarioActual.Empresa)
@@ -875,7 +876,8 @@ Partial Class Bancos_PolizaCheque
Dim dr As DataRow = GlobalDTBancosCuentas(UsuarioActual.CveUsuario, CveEmpresa:=UsuarioActual.CveEmpresa).FiltroPrimero(String.Format("CveCuenta={0}", DdlCuenta.SelectedValue))
If dr IsNot Nothing Then
CveMoneda = dr("CveMoneda").ToString.ToEntero
- End If
+ 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)
@@ -886,8 +888,8 @@ Partial Class Bancos_PolizaCheque
If CvePrePoliza > 0 Then
- Dim alertaContabilizacion As String = "Se enviaron correctamente las siguientes pólizas:
"
- Dim idCuentaContabilizacion As Long = 1
+ Dim alertaContabilizacion As String = "Se enviaron correctamente las siguientes pólizas:
"
+
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"
@@ -1008,8 +996,25 @@ Partial Class Bancos_PolizaCheque
Else
MsgError = "No se pudo validar la prepoliza de cuadre."
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()
diff --git a/Contabilidad/RegPrePoliza1.aspx.vb b/Contabilidad/RegPrePoliza1.aspx.vb
index bfa0a695d..24a9d6da5 100644
--- a/Contabilidad/RegPrePoliza1.aspx.vb
+++ b/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"
diff --git a/Contabilidad/RegPrePolizaS.aspx.vb b/Contabilidad/RegPrePolizaS.aspx.vb
index cfa135354..2c17d3d82 100644
--- a/Contabilidad/RegPrePolizaS.aspx.vb
+++ b/Contabilidad/RegPrePolizaS.aspx.vb
@@ -853,7 +853,21 @@ Partial Class ContabilidadC_RegPrePolizaS
End If
Next
- 'El movimiento 2 es el de Pago
+ 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
If ObjMov.ContabilizarPrePoliza(CvePrePoliza, UsuarioActual.CveUsuario, UsuarioActual.Empresa) 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"
diff --git a/Global.asax b/Global.asax
index 857349e12..f095b7118 100644
--- a/Global.asax
+++ b/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