Tecsitel_FactuGES2/Source/Modulos/Pedidos a proveedor/Views/uPedidosProveedorViewRegister.pas

42 lines
1.8 KiB
ObjectPascal
Raw Normal View History

unit uPedidosProveedorViewRegister;
interface
procedure RegisterViews;
procedure UnregisterViews;
implementation
uses
uEditorRegistryUtils, uEditorPedidosProveedor, uEditorPedidoProveedor,
uEditorPedidosProveedorReport, uEditorElegirPedidosProveedor,
uEditorElegirArticulosPedidoProveedor, uEditorDireccionEntregaPedidoProveedor,
uEditorSituacionPedidoProveedor, uDialogListaPedidosProveedorEnvioEMail;
procedure RegisterViews;
begin
EditorRegistry.RegisterClass(TfEditorDireccionEntregaPedidoProveedor, 'EditorDireccionEntregaPedidoProveedor');
EditorRegistry.RegisterClass(TfEditorPedidosProveedor, 'EditorPedidosProveedor');
EditorRegistry.RegisterClass(TfEditorPedidoProveedor, 'EditorPedidoProveedor');
EditorRegistry.RegisterClass(TfEditorElegirPedidosProveedor, 'EditorElegirPedidosProveedor');
EditorRegistry.RegisterClass(TfEditorElegirArticulosPedidoProveedor, 'EditorElegirArticulosPedidoProveedor');
EditorRegistry.RegisterClass(TfEditorPedidosProveedorPreview, 'EditorPedidosProveedorPreview');
EditorRegistry.RegisterClass(TfEditorSituacionPedidoProveedor, 'EditorSituacionPedidoProveedor');
EditorRegistry.RegisterClass(TfDialogListaPedidosProveedorEnvioEMail, 'DialogListaPedidosProveedorEnvioEMail');
end;
procedure UnregisterViews;
begin
EditorRegistry.UnRegisterClass(TfEditorDireccionEntregaPedidoProveedor);
EditorRegistry.UnRegisterClass(TfEditorPedidosProveedor);
EditorRegistry.UnRegisterClass(TfEditorPedidoProveedor);
EditorRegistry.UnRegisterClass(TfEditorElegirPedidosProveedor);
EditorRegistry.UnRegisterClass(TfEditorElegirArticulosPedidoProveedor);
EditorRegistry.UnRegisterClass(TfEditorPedidosProveedorPreview);
EditorRegistry.UnRegisterClass(TfEditorSituacionPedidoProveedor);
EditorRegistry.UnRegisterClass(TfDialogListaPedidosProveedorEnvioEMail);
end;
end.