AF cat tipos padre y tipos af, clientes formato estado de cuenta bdh

AF/AF.aspx.vb

@@ -433,6 +433,7 @@ Partial Class AF_AF
             End If
 
 
+
         End If
     End Sub
     Private Sub cargaOrdenesdeservicio()
@@ -2493,6 +2494,8 @@ Partial Class AF_AF
 
         Dim FechaBaja As Date = If(TxtFechaBaja.Text = "", MinFecha, TxtFechaBaja.Text.ToDate)
 
+        Dim EsNuevo As Boolean = If(CveActivoFijo > 0, False, True)
+
         If CveActivoFijo <= 0 Then
 
             'SALIDA DE ALMACEN PARA IMPORTACION
@@ -2671,6 +2674,70 @@ Partial Class AF_AF
         End If
 
         ObjAF.Dispose()
+
+        If UsuarioActual.CveEmpresa = 13 Then
+            If EsNuevo Then
+                EnviarNotificacionCorreo(1) 'Alta de Activo Fijo
+            ElseIf DdlEstadoActivoFijo.SelectedValue.ToEntero = 6 Then
+                EnviarNotificacionCorreo(2) 'Baja de Activo Fijo
+            End If
+        End If
+
+    End Sub
+
+    Private Sub EnviarNotificacionCorreo(Opcion As Integer) '1 = alta AF, 2 = baja AF
+
+
+
+        Try
+            Dim Para As String = "oscar.irigoyen@adssistemas.mx"
+            Dim Asunto As String = $"Registro de {If(Opcion = 1, "Alta de Activo Fijo", "Baja de ActivoFijo")}"
+            Dim Body As String = ""
+            Dim strBody As New StringBuilder
+
+            Dim Codigo As String = TxtCodigo.Text
+            Dim Descripcion As String = TxtDescripcion.Text.Trim
+            Dim Proyecto As String = DdlSubProyecto.SelectedItem.Text
+            Dim TipoActivoFijo As String = DdlTipoActivoFijo.SelectedItem.Text
+            Dim SubtipoActivoFijo As String = DdlSubTipoActivoFijo.SelectedItem.Text
+            Dim EstatusActivoFijo As String = DdlEstadoActivoFijo.SelectedItem.Text
+            Dim Fecha As String = NowADS().ToString("dd/MM/yyyy HH:mm:ss")
+            Dim Usuario As String = UsuarioActual.Nombre
+
+            strBody.Append("<html xmlns='http://www.w3.org/1999/xhtml'>")
+            strBody.Append("<head>")
+            strBody.Append("<meta http-equiv='Content-Type' content='text/html; charset=utf-8' />")
+            strBody.Append("<style>")
+            strBody.Append("table { font-family: Arial, sans-serif; border-collapse: collapse; width: 100%; }")
+            strBody.Append("td, th { border: 1px solid #dddddd; text-align: left; padding: 8px; }")
+            strBody.Append("tr:nth-child(even) { background-color: #f9f9f9; }")
+            strBody.Append("th { background-color: #9cacc1; color: white; }")
+            strBody.Append("</style>")
+            strBody.Append("</head>")
+            strBody.Append("<body>")
+            strBody.Append($"<h2>{If(Opcion = 1, "Alta de Activo Fijo", "Baja de Activo Fijo")}</h2>")
+            strBody.Append("<table>")
+            strBody.Append("<tr><th>Campo</th><th>Valor</th></tr>")
+            strBody.Append($"<tr><td>Código</td><td>{Codigo}</td></tr>")
+            strBody.Append($"<tr><td>Descripción</td><td>{Descripcion}</td></tr>")
+            strBody.Append($"<tr><td>Proyecto</td><td>{Proyecto}</td></tr>")
+            strBody.Append($"<tr><td>Tipo de Activo</td><td>{TipoActivoFijo}</td></tr>")
+            strBody.Append($"<tr><td>Subtipo de Activo</td><td>{SubtipoActivoFijo}</td></tr>")
+            strBody.Append($"<tr><td>Estatus</td><td>{EstatusActivoFijo}</td></tr>")
+            strBody.Append($"<tr><td>Fecha</td><td>{Fecha}</td></tr>")
+            strBody.Append($"<tr><td>Usuario</td><td>{Usuario}</td></tr>")
+            strBody.Append("</table>")
+            strBody.Append("</body>")
+            strBody.Append("</html>")
+
+            Body = strBody.ToString
+
+            Dim Mail As New ClsSisMail()
+            Mail.SendMail(ClsPaginas.EmpresaNotificaciones, Para, Asunto, Body)
+        Catch ex As Exception
+            OnError("Ocurrió error al mandar MAIL", ex)
+        End Try
+
     End Sub
 
     Protected Sub BtnEliminar_Click(sender As Object, e As System.EventArgs) Handles BtnEliminar.Click
@@ -3769,7 +3836,7 @@ Partial Class AF_AF
 
         If ObjAF.GetActivosFijos(-1, UsuarioActual.CveEmpresa, "-1", "-1", -1, -1, "-1", -1, -1, -1, -1, 1, "-1", -1, -1, -1) Then
 
-            DdlAFPadres.DataSource = ObjAF.DtResultados
+            DdlAFPadres.DataSource = ObjAF.DtResultados.FiltraParametros(" TipoAFPadre  = true ")
             DdlAFPadres.DataBind()
 
             DdlAFPadres.Items.Remove(DdlAFPadres.Items.FindByValue(CveActivoFijo.ToString))

AF/CatAF.aspx

@@ -243,7 +243,8 @@
                      <div class="row" id="DVTipoGrupo" runat="server" visible="false">
                            <div class="col-md-1">Tipo Grupo:</div>
                               <div class="col-md-2">
-                                  <asp:DropDownList ID="DdlAFTipoGrupo" CssClass="form-control input-sm select2me" AppendDataBoundItems="true" Width="100%" runat="server" DataTextField="NombreCompleto" DataValueField="CvePersonal">
+                                  <asp:DropDownList ID="DdlAFTipoGrupo" CssClass="form-control input-sm select2me" AppendDataBoundItems="true" Width="100%" 
+                                      runat="server" DataTextField="NombreCompleto" DataValueField="CvePersonal" AutoPostBack="true" OnSelectedIndexChanged="DdlAFTipoGrupo_SelectedIndexChanged">
                                       <asp:ListItem Selected="True" Text="Todos" Value="-1"></asp:ListItem>
                                       <asp:ListItem Text="Mayores" Value="1"></asp:ListItem>
                                       <asp:ListItem Text="Menores" Value="2"></asp:ListItem>

AF/CatAF.aspx.vb

@@ -855,4 +855,23 @@ Partial Class AF_CatAF
     End Sub
 
 #End Region
+
+    Protected Sub DdlAFTipoGrupo_SelectedIndexChanged(sender As Object, e As EventArgs)
+
+
+        DdlTipoActivo.ClearSelection()
+        DdlTipoActivo.SelectedValue = Nothing
+        DdlTipoActivo.Items.Clear()
+
+        If DdlAFTipoGrupo.SelectedValue.ToEntero > 0 Then
+            DdlTipoActivo.DataSource = GlobalDTTipoActivoFijo(UsuarioActual.CveEmpresa).FiltraParametros(String.Format("CveTipoAFGrupo = {0}", DdlAFTipoGrupo.SelectedValue), "TipoActivoFijo")
+        Else
+            DdlTipoActivo.DataSource = GlobalDTTipoActivoFijo(UsuarioActual.CveEmpresa).FiltraParametros("", "TipoActivoFijo")
+        End If
+
+        DdlTipoActivo.DataBind()
+        DdlTipoActivo.Items.Insert(0, New ListItem("Todos", "-1"))
+        UpFiltro.Update()
+
+    End Sub
 End Class

AF/CatTipos.aspx

@@ -24,12 +24,16 @@
 
     <asp:UpdatePanel ID="UpDatos" runat="server" UpdateMode="Conditional">
         <ContentTemplate>
-            <asp:GridView ID="GvDatos" runat="server" AutoGenerateColumns="False" DataKeyNames="CveTipoActivoFijo,TipoActivoFijo,PorDepreciacion,Conta_CuentaInicial,Estado,MedidaVehicularClave,AutoFolio,Contable" EmptyDataText="No se encontraron Tipos Registrados" CssClass="table table-striped table-advance table-hover Widthall mysmallbtn" GridLines="None">
+            <asp:GridView ID="GvDatos" runat="server" AutoGenerateColumns="False" DataKeyNames="CveTipoActivoFijo,TipoActivoFijo,PorDepreciacion,Conta_CuentaInicial,Estado,MedidaVehicularClave,AutoFolio,Contable,CveTipoAFGrupo,TipoAFPadre" EmptyDataText="No se encontraron Tipos Registrados" CssClass="table table-striped table-advance table-hover Widthall mysmallbtn" GridLines="None">
                 <Columns>
                     <asp:BoundField DataField="TipoActivoFijo" HeaderText="Tipo Activo Fijo" ItemStyle-HorizontalAlign="Left" />
                     <asp:BoundField DataField="PorDepreciacion" HeaderText="Depreciacion Anual" ItemStyle-HorizontalAlign="Left" />
                     <asp:BoundField DataField="Conta_CuentaInicial" HeaderText="Cuenta Inicial" ItemStyle-HorizontalAlign="Left" Visible="false" />
                     <asp:BoundField DataField="MedidaVehicular" HeaderText="Medida Vehicular" ItemStyle-HorizontalAlign="Left" />
+
+                    <asp:BoundField DataField="CveTipoAFGrupoStr" HeaderText="Tipo Grupo" ItemStyle-HorizontalAlign="Left" Visible="false" />
+                    <asp:BoundField DataField="TipoAFPadreStr" HeaderText="Tipo Padre" ItemStyle-HorizontalAlign="Left" Visible="false" />
+
                     <asp:TemplateField ItemStyle-HorizontalAlign="Center" HeaderText="Estatus">
                         <ItemTemplate>
                             <asp:Label ID="LblEstatus" runat="server" Text='<%# Eval("Estado") %>'>></asp:Label>
@@ -117,6 +121,24 @@
                                     </div>
                                 </div>
 
+                                <div class="form-group form-md-line-input input-iconright" id="Div1" runat="server">
+                                    <div class="row">
+                                        <div class="col-md-6" id="DvTipoAFGrupo" runat="server" visible="false">
+                                            <label for="<%= DdlTipoAFGrupo.ClientID.ToString()%>">Tipo Grupo</label>
+                                            <asp:DropDownList ID="DdlTipoAFGrupo" runat="server" Width="100%" CssClass="form-control select2me">
+                                                <asp:ListItem Selected="True" Text="Sin Asignar" Value="-1"></asp:ListItem>
+                                                <asp:ListItem Text="Mayor" Value="1"></asp:ListItem>
+                                                <asp:ListItem Text="Menor" Value="2"></asp:ListItem>
+                                            </asp:DropDownList>
+                                        </div>
+
+                                        <div class="col-md-6" id="DvTipoAFPadre" runat="server" visible="false">
+                                            <label for="<%= ChkTipoAFPadre.ClientID.ToString()%>">Tipo Padre:</label>
+                                            <asp:CheckBox ID="ChkTipoAFPadre" runat="server" CssClass="form-control" />
+                                        </div>
+                                    </div>
+                                </div>
+
                                 <div class="form-group form-md-line-input input-iconright" id="divEstatus" runat="server">
                                     <asp:CheckBox ID="ChkEstatus" runat="server" CssClass="form-control" />
                                     <label for="<%= ChkEstatus.ClientID.ToString()%>">Estatus:</label>

AF/CatTipos.aspx.vb

@@ -16,8 +16,16 @@ Partial Class AF_CatTipos
                 GvDatos.Columns(1).Visible = True
             End If
 
+            If UsuarioActual.CveEmpresa = 13 Then
+                DvTipoAFGrupo.Visible = True
+                DvTipoAFPadre.Visible = True
+                GvDatos.Columns(4).Visible = True
+                GvDatos.Columns(5).Visible = True
+            End If
+
+
             CargaDatos()
-        End If
+            End If
     End Sub
 
 #Region "AGREGAR / ACTUALIZAR"
@@ -33,6 +41,9 @@ Partial Class AF_CatTipos
         ChkFolio.Checked = False
         ChkContable.Checked = False
         divEstatus.Visible = False
+        DdlTipoAFGrupo.SelectedValueExist("-1")
+        ChkTipoAFPadre.Checked = True
+
         UpAddTipoAF.Update()
         RegistraScript(String.Format("$('#{0}').modal('show');", "DivAddTipoAF"))
     End Sub
@@ -58,6 +69,11 @@ Partial Class AF_CatTipos
         ChkContable.Checked = CBool(If(GvRow.DataKey("Contable") = "Activo", True, False))
         divEstatus.Visible = True
         ChkEstatus.Checked = CBool(If(GvRow.DataKey("Estado") = "Activo", True, False))
+
+        DdlTipoAFGrupo.SelectedValueExist(GvRow.DataKey("CveTipoAFGrupo"))
+        ChkTipoAFPadre.Checked = Boolean.Parse((GvRow.DataKey("TipoAFPadre")))
+        'CveTipoAFGrupo, TipoAFPadre
+
         UpAddTipoAF.Update()
         RegistraScript(String.Format("$('#{0}').modal('show');", "DivAddTipoAF"))
     End Sub
@@ -68,11 +84,15 @@ Partial Class AF_CatTipos
         If ChkEstatus.Checked Then Estatus = True Else Estatus = False
 
         If HdnModalidad.Value = "A" Then
-            If Not ObjAF.AddTiposActivosFijos(TxtTipo.Text.Trim, DdlCuentaInicial.SelectedValue.ToEntero, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, PorDepreciacion:=TxtDepreciacionAF.Text.ToDecimal, MedidaVehicular:=DdlMedidaVehicular.SelectedValue.ToEntero, AutoFolio:=ChkFolio.Checked, Contable:=ChkContable.Checked) Then
+            If Not ObjAF.AddTiposActivosFijos(TxtTipo.Text.Trim, DdlCuentaInicial.SelectedValue.ToEntero, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, PorDepreciacion:=TxtDepreciacionAF.Text.ToDecimal,
+                                              MedidaVehicular:=DdlMedidaVehicular.SelectedValue.ToEntero, AutoFolio:=ChkFolio.Checked, Contable:=ChkContable.Checked, CveTipoAFGrupo:=DdlTipoAFGrupo.SelectedValue.ToEntero,
+                                              TipoAFPadre:=ChkTipoAFPadre.Checked) Then
                 TieneError = True
             End If
         ElseIf HdnModalidad.Value = "U" Then
-            If Not ObjAF.UpdateTiposActivosFijos(HdnID.Value.ToEntero, TxtTipo.Text.Trim, DdlCuentaInicial.SelectedValue.ToEntero, Estatus, PorDepreciacion:=TxtDepreciacionAF.Text.ToDecimal, MedidaVehicular:=DdlMedidaVehicular.SelectedValue.ToEntero, AutoFolio:=ChkFolio.Checked, Contable:=ChkContable.Checked) Then
+            If Not ObjAF.UpdateTiposActivosFijos(HdnID.Value.ToEntero, TxtTipo.Text.Trim, DdlCuentaInicial.SelectedValue.ToEntero, Estatus, PorDepreciacion:=TxtDepreciacionAF.Text.ToDecimal,
+                                                 MedidaVehicular:=DdlMedidaVehicular.SelectedValue.ToEntero, AutoFolio:=ChkFolio.Checked, Contable:=ChkContable.Checked, CveTipoAFGrupo:=DdlTipoAFGrupo.SelectedValue.ToEntero,
+                                                 TipoAFPadre:=ChkTipoAFPadre.Checked) Then
                 TieneError = True
             End If
         End If

App_Code/ClsAF.vb

@@ -1512,7 +1512,8 @@ Public Class ClsAF
         Return Retorno
     End Function
 
-    Public Function AddTiposActivosFijos(TipoActivoFijo As String, CuentaInicial As Integer, CveUsuario As Integer, CveEmpresa As Integer, Optional PorDepreciacion As Decimal = 0, Optional MedidaVehicular As Integer = 1, Optional AutoFolio As Boolean = False, Optional Contable As Boolean = False) As Boolean
+    Public Function AddTiposActivosFijos(TipoActivoFijo As String, CuentaInicial As Integer, CveUsuario As Integer, CveEmpresa As Integer, Optional PorDepreciacion As Decimal = 0, Optional MedidaVehicular As Integer = 1,
+                                         Optional AutoFolio As Boolean = False, Optional Contable As Boolean = False, Optional CveTipoAFGrupo As Integer = 1, Optional TipoAFPadre As Boolean = True) As Boolean
         Dim Retorno As Boolean = False
 
         DataAdapter("PA_AF_TiposActivosFijosAdd")
@@ -1526,6 +1527,8 @@ Public Class ClsAF
             .Add("@MedidaVehicular", SqlDbType.TinyInt).Value = MedidaVehicular
             .Add("@AutoFolio", SqlDbType.Bit).Value = AutoFolio
             .Add("@Contable", SqlDbType.Bit).Value = Contable
+            .Add("@CveTipoAFGrupo", SqlDbType.Int).Value = CveTipoAFGrupo
+            .Add("@TipoAFPadre", SqlDbType.Bit).Value = TipoAFPadre
         End With
 
         Try
@@ -1538,7 +1541,8 @@ Public Class ClsAF
         Return Retorno
     End Function
 
-    Public Function UpdateTiposActivosFijos(CveTipoActivoFijo As Integer, TipoActivoFijo As String, CuentaInicial As Integer, Estado As Boolean, Optional PorDepreciacion As Decimal = 0, Optional MedidaVehicular As Integer = 1, Optional AutoFolio As Boolean = False, Optional Contable As Boolean = False) As Boolean
+    Public Function UpdateTiposActivosFijos(CveTipoActivoFijo As Integer, TipoActivoFijo As String, CuentaInicial As Integer, Estado As Boolean, Optional PorDepreciacion As Decimal = 0, Optional MedidaVehicular As Integer = 1,
+                                            Optional AutoFolio As Boolean = False, Optional Contable As Boolean = False, Optional CveTipoAFGrupo As Integer = 1, Optional TipoAFPadre As Boolean = True) As Boolean
         Dim Retorno As Boolean = False
 
         DataAdapter("PA_AF_TiposActivosFijosUpdate")
@@ -1552,6 +1556,8 @@ Public Class ClsAF
             .Add("@MedidaVehicular", SqlDbType.TinyInt).Value = MedidaVehicular
             .Add("@AutoFolio", SqlDbType.Bit).Value = AutoFolio
             .Add("@Contable", SqlDbType.Bit).Value = Contable
+            .Add("@CveTipoAFGrupo", SqlDbType.Int).Value = CveTipoAFGrupo
+            .Add("@TipoAFPadre", SqlDbType.Bit).Value = TipoAFPadre
         End With
 
         Try

Ventas/Clientes.aspx.vb

@@ -8,6 +8,7 @@ Imports System.IO
 Imports System.Net
 Imports System.Net.Http
 Imports Extensiones
+Imports Microsoft.JScript
 Imports Microsoft.Reporting.WebForms
 Imports Newtonsoft.Json
 Imports Newtonsoft.Json.Linq
@@ -4107,7 +4108,7 @@ Partial Class Clientes
 
     Private Sub GenerarPDFCrystal(Optional Formato As String = "PDF")
 
-        Dim Archivo As New System.IO.FileInfo(String.Format("{0}Formatos/RepClientesCxC.rpt", UsuarioActual.Empresa.Ruta))
+        Dim Archivo As New System.IO.FileInfo(String.Format("{0}Formatos/RepClientesCxC.mrt", UsuarioActual.Empresa.Ruta))
         Dim RutaReporteGrales As New System.IO.FileInfo($"{DirectorioEmpresas}Grales\Formatos\RepClientesCxC.rpt")
 
         Dim Imagen As New System.IO.FileInfo($"{UsuarioActual.Empresa.Ruta}/Logo.png")
@@ -4333,22 +4334,45 @@ Partial Class Clientes
                     OnError("Ocurrió error al mandar MAIL de Orden de Compra", ex)
                 End Try
             Else
-                If Archivo.Exists Then
-                    Dim ArchivoSti As New System.IO.FileInfo(String.Format("{0}Formatos/RepClientesCxC.mrt", UsuarioActual.Empresa.Ruta))
-                    If ArchivoSti.Exists Then
-                        Dim listass As New List(Of ReportParameter)
-                        For Each item As CrystalParametro In lista
-                            listass.Add(New ReportParameter(item.Nombre, item.Valor.ToString()))
-                        Next
-                        ImprimirPDFStimul($"{UsuarioActual.Empresa.Ruta}Formatos/RepClientesCxC.mrt", DtCxCFact2.FiltraParametros("", "CveMoneda,Fecha"), listass, "Estado de cuenta", Formato)
-                    Else
-                        ImprimirbytesPDF(ImprimirPDFCrystal($"{UsuarioActual.Empresa.Ruta}Formatos/RepClientesCxC.rpt", DtCxCFact2.FiltraParametros("", "CveMoneda,Fecha"), lista, "Estado de cuenta", Formato), "Estado de cuenta", Formato)
-                    End If
 
+                Dim ParametrosStimul As New List(Of ReportParameter)
+                For Each item As CrystalParametro In lista
+                    ParametrosStimul.Add(New ReportParameter(item.Nombre, item.Valor.ToString()))
+                Next
+
+                If Archivo.Exists Then
+                    ImprimirPDFStimul(Archivo.FullName, DtCxCFact2.FiltraParametros("", "CveMoneda,Fecha"), ParametrosStimul, "Estado de cuenta", Formato)
                 Else
-                    ImprimirbytesPDF(ImprimirPDFCrystal(RutaReporteGrales.FullName, DtCxCFact2.FiltraParametros("", "CveMoneda,Fecha"), lista, "Estado de cuenta", Formato), "Estado de cuenta", Formato)
+                    Archivo = New System.IO.FileInfo(String.Format("{0}Grales/Formatos/RepClientesCxC.mrt", DirectorioEmpresas))
+                    If Archivo.Exists Then
+                        ImprimirPDFStimul(Archivo.FullName, DtCxCFact2.FiltraParametros("", "CveMoneda,Fecha"), ParametrosStimul, "Estado de cuenta", Formato)
+                    Else
+                        Archivo = New System.IO.FileInfo(String.Format("{0}Formatos/RepClientesCxC.rpt", UsuarioActual.Empresa.Ruta))
+                        If Archivo.Exists Then
+                            ImprimirbytesPDF(ImprimirPDFCrystal(Archivo.FullName, DtCxCFact2.FiltraParametros("", "CveMoneda,Fecha"), lista, "Estado de cuenta", Formato), "Estado de cuenta", Formato)
+                        Else
+                            ImprimirbytesPDF(ImprimirPDFCrystal(String.Format("{0}Grales/Formatos/RepClientesCxC.rpt", DirectorioEmpresas), DtCxCFact2.FiltraParametros("", "CveMoneda,Fecha"), lista, "Estado de cuenta", Formato), "Estado de cuenta", Formato)
+                        End If
+
+                    End If
                 End If
 
+                'If Archivo.Exists Then
+                '    Dim ArchivoSti As New System.IO.FileInfo(String.Format("{0}Formatos/RepClientesCxC.mrt", UsuarioActual.Empresa.Ruta))
+                '    If ArchivoSti.Exists Then
+                '        Dim listass As New List(Of ReportParameter)
+                '        For Each item As CrystalParametro In lista
+                '            listass.Add(New ReportParameter(item.Nombre, item.Valor.ToString()))
+                '        Next
+                '        ImprimirPDFStimul($"{UsuarioActual.Empresa.Ruta}Formatos/RepClientesCxC.mrt", DtCxCFact2.FiltraParametros("", "CveMoneda,Fecha"), listass, "Estado de cuenta", Formato)
+                '    Else
+                '        ImprimirbytesPDF(ImprimirPDFCrystal($"{UsuarioActual.Empresa.Ruta}Formatos/RepClientesCxC.rpt", DtCxCFact2.FiltraParametros("", "CveMoneda,Fecha"), lista, "Estado de cuenta", Formato), "Estado de cuenta", Formato)
+                '    End If
+
+                'Else
+                '    ImprimirbytesPDF(ImprimirPDFCrystal(RutaReporteGrales.FullName, DtCxCFact2.FiltraParametros("", "CveMoneda,Fecha"), lista, "Estado de cuenta", Formato), "Estado de cuenta", Formato)
+                'End If
+
             End If
         Else
             Dim lista As New List(Of CrystalParametro)
@@ -4386,20 +4410,46 @@ Partial Class Clientes
             drr("CveMoneda") = 1
             DtCxCFact2.Rows.Add(drr)
 
+            Dim ParametrosStimul As New List(Of ReportParameter)
+            For Each item As CrystalParametro In lista
+                ParametrosStimul.Add(New ReportParameter(item.Nombre, item.Valor.ToString()))
+            Next
+
+
             If Archivo.Exists Then
-                Dim ArchivoSti As New System.IO.FileInfo(String.Format("{0}Formatos/RepClientesCxC.mrt", UsuarioActual.Empresa.Ruta))
+                ImprimirPDFStimul(Archivo.FullName, DtCxCFact2.FiltraParametros("", "CveMoneda,Fecha"), ParametrosStimul, "Estado de cuenta", Formato)
-                If ArchivoSti.Exists Then
-                    Dim listass As New List(Of ReportParameter)
-                    For Each item As CrystalParametro In lista
-                        listass.Add(New ReportParameter(item.Nombre, item.Valor.ToString()))
-                    Next
-                    ImprimirPDFStimul($"{UsuarioActual.Empresa.Ruta}Formatos/RepClientesCxC.mrt", DtCxCFact2.FiltraParametros("", "CveMoneda,Fecha"), listass, "Estado de cuenta", Formato)
-                Else
-                    ImprimirbytesPDF(ImprimirPDFCrystal($"{UsuarioActual.Empresa.Ruta}Formatos/RepClientesCxC.rpt", DtCxCFact2.FiltraParametros("", "CveMoneda,Fecha"), lista, "Estado de cuenta", Formato), "Estado de cuenta", Formato)
-                End If
             Else
-                ImprimirbytesPDF(ImprimirPDFCrystal(RutaReporteGrales.FullName, DtCxCFact2.FiltraParametros("", "CveMoneda,Fecha"), lista, "Estado de cuenta", Formato), "Estado de cuenta", Formato)
+                Archivo = New System.IO.FileInfo(String.Format("{0}Grales/Formatos/RepClientesCxC.mrt", DirectorioEmpresas))
+                If Archivo.Exists Then
+                    ImprimirPDFStimul(Archivo.FullName, DtCxCFact2.FiltraParametros("", "CveMoneda,Fecha"), ParametrosStimul, "Estado de cuenta", Formato)
+                Else
+                    Archivo = New System.IO.FileInfo(String.Format("{0}Formatos/RepClientesCxC.rpt", UsuarioActual.Empresa.Ruta))
+                    If Archivo.Exists Then
+                        ImprimirbytesPDF(ImprimirPDFCrystal(Archivo.FullName, DtCxCFact2.FiltraParametros("", "CveMoneda,Fecha"), lista, "Estado de cuenta", Formato), "Estado de cuenta", Formato)
+                    Else
+                        ImprimirbytesPDF(ImprimirPDFCrystal(String.Format("{0}Grales/Formatos/RepClientesCxC.rpt", DirectorioEmpresas), DtCxCFact2.FiltraParametros("", "CveMoneda,Fecha"), lista, "Estado de cuenta", Formato), "Estado de cuenta", Formato)
+                    End If
+
+                End If
             End If
+
+
+
+            'If Archivo.Exists Then
+            '    Dim ArchivoSti As New System.IO.FileInfo(String.Format("{0}Formatos/RepClientesCxC.mrt", UsuarioActual.Empresa.Ruta))
+            '    If ArchivoSti.Exists Then
+            '        Dim listass As New List(Of ReportParameter)
+            '        For Each item As CrystalParametro In lista
+            '            listass.Add(New ReportParameter(item.Nombre, item.Valor.ToString()))
+            '        Next
+            '        ImprimirPDFStimul($"{UsuarioActual.Empresa.Ruta}Formatos/RepClientesCxC.mrt", DtCxCFact2.FiltraParametros("", "CveMoneda,Fecha"), listass, "Estado de cuenta", Formato)
+            '    Else
+            '        ImprimirbytesPDF(ImprimirPDFCrystal($"{UsuarioActual.Empresa.Ruta}Formatos/RepClientesCxC.rpt", DtCxCFact2.FiltraParametros("", "CveMoneda,Fecha"), lista, "Estado de cuenta", Formato), "Estado de cuenta", Formato)
+            '    End If
+            'Else
+            '    ImprimirbytesPDF(ImprimirPDFCrystal(RutaReporteGrales.FullName, DtCxCFact2.FiltraParametros("", "CveMoneda,Fecha"), lista, "Estado de cuenta", Formato), "Estado de cuenta", Formato)
+            'End If
+
         End If
     End Sub
     Private Sub MandaCorreoEstadoCuenta(UsuarioActual As Usuario, CveEmpresa As Integer, CveCliente As Integer, File As Byte(), Para As String, Asunto As String, Body As String, Optional GuardarBitacora As Boolean = False)