-- mensaje para evitar que se cambie a enviado, si no tiene el movimiento de salida.

Acumuladores/CatFoliosGarantia.aspx

@@ -265,6 +265,7 @@
                                             <ajax:FilteredTextBoxExtender ID="FilteredTextBoxExtender1" runat="server" Enabled="True" TargetControlID="TxtFolioGarantia" FilterType="Numbers" FilterMode="ValidChars"></ajax:FilteredTextBoxExtender>
                                             <label for="<%= TxtFolioGarantia.ClientID.ToString()%>">Folio:</label>
                                             <i></i>
+                                            <asp:HiddenField ID="HdnCveMovimientoSalida" runat="server" />
                                         </div>
                                     </div>
                                     <div class="col-md-6">

Acumuladores/CatFoliosGarantia.aspx.vb

@@ -100,7 +100,7 @@ Partial Class Acumuladores_CatFoliosGarantia
 
     Protected Sub BtnAgregarFolioGarantiaModal_Click(sender As Object, e As EventArgs) Handles BtnAgregarFolioGarantiaModal.Click
 
-        Dim ObjAcum As New ClsAcumuladores
+
 
         'Dim Cargo, Bonificacion, Compra, Puntos As Decimal
 
@@ -111,6 +111,7 @@ Partial Class Acumuladores_CatFoliosGarantia
 
 
         If Not Actualizar Then
+            Dim ObjAcum As New ClsAcumuladores
             If ObjAcum.FoliosGarantiaAdd(TxtFolioGarantia.Text, DdlEstatusEditar.SelectedValue.ToEntero, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, DdlSubProyectos.SelectedValue.ToEntero, DdlTipoFolioModal.SelectedValue, TxtLimite.Text.ToEntero, DdlArea.SelectedValue.ToEntero) Then
 
                 TxtFolioGarantia.Text = ""
@@ -129,7 +130,15 @@ Partial Class Acumuladores_CatFoliosGarantia
             Else
                 Alert("Ocurrió un error al guardar el Folio de Garantía", TipoMensaje.MsgError)
             End If
+            ObjAcum.Dispose()
         Else
+            'si se marca como enviado, debe de revisar que tenga el movto de traslado
+            If HdnCveMovimientoSalida.Value = "" AndAlso DdlEstatusEditar.SelectedValue = "2" Then
+                Alert("No se ha realizado la salida del almacen de garantía, al de 'devolución al proveedor'.</br> Favor de aplicar la salida y luego cambiar el estatus a enviado. ", TipoMensaje.MsgAdvertencia)
+                Exit Sub
+            End If
+
+            Dim ObjAcum As New ClsAcumuladores
             If ObjAcum.FoliosGarantiaUpdate(CveFolioGarantia, TxtFolioGarantia.Text, DdlEstatusEditar.SelectedValue.ToEntero, UsuarioActual.CveUsuario, DdlSubProyectos.SelectedValue.ToEntero,
                                             DdlTipoFolioModal.SelectedValue, TxtLimite.Text.ToEntero, DdlArea.SelectedValue.ToEntero) Then
 
@@ -150,12 +159,13 @@ Partial Class Acumuladores_CatFoliosGarantia
             Else
                 Alert("Ocurrió un error al Actualizar el Folio de Garantía", TipoMensaje.MsgError)
             End If
+            ObjAcum.Dispose()
         End If
 
         CveFolioGarantia = -1
         Actualizar = False
 
-        ObjAcum.Dispose()
+
 
     End Sub
 
@@ -188,6 +198,7 @@ Partial Class Acumuladores_CatFoliosGarantia
         TxtLimite.Text = GvRow.DataKey("Limite")
         DdlTipoFolioModal.SelectedValue = GvRow.DataKey("tipoFolio")
         DdlArea.SelectedValue = GvRow.DataKey("Area")
+        HdnCveMovimientoSalida.Value = GvRow.DataKey("CveMovimiento")
         'TxtCargo.Text = GvRow.DataKey("Cargo").ToDecimal.ToString("###,###,###.00")
         'TxtBonificacion.Text = GvRow.DataKey("Bonificacion").ToDecimal.ToString("###,###,###.00")
         'TxtCompra.Text = GvRow.DataKey("Compra").ToDecimal.ToString("###,###,###.00")