AdminADS/SIG
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Merge branch 'master' of http://adsistemasof.sytes.net:8383/SIG

Browse Source
This commit is contained in:
JORGE LUIS CAUDILLO ESPARZA
2020-04-24 19:17:41 -07:00
parent b8ff174c74 8ec0493577
commit 14a5e172d4
16 changed files with 246 additions and 84 deletions
Download Patch File Download Diff File Expand all files Collapse all files

2
App_Code/ClsClasificaciones.vb
View File

@@ -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

1
App_Code/ClsContabilidad.vb
View File

@@ -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

5
CRM/CatProbabilidadAcercamiento.aspx
View File

@@ -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">
<Columns>
<asp:TemplateField HeaderText="Probabilidad de Acercamiento" ItemStyle-Width="30%" ItemStyle-HorizontalAlign="Left">
<asp:HyperLinkField HeaderText="Probabilidad de Acercamiento" DataTextField="ProbabilidadAcercamiento" DataNavigateUrlFields="CveProbabilidadAcercamiento" DataNavigateUrlFormatString="/CRM/RepAcercamientosProcesos.aspx?CveProbabilidadAcercamiento={0}"/>
<%--<asp:TemplateField HeaderText="Probabilidad de Acercamiento" ItemStyle-Width="30%" ItemStyle-HorizontalAlign="Left">
<ItemTemplate>
<asp:Label ID="lblProbabilidadAcercamiento" runat="server" Text='<%# Eval("ProbabilidadAcercamiento")%>'> </asp:Label>
</ItemTemplate>
</asp:TemplateField>
</asp:TemplateField>--%>
<%-- <asp:TemplateField HeaderText="Descripción" ItemStyle-Width="25%" ItemStyle-HorizontalAlign="Left">
<ItemTemplate>
<asp:Label ID="lblDescripcion" runat="server" Text='<%# Eval("Descripcion")%>'> </asp:Label>

6
CRM/CatTipoProceso.aspx
View File

@@ -15,6 +15,12 @@
<li>
<asp:LinkButton ID="LnkAgregarTipoProceso" OnClick="LnkAgregarTipoProceso_Click" runat="server"><i class="fa fa-plus"></i><span style="padding-left:5px;">Agregar Tipo de Proceso</span></asp:LinkButton>
</li>
<li>
<asp:LinkButton ID="LnkImprimir" OnClick="LnkImprimir_Click" runat="server"><i class="fa fa-file-pdf-o"></i><span style="padding-left:5px;">PDF</span></asp:LinkButton>
</li>
<li>
<asp:LinkButton ID="LnkImprimirExcel" OnClick="LnkImprimirExcel_Click" runat="server"><i class="fa fa-file-excel-o"></i><span style="padding-left:5px;">Excel</span></asp:LinkButton>
</li>
</ContentTemplate>
</asp:UpdatePanel>
</asp:Content>

34
CRM/CatTipoProceso.aspx.cs
View File

@@ -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<ReportParameter> param = new List<ReportParameter>();
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");
}
}

44
CRM/EmpresaCRM.aspx.cs
View File

@@ -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<ClsSisMail.ArchivoMail> LSRutasMail = new List<ClsSisMail.ArchivoMail>();
//ClsSisMail.ArchivoMail itemMail = new ClsSisMail.ArchivoMail();
Mail.SendMail(ClsPaginas.EmpresaNotificaciones, correoVendedor, Asunto,body);
}
}
}

4
CRM/RepAcercamientosProcesos.aspx
View File

@@ -34,7 +34,7 @@
<asp:UpdatePanel ID="UpAcciones" runat="server" UpdateMode="Conditional">
<ContentTemplate>
<li>
<asp:LinkButton ID="LnkVerGrafica" OnClick="LnkVerGrafica_Click" runat="server">Ver Grafica</asp:LinkButton>
<asp:LinkButton ID="LnkVerGrafica" OnClick="LnkVerGrafica_Click" runat="server" Text="<i class='fa fa-bar-chart' style='font-style:bold'></i> Gráfica"></asp:LinkButton>
</li>
</ContentTemplate>
</asp:UpdatePanel>
@@ -86,6 +86,7 @@
<asp:ListItem Value="2" Text="Medio de Captación"></asp:ListItem>
<asp:ListItem Value="3" Text="Probabilidad de Acercamiento"></asp:ListItem>
<asp:ListItem Value="4" Text="Fecha"></asp:ListItem>
<asp:ListItem Value="5" Text="Sucursal"></asp:ListItem>
</asp:DropDownList>
<asp:Label runat="server" Text="Agrupado Por:" AssociatedControlID="DdlGrupo1"></asp:Label>
</div>
@@ -98,6 +99,7 @@
<asp:ListItem Value="2" Text="Medio Captacion"></asp:ListItem>
<asp:ListItem Value="3" Text="Probabilidad de Acercamiento"></asp:ListItem>
<asp:ListItem Value="4" Text="Fecha"></asp:ListItem>
<asp:ListItem Value="5" Text="Sucursal"></asp:ListItem>
</asp:DropDownList>
<asp:Label runat="server" Text="Agrupado Por(2):" AssociatedControlID="DdlGrupo2"></asp:Label>
</div>

8
CRM/RepAcercamientosProcesos.aspx.cs
View File

@@ -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()

4
CRM/RepAcercamientosRechazos.aspx
View File

@@ -34,7 +34,7 @@
<asp:UpdatePanel ID="UpAcciones" runat="server" UpdateMode="Conditional">
<ContentTemplate>
<li>
<asp:LinkButton ID="LnkVerGrafica" OnClick="LnkVerGrafica_Click" runat="server">Ver Grafica</asp:LinkButton>
<asp:LinkButton ID="LnkVerGrafica" OnClick="LnkVerGrafica_Click" runat="server" Text="<i class='fa fa-bar-chart' style='font-style:bold'></i> Gráfica"></asp:LinkButton>
</li>
</ContentTemplate>
</asp:UpdatePanel>
@@ -86,6 +86,7 @@
<asp:ListItem Value="2" Text="Medio de Captación"></asp:ListItem>
<asp:ListItem Value="3" Text="Probabilidad de Acercamiento"></asp:ListItem>
<asp:ListItem Value="4" Text="Fecha"></asp:ListItem>
<asp:ListItem Value="5" Text="Sucursal"></asp:ListItem>
</asp:DropDownList>
<asp:Label runat="server" Text="Agrupado Por:" AssociatedControlID="DdlGrupo1"></asp:Label>
</div>
@@ -98,6 +99,7 @@
<asp:ListItem Value="2" Text="Medio Captacion"></asp:ListItem>
<asp:ListItem Value="3" Text="Probabilidad de Acercamiento"></asp:ListItem>
<asp:ListItem Value="4" Text="Fecha"></asp:ListItem>
<asp:ListItem Value="5" Text="Sucursal"></asp:ListItem>
</asp:DropDownList>
<asp:Label runat="server" Text="Agrupado Por(2):" AssociatedControlID="DdlGrupo2"></asp:Label>
</div>

27
Contabilidad2/RepBalanceGeneralHorizontal.aspx
View File

@@ -722,7 +722,7 @@
<asp:TemplateField HeaderText="Acumulado">
<ItemTemplate>
<asp:HyperLink ID="HLAnterior" runat="server" Text='<%# Eval("ImporteAcumulado", "{0:N2}")%>' CssClass="Texto" Target="_blank"></asp:HyperLink>
<asp:HyperLink ID="HLAnterior" runat="server" Text='<%# Eval("ImporteActual", "{0:N2}")%>' CssClass="Texto" Target="_blank"></asp:HyperLink>
</ItemTemplate>
<ItemStyle Width="150px" HorizontalAlign="Right" />
</asp:TemplateField>
@@ -828,11 +828,11 @@
<%-- <asp:BoundField HeaderText="%" DataField="PorcentajeActual" DataFormatString="{0:N2}" ItemStyle-Width="100px" />--%>
<asp:TemplateField HeaderText="Acumulado">
<ItemTemplate>
<asp:HyperLink ID="HLAnterior" runat="server" Text='<%# Eval("ImporteAcumulado", "{0:N2}")%>' CssClass="Texto" Target="_blank"></asp:HyperLink>
<asp:HyperLink ID="HLAnterior" runat="server" Text='<%# Eval("ImporteActual", "{0:N2}")%>' CssClass="Texto" Target="_blank"></asp:HyperLink>
</ItemTemplate>
<ItemStyle Width="150px" HorizontalAlign="Right" />
</asp:TemplateField>
<asp:BoundField HeaderText="%" DataField="PorcentajeAcumulado" DataFormatString="{0:N2}" ItemStyle-Width="100px" />
<asp:BoundField HeaderText="%" DataField="PorcentajeAcumulado" DataFormatString="{0:N2}" ItemStyle-Width="100px" Visible="false" />
</Columns>
</asp:GridView>
@@ -1053,17 +1053,18 @@
</asp:TemplateField>--%>
<%--<asp:BoundField HeaderText="%" DataField="PorcentajeActual" DataFormatString="{0:N2}" ItemStyle-Width="100px" />--%>
<asp:TemplateField HeaderText="Acumulado">
<asp:TemplateField HeaderText="Importe Actual">
<ItemTemplate>
<asp:HyperLink ID="HLAnterior" runat="server" Text='<%# Eval("ImporteAcumulado", "{0:N2}")%>' CssClass="Texto" Target="_blank"></asp:HyperLink>
<asp:HyperLink ID="HLAnterior" runat="server" Text='<%# Eval("ImporteActual", "{0:N2}")%>' CssClass="Texto" Target="_blank"></asp:HyperLink>
</ItemTemplate>
<ItemStyle Width="150px" HorizontalAlign="Right" />
</asp:TemplateField>
<asp:BoundField HeaderText="%" DataField="PorcentajeAcumulado" DataFormatString="{0:N2}" ItemStyle-Width="100px" />
<asp:BoundField HeaderText="%" DataField="PorcentajeAcumulado" DataFormatString="{0:N2}" ItemStyle-Width="100px" Visible="false" />
</Columns>
</asp:GridView>
<br />
<br />
<asp:GridView ID="GvGastosAnualH" runat="server" AutoGenerateColumns="False" DataKeyNames="CveCuenta,FechaInicial,FechaFActual,CveSubProyecto,CountDinamico" OnRowDataBound="GvGastosAnualH_RowDataBound" ShowHeaderWhenEmpty="true" CssClass="table table-striped table-hover Widthall" Style="margin-top: -10px; text-align: center;" GridLines="None">
<Columns>
@@ -1119,7 +1120,7 @@
</ItemTemplate>
<ItemStyle Width="150px" HorizontalAlign="Right" />
</asp:TemplateField>
<asp:BoundField HeaderText="%" DataField="PorcentajeAcumulado" DataFormatString="{0:N2}" ItemStyle-Width="100px" />
<asp:BoundField HeaderText="%" DataField="PorcentajeAcumulado" DataFormatString="{0:N2}" ItemStyle-Width="100px" Visible="false" />
</Columns>
</asp:GridView>
@@ -1273,20 +1274,26 @@
<asp:BoundField DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="100px" />
<%--<asp:TemplateField HeaderText="Período Actual">
<asp:TemplateField HeaderText="Sin SubProyecto">
<ItemTemplate>
<asp:HyperLink ID="HLActual" runat="server" Text='<%# Eval("ImporteActual", "{0:N2}")%>' CssClass="Texto" Target="_blank"></asp:HyperLink>
<asp:HyperLink ID="HLSinSP" runat="server" Text='<%# Eval("SinSP", "{0:N2}")%>' CssClass="Texto" Target="_blank"></asp:HyperLink>
</ItemTemplate>
<ItemStyle Width="150px" HorizontalAlign="Right" />
</asp:TemplateField>--%>
</asp:TemplateField>
<%--<asp:BoundField HeaderText="%" DataField="PorcentajeActual" DataFormatString="{0:N2}" ItemStyle-Width="100px" />--%>
<asp:TemplateField HeaderText="Acumulado">
<ItemTemplate>
<asp:HyperLink ID="HLAnterior" runat="server" Text='<%# Eval("ImporteAcumulado", "{0:N2}")%>' CssClass="Texto" Target="_blank"></asp:HyperLink>
</ItemTemplate>
<ItemStyle Width="150px" HorizontalAlign="Right" />
</asp:TemplateField>
<%--<asp:BoundField HeaderText="%" DataField="PorcentajeAcumulado" DataFormatString="{0:N2}" ItemStyle-Width="100px" />--%>
</Columns>
</asp:GridView>

77
Contabilidad2/RepBalanceGeneralHorizontal.aspx.vb
View File

@@ -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 = $"<a target='_blank' href='./RepAnexoCatalogo.aspx?CveCuenta={CveCuenta}&FF={FEchaMesFinal.ToString("dd/MM/yyyy")}&FI=01/01/1900&ER=1&CveSubProyecto={CveSubProyectoIntermo}' >{Importe}</a>"
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

58
Contabilidad2/RepEstadoResultadosHorizontal.aspx
View File

@@ -1,21 +1,21 @@
<%@ Page Title="" Language="VB" MasterPageFile="~/Site.master" AutoEventWireup="false" CodeFile="RepEstadoResultadosHorizontal.aspx.vb" Inherits="Contabilidad_RepEstadoResultadosHorizontal" %>
<asp:Content ID="Content1" ContentPlaceHolderID="CP" runat="Server">
</asp:Content>
<asp:Content ID="Content2" ContentPlaceHolderID="Css" runat="Server">
</asp:Content>
<asp:Content ID="Content3" ContentPlaceHolderID="HB" runat="Server">
</asp:Content>
<asp:Content ID="Content4" ContentPlaceHolderID="E" runat="Server">
<asp:Literal ID="LtTitulo" Text="Estado de Resultados" runat="server" />
</asp:Content>
<asp:Content ID="Content5" ContentPlaceHolderID="H" runat="Server">
</asp:Content>
<asp:Content ID="Content6" ContentPlaceHolderID="C" runat="Server">
<%@ Page Title="" Language="VB" MasterPageFile="~/Site.master" AutoEventWireup="false" CodeFile="RepEstadoResultadosHorizontal.aspx.vb" Inherits="Contabilidad_RepEstadoResultadosHorizontal" %>
<asp:Content ID="Content1" ContentPlaceHolderID="CP" runat="Server">
</asp:Content>
<asp:Content ID="Content2" ContentPlaceHolderID="Css" runat="Server">
</asp:Content>
<asp:Content ID="Content3" ContentPlaceHolderID="HB" runat="Server">
</asp:Content>
<asp:Content ID="Content4" ContentPlaceHolderID="E" runat="Server">
<asp:Literal ID="LtTitulo" Text="Estado de Resultados" runat="server" />
</asp:Content>
<asp:Content ID="Content5" ContentPlaceHolderID="H" runat="Server">
</asp:Content>
<asp:Content ID="Content6" ContentPlaceHolderID="C" runat="Server">
<asp:UpdatePanel runat="server" ID="UpFiltros" UpdateMode="Conditional">
<ContentTemplate>
<div class="portlet solid grey-cascade portlet-filter">
@@ -38,7 +38,7 @@
<asp:DropDownList ID="DdlEjercicio2" runat="server" CssClass="select2me" DataTextField="Ejercicio" DataValueField="Ejercicio" Width="100px">
</asp:DropDownList>
</div>
<label class="col-md-2" style="width: 80px;" runat="server" id="LiPeriodoLbl" >Periodo: </label>
<div class="col-md-2 " runat="server" id="LiPeriodoDdl">
<asp:DropDownList ID="DdlPeriodo" runat="server" Width="150px" CssClass="select2me">
@@ -80,8 +80,8 @@
</div>
</div>
</ContentTemplate>
</asp:UpdatePanel>
</asp:UpdatePanel>
<ajax:TabContainer ID="Tab" runat="server" ActiveTabIndex="0" Width="100%" OnActiveTabChanged="Tab_ActiveTabChanged" AutoPostBack="true">
<ajax:TabPanel ID="TabMes" runat="server" HeaderText="Mensual">
@@ -1010,11 +1010,11 @@
</ContentTemplate>
</ajax:TabPanel>
</ajax:TabContainer>
</asp:Content>
<asp:Content ID="Content7" ContentPlaceHolderID="JS" runat="Server">
</asp:Content>
</ajax:TabContainer>
</asp:Content>
<asp:Content ID="Content7" ContentPlaceHolderID="JS" runat="Server">
</asp:Content>

24
Empresas/141/Formatos/Factura.rdlc
View File

@@ -2462,7 +2462,29 @@
<Paragraph>
<TextRuns>
<TextRun>
<Value>Tipo de Comprobante:I Ingreso,Moneda:</Value>
<Value>Tipo de Comprobante:I </Value>
<Style>
<FontStyle>Normal</FontStyle>
<FontFamily>calibri</FontFamily>
<FontSize>8pt</FontSize>
<FontWeight>Normal</FontWeight>
<TextDecoration>None</TextDecoration>
<Color>#000000</Color>
</Style>
</TextRun>
<TextRun>
<Value>=UCase(Parameters!TipoDocumento.Value)</Value>
<Style>
<FontStyle>Normal</FontStyle>
<FontFamily>calibri</FontFamily>
<FontSize>8pt</FontSize>
<FontWeight>Normal</FontWeight>
<TextDecoration>None</TextDecoration>
<Color>#000000</Color>
</Style>
</TextRun>
<TextRun>
<Value>,Moneda:</Value>
<Style>
<FontStyle>Normal</FontStyle>
<FontFamily>calibri</FontFamily>

29
OC/OC.aspx.vb
View File

@@ -470,6 +470,19 @@ Partial Class OC
ViewState("CveDireccionEnvio") = value
End Set
End Property
Private Property MonedaTexto As String
Get
If ViewState("MonedaTexto") Is Nothing Then
Return ""
Else
Return ViewState("MonedaTexto").ToString.ToEntero
End If
End Get
Set(value As String)
ViewState("CveDireccionEnvio") = value
End Set
End Property
Private Property NumRow As Integer
#End Region
@@ -1254,7 +1267,7 @@ Partial Class OC
TxtDescrip.Text = objOC.Descripcion
TxtJustificacion.Text = objOC.Justificacion
DdlMoneda.SelectedValueExist(objOC.CveMoneda.ToString)
MonedaTexto = DdlMoneda.SelectedItem.Text
Select Case objOC.PorcentajeIVA.ToString.ToDouble
Case 0
DdlIVA.SelectedValue = "1"
@@ -1745,6 +1758,7 @@ Partial Class OC
If CveEmpresaActual.Contiene(13, 14, 24) Then
DdlMoneda.Items.Insert(0, New ListItem("Seleccione", "-1"))
End If
End Sub
Private Sub CargaClasificaciones()
Dim TipoClasif As Integer = -1
@@ -2894,6 +2908,11 @@ Partial Class OC
'COMMIT
If Not TieneError Then
If MonedaTexto <> DdlMoneda.SelectedItem.Text Then
If Not OCBitacora.AddEventoBitacora(String.Format("Se cambió el valor de moneda de '{0}' a '{1}'", MonedaTexto, DdlMoneda.SelectedItem.Text), "-1", UsuarioActual.CveUsuario, CveEmpresaActual, CveOC:=CveOrdenCompra) Then
TieneError = True
End If
End If
OC.Commit()
If Conta IsNot Nothing Then Conta.Commit()
@@ -5279,6 +5298,7 @@ Partial Class OC
'MONEDA PREFERENTE
If CveOrdenCompra <= 0 Then
DdlMoneda.SelectedValueExist(Objeto.CveMonedaPreferente)
MonedaTexto = DdlMoneda.SelectedItem.Text
End If
'MUESTRA IVA PROVEEDOR EXTRANJERO
@@ -6738,6 +6758,9 @@ Partial Class OC
TabAlmacen.Visible = True
If ObjInventarios.DtResultados.Rows.Count > 0 Then
GVInv.DataSource = ObjInventarios.DtResultados
If ObjInventarios.DtResultados.Rows.Count > 0 Then
DdlMoneda.Enabled = False
End If
End If
GVInv.DataBind()
End If
@@ -7638,5 +7661,7 @@ Partial Class OC
End Sub
#End Region
Protected Sub DdlMoneda_Change() Handles DdlMoneda.SelectedIndexChanged
MonedaTexto = DdlMoneda.SelectedItem.Text
End Sub
End Class

6
RH/MiPerfil.aspx.vb
View File

@@ -1119,11 +1119,12 @@ Partial Class RH_MiPerfil
continuar = False
End If
End If
Dim CorreoSupervisor As String = GlobalDTRHPersonal(UsuarioActual.CveEmpresa, DdlSupervisor.SelectedValue.ToEntero).FiltroPrimeroValor("Correo")
objRH.Dispose()
If continuar Then
CargaVacaciones()
CargaVacacionesResumenPeriodoActual()
VacacionesMandaCorreoSupervisor("Vacaciones " & UsuarioActual.Nombre, "antonio.gonzalez@adssistemas.mx", VacSupervisorNombre, NombreCompleto, fInicio, fFin, "vacaciones")
VacacionesMandaCorreoSupervisor("Vacaciones " & UsuarioActual.Nombre, CorreoSupervisor, VacSupervisorNombre, NombreCompleto, fInicio, fFin, "vacaciones")
RegistraScript("$('#ModalAddVacaciones').modal('hide');")
End If
Else
@@ -1208,7 +1209,8 @@ Partial Class RH_MiPerfil
Else
Alert("Permiso agregado Actualizado correctamente")
End If
VacacionesMandaCorreoSupervisor("Permiso para " & UsuarioActual.Nombre, "antonio.gonzalez@adssistemas.mx", VacSupervisorNombre, NombreCompleto, TxtFechaInicioPer.Text, TxtFechaFinPer.Text, "permiso")
Dim CorreoSupervisor As String = GlobalDTRHPersonal(UsuarioActual.CveEmpresa, DdlSupervisor.SelectedValue.ToEntero).FiltroPrimeroValor("Correo")
VacacionesMandaCorreoSupervisor("Permiso para " & UsuarioActual.Nombre, CorreoSupervisor, VacSupervisorNombre, NombreCompleto, TxtFechaInicioPer.Text, TxtFechaFinPer.Text, "permiso")
RegistraScript("$('#DvPermisos').modal('hide');")
End If

1
RH/Personal.aspx.vb
View File

@@ -1178,6 +1178,7 @@ Partial Class RH_Personal
'Carga Datos Personales
LtlPersonal.Text = ObjPersonal.NombreCompleto
NombreCompleto = ObjPersonal.NombreCompleto
'TxtNombre.Text = ObjPersonal.Nombre
TxtAPaterno.Text = ObjPersonal.APaterno
TxtAMaterno.Text = ObjPersonal.AMaterno