diff --git a/Contratos/Contrato.aspx.vb b/Contratos/Contrato.aspx.vb
index cc658606f..992646e1b 100644
--- a/Contratos/Contrato.aspx.vb
+++ b/Contratos/Contrato.aspx.vb
@@ -693,7 +693,7 @@ Partial Class Contratos_Default
             CargaConvenioPrecioFijo()
         End If
 
-        If UsuarioActual.CveEmpresa = 72 And DdlTipoContrato.SelectedValue.Contiene("7", "8", "10", "13", "28") Then
+        If UsuarioActual.CveEmpresa = 72 And DdlTipoContrato.SelectedValue.Contiene("7", "8", "9", "10", "13", "28") Then
             GetNoContratoNuevo()
         End If
 
@@ -4446,8 +4446,8 @@ Partial Class Contratos_Default
         Dim TipoContrato As Integer = DdlTipoContrato.SelectedValue.ToEntero()
 
 
-        Dim SufijoContrato As String = ""
-
+        Dim SufijoContrato As String = ""
+
         Select Case TipoContrato
             Case 7 'Contrato Comodato
                 SufijoContrato = "COMODATO"