Merge branch 'master' of http://192.168.10.111:8383/SIG
This commit is contained in:
2
.gitignore
vendored
2
.gitignore
vendored
@@ -288,3 +288,5 @@ vwd.webinfo
|
||||
/A/a.aspx
|
||||
/A/a.aspx.vb
|
||||
/General/Report.rdlc
|
||||
/TmpPruebas.aspx
|
||||
/TmpPruebas.aspx.vb
|
||||
|
||||
255
AF/CatAF.aspx
255
AF/CatAF.aspx
@@ -54,6 +54,10 @@
|
||||
<i class="fa fa-file-excel-o" style="font-weight:bold;"></i> Excel
|
||||
</asp:LinkButton>
|
||||
</li>
|
||||
<li>
|
||||
|
||||
<asp:LinkButton ID="LnkPersonalizar" OnClick="LnkPersonalizar_Click" runat="server"><i class="fa fa-pencil"></i>Personalizar Columnas</asp:LinkButton>
|
||||
</li>
|
||||
|
||||
</ContentTemplate>
|
||||
<Triggers>
|
||||
@@ -160,7 +164,7 @@
|
||||
<asp:TemplateField ItemStyle-Width="132px">
|
||||
<ItemStyle BorderStyle="None" />
|
||||
<ItemTemplate>
|
||||
<asp:Label ID="LtlCaracteristica" runat="server" Text='<%# Eval("Caracteristica","{0}:")%>' Width="65"></asp:Label>
|
||||
<asp:Label ID="LtlCaracteristica" runat="server" Text='<%# Eval("Caracteristica", "{0}:")%>' Width="65"></asp:Label>
|
||||
</ItemTemplate>
|
||||
</asp:TemplateField>
|
||||
<asp:TemplateField>
|
||||
@@ -190,86 +194,311 @@
|
||||
</Columns>
|
||||
</asp:GridView>
|
||||
</div>
|
||||
<div>
|
||||
<td>Encontrados:</td>
|
||||
<td><b>
|
||||
<asp:Literal ID="LtlTotalRegistros" runat="server"></asp:Literal></b></td>
|
||||
</div>
|
||||
|
||||
</ContentTemplate>
|
||||
</asp:UpdatePanel>
|
||||
|
||||
<asp:UpdatePanel ID="UpGV" runat="server" UpdateMode="Conditional">
|
||||
<ContentTemplate>
|
||||
<asp:GridView ID="GvDatos" runat="server" AutoGenerateColumns="False" EmptyDataText="No se Encontró Activo Fijo Registrado" ToolTip="Listado de Activos Fijos" CssClass="table table-smallpadding Widthall" GridLines="None">
|
||||
<div>
|
||||
Encontrados:<b><asp:Literal ID="LtlTotalRegistros" runat="server"></asp:Literal></b>
|
||||
</div>
|
||||
<asp:GridView ID="GvDatos" runat="server" AutoGenerateColumns="False" EmptyDataText="No se Encontró Activo Fijo Registrado" ToolTip="Listado de Activos Fijos" CssClass="table table-striped table-advance table-hover Widthall ScrollAD" GridLines="None">
|
||||
<Columns>
|
||||
<asp:TemplateField HeaderText="Código">
|
||||
|
||||
<%-- 0 --%>
|
||||
<asp:TemplateField HeaderText="Código" >
|
||||
<ItemStyle Width="70px" />
|
||||
<ItemTemplate>
|
||||
<asp:HyperLink ID="Hpl" runat="server" Text='<%# Eval("Codigo") %>' NavigateUrl='<%# Eval("CveActivoFijo", "/AF/AF.aspx?CveActivoFijo={0}")%>'></asp:HyperLink>
|
||||
</ItemTemplate>
|
||||
</asp:TemplateField>
|
||||
<asp:TemplateField HeaderText="Descripción">
|
||||
|
||||
<%-- 1 --%>
|
||||
<asp:TemplateField HeaderText="Descripción">
|
||||
<ItemTemplate>
|
||||
<%--<asp:Literal ID="LtlDescripcion" runat="server" Text='<%# Eval("Descripcion")%>'></asp:Literal>--%>
|
||||
<asp:HyperLink ID="HplDescripcion" runat="server" Text='<%# Eval("Descripcion") %>' NavigateUrl='<%# Eval("CveActivoFijo", "/AF/AF.aspx?CveActivoFijo={0}")%>'></asp:HyperLink>
|
||||
</ItemTemplate>
|
||||
</asp:TemplateField>
|
||||
|
||||
<%-- 2 --%>
|
||||
<asp:TemplateField HeaderText="Tipo Act. Fijo">
|
||||
<ItemStyle Width="125px" />
|
||||
<ItemTemplate>
|
||||
<asp:Literal ID="LtlTipoActivoFijo" runat="server" Text='<%# Eval("TipoActivoFijo")%>'></asp:Literal>
|
||||
</ItemTemplate>
|
||||
</asp:TemplateField>
|
||||
|
||||
<%-- 3 --%>
|
||||
<asp:TemplateField HeaderText="Sub Tipo Act. Fijo">
|
||||
<ItemStyle Width="125px" />
|
||||
<ItemTemplate>
|
||||
<asp:Literal ID="LtlSubTIpoActivoFijo" runat="server" Text='<%# Eval("SubTIpoActivoFijo")%>'></asp:Literal>
|
||||
</ItemTemplate>
|
||||
</asp:TemplateField>
|
||||
|
||||
<%-- 4 --%>
|
||||
<asp:TemplateField HeaderText="Responsable">
|
||||
<ItemStyle Width="125px" />
|
||||
<ItemTemplate>
|
||||
<asp:Literal ID="LtlResponsable" runat="server" Text='<%# Eval("Responsable")%>'></asp:Literal>
|
||||
</ItemTemplate>
|
||||
</asp:TemplateField>
|
||||
|
||||
<%-- 5 --%>
|
||||
<asp:TemplateField HeaderText="No. Serie">
|
||||
<ItemStyle Width="50px" />
|
||||
<ItemTemplate>
|
||||
<asp:Literal ID="LtlNoSerie" runat="server" Text='<%# Eval("NoSerie")%>'></asp:Literal>
|
||||
</ItemTemplate>
|
||||
</asp:TemplateField>
|
||||
|
||||
<%-- 6 --%>
|
||||
<asp:TemplateField HeaderText="Año" ItemStyle-HorizontalAlign="Right">
|
||||
<ItemStyle Width="50px" />
|
||||
<ItemTemplate>
|
||||
<asp:Literal ID="LtlAño" runat="server" Text='<%# Eval("Año")%>'></asp:Literal>
|
||||
</ItemTemplate>
|
||||
</asp:TemplateField>
|
||||
|
||||
<%-- 7 --%>
|
||||
<asp:TemplateField HeaderText="SubProyecto">
|
||||
<ItemStyle Width="110px" />
|
||||
<ItemTemplate>
|
||||
<asp:Literal ID="LtlSubProyecto" runat="server" Text='<%# Eval("SubProyecto")%>'></asp:Literal>
|
||||
</ItemTemplate>
|
||||
</asp:TemplateField>
|
||||
|
||||
<%-- 8 --%>
|
||||
<asp:TemplateField HeaderText="Estatus" ItemStyle-HorizontalAlign="Center">
|
||||
<ItemStyle Width="50px" />
|
||||
<ItemTemplate>
|
||||
<asp:Literal ID="LtlEstadoActivoFijo" runat="server" Text='<%# Eval("EstadoActivoFijo")%>'></asp:Literal>
|
||||
</ItemTemplate>
|
||||
</asp:TemplateField>
|
||||
|
||||
<%-- 9 --%>
|
||||
<asp:TemplateField HeaderText="Fecha Ing." ItemStyle-HorizontalAlign="Center">
|
||||
<ItemStyle Width="75px" />
|
||||
<ItemTemplate>
|
||||
<asp:Literal ID="LtlFechaIng" runat="server" Text='<%# Eval("FechaIng", "{0:d}")%>'></asp:Literal>
|
||||
</ItemTemplate>
|
||||
</asp:TemplateField>
|
||||
</asp:TemplateField>
|
||||
|
||||
|
||||
<%-- 10 --%>
|
||||
<asp:TemplateField HeaderText="Grupo">
|
||||
<ItemStyle Width="75px" />
|
||||
<ItemTemplate>
|
||||
<asp:Literal ID="LtlGrupo" runat="server" Text='<%# Eval("Grupo")%>'></asp:Literal>
|
||||
</ItemTemplate>
|
||||
</asp:TemplateField>
|
||||
|
||||
<%-- 11 --%>
|
||||
<asp:TemplateField HeaderText="Marca">
|
||||
<ItemStyle Width="100px" />
|
||||
<ItemTemplate>
|
||||
<asp:Literal ID="LtlMarcaActivoFijo" runat="server" Text='<%# Eval("MarcaActivoFijo")%>'></asp:Literal>
|
||||
</ItemTemplate>
|
||||
</asp:TemplateField>
|
||||
|
||||
<%-- 12 --%>
|
||||
<asp:TemplateField HeaderText="Modelo">
|
||||
<ItemStyle Width="100px" />
|
||||
<ItemTemplate>
|
||||
<asp:Literal ID="LtlModeloActivoFijo" runat="server" Text='<%# Eval("ModeloActivoFijo")%>'></asp:Literal>
|
||||
</ItemTemplate>
|
||||
</asp:TemplateField>
|
||||
|
||||
<%-- 13 --%>
|
||||
<asp:TemplateField HeaderText="Nombre Cuenta">
|
||||
<ItemStyle Width="100px" />
|
||||
<ItemTemplate>
|
||||
<asp:Literal ID="LtlNombreCuenta" runat="server" Text='<%# Eval("NombreCuenta")%>'></asp:Literal>
|
||||
</ItemTemplate>
|
||||
</asp:TemplateField>
|
||||
|
||||
<%-- 14 --%>
|
||||
<asp:TemplateField HeaderText="Valor Compra" ItemStyle-HorizontalAlign="Right">
|
||||
<ItemStyle Width="75px" />
|
||||
<ItemTemplate>
|
||||
<asp:Literal ID="LtlValorCompra" runat="server" Text='<%# Eval("ValorCompra", "{0:C}")%>'></asp:Literal>
|
||||
</ItemTemplate>
|
||||
</asp:TemplateField>
|
||||
|
||||
<%-- 15 --%>
|
||||
<asp:TemplateField HeaderText="Fecha Compra" ItemStyle-HorizontalAlign="Center">
|
||||
<ItemStyle Width="75px" />
|
||||
<ItemTemplate>
|
||||
<asp:Literal ID="LtlFechaCompra" runat="server" Text='<%# Eval("FechaCompra", "{0:d}")%>'></asp:Literal>
|
||||
</ItemTemplate>
|
||||
</asp:TemplateField>
|
||||
|
||||
<%-- 16 --%>
|
||||
<asp:TemplateField HeaderText="Fecha Baja" ItemStyle-HorizontalAlign="Center">
|
||||
<ItemStyle Width="75px" />
|
||||
<ItemTemplate>
|
||||
<asp:Literal ID="LtlFechaBaja" runat="server" Text='<%# Eval("FechaBaja", "{0:d}")%>'></asp:Literal>
|
||||
</ItemTemplate>
|
||||
</asp:TemplateField>
|
||||
|
||||
<%-- 17 --%>
|
||||
<asp:TemplateField HeaderText="Proyecto">
|
||||
<ItemStyle Width="110px" />
|
||||
<ItemTemplate>
|
||||
<asp:Literal ID="LtlProyecto" runat="server" Text='<%# Eval("Proyecto")%>'></asp:Literal>
|
||||
</ItemTemplate>
|
||||
</asp:TemplateField>
|
||||
|
||||
<%-- 18 --%>
|
||||
<asp:TemplateField HeaderText="Nombre Cliente">
|
||||
<ItemStyle Width="125px" />
|
||||
<ItemTemplate>
|
||||
<asp:Literal ID="LtlNombreCliente" runat="server" Text='<%# Eval("NombreCliente")%>'></asp:Literal>
|
||||
</ItemTemplate>
|
||||
</asp:TemplateField>
|
||||
|
||||
<%-- 19 --%>
|
||||
<asp:TemplateField HeaderText="Observaciones">
|
||||
<ItemStyle Width="150px" />
|
||||
<ItemTemplate>
|
||||
<asp:Literal ID="LtlObservaciones" runat="server" Text='<%# Eval("Observaciones")%>'></asp:Literal>
|
||||
</ItemTemplate>
|
||||
</asp:TemplateField>
|
||||
|
||||
</Columns>
|
||||
</asp:GridView>
|
||||
|
||||
</ContentTemplate>
|
||||
</asp:UpdatePanel>
|
||||
|
||||
|
||||
<asp:UpdatePanel runat="server" ID="UPPersonalizar" UpdateMode="Conditional">
|
||||
<ContentTemplate>
|
||||
<div id="DivPersonalizar" class="modal fade" role="dialog">
|
||||
<div class="modal-dialog">
|
||||
|
||||
<!-- Modal content SucursalCobranza-->
|
||||
<div class="modal-content">
|
||||
<div class="modal-header">
|
||||
<button type="button" class="close" data-dismiss="modal">×</button>
|
||||
<h4 class="modal-title">
|
||||
<asp:Label ID="Label1" runat="server" ClientIDMode="Static" Text="Personalizar Columnas"></asp:Label></h4>
|
||||
</div>
|
||||
<div class="modal-body">
|
||||
<table class="table table-striped nobordertop table-advance table-hover">
|
||||
<tbody>
|
||||
<tr>
|
||||
<td style="text-align: left;">
|
||||
<asp:CheckBox ID="ChkCodigo" runat="server" Text=" Codigo" Checked="true" /></td>
|
||||
<td style="text-align: left;">
|
||||
<asp:CheckBox ID="ChkDescripcion" runat="server" Text=" Descripcion" Checked="true" /></td>
|
||||
<td style="text-align: left;">
|
||||
<asp:CheckBox ID="ChkTipoActivoFijo" runat="server" Text=" Tipo Activo Fijo" Checked="true" /></td>
|
||||
<td style="text-align: left;">
|
||||
<asp:CheckBox ID="ChkSubTIpoActivoFijo" runat="server" Text=" Sub Tipo Activo Fijo" Checked="true" /></td>
|
||||
</tr>
|
||||
<tr>
|
||||
<td style="text-align: left;">
|
||||
<asp:CheckBox ID="ChkResponsable" runat="server" Text=" Responsable" Checked="true" /></td>
|
||||
<td style="text-align: left;">
|
||||
<asp:CheckBox ID="ChkNoSerie" runat="server" Text=" No Serie" Checked="true" /></td>
|
||||
<td style="text-align: left;">
|
||||
<asp:CheckBox ID="ChkAño" runat="server" Text=" Año" Checked="true" /></td>
|
||||
<td style="text-align: left;">
|
||||
<asp:CheckBox ID="ChkSubProyecto" runat="server" Text=" Sub Proyecto" Checked="true" /></td>
|
||||
</tr>
|
||||
<tr>
|
||||
<td style="text-align: left;">
|
||||
<asp:CheckBox ID="ChkEstadoActivoFijo" runat="server" Text=" Estado Activo Fijo" Checked="true" /></td>
|
||||
<td style="text-align: left;">
|
||||
<asp:CheckBox ID="ChkFechaIng" runat="server" Text=" Fecha Ing" Checked="true" /></td>
|
||||
<td style="text-align: left;">
|
||||
<asp:CheckBox ID="ChkGrupo" runat="server" Text=" Grupo" /></td>
|
||||
<td style="text-align: left;">
|
||||
<asp:CheckBox ID="ChkMarcaActivoFijo" runat="server" Text=" Marca Activo Fijo" /></td>
|
||||
</tr>
|
||||
<tr>
|
||||
<td style="text-align: left;">
|
||||
<asp:CheckBox ID="ChkModeloActivoFijo" runat="server" Text=" Modelo Activo Fijo" /></td>
|
||||
<td style="text-align: left;">
|
||||
<asp:CheckBox ID="ChkNombreCuenta" runat="server" Text=" Nombre Cuenta" /></td>
|
||||
<td style="text-align: left;">
|
||||
<asp:CheckBox ID="ChkValorCompra" runat="server" Text=" Valor Compra" /></td>
|
||||
<td style="text-align: left;">
|
||||
<asp:CheckBox ID="ChkFechaCompra" runat="server" Text=" Fecha Compra" /></td>
|
||||
</tr>
|
||||
<tr>
|
||||
<td style="text-align: left;">
|
||||
<asp:CheckBox ID="ChkFechaBaja" runat="server" Text=" Fecha Baja" /></td>
|
||||
<td style="text-align: left;">
|
||||
<asp:CheckBox ID="CheckBox1" runat="server" Text=" No Serie" /></td>
|
||||
<td style="text-align: left;">
|
||||
<asp:CheckBox ID="CheckBox2" runat="server" Text=" Estado Activo Fijo" /></td>
|
||||
<td style="text-align: left;">
|
||||
<asp:CheckBox ID="CheckBox3" runat="server" Text=" Responsable" /></td>
|
||||
</tr>
|
||||
<tr>
|
||||
<td style="text-align: left;">
|
||||
<asp:CheckBox ID="ChkProyecto" runat="server" Text=" Proyecto" /></td>
|
||||
<td style="text-align: left;">
|
||||
<asp:CheckBox ID="CheckBox4" runat="server" Text=" Sub Proyecto" /></td>
|
||||
<td style="text-align: left;">
|
||||
<asp:CheckBox ID="ChkNombreCliente" runat="server" Text=" Nombre Cliente" /></td>
|
||||
<td style="text-align: left;">
|
||||
<asp:CheckBox ID="ChkObservaciones" runat="server" Text=" Observaciones" /></td>
|
||||
</tr>
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
</tbody>
|
||||
</table>
|
||||
|
||||
|
||||
</div>
|
||||
<div class="modal-footer">
|
||||
<div class="row">
|
||||
<div class="col-md-6" style="text-align: left">
|
||||
<asp:CheckBox ID="ChkGuardarPersonalizacion" runat="server" Text=" Guarda Personalización" TextAlign="Right" />
|
||||
</div>
|
||||
<div class="col-md-6">
|
||||
<%--<button type="button" class="btn btn-success" data-dismiss="modal" onclick="$('#BtnPersonalizar').click();">Personalizar</button>--%>
|
||||
<asp:Button ID="BtnPersonalizar" ClientIDMode="Static" CssClass="btn btn-success" runat="server" Text="Personalizar" class="btn btn-success" OnClick="BtnPersonalizar_Click" />
|
||||
<button type="button" class="btn btn-default" data-dismiss="modal">Cerrar</button>
|
||||
</div>
|
||||
</div>
|
||||
|
||||
</div>
|
||||
</div>
|
||||
|
||||
</div>
|
||||
</div>
|
||||
</ContentTemplate>
|
||||
</asp:UpdatePanel>
|
||||
|
||||
|
||||
<%-- <asp:UpdatePanel runat="server">
|
||||
<ContentTemplate>
|
||||
|
||||
</ContentTemplate>
|
||||
</asp:UpdatePanel>--%>
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
</asp:Content>
|
||||
<asp:Content ID="Content7" ContentPlaceHolderID="JS" runat="Server">
|
||||
|
||||
<script src="/Metronic/assets/global/scripts/datatable.js"></script>
|
||||
<%-- <script src="/Metronic/assets/global/scripts/datatable.js"></script>
|
||||
<script src="/Metronic/assets/global/plugins/datatables/all.min.js"></script>
|
||||
<script type="text/javascript">
|
||||
var OrdenarGV = function () {
|
||||
@@ -282,5 +511,5 @@
|
||||
$('#C_GvDatos').parent().parent().children().first().css("position", "static");
|
||||
}
|
||||
|
||||
</script>
|
||||
</script>--%>
|
||||
</asp:Content>
|
||||
|
||||
264
AF/CatAF.aspx.vb
264
AF/CatAF.aspx.vb
@@ -32,6 +32,19 @@ Partial Class AF_CatAF
|
||||
ViewState("DTAFCaracteristicas") = value
|
||||
End Set
|
||||
End Property
|
||||
|
||||
Private Property DtDatos As DataTable
|
||||
Get
|
||||
If ViewState("DtDatos") Is Nothing Then
|
||||
ViewState("DtDatos") = New DataTable
|
||||
End If
|
||||
Return DirectCast(ViewState("DtDatos"), DataTable)
|
||||
End Get
|
||||
Set(value As DataTable)
|
||||
ViewState("DtDatos") = value
|
||||
End Set
|
||||
End Property
|
||||
|
||||
#End Region
|
||||
|
||||
Protected Sub Page_Load(sender As Object, e As System.EventArgs) Handles Me.Load
|
||||
@@ -46,6 +59,9 @@ Partial Class AF_CatAF
|
||||
CargaDatos()
|
||||
End If
|
||||
|
||||
CargaPersonalizacion()
|
||||
|
||||
|
||||
End If
|
||||
End Sub
|
||||
|
||||
@@ -278,7 +294,7 @@ Partial Class AF_CatAF
|
||||
GvDatos.DataSource = DtActivosFijos
|
||||
GvDatos.DataBind()
|
||||
|
||||
'LtlTotalRegistros.Text = DtActivosFijos.Rows.Count.ToString.FormatoNumero(0)
|
||||
LtlTotalRegistros.Text = DtActivosFijos.Rows.Count.ToString.FormatoNumero(0)
|
||||
|
||||
UpGV.Update()
|
||||
OrdenaDatos()
|
||||
@@ -492,5 +508,251 @@ Partial Class AF_CatAF
|
||||
#End Region
|
||||
|
||||
|
||||
#Region " P E R S O N A L I Z A R C O L U M N A S "
|
||||
|
||||
Protected Sub LnkPersonalizar_Click(sender As Object, e As EventArgs)
|
||||
|
||||
ChkGuardarPersonalizacion.Checked = False
|
||||
RegistraScript("$('#DivPersonalizar').modal('show')")
|
||||
|
||||
End Sub
|
||||
|
||||
Protected Sub BtnPersonalizar_Click(sender As Object, e As System.EventArgs) Handles BtnPersonalizar.Click
|
||||
|
||||
If ChkGuardarPersonalizacion.Checked Then
|
||||
GuardaPersonalizacion()
|
||||
End If
|
||||
|
||||
Personaliza()
|
||||
CargaGvDatos()
|
||||
UpGV.Update()
|
||||
|
||||
End Sub
|
||||
|
||||
|
||||
|
||||
Private Sub GuardaPersonalizacion()
|
||||
|
||||
Dim objUsuario As New ClsSisUsuarios
|
||||
Dim ListPersonalizada As New List(Of String)
|
||||
|
||||
If ChkCodigo.Checked Then ListPersonalizada.Add("Codigo")
|
||||
|
||||
If ChkDescripcion.Checked Then ListPersonalizada.Add("Descripcion")
|
||||
|
||||
If ChkTipoActivoFijo.Checked Then ListPersonalizada.Add("TipoActivoFijo")
|
||||
|
||||
If ChkSubTIpoActivoFijo.Checked Then ListPersonalizada.Add("SubTIpoActivoFijo")
|
||||
|
||||
If ChkResponsable.Checked Then ListPersonalizada.Add("Responsable")
|
||||
|
||||
If ChkNoSerie.Checked Then ListPersonalizada.Add("NoSerie")
|
||||
|
||||
If ChkAño.Checked Then ListPersonalizada.Add("Año")
|
||||
|
||||
If ChkSubProyecto.Checked Then ListPersonalizada.Add("SubProyecto")
|
||||
|
||||
If ChkEstadoActivoFijo.Checked Then ListPersonalizada.Add("EstadoActivoFijo")
|
||||
|
||||
If ChkFechaIng.Checked Then ListPersonalizada.Add("FechaIng")
|
||||
|
||||
If ChkGrupo.Checked Then ListPersonalizada.Add("Grupo")
|
||||
|
||||
If ChkMarcaActivoFijo.Checked Then ListPersonalizada.Add("MarcaActivoFijo")
|
||||
|
||||
If ChkModeloActivoFijo.Checked Then ListPersonalizada.Add("ModeloActivoFijo")
|
||||
|
||||
If ChkNombreCuenta.Checked Then ListPersonalizada.Add("NombreCuenta")
|
||||
|
||||
If ChkValorCompra.Checked Then ListPersonalizada.Add("ValorCompra")
|
||||
|
||||
If ChkFechaCompra.Checked Then ListPersonalizada.Add("FechaCompra")
|
||||
|
||||
If ChkFechaBaja.Checked Then ListPersonalizada.Add("FechaBaja")
|
||||
|
||||
If ChkProyecto.Checked Then ListPersonalizada.Add("Proyecto")
|
||||
|
||||
'If ChkSubProyecto.Checked Then ListPersonalizada.Add("SubProyecto")
|
||||
|
||||
If ChkNombreCliente.Checked Then ListPersonalizada.Add("NombreCliente")
|
||||
|
||||
If ChkObservaciones.Checked Then ListPersonalizada.Add("Observaciones")
|
||||
|
||||
|
||||
If objUsuario.AddUsuariosPersonalizaciones(UsuarioActual, "CatAF.aspx", String.Join("|", ListPersonalizada)) Then
|
||||
'Alert("Personalizacion guardada")
|
||||
End If
|
||||
|
||||
objUsuario.Dispose()
|
||||
|
||||
End Sub
|
||||
|
||||
|
||||
Private Sub CargaPersonalizacion()
|
||||
|
||||
Dim strBasePersonalizacion As String = UsuarioActual.Personalizaciones("CatAF.aspx")
|
||||
|
||||
If strBasePersonalizacion.Trim.Length > 0 Then
|
||||
|
||||
ChkCodigo.Checked = False
|
||||
ChkDescripcion.Checked = False
|
||||
ChkTipoActivoFijo.Checked = False
|
||||
ChkSubTIpoActivoFijo.Checked = False
|
||||
ChkResponsable.Checked = False
|
||||
ChkNoSerie.Checked = False
|
||||
ChkAño.Checked = False
|
||||
ChkSubProyecto.Checked = False
|
||||
ChkEstadoActivoFijo.Checked = False
|
||||
ChkFechaIng.Checked = False
|
||||
ChkGrupo.Checked = False
|
||||
ChkMarcaActivoFijo.Checked = False
|
||||
ChkModeloActivoFijo.Checked = False
|
||||
ChkNombreCuenta.Checked = False
|
||||
ChkValorCompra.Checked = False
|
||||
ChkFechaCompra.Checked = False
|
||||
ChkFechaBaja.Checked = False
|
||||
'ChkNoSerie.Checked = False
|
||||
'ChkEstadoActivoFijo.Checked = False
|
||||
'ChkResponsable.Checked = False
|
||||
ChkProyecto.Checked = False
|
||||
'ChkSubProyecto.Checked = False
|
||||
ChkNombreCliente.Checked = False
|
||||
ChkObservaciones.Checked = False
|
||||
|
||||
Dim Personalizaciones As String() = strBasePersonalizacion.Split("|"c)
|
||||
|
||||
For Each personalizacion As String In Personalizaciones
|
||||
Select Case personalizacion
|
||||
Case "Codigo"
|
||||
ChkCodigo.Checked = True
|
||||
Exit Select
|
||||
Case "Descripcion"
|
||||
ChkDescripcion.Checked = True
|
||||
Exit Select
|
||||
Case "TipoActivoFijo"
|
||||
ChkTipoActivoFijo.Checked = True
|
||||
Exit Select
|
||||
Case "SubTIpoActivoFijo"
|
||||
ChkSubTIpoActivoFijo.Checked = True
|
||||
Exit Select
|
||||
Case "Responsable"
|
||||
ChkResponsable.Checked = True
|
||||
Exit Select
|
||||
Case "NoSerie"
|
||||
ChkNoSerie.Checked = True
|
||||
Exit Select
|
||||
Case "Año"
|
||||
ChkAño.Checked = True
|
||||
Exit Select
|
||||
Case "SubProyecto"
|
||||
ChkSubProyecto.Checked = True
|
||||
Exit Select
|
||||
Case "EstadoActivoFijo"
|
||||
ChkEstadoActivoFijo.Checked = True
|
||||
Exit Select
|
||||
Case "FechaIng"
|
||||
ChkFechaIng.Checked = True
|
||||
Exit Select
|
||||
Case "Grupo"
|
||||
ChkGrupo.Checked = True
|
||||
Exit Select
|
||||
Case "MarcaActivoFijo"
|
||||
ChkMarcaActivoFijo.Checked = True
|
||||
Exit Select
|
||||
Case "ModeloActivoFijo"
|
||||
ChkModeloActivoFijo.Checked = True
|
||||
Exit Select
|
||||
Case "NombreCuenta"
|
||||
ChkNombreCuenta.Checked = True
|
||||
Exit Select
|
||||
Case "ValorCompra"
|
||||
ChkValorCompra.Checked = True
|
||||
Exit Select
|
||||
Case "FechaCompra"
|
||||
ChkFechaCompra.Checked = True
|
||||
Exit Select
|
||||
Case "FechaBaja"
|
||||
ChkFechaBaja.Checked = True
|
||||
Exit Select
|
||||
Case "Proyecto"
|
||||
ChkProyecto.Checked = True
|
||||
Exit Select
|
||||
Case "NombreCliente"
|
||||
ChkNombreCliente.Checked = True
|
||||
Exit Select
|
||||
Case "Observaciones"
|
||||
ChkObservaciones.Checked = True
|
||||
Exit Select
|
||||
Case Else
|
||||
Exit Select
|
||||
End Select
|
||||
Next
|
||||
|
||||
Else
|
||||
PersonalizaDefault()
|
||||
End If
|
||||
|
||||
Personaliza()
|
||||
|
||||
UPPersonalizar.Update()
|
||||
|
||||
End Sub
|
||||
|
||||
|
||||
Private Sub PersonalizaDefault()
|
||||
|
||||
ChkCodigo.Checked = True
|
||||
ChkDescripcion.Checked = True
|
||||
ChkTipoActivoFijo.Checked = True
|
||||
ChkSubTIpoActivoFijo.Checked = True
|
||||
ChkResponsable.Checked = True
|
||||
ChkNoSerie.Checked = True
|
||||
ChkAño.Checked = True
|
||||
ChkSubProyecto.Checked = True
|
||||
ChkEstadoActivoFijo.Checked = True
|
||||
ChkFechaIng.Checked = True
|
||||
|
||||
End Sub
|
||||
|
||||
|
||||
Private Sub Personaliza()
|
||||
|
||||
GvDatos.Columns(0).Visible = ChkCodigo.Checked
|
||||
GvDatos.Columns(1).Visible = ChkDescripcion.Checked
|
||||
GvDatos.Columns(2).Visible = ChkTipoActivoFijo.Checked
|
||||
GvDatos.Columns(3).Visible = ChkSubTIpoActivoFijo.Checked
|
||||
GvDatos.Columns(4).Visible = ChkResponsable.Checked
|
||||
GvDatos.Columns(5).Visible = ChkNoSerie.Checked
|
||||
GvDatos.Columns(6).Visible = ChkAño.Checked
|
||||
GvDatos.Columns(7).Visible = ChkSubProyecto.Checked
|
||||
GvDatos.Columns(8).Visible = ChkEstadoActivoFijo.Checked
|
||||
GvDatos.Columns(9).Visible = ChkFechaIng.Checked
|
||||
|
||||
GvDatos.Columns(10).Visible = ChkGrupo.Checked
|
||||
GvDatos.Columns(11).Visible = ChkMarcaActivoFijo.Checked
|
||||
GvDatos.Columns(12).Visible = ChkModeloActivoFijo.Checked
|
||||
GvDatos.Columns(13).Visible = ChkNombreCuenta.Checked
|
||||
GvDatos.Columns(14).Visible = ChkValorCompra.Checked
|
||||
GvDatos.Columns(15).Visible = ChkFechaCompra.Checked
|
||||
GvDatos.Columns(16).Visible = ChkFechaBaja.Checked
|
||||
'GvDatos.Columns(17).Visible = ChkNoSerie.Checked
|
||||
'GvDatos.Columns(18).Visible = ChkEstadoActivoFijo.Checked
|
||||
'GvDatos.Columns(19).Visible = ChkResponsable.Checked
|
||||
GvDatos.Columns(17).Visible = ChkProyecto.Checked
|
||||
'GvDatos.Columns(18).Visible = ChkSubProyecto.Checked
|
||||
GvDatos.Columns(18).Visible = ChkNombreCliente.Checked
|
||||
GvDatos.Columns(19).Visible = ChkObservaciones.Checked
|
||||
|
||||
|
||||
|
||||
'Personalizo = 1
|
||||
'If Personalizo = 1 Then
|
||||
' ImgExcelPersonalizado.Visible = True
|
||||
'Else
|
||||
' ImgExcelPersonalizado.Visible = False
|
||||
'End If
|
||||
|
||||
End Sub
|
||||
|
||||
#End Region
|
||||
End Class
|
||||
|
||||
@@ -2617,18 +2617,18 @@ Public Class ClsGenerales
|
||||
End Try
|
||||
|
||||
Return Retorno
|
||||
End Function
|
||||
|
||||
|
||||
End Function
|
||||
|
||||
|
||||
#End Region
|
||||
|
||||
|
||||
#Region "Bitacora"
|
||||
Public Function GetHistorialBitacora(CveAcarreo As Integer, CveOrdenCompra As Integer, CveActivoFijo As Integer,
|
||||
CveOS As Integer, CvePS As Integer, CveCompra As Integer, CveIE As Integer,
|
||||
CveEmpresa As Integer, Optional CveUsuario As Integer = -1, Optional CvePersonal As Integer = -1,
|
||||
Optional IdPoliza As Integer = -1, Optional CvePrePoliza As Integer = -1, Optional CvePeriodo As Integer = -1, Optional CveConceptoNomina As Integer = -1, Optional CvePromocion As Integer = -1,
|
||||
Optional CveAsistencia As Integer = -1, Optional CveAsistenciaDetalle As Integer = -1, Optional CveTipoBitacora As Integer = -1,
|
||||
Optional FechaInicio As String = "", Optional FechaFin As String = "", Optional Fecha As Date = MinFecha) As Boolean
|
||||
Optional FechaInicio As String = "", Optional FechaFin As String = "", Optional Fecha As Date = MinFecha, Optional CveContrato As Integer = -1) As Boolean
|
||||
Dim Retorno As Boolean = False
|
||||
DataAdapter("PA_Gral_HistorialBitacoraGet")
|
||||
|
||||
@@ -2648,6 +2648,7 @@ Public Class ClsGenerales
|
||||
.Add("@CvePeriodo", SqlDbType.Int).Value = CvePeriodo
|
||||
.Add("@CveConceptoNomina", SqlDbType.Int).Value = CveConceptoNomina
|
||||
.Add("@CvePromocion", SqlDbType.Int).Value = CvePromocion
|
||||
.Add("@CveContrato", SqlDbType.Int).Value = CveContrato
|
||||
|
||||
|
||||
.Add("@CveAsistencia", SqlDbType.Int).Value = CveAsistencia
|
||||
@@ -2698,7 +2699,7 @@ Public Class ClsGenerales
|
||||
CveIE As Integer, Actual As String, Anterior As String, CveUsuario As Integer,
|
||||
CveEmpresa As Integer, SeElimino As Integer, Descripcion As String, Tipo As String,
|
||||
Id_Clave As String, Optional IdPoliza As Integer = -1, Optional CvePromocion As Integer = -1, Optional CveUsuarioTabla As Integer = -1,
|
||||
Optional CvePersonal As Integer = -1, Optional Motivo As String = "", Optional Fecha As String = "1900/01/01") As Boolean
|
||||
Optional CvePersonal As Integer = -1, Optional Motivo As String = "", Optional Fecha As String = "1900/01/01", Optional CveContrato As Integer = -1) As Boolean
|
||||
Dim Retorno As Boolean = False
|
||||
DataAdapter("PA_Gral_HistorialBitacoraAdd")
|
||||
|
||||
@@ -2725,6 +2726,7 @@ Public Class ClsGenerales
|
||||
.Add("@CvePersonal", SqlDbType.Int).Value = CvePersonal
|
||||
.Add("@Motivo", SqlDbType.VarChar).Value = Motivo
|
||||
.Add("@Fecha", SqlDbType.DateTime).Value = Fecha
|
||||
.Add("@CveContrato", SqlDbType.Int).Value = CveContrato
|
||||
|
||||
|
||||
End With
|
||||
|
||||
@@ -97,18 +97,24 @@ Public Class ClsValidaCFDi
|
||||
oAcuse = wsConsultaCFDI.Consulta(String.Format("?re={0}&rr={1}&tt={2}&id={3}", LRFCEmisor, LRFCReceptor, Importe, LFolioFiscal.ToUpper))
|
||||
'oAcuse = wsConsultaCFDI.Consulta("?re=LESA6211234B2&rr=GCO890418M56&tt=0000001360.000000&id=0C8BAD9C-A8C6-4A48-8FF5-0687AC6F1581")
|
||||
'Alert(oAcuse.Estado)
|
||||
If oAcuse.Estado.ToLower = "vigente" Then
|
||||
EsValida = 1
|
||||
End If
|
||||
If oAcuse.Estado.ToLower = "cancelado" Then
|
||||
EsValida = 2
|
||||
End If
|
||||
|
||||
If oAcuse.ValidacionEFOS = "100" Then
|
||||
EnListaEFOS = True
|
||||
If oAcuse IsNot Nothing AndAlso oAcuse.Estado IsNot Nothing AndAlso oAcuse.ValidacionEFOS IsNot Nothing Then
|
||||
If oAcuse.Estado.ToLower = "vigente" Then
|
||||
EsValida = 1
|
||||
End If
|
||||
If oAcuse.Estado.ToLower = "cancelado" Then
|
||||
EsValida = 2
|
||||
End If
|
||||
|
||||
If oAcuse.ValidacionEFOS = "100" Then
|
||||
EnListaEFOS = True
|
||||
Else
|
||||
EnListaEFOS = False
|
||||
End If
|
||||
Else
|
||||
EnListaEFOS = False
|
||||
EsValida = 0
|
||||
End If
|
||||
|
||||
Catch ex As Exception
|
||||
MsgError = "Op1. No se pudo validar la vigencia ante el SAT "
|
||||
GuardaLog(String.Format("Op1. {0}", ex.Message))
|
||||
@@ -122,7 +128,7 @@ Public Class ClsValidaCFDi
|
||||
|
||||
Dim Vigencia As Timbrado.AcuseCancelacionSAT = Timbrado.VerificarVigenciaSAT(LFolioFiscal.ToUpper, LRFCEmisor.Replace("%26", "&"), LRFCReceptor.Replace("%26", "&"), Importe, True)
|
||||
|
||||
If Vigencia IsNot Nothing Then
|
||||
If Vigencia IsNot Nothing AndAlso Vigencia.Estado IsNot Nothing AndAlso Vigencia.EsCancelable IsNot Nothing AndAlso Vigencia.EstatusCancelacion IsNot Nothing Then
|
||||
If Not Vigencia.Estado.ToUpper().Contains("NO ENCONTRADO") AndAlso Vigencia.EsCancelable.ToUpper() = "NO CANCELABLE" Then
|
||||
EsValida = 1
|
||||
End If
|
||||
|
||||
@@ -148,6 +148,7 @@ Public Class LogicNominas
|
||||
Dim totalDb As Decimal
|
||||
Dim subTotalDb As Decimal
|
||||
Dim CodigoPostal As String = ""
|
||||
Dim CLABEInterbancaria As String = ""
|
||||
|
||||
Dim ObjIncapacidades As New List(Of CFDINominaIncapacidades)
|
||||
'Conexiones a la Base de Datos
|
||||
@@ -175,7 +176,7 @@ Public Class LogicNominas
|
||||
|
||||
ClaveBanco = drow("ClaveBanco").ToString()
|
||||
BancoNumCuenta = drow("BancoNumCuenta").ToString()
|
||||
|
||||
CLABEInterbancaria = drow("CLABE").ToString()
|
||||
'If TimbreIndemnizacion Then
|
||||
' cfdi.Timbrado = drow("SeTimbroFiniquitoVal").ToString().ToEntero() = 1
|
||||
' cfdi.IStimbreFiniquito = True
|
||||
@@ -495,8 +496,19 @@ Public Class LogicNominas
|
||||
cfdi.Nomina.Receptor.Puesto = Puesto
|
||||
cfdi.Nomina.Receptor.CodigoRiesgoPuesto = CveSATRiesgoPuesto.ToString()
|
||||
cfdi.Nomina.Receptor.PeriodicidadPago = PeriodicidadPago
|
||||
If Not IsNothing(CLABEInterbancaria) OrElse CLABEInterbancaria.Trim().Length > 16 Then
|
||||
cfdi.Nomina.Receptor.NumeroCuenta = CLABEInterbancaria
|
||||
Else
|
||||
cfdi.Nomina.Receptor.NumeroCuenta = BancoNumCuenta
|
||||
End If
|
||||
|
||||
|
||||
cfdi.Nomina.Receptor.CodigoBanco = ClaveBanco
|
||||
cfdi.Nomina.Receptor.NumeroCuenta = BancoNumCuenta
|
||||
If Not IsNothing(cfdi.Nomina.Receptor.NumeroCuenta) AndAlso
|
||||
cfdi.Nomina.Receptor.NumeroCuenta.Trim().Length > 17 Then
|
||||
cfdi.Nomina.Receptor.CodigoBanco = ""
|
||||
|
||||
End If
|
||||
cfdi.Nomina.Receptor.SDI = SDI
|
||||
cfdi.Nomina.Receptor.SBC = SalarioDiarioSS
|
||||
cfdi.Nomina.Receptor.Sindicalizado = If(Sindicalizado, "Sí", "No")
|
||||
|
||||
@@ -554,7 +554,7 @@ Public Class CargaEventos : Implements IHttpHandler, IRequiresSessionState
|
||||
Dim cevent As CalendarEvent = New CalendarEvent()
|
||||
|
||||
cevent.id = dr("CveContrato").ToString.ToEntero
|
||||
cevent.title = dr("DescripcionContrato").ToString
|
||||
cevent.title = If(dr("CodigoAF").ToString.Trim.Length > 0, $"#{dr("CodigoAF").ToString}-{dr("DescripcionContrato").ToString}", $"-{dr("DescripcionContrato").ToString}")
|
||||
cevent.start = String.Format("{0:s}", dr("FechaInicial").ToString.ToDateTime)
|
||||
cevent.end = If(tipoVista = "fecha", String.Format("{0:s}", dr("FechaInicial").ToString.ToDateTime.AddHours(1)), String.Format("{0:s}", dr("FechaFinal").ToString.ToDateTime))
|
||||
cevent.FechaFinal = String.Format("{0:s}", dr("FechaFinal").ToString.ToDateTime)
|
||||
|
||||
@@ -965,7 +965,7 @@ Partial Class Bancos_Creditos
|
||||
If CveCredito > 0 Then
|
||||
If ObjCredito.UpdateCreditos(CveCredito, DdlTipoCredito.SelectedValue.ToEntero, TxtReferencia.Text, TxtObservaciones.Text, -1, -1, -1, DdlTipoMoneda.SelectedValue.ToEntero, TxtFechaInicio.Text.ToString.ToDate, FechaVencimiento, TxtTasa.Text.Trim.ToDouble, TxtSobreTasa.Text.Trim.ToDouble, TxtIVA.Text.ToDouble / 100,
|
||||
TxtPlazo.Text.Trim.ToEntero, -1, TxtVehiculoValor.Text.ToString.ToDouble, TxtComisionValor.Text.ToString.ToDouble, TxtSeguroMensual.Text.ToString.ToDouble, TxtOtrosGastosValor.Text.ToString.ToDouble,
|
||||
DdlProveedores.SelectedValue.ToEntero, RBLClasificacionContable.SelectedValue.ToEntero, DdlCtaContable.SelectedValue.ToEntero, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, AplicaAnticipo:=If(RBLAnticipo.SelectedValue.ToEntero = 1, True, False),
|
||||
DdlProveedores.SelectedValue.ToEntero, RBLClasificacionContable.SelectedValue.ToEntero, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, AplicaAnticipo:=If(RBLAnticipo.SelectedValue.ToEntero = 1, True, False),
|
||||
CreditoAnticipo:=TxtVehiculoAnticipo.Text.ToDouble, ComisionAnticipo:=TxtComisionAnticipo.Text.ToDouble, SeguroAnticipo:=TxtSeguroAnticipo.Text.ToDouble, OtrosGastosAnticipo:=TxtOtrosGastosAnticipo.Text.ToDouble, FondoGarantia:=TxtFondoGarantia.Text.ToDouble, SeguroValor:=TxtSeguroValor.Text.ToDouble, TipoInteres:=ChkTipoInteres.Checked) Then
|
||||
|
||||
If RegeneraTablaAmortizacion Then
|
||||
|
||||
@@ -6423,10 +6423,21 @@ Partial Class Compras_Compras
|
||||
Dim CvePrePoliza2Almacen As Integer = ObjConta.AddPrePolizas("Compras/Registrar/Almacen", If(EsContado And CvePlantillaPrePoliza = 1, 2, CvePlantillaPrePoliza), ImporteCompra, TxtTotal.Text.ToDouble, DdlMoneda.SelectedValue.ToEntero, NowADS(), ConceptoPoliza, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, FolioFijo:=FolioFijo, ReglaFolioPoliza:=ObjCompras.ObtenerReglaFolio(DdlTipoTransaccion.SelectedValue, DdlTipoTransaccionCaja.SelectedValue, UsuarioActual.CveEmpresa), CveTipoPoliza:=ObjConta.ObtenerTipoPoliza(DdlTipoTransaccion.SelectedValue, DdlTipoTransaccionCaja.SelectedValue, UsuarioActual.CveEmpresa))
|
||||
|
||||
If CvePrePoliza2Almacen > 0 Then
|
||||
If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza2Almacen, True, importeMN.RoundSQL(2), importeMN.RoundSQL(2), 205, Referencia, Concepto, CveCompra:=CveCompra, CveProveedor:=CveProveedorConcepto, CveIE:=CveIE, CvePersonal:=CvePersonal, CveMovimientoAlmacen:=CveMovimientoInventario, CveCreditoDetalle:=CveCreditoDetalle, ImporteME:=If(tipoCambioActual = 1, 0, importeMovimiento), TipoCambio:=tipoCambioActual, Contabilizable:=ContabilizableAlmacen) Then
|
||||
|
||||
Dim ImpPrepoliza As Decimal = 0D
|
||||
Dim ImpPrepolizaMN As Decimal = 0D
|
||||
|
||||
For Each gvRowInv As GridViewRow In GvInv.Rows
|
||||
Dim gvCantidad As Decimal = gvRowInv.FCTextBox("TbCantidad").Text.ToDecimal
|
||||
Dim gvPU As Decimal = gvRowInv.DataKey("PU").ToDecimal
|
||||
ImpPrepoliza = ImpPrepoliza + (gvCantidad * gvPU)
|
||||
Next
|
||||
ImpPrepolizaMN = ImpPrepoliza * tipoCambioActual * Multiplicador
|
||||
|
||||
If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza2Almacen, True, ImpPrepolizaMN.RoundSQL(2), ImpPrepolizaMN.RoundSQL(2), 205, Referencia, Concepto, CveCompra:=CveCompra, CveProveedor:=CveProveedorConcepto, CveIE:=CveIE, CvePersonal:=CvePersonal, CveMovimientoAlmacen:=CveMovimientoInventario, CveCreditoDetalle:=CveCreditoDetalle, ImporteME:=If(tipoCambioActual = 1, 0, importeMovimiento), TipoCambio:=tipoCambioActual, Contabilizable:=ContabilizableAlmacen) Then
|
||||
ErrorPrepoliza = True
|
||||
End If
|
||||
If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza2Almacen, False, importeMN.RoundSQL(2), importeMN.RoundSQL(2), 68, Referencia, Concepto, CveCompra:=CveCompra, CveProveedor:=CveProveedorConcepto, CveIE:=CveIE, CvePersonal:=CvePersonal, CveMovimientoAlmacen:=CveMovimientoInventario, CveCreditoDetalle:=CveCreditoDetalle, ImporteME:=If(tipoCambioActual = 1, 0, importeMovimiento), TipoCambio:=tipoCambioActual, Contabilizable:=ContabilizableAlmacen) Then
|
||||
If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza2Almacen, False, ImpPrepolizaMN.RoundSQL(2), ImpPrepolizaMN.RoundSQL(2), 68, Referencia, Concepto, CveCompra:=CveCompra, CveProveedor:=CveProveedorConcepto, CveIE:=CveIE, CvePersonal:=CvePersonal, CveMovimientoAlmacen:=CveMovimientoInventario, CveCreditoDetalle:=CveCreditoDetalle, ImporteME:=If(tipoCambioActual = 1, 0, importeMovimiento), TipoCambio:=tipoCambioActual, Contabilizable:=ContabilizableAlmacen) Then
|
||||
ErrorPrepoliza = True
|
||||
End If
|
||||
Else
|
||||
@@ -13318,10 +13329,11 @@ Partial Class Compras_Compras
|
||||
dtt = dtt.FiltraParametros($"Fecha >= #{NowADS.AddMonths(-12).ToString("yyyy/MM/dd")}#")
|
||||
End If
|
||||
DDLDevolucion.DataSource = dtt
|
||||
DDLDevolucion.Items.Insert(0, New ListItem("Seleccione", "-1"))
|
||||
|
||||
End If
|
||||
objcompras.Dispose()
|
||||
DDLDevolucion.DataBind()
|
||||
DDLDevolucion.Items.Insert(0, New ListItem("Seleccione", "-1"))
|
||||
UPDevolucion.Update()
|
||||
|
||||
End Sub
|
||||
|
||||
@@ -412,7 +412,7 @@ Partial Class Contratos_Presupuestos
|
||||
CveConceptoContableNom = CveAgrupador
|
||||
End If
|
||||
|
||||
If CveClasificacion > 0 Then
|
||||
If CveClasificacion > 0 Or CveConceptoContableNom > 0 Then
|
||||
If ImporteClasi > 0 Then
|
||||
TieneError = Not ObjCont.AddPresupuestosDetalle(CvePresupuestoNuevo, CveClasificacion, CveTipoGasto, ImporteClasi, ObsDetalle, CveConceptoContableNom:=CveConceptoContableNom)
|
||||
If TieneError Then
|
||||
|
||||
@@ -82,7 +82,9 @@ Partial Class Contratos_RepPresupuestosDetalle
|
||||
Private Sub CargaSubProyecto()
|
||||
DdlSubProyecto.Items.Clear()
|
||||
If DdlProyecto.SelectedValue.ToEntero > 0 Or UsuarioActual.Empresa.Tipo_CentroCosto = 1 Then
|
||||
DdlSubProyecto.DataSource = If(UsuarioActual.Empresa.Funcionalidad(102) = "1" AndAlso Not UsuarioActual.TienePermisoProceso(110), GlobalDTSubProyectosUsuarios(UsuarioActual.CveUsuario, DdlProyecto.SelectedValue.ToEntero, UsuarioActual.CveEmpresa, -1, 1), GlobalDTSubProyectos(DdlProyecto.SelectedValue.ToEntero, -1, UsuarioActual.CveEmpresa, 1))
|
||||
DdlSubProyecto.DataSource = If(UsuarioActual.Empresa.Funcionalidad(102) = "1" AndAlso Not UsuarioActual.TienePermisoProceso(110),
|
||||
GlobalDTSubProyectosUsuarios(UsuarioActual.CveUsuario, DdlProyecto.SelectedValue.ToEntero, UsuarioActual.CveEmpresa, -1, 1),
|
||||
GlobalDTSubProyectos(UsuarioActual.CveEmpresa, -1, DdlProyecto.SelectedValue.ToEntero, 1))
|
||||
End If
|
||||
DdlSubProyecto.Items.Insert(0, New ListItem("Todos", "-1"))
|
||||
DdlSubProyecto.DataBind()
|
||||
@@ -94,19 +96,21 @@ Partial Class Contratos_RepPresupuestosDetalle
|
||||
Dim CveProyecto = IfNull(Request("CveProyecto"), -1).ToString.ToEntero
|
||||
Dim CveSubProyecto = IfNull(Request("CveSubProyecto"), -1).ToString.ToEntero
|
||||
Dim CveTipoGasto = IfNull(Request("CveTipoGasto"), -1).ToString.ToEntero
|
||||
Dim Agrupador = IfNull(Request("Agrupador"), -1).ToString.ToEntero
|
||||
Dim Agrupador = IfNull(Request("Agrupador"), -1).ToString.ToEntero
|
||||
|
||||
Gpo = IfNull(Request("CveAgrupador"), -1).ToString.ToEntero
|
||||
|
||||
Dim Mensual = CBool(IfNull(Request("Mensual"), False))
|
||||
Dim EsProyecto = CBool(IfNull(Request("EsProyecto"), False))
|
||||
'If Agrupador = 1 Then Agrupador = 2 Else Agrupador = 1
|
||||
DdlAgrupador.SelectedValueExist(Agrupador)
|
||||
DdlClasificacion.SelectedValueExist(CveClasificacion)
|
||||
|
||||
If DdlAgrupador.SelectedValue.ToEntero = 1 Then
|
||||
If DdlAgrupador.SelectedValue.ToEntero = 1 Then 'Clasificación
|
||||
DdlClasificacion.SelectedValueExist(Gpo)
|
||||
DdlProyecto.SelectedValueExist(CveProyecto)
|
||||
DdlSubProyecto.SelectedValueExist(CveSubProyecto)
|
||||
ElseIf DdlAgrupador.SelectedValue.ToEntero = 2 Then
|
||||
ElseIf DdlAgrupador.SelectedValue.ToEntero = 2 Then ' Centro costo
|
||||
If Not EsProyecto Then
|
||||
Dim Dr As DataRow = GlobalDTSubProyectos(UsuarioActual.CveEmpresa, Gpo)(0)
|
||||
DdlProyecto.SelectedValueExist(Dr("CveProyecto"))
|
||||
@@ -121,6 +125,10 @@ Partial Class Contratos_RepPresupuestosDetalle
|
||||
TxtFiltrosFechaInicio.Text = FechaInicio
|
||||
TxtFiltrosFechaFin.Text = FechaFin
|
||||
ChkMensual.Checked = Mensual
|
||||
|
||||
If Agrupador = 1 Then Agrupador = 2 Else Agrupador = 1
|
||||
DdlAgrupador.SelectedValueExist(Agrupador)
|
||||
|
||||
End Sub
|
||||
#End Region
|
||||
|
||||
|
||||
@@ -89,6 +89,8 @@
|
||||
<asp:BoundField DataField="Folio" HeaderText="Folio" ItemStyle-Width="80px" />
|
||||
<asp:BoundField DataField="AlmacenOrigen" HeaderText="Origen" ItemStyle-Width="200px" />
|
||||
<asp:BoundField DataField="AlmacenDestino" HeaderText="Destino" ItemStyle-Width="200px" />
|
||||
<asp:BoundField DataField="Observaciones" HeaderText="Observaciones" />
|
||||
|
||||
<asp:BoundField DataField="Fecha" HeaderText="Fecha" ItemStyle-Width="90px" DataFormatString="{0:d}" />
|
||||
<asp:BoundField DataField="Nombre" HeaderText="Solicitante" />
|
||||
|
||||
@@ -163,6 +165,20 @@
|
||||
<asp:RequiredFieldValidator ID="RfvDdlAlmacenDestino" runat="server" InitialValue="-1" ControlToValidate="DdlAlmacenDestino" CssClass="help-block errorimput"
|
||||
ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Almacén Destino''</b> es necesario, por favor ingréselo." ValidationGroup="GrpGeneraSolictud"></asp:RequiredFieldValidator>
|
||||
</div>
|
||||
</div>
|
||||
<div class="row ">
|
||||
|
||||
<div class="col-md-12">
|
||||
|
||||
<div class=" form-group form-md-line-input input-iconright">
|
||||
<asp:TextBox ID="TxtObservaciones" CssClass="form-control marginFixRow" runat="server" MaxLength="255" CausesValidation="true"></asp:TextBox>
|
||||
<label for="<%= TxtObservaciones.ClientID.ToString()%>">Observaciones:</label>
|
||||
</div>
|
||||
|
||||
</div>
|
||||
|
||||
|
||||
|
||||
</div>
|
||||
<hr style="border: 0; height: 1px; background-image: linear-gradient(to right, rgba(0, 0, 0, 0), rgba(0, 0, 0, 0.75), rgba(0, 0, 0, 0));" />
|
||||
<div class="row marginRowLeft">
|
||||
@@ -185,14 +201,7 @@
|
||||
</div>
|
||||
|
||||
|
||||
<%-- <div class="row">
|
||||
<div class="col-md-12" style="text-align:right!important">
|
||||
|
||||
|
||||
|
||||
</div>
|
||||
</div>--%>
|
||||
|
||||
|
||||
<div class="row">
|
||||
<div class="col-md-12">
|
||||
|
||||
|
||||
@@ -323,7 +323,7 @@ Partial Class Inventarios_TrasladoSolicitud
|
||||
Estatus = 3
|
||||
End If
|
||||
|
||||
Dim Folio As Integer = ObjInventarios.AddTrasladoSolicitud("", DdlAlmacenOrigen.SelectedValue.ToEntero, DdlAlmacenDestino.SelectedValue.ToEntero, Estatus, -1, NowADS, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, EstatusAlmacen:=EstatusAlmacen)
|
||||
Dim Folio As Integer = ObjInventarios.AddTrasladoSolicitud(TxtObservaciones.text, DdlAlmacenOrigen.SelectedValue.ToEntero, DdlAlmacenDestino.SelectedValue.ToEntero, Estatus, -1, NowADS, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, EstatusAlmacen:=EstatusAlmacen)
|
||||
|
||||
If Folio > 0 Then
|
||||
CveTraspasoSolicitud = ObjInventarios.CveTraspasoSolicitud
|
||||
|
||||
@@ -187,7 +187,7 @@
|
||||
</tr>
|
||||
</thead>
|
||||
</table>
|
||||
<asp:GridView ID="GvDatos" runat="server" AutoGenerateColumns="False" DataKeyNames="CvePeriodo, CveTipoPeriodo,CveSubTipoPeriodo, Ejercicio, Numero, FechaInicio,FechaFin, EsInicioMes, EsFinMes, EsInicioSS, EsFinSS, EsInicioAño, EsFinAño, FueCalculado, Estatus, CveTurno"
|
||||
<asp:GridView ID="GvDatos" runat="server" AutoGenerateColumns="False" DataKeyNames="CvePeriodo, CveTipoPeriodo,CveSubTipoPeriodo, Ejercicio, Mes,Numero, FechaInicio,FechaFin, EsInicioMes, EsFinMes, EsInicioSS, EsFinSS, EsInicioAño, EsFinAño, FueCalculado, Estatus, CveTurno"
|
||||
CssClass="table table-striped table-advance table-hover mysmallbtn ScrollAD Widthall GvDatos" data-tableheader=".tableheader" EmptyDataText="No se encontraron Periodos Registrados"
|
||||
GridLines="None" data-rows="0" ShowHeader="false">
|
||||
<Columns>
|
||||
@@ -383,6 +383,12 @@
|
||||
<div class="col-xs-4">
|
||||
<asp:TextBox ID="TxtNumeroAdd" runat="server" CssClass=" form-control input-sm" CausesValidation="true" MaxLength="70" ValidationGroup="GrpGuardar" Width="100%"></asp:TextBox>
|
||||
</div>
|
||||
<div class="col-xs-2" style="text-align: left;">
|
||||
Mes:
|
||||
</div>
|
||||
<div class="col-xs-4">
|
||||
<asp:TextBox ID="TxtMes" runat="server" CssClass=" form-control input-sm" CausesValidation="true" MaxLength="70" ValidationGroup="GrpGuardar" Width="100%"></asp:TextBox>
|
||||
</div>
|
||||
</div>
|
||||
<br />
|
||||
<div class="row">
|
||||
|
||||
@@ -227,8 +227,8 @@ Partial Class Nomina_CatPeriodos
|
||||
RegistraScript("$('#divAddPeriodo').modal('show');")
|
||||
End Sub
|
||||
Protected Sub BtnAgregar_Click(sender As Object, e As System.EventArgs) Handles BtnAgregar.Click
|
||||
Dim ObjNom_Periodos As New ClsNominas
|
||||
|
||||
Dim mensajeerror As String = ""
|
||||
Dim EsInicioMes As Boolean
|
||||
Dim EsFinMes As Boolean
|
||||
Dim EsInicioSS As Boolean
|
||||
@@ -237,72 +237,85 @@ Partial Class Nomina_CatPeriodos
|
||||
Dim EsFinAño As Boolean
|
||||
Dim FueCalculado As Boolean
|
||||
Dim Numero As Integer = TxtNumeroAdd.Text.Trim.ToEntero()
|
||||
Dim FechaInicio As Date = TxtFechaInicioAdd.Text.Trim.ToDate
|
||||
Dim FechaFin As Date = TxtFechaFinAdd.Text.Trim.ToDate
|
||||
Dim Mes As Integer = FechaFin.Month
|
||||
Dim FechaInicio As Date = TxtFechaInicioAdd.Text().Trim.ToDate()
|
||||
Dim FechaFin As Date = TxtFechaFinAdd.Text.Trim().ToDate()
|
||||
Dim Mes As Integer = TxtMes.Text.Trim().ToEntero()
|
||||
If Not ((FechaFin.Month = 12 And (Mes = 1)) OrElse (FechaFin.Month = 1 And (Mes = 12)) OrElse (Math.Abs(FechaFin.Month - Mes) <= 1)) OrElse
|
||||
Mes > 12 OrElse Mes < 1 Then
|
||||
TxtMes.Text = FechaFin.Month.ToString()
|
||||
mensajeerror = "El mes seleccionado para el periodo de nómina debe ser el mes actual, el mes anterior, o el mes siguiente a la fecha de finalización."
|
||||
End If
|
||||
Dim Ejercicio As Integer = FechaFin.Year
|
||||
Dim CveTipoPeriodo As Integer = DdlTipoPeriodoAdd.SelectedValue.ToEntero()
|
||||
Dim Estatus As Integer = DdlEstatusAdd.SelectedValue.ToEntero()
|
||||
Dim CvePeriodo As Integer = hdnCvePerido.Value.ToEntero()
|
||||
Dim CveSubTipoPeriodo As Integer = TxtCveSubTipoPeriodoAdd.Text.ToEntero()
|
||||
If CveSubTipoPeriodo <= 1 Then
|
||||
CveSubTipoPeriodo = 1
|
||||
End If
|
||||
For Each item As ListItem In CBLchk.Items
|
||||
Select Case item.Value.ToEntero()
|
||||
Case 1
|
||||
If item.Selected Then EsInicioMes = True Else EsInicioMes = False
|
||||
Case 2
|
||||
If item.Selected Then EsFinMes = True Else EsFinMes = False
|
||||
Case 3
|
||||
If item.Selected Then EsInicioSS = True Else EsInicioSS = False
|
||||
Case 4
|
||||
If item.Selected Then EsFinSS = True Else EsFinSS = False
|
||||
Case 5
|
||||
If item.Selected Then EsInicioAño = True Else EsInicioAño = False
|
||||
Case 6
|
||||
If item.Selected Then EsFinAño = True Else EsFinAño = False
|
||||
Case 7
|
||||
If item.Selected Then FueCalculado = True Else FueCalculado = False
|
||||
End Select
|
||||
Next
|
||||
If Comando = "Agregar" Then
|
||||
If (mensajeerror = "") Then
|
||||
|
||||
If ObjNom_Periodos.AddPeriodo(CveTipoPeriodo, Ejercicio, Mes, Numero, FechaInicio, FechaFin, EsInicioMes, EsFinMes, EsInicioSS, EsFinSS, EsInicioAño, EsFinAño, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, DdlTurno.SelectedValue.ToEntero(), DdlEstatus.SelectedValue.ToEntero(), CveSubTipoPeriodo) Then
|
||||
Using ObjNom_Periodos As New ClsNominas
|
||||
|
||||
If CveSubTipoPeriodo <= 1 Then
|
||||
CveSubTipoPeriodo = 1
|
||||
End If
|
||||
For Each item As ListItem In CBLchk.Items
|
||||
Select Case item.Value.ToEntero()
|
||||
Case 1
|
||||
If item.Selected Then EsInicioMes = True Else EsInicioMes = False
|
||||
Case 2
|
||||
If item.Selected Then EsFinMes = True Else EsFinMes = False
|
||||
Case 3
|
||||
If item.Selected Then EsInicioSS = True Else EsInicioSS = False
|
||||
Case 4
|
||||
If item.Selected Then EsFinSS = True Else EsFinSS = False
|
||||
Case 5
|
||||
If item.Selected Then EsInicioAño = True Else EsInicioAño = False
|
||||
Case 6
|
||||
If item.Selected Then EsFinAño = True Else EsFinAño = False
|
||||
Case 7
|
||||
If item.Selected Then FueCalculado = True Else FueCalculado = False
|
||||
End Select
|
||||
Next
|
||||
If Comando = "Agregar" Then
|
||||
|
||||
If ObjNom_Periodos.AddPeriodo(CveTipoPeriodo, Ejercicio, Mes, Numero, FechaInicio, FechaFin, EsInicioMes, EsFinMes, EsInicioSS, EsFinSS, EsInicioAño, EsFinAño, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, DdlTurno.SelectedValue.ToEntero(), DdlEstatus.SelectedValue.ToEntero(), CveSubTipoPeriodo) Then
|
||||
|
||||
Alert("El nuevo Periodo se guardó correctamente.", TipoMensaje.MsgInformacion)
|
||||
UpDatos.Update()
|
||||
ViewState("DTNom_Periodos") = ObjNom_Periodos.DtResultados.FiltraParametros("CveEmpresa = " & UsuarioActual.CveEmpresa)
|
||||
GlobalDTNominasPeriodos(-1, -1, UsuarioActual.CveEmpresa) = Nothing
|
||||
CargaDatos()
|
||||
If String.IsNullOrEmpty(ViewState("Orden").ToString()) Then
|
||||
CargaGrid(ViewState("Orden").ToString())
|
||||
Else
|
||||
CargaGrid("")
|
||||
End If
|
||||
|
||||
End If
|
||||
ElseIf Comando = "Actualizar" Then
|
||||
|
||||
If ObjNom_Periodos.UpdatePeriodo(FechaInicio, FechaFin, EsInicioMes, EsFinMes, EsInicioSS, EsFinSS, EsInicioAño, EsFinAño, FueCalculado, CveTipoPeriodo, Ejercicio, Mes, Numero, Estatus, CvePeriodo, UsuarioActual.CveEmpresa, DdlTurno.SelectedValue.ToEntero(), CveSubTipoPeriodo) Then
|
||||
|
||||
Alert("Los cambios se guardaron correctamente.", TipoMensaje.MsgInformacion)
|
||||
UpDatos.Update()
|
||||
ViewState("DTNom_Periodos") = ObjNom_Periodos.DtResultados.FiltraParametros("CveEmpresa = " & UsuarioActual.CveEmpresa)
|
||||
GlobalDTNominasPeriodos(-1, -1, UsuarioActual.CveEmpresa) = Nothing
|
||||
CargaDatos()
|
||||
If String.IsNullOrEmpty(ViewState("Orden").ToString()) Then
|
||||
CargaGrid(ViewState("Orden").ToString())
|
||||
Else
|
||||
CargaGrid("")
|
||||
End If
|
||||
End If
|
||||
|
||||
Alert("El nuevo Periodo se guardó correctamente.", TipoMensaje.MsgInformacion)
|
||||
UpDatos.Update()
|
||||
ViewState("DTNom_Periodos") = ObjNom_Periodos.DtResultados.FiltraParametros("CveEmpresa = " & UsuarioActual.CveEmpresa)
|
||||
GlobalDTNominasPeriodos(-1, -1, UsuarioActual.CveEmpresa) = Nothing
|
||||
CargaDatos()
|
||||
If String.IsNullOrEmpty(ViewState("Orden").ToString()) Then
|
||||
CargaGrid(ViewState("Orden").ToString())
|
||||
Else
|
||||
CargaGrid("")
|
||||
End If
|
||||
|
||||
End If
|
||||
ElseIf Comando = "Actualizar" Then
|
||||
|
||||
If ObjNom_Periodos.UpdatePeriodo(FechaInicio, FechaFin, EsInicioMes, EsFinMes, EsInicioSS, EsFinSS, EsInicioAño, EsFinAño, FueCalculado, CveTipoPeriodo, Ejercicio, Mes, Numero, Estatus, CvePeriodo, UsuarioActual.CveEmpresa, DdlTurno.SelectedValue.ToEntero(), CveSubTipoPeriodo) Then
|
||||
|
||||
Alert("Los cambios se guardaron correctamente.", TipoMensaje.MsgInformacion)
|
||||
UpDatos.Update()
|
||||
ViewState("DTNom_Periodos") = ObjNom_Periodos.DtResultados.FiltraParametros("CveEmpresa = " & UsuarioActual.CveEmpresa)
|
||||
GlobalDTNominasPeriodos(-1, -1, UsuarioActual.CveEmpresa) = Nothing
|
||||
CargaDatos()
|
||||
If String.IsNullOrEmpty(ViewState("Orden").ToString()) Then
|
||||
CargaGrid(ViewState("Orden").ToString())
|
||||
Else
|
||||
CargaGrid("")
|
||||
End If
|
||||
End If
|
||||
|
||||
End Using
|
||||
RegistraScript("$('#divAddPeriodo').modal('hide');")
|
||||
Else
|
||||
Alert(mensajeerror, TipoMensaje.MsgAdvertencia)
|
||||
End If
|
||||
|
||||
|
||||
RegistraScript("$('#divAddPeriodo').modal('hide');")
|
||||
|
||||
'ObjNom_Periodos.Dispose()
|
||||
End Sub
|
||||
|
||||
@@ -321,6 +334,7 @@ Partial Class Nomina_CatPeriodos
|
||||
TxtFechaFinAdd.Text = GvRow.DataKey("FechaFin").ToString()
|
||||
DdlEstatusAdd.SelectedValueExist(GvRow.DataKey("Estatus").ToString().ToEntero())
|
||||
hdnCvePerido.Value = GvRow.DataKey("CvePeriodo").ToString()
|
||||
TxtMes.Text = GvRow.DataKey("Mes").ToString()
|
||||
TxtCveSubTipoPeriodoAdd.Text = GvRow.DataKey("CveSubTipoPeriodo").ToString()
|
||||
|
||||
For Each item As ListItem In CBLchk.Items
|
||||
@@ -351,6 +365,7 @@ Partial Class Nomina_CatPeriodos
|
||||
TxtNumeroAdd.Text = ""
|
||||
TxtFechaInicioAdd.Text = ""
|
||||
TxtFechaFinAdd.Text = ""
|
||||
TxtMes.Text = ""
|
||||
DdlEstatusAdd.SelectedValueExist(-1)
|
||||
DdlTurno.SelectedValueExist(-1)
|
||||
For Each item As ListItem In CBLchk.Items
|
||||
|
||||
@@ -2533,13 +2533,13 @@
|
||||
OnRowDataBound="GVNominaPendiente_RowDataBound">
|
||||
<Columns>
|
||||
<asp:TemplateField HeaderText="Código">
|
||||
<ItemTemplate>
|
||||
<asp:Label runat="server" Text='<%# Eval("Codigo")%>'> </asp:Label>
|
||||
<ItemTemplate>
|
||||
<asp:HyperLink runat="server" Text='<%# Eval("Codigo") %>' NavigateUrl='<%# Eval("CvePersonal", "~/RH/Personal.aspx?CvePersonal={0}") %>'></asp:HyperLink>
|
||||
</ItemTemplate>
|
||||
</asp:TemplateField>
|
||||
<asp:TemplateField HeaderText="Empleado" ItemStyle-CssClass="text-left">
|
||||
<ItemTemplate>
|
||||
<asp:Label runat="server" Text='<%# Eval("NombreCompleto")%>'> </asp:Label>
|
||||
<ItemTemplate>
|
||||
<asp:HyperLink runat="server" Text='<%# Eval("NombreCompleto") %>' NavigateUrl='<%# Eval("CvePersonal", "~/RH/Personal.aspx?CvePersonal={0}") %>'></asp:HyperLink>
|
||||
</ItemTemplate>
|
||||
</asp:TemplateField>
|
||||
<asp:TemplateField HeaderText="Periodo" ItemStyle-CssClass="text-left">
|
||||
|
||||
@@ -145,12 +145,12 @@
|
||||
<label class="col-md-4">
|
||||
<asp:Label runat="server" ID="LblSubProyectoModal"></asp:Label>
|
||||
</label>
|
||||
<div class="col-md-8">
|
||||
<asp:DropDownList runat="server" ID="DdlSubProyecto" Width="100%" DataValueField="CveSubProyecto" DataTextField="SubProyecto" Class="table-group-action-input form-control input-inline select2me"></asp:DropDownList>
|
||||
<asp:RequiredFieldValidator ID="RfvDdlSubProyecto" runat="server" ControlToValidate="DdlSubProyecto" InitialValue="-1" ErrorMessage="Campo sub Proyecto requerido." Display="None"
|
||||
ValidationGroup="GrpGuardar"></asp:RequiredFieldValidator>
|
||||
<ajax:ValidatorCalloutExtender ID="VCERfvDdlSubProyecto" runat="server" HighlightCssClass="vco" TargetControlID="RfvDdlSubProyecto" Width="300px"></ajax:ValidatorCalloutExtender>
|
||||
</div>
|
||||
<div class="col-md-8">
|
||||
<asp:DropDownList runat="server" ID="DdlSubProyecto" Width="100%" DataValueField="CveSubProyecto" DataTextField="SubProyecto" Class="table-group-action-input form-control input-inline select2me"></asp:DropDownList>
|
||||
<asp:RequiredFieldValidator ID="RfvDdlSubProyecto" runat="server" ControlToValidate="DdlSubProyecto" InitialValue="-1" ErrorMessage="Campo sub Proyecto requerido." Display="None"
|
||||
ValidationGroup="GrpGuardar"></asp:RequiredFieldValidator>
|
||||
<ajax:ValidatorCalloutExtender ID="VCERfvDdlSubProyecto" runat="server" HighlightCssClass="vco" TargetControlID="RfvDdlSubProyecto" Width="300px"></ajax:ValidatorCalloutExtender>
|
||||
</div>
|
||||
<div class="input-group">
|
||||
|
||||
</div>
|
||||
@@ -396,9 +396,46 @@
|
||||
</asp:UpdatePanel>
|
||||
</div>
|
||||
</div>
|
||||
</div>
|
||||
|
||||
</div>
|
||||
</div>
|
||||
<asp:UpdatePanel ID="UpBitacora" runat="server" UpdateMode="Conditional">
|
||||
<ContentTemplate>
|
||||
<div class="row">
|
||||
<div class="col-md-12">
|
||||
<div class="portlet light bordered xspadding">
|
||||
<div class="portlet-title">
|
||||
<div class="caption">
|
||||
<i class="icon-pin"></i>
|
||||
<span class="caption-subject bold uppercase">Historial de Modificación</span>
|
||||
</div>
|
||||
<div class="actions">
|
||||
<div class="btn-group">
|
||||
</div>
|
||||
</div>
|
||||
</div>
|
||||
<div class="portlet-body">
|
||||
<asp:GridView ID="GvBitacora" runat="server" GridLines="None" Width="100%" CssClass="table table-striped table-advance table-hover Widthall ADSCroll mysmallbtn" CellSpacing="0" AutoGenerateColumns="False">
|
||||
<Columns>
|
||||
<asp:TemplateField>
|
||||
<HeaderTemplate>Fecha</HeaderTemplate>
|
||||
<ItemTemplate>
|
||||
<asp:Literal ID="LtlFecha" runat="server" Text='<%# Eval("FechaIng") %>'></asp:Literal>
|
||||
</ItemTemplate>
|
||||
</asp:TemplateField>
|
||||
<asp:BoundField DataField="ConceptoHistorialBitacora" HeaderText="Campo" ItemStyle-HorizontalAlign="Left" />
|
||||
<asp:BoundField DataField="Anterior" HeaderText="Anterior" ItemStyle-HorizontalAlign="Left" />
|
||||
<asp:BoundField DataField="Actual" HeaderText="Actual" ItemStyle-HorizontalAlign="Left" />
|
||||
<asp:BoundField DataField="Descripcio n" HeaderText="Descripción" ItemStyle-HorizontalAlign="Left" />
|
||||
<asp:BoundField DataField="Usuario" HeaderText="Usuario" ItemStyle-HorizontalAlign="Left" />
|
||||
</Columns>
|
||||
</asp:GridView>
|
||||
</div>
|
||||
</div>
|
||||
</div>
|
||||
</div>
|
||||
</ContentTemplate>
|
||||
</asp:UpdatePanel>
|
||||
|
||||
</ContentTemplate>
|
||||
</ajax:TabPanel>
|
||||
<%-- Pre init --%>
|
||||
@@ -593,7 +630,7 @@
|
||||
<label class="col-md-4 bold">Observación</label>
|
||||
<div class="col-md-8">
|
||||
<asp:TextBox CssClass="form-control" runat="server" MaxLength="200"
|
||||
ID="TxtObservacion">Observacion</asp:TextBox>
|
||||
ID="TxtObservacion"></asp:TextBox>
|
||||
</div>
|
||||
</div>
|
||||
|
||||
|
||||
@@ -113,6 +113,7 @@ Partial Class RepContratoDetalle
|
||||
CveViajePasajero = 0
|
||||
Session("FileExtension") = ""
|
||||
ArchivoUpdate = ""
|
||||
CargaGvBitacora()
|
||||
|
||||
End If
|
||||
End Sub
|
||||
@@ -266,7 +267,7 @@ Partial Class RepContratoDetalle
|
||||
Response.Clear()
|
||||
Response.ClearHeaders()
|
||||
Response.ClearContent()
|
||||
Response.AddHeader("Content-Disposition", "attachment; filename=" & LbFolio.Text & ".pdf")
|
||||
Response.AddHeader("Content-Disposition", "attachment; filename=" & LbFolio.Text & $"{File.Extension}")
|
||||
Response.AddHeader("Content-Length", File.Length.ToString())
|
||||
'Response.ContentType = "text/plain"
|
||||
Response.ContentType = "application/octet-stream"
|
||||
@@ -298,7 +299,7 @@ Partial Class RepContratoDetalle
|
||||
Try
|
||||
If ObjContratos.UpdateContratos(CveContrato, LbFolio.Text, TxtDescripcion.Text, "", UsuarioActual.CveProveedor, DdlClientes.SelectedValue.ToEntero, -1, TxtFechaSalida.Text.ToDate, TxtFechaRegreso.Text.ToDate, TxtUbicacion.Text, "",
|
||||
DdlSubProyecto.SelectedValue.ToEntero, -1, -1, -1, -1, ArchivoUpdate, "", -1, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, False, TxtAnticipo.Text.ToDecimal, -1, TxtImporte.Text.ToDecimal,
|
||||
DdlMoneda.SelectedValue.ToEntero, 0, CveContratoTipo:=CveContratoTipo, CveTipoAF:=DdlTipoAF.SelectedValue.ToEntero, CveContratosEstatus:=CveContratoEstatus, Observaciones:=TxtObservacion.Text) Then
|
||||
DdlMoneda.SelectedValue.ToEntero, 0, CveContratoTipo:=CveContratoTipo, CveTipoAF:=DdlTipoAF.SelectedValue.ToEntero, CveContratosEstatus:=CveContratoEstatus, Observaciones:=TxtObservaciones.Text) Then
|
||||
Alert("Contrato actualizado correctamente")
|
||||
End If
|
||||
ObjContratos.Commit()
|
||||
@@ -606,6 +607,19 @@ Partial Class RepContratoDetalle
|
||||
End Sub
|
||||
#End Region
|
||||
|
||||
#Region "Bitacora historial"
|
||||
Private Sub CargaGvBitacora()
|
||||
' COMENTADO POR IPP PARA SUBIR 5 ABRIL 2017
|
||||
If CveContrato > 0 Then
|
||||
Dim ObjGral As New ClsGenerales()
|
||||
If ObjGral.GetHistorialBitacora(-1, -1, -1, -1, -1, -1, -1, UsuarioActual.CveEmpresa, CveContrato:=CveContrato) Then
|
||||
GvBitacora.DataSource = ObjGral.DtResultados
|
||||
End If
|
||||
ObjGral.Dispose()
|
||||
End If
|
||||
GvBitacora.DataBind()
|
||||
End Sub
|
||||
#End Region
|
||||
End Class
|
||||
|
||||
|
||||
|
||||
@@ -126,7 +126,7 @@
|
||||
<label class="col-md-1 ">Tipo de Unidad</label>
|
||||
<div class="col-md-1">
|
||||
<asp:DropDownList ID="DdlTipoUnidad" data-text="Todos" AppendDataBoundItems="true"
|
||||
DataTextField="TipoActivoFijo" DataValueField="CveTipoActivoFijo" CssClass="form-control ddlFiltros input-sm select2me Widthall" ClientIDMode="Static"
|
||||
DataTextField="TipoActivoFijo" DataValueField="CveTipoActivoFijo" CssClass="form-control ddlFiltros input-sm select2me Widthall" ClientIDMode="Static"
|
||||
Style="width: 100%;" runat="server">
|
||||
</asp:DropDownList>
|
||||
</div>
|
||||
@@ -441,10 +441,19 @@
|
||||
<div class="col-md-8">
|
||||
<asp:DropDownList ID="DdlAF" DataValueField="CveActivoFijo"
|
||||
DataTextField="CodDesc" Class="form-control select2me"
|
||||
Width="100%" runat="server">
|
||||
Width="100%" runat="server" AutoPostBack="true" OnSelectedIndexChanged="DdlAF_SelectedIndexChanged" >
|
||||
</asp:DropDownList>
|
||||
</div>
|
||||
</div>
|
||||
|
||||
<div class="row my-1" runat="server" id="DVMotivoCambioAF" visible="false">
|
||||
<label class="col-md-4">Motivo Cambio:</label>
|
||||
<div class="col-md-8">
|
||||
<asp:TextBox ID="TxtMotivoCambioUnidad" CssStyle=" form-control" runat="server" MaxLength="2000" Width="100%" ></asp:TextBox>
|
||||
<asp:RequiredFieldValidator ID="RfvTxtMotivoCambioUnidad" runat="server" ControlToValidate="TxtMotivoCambioUnidad" ErrorMessage="Campo Motivo Cambio requerido." ValidationGroup="GrpGuardar"></asp:RequiredFieldValidator>
|
||||
<ajax:ValidatorCalloutExtender ID="VCERfvTxtMotivoCambioUnidad" runat="server" HighlightCssClass="vco" TargetControlID="RfvTxtMotivoCambioUnidad" Width="300px"></ajax:ValidatorCalloutExtender>
|
||||
</div>
|
||||
</div>
|
||||
|
||||
<div class="row my-1">
|
||||
<label class="col-md-4">Chofer 1</label>
|
||||
@@ -533,6 +542,7 @@
|
||||
<asp:HiddenField runat="server" ID="HidCveVentaRemision" Value="-1" ClientIDMode="Static" />
|
||||
<asp:HiddenField runat="server" ID="HidRemisionSaldo" Value="-1" ClientIDMode="Static" />
|
||||
<asp:HiddenField runat="server" ID="HidCveAF" Value="-1" ClientIDMode="Static" />
|
||||
<asp:HiddenField runat="server" ID="HidCveAFDes" Value="-1" ClientIDMode="Static" />
|
||||
|
||||
</asp:Content>
|
||||
|
||||
@@ -811,7 +821,13 @@
|
||||
$('#HidRemisionSerieFolio').val(event.RemisionSerieFolio);
|
||||
$('#HidCveVentaRemision').val(event.CveVentaRemision);
|
||||
$('#HidRemisionSaldo').val(event.RemisionSaldo);
|
||||
$('#HidCveAF').val(event.CveActivoFijo);
|
||||
|
||||
if (event.CveActivoFijo > 0) {
|
||||
$('#HidCveAF').val(event.CveActivoFijo);
|
||||
} else {
|
||||
$('#HidCveAF').val('-1');
|
||||
}
|
||||
|
||||
|
||||
|
||||
<%-- $('#HidRemision').text(event.RemisionSerieFolio);
|
||||
@@ -978,8 +994,15 @@
|
||||
slotEventOverlap: false, // No permitir la superposición en vistas de agenda
|
||||
eventRender: function (event, element) {
|
||||
element.css({
|
||||
'margin-bottom': '1px', // Ajusta el valor según sea necesario
|
||||
'margin-left': '1px' // Ajusta el valor según sea necesario
|
||||
'margin-bottom': '1px',
|
||||
'margin-left': '1px',
|
||||
'white-space': 'normal', // Permitir el ajuste de texto
|
||||
'height': 'auto', // Ajustar la altura automáticamente
|
||||
'overflow': 'hidden' // Ocultar cualquier desbordamiento
|
||||
});
|
||||
element.find('.fc-title').css({
|
||||
'white-space': 'normal', // Asegurar que el texto se ajuste
|
||||
'line-height': '1.2em' // Ajustar la altura de línea para mejor legibilidad
|
||||
});
|
||||
},
|
||||
events: {
|
||||
|
||||
@@ -221,7 +221,7 @@ Partial Class RepContratosCalendario
|
||||
|
||||
|
||||
Protected Sub UpdateContrato(sender As Object, e As EventArgs)
|
||||
|
||||
Dim TieneError As Boolean = False
|
||||
Dim NumChoferes As Integer = If(chkSegundoChofer.Checked, 2, 1)
|
||||
|
||||
If NumChoferes = 2 AndAlso DdlChofer2.SelectedValue.ToEntero <= 0 Then
|
||||
@@ -230,6 +230,7 @@ Partial Class RepContratosCalendario
|
||||
End If
|
||||
|
||||
Dim ObjContratos As New ClsContratos
|
||||
ObjContratos.IniciaTransacSQL()
|
||||
|
||||
Dim DTAgendadados As New DataTable
|
||||
If ObjContratos.GetContratosValUnidadesAgendadas(DdlAF.SelectedValue.ToEntero, TxtFechaSalida.Text.ToDate, TxtFechaRegreso.Text.ToDate, UsuarioActual.CveEmpresa, CveContrato) Then
|
||||
@@ -261,10 +262,30 @@ Partial Class RepContratosCalendario
|
||||
CveAF:=DdlAF.SelectedValue.ToEntero, CantidadPasajeros:=TxtCantidadPasajeros.Text.ToEntero, Observaciones:=TxtObservaciones.Text.Trim, NumChoferes:=NumChoferes) Then
|
||||
RegistraScript("$('#ModalActualizar').modal('hide');")
|
||||
Alert("Actualizado Correctamente.")
|
||||
Else
|
||||
TieneError = True
|
||||
End If
|
||||
|
||||
|
||||
If HidCveAF.Value.ToEntero <> DdlAF.SelectedValue.ToEntero Then
|
||||
Dim objGenerales = New ClsGenerales(ObjContratos.IniciaTransacSQL())
|
||||
|
||||
If Not objGenerales.AddHistorialBitacora(465, -1, -1, -1, -1, -1, -1, -1, DdlAF.SelectedItem.Text, HidCveAFDes.Value, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, 0, TxtMotivoCambioUnidad.Text, "", "", CveContrato:=CveContrato) Then
|
||||
TieneError = True
|
||||
End If
|
||||
End If
|
||||
|
||||
If TieneError Then
|
||||
ObjContratos.RollBack()
|
||||
Else
|
||||
ObjContratos.Commit()
|
||||
End If
|
||||
|
||||
|
||||
|
||||
ObjContratos.Dispose()
|
||||
|
||||
|
||||
UpTitulos.Update()
|
||||
CargaDatos()
|
||||
InicializaCalendar()
|
||||
@@ -299,6 +320,15 @@ Partial Class RepContratosCalendario
|
||||
|
||||
DdlAF.SelectedValueExist(GvRow.DataKey("CveAF"))
|
||||
|
||||
HidCveAF.Value = "-1"
|
||||
HidCveAFDes.Value = ""
|
||||
If GvRow.DataKey("CveAF").ToEntero > 0 Then
|
||||
HidCveAF.Value = GvRow.DataKey("CveAF").ToString
|
||||
HidCveAFDes.Value = DdlAF.SelectedItem.Text
|
||||
End If
|
||||
|
||||
TxtMotivoCambioUnidad.Text = ""
|
||||
DVMotivoCambioAF.Visible = False
|
||||
|
||||
|
||||
HypRemision.Text = GvRow.DataKey("RemisionSerieFolio")
|
||||
@@ -326,6 +356,9 @@ Partial Class RepContratosCalendario
|
||||
HidModClienteNombre.Value = GlobalDTCliente(UsuarioActual.CveEmpresa, -1, HidModCveCliente.Value.ToEntero).FiltroPrimeroValor("NombreComercial")
|
||||
End If
|
||||
|
||||
TxtMotivoCambioUnidad.Text = ""
|
||||
DVMotivoCambioAF.Visible = False
|
||||
|
||||
DdlClientes.SelectedText = HidModClienteNombre.Value
|
||||
DdlClientes.SelectedValue = HidModCveCliente.Value
|
||||
|
||||
@@ -347,9 +380,10 @@ Partial Class RepContratosCalendario
|
||||
End If
|
||||
|
||||
CargaAFDdl(HidCveTipoAF.Value.ToEntero)
|
||||
|
||||
DdlAF.SelectedValueExist(HidCveAF.Value)
|
||||
|
||||
|
||||
HidCveAFDes.Value = DdlAF.SelectedItem.Text
|
||||
|
||||
UpModal.Update()
|
||||
|
||||
@@ -452,4 +486,16 @@ Partial Class RepContratosCalendario
|
||||
CargaCronograma(DdlTipoVista.SelectedValue.ToEntero)
|
||||
End Sub
|
||||
|
||||
|
||||
Protected Sub DdlAF_SelectedIndexChanged(sender As Object, e As EventArgs)
|
||||
DVMotivoCambioAF.Visible = False
|
||||
|
||||
If HidCveAF.Value.ToEntero > 0 AndAlso DdlAF.SelectedValue.ToEntero <> HidCveAF.Value.ToEntero Then
|
||||
DVMotivoCambioAF.Visible = True
|
||||
End If
|
||||
|
||||
UpModal.Update()
|
||||
End Sub
|
||||
|
||||
|
||||
End Class
|
||||
|
||||
@@ -346,7 +346,8 @@
|
||||
</asp:UpdatePanel>
|
||||
<asp:UpdatePanel ID="UPDatos" runat="server" UpdateMode="Conditional">
|
||||
<ContentTemplate>
|
||||
<asp:GridView ID="GvDatos" runat="server" AutoGenerateColumns="False" data-sort="true" Width="99%" DataKeyNames="CveVenta,TipoDocumento,SerieFolio" EmptyDataText="No se encontraron Ventas con los filtros especificados" ToolTip="Listado de Ventas" CssClass="table table-striped table-advance table-hover Widthall ScrollAD" GridLines="None">
|
||||
<asp:GridView ID="GvDatos" runat="server" AutoGenerateColumns="False" data-sort="true" Width="99%" DataKeyNames="CveVenta,TipoDocumento,SerieFolio" EmptyDataText="No se encontraron Ventas con los filtros especificados" ToolTip="Listado de Ventas"
|
||||
CssClass="table table-striped table-advance table-hover Widthall ScrollAD" GridLines="None">
|
||||
<Columns>
|
||||
<%-- 0--%>
|
||||
<asp:TemplateField HeaderText="Tipo Docto">
|
||||
|
||||
Reference in New Issue
Block a user