<%--
--%>
-
diff --git a/RH/Personal.aspx.vb b/RH/Personal.aspx.vb
index 09e4f08bb..da16a8d97 100644
--- a/RH/Personal.aspx.vb
+++ b/RH/Personal.aspx.vb
@@ -6507,12 +6507,82 @@ Partial Class RH_Personal
+ Property CvePersonalAltas As Integer
+ Get
+ If ViewState("CvePersonalAltas") Is Nothing Then
+ Return 0
+ Else
+ Return DirectCast(ViewState("CvePersonalAltas"), Integer)
+ End If
+ End Get
+ Set(value As Integer)
+ ViewState("CvePersonalAltas") = value
+ End Set
+ End Property
Protected Sub LnkUpAltass_Click(sender As Object, e As EventArgs)
-
+ Dim GvRow As GridViewRow = DirectCast((DirectCast(sender, LinkButton)).NamingContainer, GridViewRow)
+ CvePersonalAltas = GvRow.DataKey("CvePersonalAltas").ToEntero()
+ TxtFechaInicioUA.Text = String.Format("{0:dd/MM/yyyy}", GvRow.DataKey("FechaInicio").ToDateTime())
+ Dim fechafin As DateTime = GvRow.DataKey("FechaFin").ToDateTime()
+ If fechafin.Year < 1900 Then
+ TxtFechaFinUA.Text = ""
+ Else
+ TxtFechaFinUA.Text = String.Format("{0:dd/MM/yyyy}", fechafin)
+ End If
+ UpAltasUpdate.Update()
+ RegistraScript("$('#ModalUpAltas').modal();")
End Sub
Protected Sub LnkDAltas_Click(sender As Object, e As EventArgs)
+ Dim GvRow As GridViewRow = DirectCast((DirectCast(sender, LinkButton)).NamingContainer, GridViewRow)
+ CvePersonalAltas = GvRow.DataKey("CvePersonalAltas").ToEntero()
+ Dim strquery As String = String.Format("DELETE [RH_PersonalAltas] WHERE CvePersonalAltas ={0} AND [CvePersonal] ={1}", CvePersonalAltas, CvePersonal)
+ Using objbase As New ClsClaseBase
+ If (objbase.runQuerystr(strquery)) Then
+ Using objrh As New ClsRH()
+ If objrh.GetPersonalAltas(CvePersonal) Then
+ GvPersonalAltas.DataSource = objrh.DtResultados
+ GvPersonalAltas.DataBind()
+ UpDatos.Update()
+ End If
+ End Using
+ Alert("Alta eliminada")
+ End If
+ End Using
+ End Sub
+
+ Protected Sub LnkUpAltas_Click(sender As Object, e As EventArgs)
+
+ Dim strfin As String = ""
+ Dim fechafin As DateTime = TxtFechaFinUA.Text.ToDateTime()
+ If fechafin.Year < 1900 Then
+ strfin = ",[FechaFin]=null"
+ Else
+ strfin = String.Format(",[FechaFin]='{0:yyyy-MM-dd}'", fechafin)
+
+ End If
+ Dim strquery As String = String.Format("UPDATE [RH_PersonalAltas] SET [FechaInicio]='{2:yyyy-MM-dd}' {3} WHERE CvePersonalAltas ={0} AND [CvePersonal] ={1}", CvePersonalAltas, CvePersonal, TxtFechaInicioUA.Text.ToDateTime(), strfin)
+ Using objbase As New ClsClaseBase
+ If (objbase.runQuerystr(strquery)) Then
+ Using objrh As New ClsRH()
+ If objrh.GetPersonalAltas(CvePersonal) Then
+ GvPersonalAltas.DataSource = objrh.DtResultados
+ GvPersonalAltas.DataBind()
+ UpDatos.Update()
+ End If
+ End Using
+ Alert("Alta actualizada")
+ End If
+ End Using
+ End Sub
+
+ Protected Sub GvPersonalAltas_RowDataBound(sender As Object, e As GridViewRowEventArgs)
+ If e.Row.RowType = DataControlRowType.DataRow Then
+ e.Row.FCLinkButton("LnkUpAltass").Visible = UsuarioActual.TienePermisoProceso(327)
+ e.Row.FCLinkButton("LnkDAltas").Visible = e.Row.FCLinkButton("LnkUpAltass").Visible
+ End If
End Sub
End Class
+
diff --git a/Ventas/PV.aspx.vb b/Ventas/PV.aspx.vb
index b6305efd8..8208b730d 100644
--- a/Ventas/PV.aspx.vb
+++ b/Ventas/PV.aspx.vb
@@ -7112,7 +7112,7 @@ Partial Class PV
Dim TotalCargos As Decimal = 0
Dim TotalCantidad As Decimal = 0
Dim StrTamanios As New StringBuilder()
- StrTamanios.Append("Se recibierón los siguientes usados:")
+ StrTamanios.Append("Se recibieron los siguientes usados:")
'For Each Gvr As GridViewRow In Gv.Rows
' If Gvr.RowType = DataControlRowType.DataRow Then
diff --git a/Ventas/RepRecuperacionDetalle.aspx.vb b/Ventas/RepRecuperacionDetalle.aspx.vb
index a9d1e44b0..bbbb91a97 100644
--- a/Ventas/RepRecuperacionDetalle.aspx.vb
+++ b/Ventas/RepRecuperacionDetalle.aspx.vb
@@ -133,8 +133,8 @@ Partial Class Ventas_RepRecuperacionDetalle
DdlMoneda.Items.Insert(0, New ListItem("Todos", "-1"))
DdlMoneda.DataBind()
- txtFechaI.Text = $"01/{Now.Month}/{Now.Year}"
- txtFechaF.Text = Now.ToShortDateString
+ 'txtFechaI.Text = $"01/{Now.Month}/{Now.Year}"
+ 'txtFechaF.Text = Now.ToShortDateString
'Cargamos las fechas
FechaI = If(Request("FechaI") IsNot Nothing, Request("FechaI").ToString, "-1").ToString
diff --git a/Ventas/Ventas.aspx b/Ventas/Ventas.aspx
index bef184d20..164a4f081 100644
--- a/Ventas/Ventas.aspx
+++ b/Ventas/Ventas.aspx
@@ -3959,7 +3959,7 @@
+ DataKeyNames="ISTotal,Saldo,CveIE,Folio,Tipo,CveVenta,CveConceptoContable,CveConceptoContableAmor, TotalAnticipo, SubTotalAnticipo, IVAAnticipo,IEPS, ImpuestosLocalesAnticipo, SubTotalAmortizacion, SubTotal, Original, IVA, RetIVA, RetISR, IdCtaContableNC,FolioFiscal, CveClasificacionNC, TipoCambio,TipoCambioPago,TipoCambioHoy, CveMoneda,Fecha,SaldoSubTotal,SaldoConImpuestos,RegresarImpuesto,DevolucionImportePagado,CveCliente">
diff --git a/Ventas/Ventas.aspx.vb b/Ventas/Ventas.aspx.vb
index 5257b1b11..efc318b5f 100644
--- a/Ventas/Ventas.aspx.vb
+++ b/Ventas/Ventas.aspx.vb
@@ -797,31 +797,19 @@ Partial Class Ventas
Return ViewState("IdCtaContAnticipos").ToString().ToEntero()
End Get
End Property
- Private ReadOnly Property CveCuentaAnticipos As Integer
- Get
- Return ViewState("CveCuentaAnticipos").ToString().ToEntero()
- End Get
- End Property
+
Private ReadOnly Property IdCtaContRetIVA As Integer
Get
Return ViewState("IdCtaContRetIVA").ToString().ToEntero()
End Get
End Property
- Private ReadOnly Property CveCuentaRetIVA As Integer
- Get
- Return ViewState("CveCuentaRetIVA").ToString().ToEntero()
- End Get
- End Property
+
Private ReadOnly Property IdCtaContRetISR As Integer
Get
Return ViewState("IdCtaContRetISR").ToString().ToEntero()
End Get
End Property
- Private ReadOnly Property CveCuentaRetISR As Integer
- Get
- Return ViewState("CveCuentaRetISR").ToString().ToEntero()
- End Get
- End Property
+
Private ReadOnly Property CodCliente As String
Get
@@ -5595,15 +5583,11 @@ Partial Class Ventas
ViewState("Vendedor") = ObjCliente.Vendedor
ViewState("CtaContable") = ObjCliente.CuentaContable
ViewState("IdCtaContClientes") = ObjCliente.IdCtaContClientes
- ViewState("CveCuentaClientes") = ObjCliente.CveCuentaClientes
ViewState("IdCtaContMonedaExtranjera") = ObjCliente.IdCtaContMonedaExtranjera
ViewState("IdCtaContComplementaria") = ObjCliente.IdCtaContComplementaria
ViewState("IdCtaContAnticipos") = ObjCliente.IdCtaContAnticipos
- ViewState("CveCuentaAnticipos") = ObjCliente.CveCuentaAnticipos
ViewState("IdCtaContRetIVA") = ObjCliente.IdCtaContRetIVA
- ViewState("CveCuentaRetIVA") = ObjCliente.CveCuentaRetIVA
ViewState("IdCtaContRetISR") = ObjCliente.IdCtaContRetISR
- ViewState("CveCuentaRetISR") = ObjCliente.CveCuentaRetISR
ViewState("CodCliente") = ObjCliente.Codigo
ViewState("CvePrecioLista") = ObjCliente.CvePrecioLista
@@ -14984,7 +14968,7 @@ Partial Class Ventas
Private Function AgregarPrePolizasXTrasladar(ObjConta As ClsContabilidad, CvePrePoliza As Integer, PorcentajeAmortizacion As Decimal, TipoCambio As Decimal, ByRef CuentasContablesInvalidas As StringBuilder, ByRef idCuentaContabilizacion As Integer, ByRef CveCuentaContabilizacion As Integer, Importe13 As Decimal, Importe8 As Decimal, Importe9 As Decimal) As Boolean
Dim ImporteMovimiento As Decimal
Dim ImporteMX As Decimal
- Dim IdCtaContable, CveCuenta As Integer
+ Dim IdCtaContable As Integer
Dim FechaMovimiento As Date = Now
Dim Concepto As String = ViewState("VentaFolio").ToString()
Dim PrePolizaCorrecta = True
@@ -15008,7 +14992,7 @@ Partial Class Ventas
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, PorcentajeImpuesto:=PorcentajeImpuesto) Then
PrePolizaCorrecta = False
End If
End If
@@ -15019,7 +15003,6 @@ Partial Class Ventas
If IdCtaContRetIVA <> 0 Then
IdCtaContable = IdCtaContRetIVA
- CveCuenta = CveCuentaRetIVA
Else
If ObjConta.GetRetCuenta(8, UsuarioActual.CveEmpresa) Then
If ObjConta.DtResultados.Rows.Count > 0 Then
@@ -15034,7 +15017,7 @@ Partial Class Ventas
idCuentaContabilizacion = 0
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) Then
PrePolizaCorrecta = False
End If
End If
@@ -15061,7 +15044,7 @@ Partial Class Ventas
idCuentaContabilizacion = 0
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) Then
PrePolizaCorrecta = False
End If
End If
@@ -15074,7 +15057,7 @@ Partial Class Ventas
Dim ImporteMovimiento As Decimal
Dim ImporteMX As Decimal
- Dim IdCtaContable, CveCuenta As Integer
+ Dim IdCtaContable As Integer
Dim FechaMovimiento As Date = Now
Dim Concepto As String = ViewState("VentaFolio").ToString()
Dim PrePolizaCorrecta = True
@@ -15100,13 +15083,7 @@ Partial Class Ventas
idCuentaContabilizacion = 0
End If
- ''ContaSIG
- 'If CveCuenta <= 0 Then
- ' CuentasContablesInvalidasSIG.Append("
" & GlobalDTContaConceptosContables(-1).FiltroPrimero(String.Format("CveConceptoContable = {0}", 61))("ConceptoContable").ToString())
- ' CveCuentaContabilizacion = 0
- '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, PorcentajeImpuesto:=PorcentajeImpuesto) Then
PrePolizaCorrecta = False
End If
End If
@@ -15124,27 +15101,13 @@ Partial Class Ventas
End If
End If
- ''Conta SIG
- 'If CveCuentaRetIVA <> 0 Then
- ' CveCuenta = CveCuentaRetIVA
- 'Else
- ' If ObjConta.GetRetCuenta(62, UsuarioActual.CveEmpresa) Then
- ' CveCuenta = ObjConta.DtResultados.Rows(0)("IdCuentaRetIVACirculacionSIG").ToString().ToEntero()
- ' End If
- 'End If
-
If ImporteMovimiento > 0 Then
If IdCtaContable <= 0 Then
CuentasContablesInvalidas.Append("
" & GlobalDTContaConceptosContables(-1).FiltroPrimero(String.Format("CveConceptoContable = {0}", 62))("ConceptoContable").ToString())
idCuentaContabilizacion = 0
End If
- 'If CveCuenta <= 0 Then
- ' CuentasContablesInvalidasSIG.Append("
" & GlobalDTContaConceptosContables(-1).FiltroPrimero(String.Format("CveConceptoContable = {0}", 62))("ConceptoContable").ToString())
- ' CveCuentaContabilizacion = 0
- '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) Then
PrePolizaCorrecta = False
End If
End If
@@ -15164,15 +15127,6 @@ Partial Class Ventas
End If
End If
- 'If CveCuentaRetISR <> 0 Then
- ' CveCuenta = CveCuentaRetISR
- 'Else
- ' If ObjConta.GetRetCuenta(63, UsuarioActual.CveEmpresa) Then
- ' If ObjConta.DtResultados.Rows.Count > 0 Then
- ' CveCuenta = ObjConta.DtResultados.Rows(0)("IdCuentaRetISRCirculacionSIG").ToString().ToEntero()
- ' End If
- ' End If
- 'End If
If ImporteMovimiento > 0 Then
If IdCtaContable <= 0 Then
@@ -15180,12 +15134,7 @@ Partial Class Ventas
idCuentaContabilizacion = 0
End If
- 'If CveCuenta <= 0 Then
- ' CuentasContablesInvalidasSIG.Append("
" & GlobalDTContaConceptosContables(-1).FiltroPrimero(String.Format("CveConceptoContable = {0}", 63))("ConceptoContable").ToString())
- ' CveCuentaContabilizacion = 0
- '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) Then
PrePolizaCorrecta = False
End If
End If
diff --git a/vwd.webinfo b/vwd.webinfo
index aa2858f6e..a4b7678ae 100644
--- a/vwd.webinfo
+++ b/vwd.webinfo
@@ -266,6 +266,12 @@
+
+
+
+
+
+