columan foliopoliza

Contratos/ContratoObra.aspx.vb

@@ -4387,7 +4387,7 @@ Partial Class Contratos_ContratoObra
             DTCargaPresupuesto = CargaPresupuestoExcel("Presupuesto")
 
             If DTCargaPresupuesto.Rows.Count > 0 Then
-                ProcesaDatosCargaPresupuesto(DTCargaPresupuesto, Nothing, Nothing, Nothing)
+                ProcesaDatosCargaPresupuesto(EnumTipoCargaPresupuesto.Ventas, DTCargaPresupuesto, Nothing, Nothing, Nothing)
             Else
                 Alert("No se encintraron partidas en el documento", TipoMensaje.MsgAdvertencia)
             End If
@@ -4399,7 +4399,7 @@ Partial Class Contratos_ContratoObra
             DTCargaPresupuestoFlotillas = CargaPresupuestoExcel("Maquinaria")
             DTCargaPresupuestoIndirectos = CargaPresupuestoExcel("Indirectos")
 
-            ProcesaDatosCargaPresupuesto(DTCargaPresupuesto, DTCargaPresupuestoManoObra, DTCargaPresupuestoFlotillas, DTCargaPresupuestoIndirectos)
+            ProcesaDatosCargaPresupuesto(EnumTipoCargaPresupuesto.Control, DTCargaPresupuesto, DTCargaPresupuestoManoObra, DTCargaPresupuestoFlotillas, DTCargaPresupuestoIndirectos)
 
         End If
 
@@ -4551,15 +4551,20 @@ Partial Class Contratos_ContratoObra
                 'si el presupuesto es de ventas. solo valida con el codigo del producto
                 'si es presupuesto es de control, valida por ambos
 
-                If CvePS = -1 AndAlso TipoPresupuesto = EnumTipoCargaPresupuesto.Control Then
+                If CvePS = -1 Then
 
-                    StrArray = GetPS("PS", DrowPS("Producto").ToString).Split("|"c)
-                    If StrArray.Length > 0 Then
-                        If CBool(StrArray(0)) = True Then
-                            CvePS = StrArray(1).ToEntero
+                    'si es presup ventas, busca por producto, 
+                    If TipoPresupuesto = EnumTipoCargaPresupuesto.Control Then
+
+                        StrArray = GetPS("PS", DrowPS("Producto").ToString).Split("|"c)
+                        If StrArray.Length > 0 Then
+                            If CBool(StrArray(0)) = True Then
+                                CvePS = StrArray(1).ToEntero
+                            End If
                         End If
                     End If
 
+
                     If CvePS = -1 Then
 
                         Dim ObjPS As New ClsProductosServicios
@@ -4586,8 +4591,7 @@ Partial Class Contratos_ContratoObra
                         End If
 
                         ObjPS.Dispose()
-                    Else
-                        RowNoEncontrados &= "Producto: " & StrArray(1) & "<\BR>"
+
                     End If
 
                 End If