diff --git a/Acumuladores/CatFoliosGarantia.aspx b/Acumuladores/CatFoliosGarantia.aspx
index ac47d269b..37ded6f64 100644
--- a/Acumuladores/CatFoliosGarantia.aspx
+++ b/Acumuladores/CatFoliosGarantia.aspx
@@ -84,15 +84,16 @@
|
+ |
|
|---|---|
|
+ |
+
+
+
+
+
+
@@ -79,7 +79,7 @@
-
+
@@ -127,7 +127,7 @@
-
+
@@ -178,7 +178,7 @@
-
+
diff --git a/Bancos/PagoElectronico.aspx.vb b/Bancos/PagoElectronico.aspx.vb
index bde6db7ea..b058e60bb 100644
--- a/Bancos/PagoElectronico.aspx.vb
+++ b/Bancos/PagoElectronico.aspx.vb
@@ -277,6 +277,8 @@ Partial Class Bancos_PagoElectronico
If DTPendientes IsNot Nothing AndAlso DTPendientes.Rows.Count > 0 Then
CargaDatosInformativos()
+ Else
+ VistaComandoGeneracion()
End If
End Sub
@@ -946,7 +948,7 @@ Partial Class Bancos_PagoElectronico
Dim correo As String = dr("Correo").ToString.Trim
If correo.Trim.Length = 0 Then
- SBErrores.Append($"Email no definido en fila {idx + 1}. Debe ser un correo electrónico válido.
") + SBErrores.Append($" {nombreBen} Email no definido en fila {idx + 1}. Debe ser un correo electrónico válido. ") ErrorLayout = True End If diff --git a/Bancos/PagoElectronicoGrupos.aspx.vb b/Bancos/PagoElectronicoGrupos.aspx.vb index ac144efca..981d83af1 100644 --- a/Bancos/PagoElectronicoGrupos.aspx.vb +++ b/Bancos/PagoElectronicoGrupos.aspx.vb @@ -2037,15 +2037,15 @@ Partial Class Bancos_PagoElectronicoGrupos 'Motivo de pago If drow("Observaciones").ToString.Trim.Length > 30 Then - RegistrosPago.Append(drow("Observaciones").ToString.Substring(0, 30)) + RegistrosPago.Append(drow("Observaciones").ToString.Trim.Substring(0, 30)) Else - RegistrosPago.Append(drow("Observaciones").ToString.PadRight(30, EspacioRelleno)) + RegistrosPago.Append(drow("Observaciones").ToString.Trim.PadRight(30, EspacioRelleno)) End If If drow("Referencia").ToString.Trim.Length > 7 Then - RegistrosPago.Append(drow("Referencia").ToString.Substring(0, 7)) + RegistrosPago.Append(drow("Referencia").ToString.Trim.Substring(0, 7)) Else - RegistrosPago.Append(drow("Referencia").ToString.PadRight(7, EspacioRelleno)) + RegistrosPago.Append(drow("Referencia").ToString.Trim.PadRight(7, EspacioRelleno)) End If RegistrosPago.Append("H") diff --git a/Export/ExpDetalle.aspx b/Export/ExpDetalle.aspx index b3b5f5d52..f989bbe81 100644 --- a/Export/ExpDetalle.aspx +++ b/Export/ExpDetalle.aspx @@ -643,14 +643,19 @@
+
+
+
+
+
+
+
+
+
+
+
+ Aniversario Laboral+
+
+
+
+
+
+
+
+
+ " style="display: inline-block; width: 150px;" />
+ " style="margin-top: -3px; margin-left: -13px;" class="btn btn-circle btn-sm label-info">
+
+
+
+
+
+
+
+
+
+
+
diff --git a/Inicio.aspx.vb b/Inicio.aspx.vb
index 399dff620..a15de8001 100644
--- a/Inicio.aspx.vb
+++ b/Inicio.aspx.vb
@@ -141,7 +141,7 @@ Partial Class Inicio
If UsuarioActual.TienePermisoProceso(270) Then MuestraComprasPUE()
If UsuarioActual.TienePermisoProceso(343) Then MuestraPsProximosAVencer()
If UsuarioActual.TienePermisoProceso(344) Then MuestraRSCOProximosAVencer()
-
+ MuestraAniversarioLaboral()
If UsuarioActual.Empresa.Funcionalidad(578) = "1" AndAlso
(UsuarioActual.CveUsuario.Contiene(3964, 3984, 4165) OrElse UsuarioActual.CveRol.Contiene(1639, 1577, 1578, 1582)) Then
@@ -440,6 +440,26 @@ Partial Class Inicio
End Sub
+ Private Sub MuestraAniversarioLaboral()
+
+ Using objnom As New ClsNominas
+
+ If objnom.GetAniversarioLaboral(DateTime.Now.ToString("yyyy-MM-dd"), UsuarioActual.CveEmpresa) Then
+ If objnom.DtResultados.Rows.Count > 0 Then
+ GvAniversarioLaboral.DataSource = objnom.DtResultados
+ RegistraScript("$('#DVModalAniversarioLaboral').modal('show');")
+ Else
+ GvAniversarioLaboral.DataSource = Nothing
+ End If
+
+ Else
+ GvAniversarioLaboral.DataSource = Nothing
+ End If
+ End Using
+
+ GvAniversarioLaboral.DataBind()
+
+ End Sub
Private Sub CargaSubProyectos()
DdlSubproyectos.DataSource = GlobalDTSubProyectos(UsuarioActual.CveEmpresa)
DdlSubproyectos.DataBind()
diff --git a/Inventarios/EntregaAlmacen.aspx b/Inventarios/EntregaAlmacen.aspx
index 704ef64f1..9962a828a 100644
--- a/Inventarios/EntregaAlmacen.aspx
+++ b/Inventarios/EntregaAlmacen.aspx
@@ -1163,16 +1163,36 @@
}
- function fncCantidad(checkbox, numeroMax, idTbCantidadF) {
+ function fncCantidad(checkbox, numeroMax, idTbCantidadF, rfv) {
var $textbox = $('#' + idTbCantidadF);
if ($(checkbox).is(':checked')) {
$textbox.val(numeroMax);
+ activarValidatorPorId(rfv);
} else {
$textbox.val(0);
+ desactivarValidatorPorId(rfv);
}
}
+
+ function desactivarValidatorPorId(idValidatorCliente) {
+ var validator = document.getElementById(idValidatorCliente);
+ if (validator) {
+ validator.enabled = false;
+ validator.style.display = "none";
+ }
+ }
+
+ function activarValidatorPorId(idValidatorCliente) {
+ var validator = document.getElementById(idValidatorCliente);
+ if (validator) {
+ validator.enabled = true;
+ validator.style.display = "inline";
+ }
+ }
+
+
diff --git a/Inventarios/EntregaAlmacen.aspx.vb b/Inventarios/EntregaAlmacen.aspx.vb
index e28995f1c..3564233e4 100644
--- a/Inventarios/EntregaAlmacen.aspx.vb
+++ b/Inventarios/EntregaAlmacen.aspx.vb
@@ -1278,7 +1278,7 @@ Partial Class Inventarios_EntregaAlmacen
If BloqueCantidad Then
e.Row.FCTextBox("TbCantidadF").Enabled = False
Else
- e.Row.FCCheckBox("cbInv").Attributes.Add("onclick", $"fncCantidad(this,{e.Row.DBCampo("CantidadF")},'{e.Row.FCTextBox("TbCantidadF").ClientID}')")
+ e.Row.FCCheckBox("cbInv").Attributes.Add("onclick", $"fncCantidad(this,{e.Row.DBCampo("CantidadF")},'{e.Row.FCTextBox("TbCantidadF").ClientID}','{e.Row.FCRequiredFieldValidator("RFVCaducidad").ClientID}')")
End If
@@ -1997,6 +1997,7 @@ Partial Class Inventarios_EntregaAlmacen
#Region " GUARDAR "
Protected Sub BtnGuardar_Click(sender As Object, e As EventArgs)
+
Select Case TipoEntrega
Case 1
GuardaVenta()
diff --git a/Inventarios/RecepcionUsados.aspx.vb b/Inventarios/RecepcionUsados.aspx.vb
index 8d1bb04ac..658d7b1b5 100644
--- a/Inventarios/RecepcionUsados.aspx.vb
+++ b/Inventarios/RecepcionUsados.aspx.vb
@@ -3070,6 +3070,9 @@ Partial Class Inventarios_RecepcionUsados
Case "MOTOBATERIA"
'20517 MOTOBATERIAS
ListaClasificacionesPermitidas.Add(20517) 'MOTOBATERIAS
+ Case "AUXILIAR"
+ '30043 AUXILIAR
+ ListaClasificacionesPermitidas.Add(30043) 'AUXILIAR
End Select
If ListaClasificacionesPermitidas.Contains(CveClasificacionPS) Then
diff --git a/Nomina/RepMovtosPermanentes.aspx b/Nomina/RepMovtosPermanentes.aspx
index 7f80cac29..712b307ba 100644
--- a/Nomina/RepMovtosPermanentes.aspx
+++ b/Nomina/RepMovtosPermanentes.aspx
@@ -114,24 +114,17 @@
-
-
-
-
+
+
+
-
+
-
-
diff --git a/Nomina/RepMovtosPermanentes.aspx.cs b/Nomina/RepMovtosPermanentes.aspx.cs
index 4ce3246a7..dbe0c47bd 100644
--- a/Nomina/RepMovtosPermanentes.aspx.cs
+++ b/Nomina/RepMovtosPermanentes.aspx.cs
@@ -64,10 +64,7 @@ public partial class Nomina_RepMovtosPermanentes : ClsPaginas
RcveSaldo = Request["cveSaldo"] != null ? Convert.ToInt32(Request["cveSaldo"]) : -1;
RcveEstatus = Request["cveEstatus"] != null ? Convert.ToInt32(Request["cveEstatus"]) : -1;
RcveConcepto = Request["cveConcepto"] != null ? Convert.ToInt32(Request["cveConcepto"]) : -1;
- fechaInicio = DateTime.Now.ToString("01/MM/yyyy");
- fechaFin = DateTime.Now.ToString("01/MM/yyyy").ToDateTime().AddMonths(1).AddDays(1).ToString("01/MM/yyyy");
CargaCombos();
- cargardatos();
}
}
@@ -137,6 +134,11 @@ public partial class Nomina_RepMovtosPermanentes : ClsPaginas
DdlEjercicios.DataBind();
DdlTipoPeriodo.DataSource = get_GlobalDTTipoPeriodos(UsuarioActual.CveEmpresa);
DdlTipoPeriodo.DataBind();
+ if(DdlTipoPeriodo.Items.Count > 0) {
+ DdlTipoPeriodo.SelectedIndex= 0;
+ DdlTipoPeriodo_SelectedIndexChanged(null, null);
+
+ }
}
protected void cargardatos()
{
diff --git a/Ventas/PV.aspx.vb b/Ventas/PV.aspx.vb
index e09397b17..10b93f22f 100644
--- a/Ventas/PV.aspx.vb
+++ b/Ventas/PV.aspx.vb
@@ -8482,6 +8482,9 @@ Partial Class PV
Case "MOTOBATERIA"
'20517 MOTOBATERIAS
ListaClasificacionesPermitidas.Add(20517) 'MOTOBATERIAS
+ Case "AUXILIAR"
+ '30043 AUXILIAR
+ ListaClasificacionesPermitidas.Add(30043) 'AUXILIAR
End Select
If ListaClasificacionesPermitidas.Contains(CveClasificacionPS) Then
diff --git a/Ventas/Ventas.aspx.vb b/Ventas/Ventas.aspx.vb
index 87f30001f..b726c1827 100644
--- a/Ventas/Ventas.aspx.vb
+++ b/Ventas/Ventas.aspx.vb
@@ -16245,8 +16245,16 @@ Partial Class Ventas
importeMovimiento = 0
Case 103 'Descuento
- If ObjFactura.Descuento <> 0 AndAlso Not ObjFactura.TipoDocto.Contiene("Rem", "RNC") AndAlso
- (DdlTipoAmortizacionAnticipo.SelectedValue = "-1" OrElse UsuarioActual.CveEmpresa.Contiene(140, 141, 190, 192)) Then
+
+ Dim AplicaDescuento As Boolean = ObjFactura.Descuento <> 0 AndAlso Not ObjFactura.TipoDocto.Contiene("Rem", "RNC") AndAlso
+ (DdlTipoAmortizacionAnticipo.SelectedValue = "-1" OrElse UsuarioActual.CveEmpresa.Contiene(140, 141, 190, 192))
+
+ 'SI SE AMORTIZO CON DESCUENTO, NO APLICAR EL CONCEPTO
+ If AplicaDescuento AndAlso ObjFactura.CveTipoAmortizacionAnticipo = 1 Then
+ AplicaDescuento = False
+ End If
+
+ If AplicaDescuento Then
importeMovimiento = ObjFactura.Descuento * Multiplicador * ValorMultiplicador
importeMX = Math.Round(importeMovimiento, 2) * tipoCambio * Multiplicador * ValorMultiplicador
@@ -17494,7 +17502,7 @@ Partial Class Ventas
End If
'AGREGAR LOS ANTICIPOS, DEV, IxC QUE ESTEN EN PUBLICO GENERAL
- If Me.TmpDTAnticiposNCIxCCliente IsNot Nothing AndAlso UsuarioActual.CveEmpresa.Contiene(189, 190, 192, 195, 197) Then
+ If Me.TmpDTAnticiposNCIxCCliente IsNot Nothing AndAlso UsuarioActual.CveEmpresa.Contiene(190, 192, 195, 197) Then
Dim CveClientePublicoGeneral = UsuarioActual.Empresa.Funcionalidad(714).ToEntero()
If CveClientePublicoGeneral > 0 Then
If CveCliente <> CveClientePublicoGeneral Then
-
-
-
+
-
-
-
-
-
|