From 79fdab0d7328e30a8207652741e4b6c8f9db55d1 Mon Sep 17 00:00:00 2001 From: Oscar Irigoyen Date: Tue, 3 Jun 2025 00:25:00 -0700 Subject: [PATCH] AF cat tipos padre y tipos af, clientes formato estado de cuenta bdh --- AF/AF.aspx.vb | 73 +++++++++++++++++++++++-- AF/CatAF.aspx | 3 +- AF/CatAF.aspx.vb | 19 +++++++ AF/CatTipos.aspx | 24 ++++++++- AF/CatTipos.aspx.vb | 26 +++++++-- App_Code/ClsAF.vb | 10 +++- Ventas/Clientes.aspx.vb | 114 +++++++++++++++++++++++++++++----------- 7 files changed, 227 insertions(+), 42 deletions(-) diff --git a/AF/AF.aspx.vb b/AF/AF.aspx.vb index 9b6ce58b5..965f8e168 100644 --- a/AF/AF.aspx.vb +++ b/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 @@ -2664,15 +2667,79 @@ Partial Class AF_AF ' UPHistModificaciones.Update() ObjAF.Commit() - Alert("El Activo Fijo se guardó correctamente.", TipoMensaje.MsgInformacion, "document.location.href=""/AF/CatAF.aspx"";") + Alert("El Activo Fijo se guardó correctamente.", TipoMensaje.MsgInformacion, "document.location.href=""/AF/CatAF.aspx"";") Else ObjAF.RollBack() Alert("Ocurrió un error al actualizar el Activo Fijo. Por favor vuelva a intentar o comuniquese con servicio técnico", TipoMensaje.MsgError) End If ObjAF.Dispose() - End Sub + 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("") + strBody.Append("") + strBody.Append("") + strBody.Append("") + strBody.Append("") + strBody.Append("") + strBody.Append($"

{If(Opcion = 1, "Alta de Activo Fijo", "Baja de Activo Fijo")}

") + strBody.Append("") + strBody.Append("") + strBody.Append($"") + strBody.Append($"") + strBody.Append($"") + strBody.Append($"") + strBody.Append($"") + strBody.Append($"") + strBody.Append($"") + strBody.Append($"") + strBody.Append("
CampoValor
Código{Codigo}
Descripción{Descripcion}
Proyecto{Proyecto}
Tipo de Activo{TipoActivoFijo}
Subtipo de Activo{SubtipoActivoFijo}
Estatus{EstatusActivoFijo}
Fecha{Fecha}
Usuario{Usuario}
") + strBody.Append("") + strBody.Append("") + + 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 Dim ObjActivoFijo As New ClsAF() ObjActivoFijo.IniciaTransacSQL() @@ -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)) diff --git a/AF/CatAF.aspx b/AF/CatAF.aspx index 12a424858..a972f2d61 100644 --- a/AF/CatAF.aspx +++ b/AF/CatAF.aspx @@ -243,7 +243,8 @@
Tipo Grupo:
- + diff --git a/AF/CatAF.aspx.vb b/AF/CatAF.aspx.vb index ff23e09af..51b294589 100644 --- a/AF/CatAF.aspx.vb +++ b/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 diff --git a/AF/CatTipos.aspx b/AF/CatTipos.aspx index 594e793d2..8ddc7e863 100644 --- a/AF/CatTipos.aspx +++ b/AF/CatTipos.aspx @@ -24,12 +24,16 @@ - + + + + + > @@ -117,6 +121,24 @@
+
+
+
+ + + + + + +
+ +
+ + +
+
+
+
diff --git a/AF/CatTipos.aspx.vb b/AF/CatTipos.aspx.vb index d7dd84cf6..b391ca2a3 100644 --- a/AF/CatTipos.aspx.vb +++ b/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 diff --git a/App_Code/ClsAF.vb b/App_Code/ClsAF.vb index e0edd96b6..6e352b78b 100644 --- a/App_Code/ClsAF.vb +++ b/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 diff --git a/Ventas/Clientes.aspx.vb b/Ventas/Clientes.aspx.vb index 0a8cb9485..a4e8bcad1 100644 --- a/Ventas/Clientes.aspx.vb +++ b/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") @@ -4134,8 +4135,8 @@ Partial Class Clientes Dim TipoDocto As String = If(DdlTipoDocto.GetSelectedValuesM = "", "-1", DdlTipoDocto.GetSelectedValuesM) Dim TipoDocto2 As String = If(DdlTipoDocto.GetSelectedValuesM = "", "-1", DdlTipoDocto.GetSelectedValuesM(True)) Dim FechaVencimientoI As DateTime = If(TxtFechaVICxP.Text = "", MinFecha, TxtFechaVICxP.Text.ToDate()) - Dim FechaVencimientoF As DateTime = If(TxtFechaVFCxP.Text = "", MaxFecha, TxtFechaVFCxP.Text.ToDate()) - + Dim FechaVencimientoF As DateTime = If(TxtFechaVFCxP.Text = "", MaxFecha, TxtFechaVFCxP.Text.ToDate()) + Dim ObjMovtos As New ClsMovimientos() If ObjMovtos.GetCxCClienteDetalle(CveCliente, FI, FF, -1, -1, UsuarioActual.CveEmpresa, DdlSucursalCliente.SelectedValue.ToEntero(), FechaVencimientoI:=FechaVencimientoI, FechaVencimientoF:=FechaVencimientoF) Then DtCxCFact = If(DdlTipoCuentasCxC.SelectedValue = "-1", ObjMovtos.DtResultados.FiltraParametros("", "TipoDocto").Copy, ObjMovtos.DtResultados.FiltraParametros("Tipo = 'Act'", "TipoDocto")) @@ -4332,23 +4333,46 @@ Partial Class Clientes Catch ex As Exception 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 - - Else - ImprimirbytesPDF(ImprimirPDFCrystal(RutaReporteGrales.FullName, DtCxCFact2.FiltraParametros("", "CveMoneda,Fecha"), lista, "Estado de cuenta", Formato), "Estado de cuenta", Formato) + Else + + 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 + 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) @@ -4384,22 +4408,48 @@ Partial Class Clientes drr("Saldo") = 0 drr("SaldoAnticipo") = 0 drr("CveMoneda") = 1 - DtCxCFact2.Rows.Add(drr) + 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)) - 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) + + 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}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)