AdminADS/SIG
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Compra B-11648 error en total almacen contra prepoliza,GDiaz - 2024.08.09

Browse Source
This commit is contained in:
rakcsle
2024-08-13 09:07:15 -07:00
parent 1d4723f4fd
commit 60a7cd96cc
13 changed files with 696 additions and 54 deletions
Download Patch File Download Diff File Expand all files Collapse all files

251
AF/CatAF.aspx
View File

@@ -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>
<%-- 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>
<%-- 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">&times;</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="&nbsp;Codigo" Checked="true" /></td>
<td style="text-align: left;">
<asp:CheckBox ID="ChkDescripcion" runat="server" Text="&nbsp;Descripcion" Checked="true" /></td>
<td style="text-align: left;">
<asp:CheckBox ID="ChkTipoActivoFijo" runat="server" Text="&nbsp;Tipo Activo Fijo" Checked="true" /></td>
<td style="text-align: left;">
<asp:CheckBox ID="ChkSubTIpoActivoFijo" runat="server" Text="&nbsp;Sub Tipo Activo Fijo" Checked="true" /></td>
</tr>
<tr>
<td style="text-align: left;">
<asp:CheckBox ID="ChkResponsable" runat="server" Text="&nbsp;Responsable" Checked="true" /></td>
<td style="text-align: left;">
<asp:CheckBox ID="ChkNoSerie" runat="server" Text="&nbsp;No Serie" Checked="true" /></td>
<td style="text-align: left;">
<asp:CheckBox ID="ChkAño" runat="server" Text="&nbsp;Año" Checked="true" /></td>
<td style="text-align: left;">
<asp:CheckBox ID="ChkSubProyecto" runat="server" Text="&nbsp;Sub Proyecto" Checked="true" /></td>
</tr>
<tr>
<td style="text-align: left;">
<asp:CheckBox ID="ChkEstadoActivoFijo" runat="server" Text="&nbsp;Estado Activo Fijo" Checked="true" /></td>
<td style="text-align: left;">
<asp:CheckBox ID="ChkFechaIng" runat="server" Text="&nbsp;Fecha Ing" Checked="true" /></td>
<td style="text-align: left;">
<asp:CheckBox ID="ChkGrupo" runat="server" Text="&nbsp;Grupo" /></td>
<td style="text-align: left;">
<asp:CheckBox ID="ChkMarcaActivoFijo" runat="server" Text="&nbsp;Marca Activo Fijo" /></td>
</tr>
<tr>
<td style="text-align: left;">
<asp:CheckBox ID="ChkModeloActivoFijo" runat="server" Text="&nbsp;Modelo Activo Fijo" /></td>
<td style="text-align: left;">
<asp:CheckBox ID="ChkNombreCuenta" runat="server" Text="&nbsp;Nombre Cuenta" /></td>
<td style="text-align: left;">
<asp:CheckBox ID="ChkValorCompra" runat="server" Text="&nbsp;Valor Compra" /></td>
<td style="text-align: left;">
<asp:CheckBox ID="ChkFechaCompra" runat="server" Text="&nbsp;Fecha Compra" /></td>
</tr>
<tr>
<td style="text-align: left;">
<asp:CheckBox ID="ChkFechaBaja" runat="server" Text="&nbsp;Fecha Baja" /></td>
<td style="text-align: left;">
<asp:CheckBox ID="CheckBox1" runat="server" Text="&nbsp;No Serie" /></td>
<td style="text-align: left;">
<asp:CheckBox ID="CheckBox2" runat="server" Text="&nbsp;Estado Activo Fijo" /></td>
<td style="text-align: left;">
<asp:CheckBox ID="CheckBox3" runat="server" Text="&nbsp;Responsable" /></td>
</tr>
<tr>
<td style="text-align: left;">
<asp:CheckBox ID="ChkProyecto" runat="server" Text="&nbsp;Proyecto" /></td>
<td style="text-align: left;">
<asp:CheckBox ID="CheckBox4" runat="server" Text="&nbsp;Sub Proyecto" /></td>
<td style="text-align: left;">
<asp:CheckBox ID="ChkNombreCliente" runat="server" Text="&nbsp;Nombre Cliente" /></td>
<td style="text-align: left;">
<asp:CheckBox ID="ChkObservaciones" runat="server" Text="&nbsp;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
View File

@@ -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

6
App_Code/ClsGenerales.vb
View File

@@ -2628,7 +2628,7 @@ Public Class ClsGenerales
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

2
Ashx/CargaEventos.ashx
View File

@@ -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)

15
Compras/Compras.aspx.vb
View File

@@ -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

14
Contratos/RepPresupuestosDetalle.aspx.vb
View File

@@ -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()
@@ -95,18 +97,20 @@ Partial Class Contratos_RepPresupuestosDetalle
Dim CveSubProyecto = IfNull(Request("CveSubProyecto"), -1).ToString.ToEntero
Dim CveTipoGasto = IfNull(Request("CveTipoGasto"), -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

23
Inventarios/TrasladoSolicitud.aspx
View File

@@ -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,13 +201,6 @@
</div>
<%-- <div class="row">
<div class="col-md-12" style="text-align:right!important">
</div>
</div>--%>
<div class="row">
<div class="col-md-12">

2
Inventarios/TrasladoSolicitud.aspx.vb
View File

@@ -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

43
Transportes/RepContratoDetalle.aspx
View File

@@ -150,7 +150,7 @@
<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>
<div class="input-group">
</div>
@@ -397,8 +397,45 @@
</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>

16
Transportes/RepContratoDetalle.aspx.vb
View File

@@ -113,6 +113,7 @@ Partial Class RepContratoDetalle
CveViajePasajero = 0
Session("FileExtension") = ""
ArchivoUpdate = ""
CargaGvBitacora()
End If
End Sub
@@ -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

29
Transportes/RepContratosCalendario.aspx
View File

@@ -441,11 +441,20 @@
<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>
<div class="col-md-8">
@@ -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);
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: {

50
Transportes/RepContratosCalendario.aspx.vb
View File

@@ -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

3
Ventas/RepVentasDetalle.aspx
View File

@@ -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">