Contratos

Contratos/ContratoObra.aspx.vb

@@ -3306,7 +3306,7 @@ Partial Class Contratos_ContratoObra
             StrReturn = "True|" & CvePS.ToString
         Else
 
-            StrReturn = "False|    -  No se encontró " & Valor & " en la fila " & NumRow & ", columna " & Opt
+            StrReturn = "False|" & Valor & " en la fila " & NumRow & ", columna " & Opt
         End If
         Return StrReturn
     End Function
@@ -4506,8 +4506,13 @@ Partial Class Contratos_ContratoObra
 
         UpModalCargaPresupuesto.Update()
 
+
+        DTPS = DTPS.FiltraParametros("Cantidad > 0")
+
+
         Return DTPS
 
+
     End Function
 
 
@@ -4580,16 +4585,12 @@ Partial Class Contratos_ContratoObra
                     If CBool(StrArray(0)) = True Then
                         CvePS = StrArray(1).ToEntero
                     Else
-                        RowNoEncontrados &= StrArray(1) & "<\BR>"
+                        RowNoEncontrados &= "Producto: " & StrArray(1) & "<\BR>"
                     End If
                 End If
 
-
-
                 If CvePS > 0 And DrowPS("Cantidad").ToString.ToDouble > 0 Then
 
-
-
                     CveUM = GlobalDTUnidadesMedida(UsuarioActual.CveEmpresa).FiltroPrimeroValor("CveUnidadMedida", $" UnidadMedida = '{ DrowPS("UnidadMedida").ToString.Trim }' OR Abreviatura = '{ DrowPS("UnidadMedida").ToString.Trim }'").ToEntero
 
                     If CveUM <= 0 Then
@@ -4718,7 +4719,7 @@ Partial Class Contratos_ContratoObra
 
                         DTPS.Rows.Add(Row)
                     Else
-
+                        ErrorProceso = True
                     End If
                 End If
 
@@ -4764,7 +4765,8 @@ Partial Class Contratos_ContratoObra
 
                     DTPS.Rows.Add(Row)
                 Else
-
+                    ErrorProceso = True
+                    RowNoEncontrados &= "Sub Tipo: " & DrowPS("SubTipoAF").ToString & "<\BR>"
                 End If
 
 
@@ -4876,7 +4878,7 @@ Partial Class Contratos_ContratoObra
 
 
         If RowNoEncontrados.Length > 0 Then
-            Alert($"Productos no encontrados <br> {RowNoEncontrados} ")
+            Alert($"Productos y Sub Tipos no encontrados <br> {RowNoEncontrados} ", TipoMensaje.MsgAdvertencia)
         End If