From 3e807fa19a394a281bce94ca2f3a8bb45907a6b8 Mon Sep 17 00:00:00 2001
From: rrene <rrene@DESKTOP-04EII7E>
Date: Tue, 3 Dec 2019 18:41:31 -0700
Subject: [PATCH] - agregar IVA, incluyendo IEPS

---
 App_Code/CFDITimbre.vb |  1 +
 Ventas/PV.aspx         |  6 +++---
 Ventas/PV.aspx.vb      | 28 +++++++++++++++++-----------
 Ventas/Ventas.aspx.vb  |  9 ++++++---
 4 files changed, 27 insertions(+), 17 deletions(-)

diff --git a/App_Code/CFDITimbre.vb b/App_Code/CFDITimbre.vb
index 832bf7f19..6c4ae3256 100644
--- a/App_Code/CFDITimbre.vb
+++ b/App_Code/CFDITimbre.vb
@@ -306,6 +306,7 @@ Public Class CFDIConceptos
     Public Property ClaveUnidad As String = ""
     Public Property Impuestos As List(Of CFDIConceptosImpuestos)
     Public Property Descuento As Decimal = 0.00D
+    Public Property ImporteGravaIVAAdicional As Decimal = 0.00D 'caso IEPS
 
     Sub New()
         Impuestos = New List(Of CFDIConceptosImpuestos)
diff --git a/Ventas/PV.aspx b/Ventas/PV.aspx
index 87304968c..97130d96a 100644
--- a/Ventas/PV.aspx
+++ b/Ventas/PV.aspx
@@ -2793,7 +2793,7 @@
                                                             <a href="javascript;" class="collapse" data-original-title="" title=""></a>
                                                         </div>
                                                     </div>
-                                                    <div class="row">
+                                                    <div class="row" style="display:none;">
                                                         <div class="col-md-12">
                                                             <div class="form-group form-md-line-input input-iconright">
                                                                 <asp:DropDownList ID="DdlFacturas" CssClass="form-control input-sm select2me" runat="server" AppendDataBoundItems="true" CausesValidation="true" DataTextField="SerieFolio" DataValueField="CveVenta" OnSelectedIndexChanged="DdlFacturas_SelectedIndexChanged" Width="100%" AutoPostBack="true">
@@ -2813,8 +2813,8 @@
                                                     <div class="row">
                                                         <div class="col-md-9">
                                                             <div class="form-group form-md-line-input input-iconright">
-                                                                <asp:DropDownList ID="DdlPSAjuste" CssClass="form-control input-sm select2me" runat="server" AppendDataBoundItems="true" CausesValidation="true" DataTextField="PSCodigo" DataValueField="CvePS" OnSelectedIndexChanged="DdlPSAjuste_selectedindexchange" Width="100%" AutoPostBack="true">
-                                                                </asp:DropDownList>
+                                                                <ADS:DropDownLost ID="DdlPSAjuste" CssStyle="width: 100%;" CssClass=" form-control input-sm DdlPS" IncluyeTodos="false" CssClassDdl="select2me form-control" runat="server"  CausesValidation="true" DataTextField="PSCodigo" DataValueField="CvePS" Onselectedindexchange="DdlPSAjuste_selectedindexchange" >
+                                                                </ADS:DropDownLost>
                                                                 <label for="<%= DdlPSAjuste.ClientID.ToString()%>">Producto/Servicio a Recibir:</label>
                                                             </div>
                                                         </div>
diff --git a/Ventas/PV.aspx.vb b/Ventas/PV.aspx.vb
index 47a420235..576fe1f85 100644
--- a/Ventas/PV.aspx.vb
+++ b/Ventas/PV.aspx.vb
@@ -1071,6 +1071,7 @@ Partial Class PV
             CargaSucursales()
             CargaClasificaciones()
             CargaPS(-1, DdlPS)
+            CargaPS(-1, DdlPSAjuste)
             CargaEmpresa()
             CreaDTVentas()
             CargaMetodosPago()
@@ -5046,7 +5047,7 @@ Partial Class PV
     End Sub
 
     Private Sub CargaPSAjuste()
-        DdlPSAjuste.Items.Clear()
+        'DdlPSAjuste.Items.Clear()
         DtPUFacturas.Rows.Clear()
 
         If DdlFacturas.SelectedValue.ToEntero > 0 Then
@@ -5064,7 +5065,7 @@ Partial Class PV
             DdlPSAjuste.DataSource = GlobalDTPSSimplificado(UsuarioActual.CveEmpresa)
         End If
         DdlPSAjuste.DataBind()
-        DdlPSAjuste.Items.Insert(0, New ListItem("Seleccione", "-1"))
+        ' DdlPSAjuste.Items.Insert(0, New ListItem("Seleccione", "-1"))
         DtPUFacturas.AcceptChanges()
         UpAjuste.Update()
         CalculaPorcentajeAjuste()
@@ -5099,7 +5100,7 @@ Partial Class PV
         TxtPorcentajeAjuste.Text = ""
         TxtPoliza.Text = ""
         TxtImporteAjuste.Text = ""
-        DdlPSAjuste.SelectedIndex = -1
+        DdlPSAjuste.SelectedValue = "-1"
         ChkAjuste.Checked = False
         DivAjuste.Visible = False
     End Sub
@@ -5130,7 +5131,7 @@ Partial Class PV
             TxtImporteAjuste.Text = Dr("Importe").ToString
             DdlFacturas.SelectedValueExist(Dr("CveVenta").ToString)
             CargaPSAjuste()
-            DdlPSAjuste.SelectedValueExist(Dr("CvePS").ToString)
+            DdlPSAjuste.SelectedValue = (Dr("CvePS").ToString)
             TxtFechaAjuste.Text = Dr("FechaAjuste").ToString.ToDate.ToShortDateString
             TxtPrecio.Text = Dr("PUFactura").ToString.ToDecimal.FormatoNumero(2)
             TxtPrecio.Enabled = Not Dr("CveVenta").ToString.ToEntero > 0
@@ -5164,7 +5165,7 @@ Partial Class PV
 
     Protected Sub DdlPSAjuste_selectedindexchange(sender As Object, e As EventArgs)
         If DdlPSAjuste.SelectedValue.ToEntero > 0 AndAlso DdlFacturas.SelectedValue.ToEntero > 0 Then
-            Dim Index As Integer = DdlPSAjuste.SelectedIndex
+
             Dim Contador As Integer = 1
             Dim PUFactura As Decimal = 0
             For Each Dr As DataRow In DtPUFacturas.Rows
@@ -5177,8 +5178,8 @@ Partial Class PV
 
         End If
 
-        If DdlPSAjuste.SelectedValue.ToEntero > 0 AndAlso Not DdlFacturas.SelectedValue.ToEntero > 0 Then
-            Dim Index As Integer = DdlPSAjuste.SelectedIndex
+        If DdlPSAjuste.SelectedValue.ToEntero > 0 AndAlso DdlFacturas.SelectedValue.ToEntero <= 0 Then
+
             Dim CvePSParametro As Integer = DdlPSAjuste.SelectedValue.ToEntero
             Dim PrecioSugerido As Decimal = 0
             Dim drPS As DataRow = GlobalDTPS(UsuarioActual.CveEmpresa, CvePS:=CvePSParametro).FiltroPrimero("")
@@ -5189,9 +5190,9 @@ Partial Class PV
 
             TxtPUFactura.Text = PrecioSugerido.FormatoNumero(2)
 
-            End If
+        End If
 
-            If Not DdlPSAjuste.SelectedValue.ToEntero > 0 AndAlso DdlFacturas.SelectedValue.ToEntero > 0 Then
+        If Not DdlPSAjuste.SelectedValue.ToEntero > 0 AndAlso DdlFacturas.SelectedValue.ToEntero > 0 Then
             TxtPUFactura.Text = ""
         End If
 
@@ -5207,6 +5208,11 @@ Partial Class PV
     End Sub
 
     Private Sub CalculaPorcentajeAjuste()
+        If DdlPS.SelectedValue.ToEntero <= 0 Then
+            'Alert("No se ha especificado producto a entregar")
+            Exit Sub
+        End If
+
         If DdlTipoUso.SelectedValue.ToEntero > 0 AndAlso DdlPSAjuste.SelectedValue.ToEntero > 0 AndAlso TxtMesesUso.Text <> "" AndAlso DdlPS.SelectedValue.ToEntero > 0 Then
             Dim CveMarca As Integer = -1
             If GlobalDTPS(UsuarioActual.CveEmpresa, DdlPSAjuste.SelectedValue.ToEntero).Rows.Count > 0 Then
@@ -5283,7 +5289,7 @@ Partial Class PV
             Row("Importe") = TxtImporteAjuste.Text.ToDouble
             Row("ConsecutivoVenta") = ConsecutivoVenta
             Row("CvePS") = DdlPSAjuste.SelectedValue
-            Row("PS") = DdlPSAjuste.SelectedItem.Text
+            Row("PS") = DdlPSAjuste.SelectedText
             Row("CveVenta") = DdlFacturas.SelectedValue
             Row("PUFactura") = TxtPrecio.Text.ToDouble
             Row("Cantidad") = 1
@@ -5313,7 +5319,7 @@ Partial Class PV
             TmpDTAjustes.Rows(IndexAjuste)("Importe") = TxtImporteAjuste.Text.ToDouble
             TmpDTAjustes.Rows(IndexAjuste)("ConsecutivoVenta") = ConsecutivoVenta
             TmpDTAjustes.Rows(IndexAjuste)("CvePS") = DdlPSAjuste.SelectedValue
-            TmpDTAjustes.Rows(IndexAjuste)("PS") = DdlPSAjuste.SelectedItem.Text
+            TmpDTAjustes.Rows(IndexAjuste)("PS") = DdlPSAjuste.SelectedText
             TmpDTAjustes.Rows(IndexAjuste)("CveVenta") = DdlFacturas.SelectedValue
             TmpDTAjustes.Rows(IndexAjuste)("PUFactura") = TxtPrecio.Text.ToDouble
             TmpDTAjustes.Rows(IndexAjuste)("Cantidad") = 1
diff --git a/Ventas/Ventas.aspx.vb b/Ventas/Ventas.aspx.vb
index 344adddab..8de78d552 100644
--- a/Ventas/Ventas.aspx.vb
+++ b/Ventas/Ventas.aspx.vb
@@ -8544,7 +8544,8 @@ Partial Class Ventas
                                                         .ClaveUnidad = drr("SATClaveUM").ToString,
                                                         .ClaveProdServ = drr("SATClaveProdServ").ToString,
                                                         .Noidentificacion = drr("Noidentificacion").ToString,
-                                                        .CuentaPredial = drr("CuentaPredial").ToString}
+                                                        .CuentaPredial = drr("CuentaPredial").ToString,
+                                                        .ImporteGravaIVAAdicional = drr("ImporteIEPS").ToString.ToDecimal}
             'verifica suma subtotales
             If i = Obj.DtDetalle.Rows.Count AndAlso totSubTotal <> concepto.Importe Then 'proceso de ajusta de decimales
                 concepto.Importe = totSubTotal
@@ -8556,7 +8557,7 @@ Partial Class Ventas
 
             'si es ingreso amortizado por la totalidad, y arroja el valor total de cero, no debe de impuestos
             If Timbre.Comprobante.Total > 0 Then
-                concepto.Impuestos.Add(New CFDIConceptosImpuestos With {.TrasladooRetencion = "T", .Base = concepto.Importe - concepto.Descuento, .TasaOCuota = drr("PorcentajeIVA").ToString.ToDecimal, .Impuesto = "002", .Importe = drr("ImporteIVA").ToString.ToDecimal})
+                concepto.Impuestos.Add(New CFDIConceptosImpuestos With {.TrasladooRetencion = "T", .Base = concepto.Importe - concepto.Descuento + concepto.ImporteGravaIVAAdicional, .TasaOCuota = drr("PorcentajeIVA").ToString.ToDecimal, .Impuesto = "002", .Importe = drr("ImporteIVA").ToString.ToDecimal})
             End If
 
             If drr("ImporteIEPS").ToString.ToDouble > 0 Then
@@ -14003,6 +14004,7 @@ Partial Class Ventas
 
         Dim Row As DataRow = Nothing
         Dim TotalCalculableImpuestos As Decimal = 0
+        Dim TotalCalculableImpuestosIVA As Decimal = 0
         PU = Math.Round(PU, 6) ' el precio unitario puede llevar hasta 6 decimales permitidos
 
         Row = TmpDT.NewRow()
@@ -14105,6 +14107,7 @@ Partial Class Ventas
 
         'End If
         TotalCalculableImpuestos = (Cantidad * (PU)) - Descuento
+        TotalCalculableImpuestosIVA = TotalCalculableImpuestos * (1 + DrPS("IEPSPorcentaje").ToString.ToDecimal)
 
         Row("PU") = PU
         Row("Codigo") = DrPS("Codigo")
@@ -14135,7 +14138,7 @@ Partial Class Ventas
         End If
 
         Row("IVA") = Row("PorcentajeIVA")
-        Row("ImporteIVA") = Math.Round(Row("PorcentajeIVA").ToString.ToDecimal * TotalCalculableImpuestos, NumeroDecimales)
+        Row("ImporteIVA") = Math.Round(Row("PorcentajeIVA").ToString.ToDecimal * TotalCalculableImpuestosIVA, NumeroDecimales)
         Row("ImporteRetIVA") = Math.Round(ClienteRetIVA * TotalCalculableImpuestos, NumeroDecimales)
         Row("ImporteRetISR") = Math.Round(ClienteRetISR * TotalCalculableImpuestos, NumeroDecimales)
         Row("PorcentajeRetIVA") = ClienteRetIVA