varios

Ventas/Ventas.aspx.vb

@@ -7235,27 +7235,6 @@ Partial Class Ventas
         ObjFacturaDevolucion.Det_FechaOrdenCompra = TxtDet_FechaOrdenCompra.Text.Trim
         ObjFacturaDevolucion.MonedaAbreviatura = ""
 
-        'DETALLES
-        If NCDescuento Then
-            PreparaNCDescuento(ObjFacturaDevolucion)
-        Else
-            ObjFacturaDevolucion.DtDetalle = TmpDT
-
-            ObjFacturaDevolucion.SubTotal = TxtSubTotal.Text.ToDecimal
-            ObjFacturaDevolucion.Descuento = LblDescuentos.Text.Trim.ToDecimal
-            ObjFacturaDevolucion.Amortizacion = LblAmortizacion.Text.Trim.ToDecimal
-            ObjFacturaDevolucion.IVA = TxtIVA.Text.ToDecimal
-            ObjFacturaDevolucion.RetIVA = TxtRetIVA.Text.ToDecimal
-            ObjFacturaDevolucion.RetISR = TxtRetISR.Text.ToDecimal
-            ObjFacturaDevolucion.IEPS = TxtIEPS.Text.ToDecimal
-            ObjFacturaDevolucion.Total = TxtTotal.Text.ToDecimal
-        End If
-        'Totales, Y se llena TmpDTImpuestos
-
-        'ObjFactura.BZDescripcion = TxtBZDescripcion.Text.Trim
-        'ObjFactura.BZNombreCorto = TxtBZNombreCorto.Text.Trim
-        'ObjFactura.BZTotalLetra = TxtBZTotalLetra.Text.Trim
-
         If TmpDTImpuestos Is Nothing Then
             CreaDTImpuestos()
         Else
@@ -7302,6 +7281,30 @@ Partial Class Ventas
 
         ObjFacturaDevolucion.DtDeduccion = TmpDTImpuestos.FiltraParametros("", Orderby:="Orden ASC")
 
+        'DETALLES
+        If NCDescuento Then
+            PreparaNCDescuento(ObjFacturaDevolucion)
+        Else
+            ObjFacturaDevolucion.DtDetalle = TmpDT
+
+            ObjFacturaDevolucion.SubTotal = TxtSubTotal.Text.ToDecimal
+            ObjFacturaDevolucion.Descuento = LblDescuentos.Text.Trim.ToDecimal
+            ObjFacturaDevolucion.Amortizacion = LblAmortizacion.Text.Trim.ToDecimal
+            ObjFacturaDevolucion.IVA = TxtIVA.Text.ToDecimal
+            ObjFacturaDevolucion.RetIVA = TxtRetIVA.Text.ToDecimal
+            ObjFacturaDevolucion.RetISR = TxtRetISR.Text.ToDecimal
+            ObjFacturaDevolucion.IEPS = TxtIEPS.Text.ToDecimal
+            ObjFacturaDevolucion.TotalImpuestoLocal = ObjFacturaDevolucion.DtDeduccion.SUMD("Importe", "TipoImpuesto = 1")
+            ObjFacturaDevolucion.Total = TxtTotal.Text.ToDecimal
+        End If
+        'Totales, Y se llena TmpDTImpuestos
+
+        'ObjFactura.BZDescripcion = TxtBZDescripcion.Text.Trim
+        'ObjFactura.BZNombreCorto = TxtBZNombreCorto.Text.Trim
+        'ObjFactura.BZTotalLetra = TxtBZTotalLetra.Text.Trim
+
+
+
         'otros
         ObjFacturaDevolucion.Det_FechaOrdenCompra = TxtDet_FechaOrdenCompra.Text.Trim
         ObjFacturaDevolucion.Det_OrdenCompra = TxtDet_OrdenCompra.Text.Trim
@@ -7473,7 +7476,7 @@ Partial Class Ventas
                 Dim TotalRetIVA As Decimal = tmpcon.SUM("ImporteRetIVA").ToDecimal
                 Dim TotalRetISR As Decimal = tmpcon.SUM("ImporteRetISR").ToDecimal
                 Dim Total As Decimal = 0
-                Dim TotalImpuestosLocales As Decimal = 0
+                Dim TotalImpuestosLocales As Decimal = factura.TotalImpuestoLocal.ToString.ToDecimal
                 Total = (TotalSubTotal - TotalDescuentos + TotalIVA + TotalIEPS - TotalRetIVA - TotalRetISR - TotalImpuestosLocales)
 
                 factura.SubTotal = TotalSubTotal
@@ -9146,7 +9149,8 @@ Partial Class Ventas
             'Contratos 
             If factura.CveContrato > 0 AndAlso DdlTipoComprobante.SelectedValue.Contiene("Ing") Then
                 GuardarContratoAvanceEstimaciones(ObjContr, factura, ErrorList, 1)
-            ElseIf factura.CveContrato > 0 AndAlso DdlTipoComprobante.SelectedValue.Contiene("Egs", "Dev") Then
+                'CUANDO ES NOTA DE CRÉDITO, NO DEBE DE CONSIDERAR AVANCE, CUANDO ES NOTA DE CRÉDITO POR AMORTIZACIÓN
+            ElseIf factura.CveContrato > 0 AndAlso DdlTipoComprobante.SelectedValue.Contiene("Egs", "Dev") AndAlso Not EsNCAmortizacion Then
                 GuardarContratoAvanceEstimaciones(ObjContr, factura, ErrorList, -1)
             End If
 
@@ -23436,19 +23440,19 @@ Partial Class Ventas
     Private Sub CalculaUsados()
 
 
-        If ClienteEsDistribuidor Then
+        '' If ClienteEsDistribuidor Then
 
-            Dim DTTamanios As New DataTable
-            Dim ObjAcum As New ClsAcumuladores
+        Dim DTTamanios As DataTable = Nothing
+        ' Dim ObjAcum As New ClsAcumuladores
 
-            If ObjAcum.TamañoGet(-1, UsuarioActual.CveEmpresa) Then
+        'If ObjAcum.TamañoGet(-1, UsuarioActual.CveEmpresa) Then
 
-                DTTamanios = ObjAcum.DtResultados
+        DTTamanios = GlobalDTAcumTamaños() 'ObjAcum.DtResultados
 
-                Dim DTCvePSCostos As New DataTable
-                DTCvePSCostos = ObjAcum.DtResultados.FiltraParametros("", "", {"CvePSCargo"})
+        Dim DTCvePSCostos As DataTable
+        DTCvePSCostos = DTTamanios.FiltraParametros("", "", {"CvePSCargo"})
 
-                If Not TmpDT.Columns.Contains("Eliminar") Then
+        If Not TmpDT.Columns.Contains("Eliminar") Then
                     TmpDT.Columns.Add("Eliminar", GetType(Integer))
                 End If
 
@@ -23573,10 +23577,10 @@ Partial Class Ventas
                 Next
 
                 ObjProductosServicios.Dispose()
-            End If
+        'End If
 
-            ObjAcum.Dispose()
-        End If
+        ' ObjAcum.Dispose()
+        'End If
 
 
     End Sub