From e1a0643e993750ca778d04f2625490fbc0f14b0b Mon Sep 17 00:00:00 2001 From: JPerez Date: Thu, 3 Jul 2025 12:44:51 -0700 Subject: [PATCH] --Quitar agregar anticipos de publico general a otro cliente --- Acumuladores/CatFoliosGarantia.aspx | 39 ++++++++++++++++------------- Ventas/Ventas.aspx.vb | 2 +- 2 files changed, 23 insertions(+), 18 deletions(-) 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 @@ general optima motobateria + Auxiliar
- + - +
@@ -122,7 +123,7 @@ - +   - +   - - + +   @@ -170,9 +171,9 @@ - + - + @@ -181,10 +182,10 @@ - + - + @@ -258,10 +259,10 @@ - + ControlToValidate="TxtFolioGarantia" runat="server" CssClass="help-block errorimput" + ErrorMessage="solo números" ValidationGroup="GrpFolioGarantia" + ValidationExpression="\d+"> + @@ -269,8 +270,9 @@
-
+
SubProyecto:
+ @@ -286,10 +288,12 @@
Tipo Folio:
+ General Optima Motobateria + Auxiliar
@@ -297,6 +301,7 @@
Área:
+ Piso Almacén @@ -308,7 +313,7 @@
-
+
diff --git a/Ventas/Ventas.aspx.vb b/Ventas/Ventas.aspx.vb index 87f30001f..a33bce02b 100644 --- a/Ventas/Ventas.aspx.vb +++ b/Ventas/Ventas.aspx.vb @@ -17494,7 +17494,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