This commit is contained in:
2020-07-03 13:38:09 -07:00
15 changed files with 959 additions and 327 deletions

View File

@@ -5646,7 +5646,7 @@ Public Class ClsContabilidad
Optional PorcentajeIVA As Decimal = -1) As Boolean Optional PorcentajeIVA As Decimal = -1) As Boolean
Dim Retorno = False Dim Retorno = False
DataAdapter("PA_Conta_CuentasAsignacionesAdd") DataAdapter("PA_Conta_CuentasAsignacionesUpdate")
With SqlAdapter.SelectCommand.Parameters With SqlAdapter.SelectCommand.Parameters
.Add("@CveCuentaAsignacion", SqlDbType.Int).Value = CveConceptoAsignacion .Add("@CveCuentaAsignacion", SqlDbType.Int).Value = CveConceptoAsignacion

View File

@@ -1940,6 +1940,23 @@ Public Class ClsNominas
Return Retorno Return Retorno
End Function End Function
Public Function ProcesarSUA(txtSUA As String, cveEmpresa As Int32) As Boolean
Dim retorno As Boolean = False
DTSet = New DataSet()
DataAdapter("PA_Nom_SUAProcesar", CommandType.StoredProcedure)
With SqlAdapter.SelectCommand.Parameters
.Add("@TxtSUA", SqlDbType.VarChar).Value = txtSUA
.Add("@CveEmpresa", SqlDbType.Int).Value = cveEmpresa
End With
Try
SqlAdapter.Fill(DTSet)
retorno = True
Catch ex As Exception
retorno = False
OnError("Ocurrió un error al procesar SUA.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo())
End Try
Return retorno
End Function
Public Function GetNominaEmpleadoSimulador(CveProyecto As Integer, CveSubProyecto As Integer, CveTurno As Integer, CvePeriodo As Integer, CveEmpresa As Integer, Agrupador As Integer, SalarioDiario As Decimal) As Boolean Public Function GetNominaEmpleadoSimulador(CveProyecto As Integer, CveSubProyecto As Integer, CveTurno As Integer, CvePeriodo As Integer, CveEmpresa As Integer, Agrupador As Integer, SalarioDiario As Decimal) As Boolean
Dim retorno As Boolean = False Dim retorno As Boolean = False
Try Try

View File

@@ -1973,11 +1973,12 @@ chkAplicaVacacion As Boolean, chkAplicaIncapacidad As Boolean, chkAplicaRetardo
End Try End Try
Return Retorno Return Retorno
End Function End Function
Public Function UpdateSalarios(CvePersonal As Integer, CveEmpresa As Integer, SalarioDiario As Double, SDI As Double, SalarioDiarioSS As Double, SalarioDiarioPago As Double) As Boolean Public Function UpdateSalarios(CvePersonal As Integer, Fecha As String, CveEmpresa As Integer, SalarioDiario As Double, SDI As Double, SalarioDiarioSS As Double, SalarioDiarioPago As Double) As Boolean
Dim Retorno As Boolean = False Dim Retorno As Boolean = False
SqlDataAdapter("PA_RH_PersonalUpdateSalarios") SqlDataAdapter("PA_RH_PersonalUpdateSalarios")
With SqlAdapter.SelectCommand.Parameters With SqlAdapter.SelectCommand.Parameters
.Add("@CvePersonal", SqlDbType.Int).Value = CvePersonal .Add("@CvePersonal", SqlDbType.Int).Value = CvePersonal
.Add("@Fecha", SqlDbType.Date).Value = Fecha
.Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa
.Add("@SalarioDiarioPago", SqlDbType.Money).Value = SalarioDiarioPago .Add("@SalarioDiarioPago", SqlDbType.Money).Value = SalarioDiarioPago
.Add("@SalarioDiario", SqlDbType.Money).Value = SalarioDiario .Add("@SalarioDiario", SqlDbType.Money).Value = SalarioDiario
@@ -1994,6 +1995,24 @@ chkAplicaVacacion As Boolean, chkAplicaIncapacidad As Boolean, chkAplicaRetardo
End Function End Function
Public Function GetMovimientosToSUA(CveEmpresa As Integer, FechaI As String, FechaF As String) As Boolean
Dim Retorno As Boolean = False
SqlDataAdapter("PA_RH_MovimientosToSUA")
With SqlAdapter.SelectCommand.Parameters
.Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa
.Add("@FechaI", SqlDbType.VarChar).Value = FechaI
.Add("@FechaF", SqlDbType.VarChar).Value = FechaF
End With
Try
SqlAdapter.Fill(Data)
Retorno = True
Catch ex As SqlException
OnError("Ocurrió un error al intentar guardar los cambios en el Personal.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo)
End Try
Return Retorno
End Function
Public Function UpdateRFCValidado(RFC As String, CveEmpresa As Integer, RFCValidadoisok As Boolean) As Boolean Public Function UpdateRFCValidado(RFC As String, CveEmpresa As Integer, RFCValidadoisok As Boolean) As Boolean
Dim Retorno As Boolean = False Dim Retorno As Boolean = False

View File

@@ -1344,7 +1344,7 @@ Namespace Modelos
Public Sub GuardarVenta(ByRef factura As Modelos.Factura, ByRef ObjVentas As ClsVentas, ByRef ObjConta As ClsContabilidad, ByRef ObjInventario As ClsInventarios, ByRef ObjContr As ClsContratos, ByRef TmpDTDetalle As DataTable, CveNCaVincular As Integer, ByRef objContPaqi As ClsContPAQi, Optional ByRef ObjBancos As ClsBancos = Nothing, Optional ByRef ObjOS As ClsOS = Nothing, ByRef Optional ObjEventos As ClsOIEventos = Nothing, ByRef Optional ObjCGame As ClsCGame = Nothing, ByRef Optional ObjCliente As ClsClientes = Nothing, Optional EsNotaCredito As Boolean = False, Optional ObjAcum As ClsAcumuladores = Nothing) Public Sub GuardarVenta(ByRef factura As Modelos.Factura, ByRef ObjVentas As ClsVentas, ByRef ObjConta As ClsContabilidad, ByRef ObjInventario As ClsInventarios, ByRef ObjContr As ClsContratos, ByRef TmpDTDetalle As DataTable, CveNCaVincular As Integer, ByRef objContPaqi As ClsContPAQi, Optional ByRef ObjBancos As ClsBancos = Nothing, Optional ByRef ObjOS As ClsOS = Nothing, ByRef Optional ObjEventos As ClsOIEventos = Nothing, ByRef Optional ObjCGame As ClsCGame = Nothing, ByRef Optional ObjCliente As ClsClientes = Nothing, Optional EsNotaCredito As Boolean = False, Optional ObjAcum As ClsAcumuladores = Nothing)
Dim Msgok As New StringBuilder Dim Msgok As New StringBuilder
factura.CvePrePoliza = ObjConta.AddPrePolizas("Ventas/GuardarVenta", factura.CvePlantillaPoliza, factura.TotalTC, factura.TotalTC, factura.CveMoneda, factura.Fecha, If(factura.CveEmpresaCRM > 0, factura.EmpresaCRM, factura.Cliente.Nombre), factura.CveUsuario, factura.CveEmpresa) factura.CvePrePoliza = ObjConta.AddPrePolizas("Ventas/GuardarVentaM", factura.CvePlantillaPoliza, factura.TotalTC, factura.TotalTC, factura.CveMoneda, factura.Fecha, If(factura.CveEmpresaCRM > 0, factura.EmpresaCRM, factura.Cliente.Nombre), factura.CveUsuario, factura.CveEmpresa)
If Not ObjVentas.AddVenta(factura.TipoDocto, factura.Folio, factura.CveCliente, factura.CveClienteSucursal, factura.SubTotalTC, factura.DescuentoTC, If Not ObjVentas.AddVenta(factura.TipoDocto, factura.Folio, factura.CveCliente, factura.CveClienteSucursal, factura.SubTotalTC, factura.DescuentoTC,
factura.AmortizacionTC, factura.IVATC, factura.RetIVATC, factura.RetISRTC, factura.AmortizacionTC, factura.IVATC, factura.RetIVATC, factura.RetISRTC,
@@ -2213,7 +2213,7 @@ Namespace Modelos
End If End If
IdCtaContable = ObjFactura.Cliente.IdCtaContMonedaExtranjera IdCtaContable = ObjFactura.Cliente.IdCtaContMonedaExtranjera
CveCuenta = ObjFactura.Cliente.CveCuentaMonedaExtranjera 'CveCuenta = ObjFactura.Cliente.CveCuentaMonedaExtranjera
End If End If
CveSubProyectoContabilizar = CveSubProyectoVenta CveSubProyectoContabilizar = CveSubProyectoVenta
ImporteConcepto12 = importeMX.RoundSQL ImporteConcepto12 = importeMX.RoundSQL
@@ -2222,10 +2222,10 @@ Namespace Modelos
CuentasContablesInvalidas.Append("<br>" & GlobalDTContaConceptosContables(-1).FiltroPrimero(String.Format("CveConceptoContable = {0}", ConceptoContable))("ConceptoContable").ToString) CuentasContablesInvalidas.Append("<br>" & GlobalDTContaConceptosContables(-1).FiltroPrimero(String.Format("CveConceptoContable = {0}", ConceptoContable))("ConceptoContable").ToString)
idCuentaContabilizacion = 0 idCuentaContabilizacion = 0
End If End If
If CveCuenta <= 0 Then 'If CveCuenta <= 0 Then
CuentasContablesInvalidasSIG.Append("<br>" & GlobalDTContaConceptosContables(-1).FiltroPrimero(String.Format("CveConceptoContable = {0}", ConceptoContable))("ConceptoContable").ToString) ' CuentasContablesInvalidasSIG.Append("<br>" & GlobalDTContaConceptosContables(-1).FiltroPrimero(String.Format("CveConceptoContable = {0}", ConceptoContable))("ConceptoContable").ToString)
CveCuentaContabilizacion = 0 ' CveCuentaContabilizacion = 0
End If 'End If
If Not ObjConta.AddPrePolizasDetalle(ObjFactura.CvePrePoliza, TipoMovimiento, importeMovimiento, Referencia, ConceptoContable, Concepto, FechaMovimiento, IdCtaContable, -1, CveVenta:=ObjFactura.CveVenta, CveCliente:=ObjFactura.CveCliente, CveIE:=CveIE, ImporteMX:=importeMX, ImporteME:=If(tipoCambio = 1, 0, importeMovimiento), CveCuenta:=CveCuenta, CveSubProyecto:=CveSubProyectoContabilizar) Then If Not ObjConta.AddPrePolizasDetalle(ObjFactura.CvePrePoliza, TipoMovimiento, importeMovimiento, Referencia, ConceptoContable, Concepto, FechaMovimiento, IdCtaContable, -1, CveVenta:=ObjFactura.CveVenta, CveCliente:=ObjFactura.CveCliente, CveIE:=CveIE, ImporteMX:=importeMX, ImporteME:=If(tipoCambio = 1, 0, importeMovimiento), CveCuenta:=CveCuenta, CveSubProyecto:=CveSubProyectoContabilizar) Then
ErrorPrepoliza = True ErrorPrepoliza = True
Else Else
@@ -2804,7 +2804,7 @@ Namespace Modelos
End If End If
CveCuenta = GlobalDTClasificaciones(ObjFactura.CveEmpresa).FiltroPrimeroValor("IdCuentaIngresosSIG", String.Format("CveClasificacion = {0}", Row2("CveClasificacion"))).ToEntero 'CveCuenta = GlobalDTClasificaciones(ObjFactura.CveEmpresa).FiltroPrimeroValor("IdCuentaIngresosSIG", String.Format("CveClasificacion = {0}", Row2("CveClasificacion"))).ToEntero
If importeMovimiento <> 0 Then If importeMovimiento <> 0 Then
@@ -2813,10 +2813,10 @@ Namespace Modelos
idCuentaContabilizacion = 0 idCuentaContabilizacion = 0
End If End If
If CveCuenta <= 0 Then 'If CveCuenta <= 0 Then
CuentasContablesInvalidasSIG.Append("<br>" & GlobalDTContaConceptosContables(-1).FiltroPrimero(String.Format("CveConceptoContable = {0}", ConceptoContable))("ConceptoContable").ToString + GlobalDTClasificaciones(UsuarioActual.CveEmpresa).FiltroPrimeroValor("Clasificacion", $"CveClasificacion = {Row2("CveClasificacion").ToString}")) ' CuentasContablesInvalidasSIG.Append("<br>" & GlobalDTContaConceptosContables(-1).FiltroPrimero(String.Format("CveConceptoContable = {0}", ConceptoContable))("ConceptoContable").ToString + GlobalDTClasificaciones(UsuarioActual.CveEmpresa).FiltroPrimeroValor("Clasificacion", $"CveClasificacion = {Row2("CveClasificacion").ToString}"))
CveCuentaContabilizacion = 0 ' CveCuentaContabilizacion = 0
End If 'End If
If Not ObjConta.AddPrePolizasDetalle(ObjFactura.CvePrePoliza, TipoMovimiento, importeMovimiento, Referencia, ConceptoContableAplicar, Concepto, ObjFactura.Fecha, IdCtaContable, -1, CveVenta:=CveVentaAplicar, CveVentaAmortizacion:=CveVentaAmortizacionAplicar, CveCliente:=ObjFactura.CveCliente, CveIE:=CveIE, CveClasificacion:=Row2("CveClasificacion").ToString.ToEntero, CveSubProyecto:=Row2("CveSubProyecto").ToString.ToEntero, ImporteMX:=importeMX, ImporteME:=If(tipoCambio = 1, 0, importeMovimiento), TipoCambio:=tipoCambio, CveCuenta:=CveCuenta) Then If Not ObjConta.AddPrePolizasDetalle(ObjFactura.CvePrePoliza, TipoMovimiento, importeMovimiento, Referencia, ConceptoContableAplicar, Concepto, ObjFactura.Fecha, IdCtaContable, -1, CveVenta:=CveVentaAplicar, CveVentaAmortizacion:=CveVentaAmortizacionAplicar, CveCliente:=ObjFactura.CveCliente, CveIE:=CveIE, CveClasificacion:=Row2("CveClasificacion").ToString.ToEntero, CveSubProyecto:=Row2("CveSubProyecto").ToString.ToEntero, ImporteMX:=importeMX, ImporteME:=If(tipoCambio = 1, 0, importeMovimiento), TipoCambio:=tipoCambio, CveCuenta:=CveCuenta) Then
ErrorPrepoliza = True ErrorPrepoliza = True
@@ -2891,7 +2891,7 @@ Namespace Modelos
If Row2("CveClasificacion").ToString = "19929" Then IdCtaContable = 1142 If Row2("CveClasificacion").ToString = "19929" Then IdCtaContable = 1142
End If End If
CveCuenta = GlobalDTClasificaciones(ObjFactura.CveEmpresa).FiltroPrimeroValor("IdCuentaIngresosSIG", String.Format("CveClasificacion = {0}", Row2("CveClasificacion"))).ToEntero 'CveCuenta = GlobalDTClasificaciones(ObjFactura.CveEmpresa).FiltroPrimeroValor("IdCuentaIngresosSIG", String.Format("CveClasificacion = {0}", Row2("CveClasificacion"))).ToEntero
If importeMovimiento <> 0 Then If importeMovimiento <> 0 Then
@@ -2900,10 +2900,10 @@ Namespace Modelos
idCuentaContabilizacion = 0 idCuentaContabilizacion = 0
End If End If
If CveCuenta <= 0 Then 'If CveCuenta <= 0 Then
CuentasContablesInvalidasSIG.Append("<br>" & GlobalDTContaConceptosContables(-1).FiltroPrimero(String.Format("CveConceptoContable = {0}", ConceptoContable))("ConceptoContable").ToString + GlobalDTClasificaciones(UsuarioActual.CveEmpresa).FiltroPrimeroValor("Clasificacion", $"CveClasificacion = {Row2("CveClasificacion").ToString}")) ' CuentasContablesInvalidasSIG.Append("<br>" & GlobalDTContaConceptosContables(-1).FiltroPrimero(String.Format("CveConceptoContable = {0}", ConceptoContable))("ConceptoContable").ToString + GlobalDTClasificaciones(UsuarioActual.CveEmpresa).FiltroPrimeroValor("Clasificacion", $"CveClasificacion = {Row2("CveClasificacion").ToString}"))
CveCuentaContabilizacion = 0 ' CveCuentaContabilizacion = 0
End If 'End If
If Not ObjConta.AddPrePolizasDetalle(ObjFactura.CvePrePoliza, TipoMovimiento, importeMovimiento, Referencia, ConceptoContableAplicar, Concepto, ObjFactura.Fecha, IdCtaContable, -1, CveVenta:=CveVentaAplicar, CveVentaAmortizacion:=CveVentaAmortizacionAplicar, CveCliente:=ObjFactura.CveCliente, CveIE:=CveIE, CveClasificacion:=Row2("CveClasificacion").ToString.ToEntero, CveSubProyecto:=Row2("CveSubProyecto").ToString.ToEntero, ImporteMX:=importeMX, ImporteME:=If(tipoCambio = 1, 0, importeMovimiento), TipoCambio:=tipoCambio, CveCuenta:=CveCuenta) Then If Not ObjConta.AddPrePolizasDetalle(ObjFactura.CvePrePoliza, TipoMovimiento, importeMovimiento, Referencia, ConceptoContableAplicar, Concepto, ObjFactura.Fecha, IdCtaContable, -1, CveVenta:=CveVentaAplicar, CveVentaAmortizacion:=CveVentaAmortizacionAplicar, CveCliente:=ObjFactura.CveCliente, CveIE:=CveIE, CveClasificacion:=Row2("CveClasificacion").ToString.ToEntero, CveSubProyecto:=Row2("CveSubProyecto").ToString.ToEntero, ImporteMX:=importeMX, ImporteME:=If(tipoCambio = 1, 0, importeMovimiento), TipoCambio:=tipoCambio, CveCuenta:=CveCuenta) Then
ErrorPrepoliza = True ErrorPrepoliza = True
@@ -3194,7 +3194,7 @@ Namespace Modelos
If GlobalDTBancosCuentas(UsuarioActual.CveUsuario, DrPago("CveCuenta").ToString.ToEntero).Rows.Count = 1 Then If GlobalDTBancosCuentas(UsuarioActual.CveUsuario, DrPago("CveCuenta").ToString.ToEntero).Rows.Count = 1 Then
IdCtaContable = GlobalDTBancosCuentas(UsuarioActual.CveUsuario, DrPago("CveCuenta").ToString.ToEntero).Rows(0)("IdCtaContable").ToString.ToEntero IdCtaContable = GlobalDTBancosCuentas(UsuarioActual.CveUsuario, DrPago("CveCuenta").ToString.ToEntero).Rows(0)("IdCtaContable").ToString.ToEntero
CveCuenta = GlobalDTBancosCuentas(UsuarioActual.CveUsuario, DrPago("CveCuenta").ToString.ToEntero).Rows(0)("IdCtaContableSIG").ToString.ToEntero ' CveCuenta = GlobalDTBancosCuentas(UsuarioActual.CveUsuario, DrPago("CveCuenta").ToString.ToEntero).Rows(0)("IdCtaContableSIG").ToString.ToEntero
End If End If
If IdCtaContable <= 0 Then If IdCtaContable <= 0 Then
@@ -3202,10 +3202,10 @@ Namespace Modelos
idCuentaContabilizacion = 0 idCuentaContabilizacion = 0
End If End If
If CveCuenta <= 0 Then 'If CveCuenta <= 0 Then
CuentasContablesInvalidasSIG.AppendFormat("<br> {0}", GlobalDTBancosCuentas(UsuarioActual.CveUsuario, DrPago("CveCuenta").ToString.ToEntero).Rows(0)("NumCuentaMoneda").ToString.ToEntero) ' CuentasContablesInvalidasSIG.AppendFormat("<br> {0}", GlobalDTBancosCuentas(UsuarioActual.CveUsuario, DrPago("CveCuenta").ToString.ToEntero).Rows(0)("NumCuentaMoneda").ToString.ToEntero)
CveCuentaContabilizacion = 0 ' CveCuentaContabilizacion = 0
End If 'End If
'BANCOS 'BANCOS
Concepto = ObjConta.ObtenerConceptoEmpresa(UsuarioActual.CveEmpresa, 30, ObjFactura.Cliente.Nombre, $"{ObjFactura.Serie}-{ObjFactura.Folio}", FolioIE.ToString) Concepto = ObjConta.ObtenerConceptoEmpresa(UsuarioActual.CveEmpresa, 30, ObjFactura.Cliente.Nombre, $"{ObjFactura.Serie}-{ObjFactura.Folio}", FolioIE.ToString)
@@ -3272,10 +3272,10 @@ Namespace Modelos
idCuentaContabilizacion = 0 idCuentaContabilizacion = 0
End If End If
If CveCuenta <= 0 Then 'If CveCuenta <= 0 Then
CuentasContablesInvalidasSIG.Append("<br>" & GlobalDTContaConceptosContables(-1).FiltroPrimero(String.Format("CveConceptoContable = {0}", ConceptoContable))("ConceptoContable").ToString) ' CuentasContablesInvalidasSIG.Append("<br>" & GlobalDTContaConceptosContables(-1).FiltroPrimero(String.Format("CveConceptoContable = {0}", ConceptoContable))("ConceptoContable").ToString)
CveCuentaContabilizacion = 0 ' CveCuentaContabilizacion = 0
End If 'End If
If Not ObjConta.AddPrePolizasDetalle(ObjFactura.CvePrePoliza, TipoMovimiento, importeMovimiento, Referencia, ConceptoContable, Concepto, FechaMovimiento, IdCtaContable, -1, CveVenta:=ObjFactura.CveVenta, CveCliente:=ObjFactura.CveCliente, CveIE:=CveIE, ImporteMX:=importeMX, ImporteME:=If(tipoCambio = 1, 0, importeMovimiento), CveCuenta:=CveCuenta, CveSubProyecto:=CveSubProyectoContabilizar, PorcentajeImpuesto:=PorcentajeImpuesto, TipoCambio:=tipoCambio, Contabilizable:=SeContabiliza) Then If Not ObjConta.AddPrePolizasDetalle(ObjFactura.CvePrePoliza, TipoMovimiento, importeMovimiento, Referencia, ConceptoContable, Concepto, FechaMovimiento, IdCtaContable, -1, CveVenta:=ObjFactura.CveVenta, CveCliente:=ObjFactura.CveCliente, CveIE:=CveIE, ImporteMX:=importeMX, ImporteME:=If(tipoCambio = 1, 0, importeMovimiento), CveCuenta:=CveCuenta, CveSubProyecto:=CveSubProyectoContabilizar, PorcentajeImpuesto:=PorcentajeImpuesto, TipoCambio:=tipoCambio, Contabilizable:=SeContabiliza) Then
ErrorPrepoliza = True ErrorPrepoliza = True

View File

@@ -71,8 +71,8 @@
<label for="<%= DdlCconceptosContables.ClientID.ToString()%>">Concepto Contable: </label> <label for="<%= DdlCconceptosContables.ClientID.ToString()%>">Concepto Contable: </label>
</div> </div>
<div class="form-group form-md-line-input input-iconright"> <div class="form-group form-md-line-input input-iconright">
<asp:DropDownList ID="DdlCuenta" CssClass="form-control input-sm select2me js-cuenta-programmatic select2me" runat="server" AppendDataBoundItems="true" DataTextField="Nombre" DataValueField="CveCuenta" Width="240px" ValidationGroup="GrpModulo"></asp:DropDownList> <asp:DropDownList ID="DdlCuenta" CssClass="form-control input-sm select2me js-cuenta-programmatic select2me" runat="server" AppendDataBoundItems="true" DataTextField="CtaCodigo" DataValueField="CveCuenta" Width="240px" ValidationGroup="GrpModulo"></asp:DropDownList>
<label for="<%= DdlCuenta.ClientID.ToString()%>">Concepto Contable: </label> <label for="<%= DdlCuenta.ClientID.ToString()%>">Cuenta Contable: </label>
</div> </div>
<div class="form-group form-md-line-input input-iconright"> <div class="form-group form-md-line-input input-iconright">
<asp:TextBox ID="TxtIdCuentaContable" CssClass="form-control " runat="server" MaxLength="50" CausesValidation="true" style="width:100%"></asp:TextBox> <asp:TextBox ID="TxtIdCuentaContable" CssClass="form-control " runat="server" MaxLength="50" CausesValidation="true" style="width:100%"></asp:TextBox>
@@ -112,6 +112,7 @@
<div class="modal-footer"> <div class="modal-footer">
<asp:LinkButton ID="LbAgregar" runat="server" class="btn btn-success" Text="Agregar" ValidationGroup="GrpModulo" /> <asp:LinkButton ID="LbAgregar" runat="server" class="btn btn-success" Text="Agregar" ValidationGroup="GrpModulo" />
<button id="BtnCancelarProyecto" runat="server" type="button" class="btn default" data-dismiss="modal">Cancelar</button> <button id="BtnCancelarProyecto" runat="server" type="button" class="btn default" data-dismiss="modal">Cancelar</button>
<asp:CheckBox ID="ChkSeguirRegistrando" Checked="true" Text="Seguir Registrando" runat="server" />
</div> </div>
</ContentTemplate> </ContentTemplate>
</asp:UpdatePanel> </asp:UpdatePanel>

View File

@@ -32,10 +32,6 @@ Partial Class Contabilidad2_CatCuentasAsignaciones
Private Sub CargaDatosModal() Private Sub CargaDatosModal()
Dim ObjConta As New ClsContabilidad Dim ObjConta As New ClsContabilidad
Dim ObjProveedores As New ClsCompProveedores
Dim ObjRH As New ClsRH
Dim ObjClasificaciones As New ClsClasificaciones
Dim ObjInv As New ClsInventarios
If ObjConta.GetConta_ConceptosContables() Then If ObjConta.GetConta_ConceptosContables() Then
DdlCconceptosContables.DataSource = ObjConta.DtResultados DdlCconceptosContables.DataSource = ObjConta.DtResultados
@@ -45,31 +41,17 @@ Partial Class Contabilidad2_CatCuentasAsignaciones
DdlCuenta.DataSource = ObjConta.DtResultados DdlCuenta.DataSource = ObjConta.DtResultados
End If End If
If ObjProveedores.GetProveedores(ClsCompProveedores.TipoConsulta.ParaUsoEnEmpresa, -1, "-1", "-1", "-1", "-1", "-1", "-1", "-1", -1, UsuarioActual.CveEmpresa) Then DdlProveedor.DataSource = GlobalDTCompProveedores(UsuarioActual.CveEmpresa)
DdlProveedor.DataSource = GlobalDTCompProveedores(UsuarioActual.CveEmpresa)
End If
DdlClientes.setEsWebService(True) DdlClientes.setEsWebService(True)
DdlPersonal.setEsWebService(True) DdlPersonal.setEsWebService(True)
'If ObjRH.GetPersonal(-1, UsuarioActual.CveEmpresa) Then
' DdlPersonal.DataSource = ObjRH.DtResultados
'End If
If ObjClasificaciones.GetClasificaciones(CveEmpresa:=UsuarioActual.CveEmpresa) Then DdlClasificacion.DataSource = GlobalDTClasificaciones(UsuarioActual.CveEmpresa)
DdlClasificacion.DataSource = ObjClasificaciones.DtResultados
End If
If ObjInv.GetAlmacenes(-1, -1, UsuarioActual.CveEmpresa, -1) Then DdlAlmacen.DataSource = GlobalDTAlmacen(UsuarioActual.CveEmpresa)
DdlAlmacen.DataSource = ObjInv.DtResultados
End If
ObjConta.Dispose() ObjConta.Dispose()
ObjProveedores.Dispose()
ObjRH.Dispose()
ObjClasificaciones.Dispose()
ObjInv.Dispose()
DdlCconceptosContables.DataBind() DdlCconceptosContables.DataBind()
DdlCuenta.DataBind() DdlCuenta.DataBind()
@@ -171,7 +153,8 @@ Partial Class Contabilidad2_CatCuentasAsignaciones
End If End If
End If End If
ObjConta.Dispose() ObjConta.Dispose()
RegistraScript("$('#ModalCat').modal('hide');") If Not ChkSeguirRegistrando.Checked Then RegistraScript("$('#ModalCat').modal('hide');")
If ErrorString.Length > 0 Then If ErrorString.Length > 0 Then
Alert(ErrorString) Alert(ErrorString)
Else Else

View File

@@ -4,10 +4,39 @@
</asp:Content> </asp:Content>
<asp:Content ID="Content2" ContentPlaceHolderID="Css" runat="Server"> <asp:Content ID="Content2" ContentPlaceHolderID="Css" runat="Server">
<style> <style>
.addropzone {
min-height: 130px;
}
span.font-black { span.font-black {
color: #333; color: #333;
} }
.TotalWhite {
color: #FFFFFF !important;
}
.isOnlyVisible {
color: #666;
/*text-decoration: line-through;*/
}
.isOnlyBisibleP td:nth-child(1) {
/*text-decoration: line-through;*/
}
.isOnlyBisibleD td:nth-last-child(3) {
/*text-decoration: line-through;*/
}
.isOnlyBisibleP td:nth-child(-n+3) {
color: #999;
}
.isOnlyBisibleD td:nth-last-child(-n+3) {
color: #999;
}
.GvConceptos { .GvConceptos {
border: 1px solid #E87E04; border: 1px solid #E87E04;
} }
@@ -94,10 +123,10 @@
<asp:LinkButton ID="LnkSimulador" OnClick="LnkSimulador_Click" runat="server"><i class="fa fa-calculator"></i> Simulador</asp:LinkButton> <asp:LinkButton ID="LnkSimulador" OnClick="LnkSimulador_Click" runat="server"><i class="fa fa-calculator"></i> Simulador</asp:LinkButton>
</li> </li>
<li> <li>
<asp:HyperLink ID="HypSua" data-toggle="modal" data-target="#DModalValidacionMasiva" runat="server"><i class="fa fa-check"></i> Cargar archivoSua</asp:HyperLink> <asp:LinkButton ID="LnkUpSuamodal" OnClick="LnkUpSuamodal_Click" runat="server"><i class="fa fa-check"></i> Procesar archivo SUA</asp:LinkButton>
</li> </li>
<li> <li>
<asp:LinkButton ID="LnkDownArchivosSua" OnClick="LnkDownArchivosSua_Click" runat="server"><i class="fa fa-download"></i> Descargar Archivos sua</asp:LinkButton> <asp:LinkButton ID="LnkDownArchivosSua" OnClick="LnkDownArchivosSua_Click" runat="server"><i class="fa fa-download"></i> Descargar Archivos SUA</asp:LinkButton>
</li> </li>
</ContentTemplate> </ContentTemplate>
<Triggers> <Triggers>
@@ -572,7 +601,7 @@
<asp:GridView ID="GvConceptos" runat="server" AutoGenerateColumns="False" CssClass="table table-striped table-hover Widthall GvConceptos" <asp:GridView ID="GvConceptos" runat="server" AutoGenerateColumns="False" CssClass="table table-striped table-hover Widthall GvConceptos"
Style="text-align: center;" GridLines="None" OnRowDataBound="GvConceptos_RowDataBound" Style="text-align: center;" GridLines="None" OnRowDataBound="GvConceptos_RowDataBound"
DataKeyNames="ConceptoP,CveConceptoP,ImporteP,ValorP,EstatusP,ConceptoD,CveConceptoD,ImporteD,EstatusD,ValorD"> DataKeyNames="ConceptoP,CveConceptoP,ImporteP,ValorP,EstatusP,ConceptoD,CveConceptoD,ImporteD,isOnlyBisibleP,isOnlyBisibleD,EstatusD,ValorD">
<Columns> <Columns>
<asp:TemplateField HeaderText="Concepto"> <asp:TemplateField HeaderText="Concepto">
<ItemTemplate> <ItemTemplate>
@@ -1149,8 +1178,6 @@
</ContentTemplate> </ContentTemplate>
</asp:UpdatePanel> </asp:UpdatePanel>
</div> </div>
<div id="DSimulador" class="modal ADS fade" role="dialog"> <div id="DSimulador" class="modal ADS fade" role="dialog">
<asp:UpdatePanel ID="UpSimulador" class="modal-dialog" tabindex="-1" runat="server" UpdateMode="Conditional"> <asp:UpdatePanel ID="UpSimulador" class="modal-dialog" tabindex="-1" runat="server" UpdateMode="Conditional">
<ContentTemplate> <ContentTemplate>
@@ -1190,7 +1217,7 @@
</table>--%> </table>--%>
<asp:GridView ID="GvConceptossimulador" runat="server" AutoGenerateColumns="False" CssClass="table table-striped table-hover Widthall GvConceptossimulador" <asp:GridView ID="GvConceptossimulador" runat="server" AutoGenerateColumns="False" CssClass="table table-striped table-hover Widthall GvConceptossimulador"
Style="text-align: center;" GridLines="None" OnRowDataBound="GvConceptos_RowDataBound" ShowHeaderWhenEmpty="true" Style="text-align: center;" GridLines="None" OnRowDataBound="GvConceptos_RowDataBound" ShowHeaderWhenEmpty="true"
DataKeyNames="ConceptoP,CveConceptoP,ImporteP,ValorP,EstatusP,ConceptoD,CveConceptoD,ImporteD,EstatusD,ValorD"> DataKeyNames="ConceptoP,CveConceptoP,ImporteP,ValorP,EstatusP,ConceptoD,CveConceptoD,ImporteD,EstatusD,ValorD,isOnlyBisibleD,isOnlyBisibleP">
<Columns> <Columns>
<asp:TemplateField HeaderText="Concepto"> <asp:TemplateField HeaderText="Concepto">
<ItemTemplate> <ItemTemplate>
@@ -1236,7 +1263,7 @@
<HeaderStyle CssClass="SearchADHeader" /> <HeaderStyle CssClass="SearchADHeader" />
</asp:GridView> </asp:GridView>
<table> <table>
<%-- <tr id="Totalesperdeduccion"> <%-- <tr id="Totalesperdeduccion">
<td colspan="2" class="text-left">TOTAL</td> <td colspan="2" class="text-left">TOTAL</td>
<td colspan="1">0.00</td> <td colspan="1">0.00</td>
<td colspan="2" class="text-left">TOTAL</td> <td colspan="2" class="text-left">TOTAL</td>
@@ -1269,10 +1296,363 @@
</ContentTemplate> </ContentTemplate>
</asp:UpdatePanel> </asp:UpdatePanel>
</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>
<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">Procesar Archivo SUA</h4>
</div>
<div class="modal-body">
<div class="portlet light smmallpadding bordered" id="cargaarchivoprocesasua">
<div class="portlet-title">
<div class="caption font-green">
<i class="fa fa-download font-green"></i>
<span class="caption-subject bold uppercase">Paso 1: Cargar Archivo</span>
</div>
<div class="tools">
<a href="javascript:;" class="collapse" data-original-title="" title=""></a>
</div>
</div>
<div class="portlet-body rowpadding">
<asp:TextBox ID="TxtArchivoSua" CssClass="ADSdropzone hidden" runat="server"></asp:TextBox>
<div class="text-center">
<asp:LinkButton ID="LnkUpSuaFile" OnClick="LnkUpSuaFile_Click" CssClass="btn btn-primary" runat="server"> Procesar</asp:LinkButton>
</div>
</div>
</div>
<div class="portlet light smmallpadding bordered" id="resultadoprocesasua">
<div class="portlet-title">
<div class="caption font-green">
<i class="fa fa-download font-green"></i>
<span class="caption-subject bold uppercase">Paso 2:Resultado</span>
</div>
<div class="tools">
<a href="javascript:;" class="expand" data-original-title="" title=""></a>
</div>
<script>
function shownew() {
setTimeout(function () {
let collapse = $('#resultadoprocesasua .collapse');
let body = $('#resultadoprocesasua .portlet-body');
if (collapse && collapse.length > 0) {
collapse.removeClass('collapse');
collapse.addClass('expand');
}
if (body && body.length > 0) {
body.css('display', 'none');
}
collapse = $('#cargaarchivoprocesasua .expand');
body = $('#cargaarchivoprocesasua .portlet-body');
if (collapse && collapse.length > 0) {
collapse.addClass('collapse');
collapse.removeClass('expand');
}
if (body && body.length > 0) {
body.css('display', '');
}
}, 400);
}
function showResult() {
setTimeout(function () {
let collapse = $('#cargaarchivoprocesasua .expand');
let body = $('#cargaarchivoprocesasua .portlet-body');
if (collapse && collapse.length > 0) {
collapse.removeClass('collapse');
collapse.addClass('expand');
}
if (body && body.length > 0) {
body.css('display', 'none');
}
collapse = $('#resultadoprocesasua .collapse');
body = $('#resultadoprocesasua .portlet-body');
if (collapse && collapse.length > 0) {
collapse.addClass('collapse');
collapse.removeClass('expand');
}
if (body && body.length > 0) {
body.css('display', '');
}
}, 400);
}
</script>
</div>
<div class="portlet-body rowpadding " style="display: none;">
<div style="width: 1200px; height: 350px; overflow: auto;">
<asp:GridView ID="GVProcesarSUA" runat="server" GridLines="None" CssClass="table table-hover table-striped ScrollAD" AutoGenerateColumns="False"
OnDataBound="GVProcesarSUA_DataBound" data-height="300"
DataKeyNames="CvePersonal,CodigoNombreCompleto,CuotaFijaSUA,CuotaFijaSIG,CuotaExcedenteSUA,CuotaExcedenteSIG,PrestacionesDineroSUA,PrestacionesSIG,GastosMedPenSUA,GastosMedicosSIG,RiesgosdeTrabajoSUA,RiesgoTrabajoSIG,InvalidezyVidaSUA,InvalidezyVidaSIG,GuarderiaSUA,GuarderiaSIG,RetiroSUA,RetiroSIG,SalarioSUA,SalarioSIG">
<Columns>
<asp:TemplateField HeaderText="Nombre">
<ItemTemplate>
<asp:Label ID="lblcodigoNombreCompleto" runat="server" Text='<%# Eval("CodigoNombreCompleto")%>'> </asp:Label>
</ItemTemplate>
</asp:TemplateField>
<asp:TemplateField HeaderText="Salario">
<ItemTemplate>
<table>
<tr class="titulorow">
<td>SUA</td>
<td>SIG</td>
</tr>
<tr class="itemrow">
<td>
<asp:Label runat="server" Text='<%# Eval("SalarioSUA","{0:N2}")%>'> </asp:Label></td>
<td>
<asp:Label runat="server" Text='<%# Eval("SalarioSIG","{0:N2}")%>'> </asp:Label></td>
</tr>
</table>
</ItemTemplate>
</asp:TemplateField>
<asp:TemplateField HeaderText="Cuota Fija">
<ItemTemplate>
<table>
<tr class="titulorow">
<td>SUA</td>
<td>SIG</td>
</tr>
<tr class="itemrow">
<td>
<asp:Label runat="server" Text='<%# Eval("CuotaFijaSUA","{0:N2}")%>'> </asp:Label></td>
<td>
<asp:Label runat="server" Text='<%# Eval("CuotaFijaSIG","{0:N2}")%>'> </asp:Label></td>
</tr>
</table>
</ItemTemplate>
</asp:TemplateField>
<asp:TemplateField HeaderText="Cuota Excedente">
<ItemTemplate>
<table>
<tr class="titulorow">
<td>SUA</td>
<td>SIG</td>
</tr>
<tr class="itemrow">
<td>
<asp:Label runat="server" Text='<%# Eval("CuotaExcedenteSUA","{0:N2}")%>'> </asp:Label></td>
<td>
<asp:Label runat="server" Text='<%# Eval("CuotaExcedenteSIG","{0:N2}")%>'> </asp:Label></td>
</tr>
</table>
</ItemTemplate>
</asp:TemplateField>
<asp:TemplateField HeaderText="Prestaciones en Dinero">
<ItemTemplate>
<table>
<tr class="titulorow">
<td>SUA</td>
<td>SIG</td>
</tr>
<tr class="itemrow">
<td>
<asp:Label runat="server" Text='<%# Eval("PrestacionesDineroSUA","{0:N2}")%>'> </asp:Label></td>
<td>
<asp:Label runat="server" Text='<%# Eval("PrestacionesSIG","{0:N2}")%>'> </asp:Label></td>
</tr>
</table>
</ItemTemplate>
</asp:TemplateField>
<asp:TemplateField HeaderText="Gastos Medicos">
<ItemTemplate>
<table>
<tr class="titulorow">
<td>SUA</td>
<td>SIG</td>
</tr>
<tr class="itemrow">
<td>
<asp:Label runat="server" Text='<%# Eval("GastosMedPenSUA","{0:N2}")%>'> </asp:Label></td>
<td>
<asp:Label runat="server" Text='<%# Eval("GastosMedicosSIG","{0:N2}")%>'> </asp:Label></td>
</tr>
</table>
</ItemTemplate>
</asp:TemplateField>
<asp:TemplateField HeaderText="Riesgos de Trabajo">
<ItemTemplate>
<table>
<tr class="titulorow">
<td>SUA</td>
<td>SIG</td>
</tr>
<tr class="itemrow">
<td>
<asp:Label runat="server" Text='<%# Eval("RiesgosdeTrabajoSUA","{0:N2}")%>'> </asp:Label></td>
<td>
<asp:Label runat="server" Text='<%# Eval("RiesgoTrabajoSIG","{0:N2}")%>'> </asp:Label></td>
</tr>
</table>
</ItemTemplate>
</asp:TemplateField>
<asp:TemplateField HeaderText="Invalidez y Vida">
<ItemTemplate>
<table>
<tr class="titulorow">
<td>SUA</td>
<td>SIG</td>
</tr>
<tr class="itemrow">
<td>
<asp:Label runat="server" Text='<%# Eval("InvalidezyVidaSUA","{0:N2}")%>'> </asp:Label></td>
<td>
<asp:Label runat="server" Text='<%# Eval("InvalidezyVidaSIG","{0:N2}")%>'> </asp:Label></td>
</tr>
</table>
</ItemTemplate>
</asp:TemplateField>
<asp:TemplateField HeaderText="Guarderia">
<ItemTemplate>
<table>
<tr class="titulorow">
<td>SUA</td>
<td>SIG</td>
</tr>
<tr class="itemrow">
<td>
<asp:Label runat="server" Text='<%# Eval("GuarderiaSUA","{0:N2}")%>'> </asp:Label></td>
<td>
<asp:Label runat="server" Text='<%# Eval("GuarderiaSIG","{0:N2}")%>'> </asp:Label></td>
</tr>
</table>
</ItemTemplate>
</asp:TemplateField>
<asp:TemplateField HeaderText="Retiro">
<ItemTemplate>
<table>
<tr class="titulorow">
<td>SUA</td>
<td>SIG</td>
</tr>
<tr class="itemrow">
<td>
<asp:Label runat="server" Text='<%# Eval("RetiroSUA","{0:N2}")%>'> </asp:Label></td>
<td>
<asp:Label runat="server" Text='<%# Eval("RetiroSIG","{0:N2}")%>'> </asp:Label></td>
</tr>
</table>
</ItemTemplate>
</asp:TemplateField>
</Columns>
</asp:GridView>
</div>
</div>
</div>
</div>
<div class="modal-footer">
<asp:UpdatePanel runat="server" UpdateMode="Conditional">
<ContentTemplate>
<button type="button" class="btn btn-danger" data-dismiss="modal">Cancelar</button>
</ContentTemplate>
<%--<Triggers >
<asp:PostBackTrigger ControlID ="LnkGetTxtsSUA" />
</Triggers>--%>
</asp:UpdatePanel>
</div>
</div>
</ContentTemplate>
</asp:UpdatePanel>
</div>
<div id="DmodalGetSua" class="modal ADS fade" role="dialog">
<asp:UpdatePanel ID="UpModalGetSUA" class="modal-dialog" tabindex="-1" runat="server" UpdateMode="Conditional">
<ContentTemplate>
<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">Archivos SUA</h4>
</div>
<div class="modal-body">
<div class="row">
<div class="col-md-6">
<div style="width: 140px; display: inline-block;">
<div class="form-group form-md-line-input">
<asp:TextBox ID="TxtFechaInicio" Enabled="false" CssClass="form-control" runat="server"></asp:TextBox>
<asp:Label runat="server" AssociatedControlID="TxtFechaInicio">Fecha Inicio:</asp:Label>
<ajax:MaskedEditExtender ID="MEEFechaInicio" runat="server" TargetControlID="TxtFechaInicio" Mask="99/99/9999" MaskType="Date" DisplayMoney="Left" AcceptNegative="Left"></ajax:MaskedEditExtender>
<ajax:CalendarExtender runat="server" ID="CEEFechaInicio" TargetControlID="TxtFechaInicio" PopupButtonID="LnkFechaInicio" PopupPosition="BottomRight" Enabled="True"></ajax:CalendarExtender>
<asp:RequiredFieldValidator ID="RFVFechaInicio" runat="server" ControlToValidate="TxtFechaInicio" CssClass="help-block errorimput" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''FechaNacimiento''</b> es necesario, por favor ingréselo." ValidationGroup="GrpGetTxts"></asp:RequiredFieldValidator>
<asp:CompareValidator ID="CVtFechaInicio" runat="server" ControlToValidate="TxtFechaInicio" CssClass="help-block errorimput" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''FechaNacimiento''</b> no tiene el formato correcto, por favor intente de nuevo con el siguiente formato: (dd/mm/yyyy)." Operator="DataTypeCheck" Type="Date" ValidationGroup="GrpGetTxts"></asp:CompareValidator>
</div>
</div>
<div style="width: 80px; display: inline-block;">
<span class="input-group-btn ">
<asp:LinkButton ID="LnkFechaInicio" class="btn default " Text="<i class='fa fa-calendar'></i>" runat="server"></asp:LinkButton>
</span>
</div>
</div>
<div class="col-md-6">
<div style="width: 140px; display: inline-block;">
<div class="form-group form-md-line-input">
<asp:TextBox ID="TXTFechaFin" Enabled="false" CssClass="form-control" runat="server"></asp:TextBox>
<asp:Label runat="server" AssociatedControlID="TXTFechaFin">Fecha Inicio:</asp:Label>
<ajax:MaskedEditExtender ID="MEEFechaFin" runat="server" TargetControlID="TXTFechaFin" Mask="99/99/9999" MaskType="Date" DisplayMoney="Left" AcceptNegative="Left"></ajax:MaskedEditExtender>
<ajax:CalendarExtender runat="server" ID="CEEFechaFin" TargetControlID="TXTFechaFin" PopupButtonID="LnkFechaFin" PopupPosition="BottomRight" Enabled="True"></ajax:CalendarExtender>
<asp:RequiredFieldValidator ID="RFVFechaFin" runat="server" ControlToValidate="TXTFechaFin" CssClass="help-block errorimput" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''FechaNacimiento''</b> es necesario, por favor ingréselo." ValidationGroup="GrpGetTxts"></asp:RequiredFieldValidator>
<asp:CompareValidator ID="CVFechaFin" runat="server" ControlToValidate="TXTFechaFin" CssClass="help-block errorimput" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''FechaNacimiento''</b> no tiene el formato correcto, por favor intente de nuevo con el siguiente formato: (dd/mm/yyyy)." Operator="DataTypeCheck" Type="Date" ValidationGroup="GrpGetTxts"></asp:CompareValidator>
</div>
</div>
<div style="width: 80px; display: inline-block;">
<span class="input-group-btn ">
<asp:LinkButton ID="LnkFechaFin" class="btn default " Text="<i class='fa fa-calendar'></i>" runat="server"></asp:LinkButton>
</span>
</div>
</div>
</div>
</div>
<div class="modal-footer">
<asp:UpdatePanel runat="server" UpdateMode="Conditional">
<ContentTemplate>
<asp:LinkButton ID="LnkGetTxtsSUA" OnClick="LnkGetTxtsSUA_Click" ValidationGroup="GrpGetTxts" CssClass="btn btn-primary" runat="server">Descargar</asp:LinkButton>
<button type="button" class="btn btn-danger" data-dismiss="modal">Cancelar</button>
</ContentTemplate>
<%--<Triggers >
<asp:PostBackTrigger ControlID ="LnkGetTxtsSUA" />
</Triggers>--%>
</asp:UpdatePanel>
</div>
</div>
</ContentTemplate>
</asp:UpdatePanel>
</div>
</asp:Content> </asp:Content>
<asp:Content ID="Content8" ContentPlaceHolderID="JS" runat="Server"> <asp:Content ID="Content8" ContentPlaceHolderID="JS" runat="Server">
<script> <script>
function SaveCsv(filename, data) {
var blob = new Blob([data], { type: 'text/csv' });
if (window.navigator.msSaveOrOpenBlob) {
window.navigator.msSaveBlob(blob, filename);
}
else {
var elem = window.document.createElement('a');
elem.href = window.URL.createObjectURL(blob);
elem.download = filename;
document.body.appendChild(elem);
elem.click();
document.body.removeChild(elem);
}
}
function openasis(cvePersonal, Fecha) { function openasis(cvePersonal, Fecha) {
<%= String.Format("$('#{0}').val(cvePersonal);", TxtasiscvePersonal.ClientID) %> <%= String.Format("$('#{0}').val(cvePersonal);", TxtasiscvePersonal.ClientID) %>
<%= String.Format("$('#{0}').val(Fecha);", TxtasisFecha.ClientID) %> <%= String.Format("$('#{0}').val(Fecha);", TxtasisFecha.ClientID) %>

View File

@@ -290,8 +290,16 @@ public partial class Nomina_Nomina2 : ClsPaginas
foreach (DataRow row in dtConceptos.FiltraParametros("Tipo IN ('P') AND EsPadre = 1 ").Rows) foreach (DataRow row in dtConceptos.FiltraParametros("Tipo IN ('P') AND EsPadre = 1 ").Rows)
{ {
int CveConcepto = row["CveConcepto"].ToString().ToEntero(); int CveConcepto = row["CveConcepto"].ToString().ToEntero();
int SoloVisible = row["SoloVisible"].ToString().ToEntero();
string Concepto = row["Concepto"].ToString(); string Concepto = row["Concepto"].ToString();
GvNominas.Columns[CurrentColumn].ItemStyle.BackColor = System.Drawing.Color.Transparent; GvNominas.Columns[CurrentColumn].ItemStyle.BackColor = System.Drawing.Color.Transparent;
GvNominas.Columns[CurrentColumn].ItemStyle.CssClass = " ";
GvNominas.Columns[CurrentColumn].HeaderStyle.CssClass = " ";
if (SoloVisible == 1)
{
GvNominas.Columns[CurrentColumn].HeaderStyle.CssClass = "isOnlyVisible ";
}
GvNominas.Columns[CurrentColumn].Visible = (dtempleados.SUM(string.Format("[V_{0}]", CveConcepto)) > 0); GvNominas.Columns[CurrentColumn].Visible = (dtempleados.SUM(string.Format("[V_{0}]", CveConcepto)) > 0);
bf = (BoundField)GvNominas.Columns[CurrentColumn]; bf = (BoundField)GvNominas.Columns[CurrentColumn];
bf.DataField = string.Format("V_{0}", CveConcepto); bf.DataField = string.Format("V_{0}", CveConcepto);
@@ -315,8 +323,15 @@ public partial class Nomina_Nomina2 : ClsPaginas
foreach (DataRow row in dtConceptos.FiltraParametros("Tipo IN ('D') AND EsPadre = 1 ").Rows) foreach (DataRow row in dtConceptos.FiltraParametros("Tipo IN ('D') AND EsPadre = 1 ").Rows)
{ {
int CveConcepto = row["CveConcepto"].ToString().ToEntero(); int CveConcepto = row["CveConcepto"].ToString().ToEntero();
int SoloVisible = row["SoloVisible"].ToString().ToEntero();
string Concepto = row["Concepto"].ToString(); string Concepto = row["Concepto"].ToString();
GvNominas.Columns[CurrentColumn].ItemStyle.BackColor = System.Drawing.Color.Transparent; GvNominas.Columns[CurrentColumn].ItemStyle.BackColor = System.Drawing.Color.Transparent;
GvNominas.Columns[CurrentColumn].ItemStyle.CssClass = " ";
GvNominas.Columns[CurrentColumn].HeaderStyle.CssClass = " ";
if (SoloVisible == 1)
{
GvNominas.Columns[CurrentColumn].HeaderStyle.CssClass = "isOnlyVisible ";
}
GvNominas.Columns[CurrentColumn].Visible = (dtempleados.SUM(string.Format("[V_{0}]", CveConcepto)) > 0); GvNominas.Columns[CurrentColumn].Visible = (dtempleados.SUM(string.Format("[V_{0}]", CveConcepto)) > 0);
bf = (BoundField)GvNominas.Columns[CurrentColumn]; bf = (BoundField)GvNominas.Columns[CurrentColumn];
bf.DataField = string.Format("V_{0}", CveConcepto); bf.DataField = string.Format("V_{0}", CveConcepto);
@@ -333,6 +348,8 @@ public partial class Nomina_Nomina2 : ClsPaginas
field.HeaderText = "Deducciones"; field.HeaderText = "Deducciones";
field.DataField = "SumaDeducciones"; field.DataField = "SumaDeducciones";
field.ItemStyle.BackColor = System.Drawing.Color.LightGray; field.ItemStyle.BackColor = System.Drawing.Color.LightGray;
GvNominas.Columns[CurrentColumn].ItemStyle.CssClass = " ";
GvNominas.Columns[CurrentColumn].HeaderStyle.CssClass = " ";
GvNominas.Columns[CurrentColumn].Visible = true; GvNominas.Columns[CurrentColumn].Visible = true;
CurrentColumn++; CurrentColumn++;
@@ -340,7 +357,9 @@ public partial class Nomina_Nomina2 : ClsPaginas
field.HeaderText = "Total"; field.HeaderText = "Total";
field.DataField = "Total"; field.DataField = "Total";
field.ItemStyle.BackColor = System.Drawing.Color.DarkGray; field.ItemStyle.BackColor = System.Drawing.Color.DarkGray;
field.ItemStyle.ForeColor = System.Drawing.Color.White; field.ItemStyle.CssClass = "TotalWhite";
field.HeaderStyle.CssClass = "TotalWhite";
GvNominas.Columns[CurrentColumn].Visible = true; GvNominas.Columns[CurrentColumn].Visible = true;
CurrentColumn++; CurrentColumn++;
} }
@@ -348,8 +367,15 @@ public partial class Nomina_Nomina2 : ClsPaginas
foreach (DataRow row in dtConceptos.FiltraParametros("Tipo IN ('O') AND EsPadre = 1 ").Rows) foreach (DataRow row in dtConceptos.FiltraParametros("Tipo IN ('O') AND EsPadre = 1 ").Rows)
{ {
int CveConcepto = row["CveConcepto"].ToString().ToEntero(); int CveConcepto = row["CveConcepto"].ToString().ToEntero();
int SoloVisible = row["SoloVisible"].ToString().ToEntero();
string Concepto = row["Concepto"].ToString(); string Concepto = row["Concepto"].ToString();
GvNominas.Columns[CurrentColumn].ItemStyle.BackColor = System.Drawing.Color.Transparent; GvNominas.Columns[CurrentColumn].ItemStyle.BackColor = System.Drawing.Color.Transparent;
GvNominas.Columns[CurrentColumn].ItemStyle.CssClass = " ";
GvNominas.Columns[CurrentColumn].HeaderStyle.CssClass = " ";
if (SoloVisible == 1)
{
GvNominas.Columns[CurrentColumn].HeaderStyle.CssClass = "isOnlyVisible ";
}
GvNominas.Columns[CurrentColumn].Visible = (dtempleados.SUM(string.Format("[V_{0}]", CveConcepto)) > 0); GvNominas.Columns[CurrentColumn].Visible = (dtempleados.SUM(string.Format("[V_{0}]", CveConcepto)) > 0);
bf = (BoundField)GvNominas.Columns[CurrentColumn]; bf = (BoundField)GvNominas.Columns[CurrentColumn];
bf.DataField = string.Format("V_{0}", CveConcepto); bf.DataField = string.Format("V_{0}", CveConcepto);
@@ -366,6 +392,8 @@ public partial class Nomina_Nomina2 : ClsPaginas
field.HeaderText = "Obligaciones"; field.HeaderText = "Obligaciones";
field.DataField = "SumaObligaciones"; field.DataField = "SumaObligaciones";
field.ItemStyle.BackColor = System.Drawing.Color.LightGray; field.ItemStyle.BackColor = System.Drawing.Color.LightGray;
GvNominas.Columns[CurrentColumn].ItemStyle.CssClass = " ";
GvNominas.Columns[CurrentColumn].HeaderStyle.CssClass = " ";
GvNominas.Columns[CurrentColumn].Visible = true; GvNominas.Columns[CurrentColumn].Visible = true;
CurrentColumn++; CurrentColumn++;
} }
@@ -375,6 +403,8 @@ public partial class Nomina_Nomina2 : ClsPaginas
bf.DataField = ""; bf.DataField = "";
bf.HeaderText = ""; bf.HeaderText = "";
GvNominas.Columns[i].ItemStyle.BackColor = System.Drawing.Color.Transparent; GvNominas.Columns[i].ItemStyle.BackColor = System.Drawing.Color.Transparent;
GvNominas.Columns[CurrentColumn].ItemStyle.CssClass = " ";
GvNominas.Columns[CurrentColumn].HeaderStyle.CssClass = " ";
GvNominas.Columns[i].Visible = false; GvNominas.Columns[i].Visible = false;
} }
@@ -446,6 +476,8 @@ public partial class Nomina_Nomina2 : ClsPaginas
field.ItemStyle.Width = Unit.Pixel(120); field.ItemStyle.Width = Unit.Pixel(120);
field.ItemStyle.HorizontalAlign = HorizontalAlign.Right; field.ItemStyle.HorizontalAlign = HorizontalAlign.Right;
field.ItemStyle.BackColor = System.Drawing.Color.LightGray; field.ItemStyle.BackColor = System.Drawing.Color.LightGray;
field.ItemStyle.CssClass = " ";
field.HeaderStyle.CssClass = " ";
GvNominas.Columns.Insert(CurrentColumn++, field); GvNominas.Columns.Insert(CurrentColumn++, field);
field = new BoundField(); field = new BoundField();
field.HeaderText = "Total"; field.HeaderText = "Total";
@@ -454,6 +486,8 @@ public partial class Nomina_Nomina2 : ClsPaginas
field.ItemStyle.Width = Unit.Pixel(120); field.ItemStyle.Width = Unit.Pixel(120);
field.ItemStyle.HorizontalAlign = HorizontalAlign.Right; field.ItemStyle.HorizontalAlign = HorizontalAlign.Right;
field.ItemStyle.BackColor = System.Drawing.Color.LightGray; field.ItemStyle.BackColor = System.Drawing.Color.LightGray;
field.ItemStyle.CssClass = " ";
field.HeaderStyle.CssClass = " ";
GvNominas.Columns.Insert(CurrentColumn++, field); GvNominas.Columns.Insert(CurrentColumn++, field);
sumaDeducciones = true; sumaDeducciones = true;
} }
@@ -471,6 +505,8 @@ public partial class Nomina_Nomina2 : ClsPaginas
field.ItemStyle.Width = Unit.Pixel(120); field.ItemStyle.Width = Unit.Pixel(120);
field.ItemStyle.HorizontalAlign = HorizontalAlign.Right; field.ItemStyle.HorizontalAlign = HorizontalAlign.Right;
field.ItemStyle.BackColor = System.Drawing.Color.LightGray; field.ItemStyle.BackColor = System.Drawing.Color.LightGray;
field.ItemStyle.CssClass = " ";
field.HeaderStyle.CssClass = " ";
GvNominas.Columns.Insert(CurrentColumn++, field); GvNominas.Columns.Insert(CurrentColumn++, field);
field = new BoundField(); field = new BoundField();
sumaPercepciones = true; sumaPercepciones = true;
@@ -481,6 +517,8 @@ public partial class Nomina_Nomina2 : ClsPaginas
field.ItemStyle.Width = Unit.Pixel(120); field.ItemStyle.Width = Unit.Pixel(120);
field.ItemStyle.HorizontalAlign = HorizontalAlign.Right; field.ItemStyle.HorizontalAlign = HorizontalAlign.Right;
field.ItemStyle.BackColor = System.Drawing.Color.LightGray; field.ItemStyle.BackColor = System.Drawing.Color.LightGray;
field.ItemStyle.CssClass = " ";
field.HeaderStyle.CssClass = " ";
GvNominas.Columns.Insert(CurrentColumn++, field); GvNominas.Columns.Insert(CurrentColumn++, field);
field = new BoundField(); field = new BoundField();
@@ -490,6 +528,8 @@ public partial class Nomina_Nomina2 : ClsPaginas
field.ItemStyle.Width = Unit.Pixel(120); field.ItemStyle.Width = Unit.Pixel(120);
field.ItemStyle.HorizontalAlign = HorizontalAlign.Right; field.ItemStyle.HorizontalAlign = HorizontalAlign.Right;
field.ItemStyle.BackColor = System.Drawing.Color.LightGray; field.ItemStyle.BackColor = System.Drawing.Color.LightGray;
field.ItemStyle.CssClass = "TotalWhite ";
field.HeaderStyle.CssClass = "TotalWhite ";
GvNominas.Columns.Insert(CurrentColumn++, field); GvNominas.Columns.Insert(CurrentColumn++, field);
sumaDeducciones = true; sumaDeducciones = true;
} }
@@ -520,6 +560,8 @@ public partial class Nomina_Nomina2 : ClsPaginas
field.ItemStyle.Width = Unit.Pixel(120); field.ItemStyle.Width = Unit.Pixel(120);
field.ItemStyle.HorizontalAlign = HorizontalAlign.Right; field.ItemStyle.HorizontalAlign = HorizontalAlign.Right;
field.ItemStyle.BackColor = System.Drawing.Color.LightGray; field.ItemStyle.BackColor = System.Drawing.Color.LightGray;
field.ItemStyle.CssClass = " ";
field.HeaderStyle.CssClass = " ";
GvNominas.Columns.Insert(CurrentColumn++, field); GvNominas.Columns.Insert(CurrentColumn++, field);
field = new BoundField(); field = new BoundField();
sumaPercepciones = true; sumaPercepciones = true;
@@ -532,6 +574,8 @@ public partial class Nomina_Nomina2 : ClsPaginas
field.ItemStyle.Width = Unit.Pixel(120); field.ItemStyle.Width = Unit.Pixel(120);
field.ItemStyle.HorizontalAlign = HorizontalAlign.Right; field.ItemStyle.HorizontalAlign = HorizontalAlign.Right;
field.ItemStyle.BackColor = System.Drawing.Color.LightGray; field.ItemStyle.BackColor = System.Drawing.Color.LightGray;
field.ItemStyle.CssClass = " ";
field.HeaderStyle.CssClass = " ";
GvNominas.Columns.Insert(CurrentColumn++, field); GvNominas.Columns.Insert(CurrentColumn++, field);
field = new BoundField(); field = new BoundField();
@@ -541,6 +585,8 @@ public partial class Nomina_Nomina2 : ClsPaginas
field.ItemStyle.Width = Unit.Pixel(120); field.ItemStyle.Width = Unit.Pixel(120);
field.ItemStyle.HorizontalAlign = HorizontalAlign.Right; field.ItemStyle.HorizontalAlign = HorizontalAlign.Right;
field.ItemStyle.BackColor = System.Drawing.Color.LightGray; field.ItemStyle.BackColor = System.Drawing.Color.LightGray;
field.ItemStyle.CssClass = " ";
field.HeaderStyle.CssClass = " ";
GvNominas.Columns.Insert(CurrentColumn++, field); GvNominas.Columns.Insert(CurrentColumn++, field);
sumaDeducciones = true; sumaDeducciones = true;
field = new BoundField(); field = new BoundField();
@@ -551,6 +597,8 @@ public partial class Nomina_Nomina2 : ClsPaginas
field.ItemStyle.Width = Unit.Pixel(120); field.ItemStyle.Width = Unit.Pixel(120);
field.ItemStyle.HorizontalAlign = HorizontalAlign.Right; field.ItemStyle.HorizontalAlign = HorizontalAlign.Right;
field.ItemStyle.BackColor = System.Drawing.Color.LightGray; field.ItemStyle.BackColor = System.Drawing.Color.LightGray;
field.ItemStyle.CssClass = " ";
field.HeaderStyle.CssClass = " ";
GvNominas.Columns.Insert(CurrentColumn++, field); GvNominas.Columns.Insert(CurrentColumn++, field);
} }
@@ -1077,6 +1125,7 @@ public partial class Nomina_Nomina2 : ClsPaginas
nConcepto.NoConceptoP = Codigo; nConcepto.NoConceptoP = Codigo;
nConcepto.ImporteP = Importe; nConcepto.ImporteP = Importe;
nConcepto.ValorP = dtempleados.SUM(string.Format("[VAL_{0}]", CveConcepto), string.Format("CvePersonal = {0}", SRCvePersonal)); nConcepto.ValorP = dtempleados.SUM(string.Format("[VAL_{0}]", CveConcepto), string.Format("CvePersonal = {0}", SRCvePersonal));
nConcepto.isOnlyBisibleP = row["SoloVisible"].ToString().ToEntero();
} }
if (maxded > i) if (maxded > i)
{ {
@@ -1091,6 +1140,7 @@ public partial class Nomina_Nomina2 : ClsPaginas
nConcepto.NoConceptoD = Codigo; nConcepto.NoConceptoD = Codigo;
nConcepto.ImporteD = Importe; nConcepto.ImporteD = Importe;
nConcepto.ValorD = dtempleados.SUM(string.Format("[VAL_{0}]", CveConcepto), string.Format("CvePersonal = {0}", SRCvePersonal)); nConcepto.ValorD = dtempleados.SUM(string.Format("[VAL_{0}]", CveConcepto), string.Format("CvePersonal = {0}", SRCvePersonal));
nConcepto.isOnlyBisibleD = row["SoloVisible"].ToString().ToEntero();
} }
lconc.Add(nConcepto); lconc.Add(nConcepto);
} }
@@ -1591,6 +1641,7 @@ public partial class Nomina_Nomina2 : ClsPaginas
public double ValorP { get; set; } public double ValorP { get; set; }
public int EstatusP { get; set; } public int EstatusP { get; set; }
public bool isEditedP { get; set; } public bool isEditedP { get; set; }
public int isOnlyBisibleP { get; set; }
public string NoConceptoD { get; set; } public string NoConceptoD { get; set; }
@@ -1601,6 +1652,7 @@ public partial class Nomina_Nomina2 : ClsPaginas
public double ValorD { get; set; } public double ValorD { get; set; }
public int EstatusD { get; set; } public int EstatusD { get; set; }
public bool isEditedD { get; set; } public bool isEditedD { get; set; }
public int isOnlyBisibleD { get; set; }
} }
protected void GvConceptos_RowDataBound(object sender, GridViewRowEventArgs e) protected void GvConceptos_RowDataBound(object sender, GridViewRowEventArgs e)
@@ -1616,6 +1668,8 @@ public partial class Nomina_Nomina2 : ClsPaginas
// Dim ImporteD As Decimal = e.Row.DataKey("ImporteD").ToDecimal() // Dim ImporteD As Decimal = e.Row.DataKey("ImporteD").ToDecimal()
int Estatus = e.Row.DataKey("EstatusP").ToEntero(); int Estatus = e.Row.DataKey("EstatusP").ToEntero();
int EstatusD = e.Row.DataKey("EstatusD").ToEntero(); int EstatusD = e.Row.DataKey("EstatusD").ToEntero();
int isOnlyBisibleP = e.Row.DataKey("isOnlyBisibleP").ToEntero();
int isOnlyBisibleD = e.Row.DataKey("isOnlyBisibleD").ToEntero();
// Controles // Controles
Label LtlConcepto = e.Row.FCLabel("LtlConcepto"); Label LtlConcepto = e.Row.FCLabel("LtlConcepto");
@@ -1627,6 +1681,15 @@ public partial class Nomina_Nomina2 : ClsPaginas
Label LtlImporteD = e.Row.FCLabel("LtlImporteD"); Label LtlImporteD = e.Row.FCLabel("LtlImporteD");
LinkButton LnkImporteD = e.Row.FCLinkButton("LnkImporteD"); LinkButton LnkImporteD = e.Row.FCLinkButton("LnkImporteD");
//isEditedD //isEditedD
if (isOnlyBisibleP == 1)
{
e.Row.CssClass = string.Format("{0} isOnlyBisibleP", e.Row.CssClass);
}
if (isOnlyBisibleD == 1)
{
e.Row.CssClass = string.Format("{0} isOnlyBisibleD", e.Row.CssClass);
}
if (Estatus < -1 | EstatusD < -1) if (Estatus < -1 | EstatusD < -1)
e.Row.CssClass = "ConceptosTotales"; e.Row.CssClass = "ConceptosTotales";
@@ -3326,58 +3389,61 @@ public partial class Nomina_Nomina2 : ClsPaginas
CvePersonal = rtemp["CvePersonal"].ToString().ToEntero(); CvePersonal = rtemp["CvePersonal"].ToString().ToEntero();
CveMetodoPago = rtemp["CveMetodoPago"].ToString().ToEntero(); CveMetodoPago = rtemp["CveMetodoPago"].ToString().ToEntero();
Total = 0;//cambiar reparar Total = 0;//cambiar reparar
if (CvePersonal > 0)
if (continuar)
{ {
if (objNomina.GetNom_Nominas(-1, CvePersonal, CvePeriodoSeleccionado, -1, UsuarioActual.CveEmpresa))
if (continuar)
{ {
if (objNomina.DtResultados.Rows.Count > 0) if (objNomina.GetNom_Nominas(-1, CvePersonal, CvePeriodoSeleccionado, -1, UsuarioActual.CveEmpresa))
{ {
CveNomina = objNomina.CveNomina; if (objNomina.DtResultados.Rows.Count > 0)
}
else
{
if (objNomina.AddNom_Nominas(-1, 1, CvePersonal, CvePeriodoSeleccionado, Total, 0, 0, Total, CveMoneda, 1, CveMetodoPago, DateTime.Now, "Deducciones nómina",
"", "", "", "", 0, 0, 0, new DateTime(), new DateTime(), new DateTime(), UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa))
{ {
CveNomina = objNomina.CveNomina; CveNomina = objNomina.CveNomina;
} }
else else
{ {
continuar = false; if (objNomina.AddNom_Nominas(-1, 1, CvePersonal, CvePeriodoSeleccionado, Total, 0, 0, Total, CveMoneda, 1, CveMetodoPago, DateTime.Now, "Deducciones nómina",
"", "", "", "", 0, 0, 0, new DateTime(), new DateTime(), new DateTime(), UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa))
{
CveNomina = objNomina.CveNomina;
}
else
{
continuar = false;
}
} }
} }
} }
} if (CveNomina == 0)
if (CveNomina == 0)
{
continuar = false;
}
if (continuar)
{
dtconp = dtempleadosConceptos.FiltraParametros(string.Format("CvePersonal={0}", CvePersonal));
foreach (DataRow rcon in dtconp.Rows)
{ {
continuar = false;
}
CveConcepto = rcon["CveConcepto"].ToString().ToEntero();
ImporteConcepto = rcon["Importe"].ToString().ToDecimal();
ImporteGravadoConcepto = rcon["ImporteGravado"].ToString().ToDecimal(); if (continuar)
ImporteExentoConcepto = ImporteConcepto - ImporteGravadoConcepto; {
if (continuar) dtconp = dtempleadosConceptos.FiltraParametros(string.Format("CvePersonal={0}", CvePersonal));
foreach (DataRow rcon in dtconp.Rows)
{ {
if (!objNomina.AddUPNom_NominasDetalles(CveNomina, CvePeriodoSeleccionado, CvePersonal, CveConcepto, ImporteConcepto, ImporteGravadoConcepto, ImporteExentoConcepto, UsuarioActual.CveUsuario)) CveConcepto = rcon["CveConcepto"].ToString().ToEntero();
ImporteConcepto = rcon["Importe"].ToString().ToDecimal();
ImporteGravadoConcepto = rcon["ImporteGravado"].ToString().ToDecimal();
ImporteExentoConcepto = ImporteConcepto - ImporteGravadoConcepto;
if (continuar)
{ {
continuar = false;
if (!objNomina.AddUPNom_NominasDetalles(CveNomina, CvePeriodoSeleccionado, CvePersonal, CveConcepto, ImporteConcepto, ImporteGravadoConcepto, ImporteExentoConcepto, UsuarioActual.CveUsuario))
{
continuar = false;
}
} }
} }
} }
}
}
} }
@@ -3548,7 +3614,7 @@ public partial class Nomina_Nomina2 : ClsPaginas
int Agrupador = -1; int Agrupador = -1;
decimal Neto = TxtNetoaPagar.Text.ToDecimal(); decimal Neto = TxtNetoaPagar.Text.ToDecimal();
decimal NetoSimulado = 0; decimal NetoSimulado = 0;
decimal SDI = Neto / 15; decimal SDI = (Neto * 1.25M) / 15;
decimal SDIOLD = 0; decimal SDIOLD = 0;
decimal sumador = 100; decimal sumador = 100;
decimal multiplicador = 1; decimal multiplicador = 1;
@@ -3579,36 +3645,36 @@ public partial class Nomina_Nomina2 : ClsPaginas
if (continuar) if (continuar)
{ {
if (isfirst) if (isfirst)
{
if (Neto > NetoSimulado)
{ {
ismayor = true;
if (Neto > NetoSimulado)
{
ismayor = true;
}
else
{
ismayor = false;
}
isfirst = false;
} }
else else
{ {
ismayor = false; if (!((Neto > NetoSimulado) == ismayor))
}
isfirst = false;
}
else
{
if (!((Neto > NetoSimulado) == ismayor))
{
SDI = SDIOLD;
sumador = sumador * 0.1M;
if (sumador < .00000001M)
{ {
SDI = SDIOLD;
sumador = sumador * 0.1M;
if (sumador < .00000001M)
{
continuarV = false; continuarV = false;
}
} }
} }
}
multiplicador = (Neto > NetoSimulado) ? 1 : -1; multiplicador = (Neto > NetoSimulado) ? 1 : -1;
SDIOLD = SDI; SDIOLD = SDI;
SDI = SDI + (multiplicador * sumador); SDI = SDI + (multiplicador * sumador);
} }
else else
{ {
@@ -3724,6 +3790,88 @@ public partial class Nomina_Nomina2 : ClsPaginas
protected void LnkDownArchivosSua_Click(object sender, EventArgs e) protected void LnkDownArchivosSua_Click(object sender, EventArgs e)
{ {
Alert("Ocurrio un error al generar archivos sua", ModExtensiones.TipoMensaje.MsgAdvertencia); TxtFechaInicio.Text = DateTime.Now.AddDays(DateTime.Now.Day - 1).ToString("dd/MM/yyy");
TXTFechaFin.Text = DateTime.Now.AddDays(DateTime.Now.Day - 1).AddMonths(1).AddDays(-1).ToString("dd/MM/yyy");
RegistraScript("$('#DmodalGetSua').modal();");
UpModalGetSUA.Update();
}
protected void LnkGetTxtsSUA_Click(object sender, EventArgs e)
{
string concater = "";
string MovtosAfil = "";
string MovtosmodSalario = "";
string movtosBajas = "";
using (ClsRH ObjPersonal = new ClsRH())
{
if (ObjPersonal.GetMovimientosToSUA(UsuarioActual.CveEmpresa, TxtFechaInicio.Text.ToDate().ToString("yyyy/MM/dd"), TXTFechaFin.Text.ToDate().ToString("yyyy/MM/dd")))
{
//01: MovtosAfil
concater = "";
foreach (var item in ObjPersonal.DtResultados.Select("Tipo=1"))
{
MovtosAfil = string.Format("{0}{1}{2}", MovtosAfil, concater, item["Movtotxt"]);
concater = "\\r\\n";
}
//02: MovtosmodSalario
concater = "";
foreach (var item in ObjPersonal.DtResultados.Select("Tipo=2"))
{
MovtosmodSalario = string.Format("{0}{1}{2}", MovtosmodSalario, concater, item["Movtotxt"]);
concater = "\\r\\n";
}
//03: movtosBajas
concater = "";
foreach (var item in ObjPersonal.DtResultados.Select("Tipo=3"))
{
movtosBajas = string.Format("{0}{1}{2}", movtosBajas, concater, item["Movtotxt"]);
concater = "\\r\\n";
}
}
RegistraScript(string.Format("SaveCsv(\"MovtosAfil.txt\", '{0}');SaveCsv(\"MovtosmodSalario.txt\", '{1}');SaveCsv(\"movtosBajas.txt\", '{2}');", MovtosAfil.Replace("'", "\\'"), MovtosmodSalario.Replace("'", "\\'"), movtosBajas.Replace("'", "\\'")));
RegistraScript("$('#DmodalGetSua').modal('hide');");
}
}
protected void LnkUpSuamodal_Click(object sender, EventArgs e)
{
TxtArchivoSua.Text = "";
GVProcesarSUA.DataSource = null;
GVProcesarSUA.DataBind();
RegistraScript("$('#DmodalCompareSua').modal();shownew();");
UpArchivoSua.Update();
}
protected void LnkUpSuaFile_Click(object sender, EventArgs e)
{
string fileurl = "";
GVProcesarSUA.DataSource = null;
Files archivos = TxtArchivoSua.getfiles();
if (archivos.Archivos.Count > 0)
{
fileurl = archivos.Archivos[0].FileUrl;
string SuaFiletext = System.IO.File.ReadAllText(fileurl, Encoding.GetEncoding("iso-8859-1"));
using (ClsNominas ObjPersonal = new ClsNominas())
{
if (ObjPersonal.ProcesarSUA(SuaFiletext, UsuarioActual.CveEmpresa))
{
GVProcesarSUA.DataSource = ObjPersonal.DTSetResultados.Tables[3];
}
}
}
GVProcesarSUA.DataBind();
TxtArchivoSua.Text = "";
RegistraScript("showResult();");
UpArchivoSua.Update();
}
protected void GVProcesarSUA_DataBound(object sender, EventArgs e)
{
} }
} }

View File

@@ -80,6 +80,9 @@
<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 integracion</asp:LinkButton>
</li> </li>
<li>
<asp:LinkButton ID="LnkModsalario" OnClick="LnkModsalario_Click" runat="server"><i class="fa fa-pencil"></i>Modificar Salario </asp:LinkButton>
</li>
</ContentTemplate> </ContentTemplate>
</asp:UpdatePanel> </asp:UpdatePanel>
@@ -118,32 +121,32 @@
<div class="form-group form-md-line-input input-iconright"> <div class="form-group form-md-line-input input-iconright">
<asp:TextBox CssClass="form-control" ID="TxtAPaterno" runat="server" MaxLength="30"></asp:TextBox> <asp:TextBox CssClass="form-control" ID="TxtAPaterno" runat="server" MaxLength="30"></asp:TextBox>
<label for="<%= TxtAPaterno.ClientID.ToString()%>">Apellido Paterno:</label> <asp:Label AssociatedControlID="TxtAPaterno" runat="server" Text="Apellido Paterno:"></asp:Label>
<asp:RequiredFieldValidator ID="RFVAPaterno" runat="server" ControlToValidate="TxtAPaterno" CssClass="help-block errorimput" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Apellido Paterno''</b> es necesario, por favor ingréselo." ValidationGroup="GrpGuardar"></asp:RequiredFieldValidator> <asp:RequiredFieldValidator ID="RFVAPaterno" runat="server" ControlToValidate="TxtAPaterno" CssClass="help-block errorimput" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Apellido Paterno''</b> es necesario, por favor ingréselo." ValidationGroup="GrpGuardar"></asp:RequiredFieldValidator>
<i></i> <i></i>
</div> </div>
<div class="form-group form-md-line-input input-iconright"> <div class="form-group form-md-line-input input-iconright">
<asp:TextBox CssClass="form-control" ID="TxtAMaterno" runat="server" MaxLength="30"></asp:TextBox> <asp:TextBox CssClass="form-control" ID="TxtAMaterno" runat="server" MaxLength="30"></asp:TextBox>
<label for="<%= TxtAMaterno.ClientID.ToString()%>">Apellido Materno:</label> <asp:Label AssociatedControlID="TxtAMaterno" runat="server" Text="Apellido Materno:"></asp:Label>
<i></i> <i></i>
</div> </div>
<div class="form-group form-md-line-input input-iconright"> <div class="form-group form-md-line-input input-iconright">
<asp:TextBox CssClass="form-control" ID="TxtNombres" runat="server" MaxLength="50"></asp:TextBox> <asp:TextBox CssClass="form-control" ID="TxtNombres" runat="server" MaxLength="50"></asp:TextBox>
<label for="<%= TxtNombres.ClientID.ToString()%>">Nombres:</label> <asp:Label AssociatedControlID="TxtNombres" runat="server" Text="Nombres:"></asp:Label>
<asp:RequiredFieldValidator ID="RFVNombres" runat="server" ControlToValidate="TxtNombres" CssClass="help-block errorimput" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Nombres''</b> es necesario, por favor ingréselo." ValidationGroup="GrpGuardar"></asp:RequiredFieldValidator> <asp:RequiredFieldValidator ID="RFVNombres" runat="server" ControlToValidate="TxtNombres" CssClass="help-block errorimput" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Nombres''</b> es necesario, por favor ingréselo." ValidationGroup="GrpGuardar"></asp:RequiredFieldValidator>
<i></i> <i></i>
</div> </div>
<div class="form-group form-md-line-input input-iconright"> <div class="form-group form-md-line-input input-iconright">
<asp:TextBox CssClass="form-control" ID="TxtCodigo" runat="server" MaxLength="12"></asp:TextBox> <asp:TextBox CssClass="form-control" ID="TxtCodigo" runat="server" MaxLength="12"></asp:TextBox>
<label for="<%= TxtCodigo.ClientID.ToString()%>">Código: </label> <asp:Label AssociatedControlID="TxtCodigo" runat="server" Text="Código:"></asp:Label>
<i></i> <i></i>
</div> </div>
<div class="form-group form-md-line-input input-iconright"> <div class="form-group form-md-line-input input-iconright">
<asp:DropDownList ID="DdlEscolaridad" CssClass="form-control input-sm select2me" runat="server" AppendDataBoundItems="true" DataTextField="Escolaridad" DataValueField="CveEscolaridad" Class="table-group-action-input form-control input-inline input-small input-sm" ValidationGroup="GrpGuardar"> <asp:DropDownList ID="DdlEscolaridad" CssClass="form-control input-sm select2me" runat="server" AppendDataBoundItems="true" DataTextField="Escolaridad" DataValueField="CveEscolaridad" Class="table-group-action-input form-control input-inline input-small input-sm" ValidationGroup="GrpGuardar">
<asp:ListItem Selected="True" Text="Seleccione" Value="-1"></asp:ListItem> <asp:ListItem Selected="True" Text="Seleccione" Value="-1"></asp:ListItem>
</asp:DropDownList> </asp:DropDownList>
<label for="<%= DdlEscolaridad.ClientID.ToString()%>">Escolaridad: </label> <asp:Label AssociatedControlID="DdlEscolaridad" runat="server" Text="Escolaridad:"></asp:Label>
<asp:RequiredFieldValidator ID="RFVEscolaridad" runat="server" ControlToValidate="DdlEscolaridad" CssClass="help-block errorimput" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Escolaridad''</b> es necesario, por favor seleccione uno." InitialValue="-1" ValidationGroup="GrpGuardar"></asp:RequiredFieldValidator> <asp:RequiredFieldValidator ID="RFVEscolaridad" runat="server" ControlToValidate="DdlEscolaridad" CssClass="help-block errorimput" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Escolaridad''</b> es necesario, por favor seleccione uno." InitialValue="-1" ValidationGroup="GrpGuardar"></asp:RequiredFieldValidator>
<i></i> <i></i>
</div> </div>
@@ -151,7 +154,7 @@
<asp:DropDownList ID="DdlEstadoCivil" runat="server" AppendDataBoundItems="true" DataTextField="EstadoCivil" DataValueField="CveEstadoCivil" CssClass="form-control input-sm select2me" ValidationGroup="GrpGuardar"> <asp:DropDownList ID="DdlEstadoCivil" runat="server" AppendDataBoundItems="true" DataTextField="EstadoCivil" DataValueField="CveEstadoCivil" CssClass="form-control input-sm select2me" ValidationGroup="GrpGuardar">
<asp:ListItem Selected="True" Text="Seleccione" Value="-1"></asp:ListItem> <asp:ListItem Selected="True" Text="Seleccione" Value="-1"></asp:ListItem>
</asp:DropDownList> </asp:DropDownList>
<label for="<%= DdlEstadoCivil.ClientID.ToString()%>">Estado Civil: </label> <asp:Label AssociatedControlID="DdlEstadoCivil" runat="server" Text="Estado Civil:"></asp:Label>
<asp:RequiredFieldValidator ID="RFVEstadoCivil" runat="server" ControlToValidate="DdlEstadoCivil" CssClass="help-block errorimput" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''EstadoCivil''</b> es necesario, por favor seleccione uno." InitialValue="-1" ValidationGroup="GrpGuardar"></asp:RequiredFieldValidator> <asp:RequiredFieldValidator ID="RFVEstadoCivil" runat="server" ControlToValidate="DdlEstadoCivil" CssClass="help-block errorimput" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''EstadoCivil''</b> es necesario, por favor seleccione uno." InitialValue="-1" ValidationGroup="GrpGuardar"></asp:RequiredFieldValidator>
<i></i> <i></i>
</div> </div>
@@ -159,12 +162,12 @@
<asp:DropDownList ID="DdlGenero" runat="server" AppendDataBoundItems="true" DataTextField="Genero" DataValueField="CveGenero" CssClass="form-control input-sm select2me" ValidationGroup="GrpGuardar"> <asp:DropDownList ID="DdlGenero" runat="server" AppendDataBoundItems="true" DataTextField="Genero" DataValueField="CveGenero" CssClass="form-control input-sm select2me" ValidationGroup="GrpGuardar">
<asp:ListItem Selected="True" Text="Seleccione" Value="-1"></asp:ListItem> <asp:ListItem Selected="True" Text="Seleccione" Value="-1"></asp:ListItem>
</asp:DropDownList> </asp:DropDownList>
<label for="<%= DdlGenero.ClientID.ToString()%>">Género: </label> <asp:Label AssociatedControlID="DdlGenero" runat="server" Text="Género:"></asp:Label>
<asp:RequiredFieldValidator ID="RFVGenero" runat="server" ControlToValidate="DdlGenero" CssClass="help-block errorimput" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Género''</b> es necesario, por favor seleccione uno." InitialValue="-1" ValidationGroup="GrpGuardar"></asp:RequiredFieldValidator> <asp:RequiredFieldValidator ID="RFVGenero" runat="server" ControlToValidate="DdlGenero" CssClass="help-block errorimput" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Género''</b> es necesario, por favor seleccione uno." InitialValue="-1" ValidationGroup="GrpGuardar"></asp:RequiredFieldValidator>
<i></i> <i></i>
</div> </div>
<div class="form-group form-md-line-input input-iconright"> <div class="form-group form-md-line-input input-iconright">
<label for="<%= TxtFechaNacimiento.ClientID.ToString()%>">Fecha de Nacimiento: </label> <asp:Label AssociatedControlID="TxtFechaNacimiento" runat="server" Text="Fecha de Nacimiento:"></asp:Label>
<div class="input-group input-sm date date-picker" data-date-format="dd/mm/yyyy" style="padding: 5px 0px;"> <div class="input-group input-sm date date-picker" data-date-format="dd/mm/yyyy" style="padding: 5px 0px;">
<asp:TextBox ID="TxtFechaNacimiento" runat="server" CausesValidation="true" CssClass="form-control input-sm"></asp:TextBox> <asp:TextBox ID="TxtFechaNacimiento" runat="server" CausesValidation="true" CssClass="form-control input-sm"></asp:TextBox>
<span class="input-group-btn "> <span class="input-group-btn ">
@@ -203,11 +206,15 @@
</div> </div>
<div class="row"> <div class="row">
<div class="col-md-6">¿es Temporal?</div> <div class="col-md-6">¿es Temporal?</div>
<div class="col-md-6"><asp:CheckBox ID="ChkEstemporal" Text=" " AutoPostBack="true" OnCheckedChanged="ChkEstemporal_CheckedChanged" CssClass="chksino" runat="server" /></div> <div class="col-md-6">
<asp:CheckBox ID="ChkEstemporal" Text=" " AutoPostBack="true" OnCheckedChanged="ChkEstemporal_CheckedChanged" CssClass="chksino" runat="server" />
</div>
</div> </div>
<div class="row"> <div class="row">
<div class="col-md-6">¿RFC Validado ante el SAT?</div> <div class="col-md-6">¿RFC Validado ante el SAT?</div>
<div class="col-md-6"><asp:CheckBox ID="CHKRFCValidado" Text =" " CssClass="chksino" runat="server" /></div> <div class="col-md-6">
<asp:CheckBox ID="CHKRFCValidado" Text=" " CssClass="chksino" runat="server" />
</div>
</div> </div>
</div> </div>
</div> </div>
@@ -1254,7 +1261,7 @@
<div class="portlet-body form"> <div class="portlet-body form">
<div class="form-group form-md-line-input input-iconright"> <div class="form-group form-md-line-input input-iconright">
<label for="<%= TxtFechaIngreso.ClientID.ToString()%>">Fecha de Ingreso: </label> <asp:Label runat="server" AssociatedControlID="TxtFechaIngreso" Text="Fecha de Ingreso:"></asp:Label>
<div class="input-group input-sm date date-picker" data-date-format="dd/mm/yyyy" style="padding: 5px 0px;"> <div class="input-group input-sm date date-picker" data-date-format="dd/mm/yyyy" style="padding: 5px 0px;">
<asp:TextBox ID="TxtFechaIngreso" runat="server" CausesValidation="true" CssClass="form-control input-sm"></asp:TextBox> <asp:TextBox ID="TxtFechaIngreso" runat="server" CausesValidation="true" CssClass="form-control input-sm"></asp:TextBox>
<span class="input-group-btn "> <span class="input-group-btn ">
@@ -1272,7 +1279,7 @@
<asp:DropDownList ID="DdlTipoPeriodo" runat="server" AppendDataBoundItems="true" DataTextField="TipoPeriodo" DataValueField="CveTipoPeriodo" CssClass="form-control input-sm select2me" ValidationGroup="GrpGuardar"> <asp:DropDownList ID="DdlTipoPeriodo" runat="server" AppendDataBoundItems="true" DataTextField="TipoPeriodo" DataValueField="CveTipoPeriodo" CssClass="form-control input-sm select2me" ValidationGroup="GrpGuardar">
<asp:ListItem Selected="True" Text="Seleccione" Value="-1"></asp:ListItem> <asp:ListItem Selected="True" Text="Seleccione" Value="-1"></asp:ListItem>
</asp:DropDownList> </asp:DropDownList>
<label for="<%= DdlTipoPeriodo.ClientID.ToString()%>">Tipo de Período: </label> <asp:Label runat="server" AssociatedControlID="DdlTipoPeriodo" Text="Tipo de Período:"></asp:Label>
<asp:RequiredFieldValidator ID="RFVTipoPeriodo" runat="server" ControlToValidate="DdlTipoPeriodo" CssClass="help-block errorimput" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Tipo de Periodo''</b> es necesario, por favor seleccione uno." InitialValue="-1" ValidationGroup="GrpGuardar"></asp:RequiredFieldValidator> <asp:RequiredFieldValidator ID="RFVTipoPeriodo" runat="server" ControlToValidate="DdlTipoPeriodo" CssClass="help-block errorimput" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Tipo de Periodo''</b> es necesario, por favor seleccione uno." InitialValue="-1" ValidationGroup="GrpGuardar"></asp:RequiredFieldValidator>
<i></i> <i></i>
</div> </div>
@@ -1281,7 +1288,7 @@
<asp:DropDownList ID="DdlRegimenContratacion" runat="server" AppendDataBoundItems="true" DataTextField="RegimenContratacion" CssClass="form-control input-sm select2me" DataValueField="CveSATRegimenContratacion" ValidationGroup="GrpGuardar"> <asp:DropDownList ID="DdlRegimenContratacion" runat="server" AppendDataBoundItems="true" DataTextField="RegimenContratacion" CssClass="form-control input-sm select2me" DataValueField="CveSATRegimenContratacion" ValidationGroup="GrpGuardar">
<asp:ListItem Selected="True" Text="Seleccione" Value="-1"></asp:ListItem> <asp:ListItem Selected="True" Text="Seleccione" Value="-1"></asp:ListItem>
</asp:DropDownList> </asp:DropDownList>
<label for="<%= DdlRegimenContratacion.ClientID.ToString()%>">Régimen Contratación: </label> <asp:Label runat="server" AssociatedControlID="DdlRegimenContratacion" Text="Régimen Contratación:"></asp:Label>
<asp:RequiredFieldValidator ID="RFVRegimenContratacion" runat="server" ControlToValidate="DdlRegimenContratacion" CssClass="help-block errorimput" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Régimen Contratación''</b> es necesario, por favor seleccione uno." InitialValue="-1" ValidationGroup="GrpGuardar"></asp:RequiredFieldValidator> <asp:RequiredFieldValidator ID="RFVRegimenContratacion" runat="server" ControlToValidate="DdlRegimenContratacion" CssClass="help-block errorimput" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Régimen Contratación''</b> es necesario, por favor seleccione uno." InitialValue="-1" ValidationGroup="GrpGuardar"></asp:RequiredFieldValidator>
<i></i> <i></i>
</div> </div>
@@ -1290,7 +1297,7 @@
<asp:DropDownList ID="DdlRiesgoPuesto" runat="server" AppendDataBoundItems="true" DataTextField="RiesgoPuesto" CssClass="form-control input-sm select2me" DataValueField="CveSATRiesgoPuesto" ValidationGroup="GrpGuardar"> <asp:DropDownList ID="DdlRiesgoPuesto" runat="server" AppendDataBoundItems="true" DataTextField="RiesgoPuesto" CssClass="form-control input-sm select2me" DataValueField="CveSATRiesgoPuesto" ValidationGroup="GrpGuardar">
<asp:ListItem Selected="True" Text="Seleccione" Value="-1"></asp:ListItem> <asp:ListItem Selected="True" Text="Seleccione" Value="-1"></asp:ListItem>
</asp:DropDownList> </asp:DropDownList>
<label for="<%= DdlRiesgoPuesto.ClientID.ToString()%>">Riesgo Puesto: </label> <asp:Label runat="server" AssociatedControlID="DdlRiesgoPuesto" Text="Riesgo Puesto:"></asp:Label>
<asp:RequiredFieldValidator ID="RFVRiesgoPuesto" runat="server" ControlToValidate="DdlRiesgoPuesto" CssClass="help-block errorimput" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Riesgo Puesto''</b> es necesario, por favor seleccione uno." InitialValue="-1" ValidationGroup="GrpGuardar"></asp:RequiredFieldValidator> <asp:RequiredFieldValidator ID="RFVRiesgoPuesto" runat="server" ControlToValidate="DdlRiesgoPuesto" CssClass="help-block errorimput" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Riesgo Puesto''</b> es necesario, por favor seleccione uno." InitialValue="-1" ValidationGroup="GrpGuardar"></asp:RequiredFieldValidator>
</div> </div>
@@ -4539,6 +4546,7 @@
<div class="modal-footer"> <div class="modal-footer">
<asp:Button ID="BtnAgregarFamiliarModal" runat="server" class="btn btn-success" Text="Agregar" ValidationGroup="GrpFamiliar" /> <asp:Button ID="BtnAgregarFamiliarModal" runat="server" class="btn btn-success" Text="Agregar" ValidationGroup="GrpFamiliar" />
<button id="BtnCancelarFamiliarModal4" runat="server" type="button" class="btn default" data-dismiss="modal">Cancelar</button> <button id="BtnCancelarFamiliarModal4" runat="server" type="button" class="btn default" data-dismiss="modal">Cancelar</button>
<button type="button" class="btn btn-default" data-dismiss="modal">Cancelar</button>
</div> </div>
</ContentTemplate> </ContentTemplate>
</asp:UpdatePanel> </asp:UpdatePanel>
@@ -4553,17 +4561,17 @@
<button type="button" class="close" data-dismiss="modal" aria-label="Close"> <button type="button" class="close" data-dismiss="modal" aria-label="Close">
<span aria-hidden="true">&times;</span> <span aria-hidden="true">&times;</span>
</button> </button>
<h4 class="modal-title" runat="server" style="text-align: left">Calcaular FActor de integracion</h4> <h4 class="modal-title" runat="server" style="text-align: left">Calcular Factor de Integración</h4>
</div> </div>
<div class="modal-body"> <div class="modal-body">
<div class="form-group form-md-line-input"> <div class="form-group form-md-line-input">
<asp:TextBox ID="TxtFISalariodiarioImss" CssClass="form-control" runat="server"></asp:TextBox> <asp:TextBox ID="TxtFISalariodiarioImss" CssClass="form-control" runat="server"></asp:TextBox>
<asp:Label runat="server" AssociatedControlID="TxtFISalariodiarioImss">Salario diario(IMSS):</asp:Label> <asp:Label runat="server" AssociatedControlID="TxtFISalariodiarioImss">Salario Diario(IMSS):</asp:Label>
</div> </div>
<div class="form-group form-md-line-input"> <div class="form-group form-md-line-input">
<asp:TextBox ID="TxtFIDiasVacaciones" Text="6" CssClass="form-control" runat="server"></asp:TextBox> <asp:TextBox ID="TxtFIDiasVacaciones" Text="6" CssClass="form-control" runat="server"></asp:TextBox>
<asp:Label runat="server" AssociatedControlID="TxtFIDiasVacaciones">días Vaciones:</asp:Label> <asp:Label runat="server" AssociatedControlID="TxtFIDiasVacaciones">Días Vacaciones:</asp:Label>
</div> </div>
<div class="form-group form-md-line-input"> <div class="form-group form-md-line-input">
<asp:TextBox ID="TxtFIPrimaVacacional" CssClass="form-control" runat="server"></asp:TextBox> <asp:TextBox ID="TxtFIPrimaVacacional" CssClass="form-control" runat="server"></asp:TextBox>
@@ -4579,7 +4587,7 @@
</div> </div>
<div class="form-group form-md-line-input"> <div class="form-group form-md-line-input">
<asp:TextBox ID="TxtFISalarioDiarioIntegrado" Enabled="false" CssClass="form-control" runat="server"></asp:TextBox> <asp:TextBox ID="TxtFISalarioDiarioIntegrado" Enabled="false" CssClass="form-control" runat="server"></asp:TextBox>
<asp:Label runat="server" AssociatedControlID="TxtFISalarioDiarioIntegrado">Salario diario integrado:</asp:Label> <asp:Label runat="server" AssociatedControlID="TxtFISalarioDiarioIntegrado">Salario Diario Integrado:</asp:Label>
</div> </div>
</div> </div>
@@ -4588,6 +4596,7 @@
<ContentTemplate> <ContentTemplate>
<asp:LinkButton ID="LnkCalcularFactordeintegracion" OnClick="LnkCalcularFactordeintegracion_Click" CssClass="btn btn-primary" runat="server">Calcular</asp:LinkButton> <asp:LinkButton ID="LnkCalcularFactordeintegracion" OnClick="LnkCalcularFactordeintegracion_Click" CssClass="btn btn-primary" runat="server">Calcular</asp:LinkButton>
<asp:LinkButton ID="LnkCalcularFactordeintegracionyguardar" OnClick="LnkCalcularFactordeintegracionyguardar_Click" CssClass="btn btn-primary" runat="server">Calcular y guardar</asp:LinkButton> <asp:LinkButton ID="LnkCalcularFactordeintegracionyguardar" OnClick="LnkCalcularFactordeintegracionyguardar_Click" CssClass="btn btn-primary" runat="server">Calcular y guardar</asp:LinkButton>
<button type="button" class="btn btn-danger" data-dismiss="modal">Cancelar</button>
</ContentTemplate> </ContentTemplate>
<Triggers> <Triggers>
</Triggers> </Triggers>
@@ -4602,7 +4611,7 @@
<div id="Dmodamodificarsalario" class="modal ADS fade" role="dialog"> <div id="Dmodamodificarsalario" class="modal ADS fade" role="dialog">
<asp:UpdatePanel ID="UpdatePanel4" class="modal-dialog" tabindex="-1" runat="server" UpdateMode="Conditional"> <asp:UpdatePanel ID="UpModSalario" class="modal-dialog" tabindex="-1" runat="server" UpdateMode="Conditional">
<ContentTemplate> <ContentTemplate>
<div class="modal-content rowpadding"> <div class="modal-content rowpadding">
<div class="modal-header"> <div class="modal-header">
@@ -4612,30 +4621,49 @@
<h4 class="modal-title" runat="server" style="text-align: left">modificar Salario</h4> <h4 class="modal-title" runat="server" style="text-align: left">modificar Salario</h4>
</div> </div>
<div class="modal-body"> <div class="modal-body">
<div>
<div style="width: 200px; display: inline-block;">
<div class="form-group form-md-line-input">
<asp:TextBox ID="TxtFechamodSalario" Enabled="false" CssClass="form-control" runat="server"></asp:TextBox>
<asp:Label runat="server" AssociatedControlID="TxtFechamodSalario">Fecha:</asp:Label>
<ajax:MaskedEditExtender ID="MEEFechaModSalario" runat="server" TargetControlID="TxtFechamodSalario" Mask="99/99/9999" MaskType="Date" DisplayMoney="Left" AcceptNegative="Left"></ajax:MaskedEditExtender>
<ajax:CalendarExtender runat="server" ID="CEEFechaModSalario" TargetControlID="TxtFechamodSalario" PopupButtonID="LnkFechaModSalario" PopupPosition="BottomRight" Enabled="True"></ajax:CalendarExtender>
<asp:RequiredFieldValidator ID="RFVFechaModSalario" runat="server" ControlToValidate="TxtFechamodSalario" CssClass="help-block errorimput" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''FechaNacimiento''</b> es necesario, por favor ingréselo." ValidationGroup="GrpGuardarModSalario"></asp:RequiredFieldValidator>
<asp:CompareValidator ID="CVFechaModSalario" runat="server" ControlToValidate="TxtFechamodSalario" CssClass="help-block errorimput" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''FechaNacimiento''</b> no tiene el formato correcto, por favor intente de nuevo con el siguiente formato: (dd/mm/yyyy)." Operator="DataTypeCheck" Type="Date" ValidationGroup="GrpGuardarModSalario"></asp:CompareValidator>
</div>
</div>
<div style="width: 80px; display: inline-block;">
<span class="input-group-btn ">
<asp:LinkButton ID="LnkFechaModSalario" class="btn default " Text="<i class='fa fa-calendar'></i>" runat="server"></asp:LinkButton>
</span>
</div>
</div>
<div class="form-group form-md-line-input"> <div class="form-group form-md-line-input">
<asp:TextBox ID="TxtFecchamodSalario" Enabled="false" CssClass="form-control" runat="server"></asp:TextBox> <asp:TextBox ID="TxtSalarioDiarioM" Enabled="true" CssClass="form-control" runat="server"></asp:TextBox>
<asp:Label runat="server" AssociatedControlID="TxtFecchamodSalario">Fecha:</asp:Label>
</div>
<div class="form-group form-md-line-input">
<asp:TextBox ID="TxtSalarioDiarioM" Enabled="false" CssClass="form-control" runat="server"></asp:TextBox>
<asp:Label runat="server" AssociatedControlID="TxtSalarioDiarioM">Salario diario:</asp:Label> <asp:Label runat="server" AssociatedControlID="TxtSalarioDiarioM">Salario diario:</asp:Label>
</div> </div>
<div class="form-group form-md-line-input"> <div class="form-group form-md-line-input">
<asp:TextBox ID="TxtSalarioDiarioImSS" Enabled="false" CssClass="form-control" runat="server"></asp:TextBox> <asp:TextBox ID="TxtSalarioDiarioImSS" Enabled="true" CssClass="form-control" runat="server"></asp:TextBox>
<asp:Label runat="server" AssociatedControlID="TxtSalarioDiarioImSS">Salario diario(Imss):</asp:Label> <asp:Label runat="server" AssociatedControlID="TxtSalarioDiarioImSS">Salario diario(Imss):</asp:Label>
</div> </div>
<div class="form-group form-md-line-input"> <div class="form-group form-md-line-input">
<asp:TextBox ID="TxtSalarioDiarioIntegrado" Enabled="false" CssClass="form-control" runat="server"></asp:TextBox> <asp:TextBox ID="TxtSalarioDiarioIntegrado" Enabled="false" CssClass="form-control" runat="server"></asp:TextBox>
<asp:Label runat="server" AssociatedControlID="TxtSalarioDiarioIntegrado">Salario diario integrado:</asp:Label> <asp:Label runat="server" Enabled="false" AssociatedControlID="TxtSalarioDiarioIntegrado">Salario diario integrado:</asp:Label>
</div> </div>
</div> </div>
<div class="modal-footer"> <div class="modal-footer">
<asp:UpdatePanel runat="server" UpdateMode="Conditional"> <asp:UpdatePanel runat="server" UpdateMode="Conditional">
<ContentTemplate> <ContentTemplate>
<asp:LinkButton ID="LnkModificarSalarioGuardar" OnClick="LnkModificarSalarioGuardar_Click" ValidationGroup="GrpGuardarModSalario" CssClass="btn btn-primary" runat="server">Guardar</asp:LinkButton>
<button type="button" class="btn btn-danger" data-dismiss="modal">Cancelar</button>
</ContentTemplate> </ContentTemplate>
</asp:UpdatePanel> </asp:UpdatePanel>
</div> </div>

View File

@@ -6116,12 +6116,15 @@ Partial Class RH_Personal
End If End If
End Sub End Sub
Protected Sub LnkCalcularFactor_Click(sender As Object, e As EventArgs) Protected Sub LnkCalcularFactor_Click(sender As Object, e As EventArgs)
If TxtFIAguinaldo.Text = "0" Or TxtFIAguinaldo.Text = "" Then If TxtFIAguinaldo.Text = "0" Or TxtFIAguinaldo.Text = "" Or TxtFIAguinaldo.Text = "-1" Then
TxtFIAguinaldo.Text = "15" TxtFIAguinaldo.Text = "15"
End If End If
If TxtFIPrimaVacacional.Text = "0" Or TxtFIPrimaVacacional.Text = "" Then If TxtFIPrimaVacacional.Text = "0" Or TxtFIPrimaVacacional.Text = "" Or TxtFIAguinaldo.Text = "-1" Then
TxtFIPrimaVacacional.Text = "25" TxtFIPrimaVacacional.Text = "25"
End If End If
TxtFISalariodiarioImss.Text = TxtSalarioCotizado.Text
TxtFactordeIntegracion.Text = ""
TxtFISalarioDiarioIntegrado.Text = ""
RegistraScript("$('#DmodalFactordeIntegraccion').modal()") RegistraScript("$('#DmodalFactordeIntegraccion').modal()")
UpFactordeintegracion.Update() UpFactordeintegracion.Update()
End Sub End Sub
@@ -6130,7 +6133,7 @@ Partial Class RH_Personal
Dim primav As Decimal = TxtFIPrimaVacacional.Text.ToDecimal() Dim primav As Decimal = TxtFIPrimaVacacional.Text.ToDecimal()
Dim DiasVacaciones As Decimal = TxtFIDiasVacaciones.Text.ToDecimal() Dim DiasVacaciones As Decimal = TxtFIDiasVacaciones.Text.ToDecimal()
Dim diasaguinaldo As Decimal = TxtFIAguinaldo.Text.ToDecimal() Dim diasaguinaldo As Decimal = TxtFIAguinaldo.Text.ToDecimal()
Dim FI As Decimal = (365 + diasaguinaldo + DiasVacaciones + (DiasVacaciones * (primav / 100))) / 365 Dim FI As Decimal = (365 + diasaguinaldo + (DiasVacaciones * (primav / 100))) / 365
Dim SDI As Decimal = (SD * FI) Dim SDI As Decimal = (SD * FI)
TxtFactordeIntegracion.Text = FI.ToString() TxtFactordeIntegracion.Text = FI.ToString()
TxtFISalarioDiarioIntegrado.Text = String.Format("{0:###0.########}", SDI) TxtFISalarioDiarioIntegrado.Text = String.Format("{0:###0.########}", SDI)
@@ -6142,6 +6145,9 @@ Partial Class RH_Personal
Using ObjPersonal As ClsRH = New ClsRH() Using ObjPersonal As ClsRH = New ClsRH()
If ObjPersonal.UpdateSalarioImss(CvePersonal, UsuarioActual.CveEmpresa, TxtFISalarioDiarioIntegrado.Text.ToDouble(), TxtFISalariodiarioImss.Text.ToDouble) Then If ObjPersonal.UpdateSalarioImss(CvePersonal, UsuarioActual.CveEmpresa, TxtFISalarioDiarioIntegrado.Text.ToDouble(), TxtFISalariodiarioImss.Text.ToDouble) Then
TxtSalarioCotizado.Text = TxtFISalariodiarioImss.Text
TxtSDI.Text = TxtFISalarioDiarioIntegrado.Text
UpDatos.Update()
Alert("Se ha actualizado el salario diario integreado") Alert("Se ha actualizado el salario diario integreado")
End If End If
End Using End Using
@@ -6150,8 +6156,30 @@ Partial Class RH_Personal
Using ObjPersonal As ClsRH = New ClsRH() Using ObjPersonal As ClsRH = New ClsRH()
If ObjPersonal.Updateestemporal(CvePersonal, UsuarioActual.CveEmpresa, ChkEstemporal.Checked) Then If ObjPersonal.Updateestemporal(CvePersonal, UsuarioActual.CveEmpresa, ChkEstemporal.Checked) Then
Alert("Se ha actualizado el usuario", TipoMensaje.ToastInformacion) Alert("Se ha actualizado el empleado", TipoMensaje.ToastInformacion)
End If End If
End Using End Using
End Sub End Sub
Protected Sub LnkModificarSalarioGuardar_Click(sender As Object, e As EventArgs)
Using ObjPersonal As ClsRH = New ClsRH()
If ObjPersonal.UpdateSalarios(CvePersonal, TxtFechamodSalario.Text.ToDate().ToString("yyyy/MM/dd"), UsuarioActual.CveEmpresa, TxtSalarioDiarioM.Text.ToDecimal(), TxtSalarioDiarioIntegrado.Text.ToDecimal(), TxtSalarioDiarioImSS.Text.ToDecimal(), TxtSalarioDiarioPago.Text.ToDecimal()) Then
TxtSalarioDiario.Text = TxtSalarioDiarioM.Text
TxtSalarioCotizado.Text = TxtSalarioDiarioImSS.Text
TxtSDI.Text = TxtSalarioDiarioIntegrado.Text
UpDatos.Update()
Alert("Se ha actualizado el salario", TipoMensaje.ToastInformacion)
End If
End Using
End Sub
Protected Sub LnkModsalario_Click(sender As Object, e As EventArgs)
TxtFechamodSalario.Text = DateTime.Now.ToString("dd/MM/yyyy")
TxtSalarioDiarioM.Text = TxtSalarioDiario.Text
TxtSalarioDiarioImSS.Text = TxtSalarioCotizado.Text
TxtSalarioDiarioIntegrado.Text = TxtSDI.Text
RegistraScript("$('#Dmodamodificarsalario').modal()")
UpModSalario.Update()
End Sub
End Class End Class

View File

@@ -12,6 +12,21 @@ console.error = function (texto) {
setTimeout(function () { if (Metronic && Metronic.unblockUI) { Metronic.unblockUI(); } }, 10); setTimeout(function () { if (Metronic && Metronic.unblockUI) { Metronic.unblockUI(); } }, 10);
conf.error(texto); conf.error(texto);
}; };
function SaveCsv(filename, data) {
var blob = new Blob([data], { type: 'text/csv' });
if (window.navigator.msSaveOrOpenBlob) {
window.navigator.msSaveBlob(blob, filename);
}
else {
var elem = window.document.createElement('a');
elem.href = window.URL.createObjectURL(blob);
elem.download = filename;
document.body.appendChild(elem);
elem.click();
document.body.removeChild(elem);
}
}
function alertatoast(tipo, Mensaje, Funcion, timeout) { function alertatoast(tipo, Mensaje, Funcion, timeout) {
if (timeout) { if (timeout) {
timeout = timeout * 1000;//convierto a milisegundos timeout = timeout * 1000;//convierto a milisegundos

View File

@@ -319,76 +319,63 @@
</div> </div>
</div> </div>
<div class="portlet-body"> <div class="portlet-body">
<table border="0"> <asp:UpdatePanel runat="server" ID="UpArchivoDescarga">
<tr> <ContentTemplate>
<td>Archivo Key:</td> <table border="0">
<td> <tr>
<asp:TextBox ID="TxtArchivoKey" runat="server" MaxLength="115" Width="200px"></asp:TextBox></td> <td>Archivo Key:</td>
</tr> <td>
<tr> <asp:TextBox ID="TxtArchivoKey" runat="server" MaxLength="115" Width="200px"></asp:TextBox>
<td colspan="2">
<asp:LinkButton ID="LnkArchivoKey" runat="server" class="Texto">Cargar Archivo Key</asp:LinkButton></td>
</tr>
<tr id="TrDescargaArchivoKey" runat="server" visible="false">
<td colspan="2">
<asp:UpdatePanel runat="server" ID="UpArchivoDescarga">
<ContentTemplate>
<asp:LinkButton ID="LbArchivoKeyDescarga" runat="server" CssClass="Texto">Descargar Archivo Key</asp:LinkButton>
<%--<a id="LinkDescargaArchivoKey" target="_blank"></a>--%> </td>
</ContentTemplate> <td>
<Triggers> <asp:LinkButton ID="LnkArchivoKey" runat="server" CssClass="btn btn-circle btn-sm green" Text="<i title='Subir Documento' class='fa fa-upload' title='Subir Documento' tooltip='Subir' ></i>" />
<asp:PostBackTrigger ControlID="LbArchivoKeyDescarga" /> <asp:LinkButton ID="LbArchivoKeyDescarga" runat="server" CssClass="btn btn-circle btn-sm blue" Text="<i title='Bajar Documento' class='fa fa-download' title='Bajar Documento' tooltip='Descargar'></i>" Visible="false"/>
</Triggers> </td>
</asp:UpdatePanel> </tr>
</td> <tr>
</tr> <td>Archivo CER:</td>
<tr> <td>
<td>Archivo CER:</td> <asp:TextBox ID="TxtArchivoCer" runat="server" MaxLength="115" Width="200px"></asp:TextBox>
<td> </td>
<asp:TextBox ID="TxtArchivoCer" runat="server" MaxLength="115" Width="200px"></asp:TextBox></td> <td>
</tr> <asp:LinkButton ID="LnkArchivoCer" runat="server" CssClass="btn btn-circle btn-sm green" Text="<i title='Subir Documento' class='fa fa-upload' title='Subir Documento' tooltip='Subir' ></i>"/>
<tr> <asp:LinkButton ID="LbArchivoCerDescarga" runat="server" CssClass="btn btn-circle btn-sm blue" Text="<i title='Bajar Documento' class='fa fa-download' title='Bajar Documento' tooltip='Descargar'></i>" Visible="false"/>
<td colspan="2"> </td>
<asp:LinkButton ID="LnkArchivoCer" runat="server" class="Texto">Cargar Archivo CER</asp:LinkButton></td> </tr>
</tr> <tr>
<tr id="TrDescargaArchivoCer" runat="server" visible="false"> <td>Archivo PFX:</td>
<td colspan="2"> <td>
<a id="LinkDescargaArchivoCer" target="_blank"></a> <asp:TextBox ID="TxtArchivoPfx" runat="server" MaxLength="115" Width="200px"></asp:TextBox>
<asp:LinkButton ID="LbArchivoCerDescarga" runat="server" CssClass="Texto">Descargar Archivo CER</asp:LinkButton> </td>
</td> <td>
</tr> <asp:LinkButton ID="LnkArchivoPfx" runat="server" CssClass="btn btn-circle btn-sm green" Text="<i title='Subir Documento' class='fa fa-upload' title='Subir Documento' tooltip='Subir' ></i>"/>
<tr> <asp:LinkButton ID="LbArchivoPfxDescarga" runat="server" CssClass="btn btn-circle btn-sm blue" Text="<i title='Bajar Documento' class='fa fa-download' title='Bajar Documento' tooltip='Descargar'></i>" Visible="false"/>
<td>Archivo PFX:</td> </td>
<td> </tr>
<asp:TextBox ID="TxtArchivoPfx" runat="server" MaxLength="115" Width="200px"></asp:TextBox></td> <tr>
</tr> <td>Contraseña Key: </td>
<tr> <td>
<td colspan="2"> <asp:TextBox ID="TxtContraseñaKey" runat="server" MaxLength="50" Width="200px"></asp:TextBox></td>
<asp:LinkButton ID="LnkArchivoPfx" runat="server" class="Texto">Cargar Archivo PFX</asp:LinkButton></td> </tr>
</tr> <tr>
<tr id="TrDescargaArchivoPfx" runat="server" visible="false"> <td>Contraseña CIEC: </td>
<td colspan="2"> <td>
<a id="LinkDescargaArchivoPfx" target="_blank"></a> <asp:TextBox ID="TxtCIEC" runat="server" MaxLength="50" Width="50px"></asp:TextBox></td>
<asp:LinkButton ID="LbArchivoPfxDescarga" runat="server" CssClass="Texto">Descargar Archivo PFX</asp:LinkButton> </tr>
</td> <tr id="TrRegistrarPAC3" runat="server">
</tr> <td colspan="2">
<tr> <asp:LinkButton ID="LnkRegistrarPAC3" runat="server" CssClass="Texto" OnClick="LnkRegistrarPAC3_Click">Registrar en ProFact</asp:LinkButton>
<td>Contraseña Key: </td> </td>
<td> </tr>
<asp:TextBox ID="TxtContraseñaKey" runat="server" MaxLength="50" Width="200px"></asp:TextBox></td> </table>
</tr> </ContentTemplate>
<tr> <Triggers>
<td>Contraseña CIEC: </td> <asp:PostBackTrigger ControlID="LbArchivoKeyDescarga" />
<td> <asp:PostBackTrigger ControlID="LbArchivoCerDescarga" />
<asp:TextBox ID="TxtCIEC" runat="server" MaxLength="50" Width="50px"></asp:TextBox></td> <asp:PostBackTrigger ControlID="LbArchivoPfxDescarga" />
</tr> </Triggers>
<tr id="TrRegistrarPAC3" runat="server"> </asp:UpdatePanel>
<td colspan="2">
<asp:LinkButton ID="LnkRegistrarPAC3" runat="server" CssClass="Texto" OnClick="LnkRegistrarPAC3_Click">Registrar en ProFact</asp:LinkButton>
</td>
</tr>
</table>
</div> </div>
</div> </div>

View File

@@ -5,6 +5,7 @@ Imports System.Data
Imports Extensiones Imports Extensiones
Imports System.Runtime.InteropServices Imports System.Runtime.InteropServices
Imports System.IO Imports System.IO
Imports Microsoft.Reporting.WebForms
Partial Class Sistemas_Empresa Partial Class Sistemas_Empresa
Inherits ClsPaginas Inherits ClsPaginas
@@ -126,12 +127,13 @@ Partial Class Sistemas_Empresa
'Configuración de Modalidad Update 'Configuración de Modalidad Update
TxtTimbres.Enabled = False TxtTimbres.Enabled = False
TrDescargaArchivoCer.Visible = True
TrDescargaArchivoKey.Visible = True
TrDescargaArchivoPfx.Visible = True
TrDescargaBanner.Visible = True TrDescargaBanner.Visible = True
LnkBanner.InnerText = "Reemplazar Banner" LnkBanner.InnerText = "Reemplazar Banner"
LbArchivoKeyDescarga.Visible = True
LbArchivoCerDescarga.Visible = True
LbArchivoPfxDescarga.Visible = True
'If LnkArchivoKey.InnerText = "" Then 'If LnkArchivoKey.InnerText = "" Then
' LnkArchivoKey.InnerText = "Reemplazar Archivo Key" ' LnkArchivoKey.InnerText = "Reemplazar Archivo Key"
'End If 'End If
@@ -404,7 +406,7 @@ Partial Class Sistemas_Empresa
LbBannerDescarga.OnClientClick = "javascript:AbrirVentana('/Cer/" & .ArchivoCer & "', 500, 500, 'N', 'ArchivoCer Empresa');" LbBannerDescarga.OnClientClick = "javascript:AbrirVentana('/Cer/" & .ArchivoCer & "', 500, 500, 'N', 'ArchivoCer Empresa');"
Session("FileUpload") = .ArchivoCer Session("FileUpload") = .ArchivoCer
LbArchivoPfxDescarga.OnClientClick = "javascript:AbrirVentana('/Pfx/" & .ArchivoPfx & "', 500, 500, 'N', 'ArchivoPfx Empresa');" 'LbArchivoPfxDescarga.OnClientClick = "javascript:AbrirVentana('/Pfx/" & .ArchivoPfx & "', 500, 500, 'N', 'ArchivoPfx Empresa');"
Session("FileUpload") = .ArchivoPfx Session("FileUpload") = .ArchivoPfx
End With End With
@@ -1680,15 +1682,39 @@ Partial Class Sistemas_Empresa
Catch ex As Exception Catch ex As Exception
TieneError = True TieneError = True
End Try End Try
Next Next
If Not TieneError Then If Not TieneError Then
Alert("Certificado cargado con exito")
RegistraScript(String.Format("$('#{0}').modal('hide');", "ModalArchvivo"))
End If
TxtCargaImg.getfiles().Archivos = Nothing
UpAddArchivo.Update()
End Sub
Protected Sub LbArchivoKeyDescarga_Download(sender As Object, e As EventArgs) Handles LbArchivoKeyDescarga.Click
Dim NombreArchivo As String = TxtArchivoKey.Text
DescargarArchivo(NombreArchivo)
End Sub
Protected Sub LbArchivoCerDescarga_Download(sender As Object, e As EventArgs) Handles LbArchivoCerDescarga.Click
Dim NombreArchivo As String = TxtArchivoCer.Text
DescargarArchivo(NombreArchivo)
End Sub
Protected Sub LbArchivoPfxDescarga_Download(sender As Object, e As EventArgs) Handles LbArchivoPfxDescarga.Click Protected Sub LbArchivoPfxDescarga_Download(sender As Object, e As EventArgs) Handles LbArchivoPfxDescarga.Click
End If Dim NombreArchivo As String = TxtArchivoPfx.Text
TxtCargaImg.getfiles().Archivos = Nothing DescargarArchivo(NombreArchivo)
UpAddArchivo.Update()
End Sub End Sub
Private Sub DescargarArchivo(NombreArchivo As String)
Dim FilePath As String = String.Format("{0}Empresas\{1}\Certificados\{2}", ModExtensiones.DirectorioBaseEmpresas, CveEmpresa, NombreArchivo)
Dim byteArray As Byte() = File.ReadAllBytes(FilePath) Dim byteArray As Byte() = File.ReadAllBytes(FilePath)
HttpContext.Current.Response.Clear() HttpContext.Current.Response.Clear()

View File

@@ -1272,7 +1272,6 @@ Partial Class Sistemas_UsuarioDetalle
Next Next
End If End If
RecargaGlobales(TieneError, ObjSubProyectos, ObjBancos, ObjOC, ObjUsuarios)
If Not TieneError Then If Not TieneError Then
If EsNuevoUsuario Then If EsNuevoUsuario Then
@@ -1280,6 +1279,7 @@ Partial Class Sistemas_UsuarioDetalle
End If End If
Alert("El Usuario se Guardó Correctamente", TipoMensaje.MsgInformacion, "document.location.href=""/Sistemas/Usuarios.aspx"";") Alert("El Usuario se Guardó Correctamente", TipoMensaje.MsgInformacion, "document.location.href=""/Sistemas/Usuarios.aspx"";")
ObjUsuarios.Commit() ObjUsuarios.Commit()
RecargaGlobales(TieneError, ObjSubProyectos, ObjBancos, ObjOC, ObjUsuarios)
Else Else
Alert("Ocurrió un error al registrar el Usuario. Por favor vuelva a intentar", TipoMensaje.MsgError) Alert("Ocurrió un error al registrar el Usuario. Por favor vuelva a intentar", TipoMensaje.MsgError)
ObjUsuarios.RollBack() ObjUsuarios.RollBack()

View File

@@ -9958,8 +9958,8 @@ Partial Class Ventas
Dim CveCuenta As Integer Dim CveCuenta As Integer
Dim IdCtaContableCliente As Integer Dim IdCtaContableCliente As Integer
Dim CveCuentaCliente As Integer Dim CveCuentaCliente As Integer
Dim Concepto As String = ViewState("VentaFolio").ToString() Dim Concepto As String = ObjFactura.SerieFolio
Dim Referencia As String = ViewState("VentaFolio").ToString() Dim Referencia As String = ObjFactura.SerieFolio
Dim Fecha = TxtFecha.Text.Trim.ToDate Dim Fecha = TxtFecha.Text.Trim.ToDate
Dim importeMX As Decimal Dim importeMX As Decimal
@@ -10139,7 +10139,7 @@ Partial Class Ventas
End If End If
IdCtaContable = ObjFactura.Cliente.IdCtaContMonedaExtranjera IdCtaContable = ObjFactura.Cliente.IdCtaContMonedaExtranjera
CveCuenta = ObjFactura.Cliente.CveCuentaMonedaExtranjera 'CveCuenta = ObjFactura.Cliente.CveCuentaMonedaExtranjera
End If End If
CveSubProyectoContabilizar = CveSubProyectoVenta CveSubProyectoContabilizar = CveSubProyectoVenta
ImporteConcepto12 = importeMX.RoundSQL ImporteConcepto12 = importeMX.RoundSQL
@@ -10148,10 +10148,10 @@ Partial Class Ventas
CuentasContablesInvalidas.Append("<br>" & GlobalDTContaConceptosContables(-1).FiltroPrimero(String.Format("CveConceptoContable = {0}", ConceptoContable))("ConceptoContable").ToString()) CuentasContablesInvalidas.Append("<br>" & GlobalDTContaConceptosContables(-1).FiltroPrimero(String.Format("CveConceptoContable = {0}", ConceptoContable))("ConceptoContable").ToString())
idCuentaContabilizacion = 0 idCuentaContabilizacion = 0
End If End If
If CveCuenta <= 0 Then 'If CveCuenta <= 0 Then
CuentasContablesInvalidasSIG.Append("<br>" & GlobalDTContaConceptosContables(-1).FiltroPrimero(String.Format("CveConceptoContable = {0}", ConceptoContable))("ConceptoContable").ToString()) ' CuentasContablesInvalidasSIG.Append("<br>" & GlobalDTContaConceptosContables(-1).FiltroPrimero(String.Format("CveConceptoContable = {0}", ConceptoContable))("ConceptoContable").ToString())
CveCuentaContabilizacion = 0 ' CveCuentaContabilizacion = 0
End If 'End If
If Not ObjConta.AddPrePolizasDetalle(ObjFactura.CvePrePoliza, TipoMovimiento, importeMovimiento, Referencia, ConceptoContable, Concepto, FechaMovimiento, IdCtaContable, -1, CveVenta:=ObjFactura.CveVenta, CveCliente:=ObjFactura.CveCliente, CveIE:=CveIE, ImporteMX:=importeMX, ImporteME:=If(tipoCambio = 1, 0, importeMovimiento), CveCuenta:=CveCuenta, CveSubProyecto:=CveSubProyectoContabilizar) Then If Not ObjConta.AddPrePolizasDetalle(ObjFactura.CvePrePoliza, TipoMovimiento, importeMovimiento, Referencia, ConceptoContable, Concepto, FechaMovimiento, IdCtaContable, -1, CveVenta:=ObjFactura.CveVenta, CveCliente:=ObjFactura.CveCliente, CveIE:=CveIE, ImporteMX:=importeMX, ImporteME:=If(tipoCambio = 1, 0, importeMovimiento), CveCuenta:=CveCuenta, CveSubProyecto:=CveSubProyectoContabilizar) Then
ErrorPrepoliza = True ErrorPrepoliza = True
Else Else
@@ -10810,7 +10810,7 @@ Partial Class Ventas
' End If ' End If
DT = TmpDTDetalle.FiltraParametros($"CvePS <> {CvePSAmortizacion}", "", {"CveClasificacion", "CveSubProyecto"}) DT = TmpDTDetalle.FiltraParametros($"CvePS <> {CvePSAmortizacion}", "", {"CveClasificacion", "CveSubProyecto", "PorcentajeIVA"})
If DT.Rows.Count > 0 Then If DT.Rows.Count > 0 Then
'Se agrega movimiento separado por la cuenta de ventas (ER) 'Se agrega movimiento separado por la cuenta de ventas (ER)
@@ -10829,7 +10829,7 @@ Partial Class Ventas
End If End If
CveCuenta = GlobalDTClasificaciones(ObjFactura.CveEmpresa).FiltroPrimeroValor("IdCuentaIngresosSIG", String.Format("CveClasificacion = {0}", Row2("CveClasificacion"))).ToEntero() 'CveCuenta = GlobalDTClasificaciones(ObjFactura.CveEmpresa).FiltroPrimeroValor("IdCuentaIngresosSIG", String.Format("CveClasificacion = {0}", Row2("CveClasificacion"))).ToEntero()
If importeMovimiento <> 0 Then If importeMovimiento <> 0 Then
@@ -10838,12 +10838,12 @@ Partial Class Ventas
idCuentaContabilizacion = 0 idCuentaContabilizacion = 0
End If End If
If CveCuenta <= 0 Then 'If CveCuenta <= 0 Then
CuentasContablesInvalidasSIG.Append("<br>" & GlobalDTContaConceptosContables(-1).FiltroPrimero(String.Format("CveConceptoContable = {0}", ConceptoContable))("ConceptoContable").ToString() + GlobalDTClasificaciones(UsuarioActual.CveEmpresa).FiltroPrimeroValor("Clasificacion", $"CveClasificacion = {Row2("CveClasificacion").ToString()}")) ' CuentasContablesInvalidasSIG.Append("<br>" & GlobalDTContaConceptosContables(-1).FiltroPrimero(String.Format("CveConceptoContable = {0}", ConceptoContable))("ConceptoContable").ToString() + GlobalDTClasificaciones(UsuarioActual.CveEmpresa).FiltroPrimeroValor("Clasificacion", $"CveClasificacion = {Row2("CveClasificacion").ToString()}"))
CveCuentaContabilizacion = 0 ' CveCuentaContabilizacion = 0
End If 'End If
If Not ObjConta.AddPrePolizasDetalle(ObjFactura.CvePrePoliza, TipoMovimiento, importeMovimiento, Referencia, ConceptoContableAplicar, Concepto, ObjFactura.Fecha, IdCtaContable, -1, CveVenta:=CveVentaAplicar, CveVentaAmortizacion:=CveVentaAmortizacionAplicar, CveCliente:=ObjFactura.CveCliente, CveIE:=CveIE, CveClasificacion:=Row2("CveClasificacion").ToString().ToEntero(), CveSubProyecto:=Row2("CveSubProyecto").ToString().ToEntero(), ImporteMX:=importeMX, ImporteME:=If(tipoCambio = 1, 0, importeMovimiento), TipoCambio:=tipoCambio, CveCuenta:=CveCuenta) Then If Not ObjConta.AddPrePolizasDetalle(ObjFactura.CvePrePoliza, TipoMovimiento, importeMovimiento, Referencia, ConceptoContableAplicar, Concepto, ObjFactura.Fecha, IdCtaContable, -1, CveVenta:=CveVentaAplicar, CveVentaAmortizacion:=CveVentaAmortizacionAplicar, CveCliente:=ObjFactura.CveCliente, CveIE:=CveIE, CveClasificacion:=Row2("CveClasificacion").ToString().ToEntero(), CveSubProyecto:=Row2("CveSubProyecto").ToString().ToEntero(), ImporteMX:=importeMX, ImporteME:=If(tipoCambio = 1, 0, importeMovimiento), TipoCambio:=tipoCambio, PorcentajeImpuesto:=Row2("PorcentajeIVA").ToString().ToDecimal) Then
ErrorPrepoliza = True ErrorPrepoliza = True
Else Else
ViewState("SeGuardoPrePoliza") = True ViewState("SeGuardoPrePoliza") = True
@@ -10912,7 +10912,7 @@ Partial Class Ventas
If Row2("CveClasificacion").ToString() = "19929" Then IdCtaContable = 1142 If Row2("CveClasificacion").ToString() = "19929" Then IdCtaContable = 1142
End If End If
CveCuenta = GlobalDTClasificaciones(ObjFactura.CveEmpresa).FiltroPrimeroValor("IdCuentaIngresosSIG", String.Format("CveClasificacion = {0}", Row2("CveClasificacion"))).ToEntero() ' CveCuenta = GlobalDTClasificaciones(ObjFactura.CveEmpresa).FiltroPrimeroValor("IdCuentaIngresosSIG", String.Format("CveClasificacion = {0}", Row2("CveClasificacion"))).ToEntero()
If importeMovimiento <> 0 Then If importeMovimiento <> 0 Then
@@ -10921,10 +10921,10 @@ Partial Class Ventas
idCuentaContabilizacion = 0 idCuentaContabilizacion = 0
End If End If
If CveCuenta <= 0 Then 'If CveCuenta <= 0 Then
CuentasContablesInvalidasSIG.Append("<br>" & GlobalDTContaConceptosContables(-1).FiltroPrimero(String.Format("CveConceptoContable = {0}", ConceptoContable))("ConceptoContable").ToString() + GlobalDTClasificaciones(UsuarioActual.CveEmpresa).FiltroPrimeroValor("Clasificacion", $"CveClasificacion = {Row2("CveClasificacion").ToString()}")) ' CuentasContablesInvalidasSIG.Append("<br>" & GlobalDTContaConceptosContables(-1).FiltroPrimero(String.Format("CveConceptoContable = {0}", ConceptoContable))("ConceptoContable").ToString() + GlobalDTClasificaciones(UsuarioActual.CveEmpresa).FiltroPrimeroValor("Clasificacion", $"CveClasificacion = {Row2("CveClasificacion").ToString()}"))
CveCuentaContabilizacion = 0 ' CveCuentaContabilizacion = 0
End If 'End If
If Not ObjConta.AddPrePolizasDetalle(ObjFactura.CvePrePoliza, TipoMovimiento, importeMovimiento, Referencia, ConceptoContableAplicar, Concepto, ObjFactura.Fecha, IdCtaContable, -1, CveVenta:=CveVentaAplicar, CveVentaAmortizacion:=CveVentaAmortizacionAplicar, CveCliente:=ObjFactura.CveCliente, CveIE:=CveIE, CveClasificacion:=Row2("CveClasificacion").ToString().ToEntero(), CveSubProyecto:=Row2("CveSubProyecto").ToString().ToEntero(), ImporteMX:=importeMX, ImporteME:=If(tipoCambio = 1, 0, importeMovimiento), TipoCambio:=tipoCambio, CveCuenta:=CveCuenta) Then If Not ObjConta.AddPrePolizasDetalle(ObjFactura.CvePrePoliza, TipoMovimiento, importeMovimiento, Referencia, ConceptoContableAplicar, Concepto, ObjFactura.Fecha, IdCtaContable, -1, CveVenta:=CveVentaAplicar, CveVentaAmortizacion:=CveVentaAmortizacionAplicar, CveCliente:=ObjFactura.CveCliente, CveIE:=CveIE, CveClasificacion:=Row2("CveClasificacion").ToString().ToEntero(), CveSubProyecto:=Row2("CveSubProyecto").ToString().ToEntero(), ImporteMX:=importeMX, ImporteME:=If(tipoCambio = 1, 0, importeMovimiento), TipoCambio:=tipoCambio, CveCuenta:=CveCuenta) Then
ErrorPrepoliza = True ErrorPrepoliza = True
@@ -11229,7 +11229,7 @@ Partial Class Ventas
If GlobalDTBancosCuentas(UsuarioActual.CveUsuario, DrPago("CveCuenta").ToString().ToEntero()).Rows.Count = 1 Then If GlobalDTBancosCuentas(UsuarioActual.CveUsuario, DrPago("CveCuenta").ToString().ToEntero()).Rows.Count = 1 Then
IdCtaContable = GlobalDTBancosCuentas(UsuarioActual.CveUsuario, DrPago("CveCuenta").ToString().ToEntero()).Rows(0)("IdCtaContable").ToString().ToEntero() IdCtaContable = GlobalDTBancosCuentas(UsuarioActual.CveUsuario, DrPago("CveCuenta").ToString().ToEntero()).Rows(0)("IdCtaContable").ToString().ToEntero()
CveCuenta = GlobalDTBancosCuentas(UsuarioActual.CveUsuario, DrPago("CveCuenta").ToString().ToEntero()).Rows(0)("IdCtaContableSIG").ToString().ToEntero() ' CveCuenta = GlobalDTBancosCuentas(UsuarioActual.CveUsuario, DrPago("CveCuenta").ToString().ToEntero()).Rows(0)("IdCtaContableSIG").ToString().ToEntero()
End If End If
If IdCtaContable <= 0 Then If IdCtaContable <= 0 Then
@@ -11237,10 +11237,10 @@ Partial Class Ventas
idCuentaContabilizacion = 0 idCuentaContabilizacion = 0
End If End If
If CveCuenta <= 0 Then 'If CveCuenta <= 0 Then
CuentasContablesInvalidasSIG.AppendFormat("<br> {0}", GlobalDTBancosCuentas(UsuarioActual.CveUsuario, DrPago("CveCuenta").ToString().ToEntero()).Rows(0)("NumCuentaMoneda").ToString().ToEntero()) ' CuentasContablesInvalidasSIG.AppendFormat("<br> {0}", GlobalDTBancosCuentas(UsuarioActual.CveUsuario, DrPago("CveCuenta").ToString().ToEntero()).Rows(0)("NumCuentaMoneda").ToString().ToEntero())
CveCuentaContabilizacion = 0 ' CveCuentaContabilizacion = 0
End If 'End If
'BANCOS 'BANCOS
Concepto = ObjConta.ObtenerConceptoEmpresa(UsuarioActual.CveEmpresa, 30, NombreCliente, $"{ObjFactura.Serie}-{ObjFactura.Folio}", FolioIE.ToString()) Concepto = ObjConta.ObtenerConceptoEmpresa(UsuarioActual.CveEmpresa, 30, NombreCliente, $"{ObjFactura.Serie}-{ObjFactura.Folio}", FolioIE.ToString())
@@ -11309,10 +11309,10 @@ Partial Class Ventas
idCuentaContabilizacion = 0 idCuentaContabilizacion = 0
End If End If
If CveCuenta <= 0 Then 'If CveCuenta <= 0 Then
CuentasContablesInvalidasSIG.Append("<br>" & GlobalDTContaConceptosContables(-1).FiltroPrimero(String.Format("CveConceptoContable = {0}", ConceptoContable))("ConceptoContable").ToString()) ' CuentasContablesInvalidasSIG.Append("<br>" & GlobalDTContaConceptosContables(-1).FiltroPrimero(String.Format("CveConceptoContable = {0}", ConceptoContable))("ConceptoContable").ToString())
CveCuentaContabilizacion = 0 ' CveCuentaContabilizacion = 0
End If 'End If
If Not ObjConta.AddPrePolizasDetalle(ObjFactura.CvePrePoliza, TipoMovimiento, importeMovimiento, Referencia, ConceptoContable, Concepto, FechaMovimiento, IdCtaContable, -1, CveVenta:=ObjFactura.CveVenta, CveCliente:=ObjFactura.CveCliente, CveIE:=CveIE, ImporteMX:=importeMX, ImporteME:=If(tipoCambio = 1, 0, importeMovimiento), CveCuenta:=CveCuenta, CveSubProyecto:=CveSubProyectoContabilizar, TipoCambio:=tipoCambio, PorcentajeImpuesto:=PorcentajeImpuesto, Contabilizable:=SeContabiliza) Then If Not ObjConta.AddPrePolizasDetalle(ObjFactura.CvePrePoliza, TipoMovimiento, importeMovimiento, Referencia, ConceptoContable, Concepto, FechaMovimiento, IdCtaContable, -1, CveVenta:=ObjFactura.CveVenta, CveCliente:=ObjFactura.CveCliente, CveIE:=CveIE, ImporteMX:=importeMX, ImporteME:=If(tipoCambio = 1, 0, importeMovimiento), CveCuenta:=CveCuenta, CveSubProyecto:=CveSubProyectoContabilizar, TipoCambio:=tipoCambio, PorcentajeImpuesto:=PorcentajeImpuesto, Contabilizable:=SeContabiliza) Then
ErrorPrepoliza = True ErrorPrepoliza = True
@@ -12546,7 +12546,7 @@ Partial Class Ventas
If CveMonedaVenta = 1 Then If CveMonedaVenta = 1 Then
IdCtaContable = IdCtaContClientes IdCtaContable = IdCtaContClientes
CveCuenta = CveCuentaClientes 'CveCuenta = CveCuentaClientes
Else Else
IdCtaContable = IdCtaContComplementaria IdCtaContable = IdCtaContComplementaria
CveCuenta = 0 'If(ObjFactura.Cliente IsNot Nothing AndAlso ObjFactura.Cliente.CveCuentaComplementaria > 0, ObjFactura.Cliente.CveCuentaComplementaria, -1) CveCuenta = 0 'If(ObjFactura.Cliente IsNot Nothing AndAlso ObjFactura.Cliente.CveCuentaComplementaria > 0, ObjFactura.Cliente.CveCuentaComplementaria, -1)
@@ -12557,11 +12557,11 @@ Partial Class Ventas
idCuentaContabilizacion = 0 idCuentaContabilizacion = 0
End If End If
'Conta SIG ''Conta SIG
If CveCuenta <= 0 Then 'If CveCuenta <= 0 Then
CuentasContablesInvalidasSIG.Append("<br>" & GlobalDTContaConceptosContables(-1).FiltroPrimero(String.Format("CveConceptoContable = {0}", ConceptoContable))("ConceptoContable").ToString()) ' CuentasContablesInvalidasSIG.Append("<br>" & GlobalDTContaConceptosContables(-1).FiltroPrimero(String.Format("CveConceptoContable = {0}", ConceptoContable))("ConceptoContable").ToString())
CveCuentaContabilizacion = 0 ' CveCuentaContabilizacion = 0
End If 'End If
If Not ObjConta.AddPrePolizasDetalle(CvePrepoliza, TipoMovimiento, 0, Concepto, 207, Concepto, FechaMovimiento, IdCtaContable, -1, CveVenta:=CveVenta, CveCliente:=CveCliente, ImporteMX:=Math.Round(importeMovimiento * tipoCambioVenta - importeMovimiento, 2, MidpointRounding.AwayFromZero), ImporteME:=importeMovimiento, CveCuenta:=CveCuenta, TipoCambio:=tipoCambioVentaValuacion) Then If Not ObjConta.AddPrePolizasDetalle(CvePrepoliza, TipoMovimiento, 0, Concepto, 207, Concepto, FechaMovimiento, IdCtaContable, -1, CveVenta:=CveVenta, CveCliente:=CveCliente, ImporteMX:=Math.Round(importeMovimiento * tipoCambioVenta - importeMovimiento, 2, MidpointRounding.AwayFromZero), ImporteME:=importeMovimiento, CveCuenta:=CveCuenta, TipoCambio:=tipoCambioVentaValuacion) Then
ErrorConta = True ErrorConta = True
@@ -12596,11 +12596,11 @@ Partial Class Ventas
idCuentaContabilizacion = 0 idCuentaContabilizacion = 0
End If End If
'Conta SIG ''Conta SIG
If CveCuenta <= 0 Then 'If CveCuenta <= 0 Then
CuentasContablesInvalidasSIG.Append("<br>" & GlobalDTContaConceptosContables(-1).FiltroPrimero(String.Format("CveConceptoContable = {0}", ConceptoContable))("ConceptoContable").ToString()) ' CuentasContablesInvalidasSIG.Append("<br>" & GlobalDTContaConceptosContables(-1).FiltroPrimero(String.Format("CveConceptoContable = {0}", ConceptoContable))("ConceptoContable").ToString())
CveCuentaContabilizacion = 0 ' CveCuentaContabilizacion = 0
End If 'End If
If Not ObjConta.AddPrePolizasDetalle(CvePrepoliza, TipoMovimiento, importeMovimiento, Concepto, ConceptoContable, Concepto, FechaMovimiento, IdCtaContable, -1, CveVenta:=gvr.DataKey("CveVenta").ToEntero(), CveVentaAmortizacion:=CveVenta, CveCliente:=CveCliente, CveIE:=CveIEAnticipo, ImporteMX:=importeMovimiento * tipoCambioPago, ImporteME:=If(tipoCambioPago = 1, 0, importeMovimiento), CveCuenta:=CveCuenta) Then If Not ObjConta.AddPrePolizasDetalle(CvePrepoliza, TipoMovimiento, importeMovimiento, Concepto, ConceptoContable, Concepto, FechaMovimiento, IdCtaContable, -1, CveVenta:=gvr.DataKey("CveVenta").ToEntero(), CveVentaAmortizacion:=CveVenta, CveCliente:=CveCliente, CveIE:=CveIEAnticipo, ImporteMX:=importeMovimiento * tipoCambioPago, ImporteME:=If(tipoCambioPago = 1, 0, importeMovimiento), CveCuenta:=CveCuenta) Then
ErrorConta = True ErrorConta = True
@@ -12645,7 +12645,7 @@ Partial Class Ventas
If ObjConta.GetRetCuenta(ConceptoContable, CveCliente) Then If ObjConta.GetRetCuenta(ConceptoContable, CveCliente) Then
If ObjConta.DtResultados.Rows.Count > 0 Then If ObjConta.DtResultados.Rows.Count > 0 Then
IdCtaContable = ObjConta.DtResultados.Rows(0)("IdCtaContable").ToString().ToEntero() IdCtaContable = ObjConta.DtResultados.Rows(0)("IdCtaContable").ToString().ToEntero()
CveCuenta = ObjConta.DtResultados.Rows(0)("IdCtaContableSIG").ToString().ToEntero() 'CveCuenta = ObjConta.DtResultados.Rows(0)("IdCtaContableSIG").ToString().ToEntero()
End If End If
End If End If
@@ -12656,10 +12656,10 @@ Partial Class Ventas
idCuentaContabilizacion = 0 idCuentaContabilizacion = 0
End If End If
If CveCuenta <= 0 Then 'If CveCuenta <= 0 Then
CuentasContablesInvalidasSIG.Append("<br>" & GlobalDTContaConceptosContables(-1).FiltroPrimero(String.Format("CveConceptoContable = {0}", ConceptoContable))("ConceptoContable").ToString()) ' CuentasContablesInvalidasSIG.Append("<br>" & GlobalDTContaConceptosContables(-1).FiltroPrimero(String.Format("CveConceptoContable = {0}", ConceptoContable))("ConceptoContable").ToString())
CveCuentaContabilizacion = 0 ' CveCuentaContabilizacion = 0
End If 'End If
Dim ImporteComplementaria As Decimal = 0 Dim ImporteComplementaria As Decimal = 0
If UsaComplementariaClientes = True AndAlso gvr.DataKey("CveMoneda").ToString().ToDecimal > 1 Then If UsaComplementariaClientes = True AndAlso gvr.DataKey("CveMoneda").ToString().ToDecimal > 1 Then
@@ -12888,10 +12888,10 @@ Partial Class Ventas
idCuentaContabilizacion = 0 idCuentaContabilizacion = 0
End If End If
If CveCuenta <= 0 Then 'If CveCuenta <= 0 Then
CuentasContablesInvalidasSIG.Append("<br>" & GlobalDTContaConceptosContables(-1).FiltroPrimero(String.Format("CveConceptoContable = {0}", ConceptoContable))("ConceptoContable").ToString()) ' CuentasContablesInvalidasSIG.Append("<br>" & GlobalDTContaConceptosContables(-1).FiltroPrimero(String.Format("CveConceptoContable = {0}", ConceptoContable))("ConceptoContable").ToString())
CveCuentaContabilizacion = 0 ' CveCuentaContabilizacion = 0
End If 'End If
If Not ObjConta.AddPrePolizasDetalle(CvePrepoliza, TipoMovimiento, importeMovimiento, Concepto, ConceptoContable, Concepto, FechaMovimiento, IdCtaContable, -1, CveVenta:=CveVenta, CveCliente:=CveCliente, ImporteMX:=importeMX, CveCuenta:=CveCuenta, TipoCambio:=TipoCambioGeneral) Then If Not ObjConta.AddPrePolizasDetalle(CvePrepoliza, TipoMovimiento, importeMovimiento, Concepto, ConceptoContable, Concepto, FechaMovimiento, IdCtaContable, -1, CveVenta:=CveVenta, CveCliente:=CveCliente, ImporteMX:=importeMX, CveCuenta:=CveCuenta, TipoCambio:=TipoCambioGeneral) Then
ErrorConta = True ErrorConta = True
@@ -13094,7 +13094,7 @@ Partial Class Ventas
CveCuentaIVAxTrasladar = GlobalDTClasificacionPorcentaje(UsuarioActual.CveEmpresa, PorcentajeIVA:=PorcentajeImpuesto).Rows(0)("CveCuentaIVAXTrasladar").ToString().ToEntero() CveCuentaIVAxTrasladar = GlobalDTClasificacionPorcentaje(UsuarioActual.CveEmpresa, PorcentajeIVA:=PorcentajeImpuesto).Rows(0)("CveCuentaIVAXTrasladar").ToString().ToEntero()
End If End If
IdCtaContable = If(IdCtaIVAXTrasladar > 0, IdCtaIVAXTrasladar, UsuarioActual.Empresa.IdCuentaIVAxTrasladar) IdCtaContable = If(IdCtaIVAXTrasladar > 0, IdCtaIVAXTrasladar, UsuarioActual.Empresa.IdCuentaIVAxTrasladar)
CveCuenta = If(CveCuentaIVAxTrasladar > 0, CveCuentaIVAxTrasladar, UsuarioActual.Empresa.CveCuentaIVAxTrasladar) ' CveCuenta = If(CveCuentaIVAxTrasladar > 0, CveCuentaIVAxTrasladar, UsuarioActual.Empresa.CveCuentaIVAxTrasladar)
If ImporteMovimiento > 0 Then If ImporteMovimiento > 0 Then
If IdCtaContable <= 0 Then If IdCtaContable <= 0 Then
@@ -13102,10 +13102,10 @@ Partial Class Ventas
idCuentaContabilizacion = 0 idCuentaContabilizacion = 0
End If End If
If CveCuenta <= 0 Then 'If CveCuenta <= 0 Then
CuentasContablesInvalidasSIG.Append("<br>" & GlobalDTContaConceptosContables(-1).FiltroPrimero(String.Format("CveConceptoContable = {0}", 13))("ConceptoContable").ToString()) ' CuentasContablesInvalidasSIG.Append("<br>" & GlobalDTContaConceptosContables(-1).FiltroPrimero(String.Format("CveConceptoContable = {0}", 13))("ConceptoContable").ToString())
CveCuentaContabilizacion = 0 ' CveCuentaContabilizacion = 0
End If 'End If
If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, False, ImporteMovimiento, Concepto, 13, Concepto, FechaMovimiento, IdCtaContable, -1, CveVenta:=CveVenta, CveCliente:=CveCliente, ImporteMX:=ImporteMX, CveCuenta:=CveCuenta, PorcentajeImpuesto:=PorcentajeImpuesto) Then If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, False, ImporteMovimiento, Concepto, 13, Concepto, FechaMovimiento, IdCtaContable, -1, CveVenta:=CveVenta, CveCliente:=CveCliente, ImporteMX:=ImporteMX, CveCuenta:=CveCuenta, PorcentajeImpuesto:=PorcentajeImpuesto) Then
PrePolizaCorrecta = False PrePolizaCorrecta = False
@@ -13123,7 +13123,7 @@ Partial Class Ventas
If ObjConta.GetRetCuenta(8, UsuarioActual.CveEmpresa) Then If ObjConta.GetRetCuenta(8, UsuarioActual.CveEmpresa) Then
If ObjConta.DtResultados.Rows.Count > 0 Then If ObjConta.DtResultados.Rows.Count > 0 Then
IdCtaContable = ObjConta.DtResultados.Rows(0)("IdCuentaRetIVACirculacion").ToString().ToEntero() IdCtaContable = ObjConta.DtResultados.Rows(0)("IdCuentaRetIVACirculacion").ToString().ToEntero()
CveCuenta = ObjConta.DtResultados.Rows(0)("IdCuentaRetIVACirculacionSIG").ToString().ToEntero() 'CveCuenta = ObjConta.DtResultados.Rows(0)("IdCuentaRetIVACirculacionSIG").ToString().ToEntero()
End If End If
End If End If
End If End If
@@ -13134,10 +13134,10 @@ Partial Class Ventas
idCuentaContabilizacion = 0 idCuentaContabilizacion = 0
End If End If
If CveCuenta <= 0 Then 'If CveCuenta <= 0 Then
CuentasContablesInvalidasSIG.Append("<br>" & GlobalDTContaConceptosContables(-1).FiltroPrimero(String.Format("CveConceptoContable = {0}", 8))("ConceptoContable").ToString()) ' CuentasContablesInvalidasSIG.Append("<br>" & GlobalDTContaConceptosContables(-1).FiltroPrimero(String.Format("CveConceptoContable = {0}", 8))("ConceptoContable").ToString())
CveCuentaContabilizacion = 0 ' CveCuentaContabilizacion = 0
End If 'End If
If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, True, ImporteMovimiento, Concepto, 8, Concepto, FechaMovimiento, IdCtaContable, -1, CveVenta:=CveVenta, CveCliente:=CveCliente, ImporteMX:=ImporteMX, CveCuenta:=CveCuenta) Then If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, True, ImporteMovimiento, Concepto, 8, Concepto, FechaMovimiento, IdCtaContable, -1, CveVenta:=CveVenta, CveCliente:=CveCliente, ImporteMX:=ImporteMX, CveCuenta:=CveCuenta) Then
PrePolizaCorrecta = False PrePolizaCorrecta = False
@@ -13160,15 +13160,15 @@ Partial Class Ventas
End If End If
'ContaSIG 'ContaSIG
If CveCuentaRetISR <> 0 Then 'If CveCuentaRetISR <> 0 Then
CveCuenta = CveCuentaRetISR ' CveCuenta = CveCuentaRetISR
Else 'Else
If ObjConta.GetRetCuenta(9, UsuarioActual.CveEmpresa) Then ' If ObjConta.GetRetCuenta(9, UsuarioActual.CveEmpresa) Then
If ObjConta.DtResultados.Rows.Count > 0 Then ' If ObjConta.DtResultados.Rows.Count > 0 Then
CveCuenta = ObjConta.DtResultados.Rows(0)("IdCuentaRetISRCirculacionSIG").ToString().ToEntero() ' CveCuenta = ObjConta.DtResultados.Rows(0)("IdCuentaRetISRCirculacionSIG").ToString().ToEntero()
End If ' End If
End If ' End If
End If 'End If
If ImporteMovimiento > 0 Then If ImporteMovimiento > 0 Then
If IdCtaContable <= 0 Then If IdCtaContable <= 0 Then
@@ -13176,10 +13176,10 @@ Partial Class Ventas
idCuentaContabilizacion = 0 idCuentaContabilizacion = 0
End If End If
If IdCtaContable <= 0 Then 'If IdCtaContable <= 0 Then
CuentasContablesInvalidasSIG.Append("<br>" & GlobalDTContaConceptosContables(-1).FiltroPrimero(String.Format("CveConceptoContable = {0}", 9))("ConceptoContable").ToString()) ' CuentasContablesInvalidasSIG.Append("<br>" & GlobalDTContaConceptosContables(-1).FiltroPrimero(String.Format("CveConceptoContable = {0}", 9))("ConceptoContable").ToString())
CveCuentaContabilizacion = 0 ' CveCuentaContabilizacion = 0
End If 'End If
If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, True, ImporteMovimiento, Concepto, 9, Concepto, FechaMovimiento, IdCtaContable, -1, CveVenta:=CveVenta, CveCliente:=CveCliente, ImporteMX:=ImporteMX, CveCuenta:=CveCuenta) Then If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, True, ImporteMovimiento, Concepto, 9, Concepto, FechaMovimiento, IdCtaContable, -1, CveVenta:=CveVenta, CveCliente:=CveCliente, ImporteMX:=ImporteMX, CveCuenta:=CveCuenta) Then
PrePolizaCorrecta = False PrePolizaCorrecta = False
@@ -13211,7 +13211,7 @@ Partial Class Ventas
CveCuentaIVATrasladado = GlobalDTClasificacionPorcentaje(UsuarioActual.CveEmpresa, PorcentajeIVA:=PorcentajeImpuesto).Rows(0)("CveCuentaIVATrasladado").ToString().ToEntero() CveCuentaIVATrasladado = GlobalDTClasificacionPorcentaje(UsuarioActual.CveEmpresa, PorcentajeIVA:=PorcentajeImpuesto).Rows(0)("CveCuentaIVATrasladado").ToString().ToEntero()
End If End If
IdCtaContable = If(IdCtaIVATrasladado > 0, IdCtaIVATrasladado, UsuarioActual.Empresa.IdCuentaIVATrasladado) IdCtaContable = If(IdCtaIVATrasladado > 0, IdCtaIVATrasladado, UsuarioActual.Empresa.IdCuentaIVATrasladado)
CveCuenta = If(CveCuentaIVATrasladado > 0, CveCuentaIVATrasladado, UsuarioActual.Empresa.CveCuentaIVATrasladado) 'CveCuenta = If(CveCuentaIVATrasladado > 0, CveCuentaIVATrasladado, UsuarioActual.Empresa.CveCuentaIVATrasladado)
If ImporteMovimiento > 0 Then If ImporteMovimiento > 0 Then
'ContaContPAQ 'ContaContPAQ
@@ -13220,11 +13220,11 @@ Partial Class Ventas
idCuentaContabilizacion = 0 idCuentaContabilizacion = 0
End If End If
'ContaSIG ''ContaSIG
If CveCuenta <= 0 Then 'If CveCuenta <= 0 Then
CuentasContablesInvalidasSIG.Append("<br>" & GlobalDTContaConceptosContables(-1).FiltroPrimero(String.Format("CveConceptoContable = {0}", 61))("ConceptoContable").ToString()) ' CuentasContablesInvalidasSIG.Append("<br>" & GlobalDTContaConceptosContables(-1).FiltroPrimero(String.Format("CveConceptoContable = {0}", 61))("ConceptoContable").ToString())
CveCuentaContabilizacion = 0 ' CveCuentaContabilizacion = 0
End If 'End If
If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, True, ImporteMovimiento, Concepto, 61, Concepto, FechaMovimiento, IdCtaContable, -1, CveVenta:=CveVenta, CveCliente:=CveCliente, ImporteMX:=ImporteMX, CveCuenta:=CveCuenta, PorcentajeImpuesto:=PorcentajeImpuesto) Then If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, True, ImporteMovimiento, Concepto, 61, Concepto, FechaMovimiento, IdCtaContable, -1, CveVenta:=CveVenta, CveCliente:=CveCliente, ImporteMX:=ImporteMX, CveCuenta:=CveCuenta, PorcentajeImpuesto:=PorcentajeImpuesto) Then
PrePolizaCorrecta = False PrePolizaCorrecta = False
@@ -13244,14 +13244,14 @@ Partial Class Ventas
End If End If
End If End If
'Conta SIG ''Conta SIG
If CveCuentaRetIVA <> 0 Then 'If CveCuentaRetIVA <> 0 Then
CveCuenta = CveCuentaRetIVA ' CveCuenta = CveCuentaRetIVA
Else 'Else
If ObjConta.GetRetCuenta(62, UsuarioActual.CveEmpresa) Then ' If ObjConta.GetRetCuenta(62, UsuarioActual.CveEmpresa) Then
CveCuenta = ObjConta.DtResultados.Rows(0)("IdCuentaRetIVACirculacionSIG").ToString().ToEntero() ' CveCuenta = ObjConta.DtResultados.Rows(0)("IdCuentaRetIVACirculacionSIG").ToString().ToEntero()
End If ' End If
End If 'End If
If ImporteMovimiento > 0 Then If ImporteMovimiento > 0 Then
If IdCtaContable <= 0 Then If IdCtaContable <= 0 Then
@@ -13259,10 +13259,10 @@ Partial Class Ventas
idCuentaContabilizacion = 0 idCuentaContabilizacion = 0
End If End If
If CveCuenta <= 0 Then 'If CveCuenta <= 0 Then
CuentasContablesInvalidasSIG.Append("<br>" & GlobalDTContaConceptosContables(-1).FiltroPrimero(String.Format("CveConceptoContable = {0}", 62))("ConceptoContable").ToString()) ' CuentasContablesInvalidasSIG.Append("<br>" & GlobalDTContaConceptosContables(-1).FiltroPrimero(String.Format("CveConceptoContable = {0}", 62))("ConceptoContable").ToString())
CveCuentaContabilizacion = 0 ' CveCuentaContabilizacion = 0
End If 'End If
If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, False, ImporteMovimiento, Concepto, 62, Concepto, FechaMovimiento, IdCtaContable, -1, CveVenta:=CveVenta, CveCliente:=CveCliente, ImporteMX:=ImporteMX, CveCuenta:=CveCuenta) Then If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, False, ImporteMovimiento, Concepto, 62, Concepto, FechaMovimiento, IdCtaContable, -1, CveVenta:=CveVenta, CveCliente:=CveCliente, ImporteMX:=ImporteMX, CveCuenta:=CveCuenta) Then
PrePolizaCorrecta = False PrePolizaCorrecta = False
@@ -13284,15 +13284,15 @@ Partial Class Ventas
End If End If
End If End If
If CveCuentaRetISR <> 0 Then 'If CveCuentaRetISR <> 0 Then
CveCuenta = CveCuentaRetISR ' CveCuenta = CveCuentaRetISR
Else 'Else
If ObjConta.GetRetCuenta(63, UsuarioActual.CveEmpresa) Then ' If ObjConta.GetRetCuenta(63, UsuarioActual.CveEmpresa) Then
If ObjConta.DtResultados.Rows.Count > 0 Then ' If ObjConta.DtResultados.Rows.Count > 0 Then
CveCuenta = ObjConta.DtResultados.Rows(0)("IdCuentaRetISRCirculacionSIG").ToString().ToEntero() ' CveCuenta = ObjConta.DtResultados.Rows(0)("IdCuentaRetISRCirculacionSIG").ToString().ToEntero()
End If ' End If
End If ' End If
End If 'End If
If ImporteMovimiento > 0 Then If ImporteMovimiento > 0 Then
If IdCtaContable <= 0 Then If IdCtaContable <= 0 Then
@@ -13300,10 +13300,10 @@ Partial Class Ventas
idCuentaContabilizacion = 0 idCuentaContabilizacion = 0
End If End If
If CveCuenta <= 0 Then 'If CveCuenta <= 0 Then
CuentasContablesInvalidasSIG.Append("<br>" & GlobalDTContaConceptosContables(-1).FiltroPrimero(String.Format("CveConceptoContable = {0}", 63))("ConceptoContable").ToString()) ' CuentasContablesInvalidasSIG.Append("<br>" & GlobalDTContaConceptosContables(-1).FiltroPrimero(String.Format("CveConceptoContable = {0}", 63))("ConceptoContable").ToString())
CveCuentaContabilizacion = 0 ' CveCuentaContabilizacion = 0
End If 'End If
If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, False, ImporteMovimiento, Concepto, 63, Concepto, FechaMovimiento, IdCtaContable, -1, CveVenta:=CveVenta, CveCliente:=CveCliente, ImporteMX:=ImporteMX, CveCuenta:=CveCuenta) Then If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, False, ImporteMovimiento, Concepto, 63, Concepto, FechaMovimiento, IdCtaContable, -1, CveVenta:=CveVenta, CveCliente:=CveCliente, ImporteMX:=ImporteMX, CveCuenta:=CveCuenta) Then
PrePolizaCorrecta = False PrePolizaCorrecta = False