This commit is contained in:
rakcsle
2021-04-05 09:29:14 -07:00
90 changed files with 31995 additions and 29026 deletions

View File

@@ -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"