git-svn-id: https://192.168.0.254/svn/Proyectos.AbetoDesign_FactuGES/trunk@2 93f398dd-4eb6-7a46-baf6-13f46f578da2
39 lines
1.5 KiB
ObjectPascal
39 lines
1.5 KiB
ObjectPascal
unit uAlbaranesClienteViewRegister;
|
|
|
|
interface
|
|
|
|
procedure RegisterViews;
|
|
procedure UnregisterViews;
|
|
|
|
implementation
|
|
|
|
uses
|
|
uEditorRegistryUtils, uEditorAlbaranesCliente, uEditorAlbaranCliente,
|
|
uEditorElegirArticulosAlbaranCliente, uEditorAlbaranesClienteReport,
|
|
uEditorElegirAlbaranesCliente, uEditorAlbaranesDevCliente, uEditorAlbaranDevCliente;
|
|
|
|
procedure RegisterViews;
|
|
begin
|
|
EditorRegistry.RegisterClass(TfEditorAlbaranesCliente, 'EditorAlbaranesCliente');
|
|
EditorRegistry.RegisterClass(TfEditorAlbaranCliente, 'EditorAlbaranCliente');
|
|
EditorRegistry.RegisterClass(TfEditorAlbaranesDevCliente, 'EditorAlbaranesDevCliente');
|
|
EditorRegistry.RegisterClass(TfEditorAlbaranDevCliente, 'EditorAlbaranDevCliente');
|
|
EditorRegistry.RegisterClass(TfEditorElegirArticulosAlbaranCliente, 'EditorElegirArticulosAlbaranesCliente');
|
|
EditorRegistry.RegisterClass(TfEditorAlbaranesClientePreview, 'EditorAlbaranesClientePreview');
|
|
EditorRegistry.RegisterClass(TfEditorElegirAlbaranesCliente, 'EditorElegirAlbaranesCliente');
|
|
end;
|
|
|
|
procedure UnregisterViews;
|
|
begin
|
|
EditorRegistry.UnRegisterClass(TfEditorAlbaranesCliente);
|
|
EditorRegistry.UnRegisterClass(TfEditorAlbaranCliente);
|
|
EditorRegistry.UnRegisterClass(TfEditorAlbaranesDevCliente);
|
|
EditorRegistry.UnRegisterClass(TfEditorAlbaranDevCliente);
|
|
EditorRegistry.UnRegisterClass(TfEditorElegirArticulosAlbaranCliente);
|
|
EditorRegistry.UnRegisterClass(TfEditorAlbaranesClientePreview);
|
|
EditorRegistry.UnRegisterClass(TfEditorElegirAlbaranesCliente);
|
|
end;
|
|
|
|
end.
|
|
|