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
|
||||
|
||||
Reference in New Issue
Block a user