mejoras en contratos

Contratos/ContratoObra.aspx.vb

@@ -4476,7 +4476,7 @@ Partial Class Contratos_ContratoObra
     End Function
 
 
-    Private Sub ProcesaDatosCargaPresupuesto(DTPresupuesto As DataTable, DTCargaPresupuestoManoObra As DataTable, DTCargaPresupuestoFlotillas As DataTable, DTCargaPresupuestoIndirectos As DataTable)
+    Private Sub ProcesaDatosCargaPresupuesto(TipoPresupuesto As EnumTipoCargaPresupuesto, DTPresupuesto As DataTable, DTCargaPresupuestoManoObra As DataTable, DTCargaPresupuestoFlotillas As DataTable, DTCargaPresupuestoIndirectos As DataTable)
 
 
         If Not DTPresupuesto Is Nothing Then
@@ -4548,8 +4548,10 @@ Partial Class Contratos_ContratoObra
                     End If
                 End If
 
+                '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 Then
+                If CvePS = -1 AndAlso TipoPresupuesto = EnumTipoCargaPresupuesto.Control Then
 
                     StrArray = GetPS("PS", DrowPS("Producto").ToString).Split("|"c)
                     If StrArray.Length > 0 Then
@@ -4584,7 +4586,8 @@ Partial Class Contratos_ContratoObra
                         End If
 
                         ObjPS.Dispose()
-
+                    Else
+                        RowNoEncontrados &= "Producto: " & StrArray(1) & "<\BR>"
                     End If
 
                 End If

Contratos/ContratoObraAutorizacion.aspx

@@ -142,7 +142,7 @@
                                             </td>
                                             <td>
                                                 <asp:LinkButton ID="LnkEliminarAvance" runat="server" OnClick="LnkEliminarAvance_Click" AlternateText="Agregar Anexo" Visible="false"
-                                                    CssClass="btn btn-circle btn-sm red" Text="<i class='icon-trash'></i>" data-toggle="confirmation" data-popout="true" data-original-title="¿Confirma la eliminación del avance?" data-btn-ok-label="si" />
+                                                    CssClass="btn btn-circle btn-sm red" Text="<i class='icon-trash'></i>" data-toggle="confirmation" data-popout="true" data-original-title="¿Eliminar avance?" data-btn-ok-label="si" />
                                             </td>
                                         </tr>
                                     </table> 

Contratos/ContratoObraAutorizacion.aspx.vb

@@ -137,11 +137,6 @@ Partial Class Contratos_ContratoObraAutorizacion
         DDlContratosEstimaciones.DataBind()
     End Sub
 
-
-
-
-
-
     Protected Sub GetAnexos(sender As Object, e As System.EventArgs)
         Dim GvRow As GridViewRow = DirectCast((DirectCast(sender, LinkButton)).NamingContainer, GridViewRow)
 
@@ -219,11 +214,8 @@ Partial Class Contratos_ContratoObraAutorizacion
             If DTEstimaciones.Rows.Count > 0 Then
                 CveEstimacionActual = DTEstimaciones.FiltroPrimeroValor("CveEstimacion", "CveEstimacion > 0").ToString.ToEntero
             End If
-
-
         End If
 
-
         ObjContratos.Dispose()
 
 
@@ -263,9 +255,6 @@ Partial Class Contratos_ContratoObraAutorizacion
                     e.Row.CssClass = "SubTotales3"
                 End If
 
-
-
-
             End If
 
             If e.Row.DBCampo("CveContratoDetalle").ToString.ToEntero > 0 Then
@@ -638,7 +627,6 @@ Partial Class Contratos_ContratoObraAutorizacion
         Dim ErrorProceso As Boolean = True
 
 
-
         Dim ObjContrato As New ClsContratos
 
         If ObjContrato.RemoveContratosAvance(CveContratoAvance, UsuarioActual.CveEmpresa) Then
@@ -650,7 +638,7 @@ Partial Class Contratos_ContratoObraAutorizacion
         If Not ErrorProceso Then
 
             CargaAvancesParaEstimar()
-            Alert("Avance elimiando correctamente.")
+            Alert("Avance eliminado correctamente.")
         End If