From 8c3f3ec9edab841085b8ead12852e6cf7fa72751 Mon Sep 17 00:00:00 2001 From: rrene Date: Fri, 23 Apr 2021 17:29:11 -0700 Subject: [PATCH 1/3] mejoras en ocvinculada y e153,154 --- Compras/Compras.aspx.vb | 8 ++++---- 1 file changed, 4 insertions(+), 4 deletions(-) diff --git a/Compras/Compras.aspx.vb b/Compras/Compras.aspx.vb index 8b93b9086..8cf91edbc 100644 --- a/Compras/Compras.aspx.vb +++ b/Compras/Compras.aspx.vb @@ -3026,8 +3026,8 @@ Partial Class Compras_Compras End If CargaComplementosPago() - Else - Alert("La compra solicitada no se encontró. Por favor rectifique y vuelva a intentar.", TipoMensaje.MsgAdvertencia) + Else + Alert("La compra solicitada no se encontró. Por favor rectifique y vuelva a intentar.", TipoMensaje.MsgAdvertencia) End If Else Alert("Ocurrió un error al cargar la compra. Por favor vuelta a intentar o comuniquese con Sistemas.", TipoMensaje.MsgError) @@ -4632,7 +4632,7 @@ Partial Class Compras_Compras Else CveConceptoContableAlmacen = 205 End If - If OCVinculada And Not (CveImportacion > 0 Or CveFlete > 0) Then + If OCVinculada AndAlso DdlOCVinculaInv.visible AndAlso Not (CveImportacion > 0 Or CveFlete > 0) Then CveConceptoContableAlmacen = DdlOCVinculaInv.SelectedValue.ToEntero End If If UsuarioActual.CveEmpresa.Contiene(72, 80, 140, 141) And Not (CveImportacion > 0 Or CveFlete > 0) Then 'se comento, RMF. 2020.08.19, no le hallo sentido @@ -6552,7 +6552,7 @@ Partial Class Compras_Compras End If Case 6 'Compra - Dim AgregaMercanciaInventario As Boolean = UsuarioActual.CveEmpresa.Contiene(1, 72, 80, 119, 140, 141, 152, 159, 160, 161, 162, 163) AndAlso UsuarioActual.Empresa.UsaInventarios AndAlso Not UsuarioActual.Empresa.Funcionalidad(126) = "1" + Dim AgregaMercanciaInventario As Boolean = UsuarioActual.CveEmpresa.Contiene(1, 72, 80, 119, 140, 141, 152, 153, 154, 159, 160, 161, 162, 163) AndAlso UsuarioActual.Empresa.UsaInventarios AndAlso Not UsuarioActual.Empresa.Funcionalidad(126) = "1" Dim RegistraConcepto225 As Boolean = UsuarioActual.Empresa.UsaInventarios AndAlso DdlTipoComprobante.SelectedValue.Contiene("NC", "DEV") AndAlso Not UsuarioActual.Empresa.Funcionalidad(126) = "1" From 236b5eae2f16064db970bb60c37ce89fe39e2c64 Mon Sep 17 00:00:00 2001 From: rrene Date: Fri, 23 Apr 2021 17:29:51 -0700 Subject: [PATCH 2/3] - columa ancho libre --- Ventas/CatPromociones.aspx | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/Ventas/CatPromociones.aspx b/Ventas/CatPromociones.aspx index 572b86184..8d7af398e 100644 --- a/Ventas/CatPromociones.aspx +++ b/Ventas/CatPromociones.aspx @@ -59,7 +59,7 @@ - + From b928519b61b3192aea0fe018db7d75b3599bc258 Mon Sep 17 00:00:00 2001 From: rrene Date: Fri, 23 Apr 2021 17:30:08 -0700 Subject: [PATCH 3/3] formato fecha --- Nomina/CatPeriodos.aspx | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/Nomina/CatPeriodos.aspx b/Nomina/CatPeriodos.aspx index 3bad19558..32c32afea 100644 --- a/Nomina/CatPeriodos.aspx +++ b/Nomina/CatPeriodos.aspx @@ -264,7 +264,7 @@ - + @@ -274,7 +274,7 @@ - +