git-svn-id: https://192.168.0.254/svn/Proyectos.Tecsitel_FactuGES2/trunk@1002 0c75b7a4-871f-7646-8a2f-f78d34cc349f
39 lines
1.6 KiB
ObjectPascal
39 lines
1.6 KiB
ObjectPascal
unit uPresupuestosClienteViewRegister;
|
|
|
|
interface
|
|
|
|
procedure RegisterViews;
|
|
procedure UnregisterViews;
|
|
|
|
implementation
|
|
|
|
uses
|
|
uEditorRegistryUtils, uEditorPresupuestosCliente, uEditorPresupuestoCliente, uEditorElegirPresupuestosCliente,
|
|
uEditorElegirArticulosPresupuestoCliente, uEditorPresupuestosClienteReport, uEditorVariarPrecios,
|
|
uDialogListaPresupuestosEnvioEMail;
|
|
|
|
procedure RegisterViews;
|
|
begin
|
|
EditorRegistry.RegisterClass(TfEditorPresupuestosCliente, 'EditorPresupuestosCliente');
|
|
EditorRegistry.RegisterClass(TfEditorPresupuestoCliente, 'EditorPresupuestoCliente');
|
|
EditorRegistry.RegisterClass(TfEditorElegirPresupuestosCliente, 'EditorElegirPresupuestosCliente');
|
|
EditorRegistry.RegisterClass(TfEditorElegirArticulosPresupuestoCliente, 'EditorElegirArticulosPresupuestosCliente');
|
|
EditorRegistry.RegisterClass(TfEditorPresupuestosClientePreview, 'EditorPresupuestosClientePreview');
|
|
EditorRegistry.RegisterClass(TfEditorVariarPrecios, 'EditorVariarPrecios');
|
|
EditorRegistry.RegisterClass(TfDialogListaPresupuestosEnvioEMail, 'DialogListaPresupuestosEnvioEMail');
|
|
end;
|
|
|
|
procedure UnregisterViews;
|
|
begin
|
|
EditorRegistry.UnRegisterClass(TfEditorPresupuestosCliente);
|
|
EditorRegistry.UnRegisterClass(TfEditorPresupuestoCliente);
|
|
EditorRegistry.UnRegisterClass(TfEditorElegirPresupuestosCliente);
|
|
EditorRegistry.UnRegisterClass(TfEditorElegirArticulosPresupuestoCliente);
|
|
EditorRegistry.UnRegisterClass(TfEditorPresupuestosClientePreview);
|
|
EditorRegistry.UnRegisterClass(TfEditorVariarPrecios);
|
|
EditorRegistry.UnRegisterClass(TfDialogListaPresupuestosEnvioEMail);
|
|
end;
|
|
|
|
end.
|
|
|