From e8af49940a23dfdf1d86e0325e9d3ec1f6f3f69d Mon Sep 17 00:00:00 2001
From: rakcsle <rakcsle.rakcsle@gmail.com>
Date: Sat, 4 Nov 2023 13:59:54 -0700
Subject: [PATCH] Productos servicios 119  solcitar  porcentaje de iva, 141
 promociones campo incluye impuestos nos e envia correctamente

---
 Ventas/ProductosServicios.aspx    | 12 +++++++++---
 Ventas/ProductosServicios.aspx.vb | 13 +++++++++++--
 Ventas/Promociones.aspx.vb        |  6 +++---
 3 files changed, 23 insertions(+), 8 deletions(-)

diff --git a/Ventas/ProductosServicios.aspx b/Ventas/ProductosServicios.aspx
index 12fdc005c..b3f5200b4 100644
--- a/Ventas/ProductosServicios.aspx
+++ b/Ventas/ProductosServicios.aspx
@@ -648,11 +648,17 @@
                                                     </asp:DropDownList>
                                                 </div>
                                                 <div class="col-md-6">
-                                                    <label id="LIva" for="<%= DdlIVA.ClientID.ToString()%>" runat="server">IVA:</label>
-                                                    <asp:DropDownList ID="DdlIVA" CssClass="form-control input-sm select2me" runat="server">
-                                                        <asp:ListItem Selected="True" Text="IVA de la sucursal" Value="-1"></asp:ListItem>
+
+                                                    <label id="LIva" for="<%= DdlIVA.ClientID.ToString()%>" runat="server">IVA:</label><br />
+                                                    <asp:DropDownList ID="DdlIVA" CssClass="form-control input-sm select2me" runat="server">                                                        
+                                                        <asp:ListItem  Text="IVA de la sucursal" Value="-1"></asp:ListItem>
                                                         <asp:ListItem Text="IVA 0%" Value="0"></asp:ListItem>
                                                     </asp:DropDownList>
+                                                    <asp:RequiredFieldValidator ID="RfvDdlIVA" runat="server" ControlToValidate="DdlIVA" InitialValue="-2" Display="None" 
+                                                        ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''IVA''</b> es necesario, por favor ingréselo." ValidationGroup="GrpGuardar"></asp:RequiredFieldValidator>
+                                                    <ajax:ValidatorCalloutExtender ID="VCERfvDdlIVA" runat="server" HighlightCssClass="vco" TargetControlID="RfvDdlIVA"></ajax:ValidatorCalloutExtender>
+
+
                                                 </div>
                                             </div>
                                         </div>
diff --git a/Ventas/ProductosServicios.aspx.vb b/Ventas/ProductosServicios.aspx.vb
index 9674f6f15..5221e48d1 100644
--- a/Ventas/ProductosServicios.aspx.vb
+++ b/Ventas/ProductosServicios.aspx.vb
@@ -1,9 +1,9 @@
 Option Explicit On
 Option Strict On
 
-Imports Extensiones
-Imports System.IO
 Imports System.Data
+Imports System.IO
+Imports Extensiones
 Imports ZXing
 
 Partial Class ProductosyServicios
@@ -328,6 +328,15 @@ Partial Class ProductosyServicios
                 DdlSATPS.SelectedText = DrSAT("SATClaveProductoServicio").ToString()
             End If
 
+            If UsuarioActual.CveEmpresa.Contiene(119) Then
+                DdlIVA.Items.Insert(0, New ListItem("Seleccione Uno", "-2"))
+                If CvePS > 0 Then
+                    DdlIVA.SelectedValueExist(-2)
+                End If
+            Else
+                DdlIVA.SelectedValueExist(-1)
+            End If
+
         End If
     End Sub
 
diff --git a/Ventas/Promociones.aspx.vb b/Ventas/Promociones.aspx.vb
index d999601a4..9af188650 100644
--- a/Ventas/Promociones.aspx.vb
+++ b/Ventas/Promociones.aspx.vb
@@ -554,7 +554,7 @@ Partial Class Ventas_Promociones
                 If Not ObjVentas.AddPromocionesDetalle(CvePromocion, Dr("CvePS").ToString.ToEntero, Dr("CveTipoPromocion").ToString.ToEntero, Dr("Promocion").ToString.ToDouble, Dr("PUAnterior").ToString.ToDouble, Dr("PUPromocion").ToString.ToDouble,
                                                        CBool(Dr("AplicaRestriccion")), CBool(Dr("AplicaLunes")), CBool(Dr("AplicaMartes")), CBool(Dr("AplicaMiercoles")), CBool(Dr("AplicaJueves")), CBool(Dr("AplicaViernes")), CBool(Dr("AplicaSabado")), CBool(Dr("AplicaDomingo")),
                                                        Dr("HoraInicio").ToString.ToDateTime, Dr("HoraFin").ToString.ToDateTime, Dr("CantidadMinima").ToString.ToEntero,
-                                                       CveClasificacion:=If(Dr("CvePS").ToString = "", 20, Dr("CveClasificacion").ToString.ToEntero), CveRinTamaño:=Dr("CveRinTamaño").ToString.ToEntero, IncluyeImpuestos:=ChkIncluyeImpuesto.Checked) Then
+                                                       CveClasificacion:=If(Dr("CvePS").ToString = "", 20, Dr("CveClasificacion").ToString.ToEntero), CveRinTamaño:=Dr("CveRinTamaño").ToString.ToEntero, IncluyeImpuestos:=CBool(Dr("IncluyeImpuestos"))) Then
                     TieneError = True
                     Exit For
                 End If
@@ -605,7 +605,7 @@ Partial Class Ventas_Promociones
                 If Not ObjVentas.AddPromocionesDetalle(CvePromocion, Dr("CvePS").ToString.ToEntero, Dr("CveTipoPromocion").ToString.ToEntero, Dr("Promocion").ToString.ToDouble, Dr("PUAnterior").ToString.ToDouble, Dr("PUPromocion").ToString.ToDouble,
                                                        CBool(Dr("AplicaRestriccion")), CBool(Dr("AplicaLunes")), CBool(Dr("AplicaMartes")), CBool(Dr("AplicaMiercoles")), CBool(Dr("AplicaJueves")), CBool(Dr("AplicaViernes")), CBool(Dr("AplicaSabado")), CBool(Dr("AplicaDomingo")),
                                                        Dr("HoraInicio").ToString.ToDateTime, Dr("HoraFin").ToString.ToDateTime, Dr("CantidadMinima").ToString.ToEntero, CveClasificacion:=If(Dr("CvePS").ToString = "-1", Dr("CveClasificacion").ToString.ToEntero, -1),
-                                                       CveRinTamaño:=Dr("CveRinTamaño").ToString.ToEntero, IncluyeImpuestos:=ChkIncluyeImpuesto.Checked, Opcion:=OpReplicarDetalleFranquicias) Then
+                                                       CveRinTamaño:=Dr("CveRinTamaño").ToString.ToEntero, IncluyeImpuestos:=CBool(Dr("IncluyeImpuestos")), Opcion:=OpReplicarDetalleFranquicias) Then
                     TieneError = True
                     Exit For
                 End If
@@ -1119,7 +1119,7 @@ Partial Class Ventas_Promociones
                 Dim CantidadMinima As Decimal = CantidadMinimaStr.ToDecimal
                 Dim CveRin As Integer = If(RinStr <> "", DTRines.FiltroPrimeroValor("CveRinTamaño", $"Codigo = '{RinStr}'").ToString.ToEntero(), -1)
                 Dim RinTamaño As String = If(RinStr <> "", DTRines.FiltroPrimeroValor("RinTamaño", $"Codigo = '{RinStr}'").ToString(), "")
-                Dim IncluyeImpuestos As Boolean = If(IncluyeImpuestosStr.ToUpper.Contiene("´SÍ", "SI", "1"), True, False)
+                Dim IncluyeImpuestos As Boolean = If(IncluyeImpuestosStr.ToUpper.Contiene("SÍ", "SI", "1"), True, False)
 
                 '  SBErrorRegistro.Append($"")
                 If ClasificacionStr.Length > 0 And CodigoStr.Length > 0 Then