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>
<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"
CssClass="table table-striped table-advance table-hover Widthall ScrollAD mysmallbtn"
data-sort="true"

1
Acumuladores/CatFoliosGarantia.aspx.vb
View File

@@ -187,6 +187,7 @@ Partial Class Acumuladores_CatFoliosGarantia
DdlEstatusEditar.SelectedValueExist(GvRow.DataKey("CveEstatus"))
TxtLimite.Text = GvRow.DataKey("Limite")
DdlTipoFolioModal.SelectedValue = GvRow.DataKey("tipoFolio")
DdlArea.SelectedValue = GvRow.DataKey("Area")
'TxtCargo.Text = GvRow.DataKey("Cargo").ToDecimal.ToString("###,###,###.00")
'TxtBonificacion.Text = GvRow.DataKey("Bonificacion").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
Return retorno
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
Dim Retorno As Boolean = False
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,
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 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
DataAdapter("PA_OC_OrdenesCompraRep")
@@ -1685,6 +1685,7 @@ Public Class ClsOC
.Add("@EntregaDirecta", SqlDbType.Int).Value = EntregaDirecta
.Add("@TopSelect", SqlDbType.Int).Value = TopSelect
.Add("@CveMoneda", SqlDbType.Int).Value = CveMoneda
.Add("@MetodoPago", SqlDbType.Int).Value = MetodoPago
End With

4
Bancos/IE.aspx.vb
View File

@@ -5549,8 +5549,8 @@ Partial Class Bancos_IE
UpEliminarCotizacion.Update()
End Sub
Private Sub RVTxtFechaDocumento_Init(sender As Object, e As EventArgs) Handles RVTxtFechaDocumento.Init
RVTxtFechaDocumento.MaximumValue = NowADS().ToShortDateString
Calendario.EndDate = NowADS()
RVTxtFechaDocumento.MaximumValue = NowADS.AddDays(3).ToShortDateString
Calendario.EndDate = NowADS.AddDays(3)
End Sub
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 CveLayoutEnvio As Integer = GvRow.DataKey("CveLayoutEnvio").ToEntero
Dim TipoRegenrar As String = ""
Dim TipoRegenerar As String = ""
If DTEnviadas IsNot Nothing Then
TipoRegenrar = DTEnviadas.FiltroPrimeroValor("Tipo", "LEN(Tipo) > 0")
TipoRegenrar = If(TipoRegenrar.Contains("ANT"), "ANT", TipoRegenrar)
TipoRegenerar = DTEnviadas.FiltroPrimeroValor("Tipo", $"LEN(Tipo) > 0 and CveLayoutEnvio = {CveLayoutEnvio}")
TipoRegenerar = If(TipoRegenerar.Contains("ANT"), "ANT", TipoRegenerar)
End If
Dim DtRegenerar As New DataTable
Dim NombreDelArchivo As String = GvRow.DataKey("Archivo")
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
Else
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)
End If
End Sub
#End Region
'RECARGA DATOS
#Region " RECARGA DATOS "

2
Compras/PopUpVerFactura.aspx.vb
View File

@@ -6394,7 +6394,7 @@ Partial Class PopUpVerFactura
Else
params.Add(New ReportParameter("Fecha", Fecha.ToShortDateString))
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")))
End If
If UsuarioActual.CveEmpresa.Contiene(140, 141) Then

150
Contabilidad2/RepBalanzaComprobacion.aspx
View File

@@ -116,75 +116,89 @@
<br />
<asp:UpdatePanel ID="UpDatos" UpdateMode="Conditional" runat="server">
<ContentTemplate>
<div class="row" style="margin-left: 0px; margin-top: 5px; margin-bottom: 5px; text-align: right; margin-right: 5px" align="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;" />
<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: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">
<Columns>
<asp:TemplateField HeaderText="Cuenta" HeaderStyle-HorizontalAlign="Left">
<ItemTemplate>
<asp:Label ID="LbCodigo" runat="server" Text='<%# Eval("Codigo")%>'></asp:Label>
</ItemTemplate>
<ItemStyle HorizontalAlign="Left" Width="180" />
</asp:TemplateField>
<asp:TemplateField HeaderText="Nombre" HeaderStyle-HorizontalAlign="Left">
<ItemTemplate>
<asp:Label ID="LbNombre" runat="server" Text='<%# Eval("Nombre")%>'></asp:Label>
</ItemTemplate>
<ItemStyle HorizontalAlign="Left" Width="320" />
</asp:TemplateField>
<asp:TemplateField>
<HeaderTemplate>
<table width="100%">
<tr>
<td colspan="2">Saldos Iniciales</td>
</tr>
<tr>
<td>Deudor</td>
<td>Acreedor</td>
</tr>
</table>
</HeaderTemplate>
<ItemTemplate>
<asp:Label ID="LbSaldoInicial" Style="white-space: pre;" runat="server" Text='<%# Eval("SaldoInicial", "{0:N2}")%>'></asp:Label>
</ItemTemplate>
<ItemStyle Width="120" HorizontalAlign="Right" />
</asp:TemplateField>
<asp:TemplateField HeaderText="Cargos">
<ItemTemplate>
<asp:Label ID="LbCargos" runat="server" Text='<%# Eval("Cargos", "{0:N2}")%>'></asp:Label>
</ItemTemplate>
<ItemStyle Width="120" HorizontalAlign="Right" />
</asp:TemplateField>
<asp:TemplateField HeaderText="Abonos">
<ItemTemplate>
<asp:Label ID="LbAbonos" runat="server" Text='<%# Eval("Abonos", "{0:N2}")%>'></asp:Label>
</ItemTemplate>
<ItemStyle Width="120" HorizontalAlign="Right" />
</asp:TemplateField>
<asp:TemplateField>
<HeaderTemplate>
<table width="100%">
<tr>
<td colspan="2">Saldos Actuales</td>
</tr>
<tr>
<td>Deudor</td>
<td>Acreedor</td>
</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 class="row">
<div class="col-md-12">
<asp:UpdatePanel ID="UpDatos" UpdateMode="Conditional" runat="server">
<ContentTemplate>
<asp:GridView ID="GvDatos" CssClass="table table-striped table-advance table-hover Widthall ScrollAD mysmallbtn"
runat="server" GridLines="None" EmptyDataText="No se encontraron cuentas con los parametros establecidos." AutoGenerateColumns="False" OnRowDataBound="GvIngresos_RowDataBound">
<Columns>
<asp:TemplateField HeaderText="Cuenta" HeaderStyle-HorizontalAlign="Left">
<ItemTemplate>
<asp:Label ID="LbCodigo" runat="server" Text='<%# Eval("Codigo")%>'></asp:Label>
</ItemTemplate>
<ItemStyle HorizontalAlign="Left" Width="180" />
</asp:TemplateField>
<asp:TemplateField HeaderText="Nombre" HeaderStyle-HorizontalAlign="Left">
<ItemTemplate>
<asp:Label ID="LbNombre" runat="server" Text='<%# Eval("Nombre")%>'></asp:Label>
</ItemTemplate>
<ItemStyle HorizontalAlign="Left" Width="320" />
</asp:TemplateField>
<asp:TemplateField>
<HeaderTemplate>
<table width="100%">
<tr>
<td colspan="2">Saldos Iniciales</td>
</tr>
<tr>
<td>Deudor</td>
<td>Acreedor</td>
</tr>
</table>
</HeaderTemplate>
<ItemTemplate>
<asp:Label ID="LbSaldoInicial" Style="white-space: pre;" runat="server" Text='<%# Eval("SaldoInicial", "{0:N2}")%>'></asp:Label>
</ItemTemplate>
<ItemStyle Width="120" HorizontalAlign="Right" />
</asp:TemplateField>
<asp:TemplateField HeaderText="Cargos">
<ItemTemplate>
<asp:Label ID="LbCargos" runat="server" Text='<%# Eval("Cargos", "{0:N2}")%>'></asp:Label>
</ItemTemplate>
<ItemStyle Width="120" HorizontalAlign="Right" />
</asp:TemplateField>
<asp:TemplateField HeaderText="Abonos">
<ItemTemplate>
<asp:Label ID="LbAbonos" runat="server" Text='<%# Eval("Abonos", "{0:N2}")%>'></asp:Label>
</ItemTemplate>
<ItemStyle Width="120" HorizontalAlign="Right" />
</asp:TemplateField>
<asp:TemplateField>
<HeaderTemplate>
<table width="100%">
<tr>
<td colspan="2">Saldos Actuales</td>
</tr>
<tr>
<td>Deudor</td>
<td>Acreedor</td>
</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>

12
Contratos/RepPresupuestos.aspx
View File

@@ -330,9 +330,9 @@
<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: 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: 25%; border-right: 3px solid white;">Ejercido</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;" runat="server" id="thComprometido" visible="false">En proceso de compra</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: 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>
</tr>
</table>
@@ -343,11 +343,11 @@
<%--<asp:HyperLinkField HeaderText="Descripcion" DataTextField="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="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="%" 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="%" 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%" />
</Columns>
</asp:GridView>

102
Contratos/RepPresupuestos.aspx.vb
View File

@@ -2,7 +2,6 @@
Option Strict On
Imports System.Data
Imports Newtonsoft.Json
Imports Newtonsoft.Json.Linq
Imports Extensiones
Imports Microsoft.Reporting.WebForms
@@ -20,6 +19,15 @@ Partial Class Contratos_RepPresupuestos
End Set
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
Protected Sub Page_Load(sender As Object, e As System.EventArgs) Handles Me.Load
If Not IsPostBack Then
@@ -29,7 +37,7 @@ Partial Class Contratos_RepPresupuestos
#Region " INICIALIZA VALORES "
Private Sub InicializaValores()
UsaComprometido = False
If UsuarioActual.Empresa.Funcionalidad(267) = "1" Then 'emp citrícola
TxtFiltrosFechaInicio.Text = $"01/08/{NowADS().Year - 1}"
TxtFiltrosFechaFin.Text = $"31/07/{NowADS().Year}"
@@ -54,6 +62,8 @@ Partial Class Contratos_RepPresupuestos
DdlProyecto.Items.Insert(0, New ListItem("Todos", "-1"))
DdlProyecto.DataBind()
If UsuarioActual.CveEmpresa.Contiene(13, 83) Then UsaComprometido = True
CargaSubProyecto()
UpFiltros.Update()
End Sub
@@ -78,7 +88,13 @@ Partial Class Contratos_RepPresupuestos
Dim Agrupador = DdlAgrupador.SelectedValue.ToEntero
Dim FechaInicio = If(IsDate(TxtFiltrosFechaInicio.Text), TxtFiltrosFechaInicio.Text.ToDate, MinFecha)
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
Dim ObjPresupuestos As New ClsContratos
@@ -127,7 +143,6 @@ Partial Class Contratos_RepPresupuestos
If EsMensual Then
RegistraScript($"CargaChartMensual({HdnJsonProyecto.Value},{HdnJsonGraficos.Value});", "2")
Else
RegistraScript($"CargaChartProyecto({HdnJsonProyecto.Value});", "2")
End If
@@ -286,27 +301,35 @@ Partial Class Contratos_RepPresupuestos
Else
Dim DrPresupuesto = DtPresupuestos.FiltroPrimero("Tipo = 0 AND CveAgrupador IS NULL")
Dim Autorizado = DrPresupuesto("Autorizado").ToString.ToDecimal
Dim Ejercido = DrPresupuesto("Ejercido").ToString.ToDecimal
Dim PorEjercer = DrPresupuesto("PorEjercer").ToString.ToDecimal
Dim EjercidoPorcentaje = DrPresupuesto("EjercidoPorcentaje").ToString.ToDecimal
Dim PorEjercerPorcentaje = DrPresupuesto("PorEjercerPorcentaje").ToString.ToDecimal
LtlAutorizado.Text = Autorizado.FormatoNumero
LtlEjercido.Text = Ejercido.FormatoNumero
LtlPorEjercer.Text = PorEjercer.FormatoNumero
PBEjercido.Style.Remove("width")
PBEjercido.Style.Add("width", $"{EjercidoPorcentaje.ToString}%")
PBPorEjercer.Style.Remove("width")
PBPorEjercer.Style.Add("width", $"{PorEjercerPorcentaje.ToString}%")
LtlPorcentajeEjercido.Text = EjercidoPorcentaje.FormatoNumero + " %"
LtlPorcentajePorEjercer.Text = PorEjercerPorcentaje.FormatoNumero + " %"
Dim json = New JArray(
Dim Autorizado As Decimal = DrPresupuesto("Autorizado").ToString.ToDecimal
Dim Ejercido As Decimal = DrPresupuesto("Ejercido").ToString.ToDecimal
Dim PorEjercer As Decimal = DrPresupuesto("PorEjercer").ToString.ToDecimal
Dim EjercidoPorcentaje = DrPresupuesto("EjercidoPorcentaje").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
LtlEjercido.Text = Ejercido.FormatoNumero
LtlPorEjercer.Text = PorEjercer.FormatoNumero
PBEjercido.Style.Remove("width")
PBEjercido.Style.Add("width", $"{EjercidoPorcentaje.ToString}%")
PBPorEjercer.Style.Remove("width")
PBPorEjercer.Style.Add("width", $"{PorEjercerPorcentaje.ToString}%")
LtlPorcentajeEjercido.Text = EjercidoPorcentaje.FormatoNumero + " %"
LtlPorcentajePorEjercer.Text = PorEjercerPorcentaje.FormatoNumero + " %"
Dim json = New JArray(
From dr In DtDatos
Select New JObject(
New JProperty("Agrupador", dr("Agrupador").ToString()),
@@ -316,13 +339,13 @@ Partial Class Contratos_RepPresupuestos
New JProperty("AutorizadoProporcion", 100),
New JProperty("EjercidoProporcion", dr("EjercidoPorcentaje").ToString().ToDecimal()),
New JProperty("PorEjercerProporcion", dr("PorEjercerPorcentaje").ToString().ToDecimal()))
)
HdnJsonProyecto.Value = json.ToString
End If
Else
)
HdnJsonProyecto.Value = json.ToString
End If
Else
LtlAutorizado.Text = ""
LtlEjercido.Text = ""
LtlPorEjercer.Text = ""
@@ -342,21 +365,24 @@ Partial Class Contratos_RepPresupuestos
If e.Row.DBCampo("Autorizado").ToDecimal = 0 Then
e.Row.Cells(1).Text = "-"
End If
If e.Row.DBCampo("Ejercido").ToDecimal = 0 Then
e.Row.Cells(2).Text = "-"
If e.Row.DBCampo("Comprometido").ToDecimal = 0 Then
e.Row.Cells(1).Text = "-"
End If
If e.Row.DBCampo("EjercidoPorcentaje").ToDecimal = 0 Then
If e.Row.DBCampo("Ejercido").ToDecimal = 0 Then
e.Row.Cells(3).Text = "-"
End If
If e.Row.DBCampo("PorEjercer").ToDecimal = 0 Then
If e.Row.DBCampo("EjercidoPorcentaje").ToDecimal = 0 Then
e.Row.Cells(4).Text = "-"
End If
If e.Row.DBCampo("PorEjercerPorcentaje").ToDecimal = 0 Then
If e.Row.DBCampo("PorEjercer").ToDecimal = 0 Then
e.Row.Cells(5).Text = "-"
End If
If e.Row.DBCampo("Pagado").ToDecimal = 0 Then
If e.Row.DBCampo("PorEjercerPorcentaje").ToDecimal = 0 Then
e.Row.Cells(6).Text = "-"
End If
If e.Row.DBCampo("Pagado").ToDecimal = 0 Then
e.Row.Cells(7).Text = "-"
End If
If e.Row.RowIndex > 0 Then
Dim CveAgrupador = e.Row.DBCampo("CveAgrupador").ToEntero

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

@@ -1488,6 +1488,295 @@
</TablixCell>
</TablixCells>
</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>
</TablixBody>
<TablixColumnHierarchy>
@@ -1548,6 +1837,9 @@
<TablixMember>
<KeepWithGroup>Before</KeepWithGroup>
</TablixMember>
<TablixMember>
<KeepWithGroup>Before</KeepWithGroup>
</TablixMember>
</TablixMembers>
</TablixMember>
</TablixMembers>
@@ -1559,7 +1851,7 @@
<ResetPageNumber>true</ResetPageNumber>
</PageBreak>
<Top>0.05076cm</Top>
<Height>3.18542cm</Height>
<Height>5.63271cm</Height>
<Width>19.38789cm</Width>
<Style>
<Border>
@@ -1596,7 +1888,7 @@
</Style>
</Textbox>
</ReportItems>
<Height>3.59805cm</Height>
<Height>5.68347cm</Height>
<Style />
</Body>
<Width>19.38791cm</Width>

61
Inventarios/EntregaAlmacen.aspx.vb
View File

@@ -1028,7 +1028,7 @@ Partial Class Inventarios_EntregaAlmacen
CargaGvDatos()
End Sub
Private Sub CargaGvDatos(Optional CveAlmacen As Integer = -1)
Private Sub CargaGvDatos(Optional RecargaVenta As Boolean = True)
If DtDatos IsNot Nothing Then
@@ -1054,10 +1054,10 @@ Partial Class Inventarios_EntregaAlmacen
If Not String.IsNullOrWhiteSpace(UsuarioActual.Empresa.Funcionalidad(147)) Then
GvDatos.Columns(10).HeaderText = UsuarioActual.Empresa.Funcionalidad(147)
End If
'GvDatos.Columns(9).HeaderText = If(UsuarioActual.Empresa.Funcionalidad(147) <> "", UsuarioActual.Empresa.Funcionalidad(147), "")
'SugerirFecha()
If DdlAlmacen.SelectedValue.ToEntero > 0 And CveVentaSurtir > 0 Then
'GvDatos.Columns(9).HeaderText = If(UsuarioActual.Empresa.Funcionalidad(147) <> "", UsuarioActual.Empresa.Funcionalidad(147), "")
'SugerirFecha()
If RecargaVenta AndAlso DdlAlmacen.SelectedValue.ToEntero > 0 And CveVentaSurtir > 0 Then
CargaVentaPorSurtir(CveVentaSurtir, CveAlmacen:=DdlAlmacen.SelectedValue.ToEntero, CveOS:=CveOSSurtir)
If CargaBitacora Then
@@ -2052,21 +2052,7 @@ Partial Class Inventarios_EntregaAlmacen
End If
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
'ValidaCaducidad = False
@@ -2102,8 +2088,26 @@ Partial Class Inventarios_EntregaAlmacen
End If
End If
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
If EsDevolucionVenta = 1 Or TipoDocto.Contiene({"Ped"}) Then
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
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)
@@ -4182,8 +4186,13 @@ Partial Class Inventarios_EntregaAlmacen
Next
DtDatos.AcceptChanges()
CargaGvDatos()
If UsuarioActual.Empresa.Funcionalidad(578) = "1" Then
CargaGvDatos(False)
Else
CargaGvDatos(True)
End If
index2 = 0
For Each Row As DataRow In DtDatos.Rows
GvDatos.Rows(index2).FCCheckBox("cbInv").Checked = CBool(Row("Seleccionado"))
@@ -4328,8 +4337,8 @@ Partial Class Inventarios_EntregaAlmacen
End Sub
Private Sub RecargaporAlmacenes()
If DdlAlmacen.SelectedValue <> "-1" Then
CargaGvDatos(DdlAlmacen.SelectedValue.ToEntero)
If DdlAlmacen.SelectedValue <> "-1" AndAlso Not (UsuarioActual.Empresa.Funcionalidad(578) = "1") Then
CargaGvDatos()
End If
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"
ShowHeaderWhenEmpty="false" CssClass="table table-advance table-GvM Widthall" GridLines="None">
<Columns>
<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: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="SubProyecto" DataField="SubProyecto" ItemStyle-HorizontalAlign="Left" Visible="false" />
<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
Private Sub CargaPermisos()
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(10).Visible = TienePermisoImportes
GvM.Columns(11).Visible = TienePermisoImportes
End Sub
Public Sub CargaCombos()
@@ -214,9 +217,9 @@ Partial Class Inventarios_RepExistenciasCostos
If e.Row.RowType = DataControlRowType.DataRow Then
Dim TienePermisoImportes = UsuarioActual.TienePermisoProceso(201)
e.Row.Cells(6).Visible = TienePermisoImportes
e.Row.Cells(8).Visible = TienePermisoImportes
e.Row.Cells(10).Visible = TienePermisoImportes
e.Row.Cells(12).Visible = TienePermisoImportes
Select Case e.Row.DBCampo("Orden").ToEntero
Case 10
@@ -226,18 +229,19 @@ Partial Class Inventarios_RepExistenciasCostos
e.Row.Cells(0).HorizontalAlign = HorizontalAlign.Left
e.Row.Cells(0).ColumnSpan = 3
e.Row.Cells(1).Visible = False
e.Row.Cells(2).Visible = False
e.Row.Cells(5).Text = ""
e.Row.Cells(6).Text = ""
e.Row.Cells(3).Visible = False
e.Row.Cells(7).Text = ""
e.Row.Cells(8).Text = ""
e.Row.Cells(9).Text = ""
e.Row.Cells(10).Text = ""
e.Row.Cells(11).Text = ""
e.Row.Cells(12).Text = ""
Case 15
If e.Row.DBCampo("CveMovimiento").ToString.ToEntero <= 0 Then
e.Row.Cells(0).Text = e.Row.DBCampo("FechaMovto")
e.Row.Cells(2).Text = ""
e.Row.Cells(3).Text = ""
End If
Case 20
e.Row.CssClass = "SubTotales"
@@ -246,18 +250,18 @@ Partial Class Inventarios_RepExistenciasCostos
e.Row.Cells(0).HorizontalAlign = HorizontalAlign.Left
e.Row.Cells(0).ColumnSpan = 3
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(10).Text = e.Row.DBCampo("ValorTotal").FormatoNumero
e.Row.Cells(11).Text = e.Row.DBCampo("ExistenciaTotal").ToDouble().ToString("#,####.####")
e.Row.Cells(12).Text = e.Row.DBCampo("ValorTotal").FormatoNumero
End Select
End If
End Sub
Protected Sub BtnPersonalizar_Click(sender As Object, e As System.EventArgs) Handles BtnPersonalizar.Click
GvM.Columns(3).Visible = ChkActivoFijo.Checked
GvM.Columns(4).Visible = ChkSubProyecto.Checked
GvM.Columns(5).Visible = ChkActivoFijo.Checked
GvM.Columns(6).Visible = ChkSubProyecto.Checked
UPPEquiv.Update()
End Sub
@@ -308,169 +312,7 @@ Partial Class Inventarios_RepExistenciasCostos
#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

1
Nomina/Nomina.aspx
View File

@@ -1139,6 +1139,7 @@
<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 por período)" Value="5004"></asp:ListItem>
<asp:ListItem Text="Infonavit(Cuota Fija (Mensual)" Value="5005"></asp:ListItem>
</asp:DropDownList>
</div>
</div>

4
OC/OC.aspx.vb
View File

@@ -5465,10 +5465,10 @@ Partial Class OC_OC
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 DtPara As DataTable = GlobalDTUsuarios(CveUsuaioCorreo, CveEmpresaActual)
Dim DtPara As DataTable = GlobalDTUsuarios(CveUsuarioCorreo, CveEmpresaActual)
'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>
</ItemTemplate>
</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" />

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:BoundField HeaderText="Folio" DataField="Folio" />--%>
<%--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--%>
<asp:BoundField HeaderText="Hospital" DataField="Nombre" />
<%--3--%>

10
RH/Personal.aspx
View File

@@ -2048,7 +2048,7 @@
</ContentTemplate>
</asp:UpdatePanel>
<%--<div class="portlet light bordered xspadding" id="porletconceptos">
<div class="portlet light bordered xspadding" id="porletconceptos">
<div class="portlet-title">
<div class="caption font-green">
<i class="fa fa-bookmark font-green"></i>
@@ -2096,7 +2096,7 @@
</ItemTemplate>
<ItemStyle Width="40px" />
</asp:TemplateField>
<asp:TemplateField>
<asp:TemplateField Visible="false">
<HeaderTemplate>Importe</HeaderTemplate>
<ItemTemplate>
<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>
<ItemStyle Width="50px" />
</asp:TemplateField>
<asp:TemplateField>
<asp:TemplateField Visible="false">
<HeaderTemplate>Tipo de Aplicación</HeaderTemplate>
<ItemTemplate>
<table>
<tr>
<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>
<td width="65px">
@@ -2133,7 +2133,7 @@
</asp:GridView>
</div>
</div>--%>
</div>
<div class="portlet light bordered xspadding" id="porletInfonavit">
<div class="portlet-title">

212
RH/Personal.aspx.vb
View File

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

2
Ventas/ActualizarPrecios.aspx.vb
View File

@@ -590,7 +590,7 @@ Partial Class Ventas_ActualizarPrecios
'ObjPS.IniciaTransacSQL()
Try
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 TieneError As Boolean = False
Dim CvePS As Integer = DtPS.FiltroPrimeroValor("CvePS", String.Format("Codigo='{0}'", row(0).ToString())).ToEntero