2007-11-28 17:40:31 +00:00
|
|
|
unit uContactosViewRegister;
|
|
|
|
|
|
|
|
|
|
interface
|
|
|
|
|
|
|
|
|
|
procedure RegisterViews;
|
|
|
|
|
procedure UnregisterViews;
|
|
|
|
|
|
|
|
|
|
implementation
|
|
|
|
|
|
|
|
|
|
uses
|
|
|
|
|
uEditorRegistryUtils,
|
|
|
|
|
uEditorClientes, uEditorProveedores,
|
2008-05-23 14:55:02 +00:00
|
|
|
uEditorVendedores, uEditorElegirCLientes,
|
2007-11-28 17:40:31 +00:00
|
|
|
uEditorCliente, uEditorProveedor,
|
2008-05-23 14:55:02 +00:00
|
|
|
uEditorVendedor, uEditorElegirProveedores, uEditorDireccion,
|
|
|
|
|
uEditorElegirVendedores, uEditorGruposCliente, uEditorProcedenciasCliente,
|
|
|
|
|
uEditorGruposProveedor, uEditorEtiquetasContactosReport;
|
2007-11-28 17:40:31 +00:00
|
|
|
|
|
|
|
|
procedure RegisterViews;
|
|
|
|
|
begin
|
|
|
|
|
EditorRegistry.RegisterClass(TfEditorClientes, 'EditorClientes');
|
|
|
|
|
EditorRegistry.RegisterClass(TfEditorProveedores, 'EditorProveedores');
|
2008-05-23 14:55:02 +00:00
|
|
|
EditorRegistry.RegisterClass(TfEditorVendedores, 'EditorVendedores');
|
2007-11-28 17:40:31 +00:00
|
|
|
|
|
|
|
|
EditorRegistry.RegisterClass(TfEditorCliente, 'EditorCliente');
|
|
|
|
|
EditorRegistry.RegisterClass(TfEditorProveedor, 'EditorProveedor');
|
2008-05-23 14:55:02 +00:00
|
|
|
EditorRegistry.RegisterClass(TfEditorVendedor, 'EditorVendedor');
|
2007-11-28 17:40:31 +00:00
|
|
|
|
|
|
|
|
EditorRegistry.RegisterClass(TfEditorElegirClientes, 'EditorElegirClientes');
|
|
|
|
|
EditorRegistry.RegisterClass(TfEditorElegirProveedores, 'EditorElegirProveedores');
|
2008-05-23 14:55:02 +00:00
|
|
|
EditorRegistry.RegisterClass(TfEditorElegirVendedores, 'EditorElegirVendedores');
|
2007-11-28 17:40:31 +00:00
|
|
|
|
|
|
|
|
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(TfEditorEtiquetasContactosPreview, 'EditorEtiquetasContactosPreview');
|
|
|
|
|
end;
|
|
|
|
|
|
|
|
|
|
procedure UnregisterViews;
|
|
|
|
|
begin
|
|
|
|
|
EditorRegistry.UnRegisterClass(TfEditorClientes);
|
|
|
|
|
EditorRegistry.UnRegisterClass(TfEditorProveedores);
|
2008-05-23 14:55:02 +00:00
|
|
|
EditorRegistry.UnRegisterClass(TfEditorVendedores);
|
2007-11-28 17:40:31 +00:00
|
|
|
|
|
|
|
|
EditorRegistry.UnRegisterClass(TfEditorCliente);
|
|
|
|
|
EditorRegistry.UnRegisterClass(TfEditorProveedor);
|
2008-05-23 14:55:02 +00:00
|
|
|
EditorRegistry.UnRegisterClass(TfEditorVendedor);
|
2007-11-28 17:40:31 +00:00
|
|
|
|
|
|
|
|
EditorRegistry.UnRegisterClass(TfEditorElegirClientes);
|
|
|
|
|
EditorRegistry.UnRegisterClass(TfEditorElegirProveedores);
|
2008-05-23 14:55:02 +00:00
|
|
|
EditorRegistry.UnRegisterClass(TfEditorElegirVendedores);
|
2007-11-28 17:40:31 +00:00
|
|
|
|
|
|
|
|
EditorRegistry.UnRegisterClass(TfEditorDireccion);
|
|
|
|
|
|
|
|
|
|
EditorRegistry.UnRegisterClass(TfEditorGruposCliente);
|
2008-05-23 14:55:02 +00:00
|
|
|
EditorRegistry.UnRegisterClass(TfEditorProcedenciasCliente);
|
2007-11-28 17:40:31 +00:00
|
|
|
EditorRegistry.UnRegisterClass(TfEditorGruposProveedor);
|
|
|
|
|
|
2008-01-04 15:58:34 +00:00
|
|
|
EditorRegistry.UnRegisterClass(TfEditorEtiquetasContactosPreview);
|
2007-11-28 17:40:31 +00:00
|
|
|
end;
|
|
|
|
|
|
|
|
|
|
end.
|