31 lines
986 B
ObjectPascal
31 lines
986 B
ObjectPascal
|
unit uInventarioViewRegister;
|
||
|
|
|
||
|
|
interface
|
||
|
|
|
||
|
|
procedure RegisterViews;
|
||
|
|
procedure UnregisterViews;
|
||
|
|
|
||
|
|
implementation
|
||
|
|
|
||
|
|
uses
|
||
|
|
uEditorRegistryUtils, uEditorInventario, uEditorEntradaSalidaArticulos,
|
||
|
|
uEditorElegirArticulosCatalogo, uEditorElegirArticulosAlmacen;
|
||
|
|
|
||
|
|
procedure RegisterViews;
|
||
|
|
begin
|
||
|
|
EditorRegistry.RegisterClass(TfEditorInventario, 'EditorInventario');
|
||
|
|
EditorRegistry.RegisterClass(TfEditorEntradaSalidaArticulos, 'EditorEntradaSalidaArticulos');
|
||
|
|
EditorRegistry.RegisterClass(TfEditorElegirArticulosCatalogo, 'EditorElegirArticulosCatalogo');
|
||
|
|
EditorRegistry.RegisterClass(TfEditorElegirArticulosAlmacen, 'EditorElegirArticulosAlmacen');
|
||
|
|
end;
|
||
|
|
|
||
|
|
procedure UnregisterViews;
|
||
|
|
begin
|
||
|
|
EditorRegistry.UnRegisterClass(TfEditorInventario);
|
||
|
|
EditorRegistry.UnRegisterClass(TfEditorEntradaSalidaArticulos);
|
||
|
|
EditorRegistry.UnRegisterClass(TfEditorElegirArticulosCatalogo);
|
||
|
|
EditorRegistry.UnRegisterClass(TfEditorElegirArticulosAlmacen);
|
||
|
|
end;
|
||
|
|
|
||
|
|
end.
|