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

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

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
 

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

CRM/CatTipoProceso.aspx

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

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<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");
+    }
 }

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))
+                if (!ObjBitacora.AddEventoBitacora(String.Format("Se actualizó la empresa {0} con RFC {1}", NombreEmpresa, RFC), "", UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, CveEmpresaCRM: CveEmpresaCRM))
-                //{
+                {
-                HuboError = false;
+                    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);
+        }
+    }
 }

CRM/RepAcercamientosProcesos.aspx

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

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

CRM/RepAcercamientosRechazos.aspx

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

Contabilidad2/RepBalanceGeneralHorizontal.aspx

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

Contabilidad2/RepBalanceGeneralHorizontal.aspx.vb

@@ -432,7 +432,10 @@ Partial Class Contabilidad_RepBalanceGeneralHorizontal
         GvPasivo.Columns(1).HeaderText = DdlEjercicio.SelectedValue
         GvPasivo.Columns(2).HeaderText = (DdlEjercicio.SelectedValue.ToEntero - 1).ToString
 
-        Dim CveSubProyecto As Integer = DdlSubproyecto.SelectedValue.ToEntero
+
+
+
+        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("Nombre") = "TOTAL ACTIVO DIFERIDO"
-            Row.Item("ImporteActual") = DtIngresosAnualH.SUM("ImporteActual", "NOT CtaMayor in (3,4)")
+            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("Nombre") = "TOTAL PASIVO CIRCULANTE"
-            Row.Item("ImporteActual") = DtIngresosAnualH.SUM("ImporteActual", "NOT CtaMayor in (3,4)")
+            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("Nombre") = "TOTAL PASIVO NO CIRCULANTE"
-            Row.Item("ImporteActual") = DtIngresosAnualH.SUM("ImporteActual", "NOT CtaMayor in (3,4)")
+            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("Nombre") = "TOTAL CAPITAL CONTABLE"
-            Row.Item("ImporteActual") = DtIngresosAnualH.SUM("ImporteActual", "NOT CtaMayor in (3,4)")
+            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

Empresas/141/Formatos/Factura.rdlc

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

OC/OC.aspx.vb

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

RH/MiPerfil.aspx.vb

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

RH/Personal.aspx.vb

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