Obras: pantalla para consultar obras ya cerradas.
git-svn-id: https://192.168.0.254/svn/Proyectos.Tecsitel_FactuGES2/trunk@720 0c75b7a4-871f-7646-8a2f-f78d34cc349f
This commit is contained in:
parent
d4278f3e50
commit
5fec26320d
@ -1,6 +1,7 @@
|
|||||||
program FactuGES;
|
program FactuGES;
|
||||||
|
|
||||||
uses
|
uses
|
||||||
|
ExceptionLog,
|
||||||
Forms,
|
Forms,
|
||||||
Windows,
|
Windows,
|
||||||
SysUtils,
|
SysUtils,
|
||||||
|
|||||||
@ -45,7 +45,7 @@
|
|||||||
<DCC_ResourcePath>$(BDS)\lib\Debug;$(BDS)\Lib\Debug\Indy10;T:\COMPON~1\jcl\lib\d11\debug;$(BDSCOMMONDIR)\Dcp;..\Lib;..\Modulos\Lib</DCC_ResourcePath>
|
<DCC_ResourcePath>$(BDS)\lib\Debug;$(BDS)\Lib\Debug\Indy10;T:\COMPON~1\jcl\lib\d11\debug;$(BDSCOMMONDIR)\Dcp;..\Lib;..\Modulos\Lib</DCC_ResourcePath>
|
||||||
<DCC_ObjPath>$(BDS)\lib\Debug;$(BDS)\Lib\Debug\Indy10;T:\COMPON~1\jcl\lib\d11\debug;$(BDSCOMMONDIR)\Dcp;..\Lib;..\Modulos\Lib</DCC_ObjPath>
|
<DCC_ObjPath>$(BDS)\lib\Debug;$(BDS)\Lib\Debug\Indy10;T:\COMPON~1\jcl\lib\d11\debug;$(BDSCOMMONDIR)\Dcp;..\Lib;..\Modulos\Lib</DCC_ObjPath>
|
||||||
<DCC_IncludePath>$(BDS)\lib\Debug;$(BDS)\Lib\Debug\Indy10;T:\COMPON~1\jcl\lib\d11\debug;$(BDSCOMMONDIR)\Dcp;..\Lib;..\Modulos\Lib</DCC_IncludePath>
|
<DCC_IncludePath>$(BDS)\lib\Debug;$(BDS)\Lib\Debug\Indy10;T:\COMPON~1\jcl\lib\d11\debug;$(BDSCOMMONDIR)\Dcp;..\Lib;..\Modulos\Lib</DCC_IncludePath>
|
||||||
<DCC_Define>DEBUG;</DCC_Define>
|
<DCC_Define>DEBUG;EUREKALOG;EUREKALOG_VER6</DCC_Define>
|
||||||
<DCC_DebugInfoInExe>True</DCC_DebugInfoInExe>
|
<DCC_DebugInfoInExe>True</DCC_DebugInfoInExe>
|
||||||
<DCC_DebugVN>True</DCC_DebugVN>
|
<DCC_DebugVN>True</DCC_DebugVN>
|
||||||
<DCC_SymbolReferenceInfo>2</DCC_SymbolReferenceInfo>
|
<DCC_SymbolReferenceInfo>2</DCC_SymbolReferenceInfo>
|
||||||
@ -63,6 +63,10 @@
|
|||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
<Excluded_Packages Name="C:\Documents and Settings\All Users\Documentos\RAD Studio\5.0\Bpl\dxPSCoreD10.bpl">ExpressPrinting System by Developer Express Inc.</Excluded_Packages>
|
<Excluded_Packages Name="C:\Documents and Settings\All Users\Documentos\RAD Studio\5.0\Bpl\dxPSCoreD10.bpl">ExpressPrinting System by Developer Express Inc.</Excluded_Packages>
|
||||||
<Excluded_Packages Name="C:\Documents and Settings\All Users\Documentos\RAD Studio\5.0\Bpl\PluginSDK_D10R.bpl">PluginSDK for Delphi 10 (Runtime)</Excluded_Packages>
|
<Excluded_Packages Name="C:\Documents and Settings\All Users\Documentos\RAD Studio\5.0\Bpl\PluginSDK_D10R.bpl">PluginSDK for Delphi 10 (Runtime)</Excluded_Packages>
|
||||||
<Excluded_Packages Name="$(BDS)\bin\dcloffice2k100.bpl">Microsoft Office 2000 Sample Automation Server Wrapper Components</Excluded_Packages>
|
<Excluded_Packages Name="$(BDS)\bin\dcloffice2k100.bpl">Microsoft Office 2000 Sample Automation Server Wrapper Components</Excluded_Packages>
|
||||||
@ -92,7 +96,7 @@
|
|||||||
<!-- EurekaLog First Line
|
<!-- EurekaLog First Line
|
||||||
[Exception Log]
|
[Exception Log]
|
||||||
EurekaLog Version=6011
|
EurekaLog Version=6011
|
||||||
Activate=0
|
Activate=1
|
||||||
Activate Handle=1
|
Activate Handle=1
|
||||||
Save Log File=1
|
Save Log File=1
|
||||||
Foreground Tab=0
|
Foreground Tab=0
|
||||||
|
|||||||
Binary file not shown.
Binary file not shown.
@ -53,6 +53,7 @@
|
|||||||
<DCCReference Include="View\GUIBase.dcp" />
|
<DCCReference Include="View\GUIBase.dcp" />
|
||||||
<DCCReference Include="View\Obras_data.dcp" />
|
<DCCReference Include="View\Obras_data.dcp" />
|
||||||
<DCCReference Include="View\Obras_model.dcp" />
|
<DCCReference Include="View\Obras_model.dcp" />
|
||||||
|
<DCCReference Include="View\uIEditorEjecucionObra.pas" />
|
||||||
<DCCReference Include="View\uIEditorFechaCierreObra.pas" />
|
<DCCReference Include="View\uIEditorFechaCierreObra.pas" />
|
||||||
<DCCReference Include="View\uIEditorListaObras.pas" />
|
<DCCReference Include="View\uIEditorListaObras.pas" />
|
||||||
<DCCReference Include="View\uIEditorObra.pas" />
|
<DCCReference Include="View\uIEditorObra.pas" />
|
||||||
|
|||||||
Binary file not shown.
@ -0,0 +1,22 @@
|
|||||||
|
unit uIEditorEjecucionObra;
|
||||||
|
|
||||||
|
interface
|
||||||
|
|
||||||
|
uses
|
||||||
|
uEditorDBItem, uBizObras, uObrasController;
|
||||||
|
|
||||||
|
type
|
||||||
|
IEditorEjecucionObra = interface(IEditorDBItem)
|
||||||
|
['{66E87046-6625-4195-BDF0-6559E2BFB163}']
|
||||||
|
function GetController : IObrasController;
|
||||||
|
procedure SetController (const Value : IObrasController);
|
||||||
|
property Controller : IObrasController read GetController write SetController;
|
||||||
|
|
||||||
|
function GetObra: IBizObra;
|
||||||
|
procedure SetObra(const Value: IBizObra);
|
||||||
|
property Obra: IBizObra read GetObra write SetObra;
|
||||||
|
end;
|
||||||
|
|
||||||
|
implementation
|
||||||
|
|
||||||
|
end.
|
||||||
@ -13,6 +13,7 @@ type
|
|||||||
function Buscar(const ID: Integer): IBizObra;
|
function Buscar(const ID: Integer): IBizObra;
|
||||||
function BuscarTodos: IBizObra;
|
function BuscarTodos: IBizObra;
|
||||||
procedure Ver(AObra : IBizObra);
|
procedure Ver(AObra : IBizObra);
|
||||||
|
procedure VerEjecucion(AObra : IBizObra);
|
||||||
procedure VerTodos(AObras: IBizObra);
|
procedure VerTodos(AObras: IBizObra);
|
||||||
function VerLista(AObras: IBizObra): IBizObra;
|
function VerLista(AObras: IBizObra): IBizObra;
|
||||||
function Nuevo : IBizObra; overload;
|
function Nuevo : IBizObra; overload;
|
||||||
@ -69,6 +70,7 @@ type
|
|||||||
function BuscarTodos: IBizObra;
|
function BuscarTodos: IBizObra;
|
||||||
function Nuevo : IBizObra; overload;
|
function Nuevo : IBizObra; overload;
|
||||||
procedure Ver(AObra : IBizObra);
|
procedure Ver(AObra : IBizObra);
|
||||||
|
procedure VerEjecucion(AObra : IBizObra);
|
||||||
procedure VerTodos(AObras: IBizObra);
|
procedure VerTodos(AObras: IBizObra);
|
||||||
function VerLista(AObras: IBizObra): IBizObra;
|
function VerLista(AObras: IBizObra): IBizObra;
|
||||||
function Duplicar(AObra: IBizObra): IBizObra;
|
function Duplicar(AObra: IBizObra): IBizObra;
|
||||||
@ -89,7 +91,7 @@ uses
|
|||||||
uIEditorObras, uIEditorObra, uDataModuleObras, Variants,
|
uIEditorObras, uIEditorObra, uDataModuleObras, Variants,
|
||||||
uDataModuleUsuarios, uDAInterfaces, uDataTableUtils, uFactuGES_App,
|
uDataModuleUsuarios, uDAInterfaces, uDataTableUtils, uFactuGES_App,
|
||||||
uDateUtils, uROTypes, DateUtils, Controls, Windows, uIEditorListaObras,
|
uDateUtils, uROTypes, DateUtils, Controls, Windows, uIEditorListaObras,
|
||||||
uIEditorFechaCierreObra;
|
uIEditorFechaCierreObra, uIEditorEjecucionObra;
|
||||||
|
|
||||||
{ TObrasController }
|
{ TObrasController }
|
||||||
|
|
||||||
@ -348,6 +350,29 @@ begin
|
|||||||
end;
|
end;
|
||||||
end;
|
end;
|
||||||
|
|
||||||
|
procedure TObrasController.VerEjecucion(AObra: IBizObra);
|
||||||
|
var
|
||||||
|
AEditor : IEditorEjecucionObra;
|
||||||
|
begin
|
||||||
|
AEditor := NIL;
|
||||||
|
ShowHourglassCursor;
|
||||||
|
try
|
||||||
|
RecuperarObjetos(AObra);
|
||||||
|
CreateEditor('EditorEjecucionObra', IEditorEjecucionObra, AEditor);
|
||||||
|
if Assigned(AEditor) then
|
||||||
|
with (AEditor as IEditorEjecucionObra) do
|
||||||
|
begin
|
||||||
|
Controller := Self; //OJO ORDEN MUY IMPORTANTE
|
||||||
|
Obra := AObra;
|
||||||
|
ShowModal;
|
||||||
|
Release;
|
||||||
|
end;
|
||||||
|
finally
|
||||||
|
AEditor := NIL;
|
||||||
|
HideHourglassCursor;
|
||||||
|
end;
|
||||||
|
end;
|
||||||
|
|
||||||
function TObrasController.VerLista(AObras: IBizObra): IBizObra;
|
function TObrasController.VerLista(AObras: IBizObra): IBizObra;
|
||||||
var
|
var
|
||||||
AEditor : IEditorListaObras;
|
AEditor : IEditorListaObras;
|
||||||
|
|||||||
@ -43,7 +43,7 @@ contains
|
|||||||
uViewObras in 'uViewObras.pas' {frViewObras: TFrame},
|
uViewObras in 'uViewObras.pas' {frViewObras: TFrame},
|
||||||
uEditorObras in 'uEditorObras.pas' {fEditorObras: TfEditorObras},
|
uEditorObras in 'uEditorObras.pas' {fEditorObras: TfEditorObras},
|
||||||
uObrasViewRegister in 'uObrasViewRegister.pas',
|
uObrasViewRegister in 'uObrasViewRegister.pas',
|
||||||
uEditorObra in 'uEditorObra.pas' {fEditorObra: TfEditorObra},
|
uEditorEjecucionObra in 'uEditorEjecucionObra.pas' {fEditorEjecucionObra: TfEditorEjecucionObra},
|
||||||
uEditorListaObras in 'uEditorListaObras.pas' {fEditorListaObras: TfListaObras},
|
uEditorListaObras in 'uEditorListaObras.pas' {fEditorListaObras: TfListaObras},
|
||||||
uViewSubcontrataObra in 'uViewSubcontrataObra.pas' {frViewSubcontrataObra: TFrame},
|
uViewSubcontrataObra in 'uViewSubcontrataObra.pas' {frViewSubcontrataObra: TFrame},
|
||||||
uViewClienteAsociadoObra in 'uViewClienteAsociadoObra.pas' {frViewClienteAsociadoObra: TFrame},
|
uViewClienteAsociadoObra in 'uViewClienteAsociadoObra.pas' {frViewClienteAsociadoObra: TFrame},
|
||||||
@ -51,6 +51,7 @@ contains
|
|||||||
uViewEjecucionObra in 'uViewEjecucionObra.pas' {frViewEjecucionObra: TFrame},
|
uViewEjecucionObra in 'uViewEjecucionObra.pas' {frViewEjecucionObra: TFrame},
|
||||||
uViewListaPedidosProvObra in 'uViewListaPedidosProvObra.pas' {frViewListaPedidosProvObra: TFrame},
|
uViewListaPedidosProvObra in 'uViewListaPedidosProvObra.pas' {frViewListaPedidosProvObra: TFrame},
|
||||||
uViewListaPresupuestosObra in 'uViewListaPresupuestosObra.pas' {frViewListaPresupuestosObra: TFrame},
|
uViewListaPresupuestosObra in 'uViewListaPresupuestosObra.pas' {frViewListaPresupuestosObra: TFrame},
|
||||||
uEditorFechaCierreObra in 'uEditorFechaCierreObra.pas' {fEditorFechaCierreObra: TfEditorFechaCierreObra};
|
uEditorFechaCierreObra in 'uEditorFechaCierreObra.pas' {fEditorFechaCierreObra: TForm},
|
||||||
|
uEditorObra in 'uEditorObra.pas' {fEditorObra: TfEditorObra};
|
||||||
|
|
||||||
end.
|
end.
|
||||||
|
|||||||
@ -1,7 +1,6 @@
|
|||||||
<?xml version="1.0" encoding="utf-8"?>
|
<Project xmlns="http://schemas.microsoft.com/developer/msbuild/2003">
|
||||||
<Project xmlns="http://schemas.microsoft.com/developer/msbuild/2003">
|
|
||||||
<PropertyGroup>
|
<PropertyGroup>
|
||||||
<ProjectGuid>{09ecb9ec-6de2-404d-984b-cc7d73caea9a}</ProjectGuid>
|
<ProjectGuid>{104020b2-9525-4c3c-a798-91682eaa6666}</ProjectGuid>
|
||||||
<MainSource>Obras_view.dpk</MainSource>
|
<MainSource>Obras_view.dpk</MainSource>
|
||||||
<Configuration Condition=" '$(Configuration)' == '' ">Debug</Configuration>
|
<Configuration Condition=" '$(Configuration)' == '' ">Debug</Configuration>
|
||||||
<Platform Condition=" '$(Platform)' == '' ">AnyCPU</Platform>
|
<Platform Condition=" '$(Platform)' == '' ">AnyCPU</Platform>
|
||||||
@ -13,28 +12,19 @@
|
|||||||
<DCC_DebugInformation>False</DCC_DebugInformation>
|
<DCC_DebugInformation>False</DCC_DebugInformation>
|
||||||
<DCC_LocalDebugSymbols>False</DCC_LocalDebugSymbols>
|
<DCC_LocalDebugSymbols>False</DCC_LocalDebugSymbols>
|
||||||
<DCC_SymbolReferenceInfo>0</DCC_SymbolReferenceInfo>
|
<DCC_SymbolReferenceInfo>0</DCC_SymbolReferenceInfo>
|
||||||
<DCC_DcuOutput>.\</DCC_DcuOutput>
|
|
||||||
<DCC_ObjOutput>.\</DCC_ObjOutput>
|
|
||||||
<DCC_HppOutput>.\</DCC_HppOutput>
|
|
||||||
<DCC_BplOutput>..\..\..\..\Output\Debug\Cliente</DCC_BplOutput>
|
|
||||||
<DCC_DcpOutput>..\..\Lib</DCC_DcpOutput>
|
|
||||||
<DCC_UnitSearchPath>..\..\..\Lib;..\..\Lib</DCC_UnitSearchPath>
|
|
||||||
<DCC_ResourcePath>..\..\..\Lib;..\..\Lib</DCC_ResourcePath>
|
|
||||||
<DCC_ObjPath>..\..\..\Lib;..\..\Lib</DCC_ObjPath>
|
|
||||||
<DCC_IncludePath>..\..\..\Lib;..\..\Lib</DCC_IncludePath>
|
|
||||||
<DCC_Define>RELEASE</DCC_Define>
|
<DCC_Define>RELEASE</DCC_Define>
|
||||||
</PropertyGroup>
|
</PropertyGroup>
|
||||||
<PropertyGroup Condition=" '$(Configuration)|$(Platform)' == 'Debug|AnyCPU' ">
|
<PropertyGroup Condition=" '$(Configuration)|$(Platform)' == 'Debug|AnyCPU' ">
|
||||||
<Version>7.0</Version>
|
<Version>7.0</Version>
|
||||||
|
<DCC_BplOutput>..\..\..\..\Output\Debug\Cliente</DCC_BplOutput>
|
||||||
<DCC_DcuOutput>.\</DCC_DcuOutput>
|
<DCC_DcuOutput>.\</DCC_DcuOutput>
|
||||||
<DCC_ObjOutput>.\</DCC_ObjOutput>
|
<DCC_ObjOutput>.\</DCC_ObjOutput>
|
||||||
<DCC_HppOutput>.\</DCC_HppOutput>
|
<DCC_HppOutput>.\</DCC_HppOutput>
|
||||||
<DCC_BplOutput>..\..\..\..\Output\Debug\Cliente</DCC_BplOutput>
|
|
||||||
<DCC_DcpOutput>..\..\Lib</DCC_DcpOutput>
|
|
||||||
<DCC_UnitSearchPath>..\..\..\Lib;..\..\Lib</DCC_UnitSearchPath>
|
<DCC_UnitSearchPath>..\..\..\Lib;..\..\Lib</DCC_UnitSearchPath>
|
||||||
<DCC_ResourcePath>..\..\..\Lib;..\..\Lib</DCC_ResourcePath>
|
<DCC_ResourcePath>..\..\..\Lib;..\..\Lib</DCC_ResourcePath>
|
||||||
<DCC_ObjPath>..\..\..\Lib;..\..\Lib</DCC_ObjPath>
|
<DCC_ObjPath>..\..\..\Lib;..\..\Lib</DCC_ObjPath>
|
||||||
<DCC_IncludePath>..\..\..\Lib;..\..\Lib</DCC_IncludePath>
|
<DCC_IncludePath>..\..\..\Lib;..\..\Lib</DCC_IncludePath>
|
||||||
|
<DCC_DcpOutput>..\..\Lib</DCC_DcpOutput>
|
||||||
</PropertyGroup>
|
</PropertyGroup>
|
||||||
<ProjectExtensions>
|
<ProjectExtensions>
|
||||||
<Borland.Personality>Delphi.Personality</Borland.Personality>
|
<Borland.Personality>Delphi.Personality</Borland.Personality>
|
||||||
@ -47,21 +37,25 @@
|
|||||||
<DelphiCompile Include="Obras_view.dpk">
|
<DelphiCompile Include="Obras_view.dpk">
|
||||||
<MainSource>MainSource</MainSource>
|
<MainSource>MainSource</MainSource>
|
||||||
</DelphiCompile>
|
</DelphiCompile>
|
||||||
<DCCReference Include="..\Controller\View\ApplicationBase.dcp" />
|
<DCCReference Include="ApplicationBase.dcp" />
|
||||||
<DCCReference Include="..\Controller\View\Base.dcp" />
|
<DCCReference Include="Base.dcp" />
|
||||||
<DCCReference Include="..\Controller\View\Contactos_controller.dcp" />
|
<DCCReference Include="Contactos_controller.dcp" />
|
||||||
<DCCReference Include="..\Controller\View\Contactos_model.dcp" />
|
<DCCReference Include="Contactos_model.dcp" />
|
||||||
<DCCReference Include="..\Controller\View\Contactos_view.dcp" />
|
<DCCReference Include="Contactos_view.dcp" />
|
||||||
<DCCReference Include="..\Controller\View\GUIBase.dcp" />
|
<DCCReference Include="GUIBase.dcp" />
|
||||||
<DCCReference Include="..\Controller\View\Obras_controller.dcp" />
|
<DCCReference Include="Obras_controller.dcp" />
|
||||||
<DCCReference Include="..\Controller\View\Obras_model.dcp" />
|
<DCCReference Include="Obras_model.dcp" />
|
||||||
<DCCReference Include="..\Controller\View\PedidosProveedor_controller.dcp" />
|
<DCCReference Include="PedidosProveedor_controller.dcp" />
|
||||||
<DCCReference Include="..\Controller\View\PedidosProveedor_model.dcp" />
|
<DCCReference Include="PedidosProveedor_model.dcp" />
|
||||||
<DCCReference Include="..\Controller\View\PresupuestosCliente_controller.dcp" />
|
<DCCReference Include="PresupuestosCliente_controller.dcp" />
|
||||||
<DCCReference Include="..\Controller\View\PresupuestosCliente_model.dcp" />
|
<DCCReference Include="PresupuestosCliente_model.dcp" />
|
||||||
|
<DCCReference Include="uEditorEjecucionObra.pas">
|
||||||
|
<Form>fEditorEjecucionObra</Form>
|
||||||
|
<DesignClass>TfEditorEjecucionObra</DesignClass>
|
||||||
|
</DCCReference>
|
||||||
<DCCReference Include="uEditorFechaCierreObra.pas">
|
<DCCReference Include="uEditorFechaCierreObra.pas">
|
||||||
<Form>fEditorFechaCierreObra</Form>
|
<Form>fEditorFechaCierreObra</Form>
|
||||||
<DesignClass>TfEditorObra</DesignClass>
|
<DesignClass>TForm</DesignClass>
|
||||||
</DCCReference>
|
</DCCReference>
|
||||||
<DCCReference Include="uEditorListaObras.pas">
|
<DCCReference Include="uEditorListaObras.pas">
|
||||||
<Form>fEditorListaObras</Form>
|
<Form>fEditorListaObras</Form>
|
||||||
@ -110,6 +104,7 @@
|
|||||||
</DCCReference>
|
</DCCReference>
|
||||||
</ItemGroup>
|
</ItemGroup>
|
||||||
</Project>
|
</Project>
|
||||||
|
|
||||||
<!-- EurekaLog First Line
|
<!-- EurekaLog First Line
|
||||||
[Exception Log]
|
[Exception Log]
|
||||||
EurekaLog Version=6011
|
EurekaLog Version=6011
|
||||||
@ -125,7 +120,7 @@ SMTP Port=25
|
|||||||
SMTP UserID=
|
SMTP UserID=
|
||||||
SMTP Password=
|
SMTP Password=
|
||||||
Append to Log=0
|
Append to Log=0
|
||||||
TerminateBtn Operation=1
|
TerminateBtn Operation=2
|
||||||
Errors Number=32
|
Errors Number=32
|
||||||
Errors Terminate=3
|
Errors Terminate=3
|
||||||
Email Address=
|
Email Address=
|
||||||
@ -152,7 +147,7 @@ HTMLLine11=" %3C/tr%3E"
|
|||||||
HTMLLine12=" %3C/table%3E"
|
HTMLLine12=" %3C/table%3E"
|
||||||
HTMLLine13=" %3C/body%3E"
|
HTMLLine13=" %3C/body%3E"
|
||||||
HTMLLine14="%3C/html%3E"
|
HTMLLine14="%3C/html%3E"
|
||||||
AutoCrashOperation=1
|
AutoCrashOperation=2
|
||||||
AutoCrashNumber=10
|
AutoCrashNumber=10
|
||||||
AutoCrashMinutes=1
|
AutoCrashMinutes=1
|
||||||
WebURL=
|
WebURL=
|
||||||
@ -279,7 +274,7 @@ mtQuestionMsgCaption0="Question."
|
|||||||
Count mtErrorMsgCaption=1
|
Count mtErrorMsgCaption=1
|
||||||
mtErrorMsgCaption0="Error."
|
mtErrorMsgCaption0="Error."
|
||||||
Count mtDialog_Caption=1
|
Count mtDialog_Caption=1
|
||||||
mtDialog_Caption0="Error."
|
mtDialog_Caption0="Error occurred"
|
||||||
Count mtDialog_ErrorMsgCaption=2
|
Count mtDialog_ErrorMsgCaption=2
|
||||||
mtDialog_ErrorMsgCaption0="An error has occurred during program execution."
|
mtDialog_ErrorMsgCaption0="An error has occurred during program execution."
|
||||||
mtDialog_ErrorMsgCaption1="Please read the following information for further details."
|
mtDialog_ErrorMsgCaption1="Please read the following information for further details."
|
||||||
@ -340,7 +335,7 @@ mtMSDialog_SeeDetailsCaption0="To see what data the error report contains,"
|
|||||||
Count mtMSDialog_SeeClickCaption=1
|
Count mtMSDialog_SeeClickCaption=1
|
||||||
mtMSDialog_SeeClickCaption0="click here."
|
mtMSDialog_SeeClickCaption0="click here."
|
||||||
Count mtMSDialog_HowToReproduceCaption=1
|
Count mtMSDialog_HowToReproduceCaption=1
|
||||||
mtMSDialog_HowToReproduceCaption0="What were you doing when the problem happended (optional)?"
|
mtMSDialog_HowToReproduceCaption0="What were you doing when the problem happened (optional)?"
|
||||||
Count mtMSDialog_EmailCaption=1
|
Count mtMSDialog_EmailCaption=1
|
||||||
mtMSDialog_EmailCaption0="Email address (optional):"
|
mtMSDialog_EmailCaption0="Email address (optional):"
|
||||||
Count mtMSDialog_SendButtonCaption=1
|
Count mtMSDialog_SendButtonCaption=1
|
||||||
|
|||||||
Binary file not shown.
164
Source/Modulos/Obras/Views/uEditorEjecucionObra.dfm
Normal file
164
Source/Modulos/Obras/Views/uEditorEjecucionObra.dfm
Normal file
@ -0,0 +1,164 @@
|
|||||||
|
inherited fEditorEjecucionObra: TfEditorEjecucionObra
|
||||||
|
Left = 374
|
||||||
|
Top = 273
|
||||||
|
HorzScrollBar.Visible = False
|
||||||
|
VertScrollBar.Visible = False
|
||||||
|
Caption = 'Ficha de obra'
|
||||||
|
ClientWidth = 632
|
||||||
|
Scaled = False
|
||||||
|
OnClose = CustomEditorClose
|
||||||
|
ExplicitWidth = 640
|
||||||
|
PixelsPerInch = 96
|
||||||
|
TextHeight = 13
|
||||||
|
inherited JvNavPanelHeader: TJvNavPanelHeader
|
||||||
|
Width = 632
|
||||||
|
Caption = 'Obra'
|
||||||
|
ExplicitWidth = 632
|
||||||
|
inherited Image1: TImage
|
||||||
|
Left = 605
|
||||||
|
Picture.Data = {
|
||||||
|
0B546478504E47496D61676589504E470D0A1A0A0000000D4948445200000018
|
||||||
|
000000180806000000E0773DF8000000017352474200AECE1CE9000000046741
|
||||||
|
4D410000B18F0BFC6105000000206348524D00007A26000080840000FA000000
|
||||||
|
80E8000075300000EA6000003A98000017709CBA513C00000009704859730000
|
||||||
|
17100000171001186111DB000001C149444154484BED564D4B025114B55D3FA3
|
||||||
|
4DAB7E444449DA0FC8428B3EC032A96428182209A4851F8B4C515A894A8A2DDC
|
||||||
|
B82985A2A581A4B4103547FA5C54532EDAB83B791F8C98683E29770DDCC5CC65
|
||||||
|
CE79E7BC731F6F0080AAAF0F11F4B3FA0ACEDCE9E7EAB9086A6915940A040250
|
||||||
|
8A7E6E7E6FED35F6B69B0202C7E72082C120AAD52A6459462A956244C964128F
|
||||||
|
0F7778975FF1F1F60CF9E509A57285F57A26A09F244942B15884CFE743229160
|
||||||
|
40D1681437B96B94F259940B5954CA0548B705D663E9E455208A2223884422F0
|
||||||
|
FBFDB05AAD30AD9960773AE0F5B8E13970C27BE8C249EC1897E749E432578C9C
|
||||||
|
9BC0303FC7C00541C0E2F21274333AE80D7A4CCFEAA0D6AAA1D14E403D3E8A0D
|
||||||
|
CB265C0E3B22E1506F04B81F83C5B28EED2D01E28EC83CA6A2D5C7E371A6C26C
|
||||||
|
36B3EF93531AECDB6C4C299702B6D1750264EA8912350D700273AFAAA0D4D0F0
|
||||||
|
48A3675C31F211104823AA2DE00A412DBD80F4910ACD04D423122E0514D39F14
|
||||||
|
7422E01FB4FACAC91AA59A9347F6FC8A80C042E10B9C9EE5B1BB17FBE67F378B
|
||||||
|
B814FC13744DD1BF455C165144A928AEADA7EF9FCC8132039DE6808E89764705
|
||||||
|
F71CB45E6B9A55504F39ECDA5D7FBE002E8A0FD064A100E60000000049454E44
|
||||||
|
AE426082}
|
||||||
|
ExplicitLeft = 619
|
||||||
|
ExplicitTop = -3
|
||||||
|
ExplicitHeight = 27
|
||||||
|
end
|
||||||
|
inherited lblDesbloquear: TcxLabel
|
||||||
|
Left = 507
|
||||||
|
ExplicitLeft = 507
|
||||||
|
end
|
||||||
|
end
|
||||||
|
inherited TBXDock: TTBXDock
|
||||||
|
Width = 632
|
||||||
|
ExplicitWidth = 632
|
||||||
|
inherited tbxMain: TTBXToolbar
|
||||||
|
ExplicitWidth = 267
|
||||||
|
inherited TBXItem2: TTBXItem
|
||||||
|
Visible = False
|
||||||
|
end
|
||||||
|
inherited TBXItem5: TTBXItem
|
||||||
|
Visible = False
|
||||||
|
end
|
||||||
|
inherited TBXItem23: TTBXItem
|
||||||
|
Visible = False
|
||||||
|
end
|
||||||
|
inherited TBXItem3: TTBXItem
|
||||||
|
Visible = False
|
||||||
|
end
|
||||||
|
end
|
||||||
|
inherited tbxMenu: TTBXToolbar
|
||||||
|
DockPos = 0
|
||||||
|
ExplicitWidth = 632
|
||||||
|
inherited TBXSubmenuItem4: TTBXSubmenuItem
|
||||||
|
inherited TBXItem8: TTBXItem
|
||||||
|
Visible = False
|
||||||
|
end
|
||||||
|
inherited TBXSeparatorItem5: TTBXSeparatorItem
|
||||||
|
Visible = False
|
||||||
|
end
|
||||||
|
inherited TBXItem10: TTBXItem
|
||||||
|
Visible = False
|
||||||
|
end
|
||||||
|
inherited TBXItem21: TTBXItem
|
||||||
|
Visible = False
|
||||||
|
end
|
||||||
|
inherited TBXItem22: TTBXItem
|
||||||
|
Visible = False
|
||||||
|
end
|
||||||
|
inherited TBXItem9: TTBXItem
|
||||||
|
Visible = False
|
||||||
|
end
|
||||||
|
end
|
||||||
|
inherited TBXSubmenuItem1: TTBXSubmenuItem
|
||||||
|
inherited TBXItem32: TTBXItem
|
||||||
|
Visible = False
|
||||||
|
end
|
||||||
|
inherited TBXItem31: TTBXItem
|
||||||
|
Visible = False
|
||||||
|
end
|
||||||
|
inherited TBXSeparatorItem13: TTBXSeparatorItem
|
||||||
|
Visible = False
|
||||||
|
end
|
||||||
|
end
|
||||||
|
end
|
||||||
|
end
|
||||||
|
inherited pgPaginas: TPageControl
|
||||||
|
Width = 626
|
||||||
|
ExplicitWidth = 626
|
||||||
|
inherited pagGeneral: TTabSheet
|
||||||
|
Caption = 'Datos de la ejecuci'#243'n'
|
||||||
|
ExplicitLeft = 4
|
||||||
|
ExplicitTop = 24
|
||||||
|
ExplicitWidth = 618
|
||||||
|
ExplicitHeight = 332
|
||||||
|
end
|
||||||
|
end
|
||||||
|
inherited StatusBar: TJvStatusBar
|
||||||
|
Width = 632
|
||||||
|
Panels = <
|
||||||
|
item
|
||||||
|
Width = 200
|
||||||
|
end>
|
||||||
|
ExplicitWidth = 632
|
||||||
|
end
|
||||||
|
inherited EditorActionList: TActionList
|
||||||
|
Top = 128
|
||||||
|
inherited actEliminar: TAction
|
||||||
|
Visible = False
|
||||||
|
end
|
||||||
|
end
|
||||||
|
inherited SmallImages: TPngImageList
|
||||||
|
Top = 112
|
||||||
|
end
|
||||||
|
inherited dsDataTable: TDADataSource [6]
|
||||||
|
AutoEdit = False
|
||||||
|
Left = 16
|
||||||
|
Top = 160
|
||||||
|
end
|
||||||
|
inherited LargeImages: TPngImageList [7]
|
||||||
|
Top = 112
|
||||||
|
end
|
||||||
|
inherited JvFormStorage: TJvFormStorage [8]
|
||||||
|
Left = 400
|
||||||
|
Top = 144
|
||||||
|
end
|
||||||
|
inherited JvAppRegistryStorage: TJvAppRegistryStorage
|
||||||
|
Left = 432
|
||||||
|
Top = 144
|
||||||
|
end
|
||||||
|
inherited StatusBarImages: TPngImageList
|
||||||
|
Left = 16
|
||||||
|
Top = 192
|
||||||
|
end
|
||||||
|
object dxLayoutLookAndFeelList1: TdxLayoutLookAndFeelList
|
||||||
|
Left = 16
|
||||||
|
Top = 224
|
||||||
|
object dxLayoutOfficeLookAndFeel1: TdxLayoutOfficeLookAndFeel
|
||||||
|
GroupOptions.CaptionOptions.Font.Charset = DEFAULT_CHARSET
|
||||||
|
GroupOptions.CaptionOptions.Font.Color = clWindowText
|
||||||
|
GroupOptions.CaptionOptions.Font.Height = -11
|
||||||
|
GroupOptions.CaptionOptions.Font.Name = 'Tahoma'
|
||||||
|
GroupOptions.CaptionOptions.Font.Style = [fsBold]
|
||||||
|
GroupOptions.CaptionOptions.TextColor = clHighlight
|
||||||
|
GroupOptions.CaptionOptions.UseDefaultFont = False
|
||||||
|
end
|
||||||
|
end
|
||||||
|
end
|
||||||
189
Source/Modulos/Obras/Views/uEditorEjecucionObra.pas
Normal file
189
Source/Modulos/Obras/Views/uEditorEjecucionObra.pas
Normal file
@ -0,0 +1,189 @@
|
|||||||
|
unit uEditorEjecucionObra;
|
||||||
|
|
||||||
|
interface
|
||||||
|
|
||||||
|
uses
|
||||||
|
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
|
||||||
|
Dialogs, uEditorDBItem, ToolWin, ComCtrls, JvExControls, JvComponent,
|
||||||
|
uViewObra, uBizObras, JvNavigationPane, ActnList,
|
||||||
|
uEditorBase, StdActns, TB2Dock, TB2Toolbar, TBX, ImgList, PngImageList,
|
||||||
|
TB2Item, uEditorItem, DB, uDADataTable, uEditorDBBase, JvFormAutoSize,
|
||||||
|
uDAScriptingProvider, uDACDSDataTable, StdCtrls, pngimage, ExtCtrls,
|
||||||
|
TBXDkPanels, JvButton, AppEvnts, uCustomView, uViewBase,
|
||||||
|
JvAppStorage, JvAppRegistryStorage, JvFormPlacement, JvComponentBase,
|
||||||
|
|
||||||
|
uViewObras, uIEditorEjecucionObra, uObrasController, JvExComCtrls,
|
||||||
|
JvStatusBar, dxLayoutLookAndFeels, uDAInterfaces, dxGDIPlusClasses,
|
||||||
|
cxControls, cxContainer, cxEdit, cxLabel, uViewDetallesGenerico,
|
||||||
|
uViewListaEjecucionesObra, uViewEjecucionObra, Grids, DBGrids;
|
||||||
|
|
||||||
|
type
|
||||||
|
TfEditorEjecucionObra = class(TfEditorDBItem, IEditorEjecucionObra)
|
||||||
|
dxLayoutLookAndFeelList1: TdxLayoutLookAndFeelList;
|
||||||
|
dxLayoutOfficeLookAndFeel1: TdxLayoutOfficeLookAndFeel;
|
||||||
|
procedure FormShow(Sender: TObject);
|
||||||
|
procedure CustomEditorClose(Sender: TObject; var Action: TCloseAction);
|
||||||
|
protected
|
||||||
|
FController : IObrasController;
|
||||||
|
FObra: IBizObra;
|
||||||
|
FViewEjecucionActual: IViewEjecucionObra;
|
||||||
|
|
||||||
|
function GetController : IObrasController;
|
||||||
|
procedure SetController (const Value : IObrasController); virtual;
|
||||||
|
function GetObra: IBizObra; virtual;
|
||||||
|
procedure SetObra(const Value: IBizObra); virtual;
|
||||||
|
|
||||||
|
procedure GuardarInterno; override;
|
||||||
|
procedure EliminarInterno; override;
|
||||||
|
|
||||||
|
procedure PonerTitulos(const ATitulo: string = ''); override;
|
||||||
|
|
||||||
|
//Si queremos crear otra vista para el editor heredado solo tendriamos que
|
||||||
|
//sobreescribir este metodo
|
||||||
|
procedure AsignarVista; virtual;
|
||||||
|
|
||||||
|
public
|
||||||
|
property Obra: IBizObra read GetObra write SetObra;
|
||||||
|
constructor Create(AOwner: TComponent); override;
|
||||||
|
destructor Destroy; override;
|
||||||
|
end;
|
||||||
|
|
||||||
|
implementation
|
||||||
|
|
||||||
|
{$R *.dfm}
|
||||||
|
|
||||||
|
uses
|
||||||
|
uCustomEditor, uDataModuleObras, uDataModuleBase, uDialogUtils;
|
||||||
|
|
||||||
|
{function ShowEditorObra (ABizObject : TDADataTableRules): TModalResult;
|
||||||
|
var
|
||||||
|
AEditor: TfEditorObra;
|
||||||
|
begin
|
||||||
|
AEditor := TfEditorObra.Create(Application);
|
||||||
|
try
|
||||||
|
AEditor.Obra := (ABizObject as IBizObra);
|
||||||
|
Result := AEditor.ShowModal;
|
||||||
|
finally
|
||||||
|
AEditor.Release;
|
||||||
|
end;
|
||||||
|
end;}
|
||||||
|
|
||||||
|
{
|
||||||
|
******************************* TfEditorObra *******************************
|
||||||
|
}
|
||||||
|
function TfEditorEjecucionObra.GetObra: IBizObra;
|
||||||
|
begin
|
||||||
|
Result := FObra;
|
||||||
|
end;
|
||||||
|
|
||||||
|
function TfEditorEjecucionObra.GetController: IObrasController;
|
||||||
|
begin
|
||||||
|
Result := FController;
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TfEditorEjecucionObra.GuardarInterno;
|
||||||
|
begin
|
||||||
|
inherited;
|
||||||
|
|
||||||
|
FController.Guardar(FObra);
|
||||||
|
Modified := False;
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TfEditorEjecucionObra.PonerTitulos(const ATitulo: string);
|
||||||
|
var
|
||||||
|
FTitulo : String;
|
||||||
|
begin
|
||||||
|
if Assigned(Obra) then
|
||||||
|
begin
|
||||||
|
if Obra.EsNuevo then
|
||||||
|
FTitulo := 'Nueva ejecución de obra'
|
||||||
|
else
|
||||||
|
FTitulo := 'Ejecución de la obra' + ' - ' + Obra.NOMBRE;
|
||||||
|
end;
|
||||||
|
|
||||||
|
inherited PonerTitulos(FTitulo);
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TfEditorEjecucionObra.SetObra(const Value: IBizObra);
|
||||||
|
begin
|
||||||
|
FObra := Value;
|
||||||
|
dsDataTable.DataTable := FObra.DataTable;
|
||||||
|
|
||||||
|
if Assigned(FViewEjecucionActual) and Assigned(FObra) then
|
||||||
|
begin
|
||||||
|
FViewEjecucionActual.Obra := FObra;
|
||||||
|
end
|
||||||
|
else
|
||||||
|
FViewEjecucionActual.Obra := NIL;
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TfEditorEjecucionObra.SetController(const Value: IObrasController);
|
||||||
|
begin
|
||||||
|
FController := Value;
|
||||||
|
if Assigned(FViewEjecucionActual) and Assigned(FController) then
|
||||||
|
FViewEjecucionActual.Controller := FController;
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TfEditorEjecucionObra.FormShow(Sender: TObject);
|
||||||
|
begin
|
||||||
|
inherited;
|
||||||
|
|
||||||
|
if not Assigned(FViewEjecucionActual) then
|
||||||
|
raise Exception.Create('No hay ninguna vista asignada');
|
||||||
|
|
||||||
|
if not Assigned(Obra) then
|
||||||
|
raise Exception.Create('No hay ninguna obra asignada');
|
||||||
|
|
||||||
|
Obra.DataTable.Active := True;
|
||||||
|
ReadOnly := True;
|
||||||
|
FViewEjecucionActual.ReadOnly := True;
|
||||||
|
end;
|
||||||
|
|
||||||
|
destructor TfEditorEjecucionObra.Destroy;
|
||||||
|
begin
|
||||||
|
// Utilizar mejor OnClose;
|
||||||
|
inherited;
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TfEditorEjecucionObra.AsignarVista;
|
||||||
|
var
|
||||||
|
AViewEjecucion: TfrViewEjecucionObra;
|
||||||
|
begin
|
||||||
|
AViewEjecucion := TfrViewEjecucionObra.Create(NIL);
|
||||||
|
|
||||||
|
with AViewEjecucion do
|
||||||
|
begin
|
||||||
|
Parent := pagGeneral;
|
||||||
|
Align := alClient;
|
||||||
|
dxLayoutControlEjecucionObra.LookAndFeel := dxLayoutOfficeLookAndFeel1;
|
||||||
|
Controller := FController;
|
||||||
|
Obra := FObra;
|
||||||
|
|
||||||
|
end;
|
||||||
|
FViewEjecucionActual := AViewEjecucion;
|
||||||
|
end;
|
||||||
|
|
||||||
|
constructor TfEditorEjecucionObra.Create(AOwner: TComponent);
|
||||||
|
begin
|
||||||
|
inherited;
|
||||||
|
pgPaginas.ActivePage := pagGeneral;
|
||||||
|
FViewEjecucionActual := NIL;
|
||||||
|
AsignarVista;
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TfEditorEjecucionObra.CustomEditorClose(Sender: TObject;
|
||||||
|
var Action: TCloseAction);
|
||||||
|
begin
|
||||||
|
inherited;
|
||||||
|
dsDataTable.DataTable := NIL;
|
||||||
|
FViewEjecucionActual := NIL;
|
||||||
|
FObra := NIL;
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TfEditorEjecucionObra.EliminarInterno;
|
||||||
|
begin
|
||||||
|
//
|
||||||
|
end;
|
||||||
|
|
||||||
|
end.
|
||||||
|
|
||||||
@ -117,11 +117,9 @@ inherited fEditorObra: TfEditorObra
|
|||||||
end
|
end
|
||||||
inherited pgPaginas: TPageControl
|
inherited pgPaginas: TPageControl
|
||||||
Width = 626
|
Width = 626
|
||||||
Height = 318
|
|
||||||
ActivePage = pagListaEjecuciones
|
ActivePage = pagListaEjecuciones
|
||||||
OnChange = pgPaginasChange
|
OnChange = pgPaginasChange
|
||||||
ExplicitWidth = 626
|
ExplicitWidth = 626
|
||||||
ExplicitHeight = 318
|
|
||||||
inherited pagGeneral: TTabSheet
|
inherited pagGeneral: TTabSheet
|
||||||
ExplicitLeft = 4
|
ExplicitLeft = 4
|
||||||
ExplicitTop = 24
|
ExplicitTop = 24
|
||||||
@ -134,7 +132,7 @@ inherited fEditorObra: TfEditorObra
|
|||||||
ExplicitLeft = 0
|
ExplicitLeft = 0
|
||||||
ExplicitTop = 0
|
ExplicitTop = 0
|
||||||
ExplicitWidth = 0
|
ExplicitWidth = 0
|
||||||
ExplicitHeight = 0
|
ExplicitHeight = 290
|
||||||
end
|
end
|
||||||
object pagListaEjecuciones: TTabSheet
|
object pagListaEjecuciones: TTabSheet
|
||||||
Caption = 'Lista de ejecuciones'
|
Caption = 'Lista de ejecuciones'
|
||||||
@ -143,7 +141,7 @@ inherited fEditorObra: TfEditorObra
|
|||||||
Left = 0
|
Left = 0
|
||||||
Top = 0
|
Top = 0
|
||||||
Width = 618
|
Width = 618
|
||||||
Height = 290
|
Height = 332
|
||||||
Align = alClient
|
Align = alClient
|
||||||
Font.Charset = DEFAULT_CHARSET
|
Font.Charset = DEFAULT_CHARSET
|
||||||
Font.Color = clWindowText
|
Font.Color = clWindowText
|
||||||
@ -154,12 +152,12 @@ inherited fEditorObra: TfEditorObra
|
|||||||
TabOrder = 0
|
TabOrder = 0
|
||||||
ReadOnly = False
|
ReadOnly = False
|
||||||
ExplicitWidth = 618
|
ExplicitWidth = 618
|
||||||
ExplicitHeight = 290
|
ExplicitHeight = 332
|
||||||
inherited cxGrid: TcxGrid
|
inherited cxGrid: TcxGrid
|
||||||
Width = 618
|
Width = 618
|
||||||
Height = 265
|
Height = 307
|
||||||
ExplicitWidth = 618
|
ExplicitWidth = 618
|
||||||
ExplicitHeight = 265
|
ExplicitHeight = 307
|
||||||
inherited cxGridView: TcxGridDBTableView
|
inherited cxGridView: TcxGridDBTableView
|
||||||
DataController.Summary.FooterSummaryItems = <
|
DataController.Summary.FooterSummaryItems = <
|
||||||
item
|
item
|
||||||
@ -191,21 +189,6 @@ inherited fEditorObra: TfEditorObra
|
|||||||
end>
|
end>
|
||||||
ExplicitWidth = 632
|
ExplicitWidth = 632
|
||||||
end
|
end
|
||||||
object DBGrid1: TDBGrid [4]
|
|
||||||
Left = 0
|
|
||||||
Top = 400
|
|
||||||
Width = 632
|
|
||||||
Height = 42
|
|
||||||
Align = alBottom
|
|
||||||
DataSource = dsEjecucionActiva
|
|
||||||
TabOrder = 4
|
|
||||||
TitleFont.Charset = DEFAULT_CHARSET
|
|
||||||
TitleFont.Color = clWindowText
|
|
||||||
TitleFont.Height = -11
|
|
||||||
TitleFont.Name = 'Tahoma'
|
|
||||||
TitleFont.Style = []
|
|
||||||
Visible = False
|
|
||||||
end
|
|
||||||
inherited EditorActionList: TActionList
|
inherited EditorActionList: TActionList
|
||||||
Top = 128
|
Top = 128
|
||||||
object actNuevaEjecucion: TAction
|
object actNuevaEjecucion: TAction
|
||||||
@ -224,14 +207,14 @@ inherited fEditorObra: TfEditorObra
|
|||||||
inherited SmallImages: TPngImageList
|
inherited SmallImages: TPngImageList
|
||||||
Top = 112
|
Top = 112
|
||||||
end
|
end
|
||||||
inherited dsDataTable: TDADataSource [7]
|
inherited dsDataTable: TDADataSource [6]
|
||||||
Left = 16
|
Left = 16
|
||||||
Top = 160
|
Top = 160
|
||||||
end
|
end
|
||||||
inherited LargeImages: TPngImageList [8]
|
inherited LargeImages: TPngImageList [7]
|
||||||
Top = 112
|
Top = 112
|
||||||
end
|
end
|
||||||
inherited JvFormStorage: TJvFormStorage [9]
|
inherited JvFormStorage: TJvFormStorage [8]
|
||||||
Left = 400
|
Left = 400
|
||||||
Top = 144
|
Top = 144
|
||||||
end
|
end
|
||||||
|
|||||||
@ -29,7 +29,6 @@ type
|
|||||||
TBXSubmenuItem2: TTBXSubmenuItem;
|
TBXSubmenuItem2: TTBXSubmenuItem;
|
||||||
TBXItem7: TTBXItem;
|
TBXItem7: TTBXItem;
|
||||||
TBXItem33: TTBXItem;
|
TBXItem33: TTBXItem;
|
||||||
DBGrid1: TDBGrid;
|
|
||||||
dsEjecucionActiva: TDADataSource;
|
dsEjecucionActiva: TDADataSource;
|
||||||
TBXItem34: TTBXItem;
|
TBXItem34: TTBXItem;
|
||||||
TBXItem35: TTBXItem;
|
TBXItem35: TTBXItem;
|
||||||
@ -163,8 +162,8 @@ begin
|
|||||||
begin
|
begin
|
||||||
FViewObra.Obra := FObra;
|
FViewObra.Obra := FObra;
|
||||||
dsEjecucionActiva.DataTable := FObra.Ejecuciones.DataTable;
|
dsEjecucionActiva.DataTable := FObra.Ejecuciones.DataTable;
|
||||||
|
frViewListaEjecucionesObra1.Obra := FObra;
|
||||||
frViewListaEjecucionesObra1.dsDetalles.DataTable := FObra.Ejecuciones.DataTable;
|
frViewListaEjecucionesObra1.Controller := FController;
|
||||||
|
|
||||||
if FController.LocalizarEjecucionActiva(FObra.Ejecuciones) then
|
if FController.LocalizarEjecucionActiva(FObra.Ejecuciones) then
|
||||||
AsignarVistaEjecucion
|
AsignarVistaEjecucion
|
||||||
@ -172,7 +171,7 @@ begin
|
|||||||
else begin
|
else begin
|
||||||
FViewObra.Obra := NIL;
|
FViewObra.Obra := NIL;
|
||||||
dsEjecucionActiva.DataTable := NIL;
|
dsEjecucionActiva.DataTable := NIL;
|
||||||
frViewListaEjecucionesObra1.dsDetalles.DataTable := NIL;
|
frViewListaEjecucionesObra1.Obra := NIL;
|
||||||
end;
|
end;
|
||||||
ActualizarPestanas;
|
ActualizarPestanas;
|
||||||
end;
|
end;
|
||||||
|
|||||||
@ -9,7 +9,7 @@ implementation
|
|||||||
|
|
||||||
uses
|
uses
|
||||||
uEditorRegistryUtils, uEditorObras, uEditorObra, uEditorListaObras,
|
uEditorRegistryUtils, uEditorObras, uEditorObra, uEditorListaObras,
|
||||||
uEditorFechaCierreObra;
|
uEditorFechaCierreObra, uEditorEjecucionObra;
|
||||||
|
|
||||||
procedure RegisterViews;
|
procedure RegisterViews;
|
||||||
begin
|
begin
|
||||||
@ -17,6 +17,7 @@ begin
|
|||||||
EditorRegistry.RegisterClass(TfEditorObras, 'EditorObras');
|
EditorRegistry.RegisterClass(TfEditorObras, 'EditorObras');
|
||||||
EditorRegistry.RegisterClass(TfEditorListaObras, 'EditorListaObras');
|
EditorRegistry.RegisterClass(TfEditorListaObras, 'EditorListaObras');
|
||||||
EditorRegistry.RegisterClass(TfEditorFechaCierreObra, 'EditorFechaCierreObra');
|
EditorRegistry.RegisterClass(TfEditorFechaCierreObra, 'EditorFechaCierreObra');
|
||||||
|
EditorRegistry.RegisterClass(TfEditorEjecucionObra, 'EditorEjecucionObra');
|
||||||
end;
|
end;
|
||||||
|
|
||||||
procedure UnregisterViews;
|
procedure UnregisterViews;
|
||||||
@ -25,6 +26,7 @@ begin
|
|||||||
EditorRegistry.UnRegisterClass(TfEditorObras);
|
EditorRegistry.UnRegisterClass(TfEditorObras);
|
||||||
EditorRegistry.UnRegisterClass(TfEditorListaObras);
|
EditorRegistry.UnRegisterClass(TfEditorListaObras);
|
||||||
EditorRegistry.UnRegisterClass(TfEditorFechaCierreObra);
|
EditorRegistry.UnRegisterClass(TfEditorFechaCierreObra);
|
||||||
|
EditorRegistry.UnRegisterClass(TfEditorEjecucionObra);
|
||||||
end;
|
end;
|
||||||
|
|
||||||
end.
|
end.
|
||||||
|
|||||||
@ -86,19 +86,31 @@ inherited frViewListaEjecucionesObra: TfrViewListaEjecucionesObra
|
|||||||
end
|
end
|
||||||
inherited ToolBar1: TToolBar
|
inherited ToolBar1: TToolBar
|
||||||
Width = 697
|
Width = 697
|
||||||
|
ButtonWidth = 133
|
||||||
ExplicitWidth = 697
|
ExplicitWidth = 697
|
||||||
inherited ToolButton1: TToolButton
|
inherited ToolButton1: TToolButton
|
||||||
ExplicitWidth = 62
|
ExplicitWidth = 62
|
||||||
end
|
end
|
||||||
inherited ToolButton4: TToolButton
|
inherited ToolButton4: TToolButton
|
||||||
Visible = False
|
ExplicitWidth = 137
|
||||||
ExplicitWidth = 74
|
end
|
||||||
|
inherited ToolButton5: TToolButton
|
||||||
|
Left = 199
|
||||||
|
ExplicitLeft = 199
|
||||||
end
|
end
|
||||||
inherited ToolButton2: TToolButton
|
inherited ToolButton2: TToolButton
|
||||||
|
Left = 207
|
||||||
Visible = False
|
Visible = False
|
||||||
|
ExplicitLeft = 207
|
||||||
ExplicitWidth = 67
|
ExplicitWidth = 67
|
||||||
end
|
end
|
||||||
|
inherited ToolButton6: TToolButton
|
||||||
|
Left = 274
|
||||||
|
ExplicitLeft = 274
|
||||||
|
end
|
||||||
inherited ToolButton7: TToolButton
|
inherited ToolButton7: TToolButton
|
||||||
|
Left = 282
|
||||||
|
ExplicitLeft = 282
|
||||||
ExplicitWidth = 117
|
ExplicitWidth = 117
|
||||||
end
|
end
|
||||||
end
|
end
|
||||||
@ -107,5 +119,8 @@ inherited frViewListaEjecucionesObra: TfrViewListaEjecucionesObra
|
|||||||
Enabled = False
|
Enabled = False
|
||||||
Visible = False
|
Visible = False
|
||||||
end
|
end
|
||||||
|
inherited actModificar: TAction
|
||||||
|
Caption = 'Consultar ejecuci'#243'n...'
|
||||||
|
end
|
||||||
end
|
end
|
||||||
end
|
end
|
||||||
|
|||||||
@ -9,11 +9,18 @@ uses
|
|||||||
uDAInterfaces, uDADataTable, ComCtrls, ToolWin, cxGridLevel,
|
uDAInterfaces, uDADataTable, ComCtrls, ToolWin, cxGridLevel,
|
||||||
cxGridCustomTableView, cxGridTableView, cxGridDBTableView, cxClasses,
|
cxGridCustomTableView, cxGridTableView, cxGridDBTableView, cxClasses,
|
||||||
cxControls, cxGridCustomView, cxGrid, uBizObras, cxCalendar, cxTextEdit,
|
cxControls, cxGridCustomView, cxGrid, uBizObras, cxCalendar, cxTextEdit,
|
||||||
cxCurrencyEdit;
|
cxCurrencyEdit, uObrasController;
|
||||||
|
|
||||||
type
|
type
|
||||||
IViewListaEjecucionesObra = interface(IViewDetallesGenerico)
|
IViewListaEjecucionesObra = interface(IViewDetallesGenerico)
|
||||||
['{EBDB67B7-145D-45D4-9C9D-384FD06686D0}']
|
['{EBDB67B7-145D-45D4-9C9D-384FD06686D0}']
|
||||||
|
function GetObra: IBizObra;
|
||||||
|
procedure SetObra(const Value: IBizObra);
|
||||||
|
property Obra: IBizObra read GetObra write SetObra;
|
||||||
|
|
||||||
|
function GetController : IObrasController;
|
||||||
|
procedure SetController (const Value : IObrasController);
|
||||||
|
property Controller : IObrasController read GetController write SetController;
|
||||||
end;
|
end;
|
||||||
|
|
||||||
TfrViewListaEjecucionesObra = class(TfrViewDetallesGenerico, IViewListaEjecucionesObra)
|
TfrViewListaEjecucionesObra = class(TfrViewDetallesGenerico, IViewListaEjecucionesObra)
|
||||||
@ -24,18 +31,35 @@ type
|
|||||||
cxGridViewIMPORTE_INGRESOS: TcxGridDBColumn;
|
cxGridViewIMPORTE_INGRESOS: TcxGridDBColumn;
|
||||||
cxGridViewIMPORTE_TOTAL: TcxGridDBColumn;
|
cxGridViewIMPORTE_TOTAL: TcxGridDBColumn;
|
||||||
procedure CustomViewCreate(Sender: TObject);
|
procedure CustomViewCreate(Sender: TObject);
|
||||||
|
procedure actModificarExecute(Sender: TObject);
|
||||||
private
|
private
|
||||||
|
FObrasController : IObrasController;
|
||||||
|
FObra : IBizObra;
|
||||||
|
FEjecuciones : IBizEjecucionesObra;
|
||||||
|
|
||||||
function AddFilterGrid(
|
function AddFilterGrid(
|
||||||
const Operacion: tcxFilterBoolOperatorKind): TcxFilterCriteriaItemList;
|
const Operacion: tcxFilterBoolOperatorKind): TcxFilterCriteriaItemList;
|
||||||
{ Private declarations }
|
|
||||||
|
function GetObra: IBizObra;
|
||||||
|
procedure SetObra(const Value: IBizObra);
|
||||||
|
|
||||||
|
function GetController : IObrasController;
|
||||||
|
procedure SetController (const Value : IObrasController);
|
||||||
public
|
public
|
||||||
{ Public declarations }
|
property Obra: IBizObra read GetObra write SetObra;
|
||||||
|
property Controller : IObrasController read GetController write SetController;
|
||||||
end;
|
end;
|
||||||
|
|
||||||
implementation
|
implementation
|
||||||
|
|
||||||
{$R *.dfm}
|
{$R *.dfm}
|
||||||
|
|
||||||
|
procedure TfrViewListaEjecucionesObra.actModificarExecute(Sender: TObject);
|
||||||
|
begin
|
||||||
|
inherited;
|
||||||
|
FObrasController.VerEjecucion(FObra);
|
||||||
|
end;
|
||||||
|
|
||||||
function TfrViewListaEjecucionesObra.AddFilterGrid(const Operacion: tcxFilterBoolOperatorKind): TcxFilterCriteriaItemList;
|
function TfrViewListaEjecucionesObra.AddFilterGrid(const Operacion: tcxFilterBoolOperatorKind): TcxFilterCriteriaItemList;
|
||||||
var
|
var
|
||||||
AItemList: TcxFilterCriteriaItemList;
|
AItemList: TcxFilterCriteriaItemList;
|
||||||
@ -56,4 +80,37 @@ begin
|
|||||||
cxGridView.DataController.Filter.Active := True;
|
cxGridView.DataController.Filter.Active := True;
|
||||||
end;
|
end;
|
||||||
|
|
||||||
|
function TfrViewListaEjecucionesObra.GetController: IObrasController;
|
||||||
|
begin
|
||||||
|
Result := FObrasController;
|
||||||
|
end;
|
||||||
|
|
||||||
|
function TfrViewListaEjecucionesObra.GetObra: IBizObra;
|
||||||
|
begin
|
||||||
|
Result := FObra;
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TfrViewListaEjecucionesObra.SetController(
|
||||||
|
const Value: IObrasController);
|
||||||
|
begin
|
||||||
|
FObrasController := Value;
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TfrViewListaEjecucionesObra.SetObra(const Value: IBizObra);
|
||||||
|
begin
|
||||||
|
FObra := Value;
|
||||||
|
|
||||||
|
if Assigned(FObra) then
|
||||||
|
begin
|
||||||
|
FObra.Active := True;
|
||||||
|
FEjecuciones := FObra.Ejecuciones;
|
||||||
|
dsDetalles.DataTable := FEjecuciones.DataTable;
|
||||||
|
end
|
||||||
|
else begin
|
||||||
|
FObra := NIL;
|
||||||
|
FEjecuciones := NIL;
|
||||||
|
dsDetalles.DataTable := NIL;
|
||||||
|
end;
|
||||||
|
end;
|
||||||
|
|
||||||
end.
|
end.
|
||||||
|
|||||||
Binary file not shown.
@ -1,305 +1,305 @@
|
|||||||
<?xml version="1.0" encoding="utf-8"?>
|
<?xml version="1.0" encoding="utf-8"?>
|
||||||
<Project xmlns="http://schemas.microsoft.com/developer/msbuild/2003">
|
<Project xmlns="http://schemas.microsoft.com/developer/msbuild/2003">
|
||||||
<PropertyGroup>
|
<PropertyGroup>
|
||||||
<ProjectGuid>{ebdcd25d-40d7-4146-91ec-a0ea4aa1dcd1}</ProjectGuid>
|
<ProjectGuid>{ebdcd25d-40d7-4146-91ec-a0ea4aa1dcd1}</ProjectGuid>
|
||||||
<MainSource>FactuGES_Server.dpr</MainSource>
|
<MainSource>FactuGES_Server.dpr</MainSource>
|
||||||
<Configuration Condition=" '$(Configuration)' == '' ">Debug</Configuration>
|
<Configuration Condition=" '$(Configuration)' == '' ">Debug</Configuration>
|
||||||
<Platform Condition=" '$(Platform)' == '' ">AnyCPU</Platform>
|
<Platform Condition=" '$(Platform)' == '' ">AnyCPU</Platform>
|
||||||
<DCC_DCCCompiler>DCC32</DCC_DCCCompiler>
|
<DCC_DCCCompiler>DCC32</DCC_DCCCompiler>
|
||||||
<DCC_DependencyCheckOutputName>..\..\Output\Debug\Servidor\FactuGES_Server.exe</DCC_DependencyCheckOutputName>
|
<DCC_DependencyCheckOutputName>..\..\Output\Debug\Servidor\FactuGES_Server.exe</DCC_DependencyCheckOutputName>
|
||||||
<DCC_UsePackage>vcl;rtl;vclx;vclactnband;dbrtl;vcldb;vcldbx;bdertl;dsnap;dsnapcon;teeUI;teedb;tee;adortl;vclib;ibxpress;dbxcds;dbexpress;DbxCommonDriver;IndyCore;IndySystem;IndyProtocols;VclSmp;vclie;webdsnap;xmlrtl;inet;inetdbbde;inetdbxpress;RemObjects_BPDX_D11;RemObjects_RODX_D11;RemObjects_Indy_D11;RemObjects_Synapse_D11;RemObjects_WebBroker_D11;DataAbstract_Core_D11;DataAbstract_DBXDriver_D11;DataAbstract_IDE_D11;DataAbstract_Scripting_D11;DataAbstract_SDACDriver_D11;sdac105;dac105;DataAbstract_SQLiteDriver_D11;cxEditorsD10;cxLibraryD10;dxThemeD10;cxDataD10;cxExtEditorsD10;cxGridD10;cxPageControlD10;cxSchedulerD10;cxTreeListD10;cxVerticalGridD10;dxBarD10;dxComnD10;dxBarDBNavD10;dxBarExtDBItemsD10;dxBarExtItemsD10;dxDockingD10;dxLayoutControlD10;dxNavBarD10;dxPSCoreD10;dxsbD10;dxPScxCommonD10;dxPSLnksD10;vclshlctrls;dxPScxExtCommonD10;dxPScxGridLnkD10;dxPScxPCProdD10;dxPScxScheduler2LnkD10;dxPScxTLLnkD10;dxPSdxLCLnkD10;dxPsPrVwAdvD10;pckMD5;pckUCDataConnector;pckUserControl_RT;PluginSDK_D10R;PNG_D10;PngComponentsD10;tb2k_d10;tbx_d10;JclVcl;Jcl;JvXPCtrlsD11R;JvCoreD11R;JvSystemD11R;JvStdCtrlsD11R;JvAppFrmD11R;JvBandsD11R;JvDBD11R;JvDlgsD11R;JvBDED11R;JvCmpD11R;JvCryptD11R;JvCtrlsD11R;JvCustomD11R;JvDockingD11R;JvDotNetCtrlsD11R;JvEDID11R;JvGlobusD11R;JvHMID11R;JvInterpreterD11R;JvJansD11R;JvManagedThreadsD11R;JvMMD11R;JvNetD11R;JvPageCompsD11R;JvPluginD11R;JvPrintPreviewD11R;JvRuntimeDesignD11R;JvTimeFrameworkD11R;JvUIBD11R;JvValidatorsD11R;JvWizardD11R;pckUCADOConn;pckUCBDEConn;pckUCIBXConn;pckUCMidasConn;cxIntlPrintSys3D10;cxExportD10;cxIntl5D10;GUISDK_D11;ccpackD11;JSDialog100;fsTee11;fs11;frx11;frxADO11;frxBDE11;frxDB11;frxDBX11;frxe11;frxIBX11;frxTee11;fsADO11;fsBDE11;fsDB11;fsIBX11;websnap;soaprtl;IntrawebDB_90_100;Intraweb_90_100</DCC_UsePackage>
|
<DCC_UsePackage>vcl;rtl;vclx;vclactnband;dbrtl;vcldb;vcldbx;bdertl;dsnap;dsnapcon;teeUI;teedb;tee;adortl;vclib;ibxpress;dbxcds;dbexpress;DbxCommonDriver;IndyCore;IndySystem;IndyProtocols;VclSmp;vclie;webdsnap;xmlrtl;inet;inetdbbde;inetdbxpress;RemObjects_BPDX_D11;RemObjects_RODX_D11;RemObjects_Indy_D11;RemObjects_Synapse_D11;RemObjects_WebBroker_D11;DataAbstract_Core_D11;DataAbstract_DBXDriver_D11;DataAbstract_IDE_D11;DataAbstract_Scripting_D11;DataAbstract_SDACDriver_D11;sdac105;dac105;DataAbstract_SQLiteDriver_D11;cxEditorsD10;cxLibraryD10;dxThemeD10;cxDataD10;cxExtEditorsD10;cxGridD10;cxPageControlD10;cxSchedulerD10;cxTreeListD10;cxVerticalGridD10;dxBarD10;dxComnD10;dxBarDBNavD10;dxBarExtDBItemsD10;dxBarExtItemsD10;dxDockingD10;dxLayoutControlD10;dxNavBarD10;dxPSCoreD10;dxsbD10;dxPScxCommonD10;dxPSLnksD10;vclshlctrls;dxPScxExtCommonD10;dxPScxGridLnkD10;dxPScxPCProdD10;dxPScxScheduler2LnkD10;dxPScxTLLnkD10;dxPSdxLCLnkD10;dxPsPrVwAdvD10;pckMD5;pckUCDataConnector;pckUserControl_RT;PluginSDK_D10R;PNG_D10;PngComponentsD10;tb2k_d10;tbx_d10;JclVcl;Jcl;JvXPCtrlsD11R;JvCoreD11R;JvSystemD11R;JvStdCtrlsD11R;JvAppFrmD11R;JvBandsD11R;JvDBD11R;JvDlgsD11R;JvBDED11R;JvCmpD11R;JvCryptD11R;JvCtrlsD11R;JvCustomD11R;JvDockingD11R;JvDotNetCtrlsD11R;JvEDID11R;JvGlobusD11R;JvHMID11R;JvInterpreterD11R;JvJansD11R;JvManagedThreadsD11R;JvMMD11R;JvNetD11R;JvPageCompsD11R;JvPluginD11R;JvPrintPreviewD11R;JvRuntimeDesignD11R;JvTimeFrameworkD11R;JvUIBD11R;JvValidatorsD11R;JvWizardD11R;pckUCADOConn;pckUCBDEConn;pckUCIBXConn;pckUCMidasConn;cxIntlPrintSys3D10;cxExportD10;cxIntl5D10;GUISDK_D11;ccpackD11;JSDialog100;fsTee11;fs11;frx11;frxADO11;frxBDE11;frxDB11;frxDBX11;frxe11;frxIBX11;frxTee11;fsADO11;fsBDE11;fsDB11;fsIBX11;websnap;soaprtl;IntrawebDB_90_100;Intraweb_90_100</DCC_UsePackage>
|
||||||
</PropertyGroup>
|
</PropertyGroup>
|
||||||
<PropertyGroup Condition=" '$(Configuration)|$(Platform)' == 'Release|AnyCPU' ">
|
<PropertyGroup Condition=" '$(Configuration)|$(Platform)' == 'Release|AnyCPU' ">
|
||||||
<Version>7.0</Version>
|
<Version>7.0</Version>
|
||||||
<DCC_DebugInformation>False</DCC_DebugInformation>
|
<DCC_DebugInformation>False</DCC_DebugInformation>
|
||||||
<DCC_LocalDebugSymbols>False</DCC_LocalDebugSymbols>
|
<DCC_LocalDebugSymbols>False</DCC_LocalDebugSymbols>
|
||||||
<DCC_SymbolReferenceInfo>0</DCC_SymbolReferenceInfo>
|
<DCC_SymbolReferenceInfo>0</DCC_SymbolReferenceInfo>
|
||||||
<DCC_MapFile>3</DCC_MapFile>
|
<DCC_MapFile>3</DCC_MapFile>
|
||||||
<DCC_ExeOutput>..\..\Output\Release\Servidor</DCC_ExeOutput>
|
<DCC_ExeOutput>..\..\Output\Release\Servidor</DCC_ExeOutput>
|
||||||
<DCC_Define>RELEASE</DCC_Define>
|
<DCC_Define>RELEASE</DCC_Define>
|
||||||
</PropertyGroup>
|
</PropertyGroup>
|
||||||
<PropertyGroup Condition=" '$(Configuration)|$(Platform)' == 'Debug|AnyCPU' ">
|
<PropertyGroup Condition=" '$(Configuration)|$(Platform)' == 'Debug|AnyCPU' ">
|
||||||
<Version>7.0</Version>
|
<Version>7.0</Version>
|
||||||
<DCC_MapFile>3</DCC_MapFile>
|
<DCC_MapFile>3</DCC_MapFile>
|
||||||
<DCC_ExeOutput>..\..\Output\Debug\Servidor</DCC_ExeOutput>
|
<DCC_ExeOutput>..\..\Output\Debug\Servidor</DCC_ExeOutput>
|
||||||
<DCC_Define>DEBUG;</DCC_Define>
|
<DCC_Define>DEBUG;</DCC_Define>
|
||||||
<DCC_GenerateStackFrames>True</DCC_GenerateStackFrames>
|
<DCC_GenerateStackFrames>True</DCC_GenerateStackFrames>
|
||||||
<DCC_DebugInfoInExe>True</DCC_DebugInfoInExe>
|
<DCC_DebugInfoInExe>True</DCC_DebugInfoInExe>
|
||||||
<DCC_DebugVN>True</DCC_DebugVN>
|
<DCC_DebugVN>True</DCC_DebugVN>
|
||||||
<DCC_UnitSearchPath>$(BDS)\lib\Debug;$(BDS)\Lib\Debug\Indy10</DCC_UnitSearchPath>
|
<DCC_UnitSearchPath>$(BDS)\lib\Debug;$(BDS)\Lib\Debug\Indy10</DCC_UnitSearchPath>
|
||||||
<DCC_ResourcePath>$(BDS)\lib\Debug;$(BDS)\Lib\Debug\Indy10</DCC_ResourcePath>
|
<DCC_ResourcePath>$(BDS)\lib\Debug;$(BDS)\Lib\Debug\Indy10</DCC_ResourcePath>
|
||||||
<DCC_ObjPath>$(BDS)\lib\Debug;$(BDS)\Lib\Debug\Indy10</DCC_ObjPath>
|
<DCC_ObjPath>$(BDS)\lib\Debug;$(BDS)\Lib\Debug\Indy10</DCC_ObjPath>
|
||||||
<DCC_IncludePath>$(BDS)\lib\Debug;$(BDS)\Lib\Debug\Indy10</DCC_IncludePath>
|
<DCC_IncludePath>$(BDS)\lib\Debug;$(BDS)\Lib\Debug\Indy10</DCC_IncludePath>
|
||||||
</PropertyGroup>
|
</PropertyGroup>
|
||||||
<ProjectExtensions>
|
<ProjectExtensions>
|
||||||
<Borland.Personality>Delphi.Personality</Borland.Personality>
|
<Borland.Personality>Delphi.Personality</Borland.Personality>
|
||||||
<Borland.ProjectType />
|
<Borland.ProjectType/>
|
||||||
<BorlandProject>
|
<BorlandProject>
|
||||||
<BorlandProject><Delphi.Personality><Parameters><Parameters Name="UseLauncher">False</Parameters><Parameters Name="LoadAllSymbols">True</Parameters><Parameters Name="LoadUnspecifiedSymbols">False</Parameters><Parameters Name="RunParams">/standalone</Parameters></Parameters><VersionInfo><VersionInfo Name="IncludeVerInfo">True</VersionInfo><VersionInfo Name="AutoIncBuild">False</VersionInfo><VersionInfo Name="MajorVer">1</VersionInfo><VersionInfo Name="MinorVer">4</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.4.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.4.0.0</VersionInfoKeys><VersionInfoKeys Name="Comments"></VersionInfoKeys><VersionInfoKeys Name="CompileDate">lunes, 20 de octubre de 2008 20:06</VersionInfoKeys></VersionInfoKeys><Excluded_Packages /><Source><Source Name="MainSource">FactuGES_Server.dpr</Source></Source></Delphi.Personality></BorlandProject></BorlandProject>
|
<BorlandProject><Delphi.Personality><Parameters><Parameters Name="UseLauncher">False</Parameters><Parameters Name="LoadAllSymbols">True</Parameters><Parameters Name="LoadUnspecifiedSymbols">False</Parameters><Parameters Name="RunParams">/standalone</Parameters></Parameters><VersionInfo><VersionInfo Name="IncludeVerInfo">True</VersionInfo><VersionInfo Name="AutoIncBuild">False</VersionInfo><VersionInfo Name="MajorVer">1</VersionInfo><VersionInfo Name="MinorVer">4</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.4.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.4.0.0</VersionInfoKeys><VersionInfoKeys Name="Comments"></VersionInfoKeys><VersionInfoKeys Name="CompileDate">lunes, 20 de octubre de 2008 20:06</VersionInfoKeys></VersionInfoKeys><Excluded_Packages/><Source><Source Name="MainSource">FactuGES_Server.dpr</Source></Source></Delphi.Personality></BorlandProject></BorlandProject>
|
||||||
</ProjectExtensions>
|
</ProjectExtensions>
|
||||||
<Import Project="$(MSBuildBinPath)\Borland.Delphi.Targets" />
|
<Import Project="$(MSBuildBinPath)\Borland.Delphi.Targets"/>
|
||||||
<ItemGroup>
|
<ItemGroup>
|
||||||
<DelphiCompile Include="FactuGES_Server.dpr">
|
<DelphiCompile Include="FactuGES_Server.dpr">
|
||||||
<MainSource>MainSource</MainSource>
|
<MainSource>MainSource</MainSource>
|
||||||
</DelphiCompile>
|
</DelphiCompile>
|
||||||
<DCCReference Include="..\ApplicationBase\Empresas\Model\schEmpresasClient_Intf.pas" />
|
<DCCReference Include="..\ApplicationBase\Empresas\Model\schEmpresasClient_Intf.pas"/>
|
||||||
<DCCReference Include="..\ApplicationBase\Empresas\Model\schEmpresasServer_Intf.pas" />
|
<DCCReference Include="..\ApplicationBase\Empresas\Model\schEmpresasServer_Intf.pas"/>
|
||||||
<DCCReference Include="..\ApplicationBase\Empresas\Model\uBizEmpresasServer.pas" />
|
<DCCReference Include="..\ApplicationBase\Empresas\Model\uBizEmpresasServer.pas"/>
|
||||||
<DCCReference Include="..\ApplicationBase\Empresas\Servidor\srvEmpresas_Impl.pas">
|
<DCCReference Include="..\ApplicationBase\Empresas\Servidor\srvEmpresas_Impl.pas">
|
||||||
<Form>srvEmpresas</Form>
|
<Form>srvEmpresas</Form>
|
||||||
<DesignClass>TDARemoteService</DesignClass>
|
<DesignClass>TDARemoteService</DesignClass>
|
||||||
</DCCReference>
|
</DCCReference>
|
||||||
<DCCReference Include="..\ApplicationBase\ProvinciasPoblaciones\Servidor\srvProvinciasPoblaciones_Impl.pas" />
|
<DCCReference Include="..\ApplicationBase\ProvinciasPoblaciones\Servidor\srvProvinciasPoblaciones_Impl.pas"/>
|
||||||
<DCCReference Include="..\ApplicationBase\Usuarios\Model\schUsuariosClient_Intf.pas" />
|
<DCCReference Include="..\ApplicationBase\Usuarios\Model\schUsuariosClient_Intf.pas"/>
|
||||||
<DCCReference Include="..\ApplicationBase\Usuarios\Model\schUsuariosServer_Intf.pas" />
|
<DCCReference Include="..\ApplicationBase\Usuarios\Model\schUsuariosServer_Intf.pas"/>
|
||||||
<DCCReference Include="..\ApplicationBase\Usuarios\Servidor\srvUsuarios_Impl.pas" />
|
<DCCReference Include="..\ApplicationBase\Usuarios\Servidor\srvUsuarios_Impl.pas"/>
|
||||||
<DCCReference Include="..\Base\schBase_Intf.pas" />
|
<DCCReference Include="..\Base\schBase_Intf.pas"/>
|
||||||
<DCCReference Include="..\Base\Utiles\uSistemaFunc.pas" />
|
<DCCReference Include="..\Base\Utiles\uSistemaFunc.pas"/>
|
||||||
<DCCReference Include="..\Base\Utiles\uStringsUtils.pas" />
|
<DCCReference Include="..\Base\Utiles\uStringsUtils.pas"/>
|
||||||
<DCCReference Include="..\Modulos\Albaranes de cliente\Model\schAlbaranesClienteClient_Intf.pas" />
|
<DCCReference Include="..\Modulos\Albaranes de cliente\Model\schAlbaranesClienteClient_Intf.pas"/>
|
||||||
<DCCReference Include="..\Modulos\Albaranes de cliente\Model\schAlbaranesClienteServer_Intf.pas" />
|
<DCCReference Include="..\Modulos\Albaranes de cliente\Model\schAlbaranesClienteServer_Intf.pas"/>
|
||||||
<DCCReference Include="..\Modulos\Albaranes de cliente\Model\uBizAlbaranClienteServer.pas" />
|
<DCCReference Include="..\Modulos\Albaranes de cliente\Model\uBizAlbaranClienteServer.pas"/>
|
||||||
<DCCReference Include="..\Modulos\Albaranes de cliente\Reports\uRptAlbaranesCliente_Server.pas">
|
<DCCReference Include="..\Modulos\Albaranes de cliente\Reports\uRptAlbaranesCliente_Server.pas">
|
||||||
<Form>RptAlbaranesCliente</Form>
|
<Form>RptAlbaranesCliente</Form>
|
||||||
<DesignClass>TDataModule</DesignClass>
|
<DesignClass>TDataModule</DesignClass>
|
||||||
</DCCReference>
|
</DCCReference>
|
||||||
<DCCReference Include="..\Modulos\Albaranes de cliente\Reports\uRptWordAlbaranCliente.pas">
|
<DCCReference Include="..\Modulos\Albaranes de cliente\Reports\uRptWordAlbaranCliente.pas">
|
||||||
<Form>RptWordAlbaranCliente</Form>
|
<Form>RptWordAlbaranCliente</Form>
|
||||||
<DesignClass>TDataModule</DesignClass>
|
<DesignClass>TDataModule</DesignClass>
|
||||||
</DCCReference>
|
</DCCReference>
|
||||||
<DCCReference Include="..\Modulos\Albaranes de cliente\Servidor\srvAlbaranesCliente_Impl.pas">
|
<DCCReference Include="..\Modulos\Albaranes de cliente\Servidor\srvAlbaranesCliente_Impl.pas">
|
||||||
<Form>srvAlbaranesCliente</Form>
|
<Form>srvAlbaranesCliente</Form>
|
||||||
<DesignClass>TDataAbstractService</DesignClass>
|
<DesignClass>TDataAbstractService</DesignClass>
|
||||||
</DCCReference>
|
</DCCReference>
|
||||||
<DCCReference Include="..\Modulos\Albaranes de proveedor\Model\schAlbaranesProveedorClient_Intf.pas" />
|
<DCCReference Include="..\Modulos\Albaranes de proveedor\Model\schAlbaranesProveedorClient_Intf.pas"/>
|
||||||
<DCCReference Include="..\Modulos\Albaranes de proveedor\Model\schAlbaranesProveedorServer_Intf.pas" />
|
<DCCReference Include="..\Modulos\Albaranes de proveedor\Model\schAlbaranesProveedorServer_Intf.pas"/>
|
||||||
<DCCReference Include="..\Modulos\Albaranes de proveedor\Model\uBizAlbaranProveedorServer.PAS" />
|
<DCCReference Include="..\Modulos\Albaranes de proveedor\Model\uBizAlbaranProveedorServer.PAS"/>
|
||||||
<DCCReference Include="..\Modulos\Albaranes de proveedor\Servidor\srvAlbaranesProveedor_Impl.pas">
|
<DCCReference Include="..\Modulos\Albaranes de proveedor\Servidor\srvAlbaranesProveedor_Impl.pas">
|
||||||
<Form>srvAlbaranesProveedor</Form>
|
<Form>srvAlbaranesProveedor</Form>
|
||||||
<DesignClass>TDataAbstractService</DesignClass>
|
<DesignClass>TDataAbstractService</DesignClass>
|
||||||
</DCCReference>
|
</DCCReference>
|
||||||
<DCCReference Include="..\Modulos\Almacenes\Model\schAlmacenesClient_Intf.pas" />
|
<DCCReference Include="..\Modulos\Almacenes\Model\schAlmacenesClient_Intf.pas"/>
|
||||||
<DCCReference Include="..\Modulos\Almacenes\Model\schAlmacenesServer_Intf.pas" />
|
<DCCReference Include="..\Modulos\Almacenes\Model\schAlmacenesServer_Intf.pas"/>
|
||||||
<DCCReference Include="..\Modulos\Almacenes\Servidor\srvAlmacenes_Impl.pas">
|
<DCCReference Include="..\Modulos\Almacenes\Servidor\srvAlmacenes_Impl.pas">
|
||||||
<Form>srvAlmacenes</Form>
|
<Form>srvAlmacenes</Form>
|
||||||
<DesignClass>TDARemoteService</DesignClass>
|
<DesignClass>TDARemoteService</DesignClass>
|
||||||
</DCCReference>
|
</DCCReference>
|
||||||
<DCCReference Include="..\Modulos\Articulos\Model\schArticulosClient_Intf.pas" />
|
<DCCReference Include="..\Modulos\Articulos\Model\schArticulosClient_Intf.pas"/>
|
||||||
<DCCReference Include="..\Modulos\Articulos\Model\schArticulosServer_Intf.pas" />
|
<DCCReference Include="..\Modulos\Articulos\Model\schArticulosServer_Intf.pas"/>
|
||||||
<DCCReference Include="..\Modulos\Articulos\Model\uBizArticulosServer.pas" />
|
<DCCReference Include="..\Modulos\Articulos\Model\uBizArticulosServer.pas"/>
|
||||||
<DCCReference Include="..\Modulos\Articulos\Servidor\srvArticulos_Impl.pas">
|
<DCCReference Include="..\Modulos\Articulos\Servidor\srvArticulos_Impl.pas">
|
||||||
<Form>srvArticulos</Form>
|
<Form>srvArticulos</Form>
|
||||||
<DesignClass>TDARemoteService</DesignClass>
|
<DesignClass>TDARemoteService</DesignClass>
|
||||||
</DCCReference>
|
</DCCReference>
|
||||||
<DCCReference Include="..\Modulos\Contactos\Model\schContactosClient_Intf.pas" />
|
<DCCReference Include="..\Modulos\Contactos\Model\schContactosClient_Intf.pas"/>
|
||||||
<DCCReference Include="..\Modulos\Contactos\Model\schContactosServer_Intf.pas" />
|
<DCCReference Include="..\Modulos\Contactos\Model\schContactosServer_Intf.pas"/>
|
||||||
<DCCReference Include="..\Modulos\Contactos\Model\uBizClientesServer.pas" />
|
<DCCReference Include="..\Modulos\Contactos\Model\uBizClientesServer.pas"/>
|
||||||
<DCCReference Include="..\Modulos\Contactos\Model\uBizContactosServer.pas" />
|
<DCCReference Include="..\Modulos\Contactos\Model\uBizContactosServer.pas"/>
|
||||||
<DCCReference Include="..\Modulos\Contactos\Model\uBizEmpleadosServer.pas" />
|
<DCCReference Include="..\Modulos\Contactos\Model\uBizEmpleadosServer.pas"/>
|
||||||
<DCCReference Include="..\Modulos\Contactos\Model\uBizProveedoresServer.pas" />
|
<DCCReference Include="..\Modulos\Contactos\Model\uBizProveedoresServer.pas"/>
|
||||||
<DCCReference Include="..\Modulos\Contactos\Reports\uRptEtiquetasContacto_Server.pas">
|
<DCCReference Include="..\Modulos\Contactos\Reports\uRptEtiquetasContacto_Server.pas">
|
||||||
<Form>RptEtiquetasContacto</Form>
|
<Form>RptEtiquetasContacto</Form>
|
||||||
<DesignClass>TDataModule</DesignClass>
|
<DesignClass>TDataModule</DesignClass>
|
||||||
</DCCReference>
|
</DCCReference>
|
||||||
<DCCReference Include="..\Modulos\Contactos\Reports\uRptFichasEmpleado_Server.pas">
|
<DCCReference Include="..\Modulos\Contactos\Reports\uRptFichasEmpleado_Server.pas">
|
||||||
<Form>RptFichasEmpleado</Form>
|
<Form>RptFichasEmpleado</Form>
|
||||||
<DesignClass>TDataModule</DesignClass>
|
<DesignClass>TDataModule</DesignClass>
|
||||||
</DCCReference>
|
</DCCReference>
|
||||||
<DCCReference Include="..\Modulos\Contactos\Servidor\srvContactos_Impl.pas">
|
<DCCReference Include="..\Modulos\Contactos\Servidor\srvContactos_Impl.pas">
|
||||||
<Form>srvContactos</Form>
|
<Form>srvContactos</Form>
|
||||||
<DesignClass>TDARemoteService</DesignClass>
|
<DesignClass>TDARemoteService</DesignClass>
|
||||||
</DCCReference>
|
</DCCReference>
|
||||||
<DCCReference Include="..\Modulos\Fabricantes\Model\schFabricantesClient_Intf.pas" />
|
<DCCReference Include="..\Modulos\Fabricantes\Model\schFabricantesClient_Intf.pas"/>
|
||||||
<DCCReference Include="..\Modulos\Fabricantes\Model\schFabricantesServer_Intf.pas" />
|
<DCCReference Include="..\Modulos\Fabricantes\Model\schFabricantesServer_Intf.pas"/>
|
||||||
<DCCReference Include="..\Modulos\Fabricantes\Servidor\srvFabricantes_Impl.pas">
|
<DCCReference Include="..\Modulos\Fabricantes\Servidor\srvFabricantes_Impl.pas">
|
||||||
<Form>srvFabricantes</Form>
|
<Form>srvFabricantes</Form>
|
||||||
<DesignClass>TDataAbstractService</DesignClass>
|
<DesignClass>TDataAbstractService</DesignClass>
|
||||||
</DCCReference>
|
</DCCReference>
|
||||||
<DCCReference Include="..\Modulos\Facturas de cliente\Model\schFacturasClienteClient_Intf.pas" />
|
<DCCReference Include="..\Modulos\Facturas de cliente\Model\schFacturasClienteClient_Intf.pas"/>
|
||||||
<DCCReference Include="..\Modulos\Facturas de cliente\Model\schFacturasClienteServer_Intf.pas" />
|
<DCCReference Include="..\Modulos\Facturas de cliente\Model\schFacturasClienteServer_Intf.pas"/>
|
||||||
<DCCReference Include="..\Modulos\Facturas de cliente\Model\uBizFacturasClienteServer.pas" />
|
<DCCReference Include="..\Modulos\Facturas de cliente\Model\uBizFacturasClienteServer.pas"/>
|
||||||
<DCCReference Include="..\Modulos\Facturas de cliente\Reports\uRptFacturasCliente_Server.pas">
|
<DCCReference Include="..\Modulos\Facturas de cliente\Reports\uRptFacturasCliente_Server.pas">
|
||||||
<Form>RptFacturasCliente</Form>
|
<Form>RptFacturasCliente</Form>
|
||||||
<DesignClass>TDataModule</DesignClass>
|
<DesignClass>TDataModule</DesignClass>
|
||||||
</DCCReference>
|
</DCCReference>
|
||||||
<DCCReference Include="..\Modulos\Facturas de cliente\Reports\uRptWordFacturaCliente.pas">
|
<DCCReference Include="..\Modulos\Facturas de cliente\Reports\uRptWordFacturaCliente.pas">
|
||||||
<Form>RptWordFacturaCliente</Form>
|
<Form>RptWordFacturaCliente</Form>
|
||||||
<DesignClass>TDataModule</DesignClass>
|
<DesignClass>TDataModule</DesignClass>
|
||||||
</DCCReference>
|
</DCCReference>
|
||||||
<DCCReference Include="..\Modulos\Facturas de cliente\Servidor\srvFacturasCliente_Impl.pas">
|
<DCCReference Include="..\Modulos\Facturas de cliente\Servidor\srvFacturasCliente_Impl.pas">
|
||||||
<Form>srvFacturasCliente</Form>
|
<Form>srvFacturasCliente</Form>
|
||||||
<DesignClass>TDataAbstractService</DesignClass>
|
<DesignClass>TDataAbstractService</DesignClass>
|
||||||
</DCCReference>
|
</DCCReference>
|
||||||
<DCCReference Include="..\Modulos\Facturas de proveedor\Model\schFacturasProveedorClient_Intf.pas" />
|
<DCCReference Include="..\Modulos\Facturas de proveedor\Model\schFacturasProveedorClient_Intf.pas"/>
|
||||||
<DCCReference Include="..\Modulos\Facturas de proveedor\Model\schFacturasProveedorServer_Intf.pas" />
|
<DCCReference Include="..\Modulos\Facturas de proveedor\Model\schFacturasProveedorServer_Intf.pas"/>
|
||||||
<DCCReference Include="..\Modulos\Facturas de proveedor\Model\uBizFacturasProveedorServer.pas" />
|
<DCCReference Include="..\Modulos\Facturas de proveedor\Model\uBizFacturasProveedorServer.pas"/>
|
||||||
<DCCReference Include="..\Modulos\Facturas de proveedor\Reports\uRptFacturasProveedor_Server.pas">
|
<DCCReference Include="..\Modulos\Facturas de proveedor\Reports\uRptFacturasProveedor_Server.pas">
|
||||||
<Form>RptFacturasProveedor</Form>
|
<Form>RptFacturasProveedor</Form>
|
||||||
<DesignClass>TDataModule</DesignClass>
|
<DesignClass>TDataModule</DesignClass>
|
||||||
</DCCReference>
|
</DCCReference>
|
||||||
<DCCReference Include="..\Modulos\Facturas de proveedor\Servidor\srvFacturasProveedor_Impl.pas">
|
<DCCReference Include="..\Modulos\Facturas de proveedor\Servidor\srvFacturasProveedor_Impl.pas">
|
||||||
<Form>srvFacturasProveedor</Form>
|
<Form>srvFacturasProveedor</Form>
|
||||||
<DesignClass>TDataAbstractService</DesignClass>
|
<DesignClass>TDataAbstractService</DesignClass>
|
||||||
</DCCReference>
|
</DCCReference>
|
||||||
<DCCReference Include="..\Modulos\Familias\Model\schFamiliasClient_Intf.pas" />
|
<DCCReference Include="..\Modulos\Familias\Model\schFamiliasClient_Intf.pas"/>
|
||||||
<DCCReference Include="..\Modulos\Familias\Model\schFamiliasServer_Intf.pas" />
|
<DCCReference Include="..\Modulos\Familias\Model\schFamiliasServer_Intf.pas"/>
|
||||||
<DCCReference Include="..\Modulos\Familias\Servidor\srvFamilias_Impl.pas" />
|
<DCCReference Include="..\Modulos\Familias\Servidor\srvFamilias_Impl.pas"/>
|
||||||
<DCCReference Include="..\Modulos\Formas de pago\Model\schFormasPagoClient_Intf.pas" />
|
<DCCReference Include="..\Modulos\Formas de pago\Model\schFormasPagoClient_Intf.pas"/>
|
||||||
<DCCReference Include="..\Modulos\Formas de pago\Model\schFormasPagoServer_Intf.pas" />
|
<DCCReference Include="..\Modulos\Formas de pago\Model\schFormasPagoServer_Intf.pas"/>
|
||||||
<DCCReference Include="..\Modulos\Formas de pago\Servidor\srvFormasPago_Impl.pas" />
|
<DCCReference Include="..\Modulos\Formas de pago\Servidor\srvFormasPago_Impl.pas"/>
|
||||||
<DCCReference Include="..\Modulos\Gestion de documentos\Servidor\srvGestorDocumentos_Impl.pas">
|
<DCCReference Include="..\Modulos\Gestion de documentos\Servidor\srvGestorDocumentos_Impl.pas">
|
||||||
<Form>srvGestorDocumentos</Form>
|
<Form>srvGestorDocumentos</Form>
|
||||||
<DesignClass>TDataAbstractService</DesignClass>
|
<DesignClass>TDataAbstractService</DesignClass>
|
||||||
</DCCReference>
|
</DCCReference>
|
||||||
<DCCReference Include="..\Modulos\Gestor de informes\Servidor\srvGestorInformes_Impl.pas">
|
<DCCReference Include="..\Modulos\Gestor de informes\Servidor\srvGestorInformes_Impl.pas">
|
||||||
<Form>srvGestorInformes</Form>
|
<Form>srvGestorInformes</Form>
|
||||||
<DesignClass>TDataAbstractService</DesignClass>
|
<DesignClass>TDataAbstractService</DesignClass>
|
||||||
</DCCReference>
|
</DCCReference>
|
||||||
<DCCReference Include="..\Modulos\Historico de movimientos\Model\schHistoricoMovimientosClient_Intf.pas" />
|
<DCCReference Include="..\Modulos\Historico de movimientos\Model\schHistoricoMovimientosClient_Intf.pas"/>
|
||||||
<DCCReference Include="..\Modulos\Historico de movimientos\Model\schHistoricoMovimientosServer_Intf.pas" />
|
<DCCReference Include="..\Modulos\Historico de movimientos\Model\schHistoricoMovimientosServer_Intf.pas"/>
|
||||||
<DCCReference Include="..\Modulos\Historico de movimientos\Servidor\srvHistoricoMovimientos_Impl.pas">
|
<DCCReference Include="..\Modulos\Historico de movimientos\Servidor\srvHistoricoMovimientos_Impl.pas">
|
||||||
<Form>srvHistoricoMovimientos</Form>
|
<Form>srvHistoricoMovimientos</Form>
|
||||||
<DesignClass>TDataAbstractService</DesignClass>
|
<DesignClass>TDataAbstractService</DesignClass>
|
||||||
</DCCReference>
|
</DCCReference>
|
||||||
<DCCReference Include="..\Modulos\Inventario\Model\schInventarioClient_Intf.pas" />
|
<DCCReference Include="..\Modulos\Inventario\Model\schInventarioClient_Intf.pas"/>
|
||||||
<DCCReference Include="..\Modulos\Inventario\Model\schInventarioServer_Intf.pas" />
|
<DCCReference Include="..\Modulos\Inventario\Model\schInventarioServer_Intf.pas"/>
|
||||||
<DCCReference Include="..\Modulos\Inventario\Servidor\srvInventario_Impl.pas">
|
<DCCReference Include="..\Modulos\Inventario\Servidor\srvInventario_Impl.pas">
|
||||||
<Form>srvInventario</Form>
|
<Form>srvInventario</Form>
|
||||||
<DesignClass>TDataAbstractService</DesignClass>
|
<DesignClass>TDataAbstractService</DesignClass>
|
||||||
</DCCReference>
|
</DCCReference>
|
||||||
<DCCReference Include="..\Modulos\Obras\Model\schObrasClient_Intf.pas" />
|
<DCCReference Include="..\Modulos\Obras\Model\schObrasClient_Intf.pas"/>
|
||||||
<DCCReference Include="..\Modulos\Obras\Model\schObrasServer_Intf.pas" />
|
<DCCReference Include="..\Modulos\Obras\Model\schObrasServer_Intf.pas"/>
|
||||||
<DCCReference Include="..\Modulos\Obras\Model\uBizObrasServer.pas" />
|
<DCCReference Include="..\Modulos\Obras\Model\uBizObrasServer.pas"/>
|
||||||
<DCCReference Include="..\Modulos\Obras\Servidor\srvObras_Impl.pas" />
|
<DCCReference Include="..\Modulos\Obras\Servidor\srvObras_Impl.pas"/>
|
||||||
<DCCReference Include="..\Modulos\Pedidos a proveedor\Model\schPedidosProveedorClient_Intf.pas" />
|
<DCCReference Include="..\Modulos\Pedidos a proveedor\Model\schPedidosProveedorClient_Intf.pas"/>
|
||||||
<DCCReference Include="..\Modulos\Pedidos a proveedor\Model\schPedidosProveedorServer_Intf.pas" />
|
<DCCReference Include="..\Modulos\Pedidos a proveedor\Model\schPedidosProveedorServer_Intf.pas"/>
|
||||||
<DCCReference Include="..\Modulos\Pedidos a proveedor\Model\uBizPedidosProveedorServer.pas" />
|
<DCCReference Include="..\Modulos\Pedidos a proveedor\Model\uBizPedidosProveedorServer.pas"/>
|
||||||
<DCCReference Include="..\Modulos\Pedidos a proveedor\Reports\uRptPedidosProveedor_Server.pas">
|
<DCCReference Include="..\Modulos\Pedidos a proveedor\Reports\uRptPedidosProveedor_Server.pas">
|
||||||
<Form>RptPedidosProveedor</Form>
|
<Form>RptPedidosProveedor</Form>
|
||||||
<DesignClass>TDataModule</DesignClass>
|
<DesignClass>TDataModule</DesignClass>
|
||||||
</DCCReference>
|
</DCCReference>
|
||||||
<DCCReference Include="..\Modulos\Pedidos a proveedor\Reports\uRptWordPedidoProveedor.pas">
|
<DCCReference Include="..\Modulos\Pedidos a proveedor\Reports\uRptWordPedidoProveedor.pas">
|
||||||
<Form>RptWordPedidoProveedor</Form>
|
<Form>RptWordPedidoProveedor</Form>
|
||||||
<DesignClass>TDataModule</DesignClass>
|
<DesignClass>TDataModule</DesignClass>
|
||||||
</DCCReference>
|
</DCCReference>
|
||||||
<DCCReference Include="..\Modulos\Pedidos a proveedor\Servidor\srvPedidosProveedor_Impl.pas">
|
<DCCReference Include="..\Modulos\Pedidos a proveedor\Servidor\srvPedidosProveedor_Impl.pas">
|
||||||
<Form>srvPedidosProveedor</Form>
|
<Form>srvPedidosProveedor</Form>
|
||||||
<DesignClass>TDataAbstractService</DesignClass>
|
<DesignClass>TDataAbstractService</DesignClass>
|
||||||
</DCCReference>
|
</DCCReference>
|
||||||
<DCCReference Include="..\Modulos\Presupuestos de cliente\Model\schPresupuestosClienteClient_Intf.pas" />
|
<DCCReference Include="..\Modulos\Presupuestos de cliente\Model\schPresupuestosClienteClient_Intf.pas"/>
|
||||||
<DCCReference Include="..\Modulos\Presupuestos de cliente\Model\schPresupuestosClienteServer_Intf.pas" />
|
<DCCReference Include="..\Modulos\Presupuestos de cliente\Model\schPresupuestosClienteServer_Intf.pas"/>
|
||||||
<DCCReference Include="..\Modulos\Presupuestos de cliente\Model\uBizPresupuestosClienteServer.pas" />
|
<DCCReference Include="..\Modulos\Presupuestos de cliente\Model\uBizPresupuestosClienteServer.pas"/>
|
||||||
<DCCReference Include="..\Modulos\Presupuestos de cliente\Reports\uRptPresupuestosCliente_Server.pas">
|
<DCCReference Include="..\Modulos\Presupuestos de cliente\Reports\uRptPresupuestosCliente_Server.pas">
|
||||||
<Form>RptPresupuestosCliente</Form>
|
<Form>RptPresupuestosCliente</Form>
|
||||||
<DesignClass>TDataModule</DesignClass>
|
<DesignClass>TDataModule</DesignClass>
|
||||||
</DCCReference>
|
</DCCReference>
|
||||||
<DCCReference Include="..\Modulos\Presupuestos de cliente\Reports\uRptWordCertificadoTrabajo_Server.pas">
|
<DCCReference Include="..\Modulos\Presupuestos de cliente\Reports\uRptWordCertificadoTrabajo_Server.pas">
|
||||||
<Form>RptWordCertificadoTrabajo</Form>
|
<Form>RptWordCertificadoTrabajo</Form>
|
||||||
<DesignClass>TDataModule</DesignClass>
|
<DesignClass>TDataModule</DesignClass>
|
||||||
</DCCReference>
|
</DCCReference>
|
||||||
<DCCReference Include="..\Modulos\Presupuestos de cliente\Reports\uRptWordPresupuestoCliente.pas">
|
<DCCReference Include="..\Modulos\Presupuestos de cliente\Reports\uRptWordPresupuestoCliente.pas">
|
||||||
<Form>RptWordPresupuestoCliente</Form>
|
<Form>RptWordPresupuestoCliente</Form>
|
||||||
<DesignClass>TDataModule</DesignClass>
|
<DesignClass>TDataModule</DesignClass>
|
||||||
</DCCReference>
|
</DCCReference>
|
||||||
<DCCReference Include="..\Modulos\Presupuestos de cliente\Servidor\srvPresupuestosCliente_Impl.pas">
|
<DCCReference Include="..\Modulos\Presupuestos de cliente\Servidor\srvPresupuestosCliente_Impl.pas">
|
||||||
<Form>srvPresupuestosCliente</Form>
|
<Form>srvPresupuestosCliente</Form>
|
||||||
<DesignClass>TDataAbstractService</DesignClass>
|
<DesignClass>TDataAbstractService</DesignClass>
|
||||||
</DCCReference>
|
</DCCReference>
|
||||||
<DCCReference Include="..\Modulos\Recibos de cliente\Model\schRecibosClienteClient_Intf.pas" />
|
<DCCReference Include="..\Modulos\Recibos de cliente\Model\schRecibosClienteClient_Intf.pas"/>
|
||||||
<DCCReference Include="..\Modulos\Recibos de cliente\Model\schRecibosClienteServer_Intf.pas" />
|
<DCCReference Include="..\Modulos\Recibos de cliente\Model\schRecibosClienteServer_Intf.pas"/>
|
||||||
<DCCReference Include="..\Modulos\Recibos de cliente\Reports\uRptRecibosCliente_Server.pas">
|
<DCCReference Include="..\Modulos\Recibos de cliente\Reports\uRptRecibosCliente_Server.pas">
|
||||||
<Form>RptRecibosCliente</Form>
|
<Form>RptRecibosCliente</Form>
|
||||||
<DesignClass>TDataModule</DesignClass>
|
<DesignClass>TDataModule</DesignClass>
|
||||||
</DCCReference>
|
</DCCReference>
|
||||||
<DCCReference Include="..\Modulos\Recibos de cliente\Servidor\srvRecibosCliente_Impl.pas">
|
<DCCReference Include="..\Modulos\Recibos de cliente\Servidor\srvRecibosCliente_Impl.pas">
|
||||||
<Form>srvRecibosCliente</Form>
|
<Form>srvRecibosCliente</Form>
|
||||||
<DesignClass>TDataAbstractService</DesignClass>
|
<DesignClass>TDataAbstractService</DesignClass>
|
||||||
</DCCReference>
|
</DCCReference>
|
||||||
<DCCReference Include="..\Modulos\Recibos de proveedor\Model\schRecibosProveedorClient_Intf.pas" />
|
<DCCReference Include="..\Modulos\Recibos de proveedor\Model\schRecibosProveedorClient_Intf.pas"/>
|
||||||
<DCCReference Include="..\Modulos\Recibos de proveedor\Model\schRecibosProveedorServer_Intf.pas" />
|
<DCCReference Include="..\Modulos\Recibos de proveedor\Model\schRecibosProveedorServer_Intf.pas"/>
|
||||||
<DCCReference Include="..\Modulos\Recibos de proveedor\Reports\uRptRecibosProveedor_Server.pas">
|
<DCCReference Include="..\Modulos\Recibos de proveedor\Reports\uRptRecibosProveedor_Server.pas">
|
||||||
<Form>RptRecibosProveedor</Form>
|
<Form>RptRecibosProveedor</Form>
|
||||||
<DesignClass>TDataModule</DesignClass>
|
<DesignClass>TDataModule</DesignClass>
|
||||||
</DCCReference>
|
</DCCReference>
|
||||||
<DCCReference Include="..\Modulos\Recibos de proveedor\Servidor\srvRecibosProveedor_Impl.pas">
|
<DCCReference Include="..\Modulos\Recibos de proveedor\Servidor\srvRecibosProveedor_Impl.pas">
|
||||||
<Form>srvRecibosProveedor</Form>
|
<Form>srvRecibosProveedor</Form>
|
||||||
<DesignClass>TDataAbstractService</DesignClass>
|
<DesignClass>TDataAbstractService</DesignClass>
|
||||||
</DCCReference>
|
</DCCReference>
|
||||||
<DCCReference Include="..\Modulos\Referencias\Model\schReferenciasClient_Intf.pas" />
|
<DCCReference Include="..\Modulos\Referencias\Model\schReferenciasClient_Intf.pas"/>
|
||||||
<DCCReference Include="..\Modulos\Referencias\Model\schReferenciasServer_Intf.pas" />
|
<DCCReference Include="..\Modulos\Referencias\Model\schReferenciasServer_Intf.pas"/>
|
||||||
<DCCReference Include="..\Modulos\Referencias\Servidor\srvReferencias_Impl.pas">
|
<DCCReference Include="..\Modulos\Referencias\Servidor\srvReferencias_Impl.pas">
|
||||||
<Form>srvReferencias</Form>
|
<Form>srvReferencias</Form>
|
||||||
<DesignClass>TDataAbstractService</DesignClass>
|
<DesignClass>TDataAbstractService</DesignClass>
|
||||||
</DCCReference>
|
</DCCReference>
|
||||||
<DCCReference Include="..\Modulos\Remesas de cliente\Model\schRemesasClienteClient_Intf.pas" />
|
<DCCReference Include="..\Modulos\Remesas de cliente\Model\schRemesasClienteClient_Intf.pas"/>
|
||||||
<DCCReference Include="..\Modulos\Remesas de cliente\Model\schRemesasClienteServer_Intf.pas" />
|
<DCCReference Include="..\Modulos\Remesas de cliente\Model\schRemesasClienteServer_Intf.pas"/>
|
||||||
<DCCReference Include="..\Modulos\Remesas de cliente\Model\uBizRemesasClienteServer.pas" />
|
<DCCReference Include="..\Modulos\Remesas de cliente\Model\uBizRemesasClienteServer.pas"/>
|
||||||
<DCCReference Include="..\Modulos\Remesas de cliente\Servidor\srvRemesasCliente_Impl.pas">
|
<DCCReference Include="..\Modulos\Remesas de cliente\Servidor\srvRemesasCliente_Impl.pas">
|
||||||
<Form>srvRemesasCliente</Form>
|
<Form>srvRemesasCliente</Form>
|
||||||
<DesignClass>TDataAbstractService</DesignClass>
|
<DesignClass>TDataAbstractService</DesignClass>
|
||||||
</DCCReference>
|
</DCCReference>
|
||||||
<DCCReference Include="..\Modulos\Remesas de proveedor\Model\schRemesasProveedorClient_Intf.pas" />
|
<DCCReference Include="..\Modulos\Remesas de proveedor\Model\schRemesasProveedorClient_Intf.pas"/>
|
||||||
<DCCReference Include="..\Modulos\Remesas de proveedor\Model\schRemesasProveedorServer_Intf.pas" />
|
<DCCReference Include="..\Modulos\Remesas de proveedor\Model\schRemesasProveedorServer_Intf.pas"/>
|
||||||
<DCCReference Include="..\Modulos\Remesas de proveedor\Model\uBizRemesasProveedorServer.pas" />
|
<DCCReference Include="..\Modulos\Remesas de proveedor\Model\uBizRemesasProveedorServer.pas"/>
|
||||||
<DCCReference Include="..\Modulos\Remesas de proveedor\Servidor\srvRemesasProveedor_Impl.pas">
|
<DCCReference Include="..\Modulos\Remesas de proveedor\Servidor\srvRemesasProveedor_Impl.pas">
|
||||||
<Form>srvRemesasProveedor</Form>
|
<Form>srvRemesasProveedor</Form>
|
||||||
<DesignClass>TDataAbstractService</DesignClass>
|
<DesignClass>TDataAbstractService</DesignClass>
|
||||||
</DCCReference>
|
</DCCReference>
|
||||||
<DCCReference Include="..\Modulos\Tipos de IVA\Model\schTiposIVAClient_Intf.pas" />
|
<DCCReference Include="..\Modulos\Tipos de IVA\Model\schTiposIVAClient_Intf.pas"/>
|
||||||
<DCCReference Include="..\Modulos\Tipos de IVA\Model\schTiposIVAServer_Intf.pas" />
|
<DCCReference Include="..\Modulos\Tipos de IVA\Model\schTiposIVAServer_Intf.pas"/>
|
||||||
<DCCReference Include="..\Modulos\Tipos de IVA\Servidor\srvTiposIVA_Impl.pas" />
|
<DCCReference Include="..\Modulos\Tipos de IVA\Servidor\srvTiposIVA_Impl.pas"/>
|
||||||
<DCCReference Include="..\Modulos\Unidades de medida\Model\schUnidadesMedidaClient_Intf.pas" />
|
<DCCReference Include="..\Modulos\Unidades de medida\Model\schUnidadesMedidaClient_Intf.pas"/>
|
||||||
<DCCReference Include="..\Modulos\Unidades de medida\Model\schUnidadesMedidaServer_Intf.pas" />
|
<DCCReference Include="..\Modulos\Unidades de medida\Model\schUnidadesMedidaServer_Intf.pas"/>
|
||||||
<DCCReference Include="..\Modulos\Unidades de medida\Servidor\srvUnidadesMedida_Impl.pas">
|
<DCCReference Include="..\Modulos\Unidades de medida\Servidor\srvUnidadesMedida_Impl.pas">
|
||||||
<Form>srvUnidadesMedida</Form>
|
<Form>srvUnidadesMedida</Form>
|
||||||
<DesignClass>TDataAbstractService</DesignClass>
|
<DesignClass>TDataAbstractService</DesignClass>
|
||||||
</DCCReference>
|
</DCCReference>
|
||||||
<DCCReference Include="..\Servicios\FactuGES_Intf.pas" />
|
<DCCReference Include="..\Servicios\FactuGES_Intf.pas"/>
|
||||||
<DCCReference Include="..\Servicios\FactuGES_Invk.pas" />
|
<DCCReference Include="..\Servicios\FactuGES_Invk.pas"/>
|
||||||
<DCCReference Include="Configuracion\srvConfiguracion_Impl.pas">
|
<DCCReference Include="Configuracion\srvConfiguracion_Impl.pas">
|
||||||
<Form>srvConfiguracion</Form>
|
<Form>srvConfiguracion</Form>
|
||||||
<DesignClass>TDataAbstractService</DesignClass>
|
<DesignClass>TDataAbstractService</DesignClass>
|
||||||
</DCCReference>
|
</DCCReference>
|
||||||
<DCCReference Include="Configuracion\uConexionBD.pas">
|
<DCCReference Include="Configuracion\uConexionBD.pas">
|
||||||
<Form>frConexionBD</Form>
|
<Form>frConexionBD</Form>
|
||||||
<DesignClass>TFrame</DesignClass>
|
<DesignClass>TFrame</DesignClass>
|
||||||
</DCCReference>
|
</DCCReference>
|
||||||
<DCCReference Include="Configuracion\uConfGeneral.pas">
|
<DCCReference Include="Configuracion\uConfGeneral.pas">
|
||||||
<Form>frConfGeneral</Form>
|
<Form>frConfGeneral</Form>
|
||||||
<DesignClass>TFrame</DesignClass>
|
<DesignClass>TFrame</DesignClass>
|
||||||
</DCCReference>
|
</DCCReference>
|
||||||
<DCCReference Include="Configuracion\uConfiguracion.pas">
|
<DCCReference Include="Configuracion\uConfiguracion.pas">
|
||||||
<Form>fConfiguracion</Form>
|
<Form>fConfiguracion</Form>
|
||||||
<DesignClass>TForm</DesignClass>
|
<DesignClass>TForm</DesignClass>
|
||||||
</DCCReference>
|
</DCCReference>
|
||||||
<DCCReference Include="Configuracion\uFrameConfiguracion.pas">
|
<DCCReference Include="Configuracion\uFrameConfiguracion.pas">
|
||||||
<Form>FrameConfiguracion</Form>
|
<Form>FrameConfiguracion</Form>
|
||||||
<DesignClass>TFrame</DesignClass>
|
<DesignClass>TFrame</DesignClass>
|
||||||
</DCCReference>
|
</DCCReference>
|
||||||
<DCCReference Include="srvLogin_Impl.pas">
|
<DCCReference Include="srvLogin_Impl.pas">
|
||||||
<Form>srvLogin</Form>
|
<Form>srvLogin</Form>
|
||||||
<DesignClass>TDARemoteService</DesignClass>
|
<DesignClass>TDARemoteService</DesignClass>
|
||||||
</DCCReference>
|
</DCCReference>
|
||||||
<DCCReference Include="uAcercaDe.pas">
|
<DCCReference Include="uAcercaDe.pas">
|
||||||
<Form>fAcercaDe</Form>
|
<Form>fAcercaDe</Form>
|
||||||
</DCCReference>
|
</DCCReference>
|
||||||
<DCCReference Include="uDataModuleServer.pas">
|
<DCCReference Include="uDataModuleServer.pas">
|
||||||
<Form>dmServer</Form>
|
<Form>dmServer</Form>
|
||||||
<DesignClass>TDataModule</DesignClass>
|
<DesignClass>TDataModule</DesignClass>
|
||||||
</DCCReference>
|
</DCCReference>
|
||||||
<DCCReference Include="uServerMainForm.pas">
|
<DCCReference Include="uServerMainForm.pas">
|
||||||
<Form>fServerForm</Form>
|
<Form>fServerForm</Form>
|
||||||
</DCCReference>
|
</DCCReference>
|
||||||
<DCCReference Include="Utiles\AHWord97.pas" />
|
<DCCReference Include="Utiles\AHWord97.pas"/>
|
||||||
<DCCReference Include="Utiles\RegExpr.pas" />
|
<DCCReference Include="Utiles\RegExpr.pas"/>
|
||||||
<DCCReference Include="Utiles\uBusinessUtils.pas" />
|
<DCCReference Include="Utiles\uBusinessUtils.pas"/>
|
||||||
<DCCReference Include="Utiles\uDatabaseUtils.pas" />
|
<DCCReference Include="Utiles\uDatabaseUtils.pas"/>
|
||||||
<DCCReference Include="Utiles\uReferenciasUtils.pas" />
|
<DCCReference Include="Utiles\uReferenciasUtils.pas"/>
|
||||||
<DCCReference Include="Utiles\uRestriccionesUsuarioUtils.pas" />
|
<DCCReference Include="Utiles\uRestriccionesUsuarioUtils.pas"/>
|
||||||
<DCCReference Include="Utiles\uSchemaUtilsServer.pas" />
|
<DCCReference Include="Utiles\uSchemaUtilsServer.pas"/>
|
||||||
<DCCReference Include="Utiles\uServerAppUtils.pas" />
|
<DCCReference Include="Utiles\uServerAppUtils.pas"/>
|
||||||
<DCCReference Include="Utiles\uSesionesUtils.pas" />
|
<DCCReference Include="Utiles\uSesionesUtils.pas"/>
|
||||||
</ItemGroup>
|
</ItemGroup>
|
||||||
</Project>
|
</Project>
|
||||||
<!-- EurekaLog First Line
|
<!-- EurekaLog First Line
|
||||||
[Exception Log]
|
[Exception Log]
|
||||||
|
|||||||
@ -14,7 +14,7 @@ BEGIN
|
|||||||
BEGIN
|
BEGIN
|
||||||
VALUE "FileVersion", "1.4.0.0\0"
|
VALUE "FileVersion", "1.4.0.0\0"
|
||||||
VALUE "ProductVersion", "1.4.0.0\0"
|
VALUE "ProductVersion", "1.4.0.0\0"
|
||||||
VALUE "CompileDate", "viernes, 31 de octubre de 2008 10:20\0"
|
VALUE "CompileDate", "viernes, 31 de octubre de 2008 18:52\0"
|
||||||
END
|
END
|
||||||
END
|
END
|
||||||
BLOCK "VarFileInfo"
|
BLOCK "VarFileInfo"
|
||||||
|
|||||||
Loading…
Reference in New Issue
Block a user