diff --git a/AF/AF.aspx.vb b/AF/AF.aspx.vb index 2b9409625..7d5ffee83 100644 --- a/AF/AF.aspx.vb +++ b/AF/AF.aspx.vb @@ -376,7 +376,7 @@ Partial Class AF_AF InicializaValores() - If UsuarioActual.Empresa.UsaAC OrElse UsuarioActual.Empresa.UsaContabilidad Then + If UsuarioActual.Empresa.TipoContabilidad = 2 AndAlso (UsuarioActual.Empresa.UsaAC OrElse UsuarioActual.Empresa.UsaContabilidad) Then CargaCuentasContables() End If diff --git a/App_Code/ClsOS.vb b/App_Code/ClsOS.vb index 102870404..c4148db68 100644 --- a/App_Code/ClsOS.vb +++ b/App_Code/ClsOS.vb @@ -59,6 +59,10 @@ Public Class ClsOS Public Property CveSubProyecto As Integer Public Property CveOSDetalle As Integer Public Property CveOSTipo As Integer + Public Property Telefono As String = "" + Public Property CveModeloAuto As Integer = -1 + Public Property Año As String = "" + Private Class Especificaciones Public CveValor As Integer Public CvePSCaracteristica As Integer @@ -516,6 +520,10 @@ Public Class ClsOS Me.UsuarioEntrego = Data.Rows(0)("UsuarioEntrego").ToString Me.CveSubProyecto = Data.Rows(0)("CveSubproyecto").ToString Me.CveOSTipo = Data.Rows(0)("CveOrdenServicioTipo").ToString.ToEntero + + Me.Telefono = Data.Rows(0)("TelefonoContacto").ToString + Me.CveModeloAuto = Data.Rows(0)("CveModeloAuto").ToString.ToEntero + Me.Año = Data.Rows(0)("Año").ToString End If Retorno = True Catch ex As Exception @@ -569,7 +577,7 @@ Public Class ClsOS End Function Public Function AddOrdenesServicios(CveCliente As Integer, CveSubProyecto As Integer, PersonaSolicito As String, FechaRecepcion As Date, Descripcion As String, CveUsuarioRecibio As Integer, CveEstatusOrdenServicio As Integer, CveUsuario As Integer, CveEmpresa As Integer, CveCotizacion As Integer, CveVenta As Integer, CveOSPadre As Integer, CveOSTipo As Integer, Optional CveClienteSucursal As Integer = -1, - Optional Direccion As String = "-1") As Boolean + Optional Direccion As String = "-1", Optional Telefono As String = "", Optional CveModeloAuto As Integer = -1, Optional Año As String = "-1") As Boolean Dim Retorno As Boolean = False DataAdapter("PA_OS_OrdenesServiciosAdd") @@ -591,6 +599,10 @@ Public Class ClsOS .Add("@CveClienteSucursal", SqlDbType.Int).Value = CveClienteSucursal .Add("@Direccion", SqlDbType.VarChar).Value = Direccion + .Add("@Telefono", SqlDbType.VarChar).Value = Telefono + .Add("@CveModeloAuto", SqlDbType.Int).Value = CveModeloAuto + .Add("@Año", SqlDbType.VarChar).Value = Año + .Add("@CveOS", SqlDbType.Int).Direction = ParameterDirection.Output .Add("@vFolio", SqlDbType.Int).Direction = ParameterDirection.Output End With @@ -633,7 +645,8 @@ Public Class ClsOS Return Retorno End Function Public Function UpdateOrdenesServicios(PersonaSolicito As String, FechaRecepcion As String, Descripcion As String, CveUsuarioRecibio As Integer, CveEstatusOrdenServicio As Integer, CveOS As Integer, CveUsuarioModifico As Integer, - CveOSTipo As Integer, Optional CveClienteSucursal As Integer = -1, Optional Direccion As String = "-1") As Boolean + CveOSTipo As Integer, Optional CveClienteSucursal As Integer = -1, Optional Direccion As String = "-1", + Optional Telefono As String = "", Optional CveModeloAuto As Integer = -1, Optional Año As String = "-1") As Boolean Dim Retorno As Boolean = False DataAdapter("PA_OS_OrdenesServiciosUpdate") @@ -649,6 +662,11 @@ Public Class ClsOS .Add("@CveOS", SqlDbType.Int).Value = CveOS .Add("@CveClienteSucursal", SqlDbType.Int).Value = CveClienteSucursal .Add("@Direccion", SqlDbType.VarChar).Value = Direccion + + .Add("@Telefono", SqlDbType.VarChar).Value = Telefono + .Add("@CveModeloAuto", SqlDbType.Int).Value = CveModeloAuto + .Add("@Año", SqlDbType.VarChar).Value = Año + End With Try diff --git a/App_Code/ClsPaginas.vb b/App_Code/ClsPaginas.vb index 9eae7b0f1..495f72b8c 100644 --- a/App_Code/ClsPaginas.vb +++ b/App_Code/ClsPaginas.vb @@ -9677,70 +9677,70 @@ Public Class ClsPaginas 'si tiene iva y su proporcion If Not ErrorMovtos AndAlso CompraActual.IVA <> 0 Then - ImporteMovimiento = (PorcentajePago * CompraActual.IVA).RoundSQL - ImporteMN = (ImporteMovimiento * CompraActual.TC).RoundSQL - If CompraActual.CveMoneda > 1 Then ImporteME = ImporteMovimiento - - Dim Ret As ConceptosRetenciones = CompraActual.ConceptoPrePolizaIVA - If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, True, ImporteMovimiento, ImporteMN, Ret.CveConceptoxAcreditar, CompraActual.SerieFolio, Concepto, Ret.IdCtaContablexAcreditar, CveCompra:=CompraActual.CveCompra, CveProveedor:=CompraActual.CveProveedor, CveIE:=Pago.CveIE, PorcentajeImpuesto:=CompraActual.PorcentajeIVA, CvePersonal:=Pago.CvePersonal, TipoCambio:=CompraActual.TC, TipoCambioPago:=Pago.TCPago, ImporteME:=ImporteME, CveSubProyecto:=CompraActual.CveSubProyecto) Then ErrorMovtos = True - - If CompraActual.IVADeducible > 0 Then - - ImporteMovimiento = (PorcentajePago * CompraActual.IVADeducible).RoundSQL - ImporteMN = (ImporteMovimiento * CompraActual.TC).RoundSQL - 'si tiene funcionalidad para tomar el TC de pago. se recalcula el importe - If FuncionalidadFluctuacionImpuestos Then ImporteMN = (ImporteMovimiento.RoundSQL * Pago.TCPago).RoundSQL - - If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, False, ImporteMovimiento, ImporteMN, Ret.CveConceptoAcreditable, CompraActual.SerieFolio, Concepto, Ret.IdCtaContableAcreditable, CveCompra:=CompraActual.CveCompra, CveProveedor:=CompraActual.CveProveedor, CveIE:=Pago.CveIE, PorcentajeImpuesto:=CompraActual.PorcentajeIVA, CvePersonal:=Pago.CvePersonal, TipoCambio:=CompraActual.TC, TipoCambioPago:=Pago.TCPago, ImporteME:=ImporteME, CveSubProyecto:=CompraActual.CveSubProyecto) Then ErrorMovtos = True - End If - - If CompraActual.IVANoDeducible > 0 Then - - ImporteMovimiento = (PorcentajePago * CompraActual.IVANoDeducible).RoundSQL + ImporteMovimiento = (PorcentajePago * CompraActual.IVA).RoundSQL ImporteMN = (ImporteMovimiento * CompraActual.TC).RoundSQL If CompraActual.CveMoneda > 1 Then ImporteME = ImporteMovimiento - If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, False, ImporteMovimiento, ImporteMN, 280, CompraActual.SerieFolio, Concepto, Ret.IdCtaContIVANoAcreditable, CveCompra:=CompraActual.CveCompra, CveProveedor:=CompraActual.CveProveedor, CveIE:=Pago.CveIE, PorcentajeImpuesto:=CompraActual.PorcentajeIVA, CvePersonal:=Pago.CvePersonal, TipoCambio:=CompraActual.TC, TipoCambioPago:=Pago.TCPago, ImporteME:=ImporteME, CveSubProyecto:=CompraActual.CveSubProyecto) Then ErrorMovtos = True + Dim Ret As ConceptosRetenciones = CompraActual.ConceptoPrePolizaIVA + If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, True, ImporteMovimiento, ImporteMN, Ret.CveConceptoxAcreditar, CompraActual.SerieFolio, Concepto, Ret.IdCtaContablexAcreditar, CveCompra:=CompraActual.CveCompra, CveProveedor:=CompraActual.CveProveedor, CveIE:=Pago.CveIE, PorcentajeImpuesto:=CompraActual.PorcentajeIVA, CvePersonal:=Pago.CvePersonal, TipoCambio:=CompraActual.TC, TipoCambioPago:=Pago.TCPago, ImporteME:=ImporteME, CveSubProyecto:=CompraActual.CveSubProyecto) Then ErrorMovtos = True + + If CompraActual.IVADeducible > 0 Then + + ImporteMovimiento = (PorcentajePago * CompraActual.IVADeducible).RoundSQL + ImporteMN = (ImporteMovimiento * CompraActual.TC).RoundSQL + 'si tiene funcionalidad para tomar el TC de pago. se recalcula el importe + If FuncionalidadFluctuacionImpuestos Then ImporteMN = (ImporteMovimiento.RoundSQL * Pago.TCPago).RoundSQL + + If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, False, ImporteMovimiento, ImporteMN, Ret.CveConceptoAcreditable, CompraActual.SerieFolio, Concepto, Ret.IdCtaContableAcreditable, CveCompra:=CompraActual.CveCompra, CveProveedor:=CompraActual.CveProveedor, CveIE:=Pago.CveIE, PorcentajeImpuesto:=CompraActual.PorcentajeIVA, CvePersonal:=Pago.CvePersonal, TipoCambio:=CompraActual.TC, TipoCambioPago:=Pago.TCPago, ImporteME:=ImporteME, CveSubProyecto:=CompraActual.CveSubProyecto) Then ErrorMovtos = True + End If + + If CompraActual.IVANoDeducible > 0 Then + + ImporteMovimiento = (PorcentajePago * CompraActual.IVANoDeducible).RoundSQL + ImporteMN = (ImporteMovimiento * CompraActual.TC).RoundSQL + If CompraActual.CveMoneda > 1 Then ImporteME = ImporteMovimiento + + If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, False, ImporteMovimiento, ImporteMN, 280, CompraActual.SerieFolio, Concepto, Ret.IdCtaContIVANoAcreditable, CveCompra:=CompraActual.CveCompra, CveProveedor:=CompraActual.CveProveedor, CveIE:=Pago.CveIE, PorcentajeImpuesto:=CompraActual.PorcentajeIVA, CvePersonal:=Pago.CvePersonal, TipoCambio:=CompraActual.TC, TipoCambioPago:=Pago.TCPago, ImporteME:=ImporteME, CveSubProyecto:=CompraActual.CveSubProyecto) Then ErrorMovtos = True + + End If End If - End If + 'si tiene RET IVA y su proporcion + If Not ErrorMovtos AndAlso CompraActual.RetIVA > 0 Then + ImporteMovimiento = (PorcentajePago * CompraActual.RetIVA).RoundSQL + ImporteMN = (ImporteMovimiento * CompraActual.TC).RoundSQL + If CompraActual.CveMoneda > 1 Then ImporteME = ImporteMovimiento - 'si tiene RET IVA y su proporcion - If Not ErrorMovtos AndAlso CompraActual.RetIVA > 0 Then - ImporteMovimiento = (PorcentajePago * CompraActual.RetIVA).RoundSQL - ImporteMN = (ImporteMovimiento * CompraActual.TC).RoundSQL - If CompraActual.CveMoneda > 1 Then ImporteME = ImporteMovimiento + Dim Ret As ConceptosRetenciones = CompraActual.ConceptoPrePolizaRetIVA + If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, False, ImporteMovimiento, ImporteMN, Ret.CveConceptoxAcreditar, CompraActual.SerieFolio, Concepto, Ret.IdCtaContablexAcreditar, CveCompra:=CompraActual.CveCompra, CveProveedor:=CompraActual.CveProveedor, CveIE:=Pago.CveIE, CvePersonal:=Pago.CvePersonal, TipoCambio:=CompraActual.TC, TipoCambioPago:=Pago.TCPago, ImporteME:=ImporteME, CveSubProyecto:=CompraActual.CveSubProyecto) Then ErrorMovtos = True - Dim Ret As ConceptosRetenciones = CompraActual.ConceptoPrePolizaRetIVA - If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, False, ImporteMovimiento, ImporteMN, Ret.CveConceptoxAcreditar, CompraActual.SerieFolio, Concepto, Ret.IdCtaContablexAcreditar, CveCompra:=CompraActual.CveCompra, CveProveedor:=CompraActual.CveProveedor, CveIE:=Pago.CveIE, CvePersonal:=Pago.CvePersonal, TipoCambio:=CompraActual.TC, TipoCambioPago:=Pago.TCPago, ImporteME:=ImporteME, CveSubProyecto:=CompraActual.CveSubProyecto) Then ErrorMovtos = True + 'si tiene funcionalidad para tomar el TC de pago. se recalcula el importe + If FuncionalidadFluctuacionImpuestos Then ImporteMN = (ImporteMovimiento * Pago.TCPago).RoundSQL - 'si tiene funcionalidad para tomar el TC de pago. se recalcula el importe - If FuncionalidadFluctuacionImpuestos Then ImporteMN = (ImporteMovimiento * Pago.TCPago).RoundSQL + If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, True, ImporteMovimiento, ImporteMN, Ret.CveConceptoAcreditable, CompraActual.SerieFolio, Concepto, Ret.IdCtaContableAcreditable, CveCompra:=CompraActual.CveCompra, CveProveedor:=CompraActual.CveProveedor, CveIE:=Pago.CveIE, CvePersonal:=Pago.CvePersonal, TipoCambio:=CompraActual.TC, TipoCambioPago:=Pago.TCPago, ImporteME:=ImporteME, CveSubProyecto:=CompraActual.CveSubProyecto) Then ErrorMovtos = True - If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, True, ImporteMovimiento, ImporteMN, Ret.CveConceptoAcreditable, CompraActual.SerieFolio, Concepto, Ret.IdCtaContableAcreditable, CveCompra:=CompraActual.CveCompra, CveProveedor:=CompraActual.CveProveedor, CveIE:=Pago.CveIE, CvePersonal:=Pago.CvePersonal, TipoCambio:=CompraActual.TC, TipoCambioPago:=Pago.TCPago, ImporteME:=ImporteME, CveSubProyecto:=CompraActual.CveSubProyecto) Then ErrorMovtos = True - - End If - - 'si tiene Ret ISR y su proporcion - If Not ErrorMovtos AndAlso CompraActual.RetISR > 0 Then - ImporteMovimiento = (PorcentajePago * CompraActual.RetISR).RoundSQL - ImporteMN = (ImporteMovimiento * CompraActual.TC).RoundSQL - If CompraActual.CveMoneda > 1 Then ImporteME = ImporteMovimiento - Dim ContabilizableISR As Boolean = False - If UsuarioActual.CveEmpresa = 140 Then - ContabilizableISR = True End If - Dim Ret As ConceptosRetenciones = CompraActual.ConceptoPrePolizaRetISR - If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, False, ImporteMovimiento, ImporteMN, Ret.CveConceptoxAcreditar, CompraActual.SerieFolio, Concepto, Ret.IdCtaContablexAcreditar, CveCompra:=CompraActual.CveCompra, CveProveedor:=CompraActual.CveProveedor, CveIE:=Pago.CveIE, CvePersonal:=Pago.CvePersonal, TipoCambio:=CompraActual.TC, TipoCambioPago:=Pago.TCPago, ImporteME:=ImporteME, Contabilizable:=ContabilizableISR, CveSubProyecto:=CompraActual.CveSubProyecto) Then ErrorMovtos = True + 'si tiene Ret ISR y su proporcion + If Not ErrorMovtos AndAlso CompraActual.RetISR > 0 Then + ImporteMovimiento = (PorcentajePago * CompraActual.RetISR).RoundSQL + ImporteMN = (ImporteMovimiento * CompraActual.TC).RoundSQL + If CompraActual.CveMoneda > 1 Then ImporteME = ImporteMovimiento + Dim ContabilizableISR As Boolean = False + If UsuarioActual.CveEmpresa.Contiene(140, 7, 11, 12, 122, 145) Then + ContabilizableISR = True + End If - 'si tiene funcionalidad para tomar el TC de pago. se recalcula el importe - If FuncionalidadFluctuacionImpuestos Then ImporteMN = (ImporteMovimiento * Pago.TCPago).RoundSQL + Dim Ret As ConceptosRetenciones = CompraActual.ConceptoPrePolizaRetISR + If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, False, ImporteMovimiento, ImporteMN, Ret.CveConceptoxAcreditar, CompraActual.SerieFolio, Concepto, Ret.IdCtaContablexAcreditar, CveCompra:=CompraActual.CveCompra, CveProveedor:=CompraActual.CveProveedor, CveIE:=Pago.CveIE, CvePersonal:=Pago.CvePersonal, TipoCambio:=CompraActual.TC, TipoCambioPago:=Pago.TCPago, ImporteME:=ImporteME, Contabilizable:=ContabilizableISR, CveSubProyecto:=CompraActual.CveSubProyecto) Then ErrorMovtos = True - If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, True, ImporteMovimiento, ImporteMN, Ret.CveConceptoAcreditable, CompraActual.SerieFolio, Concepto, Ret.IdCtaContableAcreditable, CveCompra:=CompraActual.CveCompra, CveProveedor:=CompraActual.CveProveedor, CveIE:=Pago.CveIE, CvePersonal:=Pago.CvePersonal, TipoCambio:=CompraActual.TC, TipoCambioPago:=Pago.TCPago, ImporteME:=ImporteME, Contabilizable:=ContabilizableISR, CveSubProyecto:=CompraActual.CveSubProyecto) Then ErrorMovtos = True + 'si tiene funcionalidad para tomar el TC de pago. se recalcula el importe + If FuncionalidadFluctuacionImpuestos Then ImporteMN = (ImporteMovimiento * Pago.TCPago).RoundSQL - End If + If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, True, ImporteMovimiento, ImporteMN, Ret.CveConceptoAcreditable, CompraActual.SerieFolio, Concepto, Ret.IdCtaContableAcreditable, CveCompra:=CompraActual.CveCompra, CveProveedor:=CompraActual.CveProveedor, CveIE:=Pago.CveIE, CvePersonal:=Pago.CvePersonal, TipoCambio:=CompraActual.TC, TipoCambioPago:=Pago.TCPago, ImporteME:=ImporteME, Contabilizable:=ContabilizableISR, CveSubProyecto:=CompraActual.CveSubProyecto) Then ErrorMovtos = True + + End If 'si tiene IEPS y su proporcion If Not ErrorMovtos AndAlso CompraActual.IEPS > 0 Then diff --git a/App_Code/modExtensiones.vb b/App_Code/modExtensiones.vb index 681afe43a..ee58149a8 100644 --- a/App_Code/modExtensiones.vb +++ b/App_Code/modExtensiones.vb @@ -977,8 +977,8 @@ Namespace Extensiones Dim tmp As String = Mid(entero, 2, 6) - If entero.ToString.Length >= 7 And tmp = "000000" Then - If entero.ToString.Length = 7 And tmp = "000000" Then + If entero.ToString.Length >= 7 And tmp = "000000" Or Mid(entero, 3, 6) = "000000" Then + If entero.ToString.Length = 7 And tmp = "000000" Or Mid(entero, 3, 6) = "000000" Then palabras.Append("de ") End If Else diff --git a/Bancos/ConciliacionesBancarias.aspx.vb b/Bancos/ConciliacionesBancarias.aspx.vb index 1bb67144a..05a6e20ff 100644 --- a/Bancos/ConciliacionesBancarias.aspx.vb +++ b/Bancos/ConciliacionesBancarias.aspx.vb @@ -551,8 +551,9 @@ Partial Class Bancos_ConciliacionesBancariasaspx End Sub Protected Sub GeneraPDF(Formato As String) Dim params As List(Of ReportParameter) = New List(Of ReportParameter)() + Dim Imagen As System.IO.FileInfo = New System.IO.FileInfo(String.Format("{0}/Logo.png", UsuarioActual.Empresa.Ruta)) - Dim logouri = String.Format("{0}://{1}:{2}/Empresas/{3}/Logo.png", Request.Url.Scheme, Request.Url.Host, Request.Url.Port, UsuarioActual.CveEmpresa) + params.Add(New ReportParameter("NombreEmpresa", UsuarioActual.Empresa.Empresa)) params.Add(New ReportParameter("UsuarioImprimio", UsuarioActual.Nombre)) params.Add(New ReportParameter("FechaImpresion", DateTime.Now.ToString())) @@ -662,7 +663,7 @@ Partial Class Bancos_ConciliacionesBancariasaspx params.Add(New ReportParameter("Filtros", Filtros)) If Imagen.Exists Then - params.Add(New ReportParameter("LogoPath", logouri)) + params.Add(New ReportParameter("LogoPath", $"file://{Imagen.FullName}")) Else params.Add(New ReportParameter("LogoPath", "")) End If diff --git a/Bancos/DepositosCaja.aspx b/Bancos/DepositosCaja.aspx index e073494dc..d2a7a3d27 100644 --- a/Bancos/DepositosCaja.aspx +++ b/Bancos/DepositosCaja.aspx @@ -295,7 +295,7 @@
- + diff --git a/Bancos/DepositosCaja.aspx.vb b/Bancos/DepositosCaja.aspx.vb index 3dc18e324..ca76c20ae 100644 --- a/Bancos/DepositosCaja.aspx.vb +++ b/Bancos/DepositosCaja.aspx.vb @@ -43,8 +43,8 @@ Partial Class Bancos_DepositosCaja DdlCajaChica.DataSource = GlobalDTBancosCuentas(UsuarioActual.CveUsuario, CveEmpresa:=UsuarioActual.CveEmpresa).FiltraParametros(" CveTipoCuenta = 1", "", {"CveCuenta", "NumCuentaMoneda"}) DdlCajaChica.DataBind() - 'código temporal, para claudia y toñita, monge, anadelia - If UsuarioActual.CveUsuario.Contiene(1937, 2452, 3358, 3033) Then + 'código temporal, para claudia y toñita, monge, anadelia, alba + If UsuarioActual.CveUsuario.Contiene(1937, 2452, 3358, 3033, 2897) Then DdlCajaChica.Items.Add(New ListItem("Todas", "-1")) End If @@ -302,6 +302,7 @@ Partial Class Bancos_DepositosCaja Dim CveVenta As Integer = Gvr.DataKey("CveVenta").ToEntero Dim CvePrePoliza As Integer = Gvr.DataKey("CvePrePoliza").ToEntero Dim CveCuentaBancaria As Integer = Gvr.DataKey("CveCuenta").ToEntero + Dim tCveSubProyecto As Integer = Gvr.DataKey("CveSubProyecto").ToEntero FolioIE = ObjBancos.GetNextFolio(CveCuentaBancaria, 2) If Not FolioIE > 0 Then @@ -311,7 +312,7 @@ Partial Class Bancos_DepositosCaja CveIEDestino = ObjBancos.AddBancos_IE(CveCuentaBancaria, 2, Fecha, FolioIE.ToString, String.Format("Depósito Bancario: {0}", SerieFolio), Importe, CveMoneda, 1, TxtObservaciones.Text, "", False, False, -1, NuevaCvePrePoliza, "-1", UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa) - If Not ObjContabilidad.AddPrePolizasDetalle(NuevaCvePrePoliza, True, Importe, SerieFolio, 30, String.Format("Depósito Bancario: {0}", SerieFolio), Fecha, IdCuentaBancariaDestino, -1, CveClasificacion:=CveClasificacion, CveSubProyecto:=CveSubProyecto, CveVenta:=CveVenta, CveIE:=CveIEDestino, ImporteMX:=Importe * TipoCambio) Then + If Not ObjContabilidad.AddPrePolizasDetalle(NuevaCvePrePoliza, True, Importe, SerieFolio, 30, String.Format("Depósito Bancario: {0}", SerieFolio), Fecha, IdCuentaBancariaDestino, -1, CveClasificacion:=CveClasificacion, CveSubProyecto:=tCveSubProyecto, CveVenta:=CveVenta, CveIE:=CveIEDestino, ImporteMX:=Importe * TipoCambio) Then OcurrioError = True Exit For End If diff --git a/Compras/CatProveedoresClasificaciones.aspx.vb b/Compras/CatProveedoresClasificaciones.aspx.vb index 038e00e54..623166051 100644 --- a/Compras/CatProveedoresClasificaciones.aspx.vb +++ b/Compras/CatProveedoresClasificaciones.aspx.vb @@ -90,8 +90,8 @@ Partial Class Compras_CatProveedoresClasificaciones End If End If - If ObjProveedorClasificacion.GetProveedorClasificacion(-1) Then - GlobalDTProveedorClasificacion(-1) = ObjProveedorClasificacion.DtResultados + If ObjProveedorClasificacion.GetProveedorClasificacion(UsuarioActual.CveEmpresa) Then + GlobalDTProveedorClasificacion(UsuarioActual.CveEmpresa) = ObjProveedorClasificacion.DtResultados End If RegistraScript(String.Format("$('#{0}').modal('hide');", "DivAddClasificacion")) diff --git a/Compras/Compras.aspx b/Compras/Compras.aspx index 7863393bd..d4347bc2b 100644 --- a/Compras/Compras.aspx +++ b/Compras/Compras.aspx @@ -155,11 +155,7 @@ .manita { cursor: pointer; } - - .centrarUM { - line-height: 40px; - } - + select.selecthidden { display: none; } @@ -766,7 +762,7 @@ <%-- 2 --%> - + @@ -2878,7 +2874,7 @@ - + @@ -4125,20 +4121,14 @@ Saldo -   - - - +   Fecha -   - - - +   @@ -4812,23 +4802,23 @@
-
- -
-
+

-
+
+ " style="display: inline-block; margin-right: -20px; width: 120px;" /> + " style="margin-top: -3px;" class="btn btn-circle btn-sm label-info"> +
+
-
-
+
+ <%# Eval("UUID")%> @@ -4844,7 +4835,7 @@ - + diff --git a/Compras/Compras.aspx.vb b/Compras/Compras.aspx.vb index 0cd09df4d..ca7ed2be2 100644 --- a/Compras/Compras.aspx.vb +++ b/Compras/Compras.aspx.vb @@ -1594,6 +1594,8 @@ Partial Class Compras_Compras NCSeleccionFacturasRelacionadas(UUIDSList) End If + + End If 'SE OCUPAN AFUERA DEL POSTBACK ?? @@ -3586,7 +3588,7 @@ Partial Class Compras_Compras Private Sub CargaPSAlias() - DdlPSAlias2.setEsWebService(UsuarioActual.Empresa.Funcionalidad(105) = "1") + DdlPSAlias2.setEsWebService(True) If UsuarioActual.CveEmpresa = 66 Then DdlPSAlias2.ddlWS.Attributes.Add("data-subfamilia", "-1") @@ -6940,8 +6942,9 @@ Partial Class Compras_Compras For Each rw As GridViewRow In GvDeudores.Rows If rw.FCCheckBox("Chk").Checked Then importeMovimiento = rw.FCTextBox("TxtSaldoDeudor").Text.ToDecimal - importeMN = importeMovimiento * tipoCambioActual * Multiplicador + importeMN = (importeMovimiento * tipoCambioActual * Multiplicador).RoundSQL IdCtaContable = CtaProveedorDeudores + Dim tCveProveedor As Integer = rw.DataKey("CveProveedor").ToEntero 'Conta ContPAQ If IdCtaContable = 0 Then @@ -6949,7 +6952,7 @@ Partial Class Compras_Compras idCuentaContabilizacion = 0 End If - If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, TipoMovimiento, importeMovimiento, Referencia, ConceptoContable, Concepto, FechaMovimiento, IdCtaContable, -1, CveCompra:=CveCompra, CveProveedor:=CveProveedorConcepto, CveIE:=rw.DataKey("CveIE").ToString.ToEntero, CvePersonal:=CvePersonal, CveCreditoDetalle:=CveCreditoDetalle, ImporteMX:=importeMN, ImporteME:=If(tipoCambioActual = 1, 0, importeMovimiento), Contabilizable:=SeContabiliza) Then + If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, TipoMovimiento, importeMovimiento, Referencia, ConceptoContable, Concepto, FechaMovimiento, IdCtaContable, -1, CveCompra:=CveCompra, CveProveedor:=tCveProveedor, CveIE:=rw.DataKey("CveIE").ToString.ToEntero, CvePersonal:=CvePersonal, CveCreditoDetalle:=CveCreditoDetalle, ImporteMX:=importeMN, ImporteME:=If(tipoCambioActual = 1, 0, importeMovimiento), Contabilizable:=SeContabiliza) Then ErrorPrepoliza = True : Exit For End If @@ -6961,10 +6964,11 @@ Partial Class Compras_Compras For Each rw As GridViewRow In GvDeudores.Rows If rw.FCCheckBox("Chk").Checked Then importeMovimiento = rw.FCTextBox("TxtSaldoDeudor").Text.ToDecimal - importeMN = importeMovimiento * tipoCambioActual * Multiplicador + importeMN = (importeMovimiento * tipoCambioActual * Multiplicador).RoundSQL IdCtaContable = CtaProveedorDeudores + Dim tCveProveedor As Integer = rw.DataKey("CveProveedor").ToEntero - If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, TipoMovimiento, importeMovimiento, Referencia, 254, Concepto, FechaMovimiento, IdCtaContable, -1, CveCompra:=CveCompra, CveProveedor:=CveProveedorConcepto, CveIE:=rw.DataKey("CveIE").ToString.ToEntero, CvePersonal:=CvePersonal, CveCreditoDetalle:=CveCreditoDetalle, ImporteMX:=importeMN, ImporteME:=If(tipoCambioActual = 1, 0, importeMovimiento), Contabilizable:=SeContabiliza) Then + If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, TipoMovimiento, importeMovimiento, Referencia, 254, Concepto, FechaMovimiento, IdCtaContable, -1, CveCompra:=CveCompra, CveProveedor:=tCveProveedor, CveIE:=rw.DataKey("CveIE").ToString.ToEntero, CvePersonal:=CvePersonal, CveCreditoDetalle:=CveCreditoDetalle, ImporteMX:=importeMN, ImporteME:=If(tipoCambioActual = 1, 0, importeMovimiento), Contabilizable:=SeContabiliza) Then ErrorPrepoliza = True Exit For End If @@ -10766,6 +10770,19 @@ Partial Class Compras_Compras 'e.Row.FCDropDownList("ddlEAlmacen").SelectedValue = If(e.Row.DBCampo("CveAlmacen").ToEntero <= 0, "-1", e.Row.DBCampo("CveAlmacen")) If UsuarioActual.Empresa.UsaAC Then e.Row.FCDropDownList("ddlEAlmacen").Enabled = False + + If UsuarioActual.Empresa.Funcionalidad(567) = "1" Then + If e.Row.FCDropDownList("ddlEAlmacen").Items.Count > 1 Then + + e.Row.FCDropDownList("ddlEAlmacen").SelectedIndex = 1 + e.Row.FCCheckBox("cbInv").Checked = True + + ddlAlmacenConsignacion_SelectedIndexChanged(e.Row.FCDropDownList("ddlEAlmacen"), Nothing) + CambiaTotalDevengar(Nothing, Nothing) + End If + End If + + If Not e.Row.DBCampo("CveMetodoInventario").ToString = "5" Then e.Row.FCTextBox("TbCantidad").Attributes.Add("onblur", String.Format("ValidarCantidad(this,{0})", If(e.Row.DBCampo("CantidadF").ToString.ToDecimal > e.Row.DBCampo("Cantidad").ToString.ToDecimal, e.Row.DBCampo("Cantidad"), e.Row.DBCampo("CantidadF")))) e.Row.FCTextBox("TbCantidad").Text = If(e.Row.DBCampo("CantidadF").ToString.ToDecimal > e.Row.DBCampo("Cantidad").ToString.ToDecimal, e.Row.DBCampo("Cantidad"), e.Row.DBCampo("CantidadF")) @@ -20133,35 +20150,24 @@ Partial Class Compras_Compras Private Sub NCSeleccionFacturasRelacionadas(UUIDSListRelacioandos As List(Of String)) - If UUIDSListRelacioandos.Count > 0 Then Dim SaldoNota As Decimal = TxtTotal.Text.ToDecimal Dim SaldoNotaPorAplicar As Decimal = SaldoNota Dim CountAplicacion As Integer = 0 - Dim sbNoencontrados As New StringBuilder - For Each UUID As String In UUIDSListRelacioandos - UUID = UUID.ToUpper Dim UUIDEncontrado As Boolean = False For Each GvRow As GridViewRow In GvFacturaNC.Rows Dim UUIDGv As String = GvRow.DataKey("UUID").Trim.ToUpper - - - If UUID.Trim.ToUpper = GvRow.DataKey("UUID").Trim.ToUpper Then + If UUID.Trim.ToUpper = UUIDGv Then UUIDEncontrado = True Exit For End If - Next - - If Not UUIDEncontrado Then - sbNoencontrados.Append($"{UUID},") - End If - + If Not UUIDEncontrado Then sbNoencontrados.Append($"{UUID},
") Next Dim TeminarAmortizacion As Boolean = False @@ -20176,19 +20182,18 @@ Partial Class Compras_Compras If SaldoFactura <= SaldoNotaPorAplicar Then SaldoNotaPorAplicar = SaldoNotaPorAplicar - SaldoFactura - GvRow.FCTextBox("TxtImporte").Text = SaldoFactura.ToString("###,###,###.00") + GvRow.FCTextBox("TxtImporte").Text = SaldoFactura.FormatoNumero GvRow.FCCheckBox("ChkFacturaNC").Checked = True Else If SaldoFactura >= SaldoNotaPorAplicar Then - GvRow.FCTextBox("TxtImporte").Text = SaldoNotaPorAplicar.ToString("###,###,###.00") + GvRow.FCTextBox("TxtImporte").Text = SaldoNotaPorAplicar.FormatoNumero GvRow.FCCheckBox("ChkFacturaNC").Checked = True SaldoNotaPorAplicar = 0 TeminarAmortizacion = True - Else - GvRow.FCTextBox("TxtImporte").Text = SaldoFactura.ToString("###,###,###.00") + GvRow.FCTextBox("TxtImporte").Text = SaldoFactura.FormatoNumero GvRow.FCCheckBox("ChkFacturaNC").Checked = True SaldoNotaPorAplicar = SaldoNotaPorAplicar - SaldoFactura @@ -20198,36 +20203,28 @@ Partial Class Compras_Compras CountAplicacion = CountAplicacion + 1 Exit For End If - - If SaldoNotaPorAplicar <= 0 Then TeminarAmortizacion = True Exit For End If - Next - If TeminarAmortizacion Then Exit For End If - Next + Dim TipoMensaje As TipoMensaje = TipoMensaje.ToastInformacion - Dim TipoMesaje As TipoMensaje = TipoMensaje.ToastInformacion - - TipoMesaje = If(sbNoencontrados.ToString.Length > 0 Or (SaldoNotaPorAplicar <> 0), TipoMensaje.ToastAdventencia, TipoMesaje) - - + TipoMensaje = If(sbNoencontrados.ToString.Length > 0 Or (SaldoNotaPorAplicar <> 0), TipoMensaje.ToastAdventencia, TipoMensaje) Dim MsgSalida As String = "" If sbNoencontrados.ToString.Length > 0 Then - MsgSalida = $"UUIDS no encotradas o sin saldo: {sbNoencontrados.ToString()}
" + MsgSalida = $"Folios Fiscales no encontradas o sin saldo: {sbNoencontrados }

" End If - MsgSalida = $"{MsgSalida}Se seleccionó {(SaldoNota - SaldoNotaPorAplicar).ToString("###,###,###.00")} de {SaldoNota.ToString("###,###,###.00")} a {CountAplicacion} factura{If(CountAplicacion > 0, "s", "")}." + MsgSalida = $"{MsgSalida} Se seleccionó $ {(SaldoNota - SaldoNotaPorAplicar).FormatoNumero} de $ {SaldoNota.FormatoNumero} a {CountAplicacion} factura {If(CountAplicacion > 0, "s", "")}." - Alert(MsgSalida, TipoMesaje) + Alert(MsgSalida, TipoMensaje) If CountAplicacion > 0 Then BtnFacturaNC_Click(Nothing, Nothing) @@ -20235,8 +20232,6 @@ Partial Class Compras_Compras End If - - End Sub @@ -20244,8 +20239,6 @@ End Class - - Public Class MMensajeDevolucion Public Property CveMovimiento As Integer Public Property TieneError As Boolean diff --git a/Contabilidad2/CatCuentas.aspx b/Contabilidad2/CatCuentas.aspx index 51bcc8812..58b1d4c79 100644 --- a/Contabilidad2/CatCuentas.aspx +++ b/Contabilidad2/CatCuentas.aspx @@ -115,7 +115,7 @@
Subcuenta de
-
diff --git a/Contabilidad2/CatCuentas.aspx.vb b/Contabilidad2/CatCuentas.aspx.vb index 6845bb71a..ac9f09bbf 100644 --- a/Contabilidad2/CatCuentas.aspx.vb +++ b/Contabilidad2/CatCuentas.aspx.vb @@ -331,7 +331,7 @@ Partial Class Contabilidad2_CatCuentas Dim ObjConta As New ClsContabilidad - If ObjConta.GetCuentas(-1, "-1", 1, UsuarioActual.CveEmpresa) Then + If ObjConta.GetCuentas(-1, "-1", -1, UsuarioActual.CveEmpresa) Then DdlCuentaContable.DataSource = ObjConta.DtResultados End If diff --git a/Empresas/15/Formatos/Factura.rdlc b/Empresas/15/Formatos/Factura.rdlc index 15b8dc996..033714ae1 100644 --- a/Empresas/15/Formatos/Factura.rdlc +++ b/Empresas/15/Formatos/Factura.rdlc @@ -926,7 +926,7 @@ - + @@ -1394,7 +1397,7 @@ 20.06179cm 10 - = (Parameters!AplicaPagare.Value="0" OrElse Parameters!AplicaPagare.Value="") + true diff --git a/Empresas/172/Formatos/OC.rdlc b/Empresas/172/Formatos/OC.rdlc index e9580c58c..2920340b9 100644 --- a/Empresas/172/Formatos/OC.rdlc +++ b/Empresas/172/Formatos/OC.rdlc @@ -682,6 +682,7 @@ DsOC + 0cm 0.04788in 0.36752in 8.15357in @@ -1702,7 +1703,7 @@ - Citrus Game, S.A. de C.V. + CITRUS GAME S.A.P.I. DE C.V.