AbetoDesign_FactuGES2/Source/Modulos/Contactos/Views/uContactosViewRegister.pas

unit uContactosViewRegister;

interface

procedure RegisterViews;
procedure UnregisterViews;

implementation

uses
  uEditorRegistryUtils, uViewConfiguracionRegistryUtils,
  uEditorClientes, uEditorProveedores,
  uEditorVendedores, uEditorElegirCLientes,
  uEditorCliente, uEditorProveedor,
  uEditorVendedor, uEditorElegirProveedores, uEditorDireccion,
  uEditorElegirVendedores, uEditorElegirComerciales, uEditorElegirInstaladores,
  uEditorGruposCliente, uEditorProcedenciasCliente, uEditorGruposProveedor,
  uEditorEtiquetasContactosReport, uViewConfiguracionContactos, uEditorPersonal,
  uEditorElegirPersonaContacto, uEditorElegirDireccionEntrega, uEditorAsignarPrecioPunto,
  uEditorComerciales, uEditorInstaladores, uEditorComercial, uEditorInstalador;

procedure RegisterViews;
begin
  EditorRegistry.RegisterClass(TfEditorClientes, 'EditorClientes');
  EditorRegistry.RegisterClass(TfEditorProveedores, 'EditorProveedores');
  EditorRegistry.RegisterClass(TfEditorVendedores, 'EditorVendedores');
  EditorRegistry.RegisterClass(TfEditorComerciales, 'EditorComerciales');
  EditorRegistry.RegisterClass(TfEditorInstaladores, 'EditorInstaladores');

  EditorRegistry.RegisterClass(TfEditorCliente, 'EditorCliente');
  EditorRegistry.RegisterClass(TfEditorProveedor, 'EditorProveedor');
  EditorRegistry.RegisterClass(TfEditorVendedor, 'EditorVendedor');
  EditorRegistry.RegisterClass(TfEditorComercial, 'EditorComercial');
  EditorRegistry.RegisterClass(TfEditorInstalador, 'EditorInstalador');

  EditorRegistry.RegisterClass(TfEditorElegirClientes, 'EditorElegirClientes');
  EditorRegistry.RegisterClass(TfEditorElegirProveedores, 'EditorElegirProveedores');
  EditorRegistry.RegisterClass(TfEditorElegirVendedores, 'EditorElegirVendedores');
  EditorRegistry.RegisterClass(TfEditorElegirComerciales, 'EditorElegirComerciales');
  EditorRegistry.RegisterClass(TfEditorElegirInstaladores, 'EditorElegirInstaladores');

  EditorRegistry.RegisterClass(TfEditorDireccion, 'EditorDireccion');
  EditorRegistry.RegisterClass(TfEditorElegirDireccionEntrega, 'EditorElegirDireccionEntrega');

  EditorRegistry.RegisterClass(TfEditorGruposCliente, 'EditorGruposCliente');
  EditorRegistry.RegisterClass(TfEditorProcedenciasCliente, 'EditorProcedenciasCliente');
  EditorRegistry.RegisterClass(TfEditorGruposProveedor, 'EditorGruposProveedor');

  EditorRegistry.RegisterClass(TfEditorEtiquetasContactosPreview, 'EditorEtiquetasContactosPreview');

  EditorRegistry.RegisterClass(TfEditorPersonal, 'EditorPersonalContacto');
  EditorRegistry.RegisterClass(TfEditorElegirPersonaContacto, 'EditorElegirPersonaContacto');

  EditorRegistry.RegisterClass(TfEditorAsignarPrecioPunto, 'EditorAsignarPrecioPunto');
//  ViewConfiguracionRegistry.RegisterClass(TfrViewConfiguracionContactos, 'Contactos');
end;

procedure UnregisterViews;
begin
  EditorRegistry.UnRegisterClass(TfEditorClientes);
  EditorRegistry.UnRegisterClass(TfEditorProveedores);
  EditorRegistry.UnRegisterClass(TfEditorVendedores);
  EditorRegistry.UnRegisterClass(TfEditorComerciales);
  EditorRegistry.UnRegisterClass(TfEditorInstaladores);

  EditorRegistry.UnRegisterClass(TfEditorCliente);
  EditorRegistry.UnRegisterClass(TfEditorProveedor);
  EditorRegistry.UnRegisterClass(TfEditorVendedor);
  EditorRegistry.UnRegisterClass(TfEditorComercial);
  EditorRegistry.UnRegisterClass(TfEditorInstalador);

  EditorRegistry.UnRegisterClass(TfEditorElegirClientes);
  EditorRegistry.UnRegisterClass(TfEditorElegirProveedores);
  EditorRegistry.UnRegisterClass(TfEditorElegirVendedores);
  EditorRegistry.UnRegisterClass(TfEditorElegirComerciales);
  EditorRegistry.UnRegisterClass(TfEditorElegirInstaladores);

  EditorRegistry.UnRegisterClass(TfEditorDireccion);
  EditorRegistry.UnRegisterClass(TfEditorElegirDireccionEntrega);

  EditorRegistry.UnRegisterClass(TfEditorGruposCliente);
  EditorRegistry.UnRegisterClass(TfEditorProcedenciasCliente);
  EditorRegistry.UnRegisterClass(TfEditorGruposProveedor);

  EditorRegistry.UnRegisterClass(TfEditorEtiquetasContactosPreview);

  EditorRegistry.UnRegisterClass(TfEditorPersonal);
  EditorRegistry.UnRegisterClass(TfEditorElegirPersonaContacto);

//  ViewConfiguracionRegistry.UnRegisterClass(TfrViewConfiguracionContactos);
end;

end.