diff --git a/Build/Build.fbl6 b/Build/Build.fbl6 index 309bbaf..8f43216 100644 Binary files a/Build/Build.fbl6 and b/Build/Build.fbl6 differ diff --git a/Build/Installer.fbl6 b/Build/Installer.fbl6 index 287b610..6b788d3 100644 Binary files a/Build/Installer.fbl6 and b/Build/Installer.fbl6 differ diff --git a/Database/scripts/etiquetas.sql b/Database/scripts/etiquetas.sql index 4f52be1..998d5b3 100644 --- a/Database/scripts/etiquetas.sql +++ b/Database/scripts/etiquetas.sql @@ -366,7 +366,8 @@ CREATE TABLE PACIENTES_DATOS ( FECHA_NACIMIENTO DATE, NUMERO_SS VARCHAR(255), FECHA_BAJA DATE, - CAUSA_BAJA VARCHAR(255) + CAUSA_BAJA VARCHAR(255), + PABELLON VARCHAR(255) ); @@ -576,7 +577,8 @@ CREATE VIEW V_PACIENTES( FECHA_NACIMIENTO, NUMERO_SS, FECHA_BAJA, - CAUSA_BAJA) + CAUSA_BAJA, + PABELLON) AS SELECT V_CONTACTOS.ID, V_CONTACTOS.ID_CATEGORIA, @@ -605,7 +607,8 @@ SELECT V_CONTACTOS.ID, PACIENTES_DATOS.FECHA_NACIMIENTO, PACIENTES_DATOS.NUMERO_SS, PACIENTES_DATOS.FECHA_BAJA, - PACIENTES_DATOS.CAUSA_BAJA + PACIENTES_DATOS.CAUSA_BAJA, + PACIENTES_DATOS.PABELLON FROM V_CONTACTOS INNER JOIN PACIENTES_DATOS ON (PACIENTES_DATOS.ID_PACIENTE = V_CONTACTOS.ID) diff --git a/Source/Base/Base.dproj b/Source/Base/Base.dproj index ae0f4a4..0e3d9cc 100644 --- a/Source/Base/Base.dproj +++ b/Source/Base/Base.dproj @@ -45,8 +45,6 @@ Package FalseTrueFalseLibreria baseFalseFalseFalseTrueFalse1000FalseFalseFalseFalseFalse308212521.0.0.01.0.0.0 - - Microsoft Office 2000 Sample Automation Server Wrapper Components Microsoft Office XP Sample Automation Server Wrapper Components Base.dpk @@ -56,58 +54,58 @@ MainSource - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + - - - - - - - - -
fConfigurarConexion
TForm diff --git a/Source/Cliente/Etiquetas.RES b/Source/Cliente/Etiquetas.RES index 1d46faf..3fae228 100644 Binary files a/Source/Cliente/Etiquetas.RES and b/Source/Cliente/Etiquetas.RES differ diff --git a/Source/Cliente/Etiquetas.dproj b/Source/Cliente/Etiquetas.dproj index 1a31626..39e4e9f 100644 --- a/Source/Cliente/Etiquetas.dproj +++ b/Source/Cliente/Etiquetas.dproj @@ -53,7 +53,7 @@ Delphi.Personality VCLApplication -FalseTrueFalseC:\Archivos de programa\Borland\Delphi7\Bin\TrueFalse1000FalseFalseFalseFalseFalse30821252Rodax Software S.L.1.0.0.0EtiquetasEtiquetas1.0.0.0Etiquetas.dprFalse +FalseTrueFalseC:\Archivos de programa\Borland\Delphi7\Bin\TrueFalse1000FalseFalseFalseFalseFalse30821252Rodax Software S.L.1.0.1.0EtiquetasEtiquetas1.0.1.0Etiquetas.dprFalse diff --git a/Source/Cliente/Etiquetas.rc b/Source/Cliente/Etiquetas.rc index c23920e..501b672 100644 --- a/Source/Cliente/Etiquetas.rc +++ b/Source/Cliente/Etiquetas.rc @@ -16,7 +16,7 @@ BEGIN VALUE "FileVersion", "1.0.0.0\0" VALUE "InternalName", "Etiquetas\0" VALUE "ProductName", "Etiquetas\0" - VALUE "ProductVersion", "1.0.0.0\0" + VALUE "ProductVersion", "1.0.1.0\0" END END BLOCK "VarFileInfo" diff --git a/Source/Informes/EtiquetasBlister.fr3 b/Source/Informes/EtiquetasBlister.fr3 index 129f642..d540bb5 100644 --- a/Source/Informes/EtiquetasBlister.fr3 +++ b/Source/Informes/EtiquetasBlister.fr3 @@ -1,10 +1,10 @@ - + - + @@ -19,7 +19,7 @@ - + diff --git a/Source/Modulos/Contactos/Contactos_Group.groupproj b/Source/Modulos/Contactos/Contactos_Group.groupproj index 5b92348..62f30b5 100644 --- a/Source/Modulos/Contactos/Contactos_Group.groupproj +++ b/Source/Modulos/Contactos/Contactos_Group.groupproj @@ -8,6 +8,7 @@ + @@ -101,14 +102,23 @@ + + + + + + + + + - + - + - + \ No newline at end of file diff --git a/Source/Modulos/Contactos/Data/uDataModulePacientes.dfm b/Source/Modulos/Contactos/Data/uDataModulePacientes.dfm index 716975d..0f9abee 100644 --- a/Source/Modulos/Contactos/Data/uDataModulePacientes.dfm +++ b/Source/Modulos/Contactos/Data/uDataModulePacientes.dfm @@ -358,6 +358,13 @@ inherited DataModulePacientes: TDataModulePacientes Size = 255 DisplayLabel = 'Causa de baja' DictionaryEntry = 'Pacientes_CAUSA_BAJA' + end + item + Name = 'PABELLON' + DataType = datString + Size = 255 + DisplayLabel = 'Pabell'#243'n' + DictionaryEntry = 'Pacientes_PABELLON' end> Params = <> StreamingOptions = [soDisableEventsWhileStreaming] diff --git a/Source/Modulos/Contactos/Model/schContactosClient_Intf.pas b/Source/Modulos/Contactos/Model/schContactosClient_Intf.pas index a6ebe87..4586d8b 100644 --- a/Source/Modulos/Contactos/Model/schContactosClient_Intf.pas +++ b/Source/Modulos/Contactos/Model/schContactosClient_Intf.pas @@ -9,12 +9,12 @@ const { Data table rules ids Feel free to change them to something more human readable but make sure they are unique in the context of your application } - RID_Contactos = '{7F03558F-609F-4936-A3D1-BD29533A56E1}'; - RID_DatosBancarios = '{EC0BAA32-3160-4D3B-B93C-C0EE14EED455}'; - RID_DireccionesContacto = '{C813C0E6-EA34-4B49-A5EA-8068F88931A1}'; - RID_Contactos_Refresh = '{331C8BA5-35E5-4980-B184-35CEB1449F28}'; - RID_PersonalContacto = '{BDB195C7-E1FD-4CDF-8B76-C417CA509A07}'; - RID_Pacientes = '{92FBE102-F4C7-435B-B43C-DAFCD13D5061}'; + RID_Contactos = '{C70F7D0E-F4A7-4CFE-9944-779D78462802}'; + RID_DatosBancarios = '{28E8899E-75BE-4198-A469-BD7707476A56}'; + RID_DireccionesContacto = '{A946294F-D917-45C4-BC14-6DB2AFB13954}'; + RID_Contactos_Refresh = '{F268DFE8-EE77-4A04-BAED-893AC62B40CD}'; + RID_PersonalContacto = '{D665EAA8-4B09-478A-9FC1-F7E40234097C}'; + RID_Pacientes = '{F9D8AC20-2D16-43D9-8571-2319BD6371B2}'; { Data table names } nme_Contactos = 'Contactos'; @@ -230,6 +230,7 @@ const fld_PacientesNUMERO_SS = 'NUMERO_SS'; fld_PacientesFECHA_BAJA = 'FECHA_BAJA'; fld_PacientesCAUSA_BAJA = 'CAUSA_BAJA'; + fld_PacientesPABELLON = 'PABELLON'; { Pacientes field indexes } idx_PacientesID = 0; @@ -259,11 +260,12 @@ const idx_PacientesNUMERO_SS = 24; idx_PacientesFECHA_BAJA = 25; idx_PacientesCAUSA_BAJA = 26; + idx_PacientesPABELLON = 27; type { IContactos } IContactos = interface(IDAStronglyTypedDataTable) - ['{4715D51C-E2CA-4681-A8D0-00C4D39998C2}'] + ['{CD8D0182-85A8-4864-B68C-8881352B60BC}'] { Property getters and setters } function GetIDValue: Integer; procedure SetIDValue(const aValue: Integer); @@ -562,7 +564,7 @@ type { IDatosBancarios } IDatosBancarios = interface(IDAStronglyTypedDataTable) - ['{2EDD196A-1D34-4D7C-935F-CB826481A239}'] + ['{C69A3D95-8E46-40B2-B58B-62D44ECE77CC}'] { Property getters and setters } function GetIDValue: Integer; procedure SetIDValue(const aValue: Integer); @@ -693,7 +695,7 @@ type { IDireccionesContacto } IDireccionesContacto = interface(IDAStronglyTypedDataTable) - ['{2EED47E1-39B7-4CE9-BE6F-344BF36E87EB}'] + ['{DF647E54-B42B-4AE9-B644-F658124C61CC}'] { Property getters and setters } function GetIDValue: Integer; procedure SetIDValue(const aValue: Integer); @@ -908,7 +910,7 @@ type { IContactos_Refresh } IContactos_Refresh = interface(IDAStronglyTypedDataTable) - ['{E5FB283A-1D58-4412-89CC-E1777D95EA61}'] + ['{F229F382-4386-4D8B-A6B7-B44A621DC612}'] { Property getters and setters } function GetIDValue: Integer; procedure SetIDValue(const aValue: Integer); @@ -1183,7 +1185,7 @@ type { IPersonalContacto } IPersonalContacto = interface(IDAStronglyTypedDataTable) - ['{CDB935C3-8418-4662-A66E-893F5FB17B93}'] + ['{7E45B5B2-567C-4AB4-8235-0A9FB607859C}'] { Property getters and setters } function GetIDValue: Integer; procedure SetIDValue(const aValue: Integer); @@ -1326,7 +1328,7 @@ type { IPacientes } IPacientes = interface(IDAStronglyTypedDataTable) - ['{009AD5B4-19B8-41CD-9779-9D61C3F53CC0}'] + ['{0E86AB13-9946-4952-8A92-775A2993A788}'] { Property getters and setters } function GetIDValue: Integer; procedure SetIDValue(const aValue: Integer); @@ -1435,6 +1437,10 @@ type procedure SetCAUSA_BAJAValue(const aValue: String); function GetCAUSA_BAJAIsNull: Boolean; procedure SetCAUSA_BAJAIsNull(const aValue: Boolean); + function GetPABELLONValue: String; + procedure SetPABELLONValue(const aValue: String); + function GetPABELLONIsNull: Boolean; + procedure SetPABELLONIsNull(const aValue: Boolean); { Properties } @@ -1492,6 +1498,8 @@ type property FECHA_BAJAIsNull: Boolean read GetFECHA_BAJAIsNull write SetFECHA_BAJAIsNull; property CAUSA_BAJA: String read GetCAUSA_BAJAValue write SetCAUSA_BAJAValue; property CAUSA_BAJAIsNull: Boolean read GetCAUSA_BAJAIsNull write SetCAUSA_BAJAIsNull; + property PABELLON: String read GetPABELLONValue write SetPABELLONValue; + property PABELLONIsNull: Boolean read GetPABELLONIsNull write SetPABELLONIsNull; end; { TPacientesDataTableRules } @@ -1608,6 +1616,10 @@ type procedure SetCAUSA_BAJAValue(const aValue: String); virtual; function GetCAUSA_BAJAIsNull: Boolean; virtual; procedure SetCAUSA_BAJAIsNull(const aValue: Boolean); virtual; + function GetPABELLONValue: String; virtual; + procedure SetPABELLONValue(const aValue: String); virtual; + function GetPABELLONIsNull: Boolean; virtual; + procedure SetPABELLONIsNull(const aValue: Boolean); virtual; { Properties } property ID: Integer read GetIDValue write SetIDValue; @@ -1664,6 +1676,8 @@ type property FECHA_BAJAIsNull: Boolean read GetFECHA_BAJAIsNull write SetFECHA_BAJAIsNull; property CAUSA_BAJA: String read GetCAUSA_BAJAValue write SetCAUSA_BAJAValue; property CAUSA_BAJAIsNull: Boolean read GetCAUSA_BAJAIsNull write SetCAUSA_BAJAIsNull; + property PABELLON: String read GetPABELLONValue write SetPABELLONValue; + property PABELLONIsNull: Boolean read GetPABELLONIsNull write SetPABELLONIsNull; public constructor Create(aDataTable: TDADataTable); override; @@ -4000,6 +4014,27 @@ begin DataTable.Fields[idx_PacientesCAUSA_BAJA].AsVariant := Null; end; +function TPacientesDataTableRules.GetPABELLONValue: String; +begin + result := DataTable.Fields[idx_PacientesPABELLON].AsString; +end; + +procedure TPacientesDataTableRules.SetPABELLONValue(const aValue: String); +begin + DataTable.Fields[idx_PacientesPABELLON].AsString := aValue; +end; + +function TPacientesDataTableRules.GetPABELLONIsNull: boolean; +begin + result := DataTable.Fields[idx_PacientesPABELLON].IsNull; +end; + +procedure TPacientesDataTableRules.SetPABELLONIsNull(const aValue: Boolean); +begin + if aValue then + DataTable.Fields[idx_PacientesPABELLON].AsVariant := Null; +end; + initialization RegisterDataTableRules(RID_Contactos, TContactosDataTableRules); diff --git a/Source/Modulos/Contactos/Model/schContactosServer_Intf.pas b/Source/Modulos/Contactos/Model/schContactosServer_Intf.pas index a831403..0c97c76 100644 --- a/Source/Modulos/Contactos/Model/schContactosServer_Intf.pas +++ b/Source/Modulos/Contactos/Model/schContactosServer_Intf.pas @@ -9,17 +9,17 @@ const { Delta rules ids Feel free to change them to something more human readable but make sure they are unique in the context of your application } - RID_ContactosDelta = '{AEE34B45-0BE5-4436-A2F2-00A60AE282C5}'; - RID_DatosBancariosDelta = '{CD1DD86B-3B55-41D0-8514-72F41F1F93DE}'; - RID_DireccionesContactoDelta = '{ACD63EA5-D682-4058-9D6C-DBA5616330D4}'; - RID_Contactos_RefreshDelta = '{5A2CFD2B-4D23-435C-9E7A-7F5961024EE8}'; - RID_PersonalContactoDelta = '{DF7E01FD-BE8A-479B-BB79-8A46B55C1F87}'; - RID_PacientesDelta = '{28C6EC42-0265-4AF3-B3F2-05EBB1BD0F9C}'; + RID_ContactosDelta = '{83090F71-F00B-4D1A-88EE-8A5FDEA11091}'; + RID_DatosBancariosDelta = '{657B549F-B362-41BE-88BA-D5D9A949DEEC}'; + RID_DireccionesContactoDelta = '{4C3C24B7-E822-435C-A50F-A5277C128EB7}'; + RID_Contactos_RefreshDelta = '{28CA07B8-EFF9-4CCD-9BC5-131999C9AD63}'; + RID_PersonalContactoDelta = '{0017AE39-9949-4AE6-984E-371BC57EFA3B}'; + RID_PacientesDelta = '{442B4BC7-B6D6-4637-839F-5EC54A16674A}'; type { IContactosDelta } IContactosDelta = interface(IContactos) - ['{AEE34B45-0BE5-4436-A2F2-00A60AE282C5}'] + ['{83090F71-F00B-4D1A-88EE-8A5FDEA11091}'] { Property getters and setters } function GetOldIDValue : Integer; function GetOldID_CATEGORIAValue : Integer; @@ -318,7 +318,7 @@ type { IDatosBancariosDelta } IDatosBancariosDelta = interface(IDatosBancarios) - ['{CD1DD86B-3B55-41D0-8514-72F41F1F93DE}'] + ['{657B549F-B362-41BE-88BA-D5D9A949DEEC}'] { Property getters and setters } function GetOldIDValue : Integer; function GetOldID_CONTACTOValue : Integer; @@ -448,7 +448,7 @@ type { IDireccionesContactoDelta } IDireccionesContactoDelta = interface(IDireccionesContacto) - ['{ACD63EA5-D682-4058-9D6C-DBA5616330D4}'] + ['{4C3C24B7-E822-435C-A50F-A5277C128EB7}'] { Property getters and setters } function GetOldIDValue : Integer; function GetOldID_CONTACTOValue : Integer; @@ -663,7 +663,7 @@ type { IContactos_RefreshDelta } IContactos_RefreshDelta = interface(IContactos_Refresh) - ['{5A2CFD2B-4D23-435C-9E7A-7F5961024EE8}'] + ['{28CA07B8-EFF9-4CCD-9BC5-131999C9AD63}'] { Property getters and setters } function GetOldIDValue : Integer; function GetOldNIF_CIFValue : String; @@ -938,7 +938,7 @@ type { IPersonalContactoDelta } IPersonalContactoDelta = interface(IPersonalContacto) - ['{DF7E01FD-BE8A-479B-BB79-8A46B55C1F87}'] + ['{0017AE39-9949-4AE6-984E-371BC57EFA3B}'] { Property getters and setters } function GetOldIDValue : Integer; function GetOldID_CONTACTOValue : Integer; @@ -1080,7 +1080,7 @@ type { IPacientesDelta } IPacientesDelta = interface(IPacientes) - ['{28C6EC42-0265-4AF3-B3F2-05EBB1BD0F9C}'] + ['{442B4BC7-B6D6-4637-839F-5EC54A16674A}'] { Property getters and setters } function GetOldIDValue : Integer; function GetOldID_CATEGORIAValue : Integer; @@ -1109,6 +1109,7 @@ type function GetOldNUMERO_SSValue : String; function GetOldFECHA_BAJAValue : DateTime; function GetOldCAUSA_BAJAValue : String; + function GetOldPABELLONValue : String; { Properties } property OldID : Integer read GetOldIDValue; @@ -1138,6 +1139,7 @@ type property OldNUMERO_SS : String read GetOldNUMERO_SSValue; property OldFECHA_BAJA : DateTime read GetOldFECHA_BAJAValue; property OldCAUSA_BAJA : String read GetOldCAUSA_BAJAValue; + property OldPABELLON : String read GetOldPABELLONValue; end; { TPacientesBusinessProcessorRules } @@ -1308,6 +1310,12 @@ type function GetOldCAUSA_BAJAIsNull: Boolean; virtual; procedure SetCAUSA_BAJAValue(const aValue: String); virtual; procedure SetCAUSA_BAJAIsNull(const aValue: Boolean); virtual; + function GetPABELLONValue: String; virtual; + function GetPABELLONIsNull: Boolean; virtual; + function GetOldPABELLONValue: String; virtual; + function GetOldPABELLONIsNull: Boolean; virtual; + procedure SetPABELLONValue(const aValue: String); virtual; + procedure SetPABELLONIsNull(const aValue: Boolean); virtual; { Properties } property ID : Integer read GetIDValue write SetIDValue; @@ -1418,6 +1426,10 @@ type property CAUSA_BAJAIsNull : Boolean read GetCAUSA_BAJAIsNull write SetCAUSA_BAJAIsNull; property OldCAUSA_BAJA : String read GetOldCAUSA_BAJAValue; property OldCAUSA_BAJAIsNull : Boolean read GetOldCAUSA_BAJAIsNull; + property PABELLON : String read GetPABELLONValue write SetPABELLONValue; + property PABELLONIsNull : Boolean read GetPABELLONIsNull write SetPABELLONIsNull; + property OldPABELLON : String read GetOldPABELLONValue; + property OldPABELLONIsNull : Boolean read GetOldPABELLONIsNull; public constructor Create(aBusinessProcessor: TDABusinessProcessor); override; @@ -4819,6 +4831,37 @@ begin BusinessProcessor.CurrentChange.NewValueByName[fld_PacientesCAUSA_BAJA] := Null; end; +function TPacientesBusinessProcessorRules.GetPABELLONValue: String; +begin + result := BusinessProcessor.CurrentChange.NewValueByName[fld_PacientesPABELLON]; +end; + +function TPacientesBusinessProcessorRules.GetPABELLONIsNull: Boolean; +begin + result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_PacientesPABELLON]); +end; + +function TPacientesBusinessProcessorRules.GetOldPABELLONValue: String; +begin + result := BusinessProcessor.CurrentChange.OldValueByName[fld_PacientesPABELLON]; +end; + +function TPacientesBusinessProcessorRules.GetOldPABELLONIsNull: Boolean; +begin + result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_PacientesPABELLON]); +end; + +procedure TPacientesBusinessProcessorRules.SetPABELLONValue(const aValue: String); +begin + BusinessProcessor.CurrentChange.NewValueByName[fld_PacientesPABELLON] := aValue; +end; + +procedure TPacientesBusinessProcessorRules.SetPABELLONIsNull(const aValue: Boolean); +begin + if aValue then + BusinessProcessor.CurrentChange.NewValueByName[fld_PacientesPABELLON] := Null; +end; + initialization RegisterBusinessProcessorRules(RID_ContactosDelta, TContactosBusinessProcessorRules); diff --git a/Source/Modulos/Contactos/Model/uBizPacientesServer.pas b/Source/Modulos/Contactos/Model/uBizPacientesServer.pas index d85a8ba..c099fd5 100644 --- a/Source/Modulos/Contactos/Model/uBizPacientesServer.pas +++ b/Source/Modulos/Contactos/Model/uBizPacientesServer.pas @@ -83,7 +83,8 @@ begin ParamByName('FECHA_NACIMIENTO').Value := aChange.NewValueByName[fld_PacientesFECHA_NACIMIENTO]; ParamByName('NUMERO_SS').Value := aChange.NewValueByName[fld_PacientesNUMERO_SS]; ParamByName('FECHA_BAJA').Value := aChange.NewValueByName[fld_PacientesFECHA_BAJA]; - ParamByName('CAUSA_BAJA').Value := aChange.NewValueByName[fld_PacientesCAUSA_BAJA]; + ParamByName('CAUSA_BAJA').Value := aChange.NewValueByName[fld_PacientesCAUSA_BAJA]; + ParamByName('PABELLON').Value := aChange.NewValueByName[fld_PacientesPABELLON]; Execute; end; finally @@ -111,6 +112,7 @@ begin ParamByName('NUMERO_SS').Value := aChange.NewValueByName[fld_PacientesNUMERO_SS]; ParamByName('FECHA_BAJA').Value := aChange.NewValueByName[fld_PacientesFECHA_BAJA]; ParamByName('CAUSA_BAJA').Value := aChange.NewValueByName[fld_PacientesCAUSA_BAJA]; + ParamByName('PABELLON').Value := aChange.NewValueByName[fld_PacientesPABELLON]; Execute; end; finally diff --git a/Source/Modulos/Contactos/Servidor/srvContactos_Impl.dfm b/Source/Modulos/Contactos/Servidor/srvContactos_Impl.dfm index 63f267f..48af5ae 100644 --- a/Source/Modulos/Contactos/Servidor/srvContactos_Impl.dfm +++ b/Source/Modulos/Contactos/Servidor/srvContactos_Impl.dfm @@ -961,6 +961,10 @@ object srvContactos: TsrvContactos item DatasetField = 'CAUSA_BAJA' TableField = 'CAUSA_BAJA' + end + item + DatasetField = 'PABELLON' + TableField = 'PABELLON' end> end> Name = 'Pacientes' @@ -1123,6 +1127,12 @@ object srvContactos: TsrvContactos DataType = datString Size = 255 DictionaryEntry = 'Pacientes_CAUSA_BAJA' + end + item + Name = 'PABELLON' + DataType = datString + Size = 255 + DictionaryEntry = 'Pacientes_PABELLON' end> end> JoinDataTables = <> @@ -2058,6 +2068,12 @@ object srvContactos: TsrvContactos DataType = datString Size = 255 Value = '' + end + item + Name = 'PABELLON' + DataType = datString + Size = 255 + Value = '' end> Statements = < item @@ -2065,8 +2081,9 @@ object srvContactos: TsrvContactos TargetTable = 'PACIENTES_DATOS' SQL = 'INSERT'#10' INTO PACIENTES_DATOS'#10' (ID_PACIENTE, FECHA_NACIMIENTO' + - ', NUMERO_SS, FECHA_BAJA, CAUSA_BAJA)'#10' VALUES'#10' (:ID_PACIENTE,' + - ' :FECHA_NACIMIENTO, :NUMERO_SS, :FECHA_BAJA, :CAUSA_BAJA)'#10 + ', NUMERO_SS, FECHA_BAJA, CAUSA_BAJA, PABELLON)'#10' VALUES'#10' (:ID' + + '_PACIENTE, :FECHA_NACIMIENTO, :NUMERO_SS, :FECHA_BAJA, :CAUSA_BA' + + 'JA, :PABELLON)'#10 StatementType = stSQL ColumnMappings = <> end> @@ -2096,6 +2113,12 @@ object srvContactos: TsrvContactos Size = 255 Value = '' end + item + Name = 'PABELLON' + DataType = datString + Size = 255 + Value = '' + end item Name = 'OLD_ID_PACIENTE' Value = '' @@ -2107,8 +2130,8 @@ object srvContactos: TsrvContactos SQL = 'UPDATE PACIENTES_DATOS'#10' SET '#10' FECHA_NACIMIENTO = :FECHA_NACI' + 'MIENTO,'#10' NUMERO_SS = :NUMERO_SS,'#10' FECHA_BAJA = :FECHA_BAJA' + - ','#10' CAUSA_BAJA = :CAUSA_BAJA'#10' WHERE'#10' (ID_PACIENTE = :OLD_I' + - 'D_PACIENTE)'#10 + ','#10' CAUSA_BAJA = :CAUSA_BAJA,'#10' PABELLON = :PABELLON'#10' WHERE' + + #10' (ID_PACIENTE = :OLD_ID_PACIENTE)'#10 StatementType = stSQL ColumnMappings = <> end> @@ -2913,6 +2936,12 @@ object srvContactos: TsrvContactos DataType = datString Size = 255 DisplayLabel = 'Causa de baja' + end + item + Name = 'Pacientes_PABELLON' + DataType = datString + Size = 255 + DisplayLabel = 'Pabell'#243'n' end> Left = 126 Top = 14 diff --git a/Source/Modulos/Contactos/Views/Contactos_view.dpk b/Source/Modulos/Contactos/Views/Contactos_view.dpk index dbad91c..88864b4 100644 --- a/Source/Modulos/Contactos/Views/Contactos_view.dpk +++ b/Source/Modulos/Contactos/Views/Contactos_view.dpk @@ -68,11 +68,10 @@ contains uEditorPaciente in 'uEditorPaciente.pas' {fEditorPaciente: TCustomEditor}, uEditorPacientes in 'uEditorPacientes.pas' {fEditorPacientes: TCustomEditor}, uViewCategorias in 'uViewCategorias.pas' {frViewCategorias: TCustomView}, - uViewDatosYSeleccionPaciente in 'uViewDatosYSeleccionPaciente.pas' {frViewDatosYSeleccionPaciente: TCustomView}, uViewPaciente in 'uViewPaciente.pas' {frViewPaciente: TCustomView}, uViewPacientes in 'uViewPacientes.pas' {frViewPacientes: TCustomView}, - uViewPersonalContacto in 'uViewPersonalContacto.pas', - uViewContactoDatosBancarios in 'uViewContactoDatosBancarios.pas', - uViewContactoListaDatosBancarios in 'uViewContactoListaDatosBancarios.pas'; + uViewPersonalContacto in 'uViewPersonalContacto.pas' {frViewPersonalContacto: TCustomView}, + uViewContactoDatosBancarios in 'uViewContactoDatosBancarios.pas' {frViewContactoDatosBancarios: TCustomView}, + uViewContactoListaDatosBancarios in 'uViewContactoListaDatosBancarios.pas' {frViewContactoListaDatosBancarios: TCustomView}; end. diff --git a/Source/Modulos/Contactos/Views/Contactos_view.dproj b/Source/Modulos/Contactos/Views/Contactos_view.dproj index d523447..e82b1d7 100644 --- a/Source/Modulos/Contactos/Views/Contactos_view.dproj +++ b/Source/Modulos/Contactos/Views/Contactos_view.dproj @@ -49,31 +49,36 @@ MainSource - - - - - - - - - - - - - - - - - - - - - - - - - + + + + + + + + + + + + + + + + + + + + + + + + + + + + + +
fEditorContacto
@@ -111,14 +116,16 @@
frViewContacto
TCustomView - - - -
frViewContactos
+ +
frViewContactoDatosBancarios
TCustomView - -
frViewDatosYSeleccionPaciente
+ +
frViewContactoListaDatosBancarios
+ TCustomView + + +
frViewContactos
TCustomView @@ -129,12 +136,10 @@
frViewPacientes
TCustomView - - - - - - + +
frViewPersonalContacto
+ TCustomView +