2007-11-28 17:40:31 +00:00
|
|
|
unit uContactosViewRegister;
|
|
|
|
|
|
|
|
|
|
interface
|
|
|
|
|
|
|
|
|
|
procedure RegisterViews;
|
|
|
|
|
procedure UnregisterViews;
|
|
|
|
|
|
|
|
|
|
implementation
|
|
|
|
|
|
|
|
|
|
uses
|
|
|
|
|
uEditorRegistryUtils,
|
|
|
|
|
uEditorClientes, uEditorProveedores,
|
|
|
|
|
uEditorEmpleados, uEditorElegirCLientes,
|
|
|
|
|
uEditorCliente, uEditorProveedor,
|
|
|
|
|
uEditorEmpleado, uEditorElegirProveedores, uEditorDireccion,
|
2008-04-09 12:01:22 +00:00
|
|
|
uEditorGruposCliente, uEditorProcedenciasCliente,
|
2008-01-04 15:58:34 +00:00
|
|
|
uEditorGruposProveedor, uEditorGruposEmpleado,
|
2007-11-28 17:40:31 +00:00
|
|
|
uEditorFichasEmpleadoReport, uEditorEtiquetasContactosReport;
|
|
|
|
|
|
|
|
|
|
procedure RegisterViews;
|
|
|
|
|
begin
|
|
|
|
|
EditorRegistry.RegisterClass(TfEditorClientes, 'EditorClientes');
|
|
|
|
|
EditorRegistry.RegisterClass(TfEditorProveedores, 'EditorProveedores');
|
|
|
|
|
EditorRegistry.RegisterClass(TfEditorEmpleados, 'EditorEmpleados');
|
|
|
|
|
|
|
|
|
|
EditorRegistry.RegisterClass(TfEditorCliente, 'EditorCliente');
|
|
|
|
|
EditorRegistry.RegisterClass(TfEditorProveedor, 'EditorProveedor');
|
|
|
|
|
EditorRegistry.RegisterClass(TfEditorEmpleado, 'EditorEmpleado');
|
|
|
|
|
|
|
|
|
|
EditorRegistry.RegisterClass(TfEditorElegirClientes, 'EditorElegirClientes');
|
|
|
|
|
EditorRegistry.RegisterClass(TfEditorElegirProveedores, 'EditorElegirProveedores');
|
|
|
|
|
|
|
|
|
|
EditorRegistry.RegisterClass(TfEditorDireccion, 'EditorDireccion');
|
|
|
|
|
|
|
|
|
|
EditorRegistry.RegisterClass(TfEditorGruposCliente, 'EditorGruposCliente');
|
2008-01-04 15:58:34 +00:00
|
|
|
EditorRegistry.RegisterClass(TfEditorProcedenciasCliente, 'EditorProcedenciasCliente');
|
2007-11-28 17:40:31 +00:00
|
|
|
EditorRegistry.RegisterClass(TfEditorGruposProveedor, 'EditorGruposProveedor');
|
|
|
|
|
EditorRegistry.RegisterClass(TfEditorGruposEmpleado, 'EditorGruposEmpleado');
|
|
|
|
|
|
|
|
|
|
EditorRegistry.RegisterClass(TfEditorFichasEmpleadoPreview, 'EditorFichasEmpleadoPreview');
|
|
|
|
|
EditorRegistry.RegisterClass(TfEditorEtiquetasContactosPreview, 'EditorEtiquetasContactosPreview');
|
|
|
|
|
end;
|
|
|
|
|
|
|
|
|
|
procedure UnregisterViews;
|
|
|
|
|
begin
|
|
|
|
|
EditorRegistry.UnRegisterClass(TfEditorClientes);
|
|
|
|
|
EditorRegistry.UnRegisterClass(TfEditorProveedores);
|
|
|
|
|
EditorRegistry.UnRegisterClass(TfEditorEmpleados);
|
|
|
|
|
|
|
|
|
|
EditorRegistry.UnRegisterClass(TfEditorCliente);
|
|
|
|
|
EditorRegistry.UnRegisterClass(TfEditorProveedor);
|
|
|
|
|
EditorRegistry.UnRegisterClass(TfEditorEmpleado);
|
|
|
|
|
|
|
|
|
|
EditorRegistry.UnRegisterClass(TfEditorElegirClientes);
|
|
|
|
|
EditorRegistry.UnRegisterClass(TfEditorElegirProveedores);
|
|
|
|
|
|
|
|
|
|
EditorRegistry.UnRegisterClass(TfEditorDireccion);
|
|
|
|
|
|
|
|
|
|
EditorRegistry.UnRegisterClass(TfEditorGruposCliente);
|
2008-01-04 15:58:34 +00:00
|
|
|
EditorRegistry.UnRegisterClass(TfEditorProcedenciasCliente);
|
2007-11-28 17:40:31 +00:00
|
|
|
EditorRegistry.UnRegisterClass(TfEditorGruposProveedor);
|
|
|
|
|
EditorRegistry.UnRegisterClass(TfEditorGruposEmpleado);
|
|
|
|
|
|
|
|
|
|
EditorRegistry.UnRegisterClass(TfEditorFichasEmpleadoPreview);
|
2008-01-04 15:58:34 +00:00
|
|
|
EditorRegistry.UnRegisterClass(TfEditorEtiquetasContactosPreview);
|
2007-11-28 17:40:31 +00:00
|
|
|
end;
|
|
|
|
|
|
|
|
|
|
end.
|