-- cambios para performance

2020-05-27 13:54:32 -07:00
parent 0324c2fb85
commit ad40879607
5 changed files with 31 additions and 13 deletions
--- a/OC/OC.aspx.vb
+++ b/OC/OC.aspx.vb
@@ -5182,7 +5182,7 @@ Partial Class OC
    Protected Function ActualizarCotizacion(ByRef ObjVentas As ClsVentas) As Boolean
        Dim OcurrioError As Boolean = False
        Try
-            Dim PorcentajeGanancia As Decimal = 0.1D
+            Dim PorcentajeGanancia As Decimal = 0.3D
            For Each Row As DataRow In DtDetalle.Rows
                Dim CvePS As Integer = Row("CvePS").ToString.ToEntero
                Dim DrPS = GlobalDTPS(CveEmpresaActual, CvePS:=CvePS).FiltroPrimero("")