diff --git a/Source/Modulos/Pedidos a proveedor/PedidosProveedor_Group.bdsgroup b/Source/Modulos/Pedidos a proveedor/PedidosProveedor_Group.bdsgroup
new file mode 100644
index 00000000..2253d08d
--- /dev/null
+++ b/Source/Modulos/Pedidos a proveedor/PedidosProveedor_Group.bdsgroup
@@ -0,0 +1,26 @@
+
+
+
+
+
+
+
+
+
+
+ ..\..\DataAbstract_D10\DataAbstract_D10.bdsproj
+ ..\..\Base\Base.bdsproj
+ ..\..\Base\ControllerBase\ControllerBase.bdsproj
+ ..\..\Base\GUIBase\GUIBase.bdsproj
+ ..\Contactos\Views\Contactos_view.bdsproj
+ Model\PedidosProveedor_model.bdsproj
+ Data\PedidosProveedor_data.bdsproj
+ Controller\PedidosProveedor_controller.bdsproj
+ Views\PedidosProveedor_view.bdsproj
+ Plugin\PedidosProveedor_plugin.bdsproj
+ DataAbstract_D10.bpl Base.bpl ControllerBase.bpl GUIBase.bpl Contactos_view.bpl PedidosProveedor_model.bpl PedidosProveedor_data.bpl PedidosProveedor_controller.bpl PedidosProveedor_view.bpl PedidosProveedor_plugin.bpl
+
+
+
+
diff --git a/Source/Modulos/Pedidos a proveedor/Presupuestos_Group.config b/Source/Modulos/Pedidos a proveedor/PedidosProveedor_Group.config
similarity index 100%
rename from Source/Modulos/Pedidos a proveedor/Presupuestos_Group.config
rename to Source/Modulos/Pedidos a proveedor/PedidosProveedor_Group.config
diff --git a/Source/Modulos/Pedidos a proveedor/Presupuestos_Group.bdsgroup b/Source/Modulos/Pedidos a proveedor/Presupuestos_Group.bdsgroup
deleted file mode 100644
index 0e529257..00000000
--- a/Source/Modulos/Pedidos a proveedor/Presupuestos_Group.bdsgroup
+++ /dev/null
@@ -1,34 +0,0 @@
-
-
-
-
-
-
-
-
-
-
- ..\..\DataAbstract_D10\DataAbstract_D10.bdsproj
- ..\..\Base\Base.bdsproj
- ..\..\Base\ControllerBase\ControllerBase.bdsproj
- ..\..\Base\GUIBase\GUIBase.bdsproj
- ..\..\Base\ClassRegistry\ClassRegistry.bdsproj
- ..\Contactos\Views\Contactos_view.bdsproj
- Model\Presupuestos_model.bdsproj
- Data\Presupuestos_data.bdsproj
- Controller\Presupuestos_controller.bdsproj
- Views\Presupuestos_view.bdsproj
- Plugin\Presupuestos_plugin.bdsproj
- Test\Presupuestos_Test.bdsproj
- DataAbstract_D10.bpl Base.bpl ControllerBase.bpl GUIBase.bpl ClassRegistry.bpl Contactos_view.bpl Presupuestos_model.bpl Presupuestos_data.bpl Presupuestos_controller.bpl Presupuestos_view.bpl Presupuestos_plugin.bpl Presupuestos_Test.exe
-
-
-
-
-
-
-
-
-
-
diff --git a/Source/Modulos/Pedidos a proveedor/Test/Presupuestos_Test.bdsproj b/Source/Modulos/Pedidos a proveedor/Test/Presupuestos_Test.bdsproj
deleted file mode 100644
index c5dacc4d..00000000
--- a/Source/Modulos/Pedidos a proveedor/Test/Presupuestos_Test.bdsproj
+++ /dev/null
@@ -1,496 +0,0 @@
-
-
-
-
-
-
-
-
-
-
-
- Presupuestos_Test.dpr
-
-
- 7.0
-
-
- 8
- 0
- 1
- 1
- 0
- 0
- 1
- 1
- 1
- 0
- 0
- 1
- 0
- 1
- 1
- 1
- 0
- 0
- 0
- 0
- 0
- 1
- 0
- 1
- 1
- 1
- True
- True
- WinTypes=Windows;WinProcs=Windows;DbiTypes=BDE;DbiProcs=BDE;DbiErrs=BDE;
-
- False
-
- True
- True
- True
- True
- True
- True
- True
- True
- True
- True
- True
- True
- True
- True
- True
- True
- True
- True
- True
- True
- True
- True
- True
- True
- True
- True
- True
- True
- True
- True
- True
- True
- True
- True
- True
- True
- True
- True
- True
- True
- True
- True
- True
- True
- True
- True
- False
- False
- False
- True
- True
- True
- True
- True
- True
-
-
-
- 3
- 0
- False
- 1
- False
- False
- False
- 16384
- 1048576
- 4194304
-
-
-
- ..\..\..\Output\Cliente
- .\
-
- ..\..\Lib
- ..\..\..\Lib;..\..\Lib
- DataAbstract_D10;base;GUIBase;ClassRegistry;Empresas_controller;Presupuestos_model;presupuestos_data;presupuestos_controller;presupuestos_view;presupuestos_plugin
- _CONSOLE_TESTRUNNER;EUREKALOG;EUREKALOG_VER5
-
- True
-
-
-
-
-
- False
-
-
- True
- False
-
-
-
- $00000000
-
-
-
- True
- False
- 1
- 0
- 0
- 0
- False
- False
- False
- False
- False
- 3082
- 1252
-
-
-
-
- 1.0.0.0
- Presupuestos_Test
-
-
-
- Presupuestos_Test
- 1.0.0.0
-
-
-
-
- DUnit / Delphi Win32
- GUI
-
-
-
diff --git a/Source/Modulos/Pedidos a proveedor/Test/Presupuestos_Test.dpr b/Source/Modulos/Pedidos a proveedor/Test/Presupuestos_Test.dpr
deleted file mode 100644
index 5b596879..00000000
--- a/Source/Modulos/Pedidos a proveedor/Test/Presupuestos_Test.dpr
+++ /dev/null
@@ -1,40 +0,0 @@
-program Presupuestos_Test;
-{
-
- Delphi DUnit Test Project
- -------------------------
- This project contains the DUnit test framework and the GUI/Console test runners.
- Add "CONSOLE_TESTRUNNER" to the conditional defines entry in the project options
- to use the console test runner. Otherwise the GUI test runner will be used by
- default.
-
-}
-
-{$IFDEF CONSOLE_TESTRUNNER}
-{$APPTYPE CONSOLE}
-{$ENDIF}
-
-uses
- ExceptionLog,
- Forms,
- TestFramework,
- GUITestRunner,
- TextTestRunner,
- uPresupuestosViewRegister,
- uContactosViewRegister,
- uPluginPresupuestos_Test in 'uPluginPresupuestos_Test.pas',
- uHostMainForm in 'uHostMainForm.pas' {HostMainForm},
- uPresupuestosController_Test in 'uPresupuestosController_Test.pas',
- uDataModulePresupuestos_Test in 'uDataModulePresupuestos_Test.pas';
-
-{$R *.RES}
-
-begin
- Application.Initialize;
- Application.CreateForm(THostMainForm, HostMainForm);
- uPresupuestosViewRegister.RegisterViews;
- uContactosViewRegister.RegisterViews;
- Application.Run;
- Application.Terminate;
-end.
-
diff --git a/Source/Modulos/Pedidos a proveedor/Test/Presupuestos_Test.drc b/Source/Modulos/Pedidos a proveedor/Test/Presupuestos_Test.drc
deleted file mode 100644
index 7642ac97..00000000
--- a/Source/Modulos/Pedidos a proveedor/Test/Presupuestos_Test.drc
+++ /dev/null
@@ -1,14 +0,0 @@
-/* VER180
- Generated by the Borland Delphi Pascal Compiler
- because -GD or --drc was supplied to the compiler.
-
- This file contains compiler-generated resources that
- were bound to the executable.
- If this file is empty, then no compiler-generated
- resources were bound to the produced executable.
-*/
-
-STRINGTABLE
-BEGIN
-END
-
diff --git a/Source/Modulos/Pedidos a proveedor/Test/Presupuestos_Test.res b/Source/Modulos/Pedidos a proveedor/Test/Presupuestos_Test.res
deleted file mode 100644
index 37a3dbd7..00000000
Binary files a/Source/Modulos/Pedidos a proveedor/Test/Presupuestos_Test.res and /dev/null differ
diff --git a/Source/Modulos/Pedidos a proveedor/Test/uDataModulePresupuestos_Test.pas b/Source/Modulos/Pedidos a proveedor/Test/uDataModulePresupuestos_Test.pas
deleted file mode 100644
index b054a7ca..00000000
--- a/Source/Modulos/Pedidos a proveedor/Test/uDataModulePresupuestos_Test.pas
+++ /dev/null
@@ -1,98 +0,0 @@
-unit uDataModulePresupuestos_Test;
-{
-
- Delphi DUnit Test Case
- ----------------------
- This unit contains a skeleton test case class generated by the Test Case Wizard.
- Modify the generated code to correctly setup and call the methods from the unit
- being tested.
-
-}
-
-interface
-
-uses
- TestFramework, uROBinMessage, uROServiceComponent, uDAClientDataModule,
- uDACDSDataTable, uDADataTable, uBizDetallesPresupuesto, uBizPresupuestos, Classes, DB,
- uDAScriptingProvider, SysUtils, uIDataModulePresupuestos, uROWinInetHttpChannel,
- uROClient, uDABINAdapter, uRORemoteService, DBClient, uDataModulePresupuestos;
-type
- // Test methods for class TDataModulePresupuestos
-
- TestTDataModulePresupuestos = class(TTestCase)
- strict private
- FDataModulePresupuestos: TDataModulePresupuestos;
- public
- procedure SetUp; override;
- procedure TearDown; override;
- published
- procedure TestDAClientDataModuleCreate;
- procedure Test_CloneDataTable;
- procedure TestGetDetalles;
- procedure TestGetItems;
- procedure TestGetNextID;
- end;
-
-implementation
-
-procedure TestTDataModulePresupuestos.SetUp;
-begin
- FDataModulePresupuestos := TDataModulePresupuestos.Create(Nil);
-end;
-
-procedure TestTDataModulePresupuestos.TearDown;
-begin
- FDataModulePresupuestos.Free;
- FDataModulePresupuestos := nil;
-end;
-
-procedure TestTDataModulePresupuestos.TestDAClientDataModuleCreate;
-var
- Sender: TObject;
-begin
- // TODO: Setup method call parameters
- FDataModulePresupuestos.DAClientDataModuleCreate(Sender);
- // TODO: Validate method results
-end;
-
-procedure TestTDataModulePresupuestos.Test_CloneDataTable;
-var
- ReturnValue: TDACDSDataTable;
- ADataTable: TDACDSDataTable;
-begin
- // TODO: Setup method call parameters
- ReturnValue := FDataModulePresupuestos._CloneDataTable(ADataTable);
- // TODO: Validate method results
-end;
-
-procedure TestTDataModulePresupuestos.TestGetDetalles;
-var
- ReturnValue: IBizDetallesPresupuesto;
-begin
-// ReturnValue := FDataModulePresupuestos.GetDetalles;
- // TODO: Validate method results
-end;
-
-procedure TestTDataModulePresupuestos.TestGetItems;
-var
- ReturnValue: IBizPresupuesto;
-begin
- ReturnValue := FDataModulePresupuestos.GetItems;
- // TODO: Validate method results
-end;
-
-procedure TestTDataModulePresupuestos.TestGetNextID;
-var
- ReturnValue: Integer;
- DataSetName: string;
-begin
- // TODO: Setup method call parameters
- ReturnValue := FDataModulePresupuestos.GetNextID(DataSetName);
- // TODO: Validate method results
-end;
-
-initialization
- // Register any test cases with the test runner
- RegisterTest(TestTDataModulePresupuestos.Suite);
-end.
-
diff --git a/Source/Modulos/Pedidos a proveedor/Test/uHostMainForm.dfm b/Source/Modulos/Pedidos a proveedor/Test/uHostMainForm.dfm
deleted file mode 100644
index 1de986c4..00000000
--- a/Source/Modulos/Pedidos a proveedor/Test/uHostMainForm.dfm
+++ /dev/null
@@ -1,28 +0,0 @@
-object HostMainForm: THostMainForm
- Left = 0
- Top = 0
- Caption = 'HostMainForm'
- ClientHeight = 598
- ClientWidth = 690
- Color = clBtnFace
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clWindowText
- Font.Height = -11
- Font.Name = 'Tahoma'
- Font.Style = []
- OldCreateOrder = False
- Position = poScreenCenter
- OnCloseQuery = FormCloseQuery
- OnShow = FormShow
- PixelsPerInch = 96
- TextHeight = 13
- object Panel1: TPanel
- Left = 0
- Top = 0
- Width = 690
- Height = 598
- Align = alClient
- BevelOuter = bvNone
- TabOrder = 0
- end
-end
diff --git a/Source/Modulos/Pedidos a proveedor/Test/uHostMainForm.pas b/Source/Modulos/Pedidos a proveedor/Test/uHostMainForm.pas
deleted file mode 100644
index 50f4b46e..00000000
--- a/Source/Modulos/Pedidos a proveedor/Test/uHostMainForm.pas
+++ /dev/null
@@ -1,116 +0,0 @@
-unit uHostMainForm;
-
-interface
-
-uses
- Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
- Dialogs, uGUIBase, ExtCtrls, uCustomEditor, cxControls;
-
-type
- THostMainForm = class(TForm, IHostForm)
- Panel1: TPanel;
- procedure FormCloseQuery(Sender: TObject; var CanClose: Boolean);
- procedure FormShow(Sender: TObject);
- protected
- FContenido : TCustomEditor;
- function GetWorkPanel: TWinControl;
- procedure OnWorkPanelChanged(AEditor : ICustomEditor);
- procedure ShowEmbedded(AEditor : ICustomEditor);
- procedure ReleaseEmbedded;
- public
- constructor Create(AOwner: TComponent); override;
- destructor Destroy; override;
- property WorkPanel: TWinControl read GetWorkPanel;
- end;
-
-var
- HostMainForm: THostMainForm;
-
-implementation
-
-{$R *.dfm}
-
-uses
- TestFramework, GUITestRunner, TextTestRunner;
-
-
-{ TForm1 }
-
-constructor THostMainForm.Create(AOwner: TComponent);
-begin
- inherited;
- FContenido := NIL;
-end;
-
-destructor THostMainForm.Destroy;
-begin
- ReleaseEmbedded;
- inherited;
-end;
-
-procedure THostMainForm.FormCloseQuery(Sender: TObject; var CanClose: Boolean);
-begin
- CanClose := True;
- if Assigned(FContenido) then
- CanClose := FContenido.CloseQuery;
-end;
-
-procedure THostMainForm.FormShow(Sender: TObject);
-begin
- if IsConsole then
- TextTestRunner.RunRegisteredTests
- else
- GUITestRunner.RunRegisteredTestsModeless;
- Self.SendToBack;
-end;
-
-function THostMainForm.GetWorkPanel: TWinControl;
-begin
- Result := Panel1;
-end;
-
-procedure THostMainForm.OnWorkPanelChanged(AEditor: ICustomEditor);
-begin
- //
-end;
-
-procedure THostMainForm.ReleaseEmbedded;
-begin
- if Assigned(FContenido) then
- FContenido.Release;
- Application.ProcessMessages;
-end;
-
-procedure THostMainForm.ShowEmbedded(AEditor: ICustomEditor);
-begin
- if Assigned(FContenido) then
- if not FContenido.CloseQuery then
- begin
- AEditor.Release;
- AEditor := NIL;
- Exit;
- end;
-
- ShowHourglassCursor;
- LockWindowUpdate(Handle);
- try
- FContenido := AEditor.GetInstance as TCustomEditor;
- with (FContenido) do
- begin
- Visible := False;
- BorderIcons := [];
- BorderStyle := bsNone;
- Parent := WorkPanel;
- FContenido.Show;
- Align := alClient;
- FContenido.SetFocus;
- end;
- finally
- Application.ProcessMessages;
- LockWindowUpdate(0);
- HideHourglassCursor;
- end;
- OnWorkPanelChanged(FContenido);
-end;
-
-end.
diff --git a/Source/Modulos/Pedidos a proveedor/Test/uPluginPresupuestos_Test.pas b/Source/Modulos/Pedidos a proveedor/Test/uPluginPresupuestos_Test.pas
deleted file mode 100644
index e8df46e1..00000000
--- a/Source/Modulos/Pedidos a proveedor/Test/uPluginPresupuestos_Test.pas
+++ /dev/null
@@ -1,56 +0,0 @@
-unit uPluginPresupuestos_Test;
-{
-
- Delphi DUnit Test Case
- ----------------------
- This unit contains a skeleton test case class generated by the Test Case Wizard.
- Modify the generated code to correctly setup and call the methods from the unit
- being tested.
-
-}
-
-interface
-
-uses
- TestFramework, ActnList, uPluginPresupuestos, Classes, ImgList, uInterfaces,
- uModuleController, uHostManager, PngImageList, Controls, Menus;
-type
- // Test methods for class TPluginPresupuestos
-
- TestTPluginPresupuestos = class(TTestCase)
- strict private
- FPluginPresupuestos: TPluginPresupuestos;
- public
- procedure SetUp; override;
- procedure TearDown; override;
- published
- procedure TestactPresupuestosExecute;
- end;
-
-implementation
-
-procedure TestTPluginPresupuestos.SetUp;
-begin
- FPluginPresupuestos := TPluginPresupuestos.Create(Nil);
-end;
-
-procedure TestTPluginPresupuestos.TearDown;
-begin
- FPluginPresupuestos.Free;
- FPluginPresupuestos := nil;
-end;
-
-procedure TestTPluginPresupuestos.TestactPresupuestosExecute;
-var
- Sender: TObject;
-begin
- // TODO: Setup method call parameters
-// FPluginPresupuestos.actPresupuestosExecute(Sender);
- // TODO: Validate method results
-end;
-
-initialization
- // Register any test cases with the test runner
- RegisterTest(TestTPluginPresupuestos.Suite);
-end.
-
diff --git a/Source/Modulos/Pedidos a proveedor/Test/uPresupuestosController_Test.pas b/Source/Modulos/Pedidos a proveedor/Test/uPresupuestosController_Test.pas
deleted file mode 100644
index e5e483c4..00000000
--- a/Source/Modulos/Pedidos a proveedor/Test/uPresupuestosController_Test.pas
+++ /dev/null
@@ -1,85 +0,0 @@
-unit uPresupuestosController_Test;
-{
-
- Delphi DUnit Test Case
- ----------------------
- This unit contains a skeleton test case class generated by the Test Case Wizard.
- Modify the generated code to correctly setup and call the methods from the unit
- being tested.
-
-}
-
-interface
-
-uses
- TestFramework, uBizPresupuestos, Classes, Contnrs, Windows,
- Forms, SysUtils, Controls, uBizDetallesPresupuesto, uIDataModulePresupuestos,
- uPresupuestosController;
-type
- // Test methods for class TPresupuestosController
-
- TestTPresupuestosController = class(TTestCase)
- strict private
- FPresupuestosController : IPresupuestosController;
- public
- procedure SetUp; override;
- procedure TearDown; override;
- published
- procedure TestBuscarTodos;
- procedure TestVerTodos;
- procedure hola;
- end;
-
-var
- FPresupuestosController: IPresupuestosController;
-
-implementation
-
-uses dialogs;
-
-
-procedure TestTPresupuestosController.hola;
-begin
- //
-end;
-
-procedure TestTPresupuestosController.SetUp;
-begin
- FPresupuestosController := TPresupuestosController.Create;
-end;
-
-procedure TestTPresupuestosController.TearDown;
-begin
- FPresupuestosController := Nil;
-end;
-
-procedure TestTPresupuestosController.TestBuscarTodos;
-var
- ReturnValue: IBizPresupuesto;
-begin
- ReturnValue := FPresupuestosController.BuscarTodos;
-
- ReturnValue.DataTable.Open;
- showmessage(IntToStr(ReturnValue.DataTable.RecordCount));
-end;
-
-procedure TestTPresupuestosController.TestVerTodos;
-var
- APresupuestos: IBizPresupuesto;
-begin
- APresupuestos := FPresupuestosController.BuscarTodos;
- APresupuestos.DataTable.Open;
- // TODO: Setup method call parameters
- FPresupuestosController.VerTodos(APresupuestos);
- // TODO: Validate method results
-end;
-
-initialization
- // Register any test cases with the test runner
- RegisterTest(TestTPresupuestosController.Suite);
-
-finalization
-
-
-end.
-