34 lines
1.2 KiB
ObjectPascal
34 lines
1.2 KiB
ObjectPascal
unit uPresupuestosClienteViewRegister;
|
|
|
|
interface
|
|
|
|
procedure RegisterViews;
|
|
procedure UnregisterViews;
|
|
|
|
implementation
|
|
|
|
uses
|
|
uEditorRegistryUtils, uEditorPresupuestosCliente, uEditorPresupuestoCliente, uEditorElegirPresupuestosCliente,
|
|
uEditorElegirArticulosPresupuestoCliente, uEditorPresupuestosClienteReport;
|
|
|
|
procedure RegisterViews;
|
|
begin
|
|
EditorRegistry.RegisterClass(TfEditorPresupuestosCliente, 'EditorPresupuestosCliente');
|
|
EditorRegistry.RegisterClass(TfEditorPresupuestoCliente, 'EditorPresupuestoCliente');
|
|
EditorRegistry.RegisterClass(TfEditorElegirPresupuestosCliente, 'EditorElegirPresupuestosCliente');
|
|
EditorRegistry.RegisterClass(TfEditorElegirArticulosPresupuestoCliente, 'EditorElegirArticulosPresupuestosCliente');
|
|
EditorRegistry.RegisterClass(TfEditorPresupuestosClientePreview, 'EditorPresupuestosClientePreview');
|
|
end;
|
|
|
|
procedure UnregisterViews;
|
|
begin
|
|
EditorRegistry.UnRegisterClass(TfEditorPresupuestosCliente);
|
|
EditorRegistry.UnRegisterClass(TfEditorPresupuestoCliente);
|
|
EditorRegistry.UnRegisterClass(TfEditorElegirPresupuestosCliente);
|
|
EditorRegistry.UnRegisterClass(TfEditorElegirArticulosPresupuestoCliente);
|
|
EditorRegistry.UnRegisterClass(TfEditorPresupuestosClientePreview);
|
|
end;
|
|
|
|
end.
|
|
|