varios

Ventas/Ventas.aspx.vb

@@ -9217,9 +9217,13 @@ Partial Class Ventas
                            CveTipoAmortizacionAnticipo:=factura.CveTipoAmortizacionAnticipo, CveEmpresaCRM:=CveEmpresaCRM, EsInterno:=EsInterno, CveAcercamientoCRM:=CveAcercamientoCRM,
                            DiasCredito:=factura.DiasCredito, EsDiasCreditoFijo:=factura.EsDiasCreditoFijo, AnticipoEspecial:=If(TrAntEspecial.Visible, ChkAntEspecial.Checked, False),
                            Kilometraje:=TxtKilometraje.Text.ToDouble) Then
-
             ErrorList.Add("Ocurrió un error al Generar la Venta.<br />Revise su factura y cualquier detalle comuníquese a Soporte Técnico")
-
+        Else
+            If factura.TipoDocto.Contiene("Dev") Or DtVentasNC IsNot Nothing Then
+                If Not ObjVentas.AddVentasRelacionadas(ObjVentas.CveVenta, CveVenta) Then
+                    ErrorList.Add("Ocurrió un error al relacionar las ventas entre si comuníquese a Soporte Técnico")
+                End If
+            End If
         End If
 
         If Not GuardarUsados(ObjVentas.IniciaTransacSQL, ObjVentas.CveVenta) Then
@@ -17025,7 +17029,19 @@ Partial Class Ventas
         Dim total As Decimal = TxtImporteEfectivo.Text.ToDecimal + TxtImporteCredito.Text.ToDecimal + TxtImporteDebito.Text.ToDecimal + TxtImporteCheque.Text.ToDecimal + TxtImporteTransferencia.Text.ToDecimal
 
         DtPagos = Nothing
-        InicializaCondicionesPago()
+
+        DtPagos = New DataTable
+
+        DtPagos.Columns.Add("CveTipoMovimiento", GetType(String))
+        DtPagos.Columns.Add("TipoMovimiento", GetType(String))
+        DtPagos.Columns.Add("CveCuenta", GetType(String))
+        DtPagos.Columns.Add("Cuenta", GetType(String))
+        DtPagos.Columns.Add("Folio", GetType(String))
+        DtPagos.Columns.Add("Importe", GetType(Decimal))
+        DtPagos.Columns.Add("Observaciones", GetType(String))
+        DtPagos.Columns.Add("Tipo", GetType(String))
+        DtPagos.Columns.Add("CveMetodoPago", GetType(Integer))
+        DtPagos.Columns.Add("MesesSinIntereses", GetType(Integer))
 
         If total <= 0 Then Alert("No se ha ingresado importe", TipoMensaje.MsgAdvertencia) : Exit Sub
 
@@ -21164,7 +21180,7 @@ Partial Class Ventas
                     Into x = Group
                     Select ImportePU = x.Sum(Function(s) s("ImportePU").ToString.ToDecimal),
                         ImporteTotal = x.Sum(Function(s) s("ImporteTotal").ToString.ToDecimal),
-                        ImporteIVA = x.Sum(Function(s) Math.Round(s("ImporteIVA").ToString.ToDecimal, 2)), ' Math.Round(s("ImporteIVA").ToString.ToDecimal, 2)) * (1 + PorcentajeIEPS) * PorcentajeIVA,
+                        ImporteIVA = x.Sum(Function(s) (s("ImporteIVA").ToString.ToDecimal)).RoundSQL(2), ' Math.Round(s("ImporteIVA").ToString.ToDecimal, 2)) * (1 + PorcentajeIEPS) * PorcentajeIVA,
                         ImporteRetIVA = x.Sum(Function(s) Math.Round(s("ImporteRetIVA").ToString.ToDecimal, 2)),' Math.Round(s("ImportePU").ToString.ToDecimal, 2)) * PorcentajeRetIVA,
                         ImporteRetISR = x.Sum(Function(s) Math.Round(s("ImporteRetISR").ToString.ToDecimal, 2)),' Math.Round(s("ImportePU").ToString.ToDecimal, 2)) * PorcentajeRetISR,
                         ImporteIEPS = x.Sum(Function(s) Math.Round(s("ImporteIEPS").ToString.ToDecimal, 2)), 'Math.Round(s("ImportePU").ToString.ToDecimal, 2)) * PorcentajeIEPS,
@@ -21302,6 +21318,7 @@ Partial Class Ventas
         Dim Porcentaje As Decimal = ((Importe * 100) / ImporteReferencia) / 100
         Dim FiltroStr As String = ""
         Dim importePuTemp As Decimal = 0
+
         For Each Dr As DataRow In DtImpuestosLocal.Rows
             FiltroStr = String.Format("ISNULL(PorcentajeIVA,0) = {0} AND ISNULL(PorcentajeRetIVA,0) = {1} AND ISNULL(PorcentajeRetISR,0) = {2} AND ISNULL(PorcentajeIEPS,0) = {3} AND ISNULL(CveSubProyecto,0) = {4} ", Dr("PorcentajeIVA").ToString.ToDecimal, Dr("PorcentajeRetIVA").ToString.ToDecimal, Dr("PorcentajeRetISR").ToString.ToDecimal, Dr("PorcentajeIEPS").ToString.ToDecimal, Dr("CveSubProyecto"))
             importePuTemp = (Porcentaje * (TmpDT.SUM("TotalImporte", FiltroStr) - TmpDT.SUM("Descuento", FiltroStr))).ToDecimal
@@ -21320,6 +21337,8 @@ Partial Class Ventas
             'Dr("ImporteIEPS") = Math.Round(Porcentaje * TmpDT.SUM("ImporteIEPS", FiltroStr), 2)
             Dr("ImportePU") = Dr("ImporteTotal").ToString.ToDecimal.RoundSQL(2) '(Dr("ImporteTotal").ToString.ToDecimal - Dr("ImporteIVA").ToString.ToDecimal - Dr("ImporteRetIVA").ToString.ToDecimal - Dr("ImporteRetISR").ToString.ToDecimal - Dr("ImporteIEPS").ToString.ToDecimal)
         Next
+
+
         'codigo para ajuste de centavo, si el importe total no cuadra con los totales
         Dim difTmp As Decimal = Importe - (DtImpuestosLocal.SUMD("ImporteTotal") + DtImpuestosLocal.SUMD("ImporteIVA") + DtImpuestosLocal.SUMD("ImporteIEPS") - DtImpuestosLocal.SUMD("ImporteRetIVA") - DtImpuestosLocal.SUMD("ImporteRetISR"))
         If Math.Abs(difTmp) >= 0.01 Then
@@ -24074,7 +24093,7 @@ Partial Class Ventas
                     If obj.used_product Then
                         Dim FechaUsado As DateTime = Row.DataKey("FechaUsado").ToString().ToDateTime()
 
-                        obj.used_brand = Row.DataKey("IdModelo").ToString().Trim() 'MARCAR DEL USADO
+                        obj.used_brand = Row.DataKey("IdMarcaUsado").ToString().Trim() 'MARCAR DEL USADO
                         obj.used_bci = Row.DataKey("IdBCI").ToString().Trim() 'VALOR DEL BCI
                         obj.used_month = FechaUsado.Month
                         obj.used_year = FechaUsado.Year