diff --git a/Source/Modulos/Contactos/Servidor/srvContactos_Impl.dfm b/Source/Modulos/Contactos/Servidor/srvContactos_Impl.dfm
index 66ccec06..1211e53a 100644
--- a/Source/Modulos/Contactos/Servidor/srvContactos_Impl.dfm
+++ b/Source/Modulos/Contactos/Servidor/srvContactos_Impl.dfm
@@ -2293,11 +2293,11 @@ object srvContactos: TsrvContactos
               'INSERT'#10'  INTO CONTACTOS'#10'    (ID, NIF_CIF, NOMBRE, PERSONA_CONTAC' +
               'TO, CALLE, POBLACION, PROVINCIA, CODIGO_POSTAL,'#10'     TELEFONO_1,' +
               ' TELEFONO_2, MOVIL_1, MOVIL_2, FAX, EMAIL_1, '#10'     EMAIL_2, PAGI' +
-              'NA_WEB, NOTAS, USUARIO, REFERENCIA)'#10'  VALUES'#10'    (:ID, :NIF_CIF,' +
-              ' :NOMBRE, :PERSONA_CONTACTO, :CALLE, :POBLACION, :PROVINCIA,'#10'   ' +
-              '  :CODIGO_POSTAL, :TELEFONO_1, :TELEFONO_2, :MOVIL_1, '#10'     :MOV' +
-              'IL_2, :FAX, :EMAIL_1, :EMAIL_2, :PAGINA_WEB, :NOTAS, '#10'     :USUA' +
-              'RIO, :REFERENCIA)'
+              'NA_WEB, NOTAS, USUARIO, REFERENCIA, FECHA_ALTA)'#10'  VALUES'#10'    (:I' +
+              'D, :NIF_CIF, :NOMBRE, :PERSONA_CONTACTO, :CALLE, :POBLACION, :PR' +
+              'OVINCIA,'#10'     :CODIGO_POSTAL, :TELEFONO_1, :TELEFONO_2, :MOVIL_1' +
+              ', '#10'     :MOVIL_2, :FAX, :EMAIL_1, :EMAIL_2, :PAGINA_WEB, :NOTAS,' +
+              ' '#10'     :USUARIO, :REFERENCIA, CURRENT_TIMESTAMP)'#10
             StatementType = stSQL
             ColumnMappings = <>
           end>
@@ -2467,7 +2467,8 @@ object srvContactos: TsrvContactos
               'MOVIL_2 = :MOVIL_2, '#10'    FAX = :FAX, '#10'    EMAIL_1 = :EMAIL_1, '#10' ' +
               '   EMAIL_2 = :EMAIL_2, '#10'    PAGINA_WEB = :PAGINA_WEB, '#10'    NOTAS' +
               ' = :NOTAS, '#10'    USUARIO = :USUARIO,'#10'    REFERENCIA = :REFERENCIA' +
-              #10'  WHERE'#10'    (ID = :OLD_ID)'#10
+              ','#10'    FECHA_MODIFICACION = CURRENT_TIMESTAMP'#10'  WHERE'#10'    (ID = :' +
+              'OLD_ID)'#10
             StatementType = stSQL
             ColumnMappings = <>
           end>