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

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

Browse Source
This commit is contained in:
rakcsle
2021-04-19 10:32:55 -07:00
parent ef2ee4d324 5f907ed2d7
commit c2301e8f47
17 changed files with 671 additions and 177 deletions
Download Patch File Download Diff File Expand all files Collapse all files

36
App_Code/ClsGenerales.vb
View File

@@ -1592,7 +1592,41 @@ Public Class ClsGenerales
End Try
Return Retorno
End Function
End Function
Public Function UpdateCuentasDepositosPersonal(CveCuentaDeposito As Integer, BancoNombre As String, Cuenta As String, CLABE As String, CveMoneda As Integer, CveUsuarioModifico As Integer, EstatusPagoElectronico As Boolean, Estatus As Boolean, CveSATBanco As Integer) As Boolean
Dim Retorno As Boolean = False
DataAdapter("PA_Gral_CuentasDepositosPersonalUpdate")
With SqlAdapter.SelectCommand.Parameters
.Add("@CveCuentaDeposito", SqlDbType.Int).Value = CveCuentaDeposito
.Add("@BancoNombre", SqlDbType.VarChar).Value = BancoNombre
.Add("@Cuenta", SqlDbType.VarChar).Value = Cuenta
.Add("@CLABE", SqlDbType.VarChar).Value = CLABE
.Add("@Estatus", SqlDbType.VarChar).Value = Estatus
.Add("@CveMoneda", SqlDbType.Int).Value = CveMoneda
.Add("@CveUsuarioModifico", SqlDbType.Int).Value = CveUsuarioModifico
.Add("@Correo", SqlDbType.VarChar).Value = Correo
.Add("@EstatusPagoElectronico", SqlDbType.Bit).Value = EstatusPagoElectronico
.Add("@CveSATBanco", SqlDbType.Int).Value = CveSATBanco
End With
Try
SqlAdapter.Fill(Data)
Retorno = True
Catch Ex1 As SqlException
If Ex1.Message.Contains("Número: 2627;") Then
Alert("Ya existe un registro con el mismo nombre", TipoMensaje.MsgAdvertencia)
Else
Me.OnError("Ocurrió un error al guardar los cambios", Ex1, SqlAdapter.SelectCommand.Parameters.ParametrosInfo())
End If
Catch ex As Exception
OnError("Ocurrió un error al guardar los cambios.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo)
End Try
Return Retorno
End Function
Public Function UpdateCuentasDepositos(CveCuentaDeposito As Integer, BancoNombre As String, Plaza As String, Sucursal As String, Cuenta As String, CLABE As String, CIE As String, SWIFT As String, Referencia As String,
RefCrediProveedor As String, Predeterminada As Boolean, Estatus As Boolean, CveMoneda As Integer, Optional CveUsuarioModifico As Integer = -1, Optional Correo As String = "",

35
App_Code/ClsNominas.vb
View File

@@ -198,6 +198,41 @@ Public Class ClsNominas
End Function
Public Function ReportedeincidenciasGET(cveEmpresa As Integer, FechaInicio As DateTime, FechaFin As DateTime, CveTipoPeriodo As Integer) As Boolean
Dim retorno As Boolean = False
DTSet = New DataSet()
DataAdapter("PA_RH_ReportedeincidenciasGET", CommandType.StoredProcedure)
With SqlAdapter.SelectCommand.Parameters
.Add("@CveEmpresa", SqlDbType.Int).Value = cveEmpresa
.Add("@FechaInicio", SqlDbType.Date).Value = FechaInicio
.Add("@FechaFin", SqlDbType.Date).Value = FechaFin
.Add("@TipoPeriodo", SqlDbType.Int).Value = CveTipoPeriodo
End With
Try
SqlAdapter.Fill(DTSet)
retorno = True
Catch ex As Exception
OnError("Ocurrió un error al obtener el reporte de incidencias.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo())
End Try
Return retorno
End Function
Public Function ReportedeAcumuladosGET(cveEmpresa As Integer, Periodo As Integer, CveTipoPeriodo As Integer) As Boolean
Dim retorno As Boolean = False
DTSet = New DataSet()
DataAdapter("PA_RH_ReportedeAcumuladosGET", CommandType.StoredProcedure)
With SqlAdapter.SelectCommand.Parameters
.Add("@CveEmpresa", SqlDbType.Int).Value = cveEmpresa
.Add("@Periodo", SqlDbType.Int).Value = Periodo
.Add("@TipoPeriodo", SqlDbType.Int).Value = CveTipoPeriodo
End With
Try
SqlAdapter.Fill(DTSet)
retorno = True
Catch ex As Exception
OnError("Ocurrió un error al obtener el reporte de acumulados.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo())
End Try
Return retorno
End Function
Public Function GetCalculoAguinaldo(ejercicio As Int32, cveEmpresa As Int32, importe As Double, CveTipoPeriodo As Integer, CvePeriodo As Integer) As Boolean
Dim retorno As Boolean = False
DataAdapter("PA_NomCalcularAguinaldo", CommandType.StoredProcedure)

4
App_Code/modExtensiones.vb
View File

@@ -577,8 +577,8 @@ Namespace Extensiones
Else
Return CDbl(Obj(key))
End If
End Function
End Function
<Runtime.CompilerServices.Extension()>
Public Function ToEntero(Obj As Object) As Integer

78
Bancos/DepositosCaja.aspx
View File

@@ -137,13 +137,15 @@
</div>
</div>
<div class="row">
<div class="col-md-3" runat="server" Id="DivComision" Visible="false">
<label style="width: 70px; ">Faltante/Sobrante:</label>
<div class="col-md-2" runat="server" id="DivFaltante">
<asp:CheckBox ID="ChkFaltante" runat="server" Text="Faltante/Sobrante"/>
</div>
<div class="col-md-3" id="DivComision" style="display: none">
<label style="width: 105px; ">Faltante/Sobrante:</label>
<asp:TextBox runat="server" ID="TxtComision" Class=" input-sm " Width="75px"></asp:TextBox>
</div>
<label class="col-md-1 truncate" style="width: 120px; font-size:1.2em; display: none" id="LblSubproyecto" >SubProyecto:</label>
<label class="col-md-1 truncate" style="width: 120px; display: none" id="LblSubproyecto" >SubProyecto:</label>
<div class="col-md-2" style="display: none" id="divSubProyecto">
<asp:DropDownList ID="DdlSubProyectoDeposito" runat="server" AppendDataBoundItems="true" DataTextField="SubProyecto" DataValueField="CveSubProyecto" Class="table-group-action-input form-control input-inline input-small input-sm select2me">
</asp:DropDownList>
@@ -155,6 +157,23 @@
</asp:DropDownList>
</div>
</div>
<br />
<div class="row">
<div class="col-md-2" runat="server" id="Div1">
<asp:CheckBox ID="ChkDescuento" runat="server" Text="Descuento"/>
</div>
<div class="col-md-3" id="DivDescuento" style="display: none">
<label style="width: 105px; ">Descuento:</label>
<asp:TextBox runat="server" ID="TxtDescuento" Class=" input-sm " Width="75px"></asp:TextBox>
</div>
<label class="col-md-1 truncate" style="width: 120px; display: none" id="LblClasificacionDescuento">Clasificación:</label>
<div class="col-md-2" style="display: none" id="divClasificacionDescuento">
<asp:DropDownList ID="DdlClasificacionDescuento" AutoPostBack="false" CssClass=" form-control input-sm select2me" runat="server" Width="100%" AppendDataBoundItems="true" DataTextField="Clasificacion" DataValueField="CveClasificacion">
</asp:DropDownList>
</div>
</div>
<br />
<div style="height:550px;overflow-x:scroll">
<asp:GridView ID="GvFacturas" runat="server" AutoGenerateColumns="False" DataKeyNames="CveVenta, CvePrePoliza, CveIE, TipoCambio, CveMoneda, CveCliente, IdCtaContableBancos, IdCtaContClientes, Importe, SerieFolio" CssClass="table table-striped table-advance table-hover" Style="text-align: center; float: right; width: 100%; " GridLines="None">
@@ -243,49 +262,56 @@
function txtSuma(txt) {
var saldo = ToDouble($('#C_lblValorTotal').text());
var comision2 = ToDouble($('#C_TxtComision').val());
var comisionNegativa = 0;
if (comision2 < 0) {
comision2 = comision2 * -1;
debugger;
comisionNegativa = comision2 * -1
}
if (comision2 < ValorTotalSeleccionado) {
comision2 = comision2 - comision
saldo = saldo - comision2;
if (comisionNegativa > ValorTotalSeleccionado) {
$('#C_TxtComision').val(comision)
alert("No es posible poner una comision superior a lo seleccionado")
} else {
saldo = ValorTotalSeleccionado + comision2;
$('#C_lblValorTotal').text(FormatoNumero(saldo, 2));
comision = ToDouble($('#C_TxtComision').val())
if (comision < 0) {
comision = comision * -1;
debugger;
}
} else {
var comisionNegativo = ToDouble($('#C_TxtComision').val());
if (comisionNegativo < 0) {
$('#C_TxtComision').val(comision*-1)
debugger;
} else {
$('#C_TxtComision').val(comision)
}
alert("No es posible poner una comision superior a lo seleccionado")
}
}
if (comision != 0) {
function CheckFaltante(chk) {
if (chk.checked == true) {
$('#DivComision').css("display", "block");
$('#LblSubproyecto').css("display", "block");
$('#divSubProyecto').css("display", "block");
$('#LblClasificacion').css("display", "block");
$('#divClasificacion').css("display", "block");
debugger;
} else {
$('#DivComision').css("display", "none");
$('#LblSubproyecto').css("display", "none");
$('#divSubProyecto').css("display", "none");
$('#LblClasificacion').css("display", "none");
$('#divClasificacion').css("display", "none");
debugger;
}
}
function CheckDescuento(chk) {
if (chk.checked == true) {
$('#DivDescuento').css("display", "block");
$('#LblClasificacionDescuento').css("display", "block");
$('#divClasificacionDescuento').css("display", "block");
debugger;
} else {
$('#DivDescuento').css("display", "none");
$('#LblClasificacionDescuento').css("display", "none");
$('#divClasificacionDescuento').css("display", "none");
debugger;
}
}
</script>

36
Bancos/DepositosCaja.aspx.vb
View File

@@ -24,6 +24,9 @@ Partial Class Bancos_DepositosCaja
TxtComision.Attributes.Add("onKeyUp", "txtSuma(event);")
CargaCuentas()
ChkFaltante.Attributes.Add("onclick", "CheckFaltante(this);")
ChkDescuento.Attributes.Add("onclick", "CheckDescuento(this);")
End If
End Sub
@@ -40,9 +43,13 @@ Partial Class Bancos_DepositosCaja
DdlSubProyectoDeposito.DataSource = GlobalDTSubProyectosUsuarios(UsuarioActual.CveUsuario, -1, UsuarioActual.CveEmpresa)
DdlSubProyectoDeposito.DataBind()
DdlSubProyectos.Items.Insert(0, New ListItem("Seleccione", "-1"))
DdlClasificacion.DataSource = GlobalDTClasificaciones(UsuarioActual.CveEmpresa, UsoClasificacion:=2)
DdlClasificacion.DataBind()
DdlSubProyectos.Items.Insert(0, New ListItem("Seleccione", "-1"))
End Sub
Private Sub BtnConsultar_Click(sender As Object, e As EventArgs) Handles BtnConsultar.Click
@@ -63,15 +70,17 @@ Partial Class Bancos_DepositosCaja
UpGvFacturas.Update()
GvFacturas.DataBind()
lblValorTotal.Text = "0.00"
TxtComision.text = ""
divLabelTotal.Visible = True
DivComision.Visible = True
End Sub
Private Sub BtnDepositar_Click(sender As Object, e As EventArgs) Handles BtnDepositar.Click
Dim TotalImporte As Decimal = 0
Dim TotalImportePrePoliza As Decimal
Dim Comision As Decimal = TxtComision.Text.Todecimal
Dim Comision As Decimal = TxtComision.Text.ToDecimal
Dim Descuento As Decimal = TxtDescuento.Text.ToDecimal
For Each Gvr As GridViewRow In GvFacturas.Rows
If Gvr.FCCheckBox("ChkFactura").Checked Then TotalImporte += Gvr.DataKey("Importe").ToDecimal
@@ -84,8 +93,9 @@ Partial Class Bancos_DepositosCaja
TotalImportePrePoliza = TotalImporte
If Comision <> 0 Then
TotalImporte = TotalImporte + Comision
Comision = -(Comision) ' se inverte el valor, va cargada
TotalImporte = TotalImporte + Comision + Descuento
'Comision = -(Comision) ' se inverte el valor, va cargada
'Descuento = -(Descuento) ' se inverte el valor, va cargada
If DdlSubProyectoDeposito.SelectedValue.ToEntero = -1 Or DdlClasificacion.SelectedValue.ToEntero = -1 Then
Alert("Debes Seleccionar un Subproyecto y una Clasificación", TipoMensaje.MsgAdvertencia)
Exit Sub
@@ -111,6 +121,7 @@ Partial Class Bancos_DepositosCaja
Dim drDestino As DataRow = GlobalDTBancosCuentas(UsuarioActual.CveUsuario, CveCuenta:=DdlCuentaDeposito.SelectedValue.ToEntero, CveEmpresa:=UsuarioActual.CveEmpresa).FiltroPrimero("")
Dim CveSubProyecto As Integer = 0
Dim CveClasificacion As Integer = 0
Dim CveClasificacionDescuento As Integer = 0
Dim documentos As String = "Los Depósitos se realizaron exitósamente<br/><br/>"
Dim imprimirFolios As String = ""
If drOrigen IsNot Nothing Then
@@ -137,13 +148,22 @@ Partial Class Bancos_DepositosCaja
documentos += String.Format("<a href='/Bancos/IE.aspx?CveIE={0}' target='_blank' class='Texto'>Depósito: {1}</a> &nbsp &nbsp <br/> ", CveIEOrigen, FolioIE)
If ObjContabilidad.AddPrePolizasDetalle(NuevaCvePrePoliza, False, TotalImporte, "Depósito Bancario", 30, "Depósito Bancario", Fecha, IdCuentaBancariaOrigen, -1, CveIE:=CveIEOrigen, ImporteMX:=TotalImporte * TipoCambio, CveCuenta:=CveCuentaBancariaOrigen) Then
If ObjContabilidad.AddPrePolizasDetalle(NuevaCvePrePoliza, False, TotalImporte, "Depósito Bancario", 30, "Depósito Bancario", Fecha, IdCuentaBancariaOrigen, -1, CveClasificacion:=CveClasificacion, CveSubProyecto:=CveSubProyecto, CveIE:=CveIEOrigen, ImporteMX:=TotalImporte * TipoCambio, CveCuenta:=CveCuentaBancariaOrigen) Then
If Comision <> 0 Then
If ChkFaltante.Checked Then
CveSubProyecto = DdlSubProyectoDeposito.SelectedValue.ToEntero
CveClasificacion = DdlClasificacion.SelectedValue.ToEntero
If Not ObjContabilidad.AddPrePolizasDetalle(NuevaCvePrePoliza, False, Comision, "Comisión", 51, "Depósito Bancario ", Fecha, IdCuentaBancariaOrigen, -1, CveClasificacion:=CveClasificacion, CveSubProyecto:=CveSubProyecto, ImporteMX:=Comision * TipoCambio, CveCuenta:=CveCuentaBancariaOrigen) Then
If Not ObjContabilidad.AddPrePolizasDetalle(NuevaCvePrePoliza, False, Comision, DdlClasificacion.SelectedItem.Text, 51, DdlClasificacion.SelectedItem.Text, Fecha, IdCuentaBancariaOrigen, -1, CveClasificacion:=CveClasificacion, CveSubProyecto:=CveSubProyecto, ImporteMX:=Comision * TipoCambio, CveCuenta:=CveCuentaBancariaOrigen) Then
OcurrioError = True
End If
End If
If ChkDescuento.Checked Then
CveSubProyecto = DdlSubProyectoDeposito.SelectedValue.ToEntero
CveClasificacionDescuento = DdlClasificacionDescuento.SelectedValue.ToEntero
If Not ObjContabilidad.AddPrePolizasDetalle(NuevaCvePrePoliza, False, Descuento, DdlClasificacionDescuento.SelectedItem.Text, 51, DdlClasificacionDescuento.SelectedItem.Text, Fecha, IdCuentaBancariaOrigen, -1, CveClasificacion:=CveClasificacionDescuento, CveSubProyecto:=CveSubProyecto, ImporteMX:=Comision * TipoCambio, CveCuenta:=CveCuentaBancariaOrigen) Then
OcurrioError = True
End If
End If
@@ -172,7 +192,7 @@ Partial Class Bancos_DepositosCaja
CveIEDestino = ObjBancos.AddBancos_IE(DdlCajaChica.SelectedValue.ToEntero, 2, Fecha, FolioIE.ToString, String.Format("Depósito Bancario: {0}", SerieFolio), Importe, CveMoneda, 1, "Depósito Bancario", "", False, False, -1, NuevaCvePrePoliza, "-1", UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa)
If Not ObjContabilidad.AddPrePolizasDetalle(NuevaCvePrePoliza, True, Importe, SerieFolio, 30, String.Format("Depósito Bancario: {0}", SerieFolio), Fecha, IdCuentaBancariaDestino, -1, CveIE:=CveIEDestino, ImporteMX:=Importe * TipoCambio, CveCuenta:=CveCuentaBancariaDestino) Then
If Not ObjContabilidad.AddPrePolizasDetalle(NuevaCvePrePoliza, True, Importe, SerieFolio, 30, String.Format("Depósito Bancario: {0}", SerieFolio), Fecha, IdCuentaBancariaDestino, -1, CveClasificacion:=CveClasificacion, CveSubProyecto:=CveSubProyecto, CveIE:=CveIEDestino, ImporteMX:=Importe * TipoCambio, CveCuenta:=CveCuentaBancariaDestino) Then
OcurrioError = True
End If

2
Bancos/ProveedoresAbonar.aspx
View File

@@ -122,6 +122,8 @@
<ajax:ValidatorCalloutExtender ID="ValidatorCalloutExtender1" runat="server" HighlightCssClass="vco" TargetControlID="MEVCalendario" Width="350px"></ajax:ValidatorCalloutExtender>
<asp:RangeValidator ID="RVTxtFechaDocumento" runat="server" Display="None" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b> <br/> La fecha del documento no puede ser superior a la fecha actual" ControlToValidate="TxtFechaDocumento" MinimumValue="01/01/1900" Type="Date" ValidationGroup="GrpGuardar"></asp:RangeValidator>
<ajax:ValidatorCalloutExtender ID="VCOFechaDocumento3" runat="server" HighlightCssClass="vco" TargetControlID="RVTxtFechaDocumento" Width="350px"></ajax:ValidatorCalloutExtender>
<asp:RangeValidator ID="RVTxtFechaDocumentoMenor" runat="server" Display="None" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b> <br/> La fecha del documento no puede ser superior a la fecha actual" ControlToValidate="TxtFechaDocumento" MinimumValue="01/01/1900" Type="Date" ValidationGroup="GrpGuardar"></asp:RangeValidator>
<ajax:ValidatorCalloutExtender ID="VCOFechaDocumento4" runat="server" HighlightCssClass="vco" TargetControlID="RVTxtFechaDocumentoMenor" Width="350px"></ajax:ValidatorCalloutExtender>
</div>
</div>

3
Bancos/ProveedoresAbonar.aspx.vb
View File

@@ -389,7 +389,7 @@ Partial Class Bancos_ProveedoresAbonar
If UsuarioActual.TienePermisoProceso(98) Then
PermiteModificarImporte = False
End If
Calendario.StartDate = Now.AddMonths(-2)
Calendario.StartDate = Now.AddMonths(-4)
'proceso que restringue solo el pago de apartir del dia de hoy y como limite fin de mes
If UsuarioActual.TienePermisoProceso(105) Then
Calendario.StartDate = Now
@@ -3391,6 +3391,7 @@ Partial Class Bancos_ProveedoresAbonar
Private Sub RVTxtFechaDocumento_Init(sender As Object, e As EventArgs) Handles RVTxtFechaDocumento.Init
RVTxtFechaDocumento.MaximumValue = DateTime.Now.ToShortDateString
RVTxtFechaDocumentoMenor.MinimumValue = DateTime.Now.AddMonths(-4).ToShortDateString
Calendario.EndDate = DateTime.Now
End Sub

1
CRM/CatEmpresasCRM.aspx.cs
View File

@@ -64,6 +64,7 @@ public partial class CRM_CatEmpresasCRM : ClsPaginas
{
DdlMedioCaptacion.DataSource = ObjCRM.DtResultados.FiltraParametros(String.Format("CveTipoProceso = {0}",DdlTipoProceso.SelectedValue));
DdlMedioCaptacion.DataBind();
DdlMedioCaptacion.Items.Insert(0, new ListItem("Todos", "-1"));
}
ObjCRM.Dispose();
}

158
Empresas/Grales/Formatos/RepTraspasoAlmacen.rdlc
View File

@@ -80,31 +80,34 @@
<TablixBody>
<TablixColumns>
<TablixColumn>
<Width>1.23101cm</Width>
<Width>0.96643cm</Width>
</TablixColumn>
<TablixColumn>
<Width>1.98488cm</Width>
<Width>1.69333cm</Width>
</TablixColumn>
<TablixColumn>
<Width>1.74675cm</Width>
</TablixColumn>
<TablixColumn>
<Width>1.51446cm</Width>
</TablixColumn>
<TablixColumn>
<Width>3.83319cm</Width>
<Width>3.74919cm</Width>
</TablixColumn>
<TablixColumn>
<Width>6.041cm</Width>
<Width>6.22158cm</Width>
</TablixColumn>
<TablixColumn>
<Width>2.20896cm</Width>
<Width>1.57859cm</Width>
</TablixColumn>
<TablixColumn>
<Width>2.31165cm</Width>
<Width>2.32298cm</Width>
</TablixColumn>
<TablixColumn>
<Width>2.50891cm</Width>
<Width>2.21787cm</Width>
</TablixColumn>
<TablixColumn>
<Width>2.5778cm</Width>
<Width>2.36613cm</Width>
</TablixColumn>
</TablixColumns>
<TablixRows>
@@ -122,7 +125,7 @@
<TextRun>
<Value>Folio</Value>
<Style>
<FontSize>9pt</FontSize>
<FontSize>8pt</FontSize>
<FontWeight>Bold</FontWeight>
</Style>
</TextRun>
@@ -167,6 +170,62 @@
</Textbox>
</CellContents>
</TablixCell>
<TablixCell>
<CellContents>
<Textbox Name="Textbox6">
<CanGrow>true</CanGrow>
<KeepTogether>true</KeepTogether>
<Paragraphs>
<Paragraph>
<TextRuns>
<TextRun>
<Value>Fecha Mov</Value>
<Style>
<FontSize>8pt</FontSize>
<FontWeight>Bold</FontWeight>
</Style>
</TextRun>
</TextRuns>
<Style>
<TextAlign>Center</TextAlign>
</Style>
</Paragraph>
</Paragraphs>
<rd:DefaultName>Textbox6</rd:DefaultName>
<Style>
<Border>
<Color>LightGrey</Color>
<Style>Solid</Style>
</Border>
<TopBorder>
<Color>Black</Color>
<Style>Solid</Style>
<Width>1pt</Width>
</TopBorder>
<BottomBorder>
<Color>Black</Color>
<Style>Solid</Style>
<Width>1pt</Width>
</BottomBorder>
<LeftBorder>
<Color>Black</Color>
<Style>Solid</Style>
<Width>1pt</Width>
</LeftBorder>
<RightBorder>
<Color>Black</Color>
<Style>Solid</Style>
<Width>1pt</Width>
</RightBorder>
<BackgroundColor>Silver</BackgroundColor>
<PaddingLeft>2pt</PaddingLeft>
<PaddingRight>2pt</PaddingRight>
<PaddingTop>2pt</PaddingTop>
<PaddingBottom>2pt</PaddingBottom>
</Style>
</Textbox>
</CellContents>
</TablixCell>
<TablixCell>
<CellContents>
<Textbox Name="Textbox3">
@@ -178,7 +237,7 @@
<TextRun>
<Value>Disponible</Value>
<Style>
<FontSize>9pt</FontSize>
<FontSize>8pt</FontSize>
<FontWeight>Bold</FontWeight>
</Style>
</TextRun>
@@ -234,7 +293,7 @@
<TextRun>
<Value>Unidad</Value>
<Style>
<FontSize>9pt</FontSize>
<FontSize>8pt</FontSize>
<FontWeight>Bold</FontWeight>
</Style>
</TextRun>
@@ -290,7 +349,7 @@
<TextRun>
<Value>Código</Value>
<Style>
<FontSize>9pt</FontSize>
<FontSize>8pt</FontSize>
<FontWeight>Bold</FontWeight>
</Style>
</TextRun>
@@ -346,7 +405,7 @@
<TextRun>
<Value>Producto</Value>
<Style>
<FontSize>9pt</FontSize>
<FontSize>8pt</FontSize>
<FontWeight>Bold</FontWeight>
</Style>
</TextRun>
@@ -402,7 +461,7 @@
<TextRun>
<Value>Valor</Value>
<Style>
<FontSize>9pt</FontSize>
<FontSize>8pt</FontSize>
<FontWeight>Bold</FontWeight>
</Style>
</TextRun>
@@ -458,7 +517,7 @@
<TextRun>
<Value>Alm. Origen</Value>
<Style>
<FontSize>9pt</FontSize>
<FontSize>8pt</FontSize>
<FontWeight>Bold</FontWeight>
</Style>
</TextRun>
@@ -514,7 +573,7 @@
<TextRun>
<Value>Alm. Destino</Value>
<Style>
<FontSize>9pt</FontSize>
<FontSize>8pt</FontSize>
<FontWeight>Bold</FontWeight>
</Style>
</TextRun>
@@ -570,7 +629,7 @@
<TextRun>
<Value>Responsable</Value>
<Style>
<FontSize>9pt</FontSize>
<FontSize>8pt</FontSize>
<FontWeight>Bold</FontWeight>
</Style>
</TextRun>
@@ -654,6 +713,43 @@
</Textbox>
</CellContents>
</TablixCell>
<TablixCell>
<CellContents>
<Textbox Name="FechaMovto">
<CanGrow>true</CanGrow>
<KeepTogether>true</KeepTogether>
<Paragraphs>
<Paragraph>
<TextRuns>
<TextRun>
<Value>=IIf(CStr(Fields!FechaMovto.Value) = "" , "", FormatDateTime(CDate(Fields!FechaMovto.Value), DateFormat.ShortDate))</Value>
<Style>
<FontSize>7pt</FontSize>
<FontWeight>=IIf(Fields!PS.Value = "", "Bold", "Default")</FontWeight>
<Color>=IIf(Fields!PS.Value = "", "White", "Black")</Color>
</Style>
</TextRun>
</TextRuns>
<Style>
<TextAlign>Center</TextAlign>
</Style>
</Paragraph>
</Paragraphs>
<rd:DefaultName>FechaMovto</rd:DefaultName>
<Style>
<Border>
<Style>None</Style>
</Border>
<BackgroundColor>=IIf(Fields!PS.Value = "", "#9cacc1", "NoColor")</BackgroundColor>
<PaddingLeft>2pt</PaddingLeft>
<PaddingRight>2pt</PaddingRight>
<PaddingTop>2pt</PaddingTop>
<PaddingBottom>2pt</PaddingBottom>
</Style>
</Textbox>
<rd:Selected>true</rd:Selected>
</CellContents>
</TablixCell>
<TablixCell>
<CellContents>
<Textbox Name="Cantidad">
@@ -953,6 +1049,7 @@
<TablixMember />
<TablixMember />
<TablixMember />
<TablixMember />
</TablixMembers>
</TablixColumnHierarchy>
<TablixRowHierarchy>
@@ -971,9 +1068,8 @@
<FixedRowHeaders>true</FixedRowHeaders>
<DataSetName>DataSet1</DataSetName>
<Top>0.17639cm</Top>
<Left>0.24474cm</Left>
<Height>1.0148cm</Height>
<Width>24.21186cm</Width>
<Width>24.37731cm</Width>
<Style>
<Border>
<Style>None</Style>
@@ -984,7 +1080,7 @@
<Height>0.67394in</Height>
<Style />
</Body>
<Width>9.62858in</Width>
<Width>9.69372in</Width>
<Page>
<PageHeader>
<Height>3.48078cm</Height>
@@ -1012,7 +1108,7 @@
<rd:DefaultName>Textbox1</rd:DefaultName>
<Top>0.47625cm</Top>
<Height>0.6cm</Height>
<Width>24.4566cm</Width>
<Width>24.62205cm</Width>
<Style>
<Border>
<Style>None</Style>
@@ -1059,7 +1155,7 @@
<rd:DefaultName>Textbox2</rd:DefaultName>
<Top>1.07625cm</Top>
<Height>0.52945cm</Height>
<Width>24.4566cm</Width>
<Width>24.62205cm</Width>
<ZIndex>1</ZIndex>
<Style>
<Border>
@@ -1076,9 +1172,8 @@
<Value>=Parameters!LogoPath.Value</Value>
<Sizing>FitProportional</Sizing>
<Top>0.11458in</Top>
<Left>0.24474cm</Left>
<Height>2.09585cm</Height>
<Width>24.21186cm</Width>
<Width>24.37731cm</Width>
<ZIndex>2</ZIndex>
<Style>
<Border>
@@ -1105,9 +1200,8 @@
</Paragraphs>
<rd:DefaultName>Filtros</rd:DefaultName>
<Top>2.56328cm</Top>
<Left>0.24474cm</Left>
<Height>0.6cm</Height>
<Width>24.21186cm</Width>
<Width>24.37731cm</Width>
<ZIndex>3</ZIndex>
<Style>
<Border>
@@ -1121,9 +1215,8 @@
</Textbox>
<Line Name="Line1">
<Top>3.30439cm</Top>
<Left>0.24474cm</Left>
<Height>0cm</Height>
<Width>24.21186cm</Width>
<Width>24.37731cm</Width>
<ZIndex>4</ZIndex>
<Style>
<Border>
@@ -1163,8 +1256,8 @@
</Paragraph>
</Paragraphs>
<rd:DefaultName>Textbox3</rd:DefaultName>
<Top>0.26458cm</Top>
<Left>19.41703cm</Left>
<Top>0.29986cm</Top>
<Left>19.97266cm</Left>
<Height>0.38981cm</Height>
<Width>3.13456cm</Width>
<Style>
@@ -1281,9 +1374,8 @@
</Textbox>
<Line Name="Line2">
<Top>0.15875cm</Top>
<Left>0.24474cm</Left>
<Height>0cm</Height>
<Width>24.21186cm</Width>
<Width>24.37731cm</Width>
<ZIndex>4</ZIndex>
<Style>
<Border>
@@ -1312,7 +1404,7 @@
</Paragraphs>
<rd:DefaultName>Textbox11</rd:DefaultName>
<Top>0.27341cm</Top>
<Left>12.77526cm</Left>
<Left>13.19859cm</Left>
<Height>0.38981cm</Height>
<Width>5.41606cm</Width>
<ZIndex>5</ZIndex>

2
General/SaldosIniciales.aspx.vb
View File

@@ -2002,7 +2002,7 @@ Partial Class General_SaldosIniciales
CveSubProyecto = DataTemp.FiltroPrimeroValor("CveSubProyecto", "").ToEntero
End If
Cuenta = Cuenta.Replace(" ", "")
If ObjConta.GetCuentas(-1, Cuenta.Replace("-", ""), 1, UsuarioActual.CveEmpresa) Then
If ObjConta.GetCuentas(-1, Cuenta.Replace("-", "").Trim, 1, UsuarioActual.CveEmpresa) Then
If ObjConta.DtResultados.Rows.Count > 0 Then
IdCuenta = ObjConta.DtResultados().FiltroPrimeroValor("CveCuenta").ToEntero
'TipoCuenta = ObjConta.DtResultados().FiltroPrimeroValor("Tipo")

87
Nomina/Nomina2.aspx
View File

@@ -159,6 +159,12 @@
<li>
<asp:LinkButton ID="LnkTimbrarTodos" Visible="false" OnClick="LnkTimbrarTodos_Click" runat="server"><i class="fa fa-bell"></i> Timbrar todos</asp:LinkButton>
</li>
<li>
<asp:LinkButton ID="LnkAsistenciaIncidencias" Visible="true" OnClick="LnkAsistenciaIncidencias_Click" runat="server"><i class="fa fa-check-square"></i>Incidencias asistencia </asp:LinkButton>
</li>
<li>
<asp:LinkButton ID="LnkReporteAcumulados" Visible="true" OnClick="LnkReporteAcumulados_Click" runat="server"><i class="fa fa-line-chart"></i>Reporte acumulados </asp:LinkButton>
</li>
<li>
<asp:LinkButton ID="LnkConceptoEmpleado" OnClick="LnkConceptoEmpleado_Click" runat="server"><i class="fa fa-plus"></i> Empleado concepto</asp:LinkButton>
</li>
@@ -197,7 +203,7 @@
<asp:PostBackTrigger ControlID="LnkListaRaya" />
<asp:PostBackTrigger ControlID="LnkFormatoTabular" />
<asp:PostBackTrigger ControlID="LnkLayoutContable" />
</Triggers>
</asp:UpdatePanel>
@@ -1123,7 +1129,7 @@
</div>
</div>
<div class="portlet-body">
<asp:UpdatePanel ID="UpGvVacaciones" runat="server" UpdateMode="Conditional">
<ContentTemplate>
<asp:GridView ID="GvVacaciones" Width="100%" runat="server" GridLines="None" BorderWidth="0" data-heighterror="330" data-freezecols="0" data-freezerows="1"
@@ -1155,7 +1161,7 @@
</asp:GridView>
</ContentTemplate>
<Triggers>
<%--<asp:PostBackTrigger ="LnkListaRaya" />--%>
<%--<asp:AsyncPostBackTrigger EventName="DownLoad_ClickSolicitudVacaciones" />
<asp:AsyncPostBackTrigger EventName="DownLoad_ClickSolicitudAutorizacion" />--%>
@@ -1546,7 +1552,7 @@
<ajax:ValidatorCalloutExtender ID="vcoTxtFechaPRT" runat="server" HighlightCssClass="vco" TargetControlID="RfvTxtFechaPRT" Width="350px"></ajax:ValidatorCalloutExtender>
</div>
<div class="col-md-4">
<asp:LinkButton ID="LnkupPrimaRiesgo" OnClick="LnkupPrimaRiesgo_Click" CssClass ="btn btn-primary" ValidationGroup="GrpGuardarprimariesgo" runat="server">Actualizar</asp:LinkButton>
<asp:LinkButton ID="LnkupPrimaRiesgo" OnClick="LnkupPrimaRiesgo_Click" CssClass="btn btn-primary" ValidationGroup="GrpGuardarprimariesgo" runat="server">Actualizar</asp:LinkButton>
</div>
</div>
</div>
@@ -1949,7 +1955,80 @@
</asp:UpdatePanel>
</div>
<div id="DmodalReporteAcumulados" class="modal ADS fade" role="dialog">
<div class="modal-dialog" tabindex="-1">
<div class="modal-content rowpadding">
<div class="modal-header">
<button type="button" class="close" data-dismiss="modal" aria-label="Close">
<span aria-hidden="true">&times;</span>
</button>
<h4 class="modal-title" runat="server" style="text-align: left">Reporte de incidencias</h4>
</div>
<div class="modal-body">
<asp:UpdatePanel ID="upperiodoreporte" runat="server" UpdateMode="Conditional">
<ContentTemplate>
<div class="row">
<div class="col-md-6">
<div class="form-group form-md-line-input input-iconright">
<asp:TextBox ID="TxtPeriodo" CssClass="form-control input-sm " runat="server"></asp:TextBox>
<asp:Label runat="server" AssociatedControlID="TxtPeriodo">Periodo(aaaaMM)</asp:Label>
</div>
</div>
</div>
</ContentTemplate>
</asp:UpdatePanel>
</div>
<div class="modal-footer">
<asp:LinkButton ID="LnkProcesarReporteAcumulados" OnClick="LnkProcesarReporteAcumulados_Click" CssClass="btn btn-primary" runat="server">Descargar</asp:LinkButton>
<button type="button" class="btn btn-danger" data-dismiss="modal">Cancelar</button>
</div>
</div>
</div>
</div>
<div id="DmodalReporteInicidencia" class="modal ADS fade" role="dialog">
<div class="modal-dialog" tabindex="-1">
<div class="modal-content rowpadding">
<div class="modal-header">
<button type="button" class="close" data-dismiss="modal" aria-label="Close">
<span aria-hidden="true">&times;</span>
</button>
<h4 class="modal-title" runat="server" style="text-align: left">Reporte de incidencias</h4>
</div>
<div class="modal-body">
<div class="row">
<div class="col-md-6">
<div class="form-group form-md-line-input input-iconright">
<asp:TextBox ID="TxtRIFechaInicio" CssClass="form-control input-sm ADSMaskDate" Style="width: 118px" runat="server"></asp:TextBox>
<asp:Label runat="server" AssociatedControlID="TxtRIFechaInicio">Fecha Inicio</asp:Label>
<ajax:MaskedEditExtender ID="MaskedEditExtender1" runat="server" TargetControlID="TxtRIFechaInicio" Mask="99/99/9999" MaskType="Date" DisplayMoney="Left" AcceptNegative="Left"></ajax:MaskedEditExtender>
<ajax:CalendarExtender runat="server" ID="CalendarExtender1" TargetControlID="TxtRIFechaInicio" PopupPosition="BottomRight" Enabled="True" Format="dd/MM/yyyy"></ajax:CalendarExtender>
<asp:RequiredFieldValidator ID="rfvRIFechaInicio" runat="server" ControlToValidate="TxtRIFechaInicio" Display="None" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Fecha Inicio''</b> es necesario, por favor ingréselo." ValidationGroup="VGReporteInicidencia"></asp:RequiredFieldValidator>
<ajax:ValidatorCalloutExtender ID="VcorfvRIFechaInicio" runat="server" HighlightCssClass="vco" TargetControlID="rfvRIFechaInicio"></ajax:ValidatorCalloutExtender>
</div>
</div>
<div class="col-md-6">
<div class="form-group form-md-line-input input-iconright">
<asp:TextBox ID="TxtRIFechaFin" CssClass="form-control input-sm ADSMaskDate" Style="width: 118px" runat="server"></asp:TextBox>
<asp:Label runat="server" AssociatedControlID="TxtRIFechaFin">Fecha Fin</asp:Label>
<ajax:MaskedEditExtender ID="MaskedEditExtender2" runat="server" TargetControlID="TxtRIFechaFin" Mask="99/99/9999" MaskType="Date" DisplayMoney="Left" AcceptNegative="Left"></ajax:MaskedEditExtender>
<ajax:CalendarExtender runat="server" ID="CalendarExtender2" TargetControlID="TxtRIFechaFin" PopupPosition="BottomRight" Enabled="True" Format="dd/MM/yyyy"></ajax:CalendarExtender>
<asp:RequiredFieldValidator ID="rfvRIFechaFin" runat="server" ControlToValidate="TxtRIFechaFin" Display="None" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Fecha Fin''</b> es necesario, por favor ingréselo." ValidationGroup="VGReporteInicidencia"></asp:RequiredFieldValidator>
<ajax:ValidatorCalloutExtender ID="VcorfvRIFechaFin" runat="server" HighlightCssClass="vco" TargetControlID="rfvRIFechaFin"></ajax:ValidatorCalloutExtender>
</div>
</div>
</div>
</div>
<div class="modal-footer">
<asp:LinkButton ID="LnkProcesarReporteIncidencia" OnClick="LnkProcesarReporteIncidencia_Click" ValidationGroup="VGReporteInicidencia" CssClass="btn btn-primary" runat="server">Descargar</asp:LinkButton>
<button type="button" class="btn btn-danger" data-dismiss="modal">Cancelar</button>
</div>
</div>
</div>
</div>
<div id="DmodalCompareSua" class="modal ADS fade" role="dialog">
<asp:UpdatePanel ID="UpArchivoSua" class="modal-dialog" tabindex="-1" runat="server" UpdateMode="Conditional">
<ContentTemplate>

100
Nomina/Nomina2.aspx.cs
View File

@@ -181,6 +181,7 @@ public partial class Nomina_Nomina2 : ClsPaginas
{
if (!IsPostBack)
{
TxtPeriodo.Text = $"{DateTime.Now :yyyyMM}";
CargarCentrosDeCosto(DdlProyecto, null, LblProyecto, LblSubProyeccto);
cargaEjercicios();
CargaTiposPeriodo();
@@ -390,6 +391,8 @@ public partial class Nomina_Nomina2 : ClsPaginas
UpAccciones.Update();
}
LnkListaRaya.Visible = true;
LnkAsistenciaIncidencias.Visible = true;
LnkFormatoTabular.Visible = true;
HypPDFSTimbrados.Visible = true;
if (objnom.GetNominaEmpleado(FiltCveProyecto, FiltCveSubProyecto, FiltCveTurno, FiltCvePeriodo, CveEmpresa, FiltAgrupador, DdlRegimenContratacion.SelectedValue.ToEntero()) && objnom.DTSetResultados.Tables.Count > 1)
@@ -5678,5 +5681,102 @@ public partial class Nomina_Nomina2 : ClsPaginas
}
}
protected void LnkAsistenciaIncidencias_Click(object sender, EventArgs e)
{
RegistraScript("$('#DmodalReporteInicidencia').modal()");
}
protected void LnkProcesarReporteIncidencia_Click(object sender, EventArgs e)
{
DateTime fechai = TxtRIFechaInicio.Text.ToDateTime();
DateTime fechaf = TxtRIFechaFin.Text.ToDateTime();
ClosedXML.Excel.XLWorkbook wb = new ClosedXML.Excel.XLWorkbook();
using (ClsNominas nom = new ClsNominas())
{
if (nom.ReportedeincidenciasGET(UsuarioActual.CveEmpresa, fechai, fechaf, 4))
{
var libro = wb.AddWorksheet(nom.DTSetResultados.Tables[2], "Incidencias");
libro.ColumnsUsed().AdjustToContents();
var libroin = wb.AddWorksheet(nom.DTSetResultados.Tables[1], "Descripción incidencias");
libro.ColumnsUsed().AdjustToContents();
libro.Row(1).InsertRowsAbove(4);
libro.Range(1, 2, 1, 6).Merge().Value = UsuarioActual.Empresa.Empresa;
libro.Range(2, 2, 2, 6).Merge().Value = "Reporte de incidencias";
libro.Range(3, 2, 3, 6).Merge().Value = $"del {fechai:dd/MM/yyyy} al {fechaf:dd/MM/yyyy}";
libro.Range(2, 7, 2, 9).Merge().Value = $"Fecha:{DateTime.Now:dd/MM/yyyy}";
libro.Range(3, 7, 3, 9).Merge().Value = $"Hora:{DateTime.Now:HH:mm}";
//ws.Row(1).InsertRowsAbove(1);
}
}
System.IO.Stream fs = new System.IO.MemoryStream();
wb.SaveAs(fs);
fs.Position = 0;
System.IO.MemoryStream memoryStream = new System.IO.MemoryStream();
using (System.IO.Stream input = fs)
{
input.CopyTo(memoryStream);
}
memoryStream.Position = 0;
Response.Clear();
Response.Buffer = true;
Response.ContentType = "application/vnd.openxmlformats-officedocument.spreadsheetml.sheet";
Response.AddHeader("content-disposition", string.Format("attachment;filename=incidencias del al{0}.xlsx", ""));
Response.BinaryWrite(memoryStream.ToArray());
Response.End();
}
protected void LnkProcesarReporteAcumulados_Click(object sender, EventArgs e)
{
DateTime fechai = TxtRIFechaInicio.Text.ToDateTime();
DateTime fechaf = TxtRIFechaFin.Text.ToDateTime();
ClosedXML.Excel.XLWorkbook wb = new ClosedXML.Excel.XLWorkbook();
using (ClsNominas nom = new ClsNominas())
{
if (nom.ReportedeAcumuladosGET(UsuarioActual.CveEmpresa, TxtPeriodo.Text.ToEntero(), 4))
{
var libro = wb.AddWorksheet(nom.DTSetResultados.Tables[0], "Acumulados");
libro.ColumnsUsed().AdjustToContents();
//ws.Row(1).InsertRowsAbove(1);
}
}
System.IO.Stream fs = new System.IO.MemoryStream();
wb.SaveAs(fs);
fs.Position = 0;
System.IO.MemoryStream memoryStream = new System.IO.MemoryStream();
using (System.IO.Stream input = fs)
{
input.CopyTo(memoryStream);
}
memoryStream.Position = 0;
Response.Clear();
Response.Buffer = true;
Response.ContentType = "application/vnd.openxmlformats-officedocument.spreadsheetml.sheet";
Response.AddHeader("content-disposition", string.Format("attachment;filename=Acumulados.xlsx", ""));
Response.BinaryWrite(memoryStream.ToArray());
Response.End();
}
protected void LnkReporteAcumulados_Click(object sender, EventArgs e)
{
RegistraScript("$('#DmodalReporteAcumulados').modal()");
}
}

12
OC/OC.aspx
View File

@@ -2757,19 +2757,23 @@
<asp:TemplateField HeaderText="Producto">
<ItemTemplate>
<asp:Label ID="LblPS" runat="server" CssClass="Texto" Text='<%# Eval("PS")%>' Width="250px"></asp:Label>
<asp:Label ID="LblPS" runat="server" CssClass="Texto" Text='<%# Eval("PS")%>'></asp:Label>
</ItemTemplate>
</asp:TemplateField>
<asp:TemplateField HeaderText="Cant. Max" ItemStyle-HorizontalAlign="Right">
<ItemTemplate>
<span><%# Eval("CantidadMax", "{0:N2}")%></span>
</ItemTemplate>
</asp:TemplateField>
<asp:TemplateField HeaderText="Cantidad">
<ItemTemplate>
<asp:TextBox ID="TxtCantidad" Text="" CssClass="txtcant" onkeyup="ValidateCant(this)" type="number" step="any"
data-cantidad='<%# Eval("CantidadMax")%>' data-pu='<%# Eval("PU")%>' data-cve='<%# Eval("CveContratoDetalle") %>'
Width="90" runat="server"></asp:TextBox>
Width="70" runat="server"></asp:TextBox>
</ItemTemplate>
</asp:TemplateField>
<asp:TemplateField HeaderText="PU">
<asp:TemplateField HeaderText="PU" ItemStyle-HorizontalAlign="Right">
<ItemTemplate>
<span><%# Eval("PU", "{0:N2}")%></span>
</ItemTemplate>

87
RH/Personal.aspx
View File

@@ -35,7 +35,7 @@
<asp:LinkButton ID="ImgImprimirExpediente" Visible="false" runat="server"> <i class="fa fa-file-pdf-o" style="font-weight:bold;"></i> Expediente de personal</asp:LinkButton>
</li>
<li>
<asp:LinkButton ID="LbGafete" runat="server" CssClass="" Text="Gafete" />
<asp:LinkButton ID="LbGafete" runat="server" CssClass=""><i class="fa fa-list-alt"></i> Gafete</asp:LinkButton>
</li>
<li>
@@ -85,10 +85,10 @@
</li>
<li>
<asp:LinkButton ID="LnkCalcularFactor" OnClick="LnkCalcularFactor_Click" runat="server"><i class="fa fa-list-alt"></i> Calcular factor de integracion</asp:LinkButton>
<asp:LinkButton ID="LnkCalcularFactor" OnClick="LnkCalcularFactor_Click" runat="server"><i class="fa fa-list-alt"></i> Calcular factor de integración</asp:LinkButton>
</li>
<li>
<asp:LinkButton ID="LnkModsalario" OnClick="LnkModsalario_Click" runat="server"><i class="fa fa-pencil"></i>Modificar salario </asp:LinkButton>
<asp:LinkButton ID="LnkModsalario" OnClick="LnkModsalario_Click" runat="server"><i class="fa fa-pencil"></i> Modificar salario </asp:LinkButton>
</li>
</ContentTemplate>
</asp:UpdatePanel>
@@ -453,9 +453,10 @@
</div>
<div class="portlet-body form">
<div class="form-group form-md-line-input input-iconright">
<label for="<%= TxtFechaInicioContrato.ClientID.ToString()%>">Fecha Inicio Contrato: </label>
<div class="input-group input-sm date date-picker" data-date-format="dd/mm/yyyy" style="padding: 5px 0px;">
<asp:TextBox ID="TxtFechaInicioContrato" runat="server" CausesValidation="True" CssClass="form-control input-sm"></asp:TextBox>
<label for="<%= TxtFechaInicioContrato.ClientID.ToString()%>" style="margin-top: -10px;">Fecha Inicio Contrato: </label>
<span class="input-group-btn ">
<asp:LinkButton ID="ImgFechaInicioContrato" class="btn default " Text="<i class='fa fa-calendar'></i>" runat="server"></asp:LinkButton>
</span>
@@ -467,9 +468,10 @@
</div>
<div class="form-group form-md-line-input input-iconright">
<label for="<%= TxtFechaFinContrato.ClientID.ToString()%>">Fecha Fin Contrato: </label>
<div class="input-group input-sm date date-picker" data-date-format="dd/mm/yyyy" style="padding: 5px 0px;">
<asp:TextBox ID="TxtFechaFinContrato" runat="server" CausesValidation="True" CssClass="form-control input-sm"></asp:TextBox>
<label for="<%= TxtFechaFinContrato.ClientID.ToString()%>" style="margin-top: -10px;">Fecha Fin Contrato: </label>
<span class="input-group-btn ">
<asp:LinkButton ID="ImgFechaFinContrato" class="btn default " Text="<i class='fa fa-calendar'></i>" runat="server"></asp:LinkButton>
</span>
@@ -568,13 +570,13 @@
</div>
<div class="portlet-body form">
<div class="form-group form-md-line-input input-iconright">
<label class="col-md-1 truncate" style ="width: 100px; margin-top: -10px; margin-left: -15px; margin-bottom: 4px; color: #888888; font-size: 13px">Cliente: </label>
<ADS:Dropdownlost CssClassDdl="form-control input-sm select2me" ID="DdlClienteAsignado" Width="100%" data-metodo="getcliente" runat="server" DataTextField="Nombre" DataValueField="CveCliente" CssStyle="width: 100%;"></ADS:Dropdownlost>
<%--<asp:DropDownList Width ="100%" ID="DdlClienteAsignado" runat="server" AppendDataBoundItems="True" DataTextField="Nombre" DataValueField="CveCliente" CssClass="form-control input-sm select2me" ValidationGroup="GrpGuardar">
<asp:ListItem Selected="True" Text="Sin Cliente asignado" Value="-1"></asp:ListItem>
</asp:DropDownList>--%>
<label for="<%= DdlClienteAsignado.ClientID.ToString()%>">Cliente: </label>
<%--<label for="<%= DdlClienteAsignado.ClientID.ToString()%>">Cliente: </label>--%>
<i></i>
</div>
<div class="form-group form-md-line-input input-iconright" runat="server" id="DivProyectosAsignado">
@@ -640,6 +642,7 @@
<div class="input-group input-sm date date-picker" data-date-format="dd/mm/yyyy" style="padding: 5px 0px;">
<asp:TextBox ID="TxtFechaActivo" runat="server" CausesValidation="True" CssClass="form-control input-sm"></asp:TextBox>
<label for="<%= TxtFechaActivo.ClientID.ToString()%>" style=" margin-top: -10px;">Fecha Activo: </label>
<span class="input-group-btn ">
<asp:LinkButton ID="ImgFechaActivo" class="btn default " Text="<i class='fa fa-calendar'></i>" runat="server"></asp:LinkButton>
</span>
@@ -649,6 +652,7 @@
<asp:CompareValidator ID="CVFTxtFechaActivo" runat="server" ControlToValidate="TxtFechaActivo" Display="None" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Fecha Activo''</b> no tiene el formato correcto, por favor intente de nuevo con el siguiente formato: (dd/mm/yyyy)." Operator="DataTypeCheck" Type="Date" ValidationGroup="GrpGuardar" Visible="False"></asp:CompareValidator>
<asp:RequiredFieldValidator ID="RfvTxtFechaActivo" runat="server" ControlToValidate="TxtFechaActivo" CssClass="help-block errorimput" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Fecha de Activo''</b> es necesario " ValidationGroup="GrpGuardar"></asp:RequiredFieldValidator>
<i></i>
</div>
@@ -657,6 +661,8 @@
<div class="input-group input-sm date date-picker" data-date-format="dd/mm/yyyy" style="padding: 5px 0px;">
<asp:TextBox ID="TxtFechaBaja" runat="server" CausesValidation="True" CssClass="form-control input-sm"></asp:TextBox>
<label style=" margin-top: -10px;" for="<%= TxtFechaBaja.ClientID.ToString()%>">Fecha Baja: </label>
<span class="input-group-btn ">
<asp:LinkButton ID="ImgFechaBaja" class="btn default " Text="<i class='fa fa-calendar'></i>" runat="server"></asp:LinkButton>
</span>
@@ -667,12 +673,15 @@
<asp:RequiredFieldValidator ID="RfvTxtFechaBaja" runat="server" ControlToValidate="TxtFechaBaja" CssClass="help-block errorimput" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Fecha de Baja''</b> es necesario " ValidationGroup="GrpGuardar"></asp:RequiredFieldValidator>
<i></i>
</div>
<div runat="server" id="DivFechaReingreso" visible="true" class="form-group form-md-line-input input-iconright">
<div class="input-group input-sm date date-picker" data-date-format="dd/mm/yyyy" style="padding: 5px 0px;">
<asp:TextBox ID="TxtFechaReingreso" runat="server" CausesValidation="True" CssClass="form-control input-sm"></asp:TextBox>
<label for="<%= TxtFechaReingreso.ClientID.ToString()%>" style=" margin-top: -10px;">Fecha Reingreso: </label>
<span class="input-group-btn ">
<asp:LinkButton ID="ImgFechaReingreso" class="btn default " Text="<i class='fa fa-calendar'></i>" runat="server"></asp:LinkButton>
</span>
@@ -1034,7 +1043,7 @@
<ContentTemplate>
<asp:GridView ID="GvBancosCuentas" GridLines="None" BorderColor="#D3D3D3" BorderWidth="1" CssClass="table table-striped table-hover Widthall" Style="table-layout: fixed" runat="server"
DataKeyNames="CveCuentaDeposito" AutoGenerateColumns="False" ShowHeaderWhenEmpty="true">
DataKeyNames="CveCuentaDeposito,CveSATBanco,Cuenta,CLABE,EstatusPagoElectronico,EstatusTexto,CveMoneda" AutoGenerateColumns="False" ShowHeaderWhenEmpty="true">
<%--<asp:GridView ID="GvBancosCuentas" runat="server" DataKeyNames="CveCuentaDeposito" AutoGenerateColumns="False" EmptyDataText="No se encontraron registros" ToolTip="Listado de Cuentas Bancarias" CssClass="table table-striped table-advance table-hover" Style="table-layout: fixed" BorderWidth="0" GridLines="None">--%>
<Columns>
<asp:TemplateField ItemStyle-Width="7%" ItemStyle-CssClass="Excede" HeaderText="Banco" ItemStyle-HorizontalAlign="Center">
@@ -1145,6 +1154,9 @@
<!--IIf(CBool(Eval("EstatusPagoElectronico")), "Sí", "No") = If(EstatusPagoElectronico) Then "Sí" Else "No"-->
<asp:Label ID="LblEstatusPE" runat="server" Text='<%# IIf(CBool(Eval("EstatusPagoElectronico")), "Sí", "No")%>'>'></asp:Label>
</ItemTemplate>
<EditItemTemplate>
<asp:CheckBox ID="ChkEstatusPagoE" runat="server" Checked='<%# IIf(CBool(Eval("EstatusPagoElectronico")), True, False)%>' Visible="true"></asp:CheckBox>
</EditItemTemplate>
</asp:TemplateField>
<asp:TemplateField ItemStyle-Width="7%" ItemStyle-CssClass="Excede" ItemStyle-HorizontalAlign="Center" HeaderText="Estatus">
<ItemTemplate>
@@ -1393,22 +1405,24 @@
<asp:RequiredFieldValidator ID="RFVMetodoPago" runat="server" ControlToValidate="DdlMetodoPago" CssClass="help-block errorimput" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Método de Pago''</b> es necesario, por favor seleccione uno." InitialValue="-1" ValidationGroup="GrpGuardar"></asp:RequiredFieldValidator>
<i></i>
</div>
<div class="form-group form-md-line-input input-iconright">
<asp:DropDownList ID="DdlBanco" runat="server" Width="100%" AppendDataBoundItems="true" DataTextField="Banco" DataValueField="CveSATBanco" CssClass="form-control input-sm select2me" ValidationGroup="GrpGuardar">
<asp:ListItem Selected="True" Text="Sin asignar Banco" Value="-1"></asp:ListItem>
</asp:DropDownList>
<asp:Label runat="server" AssociatedControlID="DdlBanco" Text="Banco:"></asp:Label>
<i></i>
</div>
<div class="form-group form-md-line-input input-iconright">
<asp:TextBox CssClass="form-control" ID="TxtBancoNumCuenta" runat="server"></asp:TextBox>
<asp:Label runat="server" AssociatedControlID="TxtBancoNumCuenta" Text="Cuenta:"></asp:Label>
<i></i>
</div>
<div class="form-group form-md-line-input input-iconright">
<asp:TextBox CssClass="form-control" ID="TxtCLABE" runat="server" MaxLength="20"></asp:TextBox>
<asp:Label runat="server" AssociatedControlID="TxtCLABE" Text="CLABE:"></asp:Label>
<i></i>
<div style="display: none;">
<div class="form-group form-md-line-input input-iconright">
<asp:DropDownList ID="DdlBanco" runat="server" Width="100%" AppendDataBoundItems="true" DataTextField="Banco" DataValueField="CveSATBanco" CssClass="form-control input-sm select2me" ValidationGroup="GrpGuardar">
<asp:ListItem Selected="True" Text="Sin asignar Banco" Value="-1"></asp:ListItem>
</asp:DropDownList>
<asp:Label runat="server" AssociatedControlID="DdlBanco" Text="Banco:"></asp:Label>
<i></i>
</div>
<div class="form-group form-md-line-input input-iconright">
<asp:TextBox CssClass="form-control" ID="TxtBancoNumCuenta" runat="server"></asp:TextBox>
<asp:Label runat="server" AssociatedControlID="TxtBancoNumCuenta" Text="Cuenta:"></asp:Label>
<i></i>
</div>
<div class="form-group form-md-line-input input-iconright">
<asp:TextBox CssClass="form-control" ID="TxtCLABE" runat="server" MaxLength="20"></asp:TextBox>
<asp:Label runat="server" AssociatedControlID="TxtCLABE" Text="CLABE:"></asp:Label>
<i></i>
</div>
</div>
</div>
</div>
@@ -1735,11 +1749,13 @@
<div class="portlet-body portlet-filter">
<div class="row">
<div class="form-group form-md-line-input input-iconright col-md-2">
<ADS:Dropdownlost CssClassDdl="form-control input-sm select2me" ID="DdlClienteAsistenciaC" Width="100%" data-metodo="getcliente" runat="server" DataTextField="Nombre" DataValueField="CveCliente" CssStyle="width: 100%;"></ADS:Dropdownlost>
<label class="col-md-1 truncate" style ="width: 100px; margin-top: -10px; margin-left: -15px; margin-bottom: 2px; font-size: 13px">Cliente: </label>
<ADS:Dropdownlost CssClassDdl="form-control input-sm select2me" ID="DdlClienteAsistenciaC" Width="100%" data-metodo="getcliente" runat="server" DataTextField="Nombre" DataValueField="CveCliente" CssStyle="width: 100%;"></ADS:Dropdownlost>
<%--<asp:DropDownList Width="100%" ID="DdlClienteAsistenciaC" runat="server" AppendDataBoundItems="true" DataTextField="Nombre" DataValueField="CveCliente" CssClass=" form-control select2me ">
<asp:ListItem Selected="True" Text="Seleccione" Value="-1"></asp:ListItem>
</asp:DropDownList>--%>
<label for="<%= DdlClienteAsistenciaC.ClientID.ToString()%>">Cliente: </label>
</div>
<div class="form-group form-md-line-input input-iconright col-md-2">
<asp:DropDownList Width="100%" ID="DdlProyectoAsistenciaC" runat="server" AppendDataBoundItems="true" AutoPostBack="true" DataTextField="Proyecto" DataValueField="CveProyecto" CssClass=" form-control select2me ">
@@ -1967,8 +1983,13 @@
<AlternatingRowStyle CssClass="TextoAlterno" />
<HeaderStyle CssClass="Titulos" />
</asp:GridView>
<div class="col-md-12">
<div class="col-md-9"></div>
<div class="col-md-3">
<asp:Button ID="BtnGuardarAsistenciaCambios" runat="server" Text="Guardar Cambios" class="btn btn-success pull-right" /><br />
</div>
<asp:Button ID="BtnGuardarAsistenciaCambios" runat="server" Text="Guardar Cambios" class="btn btn-success pull-right" /><br />
</div>
<br />
<br />
</div>
@@ -3959,12 +3980,17 @@
<ajax:ValidatorCalloutExtender ID="VCEMonedax" runat="server" HighlightCssClass="vco" TargetControlID="RFVMonedax" Width="300px"></ajax:ValidatorCalloutExtender>
</div>
<div>
<asp:Label runat="server" AssociatedControlID="ChkEstatus" Text="Activo:"></asp:Label><br />
<asp:CheckBox ID="ChkEstatus" runat="server" Checked="true" Visible="false"></asp:CheckBox>
<asp:Label runat="server" AssociatedControlID="ChkEstatusPagoE" Text="Estatus Pago E.:"></asp:Label><br />
<asp:CheckBox ID="ChkEstatusPagoE" runat="server" Checked="true"></asp:CheckBox>
</div>
<div>
<asp:Label runat="server" AssociatedControlID="ChkEstatuscuenta" Text="Activo:"></asp:Label><br />
<asp:CheckBox ID="ChkEstatuscuenta" runat="server" Checked="true" Enabled="false"></asp:CheckBox>
</div>
</div>
<div class="modal-footer">
<asp:Button ID="BtnActualizarCuentaBanco" OnClick="LbActualizarCuentaBanco_Click" UseSubmitBehavior="false" runat="server" class="btn btn-primary" Text="Actualizar" ValidationGroup="GrpAgregarBanco" />
<asp:Button ID="BtnAgregarCuentaBanco" OnClick="LbAgregarCuentaBanco_Click" UseSubmitBehavior="false" runat="server" class="btn btn-success" Text="Agregar" ValidationGroup="GrpAgregarBanco" />
<button id="Button5" runat="server" type="button" class="btn default" data-dismiss="modal">Cancelar</button>
</div>
@@ -4253,11 +4279,12 @@
</td>
<td style="width: 33%!important; vertical-align: top!important">
<div class="form-group form-md-line-input input-iconright">
<label class="col-md-1 truncate" style ="width: 100px; margin-top: -10px; margin-left: -15px; margin-bottom: 2px; font-size: 13px">Cliente: </label>
<ADS:Dropdownlost CssClassDdl="form-control input-sm select2me" ID="DdlClienteBuzon" Width="100%" data-metodo="getcliente" runat="server" DataTextField="Nombre" DataValueField="CveCliente" CssStyle="width: 100%;"></ADS:Dropdownlost>
<%--<asp:DropDownList ID="DdlClienteBuzon" AutoPostBack="true" CssClass="form-control input-sm select2me" runat="server" AppendDataBoundItems="true" DataTextField="Nombre" DataValueField="CveCliente" Class="table-group-action-input form-control input-inline input-small input-sm" ValidationGroup="GrpAgragarBuzonCalidad" Width="200px">
<asp:ListItem Selected="True" Text="Seleccione uno" Value="-1"></asp:ListItem>
</asp:DropDownList>--%>
<label for="<%= DdlClienteBuzon.ClientID.ToString()%>">Cliente: </label>
<%--<label for="<%= DdlClienteBuzon.ClientID.ToString()%>">Cliente: </label>--%>
<%-- <asp:RequiredFieldValidator ID="rfvDdlSucursal" runat="server" ControlToValidate="DdlClienteBuzon" CssClass="help-block errorimput" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Cliente''</b> es necesario, por favor seleccione uno." InitialValue="-1" ValidationGroup="GrpAgragarBuzonCalidad"></asp:RequiredFieldValidator>--%>
<i></i>
</div>

166
RH/Personal.aspx.vb
View File

@@ -88,6 +88,18 @@ Partial Class RH_Personal
ViewState("Documentacion") = value
End Set
End Property
Property CveCuentaDeposito As Integer
Get
If ViewState("CveCuentaDeposito") Is Nothing Then
Return -1
Else
Return DirectCast(ViewState("CveCuentaDeposito"), Integer)
End If
End Get
Set(value As Integer)
ViewState("CveCuentaDeposito") = value
End Set
End Property
Property CveDocumentacion As Integer
Get
If ViewState("CveDocumentacion") Is Nothing Then
@@ -1062,8 +1074,10 @@ Partial Class RH_Personal
End Sub
Private Sub CargaUsuariosNomina()
DDLUsuarioNomina.DataSource = GlobalDTUsuarios(-1, UsuarioActual.CveEmpresa)
Dim dttemp As DataTable
Dim FiltroAD() As String = {"CveUsuario", "Usuario", "Nombre", "Contraseña", "CveEmpresa", "Rol", "Correo", "Empresa", "CveRol"}
dttemp = GlobalDTUsuarios(-1, UsuarioActual.CveEmpresa)
DDLUsuarioNomina.DataSource = dttemp.FiltraParametros(String.Format("CveEmpresa = {0} AND Estatus =1 and CveRol <> 1", UsuarioActual.CveEmpresa), "Rol ASC", FiltroAD)
DDLUsuarioNomina.DataBind()
DDLUsuarioNomina.Items.Insert(0, New ListItem("Seleccione uno", "-1"))
@@ -2890,11 +2904,23 @@ Partial Class RH_Personal
End Sub
Protected Sub Lnkopenaddcuentabancaria_Click(sender As Object, e As EventArgs)
BtnAgregarCuentaBanco.Visible = False
BtnActualizarCuentaBanco.Visible = False
BtnAgregarCuentaBanco.Visible = True
RegistraScript("$('#DivCuentasVancarias').modal();")
End Sub
Protected Sub LbActualizarCuentaBanco_Click(sender As Object, e As EventArgs)
Using ObjCuentasBancos As New ClsGenerales
Dim nombrebanco As String = DdlBancoSat.SelectedItem.Text
If ObjCuentasBancos.UpdateCuentasDepositosPersonal(CveCuentaDeposito, nombrebanco, TxtNumeroCuenta.Text, TxtCLABECB.Text, DdlMoneda.SelectedValue.ToEntero, UsuarioActual.CveUsuario, ChkEstatusPagoE.Checked, ChkEstatuscuenta.Checked, DdlBancoSat.SelectedValue.ToEntero()) Then
'UpdateCuentasDepositosPersonal(CveCuentaDeposito As Integer, BancoNombre As String, Cuenta As String, CLABE As String, CveMoneda As Integer, CveUsuarioModifico As Integer, EstatusPagoElectronico As Boolean, Estatus As Boolean, CveSATBanco As Integer) As Boolean
Alert("Cuenta actualizada")
End If
End Using
CargaCuentasBancarias()
RegistraScript("$('#DivCuentasVancarias').modal('hide');")
End Sub
Protected Sub LbAgregarCuentaBanco_Click(sender As Object, e As EventArgs)
Dim EsBancomer = False
Dim nombrebanco As String = DdlBancoSat.SelectedItem.Text
@@ -2938,7 +2964,7 @@ Partial Class RH_Personal
' Exit Sub
'End If
AgregarCuentaBanco(nombrebanco, "", TxtCLABECB.Text.Trim, "", "", TxtNumeroCuenta.Text.Trim, "", "", DdlMoneda.SelectedValue.ToEntero, DdlMoneda.SelectedItem.Text, "", DdlBancoSat.SelectedValue.ToEntero())
AgregarCuentaBanco(nombrebanco, "", TxtCLABECB.Text.Trim, "", "", TxtNumeroCuenta.Text.Trim, "", "", DdlMoneda.SelectedValue.ToEntero, DdlMoneda.SelectedItem.Text, "", DdlBancoSat.SelectedValue.ToEntero(), ChkEstatusPagoE.Checked)
RegistraScript("$('#DivCuentasVancarias').modal('hide');")
End Sub
Private Sub CargaGridCuentasBancos(Orden As String)
@@ -2963,13 +2989,13 @@ Partial Class RH_Personal
GvBancosCuentas.DataBind()
UpCuentasBancos.Update()
End Sub
Private Sub AgregarCuentaBanco(NombreBanco As String, NumeroSucursal As String, CLABE As String, SWIFT As String, Plaza As String, NumeroCuenta As String, ConvenioCIE As String, Referencia As String, CveMoneda As Integer, Moneda As String, BBVAAlias As String, CveSATBanco As Integer)
Private Sub AgregarCuentaBanco(NombreBanco As String, NumeroSucursal As String, CLABE As String, SWIFT As String, Plaza As String, NumeroCuenta As String, ConvenioCIE As String, Referencia As String, CveMoneda As Integer, Moneda As String, BBVAAlias As String, CveSATBanco As Integer, EstatusPagoElectronico As Boolean)
Dim Row As DataRow
If CvePersonal > 0 Then
Dim ObjCuentasBancos As New ClsGenerales
If ObjCuentasBancos.AddCuentasDepositos(NombreBanco, Plaza, NumeroSucursal, NumeroCuenta, CLABE, ConvenioCIE, SWIFT, Referencia, "", UsuarioActual.CveUsuario, CveMoneda, CvePersonal:=CvePersonal, CveUsuarioModifico:=UsuarioActual.CveUsuario, BBVAAlias:=BBVAAlias, CveSATBanco:=CveSATBanco) Then
If ObjCuentasBancos.AddCuentasDepositos(NombreBanco, Plaza, NumeroSucursal, NumeroCuenta, CLABE, ConvenioCIE, SWIFT, Referencia, "", UsuarioActual.CveUsuario, CveMoneda, CvePersonal:=CvePersonal, CveUsuarioModifico:=UsuarioActual.CveUsuario, BBVAAlias:=BBVAAlias, CveSATBanco:=CveSATBanco, EstatusPagoElectronico:=EstatusPagoElectronico) Then
DTCuentasBancos.Clear()
DTCuentasBancos.Merge(ObjCuentasBancos.DtResultados.FiltraParametros(String.Format("CvePersonal = {0}", CvePersonal)))
@@ -2991,7 +3017,7 @@ Partial Class RH_Personal
Row("Referencia") = Referencia
Row("CveMoneda") = CveMoneda
Row("Moneda") = Moneda
Row("EstatusPagoElectronico") = False
Row("EstatusPagoElectronico") = EstatusPagoElectronico
TempDTCuentasBancos.Rows.Add(Row)
End If
@@ -3062,8 +3088,22 @@ Partial Class RH_Personal
End If
End Sub
Protected Sub GvBancosCuentas_RowEditing(sender As Object, e As System.Web.UI.WebControls.GridViewEditEventArgs) Handles GvBancosCuentas.RowEditing
GvBancosCuentas.EditIndex = e.NewEditIndex
CargaGridCuentasBancos(ViewState("OrdenCuentasBancos").ToString())
Dim gvrow As GridViewRow = GvBancosCuentas.Rows(e.NewEditIndex) 'DirectCast(DirectCast(sender, LinkButton).NamingContainer, GridViewRow)
BtnActualizarCuentaBanco.Visible = True
BtnAgregarCuentaBanco.Visible = False
'CveCuentaDeposito,CveSATBanco,Cuenta,CLABE,EstatusPagoElectronico,CveMoneda
CveCuentaDeposito = gvrow.DataKey("CveCuentaDeposito").ToEntero()
DdlBancoSat.SelectedValueExist(gvrow.DataKey("CveSATBanco"))
DdlMoneda.SelectedValueExist(gvrow.DataKey("CveMoneda"))
TxtNumeroCuenta.Text = gvrow.DataKey("Cuenta")
TxtCLABECB.Text = gvrow.DataKey("CLABE")
ChkEstatusPagoE.Checked = gvrow.DataKey("EstatusPagoElectronico").ToUpper().Contiene("TRUE", "1")
ChkEstatuscuenta.Checked = gvrow.DataKey("EstatusTexto").ToUpper().Contiene("TRUE", "1", "ACTIVO")
UpCuentasVancarias.Update()
RegistraScript("$('#DivCuentasVancarias').modal();")
'GvBancosCuentas.EditIndex = e.NewEditIndex
'CargaGridCuentasBancos(ViewState("OrdenCuentasBancos").ToString())
End Sub
Protected Sub GvBancosCuentas_RowCancelingEdit(sender As Object, e As System.Web.UI.WebControls.GridViewCancelEditEventArgs) Handles GvBancosCuentas.RowCancelingEdit
GvBancosCuentas.EditIndex = -1
@@ -3080,6 +3120,8 @@ Partial Class RH_Personal
Dim Referencia = GvBancosCuentas.Rows(e.RowIndex).FCTextBox("TxtReferencia").Text.Trim
Dim CveMoneda = GvBancosCuentas.Rows(e.RowIndex).FCDropDownList("DdlMoneda").SelectedValue.ToString().ToEntero
Dim Estatus = GvBancosCuentas.Rows(e.RowIndex).FCCheckBox("ChkEstatus").Checked
Dim EstatusPagoElectronico = GvBancosCuentas.Rows(e.RowIndex).FCCheckBox("ChkEstatusPagoE").Checked
Dim Moneda = GvBancosCuentas.Rows(e.RowIndex).FCDropDownList("DdlMoneda").SelectedItem.Text
Dim BBVAAlias As String = GvBancosCuentas.Rows(e.RowIndex).FCTextBox("TxtBBVAAlias").Text
@@ -3134,7 +3176,7 @@ Partial Class RH_Personal
End If
Dim ObjCuentasBancos As New ClsGenerales
If CvePersonal > 0 Then
If ObjCuentasBancos.UpdateCuentasDepositos(GvBancosCuentas.DataKeys(e.RowIndex)("CveCuentaDeposito").ToString().ToEntero, NombreBanco, Plaza, NumeroSucursal, NumeroCuenta, CLABE, ConvenioCIE, SWIFT, Referencia, RefCrediProveedor, False, Estatus, CveMoneda, CveUsuarioModifico:=UsuarioActual.CveUsuario, BBVAAlias:=BBVAAlias) Then
If ObjCuentasBancos.UpdateCuentasDepositos(GvBancosCuentas.DataKeys(e.RowIndex)("CveCuentaDeposito").ToString().ToEntero, NombreBanco, Plaza, NumeroSucursal, NumeroCuenta, CLABE, ConvenioCIE, SWIFT, Referencia, RefCrediProveedor, False, Estatus, CveMoneda, CveUsuarioModifico:=UsuarioActual.CveUsuario, BBVAAlias:=BBVAAlias, EstatusPagoElectronico:=EstatusPagoElectronico) Then
DTCuentasBancos.Clear()
DTCuentasBancos.Merge(ObjCuentasBancos.DtResultados.FiltraParametros(String.Format("CvePersonal = {0}", CvePersonal)))
Alert("Cuenta actualizada con exito.", TipoMensaje.MsgInformacion)
@@ -3498,69 +3540,71 @@ Partial Class RH_Personal
ObjPersonal.Dispose()
End Sub
Private Sub GenerarPDFGastosXComp(Optional Formato As String = "PDF")
If CvePersonal > 0 Then
If RBLTipoGastos.SelectedValue = "1" Then
If RBLTipoGastos.SelectedValue = "1" Then
If DTGastosSinComp.Rows.Count > 0 Then
If DTGastosSinComp.Rows.Count > 0 Then
Dim params As New List(Of ReportParameter)
params.Add(New ReportParameter("Empresa", UsuarioActual.Empresa.Empresa))
params.Add(New ReportParameter("Empleado", LtlPersonal.Text.ToString()))
params.Add(New ReportParameter("Saldo", LblSaldoGxC.Text.ToString()))
params.Add(New ReportParameter("UsuarioImprimio", UsuarioActual.Nombre))
Dim params As New List(Of ReportParameter)
params.Add(New ReportParameter("Empresa", UsuarioActual.Empresa.Empresa))
params.Add(New ReportParameter("Empleado", LtlPersonal.Text.ToString()))
params.Add(New ReportParameter("Saldo", LblSaldoGxC.Text.ToString()))
params.Add(New ReportParameter("UsuarioImprimio", UsuarioActual.Nombre))
Dim Imagen As New System.IO.FileInfo(String.Format("{0}/Logo.png", UsuarioActual.Empresa.Ruta))
Dim logouri = String.Format("{0}://{1}:{2}/Empresas/{3}/Logo.png", Request.Url.Scheme, Request.Url.Host, Request.Url.Port, UsuarioActual.CveEmpresa)
Dim Imagen As New System.IO.FileInfo(String.Format("{0}/Logo.png", UsuarioActual.Empresa.Ruta))
Dim logouri = String.Format("{0}://{1}:{2}/Empresas/{3}/Logo.png", Request.Url.Scheme, Request.Url.Host, Request.Url.Port, UsuarioActual.CveEmpresa)
If Imagen.Exists Then
params.Add(New ReportParameter("pImg", logouri))
Else
params.Add(New ReportParameter("pImg", ""))
End If
ImprimirPDF("Empresas/Grales/Formatos/GastosXComprobarGral.rdlc", DTGastosSinComp, params, "GastosSinComprobarGral", Formato)
Else
Alert("No hay datos consultados", TipoMensaje.MsgAdvertencia)
End If
ElseIf RBLTipoGastos.SelectedValue = "2" Then
If DTGastosPorCheque.Rows.Count > 0 Then
For Each Row As DataRow In DTGastosPorCheque.Rows
Dim FolioPago As String = Row("FolioPago").ToString()
Row("FolioPago") = ""
If Row("CveCompra").ToString() = "" And Row("CveIE").ToString() <> "" Then
Row("FechaVencimiento") = Row("FechaDocumento")
Row("FolioPago") = FolioPago
If Imagen.Exists Then
params.Add(New ReportParameter("pImg", logouri))
Else
params.Add(New ReportParameter("pImg", ""))
End If
If Row("FolioPago").ToString() <> "" Then
Row("SerieFolio") = ""
End If
Next
Dim params As New List(Of ReportParameter)
params.Add(New ReportParameter("Empresa", UsuarioActual.Empresa.Empresa))
params.Add(New ReportParameter("Empleado", LtlPersonal.Text.ToString()))
params.Add(New ReportParameter("UsuarioImprimio", UsuarioActual.Nombre))
Dim Imagen As New System.IO.FileInfo(String.Format("{0}/Logo.png", UsuarioActual.Empresa.Ruta))
Dim logouri = String.Format("{0}://{1}:{2}/Empresas/{3}/Logo.png", Request.Url.Scheme, Request.Url.Host, Request.Url.Port, UsuarioActual.CveEmpresa)
If Imagen.Exists Then
params.Add(New ReportParameter("pImg", logouri))
ImprimirPDF("Empresas/Grales/Formatos/GastosXComprobarGral.rdlc", DTGastosSinComp, params, "GastosSinComprobarGral", Formato)
Else
params.Add(New ReportParameter("pImg", ""))
Alert("No hay datos consultados", TipoMensaje.MsgAdvertencia)
End If
ImprimirPDF("Empresas/Grales/Formatos/GastosXComprobarCheque.rdlc", DTGastosPorCheque, params, "GastosPorCheque", Formato)
Else
Alert("No hay datos consultados", TipoMensaje.MsgAdvertencia)
ElseIf RBLTipoGastos.SelectedValue = "2" Then
If DTGastosPorCheque.Rows.Count > 0 Then
For Each Row As DataRow In DTGastosPorCheque.Rows
Dim FolioPago As String = Row("FolioPago").ToString()
Row("FolioPago") = ""
If Row("CveCompra").ToString() = "" And Row("CveIE").ToString() <> "" Then
Row("FechaVencimiento") = Row("FechaDocumento")
Row("FolioPago") = FolioPago
End If
If Row("FolioPago").ToString() <> "" Then
Row("SerieFolio") = ""
End If
Next
Dim params As New List(Of ReportParameter)
params.Add(New ReportParameter("Empresa", UsuarioActual.Empresa.Empresa))
params.Add(New ReportParameter("Empleado", LtlPersonal.Text.ToString()))
params.Add(New ReportParameter("UsuarioImprimio", UsuarioActual.Nombre))
Dim Imagen As New System.IO.FileInfo(String.Format("{0}/Logo.png", UsuarioActual.Empresa.Ruta))
Dim logouri = String.Format("{0}://{1}:{2}/Empresas/{3}/Logo.png", Request.Url.Scheme, Request.Url.Host, Request.Url.Port, UsuarioActual.CveEmpresa)
If Imagen.Exists Then
params.Add(New ReportParameter("pImg", logouri))
Else
params.Add(New ReportParameter("pImg", ""))
End If
ImprimirPDF("Empresas/Grales/Formatos/GastosXComprobarCheque.rdlc", DTGastosPorCheque, params, "GastosPorCheque", Formato)
Else
Alert("No hay datos consultados", TipoMensaje.MsgAdvertencia)
End If
End If
Else
Alert("No hay datos consultados", TipoMensaje.MsgAdvertencia)
End If
End Sub

38
UserControl/TareaNueva.ascx
View File

@@ -68,7 +68,7 @@
</div>
<asp:Panel runat="server" CssClass="actions">
<div class="btn-group">
<asp:LinkButton ID="LnkAgregarTarea" OnClick="BtnGuardarTarea_Click" ValidationGroup="GrpTarea" CssClass="btn btn-default" runat="server">Agregar</asp:LinkButton>
<%--<asp:LinkButton ID="LnkAgregarTarea" OnClick="BtnGuardarTarea_Click" ValidationGroup="GrpTarea" CssClass="btn btn-default" runat="server">Agregar</asp:LinkButton>--%>
</div>
</asp:Panel>
</div>
@@ -146,10 +146,27 @@
<div class="fileTarea">
<asp:TextBox ID="TxtArchivo" CssClass="ADSdropzone hidden" data-maxFile="1" runat="server"></asp:TextBox>
</div>
<div class="text-right" style="">
<asp:TextBox ID="TxtUsuarioB" runat="server" CssClass="form-control input-sm TxtUsuarioB" Style="display: inline-block; margin-right: -20px; width: 150px;" CausesValidation="true"></asp:TextBox>
<a href="javascript:;" style="margin-top: -3px;" class="btn btn-circle btn-sm label-info"><i class="icon-magnifier"></i></a>
</div>
<asp:Panel runat="server" ID="portletMiembros" class="portlet light smmallpadding bordered">
<div class="portlet-title">
<div class="caption font-green">
<i class="fa fa-user-plus font-green"></i>
<span class="caption-subject bold uppercase">Miembros</span>
</div>
<div class="tools">
<a href="javascript:;" class="collapse" data-original-title="" title=""></a>
</div>
<div class="actions">
<div class="btn-group">
<div class="text-right" style="">
<input type="text" id="TxtBusqueda" class="form-control input-sm" onkeyup="<%= String.Format("FiltrarTabla('TxtBusqueda','{0}')", GVUsuarios_TareaNueva.ClientID) %>" style="display: inline-block; margin-right: -20px; width: 150px;" />
<a href="javascript:;" onclick="<%= String.Format("FiltrarTabla('TxtBusqueda','{0}')", GVUsuarios_TareaNueva.ClientID) %>" style="margin-top: -3px;" class="btn btn-circle btn-sm label-info"><i class="icon-magnifier"></i></a>
</div>
</div>
</div>
</div>
<div class="portlet-body rowpadding">
<asp:GridView ID="GVUsuarios_TareaNueva" runat="server" AutoGenerateColumns="false" DataKeyNames="CveUsuario,Nombre,Correo,Empresa,CveRol,CveSubProyecto"
CssClass="table table-striped table-advance table-hover Widthall ScrollAD GVUsuarios_TareaNueva" GridLines="None" data-height="200"
OnRowDataBound="GVUsuarios_TareaNueva_RowDataBound">
@@ -180,6 +197,8 @@
</asp:TemplateField>
</Columns>
</asp:GridView>
</div>
</asp:Panel>
</div>
</div>
</div>
@@ -240,7 +259,11 @@
</div>
</ContentTemplate>
</asp:UpdatePanel>
<script>
function OpenModalNewTareaUserControl(CveTipoEvento, CveEventoPadre, obji/*, CveActivoFijo, CveIE, CveProspecto, CveCliente, CveOS,
CveOC, CvePersonal, CveProveedor, CveCompra, CveVenta, CveContrato, CveSubProyecto, CveMovimientoAlmacen*/) {
$('.TxtCveTipoEvento').val(CveTipoEvento);
@@ -324,4 +347,9 @@
CargaPickerstareanueva();
loadTxtAsunto();
});
</script>

3
UserControl/TareaNueva.ascx.cs
View File

@@ -74,7 +74,8 @@ public partial class UserControl_TareaNueva : System.Web.UI.UserControl
CveEventoPadre = -1;
txtCveEventoPadre.Text = "-1";
}
GVUsuarios_TareaNueva.DataSource = get_GlobalDTUsuarios(CveEmpresa: UsuarioActual.CveEmpresa).FiltraParametros("Estatus =1 ", "Rol ASC");
string[] FiltroAD = { "CveUsuario", "Usuario", "Nombre", "Contraseña", "CveEmpresa", "Rol", "Correo", "Empresa", "CveRol", "CveSubProyecto" };
GVUsuarios_TareaNueva.DataSource = get_GlobalDTUsuarios().FiltraParametros(String.Format("CveEmpresa = {0} AND Estatus =1", UsuarioActual.CveEmpresa), "Rol ASC", FiltroAD);
DdlPara.DataSource = GVUsuarios_TareaNueva.DataSource;
DdlPara.DataBind();