Archivado/FarmaciaPH_Etiquetas
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Compare commits

base: Archivado:f534909434920628f31bcda83106c37463b6cf43
Branches Tags
Archivado:master
Archivado:1.0.3
Archivado:1.0.0
...
compare: Archivado:3852d25e834df56e09993efa11b2bd5327a2983f
Branches Tags
Archivado:master
Archivado:1.0.3
Archivado:1.0.0

10 Commits
f534909434 ... 3852d25e83

Author SHA1 Message Date
roberto
3852d25e83 Version 1.0.3 
Tareas #789:Añador el campo 'Doctor' para los pacientes
Se adapta el programa para contemplar pabellones y doctores

git-svn-id: https://192.168.0.254/svn/Proyectos.FarmaciaPH_Etiquetas/trunk@31 7b0b1a58-4aa1-b946-8089-8453ede31e50
 2012-03-15 16:20:53 +00:00
roberto
496290a109 Version 1.0.3 
Tareas #789:Añador el campo 'Doctor' para los pacientes
Se adapta el programa para contemplar pabellones y doctores

git-svn-id: https://192.168.0.254/svn/Proyectos.FarmaciaPH_Etiquetas/trunk@30 7b0b1a58-4aa1-b946-8089-8453ede31e50
 2012-03-15 15:45:02 +00:00
roberto
8cf408bcc1 Tareas #850: Se arregla fallo de selección en el grid al cambiar de estado una linea seleccionada sobre un grid filtrado 
git-svn-id: https://192.168.0.254/svn/Proyectos.FarmaciaPH_Etiquetas/trunk@29 7b0b1a58-4aa1-b946-8089-8453ede31e50
 2012-03-14 16:07:42 +00:00
roberto
dc00c5559a Ticket #791 -> Fallo al cambiar las fechas en una medicación 
git-svn-id: https://192.168.0.254/svn/Proyectos.FarmaciaPH_Etiquetas/trunk@28 7b0b1a58-4aa1-b946-8089-8453ede31e50
 2012-01-31 10:40:28 +00:00
roberto
e5333e3fa7 Ticket #791 -> Fallo al cambiar las fechas en una medicación 
git-svn-id: https://192.168.0.254/svn/Proyectos.FarmaciaPH_Etiquetas/trunk@27 7b0b1a58-4aa1-b946-8089-8453ede31e50
 2012-01-30 17:51:14 +00:00
roberto
4b3993d775 Añadir la columna de Pabellón a un paciente. 
git-svn-id: https://192.168.0.254/svn/Proyectos.FarmaciaPH_Etiquetas/trunk@26 7b0b1a58-4aa1-b946-8089-8453ede31e50
 2011-12-29 16:43:00 +00:00
roberto
933db1660d - Conexión a MS SQL Server guardada en configuración 
git-svn-id: https://192.168.0.254/svn/Proyectos.FarmaciaPH_Etiquetas/trunk@25 7b0b1a58-4aa1-b946-8089-8453ede31e50
 2011-12-12 16:30:35 +00:00
roberto
23962cc222 - Arreglo de scripts SQL 
git-svn-id: https://192.168.0.254/svn/Proyectos.FarmaciaPH_Etiquetas/trunk@24 7b0b1a58-4aa1-b946-8089-8453ede31e50
 2011-12-12 14:50:58 +00:00
roberto
d42b37eee2 - Arreglo de scripts SQL 
git-svn-id: https://192.168.0.254/svn/Proyectos.FarmaciaPH_Etiquetas/trunk@23 7b0b1a58-4aa1-b946-8089-8453ede31e50
 2011-12-12 14:45:11 +00:00
roberto
fae7f93257 - Arreglo de scripts SQL 
git-svn-id: https://192.168.0.254/svn/Proyectos.FarmaciaPH_Etiquetas/trunk@22 7b0b1a58-4aa1-b946-8089-8453ede31e50
 2011-12-12 14:44:04 +00:00
64 changed files with 3171 additions and 1503 deletions
Show Stats Expand all files Collapse all files

BIN
Build/Build.fbl6
View File

Binary file not shown.

BIN
Build/Installer.fbl6
View File

Binary file not shown.

33
Database/scripts/etiquetas.sql
View File

@ -101,6 +101,12 @@ SET GENERATOR GEN_ARTICULOS_ID TO 1;
CREATE GENERATOR GEN_CATEGORIAS_ID;
SET GENERATOR GEN_CATEGORIAS_ID TO 1;
CREATE GENERATOR GEN_DOCTORES_ID;
SET GENERATOR GEN_DOCTORES_ID TO 1;
CREATE GENERATOR GEN_PABELLONES_ID;
SET GENERATOR GEN_PABELLONES_ID TO 1;
CREATE GENERATOR GEN_CONFIGURACION_ID;
SET GENERATOR GEN_CONFIGURACION_ID TO 1;
@ -179,6 +185,15 @@ CREATE TABLE ARTICULOS (
MANO_OBRA TIPO_IMPORTE
);
CREATE TABLE DOCTORES (
ID TIPO_ID NOT NULL,
DESCRIPCION VARCHAR(255)
);
CREATE TABLE PABELLONES (
ID TIPO_ID NOT NULL,
DESCRIPCION VARCHAR(255)
);
CREATE TABLE CATEGORIAS (
ID TIPO_ID NOT NULL,
@ -366,7 +381,9 @@ 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) COLLATE ES_ES,
DOCTOR VARCHAR(255) COLLATE ES_ES
);
@ -576,7 +593,9 @@ CREATE VIEW V_PACIENTES(
FECHA_NACIMIENTO,
NUMERO_SS,
FECHA_BAJA,
CAUSA_BAJA)
CAUSA_BAJA,
PABELLON,
DOCTOR)
AS
SELECT V_CONTACTOS.ID,
V_CONTACTOS.ID_CATEGORIA,
@ -605,7 +624,9 @@ 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,
PACIENTES_DATOS.DOCTOR
FROM V_CONTACTOS
INNER JOIN PACIENTES_DATOS ON (PACIENTES_DATOS.ID_PACIENTE = V_CONTACTOS.ID)
@ -618,6 +639,8 @@ WHERE V_CONTACTOS.ID_CATEGORIA = 4
ALTER TABLE ARTICULOS ADD CONSTRAINT PK_ARTICULOS PRIMARY KEY (ID);
ALTER TABLE CATEGORIAS ADD CONSTRAINT PK_CATEGORIAS PRIMARY KEY (ID);
ALTER TABLE DOCTORES ADD CONSTRAINT PK_DOCTORES PRIMARY KEY (ID);
ALTER TABLE PABELLONES ADD CONSTRAINT PK_PABELLONES PRIMARY KEY (ID);
ALTER TABLE CONFIGURACION ADD CONSTRAINT PK_CONFIGURACION PRIMARY KEY (ID);
ALTER TABLE CONTACTOS ADD CONSTRAINT PK_CONTACTOS PRIMARY KEY (ID);
ALTER TABLE CONTACTOS_CATEGORIAS ADD CONSTRAINT PK_CONTACTOS_CATEGORIAS PRIMARY KEY (ID_CONTACTO, ID_CATEGORIA);
@ -629,6 +652,8 @@ ALTER TABLE EMPRESAS_CONTACTOS ADD CONSTRAINT PK_EMPRESAS_CONTACTOS PRIMARY KEY
ALTER TABLE EMPRESAS_DATOS_BANCO ADD CONSTRAINT PK_EMPRESAS_DATOS_BANCO PRIMARY KEY (ID);
ALTER TABLE EMPRESAS_USUARIOS ADD CONSTRAINT PK_EMPRESAS_USUARIOS PRIMARY KEY (ID);
ALTER TABLE MEDICACION ADD CONSTRAINT PK_MEDICACION PRIMARY KEY (ID);
ALTER TABLE MEDICACION DETALLES ADD CONSTRAINT PK_MEDICACION_DETALLES PRIMARY KEY (ID);
ALTER TABLE PACIENTES_DATOS ADD CONSTRAINT PK_PACIENTES_DATOS PRIMARY KEY (ID_PACIENTE)
ALTER TABLE PERMISOS ADD CONSTRAINT PK_PERMISOS PRIMARY KEY (ID);
ALTER TABLE PERMISOSEX ADD CONSTRAINT PK_PERMISOSEX PRIMARY KEY (ID);
ALTER TABLE POBLACIONES ADD CONSTRAINT PK_POBLACIONES PRIMARY KEY (ID);
@ -662,6 +687,8 @@ CREATE INDEX IDX_EMPRESAS_CONTACTOS ON EMPRESAS_CONTACTOS (ID_EMPRESA, ID_CONTAC
CREATE INDEX IDX_EMPRESAS_USUARIOS ON EMPRESAS_USUARIOS (ID_EMPRESA, ID_USUARIO);
CREATE INDEX POBLACIONES_IDX1 ON POBLACIONES (ID_PROVINCIA);
CREATE INDEX IDX_REFERENCIAS ON REFERENCIAS (ID_EMPRESA);
CREATE INDEX IDX_MEDICACION ON MEDICACION (ID_PACIENTE);
CREATE INDEX IDX_MEDICACION_DETALLES ON MEDICACION_DETALLES (ID_MEDICACION);
/******************************************************************************/

32
Source/ApplicationBase/Empresas/Views/uEditorEmpresa.dfm
View File

@ -17,6 +17,38 @@ inherited fEditorEmpresa: TfEditorEmpresa
ExplicitWidth = 674
inherited Image1: TImage
Left = 541
Picture.Data = {
0B546478504E47496D61676589504E470D0A1A0A0000000D4948445200000018
000000180806000000E0773DF8000000017352474200AECE1CE9000000046741
4D410000B18F0BFC6105000000206348524D00007A26000080840000FA000000
80E8000075300000EA6000003A98000017709CBA513C00000009704859730000
17110000171101CA26F33F0000033549444154484BD595FB4F536718C7DD7FA1
3FCEEA964ACB1832F0366457334CBC206284C6A843132F2C5B9CC934C4B0856C
D3A0035922A0D6726B6DC2458A23FBC188E8A6162908E5626D8B3DB420B72220
A228E6E33927A1823D4513E5074FF2F492369FCFF779DE73DEF70360DE9C5E92
602E6B4EE1F274A497AADA36E6A26608C42F81EBD9133FC28D23DC2ED36133A7
E069344EFF39F07972F2391313938C8F3F6574EC090F46C6191C1AA37770944F
D7EC91FEF7B283E9045F7D069D1792692A4CA036F75B6AB2BFC371CB3C43321B
BCBB6F38B440B87E88BB65C97498B7537F66339773D662F93D8ED2742D5EC715
5932053F60788C5275F50C290BC6FA6DD82B52B09E4D10E149B2A0E95C12D682
0D5CFC630575A6B4005C692C5272097ECFE757160CBA2BB86DDA44A321893B62
079ECA5D0895DFE33AAFA3459F40F99FD181998F8C2AA7973A727A06420B5C96
147C965DF4D5ECA5A77A3742C50E5190427B6122552713187B348104F70F3FA2
DFFF90FBFD23787B1FE0E9F6D3D93528C33BDC7DCA82119F957B353FC9506FE5
4E84F2EDB8CD3A1C255B68C85FCFE5B2E36F046FBD7B3FF4227BAFE7E1326F93
533B4DC9DC294EC2AEDFC0BFD98938ECF5AF4D2EC19B3BBA430B5A856BFC63D4
D1A04FA459BF8986827558C4DB546F3888DDD536EB58A6E0B636AFB2E0AAF73F
E2CB37A2F95B4DC689755C32FE4851DE36B68A77902AF3237697FE40B3DB1998
B9EEE74294AABE450816788605F6D71C447B6615AA222D51D951E45E3AC681B2
34D4F9E1A80BA3519F5846AA611F75ADB6190B2A256F6AF7D160EFE266B387FF
1B3B8305558E6A56E6C5139EF7056A5334AAE2257C762A86F0B391A84C5AC28A
57A0C9896341FA87A416EDC3D1D9AF985EEAE8EA2D57B0E094AD808547971291
F3359A73ABF8D81CC5C2A23054A5627A630CDAD3AB89C85AC3FCC38BF9FCD897
B43B7B6971F4042597E0B55667B0A0A2C34264562C6199B17C92FB9538AA5834
8695B24C9B1F47C45FDFB028239AF9BF881D94A4C9F0506BA028901E7DABDB46
AA712F11BFC5A0C98824EC57B1A4F72362A52F252A6B392575D5B32697E08A82
57B7DBE9FB8A4B189067FEBAB14CC11505D3F7F2B7852B0AA403E25D57E0C079
AF0FFD1710958E1DD5F715C50000000049454E44AE426082}
ExplicitLeft = 607
end
inherited lblDesbloquear: TcxLabel

2
Source/ApplicationBase/Empresas/Views/uEditorEmpresa.pas
View File

@ -13,7 +13,7 @@ uses
JvAppStorage, JvAppRegistryStorage, JvFormPlacement, JvComponentBase,
uViewEmpresa, uIEditorEmpresa, uEmpresasController, dxLayoutLookAndFeels,
JvExComCtrls, JvStatusBar, uViewDetallesGenerico, uViewDatosBancarios,
uDAInterfaces, cxControls, cxContainer, cxEdit, cxLabel;
uDAInterfaces, cxControls, cxContainer, cxEdit, cxLabel, dxGDIPlusClasses;
type
TfEditorEmpresa = class(TfEditorDBItem, IEditorEmpresa)

104
Source/Base/Base.dproj
View File

@ -45,8 +45,6 @@
<Borland.ProjectType>Package</Borland.ProjectType>
<BorlandProject>
<BorlandProject><Delphi.Personality><Parameters><Parameters Name="UseLauncher">False</Parameters><Parameters Name="LoadAllSymbols">True</Parameters><Parameters Name="LoadUnspecifiedSymbols">False</Parameters></Parameters><Package_Options><Package_Options Name="PackageDescription">Libreria base</Package_Options><Package_Options Name="ImplicitBuild">False</Package_Options><Package_Options Name="DesigntimeOnly">False</Package_Options><Package_Options Name="RuntimeOnly">False</Package_Options></Package_Options><VersionInfo><VersionInfo Name="IncludeVerInfo">True</VersionInfo><VersionInfo Name="AutoIncBuild">False</VersionInfo><VersionInfo Name="MajorVer">1</VersionInfo><VersionInfo Name="MinorVer">0</VersionInfo><VersionInfo Name="Release">0</VersionInfo><VersionInfo Name="Build">0</VersionInfo><VersionInfo Name="Debug">False</VersionInfo><VersionInfo Name="PreRelease">False</VersionInfo><VersionInfo Name="Special">False</VersionInfo><VersionInfo Name="Private">False</VersionInfo><VersionInfo Name="DLL">False</VersionInfo><VersionInfo Name="Locale">3082</VersionInfo><VersionInfo Name="CodePage">1252</VersionInfo></VersionInfo><VersionInfoKeys><VersionInfoKeys Name="CompanyName"></VersionInfoKeys><VersionInfoKeys Name="FileDescription"></VersionInfoKeys><VersionInfoKeys Name="FileVersion">1.0.0.0</VersionInfoKeys><VersionInfoKeys Name="InternalName"></VersionInfoKeys><VersionInfoKeys Name="LegalCopyright"></VersionInfoKeys><VersionInfoKeys Name="LegalTrademarks"></VersionInfoKeys><VersionInfoKeys Name="OriginalFilename"></VersionInfoKeys><VersionInfoKeys Name="ProductName"></VersionInfoKeys><VersionInfoKeys Name="ProductVersion">1.0.0.0</VersionInfoKeys></VersionInfoKeys><Excluded_Packages>
<Excluded_Packages Name="$(BDS)\bin\dcloffice2k100.bpl">Microsoft Office 2000 Sample Automation Server Wrapper Components</Excluded_Packages>
<Excluded_Packages Name="$(BDS)\bin\dclofficexp100.bpl">Microsoft Office XP Sample Automation Server Wrapper Components</Excluded_Packages>
</Excluded_Packages><Source><Source Name="MainSource">Base.dpk</Source></Source></Delphi.Personality></BorlandProject></BorlandProject>
@ -56,58 +54,58 @@
<DelphiCompile Include="Base.dpk">
<MainSource>MainSource</MainSource>
</DelphiCompile>
<DCCReference Include="..\adortl.dcp" />
<DCCReference Include="..\cxDataD11.dcp" />
<DCCReference Include="..\cxEditorsD11.dcp" />
<DCCReference Include="..\cxExportD11.dcp" />
<DCCReference Include="..\cxExtEditorsD11.dcp" />
<DCCReference Include="..\cxGridD11.dcp" />
<DCCReference Include="..\cxIntl6D11.dcp" />
<DCCReference Include="..\cxIntlPrintSys3D11.dcp" />
<DCCReference Include="..\cxLibraryD11.dcp" />
<DCCReference Include="..\cxPageControlD11.dcp" />
<DCCReference Include="..\DataAbstract_Core_D11.dcp" />
<DCCReference Include="..\dbrtl.dcp" />
<DCCReference Include="..\dclIndyCore.dcp" />
<DCCReference Include="..\designide.dcp" />
<DCCReference Include="..\dsnap.dcp" />
<DCCReference Include="..\dxGDIPlusD11.dcp" />
<DCCReference Include="..\dxPSCoreD11.dcp" />
<DCCReference Include="..\dxThemeD11.dcp" />
<DCCReference Include="..\GUISDK_D11R.dcp" />
<DCCReference Include="..\IndyCore.dcp" />
<DCCReference Include="..\IndyProtocols.dcp" />
<DCCReference Include="..\IndySystem.dcp" />
<DCCReference Include="..\Jcl.dcp" />
<DCCReference Include="..\JclVcl.dcp" />
<DCCReference Include="..\JSDialog100.dcp" />
<DCCReference Include="..\JvCmpD11R.dcp" />
<DCCReference Include="..\JvCoreD11R.dcp" />
<DCCReference Include="..\JvCtrlsD11R.dcp" />
<DCCReference Include="..\JvDlgsD11R.dcp" />
<DCCReference Include="..\JvMMD11R.dcp" />
<DCCReference Include="..\JvNetD11R.dcp" />
<DCCReference Include="..\JvPageCompsD11R.dcp" />
<DCCReference Include="..\JvStdCtrlsD11R.dcp" />
<DCCReference Include="..\JvSystemD11R.dcp" />
<DCCReference Include="..\pckMD5.dcp" />
<DCCReference Include="..\pckUCDataConnector.dcp" />
<DCCReference Include="..\pckUserControl_RT.dcp" />
<DCCReference Include="..\PngComponentsD10.dcp" />
<DCCReference Include="..\PNG_D10.dcp" />
<DCCReference Include="..\RemObjects_Core_D11.dcp" />
<DCCReference Include="..\RemObjects_Indy_D11.dcp" />
<DCCReference Include="..\rtl.dcp" />
<DCCReference Include="..\Modulos\Contactos\adortl.dcp" />
<DCCReference Include="..\Modulos\Contactos\cxDataD11.dcp" />
<DCCReference Include="..\Modulos\Contactos\cxEditorsD11.dcp" />
<DCCReference Include="..\Modulos\Contactos\cxExportD11.dcp" />
<DCCReference Include="..\Modulos\Contactos\cxExtEditorsD11.dcp" />
<DCCReference Include="..\Modulos\Contactos\cxGridD11.dcp" />
<DCCReference Include="..\Modulos\Contactos\cxIntl6D11.dcp" />
<DCCReference Include="..\Modulos\Contactos\cxIntlPrintSys3D11.dcp" />
<DCCReference Include="..\Modulos\Contactos\cxLibraryD11.dcp" />
<DCCReference Include="..\Modulos\Contactos\cxPageControlD11.dcp" />
<DCCReference Include="..\Modulos\Contactos\DataAbstract_Core_D11.dcp" />
<DCCReference Include="..\Modulos\Contactos\dbrtl.dcp" />
<DCCReference Include="..\Modulos\Contactos\dclIndyCore.dcp" />
<DCCReference Include="..\Modulos\Contactos\designide.dcp" />
<DCCReference Include="..\Modulos\Contactos\dsnap.dcp" />
<DCCReference Include="..\Modulos\Contactos\dxGDIPlusD11.dcp" />
<DCCReference Include="..\Modulos\Contactos\dxPSCoreD11.dcp" />
<DCCReference Include="..\Modulos\Contactos\dxThemeD11.dcp" />
<DCCReference Include="..\Modulos\Contactos\GUISDK_D11R.dcp" />
<DCCReference Include="..\Modulos\Contactos\IndyCore.dcp" />
<DCCReference Include="..\Modulos\Contactos\IndyProtocols.dcp" />
<DCCReference Include="..\Modulos\Contactos\IndySystem.dcp" />
<DCCReference Include="..\Modulos\Contactos\Jcl.dcp" />
<DCCReference Include="..\Modulos\Contactos\JclVcl.dcp" />
<DCCReference Include="..\Modulos\Contactos\JSDialog100.dcp" />
<DCCReference Include="..\Modulos\Contactos\JvCmpD11R.dcp" />
<DCCReference Include="..\Modulos\Contactos\JvCoreD11R.dcp" />
<DCCReference Include="..\Modulos\Contactos\JvCtrlsD11R.dcp" />
<DCCReference Include="..\Modulos\Contactos\JvDlgsD11R.dcp" />
<DCCReference Include="..\Modulos\Contactos\JvMMD11R.dcp" />
<DCCReference Include="..\Modulos\Contactos\JvNetD11R.dcp" />
<DCCReference Include="..\Modulos\Contactos\JvPageCompsD11R.dcp" />
<DCCReference Include="..\Modulos\Contactos\JvStdCtrlsD11R.dcp" />
<DCCReference Include="..\Modulos\Contactos\JvSystemD11R.dcp" />
<DCCReference Include="..\Modulos\Contactos\pckMD5.dcp" />
<DCCReference Include="..\Modulos\Contactos\pckUCDataConnector.dcp" />
<DCCReference Include="..\Modulos\Contactos\pckUserControl_RT.dcp" />
<DCCReference Include="..\Modulos\Contactos\PngComponentsD10.dcp" />
<DCCReference Include="..\Modulos\Contactos\PNG_D10.dcp" />
<DCCReference Include="..\Modulos\Contactos\RemObjects_Core_D11.dcp" />
<DCCReference Include="..\Modulos\Contactos\RemObjects_Indy_D11.dcp" />
<DCCReference Include="..\Modulos\Contactos\rtl.dcp" />
<DCCReference Include="..\Modulos\Contactos\TB2k_D10.dcp" />
<DCCReference Include="..\Modulos\Contactos\tbx_d10.dcp" />
<DCCReference Include="..\Modulos\Contactos\vcl.dcp" />
<DCCReference Include="..\Modulos\Contactos\vclactnband.dcp" />
<DCCReference Include="..\Modulos\Contactos\vcldb.dcp" />
<DCCReference Include="..\Modulos\Contactos\vcljpg.dcp" />
<DCCReference Include="..\Modulos\Contactos\VclSmp.dcp" />
<DCCReference Include="..\Modulos\Contactos\vclx.dcp" />
<DCCReference Include="..\Modulos\Contactos\xmlrtl.dcp" />
<DCCReference Include="..\Servicios\Etiquetas_Intf.pas" />
<DCCReference Include="..\TB2k_D10.dcp" />
<DCCReference Include="..\tbx_d10.dcp" />
<DCCReference Include="..\vcl.dcp" />
<DCCReference Include="..\vclactnband.dcp" />
<DCCReference Include="..\vcldb.dcp" />
<DCCReference Include="..\vcljpg.dcp" />
<DCCReference Include="..\VclSmp.dcp" />
<DCCReference Include="..\vclx.dcp" />
<DCCReference Include="..\xmlrtl.dcp" />
<DCCReference Include="Conexion\uConfigurarConexion.pas">
<Form>fConfigurarConexion</Form>
<DesignClass>TForm</DesignClass>

2
Source/Base/Utiles/uGridStatusUtils.pas
View File

@ -88,12 +88,12 @@ var
AList: TList;
AKeyValue: Variant;
begin
I := 0;
Result := nil;
if not Assigned(RecordInfo) then
Exit;
I := 0;
ARecordIndex := AView.DataController.FindRecordIndexByKey(RecordInfo.KeyValues);
AList := TList.Create;
try

BIN
Source/Cliente/Etiquetas.RES
View File

Binary file not shown.

3
Source/Cliente/Etiquetas.dpr
View File

@ -20,6 +20,9 @@ uses
{$R *.res}
begin
SetThreadLocale(LOCALE_USER_DEFAULT);
GetFormatSettings;
Application.Initialize;
//ReportMemoryLeaksOnShutdown := True;

2
Source/Cliente/Etiquetas.dproj
View File

@ -53,7 +53,7 @@
<Borland.Personality>Delphi.Personality</Borland.Personality>
<Borland.ProjectType>VCLApplication</Borland.ProjectType>
<BorlandProject>
<BorlandProject><Delphi.Personality><Parameters><Parameters Name="UseLauncher">False</Parameters><Parameters Name="LoadAllSymbols">True</Parameters><Parameters Name="LoadUnspecifiedSymbols">False</Parameters></Parameters><Language><Language Name="RootDir">C:\Archivos de programa\Borland\Delphi7\Bin\</Language></Language><VersionInfo><VersionInfo Name="IncludeVerInfo">True</VersionInfo><VersionInfo Name="AutoIncBuild">False</VersionInfo><VersionInfo Name="MajorVer">1</VersionInfo><VersionInfo Name="MinorVer">0</VersionInfo><VersionInfo Name="Release">0</VersionInfo><VersionInfo Name="Build">0</VersionInfo><VersionInfo Name="Debug">False</VersionInfo><VersionInfo Name="PreRelease">False</VersionInfo><VersionInfo Name="Special">False</VersionInfo><VersionInfo Name="Private">False</VersionInfo><VersionInfo Name="DLL">False</VersionInfo><VersionInfo Name="Locale">3082</VersionInfo><VersionInfo Name="CodePage">1252</VersionInfo></VersionInfo><VersionInfoKeys><VersionInfoKeys Name="CompanyName">Rodax Software S.L.</VersionInfoKeys><VersionInfoKeys Name="FileDescription"></VersionInfoKeys><VersionInfoKeys Name="FileVersion">1.0.0.0</VersionInfoKeys><VersionInfoKeys Name="InternalName">Etiquetas</VersionInfoKeys><VersionInfoKeys Name="LegalCopyright"></VersionInfoKeys><VersionInfoKeys Name="LegalTrademarks"></VersionInfoKeys><VersionInfoKeys Name="OriginalFilename"></VersionInfoKeys><VersionInfoKeys Name="ProductName">Etiquetas</VersionInfoKeys><VersionInfoKeys Name="ProductVersion">1.0.0.0</VersionInfoKeys><VersionInfoKeys Name="Comments"></VersionInfoKeys></VersionInfoKeys><Excluded_Packages></Excluded_Packages><Source><Source Name="MainSource">Etiquetas.dpr</Source></Source></Delphi.Personality><ModelSupport>False</ModelSupport></BorlandProject></BorlandProject>
<BorlandProject><Delphi.Personality><Parameters><Parameters Name="UseLauncher">False</Parameters><Parameters Name="LoadAllSymbols">True</Parameters><Parameters Name="LoadUnspecifiedSymbols">False</Parameters></Parameters><Language><Language Name="RootDir">C:\Archivos de programa\Borland\Delphi7\Bin\</Language></Language><VersionInfo><VersionInfo Name="IncludeVerInfo">True</VersionInfo><VersionInfo Name="AutoIncBuild">False</VersionInfo><VersionInfo Name="MajorVer">1</VersionInfo><VersionInfo Name="MinorVer">0</VersionInfo><VersionInfo Name="Release">3</VersionInfo><VersionInfo Name="Build">0</VersionInfo><VersionInfo Name="Debug">False</VersionInfo><VersionInfo Name="PreRelease">False</VersionInfo><VersionInfo Name="Special">False</VersionInfo><VersionInfo Name="Private">False</VersionInfo><VersionInfo Name="DLL">False</VersionInfo><VersionInfo Name="Locale">3082</VersionInfo><VersionInfo Name="CodePage">1252</VersionInfo></VersionInfo><VersionInfoKeys><VersionInfoKeys Name="CompanyName">Rodax Software S.L.</VersionInfoKeys><VersionInfoKeys Name="FileDescription"></VersionInfoKeys><VersionInfoKeys Name="FileVersion">1.0.3.0</VersionInfoKeys><VersionInfoKeys Name="InternalName">Etiquetas</VersionInfoKeys><VersionInfoKeys Name="LegalCopyright"></VersionInfoKeys><VersionInfoKeys Name="LegalTrademarks"></VersionInfoKeys><VersionInfoKeys Name="OriginalFilename"></VersionInfoKeys><VersionInfoKeys Name="ProductName">Etiquetas</VersionInfoKeys><VersionInfoKeys Name="ProductVersion">1.0.3.0</VersionInfoKeys><VersionInfoKeys Name="Comments"></VersionInfoKeys></VersionInfoKeys><Excluded_Packages></Excluded_Packages><Source><Source Name="MainSource">Etiquetas.dpr</Source></Source></Delphi.Personality><ModelSupport>False</ModelSupport></BorlandProject></BorlandProject>
</ProjectExtensions>
<Import Project="$(MSBuildBinPath)\Borland.Delphi.Targets" />
<ItemGroup>

8
Source/Cliente/Etiquetas.rc
View File

@ -1,7 +1,7 @@
MAINICON ICON "C:\Codigo farmacia\Resources\Iconos\Etiquetas.ico"
1 VERSIONINFO
FILEVERSION 1,0,0,0
PRODUCTVERSION 1,0,0,0
FILEVERSION 1,0,3,0
PRODUCTVERSION 1,0,3,0
FILEFLAGSMASK 0x3FL
FILEFLAGS 0x00L
FILEOS 0x40004L
@ -13,10 +13,10 @@ BEGIN
BLOCK "0C0A04E4"
BEGIN
VALUE "CompanyName", "Rodax Software S.L.\0"
VALUE "FileVersion", "1.0.0.0\0"
VALUE "FileVersion", "1.0.3.0\0"
VALUE "InternalName", "Etiquetas\0"
VALUE "ProductName", "Etiquetas\0"
VALUE "ProductVersion", "1.0.0.0\0"
VALUE "ProductVersion", "1.0.3.0\0"
END
END
BLOCK "VarFileInfo"

57
Source/Cliente/uPantallaPrincipal.dfm
View File

@ -317,6 +317,29 @@ object fPantallaPrincipal: TfPantallaPrincipal
end
object ModulesSmallImageList: TPngImageList
PngImages = <
item
PngImage.Data = {
89504E470D0A1A0A0000000D49484452000000100000001008060000001FF3FF
610000000970485973000017120000171201679FD252000001EC4944415478DA
A5934B6813511486BF541B88CD26620DA262A51BDB8520158308D5852055B01B
A3E8CEBD2E7CE063512852D09D2E82E04604AB1B5D4451B059D8A6010D84D842
5B6B6B1A8D414A4C9B18EB4C27F3F466D41943ED4233309C3BDC39DFFFDF9F7B
3C9665D1C8E379323CD510C1061C3DD0697F48C531BEE7A7EDB57F6B072DADBB
9C1F4DE154D74D34DD70DE43272FB9805AF3975484E56F1A856289C2D23CFB4F
44D8D4BE17DD30B932A8D629B7358D70F7C1D39F8023FBB6917B35C0D78F590C
43EC5A06954A8505A5C4B1CB2947F14F07D158D205F48436F03E761E640FEB7C
3ED660204B3263B9597A2F24ED866B8F59DD414F28C8E7443FDE6A55A883AAA9
28F232F3FA7ABA8EDFAC53FEBD1E1A4DBB805A0685370F91E65E0880084BD358
9255CCB65EDAF784571E413378F97ABC1E90C8C6C88EDC6687E9150EAAA415D8
BCFB14DD9D875734D76A2235E102B674A85C1CEEA3B498E374F020A666727F21
4E662ECFDBAB19BBB9EFD6B3BA0C423B37BA80A4F188E733A32881327EA91991
22924FA7B9E427373B45FADCB4A3ACFD72929E78E702EE1506C8E68B18AD0AEA
5A595C2F44A02D3495BD7CF8344EF2CC24D7EFC4567770361EA65C2EFCF5AA06
0241A2E1215BD5302DBB9AA24ECE645C4077D77606A3F17F9E0307D07F23F2FF
C3D4E838FF008E7263BE13CA147C0000000049454E44AE426082}
Name = 'PngImage2'
Background = clWindow
end
item
PngImage.Data = {
89504E470D0A1A0A0000000D49484452000000100000001008060000001FF3FF
@ -371,6 +394,40 @@ object fPantallaPrincipal: TfPantallaPrincipal
Height = 24
Width = 24
PngImages = <
item
PngImage.Data = {
89504E470D0A1A0A0000000D4948445200000018000000180806000000E0773D
F80000000970485973000017120000171201679FD2520000033B4944415478DA
DD957F68565518C73F77EF0FDFBDB9B94DC1214D5BB2FD61A3B0399236D66424
96A32874A1329D2D322C7F24686C0D539318FE964419E29F6AFF5810D982821C
BA0D57292846A4AD36B7D770BEEFF6FEBA7BEF3DF7DEB773A72EDFDE3BD71FEE
1F0F3CDC7378CEF97E9EE73CE79CAB24934926B3298F07E0EB73BF4E0AE5B5AA
79CA18400EC61C86162270F93043033D986692E9454B99337F459A80695AA37E
FB6B58D6BDF1DDFE2BAB3EE2D277479D01033FED440FFC4E389C60381263C474
31B7BC9EE205B5FF4BDCFED6AC6E7406F47535A1057AE5242FD1689C585C9516
27AA06A9ACFB9C278B5F1A136F3A2D1CB766D3E2115E5FFB713A203E78893F2F
1C401D1A91C571CBA9493C2E055DE80C066F93F55429E5CB0F3D34F251B392BC
D9D09C0E08F67C457FF7492CCD853FD38FCFEB41C142681AAAAA72FD763F351F
768E8A08C364D797CEC57DAF2A46EDBAEDCE80E16B67F0E1C7E3F64821032104
42D7D125E47AD8A2BAE1F4B8D15B7666327A43F657AEDF910E880C7413BAF205
198961321419BB5C681806868444E30922D32B295DBC7E42717B5CB761977391
FBBB5AD16E76CAED37B17DA66167A13310715358BD8D1905CF4C286E5BFDE6DD
CE806B7D17E8ED68656622814716591882802AB893534259453D3373674F286E
FBDED9F2593AE07C7F072DDDFBE9BBF51BCBF4222AF29F261009D13674836EF3
0ED5854B787FE106F29E98312AD47CF01BC7226F5C5DC5BAAD2DA980E7E64F65
5FE711DA035DA8DE30B9A129AC29A9E5AFE19B7C1B6C079F0F821994E79552B7
E06D0AB2E7A4446E9FAA0733FBA0716F2A80593DECF9F118514610D3E2E8468C
BC58169A5710F70B7C46164AC84B70B097A5C5AFB2B5E2133E3DDAE698C1BB6F
95B3A9797F2A2090DDC1DE1F5AC9F6E5626427107E699ABC702E175E251377DC
872BECE3EF500F453905B4BE71EAA1176DCBF603A90033FF0F769FDD879600F7
340F56A620E936E569525074372ED5432C1C269618A4A6A4868D658DEC39FEBD
63060DCB5F4C07BCFC4211576F5DE5F8C513FC7CE3171991B0B5EDD7027999A5
2964E678D95CD6C4B3F9A5E3467EBFA5011695CD1D77D1442FE77FC51D0195CF
173E327147C08E96238FFA87F62F6032DBA403FE011B7940FEE55D65A3000000
0049454E44AE426082}
Name = 'PngImage2'
Background = clWindow
end
item
PngImage.Data = {
89504E470D0A1A0A0000000D4948445200000018000000180806000000E0773D

6
Source/Informes/EtiquetasBlister.fr3
View File

@ -1,10 +1,10 @@
<?xml version="1.0" encoding="utf-8"?>
<TfrxReport Version="4.7.71" DotMatrixReport="False" IniFile="\Software\Fast Reports" PreviewOptions.Buttons="4095" PreviewOptions.Zoom="1" PrintOptions.Printer="Por defecto" PrintOptions.PrintOnSheet="0" ReportOptions.CreateDate="40861,4874193981" ReportOptions.Description.Text="" ReportOptions.LastChange="40886,5727641898" ScriptLanguage="PascalScript" ScriptText.Text="&#13;&#10;begin&#13;&#10;&#13;&#10;end." ShowProgress="False" StoreInDFM="False" PropData="044C656674027903546F70021008446174617365747301010C3400000020446174615365743D22667278444243616265636572612220446174615365744E616D653D22667278444243616265636572612200010C4600000020446174615365743D226672784442446574616C6C6573456E426C69737465722220446174615365744E616D653D226672784442446574616C6C6573456E426C69737465722200010C4C00000020446174615365743D226672784442446574616C6C65734675657261426C69737465722220446174615365744E616D653D226672784442446574616C6C65734675657261426C6973746572220000095661726961626C65730100055374796C6501010C7A000000204E616D653D225469746C652220436F6C6F723D223533363837303931312220466F6E742E436861727365743D22312220466F6E742E436F6C6F723D222D31363737373230382220466F6E742E4865696768743D222D31362220466F6E742E4E616D653D22417269616C2220466F6E742E5374796C653D22312200010C7B000000204E616D653D224865616465722220436F6C6F723D223533363837303931312220466F6E742E436861727365743D22312220466F6E742E436F6C6F723D222D31363737373230382220466F6E742E4865696768743D222D31332220466F6E742E4E616D653D22417269616C2220466F6E742E5374796C653D22312200010C8F000000204E616D653D2247726F7570206865616465722220436F6C6F723D223533363837303931312220466F6E742E436861727365743D22312220466F6E742E436F6C6F723D222D31363737373230382220466F6E742E4865696768743D222D31332220466F6E742E4E616D653D22417269616C2220466F6E742E5374796C653D223022204672616D652E5479703D22382200010C79000000204E616D653D22446174612220436F6C6F723D223533363837303931312220466F6E742E436861727365743D22312220466F6E742E436F6C6F723D222D31363737373230382220466F6E742E4865696768743D222D31332220466F6E742E4E616D653D22417269616C2220466F6E742E5374796C653D22302200010C8F000000204E616D653D2247726F757020666F6F7465722220436F6C6F723D223533363837303931312220466F6E742E436861727365743D22312220466F6E742E436F6C6F723D222D31363737373230382220466F6E742E4865696768743D222D31332220466F6E742E4E616D653D22417269616C2220466F6E742E5374796C653D223022204672616D652E5479703D22342200010C9E000000204E616D653D22486561646572206C696E652220436F6C6F723D223533363837303931312220466F6E742E436861727365743D22312220466F6E742E436F6C6F723D222D31363737373230382220466F6E742E4865696768743D222D31332220466F6E742E4E616D653D22417269616C2220466F6E742E5374796C653D223022204672616D652E5479703D223822204672616D652E57696474683D2232220000">
<TfrxReport Version="4.7.71" DotMatrixReport="False" IniFile="\Software\Fast Reports" PreviewOptions.Buttons="4095" PreviewOptions.Zoom="1" PrintOptions.Printer="Por defecto" PrintOptions.PrintOnSheet="0" ReportOptions.CreateDate="40861,4874193981" ReportOptions.Description.Text="" ReportOptions.LastChange="40906,6664315046" ScriptLanguage="PascalScript" ScriptText.Text="&#13;&#10;begin&#13;&#10;&#13;&#10;end." ShowProgress="False" StoreInDFM="False" PropData="044C656674027903546F70021008446174617365747301010C3400000020446174615365743D22667278444243616265636572612220446174615365744E616D653D22667278444243616265636572612200010C4600000020446174615365743D226672784442446574616C6C6573456E426C69737465722220446174615365744E616D653D226672784442446574616C6C6573456E426C69737465722200010C4C00000020446174615365743D226672784442446574616C6C65734675657261426C69737465722220446174615365744E616D653D226672784442446574616C6C65734675657261426C6973746572220000095661726961626C65730100055374796C6501010C7A000000204E616D653D225469746C652220436F6C6F723D223533363837303931312220466F6E742E436861727365743D22312220466F6E742E436F6C6F723D222D31363737373230382220466F6E742E4865696768743D222D31362220466F6E742E4E616D653D22417269616C2220466F6E742E5374796C653D22312200010C7B000000204E616D653D224865616465722220436F6C6F723D223533363837303931312220466F6E742E436861727365743D22312220466F6E742E436F6C6F723D222D31363737373230382220466F6E742E4865696768743D222D31332220466F6E742E4E616D653D22417269616C2220466F6E742E5374796C653D22312200010C8F000000204E616D653D2247726F7570206865616465722220436F6C6F723D223533363837303931312220466F6E742E436861727365743D22312220466F6E742E436F6C6F723D222D31363737373230382220466F6E742E4865696768743D222D31332220466F6E742E4E616D653D22417269616C2220466F6E742E5374796C653D223022204672616D652E5479703D22382200010C79000000204E616D653D22446174612220436F6C6F723D223533363837303931312220466F6E742E436861727365743D22312220466F6E742E436F6C6F723D222D31363737373230382220466F6E742E4865696768743D222D31332220466F6E742E4E616D653D22417269616C2220466F6E742E5374796C653D22302200010C8F000000204E616D653D2247726F757020666F6F7465722220436F6C6F723D223533363837303931312220466F6E742E436861727365743D22312220466F6E742E436F6C6F723D222D31363737373230382220466F6E742E4865696768743D222D31332220466F6E742E4E616D653D22417269616C2220466F6E742E5374796C653D223022204672616D652E5479703D22342200010C9E000000204E616D653D22486561646572206C696E652220436F6C6F723D223533363837303931312220466F6E742E436861727365743D22312220466F6E742E436F6C6F723D222D31363737373230382220466F6E742E4865696768743D222D31332220466F6E742E4E616D653D22417269616C2220466F6E742E5374796C653D223022204672616D652E5479703D223822204672616D652E57696474683D2232220000">
<TfrxDataPage Name="Data" Height="1000" Left="0" Top="0" Width="1000"/>
<TfrxReportPage Name="Page1" Font.Charset="1" Font.Color="0" Font.Height="-11" Font.Name="Arial" Font.Style="0" Orientation="poLandscape" PaperWidth="159,99883333" PaperHeight="61,9998125" PaperSize="256" LeftMargin="3,96875" RightMargin="3,96875" TopMargin="3,96875" BottomMargin="3,96875" ColumnWidth="0" ColumnPositions.Text="" LargeDesignHeight="True" HGuides.Text="" VGuides.Text="">
<TfrxMemoView Name="Memo2" Left="0" Top="124" Width="574" Height="51" ShowHint="False" Font.Charset="1" Font.Color="12632256" Font.Height="-48" Font.Name="Arial" Font.Style="1" Frame.Width="3" HAlign="haCenter" ParentFont="False" Text="FUERA DEL BLISTER"/>
<TfrxMasterData Name="MasterData1" Height="33" Left="0" Top="16" Width="574,720371160735" ColumnWidth="0" ColumnGap="0" DataSet="frxDBCabecera" DataSetName="frxDBCabecera" PrintIfDetailEmpty="True" RowCount="0">
<TfrxMemoView Name="Memo8" Align="baWidth" Left="0" Top="14" Width="574,720371160735" Height="14" ShowHint="False" AllowHTMLTags="True" DataSet="frxDBCabecera" DataSetName="frxDBCabecera" Font.Charset="1" Font.Color="0" Font.Height="-11" Font.Name="Arial" Font.Style="0" ParentFont="False" Text="Farmacéutico: &#60;b&#62;[frxDBCabecera.&#34;FARMACEUTICO&#34;]&#60;/b&#62; - Tlf: &#60;b&#62;[frxDBCabecera.&#34;TELEFONO_FARM&#34;]&#60;/b&#62;"/>
<TfrxMemoView Name="Memo8" Align="baWidth" Left="0" Top="14" Width="574,720371160735" Height="14" ShowHint="False" AllowHTMLTags="True" DataSet="frxDBCabecera" DataSetName="frxDBCabecera" Font.Charset="1" Font.Color="0" Font.Height="-11" Font.Name="Arial" Font.Style="0" ParentFont="False" Text="Farmacéutico: &#60;b&#62;[frxDBCabecera.&#34;FARMACEUTICO&#34;]&#60;/b&#62; - Tlf: &#60;b&#62;[frxDBCabecera.&#34;TELEFONO_FARM&#34;]&#60;/b&#62; - Pabellón: &#60;b&#62;[frxDBCabecera.&#34;PABELLON&#34;]&#60;/b&#62;"/>
<TfrxMemoView Name="Memo9" Align="baWidth" Left="0" Top="0" Width="574,720371160735" Height="14" ShowHint="False" AllowHTMLTags="True" DataSet="frxDBCabecera" DataSetName="frxDBCabecera" Font.Charset="1" Font.Color="0" Font.Height="-11" Font.Name="Arial" Font.Style="0" ParentFont="False" Text="Blister Nº: &#60;b&#62;[frxDBCabecera.&#34;REFERENCIA&#34;]&#60;/b&#62; - Inicio: &#60;b&#62;[frxDBCabecera.&#34;FECHA_DESDE&#34;]&#60;/b&#62; - Fin: &#60;b&#62;[frxDBCabecera.&#34;FECHA_HASTA&#34;]&#60;/b&#62; - Paciente: &#60;b&#62;[frxDBCabecera.&#34;PACIENTE&#34;]&#60;/b&#62;"/>
</TfrxMasterData>
<TfrxDetailData Name="DetailData1" Height="16" Left="0" Top="105" Width="574,720371160735" ColumnWidth="0" ColumnGap="0" DataSet="frxDBDetallesFueraBlister" DataSetName="frxDBDetallesFueraBlister" KeepHeader="True" KeepTogether="True" RowCount="0" Stretched="True">
@ -19,7 +19,7 @@
<TfrxReportPage Name="Page2" Font.Charset="1" Font.Color="0" Font.Height="-11" Font.Name="Arial" Font.Style="0" Orientation="poLandscape" PaperWidth="159,99883333" PaperHeight="61,9998125" PaperSize="256" LeftMargin="3,96875" RightMargin="3,96875" TopMargin="3,96875" BottomMargin="3,96875" ColumnWidth="0" ColumnPositions.Text="" LargeDesignHeight="True" HGuides.Text="" VGuides.Text="">
<TfrxMemoView Name="Memo1" Left="3" Top="122" Width="569" Height="51" ShowHint="False" Font.Charset="1" Font.Color="12632256" Font.Height="-48" Font.Name="Arial" Font.Style="1" HAlign="haCenter" ParentFont="False" Text="BLISTER"/>
<TfrxMasterData Name="MasterData2" Font.Charset="1" Font.Color="0" Font.Height="-11" Font.Name="Arial" Font.Style="0" Height="33" Left="0" ParentFont="False" Top="16" Width="574,720371160735" ColumnWidth="0" ColumnGap="0" DataSet="frxDBCabecera" DataSetName="frxDBCabecera" PrintIfDetailEmpty="True" RowCount="0">
<TfrxMemoView Name="Memo18" Align="baWidth" Left="0" Top="14" Width="574,720371160735" Height="14" ShowHint="False" AllowHTMLTags="True" DataSet="frxDBCabecera" DataSetName="frxDBCabecera" Font.Charset="1" Font.Color="0" Font.Height="-11" Font.Name="Arial" Font.Style="0" ParentFont="False" Text="Farmacéutico: &#60;b&#62;[frxDBCabecera.&#34;FARMACEUTICO&#34;]&#60;/b&#62; - Tlf: &#60;b&#62;[frxDBCabecera.&#34;TELEFONO_FARM&#34;]&#60;/b&#62;"/>
<TfrxMemoView Name="Memo18" Align="baWidth" Left="0" Top="14" Width="574,720371160735" Height="14" ShowHint="False" AllowHTMLTags="True" DataSet="frxDBCabecera" DataSetName="frxDBCabecera" Font.Charset="1" Font.Color="0" Font.Height="-11" Font.Name="Arial" Font.Style="0" ParentFont="False" Text="Farmacéutico: &#60;b&#62;[frxDBCabecera.&#34;FARMACEUTICO&#34;]&#60;/b&#62; - Tlf: &#60;b&#62;[frxDBCabecera.&#34;TELEFONO_FARM&#34;]&#60;/b&#62; - Pabellón: &#60;b&#62;[frxDBCabecera.&#34;PABELLON&#34;]&#60;/b&#62;"/>
<TfrxMemoView Name="Memo19" Align="baWidth" Left="0" Top="0" Width="574,720371160735" Height="14" ShowHint="False" AllowHTMLTags="True" DataSet="frxDBCabecera" DataSetName="frxDBCabecera" Font.Charset="1" Font.Color="0" Font.Height="-11" Font.Name="Arial" Font.Style="0" ParentFont="False" Text="Blister Nº: &#60;b&#62;[frxDBCabecera.&#34;REFERENCIA&#34;]&#60;/b&#62; - Inicio: &#60;b&#62;[frxDBCabecera.&#34;FECHA_DESDE&#34;]&#60;/b&#62; - Fin: &#60;b&#62;[frxDBCabecera.&#34;FECHA_HASTA&#34;]&#60;/b&#62; - Paciente: &#60;b&#62;[frxDBCabecera.&#34;PACIENTE&#34;]&#60;/b&#62;"/>
</TfrxMasterData>
<TfrxDetailData Name="DetailData2" Height="16" Left="0" Top="105" Width="574,720371160735" ColumnWidth="0" ColumnGap="0" DataSet="frxDBDetallesEnBlister" DataSetName="frxDBDetallesEnBlister" KeepHeader="True" KeepTogether="True" RowCount="0" Stretched="True">

16
Source/Modulos/Contactos/Contactos_Group.groupproj
View File

@ -8,6 +8,7 @@
<Projects Include="..\..\Base\Base.dproj" />
<Projects Include="..\..\Cliente\Etiquetas.dproj" />
<Projects Include="..\..\GUIBase\GUIBase.dproj" />
<Projects Include="..\..\Servidor\Etiquetas_Server.dproj" />
<Projects Include="Controller\Contactos_controller.dproj" />
<Projects Include="Data\Contactos_data.dproj" />
<Projects Include="Model\Contactos_model.dproj" />
@ -101,14 +102,23 @@
<Target Name="Etiquetas:Make">
<MSBuild Projects="..\..\Cliente\Etiquetas.dproj" Targets="Make" />
</Target>
<Target Name="Etiquetas_Server">
<MSBuild Projects="..\..\Servidor\Etiquetas_Server.dproj" Targets="" />
</Target>
<Target Name="Etiquetas_Server:Clean">
<MSBuild Projects="..\..\Servidor\Etiquetas_Server.dproj" Targets="Clean" />
</Target>
<Target Name="Etiquetas_Server:Make">
<MSBuild Projects="..\..\Servidor\Etiquetas_Server.dproj" Targets="Make" />
</Target>
<Target Name="Build">
<CallTarget Targets="Base;GUIBase;ApplicationBase;Contactos_model;Contactos_data;Contactos_controller;Contactos_view;Contactos_plugin;Etiquetas" />
<CallTarget Targets="Base;GUIBase;ApplicationBase;Contactos_model;Contactos_data;Contactos_controller;Contactos_view;Contactos_plugin;Etiquetas;Etiquetas_Server" />
</Target>
<Target Name="Clean">
<CallTarget Targets="Base:Clean;GUIBase:Clean;ApplicationBase:Clean;Contactos_model:Clean;Contactos_data:Clean;Contactos_controller:Clean;Contactos_view:Clean;Contactos_plugin:Clean;Etiquetas:Clean" />
<CallTarget Targets="Base:Clean;GUIBase:Clean;ApplicationBase:Clean;Contactos_model:Clean;Contactos_data:Clean;Contactos_controller:Clean;Contactos_view:Clean;Contactos_plugin:Clean;Etiquetas:Clean;Etiquetas_Server:Clean" />
</Target>
<Target Name="Make">
<CallTarget Targets="Base:Make;GUIBase:Make;ApplicationBase:Make;Contactos_model:Make;Contactos_data:Make;Contactos_controller:Make;Contactos_view:Make;Contactos_plugin:Make;Etiquetas:Make" />
<CallTarget Targets="Base:Make;GUIBase:Make;ApplicationBase:Make;Contactos_model:Make;Contactos_data:Make;Contactos_controller:Make;Contactos_view:Make;Contactos_plugin:Make;Etiquetas:Make;Etiquetas_Server:Make" />
</Target>
<Import Condition="Exists('$(MSBuildBinPath)\Borland.Group.Targets')" Project="$(MSBuildBinPath)\Borland.Group.Targets" />
</Project>

18
Source/Modulos/Contactos/Controller/Contactos_controller.dpk
View File

@ -38,7 +38,17 @@ requires
vclx,
vclactnband,
designide,
ccpackD11;
ccpackD11,
dbrtl,
cxLibraryD11,
dxThemeD11,
dxGDIPlusD11,
dxCoreD11,
RemObjects_Core_D11,
DataAbstract_Core_D11,
vcldb,
dsnap,
adortl;
contains
uContactosController in 'uContactosController.pas',
@ -58,6 +68,10 @@ contains
uPersonalContactoController in 'uPersonalContactoController.pas',
uIEditorDireccionContacto in 'View\uIEditorDireccionContacto.pas',
uIEditorDatoBancarioContacto in 'View\uIEditorDatoBancarioContacto.pas',
uIEditorPersonalContacto in 'View\uIEditorPersonalContacto.pas';
uIEditorPersonalContacto in 'View\uIEditorPersonalContacto.pas',
uDoctoresController in 'uDoctoresController.pas',
uIEditorDoctores in 'View\uIEditorDoctores.pas',
uPabellonesController in 'uPabellonesController.pas',
uIEditorPabellones in 'View\uIEditorPabellones.pas';
end.

23
Source/Modulos/Contactos/Controller/Contactos_controller.dproj
View File

@ -54,6 +54,15 @@
@ -74,33 +83,47 @@
<DCCReference Include="uContactosController.pas" />
<DCCReference Include="uDatosBancariosContactoController.pas" />
<DCCReference Include="uDireccionesContactoController.pas" />
<DCCReference Include="uDoctoresController.pas" />
<DCCReference Include="uEtiquetasContactosReportController.pas" />
<DCCReference Include="uFichasPacienteReportController.pas" />
<DCCReference Include="uPabellonesController.pas" />
<DCCReference Include="uPacientesController.pas" />
<DCCReference Include="uPersonalContactoController.pas" />
<DCCReference Include="View\adortl.dcp" />
<DCCReference Include="View\ApplicationBase.dcp" />
<DCCReference Include="View\Base.dcp" />
<DCCReference Include="View\ccpackD11.dcp" />
<DCCReference Include="View\cfpack_d11.dcp" />
<DCCReference Include="View\Contactos_data.dcp" />
<DCCReference Include="View\Contactos_model.dcp" />
<DCCReference Include="View\cxLibraryD11.dcp" />
<DCCReference Include="View\DataAbstract_Core_D11.dcp" />
<DCCReference Include="View\dbrtl.dcp" />
<DCCReference Include="View\designide.dcp" />
<DCCReference Include="View\dsnap.dcp" />
<DCCReference Include="View\dxCoreD11.dcp" />
<DCCReference Include="View\dxGDIPlusD11.dcp" />
<DCCReference Include="View\dxThemeD11.dcp" />
<DCCReference Include="View\GUIBase.dcp" />
<DCCReference Include="View\GUISDK_D11R.dcp" />
<DCCReference Include="View\RemObjects_Core_D11.dcp" />
<DCCReference Include="View\rtl.dcp" />
<DCCReference Include="View\uIEditorContacto.pas" />
<DCCReference Include="View\uIEditorContactos.pas" />
<DCCReference Include="View\uIEditorDatoBancarioContacto.pas" />
<DCCReference Include="View\uIEditorDireccionContacto.pas" />
<DCCReference Include="View\uIEditorDoctores.pas" />
<DCCReference Include="View\uIEditorElegirContactos.pas" />
<DCCReference Include="View\uIEditorElegirPacientes.pas" />
<DCCReference Include="View\uIEditorEtiquetasContactosPreview.pas" />
<DCCReference Include="View\uIEditorFichasPacientePreview.pas" />
<DCCReference Include="View\uIEditorPabellones.pas" />
<DCCReference Include="View\uIEditorPaciente.pas" />
<DCCReference Include="View\uIEditorPacientes.pas" />
<DCCReference Include="View\uIEditorPersonalContacto.pas" />
<DCCReference Include="View\vcl.dcp" />
<DCCReference Include="View\vclactnband.dcp" />
<DCCReference Include="View\vcldb.dcp" />
<DCCReference Include="View\vclx.dcp" />
<DCCReference Include="View\xmlrtl.dcp" />
</ItemGroup>

23
Source/Modulos/Contactos/Controller/View/uIEditorDoctores.pas Normal file
View File

@ -0,0 +1,23 @@
unit uIEditorDoctores;
interface
uses
uEditorDBBase, uBizDoctores, uDoctoresController;
type
IEditorDoctores = interface(IEditorDBBase)
['{E4FD5FEA-9771-40FD-AC69-600BE859ECCE}']
function GetDoctores: IBizDoctor;
procedure SetDoctores(const Value: IBizDoctor);
property Doctores: IBizDoctor read GetDoctores write SetDoctores;
function GetController : IDoctoresController;
procedure SetController (const Value : IDoctoresController);
property Controller : IDoctoresController read GetController write SetController;
end;
implementation
end.

23
Source/Modulos/Contactos/Controller/View/uIEditorPabellones.pas Normal file
View File

@ -0,0 +1,23 @@
unit uIEditorPabellones;
interface
uses
uEditorDBBase, uBizPabellones, uPabellonesController;
type
IEditorPabellones = interface(IEditorDBBase)
['{022A7745-22FA-4BD4-A913-6990B3886F96}']
function GetPabellones: IBizPabellon;
procedure SetPabellones(const Value: IBizPabellon);
property Pabellones: IBizPabellon read GetPabellones write SetPabellones;
function GetController : IPabellonesController;
procedure SetController (const Value : IPabellonesController);
property Controller : IPabellonesController read GetController write SetController;
end;
implementation
end.

219
Source/Modulos/Contactos/Controller/uDoctoresController.pas Normal file
View File

@ -0,0 +1,219 @@
unit uDoctoresController;
interface
uses
Classes, SysUtils, uDADataTable, uEditorDBItem,
uIDataModulePacientes, uBizDoctores, uControllerBase;
type
IDoctoresController = interface(IControllerBase)
['{9466E214-61F1-4ACB-8432-52C946363D2A}']
function BuscarTodos: IBizDoctor;
procedure VerTodos(ADoctores: IBizDoctor);
procedure Anadir(ADoctores : IBizDoctor);
function Eliminar(ADoctores : IBizDoctor): Boolean;
function Guardar(ADoctores : IBizDoctor): Boolean;
procedure DescartarCambios(ADoctores : IBizDoctor);
function Localizar(ADoctores: IBizDoctor; ADescripcion:String): Boolean;
function DarListaDoctores: TStringList;
end;
TDoctoresController = class(TControllerBase, IDoctoresController)
protected
FDataModule : IDataModulePacientes;
procedure RecibirAviso(ASujeto: ISujeto; ADataTable: IDAStronglyTypedDataTable); override;
function CreateEditor(const AName : String; const IID: TGUID; out Intf): Boolean;
function ValidarDoctor(ADoctores: IBizDoctor): Boolean;
procedure AsignarDataModule; virtual;
public
constructor Create; override;
destructor Destroy; override;
function Eliminar(ADoctores : IBizDoctor): Boolean;
function Guardar(ADoctores : IBizDoctor): Boolean;
procedure DescartarCambios(ADoctores : IBizDoctor); virtual;
procedure Anadir(ADoctores : IBizDoctor);
function BuscarTodos: IBizDoctor;
procedure VerTodos(ADoctores: IBizDoctor);
function Localizar(ADoctores: IBizDoctor; ADescripcion:String): Boolean;
function DarListaDoctores: TStringList;
end;
implementation
uses
cxControls, DB, uEditorRegistryUtils,
uIEditorDoctores, uDataModulePacientes,
uDAInterfaces, uDataTableUtils,
uDateUtils, uROTypes, DateUtils, Controls, Windows, schContactosClient_Intf;
{ TDoctoresController }
procedure TDoctoresController.Anadir(ADoctores: IBizDoctor);
begin
ADoctores.Insert;
end;
procedure TDoctoresController.AsignarDataModule;
begin
FDataModule := TDataModulePacientes.Create(Nil);
end;
function TDoctoresController.BuscarTodos: IBizDoctor;
begin
Result := FDataModule.GetDoctores;
end;
constructor TDoctoresController.Create;
begin
inherited;
AsignarDataModule;
end;
function TDoctoresController.CreateEditor(const AName: String; const IID: TGUID; out Intf): Boolean;
begin
Result := Supports(EditorRegistry.CreateEditor(AName), IID, Intf);
end;
function TDoctoresController.DarListaDoctores: TStringList;
var
ADoctores: IBizDoctor;
begin
ADoctores := BuscarTodos;
ADoctores.DataTable.Active := True;
Result := TStringList.Create;
try
with Result do
begin
ADoctores.DataTable.First;
while not ADoctores.DataTable.EOF do
begin
Add(ADoctores.DESCRIPCION);
ADoctores.DataTable.Next;
end;
end;
finally
ADoctores := NIL;
end;
end;
procedure TDoctoresController.DescartarCambios(ADoctores: IBizDoctor);
begin
if not Assigned(ADoctores) then
raise Exception.Create ('Doctores no asignado');
ShowHourglassCursor;
try
if (ADoctores.State in dsEditModes) then
ADoctores.Cancel;
ADoctores.DataTable.CancelUpdates;
finally
HideHourglassCursor;
end;
end;
destructor TDoctoresController.Destroy;
begin
FDataModule := Nil;
inherited;
end;
function TDoctoresController.ValidarDoctor(ADoctores: IBizDoctor): Boolean;
begin
if not Assigned(ADoctores) then
raise Exception.Create ('Doctores no asignada');
if (ADoctores.DataTable.State in dsEditModes) then
ADoctores.DataTable.Post;
if Length(ADoctores.DESCRIPCION) = 0 then
raise Exception.Create('Debe indicar al menos nombre del doctor.');
Result := True;
end;
procedure TDoctoresController.VerTodos(ADoctores: IBizDoctor);
var
AEditor : IEditorDoctores;
begin
AEditor := NIL;
CreateEditor('EditorDoctores', IEditorDoctores, AEditor);
if Assigned(AEditor) then
try
AEditor.Controller := Self; //OJO ORDEN MUY IMPORTANTE
AEditor.Doctores := ADoctores;
AEditor.ShowModal;
finally
AEditor.Release;
AEditor := NIL;
end;
end;
function TDoctoresController.Eliminar(ADoctores: IBizDoctor): Boolean;
begin
if not Assigned(ADoctores) then
raise Exception.Create ('ADoctores no asignada');
ShowHourglassCursor;
try
if (ADoctores.State in dsEditModes) then
ADoctores.Cancel;
ADoctores.Delete;
ADoctores.DataTable.ApplyUpdates;
HideHourglassCursor;
Result := True;
finally
HideHourglassCursor;
end;
end;
procedure TDoctoresController.RecibirAviso(ASujeto: ISujeto; ADataTable: IDAStronglyTypedDataTable);
begin
inherited;
//
end;
function TDoctoresController.Guardar(ADoctores: IBizDoctor): Boolean;
begin
Result := False;
if ValidarDoctor(ADoctores) then
begin
ShowHourglassCursor;
try
if (ADoctores.DataTable.State in dsEditModes) then
ADoctores.DataTable.Post;
ADoctores.DataTable.ApplyUpdates;
Result := True;
finally
HideHourglassCursor;
end;
end;
end;
function TDoctoresController.Localizar(ADoctores: IBizDoctor; ADescripcion: String): Boolean;
begin
Result := True;
ShowHourglassCursor;
try
with ADoctores.DataTable do
begin
DisableControls;
First;
if not Locate(fld_DoctoresDESCRIPCION, ADescripcion, []) then
Result := False;
EnableControls;
end;
finally
HideHourglassCursor;
end;
end;
end.

219
Source/Modulos/Contactos/Controller/uPabellonesController.pas Normal file
View File

@ -0,0 +1,219 @@
unit uPabellonesController;
interface
uses
Classes, SysUtils, uDADataTable, uEditorDBItem,
uIDataModulePacientes, uBizPabellones, uControllerBase;
type
IPabellonesController = interface(IControllerBase)
['{DF1530A1-EB37-4DBB-8888-EBE1E06D4141}']
function BuscarTodos: IBizPabellon;
procedure VerTodos(APabellones: IBizPabellon);
procedure Anadir(APabellones : IBizPabellon);
function Eliminar(APabellones : IBizPabellon): Boolean;
function Guardar(APabellones : IBizPabellon): Boolean;
procedure DescartarCambios(APabellones : IBizPabellon);
function Localizar(APabellones: IBizPabellon; ADescripcion:String): Boolean;
function DarListaPabellones: TStringList;
end;
TPabellonesController = class(TControllerBase, IPabellonesController)
protected
FDataModule : IDataModulePacientes;
procedure RecibirAviso(ASujeto: ISujeto; ADataTable: IDAStronglyTypedDataTable); override;
function CreateEditor(const AName : String; const IID: TGUID; out Intf): Boolean;
function ValidarPabellon(APabellones: IBizPabellon): Boolean;
procedure AsignarDataModule; virtual;
public
constructor Create; override;
destructor Destroy; override;
function Eliminar(APabellones : IBizPabellon): Boolean;
function Guardar(APabellones : IBizPabellon): Boolean;
procedure DescartarCambios(APabellones : IBizPabellon); virtual;
procedure Anadir(APabellones : IBizPabellon);
function BuscarTodos: IBizPabellon;
procedure VerTodos(APabellones: IBizPabellon);
function Localizar(APabellones: IBizPabellon; ADescripcion:String): Boolean;
function DarListaPabellones: TStringList;
end;
implementation
uses
cxControls, DB, uEditorRegistryUtils,
uIEditorPabellones, uDataModulePacientes,
uDAInterfaces, uDataTableUtils,
uDateUtils, uROTypes, DateUtils, Controls, Windows, schContactosClient_Intf;
{ TPabellonesController }
procedure TPabellonesController.Anadir(APabellones: IBizPabellon);
begin
APabellones.Insert;
end;
procedure TPabellonesController.AsignarDataModule;
begin
FDataModule := TDataModulePacientes.Create(Nil);
end;
function TPabellonesController.BuscarTodos: IBizPabellon;
begin
Result := FDataModule.GetPabellones;
end;
constructor TPabellonesController.Create;
begin
inherited;
AsignarDataModule;
end;
function TPabellonesController.CreateEditor(const AName: String; const IID: TGUID; out Intf): Boolean;
begin
Result := Supports(EditorRegistry.CreateEditor(AName), IID, Intf);
end;
function TPabellonesController.DarListaPabellones: TStringList;
var
APabellones: IBizPabellon;
begin
APabellones := BuscarTodos;
APabellones.DataTable.Active := True;
Result := TStringList.Create;
try
with Result do
begin
APabellones.DataTable.First;
while not APabellones.DataTable.EOF do
begin
Add(APabellones.DESCRIPCION);
APabellones.DataTable.Next;
end;
end;
finally
APabellones := NIL;
end;
end;
procedure TPabellonesController.DescartarCambios(APabellones: IBizPabellon);
begin
if not Assigned(APabellones) then
raise Exception.Create ('Pabellones no asignado');
ShowHourglassCursor;
try
if (APabellones.State in dsEditModes) then
APabellones.Cancel;
APabellones.DataTable.CancelUpdates;
finally
HideHourglassCursor;
end;
end;
destructor TPabellonesController.Destroy;
begin
FDataModule := Nil;
inherited;
end;
function TPabellonesController.ValidarPabellon(APabellones: IBizPabellon): Boolean;
begin
if not Assigned(APabellones) then
raise Exception.Create ('Pabellones no asignada');
if (APabellones.DataTable.State in dsEditModes) then
APabellones.DataTable.Post;
if Length(APabellones.DESCRIPCION) = 0 then
raise Exception.Create('Debe indicar al menos nombre del pabellón.');
Result := True;
end;
procedure TPabellonesController.VerTodos(APabellones: IBizPabellon);
var
AEditor : IEditorPabellones;
begin
AEditor := NIL;
CreateEditor('EditorPabellones', IEditorPabellones, AEditor);
if Assigned(AEditor) then
try
AEditor.Controller := Self; //OJO ORDEN MUY IMPORTANTE
AEditor.Pabellones := APabellones;
AEditor.ShowModal;
finally
AEditor.Release;
AEditor := NIL;
end;
end;
function TPabellonesController.Eliminar(APabellones: IBizPabellon): Boolean;
begin
if not Assigned(APabellones) then
raise Exception.Create ('APabellones no asignada');
ShowHourglassCursor;
try
if (APabellones.State in dsEditModes) then
APabellones.Cancel;
APabellones.Delete;
APabellones.DataTable.ApplyUpdates;
HideHourglassCursor;
Result := True;
finally
HideHourglassCursor;
end;
end;
procedure TPabellonesController.RecibirAviso(ASujeto: ISujeto; ADataTable: IDAStronglyTypedDataTable);
begin
inherited;
//
end;
function TPabellonesController.Guardar(APabellones: IBizPabellon): Boolean;
begin
Result := False;
if ValidarPabellon(APabellones) then
begin
ShowHourglassCursor;
try
if (APabellones.DataTable.State in dsEditModes) then
APabellones.DataTable.Post;
APabellones.DataTable.ApplyUpdates;
Result := True;
finally
HideHourglassCursor;
end;
end;
end;
function TPabellonesController.Localizar(APabellones: IBizPabellon; ADescripcion: String): Boolean;
begin
Result := True;
ShowHourglassCursor;
try
with APabellones.DataTable do
begin
DisableControls;
First;
if not Locate(fld_PabellonesDESCRIPCION, ADescripcion, []) then
Result := False;
EnableControls;
end;
finally
HideHourglassCursor;
end;
end;
end.

234
Source/Modulos/Contactos/Data/uDataModulePacientes.dfm
View File

@ -1,164 +1,6 @@
inherited DataModulePacientes: TDataModulePacientes
Height = 302
Width = 543
inherited tbl_Contactos: TDAMemDataTable
Fields = <
item
Name = 'ID'
DataType = datAutoInc
GeneratorName = 'GEN_CONTACTOS_ID'
ServerAutoRefresh = True
DictionaryEntry = 'Contactos_ID'
InPrimaryKey = True
end
item
Name = 'ID_CATEGORIA'
DataType = datInteger
end
item
Name = 'NIF_CIF'
DataType = datString
Size = 15
DisplayLabel = 'NIF/CIF'
DictionaryEntry = 'Contactos_NIF_CIF'
end
item
Name = 'NOMBRE'
DataType = datString
Size = 255
Required = True
DisplayLabel = 'Nombre'
DictionaryEntry = 'Contactos_NOMBRE'
end
item
Name = 'PERSONA_CONTACTO'
DataType = datString
Size = 255
DisplayLabel = 'Persona de contacto'
DictionaryEntry = 'Contactos_PERSONA_CONTACTO'
end
item
Name = 'CALLE'
DataType = datString
Size = 255
DisplayLabel = 'Direcci'#243'n'
DictionaryEntry = 'Contactos_CALLE'
end
item
Name = 'POBLACION'
DataType = datString
Size = 255
DisplayLabel = 'Poblaci'#243'n'
DictionaryEntry = 'Contactos_POBLACION'
end
item
Name = 'PROVINCIA'
DataType = datString
Size = 255
DisplayLabel = 'Provincia'
DictionaryEntry = 'Contactos_PROVINCIA'
end
item
Name = 'CODIGO_POSTAL'
DataType = datString
Size = 10
DisplayLabel = 'C'#243'digo postal'
DictionaryEntry = 'Contactos_CODIGO_POSTAL'
end
item
Name = 'TELEFONO_1'
DataType = datString
Size = 25
DisplayLabel = 'Tlf. trabajo'
DictionaryEntry = 'Contactos_TELEFONO_1'
end
item
Name = 'TELEFONO_2'
DataType = datString
Size = 25
DisplayLabel = 'Tlf. particular'
DictionaryEntry = 'Contactos_TELEFONO_2'
end
item
Name = 'MOVIL_1'
DataType = datString
Size = 25
DisplayLabel = 'M'#243'vil'
DictionaryEntry = 'Contactos_MOVIL_1'
end
item
Name = 'MOVIL_2'
DataType = datString
Size = 25
DictionaryEntry = 'Contactos_MOVIL_2'
end
item
Name = 'FAX'
DataType = datString
Size = 25
DisplayLabel = 'Fax'
DictionaryEntry = 'Contactos_FAX'
end
item
Name = 'EMAIL_1'
DataType = datString
Size = 255
DisplayLabel = 'E-mail trabajo'
DictionaryEntry = 'Contactos_EMAIL_1'
end
item
Name = 'EMAIL_2'
DataType = datString
Size = 255
DisplayLabel = 'E-mail particular'
DictionaryEntry = 'Contactos_EMAIL_2'
end
item
Name = 'PAGINA_WEB'
DataType = datString
Size = 255
DisplayLabel = 'Web'
DictionaryEntry = 'Contactos_PAGINA_WEB'
end
item
Name = 'NOTAS'
DataType = datMemo
BlobType = dabtMemo
DisplayLabel = 'Observaciones'
DictionaryEntry = 'Contactos_NOTAS'
end
item
Name = 'FECHA_ALTA'
DataType = datDateTime
DisplayLabel = 'Fecha de alta'
DictionaryEntry = 'Contactos_FECHA_ALTA'
end
item
Name = 'FECHA_MODIFICACION'
DataType = datDateTime
DisplayLabel = 'Fecha de modificaci'#243'n'
DictionaryEntry = 'Contactos_FECHA_MODIFICACION'
end
item
Name = 'USUARIO'
DataType = datString
Size = 20
DisplayLabel = 'Usuario'
DictionaryEntry = 'Contactos_USUARIO'
end
item
Name = 'ID_EMPRESA'
DataType = datInteger
end
item
Name = 'REFERENCIA'
DataType = datString
Size = 255
DisplayLabel = 'Referencia'
ServerAutoRefresh = True
DictionaryEntry = 'Contactos_REFERENCIA'
end>
end
inherited ds_Contactos: TDADataSource
DataSet = tbl_Contactos.Dataset
end
@ -358,6 +200,18 @@ 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
item
Name = 'DOCTOR'
DataType = datString
Size = 255
end>
Params = <>
StreamingOptions = [soDisableEventsWhileStreaming]
@ -374,4 +228,68 @@ inherited DataModulePacientes: TDataModulePacientes
Left = 296
Top = 232
end
object tbl_Doctores: TDAMemDataTable
RemoteUpdatesOptions = []
Fields = <
item
Name = 'ID'
DataType = datAutoInc
GeneratorName = 'GEN_DOCTORES_ID'
Required = True
DictionaryEntry = 'Doctores_ID'
InPrimaryKey = True
end
item
Name = 'DESCRIPCION'
DataType = datString
Size = 255
DisplayLabel = 'Doctores_DESCRIPCION'
DictionaryEntry = 'Doctores_DESCRIPCION'
end>
Params = <>
StreamingOptions = [soDisableEventsWhileStreaming]
RemoteDataAdapter = rda_Contactos
LogicalName = 'Doctores'
IndexDefs = <>
Left = 392
Top = 224
end
object ds_Doctores: TDADataSource
DataSet = tbl_Doctores.Dataset
DataTable = tbl_Doctores
Left = 392
Top = 152
end
object tbl_Pabellones: TDAMemDataTable
RemoteUpdatesOptions = []
Fields = <
item
Name = 'ID'
DataType = datAutoInc
GeneratorName = 'GEN_PABELLONES_ID'
Required = True
DictionaryEntry = 'Pabellones_ID'
InPrimaryKey = True
end
item
Name = 'DESCRIPCION'
DataType = datString
Size = 255
DisplayLabel = 'Pabellones_DESCRIPCION'
DictionaryEntry = 'Pabellones_DESCRIPCION'
end>
Params = <>
StreamingOptions = [soDisableEventsWhileStreaming]
RemoteDataAdapter = rda_Contactos
LogicalName = 'Pabellones'
IndexDefs = <>
Left = 464
Top = 224
end
object ds_Pabellones: TDADataSource
DataSet = tbl_Pabellones.Dataset
DataTable = tbl_Pabellones
Left = 464
Top = 152
end
end

36
Source/Modulos/Contactos/Data/uDataModulePacientes.pas
View File

@ -9,17 +9,23 @@ uses
uROClient, uROBinMessage, uROWinInetHttpChannel, uROTypes,
uIDataModulePacientes, uBizContactos, uDADesigntimeCall, uIDataModuleFichasPacienteReport,
uDAInterfaces, uDAMemDataTable, uDADataStreamer, uDABin2DataStreamer,
uDARemoteDataAdapter, uIntegerListUtils;
uDARemoteDataAdapter, uIntegerListUtils, uBizDoctores, uBizPabellones;
type
TDataModulePacientes = class(TDataModuleContactos, IDataModulePacientes, IDataModuleFichasPacienteReport)
tbl_Pacientes: TDAMemDataTable;
ds_Pacientes: TDADataSource;
tbl_Doctores: TDAMemDataTable;
ds_Doctores: TDADataSource;
tbl_Pabellones: TDAMemDataTable;
ds_Pabellones: TDADataSource;
protected
public
function GetItem(const ID : Integer) : IBizPaciente;
function NewItem : IBizPaciente;
function GetItems : IBizPaciente;
function GetDoctores : IBizDoctor;
function GetPabellones : IBizPabellon;
// Report
function GetReport(const ListaID: TIntegerList): Binary;
@ -36,6 +42,20 @@ uses
{ TDataModuleVendedores }
function TDataModulePacientes.GetDoctores: IBizDoctor;
var
ADoctor : TDAMemDataTable;
begin
ShowHourglassCursor;
try
ADoctor := CloneDataTable(tbl_Doctores);
ADoctor.BusinessRulesID := BIZ_CLIENT_DOCTORES;
Result := (ADoctor as IBizDoctor);
finally
HideHourglassCursor;
end;
end;
function TDataModulePacientes.GetItem(const ID: Integer): IBizPaciente;
var
Condicion: TDAWhereExpression;
@ -80,6 +100,20 @@ begin
end;
end;
function TDataModulePacientes.GetPabellones: IBizPabellon;
var
APabellon : TDAMemDataTable;
begin
ShowHourglassCursor;
try
APabellon := CloneDataTable(tbl_Pabellones);
APabellon.BusinessRulesID := BIZ_CLIENT_PABELLONES;
Result := (APabellon as IBizPabellon);
finally
HideHourglassCursor;
end;
end;
function TDataModulePacientes.GetReport(const ListaID: TIntegerList): Binary;
var
AParam : TIntegerArray;

4
Source/Modulos/Contactos/Model/Contactos_model.dpk
View File

@ -46,6 +46,8 @@ contains
schContactosClient_Intf in 'schContactosClient_Intf.pas',
uBizContactosPersonal in 'uBizContactosPersonal.pas',
uIDataModulePacientes in 'Data\uIDataModulePacientes.pas',
uIDataModuleFichasPacienteReport in 'Data\uIDataModuleFichasPacienteReport.pas';
uIDataModuleFichasPacienteReport in 'Data\uIDataModuleFichasPacienteReport.pas',
uBizDoctores in 'uBizDoctores.pas',
uBizPabellones in 'uBizPabellones.pas';
end.

24
Source/Modulos/Contactos/Model/Contactos_model.dproj
View File

@ -49,15 +49,10 @@
<DelphiCompile Include="Contactos_model.dpk">
<MainSource>MainSource</MainSource>
</DelphiCompile>
<DCCReference Include="Data\adortl.dcp" />
<DCCReference Include="Data\ApplicationBase.dcp" />
<DCCReference Include="Data\Base.dcp" />
<DCCReference Include="Data\DataAbstract_Core_D11.dcp" />
<DCCReference Include="Data\dbrtl.dcp" />
<DCCReference Include="Data\dsnap.dcp" />
<DCCReference Include="Data\GUIBase.dcp" />
<DCCReference Include="Data\RemObjects_Core_D11.dcp" />
<DCCReference Include="Data\rtl.dcp" />
<DCCReference Include="adortl.dcp" />
<DCCReference Include="ApplicationBase.dcp" />
<DCCReference Include="Base.dcp" />
<DCCReference Include="DataAbstract_Core_D11.dcp" />
<DCCReference Include="Data\uIDataModuleClientes.pas" />
<DCCReference Include="Data\uIDataModuleContactos.pas" />
<DCCReference Include="Data\uIDataModuleEmpleados.pas" />
@ -67,14 +62,21 @@
<DCCReference Include="Data\uIDataModuleFichasPacienteReport.pas" />
<DCCReference Include="Data\uIDataModulePacientes.pas" />
<DCCReference Include="Data\uIDataModuleProveedores.pas" />
<DCCReference Include="Data\vcl.dcp" />
<DCCReference Include="Data\vcldb.dcp" />
<DCCReference Include="dbrtl.dcp" />
<DCCReference Include="dsnap.dcp" />
<DCCReference Include="GUIBase.dcp" />
<DCCReference Include="RemObjects_Core_D11.dcp" />
<DCCReference Include="rtl.dcp" />
<DCCReference Include="schContactosClient_Intf.pas" />
<DCCReference Include="uBizClientesDescuentos.pas" />
<DCCReference Include="uBizContactos.pas" />
<DCCReference Include="uBizContactosDatosBancarios.pas" />
<DCCReference Include="uBizContactosPersonal.pas" />
<DCCReference Include="uBizDireccionesContacto.pas" />
<DCCReference Include="uBizDoctores.pas" />
<DCCReference Include="uBizPabellones.pas" />
<DCCReference Include="vcl.dcp" />
<DCCReference Include="vcldb.dcp" />
</ItemGroup>
</Project>
<!-- EurekaLog First Line

4
Source/Modulos/Contactos/Model/Data/uIDataModulePacientes.pas
View File

@ -3,7 +3,7 @@ unit uIDataModulePacientes;
interface
uses
Classes, uBizContactos, uIDataModuleContactos;
Classes, uBizContactos, uBizPabellones, uBizDoctores, uIDataModuleContactos;
type
IDataModulePacientes = interface(IDataModuleContactos)
@ -11,6 +11,8 @@ type
function GetItem(const ID : Integer) : IBizPaciente;
function NewItem : IBizPaciente;
function GetItems : IBizPaciente;
function GetDoctores : IBizDoctor;
function GetPabellones : IBizPabellon;
end;

318
Source/Modulos/Contactos/Model/schContactosClient_Intf.pas
View File

@ -9,20 +9,32 @@ 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_Doctores = '{3E864983-DD64-4EF4-863D-102054B62696}';
RID_Contactos = '{800D9A48-9505-488D-9916-B7BB8BD82112}';
RID_DatosBancarios = '{2048E5AC-046F-4566-A3DF-E87462F9E3AF}';
RID_DireccionesContacto = '{3AB9D632-7707-46B9-95D0-8DC4C18AF3BE}';
RID_Contactos_Refresh = '{249235DA-FBCE-4F06-AD88-53B2628C621F}';
RID_PersonalContacto = '{51CB7C5A-2FAD-42A7-B8F7-F78CB67397D5}';
RID_Pacientes = '{A4D929A2-E324-4F40-8D50-1A3574A721A9}';
RID_Pabellones = '{F7AB3D3F-62A2-4D0A-AD78-D0C5A3BBE902}';
{ Data table names }
nme_Doctores = 'Doctores';
nme_Contactos = 'Contactos';
nme_DatosBancarios = 'DatosBancarios';
nme_DireccionesContacto = 'DireccionesContacto';
nme_Contactos_Refresh = 'Contactos_Refresh';
nme_PersonalContacto = 'PersonalContacto';
nme_Pacientes = 'Pacientes';
nme_Pabellones = 'Pabellones';
{ Doctores fields }
fld_DoctoresID = 'ID';
fld_DoctoresDESCRIPCION = 'DESCRIPCION';
{ Doctores field indexes }
idx_DoctoresID = 0;
idx_DoctoresDESCRIPCION = 1;
{ Contactos fields }
fld_ContactosID = 'ID';
@ -230,6 +242,8 @@ const
fld_PacientesNUMERO_SS = 'NUMERO_SS';
fld_PacientesFECHA_BAJA = 'FECHA_BAJA';
fld_PacientesCAUSA_BAJA = 'CAUSA_BAJA';
fld_PacientesPABELLON = 'PABELLON';
fld_PacientesDOCTOR = 'DOCTOR';
{ Pacientes field indexes }
idx_PacientesID = 0;
@ -259,11 +273,68 @@ const
idx_PacientesNUMERO_SS = 24;
idx_PacientesFECHA_BAJA = 25;
idx_PacientesCAUSA_BAJA = 26;
idx_PacientesPABELLON = 27;
idx_PacientesDOCTOR = 28;
{ Pabellones fields }
fld_PabellonesID = 'ID';
fld_PabellonesDESCRIPCION = 'DESCRIPCION';
{ Pabellones field indexes }
idx_PabellonesID = 0;
idx_PabellonesDESCRIPCION = 1;
type
{ IDoctores }
IDoctores = interface(IDAStronglyTypedDataTable)
['{20A25966-2B21-407F-935A-1C1065115FB5}']
{ Property getters and setters }
function GetIDValue: Integer;
procedure SetIDValue(const aValue: Integer);
function GetIDIsNull: Boolean;
procedure SetIDIsNull(const aValue: Boolean);
function GetDESCRIPCIONValue: String;
procedure SetDESCRIPCIONValue(const aValue: String);
function GetDESCRIPCIONIsNull: Boolean;
procedure SetDESCRIPCIONIsNull(const aValue: Boolean);
{ Properties }
property ID: Integer read GetIDValue write SetIDValue;
property IDIsNull: Boolean read GetIDIsNull write SetIDIsNull;
property DESCRIPCION: String read GetDESCRIPCIONValue write SetDESCRIPCIONValue;
property DESCRIPCIONIsNull: Boolean read GetDESCRIPCIONIsNull write SetDESCRIPCIONIsNull;
end;
{ TDoctoresDataTableRules }
TDoctoresDataTableRules = class(TIntfObjectDADataTableRules, IDoctores)
private
protected
{ Property getters and setters }
function GetIDValue: Integer; virtual;
procedure SetIDValue(const aValue: Integer); virtual;
function GetIDIsNull: Boolean; virtual;
procedure SetIDIsNull(const aValue: Boolean); virtual;
function GetDESCRIPCIONValue: String; virtual;
procedure SetDESCRIPCIONValue(const aValue: String); virtual;
function GetDESCRIPCIONIsNull: Boolean; virtual;
procedure SetDESCRIPCIONIsNull(const aValue: Boolean); virtual;
{ Properties }
property ID: Integer read GetIDValue write SetIDValue;
property IDIsNull: Boolean read GetIDIsNull write SetIDIsNull;
property DESCRIPCION: String read GetDESCRIPCIONValue write SetDESCRIPCIONValue;
property DESCRIPCIONIsNull: Boolean read GetDESCRIPCIONIsNull write SetDESCRIPCIONIsNull;
public
constructor Create(aDataTable: TDADataTable); override;
destructor Destroy; override;
end;
{ IContactos }
IContactos = interface(IDAStronglyTypedDataTable)
['{4715D51C-E2CA-4681-A8D0-00C4D39998C2}']
['{FD6C799E-E833-4CD0-8F25-6B6A162BC497}']
{ Property getters and setters }
function GetIDValue: Integer;
procedure SetIDValue(const aValue: Integer);
@ -562,7 +633,7 @@ type
{ IDatosBancarios }
IDatosBancarios = interface(IDAStronglyTypedDataTable)
['{2EDD196A-1D34-4D7C-935F-CB826481A239}']
['{A4C96A58-18CA-4E43-9754-3126339A2887}']
{ Property getters and setters }
function GetIDValue: Integer;
procedure SetIDValue(const aValue: Integer);
@ -693,7 +764,7 @@ type
{ IDireccionesContacto }
IDireccionesContacto = interface(IDAStronglyTypedDataTable)
['{2EED47E1-39B7-4CE9-BE6F-344BF36E87EB}']
['{C560BCEA-DD5C-4E7C-9CF9-CA3C85F125A1}']
{ Property getters and setters }
function GetIDValue: Integer;
procedure SetIDValue(const aValue: Integer);
@ -908,7 +979,7 @@ type
{ IContactos_Refresh }
IContactos_Refresh = interface(IDAStronglyTypedDataTable)
['{E5FB283A-1D58-4412-89CC-E1777D95EA61}']
['{A0564370-4FA9-4661-B772-CCFDB39796DC}']
{ Property getters and setters }
function GetIDValue: Integer;
procedure SetIDValue(const aValue: Integer);
@ -1183,7 +1254,7 @@ type
{ IPersonalContacto }
IPersonalContacto = interface(IDAStronglyTypedDataTable)
['{CDB935C3-8418-4662-A66E-893F5FB17B93}']
['{75C4175C-04F7-4257-B046-13DBEAF4D107}']
{ Property getters and setters }
function GetIDValue: Integer;
procedure SetIDValue(const aValue: Integer);
@ -1326,7 +1397,7 @@ type
{ IPacientes }
IPacientes = interface(IDAStronglyTypedDataTable)
['{009AD5B4-19B8-41CD-9779-9D61C3F53CC0}']
['{11E360A2-9838-4DE0-9986-A1D6F55481C7}']
{ Property getters and setters }
function GetIDValue: Integer;
procedure SetIDValue(const aValue: Integer);
@ -1435,6 +1506,14 @@ 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);
function GetDOCTORValue: String;
procedure SetDOCTORValue(const aValue: String);
function GetDOCTORIsNull: Boolean;
procedure SetDOCTORIsNull(const aValue: Boolean);
{ Properties }
@ -1492,6 +1571,10 @@ 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;
property DOCTOR: String read GetDOCTORValue write SetDOCTORValue;
property DOCTORIsNull: Boolean read GetDOCTORIsNull write SetDOCTORIsNull;
end;
{ TPacientesDataTableRules }
@ -1608,6 +1691,14 @@ 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;
function GetDOCTORValue: String; virtual;
procedure SetDOCTORValue(const aValue: String); virtual;
function GetDOCTORIsNull: Boolean; virtual;
procedure SetDOCTORIsNull(const aValue: Boolean); virtual;
{ Properties }
property ID: Integer read GetIDValue write SetIDValue;
@ -1664,6 +1755,57 @@ 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;
property DOCTOR: String read GetDOCTORValue write SetDOCTORValue;
property DOCTORIsNull: Boolean read GetDOCTORIsNull write SetDOCTORIsNull;
public
constructor Create(aDataTable: TDADataTable); override;
destructor Destroy; override;
end;
{ IPabellones }
IPabellones = interface(IDAStronglyTypedDataTable)
['{F58D0C7F-9592-43BD-93AF-ADDDE32CEF3F}']
{ Property getters and setters }
function GetIDValue: Integer;
procedure SetIDValue(const aValue: Integer);
function GetIDIsNull: Boolean;
procedure SetIDIsNull(const aValue: Boolean);
function GetDESCRIPCIONValue: String;
procedure SetDESCRIPCIONValue(const aValue: String);
function GetDESCRIPCIONIsNull: Boolean;
procedure SetDESCRIPCIONIsNull(const aValue: Boolean);
{ Properties }
property ID: Integer read GetIDValue write SetIDValue;
property IDIsNull: Boolean read GetIDIsNull write SetIDIsNull;
property DESCRIPCION: String read GetDESCRIPCIONValue write SetDESCRIPCIONValue;
property DESCRIPCIONIsNull: Boolean read GetDESCRIPCIONIsNull write SetDESCRIPCIONIsNull;
end;
{ TPabellonesDataTableRules }
TPabellonesDataTableRules = class(TIntfObjectDADataTableRules, IPabellones)
private
protected
{ Property getters and setters }
function GetIDValue: Integer; virtual;
procedure SetIDValue(const aValue: Integer); virtual;
function GetIDIsNull: Boolean; virtual;
procedure SetIDIsNull(const aValue: Boolean); virtual;
function GetDESCRIPCIONValue: String; virtual;
procedure SetDESCRIPCIONValue(const aValue: String); virtual;
function GetDESCRIPCIONIsNull: Boolean; virtual;
procedure SetDESCRIPCIONIsNull(const aValue: Boolean); virtual;
{ Properties }
property ID: Integer read GetIDValue write SetIDValue;
property IDIsNull: Boolean read GetIDIsNull write SetIDIsNull;
property DESCRIPCION: String read GetDESCRIPCIONValue write SetDESCRIPCIONValue;
property DESCRIPCIONIsNull: Boolean read GetDESCRIPCIONIsNull write SetDESCRIPCIONIsNull;
public
constructor Create(aDataTable: TDADataTable); override;
@ -1675,6 +1817,60 @@ implementation
uses Variants, uROBinaryHelpers;
{ TDoctoresDataTableRules }
constructor TDoctoresDataTableRules.Create(aDataTable: TDADataTable);
begin
inherited;
end;
destructor TDoctoresDataTableRules.Destroy;
begin
inherited;
end;
function TDoctoresDataTableRules.GetIDValue: Integer;
begin
result := DataTable.Fields[idx_DoctoresID].AsInteger;
end;
procedure TDoctoresDataTableRules.SetIDValue(const aValue: Integer);
begin
DataTable.Fields[idx_DoctoresID].AsInteger := aValue;
end;
function TDoctoresDataTableRules.GetIDIsNull: boolean;
begin
result := DataTable.Fields[idx_DoctoresID].IsNull;
end;
procedure TDoctoresDataTableRules.SetIDIsNull(const aValue: Boolean);
begin
if aValue then
DataTable.Fields[idx_DoctoresID].AsVariant := Null;
end;
function TDoctoresDataTableRules.GetDESCRIPCIONValue: String;
begin
result := DataTable.Fields[idx_DoctoresDESCRIPCION].AsString;
end;
procedure TDoctoresDataTableRules.SetDESCRIPCIONValue(const aValue: String);
begin
DataTable.Fields[idx_DoctoresDESCRIPCION].AsString := aValue;
end;
function TDoctoresDataTableRules.GetDESCRIPCIONIsNull: boolean;
begin
result := DataTable.Fields[idx_DoctoresDESCRIPCION].IsNull;
end;
procedure TDoctoresDataTableRules.SetDESCRIPCIONIsNull(const aValue: Boolean);
begin
if aValue then
DataTable.Fields[idx_DoctoresDESCRIPCION].AsVariant := Null;
end;
{ TContactosDataTableRules }
constructor TContactosDataTableRules.Create(aDataTable: TDADataTable);
var
@ -4000,13 +4196,111 @@ 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;
function TPacientesDataTableRules.GetDOCTORValue: String;
begin
result := DataTable.Fields[idx_PacientesDOCTOR].AsString;
end;
procedure TPacientesDataTableRules.SetDOCTORValue(const aValue: String);
begin
DataTable.Fields[idx_PacientesDOCTOR].AsString := aValue;
end;
function TPacientesDataTableRules.GetDOCTORIsNull: boolean;
begin
result := DataTable.Fields[idx_PacientesDOCTOR].IsNull;
end;
procedure TPacientesDataTableRules.SetDOCTORIsNull(const aValue: Boolean);
begin
if aValue then
DataTable.Fields[idx_PacientesDOCTOR].AsVariant := Null;
end;
{ TPabellonesDataTableRules }
constructor TPabellonesDataTableRules.Create(aDataTable: TDADataTable);
begin
inherited;
end;
destructor TPabellonesDataTableRules.Destroy;
begin
inherited;
end;
function TPabellonesDataTableRules.GetIDValue: Integer;
begin
result := DataTable.Fields[idx_PabellonesID].AsInteger;
end;
procedure TPabellonesDataTableRules.SetIDValue(const aValue: Integer);
begin
DataTable.Fields[idx_PabellonesID].AsInteger := aValue;
end;
function TPabellonesDataTableRules.GetIDIsNull: boolean;
begin
result := DataTable.Fields[idx_PabellonesID].IsNull;
end;
procedure TPabellonesDataTableRules.SetIDIsNull(const aValue: Boolean);
begin
if aValue then
DataTable.Fields[idx_PabellonesID].AsVariant := Null;
end;
function TPabellonesDataTableRules.GetDESCRIPCIONValue: String;
begin
result := DataTable.Fields[idx_PabellonesDESCRIPCION].AsString;
end;
procedure TPabellonesDataTableRules.SetDESCRIPCIONValue(const aValue: String);
begin
DataTable.Fields[idx_PabellonesDESCRIPCION].AsString := aValue;
end;
function TPabellonesDataTableRules.GetDESCRIPCIONIsNull: boolean;
begin
result := DataTable.Fields[idx_PabellonesDESCRIPCION].IsNull;
end;
procedure TPabellonesDataTableRules.SetDESCRIPCIONIsNull(const aValue: Boolean);
begin
if aValue then
DataTable.Fields[idx_PabellonesDESCRIPCION].AsVariant := Null;
end;
initialization
RegisterDataTableRules(RID_Doctores, TDoctoresDataTableRules);
RegisterDataTableRules(RID_Contactos, TContactosDataTableRules);
RegisterDataTableRules(RID_DatosBancarios, TDatosBancariosDataTableRules);
RegisterDataTableRules(RID_DireccionesContacto, TDireccionesContactoDataTableRules);
RegisterDataTableRules(RID_Contactos_Refresh, TContactos_RefreshDataTableRules);
RegisterDataTableRules(RID_PersonalContacto, TPersonalContactoDataTableRules);
RegisterDataTableRules(RID_Pacientes, TPacientesDataTableRules);
RegisterDataTableRules(RID_Pabellones, TPabellonesDataTableRules);
end.

354
Source/Modulos/Contactos/Model/schContactosServer_Intf.pas
View File

@ -9,17 +9,65 @@ 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_DoctoresDelta = '{E89BE105-8CBA-49E3-8180-7A728C1B231C}';
RID_ContactosDelta = '{6E95CF54-C1D3-450B-9CA3-7BF11C63F0F7}';
RID_DatosBancariosDelta = '{DEA3B217-7C5B-4255-8F50-57386619D05C}';
RID_DireccionesContactoDelta = '{4A089152-E5D3-4064-9F0F-A90AC9AE1858}';
RID_Contactos_RefreshDelta = '{73D43132-7CB1-4D1F-AB06-3AD83DF063FE}';
RID_PersonalContactoDelta = '{874E346D-3F5D-45FD-AA3C-B1FCFB39E72B}';
RID_PacientesDelta = '{15119009-9B83-49DC-96EB-D11DB1E7B5BD}';
RID_PabellonesDelta = '{D4D04445-8F70-4C11-A774-7EAEBDF45F36}';
type
{ IDoctoresDelta }
IDoctoresDelta = interface(IDoctores)
['{E89BE105-8CBA-49E3-8180-7A728C1B231C}']
{ Property getters and setters }
function GetOldIDValue : Integer;
function GetOldDESCRIPCIONValue : String;
{ Properties }
property OldID : Integer read GetOldIDValue;
property OldDESCRIPCION : String read GetOldDESCRIPCIONValue;
end;
{ TDoctoresBusinessProcessorRules }
TDoctoresBusinessProcessorRules = class(TDABusinessProcessorRules, IDoctores, IDoctoresDelta)
private
protected
{ Property getters and setters }
function GetIDValue: Integer; virtual;
function GetIDIsNull: Boolean; virtual;
function GetOldIDValue: Integer; virtual;
function GetOldIDIsNull: Boolean; virtual;
procedure SetIDValue(const aValue: Integer); virtual;
procedure SetIDIsNull(const aValue: Boolean); virtual;
function GetDESCRIPCIONValue: String; virtual;
function GetDESCRIPCIONIsNull: Boolean; virtual;
function GetOldDESCRIPCIONValue: String; virtual;
function GetOldDESCRIPCIONIsNull: Boolean; virtual;
procedure SetDESCRIPCIONValue(const aValue: String); virtual;
procedure SetDESCRIPCIONIsNull(const aValue: Boolean); virtual;
{ Properties }
property ID : Integer read GetIDValue write SetIDValue;
property IDIsNull : Boolean read GetIDIsNull write SetIDIsNull;
property OldID : Integer read GetOldIDValue;
property OldIDIsNull : Boolean read GetOldIDIsNull;
property DESCRIPCION : String read GetDESCRIPCIONValue write SetDESCRIPCIONValue;
property DESCRIPCIONIsNull : Boolean read GetDESCRIPCIONIsNull write SetDESCRIPCIONIsNull;
property OldDESCRIPCION : String read GetOldDESCRIPCIONValue;
property OldDESCRIPCIONIsNull : Boolean read GetOldDESCRIPCIONIsNull;
public
constructor Create(aBusinessProcessor: TDABusinessProcessor); override;
destructor Destroy; override;
end;
{ IContactosDelta }
IContactosDelta = interface(IContactos)
['{AEE34B45-0BE5-4436-A2F2-00A60AE282C5}']
['{6E95CF54-C1D3-450B-9CA3-7BF11C63F0F7}']
{ Property getters and setters }
function GetOldIDValue : Integer;
function GetOldID_CATEGORIAValue : Integer;
@ -318,7 +366,7 @@ type
{ IDatosBancariosDelta }
IDatosBancariosDelta = interface(IDatosBancarios)
['{CD1DD86B-3B55-41D0-8514-72F41F1F93DE}']
['{DEA3B217-7C5B-4255-8F50-57386619D05C}']
{ Property getters and setters }
function GetOldIDValue : Integer;
function GetOldID_CONTACTOValue : Integer;
@ -448,7 +496,7 @@ type
{ IDireccionesContactoDelta }
IDireccionesContactoDelta = interface(IDireccionesContacto)
['{ACD63EA5-D682-4058-9D6C-DBA5616330D4}']
['{4A089152-E5D3-4064-9F0F-A90AC9AE1858}']
{ Property getters and setters }
function GetOldIDValue : Integer;
function GetOldID_CONTACTOValue : Integer;
@ -663,7 +711,7 @@ type
{ IContactos_RefreshDelta }
IContactos_RefreshDelta = interface(IContactos_Refresh)
['{5A2CFD2B-4D23-435C-9E7A-7F5961024EE8}']
['{73D43132-7CB1-4D1F-AB06-3AD83DF063FE}']
{ Property getters and setters }
function GetOldIDValue : Integer;
function GetOldNIF_CIFValue : String;
@ -938,7 +986,7 @@ type
{ IPersonalContactoDelta }
IPersonalContactoDelta = interface(IPersonalContacto)
['{DF7E01FD-BE8A-479B-BB79-8A46B55C1F87}']
['{874E346D-3F5D-45FD-AA3C-B1FCFB39E72B}']
{ Property getters and setters }
function GetOldIDValue : Integer;
function GetOldID_CONTACTOValue : Integer;
@ -1080,7 +1128,7 @@ type
{ IPacientesDelta }
IPacientesDelta = interface(IPacientes)
['{28C6EC42-0265-4AF3-B3F2-05EBB1BD0F9C}']
['{15119009-9B83-49DC-96EB-D11DB1E7B5BD}']
{ Property getters and setters }
function GetOldIDValue : Integer;
function GetOldID_CATEGORIAValue : Integer;
@ -1109,6 +1157,8 @@ type
function GetOldNUMERO_SSValue : String;
function GetOldFECHA_BAJAValue : DateTime;
function GetOldCAUSA_BAJAValue : String;
function GetOldPABELLONValue : String;
function GetOldDOCTORValue : String;
{ Properties }
property OldID : Integer read GetOldIDValue;
@ -1138,6 +1188,8 @@ 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;
property OldDOCTOR : String read GetOldDOCTORValue;
end;
{ TPacientesBusinessProcessorRules }
@ -1308,6 +1360,18 @@ 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;
function GetDOCTORValue: String; virtual;
function GetDOCTORIsNull: Boolean; virtual;
function GetOldDOCTORValue: String; virtual;
function GetOldDOCTORIsNull: Boolean; virtual;
procedure SetDOCTORValue(const aValue: String); virtual;
procedure SetDOCTORIsNull(const aValue: Boolean); virtual;
{ Properties }
property ID : Integer read GetIDValue write SetIDValue;
@ -1418,6 +1482,60 @@ 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;
property DOCTOR : String read GetDOCTORValue write SetDOCTORValue;
property DOCTORIsNull : Boolean read GetDOCTORIsNull write SetDOCTORIsNull;
property OldDOCTOR : String read GetOldDOCTORValue;
property OldDOCTORIsNull : Boolean read GetOldDOCTORIsNull;
public
constructor Create(aBusinessProcessor: TDABusinessProcessor); override;
destructor Destroy; override;
end;
{ IPabellonesDelta }
IPabellonesDelta = interface(IPabellones)
['{D4D04445-8F70-4C11-A774-7EAEBDF45F36}']
{ Property getters and setters }
function GetOldIDValue : Integer;
function GetOldDESCRIPCIONValue : String;
{ Properties }
property OldID : Integer read GetOldIDValue;
property OldDESCRIPCION : String read GetOldDESCRIPCIONValue;
end;
{ TPabellonesBusinessProcessorRules }
TPabellonesBusinessProcessorRules = class(TDABusinessProcessorRules, IPabellones, IPabellonesDelta)
private
protected
{ Property getters and setters }
function GetIDValue: Integer; virtual;
function GetIDIsNull: Boolean; virtual;
function GetOldIDValue: Integer; virtual;
function GetOldIDIsNull: Boolean; virtual;
procedure SetIDValue(const aValue: Integer); virtual;
procedure SetIDIsNull(const aValue: Boolean); virtual;
function GetDESCRIPCIONValue: String; virtual;
function GetDESCRIPCIONIsNull: Boolean; virtual;
function GetOldDESCRIPCIONValue: String; virtual;
function GetOldDESCRIPCIONIsNull: Boolean; virtual;
procedure SetDESCRIPCIONValue(const aValue: String); virtual;
procedure SetDESCRIPCIONIsNull(const aValue: Boolean); virtual;
{ Properties }
property ID : Integer read GetIDValue write SetIDValue;
property IDIsNull : Boolean read GetIDIsNull write SetIDIsNull;
property OldID : Integer read GetOldIDValue;
property OldIDIsNull : Boolean read GetOldIDIsNull;
property DESCRIPCION : String read GetDESCRIPCIONValue write SetDESCRIPCIONValue;
property DESCRIPCIONIsNull : Boolean read GetDESCRIPCIONIsNull write SetDESCRIPCIONIsNull;
property OldDESCRIPCION : String read GetOldDESCRIPCIONValue;
property OldDESCRIPCIONIsNull : Boolean read GetOldDESCRIPCIONIsNull;
public
constructor Create(aBusinessProcessor: TDABusinessProcessor); override;
@ -1430,6 +1548,80 @@ implementation
uses
Variants, uROBinaryHelpers, uDAInterfaces;
{ TDoctoresBusinessProcessorRules }
constructor TDoctoresBusinessProcessorRules.Create(aBusinessProcessor: TDABusinessProcessor);
begin
inherited;
end;
destructor TDoctoresBusinessProcessorRules.Destroy;
begin
inherited;
end;
function TDoctoresBusinessProcessorRules.GetIDValue: Integer;
begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_DoctoresID];
end;
function TDoctoresBusinessProcessorRules.GetIDIsNull: Boolean;
begin
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_DoctoresID]);
end;
function TDoctoresBusinessProcessorRules.GetOldIDValue: Integer;
begin
result := BusinessProcessor.CurrentChange.OldValueByName[fld_DoctoresID];
end;
function TDoctoresBusinessProcessorRules.GetOldIDIsNull: Boolean;
begin
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_DoctoresID]);
end;
procedure TDoctoresBusinessProcessorRules.SetIDValue(const aValue: Integer);
begin
BusinessProcessor.CurrentChange.NewValueByName[fld_DoctoresID] := aValue;
end;
procedure TDoctoresBusinessProcessorRules.SetIDIsNull(const aValue: Boolean);
begin
if aValue then
BusinessProcessor.CurrentChange.NewValueByName[fld_DoctoresID] := Null;
end;
function TDoctoresBusinessProcessorRules.GetDESCRIPCIONValue: String;
begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_DoctoresDESCRIPCION];
end;
function TDoctoresBusinessProcessorRules.GetDESCRIPCIONIsNull: Boolean;
begin
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_DoctoresDESCRIPCION]);
end;
function TDoctoresBusinessProcessorRules.GetOldDESCRIPCIONValue: String;
begin
result := BusinessProcessor.CurrentChange.OldValueByName[fld_DoctoresDESCRIPCION];
end;
function TDoctoresBusinessProcessorRules.GetOldDESCRIPCIONIsNull: Boolean;
begin
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_DoctoresDESCRIPCION]);
end;
procedure TDoctoresBusinessProcessorRules.SetDESCRIPCIONValue(const aValue: String);
begin
BusinessProcessor.CurrentChange.NewValueByName[fld_DoctoresDESCRIPCION] := aValue;
end;
procedure TDoctoresBusinessProcessorRules.SetDESCRIPCIONIsNull(const aValue: Boolean);
begin
if aValue then
BusinessProcessor.CurrentChange.NewValueByName[fld_DoctoresDESCRIPCION] := Null;
end;
{ TContactosBusinessProcessorRules }
constructor TContactosBusinessProcessorRules.Create(aBusinessProcessor: TDABusinessProcessor);
var
@ -4819,13 +5011,151 @@ 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;
function TPacientesBusinessProcessorRules.GetDOCTORValue: String;
begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_PacientesDOCTOR];
end;
function TPacientesBusinessProcessorRules.GetDOCTORIsNull: Boolean;
begin
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_PacientesDOCTOR]);
end;
function TPacientesBusinessProcessorRules.GetOldDOCTORValue: String;
begin
result := BusinessProcessor.CurrentChange.OldValueByName[fld_PacientesDOCTOR];
end;
function TPacientesBusinessProcessorRules.GetOldDOCTORIsNull: Boolean;
begin
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_PacientesDOCTOR]);
end;
procedure TPacientesBusinessProcessorRules.SetDOCTORValue(const aValue: String);
begin
BusinessProcessor.CurrentChange.NewValueByName[fld_PacientesDOCTOR] := aValue;
end;
procedure TPacientesBusinessProcessorRules.SetDOCTORIsNull(const aValue: Boolean);
begin
if aValue then
BusinessProcessor.CurrentChange.NewValueByName[fld_PacientesDOCTOR] := Null;
end;
{ TPabellonesBusinessProcessorRules }
constructor TPabellonesBusinessProcessorRules.Create(aBusinessProcessor: TDABusinessProcessor);
begin
inherited;
end;
destructor TPabellonesBusinessProcessorRules.Destroy;
begin
inherited;
end;
function TPabellonesBusinessProcessorRules.GetIDValue: Integer;
begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_PabellonesID];
end;
function TPabellonesBusinessProcessorRules.GetIDIsNull: Boolean;
begin
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_PabellonesID]);
end;
function TPabellonesBusinessProcessorRules.GetOldIDValue: Integer;
begin
result := BusinessProcessor.CurrentChange.OldValueByName[fld_PabellonesID];
end;
function TPabellonesBusinessProcessorRules.GetOldIDIsNull: Boolean;
begin
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_PabellonesID]);
end;
procedure TPabellonesBusinessProcessorRules.SetIDValue(const aValue: Integer);
begin
BusinessProcessor.CurrentChange.NewValueByName[fld_PabellonesID] := aValue;
end;
procedure TPabellonesBusinessProcessorRules.SetIDIsNull(const aValue: Boolean);
begin
if aValue then
BusinessProcessor.CurrentChange.NewValueByName[fld_PabellonesID] := Null;
end;
function TPabellonesBusinessProcessorRules.GetDESCRIPCIONValue: String;
begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_PabellonesDESCRIPCION];
end;
function TPabellonesBusinessProcessorRules.GetDESCRIPCIONIsNull: Boolean;
begin
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_PabellonesDESCRIPCION]);
end;
function TPabellonesBusinessProcessorRules.GetOldDESCRIPCIONValue: String;
begin
result := BusinessProcessor.CurrentChange.OldValueByName[fld_PabellonesDESCRIPCION];
end;
function TPabellonesBusinessProcessorRules.GetOldDESCRIPCIONIsNull: Boolean;
begin
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_PabellonesDESCRIPCION]);
end;
procedure TPabellonesBusinessProcessorRules.SetDESCRIPCIONValue(const aValue: String);
begin
BusinessProcessor.CurrentChange.NewValueByName[fld_PabellonesDESCRIPCION] := aValue;
end;
procedure TPabellonesBusinessProcessorRules.SetDESCRIPCIONIsNull(const aValue: Boolean);
begin
if aValue then
BusinessProcessor.CurrentChange.NewValueByName[fld_PabellonesDESCRIPCION] := Null;
end;
initialization
RegisterBusinessProcessorRules(RID_DoctoresDelta, TDoctoresBusinessProcessorRules);
RegisterBusinessProcessorRules(RID_ContactosDelta, TContactosBusinessProcessorRules);
RegisterBusinessProcessorRules(RID_DatosBancariosDelta, TDatosBancariosBusinessProcessorRules);
RegisterBusinessProcessorRules(RID_DireccionesContactoDelta, TDireccionesContactoBusinessProcessorRules);
RegisterBusinessProcessorRules(RID_Contactos_RefreshDelta, TContactos_RefreshBusinessProcessorRules);
RegisterBusinessProcessorRules(RID_PersonalContactoDelta, TPersonalContactoBusinessProcessorRules);
RegisterBusinessProcessorRules(RID_PacientesDelta, TPacientesBusinessProcessorRules);
RegisterBusinessProcessorRules(RID_PabellonesDelta, TPabellonesBusinessProcessorRules);
end.

37
Source/Modulos/Contactos/Model/uBizContactos.pas
View File

@ -61,11 +61,19 @@ type
function GetCAUSA_BAJAValue: String;
procedure SetCAUSA_BAJAValue(const aValue: String);
function GetPABELLONValue: String;
procedure SetPABELLONValue(const aValue: String);
function GetDOCTORValue: String;
procedure SetDOCTORValue(const aValue: String);
property FECHA_NACIMIENTO: TDateTime read GetFECHA_NACIMIENTOValue write SetFECHA_NACIMIENTOValue;
property NUMERO_SS: String read GetNUMERO_SSValue write SetNUMERO_SSValue;
property FECHA_BAJA: TDateTime read GetFECHA_BAJAValue write SetFECHA_BAJAValue;
property FECHA_BAJAIsNull: Boolean read GetFECHA_BAJAIsNull write SetFECHA_BAJAIsNull;
property CAUSA_BAJA: String read GetCAUSA_BAJAValue write SetCAUSA_BAJAValue;
property PABELLON: String read GetPABELLONValue write SetPABELLONValue;
property DOCTOR: String read GetDOCTORValue write SetDOCTORValue;
end;
TBizContacto = class(TContactosDataTableRules, IBizContacto, ISeleccionable)
@ -128,12 +136,21 @@ type
function GetCAUSA_BAJAValue: String;
procedure SetCAUSA_BAJAValue(const aValue: String);
function GetPABELLONValue: String;
procedure SetPABELLONValue(const aValue: String);
function GetDOCTORValue: String;
procedure SetDOCTORValue(const aValue: String);
public
property FECHA_NACIMIENTO: TDateTime read GetFECHA_NACIMIENTOValue write SetFECHA_NACIMIENTOValue;
property NUMERO_SS: String read GetNUMERO_SSValue write SetNUMERO_SSValue;
property FECHA_BAJA: TDateTime read GetFECHA_BAJAValue write SetFECHA_BAJAValue;
property FECHA_BAJAIsNull: Boolean read GetFECHA_BAJAIsNull write SetFECHA_BAJAIsNull;
property CAUSA_BAJA: String read GetCAUSA_BAJAValue write SetCAUSA_BAJAValue;
property PABELLON: String read GetPABELLONValue write SetPABELLONValue;
property DOCTOR: String read GetDOCTORValue write SetDOCTORValue;
procedure IniciarValoresContactoNuevo; override;
end;
@ -242,6 +259,11 @@ begin
result := DataTable.Fields[idx_PacientesNUMERO_SS].AsString;
end;
function TBizPaciente.GetPABELLONValue: String;
begin
result := DataTable.Fields[idx_PacientesPABELLON].AsString;
end;
function TBizPaciente.GetFECHA_NACIMIENTOValue: TDateTime;
begin
result := DataTable.Fields[idx_PacientesFECHA_NACIMIENTO].AsDateTime;
@ -258,6 +280,11 @@ begin
DataTable.Fields[idx_PacientesNUMERO_SS].AsString := aValue;
end;
procedure TBizPaciente.SetPABELLONValue(const aValue: String);
begin
DataTable.Fields[idx_PacientesPABELLON].AsString := aValue;
end;
procedure TBizPaciente.SetFECHA_NACIMIENTOValue(const aValue: TDateTime);
begin
DataTable.Fields[idx_PacientesFECHA_NACIMIENTO].AsDateTime := aValue;
@ -273,6 +300,16 @@ begin
DataTable.Fields[idx_PacientesCAUSA_BAJA].AsString := aValue;
end;
function TBizPaciente.GetDOCTORValue: String;
begin
result := DataTable.Fields[idx_PacientesDOCTOR].AsString;
end;
procedure TBizPaciente.SetDOCTORValue(const aValue: String);
begin
DataTable.Fields[idx_PacientesPABELLON].AsString := aValue;
end;
function TBizPaciente.GetFECHA_BAJAIsNull: Boolean;
begin
result := DataTable.Fields[idx_PacientesFECHA_BAJA].IsNull;

26
Source/Modulos/Contactos/Model/uBizDoctores.pas Normal file
View File

@ -0,0 +1,26 @@
unit uBizDoctores;
interface
uses
uDAInterfaces, uDADataTable, schContactosClient_Intf;
const
BIZ_CLIENT_DOCTORES = 'Client.Doctores';
type
IBizDoctor = interface(IDoctores)
['{B18DD89A-FA5F-4B1D-8846-5C8AC90D33BE}']
end;
TBizDoctor = class(TDoctoresDataTableRules, IBizDoctor)
end;
implementation
initialization
RegisterDataTableRules(BIZ_CLIENT_DOCTORES, TBizDoctor);
finalization
end.

26
Source/Modulos/Contactos/Model/uBizPabellones.pas Normal file
View File

@ -0,0 +1,26 @@
unit uBizPabellones;
interface
uses
uDAInterfaces, uDADataTable, schContactosClient_Intf;
const
BIZ_CLIENT_PABELLONES = 'Client.Pabellones';
type
IBizPabellon = interface(IPabellones)
['{EBC1EB45-52FA-42C4-BC2E-7BC980FDB191}']
end;
TBizPabellon = class(TPabellonesDataTableRules, IBizPabellon)
end;
implementation
initialization
RegisterDataTableRules(BIZ_CLIENT_PABELLONES, TBizPabellon);
finalization
end.

6
Source/Modulos/Contactos/Model/uBizPacientesServer.pas
View File

@ -83,7 +83,9 @@ 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];
ParamByName('DOCTOR').Value := aChange.NewValueByName[fld_PacientesDOCTOR];
Execute;
end;
finally
@ -111,6 +113,8 @@ 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];
ParamByName('DOCTOR').Value := aChange.NewValueByName[fld_PacientesDOCTOR];
Execute;
end;
finally

51
Source/Modulos/Contactos/Plugin/uPluginContactos.dfm
View File

@ -207,6 +207,36 @@ object PluginContactos: TPluginContactos
000049454E44AE426082}
Name = 'PngImage7'
Background = clWindow
end
item
PngImage.Data = {
89504E470D0A1A0A0000000D4948445200000018000000180806000000E0773D
F8000000097048597300004E2000004E2001167D99DE000002D14944415478DA
B5965F4853511CC7BF238A120DD9437F1E621B0D7D547AE8C18712F1DF42D1C0
87081F7C08121FFA4744B190A0B70211A2B208315965A0CDE58386A5CBD61FC5
6C2B373633B76BC66C19AD6DEA74BBF776EECDDDEEDDBDFBF390077E9CB373EF
F97CCEF9FDCE85A95896C56636D5A60BB279A9BD1945A4B3274D179FE980831B
3C849E0D61969FFC49C228E2661424E0A5A5C59279ABD52E481202864C2C9168
CD5620867BBD7E84C32BFC7C5E5E0E74BABD82645787DE1E248265F2E307896B
D908C4709F6F910F71D36AF7F0C1497698B6221C896171E3045D990462F89CEF
17E67D140AEA86A056ABF9E7C160086E7339343A2D749A7C5EE2370154040890
E723E90492B4CC8741CD7DE1E186EA2AC97BC3CF47E1EA2B8376BF1EDA7DB9BC
C4DA0738498E3EA71248764E919D7B2914127875129C21579BA619BC181985C7
5C213949A705F8E8571028E5BCB0EE1981572AC2E3711A71D2DB6C36CCF45748
6A02D1155629DD168AFAAE989664381F710693136F3163A98446B35B72BB3889
4A69E79AAA27A8AF3F9A153C31FE303106EF609DEC249C8015E7BC80A4C59021
2DC9707AA3F738A730FBB44A52135E9000A52B6826384DFF7DEE763AB0306410
D60B45AE39D6C20E3CBA29812716769CDEA6F831D61A9764F2D793D3B8DD6684
CB3EA54A2B10EFEADEB9ED686E6AFA772A86C1DDEE6E1CB918909D6CDCEECA2C
10C3B9455D17720401CB32585B5B46574F1F2ACFFB65697BFFC99D5E900CE77A
D3A55C41108D86B1BA1AC263CB30CACE7E93D5C4E19A492D309B6EC8E05CF45C
DE89138DC7118B45115909612918C5CB57361C3AF55556F069CF6C6A41EFFD76
199C1BF75EC94763432DD97D0881DF71B40E14A13CFF164A5A28099C6B69053D
9D6D3238D7F75F55A3A1E6309F1E2ED663AB181B5FC0C1935E093CA3A0FBCE75
3CB08CC9AE23FDC6809AF203041EE14FB11E5BC18423842D25838AD737A560CE
FD0EFFAB0982CDFE57F107B61AA443A57B28CB0000000049454E44AE426082}
Name = 'PngImage6'
Background = clWindow
end>
Left = 232
Top = 16
@ -219,10 +249,23 @@ object PluginContactos: TPluginContactos
object actPacientes: TAction
Category = 'Pacientes'
Caption = 'Pacientes'
ImageIndex = 0
ImageIndex = 2
OnExecute = actPacientesExecute
OnUpdate = actPacientesUpdate
end
object actDoctores: TAction
Category = 'Doctores'
Caption = 'Doctores'
ImageIndex = 1
OnExecute = actDoctoresExecute
end
object actPabellones: TAction
Category = 'Pabellones'
Caption = 'Pabellones'
ImageIndex = 6
OnExecute = actPabellonesExecute
OnUpdate = actPabellonesUpdate
end
end
object MainMenu: TMainMenu
Images = SmallImages
@ -237,6 +280,12 @@ object PluginContactos: TPluginContactos
Tag = 500
Action = actPacientes
end
object actDoctores1: TMenuItem
Action = actDoctores
end
object Pabellones1: TMenuItem
Action = actPabellones
end
end
end
object SmallImages: TPngImageList

37
Source/Modulos/Contactos/Plugin/uPluginContactos.pas
View File

@ -21,8 +21,15 @@ type
SmallImages: TPngImageList;
Ventas1: TMenuItem;
Pacientes1: TMenuItem;
actDoctores: TAction;
actDoctores1: TMenuItem;
actPabellones: TAction;
Pabellones1: TMenuItem;
procedure actPacientesExecute(Sender: TObject);
procedure actPacientesUpdate(Sender: TObject);
procedure actDoctoresExecute(Sender: TObject);
procedure actPabellonesExecute(Sender: TObject);
procedure actPabellonesUpdate(Sender: TObject);
public
constructor Create(AOwner: TComponent); override;
destructor Destroy; override;
@ -34,8 +41,8 @@ implementation
uses
Forms, Dialogs, uGUIBase, uCustomEditor, SysUtils, uContactosController,
uPacientesController,
uContactosViewRegister, uBizContactos, uFactuGES_App;
uPacientesController, uDoctoresController, uPabellonesController,
uContactosViewRegister, uBizContactos, uBizDoctores, uBizPabellones, uFactuGES_App;
function GetModule : TModuleController;
begin
@ -48,6 +55,31 @@ exports
{
******************************* TModuleContactos *******************************
}
procedure TPluginContactos.actDoctoresExecute(Sender: TObject);
var
ADoctoresController : IDoctoresController;
ADoctores : IBizDoctor;
begin
ADoctoresController := TDoctoresController.Create;
ADoctores := (ADoctoresController.BuscarTodos as IBizDoctor);
ADoctoresController.VerTodos(ADoctores);
end;
procedure TPluginContactos.actPabellonesExecute(Sender: TObject);
var
APabellonesController : IPabellonesController;
APabellones : IBizPabellon;
begin
APabellonesController := TPabellonesController.Create;
APabellones := (APabellonesController.BuscarTodos as IBizPabellon);
APabellonesController.VerTodos(APabellones);
end;
procedure TPluginContactos.actPabellonesUpdate(Sender: TObject);
begin
(Sender as TAction).Enabled := Assigned(AppFactuGES.EmpresaActiva);
end;
procedure TPluginContactos.actPacientesExecute(Sender: TObject);
var
APacientesController : IPacientesController;
@ -80,6 +112,7 @@ begin
inherited;
end;
initialization
uHostManager.RegisterModuleClass(TPluginContactos);

153
Source/Modulos/Contactos/Servidor/srvContactos_Impl.dfm
View File

@ -13,6 +13,42 @@ object srvContactos: TsrvContactos
DataDictionary = DataDictionary
Diagrams = Diagrams
Datasets = <
item
Params = <>
Statements = <
item
Connection = 'IBX'
ConnectionType = 'MSSQL'
Default = True
TargetTable = 'DOCTORES'
Name = 'IBX'
StatementType = stAutoSQL
ColumnMappings = <
item
DatasetField = 'ID'
TableField = 'ID'
end
item
DatasetField = 'DESCRIPCION'
TableField = 'DESCRIPCION'
end>
end>
Name = 'Doctores'
Fields = <
item
Name = 'ID'
DataType = datAutoInc
GeneratorName = 'GEN_DOCTORES_ID'
DictionaryEntry = 'Doctores_ID'
InPrimaryKey = True
end
item
Name = 'DESCRIPCION'
DataType = datString
Size = 255
DictionaryEntry = 'Doctores_DESCRIPCION'
end>
end
item
Params = <>
Statements = <
@ -961,6 +997,14 @@ object srvContactos: TsrvContactos
item
DatasetField = 'CAUSA_BAJA'
TableField = 'CAUSA_BAJA'
end
item
DatasetField = 'PABELLON'
TableField = 'PABELLON'
end
item
DatasetField = 'DOCTOR'
TableField = 'DOCTOR'
end>
end>
Name = 'Pacientes'
@ -1123,6 +1167,52 @@ object srvContactos: TsrvContactos
DataType = datString
Size = 255
DictionaryEntry = 'Pacientes_CAUSA_BAJA'
end
item
Name = 'PABELLON'
DataType = datString
Size = 255
DictionaryEntry = 'Pacientes_PABELLON'
end
item
Name = 'DOCTOR'
DataType = datString
Size = 255
end>
end
item
Params = <>
Statements = <
item
Connection = 'IBX'
ConnectionType = 'MSSQL'
Default = True
TargetTable = 'PABELLONES'
StatementType = stAutoSQL
ColumnMappings = <
item
DatasetField = 'ID'
TableField = 'ID'
end
item
DatasetField = 'DESCRIPCION'
TableField = 'DESCRIPCION'
end>
end>
Name = 'Pabellones'
Fields = <
item
Name = 'ID'
DataType = datAutoInc
GeneratorName = 'GEN_PABELLONES_ID'
DictionaryEntry = 'Pabellones_ID'
InPrimaryKey = True
end
item
Name = 'DESCRIPCION'
DataType = datString
Size = 255
DictionaryEntry = 'Pabellones_DESCRIPCION'
end>
end>
JoinDataTables = <>
@ -2058,6 +2148,18 @@ object srvContactos: TsrvContactos
DataType = datString
Size = 255
Value = ''
end
item
Name = 'PABELLON'
DataType = datString
Size = 255
Value = ''
end
item
Name = 'DOCTOR'
DataType = datString
Size = 255
Value = ''
end>
Statements = <
item
@ -2065,8 +2167,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, DOCTOR)'#10' VALUES'#10 +
' (:ID_PACIENTE, :FECHA_NACIMIENTO, :NUMERO_SS, :FECHA_BAJA, :' +
'CAUSA_BAJA, :PABELLON, :DOCTOR)'#10
StatementType = stSQL
ColumnMappings = <>
end>
@ -2096,6 +2199,18 @@ object srvContactos: TsrvContactos
Size = 255
Value = ''
end
item
Name = 'PABELLON'
DataType = datString
Size = 255
Value = ''
end
item
Name = 'DOCTOR'
DataType = datString
Size = 255
Value = ''
end
item
Name = 'OLD_ID_PACIENTE'
Value = ''
@ -2107,8 +2222,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' DO' +
'CTOR = :DOCTOR'#10' WHERE'#10' (ID_PACIENTE = :OLD_ID_PACIENTE)'#10
StatementType = stSQL
ColumnMappings = <>
end>
@ -2913,6 +3028,36 @@ 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
item
Name = 'Pabellones_ID'
DataType = datAutoInc
GeneratorName = 'GEN_PABELLONES_ID'
Required = True
DisplayLabel = 'ID'
end
item
Name = 'Pabellones_DESCRIPCION'
DataType = datString
Size = 255
end
item
Name = 'Doctores_ID'
DataType = datAutoInc
GeneratorName = 'GEN_DOCTORES_ID'
Required = True
DisplayLabel = 'ID'
end
item
Name = 'Doctores_DESCRIPCION'
DataType = datString
Size = 255
end>
Left = 126
Top = 14

14
Source/Modulos/Contactos/Views/Contactos_view.dpk
View File

@ -54,7 +54,10 @@ requires
adortl,
RemObjects_Core_D11,
dxLayoutControlD11,
dxComnD11;
dxComnD11,
GUISDK_D11R,
designide,
xmlrtl;
contains
uContactosViewRegister in 'uContactosViewRegister.pas',
@ -68,11 +71,12 @@ 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},
uEditorDoctores in 'uEditorDoctores.pas' {fEditorDoctores: TCustomEditor},
uEditorPabellones in 'uEditorPabellones.pas' {fEditorPabellones: TCustomEditor};
end.

30
Source/Modulos/Contactos/Views/Contactos_view.dproj
View File

@ -63,6 +63,7 @@
<DCCReference Include="cxPageControlD11.dcp" />
<DCCReference Include="DataAbstract_Core_D11.dcp" />
<DCCReference Include="dbrtl.dcp" />
<DCCReference Include="designide.dcp" />
<DCCReference Include="dsnap.dcp" />
<DCCReference Include="dxComnD11.dcp" />
<DCCReference Include="dxCoreD11.dcp" />
@ -70,6 +71,7 @@
<DCCReference Include="dxLayoutControlD11.dcp" />
<DCCReference Include="dxThemeD11.dcp" />
<DCCReference Include="GUIBase.dcp" />
<DCCReference Include="GUISDK_D11R.dcp" />
<DCCReference Include="PngComponentsD10.dcp" />
<DCCReference Include="PNG_D10.dcp" />
<DCCReference Include="RemObjects_Core_D11.dcp" />
@ -83,6 +85,10 @@
<Form>fEditorContactos</Form>
<DesignClass>TCustomEditor</DesignClass>
</DCCReference>
<DCCReference Include="uEditorDoctores.pas">
<Form>fEditorDoctores</Form>
<DesignClass>TCustomEditor</DesignClass>
</DCCReference>
<DCCReference Include="uEditorElegirPacientes.pas">
<Form>fEditorElegirPacientes</Form>
<DesignClass>TCustomEditor</DesignClass>
@ -95,6 +101,10 @@
<Form>fEditorFichasPacienteReport</Form>
<DesignClass>TCustomEditor</DesignClass>
</DCCReference>
<DCCReference Include="uEditorPabellones.pas">
<Form>fEditorPabellone</Form>
<DesignClass>TCustomEditor</DesignClass>
</DCCReference>
<DCCReference Include="uEditorPaciente.pas">
<Form>fEditorPaciente</Form>
<DesignClass>TCustomEditor</DesignClass>
@ -111,14 +121,16 @@
<Form>frViewContacto</Form>
<DesignClass>TCustomView</DesignClass>
</DCCReference>
<DCCReference Include="uViewContactoDatosBancarios.pas" />
<DCCReference Include="uViewContactoListaDatosBancarios.pas" />
<DCCReference Include="uViewContactos.pas">
<Form>frViewContactos</Form>
<DCCReference Include="uViewContactoDatosBancarios.pas">
<Form>frViewContactoDatosBancarios</Form>
<DesignClass>TCustomView</DesignClass>
</DCCReference>
<DCCReference Include="uViewDatosYSeleccionPaciente.pas">
<Form>frViewDatosYSeleccionPaciente</Form>
<DCCReference Include="uViewContactoListaDatosBancarios.pas">
<Form>frViewContactoListaDatosBancarios</Form>
<DesignClass>TCustomView</DesignClass>
</DCCReference>
<DCCReference Include="uViewContactos.pas">
<Form>frViewContactos</Form>
<DesignClass>TCustomView</DesignClass>
</DCCReference>
<DCCReference Include="uViewPaciente.pas">
@ -129,12 +141,16 @@
<Form>frViewPacientes</Form>
<DesignClass>TCustomView</DesignClass>
</DCCReference>
<DCCReference Include="uViewPersonalContacto.pas" />
<DCCReference Include="uViewPersonalContacto.pas">
<Form>frViewPersonalContacto</Form>
<DesignClass>TCustomView</DesignClass>
</DCCReference>
<DCCReference Include="vcl.dcp" />
<DCCReference Include="vclactnband.dcp" />
<DCCReference Include="vcldb.dcp" />
<DCCReference Include="vcljpg.dcp" />
<DCCReference Include="vclx.dcp" />
<DCCReference Include="xmlrtl.dcp" />
</ItemGroup>
</Project>
<!-- EurekaLog First Line

7
Source/Modulos/Contactos/Views/uContactosViewRegister.pas
View File

@ -9,14 +9,15 @@ implementation
uses
uEditorRegistryUtils,
uEditorPacientes,
uEditorPacientes, uEditorDoctores, uEditorPabellones,
uEditorPaciente, uEditorElegirPacientes,
uEditorFichasPacienteReport, uEditorEtiquetasContactosReport;
procedure RegisterViews;
begin
EditorRegistry.RegisterClass(TfEditorPacientes, 'EditorPacientes');
EditorRegistry.RegisterClass(TfEditorDoctores, 'EditorDoctores');
EditorRegistry.RegisterClass(TfEditorPabellones, 'EditorPabellones');
EditorRegistry.RegisterClass(TfEditorPaciente, 'EditorPaciente');
EditorRegistry.RegisterClass(TfEditorElegirPacientes, 'EditorElegirPacientes');
@ -28,6 +29,8 @@ end;
procedure UnregisterViews;
begin
EditorRegistry.UnRegisterClass(TfEditorPacientes);
EditorRegistry.UnRegisterClass(TfEditorDoctores);
EditorRegistry.UnRegisterClass(TfEditorPabellones);
EditorRegistry.UnRegisterClass(TfEditorPaciente);

76
Source/Modulos/Contactos/Views/uEditorContacto.dfm
View File

@ -12,23 +12,23 @@ inherited fEditorContacto: TfEditorContacto
inherited JvNavPanelHeader: TJvNavPanelHeader
Width = 724
Caption = 'Contacto'
ExplicitWidth = 632
ExplicitWidth = 724
inherited Image1: TImage
Left = 591
ExplicitLeft = 607
end
inherited lblDesbloquear: TcxLabel
Left = 626
ExplicitLeft = 534
ExplicitLeft = 626
AnchorX = 671
AnchorY = 14
end
end
inherited TBXDock: TTBXDock
Width = 724
ExplicitWidth = 632
ExplicitWidth = 724
inherited tbxMain: TTBXToolbar
ExplicitWidth = 511
ExplicitWidth = 488
inherited TBXItem2: TTBXItem
Visible = False
end
@ -65,77 +65,13 @@ inherited fEditorContacto: TfEditorContacto
end
inherited pgPaginas: TPageControl
Width = 718
ExplicitWidth = 626
ExplicitWidth = 718
inherited pagGeneral: TTabSheet
ExplicitLeft = 4
ExplicitTop = 24
ExplicitWidth = 710
ExplicitHeight = 332
end
object pagDatosBancarios: TTabSheet
Caption = 'Datos bancarios'
ImageIndex = 1
ExplicitWidth = 618
inline frViewListaDatosBancarios: TfrViewListaDatosBancarios
Left = 0
Top = 0
Width = 710
Height = 332
Align = alClient
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'Tahoma'
Font.Style = []
ParentFont = False
TabOrder = 0
ReadOnly = False
ExplicitWidth = 618
ExplicitHeight = 332
inherited cxGrid: TcxGrid
Width = 710
Height = 307
ExplicitWidth = 618
ExplicitHeight = 307
end
inherited ToolBar1: TToolBar
Width = 710
ExplicitWidth = 618
end
end
end
object pagPersonal: TTabSheet
Caption = 'Personal'
ImageIndex = 2
ExplicitWidth = 618
inline frViewPersonalContacto1: TfrViewPersonalContacto
Left = 0
Top = 0
Width = 710
Height = 332
Align = alClient
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'Tahoma'
Font.Style = []
ParentFont = False
TabOrder = 0
ReadOnly = False
ExplicitWidth = 618
ExplicitHeight = 332
inherited cxGrid: TcxGrid
Width = 710
Height = 307
ExplicitWidth = 710
ExplicitHeight = 307
end
inherited ToolBar1: TToolBar
Width = 710
ExplicitWidth = 710
end
end
end
end
inherited StatusBar: TJvStatusBar
Width = 724
@ -143,7 +79,7 @@ inherited fEditorContacto: TfEditorContacto
item
Width = 200
end>
ExplicitWidth = 632
ExplicitWidth = 724
end
inherited EditorActionList: TActionList
Top = 128

16
Source/Modulos/Contactos/Views/uEditorContacto.pas
View File

@ -19,11 +19,7 @@ uses
type
TfEditorContacto = class(TfEditorDBItem, IEditorContacto)
pagDatosBancarios: TTabSheet;
dxLayoutLookAndFeel: TdxLayoutLookAndFeelList;
frViewListaDatosBancarios: TfrViewListaDatosBancarios;
pagPersonal: TTabSheet;
frViewPersonalContacto1: TfrViewPersonalContacto;
dxLayoutStandardLookAndFeel1: TdxLayoutStandardLookAndFeel;
procedure FormShow(Sender: TObject);
procedure dsDataTableDataChange(Sender: TObject; Field: TField);
@ -115,19 +111,7 @@ begin
dsDataTable.DataTable := FContacto.DataTable;
if Assigned(FViewContacto) and Assigned(Contacto) then
begin
FViewContacto.Contacto := Contacto;
frViewListaDatosBancarios.dsDetalles.DataTable := FContacto.DatosBancarios.DataTable;
if Assigned(FContacto.Personal) then
frViewPersonalContacto1.dsDetalles.DataTable := FContacto.Personal.DataTable
else
frViewPersonalContacto1.dsDetalles.DataTable := NIL;
end
else begin
frViewListaDatosBancarios.dsDetalles.DataTable := NIL;
frViewPersonalContacto1.dsDetalles.DataTable := NIL;
end;
end;
procedure TfEditorContacto.SetController(const Value: IContactosController);

178
Source/Modulos/Contactos/Views/uEditorDoctores.dfm Normal file
View File

@ -0,0 +1,178 @@
object fEditorDoctores: TfEditorDoctores
Left = 453
Top = 234
ActiveControl = ListaDoctores
BorderIcons = [biSystemMenu]
BorderStyle = bsSingle
Caption = 'Administraci'#243'n de doctores'
ClientHeight = 499
ClientWidth = 404
Color = clBtnFace
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
OldCreateOrder = False
Position = poScreenCenter
OnClose = CustomEditorClose
OnShow = FormShow
InstanceID = 0
ReadOnly = False
PixelsPerInch = 96
TextHeight = 13
object bAceptar: TButton
Left = 226
Top = 464
Width = 75
Height = 25
Action = actAceptar
Default = True
TabOrder = 1
end
object bCancelar: TButton
Left = 314
Top = 464
Width = 75
Height = 25
Action = actCancelar
Cancel = True
TabOrder = 2
end
object PageControl1: TPageControl
Left = 8
Top = 8
Width = 390
Height = 442
ActivePage = TabSheet1
TabOrder = 0
object TabSheet1: TTabSheet
Caption = 'Doctores'
ExplicitLeft = 0
object Label1: TLabel
Left = 47
Top = 15
Width = 81
Height = 13
Caption = 'Lista de doctores'
end
object Image1: TImage
Left = 3
Top = 4
Width = 38
Height = 23
Picture.Data = {
0B546478504E47496D61676589504E470D0A1A0A0000000D4948445200000018
000000180806000000E0773DF8000000017352474200AECE1CE9000000046741
4D410000B18F0BFC6105000000206348524D00007A26000080840000FA000000
80E8000075300000EA6000003A98000017709CBA513C00000009704859730000
17110000171101CA26F33F0000032B49444154484BD595EB4B537118C7EBBF30
825E64146B9BCD4B514A21BD282A283133D0115DD428128A0ABA48584837ACB4
82B4CCE66D6BA42D47492F24B31B6D794967EA72DAE6A6A9B9525B96657C3AE7
804BDBD182F245079E5DD8F87CBECFF33BE7F79B09CC98D64B144C674D2B5C9A
8EF8525EF58AE9A80902E18BFFFAE6F3E2AA3AC6CB522DB5371371D6E9C7FFEC
FF3C3AFA9D9191518687BF32E4FBC287C161FADFFBE8E91F2274F52EF17F3F3B
184FF03C4CA7E34E02F505B1545D5A4545D61AEC2F8C132453C1BB7A072617B8
2A0FF3FA56022DC6AD58F336F1207B1DE693D194A4A971DB1F4A9231F87EDD67
E4AAB3FBBDBCC0D7558BAD2C11CBF558011E2F09EA6FC463B91AC3DD5391541B
52FD70B9B188C945F81B8F575ED06FBBCD4BFD46EA74F1B40A1D384DC9B84C3B
7018B4340AD2B2D34BFC331F1C924F2F76D4E67C37B9C0614EC4634EA6B76237
DDE6145C65DB70080BDD5C1047F9C5587C9F4610E1DE814FF4793FF2B66F1077
CF079C5D5E3A3AFB25784B7BAFBC60D063E14DC53E09EA366D17DEB7D26ED462
2FDE4C4DEE061E949EFB2378D3EBB7932FB2FB590E0EE31629759B2181D6A278
6CF931DCCF8AC36EB3FE36B9086F68E99AE22E7ADCCABDA35A6AF2E368C8DF48
CDD5F59885DB5477300347936DCAB18CC16B5FB9E505EE474F285B1BC3654524
E7D79FA652BF97C27D5B3815B9838C6015252929B4DB1BFC33D71E2840AEAC8D
AE40C180D345C59E54F2D46A0A831564454453793697D2D4A3E42AC229502839
AF54A04B4AA6C95A3D6141C5E4F5CD1E6A6C9D3C6F70F2B4AE2350602FBF4BCE
8A2872C243302854140989AF2C8EE67AC8520CC10B29522AC90E5791366B0E85
82C4DED1279B5EECE8D10B47A0A0F6CA35CECC9F4BF6520D37D42A8C0B9414CE
55502274A317D25F0B559319A5E14850106797AFA4B9AD87467B774072115E65
690B14B4DC36911916464698924B4B1691A751A353A924596E989A0BCB34A42F
9CC7A1A0D914272749F0C9D64056203EFAED560BFAA49D9CD04490AE0AE5B872
11E9421D132A4D1942664414D5A6E229938B7059C1AFDBEDF87DC5E17A27CDFC
77631983CB0AC6EFE57F0B97158807C4BF2EFF81F35F1FFA3F0038EC8C2AD627
CC940000000049454E44AE426082}
Transparent = True
end
object ListaDoctores: TDBLookupListBox
Left = 3
Top = 34
Width = 281
Height = 251
KeyField = 'RecID'
ListField = 'DESCRIPCION'
ListSource = DADataSource
TabOrder = 0
end
object bEliminar: TButton
Left = 304
Top = 34
Width = 75
Height = 25
Action = actEliminar
TabOrder = 1
end
object GroupBox1: TGroupBox
Left = 6
Top = 318
Width = 369
Height = 84
Caption = 'A'#241'adir un nuevo doctor'
TabOrder = 2
object eCategoria: TLabel
Left = 18
Top = 20
Width = 37
Height = 13
Caption = 'Nombre'
end
object bAnadir: TButton
Left = 282
Top = 38
Width = 75
Height = 25
Action = actAnadir
TabOrder = 1
end
object editDoctor: TEdit
Left = 18
Top = 40
Width = 255
Height = 21
TabOrder = 0
end
end
end
end
object ActionList1: TActionList
Left = 144
Top = 16
object actAnadir: TAction
Caption = '&A'#241'adir'
OnExecute = actAnadirExecute
OnUpdate = actAnadirUpdate
end
object actEliminar: TAction
Caption = '&Eliminar'
OnExecute = actEliminarExecute
OnUpdate = actEliminarUpdate
end
object actAceptar: TAction
Caption = 'A&ceptar'
OnExecute = actAceptarExecute
end
object actCancelar: TAction
Caption = '&Cancelar'
OnExecute = actCancelarExecute
end
object actCerrar: TAction
Caption = 'actCerrar'
OnExecute = actCerrarExecute
end
end
object DADataSource: TDADataSource
Left = 168
Top = 16
end
end

207
Source/Modulos/Contactos/Views/uEditorDoctores.pas Normal file
View File

@ -0,0 +1,207 @@
{
===============================================================================
Copyright (©) 2006. Rodax Software.
===============================================================================
Los contenidos de este fichero son propiedad de Rodax Software titular del
copyright. Este fichero sólo podrá ser copiado, distribuido y utilizado,
en su totalidad o en parte, con el permiso escrito de Rodax Software, o de
acuerdo con los términos y condiciones establecidas en el acuerdo/contrato
bajo el que se suministra.
-----------------------------------------------------------------------------
Web: www.rodax-software.com
===============================================================================
Fecha primera versión: 22-05-2006
Versión actual: 1.0.0
Fecha versión actual: 22-05-2006
===============================================================================
Modificaciones:
Fecha Comentarios
---------------------------------------------------------------------------
===============================================================================
}
unit uEditorDoctores;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, DB, StdCtrls, DBCtrls, uDADataTable, ActnList,
uIEditorDoctores, uCustomEditor, uGUIBase, ExtCtrls,
ComCtrls, uBizDoctores, uDoctoresController, uDAInterfaces, dxGDIPlusClasses;
type
TfEditorDoctores = class(TCustomEditor, IEditorDoctores)
ActionList1: TActionList;
DADataSource: TDADataSource;
ListaDoctores: TDBLookupListBox;
editDoctor: TEdit;
bAnadir: TButton;
actAnadir: TAction;
actEliminar: TAction;
bEliminar: TButton;
actAceptar: TAction;
actCancelar: TAction;
bAceptar: TButton;
bCancelar: TButton;
actCerrar: TAction;
PageControl1: TPageControl;
TabSheet1: TTabSheet;
GroupBox1: TGroupBox;
Label1: TLabel;
Image1: TImage;
procedure FormShow(Sender: TObject);
procedure CustomEditorClose(Sender: TObject; var Action: TCloseAction);
procedure actAnadirExecute(Sender: TObject);
procedure actEliminarExecute(Sender: TObject);
procedure actAceptarExecute(Sender: TObject);
procedure actCancelarExecute(Sender: TObject);
procedure actCerrarExecute(Sender: TObject);
procedure actAnadirUpdate(Sender: TObject);
procedure actEliminarUpdate(Sender: TObject);
protected
FDoctores: IBizDoctor;
FController: IDoctoresController;
function GetDoctores: IBizDoctor;
procedure SetDoctores(const Value: IBizDoctor);
function GetController : IDoctoresController;
procedure SetController (const Value : IDoctoresController);
function GetWindowCaption : String;
procedure SetWindowCaption(const AValue : String);
property WindowCaption : String read GetWindowCaption write SetWindowCaption;
function GetHeaderText : String;
procedure SetHeaderText(const AValue : String);
property HeaderText : String read GetHeaderText write SetHeaderText;
public
property Doctores: IBizDoctor read GetDoctores write SetDoctores;
property Controller : IDoctoresController read GetController write SetController;
end;
implementation
{$R *.dfm}
{ TfEditorDoctores }
uses
uDialogUtils;
function TfEditorDoctores.GetController: IDoctoresController;
begin
Result := FController;
end;
function TfEditorDoctores.GetDoctores: IBizDoctor;
begin
Result := FDoctores;
end;
function TfEditorDoctores.GetHeaderText: String;
begin
//
end;
function TfEditorDoctores.GetWindowCaption: String;
begin
//
end;
procedure TfEditorDoctores.SetController(const Value: IDoctoresController);
begin
FController := Value;
end;
procedure TfEditorDoctores.SetDoctores(const Value: IBizDoctor);
begin
FDoctores := Value;
DADataSource.DataTable := (FDoctores as IBizDoctor).DataTable;
DADataSource.DataTable.Open;
end;
procedure TfEditorDoctores.SetHeaderText(const AValue: String);
begin
//
end;
procedure TfEditorDoctores.SetWindowCaption(const AValue: String);
begin
//
end;
procedure TfEditorDoctores.actAnadirExecute(Sender: TObject);
begin
if not FController.Localizar(Doctores, editDoctor.Text) then
begin
Doctores.Append;
Doctores.DESCRIPCION := editDoctor.Text;
Doctores.Post;
editDoctor.Clear;
ListaDoctores.SetFocus;
end
else
ShowErrorMessage('Ya existe el doctor ' + editDoctor.Text,
'Ya existe el doctor ''' + editDoctor.Text + ''' en la lista.');
end;
procedure TfEditorDoctores.actEliminarExecute(Sender: TObject);
begin
Doctores.Delete;
ListaDoctores.SetFocus;
end;
procedure TfEditorDoctores.actEliminarUpdate(Sender: TObject);
begin
(Sender as TAction).Enabled := (FDoctores.DataTable.RecordCount > 0) and
(Length(ListaDoctores.SelectedItem) > 0);
end;
procedure TfEditorDoctores.CustomEditorClose(Sender: TObject; var Action: TCloseAction);
begin
FDoctores := Nil;
FController := Nil;
end;
procedure TfEditorDoctores.actAceptarExecute(Sender: TObject);
begin
try
Doctores.DataTable.ApplyUpdates;
except
on E : Exception do begin
Doctores.DataTable.CancelUpdates;
ShowErrorMessage('Error al guardar cambios', 'Se ha producido un error grave', E);
exit;
end;
end;
actCerrar.Execute;
end;
procedure TfEditorDoctores.actCancelarExecute(Sender: TObject);
begin
Doctores.DataTable.CancelUpdates;
actCerrar.Execute;
end;
procedure TfEditorDoctores.actCerrarExecute(Sender: TObject);
begin
Close;
end;
procedure TfEditorDoctores.actAnadirUpdate(Sender: TObject);
begin
(Sender as TAction).Enabled := (Length(editDoctor.Text) > 0)
end;
procedure TfEditorDoctores.FormShow(Sender: TObject);
begin
if not FDoctores.DataTable.Active then
FDoctores.DataTable.Active := true;
editDoctor.SetFocus;
end;
end.

171
Source/Modulos/Contactos/Views/uEditorPabellones.dfm Normal file
View File

@ -0,0 +1,171 @@
object fEditorPabellones: TfEditorPabellones
Left = 453
Top = 234
ActiveControl = ListaPabellones
BorderIcons = [biSystemMenu]
BorderStyle = bsSingle
Caption = 'Administraci'#243'n de pabellones'
ClientHeight = 499
ClientWidth = 404
Color = clBtnFace
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
OldCreateOrder = False
Position = poScreenCenter
OnClose = CustomEditorClose
OnShow = FormShow
InstanceID = 0
ReadOnly = False
PixelsPerInch = 96
TextHeight = 13
object bAceptar: TButton
Left = 226
Top = 464
Width = 75
Height = 25
Action = actAceptar
Default = True
TabOrder = 1
end
object bCancelar: TButton
Left = 314
Top = 464
Width = 75
Height = 25
Action = actCancelar
Cancel = True
TabOrder = 2
end
object PageControl1: TPageControl
Left = 8
Top = 8
Width = 390
Height = 442
ActivePage = TabSheet1
TabOrder = 0
object TabSheet1: TTabSheet
Caption = 'Pabellones'
object Label1: TLabel
Left = 47
Top = 16
Width = 91
Height = 13
Caption = 'Lista de pabellones'
end
object Image1: TImage
Left = 3
Top = 4
Width = 38
Height = 24
Picture.Data = {
0B546478504E47496D61676589504E470D0A1A0A0000000D4948445200000018
000000180806000000E0773DF8000000017352474200AECE1CE9000000046741
4D410000B18F0BFC6105000000206348524D00007A26000080840000FA000000
80E8000075300000EA6000003A98000017709CBA513C00000009704859730000
4E2000004E2001167D99DE0000026E49444154484BB5965F48537114C76F0FBD
596FA1415090FAD0438AAF0541D45B41D48BF4203E46CF51D0631069F61004FD
8120908C1E647FC07637958C88A5223344A49AA6B6E9C69A6EAEB5CDBFDF7EE7
CCDFE5DEDFEEEE6ED02E1C18C7BBCFE7FCCE39BFE101005A5D1F12D4335C15FF
F886D626024AB4C92FBFD19AF15CD338EE8B7005952F49F897B7ED30C7BE8C25
52F054C0EFFD8BC00CF73E6844FFDD431CF4996452420282F789B8ED566086FB
7A9AD4F6807252F2A2E1201E09F02D11DD6E0466B8A7E738C3037A10E313931C
C1D028E7BCBD270CC99D060D9D027EBE96C0D29687270DB8D834CB333CF29EFF
E6EB6B3624578E68687112582AEF2D57AE8BCAD567776F0F5BDB3BD043231527
397DB4CA16D9F55CD74355E185E22672F92202C1B2C43C1362595655DD16D9F3
6A954BF8FAC61FA4D67E8BF90C974FA26C174BEC2AF77A3D352B97F0D5D4067E
2632F0FBFDF6272133AD9B67BFE701176D51E18BF13544977F612810AA98099D
C0D871A781AA6D91954BF8D71F49CC465731E8D32D77C698C5A5CE9B156DD9DE
D9456973ABE292C9A21662697C5F4A616E3E81996F2B88CCC5F0A45FC7A9F68E
CADF235520E1F9428905A5F16E230AE12ECEA9F0C999657702333C9B2B5804C5
CF5DC87EB8C63973E5040F4F2FD616A8F074266F11103CA15FE49C6C8B847F9C
5A7016D8C193E91CC3F29FAE23337615B17717303D709673D473337C6C22EA2C
A08152CFA92D5439C1E3C92CC3D2A397111F3A87C8C019D0BC28A7C26B0AECE0
4B2BEB0C23F8FC6007665FB720F2EA18E7A8E7D41602CB70DC22BA40F4821A04
2BC35B31F5B209E167875960F7AEA380F6F77F8571C1EAF91F05B1FF02D00DDF
9B87525B540000000049454E44AE426082}
Transparent = True
end
object ListaPabellones: TDBLookupListBox
Left = 3
Top = 37
Width = 281
Height = 251
KeyField = 'RecID'
ListField = 'DESCRIPCION'
ListSource = DADataSource
TabOrder = 0
end
object bEliminar: TButton
Left = 302
Top = 37
Width = 75
Height = 25
Action = actEliminar
TabOrder = 1
end
object GroupBox1: TGroupBox
Left = 6
Top = 318
Width = 369
Height = 84
Caption = 'A'#241'adir un nuevo pabell'#243'n'
TabOrder = 2
object eCategoria: TLabel
Left = 18
Top = 20
Width = 37
Height = 13
Caption = 'Nombre'
end
object bAnadir: TButton
Left = 282
Top = 38
Width = 75
Height = 25
Action = actAnadir
TabOrder = 1
end
object editPabellon: TEdit
Left = 21
Top = 39
Width = 255
Height = 21
TabOrder = 0
end
end
end
end
object ActionList1: TActionList
Left = 144
Top = 16
object actAnadir: TAction
Caption = '&A'#241'adir'
OnExecute = actAnadirExecute
OnUpdate = actAnadirUpdate
end
object actEliminar: TAction
Caption = '&Eliminar'
OnExecute = actEliminarExecute
OnUpdate = actEliminarUpdate
end
object actAceptar: TAction
Caption = 'A&ceptar'
OnExecute = actAceptarExecute
end
object actCancelar: TAction
Caption = '&Cancelar'
OnExecute = actCancelarExecute
end
object actCerrar: TAction
Caption = 'actCerrar'
OnExecute = actCerrarExecute
end
end
object DADataSource: TDADataSource
Left = 168
Top = 16
end
end

208
Source/Modulos/Contactos/Views/uEditorPabellones.pas Normal file
View File

@ -0,0 +1,208 @@
{
===============================================================================
Copyright (©) 2006. Rodax Software.
===============================================================================
Los contenidos de este fichero son propiedad de Rodax Software titular del
copyright. Este fichero sólo podrá ser copiado, distribuido y utilizado,
en su totalidad o en parte, con el permiso escrito de Rodax Software, o de
acuerdo con los términos y condiciones establecidas en el acuerdo/contrato
bajo el que se suministra.
-----------------------------------------------------------------------------
Web: www.rodax-software.com
===============================================================================
Fecha primera versión: 22-05-2006
Versión actual: 1.0.0
Fecha versión actual: 22-05-2006
===============================================================================
Modificaciones:
Fecha Comentarios
---------------------------------------------------------------------------
===============================================================================
}
unit uEditorPabellones;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, DB, StdCtrls, DBCtrls, uDADataTable, ActnList,
uIEditorPabellones, uCustomEditor, uGUIBase, ExtCtrls,
ComCtrls, uBizPabellones, uPabellonesController, uDAInterfaces,
dxGDIPlusClasses;
type
TfEditorPabellones = class(TCustomEditor, IEditorPabellones)
ActionList1: TActionList;
DADataSource: TDADataSource;
ListaPabellones: TDBLookupListBox;
editPabellon: TEdit;
bAnadir: TButton;
actAnadir: TAction;
actEliminar: TAction;
bEliminar: TButton;
actAceptar: TAction;
actCancelar: TAction;
bAceptar: TButton;
bCancelar: TButton;
actCerrar: TAction;
PageControl1: TPageControl;
TabSheet1: TTabSheet;
GroupBox1: TGroupBox;
Label1: TLabel;
Image1: TImage;
procedure FormShow(Sender: TObject);
procedure CustomEditorClose(Sender: TObject; var Action: TCloseAction);
procedure actAnadirExecute(Sender: TObject);
procedure actEliminarExecute(Sender: TObject);
procedure actAceptarExecute(Sender: TObject);
procedure actCancelarExecute(Sender: TObject);
procedure actCerrarExecute(Sender: TObject);
procedure actAnadirUpdate(Sender: TObject);
procedure actEliminarUpdate(Sender: TObject);
protected
FPabellones: IBizPabellon;
FController: IPabellonesController;
function GetPabellones: IBizPabellon;
procedure SetPabellones(const Value: IBizPabellon);
function GetController : IPabellonesController;
procedure SetController (const Value : IPabellonesController);
function GetWindowCaption : String;
procedure SetWindowCaption(const AValue : String);
property WindowCaption : String read GetWindowCaption write SetWindowCaption;
function GetHeaderText : String;
procedure SetHeaderText(const AValue : String);
property HeaderText : String read GetHeaderText write SetHeaderText;
public
property Pabellones: IBizPabellon read GetPabellones write SetPabellones;
property Controller : IPabellonesController read GetController write SetController;
end;
implementation
{$R *.dfm}
{ TfEditorPabellones }
uses
uDialogUtils;
function TfEditorPabellones.GetController: IPabellonesController;
begin
Result := FController;
end;
function TfEditorPabellones.GetPabellones: IBizPabellon;
begin
Result := FPabellones;
end;
function TfEditorPabellones.GetHeaderText: String;
begin
//
end;
function TfEditorPabellones.GetWindowCaption: String;
begin
//
end;
procedure TfEditorPabellones.SetController(const Value: IPabellonesController);
begin
FController := Value;
end;
procedure TfEditorPabellones.SetPabellones(const Value: IBizPabellon);
begin
FPabellones := Value;
DADataSource.DataTable := (FPabellones as IBizPabellon).DataTable;
DADataSource.DataTable.Open;
end;
procedure TfEditorPabellones.SetHeaderText(const AValue: String);
begin
//
end;
procedure TfEditorPabellones.SetWindowCaption(const AValue: String);
begin
//
end;
procedure TfEditorPabellones.actAnadirExecute(Sender: TObject);
begin
if not FController.Localizar(Pabellones, editPabellon.Text) then
begin
Pabellones.Append;
Pabellones.DESCRIPCION := editPabellon.Text;
Pabellones.Post;
editPabellon.Clear;
ListaPabellones.SetFocus;
end
else
ShowErrorMessage('Ya existe el pabellón ' + editPabellon.Text,
'Ya existe el pabellón ''' + editPabellon.Text + ''' en la lista.');
end;
procedure TfEditorPabellones.actEliminarExecute(Sender: TObject);
begin
Pabellones.Delete;
ListaPabellones.SetFocus;
end;
procedure TfEditorPabellones.actEliminarUpdate(Sender: TObject);
begin
(Sender as TAction).Enabled := (FPabellones.DataTable.RecordCount > 0) and
(Length(ListaPabellones.SelectedItem) > 0);
end;
procedure TfEditorPabellones.CustomEditorClose(Sender: TObject; var Action: TCloseAction);
begin
FPabellones := Nil;
FController := Nil;
end;
procedure TfEditorPabellones.actAceptarExecute(Sender: TObject);
begin
try
Pabellones.DataTable.ApplyUpdates;
except
on E : Exception do begin
Pabellones.DataTable.CancelUpdates;
ShowErrorMessage('Error al guardar cambios', 'Se ha producido un error grave', E);
exit;
end;
end;
actCerrar.Execute;
end;
procedure TfEditorPabellones.actCancelarExecute(Sender: TObject);
begin
Pabellones.DataTable.CancelUpdates;
actCerrar.Execute;
end;
procedure TfEditorPabellones.actCerrarExecute(Sender: TObject);
begin
Close;
end;
procedure TfEditorPabellones.actAnadirUpdate(Sender: TObject);
begin
(Sender as TAction).Enabled := (Length(editPabellon.Text) > 0)
end;
procedure TfEditorPabellones.FormShow(Sender: TObject);
begin
if not FPabellones.DataTable.Active then
FPabellones.DataTable.Active := true;
editPabellon.SetFocus;
end;
end.

44
Source/Modulos/Contactos/Views/uEditorPaciente.dfm
View File

@ -16,7 +16,7 @@ inherited fEditorPaciente: TfEditorPaciente
000000180806000000E0773DF8000000017352474200AECE1CE9000000046741
4D410000B18F0BFC6105000000206348524D00007A26000080840000FA000000
80E8000075300000EA6000003A98000017709CBA513C00000009704859730000
17110000171101CA26F33F0000033249444154484BD5955D4853611880EBB26E
17100000171001186111DB0000033249444154484BD5955D4853611880EBB26E
122AFB5543FAB98AE8A68B8AA82E12FBB569CBB625951914044575D12FD14549
68991168A469A536742D878A95A925599ACEE66F6B9B6E6EFEE62ACD2CCB783A
E7804BDB9905E5451FBCE78773789EF77DBF73BE6F2230615C872818CF1857B8
@ -297,48 +297,6 @@ inherited fEditorPaciente: TfEditorPaciente
end
end
end
inherited pagDatosBancarios: TTabSheet
TabVisible = False
ExplicitWidth = 915
ExplicitHeight = 454
inherited frViewListaDatosBancarios: TfrViewListaDatosBancarios
Width = 915
Height = 454
ExplicitWidth = 915
ExplicitHeight = 454
inherited cxGrid: TcxGrid
Width = 915
Height = 429
ExplicitWidth = 915
ExplicitHeight = 429
end
inherited ToolBar1: TToolBar
Width = 915
ExplicitWidth = 915
end
end
end
inherited pagPersonal: TTabSheet
TabVisible = False
ExplicitWidth = 915
ExplicitHeight = 454
inherited frViewPersonalContacto1: TfrViewPersonalContacto
Width = 915
Height = 454
ExplicitWidth = 915
ExplicitHeight = 454
inherited cxGrid: TcxGrid
Width = 915
Height = 429
ExplicitWidth = 915
ExplicitHeight = 429
end
inherited ToolBar1: TToolBar
Width = 915
ExplicitWidth = 915
end
end
end
end
inherited StatusBar: TJvStatusBar
Top = 564

1
Source/Modulos/Contactos/Views/uEditorPacientes.dfm
View File

@ -98,6 +98,7 @@ inherited fEditorPacientes: TfEditorPacientes
FieldName = 'ID'
Column = frViewPacientes1.cxGridViewNIF_CIF
end>
OptionsCustomize.ColumnHidingOnGrouping = False
end
end
inherited frViewFiltroBase1: TfrViewFiltroBase

668
Source/Modulos/Contactos/Views/uViewDatosYSeleccionPaciente.dfm
View File

@ -1,668 +0,0 @@
inherited frViewDatosYSeleccionProveedor: TfrViewDatosYSeleccionProveedor
Width = 350
Height = 202
ExplicitWidth = 350
ExplicitHeight = 202
object dxLayoutControl1: TdxLayoutControl
Left = 0
Top = 0
Width = 350
Height = 211
Margins.Left = 0
Margins.Top = 0
Margins.Right = 0
Margins.Bottom = 0
Align = alTop
ParentBackground = True
TabOrder = 0
TabStop = False
AutoContentSizes = [acsWidth, acsHeight]
DesignSize = (
350
211)
object edtlNombre: TcxDBTextEdit
Left = 64
Top = 41
Anchors = [akLeft, akTop, akRight]
AutoSize = False
DataBinding.DataField = 'NOMBRE'
DataBinding.DataSource = DADataSource
Enabled = False
ParentFont = False
Properties.ReadOnly = True
Properties.UseLeftAlignmentOnEditing = False
Style.BorderColor = clWindowFrame
Style.BorderStyle = ebs3D
Style.HotTrack = False
Style.LookAndFeel.NativeStyle = True
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.NativeStyle = True
StyleDisabled.LookAndFeel.SkinName = ''
StyleDisabled.TextColor = clWindowText
StyleFocused.LookAndFeel.NativeStyle = True
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.NativeStyle = True
StyleHot.LookAndFeel.SkinName = ''
TabOrder = 2
Height = 21
Width = 276
end
object edtNIFCIF: TcxDBTextEdit
Left = 64
Top = 68
Anchors = [akLeft, akTop, akRight]
AutoSize = False
DataBinding.DataField = 'NIF_CIF'
DataBinding.DataSource = DADataSource
Enabled = False
ParentFont = False
Properties.ReadOnly = True
Properties.UseLeftAlignmentOnEditing = False
Style.BorderColor = clWindowFrame
Style.BorderStyle = ebs3D
Style.HotTrack = False
Style.LookAndFeel.NativeStyle = True
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.NativeStyle = True
StyleDisabled.LookAndFeel.SkinName = ''
StyleDisabled.TextColor = clWindowText
StyleFocused.LookAndFeel.NativeStyle = True
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.NativeStyle = True
StyleHot.LookAndFeel.SkinName = ''
TabOrder = 3
Height = 21
Width = 562
end
object edtCalle: TcxDBTextEdit
Left = 64
Top = 95
Anchors = [akLeft, akTop, akRight]
AutoSize = False
DataBinding.DataField = 'CALLE'
DataBinding.DataSource = DADataSource
Enabled = False
ParentFont = False
Properties.ReadOnly = True
Properties.UseLeftAlignmentOnEditing = False
Style.BorderColor = clWindowFrame
Style.BorderStyle = ebs3D
Style.HotTrack = False
Style.LookAndFeel.NativeStyle = True
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.NativeStyle = True
StyleDisabled.LookAndFeel.SkinName = ''
StyleDisabled.TextColor = clWindowText
StyleFocused.LookAndFeel.NativeStyle = True
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.NativeStyle = True
StyleHot.LookAndFeel.SkinName = ''
TabOrder = 4
Height = 21
Width = 562
end
object edtPoblacion: TcxDBTextEdit
Left = 64
Top = 122
Anchors = [akLeft, akTop, akRight]
AutoSize = False
DataBinding.DataField = 'POBLACION'
DataBinding.DataSource = DADataSource
Enabled = False
ParentFont = False
Properties.ReadOnly = True
Properties.UseLeftAlignmentOnEditing = False
Style.BorderColor = clWindowFrame
Style.BorderStyle = ebs3D
Style.HotTrack = False
Style.LookAndFeel.NativeStyle = True
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.NativeStyle = True
StyleDisabled.LookAndFeel.SkinName = ''
StyleDisabled.TextColor = clWindowText
StyleFocused.LookAndFeel.NativeStyle = True
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.NativeStyle = True
StyleHot.LookAndFeel.SkinName = ''
TabOrder = 5
Height = 21
Width = 177
end
object edtProvincia: TcxDBTextEdit
Left = 64
Top = 149
Anchors = [akLeft, akTop, akRight]
AutoSize = False
DataBinding.DataField = 'PROVINCIA'
DataBinding.DataSource = DADataSource
Enabled = False
ParentFont = False
Properties.ReadOnly = True
Properties.UseLeftAlignmentOnEditing = False
Style.BorderColor = clWindowFrame
Style.BorderStyle = ebs3D
Style.HotTrack = False
Style.LookAndFeel.NativeStyle = True
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.NativeStyle = True
StyleDisabled.LookAndFeel.SkinName = ''
StyleDisabled.TextColor = clWindowText
StyleFocused.LookAndFeel.NativeStyle = True
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.NativeStyle = True
StyleHot.LookAndFeel.SkinName = ''
TabOrder = 7
Height = 21
Width = 327
end
object edtCodigoPostal: TcxDBTextEdit
Left = 258
Top = 122
Anchors = [akLeft, akTop, akRight]
AutoSize = False
DataBinding.DataField = 'CODIGO_POSTAL'
DataBinding.DataSource = DADataSource
Enabled = False
ParentFont = False
Properties.ReadOnly = True
Properties.UseLeftAlignmentOnEditing = False
Style.BorderColor = clWindowFrame
Style.BorderStyle = ebs3D
Style.HotTrack = False
Style.LookAndFeel.NativeStyle = True
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.NativeStyle = True
StyleDisabled.LookAndFeel.SkinName = ''
StyleDisabled.TextColor = clWindowText
StyleFocused.LookAndFeel.NativeStyle = True
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.NativeStyle = True
StyleHot.LookAndFeel.SkinName = ''
TabOrder = 6
Height = 21
Width = 82
end
object Button1: TBitBtn
Left = 10
Top = 10
Width = 120
Height = 25
Action = actElegirContacto
Caption = 'Elegir un proveedor'
TabOrder = 0
Glyph.Data = {
36040000424D3604000000000000360000002800000010000000100000000100
2000000000000004000000000000000000000000000000000000FF00FF00FF00
FF00FF00FF00EB00EB00C507C600AB13AD00A119A2009F19A000A215A400AA10
AC00B608B800CE00CE00EF00EF00FF00FF00FF00FF00FF00FF00FF00FF00FF00
FF00B118C10040407B00344A830031498F002F4596002F4499002F4597003148
900033498500374678005A3E5300D201D200FF00FF00FF00FF00FF00FF00FF00
FF004E42860035508100314990002E429C002C3CA6002B3AAA002B3BA7002D40
9E0030479200344F840038577500A0189F00FF00FF00FF00FF00FF00FF00FF00
FF004C428900334D89002F4499002B3CA8002835B4002631BB002734B6002A3A
AB002E429C00324B8C0036537B00B015B100FF00FF00FF00FF00FF00FF00FF00
FF008726B300324A8D002D409E002938AF003138B6007A7BCB002830BF002835
B2002D3FA10031499000483B8700EC01EC00FF00FF00FF00FF00FF00FF00FF00
FF00F002F60051379D002D409F002937B000808AA300D2D3D3008181BB002834
B2002D3FA2003A3F9300C511CE00FF00FF00FF00FF00FF00FF00FF00FF00FF00
FF00FF00FF00EE02F4007324B7003C359300598CAE00498CBB004A81A600392A
71005929A600D608E100FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00
FF00FF00FF00FF00FF00EA0CF400608CD00054A2D80053A1D6004F9DD300488B
C2009D11AC00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00
FF00FF00FF00FF00FF008C67DE005CA9DD005CA9DD005AA7DC0056A4D900519F
D400565FAB00EA00EA00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00
FF00FF00FF00EC0DF60060A7DE0063B0E30063B0E30061AEE1005CA9DD0056A4
D9004E94CC00C105C600FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00
FF00FF00FF00C532ED0066B2E5006BB7E9006BB7E90067B3E60061AEE1005AA7
DC00539FD500A817BE00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00
FF00FF00FF00BA3AE7004989B1004A85AC005895BD0068B2E30064B0E4005CA9
DE0053A0D400AA1BC300FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00
FF00FF00FF00CA23E8005098C400539AC7004E93BE00437DA2005190BA005198
C6003C79A000BE08C300FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00
FF00FF00FF00F804FC006995D40062ACDA005DA6D3005299C6004284AD003C7F
A900535AA100F300F300FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00
FF00FF00FF00FF00FF00C140ED0071BAEA0068B2E00059A1CF004990BC004378
AA00C315D600FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00
FF00FF00FF00FF00FF00FF00FF00C83EF000808BDF00668BCC007C60C700D116
E400FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00}
end
object Button2: TBitBtn
Left = 136
Top = 10
Width = 149
Height = 25
Action = actAnadirContacto
Caption = 'Dar de alta un proveedor'
TabOrder = 1
Glyph.Data = {
36040000424D3604000000000000360000002800000010000000100000000100
2000000000000004000000000000000000000000000000000000FF00FF00FF00
FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00
FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00D5BFB1006947
3100694731006947310069473100694731006947310069473100694731006947
3100694731006947310069473100694731006947310069473100D5BFB100F6F2
EF00B7A29300B7A29300B7A29300B7A29300B7A29300B7A29300B7A29300B7A2
9300B7A29300B7A29300B7A29300B7A29300B7A2930069473100D5BFB100271E
80001C0D6F001C0D6F001C0D6F001C0D6F001C0D6F001C0D6F00271E8000E3D5
CE00E0D1C900DFCFC600DCCBC100DBC9BF00B7A2930069473100D5BFB1005C51
A8002F308B00352CA0003526A4003526A500332C9E002E2F8D001C0D6F00E7DB
D500A1745C00A1745C00A1745C00A1745C00B7A2930069473100D5BFB1008079
BC00302E95003626A60044329B0045329E003727A700302C95001C0D6F00EAE0
DA00E7DBD500E4D7D000E2D3CB00DFCFC600B7A2930069473100D5BFB100D1CD
E8004B41A700452D9400718FAB006F91A600463092001C0D6F00EFE8E300EDE4
DF00A1745C00A1745C00A1745C00A1745C00B7A2930069473100D5BFB100FFFF
FF00C9B9DD004F9DA000559BC8004E96C2004E8E8F00B0A8C200F2ECE800EFE8
E300EDE4DF00EAE0DA00E7DBD500E4D7D000B7A2930069473100D5BFB100FFFF
FF00A5CDE8005DA9DD005CA9DD0057A4D900519ACC00A0BACA00F5F0ED00F2EC
E800EFE8E300EDE4DF00EAE0DA00E7DBD500B7A2930069473100D5BFB100ECF6
FA006CB9DF0065B1E50065B0E5005FABDF0056A2D700689EBE00F7F4F100F5F0
ED00F2ECE800006000000060000000600000B7A2930069473100D5BFB100E9F6
FA005BB0D5005CA6D50065AFDF0062AEE20058A3D8003285A700FAF8F600F7F4
F100F7A073000060000033CB510000600000B7A2930069473100D5BFB100F4FA
FC0078C0DD0056A0CD00569DCA00539CCA00448DBB003285A700FDFCFB000060
0000006000000060000040D86500006000000060000000600000D5BFB100FFFF
FF00CEEAF40062B5DE005DA7D5004B92BE003285A700C6DCE600FFFFFF000060
000060F898005AF28F004DE57A0040D865003AD25C0000600000D5BFB100FFFF
FF00FFFFFF00CEEAF400A5CDE800A5CDE800CEEAF400FFFFFF00FFFFFF000060
000000600000006000005AF28F00006000000060000000600000D5BFB100D5BF
B100D5BFB100D5BFB100D5BFB100D5BFB100D5BFB100D5BFB100D5BFB100D5BF
B100D5BFB1000060000060F8980000600000D5BFB100D5BFB100FF00FF00FF00
FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00
FF00FF00FF00006000000060000000600000FF00FF00FF00FF00}
end
object Button3: TBitBtn
Left = 142
Top = 176
Width = 198
Height = 25
Action = actVerContacto
Caption = 'Ver ficha completa del proveedor...'
TabOrder = 8
Glyph.Data = {
36040000424D3604000000000000360000002800000010000000100000000100
2000000000000004000000000000000000000000000000000000FF00FF00FF00
FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00
FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00D3BDAE006543
2E0065432E0065432E0065432E0065432E0065432E0065432E0065432E006543
2E0065432E0065432E0065432E0065432E0065432E0065432E00D3BDAE00F6F1
EE00B49F8F00B49F8F00B49F8F00B49F8F00B49F8F00B49F8F00B49F8F00B49F
8F00B49F8F00B49F8F00B49F8F00B49F8F00B49F8F0065432E00D3BDAE00241B
7C00190B6B00190B6B00190B6B00190B6B00190B6B00190B6B00241B7C00E2D3
CC00DFCFC700DECDC400DBC9BF00DAC7BD00B49F8F0065432E00D3BDAE00584D
A5002C2D870031299D003123A1003123A20030299B002B2C8900190B6B00E6DA
D3009E7058009E7058009E7058009E705800B49F8F0065432E00D3BDAE007C75
B9002D2B92003223A300402F9800412F9B003324A4002D299200190B6B00E9DF
D800E6DAD300E3D5CE00E1D1C900DECDC400B49F8F0065432E00D3BDAE00CFCB
E700473DA400412A90006D8BA8006B8DA300422D8E00190B6B00EEE7E200ECE3
DE009E7058009E7058009E7058009E705800B49F8F0065432E00D3BDAE00FFFF
FF00C7B6DC004B9A9D005198C6004A93C0004A8A8B00ADA5C000F1EBE700EEE7
E200ECE3DE00E9DFD800E6DAD300E3D5CE00B49F8F0065432E00D3BDAE00FFFF
FF00A2CBE70059A6DC0058A6DC0053A1D7004D97CA009DB7C800F5EFEC00F1EB
E700EEE7E200ECE3DE00E9DFD800E6DAD300B49F8F0065432E00D3BDAE00EBF6
FA0068B6DE0061AEE40061ADE4005BA8DE00529FD500649BBC00F7F4F000F5EF
EC00F1EBE700EEE7E200ECE3DE00E9DFD800B49F8F0065432E00D3BDAE00E8F6
FA0057ADD30058A3D30061ACDE005EABE10054A0D6002F81A400FAF8F600F7F4
F000F79D6F00F79D6F00F79D6F00F79D6F00B49F8F0065432E00D3BDAE00F4FA
FC0074BEDC00529DCB00529AC8004F99C8004089B8002F81A400FDFCFB00FAF8
F600F7F4F000F5EFEC00F1EBE700EEE7E200B49F8F0065432E00D3BDAE00FFFF
FF00CCE9F4005EB2DD0059A4D300478EBC002F81A400C4DBE500FFFFFF00FDFC
FB00F79D6F00F79D6F00F79D6F00F79D6F00B49F8F0065432E00D3BDAE00FFFF
FF00FFFFFF00CCE9F400A2CBE700A2CBE700CCE9F400FFFFFF00FFFFFF00FFFF
FF00FEFEFD00FCFAF900F9F6F400F6F1EE00F2EDE90065432E00D3BDAE00D3BD
AE00D3BDAE00D3BDAE00D3BDAE00D3BDAE00D3BDAE00D3BDAE00D3BDAE00D3BD
AE00D3BDAE00D3BDAE00D3BDAE00D3BDAE00D3BDAE00D3BDAE00FF00FF00FF00
FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00
FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00}
end
object dxLayoutControl1Group_Root: TdxLayoutGroup
ShowCaption = False
Hidden = True
ShowBorder = False
object dxLayoutControl1Group1: TdxLayoutGroup
ShowCaption = False
Hidden = True
LayoutDirection = ldHorizontal
ShowBorder = False
object dxLayoutControl1Item7: TdxLayoutItem
Caption = 'Button1'
ShowCaption = False
Control = Button1
ControlOptions.ShowBorder = False
end
object dxLayoutControl1Item8: TdxLayoutItem
Caption = 'Button2'
ShowCaption = False
Control = Button2
ControlOptions.ShowBorder = False
end
end
object dxLayoutControl1Item1: TdxLayoutItem
AutoAligns = [aaVertical]
AlignHorz = ahClient
Caption = 'Nombre:'
Control = edtlNombre
ControlOptions.ShowBorder = False
end
object dxLayoutControl1Item2: TdxLayoutItem
Caption = 'NIF/CIF'
Control = edtNIFCIF
ControlOptions.ShowBorder = False
end
object dxLayoutControl1Item3: TdxLayoutItem
Caption = 'Calle:'
Control = edtCalle
ControlOptions.ShowBorder = False
end
object dxLayoutControl1Group2: TdxLayoutGroup
AutoAligns = [aaVertical]
AlignHorz = ahClient
ShowCaption = False
Hidden = True
LayoutDirection = ldHorizontal
ShowBorder = False
object dxLayoutControl1Item4: TdxLayoutItem
AutoAligns = [aaVertical]
AlignHorz = ahClient
Caption = 'Poblaci'#243'n:'
Control = edtPoblacion
ControlOptions.ShowBorder = False
end
object dxLayoutControl1Item6: TdxLayoutItem
AutoAligns = [aaVertical]
AlignHorz = ahRight
Caption = 'C.P.:'
Control = edtCodigoPostal
ControlOptions.ShowBorder = False
end
end
object dxLayoutControl1Item5: TdxLayoutItem
Caption = 'Provincia:'
Control = edtProvincia
ControlOptions.ShowBorder = False
end
object dxLayoutControl1Item9: TdxLayoutItem
AutoAligns = [aaVertical]
AlignHorz = ahRight
Caption = 'Button3'
ShowCaption = False
Control = Button3
ControlOptions.ShowBorder = False
end
end
end
object DADataSource: TDADataSource
Left = 8
Top = 160
end
object ActionList1: TActionList
Images = PngImageList
Left = 40
Top = 160
object actElegirContacto: TAction
Caption = 'Elegir un proveedor'
ImageIndex = 1
OnExecute = actElegirContactoExecute
end
object actAnadirContacto: TAction
Caption = 'Dar de alta un proveedor'
ImageIndex = 0
OnExecute = actAnadirContactoExecute
end
object actVerContacto: TAction
Caption = 'Ver ficha completa del proveedor...'
ImageIndex = 2
OnExecute = actVerContactoExecute
OnUpdate = actVerContactoUpdate
end
end
object PngImageList: TPngImageList
PngImages = <
item
PngImage.Data = {
89504E470D0A1A0A0000000D49484452000000100000001008060000001FF3FF
610000000970485973000017120000171201679FD25200000A4D694343505068
6F746F73686F70204943432070726F66696C65000078DA9D53775893F7163EDF
F7650F5642D8F0B1976C81002223AC08C81059A21092006184101240C585880A
561415119C4855C482D50A489D88E2A028B867418A885A8B555C38EE1FDCA7B5
7D7AEFEDEDFBD7FBBCE79CE7FCCE79CF0F8011122691E6A26A003952853C3AD8
1F8F4F48C4C9BD80021548E0042010E6CBC26705C50000F00379787E74B03FFC
01AF6F00020070D52E2412C7E1FF83BA50265700209100E02212E70B01905200
C82E54C81400C81800B053B3640A009400006C797C422200AA0D00ECF4493E05
00D8A993DC1700D8A21CA908008D0100992847240240BB00605581522C02C0C2
00A0AC40222E04C0AE018059B632470280BD0500768E58900F4060008099422C
CC0020380200431E13CD03204C03A030D2BFE0A95F7085B8480100C0CB95CD97
4BD23314B895D01A77F2F0E0E221E2C26CB142611729106609E4229C979B2313
48E7034CCE0C00001AF9D1C1FE383F90E7E6E4E1E666E76CEFF4C5A2FE6BF06F
223E21F1DFFEBC8C020400104ECFEFDA5FE5E5D60370C701B075BF6BA95B00DA
560068DFF95D33DB09A05A0AD07AF98B7938FC401E9EA150C83C1D1C0A0B0BED
2562A1BD30E38B3EFF33E16FE08B7EF6FC401EFEDB7AF000719A4099ADC0A383
FD71616E76AE528EE7CB0442316EF7E723FEC7857FFD8E29D1E234B15C2C158A
F15889B850224DC779B952914421C995E212E97F32F11F96FD0993770D00AC86
4FC04EB607B5CB6CC07EEE01028B0E58D27600407EF32D8C1A0B910010673432
79F7000093BFF98F402B0100CD97A4E30000BCE8185CA894174CC608000044A0
812AB041070CC114ACC00E9CC11DBCC01702610644400C24C03C104206E4801C
0AA11896411954C03AD804B5B0031AA0119AE110B4C131380DE7E0125C81EB70
170660189EC218BC86090441C8081361213A8811628ED822CE0817998E042261
48349280A420E988145122C5C872A402A9426A915D4823F22D7214398D5C40FA
90DBC820328AFC8ABC47319481B25103D4027540B9A81F1A8AC6A073D174340F
5D8096A26BD11AB41E3D80B6A2A7D14BE87574007D8A8E6380D1310E668CD961
5C8C87456089581A26C71663E55835568F35631D583776151BC09E61EF082402
8B8013EC085E8410C26C82909047584C5843A825EC23B412BA085709838431C2
272293A84FB4257A12F9C478623AB1905846AC26EE211E219E255E270E135F93
48240EC992E44E0A21259032490B496B48DB482DA453A43ED210699C4C26EB90
6DC9DEE408B280AC209791B7900F904F92FBC9C3E4B7143AC588E24C09A22452
A494124A35653FE504A59F324299A0AA51CDA99ED408AA883A9F5A496DA07650
2F5387A91334759A25CD9B1643CBA42DA3D5D09A696769F7682FE974BA09DD83
1E4597D097D26BE807E9E7E983F4770C0D860D83C7486228196B197B19A718B7
192F994CA605D39799C85430D7321B9967980F986F55582AF62A7C1591CA1295
3A9556957E95E7AA545573553FD579AA0B54AB550FAB5E567DA64655B350E3A9
09D416ABD5A91D55BBA936AECE5277528F50CF515FA3BE5FFD82FA630DB28685
46A08648A35463B7C6198D2116C63265F15842D6725603EB2C6B984D625BB2F9
EC4C7605FB1B762F7B4C534373AA66AC6691669DE671CD010EC6B1E0F039D99C
4ACE21CE0DCE7B2D032D3F2DB1D66AAD66AD7EAD37DA7ADABEDA62ED72ED16ED
EBDAEF75709D409D2C9DF53A6D3AF77509BA36BA51BA85BADB75CFEA3ED363EB
79E909F5CAF50EE9DDD147F56DF4A3F517EAEFD6EFD11F373034083690196C31
3863F0CC9063E86B9869B8D1F084E1A811CB68BA91C468A3D149A327B826EE87
67E33578173E66AC6F1C62AC34DE65DC6B3C61626932DBA4C4A4C5E4BE29CD94
6B9A66BAD1B4D374CCCCC82CDCACD8ACC9EC8E39D59C6B9E61BED9BCDBFC8D85
A5459CC54A8B368BC796DA967CCB05964D96F7AC98563E567956F556D7AC49D6
5CEB2CEB6DD6576C501B579B0C9B3A9BCBB6A8AD9BADC4769B6DDF14E2148F29
D229F5536EDA31ECFCEC0AEC9AEC06ED39F661F625F66DF6CF1DCC1C121DD63B
743B7C727475CC766C70BCEBA4E134C3A9C4A9C3E957671B67A1739DF33517A6
4B90CB1297769717536DA78AA76E9F7ACB95E51AEEBAD2B5D3F5A39BBB9BDCAD
D96DD4DDCC3DC57DABFB4D2E9B1BC95DC33DEF41F4F0F758E271CCE39DA79BA7
C2F390E72F5E765E595EFBBD1E4FB39C269ED6306DC8DBC45BE0BDCB7B603A3E
3D65FACEE9033EC63E029F7A9F87BEA6BE22DF3DBE237ED67E997E07FC9EFB3B
FACBFD8FF8BFE179F216F14E056001C101E501BD811A81B3036B031F049904A5
0735058D05BB062F0C3E15420C090D591F72936FC017F21BF96333DC672C9AD1
15CA089D155A1BFA30CC264C1ED6118E86CF08DF107E6FA6F94CE9CCB60888E0
476C88B81F69199917F97D14292A32AA2EEA51B453747174F72CD6ACE459FB67
BD8EF18FA98CB93BDB6AB6727667AC6A6C526C63EC9BB880B8AAB8817887F845
F1971274132409ED89E4C4D8C43D89E37302E76C9A339CE49A54967463AEE5DC
A2B917E6E9CECB9E773C593559907C3885981297B23FE5832042502F184FE5A7
6E4D1D13F2849B854F45BEA28DA251B1B7B84A3C92E69D5695F638DD3B7D43FA
68864F4675C633094F522B79911992B923F34D5644D6DEACCFD971D92D39949C
949CA3520D6996B42BD730B728B74F662B2B930DE479E66DCA1B9387CAF7E423
F973F3DB156C854CD1A3B452AE500E164C2FA82B785B185B78B848BD485AD433
DF66FEEAF9230B82167CBD90B050B8B0B3D8B87859F1E022BF45BB16238B5317
772E315D52BA647869F0D27DCB68CBB296FD50E2585255F26A79DCF28E5283D2
A5A5432B82573495A994C9CB6EAEF45AB9631561956455EF6A97D55B567F2A17
955FAC70ACA8AEF8B046B8E6E2574E5FD57CF5796DDADADE4AB7CAEDEB48EBA4
EB6EACF759BFAF4ABD6A41D5D086F00DAD1BF18DE51B5F6D4ADE74A17A6AF58E
CDB4CDCACD03356135ED5BCCB6ACDBF2A136A3F67A9D7F5DCB56FDADABB7BED9
26DAD6BFDD777BF30E831D153BDEEF94ECBCB52B78576BBD457DF56ED2EE82DD
8F1A621BBABFE67EDDB847774FC59E8F7BA57B07F645EFEB6A746F6CDCAFBFBF
B2096D52368D1E483A70E59B806FDA9BED9A77B5705A2A0EC241E5C127DFA67C
7BE350E8A1CEC3DCC3CDDF997FB7F508EB48792BD23ABF75AC2DA36DA03DA1BD
EFE88CA39D1D5E1D47BEB7FF7EEF31E36375C7358F579EA09D283DF1F9E48293
E3A764A79E9D4E3F3DD499DC79F74CFC996B5D515DBD6743CF9E3F1774EE4CB7
5FF7C9F3DEE78F5DF0BC70F422F762DB25B74BAD3DAE3D477E70FDE148AF5B6F
EB65F7CBED573CAE74F44DEB3BD1EFD37FFA6AC0D573D7F8D72E5D9F79BDEFC6
EC1BB76E26DD1CB825BAF5F876F6ED17770AEE4CDC5D7A8F78AFFCBEDAFDEA07
FA0FEA7FB4FEB165C06DE0F860C060CFC3590FEF0E09879EFE94FFD387E1D247
CC47D52346238D8F9D1F1F1B0D1ABDF264CE93E1A7B2A713CFCA7E56FF79EB73
ABE7DFFDE2FB4BCF58FCD8F00BF98BCFBFAE79A9F372EFABA9AF3AC723C71FBC
CE793DF1A6FCADCEDB7DEFB8EFBADFC7BD1F9928FC40FE50F3D1FA63C7A7D04F
F73EE77CFEFC2FF784F3FB25D29F33000002254944415478DA95936D48535118
C7FFB7E58535192C322B880A217A238841238212E94B048EA217E88B26158210
548322082422FD52862D30823230BF14A4511823D2185834B60537F37DA516B2
B6B6E6BABB77F7DC97EE3DE6192303F7C0E1790E9CFFEFFFF0F01C0EA5443D0C
567782B312D7DB3F642C55EF7DB41D1D1DF5686CEC446FDD1018A0B67A1BBD88
89287ECF0CD3BA7CFD56382A76CD3F3AC531485BFB499C3FD7CDEE0C60897F84
FC90E608E28914E2D959EC3FE1C7DAAA3D1460394B8A8244364B8F5577DD1A9C
071CDABB015383D7F1EB6B0C9A66620D0D994C06493985A39742283B6D638E67
2E57E37EEB407107073DAB301EB800E438ACB0DB613301393187E8F418BC17DF
83A81AAE3D056E0ED871B8C98D6777C3B853D387078F9F2F002AF13DD80C5ECE
C39AB34214C89284597525DCC7DBA0AA3A85ACF139997311C09A413CD20D71E2
95D53F544290CD29D0377A51B5FB18155B670144888637EF3E160362810F087E
BB812D3A6F7690475806DCEB1AB0F940CD3F622B07434201E071AAE8F75DC1CF
A482CA861D20CB74241F0E6372F2337CE302155FBDFDA268273C3B5717008EC0
138CBEEC814BE621963B613397CC2ECE215596C7D854124D42843993BF9D8485
9102406A6FC1CC1701152A8FE50AE88EE6791D691BC1742C85B391105AEE05FE
DF41B4EE08D26971D1F575B91CA8ED7B4D5D35DDA05937F3A7D18902609F7B13
BA7ADE96F4AFAC6080E6567FC962B68986B1E4CFB868FC01A6204E3EB3788BD6
0000000049454E44AE426082}
Name = 'PngImage0'
Background = clWindow
end
item
PngImage.Data = {
89504E470D0A1A0A0000000D49484452000000100000001008060000001FF3FF
61000000097048597300000AC400000AC401666D82D400000A4D694343505068
6F746F73686F70204943432070726F66696C65000078DA9D53775893F7163EDF
F7650F5642D8F0B1976C81002223AC08C81059A21092006184101240C585880A
561415119C4855C482D50A489D88E2A028B867418A885A8B555C38EE1FDCA7B5
7D7AEFEDEDFBD7FBBCE79CE7FCCE79CF0F8011122691E6A26A003952853C3AD8
1F8F4F48C4C9BD80021548E0042010E6CBC26705C50000F00379787E74B03FFC
01AF6F00020070D52E2412C7E1FF83BA50265700209100E02212E70B01905200
C82E54C81400C81800B053B3640A009400006C797C422200AA0D00ECF4493E05
00D8A993DC1700D8A21CA908008D0100992847240240BB00605581522C02C0C2
00A0AC40222E04C0AE018059B632470280BD0500768E58900F4060008099422C
CC0020380200431E13CD03204C03A030D2BFE0A95F7085B8480100C0CB95CD97
4BD23314B895D01A77F2F0E0E221E2C26CB142611729106609E4229C979B2313
48E7034CCE0C00001AF9D1C1FE383F90E7E6E4E1E666E76CEFF4C5A2FE6BF06F
223E21F1DFFEBC8C020400104ECFEFDA5FE5E5D60370C701B075BF6BA95B00DA
560068DFF95D33DB09A05A0AD07AF98B7938FC401E9EA150C83C1D1C0A0B0BED
2562A1BD30E38B3EFF33E16FE08B7EF6FC401EFEDB7AF000719A4099ADC0A383
FD71616E76AE528EE7CB0442316EF7E723FEC7857FFD8E29D1E234B15C2C158A
F15889B850224DC779B952914421C995E212E97F32F11F96FD0993770D00AC86
4FC04EB607B5CB6CC07EEE01028B0E58D27600407EF32D8C1A0B910010673432
79F7000093BFF98F402B0100CD97A4E30000BCE8185CA894174CC608000044A0
812AB041070CC114ACC00E9CC11DBCC01702610644400C24C03C104206E4801C
0AA11896411954C03AD804B5B0031AA0119AE110B4C131380DE7E0125C81EB70
170660189EC218BC86090441C8081361213A8811628ED822CE0817998E042261
48349280A420E988145122C5C872A402A9426A915D4823F22D7214398D5C40FA
90DBC820328AFC8ABC47319481B25103D4027540B9A81F1A8AC6A073D174340F
5D8096A26BD11AB41E3D80B6A2A7D14BE87574007D8A8E6380D1310E668CD961
5C8C87456089581A26C71663E55835568F35631D583776151BC09E61EF082402
8B8013EC085E8410C26C82909047584C5843A825EC23B412BA085709838431C2
272293A84FB4257A12F9C478623AB1905846AC26EE211E219E255E270E135F93
48240EC992E44E0A21259032490B496B48DB482DA453A43ED210699C4C26EB90
6DC9DEE408B280AC209791B7900F904F92FBC9C3E4B7143AC588E24C09A22452
A494124A35653FE504A59F324299A0AA51CDA99ED408AA883A9F5A496DA07650
2F5387A91334759A25CD9B1643CBA42DA3D5D09A696769F7682FE974BA09DD83
1E4597D097D26BE807E9E7E983F4770C0D860D83C7486228196B197B19A718B7
192F994CA605D39799C85430D7321B9967980F986F55582AF62A7C1591CA1295
3A9556957E95E7AA545573553FD579AA0B54AB550FAB5E567DA64655B350E3A9
09D416ABD5A91D55BBA936AECE5277528F50CF515FA3BE5FFD82FA630DB28685
46A08648A35463B7C6198D2116C63265F15842D6725603EB2C6B984D625BB2F9
EC4C7605FB1B762F7B4C534373AA66AC6691669DE671CD010EC6B1E0F039D99C
4ACE21CE0DCE7B2D032D3F2DB1D66AAD66AD7EAD37DA7ADABEDA62ED72ED16ED
EBDAEF75709D409D2C9DF53A6D3AF77509BA36BA51BA85BADB75CFEA3ED363EB
79E909F5CAF50EE9DDD147F56DF4A3F517EAEFD6EFD11F373034083690196C31
3863F0CC9063E86B9869B8D1F084E1A811CB68BA91C468A3D149A327B826EE87
67E33578173E66AC6F1C62AC34DE65DC6B3C61626932DBA4C4A4C5E4BE29CD94
6B9A66BAD1B4D374CCCCC82CDCACD8ACC9EC8E39D59C6B9E61BED9BCDBFC8D85
A5459CC54A8B368BC796DA967CCB05964D96F7AC98563E567956F556D7AC49D6
5CEB2CEB6DD6576C501B579B0C9B3A9BCBB6A8AD9BADC4769B6DDF14E2148F29
D229F5536EDA31ECFCEC0AEC9AEC06ED39F661F625F66DF6CF1DCC1C121DD63B
743B7C727475CC766C70BCEBA4E134C3A9C4A9C3E957671B67A1739DF33517A6
4B90CB1297769717536DA78AA76E9F7ACB95E51AEEBAD2B5D3F5A39BBB9BDCAD
D96DD4DDCC3DC57DABFB4D2E9B1BC95DC33DEF41F4F0F758E271CCE39DA79BA7
C2F390E72F5E765E595EFBBD1E4FB39C269ED6306DC8DBC45BE0BDCB7B603A3E
3D65FACEE9033EC63E029F7A9F87BEA6BE22DF3DBE237ED67E997E07FC9EFB3B
FACBFD8FF8BFE179F216F14E056001C101E501BD811A81B3036B031F049904A5
0735058D05BB062F0C3E15420C090D591F72936FC017F21BF96333DC672C9AD1
15CA089D155A1BFA30CC264C1ED6118E86CF08DF107E6FA6F94CE9CCB60888E0
476C88B81F69199917F97D14292A32AA2EEA51B453747174F72CD6ACE459FB67
BD8EF18FA98CB93BDB6AB6727667AC6A6C526C63EC9BB880B8AAB8817887F845
F1971274132409ED89E4C4D8C43D89E37302E76C9A339CE49A54967463AEE5DC
A2B917E6E9CECB9E773C593559907C3885981297B23FE5832042502F184FE5A7
6E4D1D13F2849B854F45BEA28DA251B1B7B84A3C92E69D5695F638DD3B7D43FA
68864F4675C633094F522B79911992B923F34D5644D6DEACCFD971D92D39949C
949CA3520D6996B42BD730B728B74F662B2B930DE479E66DCA1B9387CAF7E423
F973F3DB156C854CD1A3B452AE500E164C2FA82B785B185B78B848BD485AD433
DF66FEEAF9230B82167CBD90B050B8B0B3D8B87859F1E022BF45BB16238B5317
772E315D52BA647869F0D27DCB68CBB296FD50E2585255F26A79DCF28E5283D2
A5A5432B82573495A994C9CB6EAEF45AB9631561956455EF6A97D55B567F2A17
955FAC70ACA8AEF8B046B8E6E2574E5FD57CF5796DDADADE4AB7CAEDEB48EBA4
EB6EACF759BFAF4ABD6A41D5D086F00DAD1BF18DE51B5F6D4ADE74A17A6AF58E
CDB4CDCACD03356135ED5BCCB6ACDBF2A136A3F67A9D7F5DCB56FDADABB7BED9
26DAD6BFDD777BF30E831D153BDEEF94ECBCB52B78576BBD457DF56ED2EE82DD
8F1A621BBABFE67EDDB847774FC59E8F7BA57B07F645EFEB6A746F6CDCAFBFBF
B2096D52368D1E483A70E59B806FDA9BED9A77B5705A2A0EC241E5C127DFA67C
7BE350E8A1CEC3DCC3CDDF997FB7F508EB48792BD23ABF75AC2DA36DA03DA1BD
EFE88CA39D1D5E1D47BEB7FF7EEF31E36375C7358F579EA09D283DF1F9E48293
E3A764A79E9D4E3F3DD499DC79F74CFC996B5D515DBD6743CF9E3F1774EE4CB7
5FF7C9F3DEE78F5DF0BC70F422F762DB25B74BAD3DAE3D477E70FDE148AF5B6F
EB65F7CBED573CAE74F44DEB3BD1EFD37FFA6AC0D573D7F8D72E5D9F79BDEFC6
EC1BB76E26DD1CB825BAF5F876F6ED17770AEE4CDC5D7A8F78AFFCBEDAFDEA07
FA0FEA7FB4FEB165C06DE0F860C060CFC3590FEF0E09879EFE94FFD387E1D247
CC47D52346238D8F9D1F1F1B0D1ABDF264CE93E1A7B2A713CFCA7E56FF79EB73
ABE7DFFDE2FB4BCF58FCD8F00BF98BCFBFAE79A9F372EFABA9AF3AC723C71FBC
CE793DF1A6FCADCEDB7DEFB8EFBADFC7BD1F9928FC40FE50F3D1FA63C7A7D04F
F73EE77CFEFC2FF784F3FB25D29F33000002B44944415478DA7D925F4853511C
C77F67F75EF7A799BB9A6E3A5B85A0203EA820F892502121119A523E14141A41
F5A244819144E4430F452F99580385A4D0CC2009410B940CCC4CA60BB2F04F43
65B639B7DD6DF7EEFED93D9D2D144DE60F0E07CEF97D3FE7F7FBFE0EC218433C
1042B01973AFAF5C0088DDF007B82CCF7AD0E15C70DFBF63774EC0B6D8D2FD0F
70F65C6C345BD8673C1FD5F8FD41F0F903E0F571FCA8E34F4DE7E0FCC89E80BE
E6727D7E699ECBA0D7668A920CA15004DCDE0028B204EE7561AEA9FD5B19490D
2707DCABA8CC31A70F531A0A045186154F042C19FBC1A803F8E5F2E0B61EE7C9
F9656E2429E0537B75E34658B2CB0A02D6B41FF20F9A00A90A48621478418047
2FA71ABA865D5D4901939DD575D66C733FCD3089B398A2804CCA97451144318A
EFDA271BFBC7579203DEB41DCD2EC93FEC6252521204555549FF72C2038E8B28
35AD1F2A577DE2E89E5398B6D7F6A6A51ACE25920820168B5721C3C4ECEADCE5
C79315E4D8BB27A0BBB9DC5A54689E326A198B4AEEE26D6C04C3D2ADE7D34D5F
7EF83B928E311E2DD6828C9C5CE629C2A6B3D67A1B4A05F20722C49BDE0D9C6B
084E3804E1EA8BEF4B33DB3FD416A0E550119B9E478F6762B590151408D5D543
71552DAC0DBC0561F01504F631E0A534A121257466646CE1E32E40EBF1D227AC
1E5D677919D8A8025AD041E6892A08BF1F8010B1D46F60C8A2614DC4CB0FBE3A
4A30877D3B00B74F95B94C14B699C8EB6904601463A0555490290491140A823A
1A027A1AFC64B77B17EBD7C6BC7D3B00374F972DA6D2E8489AF84F6C9054A055
6222F156603410D652C011711CD4BDFCFB9AE7B3BB6307E0FCB1E24B590C7A98
C150E946ACA2F8EB14B9520940A43410411A08A8587AA78DCDFE1C9A69C01276
EE9A0219E5019D8D2E305A0C36D05384031A2C2AB2129579C52773FC6ACC4DD2
968826B0A9F90BC88690F0ED1F7E3F0000000049454E44AE426082}
Name = 'PngImage1'
Background = clWindow
end
item
PngImage.Data = {
89504E470D0A1A0A0000000D49484452000000100000001008060000001FF3FF
610000000970485973000017120000171201679FD252000001FA4944415478DA
A5934B6813511486BF342610A2C50A86A220150BA2145C58D120828ABA2AD2BA
F0B510C48D1B1154A828A55D5877825474AB45375D58A80B9385292DA8A8B151
6B6D8DB50F43C1B4C624364C1E73E7E19DA96408B50BCDC0E5CC65E6FFFE7FCE
DCE3324D936A2E577FE46355041BD076B0C9DE280B23E412E3F6FD9A4DDBF107
76965F3464524D33109A8E2A7459350E1FBFEC002CF1FCEB1EF28B82F98534C9
5C9203A7EFB2A1712F9A6E70A557AD706EA88970FFD1C012E0E8BECDCC3EEF22
33338DAECBA7A64E36FB8B5431C389EBB12557B93461D8CED6FE71F8A5036809
AE271EBA0879177E9F0FB704284A9ED8B7498EB5476D71671F2B276809D63337
D481B75892EEC86F5429140A7CD7D6D17CEA4E85B3D5070B181A8A3A00AB07C9
B70F512643567E8410E4F22A46432B8D7B4E2E130BD9C4672F629580A9D02B86
E76EB0CDF0CA0425A205D8B5F11C5B8F1C5A26B6D6F09B0F0E2058AB11B97495
D44F95FAB34D881A831F0F26989A9EA0FDEB275B7CEDD6938A1EECDE117000FE
701FF1A703D4153D28AB6B71E3C2A72C92F6A8C413292E8CBD2F3B8B3F67213A
3AEE000AB7BB49CC8E11D03CAC92BFDB251D4A5E93B45B90984973FEDD08DDF7
C22B27889D69239355FE7A54EBD6FA690D0FDAAEBA61DAD59075F4F31707B0BF
790BBDFD83FF3C076540D7CD9EFF1FA66AC7F93783B161288AF0DFC000000000
49454E44AE426082}
Name = 'PngImage2'
Background = clWindow
end>
Left = 72
Top = 160
Bitmap = {}
end
end

265
Source/Modulos/Contactos/Views/uViewDatosYSeleccionPaciente.pas
View File

@ -1,265 +0,0 @@
unit uViewDatosYSeleccionPaciente;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, uViewBase, StdCtrls, cxControls, cxContainer, cxEdit, cxLabel,
cxDBLabel, ExtCtrls, DB, uDADataTable, uBizContactos,
ComCtrls, ToolWin, ActnList, ImgList, PngImageList, cxTextEdit, cxDBEdit,
pngimage, JvExControls, JvComponent, JvButton, JvTransparentButton, Mask,
DBCtrls,
uPacientesController, dxLayoutControl, Buttons, uDAInterfaces;
type
IViewDatosYSeleccionPaciente = interface(IViewBase)
['{EE8C51BD-618D-4211-A247-6FA9BD8EBFD9}']
function GetController: IPacientesController;
procedure SetController(Value: IPacientesController);
property Controller: IPacientesController read GetController write SetController;
function GetPaciente: IBizPaciente;
procedure SetPaciente(Value: IBizPaciente);
property Paciente: IBizPaciente read GetPaciente write SetPaciente;
function GetID_Paciente: integer;
procedure SetID_Paciente(const Value: integer);
property ID_Paciente: integer read GetID_Paciente write SetID_Paciente;
function GetOnPacienteChanged : TNotifyEvent;
procedure SetOnPacienteChanged (const Value : TNotifyEvent);
property OnPacienteChanged : TNotifyEvent read GetOnPacienteChanged
write SetOnPacienteChanged;
function GetMsgElegirPaciente: String;
procedure SetMsgElegirPaciente(const Value: String);
property MsgElegirPaciente : String read GetMsgElegirPaciente
write SetMsgElegirPaciente;
end;
TfrViewDatosYSeleccionPaciente = class(TfrViewBase, IViewDatosYSeleccionPaciente)
DADataSource: TDADataSource;
ActionList1: TActionList;
actElegirContacto: TAction;
actAnadirContacto: TAction;
actVerContacto: TAction;
PngImageList: TPngImageList;
dxLayoutControl1Group_Root: TdxLayoutGroup;
dxLayoutControl1: TdxLayoutControl;
dxLayoutControl1Item1: TdxLayoutItem;
edtlNombre: TcxDBTextEdit;
dxLayoutControl1Item2: TdxLayoutItem;
edtNIFCIF: TcxDBTextEdit;
dxLayoutControl1Item3: TdxLayoutItem;
edtCalle: TcxDBTextEdit;
dxLayoutControl1Item4: TdxLayoutItem;
edtPoblacion: TcxDBTextEdit;
dxLayoutControl1Item5: TdxLayoutItem;
edtProvincia: TcxDBTextEdit;
dxLayoutControl1Item6: TdxLayoutItem;
edtCodigoPostal: TcxDBTextEdit;
Button1: TBitBtn;
dxLayoutControl1Item7: TdxLayoutItem;
Button2: TBitBtn;
dxLayoutControl1Item8: TdxLayoutItem;
Button3: TBitBtn;
dxLayoutControl1Item9: TdxLayoutItem;
dxLayoutControl1Group1: TdxLayoutGroup;
dxLayoutControl1Group2: TdxLayoutGroup;
procedure actElegirContactoExecute(Sender: TObject);
procedure actAnadirContactoExecute(Sender: TObject);
procedure actVerContactoExecute(Sender: TObject);
procedure actVerContactoUpdate(Sender: TObject);
private
FController : IPacientesController;
FPaciente : IBizPaciente;
FOnPacienteChanged : TNotifyEvent;
FMsgElegirPaciente : String;
protected
function GetController: IPacientesController;
procedure SetController(Value: IPacientesController);
function GetPaciente: IBizPaciente;
procedure SetPaciente(Value: IBizPaciente);
function GetOnPacienteChanged : TNotifyEvent;
procedure SetOnPacienteChanged (const Value : TNotifyEvent);
function GetMsgElegirPaciente: String;
procedure SetMsgElegirPaciente(const Value: String);
procedure SetReadOnly(Value: Boolean); override;
function GetID_Paciente: integer;
procedure SetID_Paciente(const Value: integer);
procedure ElegirPacienteInternal; virtual;
procedure VerFichaPacienteInternal; virtual;
procedure NuevoPacienteInternal; virtual;
public
constructor Create(AOwner: TComponent); override;
destructor Destroy; override;
property MsgElegirPaciente : String read GetMsgElegirPaciente write SetMsgElegirPaciente;
property Controller: IPacientesController read GetController write SetController;
property Paciente: IBizPaciente read GetPaciente write SetPaciente;
property ID_Paciente: integer read GetID_Paciente write SetID_Paciente;
property OnPacienteChanged : TNotifyEvent read GetOnPacienteChanged write SetOnPacienteChanged;
end;
implementation
{$R *.dfm}
uses
uDataModulePacientes, Math;
procedure TfrViewDatosYSeleccionPaciente.actElegirContactoExecute(Sender: TObject);
begin
inherited;
ElegirPacienteInternal;
end;
procedure TfrViewDatosYSeleccionPaciente.actAnadirContactoExecute(
Sender: TObject);
begin
inherited;
NuevoPacienteInternal
end;
procedure TfrViewDatosYSeleccionPaciente.actVerContactoExecute(Sender: TObject);
begin
inherited;
VerFichaPacienteInternal;
end;
procedure TfrViewDatosYSeleccionPaciente.actVerContactoUpdate(Sender: TObject);
begin
inherited;
(Sender as TAction).Enabled := (Length(edtlNombre.Text) > 0);
end;
constructor TfrViewDatosYSeleccionPaciente.Create(AOwner: TComponent);
begin
inherited;
FMsgElegirPaciente := '';
FController := NIL;
end;
destructor TfrViewDatosYSeleccionPaciente.Destroy;
begin
FController := NIL;
inherited;
end;
procedure TfrViewDatosYSeleccionPaciente.ElegirPacienteInternal;
var
APaciente : IBizPaciente;
begin
inherited;
APaciente := (Controller.ElegirContacto(Controller.BuscarTodos,
FMsgElegirPaciente, False) as IBizPaciente);
if Assigned(APaciente) then
begin
Self.Update;
ShowHourglassCursor;
try
Paciente := APaciente;
finally
HideHourglassCursor;
end;
end;
end;
function TfrViewDatosYSeleccionPaciente.GetPaciente: IBizPaciente;
begin
Result := FPaciente;
end;
procedure TfrViewDatosYSeleccionPaciente.NuevoPacienteInternal;
var
APaciente : IBizPaciente;
begin
inherited;
APaciente := (Controller.Nuevo as IBizPaciente);
Controller.Ver(APaciente);
Paciente := APaciente;
end;
function TfrViewDatosYSeleccionPaciente.GetController: IPacientesController;
begin
if not Assigned(FController) then
FController := TPacientesController.Create;
Result := FController;
end;
function TfrViewDatosYSeleccionPaciente.GetID_Paciente: integer;
begin
Result := -1;
if Assigned(FPaciente) then
Result := FPaciente.ID;
end;
function TfrViewDatosYSeleccionPaciente.GetMsgElegirPaciente: String;
begin
Result := FMsgElegirPaciente;
end;
procedure TfrViewDatosYSeleccionPaciente.SetPaciente(Value: IBizPaciente);
begin
FPaciente := Value;
if Assigned(FPaciente) then
begin
DADataSource.DataTable := FPaciente.DataTable;
if not FPaciente.DataTable.Active then
FPaciente.DataTable.Active := True;
end
else
DADataSource.DataTable := NIL;
if Assigned(FOnPacienteChanged) then
FOnPacienteChanged(Self);
end;
procedure TfrViewDatosYSeleccionPaciente.SetReadOnly(Value: Boolean);
begin
inherited;
if (csLoading in Self.ComponentState) then
Exit;
actAnadirContacto.Enabled := not ReadOnly;
actElegirContacto.Enabled := not ReadOnly;
end;
procedure TfrViewDatosYSeleccionPaciente.VerFichaPacienteInternal;
begin
Controller.Ver(Paciente);
end;
procedure TfrViewDatosYSeleccionPaciente.SetController(Value: IPacientesController);
begin
if Assigned(FController) then
FController := NIL;
FController := Value;
end;
procedure TfrViewDatosYSeleccionPaciente.SetID_Paciente(const Value: integer);
begin
Self.Paciente := IBizPaciente(Controller.Buscar(Value));
end;
procedure TfrViewDatosYSeleccionPaciente.SetMsgElegirPaciente(
const Value: String);
begin
FMsgElegirPaciente := Value;
end;
function TfrViewDatosYSeleccionPaciente.GetOnPacienteChanged: TNotifyEvent;
begin
Result := FOnPacienteChanged;
end;
procedure TfrViewDatosYSeleccionPaciente.SetOnPacienteChanged(
const Value: TNotifyEvent);
begin
FOnPacienteChanged := Value;
end;
end.

148
Source/Modulos/Contactos/Views/uViewPaciente.dfm
View File

@ -1,6 +1,8 @@
inherited frViewPaciente: TfrViewPaciente
Width = 673
Height = 518
OnCreate = CustomViewCreate
OnDestroy = CustomViewDestroy
ExplicitWidth = 673
ExplicitHeight = 518
inherited dxLayoutControlContacto: TdxLayoutControl
@ -22,62 +24,62 @@ inherited frViewPaciente: TfrViewPaciente
end
inherited eCalle: TcxDBTextEdit
Left = 121
Top = 220
Top = 274
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
TabOrder = 7
TabOrder = 9
ExplicitLeft = 121
ExplicitTop = 220
ExplicitTop = 274
ExplicitWidth = 239
Width = 239
end
inherited cbProvincia: TcxDBComboBox
Left = 121
Top = 247
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
TabOrder = 8
ExplicitLeft = 121
ExplicitTop = 247
ExplicitWidth = 138
Width = 138
end
inherited cbPoblacion: TcxDBComboBox
Left = 121
Top = 274
Top = 301
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
TabOrder = 10
ExplicitLeft = 121
ExplicitTop = 274
ExplicitTop = 301
ExplicitWidth = 138
Width = 138
end
inherited cbPoblacion: TcxDBComboBox
Left = 121
Top = 328
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
TabOrder = 12
ExplicitLeft = 121
ExplicitTop = 328
ExplicitWidth = 239
Width = 239
end
inherited eCodigoPostal: TcxDBTextEdit
Left = 295
Top = 247
Top = 301
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
TabOrder = 9
TabOrder = 11
ExplicitLeft = 295
ExplicitTop = 247
ExplicitTop = 301
end
inherited eObservaciones: TcxDBMemo
Top = 358
Top = 412
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
TabOrder = 19
ExplicitTop = 358
TabOrder = 21
ExplicitTop = 412
ExplicitWidth = 629
ExplicitHeight = 38
Height = 38
@ -85,7 +87,7 @@ inherited frViewPaciente: TfrViewPaciente
end
object eFechaNacimiento: TcxDBDateEdit [8]
Left = 121
Top = 109
Top = 163
DataBinding.DataField = 'FECHA_NACIMIENTO'
DataBinding.DataSource = dsContacto
Style.BorderColor = clWindowFrame
@ -97,7 +99,7 @@ inherited frViewPaciente: TfrViewPaciente
StyleDisabled.LookAndFeel.NativeStyle = True
StyleFocused.LookAndFeel.NativeStyle = True
StyleHot.LookAndFeel.NativeStyle = True
TabOrder = 4
TabOrder = 6
Width = 239
end
object eNumeroSS: TcxDBTextEdit [9]
@ -120,7 +122,7 @@ inherited frViewPaciente: TfrViewPaciente
end
object eFechaBaja: TcxDBDateEdit [10]
Left = 121
Top = 136
Top = 190
DataBinding.DataField = 'FECHA_BAJA'
DataBinding.DataSource = dsContacto
Style.BorderColor = clWindowFrame
@ -132,12 +134,12 @@ inherited frViewPaciente: TfrViewPaciente
StyleDisabled.LookAndFeel.NativeStyle = True
StyleFocused.LookAndFeel.NativeStyle = True
StyleHot.LookAndFeel.NativeStyle = True
TabOrder = 5
TabOrder = 7
Width = 229
end
object eCausaBaja: TcxDBTextEdit [11]
Left = 121
Top = 163
Top = 217
DataBinding.DataField = 'CAUSA_BAJA'
DataBinding.DataSource = dsContacto
Style.BorderColor = clWindowFrame
@ -152,7 +154,7 @@ inherited frViewPaciente: TfrViewPaciente
StyleFocused.LookAndFeel.NativeStyle = True
StyleHot.LookAndFeel.Kind = lfStandard
StyleHot.LookAndFeel.NativeStyle = True
TabOrder = 6
TabOrder = 8
Width = 229
end
inherited eTlfParticular: TcxDBTextEdit
@ -161,7 +163,7 @@ inherited frViewPaciente: TfrViewPaciente
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
TabOrder = 13
TabOrder = 15
ExplicitLeft = 485
ExplicitWidth = 166
Width = 166
@ -172,18 +174,46 @@ inherited frViewPaciente: TfrViewPaciente
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
TabOrder = 12
TabOrder = 14
ExplicitLeft = 485
ExplicitWidth = 166
Width = 166
end
object cbDoctor: TcxDBComboBox [14]
Left = 121
Top = 109
DataBinding.DataField = 'DOCTOR'
DataBinding.DataSource = dsContacto
Properties.ImmediatePost = True
Properties.OnInitPopup = cbDoctorPropertiesInitPopup
Properties.OnValidate = cbDoctorPropertiesValidate
Style.BorderColor = clWindowFrame
Style.BorderStyle = ebs3D
Style.HotTrack = False
Style.LookAndFeel.Kind = lfStandard
Style.LookAndFeel.NativeStyle = True
Style.LookAndFeel.SkinName = ''
Style.ButtonStyle = bts3D
Style.PopupBorderStyle = epbsFrame3D
StyleDisabled.LookAndFeel.Kind = lfStandard
StyleDisabled.LookAndFeel.NativeStyle = True
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.Kind = lfStandard
StyleFocused.LookAndFeel.NativeStyle = True
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.Kind = lfStandard
StyleHot.LookAndFeel.NativeStyle = True
StyleHot.LookAndFeel.SkinName = ''
TabOrder = 4
Width = 183
end
inherited eTlfMovil: TcxDBTextEdit
Left = 485
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
TabOrder = 14
TabOrder = 16
ExplicitLeft = 485
ExplicitWidth = 166
Width = 166
@ -194,7 +224,7 @@ inherited frViewPaciente: TfrViewPaciente
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
TabOrder = 15
TabOrder = 17
ExplicitLeft = 485
ExplicitWidth = 166
Width = 166
@ -226,7 +256,7 @@ inherited frViewPaciente: TfrViewPaciente
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
TabOrder = 16
TabOrder = 18
ExplicitLeft = 485
ExplicitWidth = 137
Width = 137
@ -238,18 +268,46 @@ inherited frViewPaciente: TfrViewPaciente
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
TabOrder = 17
TabOrder = 19
ExplicitLeft = 485
ExplicitWidth = 137
Width = 137
end
object cbPabellon: TcxDBComboBox [21]
Left = 121
Top = 136
DataBinding.DataField = 'PABELLON'
DataBinding.DataSource = dsContacto
Properties.ImmediatePost = True
Properties.OnInitPopup = cbPabellonPropertiesInitPopup
Properties.OnValidate = cbPabellonPropertiesValidate
Style.BorderColor = clWindowFrame
Style.BorderStyle = ebs3D
Style.HotTrack = False
Style.LookAndFeel.Kind = lfStandard
Style.LookAndFeel.NativeStyle = True
Style.LookAndFeel.SkinName = ''
Style.ButtonStyle = bts3D
Style.PopupBorderStyle = epbsFrame3D
StyleDisabled.LookAndFeel.Kind = lfStandard
StyleDisabled.LookAndFeel.NativeStyle = True
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.Kind = lfStandard
StyleFocused.LookAndFeel.NativeStyle = True
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.Kind = lfStandard
StyleHot.LookAndFeel.NativeStyle = True
StyleHot.LookAndFeel.SkinName = ''
TabOrder = 5
Width = 239
end
inherited ePaginaWeb: TcxDBHyperLinkEdit
Left = 485
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
TabOrder = 18
TabOrder = 20
ExplicitLeft = 485
ExplicitWidth = 137
Width = 137
@ -266,14 +324,14 @@ inherited frViewPaciente: TfrViewPaciente
end
inherited ePersonaContacto: TcxDBTextEdit
Left = 121
Top = 301
Top = 355
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
TabOrder = 11
TabOrder = 13
ExplicitLeft = 121
ExplicitTop = 301
ExplicitTop = 355
ExplicitWidth = 239
Width = 239
end
@ -295,6 +353,16 @@ inherited frViewPaciente: TfrViewPaciente
Control = eNumeroSS
ControlOptions.ShowBorder = False
end
object dxLayoutControlContactoItem20: TdxLayoutItem
Caption = 'Doctor:'
Control = cbDoctor
ControlOptions.ShowBorder = False
end
object dxLayoutControlContactoItem21: TdxLayoutItem
Caption = 'Pabell'#243'n:'
Control = cbPabellon
ControlOptions.ShowBorder = False
end
object dxLayoutControlContactoItem16: TdxLayoutItem
AutoAligns = [aaVertical]
AlignHorz = ahClient

122
Source/Modulos/Contactos/Views/uViewPaciente.pas
View File

@ -8,7 +8,7 @@ uses
dxLayoutControl, cxMemo, cxDBEdit, cxContainer, cxEdit, cxTextEdit, cxControls,
cxMaskEdit, cxSpinEdit, ImgList, PngImageList, ActnList, cxHyperLinkEdit,
Buttons, PngSpeedButton, cxDropDownEdit, cxCalendar, cxGraphics,
uDAInterfaces;
uDAInterfaces, uDoctoresController, uPabellonesController;
type
IViewPaciente = interface(IViewContacto)
@ -24,14 +24,128 @@ type
eFechaBaja: TcxDBDateEdit;
dxLayoutControlContactoItem24: TdxLayoutItem;
eCausaBaja: TcxDBTextEdit;
public
{ Public declarations }
dxLayoutControlContactoItem20: TdxLayoutItem;
cbDoctor: TcxDBComboBox;
dxLayoutControlContactoItem21: TdxLayoutItem;
cbPabellon: TcxDBComboBox;
procedure cbDoctorPropertiesInitPopup(Sender: TObject);
procedure cbDoctorPropertiesValidate(Sender: TObject;
var DisplayValue: Variant; var ErrorText: TCaption; var Error: Boolean);
procedure cbPabellonPropertiesInitPopup(Sender: TObject);
procedure cbPabellonPropertiesValidate(Sender: TObject;
var DisplayValue: Variant; var ErrorText: TCaption; var Error: Boolean);
procedure CustomViewCreate(Sender: TObject);
procedure CustomViewDestroy(Sender: TObject);
protected
FDoctoresController: IDoctoresController;
FPabellonesController: IPabellonesController;
end;
implementation
{$R *.dfm}
uses
uBizContactos, uPacientesController;
uBizContactos, uBizDoctores, uBizPabellones, uPacientesController;
procedure TfrViewPaciente.cbDoctorPropertiesInitPopup(Sender: TObject);
begin
inherited;
with cbDoctor.Properties.Items do
begin
BeginUpdate;
try
Clear;
AddStrings(FDoctoresController.DarListaDoctores);
finally
EndUpdate;
end;
end;
end;
procedure TfrViewPaciente.cbDoctorPropertiesValidate(Sender: TObject;
var DisplayValue: Variant; var ErrorText: TCaption; var Error: Boolean);
var
ADoctor : IBizDoctor;
begin
inherited;
with (Sender as TcxDBComboBox) do
begin
if (Length(DisplayValue) > 0) and (DisplayValue <> (Contacto as IBizPaciente).DOCTOR) then
if Properties.LookupItems.IndexOf(DisplayValue) < 0 then
begin
Properties.LookupItems.BeginUpdate;
ADoctor := FDoctoresController.BuscarTodos;
ADoctor.DataTable.Active := True;
try
FDoctoresController.Anadir(ADoctor);
ADoctor.DESCRIPCION := DisplayValue;
FDoctoresController.Guardar(ADoctor);
Properties.LookupItems.Add(DisplayValue);
finally
Properties.LookupItems.EndUpdate;
ADoctor := NIL;
end;
end;
end;
end;
procedure TfrViewPaciente.cbPabellonPropertiesInitPopup(Sender: TObject);
begin
inherited;
with cbPabellon.Properties.Items do
begin
BeginUpdate;
try
Clear;
AddStrings(FPabellonesController.DarListaPabellones);
finally
EndUpdate;
end;
end;
end;
procedure TfrViewPaciente.cbPabellonPropertiesValidate(Sender: TObject;
var DisplayValue: Variant; var ErrorText: TCaption; var Error: Boolean);
var
APabellon : IBizPabellon;
begin
inherited;
with (Sender as TcxDBComboBox) do
begin
if (Length(DisplayValue) > 0) and (DisplayValue <> (Contacto as IBizPaciente).PABELLON) then
if Properties.LookupItems.IndexOf(DisplayValue) < 0 then
begin
Properties.LookupItems.BeginUpdate;
APabellon := FPabellonesController.BuscarTodos;
APabellon.DataTable.Active := True;
try
FPabellonesController.Anadir(APabellon);
APabellon.DESCRIPCION := DisplayValue;
FPabellonesController.Guardar(APabellon);
Properties.LookupItems.Add(DisplayValue);
finally
Properties.LookupItems.EndUpdate;
APabellon := NIL;
end;
end;
end;
end;
procedure TfrViewPaciente.CustomViewCreate(Sender: TObject);
begin
inherited;
FDoctoresController := TDoctoresController.Create;
FPabellonesController := TPabellonesController.Create;
end;
procedure TfrViewPaciente.CustomViewDestroy(Sender: TObject);
begin
FDoctoresController:= NIL;
FPabellonesController:= NIL;
inherited;
end;
end.

53
Source/Modulos/Contactos/Views/uViewPacientes.dfm
View File

@ -8,7 +8,10 @@ inherited frViewPacientes: TfrViewPacientes
Height = 374
RootLevelOptions.DetailTabsPosition = dtpTop
OnActiveTabChanged = cxGridActiveTabChanged
ExplicitWidth = 754
ExplicitHeight = 374
inherited cxGridView: TcxGridDBTableView
DataController.Options = [dcoAnsiSort, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoGroupsAlwaysExpanded]
DataController.Summary.FooterSummaryItems = <
item
Format = '0 agentes'
@ -21,7 +24,7 @@ inherited frViewPacientes: TfrViewPacientes
VisibleForCustomization = False
end
inherited cxGridViewREFERENCIA: TcxGridDBColumn
Width = 134
Width = 105
end
inherited cxGridViewNIF_CIF: TcxGridDBColumn
Caption = 'DNI'
@ -30,12 +33,12 @@ inherited frViewPacientes: TfrViewPacientes
end
inherited cxGridViewNOMBRE: TcxGridDBColumn
Caption = 'Nombre y apellidos'
Width = 328
Width = 259
end
object cxGridViewNUMERO_SS: TcxGridDBColumn [5]
Caption = 'N'#250'mero SS'
DataBinding.FieldName = 'NUMERO_SS'
Width = 128
Width = 100
end
inherited cxGridViewCALLE: TcxGridDBColumn
VisibleForCustomization = False
@ -43,10 +46,20 @@ inherited frViewPacientes: TfrViewPacientes
inherited cxGridViewPAGINA_WEB: TcxGridDBColumn
VisibleForCustomization = False
end
object cxGridViewPABELLON: TcxGridDBColumn
Caption = 'Pabell'#243'n'
DataBinding.FieldName = 'PABELLON'
Width = 101
end
object cxGridViewDOCTOR: TcxGridDBColumn
Caption = 'Doctor'
DataBinding.FieldName = 'DOCTOR'
Width = 80
end
object cxGridViewFECHA_BAJA: TcxGridDBColumn
Caption = 'Fecha de baja'
DataBinding.FieldName = 'FECHA_BAJA'
Width = 128
Width = 71
end
object cxGridViewFECHA_NACIMIENTO: TcxGridDBColumn
Caption = 'Fecha de nacim.'
@ -66,9 +79,12 @@ inherited frViewPacientes: TfrViewPacientes
end
inherited frViewFiltroBase1: TfrViewFiltroBase
Width = 754
ExplicitWidth = 754
inherited TBXDockablePanel1: TTBXDockablePanel
ExplicitWidth = 754
inherited dxLayoutControl1: TdxLayoutControl
Width = 754
ExplicitWidth = 754
inherited txtFiltroTodo: TcxTextEdit
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
@ -106,18 +122,35 @@ inherited frViewPacientes: TfrViewPacientes
end
inherited TBXAlignmentPanel1: TTBXAlignmentPanel
Width = 754
ExplicitWidth = 754
inherited tbxBotones: TTBXToolbar
Width = 744
ExplicitWidth = 744
end
end
end
end
inherited pnlAgrupaciones: TTBXDockablePanel
Top = 476
Visible = True
ExplicitTop = 476
ExplicitWidth = 754
inherited TBXAlignmentPanel1: TTBXAlignmentPanel
Width = 754
ExplicitWidth = 754
inherited TBXToolbar1: TTBXToolbar
Width = 744
ExplicitWidth = 744
object TBXSeparatorItem1: TTBXSeparatorItem
end
object TBXItem2: TTBXItem
Action = actDoctor
end
object TBXSeparatorItem2: TTBXSeparatorItem
end
object TBXItem3: TTBXItem
Action = actPabellon
end
end
end
end
@ -146,6 +179,18 @@ inherited frViewPacientes: TfrViewPacientes
TextColor = clSilver
end
end
inherited ActionList1: TActionList
object actDoctor: TAction
Caption = 'Doctor'
OnExecute = actDoctorExecute
OnUpdate = actDoctorUpdate
end
object actPabellon: TAction
Caption = 'Pabell'#243'n'
OnExecute = actPabellonExecute
OnUpdate = actPabellonUpdate
end
end
inherited cxStyleRepositoryInforme: TcxStyleRepository
Top = 192
end

57
Source/Modulos/Contactos/Views/uViewPacientes.pas
View File

@ -27,10 +27,22 @@ type
cxStyleInactivos: TcxStyle;
cxGridViewNUMERO_SS: TcxGridDBColumn;
cxGridViewFECHA_NACIMIENTO: TcxGridDBColumn;
cxGridViewPABELLON: TcxGridDBColumn;
cxGridViewDOCTOR: TcxGridDBColumn;
TBXSeparatorItem1: TTBXSeparatorItem;
TBXItem2: TTBXItem;
TBXSeparatorItem2: TTBXSeparatorItem;
TBXItem3: TTBXItem;
actDoctor: TAction;
actPabellon: TAction;
procedure cxGridActiveTabChanged(Sender: TcxCustomGrid; ALevel: TcxGridLevel);
procedure cxGridViewStylesGetContentStyle(Sender: TcxCustomGridTableView;
ARecord: TcxCustomGridRecord; AItem: TcxCustomGridTableItem;
out AStyle: TcxStyle);
procedure actDoctorExecute(Sender: TObject);
procedure actDoctorUpdate(Sender: TObject);
procedure actPabellonExecute(Sender: TObject);
procedure actPabellonUpdate(Sender: TObject);
private
//Filtros relativos a la vista
procedure AnadirFiltroSituaciones;
@ -44,6 +56,46 @@ implementation
uses schContactosClient_Intf;
procedure TfrViewPacientes.actDoctorExecute(Sender: TObject);
begin
if (cxGridViewDOCTOR.GroupIndex < 0) then
begin
cxGridViewDOCTOR.GroupIndex := cxGridView.GroupedColumnCount;
cxGridViewDOCTOR.Visible := False;
end
else
begin
cxGridViewDOCTOR.GroupIndex := -1;
cxGridViewDOCTOR.Visible := True;
end;
end;
procedure TfrViewPacientes.actDoctorUpdate(Sender: TObject);
begin
inherited;
(Sender as TAction).Checked := not (cxGridViewDOCTOR.GroupIndex < 0);
end;
procedure TfrViewPacientes.actPabellonExecute(Sender: TObject);
begin
if (cxGridViewPABELLON.GroupIndex < 0) then
begin
cxGridViewPABELLON.GroupIndex := cxGridView.GroupedColumnCount;
cxGridViewPABELLON.Visible := False;
end
else
begin
cxGridViewPABELLON.GroupIndex := -1;
cxGridViewPABELLON.Visible := True;
end;
end;
procedure TfrViewPacientes.actPabellonUpdate(Sender: TObject);
begin
inherited;
(Sender as TAction).Checked := not (cxGridViewPABELLON.GroupIndex < 0);
end;
procedure TfrViewPacientes.AnadirFiltroSituaciones;
var
FFiltro : TcxFilterCriteriaItemList;
@ -85,9 +137,10 @@ var
ASituacion: String;
begin
inherited;
if Assigned(ARecord) then
if Assigned(AItem) then
begin
IndiceCol := (Sender as TcxGridDBTableView).GetColumnByFieldName(fld_PacientesFECHA_BAJA).Index;
IndiceCol := cxGridViewFECHA_BAJA.Index;
ASituacion := VarToStr(ARecord.DisplayTexts[IndiceCol]);
if Length(ASituacion) = 0 then
AStyle.TextColor := cxStyleActivos.TextColor

45
Source/Modulos/Medicaciones/Reports/uRptMedicaciones_Server.dfm
View File

@ -13,19 +13,21 @@ object RptMedicaciones: TRptMedicaciones
item
Name = 'ID'
DataType = datInteger
Value = '2'
Value = '40'
ParamType = daptInput
end>
Statements = <
item
Connection = 'IBX'
SQL =
'SELECT '#10' V_MEDICACION.ID, V_MEDICACION.ID_PACIENTE, V_MEDICAC' +
'ION.REFERENCIA,'#10' V_MEDICACION.NOMBRE AS PACIENTE, V_MEDICACIO' +
'N.NUMERO_SS,'#10' V_MEDICACION.FECHA_DESDE, V_MEDICACION.FECHA_HA' +
'STA,'#10' EMPRESAS.NOMBRE AS FARMACEUTICO, EMPRESAS.TELEFONO_1 AS' +
' TELEFONO_FARM,'#10' EMPRESAS.MOVIL_1 AS MOVIL_FARM'#10' FROM'#10' V_' +
'MEDICACION, EMPRESAS'#10' WHERE V_MEDICACION.ID = :ID'#10
'SELECT'#10' V_MEDICACION.ID, V_MEDICACION.ID_PACIENTE, V_MEDICACI' +
'ON.REFERENCIA,'#10' V_MEDICACION.NOMBRE AS PACIENTE, V_MEDICACION' +
'.NUMERO_SS,'#10' V_MEDICACION.FECHA_DESDE, V_MEDICACION.FECHA_HAS' +
'TA,'#10' EMPRESAS.NOMBRE AS FARMACEUTICO, EMPRESAS.TELEFONO_1 AS ' +
'TELEFONO_FARM,'#10' EMPRESAS.MOVIL_1 AS MOVIL_FARM, PACIENTES_DAT' +
'OS.PABELLON'#10' FROM'#10' V_MEDICACION, EMPRESAS, PACIENTES_DATOS'#10' ' +
' WHERE (V_MEDICACION.ID = :ID)'#10' AND (PACIENTES_DATOS.ID_PACIE' +
'NTE = V_MEDICACION.ID_PACIENTE)'#10
StatementType = stSQL
ColumnMappings = <
item
@ -67,6 +69,10 @@ object RptMedicaciones: TRptMedicaciones
item
DatasetField = 'MOVIL_FARM'
TableField = 'MOVIL_FARM'
end
item
DatasetField = 'PABELLON'
TableField = 'PABELLON'
end>
end>
Name = 'InformeMedicaciones'
@ -127,6 +133,12 @@ object RptMedicaciones: TRptMedicaciones
DataType = datString
Size = 25
DictionaryEntry = 'InformeMedicaciones_MOVIL_FARM'
end
item
Name = 'PABELLON'
DataType = datString
Size = 255
DictionaryEntry = 'InformeMedicaciones_PABELLON'
end>
ReadOnly = True
end
@ -524,6 +536,12 @@ object RptMedicaciones: TRptMedicaciones
item
Name = 'InformeMedicaciones_DetallesEnBlister_VISIBLE'
DataType = datSmallInt
end
item
Name = 'InformeMedicaciones_PABELLON'
DataType = datString
Size = 255
DisplayLabel = 'Pabell'#243'n'
end>
Left = 38
Top = 158
@ -557,6 +575,7 @@ object RptMedicaciones: TRptMedicaciones
Top = 256
end
object IBTransaction1: TIBTransaction
Active = True
Left = 32
Top = 312
end
@ -583,10 +602,11 @@ object RptMedicaciones: TRptMedicaciones
' EMPRESAS.NOMBRE AS FARMACEUTICO, EMPRESAS.TELEFONO_1 AS TELE' +
'FONO_FARM,'
' EMPRESAS.MOVIL_1 AS MOVIL_FARM'
' EMPRESAS.MOVIL_1 AS MOVIL_FARM, PACIENTES_DATOS.PABELLON'
' FROM'
' V_MEDICACION, EMPRESAS'
' WHERE V_MEDICACION.ID = 7')
' V_MEDICACION, EMPRESAS, PACIENTES_DATOS'
' WHERE (V_MEDICACION.ID = 7)'
' AND (PACIENTES_DATOS.ID_PACIENTE = V_MEDICACION.ID_PACIENTE)')
Left = 120
Top = 256
object cabeceraID: TIntegerField
@ -635,6 +655,11 @@ object RptMedicaciones: TRptMedicaciones
Origin = '"EMPRESAS"."MOVIL_1"'
Size = 25
end
object cabeceraPABELLON: TIBStringField
FieldName = 'PABELLON'
Origin = '"PACIENTES_DATOS"."PABELLON"'
Size = 255
end
end
object detallesenblister: TIBQuery
Database = IBDatabase1

1
Source/Modulos/Medicaciones/Reports/uRptMedicaciones_Server.pas
View File

@ -75,6 +75,7 @@ type
detallesfuerablisterVISIBLE: TSmallintField;
schReport: TDASchema;
DataDictionary: TDADataDictionary;
cabeceraPABELLON: TIBStringField;
procedure DataModuleCreate(Sender: TObject);
procedure DataModuleDestroy(Sender: TObject);
private

73
Source/Modulos/Medicaciones/Views/uEditorMedicacion.dfm
View File

@ -2,11 +2,11 @@ inherited fEditorMedicacion: TfEditorMedicacion
Left = 332
Top = 147
Caption = 'Nueva medicaci'#162'n para paciente'
ClientHeight = 627
ClientHeight = 670
ClientWidth = 765
OnClose = CustomEditorClose
ExplicitWidth = 773
ExplicitHeight = 661
ExplicitHeight = 704
PixelsPerInch = 96
TextHeight = 13
inherited JvNavPanelHeader: TJvNavPanelHeader
@ -164,12 +164,12 @@ inherited fEditorMedicacion: TfEditorMedicacion
end
inherited pgPaginas: TPageControl
Width = 759
Height = 186
Height = 210
Align = alTop
TabOrder = 1
TabStop = False
ExplicitWidth = 759
ExplicitHeight = 186
ExplicitHeight = 210
inherited pagGeneral: TTabSheet
ExplicitLeft = 4
ExplicitTop = 24
@ -179,7 +179,7 @@ inherited fEditorMedicacion: TfEditorMedicacion
Left = 0
Top = 0
Width = 751
Height = 164
Height = 193
Align = alTop
AutoSize = True
Font.Charset = DEFAULT_CHARSET
@ -228,6 +228,7 @@ inherited fEditorMedicacion: TfEditorMedicacion
inherited dxLayoutControl1: TdxLayoutControl
Width = 533
ExplicitWidth = 533
ExplicitHeight = 136
inherited edtlNombre: TcxDBTextEdit
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
@ -237,17 +238,27 @@ inherited fEditorMedicacion: TfEditorMedicacion
Width = 224
end
inherited edtNUMERO_SS: TcxDBTextEdit
Left = 228
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitLeft = 228
ExplicitWidth = 103
Width = 103
end
inherited Button3: TBitBtn
Left = 139
ExplicitLeft = 139
end
inherited edtPabellon: TcxDBTextEdit
Left = 221
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitLeft = 221
ExplicitWidth = 103
Width = 103
end
end
end
end
@ -255,7 +266,7 @@ inherited fEditorMedicacion: TfEditorMedicacion
end
end
inherited StatusBar: TJvStatusBar
Top = 608
Top = 651
Width = 765
Panels = <
item
@ -266,9 +277,9 @@ inherited fEditorMedicacion: TfEditorMedicacion
end
inline frViewDetallesMedicacion1: TfrViewDetallesMedicacion [4]
Left = 0
Top = 268
Top = 292
Width = 765
Height = 340
Height = 359
Align = alClient
BiDiMode = bdLeftToRight
Font.Charset = DEFAULT_CHARSET
@ -313,72 +324,68 @@ inherited fEditorMedicacion: TfEditorMedicacion
inherited FontSize: TEdit
Left = 450
Top = 0
Width = 186
Width = 202
ExplicitLeft = 450
ExplicitTop = 0
ExplicitWidth = 186
ExplicitWidth = 202
end
inherited ToolButton13: TToolButton [7]
Left = 0
Top = 0
Wrap = True
ExplicitLeft = 0
ExplicitTop = 0
ExplicitHeight = 30
end
inherited UpDown1: TUpDown [8]
Left = 0
Top = 30
Top = 27
ExplicitLeft = 0
ExplicitTop = 30
ExplicitTop = 27
end
inherited ToolButton6: TToolButton
Left = 17
Top = 30
Top = 27
ExplicitLeft = 17
ExplicitTop = 30
ExplicitTop = 27
end
inherited ToolButton7: TToolButton
Left = 83
Top = 30
Top = 27
ExplicitLeft = 83
ExplicitTop = 30
ExplicitTop = 27
end
inherited ToolButton8: TToolButton
Left = 150
Top = 30
Top = 27
ExplicitLeft = 150
ExplicitTop = 30
ExplicitTop = 27
end
inherited ToolButton12: TToolButton
Left = 233
Top = 30
Top = 27
ExplicitLeft = 233
ExplicitTop = 30
ExplicitTop = 27
end
inherited ToolButton9: TToolButton
Left = 241
Top = 30
Top = 27
ExplicitLeft = 241
ExplicitTop = 30
ExplicitTop = 27
end
inherited ToolButton10: TToolButton
Left = 386
Top = 30
Top = 27
ExplicitLeft = 386
ExplicitTop = 30
ExplicitTop = 27
end
inherited ToolButton11: TToolButton
Left = 511
Top = 30
Top = 27
ExplicitLeft = 511
ExplicitTop = 30
ExplicitTop = 27
end
end
inherited cxGrid: TcxGrid
Top = 77
Width = 765
Height = 263
Height = 282
ExplicitTop = 77
ExplicitWidth = 765
ExplicitHeight = 263

2
Source/Modulos/Medicaciones/Views/uEditorMedicacion.pas
View File

@ -68,7 +68,7 @@ type
implementation
uses
uViewDatosYSeleccionPaciente, uDataModuleUsuarios, uPacientesController,
uDataModuleUsuarios, uPacientesController,
uBizDireccionesContacto, schMedicacionClient_Intf, uDialogUtils,
uEditorDBBase, uDataTableUtils, uFactuGES_App;

68
Source/Modulos/Medicaciones/Views/uViewDatosYSeleccionPacienteMedicacion.dfm
View File

@ -1,13 +1,13 @@
inherited frViewDatosYSeleccionPacienteMedicacion: TfrViewDatosYSeleccionPacienteMedicacion
Width = 505
Height = 109
Height = 137
ExplicitWidth = 505
ExplicitHeight = 109
ExplicitHeight = 137
object dxLayoutControl1: TdxLayoutControl
Left = 0
Top = 0
Width = 505
Height = 109
Height = 137
Margins.Left = 0
Margins.Top = 0
Margins.Right = 0
@ -19,7 +19,7 @@ inherited frViewDatosYSeleccionPacienteMedicacion: TfrViewDatosYSeleccionPacient
AutoContentSizes = [acsWidth, acsHeight]
DesignSize = (
505
109)
137)
object edtlNombre: TcxDBTextEdit
Left = 56
Top = 41
@ -47,8 +47,8 @@ inherited frViewDatosYSeleccionPacienteMedicacion: TfrViewDatosYSeleccionPacient
Width = 249
end
object edtNUMERO_SS: TcxDBTextEdit
Left = 392
Top = 41
Left = 56
Top = 68
Anchors = [akLeft, akTop, akRight]
AutoSize = False
DataBinding.DataField = 'NUMERO_SS'
@ -162,12 +162,12 @@ inherited frViewDatosYSeleccionPacienteMedicacion: TfrViewDatosYSeleccionPacient
end
object Button3: TBitBtn
Left = 303
Top = 68
Top = 95
Width = 192
Height = 25
Action = actVerContacto
Caption = 'Ver ficha completa del paciente...'
TabOrder = 4
TabOrder = 5
Glyph.Data = {
36040000424D3604000000000000360000002800000010000000100000000100
2000000000000004000000000000000000000000000000000000FF00FF00FF00
@ -204,6 +204,32 @@ inherited frViewDatosYSeleccionPacienteMedicacion: TfrViewDatosYSeleccionPacient
FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00
FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00}
end
object edtPabellon: TcxDBTextEdit
Left = 302
Top = 68
Anchors = [akLeft, akTop, akRight]
AutoSize = False
DataBinding.DataField = 'PABELLON'
DataBinding.DataSource = dsPaciente
ParentFont = False
Properties.ReadOnly = True
Properties.UseLeftAlignmentOnEditing = False
Style.BorderColor = clWindowFrame
Style.BorderStyle = ebs3D
Style.HotTrack = False
Style.LookAndFeel.NativeStyle = True
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.NativeStyle = True
StyleDisabled.LookAndFeel.SkinName = ''
StyleDisabled.TextColor = clWindowText
StyleFocused.LookAndFeel.NativeStyle = True
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.NativeStyle = True
StyleHot.LookAndFeel.SkinName = ''
TabOrder = 4
Height = 21
Width = 103
end
object dxLayoutControl1Group_Root: TdxLayoutGroup
ShowCaption = False
Hidden = True
@ -229,7 +255,6 @@ inherited frViewDatosYSeleccionPacienteMedicacion: TfrViewDatosYSeleccionPacient
object dxLayoutControl1Group2: TdxLayoutGroup
ShowCaption = False
Hidden = True
LayoutDirection = ldHorizontal
ShowBorder = False
object dxLayoutControl1Item1: TdxLayoutItem
AutoAligns = [aaVertical]
@ -238,12 +263,25 @@ inherited frViewDatosYSeleccionPacienteMedicacion: TfrViewDatosYSeleccionPacient
Control = edtlNombre
ControlOptions.ShowBorder = False
end
object dxLayoutControl1Item2: TdxLayoutItem
AutoAligns = [aaVertical]
AlignHorz = ahRight
Caption = 'NASS:'
Control = edtNUMERO_SS
ControlOptions.ShowBorder = False
object dxLayoutControl1Group4: TdxLayoutGroup
ShowCaption = False
Hidden = True
LayoutDirection = ldHorizontal
ShowBorder = False
object dxLayoutControl1Item2: TdxLayoutItem
AutoAligns = [aaVertical]
AlignHorz = ahClient
Caption = 'NASS:'
Control = edtNUMERO_SS
ControlOptions.ShowBorder = False
end
object dxLayoutControl1Item3: TdxLayoutItem
AutoAligns = [aaVertical]
AlignHorz = ahClient
Caption = 'Pabell'#243'n:'
Control = edtPabellon
ControlOptions.ShowBorder = False
end
end
end
object dxLayoutControl1Item9: TdxLayoutItem

4
Source/Modulos/Medicaciones/Views/uViewDatosYSeleccionPacienteMedicacion.pas
View File

@ -60,6 +60,9 @@ type
dxLayoutControl1Group1: TdxLayoutGroup;
dxLayoutControl1Group2: TdxLayoutGroup;
dsMedicacion: TDADataSource;
dxLayoutControl1Item3: TdxLayoutItem;
edtPabellon: TcxDBTextEdit;
dxLayoutControl1Group4: TdxLayoutGroup;
procedure actElegirContactoExecute(Sender: TObject);
procedure actAnadirContactoExecute(Sender: TObject);
procedure actVerContactoUpdate(Sender: TObject);
@ -163,6 +166,7 @@ begin
edtlNombre.Enabled := False;
edtNUMERO_SS.Enabled := False;
edtPabellon.Enabled := False;
end;
destructor TfrViewDatosYSeleccionPacienteMedicacion.Destroy;

42
Source/Modulos/Medicaciones/Views/uViewMedicacion.dfm
View File

@ -1,16 +1,16 @@
inherited frViewMedicacion: TfrViewMedicacion
Width = 803
Height = 164
Height = 193
AutoSize = True
OnCreate = CustomViewCreate
OnDestroy = CustomViewDestroy
ExplicitWidth = 803
ExplicitHeight = 164
ExplicitHeight = 193
object dxLayoutControl1: TdxLayoutControl
Left = 0
Top = 0
Width = 803
Height = 164
Height = 193
Align = alTop
ParentBackground = True
TabOrder = 0
@ -18,9 +18,9 @@ inherited frViewMedicacion: TfrViewMedicacion
AutoContentSizes = [acsWidth, acsHeight]
DesignSize = (
803
164)
193)
object edtFechaHasta: TcxDBDateEdit
Left = 286
Left = 270
Top = 55
Anchors = [akLeft, akTop, akRight]
DataBinding.DataField = 'FECHA_HASTA'
@ -112,10 +112,10 @@ inherited frViewMedicacion: TfrViewMedicacion
Width = 200
end
inline frViewDatosYSeleccionPacienteMedicacion1: TfrViewDatosYSeleccionPacienteMedicacion
Left = 424
Left = 393
Top = 28
Width = 505
Height = 109
Width = 596
Height = 136
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
@ -124,9 +124,15 @@ inherited frViewMedicacion: TfrViewMedicacion
ParentFont = False
TabOrder = 3
ReadOnly = False
ExplicitLeft = 424
ExplicitLeft = 393
ExplicitTop = 28
ExplicitWidth = 596
ExplicitHeight = 136
inherited dxLayoutControl1: TdxLayoutControl
Width = 596
Height = 136
ExplicitWidth = 596
ExplicitHeight = 136
inherited edtlNombre: TcxDBTextEdit
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
@ -136,16 +142,26 @@ inherited frViewMedicacion: TfrViewMedicacion
Width = 249
end
inherited edtNUMERO_SS: TcxDBTextEdit
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitWidth = 103
Width = 103
end
inherited Button3: TBitBtn
Left = 186
ExplicitLeft = 186
end
inherited edtPabellon: TcxDBTextEdit
Left = 244
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitLeft = 244
end
inherited Button3: TBitBtn
Left = 155
ExplicitLeft = 155
ExplicitWidth = 103
Width = 103
end
end
end

11
Source/Modulos/Medicaciones/Views/uViewMedicacion.pas
View File

@ -87,11 +87,6 @@ begin
inherited;
if not (VarIsNull(DisplayValue) or (DisplayValue = '')) then
begin
if (edtFechaHasta.Date < edtFechaDesde.Date) then
begin
ShowWarningMessage('La fecha inicial debe ser anterior a la fecha inicial');
edtFechaDesde.SetFocus;
end;
end;
end;
@ -101,11 +96,6 @@ begin
inherited;
if not (VarIsNull(DisplayValue) or (DisplayValue = '')) then
begin
if (edtFechaHasta.Date < edtFechaDesde.Date) then
begin
ShowWarningMessage('La fecha final debe ser posterior a la fecha inicial');
edtFechaHasta.SetFocus;
end;
end;
end;
@ -133,4 +123,5 @@ begin
end;
end;
end.

6
Source/Servidor/Etiquetas_Server.dpr
View File

@ -49,8 +49,6 @@ uses
schEmpresasServer_Intf in '..\ApplicationBase\Empresas\Model\schEmpresasServer_Intf.pas',
schArticulosClient_Intf in '..\Modulos\Articulos\Model\schArticulosClient_Intf.pas',
schArticulosServer_Intf in '..\Modulos\Articulos\Model\schArticulosServer_Intf.pas',
schContactosClient_Intf in '..\Modulos\Contactos\Model\schContactosClient_Intf.pas',
schContactosServer_Intf in '..\Modulos\Contactos\Model\schContactosServer_Intf.pas',
uConexionBD_MSSQL in 'Configuracion\uConexionBD_MSSQL.pas' {frConexionBD_MSSQL: TFrame},
srvMedicacion_Impl in '..\Modulos\Medicaciones\Servidor\srvMedicacion_Impl.pas' {srvMedicacion: TDataAbstractService},
Etiquetas_Invk in '..\Servicios\Etiquetas_Invk.pas',
@ -58,7 +56,9 @@ uses
schMedicacionClient_Intf in '..\Modulos\Medicaciones\Model\schMedicacionClient_Intf.pas',
schMedicacionServer_Intf in '..\Modulos\Medicaciones\Model\schMedicacionServer_Intf.pas',
uBizMedicacionServer in '..\Modulos\Medicaciones\Model\uBizMedicacionServer.pas',
uRptMedicaciones_Server in '..\Modulos\Medicaciones\Reports\uRptMedicaciones_Server.pas' {RptMedicaciones: TDataModule};
uRptMedicaciones_Server in '..\Modulos\Medicaciones\Reports\uRptMedicaciones_Server.pas' {RptMedicaciones: TDataModule},
schContactosClient_Intf in '..\Modulos\Contactos\Model\schContactosClient_Intf.pas',
schContactosServer_Intf in '..\Modulos\Contactos\Model\schContactosServer_Intf.pas';
{$R *.res}
{$R ..\Servicios\RODLFile.res}

2
Source/Servidor/Etiquetas_Server.dproj
View File

@ -40,7 +40,7 @@
<Borland.Personality>Delphi.Personality</Borland.Personality>
<Borland.ProjectType/>
<BorlandProject>
<BorlandProject><Delphi.Personality><Parameters><Parameters Name="UseLauncher">False</Parameters><Parameters Name="LoadAllSymbols">True</Parameters><Parameters Name="LoadUnspecifiedSymbols">False</Parameters><Parameters Name="RunParams">/standalone</Parameters></Parameters><VersionInfo><VersionInfo Name="IncludeVerInfo">True</VersionInfo><VersionInfo Name="AutoIncBuild">False</VersionInfo><VersionInfo Name="MajorVer">1</VersionInfo><VersionInfo Name="MinorVer">0</VersionInfo><VersionInfo Name="Release">0</VersionInfo><VersionInfo Name="Build">0</VersionInfo><VersionInfo Name="Debug">False</VersionInfo><VersionInfo Name="PreRelease">False</VersionInfo><VersionInfo Name="Special">False</VersionInfo><VersionInfo Name="Private">False</VersionInfo><VersionInfo Name="DLL">False</VersionInfo><VersionInfo Name="Locale">3082</VersionInfo><VersionInfo Name="CodePage">1252</VersionInfo></VersionInfo><VersionInfoKeys><VersionInfoKeys Name="CompanyName">Rodax Software</VersionInfoKeys><VersionInfoKeys Name="FileDescription"></VersionInfoKeys><VersionInfoKeys Name="FileVersion">1.0.0.0</VersionInfoKeys><VersionInfoKeys Name="InternalName">Etiquetas Server</VersionInfoKeys><VersionInfoKeys Name="LegalCopyright"></VersionInfoKeys><VersionInfoKeys Name="LegalTrademarks"></VersionInfoKeys><VersionInfoKeys Name="OriginalFilename"></VersionInfoKeys><VersionInfoKeys Name="ProductName">Etiquetas Server</VersionInfoKeys><VersionInfoKeys Name="ProductVersion">1.0.0.0</VersionInfoKeys><VersionInfoKeys Name="Comments"></VersionInfoKeys><VersionInfoKeys Name="CompileDate">viernes, 09 de diciembre de 2011 12:52</VersionInfoKeys></VersionInfoKeys><Excluded_Packages>
<BorlandProject><Delphi.Personality><Parameters><Parameters Name="UseLauncher">False</Parameters><Parameters Name="LoadAllSymbols">True</Parameters><Parameters Name="LoadUnspecifiedSymbols">False</Parameters><Parameters Name="RunParams">/standalone</Parameters></Parameters><VersionInfo><VersionInfo Name="IncludeVerInfo">True</VersionInfo><VersionInfo Name="AutoIncBuild">False</VersionInfo><VersionInfo Name="MajorVer">1</VersionInfo><VersionInfo Name="MinorVer">0</VersionInfo><VersionInfo Name="Release">3</VersionInfo><VersionInfo Name="Build">0</VersionInfo><VersionInfo Name="Debug">False</VersionInfo><VersionInfo Name="PreRelease">False</VersionInfo><VersionInfo Name="Special">False</VersionInfo><VersionInfo Name="Private">False</VersionInfo><VersionInfo Name="DLL">False</VersionInfo><VersionInfo Name="Locale">3082</VersionInfo><VersionInfo Name="CodePage">1252</VersionInfo></VersionInfo><VersionInfoKeys><VersionInfoKeys Name="CompanyName">Rodax Software</VersionInfoKeys><VersionInfoKeys Name="FileDescription"></VersionInfoKeys><VersionInfoKeys Name="FileVersion">1.0.3.0</VersionInfoKeys><VersionInfoKeys Name="InternalName">Etiquetas Server</VersionInfoKeys><VersionInfoKeys Name="LegalCopyright"></VersionInfoKeys><VersionInfoKeys Name="LegalTrademarks"></VersionInfoKeys><VersionInfoKeys Name="OriginalFilename"></VersionInfoKeys><VersionInfoKeys Name="ProductName">Etiquetas Server</VersionInfoKeys><VersionInfoKeys Name="ProductVersion">1.0.3.0</VersionInfoKeys><VersionInfoKeys Name="Comments"></VersionInfoKeys><VersionInfoKeys Name="CompileDate">jueves, 15 de marzo de 2012 13:32</VersionInfoKeys></VersionInfoKeys><Excluded_Packages>
<Excluded_Packages Name="C:\Documents and Settings\All Users\Documentos\RAD Studio\5.0\Bpl\dxPSCoreD11.bpl">ExpressPrinting System by Developer Express Inc.</Excluded_Packages>
</Excluded_Packages><Source><Source Name="MainSource">Etiquetas_Server.dpr</Source></Source></Delphi.Personality></BorlandProject></BorlandProject>
</ProjectExtensions>

10
Source/Servidor/Etiquetas_Server.rc
View File

@ -1,7 +1,7 @@
MAINICON ICON "C:\Codigo farmacia\Resources\Iconos\Servidor.ico"
1 VERSIONINFO
FILEVERSION 1,0,0,0
PRODUCTVERSION 1,0,0,0
FILEVERSION 1,0,3,0
PRODUCTVERSION 1,0,3,0
FILEFLAGSMASK 0x3FL
FILEFLAGS 0x00L
FILEOS 0x40004L
@ -13,11 +13,11 @@ BEGIN
BLOCK "0C0A04E4"
BEGIN
VALUE "CompanyName", "Rodax Software\0"
VALUE "FileVersion", "1.0.0.0\0"
VALUE "FileVersion", "1.0.3.0\0"
VALUE "InternalName", "Etiquetas Server\0"
VALUE "ProductName", "Etiquetas Server\0"
VALUE "ProductVersion", "1.0.0.0\0"
VALUE "CompileDate", "lunes, 12 de diciembre de 2011 15:31\0"
VALUE "ProductVersion", "1.0.3.0\0"
VALUE "CompileDate", "jueves, 15 de marzo de 2012 16:37\0"
END
END
BLOCK "VarFileInfo"

BIN
Source/Servidor/Etiquetas_Server.res
View File

Binary file not shown.

45
Source/Servidor/uDataModuleServer.pas
View File

@ -38,9 +38,10 @@ type
private
FEscribirLog : TCriticalSection;
FConnectionName : string;
function GetConnectionString: string;
//function GetConnectionString: string;
procedure IniciarLog;
procedure DetenerLog;
procedure DetenerLog;
procedure CrearConexiones;
public
FDBServer : string;
FDBPort : string;
@ -160,6 +161,33 @@ begin
Connection.RollbackTransaction;
end;
procedure TdmServer.CrearConexiones;
var
AConn : String;
begin
//IBX
AConn := 'IBX?Server=' + FDBServer + '/' + FDBPort
+ ';Database=' + FDBPath
+ ';UserID=' + FDBUser
+ ';Password=' + Decrypt(FDBPass)
+ ';Dialect=3;Charset=ISO8859_1;';
ConnectionManager.Connections.ConnectionByName('IBX').ConnectionString := AConn;
//MSSQL
//ADO?AuxDriver=SQLOLEDB.1;Server=ROB_VM_FARMACIA\FARMATIC;Database=farmatic;UserID=rodax;Password=rodax;
//ADO?AuxDriver=SQLOLEDB.1;Server=ROB_VM_FARMACIA\FARMATIC;Database=farmatic;Integrated Security=SSPI
AConn := 'ADO?AuxDriver=SQLOLEDB.1;Server=' + FMSSQLServer
+ ';Database=' + FMSSQLPath;
if FMSSQLIntSecurity = 1 then
AConn := AConn + ';Integrated Security=SSPI'
else
AConn := AConn + ';UserID=' + FMSSQLUser
+ ';Password=' + Decrypt(FMSSQLPass);
ConnectionManager.Connections.ConnectionByName('FARMATIC').ConnectionString := AConn;
end;
function TdmServer.DarNuevaConexion: IDAConnection;
begin
with ConnectionManager do
@ -186,7 +214,7 @@ begin
IniciarLog;
end;
function TdmServer.GetConnectionString: string;
{function TdmServer.GetConnectionString: string;
begin
Result := 'IBX?Server=' + FDBServer + '/' + FDBPort
+ ';Database=' + FDBPath
@ -194,12 +222,7 @@ begin
+ ';Password=' + Decrypt(FDBPass)
+ ';Dialect=3;Charset=ISO8859_1;';
{ Result := 'FIB?Server=' + FDBServer + '/' + FDBPort
+ ';Database=' + FDBPath
+ ';UserID=' + FDBUser
+ ';Password=' + Decrypt(FDBPass)
+ ';Dialect=3;Charset=ISO8859_1;';}
end;
end;}
procedure TdmServer.LeerConfiguracion;
begin
@ -294,10 +317,10 @@ end;
procedure TdmServer.RefrescarConexion;
begin
HTTPServer.Active := False;
ConnectionManager.Connections.GetDefaultConnection.ConnectionString := '';
CrearConexiones;
ConnectionName := ConnectionManager.GetDefaultConnectionName;
ConnectionManager.Connections.GetDefaultConnection.ConnectionString := GetConnectionString;
if not ROIsService then
ShowBalloonHint('Conectado a ' + ConnectionName, bfInfo);