AbetoDesign_FactuGES2/Source/Modulos/Albaranes de cliente/Views/uAlbaranesClienteViewRegister.pas

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.