From c51ba8a3f56620addab93c1c344566b3790e4448 Mon Sep 17 00:00:00 2001 From: david Date: Thu, 24 Jun 2010 18:13:21 +0000 Subject: [PATCH] Ticket #289 -> En contactos falta la fecha de alta al insertar un nuevo registro git-svn-id: https://192.168.0.254/svn/Proyectos.Tecsitel_FactuGES2/trunk@1007 0c75b7a4-871f-7646-8a2f-f78d34cc349f --- .../Contactos/Servidor/srvContactos_Impl.dfm | 13 +++++++------ 1 file changed, 7 insertions(+), 6 deletions(-) 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>