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

Merge branch 'master' of http://jperez@192.168.10.111:8383/SIG.git

Browse Source
This commit is contained in:
Jonathan Alexis Perez Morales
2024-05-18 09:20:23 -07:00
parent 7979b43715 d8854d7956
commit b7e7060a30
21 changed files with 655 additions and 443 deletions
Download Patch File Download Diff File Expand all files Collapse all files

2
Acumuladores/CatFoliosGarantia.aspx
View File

@@ -121,7 +121,7 @@
<ContentTemplate> <ContentTemplate>
<asp:GridView ID="GvFolioGarantia" runat="server" AutoGenerateColumns="False" <asp:GridView ID="GvFolioGarantia" runat="server" AutoGenerateColumns="False"
DataKeyNames="CveFolioGarantia,FolioGarantia,CveEstatus,Estatus,CveUsuario,Usuario,FechaIng,SubProyecto,CveSubProyecto,tipoFolio,Limite,CveMovimiento" DataKeyNames="CveFolioGarantia,FolioGarantia,CveEstatus,Estatus,CveUsuario,Usuario,FechaIng,SubProyecto,CveSubProyecto,tipoFolio,Limite,CveMovimiento,Area"
EmptyDataText="No se encontraron registros" EmptyDataText="No se encontraron registros"
CssClass="table table-striped table-advance table-hover Widthall ScrollAD mysmallbtn" CssClass="table table-striped table-advance table-hover Widthall ScrollAD mysmallbtn"
data-sort="true" data-sort="true"

1
Acumuladores/CatFoliosGarantia.aspx.vb
View File

@@ -187,6 +187,7 @@ Partial Class Acumuladores_CatFoliosGarantia
DdlEstatusEditar.SelectedValueExist(GvRow.DataKey("CveEstatus")) DdlEstatusEditar.SelectedValueExist(GvRow.DataKey("CveEstatus"))
TxtLimite.Text = GvRow.DataKey("Limite") TxtLimite.Text = GvRow.DataKey("Limite")
DdlTipoFolioModal.SelectedValue = GvRow.DataKey("tipoFolio") DdlTipoFolioModal.SelectedValue = GvRow.DataKey("tipoFolio")
DdlArea.SelectedValue = GvRow.DataKey("Area")
'TxtCargo.Text = GvRow.DataKey("Cargo").ToDecimal.ToString("###,###,###.00") 'TxtCargo.Text = GvRow.DataKey("Cargo").ToDecimal.ToString("###,###,###.00")
'TxtBonificacion.Text = GvRow.DataKey("Bonificacion").ToDecimal.ToString("###,###,###.00") 'TxtBonificacion.Text = GvRow.DataKey("Bonificacion").ToDecimal.ToString("###,###,###.00")
'TxtCompra.Text = GvRow.DataKey("Compra").ToDecimal.ToString("###,###,###.00") 'TxtCompra.Text = GvRow.DataKey("Compra").ToDecimal.ToString("###,###,###.00")

24
App_Code/ClsNominas.vb
View File

@@ -674,6 +674,30 @@ Public Class ClsNominas
End Try End Try
Return retorno Return retorno
End Function End Function
Public Function UtilidadesRegistrosGet(cveEmpresa As Int32, ejercicio As Int32, cvePersonal As Int32) As Boolean
Dim retorno As Boolean = False
DataAdapter("PA_NomUtilidadesRegistrosGet", CommandType.StoredProcedure)
addParameters("@CveEmpresa", SqlDbType.Int, cveEmpresa)
addParameters("@Ejercicio", SqlDbType.Int, ejercicio)
addParameters("@CvePersonal", SqlDbType.Int, cvePersonal)
retorno = RunQuery("Ocurrió un error al obtener el UtilidadesRegistros.")
Return retorno
End Function
Public Function UtilidadesRegistrosAddUp(cveEmpresa As Int32, ejercicio As Int32, cvePersonal As Int32, cveMetodoPago As Int32, cveTipoPeriodo As Int32, diasLaborados As Int32, sueldoTotal As Decimal, importe As Decimal) As Boolean
Dim retorno As Boolean = False
DataAdapter("PA_NomUtilidadesRegistrosAddUP", CommandType.StoredProcedure)
addParameters("@CveEmpresa", SqlDbType.Int, cveEmpresa)
addParameters("@Ejercicio", SqlDbType.Int, ejercicio)
addParameters("@CvePersonal", SqlDbType.Int, cvePersonal)
addParameters("@CveMetodoPago", SqlDbType.Int, cveMetodoPago)
addParameters("@CveTipoPeriodo", SqlDbType.Int, cveTipoPeriodo)
addParameters("@DiasLaborados", SqlDbType.Int, diasLaborados)
addParameters("@SueldoTotal", SqlDbType.Money, sueldoTotal)
addParameters("@Importe", SqlDbType.Money, importe)
retorno = RunQuery("Ocurrió un error al agregar el UtilidadesRegistros.")
Return retorno
End Function
Public Function GetEjercicios(CveEmpresa As Integer) As Boolean Public Function GetEjercicios(CveEmpresa As Integer) As Boolean
Dim Retorno As Boolean = False Dim Retorno As Boolean = False
DataAdapter("PA_NOM_GetEjercicios") DataAdapter("PA_NOM_GetEjercicios")

3
App_Code/ClsOC.vb
View File

@@ -1655,7 +1655,7 @@ Public Class ClsOC
FechaFin As Date, CveOrdenCompra As Integer, CveProveedor As Integer, Folio As Integer, CveUsuarioRegistro As Integer, CveUsuario As Integer, FechaFin As Date, CveOrdenCompra As Integer, CveProveedor As Integer, Folio As Integer, CveUsuarioRegistro As Integer, CveUsuario As Integer,
CveEmpresa As Integer, CvePS As Integer, Optional PendientePorSurtir As Boolean = False, Optional CveCliente As Integer = -1, Optional Guia As String = "-1", CveEmpresa As Integer, CvePS As Integer, Optional PendientePorSurtir As Boolean = False, Optional CveCliente As Integer = -1, Optional Guia As String = "-1",
Optional CveActivoFijo As Integer = -1, Optional SoloSubProyectosConPermiso As Boolean = False, Optional CveUsuarioAutorizo As Integer = -1, Optional CveActivoFijo As Integer = -1, Optional SoloSubProyectosConPermiso As Boolean = False, Optional CveUsuarioAutorizo As Integer = -1,
Optional CveUsuarioAsignado As Integer = -1, Optional EntregaDirecta As Integer = -1, Optional TopSelect As Integer = 10000, Optional CveMoneda As Integer = -1) As Boolean Optional CveUsuarioAsignado As Integer = -1, Optional EntregaDirecta As Integer = -1, Optional TopSelect As Integer = 10000, Optional CveMoneda As Integer = -1, Optional MetodoPago As Integer = -1) As Boolean
Dim Retorno As Boolean = False Dim Retorno As Boolean = False
DataAdapter("PA_OC_OrdenesCompraRep") DataAdapter("PA_OC_OrdenesCompraRep")
@@ -1685,6 +1685,7 @@ Public Class ClsOC
.Add("@EntregaDirecta", SqlDbType.Int).Value = EntregaDirecta .Add("@EntregaDirecta", SqlDbType.Int).Value = EntregaDirecta
.Add("@TopSelect", SqlDbType.Int).Value = TopSelect .Add("@TopSelect", SqlDbType.Int).Value = TopSelect
.Add("@CveMoneda", SqlDbType.Int).Value = CveMoneda .Add("@CveMoneda", SqlDbType.Int).Value = CveMoneda
.Add("@MetodoPago", SqlDbType.Int).Value = MetodoPago
End With End With

4
Bancos/IE.aspx.vb
View File

@@ -5549,8 +5549,8 @@ Partial Class Bancos_IE
UpEliminarCotizacion.Update() UpEliminarCotizacion.Update()
End Sub End Sub
Private Sub RVTxtFechaDocumento_Init(sender As Object, e As EventArgs) Handles RVTxtFechaDocumento.Init Private Sub RVTxtFechaDocumento_Init(sender As Object, e As EventArgs) Handles RVTxtFechaDocumento.Init
RVTxtFechaDocumento.MaximumValue = NowADS().ToShortDateString RVTxtFechaDocumento.MaximumValue = NowADS.AddDays(3).ToShortDateString
Calendario.EndDate = NowADS() Calendario.EndDate = NowADS.AddDays(3)
End Sub End Sub
Private Sub CargaOCRelacionadas() Private Sub CargaOCRelacionadas()

14
Bancos/PagoElectronicoGrupos.aspx.vb
View File

@@ -654,21 +654,18 @@ Partial Class Bancos_PagoElectronicoGrupos
Dim Cvecuenta As Integer = GvRow.DataKey("CveCuenta").ToEntero Dim Cvecuenta As Integer = GvRow.DataKey("CveCuenta").ToEntero
Dim CveLayoutEnvio As Integer = GvRow.DataKey("CveLayoutEnvio").ToEntero Dim CveLayoutEnvio As Integer = GvRow.DataKey("CveLayoutEnvio").ToEntero
Dim TipoRegenrar As String = "" Dim TipoRegenerar As String = ""
If DTEnviadas IsNot Nothing Then If DTEnviadas IsNot Nothing Then
TipoRegenrar = DTEnviadas.FiltroPrimeroValor("Tipo", "LEN(Tipo) > 0") TipoRegenerar = DTEnviadas.FiltroPrimeroValor("Tipo", $"LEN(Tipo) > 0 and CveLayoutEnvio = {CveLayoutEnvio}")
TipoRegenrar = If(TipoRegenrar.Contains("ANT"), "ANT", TipoRegenrar) TipoRegenerar = If(TipoRegenerar.Contains("ANT"), "ANT", TipoRegenerar)
End If End If
Dim DtRegenerar As New DataTable Dim DtRegenerar As New DataTable
Dim NombreDelArchivo As String = GvRow.DataKey("Archivo") Dim NombreDelArchivo As String = GvRow.DataKey("Archivo")
Dim ObjBancos As New ClsBancos Dim ObjBancos As New ClsBancos
If ObjBancos.GetLayoutPagos(Cvecuenta, CveBLE, TipoRegenrar, PorGrupos:=True) Then If ObjBancos.GetLayoutPagos(Cvecuenta, CveBLE, TipoRegenerar, PorGrupos:=True) Then
DtRegenerar = ObjBancos.DtResultados DtRegenerar = ObjBancos.DtResultados
Else Else
DtRegenerar = Nothing DtRegenerar = Nothing
@@ -681,13 +678,10 @@ Partial Class Bancos_PagoElectronicoGrupos
Alert("Ocurrió un error al obtener los datos para generar el archivo. Por favor vuelva a intentar.", TipoMensaje.MsgError) Alert("Ocurrió un error al obtener los datos para generar el archivo. Por favor vuelva a intentar.", TipoMensaje.MsgError)
End If End If
End Sub End Sub
#End Region #End Region
'RECARGA DATOS 'RECARGA DATOS
#Region " RECARGA DATOS " #Region " RECARGA DATOS "

2
Compras/PopUpVerFactura.aspx.vb
View File

@@ -6394,7 +6394,7 @@ Partial Class PopUpVerFactura
Else Else
params.Add(New ReportParameter("Fecha", Fecha.ToShortDateString)) params.Add(New ReportParameter("Fecha", Fecha.ToShortDateString))
End If End If
If UsuarioActual.CveEmpresa.Contiene(119, 141) Then If UsuarioActual.CveEmpresa.Contiene(119, 141, 193, 195, 197, 189) Then
params.Add(New ReportParameter("UsuarioRegistro", GlobalDTUsuarios(drp("CveUsuario").ToString.ToEntero).FiltroPrimeroValor("Nombre"))) params.Add(New ReportParameter("UsuarioRegistro", GlobalDTUsuarios(drp("CveUsuario").ToString.ToEntero).FiltroPrimeroValor("Nombre")))
End If End If
If UsuarioActual.CveEmpresa.Contiene(140, 141) Then If UsuarioActual.CveEmpresa.Contiene(140, 141) Then

150
Contabilidad2/RepBalanzaComprobacion.aspx
View File

@@ -116,75 +116,89 @@
<br /> <br />
<asp:UpdatePanel ID="UpDatos" UpdateMode="Conditional" runat="server">
<ContentTemplate>
<asp:GridView ID="GvDatos" CssClass="table table-advance table-striped table-hover Widthall" runat="server" GridLines="None" EmptyDataText="No se encontraron cuentas con los parametros establecidos." AutoGenerateColumns="False" OnRowDataBound="GvIngresos_RowDataBound"> <div class="row" style="margin-left: 0px; margin-top: 5px; margin-bottom: 5px; text-align: right; margin-right: 5px" align="left;">
<Columns>
<asp:TemplateField HeaderText="Cuenta" HeaderStyle-HorizontalAlign="Left"> <input type="text" id="TxtBusquedaIndicadores" class="form-control input-sm" onkeyup="<%= String.Format("FiltrarTabla('TxtBusquedaIndicadores','{0}')", GvDatos.ClientID) %>" style="display: inline-block; margin-right: -20px; width: 150px;" />
<ItemTemplate> <a href="javascript:;" onclick="<%= String.Format("FiltrarTabla('TxtBusquedaIndicadores','{0}')", GvDatos.ClientID) %>" style="margin-top: -3px;" class="btn btn-circle btn-sm label-info"><i class="icon-magnifier"></i></a>
<asp:Label ID="LbCodigo" runat="server" Text='<%# Eval("Codigo")%>'></asp:Label>
</ItemTemplate> </div>
<ItemStyle HorizontalAlign="Left" Width="180" />
</asp:TemplateField> <div class="row">
<asp:TemplateField HeaderText="Nombre" HeaderStyle-HorizontalAlign="Left"> <div class="col-md-12">
<ItemTemplate> <asp:UpdatePanel ID="UpDatos" UpdateMode="Conditional" runat="server">
<asp:Label ID="LbNombre" runat="server" Text='<%# Eval("Nombre")%>'></asp:Label> <ContentTemplate>
</ItemTemplate>
<ItemStyle HorizontalAlign="Left" Width="320" /> <asp:GridView ID="GvDatos" CssClass="table table-striped table-advance table-hover Widthall ScrollAD mysmallbtn"
</asp:TemplateField> runat="server" GridLines="None" EmptyDataText="No se encontraron cuentas con los parametros establecidos." AutoGenerateColumns="False" OnRowDataBound="GvIngresos_RowDataBound">
<asp:TemplateField> <Columns>
<HeaderTemplate> <asp:TemplateField HeaderText="Cuenta" HeaderStyle-HorizontalAlign="Left">
<table width="100%"> <ItemTemplate>
<tr> <asp:Label ID="LbCodigo" runat="server" Text='<%# Eval("Codigo")%>'></asp:Label>
<td colspan="2">Saldos Iniciales</td> </ItemTemplate>
</tr> <ItemStyle HorizontalAlign="Left" Width="180" />
<tr> </asp:TemplateField>
<td>Deudor</td> <asp:TemplateField HeaderText="Nombre" HeaderStyle-HorizontalAlign="Left">
<td>Acreedor</td> <ItemTemplate>
</tr> <asp:Label ID="LbNombre" runat="server" Text='<%# Eval("Nombre")%>'></asp:Label>
</table> </ItemTemplate>
</HeaderTemplate> <ItemStyle HorizontalAlign="Left" Width="320" />
<ItemTemplate> </asp:TemplateField>
<asp:Label ID="LbSaldoInicial" Style="white-space: pre;" runat="server" Text='<%# Eval("SaldoInicial", "{0:N2}")%>'></asp:Label> <asp:TemplateField>
</ItemTemplate> <HeaderTemplate>
<ItemStyle Width="120" HorizontalAlign="Right" /> <table width="100%">
</asp:TemplateField> <tr>
<asp:TemplateField HeaderText="Cargos"> <td colspan="2">Saldos Iniciales</td>
<ItemTemplate> </tr>
<asp:Label ID="LbCargos" runat="server" Text='<%# Eval("Cargos", "{0:N2}")%>'></asp:Label> <tr>
</ItemTemplate> <td>Deudor</td>
<ItemStyle Width="120" HorizontalAlign="Right" /> <td>Acreedor</td>
</asp:TemplateField> </tr>
<asp:TemplateField HeaderText="Abonos"> </table>
<ItemTemplate> </HeaderTemplate>
<asp:Label ID="LbAbonos" runat="server" Text='<%# Eval("Abonos", "{0:N2}")%>'></asp:Label> <ItemTemplate>
</ItemTemplate> <asp:Label ID="LbSaldoInicial" Style="white-space: pre;" runat="server" Text='<%# Eval("SaldoInicial", "{0:N2}")%>'></asp:Label>
<ItemStyle Width="120" HorizontalAlign="Right" /> </ItemTemplate>
</asp:TemplateField> <ItemStyle Width="120" HorizontalAlign="Right" />
<asp:TemplateField> </asp:TemplateField>
<HeaderTemplate> <asp:TemplateField HeaderText="Cargos">
<table width="100%"> <ItemTemplate>
<tr> <asp:Label ID="LbCargos" runat="server" Text='<%# Eval("Cargos", "{0:N2}")%>'></asp:Label>
<td colspan="2">Saldos Actuales</td> </ItemTemplate>
</tr> <ItemStyle Width="120" HorizontalAlign="Right" />
<tr> </asp:TemplateField>
<td>Deudor</td> <asp:TemplateField HeaderText="Abonos">
<td>Acreedor</td> <ItemTemplate>
</tr> <asp:Label ID="LbAbonos" runat="server" Text='<%# Eval("Abonos", "{0:N2}")%>'></asp:Label>
</table> </ItemTemplate>
</HeaderTemplate> <ItemStyle Width="120" HorizontalAlign="Right" />
<ItemTemplate> </asp:TemplateField>
<asp:HyperLink ID="HLSaldoActual" Style="white-space: pre;" runat="server" Text='<%# Eval("SaldoActual", "{0:N2}")%>' CssClass="Texto" Target="_blank"></asp:HyperLink> <asp:TemplateField>
<asp:Label ID="LbSaldoActual" Style="white-space: pre;" runat="server"></asp:Label> <HeaderTemplate>
</ItemTemplate> <table width="100%">
<ItemStyle Width="120" HorizontalAlign="Right" /> <tr>
</asp:TemplateField> <td colspan="2">Saldos Actuales</td>
</Columns> </tr>
<HeaderStyle Font-Bold="true" HorizontalAlign="Center" /> <tr>
</asp:GridView> <td>Deudor</td>
</ContentTemplate> <td>Acreedor</td>
</asp:UpdatePanel> </tr>
</table>
</HeaderTemplate>
<ItemTemplate>
<asp:HyperLink ID="HLSaldoActual" Style="white-space: pre;" runat="server" Text='<%# Eval("SaldoActual", "{0:N2}")%>' CssClass="Texto" Target="_blank"></asp:HyperLink>
<asp:Label ID="LbSaldoActual" Style="white-space: pre;" runat="server"></asp:Label>
</ItemTemplate>
<ItemStyle Width="120" HorizontalAlign="Right" />
</asp:TemplateField>
</Columns>
<HeaderStyle Font-Bold="true" HorizontalAlign="Center" />
</asp:GridView>
</ContentTemplate>
</asp:UpdatePanel>
</div>
</div>
</asp:Content> </asp:Content>

12
Contratos/RepPresupuestos.aspx
View File

@@ -330,9 +330,9 @@
<tr> <tr>
<td class="dataTables_scrollHead text-center bold" style="font-size: 14px; width: 20%; border-right: 3px solid white;">Agrupador</td> <td class="dataTables_scrollHead text-center bold" style="font-size: 14px; width: 20%; border-right: 3px solid white;">Agrupador</td>
<td class="dataTables_scrollHead text-center bold" style="font-size: 14px; width: 10%; border-right: 3px solid white;">Autorizado</td> <td class="dataTables_scrollHead text-center bold" style="font-size: 14px; width: 10%; border-right: 3px solid white;">Autorizado</td>
<td class="dataTables_scrollHead text-center bold" style="font-size: 14px; width: 10%; border-right: 3px solid white;">Comprometido</td> <td class="dataTables_scrollHead text-center bold" style="font-size: 14px; width: 20%; border-right: 3px solid white;" runat="server" id="thComprometido" visible="false">En proceso de compra</td>
<td class="dataTables_scrollHead text-center bold" style="font-size: 14px; width: 25%; border-right: 3px solid white;">Ejercido</td> <td class="dataTables_scrollHead text-center bold" style="font-size: 14px; width: 20%; border-right: 3px solid white;"><asp:Literal ID="LtlthEjercido" runat="server" Text="Ejercido"></asp:Literal></td>
<td class="dataTables_scrollHead text-center bold" style="font-size: 14px; width: 25%; border-right: 3px solid white;">Por Ejercer</td> <td class="dataTables_scrollHead text-center bold" style="font-size: 14px; width: 20%; border-right: 3px solid white;">Por Ejercer</td>
<td class="dataTables_scrollHead text-center bold" style="font-size: 14px; width: 15%; border-right: 3px solid white;">Pagado</td> <td class="dataTables_scrollHead text-center bold" style="font-size: 14px; width: 15%; border-right: 3px solid white;">Pagado</td>
</tr> </tr>
</table> </table>
@@ -343,11 +343,11 @@
<%--<asp:HyperLinkField HeaderText="Descripcion" DataTextField="Agrupador" ItemStyle-Width="20%"--%> <%--<asp:HyperLinkField HeaderText="Descripcion" DataTextField="Agrupador" ItemStyle-Width="20%"--%>
<asp:BoundField HeaderText="Descripción" DataField="Agrupador" ItemStyle-Width="20%" /> <asp:BoundField HeaderText="Descripción" DataField="Agrupador" ItemStyle-Width="20%" />
<asp:BoundField HeaderText="Importe" DataField="Autorizado" DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" ItemStyle-Width="10%" /> <asp:BoundField HeaderText="Importe" DataField="Autorizado" DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" ItemStyle-Width="10%" />
<asp:BoundField HeaderText="Importe" DataField="Comprometido" DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" ItemStyle-Width="10%" /> <asp:BoundField HeaderText="Importe" DataField="Comprometido" DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" ItemStyle-Width="20%" Visible="false" />
<asp:BoundField HeaderText="Importe" DataField="Ejercido" DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" ItemStyle-Width="15%" /> <asp:BoundField HeaderText="Importe" DataField="Ejercido" DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" ItemStyle-Width="15%" />
<asp:BoundField HeaderText="%" DataField="EjercidoPorcentaje" DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Center" ItemStyle-Width="10%" /> <asp:BoundField HeaderText="%" DataField="EjercidoPorcentaje" DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" ItemStyle-Width="5%" ItemStyle-Font-Size="7pt" ItemStyle-Font-Italic="true" />
<asp:BoundField HeaderText="Importe" DataField="PorEjercer" DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" ItemStyle-Width="15%" /> <asp:BoundField HeaderText="Importe" DataField="PorEjercer" DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" ItemStyle-Width="15%" />
<asp:BoundField HeaderText="%" DataField="PorEjercerPorcentaje" DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Center" ItemStyle-Width="10%" /> <asp:BoundField HeaderText="%" DataField="PorEjercerPorcentaje" DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" ItemStyle-Width="5%" ItemStyle-Font-Size="7pt" ItemStyle-Font-Italic="true" />
<asp:BoundField HeaderText="Importe" DataField="Pagado" DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" ItemStyle-Width="15%" /> <asp:BoundField HeaderText="Importe" DataField="Pagado" DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" ItemStyle-Width="15%" />
</Columns> </Columns>
</asp:GridView> </asp:GridView>

70
Contratos/RepPresupuestos.aspx.vb
View File

@@ -2,7 +2,6 @@
Option Strict On Option Strict On
Imports System.Data Imports System.Data
Imports Newtonsoft.Json
Imports Newtonsoft.Json.Linq Imports Newtonsoft.Json.Linq
Imports Extensiones Imports Extensiones
Imports Microsoft.Reporting.WebForms Imports Microsoft.Reporting.WebForms
@@ -20,6 +19,15 @@ Partial Class Contratos_RepPresupuestos
End Set End Set
End Property End Property
Public Property UsaComprometido() As Boolean
Get
Return DirectCast(ViewState("UsaComprometido"), Boolean)
End Get
Set(ByVal value As Boolean)
ViewState("UsaComprometido") = 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
If Not IsPostBack Then If Not IsPostBack Then
@@ -29,7 +37,7 @@ Partial Class Contratos_RepPresupuestos
#Region " INICIALIZA VALORES " #Region " INICIALIZA VALORES "
Private Sub InicializaValores() Private Sub InicializaValores()
UsaComprometido = False
If UsuarioActual.Empresa.Funcionalidad(267) = "1" Then 'emp citrícola If UsuarioActual.Empresa.Funcionalidad(267) = "1" Then 'emp citrícola
TxtFiltrosFechaInicio.Text = $"01/08/{NowADS().Year - 1}" TxtFiltrosFechaInicio.Text = $"01/08/{NowADS().Year - 1}"
TxtFiltrosFechaFin.Text = $"31/07/{NowADS().Year}" TxtFiltrosFechaFin.Text = $"31/07/{NowADS().Year}"
@@ -54,6 +62,8 @@ Partial Class Contratos_RepPresupuestos
DdlProyecto.Items.Insert(0, New ListItem("Todos", "-1")) DdlProyecto.Items.Insert(0, New ListItem("Todos", "-1"))
DdlProyecto.DataBind() DdlProyecto.DataBind()
If UsuarioActual.CveEmpresa.Contiene(13, 83) Then UsaComprometido = True
CargaSubProyecto() CargaSubProyecto()
UpFiltros.Update() UpFiltros.Update()
End Sub End Sub
@@ -80,6 +90,12 @@ Partial Class Contratos_RepPresupuestos
Dim FechaFin = If(IsDate(TxtFiltrosFechaFin.Text), TxtFiltrosFechaFin.Text.ToDate, MaxFecha) Dim FechaFin = If(IsDate(TxtFiltrosFechaFin.Text), TxtFiltrosFechaFin.Text.ToDate, MaxFecha)
Dim EsMensual = ChkMensual.Checked Dim EsMensual = ChkMensual.Checked
If UsaComprometido Then
thComprometido.Visible = True
GvDatos.Columns(2).Visible = True
LtlthEjercido.Text = "Facturado"
End If
If Not EsMensual Then If Not EsMensual Then
Dim ObjPresupuestos As New ClsContratos Dim ObjPresupuestos As New ClsContratos
If ObjPresupuestos.GetPresupuestosRep(-1, CveTipoGasto, Agrupador, FechaInicio, FechaFin, UsuarioActual.CveEmpresa, DdlProyecto.SelectedValue.ToEntero, DdlSubProyecto.SelectedValue.ToEntero, UsuarioActual.CveUsuario, DdlClasificacion.SelectedValue.ToEntero) Then If ObjPresupuestos.GetPresupuestosRep(-1, CveTipoGasto, Agrupador, FechaInicio, FechaFin, UsuarioActual.CveEmpresa, DdlProyecto.SelectedValue.ToEntero, DdlSubProyecto.SelectedValue.ToEntero, UsuarioActual.CveUsuario, DdlClasificacion.SelectedValue.ToEntero) Then
@@ -127,7 +143,6 @@ Partial Class Contratos_RepPresupuestos
If EsMensual Then If EsMensual Then
RegistraScript($"CargaChartMensual({HdnJsonProyecto.Value},{HdnJsonGraficos.Value});", "2") RegistraScript($"CargaChartMensual({HdnJsonProyecto.Value},{HdnJsonGraficos.Value});", "2")
Else Else
RegistraScript($"CargaChartProyecto({HdnJsonProyecto.Value});", "2") RegistraScript($"CargaChartProyecto({HdnJsonProyecto.Value});", "2")
End If End If
@@ -286,27 +301,35 @@ Partial Class Contratos_RepPresupuestos
Else Else
Dim DrPresupuesto = DtPresupuestos.FiltroPrimero("Tipo = 0 AND CveAgrupador IS NULL") Dim DrPresupuesto = DtPresupuestos.FiltroPrimero("Tipo = 0 AND CveAgrupador IS NULL")
Dim Autorizado = DrPresupuesto("Autorizado").ToString.ToDecimal Dim Autorizado As Decimal = DrPresupuesto("Autorizado").ToString.ToDecimal
Dim Ejercido = DrPresupuesto("Ejercido").ToString.ToDecimal Dim Ejercido As Decimal = DrPresupuesto("Ejercido").ToString.ToDecimal
Dim PorEjercer = DrPresupuesto("PorEjercer").ToString.ToDecimal Dim PorEjercer As Decimal = DrPresupuesto("PorEjercer").ToString.ToDecimal
Dim EjercidoPorcentaje = DrPresupuesto("EjercidoPorcentaje").ToString.ToDecimal Dim EjercidoPorcentaje = DrPresupuesto("EjercidoPorcentaje").ToString.ToDecimal
Dim PorEjercerPorcentaje = DrPresupuesto("PorEjercerPorcentaje").ToString.ToDecimal Dim PorEjercerPorcentaje = DrPresupuesto("PorEjercerPorcentaje").ToString.ToDecimal
If UsaComprometido Then
Ejercido = DrPresupuesto("Comprometido").ToString.ToDecimal
PorEjercer = Autorizado - Ejercido
EjercidoPorcentaje = Ejercido / Autorizado * 100
PorEjercerPorcentaje = PorEjercer / Autorizado * 100
thComprometido.Visible = True
GvDatos.Columns(2).Visible = True
End If
LtlAutorizado.Text = Autorizado.FormatoNumero LtlAutorizado.Text = Autorizado.FormatoNumero
LtlEjercido.Text = Ejercido.FormatoNumero LtlEjercido.Text = Ejercido.FormatoNumero
LtlPorEjercer.Text = PorEjercer.FormatoNumero LtlPorEjercer.Text = PorEjercer.FormatoNumero
PBEjercido.Style.Remove("width") PBEjercido.Style.Remove("width")
PBEjercido.Style.Add("width", $"{EjercidoPorcentaje.ToString}%") PBEjercido.Style.Add("width", $"{EjercidoPorcentaje.ToString}%")
PBPorEjercer.Style.Remove("width") PBPorEjercer.Style.Remove("width")
PBPorEjercer.Style.Add("width", $"{PorEjercerPorcentaje.ToString}%") PBPorEjercer.Style.Add("width", $"{PorEjercerPorcentaje.ToString}%")
LtlPorcentajeEjercido.Text = EjercidoPorcentaje.FormatoNumero + " %" LtlPorcentajeEjercido.Text = EjercidoPorcentaje.FormatoNumero + " %"
LtlPorcentajePorEjercer.Text = PorEjercerPorcentaje.FormatoNumero + " %" LtlPorcentajePorEjercer.Text = PorEjercerPorcentaje.FormatoNumero + " %"
Dim json = New JArray( Dim json = New JArray(
From dr In DtDatos From dr In DtDatos
Select New JObject( Select New JObject(
New JProperty("Agrupador", dr("Agrupador").ToString()), New JProperty("Agrupador", dr("Agrupador").ToString()),
@@ -318,11 +341,11 @@ Partial Class Contratos_RepPresupuestos
New JProperty("PorEjercerProporcion", dr("PorEjercerPorcentaje").ToString().ToDecimal())) New JProperty("PorEjercerProporcion", dr("PorEjercerPorcentaje").ToString().ToDecimal()))
) )
HdnJsonProyecto.Value = json.ToString HdnJsonProyecto.Value = json.ToString
End If End If
Else Else
LtlAutorizado.Text = "" LtlAutorizado.Text = ""
LtlEjercido.Text = "" LtlEjercido.Text = ""
LtlPorEjercer.Text = "" LtlPorEjercer.Text = ""
@@ -342,21 +365,24 @@ Partial Class Contratos_RepPresupuestos
If e.Row.DBCampo("Autorizado").ToDecimal = 0 Then If e.Row.DBCampo("Autorizado").ToDecimal = 0 Then
e.Row.Cells(1).Text = "-" e.Row.Cells(1).Text = "-"
End If End If
If e.Row.DBCampo("Ejercido").ToDecimal = 0 Then If e.Row.DBCampo("Comprometido").ToDecimal = 0 Then
e.Row.Cells(2).Text = "-" e.Row.Cells(1).Text = "-"
End If End If
If e.Row.DBCampo("EjercidoPorcentaje").ToDecimal = 0 Then If e.Row.DBCampo("Ejercido").ToDecimal = 0 Then
e.Row.Cells(3).Text = "-" e.Row.Cells(3).Text = "-"
End If End If
If e.Row.DBCampo("PorEjercer").ToDecimal = 0 Then If e.Row.DBCampo("EjercidoPorcentaje").ToDecimal = 0 Then
e.Row.Cells(4).Text = "-" e.Row.Cells(4).Text = "-"
End If End If
If e.Row.DBCampo("PorEjercerPorcentaje").ToDecimal = 0 Then If e.Row.DBCampo("PorEjercer").ToDecimal = 0 Then
e.Row.Cells(5).Text = "-" e.Row.Cells(5).Text = "-"
End If End If
If e.Row.DBCampo("Pagado").ToDecimal = 0 Then If e.Row.DBCampo("PorEjercerPorcentaje").ToDecimal = 0 Then
e.Row.Cells(6).Text = "-" e.Row.Cells(6).Text = "-"
End If End If
If e.Row.DBCampo("Pagado").ToDecimal = 0 Then
e.Row.Cells(7).Text = "-"
End If
If e.Row.RowIndex > 0 Then If e.Row.RowIndex > 0 Then
Dim CveAgrupador = e.Row.DBCampo("CveAgrupador").ToEntero Dim CveAgrupador = e.Row.DBCampo("CveAgrupador").ToEntero

296
Empresas/Grales/Formatos/Polizas.rdlc
View File

@@ -1488,6 +1488,295 @@
</TablixCell> </TablixCell>
</TablixCells> </TablixCells>
</TablixRow> </TablixRow>
<TablixRow>
<Height>2.44729cm</Height>
<TablixCells>
<TablixCell>
<CellContents>
<Textbox Name="UsuarioRegistro1">
<CanGrow>true</CanGrow>
<KeepTogether>true</KeepTogether>
<Paragraphs>
<Paragraph>
<TextRuns>
<TextRun>
<Value>Usuario Registró:</Value>
<Style>
<FontFamily>calibri</FontFamily>
<FontSize>9pt</FontSize>
<FontWeight>Bold</FontWeight>
</Style>
</TextRun>
</TextRuns>
<Style>
<TextAlign>Center</TextAlign>
</Style>
</Paragraph>
<Paragraph>
<TextRuns>
<TextRun>
<Value>=Fields!NombreUsuario.Value</Value>
<Style>
<FontFamily>calibri</FontFamily>
<FontSize>9pt</FontSize>
</Style>
</TextRun>
</TextRuns>
<Style>
<TextAlign>Center</TextAlign>
</Style>
</Paragraph>
</Paragraphs>
<rd:DefaultName>UsuarioRegistro1</rd:DefaultName>
<Visibility>
<Hidden>=IIF(IsNothing(Parameters!UsuarioRegistro.Value) OR LEN(CStr(Parameters!UsuarioRegistro.Value)) = 0, True, False)</Hidden>
</Visibility>
<Style>
<Border>
<Style>None</Style>
</Border>
<VerticalAlign>Bottom</VerticalAlign>
<PaddingLeft>1pt</PaddingLeft>
<PaddingRight>1pt</PaddingRight>
<PaddingTop>1pt</PaddingTop>
<PaddingBottom>1pt</PaddingBottom>
</Style>
</Textbox>
<ColSpan>3</ColSpan>
</CellContents>
</TablixCell>
<TablixCell />
<TablixCell />
<TablixCell>
<CellContents>
<Textbox Name="Textbox13">
<CanGrow>true</CanGrow>
<KeepTogether>true</KeepTogether>
<Paragraphs>
<Paragraph>
<TextRuns>
<TextRun>
<Value />
<Style>
<FontFamily>calibri</FontFamily>
<FontSize>8pt</FontSize>
</Style>
</TextRun>
</TextRuns>
<Style />
</Paragraph>
</Paragraphs>
<rd:DefaultName>Textbox13</rd:DefaultName>
<Visibility>
<Hidden>=IIF(IsNothing(Parameters!UsuarioRegistro.Value) OR LEN(CStr(Parameters!UsuarioRegistro.Value)) = 0, True, False)</Hidden>
</Visibility>
<Style>
<Border>
<Style>None</Style>
</Border>
<PaddingLeft>1pt</PaddingLeft>
<PaddingRight>1pt</PaddingRight>
<PaddingTop>1pt</PaddingTop>
<PaddingBottom>1pt</PaddingBottom>
</Style>
</Textbox>
</CellContents>
</TablixCell>
<TablixCell>
<CellContents>
<Textbox Name="Textbox15">
<CanGrow>true</CanGrow>
<KeepTogether>true</KeepTogether>
<Paragraphs>
<Paragraph>
<TextRuns>
<TextRun>
<Value />
<Style>
<FontFamily>calibri</FontFamily>
<FontSize>8pt</FontSize>
</Style>
</TextRun>
</TextRuns>
<Style />
</Paragraph>
</Paragraphs>
<rd:DefaultName>Textbox15</rd:DefaultName>
<Visibility>
<Hidden>=IIF(IsNothing(Parameters!UsuarioRegistro.Value) OR LEN(CStr(Parameters!UsuarioRegistro.Value)) = 0, True, False)</Hidden>
</Visibility>
<Style>
<Border>
<Style>None</Style>
</Border>
<PaddingLeft>1pt</PaddingLeft>
<PaddingRight>1pt</PaddingRight>
<PaddingTop>1pt</PaddingTop>
<PaddingBottom>1pt</PaddingBottom>
</Style>
</Textbox>
</CellContents>
</TablixCell>
<TablixCell>
<CellContents>
<Textbox Name="Textbox16">
<CanGrow>true</CanGrow>
<KeepTogether>true</KeepTogether>
<Paragraphs>
<Paragraph>
<TextRuns>
<TextRun>
<Value />
<Style>
<FontFamily>calibri</FontFamily>
<FontSize>8pt</FontSize>
</Style>
</TextRun>
</TextRuns>
<Style />
</Paragraph>
</Paragraphs>
<rd:DefaultName>Textbox16</rd:DefaultName>
<Visibility>
<Hidden>=IIF(IsNothing(Parameters!UsuarioRegistro.Value) OR LEN(CStr(Parameters!UsuarioRegistro.Value)) = 0, True, False)</Hidden>
</Visibility>
<Style>
<Border>
<Style>None</Style>
</Border>
<PaddingLeft>1pt</PaddingLeft>
<PaddingRight>1pt</PaddingRight>
<PaddingTop>1pt</PaddingTop>
<PaddingBottom>1pt</PaddingBottom>
</Style>
</Textbox>
</CellContents>
</TablixCell>
<TablixCell>
<CellContents>
<Textbox Name="Textbox18">
<CanGrow>true</CanGrow>
<KeepTogether>true</KeepTogether>
<Paragraphs>
<Paragraph>
<TextRuns>
<TextRun>
<Value />
<Style>
<FontFamily>calibri</FontFamily>
<FontSize>8pt</FontSize>
<FontWeight>Bold</FontWeight>
</Style>
</TextRun>
</TextRuns>
<Style>
<TextAlign>Right</TextAlign>
</Style>
</Paragraph>
</Paragraphs>
<rd:DefaultName>Textbox18</rd:DefaultName>
<Visibility>
<Hidden>=IIF(IsNothing(Parameters!UsuarioRegistro.Value) OR LEN(CStr(Parameters!UsuarioRegistro.Value)) = 0, True, False)</Hidden>
</Visibility>
<Style>
<Border>
<Style>None</Style>
</Border>
<TopBorder>
<Color>Black</Color>
<Style>Solid</Style>
<Width>1pt</Width>
</TopBorder>
<PaddingLeft>1pt</PaddingLeft>
<PaddingRight>1pt</PaddingRight>
<PaddingTop>1pt</PaddingTop>
<PaddingBottom>1pt</PaddingBottom>
</Style>
</Textbox>
</CellContents>
</TablixCell>
<TablixCell>
<CellContents>
<Textbox Name="Textbox19">
<CanGrow>true</CanGrow>
<KeepTogether>true</KeepTogether>
<Paragraphs>
<Paragraph>
<TextRuns>
<TextRun>
<Value />
<Style>
<FontFamily>calibri</FontFamily>
<FontSize>8pt</FontSize>
</Style>
</TextRun>
</TextRuns>
<Style>
<TextAlign>Right</TextAlign>
</Style>
</Paragraph>
</Paragraphs>
<rd:DefaultName>Textbox19</rd:DefaultName>
<Visibility>
<Hidden>=IIF(IsNothing(Parameters!UsuarioRegistro.Value) OR LEN(CStr(Parameters!UsuarioRegistro.Value)) = 0, True, False)</Hidden>
</Visibility>
<Style>
<Border>
<Style>None</Style>
</Border>
<TopBorder>
<Style>Solid</Style>
</TopBorder>
<PaddingLeft>1pt</PaddingLeft>
<PaddingRight>1pt</PaddingRight>
<PaddingTop>1pt</PaddingTop>
<PaddingBottom>1pt</PaddingBottom>
</Style>
</Textbox>
</CellContents>
</TablixCell>
<TablixCell>
<CellContents>
<Textbox Name="Textbox20">
<CanGrow>true</CanGrow>
<KeepTogether>true</KeepTogether>
<Paragraphs>
<Paragraph>
<TextRuns>
<TextRun>
<Value />
<Style>
<FontFamily>calibri</FontFamily>
<FontSize>8pt</FontSize>
</Style>
</TextRun>
</TextRuns>
<Style>
<TextAlign>Right</TextAlign>
</Style>
</Paragraph>
</Paragraphs>
<rd:DefaultName>Textbox20</rd:DefaultName>
<Visibility>
<Hidden>=IIF(IsNothing(Parameters!UsuarioRegistro.Value) OR LEN(CStr(Parameters!UsuarioRegistro.Value)) = 0, True, False)</Hidden>
</Visibility>
<Style>
<Border>
<Style>None</Style>
</Border>
<TopBorder>
<Style>Solid</Style>
</TopBorder>
<PaddingLeft>1pt</PaddingLeft>
<PaddingRight>1pt</PaddingRight>
<PaddingTop>1pt</PaddingTop>
<PaddingBottom>1pt</PaddingBottom>
</Style>
</Textbox>
</CellContents>
</TablixCell>
</TablixCells>
</TablixRow>
</TablixRows> </TablixRows>
</TablixBody> </TablixBody>
<TablixColumnHierarchy> <TablixColumnHierarchy>
@@ -1548,6 +1837,9 @@
<TablixMember> <TablixMember>
<KeepWithGroup>Before</KeepWithGroup> <KeepWithGroup>Before</KeepWithGroup>
</TablixMember> </TablixMember>
<TablixMember>
<KeepWithGroup>Before</KeepWithGroup>
</TablixMember>
</TablixMembers> </TablixMembers>
</TablixMember> </TablixMember>
</TablixMembers> </TablixMembers>
@@ -1559,7 +1851,7 @@
<ResetPageNumber>true</ResetPageNumber> <ResetPageNumber>true</ResetPageNumber>
</PageBreak> </PageBreak>
<Top>0.05076cm</Top> <Top>0.05076cm</Top>
<Height>3.18542cm</Height> <Height>5.63271cm</Height>
<Width>19.38789cm</Width> <Width>19.38789cm</Width>
<Style> <Style>
<Border> <Border>
@@ -1596,7 +1888,7 @@
</Style> </Style>
</Textbox> </Textbox>
</ReportItems> </ReportItems>
<Height>3.59805cm</Height> <Height>5.68347cm</Height>
<Style /> <Style />
</Body> </Body>
<Width>19.38791cm</Width> <Width>19.38791cm</Width>

51
Inventarios/EntregaAlmacen.aspx.vb
View File

@@ -1028,7 +1028,7 @@ Partial Class Inventarios_EntregaAlmacen
CargaGvDatos() CargaGvDatos()
End Sub End Sub
Private Sub CargaGvDatos(Optional CveAlmacen As Integer = -1) Private Sub CargaGvDatos(Optional RecargaVenta As Boolean = True)
If DtDatos IsNot Nothing Then If DtDatos IsNot Nothing Then
@@ -1057,7 +1057,7 @@ Partial Class Inventarios_EntregaAlmacen
'GvDatos.Columns(9).HeaderText = If(UsuarioActual.Empresa.Funcionalidad(147) <> "", UsuarioActual.Empresa.Funcionalidad(147), "") 'GvDatos.Columns(9).HeaderText = If(UsuarioActual.Empresa.Funcionalidad(147) <> "", UsuarioActual.Empresa.Funcionalidad(147), "")
'SugerirFecha() 'SugerirFecha()
If DdlAlmacen.SelectedValue.ToEntero > 0 And CveVentaSurtir > 0 Then If RecargaVenta AndAlso DdlAlmacen.SelectedValue.ToEntero > 0 And CveVentaSurtir > 0 Then
CargaVentaPorSurtir(CveVentaSurtir, CveAlmacen:=DdlAlmacen.SelectedValue.ToEntero, CveOS:=CveOSSurtir) CargaVentaPorSurtir(CveVentaSurtir, CveAlmacen:=DdlAlmacen.SelectedValue.ToEntero, CveOS:=CveOSSurtir)
If CargaBitacora Then If CargaBitacora Then
@@ -2052,21 +2052,7 @@ Partial Class Inventarios_EntregaAlmacen
End If End If
Next Next
'LIMITAR EL NUMERO DE PARTIDAS QUE SE PUEDEN ENTREGAR
If UsuarioActual.Empresa.Funcionalidad(578) = "1" Then
'SI EL CLIENTE ES OPERADORA DE HOSPITALES ANGELES SOLO SE PUEDEN RECIBIR MAXIMO 5
If CveCliente = 819998 Then
If NumRegistros > 5 Then
Alert("Solo se pueden recibir maximo 5 partidas.", TipoMensaje.MsgAdvertencia)
Exit Sub
End If
Else
If NumRegistros > 10 Then
Alert("Solo se pueden recibir maximo 10 partidas.", TipoMensaje.MsgAdvertencia)
Exit Sub
End If
End If
End If
'ValidaSeccion = False 'ValidaSeccion = False
'ValidaCaducidad = False 'ValidaCaducidad = False
@@ -2103,7 +2089,25 @@ Partial Class Inventarios_EntregaAlmacen
End If End If
If EsDevolucionVenta = 1 Or TipoDocto.Contiene({"Ped"}) Then If EsDevolucionVenta = 1 Or TipoDocto.Contiene({"Ped"}) Then
If Not (EsDevolucionVenta = 1 And TipoDocto.Contiene("Rem", "Ped")) Then ' condicion si hay una devolucion de remision, no verifique la totalidad surtido Dim ValidaSalidaCompleta As Boolean = Not (EsDevolucionVenta = 1 And TipoDocto.Contiene("Rem", "Ped"))
'LIMITAR EL NUMERO DE PARTIDAS QUE SE PUEDEN ENTREGAR
If UsuarioActual.Empresa.Funcionalidad(578) = "1" Then
'SI EL CLIENTE ES OPERADORA DE HOSPITALES ANGELES SOLO SE PUEDEN RECIBIR MAXIMO 5
If CveCliente = 819998 Then
If NumRegistros > 5 Then
Alert("Solo se pueden recibir maximo 5 partidas.", TipoMensaje.MsgAdvertencia)
Exit Sub
End If
Else
If NumRegistros > 10 Then
Alert("Solo se pueden recibir maximo 10 partidas.", TipoMensaje.MsgAdvertencia)
Exit Sub
End If
End If
ValidaSalidaCompleta = False
End If
If ValidaSalidaCompleta Then ' condicion si hay una devolucion de remision, no verifique la totalidad surtido
For Each Gvr As GridViewRow In GvDatos.Rows For Each Gvr As GridViewRow In GvDatos.Rows
If Not Gvr.FCCheckBox("cbInv").Checked Or (Gvr.FCCheckBox("cbInv").Checked AndAlso Gvr.FCTextBox("TbCantidadF").Text.ToDecimal <> Gvr.DataKey("CantidadC").ToString().ToDecimal) Then If Not Gvr.FCCheckBox("cbInv").Checked Or (Gvr.FCCheckBox("cbInv").Checked AndAlso Gvr.FCTextBox("TbCantidadF").Text.ToDecimal <> Gvr.DataKey("CantidadC").ToString().ToDecimal) Then
Alert("Es necesario surtir todos los productos. Por favor rectifique y vuelva a intentar.", TipoMensaje.MsgAdvertencia) Alert("Es necesario surtir todos los productos. Por favor rectifique y vuelva a intentar.", TipoMensaje.MsgAdvertencia)
@@ -4182,7 +4186,12 @@ Partial Class Inventarios_EntregaAlmacen
Next Next
DtDatos.AcceptChanges() DtDatos.AcceptChanges()
CargaGvDatos() If UsuarioActual.Empresa.Funcionalidad(578) = "1" Then
CargaGvDatos(False)
Else
CargaGvDatos(True)
End If
index2 = 0 index2 = 0
For Each Row As DataRow In DtDatos.Rows For Each Row As DataRow In DtDatos.Rows
@@ -4328,8 +4337,8 @@ Partial Class Inventarios_EntregaAlmacen
End Sub End Sub
Private Sub RecargaporAlmacenes() Private Sub RecargaporAlmacenes()
If DdlAlmacen.SelectedValue <> "-1" Then If DdlAlmacen.SelectedValue <> "-1" AndAlso Not (UsuarioActual.Empresa.Funcionalidad(578) = "1") Then
CargaGvDatos(DdlAlmacen.SelectedValue.ToEntero) CargaGvDatos()
End If End If
End Sub End Sub

6
Inventarios/RepExistenciasCostos.aspx
View File

@@ -146,9 +146,13 @@
<asp:GridView ID="GvM" runat="server" ShowHeader="True" EmptyDataText="Aún no hay registros." AutoGenerateColumns="False" AllowPaging="False" ShowFooter="False" <asp:GridView ID="GvM" runat="server" ShowHeader="True" EmptyDataText="Aún no hay registros." AutoGenerateColumns="False" AllowPaging="False" ShowFooter="False"
ShowHeaderWhenEmpty="false" CssClass="table table-advance table-GvM Widthall" GridLines="None"> ShowHeaderWhenEmpty="false" CssClass="table table-advance table-GvM Widthall" GridLines="None">
<Columns> <Columns>
<asp:HyperLinkField HeaderText="Fecha" ItemStyle-Width="75px" DataTextField="FechaMovto" ItemStyle-CssClass="Texto" DataNavigateUrlFields="CveMovimiento" DataNavigateUrlFormatString="/Inventarios/EntradasSalidas.aspx?CveMovimiento={0}" /> <asp:HyperLinkField HeaderText="Fecha" ItemStyle-Width="75px" DataTextField="FechaMovto" ItemStyle-CssClass="Texto" DataNavigateUrlFields="CveMovimiento" DataNavigateUrlFormatString="/Inventarios/EntradasSalidas.aspx?CveMovimiento={0}" />
<asp:BoundField HeaderText="Almacen" DataField="Almacen" /> <asp:BoundField HeaderText="Almacen" DataField="Almacen" />
<asp:HyperLinkField HeaderText="Folio" ItemStyle-Width="100px" DataTextField="Folio" ItemStyle-CssClass="Texto" DataNavigateUrlFields="CveMovimiento" ItemStyle-HorizontalAlign="Right" DataNavigateUrlFormatString="/Inventarios/EntradasSalidas.aspx?CveMovimiento={0}" /> <asp:BoundField HeaderText="Concepto" DataField="Concepto" />
<asp:HyperLinkField HeaderText="Folio" ItemStyle-Width="50px" DataTextField="Folio" ItemStyle-CssClass="Texto" DataNavigateUrlFields="CveMovimiento" ItemStyle-HorizontalAlign="Right" DataNavigateUrlFormatString="/Inventarios/EntradasSalidas.aspx?CveMovimiento={0}" />
<asp:BoundField HeaderText="Folio Doc." DataField="FolioDocto" />
<asp:BoundField HeaderText="Activo Fijo" DataField="CodigoAF" ItemStyle-HorizontalAlign="Left" Visible="false" /> <asp:BoundField HeaderText="Activo Fijo" DataField="CodigoAF" ItemStyle-HorizontalAlign="Left" Visible="false" />
<asp:BoundField HeaderText="SubProyecto" DataField="SubProyecto" ItemStyle-HorizontalAlign="Left" Visible="false" /> <asp:BoundField HeaderText="SubProyecto" DataField="SubProyecto" ItemStyle-HorizontalAlign="Left" Visible="false" />
<asp:BoundField HeaderText="Entradas" ItemStyle-Width="75px" DataField="Entradas" DataFormatString="{0:#,###.##}" ItemStyle-HorizontalAlign="Right"/> <asp:BoundField HeaderText="Entradas" ItemStyle-Width="75px" DataField="Entradas" DataFormatString="{0:#,###.##}" ItemStyle-HorizontalAlign="Right"/>

188
Inventarios/RepExistenciasCostos.aspx.vb
View File

@@ -85,9 +85,12 @@ Partial Class Inventarios_RepExistenciasCostos
End Sub End Sub
Private Sub CargaPermisos() Private Sub CargaPermisos()
Dim TienePermisoImportes As Boolean = UsuarioActual.TienePermisoProceso(201) Dim TienePermisoImportes As Boolean = UsuarioActual.TienePermisoProceso(201)
GvM.Columns(6).Visible = TienePermisoImportes 'GvM.Columns(6).Visible = TienePermisoImportes
'GvM.Columns(8).Visible = TienePermisoImportes
'GvM.Columns(10).Visible = TienePermisoImportes
GvM.Columns(8).Visible = TienePermisoImportes GvM.Columns(8).Visible = TienePermisoImportes
GvM.Columns(10).Visible = TienePermisoImportes GvM.Columns(10).Visible = TienePermisoImportes
GvM.Columns(11).Visible = TienePermisoImportes
End Sub End Sub
Public Sub CargaCombos() Public Sub CargaCombos()
@@ -214,9 +217,9 @@ Partial Class Inventarios_RepExistenciasCostos
If e.Row.RowType = DataControlRowType.DataRow Then If e.Row.RowType = DataControlRowType.DataRow Then
Dim TienePermisoImportes = UsuarioActual.TienePermisoProceso(201) Dim TienePermisoImportes = UsuarioActual.TienePermisoProceso(201)
e.Row.Cells(6).Visible = TienePermisoImportes
e.Row.Cells(8).Visible = TienePermisoImportes e.Row.Cells(8).Visible = TienePermisoImportes
e.Row.Cells(10).Visible = TienePermisoImportes e.Row.Cells(10).Visible = TienePermisoImportes
e.Row.Cells(12).Visible = TienePermisoImportes
Select Case e.Row.DBCampo("Orden").ToEntero Select Case e.Row.DBCampo("Orden").ToEntero
Case 10 Case 10
@@ -226,18 +229,19 @@ Partial Class Inventarios_RepExistenciasCostos
e.Row.Cells(0).HorizontalAlign = HorizontalAlign.Left e.Row.Cells(0).HorizontalAlign = HorizontalAlign.Left
e.Row.Cells(0).ColumnSpan = 3 e.Row.Cells(0).ColumnSpan = 3
e.Row.Cells(1).Visible = False e.Row.Cells(1).Visible = False
e.Row.Cells(2).Visible = False
e.Row.Cells(5).Text = "" e.Row.Cells(3).Visible = False
e.Row.Cells(6).Text = ""
e.Row.Cells(7).Text = "" e.Row.Cells(7).Text = ""
e.Row.Cells(8).Text = "" e.Row.Cells(8).Text = ""
e.Row.Cells(9).Text = "" e.Row.Cells(9).Text = ""
e.Row.Cells(10).Text = "" e.Row.Cells(10).Text = ""
e.Row.Cells(11).Text = ""
e.Row.Cells(12).Text = ""
Case 15 Case 15
If e.Row.DBCampo("CveMovimiento").ToString.ToEntero <= 0 Then If e.Row.DBCampo("CveMovimiento").ToString.ToEntero <= 0 Then
e.Row.Cells(0).Text = e.Row.DBCampo("FechaMovto") e.Row.Cells(0).Text = e.Row.DBCampo("FechaMovto")
e.Row.Cells(2).Text = "" e.Row.Cells(3).Text = ""
End If End If
Case 20 Case 20
e.Row.CssClass = "SubTotales" e.Row.CssClass = "SubTotales"
@@ -246,18 +250,18 @@ Partial Class Inventarios_RepExistenciasCostos
e.Row.Cells(0).HorizontalAlign = HorizontalAlign.Left e.Row.Cells(0).HorizontalAlign = HorizontalAlign.Left
e.Row.Cells(0).ColumnSpan = 3 e.Row.Cells(0).ColumnSpan = 3
e.Row.Cells(1).Visible = False e.Row.Cells(1).Visible = False
e.Row.Cells(2).Visible = False e.Row.Cells(3).Visible = False
e.Row.Cells(9).Text = e.Row.DBCampo("ExistenciaTotal").ToDouble().ToString("#,####.####") e.Row.Cells(11).Text = e.Row.DBCampo("ExistenciaTotal").ToDouble().ToString("#,####.####")
e.Row.Cells(10).Text = e.Row.DBCampo("ValorTotal").FormatoNumero e.Row.Cells(12).Text = e.Row.DBCampo("ValorTotal").FormatoNumero
End Select End Select
End If End If
End Sub End Sub
Protected Sub BtnPersonalizar_Click(sender As Object, e As System.EventArgs) Handles BtnPersonalizar.Click Protected Sub BtnPersonalizar_Click(sender As Object, e As System.EventArgs) Handles BtnPersonalizar.Click
GvM.Columns(3).Visible = ChkActivoFijo.Checked GvM.Columns(5).Visible = ChkActivoFijo.Checked
GvM.Columns(4).Visible = ChkSubProyecto.Checked GvM.Columns(6).Visible = ChkSubProyecto.Checked
UPPEquiv.Update() UPPEquiv.Update()
End Sub End Sub
@@ -308,169 +312,7 @@ Partial Class Inventarios_RepExistenciasCostos
#End Region #End Region
'#Region "UNIFICAR PS"
' Protected Sub BtnCargaPS_Click(sender As Object, e As EventArgs)
' CargaPS()
' End Sub
' Private Sub CargaPS()
' Dim DtPS As DataTable = GlobalDTProductosServicios(UsuarioActual.CveEmpresa)
' DdlPSPrimario.Items.Clear()
' DdlPSUnificado.Items.Clear()
' DdlPSPrimario.Items.Insert(0, New ListItem("Seleccione", "-1"))
' DdlPSUnificado.Items.Insert(0, New ListItem("Seleccione", "-1"))
' DdlPSPrimario.DataSource = DtPS
' DdlPSUnificado.DataSource = DtPS
' DdlPSPrimario.DataBind()
' DdlPSUnificado.DataBind()
' DtPS.Dispose()
' End Sub
' Protected Sub BtnUnificarPS_Click(sender As Object, e As EventArgs)
' If DdlPSPrimario.SelectedValue = DdlPSUnificado.SelectedValue Then
' Alert("El Producto/Servicio a unificar no puede ser el mismo al primario. Por favor verifique y vuelva a intetar.", TipoMensaje.MsgAdvertencia)
' Exit Sub
' End If
' 'Dim ObjPS As New ClsProductosServicios()
' 'If ObjPS.UnificarPS(DdlPSPrimario.SelectedValue.ToEntero, DdlPSUnificado.SelectedValue.ToEntero) Then
' ' Alert("El Producto/Servicio Fue unificado correctamente.", TipoMensaje.MsgInformacion)
' ' RegistraScript("$get('DivUnificarPS').style.display='none';")
' ' DdlPSPrimario.SelectedValue = "-1"
' ' DdlPSUnificado.SelectedValue = "-1"
' ' 'CargaPS()
' 'Else
' ' Alert("Ocurrió un error al unificar el Producto/Servicio. Por favor vuelta a intentar.", TipoMensaje.MsgError)
' 'End If
' 'ObjPS.Dispose()
' Dim CveMovimientoSalida = 0
' Dim CveMovimientoEntrada = 0
' Dim Existencia As Double
' Dim IDPoliza As Integer = 0
' Dim Folio = 0
' Dim Fecha As Date = NowADS() 'TxtFecha.Text.ToDate
' Dim TieneError = False
' Dim TextoError = ""
' Dim ObjInventario As New ClsInventarios
' ObjInventario.IniciaTransacSQL()
' Dim DtAlmacenes As New DataTable
' If ObjInventario.GetAlmacenes() Then
' DtAlmacenes = ObjInventario.DtResultados.FiltraParametros(String.Format("CveEmpresa = {0}", UsuarioActual.CveEmpresa))
' Else
' TieneError = True
' End If
' If Not TieneError Then
' Dim CvePSPrimario = 0
' Dim CveUMPrimario = 0
' Dim CvePSUnificado = 0
' Dim CveUMUnificado = 0
' Dim DTPS1 As DataTable = GlobalDTProductosServicios(UsuarioActual.CveEmpresa).FiltraParametros(String.Format("CvePS = {0}", DdlPSPrimario.SelectedValue.ToEntero))
' Dim DTPS2 As DataTable = GlobalDTProductosServicios(UsuarioActual.CveEmpresa).FiltraParametros(String.Format("CvePS = {0}", DdlPSUnificado.SelectedValue.ToEntero))
' For Each dr As DataRow In DtAlmacenes.Rows
' CvePSPrimario = DTPS1.Rows(0)("CvePS").ToString.ToEntero
' CveUMPrimario = DTPS1.Rows(0)("CveUM").ToString.ToEntero
' CvePSUnificado = DTPS2.Rows(0)("CvePS").ToString.ToEntero
' CveUMUnificado = DTPS2.Rows(0)("CveUM").ToString.ToEntero
' 'VALIDA LA EXISTENCIA
' Existencia = ObjInventario.GetExistenciasPS(CvePSUnificado, CveUMUnificado, UsuarioActual.CveEmpresa, dr("CveAlmacen").ToString.ToEntero)
' 'REGISTRA LA SALIDA Y ENTRADA (TRASPASO)
' If Existencia > 0 Then
' 'AGREGAMOS LA SALIDA
' Folio = ObjInventario.GetFolioSiguiente(3, UsuarioActual.CveEmpresa)
' CveMovimientoSalida = ObjInventario.AddMovimiento(dr("CveAlmacen").ToString.ToEntero, 3, 1, Fecha, Folio, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, -1, -1, -1, -1)
' If CveMovimientoSalida > 0 Then
' If Not ObjInventario.AddMovimientoDetalle(CveMovimientoSalida, Existencia, CveUMUnificado, CvePSUnificado, 0, -1) Then
' TieneError = True
' TextoError = "Ocurrió un error al guardar los movimientos de salida"
' Exit For
' End If
' Else
' TieneError = True
' TextoError = "No se pudo generar el movimiento de salida correctamente"
' Exit For
' End If
' 'AGREGAMOS LA ENTRADA
' Folio = ObjInventario.GetFolioSiguiente(2, UsuarioActual.CveEmpresa)
' CveMovimientoEntrada = ObjInventario.AddMovimiento(1, 2, 1, Fecha, Folio, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, -1, -1, -1, -1)
' If CveMovimientoEntrada > 0 Then
' If ObjInventario.GetMovimientosDetalle(CveMovimientoSalida, UsuarioActual.CveEmpresa) Then
' For Each dr2 As DataRow In ObjInventario.DtResultados.Rows
' If Not ObjInventario.AddMovimientoDetalle(CveMovimientoEntrada, dr2("Cantidad").ToString.ToDouble, dr2("CveUM").ToString.ToEntero, CvePSPrimario, dr2("PU").ToString.ToDouble, -1) Then
' TieneError = True
' TextoError = "Ocurrió un error al guardar los movimientos de entrada"
' Exit For
' End If
' Next
' If TieneError Then Exit For
' Else
' Exit For
' TextoError = "Ocurrió un error al guardar los movimientos de entrada"
' End If
' Else
' TieneError = True
' TextoError = "No se pudo generar el movimiento de entrada correctamente"
' Exit For
' End If
' End If
' Next
' DTPS1.Dispose()
' DTPS2.Dispose()
' End If
' If Not TieneError Then
' ObjInventario.Commit()
' Alert("El producto se ha unificado correctamente.", TipoMensaje.MsgInformacion)
' CargaPS()
' Else
' ObjInventario.RollBack()
' Alert(TextoError, TipoMensaje.MsgError)
' End If
' ObjInventario.Dispose()
' End Sub
' Private Sub DdlClasificacion_SelectedIndexChanged(sender As Object, e As EventArgs) Handles DdlClasificacion.SelectedIndexChanged
' If DdlClasificacion.SelectedValue = "-1" Then
' ddlProducto.DataSource = TmpPS
' Else
' If isWhitFamily() Then
' ddlProducto.DataSource = TmpPS.FiltraParametros(String.Format("CveSubFamilia={0}", DdlClasificacion.SelectedValue), "PS")
' Else
' ddlProducto.DataSource = TmpPS.FiltraParametros(String.Format("CveClasificacion={0}", DdlClasificacion.SelectedValue), "PS")
' End If
' End If
' ddlProducto.Items.Clear()
' ddlProducto.DataBind()
' ddlProducto.Items.Insert(0, New ListItem("----", "-1"))
' End Sub
' #End Region
End Class End Class

1
Nomina/Nomina.aspx
View File

@@ -1139,6 +1139,7 @@
<asp:ListItem Text="Infonavit(Factor Descuento)" Value="5002"></asp:ListItem> <asp:ListItem Text="Infonavit(Factor Descuento)" Value="5002"></asp:ListItem>
<asp:ListItem Text="Infonavit(Cuota Fija)" Value="5003"></asp:ListItem> <asp:ListItem Text="Infonavit(Cuota Fija)" Value="5003"></asp:ListItem>
<asp:ListItem Text="Infonavit(Cuota Fija por período)" Value="5004"></asp:ListItem> <asp:ListItem Text="Infonavit(Cuota Fija por período)" Value="5004"></asp:ListItem>
<asp:ListItem Text="Infonavit(Cuota Fija (Mensual)" Value="5005"></asp:ListItem>
</asp:DropDownList> </asp:DropDownList>
</div> </div>
</div> </div>

4
OC/OC.aspx.vb
View File

@@ -5465,10 +5465,10 @@ Partial Class OC_OC
End Sub End Sub
Private Sub EnviaCorreoSolicitudAnticipo(CveEvento As Integer, ImporteAnticipo As Decimal, CveUsuaioCorreo As Integer) Private Sub EnviaCorreoSolicitudAnticipo(CveEvento As Integer, ImporteAnticipo As Decimal, CveUsuarioCorreo As Integer)
Dim Param As New List(Of String) Dim Param As New List(Of String)
Dim DtPara As DataTable = GlobalDTUsuarios(CveUsuaioCorreo, CveEmpresaActual) Dim DtPara As DataTable = GlobalDTUsuarios(CveUsuarioCorreo, CveEmpresaActual)
'If DdlMetodoPago.SelectedValue.ToEntero = 0 Then 'If DdlMetodoPago.SelectedValue.ToEntero = 0 Then

2
OC/RepRequisiciones.aspx
View File

@@ -240,6 +240,8 @@
<asp:Literal Text='<%# Eval("Proveedor").ToString %>' runat="server"></asp:Literal> <asp:Literal Text='<%# Eval("Proveedor").ToString %>' runat="server"></asp:Literal>
</ItemTemplate> </ItemTemplate>
</asp:TemplateField> </asp:TemplateField>
<asp:BoundField DataField="Total" DataFormatString="{0:N2}" HeaderText="Total" ItemStyle-HorizontalAlign="Right" />
<asp:BoundField DataField="MonAbreviatura" HeaderText="Mon" />
<asp:BoundField DataField="PrioridadTexto" HeaderText="Prioridad" /> <asp:BoundField DataField="PrioridadTexto" HeaderText="Prioridad" />

2
OS/RepOSMedicas.aspx
View File

@@ -180,7 +180,7 @@
<asp:HyperLinkField HeaderText="Folio" DataNavigateUrlFields="CveOS" DataNavigateUrlFormatString="/OS/OrdenesServicios.aspx?CveOS={0}" DataTextField="Folio" Target="_blank" /> <asp:HyperLinkField HeaderText="Folio" DataNavigateUrlFields="CveOS" DataNavigateUrlFormatString="/OS/OrdenesServicios.aspx?CveOS={0}" DataTextField="Folio" Target="_blank" />
<%--<asp:BoundField HeaderText="Folio" DataField="Folio" />--%> <%--<asp:BoundField HeaderText="Folio" DataField="Folio" />--%>
<%--1--%> <%--1--%>
<asp:BoundField DataField="FechaCita" HeaderText="Fecha Cirugía" ItemStyle-Width="100px" DataFormatString="{0:dd/MM/yyyy HH:mm}" HtmlEncode="False" /> <asp:BoundField DataField="FechaCita" HeaderText="Fecha Cirugía" ItemStyle-Width="110px" DataFormatString="{0:dd/MM/yyyy HH:mm}" HtmlEncode="False" />
<%--2--%> <%--2--%>
<asp:BoundField HeaderText="Hospital" DataField="Nombre" /> <asp:BoundField HeaderText="Hospital" DataField="Nombre" />
<%--3--%> <%--3--%>

10
RH/Personal.aspx
View File

@@ -2048,7 +2048,7 @@
</ContentTemplate> </ContentTemplate>
</asp:UpdatePanel> </asp:UpdatePanel>
<%--<div class="portlet light bordered xspadding" id="porletconceptos"> <div class="portlet light bordered xspadding" id="porletconceptos">
<div class="portlet-title"> <div class="portlet-title">
<div class="caption font-green"> <div class="caption font-green">
<i class="fa fa-bookmark font-green"></i> <i class="fa fa-bookmark font-green"></i>
@@ -2096,7 +2096,7 @@
</ItemTemplate> </ItemTemplate>
<ItemStyle Width="40px" /> <ItemStyle Width="40px" />
</asp:TemplateField> </asp:TemplateField>
<asp:TemplateField> <asp:TemplateField Visible="false">
<HeaderTemplate>Importe</HeaderTemplate> <HeaderTemplate>Importe</HeaderTemplate>
<ItemTemplate> <ItemTemplate>
<asp:TextBox CssClass="form-control input-sm" ID="TxtImporte" runat="server" Text='<%# Eval("Importe", "{0:N2}") %>' Width="60px"></asp:TextBox> <asp:TextBox CssClass="form-control input-sm" ID="TxtImporte" runat="server" Text='<%# Eval("Importe", "{0:N2}") %>' Width="60px"></asp:TextBox>
@@ -2104,13 +2104,13 @@
</ItemTemplate> </ItemTemplate>
<ItemStyle Width="50px" /> <ItemStyle Width="50px" />
</asp:TemplateField> </asp:TemplateField>
<asp:TemplateField> <asp:TemplateField Visible="false">
<HeaderTemplate>Tipo de Aplicación</HeaderTemplate> <HeaderTemplate>Tipo de Aplicación</HeaderTemplate>
<ItemTemplate> <ItemTemplate>
<table> <table>
<tr> <tr>
<td width="95px"> <td width="95px">
<asp:DropDownList ID="DdlTipoAplicacion" OnSelectedIndexChanged="DdlTipoAplicacion_SelectedIndexChanged" AutoPostBack="true" runat="server" Class="table-group-action-input form-control input-inline input-small input-sm" Width="100%"> <asp:DropDownList ID="DdlTipoAplicacion" runat="server" Class="table-group-action-input form-control input-inline input-small input-sm" Width="100%">
</asp:DropDownList></td> </asp:DropDownList></td>
<td width="65px"> <td width="65px">
@@ -2133,7 +2133,7 @@
</asp:GridView> </asp:GridView>
</div> </div>
</div>--%> </div>
<div class="portlet light bordered xspadding" id="porletInfonavit"> <div class="portlet light bordered xspadding" id="porletInfonavit">
<div class="portlet-title"> <div class="portlet-title">

212
RH/Personal.aspx.vb
View File

@@ -2849,7 +2849,7 @@ Partial Class RH_Personal
Private Sub CarcaConceptosNomina() Private Sub CarcaConceptosNomina()
Dim ObjPersonal As New ClsRH Dim ObjPersonal As New ClsRH
If ObjPersonal.GetPersonalConceptos(CvePersonal, UsuarioActual.CveEmpresa) Then If ObjPersonal.GetPersonalConceptos(CvePersonal, UsuarioActual.CveEmpresa) Then
'GVConceptos.DataSource = ObjPersonal.DtResultados.FiltraParametros("(CveSistema <>3 AND CveSistema <>4) OR CveSistema IS NULL") GVConceptos.DataSource = ObjPersonal.DtResultados.FiltraParametros("(CveSistema <>3 AND CveSistema <>4) OR CveSistema IS NULL")
Dim frow As DataRow = ObjPersonal.DtResultados.FiltroPrimero("CveSistema =3") Dim frow As DataRow = ObjPersonal.DtResultados.FiltroPrimero("CveSistema =3")
If Not IsNothing(frow) Then If Not IsNothing(frow) Then
TxtInfoValor.Text = String.Format("{0:###,###.##}", frow("Importe")) TxtInfoValor.Text = String.Format("{0:###,###.##}", frow("Importe"))
@@ -2883,7 +2883,7 @@ Partial Class RH_Personal
'Conceptos.DataSource = Nothing 'Conceptos.DataSource = Nothing
End If End If
ObjPersonal.Dispose() ObjPersonal.Dispose()
'GVConceptos.DataBind() GVConceptos.DataBind()
'For Each Row As GridViewRow In GVConceptos.Rows 'For Each Row As GridViewRow In GVConceptos.Rows
' Dim Ddl As DropDownList = DirectCast(GVConceptos.Rows(Row.RowIndex).FCDropDownList("DdlTipoAplicacion"), DropDownList) ' Dim Ddl As DropDownList = DirectCast(GVConceptos.Rows(Row.RowIndex).FCDropDownList("DdlTipoAplicacion"), DropDownList)
@@ -2891,68 +2891,70 @@ Partial Class RH_Personal
'Next 'Next
End Sub End Sub
'Protected Sub GVConceptos_RowCreated(sender As Object, e As System.Web.UI.WebControls.GridViewRowEventArgs) Handles GVConceptos.RowDataBound Protected Sub GVConceptos_RowCreated(sender As Object, e As System.Web.UI.WebControls.GridViewRowEventArgs) Handles GVConceptos.RowDataBound
' If e.Row.RowType = DataControlRowType.DataRow Then If e.Row.RowType = DataControlRowType.DataRow Then
' e.Row.Cells(1).HorizontalAlign = HorizontalAlign.Left e.Row.Cells(1).HorizontalAlign = HorizontalAlign.Left
' e.Row.Cells(0).Width = Unit.Pixel(50) e.Row.Cells(0).Width = Unit.Pixel(50)
' e.Row.Cells(1).Width = Unit.Pixel(50) e.Row.Cells(1).Width = Unit.Pixel(50)
' e.Row.Cells(3).Width = Unit.Pixel(70) e.Row.Cells(3).Width = Unit.Pixel(70)
' e.Row.Cells(4).Width = Unit.Pixel(70) e.Row.Cells(4).Width = Unit.Pixel(70)
' e.Row.Cells(5).Width = Unit.Pixel(160) e.Row.Cells(5).Width = Unit.Pixel(160)
' If e.Row.DBCampo("Aplica").ToEntero() = 1 Then e.Row.FCCheckBox("ChkAplica").Checked = True If e.Row.DBCampo("Aplica").ToEntero() = 1 Then e.Row.FCCheckBox("ChkAplica").Checked = True
' If e.Row.DBCampo("Formula") = "S" Then If e.Row.DBCampo("Formula") = "S" Then
' e.Row.FCDropDownList("DdlTipoAplicacion").Visible = False : e.Row.Cells(3).Text = "Calculado" e.Row.FCDropDownList("DdlTipoAplicacion").Visible = False : e.Row.Cells(3).Text = "Calculado"
' e.Row.FCDropDownList("DdlTipoAplicacion").Visible = False : e.Row.Cells(4).Text = "Permanente" e.Row.FCDropDownList("DdlTipoAplicacion").Visible = False : e.Row.Cells(4).Text = "Permanente"
' Else Else
' Dim TipoAplicacion As String = e.Row.DBCampo("TipoAplicacion").ToString() Dim TipoAplicacion As String = e.Row.DBCampo("TipoAplicacion").ToString()
' e.Row.FCDropDownList("DdlTipoAplicacion").Items.Clear() e.Row.FCDropDownList("DdlTipoAplicacion").Items.Clear()
' e.Row.FCDropDownList("DdlTipoAplicacion").Items.Add(New ListItem("Seleccione", "-1")) e.Row.FCDropDownList("DdlTipoAplicacion").Items.Add(New ListItem("Seleccione", "-1"))
' If (e.Row.DBCampo("CveSistema").ToString() = "3") Then If (e.Row.DBCampo("CveSistema").ToString() = "3") Then
' e.Row.FCDropDownList("DdlTipoAplicacion").Items.Add(New ListItem("Infonavit(Movto Permanente)", "5000")) e.Row.FCDropDownList("DdlTipoAplicacion").Items.Add(New ListItem("Infonavit(Movto Permanente)", "5000"))
' e.Row.FCDropDownList("DdlTipoAplicacion").Items.Add(New ListItem("Infonavit(Porcentaje)", "5001")) e.Row.FCDropDownList("DdlTipoAplicacion").Items.Add(New ListItem("Infonavit(Porcentaje)", "5001"))
' e.Row.FCDropDownList("DdlTipoAplicacion").Items.Add(New ListItem("Infonavit(Factor Descuento)", "5002")) e.Row.FCDropDownList("DdlTipoAplicacion").Items.Add(New ListItem("Infonavit(Factor Descuento)", "5002"))
' e.Row.FCDropDownList("DdlTipoAplicacion").Items.Add(New ListItem("Infonavit(Cuota Fija)", "5003")) e.Row.FCDropDownList("DdlTipoAplicacion").Items.Add(New ListItem("Infonavit(Cuota Fija Bimestral)", "5003"))
e.Row.FCDropDownList("DdlTipoAplicacion").Items.Add(New ListItem("Infonavit(Cuota Fija Periodo)", "5004"))
e.Row.FCDropDownList("DdlTipoAplicacion").Items.Add(New ListItem("Infonavit(Cuota Fija Mensual)", "5005"))
' ElseIf (e.Row.DBCampo("CveSistema").ToString() = "4") Then ElseIf (e.Row.DBCampo("CveSistema").ToString() = "4") Then
' e.Row.FCDropDownList("DdlTipoAplicacion").Items.Add(New ListItem("Fonacot(Importe fijo)", "3001")) e.Row.FCDropDownList("DdlTipoAplicacion").Items.Add(New ListItem("Fonacot(Importe fijo)", "3001"))
' e.Row.FCDropDownList("DdlTipoAplicacion").Items.Add(New ListItem("Fonacot(Por días Labarados)", "3002")) e.Row.FCDropDownList("DdlTipoAplicacion").Items.Add(New ListItem("Fonacot(Por días Labarados)", "3002"))
' Else Else
' e.Row.FCDropDownList("DdlTipoAplicacion").Items.Add(New ListItem("Saldo", "1")) e.Row.FCDropDownList("DdlTipoAplicacion").Items.Add(New ListItem("Saldo", "1"))
' e.Row.FCDropDownList("DdlTipoAplicacion").Items.Add(New ListItem("No. Pagos", "2")) e.Row.FCDropDownList("DdlTipoAplicacion").Items.Add(New ListItem("No. Pagos", "2"))
' e.Row.FCDropDownList("DdlTipoAplicacion").Items.Add(New ListItem("Permanente", "2600")) e.Row.FCDropDownList("DdlTipoAplicacion").Items.Add(New ListItem("Permanente", "2600"))
' End If End If
' If e.Row.DBCampo("TipoAplicacion").ToEntero() > 5 Then If e.Row.DBCampo("TipoAplicacion").ToEntero() > 5 Then
' TipoAplicacion = "2600" TipoAplicacion = "2600"
' End If End If
' e.Row.FCDropDownList("DdlTipoAplicacion").SelectedValueExist(TipoAplicacion) e.Row.FCDropDownList("DdlTipoAplicacion").SelectedValueExist(TipoAplicacion)
' End If End If
' 'If e.Row.DBCampo("TipoCalculo") = "False" Then 'If e.Row.DBCampo("TipoCalculo") = "False" Then
' ' e.Row.FCTextBox("TxtImporte").Visible = False ' e.Row.FCTextBox("TxtImporte").Visible = False
' ' e.Row.FCDropDownList("DdlTipoAplicacion").Visible = False ' e.Row.FCDropDownList("DdlTipoAplicacion").Visible = False
' 'Else 'Else
' ' Select Case e.Row.DBCampo("TipoAplicacion").ToEntero() ' Select Case e.Row.DBCampo("TipoAplicacion").ToEntero()
' ' Case 1 ' Case 1
' ' 'Saldo ' 'Saldo
' ' e.Row.FCLiteral("LtlSaldo").Visible = True ' e.Row.FCLiteral("LtlSaldo").Visible = True
' ' e.Row.FCTextBox("TxtSaldoIni").Visible = True ' e.Row.FCTextBox("TxtSaldoIni").Visible = True
' ' Case 2 ' Case 2
' ' 'Numero de Pagos ' 'Numero de Pagos
' ' e.Row.FCLiteral("LtlNoPago").Visible = True ' e.Row.FCLiteral("LtlNoPago").Visible = True
' ' e.Row.FCTextBox("TxtNoPagos").Visible = True ' e.Row.FCTextBox("TxtNoPagos").Visible = True
' ' Case 2600 ' Case 2600
' ' 'Permanente ' 'Permanente
' ' End Select ' End Select
' 'End If 'End If
' End If End If
'End Sub End Sub
Protected Sub BtnGuardarInfornavit_Click(sender As Object, e As EventArgs) Protected Sub BtnGuardarInfornavit_Click(sender As Object, e As EventArgs)
Dim importe As Decimal = TxtInfoValor.Text.ToDecimal() Dim importe As Decimal = TxtInfoValor.Text.ToDecimal()
@@ -2981,61 +2983,61 @@ Partial Class RH_Personal
End If End If
End Sub End Sub
'Protected Sub BtnGuardarConceptos_Click(sender As Object, e As System.EventArgs) Handles BtnGuardarConceptos.Click Protected Sub BtnGuardarConceptos_Click(sender As Object, e As System.EventArgs) Handles BtnGuardarConceptos.Click
' If CvePersonal > 0 Then If CvePersonal > 0 Then
' Dim ObjPersonal As New ClsRH Dim ObjPersonal As New ClsRH
' ObjPersonal.IniciaTransacSQL() ObjPersonal.IniciaTransacSQL()
' Dim OcurrioError As Boolean = False Dim OcurrioError As Boolean = False
' For Each Row As GridViewRow In GVConceptos.Rows For Each Row As GridViewRow In GVConceptos.Rows
' If Row.FCCheckBox("ChkAplica").Checked = True Then If Row.FCCheckBox("ChkAplica").Checked = True Then
' Dim CveConcepto As Integer = Row.DataKey("CveConcepto").ToEntero() Dim CveConcepto As Integer = Row.DataKey("CveConcepto").ToEntero()
' Dim Importe As Double = Row.FCTextBox("TxtImporte").Text.ToDouble Dim Importe As Double = Row.FCTextBox("TxtImporte").Text.ToDouble
' Dim TipoAplicacion As Integer = Row.FCDropDownList("DdlTipoAplicacion").SelectedValue.ToEntero() Dim TipoAplicacion As Integer = -1 'Row.FCDropDownList("DdlTipoAplicacion").SelectedValue.ToEntero()
' Dim NoPagos As Integer = If(Row.FCTextBox("TxtNoPagos").Text.ToEntero() = 0, -1, Row.FCTextBox("TxtNoPagos").Text.ToEntero()) Dim NoPagos As Integer = If(Row.FCTextBox("TxtNoPagos").Text.ToEntero() = 0, -1, Row.FCTextBox("TxtNoPagos").Text.ToEntero())
' Dim SaldoIni As Double = If(Row.FCTextBox("TxtSaldoIni").Text.ToDouble = 0, -1, Row.FCTextBox("TxtSaldoIni").Text.ToDouble) Dim SaldoIni As Double = If(Row.FCTextBox("TxtSaldoIni").Text.ToDouble = 0, -1, Row.FCTextBox("TxtSaldoIni").Text.ToDouble)
' Select Case TipoAplicacion Select Case TipoAplicacion
' Case 1 Case 1
' 'Saldo 'Saldo
' NoPagos = -1 NoPagos = -1
' Case 2 Case 2
' 'Numero de Pagos 'Numero de Pagos
' SaldoIni = -1 SaldoIni = -1
' Case 2600 Case 2600
' 'Permanente 'Permanente
' NoPagos = -1 NoPagos = -1
' SaldoIni = -1 SaldoIni = -1
' End Select End Select
' 'Insertarlo o Actualizarlo 'Insertarlo o Actualizarlo
' If Not ObjPersonal.AddConcepto(CvePersonal, CveConcepto, Importe, TipoAplicacion, NoPagos, SaldoIni, UsuarioActual.CveUsuario) Then If Not ObjPersonal.AddConcepto(CvePersonal, CveConcepto, Importe, TipoAplicacion, NoPagos, SaldoIni, UsuarioActual.CveUsuario) Then
' OcurrioError = True OcurrioError = True
' ObjPersonal.RollBack() ObjPersonal.RollBack()
' Exit For Exit For
' End If End If
' Else Else
' 'Borrarlo 'Borrarlo
' If Row.DataKey("CvePersonalConcepto") <> "" Then If Row.DataKey("CvePersonalConcepto") <> "" Then
' If Not ObjPersonal.RemoveConcepto(Row.DataKey("CvePersonalConcepto").ToEntero()) Then If Not ObjPersonal.RemoveConcepto(Row.DataKey("CvePersonalConcepto").ToEntero()) Then
' OcurrioError = True OcurrioError = True
' ObjPersonal.RollBack() ObjPersonal.RollBack()
' Exit For Exit For
' End If End If
' End If End If
' End If End If
' Next Next
' If Not OcurrioError Then If Not OcurrioError Then
' ObjPersonal.Commit() ObjPersonal.Commit()
' Alert("La información se guardó correctamente.", TipoMensaje.MsgInformacion) Alert("La información se guardó correctamente.", TipoMensaje.MsgInformacion)
' Else Else
' Alert("Ocurrió un error al guardar la información.", TipoMensaje.MsgError) Alert("Ocurrió un error al guardar la información.", TipoMensaje.MsgError)
' End If End If
' ObjPersonal.Dispose() ObjPersonal.Dispose()
' End If End If
'End Sub End Sub
#End Region #End Region

2
Ventas/ActualizarPrecios.aspx.vb
View File

@@ -590,7 +590,7 @@ Partial Class Ventas_ActualizarPrecios
'ObjPS.IniciaTransacSQL() 'ObjPS.IniciaTransacSQL()
Try Try
Dim DtPS As DataTable = GlobalDTPSSimplificado(UsuarioActual.CveEmpresa) Dim DtPS As DataTable = GlobalDTPSSimplificado(UsuarioActual.CveEmpresa)
For Each row As DataRow In dt.Rows For Each row As DataRow In dt.FiltraParametros("Código <> ''").Rows
Dim Correcto As Boolean = False Dim Correcto As Boolean = False
Dim TieneError As Boolean = False Dim TieneError As Boolean = False
Dim CvePS As Integer = DtPS.FiltroPrimeroValor("CvePS", String.Format("Codigo='{0}'", row(0).ToString())).ToEntero Dim CvePS As Integer = DtPS.FiltroPrimeroValor("CvePS", String.Format("Codigo='{0}'", row(0).ToString())).ToEntero