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

Merge branch 'master' of http://192.168.10.111:8383/SIG

Browse Source
This commit is contained in:
JORGE LUIS CAUDILLO ESPARZA
2024-08-13 19:34:33 -07:00
parent f29a6d4b98 9f8ae668b1
commit d6b14f9c46
21 changed files with 1039 additions and 295 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 <i class="fa fa-file-excel-o" style="font-weight:bold;"></i> Excel
</asp:LinkButton> </asp:LinkButton>
</li> </li>
<li>
<asp:LinkButton ID="LnkPersonalizar" OnClick="LnkPersonalizar_Click" runat="server"><i class="fa fa-pencil"></i>Personalizar Columnas</asp:LinkButton>
</li>
</ContentTemplate> </ContentTemplate>
<Triggers> <Triggers>
@@ -160,7 +164,7 @@
<asp:TemplateField ItemStyle-Width="132px"> <asp:TemplateField ItemStyle-Width="132px">
<ItemStyle BorderStyle="None" /> <ItemStyle BorderStyle="None" />
<ItemTemplate> <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> </ItemTemplate>
</asp:TemplateField> </asp:TemplateField>
<asp:TemplateField> <asp:TemplateField>
@@ -190,86 +194,311 @@
</Columns> </Columns>
</asp:GridView> </asp:GridView>
</div> </div>
<div>
<td>Encontrados:</td>
<td><b>
<asp:Literal ID="LtlTotalRegistros" runat="server"></asp:Literal></b></td>
</div>
</ContentTemplate> </ContentTemplate>
</asp:UpdatePanel> </asp:UpdatePanel>
<asp:UpdatePanel ID="UpGV" runat="server" UpdateMode="Conditional"> <asp:UpdatePanel ID="UpGV" runat="server" UpdateMode="Conditional">
<ContentTemplate> <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> <Columns>
<asp:TemplateField HeaderText="Código">
<%-- 0 --%>
<asp:TemplateField HeaderText="Código" >
<ItemStyle Width="70px" /> <ItemStyle Width="70px" />
<ItemTemplate> <ItemTemplate>
<asp:HyperLink ID="Hpl" runat="server" Text='<%# Eval("Codigo") %>' NavigateUrl='<%# Eval("CveActivoFijo", "/AF/AF.aspx?CveActivoFijo={0}")%>'></asp:HyperLink> <asp:HyperLink ID="Hpl" runat="server" Text='<%# Eval("Codigo") %>' NavigateUrl='<%# Eval("CveActivoFijo", "/AF/AF.aspx?CveActivoFijo={0}")%>'></asp:HyperLink>
</ItemTemplate> </ItemTemplate>
</asp:TemplateField> </asp:TemplateField>
<%-- 1 --%>
<asp:TemplateField HeaderText="Descripción"> <asp:TemplateField HeaderText="Descripción">
<ItemTemplate> <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> <asp:HyperLink ID="HplDescripcion" runat="server" Text='<%# Eval("Descripcion") %>' NavigateUrl='<%# Eval("CveActivoFijo", "/AF/AF.aspx?CveActivoFijo={0}")%>'></asp:HyperLink>
</ItemTemplate> </ItemTemplate>
</asp:TemplateField> </asp:TemplateField>
<%-- 2 --%>
<asp:TemplateField HeaderText="Tipo Act. Fijo"> <asp:TemplateField HeaderText="Tipo Act. Fijo">
<ItemStyle Width="125px" /> <ItemStyle Width="125px" />
<ItemTemplate> <ItemTemplate>
<asp:Literal ID="LtlTipoActivoFijo" runat="server" Text='<%# Eval("TipoActivoFijo")%>'></asp:Literal> <asp:Literal ID="LtlTipoActivoFijo" runat="server" Text='<%# Eval("TipoActivoFijo")%>'></asp:Literal>
</ItemTemplate> </ItemTemplate>
</asp:TemplateField> </asp:TemplateField>
<%-- 3 --%>
<asp:TemplateField HeaderText="Sub Tipo Act. Fijo"> <asp:TemplateField HeaderText="Sub Tipo Act. Fijo">
<ItemStyle Width="125px" /> <ItemStyle Width="125px" />
<ItemTemplate> <ItemTemplate>
<asp:Literal ID="LtlSubTIpoActivoFijo" runat="server" Text='<%# Eval("SubTIpoActivoFijo")%>'></asp:Literal> <asp:Literal ID="LtlSubTIpoActivoFijo" runat="server" Text='<%# Eval("SubTIpoActivoFijo")%>'></asp:Literal>
</ItemTemplate> </ItemTemplate>
</asp:TemplateField> </asp:TemplateField>
<%-- 4 --%>
<asp:TemplateField HeaderText="Responsable"> <asp:TemplateField HeaderText="Responsable">
<ItemStyle Width="125px" /> <ItemStyle Width="125px" />
<ItemTemplate> <ItemTemplate>
<asp:Literal ID="LtlResponsable" runat="server" Text='<%# Eval("Responsable")%>'></asp:Literal> <asp:Literal ID="LtlResponsable" runat="server" Text='<%# Eval("Responsable")%>'></asp:Literal>
</ItemTemplate> </ItemTemplate>
</asp:TemplateField> </asp:TemplateField>
<%-- 5 --%>
<asp:TemplateField HeaderText="No. Serie"> <asp:TemplateField HeaderText="No. Serie">
<ItemStyle Width="50px" /> <ItemStyle Width="50px" />
<ItemTemplate> <ItemTemplate>
<asp:Literal ID="LtlNoSerie" runat="server" Text='<%# Eval("NoSerie")%>'></asp:Literal> <asp:Literal ID="LtlNoSerie" runat="server" Text='<%# Eval("NoSerie")%>'></asp:Literal>
</ItemTemplate> </ItemTemplate>
</asp:TemplateField> </asp:TemplateField>
<%-- 6 --%>
<asp:TemplateField HeaderText="Año" ItemStyle-HorizontalAlign="Right"> <asp:TemplateField HeaderText="Año" ItemStyle-HorizontalAlign="Right">
<ItemStyle Width="50px" /> <ItemStyle Width="50px" />
<ItemTemplate> <ItemTemplate>
<asp:Literal ID="LtlAño" runat="server" Text='<%# Eval("Año")%>'></asp:Literal> <asp:Literal ID="LtlAño" runat="server" Text='<%# Eval("Año")%>'></asp:Literal>
</ItemTemplate> </ItemTemplate>
</asp:TemplateField> </asp:TemplateField>
<%-- 7 --%>
<asp:TemplateField HeaderText="SubProyecto"> <asp:TemplateField HeaderText="SubProyecto">
<ItemStyle Width="110px" /> <ItemStyle Width="110px" />
<ItemTemplate> <ItemTemplate>
<asp:Literal ID="LtlSubProyecto" runat="server" Text='<%# Eval("SubProyecto")%>'></asp:Literal> <asp:Literal ID="LtlSubProyecto" runat="server" Text='<%# Eval("SubProyecto")%>'></asp:Literal>
</ItemTemplate> </ItemTemplate>
</asp:TemplateField> </asp:TemplateField>
<%-- 8 --%>
<asp:TemplateField HeaderText="Estatus" ItemStyle-HorizontalAlign="Center"> <asp:TemplateField HeaderText="Estatus" ItemStyle-HorizontalAlign="Center">
<ItemStyle Width="50px" /> <ItemStyle Width="50px" />
<ItemTemplate> <ItemTemplate>
<asp:Literal ID="LtlEstadoActivoFijo" runat="server" Text='<%# Eval("EstadoActivoFijo")%>'></asp:Literal> <asp:Literal ID="LtlEstadoActivoFijo" runat="server" Text='<%# Eval("EstadoActivoFijo")%>'></asp:Literal>
</ItemTemplate> </ItemTemplate>
</asp:TemplateField> </asp:TemplateField>
<%-- 9 --%>
<asp:TemplateField HeaderText="Fecha Ing." ItemStyle-HorizontalAlign="Center"> <asp:TemplateField HeaderText="Fecha Ing." ItemStyle-HorizontalAlign="Center">
<ItemStyle Width="75px" /> <ItemStyle Width="75px" />
<ItemTemplate> <ItemTemplate>
<asp:Literal ID="LtlFechaIng" runat="server" Text='<%# Eval("FechaIng", "{0:d}")%>'></asp:Literal> <asp:Literal ID="LtlFechaIng" runat="server" Text='<%# Eval("FechaIng", "{0:d}")%>'></asp:Literal>
</ItemTemplate> </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> </Columns>
</asp:GridView> </asp:GridView>
</ContentTemplate> </ContentTemplate>
</asp:UpdatePanel> </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>
<asp:Content ID="Content7" ContentPlaceHolderID="JS" runat="Server"> <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 src="/Metronic/assets/global/plugins/datatables/all.min.js"></script>
<script type="text/javascript"> <script type="text/javascript">
var OrdenarGV = function () { var OrdenarGV = function () {
@@ -282,5 +511,5 @@
$('#C_GvDatos').parent().parent().children().first().css("position", "static"); $('#C_GvDatos').parent().parent().children().first().css("position", "static");
} }
</script> </script>--%>
</asp:Content> </asp:Content>

264
AF/CatAF.aspx.vb
View File

@@ -32,6 +32,19 @@ Partial Class AF_CatAF
ViewState("DTAFCaracteristicas") = value ViewState("DTAFCaracteristicas") = value
End Set End Set
End Property 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 #End Region
Protected Sub Page_Load(sender As Object, e As System.EventArgs) Handles Me.Load Protected Sub Page_Load(sender As Object, e As System.EventArgs) Handles Me.Load
@@ -46,6 +59,9 @@ Partial Class AF_CatAF
CargaDatos() CargaDatos()
End If End If
CargaPersonalizacion()
End If End If
End Sub End Sub
@@ -278,7 +294,7 @@ Partial Class AF_CatAF
GvDatos.DataSource = DtActivosFijos GvDatos.DataSource = DtActivosFijos
GvDatos.DataBind() GvDatos.DataBind()
'LtlTotalRegistros.Text = DtActivosFijos.Rows.Count.ToString.FormatoNumero(0) LtlTotalRegistros.Text = DtActivosFijos.Rows.Count.ToString.FormatoNumero(0)
UpGV.Update() UpGV.Update()
OrdenaDatos() OrdenaDatos()
@@ -492,5 +508,251 @@ Partial Class AF_CatAF
#End Region #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 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, 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 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 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 Dim Retorno As Boolean = False
DataAdapter("PA_Gral_HistorialBitacoraGet") DataAdapter("PA_Gral_HistorialBitacoraGet")
@@ -2648,6 +2648,7 @@ Public Class ClsGenerales
.Add("@CvePeriodo", SqlDbType.Int).Value = CvePeriodo .Add("@CvePeriodo", SqlDbType.Int).Value = CvePeriodo
.Add("@CveConceptoNomina", SqlDbType.Int).Value = CveConceptoNomina .Add("@CveConceptoNomina", SqlDbType.Int).Value = CveConceptoNomina
.Add("@CvePromocion", SqlDbType.Int).Value = CvePromocion .Add("@CvePromocion", SqlDbType.Int).Value = CvePromocion
.Add("@CveContrato", SqlDbType.Int).Value = CveContrato
.Add("@CveAsistencia", SqlDbType.Int).Value = CveAsistencia .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, CveIE As Integer, Actual As String, Anterior As String, CveUsuario As Integer,
CveEmpresa As Integer, SeElimino As Integer, Descripcion As String, Tipo As String, 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, 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 Dim Retorno As Boolean = False
DataAdapter("PA_Gral_HistorialBitacoraAdd") DataAdapter("PA_Gral_HistorialBitacoraAdd")
@@ -2725,6 +2726,7 @@ Public Class ClsGenerales
.Add("@CvePersonal", SqlDbType.Int).Value = CvePersonal .Add("@CvePersonal", SqlDbType.Int).Value = CvePersonal
.Add("@Motivo", SqlDbType.VarChar).Value = Motivo .Add("@Motivo", SqlDbType.VarChar).Value = Motivo
.Add("@Fecha", SqlDbType.DateTime).Value = Fecha .Add("@Fecha", SqlDbType.DateTime).Value = Fecha
.Add("@CveContrato", SqlDbType.Int).Value = CveContrato
End With End With

27
App_Code/ClsInventarios.vb
View File

@@ -1513,6 +1513,33 @@ Public Class ClsInventarios
Return Retorno Return Retorno
End Function End Function
Public Function GetInvExistenciasCapas(CvePS As Integer, FechaI As DateTime, FechaF As DateTime, CveEmpresa As Integer, Optional CvesAlmacenes As String = "-1") As Boolean
Dim Retorno As Boolean = False
DataAdapter("PA_Inv_ExistenciasCapasGet")
With SqlAdapter.SelectCommand.Parameters
.Add("@CvePS", SqlDbType.Int).Value = CvePS
.Add("@FechaI", SqlDbType.DateTime).Value = FechaI
.Add("@FechaF", SqlDbType.DateTime).Value = FechaF
.Add("@CvesAlmacenes", SqlDbType.VarChar).Value = CvesAlmacenes
.Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa
End With
Try
SqlAdapter.Fill(Data)
Retorno = True
Catch Ex1 As SqlException
Me.OnError("Ocurrió un error al obtener las existencias de los movimientos.", Ex1, SqlAdapter.SelectCommand.Parameters.ParametrosInfo())
Catch ex As Exception
OnError("Ocurrió un error al obtener las existencias de los movimientos.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo)
End Try
Return Retorno
End Function
Public Function GetKardexAlmacen(CvePS As Integer, FechaI As String, FechaF As String, CveAlmacen As Integer, CveUnidadMedida As Integer, CveUsuario As Integer, CveEmpresa As Integer) As Boolean Public Function GetKardexAlmacen(CvePS As Integer, FechaI As String, FechaF As String, CveAlmacen As Integer, CveUnidadMedida As Integer, CveUsuario As Integer, CveEmpresa As Integer) As Boolean
Dim Retorno As Boolean = False Dim Retorno As Boolean = False

2
Ashx/CargaEventos.ashx
View File

@@ -554,7 +554,7 @@ Public Class CargaEventos : Implements IHttpHandler, IRequiresSessionState
Dim cevent As CalendarEvent = New CalendarEvent() Dim cevent As CalendarEvent = New CalendarEvent()
cevent.id = dr("CveContrato").ToString.ToEntero 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.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.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) 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)) 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 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 ErrorPrepoliza = True
End If 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 ErrorPrepoliza = True
End If End If
Else Else

14
Contratos/RepPresupuestosDetalle.aspx.vb
View File

@@ -82,7 +82,9 @@ Partial Class Contratos_RepPresupuestosDetalle
Private Sub CargaSubProyecto() Private Sub CargaSubProyecto()
DdlSubProyecto.Items.Clear() DdlSubProyecto.Items.Clear()
If DdlProyecto.SelectedValue.ToEntero > 0 Or UsuarioActual.Empresa.Tipo_CentroCosto = 1 Then 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 End If
DdlSubProyecto.Items.Insert(0, New ListItem("Todos", "-1")) DdlSubProyecto.Items.Insert(0, New ListItem("Todos", "-1"))
DdlSubProyecto.DataBind() DdlSubProyecto.DataBind()
@@ -95,18 +97,20 @@ Partial Class Contratos_RepPresupuestosDetalle
Dim CveSubProyecto = IfNull(Request("CveSubProyecto"), -1).ToString.ToEntero Dim CveSubProyecto = IfNull(Request("CveSubProyecto"), -1).ToString.ToEntero
Dim CveTipoGasto = IfNull(Request("CveTipoGasto"), -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 Gpo = IfNull(Request("CveAgrupador"), -1).ToString.ToEntero
Dim Mensual = CBool(IfNull(Request("Mensual"), False)) Dim Mensual = CBool(IfNull(Request("Mensual"), False))
Dim EsProyecto = CBool(IfNull(Request("EsProyecto"), False)) Dim EsProyecto = CBool(IfNull(Request("EsProyecto"), False))
'If Agrupador = 1 Then Agrupador = 2 Else Agrupador = 1 'If Agrupador = 1 Then Agrupador = 2 Else Agrupador = 1
DdlAgrupador.SelectedValueExist(Agrupador) DdlAgrupador.SelectedValueExist(Agrupador)
DdlClasificacion.SelectedValueExist(CveClasificacion) DdlClasificacion.SelectedValueExist(CveClasificacion)
If DdlAgrupador.SelectedValue.ToEntero = 1 Then If DdlAgrupador.SelectedValue.ToEntero = 1 Then 'Clasificación
DdlClasificacion.SelectedValueExist(Gpo) DdlClasificacion.SelectedValueExist(Gpo)
DdlProyecto.SelectedValueExist(CveProyecto) DdlProyecto.SelectedValueExist(CveProyecto)
DdlSubProyecto.SelectedValueExist(CveSubProyecto) DdlSubProyecto.SelectedValueExist(CveSubProyecto)
ElseIf DdlAgrupador.SelectedValue.ToEntero = 2 Then ElseIf DdlAgrupador.SelectedValue.ToEntero = 2 Then ' Centro costo
If Not EsProyecto Then If Not EsProyecto Then
Dim Dr As DataRow = GlobalDTSubProyectos(UsuarioActual.CveEmpresa, Gpo)(0) Dim Dr As DataRow = GlobalDTSubProyectos(UsuarioActual.CveEmpresa, Gpo)(0)
DdlProyecto.SelectedValueExist(Dr("CveProyecto")) DdlProyecto.SelectedValueExist(Dr("CveProyecto"))
@@ -121,6 +125,10 @@ Partial Class Contratos_RepPresupuestosDetalle
TxtFiltrosFechaInicio.Text = FechaInicio TxtFiltrosFechaInicio.Text = FechaInicio
TxtFiltrosFechaFin.Text = FechaFin TxtFiltrosFechaFin.Text = FechaFin
ChkMensual.Checked = Mensual ChkMensual.Checked = Mensual
If Agrupador = 1 Then Agrupador = 2 Else Agrupador = 1
DdlAgrupador.SelectedValueExist(Agrupador)
End Sub End Sub
#End Region #End Region

256
Inventarios/Kardex.aspx
View File

@@ -121,30 +121,33 @@
Kardex Kardex
</asp:Content> </asp:Content>
<asp:Content ID="Content5" ContentPlaceHolderID="H" runat="Server"> <asp:Content ID="Content5" ContentPlaceHolderID="H" runat="Server">
<asp:UpdatePanel runat="server" ID="UpAcciones" UpdateMode="Conditional" > <asp:UpdatePanel runat="server" ID="UpAcciones" UpdateMode="Conditional">
<ContentTemplate> <ContentTemplate>
<li> <li>
<asp:LinkButton ID="ImgImprimir" runat="server"><i class="fa fa-file-pdf-o" style="font-weight:bold;"></i> PDF</asp:LinkButton> <asp:LinkButton ID="ImgImprimir" runat="server"><i class="fa fa-file-pdf-o" style="font-weight: bold;"></i>PDF</asp:LinkButton>
</li> </li>
<li> <li>
<asp:LinkButton ID="LnkExportar" runat="server"><i class="fa fa-file-excel-o" style="font-weight:bold;"></i> Excel</asp:LinkButton> <asp:LinkButton ID="LnkExportar" runat="server"><i class="fa fa-file-excel-o" style="font-weight: bold;"></i>Excel</asp:LinkButton>
</li> </li>
<li> <li>
<asp:LinkButton ID="LnkSeries" Visible="false" runat="server"><i class="fa fa-list"></i> Series Disponibles</asp:LinkButton> <asp:LinkButton ID="LnkSeries" Visible="false" runat="server"><i class="fa fa-list"></i>Series Disponibles</asp:LinkButton>
</li> </li>
<li> <li>
<asp:LinkButton ID="LnkCaducidad" Visible="false" runat="server"><i class="fa fa-list"></i> Caducidad de producto</asp:LinkButton> <asp:LinkButton ID="LnkCaducidad" Visible="false" runat="server"><i class="fa fa-list"></i>Caducidad de producto</asp:LinkButton>
</li> </li>
<li> <li>
<asp:HyperLink runat="server" ID="HlAyuda" NavigateUrl="/Documentacion/DocumentacionInventarios.aspx#Kardex"><i class="fa fa-question-circle"></i> Ayuda</asp:HyperLink> <asp:LinkButton ID="LnkExistenciasPorCapas" Visible="false" runat="server"><i class="fa fa-list"></i>Existecias por capas</asp:LinkButton>
</li>
<li>
<asp:HyperLink runat="server" ID="HlAyuda" NavigateUrl="/Documentacion/DocumentacionInventarios.aspx#Kardex"><i class="fa fa-question-circle"></i>Ayuda</asp:HyperLink>
<%--<div> <%--<div>
&nbsp;<a target="_blank" class="ayuda" href="../Documentacion/DocumentacionInventarios.aspx#Kardex">&nbsp;&nbsp;</a> &nbsp;<a target="_blank" class="ayuda" href="../Documentacion/DocumentacionInventarios.aspx#Kardex">&nbsp;&nbsp;</a>
</div>--%> </div>--%>
</li> </li>
</ContentTemplate> </ContentTemplate>
<Triggers> <Triggers>
<asp:PostBackTrigger ControlID="ImgImprimir" /> <asp:PostBackTrigger ControlID="ImgImprimir" />
<asp:PostBackTrigger ControlID="LnkExportar" /> <asp:PostBackTrigger ControlID="LnkExportar" />
</Triggers> </Triggers>
@@ -164,9 +167,9 @@
</div> </div>
<div class="titlefiltros caption "> <div class="titlefiltros caption ">
<div class="row" style="padding-top: 10px; position: relative;"> <div class="row" style="padding-top: 10px; position: relative;">
<asp:Label runat="server" ID="LblPS" CssClass="col-md-1 truncate" >Producto:</asp:Label> <asp:Label runat="server" ID="LblPS" CssClass="col-md-1 truncate">Producto:</asp:Label>
<div class="col-md-2 " style="min-width: 250px; max-width: 300px;"> <div class="col-md-2 " style="min-width: 250px; max-width: 300px;">
<ADS:Dropdownlost ID="ddlProducto2" runat="server" AutoPostBack="False" DataTextField="PSCodigo" IncluyeTodos="false" DataValueField="CvePS" CssClassDdl="select2me" CssStyle="width: 250px; "></ADS:Dropdownlost> <ADS:Dropdownlost ID="ddlProducto2" runat="server" autopostback="False" DataTextField="PSCodigo" IncluyeTodos="false" DataValueField="CvePS" CssClassDdl="select2me" CssStyle="width: 250px; "></ADS:Dropdownlost>
</div> </div>
<label class="col-md-1 truncate" style="max-width: 80px;" id="lblAlm" runat="server">Almacén:</label> <label class="col-md-1 truncate" style="max-width: 80px;" id="lblAlm" runat="server">Almacén:</label>
@@ -217,77 +220,81 @@
</div> </div>
</div>
</div> </div>
</div> <div class="portlet-body" <%= IIf(chkexpand.Checked = True, "", "style=""display:none;""")%>>
<div class="portlet-body" <%= IIf(chkexpand.Checked = True, "", "style=""display:none;""")%>> <div class="row">
<div class="row"> <label class="col-md-1 truncate">Clasificación:</label>
<label class="col-md-1 truncate">Clasificación:</label> <div class="col-md-2">
<div class="col-md-2"> <asp:DropDownList ID="DdlClasificacion" CssClass="select2me" runat="server" AppendDataBoundItems="true" AutoPostBack="true" DataTextField="Clasificacion" DataValueField="CveClasificacion" Class="table-group-action-input form-control input-inline input-small input-sm" Style="width: 250px !important;">
<asp:DropDownList ID="DdlClasificacion" CssClass="select2me" runat="server" AppendDataBoundItems="true" AutoPostBack="true" DataTextField="Clasificacion" DataValueField="CveClasificacion" Class="table-group-action-input form-control input-inline input-small input-sm" Style="width: 250px !important;"> <asp:ListItem Selected="True" Text="Todos" Value="-1"></asp:ListItem>
<asp:ListItem Selected="True" Text="Todos" Value="-1"></asp:ListItem> </asp:DropDownList>
</asp:DropDownList>
</div>
<label class="col-md-1 truncate" style="max-width: 80px;">Unidad Medida:</label>
<div class="col-md-2">
<asp:DropDownList ID="DdlUnidadMedida" runat="server" CssClass="select2me " Style="width: 200px !important;" DataTextField="UnidadMedida" DataValueField="CveUnidadMedida">
<asp:ListItem Text="Todos" Value="-1"></asp:ListItem>
</asp:DropDownList>
</div>
<div class="col-md-1">
<asp:CheckBox ID="cbEntrada" CssClass="md-checksd" runat="server" Text="Entrada" Checked="True" />
</div>
<div class="col-md-1">
<asp:CheckBox ID="cbSalida" CssClass="md-checksd" runat="server" Text="Salida" Checked="True" />
</div>
<div class="col-md-2">
<button type="button" class="btn btn-default" data-toggle="modal" data-target="#ModalTiposAlmacen">Filtrar tipos almacén</button>
</div>
<div id="DivSerie" runat="server" visible="false">
<label class="col-md-1 truncate" style="max-width: 80px;">Serie:</label>
<div class="col-md-1 ">
<asp:TextBox ID="TxtSerie" CssClass="form-control input-sm" runat="server" Width="90px" />
</div> </div>
</div>
</div> <label class="col-md-1 truncate" style="max-width: 80px;">Unidad Medida:</label>
<div class="col-md-2">
<asp:DropDownList ID="DdlUnidadMedida" runat="server" CssClass="select2me " Style="width: 200px !important;" DataTextField="UnidadMedida" DataValueField="CveUnidadMedida">
<asp:ListItem Text="Todos" Value="-1"></asp:ListItem>
</asp:DropDownList>
</div>
<div class="row" runat="server" visible="false" id="DVFiltroCodigo"> <div class="col-md-1">
<div class="col-md-1">Código Inicio:</div> <asp:CheckBox ID="cbEntrada" CssClass="md-checksd" runat="server" Text="Entrada" Checked="True" />
<div class="col-md-2"><asp:TextBox runat="server" ID="TxtCodigoInicio" Height="26px"></asp:TextBox></div> </div>
<div class="col-md-1" style="max-width: 80px;">Código Fin:</div>
<div class="col-md-2"><asp:TextBox runat="server" ID="TxtCodigoFinal" Height="26px"></asp:TextBox></div>
<div class="col-md-1" style="max-width: 85px;">Marca</div>
<div class="col-md-1" style="min-width: 150px;">
<asp:DropDownList ID="DdlMarca" CssClass="form-control input-sm select2me" CssStyle="width: 100%;" Width="100%" runat="server" DataTextField="Marca" DataValueField="CveMarca" >
<asp:ListItem Text="Todas" Value="-1"></asp:ListItem>
</asp:DropDownList>
</div>
<div class="col-md-1" style="max-width: 85px;">Proveedor:</div>
<div class="col-md-1" style="min-width: 150px;">
<ADS:Dropdownlost ID="DdlProveedores" runat="server" CssStyle="width: 100%;" Width="100%" DataTextField="RazonSocial" DataValueField="CveProveedor"></ADS:Dropdownlost>
</div>
<div class="col-md-1" runat="server" id="DVNavegar" > <div class="col-md-1">
<div class="row"> <asp:CheckBox ID="cbSalida" CssClass="md-checksd" runat="server" Text="Salida" Checked="True" />
<div class="col-md-5"> </div>
<asp:LinkButton runat="server" ID="LnkPSAntyerior" OnClick="LnkPSAntyerior_Click" CssClass="btn btn-primary">Anterior</asp:LinkButton>
<div class="col-md-2">
<button type="button" class="btn btn-default" data-toggle="modal" data-target="#ModalTiposAlmacen">Filtrar tipos almacén</button>
</div>
<div id="DivSerie" runat="server" visible="false">
<label class="col-md-1 truncate" style="max-width: 80px;">Serie:</label>
<div class="col-md-1 ">
<asp:TextBox ID="TxtSerie" CssClass="form-control input-sm" runat="server" Width="90px" />
</div> </div>
<div class="col-md-2"> </div>
</div>
<div class="col-md-5"> </div>
<asp:LinkButton runat="server" ID="LnkPSSiguiente" OnClick="LnkPSSiguiente_Click" CssClass="btn btn-primary">Siguiente</asp:LinkButton>
<div class="row" runat="server" visible="false" id="DVFiltroCodigo">
<div class="col-md-1">Código Inicio:</div>
<div class="col-md-2">
<asp:TextBox runat="server" ID="TxtCodigoInicio" Height="26px"></asp:TextBox>
</div>
<div class="col-md-1" style="max-width: 80px;">Código Fin:</div>
<div class="col-md-2">
<asp:TextBox runat="server" ID="TxtCodigoFinal" Height="26px"></asp:TextBox>
</div>
<div class="col-md-1" style="max-width: 85px;">Marca</div>
<div class="col-md-1" style="min-width: 150px;">
<asp:DropDownList ID="DdlMarca" CssClass="form-control input-sm select2me" CssStyle="width: 100%;" Width="100%" runat="server" DataTextField="Marca" DataValueField="CveMarca">
<asp:ListItem Text="Todas" Value="-1"></asp:ListItem>
</asp:DropDownList>
</div>
<div class="col-md-1" style="max-width: 85px;">Proveedor:</div>
<div class="col-md-1" style="min-width: 150px;">
<ADS:Dropdownlost ID="DdlProveedores" runat="server" CssStyle="width: 100%;" Width="100%" DataTextField="RazonSocial" DataValueField="CveProveedor"></ADS:Dropdownlost>
</div>
<div class="col-md-1" runat="server" id="DVNavegar">
<div class="row">
<div class="col-md-5">
<asp:LinkButton runat="server" ID="LnkPSAntyerior" OnClick="LnkPSAntyerior_Click" CssClass="btn btn-primary">Anterior</asp:LinkButton>
</div>
<div class="col-md-2">
</div>
<div class="col-md-5">
<asp:LinkButton runat="server" ID="LnkPSSiguiente" OnClick="LnkPSSiguiente_Click" CssClass="btn btn-primary">Siguiente</asp:LinkButton>
</div>
</div> </div>
</div> </div>
</div> </div>
</div> </div>
</div> </div>
</div>
</ContentTemplate> </ContentTemplate>
</asp:UpdatePanel> </asp:UpdatePanel>
@@ -424,7 +431,7 @@
<asp:HyperLink runat="server" Target="_blank" ID="hlFolioD" Text='<%# Eval("FolioDocto")%>' CssClass="Texto" /> <asp:HyperLink runat="server" Target="_blank" ID="hlFolioD" Text='<%# Eval("FolioDocto")%>' CssClass="Texto" />
</ItemTemplate> </ItemTemplate>
</asp:TemplateField> </asp:TemplateField>
<asp:TemplateField ItemStyle-HorizontalAlign="Left" HeaderText="Folio Rel." Visible="false"> <asp:TemplateField ItemStyle-HorizontalAlign="Left" HeaderText="Folio Rel." Visible="false">
<ItemTemplate> <ItemTemplate>
<asp:HyperLink runat="server" Target="_blank" ID="hlFolioDr" Text='<%# Eval("FolioRelacionEntrada")%>' NavigateUrl='<%# Eval("CveVentaRelacionada", "/Ventas/Ventas.aspx?CveVenta={0}")%>' CssClass="Texto" /> <asp:HyperLink runat="server" Target="_blank" ID="hlFolioDr" Text='<%# Eval("FolioRelacionEntrada")%>' NavigateUrl='<%# Eval("CveVentaRelacionada", "/Ventas/Ventas.aspx?CveVenta={0}")%>' CssClass="Texto" />
</ItemTemplate> </ItemTemplate>
@@ -434,7 +441,7 @@
<asp:Label ID="lbUm" runat="server" Text='<%# Eval("UnidadMedida")%>' data-toggle="tooltip" title='<%# Eval("CveUnidadMedida")%>'></asp:Label> <asp:Label ID="lbUm" runat="server" Text='<%# Eval("UnidadMedida")%>' data-toggle="tooltip" title='<%# Eval("CveUnidadMedida")%>'></asp:Label>
</ItemTemplate> </ItemTemplate>
</asp:TemplateField> </asp:TemplateField>
<asp:TemplateField ItemStyle-Width="70px" ItemStyle-HorizontalAlign="Left" HeaderText="Sección" Visible="false"> <asp:TemplateField ItemStyle-Width="70px" ItemStyle-HorizontalAlign="Left" HeaderText="Sección" Visible="false">
<ItemTemplate> <ItemTemplate>
<asp:Literal ID="lbSA" runat="server" Text='<%# Eval("SeccionAlmacen")%>'></asp:Literal> <asp:Literal ID="lbSA" runat="server" Text='<%# Eval("SeccionAlmacen")%>'></asp:Literal>
</ItemTemplate> </ItemTemplate>
@@ -545,7 +552,7 @@
</asp:UpdatePanel> </asp:UpdatePanel>
</div> </div>
<div id="DivModalSerie" class="modal ADS fade" role="dialog"> <div id="DivModalSerie" class="modal ADS fade" role="dialog">
<asp:UpdatePanel class="modal-dialog" runat="server" ID="UpdatePanel1" UpdateMode="Conditional" RenderMode="Inline" style="width:50%"> <asp:UpdatePanel class="modal-dialog" runat="server" ID="UpdatePanel1" UpdateMode="Conditional" RenderMode="Inline" style="width: 50%">
<ContentTemplate> <ContentTemplate>
<div class="modal-content"> <div class="modal-content">
<div class="modal-header "> <div class="modal-header ">
@@ -553,22 +560,22 @@
<asp:Literal ID="LtlSerieTitle" Text="Series Disponibles" runat="server"> </asp:Literal></h4> <asp:Literal ID="LtlSerieTitle" Text="Series Disponibles" runat="server"> </asp:Literal></h4>
</div> </div>
<div class="modal-body"> <div class="modal-body">
<div class="row" style="width:100%"> <div class="row" style="width: 100%">
<div style="width:98%;margin-left:1.5%;margin-right:1.5%"> <div style="width: 98%; margin-left: 1.5%; margin-right: 1.5%">
<asp:UpdatePanel ID="UpGridSeries" runat="server" UpdateMode="Conditional" RenderMode="Inline"> <asp:UpdatePanel ID="UpGridSeries" runat="server" UpdateMode="Conditional" RenderMode="Inline">
<ContentTemplate> <ContentTemplate>
<asp:GridView ID="GvSeries" Width="98%" runat="server" ShowHeader="true" EmptyDataText="No hay registros." AutoGenerateColumns="False" AllowPaging="False" <asp:GridView ID="GvSeries" Width="98%" runat="server" ShowHeader="true" EmptyDataText="No hay registros." AutoGenerateColumns="False" AllowPaging="False"
ShowFooter="True" ShowHeaderWhenEmpty="True" CssClass="table table-striped table-advance table-hover ScrollAD" GridLines="None" ShowFooter="True" ShowHeaderWhenEmpty="True" CssClass="table table-striped table-advance table-hover ScrollAD" GridLines="None"
DataKeyNames="CveEmpresa,CveAlmacen,Almacen,PS,CvePS,Serie,Lote,FechaCaducidad,CveSeccionAlmacen,Existencia,Valor"> DataKeyNames="CveEmpresa,CveAlmacen,Almacen,PS,CvePS,Serie,Lote,FechaCaducidad,CveSeccionAlmacen,Existencia,Valor">
<Columns> <Columns>
<asp:BoundField HeaderText="Almacén" DataField="Almacen"/> <asp:BoundField HeaderText="Almacén" DataField="Almacen" />
<asp:BoundField HeaderText="Serie" DataField="Serie"/> <asp:BoundField HeaderText="Serie" DataField="Serie" />
<asp:BoundField HeaderText="Existencia" DataField="Existencia" DataFormatString="{0:#,###}"/> <asp:BoundField HeaderText="Existencia" DataField="Existencia" DataFormatString="{0:#,###}" />
</Columns> </Columns>
</asp:GridView> </asp:GridView>
</ContentTemplate> </ContentTemplate>
</asp:UpdatePanel> </asp:UpdatePanel>
</div> </div>
</div> </div>
</div> </div>
@@ -581,7 +588,7 @@
</div> </div>
<div id="DivModalCaducidad" class="modal ADS fade" role="dialog"> <div id="DivModalCaducidad" class="modal ADS fade" role="dialog">
<asp:UpdatePanel class="modal-dialog" runat="server" ID="UpdatePanel2" UpdateMode="Conditional" RenderMode="Inline" style="width:50%"> <asp:UpdatePanel class="modal-dialog" runat="server" ID="UpdatePanel2" UpdateMode="Conditional" RenderMode="Inline" style="width: 50%">
<ContentTemplate> <ContentTemplate>
<div class="modal-content"> <div class="modal-content">
<div class="modal-header "> <div class="modal-header ">
@@ -589,28 +596,28 @@
<asp:Literal ID="Literal1" Text="Producto con caducidad" runat="server"> </asp:Literal></h4> <asp:Literal ID="Literal1" Text="Producto con caducidad" runat="server"> </asp:Literal></h4>
</div> </div>
<div class="modal-body"> <div class="modal-body">
<div class="row" style="width:100%"> <div class="row" style="width: 100%">
<div style="width:98%;margin-left:1.5%;margin-right:1.5%"> <div style="width: 98%; margin-left: 1.5%; margin-right: 1.5%">
<asp:UpdatePanel ID="UpProductoCaducidad" runat="server" UpdateMode="Conditional" RenderMode="Inline"> <asp:UpdatePanel ID="UpProductoCaducidad" runat="server" UpdateMode="Conditional" RenderMode="Inline">
<ContentTemplate> <ContentTemplate>
<div runat="server" id="DivImprimir" style="text-align:right" visible="false"> <div runat="server" id="DivImprimir" style="text-align: right" visible="false">
<asp:HyperLink ID="ImprimirQR" runat="server"><i class="fa fa-file-pdf-o" style="font-weight:bold;"></i> Imprimir QR</asp:HyperLink> <asp:HyperLink ID="ImprimirQR" runat="server"><i class="fa fa-file-pdf-o" style="font-weight: bold;"></i>Imprimir QR</asp:HyperLink>
</div> </div>
<asp:GridView ID="GvProductoCaducidad" Width="98%" runat="server" ShowHeader="true" EmptyDataText="No hay registros." AutoGenerateColumns="False" AllowPaging="False" <asp:GridView ID="GvProductoCaducidad" Width="98%" runat="server" ShowHeader="true" EmptyDataText="No hay registros." AutoGenerateColumns="False" AllowPaging="False"
ShowFooter="True" ShowHeaderWhenEmpty="True" CssClass="table table-striped table-advance table-hover ScrollAD" GridLines="None" ShowFooter="True" ShowHeaderWhenEmpty="True" CssClass="table table-striped table-advance table-hover ScrollAD" GridLines="None"
DataKeyNames="Almacen,Cantidad,FechaCaducidad,Lote"> DataKeyNames="Almacen,Cantidad,FechaCaducidad,Lote">
<Columns> <Columns>
<asp:BoundField HeaderText="Almacén" DataField="Almacen"/> <asp:BoundField HeaderText="Almacén" DataField="Almacen" />
<asp:BoundField HeaderText="Cantidad" DataField="Cantidad" DataFormatString="{0:#,###.##}" ItemStyle-Width="80px" ItemStyle-HorizontalAlign="Right"/> <asp:BoundField HeaderText="Cantidad" DataField="Cantidad" DataFormatString="{0:#,###.##}" ItemStyle-Width="80px" ItemStyle-HorizontalAlign="Right" />
<asp:BoundField HeaderText="Serie" DataField="Serie" ItemStyle-Width="125px"/> <asp:BoundField HeaderText="Serie" DataField="Serie" ItemStyle-Width="125px" />
<asp:BoundField HeaderText="Lote" DataField="Lote" ItemStyle-Width="125px"/> <asp:BoundField HeaderText="Lote" DataField="Lote" ItemStyle-Width="125px" />
<asp:BoundField HeaderText="Fecha Caducidad" DataField="FechaCaducidad" DataFormatString="{0:dd/MM/yyyy}" ItemStyle-Width="100px"/> <asp:BoundField HeaderText="Fecha Caducidad" DataField="FechaCaducidad" DataFormatString="{0:dd/MM/yyyy}" ItemStyle-Width="100px" />
</Columns> </Columns>
</asp:GridView> </asp:GridView>
</ContentTemplate> </ContentTemplate>
</asp:UpdatePanel> </asp:UpdatePanel>
</div> </div>
</div> </div>
</div> </div>
@@ -622,6 +629,41 @@
</asp:UpdatePanel> </asp:UpdatePanel>
</div> </div>
<div id="DivModalExistenciasCapas" class="modal ADS fade" role="dialog">
<asp:UpdatePanel class="modal-dialog" runat="server" ID="UpExistenciasCapas" UpdateMode="Conditional">
<ContentTemplate>
<div class="modal-content">
<div class="modal-header ">
<h4 class="modal-title">
<asp:Literal ID="Literal2" Text="Movimientos de entrada" runat="server"> </asp:Literal></h4>
</div>
<div class="modal-body">
<asp:GridView ID="GvExistenciasCapas" Width="100%" runat="server" ShowHeader="true" EmptyDataText="No hay registros." AutoGenerateColumns="False" AllowPaging="False"
ShowFooter="True" ShowHeaderWhenEmpty="True" CssClass="table table-striped table-advance table-hover ScrollAD" GridLines="None">
<Columns>
<asp:TemplateField ItemStyle-Width="10%" HeaderText="Folio">
<ItemTemplate>
<asp:HyperLink ID="hlFolio" runat="server" Text='<%# Eval("Folio")%>' CssClass="Texto" NavigateUrl='<%# Eval("CveMovimiento", "/Inventarios/EntradasSalidas.aspx?CveMovimiento={0}")%>' Target="_blank" />
</ItemTemplate>
</asp:TemplateField>
<asp:BoundField HeaderText="Folio" DataField="Folio" ItemStyle-Width="10%" />
<asp:BoundField HeaderText="Fecha" DataField="FechaMovto" DataFormatString="{0:dd/MM/yyyy}" ItemStyle-Width="10%" />
<asp:BoundField HeaderText="Producto" DataField="CodigoPS" ItemStyle-Width="20%" />
<asp:BoundField HeaderText="Almacen" DataField="Almacen" ItemStyle-Width="15%" />
<asp:BoundField HeaderText="Entrada" DataField="Entrada" DataFormatString="{0:#,###.##}" ItemStyle-Width="15%" ItemStyle-HorizontalAlign="Right" />
<asp:BoundField HeaderText="Salida" DataField="Salida" DataFormatString="{0:#,###.##}" ItemStyle-Width="15%" ItemStyle-HorizontalAlign="Right" />
<asp:BoundField HeaderText="Disponible" DataField="Disponible" DataFormatString="{0:#,###.##}" ItemStyle-Width="15%" ItemStyle-HorizontalAlign="Right" />
</Columns>
</asp:GridView>
</div>
<div class="modal-footer">
<button type="button" class="btn btn-primary" data-dismiss="modal">Cerrar</button>
</div>
</div>
</ContentTemplate>
</asp:UpdatePanel>
</div>
</asp:Content> </asp:Content>
<asp:Content ID="Content7" ContentPlaceHolderID="JS" runat="Server"> <asp:Content ID="Content7" ContentPlaceHolderID="JS" runat="Server">
</asp:Content> </asp:Content>

30
Inventarios/Kardex.aspx.vb
View File

@@ -1,11 +1,13 @@
Option Strict On Option Strict On
Option Explicit On Option Explicit On
Imports System
Imports System.Data Imports System.Data
Imports System.Security.Cryptography.Pkcs Imports System.Security.Cryptography.Pkcs
Imports ADSNetLibrary.SIGAPI.Models.CGame Imports ADSNetLibrary.SIGAPI.Models.CGame
Imports Extensiones Imports Extensiones
Imports Microsoft.Reporting.WebForms Imports Microsoft.Reporting.WebForms
Imports Microsoft.VisualBasic
Imports Telerik.Web.UI Imports Telerik.Web.UI
Partial Class Inventarios_Kardex Partial Class Inventarios_Kardex
@@ -279,6 +281,10 @@ Partial Class Inventarios_Kardex
LnkSeries.Visible = AuxAplicaSerie LnkSeries.Visible = AuxAplicaSerie
LnkCaducidad.Visible = AuxAplicaCad LnkCaducidad.Visible = AuxAplicaCad
If UsuarioActual.CveEmpresa = 172 Then
LnkExistenciasPorCapas.Visible = True
End If
'CARGA INDICADORES 'CARGA INDICADORES
If UsuarioActual.TienePermisoProceso(201) Then If UsuarioActual.TienePermisoProceso(201) Then
@@ -574,6 +580,30 @@ Partial Class Inventarios_Kardex
Next Next
End Sub End Sub
Protected Sub LnkExistenciasPorCapas_OnClick(sender As Object, e As EventArgs) Handles LnkExistenciasPorCapas.Click
Dim FechaI As DateTime = If(TxtFechaI.Text <> "" AndAlso TxtFechaI.Text <> "__/__/____", TxtFechaI.Text.ToDateTime(), MinFecha)
Dim FechaF As DateTime = If(TxtFechaF.Text <> "" AndAlso TxtFechaF.Text <> "__/__/____", TxtFechaF.Text.ToDateTime(), MaxFecha)
Using ObjInv As New ClsInventarios
If ObjInv.GetInvExistenciasCapas(ddlProducto2.SelectedValue.ToEntero(), FechaI, FechaF, UsuarioActual.CveEmpresa, ddlAlmacen.GetSelectedValues()) Then
GvExistenciasCapas.DataSource = ObjInv.DtResultados
End If
End Using
GvExistenciasCapas.DataBind()
UpExistenciasCapas.Update()
RegistraScript(String.Format("$('#{0}').modal('show');", "DivModalExistenciasCapas"))
End Sub
Protected Sub GvExistenciasCapas_RowDataBound(sender As Object, e As GridViewRowEventArgs) Handles GvExistenciasCapas.RowDataBound
If e.Row.RowType = DataControlRowType.DataRow Then
If e.Row.DBCampo("CodigoPS").Contains("Total") Then
e.Row.CssClass = "Totales"
End If
End If
End Sub
#End Region #End Region

170
Inventarios/PopUpExistenciasAlmacen.aspx
View File

@@ -20,87 +20,87 @@
<ContentTemplate> <ContentTemplate>
<asp:Panel ID="Pnl" runat="server" DefaultButton="BtnBuscar"> <asp:Panel ID="Pnl" runat="server" DefaultButton="BtnBuscar">
<table style="width: 750px;"> <table style="width: 750px;">
<tr> <tr>
<td class="Titulos" colspan="4">Filtros para búsqueda</td> <td class="Titulos" colspan="4">Filtros para búsqueda</td>
</tr> </tr>
<tr align="left"> <tr align="left">
</tr> </tr>
<tr align="left"> <tr align="left">
<td class="text-right"><b>Producto/Servicio:</b></td> <td class="text-right"><b>Producto/Servicio:</b></td>
<td> <td>
<asp:UpdatePanel runat="server"> <asp:UpdatePanel runat="server">
<ContentTemplate> <ContentTemplate>
<ADS:Dropdownlost ID="DDlPS" AutoPostBack="false" runat="server" IncluyeTodos="false" DataTextField="PSCodigo" DataValueField="CvePS" CssClassDdl="select2me" CssStyle="width:400px;"></ADS:Dropdownlost> <ADS:Dropdownlost ID="DDlPS" AutoPostBack="false" runat="server" IncluyeTodos="false" DataTextField="PSCodigo" DataValueField="CvePS" CssClassDdl="select2me" CssStyle="width:400px;"></ADS:Dropdownlost>
</ContentTemplate> </ContentTemplate>
</asp:UpdatePanel> </asp:UpdatePanel>
</td> </td>
<td> <td>
<asp:LinkButton runat="server" ID="LnkBsucarSerie" CssClass="Texto" Text="Buscar por Serie" OnClick="LnkBsucarSerie_Click" Visible="false"></asp:LinkButton> <asp:LinkButton runat="server" ID="LnkBsucarSerie" CssClass="Texto" Text="Buscar por Serie" OnClick="LnkBsucarSerie_Click" Visible="false"></asp:LinkButton>
</td> </td>
</tr> </tr>
<tr runat="server" id="DivMed" visible="false"> <tr runat="server" id="DivMed" visible="false">
<td class="text-right">Medida: </td> <td class="text-right">Medida: </td>
<td> <td>
<asp:DropDownList runat="server" ID="DdlMedidas" CssClass="form-control input-sm select2me" Width="150px" DataTextField="Medida" DataValueField="CveMedida"></asp:DropDownList> <asp:DropDownList runat="server" ID="DdlMedidas" CssClass="form-control input-sm select2me" Width="150px" DataTextField="Medida" DataValueField="CveMedida"></asp:DropDownList>
</td> </td>
<td rowspan="2"> <td rowspan="2">
<div id="DivEquivalentes" style="overflow-y: auto; overflow-x: hidden; width: 150px; height: 70px" runat="server" visible="False"> <div id="DivEquivalentes" style="overflow-y: auto; overflow-x: hidden; width: 150px; height: 70px" runat="server" visible="False">
<asp:GridView ID="GvEquival" runat="server" AutoGenerateColumns="False" DataKeyNames="CveMedidaEquivalencia,CveMedida,CveRin,CveMedidaEquivalente,CveRinEquivalente,Medida,RinTamaño,MedidaEquivalente,RinTamañoEquivalente" EmptyDataText="" ToolTip="" CssClass="table table-striped table-advance table-hover" Style="margin-top: 10px; width: 100%" GridLines="None"> <asp:GridView ID="GvEquival" runat="server" AutoGenerateColumns="False" DataKeyNames="CveMedidaEquivalencia,CveMedida,CveRin,CveMedidaEquivalente,CveRinEquivalente,Medida,RinTamaño,MedidaEquivalente,RinTamañoEquivalente" EmptyDataText="" ToolTip="" CssClass="table table-striped table-advance table-hover" Style="margin-top: 10px; width: 100%" GridLines="None">
<Columns> <Columns>
<asp:TemplateField ItemStyle-Width="300px" HeaderText="Equivalentes"> <asp:TemplateField ItemStyle-Width="300px" HeaderText="Equivalentes">
<ItemTemplate> <ItemTemplate>
<asp:Literal ID="lblUsuario" runat="server" Text='<%#String.Concat(Eval("MedidaEquivalente"), " ", Eval("RinTamañoEquivalente")) %>'></asp:Literal> <asp:Literal ID="lblUsuario" runat="server" Text='<%#String.Concat(Eval("MedidaEquivalente"), " ", Eval("RinTamañoEquivalente")) %>'></asp:Literal>
</ItemTemplate> </ItemTemplate>
</asp:TemplateField> </asp:TemplateField>
</Columns> </Columns>
</asp:GridView> </asp:GridView>
</div> </div>
</td> </td>
</tr> </tr>
<tr runat="server" id="DivRin" visible="false"> <tr runat="server" id="DivRin" visible="false">
<td class="text-right">Rin: </td> <td class="text-right">Rin: </td>
<td> <td>
<asp:DropDownList runat="server" ID="DdlRin" CssClass="form-control input-sm select2me" Width="150px" DataTextField="RinTamaño" DataValueField="CveRinTamaño"></asp:DropDownList> <asp:DropDownList runat="server" ID="DdlRin" CssClass="form-control input-sm select2me" Width="150px" DataTextField="RinTamaño" DataValueField="CveRinTamaño"></asp:DropDownList>
</td> </td>
<td></td> <td></td>
</tr> </tr>
<tr runat="server" id="DivCodigoSeriePS" visible="false"> <tr runat="server" id="DivCodigoSeriePS" visible="false">
<td class="text-right"><b>C. Barras:</b></td> <td class="text-right"><b>C. Barras:</b></td>
<td> <td>
<asp:UpdatePanel runat="server"> <asp:UpdatePanel runat="server">
<ContentTemplate> <ContentTemplate>
<asp:Panel ID="PanelCodigo" runat="server" DefaultButton="BtnCodigoPS"> <asp:Panel ID="PanelCodigo" runat="server" DefaultButton="BtnCodigoPS">
<asp:TextBox ID="TxtCodigoPS" ClientIDMode="Static" Text="" runat="server" /> <asp:TextBox ID="TxtCodigoPS" ClientIDMode="Static" Text="" runat="server" />
<asp:Button Text="" ID="BtnCodigoPS" OnClick="BtnCodigoPS_Click" Style="display: none" runat="server" /> <asp:Button Text="" ID="BtnCodigoPS" OnClick="BtnCodigoPS_Click" Style="display: none" runat="server" />
</asp:Panel> </asp:Panel>
</ContentTemplate> </ContentTemplate>
</asp:UpdatePanel> </asp:UpdatePanel>
</td> </td>
<td></td> <td></td>
</tr> </tr>
<tr align="left" runat="server" id="DivSucursal" visible="false"> <tr align="left" runat="server" id="DivSucursal" visible="false">
<td class="text-right"><b>Sucursal:</b></td> <td class="text-right"><b>Sucursal:</b></td>
<td> <td>
<asp:DropDownList ID="DdlSubProyecto" AutoPostBack="True" runat="server" CssClass="form-control input-sm select2me" DataTextField="SubProyecto" DataValueField="CveSubProyecto" Width="400px"></asp:DropDownList> <asp:DropDownList ID="DdlSubProyecto" AutoPostBack="True" runat="server" CssClass="form-control input-sm select2me" DataTextField="SubProyecto" DataValueField="CveSubProyecto" Width="400px"></asp:DropDownList>
</td> </td>
<td></td> <td></td>
</tr> </tr>
<tr align="left" runat="server" id="TrCompuesto" visible="false"> <tr align="left" runat="server" id="TrCompuesto" visible="false">
<td class="text-right"><b>Compuesto:</b></td> <td class="text-right"><b>Compuesto:</b></td>
<td> <td>
<asp:TextBox ID="TxtCompuesto" runat="server" CssClass="form-control input-sm select2me" Width="400px"></asp:TextBox> <asp:TextBox ID="TxtCompuesto" runat="server" CssClass="form-control input-sm select2me" Width="400px"></asp:TextBox>
</td> </td>
<td></td> <td></td>
</tr> </tr>
<tr> <tr>
<td colspan="4" style="text-align: center;"> <td colspan="4" style="text-align: center;">
<asp:Button ID="BtnBuscar" runat="server" Text="Buscar" class="btn btn-primary" /> <asp:Button ID="BtnBuscar" runat="server" Text="Buscar" class="btn btn-primary" />
</td> </td>
<td></td> <td></td>
<td></td> <td></td>
</tr> </tr>
</table> </table>
</asp:Panel> </asp:Panel>
</ContentTemplate> </ContentTemplate>
</asp:UpdatePanel> </asp:UpdatePanel>
@@ -111,15 +111,9 @@
<div class="row" style="max-width: 780px;"> <div class="row" style="max-width: 780px;">
<div class="col-md-12"> <div class="col-md-12">
<asp:Literal ID="LtPs" Text="" runat="server">&nbsp&nbsp</asp:Literal> <asp:Literal ID="LtPs" Text="" runat="server">&nbsp&nbsp</asp:Literal>
&nbsp;&nbsp;&nbsp;
<asp:Literal ID="LtlIEPS" Text="IEPS:" runat="server" Visible="false">&nbsp&nbsp</asp:Literal>
<asp:Literal ID="LtlIEPSPorcentaje" Text="" runat="server" Visible="false">&nbsp&nbsp</asp:Literal> <asp:Literal ID="LtlIEPSPorcentaje" Text="" runat="server" Visible="false">&nbsp&nbsp</asp:Literal>
<asp:Literal ID="LtlIVA" Text="IVA:" runat="server" Visible="false">&nbsp&nbsp</asp:Literal>
<asp:Literal ID="LtlIVAPorcentaje" Text="" runat="server" Visible="false">&nbsp&nbsp</asp:Literal> <asp:Literal ID="LtlIVAPorcentaje" Text="" runat="server" Visible="false">&nbsp&nbsp</asp:Literal>
</div> </div>
</div> </div>
<div class="row" style="max-width: 780px;"> <div class="row" style="max-width: 780px;">

8
Inventarios/PopUpExistenciasAlmacen.aspx.vb
View File

@@ -198,19 +198,15 @@ Partial Class Inventarios_Default
objPS.Dispose() objPS.Dispose()
If UsuarioActual.CveEmpresa = 119 Then If UsuarioActual.CveEmpresa = 119 Then
If CBool(dr("AplicaIEPS")) Then If CBool(dr("AplicaIEPS")) Then
LtlIEPS.Visible = True
LtlIEPSPorcentaje.Visible = True LtlIEPSPorcentaje.Visible = True
LtlIEPSPorcentaje.Text = $"<b>% {(dr("IEPSPorcentaje").ToString.ToDouble * 100).FormatoNumero}</b>" LtlIEPSPorcentaje.Text = $"IEPS: <b>% {(dr("IEPSPorcentaje").ToString.ToDouble * 100).FormatoNumero}</b>"
Else Else
LtlIEPS.Visible = False
LtlIEPSPorcentaje.Visible = False LtlIEPSPorcentaje.Visible = False
End If End If
If dr("IVA").ToString = "-1" OrElse dr("IVA").ToString.ToDecimal > 0 Then If dr("IVA").ToString = "-1" OrElse dr("IVA").ToString.ToDecimal > 0 Then
LtlIVA.Visible = True
LtlIVAPorcentaje.Visible = True LtlIVAPorcentaje.Visible = True
LtlIVAPorcentaje.Text = $"<b>Si</b>" LtlIVAPorcentaje.Text = $"IVA: <b>Si</b>"
Else Else
LtlIVA.Visible = False
LtlIVAPorcentaje.Visible = False LtlIVAPorcentaje.Visible = False
End If End If
End If End If

23
Inventarios/TrasladoSolicitud.aspx
View File

@@ -89,6 +89,8 @@
<asp:BoundField DataField="Folio" HeaderText="Folio" ItemStyle-Width="80px" /> <asp:BoundField DataField="Folio" HeaderText="Folio" ItemStyle-Width="80px" />
<asp:BoundField DataField="AlmacenOrigen" HeaderText="Origen" ItemStyle-Width="200px" /> <asp:BoundField DataField="AlmacenOrigen" HeaderText="Origen" ItemStyle-Width="200px" />
<asp:BoundField DataField="AlmacenDestino" HeaderText="Destino" 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="Fecha" HeaderText="Fecha" ItemStyle-Width="90px" DataFormatString="{0:d}" />
<asp:BoundField DataField="Nombre" HeaderText="Solicitante" /> <asp:BoundField DataField="Nombre" HeaderText="Solicitante" />
@@ -163,6 +165,20 @@
<asp:RequiredFieldValidator ID="RfvDdlAlmacenDestino" runat="server" InitialValue="-1" ControlToValidate="DdlAlmacenDestino" CssClass="help-block errorimput" <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> 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>
<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> </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));" /> <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"> <div class="row marginRowLeft">
@@ -185,13 +201,6 @@
</div> </div>
<%-- <div class="row">
<div class="col-md-12" style="text-align:right!important">
</div>
</div>--%>
<div class="row"> <div class="row">
<div class="col-md-12"> <div class="col-md-12">

2
Inventarios/TrasladoSolicitud.aspx.vb
View File

@@ -323,7 +323,7 @@ Partial Class Inventarios_TrasladoSolicitud
Estatus = 3 Estatus = 3
End If 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 If Folio > 0 Then
CveTraspasoSolicitud = ObjInventarios.CveTraspasoSolicitud CveTraspasoSolicitud = ObjInventarios.CveTraspasoSolicitud

53
Transportes/RepContratoDetalle.aspx
View File

@@ -145,12 +145,12 @@
<label class="col-md-4"> <label class="col-md-4">
<asp:Label runat="server" ID="LblSubProyectoModal"></asp:Label> <asp:Label runat="server" ID="LblSubProyectoModal"></asp:Label>
</label> </label>
<div class="col-md-8"> <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: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" <asp:RequiredFieldValidator ID="RfvDdlSubProyecto" runat="server" ControlToValidate="DdlSubProyecto" InitialValue="-1" ErrorMessage="Campo sub Proyecto requerido." Display="None"
ValidationGroup="GrpGuardar"></asp:RequiredFieldValidator> ValidationGroup="GrpGuardar"></asp:RequiredFieldValidator>
<ajax:ValidatorCalloutExtender ID="VCERfvDdlSubProyecto" runat="server" HighlightCssClass="vco" TargetControlID="RfvDdlSubProyecto" Width="300px"></ajax:ValidatorCalloutExtender> <ajax:ValidatorCalloutExtender ID="VCERfvDdlSubProyecto" runat="server" HighlightCssClass="vco" TargetControlID="RfvDdlSubProyecto" Width="300px"></ajax:ValidatorCalloutExtender>
</div> </div>
<div class="input-group"> <div class="input-group">
</div> </div>
@@ -397,8 +397,45 @@
</div> </div>
</div> </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> </ContentTemplate>
</ajax:TabPanel> </ajax:TabPanel>
<%-- Pre init --%> <%-- Pre init --%>
@@ -593,7 +630,7 @@
<label class="col-md-4 bold">Observación</label> <label class="col-md-4 bold">Observación</label>
<div class="col-md-8"> <div class="col-md-8">
<asp:TextBox CssClass="form-control" runat="server" MaxLength="200" <asp:TextBox CssClass="form-control" runat="server" MaxLength="200"
ID="TxtObservacion">Observacion</asp:TextBox> ID="TxtObservacion"></asp:TextBox>
</div> </div>
</div> </div>

16
Transportes/RepContratoDetalle.aspx.vb
View File

@@ -113,6 +113,7 @@ Partial Class RepContratoDetalle
CveViajePasajero = 0 CveViajePasajero = 0
Session("FileExtension") = "" Session("FileExtension") = ""
ArchivoUpdate = "" ArchivoUpdate = ""
CargaGvBitacora()
End If End If
End Sub End Sub
@@ -298,7 +299,7 @@ Partial Class RepContratoDetalle
Try Try
If ObjContratos.UpdateContratos(CveContrato, LbFolio.Text, TxtDescripcion.Text, "", UsuarioActual.CveProveedor, DdlClientes.SelectedValue.ToEntero, -1, TxtFechaSalida.Text.ToDate, TxtFechaRegreso.Text.ToDate, TxtUbicacion.Text, "", 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, 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") Alert("Contrato actualizado correctamente")
End If End If
ObjContratos.Commit() ObjContratos.Commit()
@@ -606,6 +607,19 @@ Partial Class RepContratoDetalle
End Sub End Sub
#End Region #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 End Class

31
Transportes/RepContratosCalendario.aspx
View File

@@ -441,11 +441,20 @@
<div class="col-md-8"> <div class="col-md-8">
<asp:DropDownList ID="DdlAF" DataValueField="CveActivoFijo" <asp:DropDownList ID="DdlAF" DataValueField="CveActivoFijo"
DataTextField="CodDesc" Class="form-control select2me" DataTextField="CodDesc" Class="form-control select2me"
Width="100%" runat="server"> Width="100%" runat="server" AutoPostBack="true" OnSelectedIndexChanged="DdlAF_SelectedIndexChanged" >
</asp:DropDownList> </asp:DropDownList>
</div> </div>
</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"> <div class="row my-1">
<label class="col-md-4">Chofer 1</label> <label class="col-md-4">Chofer 1</label>
<div class="col-md-8"> <div class="col-md-8">
@@ -533,6 +542,7 @@
<asp:HiddenField runat="server" ID="HidCveVentaRemision" Value="-1" ClientIDMode="Static" /> <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="HidRemisionSaldo" Value="-1" ClientIDMode="Static" />
<asp:HiddenField runat="server" ID="HidCveAF" 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> </asp:Content>
@@ -811,7 +821,13 @@
$('#HidRemisionSerieFolio').val(event.RemisionSerieFolio); $('#HidRemisionSerieFolio').val(event.RemisionSerieFolio);
$('#HidCveVentaRemision').val(event.CveVentaRemision); $('#HidCveVentaRemision').val(event.CveVentaRemision);
$('#HidRemisionSaldo').val(event.RemisionSaldo); $('#HidRemisionSaldo').val(event.RemisionSaldo);
$('#HidCveAF').val(event.CveActivoFijo);
if (event.CveActivoFijo > 0) {
$('#HidCveAF').val(event.CveActivoFijo);
} else {
$('#HidCveAF').val('-1');
}
<%-- $('#HidRemision').text(event.RemisionSerieFolio); <%-- $('#HidRemision').text(event.RemisionSerieFolio);
@@ -978,8 +994,15 @@
slotEventOverlap: false, // No permitir la superposición en vistas de agenda slotEventOverlap: false, // No permitir la superposición en vistas de agenda
eventRender: function (event, element) { eventRender: function (event, element) {
element.css({ element.css({
'margin-bottom': '1px', // Ajusta el valor según sea necesario 'margin-bottom': '1px',
'margin-left': '1px' // Ajusta el valor según sea necesario '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: { events: {

50
Transportes/RepContratosCalendario.aspx.vb
View File

@@ -221,7 +221,7 @@ Partial Class RepContratosCalendario
Protected Sub UpdateContrato(sender As Object, e As EventArgs) Protected Sub UpdateContrato(sender As Object, e As EventArgs)
Dim TieneError As Boolean = False
Dim NumChoferes As Integer = If(chkSegundoChofer.Checked, 2, 1) Dim NumChoferes As Integer = If(chkSegundoChofer.Checked, 2, 1)
If NumChoferes = 2 AndAlso DdlChofer2.SelectedValue.ToEntero <= 0 Then If NumChoferes = 2 AndAlso DdlChofer2.SelectedValue.ToEntero <= 0 Then
@@ -230,6 +230,7 @@ Partial Class RepContratosCalendario
End If End If
Dim ObjContratos As New ClsContratos Dim ObjContratos As New ClsContratos
ObjContratos.IniciaTransacSQL()
Dim DTAgendadados As New DataTable Dim DTAgendadados As New DataTable
If ObjContratos.GetContratosValUnidadesAgendadas(DdlAF.SelectedValue.ToEntero, TxtFechaSalida.Text.ToDate, TxtFechaRegreso.Text.ToDate, UsuarioActual.CveEmpresa, CveContrato) Then 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 CveAF:=DdlAF.SelectedValue.ToEntero, CantidadPasajeros:=TxtCantidadPasajeros.Text.ToEntero, Observaciones:=TxtObservaciones.Text.Trim, NumChoferes:=NumChoferes) Then
RegistraScript("$('#ModalActualizar').modal('hide');") RegistraScript("$('#ModalActualizar').modal('hide');")
Alert("Actualizado Correctamente.") Alert("Actualizado Correctamente.")
Else
TieneError = True
End If 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() ObjContratos.Dispose()
UpTitulos.Update() UpTitulos.Update()
CargaDatos() CargaDatos()
InicializaCalendar() InicializaCalendar()
@@ -299,6 +320,15 @@ Partial Class RepContratosCalendario
DdlAF.SelectedValueExist(GvRow.DataKey("CveAF")) 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") HypRemision.Text = GvRow.DataKey("RemisionSerieFolio")
@@ -326,6 +356,9 @@ Partial Class RepContratosCalendario
HidModClienteNombre.Value = GlobalDTCliente(UsuarioActual.CveEmpresa, -1, HidModCveCliente.Value.ToEntero).FiltroPrimeroValor("NombreComercial") HidModClienteNombre.Value = GlobalDTCliente(UsuarioActual.CveEmpresa, -1, HidModCveCliente.Value.ToEntero).FiltroPrimeroValor("NombreComercial")
End If End If
TxtMotivoCambioUnidad.Text = ""
DVMotivoCambioAF.Visible = False
DdlClientes.SelectedText = HidModClienteNombre.Value DdlClientes.SelectedText = HidModClienteNombre.Value
DdlClientes.SelectedValue = HidModCveCliente.Value DdlClientes.SelectedValue = HidModCveCliente.Value
@@ -347,9 +380,10 @@ Partial Class RepContratosCalendario
End If End If
CargaAFDdl(HidCveTipoAF.Value.ToEntero) CargaAFDdl(HidCveTipoAF.Value.ToEntero)
DdlAF.SelectedValueExist(HidCveAF.Value) DdlAF.SelectedValueExist(HidCveAF.Value)
HidCveAFDes.Value = DdlAF.SelectedItem.Text
UpModal.Update() UpModal.Update()
@@ -452,4 +486,16 @@ Partial Class RepContratosCalendario
CargaCronograma(DdlTipoVista.SelectedValue.ToEntero) CargaCronograma(DdlTipoVista.SelectedValue.ToEntero)
End Sub 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 End Class

38
Ventas/CatAutorizacionLimites.aspx
View File

@@ -108,41 +108,39 @@
EmptyDataText="No se encontraron autorizaciones" ToolTip="" EmptyDataText="No se encontraron autorizaciones" ToolTip=""
CssClass="table table-striped table-advance table-hover ScrollAD mysmallbtn" data-sort="true" Width="100%" GridLines="None"> CssClass="table table-striped table-advance table-hover ScrollAD mysmallbtn" data-sort="true" Width="100%" GridLines="None">
<Columns> <Columns>
<asp:TemplateField HeaderText="Tipo " ItemStyle-Width="5%"> <asp:TemplateField HeaderText="Tipo " ItemStyle-Width="3%">
<ItemTemplate> <ItemTemplate>
<asp:Label ID="LblTipo" Text='<%# Eval("TipoDocumento") %>' runat="server"></asp:Label> <asp:Label ID="LblTipo" Text='<%# Eval("TipoDocumento") %>' runat="server"></asp:Label>
</ItemTemplate> </ItemTemplate>
</asp:TemplateField> </asp:TemplateField>
<asp:TemplateField HeaderText="Tipo" ItemStyle-Width="5%"> <asp:TemplateField HeaderText="Tipo" ItemStyle-Width="3%">
<ItemTemplate> <ItemTemplate>
<asp:Label ID="LblTipoAuto" Text='<%# Eval("TipoAutorizacionTexto") %>' runat="server"></asp:Label> <asp:Label ID="LblTipoAuto" Text='<%# Eval("TipoAutorizacionTexto") %>' runat="server"></asp:Label>
</ItemTemplate> </ItemTemplate>
</asp:TemplateField> </asp:TemplateField>
<asp:HyperLinkField DataTextField="NombreComercial" Target="_blank" HeaderText="Cliente" DataNavigateUrlFields="CveCliente" DataNavigateUrlFormatString="/Ventas/Clientes.aspx?CveCliente={0}" ItemStyle-HorizontalAlign="Left" ItemStyle-Width="20%" /> <asp:HyperLinkField DataTextField="NombreComercial" Target="_blank" HeaderText="Cliente" DataNavigateUrlFields="CveCliente" DataNavigateUrlFormatString="/Ventas/Clientes.aspx?CveCliente={0}" ItemStyle-HorizontalAlign="Left" ItemStyle-Width="15%" />
<asp:BoundField DataField="Vendedor" HeaderText="Vendedor" ItemStyle-Width="15%" /> <asp:BoundField DataField="Vendedor" HeaderText="Vendedor" ItemStyle-Width="9%" />
<asp:BoundField DataField="Importe" ItemStyle-Width="15%" HeaderText="Importe" ItemStyle-HorizontalAlign="Right" DataFormatString="{0:N2}" /> <%-- 30--%>
<asp:BoundField DataField="PorcentajeDescuento" ItemStyle-Width="10%" HeaderText="% Desc" ItemStyle-HorizontalAlign="Right" DataFormatString="{0:N2}" /> <asp:BoundField DataField="Importe" ItemStyle-Width="7%" HeaderText="Importe" ItemStyle-HorizontalAlign="Right" DataFormatString="{0:N2}" />
<asp:BoundField DataField="LimiteCredito" ItemStyle-Width="10%" HeaderText="Limite Crédito" ItemStyle-HorizontalAlign="Right" DataFormatString="{0:N2}" /> <asp:BoundField DataField="PorcentajeDescuento" ItemStyle-Width="5%" HeaderText="% Desc" ItemStyle-HorizontalAlign="Right" DataFormatString="{0:N2}" />
<asp:BoundField DataField="Saldo" ItemStyle-Width="10%" HeaderText="Saldo" ItemStyle-HorizontalAlign="Right" DataFormatString="{0:N2}" /> <asp:BoundField DataField="LimiteCredito" ItemStyle-Width="7%" HeaderText="L.Créd" ItemStyle-HorizontalAlign="Right" DataFormatString="{0:N2}" />
<asp:BoundField DataField="FechaIng" ItemStyle-Width="10%" HeaderText="Fecha" ItemStyle-HorizontalAlign="Center" DataFormatString="{0:d}" /> <asp:BoundField DataField="Saldo" ItemStyle-Width="7%" HeaderText="Saldo" ItemStyle-HorizontalAlign="Right" DataFormatString="{0:N2}" />
<asp:BoundField DataField="DiasVencidos" ItemStyle-Width="5%" HeaderText="D.Venc" ItemStyle-HorizontalAlign="Center" DataFormatString="{0:N0}" /> <asp:BoundField DataField="FechaIng" ItemStyle-Width="7%" HeaderText="Fecha" ItemStyle-HorizontalAlign="Center" DataFormatString="{0:d}" />
<asp:HyperLinkField DataTextField="FacturaAplicada" Target="_blank" HeaderText="Factura" DataNavigateUrlFields="CveVentaAplicada" DataNavigateUrlFormatString="/Ventas/Ventas.aspx?CveVenta={0}" ItemStyle-HorizontalAlign="Left" /> <asp:BoundField DataField="DiasVencidos" ItemStyle-Width="3%" HeaderText="D.Ven" ItemStyle-HorizontalAlign="Center" DataFormatString="{0:N0}" />
<asp:BoundField DataField="Usuario" HeaderText="Solicitó" ItemStyle-Width="15%" ItemStyle-HorizontalAlign="Left" /> <asp:HyperLinkField DataTextField="FacturaAplicada" ItemStyle-Width="7%" Target="_blank" HeaderText="Factura" DataNavigateUrlFields="CveVentaAplicada" DataNavigateUrlFormatString="/Ventas/Ventas.aspx?CveVenta={0}" ItemStyle-HorizontalAlign="Left" />
<asp:BoundField DataField="Motivo" HeaderText="Motivo" ItemStyle-Width="15%" ItemStyle-HorizontalAlign="Left" /> <%-- 45--%>
<asp:TemplateField HeaderText="Estatus" ItemStyle-HorizontalAlign="Center" ItemStyle-Width="5%"> <asp:BoundField DataField="Usuario" HeaderText="Solicitó" ItemStyle-Width="5%" ItemStyle-HorizontalAlign="Left" />
<asp:BoundField DataField="Motivo" HeaderText="Motivo" ItemStyle-Width="5%" ItemStyle-HorizontalAlign="Left" />
<asp:TemplateField HeaderText="Estatus" ItemStyle-Width="5%" ItemStyle-HorizontalAlign="Center" >
<ItemTemplate> <ItemTemplate>
<asp:Label ID="LblEstatus" Text='<%# Eval("Estatus") %>' runat="server"></asp:Label> <asp:Label ID="LblEstatus" Text='<%# Eval("Estatus") %>' runat="server"></asp:Label>
</ItemTemplate> </ItemTemplate>
</asp:TemplateField> </asp:TemplateField>
<asp:BoundField DataField="UsuarioAutorizo" HeaderText="Autorizó" ItemStyle-Width="15%" ItemStyle-HorizontalAlign="Left" /> <asp:BoundField DataField="UsuarioAutorizo" HeaderText="Autorizó" ItemStyle-Width="5%" ItemStyle-HorizontalAlign="Left" />
<asp:TemplateField ItemStyle-HorizontalAlign="Center" ItemStyle-Width="5%" HeaderText="Autorizar/Rechazar"> <asp:TemplateField ItemStyle-HorizontalAlign="Center" ItemStyle-Width="7%" HeaderText="Acciones">
<ItemTemplate> <ItemTemplate>
<asp:LinkButton data-toggle="confirmation" data-popout="true" data-original-title="¿Está seguro que desea autorizar el limite?" data-btn-ok-label="si" ID="LnkAutorizar" OnClick="LnkAutorizar_Click" CssClass="btn btn-circle btn-sm green" runat="server" Text="<i class='fa fa-check'></i>"></asp:LinkButton> <asp:LinkButton data-toggle="confirmation" data-popout="true" data-original-title="¿Está seguro que desea autorizar el limite?" data-btn-ok-label="si" ID="LnkAutorizar" OnClick="LnkAutorizar_Click" CssClass="btn btn-circle btn-sm green" runat="server" Text="<i class='fa fa-check'></i>"></asp:LinkButton>
<asp:LinkButton data-toggle="confirmation" data-popout="true" data-original-title="¿Está seguro que desea rechazar el limite?" data-btn-ok-label="si" ID="LnkRechazar" OnClick="LnkRechazar_Click" CssClass="btn btn-circle btn-sm red" runat="server" Text="<i class='fa fa-times'></i>"></asp:LinkButton> <asp:LinkButton data-toggle="confirmation" data-popout="true" data-original-title="¿Está seguro que desea rechazar el limite?" data-btn-ok-label="si" ID="LnkRechazar" OnClick="LnkRechazar_Click" CssClass="btn btn-circle btn-sm red" runat="server" Text="<i class='fa fa-times'></i>"></asp:LinkButton>
</ItemTemplate>
</asp:TemplateField>
<asp:TemplateField ItemStyle-HorizontalAlign="Center" ItemStyle-Width="5%" HeaderText="Eliminar">
<ItemTemplate>
<asp:LinkButton ID="LnkEliminar" OnClick="LnkEliminar_Click" Visible='<%# Eval("CveEstatus").ToString = "0" OrElse Eval("CveEstatus").ToString = "1" %>' runat="server" CssClass="btn btn-circle btn-sm red" Text="<i class='icon-trash'></i>" data-toggle="confirmation" data-popout="true" data-original-title="¿Está seguro que desea eliminar el limite?" data-btn-ok-label="si" /> <asp:LinkButton ID="LnkEliminar" OnClick="LnkEliminar_Click" Visible='<%# Eval("CveEstatus").ToString = "0" OrElse Eval("CveEstatus").ToString = "1" %>' runat="server" CssClass="btn btn-circle btn-sm red" Text="<i class='icon-trash'></i>" data-toggle="confirmation" data-popout="true" data-original-title="¿Está seguro que desea eliminar el limite?" data-btn-ok-label="si" />
</ItemTemplate> </ItemTemplate>
</asp:TemplateField> </asp:TemplateField>

2
Ventas/CatAutorizacionLimites.aspx.vb
View File

@@ -356,7 +356,7 @@ Partial Class Ventas_CatAutorizacionLimites
'Oculta columnas en export sin afectar GridView en página 'Oculta columnas en export sin afectar GridView en página
Dim tcols As Integer = GvDatos.Columns.Count Dim tcols As Integer = GvDatos.Columns.Count
GvDatos.HeaderRow.Cells(tcols - 2).Visible = False 'Autorizar/Rechazar 'GvDatos.HeaderRow.Cells(tcols - 2).Visible = False 'Autorizar/Rechazar
GvDatos.HeaderRow.Cells(tcols - 1).Visible = False 'Eliminar GvDatos.HeaderRow.Cells(tcols - 1).Visible = False 'Eliminar
GvDatos.ExportToExcelGembox("CatAutorizacionLimites " & txtFechaI.Text.ToDate.ToString("dd-MM-yyyy") + " a " & fechaFin.ToDate.ToString("dd-MM-yyyy"), UsuarioActual, "Catálogo de autorizaciones de límite de crédito", DatosFiltros:=StrFiltro.ToString()) GvDatos.ExportToExcelGembox("CatAutorizacionLimites " & txtFechaI.Text.ToDate.ToString("dd-MM-yyyy") + " a " & fechaFin.ToDate.ToString("dd-MM-yyyy"), UsuarioActual, "Catálogo de autorizaciones de límite de crédito", DatosFiltros:=StrFiltro.ToString())

3
Ventas/RepVentasDetalle.aspx
View File

@@ -346,7 +346,8 @@
</asp:UpdatePanel> </asp:UpdatePanel>
<asp:UpdatePanel ID="UPDatos" runat="server" UpdateMode="Conditional"> <asp:UpdatePanel ID="UPDatos" runat="server" UpdateMode="Conditional">
<ContentTemplate> <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> <Columns>
<%-- 0--%> <%-- 0--%>
<asp:TemplateField HeaderText="Tipo Docto"> <asp:TemplateField HeaderText="Tipo Docto">

23
Ventas/Ventas.aspx.vb
View File

@@ -10289,6 +10289,21 @@ Partial Class Ventas
End If End If
End If End If
'REASIGNAR LAS VARIABLES CUANDO HUBO EDICION POR JS O EN LA INTERFAZ
If GvImpuestosLocales2.Rows.Count > 0 Then
Dim ImpuestosLocales As Decimal = 0
For Each gvr As GridViewRow In GvImpuestosLocales2.Rows
If gvr.RowType = DataControlRowType.DataRow Then
ImpuestosLocales += gvr.FCTextBox("TxtImpuestoLocalPS").Text.ToDecimal
End If
Next
If ImpuestosLocales > 0 Then
CalculaTotalesVenta(RecalculaImpuestosLocales:=False, RecalcularTotalOriginal:=False)
End If
End If
CreaObjetosVenta(TipoDoctoViejo:=TipoDoctoViejo) CreaObjetosVenta(TipoDoctoViejo:=TipoDoctoViejo)
If ObjFactura Is Nothing OrElse (ObjFactura.Cliente Is Nothing And Not CveEmpresaCRM > 0) Then If ObjFactura Is Nothing OrElse (ObjFactura.Cliente Is Nothing And Not CveEmpresaCRM > 0) Then
@@ -16603,19 +16618,19 @@ Partial Class Ventas
Select Case RowIL("TipoImpuesto").ToString() Select Case RowIL("TipoImpuesto").ToString()
Case "1" Case "1"
If Not ObjConta.AddPrePolizasDetalle(Factura.CvePrePoliza, False, Importe, Importe * tipoCambio, 27, Concepto, Concepto, CveVenta:=Factura.CveVenta, CveCliente:=Factura.CveCliente, CveSubProyecto:=CveSubProyectoContabilizar) Then If Not ObjConta.AddPrePolizasDetalle(Factura.CvePrePoliza, If(Factura.TipoDocto.Contiene("Egs"), True, False), Importe, Importe * tipoCambio, 27, Concepto, Concepto, CveVenta:=Factura.CveVenta, CveCliente:=Factura.CveCliente, CveSubProyecto:=CveSubProyectoContabilizar) Then
ErrorPrepoliza = True ErrorPrepoliza = True
End If End If
Case "3" Case "3"
If Not ObjConta.AddPrePolizasDetalle(Factura.CvePrePoliza, False, Importe, Importe * tipoCambio, 116, Concepto, Concepto, CveVenta:=Factura.CveVenta, CveCliente:=Factura.CveCliente, CveSubProyecto:=CveSubProyectoContabilizar) Then If Not ObjConta.AddPrePolizasDetalle(Factura.CvePrePoliza, If(Factura.TipoDocto.Contiene("Egs"), True, False), Importe, Importe * tipoCambio, 116, Concepto, Concepto, CveVenta:=Factura.CveVenta, CveCliente:=Factura.CveCliente, CveSubProyecto:=CveSubProyectoContabilizar) Then
ErrorPrepoliza = True ErrorPrepoliza = True
End If End If
Case "4" Case "4"
If Not ObjConta.AddPrePolizasDetalle(Factura.CvePrePoliza, False, Importe, Importe * tipoCambio, 58, Concepto, Concepto, CveVenta:=Factura.CveVenta, CveCliente:=Factura.CveCliente, CveSubProyecto:=CveSubProyectoContabilizar) Then If Not ObjConta.AddPrePolizasDetalle(Factura.CvePrePoliza, If(Factura.TipoDocto.Contiene("Egs"), True, False), Importe, Importe * tipoCambio, 58, Concepto, Concepto, CveVenta:=Factura.CveVenta, CveCliente:=Factura.CveCliente, CveSubProyecto:=CveSubProyectoContabilizar) Then
ErrorPrepoliza = True ErrorPrepoliza = True
End If End If
Case "5" Case "5"
If Not ObjConta.AddPrePolizasDetalle(Factura.CvePrePoliza, True, Importe, Importe * tipoCambio, 27, Concepto, Concepto, CveVenta:=Factura.CveVenta, CveCliente:=Factura.CveCliente, CveSubProyecto:=CveSubProyectoContabilizar) Then If Not ObjConta.AddPrePolizasDetalle(Factura.CvePrePoliza, If(Factura.TipoDocto.Contiene("Egs"), False, True), Importe, Importe * tipoCambio, 27, Concepto, Concepto, CveVenta:=Factura.CveVenta, CveCliente:=Factura.CveCliente, CveSubProyecto:=CveSubProyectoContabilizar) Then
ErrorPrepoliza = True ErrorPrepoliza = True
End If End If
End Select End Select