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

Añadir la columna de Pabellón a un paciente.

Browse Source 
git-svn-id: https://192.168.0.254/svn/Proyectos.FarmaciaPH_Etiquetas/trunk@26 7b0b1a58-4aa1-b946-8089-8453ede31e50
This commit is contained in:
roberto 2011-12-29 16:43:00 +00:00
parent 933db1660d
commit 4b3993d775
34 changed files with 542 additions and 402 deletions
Show Stats Download Patch File Download Diff File 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.

9
Database/scripts/etiquetas.sql
View File

@ -366,7 +366,8 @@ CREATE TABLE PACIENTES_DATOS (
FECHA_NACIMIENTO DATE,
NUMERO_SS VARCHAR(255),
FECHA_BAJA DATE,
CAUSA_BAJA VARCHAR(255)
CAUSA_BAJA VARCHAR(255),
PABELLON VARCHAR(255)
);
@ -576,7 +577,8 @@ CREATE VIEW V_PACIENTES(
FECHA_NACIMIENTO,
NUMERO_SS,
FECHA_BAJA,
CAUSA_BAJA)
CAUSA_BAJA,
PABELLON)
AS
SELECT V_CONTACTOS.ID,
V_CONTACTOS.ID_CATEGORIA,
@ -605,7 +607,8 @@ SELECT V_CONTACTOS.ID,
PACIENTES_DATOS.FECHA_NACIMIENTO,
PACIENTES_DATOS.NUMERO_SS,
PACIENTES_DATOS.FECHA_BAJA,
PACIENTES_DATOS.CAUSA_BAJA
PACIENTES_DATOS.CAUSA_BAJA,
PACIENTES_DATOS.PABELLON
FROM V_CONTACTOS
INNER JOIN PACIENTES_DATOS ON (PACIENTES_DATOS.ID_PACIENTE = V_CONTACTOS.ID)

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>

BIN
Source/Cliente/Etiquetas.RES
View File

Binary file not shown.

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">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.1.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.1.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>

2
Source/Cliente/Etiquetas.rc
View File

@ -16,7 +16,7 @@ BEGIN
VALUE "FileVersion", "1.0.0.0\0"
VALUE "InternalName", "Etiquetas\0"
VALUE "ProductName", "Etiquetas\0"
VALUE "ProductVersion", "1.0.0.0\0"
VALUE "ProductVersion", "1.0.1.0\0"
END
END
BLOCK "VarFileInfo"

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>

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

@ -358,6 +358,13 @@ inherited DataModulePacientes: TDataModulePacientes
Size = 255
DisplayLabel = 'Causa de baja'
DictionaryEntry = 'Pacientes_CAUSA_BAJA'
end
item
Name = 'PABELLON'
DataType = datString
Size = 255
DisplayLabel = 'Pabell'#243'n'
DictionaryEntry = 'Pacientes_PABELLON'
end>
Params = <>
StreamingOptions = [soDisableEventsWhileStreaming]

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

@ -9,12 +9,12 @@ const
{ Data table rules ids
Feel free to change them to something more human readable
but make sure they are unique in the context of your application }
RID_Contactos = '{7F03558F-609F-4936-A3D1-BD29533A56E1}';
RID_DatosBancarios = '{EC0BAA32-3160-4D3B-B93C-C0EE14EED455}';
RID_DireccionesContacto = '{C813C0E6-EA34-4B49-A5EA-8068F88931A1}';
RID_Contactos_Refresh = '{331C8BA5-35E5-4980-B184-35CEB1449F28}';
RID_PersonalContacto = '{BDB195C7-E1FD-4CDF-8B76-C417CA509A07}';
RID_Pacientes = '{92FBE102-F4C7-435B-B43C-DAFCD13D5061}';
RID_Contactos = '{C70F7D0E-F4A7-4CFE-9944-779D78462802}';
RID_DatosBancarios = '{28E8899E-75BE-4198-A469-BD7707476A56}';
RID_DireccionesContacto = '{A946294F-D917-45C4-BC14-6DB2AFB13954}';
RID_Contactos_Refresh = '{F268DFE8-EE77-4A04-BAED-893AC62B40CD}';
RID_PersonalContacto = '{D665EAA8-4B09-478A-9FC1-F7E40234097C}';
RID_Pacientes = '{F9D8AC20-2D16-43D9-8571-2319BD6371B2}';
{ Data table names }
nme_Contactos = 'Contactos';
@ -230,6 +230,7 @@ const
fld_PacientesNUMERO_SS = 'NUMERO_SS';
fld_PacientesFECHA_BAJA = 'FECHA_BAJA';
fld_PacientesCAUSA_BAJA = 'CAUSA_BAJA';
fld_PacientesPABELLON = 'PABELLON';
{ Pacientes field indexes }
idx_PacientesID = 0;
@ -259,11 +260,12 @@ const
idx_PacientesNUMERO_SS = 24;
idx_PacientesFECHA_BAJA = 25;
idx_PacientesCAUSA_BAJA = 26;
idx_PacientesPABELLON = 27;
type
{ IContactos }
IContactos = interface(IDAStronglyTypedDataTable)
['{4715D51C-E2CA-4681-A8D0-00C4D39998C2}']
['{CD8D0182-85A8-4864-B68C-8881352B60BC}']
{ Property getters and setters }
function GetIDValue: Integer;
procedure SetIDValue(const aValue: Integer);
@ -562,7 +564,7 @@ type
{ IDatosBancarios }
IDatosBancarios = interface(IDAStronglyTypedDataTable)
['{2EDD196A-1D34-4D7C-935F-CB826481A239}']
['{C69A3D95-8E46-40B2-B58B-62D44ECE77CC}']
{ Property getters and setters }
function GetIDValue: Integer;
procedure SetIDValue(const aValue: Integer);
@ -693,7 +695,7 @@ type
{ IDireccionesContacto }
IDireccionesContacto = interface(IDAStronglyTypedDataTable)
['{2EED47E1-39B7-4CE9-BE6F-344BF36E87EB}']
['{DF647E54-B42B-4AE9-B644-F658124C61CC}']
{ Property getters and setters }
function GetIDValue: Integer;
procedure SetIDValue(const aValue: Integer);
@ -908,7 +910,7 @@ type
{ IContactos_Refresh }
IContactos_Refresh = interface(IDAStronglyTypedDataTable)
['{E5FB283A-1D58-4412-89CC-E1777D95EA61}']
['{F229F382-4386-4D8B-A6B7-B44A621DC612}']
{ Property getters and setters }
function GetIDValue: Integer;
procedure SetIDValue(const aValue: Integer);
@ -1183,7 +1185,7 @@ type
{ IPersonalContacto }
IPersonalContacto = interface(IDAStronglyTypedDataTable)
['{CDB935C3-8418-4662-A66E-893F5FB17B93}']
['{7E45B5B2-567C-4AB4-8235-0A9FB607859C}']
{ Property getters and setters }
function GetIDValue: Integer;
procedure SetIDValue(const aValue: Integer);
@ -1326,7 +1328,7 @@ type
{ IPacientes }
IPacientes = interface(IDAStronglyTypedDataTable)
['{009AD5B4-19B8-41CD-9779-9D61C3F53CC0}']
['{0E86AB13-9946-4952-8A92-775A2993A788}']
{ Property getters and setters }
function GetIDValue: Integer;
procedure SetIDValue(const aValue: Integer);
@ -1435,6 +1437,10 @@ type
procedure SetCAUSA_BAJAValue(const aValue: String);
function GetCAUSA_BAJAIsNull: Boolean;
procedure SetCAUSA_BAJAIsNull(const aValue: Boolean);
function GetPABELLONValue: String;
procedure SetPABELLONValue(const aValue: String);
function GetPABELLONIsNull: Boolean;
procedure SetPABELLONIsNull(const aValue: Boolean);
{ Properties }
@ -1492,6 +1498,8 @@ type
property FECHA_BAJAIsNull: Boolean read GetFECHA_BAJAIsNull write SetFECHA_BAJAIsNull;
property CAUSA_BAJA: String read GetCAUSA_BAJAValue write SetCAUSA_BAJAValue;
property CAUSA_BAJAIsNull: Boolean read GetCAUSA_BAJAIsNull write SetCAUSA_BAJAIsNull;
property PABELLON: String read GetPABELLONValue write SetPABELLONValue;
property PABELLONIsNull: Boolean read GetPABELLONIsNull write SetPABELLONIsNull;
end;
{ TPacientesDataTableRules }
@ -1608,6 +1616,10 @@ type
procedure SetCAUSA_BAJAValue(const aValue: String); virtual;
function GetCAUSA_BAJAIsNull: Boolean; virtual;
procedure SetCAUSA_BAJAIsNull(const aValue: Boolean); virtual;
function GetPABELLONValue: String; virtual;
procedure SetPABELLONValue(const aValue: String); virtual;
function GetPABELLONIsNull: Boolean; virtual;
procedure SetPABELLONIsNull(const aValue: Boolean); virtual;
{ Properties }
property ID: Integer read GetIDValue write SetIDValue;
@ -1664,6 +1676,8 @@ type
property FECHA_BAJAIsNull: Boolean read GetFECHA_BAJAIsNull write SetFECHA_BAJAIsNull;
property CAUSA_BAJA: String read GetCAUSA_BAJAValue write SetCAUSA_BAJAValue;
property CAUSA_BAJAIsNull: Boolean read GetCAUSA_BAJAIsNull write SetCAUSA_BAJAIsNull;
property PABELLON: String read GetPABELLONValue write SetPABELLONValue;
property PABELLONIsNull: Boolean read GetPABELLONIsNull write SetPABELLONIsNull;
public
constructor Create(aDataTable: TDADataTable); override;
@ -4000,6 +4014,27 @@ begin
DataTable.Fields[idx_PacientesCAUSA_BAJA].AsVariant := Null;
end;
function TPacientesDataTableRules.GetPABELLONValue: String;
begin
result := DataTable.Fields[idx_PacientesPABELLON].AsString;
end;
procedure TPacientesDataTableRules.SetPABELLONValue(const aValue: String);
begin
DataTable.Fields[idx_PacientesPABELLON].AsString := aValue;
end;
function TPacientesDataTableRules.GetPABELLONIsNull: boolean;
begin
result := DataTable.Fields[idx_PacientesPABELLON].IsNull;
end;
procedure TPacientesDataTableRules.SetPABELLONIsNull(const aValue: Boolean);
begin
if aValue then
DataTable.Fields[idx_PacientesPABELLON].AsVariant := Null;
end;
initialization
RegisterDataTableRules(RID_Contactos, TContactosDataTableRules);

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

@ -9,17 +9,17 @@ const
{ Delta rules ids
Feel free to change them to something more human readable
but make sure they are unique in the context of your application }
RID_ContactosDelta = '{AEE34B45-0BE5-4436-A2F2-00A60AE282C5}';
RID_DatosBancariosDelta = '{CD1DD86B-3B55-41D0-8514-72F41F1F93DE}';
RID_DireccionesContactoDelta = '{ACD63EA5-D682-4058-9D6C-DBA5616330D4}';
RID_Contactos_RefreshDelta = '{5A2CFD2B-4D23-435C-9E7A-7F5961024EE8}';
RID_PersonalContactoDelta = '{DF7E01FD-BE8A-479B-BB79-8A46B55C1F87}';
RID_PacientesDelta = '{28C6EC42-0265-4AF3-B3F2-05EBB1BD0F9C}';
RID_ContactosDelta = '{83090F71-F00B-4D1A-88EE-8A5FDEA11091}';
RID_DatosBancariosDelta = '{657B549F-B362-41BE-88BA-D5D9A949DEEC}';
RID_DireccionesContactoDelta = '{4C3C24B7-E822-435C-A50F-A5277C128EB7}';
RID_Contactos_RefreshDelta = '{28CA07B8-EFF9-4CCD-9BC5-131999C9AD63}';
RID_PersonalContactoDelta = '{0017AE39-9949-4AE6-984E-371BC57EFA3B}';
RID_PacientesDelta = '{442B4BC7-B6D6-4637-839F-5EC54A16674A}';
type
{ IContactosDelta }
IContactosDelta = interface(IContactos)
['{AEE34B45-0BE5-4436-A2F2-00A60AE282C5}']
['{83090F71-F00B-4D1A-88EE-8A5FDEA11091}']
{ Property getters and setters }
function GetOldIDValue : Integer;
function GetOldID_CATEGORIAValue : Integer;
@ -318,7 +318,7 @@ type
{ IDatosBancariosDelta }
IDatosBancariosDelta = interface(IDatosBancarios)
['{CD1DD86B-3B55-41D0-8514-72F41F1F93DE}']
['{657B549F-B362-41BE-88BA-D5D9A949DEEC}']
{ Property getters and setters }
function GetOldIDValue : Integer;
function GetOldID_CONTACTOValue : Integer;
@ -448,7 +448,7 @@ type
{ IDireccionesContactoDelta }
IDireccionesContactoDelta = interface(IDireccionesContacto)
['{ACD63EA5-D682-4058-9D6C-DBA5616330D4}']
['{4C3C24B7-E822-435C-A50F-A5277C128EB7}']
{ Property getters and setters }
function GetOldIDValue : Integer;
function GetOldID_CONTACTOValue : Integer;
@ -663,7 +663,7 @@ type
{ IContactos_RefreshDelta }
IContactos_RefreshDelta = interface(IContactos_Refresh)
['{5A2CFD2B-4D23-435C-9E7A-7F5961024EE8}']
['{28CA07B8-EFF9-4CCD-9BC5-131999C9AD63}']
{ Property getters and setters }
function GetOldIDValue : Integer;
function GetOldNIF_CIFValue : String;
@ -938,7 +938,7 @@ type
{ IPersonalContactoDelta }
IPersonalContactoDelta = interface(IPersonalContacto)
['{DF7E01FD-BE8A-479B-BB79-8A46B55C1F87}']
['{0017AE39-9949-4AE6-984E-371BC57EFA3B}']
{ Property getters and setters }
function GetOldIDValue : Integer;
function GetOldID_CONTACTOValue : Integer;
@ -1080,7 +1080,7 @@ type
{ IPacientesDelta }
IPacientesDelta = interface(IPacientes)
['{28C6EC42-0265-4AF3-B3F2-05EBB1BD0F9C}']
['{442B4BC7-B6D6-4637-839F-5EC54A16674A}']
{ Property getters and setters }
function GetOldIDValue : Integer;
function GetOldID_CATEGORIAValue : Integer;
@ -1109,6 +1109,7 @@ type
function GetOldNUMERO_SSValue : String;
function GetOldFECHA_BAJAValue : DateTime;
function GetOldCAUSA_BAJAValue : String;
function GetOldPABELLONValue : String;
{ Properties }
property OldID : Integer read GetOldIDValue;
@ -1138,6 +1139,7 @@ type
property OldNUMERO_SS : String read GetOldNUMERO_SSValue;
property OldFECHA_BAJA : DateTime read GetOldFECHA_BAJAValue;
property OldCAUSA_BAJA : String read GetOldCAUSA_BAJAValue;
property OldPABELLON : String read GetOldPABELLONValue;
end;
{ TPacientesBusinessProcessorRules }
@ -1308,6 +1310,12 @@ type
function GetOldCAUSA_BAJAIsNull: Boolean; virtual;
procedure SetCAUSA_BAJAValue(const aValue: String); virtual;
procedure SetCAUSA_BAJAIsNull(const aValue: Boolean); virtual;
function GetPABELLONValue: String; virtual;
function GetPABELLONIsNull: Boolean; virtual;
function GetOldPABELLONValue: String; virtual;
function GetOldPABELLONIsNull: Boolean; virtual;
procedure SetPABELLONValue(const aValue: String); virtual;
procedure SetPABELLONIsNull(const aValue: Boolean); virtual;
{ Properties }
property ID : Integer read GetIDValue write SetIDValue;
@ -1418,6 +1426,10 @@ type
property CAUSA_BAJAIsNull : Boolean read GetCAUSA_BAJAIsNull write SetCAUSA_BAJAIsNull;
property OldCAUSA_BAJA : String read GetOldCAUSA_BAJAValue;
property OldCAUSA_BAJAIsNull : Boolean read GetOldCAUSA_BAJAIsNull;
property PABELLON : String read GetPABELLONValue write SetPABELLONValue;
property PABELLONIsNull : Boolean read GetPABELLONIsNull write SetPABELLONIsNull;
property OldPABELLON : String read GetOldPABELLONValue;
property OldPABELLONIsNull : Boolean read GetOldPABELLONIsNull;
public
constructor Create(aBusinessProcessor: TDABusinessProcessor); override;
@ -4819,6 +4831,37 @@ begin
BusinessProcessor.CurrentChange.NewValueByName[fld_PacientesCAUSA_BAJA] := Null;
end;
function TPacientesBusinessProcessorRules.GetPABELLONValue: String;
begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_PacientesPABELLON];
end;
function TPacientesBusinessProcessorRules.GetPABELLONIsNull: Boolean;
begin
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_PacientesPABELLON]);
end;
function TPacientesBusinessProcessorRules.GetOldPABELLONValue: String;
begin
result := BusinessProcessor.CurrentChange.OldValueByName[fld_PacientesPABELLON];
end;
function TPacientesBusinessProcessorRules.GetOldPABELLONIsNull: Boolean;
begin
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_PacientesPABELLON]);
end;
procedure TPacientesBusinessProcessorRules.SetPABELLONValue(const aValue: String);
begin
BusinessProcessor.CurrentChange.NewValueByName[fld_PacientesPABELLON] := aValue;
end;
procedure TPacientesBusinessProcessorRules.SetPABELLONIsNull(const aValue: Boolean);
begin
if aValue then
BusinessProcessor.CurrentChange.NewValueByName[fld_PacientesPABELLON] := Null;
end;
initialization
RegisterBusinessProcessorRules(RID_ContactosDelta, TContactosBusinessProcessorRules);

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

@ -83,7 +83,8 @@ begin
ParamByName('FECHA_NACIMIENTO').Value := aChange.NewValueByName[fld_PacientesFECHA_NACIMIENTO];
ParamByName('NUMERO_SS').Value := aChange.NewValueByName[fld_PacientesNUMERO_SS];
ParamByName('FECHA_BAJA').Value := aChange.NewValueByName[fld_PacientesFECHA_BAJA];
ParamByName('CAUSA_BAJA').Value := aChange.NewValueByName[fld_PacientesCAUSA_BAJA];
ParamByName('CAUSA_BAJA').Value := aChange.NewValueByName[fld_PacientesCAUSA_BAJA];
ParamByName('PABELLON').Value := aChange.NewValueByName[fld_PacientesPABELLON];
Execute;
end;
finally
@ -111,6 +112,7 @@ begin
ParamByName('NUMERO_SS').Value := aChange.NewValueByName[fld_PacientesNUMERO_SS];
ParamByName('FECHA_BAJA').Value := aChange.NewValueByName[fld_PacientesFECHA_BAJA];
ParamByName('CAUSA_BAJA').Value := aChange.NewValueByName[fld_PacientesCAUSA_BAJA];
ParamByName('PABELLON').Value := aChange.NewValueByName[fld_PacientesPABELLON];
Execute;
end;
finally

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

@ -961,6 +961,10 @@ object srvContactos: TsrvContactos
item
DatasetField = 'CAUSA_BAJA'
TableField = 'CAUSA_BAJA'
end
item
DatasetField = 'PABELLON'
TableField = 'PABELLON'
end>
end>
Name = 'Pacientes'
@ -1123,6 +1127,12 @@ object srvContactos: TsrvContactos
DataType = datString
Size = 255
DictionaryEntry = 'Pacientes_CAUSA_BAJA'
end
item
Name = 'PABELLON'
DataType = datString
Size = 255
DictionaryEntry = 'Pacientes_PABELLON'
end>
end>
JoinDataTables = <>
@ -2058,6 +2068,12 @@ object srvContactos: TsrvContactos
DataType = datString
Size = 255
Value = ''
end
item
Name = 'PABELLON'
DataType = datString
Size = 255
Value = ''
end>
Statements = <
item
@ -2065,8 +2081,9 @@ object srvContactos: TsrvContactos
TargetTable = 'PACIENTES_DATOS'
SQL =
'INSERT'#10' INTO PACIENTES_DATOS'#10' (ID_PACIENTE, FECHA_NACIMIENTO' +
', NUMERO_SS, FECHA_BAJA, CAUSA_BAJA)'#10' VALUES'#10' (:ID_PACIENTE,' +
' :FECHA_NACIMIENTO, :NUMERO_SS, :FECHA_BAJA, :CAUSA_BAJA)'#10
', NUMERO_SS, FECHA_BAJA, CAUSA_BAJA, PABELLON)'#10' VALUES'#10' (:ID' +
'_PACIENTE, :FECHA_NACIMIENTO, :NUMERO_SS, :FECHA_BAJA, :CAUSA_BA' +
'JA, :PABELLON)'#10
StatementType = stSQL
ColumnMappings = <>
end>
@ -2096,6 +2113,12 @@ object srvContactos: TsrvContactos
Size = 255
Value = ''
end
item
Name = 'PABELLON'
DataType = datString
Size = 255
Value = ''
end
item
Name = 'OLD_ID_PACIENTE'
Value = ''
@ -2107,8 +2130,8 @@ object srvContactos: TsrvContactos
SQL =
'UPDATE PACIENTES_DATOS'#10' SET '#10' FECHA_NACIMIENTO = :FECHA_NACI' +
'MIENTO,'#10' NUMERO_SS = :NUMERO_SS,'#10' FECHA_BAJA = :FECHA_BAJA' +
','#10' CAUSA_BAJA = :CAUSA_BAJA'#10' WHERE'#10' (ID_PACIENTE = :OLD_I' +
'D_PACIENTE)'#10
','#10' CAUSA_BAJA = :CAUSA_BAJA,'#10' PABELLON = :PABELLON'#10' WHERE' +
#10' (ID_PACIENTE = :OLD_ID_PACIENTE)'#10
StatementType = stSQL
ColumnMappings = <>
end>
@ -2913,6 +2936,12 @@ object srvContactos: TsrvContactos
DataType = datString
Size = 255
DisplayLabel = 'Causa de baja'
end
item
Name = 'Pacientes_PABELLON'
DataType = datString
Size = 255
DisplayLabel = 'Pabell'#243'n'
end>
Left = 126
Top = 14

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

@ -68,11 +68,10 @@ contains
uEditorPaciente in 'uEditorPaciente.pas' {fEditorPaciente: TCustomEditor},
uEditorPacientes in 'uEditorPacientes.pas' {fEditorPacientes: TCustomEditor},
uViewCategorias in 'uViewCategorias.pas' {frViewCategorias: TCustomView},
uViewDatosYSeleccionPaciente in 'uViewDatosYSeleccionPaciente.pas' {frViewDatosYSeleccionPaciente: TCustomView},
uViewPaciente in 'uViewPaciente.pas' {frViewPaciente: TCustomView},
uViewPacientes in 'uViewPacientes.pas' {frViewPacientes: TCustomView},
uViewPersonalContacto in 'uViewPersonalContacto.pas',
uViewContactoDatosBancarios in 'uViewContactoDatosBancarios.pas',
uViewContactoListaDatosBancarios in 'uViewContactoListaDatosBancarios.pas';
uViewPersonalContacto in 'uViewPersonalContacto.pas' {frViewPersonalContacto: TCustomView},
uViewContactoDatosBancarios in 'uViewContactoDatosBancarios.pas' {frViewContactoDatosBancarios: TCustomView},
uViewContactoListaDatosBancarios in 'uViewContactoListaDatosBancarios.pas' {frViewContactoListaDatosBancarios: TCustomView};
end.

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

@ -49,31 +49,36 @@
<DelphiCompile Include="Contactos_view.dpk">
<MainSource>MainSource</MainSource>
</DelphiCompile>
<DCCReference Include="adortl.dcp" />
<DCCReference Include="ApplicationBase.dcp" />
<DCCReference Include="Base.dcp" />
<DCCReference Include="Contactos_controller.dcp" />
<DCCReference Include="Contactos_model.dcp" />
<DCCReference Include="cxDataD11.dcp" />
<DCCReference Include="cxEditorsD11.dcp" />
<DCCReference Include="cxExportD11.dcp" />
<DCCReference Include="cxExtEditorsD11.dcp" />
<DCCReference Include="cxGridD11.dcp" />
<DCCReference Include="cxLibraryD11.dcp" />
<DCCReference Include="cxPageControlD11.dcp" />
<DCCReference Include="DataAbstract_Core_D11.dcp" />
<DCCReference Include="dbrtl.dcp" />
<DCCReference Include="dsnap.dcp" />
<DCCReference Include="dxComnD11.dcp" />
<DCCReference Include="dxCoreD11.dcp" />
<DCCReference Include="dxGDIPlusD11.dcp" />
<DCCReference Include="dxLayoutControlD11.dcp" />
<DCCReference Include="dxThemeD11.dcp" />
<DCCReference Include="GUIBase.dcp" />
<DCCReference Include="PngComponentsD10.dcp" />
<DCCReference Include="PNG_D10.dcp" />
<DCCReference Include="RemObjects_Core_D11.dcp" />
<DCCReference Include="rtl.dcp" />
<DCCReference Include="..\adortl.dcp" />
<DCCReference Include="..\ApplicationBase.dcp" />
<DCCReference Include="..\Base.dcp" />
<DCCReference Include="..\Contactos_controller.dcp" />
<DCCReference Include="..\Contactos_model.dcp" />
<DCCReference Include="..\cxDataD11.dcp" />
<DCCReference Include="..\cxEditorsD11.dcp" />
<DCCReference Include="..\cxExportD11.dcp" />
<DCCReference Include="..\cxExtEditorsD11.dcp" />
<DCCReference Include="..\cxGridD11.dcp" />
<DCCReference Include="..\cxLibraryD11.dcp" />
<DCCReference Include="..\cxPageControlD11.dcp" />
<DCCReference Include="..\DataAbstract_Core_D11.dcp" />
<DCCReference Include="..\dbrtl.dcp" />
<DCCReference Include="..\dsnap.dcp" />
<DCCReference Include="..\dxComnD11.dcp" />
<DCCReference Include="..\dxCoreD11.dcp" />
<DCCReference Include="..\dxGDIPlusD11.dcp" />
<DCCReference Include="..\dxLayoutControlD11.dcp" />
<DCCReference Include="..\dxThemeD11.dcp" />
<DCCReference Include="..\GUIBase.dcp" />
<DCCReference Include="..\PngComponentsD10.dcp" />
<DCCReference Include="..\PNG_D10.dcp" />
<DCCReference Include="..\RemObjects_Core_D11.dcp" />
<DCCReference Include="..\rtl.dcp" />
<DCCReference Include="..\vcl.dcp" />
<DCCReference Include="..\vclactnband.dcp" />
<DCCReference Include="..\vcldb.dcp" />
<DCCReference Include="..\vcljpg.dcp" />
<DCCReference Include="..\vclx.dcp" />
<DCCReference Include="uContactosViewRegister.pas" />
<DCCReference Include="uEditorContacto.pas">
<Form>fEditorContacto</Form>
@ -111,14 +116,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 +136,10 @@
<Form>frViewPacientes</Form>
<DesignClass>TCustomView</DesignClass>
</DCCReference>
<DCCReference Include="uViewPersonalContacto.pas" />
<DCCReference Include="vcl.dcp" />
<DCCReference Include="vclactnband.dcp" />
<DCCReference Include="vcldb.dcp" />
<DCCReference Include="vcljpg.dcp" />
<DCCReference Include="vclx.dcp" />
<DCCReference Include="uViewPersonalContacto.pas">
<Form>frViewPersonalContacto</Form>
<DesignClass>TCustomView</DesignClass>
</DCCReference>
</ItemGroup>
</Project>
<!-- EurekaLog First Line

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);

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

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

@ -21,19 +21,6 @@ inherited frViewPaciente: TfrViewPaciente
ExplicitLeft = 628
end
inherited eCalle: TcxDBTextEdit
Left = 121
Top = 220
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
TabOrder = 7
ExplicitLeft = 121
ExplicitTop = 220
ExplicitWidth = 239
Width = 239
end
inherited cbProvincia: TcxDBComboBox
Left = 121
Top = 247
Style.LookAndFeel.SkinName = ''
@ -43,41 +30,54 @@ inherited frViewPaciente: TfrViewPaciente
TabOrder = 8
ExplicitLeft = 121
ExplicitTop = 247
ExplicitWidth = 138
Width = 138
ExplicitWidth = 239
Width = 239
end
inherited cbPoblacion: TcxDBComboBox
inherited cbProvincia: TcxDBComboBox
Left = 121
Top = 274
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
TabOrder = 10
TabOrder = 9
ExplicitLeft = 121
ExplicitTop = 274
ExplicitWidth = 138
Width = 138
end
inherited cbPoblacion: TcxDBComboBox
Left = 121
Top = 301
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
TabOrder = 11
ExplicitLeft = 121
ExplicitTop = 301
ExplicitWidth = 239
Width = 239
end
inherited eCodigoPostal: TcxDBTextEdit
Left = 295
Top = 247
Top = 274
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
TabOrder = 9
TabOrder = 10
ExplicitLeft = 295
ExplicitTop = 247
ExplicitTop = 274
end
inherited eObservaciones: TcxDBMemo
Top = 358
Top = 385
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
TabOrder = 19
ExplicitTop = 358
TabOrder = 20
ExplicitTop = 385
ExplicitWidth = 629
ExplicitHeight = 38
Height = 38
@ -85,7 +85,7 @@ inherited frViewPaciente: TfrViewPaciente
end
object eFechaNacimiento: TcxDBDateEdit [8]
Left = 121
Top = 109
Top = 136
DataBinding.DataField = 'FECHA_NACIMIENTO'
DataBinding.DataSource = dsContacto
Style.BorderColor = clWindowFrame
@ -97,7 +97,7 @@ inherited frViewPaciente: TfrViewPaciente
StyleDisabled.LookAndFeel.NativeStyle = True
StyleFocused.LookAndFeel.NativeStyle = True
StyleHot.LookAndFeel.NativeStyle = True
TabOrder = 4
TabOrder = 5
Width = 239
end
object eNumeroSS: TcxDBTextEdit [9]
@ -120,7 +120,7 @@ inherited frViewPaciente: TfrViewPaciente
end
object eFechaBaja: TcxDBDateEdit [10]
Left = 121
Top = 136
Top = 163
DataBinding.DataField = 'FECHA_BAJA'
DataBinding.DataSource = dsContacto
Style.BorderColor = clWindowFrame
@ -132,12 +132,12 @@ inherited frViewPaciente: TfrViewPaciente
StyleDisabled.LookAndFeel.NativeStyle = True
StyleFocused.LookAndFeel.NativeStyle = True
StyleHot.LookAndFeel.NativeStyle = True
TabOrder = 5
TabOrder = 6
Width = 229
end
object eCausaBaja: TcxDBTextEdit [11]
Left = 121
Top = 163
Top = 190
DataBinding.DataField = 'CAUSA_BAJA'
DataBinding.DataSource = dsContacto
Style.BorderColor = clWindowFrame
@ -152,32 +152,10 @@ inherited frViewPaciente: TfrViewPaciente
StyleFocused.LookAndFeel.NativeStyle = True
StyleHot.LookAndFeel.Kind = lfStandard
StyleHot.LookAndFeel.NativeStyle = True
TabOrder = 6
TabOrder = 7
Width = 229
end
inherited eTlfParticular: TcxDBTextEdit
Left = 485
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
TabOrder = 13
ExplicitLeft = 485
ExplicitWidth = 166
Width = 166
end
inherited eTlfTrabajo: TcxDBTextEdit
Left = 485
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
TabOrder = 12
ExplicitLeft = 485
ExplicitWidth = 166
Width = 166
end
inherited eTlfMovil: TcxDBTextEdit
Left = 485
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
@ -188,7 +166,18 @@ inherited frViewPaciente: TfrViewPaciente
ExplicitWidth = 166
Width = 166
end
inherited eFax: TcxDBTextEdit
inherited eTlfTrabajo: TcxDBTextEdit
Left = 485
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
TabOrder = 13
ExplicitLeft = 485
ExplicitWidth = 166
Width = 166
end
inherited eTlfMovil: TcxDBTextEdit
Left = 485
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
@ -199,6 +188,17 @@ inherited frViewPaciente: TfrViewPaciente
ExplicitWidth = 166
Width = 166
end
inherited eFax: TcxDBTextEdit
Left = 485
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
TabOrder = 16
ExplicitLeft = 485
ExplicitWidth = 166
Width = 166
end
inherited eNombre: TcxDBTextEdit
Left = 121
Style.LookAndFeel.SkinName = ''
@ -226,7 +226,7 @@ inherited frViewPaciente: TfrViewPaciente
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
TabOrder = 16
TabOrder = 17
ExplicitLeft = 485
ExplicitWidth = 137
Width = 137
@ -238,7 +238,7 @@ inherited frViewPaciente: TfrViewPaciente
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
TabOrder = 17
TabOrder = 18
ExplicitLeft = 485
ExplicitWidth = 137
Width = 137
@ -249,7 +249,7 @@ inherited frViewPaciente: TfrViewPaciente
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
TabOrder = 18
TabOrder = 19
ExplicitLeft = 485
ExplicitWidth = 137
Width = 137
@ -266,17 +266,35 @@ inherited frViewPaciente: TfrViewPaciente
end
inherited ePersonaContacto: TcxDBTextEdit
Left = 121
Top = 301
Top = 328
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
TabOrder = 11
TabOrder = 12
ExplicitLeft = 121
ExplicitTop = 301
ExplicitTop = 328
ExplicitWidth = 239
Width = 239
end
object ePabellon: TcxDBTextEdit [23]
Left = 121
Top = 109
DataBinding.DataField = 'PABELLON'
DataBinding.DataSource = dsContacto
Style.BorderColor = clWindowFrame
Style.BorderStyle = ebs3D
Style.LookAndFeel.Kind = lfStandard
Style.LookAndFeel.NativeStyle = True
StyleDisabled.LookAndFeel.Kind = lfStandard
StyleDisabled.LookAndFeel.NativeStyle = True
StyleFocused.LookAndFeel.Kind = lfStandard
StyleFocused.LookAndFeel.NativeStyle = True
StyleHot.LookAndFeel.Kind = lfStandard
StyleHot.LookAndFeel.NativeStyle = True
TabOrder = 4
Width = 239
end
inherited dxLayoutControlContactoGroup_Root: TdxLayoutGroup
inherited dxLayoutControlContactoGroup9: TdxLayoutGroup
inherited dxLayoutControlContactoGroup4: TdxLayoutGroup
@ -295,6 +313,11 @@ inherited frViewPaciente: TfrViewPaciente
Control = eNumeroSS
ControlOptions.ShowBorder = False
end
object dxLayoutControlContactoItem19: TdxLayoutItem
Caption = 'Pabell'#243'n:'
Control = ePabellon
ControlOptions.ShowBorder = False
end
object dxLayoutControlContactoItem16: TdxLayoutItem
AutoAligns = [aaVertical]
AlignHorz = ahClient

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

@ -24,6 +24,8 @@ type
eFechaBaja: TcxDBDateEdit;
dxLayoutControlContactoItem24: TdxLayoutItem;
eCausaBaja: TcxDBTextEdit;
ePabellon: TcxDBTextEdit;
dxLayoutControlContactoItem19: TdxLayoutItem;
public
{ Public declarations }
end;

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

@ -8,6 +8,8 @@ inherited frViewPacientes: TfrViewPacientes
Height = 374
RootLevelOptions.DetailTabsPosition = dtpTop
OnActiveTabChanged = cxGridActiveTabChanged
ExplicitWidth = 754
ExplicitHeight = 374
inherited cxGridView: TcxGridDBTableView
DataController.Summary.FooterSummaryItems = <
item
@ -43,6 +45,11 @@ inherited frViewPacientes: TfrViewPacientes
inherited cxGridViewPAGINA_WEB: TcxGridDBColumn
VisibleForCustomization = False
end
object cxGridViewPABELLON: TcxGridDBColumn
Caption = 'Pabell'#243'n'
DataBinding.FieldName = 'PABELLON'
Width = 128
end
object cxGridViewFECHA_BAJA: TcxGridDBColumn
Caption = 'Fecha de baja'
DataBinding.FieldName = 'FECHA_BAJA'
@ -66,9 +73,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 +116,24 @@ 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
ExplicitTop = 476
ExplicitWidth = 754
inherited TBXAlignmentPanel1: TTBXAlignmentPanel
Width = 754
ExplicitWidth = 754
inherited TBXToolbar1: TTBXToolbar
Width = 744
ExplicitWidth = 744
end
end
end

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

@ -27,6 +27,7 @@ type
cxStyleInactivos: TcxStyle;
cxGridViewNUMERO_SS: TcxGridDBColumn;
cxGridViewFECHA_NACIMIENTO: TcxGridDBColumn;
cxGridViewPABELLON: TcxGridDBColumn;
procedure cxGridActiveTabChanged(Sender: TcxCustomGrid; ALevel: TcxGridLevel);
procedure cxGridViewStylesGetContentStyle(Sender: TcxCustomGridTableView;
ARecord: TcxCustomGridRecord; AItem: TcxCustomGridTableItem;

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;

40
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,13 @@ 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
inherited edtlNombre: TcxDBTextEdit
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
@ -136,16 +140,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

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">1</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.1.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.1.0</VersionInfoKeys><VersionInfoKeys Name="Comments"></VersionInfoKeys><VersionInfoKeys Name="CompileDate">martes, 27 de diciembre de 2011 18:22</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,1,0
PRODUCTVERSION 1,0,1,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.1.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.1.0\0"
VALUE "CompileDate", "jueves, 29 de diciembre de 2011 17:12\0"
END
END
BLOCK "VarFileInfo"

BIN
Source/Servidor/Etiquetas_Server.res
View File

Binary file not shown.