diff --git a/Build/Build.fbl6 b/Build/Build.fbl6 index d91b3e0..a18f391 100644 Binary files a/Build/Build.fbl6 and b/Build/Build.fbl6 differ diff --git a/Database/scripts/factuges.sql b/Database/scripts/factuges.sql index 1532942..660f3d2 100644 --- a/Database/scripts/factuges.sql +++ b/Database/scripts/factuges.sql @@ -4331,7 +4331,8 @@ CREATE VIEW V_PEDIDOS_CLIENTE( FORMA_PAGO, REF_TIENDA_WEB, FECHA_PREVISTA_ENVIO, - DATOS_BANCARIOS) + DATOS_BANCARIOS, + ID_VENDEDOR) AS SELECT PEDIDOS_CLIENTE.ID, @@ -4369,12 +4370,14 @@ SELECT FORMAS_PAGO.DESCRIPCION, PEDIDOS_CLIENTE.REF_TIENDA_WEB, PEDIDOS_CLIENTE.FECHA_PREVISTA_ENVIO, - PEDIDOS_CLIENTE.DATOS_BANCARIOS + PEDIDOS_CLIENTE.DATOS_BANCARIOS, + clientes_datos.id_agente FROM V_PED_CLI_SITUACION INNER JOIN PEDIDOS_CLIENTE ON (PEDIDOS_CLIENTE.ID = V_PED_CLI_SITUACION.ID_PEDIDO) INNER JOIN CONTACTOS ON (PEDIDOS_CLIENTE.ID_CLIENTE = CONTACTOS.ID) LEFT OUTER JOIN FORMAS_PAGO ON (FORMAS_PAGO.ID = PEDIDOS_CLIENTE.ID_FORMA_PAGO) + left join clientes_datos on (clientes_datos.id_cliente = contactos.id) ; /**************************************************/ diff --git a/Source/ApplicationBase/uPlugins_Intf.pas b/Source/ApplicationBase/uPlugins_Intf.pas index fdc4ded..63f3ce9 100644 --- a/Source/ApplicationBase/uPlugins_Intf.pas +++ b/Source/ApplicationBase/uPlugins_Intf.pas @@ -3,6 +3,8 @@ unit uPlugins_Intf; interface const + MODULENAME_CONTACTOS = 'Contactos_plugin.bpl'; + MODULENAME_PRESUPUESTOS_CLIENTE = 'PresupuestosCliente_plugin.bpl'; MODULENAME_PEDIDOS_CLIENTE = 'PedidosCliente_plugin.bpl'; MODULENAME_ALBARANES_CLIENTE = 'AlbaranesCliente_plugin.bpl'; @@ -16,6 +18,12 @@ const MODULENAME_COMISIONES = 'Comisiones_plugin.bpl'; type + IMCContactos = interface(IInterface) + ['{BAEDC5D8-2FE8-4907-8027-C60861829BA9}'] + procedure VerClientesVendedor(const ID_Vendedor: Integer; + const ANombreVendedor : String = ''); + end; + IMCPresupuestosCliente = interface(IInterface) ['{D09E6FFF-50C7-48E2-8380-4CB57B74BB93}'] procedure VerPresupuestos(const ID_Cliente: Integer; @@ -26,6 +34,8 @@ type ['{6ACDE97F-AC9A-406C-8ADC-3B730D01CB89}'] procedure VerPedidos(const ID_Cliente: Integer; const ANombreCliente : String = ''); + procedure VerPedidosVendedor(const ID_Vendedor: Integer; + const ANombreVendedor : String = ''); end; IMCAlbaranesCliente = interface(IInterface) diff --git a/Source/Base/Base.dproj b/Source/Base/Base.dproj index c58c3d6..990c17d 100644 --- a/Source/Base/Base.dproj +++ b/Source/Base/Base.dproj @@ -53,58 +53,58 @@ MainSource - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + +
fConfigurarConexion
TForm diff --git a/Source/Base/Base.res b/Source/Base/Base.res index 1641339..8b251f3 100644 Binary files a/Source/Base/Base.res and b/Source/Base/Base.res differ diff --git a/Source/Cliente/FactuGES.dpr b/Source/Cliente/FactuGES.dpr index e443745..b105df3 100644 --- a/Source/Cliente/FactuGES.dpr +++ b/Source/Cliente/FactuGES.dpr @@ -1,7 +1,6 @@ program FactuGES; uses - ExceptionLog, Forms, Windows, SysUtils, diff --git a/Source/Cliente/FactuGES.dproj b/Source/Cliente/FactuGES.dproj index 556af98..060819e 100644 --- a/Source/Cliente/FactuGES.dproj +++ b/Source/Cliente/FactuGES.dproj @@ -54,7 +54,7 @@ Delphi.Personality VCLApplication -FalseTrueFalseC:\Archivos de programa\Borland\Delphi7\Bin\TrueFalse1060FalseFalseFalseFalseFalse30821252Rodax Software S.L.1.0.6.0FactuGESFactuGES1.0.6.0FactuGES.dprFalse +FalseTrueFalseC:\Archivos de programa\Borland\Delphi7\Bin\TrueFalse1070FalseFalseFalseFalseFalse30821252Rodax Software S.L.1.0.7.0FactuGESFactuGES1.0.7.0FactuGES.dprFalse diff --git a/Source/Cliente/FactuGES.res b/Source/Cliente/FactuGES.res index c47d556..f9cba37 100644 Binary files a/Source/Cliente/FactuGES.res and b/Source/Cliente/FactuGES.res differ diff --git a/Source/Cliente/uBootStrap.pas b/Source/Cliente/uBootStrap.pas index acfe576..dad5b94 100644 --- a/Source/Cliente/uBootStrap.pas +++ b/Source/Cliente/uBootStrap.pas @@ -27,7 +27,7 @@ begin // LoadModule('Fabricantes_plugin.bpl'); // LoadModule('UnidadesMedida_plugin.bpl'); - LoadModule('Contactos_plugin.bpl'); + LoadModule(MODULENAME_CONTACTOS); LoadModule('Almacenes_plugin.bpl'); // LoadModule('Obras_plugin.bpl'); diff --git a/Source/Modulos/Albaranes de cliente/AlbaranesCliente_Group.groupproj b/Source/Modulos/Albaranes de cliente/AlbaranesCliente_Group.groupproj index 17e74fe..f53db1b 100644 --- a/Source/Modulos/Albaranes de cliente/AlbaranesCliente_Group.groupproj +++ b/Source/Modulos/Albaranes de cliente/AlbaranesCliente_Group.groupproj @@ -19,6 +19,7 @@ + @@ -281,14 +282,23 @@ + + + + + + + + + - + - + - + \ No newline at end of file diff --git a/Source/Modulos/Comisiones/Controller/Comisiones_controller.res b/Source/Modulos/Comisiones/Controller/Comisiones_controller.res index 1641339..8b251f3 100644 Binary files a/Source/Modulos/Comisiones/Controller/Comisiones_controller.res and b/Source/Modulos/Comisiones/Controller/Comisiones_controller.res differ diff --git a/Source/Modulos/Comisiones/Model/Comisiones_model.res b/Source/Modulos/Comisiones/Model/Comisiones_model.res index 1641339..8b251f3 100644 Binary files a/Source/Modulos/Comisiones/Model/Comisiones_model.res and b/Source/Modulos/Comisiones/Model/Comisiones_model.res differ diff --git a/Source/Modulos/Comisiones/Model/schComisionesClient_Intf.pas b/Source/Modulos/Comisiones/Model/schComisionesClient_Intf.pas index 08fe5d1..dfe3b97 100644 --- a/Source/Modulos/Comisiones/Model/schComisionesClient_Intf.pas +++ b/Source/Modulos/Comisiones/Model/schComisionesClient_Intf.pas @@ -3,7 +3,7 @@ unit schComisionesClient_Intf; interface uses - Classes, DB, SysUtils, uROClasses, uDAInterfaces, uDADataTable, FmtBCD, uROXMLIntf; + Classes, DB, schBase_Intf, SysUtils, uROClasses, uDAInterfaces, uDADataTable, FmtBCD, uROXMLIntf; const { Data table rules ids @@ -95,7 +95,7 @@ type end; { TListaAnosComisionesDataTableRules } - TListaAnosComisionesDataTableRules = class(TDADataTableRules, IListaAnosComisiones) + TListaAnosComisionesDataTableRules = class(TIntfObjectDADataTableRules, IListaAnosComisiones) private protected { Property getters and setters } @@ -208,7 +208,7 @@ type end; { TFacturasComisionDataTableRules } - TFacturasComisionDataTableRules = class(TDADataTableRules, IFacturasComision) + TFacturasComisionDataTableRules = class(TIntfObjectDADataTableRules, IFacturasComision) private protected { Property getters and setters } @@ -369,7 +369,7 @@ type end; { TComisionesDataTableRules } - TComisionesDataTableRules = class(TDADataTableRules, IComisiones) + TComisionesDataTableRules = class(TIntfObjectDADataTableRules, IComisiones) private protected { Property getters and setters } diff --git a/Source/Modulos/Comisiones/Views/Comisiones_view.res b/Source/Modulos/Comisiones/Views/Comisiones_view.res index 1641339..8b251f3 100644 Binary files a/Source/Modulos/Comisiones/Views/Comisiones_view.res and b/Source/Modulos/Comisiones/Views/Comisiones_view.res differ diff --git a/Source/Modulos/Contactos/Contactos_Group.groupproj b/Source/Modulos/Contactos/Contactos_Group.groupproj index e6ab4f4..a50f4ed 100644 --- a/Source/Modulos/Contactos/Contactos_Group.groupproj +++ b/Source/Modulos/Contactos/Contactos_Group.groupproj @@ -10,7 +10,9 @@ + + @@ -131,14 +133,32 @@ + + + + + + + + + + + + + + + + + + - + - + - + \ No newline at end of file diff --git a/Source/Modulos/Contactos/Controller/uClientesController.pas b/Source/Modulos/Contactos/Controller/uClientesController.pas index f0e2364..233609d 100644 --- a/Source/Modulos/Contactos/Controller/uClientesController.pas +++ b/Source/Modulos/Contactos/Controller/uClientesController.pas @@ -11,6 +11,7 @@ uses type IClientesController = interface(IContactosController) ['{AAC3C51A-37F7-4961-B39F-FBC6B6A2B0F1}'] + function BuscarTodosVendedor(const ID_Vendedor: Integer): IBizCliente; function BuscarTodosTiendaWeb: IBizCliente; function BuscarEtiquetadosFelicitacion: IBizCliente; function TieneDatosBancarios(ACliente: IBizCliente) : Boolean; @@ -23,6 +24,8 @@ type procedure VerAlbaranesDeCliente(ACliente : IBizCliente); procedure VerFacturasDeCliente(ACliente : IBizCliente); procedure VerRecibosDeCliente(ACliente : IBizCliente); + procedure VerTodos(AContactos: IBizContacto; const AVerModal : Boolean = False; const AWindowCaption: String = ''; + const AHeaderText: String = ''); overload; function DarListaCuentasBancarias(const IdCliente: Integer): TStringList; end; @@ -38,11 +41,14 @@ type function Buscar(const ID: Integer): IBizContacto; override; function BuscarTodos: IBizContacto; override; + function BuscarTodosVendedor(const ID_Vendedor: Integer): IBizCliente; function BuscarTodosTiendaWeb: IBizCliente; function BuscarEtiquetadosFelicitacion: IBizCliente; function Nuevo : IBizContacto; override; procedure Ver(AContacto : IBizContacto); override; - procedure VerTodos(AContactos: IBizContacto); override; + procedure VerTodos(AContactos: IBizContacto); overload; override; + procedure VerTodos(AContactos: IBizContacto; const AVerModal : Boolean = False; const AWindowCaption: String = ''; + const AHeaderText: String = ''); overload; function ElegirContacto(AContactos : IBizContacto; AMensaje: String; AMultiSelect: Boolean): IBizContacto; override; function TieneDatosBancarios(ACliente: IBizCliente) : Boolean; @@ -63,9 +69,9 @@ implementation uses Forms, Windows, SysUtils, Controls, cxControls, uDialogUtils, uDataModuleClientes, uEditorRegistryUtils, - uDataTableUtils, uDADataTable, DB, schContactosClient_Intf, uEtiquetasContactosReportController, + uDataTableUtils, uDADataTable, uDAInterfaces, DB, schContactosClient_Intf, uEtiquetasContactosReportController, uIEditorElegirClientes, uIEditorElegirDireccionEntrega, uEditorGridBase, uModuleController, - Dialogs, uIntegerListUtils, uFactuGES_App, + Dialogs, uIntegerListUtils, uFactuGES_App, uStringsUtils, uPlugins_Intf; { TClientesController } @@ -94,6 +100,29 @@ begin FiltrarEmpresa(Result); end; +function TClientesController.BuscarTodosVendedor(const ID_Vendedor: Integer): IBizCliente; +var + Condicion: TDAWhereExpression; +begin + ShowHourglassCursor; + try + Result := (BuscarTodos as IBizCliente); + + with Result.DataTable.DynamicWhere do + begin + // ID_VENDEDOR + Condicion := NewBinaryExpression(NewField('', fld_ClientesID_AGENTE), NewConstant(ID_VENDEDOR, datInteger), dboEqual); + + if IsEmpty then + Expression := Condicion + else + Expression := NewBinaryExpression(Expression, Condicion, dboAnd); + end; + finally + HideHourglassCursor; + end; +end; + constructor TClientesController.Create; begin inherited; @@ -517,6 +546,38 @@ begin end; end; +procedure TClientesController.VerTodos(AContactos: IBizContacto; + const AVerModal: Boolean; const AWindowCaption, AHeaderText: String); +var + AEditor : IEditorClientes; +begin + AEditor := NIL; + + CreateEditor('EditorClientes', IEditorClientes, AEditor); + if Assigned(AEditor) then + try + if not EsCadenaVacia(AWindowCaption) then + AEditor.WindowCaption := AWindowCaption; + + if not EsCadenaVacia(AHeaderText) then + AEditor.HeaderText := AHeaderText; + + AEditor.Contactos := AContactos; + AEditor.Controller := Self; + AEditor.MultiSelect := True; + + if AVerModal then + AEditor.ShowModal + else + AEditor.ShowEmbedded; + + finally + if AVerModal then + AEditor.Release; + AEditor := NIL; + end; +end; + procedure TClientesController.VerTodos(AContactos: IBizContacto); var AEditor : IEditorClientes; diff --git a/Source/Modulos/Contactos/Controller/uVendedoresController.pas b/Source/Modulos/Contactos/Controller/uVendedoresController.pas index b3b4f93..5d69c2d 100644 --- a/Source/Modulos/Contactos/Controller/uVendedoresController.pas +++ b/Source/Modulos/Contactos/Controller/uVendedoresController.pas @@ -18,6 +18,8 @@ type function DarListaVendedores : TStringList; function BuscarTodos: IBizContacto; overload; function BuscarTodos(const CadenaIDs: String): IBizContacto; overload; + procedure VerPedidosDeVendedor(AVendedor : IBizVendedor); + procedure VerClientesDeVendedor(AVendedor : IBizVendedor); end; TVendedoresController = class(TContactosController, IVendedoresController) @@ -37,14 +39,16 @@ type function Eliminar(AVendedor: IBizContacto; AllItems: Boolean = false): Boolean; overload; function EsEliminable(AVendedor: IBizContacto): Boolean; + procedure VerPedidosDeVendedor(AVendedor : IBizVendedor); + procedure VerClientesDeVendedor(AVendedor : IBizVendedor); end; implementation uses Windows, SysUtils, Controls, cxControls, Dialogs, uDataModuleVendedores, uEditorRegistryUtils, - uDataTableUtils, uDADataTable, DB, schContactosClient_Intf, - uEditorGridBase, uDAInterfaces, uIEditorElegirVendedores; + uDataTableUtils, uDADataTable, DB, schContactosClient_Intf, uModuleController, + uEditorGridBase, uDAInterfaces, uIEditorElegirVendedores, uPlugins_Intf, uFactuGES_App; { TVendedorController } @@ -246,6 +250,48 @@ begin end; end; +procedure TVendedoresController.VerClientesDeVendedor(AVendedor: IBizVendedor); +var + AModule : TModuleController; + APlugin : IMCContactos; +begin + if not Assigned(AVendedor) then + raise Exception.Create ('Vendedor no asignado (VerPedidosDeVendedor)'); + + if not AVendedor.DataTable.Active then + AVendedor.DataTable.Active := True; + + AModule := AppFactuGES.GetModule(MODULENAME_CONTACTOS); + if Assigned(AModule) then + try + if Supports(AModule, IMCContactos, APlugin) then + APlugin.VerClientesVendedor(AVendedor.ID, AVendedor.NOMBRE); + finally + APlugin := NIL; + end; +end; + +procedure TVendedoresController.VerPedidosDeVendedor(AVendedor: IBizVendedor); +var + AModule : TModuleController; + APlugin : IMCPedidosCliente; +begin + if not Assigned(AVendedor) then + raise Exception.Create ('Vendedor no asignado (VerPedidosDeVendedor)'); + + if not AVendedor.DataTable.Active then + AVendedor.DataTable.Active := True; + + AModule := AppFactuGES.GetModule(MODULENAME_PEDIDOS_CLIENTE); + if Assigned(AModule) then + try + if Supports(AModule, IMCPedidosCliente, APlugin) then + APlugin.VerPedidosVendedor(AVendedor.ID, AVendedor.NOMBRE); + finally + APlugin := NIL; + end; +end; + procedure TVendedoresController.VerTodos(AContactos: IBizContacto); var AEditor : IEditorVendedores; diff --git a/Source/Modulos/Contactos/Plugin/uPluginContactos.pas b/Source/Modulos/Contactos/Plugin/uPluginContactos.pas index 178f939..baf2311 100644 --- a/Source/Modulos/Contactos/Plugin/uPluginContactos.pas +++ b/Source/Modulos/Contactos/Plugin/uPluginContactos.pas @@ -4,14 +4,9 @@ interface uses uModuleController, uInterfaces, uHostManager, Menus, Classes, ActnList, - ImgList, Controls, PngImageList; + ImgList, Controls, PngImageList, uPlugins_Intf; type - IMCContactos = interface(IInterface) - ['{BAEDC5D8-2FE8-4907-8027-C60861829BA9}'] - - end; - TPluginContactos = class(TModuleController, IMCContactos) actClientes: TAction; actProveedores: TAction; @@ -47,6 +42,8 @@ type public constructor Create(AOwner: TComponent); override; destructor Destroy; override; + procedure VerClientesVendedor(const ID_Vendedor: Integer; + const ANombreVendedor : String = ''); end; implementation @@ -55,11 +52,10 @@ implementation uses Forms, Dialogs, uGUIBase, uCustomEditor, SysUtils, uContactosController, - uClientesController, uProveedoresController, uEmpleadosController, - uVendedoresController, - uGruposClienteController, uBizGruposCliente, uGruposProveedorController, - uBizGruposProveedor, uGruposEmpleadoController, uBizGruposEmpleado, - uContactosViewRegister, uBizContactos, uFactuGES_App; + uClientesController, uProveedoresController, uEmpleadosController, cxControls, + uVendedoresController, uGruposClienteController, uBizGruposCliente, + uGruposProveedorController, uBizGruposProveedor, uGruposEmpleadoController, + uBizGruposEmpleado, uContactosViewRegister, uBizContactos, uFactuGES_App; function GetModule : TModuleController; begin @@ -160,6 +156,7 @@ end; constructor TPluginContactos.Create(AOwner: TComponent); begin inherited; + ModuleName := MODULENAME_CONTACTOS; uContactosViewRegister.RegisterViews; end; @@ -169,6 +166,29 @@ begin inherited; end; +procedure TPluginContactos.VerClientesVendedor(const ID_Vendedor: Integer; + const ANombreVendedor: String); +var + AClientesController : IClientesController; + AClientesVendedor : IBizCliente; + AText : String; +begin + AText := Format('Lista de clientes del vendedor %s', [ANombreVendedor]); + AClientesController := TClientesController.Create; + try + ShowHourglassCursor; + try + AClientesVendedor := AClientesController.BuscarTodosVendedor(ID_Vendedor); + finally + HideHourglassCursor; + end; + AClientesController.VerTodos(AClientesVendedor, True, AText); + finally + AClientesVendedor := NIL; + AClientesController := NIL; + end; +end; + initialization uHostManager.RegisterModuleClass(TPluginContactos); diff --git a/Source/Modulos/Contactos/Views/Contactos_view.dproj b/Source/Modulos/Contactos/Views/Contactos_view.dproj index b3ce51c..46125bf 100644 --- a/Source/Modulos/Contactos/Views/Contactos_view.dproj +++ b/Source/Modulos/Contactos/Views/Contactos_view.dproj @@ -49,63 +49,63 @@ MainSource - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + +
fEditorCliente
diff --git a/Source/Modulos/Contactos/Views/uEditorClientes.dfm b/Source/Modulos/Contactos/Views/uEditorClientes.dfm index 057ad61..d703375 100644 --- a/Source/Modulos/Contactos/Views/uEditorClientes.dfm +++ b/Source/Modulos/Contactos/Views/uEditorClientes.dfm @@ -224,9 +224,6 @@ inherited fEditorClientes: TfEditorClientes BuiltInReportLink = True end end - inherited dxPSEngineController1: TdxPSEngineController - Active = True - end inherited cxViewGridPopupMenu: TcxGridPopupMenu PopupMenus = < item @@ -263,10 +260,6 @@ inherited fEditorClientes: TfEditorClientes Enabled = True Visible = True end - inherited actExportarExcel: TAction - Enabled = False - Visible = False - end object actDocumentosPedidos: TAction Category = 'Acciones' Caption = 'Pedidos' diff --git a/Source/Modulos/Contactos/Views/uEditorClientes.pas b/Source/Modulos/Contactos/Views/uEditorClientes.pas index 2eaddcb..340b1b5 100644 --- a/Source/Modulos/Contactos/Views/uEditorClientes.pas +++ b/Source/Modulos/Contactos/Views/uEditorClientes.pas @@ -121,6 +121,9 @@ constructor TfEditorClientes.Create(AOwner: TComponent); begin inherited; ViewGrid := frViewClientes1; + + FHeaderText := 'Lista de clientes - '; + FWindowCaption := FHeaderText; end; procedure TfEditorClientes.EliminarInterno; @@ -227,7 +230,7 @@ procedure TfEditorClientes.PonerTitulos(const ATitulo: string); var FTitulo : String; begin - FTitulo := 'Lista de clientes - ' + AppFactuGES.EmpresaActiva.NOMBRE; + FTitulo := FWindowCaption + ' - ' + AppFactuGES.EmpresaActiva.NOMBRE; inherited PonerTitulos(FTitulo); end; diff --git a/Source/Modulos/Contactos/Views/uEditorContacto.dfm b/Source/Modulos/Contactos/Views/uEditorContacto.dfm index 77df9aa..c548a57 100644 --- a/Source/Modulos/Contactos/Views/uEditorContacto.dfm +++ b/Source/Modulos/Contactos/Views/uEditorContacto.dfm @@ -7,6 +7,7 @@ inherited fEditorContacto: TfEditorContacto ClientWidth = 632 Scaled = False ExplicitWidth = 640 + ExplicitHeight = 240 PixelsPerInch = 96 TextHeight = 13 inherited JvNavPanelHeader: TJvNavPanelHeader @@ -109,6 +110,18 @@ inherited fEditorContacto: TfEditorContacto inherited ToolBar1: TToolBar Width = 618 ExplicitWidth = 618 + inherited ToolButton1: TToolButton + ExplicitWidth = 113 + end + inherited ToolButton4: TToolButton + ExplicitWidth = 113 + end + inherited ToolButton2: TToolButton + ExplicitWidth = 113 + end + inherited ToolButton7: TToolButton + ExplicitWidth = 113 + end end end end @@ -140,6 +153,18 @@ inherited fEditorContacto: TfEditorContacto inherited ToolBar1: TToolBar Width = 618 ExplicitWidth = 618 + inherited ToolButton1: TToolButton + ExplicitWidth = 113 + end + inherited ToolButton4: TToolButton + ExplicitWidth = 113 + end + inherited ToolButton2: TToolButton + ExplicitWidth = 113 + end + inherited ToolButton7: TToolButton + ExplicitWidth = 113 + end end end end @@ -167,15 +192,15 @@ inherited fEditorContacto: TfEditorContacto end inherited StatusBarImages: TPngImageList [7] end - inherited JvFormStorage: TJvFormStorage + inherited LargeImages: TPngImageList [8] + Top = 112 + end + inherited SmallImages: TPngImageList [9] + Top = 112 + end + inherited JvFormStorage: TJvFormStorage [10] Top = 144 end - inherited LargeImages: TPngImageList [9] - Top = 112 - end - inherited SmallImages: TPngImageList [10] - Top = 112 - end inherited EditorActionList: TActionList [11] Top = 128 inherited actGuardarCerrar: TAction diff --git a/Source/Modulos/Contactos/Views/uEditorVendedores.dfm b/Source/Modulos/Contactos/Views/uEditorVendedores.dfm index 293bcee..b9ca23a 100644 --- a/Source/Modulos/Contactos/Views/uEditorVendedores.dfm +++ b/Source/Modulos/Contactos/Views/uEditorVendedores.dfm @@ -57,7 +57,25 @@ inherited fEditorVendedores: TfEditorVendedores Width = 786 ExplicitWidth = 786 inherited tbxMain: TSpTBXToolbar - ExplicitWidth = 474 + ExplicitWidth = 641 + object SpTBXSubmenuItem1: TSpTBXSubmenuItem [13] + Caption = 'Documentos relacionados' + DisplayMode = nbdmImageAndText + ImageIndex = 23 + Images = SmallImages + OnClick = actDocumentosPedidosExecute + DropdownCombo = True + object SpTBXItem3: TSpTBXItem + Action = ActClientes + DisplayMode = nbdmImageAndText + Images = SmallImages + end + object SpTBXItem2: TSpTBXItem + Action = actDocumentosPedidos + DisplayMode = nbdmImageAndText + Images = SmallImages + end + end end inherited tbxMenu: TSpTBXToolbar ExplicitWidth = 786 @@ -103,6 +121,7 @@ inherited fEditorVendedores: TfEditorVendedores Width = 786 ExplicitWidth = 786 inherited TBXDockablePanel1: TSpTBXDockablePanel + Width = 786 ExplicitWidth = 786 inherited dxLayoutControl1: TdxLayoutControl Width = 786 @@ -145,8 +164,8 @@ inherited fEditorVendedores: TfEditorVendedores end end inherited TBXAlignmentPanel1: TSpTBXDockablePanel - Width = 786 - ExplicitWidth = 786 + Width = 776 + ExplicitWidth = 776 inherited tbxBotones: TSpTBXToolbar Width = 776 ExplicitWidth = 776 @@ -156,14 +175,15 @@ inherited fEditorVendedores: TfEditorVendedores end inherited pnlAgrupaciones: TSpTBXDockablePanel Top = 357 + Width = 786 ExplicitTop = 357 ExplicitWidth = 786 inherited TBXAlignmentPanel1: TSpTBXDockablePanel Width = 786 ExplicitWidth = 786 inherited TBXToolbar1: TSpTBXToolbar - Width = 776 - ExplicitWidth = 776 + Width = 786 + ExplicitWidth = 786 end end end @@ -173,6 +193,9 @@ inherited fEditorVendedores: TfEditorVendedores BuiltInReportLink = True end end + inherited dxPSEngineController1: TdxPSEngineController + Active = True + end inherited cxViewGridPopupMenu: TcxGridPopupMenu PopupMenus = < item @@ -186,9 +209,19 @@ inherited fEditorVendedores: TfEditorVendedores inherited actNuevo: TAction ImageIndex = 22 end - inherited actExportarExcel: TAction - Enabled = False - Visible = False + object actDocumentosPedidos: TAction + Category = 'Acciones' + Caption = 'Pedidos' + ImageIndex = 24 + OnExecute = actDocumentosPedidosExecute + OnUpdate = actDocumentosPedidosUpdate + end + object ActClientes: TAction + Category = 'Acciones' + Caption = 'Clientes' + ImageIndex = 25 + OnExecute = ActClientesExecute + OnUpdate = ActClientesUpdate end end inherited SmallImages: TPngImageList [5] @@ -715,6 +748,151 @@ inherited fEditorVendedores: TfEditorVendedores 49454E44AE426082} Name = 'PngImage22' Background = clWindow + end + item + PngImage.Data = { + 89504E470D0A1A0A0000000D49484452000000100000001008060000001FF3FF + 610000000970485973000017120000171201679FD2520000018E4944415478DA + 6364C002966C3EF19F010F88F1B56084B119CF4E6443516C9CFF8B116440B48F + 398AA6BFFFFE31FCF9F38F61CDAEB30CBD5316329CDF399D116E8051DE4FB0A2 + 7393D8190E9FFFC520127C8201D90098E6DF7FFE326CDC778141469483A1B07E + 26D810B801FF7F7F6498942600D7943FFF3F866610BDF5D025B00B50BC6098F9 + 8AE1CFD7070C971799A1385B3FE73B8AE6DF7F41F45F8603A76F81E5BB27CD87 + 18A01B778AE1EFB7070CD7D68431A07B2779EA0F14CD20F69FBFFF184E5CBA87 + 30402B6415C3DFAFF7196E6E2F67C0E69DA8BECF289A7FFDFECB70EEFA438401 + EA9E9D0CEF2F7530BC7AFA9E01977744435FC03583BC74F9F613840120A78280 + AD211B033EEF78D4BD046BFE0D34E4C683E71003906D21C63B76A58F197E010D + B9F7E4157603B07907E42290A173DA0A192C0A1F805DF0F8E55BEC0660F30E48 + 33C8D0B55B5E3218E7DC0587C5F337EF310DC0E59D3F5F6E317CBEB70E6C8058 + E829B81A8206C0BC03032003163ECF84F3FF337EC76F00CC3BC8A06001AA1EC6 + FFFFF1E65C820000241257B48E5A5E7D0000000049454E44AE426082} + Name = 'PngImage23' + Background = clWindow + end + item + PngImage.Data = { + 89504E470D0A1A0A0000000D49484452000000100000001008060000001FF3FF + 610000000970485973000017120000171201679FD25200000A4D694343505068 + 6F746F73686F70204943432070726F66696C65000078DA9D53775893F7163EDF + F7650F5642D8F0B1976C81002223AC08C81059A21092006184101240C585880A + 561415119C4855C482D50A489D88E2A028B867418A885A8B555C38EE1FDCA7B5 + 7D7AEFEDEDFBD7FBBCE79CE7FCCE79CF0F8011122691E6A26A003952853C3AD8 + 1F8F4F48C4C9BD80021548E0042010E6CBC26705C50000F00379787E74B03FFC + 01AF6F00020070D52E2412C7E1FF83BA50265700209100E02212E70B01905200 + C82E54C81400C81800B053B3640A009400006C797C422200AA0D00ECF4493E05 + 00D8A993DC1700D8A21CA908008D0100992847240240BB00605581522C02C0C2 + 00A0AC40222E04C0AE018059B632470280BD0500768E58900F4060008099422C + CC0020380200431E13CD03204C03A030D2BFE0A95F7085B8480100C0CB95CD97 + 4BD23314B895D01A77F2F0E0E221E2C26CB142611729106609E4229C979B2313 + 48E7034CCE0C00001AF9D1C1FE383F90E7E6E4E1E666E76CEFF4C5A2FE6BF06F + 223E21F1DFFEBC8C020400104ECFEFDA5FE5E5D60370C701B075BF6BA95B00DA + 560068DFF95D33DB09A05A0AD07AF98B7938FC401E9EA150C83C1D1C0A0B0BED + 2562A1BD30E38B3EFF33E16FE08B7EF6FC401EFEDB7AF000719A4099ADC0A383 + FD71616E76AE528EE7CB0442316EF7E723FEC7857FFD8E29D1E234B15C2C158A + F15889B850224DC779B952914421C995E212E97F32F11F96FD0993770D00AC86 + 4FC04EB607B5CB6CC07EEE01028B0E58D27600407EF32D8C1A0B910010673432 + 79F7000093BFF98F402B0100CD97A4E30000BCE8185CA894174CC608000044A0 + 812AB041070CC114ACC00E9CC11DBCC01702610644400C24C03C104206E4801C + 0AA11896411954C03AD804B5B0031AA0119AE110B4C131380DE7E0125C81EB70 + 170660189EC218BC86090441C8081361213A8811628ED822CE0817998E042261 + 48349280A420E988145122C5C872A402A9426A915D4823F22D7214398D5C40FA + 90DBC820328AFC8ABC47319481B25103D4027540B9A81F1A8AC6A073D174340F + 5D8096A26BD11AB41E3D80B6A2A7D14BE87574007D8A8E6380D1310E668CD961 + 5C8C87456089581A26C71663E55835568F35631D583776151BC09E61EF082402 + 8B8013EC085E8410C26C82909047584C5843A825EC23B412BA085709838431C2 + 272293A84FB4257A12F9C478623AB1905846AC26EE211E219E255E270E135F93 + 48240EC992E44E0A21259032490B496B48DB482DA453A43ED210699C4C26EB90 + 6DC9DEE408B280AC209791B7900F904F92FBC9C3E4B7143AC588E24C09A22452 + A494124A35653FE504A59F324299A0AA51CDA99ED408AA883A9F5A496DA07650 + 2F5387A91334759A25CD9B1643CBA42DA3D5D09A696769F7682FE974BA09DD83 + 1E4597D097D26BE807E9E7E983F4770C0D860D83C7486228196B197B19A718B7 + 192F994CA605D39799C85430D7321B9967980F986F55582AF62A7C1591CA1295 + 3A9556957E95E7AA545573553FD579AA0B54AB550FAB5E567DA64655B350E3A9 + 09D416ABD5A91D55BBA936AECE5277528F50CF515FA3BE5FFD82FA630DB28685 + 46A08648A35463B7C6198D2116C63265F15842D6725603EB2C6B984D625BB2F9 + EC4C7605FB1B762F7B4C534373AA66AC6691669DE671CD010EC6B1E0F039D99C + 4ACE21CE0DCE7B2D032D3F2DB1D66AAD66AD7EAD37DA7ADABEDA62ED72ED16ED + EBDAEF75709D409D2C9DF53A6D3AF77509BA36BA51BA85BADB75CFEA3ED363EB + 79E909F5CAF50EE9DDD147F56DF4A3F517EAEFD6EFD11F373034083690196C31 + 3863F0CC9063E86B9869B8D1F084E1A811CB68BA91C468A3D149A327B826EE87 + 67E33578173E66AC6F1C62AC34DE65DC6B3C61626932DBA4C4A4C5E4BE29CD94 + 6B9A66BAD1B4D374CCCCC82CDCACD8ACC9EC8E39D59C6B9E61BED9BCDBFC8D85 + A5459CC54A8B368BC796DA967CCB05964D96F7AC98563E567956F556D7AC49D6 + 5CEB2CEB6DD6576C501B579B0C9B3A9BCBB6A8AD9BADC4769B6DDF14E2148F29 + D229F5536EDA31ECFCEC0AEC9AEC06ED39F661F625F66DF6CF1DCC1C121DD63B + 743B7C727475CC766C70BCEBA4E134C3A9C4A9C3E957671B67A1739DF33517A6 + 4B90CB1297769717536DA78AA76E9F7ACB95E51AEEBAD2B5D3F5A39BBB9BDCAD + D96DD4DDCC3DC57DABFB4D2E9B1BC95DC33DEF41F4F0F758E271CCE39DA79BA7 + C2F390E72F5E765E595EFBBD1E4FB39C269ED6306DC8DBC45BE0BDCB7B603A3E + 3D65FACEE9033EC63E029F7A9F87BEA6BE22DF3DBE237ED67E997E07FC9EFB3B + FACBFD8FF8BFE179F216F14E056001C101E501BD811A81B3036B031F049904A5 + 0735058D05BB062F0C3E15420C090D591F72936FC017F21BF96333DC672C9AD1 + 15CA089D155A1BFA30CC264C1ED6118E86CF08DF107E6FA6F94CE9CCB60888E0 + 476C88B81F69199917F97D14292A32AA2EEA51B453747174F72CD6ACE459FB67 + BD8EF18FA98CB93BDB6AB6727667AC6A6C526C63EC9BB880B8AAB8817887F845 + F1971274132409ED89E4C4D8C43D89E37302E76C9A339CE49A54967463AEE5DC + A2B917E6E9CECB9E773C593559907C3885981297B23FE5832042502F184FE5A7 + 6E4D1D13F2849B854F45BEA28DA251B1B7B84A3C92E69D5695F638DD3B7D43FA + 68864F4675C633094F522B79911992B923F34D5644D6DEACCFD971D92D39949C + 949CA3520D6996B42BD730B728B74F662B2B930DE479E66DCA1B9387CAF7E423 + F973F3DB156C854CD1A3B452AE500E164C2FA82B785B185B78B848BD485AD433 + DF66FEEAF9230B82167CBD90B050B8B0B3D8B87859F1E022BF45BB16238B5317 + 772E315D52BA647869F0D27DCB68CBB296FD50E2585255F26A79DCF28E5283D2 + A5A5432B82573495A994C9CB6EAEF45AB9631561956455EF6A97D55B567F2A17 + 955FAC70ACA8AEF8B046B8E6E2574E5FD57CF5796DDADADE4AB7CAEDEB48EBA4 + EB6EACF759BFAF4ABD6A41D5D086F00DAD1BF18DE51B5F6D4ADE74A17A6AF58E + CDB4CDCACD03356135ED5BCCB6ACDBF2A136A3F67A9D7F5DCB56FDADABB7BED9 + 26DAD6BFDD777BF30E831D153BDEEF94ECBCB52B78576BBD457DF56ED2EE82DD + 8F1A621BBABFE67EDDB847774FC59E8F7BA57B07F645EFEB6A746F6CDCAFBFBF + B2096D52368D1E483A70E59B806FDA9BED9A77B5705A2A0EC241E5C127DFA67C + 7BE350E8A1CEC3DCC3CDDF997FB7F508EB48792BD23ABF75AC2DA36DA03DA1BD + EFE88CA39D1D5E1D47BEB7FF7EEF31E36375C7358F579EA09D283DF1F9E48293 + E3A764A79E9D4E3F3DD499DC79F74CFC996B5D515DBD6743CF9E3F1774EE4CB7 + 5FF7C9F3DEE78F5DF0BC70F422F762DB25B74BAD3DAE3D477E70FDE148AF5B6F + EB65F7CBED573CAE74F44DEB3BD1EFD37FFA6AC0D573D7F8D72E5D9F79BDEFC6 + EC1BB76E26DD1CB825BAF5F876F6ED17770AEE4CDC5D7A8F78AFFCBEDAFDEA07 + FA0FEA7FB4FEB165C06DE0F860C060CFC3590FEF0E09879EFE94FFD387E1D247 + CC47D52346238D8F9D1F1F1B0D1ABDF264CE93E1A7B2A713CFCA7E56FF79EB73 + ABE7DFFDE2FB4BCF58FCD8F00BF98BCFBFAE79A9F372EFABA9AF3AC723C71FBC + CE793DF1A6FCADCEDB7DEFB8EFBADFC7BD1F9928FC40FE50F3D1FA63C7A7D04F + F73EE77CFEFC2FF784F3FB25D29F33000001764944415478DA63FCFFFF3FC394 + C53BFE33900172623D1819610600394469FAF3F71FC3EF3F7F19ACFDF319CEED + 98866A80CB7E5B14C57B1C0F836964F1CD56FB18E6AEDACB306FE9264C03F081 + 5FBFFF826D06E1251B0E623700DD05D8C07283ED0C2BB71CC16D00CCD920F00F + 28F7E7CF3FB8CD2167DC1816EB6C6558BBE3187E03602ED9667380C1EB8803DC + E6C80B9E0CF33436316CDA7312BF01309B3FDF3ECCF072712C3E1FB96018B0CB + E11083DB013BB0ECA45D0F18941B6A18D8D9D33174FEFC3993615E620B038601 + 2067C3FCFCAC4D8D41ABFD3158311CFCF801C4DF1966EF326060DE9E8A302023 + CA8DC1E3903D8A2D2017A01800D2FCE11DC480534EA806248739836D85857AF4 + 252F5403609AC106FC64987D2B08D580B8200794284BB8E68B30E0E34484E60F + 1F202E7895826A40949F1D5C33DCA0194610031ED62334C3BCF0AB0CD580502F + 6B86D5DB8EA28481D3B554702CCC5E258F350E510C00250C74A0CDFB86C18AF5 + 38CE44602FCFE00200175B62A961F8A2FD0000000049454E44AE426082} + Name = 'PngImage24' + Background = clWindow + end + item + PngImage.Data = { + 89504E470D0A1A0A0000000D49484452000000100000001008060000001FF3FF + 610000000970485973000017120000171201679FD252000001EC4944415478DA + A5934B6813511486BF541B88CD26620DA262A51BDB8520158308D5852055B01B + A3E8CEBD2E7CE063512852D09D2E82E04604AB1B5D4451B059D8A6010D84D842 + 5B6B6B1A8D414A4C9B18EB4C27F3F466D41943ED4233309C3BDC39DFFFDF9F7B + 3C9665D1C8E379323CD510C1061C3DD0697F48C531BEE7A7EDB57F6B072DADBB + 9C1F4DE154D74D34DD70DE43272FB9805AF3975484E56F1A856289C2D23CFB4F + 44D8D4BE17DD30B932A8D629B7358D70F7C1D39F8023FBB6917B35C0D78F590C + 43EC5A06954A8505A5C4B1CB2947F14F07D158D205F48436F03E761E640FEB7C + 3ED660204B3263B9597A2F24ED866B8F59DD414F28C8E7443FDE6A55A883AAA9 + 28F232F3FA7ABA8EDFAC53FEBD1E1A4DBB805A0685370F91E65E0880084BD358 + 9255CCB65EDAF784571E413378F97ABC1E90C8C6C88EDC6687E9150EAAA415D8 + BCFB14DD9D875734D76A2235E102B674A85C1CEEA3B498E374F020A666727F21 + 4E662ECFDBAB19BBB9EFD6B3BA0C423B37BA80A4F188E733A32881327EA91991 + 22924FA7B9E427373B45FADCB4A3ACFD72929E78E702EE1506C8E68B18AD0AEA + 5A595C2F44A02D3495BD7CF8344EF2CC24D7EFC4567770361EA65C2EFCF5AA06 + 0241A2E1215BD5302DBB9AA24ECE645C4077D77606A3F17F9E0307D07F23F2FF + C3D4E838FF008E7263BE13CA147C0000000049454E44AE426082} + Name = 'PngImage25' + Background = clWindow end> Bitmap = {} end diff --git a/Source/Modulos/Contactos/Views/uEditorVendedores.pas b/Source/Modulos/Contactos/Views/uEditorVendedores.pas index 5f93360..0ceeef7 100644 --- a/Source/Modulos/Contactos/Views/uEditorVendedores.pas +++ b/Source/Modulos/Contactos/Views/uEditorVendedores.pas @@ -11,7 +11,7 @@ uses JvExControls, JvComponent, JvNavigationPane, uViewGridBase, uViewGrid, uViewContactos, uIEditorVendedores, pngimage, JvExComCtrls, JvStatusBar, JSDialog, uContactosController, uDAInterfaces, - uViewVendedores, dxGDIPlusClasses; + uViewVendedores, dxGDIPlusClasses, StdCtrls, TntStdCtrls, SpTBXEditors; type TfEditorVendedores = class(TfEditorContactos, IEditorVendedores) @@ -19,6 +19,15 @@ type JsPrevisualizarDialog: TJSDialog; JsImprimirDialog: TJSDialog; JsListaContactosNoEliminados: TJSDialog; + SpTBXSubmenuItem1: TSpTBXSubmenuItem; + SpTBXItem2: TSpTBXItem; + actDocumentosPedidos: TAction; + ActClientes: TAction; + SpTBXItem3: TSpTBXItem; + procedure actDocumentosPedidosExecute(Sender: TObject); + procedure actDocumentosPedidosUpdate(Sender: TObject); + procedure ActClientesExecute(Sender: TObject); + procedure ActClientesUpdate(Sender: TObject); protected procedure EliminarInterno; override; @@ -38,6 +47,34 @@ uses {$R *.dfm} +procedure TfEditorVendedores.ActClientesExecute(Sender: TObject); +begin + inherited; + (FController as IVendedoresController).VerClientesDeVendedor(IBizVendedor(FContactos)); +end; + +procedure TfEditorVendedores.ActClientesUpdate(Sender: TObject); +begin + inherited; + (Sender as TAction).Enabled := HayDatos + and not ViewGrid.IsEmpty + and ViewGrid.EsSeleccionCeldaDatos +end; + +procedure TfEditorVendedores.actDocumentosPedidosExecute(Sender: TObject); +begin + inherited; + (FController as IVendedoresController).VerPedidosDeVendedor(IBizVendedor(FContactos)); +end; + +procedure TfEditorVendedores.actDocumentosPedidosUpdate(Sender: TObject); +begin + inherited; + (Sender as TAction).Enabled := HayDatos + and not ViewGrid.IsEmpty + and ViewGrid.EsSeleccionCeldaDatos +end; + constructor TfEditorVendedores.Create(AOwner: TComponent); begin inherited; diff --git a/Source/Modulos/Pedidos de cliente/Controller/PedidosCliente_controller.drc b/Source/Modulos/Pedidos de cliente/Controller/PedidosCliente_controller.drc index a087717..c43ab23 100644 --- a/Source/Modulos/Pedidos de cliente/Controller/PedidosCliente_controller.drc +++ b/Source/Modulos/Pedidos de cliente/Controller/PedidosCliente_controller.drc @@ -13,4 +13,4 @@ BEGIN END /* C:\Codigo noviseda\Source\Modulos\Pedidos de cliente\Controller\PedidosCliente_controller.res */ -/* C:\DOCUME~1\Usuario\CONFIG~1\Temp\dtf30E.tmp */ +/* C:\Codigo noviseda\Source\Modulos\Pedidos de cliente\Controller\PedidosCliente_controller.drf */ diff --git a/Source/Modulos/Pedidos de cliente/Controller/uPedidosClienteController.pas b/Source/Modulos/Pedidos de cliente/Controller/uPedidosClienteController.pas index c0cf667..6969917 100644 --- a/Source/Modulos/Pedidos de cliente/Controller/uPedidosClienteController.pas +++ b/Source/Modulos/Pedidos de cliente/Controller/uPedidosClienteController.pas @@ -24,6 +24,7 @@ type function Buscar(const ID: Integer): IBizPedidoCliente; function BuscarTodos: IBizPedidoCliente; overload; function BuscarTodos(const ID_Cliente: Integer): IBizPedidoCliente; overload; + function BuscarTodosVendedor(const ID_Vendedor: Integer): IBizPedidoCliente; function BuscarPendientes : IBizPedidoCliente; function BuscarArticulosPendientes: IBizArticulosPendientes; procedure Ver(APedido : IBizPedidoCliente); @@ -108,7 +109,8 @@ type function Anadir(APedido : IBizPedidoCliente) : Boolean; function Buscar(const ID: Integer): IBizPedidoCliente; function BuscarTodos: IBizPedidoCliente; overload; - function BuscarTodos(const ID_Cliente: Integer): IBizPedidoCliente; overload; + function BuscarTodos(const ID_Cliente: Integer): IBizPedidoCliente; overload; + function BuscarTodosVendedor(const ID_Vendedor: Integer): IBizPedidoCliente; function BuscarPendientes : IBizPedidoCliente; function BuscarArticulosPendientes: IBizArticulosPendientes; function Nuevo : IBizPedidoCliente; @@ -225,6 +227,30 @@ begin end; end; +function TPedidosClienteController.BuscarTodosVendedor( + const ID_Vendedor: Integer): IBizPedidoCliente; +var + Condicion: TDAWhereExpression; +begin + ShowHourglassCursor; + try + Result := BuscarTodos; + + with Result.DataTable.DynamicWhere do + begin + // ID_VENDEDOR + Condicion := NewBinaryExpression(NewField('', fld_PedidosClienteID_VENDEDOR), NewConstant(ID_VENDEDOR, datInteger), dboEqual); + + if IsEmpty then + Expression := Condicion + else + Expression := NewBinaryExpression(Expression, Condicion, dboAnd); + end; + finally + HideHourglassCursor; + end; +end; + function TPedidosClienteController.BuscarArticulosPendientes: IBizArticulosPendientes; begin ShowHourglassCursor; diff --git a/Source/Modulos/Pedidos de cliente/Data/PedidosCliente_data.drc b/Source/Modulos/Pedidos de cliente/Data/PedidosCliente_data.drc index 7300f1d..882ce9d 100644 --- a/Source/Modulos/Pedidos de cliente/Data/PedidosCliente_data.drc +++ b/Source/Modulos/Pedidos de cliente/Data/PedidosCliente_data.drc @@ -14,4 +14,4 @@ END /* C:\Codigo noviseda\Source\Modulos\Pedidos de cliente\Data\uDataModulePedidosCliente.dfm */ /* C:\Codigo noviseda\Source\Modulos\Pedidos de cliente\Data\PedidosCliente_data.res */ -/* C:\DOCUME~1\Usuario\CONFIG~1\Temp\dtf30C.tmp */ +/* C:\DOCUME~1\Usuario\CONFIG~1\Temp\dtfBC.tmp */ diff --git a/Source/Modulos/Pedidos de cliente/Data/uDataModulePedidosCliente.dfm b/Source/Modulos/Pedidos de cliente/Data/uDataModulePedidosCliente.dfm index 1ead32e..ad0be24 100644 --- a/Source/Modulos/Pedidos de cliente/Data/uDataModulePedidosCliente.dfm +++ b/Source/Modulos/Pedidos de cliente/Data/uDataModulePedidosCliente.dfm @@ -242,6 +242,10 @@ inherited DataModulePedidosCliente: TDataModulePedidosCliente Size = 255 DisplayLabel = 'PedidosCliente_DATOS_BANCARIOS' DictionaryEntry = 'PedidosCliente_DATOS_BANCARIOS' + end + item + Name = 'ID_VENDEDOR' + DataType = datInteger end> Params = <> StreamingOptions = [soDisableEventsWhileStreaming] diff --git a/Source/Modulos/Pedidos de cliente/Model/PedidosCliente_model.drc b/Source/Modulos/Pedidos de cliente/Model/PedidosCliente_model.drc index 99744c7..776c1fd 100644 --- a/Source/Modulos/Pedidos de cliente/Model/PedidosCliente_model.drc +++ b/Source/Modulos/Pedidos de cliente/Model/PedidosCliente_model.drc @@ -13,4 +13,4 @@ BEGIN END /* C:\Codigo noviseda\Source\Modulos\Pedidos de cliente\Model\PedidosCliente_model.res */ -/* C:\DOCUME~1\Usuario\CONFIG~1\Temp\dtf30A.tmp */ +/* C:\DOCUME~1\Usuario\CONFIG~1\Temp\dtfBA.tmp */ diff --git a/Source/Modulos/Pedidos de cliente/Model/schPedidosClienteClient_Intf.pas b/Source/Modulos/Pedidos de cliente/Model/schPedidosClienteClient_Intf.pas index 800afd1..1eec42b 100644 --- a/Source/Modulos/Pedidos de cliente/Model/schPedidosClienteClient_Intf.pas +++ b/Source/Modulos/Pedidos de cliente/Model/schPedidosClienteClient_Intf.pas @@ -1,6 +1,5 @@ unit schPedidosClienteClient_Intf; -{$D-} interface uses @@ -10,13 +9,13 @@ const { Data table rules ids Feel free to change them to something more human readable but make sure they are unique in the context of your application } - RID_PedidoCliente_Art_Colores_Pendientes = '{DAE6EDB6-AC3C-48FE-8267-9FCF8F893536}'; - RID_ListaAnosPedidos = '{8A8427D3-3139-4A1B-9A96-1491FD942CD2}'; - RID_ArticulosPendientes = '{EA7857E1-253B-4C47-9E62-0030C8D0CB2E}'; - RID_PedidosCliente = '{8F6CACE9-0B0B-47F4-9315-DD71C9BDCA22}'; - RID_PedidosCliente_Detalles = '{4C1BBFCE-BE3B-4F5F-9FF2-EE52A2A10063}'; - RID_PedidoCliente_Articulos_Pendientes = '{30F8BA2A-2230-40DD-A760-36D1F7051BB8}'; - RID_PedidosCliente_Detalle_Color = '{E4A714F8-E64E-41D9-A2DE-E880C4C95108}'; + RID_PedidoCliente_Art_Colores_Pendientes = '{0635D89F-961F-4A8A-8631-93E80735F276}'; + RID_ListaAnosPedidos = '{88FC7751-6123-4698-B5ED-A0BA3C31ACB5}'; + RID_ArticulosPendientes = '{3E7C7A2B-0C2B-43B0-8E2C-6F1F0D1965C4}'; + RID_PedidosCliente = '{58A32347-5ECD-4B4D-B1A3-8FFE2BC07FDC}'; + RID_PedidosCliente_Detalles = '{CC8DF9E4-AACC-484E-BBE7-4F4A1A02C9D7}'; + RID_PedidoCliente_Articulos_Pendientes = '{6D698D2A-FA62-40C2-9B2D-26041E3900CA}'; + RID_PedidosCliente_Detalle_Color = '{027386CC-D26B-4167-8181-DC9F573BF973}'; { Data table names } nme_PedidoCliente_Art_Colores_Pendientes = 'PedidoCliente_Art_Colores_Pendientes'; @@ -138,6 +137,7 @@ const fld_PedidosClienteREF_TIENDA_WEB = 'REF_TIENDA_WEB'; fld_PedidosClienteFECHA_PREVISTA_ENVIO = 'FECHA_PREVISTA_ENVIO'; fld_PedidosClienteDATOS_BANCARIOS = 'DATOS_BANCARIOS'; + fld_PedidosClienteID_VENDEDOR = 'ID_VENDEDOR'; { PedidosCliente field indexes } idx_PedidosClienteID = 0; @@ -176,6 +176,7 @@ const idx_PedidosClienteREF_TIENDA_WEB = 33; idx_PedidosClienteFECHA_PREVISTA_ENVIO = 34; idx_PedidosClienteDATOS_BANCARIOS = 35; + idx_PedidosClienteID_VENDEDOR = 36; { PedidosCliente_Detalles fields } fld_PedidosCliente_DetallesID = 'ID'; @@ -258,7 +259,7 @@ const type { IPedidoCliente_Art_Colores_Pendientes } IPedidoCliente_Art_Colores_Pendientes = interface(IDAStronglyTypedDataTable) - ['{1BFD3DF3-9112-44CF-AD7B-D6A81CC5157F}'] + ['{BEEE5468-6E57-4ED3-95B5-E6C13A853F65}'] { Property getters and setters } function GetID_PEDIDOValue: Integer; procedure SetID_PEDIDOValue(const aValue: Integer); @@ -449,7 +450,7 @@ type { IListaAnosPedidos } IListaAnosPedidos = interface(IDAStronglyTypedDataTable) - ['{A93D242C-7BE8-4BCE-9D51-C5BE9E75923B}'] + ['{55FEE857-66E6-4010-9D14-548A29F9F198}'] { Property getters and setters } function GetANOValue: String; procedure SetANOValue(const aValue: String); @@ -484,7 +485,7 @@ type { IArticulosPendientes } IArticulosPendientes = interface(IDAStronglyTypedDataTable) - ['{764F380F-50B6-4FBC-8E75-531B3859322D}'] + ['{0207F031-484C-4420-B620-74888FA2748C}'] { Property getters and setters } function GetID_ARTICULOValue: Integer; procedure SetID_ARTICULOValue(const aValue: Integer); @@ -699,7 +700,7 @@ type { IPedidosCliente } IPedidosCliente = interface(IDAStronglyTypedDataTable) - ['{AFC13DCE-C06B-43F6-8659-EF8F363AA406}'] + ['{2DF3DC58-2F3F-44B7-BCA7-6B5B7477FFD8}'] { Property getters and setters } function GetIDValue: Integer; procedure SetIDValue(const aValue: Integer); @@ -843,6 +844,10 @@ type procedure SetDATOS_BANCARIOSValue(const aValue: String); function GetDATOS_BANCARIOSIsNull: Boolean; procedure SetDATOS_BANCARIOSIsNull(const aValue: Boolean); + function GetID_VENDEDORValue: Integer; + procedure SetID_VENDEDORValue(const aValue: Integer); + function GetID_VENDEDORIsNull: Boolean; + procedure SetID_VENDEDORIsNull(const aValue: Boolean); { Properties } @@ -918,6 +923,8 @@ type property FECHA_PREVISTA_ENVIOIsNull: Boolean read GetFECHA_PREVISTA_ENVIOIsNull write SetFECHA_PREVISTA_ENVIOIsNull; property DATOS_BANCARIOS: String read GetDATOS_BANCARIOSValue write SetDATOS_BANCARIOSValue; property DATOS_BANCARIOSIsNull: Boolean read GetDATOS_BANCARIOSIsNull write SetDATOS_BANCARIOSIsNull; + property ID_VENDEDOR: Integer read GetID_VENDEDORValue write SetID_VENDEDORValue; + property ID_VENDEDORIsNull: Boolean read GetID_VENDEDORIsNull write SetID_VENDEDORIsNull; end; { TPedidosClienteDataTableRules } @@ -1071,6 +1078,10 @@ type procedure SetDATOS_BANCARIOSValue(const aValue: String); virtual; function GetDATOS_BANCARIOSIsNull: Boolean; virtual; procedure SetDATOS_BANCARIOSIsNull(const aValue: Boolean); virtual; + function GetID_VENDEDORValue: Integer; virtual; + procedure SetID_VENDEDORValue(const aValue: Integer); virtual; + function GetID_VENDEDORIsNull: Boolean; virtual; + procedure SetID_VENDEDORIsNull(const aValue: Boolean); virtual; { Properties } property ID: Integer read GetIDValue write SetIDValue; @@ -1145,6 +1156,8 @@ type property FECHA_PREVISTA_ENVIOIsNull: Boolean read GetFECHA_PREVISTA_ENVIOIsNull write SetFECHA_PREVISTA_ENVIOIsNull; property DATOS_BANCARIOS: String read GetDATOS_BANCARIOSValue write SetDATOS_BANCARIOSValue; property DATOS_BANCARIOSIsNull: Boolean read GetDATOS_BANCARIOSIsNull write SetDATOS_BANCARIOSIsNull; + property ID_VENDEDOR: Integer read GetID_VENDEDORValue write SetID_VENDEDORValue; + property ID_VENDEDORIsNull: Boolean read GetID_VENDEDORIsNull write SetID_VENDEDORIsNull; public constructor Create(aDataTable: TDADataTable); override; @@ -1154,7 +1167,7 @@ type { IPedidosCliente_Detalles } IPedidosCliente_Detalles = interface(IDAStronglyTypedDataTable) - ['{65AE1BAD-EEB3-48CE-8366-FB559610658B}'] + ['{B4AE7BEA-A09E-45A0-A759-F52B4C16CD78}'] { Property getters and setters } function GetIDValue: Integer; procedure SetIDValue(const aValue: Integer); @@ -1357,7 +1370,7 @@ type { IPedidoCliente_Articulos_Pendientes } IPedidoCliente_Articulos_Pendientes = interface(IDAStronglyTypedDataTable) - ['{FB1F9D4A-319A-4FB3-8576-26E149E18E06}'] + ['{19CDD1BE-D8E9-4304-A92F-168055101599}'] { Property getters and setters } function GetID_ARTICULOValue: Integer; procedure SetID_ARTICULOValue(const aValue: Integer); @@ -1428,7 +1441,7 @@ type { IPedidosCliente_Detalle_Color } IPedidosCliente_Detalle_Color = interface(IDAStronglyTypedDataTable) - ['{FEED9557-5E73-47D9-A62B-E92C858D9608}'] + ['{20ACE66E-BAE3-4C47-A309-BFAC58663D1E}'] { Property getters and setters } function GetIDValue: Integer; procedure SetIDValue(const aValue: Integer); @@ -3087,6 +3100,27 @@ begin DataTable.Fields[idx_PedidosClienteDATOS_BANCARIOS].AsVariant := Null; end; +function TPedidosClienteDataTableRules.GetID_VENDEDORValue: Integer; +begin + result := DataTable.Fields[idx_PedidosClienteID_VENDEDOR].AsInteger; +end; + +procedure TPedidosClienteDataTableRules.SetID_VENDEDORValue(const aValue: Integer); +begin + DataTable.Fields[idx_PedidosClienteID_VENDEDOR].AsInteger := aValue; +end; + +function TPedidosClienteDataTableRules.GetID_VENDEDORIsNull: boolean; +begin + result := DataTable.Fields[idx_PedidosClienteID_VENDEDOR].IsNull; +end; + +procedure TPedidosClienteDataTableRules.SetID_VENDEDORIsNull(const aValue: Boolean); +begin + if aValue then + DataTable.Fields[idx_PedidosClienteID_VENDEDOR].AsVariant := Null; +end; + { TPedidosCliente_DetallesDataTableRules } constructor TPedidosCliente_DetallesDataTableRules.Create(aDataTable: TDADataTable); diff --git a/Source/Modulos/Pedidos de cliente/Model/schPedidosClienteServer_Intf.pas b/Source/Modulos/Pedidos de cliente/Model/schPedidosClienteServer_Intf.pas index a9bc113..6dffdb5 100644 --- a/Source/Modulos/Pedidos de cliente/Model/schPedidosClienteServer_Intf.pas +++ b/Source/Modulos/Pedidos de cliente/Model/schPedidosClienteServer_Intf.pas @@ -1,6 +1,5 @@ unit schPedidosClienteServer_Intf; -{$D-} interface uses @@ -10,18 +9,18 @@ const { Delta rules ids Feel free to change them to something more human readable but make sure they are unique in the context of your application } - RID_PedidoCliente_Art_Colores_PendientesDelta = '{D48CFC2D-68EE-439B-A653-6BB86A1AEA06}'; - RID_ListaAnosPedidosDelta = '{5F3FFCBD-3B67-4A5A-A75B-A7C22F4EE07C}'; - RID_ArticulosPendientesDelta = '{DF4146CF-A028-4284-8DE7-32E5919E3A76}'; - RID_PedidosClienteDelta = '{689E08A5-4632-44BD-8A01-47DBFF950021}'; - RID_PedidosCliente_DetallesDelta = '{38C65BF2-649F-42CB-83C5-28908AD2C73D}'; - RID_PedidoCliente_Articulos_PendientesDelta = '{FA9B5DA8-4A55-41FC-8B1E-8BD5AF673A1C}'; - RID_PedidosCliente_Detalle_ColorDelta = '{93DFB88F-1CC1-4DAB-9483-CBA26B72E23F}'; + RID_PedidoCliente_Art_Colores_PendientesDelta = '{8F63A643-F3E5-4A91-A7AB-51141B23BC9F}'; + RID_ListaAnosPedidosDelta = '{AE5B8BAE-9FD4-4206-9FE7-75A8B346B271}'; + RID_ArticulosPendientesDelta = '{BE8186BC-5D9C-454C-AEA6-5850A1C89F2E}'; + RID_PedidosClienteDelta = '{B99CE41A-DAF5-47EF-9CDA-5A155B25AAE0}'; + RID_PedidosCliente_DetallesDelta = '{D8692671-928C-4697-B0E4-EAD24B9ED4EE}'; + RID_PedidoCliente_Articulos_PendientesDelta = '{11301996-C69F-44CF-8D9E-2B1C6609215C}'; + RID_PedidosCliente_Detalle_ColorDelta = '{66DD52F7-6B31-4BF6-932A-5BC3F3426C79}'; type { IPedidoCliente_Art_Colores_PendientesDelta } IPedidoCliente_Art_Colores_PendientesDelta = interface(IPedidoCliente_Art_Colores_Pendientes) - ['{D48CFC2D-68EE-439B-A653-6BB86A1AEA06}'] + ['{8F63A643-F3E5-4A91-A7AB-51141B23BC9F}'] { Property getters and setters } function GetOldID_PEDIDOValue : Integer; function GetOldID_ARTICULOValue : Integer; @@ -211,7 +210,7 @@ type { IListaAnosPedidosDelta } IListaAnosPedidosDelta = interface(IListaAnosPedidos) - ['{5F3FFCBD-3B67-4A5A-A75B-A7C22F4EE07C}'] + ['{AE5B8BAE-9FD4-4206-9FE7-75A8B346B271}'] { Property getters and setters } function GetOldANOValue : String; @@ -245,7 +244,7 @@ type { IArticulosPendientesDelta } IArticulosPendientesDelta = interface(IArticulosPendientes) - ['{DF4146CF-A028-4284-8DE7-32E5919E3A76}'] + ['{BE8186BC-5D9C-454C-AEA6-5850A1C89F2E}'] { Property getters and setters } function GetOldID_ARTICULOValue : Integer; function GetOldREFERENCIAValue : String; @@ -459,7 +458,7 @@ type { IPedidosClienteDelta } IPedidosClienteDelta = interface(IPedidosCliente) - ['{689E08A5-4632-44BD-8A01-47DBFF950021}'] + ['{B99CE41A-DAF5-47EF-9CDA-5A155B25AAE0}'] { Property getters and setters } function GetOldIDValue : Integer; function GetOldID_EMPRESAValue : Integer; @@ -497,6 +496,7 @@ type function GetOldREF_TIENDA_WEBValue : Integer; function GetOldFECHA_PREVISTA_ENVIOValue : DateTime; function GetOldDATOS_BANCARIOSValue : String; + function GetOldID_VENDEDORValue : Integer; { Properties } property OldID : Integer read GetOldIDValue; @@ -535,6 +535,7 @@ type property OldREF_TIENDA_WEB : Integer read GetOldREF_TIENDA_WEBValue; property OldFECHA_PREVISTA_ENVIO : DateTime read GetOldFECHA_PREVISTA_ENVIOValue; property OldDATOS_BANCARIOS : String read GetOldDATOS_BANCARIOSValue; + property OldID_VENDEDOR : Integer read GetOldID_VENDEDORValue; end; { TPedidosClienteBusinessProcessorRules } @@ -760,6 +761,12 @@ type function GetOldDATOS_BANCARIOSIsNull: Boolean; virtual; procedure SetDATOS_BANCARIOSValue(const aValue: String); virtual; procedure SetDATOS_BANCARIOSIsNull(const aValue: Boolean); virtual; + function GetID_VENDEDORValue: Integer; virtual; + function GetID_VENDEDORIsNull: Boolean; virtual; + function GetOldID_VENDEDORValue: Integer; virtual; + function GetOldID_VENDEDORIsNull: Boolean; virtual; + procedure SetID_VENDEDORValue(const aValue: Integer); virtual; + procedure SetID_VENDEDORIsNull(const aValue: Boolean); virtual; { Properties } property ID : Integer read GetIDValue write SetIDValue; @@ -906,6 +913,10 @@ type property DATOS_BANCARIOSIsNull : Boolean read GetDATOS_BANCARIOSIsNull write SetDATOS_BANCARIOSIsNull; property OldDATOS_BANCARIOS : String read GetOldDATOS_BANCARIOSValue; property OldDATOS_BANCARIOSIsNull : Boolean read GetOldDATOS_BANCARIOSIsNull; + property ID_VENDEDOR : Integer read GetID_VENDEDORValue write SetID_VENDEDORValue; + property ID_VENDEDORIsNull : Boolean read GetID_VENDEDORIsNull write SetID_VENDEDORIsNull; + property OldID_VENDEDOR : Integer read GetOldID_VENDEDORValue; + property OldID_VENDEDORIsNull : Boolean read GetOldID_VENDEDORIsNull; public constructor Create(aBusinessProcessor: TDABusinessProcessor); override; @@ -915,7 +926,7 @@ type { IPedidosCliente_DetallesDelta } IPedidosCliente_DetallesDelta = interface(IPedidosCliente_Detalles) - ['{38C65BF2-649F-42CB-83C5-28908AD2C73D}'] + ['{D8692671-928C-4697-B0E4-EAD24B9ED4EE}'] { Property getters and setters } function GetOldIDValue : Integer; function GetOldID_PEDIDOValue : Integer; @@ -1117,7 +1128,7 @@ type { IPedidoCliente_Articulos_PendientesDelta } IPedidoCliente_Articulos_PendientesDelta = interface(IPedidoCliente_Articulos_Pendientes) - ['{FA9B5DA8-4A55-41FC-8B1E-8BD5AF673A1C}'] + ['{11301996-C69F-44CF-8D9E-2B1C6609215C}'] { Property getters and setters } function GetOldID_ARTICULOValue : Integer; function GetOldCANTIDAD_PEDValue : Float; @@ -1187,7 +1198,7 @@ type { IPedidosCliente_Detalle_ColorDelta } IPedidosCliente_Detalle_ColorDelta = interface(IPedidosCliente_Detalle_Color) - ['{93DFB88F-1CC1-4DAB-9483-CBA26B72E23F}'] + ['{66DD52F7-6B31-4BF6-932A-5BC3F3426C79}'] { Property getters and setters } function GetOldIDValue : Integer; function GetOldID_DETALLEValue : Integer; @@ -1397,10 +1408,8 @@ begin end; function TPedidoCliente_Art_Colores_PendientesBusinessProcessorRules.GetID_PEDIDOIsNull: Boolean; -var v: variant; begin - v := BusinessProcessor.CurrentChange.NewValueByName[fld_PedidoCliente_Art_Colores_PendientesID_PEDIDO]; - result := VarIsNull(v) or VarIsClear(v); + result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_PedidoCliente_Art_Colores_PendientesID_PEDIDO]); end; function TPedidoCliente_Art_Colores_PendientesBusinessProcessorRules.GetOldID_PEDIDOValue: Integer; @@ -1409,10 +1418,8 @@ begin end; function TPedidoCliente_Art_Colores_PendientesBusinessProcessorRules.GetOldID_PEDIDOIsNull: Boolean; -var v: variant; begin - v := BusinessProcessor.CurrentChange.OldValueByName[fld_PedidoCliente_Art_Colores_PendientesID_PEDIDO]; - result := VarIsNull(v) or VarIsClear(v); + result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_PedidoCliente_Art_Colores_PendientesID_PEDIDO]); end; procedure TPedidoCliente_Art_Colores_PendientesBusinessProcessorRules.SetID_PEDIDOValue(const aValue: Integer); @@ -1432,10 +1439,8 @@ begin end; function TPedidoCliente_Art_Colores_PendientesBusinessProcessorRules.GetID_ARTICULOIsNull: Boolean; -var v: variant; begin - v := BusinessProcessor.CurrentChange.NewValueByName[fld_PedidoCliente_Art_Colores_PendientesID_ARTICULO]; - result := VarIsNull(v) or VarIsClear(v); + result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_PedidoCliente_Art_Colores_PendientesID_ARTICULO]); end; function TPedidoCliente_Art_Colores_PendientesBusinessProcessorRules.GetOldID_ARTICULOValue: Integer; @@ -1444,10 +1449,8 @@ begin end; function TPedidoCliente_Art_Colores_PendientesBusinessProcessorRules.GetOldID_ARTICULOIsNull: Boolean; -var v: variant; begin - v := BusinessProcessor.CurrentChange.OldValueByName[fld_PedidoCliente_Art_Colores_PendientesID_ARTICULO]; - result := VarIsNull(v) or VarIsClear(v); + result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_PedidoCliente_Art_Colores_PendientesID_ARTICULO]); end; procedure TPedidoCliente_Art_Colores_PendientesBusinessProcessorRules.SetID_ARTICULOValue(const aValue: Integer); @@ -1467,10 +1470,8 @@ begin end; function TPedidoCliente_Art_Colores_PendientesBusinessProcessorRules.GetCOLOR1IsNull: Boolean; -var v: variant; begin - v := BusinessProcessor.CurrentChange.NewValueByName[fld_PedidoCliente_Art_Colores_PendientesCOLOR1]; - result := VarIsNull(v) or VarIsClear(v); + result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_PedidoCliente_Art_Colores_PendientesCOLOR1]); end; function TPedidoCliente_Art_Colores_PendientesBusinessProcessorRules.GetOldCOLOR1Value: Int64; @@ -1479,10 +1480,8 @@ begin end; function TPedidoCliente_Art_Colores_PendientesBusinessProcessorRules.GetOldCOLOR1IsNull: Boolean; -var v: variant; begin - v := BusinessProcessor.CurrentChange.OldValueByName[fld_PedidoCliente_Art_Colores_PendientesCOLOR1]; - result := VarIsNull(v) or VarIsClear(v); + result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_PedidoCliente_Art_Colores_PendientesCOLOR1]); end; procedure TPedidoCliente_Art_Colores_PendientesBusinessProcessorRules.SetCOLOR1Value(const aValue: Int64); @@ -1502,10 +1501,8 @@ begin end; function TPedidoCliente_Art_Colores_PendientesBusinessProcessorRules.GetCOLOR2IsNull: Boolean; -var v: variant; begin - v := BusinessProcessor.CurrentChange.NewValueByName[fld_PedidoCliente_Art_Colores_PendientesCOLOR2]; - result := VarIsNull(v) or VarIsClear(v); + result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_PedidoCliente_Art_Colores_PendientesCOLOR2]); end; function TPedidoCliente_Art_Colores_PendientesBusinessProcessorRules.GetOldCOLOR2Value: Int64; @@ -1514,10 +1511,8 @@ begin end; function TPedidoCliente_Art_Colores_PendientesBusinessProcessorRules.GetOldCOLOR2IsNull: Boolean; -var v: variant; begin - v := BusinessProcessor.CurrentChange.OldValueByName[fld_PedidoCliente_Art_Colores_PendientesCOLOR2]; - result := VarIsNull(v) or VarIsClear(v); + result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_PedidoCliente_Art_Colores_PendientesCOLOR2]); end; procedure TPedidoCliente_Art_Colores_PendientesBusinessProcessorRules.SetCOLOR2Value(const aValue: Int64); @@ -1537,10 +1532,8 @@ begin end; function TPedidoCliente_Art_Colores_PendientesBusinessProcessorRules.GetCOLOR3IsNull: Boolean; -var v: variant; begin - v := BusinessProcessor.CurrentChange.NewValueByName[fld_PedidoCliente_Art_Colores_PendientesCOLOR3]; - result := VarIsNull(v) or VarIsClear(v); + result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_PedidoCliente_Art_Colores_PendientesCOLOR3]); end; function TPedidoCliente_Art_Colores_PendientesBusinessProcessorRules.GetOldCOLOR3Value: Int64; @@ -1549,10 +1542,8 @@ begin end; function TPedidoCliente_Art_Colores_PendientesBusinessProcessorRules.GetOldCOLOR3IsNull: Boolean; -var v: variant; begin - v := BusinessProcessor.CurrentChange.OldValueByName[fld_PedidoCliente_Art_Colores_PendientesCOLOR3]; - result := VarIsNull(v) or VarIsClear(v); + result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_PedidoCliente_Art_Colores_PendientesCOLOR3]); end; procedure TPedidoCliente_Art_Colores_PendientesBusinessProcessorRules.SetCOLOR3Value(const aValue: Int64); @@ -1572,10 +1563,8 @@ begin end; function TPedidoCliente_Art_Colores_PendientesBusinessProcessorRules.GetCOLOR4IsNull: Boolean; -var v: variant; begin - v := BusinessProcessor.CurrentChange.NewValueByName[fld_PedidoCliente_Art_Colores_PendientesCOLOR4]; - result := VarIsNull(v) or VarIsClear(v); + result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_PedidoCliente_Art_Colores_PendientesCOLOR4]); end; function TPedidoCliente_Art_Colores_PendientesBusinessProcessorRules.GetOldCOLOR4Value: Int64; @@ -1584,10 +1573,8 @@ begin end; function TPedidoCliente_Art_Colores_PendientesBusinessProcessorRules.GetOldCOLOR4IsNull: Boolean; -var v: variant; begin - v := BusinessProcessor.CurrentChange.OldValueByName[fld_PedidoCliente_Art_Colores_PendientesCOLOR4]; - result := VarIsNull(v) or VarIsClear(v); + result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_PedidoCliente_Art_Colores_PendientesCOLOR4]); end; procedure TPedidoCliente_Art_Colores_PendientesBusinessProcessorRules.SetCOLOR4Value(const aValue: Int64); @@ -1607,10 +1594,8 @@ begin end; function TPedidoCliente_Art_Colores_PendientesBusinessProcessorRules.GetCOLOR5IsNull: Boolean; -var v: variant; begin - v := BusinessProcessor.CurrentChange.NewValueByName[fld_PedidoCliente_Art_Colores_PendientesCOLOR5]; - result := VarIsNull(v) or VarIsClear(v); + result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_PedidoCliente_Art_Colores_PendientesCOLOR5]); end; function TPedidoCliente_Art_Colores_PendientesBusinessProcessorRules.GetOldCOLOR5Value: Int64; @@ -1619,10 +1604,8 @@ begin end; function TPedidoCliente_Art_Colores_PendientesBusinessProcessorRules.GetOldCOLOR5IsNull: Boolean; -var v: variant; begin - v := BusinessProcessor.CurrentChange.OldValueByName[fld_PedidoCliente_Art_Colores_PendientesCOLOR5]; - result := VarIsNull(v) or VarIsClear(v); + result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_PedidoCliente_Art_Colores_PendientesCOLOR5]); end; procedure TPedidoCliente_Art_Colores_PendientesBusinessProcessorRules.SetCOLOR5Value(const aValue: Int64); @@ -1642,10 +1625,8 @@ begin end; function TPedidoCliente_Art_Colores_PendientesBusinessProcessorRules.GetCOLOR6IsNull: Boolean; -var v: variant; begin - v := BusinessProcessor.CurrentChange.NewValueByName[fld_PedidoCliente_Art_Colores_PendientesCOLOR6]; - result := VarIsNull(v) or VarIsClear(v); + result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_PedidoCliente_Art_Colores_PendientesCOLOR6]); end; function TPedidoCliente_Art_Colores_PendientesBusinessProcessorRules.GetOldCOLOR6Value: Int64; @@ -1654,10 +1635,8 @@ begin end; function TPedidoCliente_Art_Colores_PendientesBusinessProcessorRules.GetOldCOLOR6IsNull: Boolean; -var v: variant; begin - v := BusinessProcessor.CurrentChange.OldValueByName[fld_PedidoCliente_Art_Colores_PendientesCOLOR6]; - result := VarIsNull(v) or VarIsClear(v); + result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_PedidoCliente_Art_Colores_PendientesCOLOR6]); end; procedure TPedidoCliente_Art_Colores_PendientesBusinessProcessorRules.SetCOLOR6Value(const aValue: Int64); @@ -1677,10 +1656,8 @@ begin end; function TPedidoCliente_Art_Colores_PendientesBusinessProcessorRules.GetCOLOR7IsNull: Boolean; -var v: variant; begin - v := BusinessProcessor.CurrentChange.NewValueByName[fld_PedidoCliente_Art_Colores_PendientesCOLOR7]; - result := VarIsNull(v) or VarIsClear(v); + result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_PedidoCliente_Art_Colores_PendientesCOLOR7]); end; function TPedidoCliente_Art_Colores_PendientesBusinessProcessorRules.GetOldCOLOR7Value: Int64; @@ -1689,10 +1666,8 @@ begin end; function TPedidoCliente_Art_Colores_PendientesBusinessProcessorRules.GetOldCOLOR7IsNull: Boolean; -var v: variant; begin - v := BusinessProcessor.CurrentChange.OldValueByName[fld_PedidoCliente_Art_Colores_PendientesCOLOR7]; - result := VarIsNull(v) or VarIsClear(v); + result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_PedidoCliente_Art_Colores_PendientesCOLOR7]); end; procedure TPedidoCliente_Art_Colores_PendientesBusinessProcessorRules.SetCOLOR7Value(const aValue: Int64); @@ -1712,10 +1687,8 @@ begin end; function TPedidoCliente_Art_Colores_PendientesBusinessProcessorRules.GetCOLOR8IsNull: Boolean; -var v: variant; begin - v := BusinessProcessor.CurrentChange.NewValueByName[fld_PedidoCliente_Art_Colores_PendientesCOLOR8]; - result := VarIsNull(v) or VarIsClear(v); + result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_PedidoCliente_Art_Colores_PendientesCOLOR8]); end; function TPedidoCliente_Art_Colores_PendientesBusinessProcessorRules.GetOldCOLOR8Value: Int64; @@ -1724,10 +1697,8 @@ begin end; function TPedidoCliente_Art_Colores_PendientesBusinessProcessorRules.GetOldCOLOR8IsNull: Boolean; -var v: variant; begin - v := BusinessProcessor.CurrentChange.OldValueByName[fld_PedidoCliente_Art_Colores_PendientesCOLOR8]; - result := VarIsNull(v) or VarIsClear(v); + result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_PedidoCliente_Art_Colores_PendientesCOLOR8]); end; procedure TPedidoCliente_Art_Colores_PendientesBusinessProcessorRules.SetCOLOR8Value(const aValue: Int64); @@ -1747,10 +1718,8 @@ begin end; function TPedidoCliente_Art_Colores_PendientesBusinessProcessorRules.GetCOLOR9IsNull: Boolean; -var v: variant; begin - v := BusinessProcessor.CurrentChange.NewValueByName[fld_PedidoCliente_Art_Colores_PendientesCOLOR9]; - result := VarIsNull(v) or VarIsClear(v); + result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_PedidoCliente_Art_Colores_PendientesCOLOR9]); end; function TPedidoCliente_Art_Colores_PendientesBusinessProcessorRules.GetOldCOLOR9Value: Int64; @@ -1759,10 +1728,8 @@ begin end; function TPedidoCliente_Art_Colores_PendientesBusinessProcessorRules.GetOldCOLOR9IsNull: Boolean; -var v: variant; begin - v := BusinessProcessor.CurrentChange.OldValueByName[fld_PedidoCliente_Art_Colores_PendientesCOLOR9]; - result := VarIsNull(v) or VarIsClear(v); + result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_PedidoCliente_Art_Colores_PendientesCOLOR9]); end; procedure TPedidoCliente_Art_Colores_PendientesBusinessProcessorRules.SetCOLOR9Value(const aValue: Int64); @@ -1782,10 +1749,8 @@ begin end; function TPedidoCliente_Art_Colores_PendientesBusinessProcessorRules.GetCOLOR10IsNull: Boolean; -var v: variant; begin - v := BusinessProcessor.CurrentChange.NewValueByName[fld_PedidoCliente_Art_Colores_PendientesCOLOR10]; - result := VarIsNull(v) or VarIsClear(v); + result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_PedidoCliente_Art_Colores_PendientesCOLOR10]); end; function TPedidoCliente_Art_Colores_PendientesBusinessProcessorRules.GetOldCOLOR10Value: Int64; @@ -1794,10 +1759,8 @@ begin end; function TPedidoCliente_Art_Colores_PendientesBusinessProcessorRules.GetOldCOLOR10IsNull: Boolean; -var v: variant; begin - v := BusinessProcessor.CurrentChange.OldValueByName[fld_PedidoCliente_Art_Colores_PendientesCOLOR10]; - result := VarIsNull(v) or VarIsClear(v); + result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_PedidoCliente_Art_Colores_PendientesCOLOR10]); end; procedure TPedidoCliente_Art_Colores_PendientesBusinessProcessorRules.SetCOLOR10Value(const aValue: Int64); @@ -1817,10 +1780,8 @@ begin end; function TPedidoCliente_Art_Colores_PendientesBusinessProcessorRules.GetCOLOR11IsNull: Boolean; -var v: variant; begin - v := BusinessProcessor.CurrentChange.NewValueByName[fld_PedidoCliente_Art_Colores_PendientesCOLOR11]; - result := VarIsNull(v) or VarIsClear(v); + result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_PedidoCliente_Art_Colores_PendientesCOLOR11]); end; function TPedidoCliente_Art_Colores_PendientesBusinessProcessorRules.GetOldCOLOR11Value: Int64; @@ -1829,10 +1790,8 @@ begin end; function TPedidoCliente_Art_Colores_PendientesBusinessProcessorRules.GetOldCOLOR11IsNull: Boolean; -var v: variant; begin - v := BusinessProcessor.CurrentChange.OldValueByName[fld_PedidoCliente_Art_Colores_PendientesCOLOR11]; - result := VarIsNull(v) or VarIsClear(v); + result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_PedidoCliente_Art_Colores_PendientesCOLOR11]); end; procedure TPedidoCliente_Art_Colores_PendientesBusinessProcessorRules.SetCOLOR11Value(const aValue: Int64); @@ -1852,10 +1811,8 @@ begin end; function TPedidoCliente_Art_Colores_PendientesBusinessProcessorRules.GetCOLOR12IsNull: Boolean; -var v: variant; begin - v := BusinessProcessor.CurrentChange.NewValueByName[fld_PedidoCliente_Art_Colores_PendientesCOLOR12]; - result := VarIsNull(v) or VarIsClear(v); + result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_PedidoCliente_Art_Colores_PendientesCOLOR12]); end; function TPedidoCliente_Art_Colores_PendientesBusinessProcessorRules.GetOldCOLOR12Value: Int64; @@ -1864,10 +1821,8 @@ begin end; function TPedidoCliente_Art_Colores_PendientesBusinessProcessorRules.GetOldCOLOR12IsNull: Boolean; -var v: variant; begin - v := BusinessProcessor.CurrentChange.OldValueByName[fld_PedidoCliente_Art_Colores_PendientesCOLOR12]; - result := VarIsNull(v) or VarIsClear(v); + result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_PedidoCliente_Art_Colores_PendientesCOLOR12]); end; procedure TPedidoCliente_Art_Colores_PendientesBusinessProcessorRules.SetCOLOR12Value(const aValue: Int64); @@ -1899,10 +1854,8 @@ begin end; function TListaAnosPedidosBusinessProcessorRules.GetANOIsNull: Boolean; -var v: variant; begin - v := BusinessProcessor.CurrentChange.NewValueByName[fld_ListaAnosPedidosANO]; - result := VarIsNull(v) or VarIsClear(v); + result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_ListaAnosPedidosANO]); end; function TListaAnosPedidosBusinessProcessorRules.GetOldANOValue: String; @@ -1911,10 +1864,8 @@ begin end; function TListaAnosPedidosBusinessProcessorRules.GetOldANOIsNull: Boolean; -var v: variant; begin - v := BusinessProcessor.CurrentChange.OldValueByName[fld_ListaAnosPedidosANO]; - result := VarIsNull(v) or VarIsClear(v); + result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_ListaAnosPedidosANO]); end; procedure TListaAnosPedidosBusinessProcessorRules.SetANOValue(const aValue: String); @@ -1946,10 +1897,8 @@ begin end; function TArticulosPendientesBusinessProcessorRules.GetID_ARTICULOIsNull: Boolean; -var v: variant; begin - v := BusinessProcessor.CurrentChange.NewValueByName[fld_ArticulosPendientesID_ARTICULO]; - result := VarIsNull(v) or VarIsClear(v); + result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_ArticulosPendientesID_ARTICULO]); end; function TArticulosPendientesBusinessProcessorRules.GetOldID_ARTICULOValue: Integer; @@ -1958,10 +1907,8 @@ begin end; function TArticulosPendientesBusinessProcessorRules.GetOldID_ARTICULOIsNull: Boolean; -var v: variant; begin - v := BusinessProcessor.CurrentChange.OldValueByName[fld_ArticulosPendientesID_ARTICULO]; - result := VarIsNull(v) or VarIsClear(v); + result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_ArticulosPendientesID_ARTICULO]); end; procedure TArticulosPendientesBusinessProcessorRules.SetID_ARTICULOValue(const aValue: Integer); @@ -1981,10 +1928,8 @@ begin end; function TArticulosPendientesBusinessProcessorRules.GetREFERENCIAIsNull: Boolean; -var v: variant; begin - v := BusinessProcessor.CurrentChange.NewValueByName[fld_ArticulosPendientesREFERENCIA]; - result := VarIsNull(v) or VarIsClear(v); + result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_ArticulosPendientesREFERENCIA]); end; function TArticulosPendientesBusinessProcessorRules.GetOldREFERENCIAValue: String; @@ -1993,10 +1938,8 @@ begin end; function TArticulosPendientesBusinessProcessorRules.GetOldREFERENCIAIsNull: Boolean; -var v: variant; begin - v := BusinessProcessor.CurrentChange.OldValueByName[fld_ArticulosPendientesREFERENCIA]; - result := VarIsNull(v) or VarIsClear(v); + result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_ArticulosPendientesREFERENCIA]); end; procedure TArticulosPendientesBusinessProcessorRules.SetREFERENCIAValue(const aValue: String); @@ -2016,10 +1959,8 @@ begin end; function TArticulosPendientesBusinessProcessorRules.GetDESCRIPCIONIsNull: Boolean; -var v: variant; begin - v := BusinessProcessor.CurrentChange.NewValueByName[fld_ArticulosPendientesDESCRIPCION]; - result := VarIsNull(v) or VarIsClear(v); + result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_ArticulosPendientesDESCRIPCION]); end; function TArticulosPendientesBusinessProcessorRules.GetOldDESCRIPCIONValue: String; @@ -2028,10 +1969,8 @@ begin end; function TArticulosPendientesBusinessProcessorRules.GetOldDESCRIPCIONIsNull: Boolean; -var v: variant; begin - v := BusinessProcessor.CurrentChange.OldValueByName[fld_ArticulosPendientesDESCRIPCION]; - result := VarIsNull(v) or VarIsClear(v); + result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_ArticulosPendientesDESCRIPCION]); end; procedure TArticulosPendientesBusinessProcessorRules.SetDESCRIPCIONValue(const aValue: String); @@ -2051,10 +1990,8 @@ begin end; function TArticulosPendientesBusinessProcessorRules.GetCOLOR1IsNull: Boolean; -var v: variant; begin - v := BusinessProcessor.CurrentChange.NewValueByName[fld_ArticulosPendientesCOLOR1]; - result := VarIsNull(v) or VarIsClear(v); + result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_ArticulosPendientesCOLOR1]); end; function TArticulosPendientesBusinessProcessorRules.GetOldCOLOR1Value: Int64; @@ -2063,10 +2000,8 @@ begin end; function TArticulosPendientesBusinessProcessorRules.GetOldCOLOR1IsNull: Boolean; -var v: variant; begin - v := BusinessProcessor.CurrentChange.OldValueByName[fld_ArticulosPendientesCOLOR1]; - result := VarIsNull(v) or VarIsClear(v); + result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_ArticulosPendientesCOLOR1]); end; procedure TArticulosPendientesBusinessProcessorRules.SetCOLOR1Value(const aValue: Int64); @@ -2086,10 +2021,8 @@ begin end; function TArticulosPendientesBusinessProcessorRules.GetCOLOR2IsNull: Boolean; -var v: variant; begin - v := BusinessProcessor.CurrentChange.NewValueByName[fld_ArticulosPendientesCOLOR2]; - result := VarIsNull(v) or VarIsClear(v); + result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_ArticulosPendientesCOLOR2]); end; function TArticulosPendientesBusinessProcessorRules.GetOldCOLOR2Value: Int64; @@ -2098,10 +2031,8 @@ begin end; function TArticulosPendientesBusinessProcessorRules.GetOldCOLOR2IsNull: Boolean; -var v: variant; begin - v := BusinessProcessor.CurrentChange.OldValueByName[fld_ArticulosPendientesCOLOR2]; - result := VarIsNull(v) or VarIsClear(v); + result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_ArticulosPendientesCOLOR2]); end; procedure TArticulosPendientesBusinessProcessorRules.SetCOLOR2Value(const aValue: Int64); @@ -2121,10 +2052,8 @@ begin end; function TArticulosPendientesBusinessProcessorRules.GetCOLOR3IsNull: Boolean; -var v: variant; begin - v := BusinessProcessor.CurrentChange.NewValueByName[fld_ArticulosPendientesCOLOR3]; - result := VarIsNull(v) or VarIsClear(v); + result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_ArticulosPendientesCOLOR3]); end; function TArticulosPendientesBusinessProcessorRules.GetOldCOLOR3Value: Int64; @@ -2133,10 +2062,8 @@ begin end; function TArticulosPendientesBusinessProcessorRules.GetOldCOLOR3IsNull: Boolean; -var v: variant; begin - v := BusinessProcessor.CurrentChange.OldValueByName[fld_ArticulosPendientesCOLOR3]; - result := VarIsNull(v) or VarIsClear(v); + result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_ArticulosPendientesCOLOR3]); end; procedure TArticulosPendientesBusinessProcessorRules.SetCOLOR3Value(const aValue: Int64); @@ -2156,10 +2083,8 @@ begin end; function TArticulosPendientesBusinessProcessorRules.GetCOLOR4IsNull: Boolean; -var v: variant; begin - v := BusinessProcessor.CurrentChange.NewValueByName[fld_ArticulosPendientesCOLOR4]; - result := VarIsNull(v) or VarIsClear(v); + result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_ArticulosPendientesCOLOR4]); end; function TArticulosPendientesBusinessProcessorRules.GetOldCOLOR4Value: Int64; @@ -2168,10 +2093,8 @@ begin end; function TArticulosPendientesBusinessProcessorRules.GetOldCOLOR4IsNull: Boolean; -var v: variant; begin - v := BusinessProcessor.CurrentChange.OldValueByName[fld_ArticulosPendientesCOLOR4]; - result := VarIsNull(v) or VarIsClear(v); + result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_ArticulosPendientesCOLOR4]); end; procedure TArticulosPendientesBusinessProcessorRules.SetCOLOR4Value(const aValue: Int64); @@ -2191,10 +2114,8 @@ begin end; function TArticulosPendientesBusinessProcessorRules.GetCOLOR5IsNull: Boolean; -var v: variant; begin - v := BusinessProcessor.CurrentChange.NewValueByName[fld_ArticulosPendientesCOLOR5]; - result := VarIsNull(v) or VarIsClear(v); + result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_ArticulosPendientesCOLOR5]); end; function TArticulosPendientesBusinessProcessorRules.GetOldCOLOR5Value: Int64; @@ -2203,10 +2124,8 @@ begin end; function TArticulosPendientesBusinessProcessorRules.GetOldCOLOR5IsNull: Boolean; -var v: variant; begin - v := BusinessProcessor.CurrentChange.OldValueByName[fld_ArticulosPendientesCOLOR5]; - result := VarIsNull(v) or VarIsClear(v); + result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_ArticulosPendientesCOLOR5]); end; procedure TArticulosPendientesBusinessProcessorRules.SetCOLOR5Value(const aValue: Int64); @@ -2226,10 +2145,8 @@ begin end; function TArticulosPendientesBusinessProcessorRules.GetCOLOR6IsNull: Boolean; -var v: variant; begin - v := BusinessProcessor.CurrentChange.NewValueByName[fld_ArticulosPendientesCOLOR6]; - result := VarIsNull(v) or VarIsClear(v); + result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_ArticulosPendientesCOLOR6]); end; function TArticulosPendientesBusinessProcessorRules.GetOldCOLOR6Value: Int64; @@ -2238,10 +2155,8 @@ begin end; function TArticulosPendientesBusinessProcessorRules.GetOldCOLOR6IsNull: Boolean; -var v: variant; begin - v := BusinessProcessor.CurrentChange.OldValueByName[fld_ArticulosPendientesCOLOR6]; - result := VarIsNull(v) or VarIsClear(v); + result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_ArticulosPendientesCOLOR6]); end; procedure TArticulosPendientesBusinessProcessorRules.SetCOLOR6Value(const aValue: Int64); @@ -2261,10 +2176,8 @@ begin end; function TArticulosPendientesBusinessProcessorRules.GetCOLOR7IsNull: Boolean; -var v: variant; begin - v := BusinessProcessor.CurrentChange.NewValueByName[fld_ArticulosPendientesCOLOR7]; - result := VarIsNull(v) or VarIsClear(v); + result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_ArticulosPendientesCOLOR7]); end; function TArticulosPendientesBusinessProcessorRules.GetOldCOLOR7Value: Int64; @@ -2273,10 +2186,8 @@ begin end; function TArticulosPendientesBusinessProcessorRules.GetOldCOLOR7IsNull: Boolean; -var v: variant; begin - v := BusinessProcessor.CurrentChange.OldValueByName[fld_ArticulosPendientesCOLOR7]; - result := VarIsNull(v) or VarIsClear(v); + result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_ArticulosPendientesCOLOR7]); end; procedure TArticulosPendientesBusinessProcessorRules.SetCOLOR7Value(const aValue: Int64); @@ -2296,10 +2207,8 @@ begin end; function TArticulosPendientesBusinessProcessorRules.GetCOLOR8IsNull: Boolean; -var v: variant; begin - v := BusinessProcessor.CurrentChange.NewValueByName[fld_ArticulosPendientesCOLOR8]; - result := VarIsNull(v) or VarIsClear(v); + result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_ArticulosPendientesCOLOR8]); end; function TArticulosPendientesBusinessProcessorRules.GetOldCOLOR8Value: Int64; @@ -2308,10 +2217,8 @@ begin end; function TArticulosPendientesBusinessProcessorRules.GetOldCOLOR8IsNull: Boolean; -var v: variant; begin - v := BusinessProcessor.CurrentChange.OldValueByName[fld_ArticulosPendientesCOLOR8]; - result := VarIsNull(v) or VarIsClear(v); + result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_ArticulosPendientesCOLOR8]); end; procedure TArticulosPendientesBusinessProcessorRules.SetCOLOR8Value(const aValue: Int64); @@ -2331,10 +2238,8 @@ begin end; function TArticulosPendientesBusinessProcessorRules.GetCOLOR9IsNull: Boolean; -var v: variant; begin - v := BusinessProcessor.CurrentChange.NewValueByName[fld_ArticulosPendientesCOLOR9]; - result := VarIsNull(v) or VarIsClear(v); + result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_ArticulosPendientesCOLOR9]); end; function TArticulosPendientesBusinessProcessorRules.GetOldCOLOR9Value: Int64; @@ -2343,10 +2248,8 @@ begin end; function TArticulosPendientesBusinessProcessorRules.GetOldCOLOR9IsNull: Boolean; -var v: variant; begin - v := BusinessProcessor.CurrentChange.OldValueByName[fld_ArticulosPendientesCOLOR9]; - result := VarIsNull(v) or VarIsClear(v); + result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_ArticulosPendientesCOLOR9]); end; procedure TArticulosPendientesBusinessProcessorRules.SetCOLOR9Value(const aValue: Int64); @@ -2366,10 +2269,8 @@ begin end; function TArticulosPendientesBusinessProcessorRules.GetCOLOR10IsNull: Boolean; -var v: variant; begin - v := BusinessProcessor.CurrentChange.NewValueByName[fld_ArticulosPendientesCOLOR10]; - result := VarIsNull(v) or VarIsClear(v); + result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_ArticulosPendientesCOLOR10]); end; function TArticulosPendientesBusinessProcessorRules.GetOldCOLOR10Value: Int64; @@ -2378,10 +2279,8 @@ begin end; function TArticulosPendientesBusinessProcessorRules.GetOldCOLOR10IsNull: Boolean; -var v: variant; begin - v := BusinessProcessor.CurrentChange.OldValueByName[fld_ArticulosPendientesCOLOR10]; - result := VarIsNull(v) or VarIsClear(v); + result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_ArticulosPendientesCOLOR10]); end; procedure TArticulosPendientesBusinessProcessorRules.SetCOLOR10Value(const aValue: Int64); @@ -2401,10 +2300,8 @@ begin end; function TArticulosPendientesBusinessProcessorRules.GetCOLOR11IsNull: Boolean; -var v: variant; begin - v := BusinessProcessor.CurrentChange.NewValueByName[fld_ArticulosPendientesCOLOR11]; - result := VarIsNull(v) or VarIsClear(v); + result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_ArticulosPendientesCOLOR11]); end; function TArticulosPendientesBusinessProcessorRules.GetOldCOLOR11Value: Int64; @@ -2413,10 +2310,8 @@ begin end; function TArticulosPendientesBusinessProcessorRules.GetOldCOLOR11IsNull: Boolean; -var v: variant; begin - v := BusinessProcessor.CurrentChange.OldValueByName[fld_ArticulosPendientesCOLOR11]; - result := VarIsNull(v) or VarIsClear(v); + result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_ArticulosPendientesCOLOR11]); end; procedure TArticulosPendientesBusinessProcessorRules.SetCOLOR11Value(const aValue: Int64); @@ -2436,10 +2331,8 @@ begin end; function TArticulosPendientesBusinessProcessorRules.GetCOLOR12IsNull: Boolean; -var v: variant; begin - v := BusinessProcessor.CurrentChange.NewValueByName[fld_ArticulosPendientesCOLOR12]; - result := VarIsNull(v) or VarIsClear(v); + result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_ArticulosPendientesCOLOR12]); end; function TArticulosPendientesBusinessProcessorRules.GetOldCOLOR12Value: Int64; @@ -2448,10 +2341,8 @@ begin end; function TArticulosPendientesBusinessProcessorRules.GetOldCOLOR12IsNull: Boolean; -var v: variant; begin - v := BusinessProcessor.CurrentChange.OldValueByName[fld_ArticulosPendientesCOLOR12]; - result := VarIsNull(v) or VarIsClear(v); + result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_ArticulosPendientesCOLOR12]); end; procedure TArticulosPendientesBusinessProcessorRules.SetCOLOR12Value(const aValue: Int64); @@ -2471,10 +2362,8 @@ begin end; function TArticulosPendientesBusinessProcessorRules.GetTOTALIsNull: Boolean; -var v: variant; begin - v := BusinessProcessor.CurrentChange.NewValueByName[fld_ArticulosPendientesTOTAL]; - result := VarIsNull(v) or VarIsClear(v); + result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_ArticulosPendientesTOTAL]); end; function TArticulosPendientesBusinessProcessorRules.GetOldTOTALValue: Int64; @@ -2483,10 +2372,8 @@ begin end; function TArticulosPendientesBusinessProcessorRules.GetOldTOTALIsNull: Boolean; -var v: variant; begin - v := BusinessProcessor.CurrentChange.OldValueByName[fld_ArticulosPendientesTOTAL]; - result := VarIsNull(v) or VarIsClear(v); + result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_ArticulosPendientesTOTAL]); end; procedure TArticulosPendientesBusinessProcessorRules.SetTOTALValue(const aValue: Int64); @@ -2538,10 +2425,8 @@ begin end; function TPedidosClienteBusinessProcessorRules.GetIDIsNull: Boolean; -var v: variant; begin - v := BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosClienteID]; - result := VarIsNull(v) or VarIsClear(v); + result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosClienteID]); end; function TPedidosClienteBusinessProcessorRules.GetOldIDValue: Integer; @@ -2550,10 +2435,8 @@ begin end; function TPedidosClienteBusinessProcessorRules.GetOldIDIsNull: Boolean; -var v: variant; begin - v := BusinessProcessor.CurrentChange.OldValueByName[fld_PedidosClienteID]; - result := VarIsNull(v) or VarIsClear(v); + result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_PedidosClienteID]); end; procedure TPedidosClienteBusinessProcessorRules.SetIDValue(const aValue: Integer); @@ -2573,10 +2456,8 @@ begin end; function TPedidosClienteBusinessProcessorRules.GetID_EMPRESAIsNull: Boolean; -var v: variant; begin - v := BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosClienteID_EMPRESA]; - result := VarIsNull(v) or VarIsClear(v); + result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosClienteID_EMPRESA]); end; function TPedidosClienteBusinessProcessorRules.GetOldID_EMPRESAValue: Integer; @@ -2585,10 +2466,8 @@ begin end; function TPedidosClienteBusinessProcessorRules.GetOldID_EMPRESAIsNull: Boolean; -var v: variant; begin - v := BusinessProcessor.CurrentChange.OldValueByName[fld_PedidosClienteID_EMPRESA]; - result := VarIsNull(v) or VarIsClear(v); + result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_PedidosClienteID_EMPRESA]); end; procedure TPedidosClienteBusinessProcessorRules.SetID_EMPRESAValue(const aValue: Integer); @@ -2608,10 +2487,8 @@ begin end; function TPedidosClienteBusinessProcessorRules.GetID_CLIENTEIsNull: Boolean; -var v: variant; begin - v := BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosClienteID_CLIENTE]; - result := VarIsNull(v) or VarIsClear(v); + result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosClienteID_CLIENTE]); end; function TPedidosClienteBusinessProcessorRules.GetOldID_CLIENTEValue: Integer; @@ -2620,10 +2497,8 @@ begin end; function TPedidosClienteBusinessProcessorRules.GetOldID_CLIENTEIsNull: Boolean; -var v: variant; begin - v := BusinessProcessor.CurrentChange.OldValueByName[fld_PedidosClienteID_CLIENTE]; - result := VarIsNull(v) or VarIsClear(v); + result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_PedidosClienteID_CLIENTE]); end; procedure TPedidosClienteBusinessProcessorRules.SetID_CLIENTEValue(const aValue: Integer); @@ -2643,10 +2518,8 @@ begin end; function TPedidosClienteBusinessProcessorRules.GetNOMBREIsNull: Boolean; -var v: variant; begin - v := BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosClienteNOMBRE]; - result := VarIsNull(v) or VarIsClear(v); + result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosClienteNOMBRE]); end; function TPedidosClienteBusinessProcessorRules.GetOldNOMBREValue: String; @@ -2655,10 +2528,8 @@ begin end; function TPedidosClienteBusinessProcessorRules.GetOldNOMBREIsNull: Boolean; -var v: variant; begin - v := BusinessProcessor.CurrentChange.OldValueByName[fld_PedidosClienteNOMBRE]; - result := VarIsNull(v) or VarIsClear(v); + result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_PedidosClienteNOMBRE]); end; procedure TPedidosClienteBusinessProcessorRules.SetNOMBREValue(const aValue: String); @@ -2678,10 +2549,8 @@ begin end; function TPedidosClienteBusinessProcessorRules.GetREFERENCIAIsNull: Boolean; -var v: variant; begin - v := BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosClienteREFERENCIA]; - result := VarIsNull(v) or VarIsClear(v); + result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosClienteREFERENCIA]); end; function TPedidosClienteBusinessProcessorRules.GetOldREFERENCIAValue: String; @@ -2690,10 +2559,8 @@ begin end; function TPedidosClienteBusinessProcessorRules.GetOldREFERENCIAIsNull: Boolean; -var v: variant; begin - v := BusinessProcessor.CurrentChange.OldValueByName[fld_PedidosClienteREFERENCIA]; - result := VarIsNull(v) or VarIsClear(v); + result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_PedidosClienteREFERENCIA]); end; procedure TPedidosClienteBusinessProcessorRules.SetREFERENCIAValue(const aValue: String); @@ -2713,10 +2580,8 @@ begin end; function TPedidosClienteBusinessProcessorRules.GetREFERENCIA_CLIENTEIsNull: Boolean; -var v: variant; begin - v := BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosClienteREFERENCIA_CLIENTE]; - result := VarIsNull(v) or VarIsClear(v); + result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosClienteREFERENCIA_CLIENTE]); end; function TPedidosClienteBusinessProcessorRules.GetOldREFERENCIA_CLIENTEValue: String; @@ -2725,10 +2590,8 @@ begin end; function TPedidosClienteBusinessProcessorRules.GetOldREFERENCIA_CLIENTEIsNull: Boolean; -var v: variant; begin - v := BusinessProcessor.CurrentChange.OldValueByName[fld_PedidosClienteREFERENCIA_CLIENTE]; - result := VarIsNull(v) or VarIsClear(v); + result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_PedidosClienteREFERENCIA_CLIENTE]); end; procedure TPedidosClienteBusinessProcessorRules.SetREFERENCIA_CLIENTEValue(const aValue: String); @@ -2748,10 +2611,8 @@ begin end; function TPedidosClienteBusinessProcessorRules.GetSITUACIONIsNull: Boolean; -var v: variant; begin - v := BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosClienteSITUACION]; - result := VarIsNull(v) or VarIsClear(v); + result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosClienteSITUACION]); end; function TPedidosClienteBusinessProcessorRules.GetOldSITUACIONValue: String; @@ -2760,10 +2621,8 @@ begin end; function TPedidosClienteBusinessProcessorRules.GetOldSITUACIONIsNull: Boolean; -var v: variant; begin - v := BusinessProcessor.CurrentChange.OldValueByName[fld_PedidosClienteSITUACION]; - result := VarIsNull(v) or VarIsClear(v); + result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_PedidosClienteSITUACION]); end; procedure TPedidosClienteBusinessProcessorRules.SetSITUACIONValue(const aValue: String); @@ -2783,10 +2642,8 @@ begin end; function TPedidosClienteBusinessProcessorRules.GetFECHA_PEDIDOIsNull: Boolean; -var v: variant; begin - v := BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosClienteFECHA_PEDIDO]; - result := VarIsNull(v) or VarIsClear(v); + result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosClienteFECHA_PEDIDO]); end; function TPedidosClienteBusinessProcessorRules.GetOldFECHA_PEDIDOValue: DateTime; @@ -2795,10 +2652,8 @@ begin end; function TPedidosClienteBusinessProcessorRules.GetOldFECHA_PEDIDOIsNull: Boolean; -var v: variant; begin - v := BusinessProcessor.CurrentChange.OldValueByName[fld_PedidosClienteFECHA_PEDIDO]; - result := VarIsNull(v) or VarIsClear(v); + result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_PedidosClienteFECHA_PEDIDO]); end; procedure TPedidosClienteBusinessProcessorRules.SetFECHA_PEDIDOValue(const aValue: DateTime); @@ -2818,10 +2673,8 @@ begin end; function TPedidosClienteBusinessProcessorRules.GetID_DIRECCIONIsNull: Boolean; -var v: variant; begin - v := BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosClienteID_DIRECCION]; - result := VarIsNull(v) or VarIsClear(v); + result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosClienteID_DIRECCION]); end; function TPedidosClienteBusinessProcessorRules.GetOldID_DIRECCIONValue: Integer; @@ -2830,10 +2683,8 @@ begin end; function TPedidosClienteBusinessProcessorRules.GetOldID_DIRECCIONIsNull: Boolean; -var v: variant; begin - v := BusinessProcessor.CurrentChange.OldValueByName[fld_PedidosClienteID_DIRECCION]; - result := VarIsNull(v) or VarIsClear(v); + result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_PedidosClienteID_DIRECCION]); end; procedure TPedidosClienteBusinessProcessorRules.SetID_DIRECCIONValue(const aValue: Integer); @@ -2853,10 +2704,8 @@ begin end; function TPedidosClienteBusinessProcessorRules.GetCALLEIsNull: Boolean; -var v: variant; begin - v := BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosClienteCALLE]; - result := VarIsNull(v) or VarIsClear(v); + result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosClienteCALLE]); end; function TPedidosClienteBusinessProcessorRules.GetOldCALLEValue: String; @@ -2865,10 +2714,8 @@ begin end; function TPedidosClienteBusinessProcessorRules.GetOldCALLEIsNull: Boolean; -var v: variant; begin - v := BusinessProcessor.CurrentChange.OldValueByName[fld_PedidosClienteCALLE]; - result := VarIsNull(v) or VarIsClear(v); + result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_PedidosClienteCALLE]); end; procedure TPedidosClienteBusinessProcessorRules.SetCALLEValue(const aValue: String); @@ -2888,10 +2735,8 @@ begin end; function TPedidosClienteBusinessProcessorRules.GetCODIGO_POSTALIsNull: Boolean; -var v: variant; begin - v := BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosClienteCODIGO_POSTAL]; - result := VarIsNull(v) or VarIsClear(v); + result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosClienteCODIGO_POSTAL]); end; function TPedidosClienteBusinessProcessorRules.GetOldCODIGO_POSTALValue: String; @@ -2900,10 +2745,8 @@ begin end; function TPedidosClienteBusinessProcessorRules.GetOldCODIGO_POSTALIsNull: Boolean; -var v: variant; begin - v := BusinessProcessor.CurrentChange.OldValueByName[fld_PedidosClienteCODIGO_POSTAL]; - result := VarIsNull(v) or VarIsClear(v); + result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_PedidosClienteCODIGO_POSTAL]); end; procedure TPedidosClienteBusinessProcessorRules.SetCODIGO_POSTALValue(const aValue: String); @@ -2923,10 +2766,8 @@ begin end; function TPedidosClienteBusinessProcessorRules.GetPOBLACIONIsNull: Boolean; -var v: variant; begin - v := BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosClientePOBLACION]; - result := VarIsNull(v) or VarIsClear(v); + result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosClientePOBLACION]); end; function TPedidosClienteBusinessProcessorRules.GetOldPOBLACIONValue: String; @@ -2935,10 +2776,8 @@ begin end; function TPedidosClienteBusinessProcessorRules.GetOldPOBLACIONIsNull: Boolean; -var v: variant; begin - v := BusinessProcessor.CurrentChange.OldValueByName[fld_PedidosClientePOBLACION]; - result := VarIsNull(v) or VarIsClear(v); + result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_PedidosClientePOBLACION]); end; procedure TPedidosClienteBusinessProcessorRules.SetPOBLACIONValue(const aValue: String); @@ -2958,10 +2797,8 @@ begin end; function TPedidosClienteBusinessProcessorRules.GetPROVINCIAIsNull: Boolean; -var v: variant; begin - v := BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosClientePROVINCIA]; - result := VarIsNull(v) or VarIsClear(v); + result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosClientePROVINCIA]); end; function TPedidosClienteBusinessProcessorRules.GetOldPROVINCIAValue: String; @@ -2970,10 +2807,8 @@ begin end; function TPedidosClienteBusinessProcessorRules.GetOldPROVINCIAIsNull: Boolean; -var v: variant; begin - v := BusinessProcessor.CurrentChange.OldValueByName[fld_PedidosClientePROVINCIA]; - result := VarIsNull(v) or VarIsClear(v); + result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_PedidosClientePROVINCIA]); end; procedure TPedidosClienteBusinessProcessorRules.SetPROVINCIAValue(const aValue: String); @@ -2993,10 +2828,8 @@ begin end; function TPedidosClienteBusinessProcessorRules.GetPERSONA_CONTACTOIsNull: Boolean; -var v: variant; begin - v := BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosClientePERSONA_CONTACTO]; - result := VarIsNull(v) or VarIsClear(v); + result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosClientePERSONA_CONTACTO]); end; function TPedidosClienteBusinessProcessorRules.GetOldPERSONA_CONTACTOValue: String; @@ -3005,10 +2838,8 @@ begin end; function TPedidosClienteBusinessProcessorRules.GetOldPERSONA_CONTACTOIsNull: Boolean; -var v: variant; begin - v := BusinessProcessor.CurrentChange.OldValueByName[fld_PedidosClientePERSONA_CONTACTO]; - result := VarIsNull(v) or VarIsClear(v); + result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_PedidosClientePERSONA_CONTACTO]); end; procedure TPedidosClienteBusinessProcessorRules.SetPERSONA_CONTACTOValue(const aValue: String); @@ -3028,10 +2859,8 @@ begin end; function TPedidosClienteBusinessProcessorRules.GetTELEFONOIsNull: Boolean; -var v: variant; begin - v := BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosClienteTELEFONO]; - result := VarIsNull(v) or VarIsClear(v); + result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosClienteTELEFONO]); end; function TPedidosClienteBusinessProcessorRules.GetOldTELEFONOValue: String; @@ -3040,10 +2869,8 @@ begin end; function TPedidosClienteBusinessProcessorRules.GetOldTELEFONOIsNull: Boolean; -var v: variant; begin - v := BusinessProcessor.CurrentChange.OldValueByName[fld_PedidosClienteTELEFONO]; - result := VarIsNull(v) or VarIsClear(v); + result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_PedidosClienteTELEFONO]); end; procedure TPedidosClienteBusinessProcessorRules.SetTELEFONOValue(const aValue: String); @@ -3064,10 +2891,8 @@ begin end; function TPedidosClienteBusinessProcessorRules.GetOBSERVACIONESIsNull: Boolean; -var v: variant; begin - v := BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosClienteOBSERVACIONES]; - result := VarIsNull(v) or VarIsClear(v); + result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosClienteOBSERVACIONES]); end; function TPedidosClienteBusinessProcessorRules.GetOldOBSERVACIONESValue: IROStrings; @@ -3077,10 +2902,8 @@ begin end; function TPedidosClienteBusinessProcessorRules.GetOldOBSERVACIONESIsNull: Boolean; -var v: variant; begin - v := BusinessProcessor.CurrentChange.OldValueByName[fld_PedidosClienteOBSERVACIONES]; - result := VarIsNull(v) or VarIsClear(v); + result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_PedidosClienteOBSERVACIONES]); end; procedure TPedidosClienteBusinessProcessorRules.SetOBSERVACIONESIsNull(const aValue: Boolean); @@ -3096,10 +2919,8 @@ begin end; function TPedidosClienteBusinessProcessorRules.GetINCIDENCIASIsNull: Boolean; -var v: variant; begin - v := BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosClienteINCIDENCIAS]; - result := VarIsNull(v) or VarIsClear(v); + result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosClienteINCIDENCIAS]); end; function TPedidosClienteBusinessProcessorRules.GetOldINCIDENCIASValue: IROStrings; @@ -3109,10 +2930,8 @@ begin end; function TPedidosClienteBusinessProcessorRules.GetOldINCIDENCIASIsNull: Boolean; -var v: variant; begin - v := BusinessProcessor.CurrentChange.OldValueByName[fld_PedidosClienteINCIDENCIAS]; - result := VarIsNull(v) or VarIsClear(v); + result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_PedidosClienteINCIDENCIAS]); end; procedure TPedidosClienteBusinessProcessorRules.SetINCIDENCIASIsNull(const aValue: Boolean); @@ -3127,10 +2946,8 @@ begin end; function TPedidosClienteBusinessProcessorRules.GetINCIDENCIAS_ACTIVASIsNull: Boolean; -var v: variant; begin - v := BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosClienteINCIDENCIAS_ACTIVAS]; - result := VarIsNull(v) or VarIsClear(v); + result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosClienteINCIDENCIAS_ACTIVAS]); end; function TPedidosClienteBusinessProcessorRules.GetOldINCIDENCIAS_ACTIVASValue: Integer; @@ -3139,10 +2956,8 @@ begin end; function TPedidosClienteBusinessProcessorRules.GetOldINCIDENCIAS_ACTIVASIsNull: Boolean; -var v: variant; begin - v := BusinessProcessor.CurrentChange.OldValueByName[fld_PedidosClienteINCIDENCIAS_ACTIVAS]; - result := VarIsNull(v) or VarIsClear(v); + result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_PedidosClienteINCIDENCIAS_ACTIVAS]); end; procedure TPedidosClienteBusinessProcessorRules.SetINCIDENCIAS_ACTIVASValue(const aValue: Integer); @@ -3162,10 +2977,8 @@ begin end; function TPedidosClienteBusinessProcessorRules.GetFECHA_ALTAIsNull: Boolean; -var v: variant; begin - v := BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosClienteFECHA_ALTA]; - result := VarIsNull(v) or VarIsClear(v); + result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosClienteFECHA_ALTA]); end; function TPedidosClienteBusinessProcessorRules.GetOldFECHA_ALTAValue: DateTime; @@ -3174,10 +2987,8 @@ begin end; function TPedidosClienteBusinessProcessorRules.GetOldFECHA_ALTAIsNull: Boolean; -var v: variant; begin - v := BusinessProcessor.CurrentChange.OldValueByName[fld_PedidosClienteFECHA_ALTA]; - result := VarIsNull(v) or VarIsClear(v); + result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_PedidosClienteFECHA_ALTA]); end; procedure TPedidosClienteBusinessProcessorRules.SetFECHA_ALTAValue(const aValue: DateTime); @@ -3197,10 +3008,8 @@ begin end; function TPedidosClienteBusinessProcessorRules.GetFECHA_MODIFICACIONIsNull: Boolean; -var v: variant; begin - v := BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosClienteFECHA_MODIFICACION]; - result := VarIsNull(v) or VarIsClear(v); + result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosClienteFECHA_MODIFICACION]); end; function TPedidosClienteBusinessProcessorRules.GetOldFECHA_MODIFICACIONValue: DateTime; @@ -3209,10 +3018,8 @@ begin end; function TPedidosClienteBusinessProcessorRules.GetOldFECHA_MODIFICACIONIsNull: Boolean; -var v: variant; begin - v := BusinessProcessor.CurrentChange.OldValueByName[fld_PedidosClienteFECHA_MODIFICACION]; - result := VarIsNull(v) or VarIsClear(v); + result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_PedidosClienteFECHA_MODIFICACION]); end; procedure TPedidosClienteBusinessProcessorRules.SetFECHA_MODIFICACIONValue(const aValue: DateTime); @@ -3232,10 +3039,8 @@ begin end; function TPedidosClienteBusinessProcessorRules.GetUSUARIOIsNull: Boolean; -var v: variant; begin - v := BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosClienteUSUARIO]; - result := VarIsNull(v) or VarIsClear(v); + result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosClienteUSUARIO]); end; function TPedidosClienteBusinessProcessorRules.GetOldUSUARIOValue: String; @@ -3244,10 +3049,8 @@ begin end; function TPedidosClienteBusinessProcessorRules.GetOldUSUARIOIsNull: Boolean; -var v: variant; begin - v := BusinessProcessor.CurrentChange.OldValueByName[fld_PedidosClienteUSUARIO]; - result := VarIsNull(v) or VarIsClear(v); + result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_PedidosClienteUSUARIO]); end; procedure TPedidosClienteBusinessProcessorRules.SetUSUARIOValue(const aValue: String); @@ -3267,10 +3070,8 @@ begin end; function TPedidosClienteBusinessProcessorRules.GetIMPORTE_NETOIsNull: Boolean; -var v: variant; begin - v := BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosClienteIMPORTE_NETO]; - result := VarIsNull(v) or VarIsClear(v); + result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosClienteIMPORTE_NETO]); end; function TPedidosClienteBusinessProcessorRules.GetOldIMPORTE_NETOValue: Currency; @@ -3279,10 +3080,8 @@ begin end; function TPedidosClienteBusinessProcessorRules.GetOldIMPORTE_NETOIsNull: Boolean; -var v: variant; begin - v := BusinessProcessor.CurrentChange.OldValueByName[fld_PedidosClienteIMPORTE_NETO]; - result := VarIsNull(v) or VarIsClear(v); + result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_PedidosClienteIMPORTE_NETO]); end; procedure TPedidosClienteBusinessProcessorRules.SetIMPORTE_NETOValue(const aValue: Currency); @@ -3302,10 +3101,8 @@ begin end; function TPedidosClienteBusinessProcessorRules.GetIMPORTE_PORTEIsNull: Boolean; -var v: variant; begin - v := BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosClienteIMPORTE_PORTE]; - result := VarIsNull(v) or VarIsClear(v); + result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosClienteIMPORTE_PORTE]); end; function TPedidosClienteBusinessProcessorRules.GetOldIMPORTE_PORTEValue: Currency; @@ -3314,10 +3111,8 @@ begin end; function TPedidosClienteBusinessProcessorRules.GetOldIMPORTE_PORTEIsNull: Boolean; -var v: variant; begin - v := BusinessProcessor.CurrentChange.OldValueByName[fld_PedidosClienteIMPORTE_PORTE]; - result := VarIsNull(v) or VarIsClear(v); + result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_PedidosClienteIMPORTE_PORTE]); end; procedure TPedidosClienteBusinessProcessorRules.SetIMPORTE_PORTEValue(const aValue: Currency); @@ -3337,10 +3132,8 @@ begin end; function TPedidosClienteBusinessProcessorRules.GetDESCUENTOIsNull: Boolean; -var v: variant; begin - v := BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosClienteDESCUENTO]; - result := VarIsNull(v) or VarIsClear(v); + result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosClienteDESCUENTO]); end; function TPedidosClienteBusinessProcessorRules.GetOldDESCUENTOValue: Float; @@ -3349,10 +3142,8 @@ begin end; function TPedidosClienteBusinessProcessorRules.GetOldDESCUENTOIsNull: Boolean; -var v: variant; begin - v := BusinessProcessor.CurrentChange.OldValueByName[fld_PedidosClienteDESCUENTO]; - result := VarIsNull(v) or VarIsClear(v); + result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_PedidosClienteDESCUENTO]); end; procedure TPedidosClienteBusinessProcessorRules.SetDESCUENTOValue(const aValue: Float); @@ -3372,10 +3163,8 @@ begin end; function TPedidosClienteBusinessProcessorRules.GetIMPORTE_DESCUENTOIsNull: Boolean; -var v: variant; begin - v := BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosClienteIMPORTE_DESCUENTO]; - result := VarIsNull(v) or VarIsClear(v); + result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosClienteIMPORTE_DESCUENTO]); end; function TPedidosClienteBusinessProcessorRules.GetOldIMPORTE_DESCUENTOValue: Currency; @@ -3384,10 +3173,8 @@ begin end; function TPedidosClienteBusinessProcessorRules.GetOldIMPORTE_DESCUENTOIsNull: Boolean; -var v: variant; begin - v := BusinessProcessor.CurrentChange.OldValueByName[fld_PedidosClienteIMPORTE_DESCUENTO]; - result := VarIsNull(v) or VarIsClear(v); + result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_PedidosClienteIMPORTE_DESCUENTO]); end; procedure TPedidosClienteBusinessProcessorRules.SetIMPORTE_DESCUENTOValue(const aValue: Currency); @@ -3407,10 +3194,8 @@ begin end; function TPedidosClienteBusinessProcessorRules.GetDESCUENTO2IsNull: Boolean; -var v: variant; begin - v := BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosClienteDESCUENTO2]; - result := VarIsNull(v) or VarIsClear(v); + result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosClienteDESCUENTO2]); end; function TPedidosClienteBusinessProcessorRules.GetOldDESCUENTO2Value: Float; @@ -3419,10 +3204,8 @@ begin end; function TPedidosClienteBusinessProcessorRules.GetOldDESCUENTO2IsNull: Boolean; -var v: variant; begin - v := BusinessProcessor.CurrentChange.OldValueByName[fld_PedidosClienteDESCUENTO2]; - result := VarIsNull(v) or VarIsClear(v); + result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_PedidosClienteDESCUENTO2]); end; procedure TPedidosClienteBusinessProcessorRules.SetDESCUENTO2Value(const aValue: Float); @@ -3442,10 +3225,8 @@ begin end; function TPedidosClienteBusinessProcessorRules.GetIMPORTE_DESCUENTO2IsNull: Boolean; -var v: variant; begin - v := BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosClienteIMPORTE_DESCUENTO2]; - result := VarIsNull(v) or VarIsClear(v); + result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosClienteIMPORTE_DESCUENTO2]); end; function TPedidosClienteBusinessProcessorRules.GetOldIMPORTE_DESCUENTO2Value: Currency; @@ -3454,10 +3235,8 @@ begin end; function TPedidosClienteBusinessProcessorRules.GetOldIMPORTE_DESCUENTO2IsNull: Boolean; -var v: variant; begin - v := BusinessProcessor.CurrentChange.OldValueByName[fld_PedidosClienteIMPORTE_DESCUENTO2]; - result := VarIsNull(v) or VarIsClear(v); + result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_PedidosClienteIMPORTE_DESCUENTO2]); end; procedure TPedidosClienteBusinessProcessorRules.SetIMPORTE_DESCUENTO2Value(const aValue: Currency); @@ -3477,10 +3256,8 @@ begin end; function TPedidosClienteBusinessProcessorRules.GetBASE_IMPONIBLEIsNull: Boolean; -var v: variant; begin - v := BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosClienteBASE_IMPONIBLE]; - result := VarIsNull(v) or VarIsClear(v); + result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosClienteBASE_IMPONIBLE]); end; function TPedidosClienteBusinessProcessorRules.GetOldBASE_IMPONIBLEValue: Currency; @@ -3489,10 +3266,8 @@ begin end; function TPedidosClienteBusinessProcessorRules.GetOldBASE_IMPONIBLEIsNull: Boolean; -var v: variant; begin - v := BusinessProcessor.CurrentChange.OldValueByName[fld_PedidosClienteBASE_IMPONIBLE]; - result := VarIsNull(v) or VarIsClear(v); + result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_PedidosClienteBASE_IMPONIBLE]); end; procedure TPedidosClienteBusinessProcessorRules.SetBASE_IMPONIBLEValue(const aValue: Currency); @@ -3512,10 +3287,8 @@ begin end; function TPedidosClienteBusinessProcessorRules.GetIVAIsNull: Boolean; -var v: variant; begin - v := BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosClienteIVA]; - result := VarIsNull(v) or VarIsClear(v); + result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosClienteIVA]); end; function TPedidosClienteBusinessProcessorRules.GetOldIVAValue: Float; @@ -3524,10 +3297,8 @@ begin end; function TPedidosClienteBusinessProcessorRules.GetOldIVAIsNull: Boolean; -var v: variant; begin - v := BusinessProcessor.CurrentChange.OldValueByName[fld_PedidosClienteIVA]; - result := VarIsNull(v) or VarIsClear(v); + result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_PedidosClienteIVA]); end; procedure TPedidosClienteBusinessProcessorRules.SetIVAValue(const aValue: Float); @@ -3547,10 +3318,8 @@ begin end; function TPedidosClienteBusinessProcessorRules.GetIMPORTE_IVAIsNull: Boolean; -var v: variant; begin - v := BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosClienteIMPORTE_IVA]; - result := VarIsNull(v) or VarIsClear(v); + result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosClienteIMPORTE_IVA]); end; function TPedidosClienteBusinessProcessorRules.GetOldIMPORTE_IVAValue: Currency; @@ -3559,10 +3328,8 @@ begin end; function TPedidosClienteBusinessProcessorRules.GetOldIMPORTE_IVAIsNull: Boolean; -var v: variant; begin - v := BusinessProcessor.CurrentChange.OldValueByName[fld_PedidosClienteIMPORTE_IVA]; - result := VarIsNull(v) or VarIsClear(v); + result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_PedidosClienteIMPORTE_IVA]); end; procedure TPedidosClienteBusinessProcessorRules.SetIMPORTE_IVAValue(const aValue: Currency); @@ -3582,10 +3349,8 @@ begin end; function TPedidosClienteBusinessProcessorRules.GetIMPORTE_TOTALIsNull: Boolean; -var v: variant; begin - v := BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosClienteIMPORTE_TOTAL]; - result := VarIsNull(v) or VarIsClear(v); + result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosClienteIMPORTE_TOTAL]); end; function TPedidosClienteBusinessProcessorRules.GetOldIMPORTE_TOTALValue: Currency; @@ -3594,10 +3359,8 @@ begin end; function TPedidosClienteBusinessProcessorRules.GetOldIMPORTE_TOTALIsNull: Boolean; -var v: variant; begin - v := BusinessProcessor.CurrentChange.OldValueByName[fld_PedidosClienteIMPORTE_TOTAL]; - result := VarIsNull(v) or VarIsClear(v); + result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_PedidosClienteIMPORTE_TOTAL]); end; procedure TPedidosClienteBusinessProcessorRules.SetIMPORTE_TOTALValue(const aValue: Currency); @@ -3617,10 +3380,8 @@ begin end; function TPedidosClienteBusinessProcessorRules.GetID_FORMA_PAGOIsNull: Boolean; -var v: variant; begin - v := BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosClienteID_FORMA_PAGO]; - result := VarIsNull(v) or VarIsClear(v); + result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosClienteID_FORMA_PAGO]); end; function TPedidosClienteBusinessProcessorRules.GetOldID_FORMA_PAGOValue: Integer; @@ -3629,10 +3390,8 @@ begin end; function TPedidosClienteBusinessProcessorRules.GetOldID_FORMA_PAGOIsNull: Boolean; -var v: variant; begin - v := BusinessProcessor.CurrentChange.OldValueByName[fld_PedidosClienteID_FORMA_PAGO]; - result := VarIsNull(v) or VarIsClear(v); + result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_PedidosClienteID_FORMA_PAGO]); end; procedure TPedidosClienteBusinessProcessorRules.SetID_FORMA_PAGOValue(const aValue: Integer); @@ -3652,10 +3411,8 @@ begin end; function TPedidosClienteBusinessProcessorRules.GetFORMA_PAGOIsNull: Boolean; -var v: variant; begin - v := BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosClienteFORMA_PAGO]; - result := VarIsNull(v) or VarIsClear(v); + result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosClienteFORMA_PAGO]); end; function TPedidosClienteBusinessProcessorRules.GetOldFORMA_PAGOValue: String; @@ -3664,10 +3421,8 @@ begin end; function TPedidosClienteBusinessProcessorRules.GetOldFORMA_PAGOIsNull: Boolean; -var v: variant; begin - v := BusinessProcessor.CurrentChange.OldValueByName[fld_PedidosClienteFORMA_PAGO]; - result := VarIsNull(v) or VarIsClear(v); + result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_PedidosClienteFORMA_PAGO]); end; procedure TPedidosClienteBusinessProcessorRules.SetFORMA_PAGOValue(const aValue: String); @@ -3687,10 +3442,8 @@ begin end; function TPedidosClienteBusinessProcessorRules.GetREF_TIENDA_WEBIsNull: Boolean; -var v: variant; begin - v := BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosClienteREF_TIENDA_WEB]; - result := VarIsNull(v) or VarIsClear(v); + result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosClienteREF_TIENDA_WEB]); end; function TPedidosClienteBusinessProcessorRules.GetOldREF_TIENDA_WEBValue: Integer; @@ -3699,10 +3452,8 @@ begin end; function TPedidosClienteBusinessProcessorRules.GetOldREF_TIENDA_WEBIsNull: Boolean; -var v: variant; begin - v := BusinessProcessor.CurrentChange.OldValueByName[fld_PedidosClienteREF_TIENDA_WEB]; - result := VarIsNull(v) or VarIsClear(v); + result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_PedidosClienteREF_TIENDA_WEB]); end; procedure TPedidosClienteBusinessProcessorRules.SetREF_TIENDA_WEBValue(const aValue: Integer); @@ -3722,10 +3473,8 @@ begin end; function TPedidosClienteBusinessProcessorRules.GetFECHA_PREVISTA_ENVIOIsNull: Boolean; -var v: variant; begin - v := BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosClienteFECHA_PREVISTA_ENVIO]; - result := VarIsNull(v) or VarIsClear(v); + result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosClienteFECHA_PREVISTA_ENVIO]); end; function TPedidosClienteBusinessProcessorRules.GetOldFECHA_PREVISTA_ENVIOValue: DateTime; @@ -3734,10 +3483,8 @@ begin end; function TPedidosClienteBusinessProcessorRules.GetOldFECHA_PREVISTA_ENVIOIsNull: Boolean; -var v: variant; begin - v := BusinessProcessor.CurrentChange.OldValueByName[fld_PedidosClienteFECHA_PREVISTA_ENVIO]; - result := VarIsNull(v) or VarIsClear(v); + result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_PedidosClienteFECHA_PREVISTA_ENVIO]); end; procedure TPedidosClienteBusinessProcessorRules.SetFECHA_PREVISTA_ENVIOValue(const aValue: DateTime); @@ -3757,10 +3504,8 @@ begin end; function TPedidosClienteBusinessProcessorRules.GetDATOS_BANCARIOSIsNull: Boolean; -var v: variant; begin - v := BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosClienteDATOS_BANCARIOS]; - result := VarIsNull(v) or VarIsClear(v); + result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosClienteDATOS_BANCARIOS]); end; function TPedidosClienteBusinessProcessorRules.GetOldDATOS_BANCARIOSValue: String; @@ -3769,10 +3514,8 @@ begin end; function TPedidosClienteBusinessProcessorRules.GetOldDATOS_BANCARIOSIsNull: Boolean; -var v: variant; begin - v := BusinessProcessor.CurrentChange.OldValueByName[fld_PedidosClienteDATOS_BANCARIOS]; - result := VarIsNull(v) or VarIsClear(v); + result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_PedidosClienteDATOS_BANCARIOS]); end; procedure TPedidosClienteBusinessProcessorRules.SetDATOS_BANCARIOSValue(const aValue: String); @@ -3786,6 +3529,37 @@ begin BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosClienteDATOS_BANCARIOS] := Null; end; +function TPedidosClienteBusinessProcessorRules.GetID_VENDEDORValue: Integer; +begin + result := BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosClienteID_VENDEDOR]; +end; + +function TPedidosClienteBusinessProcessorRules.GetID_VENDEDORIsNull: Boolean; +begin + result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosClienteID_VENDEDOR]); +end; + +function TPedidosClienteBusinessProcessorRules.GetOldID_VENDEDORValue: Integer; +begin + result := BusinessProcessor.CurrentChange.OldValueByName[fld_PedidosClienteID_VENDEDOR]; +end; + +function TPedidosClienteBusinessProcessorRules.GetOldID_VENDEDORIsNull: Boolean; +begin + result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_PedidosClienteID_VENDEDOR]); +end; + +procedure TPedidosClienteBusinessProcessorRules.SetID_VENDEDORValue(const aValue: Integer); +begin + BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosClienteID_VENDEDOR] := aValue; +end; + +procedure TPedidosClienteBusinessProcessorRules.SetID_VENDEDORIsNull(const aValue: Boolean); +begin + if aValue then + BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosClienteID_VENDEDOR] := Null; +end; + { TPedidosCliente_DetallesBusinessProcessorRules } constructor TPedidosCliente_DetallesBusinessProcessorRules.Create(aBusinessProcessor: TDABusinessProcessor); @@ -3804,10 +3578,8 @@ begin end; function TPedidosCliente_DetallesBusinessProcessorRules.GetIDIsNull: Boolean; -var v: variant; begin - v := BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosCliente_DetallesID]; - result := VarIsNull(v) or VarIsClear(v); + result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosCliente_DetallesID]); end; function TPedidosCliente_DetallesBusinessProcessorRules.GetOldIDValue: Integer; @@ -3816,10 +3588,8 @@ begin end; function TPedidosCliente_DetallesBusinessProcessorRules.GetOldIDIsNull: Boolean; -var v: variant; begin - v := BusinessProcessor.CurrentChange.OldValueByName[fld_PedidosCliente_DetallesID]; - result := VarIsNull(v) or VarIsClear(v); + result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_PedidosCliente_DetallesID]); end; procedure TPedidosCliente_DetallesBusinessProcessorRules.SetIDValue(const aValue: Integer); @@ -3839,10 +3609,8 @@ begin end; function TPedidosCliente_DetallesBusinessProcessorRules.GetID_PEDIDOIsNull: Boolean; -var v: variant; begin - v := BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosCliente_DetallesID_PEDIDO]; - result := VarIsNull(v) or VarIsClear(v); + result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosCliente_DetallesID_PEDIDO]); end; function TPedidosCliente_DetallesBusinessProcessorRules.GetOldID_PEDIDOValue: Integer; @@ -3851,10 +3619,8 @@ begin end; function TPedidosCliente_DetallesBusinessProcessorRules.GetOldID_PEDIDOIsNull: Boolean; -var v: variant; begin - v := BusinessProcessor.CurrentChange.OldValueByName[fld_PedidosCliente_DetallesID_PEDIDO]; - result := VarIsNull(v) or VarIsClear(v); + result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_PedidosCliente_DetallesID_PEDIDO]); end; procedure TPedidosCliente_DetallesBusinessProcessorRules.SetID_PEDIDOValue(const aValue: Integer); @@ -3874,10 +3640,8 @@ begin end; function TPedidosCliente_DetallesBusinessProcessorRules.GetPOSICIONIsNull: Boolean; -var v: variant; begin - v := BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosCliente_DetallesPOSICION]; - result := VarIsNull(v) or VarIsClear(v); + result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosCliente_DetallesPOSICION]); end; function TPedidosCliente_DetallesBusinessProcessorRules.GetOldPOSICIONValue: Integer; @@ -3886,10 +3650,8 @@ begin end; function TPedidosCliente_DetallesBusinessProcessorRules.GetOldPOSICIONIsNull: Boolean; -var v: variant; begin - v := BusinessProcessor.CurrentChange.OldValueByName[fld_PedidosCliente_DetallesPOSICION]; - result := VarIsNull(v) or VarIsClear(v); + result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_PedidosCliente_DetallesPOSICION]); end; procedure TPedidosCliente_DetallesBusinessProcessorRules.SetPOSICIONValue(const aValue: Integer); @@ -3909,10 +3671,8 @@ begin end; function TPedidosCliente_DetallesBusinessProcessorRules.GetTIPO_DETALLEIsNull: Boolean; -var v: variant; begin - v := BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosCliente_DetallesTIPO_DETALLE]; - result := VarIsNull(v) or VarIsClear(v); + result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosCliente_DetallesTIPO_DETALLE]); end; function TPedidosCliente_DetallesBusinessProcessorRules.GetOldTIPO_DETALLEValue: String; @@ -3921,10 +3681,8 @@ begin end; function TPedidosCliente_DetallesBusinessProcessorRules.GetOldTIPO_DETALLEIsNull: Boolean; -var v: variant; begin - v := BusinessProcessor.CurrentChange.OldValueByName[fld_PedidosCliente_DetallesTIPO_DETALLE]; - result := VarIsNull(v) or VarIsClear(v); + result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_PedidosCliente_DetallesTIPO_DETALLE]); end; procedure TPedidosCliente_DetallesBusinessProcessorRules.SetTIPO_DETALLEValue(const aValue: String); @@ -3944,10 +3702,8 @@ begin end; function TPedidosCliente_DetallesBusinessProcessorRules.GetID_ARTICULOIsNull: Boolean; -var v: variant; begin - v := BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosCliente_DetallesID_ARTICULO]; - result := VarIsNull(v) or VarIsClear(v); + result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosCliente_DetallesID_ARTICULO]); end; function TPedidosCliente_DetallesBusinessProcessorRules.GetOldID_ARTICULOValue: Integer; @@ -3956,10 +3712,8 @@ begin end; function TPedidosCliente_DetallesBusinessProcessorRules.GetOldID_ARTICULOIsNull: Boolean; -var v: variant; begin - v := BusinessProcessor.CurrentChange.OldValueByName[fld_PedidosCliente_DetallesID_ARTICULO]; - result := VarIsNull(v) or VarIsClear(v); + result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_PedidosCliente_DetallesID_ARTICULO]); end; procedure TPedidosCliente_DetallesBusinessProcessorRules.SetID_ARTICULOValue(const aValue: Integer); @@ -3979,10 +3733,8 @@ begin end; function TPedidosCliente_DetallesBusinessProcessorRules.GetREFERENCIAIsNull: Boolean; -var v: variant; begin - v := BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosCliente_DetallesREFERENCIA]; - result := VarIsNull(v) or VarIsClear(v); + result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosCliente_DetallesREFERENCIA]); end; function TPedidosCliente_DetallesBusinessProcessorRules.GetOldREFERENCIAValue: String; @@ -3991,10 +3743,8 @@ begin end; function TPedidosCliente_DetallesBusinessProcessorRules.GetOldREFERENCIAIsNull: Boolean; -var v: variant; begin - v := BusinessProcessor.CurrentChange.OldValueByName[fld_PedidosCliente_DetallesREFERENCIA]; - result := VarIsNull(v) or VarIsClear(v); + result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_PedidosCliente_DetallesREFERENCIA]); end; procedure TPedidosCliente_DetallesBusinessProcessorRules.SetREFERENCIAValue(const aValue: String); @@ -4014,10 +3764,8 @@ begin end; function TPedidosCliente_DetallesBusinessProcessorRules.GetREFERENCIA_PROVEEDORIsNull: Boolean; -var v: variant; begin - v := BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosCliente_DetallesREFERENCIA_PROVEEDOR]; - result := VarIsNull(v) or VarIsClear(v); + result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosCliente_DetallesREFERENCIA_PROVEEDOR]); end; function TPedidosCliente_DetallesBusinessProcessorRules.GetOldREFERENCIA_PROVEEDORValue: String; @@ -4026,10 +3774,8 @@ begin end; function TPedidosCliente_DetallesBusinessProcessorRules.GetOldREFERENCIA_PROVEEDORIsNull: Boolean; -var v: variant; begin - v := BusinessProcessor.CurrentChange.OldValueByName[fld_PedidosCliente_DetallesREFERENCIA_PROVEEDOR]; - result := VarIsNull(v) or VarIsClear(v); + result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_PedidosCliente_DetallesREFERENCIA_PROVEEDOR]); end; procedure TPedidosCliente_DetallesBusinessProcessorRules.SetREFERENCIA_PROVEEDORValue(const aValue: String); @@ -4049,10 +3795,8 @@ begin end; function TPedidosCliente_DetallesBusinessProcessorRules.GetCONCEPTOIsNull: Boolean; -var v: variant; begin - v := BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosCliente_DetallesCONCEPTO]; - result := VarIsNull(v) or VarIsClear(v); + result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosCliente_DetallesCONCEPTO]); end; function TPedidosCliente_DetallesBusinessProcessorRules.GetOldCONCEPTOValue: String; @@ -4061,10 +3805,8 @@ begin end; function TPedidosCliente_DetallesBusinessProcessorRules.GetOldCONCEPTOIsNull: Boolean; -var v: variant; begin - v := BusinessProcessor.CurrentChange.OldValueByName[fld_PedidosCliente_DetallesCONCEPTO]; - result := VarIsNull(v) or VarIsClear(v); + result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_PedidosCliente_DetallesCONCEPTO]); end; procedure TPedidosCliente_DetallesBusinessProcessorRules.SetCONCEPTOValue(const aValue: String); @@ -4084,10 +3826,8 @@ begin end; function TPedidosCliente_DetallesBusinessProcessorRules.GetCANTIDADIsNull: Boolean; -var v: variant; begin - v := BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosCliente_DetallesCANTIDAD]; - result := VarIsNull(v) or VarIsClear(v); + result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosCliente_DetallesCANTIDAD]); end; function TPedidosCliente_DetallesBusinessProcessorRules.GetOldCANTIDADValue: Float; @@ -4096,10 +3836,8 @@ begin end; function TPedidosCliente_DetallesBusinessProcessorRules.GetOldCANTIDADIsNull: Boolean; -var v: variant; begin - v := BusinessProcessor.CurrentChange.OldValueByName[fld_PedidosCliente_DetallesCANTIDAD]; - result := VarIsNull(v) or VarIsClear(v); + result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_PedidosCliente_DetallesCANTIDAD]); end; procedure TPedidosCliente_DetallesBusinessProcessorRules.SetCANTIDADValue(const aValue: Float); @@ -4119,10 +3857,8 @@ begin end; function TPedidosCliente_DetallesBusinessProcessorRules.GetIMPORTE_UNIDADIsNull: Boolean; -var v: variant; begin - v := BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosCliente_DetallesIMPORTE_UNIDAD]; - result := VarIsNull(v) or VarIsClear(v); + result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosCliente_DetallesIMPORTE_UNIDAD]); end; function TPedidosCliente_DetallesBusinessProcessorRules.GetOldIMPORTE_UNIDADValue: Currency; @@ -4131,10 +3867,8 @@ begin end; function TPedidosCliente_DetallesBusinessProcessorRules.GetOldIMPORTE_UNIDADIsNull: Boolean; -var v: variant; begin - v := BusinessProcessor.CurrentChange.OldValueByName[fld_PedidosCliente_DetallesIMPORTE_UNIDAD]; - result := VarIsNull(v) or VarIsClear(v); + result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_PedidosCliente_DetallesIMPORTE_UNIDAD]); end; procedure TPedidosCliente_DetallesBusinessProcessorRules.SetIMPORTE_UNIDADValue(const aValue: Currency); @@ -4154,10 +3888,8 @@ begin end; function TPedidosCliente_DetallesBusinessProcessorRules.GetUNIDAD_MEDIDAIsNull: Boolean; -var v: variant; begin - v := BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosCliente_DetallesUNIDAD_MEDIDA]; - result := VarIsNull(v) or VarIsClear(v); + result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosCliente_DetallesUNIDAD_MEDIDA]); end; function TPedidosCliente_DetallesBusinessProcessorRules.GetOldUNIDAD_MEDIDAValue: String; @@ -4166,10 +3898,8 @@ begin end; function TPedidosCliente_DetallesBusinessProcessorRules.GetOldUNIDAD_MEDIDAIsNull: Boolean; -var v: variant; begin - v := BusinessProcessor.CurrentChange.OldValueByName[fld_PedidosCliente_DetallesUNIDAD_MEDIDA]; - result := VarIsNull(v) or VarIsClear(v); + result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_PedidosCliente_DetallesUNIDAD_MEDIDA]); end; procedure TPedidosCliente_DetallesBusinessProcessorRules.SetUNIDAD_MEDIDAValue(const aValue: String); @@ -4189,10 +3919,8 @@ begin end; function TPedidosCliente_DetallesBusinessProcessorRules.GetDESCUENTOIsNull: Boolean; -var v: variant; begin - v := BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosCliente_DetallesDESCUENTO]; - result := VarIsNull(v) or VarIsClear(v); + result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosCliente_DetallesDESCUENTO]); end; function TPedidosCliente_DetallesBusinessProcessorRules.GetOldDESCUENTOValue: Float; @@ -4201,10 +3929,8 @@ begin end; function TPedidosCliente_DetallesBusinessProcessorRules.GetOldDESCUENTOIsNull: Boolean; -var v: variant; begin - v := BusinessProcessor.CurrentChange.OldValueByName[fld_PedidosCliente_DetallesDESCUENTO]; - result := VarIsNull(v) or VarIsClear(v); + result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_PedidosCliente_DetallesDESCUENTO]); end; procedure TPedidosCliente_DetallesBusinessProcessorRules.SetDESCUENTOValue(const aValue: Float); @@ -4224,10 +3950,8 @@ begin end; function TPedidosCliente_DetallesBusinessProcessorRules.GetIMPORTE_PORTEIsNull: Boolean; -var v: variant; begin - v := BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosCliente_DetallesIMPORTE_PORTE]; - result := VarIsNull(v) or VarIsClear(v); + result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosCliente_DetallesIMPORTE_PORTE]); end; function TPedidosCliente_DetallesBusinessProcessorRules.GetOldIMPORTE_PORTEValue: Currency; @@ -4236,10 +3960,8 @@ begin end; function TPedidosCliente_DetallesBusinessProcessorRules.GetOldIMPORTE_PORTEIsNull: Boolean; -var v: variant; begin - v := BusinessProcessor.CurrentChange.OldValueByName[fld_PedidosCliente_DetallesIMPORTE_PORTE]; - result := VarIsNull(v) or VarIsClear(v); + result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_PedidosCliente_DetallesIMPORTE_PORTE]); end; procedure TPedidosCliente_DetallesBusinessProcessorRules.SetIMPORTE_PORTEValue(const aValue: Currency); @@ -4259,10 +3981,8 @@ begin end; function TPedidosCliente_DetallesBusinessProcessorRules.GetIMPORTE_TOTALIsNull: Boolean; -var v: variant; begin - v := BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosCliente_DetallesIMPORTE_TOTAL]; - result := VarIsNull(v) or VarIsClear(v); + result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosCliente_DetallesIMPORTE_TOTAL]); end; function TPedidosCliente_DetallesBusinessProcessorRules.GetOldIMPORTE_TOTALValue: Currency; @@ -4271,10 +3991,8 @@ begin end; function TPedidosCliente_DetallesBusinessProcessorRules.GetOldIMPORTE_TOTALIsNull: Boolean; -var v: variant; begin - v := BusinessProcessor.CurrentChange.OldValueByName[fld_PedidosCliente_DetallesIMPORTE_TOTAL]; - result := VarIsNull(v) or VarIsClear(v); + result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_PedidosCliente_DetallesIMPORTE_TOTAL]); end; procedure TPedidosCliente_DetallesBusinessProcessorRules.SetIMPORTE_TOTALValue(const aValue: Currency); @@ -4294,10 +4012,8 @@ begin end; function TPedidosCliente_DetallesBusinessProcessorRules.GetVISIBLEIsNull: Boolean; -var v: variant; begin - v := BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosCliente_DetallesVISIBLE]; - result := VarIsNull(v) or VarIsClear(v); + result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosCliente_DetallesVISIBLE]); end; function TPedidosCliente_DetallesBusinessProcessorRules.GetOldVISIBLEValue: Integer; @@ -4306,10 +4022,8 @@ begin end; function TPedidosCliente_DetallesBusinessProcessorRules.GetOldVISIBLEIsNull: Boolean; -var v: variant; begin - v := BusinessProcessor.CurrentChange.OldValueByName[fld_PedidosCliente_DetallesVISIBLE]; - result := VarIsNull(v) or VarIsClear(v); + result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_PedidosCliente_DetallesVISIBLE]); end; procedure TPedidosCliente_DetallesBusinessProcessorRules.SetVISIBLEValue(const aValue: Integer); @@ -4341,10 +4055,8 @@ begin end; function TPedidoCliente_Articulos_PendientesBusinessProcessorRules.GetID_ARTICULOIsNull: Boolean; -var v: variant; begin - v := BusinessProcessor.CurrentChange.NewValueByName[fld_PedidoCliente_Articulos_PendientesID_ARTICULO]; - result := VarIsNull(v) or VarIsClear(v); + result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_PedidoCliente_Articulos_PendientesID_ARTICULO]); end; function TPedidoCliente_Articulos_PendientesBusinessProcessorRules.GetOldID_ARTICULOValue: Integer; @@ -4353,10 +4065,8 @@ begin end; function TPedidoCliente_Articulos_PendientesBusinessProcessorRules.GetOldID_ARTICULOIsNull: Boolean; -var v: variant; begin - v := BusinessProcessor.CurrentChange.OldValueByName[fld_PedidoCliente_Articulos_PendientesID_ARTICULO]; - result := VarIsNull(v) or VarIsClear(v); + result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_PedidoCliente_Articulos_PendientesID_ARTICULO]); end; procedure TPedidoCliente_Articulos_PendientesBusinessProcessorRules.SetID_ARTICULOValue(const aValue: Integer); @@ -4376,10 +4086,8 @@ begin end; function TPedidoCliente_Articulos_PendientesBusinessProcessorRules.GetCANTIDAD_PEDIsNull: Boolean; -var v: variant; begin - v := BusinessProcessor.CurrentChange.NewValueByName[fld_PedidoCliente_Articulos_PendientesCANTIDAD_PED]; - result := VarIsNull(v) or VarIsClear(v); + result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_PedidoCliente_Articulos_PendientesCANTIDAD_PED]); end; function TPedidoCliente_Articulos_PendientesBusinessProcessorRules.GetOldCANTIDAD_PEDValue: Float; @@ -4388,10 +4096,8 @@ begin end; function TPedidoCliente_Articulos_PendientesBusinessProcessorRules.GetOldCANTIDAD_PEDIsNull: Boolean; -var v: variant; begin - v := BusinessProcessor.CurrentChange.OldValueByName[fld_PedidoCliente_Articulos_PendientesCANTIDAD_PED]; - result := VarIsNull(v) or VarIsClear(v); + result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_PedidoCliente_Articulos_PendientesCANTIDAD_PED]); end; procedure TPedidoCliente_Articulos_PendientesBusinessProcessorRules.SetCANTIDAD_PEDValue(const aValue: Float); @@ -4411,10 +4117,8 @@ begin end; function TPedidoCliente_Articulos_PendientesBusinessProcessorRules.GetCANTIDAD_ALBIsNull: Boolean; -var v: variant; begin - v := BusinessProcessor.CurrentChange.NewValueByName[fld_PedidoCliente_Articulos_PendientesCANTIDAD_ALB]; - result := VarIsNull(v) or VarIsClear(v); + result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_PedidoCliente_Articulos_PendientesCANTIDAD_ALB]); end; function TPedidoCliente_Articulos_PendientesBusinessProcessorRules.GetOldCANTIDAD_ALBValue: Float; @@ -4423,10 +4127,8 @@ begin end; function TPedidoCliente_Articulos_PendientesBusinessProcessorRules.GetOldCANTIDAD_ALBIsNull: Boolean; -var v: variant; begin - v := BusinessProcessor.CurrentChange.OldValueByName[fld_PedidoCliente_Articulos_PendientesCANTIDAD_ALB]; - result := VarIsNull(v) or VarIsClear(v); + result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_PedidoCliente_Articulos_PendientesCANTIDAD_ALB]); end; procedure TPedidoCliente_Articulos_PendientesBusinessProcessorRules.SetCANTIDAD_ALBValue(const aValue: Float); @@ -4446,10 +4148,8 @@ begin end; function TPedidoCliente_Articulos_PendientesBusinessProcessorRules.GetCANTIDAD_PENDIENTEIsNull: Boolean; -var v: variant; begin - v := BusinessProcessor.CurrentChange.NewValueByName[fld_PedidoCliente_Articulos_PendientesCANTIDAD_PENDIENTE]; - result := VarIsNull(v) or VarIsClear(v); + result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_PedidoCliente_Articulos_PendientesCANTIDAD_PENDIENTE]); end; function TPedidoCliente_Articulos_PendientesBusinessProcessorRules.GetOldCANTIDAD_PENDIENTEValue: Float; @@ -4458,10 +4158,8 @@ begin end; function TPedidoCliente_Articulos_PendientesBusinessProcessorRules.GetOldCANTIDAD_PENDIENTEIsNull: Boolean; -var v: variant; begin - v := BusinessProcessor.CurrentChange.OldValueByName[fld_PedidoCliente_Articulos_PendientesCANTIDAD_PENDIENTE]; - result := VarIsNull(v) or VarIsClear(v); + result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_PedidoCliente_Articulos_PendientesCANTIDAD_PENDIENTE]); end; procedure TPedidoCliente_Articulos_PendientesBusinessProcessorRules.SetCANTIDAD_PENDIENTEValue(const aValue: Float); @@ -4493,10 +4191,8 @@ begin end; function TPedidosCliente_Detalle_ColorBusinessProcessorRules.GetIDIsNull: Boolean; -var v: variant; begin - v := BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosCliente_Detalle_ColorID]; - result := VarIsNull(v) or VarIsClear(v); + result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosCliente_Detalle_ColorID]); end; function TPedidosCliente_Detalle_ColorBusinessProcessorRules.GetOldIDValue: Integer; @@ -4505,10 +4201,8 @@ begin end; function TPedidosCliente_Detalle_ColorBusinessProcessorRules.GetOldIDIsNull: Boolean; -var v: variant; begin - v := BusinessProcessor.CurrentChange.OldValueByName[fld_PedidosCliente_Detalle_ColorID]; - result := VarIsNull(v) or VarIsClear(v); + result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_PedidosCliente_Detalle_ColorID]); end; procedure TPedidosCliente_Detalle_ColorBusinessProcessorRules.SetIDValue(const aValue: Integer); @@ -4528,10 +4222,8 @@ begin end; function TPedidosCliente_Detalle_ColorBusinessProcessorRules.GetID_DETALLEIsNull: Boolean; -var v: variant; begin - v := BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosCliente_Detalle_ColorID_DETALLE]; - result := VarIsNull(v) or VarIsClear(v); + result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosCliente_Detalle_ColorID_DETALLE]); end; function TPedidosCliente_Detalle_ColorBusinessProcessorRules.GetOldID_DETALLEValue: Integer; @@ -4540,10 +4232,8 @@ begin end; function TPedidosCliente_Detalle_ColorBusinessProcessorRules.GetOldID_DETALLEIsNull: Boolean; -var v: variant; begin - v := BusinessProcessor.CurrentChange.OldValueByName[fld_PedidosCliente_Detalle_ColorID_DETALLE]; - result := VarIsNull(v) or VarIsClear(v); + result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_PedidosCliente_Detalle_ColorID_DETALLE]); end; procedure TPedidosCliente_Detalle_ColorBusinessProcessorRules.SetID_DETALLEValue(const aValue: Integer); @@ -4563,10 +4253,8 @@ begin end; function TPedidosCliente_Detalle_ColorBusinessProcessorRules.GetCOLOR1IsNull: Boolean; -var v: variant; begin - v := BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosCliente_Detalle_ColorCOLOR1]; - result := VarIsNull(v) or VarIsClear(v); + result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosCliente_Detalle_ColorCOLOR1]); end; function TPedidosCliente_Detalle_ColorBusinessProcessorRules.GetOldCOLOR1Value: Integer; @@ -4575,10 +4263,8 @@ begin end; function TPedidosCliente_Detalle_ColorBusinessProcessorRules.GetOldCOLOR1IsNull: Boolean; -var v: variant; begin - v := BusinessProcessor.CurrentChange.OldValueByName[fld_PedidosCliente_Detalle_ColorCOLOR1]; - result := VarIsNull(v) or VarIsClear(v); + result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_PedidosCliente_Detalle_ColorCOLOR1]); end; procedure TPedidosCliente_Detalle_ColorBusinessProcessorRules.SetCOLOR1Value(const aValue: Integer); @@ -4598,10 +4284,8 @@ begin end; function TPedidosCliente_Detalle_ColorBusinessProcessorRules.GetCOLOR2IsNull: Boolean; -var v: variant; begin - v := BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosCliente_Detalle_ColorCOLOR2]; - result := VarIsNull(v) or VarIsClear(v); + result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosCliente_Detalle_ColorCOLOR2]); end; function TPedidosCliente_Detalle_ColorBusinessProcessorRules.GetOldCOLOR2Value: Integer; @@ -4610,10 +4294,8 @@ begin end; function TPedidosCliente_Detalle_ColorBusinessProcessorRules.GetOldCOLOR2IsNull: Boolean; -var v: variant; begin - v := BusinessProcessor.CurrentChange.OldValueByName[fld_PedidosCliente_Detalle_ColorCOLOR2]; - result := VarIsNull(v) or VarIsClear(v); + result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_PedidosCliente_Detalle_ColorCOLOR2]); end; procedure TPedidosCliente_Detalle_ColorBusinessProcessorRules.SetCOLOR2Value(const aValue: Integer); @@ -4633,10 +4315,8 @@ begin end; function TPedidosCliente_Detalle_ColorBusinessProcessorRules.GetCOLOR3IsNull: Boolean; -var v: variant; begin - v := BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosCliente_Detalle_ColorCOLOR3]; - result := VarIsNull(v) or VarIsClear(v); + result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosCliente_Detalle_ColorCOLOR3]); end; function TPedidosCliente_Detalle_ColorBusinessProcessorRules.GetOldCOLOR3Value: Integer; @@ -4645,10 +4325,8 @@ begin end; function TPedidosCliente_Detalle_ColorBusinessProcessorRules.GetOldCOLOR3IsNull: Boolean; -var v: variant; begin - v := BusinessProcessor.CurrentChange.OldValueByName[fld_PedidosCliente_Detalle_ColorCOLOR3]; - result := VarIsNull(v) or VarIsClear(v); + result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_PedidosCliente_Detalle_ColorCOLOR3]); end; procedure TPedidosCliente_Detalle_ColorBusinessProcessorRules.SetCOLOR3Value(const aValue: Integer); @@ -4668,10 +4346,8 @@ begin end; function TPedidosCliente_Detalle_ColorBusinessProcessorRules.GetCOLOR4IsNull: Boolean; -var v: variant; begin - v := BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosCliente_Detalle_ColorCOLOR4]; - result := VarIsNull(v) or VarIsClear(v); + result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosCliente_Detalle_ColorCOLOR4]); end; function TPedidosCliente_Detalle_ColorBusinessProcessorRules.GetOldCOLOR4Value: Integer; @@ -4680,10 +4356,8 @@ begin end; function TPedidosCliente_Detalle_ColorBusinessProcessorRules.GetOldCOLOR4IsNull: Boolean; -var v: variant; begin - v := BusinessProcessor.CurrentChange.OldValueByName[fld_PedidosCliente_Detalle_ColorCOLOR4]; - result := VarIsNull(v) or VarIsClear(v); + result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_PedidosCliente_Detalle_ColorCOLOR4]); end; procedure TPedidosCliente_Detalle_ColorBusinessProcessorRules.SetCOLOR4Value(const aValue: Integer); @@ -4703,10 +4377,8 @@ begin end; function TPedidosCliente_Detalle_ColorBusinessProcessorRules.GetCOLOR5IsNull: Boolean; -var v: variant; begin - v := BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosCliente_Detalle_ColorCOLOR5]; - result := VarIsNull(v) or VarIsClear(v); + result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosCliente_Detalle_ColorCOLOR5]); end; function TPedidosCliente_Detalle_ColorBusinessProcessorRules.GetOldCOLOR5Value: Integer; @@ -4715,10 +4387,8 @@ begin end; function TPedidosCliente_Detalle_ColorBusinessProcessorRules.GetOldCOLOR5IsNull: Boolean; -var v: variant; begin - v := BusinessProcessor.CurrentChange.OldValueByName[fld_PedidosCliente_Detalle_ColorCOLOR5]; - result := VarIsNull(v) or VarIsClear(v); + result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_PedidosCliente_Detalle_ColorCOLOR5]); end; procedure TPedidosCliente_Detalle_ColorBusinessProcessorRules.SetCOLOR5Value(const aValue: Integer); @@ -4738,10 +4408,8 @@ begin end; function TPedidosCliente_Detalle_ColorBusinessProcessorRules.GetCOLOR6IsNull: Boolean; -var v: variant; begin - v := BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosCliente_Detalle_ColorCOLOR6]; - result := VarIsNull(v) or VarIsClear(v); + result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosCliente_Detalle_ColorCOLOR6]); end; function TPedidosCliente_Detalle_ColorBusinessProcessorRules.GetOldCOLOR6Value: Integer; @@ -4750,10 +4418,8 @@ begin end; function TPedidosCliente_Detalle_ColorBusinessProcessorRules.GetOldCOLOR6IsNull: Boolean; -var v: variant; begin - v := BusinessProcessor.CurrentChange.OldValueByName[fld_PedidosCliente_Detalle_ColorCOLOR6]; - result := VarIsNull(v) or VarIsClear(v); + result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_PedidosCliente_Detalle_ColorCOLOR6]); end; procedure TPedidosCliente_Detalle_ColorBusinessProcessorRules.SetCOLOR6Value(const aValue: Integer); @@ -4773,10 +4439,8 @@ begin end; function TPedidosCliente_Detalle_ColorBusinessProcessorRules.GetCOLOR7IsNull: Boolean; -var v: variant; begin - v := BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosCliente_Detalle_ColorCOLOR7]; - result := VarIsNull(v) or VarIsClear(v); + result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosCliente_Detalle_ColorCOLOR7]); end; function TPedidosCliente_Detalle_ColorBusinessProcessorRules.GetOldCOLOR7Value: Integer; @@ -4785,10 +4449,8 @@ begin end; function TPedidosCliente_Detalle_ColorBusinessProcessorRules.GetOldCOLOR7IsNull: Boolean; -var v: variant; begin - v := BusinessProcessor.CurrentChange.OldValueByName[fld_PedidosCliente_Detalle_ColorCOLOR7]; - result := VarIsNull(v) or VarIsClear(v); + result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_PedidosCliente_Detalle_ColorCOLOR7]); end; procedure TPedidosCliente_Detalle_ColorBusinessProcessorRules.SetCOLOR7Value(const aValue: Integer); @@ -4808,10 +4470,8 @@ begin end; function TPedidosCliente_Detalle_ColorBusinessProcessorRules.GetCOLOR8IsNull: Boolean; -var v: variant; begin - v := BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosCliente_Detalle_ColorCOLOR8]; - result := VarIsNull(v) or VarIsClear(v); + result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosCliente_Detalle_ColorCOLOR8]); end; function TPedidosCliente_Detalle_ColorBusinessProcessorRules.GetOldCOLOR8Value: Integer; @@ -4820,10 +4480,8 @@ begin end; function TPedidosCliente_Detalle_ColorBusinessProcessorRules.GetOldCOLOR8IsNull: Boolean; -var v: variant; begin - v := BusinessProcessor.CurrentChange.OldValueByName[fld_PedidosCliente_Detalle_ColorCOLOR8]; - result := VarIsNull(v) or VarIsClear(v); + result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_PedidosCliente_Detalle_ColorCOLOR8]); end; procedure TPedidosCliente_Detalle_ColorBusinessProcessorRules.SetCOLOR8Value(const aValue: Integer); @@ -4843,10 +4501,8 @@ begin end; function TPedidosCliente_Detalle_ColorBusinessProcessorRules.GetCOLOR9IsNull: Boolean; -var v: variant; begin - v := BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosCliente_Detalle_ColorCOLOR9]; - result := VarIsNull(v) or VarIsClear(v); + result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosCliente_Detalle_ColorCOLOR9]); end; function TPedidosCliente_Detalle_ColorBusinessProcessorRules.GetOldCOLOR9Value: Integer; @@ -4855,10 +4511,8 @@ begin end; function TPedidosCliente_Detalle_ColorBusinessProcessorRules.GetOldCOLOR9IsNull: Boolean; -var v: variant; begin - v := BusinessProcessor.CurrentChange.OldValueByName[fld_PedidosCliente_Detalle_ColorCOLOR9]; - result := VarIsNull(v) or VarIsClear(v); + result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_PedidosCliente_Detalle_ColorCOLOR9]); end; procedure TPedidosCliente_Detalle_ColorBusinessProcessorRules.SetCOLOR9Value(const aValue: Integer); @@ -4878,10 +4532,8 @@ begin end; function TPedidosCliente_Detalle_ColorBusinessProcessorRules.GetCOLOR10IsNull: Boolean; -var v: variant; begin - v := BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosCliente_Detalle_ColorCOLOR10]; - result := VarIsNull(v) or VarIsClear(v); + result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosCliente_Detalle_ColorCOLOR10]); end; function TPedidosCliente_Detalle_ColorBusinessProcessorRules.GetOldCOLOR10Value: Integer; @@ -4890,10 +4542,8 @@ begin end; function TPedidosCliente_Detalle_ColorBusinessProcessorRules.GetOldCOLOR10IsNull: Boolean; -var v: variant; begin - v := BusinessProcessor.CurrentChange.OldValueByName[fld_PedidosCliente_Detalle_ColorCOLOR10]; - result := VarIsNull(v) or VarIsClear(v); + result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_PedidosCliente_Detalle_ColorCOLOR10]); end; procedure TPedidosCliente_Detalle_ColorBusinessProcessorRules.SetCOLOR10Value(const aValue: Integer); @@ -4913,10 +4563,8 @@ begin end; function TPedidosCliente_Detalle_ColorBusinessProcessorRules.GetCOLOR11IsNull: Boolean; -var v: variant; begin - v := BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosCliente_Detalle_ColorCOLOR11]; - result := VarIsNull(v) or VarIsClear(v); + result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosCliente_Detalle_ColorCOLOR11]); end; function TPedidosCliente_Detalle_ColorBusinessProcessorRules.GetOldCOLOR11Value: Integer; @@ -4925,10 +4573,8 @@ begin end; function TPedidosCliente_Detalle_ColorBusinessProcessorRules.GetOldCOLOR11IsNull: Boolean; -var v: variant; begin - v := BusinessProcessor.CurrentChange.OldValueByName[fld_PedidosCliente_Detalle_ColorCOLOR11]; - result := VarIsNull(v) or VarIsClear(v); + result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_PedidosCliente_Detalle_ColorCOLOR11]); end; procedure TPedidosCliente_Detalle_ColorBusinessProcessorRules.SetCOLOR11Value(const aValue: Integer); @@ -4948,10 +4594,8 @@ begin end; function TPedidosCliente_Detalle_ColorBusinessProcessorRules.GetCOLOR12IsNull: Boolean; -var v: variant; begin - v := BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosCliente_Detalle_ColorCOLOR12]; - result := VarIsNull(v) or VarIsClear(v); + result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosCliente_Detalle_ColorCOLOR12]); end; function TPedidosCliente_Detalle_ColorBusinessProcessorRules.GetOldCOLOR12Value: Integer; @@ -4960,10 +4604,8 @@ begin end; function TPedidosCliente_Detalle_ColorBusinessProcessorRules.GetOldCOLOR12IsNull: Boolean; -var v: variant; begin - v := BusinessProcessor.CurrentChange.OldValueByName[fld_PedidosCliente_Detalle_ColorCOLOR12]; - result := VarIsNull(v) or VarIsClear(v); + result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_PedidosCliente_Detalle_ColorCOLOR12]); end; procedure TPedidosCliente_Detalle_ColorBusinessProcessorRules.SetCOLOR12Value(const aValue: Integer); diff --git a/Source/Modulos/Pedidos de cliente/Plugin/PedidosCliente_plugin.drc b/Source/Modulos/Pedidos de cliente/Plugin/PedidosCliente_plugin.drc index 350cbcb..ea5a4ae 100644 --- a/Source/Modulos/Pedidos de cliente/Plugin/PedidosCliente_plugin.drc +++ b/Source/Modulos/Pedidos de cliente/Plugin/PedidosCliente_plugin.drc @@ -14,4 +14,4 @@ END /* C:\Codigo noviseda\Source\Modulos\Pedidos de cliente\Plugin\uPluginPedidosCliente.dfm */ /* C:\Codigo noviseda\Source\Modulos\Pedidos de cliente\Plugin\PedidosCliente_plugin.res */ -/* C:\DOCUME~1\Usuario\CONFIG~1\Temp\dtf382.tmp */ +/* C:\DOCUME~1\Usuario\CONFIG~1\Temp\dtf132.tmp */ diff --git a/Source/Modulos/Pedidos de cliente/Plugin/uPluginPedidosCliente.pas b/Source/Modulos/Pedidos de cliente/Plugin/uPluginPedidosCliente.pas index 5e6c934..97abd45 100644 --- a/Source/Modulos/Pedidos de cliente/Plugin/uPluginPedidosCliente.pas +++ b/Source/Modulos/Pedidos de cliente/Plugin/uPluginPedidosCliente.pas @@ -23,6 +23,9 @@ type destructor Destroy; override; procedure VerPedidos(const ID_Cliente: Integer; const ANombreCliente : String = ''); + procedure VerPedidosVendedor(const ID_Vendedor: Integer; + const ANombreVendedor : String = ''); + end; implementation @@ -88,6 +91,29 @@ begin end; end; +procedure TPluginPedidosCliente.VerPedidosVendedor(const ID_Vendedor: Integer; + const ANombreVendedor: String); +var + APedidosClienteController : IPedidosClienteController; + APedidosVendedor : IBizPedidoCliente; + AText : String; +begin + AText := Format('Lista de pedidos del vendedor %s', [ANombreVendedor]); + APedidosClienteController := TPedidosClienteController.Create; + try + ShowHourglassCursor; + try + APedidosVendedor := APedidosClienteController.BuscarTodosVendedor(ID_Vendedor); + finally + HideHourglassCursor; + end; + APedidosClienteController.VerTodosPedidos(APedidosVendedor, True, AText); + finally + APedidosVendedor := NIL; + APedidosClienteController := NIL; + end; +end; + initialization RegisterModuleClass(TPluginPedidosCliente); diff --git a/Source/Modulos/Pedidos de cliente/Servidor/srvPedidosCliente_Impl.dfm b/Source/Modulos/Pedidos de cliente/Servidor/srvPedidosCliente_Impl.dfm index f760877..c51a8a8 100644 --- a/Source/Modulos/Pedidos de cliente/Servidor/srvPedidosCliente_Impl.dfm +++ b/Source/Modulos/Pedidos de cliente/Servidor/srvPedidosCliente_Impl.dfm @@ -454,6 +454,10 @@ object srvPedidosCliente: TsrvPedidosCliente item DatasetField = 'DATOS_BANCARIOS' TableField = 'DATOS_BANCARIOS' + end + item + DatasetField = 'ID_VENDEDOR' + TableField = 'ID_VENDEDOR' end> end> Name = 'PedidosCliente' @@ -655,6 +659,10 @@ object srvPedidosCliente: TsrvPedidosCliente DataType = datString Size = 255 DictionaryEntry = 'PedidosCliente_DATOS_BANCARIOS' + end + item + Name = 'ID_VENDEDOR' + DataType = datInteger end> end item diff --git a/Source/Modulos/Pedidos de cliente/Views/PedidosCliente_view.drc b/Source/Modulos/Pedidos de cliente/Views/PedidosCliente_view.drc index ab54434..b993864 100644 --- a/Source/Modulos/Pedidos de cliente/Views/PedidosCliente_view.drc +++ b/Source/Modulos/Pedidos de cliente/Views/PedidosCliente_view.drc @@ -27,4 +27,4 @@ END /* C:\Codigo noviseda\Source\Modulos\Pedidos de cliente\Views\uViewArticulosPendientes.dfm */ /* C:\Codigo noviseda\Source\Modulos\Pedidos de cliente\Views\uEditorArticulosPendientes.dfm */ /* C:\Codigo noviseda\Source\Modulos\Pedidos de cliente\Views\PedidosCliente_view.res */ -/* C:\DOCUME~1\Usuario\CONFIG~1\Temp\dtf380.tmp */ +/* C:\Codigo noviseda\Source\Modulos\Pedidos de cliente\Views\PedidosCliente_view.drf */ diff --git a/Source/Modulos/Pedidos de cliente/Views/uEditorPedidosCliente.dfm b/Source/Modulos/Pedidos de cliente/Views/uEditorPedidosCliente.dfm index df6e510..3eae647 100644 --- a/Source/Modulos/Pedidos de cliente/Views/uEditorPedidosCliente.dfm +++ b/Source/Modulos/Pedidos de cliente/Views/uEditorPedidosCliente.dfm @@ -290,10 +290,6 @@ inherited fEditorPedidosCliente: TfEditorPedidosCliente inherited actImprimir: TAction Visible = True end - inherited actExportarExcel: TAction - Enabled = False - Visible = False - end object actGenerarAlbaranCli: TAction Category = 'Acciones' Caption = 'Generar albar'#225'n de cliente' diff --git a/Source/Modulos/Pedidos de cliente/Views/uEditorPedidosCliente.pas b/Source/Modulos/Pedidos de cliente/Views/uEditorPedidosCliente.pas index 400615c..d714fe0 100644 --- a/Source/Modulos/Pedidos de cliente/Views/uEditorPedidosCliente.pas +++ b/Source/Modulos/Pedidos de cliente/Views/uEditorPedidosCliente.pas @@ -222,7 +222,11 @@ end; constructor TfEditorPedidosCliente.Create(AOwner: TComponent); begin inherited; - AsignarVista; + + FHeaderText := 'Lista de pedidos de cliente - '; + FWindowCaption := FHeaderText; + + AsignarVista; end; destructor TfEditorPedidosCliente.Destroy; @@ -386,7 +390,7 @@ procedure TfEditorPedidosCliente.PonerTitulos(const ATitulo: string); var FTitulo : String; begin - FTitulo := 'Lista de pedidos de cliente - ' + AppFactuGES.EmpresaActiva.NOMBRE; + FTitulo := FWindowCaption + ' - ' + AppFactuGES.EmpresaActiva.NOMBRE; inherited PonerTitulos(FTitulo); end; diff --git a/Source/Servidor/FactuGES_Server.RES b/Source/Servidor/FactuGES_Server.RES index 79f663e..cd969cc 100644 Binary files a/Source/Servidor/FactuGES_Server.RES and b/Source/Servidor/FactuGES_Server.RES differ diff --git a/Source/Servidor/FactuGES_Server.dpr b/Source/Servidor/FactuGES_Server.dpr index be04acd..b968039 100644 --- a/Source/Servidor/FactuGES_Server.dpr +++ b/Source/Servidor/FactuGES_Server.dpr @@ -3,7 +3,6 @@ program FactuGES_Server; {#ROGEN:..\Servicios\FactuGES.rodl} // RemObjects: Careful, do not remove! uses - ExceptionLog, uROComInit, uROComboService, Forms, @@ -136,8 +135,6 @@ uses uRptPedidosCliente_Server in '..\Modulos\Pedidos de cliente\Reports\uRptPedidosCliente_Server.pas' {RptPedidosCliente}, schAlbaranesClienteClient_Intf in '..\Modulos\Albaranes de cliente\Model\schAlbaranesClienteClient_Intf.pas', schAlbaranesClienteServer_Intf in '..\Modulos\Albaranes de cliente\Model\schAlbaranesClienteServer_Intf.pas', - schPedidosClienteClient_Intf in '..\Modulos\Pedidos de cliente\Model\schPedidosClienteClient_Intf.pas', - schPedidosClienteServer_Intf in '..\Modulos\Pedidos de cliente\Model\schPedidosClienteServer_Intf.pas', schContactosClient_Intf in '..\Modulos\Contactos\Model\schContactosClient_Intf.pas', schContactosServer_Intf in '..\Modulos\Contactos\Model\schContactosServer_Intf.pas', schFacturasClienteClient_Intf in '..\Modulos\Facturas de cliente\Model\schFacturasClienteClient_Intf.pas', @@ -148,7 +145,9 @@ uses schInventarioServer_Intf in '..\Modulos\Inventario\Model\schInventarioServer_Intf.pas', schComisionesClient_Intf in '..\Modulos\Comisiones\Model\schComisionesClient_Intf.pas', schComisionesServer_Intf in '..\Modulos\Comisiones\Model\schComisionesServer_Intf.pas', - uRptComisiones_Server in '..\Modulos\Comisiones\Reports\uRptComisiones_Server.pas' {RptComisiones: TDataModule}; + uRptComisiones_Server in '..\Modulos\Comisiones\Reports\uRptComisiones_Server.pas' {RptComisiones: TDataModule}, + schPedidosClienteClient_Intf in '..\Modulos\Pedidos de cliente\Model\schPedidosClienteClient_Intf.pas', + schPedidosClienteServer_Intf in '..\Modulos\Pedidos de cliente\Model\schPedidosClienteServer_Intf.pas'; {$R *.res} {$R ..\Servicios\RODLFile.res} diff --git a/Source/Servidor/FactuGES_Server.dproj b/Source/Servidor/FactuGES_Server.dproj index 7b2eca5..dd009b2 100644 --- a/Source/Servidor/FactuGES_Server.dproj +++ b/Source/Servidor/FactuGES_Server.dproj @@ -35,7 +35,7 @@ Delphi.Personality -FalseTrueFalse/standaloneTrueFalse1060FalseFalseFalseFalseFalse30821252Rodax Software S.L.1.0.6.0FactuGES ServidorFactuGES Servidor1.0.6.0miércoles, 09 de junio de 2010 15:30FactuGES_Server.dpr +FalseTrueFalse/standaloneTrueFalse1070FalseFalseFalseFalseFalse30821252Rodax Software S.L.1.0.7.0FactuGES ServidorFactuGES Servidor1.0.7.0jueves, 01 de julio de 2010 17:59FactuGES_Server.dpr diff --git a/Source/Servidor/FactuGES_Server.rc b/Source/Servidor/FactuGES_Server.rc index b6a91a5..b9288f9 100644 --- a/Source/Servidor/FactuGES_Server.rc +++ b/Source/Servidor/FactuGES_Server.rc @@ -17,7 +17,7 @@ BEGIN VALUE "InternalName", "FactuGES Servidor\0" VALUE "ProductName", "FactuGES Servidor\0" VALUE "ProductVersion", "1.0.6.0\0" - VALUE "CompileDate", "martes, 15 de junio de 2010 9:14\0" + VALUE "CompileDate", "jueves, 01 de julio de 2010 17:59\0" END END BLOCK "VarFileInfo"