Mostar Retenciones de IVA

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
@@ -24205,18 +24224,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