diff --git a/Bancos/Devoluciones.aspx.cs b/Bancos/Devoluciones.aspx.cs index 3155be9f3..d9521500b 100644 --- a/Bancos/Devoluciones.aspx.cs +++ b/Bancos/Devoluciones.aspx.cs @@ -356,8 +356,7 @@ public partial class Bancos_Devoluciones : ClsPaginas int CveTipoPoliza = 1;// tipo ingreso int CvePrePoliza = 0; int CveMoneda = get_GlobalDTBancosCuentas(-1, CveEmpresa: UsuarioActual.CveEmpresa).FiltroPrimeroValor("CveMoneda", $"CveEmpresa = {UsuarioActual.CveEmpresa} AND CveCuenta = {DdlCuenta.SelectedValue.ToEntero()}").ToEntero(); - int FolioFijo = 0; - int IDPoliza = 0; + int FolioFijo = 0; int cveProveedor = (DdlProveedores.SelectedValue.ToEntero() > 0) ? DdlProveedores.SelectedValue.ToEntero() : -1; int cvePersonal = (DdlPersonal.SelectedValue.ToEntero() > 0) ? DdlPersonal.SelectedValue.ToEntero() : -1; int cveCliente = (DdlCliente.SelectedValue.ToEntero() > 0) ? DdlCliente.SelectedValue.ToEntero() : -1; @@ -567,28 +566,15 @@ public partial class Bancos_Devoluciones : ClsPaginas } //VALIDA QUE CUADRE LA PREPOLIZA - if (ObjMov.ValidacionPrePolizaCuadre(CvePrePoliza, -1)) + Usuario UA = UsuarioActual; + if (ObjMov.ValidacionesPrePoliza(CvePrePoliza, ref UA)) { if (ObjMov.ValorPolizaDescuadre > 0) { MsgError = ObjMov.MensajePolizaDescuadre; ModExtensiones.GuardaLogAD($"Bancos/IE DEVOLUCIONES | Error:{ObjMov.MensajePolizaDescuadre} Diferencia:{ObjMov.ValorDiferencia} | CvePrePoliza:{CvePrePoliza}", "LogPrePolizas"); } - } - - //CONTABILIZA - if (UsuarioActual.Empresa.Funcionalidad(200).Equals("1") && MsgError.Equals("")) - { - if (ObjMov.ContabilizarPrePoliza(CvePrePoliza, UsuarioActual.CveUsuario, UsuarioActual.Empresa)) - { - IDPoliza = ObjMov.ContaIdPoliza; - } - else - { - Alert("Ocurrio un error al contabilizar, pongase en contacto con Soporte Técnico", TipoMensaje.MsgError); - } - } - + } if (MsgError.Equals("")) { if (Msg.ToString().Equals("")) diff --git a/Bancos/IE.aspx.vb b/Bancos/IE.aspx.vb index b1442d461..81155906e 100644 --- a/Bancos/IE.aspx.vb +++ b/Bancos/IE.aspx.vb @@ -2856,24 +2856,6 @@ Partial Class Bancos_IE End If End If - - 'El movimiento 1 es el de Venta - - 'Conta ContPAQ - If UsuarioActual.Empresa.Funcionalidad(200) = "1" AndAlso MsgError = "" Then - Dim AutoConta As Boolean = True - - If AutoConta Then - If ObjMov.ContabilizarPrePoliza(CvePrePoliza, UsuarioActual.CveUsuario, UsuarioActual.Empresa) Then - IDPoliza = ObjMov.ContaIdPoliza - Else - Alert("Ocurrio un error al contabilizar, pongase en contacto con Soporte Técnico", TipoMensaje.MsgError) - MsgError = "Error al contabilizar." - End If - End If - - End If - If MsgError = "" Then 'IMPRIME CHEQUE 'GeneraChequePDF(CveIE, UsuarioActual.Empresa, IDPoliza) diff --git a/Bancos/PagoAcreedor.aspx.cs b/Bancos/PagoAcreedor.aspx.cs index 42b3d4f01..52c647ae7 100644 --- a/Bancos/PagoAcreedor.aspx.cs +++ b/Bancos/PagoAcreedor.aspx.cs @@ -382,28 +382,15 @@ public partial class Bancos_PagoAcreedor : ClsPaginas } //VALIDA QUE CUADRE LA PREPOLIZA - if (MsgError == "" && ObjMov.ValidacionPrePolizaCuadre(CvePrePoliza, 5)) + Usuario UA = UsuarioActual; + if (MsgError == "" && ObjMov.ValidacionesPrePoliza(CvePrePoliza, ref UA,Opcion:5)) { if (ObjMov.ValorPolizaDescuadre > 0) { MsgError = ObjMov.MensajePolizaDescuadre; ModExtensiones.GuardaLogAD($"Bancos/IE PAGO ACREEDOR | Error:{ObjMov.MensajePolizaDescuadre} Diferencia:{ObjMov.ValorDiferencia} | CvePrePoliza:{CvePrePoliza}", "LogPrePolizas"); } - } - - //CONTABILIZA - if (UsuarioActual.Empresa.Funcionalidad(200).Equals("1") && MsgError.Equals("")) - { - - if (ObjMov.ContabilizarPrePoliza(CvePrePoliza, UsuarioActual.CveUsuario, UsuarioActual.Empresa)) - { - IDPoliza = ObjMov.ContaIdPoliza; - } - else - { - Alert("Ocurrio un error al contabilizar, pongase en contacto con Soporte Técnico", TipoMensaje.MsgError); - } - } + } if (MsgError.Equals("")) { @@ -617,27 +604,15 @@ public partial class Bancos_PagoAcreedor : ClsPaginas } //VALIDA QUE CUADRE LA POLIZA - if (ObjMov.ValidacionPrePolizaCuadre(CvePrePoliza, 5)) + Usuario UA = UsuarioActual; + if (MsgError == "" && ObjMov.ValidacionesPrePoliza(CvePrePoliza, ref UA, Opcion: 5)) { if (ObjMov.ValorPolizaDescuadre > 0) { MsgError = ObjMov.MensajePolizaDescuadre; ModExtensiones.GuardaLogAD($"Bancos/IE PAGO ACREEDOR | Error:{ObjMov.MensajePolizaDescuadre} Diferencia:{ObjMov.ValorDiferencia} | CvePrePoliza:{CvePrePoliza}", "LogPrePolizas"); } - } - - //CONTABILIZA - if (UsuarioActual.Empresa.Funcionalidad(200).Equals("1") && MsgError.Equals("")) - { - if (ObjMov.ContabilizarPrePoliza(CvePrePoliza, UsuarioActual.CveUsuario, UsuarioActual.Empresa)) - { - IDPoliza = ObjMov.ContaIdPoliza; - } - else - { - Alert("Ocurrio un error al contabilizar, pongase en contacto con Soporte Técnico", TipoMensaje.MsgError); - } - } + } if (MsgError.Equals("")) { diff --git a/Bancos/PagoDeudor.aspx.cs b/Bancos/PagoDeudor.aspx.cs index fe400ea7b..020ac979b 100644 --- a/Bancos/PagoDeudor.aspx.cs +++ b/Bancos/PagoDeudor.aspx.cs @@ -308,25 +308,7 @@ public partial class Bancos_PagoDeudor : ClsPaginas $"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; - - //if (AutoConta && MsgError.Equals("")) - //{ - // //JJMQ:20190103: Cambio la siguiente linea porque esta validando siempre una complementaria aunque el movto sea dlls - // //Y se valida la moneda con el siguiente IF - - // if (ObjMov.ContabilizarPrePoliza(CvePrePoliza, UsuarioActual.CveUsuario, UsuarioActual.Empresa)) - // { - // IDPoliza = ObjMov.ContaIdPoliza; - // } - // else - // { - // Alert("Ocurrio un error al contabilizar, pongase en contacto con Soporte Técnico", TipoMensaje.MsgError); - // } - //} - + if (MsgError.Equals("")) { if (Msg.ToString().Equals("")) @@ -686,23 +668,7 @@ public partial class Bancos_PagoDeudor : ClsPaginas 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; - - //if (AutoConta && MsgError.Equals("")) - //{ - // if (ObjMov.ContabilizarPrePoliza(CvePrePoliza, UsuarioActual.CveUsuario, UsuarioActual.Empresa)) - // { - // IDPoliza = ObjMov.ContaIdPoliza; - // } - // else - // { - // Alert("Ocurrio un error al contabilizar, pongase en contacto con Soporte Técnico", TipoMensaje.MsgError); - // } - //} + } } else { diff --git a/Bancos/PolizaCheque.aspx.vb b/Bancos/PolizaCheque.aspx.vb index 7fda562fd..c54a4ae23 100644 --- a/Bancos/PolizaCheque.aspx.vb +++ b/Bancos/PolizaCheque.aspx.vb @@ -861,19 +861,6 @@ 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 ObjMov.ContabilizarPrePoliza(CvePrePoliza, UsuarioActual.CveUsuario, UsuarioActual.Empresa) Then - 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 - - End If - - If MsgError = "" Then ObjIE.Commit() diff --git a/Bancos/PrestamoPersonal.aspx.cs b/Bancos/PrestamoPersonal.aspx.cs index 00075eb97..0583bf6d1 100644 --- a/Bancos/PrestamoPersonal.aspx.cs +++ b/Bancos/PrestamoPersonal.aspx.cs @@ -315,30 +315,18 @@ public partial class Bancos_PrestamoPersonal : ClsPaginas else { MsgError = "No se pudo insertar la póliza"; - } - - // VALIDA QUE CUADRE LA PREPOLIZA - if (ObjMov.ValidacionPrePolizaCuadre(CvePrePoliza, 5)) + } + + // VALIDA QUE CUADRE LA PREPOLIZA + Usuario UA = UsuarioActual; + if (MsgError == "" && ObjMov.ValidacionesPrePoliza(CvePrePoliza, ref UA, Opcion: 5)) { if (ObjMov.ValorPolizaDescuadre > 0) { MsgError = ObjMov.MensajePolizaDescuadre; ModExtensiones.GuardaLogAD($"Bancos/IE PAGO ACREEDOR | Error:{ObjMov.MensajePolizaDescuadre} Diferencia:{ObjMov.ValorDiferencia} | CvePrePoliza:{CvePrePoliza}", "LogPrePolizas"); } - } - - //CONTABILIZA - if (UsuarioActual.Empresa.Funcionalidad(200).Equals("1") && MsgError.Equals("")) - { - if (ObjMov.ContabilizarPrePoliza(CvePrePoliza, UsuarioActual.CveUsuario, UsuarioActual.Empresa)) - { - IDPoliza = ObjMov.ContaIdPoliza; - } - else - { - Alert("Ocurrio un error al contabilizar, pongase en contacto con Soporte Técnico", TipoMensaje.MsgError); - } - } + } if (MsgError.Equals("")) { @@ -593,30 +581,18 @@ public partial class Bancos_PrestamoPersonal : ClsPaginas else { MsgError = "No se pudo insertar la póliza"; - } - - //VALIDA QUE CUADRE LA POLIZA - if (ObjMov.ValidacionPrePolizaCuadre(CvePrePoliza, 5)) + } + + //VALIDA QUE CUADRE LA POLIZA + Usuario UA = UsuarioActual; + if (MsgError == "" && ObjMov.ValidacionesPrePoliza(CvePrePoliza, ref UA, Opcion: 5)) { if (ObjMov.ValorPolizaDescuadre > 0) { MsgError = ObjMov.MensajePolizaDescuadre; ModExtensiones.GuardaLogAD($"Bancos/IE PAGO ACREEDOR | Error:{ObjMov.MensajePolizaDescuadre} Diferencia:{ObjMov.ValorDiferencia} | CvePrePoliza:{CvePrePoliza}", "LogPrePolizas"); } - } - - //CONTABILIZA - if (UsuarioActual.Empresa.Funcionalidad(200).Equals("1") && MsgError.Equals("")) - { - if (ObjMov.ContabilizarPrePoliza(CvePrePoliza, UsuarioActual.CveUsuario, UsuarioActual.Empresa)) - { - IDPoliza = ObjMov.ContaIdPoliza; - } - else - { - Alert("Ocurrio un error al contabilizar, pongase en contacto con Soporte Técnico", TipoMensaje.MsgError); - } - } + } if (MsgError.Equals("")) { diff --git a/Bancos/ProductosFinancieros.aspx.vb b/Bancos/ProductosFinancieros.aspx.vb index 142179554..4836de357 100644 --- a/Bancos/ProductosFinancieros.aspx.vb +++ b/Bancos/ProductosFinancieros.aspx.vb @@ -366,25 +366,7 @@ Partial Class Bancos_ProductosFinancieros If Not ObjMov.ValidacionesPrePoliza(CvePrePoliza, UsuarioActual, Opcion:=4) Then ErrorTransaccion = True End If - - 'Por el momento no hay movimiento para estas plantillas y no debe entrar aqui - If UsuarioActual.Empresa.Funcionalidad(200).ToEntero > 0 And Not ErrorTransaccion Then - If idCuentaContabilizacion > 0 Then - If ObjMov.ContabilizarPrePoliza(CvePrePoliza, UsuarioActual.CveUsuario, UsuarioActual.Empresa) Then - Alert(alertaContabilizacion, ModExtensiones.TipoMensaje.MsgInformacion) - Else - Alert("Ocurrio un error al contabilizar, pongase en contacto con Soporte Técnico") - End If - Else - Alert(String.Format("No se puede contabilizar la Prepoliza debido a que las siguientes cuentas son invalidas: {0}", CuentasContablesInvalidas)) - End If - End If - - End If - - - Else ErrorTransaccion = True End If diff --git a/Bancos/ProveedoresAbonar.aspx.vb b/Bancos/ProveedoresAbonar.aspx.vb index 23f8c212d..9f7dd2e45 100644 --- a/Bancos/ProveedoresAbonar.aspx.vb +++ b/Bancos/ProveedoresAbonar.aspx.vb @@ -841,23 +841,12 @@ Partial Class Bancos_ProveedoresAbonar End If End If - If MsgError = "" AndAlso ObjMov.ValidacionPrePolizaCuadre(CvePrePoliza, 5) Then + If MsgError = "" AndAlso ObjMov.ValidacionesPrePoliza(CvePrePoliza, UsuarioActual, Opcion:=5) Then If ObjMov.ValorPolizaDescuadre > 0 Then MsgError = ObjMov.MensajePolizaDescuadre + " " + ObjMov.ValorDiferencia GuardaLogAD($"Bancos/ProveedoresAbonar | Error:{ObjMov.MensajePolizaDescuadre} Diferencia:{ObjMov.ValorDiferencia} | CvePrePoliza:{CvePrePoliza}", "LogPrePolizas") End If End If - - 'Conta ContPAQ - If UsuarioActual.Empresa.Funcionalidad(200) = "1" AndAlso MsgError = "" Then - 'If ObjMov.ContabilizarPrePoliza(CvePrePoliza, UsuarioActual.CveUsuario, UsuarioActual.Empresa, ObjConta:=ObjConta) Then - If ObjMov.ValidacionesPrePoliza(CvePrePoliza, UsuarioActual, ObjConta:=ObjConta) Then - IDPoliza = ObjMov.ContaIdPoliza - Else - Alert("Ocurrio un error al contabilizar, pongase en contacto con Soporte Técnico", TipoMensaje.MsgError) - MsgError = "Ocurrio un error al contabilizar, pongase en contacto con Soporte Técnico" - End If - End If Else MsgError = "No se pudo insertar la póliza" End If diff --git a/Bancos/RepEgresosSinComprobante.aspx.vb b/Bancos/RepEgresosSinComprobante.aspx.vb index decc73eb3..4c564e10d 100644 --- a/Bancos/RepEgresosSinComprobante.aspx.vb +++ b/Bancos/RepEgresosSinComprobante.aspx.vb @@ -333,12 +333,6 @@ Partial Class Bancos_RepEgresosSinComprobante Exit For End If - If UsuarioActual.Empresa.Funcionalidad(200) = "1" Then - If Not ObjConta.ContabilizarPrePoliza(CvePrePoliza, UsuarioActual.CveUsuario, UsuarioActual.Empresa) Then - Alert("Ocurrio un Error al contabilizar, pongase en contacto con Soporte Técnico", TipoMensaje.MsgError) - End If - End If - End If Next Catch ex As Exception diff --git a/Bancos/Transferencias.aspx.vb b/Bancos/Transferencias.aspx.vb index 16b0c62be..7134865b9 100644 --- a/Bancos/Transferencias.aspx.vb +++ b/Bancos/Transferencias.aspx.vb @@ -425,18 +425,6 @@ Partial Class Bancos_Transferencias If MsgError = "" Then - 'Conta ContPAQ - If UsuarioActual.Empresa.Funcionalidad(200) = "1" And MsgError = "" Then - - If ObjMov.ContabilizarPrePoliza(CvePrePoliza, UsuarioActual.CveUsuario, UsuarioActual.Empresa, Fecha:=TxtFechaDocumento.Text.ToDate) Then - If ObjMov.ContaIdPoliza > 0 Then - AlertaGlobal.AppendFormat("

Ver Póliza", ObjMov.ContaIdPoliza) - End If - Else - MsgError = "Ocurrio un error al contabilizar, pongase en contacto con Soporte Técnico" - End If - End If - If CveIE > 0 Then AlertaGlobal.AppendFormat("

Movimiento: {1}", CveIE, FolioOrigen) End If diff --git a/Compras/Compras.aspx.vb b/Compras/Compras.aspx.vb index 40c9cab95..3f960cd6c 100644 --- a/Compras/Compras.aspx.vb +++ b/Compras/Compras.aspx.vb @@ -9129,15 +9129,6 @@ Partial Class Compras_Compras Next End If - ''VALIDAR PREPOLIZA DE COMPRA - 'If ObjConta.ValidacionPrePolizaCuadre(CvePrePoliza, 4) Then - ' If ObjConta.ValorPolizaDescuadre > 0 Then - ' ErrorPrepoliza = True - ' Alert("Error en validacion de prepoliza cuadre", TipoMensaje.MsgAdvertencia) - ' GuardaLogAD($"Compras/Compras-Actualizar | Error:{ObjConta.MensajePolizaDescuadre} Diferencia:{ObjConta.ValorDiferencia} | CvePrePoliza:{CvePrePoliza}", "LogPrePolizas") - ' End If - 'End If - If Not ErrorPrepoliza Then Retorno = True Else diff --git a/Compras/ReembolsosComprobaciones.aspx.vb b/Compras/ReembolsosComprobaciones.aspx.vb index cfb6c0604..aec735a45 100644 --- a/Compras/ReembolsosComprobaciones.aspx.vb +++ b/Compras/ReembolsosComprobaciones.aspx.vb @@ -789,38 +789,20 @@ Partial Class Compras_ReembolsosComprobaciones Dim AutoConta As Boolean = UsuarioActual.Empresa.Funcionalidad(200) = "1" - If MsgError = "" AndAlso ObjMov.ValidacionPrePolizaCuadre(CvePrePolizaPago, 1, AutoConta:=AutoConta) Then + If MsgError = "" AndAlso ObjMov.ValidacionesPrePoliza(CvePrePolizaPago, UsuarioActual, Opcion:=1, AutoConta:=AutoConta) Then If ObjMov.ValorPolizaDescuadre > 0 Then GuardaLogAD($"Compras/ReembolsosComprobaciones | Error:{ObjMov.MensajePolizaDescuadre} Diferencia:{ObjMov.ValorDiferencia} | CvePrePoliza:{CvePrePolizaPago}", "LogPrePolizas") MsgError = ObjMov.MensajePolizaDescuadre End If End If - If MsgError = "" AndAlso CvePrePolizaExcedente > 0 AndAlso ObjMov.ValidacionPrePolizaCuadre(CvePrePolizaExcedente, 1, AutoConta:=AutoConta) Then + If MsgError = "" AndAlso CvePrePolizaExcedente > 0 AndAlso ObjMov.ValidacionesPrePoliza(CvePrePolizaExcedente, UsuarioActual, Opcion:=1, AutoConta:=AutoConta) Then If ObjMov.ValorPolizaDescuadre > 0 Then GuardaLogAD($"Compras/ReembolsosComprobaciones | Error:{ObjMov.MensajePolizaDescuadre} Diferencia:{ObjMov.ValorDiferencia} | CvePrePoliza:{CvePrePolizaExcedente}", "LogPrePolizas") MsgError = ObjMov.MensajePolizaDescuadre End If End If - If MsgError.Trim = "" Then - - 'Conta ContPAQ AUTOMATICA - If UsuarioActual.Empresa.Funcionalidad(200) = "1" AndAlso MsgError.Trim = "" Then - If CvePrePolizaIERegistrado > 0 Then - If Not ObjMov.ContabilizarPrePoliza(CvePrePolizaIERegistrado, UsuarioActual.CveUsuario, UsuarioActual.Empresa) Then - MsgError = "Ocurrio un Error al contabilizar, pongase en contacto con Soporte Técnico" - End If - End If - - If ChkChequeExcedente.Checked Then - If Not ObjMov.ContabilizarPrePoliza(CvePrePolizaIERegistrado, UsuarioActual.CveUsuario, UsuarioActual.Empresa) Then - MsgError = "Ocurrio un Error al contabilizar, pongase en contacto con Soporte Técnico" - End If - End If - End If - End If - Else MsgError = "No se pudo insertar el encabezado" End If diff --git a/Compras/RepNotasCredito.aspx.vb b/Compras/RepNotasCredito.aspx.vb index 02a971121..7647c7aa0 100644 --- a/Compras/RepNotasCredito.aspx.vb +++ b/Compras/RepNotasCredito.aspx.vb @@ -129,7 +129,7 @@ Partial Class Compras_RepNotasCredito Dim TCCompra As Decimal = 0 Dim Concepto As String = TxtConcepto.Text Dim UsaComplementaria As Boolean = UsuarioActual.CveEmpresa.Contiene(119) - Dim MensajeAlert = New StringBuilder + Dim MensajeAlert As New StringBuilder CvePrePoliza = ObjConta.AddPrePolizas("Compras/RepNotasCredito", 103, 0, 0, 1, TxtFechaSaldar.Text.ToDate, Concepto, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa) @@ -139,7 +139,7 @@ Partial Class Compras_RepNotasCredito ImporteMN = gr.DataKey("Saldo").ToDecimal.RoundSQL TCCompra = gr.DataKey("TipoCambio").ToDecimal CveMoneda = gr.DataKey("CveMoneda").ToEntero - Dim CveTipoConcepto = gr.DataKey("CveTipoConcepto").ToEntero + Dim CveTipoConcepto As Integer = gr.DataKey("CveTipoConcepto").ToEntero If CveMoneda > 1 Then ImporteMN = (gr.DataKey("Saldo").ToDecimal * TCCompra).RoundSQL @@ -188,22 +188,13 @@ Partial Class Compras_RepNotasCredito Next If MsgError = "" Then - If ObjConta.ValidacionPrePolizaCuadre(CvePrePoliza, 5) Then + If ObjConta.ValidacionesPrePoliza(CvePrePoliza, UsuarioActual, Opcion:=5) Then If ObjConta.ValorPolizaDescuadre > 0 Then MsgError = ObjConta.MensajePolizaDescuadre GuardaLogAD($"Ventas/Ventas-ProcesoPrePolizas | Error:{ObjConta.MensajePolizaDescuadre} Diferencia:{ObjConta.ValorDiferencia} | CvePrePoliza:{CvePrePoliza}", "LogPrePolizas") End If End If - If UsuarioActual.Empresa.Funcionalidad(200) = "1" AndAlso MsgError = "" Then - If ObjConta.ContabilizarPrePoliza(CvePrePoliza, UsuarioActual.CveUsuario, UsuarioActual.Empresa) Then - If MensajeAlert.ToString = "" Then - MensajeAlert.AppendFormat("Los siguientes movimientos fueron saldados correctamente:
") - End If - MensajeAlert.AppendFormat("", ObjConta.ContaIdPoliza, ObjConta.ContaFolio) - End If - End If - If MsgError = "" Then ObjConta.Commit() If MensajeAlert.ToString <> "" Then diff --git a/Compras/RepRembolsoComprobaciones.aspx.vb b/Compras/RepRembolsoComprobaciones.aspx.vb index 4f611595d..98cbd2dd3 100644 --- a/Compras/RepRembolsoComprobaciones.aspx.vb +++ b/Compras/RepRembolsoComprobaciones.aspx.vb @@ -160,7 +160,7 @@ Partial Class Compras_RepRembolsoComprobaciones End If - If ObjMov.ValidacionPrePolizaCuadre(CvePrePoliza, -1) Then + If ObjMov.ValidacionesPrePoliza(CvePrePoliza, UsuarioActual) Then If ObjMov.ValorPolizaDescuadre > 0 Then GuardaLogAD($"Compras/RepRembolsoComprobaciones - Unificar | Error:{ObjMov.MensajePolizaDescuadre} Diferencia:{ObjMov.ValorDiferencia} | CvePrePoliza:{CvePrePoliza}", "LogPrePolizas") Alert(ObjMov.MensajePolizaDescuadre, TipoMensaje.MsgError) @@ -171,25 +171,11 @@ Partial Class Compras_RepRembolsoComprobaciones If Not TieneError Then Msg.AppendFormat("Se unificaron todas las compras con éxito") End If - - If UsuarioActual.Empresa.Funcionalidad(200).ToString = "1" AndAlso Not TieneError Then - ObjAC = New ClsContPAQi(UsuarioActual.Empresa) - ObjAC.IniciaTransacSQL() - - If Not TieneError Then - If Not ObjMov.ContabilizarPrePoliza(CvePrePoliza, UsuarioActual.CveUsuario, UsuarioActual.Empresa, ObjConta:=ObjAC) Then - TieneError = True - Alert($"Ocurrio un error al contabilizar {ObjMov.AlertaMensaje}", TipoMensaje.MsgAdvertencia) - Else - IdPoliza = ObjMov.ContaIdPoliza - End If - End If - - If IdPoliza > 0 AndAlso Not TieneError Then - Msg.AppendFormat("

Ver Póliza", IdPoliza) - End If - + IdPoliza = ObjMov.ContaIdPoliza + If IdPoliza > 0 AndAlso Not TieneError Then + Msg.AppendFormat("

Ver Póliza", IdPoliza) End If + Catch ex As Exception TieneError = True OnError("Ocurrió un error al unificar las compras", ex) diff --git a/Contabilidad/PopUpAuxiliar.aspx.vb b/Contabilidad/PopUpAuxiliar.aspx.vb index 02ec5fce4..9cdaaff03 100644 --- a/Contabilidad/PopUpAuxiliar.aspx.vb +++ b/Contabilidad/PopUpAuxiliar.aspx.vb @@ -277,7 +277,7 @@ Partial Class PopUpAuxiliar TieneError = True End If - If Not TieneError AndAlso Conta.ValidacionPrePolizaCuadre(ClavePrePoliza, -1) Then + If Not TieneError AndAlso Conta.ValidacionesPrePoliza(ClavePrePoliza, UsuarioActual) Then If Conta.ValorPolizaDescuadre > 0 Then TieneError = True End If diff --git a/Contabilidad/RegPrePoliza.aspx.vb b/Contabilidad/RegPrePoliza.aspx.vb index 222bc4852..a9832af7d 100644 --- a/Contabilidad/RegPrePoliza.aspx.vb +++ b/Contabilidad/RegPrePoliza.aspx.vb @@ -1100,29 +1100,29 @@ Partial Class ContabilidadC_RegPrePoliza ' End If 'End If - If ObjMov.ValidacionPrePolizaCuadre(CvePrePoliza, 1) Then + If ObjMov.ValidacionesPrePoliza(CvePrePoliza, UsuarioActual) 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 MsgError = "" Or UsuarioActual.Empresa.Funcionalidad(200) = "1" And MsgError = "" Then - If idCuentaContabilizacion > 0 Then - If ObjMov.ContabilizarPrePoliza(CvePrePoliza, UsuarioActual.CveUsuario, UsuarioActual.Empresa) Then + ''El movimiento 2 es el de Pago + 'If ChkAutoConta.Checked AndAlso MsgError = "" Or UsuarioActual.Empresa.Funcionalidad(200) = "1" And MsgError = "" Then + ' If idCuentaContabilizacion > 0 Then + ' If ObjMov.ContabilizarPrePoliza(CvePrePoliza, UsuarioActual.CveUsuario, UsuarioActual.Empresa) Then - 'MENSAJE PRINCIPAL - MensajeAlert.AppendFormat("

Folio de Póliza: {1}", ObjMov.ContaIdPoliza, ObjMov.ContaFolio) - MensajeAlert.AppendFormat("

Prepóliza: {1}", CvePrePoliza, ObjMov.ContaFolio) - 'Alert(MensajeAlert.Tostring(), ModExtensiones.TipoMensaje.MsgInformacion) - Else - Alert("Ocurrio un error al contabilizar, pongase en contacto con Soporte Técnico") - End If - Else - Alert("No se puede contabilizar la Prepoliza debido a que una o mas cuentas son inválidas") - End If - End If + ' 'MENSAJE PRINCIPAL + ' MensajeAlert.AppendFormat("

Folio de Póliza: {1}", ObjMov.ContaIdPoliza, ObjMov.ContaFolio) + ' MensajeAlert.AppendFormat("

Prepóliza: {1}", CvePrePoliza, ObjMov.ContaFolio) + ' 'Alert(MensajeAlert.Tostring(), ModExtensiones.TipoMensaje.MsgInformacion) + ' Else + ' Alert("Ocurrio un error al contabilizar, pongase en contacto con Soporte Técnico") + ' End If + ' Else + ' Alert("No se puede contabilizar la Prepoliza debido a que una o mas cuentas son inválidas") + ' 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 66f677d93..04a1d755f 100644 --- a/Contabilidad/RegPrePolizaS.aspx.vb +++ b/Contabilidad/RegPrePolizaS.aspx.vb @@ -2915,7 +2915,7 @@ Partial Class ContabilidadC_RegPrePolizaS End If Next - If MsgError = "" AndAlso ObjMov.ValidacionPrePolizaCuadre(CvePrePoliza, 1) Then + If MsgError = "" AndAlso ObjMov.ValidacionesPrePoliza(CvePrePoliza, UsuarioActual, Opcion:=1) Then If ObjMov.ValorPolizaDescuadre > 0 Then GuardaLogAD($"Contabilidad/RegPrePolizas | Error:{ObjMov.MensajePolizaDescuadre} Diferencia:{ObjMov.ValorDiferencia} | CvePrePoliza:{CvePrePoliza}", "LogPrePolizas") MsgError = ObjMov.MensajePolizaDescuadre diff --git a/Contabilidad/RepAnexoCatalogo.aspx.vb b/Contabilidad/RepAnexoCatalogo.aspx.vb index e3dd29e2a..1ce96c44a 100644 --- a/Contabilidad/RepAnexoCatalogo.aspx.vb +++ b/Contabilidad/RepAnexoCatalogo.aspx.vb @@ -71,6 +71,10 @@ Partial Class AC_RepAnexoCatalogo Protected Sub Page_Load(sender As Object, e As EventArgs) Handles Me.Load If Not Page.IsPostBack Then + If UsuarioActual.Empresa.TipoContabilidad = 1 Then + Response.Redirect($"/Contabilidad2/RepAnexoCatalogo.aspx") + End If + If UsuarioActual.Empresa.UsaContabilidad Or UsuarioActual.Empresa.UsaAC Then InicializaValores() CargaURLParametros() diff --git a/Inventarios/Consignaciones.aspx.vb b/Inventarios/Consignaciones.aspx.vb index e211666af..0f32c6301 100644 --- a/Inventarios/Consignaciones.aspx.vb +++ b/Inventarios/Consignaciones.aspx.vb @@ -839,7 +839,7 @@ Partial Class Inventarios_Consignaciones ErrorMovInv = True End If - If ObjConta.ValidacionPrePolizaCuadre(CvePrePoliza, 6) Then + If ObjConta.ValidacionesPrePoliza(CvePrePoliza, UsuarioActual, Opcion:=6) Then If ObjConta.ValorPolizaDescuadre > 0 Then GuardaLogAD($"Consig | Error:{ObjConta.MensajePolizaDescuadre} Diferencia:{ObjConta.ValorDiferencia} | CvePrePoliza:{CvePrePoliza}", "LogPrePolizas") ErrorMovInv = True @@ -1017,7 +1017,7 @@ Partial Class Inventarios_Consignaciones ErrorMovInv = True End If - If ObjConta.ValidacionPrePolizaCuadre(CvePrePoliza, 6) Then + If ObjConta.ValidacionesPrePoliza(CvePrePoliza, UsuarioActual, Opcion:=6) Then If ObjConta.ValorPolizaDescuadre > 0 Then GuardaLogAD($"Consig | Error:{ObjConta.MensajePolizaDescuadre} Diferencia:{ObjConta.ValorDiferencia} | CvePrePoliza:{CvePrePoliza}", "LogPrePolizas") ErrorMovInv = True @@ -1569,7 +1569,7 @@ Partial Class Inventarios_Consignaciones ErrorMovInv = True End If - If ObjConta.ValidacionPrePolizaCuadre(CvePrePoliza, 6) Then + If ObjConta.ValidacionesPrePoliza(CvePrePoliza, UsuarioActual, Opcion:=6) Then If ObjConta.ValorPolizaDescuadre > 0 Then GuardaLogAD($"Consig | Error:{ObjConta.MensajePolizaDescuadre} Diferencia:{ObjConta.ValorDiferencia} | CvePrePoliza:{CvePrePoliza}", "LogPrePolizas") ErrorMovInv = True diff --git a/Inventarios/EntradasSalidas.aspx.vb b/Inventarios/EntradasSalidas.aspx.vb index decd0e02d..91c9a70b6 100644 --- a/Inventarios/EntradasSalidas.aspx.vb +++ b/Inventarios/EntradasSalidas.aspx.vb @@ -2002,15 +2002,6 @@ Partial Class Inventarios_EntradasSalidas 'End If End If - 'If ObjConta.ValidacionPrePolizaCuadre(CvePrePoliza, OpcionPrePoliza) Then - ' If ObjConta.ValorPolizaDescuadre > 0 Then - ' ErrorMovInv = True - ' GuardaLogAD($"Inv/ES | Error:{ObjConta.MensajePolizaDescuadre} Diferencia:{ObjConta.ValorDiferencia} | CvePrePoliza:{CvePrePoliza}", "LogPrePolizas") - ' Alert("No se pudo validar la prepoliza de cuadre.", TipoMensaje.MsgAdvertencia) - ' End If - 'Else - ' Alert("No se pudo validar la prepoliza de cuadre.", TipoMensaje.MsgAdvertencia) - 'End If End If '------------------------------------------------ @@ -4639,14 +4630,6 @@ Partial Class Inventarios_EntradasSalidas ' ErrorPrepolizaDescuadre = True 'End If End If - - 'If ObjConta.ValidacionPrePolizaCuadre(CvePrePoliza, -1) Then - ' ObjConta.GetPrePolizasDetalle(CvePrePoliza, UsuarioActual.CveEmpresa) - ' If ObjConta.ValorPolizaDescuadre > 0 Then - ' ErrorMovInv = True - ' Mensaje = "Ocurrió un error al validar los movimientos contables" - ' End If - 'End If End If Dim RetornoVirtual As MMovimientoVirtual = Nothing diff --git a/Inventarios/PaquetesArmadoDesarmado.aspx.vb b/Inventarios/PaquetesArmadoDesarmado.aspx.vb index 9299a4f7b..65355c496 100644 --- a/Inventarios/PaquetesArmadoDesarmado.aspx.vb +++ b/Inventarios/PaquetesArmadoDesarmado.aspx.vb @@ -619,8 +619,7 @@ Partial Class Inventarios_PaquetesArmadoDesarmado TieneError = True End If - - If ObjConta.ValidacionPrePolizaCuadre(CvePrePoliza, 6) Then + If ObjConta.ValidacionesPrePoliza(CvePrePoliza, UsuarioActual, Opcion:=6) Then If ObjConta.ValorPolizaDescuadre > 0 Then GuardaLogAD($"Inventarios/RecepcionAlmacen-PPCompOC | Error:{ObjConta.MensajePolizaDescuadre} Diferencia:{ObjConta.ValorDiferencia} | CvePrePoliza:{CvePrePoliza}", "LogPrePolizas") TieneError = True @@ -743,8 +742,7 @@ Partial Class Inventarios_PaquetesArmadoDesarmado TieneError = True End If - - If ObjConta.ValidacionPrePolizaCuadre(CvePrePoliza, 6) Then + If ObjConta.ValidacionesPrePoliza(CvePrePoliza, UsuarioActual, Opcion:=6) Then If ObjConta.ValorPolizaDescuadre > 0 Then GuardaLogAD($"Inventarios/RecepcionAlmacen-PPCompOC | Error:{ObjConta.MensajePolizaDescuadre} Diferencia:{ObjConta.ValorDiferencia} | CvePrePoliza:{CvePrePoliza}", "LogPrePolizas") TieneError = True @@ -753,7 +751,6 @@ Partial Class Inventarios_PaquetesArmadoDesarmado End Select - If Not TieneError Then Dim Msg As New StringBuilder diff --git a/Inventarios/RecepcionUsados.aspx.vb b/Inventarios/RecepcionUsados.aspx.vb index ee0c1f8f5..a78ec0fb7 100644 --- a/Inventarios/RecepcionUsados.aspx.vb +++ b/Inventarios/RecepcionUsados.aspx.vb @@ -1487,7 +1487,7 @@ Partial Class Inventarios_RecepcionUsados Correcto = False End If - If ObjConta.ValidacionPrePolizaCuadre(CvePrePoliza, -1) Then + If ObjConta.ValidacionesPrePoliza(CvePrePoliza, UsuarioActual, Opcion:=-1) Then If ObjConta.ValorPolizaDescuadre > 0 Then GuardaLogAD($"Inventarios/RecepcionUsados-PPCompOC | Error:{ObjConta.MensajePolizaDescuadre} Diferencia:{ObjConta.ValorDiferencia} | CvePrePoliza:{CvePrePoliza}", "LogPrePolizas") Correcto = False @@ -3286,9 +3286,9 @@ Partial Class Inventarios_RecepcionUsados Dim CargoActual As Double = 0 Dim Row As DataRow = Nothing - Dim EsNuevo As Boolean = true + Dim EsNuevo As Boolean = True - Dim RowsAjustes = TmpDTAjustes.Select($"ConsecutivoVenta = {ConsecutivoVenta}") + Dim RowsAjustes As DataRow() = TmpDTAjustes.Select($"ConsecutivoVenta = {ConsecutivoVenta}") If RowsAjustes IsNot Nothing AndAlso RowsAjustes.Length > 0 Then Row = RowsAjustes(0) diff --git a/PortalCliente/PortalCliente.aspx.vb b/PortalCliente/PortalCliente.aspx.vb index 0000a25a2..bd3c7e951 100644 --- a/PortalCliente/PortalCliente.aspx.vb +++ b/PortalCliente/PortalCliente.aspx.vb @@ -1879,7 +1879,7 @@ Partial Class Ventas_PortalCliente End If If MsgError = "" Then - If ObjMov.ValidacionPrePolizaCuadre(CvePrePoliza, -1) Then + If ObjMov.sValidacionePrePoliza(CvePrePoliza, UsuarioActual) Then If ObjMov.ValorPolizaDescuadre > 0 Then GuardaLogAD($"Bancos/IE | Error:{ObjMov.MensajePolizaDescuadre} Diferencia:{ObjMov.ValorDiferencia} | CvePrePoliza:{CvePrePoliza}", "LogPrePolizas") End If diff --git a/Ventas/ClientesAbonar.aspx.vb b/Ventas/ClientesAbonar.aspx.vb index 87166c841..2c5749d39 100644 --- a/Ventas/ClientesAbonar.aspx.vb +++ b/Ventas/ClientesAbonar.aspx.vb @@ -2,6 +2,7 @@ 'Option Strict On Imports System.Data +Imports ADSTimbrado Imports Extensiones Partial Class Ventas_ClientesAbonar @@ -1369,17 +1370,12 @@ Partial Class Ventas_ClientesAbonar ObjFacturaDevolucion.CveEmpresa = UsuarioActual.CveEmpresa ObjFacturaDevolucion.TipoCambio = If(Me.CveMoneda = 1, 1, GlobalTipoCambio(NowADS()).FormatoNumero(4).ToDecimal()) - ObjFacturaDevolucion.ConvertirPesos = False ObjFacturaDevolucion.CveMoneda = CveMoneda ObjFacturaDevolucion.Moneda = GlobalDTMonedas.FiltroPrimeroValor("Moneda", $"CveMoneda = {CveMoneda}") ObjFacturaDevolucion.MonedaSAT = GlobalDTMonedas.FiltroPrimeroValor("AbreviaturaSAT", $"CveMoneda = {CveMoneda}") ObjFacturaDevolucion.Serie = Serie ObjFacturaDevolucion.Folio = Folio ObjFacturaDevolucion.Fecha = NowADS() - ObjFacturaDevolucion.CvePrePoliza = -1 - ObjFacturaDevolucion.CveMetodoPago = 0 - ObjFacturaDevolucion.CondicionesPago = 0 ' 0 - Contado, 1 - Credito (CHECAR) - ObjFacturaDevolucion.FormaPago = 0 ObjFacturaDevolucion.TipoDocto = "Egs" ObjFacturaDevolucion.Fecha = NowADS() @@ -1433,7 +1429,7 @@ Partial Class Ventas_ClientesAbonar ObjFacturaDevolucion.DtVentasRelacionadas.Columns.Add("CveVenta", GetType(Integer)) Dim Fol As New List(Of String) - For Each Fac In ListaVentasGenerarNC + For Each Fac As Modelos.Factura In ListaVentasGenerarNC Fol.Add(Fac.FolioFiscal) Dim RowVenta As DataRow = ObjFacturaDevolucion.DtVentasRelacionadas.NewRow @@ -1460,24 +1456,14 @@ Partial Class Ventas_ClientesAbonar End Select ObjFacturaDevolucion.FechaPago = NowADS() + Dim DtVentasNC As DataTable = InicializaDTVentasNC() - ObjFacturaDevolucion.CveCorte = -1 - 'ObjFacturaDevolucion.CveMesa = -1 - ObjFacturaDevolucion.NumeroPersonas = 0 - ObjFacturaDevolucion.CveContrato = -1 - ObjFacturaDevolucion.DescripcionContrato = "" - ObjFacturaDevolucion.CveClienteSucursal = -1 - ObjFacturaDevolucion.Entrega = "" - ObjFacturaDevolucion.CveAlmacen = -1 - - Dim DtVentasNC = InicializaDTVentasNC() - - Dim TotalImporte As Decimal = ObjFacturaDevolucion.DtDetalle.SUMD("TotalImporte") - Dim ImporteIVA As Decimal = ObjFacturaDevolucion.DtDetalle.SUMD("ImporteIVA") - Dim ImporteRetIVA As Decimal = ObjFacturaDevolucion.DtDetalle.SUMD("ImporteRetIVA") - Dim ImporteRetISR As Decimal = ObjFacturaDevolucion.DtDetalle.SUMD("ImporteRetISR") - Dim ImporteIEPS As Decimal = ObjFacturaDevolucion.DtDetalle.SUMD("ImporteIEPS") - Dim Descuento As Decimal = ObjFacturaDevolucion.DtDetalle.SUMD("Descuento") + Dim TotalImporte As Decimal = ObjFacturaDevolucion.DtDetalle.SUM("TotalImporte") + Dim ImporteIVA As Decimal = ObjFacturaDevolucion.DtDetalle.SUM("ImporteIVA") + Dim ImporteRetIVA As Decimal = ObjFacturaDevolucion.DtDetalle.SUM("ImporteRetIVA") + Dim ImporteRetISR As Decimal = ObjFacturaDevolucion.DtDetalle.SUM("ImporteRetISR") + Dim ImporteIEPS As Decimal = ObjFacturaDevolucion.DtDetalle.SUM("ImporteIEPS") + Dim Descuento As Decimal = ObjFacturaDevolucion.DtDetalle.SUM("Descuento") Dim Amortizacion As Decimal = 0 Dim Total As Decimal = (TotalImporte + ImporteIVA + ImporteIEPS) - (ImporteRetIVA + ImporteRetISR + Descuento + Amortizacion) @@ -1493,8 +1479,8 @@ Partial Class Ventas_ClientesAbonar ObjFacturaDevolucion.Total = Total ObjFacturaDevolucion.TotalOtrosConceptos = 0 - For Each Fac In ListaVentasGenerarNC - Dim Drt = DtVentasNC.NewRow + For Each Fac As Modelos.Factura In ListaVentasGenerarNC + Dim Drt As DataRow = DtVentasNC.NewRow Drt("CveVenta") = Fac.CveVenta Drt("Importe") = Fac.DescuentoProntoPago Drt("FolioFiscal") = Fac.FolioFiscal @@ -1508,7 +1494,7 @@ Partial Class Ventas_ClientesAbonar ObjFacturaDevolucion.Timbre = PreParaTimbre(ObjFacturaDevolucion, ListaVentasGenerarNC) Try - Dim Resp = ObjFacturaDevolucion.EmitirFactura(False, Transac:=SqlTransaccion) + Dim Resp As Modelos.Factura.MMensajeFactura = ObjFacturaDevolucion.EmitirFactura(False, Transac:=SqlTransaccion) Retorno.Respuesta = Resp Catch ex As Exception OnError("Ocurrió un error al guardar la NC de pronto pago", ex) @@ -1572,7 +1558,7 @@ Partial Class Ventas_ClientesAbonar Timbre.CFDIRelacionados.TipoRelacion = RowTipoRelacion("SATClaveTipoRelacion").ToString() Timbre.CFDIRelacionados.TipoRelacionTexto = RowTipoRelacion("SATTipoRelacion").ToString() - For Each Fac In ListaVentasGenerarNC + For Each Fac As Modelos.Factura In ListaVentasGenerarNC Timbre.CFDIRelacionados.UUID.Add(Fac.FolioFiscal) Next End If @@ -1601,7 +1587,7 @@ Partial Class Ventas_ClientesAbonar tPS = tPS.Replace("|", " ") If tPS.Length >= 1000 Then - Dim tPSRecortado = tPS.Remove(999, tPS.Length - 999) + Dim tPSRecortado As String = tPS.Remove(999, tPS.Length - 999) tPS = tPSRecortado End If @@ -1740,7 +1726,7 @@ Partial Class Ventas_ClientesAbonar DtImpuestos.AcceptChanges() Dim AcumuladoNC As Decimal = 0 - For Each Fac In ListaVentasGenerarNC + For Each Fac As Modelos.Factura In ListaVentasGenerarNC DtImpuestos.Merge(CargaDtImpuestosNC(Fac.CveVenta, Fac.DescuentoProntoPago), True, MissingSchemaAction.Ignore) Next @@ -2384,7 +2370,7 @@ Partial Class Ventas_ClientesAbonar MsgError = "Ocurrio un error al saldar el movimiento" End If - If ObjConta.ValidacionPrePolizaCuadre(CvePrePoliza, 5) Then + If ObjConta.ValidacionesPrePoliza(CvePrePoliza, UsuarioActual, Opcion:=5) Then If ObjConta.ValorPolizaDescuadre > 0 Then MsgError = ObjConta.MensajePolizaDescuadre + " " + ObjConta.ValorDiferencia GuardaLogAD($"Ventas/ClientesAbonar | Error:{ObjConta.MensajePolizaDescuadre} Diferencia:{ObjConta.ValorDiferencia} | CvePrePoliza:{CvePrePoliza}", "LogPrePolizas") diff --git a/Ventas/RepNCxAplicar.aspx.cs b/Ventas/RepNCxAplicar.aspx.cs index e1f32d2d0..b8153eccf 100644 --- a/Ventas/RepNCxAplicar.aspx.cs +++ b/Ventas/RepNCxAplicar.aspx.cs @@ -211,8 +211,8 @@ public partial class Ventas_RepNCxAplicar : ClsPaginas { MsgError = "Ocurrio un error al saldar el movimiento"; } - - if (ObjConta.ValidacionPrePolizaCuadre(CvePrePoliza, -1)) + Usuario UA = UsuarioActual; + if (MsgError == "" && ObjConta.ValidacionesPrePoliza(CvePrePoliza, ref UA, Opcion: -1)) { if (ObjConta.ValorPolizaDescuadre > 0) { diff --git a/Ventas/Ventas.aspx.vb b/Ventas/Ventas.aspx.vb index 439509f2b..c5c6ebba5 100644 --- a/Ventas/Ventas.aspx.vb +++ b/Ventas/Ventas.aspx.vb @@ -15835,7 +15835,7 @@ Partial Class Ventas ErrorConta = True End If - If ObjConta.ValidacionPrePolizaCuadre(CvePrePoliza, 3) Then + If ObjConta.ValidacionesPrePoliza(CvePrePoliza, UsuarioActual, 3) Then If ObjConta.ValorPolizaDescuadre > 0 Then GuardaLogAD($"Ventas/Ventas-Anticipos | Error:{ObjConta.MensajePolizaDescuadre} Diferencia:{ObjConta.ValorDiferencia} | CvePrePoliza:{CvePrePoliza}", "LogPrePolizas") ErrorConta = True @@ -21368,7 +21368,7 @@ Partial Class Ventas End If End If - If ObjConta.ValidacionPrePolizaCuadre(-1, 2, CveVenta) Then + If ObjConta.ValidacionesPrePoliza(-1, UsuarioActual, Opcion:=2, CveVenta:=CveVenta) Then If ObjConta.ValorPolizaDescuadre > 0 Then If ObjConta.ValorPolizaDescuadre = 2 Then OcurrioError = True @@ -25802,11 +25802,7 @@ Partial Class Ventas MsgError = "Ocurrio un error al saldar el movimiento" End If - 'If Descuentos > 0 AndAlso Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, Not SubtotalMovto, Descuentos, SerieFolio, 103, ConceptoPartida, FechaPago, IdCuentaContableNoDeducible, -1, CveCliente:=CveCliente, CveVenta:=CveVenta, ImporteMX:=Descuentos, CveCuenta:=-1, TipoCambio:=TCVenta, TipoCambioPago:=TCPago, CveClasificacion:=CveClasificacion, CveSubProyecto:=CveSubProyecto) Then - ' MsgError = "Ocurrio un error al saldar el movimiento" - 'End If - - If ObjConta.ValidacionPrePolizaCuadre(CvePrePoliza, 5) Then + If ObjConta.ValidacionesPrePoliza(CvePrePoliza, UsuarioActual, 5) Then If ObjConta.ValorPolizaDescuadre > 0 Then MsgError = ObjConta.MensajePolizaDescuadre + " " + ObjConta.ValorDiferencia GuardaLogAD($"Ventas/ClientesAbonar | Error:{ObjConta.MensajePolizaDescuadre} Diferencia:{ObjConta.ValorDiferencia} | CvePrePoliza:{CvePrePoliza}", "LogPrePolizas") @@ -29814,14 +29810,6 @@ Partial Class Ventas End If End If - 'If ObjConta.ValidacionPrePolizaCuadre(-1, 2, CveVenta) Then - ' If ObjConta.ValorPolizaDescuadre > 0 Then - ' If ObjConta.ValorPolizaDescuadre = 2 Then - ' OcurrioError = True - ' MensajeError = ObjConta.MensajePolizaDescuadre - ' End If - ' End If - 'End If Catch ex As Exception OcurrioError = True OnError("Ocurrió un error al guardar la cotización", ex)