diff --git a/App_Code/ClsClasificaciones.vb b/App_Code/ClsClasificaciones.vb index 72436f388..2be1a8152 100644 --- a/App_Code/ClsClasificaciones.vb +++ b/App_Code/ClsClasificaciones.vb @@ -346,6 +346,8 @@ Public Class ClsClasificaciones Catch Ex1 As SqlException If Ex1.Message.Contains("Número: 2627;") Then Alert("Ya existe una clasificación con el mismo nombre: " & Clasificacion & ".", TipoMensaje.MsgAdvertencia) + ElseIf Ex1.Message.Contains("TR_ClasificacionesUpCuenta") Then + Alert("No se puede registrar una prepóliza en un periodo cerrado. " & Clasificacion & ".", TipoMensaje.MsgAdvertencia) Else Me.OnError("Ocurrió un error al guardar los cambios en la Clasificación", Ex1, SqlAdapter.SelectCommand.Parameters.ParametrosInfo()) End If diff --git a/App_Code/ClsContabilidad.vb b/App_Code/ClsContabilidad.vb index 1cfd182a5..1f94c267d 100644 --- a/App_Code/ClsContabilidad.vb +++ b/App_Code/ClsContabilidad.vb @@ -3861,6 +3861,7 @@ Public Class ClsContabilidad Return Retorno End Function + Public Function GetAnexoCatalogo(IdCuenta As Integer, FechaI As Date, FechaF As Date, OpcionCuentas As Integer, CveSubProyecto As String, CveEmpresa As Integer, Optional TipoMovtos As Integer = -1, Optional SAT As Integer = 0) As Boolean Dim Retorno = False diff --git a/CRM/CatProbabilidadAcercamiento.aspx b/CRM/CatProbabilidadAcercamiento.aspx index 30b72d4c0..9e7699641 100644 --- a/CRM/CatProbabilidadAcercamiento.aspx +++ b/CRM/CatProbabilidadAcercamiento.aspx @@ -38,11 +38,12 @@ CssClass="table table-striped table-advance table-hover ScrollAD Widthall mysmallbtn" data-sort="true" GridLines="None" AutoGenerateColumns="false" OnRowDeleting="GVDatos_RowDeleting" OnRowDataBound="GVDatos_RowDataBound"> - + + <%-- - + --%> <%-- diff --git a/CRM/CatTipoProceso.aspx b/CRM/CatTipoProceso.aspx index cab84064b..42989a142 100644 --- a/CRM/CatTipoProceso.aspx +++ b/CRM/CatTipoProceso.aspx @@ -15,6 +15,12 @@
  • Agregar Tipo de Proceso
    • +
  • + PDF +
    • +
  • + Excel +
    • diff --git a/CRM/CatTipoProceso.aspx.cs b/CRM/CatTipoProceso.aspx.cs index 63c987665..4d8c68f10 100644 --- a/CRM/CatTipoProceso.aspx.cs +++ b/CRM/CatTipoProceso.aspx.cs @@ -5,7 +5,7 @@ using System.Web; using System.Web.UI; using System.Web.UI.WebControls; using System.Data; - +using Microsoft.Reporting.WebForms; using Extensiones; public partial class CRM_CatTipoProceso : ClsPaginas @@ -183,4 +183,36 @@ public partial class CRM_CatTipoProceso : ClsPaginas } #endregion + + protected void LnkImprimir_Click(object sender, EventArgs e) + { + Imprimir("PDF"); + } + + protected void LnkImprimirExcel_Click(object sender, EventArgs e) + { + Imprimir("EXCEL"); + } + + private void Imprimir(string formato) + { + System.IO.FileInfo Image = new System.IO.FileInfo(String.Format("{0}/Logo.png", UsuarioActual.Empresa.Ruta)); + string logouri = String.Format("{0}://{1}:{2}/Empresas/{3}/Logo.png", Request.Url.Scheme, Request.Url.Host, Request.Url.Port, UsuarioActual.CveEmpresa); + + List param = new List(); + + param.Add(new ReportParameter("NombreEmpresa", UsuarioActual.Empresa.Empresa)); + if (Image.Exists) + { + param.Add(new ReportParameter("LogoPath", logouri)); + } + else + { + param.Add(new ReportParameter("LogoPath", "")); + } + param.Add(new ReportParameter("UsuarioImprimio", UsuarioActual.Nombre)); + param.Add(new ReportParameter("FechaImpresion", DateTime.Today.ToString())); + + ImprimirPDF("Empresas/Grales/Formatos/RepCatTipoProceso.rdlc", TmpDT, param, "Report Cat Tipo Proceso", formato, RDSName: "DataSet1"); + } } \ No newline at end of file diff --git a/CRM/EmpresaCRM.aspx.cs b/CRM/EmpresaCRM.aspx.cs index 3e3673985..e68d731a6 100644 --- a/CRM/EmpresaCRM.aspx.cs +++ b/CRM/EmpresaCRM.aspx.cs @@ -302,7 +302,13 @@ public partial class CRM_EmpresaCRM : ClsPaginas } if (!ObjBitacora.AddEventoBitacora(Mensaje, "", UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, CveEmpresaCRM: CveEmpresaCRM)) + { HuboError = true; + }else + { + string asunto = String.Format("Se registró la empresa {0} con datos RFC: {1}, Vendedor: {2}", NombreEmpresa, RFC, Vendedor); + mandarCorreo(asunto, Mensaje); + } } } } @@ -316,10 +322,15 @@ public partial class CRM_EmpresaCRM : ClsPaginas if ((CveEncuestaAplicada != 0) && ObjCRM.UpdateEmpresCRM(NombreEmpresa, RFC, CveMedioCaptacion, CveEmpresaCRM, CveVendedorActualizar, UsuarioActual.CveUsuario, CveSubProyecto: CveSubProyecto, Correo: Correo)) { - //if (ObjBitacora.AddEventoBitacora(String.Format("Se actualizó la empresa {0} con RFC {1}", NombreEmpresa, RFC), "", UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, CveEmpresaCRM: CveEmpresaCRM)) - //{ - HuboError = false; - //} + if (!ObjBitacora.AddEventoBitacora(String.Format("Se actualizó la empresa {0} con RFC {1}", NombreEmpresa, RFC), "", UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, CveEmpresaCRM: CveEmpresaCRM)) + { + HuboError = true; + }else + { + string asunto = String.Format("Se actualizó la empresa {0}",NombreEmpresa); + string mensaje = String.Format("Se actualizó la empresa {0} con RFC {1} por el usuario {2}", NombreEmpresa, RFC,UsuarioActual.Nombre); + mandarCorreo(asunto, mensaje); + } } } @@ -856,6 +867,9 @@ public partial class CRM_EmpresaCRM : ClsPaginas if (ObjBitacora.AddEventoBitacora(String.Format("Se registró un Contacto con Nombre: {0}{1}{2}{3}", NombreContacto, TelefonoOficina, Celular, Correo), "", UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, CveEmpresaCRM: CveEmpresaCRM)) { + string asunto = "Se registró un Contacto"; + string mensaje = String.Format("Se registró un Contacto con Nombre: {0}{1}{2}{3}. Realzado por el usuario {4}", NombreContacto, TelefonoOficina, Celular, Correo,UsuarioActual.Nombre); + mandarCorreo(asunto, mensaje); HuboError = false; Alert("El Contacto fue creado correctamente.", ModExtensiones.TipoMensaje.MsgInformacion); } @@ -933,7 +947,12 @@ public partial class CRM_EmpresaCRM : ClsPaginas Alert("El Contacto ha sido eliminado.", ModExtensiones.TipoMensaje.MsgInformacion); if (ObjBitacora.AddEventoBitacora(String.Format("Se eliminó el contacto {0}", NombreContacto), "", UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, CveEmpresaCRM: CveEmpresaCRM)) + { + string asunto = "Se eliminó el contacto"; + string mensaje = String.Format("Se eliminó el contacto {0} por el usuario {1}", NombreContacto,UsuarioActual.Nombre); + mandarCorreo(asunto, mensaje); ObjCRM.Commit(); + } } else { @@ -1079,6 +1098,7 @@ public partial class CRM_EmpresaCRM : ClsPaginas if (ObjEventos.AddEventoAgenda(DdlTipoAgenda.SelectedValue.ToEntero(), TxtAsuntoAgenda.Text, TxtDescripcionAgenda.Text, DdlPrioridadAgenda.SelectedValue.ToEntero(), FechaInicio, FechaInicio, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, CveEmpresaCRM: CveEmpresaCRM, CveContactoCRM: DdlContactoAgenda.SelectedValue.ToEntero())) { + mandarCorreo(TxtAsuntoAgenda.Text, TxtDescripcionAgenda.Text); limpiarModalAgendar(); RegistraScript("$('#ModalAgenda').modal('hide')"); Alert("El Evento se agendó correctamente", ModExtensiones.TipoMensaje.MsgInformacion); @@ -1389,6 +1409,9 @@ public partial class CRM_EmpresaCRM : ClsPaginas { if (ObjBitacora.AddEventoBitacora(String.Format("Se registró el Acercamiento {0} como Proceso de Tipo {1}, con Vendedor {2} y Contacto Principal {3}.", NombreAcercamiento, DdlTipoProceso.SelectedItem, DdlVendedor.SelectedItem, DdlContactoPrincipal.SelectedValue == "-1" ? "aun no asignado" : DdlContactoPrincipal.SelectedItem.Text), "", UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, CveEmpresaCRM: CveEmpresaCRM, CveTipoProcesoCRM: CveTipoProceso, CveAcercamientoCRM: CveAcercamiento, CveContactoCRM: CveContactoPrincipal, CveEtapaProcesoCRM: CveEtapaProcesoActual)) { + string asunto = String.Format("Se registró el Acercamiento {0}",NombreAcercamiento); + string mensaje = String.Format("Se registró el Acercamiento {0} como Proceso de Tipo {1}, con Vendedor {2} y Contacto Principal {3}.", NombreAcercamiento, DdlTipoProceso.SelectedItem, DdlVendedor.SelectedItem, DdlContactoPrincipal.SelectedValue == "-1" ? "aun no asignado" : DdlContactoPrincipal.SelectedItem.Text); + mandarCorreo(asunto, mensaje); HuboError = false; } } @@ -1471,4 +1494,17 @@ public partial class CRM_EmpresaCRM : ClsPaginas } } #endregion + private void mandarCorreo(string Asunto, string body) + { + DataTable Usuarios = get_GlobalDTUsuarios(CveEmpresa:UsuarioActual.CveEmpresa); + int CveUsuario = Usuarios.FiltroPrimeroValor("CveUsuario",String.Format("CveVendedor = {0}",DdlVendedor.SelectedValue)).ToEntero(); + if (CveUsuario != UsuarioActual.CveUsuario) + { + string correoVendedor = Usuarios.FiltroPrimeroValor("Correo", String.Format("CveUsuario = {0}", CveUsuario)); + ClsSisMail Mail = new ClsSisMail(); + List LSRutasMail = new List(); + //ClsSisMail.ArchivoMail itemMail = new ClsSisMail.ArchivoMail(); + Mail.SendMail(ClsPaginas.EmpresaNotificaciones, correoVendedor, Asunto,body); + } + } } \ No newline at end of file diff --git a/CRM/RepAcercamientosProcesos.aspx b/CRM/RepAcercamientosProcesos.aspx index 20b4d8e37..86033c53b 100644 --- a/CRM/RepAcercamientosProcesos.aspx +++ b/CRM/RepAcercamientosProcesos.aspx @@ -34,7 +34,7 @@
  • - Ver Grafica +
    • @@ -86,6 +86,7 @@ + @@ -98,6 +99,7 @@ + diff --git a/CRM/RepAcercamientosProcesos.aspx.cs b/CRM/RepAcercamientosProcesos.aspx.cs index 420dff2cd..b37b05f13 100644 --- a/CRM/RepAcercamientosProcesos.aspx.cs +++ b/CRM/RepAcercamientosProcesos.aspx.cs @@ -107,6 +107,14 @@ public partial class CRM_RepAcercamientosProcesos : ClsPaginas DdlMedioCaptacion.SelectedValue = "-1"; DdlProbabilidad.SelectedValue = "-1"; DdlTipoProceso.SelectedIndex = 0; + + int n; + string CveProbabilidadAcercamiento = Request["CveProbabilidadAcercamiento"]; + bool isNumeric = int.TryParse(CveProbabilidadAcercamiento, out n); + if (isNumeric) + { + DdlProbabilidad.SelectedValue = CveProbabilidadAcercamiento; + } upDatosRepA.Update(); } protected void cargarDatos() diff --git a/CRM/RepAcercamientosRechazos.aspx b/CRM/RepAcercamientosRechazos.aspx index 380159036..92c87d3e6 100644 --- a/CRM/RepAcercamientosRechazos.aspx +++ b/CRM/RepAcercamientosRechazos.aspx @@ -34,7 +34,7 @@
  • - Ver Grafica +
    • @@ -86,6 +86,7 @@ + @@ -98,6 +99,7 @@ + diff --git a/Contabilidad2/RepBalanceGeneralHorizontal.aspx b/Contabilidad2/RepBalanceGeneralHorizontal.aspx index d43ed39fe..54d5f2b59 100644 --- a/Contabilidad2/RepBalanceGeneralHorizontal.aspx +++ b/Contabilidad2/RepBalanceGeneralHorizontal.aspx @@ -722,7 +722,7 @@ - + @@ -828,11 +828,11 @@ <%-- --%> - + - +     @@ -1053,17 +1053,18 @@ --%> <%----%> - + - + - +

    + @@ -1119,7 +1120,7 @@     - + @@ -1273,20 +1274,26 @@ - <%-- + - + - --%> + <%----%> + + + + + + <%----%> diff --git a/Contabilidad2/RepBalanceGeneralHorizontal.aspx.vb b/Contabilidad2/RepBalanceGeneralHorizontal.aspx.vb index 27be0dd30..97763f31b 100644 --- a/Contabilidad2/RepBalanceGeneralHorizontal.aspx.vb +++ b/Contabilidad2/RepBalanceGeneralHorizontal.aspx.vb @@ -430,9 +430,12 @@ Partial Class Contabilidad_RepBalanceGeneralHorizontal GvActivo.Columns(2).HeaderText = (DdlEjercicio.SelectedValue.ToEntero - 1).ToString GvPasivo.Columns(1).HeaderText = DdlEjercicio.SelectedValue - GvPasivo.Columns(2).HeaderText = (DdlEjercicio.SelectedValue.ToEntero - 1).ToString - - Dim CveSubProyecto As Integer = DdlSubproyecto.SelectedValue.ToEntero + GvPasivo.Columns(2).HeaderText = (DdlEjercicio.SelectedValue.ToEntero - 1).ToString + + + + + Dim CveSubProyecto As Integer = If(DdlSubproyecto.SelectedValue.ToEntero = -1, -2, DdlSubproyecto.SelectedValue.ToEntero) If ObjConta.GetSituacionFinanciera2("01/01/1900".ToDate, FechaF.ToDate, CveSubProyecto, DdlDivisor.SelectedValue.ToEntero, UsuarioActual.CveEmpresa, UsuarioActual.CveUsuario, TipoReporte) Then DtDatos = ObjConta.DtResultados @@ -838,7 +841,7 @@ Partial Class Contabilidad_RepBalanceGeneralHorizontal params.Add(New ReportParameter("pFirma2", If(ChkFirma.Checked, String.Format("{0}l", vbCrLf), ""))) params.Add(New ReportParameter("pFechaFin", FechaF)) params.Add(New ReportParameter("periodo", String.Format("de {0} {1}", DdlPeriodo.SelectedItem.ToString, DdlEjercicio.SelectedItem.ToString))) - ImprimirPDF(reportpath, DtDatos, params, fileName, Formato) + 'ImprimirPDF(reportpath, DtDatos, params, fileName, Formato) End Sub @@ -852,7 +855,7 @@ Partial Class Contabilidad_RepBalanceGeneralHorizontal FechaIMes = $"01/01/1900" FechaFMes = $"31/12/{DdlEjercicio.SelectedValue}" - Dim CveSubProyecto As Integer = DdlSubproyecto.SelectedValue.ToEntero + Dim CveSubProyecto As Integer = If(DdlSubproyecto.SelectedValue.ToEntero = -1, -2, DdlSubproyecto.SelectedValue.ToEntero) 'Dim ObjConta As New ClsContPAQi(UsuarioActual.Empresa) Dim ObjConta As New ClsContabilidad @@ -1243,7 +1246,7 @@ Partial Class Contabilidad_RepBalanceGeneralHorizontal RowAF.Item("Noviembre") = DT_ACTIVO.SUM("Noviembre", "NOT CtaMayor in (-1,3,4)") - DT_PASIVO.SUM("Noviembre", "NOT CtaMayor in (-1,3,4)") - DT_CAPITAL_CONTABLE.SUM("Noviembre", "NOT CtaMayor in (-1,3,4)") RowAF.Item("Diciembre") = DT_ACTIVO.SUM("Diciembre", "NOT CtaMayor in (-1,3,4)") - DT_PASIVO.SUM("Diciembre", "NOT CtaMayor in (-1,3,4)") - DT_CAPITAL_CONTABLE.SUM("Diciembre", "NOT CtaMayor in (-1,3,4)") - RowAF.Item("Nombre") = "Resultados del Ejercicio:" + RowAF.Item("Nombre") = "TOTALES" RowAF.Item("CtaMayor") = -1 RowAF.Item("ImporteAcumulado") = DT_ACTIVO.SUM("ImporteAcumulado", "NOT CtaMayor in (-1,3,4)") - DT_PASIVO.SUM("ImporteAcumulado", "NOT CtaMayor in (-1,3,4)") - DT_CAPITAL_CONTABLE.SUM("ImporteAcumulado", "NOT CtaMayor in (-1,3,4)") ' TotalAnterior.ToString DT_TOTALES.Rows.Add(RowAF) @@ -1365,7 +1368,7 @@ Partial Class Contabilidad_RepBalanceGeneralHorizontal FechaIMes = $"01/01/1900" FechaFMes = $"31/12/{DdlEjercicio.SelectedValue}" - Dim CveSubProyecto As Integer = DdlSubproyecto.SelectedValue.ToEntero + Dim CveSubProyecto As Integer = If(DdlSubproyecto.SelectedValue.ToEntero = -1, -2, DdlSubproyecto.SelectedValue.ToEntero) Dim ObjConta As New ClsContabilidad @@ -1504,7 +1507,7 @@ Partial Class Contabilidad_RepBalanceGeneralHorizontal Row.Item(IndexData) = DT_ACTIVO_FIJO.SUM($"[{DT_ACTIVO_FIJO.Columns(IndexData).ColumnName}]", "NOT CtaMayor in (3,4)") Next - Row.Item("Nombre") = "TOTAL ACTIVO CIRCULANTE" + Row.Item("Nombre") = "TOTAL ACTIVO NO CIRCULANTE" Row.Item("ImporteActual") = DT_ACTIVO_FIJO.SUM("ImporteActual", "NOT CtaMayor in (3,4)") Row.Item("PorcentajeActual") = 100.0 Row.Item("ImporteAcumulado") = DT_ACTIVO_FIJO.SUM("ImporteAcumulado", "NOT CtaMayor in (3,4)") @@ -1512,7 +1515,7 @@ Partial Class Contabilidad_RepBalanceGeneralHorizontal Row.Item("CtaMayor") = -1 DT_ACTIVO_FIJO.Rows.Add(Row) Else - Row.Item("Nombre") = "TOTAL ACTIVO CIRCULANTE" + Row.Item("Nombre") = "TOTAL ACTIVO NO CIRCULANTE" Row.Item("ImporteActual") = "0.00" Row.Item("ImporteAcumulado") = "0.00" Row.Item("CtaMayor") = -1 @@ -1531,15 +1534,15 @@ Partial Class Contabilidad_RepBalanceGeneralHorizontal Row.Item(IndexData) = DT_ACTIVO_DIFERIDO.SUM($"[{DT_ACTIVO_DIFERIDO.Columns(IndexData).ColumnName}]", "NOT CtaMayor in (3,4)") Next - Row.Item("Nombre") = "TOTAL ACTIVO CIRCULANTE" - Row.Item("ImporteActual") = DtIngresosAnualH.SUM("ImporteActual", "NOT CtaMayor in (3,4)") + Row.Item("Nombre") = "TOTAL ACTIVO DIFERIDO" + Row.Item("ImporteActual") = DT_ACTIVO_DIFERIDO.SUM("ImporteActual", "NOT CtaMayor in (3,4)") Row.Item("PorcentajeActual") = 100.0 - Row.Item("ImporteAcumulado") = DtIngresosAnualH.SUM("ImporteAcumulado", "NOT CtaMayor in (3,4)") + Row.Item("ImporteAcumulado") = DT_ACTIVO_DIFERIDO.SUM("ImporteAcumulado", "NOT CtaMayor in (3,4)") Row.Item("PorcentajeAcumulado") = 100.0 Row.Item("CtaMayor") = -1 DT_ACTIVO_DIFERIDO.Rows.Add(Row) Else - Row.Item("Nombre") = "TOTAL ACTIVO CIRCULANTE" + Row.Item("Nombre") = "TOTAL ACTIVO DIFERIDO" Row.Item("ImporteActual") = "0.00" Row.Item("ImporteAcumulado") = "0.00" Row.Item("CtaMayor") = -1 @@ -1557,15 +1560,15 @@ Partial Class Contabilidad_RepBalanceGeneralHorizontal Row.Item(IndexData) = DT_PASIVO_CIRCULANTE.SUM($"[{DT_PASIVO_CIRCULANTE.Columns(IndexData).ColumnName}]", "NOT CtaMayor in (3,4)") Next - Row.Item("Nombre") = "TOTAL ACTIVO CIRCULANTE" - Row.Item("ImporteActual") = DtIngresosAnualH.SUM("ImporteActual", "NOT CtaMayor in (3,4)") + Row.Item("Nombre") = "TOTAL PASIVO CIRCULANTE" + Row.Item("ImporteActual") = DT_PASIVO_CIRCULANTE.SUM("ImporteActual", "NOT CtaMayor in (3,4)") Row.Item("PorcentajeActual") = 100.0 - Row.Item("ImporteAcumulado") = DtIngresosAnualH.SUM("ImporteAcumulado", "NOT CtaMayor in (3,4)") + Row.Item("ImporteAcumulado") = DT_PASIVO_CIRCULANTE.SUM("ImporteAcumulado", "NOT CtaMayor in (3,4)") Row.Item("PorcentajeAcumulado") = 100.0 Row.Item("CtaMayor") = -1 DT_PASIVO_CIRCULANTE.Rows.Add(Row) Else - Row.Item("Nombre") = "TOTAL ACTIVO CIRCULANTE" + Row.Item("Nombre") = "TOTAL PASIVO CIRCULANTE" Row.Item("ImporteActual") = "0.00" Row.Item("ImporteAcumulado") = "0.00" Row.Item("CtaMayor") = -1 @@ -1583,15 +1586,15 @@ Partial Class Contabilidad_RepBalanceGeneralHorizontal Row.Item(IndexData) = DT_PASIVO_NO_CIRCULANTE.SUM($"[{DT_PASIVO_NO_CIRCULANTE.Columns(IndexData).ColumnName}]", "NOT CtaMayor in (3,4)") Next - Row.Item("Nombre") = "TOTAL ACTIVO CIRCULANTE" - Row.Item("ImporteActual") = DtIngresosAnualH.SUM("ImporteActual", "NOT CtaMayor in (3,4)") + Row.Item("Nombre") = "TOTAL PASIVO NO CIRCULANTE" + Row.Item("ImporteActual") = DT_PASIVO_NO_CIRCULANTE.SUM("ImporteActual", "NOT CtaMayor in (3,4)") Row.Item("PorcentajeActual") = 100.0 - Row.Item("ImporteAcumulado") = DtIngresosAnualH.SUM("ImporteAcumulado", "NOT CtaMayor in (3,4)") + Row.Item("ImporteAcumulado") = DT_PASIVO_NO_CIRCULANTE.SUM("ImporteAcumulado", "NOT CtaMayor in (3,4)") Row.Item("PorcentajeAcumulado") = 100.0 Row.Item("CtaMayor") = -1 DT_PASIVO_NO_CIRCULANTE.Rows.Add(Row) Else - Row.Item("Nombre") = "TOTAL ACTIVO CIRCULANTE" + Row.Item("Nombre") = "TOTAL PASIVO NO CIRCULANTE" Row.Item("ImporteActual") = "0.00" Row.Item("ImporteAcumulado") = "0.00" Row.Item("CtaMayor") = -1 @@ -1609,15 +1612,15 @@ Partial Class Contabilidad_RepBalanceGeneralHorizontal Row.Item(IndexData) = DT_CAPITAL_CONTABLE.SUM($"[{DT_CAPITAL_CONTABLE.Columns(IndexData).ColumnName}]", "NOT CtaMayor in (3,4)") Next - Row.Item("Nombre") = "TOTAL ACTIVO CIRCULANTE" - Row.Item("ImporteActual") = DtIngresosAnualH.SUM("ImporteActual", "NOT CtaMayor in (3,4)") + Row.Item("Nombre") = "TOTAL CAPITAL CONTABLE" + Row.Item("ImporteActual") = DT_CAPITAL_CONTABLE.SUM("ImporteActual", "NOT CtaMayor in (3,4)") Row.Item("PorcentajeActual") = 100.0 - Row.Item("ImporteAcumulado") = DtIngresosAnualH.SUM("ImporteAcumulado", "NOT CtaMayor in (3,4)") + Row.Item("ImporteAcumulado") = DT_CAPITAL_CONTABLE.SUM("ImporteAcumulado", "NOT CtaMayor in (3,4)") Row.Item("PorcentajeAcumulado") = 100.0 Row.Item("CtaMayor") = -1 DT_CAPITAL_CONTABLE.Rows.Add(Row) Else - Row.Item("Nombre") = "TOTAL ACTIVO CIRCULANTE" + Row.Item("Nombre") = "TOTAL CAPITAL CONTABLE" Row.Item("ImporteActual") = "0.00" Row.Item("ImporteAcumulado") = "0.00" Row.Item("CtaMayor") = -1 @@ -1646,7 +1649,7 @@ Partial Class Contabilidad_RepBalanceGeneralHorizontal Next Row.Item("Nombre") = "TOTAL ACTIVO" - Row.Item("ImporteActual") = DT_ACTIVO.SUM("ImporteActual", "NOT CtaMayor in (3,4)") + Row.Item("ImporteActual") = DT_ACTIVO.SUM("ImporteActual", "NOT CtaMayor in (-1,3,4)") Row.Item("PorcentajeActual") = 100.0 Row.Item("ImporteAcumulado") = DT_ACTIVO.SUM("ImporteAcumulado", "NOT CtaMayor in (-1,3,4)") Row.Item("PorcentajeAcumulado") = 100.0 @@ -1693,7 +1696,7 @@ Partial Class Contabilidad_RepBalanceGeneralHorizontal If DT_TOTALES.Rows.Count > 0 Then - Row = DTTotalesAnualH.NewRow + Row = DT_TOTALES.NewRow IndexData = 11 @@ -1701,11 +1704,13 @@ Partial Class Contabilidad_RepBalanceGeneralHorizontal Row.Item(IndexData) = DT_ACTIVO.SUM($"[{DT_ACTIVO.Columns(IndexData).ColumnName}]", "Not CtaMayor In (-1,3,4)") - DT_PASIVO.SUM($"[{DT_PASIVO.Columns(IndexData).ColumnName}]", "Not CtaMayor In (-1,3,4)") - DT_CAPITAL_CONTABLE.SUM($"[{DT_CAPITAL_CONTABLE.Columns(IndexData).ColumnName}]", "Not CtaMayor In (-1,3,4)") Next - Row.Item("Nombre") = "Resultados del Ejercicio" + Row.Item("Nombre") = "TOTALES" + Row.Item("CtaMayor") = -1 + Row.Item("ImporteActual") = DT_ACTIVO.SUM($"ImporteActual", "Not CtaMayor in (-1,3,4)") - DT_PASIVO.SUM($"ImporteActual", "Not CtaMayor in (-1,3,4)") - DT_CAPITAL_CONTABLE.SUM($"ImporteActual", "Not CtaMayor in (-1,3,4)") Row.Item("ImporteAcumulado") = DT_ACTIVO.SUM($"ImporteAcumulado", "Not CtaMayor in (-1,3,4)") - DT_PASIVO.SUM($"ImporteAcumulado", "Not CtaMayor in (-1,3,4)") - DT_CAPITAL_CONTABLE.SUM($"ImporteAcumulado", "Not CtaMayor in (-1,3,4)") - DTTotalesAnualH.Rows.Add(Row) + DT_TOTALES.Rows.Add(Row) End If @@ -1934,6 +1939,8 @@ Partial Class Contabilidad_RepBalanceGeneralHorizontal Row.Item("ImporteAcumulado") = DT_ACTIVO_CIRCULANTE.SUM("ImporteActual", "NOT CtaMayor in (3,4)") 'TotalAnterior.ToString Row.Item("PorcentajeAcumulado") = 100.0 Row.Item("CtaMayor") = -1 + Row.Item("SinSP") = DT_ACTIVO_CIRCULANTE.SUM("SinSP", "NOT CtaMayor in (3,4)") 'Sin SP + DT_ACTIVO_CIRCULANTE.Rows.Add(Row) Else Row.Item("Nombre") = "TOTAL ACTIVO CIRCULANTE" @@ -1965,6 +1972,7 @@ Partial Class Contabilidad_RepBalanceGeneralHorizontal Row.Item("ImporteAcumulado") = DT_ACTIVO_FIJO.SUM("ImporteActual", "NOT CtaMayor in (3,4)") 'TotalAnterior.ToString Row.Item("PorcentajeAcumulado") = 100.0 Row.Item("CtaMayor") = -1 + Row.Item("SinSP") = DT_ACTIVO_FIJO.SUM("SinSP", "NOT CtaMayor in (3,4)") 'Sin SP DT_ACTIVO_FIJO.Rows.Add(Row) Else Row.Item("Nombre") = "TOTAL ACTIVO NO CIRCULANTE" @@ -1996,6 +2004,7 @@ Partial Class Contabilidad_RepBalanceGeneralHorizontal Row.Item("ImporteAcumulado") = DT_ACTIVO_DIFERIDO.SUM("ImporteActual", "NOT CtaMayor in (3,4)") 'TotalAnterior.ToString Row.Item("PorcentajeAcumulado") = 100.0 Row.Item("CtaMayor") = -1 + Row.Item("SinSP") = DT_ACTIVO_DIFERIDO.SUM("SinSP", "NOT CtaMayor in (3,4)") 'Sin SP DT_ACTIVO_DIFERIDO.Rows.Add(Row) Else Row.Item("Nombre") = "TOTAL ACTIVO DIFERIDO" @@ -2027,6 +2036,7 @@ Partial Class Contabilidad_RepBalanceGeneralHorizontal Row.Item("ImporteAcumulado") = DT_PASIVO_CIRCULANTE.SUM("ImporteActual", "NOT CtaMayor in (3,4)") 'TotalAnterior.ToString Row.Item("PorcentajeAcumulado") = 100.0 Row.Item("CtaMayor") = -1 + Row.Item("SinSP") = DT_PASIVO_CIRCULANTE.SUM("SinSP", "NOT CtaMayor in (3,4)") 'Sin SP DT_PASIVO_CIRCULANTE.Rows.Add(Row) Else Row.Item("Nombre") = "TOTAL PASIVO CIRCULANTE" @@ -2064,6 +2074,7 @@ Partial Class Contabilidad_RepBalanceGeneralHorizontal Row.Item("ImporteActual") = 0.00 Row.Item("ImporteAcumulado") = 0.00 Row.Item("CtaMayor") = -1 + Row.Item("SinSP") = DT_PASIVO_NO_CIRCULANTE.SUM("SinSP", "NOT CtaMayor in (3,4)") 'Sin SP DT_PASIVO_NO_CIRCULANTE.Rows.Add(Row) End If @@ -2090,6 +2101,7 @@ Partial Class Contabilidad_RepBalanceGeneralHorizontal Row.Item("ImporteAcumulado") = DT_CAPITAL_CONTABLE.SUM("ImporteActual", "NOT CtaMayor in (3,4)") 'TotalAnterior.ToString Row.Item("PorcentajeAcumulado") = 100.0 Row.Item("CtaMayor") = -1 + Row.Item("SinSP") = DT_CAPITAL_CONTABLE.SUM("SinSP", "NOT CtaMayor in (3,4)") 'Sin SP DT_CAPITAL_CONTABLE.Rows.Add(Row) Else Row.Item("Nombre") = "TOTAL CAPITAL CONTABLE" @@ -2129,6 +2141,7 @@ Partial Class Contabilidad_RepBalanceGeneralHorizontal Row.Item("ImporteAcumulado") = DT_ACTIVO.SUM("ImporteActual", "NOT CtaMayor in (-1,3,4)") 'TotalAnterior.ToString Row.Item("PorcentajeAcumulado") = 100.0 Row.Item("CtaMayor") = -1 + Row.Item("SinSP") = DT_ACTIVO.SUM("SinSP", "NOT CtaMayor in (-1,3,4)") 'Sin SP DT_ACTIVO.Rows.Add(Row) Else Row.Item("Nombre") = "TOTAL ACTIVO" @@ -2160,6 +2173,7 @@ Partial Class Contabilidad_RepBalanceGeneralHorizontal Row.Item("ImporteAcumulado") = DT_PASIVO.SUM("ImporteActual", "NOT CtaMayor in (-1,3,4)") 'TotalAnterior.ToString Row.Item("PorcentajeAcumulado") = 100.0 Row.Item("CtaMayor") = -1 + Row.Item("SinSP") = DT_PASIVO.SUM("SinSP", "NOT CtaMayor in (-1,3,4)") 'Sin SP DT_PASIVO.Rows.Add(Row) Else Row.Item("Nombre") = "TOTAL PASIVO" @@ -2192,6 +2206,7 @@ Partial Class Contabilidad_RepBalanceGeneralHorizontal Row.Item("ImporteAcumulado") = DT_ACTIVO.SUM($"ImporteAcumulado", "NOT CtaMayor in (-1,3,4)") - DT_PASIVO.SUM($"ImporteAcumulado", "NOT CtaMayor in (-1,3,4)") - DT_CAPITAL_CONTABLE.SUM($"ImporteAcumulado", "NOT CtaMayor in (-1,3,4)") Row.Item("CtaMayor") = -2 + Row.Item("SinSP") = DT_TOTALES.SUM("SinSP", "NOT CtaMayor in (-1,3,4)") 'Sin SP DT_TOTALES.Rows.Add(Row) @@ -2245,13 +2260,13 @@ Partial Class Contabilidad_RepBalanceGeneralHorizontal Dim CveSubProyectoIntermo As String = CType(GvIngresosSubProyectoH.Columns(IndiceInicio), BoundField).DataField Dim Importe As String = e.Row.Cells(IndiceInicio).Text - - e.Row.Cells(IndiceInicio).Text = $"{Importe}" Next IndiceInicio e.Row.FCHyperLink("HLAnterior").NavigateUrl = $"./RepAnexoCatalogo.aspx?CveCuenta={CveCuenta}&FF={FEchaMesFinal.ToString("dd/MM/yyyy")}&FI=01/01/1900&ER=1&CveSubProyecto={-1}" + e.Row.FCHyperLink("HLSinSP").NavigateUrl = $"./RepAnexoCatalogo.aspx?CveCuenta={CveCuenta}&FF={FEchaMesFinal.ToString("dd/MM/yyyy")}&FI=01/01/1900&ER=1&CveSubProyecto=0" + End If If e.Row.DBCampo("ImporteAcumulado").ToString.ToDouble < 0 Then diff --git a/Contabilidad2/RepEstadoResultadosHorizontal.aspx b/Contabilidad2/RepEstadoResultadosHorizontal.aspx index 80ddf6def..f4afe80d8 100644 --- a/Contabilidad2/RepEstadoResultadosHorizontal.aspx +++ b/Contabilidad2/RepEstadoResultadosHorizontal.aspx @@ -1,21 +1,21 @@ -<%@ Page Title="" Language="VB" MasterPageFile="~/Site.master" AutoEventWireup="false" CodeFile="RepEstadoResultadosHorizontal.aspx.vb" Inherits="Contabilidad_RepEstadoResultadosHorizontal" %> - - - - - - - - - - - - - - - - - +<%@ Page Title="" Language="VB" MasterPageFile="~/Site.master" AutoEventWireup="false" CodeFile="RepEstadoResultadosHorizontal.aspx.vb" Inherits="Contabilidad_RepEstadoResultadosHorizontal" %> + + + + + + + + + + + + + + + + +
    @@ -38,7 +38,7 @@
    - +
    @@ -80,8 +80,8 @@
    -     - + + @@ -1010,11 +1010,11 @@ - - - - - -     - - + + + + + +     + + diff --git a/Empresas/141/Formatos/Factura.rdlc b/Empresas/141/Formatos/Factura.rdlc index ca6ada751..00b8b801b 100644 --- a/Empresas/141/Formatos/Factura.rdlc +++ b/Empresas/141/Formatos/Factura.rdlc @@ -2462,7 +2462,29 @@ - Tipo de Comprobante:I Ingreso,Moneda: + Tipo de Comprobante:I + + + + =UCase(Parameters!TipoDocumento.Value) + + + + ,Moneda: