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

Bancos/IE.aspx.vb

@@ -2516,7 +2516,7 @@ Partial Class Bancos_IE
 
             Dim ObjOC As New ClsOC
             If ObjOC.GetOCAnticipoSaldo(CveOCSolicitudAnticipo, UsuarioActual.CveEmpresa) Then
-                SaldoOCAnticipo = ObjOC.DtResultados(0)("Saldo").ToString.ToDecimal
+                SaldoOCAnticipo = ObjOC.DtResultados(0)("Saldo").ToString.ToDecimal.Round(2)
             Else
                 SaldoOCAnticipo = 0
             End If
@@ -5465,7 +5465,7 @@ Partial Class Bancos_IE
             Dim ObjOC As New ClsOC
 
             If ObjOC.GetOCAnticipoSaldo(CveOCSolicitudAnticipo, UsuarioActual.CveEmpresa) Then
-                SaldoOCAnticipo = ObjOC.DtResultados(0)("Saldo").ToString.ToDecimal
+                SaldoOCAnticipo = ObjOC.DtResultados(0)("Saldo").ToString.ToDecimal.RoundSQL(2)
             Else
                 SaldoOCAnticipo = 0
             End If
@@ -5477,7 +5477,7 @@ Partial Class Bancos_IE
                 If DrOC("TipoTermino").ToString.ToEntero.Contiene(0, 3) Then
                     TxtObservaciones.Text = DrOC("Descripcion").ToString
 
-                    If DrOC("ImporteAnticipo").ToString.ToDecimal > SaldoOCAnticipo Then
+                    If DrOC("ImporteAnticipo").ToString.ToDecimal.RoundSQL(2) > SaldoOCAnticipo Then
 
                         'TxtImporte.Text = SaldoOCAnticipo.ToString().FormatoNumero
                         'TxtImporteLetra.Text = SaldoOCAnticipo.ToString().FormatoNumero.ToDouble.Texto2Letras(DrOC("CveMoneda").ToString.ToEntero)

Planeacion/CatProyectos.aspx.vb

@@ -63,7 +63,7 @@ Partial Class CatProyectos
 
     Public Sub CargaDatos()
         Dim ObjProyectos As New ClsProyectos
-        If ObjProyectos.GetProyectos(UsuarioActual.CveEmpresa) Then
+        If ObjProyectos.GetProyectos(UsuarioActual.CveEmpresa, Opcion:=1) Then
             GvDatos.DataSource = ObjProyectos.DtResultados.FiltraParametros("CveEmpresa = " & UsuarioActual.CveEmpresa)
             GvDatos.DataBind()
         End If

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)