Correción Compras Aplica Lote ps no encontrado, Vya Contrato Contrato detalle mensajes

Transportes/RepContratoDetalle.aspx.vb

@@ -541,6 +541,8 @@ Partial Class RepContratoDetalle
     Protected Sub UpdateContrato(sender As Object, e As EventArgs)
         Dim ArchivoUpdate As String = "-1"
         Dim ErrorProceso As Boolean = False
+        Dim SeGeneroRemision As Boolean = False
+        Dim SerieFolioRemision As String = ""
         If Session("FileExtension").ToString <> "" Then
 
             'ArchivoUpdate = $"{CveContrato.ToString}.{  Session("FileExtension")}"
@@ -584,8 +586,9 @@ Partial Class RepContratoDetalle
 
             If Respuesta.CveVenta > 0 Then
                 CveVentaRemision = Respuesta.CveVenta
-                'SerieFolioRemision = Respuesta.SerieFolio
+                SerieFolioRemision = Respuesta.SerieFolio
                 ErrorProceso = False
+                SeGeneroRemision = True
             Else
                 ErrorProceso = True
                 Alert("se presento un error al generar la remisión", TipoMensaje.MsgAdvertencia)
@@ -593,10 +596,16 @@ Partial Class RepContratoDetalle
         End If
 
         If Not ErrorProceso Then
-
             ObjContratos.Commit()
             AgregarABitacora($"Actualización del contrato {CveContrato}")
-            Alert("Contrato actualizado correctamente")
+
+            If SeGeneroRemision Then
+                Alert($"Contrato actualizado correctamente..<br> Remisión Generada <a target='_blank' class='Texto' href='/Ventas/Ventas.aspx?CveVenta={CveVentaRemision}' ><b>{SerieFolioRemision}</b></a>", TipoMensaje.MsgInformacion, "window.location.reload();")
+            Else
+                Alert("Contrato actualizado correctamente", TipoMensaje.MsgInformacion, "window.location.reload();")
+            End If
+
+
         Else
             Alert("Ocurrió un ocurrió un error al actualizar su boleto", TipoMensaje.MsgError)
             ObjContratos.RollBack()

Transportes/RepContratos.aspx.vb

@@ -211,7 +211,13 @@ Partial Class ListadoContratos
 
         If Not ErrorProceso Then
             ObjContratos.Commit()
-            Alert($"Agregado Correctamente.<br> Remisión Generada <a target='_blank' class='Texto' href='/Ventas/Ventas.aspx?CveVenta={CveVentaRemision}' ><b>{SerieFolioRemision}</b></a>")
+
+            If CveVentaRemision > 0 Then
+                Alert($"Agregado Correctamente.<br> Remisión Generada <a target='_blank' class='Texto' href='/Ventas/Ventas.aspx?CveVenta={CveVentaRemision}' ><b>{SerieFolioRemision}</b></a>")
+            Else
+                Alert($"Agregado Correctamente")
+            End If
+
         Else
             ObjContratos.RollBack()
             Alert("Se presento un error al guardar el contrato.", TipoMensaje.MsgAdvertencia)