Genral

Ventas/Ventas.aspx.vb

@@ -3826,6 +3826,18 @@ Partial Class Ventas
                 TxtSubTotal2.Text = (TxtSubTotal.Text.Replace(",", "").Trim.Trim.ToDouble - LblDescuentos.Text.Replace(",", "").Trim.Trim.ToDouble - LblAmortizacion.Text.Replace(",", "").Trim.Trim.ToDouble).FormatoNumero(2)
                 TxtIVA.Text = DbRowVenta("IVA").ToString.FormatoNumero(2)
                 TxtRetIVA.Text = DbRowVenta("RetIVA").ToString.FormatoNumero(2)
+                If TxtRetIVA.Text.ToDecimal() > 0 Then
+                    TrRetIVA.Style.Add("display", "")
+                    UsuarioActual.Empresa.MostrarRetIVA = True
+                    If DdlTipoRetencion.SelectedValue.ToEntero() > 0 Then
+                        DdlTipoRetencion.Visible = True
+                    End If
+                    If TmpDT IsNot Nothing Then
+                        Dim PorcentajeRetIVA = (TmpDT.MAX("PorcentajeRetIVA").ToDecimal() * 100)
+                        LblRetIVA.Text = PorcentajeRetIVA.FormatoNumero(2)
+                    End If
+
+                End If
                 TxtRetISR.Text = DbRowVenta("RetISR").ToString.FormatoNumero(2)
                 TxtIEPS.Text = DbRowVenta("IEPS").ToString.FormatoNumero(2)
                 TrIEPS.Visible = TxtIEPS.Text.ToDouble > 0
@@ -4398,6 +4410,10 @@ Partial Class Ventas
                 TxtSubTotal2.Text = (TxtSubTotal.Text.Replace(",", "").Trim.Trim.ToDouble - LblDescuentos.Text.Replace(",", "").Trim.Trim.ToDouble - LblAmortizacion.Text.Replace(",", "").Trim.Trim.ToDouble).FormatoNumero(2)
                 TxtIVA.Text = drv("IVA").ToString.FormatoNumero(2)
                 TxtRetIVA.Text = drv("RetIVA").ToString.FormatoNumero(2)
+                If TxtRetIVA.Text.ToDecimal() > 0 Then
+                    TrRetIVA.Style.Add("display", "")
+                    UsuarioActual.Empresa.MostrarRetIVA = True
+                End If
                 TxtRetISR.Text = drv("RetISR").ToString.FormatoNumero(2)
                 TxtTotal.Text = drv("Total").ToString.FormatoNumero(2)
                 TotalOriginal = Math.Round(drv("Total").ToString.ToDouble, 2)
@@ -4720,15 +4736,18 @@ Partial Class Ventas
                 DdlTipoRetencion.SelectedValueExist(ObjCliente.DtResultados(0)("CveTipoRetencion").ToString)
                 DdlTipoRetencion_SelectedIndexChanged(DdlTipoRetencion, EventArgs.Empty)
 
-                ViewState("RetIVAFletes") = ObjCliente.RetieneIVAFletes
-                If ObjCliente.RetieneIVAFletes Then
-                    TrRetIVA.Style.Add("display", "")
-                    UsuarioActual.Empresa.MostrarRetIVA = True
+                If CveVenta <= 0 Then
+                    ViewState("RetIVAFletes") = ObjCliente.RetieneIVAFletes
+                    If ObjCliente.RetieneIVAFletes Then
+                        TrRetIVA.Style.Add("display", "")
+                        UsuarioActual.Empresa.MostrarRetIVA = True
+                    End If
                 End If
 
 
 
 
+
                 ViewState("Vendedor") = ObjCliente.Vendedor
                 ViewState("CtaContable") = ObjCliente.CuentaContable
                 ViewState("IdCtaContClientes") = ObjCliente.IdCtaContClientes
@@ -9197,9 +9216,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
@@ -24059,7 +24082,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
@@ -24208,18 +24231,20 @@ Partial Class Ventas
                     Dim PorcentajeRetIVA = (TmpDT.MAX("PorcentajeRetIVA").ToDecimal() * 100)
                     LblRetIVA.Text = PorcentajeRetIVA.FormatoNumero(2)
                     If PorcentajeRetIVA > 0 Then
+                        TrRetIVA.Style.Add("display", "")
+                        UsuarioActual.Empresa.MostrarRetIVA = True
                         DdlTipoRetencion.Visible = True
                     End If
 
                     GvPS.DataSource = TmpDT
                     GvPS.DataBind()
 
-                    UpPS.Update()
+
                 End If
             End If
 
         End If
-
+        UpPS.Update()
 
     End Sub