Ventas Tasa 0 , CatProyectos proyectos duplciados, IE improte de Anticipo de OC

Ventas/Ventas.aspx.vb

@@ -8389,6 +8389,11 @@ Partial Class Ventas
                 TmpDT.Rows(e.RowIndex)("PorcentajeIVA") = DrPS("IVA")
             End If
 
+            If UsuarioActual.Empresa.Funcionalidad(373) = "1" AndAlso LblRFC.Text = "XEXX010101000" Then
+                TmpDT.Rows(e.RowIndex)("PorcentajeIVA") = 0
+                TmpDT.Rows(e.RowIndex)("ImporteIVA") = 0
+            End If
+
             TmpDT.Rows(e.RowIndex)("CveUM") = GvPS.Rows(e.RowIndex).FCDropDownList("DdlUnidadMedida").SelectedValue.ToEntero()
             TmpDT.Rows(e.RowIndex)("UM") = GvPS.Rows(e.RowIndex).FCDropDownList("DdlUnidadMedida").SelectedItem.Text
             TmpDT.Rows(e.RowIndex)("Cantidad") = Cantidad
@@ -8406,6 +8411,9 @@ Partial Class Ventas
             TmpDT.Rows(e.RowIndex)("PorcentajeRetISR") = ClienteRetISR
             TmpDT.Rows(e.RowIndex)("CuentaPredial") = CuentaPredial
 
+
+
+
             If ObjDescuento IsNot Nothing Then
                 TmpDT.Rows(e.RowIndex)("CvePromocionDetalle") = ObjDescuento.CvePromocionDetalle
             End If
@@ -19064,6 +19072,11 @@ Partial Class Ventas
                 Row("PorcentajeIVA") = DrPS("IVA")
             End If
 
+            If UsuarioActual.Empresa.Funcionalidad(373) = "1" AndAlso LblRFC.Text = "XEXX010101000" Then
+                DrPS("IVA") = 0
+                Row("PorcentajeIVA") = 0
+            End If
+
             If ClienteNODesglosaIVA Then
                 'If Not RegeneraIEPS AndAlso Not FacturaDesglosoIEPS Then
                 PU = PU * (1 + Row("PorcentajeIVA").ToString().ToDecimal)
@@ -19073,6 +19086,8 @@ Partial Class Ventas
                 Row("PorcentajeIVA") = 0
             End If
 
+
+
             TotalCalculableImpuestos = ((Cantidad * (PU)) - Descuento)
             TotalCalculableImpuestosIVA = TotalCalculableImpuestos * (1 + DrPS("IEPSPorcentaje").ToString().ToDecimal)