git-svn-id: https://192.168.0.254/svn/Proyectos.AbetoDesign_FactuGES/trunk@151 93f398dd-4eb6-7a46-baf6-13f46f578da2
42 lines
1.8 KiB
ObjectPascal
42 lines
1.8 KiB
ObjectPascal
unit uAlbaranesClienteViewRegister;
|
|
|
|
interface
|
|
|
|
procedure RegisterViews;
|
|
procedure UnregisterViews;
|
|
|
|
implementation
|
|
|
|
uses
|
|
uEditorRegistryUtils, uEditorAlbaranesCliente, uEditorAlbaranCliente,
|
|
uEditorElegirArticulosAlbaranCliente, uEditorAlbaranesClienteReport,
|
|
uEditorElegirAlbaranesCliente, uEditorAlbaranesDevCliente, uEditorAlbaranDevCliente,
|
|
uEditorDireccionEntregaAlbaranCliente;
|
|
|
|
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');
|
|
EditorRegistry.RegisterClass(TfEditorDireccionEntregaAlbaranCliente, 'EditorDireccionEntregaAlbaranCliente');
|
|
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);
|
|
EditorRegistry.UnRegisterClass(TfEditorDireccionEntregaAlbaranCliente);
|
|
end;
|
|
|
|
end.
|
|
|