Merge branch 'master' of http://jperez@192.168.10.111:8383/SIG.git

2019-12-03 18:41:53 -07:00
parent 10e5a84952 59948d9abd
commit bd887b7494
4 changed files with 27 additions and 17 deletions
--- 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)
--- 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>
--- 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
--- 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