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

Módulo de medicaciones listo a falta de los informes.

Browse Source 
git-svn-id: https://192.168.0.254/svn/Proyectos.FarmaciaPH_Etiquetas/trunk@14 7b0b1a58-4aa1-b946-8089-8453ede31e50
This commit is contained in:
roberto 2011-11-30 11:45:31 +00:00
parent 56507593b2
commit b1b9ee603e
63 changed files with 1208 additions and 1450 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
Source/ApplicationBase/ApplicationBase.dproj
View File

@ -55,10 +55,10 @@
<DelphiCompile Include="ApplicationBase.dpk">
<MainSource>MainSource</MainSource>
</DelphiCompile>
<DCCReference Include="..\Cliente\Base.dcp" />
<DCCReference Include="..\Cliente\GUIBase.dcp" />
<DCCReference Include="..\Cliente\JvJansD11R.dcp" />
<DCCReference Include="..\Cliente\PluginSDK_D11R.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\Base.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\GUIBase.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\JvJansD11R.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\PluginSDK_D11R.dcp" />
<DCCReference Include="Empresas\Controller\uDatosBancariosEmpresaController.pas" />
<DCCReference Include="Empresas\Controller\uEmpresasController.pas" />
<DCCReference Include="Empresas\Controller\View\uIEditorDatosBancarioEmpresa.pas" />

12
Source/ApplicationBase/uPlugins_Intf.pas
View File

@ -2,18 +2,6 @@ unit uPlugins_Intf;
interface
const
MODULENAME_PRESUPUESTOS_CLIENTE = 'PresupuestosCliente_plugin.bpl';
MODULENAME_ALBARANES_CLIENTE = 'AlbaranesCliente_plugin.bpl';
MODULENAME_FACTURAS_CLIENTE = 'FacturasCliente_plugin.bpl';
MODULENAME_RECIBOS_CLIENTE = 'RecibosCliente_plugin.bpl';
MODULENAME_PEDIDOS_PROVEEDOR = 'PedidosProveedor_plugin.bpl';
MODULENAME_ALBARANES_PROVEEDOR = 'AlbaranesProveedor_plugin.bpl';
MODULENAME_FACTURAS_PROVEEDOR = 'FacturasProveedor_plugin.bpl';
MODULENAME_RECIBOS_PROVEEDOR = 'RecibosProveedor_plugin.bpl';
type
IMCPresupuestosCliente = interface(IInterface)
['{D09E6FFF-50C7-48E2-8380-4CB57B74BB93}']

102
Source/Base/Base.dproj
View File

@ -54,58 +54,58 @@
<DelphiCompile Include="Base.dpk">
<MainSource>MainSource</MainSource>
</DelphiCompile>
<DCCReference Include="..\Modulos\Medicaciones\adortl.dcp" />
<DCCReference Include="..\Modulos\Medicaciones\cxDataD11.dcp" />
<DCCReference Include="..\Modulos\Medicaciones\cxEditorsD11.dcp" />
<DCCReference Include="..\Modulos\Medicaciones\cxExportD11.dcp" />
<DCCReference Include="..\Modulos\Medicaciones\cxExtEditorsD11.dcp" />
<DCCReference Include="..\Modulos\Medicaciones\cxGridD11.dcp" />
<DCCReference Include="..\Modulos\Medicaciones\cxIntl6D11.dcp" />
<DCCReference Include="..\Modulos\Medicaciones\cxIntlPrintSys3D11.dcp" />
<DCCReference Include="..\Modulos\Medicaciones\cxLibraryD11.dcp" />
<DCCReference Include="..\Modulos\Medicaciones\cxPageControlD11.dcp" />
<DCCReference Include="..\Modulos\Medicaciones\DataAbstract_Core_D11.dcp" />
<DCCReference Include="..\Modulos\Medicaciones\dbrtl.dcp" />
<DCCReference Include="..\Modulos\Medicaciones\dclIndyCore.dcp" />
<DCCReference Include="..\Modulos\Medicaciones\designide.dcp" />
<DCCReference Include="..\Modulos\Medicaciones\dsnap.dcp" />
<DCCReference Include="..\Modulos\Medicaciones\dxGDIPlusD11.dcp" />
<DCCReference Include="..\Modulos\Medicaciones\dxPSCoreD11.dcp" />
<DCCReference Include="..\Modulos\Medicaciones\dxThemeD11.dcp" />
<DCCReference Include="..\Modulos\Medicaciones\GUISDK_D11R.dcp" />
<DCCReference Include="..\Modulos\Medicaciones\IndyCore.dcp" />
<DCCReference Include="..\Modulos\Medicaciones\IndyProtocols.dcp" />
<DCCReference Include="..\Modulos\Medicaciones\IndySystem.dcp" />
<DCCReference Include="..\Modulos\Medicaciones\Jcl.dcp" />
<DCCReference Include="..\Modulos\Medicaciones\JclVcl.dcp" />
<DCCReference Include="..\Modulos\Medicaciones\JSDialog100.dcp" />
<DCCReference Include="..\Modulos\Medicaciones\JvCmpD11R.dcp" />
<DCCReference Include="..\Modulos\Medicaciones\JvCoreD11R.dcp" />
<DCCReference Include="..\Modulos\Medicaciones\JvCtrlsD11R.dcp" />
<DCCReference Include="..\Modulos\Medicaciones\JvDlgsD11R.dcp" />
<DCCReference Include="..\Modulos\Medicaciones\JvMMD11R.dcp" />
<DCCReference Include="..\Modulos\Medicaciones\JvNetD11R.dcp" />
<DCCReference Include="..\Modulos\Medicaciones\JvPageCompsD11R.dcp" />
<DCCReference Include="..\Modulos\Medicaciones\JvStdCtrlsD11R.dcp" />
<DCCReference Include="..\Modulos\Medicaciones\JvSystemD11R.dcp" />
<DCCReference Include="..\Modulos\Medicaciones\pckMD5.dcp" />
<DCCReference Include="..\Modulos\Medicaciones\pckUCDataConnector.dcp" />
<DCCReference Include="..\Modulos\Medicaciones\pckUserControl_RT.dcp" />
<DCCReference Include="..\Modulos\Medicaciones\PngComponentsD10.dcp" />
<DCCReference Include="..\Modulos\Medicaciones\PNG_D10.dcp" />
<DCCReference Include="..\Modulos\Medicaciones\RemObjects_Core_D11.dcp" />
<DCCReference Include="..\Modulos\Medicaciones\RemObjects_Indy_D11.dcp" />
<DCCReference Include="..\Modulos\Medicaciones\rtl.dcp" />
<DCCReference Include="..\Modulos\Medicaciones\TB2k_D10.dcp" />
<DCCReference Include="..\Modulos\Medicaciones\tbx_d10.dcp" />
<DCCReference Include="..\Modulos\Medicaciones\vcl.dcp" />
<DCCReference Include="..\Modulos\Medicaciones\vclactnband.dcp" />
<DCCReference Include="..\Modulos\Medicaciones\vcldb.dcp" />
<DCCReference Include="..\Modulos\Medicaciones\vcljpg.dcp" />
<DCCReference Include="..\Modulos\Medicaciones\VclSmp.dcp" />
<DCCReference Include="..\Modulos\Medicaciones\vclx.dcp" />
<DCCReference Include="..\Modulos\Medicaciones\xmlrtl.dcp" />
<DCCReference Include="..\Servicios\Etiquetas_Intf.pas" />
<DCCReference Include="C:\Documents and Settings\Usuario\adortl.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\cxDataD11.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\cxEditorsD11.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\cxExportD11.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\cxExtEditorsD11.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\cxGridD11.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\cxIntl6D11.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\cxIntlPrintSys3D11.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\cxLibraryD11.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\cxPageControlD11.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\DataAbstract_Core_D11.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\dbrtl.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\dclIndyCore.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\designide.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\dsnap.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\dxGDIPlusD11.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\dxPSCoreD11.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\dxThemeD11.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\GUISDK_D11R.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\IndyCore.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\IndyProtocols.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\IndySystem.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\Jcl.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\JclVcl.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\JSDialog100.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\JvCmpD11R.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\JvCoreD11R.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\JvCtrlsD11R.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\JvDlgsD11R.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\JvMMD11R.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\JvNetD11R.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\JvPageCompsD11R.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\JvStdCtrlsD11R.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\JvSystemD11R.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\pckMD5.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\pckUCDataConnector.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\pckUserControl_RT.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\PngComponentsD10.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\PNG_D10.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\RemObjects_Core_D11.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\RemObjects_Indy_D11.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\rtl.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\TB2k_D10.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\tbx_d10.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\vcl.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\vclactnband.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\vcldb.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\vcljpg.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\VclSmp.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\vclx.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\xmlrtl.dcp" />
<DCCReference Include="Conexion\uConfigurarConexion.pas">
<Form>fConfigurarConexion</Form>
<DesignClass>TForm</DesignClass>

BIN
Source/Base/Base.res
View File

Binary file not shown.

2
Source/Base/Controladores/uControllerDetallesBase.pas
View File

@ -43,9 +43,9 @@ type
private
fUpdateCount: Integer;
function CalcularTotales(Modificar: boolean; DataTable: TDADataTable): Double;
protected
function CalcularTotales(Modificar: boolean; DataTable: TDADataTable): Double; virtual;
procedure Renumerar(DataTable: TDADataTable; LocalizaPosicion: Integer);
function DesplazarNPosiciones(DataTable: TDADataTable; NumOrdenIni: Variant; NPosiciones: Variant): Integer;
procedure Mover(DataTable: TDADataTable; Posicion: Integer; NumPosiciones: Integer);

6
Source/Cliente/uBootStrap.pas
View File

@ -21,15 +21,9 @@ begin
with AppFactuGES.ModuleManager do
begin
LoadModule('Referencias_plugin.bpl');
//LoadModule('FormasPago_plugin.bpl');
//LoadModule('TiposIVA_plugin.bpl');
//LoadModule('Familias_plugin.bpl');
//LoadModule('Fabricantes_plugin.bpl');
LoadModule('UnidadesMedida_plugin.bpl');
LoadModule('Contactos_plugin.bpl');
LoadModule('Medicaciones_plugin.bpl');
//LoadModule(MODULENAME_ALBARANES_CLIENTE);
end;
end;

48
Source/GUIBase/GUIBase.dproj
View File

@ -59,30 +59,30 @@
<DelphiCompile Include="GUIBase.dpk">
<MainSource>MainSource</MainSource>
</DelphiCompile>
<DCCReference Include="..\Modulos\Medicaciones\Base.dcp" />
<DCCReference Include="..\Modulos\Medicaciones\cxLibraryD11.dcp" />
<DCCReference Include="..\Modulos\Medicaciones\cxTreeListD11.dcp" />
<DCCReference Include="..\Modulos\Medicaciones\dbrtl.dcp" />
<DCCReference Include="..\Modulos\Medicaciones\dxBarD11.dcp" />
<DCCReference Include="..\Modulos\Medicaciones\dxBarExtItemsD11.dcp" />
<DCCReference Include="..\Modulos\Medicaciones\dxComnD11.dcp" />
<DCCReference Include="..\Modulos\Medicaciones\dxGDIPlusD11.dcp" />
<DCCReference Include="..\Modulos\Medicaciones\dxLayoutControlD11.dcp" />
<DCCReference Include="..\Modulos\Medicaciones\dxPSCoreD11.dcp" />
<DCCReference Include="..\Modulos\Medicaciones\dxPScxCommonD11.dcp" />
<DCCReference Include="..\Modulos\Medicaciones\dxPScxGrid6LnkD11.dcp" />
<DCCReference Include="..\Modulos\Medicaciones\dxPsPrVwAdvD11.dcp" />
<DCCReference Include="..\Modulos\Medicaciones\dxThemeD11.dcp" />
<DCCReference Include="..\Modulos\Medicaciones\frx11.dcp" />
<DCCReference Include="..\Modulos\Medicaciones\frxe11.dcp" />
<DCCReference Include="..\Modulos\Medicaciones\fs11.dcp" />
<DCCReference Include="..\Modulos\Medicaciones\JvAppFrmD11R.dcp" />
<DCCReference Include="..\Modulos\Medicaciones\JvCtrlsD11R.dcp" />
<DCCReference Include="..\Modulos\Medicaciones\rtl.dcp" />
<DCCReference Include="..\Modulos\Medicaciones\vcl.dcp" />
<DCCReference Include="..\Modulos\Medicaciones\vcldb.dcp" />
<DCCReference Include="..\Modulos\Medicaciones\vcljpg.dcp" />
<DCCReference Include="..\Modulos\Medicaciones\vclx.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\Base.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\cxLibraryD11.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\cxTreeListD11.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\dbrtl.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\dxBarD11.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\dxBarExtItemsD11.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\dxComnD11.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\dxGDIPlusD11.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\dxLayoutControlD11.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\dxPSCoreD11.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\dxPScxCommonD11.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\dxPScxGrid6LnkD11.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\dxPsPrVwAdvD11.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\dxThemeD11.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\frx11.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\frxe11.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\fs11.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\JvAppFrmD11R.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\JvCtrlsD11R.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\rtl.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\vcl.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\vcldb.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\vcljpg.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\vclx.dcp" />
<DCCReference Include="uDialogBase.pas">
<Form>fDialogBase</Form>
</DCCReference>

BIN
Source/GUIBase/GUIBase.res
View File

Binary file not shown.

53
Source/GUIBase/uViewDetallesBase.dfm
View File

@ -10,7 +10,7 @@ inherited frViewDetallesBase: TfrViewDetallesBase
Left = 0
Top = 0
Width = 451
Height = 68
Height = 73
AutoSize = True
ButtonWidth = 141
Caption = 'ToolBar1'
@ -42,30 +42,29 @@ inherited frViewDetallesBase: TfrViewDetallesBase
Top = 0
Action = actSubir
AutoSize = True
Wrap = True
end
object ToolButton4: TToolButton
Left = 0
Top = 22
Left = 184
Top = 0
Action = actBajar
AutoSize = True
end
object ToolButton14: TToolButton
Left = 56
Top = 22
Left = 240
Top = 0
Action = FontEdit1
AutoSize = True
Wrap = True
end
object FontName: TJvFontComboBox
Left = 0
Top = 44
Top = 22
Width = 145
Height = 22
DroppedDownWidth = 145
MaxMRUCount = 0
FontName = 'Tahoma'
ItemIndex = 39
ItemIndex = 42
Options = [foTrueTypeOnly, foNoOEMFonts, foScalableOnly, foWysiWyg]
Sorted = True
TabOrder = 2
@ -75,7 +74,7 @@ inherited frViewDetallesBase: TfrViewDetallesBase
end
object FontSize: TEdit
Left = 145
Top = 44
Top = 22
Width = 26
Height = 22
Hint = 'Font Size|Select font size'
@ -86,7 +85,7 @@ inherited frViewDetallesBase: TfrViewDetallesBase
end
object UpDown1: TUpDown
Left = 171
Top = 44
Top = 22
Width = 16
Height = 22
Associate = FontSize
@ -95,7 +94,7 @@ inherited frViewDetallesBase: TfrViewDetallesBase
end
object ToolButton13: TToolButton
Left = 187
Top = 44
Top = 22
Width = 8
Caption = 'ToolButton13'
ImageIndex = 10
@ -103,54 +102,55 @@ inherited frViewDetallesBase: TfrViewDetallesBase
end
object ToolButton6: TToolButton
Left = 195
Top = 44
Top = 22
Action = RichEditBold1
AutoSize = True
end
object ToolButton7: TToolButton
Left = 261
Top = 44
Top = 22
Action = RichEditItalic1
AutoSize = True
end
object ToolButton8: TToolButton
Left = 328
Top = 44
Top = 22
Action = RichEditUnderline1
AutoSize = True
end
object ToolButton12: TToolButton
Left = 411
Top = 44
Left = 0
Top = 22
Width = 8
Caption = 'ToolButton12'
ImageIndex = 10
Wrap = True
Style = tbsSeparator
end
object ToolButton9: TToolButton
Left = 419
Top = 44
Left = 0
Top = 49
Action = RichEditAlignLeft1
AutoSize = True
end
object ToolButton10: TToolButton
Left = 564
Top = 44
Left = 145
Top = 49
Action = RichEditAlignCenter1
AutoSize = True
end
object ToolButton11: TToolButton
Left = 689
Top = 44
Left = 270
Top = 49
Action = RichEditAlignRight1
AutoSize = True
end
end
object cxGrid: TcxGrid
Left = 0
Top = 94
Top = 99
Width = 451
Height = 210
Height = 205
Align = alClient
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
@ -161,8 +161,6 @@ inherited frViewDetallesBase: TfrViewDetallesBase
TabOrder = 1
LookAndFeel.Kind = lfStandard
LookAndFeel.NativeStyle = True
ExplicitTop = 99
ExplicitHeight = 205
object cxGridView: TcxGridDBTableView
OnKeyDown = cxGridViewKeyDown
NavigatorButtons.ConfirmDelete = False
@ -346,12 +344,11 @@ inherited frViewDetallesBase: TfrViewDetallesBase
end
object TBXDock1: TTBXDock
Left = 0
Top = 68
Top = 73
Width = 451
Height = 26
BackgroundOnToolbars = False
UseParentBackground = True
ExplicitTop = 73
object TBXToolbar1: TTBXToolbar
Left = 0
Top = 0

3
Source/Modulos/Articulos/Controller/uArticulosController.pas
View File

@ -81,10 +81,11 @@ var
Condicion: TDAWhereExpression;
begin
ShowHourglassCursor;
Result := BuscarTodos;
try
with Result.DataTable.DynamicWhere do
begin
Condicion := NewBinaryExpression(NewMacro('UpperCase('+fld_ArticulosREFERENCIA+')'),
Condicion := NewBinaryExpression(NewMacro('UpperCase', [NewField('', fld_ArticulosREFERENCIA)]),
NewConstant(UpperCase(Ref), datString),dboEqual);
if IsEmpty then
Expression := Condicion

2
Source/Modulos/Articulos/Data/Articulos_data.dproj
View File

@ -48,6 +48,8 @@
<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="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 Name="Comments"></VersionInfoKeys></VersionInfoKeys><Source><Source Name="MainSource">Articulos_data.dpk</Source></Source><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></Delphi.Personality></BorlandProject></BorlandProject>

17
Source/Modulos/Articulos/Data/uDataModuleArticulos.dfm
View File

@ -26,6 +26,14 @@ inherited DataModuleArticulos: TDataModuleArticulos
object tbl_Articulos: TDAMemDataTable
RemoteUpdatesOptions = []
Fields = <
item
Name = 'ID'
DataType = datInteger
LogChanges = False
DisplayLabel = 'Articulos_ID'
ReadOnly = True
DictionaryEntry = 'Articulos_ID'
end
item
Name = 'REFERENCIA'
DataType = datString
@ -43,6 +51,15 @@ inherited DataModuleArticulos: TDataModuleArticulos
DisplayLabel = 'Descripci'#243'n'
ReadOnly = True
DictionaryEntry = 'Articulos_DESCRIPCION'
end
item
Name = 'FAMILIA'
DataType = datString
Size = 25
LogChanges = False
DisplayLabel = 'Familia'
ReadOnly = True
DictionaryEntry = 'Articulos_FAMILIA'
end>
Params = <>
StreamingOptions = [soDisableEventsWhileStreaming]

20
Source/Modulos/Articulos/Model/Articulos_model.dproj
View File

@ -55,16 +55,16 @@
<DelphiCompile Include="Articulos_model.dpk">
<MainSource>MainSource</MainSource>
</DelphiCompile>
<DCCReference Include="..\..\Medicacion\Model\adortl.dcp" />
<DCCReference Include="..\..\Medicacion\Model\ApplicationBase.dcp" />
<DCCReference Include="..\..\Medicacion\Model\Base.dcp" />
<DCCReference Include="..\..\Medicacion\Model\DataAbstract_Core_D11.dcp" />
<DCCReference Include="..\..\Medicacion\Model\dbrtl.dcp" />
<DCCReference Include="..\..\Medicacion\Model\dsnap.dcp" />
<DCCReference Include="..\..\Medicacion\Model\RemObjects_Core_D11.dcp" />
<DCCReference Include="..\..\Medicacion\Model\rtl.dcp" />
<DCCReference Include="..\..\Medicacion\Model\vcl.dcp" />
<DCCReference Include="..\..\Medicacion\Model\vcldb.dcp" />
<DCCReference Include="..\adortl.dcp" />
<DCCReference Include="..\ApplicationBase.dcp" />
<DCCReference Include="..\Base.dcp" />
<DCCReference Include="..\DataAbstract_Core_D11.dcp" />
<DCCReference Include="..\dbrtl.dcp" />
<DCCReference Include="..\dsnap.dcp" />
<DCCReference Include="..\RemObjects_Core_D11.dcp" />
<DCCReference Include="..\rtl.dcp" />
<DCCReference Include="..\vcl.dcp" />
<DCCReference Include="..\vcldb.dcp" />
<DCCReference Include="Data\uIDataModuleArticulos.pas" />
<DCCReference Include="schArticulosClient_Intf.pas" />
<DCCReference Include="schArticulosServer_Intf.pas" />

25
Source/Modulos/Articulos/Servidor/srvArticulos_Impl.dfm
View File

@ -1,14 +1,14 @@
object srvArticulos: TsrvArticulos
OldCreateOrder = True
OnCreate = DARemoteServiceCreate
ConnectionName = 'IBX'
ConnectionName = 'FARMATIC'
ServiceSchema = schArticulos
ServiceDataStreamer = Bin2DataStreamer
AllowWhereSQL = True
ExportedDataTables = <>
BeforeAcquireConnection = DataAbstractServiceBeforeAcquireConnection
Height = 229
Width = 517
Height = 194
Width = 246
object DataDictionary: TDADataDictionary
Fields = <
item
@ -56,22 +56,17 @@ object srvArticulos: TsrvArticulos
ConnectionType = 'MSSQL'
Default = True
SQL =
'SELECT'#10' dbo.ARTICU.IdArticu as ID, dbo.ARTICU.IdArticu as R' +
'EFERENCIA, dbo.ARTICU.Descripcion as DESCRIPCION, dbo.FAMILIA.De' +
'scripcion as FAMILIA'#10'FROM'#10' dbo.ARTICU WITH (NOLOCK INDEX = id' +
'x_descripcion)'#10'LEFT JOIN'#10' dbo.FAMILIA ON (dbo.FAMILIA.IdFami' +
'lia = dbo.ARTICU.XFam_IdFamilia)'#10'WHERE {Where}'#10'ORDER BY IdArticu' +
#10#10
'SELECT'#10' dbo.ARTICU.IdArticu as ID, dbo.ARTICU.IdArticu, dbo' +
'.ARTICU.Descripcion as DESCRIPCION, dbo.FAMILIA.Descripcion as F' +
'AMILIA'#10'FROM'#10' dbo.ARTICU WITH (NOLOCK INDEX = idx_descripcion)' +
#10'LEFT JOIN'#10' dbo.FAMILIA ON (dbo.FAMILIA.IdFamilia = dbo.ARTI' +
'CU.XFam_IdFamilia)'#10'WHERE {Where}'#10'ORDER BY IdArticu'#10#10
StatementType = stSQL
ColumnMappings = <
item
DatasetField = 'ID'
TableField = 'ID'
end
item
DatasetField = 'REFERENCIA'
TableField = 'REFERENCIA'
end
item
DatasetField = 'DESCRIPCION'
TableField = 'DESCRIPCION'
@ -79,6 +74,10 @@ object srvArticulos: TsrvArticulos
item
DatasetField = 'FAMILIA'
TableField = 'FAMILIA'
end
item
DatasetField = 'REFERENCIA'
TableField = 'IdArticu'
end>
end>
Name = 'Articulos'

3
Source/Modulos/Articulos/Servidor/srvArticulos_Impl.pas
View File

@ -36,7 +36,8 @@ implementation
{$R *.dfm}
uses
{Generated:} Etiquetas_Invk, uDataModuleServer, Variants, uStringsUtils,
uDatabaseUtils, schArticulosClient_Intf, uRestriccionesUsuarioUtils;
uDatabaseUtils, schArticulosClient_Intf, uRestriccionesUsuarioUtils,
Dialogs;
procedure Create_srvArticulos(out anInstance : IUnknown);
begin

1
Source/Modulos/Articulos/Views/Articulos_view.dpk
View File

@ -78,7 +78,6 @@ contains
uArticulosViewRegister in 'uArticulosViewRegister.pas',
uEditorElegirArticulos in 'uEditorElegirArticulos.pas' {fEditorElegirArticulos: TfEditorElegirArticulos},
uViewDetallesArticulos in 'uViewDetallesArticulos.pas' {frViewDetallesArticulos: TFrame},
uViewDetallesArticulosParaVenta in 'uViewDetallesArticulosParaVenta.pas' {frViewDetallesArticulosParaVenta: TCustomView},
uViewArticulos in 'uViewArticulos.pas' {frViewArticulos: TFrame};
end.

105
Source/Modulos/Articulos/Views/Articulos_view.dproj
View File

@ -55,68 +55,67 @@
<DelphiCompile Include="Articulos_view.dpk">
<MainSource>MainSource</MainSource>
</DelphiCompile>
<DCCReference Include="..\..\Medicaciones\Views\adortl.dcp" />
<DCCReference Include="..\..\Medicaciones\Views\Articulos_controller.dcp" />
<DCCReference Include="..\..\Medicaciones\Views\Articulos_model.dcp" />
<DCCReference Include="..\..\Medicaciones\Views\Contactos_view.dcp" />
<DCCReference Include="..\..\Medicaciones\Views\cxDataD11.dcp" />
<DCCReference Include="..\..\Medicaciones\Views\cxEditorsD11.dcp" />
<DCCReference Include="..\..\Medicaciones\Views\cxExportD11.dcp" />
<DCCReference Include="..\..\Medicaciones\Views\cxExtEditorsD11.dcp" />
<DCCReference Include="..\..\Medicaciones\Views\cxGridD11.dcp" />
<DCCReference Include="..\..\Medicaciones\Views\cxIntlPrintSys3D11.dcp" />
<DCCReference Include="..\..\Medicaciones\Views\cxLibraryD11.dcp" />
<DCCReference Include="..\..\Medicaciones\Views\cxPageControlD11.dcp" />
<DCCReference Include="..\..\Medicaciones\Views\DataAbstract_Core_D11.dcp" />
<DCCReference Include="..\..\Medicaciones\Views\dbrtl.dcp" />
<DCCReference Include="..\..\Medicaciones\Views\dclcxLibraryD11.dcp" />
<DCCReference Include="..\..\Medicaciones\Views\designide.dcp" />
<DCCReference Include="..\..\Medicaciones\Views\dsnap.dcp" />
<DCCReference Include="..\..\Medicaciones\Views\dxComnD11.dcp" />
<DCCReference Include="..\..\Medicaciones\Views\dxCoreD11.dcp" />
<DCCReference Include="..\..\Medicaciones\Views\dxGDIPlusD11.dcp" />
<DCCReference Include="..\..\Medicaciones\Views\dxPSCoreD11.dcp" />
<DCCReference Include="..\..\Medicaciones\Views\dxPScxCommonD11.dcp" />
<DCCReference Include="..\..\Medicaciones\Views\dxPScxGrid6LnkD11.dcp" />
<DCCReference Include="..\..\Medicaciones\Views\dxPSLnksD11.dcp" />
<DCCReference Include="..\..\Medicaciones\Views\dxThemeD11.dcp" />
<DCCReference Include="..\..\Medicaciones\Views\GUIBase.dcp" />
<DCCReference Include="..\..\Medicaciones\Views\GUISDK_D11R.dcp" />
<DCCReference Include="..\..\Medicaciones\Views\Jcl.dcp" />
<DCCReference Include="..\..\Medicaciones\Views\JclVcl.dcp" />
<DCCReference Include="..\..\Medicaciones\Views\JvAppFrmD11R.dcp" />
<DCCReference Include="..\..\Medicaciones\Views\JvCoreD11R.dcp" />
<DCCReference Include="..\..\Medicaciones\Views\JvCtrlsD11R.dcp" />
<DCCReference Include="..\..\Medicaciones\Views\JvStdCtrlsD11R.dcp" />
<DCCReference Include="..\..\Medicaciones\Views\JvSystemD11R.dcp" />
<DCCReference Include="..\..\Medicaciones\Views\PngComponentsD10.dcp" />
<DCCReference Include="..\..\Medicaciones\Views\PNG_D10.dcp" />
<DCCReference Include="..\..\Medicaciones\Views\RemObjects_Core_D11.dcp" />
<DCCReference Include="..\..\Medicaciones\Views\rtl.dcp" />
<DCCReference Include="..\..\Medicaciones\Views\tb2k_d10.dcp" />
<DCCReference Include="..\..\Medicaciones\Views\tbx_d10.dcp" />
<DCCReference Include="..\..\Medicaciones\Views\UnidadesMedida_controller.dcp" />
<DCCReference Include="..\..\Medicaciones\Views\vcl.dcp" />
<DCCReference Include="..\..\Medicaciones\Views\vclactnband.dcp" />
<DCCReference Include="..\..\Medicaciones\Views\vcldb.dcp" />
<DCCReference Include="..\..\Medicaciones\Views\vcljpg.dcp" />
<DCCReference Include="..\..\Medicaciones\Views\vclshlctrls.dcp" />
<DCCReference Include="..\..\Medicaciones\Views\vclx.dcp" />
<DCCReference Include="..\..\Medicaciones\Views\xmlrtl.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\adortl.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\Articulos_controller.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\Articulos_model.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\Contactos_view.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\cxDataD11.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\cxEditorsD11.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\cxExportD11.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\cxExtEditorsD11.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\cxGridD11.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\cxIntlPrintSys3D11.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\cxLibraryD11.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\cxPageControlD11.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\DataAbstract_Core_D11.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\dbrtl.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\dclcxLibraryD11.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\designide.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\dsnap.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\dxComnD11.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\dxCoreD11.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\dxGDIPlusD11.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\dxPSCoreD11.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\dxPScxCommonD11.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\dxPScxGrid6LnkD11.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\dxPSLnksD11.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\dxThemeD11.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\GUIBase.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\GUISDK_D11R.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\Jcl.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\JclVcl.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\JvAppFrmD11R.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\JvCoreD11R.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\JvCtrlsD11R.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\JvStdCtrlsD11R.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\JvSystemD11R.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\PngComponentsD10.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\PNG_D10.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\RemObjects_Core_D11.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\rtl.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\tb2k_d10.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\tbx_d10.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\UnidadesMedida_controller.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\vcl.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\vclactnband.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\vcldb.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\vcljpg.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\vclshlctrls.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\vclx.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\xmlrtl.dcp" />
<DCCReference Include="uArticulosViewRegister.pas" />
<DCCReference Include="uEditorElegirArticulos.pas">
<Form>fEditorElegirArticulos</Form>
<DesignClass>TfEditorElegirArticulos</DesignClass>
</DCCReference>
<DCCReference Include="uViewArticulos.pas" />
<DCCReference Include="uViewArticulos.pas">
<Form>frViewArticulos</Form>
<DesignClass>TFrame</DesignClass>
</DCCReference>
<DCCReference Include="uViewDetallesArticulos.pas">
<Form>frViewDetallesArticulos</Form>
<DesignClass>TFrame</DesignClass>
</DCCReference>
<DCCReference Include="uViewDetallesArticulosParaVenta.pas">
<Form>frViewDetallesArticulosParaVenta</Form>
<DesignClass>TCustomView</DesignClass>
</DCCReference>
</ItemGroup>
</Project>
<!-- EurekaLog First Line

35
Source/Modulos/Articulos/Views/uViewArticulos.dfm
View File

@ -31,11 +31,6 @@ inherited frViewArticulos: TfrViewArticulos
Visible = False
VisibleForCustomization = False
end
object cxGridViewID_EMPRESA: TcxGridDBColumn
DataBinding.FieldName = 'ID_EMPRESA'
Visible = False
VisibleForCustomization = False
end
object cxGridViewREFERENCIA: TcxGridDBColumn
DataBinding.FieldName = 'REFERENCIA'
SortIndex = 0
@ -44,24 +39,9 @@ inherited frViewArticulos: TfrViewArticulos
object cxGridViewDESCRIPCION: TcxGridDBColumn
DataBinding.FieldName = 'DESCRIPCION'
end
object cxGridViewUNIDAD_MEDIDA: TcxGridDBColumn
DataBinding.FieldName = 'UNIDAD_MEDIDA'
end
object cxGridViewFAMILIA: TcxGridDBColumn
DataBinding.FieldName = 'FAMILIA'
end
object cxGridViewFABRICANTE: TcxGridDBColumn
DataBinding.FieldName = 'FABRICANTE'
end
object cxGridViewREFERENCIA_FABR: TcxGridDBColumn
DataBinding.FieldName = 'REFERENCIA_FABR'
end
object cxGridViewPRECIO_PVP_VENTA: TcxGridDBColumn
DataBinding.FieldName = 'PRECIO_PVP_VENTA'
end
object cxGridViewPRECIO_PVP_TOTAL: TcxGridDBColumn
DataBinding.FieldName = 'PRECIO_PVP_TOTAL'
end
end
inherited cxGridLevel: TcxGridLevel
Caption = 'Todos los art'#237'culos'
@ -88,20 +68,28 @@ inherited frViewArticulos: TfrViewArticulos
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitWidth = 272
Width = 272
end
inherited edtFechaFinFiltro: TcxDateEdit
Left = 376
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitLeft = 376
ExplicitWidth = 221
Width = 221
end
inherited eLista: TcxComboBox
Left = 634
Properties.DropDownRows = 20
Properties.OnChange = frViewFiltroBase1eListaPropertiesChange
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitLeft = 634
ExplicitWidth = 71
Width = 71
end
@ -147,11 +135,6 @@ inherited frViewArticulos: TfrViewArticulos
object TBXItem3: TTBXItem
Action = actFamilia
end
object TBXSeparatorItem2: TTBXSeparatorItem
end
object TBXItem4: TTBXItem
Action = actFabricante
end
end
end
end
@ -171,8 +154,6 @@ inherited frViewArticulos: TfrViewArticulos
end
object actFabricante: TAction
Caption = 'Fabricante'
OnExecute = actFabricanteExecute
OnUpdate = actFabricanteUpdate
end
end
inherited GridPNGImageList: TPngImageList

37
Source/Modulos/Articulos/Views/uViewArticulos.pas
View File

@ -33,24 +33,14 @@ type
actFamilia: TAction;
TBXItem3: TTBXItem;
TBXSeparatorItem1: TTBXSeparatorItem;
TBXSeparatorItem2: TTBXSeparatorItem;
TBXItem4: TTBXItem;
actFabricante: TAction;
cxGridViewRecID: TcxGridDBColumn;
cxGridViewID: TcxGridDBColumn;
cxGridViewID_EMPRESA: TcxGridDBColumn;
cxGridViewREFERENCIA: TcxGridDBColumn;
cxGridViewDESCRIPCION: TcxGridDBColumn;
cxGridViewUNIDAD_MEDIDA: TcxGridDBColumn;
cxGridViewFAMILIA: TcxGridDBColumn;
cxGridViewFABRICANTE: TcxGridDBColumn;
cxGridViewREFERENCIA_FABR: TcxGridDBColumn;
cxGridViewPRECIO_PVP_VENTA: TcxGridDBColumn;
cxGridViewPRECIO_PVP_TOTAL: TcxGridDBColumn;
procedure actFamiliaExecute(Sender: TObject);
procedure actFamiliaUpdate(Sender: TObject);
procedure actFabricanteExecute(Sender: TObject);
procedure actFabricanteUpdate(Sender: TObject);
procedure cxGridView2DataControllerCompare(ADataController: TcxCustomDataController; ARecordIndex1, ARecordIndex2,
AItemIndex: Integer; const V1, V2: Variant; var Compare: Integer);
procedure frViewFiltroBase1eListaPropertiesChange(Sender: TObject);
@ -109,26 +99,6 @@ begin
FController := Value;
end;
procedure TfrViewArticulos.actFabricanteExecute(Sender: TObject);
begin
if (cxGridViewFABRICANTE.GroupIndex < 0) then
begin
cxGridViewFABRICANTE.GroupIndex := cxGridView.GroupedColumnCount;
cxGridViewFABRICANTE.Visible := False;
end
else
begin
cxGridViewFABRICANTE.GroupIndex := -1;
cxGridViewFABRICANTE.Visible := True;
end;
end;
procedure TfrViewArticulos.actFabricanteUpdate(Sender: TObject);
begin
inherited;
(Sender as TAction).Checked := not (cxGridViewFABRICANTE.GroupIndex < 0);
end;
procedure TfrViewArticulos.actFamiliaExecute(Sender: TObject);
begin
if (cxGridViewFAMILIA.GroupIndex < 0) then
@ -154,9 +124,10 @@ begin
inherited;
//Finalmente activamos el filtro si tenemos algo
if cxGridView.DataController.Filter.IsEmpty
then cxGridView.DataController.Filter.Active := False
else cxGridView.DataController.Filter.Active := True;
if cxGridView.DataController.Filter.IsEmpty then
cxGridView.DataController.Filter.Active := False
else
cxGridView.DataController.Filter.Active := True;
cxGrid.ActiveLevel.GridView := cxGridView;
end;

62
Source/Modulos/Articulos/Views/uViewDetallesArticulos.dfm
View File

@ -28,22 +28,6 @@ inherited frViewDetallesArticulos: TfrViewDetallesArticulos
Left = 345
ExplicitLeft = 345
end
inherited ToolButton12: TToolButton
Left = 428
ExplicitLeft = 428
end
inherited ToolButton9: TToolButton
Left = 436
ExplicitLeft = 436
end
inherited ToolButton10: TToolButton
Left = 581
ExplicitLeft = 581
end
inherited ToolButton11: TToolButton
Left = 706
ExplicitLeft = 706
end
end
inherited cxGrid: TcxGrid
inherited cxGridView: TcxGridDBTableView
@ -70,32 +54,6 @@ inherited frViewDetallesArticulos: TfrViewDetallesArticulos
BestFitMaxWidth = 50
Width = 50
end
object cxGridViewREFERENCIA_PROVEEDOR: TcxGridDBColumn [6]
Caption = 'Ref. proveedor'
DataBinding.FieldName = 'REFERENCIA_PROVEEDOR'
PropertiesClassName = 'TcxButtonEditProperties'
Properties.Buttons = <
item
Default = True
Kind = bkEllipsis
end>
Properties.OnButtonClick = cxGridViewREFERENCIA_PROVEEDORPropertiesButtonClick
BestFitMaxWidth = 50
Width = 50
end
object cxGridViewREFERENCIA_FABRICANTE: TcxGridDBColumn [7]
Caption = 'Ref. fabricante'
DataBinding.FieldName = 'REFERENCIA_FABRICANTE'
PropertiesClassName = 'TcxButtonEditProperties'
Properties.Buttons = <
item
Default = True
Kind = bkEllipsis
end>
Properties.OnButtonClick = cxGridViewREFERENCIA_FABRICANTEPropertiesButtonClick
BestFitMaxWidth = 50
Width = 50
end
inherited cxGridViewDESCRIPCION: TcxGridDBColumn
Width = 298
end
@ -103,30 +61,10 @@ inherited frViewDetallesArticulos: TfrViewDetallesArticulos
BestFitMaxWidth = 50
Width = 91
end
object cxGridViewUNIDAD_MEDIDA: TcxGridDBColumn [10]
Caption = 'Unid. medida'
PropertiesClassName = 'TcxComboBoxProperties'
Properties.ImmediatePost = True
Properties.ImmediateUpdateText = True
Properties.PostPopupValueOnTab = True
BestFitMaxWidth = 50
Width = 60
end
inherited cxGridViewIMPORTEUNIDAD: TcxGridDBColumn
BestFitMaxWidth = 50
Width = 80
end
inherited cxGridViewDESCUENTO: TcxGridDBColumn
BestFitMaxWidth = 50
HeaderAlignmentHorz = taRightJustify
Width = 25
end
inherited cxGridViewIMPORTENETO: TcxGridDBColumn
BestFitMaxWidth = 50
end
inherited cxGridViewIMPORTEPORTE: TcxGridDBColumn
BestFitMaxWidth = 50
end
inherited cxGridViewIMPORTETOTAL: TcxGridDBColumn
BestFitMaxWidth = 50
Width = 77

96
Source/Modulos/Articulos/Views/uViewDetallesArticulos.pas
View File

@ -4,7 +4,7 @@ interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, uViewDetallesDTO, cxStyles, cxCustomData, cxGraphics, cxFilter,
Dialogs, uViewDetallesBase, cxStyles, cxCustomData, cxGraphics, cxFilter,
cxData, cxDataStorage, cxEdit, DB, cxDBData, cxImageComboBox, cxRichEdit,
cxMaskEdit, cxCurrencyEdit, cxCheckBox, ImgList, PngImageList, uDADataTable,
StdActns, ExtActns, ActnList, TB2Item, TBX, TB2Dock, TB2Toolbar, cxGridLevel,
@ -13,22 +13,19 @@ uses
JvCombobox, JvColorCombo, ToolWin, uArticulosController,
cxTextEdit, uDAInterfaces, cxDropDownEdit, cxButtonEdit,
Menus, cxGridCustomPopupMenu,
cxGridPopupMenu, cxEditRepositoryItems;
cxGridPopupMenu, cxEditRepositoryItems, uViewDetallesDTO;
type
IViewDetallesArticulos = interface(IViewDetallesDTO)
IViewDetallesArticulos = interface(IViewDetallesBase)
['{D2F72E72-9CEA-4E43-AA18-625F7561E627}']
end;
TfrViewDetallesArticulos = class(TfrViewDetallesDTO, IViewDetallesArticulos)
TfrViewDetallesArticulos = class(TfrViewDetallesBase, IViewDetallesArticulos)
cxGridViewID_ARTICULO: TcxGridDBColumn;
cxGridViewREFERENCIA: TcxGridDBColumn;
cxGridViewREFERENCIA_PROVEEDOR: TcxGridDBColumn;
actAnadirArticulos: TAction;
cxGridViewUNIDAD_MEDIDA: TcxGridDBColumn;
actBuscarArticulo: TAction;
TBXSeparatorItem8: TTBXSeparatorItem;
cxGridViewREFERENCIA_FABRICANTE: TcxGridDBColumn;
cxEditRepository1: TcxEditRepository;
cxEditRepositoryComboBox_IMPORTEUNIDAD: TcxEditRepositoryComboBoxItem;
cxEditRepositoryCurrencyItem_IMPORTEUNIDAD: TcxEditRepositoryCurrencyItem;
@ -47,19 +44,16 @@ type
Sender: TObject; AButtonIndex: Integer);
procedure cxGridViewREFERENCIA_FABRICANTEPropertiesButtonClick(
Sender: TObject; AButtonIndex: Integer);
private
procedure RecuperarListaUnidadesMedida;
protected
procedure AnadirArticulosInterno; virtual;
procedure RellenarArticulosInterno; virtual;
function EsTipoEditable(AItem: TcxCustomGridTableItem): Boolean; override;
end;
implementation
{$R *.dfm}
uses
uCalculosUtils, uViewDetallesBase, uControllerDetallesBase, uControllerDetallesArticulos, uUnidadesMedidaController;
uCalculosUtils, uControllerDetallesBase, uControllerDetallesArticulos, uUnidadesMedidaController;
procedure TfrViewDetallesArticulos.actAnadirArticulosExecute(Sender: TObject);
begin
@ -84,42 +78,6 @@ end;
procedure TfrViewDetallesArticulos.CustomViewShow(Sender: TObject);
begin
inherited;
with DADataSource.DataTable do
begin
cxGridView.BeginUpdate;
try
if Assigned(FindField('UNIDAD_MEDIDA')) then
begin
cxGridViewUNIDAD_MEDIDA.DataBinding.FieldName := 'UNIDAD_MEDIDA';
cxGridViewUNIDAD_MEDIDA.Visible := True;
cxGridViewUNIDAD_MEDIDA.VisibleForCustomization := True;
RecuperarListaUnidadesMedida;
end
else begin
cxGridViewUNIDAD_MEDIDA.DataBinding.FieldName := '';
cxGridViewUNIDAD_MEDIDA.Visible := False;
cxGridViewUNIDAD_MEDIDA.VisibleForCustomization := False;
end;
if Assigned(FindField('REFERENCIA_FABRICANTE')) then
begin
cxGridViewREFERENCIA_FABRICANTE.DataBinding.FieldName := 'REFERENCIA_FABRICANTE';
cxGridViewREFERENCIA_FABRICANTE.Visible := True;
cxGridViewREFERENCIA_FABRICANTE.VisibleForCustomization := True;
end
else begin
cxGridViewREFERENCIA_FABRICANTE.DataBinding.FieldName := '';
cxGridViewREFERENCIA_FABRICANTE.Visible := False;
cxGridViewREFERENCIA_FABRICANTE.VisibleForCustomization := False;
end;
finally
cxGridView.EndUpdate;
end;
end;
SeleccionarFilaActual;
end;
@ -144,26 +102,6 @@ begin
actBuscarArticulo.Execute;
end;
function TfrViewDetallesArticulos.EsTipoEditable(
AItem: TcxCustomGridTableItem): Boolean;
var
IndiceCol : Integer;
begin
Result := True;
if (AItem.Index in [cxGridViewREFERENCIA.Index, cxGridViewREFERENCIA_PROVEEDOR.Index]) then
begin
IndiceCol := cxGridView.GetColumnByFieldName(CAMPO_TIPO).Index;
if ((AItem.GridView.Items[IndiceCol].EditValue = TIPO_DETALLE_SALTO) or
(AItem.GridView.Items[IndiceCol].EditValue = TIPO_DETALLE_SUBTOTAL) or
(AItem.GridView.Items[IndiceCol].EditValue = TIPO_DETALLE_DESCUENTO) or
(AItem.GridView.Items[IndiceCol].EditValue = TIPO_DETALLE_TITULO)) then
Result := False;
end
else
Result := inherited EsTipoEditable(AItem);
end;
procedure TfrViewDetallesArticulos.OnValidateReferenciaProveedor(Sender: TObject; var DisplayValue: Variant; var ErrorText: TCaption; var Error: Boolean);
var
lsReferencia : String;
@ -177,30 +115,6 @@ begin
Exit;
end;
procedure TfrViewDetallesArticulos.RecuperarListaUnidadesMedida;
var
AUnidController : IUnidadesMedidaController;
begin
inherited;
with TcxComboBoxProperties(cxGridViewUNIDAD_MEDIDA.Properties).Items do
begin
if (Count = 0) then
begin
ShowHourglassCursor;
BeginUpdate;
AUnidController := TUnidadesMedidaController.Create;
try
Clear;
AddStrings(AUnidController.DarListaUnidadesMedida);
finally
EndUpdate;
AUnidController := NIL;
HideHourglassCursor;
end;
end;
end;
end;
procedure TfrViewDetallesArticulos.RellenarArticulosInterno;
begin
(Controller as IControllerDetallesArticulos).AnadirArticulos(Detalles, False);

99
Source/Modulos/Articulos/Views/uViewDetallesArticulosParaVenta.dfm
View File

@ -1,99 +0,0 @@
inherited frViewDetallesArticulosParaVenta: TfrViewDetallesArticulosParaVenta
inherited ToolBar1: TToolBar
Height = 95
ExplicitHeight = 95
inherited FontName: TJvFontComboBox [4]
Left = 56
Top = 22
ExplicitLeft = 56
ExplicitTop = 22
end
inherited ToolButton14: TToolButton [5]
Left = 201
Wrap = False
ExplicitLeft = 201
end
inherited FontSize: TEdit
Left = 266
Top = 22
ExplicitLeft = 266
ExplicitTop = 22
end
inherited UpDown1: TUpDown
Left = 308
Top = 22
ExplicitLeft = 308
ExplicitTop = 22
end
inherited ToolButton13: TToolButton
Left = 325
Top = 22
ExplicitLeft = 325
ExplicitTop = 22
end
inherited ToolButton11: TToolButton [9]
Left = 333
Top = 22
ExplicitLeft = 333
ExplicitTop = 22
end
inherited ToolButton12: TToolButton [10]
Left = 0
Top = 22
Wrap = True
ExplicitLeft = 0
ExplicitTop = 22
ExplicitHeight = 27
end
inherited ToolButton9: TToolButton [11]
Left = 0
Top = 49
ExplicitLeft = 0
ExplicitTop = 49
end
inherited ToolButton10: TToolButton [12]
Left = 145
Top = 49
ExplicitLeft = 145
ExplicitTop = 49
end
inherited ToolButton6: TToolButton [13]
Left = 270
Top = 49
ExplicitLeft = 270
ExplicitTop = 49
end
inherited ToolButton7: TToolButton [14]
Left = 336
Top = 49
Wrap = True
ExplicitLeft = 336
ExplicitTop = 49
end
inherited ToolButton8: TToolButton [15]
Left = 0
Top = 71
ExplicitLeft = 0
ExplicitTop = 71
end
end
inherited cxGrid: TcxGrid
Top = 121
Height = 183
ExplicitHeight = 210
inherited cxGridView: TcxGridDBTableView
inherited cxGridViewREFERENCIA_PROVEEDOR: TcxGridDBColumn
Visible = False
VisibleForCustomization = False
end
inherited cxGridViewREFERENCIA_FABRICANTE: TcxGridDBColumn
Visible = False
VisibleForCustomization = False
end
end
end
inherited TBXDock1: TTBXDock
Top = 95
ExplicitTop = 68
end
end

31
Source/Modulos/Articulos/Views/uViewDetallesArticulosParaVenta.pas
View File

@ -1,31 +0,0 @@
unit uViewDetallesArticulosParaVenta;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, uViewDetallesArticulos, cxStyles,
cxCustomData, cxGraphics, cxFilter,
cxData, cxDataStorage, cxEdit, DB, cxDBData, cxCheckBox, cxImageComboBox,
cxButtonEdit, cxRichEdit, cxMaskEdit, cxDropDownEdit, cxCurrencyEdit,
cxEditRepositoryItems, Menus, cxGridCustomPopupMenu, cxGridPopupMenu, ImgList,
PngImageList, uDAInterfaces, uDADataTable, StdActns, ExtActns, ActnList,
TB2Item, TBX, TB2Dock, TB2Toolbar, cxGridLevel, cxGridCustomTableView,
cxGridTableView, cxGridDBTableView, cxClasses, cxControls, cxGridCustomView,
cxGrid, ComCtrls, StdCtrls, JvExStdCtrls, JvCombobox, JvColorCombo, ToolWin;
type
TfrViewDetallesArticulosParaVenta = class(TfrViewDetallesArticulos)
private
{ Private declarations }
public
{ Public declarations }
end;
implementation
{$R *.dfm}
uses uControllerDetallesArticulos;
end.

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

@ -55,6 +55,9 @@ contains
uEtiquetasContactosReportController in 'uEtiquetasContactosReportController.pas',
uIEditorEtiquetasContactosPreview in 'View\uIEditorEtiquetasContactosPreview.pas',
uDatosBancariosContactoController in 'uDatosBancariosContactoController.pas',
uPersonalContactoController in 'uPersonalContactoController.pas';
uPersonalContactoController in 'uPersonalContactoController.pas',
uIEditorDireccionContacto in 'View\uIEditorDireccionContacto.pas',
uIEditorDatoBancarioContacto in 'View\uIEditorDatoBancarioContacto.pas',
uIEditorPersonalContacto in 'View\uIEditorPersonalContacto.pas';
end.

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

@ -57,12 +57,6 @@
@ -77,20 +71,6 @@
<DelphiCompile Include="Contactos_controller.dpk">
<MainSource>MainSource</MainSource>
</DelphiCompile>
<DCCReference Include="..\ApplicationBase.dcp" />
<DCCReference Include="..\Base.dcp" />
<DCCReference Include="..\ccpackD11.dcp" />
<DCCReference Include="..\cfpack_d11.dcp" />
<DCCReference Include="..\Contactos_data.dcp" />
<DCCReference Include="..\Contactos_model.dcp" />
<DCCReference Include="..\designide.dcp" />
<DCCReference Include="..\GUIBase.dcp" />
<DCCReference Include="..\GUISDK_D11R.dcp" />
<DCCReference Include="..\rtl.dcp" />
<DCCReference Include="..\vcl.dcp" />
<DCCReference Include="..\vclactnband.dcp" />
<DCCReference Include="..\vclx.dcp" />
<DCCReference Include="..\xmlrtl.dcp" />
<DCCReference Include="uContactosController.pas" />
<DCCReference Include="uDatosBancariosContactoController.pas" />
<DCCReference Include="uDireccionesContactoController.pas" />
@ -98,14 +78,31 @@
<DCCReference Include="uFichasPacienteReportController.pas" />
<DCCReference Include="uPacientesController.pas" />
<DCCReference Include="uPersonalContactoController.pas" />
<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\designide.dcp" />
<DCCReference Include="View\GUIBase.dcp" />
<DCCReference Include="View\GUISDK_D11R.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\uIEditorElegirContactos.pas" />
<DCCReference Include="View\uIEditorElegirPacientes.pas" />
<DCCReference Include="View\uIEditorEtiquetasContactosPreview.pas" />
<DCCReference Include="View\uIEditorFichasPacientePreview.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\vclx.dcp" />
<DCCReference Include="View\xmlrtl.dcp" />
</ItemGroup>
</Project>
<!-- EurekaLog First Line

BIN
Source/Modulos/Contactos/Controller/Contactos_controller.res
View File

Binary file not shown.

28
Source/Modulos/Contactos/Controller/View/uIEditorDatoBancarioContacto.pas Normal file
View File

@ -0,0 +1,28 @@
unit uIEditorDatoBancarioContacto;
interface
uses
uBizContactosDatosBancarios, uDatosBancariosContactoController;
type
IEditorDatoBancarioContacto = interface
['{BDFD97C4-7054-40E5-A7DA-1A3AD1E13673}']
function GetController : IDatosBancariosContactoController;
procedure SetController (const Value : IDatosBancariosContactoController);
property Controller : IDatosBancariosContactoController read GetController
write SetController;
function GetDatoBancario: IBizContactosDatosBancarios;
procedure SetDatoBancario(const Value: IBizContactosDatosBancarios);
property DatoBancario: IBizContactosDatosBancarios read GetDatoBancario write SetDatoBancario;
function ShowModal : Integer;
procedure Release;
end;
implementation
end.

28
Source/Modulos/Contactos/Controller/View/uIEditorDireccionContacto.pas Normal file
View File

@ -0,0 +1,28 @@
unit uIEditorDireccionContacto;
interface
uses
uBizDireccionesContacto, uDireccionesContactoController;
type
IEditorEditorDireccion = interface
['{B684971A-1673-4315-BDF5-EFF511B6F04E}']
function GetController : IDireccionesContactoController;
procedure SetController (const Value : IDireccionesContactoController);
property Controller : IDireccionesContactoController read GetController
write SetController;
function GetDireccion: IBizDireccionesContacto;
procedure SetDireccion(const Value: IBizDireccionesContacto);
property Direccion: IBizDireccionesContacto read GetDireccion write SetDireccion;
function ShowModal : Integer;
procedure Release;
end;
implementation
end.

28
Source/Modulos/Contactos/Controller/View/uIEditorPersonalContacto.pas Normal file
View File

@ -0,0 +1,28 @@
unit uIEditorPersonalContacto;
interface
uses
uBizContactosPersonal, uPersonalContactoController;
type
IEditorPersonalContacto = interface
['{2221A124-2ECF-426A-A462-24CC87AC26EC}']
function GetController : IPersonalContactoController;
procedure SetController (const Value : IPersonalContactoController);
property Controller : IPersonalContactoController read GetController
write SetController;
function GetPersonal: IBizContactoPersonal;
procedure SetPersonal(const Value: IBizContactoPersonal);
property Personal: IBizContactoPersonal read GetPersonal write SetPersonal;
function ShowModal : Integer;
procedure Release;
end;
implementation
end.

30
Source/Modulos/Contactos/Controller/uContactosController.pas
View File

@ -26,9 +26,6 @@ type
function Localizar(AContactos: IBizContacto; const ID : Integer): Boolean;
function ElegirContacto(AContactos : IBizContacto;
AMensaje: String; AMultiSelect: Boolean): IBizContacto;
function ElegirPersonaContacto(APersonal: IBizContactoPersonal;
AMensaje: String): IBizContactoPersonal;
function ExtraerSeleccionados(AContactos: IBizContacto) : IBizContacto;
function DarListaPersonalConMovil(const IDContacto : Integer): TStringList;
end;
@ -61,8 +58,6 @@ type
procedure VerTodos(AContactos: IBizContacto); virtual; abstract;
function ElegirContacto(AContactos : IBizContacto;
AMensaje: String; AMultiSelect: Boolean): IBizContacto; virtual; abstract;
function ElegirPersonaContacto(APersonal: IBizContactoPersonal;
AMensaje: String): IBizContactoPersonal;
function DarListaPersonalConMovil(const IDContacto : Integer): TStringList;
end;
@ -70,7 +65,7 @@ implementation
uses
Dialogs, uEditorRegistryUtils, cxControls, DB, uDAInterfaces, uDataTableUtils,
schContactosClient_Intf, uFactuGES_App, uIEditorElegirPersonaContacto;
schContactosClient_Intf, uFactuGES_App;
{ TContactosController }
@ -158,29 +153,6 @@ begin
inherited;
end;
function TContactosController.ElegirPersonaContacto(
APersonal: IBizContactoPersonal; AMensaje: String): IBizContactoPersonal;
var
AEditor : IEditorElegirPersonaContacto;
begin
Result := NIL;
CreateEditor('EditorElegirPersonaContacto', IEditorElegirPersonaContacto, AEditor);
if Assigned(AEditor) then
begin
try
AEditor.Personas := APersonal;
AEditor.Mensaje := AMensaje;
if IsPositiveResult(AEditor.ShowModal) then
Result := AEditor.PersonaSeleccionada;
finally
AEditor.Release;
AEditor := NIL;
Application.ProcessMessages;
end;
end;
end;
function TContactosController.Eliminar(AContacto: IBizContacto): Boolean;
begin
Result := False;

BIN
Source/Modulos/Contactos/Views/Contactos_view.res
View File

Binary file not shown.

50
Source/Modulos/Medicaciones/Controller/Medicaciones_controller.dproj
View File

@ -55,31 +55,31 @@
<DelphiCompile Include="Medicaciones_controller.dpk">
<MainSource>MainSource</MainSource>
</DelphiCompile>
<DCCReference Include="..\Views\adortl.dcp" />
<DCCReference Include="..\Views\Articulos_controller.dcp" />
<DCCReference Include="..\Views\Articulos_data.dcp" />
<DCCReference Include="..\Views\Articulos_model.dcp" />
<DCCReference Include="..\Views\Contactos_controller.dcp" />
<DCCReference Include="..\Views\Contactos_model.dcp" />
<DCCReference Include="..\Views\cxLibraryD11.dcp" />
<DCCReference Include="..\Views\DataAbstract_Core_D11.dcp" />
<DCCReference Include="..\Views\dbrtl.dcp" />
<DCCReference Include="..\Views\designide.dcp" />
<DCCReference Include="..\Views\dsnap.dcp" />
<DCCReference Include="..\Views\dxCoreD11.dcp" />
<DCCReference Include="..\Views\dxGDIPlusD11.dcp" />
<DCCReference Include="..\Views\dxThemeD11.dcp" />
<DCCReference Include="..\Views\GUIBase.dcp" />
<DCCReference Include="..\Views\GUISDK_D11R.dcp" />
<DCCReference Include="..\Views\Medicaciones_data.dcp" />
<DCCReference Include="..\Views\Medicaciones_model.dcp" />
<DCCReference Include="..\Views\RemObjects_Core_D11.dcp" />
<DCCReference Include="..\Views\rtl.dcp" />
<DCCReference Include="..\Views\vcl.dcp" />
<DCCReference Include="..\Views\vclactnband.dcp" />
<DCCReference Include="..\Views\vcldb.dcp" />
<DCCReference Include="..\Views\vclx.dcp" />
<DCCReference Include="..\Views\xmlrtl.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\adortl.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\Articulos_controller.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\Articulos_data.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\Articulos_model.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\Contactos_controller.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\Contactos_model.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\cxLibraryD11.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\DataAbstract_Core_D11.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\dbrtl.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\designide.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\dsnap.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\dxCoreD11.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\dxGDIPlusD11.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\dxThemeD11.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\GUIBase.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\GUISDK_D11R.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\Medicaciones_data.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\Medicaciones_model.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\RemObjects_Core_D11.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\rtl.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\vcl.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\vclactnband.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\vcldb.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\vclx.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\xmlrtl.dcp" />
<DCCReference Include="uArticulosMedicacionController.pas" />
<DCCReference Include="uDetallesMedicacionController.pas" />
<DCCReference Include="uMedicacionesController.pas" />

67
Source/Modulos/Medicaciones/Controller/uDetallesMedicacionController.pas
View File

@ -4,7 +4,11 @@ interface
uses
uDADataTable, uBizDetallesMedicacion, uIDataModuleMedicacion, uControllerDetallesArticulos,
uBizArticulos, uBizContactos;
uBizArticulos, uBizContactos, Classes;
const
TIPO_DETALLE_ENBLISTER = 'En blister';
TIPO_DETALLE_NOBLISTER = 'Fuera del blister';
type
IDetallesMedicacionController = interface(IControllerDetallesArticulos)
@ -21,6 +25,9 @@ type
//Si sobreescribimos este método podremos tener en cuenta otras columnas para el calculo del importe total de un concepto
function CalcularImporteTotalConcepto(DataTable: TDADataTable): Double; override;
procedure ValidarCampos(DataTable: TDADataTable); override;
function CalcularTotales(Modificar: boolean; DataTable: TDADataTable): Double; override;
procedure Add(ADetalles: IDAStronglyTypedDataTable; AArticulos: IBizArticulo; const ACantidad: Float = 1); overload;
function DarListaTiposDetalle: TStringList; overload;
public
procedure AnadirArticulos(ADetalles: IDAStronglyTypedDataTable; const ANuevaFila :Boolean = True; const ACantidad: Integer = 1); overload;
procedure ActualizarDetalles(ADetalles: IDAStronglyTypedDataTable); overload;
@ -31,7 +38,7 @@ type
implementation
uses
Dialogs, uDialogUtils, Variants, uControllerDetallesBase,
Dialogs, uDialogUtils, Variants, uControllerDetallesBase, cxControls,
uCalculosUtils, uDataModuleMedicaciones, uArticulosMedicacionController;
{ TDetallesMedicacionController }
@ -45,13 +52,46 @@ begin
try
AArticulos := (FArticulosController.BuscarTodos as IBizArticulo);
ActualizarDetalles(ADetalles, AArticulos);
// ShowInfoMessage('Se ha actualizado el descuento para el cliente seleccionado'); Esta desactivado el descuento general para los albaranes de cliente
finally
AArticulos := Nil;
end;
end;
end;
procedure TDetallesMedicacionController.Add(
ADetalles: IDAStronglyTypedDataTable; AArticulos: IBizArticulo;
const ACantidad: Float);
begin
// inherited; <- no utilizar la herencia
if Assigned(ADetalles) and Assigned(AArticulos) then
begin
try
ShowHourglassCursor;
BeginUpdate(ADetalles);
if not ADetalles.DataTable.Active then
ADetalles.DataTable.Active := True;
if not AArticulos.DataTable.Active then
AArticulos.DataTable.Active := True;
with AArticulos.DataTable do
begin
First;
while not EOF do
begin
Self.Add(ADetalles, TIPO_DETALLE_ENBLISTER);
RellenarDetalle(ADetalles, AArticulos, ACantidad);
Next;
end;
end;
finally
EndUpdate(ADetalles);
HideHourglassCursor;
end;
end;
end;
procedure TDetallesMedicacionController.AnadirArticulos(ADetalles: IDAStronglyTypedDataTable; const ANuevaFila :Boolean; const ACantidad: Integer);
var
AArticulos: IBizArticulo;
@ -102,23 +142,38 @@ begin
Result := CalcularLineaConcepto(DataTable);
end;
function TDetallesMedicacionController.CalcularTotales(Modificar: boolean;
DataTable: TDADataTable): Double;
begin
Result := 0;
end;
constructor TDetallesMedicacionController.Create;
begin
inherited;
FDataModule := TDataModuleMedicacion.Create(Nil);
end;
function TDetallesMedicacionController.DarListaTiposDetalle: TStringList;
begin
// inherited; <- No utilizar la herencia
Result := TStringList.Create;
Result.Values[TIPO_DETALLE_ENBLISTER] := TIPO_DETALLE_ENBLISTER;
Result.Values[TIPO_DETALLE_NOBLISTER] := TIPO_DETALLE_NOBLISTER;
end;
destructor TDetallesMedicacionController.Destroy;
begin
FDataModule := Nil;
inherited;
end;
procedure TDetallesMedicacionController.ValidarCampos(DataTable: TDADataTable);
begin
inherited;
ValidarCamposLineaConcepto(DataTable);
// No utilizar herencia para validar los campos.
//inherited;
//ValidarCamposLineaConcepto(DataTable);
end;
end.

22
Source/Modulos/Medicaciones/Data/Medicaciones_data.dproj
View File

@ -49,17 +49,17 @@
<DelphiCompile Include="Medicaciones_data.dpk">
<MainSource>MainSource</MainSource>
</DelphiCompile>
<DCCReference Include="..\adortl.dcp" />
<DCCReference Include="..\ApplicationBase.dcp" />
<DCCReference Include="..\Base.dcp" />
<DCCReference Include="..\cxLibraryD11.dcp" />
<DCCReference Include="..\dbrtl.dcp" />
<DCCReference Include="..\dsnap.dcp" />
<DCCReference Include="..\dxThemeD11.dcp" />
<DCCReference Include="..\Medicaciones_model.dcp" />
<DCCReference Include="..\rtl.dcp" />
<DCCReference Include="..\vcl.dcp" />
<DCCReference Include="..\vcldb.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\adortl.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\ApplicationBase.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\Base.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\cxLibraryD11.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\dbrtl.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\dsnap.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\dxThemeD11.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\Medicaciones_model.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\rtl.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\vcl.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\vcldb.dcp" />
<DCCReference Include="uDataModuleMedicaciones.pas">
<Form>DataModuleMedicacion</Form>
</DCCReference>

33
Source/Modulos/Medicaciones/Data/uDataModuleMedicaciones.dfm
View File

@ -71,6 +71,13 @@ inherited DataModuleMedicacion: TDataModuleMedicacion
Size = 1
DisplayLabel = 'Tipo'
DictionaryEntry = 'Medicacion_TIPO'
end
item
Name = 'NUMERO_SS'
DataType = datString
Size = 255
DisplayLabel = 'N'#250'mero SS'
DictionaryEntry = 'Medicacion_NUMERO_SS'
end>
Params = <>
StreamingOptions = [soDisableEventsWhileStreaming]
@ -91,60 +98,84 @@ inherited DataModuleMedicacion: TDataModuleMedicacion
Fields = <
item
Name = 'ID'
DataType = datInteger
DataType = datAutoInc
GeneratorName = 'GEN_MEDICACION_DETALLES_ID'
Required = True
DictionaryEntry = 'Medicacion_Detalles_ID'
InPrimaryKey = True
end
item
Name = 'ID_MEDICACION'
DataType = datInteger
Required = True
DisplayLabel = 'Medicacion_Detalles_ID_MEDICACION'
DictionaryEntry = 'Medicacion_Detalles_ID_MEDICACION'
end
item
Name = 'POSICION'
DataType = datInteger
DisplayLabel = 'Medicacion_Detalles_POSICION'
DictionaryEntry = 'Medicacion_Detalles_POSICION'
end
item
Name = 'TIPO_DETALLE'
DataType = datString
Size = 25
DisplayLabel = 'Medicacion_Detalles_TIPO_DETALLE'
DictionaryEntry = 'Medicacion_Detalles_TIPO_DETALLE'
end
item
Name = 'ID_ARTICULO'
DataType = datInteger
DisplayLabel = 'Medicacion_Detalles_ID_ARTICULO'
DictionaryEntry = 'Medicacion_Detalles_ID_ARTICULO'
end
item
Name = 'REFERENCIA'
DataType = datString
Size = 255
DisplayLabel = 'Referencia'
DictionaryEntry = 'Medicacion_Detalles_REFERENCIA'
end
item
Name = 'CONCEPTO'
DataType = datString
Size = 2000
DisplayLabel = 'Medicacion_Detalles_CONCEPTO'
DictionaryEntry = 'Medicacion_Detalles_CONCEPTO'
end
item
Name = 'CANTIDAD'
DataType = datCurrency
DisplayLabel = 'Medicacion_Detalles_CANTIDAD'
DictionaryEntry = 'Medicacion_Detalles_CANTIDAD'
end
item
Name = 'POSOLOGIA'
DataType = datString
Size = 255
DisplayLabel = 'Posolog'#237'a'
DictionaryEntry = 'Medicacion_Detalles_POSOLOGIA'
end
item
Name = 'FORMA_COLOR'
DataType = datString
Size = 255
DisplayLabel = 'Medicacion_Detalles_FORMA_COLOR'
DictionaryEntry = 'Medicacion_Detalles_FORMA_COLOR'
end
item
Name = 'LOTE'
DataType = datString
Size = 255
DisplayLabel = 'Lote'
DictionaryEntry = 'Medicacion_Detalles_LOTE'
end
item
Name = 'VISIBLE'
DataType = datSmallInt
DisplayLabel = 'Medicacion_Detalles_VISIBLE'
DictionaryEntry = 'Medicacion_Detalles_VISIBLE'
end>
Params = <>
MasterMappingMode = mmWhere

26
Source/Modulos/Medicaciones/Medicaciones_Group.groupproj
View File

@ -9,6 +9,8 @@
<Projects Include="..\..\Cliente\Etiquetas.dproj" />
<Projects Include="..\..\GUIBase\GUIBase.dproj" />
<Projects Include="..\..\Servidor\Etiquetas_Server.dproj" />
<Projects Include="..\Articulos\Controller\Articulos_controller.dproj" />
<Projects Include="..\Articulos\Views\Articulos_view.dproj" />
<Projects Include="Controller\Medicaciones_controller.dproj" />
<Projects Include="Data\Medicaciones_data.dproj" />
<Projects Include="Model\Medicaciones_model.dproj" />
@ -48,6 +50,24 @@
<Target Name="ApplicationBase:Make">
<MSBuild Projects="..\..\ApplicationBase\ApplicationBase.dproj" Targets="Make" />
</Target>
<Target Name="Articulos_controller">
<MSBuild Projects="..\Articulos\Controller\Articulos_controller.dproj" Targets="" />
</Target>
<Target Name="Articulos_controller:Clean">
<MSBuild Projects="..\Articulos\Controller\Articulos_controller.dproj" Targets="Clean" />
</Target>
<Target Name="Articulos_controller:Make">
<MSBuild Projects="..\Articulos\Controller\Articulos_controller.dproj" Targets="Make" />
</Target>
<Target Name="Articulos_view">
<MSBuild Projects="..\Articulos\Views\Articulos_view.dproj" Targets="" />
</Target>
<Target Name="Articulos_view:Clean">
<MSBuild Projects="..\Articulos\Views\Articulos_view.dproj" Targets="Clean" />
</Target>
<Target Name="Articulos_view:Make">
<MSBuild Projects="..\Articulos\Views\Articulos_view.dproj" Targets="Make" />
</Target>
<Target Name="Medicaciones_model">
<MSBuild Projects="Model\Medicaciones_model.dproj" Targets="" />
</Target>
@ -112,13 +132,13 @@
<MSBuild Projects="..\..\Servidor\Etiquetas_Server.dproj" Targets="Make" />
</Target>
<Target Name="Build">
<CallTarget Targets="Base;GUIBase;ApplicationBase;Medicaciones_model;Medicaciones_data;Medicaciones_controller;Medicaciones_view;Medicaciones_plugin;Etiquetas;Etiquetas_Server" />
<CallTarget Targets="Base;GUIBase;ApplicationBase;Articulos_controller;Articulos_view;Medicaciones_model;Medicaciones_data;Medicaciones_controller;Medicaciones_view;Medicaciones_plugin;Etiquetas;Etiquetas_Server" />
</Target>
<Target Name="Clean">
<CallTarget Targets="Base:Clean;GUIBase:Clean;ApplicationBase:Clean;Medicaciones_model:Clean;Medicaciones_data:Clean;Medicaciones_controller:Clean;Medicaciones_view:Clean;Medicaciones_plugin:Clean;Etiquetas:Clean;Etiquetas_Server:Clean" />
<CallTarget Targets="Base:Clean;GUIBase:Clean;ApplicationBase:Clean;Articulos_controller:Clean;Articulos_view:Clean;Medicaciones_model:Clean;Medicaciones_data:Clean;Medicaciones_controller:Clean;Medicaciones_view:Clean;Medicaciones_plugin:Clean;Etiquetas:Clean;Etiquetas_Server:Clean" />
</Target>
<Target Name="Make">
<CallTarget Targets="Base:Make;GUIBase:Make;ApplicationBase:Make;Medicaciones_model:Make;Medicaciones_data:Make;Medicaciones_controller:Make;Medicaciones_view:Make;Medicaciones_plugin:Make;Etiquetas:Make;Etiquetas_Server:Make" />
<CallTarget Targets="Base:Make;GUIBase:Make;ApplicationBase:Make;Articulos_controller:Make;Articulos_view:Make;Medicaciones_model:Make;Medicaciones_data:Make;Medicaciones_controller:Make;Medicaciones_view:Make;Medicaciones_plugin:Make;Etiquetas:Make;Etiquetas_Server:Make" />
</Target>
<Import Condition="Exists('$(MSBuildBinPath)\Borland.Group.Targets')" Project="$(MSBuildBinPath)\Borland.Group.Targets" />
</Project>

6
Source/Modulos/Medicaciones/Model/Medicaciones_model.dpk
View File

@ -38,11 +38,11 @@ requires
Contactos_model;
contains
schMedicacionClient_Intf in 'schMedicacionClient_Intf.pas',
schMedicacionServer_Intf in 'schMedicacionServer_Intf.pas',
uBizDetallesMedicacion in 'uBizDetallesMedicacion.pas',
uBizMedicaciones in 'uBizMedicaciones.pas',
uIDataModuleMedicacionReport in 'Data\uIDataModuleMedicacionReport.pas',
uIDataModuleMedicacion in 'Data\uIDataModuleMedicacion.pas';
uIDataModuleMedicacion in 'Data\uIDataModuleMedicacion.pas',
schMedicacionClient_Intf in 'schMedicacionClient_Intf.pas',
schMedicacionServer_Intf in 'schMedicacionServer_Intf.pas';
end.

22
Source/Modulos/Medicaciones/Model/Medicaciones_model.dproj
View File

@ -38,23 +38,23 @@
<DelphiCompile Include="Medicaciones_model.dpk">
<MainSource>MainSource</MainSource>
</DelphiCompile>
<DCCReference Include="..\Controller\adortl.dcp" />
<DCCReference Include="..\Controller\ApplicationBase.dcp" />
<DCCReference Include="..\Controller\Base.dcp" />
<DCCReference Include="..\Controller\Contactos_model.dcp" />
<DCCReference Include="..\Controller\DataAbstract_Core_D11.dcp" />
<DCCReference Include="..\Controller\dbrtl.dcp" />
<DCCReference Include="..\Controller\dsnap.dcp" />
<DCCReference Include="..\Controller\RemObjects_Core_D11.dcp" />
<DCCReference Include="..\Controller\rtl.dcp" />
<DCCReference Include="..\Controller\vcl.dcp" />
<DCCReference Include="..\Controller\vcldb.dcp" />
<DCCReference Include="adortl.dcp" />
<DCCReference Include="ApplicationBase.dcp" />
<DCCReference Include="Base.dcp" />
<DCCReference Include="Contactos_model.dcp" />
<DCCReference Include="DataAbstract_Core_D11.dcp" />
<DCCReference Include="Data\uIDataModuleMedicacion.pas" />
<DCCReference Include="Data\uIDataModuleMedicacionReport.pas" />
<DCCReference Include="dbrtl.dcp" />
<DCCReference Include="dsnap.dcp" />
<DCCReference Include="RemObjects_Core_D11.dcp" />
<DCCReference Include="rtl.dcp" />
<DCCReference Include="schMedicacionClient_Intf.pas" />
<DCCReference Include="schMedicacionServer_Intf.pas" />
<DCCReference Include="uBizDetallesMedicacion.pas" />
<DCCReference Include="uBizMedicaciones.pas" />
<DCCReference Include="vcl.dcp" />
<DCCReference Include="vcldb.dcp" />
</ItemGroup>
</Project>
<!-- EurekaLog First Line

43
Source/Modulos/Medicaciones/Model/schMedicacionClient_Intf.pas
View File

@ -9,8 +9,8 @@ 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_Medicacion = '{A41E617B-34FF-45CF-95FA-02FB06807AC6}';
RID_Medicacion_Detalles = '{75541923-C610-4F76-BEDA-8BA7956715F0}';
RID_Medicacion = '{4B1F4EFB-36FE-4041-9320-B30DCC239A10}';
RID_Medicacion_Detalles = '{B0395D68-EB84-4016-9379-223B1D095B99}';
{ Data table names }
nme_Medicacion = 'Medicacion';
@ -24,6 +24,7 @@ const
fld_MedicacionFECHA_DESDE = 'FECHA_DESDE';
fld_MedicacionFECHA_HASTA = 'FECHA_HASTA';
fld_MedicacionTIPO = 'TIPO';
fld_MedicacionNUMERO_SS = 'NUMERO_SS';
{ Medicacion field indexes }
idx_MedicacionID = 0;
@ -33,6 +34,7 @@ const
idx_MedicacionFECHA_DESDE = 4;
idx_MedicacionFECHA_HASTA = 5;
idx_MedicacionTIPO = 6;
idx_MedicacionNUMERO_SS = 7;
{ Medicacion_Detalles fields }
fld_Medicacion_DetallesID = 'ID';
@ -65,7 +67,7 @@ const
type
{ IMedicacion }
IMedicacion = interface(IDAStronglyTypedDataTable)
['{A5790FFD-99FA-410D-AD32-283A9878F9C0}']
['{5A028E3F-69B5-4385-ABE4-D748D33AD2CA}']
{ Property getters and setters }
function GetIDValue: Integer;
procedure SetIDValue(const aValue: Integer);
@ -95,6 +97,10 @@ type
procedure SetTIPOValue(const aValue: String);
function GetTIPOIsNull: Boolean;
procedure SetTIPOIsNull(const aValue: Boolean);
function GetNUMERO_SSValue: String;
procedure SetNUMERO_SSValue(const aValue: String);
function GetNUMERO_SSIsNull: Boolean;
procedure SetNUMERO_SSIsNull(const aValue: Boolean);
{ Properties }
@ -112,6 +118,8 @@ type
property FECHA_HASTAIsNull: Boolean read GetFECHA_HASTAIsNull write SetFECHA_HASTAIsNull;
property TIPO: String read GetTIPOValue write SetTIPOValue;
property TIPOIsNull: Boolean read GetTIPOIsNull write SetTIPOIsNull;
property NUMERO_SS: String read GetNUMERO_SSValue write SetNUMERO_SSValue;
property NUMERO_SSIsNull: Boolean read GetNUMERO_SSIsNull write SetNUMERO_SSIsNull;
end;
{ TMedicacionDataTableRules }
@ -147,6 +155,10 @@ type
procedure SetTIPOValue(const aValue: String); virtual;
function GetTIPOIsNull: Boolean; virtual;
procedure SetTIPOIsNull(const aValue: Boolean); virtual;
function GetNUMERO_SSValue: String; virtual;
procedure SetNUMERO_SSValue(const aValue: String); virtual;
function GetNUMERO_SSIsNull: Boolean; virtual;
procedure SetNUMERO_SSIsNull(const aValue: Boolean); virtual;
{ Properties }
property ID: Integer read GetIDValue write SetIDValue;
@ -163,6 +175,8 @@ type
property FECHA_HASTAIsNull: Boolean read GetFECHA_HASTAIsNull write SetFECHA_HASTAIsNull;
property TIPO: String read GetTIPOValue write SetTIPOValue;
property TIPOIsNull: Boolean read GetTIPOIsNull write SetTIPOIsNull;
property NUMERO_SS: String read GetNUMERO_SSValue write SetNUMERO_SSValue;
property NUMERO_SSIsNull: Boolean read GetNUMERO_SSIsNull write SetNUMERO_SSIsNull;
public
constructor Create(aDataTable: TDADataTable); override;
@ -172,7 +186,7 @@ type
{ IMedicacion_Detalles }
IMedicacion_Detalles = interface(IDAStronglyTypedDataTable)
['{449C29DA-CEB8-4445-916A-BB35EF463CCF}']
['{3DE07CD4-94B8-42AD-B1D9-F55B32C5F869}']
{ Property getters and setters }
function GetIDValue: Integer;
procedure SetIDValue(const aValue: Integer);
@ -499,6 +513,27 @@ begin
DataTable.Fields[idx_MedicacionTIPO].AsVariant := Null;
end;
function TMedicacionDataTableRules.GetNUMERO_SSValue: String;
begin
result := DataTable.Fields[idx_MedicacionNUMERO_SS].AsString;
end;
procedure TMedicacionDataTableRules.SetNUMERO_SSValue(const aValue: String);
begin
DataTable.Fields[idx_MedicacionNUMERO_SS].AsString := aValue;
end;
function TMedicacionDataTableRules.GetNUMERO_SSIsNull: boolean;
begin
result := DataTable.Fields[idx_MedicacionNUMERO_SS].IsNull;
end;
procedure TMedicacionDataTableRules.SetNUMERO_SSIsNull(const aValue: Boolean);
begin
if aValue then
DataTable.Fields[idx_MedicacionNUMERO_SS].AsVariant := Null;
end;
{ TMedicacion_DetallesDataTableRules }
constructor TMedicacion_DetallesDataTableRules.Create(aDataTable: TDADataTable);

51
Source/Modulos/Medicaciones/Model/schMedicacionServer_Intf.pas
View File

@ -9,13 +9,13 @@ 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_MedicacionDelta = '{A005475F-47E2-46A7-91C0-9A3F50703B8B}';
RID_Medicacion_DetallesDelta = '{AA562D34-48F5-4B76-807C-3551B87B84CA}';
RID_MedicacionDelta = '{68103871-2979-4B1C-B724-19286600BDE3}';
RID_Medicacion_DetallesDelta = '{8F75D9AF-6256-4340-806E-115595FAD832}';
type
{ IMedicacionDelta }
IMedicacionDelta = interface(IMedicacion)
['{A005475F-47E2-46A7-91C0-9A3F50703B8B}']
['{68103871-2979-4B1C-B724-19286600BDE3}']
{ Property getters and setters }
function GetOldIDValue : Integer;
function GetOldID_PACIENTEValue : Integer;
@ -24,6 +24,7 @@ type
function GetOldFECHA_DESDEValue : DateTime;
function GetOldFECHA_HASTAValue : DateTime;
function GetOldTIPOValue : String;
function GetOldNUMERO_SSValue : String;
{ Properties }
property OldID : Integer read GetOldIDValue;
@ -33,6 +34,7 @@ type
property OldFECHA_DESDE : DateTime read GetOldFECHA_DESDEValue;
property OldFECHA_HASTA : DateTime read GetOldFECHA_HASTAValue;
property OldTIPO : String read GetOldTIPOValue;
property OldNUMERO_SS : String read GetOldNUMERO_SSValue;
end;
{ TMedicacionBusinessProcessorRules }
@ -82,6 +84,12 @@ type
function GetOldTIPOIsNull: Boolean; virtual;
procedure SetTIPOValue(const aValue: String); virtual;
procedure SetTIPOIsNull(const aValue: Boolean); virtual;
function GetNUMERO_SSValue: String; virtual;
function GetNUMERO_SSIsNull: Boolean; virtual;
function GetOldNUMERO_SSValue: String; virtual;
function GetOldNUMERO_SSIsNull: Boolean; virtual;
procedure SetNUMERO_SSValue(const aValue: String); virtual;
procedure SetNUMERO_SSIsNull(const aValue: Boolean); virtual;
{ Properties }
property ID : Integer read GetIDValue write SetIDValue;
@ -112,6 +120,10 @@ type
property TIPOIsNull : Boolean read GetTIPOIsNull write SetTIPOIsNull;
property OldTIPO : String read GetOldTIPOValue;
property OldTIPOIsNull : Boolean read GetOldTIPOIsNull;
property NUMERO_SS : String read GetNUMERO_SSValue write SetNUMERO_SSValue;
property NUMERO_SSIsNull : Boolean read GetNUMERO_SSIsNull write SetNUMERO_SSIsNull;
property OldNUMERO_SS : String read GetOldNUMERO_SSValue;
property OldNUMERO_SSIsNull : Boolean read GetOldNUMERO_SSIsNull;
public
constructor Create(aBusinessProcessor: TDABusinessProcessor); override;
@ -121,7 +133,7 @@ type
{ IMedicacion_DetallesDelta }
IMedicacion_DetallesDelta = interface(IMedicacion_Detalles)
['{AA562D34-48F5-4B76-807C-3551B87B84CA}']
['{8F75D9AF-6256-4340-806E-115595FAD832}']
{ Property getters and setters }
function GetOldIDValue : Integer;
function GetOldID_MEDICACIONValue : Integer;
@ -518,6 +530,37 @@ begin
BusinessProcessor.CurrentChange.NewValueByName[fld_MedicacionTIPO] := Null;
end;
function TMedicacionBusinessProcessorRules.GetNUMERO_SSValue: String;
begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_MedicacionNUMERO_SS];
end;
function TMedicacionBusinessProcessorRules.GetNUMERO_SSIsNull: Boolean;
begin
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_MedicacionNUMERO_SS]);
end;
function TMedicacionBusinessProcessorRules.GetOldNUMERO_SSValue: String;
begin
result := BusinessProcessor.CurrentChange.OldValueByName[fld_MedicacionNUMERO_SS];
end;
function TMedicacionBusinessProcessorRules.GetOldNUMERO_SSIsNull: Boolean;
begin
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_MedicacionNUMERO_SS]);
end;
procedure TMedicacionBusinessProcessorRules.SetNUMERO_SSValue(const aValue: String);
begin
BusinessProcessor.CurrentChange.NewValueByName[fld_MedicacionNUMERO_SS] := aValue;
end;
procedure TMedicacionBusinessProcessorRules.SetNUMERO_SSIsNull(const aValue: Boolean);
begin
if aValue then
BusinessProcessor.CurrentChange.NewValueByName[fld_MedicacionNUMERO_SS] := Null;
end;
{ TMedicacion_DetallesBusinessProcessorRules }
constructor TMedicacion_DetallesBusinessProcessorRules.Create(aBusinessProcessor: TDABusinessProcessor);

6
Source/Modulos/Medicaciones/Model/uBizMedicacionServer.pas
View File

@ -30,7 +30,7 @@ uses
schMedicacionClient_Intf, Etiquetas_Intf, uROServer, SysUtils, JclStrings;
const
REF_MEDICACION = 'REF_MEDICACION';
REF_MEDICACIONES = 'REF_MEDICACIONES';
{ TBizAlbaranClienteServer }
@ -78,7 +78,7 @@ var
AClientID : TGUID;
ACodigoReferencia : String;
begin
ACodigoReferencia := REF_MEDICACION;
ACodigoReferencia := REF_MEDICACIONES;
CreateGUID(AClientID);
@ -94,7 +94,7 @@ var
AClientID : TGUID;
ACodigoReferencia : String;
begin
ACodigoReferencia := REF_MEDICACION;
ACodigoReferencia := REF_MEDICACIONES;
CreateGUID(AClientID);

273
Source/Modulos/Medicaciones/Servidor/srvMedicacion_Impl.dfm
View File

@ -47,6 +47,10 @@ object srvMedicacion: TsrvMedicacion
item
DatasetField = 'TIPO'
TableField = 'TIPO'
end
item
DatasetField = 'NUMERO_SS'
TableField = 'NUMERO_SS'
end>
end>
Name = 'Medicacion'
@ -55,6 +59,7 @@ object srvMedicacion: TsrvMedicacion
Name = 'ID'
DataType = datAutoInc
GeneratorName = 'GEN_MEDICACION_ID'
ServerAutoRefresh = True
DictionaryEntry = 'Medicacion_ID'
InPrimaryKey = True
end
@ -73,6 +78,7 @@ object srvMedicacion: TsrvMedicacion
Name = 'NOMBRE'
DataType = datString
Size = 255
ServerAutoRefresh = True
DictionaryEntry = 'Medicacion_NOMBRE'
end
item
@ -90,6 +96,13 @@ object srvMedicacion: TsrvMedicacion
DataType = datString
Size = 1
DictionaryEntry = 'Medicacion_TIPO'
end
item
Name = 'NUMERO_SS'
DataType = datString
Size = 255
ServerAutoRefresh = True
DictionaryEntry = 'Medicacion_NUMERO_SS'
end>
end
item
@ -153,60 +166,72 @@ object srvMedicacion: TsrvMedicacion
Fields = <
item
Name = 'ID'
DataType = datInteger
Required = True
DataType = datAutoInc
GeneratorName = 'GEN_MEDICACION_DETALLES_ID'
ServerAutoRefresh = True
DictionaryEntry = 'Medicacion_Detalles_ID'
InPrimaryKey = True
end
item
Name = 'ID_MEDICACION'
DataType = datInteger
Required = True
DictionaryEntry = 'Medicacion_Detalles_ID_MEDICACION'
end
item
Name = 'POSICION'
DataType = datInteger
DictionaryEntry = 'Medicacion_Detalles_POSICION'
end
item
Name = 'TIPO_DETALLE'
DataType = datString
Size = 25
DictionaryEntry = 'Medicacion_Detalles_TIPO_DETALLE'
end
item
Name = 'ID_ARTICULO'
DataType = datInteger
DictionaryEntry = 'Medicacion_Detalles_ID_ARTICULO'
end
item
Name = 'REFERENCIA'
DataType = datString
Size = 255
DictionaryEntry = 'Medicacion_Detalles_REFERENCIA'
end
item
Name = 'CONCEPTO'
DataType = datString
Size = 2000
DictionaryEntry = 'Medicacion_Detalles_CONCEPTO'
end
item
Name = 'CANTIDAD'
DataType = datCurrency
DictionaryEntry = 'Medicacion_Detalles_CANTIDAD'
end
item
Name = 'POSOLOGIA'
DataType = datString
Size = 255
DictionaryEntry = 'Medicacion_Detalles_POSOLOGIA'
end
item
Name = 'FORMA_COLOR'
DataType = datString
Size = 255
DictionaryEntry = 'Medicacion_Detalles_FORMA_COLOR'
end
item
Name = 'LOTE'
DataType = datString
Size = 255
DictionaryEntry = 'Medicacion_Detalles_LOTE'
end
item
Name = 'VISIBLE'
DataType = datSmallInt
DictionaryEntry = 'Medicacion_Detalles_VISIBLE'
end>
end>
JoinDataTables = <>
@ -233,34 +258,35 @@ object srvMedicacion: TsrvMedicacion
Params = <
item
Name = 'ID'
DataType = datAutoInc
GeneratorName = 'GEN_MEDICACION_ID'
Value = ''
end
item
Name = 'ID_PACIENTE'
DataType = datInteger
Value = ''
end
item
Name = 'REFERENCIA'
Value = ''
end
item
Name = 'NOMBRE'
DataType = datString
Size = 255
Value = ''
end
item
Name = 'FECHA_DESDE'
DataType = datDateTime
Value = ''
end
item
Name = 'FECHA_HASTA'
DataType = datDateTime
Value = ''
end
item
Name = 'TIPO'
Value = ''
end
item
Name = 'USUARIO'
DataType = datString
Size = 255
Value = ''
end>
Statements = <
@ -269,10 +295,9 @@ object srvMedicacion: TsrvMedicacion
Default = True
TargetTable = 'MEDICACION'
SQL =
'INSERT'#10' INTO MEDICACION'#10' (ID, ID_PACIENTE, REFERENCIA, NOMBR' +
'E, FECHA_DESDE, FECHA_HASTA,'#10' TIPO, USUARIO, FECHA_ALTA)'#10' V' +
'ALUES'#10' (:ID, :ID_PACIENTE, :REFERENCIA, :NOMBRE, :FECHA_DESDE' +
', :FECHA_HASTA,'#10' :TIPO, :USUARIO, CURRENT_TIMESTAMP)'#10
'INSERT'#10' INTO MEDICACION'#10' (ID, ID_PACIENTE, REFERENCIA, FECHA' +
'_DESDE, FECHA_HASTA, TIPO)'#10' VALUES'#10' (:ID, :ID_PACIENTE, :REF' +
'ERENCIA, :FECHA_DESDE, :FECHA_HASTA, :TIPO)'#10
StatementType = stSQL
ColumnMappings = <>
end>
@ -291,12 +316,6 @@ object srvMedicacion: TsrvMedicacion
Size = 255
Value = ''
end
item
Name = 'NOMBRE'
DataType = datString
Size = 255
Value = ''
end
item
Name = 'FECHA_DESDE'
DataType = datDateTime
@ -307,15 +326,8 @@ object srvMedicacion: TsrvMedicacion
DataType = datDateTime
Value = ''
end
item
Name = 'TIPO'
DataType = datString
Size = 1
Value = ''
end
item
Name = 'OLD_ID'
DataType = datAutoInc
Value = ''
end>
Statements = <
@ -325,10 +337,8 @@ object srvMedicacion: TsrvMedicacion
TargetTable = 'MEDICACION'
SQL =
'UPDATE MEDICACION'#10' SET '#10' ID_PACIENTE = :ID_PACIENTE, '#10' RE' +
'FERENCIA = :REFERENCIA, '#10' NOMBRE = :NOMBRE, '#10' FECHA_DESDE ' +
'= :FECHA_DESDE,'#10' FECHA_HASTA = :FECHA_HASTA, '#10' TIPO = :TIP' +
'O,'#10' FECHA_MODIFICACION = CURRENT_TIMESTAMP'#10' WHERE'#10' (ID = ' +
':OLD_ID)'#10
'FERENCIA = :REFERENCIA, '#10' FECHA_DESDE = :FECHA_DESDE,'#10' FEC' +
'HA_HASTA = :FECHA_HASTA'#10' WHERE'#10' (ID = :OLD_ID)'#10
StatementType = stSQL
ColumnMappings = <>
end>
@ -338,7 +348,8 @@ object srvMedicacion: TsrvMedicacion
Params = <
item
Name = 'ID'
DataType = datInteger
DataType = datAutoInc
GeneratorName = 'GEN_MEDICACION_DETALLES_ID'
Value = ''
end
item
@ -531,54 +542,54 @@ object srvMedicacion: TsrvMedicacion
end>
RelationShips = <
item
Name = 'FK_AlbaranesCliente_Detalles'
Name = 'FK_Medicacion_Detalles'
MasterDatasetName = 'Medicacion'
MasterFields = 'ID'
DetailDatasetName = 'Medicacion_Detalles'
DetailFields = 'ID_ALBARAN'
DetailFields = 'ID_MEDICACION'
RelationshipType = rtForeignKey
end>
UpdateRules = <
item
Name = 'Insert AlbaranesCliente'
Name = 'Insert Medicacion'
DoUpdate = False
DoDelete = False
DatasetName = 'AlbaranesCliente'
DatasetName = 'Medicacion'
FailureBehavior = fbRaiseException
end
item
Name = 'Insert AlbaranesCliente_Detalles'
Name = 'Insert Medicacion_Detalles'
DoUpdate = False
DoDelete = False
DatasetName = 'AlbaranesCliente_Detalles'
DatasetName = 'Medicacion_Detalles'
FailureBehavior = fbRaiseException
end
item
Name = 'Update AlbaranesCliente'
Name = 'Update Medicacion'
DoInsert = False
DoDelete = False
DatasetName = 'AlbaranesCliente'
DatasetName = 'Medicacion'
FailureBehavior = fbRaiseException
end
item
Name = 'Update AlbaranesCliente_Detalles'
Name = 'Update Medicacion_Detalles'
DoInsert = False
DoDelete = False
DatasetName = 'AlbaranesCliente_Detalles'
DatasetName = 'Medicacion_Detalles'
FailureBehavior = fbRaiseException
end
item
Name = 'Delete AlbaranesCliente_Detalles'
Name = 'Delete Medicacion_Detalles'
DoUpdate = False
DoInsert = False
DatasetName = 'AlbaranesCliente_Detalles'
DatasetName = 'Medicacion_Detalles'
FailureBehavior = fbRaiseException
end
item
Name = 'Delete AlbaranesCliente'
Name = 'Delete Medicacion'
DoUpdate = False
DoInsert = False
DatasetName = 'AlbaranesCliente'
DatasetName = 'Medicacion'
FailureBehavior = fbRaiseException
end>
Version = 0
@ -587,10 +598,10 @@ object srvMedicacion: TsrvMedicacion
end
object bpMedicacion: TDABusinessProcessor
Schema = schMedicacion
InsertCommandName = 'Insert_AlbaranesCliente'
DeleteCommandName = 'Delete_AlbaranesCliente'
UpdateCommandName = 'Update_AlbaranesCliente'
ReferencedDataset = 'AlbaranesCliente'
InsertCommandName = 'Insert_Medicacion'
DeleteCommandName = 'Delete_Medicacion'
UpdateCommandName = 'Update_Medicacion'
ReferencedDataset = 'Medicacion'
ProcessorOptions = [poAutoGenerateRefreshDataset, poPrepareCommands]
UpdateMode = updWhereKeyOnly
Left = 224
@ -598,11 +609,11 @@ object srvMedicacion: TsrvMedicacion
end
object bpMedicacion_Detalles: TDABusinessProcessor
Schema = schMedicacion
InsertCommandName = 'Insert_AlbaranesCliente_Detalles'
DeleteCommandName = 'Delete_AlbaranesCliente_Detalles'
UpdateCommandName = 'Update_AlbaranesCliente_Detalles'
ReferencedDataset = 'AlbaranesCliente_Detalles'
ProcessorOptions = [poPrepareCommands]
InsertCommandName = 'Insert_Medicacion_Detalles'
DeleteCommandName = 'Delete_Medicacion_Detalles'
UpdateCommandName = 'Update_Medicacion_Detalles'
ReferencedDataset = 'Medicacion_Detalles'
ProcessorOptions = [poAutoGenerateRefreshDataset, poPrepareCommands]
UpdateMode = updWhereKeyOnly
Left = 224
Top = 88
@ -641,74 +652,6 @@ object srvMedicacion: TsrvMedicacion
DisplayLabel = 'ID'
ServerAutoRefresh = True
end
item
Name = 'AlbaranesCliente_Detalles_ID_PEDIDO'
DataType = datInteger
DisplayLabel = 'ID_PEDIDO'
end
item
Name = 'POSICIONCONCEPTO'
DataType = datInteger
DisplayLabel = 'POSICION'
end
item
Name = 'AlbaranesCliente_Detalles_TIPO_DETALLE'
DataType = datString
Size = 25
DisplayLabel = 'TIPO_DETALLE'
end
item
Name = 'AlbaranesCliente_Detalles_REFERENCIA'
DataType = datString
Size = 255
DisplayLabel = 'Referencia'
end
item
Name = 'AlbaranesCliente_Detalles_ID_ARTICULO'
DataType = datInteger
DisplayLabel = 'ID_ARTICULO'
end
item
Name = 'AlbaranesCliente_Detalles_CONCEPTO'
DataType = datString
Size = 2000
DisplayLabel = 'CONCEPTO'
end
item
Name = 'CANTIDAD'
DataType = datFloat
Alignment = taRightJustify
end
item
Name = 'AlbaranesCliente_Detalles_IMPORTE_UNIDAD'
DataType = datCurrency
DisplayLabel = 'Importe unidad'
Alignment = taRightJustify
end
item
Name = 'AlbaranesCliente_Detalles_IMPORTE_TOTAL'
DataType = datCurrency
DisplayLabel = 'Importe total'
Alignment = taRightJustify
end
item
Name = 'AlbaranesCliente_Detalles_DESCUENTO'
DataType = datFloat
DisplayLabel = 'Descuento'
DisplayFormat = ',0.00 %;-,0.00 %'
Alignment = taRightJustify
end
item
Name = 'AlbaranesCliente_Detalles_IMPORTE_PORTE'
DataType = datCurrency
DisplayLabel = 'Importe porte'
Alignment = taRightJustify
end
item
Name = 'AlbaranesCliente_Detalles_VISIBLE'
DataType = datInteger
DisplayLabel = 'VISIBLE'
end
item
Name = 'Medicacion_FECHA_DESDE'
DataType = datDateTime
@ -719,27 +662,6 @@ object srvMedicacion: TsrvMedicacion
DataType = datInteger
DisplayLabel = 'ID_MEDICACION'
end
item
Name = 'AlbaranesCliente_Detalles_Refresh_ID_ALBARAN'
DataType = datInteger
DisplayLabel = 'ID_ALBARAN'
end
item
Name = 'AlbaranesCliente_Detalles_Refresh_DESCUENTO'
DataType = datFloat
DisplayLabel = 'DESCUENTO'
end
item
Name = 'AlbaranesCliente_Detalles_Refresh_IMPORTE_PORTE'
DataType = datFloat
DisplayLabel = 'IMPORTE_PORTE'
end
item
Name = 'AlbaranesCliente_Detalles_Refresh_REFERENCIA_PROVEEDOR'
DataType = datString
Size = 255
DisplayLabel = 'REFERENCIA_PROVEEDOR'
end
item
Name = 'Medicacion_REFERENCIA'
DataType = datString
@ -752,6 +674,67 @@ object srvMedicacion: TsrvMedicacion
DataType = datString
Size = 1
DisplayLabel = 'Tipo'
end
item
Name = 'Medicacion_NUMERO_SS'
DataType = datString
Size = 255
DisplayLabel = 'N'#250'mero SS'
end
item
Name = 'Medicacion_Detalles_ID_MEDICACION'
DataType = datInteger
Required = True
end
item
Name = 'Medicacion_Detalles_POSICION'
DataType = datInteger
end
item
Name = 'Medicacion_Detalles_TIPO_DETALLE'
DataType = datString
Size = 25
end
item
Name = 'Medicacion_Detalles_ID_ARTICULO'
DataType = datInteger
end
item
Name = 'Medicacion_Detalles_REFERENCIA'
DataType = datString
Size = 255
DisplayLabel = 'Referencia'
end
item
Name = 'Medicacion_Detalles_CONCEPTO'
DataType = datString
Size = 2000
end
item
Name = 'Medicacion_Detalles_CANTIDAD'
DataType = datCurrency
end
item
Name = 'Medicacion_Detalles_POSOLOGIA'
DataType = datString
Size = 255
DisplayLabel = 'Posolog'#237'a'
end
item
Name = 'Medicacion_Detalles_FORMA_COLOR'
DataType = datString
Size = 255
DisplayLabel = 'Forma y color'
end
item
Name = 'Medicacion_Detalles_LOTE'
DataType = datString
Size = 255
DisplayLabel = 'Lote'
end
item
Name = 'Medicacion_Detalles_VISIBLE'
DataType = datSmallInt
end>
Left = 56
Top = 144

4
Source/Modulos/Medicaciones/Views/Medicaciones_view.dpk
View File

@ -83,6 +83,8 @@ contains
uViewDatosYSeleccionPacienteMedicacion in 'uViewDatosYSeleccionPacienteMedicacion.pas' {frViewDatosYSeleccionClienteMedicacion: TCustomView},
uViewDetallesMedicacion in 'uViewDetallesMedicacion.pas' {frViewDetallesMedicacion: TFrame},
uEditorMedicacion in 'uEditorMedicacion.pas' {fEditorMedicacion: TFrame},
uEditorMedicaciones in 'uEditorMedicaciones.pas' {fEditorMedicaciones: TEditor};
uEditorMedicaciones in 'uEditorMedicaciones.pas' {fEditorMedicaciones: TEditor},
uViewElegirArticulosMedicaciones in 'uViewElegirArticulosMedicaciones.pas' {frViewElegirArticulosMedicaciones: TFrame},
uEditorElegirArticulosMedicaciones in 'uEditorElegirArticulosMedicaciones.pas' {fEditorElegirArticulosMedicaciones: TEditor};
end.

112
Source/Modulos/Medicaciones/Views/Medicaciones_view.dproj
View File

@ -47,6 +47,10 @@
<Excluded_Packages Name="c:\archivos de programa\borland\delphi10\Bin\dclIntraweb_80_100.bpl">File c:\archivos de programa\borland\delphi10\Bin\dclIntraweb_80_100.bpl not found</Excluded_Packages>
<Excluded_Packages Name="c:\archivos de programa\borland\delphi10\Bin\dclnet100.bpl">File c:\archivos de programa\borland\delphi10\Bin\dclnet100.bpl not found</Excluded_Packages>
<Excluded_Packages Name="c:\archivos de programa\borland\delphi10\Bin\dclsoap100.bpl">File c:\archivos de programa\borland\delphi10\Bin\dclsoap100.bpl not found</Excluded_Packages>
@ -58,56 +62,60 @@
<DelphiCompile Include="Medicaciones_view.dpk">
<MainSource>MainSource</MainSource>
</DelphiCompile>
<DCCReference Include="C:\Documents and Settings\Usuario\adortl.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\ApplicationBase.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\Articulos_view.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\Base.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\Contactos_model.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\cxDataD11.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\cxEditorsD11.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\cxExportD11.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\cxExtEditorsD11.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\cxGridD11.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\cxLibraryD11.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\cxPageControlD11.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\DataAbstract_Core_D11.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\dbrtl.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\dclcxLibraryD11.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\designide.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\dsnap.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\dxComnD11.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\dxCoreD11.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\dxGDIPlusD11.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\dxLayoutControlD11.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\dxPSCoreD11.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\dxPScxCommonD11.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\dxPScxGrid6LnkD11.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\dxPSLnksD11.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\dxThemeD11.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\GUIBase.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\GUISDK_D11R.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\Jcl.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\JclVcl.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\JSDialog100.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\JvCoreD11R.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\JvPageCompsD11R.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\JvStdCtrlsD11R.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\JvSystemD11R.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\Medicaciones_controller.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\Medicaciones_model.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\PngComponentsD10.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\PNG_D10.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\RemObjects_Core_D11.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\rtl.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\tb2k_d10.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\tbx_d10.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\vcl.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\vclactnband.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\vcldb.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\vcljpg.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\vclshlctrls.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\vclx.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\xmlrtl.dcp" />
<DCCReference Include="..\..\Articulos\Views\adortl.dcp" />
<DCCReference Include="..\..\Articulos\Views\ApplicationBase.dcp" />
<DCCReference Include="..\..\Articulos\Views\Articulos_view.dcp" />
<DCCReference Include="..\..\Articulos\Views\Base.dcp" />
<DCCReference Include="..\..\Articulos\Views\Contactos_model.dcp" />
<DCCReference Include="..\..\Articulos\Views\cxDataD11.dcp" />
<DCCReference Include="..\..\Articulos\Views\cxEditorsD11.dcp" />
<DCCReference Include="..\..\Articulos\Views\cxExportD11.dcp" />
<DCCReference Include="..\..\Articulos\Views\cxExtEditorsD11.dcp" />
<DCCReference Include="..\..\Articulos\Views\cxGridD11.dcp" />
<DCCReference Include="..\..\Articulos\Views\cxLibraryD11.dcp" />
<DCCReference Include="..\..\Articulos\Views\cxPageControlD11.dcp" />
<DCCReference Include="..\..\Articulos\Views\DataAbstract_Core_D11.dcp" />
<DCCReference Include="..\..\Articulos\Views\dbrtl.dcp" />
<DCCReference Include="..\..\Articulos\Views\dclcxLibraryD11.dcp" />
<DCCReference Include="..\..\Articulos\Views\designide.dcp" />
<DCCReference Include="..\..\Articulos\Views\dsnap.dcp" />
<DCCReference Include="..\..\Articulos\Views\dxComnD11.dcp" />
<DCCReference Include="..\..\Articulos\Views\dxCoreD11.dcp" />
<DCCReference Include="..\..\Articulos\Views\dxGDIPlusD11.dcp" />
<DCCReference Include="..\..\Articulos\Views\dxLayoutControlD11.dcp" />
<DCCReference Include="..\..\Articulos\Views\dxPSCoreD11.dcp" />
<DCCReference Include="..\..\Articulos\Views\dxPScxCommonD11.dcp" />
<DCCReference Include="..\..\Articulos\Views\dxPScxGrid6LnkD11.dcp" />
<DCCReference Include="..\..\Articulos\Views\dxPSLnksD11.dcp" />
<DCCReference Include="..\..\Articulos\Views\dxThemeD11.dcp" />
<DCCReference Include="..\..\Articulos\Views\GUIBase.dcp" />
<DCCReference Include="..\..\Articulos\Views\GUISDK_D11R.dcp" />
<DCCReference Include="..\..\Articulos\Views\Jcl.dcp" />
<DCCReference Include="..\..\Articulos\Views\JclVcl.dcp" />
<DCCReference Include="..\..\Articulos\Views\JSDialog100.dcp" />
<DCCReference Include="..\..\Articulos\Views\JvCoreD11R.dcp" />
<DCCReference Include="..\..\Articulos\Views\JvPageCompsD11R.dcp" />
<DCCReference Include="..\..\Articulos\Views\JvStdCtrlsD11R.dcp" />
<DCCReference Include="..\..\Articulos\Views\JvSystemD11R.dcp" />
<DCCReference Include="..\..\Articulos\Views\Medicaciones_controller.dcp" />
<DCCReference Include="..\..\Articulos\Views\Medicaciones_model.dcp" />
<DCCReference Include="..\..\Articulos\Views\PngComponentsD10.dcp" />
<DCCReference Include="..\..\Articulos\Views\PNG_D10.dcp" />
<DCCReference Include="..\..\Articulos\Views\RemObjects_Core_D11.dcp" />
<DCCReference Include="..\..\Articulos\Views\rtl.dcp" />
<DCCReference Include="..\..\Articulos\Views\tb2k_d10.dcp" />
<DCCReference Include="..\..\Articulos\Views\tbx_d10.dcp" />
<DCCReference Include="..\..\Articulos\Views\vcl.dcp" />
<DCCReference Include="..\..\Articulos\Views\vclactnband.dcp" />
<DCCReference Include="..\..\Articulos\Views\vcldb.dcp" />
<DCCReference Include="..\..\Articulos\Views\vcljpg.dcp" />
<DCCReference Include="..\..\Articulos\Views\vclshlctrls.dcp" />
<DCCReference Include="..\..\Articulos\Views\vclx.dcp" />
<DCCReference Include="..\..\Articulos\Views\xmlrtl.dcp" />
<DCCReference Include="uEditorElegirArticulosMedicaciones.pas">
<Form>fEditorElegirArticulosMedicaciones</Form>
<DesignClass>TEditor</DesignClass>
</DCCReference>
<DCCReference Include="uEditorMedicacion.pas">
<Form>fEditorMedicacion</Form>
<DesignClass>TFrame</DesignClass>
@ -125,6 +133,10 @@
<Form>frViewDetallesMedicacion</Form>
<DesignClass>TFrame</DesignClass>
</DCCReference>
<DCCReference Include="uViewElegirArticulosMedicaciones.pas">
<Form>fruViewElegirArticulosMedicaciones</Form>
<DesignClass>TFrame</DesignClass>
</DCCReference>
<DCCReference Include="uViewMedicacion.pas">
<Form>frViewMedicacion</Form>
<DesignClass>TFrame</DesignClass>

47
Source/Modulos/Medicaciones/Views/uEditorElegirArticulosMedicaciones.dfm Normal file
View File

@ -0,0 +1,47 @@
inherited fEditorElegirArticulosMedicaciones: TfEditorElegirArticulosMedicaciones
Caption = 'fEditorElegirArticulosMedicaciones'
ExplicitHeight = 538
PixelsPerInch = 96
TextHeight = 13
inherited JvNavPanelHeader: TJvNavPanelHeader
ExplicitTop = 113
end
inherited TBXDock: TTBXDock
ExplicitTop = 64
inherited tbxMain: TTBXToolbar
ExplicitWidth = 126
end
inherited tbxFiltro: TTBXToolbar
Left = 126
ExplicitLeft = 126
end
inherited TBXTMain2: TTBXToolbar
Left = 463
ExplicitLeft = 463
end
end
inherited pnlHeader: TPanel
ExplicitTop = 0
inherited lblTitle: TLabel
Width = 606
end
inherited lblComments: TLabel
Width = 581
Height = 24
end
end
inherited EditorActionList: TActionList
inherited actNuevo: TAction
Enabled = False
Visible = False
end
inherited actModificar: TAction
Enabled = False
Visible = False
end
inherited actExportarExcel: TAction
Enabled = False
Visible = False
end
end
end

36
Source/Modulos/Medicaciones/Views/uEditorElegirArticulosMedicaciones.pas Normal file
View File

@ -0,0 +1,36 @@
unit uEditorElegirArticulosMedicaciones;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, uEditorElegirArticulos, Menus, DB, uDADataTable, JvAppStorage,
JvAppRegistryStorage, JvComponentBase, JvFormPlacement, ImgList, PngImageList,
StdActns, ActnList, uCustomView, uViewBase, uViewBarraSeleccion, ComCtrls,
JvExComCtrls, JvStatusBar, TBX, TB2ExtItems, TBXExtItems, TB2Item, TB2Dock,
TB2Toolbar, pngimage, ExtCtrls, JvExControls, JvComponent, JvNavigationPane,
uIEditorElegirArticulosMedicaciones, uDAInterfaces,
uViewGridBase, uViewGrid, uViewArticulos, StdCtrls;
type
TfEditorElegirArticulosMedicaciones = class(TfEditorElegirArticulos, IEditorElegirArticulosMedicaciones)
public
constructor Create(AOwner: TComponent); override;
end;
implementation
{$R *.dfm}
uses
uViewElegirArticulosMedicaciones;
{ TfEditorElegirArticulosMedicaciones }
constructor TfEditorElegirArticulosMedicaciones.Create(AOwner: TComponent);
begin
inherited;
ViewGrid := CreateView(TfrViewElegirArticulosMedicaciones) as IViewElegirArticulosMedicaciones;
end;
end.

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

@ -177,6 +177,9 @@ inherited fEditorMedicacion: TfEditorMedicacion
object pagContenido: TTabSheet
Caption = 'Contenido'
ImageIndex = 1
ExplicitLeft = 0
ExplicitTop = 0
ExplicitWidth = 0
ExplicitHeight = 411
inline frViewDetallesMedicacion1: TfrViewDetallesMedicacion
Left = 0
@ -198,95 +201,103 @@ inherited fEditorMedicacion: TfEditorMedicacion
ExplicitHeight = 411
inherited ToolBar1: TToolBar
Width = 751
Height = 51
Height = 46
ExplicitWidth = 751
ExplicitHeight = 51
inherited ToolButton14: TToolButton
ExplicitHeight = 46
inherited ToolButton3: TToolButton
Wrap = False
end
inherited FontName: TJvFontComboBox
Left = 399
Top = 0
ExplicitLeft = 399
ExplicitTop = 0
end
inherited FontSize: TEdit
Left = 544
Top = 0
Width = 122
ExplicitLeft = 544
ExplicitTop = 0
ExplicitWidth = 122
end
inherited ToolButton13: TToolButton [7]
Left = 0
inherited ToolButton4: TToolButton
Left = 184
Top = 0
Wrap = True
ExplicitLeft = 0
ExplicitLeft = 184
ExplicitTop = 0
ExplicitHeight = 27
end
inherited UpDown1: TUpDown [8]
inherited ToolButton14: TToolButton
Left = 0
Top = 27
Wrap = False
ExplicitLeft = 0
ExplicitTop = 27
end
inherited FontName: TJvFontComboBox
Left = 65
Top = 22
ExplicitLeft = 65
ExplicitTop = 22
end
inherited FontSize: TEdit
Left = 210
Top = 22
Width = 122
ExplicitLeft = 210
ExplicitTop = 22
ExplicitWidth = 122
end
inherited UpDown1: TUpDown
Left = 332
Top = 22
ExplicitLeft = 332
ExplicitTop = 22
end
inherited ToolButton13: TToolButton
Left = 349
Top = 22
ExplicitLeft = 349
ExplicitTop = 22
end
inherited ToolButton6: TToolButton
Left = 17
Top = 27
ExplicitLeft = 17
ExplicitTop = 27
Left = 357
Top = 22
ExplicitLeft = 357
ExplicitTop = 22
end
inherited ToolButton7: TToolButton
Left = 83
Top = 27
ExplicitLeft = 83
ExplicitTop = 27
Left = 423
Top = 22
ExplicitLeft = 423
ExplicitTop = 22
end
inherited ToolButton8: TToolButton
Left = 150
Top = 27
ExplicitLeft = 150
ExplicitTop = 27
Left = 490
Top = 22
ExplicitLeft = 490
ExplicitTop = 22
end
inherited ToolButton12: TToolButton
Left = 233
Top = 27
Wrap = False
ExplicitLeft = 233
ExplicitTop = 27
ExplicitHeight = 22
Left = 573
Top = 22
ExplicitLeft = 573
ExplicitTop = 22
end
inherited ToolButton9: TToolButton
Left = 241
Top = 27
ExplicitLeft = 241
ExplicitTop = 27
Left = 581
Top = 22
ExplicitLeft = 581
ExplicitTop = 22
end
inherited ToolButton10: TToolButton
Left = 386
Top = 27
ExplicitLeft = 386
ExplicitTop = 27
Left = 726
Top = 22
ExplicitLeft = 726
ExplicitTop = 22
end
inherited ToolButton11: TToolButton
Left = 511
Top = 27
ExplicitLeft = 511
ExplicitTop = 27
Left = 851
Top = 22
ExplicitLeft = 851
ExplicitTop = 22
end
end
inherited cxGrid: TcxGrid
Top = 77
Top = 72
Width = 751
Height = 421
Height = 426
ExplicitTop = 77
ExplicitWidth = 751
ExplicitHeight = 334
end
inherited TBXDock1: TTBXDock
Top = 51
Top = 46
Width = 751
ExplicitTop = 51
ExplicitWidth = 751

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

@ -13,8 +13,7 @@ uses
uViewIncidencias, uMedicacionesController, uViewDetallesBase, uViewDetallesMedicacion,
dxLayoutLookAndFeels, JvExComCtrls, JvStatusBar, uViewTotales,
uIEditorMedicacion, uBizMedicaciones, uViewMedicacion,
uViewDetallesDTO, uViewDetallesArticulos, uDAInterfaces,
uViewDetallesArticulosParaVenta, cxLabel;
uViewDetallesDTO, uViewDetallesArticulos, uDAInterfaces, cxLabel;
type
TfEditorMedicacion = class(TfEditorDBItem, IEditorMedicacion)

21
Source/Modulos/Medicaciones/Views/uEditorMedicaciones.dfm
View File

@ -134,9 +134,6 @@ inherited fEditorMedicaciones: TfEditorMedicaciones
Caption = 'A&cciones'
end
end
inherited TBXTMain2: TTBXToolbar
Visible = True
end
end
inherited StatusBar: TJvStatusBar
Width = 583
@ -155,6 +152,10 @@ inherited fEditorMedicaciones: TfEditorMedicaciones
inherited actAnchoAuto: TAction
ImageIndex = 22
end
inherited actExportarExcel: TAction
Enabled = False
Visible = False
end
object actGenerarEtiquetas: TAction
Category = 'Acciones'
Caption = 'Generar etiquetas'
@ -1609,20 +1610,6 @@ inherited fEditorMedicaciones: TfEditorMedicaciones
object N4: TMenuItem [5]
Caption = '-'
end
object Serviralbarn1: TMenuItem [6]
Caption = 'Enviar albar'#225'n...'
Enabled = False
ImageIndex = 23
Visible = False
OnClick = actEnviarExecute
end
object Generarfactura1: TMenuItem [7]
Caption = 'Generar factura'
ImageIndex = 23
end
object Enviarporemail1: TMenuItem [12]
Caption = 'Enviar por e-mail...'
end
end
object JsNuevoMedicacionDialog: TJSDialog
Content.Strings = (

3
Source/Modulos/Medicaciones/Views/uEditorMedicaciones.pas
View File

@ -18,14 +18,11 @@ type
TfEditorMedicaciones = class(TfEditorGridBase, IEditorMedicaciones)
JsNuevoMedicacionDialog: TJSDialog;
N4: TMenuItem;
Generarfactura1: TMenuItem;
TBXSeparatorItem17: TTBXSeparatorItem;
Serviralbarn1: TMenuItem;
JsImprimirDialog: TJSDialog;
JsPrevisualizarDialog: TJSDialog;
actGenerarEtiquetas: TAction;
JsListaMedicacionesNoEliminados: TJSDialog;
Enviarporemail1: TMenuItem;
TBXSubmenuItem2: TTBXSubmenuItem;
procedure FormShow(Sender: TObject);
procedure actEnviarExecute(Sender: TObject);

5
Source/Modulos/Medicaciones/Views/uMedicacionesViewRegister.pas
View File

@ -8,18 +8,21 @@ procedure UnregisterViews;
implementation
uses
uEditorRegistryUtils, uEditorMedicaciones, uEditorMedicacion;
uEditorRegistryUtils, uEditorMedicaciones, uEditorMedicacion,
uEditorElegirArticulosMedicaciones;
procedure RegisterViews;
begin
EditorRegistry.RegisterClass(TfEditorMedicaciones, 'EditorMedicaciones');
EditorRegistry.RegisterClass(TfEditorMedicacion, 'EditorMedicacion');
EditorRegistry.RegisterClass(TfEditorElegirArticulosMedicaciones, 'EditorElegirArticulosMedicaciones');
end;
procedure UnregisterViews;
begin
EditorRegistry.UnRegisterClass(TfEditorMedicaciones);
EditorRegistry.UnRegisterClass(TfEditorMedicacion);
EditorRegistry.UnRegisterClass(TfEditorElegirArticulosMedicaciones);
end;
end.

169
Source/Modulos/Medicaciones/Views/uViewDetallesMedicacion.dfm
View File

@ -1,19 +1,146 @@
inherited frViewDetallesMedicacion: TfrViewDetallesMedicacion
Width = 762
Height = 318
inherited ToolBar1: TToolBar
Width = 762
Height = 51
ExplicitHeight = 100
inherited ToolButton14: TToolButton
Wrap = False
end
inherited FontName: TJvFontComboBox
Left = 305
Top = 0
ExplicitLeft = 305
ExplicitTop = 0
end
inherited FontSize: TEdit
Left = 450
Top = 0
Width = 138
ExplicitLeft = 450
ExplicitTop = 0
ExplicitWidth = 138
end
inherited ToolButton13: TToolButton [7]
Left = 0
Top = 0
Wrap = True
ExplicitLeft = 0
ExplicitTop = 0
ExplicitHeight = 27
end
inherited UpDown1: TUpDown [8]
Left = 0
Top = 27
ExplicitLeft = 0
ExplicitTop = 27
end
inherited ToolButton6: TToolButton
Left = 17
Top = 27
ExplicitLeft = 17
ExplicitTop = 27
end
inherited ToolButton7: TToolButton
Left = 83
Top = 27
ExplicitLeft = 83
ExplicitTop = 27
end
inherited ToolButton8: TToolButton
Left = 150
Top = 27
ExplicitLeft = 150
ExplicitTop = 27
end
inherited ToolButton12: TToolButton
Left = 233
Top = 27
Wrap = False
ExplicitLeft = 233
ExplicitTop = 27
ExplicitHeight = 22
end
inherited ToolButton9: TToolButton
Left = 241
Top = 27
ExplicitLeft = 241
ExplicitTop = 27
end
inherited ToolButton10: TToolButton
Left = 386
Top = 27
ExplicitLeft = 386
ExplicitTop = 27
end
inherited ToolButton11: TToolButton
Left = 511
Top = 27
ExplicitLeft = 511
ExplicitTop = 27
end
end
inherited cxGrid: TcxGrid
ExplicitTop = 121
ExplicitHeight = 183
Top = 77
Width = 762
Height = 241
ExplicitTop = 126
ExplicitHeight = 178
inherited cxGridView: TcxGridDBTableView
inherited cxGridViewTIPO: TcxGridDBColumn
BestFitMaxWidth = 75
MinWidth = 75
VisibleForCustomization = False
Width = 75
end
inherited cxGridViewREFERENCIA: TcxGridDBColumn
Width = 43
end
inherited cxGridViewDESCRIPCION: TcxGridDBColumn
Width = 164
end
inherited cxGridViewCANTIDAD: TcxGridDBColumn
Visible = False
VisibleForCustomization = False
Width = 50
end
inherited cxGridViewIMPORTEUNIDAD: TcxGridDBColumn
Visible = False
VisibleForCustomization = False
Width = 50
end
inherited cxGridViewIMPORTETOTAL: TcxGridDBColumn
Visible = False
VisibleForCustomization = False
Width = 50
end
object cxGridViewPOSOLOGIA: TcxGridDBColumn
DataBinding.FieldName = 'POSOLOGIA'
BestFitMaxWidth = 64
Width = 40
end
object cxGridViewFORMA_COLOR: TcxGridDBColumn
DataBinding.FieldName = 'FORMA_COLOR'
BestFitMaxWidth = 90
Width = 94
end
object cxGridViewLOTE: TcxGridDBColumn
DataBinding.FieldName = 'LOTE'
BestFitMaxWidth = 90
Width = 94
end
end
end
inherited TBXDock1: TTBXDock
ExplicitTop = 95
Top = 51
Width = 762
ExplicitTop = 100
inherited TBXToolbar1: TTBXToolbar
DockPos = 0
ExplicitWidth = 472
inherited TBXSubmenuItem1: TTBXSubmenuItem
Enabled = False
Visible = False
end
object TBXItem18: TTBXItem [1]
@ -23,9 +150,45 @@ inherited frViewDetallesMedicacion: TfrViewDetallesMedicacion
end
end
inherited ActionListContenido: TActionList
inherited RichEditBold1: TRichEditBold
Enabled = False
Visible = False
end
inherited RichEditItalic1: TRichEditItalic
Enabled = False
Visible = False
end
inherited RichEditUnderline1: TRichEditUnderline
Enabled = False
Visible = False
end
inherited RichEditAlignLeft1: TRichEditAlignLeft
Enabled = False
Visible = False
end
inherited RichEditAlignCenter1: TRichEditAlignCenter
Enabled = False
Visible = False
end
inherited RichEditAlignRight1: TRichEditAlignRight
Enabled = False
Visible = False
end
inherited FontEdit1: TFontEdit
Enabled = False
Visible = False
end
inherited actAnadirArticulos: TAction
Caption = 'A'#241'adir art'#237'culos...'
end
inherited actExportar: TAction
Enabled = False
Visible = False
end
end
inherited DADataSource: TDADataSource
DataSet = tbl_Medicacion_Detalles.Dataset
DataTable = DataModuleMedicacion.tbl_Medicacion_Detalles
end
inherited GridGeneralPopupMenu: TPopupMenu
object Aadirartculos1: TMenuItem [4]

43
Source/Modulos/Medicaciones/Views/uViewDetallesMedicacion.pas
View File

@ -29,6 +29,14 @@ type
N2: TMenuItem;
Aadirartculos1: TMenuItem;
TBXItem18: TTBXItem;
cxGridViewPOSOLOGIA: TcxGridDBColumn;
cxGridViewFORMA_COLOR: TcxGridDBColumn;
cxGridViewLOTE: TcxGridDBColumn;
procedure CustomViewCreate(Sender: TObject);
procedure CustomViewDestroy(Sender: TObject);
procedure OnValidateReferencia(Sender: TObject;
var DisplayValue: Variant; var ErrorText: TCaption; var Error: Boolean);
protected
FMedicacion: IBizMedicacion;
function GetMedicacion: IBizMedicacion;
@ -60,6 +68,41 @@ begin
(Controller as IDetallesMedicacionController).AnadirArticulos(Detalles);
end;
procedure TfrViewDetallesMedicacion.CustomViewCreate(Sender: TObject);
begin
inherited;
cxGridViewREFERENCIA.Properties.OnValidate := OnValidateReferencia;
cxGridViewIMPORTEUNIDAD.DataBinding.FieldName := '';
cxGridViewIMPORTETOTAL.DataBinding.FieldName := '';
end;
procedure TfrViewDetallesMedicacion.CustomViewDestroy(Sender: TObject);
begin
inherited;
cxGridViewREFERENCIA.Properties.OnValidate := Nil;
end;
procedure TfrViewDetallesMedicacion.OnValidateReferencia(
Sender: TObject; var DisplayValue: Variant; var ErrorText: TCaption;
var Error: Boolean);
var
lsReferencia : String;
begin
//En el caso de cadena vacia no validamos
if (VarIsNull(DisplayValue)) then
Exit;
lsReferencia := VarToStr(DisplayValue);
if (length(trim(lsReferencia)) = 0) then
Exit;
if not AnadirArticulo(lsReferencia) then
begin
ErrorText := 'La referencia introducida no exite en el catálogo de Farmatik';
Error := True;
end;
end;
function TfrViewDetallesMedicacion.GetMedicacion: IBizMedicacion;
begin
Result := FMedicacion;

217
Source/Modulos/Medicaciones/Views/uViewDireccionEntregaAlbaranCliente.dfm
View File

@ -1,217 +0,0 @@
inherited frViewDireccionEntregaAlbaranCliente: TfrViewDireccionEntregaAlbaranCliente
Width = 337
Height = 126
ExplicitWidth = 337
ExplicitHeight = 126
object dxLayoutControl1: TdxLayoutControl
Left = 0
Top = 0
Width = 337
Height = 126
Align = alClient
ParentBackground = True
TabOrder = 0
TabStop = False
AutoContentSizes = [acsWidth, acsHeight]
object eCalle: TcxDBTextEdit
Left = 64
Top = 10
DataBinding.DataField = 'CALLE'
DataBinding.DataSource = dsAlbaran
Style.BorderColor = clWindowFrame
Style.BorderStyle = ebs3D
Style.HotTrack = False
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 = 0
Width = 263
end
object eCodigoPostal: TcxDBTextEdit
Left = 262
Top = 37
DataBinding.DataField = 'CODIGO_POSTAL'
DataBinding.DataSource = dsAlbaran
Style.BorderColor = clWindowFrame
Style.BorderStyle = ebs3D
Style.HotTrack = False
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 = 2
Width = 65
end
object eTlfTrabajo: TcxDBTextEdit
Left = 205
Top = 91
DataBinding.DataField = 'TELEFONO'
DataBinding.DataSource = dsAlbaran
Style.BorderColor = clWindowFrame
Style.BorderStyle = ebs3D
Style.HotTrack = False
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 = 5
Width = 122
end
object ePersonaContacto: TcxDBTextEdit
Left = 64
Top = 91
DataBinding.DataField = 'PERSONA_CONTACTO'
DataBinding.DataSource = dsAlbaran
Style.BorderColor = clWindowFrame
Style.BorderStyle = ebs3D
Style.Color = clWindow
Style.HotTrack = False
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 = 84
end
object cbProvincia: TcxDBComboBox
Left = 64
Top = 37
DataBinding.DataField = 'PROVINCIA'
DataBinding.DataSource = dsAlbaran
Properties.ImmediatePost = True
Properties.ImmediateUpdateText = True
Properties.PostPopupValueOnTab = True
Properties.OnInitPopup = cbProvinciaPropertiesInitPopup
Style.BorderColor = clWindowFrame
Style.BorderStyle = ebs3D
Style.HotTrack = False
Style.LookAndFeel.Kind = lfStandard
Style.LookAndFeel.NativeStyle = True
Style.ButtonStyle = bts3D
Style.PopupBorderStyle = epbsFrame3D
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 = 1
Width = 162
end
object cbPoblacion: TcxDBComboBox
Left = 64
Top = 64
DataBinding.DataField = 'POBLACION'
DataBinding.DataSource = dsAlbaran
Properties.ImmediatePost = True
Properties.ImmediateUpdateText = True
Properties.PostPopupValueOnTab = True
Properties.OnInitPopup = cbPoblacionPropertiesInitPopup
Style.BorderColor = clWindowFrame
Style.BorderStyle = ebs3D
Style.HotTrack = False
Style.LookAndFeel.Kind = lfStandard
Style.LookAndFeel.NativeStyle = True
Style.ButtonStyle = bts3D
Style.PopupBorderStyle = epbsFrame3D
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 = 3
Width = 263
end
object dxLayoutGroup1: TdxLayoutGroup
ShowCaption = False
Hidden = True
ShowBorder = False
object dxLayoutControl1Item1: TdxLayoutItem
Caption = 'Calle:'
Control = eCalle
ControlOptions.ShowBorder = False
end
object dxLayoutControl1Group3: TdxLayoutGroup
ShowCaption = False
Hidden = True
ShowBorder = False
object dxLayoutControl1Group1: TdxLayoutGroup
ShowCaption = False
Hidden = True
ShowBorder = False
object dxLayoutControl1Group2: TdxLayoutGroup
ShowCaption = False
Hidden = True
LayoutDirection = ldHorizontal
ShowBorder = False
object dxLayoutControl1Item2: TdxLayoutItem
AutoAligns = [aaVertical]
AlignHorz = ahClient
Caption = 'Provincia:'
Control = cbProvincia
ControlOptions.ShowBorder = False
end
object dxLayoutControl1Item4: TdxLayoutItem
AutoAligns = [aaVertical]
AlignHorz = ahRight
Caption = 'C.P.:'
Control = eCodigoPostal
ControlOptions.ShowBorder = False
end
end
object dxLayoutControl1Item3: TdxLayoutItem
Caption = 'Poblaci'#243'n:'
Control = cbPoblacion
ControlOptions.ShowBorder = False
end
end
object dxLayoutControl1Group4: TdxLayoutGroup
ShowCaption = False
Hidden = True
LayoutDirection = ldHorizontal
ShowBorder = False
object dxLayoutControl1Item6: TdxLayoutItem
AutoAligns = [aaVertical]
AlignHorz = ahClient
Caption = 'Contacto:'
Control = ePersonaContacto
ControlOptions.ShowBorder = False
end
object dxLayoutControl1Item5: TdxLayoutItem
AutoAligns = [aaVertical]
AlignHorz = ahRight
Caption = 'Tel'#233'fono:'
Control = eTlfTrabajo
ControlOptions.ShowBorder = False
end
end
end
end
end
object dsAlbaran: TDADataSource
Left = 8
Top = 8
end
object dsAlmacenes: TDADataSource
Left = 8
Top = 40
end
end

243
Source/Modulos/Medicaciones/Views/uViewDireccionEntregaAlbaranCliente.pas
View File

@ -1,243 +0,0 @@
unit uViewDireccionEntregaAlbaranCliente;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, uViewBase, uBizAlbaranesCliente, cxGraphics, dxLayoutControl, cxMemo,
cxContainer, cxEdit, cxTextEdit, cxMaskEdit, cxDropDownEdit, cxLookupEdit,
cxDBLookupEdit, cxDBLookupComboBox, StdCtrls, cxControls, DB, uDADataTable,
ActnList, uAlbaranesClienteController, Buttons, cxDBEdit, uDAInterfaces;
type
IViewDireccionEntregaAlbaranCliente = interface(IViewBase)
['{C23A361A-98CA-450C-9F29-2DA7877601EE}']
function GetAlbaranCliente: IBizAlbaranCliente;
procedure SetAlbaranCliente(const Value: IBizAlbaranCliente);
property AlbaranCliente: IBizAlbaranCliente read GetAlbaranCliente write SetAlbaranCliente;
end;
TfrViewDireccionEntregaAlbaranCliente = class(TfrViewBase, IViewDireccionEntregaAlbaranCliente)
dxLayoutControl1: TdxLayoutControl;
dxLayoutGroup1: TdxLayoutGroup;
dsAlbaran: TDADataSource;
dsAlmacenes: TDADataSource;
dxLayoutControl1Item1: TdxLayoutItem;
eCalle: TcxDBTextEdit;
dxLayoutControl1Item4: TdxLayoutItem;
eCodigoPostal: TcxDBTextEdit;
dxLayoutControl1Item5: TdxLayoutItem;
eTlfTrabajo: TcxDBTextEdit;
dxLayoutControl1Item6: TdxLayoutItem;
ePersonaContacto: TcxDBTextEdit;
dxLayoutControl1Group3: TdxLayoutGroup;
dxLayoutControl1Group4: TdxLayoutGroup;
dxLayoutControl1Item2: TdxLayoutItem;
cbProvincia: TcxDBComboBox;
dxLayoutControl1Group1: TdxLayoutGroup;
dxLayoutControl1Item3: TdxLayoutItem;
cbPoblacion: TcxDBComboBox;
dxLayoutControl1Group2: TdxLayoutGroup;
procedure cbListaPropertiesValidate(Sender: TObject; var DisplayValue: Variant; var ErrorText: TCaption; var Error: Boolean);
procedure cbProvinciaPropertiesInitPopup(Sender: TObject);
procedure cbPoblacionPropertiesInitPopup(Sender: TObject);
protected
// FAlmacenesController : IAlmacenesController;
// FAlmacenes: IBizAlmacen;
FAlbaran : IBizAlbaranCliente;
FController : IAlbaranesClienteController;
FProvincias : TStringList;
FIDProvincia : Integer; //Almacenará la provincia que hay seleccionada para no cargar las poblaciones si no es necesario
FPoblaciones : TStringList;
procedure CargarProvincias;
procedure CargarPoblaciones;
function GetAlbaranCliente: IBizAlbaranCliente;
procedure SetAlbaranCliente(const Value: IBizAlbaranCliente);
procedure RefrescarDireccion;
public
property AlbaranCliente: IBizAlbaranCliente read GetAlbaranCliente write SetAlbaranCliente;
constructor Create(AOwner: TComponent); override;
destructor Destroy; override;
end;
implementation
{$R *.dfm}
uses
uEditorRegistryUtils,
uProvinciasPoblacionesController, uStringsUtils;
procedure TfrViewDireccionEntregaAlbaranCliente.CargarPoblaciones;
var
i : integer;
begin
if (FIDProvincia <> StrToInt(FProvincias.Values[cbProvincia.Text])) then
Begin
FIDProvincia := StrToInt(FProvincias.Values[cbProvincia.Text]);
with TProvinciasPoblacionesController.Create do
try
FPoblaciones := DarListaPoblaciones(FIDProvincia);
with cbPoblacion.Properties.Items do
begin
BeginUpdate;
try
Clear;
for i := 0 to FPoblaciones.Count - 1 do
Add(FPoblaciones.Names[i]);
finally
EndUpdate;
end;
end;
finally
Free;
end;
End;
end;
procedure TfrViewDireccionEntregaAlbaranCliente.CargarProvincias;
var
i : integer;
begin
with TProvinciasPoblacionesController.Create do
try
FProvincias := DarListaProvincias;
with cbProvincia.Properties.Items do
begin
BeginUpdate;
try
Clear;
for i := 0 to FProvincias.Count - 1 do
Add(FProvincias.Names[i]);
finally
EndUpdate;
end;
end;
finally
Free;
end;
end;
procedure TfrViewDireccionEntregaAlbaranCliente.cbListaPropertiesValidate(
Sender: TObject; var DisplayValue: Variant; var ErrorText: TCaption;
var Error: Boolean);
begin
{ if Assigned(FAlbaran) and (FAlbaran.ID_ALMACEN <> FAlmacenes.ID) then
begin
FAlbaran.Edit;
FAlbaran.CALLE := FAlmacenes.CALLE;
FAlbaran.POBLACION := FAlmacenes.POBLACION;
FAlbaran.POBLACION := FAlmacenes.POBLACION;
FAlbaran.PROVINCIA := FAlmacenes.PROVINCIA;
FAlbaran.CODIGO_POSTAL := FAlmacenes.CODIGO_POSTAL;
FAlbaran.PERSONA_CONTACTO := FAlmacenes.PERSONA_CONTACTO;
FAlbaran.TELEFONO := FAlmacenes.TELEFONO;
RefrescarDireccion;
end;}
end;
procedure TfrViewDireccionEntregaAlbaranCliente.cbPoblacionPropertiesInitPopup(
Sender: TObject);
begin
inherited;
ShowHourglassCursor;
try
FreeANDNIL(FPoblaciones);
if not Assigned(FProvincias) then
CargarProvincias;
if not EsCadenaVacia(cbProvincia.Text) and (FProvincias.IndexOfName(cbProvincia.Text) <> -1) then
CargarPoblaciones
finally
HideHourglassCursor;
end;
end;
procedure TfrViewDireccionEntregaAlbaranCliente.cbProvinciaPropertiesInitPopup(
Sender: TObject);
begin
inherited;
ShowHourglassCursor;
try
if not Assigned(FProvincias) then
CargarProvincias;
finally
HideHourglassCursor;
end;
end;
constructor TfrViewDireccionEntregaAlbaranCliente.Create(AOwner: TComponent);
begin
inherited;
FIDProvincia := 0;
FAlbaran := NIL;
FProvincias := NIL;
FPoblaciones := NIL;
{ FController := TAlbaranesClienteController.Create;
FAlmacenesController := TAlmacenesController.Create;
FAlmacenes := FAlmacenesController.BuscarTodos;
FAlmacenes.DataTable.Active := True;
dsAlmacenes.DataTable := FAlmacenes.DataTable;}
end;
destructor TfrViewDireccionEntregaAlbaranCliente.Destroy;
begin
{ cbLista.Properties.OnValidate := Nil;
FAlmacenesController := Nil;
FAlmacenes := Nil;
FController := NIL;
}
if Assigned(FProvincias) then
FreeANDNIL(FProvincias);
if Assigned(FPoblaciones) then
FreeANDNIL(FPoblaciones);
FAlbaran := NIL;
inherited;
end;
function TfrViewDireccionEntregaAlbaranCliente.GetAlbaranCliente: IBizAlbaranCliente;
begin
Result := FAlbaran;
end;
procedure TfrViewDireccionEntregaAlbaranCliente.RefrescarDireccion;
begin
{ memDireccion.Lines.Clear;
if Assigned(FAlbaran) then
begin
memDireccion.Lines.Add(FAlbaran.CALLE);
memDireccion.Lines.Add(FAlbaran.CODIGO_POSTAL + ' ' + FPedido.POBLACION);
memDireccion.Lines.Add(FAlbaran.PROVINCIA);
end;}
end;
procedure TfrViewDireccionEntregaAlbaranCliente.SetAlbaranCliente(
const Value: IBizAlbaranCliente);
begin
FAlbaran := Value;
if Assigned(FAlbaran) then
dsAlbaran.DataTable := FAlbaran.DataTable
else
dsAlbaran.DataTable := NIL;
{ cbLista.Properties.OnValidate := NIL;
dsAlbaran.DataTable := nil;
FAlbaran := Value;
if not FAlbaran.EsNuevo then
RefrescarDireccion;
// Esto al final para que no salten los eventos del cxComboBox
dsAlbaran.DataTable := FAlbaran.DataTable;
cbLista.Properties.OnValidate := cbListaPropertiesValidate;}
end;
end.

30
Source/Modulos/Medicaciones/Views/uViewElegirArticulosAlbaranesCliente.dfm
View File

@ -1,30 +0,0 @@
inherited frViewElegirArticulosAlbaranesCliente: TfrViewElegirArticulosAlbaranesCliente
inherited frViewFiltroBase1: TfrViewFiltroBase
inherited TBXDockablePanel1: TTBXDockablePanel
inherited dxLayoutControl1: TdxLayoutControl
inherited edtFechaIniFiltro: TcxDateEdit
ExplicitWidth = 121
Width = 121
end
inherited edtFechaFinFiltro: TcxDateEdit
Left = 225
ExplicitLeft = 225
ExplicitWidth = 121
Width = 121
end
inherited eLista: TcxComboBox
Left = 383
ExplicitLeft = 383
ExplicitWidth = 322
Width = 322
end
end
end
end
inherited dxComponentPrinter: TdxComponentPrinter
inherited dxComponentPrinterLink: TdxGridReportLink
ReportDocument.CreationDate = 39226.746968310190000000
BuiltInReportLink = True
end
end
end

48
Source/Modulos/Medicaciones/Views/uViewElegirArticulosMedicaciones.dfm Normal file
View File

@ -0,0 +1,48 @@
inherited frViewElegirArticulosMedicaciones: TfrViewElegirArticulosMedicaciones
inherited frViewFiltroBase1: TfrViewFiltroBase
inherited TBXDockablePanel1: TTBXDockablePanel
inherited dxLayoutControl1: TdxLayoutControl
inherited txtFiltroTodo: TcxTextEdit
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
end
inherited edtFechaIniFiltro: TcxDateEdit
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitWidth = 121
Width = 121
end
inherited edtFechaFinFiltro: TcxDateEdit
Left = 225
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitLeft = 225
ExplicitWidth = 121
Width = 121
end
inherited eLista: TcxComboBox
Left = 383
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitLeft = 383
ExplicitWidth = 322
Width = 322
end
end
end
end
inherited dxComponentPrinter: TdxComponentPrinter
inherited dxComponentPrinterLink: TdxGridReportLink
ReportDocument.CreationDate = 39226.746968310190000000
BuiltInReportLink = True
end
end
end

8
Source/Modulos/Medicaciones/Views/uViewElegirArticulosAlbaranesCliente.pas → Source/Modulos/Medicaciones/Views/uViewElegirArticulosMedicaciones.pas
View File

@ -1,4 +1,4 @@
unit uViewElegirArticulosAlbaranesCliente;
unit uViewElegirArticulosMedicaciones;
interface
@ -12,14 +12,14 @@ uses
uDADataTable, cxGridLevel, cxGridCustomTableView, cxGridTableView,
cxGridDBTableView, cxClasses, cxControls, cxGridCustomView, cxGrid, dxPgsDlg,
ActnList, TB2Item, TBX, TB2Toolbar, TBXDkPanels, TB2Dock, uViewFiltroBase,
uDAInterfaces;
uDAInterfaces, uCustomView, uViewBase;
type
IViewElegirArticulosAlbaranesCliente = interface(IViewArticulos)
IViewElegirArticulosMedicaciones = interface(IViewArticulos)
['{4143BB25-0992-4F6E-9D39-BC55BC20EEBE}']
end;
TfrViewElegirArticulosAlbaranesCliente = class(TfrViewArticulos, IViewElegirArticulosAlbaranesCliente)
TfrViewElegirArticulosMedicaciones = class(TfrViewArticulos, IViewElegirArticulosMedicaciones)
end;
implementation

11
Source/Modulos/Medicaciones/Views/uViewMedicaciones.dfm
View File

@ -6,7 +6,6 @@ inherited frViewMedicaciones: TfrViewMedicaciones
inherited cxGrid: TcxGrid
Width = 802
Height = 362
RootLevelOptions.DetailTabsPosition = dtpTop
OnActiveTabChanged = cxGridActiveTabChanged
ExplicitWidth = 802
ExplicitHeight = 362
@ -23,33 +22,35 @@ inherited frViewMedicaciones: TfrViewMedicaciones
OptionsCustomize.ColumnHidingOnGrouping = False
OptionsView.GroupFooters = gfAlwaysVisible
object cxGridViewREFERENCIA: TcxGridDBColumn
Caption = 'Referencia'
DataBinding.FieldName = 'REFERENCIA'
BestFitMaxWidth = 45
SortIndex = 0
SortOrder = soDescending
Width = 108
Width = 150
end
object cxGridViewNOMBRE: TcxGridDBColumn
Caption = 'Paciente'
DataBinding.FieldName = 'NOMBRE'
Width = 418
Width = 276
end
object cxGridViewNUMERO_SS: TcxGridDBColumn
Caption = 'Numero SS'
DataBinding.FieldName = 'NUMERO_SS'
BestFitMaxWidth = 45
Width = 150
end
object cxGridViewFECHA_DESDE: TcxGridDBColumn
Caption = 'Desde'
DataBinding.FieldName = 'FECHA_DESDE'
BestFitMaxWidth = 45
Width = 238
Width = 150
end
object cxGridViewFECHA_HASTA: TcxGridDBColumn
Caption = 'Hasta'
DataBinding.FieldName = 'FECHA_HASTA'
BestFitMaxWidth = 45
Width = 45
Width = 150
end
end
inherited cxGridLevel: TcxGridLevel

2
Source/Servidor/Etiquetas_Server.rc
View File

@ -17,7 +17,7 @@ BEGIN
VALUE "InternalName", "Etiquetas Server\0"
VALUE "ProductName", "Etiquetas Server\0"
VALUE "ProductVersion", "1.0.0.0\0"
VALUE "CompileDate", "miércoles, 23 de noviembre de 2011 16:42\0"
VALUE "CompileDate", "miércoles, 30 de noviembre de 2011 12:41\0"
END
END
BLOCK "VarFileInfo"

BIN
Source/Servidor/Etiquetas_Server.res
View File

Binary file not shown.

6
Source/Servidor/uDataModuleServer.dfm
View File

@ -70,7 +70,7 @@ object dmServer: TdmServer
object SessionManager: TROInMemorySessionManager
OnSessionDeleted = SessionManagerSessionDeleted
SessionDuration = -1
Left = 216
Left = 224
Top = 16
end
object JvLogFile1: TJvLogFile
@ -83,4 +83,8 @@ object dmServer: TdmServer
Left = 224
Top = 80
end
object DAADODriver: TDAADODriver
Left = 224
Top = 144
end
end

3
Source/Servidor/uDataModuleServer.pas
View File

@ -6,7 +6,7 @@ uses
SysUtils, Classes, SyncObjs, uDAEngine, uDAIBXDriver, JvLogFile, uROSessions,
JvComponentBase, JvAppStorage, JvAppRegistryStorage, uDAClasses,
uDADriverManager, uROClient, uROBinMessage, uROServer, uROIndyTCPServer,
uROIndyHTTPServer, uDAInterfaces;
uROIndyHTTPServer, uDAInterfaces, uDAADODriver;
const
SERVER_PORT = '8099'; // Puerto por defecto
@ -25,6 +25,7 @@ type
JvLogFile1: TJvLogFile;
DAIBXDriver: TDAIBXDriver;
ConnectionManager: TDAConnectionManager;
DAADODriver: TDAADODriver;
procedure DataModuleCreate(Sender: TObject);
procedure DataModuleDestroy(Sender: TObject);
procedure HTTPServerBeforeServerActivate(Sender: TObject);