AF cat tipos padre y tipos af, clientes formato estado de cuenta bdh
This commit is contained in:
Oscar Irigoyen
@@ -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("<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
|
||||
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))
|
||||
|
||||
@@ -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>
|
||||
|
||||
@@ -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
|
||||
|
||||
@@ -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>
|
||||
|
||||
@@ -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
|
||||
|
||||
@@ -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
|
||||
|
||||
@@ -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)
|
||||
|
||||
Reference in New Issue
Block a user