AdminADS/SIG
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Productos servicios 119 solcitar porcentaje de iva, 141 promociones campo incluye impuestos nos e envia correctamente

Browse Source
This commit is contained in:
rakcsle
2023-11-04 13:59:54 -07:00
parent 25d5dc72ed
commit e8af49940a
3 changed files with 23 additions and 8 deletions
Download Patch File Download Diff File Expand all files Collapse all files

10
Ventas/ProductosServicios.aspx
View File

@@ -648,11 +648,17 @@
</asp:DropDownList> </asp:DropDownList>
</div> </div>
<div class="col-md-6"> <div class="col-md-6">
<label id="LIva" for="<%= DdlIVA.ClientID.ToString()%>" runat="server">IVA:</label>
<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:DropDownList ID="DdlIVA" CssClass="form-control input-sm select2me" runat="server">
<asp:ListItem Selected="True" Text="IVA de la sucursal" Value="-1"></asp:ListItem> <asp:ListItem Text="IVA de la sucursal" Value="-1"></asp:ListItem>
<asp:ListItem Text="IVA 0%" Value="0"></asp:ListItem> <asp:ListItem Text="IVA 0%" Value="0"></asp:ListItem>
</asp:DropDownList> </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> </div>
</div> </div>

13
Ventas/ProductosServicios.aspx.vb
View File

@@ -1,9 +1,9 @@
Option Explicit On Option Explicit On
Option Strict On Option Strict On
Imports Extensiones
Imports System.IO
Imports System.Data Imports System.Data
Imports System.IO
Imports Extensiones
Imports ZXing Imports ZXing
Partial Class ProductosyServicios Partial Class ProductosyServicios
@@ -328,6 +328,15 @@ Partial Class ProductosyServicios
DdlSATPS.SelectedText = DrSAT("SATClaveProductoServicio").ToString() DdlSATPS.SelectedText = DrSAT("SATClaveProductoServicio").ToString()
End If 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 If
End Sub End Sub

6
Ventas/Promociones.aspx.vb
View File

@@ -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, 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")), 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, 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 TieneError = True
Exit For Exit For
End If 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, 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")), 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), 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 TieneError = True
Exit For Exit For
End If End If
@@ -1119,7 +1119,7 @@ Partial Class Ventas_Promociones
Dim CantidadMinima As Decimal = CantidadMinimaStr.ToDecimal Dim CantidadMinima As Decimal = CantidadMinimaStr.ToDecimal
Dim CveRin As Integer = If(RinStr <> "", DTRines.FiltroPrimeroValor("CveRinTamaño", $"Codigo = '{RinStr}'").ToString.ToEntero(), -1) 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 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($"") ' SBErrorRegistro.Append($"")
If ClasificacionStr.Length > 0 And CodigoStr.Length > 0 Then If ClasificacionStr.Length > 0 And CodigoStr.Length > 0 Then