2020-10-22 07:50:24 -07:00
parent 5aa711c5df
commit 792e08f7a1
8 changed files with 991 additions and 146 deletions
--- a/RH/Personal.aspx.vb
+++ b/RH/Personal.aspx.vb
@@ -1000,8 +1000,10 @@ Partial Class RH_Personal
        DdlTipoPeriodo.DataBind()
    End Sub

-    Private Sub CargaTiposContrato()
-        DdlTipoContrato.DataSource = GlobalDTTiposContrato
+    Private Sub CargaTiposContrato()
+        Dim dt As DataTable = GlobalDTTiposContrato
+        dt.Columns.Add("txtoddl", GetType(String), "CodigoTipoContrato + ' ' + TipoContrato")
+        DdlTipoContrato.DataSource = dt
        DdlTipoContrato.DataBind()
    End Sub