-
-
+
+
diff --git a/RH/Personal.aspx.vb b/RH/Personal.aspx.vb
index fcd911134..6353dd2ca 100644
--- a/RH/Personal.aspx.vb
+++ b/RH/Personal.aspx.vb
@@ -15,6 +15,7 @@ Partial Class RH_Personal
Inherits ClsPaginas
#Region "P R O P I E D A D E S"
+
Private Property DTCuentasBancos As DataTable
Get
Return CType(ViewState("DTCuentasBancos"), DataTable)
@@ -1612,6 +1613,15 @@ Partial Class RH_Personal
DdlAlmacenDestinoLiberarUniforme.DataSource = GlobalDTAlmacenUsuarios(UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, -1).FiltraParametros("CveTipoAlmacen = 19")
DdlAlmacenDestinoLiberarUniforme.DataBind()
+ If UsuarioActual.Empresa.TipoContabilidad = 1 Then
+ CargaCuentasConceptos()
+ divCuentas.Visible = True
+ divCuentasContp.Visible = False
+ ElseIf UsuarioActual.Empresa.TipoContabilidad = 2 Then
+ divCuentas.Visible = False
+ divCuentasContp.Visible = True
+ End If
+
Else
Alert("El Personal Solicitado no existe, por favor revise su búsqueda.", TipoMensaje.MsgAdvertencia)
BtnGuardar.Enabled = False
@@ -1620,6 +1630,16 @@ Partial Class RH_Personal
ObjPersonal.Dispose()
End Sub
+ Private Sub CargaCuentasConceptos()
+ Dim ObjConta As New ClsContabilidad
+ If ObjConta.GetCuentasConceptos(6, UsuarioActual.CveEmpresa, CvePersonal:=CvePersonal) Then
+ GvCta.DataSource = ObjConta.DtResultados
+ End If
+ ObjConta.Dispose()
+ GvCta.DataBind()
+ UpCuentaConceptos.Update()
+ End Sub
+
Protected Sub BtnGuardar_Click(sender As Object, e As System.EventArgs) Handles BtnGuardar.Click
'System.Threading.Thread.Sleep(3000)
Dim ObjPersonal As New ClsRH()
diff --git a/Ventas/Clientes.aspx.vb b/Ventas/Clientes.aspx.vb
index f61818a4b..f65900d88 100644
--- a/Ventas/Clientes.aspx.vb
+++ b/Ventas/Clientes.aspx.vb
@@ -1716,13 +1716,22 @@ Partial Class Clientes
End If
CargaEventoBitacora()
- If UsuarioActual.Empresa.Funcionalidad(300) = "1" Then
+ 'If UsuarioActual.Empresa.Funcionalidad(300) = "1" Then
+ ' CargaCuentasConceptos()
+ ' divCuentas.Visible = True
+ ' divCuentasContp.Visible = False
+ 'Else
+ ' divCuentas.Visible = False
+ ' divCuentasContp.Visible = True
+ 'End If
+
+ If UsuarioActual.Empresa.TipoContabilidad = 1 Then
CargaCuentasConceptos()
divCuentas.Visible = True
- divCuentasContp.Visible = False
- Else
- divCuentas.Visible = False
- divCuentasContp.Visible = True
+ divCuentasContp.Visible = False
+ ElseIf UsuarioActual.Empresa.TipoContabilidad = 2 Then
+ divCuentas.Visible = False
+ divCuentasContp.Visible = True
End If
diff --git a/Ventas/ClientesAbonar.aspx.vb b/Ventas/ClientesAbonar.aspx.vb
index 826785f1e..874218a2d 100644
--- a/Ventas/ClientesAbonar.aspx.vb
+++ b/Ventas/ClientesAbonar.aspx.vb
@@ -657,18 +657,32 @@ Partial Class Ventas_ClientesAbonar
Dim ValFechaDocumento As Boolean = False
Dim FoliosFechasValFechaDocumento As New StringBuilder
- FoliosFechasValFechaDocumento.AppendLine("Se seleccionaron facturas con fecha superior a la fecha de pago:
")
+ FoliosFechasValFechaDocumento.AppendLine("Se seleccionaron facturas con fecha de mes superior al mes del pago:
")
For Each gvRowVal As GridViewRow In GvCxC.Rows
If gvRowVal.FCCheckBox("Chk").Checked Then
- If gvRowVal.DataKey("Fecha").ToDate.ToString("dd/MM/yyyy").ToDate > TxtFechaDocumento.Text.ToDate Then
+
+ Dim FechaFactura As Date = gvRowVal.DataKey("Fecha").ToDate
+ Dim FechaDocumento As Date = TxtFechaDocumento.Text.ToDate
+
+ Dim AnioFactura As Integer = FechaFactura.Year
+ Dim MesFactura As Integer = FechaFactura.Month
+
+ Dim AnioDocumento As Integer = FechaDocumento.Year
+ Dim MesDocumento As Integer = FechaDocumento.Month
+
+ If AnioFactura > AnioDocumento Then
+ FoliosFechasValFechaDocumento.AppendLine($"Folio: { gvRowVal.DataKey("SerieFolio") } fecha: {gvRowVal.DataKey("Fecha").ToDate.ToString("dd/MM/yyyy") }
")
+ ValFechaDocumento = True
+ ElseIf AnioFactura = AnioDocumento And MesFactura > MesDocumento Then
FoliosFechasValFechaDocumento.AppendLine($"Folio: { gvRowVal.DataKey("SerieFolio") } fecha: {gvRowVal.DataKey("Fecha").ToDate.ToString("dd/MM/yyyy") }
")
ValFechaDocumento = True
End If
- End If
- Next
+ End If
+
+ Next
If ValFechaDocumento Then
@@ -2987,7 +3001,7 @@ Partial Class Ventas_ClientesAbonar
'CANCELA IE
If Not ErrorCancelar Then
- If Not Banc.CancelarBancos_IE(UsuarioActual.CveUsuario, CveIESustitucion, True, IdPolizaNueva, FolioPolizaNueva, TxtFechaDocumento.Text.ToDate) Then
+ If Not Banc.CancelarBancos_IE(UsuarioActual.CveUsuario, CveIESustitucion, True, IdPolizaNueva, FolioPolizaNueva, TxtFechaDocumento.Text.ToDate) > 0 Then
ErrorCancelar = True
End If
End If
@@ -3014,7 +3028,7 @@ Partial Class Ventas_ClientesAbonar
'CANCELA IE
If Not ErrorCancelar Then
- If Not Banc.CancelarBancos_IE(UsuarioActual.CveUsuario, CveIESustitucion, False, IdPolizaNueva, FolioPolizaNueva, TxtFechaDocumento.Text.ToDate) Then
+ If Not Banc.CancelarBancos_IE(UsuarioActual.CveUsuario, CveIESustitucion, False, IdPolizaNueva, FolioPolizaNueva, TxtFechaDocumento.Text.ToDate) > 0 Then
ErrorCancelar = True
End If
End If
@@ -3027,12 +3041,12 @@ Partial Class Ventas_ClientesAbonar
If FechaCorteIE.Month < TxtFechaDocumento.Text.ToDate.Month Or FechaCorteIE.Year < TxtFechaDocumento.Text.ToDate.Year Then
'CANCELA IE MES ANTERIOR
- If Not Banc.CancelarBancos_IE(UsuarioActual.CveUsuario, CveIESustitucion, True, IdPolizaNueva, FolioPolizaNueva, TxtFechaDocumento.Text.ToDate) Then
+ If Not Banc.CancelarBancos_IE(UsuarioActual.CveUsuario, CveIESustitucion, True, IdPolizaNueva, FolioPolizaNueva, TxtFechaDocumento.Text.ToDate) > 0 Then
ErrorCancelar = True
End If
Else
'CANCELA IE MES ACTUAL
- If Not Banc.CancelarBancos_IE(UsuarioActual.CveUsuario, CveIESustitucion, False, IdPolizaNueva, FolioPolizaNueva, TxtFechaDocumento.Text.ToDate) Then
+ If Not Banc.CancelarBancos_IE(UsuarioActual.CveUsuario, CveIESustitucion, False, IdPolizaNueva, FolioPolizaNueva, TxtFechaDocumento.Text.ToDate) > 0 Then
ErrorCancelar = True
End If
End If