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

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

Browse Source
This commit is contained in:
Oscar Irigoyen
2022-10-25 11:55:13 -07:00
parent ee61d9b390 4fea6ac116
commit a7ebad2bfc
17 changed files with 266 additions and 84 deletions
Download Patch File Download Diff File Expand all files Collapse all files

5
App_Code/ClsInventarios.vb
View File

@@ -1611,17 +1611,18 @@ Public Class ClsInventarios
End Function End Function
Public Function GetExistenciasProductoSerie(CvePS As Integer, CveAlmacen As Integer, CveUsuario As Integer, CveEmpresa As Integer, Optional CveAlmacenes As String = "-1") As Boolean Public Function GetExistenciasProductoSerie(CvePS As Integer, CveUsuario As Integer, CveEmpresa As Integer, Fecha As DateTime, Optional CveAlmacenes As String = "-1") As Boolean
Dim Retorno As Boolean = False Dim Retorno As Boolean = False
DataAdapter("PA_Inv_ExistenciaPSSeriesGet") DataAdapter("PA_Inv_ExistenciaPSSeriesGet")
With SqlAdapter.SelectCommand.Parameters With SqlAdapter.SelectCommand.Parameters
.Add("@CvePS", SqlDbType.Int).Value = CvePS .Add("@CvePS", SqlDbType.Int).Value = CvePS
.Add("@CveAlmacen", SqlDbType.VarChar).Value = CveAlmacen ' .Add("@CveAlmacen", SqlDbType.VarChar).Value = CveAlmacen
.Add("@CveUsuario", SqlDbType.Int).Value = CveUsuario .Add("@CveUsuario", SqlDbType.Int).Value = CveUsuario
.Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa
.Add("@CveAlmacenes", SqlDbType.VarChar).Value = CveAlmacenes .Add("@CveAlmacenes", SqlDbType.VarChar).Value = CveAlmacenes
.Add("@Fecha", SqlDbType.DateTime).Value = Fecha
End With End With
Try Try

2
App_Code/ClsVentas.vb
View File

@@ -195,7 +195,7 @@ Public Class ClsVentas
SqlAdapter.Fill(Data) SqlAdapter.Fill(Data)
retorno = True retorno = True
Catch ex As Exception Catch ex As Exception
OnError("Ocurrió un error al actualizar venta manifiesto.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo) OnError("Ocurrió un error al actualizar venta Orden de Producción.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo)
End Try End Try
Return retorno Return retorno
End Function End Function

2
Bancos/IE.aspx
View File

@@ -209,7 +209,7 @@
<label class="col-md-2 control-label"> <label class="col-md-2 control-label">
<asp:Label ID="LblFolio" runat="server" Text="Número:"></asp:Label></label> <asp:Label ID="LblFolio" runat="server" Text="Número:"></asp:Label></label>
<div class="col-md-4"> <div class="col-md-4">
<asp:TextBox ID="TxtFolio" runat="server" MaxLength="20" class="form-control input-sm"></asp:TextBox> <asp:TextBox ID="TxtFolio" runat="server" MaxLength="25" class="form-control input-sm"></asp:TextBox>
<asp:RequiredFieldValidator ID="RequiredFieldValidator1" runat="server" ControlToValidate="TxtFolio" Display="None" ErrorMessage="El campo <b>''Folio''</b> es requerido por la aplicación, por favor ingrese una fecha." ValidationGroup="GrpGuardar"></asp:RequiredFieldValidator> <asp:RequiredFieldValidator ID="RequiredFieldValidator1" runat="server" ControlToValidate="TxtFolio" Display="None" ErrorMessage="El campo <b>''Folio''</b> es requerido por la aplicación, por favor ingrese una fecha." ValidationGroup="GrpGuardar"></asp:RequiredFieldValidator>
<ajax:ValidatorCalloutExtender ID="ValidatorCalloutExtender2" runat="server" HighlightCssClass="vco" TargetControlID="RequiredFieldValidator1" Width="350px"></ajax:ValidatorCalloutExtender> <ajax:ValidatorCalloutExtender ID="ValidatorCalloutExtender2" runat="server" HighlightCssClass="vco" TargetControlID="RequiredFieldValidator1" Width="350px"></ajax:ValidatorCalloutExtender>

4
Bancos/IE.aspx.vb
View File

@@ -6457,10 +6457,14 @@ Partial Class Bancos_IE
Private Sub BtnAjustarMovimiento_Click(sender As Object, e As EventArgs) Handles BtnAjustarMovimiento.Click Private Sub BtnAjustarMovimiento_Click(sender As Object, e As EventArgs) Handles BtnAjustarMovimiento.Click
Dim ObjBanco As New ClsBancos Dim ObjBanco As New ClsBancos
ObjBanco.IniciaTransacSQL()
If ObjBanco.UpdateAjustarMovimiento(CveIE, TxtAjustarMovimiento.Text.ToDecimal, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa) Then If ObjBanco.UpdateAjustarMovimiento(CveIE, TxtAjustarMovimiento.Text.ToDecimal, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa) Then
ObjBanco.Commit()
RegistraScript("$('#ModalAjustarMovimiento').modal('hide');", "ALTR") RegistraScript("$('#ModalAjustarMovimiento').modal('hide');", "ALTR")
Alert("El ajuste se realizo correctamente.", TipoMensaje.MsgInformacion, $" document.location.href = ""./IE.aspx?CveIE={CveIE}"";") Alert("El ajuste se realizo correctamente.", TipoMensaje.MsgInformacion, $" document.location.href = ""./IE.aspx?CveIE={CveIE}"";")
Else
ObjBanco.RollBack()
End If End If
ObjBanco.Dispose() ObjBanco.Dispose()

2
General/SaldosIniciales.aspx.vb
View File

@@ -1544,7 +1544,7 @@ Partial Class General_SaldosIniciales
'Compra 'Compra
If Not ObjCompras.AddCompra(TipoDocto, "", Serie, Folio, Folio2, CveProveedor.ToEntero, SubTotal, 0, 0, IVA, RetIVA, RetISR, IEPS, 0, 0, Total, Fecha, CveMoneda, TipoCambio.ToDouble, FechaVencimiento, If Not ObjCompras.AddCompra(TipoDocto, "", Serie, Folio, Folio2, CveProveedor.ToEntero, SubTotal, 0, 0, IVA, RetIVA, RetISR, IEPS, 0, 0, Total, Fecha, CveMoneda, TipoCambio.ToDouble, FechaVencimiento,
False, CodProvee, 1, CvePrePoliza, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, CveProveedorSucursal:=CveProveedorSucursal, False, CodProvee, 1, CvePrePoliza, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, CveProveedorSucursal:=CveProveedorSucursal,
NumeroReembolso:=Transaccion, PorcentajeIVA:=PorcentajeIVA.ToDecimal) Then NumeroReembolso:=Transaccion, PorcentajeIVA:=PorcentajeIVA.ToDecimal, TotalOriginal:=Total) Then
ErrorCompras = True ErrorCompras = True
Exit For Exit For
End If End If

6
Inicio.aspx
View File

@@ -1105,9 +1105,11 @@
</div> </div>
</div> </div>
</div> </div>
</div> </div>
<asp:UpdatePanel runat="server" ID="uppincons" UpdateMode="Conditional">
<ContentTemplate>
<div id="ModalInconsistencias" class="modal ADS fade" role="dialog"> <div id="ModalInconsistencias" class="modal ADS fade" role="dialog">
<div class="modal-dialog"> <div class="modal-dialog">
@@ -1143,6 +1145,8 @@
</div> </div>
</div> </div>
</ContentTemplate>
</asp:UpdatePanel>
<div id="ModalNoTimbradasCentroCosto" class="modal ADS fade" role="dialog"> <div id="ModalNoTimbradasCentroCosto" class="modal ADS fade" role="dialog">
<div class="modal-dialog"> <div class="modal-dialog">

4
Inicio.aspx.vb
View File

@@ -296,13 +296,13 @@ Partial Class Inicio
If ObjP.DtResultados.Rows.Count > 0 Then If ObjP.DtResultados.Rows.Count > 0 Then
LblInconsistenciasNum.Text = ObjP.DtResultados.Rows.Count LblInconsistenciasNum.Text = ObjP.DtResultados.Rows.Count
GvIncons.DataSource = ObjP.DtResultados GvIncons.DataSource = ObjP.DtResultados
RegistraScript("$('#ModalInconsistencias').modal('show');", "showmodalIncons")
End If End If
End If End If
ObjP.Dispose() ObjP.Dispose()
GvIncons.DataBind() GvIncons.DataBind()
uppincons.Update()
RegistraScript("$('#ModalInconsistencias').modal('show');", "showmodalIncons")
End Sub End Sub
Private Sub MuestraNoTimbradasCentroCosto() Private Sub MuestraNoTimbradasCentroCosto()

2
Inventarios/Kardex.aspx.vb
View File

@@ -354,7 +354,7 @@ Partial Class Inventarios_Kardex
almacenes = "-1" almacenes = "-1"
End If End If
Dim ObjInventarios As New ClsInventarios Dim ObjInventarios As New ClsInventarios
If ObjInventarios.GetExistenciasProductoSerie(ddlProducto2.SelectedValue.ToEntero(), -1, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, almacenes) Then If ObjInventarios.GetExistenciasProductoSerie(ddlProducto2.SelectedValue.ToEntero(), UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, TxtFechaF.Text.ToDateTime, almacenes) Then
GvSeries.DataSource = ObjInventarios.DtResultados GvSeries.DataSource = ObjInventarios.DtResultados
End If End If
ObjInventarios.Dispose() ObjInventarios.Dispose()

1
Inventarios/PopUpExistenciasAlmacen.aspx.vb
View File

@@ -228,7 +228,6 @@ Partial Class Inventarios_Default
ObjInventarios.Dispose() ObjInventarios.Dispose()
GV.DataBind() GV.DataBind()
UPDatos.Update() UPDatos.Update()
DivMedRin.Visible = True
End Sub End Sub
#Region " BUSCA | CODIGO - SERIE " #Region " BUSCA | CODIGO - SERIE "

2
Nomina/ConceptoNomina.aspx.cs
View File

@@ -256,7 +256,7 @@ public partial class Nomina_CatConcepto : ClsPaginas
protected void CargaCtaContable() protected void CargaCtaContable()
{ {
if (UsuarioActual.Empresa.UsaContabilidad) if (UsuarioActual.Empresa.TipoContabilidad == 2)
{ {
DdlCtaContable.DataValueField = "Id"; DdlCtaContable.DataValueField = "Id";
using (ClsContPAQi ObjConta = new ClsContPAQi(UsuarioActual.Empresa)) using (ClsContPAQi ObjConta = new ClsContPAQi(UsuarioActual.Empresa))

129
Nomina/Finiquito.aspx
View File

@@ -161,6 +161,12 @@
<asp:Label runat="server" Text="Tipo periodo" AssociatedControlID="DdlTipoPeriodo"></asp:Label> <asp:Label runat="server" Text="Tipo periodo" AssociatedControlID="DdlTipoPeriodo"></asp:Label>
</div> </div>
</div> </div>
<div class="col-md-5"></div>
<div class="col-sm-3">
<span class="bold">Salario Finiquito:</span>
<br />
<asp:LinkButton ID="LnkShowFfiniquito" OnClick="LnkShowFfiniquito_Click" runat="server">--</asp:LinkButton>
</div>
</div> </div>
<div class="row "> <div class="row ">
</div> </div>
@@ -523,6 +529,129 @@
</asp:UpdatePanel> </asp:UpdatePanel>
</div> </div>
<div id="ModalSueldoFiniquito" class="modal ADS fade " role="dialog" >
<asp:UpdatePanel class="modal-dialog" runat="server" ID="UpmodalFiniquito" UpdateMode="Conditional">
<ContentTemplate>
<div class="modal-dialog">
<div class="modal-content">
<div class="modal-header ">
<h4 class="modal-title">Salario Finiquito</h4>
</div>
<div class="modal-body">
<div class="row">
<div class="col-md-4" style="font-weight:bold; min-height:30px;">
Tipo de salario
</div>
<div class="col-md-8">
<asp:Literal ID="LtlSFTipoSalario" runat="server"></asp:Literal>
</div>
</div>
<div class="row">
<div class="col-md-4" style="font-weight:bold; min-height:30px;">
Días ultimo mes
</div>
<div class="col-md-8">
<asp:Literal ID="LtlSFDias" runat="server"></asp:Literal>
</div>
</div>
<div class="row">
<div class="col-md-4" style="font-weight:bold; min-height:30px;">
Percepciones ultimo mes
</div>
<div class="col-md-8">
<asp:Literal ID="LtlSFPercepciones" runat="server"></asp:Literal>
</div>
</div>
<div class="row">
<div class="col-md-4" style="font-weight:bold; min-height:30px;">
Salario Variable
</div>
<div class="col-md-8">
<asp:Literal ID="LtlSFVar" runat="server"></asp:Literal>
</div>
</div>
<div class="row">
<div class="col-md-4" style="font-weight:bold; min-height:30px;">
SDI
</div>
<div class="col-md-8">
<asp:Literal ID="LtlSFSDI" runat="server"></asp:Literal>
</div>
</div>
<div class="row">
<div class="col-md-12 text-center">
Salario Finiquito<br />
<asp:Literal ID="LtlSF" runat="server"></asp:Literal>
</div>
</div>
<div class="portlet light xspadding bordered" id="pnlFiniquitosalario">
<div class="portlet-title">
<div class="caption ">
<i class="fa fa-bookmark font-yellow-gold"></i>
<span class="caption-subject bold uppercase font-yellow-gold">Calculo salario finiquito</span>
</div>
<div class="tools">
<a href="javascript:;" class="collapse" data-original-title="" title=""></a>
<a href="javascript:;" class="fullscreen" data-original-title="" title=""></a>
</div>
<div class="actions">
<div class="btn-group">
<%--<a onclick="$('#C_BtnImprimirsobrerecibo').click()" class="btn btn-default">Imprimir</a>--%>
</div>
</div>
</div>
<div class="portlet-body ">
<asp:GridView ID="GVSDF" runat="server" AutoGenerateColumns="False" CssClass="table table-striped table-hover Widthall GvConceptosSDF"
Style="text-align: center;" GridLines="None" ShowHeaderWhenEmpty="true" >
<Columns>
<asp:TemplateField HeaderText="Periodo">
<ItemTemplate>
<asp:Label ID="LtlConcepto" runat="server" Text='<%# Eval("PeriodoTexto") %>' Style="white-space:nowrap "></asp:Label>
</ItemTemplate>
<ItemStyle HorizontalAlign="Left" Width="37%" />
</asp:TemplateField>
<asp:TemplateField HeaderText="Código">
<ItemTemplate>
<asp:Label ID="LtlConcepto" runat="server" Text='<%# Eval("Codigo") %>' Style="white-space:nowrap "></asp:Label>
</ItemTemplate>
<ItemStyle HorizontalAlign="Left" Width="37%" />
</asp:TemplateField>
<asp:TemplateField HeaderText="Concepto">
<ItemTemplate>
<asp:Label ID="LtlConcepto" runat="server" Text='<%# Eval("Concepto") %>' Style="white-space:nowrap"></asp:Label>
</ItemTemplate>
<ItemStyle HorizontalAlign="Left" Width="37%" />
</asp:TemplateField>
<asp:TemplateField HeaderText="Importe">
<ItemTemplate>
<asp:Label ID="LtlValorD" runat="server" Text='<%# Eval("Importe", "{0:##,###.##}") %>' Style="white-space:nowrap"></asp:Label>
</ItemTemplate>
<ItemStyle HorizontalAlign="Right" Width="13%" />
</asp:TemplateField>
</Columns>
<HeaderStyle CssClass="SearchADHeader" />
</asp:GridView>
</div>
</div>
</div>
<div class="modal-footer">
<asp:UpdatePanel runat="server" UpdateMode="Conditional">
<ContentTemplate>
<button type="button" class="btn btn-default" data-dismiss="modal">Cerrar</button></asp:Literal>
</ContentTemplate>
</asp:UpdatePanel>
</div>
</div>
</div>
</ContentTemplate>
</asp:UpdatePanel>
</div>
</ContentTemplate> </ContentTemplate>
</asp:UpdatePanel> </asp:UpdatePanel>
</asp:Content> </asp:Content>

20
Nomina/Finiquito.aspx.cs
View File

@@ -139,7 +139,7 @@ public partial class Nomina_Finiquito : ClsPaginas
DataRow drow = ObjPersonal.DtResultados.Rows[0]; DataRow drow = ObjPersonal.DtResultados.Rows[0];
HypCodigo.Text = drow["Codigo"].ToString(); HypCodigo.Text = drow["Codigo"].ToString();
HypEmpleado.Text = drow["NombreCompleto"].ToString(); HypEmpleado.Text = drow["NombreCompleto"].ToString();
LtlSFTipoSalario.Text = drow["TipodeSalario"].ToString();
HypCodigo.NavigateUrl = $"/RH/Personal.aspx?CvePersonal={drow["CvePersonal"]}"; HypCodigo.NavigateUrl = $"/RH/Personal.aspx?CvePersonal={drow["CvePersonal"]}";
LblPuesto.Text = drow["Puesto"].ToString(); LblPuesto.Text = drow["Puesto"].ToString();
LblSalario.Text = drow["SalarioDiario"].ToString(); LblSalario.Text = drow["SalarioDiario"].ToString();
@@ -1345,6 +1345,19 @@ public partial class Nomina_Finiquito : ClsPaginas
if (continuar) if (continuar)
{ {
continuar = onom.GetFiniquitosPersonal(CvePersonal, UsuarioActual.CveEmpresa, diasindemnizacion: Txtdiasindemnizacion.Text.ToEntero()); continuar = onom.GetFiniquitosPersonal(CvePersonal, UsuarioActual.CveEmpresa, diasindemnizacion: Txtdiasindemnizacion.Text.ToEntero());
if(onom.DtResultados.Rows.Count > 0)
{
DataRow drow = onom.DtResultados.Rows[0];
LnkShowFfiniquito.Text = string.Format("{0:##,###,###.00##}", drow["SalarioBC"]);
LtlSFSDI.Text = string.Format("<pre>{0:##,###,###.00##}</pre>", drow["SDI"]);
LtlSFDias.Text = string.Format("<pre>{0:##,###,###}</pre>", drow["diasMesAnterior"]);
LtlSFPercepciones.Text = string.Format("<pre>{0:##,###,###.00##}</pre>", drow["TotalPercepciones"]);
LtlSFVar.Text = string.Format("<pre>(Percepciones /días)\r\n{0:##,###,###.00##}</pre>", drow["TotalPercepciones"].ToString().ToDecimal() / drow["diasMesAnterior"].ToString().ToDecimal() );
LtlSF.Text = string.Format("<pre>Si((Tipo de salario ='Fijo'),SDI,(Salario Variable + SDI))\r\n{0:##,###,###.00##}</pre>", drow["SalarioBC"]);
}
GVSDF.DataSource = onom.DTSetResultados.Tables[1];
GVSDF.DataBind();
} }
if (continuar) if (continuar)
{ loadsobrerecibo(onom); } { loadsobrerecibo(onom); }
@@ -1458,4 +1471,9 @@ public partial class Nomina_Finiquito : ClsPaginas
} }
protected void LnkShowFfiniquito_Click(object sender, EventArgs e)
{
RegistraScript("$('#ModalSueldoFiniquito').modal('show');");
}
} }

10
Nomina/Nomina.aspx
View File

@@ -7,10 +7,12 @@
#pnlIncapacidade .form-group.form-md-line-input > .select2-container { #pnlIncapacidade .form-group.form-md-line-input > .select2-container {
margin-top: 20px; margin-top: 20px;
} }
.lnkMovotPermanente { .lnkMovotPermanente {
width: 100%; width: 100%;
color: #111; color: #111;
} }
#pnlIncapacidade .form-group.form-md-line-input label { #pnlIncapacidade .form-group.form-md-line-input label {
font-size: 13px; font-size: 13px;
color: #888888; color: #888888;
@@ -1622,10 +1624,16 @@
</div> </div>
</div> </div>
<div class="col-md-6"> <div class="col-md-6">
<div>
<asp:Label runat="server" AssociatedControlID="DdlVacPeriodo" Style="padding-bottom: 0px; margin-bottom: 0px; font-size: 12px; color: #888; font-weight: 400;">Periodo</asp:Label><br />
<asp:DropDownList ID="DdlVacPeriodo" DataValueField="Ejercicio" DataTextField="PeriodoText" Width="100%" CssClass="form-control select2me " runat="server"></asp:DropDownList>
</div>
<!--
<div class="form-group form-md-line-input input-iconright"> <div class="form-group form-md-line-input input-iconright">
<asp:TextBox ID="TxtVacEjercicio" CssClass="form-control input-sm " Text="2021" runat="server"></asp:TextBox> <asp:TextBox ID="TxtVacEjercicio" CssClass="form-control input-sm " Text="2021" runat="server"></asp:TextBox>
<asp:Label runat="server" AssociatedControlID="TxtVacEjercicio">Ejercicio</asp:Label> <asp:Label runat="server" AssociatedControlID="TxtVacEjercicio">Ejercicio</asp:Label>
</div> </div>-->
</div> </div>
</div> </div>
<asp:Panel runat="server" ID="PnlVacfechas" CssClass="row"> <asp:Panel runat="server" ID="PnlVacfechas" CssClass="row">

16
Nomina/Nomina.aspx.cs
View File

@@ -2562,6 +2562,18 @@ public partial class Nomina_Nomina2 : ClsPaginas
DdlFormapagovacaciones_SelectedIndexChanged(null, null); DdlFormapagovacaciones_SelectedIndexChanged(null, null);
ChkVacPrimaVacacional.Checked = true; ChkVacPrimaVacacional.Checked = true;
ChkVacCobrarIMSS.Checked = true; ChkVacCobrarIMSS.Checked = true;
using(ClsNominas objnom = new ClsNominas())
{
if(objnom.GETPersonalVacResumen(UsuarioActual.Empresa.CveEmpresa, SRCvePersonal))
{
DataRow drow = objnom.DtResultados.FiltroPrimero("Selected =1");
if(drow != null)
{
DdlVacPeriodo.SelectedValueExist(drow["Ejercicio"].ToString());
}
}
}
RegistraScript("$('#ModalSRVacaciones').modal()"); RegistraScript("$('#ModalSRVacaciones').modal()");
} }
@@ -2654,7 +2666,7 @@ public partial class Nomina_Nomina2 : ClsPaginas
// Dim continuar As Boolean = objRH.SolicitudVacacionesAdd(CvePersonal, fInicio, fFin, 0, UsuarioActual.CveUsuario, VacCveSupervisor, VacFolioActual, motivoVacaciones) // Dim continuar As Boolean = objRH.SolicitudVacacionesAdd(CvePersonal, fInicio, fFin, 0, UsuarioActual.CveUsuario, VacCveSupervisor, VacFolioActual, motivoVacaciones)
bool continuar = objRH.SolicitudVacacionesAdd(SRCvePersonal, fInicio, fFin, 0, UsuarioActual.CveUsuario, VacCveSupervisor, VacFolioActual, FechaPago: fechapago, bool continuar = objRH.SolicitudVacacionesAdd(SRCvePersonal, fInicio, fFin, 0, UsuarioActual.CveUsuario, VacCveSupervisor, VacFolioActual, FechaPago: fechapago,
diasinabiles: diasinhabil, CveTipoPago: DdlFormapagovacaciones.SelectedValue.ToEntero(), diasExtras: TxtVacDiasExtra.Text.ToEntero(), diasinabiles: diasinhabil, CveTipoPago: DdlFormapagovacaciones.SelectedValue.ToEntero(), diasExtras: TxtVacDiasExtra.Text.ToEntero(),
Ejercicio: TxtVacEjercicio.Text.ToEntero(), PrimaVacacional: (ChkVacPrimaVacacional.Checked ? 1 : 0), CobrarImss: (ChkVacCobrarIMSS.Checked ? 1 : 0), diasPago: TxtVacDiasPago.Text.ToEntero() Ejercicio: DdlVacPeriodo.SelectedValue.ToEntero(), PrimaVacacional: (ChkVacPrimaVacacional.Checked ? 1 : 0), CobrarImss: (ChkVacCobrarIMSS.Checked ? 1 : 0), diasPago: TxtVacDiasPago.Text.ToEntero()
); );
if (objRH.DtResultados.Rows.Count > 0) if (objRH.DtResultados.Rows.Count > 0)
{ {
@@ -4646,7 +4658,7 @@ public partial class Nomina_Nomina2 : ClsPaginas
DataRow drh = dtpersonas.FiltroPrimero(string.Format("CvePersonal ={0}", CvePersonal)); DataRow drh = dtpersonas.FiltroPrimero(string.Format("CvePersonal ={0}", CvePersonal));
if (drh != null) if (drh != null)
{ {
paragraphh = new GemBox.Document.Paragraph(document, string.Format("CURP:{0} RFC:{1} Afiliación IMSS:{2}", drh["CURP"], drh["RFC"], drh["NumeroSS"])); cell.Blocks.Add(paragraphh); paragraphh = new GemBox.Document.Paragraph(document, string.Format("CURP:{0} RFC:{1} Afiliación IMSS:{2} Puesto: {3}", drh["CURP"], drh["RFC"], drh["NumeroSS"], drh["Puesto"])); cell.Blocks.Add(paragraphh);
paragraphh.ParagraphFormat.Style = styilo; paragraphh.ParagraphFormat.Style = styilo;
} }
paragraphh = new GemBox.Document.Paragraph(document, string.Format("Fecha Ingr:{0:dd/MM/yyyy}, S.D.:{1:N2}, S.D.I.:{2:N2}, S.B.C.:{3:N2} ", drow2["FechaIngreso"], drow2["SalarioDiario"], drow2["SalarioDiarioIntegrado"], drow2["SalarioDiarioIMSS"])); cell.Blocks.Add(paragraphh); paragraphh = new GemBox.Document.Paragraph(document, string.Format("Fecha Ingr:{0:dd/MM/yyyy}, S.D.:{1:N2}, S.D.I.:{2:N2}, S.B.C.:{3:N2} ", drow2["FechaIngreso"], drow2["SalarioDiario"], drow2["SalarioDiarioIntegrado"], drow2["SalarioDiarioIMSS"])); cell.Blocks.Add(paragraphh);

11
RH/Personal.aspx
View File

@@ -2886,7 +2886,6 @@
<asp:Repeater ID="RPTVacacionesResumen" runat="server" OnItemDataBound="RPTVacacionesResumen_ItemDataBound"> <asp:Repeater ID="RPTVacacionesResumen" runat="server" OnItemDataBound="RPTVacacionesResumen_ItemDataBound">
<HeaderTemplate> <HeaderTemplate>
<!-- CvePersonal,CveEmpresa,InicioPeriodo,FinPeriodo,Antiguedad,Ejercicio,FechaIngreso,Dias,DiasDisfrutados,DiasPrima,DiasVacaciones-->
<table class=" table table-striped table-advance table-hover Widthall" <table class=" table table-striped table-advance table-hover Widthall"
cellspacing="0" data-heighterror="330" data-freezecols="0" data-freezerows="1" cellspacing="0" data-heighterror="330" data-freezecols="0" data-freezerows="1"
id="C_Tab_TabVacaciones_GvVacacionesResumenx"> id="C_Tab_TabVacaciones_GvVacacionesResumenx">
@@ -3038,9 +3037,11 @@
</div> </div>
</div> </div>
<div class="col-md-6"> <div class="col-md-6">
<div class="form-group form-md-line-input input-iconright"> <div class="">
<asp:TextBox ID="TxtVacEjercicio" CssClass="form-control input-sm form-small" Text="2021" runat="server"></asp:TextBox> <asp:Label runat="server" AssociatedControlID="DdlVacPeriodo" Style="padding-bottom: 0px; margin-bottom: 0px; font-size: 12px; color: #888; font-weight: 400;">Periodo</asp:Label><br />
<asp:Label runat="server" AssociatedControlID="TxtVacEjercicio">Ejercicio</asp:Label> <asp:DropDownList ID="DdlVacPeriodo" DataValueField="Ejercicio" DataTextField="PeriodoText" Width="100%" CssClass="form-control select2me " runat="server"></asp:DropDownList>
<%-- <asp:TextBox ID="TxtVacEjercicio" CssClass="form-control input-sm form-small" Text="2021" runat="server"></asp:TextBox>
<asp:Label runat="server" AssociatedControlID="TxtVacEjercicio">Ejercicio</asp:Label>--%>
</div> </div>
</div> </div>
</div> </div>
@@ -3200,7 +3201,7 @@
OnRowDataBound="GvVacaciones_RowDataBound"> OnRowDataBound="GvVacaciones_RowDataBound">
<Columns> <Columns>
<asp:BoundField DataField="FechaIng" DataFormatString="{0:dd/MM/yyyy}" HeaderText="Fecha ingreso" /> <asp:BoundField DataField="FechaIng" DataFormatString="{0:dd/MM/yyyy}" HeaderText="Fecha ingreso" />
<asp:BoundField DataField="Ejercicio" HeaderText="Ejercicio" /> <asp:BoundField DataField="Ejercicio" HeaderText="Periodo" />
<asp:TemplateField HeaderText="Periodo"> <asp:TemplateField HeaderText="Periodo">
<ItemTemplate> <ItemTemplate>

8
RH/Personal.aspx.vb
View File

@@ -4790,6 +4790,12 @@ Partial Class RH_Personal
Using objnom As New ClsNominas Using objnom As New ClsNominas
If objnom.GETPersonalVacResumen(UsuarioActual.Empresa.CveEmpresa, CvePersonal) Then If objnom.GETPersonalVacResumen(UsuarioActual.Empresa.CveEmpresa, CvePersonal) Then
RPTVacacionesResumen.DataSource = objnom.DtResultados RPTVacacionesResumen.DataSource = objnom.DtResultados
DdlVacPeriodo.DataSource = objnom.DtResultados
DdlVacPeriodo.DataBind()
Dim drow As DataRow = objnom.DtResultados.FiltroPrimero("Selected =1")
If Not IsNothing(drow) Then
DdlVacPeriodo.SelectedValueExist(drow("Ejercicio"))
End If
End If End If
If objnom.GETPersonalVacaciones(UsuarioActual.Empresa.CveEmpresa, CvePersonal) Then If objnom.GETPersonalVacaciones(UsuarioActual.Empresa.CveEmpresa, CvePersonal) Then
dtosvac = objnom.DtResultados dtosvac = objnom.DtResultados
@@ -4860,7 +4866,7 @@ Partial Class RH_Personal
VacFolioActual = VacFolioActual + 1 VacFolioActual = VacFolioActual + 1
Dim objRH As New ClsRH Dim objRH As New ClsRH
'Dim continuar As Boolean = objRH.SolicitudVacacionesAdd(CvePersonal, fInicio, fFin, 0, UsuarioActual.CveUsuario, VacCveSupervisor, VacFolioActual, motivoVacaciones) 'Dim continuar As Boolean = objRH.SolicitudVacacionesAdd(CvePersonal, fInicio, fFin, 0, UsuarioActual.CveUsuario, VacCveSupervisor, VacFolioActual, motivoVacaciones)
Dim continuar As Boolean = objRH.SolicitudVacacionesAdd(CvePersonal, fInicio, fFin, 0, UsuarioActual.CveUsuario, VacCveSupervisor, VacFolioActual, FechaPago:=fechapago, diasinabiles:=diasinhabil, CveTipoPago:=DdlFormapagovacaciones.SelectedValue.ToEntero(), diasExtras:=TxtVacDiasExtra.Text.ToEntero(), Ejercicio:=TxtVacEjercicio.Text.ToEntero(), PrimaVacacional:=If(ChkVacPrimaVacacional.Checked, 1, 0), CobrarImss:=If(ChkVacCobrarIMSS.Checked, 1, 0), diasPago:=TxtVacDiasPago.Text.ToEntero()) Dim continuar As Boolean = objRH.SolicitudVacacionesAdd(CvePersonal, fInicio, fFin, 0, UsuarioActual.CveUsuario, VacCveSupervisor, VacFolioActual, FechaPago:=fechapago, diasinabiles:=diasinhabil, CveTipoPago:=DdlFormapagovacaciones.SelectedValue.ToEntero(), diasExtras:=TxtVacDiasExtra.Text.ToEntero(), Ejercicio:=DdlVacPeriodo.Text.ToEntero(), PrimaVacacional:=If(ChkVacPrimaVacacional.Checked, 1, 0), CobrarImss:=If(ChkVacCobrarIMSS.Checked, 1, 0), diasPago:=TxtVacDiasPago.Text.ToEntero())
If objRH.DtResultados.Rows.Count > 0 Then If objRH.DtResultados.Rows.Count > 0 Then
Dim ShowError As String = objRH.DtResultados.Rows(0)("ShowError").ToString() Dim ShowError As String = objRH.DtResultados.Rows(0)("ShowError").ToString()
If ShowError.Length > 0 Then If ShowError.Length > 0 Then

6
Ventas/Ventas.aspx.vb
View File

@@ -9710,7 +9710,7 @@ Partial Class Ventas
If Request("CveEmbarqueManifiesto") IsNot Nothing AndAlso IsNumeric(Request("CveEmbarqueManifiesto")) AndAlso Request("CveEmbarqueManifiesto").ToEntero() > 0 Then If Request("CveEmbarqueManifiesto") IsNot Nothing AndAlso IsNumeric(Request("CveEmbarqueManifiesto")) AndAlso Request("CveEmbarqueManifiesto").ToEntero() > 0 Then
If ObjVentas.Embarque_ManifiestoUpvta(ObjFactura.CveVenta, UsuarioActual.CveEmpresa, UsuarioActual.CveUsuario, Request("CveEmbarqueManifiesto").ToEntero()) Then If ObjVentas.Embarque_ManifiestoUpvta(ObjFactura.CveVenta, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, Request("CveEmbarqueManifiesto").ToEntero()) Then
End If End If
End If End If
@@ -9722,12 +9722,12 @@ Partial Class Ventas
If Request("CveOrdenProduccion") IsNot Nothing AndAlso IsNumeric(Request("CveOrdenProduccion")) AndAlso Request("CveOrdenProduccion").ToEntero() > 0 Then If Request("CveOrdenProduccion") IsNot Nothing AndAlso IsNumeric(Request("CveOrdenProduccion")) AndAlso Request("CveOrdenProduccion").ToEntero() > 0 Then
If ObjVentas.AgroOrdenProduccionUpvta(ObjFactura.CveVenta, UsuarioActual.CveEmpresa, UsuarioActual.CveUsuario, Request("CveOrdenProduccion").ToEntero()) Then If ObjVentas.AgroOrdenProduccionUpvta(ObjFactura.CveVenta, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, Request("CveOrdenProduccion").ToEntero()) Then
End If End If
End If End If
Catch ex As Exception Catch ex As Exception
OnError("Ocurrió un error al actualizar el embarque", ex) OnError("Ocurrió un error al actualizar la orden de producción", ex)
End Try End Try
Try Try