diff --git a/AF/AF.aspx.vb b/AF/AF.aspx.vb index 063d14778..5db814ec3 100644 --- a/AF/AF.aspx.vb +++ b/AF/AF.aspx.vb @@ -2498,7 +2498,7 @@ Partial Class AF_AF FechaBaja:=FechaBaja, Lat:=TxtLatitud.Text, Longi:=TxtLongitud.Text, AgroCuenta:=TxtAgroCuenta.Text) > 0 Then ViewState("CveActivoFijo") = ObjAF.CveActivoFijo GlobalDTActivoFijos(UsuarioActual.CveEmpresa) = Nothing - If UsuarioActual.Empresa.TipoContabilidad = 1 Then + If UsuarioActual.Empresa.TipoContabilidad = 1 AndAlso DdlCtaContable.SelectedValue.ToEntero > 0 Then If Not ObjContabilidad.AddCuentasAsignaciones(49, UsuarioActual.CveEmpresa, CveCuenta:=DdlCtaContable.SelectedValue.ToEntero, CveActivoFijo:=ObjAF.CveActivoFijo) Then ErrorGuardar = True End If diff --git a/App_Code/ClsBancos.vb b/App_Code/ClsBancos.vb index 81d76146e..b662d915d 100644 --- a/App_Code/ClsBancos.vb +++ b/App_Code/ClsBancos.vb @@ -1806,7 +1806,14 @@ Public Class ClsBancos ' Me.OnError("Ocurrió un error al guardar los cambios en el Banco", Ex1, SqlAdapter.SelectCommand.Parameters.ParametrosInfo()) Catch ex As Exception - OnError("Ocurrió un error al cancelar el movimiento en bancos.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo) + + If ex.Message.Contains("El Movimiento no se puede eliminar porque tiene una cancelación relacionada") Then + OnError("El Movimiento no se puede eliminar porque tiene una cancelación relacionada, se tiene que eliminar primero la cancelación.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo) + Else + OnError("Ocurrió un error al eliminar el movimiento en bancos.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo) + End If + + End Try Return Retorno diff --git a/App_Code/ClsContPAQi.vb b/App_Code/ClsContPAQi.vb index 4b81efaff..818c0babc 100644 --- a/App_Code/ClsContPAQi.vb +++ b/App_Code/ClsContPAQi.vb @@ -3099,6 +3099,33 @@ Public Class ClsContPAQi End Function + Public Function UpdateMovimientoPrePolizaDetalle(IdPoliza As Integer, IdMovto As Integer, CvePrePolizaDetalle As Integer) As Boolean + Dim Retorno As Boolean = False + StrSQL.Clear() + + StrSQL.Append(" update mp set CvePrePolizaDetalle = @CvePrePolizaDetalle FROM MovimientosPoliza mp WHERE Id = @pId; ") + + SqlDataAdapter(StrSQL.ToString, CommandType.Text) + + With SqlAdapter.SelectCommand.Parameters + + .Add("@CvePrePolizaDetalle", SqlDbType.Int).Value = CvePrePolizaDetalle + .Add("@pIdPoliza", SqlDbType.Int).Value = IdPoliza + .Add("@pId", SqlDbType.Int).Value = IdMovto + + End With + + Try + SqlAdapter.Fill(Data) + Retorno = True + Catch ex As Exception + OnError("Ocurrió un Error al actualizar la Póliza.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo()) + End Try + + Return Retorno + + End Function + Public Function RemoveMovimiento(Id As Integer) As Boolean Dim Retorno As Boolean = False diff --git a/App_Code/ClsContabilidad.vb b/App_Code/ClsContabilidad.vb index 18b04303a..cb0596ad0 100644 --- a/App_Code/ClsContabilidad.vb +++ b/App_Code/ClsContabilidad.vb @@ -1279,6 +1279,27 @@ Public Class ClsContabilidad End Try Return Retorno End Function + Public Function UpdateContabilizable(CvePrePolizaDetalle As Integer, Contabilizar As Boolean) As Boolean + Dim Retorno As Boolean = False + DataAdapter("PA_Conta_PrePolizasContabilizableUpdate") + With SqlAdapter.SelectCommand.Parameters + .Add("@CvePrePolizaDetalle", SqlDbType.Int).Value = CvePrePolizaDetalle + .Add("@Contabilizar", SqlDbType.Bit).Value = If(Contabilizar, 1, 0) + End With + Try + SqlAdapter.Fill(Data) + + Retorno = True + Catch ex As Exception + If ex.Message.Contains("50015;") Then + OnError("No se puede actualizar una póliza en un ejercicio Cerrado", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo) + + Else + OnError("Ocurrió un error al contabilizar las prepoliza detalle.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo()) + End If + End Try + Return Retorno + End Function Public Function ContabilizarPrePoliza(CvePrePoliza As Integer, CveUsuario As Integer, Empresa As Empresa, Optional Fecha As Date = MinFecha, Optional Concepto As String = "", Optional ObjConta As ClsContPAQi = Nothing, Optional pIDPoliza As Integer = -1) As Boolean @@ -1286,7 +1307,7 @@ Public Class ClsContabilidad Dim Retorno As Boolean = False Dim OcurrioError As Boolean = False - StrLog.AppendFormat("CvePrep:{0} - Inicio -", CvePrePoliza) + StrLog.AppendFormat("CvePrep:{0} - CveE:{1} - Inicio -", CvePrePoliza, Empresa.CveEmpresa) If Empresa.TipoContabilizacion = 1 Then ' contabilidad en SIG @@ -6403,8 +6424,9 @@ Public Class ClsContabilidad Dim MsgPrePoliza As String = SqlAdapter.SelectCommand.Parameters("@MsgPrePolizaSalida").Value.ToString If MsgPrePoliza <> "" Then MsgPrePoliza.GuardaLogAD("LogPrePoliza") - If MensajePolizaDescuadre = "" AndAlso AutoConta Then - If UsuarioActual.Empresa.TipoContabilidad = 2 Then ' el tipocontabilidad deberá activarse en el PA + If MensajePolizaDescuadre = "" Then + ' el tipocontabilidad 1. deberá activarse en el PA, solo aplica para conta contpaq y que no tenga activada el no contabilzar automática + If AutoConta AndAlso UsuarioActual.Empresa.TipoContabilidad = 2 AndAlso Not UsuarioActual.Empresa.Funcionalidad(224) = "1" Then If Not ContabilizarPrePoliza(CvePrePoliza, UsuarioActual.CveUsuario, UsuarioActual.Empresa, ObjConta:=ObjConta) Then MensajePolizaDescuadre = Mensaje.ToString ' regresa el mensaje de contabilización Retorno = False diff --git a/App_Code/ClsNominas.vb b/App_Code/ClsNominas.vb index 4bfc60525..3bc8643af 100644 --- a/App_Code/ClsNominas.vb +++ b/App_Code/ClsNominas.vb @@ -3405,14 +3405,15 @@ Public Class ClsNominas End Function #Region "Visor sat" - Public Function SATSolicitudTimbreNominaGral(IDsolicitud As Integer, cveEmpresa As Integer, fechaInicio As String, fechaFin As String, TipoNomina As Integer) As Boolean + Public Function SATSolicitudTimbreNominaGral(IDsolicitud As Integer, CveEmpresa As Integer, FechaInicio As Date, FechaFin As Date, TipoNomina As Integer, RegimenContratacion As Integer) As Boolean Dim retorno As Boolean = False DataAdapter("[PA_SAT_SolicitudTimbreNominaGral]", CommandType.StoredProcedure) addParameters("@IDsolicitud", SqlDbType.Int, IDsolicitud) addParameters("@TipoNomina", SqlDbType.Int, TipoNomina) - addParameters("@CveEmpresa", SqlDbType.Int, cveEmpresa) - addParameters("@FechaInicio", SqlDbType.VarChar, fechaInicio) - addParameters("@FechaFin", SqlDbType.VarChar, fechaFin) + addParameters("@CveEmpresa", SqlDbType.Int, CveEmpresa) + addParameters("@FechaInicio", SqlDbType.Date, FechaInicio) + addParameters("@FechaFin", SqlDbType.Date, FechaFin) + addParameters("@RegimenContratacion", SqlDbType.Int, RegimenContratacion) retorno = RunQuery("Ocurrió un error al obtener el Calculo ISR anual.") Return retorno End Function diff --git a/App_Code/ClsPaginas.vb b/App_Code/ClsPaginas.vb index f1f164ec2..4757d6158 100644 --- a/App_Code/ClsPaginas.vb +++ b/App_Code/ClsPaginas.vb @@ -3519,6 +3519,33 @@ Public Class ClsPaginas HttpContext.Current.Application(AppNombre) = value End Set End Property + + Public Shared Property GlobalDTContaCuentasContables(CveEmpresa As Integer, Optional Codigo As String = "-1", Optional Afectable As Integer = -1, Optional CvePadre As Integer = -1) As DataTable + Get + Dim AppNombre As String = $"GlobalDTContaCuentasContables-{CveEmpresa}" + If HttpContext.Current.Application(AppNombre) Is Nothing Then + Using ObjContabilidad As New ClsContabilidad + If ObjContabilidad.GetCuentas(-1, "-1", -1, CveEmpresa) Then HttpContext.Current.Application(AppNombre) = ObjContabilidad.DtResultados Else HttpContext.Current.Application(AppNombre) = Nothing + End Using + End If + Dim filtros As New List(Of String) + If Codigo <> "-1" Then filtros.Add($"Codigo = '{Codigo}'") + If Afectable <> -1 Then filtros.Add($"Afectable = {Afectable}") + If CvePadre <> -1 Then filtros.Add($"CvePadre = {CvePadre}") + If filtros.Count > 0 Then + Dim Dv As New DataView(DirectCast(HttpContext.Current.Application(AppNombre), DataTable), String.Join(" AND ", filtros), "", DataViewRowState.CurrentRows) + GlobalDTContaCuentasContables = Dv.ToTable + Dv.Dispose() + Else + GlobalDTContaCuentasContables = DirectCast(HttpContext.Current.Application(AppNombre), DataTable) + End If + End Get + Set(value As DataTable) + Dim AppNombre As String = $"GlobalDTContaCuentasContables-{CveEmpresa}" + HttpContext.Current.Application(AppNombre) = value + End Set + End Property + #End Region #Region "**********************************************************************GLOBAL DT RH (RECURSOS HUMANOS)********************************************************************" Property GlobalDTAsistenciaDetalle() As DataTable diff --git a/App_Code/ClsVentas.vb b/App_Code/ClsVentas.vb index 776206141..d198effdb 100644 --- a/App_Code/ClsVentas.vb +++ b/App_Code/ClsVentas.vb @@ -1343,7 +1343,7 @@ Public Class ClsVentas CvePresupuestoIngreso As Integer, Optional TiempoEntrega As String = "", Optional CveVentaDetallePadre As Integer = -1, Optional CveContratoDetalle As Integer = -1, Optional PorcentajeIVA As Decimal = 0, Optional IEPS As Double = -1, Optional PorcentajeIEPS As Double = 0, Optional CvePromocionDetalle As Integer = -1, Optional CveMovimientoDetallePedido As Integer = -1, Optional ImporteRetIVA As Double = 0, Optional PorcentajeRetIVA As Double = 0, - Optional ImporteRetISR As Double = 0, Optional PorcentajeRetISR As Double = 0, Optional CuentaPredial As String = "", Optional CvePrecioLista As Integer = -1, Optional CveActivoFijo As Integer = -1) As Boolean + Optional ImporteRetISR As Double = 0, Optional PorcentajeRetISR As Double = 0, Optional CuentaPredial As String = "", Optional CvePrecioLista As Integer = -1, Optional CveActivoFijo As Integer = -1, Optional NumTurnos As Decimal = 0D) As Boolean Dim Retorno As Boolean = False DataAdapter("PA_VentasDetalleAdd") @@ -1375,6 +1375,7 @@ Public Class ClsVentas .Add("@CuentaPredial", SqlDbType.VarChar).Value = CuentaPredial .Add("@CvePrecioLista", SqlDbType.Int).Value = CvePrecioLista .Add("@CveActivoFijo", SqlDbType.Int).Value = CveActivoFijo + .Add("@NumTurnos", SqlDbType.Decimal).Value = NumTurnos End With Try diff --git a/App_Code/LogicNominas.vb b/App_Code/LogicNominas.vb index 50079a832..baed693a2 100644 --- a/App_Code/LogicNominas.vb +++ b/App_Code/LogicNominas.vb @@ -190,7 +190,7 @@ Public Class LogicNominas If continuar AndAlso objPersonal.GetPersonal(CvePersonal, UsuarioActual.CveEmpresa) AndAlso objPersonal.DtResultados.Rows.Count > 0 Then RFC = objPersonal.RFC cfdi.Emisor.RegistroPatronal = objPersonal.DtResultados.Rows(0)("RegistroPatronal").ToString() - NombreCompleto = String.Format("{0} {1} {2}", objPersonal.Nombres, objPersonal.APaterno, objPersonal.AMaterno) + NombreCompleto = String.Format("{0} {1} {2}", objPersonal.Nombres, objPersonal.APaterno, objPersonal.AMaterno).Trim() CodigoPostal = objPersonal.CP Sindicalizado = objPersonal.DtResultados.Rows(0)("Sindicalizado").ToString().ToUpper().Contiene("TRUE", "1") CURP = objPersonal.CURP diff --git a/Bancos/FluctuacionCambiaria.aspx b/Bancos/FluctuacionCambiaria.aspx index d222aa756..583d93be8 100644 --- a/Bancos/FluctuacionCambiaria.aspx +++ b/Bancos/FluctuacionCambiaria.aspx @@ -730,7 +730,7 @@ -
+
diff --git a/Bancos/FluctuacionCambiaria.aspx.vb b/Bancos/FluctuacionCambiaria.aspx.vb index 47361b78d..80e3657eb 100644 --- a/Bancos/FluctuacionCambiaria.aspx.vb +++ b/Bancos/FluctuacionCambiaria.aspx.vb @@ -315,14 +315,14 @@ Partial Class Bancos_FluctuacionCambiaria Dim DtTemp As DataTable = ObjBancos.DtResultados.Copy Dim TCCierreFluctuacion As Decimal = LtTipoCambioActual.Text.ToDecimal Dim TotAcumulado As Decimal = ObjBancos.DtResultados.SUMD("Fluctuacion") + 'bancos no lleva seguimiento + 'HdnCveFluctuacionBitacora.Value = ObjBancos.DtResultados.MAX("CveFluctuacionBitacora").ToString + 'HdnBancoCvePrePoliza.Value = ObjBancos.DtResultados.MAX("CvePrePoliza").ToString + 'BtnBancosRemove.Visible = HdnBancoCvePrePoliza.Value.ToEntero > 0 + 'BtnGeneraBancos.Visible = Not HdnBancoCvePrePoliza.Value.ToEntero > 0 - HdnCveFluctuacionBitacora.Value = ObjBancos.DtResultados.MAX("CveFluctuacionBitacora").ToString - HdnBancoCvePrePoliza.Value = ObjBancos.DtResultados.MAX("CvePrePoliza").ToString - BtnBancosRemove.Visible = HdnBancoCvePrePoliza.Value.ToEntero > 0 - BtnGeneraBancos.Visible = Not HdnBancoCvePrePoliza.Value.ToEntero > 0 - - HplBancosLiga.Visible = HdnBancoCvePrePoliza.Value.ToEntero > 0 - HplBancosLiga.NavigateUrl = String.Format("/Contabilidad/RegPrePolizas.aspx?CvePrePoliza={0}", ObjBancos.DtResultados.MAX("CvePrePoliza").ToString) + 'HplBancosLiga.Visible = HdnBancoCvePrePoliza.Value.ToEntero > 0 + 'HplBancosLiga.NavigateUrl = String.Format("/Contabilidad/RegPrePolizas.aspx?CvePrePoliza={0}", ObjBancos.DtResultados.MAX("CvePrePoliza").ToString) GvCuentas.DataSource = DtTemp LblTotalBancos.Text = TotAcumulado.FormatoNumero diff --git a/Bancos/IE.aspx b/Bancos/IE.aspx index 1b78035dc..c967b9b73 100644 --- a/Bancos/IE.aspx +++ b/Bancos/IE.aspx @@ -291,6 +291,12 @@
+ +
+ $ + + +

@@ -1485,47 +1491,7 @@ - - - - + <%-- diff --git a/SAT/SolicitudesNominaSat.aspx.cs b/SAT/SolicitudesNominaSat.aspx.cs index 1056435d8..cff8d344a 100644 --- a/SAT/SolicitudesNominaSat.aspx.cs +++ b/SAT/SolicitudesNominaSat.aspx.cs @@ -26,21 +26,21 @@ public partial class SAT_SolicitudesNominaSat : ClsPaginas } set { ViewState["clasegrid"] = value; } } - public string fechaInicio + public DateTime fechaInicio { get { - if (ViewState["fechaInicio"] == null) { return ""; } - else { return ViewState["fechaInicio"].ToString(); } + if (ViewState["fechaInicio"] == null) { return ModExtensiones.MinFecha; } + else { return ViewState["fechaInicio"].ToString().ToDate(); } } set { ViewState["fechaInicio"] = value; } } - public string fechaFin + public DateTime fechaFin { get { - if (ViewState["fechaFin"] == null) { return ""; } - else { return ViewState["fechaFin"].ToString(); } + if (ViewState["fechaFin"] == null) { return ModExtensiones.MaxFecha; } + else { return ViewState["fechaFin"].ToString().ToDate(); } } set { ViewState["fechaFin"] = value; } } @@ -60,7 +60,7 @@ public partial class SAT_SolicitudesNominaSat : ClsPaginas using (ClsNominas nom = new ClsNominas()) { - nom.SATSolicitudTimbreNominaGral(DdlReporte.SelectedValue.ToString().ToEntero(), UsuarioActual.CveEmpresa, fechaInicio, fechaFin, DdlTipoNomina.SelectedValue.ToEntero()); + nom.SATSolicitudTimbreNominaGral(DdlReporte.SelectedValue.ToString().ToEntero(), UsuarioActual.CveEmpresa, fechaInicio, fechaFin, DdlTipoNomina.SelectedValue.ToEntero(), DdlRegimenContratacion.SelectedValue.ToEntero()); ClosedXML.Excel.XLWorkbook wb = new ClosedXML.Excel.XLWorkbook(); var libro = wb.AddWorksheet(nom.DtResultados , "Nomina"); @@ -137,10 +137,10 @@ public partial class SAT_SolicitudesNominaSat : ClsPaginas { using (ClsNominas nom = new ClsNominas()) { - fechaInicio = TxtRpdFechaInicio.Text.ToDateTime().ToString("yyyy/MM/dd"); - fechaFin = TxtRpdFechaFin.Text.ToDateTime().ToString("yyyy/MM/dd"); + fechaInicio = TxtRpdFechaInicio.Text.ToDateTime(); + fechaFin = TxtRpdFechaFin.Text.ToDateTime(); - nom.SATSolicitudTimbreNominaGral(0, UsuarioActual.CveEmpresa, fechaInicio, fechaFin, DdlTipoNomina.SelectedValue.ToEntero()); + nom.SATSolicitudTimbreNominaGral(0, UsuarioActual.CveEmpresa, fechaInicio, fechaFin, DdlTipoNomina.SelectedValue.ToEntero(),DdlRegimenContratacion.SelectedValue.ToEntero()); if (nom.DtResultados.Rows.Count > 0) { DataRow drow = nom.DtResultados.Rows[0]; @@ -156,7 +156,7 @@ public partial class SAT_SolicitudesNominaSat : ClsPaginas } - nom.SATSolicitudTimbreNominaGral(DdlReporte.SelectedValue.ToString().ToEntero(), UsuarioActual.CveEmpresa, fechaInicio, fechaFin, DdlTipoNomina.SelectedValue.ToEntero()); + nom.SATSolicitudTimbreNominaGral(DdlReporte.SelectedValue.ToString().ToEntero(), UsuarioActual.CveEmpresa, fechaInicio, fechaFin, DdlTipoNomina.SelectedValue.ToEntero(), DdlRegimenContratacion.SelectedValue.ToEntero()); GVSolicitudTimbreNominaGral.DataSource = nom.DtResultados; GVSolicitudTimbreNominaGral.DataBind(); clasegrid = string.Format("reporte{0}", DdlReporte.SelectedValue); diff --git a/Ventas/Clientes.aspx b/Ventas/Clientes.aspx index d72745756..fa1f6c881 100644 --- a/Ventas/Clientes.aspx +++ b/Ventas/Clientes.aspx @@ -1699,7 +1699,7 @@
-
+
@@ -1898,15 +1898,15 @@ Estado de Cuenta
+
-
-
+
@@ -1919,7 +1919,7 @@
-
+
@@ -1934,7 +1934,7 @@
-
+
@@ -1947,7 +1947,7 @@
-
+
diff --git a/Ventas/Clientes.aspx.vb b/Ventas/Clientes.aspx.vb index 43a0427be..0b80dafe3 100644 --- a/Ventas/Clientes.aspx.vb +++ b/Ventas/Clientes.aspx.vb @@ -2638,31 +2638,31 @@ Partial Class Clientes Dim CtaCliente As Integer = DdlCtaContableClientes.SelectedValue.ToEntero() ' si tiene la funcionalidad de la cuenta contable padre - If UsuarioActual.Empresa.Funcionalidad(114) <> "" Then + 'If UsuarioActual.Empresa.Funcionalidad(114) <> "" Then - Dim ObjContaAC = New ClsContPAQi(UsuarioActual.Empresa) + ' Dim ObjContaAC = New ClsContPAQi(UsuarioActual.Empresa) - ObjContaAC.IniciaTransacSQL() - 'se registra la cuenta contable automaticamente + ' ObjContaAC.IniciaTransacSQL() + ' 'se registra la cuenta contable automaticamente - CtaCliente = ObjContaAC.AddSiguienteCuentaHijo(UsuarioActual.Empresa.Funcionalidad(114).ToEntero(), TxtNombreComercial.Text.Trim, "A", 2) + ' CtaCliente = ObjContaAC.AddSiguienteCuentaHijo(UsuarioActual.Empresa.Funcionalidad(114).ToEntero(), TxtNombreComercial.Text.Trim, "A", 2) - If CtaCliente > 0 Then - ObjContaAC.Commit() - DdlCtaContableClientes.Items.Add(New ListItem(TxtNombreComercial.Text.Trim, CtaCliente.ToString())) - DdlCtaContableClientes.SelectedValue = CtaCliente.ToString() - 'MsgCuentaContable = String.Format("
Con la cuenta contable: {0}", NewCuenta) + ' If CtaCliente > 0 Then + ' ObjContaAC.Commit() + ' DdlCtaContableClientes.Items.Add(New ListItem(TxtNombreComercial.Text.Trim, CtaCliente.ToString())) + ' DdlCtaContableClientes.SelectedValue = CtaCliente.ToString() + ' 'MsgCuentaContable = String.Format("
Con la cuenta contable: {0}", NewCuenta) - Else + ' Else - ObjContaAC.RollBack() - ObjContaAC.Dispose() - Alert("Error al guardar la cuenta contable ", TipoMensaje.MsgError) - ObjClientes.Dispose() - Exit Sub - End If - ObjContaAC.Dispose() - End If + ' ObjContaAC.RollBack() + ' ObjContaAC.Dispose() + ' Alert("Error al guardar la cuenta contable ", TipoMensaje.MsgError) + ' ObjClientes.Dispose() + ' Exit Sub + ' End If + ' ObjContaAC.Dispose() + 'End If Dim CodigoCuentaAltaCompaq As String = "" @@ -2750,11 +2750,15 @@ Partial Class Clientes End If End If - If Not AltaCuentaContabilidadSIG(CodigoCuentaAltaCompaq, NombreCuentaCuentaAltaCompaq, IdCuentaAltaCompaq, 1, ObjClientes.IniciaTransacSQL) Then - ErrorProceso = True + + If IdCuentaAltaCompaq > 0 Then + If Not AltaCuentaContabilidadSIG(CodigoCuentaAltaCompaq, NombreCuentaCuentaAltaCompaq, IdCuentaAltaCompaq, 1, ObjClientes.IniciaTransacSQL) Then + ErrorProceso = True + End If End If + If ErrorProceso Then ObjClientes.RollBack() Else @@ -4119,11 +4123,11 @@ Partial Class Clientes Dim FechaCorte As Date = ("9999/01/01").ToDate() Dim TipoDocto As String = If(DdlTipoDocto.GetSelectedValuesM = "", "-1", DdlTipoDocto.GetSelectedValuesM) Dim TipoDocto2 As String = If(DdlTipoDocto.GetSelectedValuesM = "", "-1", DdlTipoDocto.GetSelectedValuesM(True)) - Dim FechaVencimientoI As String = If(TxtFechaVICxP.Text = "", "-1", TxtFechaVICxP.Text).ToString() - Dim FechaVencimientoF As String = If(TxtFechaVFCxP.Text = "", "-1", TxtFechaVFCxP.Text).ToString() + Dim FechaVencimientoI As DateTime = If(TxtFechaVICxP.Text = "", MinFecha, TxtFechaVICxP.Text.ToDate()) + Dim FechaVencimientoF As DateTime = If(TxtFechaVFCxP.Text = "", MaxFecha, TxtFechaVFCxP.Text.ToDate()) Dim ObjMovtos As New ClsMovimientos() - If ObjMovtos.GetCxCClienteDetalle(CveCliente, "-1", "-1", -1, -1, UsuarioActual.CveEmpresa, DdlSucursalCliente.SelectedValue.ToEntero()) Then + If ObjMovtos.GetCxCClienteDetalle(CveCliente, FI, FF, -1, -1, UsuarioActual.CveEmpresa, DdlSucursalCliente.SelectedValue.ToEntero(), FechaVencimientoI:=FechaVencimientoI, FechaVencimientoF:=FechaVencimientoF) Then DtCxCFact = If(DdlTipoCuentasCxC.SelectedValue = "-1", ObjMovtos.DtResultados.FiltraParametros("", "TipoDocto").Copy, ObjMovtos.DtResultados.FiltraParametros("Tipo = 'Act'", "TipoDocto")) 'cargo los anticipos NC DtCxCFact.Columns.Add("SaldoAnticipo", GetType(Decimal)) diff --git a/Ventas/ClientesAbonar.aspx.vb b/Ventas/ClientesAbonar.aspx.vb index 82c7b04da..ec9df92c6 100644 --- a/Ventas/ClientesAbonar.aspx.vb +++ b/Ventas/ClientesAbonar.aspx.vb @@ -1235,33 +1235,34 @@ Partial Class Ventas_ClientesAbonar End If - If MsgError = "" AndAlso UsuarioActual.Empresa.Funcionalidad(220) <> "" Then - If Not ObjMov.PrePolizaSimplificacion(CvePrePoliza, UsuarioActual.CveEmpresa) Then - MsgError = "No se pudo simplificar los movimientos" - Alert("No se pudo simplificar los movimientos", TipoMensaje.MsgError) - End If + 'If MsgError = "" AndAlso UsuarioActual.Empresa.Funcionalidad(220) <> "" Then + ' If Not ObjMov.PrePolizaSimplificacion(CvePrePoliza, UsuarioActual.CveEmpresa) Then + ' MsgError = "No se pudo simplificar los movimientos" + ' Alert("No se pudo simplificar los movimientos", TipoMensaje.MsgError) + ' End If + 'End If + + If MsgError = "" AndAlso Not ObjMov.ValidacionesPrePoliza(CvePrePoliza, UsuarioActual, Opcion:=3) Then + MsgError = ObjMov.MensajePolizaDescuadre & " La diferencia es de: " & ObjMov.ValorDiferencia + 'If ObjMov.ValorPolizaDescuadre > 0 Then + ' MsgError = ObjMov.MensajePolizaDescuadre & " La diferencia es de: " & ObjMov.ValorDiferencia + 'End If End If - If MsgError = "" AndAlso ObjMov.ValidacionPrePolizaCuadre(CvePrePoliza, 3) Then - If ObjMov.ValorPolizaDescuadre > 0 Then - MsgError = ObjMov.MensajePolizaDescuadre & " La diferencia es de: " & ObjMov.ValorDiferencia - End If - End If - - 'Conta ContPAQ - If UsuarioActual.Empresa.Funcionalidad(200) = "1" AndAlso MsgError = "" Then - If idCuentaContabilizacion > 0 Then - If ObjMov.ContabilizarPrePoliza(CvePrePoliza, UsuarioActual.CveUsuario, UsuarioActual.Empresa) Then - IDPoliza = ObjMov.ContaIdPoliza - FolioPoliza = ObjMov.ContaFolio - Else - Alert("Ocurrio un error al contabilizar, pongase en contacto con Soporte Técnico") - MsgError = "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 + ''Conta ContPAQ + 'If UsuarioActual.Empresa.Funcionalidad(200) = "1" AndAlso MsgError = "" Then + ' If idCuentaContabilizacion > 0 Then + ' If ObjMov.ContabilizarPrePoliza(CvePrePoliza, UsuarioActual.CveUsuario, UsuarioActual.Empresa) Then + ' IDPoliza = ObjMov.ContaIdPoliza + ' FolioPoliza = ObjMov.ContaFolio + ' Else + ' Alert("Ocurrio un error al contabilizar, pongase en contacto con Soporte Técnico") + ' MsgError = "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 Else MsgError = "No se pudo insertar la póliza" End If @@ -2677,8 +2678,8 @@ Partial Class Ventas_ClientesAbonar CambiaTipoMoneda() End Sub Private Sub CambiaTipoMoneda() - Dim dia As Integer = If(UsuarioActual.CveEmpresa = 13, TxtFechaDocumento.Text.ToDate.Day - 1, TxtFechaDocumento.Text.ToDate.Day) - Fecha = (dia.ToString + "/" + TxtFechaDocumento.Text.ToDate.Month.ToString + "/" + TxtFechaDocumento.Text.ToDate.Year.ToString).ToDate + + Fecha = If(UsuarioActual.CveEmpresa = 13, TxtFechaDocumento.Text.ToDate.AddDays(-1), TxtFechaDocumento.Text.ToDate).ToDate If TxtTC.Visible Then TxtTC.Text = GlobalTipoCambio(Fecha).FormatoNumero(4) diff --git a/Ventas/PV.aspx.vb b/Ventas/PV.aspx.vb index 8beaa4a38..fc6e5ad78 100644 --- a/Ventas/PV.aspx.vb +++ b/Ventas/PV.aspx.vb @@ -2009,8 +2009,8 @@ Partial Class PV End If If TmpDTRecepcionUsados IsNot Nothing Then - If TmpDTRecepcionUsados.Select($"CvePS={Row("CvePS").ToString.ToEntero}").Length > 0 Then - Dim rowInv As DataRow = TmpDTRecepcionUsados.Select($"CvePS={Row("CvePS").ToString.ToEntero}")(0) + If TmpDTRecepcionUsados.Select($"ConsecUsado={Row("Consec").ToString.ToEntero} AND CvePS={Row("CvePS").ToString.ToEntero}").Length > 0 Then + Dim rowInv As DataRow = TmpDTRecepcionUsados.Select($"ConsecUsado={Row("Consec").ToString.ToEntero} AND CvePS={Row("CvePS").ToString.ToEntero}")(0) rowInv("CveVentaDetalle") = CveVentaDetalle End If End If @@ -7858,11 +7858,15 @@ Partial Class PV If TmpDTRecepcionUsados.Rows.Count > 0 Then Dim Elimino As Boolean = False For Each Row As DataRow In TmpDTRecepcionUsados.Rows - If Row("CvePSRelacionado").ToString().ToEntero() = CvePS Then + If Row("CvePSRelacionado").ToString().ToEntero() = CvePS AndAlso + Row("ConsecUsado").ToString().ToEntero() = ListaPSCargo.FirstOrDefault().ConsecutivoUsado AndAlso + Row("ConsecRelacionado").ToString().ToEntero() = ListaPSCargo.FirstOrDefault().Consecutivo Then + Row.Delete() Elimino = True End If Next + If Elimino Then TmpDTRecepcionUsados.AcceptChanges() End If @@ -8179,7 +8183,7 @@ Partial Class PV 'ELIMINAR LOS USADOS QUE SE MANDAN A RECEPCION For Each drow As DataRow In TmpDT.Select($"Consec ={Consec}") For Each RowRecepcionUsados As DataRow In TmpDTRecepcionUsados.Rows - If (RowRecepcionUsados("CvePSRelacionado").ToString() = drow("CvePS").ToString()) Then + If (RowRecepcionUsados("CvePSRelacionado").ToString() = drow("CvePS").ToString()) AndAlso RowRecepcionUsados("ConsecRelacionado").ToString() = drow("Consec").ToString() Then RowRecepcionUsados.Delete() End If Next diff --git a/Ventas/ProductosServicios.aspx b/Ventas/ProductosServicios.aspx index a01c06afc..a081975c8 100644 --- a/Ventas/ProductosServicios.aspx +++ b/Ventas/ProductosServicios.aspx @@ -551,7 +551,7 @@
-