diff --git a/Source/ApplicationBase/uPlugins_Intf.pas b/Source/ApplicationBase/uPlugins_Intf.pas
new file mode 100644
index 0000000..7c712cd
--- /dev/null
+++ b/Source/ApplicationBase/uPlugins_Intf.pas
@@ -0,0 +1,20 @@
+unit uPlugins_Intf;
+
+interface
+
+uses FactuGES_Intf;
+
+const
+ MODULENAME_PEDIDOS_PROVEEDOR = 'PedidosProveedor_plugin.bpl';
+
+type
+
+ IMCPedidosProveedor = interface(IInterface)
+ ['{E68FF168-609E-48FB-9C33-2E825F7CC2E3}']
+ procedure VerPedidosConArticulo(const ID_Articulo: Integer;
+ const AArticulo : String = ''; const isEqual: Boolean = false);
+ end;
+
+implementation
+
+end.
diff --git a/Source/Cliente/FactuGES.dproj b/Source/Cliente/FactuGES.dproj
index 9678439..09d08d8 100644
--- a/Source/Cliente/FactuGES.dproj
+++ b/Source/Cliente/FactuGES.dproj
@@ -52,7 +52,8 @@
Delphi.Personality
VCLApplication
-FalseTrueFalseC:\Archivos de programa\Borland\Delphi7\Bin\TrueFalse5510FalseFalseFalseFalseFalse30821252Rodax Software S.L.5.5.1.0FactuGESFactuGES5.5.1.0
+FalseTrueFalseC:\Archivos de programa\Borland\Delphi7\Bin\TrueFalse5530FalseFalseFalseFalseFalse30821252Rodax Software S.L.5.5.3.0FactuGESFactuGES5.5.3.0
+
File C:\Documents and Settings\All Users\Documentos\RAD Studio\5.0\Bpl\dxPScxScheduler2LnkD11.bpl not found
FactuGES.dprFalse
diff --git a/Source/Modulos/Albaranes de proveedor/Controller/View/uIEditorResultadoAlbaranesConArticulo.pas b/Source/Modulos/Albaranes de proveedor/Controller/View/uIEditorResultadoAlbaranesConArticulo.pas
new file mode 100644
index 0000000..40c8b9e
--- /dev/null
+++ b/Source/Modulos/Albaranes de proveedor/Controller/View/uIEditorResultadoAlbaranesConArticulo.pas
@@ -0,0 +1,22 @@
+unit uIEditorResultadoAlbaranesConArticulo;
+
+interface
+
+uses
+ uIEditorAlbaranesProveedor, uBizAlbaranesProveedor, uGUIBase;
+
+type
+ IEditorResultadoAlbaranesConArticulo = interface(IEditorAlbaranesProveedor)
+ ['{519CA1D0-AFDD-4C52-9FA5-2CDF2DF08AA0}']
+ function GetAlbaranesProveedorSeleccionados: IBizAlbaranProveedor;
+ property AlbaranesProveedorSeleccionados: IBizAlbaranProveedor read GetAlbaranesProveedorSeleccionados;
+
+ procedure SetMensaje (const AValue: String);
+ function GetMensaje: String;
+ property Mensaje : String read GetMensaje write SetMensaje;
+ end;
+
+
+implementation
+
+end.
diff --git a/Source/Modulos/Albaranes de proveedor/Views/uEditorBuscarArticuloAlbaran.dfm b/Source/Modulos/Albaranes de proveedor/Views/uEditorBuscarArticuloAlbaran.dfm
new file mode 100644
index 0000000..637a720
--- /dev/null
+++ b/Source/Modulos/Albaranes de proveedor/Views/uEditorBuscarArticuloAlbaran.dfm
@@ -0,0 +1,65 @@
+object fEditorBuscarArticuloAlbaran: TfEditorBuscarArticuloAlbaran
+ Left = 0
+ Top = 0
+ BorderStyle = bsDialog
+ Caption = 'Buscar art'#237'culo'
+ ClientHeight = 124
+ ClientWidth = 424
+ Color = clWindow
+ Font.Charset = DEFAULT_CHARSET
+ Font.Color = clWindowText
+ Font.Height = -11
+ Font.Name = 'Tahoma'
+ Font.Style = []
+ OldCreateOrder = False
+ Position = poScreenCenter
+ OnShow = FormShow
+ PixelsPerInch = 96
+ TextHeight = 13
+ object Label1: TLabel
+ Left = 21
+ Top = 16
+ Width = 199
+ Height = 13
+ Caption = 'Esrcriba el concepto del art'#237'culo a buscar:'
+ end
+ object Panel1: TPanel
+ Left = 0
+ Top = 83
+ Width = 424
+ Height = 41
+ Align = alBottom
+ TabOrder = 1
+ DesignSize = (
+ 424
+ 41)
+ object bBuscar: TButton
+ Tag = 1
+ Left = 260
+ Top = 8
+ Width = 75
+ Height = 25
+ Anchors = [akTop, akRight]
+ Caption = 'Buscar'
+ ModalResult = 1
+ TabOrder = 0
+ end
+ object bCancelar: TButton
+ Tag = 2
+ Left = 341
+ Top = 8
+ Width = 75
+ Height = 25
+ Anchors = [akTop, akRight]
+ Caption = 'Cancelar'
+ ModalResult = 2
+ TabOrder = 1
+ end
+ end
+ object cxConceptoABuscar: TcxTextEdit
+ Left = 21
+ Top = 42
+ TabOrder = 0
+ Width = 395
+ end
+end
diff --git a/Source/Modulos/Albaranes de proveedor/Views/uEditorBuscarArticuloAlbaran.pas b/Source/Modulos/Albaranes de proveedor/Views/uEditorBuscarArticuloAlbaran.pas
new file mode 100644
index 0000000..80aa988
--- /dev/null
+++ b/Source/Modulos/Albaranes de proveedor/Views/uEditorBuscarArticuloAlbaran.pas
@@ -0,0 +1,54 @@
+unit uEditorBuscarArticuloAlbaran;
+
+interface
+
+uses
+ Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
+ Dialogs, StdCtrls, cxControls, cxContainer, cxEdit, cxTextEdit, cxMaskEdit,
+ cxDropDownEdit, cxCalendar, ExtCtrls, uEditorBasico,
+ cxGraphics, DB, uDAInterfaces, uDADataTable, cxDBEdit,
+ cxLookupEdit, cxDBLookupEdit, cxDBLookupComboBox;
+
+type
+ TfEditorBuscarArticuloAlbaran = class(TfEditorBasico)
+ Label1: TLabel;
+ bBuscar: TButton;
+ bCancelar: TButton;
+ Panel1: TPanel;
+ cxConceptoABuscar: TcxTextEdit;
+ procedure FormShow(Sender: TObject);
+
+ private
+ FConceptoABuscar: Variant;
+ function GetConceptoABuscar: Variant;
+ procedure SetConceptoABuscar(const Value: Variant);
+
+ public
+ property ConceptoABuscar: Variant Read GetConceptoABuscar write SetConceptoABuscar;
+
+ end;
+
+implementation
+{$R *.dfm}
+
+uses uFactuGES_App;
+
+
+{ TfEditorBuscarArticulo }
+
+procedure TfEditorBuscarArticuloAlbaran.FormShow(Sender: TObject);
+begin
+ cxConceptoABuscar.SetFocus;
+end;
+
+function TfEditorBuscarArticuloAlbaran.GetConceptoABuscar: Variant;
+begin
+ Result := cxConceptoABuscar.EditValue;
+end;
+
+procedure TfEditorBuscarArticuloAlbaran.SetConceptoABuscar(const Value: Variant);
+begin
+ cxConceptoABuscar.EditValue := Value;
+end;
+
+end.
diff --git a/Source/Modulos/Albaranes de proveedor/Views/uEditorResultadoAlbaranesConArticulo.dfm b/Source/Modulos/Albaranes de proveedor/Views/uEditorResultadoAlbaranesConArticulo.dfm
new file mode 100644
index 0000000..a4e499f
--- /dev/null
+++ b/Source/Modulos/Albaranes de proveedor/Views/uEditorResultadoAlbaranesConArticulo.dfm
@@ -0,0 +1,109 @@
+inherited fEditorResultadoAlbaranesConArticulo: TfEditorResultadoAlbaranesConArticulo
+ Caption = 'fEditorResultadoAlbaranesConArticulo'
+ PixelsPerInch = 96
+ TextHeight = 13
+ inherited TBXDock: TTBXDock
+ Top = 91
+ ExplicitTop = 86
+ inherited tbxMain: TTBXToolbar
+ ExplicitWidth = 223
+ ExplicitHeight = 27
+ end
+ inherited tbxFiltro: TTBXToolbar
+ Left = 229
+ Top = 25
+ DockPos = 229
+ DockRow = 1
+ ExplicitLeft = 229
+ ExplicitTop = 25
+ end
+ inherited TBXTMain2: TTBXToolbar
+ Top = 52
+ Visible = False
+ ExplicitTop = 52
+ ExplicitHeight = 26
+ end
+ end
+ object pnlHeader: TPanel [3]
+ Left = 0
+ Top = 27
+ Width = 1051
+ Height = 64
+ Align = alTop
+ BevelOuter = bvNone
+ Color = clWhite
+ Padding.Left = 25
+ Padding.Top = 8
+ Padding.Right = 25
+ Padding.Bottom = 8
+ ParentBackground = False
+ TabOrder = 3
+ Visible = False
+ object lblTitle: TLabel
+ AlignWithMargins = True
+ Left = 25
+ Top = 8
+ Width = 1001
+ Height = 13
+ Margins.Left = 0
+ Margins.Top = 0
+ Margins.Right = 0
+ Margins.Bottom = 8
+ Align = alTop
+ Caption = 'Seleccione el albaran de proveedor'
+ Font.Charset = DEFAULT_CHARSET
+ Font.Color = clWindowText
+ Font.Height = -11
+ Font.Name = 'Tahoma'
+ Font.Style = [fsBold]
+ ParentFont = False
+ ExplicitWidth = 198
+ end
+ object lblComments: TLabel
+ AlignWithMargins = True
+ Left = 50
+ Top = 29
+ Width = 976
+ Height = 27
+ Margins.Left = 25
+ Margins.Top = 0
+ Margins.Right = 0
+ Align = alClient
+ ExplicitWidth = 3
+ ExplicitHeight = 13
+ end
+ end
+ inherited EditorActionList: TActionList
+ inherited actNuevo: TAction
+ Enabled = False
+ Visible = False
+ end
+ inherited actEliminar: TAction
+ Enabled = False
+ Visible = False
+ end
+ inherited actPrevisualizar: TAction
+ Enabled = False
+ Visible = False
+ end
+ inherited actImprimir: TAction
+ Enabled = False
+ Visible = False
+ end
+ inherited actRefrescar: TAction
+ Enabled = False
+ Visible = False
+ end
+ inherited actDuplicar: TAction
+ Enabled = False
+ Visible = False
+ end
+ end
+ inherited dsDataTable: TDADataSource
+ Top = 152
+ end
+ inherited GridPopupMenu: TPopupMenu
+ Left = 104
+ Top = 152
+ end
+end
diff --git a/Source/Modulos/Albaranes de proveedor/Views/uEditorResultadoAlbaranesConArticulo.pas b/Source/Modulos/Albaranes de proveedor/Views/uEditorResultadoAlbaranesConArticulo.pas
new file mode 100644
index 0000000..1053877
--- /dev/null
+++ b/Source/Modulos/Albaranes de proveedor/Views/uEditorResultadoAlbaranesConArticulo.pas
@@ -0,0 +1,94 @@
+unit uEditorResultadoAlbaranesConArticulo;
+
+interface
+
+uses
+ Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
+ Dialogs, uEditorAlbaranesProveedor, JSDialog, Menus, DB, uDAInterfaces,
+ uDADataTable, JvAppStorage, JvAppRegistryStorage, JvComponentBase,
+ JvFormPlacement, ImgList, PngImageList, StdActns, ActnList, ComCtrls,
+ JvExComCtrls, JvStatusBar, TBX, TB2ExtItems, TBXExtItems, TB2Item, TB2Dock,
+ TB2Toolbar, pngimage, ExtCtrls, JvExControls, JvNavigationPane,
+ uIEditorResultadoAlbaranesConArticulo, uBizAlbaranesProveedor, StdCtrls;
+
+type
+ TfEditorResultadoAlbaranesConArticulo = class(TfEditorAlbaranesProveedor, IEditorResultadoAlbaranesConArticulo)
+ pnlHeader: TPanel;
+ lblTitle: TLabel;
+ lblComments: TLabel;
+ private
+ function GetAlbaranesProveedorSeleccionados: IBizAlbaranProveedor;
+ function GetMensaje: String;
+ procedure SetMensaje(const AValue: String);
+ procedure PonerTitulos(const ATitulo: String = ''); override;
+ protected
+ procedure ModificarInterno; override;
+ public
+ property Mensaje : String read GetMensaje write SetMensaje;
+ property AlbaranesProveedorSeleccionados: IBizAlbaranProveedor read GetAlbaranesProveedorSeleccionados;
+ end;
+
+var
+ fEditorResultadoAlbaranesConArticulo: TfEditorResultadoAlbaranesConArticulo;
+
+implementation
+
+uses
+ uStringsUtils, uGridUtils, uDBSelectionListUtils, uAlbaranesProveedorController;
+
+{$R *.dfm}
+
+
+function TfEditorResultadoAlbaranesConArticulo.GetAlbaranesProveedorSeleccionados: IBizAlbaranProveedor;
+begin
+ SeleccionarFilasDesdeGrid(ViewGrid._FocusedView, (Albaranes as ISeleccionable).SelectedRecords);
+ // En SelectedRecords tengo los ID de las filas seleccionadas del grid
+ Result := (Controller as IAlbaranesProveedorController).ExtraerSeleccionados(Albaranes) as IBizAlbaranProveedor;
+end;
+
+function TfEditorResultadoAlbaranesConArticulo.GetMensaje: String;
+begin
+ Result := lblComments.Caption;
+end;
+
+procedure TfEditorResultadoAlbaranesConArticulo.ModificarInterno;
+var
+ AAlbaran: IBizAlbaranProveedor;
+begin
+// inherited;
+ AAlbaran := FController.Buscar(Albaranes.ID);
+ AAlbaran.DataTable.Active := True;
+ FController.Ver(AAlbaran);
+end;
+
+procedure TfEditorResultadoAlbaranesConArticulo.PonerTitulos(const ATitulo: String);
+var
+ AHeaderText,
+ AWindowText : String;
+begin
+ if EsCadenaVacia(ATitulo) then
+ begin
+ AHeaderText := FHeaderText;
+ AWindowText := 'Listado de albaranes de proveedor encontrados'
+ end
+ else begin
+ AHeaderText := ATitulo;
+ AWindowText := 'Listado de albaranes de proveedor encontrados';
+ end;
+
+ if ReadOnly then
+ begin
+ AHeaderText := AHeaderText + ' (NO MODIFICABLE)';
+ AWindowText := AWindowText + ' (NO MODIFICABLE)';
+ end;
+
+ JvNavPanelHeader.Caption := AHeaderText;
+ Caption := AWindowText;
+end;
+
+procedure TfEditorResultadoAlbaranesConArticulo.SetMensaje(const AValue: String);
+begin
+ lblComments.Caption := AValue;
+end;
+
+end.
diff --git a/Source/Modulos/Contactos/Controller/uClientesController.pas b/Source/Modulos/Contactos/Controller/uClientesController.pas
index 0975824..2014d40 100644
--- a/Source/Modulos/Contactos/Controller/uClientesController.pas
+++ b/Source/Modulos/Contactos/Controller/uClientesController.pas
@@ -67,7 +67,7 @@ implementation
{$INCLUDE ..\..\..\FactuGES.inc}
uses
- Forms, Classes, Windows, SysUtils, Controls, cxControls, uDialogUtils, uDataModuleClientes, uEditorRegistryUtils,
+ Forms, Variants, Classes, Windows, SysUtils, Controls, cxControls, uDialogUtils, uDataModuleClientes, uEditorRegistryUtils,
uDataTableUtils, uDADataTable, DB, schContactosClient_Intf, uEtiquetasContactosReportController,
uIEditorElegirClientes, uEditorGridBase, uDAInterfaces, uFactuGES_App, uIEditorElegirDireccionEntrega,
Dialogs, uIntegerListUtils;
@@ -257,6 +257,22 @@ begin
if Assigned((Result as IBizCliente).Descuentos) then
DuplicarRegistros((AContacto as IBizCliente).Descuentos.DataTable, (Result as IBizCliente).Descuentos.DataTable, mdrTodos);
+
+ // Hay que dejar algunos campos como si fuera un cliente nuevo
+ Result.Edit;
+ with (Result as IBizCliente) do
+ begin
+ ID_EMPRESA := AppFactuGES.EmpresaActiva.ID;
+ USUARIO := AppFactuGES.UsuarioActivo.UserName;
+ BLOQUEADO := 0;
+ Result.DataTable.FieldByName(fld_ClientesMOTIVO_BLOQUEO).AsVariant := Null;
+ TIENDA_WEB := 0;
+ Result.DataTable.FieldByName(fld_ClientesDIST_EMAIL).AsVariant := Null;
+ Result.DataTable.FieldByName(fld_ClientesDIST_PASSWORD).AsVariant := Null;
+ ID_TIENDA := AppFactuGES.TiendaActiva.ID;
+ TIENDA := AppFactuGES.TiendaActiva.NOMBRE;
+ end;
+ Result.Post;
end;
function TClientesController.ElegirContacto(AContactos : IBizContacto;
diff --git a/Source/Modulos/Contactos/Views/uEditorCliente.dfm b/Source/Modulos/Contactos/Views/uEditorCliente.dfm
index e4e71f4..dc478b1 100644
--- a/Source/Modulos/Contactos/Views/uEditorCliente.dfm
+++ b/Source/Modulos/Contactos/Views/uEditorCliente.dfm
@@ -4,7 +4,7 @@ inherited fEditorCliente: TfEditorCliente
Caption = 'Ficha de cliente'
ClientHeight = 939
ClientWidth = 1063
- ExplicitWidth = 1071
+ ExplicitWidth = 1079
ExplicitHeight = 977
PixelsPerInch = 96
TextHeight = 13
@@ -47,6 +47,12 @@ inherited fEditorCliente: TfEditorCliente
AE426082}
ExplicitLeft = 565
end
+ inherited lblDesbloquear: TcxLabel
+ Left = 938
+ ExplicitLeft = 938
+ AnchorX = 983
+ AnchorY = 14
+ end
end
inherited TBXDock: TTBXDock
Width = 1063
@@ -69,18 +75,18 @@ inherited fEditorCliente: TfEditorCliente
end
inherited pgPaginas: TPageControl
Width = 1057
- Height = 805
+ Height = 806
ActivePage = pagDistribuidor
ExplicitWidth = 1057
- ExplicitHeight = 805
+ ExplicitHeight = 806
inherited pagGeneral: TTabSheet
ExplicitWidth = 1049
- ExplicitHeight = 777
+ ExplicitHeight = 778
inline frViewCliente1: TfrViewCliente
Left = 0
Top = 0
Width = 1049
- Height = 777
+ Height = 778
Align = alClient
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
@@ -91,13 +97,13 @@ inherited fEditorCliente: TfEditorCliente
TabOrder = 0
ReadOnly = False
ExplicitWidth = 1049
- ExplicitHeight = 777
+ ExplicitHeight = 778
inherited dxLayoutControlContacto: TdxLayoutControl
Width = 1049
- Height = 777
+ Height = 778
LookAndFeel = dxLayoutOfficeLookAndFeel
ExplicitWidth = 1049
- ExplicitHeight = 777
+ ExplicitHeight = 778
inherited PngSpeedButton1: TPngSpeedButton
Left = 1004
Top = 218
@@ -339,7 +345,8 @@ inherited fEditorCliente: TfEditorCliente
ExplicitHeight = 127
inherited memObservaciones: TcxDBMemo
DataBinding.DataSource = frViewCliente1.dsContacto
- ExplicitWidth = 521
+ ExplicitWidth = 1005
+ ExplicitHeight = 387
Height = 127
Width = 521
end
@@ -385,7 +392,7 @@ inherited fEditorCliente: TfEditorCliente
Left = 0
Top = 0
Width = 1049
- Height = 777
+ Height = 778
Align = alClient
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
@@ -396,12 +403,12 @@ inherited fEditorCliente: TfEditorCliente
TabOrder = 0
ReadOnly = False
ExplicitWidth = 1049
- ExplicitHeight = 777
+ ExplicitHeight = 778
inherited cxGrid: TcxGrid
Width = 1049
- Height = 752
+ Height = 753
ExplicitWidth = 1049
- ExplicitHeight = 752
+ ExplicitHeight = 753
inherited cxGridView: TcxGridDBTableView
inherited cxGridViewID: TcxGridDBColumn
SortIndex = 0
@@ -412,50 +419,50 @@ inherited fEditorCliente: TfEditorCliente
inherited ToolBar1: TToolBar
Width = 1049
ExplicitWidth = 1049
- 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
inherited pagPersonal: TTabSheet [2]
Tag = 2
ExplicitWidth = 1049
- ExplicitHeight = 777
+ ExplicitHeight = 778
inherited frViewPersonalContacto1: TfrViewPersonalContacto
Width = 1049
- Height = 777
+ Height = 778
ExplicitWidth = 1049
- ExplicitHeight = 777
+ ExplicitHeight = 778
inherited cxGrid: TcxGrid
Width = 1049
- Height = 752
+ Height = 753
ExplicitWidth = 1049
- ExplicitHeight = 752
+ ExplicitHeight = 753
end
inherited ToolBar1: TToolBar
Width = 1049
+ ButtonWidth = 126
ExplicitWidth = 1049
inherited ToolButton1: TToolButton
- ExplicitWidth = 62
+ ExplicitWidth = 66
end
inherited ToolButton4: TToolButton
- ExplicitWidth = 74
+ Left = 66
+ ExplicitWidth = 82
+ end
+ inherited ToolButton5: TToolButton
+ Left = 148
end
inherited ToolButton2: TToolButton
- ExplicitWidth = 67
+ Left = 156
+ ExplicitLeft = 156
+ ExplicitWidth = 74
+ end
+ inherited ToolButton6: TToolButton
+ Left = 230
end
inherited ToolButton7: TToolButton
- ExplicitWidth = 117
+ Left = 238
+ ExplicitLeft = 238
+ ExplicitWidth = 130
end
end
end
@@ -642,12 +649,12 @@ inherited fEditorCliente: TfEditorCliente
inherited pagDatosBancarios: TTabSheet [4]
Tag = 4
ExplicitWidth = 1049
- ExplicitHeight = 777
+ ExplicitHeight = 778
inherited frViewClienteDatosBancarios: TfrViewClienteDatosBancarios
Width = 1049
- Height = 777
+ Height = 778
ExplicitWidth = 1049
- ExplicitHeight = 777
+ ExplicitHeight = 778
inherited dxLayoutControl1: TdxLayoutControl
Width = 1049
LookAndFeel = dxLayoutOfficeLookAndFeel
@@ -703,7 +710,7 @@ inherited fEditorCliente: TfEditorCliente
Left = 0
Top = 0
Width = 1049
- Height = 777
+ Height = 778
Align = alClient
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
@@ -714,12 +721,12 @@ inherited fEditorCliente: TfEditorCliente
TabOrder = 0
ReadOnly = False
ExplicitWidth = 1049
- ExplicitHeight = 777
+ ExplicitHeight = 778
inherited cxGrid: TcxGrid
Width = 1049
- Height = 752
+ Height = 753
ExplicitWidth = 1049
- ExplicitHeight = 752
+ ExplicitHeight = 753
end
inherited ToolBar1: TToolBar
Width = 1049
@@ -747,7 +754,7 @@ inherited fEditorCliente: TfEditorCliente
Left = 0
Top = 0
Width = 1049
- Height = 777
+ Height = 778
Align = alClient
AutoSize = True
Font.Charset = DEFAULT_CHARSET
@@ -759,15 +766,15 @@ inherited fEditorCliente: TfEditorCliente
TabOrder = 0
ReadOnly = False
ExplicitWidth = 1049
- ExplicitHeight = 777
+ ExplicitHeight = 778
inherited layoutApunte: TdxLayoutControl
Width = 1049
- Height = 777
+ Height = 778
ExplicitWidth = 1049
- ExplicitHeight = 777
+ ExplicitHeight = 778
DesignSize = (
1049
- 777)
+ 778)
inherited eRefSubCuenta: TcxDBTextEdit
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
@@ -823,7 +830,7 @@ inherited fEditorCliente: TfEditorCliente
Left = 0
Top = 0
Width = 1049
- Height = 777
+ Height = 778
Align = alClient
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
@@ -834,12 +841,12 @@ inherited fEditorCliente: TfEditorCliente
TabOrder = 0
ReadOnly = False
ExplicitWidth = 1049
- ExplicitHeight = 777
+ ExplicitHeight = 778
inherited dxLayoutControl1: TdxLayoutControl
Width = 1049
- Height = 777
+ Height = 778
ExplicitWidth = 1049
- ExplicitHeight = 777
+ ExplicitHeight = 778
inherited cbEsDistribuidor: TcxDBCheckBox
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
diff --git a/Source/Modulos/Contactos/Views/uEditorCliente.pas b/Source/Modulos/Contactos/Views/uEditorCliente.pas
index 043200f..37a9550 100644
--- a/Source/Modulos/Contactos/Views/uEditorCliente.pas
+++ b/Source/Modulos/Contactos/Views/uEditorCliente.pas
@@ -15,7 +15,8 @@ uses
uViewDireccionesEntrega, uViewDetallesGenerico, uViewClienteDescuentos,
uViewContactoDatosBancarios, dxLayoutLookAndFeels,
uViewClienteDatosComerciales, uDAInterfaces, uViewSubCuentaContacto,
- uViewPersonalContacto, Grids, DBGrids, uViewClienteDatosDistribuidor;
+ uViewPersonalContacto, Grids, DBGrids, uViewClienteDatosDistribuidor,
+ cxControls, cxContainer, cxEdit, cxLabel;
type
TfEditorCliente = class(TfEditorContacto, IEditorCliente)
diff --git a/Source/Modulos/Contratos de cliente/Controller/uContratosClienteController.pas b/Source/Modulos/Contratos de cliente/Controller/uContratosClienteController.pas
index 2a2dd13..5f1d81e 100644
--- a/Source/Modulos/Contratos de cliente/Controller/uContratosClienteController.pas
+++ b/Source/Modulos/Contratos de cliente/Controller/uContratosClienteController.pas
@@ -86,6 +86,7 @@ type
function AceptarContrato(AContrato: IBizContratoCliente): Boolean;
function AnadirIncidenciaContrato(AIdContrato: Integer): Boolean;
+ procedure CopiarDireccion (const ADireccion: IBizDireccionesContacto; AContrato: IBizContratoCliente);
function RevisarContratosTerminados(const Ano: String): Boolean;
end;
@@ -183,6 +184,7 @@ type
function AceptarContrato(AContrato: IBizContratoCliente): Boolean;
function AnadirIncidenciaContrato(AIdContrato: Integer): Boolean;
+ procedure CopiarDireccion (const ADireccion: IBizDireccionesContacto; AContrato: IBizContratoCliente);
function RevisarContratosTerminados(const Ano: String): Boolean;
end;
@@ -843,6 +845,43 @@ begin
end;
end;
+procedure TContratosClienteController.CopiarDireccion(const ADireccion: IBizDireccionesContacto; AContrato: IBizContratoCliente);
+var
+ bEnEdicion : Boolean;
+begin
+ if not Assigned(AContrato) then
+ raise Exception.Create ('Contrato no asignado (CopiarDireccion)');
+
+ if not Assigned(ADireccion) then
+ raise Exception.Create ('No se ha indicado la dirección (CopiarDireccion)');
+
+ if AContrato.DataTable.Active then
+ AContrato.DataTable.Active := True;
+
+ if ADireccion.DataTable.Active then
+ ADireccion.DataTable.Active := True;
+
+ bEnEdicion := (AContrato.DataTable.State in dsEditModes);
+ if not bEnEdicion then
+ AContrato.Edit;
+
+ ShowHourglassCursor;
+ AContrato.Edit;
+ try
+ AContrato.CALLE := ADireccion.CALLE;
+ AContrato.POBLACION := ADireccion.POBLACION;
+ AContrato.CODIGO_POSTAL := ADireccion.CODIGO_POSTAL;
+ AContrato.PROVINCIA := ADireccion.PROVINCIA;
+ AContrato.NIF_CIF := ADireccion.NIF_CIF;
+ AContrato.NOMBRE := ADireccion.NOMBRE;
+
+ if not bEnEdicion then
+ AContrato.Post;
+ finally
+ HideHourglassCursor;
+ end;
+end;
+
constructor TContratosClienteController.Create;
begin
inherited;
diff --git a/Source/Modulos/Contratos de cliente/Model/uBizContratosCliente.pas b/Source/Modulos/Contratos de cliente/Model/uBizContratosCliente.pas
index 7ca0375..a8f4cd0 100644
--- a/Source/Modulos/Contratos de cliente/Model/uBizContratosCliente.pas
+++ b/Source/Modulos/Contratos de cliente/Model/uBizContratosCliente.pas
@@ -370,12 +370,11 @@ begin
TELEFONO := FCliente.TELEFONO_1;
MOVIL := FCliente.MOVIL_1;
IDIOMA_ISO := FCliente.IDIOMA_ISO;
- IDIOMA := FCliente.IDIOMA;
+ IDIOMA := FCliente.IDIOMA;
PAIS := FCliente.PAIS;
ID_AGENTE := FCliente.ID_AGENTE;
-
//Establecemos como dirección de envio por defecto la dirección fiscal del cliente
ID_DIRECCION_ENVIO := 1;
CALLE_ENVIO := FCliente.CALLE;
diff --git a/Source/Modulos/Contratos de cliente/Views/uEditorContratoCliente.dfm b/Source/Modulos/Contratos de cliente/Views/uEditorContratoCliente.dfm
index 522ea69..2fd3959 100644
--- a/Source/Modulos/Contratos de cliente/Views/uEditorContratoCliente.dfm
+++ b/Source/Modulos/Contratos de cliente/Views/uEditorContratoCliente.dfm
@@ -193,10 +193,6 @@ inherited fEditorContratoCliente: TfEditorContratoCliente
object pagContenido: TTabSheet
Caption = 'Contenido'
ImageIndex = 1
- ExplicitLeft = 0
- ExplicitTop = 0
- ExplicitWidth = 0
- ExplicitHeight = 0
inline frViewDetallesContratoCliente1: TfrViewDetallesContratoCliente
Left = 0
Top = 0
@@ -218,83 +214,97 @@ inherited fEditorContratoCliente: TfEditorContratoCliente
inherited ToolBar1: TToolBar
Width = 1320
Height = 24
+ ButtonWidth = 123
ExplicitWidth = 1320
ExplicitHeight = 24
+ inherited ToolButton1: TToolButton
+ ExplicitWidth = 119
+ end
+ inherited ToolButton2: TToolButton
+ Left = 119
+ ExplicitWidth = 127
+ end
+ inherited ToolButton3: TToolButton
+ Left = 246
+ ExplicitWidth = 58
+ end
inherited ToolButton4: TToolButton
+ Left = 304
Wrap = False
+ ExplicitWidth = 57
end
inherited ToolButton14: TToolButton
- Left = 334
+ Left = 361
Top = 0
- ExplicitLeft = 334
+ ExplicitLeft = 361
ExplicitTop = 0
end
inherited FontName: TJvFontComboBox
- Left = 368
+ Left = 395
Top = 0
- ExplicitLeft = 368
+ ExplicitLeft = 395
ExplicitTop = 0
end
inherited FontSize: TEdit
- Left = 513
+ Left = 540
Top = 0
Width = 124
- ExplicitLeft = 513
+ ExplicitLeft = 540
ExplicitTop = 0
ExplicitWidth = 124
end
inherited UpDown1: TUpDown
- Left = 637
+ Left = 664
Top = 0
- ExplicitLeft = 637
+ ExplicitLeft = 664
ExplicitTop = 0
end
inherited ToolButton13: TToolButton
- Left = 654
+ Left = 681
Top = 0
- ExplicitLeft = 654
+ ExplicitLeft = 681
ExplicitTop = 0
end
inherited ToolButton6: TToolButton
- Left = 662
+ Left = 689
Top = 0
- ExplicitLeft = 662
+ ExplicitLeft = 689
ExplicitTop = 0
end
inherited ToolButton7: TToolButton
- Left = 696
+ Left = 723
Top = 0
- ExplicitLeft = 696
+ ExplicitLeft = 723
ExplicitTop = 0
end
inherited ToolButton8: TToolButton
- Left = 730
+ Left = 757
Top = 0
- ExplicitLeft = 730
+ ExplicitLeft = 757
ExplicitTop = 0
end
inherited ToolButton12: TToolButton
- Left = 764
+ Left = 791
Top = 0
- ExplicitLeft = 764
+ ExplicitLeft = 791
ExplicitTop = 0
end
inherited ToolButton9: TToolButton
- Left = 772
+ Left = 799
Top = 0
- ExplicitLeft = 772
+ ExplicitLeft = 799
ExplicitTop = 0
end
inherited ToolButton10: TToolButton
- Left = 806
+ Left = 833
Top = 0
- ExplicitLeft = 806
+ ExplicitLeft = 833
ExplicitTop = 0
end
inherited ToolButton11: TToolButton
- Left = 840
+ Left = 867
Top = 0
- ExplicitLeft = 840
+ ExplicitLeft = 867
ExplicitTop = 0
end
end
@@ -392,10 +402,6 @@ inherited fEditorContratoCliente: TfEditorContratoCliente
object pagInicidencias: TTabSheet
Caption = 'Incidencias'
ImageIndex = 2
- ExplicitLeft = 0
- ExplicitTop = 0
- ExplicitWidth = 0
- ExplicitHeight = 0
inline frViewIncidenciasCli: TfrViewIncidencias
Left = 0
Top = 0
@@ -473,6 +479,10 @@ inherited fEditorContratoCliente: TfEditorContratoCliente
inherited PnlComentario: TPanel
Width = 1334
ExplicitWidth = 1334
+ inherited lbComentario: TLabel
+ Width = 1324
+ Height = 25
+ end
end
inline frViewTotales1: TfrViewTotales [5]
Left = 0
@@ -495,129 +505,93 @@ inherited fEditorContratoCliente: TfEditorContratoCliente
Width = 1334
ExplicitWidth = 1334
inherited Bevel3: TBevel
- Left = 619
- Height = 122
- ExplicitLeft = 619
- ExplicitHeight = 122
+ Left = 752
+ ExplicitLeft = 752
end
inherited Bevel4: TBevel
- Left = 731
- Width = 210
- ExplicitLeft = 731
- ExplicitWidth = 210
- end
- inherited Bevel2: TBevel
- Width = 333
- ExplicitWidth = 333
+ Left = 864
+ ExplicitLeft = 864
end
inherited Bevel1: TBevel
- Left = 638
- Width = 332
- ExplicitLeft = 638
- ExplicitWidth = 332
+ Left = 771
+ ExplicitLeft = 771
end
inherited ImporteDto: TcxDBCurrencyEdit
Style.IsFontAssigned = True
- ExplicitWidth = 93
- Width = 93
end
inherited ImporteIVA: TcxDBCurrencyEdit
- Left = 802
+ Left = 935
Style.IsFontAssigned = True
- ExplicitLeft = 802
- ExplicitWidth = 137
- Width = 137
+ ExplicitLeft = 935
end
inherited ImporteTotal: TcxDBCurrencyEdit
- Left = 732
+ Left = 865
Style.IsFontAssigned = True
- ExplicitLeft = 732
- ExplicitWidth = 137
- Width = 137
+ ExplicitLeft = 865
end
inherited edtDescuento: TcxDBSpinEdit
Style.IsFontAssigned = True
end
inherited edtIVA: TcxDBSpinEdit
- Left = 731
+ Left = 864
Style.IsFontAssigned = True
- ExplicitLeft = 731
+ ExplicitLeft = 864
end
inherited ImporteBase: TcxDBCurrencyEdit
- Left = 731
+ Left = 864
Style.IsFontAssigned = True
- ExplicitLeft = 731
- ExplicitWidth = 92
- Width = 92
+ ExplicitLeft = 864
end
inherited edtRE: TcxDBSpinEdit
- Left = 731
+ Left = 864
Style.IsFontAssigned = True
- ExplicitLeft = 731
+ ExplicitLeft = 864
end
inherited edtIRPF: TcxDBSpinEdit
- Left = 731
+ Left = 864
Style.IsFontAssigned = True
- ExplicitLeft = 731
+ ExplicitLeft = 864
end
inherited ImporteRE: TcxDBCurrencyEdit
- Left = 802
+ Left = 935
Style.IsFontAssigned = True
- ExplicitLeft = 802
- ExplicitWidth = 56
- Width = 56
+ ExplicitLeft = 935
end
inherited ImporteIRPF: TcxDBCurrencyEdit
- Left = 802
+ Left = 935
Style.IsFontAssigned = True
- ExplicitLeft = 802
- ExplicitWidth = 56
- Width = 56
+ ExplicitLeft = 935
end
inherited eImporteNeto: TcxDBCurrencyEdit
Style.IsFontAssigned = True
- ExplicitWidth = 147
- Width = 147
end
inherited ePorte: TcxDBCurrencyEdit
Style.IsFontAssigned = True
- ExplicitWidth = 147
- Width = 147
end
inherited eIVA: TcxDBLookupComboBox
Properties.OnValidate = frViewTotales1eIVAPropertiesValidate
Style.Color = clInfoBk
- ExplicitWidth = 81
- Width = 81
end
inherited bTiposIVA: TButton
- Left = 471
+ Left = 604
OnClick = frViewTotales1bTiposIVAClick
- ExplicitLeft = 471
- end
- inherited cbRecargoEquivalencia: TcxDBCheckBox
- ExplicitWidth = 219
- Width = 219
+ ExplicitLeft = 604
end
inherited edtRetencion: TcxDBSpinEdit
- Left = 731
+ Left = 864
Style.IsFontAssigned = True
- ExplicitLeft = 731
+ ExplicitLeft = 864
end
inherited edtImporteRetencion: TcxDBCurrencyEdit
- Left = 802
+ Left = 935
Style.IsFontAssigned = True
- ExplicitLeft = 802
- ExplicitWidth = 342
- Width = 342
+ ExplicitLeft = 935
end
inherited edtFechaRetencion: TcxDBDateEdit
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
- ExplicitWidth = 333
- Width = 333
end
inherited dxLayoutControl1Group_Root: TdxLayoutGroup
inherited dxLayoutControl1Group1: TdxLayoutGroup
diff --git a/Source/Modulos/Contratos de cliente/Views/uEditorContratoCliente.pas b/Source/Modulos/Contratos de cliente/Views/uEditorContratoCliente.pas
index 0903a8d..bd45bf3 100644
--- a/Source/Modulos/Contratos de cliente/Views/uEditorContratoCliente.pas
+++ b/Source/Modulos/Contratos de cliente/Views/uEditorContratoCliente.pas
@@ -415,12 +415,42 @@ end;
procedure TfEditorContratoCliente.OnClienteChanged(Sender: TObject);
var
+ AClientesController : IClientesController;
+ ADireccion : IBizDireccionesContacto;
APrimerCliente : Boolean;
begin
+{
+ if not (FContrato.DataTable.State in dsEditModes) then
+ FContrato.DataTable.Edit;
+
+ // En el caso de tener direcciones asociadas, se debe dar la posibilidad de elegir la dirección principal o las secundarias para la factura
+ AClientesController := TClientesController.Create;
+ try
+ case FContrato.Cliente.Direcciones.RecordCount of
+ 0 : //No hay direcciones secundarias asociadas
+ else ADireccion := AClientesController.ElegirDireccion(FContrato.Cliente, 'Seleccione la dirección del cliente que quiere utilizar como dirección fiscal de este contrato.');
+ end;
+
+ // Si hay dirección de envio, copiarla a la factura y poner el coste del porte
+ if Assigned(ADireccion) then
+ begin
+ if not ADireccion.IDIsNull then
+ try
+ FContrato.Edit;
+ FContrato.IMPORTE_PORTE := ADireccion.PORTE;
+ FController.CopiarDireccion(ADireccion, FContrato);
+ finally
+ ADireccion := NIL;
+ end;
+ end
+ finally
+ AClientesController := Nil;
+ end;
+}
if Assigned(FContrato) then
begin
APrimerCliente := (FContrato.Cliente.ID = 0);
- FContrato.Cliente := ViewContrato.ViewClienteContrato.Cliente;
+ FContrato.Cliente := ViewContrato.ViewClienteContrato.Cliente;
if (ShowConfirmMessage('Cambio forma de pago y tipo de IVA', '¿Desea actualizar la forma de pago y el tipo de IVA a la asignada en la ficha del cliente seleccionado?') = IDYES) then
FController.ActualizarFormaDePago(FContrato, FContrato.Cliente.ID_FORMA_PAGO);
diff --git a/Source/Modulos/Contratos de cliente/Views/uEditorElegirContratosClienteParaCompra.dfm b/Source/Modulos/Contratos de cliente/Views/uEditorElegirContratosClienteParaCompra.dfm
new file mode 100644
index 0000000..f2dc00a
--- /dev/null
+++ b/Source/Modulos/Contratos de cliente/Views/uEditorElegirContratosClienteParaCompra.dfm
@@ -0,0 +1,219 @@
+inherited fEditorElegirContratosClienteParaCompra: TfEditorElegirContratosClienteParaCompra
+ Caption = 'Seleccionar pedido de cliente'
+ ClientWidth = 656
+ ExplicitWidth = 672
+ PixelsPerInch = 96
+ TextHeight = 13
+ object JvgWizardHeader1: TJvgWizardHeader [0]
+ Left = 0
+ Top = 27
+ Width = 656
+ Height = 60
+ CaptionFont.Charset = DEFAULT_CHARSET
+ CaptionFont.Color = clWindowText
+ CaptionFont.Height = -11
+ CaptionFont.Name = 'Tahoma'
+ CaptionFont.Style = [fsBold]
+ CommentFont.Charset = DEFAULT_CHARSET
+ CommentFont.Color = clWindowText
+ CommentFont.Height = -11
+ CommentFont.Name = 'Tahoma'
+ CommentFont.Style = []
+ SymbolFont.Charset = DEFAULT_CHARSET
+ SymbolFont.Color = clHighlightText
+ SymbolFont.Height = -35
+ SymbolFont.Name = 'Wingdings'
+ SymbolFont.Style = [fsBold]
+ Captions.Strings = (
+ 'Seleccione el pedido de cliente')
+ Comments.Strings = (
+ ' ')
+ Gradient.FromColor = clHighlight
+ Gradient.ToColor = clWindow
+ Gradient.Active = False
+ Gradient.Orientation = fgdVertical
+ BufferedDraw = False
+ ExplicitLeft = -8
+ ExplicitTop = 8
+ end
+ inherited JvNavPanelHeader: TJvNavPanelHeader
+ Width = 656
+ Visible = False
+ ExplicitWidth = 656
+ inherited Image1: TImage
+ Left = 629
+ ExplicitLeft = 629
+ end
+ end
+ inherited TBXDock: TTBXDock
+ Top = 87
+ Width = 656
+ ExplicitTop = 87
+ ExplicitWidth = 656
+ inherited tbxMain: TTBXToolbar
+ Left = 487
+ ExplicitLeft = 487
+ ExplicitWidth = 139
+ ExplicitHeight = 27
+ inherited TBXItem2: TTBXItem
+ Visible = False
+ end
+ inherited TBXItem5: TTBXItem
+ Visible = False
+ end
+ inherited TBXSeparatorItem3: TTBXSeparatorItem
+ Visible = False
+ end
+ inherited TBXItem6: TTBXItem
+ Visible = False
+ end
+ inherited TBXItem36: TTBXItem
+ Action = actAnchoAuto2
+ end
+ end
+ inherited tbxFiltro: TTBXToolbar
+ Top = 25
+ DockPos = -107
+ DockRow = 1
+ ExplicitTop = 25
+ inherited TBXItem34: TTBXItem
+ Action = actQuitarFiltro2
+ end
+ end
+ inherited tbxMenu: TTBXToolbar
+ ExplicitWidth = 656
+ end
+ inherited TBXTMain2: TTBXToolbar
+ Left = 0
+ Top = 52
+ Visible = False
+ ExplicitLeft = 0
+ ExplicitTop = 52
+ ExplicitWidth = 656
+ ExplicitHeight = 26
+ end
+ end
+ inherited StatusBar: TJvStatusBar
+ Top = 444
+ Width = 656
+ ExplicitTop = 444
+ ExplicitWidth = 656
+ end
+ inline frViewBarraSeleccion1: TfrViewBarraSeleccion [4]
+ Left = 0
+ Top = 463
+ Width = 656
+ Height = 36
+ Align = alBottom
+ Font.Charset = DEFAULT_CHARSET
+ Font.Color = clWindowText
+ Font.Height = -11
+ Font.Name = 'Tahoma'
+ Font.Style = []
+ ParentFont = False
+ TabOrder = 3
+ ReadOnly = False
+ ExplicitTop = 463
+ ExplicitWidth = 656
+ ExplicitHeight = 36
+ inherited JvFooter1: TJvFooter
+ Width = 656
+ Height = 36
+ ExplicitWidth = 656
+ ExplicitHeight = 36
+ inherited bSeleccionar: TJvFooterBtn
+ Left = 444
+ Top = 3
+ ExplicitLeft = 444
+ ExplicitTop = 3
+ end
+ inherited bCancelar: TJvFooterBtn
+ Left = 548
+ Top = 4
+ ExplicitLeft = 548
+ ExplicitTop = 4
+ end
+ end
+ inherited BarraSeleccionActionList: TActionList
+ inherited actSeleccionar: TAction
+ OnExecute = frViewBarraSeleccion1actSeleccionarExecute
+ OnUpdate = frViewBarraSeleccion1actSeleccionarUpdate
+ end
+ inherited actCancelar: TAction
+ OnExecute = frViewBarraSeleccion1actCancelarExecute
+ end
+ end
+ end
+ inherited EditorActionList: TActionList [8]
+ Left = 112
+ Top = 192
+ inherited actPrevisualizar: TAction
+ Visible = False
+ end
+ inherited actImprimir: TAction
+ Visible = False
+ end
+ inherited actDuplicar: TAction
+ Visible = False
+ end
+ inherited actGenerarAlbaranCli: TAction
+ Visible = False
+ end
+ inherited actGenerarFactura: TAction
+ Enabled = False
+ Visible = False
+ end
+ inherited actGenerarRecibo: TAction
+ Enabled = False
+ Visible = False
+ end
+ end
+ inherited JvAppRegistryStorage: TJvAppRegistryStorage [9]
+ end
+ inherited dsDataTable: TDADataSource [10]
+ Left = 8
+ Top = 192
+ end
+ inherited StatusBarImages: TPngImageList [11]
+ end
+ inherited GridPopupMenu: TPopupMenu [12]
+ Left = 80
+ Top = 192
+ inherited N4: TMenuItem
+ Visible = False
+ end
+ end
+ inherited JsGenerarDialog: TJSDialog [13]
+ end
+ inherited JsPrevisualizarDialog: TJSDialog [14]
+ end
+ inherited JsImprimirDialog: TJSDialog [15]
+ end
+ inherited JsListaContratosNoEliminados: TJSDialog [16]
+ end
+ inherited JSInformesDialog: TJSDialog [17]
+ end
+ object EditorSeleccionActionList: TActionList
+ Images = SmallImages
+ Left = 152
+ Top = 192
+ object actBuscar2: TAction
+ Category = 'Buscar'
+ Caption = 'Buscar'
+ ImageIndex = 10
+ ShortCut = 114
+ end
+ object actQuitarFiltro2: TAction
+ Category = 'Buscar'
+ Caption = 'Quitar filtro y ver todo'
+ ImageIndex = 19
+ OnExecute = actQuitarFiltro2Execute
+ end
+ object actAnchoAuto2: TAction
+ Category = 'Ver'
+ Caption = 'Ancho autom'#225'tico'
+ ImageIndex = 21
+ OnExecute = actAnchoAuto2Execute
+ end
+ end
+end
diff --git a/Source/Modulos/Contratos de cliente/Views/uEditorElegirContratosClienteParaCompra.pas b/Source/Modulos/Contratos de cliente/Views/uEditorElegirContratosClienteParaCompra.pas
new file mode 100644
index 0000000..4ae1179
--- /dev/null
+++ b/Source/Modulos/Contratos de cliente/Views/uEditorElegirContratosClienteParaCompra.pas
@@ -0,0 +1,138 @@
+unit uEditorElegirContratosClienteParaCompra;
+
+interface
+
+uses
+ Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
+ Dialogs, DB, uDADataTable, Menus, JvAppStorage, JvAppRegistryStorage,
+ JvComponentBase, JvFormPlacement, ImgList, PngImageList, StdActns,
+ ActnList, uCustomView, uViewBase, uViewGridBase, uViewGrid,
+ uViewContratosClienteParaCompra, ComCtrls, TB2ExtItems, TBXExtItems, TBX,
+ TB2Item, TB2Dock, TB2Toolbar, pngimage, ExtCtrls, JvExControls, JvComponent,
+ JvNavigationPane, uViewBarraSeleccion, JvgWizardHeader, StdCtrls,
+ uEditorContratosCliente, uBizContratosCliente, uIEditorElegirContratosCliente,
+ JvExComCtrls, JvStatusBar, JSDialog, uDAInterfaces;
+
+type
+ TfEditorElegirContratosClienteParaCompra = class(TfEditorContratosCliente, IEditorElegirContratosCliente)
+ frViewBarraSeleccion1: TfrViewBarraSeleccion;
+ JvgWizardHeader1: TJvgWizardHeader;
+ EditorSeleccionActionList: TActionList;
+ actBuscar2: TAction;
+ actQuitarFiltro2: TAction;
+ actAnchoAuto2: TAction;
+ procedure frViewBarraSeleccion1actSeleccionarUpdate(Sender: TObject);
+ procedure frViewBarraSeleccion1actCancelarExecute(Sender: TObject);
+ procedure frViewBarraSeleccion1actSeleccionarExecute(Sender: TObject);
+ procedure FormShow(Sender: TObject);
+ procedure actAnchoAuto2Execute(Sender: TObject);
+ procedure actQuitarFiltro2Execute(Sender: TObject);
+ protected
+ procedure SetMultiSelect (AValue : Boolean);
+ function GetMultiSelect : Boolean;
+ function GetContratosClienteSeleccionados: IBizContratoCliente;
+ procedure SetViewGrid(const Value: IViewGridBase); override;
+ procedure SetMensaje (const AValue: String);
+ function GetMensaje: String;
+
+ //Si queremos crear otra vista para el editor heredado solo tendriamos que
+ //sobreescribir este metodo
+ procedure AsignarVista; override;
+
+ public
+ property Mensaje : String read GetMensaje write SetMensaje;
+ property ContratosClienteSeleccionados: IBizContratoCliente read GetContratosClienteSeleccionados;
+ property MultiSelect : Boolean read GetMultiSelect write SetMultiSelect;
+ end;
+
+implementation
+
+uses
+ uEditorGridBase, cxGridCustomTableView, uIntegerListUtils, uDBSelectionListUtils,
+ uGridUtils, uEditorBase, uContratosClienteController,
+ cxGridLevel;
+
+{$R *.dfm}
+
+{ TfEditorElegirContratosCliente }
+
+procedure TfEditorElegirContratosClienteParaCompra.actAnchoAuto2Execute(Sender: TObject);
+begin
+ inherited;
+ actAnchoAuto.Execute;
+end;
+
+procedure TfEditorElegirContratosClienteParaCompra.actQuitarFiltro2Execute(Sender: TObject);
+begin
+ inherited;
+ actQuitarFiltro.Execute;
+end;
+
+procedure TfEditorElegirContratosClienteParaCompra.AsignarVista;
+begin
+ ViewGrid := CreateView(TfrViewContratosClienteParaCompra) as IViewContratosCliente;
+end;
+
+procedure TfEditorElegirContratosClienteParaCompra.FormShow(Sender: TObject);
+begin
+ inherited;
+ EditorActionList.State := asSuspended;
+end;
+
+procedure TfEditorElegirContratosClienteParaCompra.frViewBarraSeleccion1actCancelarExecute(
+ Sender: TObject);
+begin
+ inherited;
+ Close;
+end;
+
+procedure TfEditorElegirContratosClienteParaCompra.frViewBarraSeleccion1actSeleccionarExecute(
+ Sender: TObject);
+begin
+ inherited;
+ ModalResult := mrOk;
+end;
+
+procedure TfEditorElegirContratosClienteParaCompra.frViewBarraSeleccion1actSeleccionarUpdate(
+ Sender: TObject);
+begin
+ inherited;
+ (Sender as TAction).Enabled := (ViewGrid._FocusedView.Controller.SelectedRowCount > 0)
+end;
+
+function TfEditorElegirContratosClienteParaCompra.GetContratosClienteSeleccionados: IBizContratoCliente;
+begin
+ SeleccionarFilasDesdeGrid(ViewGrid._FocusedView, (Contratos as ISeleccionable).SelectedRecords);
+ // En SelectedRecords tengo los ID de las filas seleccionadas del grid
+ Result := (Controller as IContratosClienteController).ExtraerSeleccionados(Contratos) as IBizContratoCliente;
+end;
+
+function TfEditorElegirContratosClienteParaCompra.GetMensaje: String;
+begin
+ Result := JvgWizardHeader1.Comments.Text;
+end;
+
+function TfEditorElegirContratosClienteParaCompra.GetMultiSelect: Boolean;
+begin
+ Result := ViewGrid.MultiSelect;
+end;
+
+procedure TfEditorElegirContratosClienteParaCompra.SetMensaje(const AValue: String);
+begin
+ JvgWizardHeader1.Comments.Text := AValue;
+end;
+
+procedure TfEditorElegirContratosClienteParaCompra.SetMultiSelect(AValue: Boolean);
+begin
+ ViewGrid.MultiSelect := AValue;
+end;
+
+procedure TfEditorElegirContratosClienteParaCompra.SetViewGrid(const Value: IViewGridBase);
+begin
+ inherited;
+ //Para que no salgan las pestañas de filtrado
+ ViewGrid._Grid.RootLevelOptions.DetailTabsPosition := dtpNone;
+ ViewGrid.OnDblClick := frViewBarraSeleccion1.actSeleccionar.OnExecute;
+end;
+
+end.
diff --git a/Source/Modulos/Contratos de cliente/Views/uViewContratosClienteParaCompra.dfm b/Source/Modulos/Contratos de cliente/Views/uViewContratosClienteParaCompra.dfm
new file mode 100644
index 0000000..2ac5958
--- /dev/null
+++ b/Source/Modulos/Contratos de cliente/Views/uViewContratosClienteParaCompra.dfm
@@ -0,0 +1,832 @@
+inherited frViewContratosClienteParaCompra: TfrViewContratosClienteParaCompra
+ Width = 903
+ Height = 525
+ ExplicitWidth = 903
+ ExplicitHeight = 525
+ inherited cxGrid: TcxGrid
+ Width = 903
+ Height = 397
+ RootLevelOptions.DetailTabsPosition = dtpTop
+ OnActiveTabChanged = cxGridActiveTabChanged
+ ExplicitWidth = 903
+ ExplicitHeight = 397
+ inherited cxGridView: TcxGridDBTableView
+ DataController.KeyFieldNames = 'ID'
+ DataController.Options = [dcoAnsiSort, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoGroupsAlwaysExpanded]
+ DataController.Summary.DefaultGroupSummaryItems = <
+ item
+ Format = ',0.00 '#8364';-,0.00 '#8364
+ Kind = skSum
+ Position = spFooter
+ Column = cxGridViewIMPORTE_TOTAL
+ end
+ item
+ Format = ',0.00 '#8364';-,0.00 '#8364
+ Kind = skSum
+ Position = spFooter
+ Column = cxGridViewBASE_IMPONIBLE
+ end
+ item
+ Format = ',0.00 '#8364';-,0.00 '#8364
+ Kind = skSum
+ Position = spFooter
+ Column = cxGridViewIMPORTE_IVA
+ end>
+ DataController.Summary.FooterSummaryItems = <
+ item
+ Format = '0 contratos'
+ Kind = skCount
+ Column = cxGridViewREFERENCIA
+ end
+ item
+ Format = ',0.00 '#8364';-,0.00 '#8364
+ Kind = skSum
+ Column = cxGridViewIMPORTE_TOTAL
+ end
+ item
+ Format = ',0.00 '#8364';-,0.00 '#8364
+ Kind = skSum
+ Column = cxGridViewBASE_IMPONIBLE
+ end
+ item
+ Format = ',0.00 '#8364';-,0.00 '#8364
+ Kind = skSum
+ Column = cxGridViewIMPORTE_IVA
+ end>
+ OptionsView.GroupFooters = gfAlwaysVisible
+ object cxGridViewINCIDENCIASACTIVAS: TcxGridDBColumn
+ Caption = 'Incidencias'
+ DataBinding.FieldName = 'INCIDENCIAS_ACTIVAS'
+ PropertiesClassName = 'TcxImageComboBoxProperties'
+ Properties.Images = GridPNGImageList
+ Properties.Items = <
+ item
+ Description = 'Sin incidencias'
+ Value = 0
+ end
+ item
+ Description = 'Con incidencias'
+ ImageIndex = 3
+ Tag = 1
+ Value = 1
+ end>
+ Properties.ShowDescriptions = False
+ OnGetCellHint = cxGridViewINCIDENCIASACTIVASGetCellHint
+ BestFitMaxWidth = 22
+ MinWidth = 22
+ Options.HorzSizing = False
+ Width = 22
+ end
+ object cxGridViewINCIDENCIAS: TcxGridDBColumn
+ DataBinding.FieldName = 'INCIDENCIAS'
+ Visible = False
+ BestFitMaxWidth = 10
+ VisibleForCustomization = False
+ Width = 20
+ end
+ object cxGridViewREFERENCIA: TcxGridDBColumn
+ DataBinding.FieldName = 'REFERENCIA'
+ BestFitMaxWidth = 25
+ SortIndex = 0
+ SortOrder = soDescending
+ Width = 58
+ end
+ object cxGridViewREFERENCIA_CLIENTE: TcxGridDBColumn
+ Caption = 'Ref. Cliente'
+ DataBinding.FieldName = 'REFERENCIA_CLIENTE'
+ BestFitMaxWidth = 25
+ end
+ object cxGridViewTIPO_CONTRATO: TcxGridDBColumn
+ DataBinding.FieldName = 'TIPO_CONTRATO'
+ Visible = False
+ BestFitMaxWidth = 25
+ VisibleForCustomization = False
+ Width = 55
+ end
+ object cxGridViewSITUACION: TcxGridDBColumn
+ Caption = 'Situaci'#243'n'
+ DataBinding.FieldName = 'SITUACION'
+ BestFitMaxWidth = 25
+ Width = 80
+ end
+ object cxGridViewFECHA_CONTRATO: TcxGridDBColumn
+ Caption = 'Fecha contrato'
+ DataBinding.FieldName = 'FECHA_CONTRATO'
+ BestFitMaxWidth = 25
+ Width = 105
+ end
+ object cxGridViewVENDEDOR: TcxGridDBColumn
+ Caption = 'Usuario'
+ DataBinding.FieldName = 'VENDEDOR'
+ Visible = False
+ VisibleForCustomization = False
+ end
+ object cxGridViewNIF_CIF: TcxGridDBColumn
+ Caption = 'NIF/CIF'
+ DataBinding.FieldName = 'NIF_CIF'
+ Visible = False
+ BestFitMaxWidth = 25
+ VisibleForCustomization = False
+ Width = 75
+ end
+ object cxGridViewPROCEDENCIA_CLIENTE: TcxGridDBColumn
+ Caption = 'Procedencia'
+ DataBinding.FieldName = 'PROCEDENCIA_CLIENTE'
+ Visible = False
+ VisibleForCustomization = False
+ end
+ object cxGridViewNOMBRE: TcxGridDBColumn
+ Caption = 'Nombre'
+ DataBinding.FieldName = 'NOMBRE'
+ Width = 161
+ end
+ object cxGridViewNOMBRE_COMERCIAL_CLIENTE: TcxGridDBColumn
+ Caption = 'Nombre comercial'
+ DataBinding.FieldName = 'NOMBRE_COMERCIAL_CLIENTE'
+ end
+ object cxGridViewIMPORTE_NETO: TcxGridDBColumn
+ Caption = 'Imp. neto'
+ DataBinding.FieldName = 'IMPORTE_NETO'
+ Visible = False
+ FooterAlignmentHorz = taRightJustify
+ GroupSummaryAlignment = taRightJustify
+ HeaderAlignmentHorz = taRightJustify
+ VisibleForCustomization = False
+ end
+ object cxGridViewDTO: TcxGridDBColumn
+ Caption = 'Dto'
+ DataBinding.FieldName = 'DESCUENTO'
+ Visible = False
+ FooterAlignmentHorz = taRightJustify
+ GroupSummaryAlignment = taRightJustify
+ HeaderAlignmentHorz = taRightJustify
+ HeaderGlyphAlignmentHorz = taRightJustify
+ VisibleForCustomization = False
+ end
+ object cxGridViewIMPORTE_DESCUENTO: TcxGridDBColumn
+ Caption = 'Imp. dto'
+ DataBinding.FieldName = 'IMPORTE_DESCUENTO'
+ Visible = False
+ FooterAlignmentHorz = taRightJustify
+ GroupSummaryAlignment = taRightJustify
+ HeaderAlignmentHorz = taRightJustify
+ HeaderGlyphAlignmentHorz = taRightJustify
+ VisibleForCustomization = False
+ end
+ object cxGridViewBASE_IMPONIBLE: TcxGridDBColumn
+ Caption = 'Base imponible'
+ DataBinding.FieldName = 'BASE_IMPONIBLE'
+ Visible = False
+ HeaderAlignmentHorz = taRightJustify
+ VisibleForCustomization = False
+ end
+ object cxGridViewIVA: TcxGridDBColumn
+ DataBinding.FieldName = 'IVA'
+ Visible = False
+ HeaderAlignmentHorz = taRightJustify
+ VisibleForCustomization = False
+ end
+ object cxGridViewIMPORTE_IVA: TcxGridDBColumn
+ Caption = 'Importe IVA'
+ DataBinding.FieldName = 'IMPORTE_IVA'
+ Visible = False
+ HeaderAlignmentHorz = taRightJustify
+ VisibleForCustomization = False
+ end
+ object cxGridViewIMPORTE_TOTAL: TcxGridDBColumn
+ Caption = 'Importe total'
+ DataBinding.FieldName = 'IMPORTE_TOTAL'
+ PropertiesClassName = 'TcxCurrencyEditProperties'
+ Properties.Alignment.Horz = taRightJustify
+ Visible = False
+ BestFitMaxWidth = 60
+ FooterAlignmentHorz = taRightJustify
+ HeaderAlignmentHorz = taRightJustify
+ VisibleForCustomization = False
+ Width = 63
+ end
+ object cxGridViewFACTURA_ASOCIADA: TcxGridDBColumn
+ Caption = 'Factura/s asociada/s'
+ DataBinding.FieldName = 'FACTURA_ASOCIADA'
+ Visible = False
+ VisibleForCustomization = False
+ end
+ object cxGridViewBASE_IMPONIBLE_FACTURAS: TcxGridDBColumn
+ Caption = 'Base Imponible de facturas'
+ DataBinding.FieldName = 'BASE_IMPONIBLE_FACTURAS'
+ PropertiesClassName = 'TcxCurrencyEditProperties'
+ Properties.Alignment.Horz = taRightJustify
+ Visible = False
+ FooterAlignmentHorz = taRightJustify
+ HeaderAlignmentHorz = taRightJustify
+ VisibleForCustomization = False
+ end
+ object cxGridViewPROVINCIA: TcxGridDBColumn
+ Caption = 'Provincia'
+ DataBinding.FieldName = 'PROVINCIA'
+ end
+ object cxGridViewENVIADA_REVISADA: TcxGridDBColumn
+ DataBinding.FieldName = 'ENVIADA_REVISADA'
+ PropertiesClassName = 'TcxImageComboBoxProperties'
+ Properties.Images = GridPNGImageList
+ Properties.Items = <
+ item
+ Value = 0
+ end
+ item
+ Description = 'Enviado'
+ ImageIndex = 4
+ Value = 1
+ end
+ item
+ Description = 'Recibido'
+ ImageIndex = 2
+ Value = 2
+ end
+ item
+ Description = 'Aprobado'
+ ImageIndex = 4
+ Value = 3
+ end
+ item
+ Description = 'Recibido'
+ ImageIndex = 5
+ Value = 10
+ end
+ item
+ Description = 'Recibido'
+ ImageIndex = 5
+ Value = 11
+ end>
+ Visible = False
+ VisibleForCustomization = False
+ IsCaptionAssigned = True
+ end
+ object cxGridViewREFERENCIA_ABETO: TcxGridDBColumn
+ Caption = 'Ref. Abeto'
+ DataBinding.FieldName = 'REFERENCIA_ABETO'
+ Visible = False
+ VisibleForCustomization = False
+ end
+ object cxGridViewTIENDA: TcxGridDBColumn
+ Caption = 'Tienda'
+ DataBinding.FieldName = 'TIENDA'
+ Visible = False
+ VisibleForCustomization = False
+ end
+ object cxGridViewAGENTE: TcxGridDBColumn
+ Caption = 'Comercial'
+ DataBinding.FieldName = 'NOMBRE_AGENTE'
+ Visible = False
+ VisibleForCustomization = False
+ end
+ object cxGridViewDELEGACION: TcxGridDBColumn
+ Caption = 'Delegaci'#243'n'
+ DataBinding.FieldName = 'DELEGACION'
+ Visible = False
+ VisibleForCustomization = False
+ end
+ object cxGridViewINSTALADOR: TcxGridDBColumn
+ Caption = 'Instalador'
+ DataBinding.FieldName = 'NOMBRE_INSTALADOR'
+ PropertiesClassName = 'TcxTextEditProperties'
+ Properties.Alignment.Horz = taRightJustify
+ Visible = False
+ HeaderAlignmentHorz = taRightJustify
+ VisibleForCustomization = False
+ end
+ object cxGridViewPAIS: TcxGridDBColumn
+ Caption = 'Pa'#237's'
+ DataBinding.FieldName = 'PAIS'
+ PropertiesClassName = 'TcxTextEditProperties'
+ Properties.Alignment.Horz = taRightJustify
+ HeaderAlignmentHorz = taRightJustify
+ end
+ object cxGridViewIDIOMA: TcxGridDBColumn
+ Caption = 'Idioma'
+ DataBinding.FieldName = 'IDIOMA'
+ PropertiesClassName = 'TcxTextEditProperties'
+ Properties.Alignment.Horz = taRightJustify
+ Visible = False
+ HeaderAlignmentHorz = taRightJustify
+ VisibleForCustomization = False
+ end
+ end
+ inherited cxGridLevel: TcxGridLevel
+ Caption = 'Todos'
+ end
+ object cxGridLevelPendientesRevisar: TcxGridLevel
+ Caption = 'Pendientes Revisi'#243'n - Graden'
+ end
+ object cxGridLevelPendientes: TcxGridLevel
+ Caption = 'Pendientes'
+ end
+ object cxGridLevelTerminados: TcxGridLevel
+ Caption = 'Terminados'
+ end
+ object cxGridLevelCancelados: TcxGridLevel
+ Caption = 'Cancelados'
+ end
+ end
+ inherited frViewFiltroBase1: TfrViewFiltroBase
+ Width = 903
+ ExplicitWidth = 903
+ inherited TBXDockablePanel1: TTBXDockablePanel
+ ExplicitWidth = 903
+ inherited dxLayoutControl1: TdxLayoutControl
+ Width = 903
+ ExplicitWidth = 903
+ inherited txtFiltroTodo: TcxTextEdit
+ Style.LookAndFeel.SkinName = ''
+ StyleDisabled.LookAndFeel.SkinName = ''
+ StyleFocused.LookAndFeel.SkinName = ''
+ StyleHot.LookAndFeel.SkinName = ''
+ ExplicitWidth = 250
+ Width = 250
+ end
+ inherited edtFechaIniFiltro: TcxDateEdit
+ Style.LookAndFeel.SkinName = ''
+ StyleDisabled.LookAndFeel.SkinName = ''
+ StyleFocused.LookAndFeel.SkinName = ''
+ StyleHot.LookAndFeel.SkinName = ''
+ ExplicitWidth = 250
+ Width = 250
+ end
+ inherited edtFechaFinFiltro: TcxDateEdit
+ Left = 515
+ Style.LookAndFeel.SkinName = ''
+ StyleDisabled.LookAndFeel.SkinName = ''
+ StyleFocused.LookAndFeel.SkinName = ''
+ StyleHot.LookAndFeel.SkinName = ''
+ ExplicitLeft = 515
+ ExplicitWidth = 250
+ Width = 250
+ end
+ inherited txtFiltroTodo2: TcxTextEdit
+ Left = 515
+ Style.LookAndFeel.SkinName = ''
+ StyleDisabled.LookAndFeel.SkinName = ''
+ StyleFocused.LookAndFeel.SkinName = ''
+ StyleHot.LookAndFeel.SkinName = ''
+ ExplicitLeft = 515
+ ExplicitWidth = 250
+ Width = 250
+ end
+ inherited dxLayoutControl1Group_Root: TdxLayoutGroup
+ inherited dxLayoutControl1Group2: TdxLayoutGroup
+ inherited dxLayoutControl1Item4: TdxLayoutItem
+ Visible = True
+ end
+ end
+ end
+ end
+ inherited TBXAlignmentPanel1: TTBXAlignmentPanel
+ Width = 903
+ ExplicitWidth = 903
+ inherited tbxBotones: TTBXToolbar
+ Width = 893
+ ExplicitWidth = 893
+ end
+ end
+ end
+ end
+ inherited pnlAgrupaciones: TTBXDockablePanel
+ Top = 499
+ Visible = True
+ ExplicitTop = 499
+ ExplicitWidth = 903
+ inherited TBXAlignmentPanel1: TTBXAlignmentPanel
+ Width = 903
+ Enabled = False
+ Visible = False
+ ExplicitWidth = 903
+ inherited TBXToolbar1: TTBXToolbar
+ Width = 893
+ Visible = False
+ ExplicitWidth = 893
+ object TBXSeparatorItem2: TTBXSeparatorItem
+ end
+ object TBXItem3: TTBXItem
+ Action = actCliente
+ end
+ object TBXSeparatorItem1: TTBXSeparatorItem
+ end
+ object TBXItem4: TTBXItem
+ Action = actProvincia
+ end
+ object TBXSeparatorItem3: TTBXSeparatorItem
+ end
+ object TBXItem2: TTBXItem
+ Action = actProcedencia
+ end
+ object TBXSeparatorItem5: TTBXSeparatorItem
+ end
+ object TBXItem5: TTBXItem
+ Action = actComercial
+ end
+ object TBXSeparatorItem4: TTBXSeparatorItem
+ end
+ object TBXItem6: TTBXItem
+ Action = actDelegacion
+ end
+ object TBXSeparatorItem6: TTBXSeparatorItem
+ end
+ object TBXItem7: TTBXItem
+ Action = actInstalador
+ end
+ object TBXSeparatorItem7: TTBXSeparatorItem
+ end
+ object TBXItem8: TTBXItem
+ Action = actTienda
+ end
+ object TBXSeparatorItem8: TTBXSeparatorItem
+ end
+ object TBXItem9: TTBXItem
+ Action = actPais
+ end
+ end
+ end
+ end
+ inherited dxComponentPrinter: TdxComponentPrinter
+ Top = 192
+ inherited dxComponentPrinterLink: TdxGridReportLink
+ ReportDocument.CreationDate = 38673.741107951390000000
+ BuiltInReportLink = True
+ end
+ end
+ inherited dxPSEngineController1: TdxPSEngineController
+ Left = 296
+ Top = 160
+ end
+ inherited cxViewGridPopupMenu: TcxGridPopupMenu
+ Top = 160
+ end
+ inherited ActionList1: TActionList
+ Left = 200
+ Top = 448
+ object actCliente: TAction
+ Caption = 'Cliente'
+ OnExecute = actClienteExecute
+ OnUpdate = actClienteUpdate
+ end
+ object actProcedencia: TAction
+ Caption = 'Procedencia'
+ OnExecute = actProcedenciaExecute
+ OnUpdate = actProcedenciaUpdate
+ end
+ object actProvincia: TAction
+ Caption = 'Provincia'
+ OnExecute = actProvinciaExecute
+ OnUpdate = actProvinciaUpdate
+ end
+ object actComercial: TAction
+ Caption = 'Comercial'
+ OnExecute = actComercialExecute
+ OnUpdate = actComercialUpdate
+ end
+ object actDelegacion: TAction
+ Caption = 'Delegaci'#243'n'
+ OnExecute = actDelegacionExecute
+ OnUpdate = actDelegacionUpdate
+ end
+ object actInstalador: TAction
+ Caption = 'Instalador'
+ OnExecute = actInstaladorExecute
+ OnUpdate = actInstaladorUpdate
+ end
+ object actTienda: TAction
+ Caption = 'Tienda'
+ OnExecute = actTiendaExecute
+ OnUpdate = actTiendaUpdate
+ end
+ object actPais: TAction
+ Caption = 'Pa'#237's'
+ OnExecute = actPaisExecute
+ OnUpdate = actPaisUpdate
+ end
+ end
+ inherited GridPNGImageList: TPngImageList
+ PngImages = <
+ item
+ PngImage.Data = {
+ 89504E470D0A1A0A0000000D49484452000000100000001008060000001FF3FF
+ 61000000097048597300000B1300000B1301009A9C1800000A4F694343505068
+ 6F746F73686F70204943432070726F66696C65000078DA9D53675453E9163DF7
+ DEF4424B8880944B6F5215082052428B801491262A2109104A8821A1D91551C1
+ 114545041BC8A088038E8E808C15512C0C8A0AD807E421A28E83A3888ACAFBE1
+ 7BA36BD6BCF7E6CDFEB5D73EE7ACF39DB3CF07C0080C9648335135800CA9421E
+ 11E083C7C4C6E1E42E40810A2470001008B3642173FD230100F87E3C3C2B22C0
+ 07BE000178D30B0800C04D9BC0301C87FF0FEA42995C01808401C07491384B08
+ 801400407A8E42A600404601809D98265300A0040060CB6362E300502D006027
+ 7FE6D300809DF8997B01005B94211501A09100201365884400683B00ACCF568A
+ 450058300014664BC43900D82D00304957664800B0B700C0CE100BB200080C00
+ 305188852900047B0060C8232378008499001446F2573CF12BAE10E72A000078
+ 99B23CB9243945815B082D710757572E1E28CE49172B14366102619A402EC279
+ 99193281340FE0F3CC0000A0911511E083F3FD78CE0EAECECE368EB60E5F2DEA
+ BF06FF226262E3FEE5CFAB70400000E1747ED1FE2C2FB31A803B06806DFEA225
+ EE04685E0BA075F78B66B20F40B500A0E9DA57F370F87E3C3C45A190B9D9D9E5
+ E4E4D84AC4425B61CA577DFE67C25FC057FD6CF97E3CFCF7F5E0BEE22481325D
+ 814704F8E0C2CCF44CA51CCF92098462DCE68F47FCB70BFFFC1DD322C44962B9
+ 582A14E35112718E449A8CF332A52289429229C525D2FF64E2DF2CFB033EDF35
+ 00B06A3E017B912DA85D6303F64B27105874C0E2F70000F2BB6FC1D428080380
+ 6883E1CF77FFEF3FFD47A02500806649927100005E44242E54CAB33FC7080000
+ 44A0812AB0411BF4C1182CC0061CC105DCC10BFC6036844224C4C24210420A64
+ 801C726029AC82422886CDB01D2A602FD4401D34C051688693700E2EC255B80E
+ 3D700FFA61089EC128BC81090441C808136121DA8801628A58238E08179985F8
+ 21C14804128B2420C9881451224B91354831528A542055481DF23D720239875C
+ 46BA913BC8003282FC86BC47319481B2513DD40CB543B9A8371A8446A20BD064
+ 74319A8F16A09BD072B41A3D8C36A1E7D0AB680FDA8F3E43C730C0E8180733C4
+ 6C302EC6C342B1382C099363CBB122AC0CABC61AB056AC03BB89F563CFB17704
+ 128145C0093604774220611E4148584C584ED848A8201C243411DA0937090384
+ 51C2272293A84BB426BA11F9C4186232318758482C23D6128F132F107B8843C4
+ 37241289433227B9900249B1A454D212D246D26E5223E92CA99B34481A2393C9
+ DA646BB20739942C202BC885E49DE4C3E433E41BE421F25B0A9D624071A4F853
+ E22852CA6A4A19E510E534E5066598324155A39A52DDA8A15411358F5A42ADA1
+ B652AF5187A81334759A39CD8316494BA5ADA295D31A681768F769AFE874BA11
+ DD951E4E97D057D2CBE947E897E803F4770C0D861583C7886728199B18071867
+ 197718AF984CA619D38B19C754303731EB98E7990F996F55582AB62A7C1591CA
+ 0A954A9526951B2A2F54A9AAA6AADEAA0B55F355CB548FA95E537DAE46553353
+ E3A909D496AB55AA9D50EB531B5367A93BA887AA67A86F543FA47E59FD890659
+ C34CC34F43A451A0B15FE3BCC6200B6319B3782C216B0DAB86758135C426B1CD
+ D97C762ABB98FD1DBB8B3DAAA9A13943334A3357B352F394663F07E39871F89C
+ 744E09E728A797F37E8ADE14EF29E2291BA6344CB931655C6BAA96979658AB48
+ AB51AB47EBBD36AEEDA79DA6BD45BB59FB810E41C74A275C2747678FCE059DE7
+ 53D953DDA70AA7164D3D3AF5AE2EAA6BA51BA1BB4477BF6EA7EE989EBE5E809E
+ 4C6FA7DE79BDE7FA1C7D2FFD54FD6DFAA7F5470C5806B30C2406DB0CCE183CC5
+ 35716F3C1D2FC7DBF151435DC34043A561956197E18491B9D13CA3D5468D460F
+ 8C69C65CE324E36DC66DC6A326062621264B4DEA4DEE9A524DB9A629A63B4C3B
+ 4CC7CDCCCDA2CDD699359B3D31D732E79BE79BD79BDFB7605A785A2CB6A8B6B8
+ 6549B2E45AA659EEB6BC6E855A3959A558555A5DB346AD9DAD25D6BBADBBA711
+ A7B94E934EAB9ED667C3B0F1B6C9B6A9B719B0E5D806DBAEB66DB67D61676217
+ 67B7C5AEC3EE93BD937DBA7D8DFD3D070D87D90EAB1D5A1D7E73B472143A563A
+ DE9ACE9CEE3F7DC5F496E92F6758CF10CFD833E3B613CB29C4699D539BD34767
+ 1767B97383F3888B894B82CB2E973E2E9B1BC6DDC8BDE44A74F5715DE17AD2F5
+ 9D9BB39BC2EDA8DBAFEE36EE69EE87DC9FCC349F299E593373D0C3C843E051E5
+ D13F0B9F95306BDFAC7E4F434F8167B5E7232F632F9157ADD7B0B7A577AAF761
+ EF173EF63E729FE33EE33C37DE32DE595FCC37C0B7C8B7CB4FC36F9E5F85DF43
+ 7F23FF64FF7AFFD100A78025016703898141815B02FBF87A7C21BF8E3F3ADB65
+ F6B2D9ED418CA0B94115418F82AD82E5C1AD2168C8EC90AD21F7E798CE91CE69
+ 0E85507EE8D6D00761E6618BC37E0C2785878557863F8E7088581AD131973577
+ D1DC4373DF44FA449644DE9B67314F39AF2D4A352A3EAA2E6A3CDA37BA34BA3F
+ C62E6659CCD5589D58496C4B1C392E2AAE366E6CBEDFFCEDF387E29DE20BE37B
+ 17982FC85D7079A1CEC2F485A716A92E122C3A96404C884E3894F041102AA816
+ 8C25F21377258E0A79C21DC267222FD136D188D8435C2A1E4EF2482A4D7A92EC
+ 91BC357924C533A52CE5B98427A990BC4C0D4CDD9B3A9E169A76206D323D3ABD
+ 31839291907142AA214D93B667EA67E66676CBAC6585B2FEC56E8BB72F1E9507
+ C96BB390AC05592D0AB642A6E8545A28D72A07B267655766BFCD89CA3996AB9E
+ 2BCDEDCCB3CADB90379CEF9FFFED12C212E192B6A5864B572D1D58E6BDAC6A39
+ B23C7179DB0AE315052B865606AC3CB88AB62A6DD54FABED5797AE7EBD267A4D
+ 6B815EC1CA82C1B5016BEB0B550AE5857DEBDCD7ED5D4F582F59DFB561FA869D
+ 1B3E15898AAE14DB1797157FD828DC78E51B876FCABF99DC94B4A9ABC4B964CF
+ 66D266E9E6DE2D9E5B0E96AA97E6970E6E0DD9DAB40DDF56B4EDF5F645DB2F97
+ CD28DBBB83B643B9A3BF3CB8BC65A7C9CECD3B3F54A454F454FA5436EED2DDB5
+ 61D7F86ED1EE1B7BBCF634ECD5DB5BBCF7FD3EC9BEDB5501554DD566D565FB49
+ FBB3F73FAE89AAE9F896FB6D5DAD4E6D71EDC703D203FD07230EB6D7B9D4D51D
+ D23D54528FD62BEB470EC71FBEFE9DEF772D0D360D558D9CC6E223704479E4E9
+ F709DFF71E0D3ADA768C7BACE107D31F761D671D2F6A429AF29A469B539AFB5B
+ 625BBA4FCC3ED1D6EADE7AFC47DB1F0F9C343C59794AF354C969DAE982D39367
+ F2CF8C9D959D7D7E2EF9DC60DBA2B67BE763CEDF6A0F6FEFBA1074E1D245FF8B
+ E73BBC3BCE5CF2B874F2B2DBE51357B8579AAF3A5F6DEA74EA3CFE93D34FC7BB
+ 9CBB9AAEB95C6BB9EE7ABDB57B66F7E91B9E37CEDDF4BD79F116FFD6D59E393D
+ DDBDF37A6FF7C5F7F5DF16DD7E7227FDCECBBBD97727EEADBC4FBC5FF440ED41
+ D943DD87D53F5BFEDCD8EFDC7F6AC077A0F3D1DC47F7068583CFFE91F58F0F43
+ 058F998FCB860D86EB9E383E3939E23F72FDE9FCA743CF64CF269E17FEA2FECB
+ AE17162F7EF8D5EBD7CED198D1A197F29793BF6D7CA5FDEAC0EB19AFDBC6C2C6
+ 1EBEC97833315EF456FBEDC177DC771DEFA3DF0F4FE47C207F28FF68F9B1F553
+ D0A7FB93199393FF040398F3FC63332DDB000000434944415478DA63FCFFFF3F
+ 03258011D900464646ACA601D530126D00BA6298A1B80C21CA0090183639925C
+ 80CB3B040DC0E69A510306BD010C04005E03C801036F00008D248BE16F9028BA
+ 0000000049454E44AE426082}
+ Name = 'Icono_header'
+ Background = clWindow
+ end
+ item
+ PngImage.Data = {
+ 89504E470D0A1A0A0000000D49484452000000100000001008060000001FF3FF
+ 610000000970485973000017120000171201679FD252000001774944415478DA
+ 63FCFFFF3FC384055BFF3390010A12BC1919610600394469FAF3F71FC3EF3F7F
+ 192CBCB3192EEE99856A80C35E4B14C5079C8F836964F1ED368718662EDFC530
+ 7FC9464C03F0815FBFFF826D06D10BD7EDC36E00BA0BB0815586BB18966D3A84
+ DB0098B341E01F50EECF9F7F709B034F3B312CD3DDC1B06ADB11FC06C05CB2CB
+ EE0883DB211BB8CD61E7DD18166A6E6558BFEB387E03D06DFEFDE70F981F75D9
+ 8361AEEA2686CDFB4EE136609FD33106A77D56605BD79BEE033B1B044036C75F
+ F76698AEB88161E7A133B80D00391BDDE69FBFFE30FC028AA5DFF567E8975CCD
+ 70F0D4454C0372623D195C0E58A384F862ED6D0CB157BDC0EC2972EB18721E05
+ 317489AE643876EE32A601E9916E605BFEFCFE07B639E2A23BC37CF52D60B1DF
+ BF21B8F0792843ABE03286D397AE611A9018EA0CD70CF202CC6674D0C0BB98E1
+ C2B59B9806C40638C23583FC8D6CF36F688C80F0BF7FFF192EDDB8856940848F
+ 2DC38A2D8789CE89180680044805200300115980F04CC063740000000049454E
+ 44AE426082}
+ Name = 'PngImage2'
+ Background = clWindow
+ end
+ item
+ PngImage.Data = {
+ 89504E470D0A1A0A0000000D49484452000000100000001008060000001FF3FF
+ 610000000970485973000017120000171201679FD25200000A4F694343505068
+ 6F746F73686F70204943432070726F66696C65000078DA9D53675453E9163DF7
+ DEF4424B8880944B6F5215082052428B801491262A2109104A8821A1D91551C1
+ 114545041BC8A088038E8E808C15512C0C8A0AD807E421A28E83A3888ACAFBE1
+ 7BA36BD6BCF7E6CDFEB5D73EE7ACF39DB3CF07C0080C9648335135800CA9421E
+ 11E083C7C4C6E1E42E40810A2470001008B3642173FD230100F87E3C3C2B22C0
+ 07BE000178D30B0800C04D9BC0301C87FF0FEA42995C01808401C07491384B08
+ 801400407A8E42A600404601809D98265300A0040060CB6362E300502D006027
+ 7FE6D300809DF8997B01005B94211501A09100201365884400683B00ACCF568A
+ 450058300014664BC43900D82D00304957664800B0B700C0CE100BB200080C00
+ 305188852900047B0060C8232378008499001446F2573CF12BAE10E72A000078
+ 99B23CB9243945815B082D710757572E1E28CE49172B14366102619A402EC279
+ 99193281340FE0F3CC0000A0911511E083F3FD78CE0EAECECE368EB60E5F2DEA
+ BF06FF226262E3FEE5CFAB70400000E1747ED1FE2C2FB31A803B06806DFEA225
+ EE04685E0BA075F78B66B20F40B500A0E9DA57F370F87E3C3C45A190B9D9D9E5
+ E4E4D84AC4425B61CA577DFE67C25FC057FD6CF97E3CFCF7F5E0BEE22481325D
+ 814704F8E0C2CCF44CA51CCF92098462DCE68F47FCB70BFFFC1DD322C44962B9
+ 582A14E35112718E449A8CF332A52289429229C525D2FF64E2DF2CFB033EDF35
+ 00B06A3E017B912DA85D6303F64B27105874C0E2F70000F2BB6FC1D428080380
+ 6883E1CF77FFEF3FFD47A02500806649927100005E44242E54CAB33FC7080000
+ 44A0812AB0411BF4C1182CC0061CC105DCC10BFC6036844224C4C24210420A64
+ 801C726029AC82422886CDB01D2A602FD4401D34C051688693700E2EC255B80E
+ 3D700FFA61089EC128BC81090441C808136121DA8801628A58238E08179985F8
+ 21C14804128B2420C9881451224B91354831528A542055481DF23D720239875C
+ 46BA913BC8003282FC86BC47319481B2513DD40CB543B9A8371A8446A20BD064
+ 74319A8F16A09BD072B41A3D8C36A1E7D0AB680FDA8F3E43C730C0E8180733C4
+ 6C302EC6C342B1382C099363CBB122AC0CABC61AB056AC03BB89F563CFB17704
+ 128145C0093604774220611E4148584C584ED848A8201C243411DA0937090384
+ 51C2272293A84BB426BA11F9C4186232318758482C23D6128F132F107B8843C4
+ 37241289433227B9900249B1A454D212D246D26E5223E92CA99B34481A2393C9
+ DA646BB20739942C202BC885E49DE4C3E433E41BE421F25B0A9D624071A4F853
+ E22852CA6A4A19E510E534E5066598324155A39A52DDA8A15411358F5A42ADA1
+ B652AF5187A81334759A39CD8316494BA5ADA295D31A681768F769AFE874BA11
+ DD951E4E97D057D2CBE947E897E803F4770C0D861583C7886728199B18071867
+ 197718AF984CA619D38B19C754303731EB98E7990F996F55582AB62A7C1591CA
+ 0A954A9526951B2A2F54A9AAA6AADEAA0B55F355CB548FA95E537DAE46553353
+ E3A909D496AB55AA9D50EB531B5367A93BA887AA67A86F543FA47E59FD890659
+ C34CC34F43A451A0B15FE3BCC6200B6319B3782C216B0DAB86758135C426B1CD
+ D97C762ABB98FD1DBB8B3DAAA9A13943334A3357B352F394663F07E39871F89C
+ 744E09E728A797F37E8ADE14EF29E2291BA6344CB931655C6BAA96979658AB48
+ AB51AB47EBBD36AEEDA79DA6BD45BB59FB810E41C74A275C2747678FCE059DE7
+ 53D953DDA70AA7164D3D3AF5AE2EAA6BA51BA1BB4477BF6EA7EE989EBE5E809E
+ 4C6FA7DE79BDE7FA1C7D2FFD54FD6DFAA7F5470C5806B30C2406DB0CCE183CC5
+ 35716F3C1D2FC7DBF151435DC34043A561956197E18491B9D13CA3D5468D460F
+ 8C69C65CE324E36DC66DC6A326062621264B4DEA4DEE9A524DB9A629A63B4C3B
+ 4CC7CDCCCDA2CDD699359B3D31D732E79BE79BD79BDFB7605A785A2CB6A8B6B8
+ 6549B2E45AA659EEB6BC6E855A3959A558555A5DB346AD9DAD25D6BBADBBA711
+ A7B94E934EAB9ED667C3B0F1B6C9B6A9B719B0E5D806DBAEB66DB67D61676217
+ 67B7C5AEC3EE93BD937DBA7D8DFD3D070D87D90EAB1D5A1D7E73B472143A563A
+ DE9ACE9CEE3F7DC5F496E92F6758CF10CFD833E3B613CB29C4699D539BD34767
+ 1767B97383F3888B894B82CB2E973E2E9B1BC6DDC8BDE44A74F5715DE17AD2F5
+ 9D9BB39BC2EDA8DBAFEE36EE69EE87DC9FCC349F299E593373D0C3C843E051E5
+ D13F0B9F95306BDFAC7E4F434F8167B5E7232F632F9157ADD7B0B7A577AAF761
+ EF173EF63E729FE33EE33C37DE32DE595FCC37C0B7C8B7CB4FC36F9E5F85DF43
+ 7F23FF64FF7AFFD100A78025016703898141815B02FBF87A7C21BF8E3F3ADB65
+ F6B2D9ED418CA0B94115418F82AD82E5C1AD2168C8EC90AD21F7E798CE91CE69
+ 0E85507EE8D6D00761E6618BC37E0C2785878557863F8E7088581AD131973577
+ D1DC4373DF44FA449644DE9B67314F39AF2D4A352A3EAA2E6A3CDA37BA34BA3F
+ C62E6659CCD5589D58496C4B1C392E2AAE366E6CBEDFFCEDF387E29DE20BE37B
+ 17982FC85D7079A1CEC2F485A716A92E122C3A96404C884E3894F041102AA816
+ 8C25F21377258E0A79C21DC267222FD136D188D8435C2A1E4EF2482A4D7A92EC
+ 91BC357924C533A52CE5B98427A990BC4C0D4CDD9B3A9E169A76206D323D3ABD
+ 31839291907142AA214D93B667EA67E66676CBAC6585B2FEC56E8BB72F1E9507
+ C96BB390AC05592D0AB642A6E8545A28D72A07B267655766BFCD89CA3996AB9E
+ 2BCDEDCCB3CADB90379CEF9FFFED12C212E192B6A5864B572D1D58E6BDAC6A39
+ B23C7179DB0AE315052B865606AC3CB88AB62A6DD54FABED5797AE7EBD267A4D
+ 6B815EC1CA82C1B5016BEB0B550AE5857DEBDCD7ED5D4F582F59DFB561FA869D
+ 1B3E15898AAE14DB1797157FD828DC78E51B876FCABF99DC94B4A9ABC4B964CF
+ 66D266E9E6DE2D9E5B0E96AA97E6970E6E0DD9DAB40DDF56B4EDF5F645DB2F97
+ CD28DBBB83B643B9A3BF3CB8BC65A7C9CECD3B3F54A454F454FA5436EED2DDB5
+ 61D7F86ED1EE1B7BBCF634ECD5DB5BBCF7FD3EC9BEDB5501554DD566D565FB49
+ FBB3F73FAE89AAE9F896FB6D5DAD4E6D71EDC703D203FD07230EB6D7B9D4D51D
+ D23D54528FD62BEB470EC71FBEFE9DEF772D0D360D558D9CC6E223704479E4E9
+ F709DFF71E0D3ADA768C7BACE107D31F761D671D2F6A429AF29A469B539AFB5B
+ 625BBA4FCC3ED1D6EADE7AFC47DB1F0F9C343C59794AF354C969DAE982D39367
+ F2CF8C9D959D7D7E2EF9DC60DBA2B67BE763CEDF6A0F6FEFBA1074E1D245FF8B
+ E73BBC3BCE5CF2B874F2B2DBE51357B8579AAF3A5F6DEA74EA3CFE93D34FC7BB
+ 9CBB9AAEB95C6BB9EE7ABDB57B66F7E91B9E37CEDDF4BD79F116FFD6D59E393D
+ DDBDF37A6FF7C5F7F5DF16DD7E7227FDCECBBBD97727EEADBC4FBC5FF440ED41
+ D943DD87D53F5BFEDCD8EFDC7F6AC077A0F3D1DC47F7068583CFFE91F58F0F43
+ 058F998FCB860D86EB9E383E3939E23F72FDE9FCA743CF64CF269E17FEA2FECB
+ AE17162F7EF8D5EBD7CED198D1A197F29793BF6D7CA5FDEAC0EB19AFDBC6C2C6
+ 1EBEC97833315EF456FBEDC177DC771DEFA3DF0F4FE47C207F28FF68F9B1F553
+ D0A7FB93199393FF040398F3FC63332DDB000001E64944415478DA63FCFFFF3F
+ C394C53BFE33900172623D18196106003958157D79F594E1EDFC1E860F1F3E30
+ 000906B5C6A90C0CFCA20CD6FEF90CE7764C4335C065BF2D8AE63D8E87191E76
+ 163208282830F0FFF8C0F0F1C103865DD76E33BCF4A96198B77413A601D8C0C5
+ CA44067DA0010C2736005DF080E1C8673E860BF133B11B80EE0210E85D25C2A0
+ AF0134E0C002868F405F6CF9F28FE17DDE4ADC06809C0D03FF807217FB6A1884
+ DE5C6390BF7080E123D01B9B1D2B183E28DAE33700E6926D3607181AE77932A4
+ DDE0061AB081E122D005DFFA0F329C7DFC0DBF01209BFFFCF9C7F0FBCF5F30BE
+ E8A7C560F0E301C3EC9F2C0C411B9F336C3B7006B701BB1C0E31B81DB003BB60
+ 8DC92E8690336E0C4A47BF30746FBDC09060ABC4D091799C61F79173B80D0039
+ 1B663308835CF2F3D71F868B39C10C93F3FE30F44AAE60387CFA32A60119516E
+ 0C1E87EC51626081D66686846BBE6076F5CD108656F5350C1DA2CB184E9CBF8A
+ 6940729833DC46101D7DC98B618EDA4630FBC7C5830C7CD78F32B4F21D6648B4
+ 5CC370F6F20D4C03E2821C50020E663308CC3D65C2200F4C07131F3030182E3E
+ C370E9FA6D4C03A2FCEC50FC0D66FF86F0DF6E9BCB7079763F83727C11038F53
+ 24C3959B77300D08F5B26658BDED28D13911C3009000A900640000B9248BF0E9
+ 9199330000000049454E44AE426082}
+ Name = 'PngImage1'
+ Background = clWindow
+ end
+ item
+ PngImage.Data = {
+ 89504E470D0A1A0A0000000D49484452000000100000001008060000001FF3FF
+ 61000000097048597300000AEB00000AEB01828B0D5A0000027F4944415478DA
+ 95926D48535118C79FDB268AA54485D62C4C50962CDC87F5416D9AB966CEA440
+ A4E84D828C304C89B217DB87D00F65252B69422F9A4161D6A0507C6D595A6450
+ 83CC55787129CE19949B6DD3DDEDDE9D73BABB561835D3030FCF39E739FFDFF3
+ C2A1608EF5A1467A415632783A589C100254B0A0EB5A623A9392DCD365B89DBE
+ FF3CBC5830C0DD9DD726922B34EFDAEB5B53F75972170470D4C8E461DB724D78
+ 091139AC66F4FC5E9BA24007FDF3064C75E6DE7DE94BD8DBDC4A834615014B5D
+ BD8D6985E37BE6056074D2B544934357DCFA1CD2FBEA1B6C908742E96EAFBFFB
+ 7E5FE2A15A18FA2FC0F978B35E9CBAE94895EE2DB474D82053B918CA4BA2A1BF
+ D37823B3D879784E80BB36298ADA98368C97937043F3185CACA1E164F12AD89E
+ 1509132316E659BB39A14807B6A000E74365A5282D43EB67BFC020FD1D76159A
+ C0502785D8984580B8691830BEA9561F634EFC1340AAA4111E55C60817859611
+ E4038EF34256FE6BE86C5A0F807D4010035F2DA3EE1EA32DEEA81EEC7F0126EF
+ 288E87A8D597389F8DC28280858ACB9FE06C690CBFF702E60DB153E463EF70C5
+ D632EEDC1F00FA6A7CA824397D888B46AB671EF300CC826DDC092B5710411CB0
+ 406C62D86EEFEA72C69DAA07F76FC0645DD241B15A7D93E3C6A85FE2471D5E68
+ 6872C1CE1C2FE46BF0AC2A1842F7B9CBB2CFF8AB05007900A26949819995E075
+ 184D43A0FF400B95575CD0FED4010A9907AAB5E1BC9801EC9FA9C261656D0346
+ 7FFC8106E2A55C7A591EA551197CC84A1121BB4FC8346AF540CB1307A8950462
+ 25E8670B8CD01E6611B198C445D9E5DC75EABD7E4DA32B322C05630F3F15BE54
+ 82788F788FF9E9FB679D9110C781FBC077B753433BB478CB0F7C3B8CF0987D51
+ CF0000000049454E44AE426082}
+ Name = 'PngImage3'
+ Background = clWindow
+ end
+ item
+ PngImage.Data = {
+ 89504E470D0A1A0A0000000D49484452000000100000001008060000001FF3FF
+ 61000000097048597300000AEB00000AEB01828B0D5A000001DA4944415478DA
+ 63FCFFFF3F032580912C5DF2F33964B539E3DF7DF8F1956403380CE7C85B5929
+ CFFAF99ED7FCFCED9BE124192060B7D8D6CE5279E99B876C42674FFC0CFEF9C0
+ 7A27D10628FBAF0FB030915F74E7EA6FE6F387FF87FD7A6AB195E83090F55915
+ EEE7A23BE7FCD9CFAC170EFF4EFDF6C07A31D18128E1BE3CC8DB597BE1A3BBBF
+ B98EECFA91FBFDBEF574A0F07FA20C10B09B67EBE366B8E3CDF37F9C47F77CED
+ FC7CD3AE125D0DC400B3897C9CCCBCEADFD9182F331C4CFC010E6DCB39F29E0E
+ 3A07599939E477AE7FBFFBE3CF4BBE0C77F27F621820EAB848DFDC447931372B
+ 9FE68E5DF7577F3C73368E414588D9C6496BB3AA92B8CBDECD9FDEBC7CF9D3F2
+ E71DE7BBD85CC928EAB438C4C7556F3A0B1B8BC8B1BD9FFFDE7B753F4C41994B
+ C3CA48B1E5F09ECFFFEF3F7D19F3FB5AD0725CDE047B41276243A09D85FAAAA7
+ CFBFB11CDEFBEA8EA79F98E4C3FBBFB8CF9F7BBDE5EB453F3FE440C31E060CF5
+ 4C4ED9F63B6565845D5EBEFEF29F11287AE9C4AF2FAFBF3D32FF753EFE3ABE80
+ 86C7028FF5429B101F83FDCF5F7F66797697E1FFCDDB6FA7FFBAE69F4D289A91
+ A2B19EC539C7E1C49BC7EC46F71EBDD9FFF9DFD338868B994F4930808181D76E
+ 413EF33F56D90F0F5ED4323C29FE4E4833080000904EC47A3EA3126900000000
+ 49454E44AE426082}
+ Name = 'PngImage4'
+ Background = clWindow
+ end
+ item
+ PngImage.Data = {
+ 89504E470D0A1A0A0000000D49484452000000100000001008060000001FF3FF
+ 61000001E34944415478DAA5932D72E43010855F98D934341BC1858261D10D76
+ 8E3047305C1685051A067A59A0E042E70682863D6C608719EE6B399EADDABFAA
+ AD7595CAB2DCFDF5EB1FDDE13F9FBB9F0FF258225F27AEC415D109B05A35C3CC
+ EF32E653FD2380CE035F4388720C41609DC2D68ABA28B42688E1820E79CAE7E9
+ 17407316E4788F43E8033CF2F46D42F804E8E29084E0A2ACBE7B90E9798334C0
+ 40D9145AC2BD1E8591A58B5CFE27406D462915EA59AD4A70812CF142FBD3340E
+ 750764113C8648C9A214E20A0C762560A1A925A662A8FDD0D48A06846B782220
+ 6F80E732C7181F14858079CB69895B1D57D6824BBB99FF4A03C9952134BD9597
+ 21ED008BF1F341F52BAA3035098CC23428DB561A70D53EC39888EFB941D4F45E
+ 5EB2DC0021A6035BC56A0F306660BD1B464A3DB5A8B00CED89606A62B201A61D
+ 90CB8C3E3EA03BD2F002BD8EF4550FB441D421532B62658D02CFC4C2DBFC9AD3
+ 0EC86CDBA349DC24B2F7BA8E2D227BCF9CFD3CB573EC69409EE6D731EF804899
+ EC4F3CB6D631927623FFD48F5AC84741B1B572D58B4FEB5CC67A1BA4739ECE34
+ 18D185435DE756B070B5CDB17305B63BB741A2F38F41BA41BE38C4324D8FE6C6
+ 3E0FBE7CEF15F602716877E7DF5EA6F330B6CBC4F6A55641CAE69EC973245714
+ 97FDD7DBF8AFCF7740E00D20BA266C3A0000000049454E44AE426082}
+ Name = 'PngImage5'
+ Background = clWindow
+ end>
+ Bitmap = {}
+ end
+ inherited cxStyleRepository1: TcxStyleRepository
+ Left = 216
+ Top = 160
+ object cxStylePENDIENTESYFACTURADASPLUS: TcxStyle
+ AssignedValues = [svTextColor]
+ TextColor = clBlue
+ end
+ object cxStyleTERMINADO: TcxStyle
+ AssignedValues = [svTextColor]
+ TextColor = clGrayText
+ end
+ object cxStylePENDIENTES: TcxStyle
+ AssignedValues = [svTextColor]
+ TextColor = clRed
+ end
+ object cxStylePENDIENTESYFACTURADASOK: TcxStyle
+ AssignedValues = [svTextColor]
+ TextColor = clBlack
+ end
+ object cxStylePENDIENTESREVISION: TcxStyle
+ AssignedValues = [svTextColor]
+ TextColor = clOlive
+ end
+ object cxStylePENDIENTESREVISIONWEB: TcxStyle
+ AssignedValues = [svTextColor]
+ TextColor = clGreen
+ end
+ end
+end
diff --git a/Source/Modulos/Contratos de cliente/Views/uViewContratosClienteParaCompra.pas b/Source/Modulos/Contratos de cliente/Views/uViewContratosClienteParaCompra.pas
new file mode 100644
index 0000000..7b03b8a
--- /dev/null
+++ b/Source/Modulos/Contratos de cliente/Views/uViewContratosClienteParaCompra.pas
@@ -0,0 +1,541 @@
+unit uViewContratosClienteParaCompra;
+
+interface
+
+uses
+ uViewGrid, cxStyles, cxCustomData, cxGraphics, cxFilter,
+ cxData, cxDataStorage, cxEdit, DB, cxDBData, dxPSGlbl, dxPSUtl, dxPSEngn,
+ dxPrnPg, dxBkgnd, dxWrap, dxPrnDev, dxPSCompsProvider, dxPSFillPatterns,
+ dxPSEdgePatterns, cxImageComboBox, ImgList, Controls, PngImageList,
+ cxGridCustomTableView, cxGridTableView, cxGridDBTableView,
+ cxGridCustomPopupMenu, cxGridPopupMenu, dxPSCore, dxPScxCommon, dxPScxGrid6Lnk,
+ uDADataTable, cxGridLevel, cxClasses, cxControls, cxGridCustomView, Classes,
+ cxGrid, uBizContratosCliente, cxCurrencyEdit, Forms, uViewFiltroBase, ActnList, TB2Item,
+ TBX, TB2Toolbar, TBXDkPanels, TB2Dock, dxPgsDlg, uDAInterfaces, Windows,
+ uCustomView, uViewBase, cxTextEdit;
+
+type
+ IViewContratosCliente = interface(IViewGrid)
+ ['{89FCCB14-46E9-4B45-BADD-847C881CCE1A}']
+ function GetContratos: IBizContratoCliente;
+ procedure SetContratos(const Value: IBizContratoCliente);
+ property Contratos: IBizContratoCliente read GetContratos write SetContratos;
+ end;
+
+ TfrViewContratosClienteParaCompra = class(TfrViewGrid, IViewContratosCliente)
+ cxGridViewREFERENCIA: TcxGridDBColumn;
+ cxGridViewINCIDENCIASACTIVAS: TcxGridDBColumn;
+ cxGridViewNOMBRE: TcxGridDBColumn;
+ cxGridViewSITUACION: TcxGridDBColumn;
+ cxGridViewFECHA_CONTRATO: TcxGridDBColumn;
+ cxGridViewIMPORTE_TOTAL: TcxGridDBColumn;
+ cxGridLevelPendientes: TcxGridLevel;
+ cxGridLevelTerminados: TcxGridLevel;
+ cxStylePENDIENTESYFACTURADASPLUS: TcxStyle;
+ actCliente: TAction;
+ TBXSeparatorItem2: TTBXSeparatorItem;
+ TBXItem3: TTBXItem;
+ cxGridViewNIF_CIF: TcxGridDBColumn;
+ cxGridViewINCIDENCIAS: TcxGridDBColumn;
+ cxStyleTERMINADO: TcxStyle;
+ cxGridViewTIPO_CONTRATO: TcxGridDBColumn;
+ cxGridViewREFERENCIA_CLIENTE: TcxGridDBColumn;
+ cxGridViewFACTURA_ASOCIADA: TcxGridDBColumn;
+ cxStylePENDIENTES: TcxStyle;
+ cxGridViewIMPORTE_IVA: TcxGridDBColumn;
+ cxGridViewIVA: TcxGridDBColumn;
+ cxGridViewBASE_IMPONIBLE: TcxGridDBColumn;
+ cxGridViewNOMBRE_COMERCIAL_CLIENTE: TcxGridDBColumn;
+ cxGridViewPROCEDENCIA_CLIENTE: TcxGridDBColumn;
+ TBXSeparatorItem1: TTBXSeparatorItem;
+ TBXItem2: TTBXItem;
+ actProcedencia: TAction;
+ cxGridViewVENDEDOR: TcxGridDBColumn;
+ cxGridViewBASE_IMPONIBLE_FACTURAS: TcxGridDBColumn;
+ cxStylePENDIENTESYFACTURADASOK: TcxStyle;
+ cxGridViewTIENDA: TcxGridDBColumn;
+ cxGridLevelPendientesRevisar: TcxGridLevel;
+ cxStylePENDIENTESREVISION: TcxStyle;
+ cxGridViewENVIADA_REVISADA: TcxGridDBColumn;
+ cxGridLevelCancelados: TcxGridLevel;
+ cxGridViewPROVINCIA: TcxGridDBColumn;
+ actProvincia: TAction;
+ TBXSeparatorItem3: TTBXSeparatorItem;
+ TBXItem4: TTBXItem;
+ cxGridViewAGENTE: TcxGridDBColumn;
+ cxGridViewDELEGACION: TcxGridDBColumn;
+ actComercial: TAction;
+ actDelegacion: TAction;
+ TBXSeparatorItem4: TTBXSeparatorItem;
+ TBXSeparatorItem5: TTBXSeparatorItem;
+ TBXItem5: TTBXItem;
+ TBXItem6: TTBXItem;
+ cxGridViewINSTALADOR: TcxGridDBColumn;
+ actInstalador: TAction;
+ TBXSeparatorItem6: TTBXSeparatorItem;
+ TBXItem7: TTBXItem;
+ actTienda: TAction;
+ TBXSeparatorItem7: TTBXSeparatorItem;
+ TBXItem8: TTBXItem;
+ cxGridViewPAIS: TcxGridDBColumn;
+ cxGridViewIDIOMA: TcxGridDBColumn;
+ actPais: TAction;
+ TBXSeparatorItem8: TTBXSeparatorItem;
+ TBXItem9: TTBXItem;
+ cxGridViewDTO: TcxGridDBColumn;
+ cxGridViewIMPORTE_NETO: TcxGridDBColumn;
+ cxGridViewIMPORTE_DESCUENTO: TcxGridDBColumn;
+ cxStylePENDIENTESREVISIONWEB: TcxStyle;
+ cxGridViewREFERENCIA_ABETO: TcxGridDBColumn;
+ procedure cxGridActiveTabChanged(Sender: TcxCustomGrid; ALevel:
+ TcxGridLevel);
+ procedure cxGridViewStylesGetContentStyle(Sender: TcxCustomGridTableView;
+ ARecord: TcxCustomGridRecord; AItem: TcxCustomGridTableItem; out
+ AStyle: TcxStyle);
+ procedure actClienteExecute(Sender: TObject);
+ procedure actClienteUpdate(Sender: TObject);
+ procedure cxGridViewICONOCustomDrawCell(Sender: TcxCustomGridTableView;
+ ACanvas: TcxCanvas; AViewInfo: TcxGridTableDataCellViewInfo;
+ var ADone: Boolean);
+ procedure cxGridViewINCIDENCIASACTIVASGetCellHint(
+ Sender: TcxCustomGridTableItem; ARecord: TcxCustomGridRecord;
+ ACellViewInfo: TcxGridTableDataCellViewInfo; const AMousePos: TPoint;
+ var AHintText: TCaption; var AIsHintMultiLine: Boolean;
+ var AHintTextRect: TRect);
+ procedure cxGridViewDataControllerCompare(
+ ADataController: TcxCustomDataController; ARecordIndex1, ARecordIndex2,
+ AItemIndex: Integer; const V1, V2: Variant; var Compare: Integer);
+ procedure actProcedenciaExecute(Sender: TObject);
+ procedure actProcedenciaUpdate(Sender: TObject);
+ procedure actProvinciaExecute(Sender: TObject);
+ procedure actProvinciaUpdate(Sender: TObject);
+ procedure actComercialExecute(Sender: TObject);
+ procedure actComercialUpdate(Sender: TObject);
+ procedure actDelegacionExecute(Sender: TObject);
+ procedure actDelegacionUpdate(Sender: TObject);
+ procedure actInstaladorExecute(Sender: TObject);
+ procedure actInstaladorUpdate(Sender: TObject);
+ procedure actTiendaExecute(Sender: TObject);
+ procedure actTiendaUpdate(Sender: TObject);
+ procedure actPaisExecute(Sender: TObject);
+ procedure actPaisUpdate(Sender: TObject);
+
+ private
+ //Filtros relativos a la vista
+ procedure AnadirFiltroSituaciones;
+ procedure AnadirFiltroFechas;
+
+ protected
+ FContratos: IBizContratoCliente;
+ function GetContratos: IBizContratoCliente;
+ procedure SetContratos(const Value: IBizContratoCliente);
+ public
+ procedure AnadirOtrosFiltros; override;
+ procedure ConfigView; override;
+ property Contratos: IBizContratoCliente read GetContratos write SetContratos;
+ end;
+
+implementation
+
+uses
+ SysUtils, variants, uDataModuleContratosCliente, schContratosClienteClient_Intf,
+ uViewGridBase, uFactuGES_App,
+ //uReferenciasUtils,
+ cxVariants;
+
+{$R *.dfm}
+
+procedure TfrViewContratosClienteParaCompra.actClienteExecute(Sender: TObject);
+begin
+ if (cxGridViewNOMBRE.GroupIndex < 0) then
+ begin
+ cxGridViewNOMBRE.GroupIndex := cxGridView.GroupedColumnCount;
+ cxGridViewNOMBRE.Visible := False;
+ end
+ else
+ begin
+ cxGridViewNOMBRE.GroupIndex := -1;
+ cxGridViewNOMBRE.Visible := True;
+ end;
+end;
+
+procedure TfrViewContratosClienteParaCompra.actClienteUpdate(Sender: TObject);
+begin
+ inherited;
+ (Sender as TAction).Checked := not (cxGridViewNOMBRE.GroupIndex < 0);
+end;
+
+procedure TfrViewContratosClienteParaCompra.actComercialExecute(Sender: TObject);
+begin
+{ if (cxGridViewAGENTE.GroupIndex < 0) then
+ begin
+ cxGridViewAGENTE.GroupIndex := cxGridView.GroupedColumnCount;
+ cxGridViewAGENTE.Visible := False;
+ end
+ else
+ begin
+ cxGridViewAGENTE.GroupIndex := -1;
+ cxGridViewAGENTE.Visible := True;
+ end;
+}
+end;
+
+procedure TfrViewContratosClienteParaCompra.actComercialUpdate(Sender: TObject);
+begin
+ inherited;
+// (Sender as TAction).Checked := not (cxGridViewAGENTE.GroupIndex < 0);
+end;
+
+procedure TfrViewContratosClienteParaCompra.actDelegacionExecute(Sender: TObject);
+begin
+ if (cxGridViewDELEGACION.GroupIndex < 0) then
+ begin
+ cxGridViewDELEGACION.GroupIndex := cxGridView.GroupedColumnCount;
+ cxGridViewDELEGACION.Visible := False;
+ end
+ else
+ begin
+ cxGridViewDELEGACION.GroupIndex := -1;
+ cxGridViewDELEGACION.Visible := True;
+ end;
+end;
+
+procedure TfrViewContratosClienteParaCompra.actDelegacionUpdate(Sender: TObject);
+begin
+ inherited;
+ (Sender as TAction).Checked := not (cxGridViewDELEGACION.GroupIndex < 0);
+end;
+
+procedure TfrViewContratosClienteParaCompra.actInstaladorExecute(Sender: TObject);
+begin
+ if (cxGridViewINSTALADOR.GroupIndex < 0) then
+ begin
+ cxGridViewINSTALADOR.GroupIndex := cxGridView.GroupedColumnCount;
+ cxGridViewINSTALADOR.Visible := False;
+ end
+ else
+ begin
+ cxGridViewINSTALADOR.GroupIndex := -1;
+ cxGridViewINSTALADOR.Visible := True;
+ end;
+end;
+
+procedure TfrViewContratosClienteParaCompra.actInstaladorUpdate(Sender: TObject);
+begin
+ inherited;
+ (Sender as TAction).Checked := not (cxGridViewINSTALADOR.GroupIndex < 0);
+ (Sender as TAction).Enabled := (AppFactuGES.EmpresaActiva.ID = CTE_EMPRESA_ABETO);
+ (Sender as TAction).Visible := (AppFactuGES.EmpresaActiva.ID = CTE_EMPRESA_ABETO);
+end;
+
+procedure TfrViewContratosClienteParaCompra.actPaisExecute(Sender: TObject);
+begin
+ if (cxGridViewPAIS.GroupIndex < 0) then
+ begin
+ cxGridViewPAIS.GroupIndex := cxGridView.GroupedColumnCount;
+ cxGridViewPAIS.Visible := False;
+ end
+ else
+ begin
+ cxGridViewPAIS.GroupIndex := -1;
+ cxGridViewPAIS.Visible := True;
+ end;
+end;
+
+procedure TfrViewContratosClienteParaCompra.actPaisUpdate(Sender: TObject);
+begin
+ inherited;
+ (Sender as TAction).Checked := not (cxGridViewPAIS.GroupIndex < 0);
+end;
+
+procedure TfrViewContratosClienteParaCompra.actProcedenciaExecute(Sender: TObject);
+begin
+ if (cxGridViewPROCEDENCIA_CLIENTE.GroupIndex < 0) then
+ begin
+ cxGridViewPROCEDENCIA_CLIENTE.GroupIndex := cxGridView.GroupedColumnCount;
+ cxGridViewPROCEDENCIA_CLIENTE.Visible := False;
+ end
+ else
+ begin
+ cxGridViewPROCEDENCIA_CLIENTE.GroupIndex := -1;
+ cxGridViewPROCEDENCIA_CLIENTE.Visible := True;
+ end;
+end;
+
+procedure TfrViewContratosClienteParaCompra.actProcedenciaUpdate(Sender: TObject);
+begin
+ inherited;
+ (Sender as TAction).Checked := not (cxGridViewPROCEDENCIA_CLIENTE.GroupIndex < 0);
+end;
+
+procedure TfrViewContratosClienteParaCompra.actProvinciaExecute(Sender: TObject);
+begin
+ if (cxGridViewPROVINCIA.GroupIndex < 0) then
+ begin
+ cxGridViewPROVINCIA.GroupIndex := cxGridView.GroupedColumnCount;
+ cxGridViewPROVINCIA.Visible := False;
+ end
+ else
+ begin
+ cxGridViewPROVINCIA.GroupIndex := -1;
+ cxGridViewPROVINCIA.Visible := True;
+ end;
+end;
+
+procedure TfrViewContratosClienteParaCompra.actProvinciaUpdate(Sender: TObject);
+begin
+ inherited;
+ (Sender as TAction).Checked := not (cxGridViewPROVINCIA.GroupIndex < 0);
+end;
+
+procedure TfrViewContratosClienteParaCompra.actTiendaExecute(Sender: TObject);
+begin
+ if (cxGridViewTIENDA.GroupIndex < 0) then
+ begin
+ cxGridViewTIENDA.GroupIndex := cxGridView.GroupedColumnCount;
+ cxGridViewTIENDA.Visible := False;
+ end
+ else
+ begin
+ cxGridViewTIENDA.GroupIndex := -1;
+ cxGridViewTIENDA.Visible := True;
+ end;
+end;
+
+procedure TfrViewContratosClienteParaCompra.actTiendaUpdate(Sender: TObject);
+begin
+ inherited;
+ (Sender as TAction).Checked := not (cxGridViewTIENDA.GroupIndex < 0);
+end;
+
+procedure TfrViewContratosClienteParaCompra.AnadirFiltroFechas;
+var
+ Columna: TcxGridDBColumn;
+ Fecha1, Fecha2: Variant;
+ FFiltro : TcxFilterCriteriaItemList;
+begin
+ Fecha1 := frViewFiltroBase1.edtFechaIniFiltro.EditValue;
+ Fecha2 := frViewFiltroBase1.edtFechaFinFiltro.EditValue;
+
+ if not VarIsNull(Fecha1)
+ and not VarIsNull(Fecha2) then
+ begin
+ cxGridView.DataController.Filter.Options := [fcoCaseInsensitive, fcoSoftCompare];
+ FFiltro := AddFilterGrid(fboAnd);
+
+ Columna := (cxGridView as TcxGridDBTableView).GetColumnByFieldName('FECHA_CONTRATO');
+ FFiltro.AddItem(Columna, foBetween, varArrayOf([Fecha1, Fecha2]), VarToStr(Fecha1) + ' and ' + VarToStr(Fecha2));
+ end;
+end;
+
+procedure TfrViewContratosClienteParaCompra.AnadirFiltroSituaciones;
+var
+ FFiltro : TcxFilterCriteriaItemList;
+ ACriterioDoble: TcxFilterCriteriaItemList;
+
+begin
+ FFiltro := AddFilterGrid(fboAnd);
+
+ case cxGrid.ActiveLevel.Index of
+ 1 : begin
+ FFiltro.AddItem(cxGridViewSITUACION, foEqual, SITUACION_CONTRATO_PENDIENTE, SITUACION_CONTRATO_PENDIENTE);
+ ACriterioDoble := FFiltro.AddItemList(fboOr);
+ ACriterioDoble.AddItem(cxGridViewENVIADA_REVISADA, foEqual, '2', '2');
+ ACriterioDoble.AddItem(cxGridViewENVIADA_REVISADA, foEqual, '10', '10');
+ ACriterioDoble.AddItem(cxGridViewENVIADA_REVISADA, foEqual, '11', '11');
+ end;
+ 2 : FFiltro.AddItem(cxGridViewSITUACION, foEqual, SITUACION_CONTRATO_PENDIENTE, SITUACION_CONTRATO_PENDIENTE);
+ 3 : FFiltro.AddItem(cxGridViewSITUACION, foEqual, SITUACION_CONTRATO_TERMINADO, SITUACION_CONTRATO_TERMINADO);
+ 4 : FFiltro.AddItem(cxGridViewSITUACION, foEqual, SITUACION_CONTRATO_CANCELADO, SITUACION_CONTRATO_CANCELADO);
+ end;
+end;
+
+procedure TfrViewContratosClienteParaCompra.AnadirOtrosFiltros;
+begin
+ inherited;
+
+ AnadirFiltroSituaciones;
+ AnadirFiltroFechas;
+
+ //Finalmente activamos el filtro si tenemos algo
+ if cxGridView.DataController.Filter.IsEmpty then
+ cxGridView.DataController.Filter.Active := False
+ else
+ cxGridView.DataController.Filter.Active := True;
+ cxGrid.ActiveLevel.GridView := cxGridView;
+end;
+
+procedure TfrViewContratosClienteParaCompra.ConfigView;
+begin
+ inherited;
+
+ cxGridLevelPendientesRevisar.Visible := False;
+
+ cxGridViewTIENDA.Visible := True;
+ cxGridViewTIENDA.VisibleForCustomization := True;
+ actTienda.Visible := True;
+
+{
+ cxGridViewAGENTE.Visible := False;
+ cxGridViewAGENTE.VisibleForCustomization := False;
+ actComercial.Visible := False;
+}
+ cxGridViewDELEGACION.Visible := False;
+ cxGridViewDELEGACION.VisibleForCustomization := False;
+ actDelegacion.Visible := False;
+{
+ cxGridViewINSTALADOR.Visible := False;
+ cxGridViewINSTALADOR.VisibleForCustomization := False;
+ actInstalador.Visible := False;
+}
+//FILTRO DE EMPRESAS TIENDA
+ if (AppFactuGES.EmpresaActiva.ID = CTE_EMPRESA_ABETO) then
+ begin
+ cxGridLevelPendientesRevisar.Visible := True;
+
+ cxGridViewTIENDA.Visible := False;
+ cxGridViewTIENDA.VisibleForCustomization := False;
+ actTienda.Visible := False;
+{
+ cxGridViewINSTALADOR.Visible := True;
+ cxGridViewINSTALADOR.VisibleForCustomization := True;
+ actInstalador.Visible := True;
+}
+ end;
+
+//FILTRO DE EMPRESAS COMERCIALES
+ if ((AppFactuGES.EmpresaActiva.ID = CTE_EMPRESA_ABETO)
+ or (AppFactuGES.EmpresaActiva.ID = CTE_EMPRESA_GRADEN)) then
+ begin
+{
+ cxGridViewAGENTE.Visible := True;
+ cxGridViewAGENTE.VisibleForCustomization := True;
+ actComercial.Visible := True;
+}
+ cxGridViewDELEGACION.Visible := True;
+ cxGridViewDELEGACION.VisibleForCustomization := True;
+ actDelegacion.Visible := True;
+ end;
+end;
+
+procedure TfrViewContratosClienteParaCompra.cxGridActiveTabChanged(Sender: TcxCustomGrid; ALevel: TcxGridLevel);
+begin
+ inherited;
+ RefrescarFiltro;
+end;
+
+procedure TfrViewContratosClienteParaCompra.cxGridViewDataControllerCompare(
+ ADataController: TcxCustomDataController; ARecordIndex1, ARecordIndex2,
+ AItemIndex: Integer; const V1, V2: Variant; var Compare: Integer);
+begin
+ inherited;
+{
+ if (AItemIndex = cxGridViewREFERENCIA.Index) and
+ (VarType(V1) = VarType(V2)) and (VarType(V1) = varString) then
+ Compare := CompararReferencias(V1, V2)
+ else
+ Compare := VarCompare(V1, V2);
+}
+end;
+
+procedure TfrViewContratosClienteParaCompra.cxGridViewICONOCustomDrawCell(
+ Sender: TcxCustomGridTableView; ACanvas: TcxCanvas;
+ AViewInfo: TcxGridTableDataCellViewInfo; var ADone: Boolean);
+{var
+ R : TRect;}
+begin
+ inherited;
+{ R := AViewInfo.ContentBounds;
+ ACanvas.FillRect(R);
+
+ if (cxGridView.DataController.DisplayTexts[AViewInfo.GridRecord.RecordIndex,
+ cxGridViewINCIDENCIASACTIVAS.Index] = 'Sin incidencias') then
+ ACanvas.DrawImage(GridPNGImageList, R.Left + 2, R.Top + 2, 1)
+ else
+ ACanvas.DrawImage(GridPNGImageList, R.Left + 2, R.Top + 2, 2);
+ ADone := True;}
+end;
+
+procedure TfrViewContratosClienteParaCompra.cxGridViewINCIDENCIASACTIVASGetCellHint(
+ Sender: TcxCustomGridTableItem; ARecord: TcxCustomGridRecord;
+ ACellViewInfo: TcxGridTableDataCellViewInfo; const AMousePos: TPoint;
+ var AHintText: TCaption; var AIsHintMultiLine: Boolean;
+ var AHintTextRect: TRect);
+begin
+ inherited;
+ if (ARecord.DisplayTexts[Sender.Index] <> 'Sin incidencias') then
+ begin
+ AIsHintMultiLine := True;
+ if not VarIsNull(ARecord.Values[cxGridViewINCIDENCIAS.Index]) then
+ AHintText := ARecord.Values[cxGridViewINCIDENCIAS.Index];
+ end;
+end;
+
+procedure TfrViewContratosClienteParaCompra.cxGridViewStylesGetContentStyle(Sender:
+ TcxCustomGridTableView; ARecord: TcxCustomGridRecord; AItem:
+ TcxCustomGridTableItem; out AStyle: TcxStyle);
+var
+ IndiceCol: Integer;
+ IndiceCol2: Integer;
+ IndiceCol3: Integer;
+ IndiceCol4: Integer;
+ IndiceCol5: integer;
+ ASituacion: string;
+ AFacturas: string;
+ AEnviadasRevisadas: Integer;
+begin
+ inherited;
+
+ if Assigned(ARecord) then
+ begin
+ IndiceCol := (Sender as TcxGridDBTableView).GetColumnByFieldName(fld_ContratosClienteSITUACION).Index;
+ IndiceCol2 := (Sender as TcxGridDBTableView).GetColumnByFieldName(fld_ContratosClienteFACTURA_ASOCIADA).Index;
+ IndiceCol3 := (Sender as TcxGridDBTableView).GetColumnByFieldName(fld_ContratosClienteBASE_IMPONIBLE_FACTURAS).Index;
+ IndiceCol4 := (Sender as TcxGridDBTableView).GetColumnByFieldName(fld_ContratosClienteBASE_IMPONIBLE).Index;
+ IndiceCol5 := (Sender as TcxGridDBTableView).GetColumnByFieldName(fld_ContratosClienteENVIADA_REVISADA).Index;
+ ASituacion := VarToStr(ARecord.DisplayTexts[IndiceCol]);
+ AFacturas := VarToStr(ARecord.DisplayTexts[IndiceCol2]);
+
+
+ //Por aqui pasa muchas veces con distintos componentes del gird, de hecho algunos no tienen el elemento AStyle y si le asignamos algo por defecto como estaba
+ //peta estrepitosamente, hay que asegurarse que el componente que se dibuja tiene AStyle, en el resto no falla, porque no asignamos estile si no cumple ninguna
+ //situación, así asignamos un estile por defecto y lo cambiamos según condiciones.
+ if Assigned(AStyle) then
+ begin
+ AStyle.TextColor := cxStylePENDIENTES.TextColor;
+ if ASituacion = SITUACION_CONTRATO_PENDIENTE then
+ begin
+ //colores por facturacion
+ if (Afacturas <> '') then
+ if (ARecord.Values[IndiceCol3] < ARecord.Values[IndiceCol4]) then
+ AStyle.TextColor := cxStylePENDIENTESYFACTURADASPLUS.TextColor
+ else if (ARecord.Values[IndiceCol3] >= ARecord.Values[IndiceCol4]) then
+ AStyle.TextColor := cxStylePENDIENTESYFACTURADASOK.TextColor;
+
+ //colores por recepción del pedido
+ if (ARecord.Values[IndiceCol5] = 2) then
+ AStyle.TextColor := cxStylePENDIENTESREVISION.TextColor;
+ if ((ARecord.Values[IndiceCol5] = 10)
+ or (ARecord.Values[IndiceCol5] = 11)) then
+ AStyle.TextColor := cxStylePENDIENTESREVISIONWEB.TextColor;
+ end
+ else if (ASituacion = SITUACION_CONTRATO_TERMINADO)
+ or (ASituacion = SITUACION_CONTRATO_CANCELADO) then
+ AStyle.TextColor := cxStyleTERMINADO.TextColor;
+ end;
+ end;
+end;
+
+function TfrViewContratosClienteParaCompra.GetContratos: IBizContratoCliente;
+begin
+ Result := FContratos;
+end;
+
+procedure TfrViewContratosClienteParaCompra.SetContratos(const Value: IBizContratoCliente);
+begin
+ FContratos := Value;
+ if Assigned(FContratos) then
+ dsDataSource.DataTable := FContratos.DataTable;
+end;
+
+end.
diff --git a/Source/Modulos/Contratos de cliente/Views/uViewDatosYSeleccionClienteContrato.pas b/Source/Modulos/Contratos de cliente/Views/uViewDatosYSeleccionClienteContrato.pas
index 5f3f32f..14f66dd 100644
--- a/Source/Modulos/Contratos de cliente/Views/uViewDatosYSeleccionClienteContrato.pas
+++ b/Source/Modulos/Contratos de cliente/Views/uViewDatosYSeleccionClienteContrato.pas
@@ -225,7 +225,7 @@ var
ADireccion : IBizDireccionesContacto;
begin
if FCliente.Direcciones.RecordCount > 0 then
- ADireccion := FClientesController.ElegirDireccionEntrega(FCliente, 'El cliente dispone de varias direcciones. Seleccione la que quiere utilizar.')
+ ADireccion := FClientesController.ElegirDireccion(FCliente, 'El cliente dispone de varias direcciones. Seleccione la que quiere utilizar.')
else begin
ADireccion := FDireccionesController.Nuevo;
FDireccionesController.CopiarDireccionFiscal(FCliente, ADireccion);
diff --git a/Source/Modulos/Facturas de proveedor/Views/uEditorFacturaProveedor - copia.dfm b/Source/Modulos/Facturas de proveedor/Views/uEditorFacturaProveedor - copia.dfm
new file mode 100644
index 0000000..9ed6867
--- /dev/null
+++ b/Source/Modulos/Facturas de proveedor/Views/uEditorFacturaProveedor - copia.dfm
@@ -0,0 +1,678 @@
+inherited fEditorFacturaProveedor: TfEditorFacturaProveedor
+ Left = 454
+ Top = 208
+ Caption = 'Nueva factura de proveedor'
+ ClientHeight = 606
+ ClientWidth = 746
+ Position = poScreenCenter
+ OnClose = CustomEditorClose
+ ExplicitWidth = 762
+ ExplicitHeight = 644
+ PixelsPerInch = 96
+ TextHeight = 13
+ inherited JvNavPanelHeader: TJvNavPanelHeader
+ Width = 746
+ Caption = 'Nueva factura de proveedor'
+ ExplicitWidth = 746
+ inherited Image1: TImage
+ Left = 719
+ Picture.Data = {
+ 0A54504E474F626A65637489504E470D0A1A0A0000000D494844520000001800
+ 0000180806000000E0773DF80000000970485973000017120000171201679FD2
+ 520000000467414D410000B18E7CFB5193000001BE4944415478DA63FCFFFF3F
+ 032D0123B2054BB79CA49A6DD13EE68C582D004A906CD8DFBFFF80F83F980601
+ EBC07C86733BA6E1B6C0B6683F8A0187FB1C711A8EAC765BB315C3C275FB19E6
+ 2DDD84DF02525CEE507A9081455D89E1C08C1D0CEF0FC6312CD97890B005D87C
+ 802E06027B3BEC189C2B0E311CD97F0BCC7FB32F8661F996C394F9E0FF3F6058
+ 03F11FA0EB41EC3FFFFE41E3E01F98BD7ADB51D27D400C00F9E2F18E70860DBB
+ 4E106701CCDBA480075B431936EF3D459C05F8520E3600D2B3A8508F61EB81D3
+ C45B802BA86096C3E4616AE7E7EB32EC387486763E989DA3CDB0E7E839DAF960
+ 46A626C3FE131768E783A969EA0C874E5FC26F4184A729387792E3838929AA0C
+ C7CE5EC16F41A89B09387792E3839E042586D317AFE3B720C8D988C1ADFA0859
+ 1674C62A309CBB7213BF057E8E060C5EB5C7F01A06B27CC1913F707E820D0BD8
+ 82B62839868BD76FE3B7C0DB4E0F5EAEC0CA1850D9032BF393275FC1881F18BF
+ 394296E1CACD3BF82DF0B0D6C16938884E9B760D6BF0116D818BA5164EC34116
+ 67CDB88133E888B2C0DE541D6CD8BFBF88621966E1BFFFFFB1061F322068818D
+ 912AB844A404E0B5A077CA428A0C8701980500619929EF09CFCE420000000049
+ 454E44AE426082}
+ ExplicitLeft = 742
+ end
+ inherited lblDesbloquear: TcxLabel
+ Left = 621
+ ExplicitLeft = 621
+ AnchorX = 666
+ AnchorY = 14
+ end
+ end
+ inherited TBXDock: TTBXDock
+ Width = 746
+ ExplicitWidth = 746
+ inherited tbxMain: TTBXToolbar
+ ExplicitWidth = 347
+ inherited TBXItem2: TTBXItem
+ Visible = False
+ end
+ inherited TBXSeparatorItem1: TTBXSeparatorItem
+ Visible = False
+ end
+ inherited TBXItem5: TTBXItem
+ Visible = False
+ end
+ end
+ inherited tbxMenu: TTBXToolbar
+ ExplicitWidth = 746
+ inherited TBXSubmenuItem4: TTBXSubmenuItem
+ inherited TBXItem8: TTBXItem
+ Visible = False
+ end
+ inherited TBXSeparatorItem5: TTBXSeparatorItem
+ Visible = False
+ end
+ inherited TBXItem10: TTBXItem
+ Visible = False
+ end
+ end
+ end
+ end
+ inherited StatusBar: TJvStatusBar
+ Top = 587
+ Width = 746
+ Panels = <
+ item
+ Width = 200
+ end>
+ ExplicitTop = 587
+ ExplicitWidth = 746
+ end
+ inherited pgPaginas: TPageControl
+ Width = 740
+ Height = 310
+ OnChanging = pgPaginasChanging
+ ExplicitWidth = 740
+ ExplicitHeight = 310
+ inherited pagGeneral: TTabSheet
+ ExplicitLeft = 4
+ ExplicitTop = 24
+ ExplicitWidth = 732
+ ExplicitHeight = 282
+ inline frViewFacturaProveedor1: TfrViewFacturaProveedor
+ Left = 0
+ Top = 0
+ Width = 732
+ Height = 282
+ Align = alClient
+ Font.Charset = DEFAULT_CHARSET
+ Font.Color = clWindowText
+ Font.Height = -11
+ Font.Name = 'Tahoma'
+ Font.Style = []
+ ParentFont = False
+ TabOrder = 0
+ ReadOnly = False
+ ExplicitWidth = 732
+ ExplicitHeight = 282
+ inherited dxLayoutControl1: TdxLayoutControl
+ Width = 732
+ Height = 282
+ ExplicitWidth = 732
+ ExplicitHeight = 282
+ DesignSize = (
+ 732
+ 282)
+ inherited eReferencia: TcxDBTextEdit
+ ExplicitWidth = 191
+ Width = 191
+ end
+ inherited edtFecha: TcxDBDateEdit
+ ExplicitWidth = 191
+ Width = 191
+ end
+ inherited cbFormaPago: TcxDBLookupComboBox
+ ExplicitWidth = 53
+ Width = 53
+ end
+ inherited bFormasPago: TButton
+ Left = 183
+ ExplicitLeft = 183
+ end
+ inherited eReferenciaProveedor: TcxDBTextEdit
+ ExplicitWidth = 191
+ Width = 191
+ end
+ inherited frViewTienda1: TfrViewTienda
+ Width = 293
+ ExplicitWidth = 293
+ inherited dxLayoutControl1: TdxLayoutControl
+ Width = 293
+ ExplicitWidth = 293
+ inherited cbTienda: TcxComboBox
+ ExplicitWidth = 232
+ Width = 232
+ end
+ end
+ end
+ inherited edtFechaVencimiento: TcxDBDateEdit
+ ExplicitWidth = 191
+ Width = 191
+ end
+ inherited frViewProveedorFactura1: TfrViewProveedorFactura
+ Left = 343
+ Width = 350
+ ExplicitLeft = 343
+ ExplicitWidth = 350
+ inherited dxLayoutControl1: TdxLayoutControl
+ Width = 350
+ ExplicitWidth = 350
+ inherited Bevel1: TBevel
+ Width = 242
+ ExplicitWidth = 242
+ end
+ inherited edtlNombre: TcxDBTextEdit
+ DataBinding.DataSource = dsDataTable
+ ExplicitWidth = 259
+ Width = 259
+ end
+ inherited edtNIFCIF: TcxDBTextEdit
+ DataBinding.DataSource = dsDataTable
+ ExplicitWidth = 259
+ Width = 259
+ end
+ inherited edtCalle: TcxDBTextEdit
+ DataBinding.DataSource = dsDataTable
+ ExplicitWidth = 259
+ Width = 259
+ end
+ inherited edtPoblacion: TcxDBTextEdit
+ DataBinding.DataSource = dsDataTable
+ ExplicitWidth = 141
+ Width = 141
+ end
+ inherited edtProvincia: TcxDBTextEdit
+ ExplicitWidth = 259
+ Width = 259
+ end
+ inherited edtCodigoPostal: TcxDBTextEdit
+ Left = 258
+ DataBinding.DataSource = dsDataTable
+ ExplicitLeft = 258
+ end
+ inherited Button3: TBitBtn
+ Left = 142
+ ExplicitLeft = 142
+ end
+ inherited cxDBTextEdit1: TcxDBTextEdit
+ ExplicitWidth = 259
+ Width = 259
+ end
+ end
+ end
+ inherited frViewObservaciones1: TfrViewObservaciones
+ Width = 671
+ Height = 228
+ ExplicitWidth = 671
+ ExplicitHeight = 228
+ inherited memObservaciones: TcxDBMemo
+ DataBinding.DataSource = frViewFacturaProveedor1.DADataSource
+ ExplicitWidth = 671
+ Height = 228
+ Width = 671
+ end
+ end
+ inherited cbTipoFactura: TcxDBLookupComboBox
+ ExplicitWidth = 209
+ Width = 209
+ end
+ inherited edtSituacion: TcxDBComboBox
+ ExplicitWidth = 294
+ Width = 294
+ end
+ inherited eREF_PEDIDOS_PROV: TcxDBTextEdit
+ ExplicitWidth = 322
+ Width = 322
+ end
+ end
+ end
+ end
+ object pagContenido: TTabSheet
+ Caption = 'Contenido'
+ ImageIndex = 1
+ inline frViewDetallesFacturaProveedor1: TfrViewDetallesFacturaProveedor
+ Left = 0
+ Top = 0
+ Width = 732
+ Height = 282
+ Align = alClient
+ BiDiMode = bdLeftToRight
+ Font.Charset = DEFAULT_CHARSET
+ Font.Color = clWindowText
+ Font.Height = -11
+ Font.Name = 'Tahoma'
+ Font.Style = []
+ ParentBiDiMode = False
+ ParentFont = False
+ TabOrder = 0
+ ReadOnly = False
+ ExplicitWidth = 732
+ ExplicitHeight = 282
+ inherited ToolBar1: TToolBar
+ Width = 732
+ ExplicitWidth = 732
+ inherited ToolButton4: TToolButton
+ Wrap = False
+ end
+ inherited ToolButton14: TToolButton
+ Left = 334
+ Top = 0
+ Wrap = True
+ ExplicitLeft = 334
+ ExplicitTop = 0
+ end
+ inherited FontName: TJvFontComboBox
+ Left = 0
+ ExplicitLeft = 0
+ end
+ inherited FontSize: TEdit
+ Left = 145
+ Width = 57
+ ExplicitLeft = 145
+ ExplicitWidth = 57
+ end
+ inherited UpDown1: TUpDown
+ Left = 202
+ ExplicitLeft = 202
+ end
+ inherited ToolButton13: TToolButton
+ Left = 219
+ ExplicitLeft = 219
+ end
+ inherited ToolButton6: TToolButton
+ Left = 227
+ ExplicitLeft = 227
+ end
+ inherited ToolButton7: TToolButton
+ Left = 261
+ ExplicitLeft = 261
+ end
+ inherited ToolButton8: TToolButton
+ Left = 295
+ ExplicitLeft = 295
+ end
+ inherited ToolButton12: TToolButton
+ Left = 329
+ ExplicitLeft = 329
+ end
+ inherited ToolButton9: TToolButton
+ Left = 337
+ ExplicitLeft = 337
+ end
+ inherited ToolButton10: TToolButton
+ Left = 371
+ ExplicitLeft = 371
+ end
+ inherited ToolButton11: TToolButton
+ Left = 405
+ ExplicitLeft = 405
+ end
+ end
+ inherited cxGrid: TcxGrid
+ Width = 732
+ Height = 210
+ ExplicitWidth = 732
+ ExplicitHeight = 210
+ end
+ inherited TBXDock1: TTBXDock
+ Width = 732
+ ExplicitWidth = 732
+ inherited TBXToolbar1: TTBXToolbar
+ ExplicitWidth = 597
+ end
+ end
+ end
+ end
+ object PagContratos: TTabSheet
+ Caption = 'Contratos'
+ ImageIndex = 2
+ inline frViewContratosFacturaProveedor1: TfrViewContratosFacturaProveedor
+ Left = 0
+ Top = 0
+ Width = 732
+ Height = 282
+ Align = alClient
+ Font.Charset = DEFAULT_CHARSET
+ Font.Color = clWindowText
+ Font.Height = -11
+ Font.Name = 'Tahoma'
+ Font.Style = []
+ ParentFont = False
+ TabOrder = 0
+ ReadOnly = False
+ ExplicitWidth = 732
+ ExplicitHeight = 282
+ inherited cxGrid: TcxGrid
+ Width = 732
+ Height = 257
+ ExplicitWidth = 732
+ ExplicitHeight = 257
+ end
+ inherited ToolBar1: TToolBar
+ Width = 732
+ ExplicitWidth = 732
+ end
+ end
+ end
+ object pagContabilidad: TTabSheet
+ Caption = 'Contabilidad'
+ ImageIndex = 3
+ TabVisible = False
+ ExplicitLeft = 0
+ ExplicitTop = 0
+ ExplicitWidth = 0
+ ExplicitHeight = 0
+ end
+ end
+ inline frViewTotales1: TfrViewTotales [4]
+ Left = 0
+ Top = 424
+ Width = 746
+ Height = 163
+ Align = alBottom
+ Font.Charset = DEFAULT_CHARSET
+ Font.Color = clWindowText
+ Font.Height = -11
+ Font.Name = 'Tahoma'
+ Font.Style = []
+ ParentFont = False
+ TabOrder = 5
+ ReadOnly = False
+ ExplicitTop = 424
+ ExplicitWidth = 746
+ ExplicitHeight = 163
+ inherited dxLayoutControl1: TdxLayoutControl
+ Width = 746
+ ExplicitWidth = 746
+ inherited Bevel3: TBevel
+ Left = 353
+ Top = 30
+ Height = 122
+ ExplicitLeft = 353
+ ExplicitTop = 30
+ ExplicitHeight = 122
+ end
+ inherited Bevel4: TBevel
+ Left = 465
+ Top = 57
+ Width = 186
+ ExplicitLeft = 465
+ ExplicitTop = 57
+ ExplicitWidth = 186
+ end
+ inherited Bevel2: TBevel
+ Top = 185
+ Width = 333
+ ExplicitTop = 185
+ ExplicitWidth = 333
+ end
+ inherited Bevel1: TBevel
+ Left = 372
+ Top = 185
+ Width = 332
+ ExplicitLeft = 372
+ ExplicitTop = 185
+ ExplicitWidth = 332
+ end
+ inherited ImporteDto: TcxDBCurrencyEdit
+ Top = 57
+ Style.LookAndFeel.SkinName = ''
+ Style.IsFontAssigned = True
+ StyleDisabled.LookAndFeel.SkinName = ''
+ StyleFocused.LookAndFeel.SkinName = ''
+ StyleHot.LookAndFeel.SkinName = ''
+ ExplicitTop = 57
+ ExplicitWidth = 207
+ Width = 207
+ end
+ inherited ImporteIVA: TcxDBCurrencyEdit
+ Left = 536
+ Top = 77
+ Style.LookAndFeel.SkinName = ''
+ Style.IsFontAssigned = True
+ StyleDisabled.LookAndFeel.SkinName = ''
+ StyleFocused.LookAndFeel.SkinName = ''
+ StyleHot.LookAndFeel.SkinName = ''
+ ExplicitLeft = 536
+ ExplicitTop = 77
+ ExplicitWidth = 143
+ Width = 143
+ end
+ inherited ImporteTotal: TcxDBCurrencyEdit
+ Left = 466
+ Top = 158
+ Style.LookAndFeel.SkinName = ''
+ Style.IsFontAssigned = True
+ StyleDisabled.LookAndFeel.SkinName = ''
+ StyleFocused.LookAndFeel.SkinName = ''
+ StyleHot.LookAndFeel.SkinName = ''
+ ExplicitLeft = 466
+ ExplicitTop = 158
+ ExplicitWidth = 213
+ Width = 213
+ end
+ inherited edtDescuento: TcxDBSpinEdit
+ Top = 57
+ Properties.OnValidate = frViewTotales1edtDescuentoPropertiesValidate
+ Style.LookAndFeel.SkinName = ''
+ Style.IsFontAssigned = True
+ StyleDisabled.LookAndFeel.SkinName = ''
+ StyleFocused.LookAndFeel.SkinName = ''
+ StyleHot.LookAndFeel.SkinName = ''
+ ExplicitTop = 57
+ end
+ inherited edtIVA: TcxDBSpinEdit
+ Left = 465
+ Top = 77
+ Style.LookAndFeel.SkinName = ''
+ Style.IsFontAssigned = True
+ StyleDisabled.LookAndFeel.SkinName = ''
+ StyleFocused.LookAndFeel.SkinName = ''
+ StyleHot.LookAndFeel.SkinName = ''
+ ExplicitLeft = 465
+ ExplicitTop = 77
+ end
+ inherited ImporteBase: TcxDBCurrencyEdit
+ Left = 465
+ Top = 30
+ Style.LookAndFeel.SkinName = ''
+ Style.IsFontAssigned = True
+ StyleDisabled.LookAndFeel.SkinName = ''
+ StyleFocused.LookAndFeel.SkinName = ''
+ StyleHot.LookAndFeel.SkinName = ''
+ ExplicitLeft = 465
+ ExplicitTop = 30
+ ExplicitWidth = 214
+ Width = 214
+ end
+ inherited edtRE: TcxDBSpinEdit
+ Left = 465
+ Top = 131
+ Properties.AssignedValues.MinValue = True
+ Style.LookAndFeel.SkinName = ''
+ Style.IsFontAssigned = True
+ StyleDisabled.LookAndFeel.SkinName = ''
+ StyleFocused.LookAndFeel.SkinName = ''
+ StyleHot.LookAndFeel.SkinName = ''
+ ExplicitLeft = 465
+ ExplicitTop = 131
+ end
+ inherited edtIRPF: TcxDBSpinEdit
+ Left = 465
+ Top = 104
+ DataBinding.DataField = 'IRPF'
+ Enabled = True
+ Style.IsFontAssigned = True
+ ExplicitLeft = 465
+ ExplicitTop = 104
+ end
+ inherited ImporteRE: TcxDBCurrencyEdit
+ Left = 536
+ Top = 131
+ Style.LookAndFeel.SkinName = ''
+ Style.IsFontAssigned = True
+ StyleDisabled.LookAndFeel.SkinName = ''
+ StyleFocused.LookAndFeel.SkinName = ''
+ StyleHot.LookAndFeel.SkinName = ''
+ ExplicitLeft = 536
+ ExplicitTop = 131
+ ExplicitWidth = 143
+ Width = 143
+ end
+ inherited ImporteIRPF: TcxDBCurrencyEdit
+ Left = 536
+ Top = 104
+ DataBinding.DataField = 'IMPORTE_IRPF'
+ Style.IsFontAssigned = True
+ ExplicitLeft = 536
+ ExplicitTop = 104
+ ExplicitWidth = 56
+ Width = 56
+ end
+ inherited eImporteNeto: TcxDBCurrencyEdit
+ Top = 30
+ Style.LookAndFeel.SkinName = ''
+ Style.IsFontAssigned = True
+ StyleDisabled.LookAndFeel.SkinName = ''
+ StyleFocused.LookAndFeel.SkinName = ''
+ StyleHot.LookAndFeel.SkinName = ''
+ ExplicitTop = 30
+ ExplicitWidth = 278
+ Width = 278
+ end
+ inherited ePorte: TcxDBCurrencyEdit
+ Top = 84
+ DataBinding.DataSource = dsDataTable
+ Properties.OnValidate = frViewTotales1ePortePropertiesValidate
+ Style.LookAndFeel.SkinName = ''
+ Style.IsFontAssigned = True
+ StyleDisabled.LookAndFeel.SkinName = ''
+ StyleFocused.LookAndFeel.SkinName = ''
+ StyleHot.LookAndFeel.SkinName = ''
+ OnEditing = frViewTotales1ePorteEditing
+ ExplicitTop = 84
+ ExplicitWidth = 278
+ Width = 278
+ end
+ inherited eIVA: TcxDBLookupComboBox
+ Top = 111
+ Properties.OnValidate = frViewTotales1eIVAPropertiesValidate
+ Style.Color = clInfoBk
+ Style.LookAndFeel.SkinName = ''
+ StyleDisabled.LookAndFeel.SkinName = ''
+ StyleFocused.LookAndFeel.SkinName = ''
+ StyleHot.LookAndFeel.SkinName = ''
+ ExplicitTop = 111
+ ExplicitWidth = 140
+ Width = 140
+ end
+ inherited bTiposIVA: TButton
+ Left = 205
+ Top = 111
+ OnClick = frViewTotales1bTiposIVAClick
+ ExplicitLeft = 205
+ ExplicitTop = 111
+ end
+ inherited cbRecargoEquivalencia: TcxDBCheckBox
+ Top = 138
+ Style.LookAndFeel.SkinName = ''
+ StyleDisabled.LookAndFeel.SkinName = ''
+ StyleFocused.LookAndFeel.SkinName = ''
+ StyleHot.LookAndFeel.SkinName = ''
+ ExplicitTop = 138
+ ExplicitWidth = 278
+ Width = 278
+ end
+ inherited edtRetencion: TcxDBSpinEdit
+ Left = 465
+ Top = 200
+ Style.IsFontAssigned = True
+ ExplicitLeft = 465
+ ExplicitTop = 200
+ end
+ inherited edtImporteRetencion: TcxDBCurrencyEdit
+ Left = 536
+ Top = 200
+ Style.IsFontAssigned = True
+ ExplicitLeft = 536
+ ExplicitTop = 200
+ ExplicitWidth = 342
+ Width = 342
+ end
+ inherited edtFechaRetencion: TcxDBDateEdit
+ Top = 200
+ Style.LookAndFeel.SkinName = ''
+ StyleDisabled.LookAndFeel.SkinName = ''
+ StyleFocused.LookAndFeel.SkinName = ''
+ StyleHot.LookAndFeel.SkinName = ''
+ ExplicitTop = 200
+ ExplicitWidth = 333
+ Width = 333
+ end
+ inherited dxLayoutControl1Group_Root: TdxLayoutGroup
+ LookAndFeel = frViewFacturaProveedor1.dxLayoutOfficeLookAndFeel1
+ inherited dxLayoutControl1Group1: TdxLayoutGroup
+ inherited dxLayoutControl1Group2: TdxLayoutGroup
+ inherited dxLayoutControl1Group7: TdxLayoutGroup
+ Visible = False
+ inherited dxLayoutControl1Group10: TdxLayoutGroup
+ inherited dxLayoutControl1Item4: TdxLayoutItem
+ Visible = False
+ end
+ inherited dxLayoutControl1Item1: TdxLayoutItem
+ Visible = False
+ end
+ end
+ end
+ end
+ inherited dxLayoutControl1Group5: TdxLayoutGroup
+ inherited dxLayoutControl1Group3: TdxLayoutGroup
+ inherited dxLayoutControl1Group11: TdxLayoutGroup
+ inherited dxLayoutControl1Item14: TdxLayoutItem
+ Offsets.Bottom = 0
+ Offsets.Top = 0
+ Visible = False
+ end
+ end
+ inherited dxLayoutControl1Group1191: TdxLayoutGroup
+ Visible = True
+ end
+ end
+ end
+ end
+ end
+ end
+ end
+ inherited PnlComentario: TPanel [5]
+ Width = 746
+ ExplicitWidth = 746
+ inherited lbComentario: TLabel
+ Width = 736
+ Height = 25
+ end
+ end
+ inherited EditorActionList: TActionList [9]
+ Left = 8
+ Top = 144
+ inherited actPrevisualizar: TAction
+ Enabled = False
+ Visible = False
+ end
+ inherited actImprimir: TAction
+ Enabled = False
+ Visible = False
+ end
+ end
+ inherited dsDataTable: TDADataSource [10]
+ Left = 40
+ Top = 144
+ end
+ inherited JvAppRegistryStorage: TJvAppRegistryStorage [11]
+ end
+end
diff --git a/Source/Modulos/Facturas de proveedor/Views/uEditorFacturaProveedor - copia.pas b/Source/Modulos/Facturas de proveedor/Views/uEditorFacturaProveedor - copia.pas
new file mode 100644
index 0000000..e66e315
--- /dev/null
+++ b/Source/Modulos/Facturas de proveedor/Views/uEditorFacturaProveedor - copia.pas
@@ -0,0 +1,469 @@
+unit uEditorFacturaProveedor;
+
+interface
+
+uses
+ Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
+ Dialogs, uEditorDBItem, DB, uDADataTable, JvAppStorage,
+ JvAppRegistryStorage, JvComponent, JvFormPlacement, ImgList,
+ PngImageList, StdActns, ActnList, ComCtrls, TBX, TB2Item, TB2Dock,
+ TB2Toolbar, ExtCtrls, JvExControls, JvNavigationPane,
+ uCustomView, uViewBase, uViewTotales,
+ StdCtrls, pngimage, AppEvnts, JvComponentBase,
+ uBizFacturasProveedor, uIEditorFacturaProveedor, uFacturasProveedorController, uViewDetallesBase,
+ dxLayoutLookAndFeels, JvExComCtrls, JvStatusBar, uBizTiposIVA,
+ uViewDetallesDTO, uViewDetallesArticulos, uTiposIVAController,
+ uViewDetallesFacturaProveedor, uViewFacturaProveedor, uDAInterfaces,
+ cxControls, cxContainer, cxEdit, cxCheckBox, cxDBEdit, uViewListaSubCuentas,
+ uViewDetallesGenerico, uViewContratosFacturaProveedor, cxLabel;
+
+
+type
+ TfEditorFacturaProveedor = class(TfEditorDBItem, IEditorFacturaProveedor)
+ frViewTotales1: TfrViewTotales;
+ frViewFacturaProveedor1: TfrViewFacturaProveedor;
+ frViewDetallesFacturaProveedor1: TfrViewDetallesFacturaProveedor;
+ pagContabilidad: TTabSheet;
+ PagContratos: TTabSheet;
+ frViewContratosFacturaProveedor1: TfrViewContratosFacturaProveedor;
+ procedure FormShow(Sender: TObject);
+ procedure frViewProveedorFactura1edtlNombrePropertiesEditValueChanged(
+ Sender: TObject);
+ procedure dsDataTableDataChange(Sender: TObject; Field: TField);
+ procedure CustomEditorClose(Sender: TObject; var Action: TCloseAction);
+ procedure frViewProveedorFacturaedtlNombrePropertiesChange(Sender: TObject);
+ procedure pgPaginasChanging(Sender: TObject; var AllowChange: Boolean);
+ procedure frViewTotales1edtDescuentoPropertiesValidate(Sender: TObject;
+ var DisplayValue: Variant; var ErrorText: TCaption; var Error: Boolean);
+ procedure frViewTotales1bTiposIVAClick(Sender: TObject);
+ procedure frViewTotales1eIVAPropertiesValidate(Sender: TObject;
+ var DisplayValue: Variant; var ErrorText: TCaption; var Error: Boolean);
+ procedure frViewTotales1ePortePropertiesValidate(Sender: TObject;
+ var DisplayValue: Variant; var ErrorText: TCaption; var Error: Boolean);
+ procedure frViewTotales1ePorteEditing(Sender: TObject; var CanEdit: Boolean);
+ procedure OnRecargoEquivalenciaPropertiesValidate(Sender: TObject; var DisplayValue: Variant; var ErrorText: TCaption;
+ var Error: Boolean); //Importante en este punto se deben de quitar los eventos que puedan afectar a la tabla una vez se cierre el editor.
+
+ private
+ procedure RecalcularPortePorUnidad;
+
+ protected
+ FController : IFacturasProveedorController;
+ FFactura: IBizFacturaProveedor;
+ FViewFactura: IViewFacturaProveedor;
+ FTiposIVAController : ITiposIVAController;
+ FTiposIVA: IBizTipoIVA;
+ function GetController : IFacturasProveedorController;
+ procedure SetController (const Value : IFacturasProveedorController);
+ function GetFactura: IBizFacturaProveedor;
+ procedure SetFactura(const Value: IBizFacturaProveedor);
+
+ function GetViewFactura: IViewFacturaProveedor;
+ procedure SetViewFactura(const Value: IViewFacturaProveedor);
+
+ property ViewFacturaProveedor: IViewFacturaProveedor read GetViewFactura write SetViewFactura;
+
+ procedure OnProveedorChanged(Sender: TObject);
+
+ procedure GuardarInterno; override;
+ procedure EliminarInterno; override;
+ procedure ImprimirInterno; override;
+ procedure PrevisualizarInterno; override;
+
+ procedure PonerTitulos(const ATitulo: string = ''); override;
+ public
+ destructor Destroy; override;
+ property Controller : IFacturasProveedorController read GetController write SetController;
+ property Factura: IBizFacturaProveedor read GetFactura write SetFactura;
+ constructor Create(AOwner: TComponent); override;
+ end;
+
+implementation
+{$R *.dfm}
+{$INCLUDE ..\..\..\FactuGES.inc}
+
+uses
+ uBizContactos, uDataModuleUsuarios, uFactuGES_App, uSubCuentasController,
+ uDetallesFacturaProveedorController, uProveedoresController, uDialogUtils,
+ uDataTableUtils, uBizDireccionesContacto, uViewProveedorFactura;
+// uGenerarAlbaranesProvFacProvUtils;
+
+
+{ TfEditorFacturaProveedor }
+
+{
+**************************** TfEditorFacturaProveedor ****************************
+}
+constructor TfEditorFacturaProveedor.Create(AOwner: TComponent);
+begin
+ inherited;
+ pgPaginas.ActivePageIndex := 0;
+ ViewFacturaProveedor := frViewFacturaProveedor1;
+ FTiposIVAController := TTiposIVAController.Create;
+
+{$IFDEF CONTABILIDAD}
+ frViewListaSubcuentas1.TipoSubCuenta := tCompras;
+{$ENDIF}
+
+end;
+
+procedure TfEditorFacturaProveedor.CustomEditorClose(Sender: TObject;
+ var Action: TCloseAction);
+begin
+ inherited;
+ dsDataTable.DataTable := NIL;
+ frViewTotales1.DADataSource.DataTable := NIL;
+ frViewTotales1.cbRecargoEquivalencia.Properties.OnValidate := nil;
+
+ FTiposIVA := NIL;
+ FTiposIVAController := Nil;
+ FController := NIL;
+ FViewFactura := NIL;
+ Factura := NIL;
+end;
+
+destructor TfEditorFacturaProveedor.Destroy;
+begin
+ inherited;
+end;
+
+procedure TfEditorFacturaProveedor.dsDataTableDataChange(Sender: TObject;
+ Field: TField);
+begin
+ inherited;
+ if Assigned(FFactura) and (not (FFactura.DataTable.Fetching) or
+ not (FFactura.DataTable.Opening) or not (FFactura.DataTable.Closing)) then
+ PonerTitulos;
+end;
+
+procedure TfEditorFacturaProveedor.EliminarInterno;
+var
+ AMensaje : String;
+begin
+ if FFactura.TIPO = CTE_TIPO_ABONO then
+ AMensaje := '¿Desea borrar esta factura de proveedor?'
+ else
+ AMensaje := '¿Desea borrar este abono de proveedor?';
+
+ if (Application.MessageBox(PChar(AMensaje), 'Atención', MB_YESNO) = IDYES) then
+ begin
+ //Es el caso de querer borrar una factura pendiente cuyos recibos tienen devoluciones
+ if not FController.Eliminar(Factura) then
+ Application.MessageBox('La factura no ha podido ser eliminada porque tiene recibos con pagos o devoluciones emitidas.', 'Atención', MB_OK);
+ inherited;
+ end;
+end;
+
+procedure TfEditorFacturaProveedor.FormShow(Sender: TObject);
+begin
+ inherited;
+
+ if not Assigned(FViewFactura) then
+ raise Exception.Create('No hay ninguna vista asignada');
+
+ if not Assigned(Factura) then
+ raise Exception.Create('No hay ninguna factura asignada');
+
+ frViewTotales1.cbRecargoEquivalencia.Properties.OnValidate := OnRecargoEquivalenciaPropertiesValidate;
+ Factura.DataTable.Active := True;
+end;
+
+procedure TfEditorFacturaProveedor.frViewProveedorFactura1edtlNombrePropertiesEditValueChanged(Sender: TObject);
+begin
+ inherited;
+ with (Sender as TcxDBTextEdit) do
+ Enabled := (FFactura.ID <> 0)
+end;
+
+procedure TfEditorFacturaProveedor.frViewProveedorFacturaedtlNombrePropertiesChange(
+ Sender: TObject);
+begin
+ inherited;
+ PonerTitulos;
+end;
+
+procedure TfEditorFacturaProveedor.frViewTotales1bTiposIVAClick(Sender: TObject);
+begin
+ inherited;
+ FTiposIVAController.VerTodos(FTiposIVA);
+end;
+
+procedure TfEditorFacturaProveedor.frViewTotales1edtDescuentoPropertiesValidate(
+ Sender: TObject; var DisplayValue: Variant; var ErrorText: TCaption;
+ var Error: Boolean);
+begin
+ inherited;
+ Factura.DESCUENTO := DisplayValue;
+end;
+
+procedure TfEditorFacturaProveedor.frViewTotales1eIVAPropertiesValidate(
+ Sender: TObject; var DisplayValue: Variant; var ErrorText: TCaption;
+ var Error: Boolean);
+begin
+ inherited;
+ Factura.Edit;
+ Factura.ID_TIPO_IVA := FTiposIVA.ID; //((frViewTotales1.dsTiposIVA.DataTable) as IBizTipoIVA).ID;
+end;
+
+procedure TfEditorFacturaProveedor.frViewTotales1ePorteEditing(Sender: TObject; var CanEdit: Boolean);
+begin
+ inherited;
+ if FFactura.TIPO = CTE_TIPO_ABONO then
+ CanEdit := False;
+end;
+
+procedure TfEditorFacturaProveedor.frViewTotales1ePortePropertiesValidate(
+ Sender: TObject; var DisplayValue: Variant; var ErrorText: TCaption;
+ var Error: Boolean);
+begin
+ inherited;
+ if not VarIsNull(DisplayValue) and (Length(DisplayValue) > 0) then
+ FFactura.IMPORTE_PORTE := DisplayValue
+ else
+ FFactura.IMPORTE_PORTE := 0;
+
+ RecalcularPortePorUnidad;
+end;
+
+function TfEditorFacturaProveedor.GetController: IFacturasProveedorController;
+begin
+ Result := FController;
+end;
+
+function TfEditorFacturaProveedor.GetFactura: IBizFacturaProveedor;
+begin
+ Result := FFactura;
+end;
+
+function TfEditorFacturaProveedor.GetViewFactura: IViewFacturaProveedor;
+begin
+ Result := FViewFactura;
+end;
+
+procedure TfEditorFacturaProveedor.GuardarInterno;
+var
+ bEsNuevo : Boolean;
+begin
+ inherited;
+
+ ShowHourglassCursor;
+// frViewDetallesFacturaProveedor1.SaveGridStatus; // Para guardar estado del grid (ojo lo activamos de nuevo para recuperar el foco en el grid despues de guardar no se si tendrá efecto lateral
+ frViewDetallesFacturaProveedor1.BeginUpdate; // Para que no se mueva el foco
+ try
+ bEsNuevo := FFactura.EsNuevo;
+
+ {$IFDEF CONTABILIDAD}
+ FFactura.Edit;
+ FController.SetIgnorarContabilidad(FFactura, frViewListaSubCuentas1.eContabilizar.EditValue);
+ FFactura.ID_SUBCUENTA := frViewListaSubCuentas1.IdSubCuenta;
+ {$ENDIF}
+
+ FController.Guardar(FFactura);
+ finally
+ frViewDetallesFacturaProveedor1.EndUpdate;
+// frViewDetallesFacturaProveedor1.RestoreGridStatus;
+ HideHourglassCursor;
+ end;
+
+ if bEsNuevo then
+ begin
+ if FFactura.TIPO = CTE_TIPO_FACTURA then
+ ShowInfoMessage('La factura se ha dado de alta con el código ' + FFactura.REFERENCIA)
+ else
+ begin
+ ShowInfoMessage('El abono se ha dado de alta con el código ' + FFactura.REFERENCIA);
+ //Preguntamos is desea hacer una orden de devolución asociada
+// if (Application.MessageBox('¿Desea crear una orden de devolución para el abono?', 'Atención', MB_YESNO) = IDYES) then
+// GenerarAlbaranProv(FFactura);
+ end;
+ end;
+ Modified := False;
+end;
+
+procedure TfEditorFacturaProveedor.ImprimirInterno;
+begin
+{
+ inherited;
+ FController.Print(FFactura);
+}
+end;
+
+procedure TfEditorFacturaProveedor.OnProveedorChanged(Sender: TObject);
+var
+ FDetallesController : IDetallesFacturaProveedorController;
+ AProveedoresController : IProveedoresController;
+ ADireccion : IBizDireccionesContacto;
+begin
+ FFactura.Proveedor := frViewFacturaProveedor1.frViewProveedorFactura1.Proveedor;
+
+ if not (FFactura.DataTable.State in dsEditModes) then
+ FFactura.DataTable.Edit;
+
+ //En el caso de Acana no se cambia para que el IVA y la FORMA DE PAGO por defecto sea el de la empresa.
+ // Actualizar IVA y RE a partir del tipo de IVA del proveedor.
+{ Factura.IVA := FTiposIVA.IVA; //((frViewTotales1.dsTiposIVA.DataTable) as IBizTipoIVA).IVA;
+// if FFactura.Proveedor.RECARGO_EQUIVALENCIA = 1 then
+// Factura.RE := ((frViewTotales1.dsTiposIVA.DataTable) as IBizTipoIVA).RE
+// else
+// Factura.RE := 0;
+}
+ // En el caso de tener direcciones asociadas, se debe dar la posibilidad de elegir la dirección principal o las secundarias para la factura
+ AProveedoresController := TProveedoresController.Create;
+ try
+ case FFactura.Proveedor.Direcciones.RecordCount of
+ 0 : //No hay direcciones secundarias asociadas
+ else ADireccion := AProveedoresController.ElegirDireccion(FFactura.Proveedor, 'Seleccione la dirección del proveedor que quiere utilizar como dirección fiscal de esta factura.');
+ end;
+
+ // Si hay dirección de envio, copiarla al albarán y poner el coste del porte
+ if Assigned(ADireccion) then
+ begin
+ if not ADireccion.IDIsNull then
+ try
+ FFactura.Edit;
+ FFactura.IMPORTE_PORTE := ADireccion.PORTE;
+ FController.CopiarDireccion(ADireccion, FFactura);
+ finally
+ ADireccion := NIL;
+ end;
+ end
+ finally
+ AProveedoresController := Nil;
+ end;
+
+ // Si la factura tiene detalles hay que mirar si los descuentos y otros campos
+ // para los artículos hay que cambiarlos.
+ if (FFactura.Detalles.RecordCount > 0) then
+ FController.DetallesController.ActualizarDetalles(FFactura.Detalles, FFactura.Proveedor);
+end;
+
+procedure TfEditorFacturaProveedor.OnRecargoEquivalenciaPropertiesValidate(
+ Sender: TObject; var DisplayValue: Variant; var ErrorText: TCaption;
+ var Error: Boolean);
+begin
+ if frViewTotales1.cbRecargoEquivalencia.Checked then
+ Factura.RECARGO_EQUIVALENCIA := 1
+ else
+ Factura.RECARGO_EQUIVALENCIA := 0;
+end;
+
+procedure TfEditorFacturaProveedor.pgPaginasChanging(Sender: TObject;
+ var AllowChange: Boolean);
+var
+ AMensaje : String;
+begin
+ inherited;
+ if (not Assigned(FFactura)) or (FFactura.ID_PROVEEDOR = ID_NULO) then
+ begin
+ if FFactura.TIPO = CTE_TIPO_FACTURA then
+ AMensaje := 'Antes debe elegir un proveedor para esta factura'
+ else
+ AMensaje := 'Antes debe elegir un proveedor para este abono';
+ ShowWarningMessage(AMensaje);
+ AllowChange := False;
+ end;
+end;
+
+procedure TfEditorFacturaProveedor.PonerTitulos(const ATitulo: string);
+var
+ FTitulo : String;
+begin
+ FTitulo := ATitulo;
+ if (FTitulo = '') and Assigned(Factura) then
+ begin
+ if Factura.EsNuevo then
+ if Factura.TIPO = CTE_TIPO_FACTURA then
+ FTitulo := 'Nueva factura de proveedor'
+ else
+ FTitulo := 'Nuevo abono de proveedor'
+ else
+ if Factura.TIPO = CTE_TIPO_FACTURA then
+ FTitulo := 'Factura de proveedor' + ' - ' + FFactura.Proveedor.Nombre
+ else
+ FTitulo := 'Abono de proveedor' + ' - ' + FFactura.Proveedor.Nombre
+ end;
+
+ inherited PonerTitulos(FTitulo);
+
+ Self.Caption := FTitulo + ' (' + AppFactuGES.EmpresaActiva.NOMBRE + ')';
+end;
+
+procedure TfEditorFacturaProveedor.PrevisualizarInterno;
+begin
+{
+ inherited;
+ FController.Preview(FFactura);
+}
+end;
+
+procedure TfEditorFacturaProveedor.RecalcularPortePorUnidad;
+begin
+ //Esta lógica se llamará en el editor porque es para facilitar el rellenado de información del documento
+ //no puede ir en la clase de negocio porque no es una lógica que tenga sentido fuera del editor.
+ if Assigned(Controller)
+ and Assigned(Controller.DetallesController) then
+ Controller.DetallesController.DesglosarPorteDetalles(FFactura.IMPORTE_PORTE, FFactura.Detalles)
+end;
+
+procedure TfEditorFacturaProveedor.SetController(const Value: IFacturasProveedorController);
+begin
+ FController := Value;
+
+ if Assigned(FController) then
+ begin
+ ViewFacturaProveedor.Controller := FController;
+ frViewDetallesFacturaProveedor1.Controller := Controller.DetallesController;
+ frViewContratosFacturaProveedor1.Controller := Controller.ContratosController;
+ end;
+end;
+
+procedure TfEditorFacturaProveedor.SetFactura(const Value: IBizFacturaProveedor);
+begin
+ FFactura := Value;
+
+ if Assigned(FFactura) then
+ begin
+ dsDataTable.DataTable := FFactura.DataTable;
+
+ frViewTotales1.DADataSource.DataTable := FFactura.DataTable;
+
+ FTiposIVA := FTiposIVAController.BuscarTodos;
+ frViewTotales1.dsTiposIVA.DataTable := FTiposIVA.DataTable;
+ FTiposIVA.DataTable.Active := True;
+
+ if Assigned(FViewFactura) then
+ begin
+ frViewFacturaProveedor1.frViewProveedorFactura1.Proveedor := FFactura.Proveedor;
+ frViewFacturaProveedor1.frViewProveedorFactura1.OnProveedorChanged := OnProveedorChanged;
+
+ FViewFactura.Factura := FFactura;
+ frViewDetallesFacturaProveedor1.Detalles := FFactura.Detalles;
+ frViewDetallesFacturaProveedor1.Factura := FFactura; //Para poder sacar los descuento del articulos segun el proveedor seleccionado
+ frViewContratosFacturaProveedor1.Contratos := FFactura.Contratos;
+ end;
+
+ {$IFDEF CONTABILIDAD}
+ frViewListaSubCuentas1.eContabilizar.EditValue := FFactura.IGNORAR_CONTABILIDAD;
+ frViewListaSubCuentas1.ElegirSubCuenta(FFactura.ID_SUBCUENTA);
+ {$ENDIF}
+
+ end
+ else begin
+ frViewFacturaProveedor1.frViewProveedorFactura1.OnProveedorChanged := NIL;
+ frViewFacturaProveedor1.frViewProveedorFactura1.Proveedor := NIL;
+ dsDataTable.DataTable := NIL;
+ frViewTotales1.DADataSource.DataTable := NIL;
+ frViewTotales1.dsTiposIVA.DataTable := NIL;
+ end
+end;
+
+procedure TfEditorFacturaProveedor.SetViewFactura(const Value: IViewFacturaProveedor);
+begin
+ FViewFactura := Value;
+
+ if Assigned(FViewFactura) and Assigned(Factura) then
+ FViewFactura.Factura := Factura;
+end;
+
+end.
+
\ No newline at end of file
diff --git a/Source/Modulos/Gestor de informes/Controller/View/uIEditorInformeComprasArticulosReport.pas b/Source/Modulos/Gestor de informes/Controller/View/uIEditorInformeComprasArticulosReport.pas
new file mode 100644
index 0000000..2245db1
--- /dev/null
+++ b/Source/Modulos/Gestor de informes/Controller/View/uIEditorInformeComprasArticulosReport.pas
@@ -0,0 +1,26 @@
+unit uIEditorInformeComprasArticulosReport;
+
+interface
+
+uses
+ FactuGES_Intf, uIEditorInformeBase;
+
+type
+ IEditorInformeComprasArticulosReport = interface(IEditorInformeBase)
+ ['{E54D5C61-1775-4FBC-9572-C4AF9EECBC7D}']
+ function GetFechaFin: Variant;
+ function GetFechaInicio: Variant;
+ function GetListaIDArticulos: TIntegerArray;
+ function GetListaIDProveedores: TIntegerArray;
+// function GetDesglosadoCliente: Boolean;
+ property FechaInicio: Variant read GetFechaInicio;
+ property FechaFin: Variant read GetFechaFin;
+ property ListaIDArticulos: TIntegerArray read GetListaIDArticulos;
+ property ListaIDProveedores: TIntegerArray read GetListaIDProveedores;
+// property DesglosadoCliente: Boolean read GetDesglosadoCliente;
+ end;
+
+
+implementation
+
+end.
diff --git a/Source/Modulos/Gestor de informes/Controller/View/uIEditorInformeVentasArticulosReport.pas b/Source/Modulos/Gestor de informes/Controller/View/uIEditorInformeVentasArticulosReport.pas
new file mode 100644
index 0000000..a074d5e
--- /dev/null
+++ b/Source/Modulos/Gestor de informes/Controller/View/uIEditorInformeVentasArticulosReport.pas
@@ -0,0 +1,26 @@
+unit uIEditorInformeVentasArticulosReport;
+
+interface
+
+uses
+ FactuGES_Intf, uIEditorInformeBase;
+
+type
+ IEditorInformeVentasArticulosReport = interface(IEditorInformeBase)
+ ['{18C10591-E52F-458D-8685-6CE266E1B9AC}']
+ function GetFechaFin: Variant;
+ function GetFechaInicio: Variant;
+ function GetListaIDArticulos: TIntegerArray;
+ function GetListaIDComerciales: TIntegerArray;
+// function GetDesglosadoCliente: Boolean;
+ property FechaInicio: Variant read GetFechaInicio;
+ property FechaFin: Variant read GetFechaFin;
+ property ListaIDArticulos: TIntegerArray read GetListaIDArticulos;
+ property ListaIDComerciales: TIntegerArray read GetListaIDComerciales;
+// property DesglosadoCliente: Boolean read GetDesglosadoCliente;
+ end;
+
+
+implementation
+
+end.
diff --git a/Source/Modulos/Gestor de informes/Controller/View/uIViewFiltroArticulos.pas b/Source/Modulos/Gestor de informes/Controller/View/uIViewFiltroArticulos.pas
new file mode 100644
index 0000000..a0e70a5
--- /dev/null
+++ b/Source/Modulos/Gestor de informes/Controller/View/uIViewFiltroArticulos.pas
@@ -0,0 +1,18 @@
+unit uIViewFiltroArticulos;
+
+interface
+
+uses
+ uIViewParametrosInforme;
+
+type
+ IViewFiltroArticulos = interface(IViewParametrosInforme)
+ ['{286EBFA7-AF1D-4752-A727-887423B81A45}']
+ procedure setIdArticulo(const IdArticulo:Integer);
+ function getIdArticulo: Integer;
+ property IdArticulo : Integer read getIdArticulo write setIdArticulo;
+ end;
+
+implementation
+
+end.
diff --git a/Source/Modulos/Gestor de informes/Controller/View/uIViewFiltroComerciales.pas b/Source/Modulos/Gestor de informes/Controller/View/uIViewFiltroComerciales.pas
new file mode 100644
index 0000000..11fc6c3
--- /dev/null
+++ b/Source/Modulos/Gestor de informes/Controller/View/uIViewFiltroComerciales.pas
@@ -0,0 +1,18 @@
+unit uIViewFiltroComerciales;
+
+interface
+
+uses
+ uIViewParametrosInforme;
+
+type
+ IViewFiltroComerciales = interface(IViewParametrosInforme)
+ ['{78E3C663-FBD2-4E75-B6A9-93F19C626498}']
+ procedure setIdComercial(const IdComercial:Integer);
+ function getIdComercial: Integer;
+ property IdComercial : Integer read getIdComercial write setIdComercial;
+ end;
+
+implementation
+
+end.
diff --git a/Source/Modulos/Gestor de informes/Views/uEditorInformeComprasArticulosReport.dfm b/Source/Modulos/Gestor de informes/Views/uEditorInformeComprasArticulosReport.dfm
new file mode 100644
index 0000000..2aaf9ba
--- /dev/null
+++ b/Source/Modulos/Gestor de informes/Views/uEditorInformeComprasArticulosReport.dfm
@@ -0,0 +1,245 @@
+inherited fEditorInformeComprasArticulosReport: TfEditorInformeComprasArticulosReport
+ Caption = 'fEditorInformeComprasArticulosReport'
+ ClientHeight = 655
+ ClientWidth = 895
+ ExplicitWidth = 911
+ ExplicitHeight = 693
+ PixelsPerInch = 96
+ TextHeight = 13
+ inherited JvNavPanelHeader: TJvNavPanelHeader
+ Width = 895
+ ExplicitTop = 78
+ ExplicitWidth = 895
+ inherited Image1: TImage
+ Left = 868
+ ExplicitLeft = 868
+ end
+ end
+ inherited TBXDock: TTBXDock
+ Width = 895
+ ExplicitWidth = 895
+ inherited tbxMenu: TTBXToolbar
+ ExplicitWidth = 895
+ end
+ inherited TBXToolbar1: TTBXToolbar
+ ExplicitWidth = 616
+ object TBXItem58: TTBXItem [0]
+ Action = actRefrescar
+ DisplayMode = nbdmImageAndText
+ Images = SmallImages
+ end
+ end
+ end
+ inherited StatusBar: TJvStatusBar
+ Top = 636
+ Width = 895
+ ExplicitTop = 636
+ ExplicitWidth = 895
+ end
+ inherited TBXMultiDockIzquierdo: TTBXMultiDock
+ Height = 531
+ ExplicitTop = 105
+ ExplicitHeight = 531
+ end
+ inherited TBXMultiDockDerecho: TTBXMultiDock
+ Left = 703
+ Width = 192
+ Height = 531
+ ExplicitLeft = 703
+ ExplicitWidth = 192
+ ExplicitHeight = 531
+ inherited pnlParametros: TTBXDockablePanel
+ DockedWidth = 188
+ ExplicitWidth = 192
+ ExplicitHeight = 515
+ inherited TBXDockablePanel1: TTBXDockablePanel
+ Top = 365
+ ExplicitTop = 365
+ ExplicitWidth = 188
+ inherited TBXButton1: TTBXButton
+ AlignWithMargins = True
+ Left = 3
+ Top = 3
+ Width = 182
+ Height = 37
+ Margins.Left = 8
+ Margins.Top = 8
+ Margins.Right = 8
+ Margins.Bottom = 8
+ Align = alTop
+ ExplicitLeft = 3
+ ExplicitTop = 3
+ ExplicitWidth = 182
+ ExplicitHeight = 37
+ end
+ end
+ inline frViewFiltroArticulos1: TfrViewFiltroArticulos
+ Left = 0
+ Top = 296
+ Width = 188
+ Height = 146
+ Align = alTop
+ AutoSize = True
+ Font.Charset = DEFAULT_CHARSET
+ Font.Color = clWindowText
+ Font.Height = -11
+ Font.Name = 'Tahoma'
+ Font.Style = []
+ ParentFont = False
+ TabOrder = 1
+ ReadOnly = False
+ ExplicitTop = 296
+ ExplicitWidth = 188
+ ExplicitHeight = 146
+ inherited TBXLabel2: TTBXLabel
+ Width = 188
+ ExplicitWidth = 188
+ end
+ inherited bElegirArticulo: TBitBtn
+ Width = 108
+ ExplicitWidth = 108
+ end
+ inherited cbxDesglosado: TCheckBox
+ Enabled = False
+ Visible = False
+ end
+ inherited edtArticulo: TcxTextEdit
+ Style.LookAndFeel.SkinName = ''
+ StyleDisabled.LookAndFeel.SkinName = ''
+ StyleFocused.LookAndFeel.SkinName = ''
+ StyleHot.LookAndFeel.SkinName = ''
+ ExplicitWidth = 141
+ Width = 141
+ end
+ end
+ inline frViewPeriodoFechas1: TfrViewPeriodoFechas
+ Left = 0
+ Top = 0
+ Width = 188
+ Height = 136
+ Align = alTop
+ Font.Charset = DEFAULT_CHARSET
+ Font.Color = clWindowText
+ Font.Height = -11
+ Font.Name = 'Tahoma'
+ Font.Style = []
+ ParentFont = False
+ TabOrder = 2
+ ReadOnly = False
+ ExplicitWidth = 188
+ ExplicitHeight = 136
+ inherited TBXAlignmentPanel2: TTBXAlignmentPanel
+ Width = 182
+ Height = 98
+ ExplicitWidth = 182
+ ExplicitHeight = 98
+ inherited Label3: TLabel
+ Width = 172
+ end
+ inherited edtFechaFin: TcxDateEdit
+ Left = 74
+ Top = 77
+ Style.LookAndFeel.SkinName = ''
+ StyleDisabled.LookAndFeel.SkinName = ''
+ StyleFocused.LookAndFeel.SkinName = ''
+ StyleHot.LookAndFeel.SkinName = ''
+ ExplicitLeft = 74
+ ExplicitTop = 77
+ ExplicitWidth = 99
+ Width = 99
+ end
+ inherited edtFechaIni: TcxDateEdit
+ Left = 76
+ Style.LookAndFeel.SkinName = ''
+ StyleDisabled.LookAndFeel.SkinName = ''
+ StyleFocused.LookAndFeel.SkinName = ''
+ StyleHot.LookAndFeel.SkinName = ''
+ ExplicitLeft = 76
+ ExplicitWidth = 97
+ Width = 97
+ end
+ inherited cbPeriodo: TcxComboBox
+ Style.LookAndFeel.SkinName = ''
+ StyleDisabled.LookAndFeel.SkinName = ''
+ StyleFocused.LookAndFeel.SkinName = ''
+ StyleHot.LookAndFeel.SkinName = ''
+ ExplicitWidth = 166
+ Width = 166
+ end
+ end
+ inherited TBXLabel2: TTBXLabel
+ Width = 188
+ ExplicitWidth = 188
+ end
+ inherited TBXAlignmentPanel3: TTBXAlignmentPanel
+ Top = 136
+ Width = 182
+ Visible = False
+ ExplicitTop = 136
+ ExplicitWidth = 182
+ inherited Label4: TLabel
+ Width = 172
+ end
+ inherited edtFechaVenFin: TcxDateEdit
+ Style.LookAndFeel.SkinName = ''
+ StyleDisabled.LookAndFeel.SkinName = ''
+ StyleFocused.LookAndFeel.SkinName = ''
+ StyleHot.LookAndFeel.SkinName = ''
+ ExplicitWidth = 99
+ Width = 99
+ end
+ inherited edtFechaVenIni: TcxDateEdit
+ Style.LookAndFeel.SkinName = ''
+ StyleDisabled.LookAndFeel.SkinName = ''
+ StyleFocused.LookAndFeel.SkinName = ''
+ StyleHot.LookAndFeel.SkinName = ''
+ ExplicitWidth = 97
+ Width = 97
+ end
+ inherited cbPeriodo2: TcxComboBox
+ Style.LookAndFeel.SkinName = ''
+ StyleDisabled.LookAndFeel.SkinName = ''
+ StyleFocused.LookAndFeel.SkinName = ''
+ StyleHot.LookAndFeel.SkinName = ''
+ ExplicitWidth = 166
+ Width = 166
+ end
+ end
+ end
+ inline frViewFiltroProveedores1: TfrViewFiltroProveedores
+ Left = 0
+ Top = 136
+ Width = 188
+ Height = 160
+ Align = alTop
+ Font.Charset = DEFAULT_CHARSET
+ Font.Color = clWindowText
+ Font.Height = -11
+ Font.Name = 'Tahoma'
+ Font.Style = []
+ ParentFont = False
+ TabOrder = 3
+ ReadOnly = False
+ ExplicitTop = 136
+ ExplicitWidth = 188
+ ExplicitHeight = 160
+ inherited TBXLabel2: TTBXLabel
+ Width = 188
+ ExplicitWidth = 188
+ end
+ inherited bElegirProveedor: TBitBtn
+ Width = 119
+ ExplicitWidth = 119
+ end
+ inherited edtProveedor: TcxTextEdit
+ Style.LookAndFeel.SkinName = ''
+ StyleDisabled.LookAndFeel.SkinName = ''
+ StyleFocused.LookAndFeel.SkinName = ''
+ StyleHot.LookAndFeel.SkinName = ''
+ ExplicitWidth = 152
+ Width = 152
+ end
+ end
+ end
+ end
+end
diff --git a/Source/Modulos/Gestor de informes/Views/uEditorInformeComprasArticulosReport.pas b/Source/Modulos/Gestor de informes/Views/uEditorInformeComprasArticulosReport.pas
new file mode 100644
index 0000000..52db29b
--- /dev/null
+++ b/Source/Modulos/Gestor de informes/Views/uEditorInformeComprasArticulosReport.pas
@@ -0,0 +1,130 @@
+unit uEditorInformeComprasArticulosReport;
+
+interface
+
+uses
+ Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
+ Dialogs, uEditorPreview, frxExportText, frxExportRTF, frxExportMail,
+ frxExportXLS, frxExportImage, frxExportPDF, frxClass, frxDCtrl, frxGradient,
+ frxChBox, frxCross, frxRich, frxOLE, frxBarcode, JvAppStorage,
+ JvAppRegistryStorage, JvComponentBase, JvFormPlacement, ImgList, PngImageList,
+ StdActns, ActnList, ComCtrls, JvExComCtrls, JvStatusBar, TB2ExtItems,
+ TBXExtItems, TBX, TB2Item, TB2Dock, TB2Toolbar, pngimage, ExtCtrls,
+ JvExControls, JvNavigationPane, uCustomView,
+ uViewBase, uViewPeriodoFechas,
+ uViewFiltroArticulos, dxLayoutControl, cxControls, uViewFiltroImportes,
+ FactuGES_Intf, TBXDkPanels, uEditorInformeBase,
+ uIEditorInformeBase, uViewParametrosInforme, uIEditorInformeComprasArticulosReport,
+ uBizContactos, uViewFiltroProveedores;
+
+type
+ TfEditorInformeComprasArticulosReport = class(TfEditorInformeBase, IEditorInformeComprasArticulosReport)
+ TBXItem58: TTBXItem;
+ frViewFiltroArticulos1: TfrViewFiltroArticulos;
+ frViewPeriodoFechas1: TfrViewPeriodoFechas;
+ frViewFiltroProveedores1: TfrViewFiltroProveedores;
+ procedure actRefrescarExecute(Sender: TObject);
+
+ private
+ FListaIDArticulos: TIntegerArray;
+ FListaIDProveedores: TIntegerArray;
+ function GetFechaFin: Variant;
+ function GetFechaInicio: Variant;
+ function GetListaIDArticulos: TIntegerArray;
+ function GetListaIDProveedores: TIntegerArray;
+
+ procedure RefrescarInforme;
+
+ public
+ property FechaInicio: Variant read GetFechaInicio;
+ property FechaFin: Variant read GetFechaFin;
+ property ListaIDArticulos: TIntegerArray read GetListaIDArticulos;
+ property ListaIDProveedores: TIntegerArray read GetListaIDProveedores;
+
+ constructor Create(AOwner: TComponent); override;
+ destructor Destroy; override;
+ end;
+
+
+implementation
+
+{$R *.dfm}
+
+uses uROTypes, DateUtils, uGestorInformesController, uFactuGES_App, uStringsUtils;
+
+{ TfEditorGestorInformesReport }
+
+procedure TfEditorInformeComprasArticulosReport.actRefrescarExecute(Sender: TObject);
+begin
+ inherited;
+ RefrescarInforme;
+end;
+
+constructor TfEditorInformeComprasArticulosReport.Create(AOwner: TComponent);
+begin
+ inherited;
+ FListaIDArticulos := TIntegerArray.Create;
+ FListaIDProveedores := TIntegerArray.Create;
+end;
+
+destructor TfEditorInformeComprasArticulosReport.Destroy;
+begin
+ FListaIDArticulos.Free;
+ FListaIDProveedores.Free;
+ inherited;
+end;
+
+function TfEditorInformeComprasArticulosReport.GetFechaFin: Variant;
+begin
+ Result := frViewPeriodoFechas1.edtFechaFin.EditValue;
+
+ //Esto es para quitar la hora del timestamp para que luego no me redondee al dia siguiente
+ if not VarIsNull(Result) then
+ Result := DateOf(frViewPeriodoFechas1.edtFechaFin.Date);
+end;
+
+function TfEditorInformeComprasArticulosReport.GetFechaInicio: Variant;
+begin
+ Result := frViewPeriodoFechas1.edtFechaIni.EditValue;
+end;
+
+function TfEditorInformeComprasArticulosReport.GetListaIDArticulos: TIntegerArray;
+begin
+ FListaIDArticulos.Clear;
+ if Assigned(frViewFiltroArticulos1.Articulo) then
+ FListaIDArticulos.Add(frViewFiltroArticulos1.Articulo.ID);
+
+ Result := FListaIDArticulos;
+end;
+
+function TfEditorInformeComprasArticulosReport.GetListaIDProveedores: TIntegerArray;
+begin
+ FListaIDProveedores.Clear;
+ if Assigned(frViewFiltroProveedores1.Proveedor) then
+ FListaIDProveedores.Add(frViewFiltroProveedores1.Proveedor.ID);
+
+ Result := FListaIDProveedores;
+end;
+
+procedure TfEditorInformeComprasArticulosReport.RefrescarInforme;
+var
+ AStream: Binary;
+begin
+ ShowHourglassCursor;
+ try
+ AStream := (Controller as IGestorInformesController).DataModule.GenerarInformeComprasArticulos(
+ AppFactuGES.EmpresaActiva.ID,
+ FechaInicio,
+ FechaFin,
+ ListaIDArticulos,
+ ListaIDProveedores);
+
+ LoadFromStream(AStream);
+ Report.ShowPreparedReport;
+ finally
+ FreeAndNil(AStream);
+ HideHourglassCursor;
+ end;
+end;
+
+end.
diff --git a/Source/Modulos/Gestor de informes/Views/uEditorInformeVentasArticulosReport.dfm b/Source/Modulos/Gestor de informes/Views/uEditorInformeVentasArticulosReport.dfm
new file mode 100644
index 0000000..f8b2cd8
--- /dev/null
+++ b/Source/Modulos/Gestor de informes/Views/uEditorInformeVentasArticulosReport.dfm
@@ -0,0 +1,250 @@
+inherited fEditorInformeVentasArticulosReport: TfEditorInformeVentasArticulosReport
+ Caption = 'fEditorInformeVentasArticulosReport'
+ ClientHeight = 655
+ ClientWidth = 895
+ ExplicitWidth = 911
+ ExplicitHeight = 693
+ PixelsPerInch = 96
+ TextHeight = 13
+ inherited JvNavPanelHeader: TJvNavPanelHeader
+ Width = 895
+ ExplicitTop = 78
+ ExplicitWidth = 895
+ inherited Image1: TImage
+ Left = 868
+ ExplicitLeft = 868
+ end
+ end
+ inherited TBXDock: TTBXDock
+ Width = 895
+ ExplicitWidth = 895
+ inherited tbxMenu: TTBXToolbar
+ ExplicitWidth = 895
+ end
+ inherited TBXToolbar1: TTBXToolbar
+ ExplicitWidth = 616
+ object TBXItem58: TTBXItem [0]
+ Action = actRefrescar
+ DisplayMode = nbdmImageAndText
+ Images = SmallImages
+ end
+ end
+ end
+ inherited StatusBar: TJvStatusBar
+ Top = 636
+ Width = 895
+ ExplicitTop = 636
+ ExplicitWidth = 895
+ end
+ inherited TBXMultiDockIzquierdo: TTBXMultiDock
+ Height = 531
+ ExplicitTop = 105
+ ExplicitHeight = 531
+ end
+ inherited TBXMultiDockDerecho: TTBXMultiDock
+ Left = 703
+ Width = 192
+ Height = 531
+ ExplicitLeft = 703
+ ExplicitWidth = 192
+ ExplicitHeight = 531
+ inherited pnlParametros: TTBXDockablePanel
+ DockedWidth = 188
+ ExplicitWidth = 192
+ ExplicitHeight = 515
+ inherited TBXDockablePanel1: TTBXDockablePanel
+ Top = 365
+ ExplicitTop = 365
+ ExplicitWidth = 188
+ ExplicitHeight = 50
+ inherited TBXButton1: TTBXButton
+ AlignWithMargins = True
+ Left = 3
+ Top = 3
+ Width = 182
+ Height = 37
+ Margins.Left = 8
+ Margins.Top = 8
+ Margins.Right = 8
+ Margins.Bottom = 8
+ Align = alTop
+ ExplicitLeft = 3
+ ExplicitTop = 3
+ ExplicitWidth = 182
+ ExplicitHeight = 37
+ end
+ end
+ inline frViewFiltroArticulos1: TfrViewFiltroArticulos
+ Left = 0
+ Top = 296
+ Width = 188
+ Height = 146
+ Align = alTop
+ AutoSize = True
+ Font.Charset = DEFAULT_CHARSET
+ Font.Color = clWindowText
+ Font.Height = -11
+ Font.Name = 'Tahoma'
+ Font.Style = []
+ ParentFont = False
+ TabOrder = 1
+ ReadOnly = False
+ ExplicitTop = 296
+ ExplicitWidth = 188
+ ExplicitHeight = 146
+ inherited TBXLabel2: TTBXLabel
+ Width = 188
+ ExplicitWidth = 188
+ end
+ inherited bElegirArticulo: TBitBtn
+ Width = 108
+ ExplicitWidth = 108
+ end
+ inherited cbxDesglosado: TCheckBox
+ Enabled = False
+ Visible = False
+ end
+ inherited edtArticulo: TcxTextEdit
+ Style.LookAndFeel.SkinName = ''
+ StyleDisabled.LookAndFeel.SkinName = ''
+ StyleFocused.LookAndFeel.SkinName = ''
+ StyleHot.LookAndFeel.SkinName = ''
+ ExplicitWidth = 141
+ Width = 141
+ end
+ end
+ inline frViewFiltroComerciales1: TfrViewFiltroComerciales
+ Left = 0
+ Top = 136
+ Width = 188
+ Height = 160
+ Align = alTop
+ Font.Charset = DEFAULT_CHARSET
+ Font.Color = clWindowText
+ Font.Height = -11
+ Font.Name = 'Tahoma'
+ Font.Style = []
+ ParentFont = False
+ TabOrder = 2
+ ReadOnly = False
+ ExplicitTop = 136
+ ExplicitWidth = 188
+ ExplicitHeight = 160
+ inherited TBXLabel2: TTBXLabel
+ Width = 188
+ ExplicitWidth = 188
+ end
+ inherited bElegirComercial: TBitBtn
+ Width = 119
+ ExplicitWidth = 119
+ end
+ inherited cbxDesglosado: TCheckBox
+ Enabled = False
+ Visible = False
+ end
+ inherited edtComercial: TcxTextEdit
+ Style.LookAndFeel.SkinName = ''
+ StyleDisabled.LookAndFeel.SkinName = ''
+ StyleFocused.LookAndFeel.SkinName = ''
+ StyleHot.LookAndFeel.SkinName = ''
+ ExplicitWidth = 152
+ Width = 152
+ end
+ end
+ inline frViewPeriodoFechas1: TfrViewPeriodoFechas
+ Left = 0
+ Top = 0
+ Width = 188
+ Height = 136
+ Align = alTop
+ Font.Charset = DEFAULT_CHARSET
+ Font.Color = clWindowText
+ Font.Height = -11
+ Font.Name = 'Tahoma'
+ Font.Style = []
+ ParentFont = False
+ TabOrder = 3
+ ReadOnly = False
+ ExplicitWidth = 188
+ ExplicitHeight = 136
+ inherited TBXAlignmentPanel2: TTBXAlignmentPanel
+ Width = 182
+ Height = 98
+ ExplicitWidth = 182
+ ExplicitHeight = 98
+ inherited Label3: TLabel
+ Width = 85
+ end
+ inherited edtFechaFin: TcxDateEdit
+ Left = 74
+ Top = 77
+ Style.LookAndFeel.SkinName = ''
+ StyleDisabled.LookAndFeel.SkinName = ''
+ StyleFocused.LookAndFeel.SkinName = ''
+ StyleHot.LookAndFeel.SkinName = ''
+ ExplicitLeft = 74
+ ExplicitTop = 77
+ ExplicitWidth = 99
+ Width = 99
+ end
+ inherited edtFechaIni: TcxDateEdit
+ Left = 76
+ Style.LookAndFeel.SkinName = ''
+ StyleDisabled.LookAndFeel.SkinName = ''
+ StyleFocused.LookAndFeel.SkinName = ''
+ StyleHot.LookAndFeel.SkinName = ''
+ ExplicitLeft = 76
+ ExplicitWidth = 97
+ Width = 97
+ end
+ inherited cbPeriodo: TcxComboBox
+ Style.LookAndFeel.SkinName = ''
+ StyleDisabled.LookAndFeel.SkinName = ''
+ StyleFocused.LookAndFeel.SkinName = ''
+ StyleHot.LookAndFeel.SkinName = ''
+ ExplicitWidth = 166
+ Width = 166
+ end
+ end
+ inherited TBXLabel2: TTBXLabel
+ Width = 188
+ ExplicitWidth = 188
+ end
+ inherited TBXAlignmentPanel3: TTBXAlignmentPanel
+ Top = 136
+ Width = 182
+ Visible = False
+ ExplicitTop = 136
+ ExplicitWidth = 182
+ inherited Label4: TLabel
+ Width = 160
+ end
+ inherited edtFechaVenFin: TcxDateEdit
+ Style.LookAndFeel.SkinName = ''
+ StyleDisabled.LookAndFeel.SkinName = ''
+ StyleFocused.LookAndFeel.SkinName = ''
+ StyleHot.LookAndFeel.SkinName = ''
+ ExplicitWidth = 99
+ Width = 99
+ end
+ inherited edtFechaVenIni: TcxDateEdit
+ Style.LookAndFeel.SkinName = ''
+ StyleDisabled.LookAndFeel.SkinName = ''
+ StyleFocused.LookAndFeel.SkinName = ''
+ StyleHot.LookAndFeel.SkinName = ''
+ ExplicitWidth = 97
+ Width = 97
+ end
+ inherited cbPeriodo2: TcxComboBox
+ Style.LookAndFeel.SkinName = ''
+ StyleDisabled.LookAndFeel.SkinName = ''
+ StyleFocused.LookAndFeel.SkinName = ''
+ StyleHot.LookAndFeel.SkinName = ''
+ ExplicitWidth = 166
+ Width = 166
+ end
+ end
+ end
+ end
+ end
+end
diff --git a/Source/Modulos/Gestor de informes/Views/uEditorInformeVentasArticulosReport.pas b/Source/Modulos/Gestor de informes/Views/uEditorInformeVentasArticulosReport.pas
new file mode 100644
index 0000000..bb2aa4b
--- /dev/null
+++ b/Source/Modulos/Gestor de informes/Views/uEditorInformeVentasArticulosReport.pas
@@ -0,0 +1,130 @@
+unit uEditorInformeVentasArticulosReport;
+
+interface
+
+uses
+ Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
+ Dialogs, uEditorPreview, frxExportText, frxExportRTF, frxExportMail,
+ frxExportXLS, frxExportImage, frxExportPDF, frxClass, frxDCtrl, frxGradient,
+ frxChBox, frxCross, frxRich, frxOLE, frxBarcode, JvAppStorage,
+ JvAppRegistryStorage, JvComponentBase, JvFormPlacement, ImgList, PngImageList,
+ StdActns, ActnList, ComCtrls, JvExComCtrls, JvStatusBar, TB2ExtItems,
+ TBXExtItems, TBX, TB2Item, TB2Dock, TB2Toolbar, pngimage, ExtCtrls,
+ JvExControls, JvNavigationPane, uCustomView,
+ uViewBase, uViewPeriodoFechas,
+ uViewFiltroArticulos, dxLayoutControl, cxControls, uViewFiltroImportes,
+ FactuGES_Intf, TBXDkPanels, uEditorInformeBase,
+ uIEditorInformeBase, uViewParametrosInforme, uIEditorInformeVentasArticulosReport,
+ uBizContactos, uViewFiltroComerciales;
+
+type
+ TfEditorInformeVentasArticulosReport = class(TfEditorInformeBase, IEditorInformeVentasArticulosReport)
+ TBXItem58: TTBXItem;
+ frViewFiltroArticulos1: TfrViewFiltroArticulos;
+ frViewFiltroComerciales1: TfrViewFiltroComerciales;
+ frViewPeriodoFechas1: TfrViewPeriodoFechas;
+ procedure actRefrescarExecute(Sender: TObject);
+
+ private
+ FListaIDArticulos: TIntegerArray;
+ FListaIDComerciales: TIntegerArray;
+ function GetFechaFin: Variant;
+ function GetFechaInicio: Variant;
+ function GetListaIDArticulos: TIntegerArray;
+ function GetListaIDComerciales: TIntegerArray;
+
+ procedure RefrescarInforme;
+
+ public
+ property FechaInicio: Variant read GetFechaInicio;
+ property FechaFin: Variant read GetFechaFin;
+ property ListaIDArticulos: TIntegerArray read GetListaIDArticulos;
+ property ListaIDComerciales: TIntegerArray read GetListaIDComerciales;
+
+ constructor Create(AOwner: TComponent); override;
+ destructor Destroy; override;
+ end;
+
+
+implementation
+
+{$R *.dfm}
+
+uses uROTypes, DateUtils, uGestorInformesController, uFactuGES_App, uStringsUtils;
+
+{ TfEditorGestorInformesReport }
+
+procedure TfEditorInformeVentasArticulosReport.actRefrescarExecute(Sender: TObject);
+begin
+ inherited;
+ RefrescarInforme;
+end;
+
+constructor TfEditorInformeVentasArticulosReport.Create(AOwner: TComponent);
+begin
+ inherited;
+ FListaIDArticulos := TIntegerArray.Create;
+ FListaIDComerciales := TIntegerArray.Create;
+end;
+
+destructor TfEditorInformeVentasArticulosReport.Destroy;
+begin
+ FListaIDArticulos.Free;
+ FListaIDComerciales.Free;
+ inherited;
+end;
+
+function TfEditorInformeVentasArticulosReport.GetFechaFin: Variant;
+begin
+ Result := frViewPeriodoFechas1.edtFechaFin.EditValue;
+
+ //Esto es para quitar la hora del timestamp para que luego no me redondee al dia siguiente
+ if not VarIsNull(Result) then
+ Result := DateOf(frViewPeriodoFechas1.edtFechaFin.Date);
+end;
+
+function TfEditorInformeVentasArticulosReport.GetFechaInicio: Variant;
+begin
+ Result := frViewPeriodoFechas1.edtFechaIni.EditValue;
+end;
+
+function TfEditorInformeVentasArticulosReport.GetListaIDArticulos: TIntegerArray;
+begin
+ FListaIDArticulos.Clear;
+ if Assigned(frViewFiltroArticulos1.Articulo) then
+ FListaIDArticulos.Add(frViewFiltroArticulos1.Articulo.ID);
+
+ Result := FListaIDArticulos;
+end;
+
+function TfEditorInformeVentasArticulosReport.GetListaIDComerciales: TIntegerArray;
+begin
+ FListaIDComerciales.Clear;
+ if Assigned(frViewFiltroComerciales1.Comercial) then
+ FListaIDComerciales.Add(frViewFiltroComerciales1.Comercial.ID);
+
+ Result := FListaIDComerciales;
+end;
+
+procedure TfEditorInformeVentasArticulosReport.RefrescarInforme;
+var
+ AStream: Binary;
+begin
+ ShowHourglassCursor;
+ try
+ AStream := (Controller as IGestorInformesController).DataModule.GenerarInformeVentasArticulos(
+ AppFactuGES.EmpresaActiva.ID,
+ FechaInicio,
+ FechaFin,
+ ListaIDArticulos,
+ ListaIDComerciales);
+
+ LoadFromStream(AStream);
+ Report.ShowPreparedReport;
+ finally
+ FreeAndNil(AStream);
+ HideHourglassCursor;
+ end;
+end;
+
+end.
diff --git a/Source/Modulos/Gestor de informes/Views/uViewFiltroArticulos.dfm b/Source/Modulos/Gestor de informes/Views/uViewFiltroArticulos.dfm
new file mode 100644
index 0000000..bde416e
--- /dev/null
+++ b/Source/Modulos/Gestor de informes/Views/uViewFiltroArticulos.dfm
@@ -0,0 +1,131 @@
+inherited frViewFiltroArticulos: TfrViewFiltroArticulos
+ Width = 451
+ Align = alTop
+ OnCreate = CustomViewCreate
+ OnDestroy = CustomViewDestroy
+ ExplicitWidth = 451
+ DesignSize = (
+ 451
+ 195)
+ object TBXLabel2: TTBXLabel
+ Left = 0
+ Top = 0
+ Width = 451
+ Height = 29
+ Margins.Top = 5
+ Margins.Bottom = 10
+ Align = alTop
+ Caption = 'Articulos'
+ Font.Charset = DEFAULT_CHARSET
+ Font.Color = clWindowText
+ Font.Height = -11
+ Font.Name = 'MS Sans Serif'
+ Font.Style = [fsBold]
+ ParentColor = True
+ ParentFont = False
+ Underline = True
+ end
+ object bElegirArticulo: TBitBtn
+ AlignWithMargins = True
+ Left = 61
+ Top = 123
+ Width = 382
+ Height = 23
+ Margins.Left = 0
+ Margins.Top = 0
+ Margins.Right = 2
+ Margins.Bottom = 0
+ Anchors = [akLeft, akTop, akRight]
+ Caption = 'Elegir un art'#237'culo'
+ Enabled = False
+ TabOrder = 1
+ OnClick = bElegirArticuloClick
+ Glyph.Data = {
+ 36040000424D3604000000000000360000002800000010000000100000000100
+ 2000000000000004000000000000000000000000000000000000FF00FF00FF00
+ FF00FF00FF00EB00EB00C507C600AB13AD00A119A2009F19A000A215A400AA10
+ AC00B608B800CE00CE00EF00EF00FF00FF00FF00FF00FF00FF00FF00FF00FF00
+ FF00B426B000526840004A823400478F310043962F0042992F0043972F004690
+ 3100488533004B7237005A405100D201D200FF00FF00FF00FF00FF00FF00FF00
+ FF0062654E004F81350047903100409C2E003AA62C0038AA2B0039A72B003E9E
+ 2D00459230004D84340056753800A0189F00FF00FF00FF00FF00FF00FF00FF00
+ FF005F6B4C004B89330042992F0039A82B0032B428002EBB260031B6270037AB
+ 2A00409C2E00498C3200527B3600B015B100FF00FF00FF00FF00FF00FF00FF00
+ FF0090488700488D32003E9E2D0035AF290035B631007ACB7B002DBF280033B2
+ 28003DA12D0047903100576A4800EC01EC00FF00FF00FF00FF00FF00FF00FF00
+ FF00F008F1005F7351003E9F2D0034B0290080AC8100D2D3D30081BB820032B2
+ 28003DA22D004A863A00C519C500FF00FF00FF00FF00FF00FF00FF00FF00FF00
+ FF00FF00FF00EE09EF007861730036923E00598CAE00498CBB004A81A6002B70
+ 3A00606D5900D613D600FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00
+ FF00FF00FF00FF00FF00EA0CF400608CD00054A2D80053A1D6004F9DD300488B
+ C2009D11AC00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00
+ FF00FF00FF00FF00FF008C67DE005CA9DD005CA9DD005AA7DC0056A4D900519F
+ D400565FAB00EA00EA00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00
+ FF00FF00FF00EC0DF60060A7DE0063B0E30063B0E30061AEE1005CA9DD0056A4
+ D9004E94CC00C105C600FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00
+ FF00FF00FF00C532ED0066B2E5006BB7E9006BB7E90067B3E60061AEE1005AA7
+ DC00539FD500A817BE00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00
+ FF00FF00FF00BA3AE7004989B1004A85AC005895BD0068B2E30064B0E4005CA9
+ DE0053A0D400AA1BC300FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00
+ FF00FF00FF00CA23E8005098C400539AC7004E93BE00437DA2005190BA005198
+ C6003C79A000BE08C300FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00
+ FF00FF00FF00F804FC006995D40062ACDA005DA6D3005299C6004284AD003C7F
+ A900535AA100F300F300FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00
+ FF00FF00FF00FF00FF00C140ED0071BAEA0068B2E00059A1CF004990BC004378
+ AA00C315D600FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00
+ FF00FF00FF00FF00FF00FF00FF00C83EF000808BDF00668BCC007C60C700D116
+ E400FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00}
+ end
+ object cbxDesglosado: TCheckBox
+ Left = 23
+ Top = 49
+ Width = 146
+ Height = 17
+ Caption = 'Desglosar por art'#237'culo'
+ TabOrder = 2
+ end
+ object edtArticulo: TcxTextEdit
+ Left = 28
+ Top = 99
+ Anchors = [akLeft, akTop, akRight]
+ AutoSize = False
+ Enabled = False
+ Properties.ReadOnly = True
+ Properties.UseLeftAlignmentOnEditing = False
+ Style.BorderColor = clWindowFrame
+ Style.BorderStyle = ebs3D
+ Style.HotTrack = False
+ Style.LookAndFeel.NativeStyle = True
+ Style.LookAndFeel.SkinName = ''
+ StyleDisabled.LookAndFeel.NativeStyle = True
+ StyleDisabled.LookAndFeel.SkinName = ''
+ StyleDisabled.TextColor = clWindowText
+ StyleFocused.LookAndFeel.NativeStyle = True
+ StyleFocused.LookAndFeel.SkinName = ''
+ StyleHot.LookAndFeel.NativeStyle = True
+ StyleHot.LookAndFeel.SkinName = ''
+ TabOrder = 3
+ Height = 21
+ Width = 415
+ end
+ object rbTodosArticulos: TRadioButton
+ Left = 6
+ Top = 29
+ Width = 147
+ Height = 17
+ Caption = 'Incluir a todos los art'#237'culos'
+ Checked = True
+ TabOrder = 4
+ TabStop = True
+ OnClick = rbTodosArticulosClick
+ end
+ object rbUnArticulo: TRadioButton
+ Left = 3
+ Top = 76
+ Width = 175
+ Height = 17
+ Caption = 'S'#243'lo listar el art'#237'culo siguiente:'
+ TabOrder = 5
+ OnClick = rbUnArticuloClick
+ end
+end
diff --git a/Source/Modulos/Gestor de informes/Views/uViewFiltroArticulos.pas b/Source/Modulos/Gestor de informes/Views/uViewFiltroArticulos.pas
new file mode 100644
index 0000000..fae269e
--- /dev/null
+++ b/Source/Modulos/Gestor de informes/Views/uViewFiltroArticulos.pas
@@ -0,0 +1,114 @@
+unit uViewFiltroArticulos;
+
+interface
+
+uses
+ Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
+ Dialogs, uViewBase, cxControls, cxContainer, cxEdit, cxTextEdit, cxDBEdit,
+ StdCtrls, Buttons, TBXDkPanels, uViewParametrosInforme, uBizArticulos,
+ uArticulosController, uIViewFiltroArticulos;
+
+type
+
+
+ TfrViewFiltroArticulos = class(TfrViewParametrosInforme, IViewFiltroArticulos)
+ TBXLabel2: TTBXLabel;
+ rbTodosArticulos: TRadioButton;
+ rbUnArticulo: TRadioButton;
+ cbxDesglosado: TCheckBox;
+ bElegirArticulo: TBitBtn;
+ edtArticulo: TcxTextEdit;
+ procedure rbTodosArticulosClick(Sender: TObject);
+ procedure rbUnArticuloClick(Sender: TObject);
+ procedure CustomViewCreate(Sender: TObject);
+ procedure bElegirArticuloClick(Sender: TObject);
+ procedure CustomViewDestroy(Sender: TObject);
+ private
+ FArticulo : IBizArticulo;
+ FArticulosController : IArticulosController;
+ function getIdArticulo: Integer;
+ procedure setIdArticulo(const IdArticulo:Integer);
+ public
+ property IdArticulo : Integer read getIdArticulo write setIdArticulo;
+ property Articulo : IBizArticulo read FArticulo;
+ end;
+
+implementation
+
+{$R *.dfm}
+
+procedure TfrViewFiltroArticulos.bElegirArticuloClick(Sender: TObject);
+var
+ AArticulos : IBizArticulo;
+begin
+ inherited;
+ AArticulos := IBizArticulo(FArticulosController.BuscarTodos);
+ try
+ FArticulo := IBizArticulo(FArticulosController.ElegirArticulos(AArticulos, '', False));
+ if Assigned(FArticulo) then
+ begin
+ FArticulo.Open;
+ edtArticulo.Text := FArticulo.DESCRIPCION;
+ end;
+ finally
+ AArticulos := NIL;
+ end;
+end;
+
+procedure TfrViewFiltroArticulos.CustomViewCreate(Sender: TObject);
+begin
+ inherited;
+ FArticulo := NIL;
+ FArticulosController := NIL;
+end;
+
+procedure TfrViewFiltroArticulos.CustomViewDestroy(Sender: TObject);
+begin
+ inherited;
+ FArticulo := NIL;
+ FArticulosController := NIL;
+end;
+
+function TfrViewFiltroArticulos.getIdArticulo: Integer;
+begin
+ Result := FArticulo.ID;
+end;
+
+procedure TfrViewFiltroArticulos.rbTodosArticulosClick(Sender: TObject);
+begin
+ if rbTodosArticulos.Checked then
+ begin
+ cbxDesglosado.Enabled := True;
+ FArticulo := NIL;
+ bElegirArticulo.Enabled := False;
+ edtArticulo.Clear;
+ edtArticulo.Enabled := False;
+ end;
+end;
+
+procedure TfrViewFiltroArticulos.rbUnArticuloClick(Sender: TObject);
+begin
+ if rbUnArticulo.Checked then
+ begin
+ cbxDesglosado.Enabled := False;
+ bElegirArticulo.Enabled := True;
+ edtArticulo.Enabled := True;
+ if not Assigned(FArticulosController) then
+ FArticulosController := TArticulosController.Create;
+ end;
+end;
+
+procedure TfrViewFiltroArticulos.setIdArticulo(const IdArticulo: Integer);
+begin
+ if not Assigned(FArticulosController) then
+ FArticulosController := TArticulosController.Create;
+
+ FArticulo := IBizArticulo(FArticulosController.Buscar(IdArticulo));
+ if Assigned(FArticulo) then
+ begin
+ FArticulo.Open;
+ edtArticulo.Text := FArticulo.DESCRIPCION;
+ end;
+end;
+
+end.
diff --git a/Source/Modulos/Gestor de informes/Views/uViewFiltroComerciales.dfm b/Source/Modulos/Gestor de informes/Views/uViewFiltroComerciales.dfm
new file mode 100644
index 0000000..c9a36a8
--- /dev/null
+++ b/Source/Modulos/Gestor de informes/Views/uViewFiltroComerciales.dfm
@@ -0,0 +1,131 @@
+inherited frViewFiltroComerciales: TfrViewFiltroComerciales
+ Width = 451
+ Align = alTop
+ OnCreate = CustomViewCreate
+ OnDestroy = CustomViewDestroy
+ ExplicitWidth = 451
+ DesignSize = (
+ 451
+ 195)
+ object TBXLabel2: TTBXLabel
+ Left = 0
+ Top = 0
+ Width = 451
+ Height = 29
+ Margins.Top = 5
+ Margins.Bottom = 10
+ Align = alTop
+ Caption = 'Comerciales'
+ Font.Charset = DEFAULT_CHARSET
+ Font.Color = clWindowText
+ Font.Height = -11
+ Font.Name = 'MS Sans Serif'
+ Font.Style = [fsBold]
+ ParentColor = True
+ ParentFont = False
+ Underline = True
+ end
+ object bElegirComercial: TBitBtn
+ AlignWithMargins = True
+ Left = 61
+ Top = 123
+ Width = 382
+ Height = 23
+ Margins.Left = 0
+ Margins.Top = 0
+ Margins.Right = 2
+ Margins.Bottom = 0
+ Anchors = [akLeft, akTop, akRight]
+ Caption = 'Elegir un comercial'
+ Enabled = False
+ TabOrder = 1
+ OnClick = bElegirComercialClick
+ Glyph.Data = {
+ 36040000424D3604000000000000360000002800000010000000100000000100
+ 2000000000000004000000000000000000000000000000000000FF00FF00FF00
+ FF00FF00FF00EB00EB00C507C600AB13AD00A119A2009F19A000A215A400AA10
+ AC00B608B800CE00CE00EF00EF00FF00FF00FF00FF00FF00FF00FF00FF00FF00
+ FF00B426B000526840004A823400478F310043962F0042992F0043972F004690
+ 3100488533004B7237005A405100D201D200FF00FF00FF00FF00FF00FF00FF00
+ FF0062654E004F81350047903100409C2E003AA62C0038AA2B0039A72B003E9E
+ 2D00459230004D84340056753800A0189F00FF00FF00FF00FF00FF00FF00FF00
+ FF005F6B4C004B89330042992F0039A82B0032B428002EBB260031B6270037AB
+ 2A00409C2E00498C3200527B3600B015B100FF00FF00FF00FF00FF00FF00FF00
+ FF0090488700488D32003E9E2D0035AF290035B631007ACB7B002DBF280033B2
+ 28003DA12D0047903100576A4800EC01EC00FF00FF00FF00FF00FF00FF00FF00
+ FF00F008F1005F7351003E9F2D0034B0290080AC8100D2D3D30081BB820032B2
+ 28003DA22D004A863A00C519C500FF00FF00FF00FF00FF00FF00FF00FF00FF00
+ FF00FF00FF00EE09EF007861730036923E00598CAE00498CBB004A81A6002B70
+ 3A00606D5900D613D600FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00
+ FF00FF00FF00FF00FF00EA0CF400608CD00054A2D80053A1D6004F9DD300488B
+ C2009D11AC00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00
+ FF00FF00FF00FF00FF008C67DE005CA9DD005CA9DD005AA7DC0056A4D900519F
+ D400565FAB00EA00EA00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00
+ FF00FF00FF00EC0DF60060A7DE0063B0E30063B0E30061AEE1005CA9DD0056A4
+ D9004E94CC00C105C600FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00
+ FF00FF00FF00C532ED0066B2E5006BB7E9006BB7E90067B3E60061AEE1005AA7
+ DC00539FD500A817BE00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00
+ FF00FF00FF00BA3AE7004989B1004A85AC005895BD0068B2E30064B0E4005CA9
+ DE0053A0D400AA1BC300FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00
+ FF00FF00FF00CA23E8005098C400539AC7004E93BE00437DA2005190BA005198
+ C6003C79A000BE08C300FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00
+ FF00FF00FF00F804FC006995D40062ACDA005DA6D3005299C6004284AD003C7F
+ A900535AA100F300F300FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00
+ FF00FF00FF00FF00FF00C140ED0071BAEA0068B2E00059A1CF004990BC004378
+ AA00C315D600FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00
+ FF00FF00FF00FF00FF00FF00FF00C83EF000808BDF00668BCC007C60C700D116
+ E400FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00}
+ end
+ object cbxDesglosado: TCheckBox
+ Left = 23
+ Top = 49
+ Width = 146
+ Height = 17
+ Caption = 'Desglosar por comercial'
+ TabOrder = 2
+ end
+ object edtComercial: TcxTextEdit
+ Left = 28
+ Top = 99
+ Anchors = [akLeft, akTop, akRight]
+ AutoSize = False
+ Enabled = False
+ Properties.ReadOnly = True
+ Properties.UseLeftAlignmentOnEditing = False
+ Style.BorderColor = clWindowFrame
+ Style.BorderStyle = ebs3D
+ Style.HotTrack = False
+ Style.LookAndFeel.NativeStyle = True
+ Style.LookAndFeel.SkinName = ''
+ StyleDisabled.LookAndFeel.NativeStyle = True
+ StyleDisabled.LookAndFeel.SkinName = ''
+ StyleDisabled.TextColor = clWindowText
+ StyleFocused.LookAndFeel.NativeStyle = True
+ StyleFocused.LookAndFeel.SkinName = ''
+ StyleHot.LookAndFeel.NativeStyle = True
+ StyleHot.LookAndFeel.SkinName = ''
+ TabOrder = 3
+ Height = 21
+ Width = 415
+ end
+ object rbTodosComerciales: TRadioButton
+ Left = 3
+ Top = 26
+ Width = 246
+ Height = 17
+ Caption = 'Incluir a todos los comerciales'
+ Checked = True
+ TabOrder = 4
+ TabStop = True
+ OnClick = rbTodosComercialesClick
+ end
+ object rbUnComercial: TRadioButton
+ Left = 6
+ Top = 76
+ Width = 175
+ Height = 17
+ Caption = 'S'#243'lo listar el comercial siguiente:'
+ TabOrder = 5
+ OnClick = rbUnComercialClick
+ end
+end
diff --git a/Source/Modulos/Gestor de informes/Views/uViewFiltroComerciales.pas b/Source/Modulos/Gestor de informes/Views/uViewFiltroComerciales.pas
new file mode 100644
index 0000000..99dd89d
--- /dev/null
+++ b/Source/Modulos/Gestor de informes/Views/uViewFiltroComerciales.pas
@@ -0,0 +1,114 @@
+unit uViewFiltroComerciales;
+
+interface
+
+uses
+ Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
+ Dialogs, uViewBase, cxControls, cxContainer, cxEdit, cxTextEdit, cxDBEdit,
+ StdCtrls, Buttons, TBXDkPanels, uViewParametrosInforme, uBizContactos,
+ uComercialesController, uIViewFiltroComerciales;
+
+type
+
+
+ TfrViewFiltroComerciales = class(TfrViewParametrosInforme, IViewFiltroComerciales)
+ TBXLabel2: TTBXLabel;
+ rbTodosComerciales: TRadioButton;
+ rbUnComercial: TRadioButton;
+ cbxDesglosado: TCheckBox;
+ bElegirComercial: TBitBtn;
+ edtComercial: TcxTextEdit;
+ procedure rbTodosComercialesClick(Sender: TObject);
+ procedure rbUnComercialClick(Sender: TObject);
+ procedure CustomViewCreate(Sender: TObject);
+ procedure bElegirComercialClick(Sender: TObject);
+ procedure CustomViewDestroy(Sender: TObject);
+ private
+ FComercial : IBizComercial;
+ FComercialesController : IComercialesController;
+ function getIdComercial: Integer;
+ procedure setIdComercial(const IdComercial:Integer);
+ public
+ property IdComercial : Integer read getIdComercial write setIdComercial;
+ property Comercial : IBizComercial read FComercial;
+ end;
+
+implementation
+
+{$R *.dfm}
+
+procedure TfrViewFiltroComerciales.bElegirComercialClick(Sender: TObject);
+var
+ AComerciales : IBizComercial;
+begin
+ inherited;
+ AComerciales := IBizComercial(FComercialesController.BuscarTodos);
+ try
+ FComercial := IBizComercial(FComercialesController.ElegirContacto(AComerciales, '', False));
+ if Assigned(FComercial) then
+ begin
+ FComercial.Open;
+ edtComercial.Text := FComercial.NOMBRE;
+ end;
+ finally
+ AComerciales := NIL;
+ end;
+end;
+
+procedure TfrViewFiltroComerciales.CustomViewCreate(Sender: TObject);
+begin
+ inherited;
+ FComercial := NIL;
+ FComercialesController := NIL;
+end;
+
+procedure TfrViewFiltroComerciales.CustomViewDestroy(Sender: TObject);
+begin
+ inherited;
+ FComercial := NIL;
+ FComercialesController := NIL;
+end;
+
+function TfrViewFiltroComerciales.getIdComercial: Integer;
+begin
+ Result := FComercial.ID;
+end;
+
+procedure TfrViewFiltroComerciales.rbTodosComercialesClick(Sender: TObject);
+begin
+ if rbTodosComerciales.Checked then
+ begin
+ cbxDesglosado.Enabled := True;
+ FComercial := NIL;
+ bElegirComercial.Enabled := False;
+ edtComercial.Clear;
+ edtComercial.Enabled := False;
+ end;
+end;
+
+procedure TfrViewFiltroComerciales.rbUnComercialClick(Sender: TObject);
+begin
+ if rbUnComercial.Checked then
+ begin
+ cbxDesglosado.Enabled := False;
+ bElegirComercial.Enabled := True;
+ edtComercial.Enabled := True;
+ if not Assigned(FComercialesController) then
+ FComercialesController := TComercialesController.Create;
+ end;
+end;
+
+procedure TfrViewFiltroComerciales.setIdComercial(const IdComercial: Integer);
+begin
+ if not Assigned(FComercialesController) then
+ FComercialesController := TComercialesController.Create;
+
+ FComercial := IBizComercial(FComercialesController.Buscar(IdComercial));
+ if Assigned(FComercial) then
+ begin
+ FComercial.Open;
+ edtComercial.Text := FComercial.NOMBRE;
+ end;
+end;
+
+end.
diff --git a/Source/Modulos/Pedidos a proveedor/Controller/View/uIEditorResultadoPedidosConArticulo.pas b/Source/Modulos/Pedidos a proveedor/Controller/View/uIEditorResultadoPedidosConArticulo.pas
new file mode 100644
index 0000000..4bcf11b
--- /dev/null
+++ b/Source/Modulos/Pedidos a proveedor/Controller/View/uIEditorResultadoPedidosConArticulo.pas
@@ -0,0 +1,22 @@
+unit uIEditorResultadoPedidosConArticulo;
+
+interface
+
+uses
+ uIEditorPedidosProveedor, uBizPedidosProveedor, uGUIBase;
+
+type
+ IEditorResultadoPedidosConArticulo = interface(IEditorPedidosProveedor)
+ ['{40985D74-84EB-4FFF-B7D2-4CE36AE7AC24}']
+ function GetPedidosProveedorSeleccionados: IBizPedidoProveedor;
+ property PedidosProveedorSeleccionados: IBizPedidoProveedor read GetPedidosProveedorSeleccionados;
+
+ procedure SetMensaje (const AValue: String);
+ function GetMensaje: String;
+ property Mensaje : String read GetMensaje write SetMensaje;
+ end;
+
+
+implementation
+
+end.
diff --git a/Source/Modulos/Pedidos a proveedor/Views/uEditorBuscarArticuloPedido.dfm b/Source/Modulos/Pedidos a proveedor/Views/uEditorBuscarArticuloPedido.dfm
new file mode 100644
index 0000000..25d2f23
--- /dev/null
+++ b/Source/Modulos/Pedidos a proveedor/Views/uEditorBuscarArticuloPedido.dfm
@@ -0,0 +1,65 @@
+object fEditorBuscarArticuloPedido: TfEditorBuscarArticuloPedido
+ Left = 0
+ Top = 0
+ BorderStyle = bsDialog
+ Caption = 'Buscar art'#237'culo'
+ ClientHeight = 124
+ ClientWidth = 424
+ Color = clWindow
+ Font.Charset = DEFAULT_CHARSET
+ Font.Color = clWindowText
+ Font.Height = -11
+ Font.Name = 'Tahoma'
+ Font.Style = []
+ OldCreateOrder = False
+ Position = poScreenCenter
+ OnShow = FormShow
+ PixelsPerInch = 96
+ TextHeight = 13
+ object Label1: TLabel
+ Left = 21
+ Top = 16
+ Width = 199
+ Height = 13
+ Caption = 'Esrcriba el concepto del art'#237'culo a buscar:'
+ end
+ object Panel1: TPanel
+ Left = 0
+ Top = 83
+ Width = 424
+ Height = 41
+ Align = alBottom
+ TabOrder = 1
+ DesignSize = (
+ 424
+ 41)
+ object bBuscar: TButton
+ Tag = 1
+ Left = 260
+ Top = 8
+ Width = 75
+ Height = 25
+ Anchors = [akTop, akRight]
+ Caption = 'Buscar'
+ ModalResult = 1
+ TabOrder = 0
+ end
+ object bCancelar: TButton
+ Tag = 2
+ Left = 341
+ Top = 8
+ Width = 75
+ Height = 25
+ Anchors = [akTop, akRight]
+ Caption = 'Cancelar'
+ ModalResult = 2
+ TabOrder = 1
+ end
+ end
+ object cxConceptoABuscar: TcxTextEdit
+ Left = 21
+ Top = 42
+ TabOrder = 0
+ Width = 395
+ end
+end
diff --git a/Source/Modulos/Pedidos a proveedor/Views/uEditorBuscarArticuloPedido.pas b/Source/Modulos/Pedidos a proveedor/Views/uEditorBuscarArticuloPedido.pas
new file mode 100644
index 0000000..cd8b464
--- /dev/null
+++ b/Source/Modulos/Pedidos a proveedor/Views/uEditorBuscarArticuloPedido.pas
@@ -0,0 +1,54 @@
+unit uEditorBuscarArticuloPedido;
+
+interface
+
+uses
+ Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
+ Dialogs, StdCtrls, cxControls, cxContainer, cxEdit, cxTextEdit, cxMaskEdit,
+ cxDropDownEdit, cxCalendar, ExtCtrls, uEditorBasico,
+ cxGraphics, DB, uDAInterfaces, uDADataTable, cxDBEdit,
+ cxLookupEdit, cxDBLookupEdit, cxDBLookupComboBox;
+
+type
+ TfEditorBuscarArticuloPedido = class(TfEditorBasico)
+ Label1: TLabel;
+ bBuscar: TButton;
+ bCancelar: TButton;
+ Panel1: TPanel;
+ cxConceptoABuscar: TcxTextEdit;
+ procedure FormShow(Sender: TObject);
+
+ private
+ FConceptoABuscar: Variant;
+ function GetConceptoABuscar: Variant;
+ procedure SetConceptoABuscar(const Value: Variant);
+
+ public
+ property ConceptoABuscar: Variant Read GetConceptoABuscar write SetConceptoABuscar;
+
+ end;
+
+implementation
+{$R *.dfm}
+
+uses uFactuGES_App;
+
+
+{ TfEditorBuscarArticulo }
+
+procedure TfEditorBuscarArticuloPedido.FormShow(Sender: TObject);
+begin
+ cxConceptoABuscar.SetFocus;
+end;
+
+function TfEditorBuscarArticuloPedido.GetConceptoABuscar: Variant;
+begin
+ Result := cxConceptoABuscar.EditValue;
+end;
+
+procedure TfEditorBuscarArticuloPedido.SetConceptoABuscar(const Value: Variant);
+begin
+ cxConceptoABuscar.EditValue := Value;
+end;
+
+end.
diff --git a/Source/Modulos/Pedidos a proveedor/Views/uEditorElegirPedidosProveedor - copia.dfm b/Source/Modulos/Pedidos a proveedor/Views/uEditorElegirPedidosProveedor - copia.dfm
new file mode 100644
index 0000000..31ea862
--- /dev/null
+++ b/Source/Modulos/Pedidos a proveedor/Views/uEditorElegirPedidosProveedor - copia.dfm
@@ -0,0 +1,325 @@
+inherited fEditorElegirPedidosProveedor: TfEditorElegirPedidosProveedor
+ Caption = 'Seleccionar pedido de cliente'
+ ClientWidth = 656
+ ExplicitWidth = 664
+ PixelsPerInch = 96
+ TextHeight = 13
+ inherited JvNavPanelHeader: TJvNavPanelHeader
+ Top = 64
+ Width = 656
+ Caption = 'Lista de pedidos de proveedor'
+ Visible = False
+ ExplicitTop = 64
+ ExplicitWidth = 656
+ inherited Image1: TImage
+ Left = 629
+ ExplicitLeft = 629
+ end
+ end
+ inherited TBXDock: TTBXDock
+ Top = 91
+ Width = 656
+ Height = 53
+ ExplicitTop = 91
+ ExplicitWidth = 656
+ ExplicitHeight = 53
+ inherited tbxMain: TTBXToolbar
+ Align = alRight
+ ExplicitWidth = 142
+ ExplicitHeight = 27
+ inherited TBXItem2: TTBXItem
+ Visible = False
+ end
+ inherited TBXItem5: TTBXItem
+ Visible = False
+ end
+ inherited TBXItem4: TTBXItem
+ Visible = False
+ end
+ inherited TBXItem6: TTBXItem
+ Visible = False
+ end
+ inherited TBXItem36: TTBXItem
+ Action = actAnchoAuto2
+ end
+ end
+ inherited tbxFiltro: TTBXToolbar
+ Left = 142
+ Top = 26
+ DockPos = 115
+ DockRow = 1
+ ExplicitLeft = 142
+ ExplicitTop = 26
+ inherited TBXItem34: TTBXItem
+ Action = actQuitarFiltro2
+ end
+ end
+ inherited tbxMenu: TTBXToolbar
+ ExplicitWidth = 656
+ end
+ inherited TBXTMain2: TTBXToolbar
+ Left = 610
+ Top = 26
+ DockPos = 610
+ DockRow = 1
+ Visible = False
+ ExplicitLeft = 610
+ ExplicitTop = 26
+ ExplicitWidth = 36
+ end
+ end
+ inherited StatusBar: TJvStatusBar
+ Width = 656
+ Visible = False
+ ExplicitWidth = 656
+ end
+ inline frViewBarraSeleccion1: TfrViewBarraSeleccion [3]
+ Left = 0
+ Top = 376
+ Width = 656
+ Height = 49
+ Align = alBottom
+ Font.Charset = DEFAULT_CHARSET
+ Font.Color = clWindowText
+ Font.Height = -11
+ Font.Name = 'Tahoma'
+ Font.Style = []
+ ParentFont = False
+ TabOrder = 4
+ ReadOnly = False
+ ExplicitTop = 376
+ ExplicitWidth = 656
+ inherited JvFooter1: TJvFooter
+ Width = 656
+ ExplicitWidth = 656
+ inherited bSeleccionar: TJvFooterBtn
+ Left = 444
+ ExplicitLeft = 444
+ end
+ inherited bCancelar: TJvFooterBtn
+ Left = 548
+ ExplicitLeft = 548
+ end
+ end
+ inherited BarraSeleccionActionList: TActionList
+ inherited actSeleccionar: TAction
+ OnExecute = frViewBarraSeleccion1actSeleccionarExecute
+ OnUpdate = frViewBarraSeleccion1actSeleccionarUpdate
+ end
+ inherited actCancelar: TAction
+ OnExecute = frViewBarraSeleccion1actCancelarExecute
+ end
+ end
+ end
+ inherited frViewPedidosProveedor1: TfrViewPedidosProveedor [4]
+ Top = 144
+ Width = 656
+ Height = 232
+ ExplicitTop = 144
+ ExplicitWidth = 656
+ ExplicitHeight = 232
+ inherited cxGrid: TcxGrid
+ Width = 656
+ Height = 104
+ RootLevelOptions.DetailTabsPosition = dtpNone
+ ExplicitWidth = 656
+ ExplicitHeight = 104
+ inherited cxGridView: TcxGridDBTableView
+ DataController.Summary.DefaultGroupSummaryItems = <
+ item
+ Format = ',0.00 '#8364';-,0.00 '#8364
+ Kind = skSum
+ Position = spFooter
+ Column = frViewPedidosProveedor1.cxGridViewIMPORTE_TOTAL
+ end>
+ DataController.Summary.FooterSummaryItems = <
+ item
+ Format = '0 pedidos'
+ Kind = skCount
+ Column = frViewPedidosProveedor1.cxGridViewNOMBRE
+ end>
+ inherited cxGridViewCODIGO: TcxGridDBColumn
+ IsCaptionAssigned = True
+ end
+ end
+ end
+ inherited frViewFiltroBase1: TfrViewFiltroBase
+ Width = 656
+ ExplicitWidth = 656
+ inherited TBXDockablePanel1: TTBXDockablePanel
+ ExplicitWidth = 656
+ inherited dxLayoutControl1: TdxLayoutControl
+ Width = 656
+ ExplicitWidth = 656
+ inherited txtFiltroTodo: TcxTextEdit
+ Style.LookAndFeel.SkinName = ''
+ StyleDisabled.LookAndFeel.SkinName = ''
+ StyleFocused.LookAndFeel.SkinName = ''
+ StyleHot.LookAndFeel.SkinName = ''
+ ExplicitWidth = 457
+ Width = 457
+ end
+ inherited edtFechaIniFiltro: TcxDateEdit
+ Style.LookAndFeel.SkinName = ''
+ StyleDisabled.LookAndFeel.SkinName = ''
+ StyleFocused.LookAndFeel.SkinName = ''
+ StyleHot.LookAndFeel.SkinName = ''
+ ExplicitWidth = 240
+ Width = 240
+ end
+ inherited edtFechaFinFiltro: TcxDateEdit
+ Left = 300
+ Style.LookAndFeel.SkinName = ''
+ StyleDisabled.LookAndFeel.SkinName = ''
+ StyleFocused.LookAndFeel.SkinName = ''
+ StyleHot.LookAndFeel.SkinName = ''
+ ExplicitLeft = 300
+ ExplicitWidth = 404
+ Width = 404
+ end
+ end
+ inherited TBXAlignmentPanel1: TTBXAlignmentPanel
+ Width = 656
+ ExplicitWidth = 656
+ inherited tbxBotones: TTBXToolbar
+ Width = 646
+ ExplicitWidth = 646
+ end
+ end
+ end
+ end
+ inherited pnlAgrupaciones: TTBXDockablePanel
+ Top = 206
+ ExplicitTop = 206
+ ExplicitWidth = 656
+ inherited TBXAlignmentPanel1: TTBXAlignmentPanel
+ Width = 656
+ ExplicitWidth = 656
+ inherited TBXToolbar1: TTBXToolbar
+ Width = 646
+ ExplicitWidth = 646
+ end
+ end
+ end
+ inherited dxComponentPrinter: TdxComponentPrinter
+ inherited dxComponentPrinterLink: TdxGridReportLink
+ BuiltInReportLink = True
+ end
+ end
+ inherited cxViewGridPopupMenu: TcxGridPopupMenu
+ PopupMenus = <
+ item
+ GridView = frViewPedidosProveedor1.cxGridView
+ HitTypes = [gvhtCell]
+ Index = 0
+ end>
+ end
+ end
+ object pnlHeader: TPanel [5]
+ Left = 0
+ Top = 0
+ Width = 656
+ Height = 64
+ Align = alTop
+ BevelOuter = bvNone
+ Color = clWhite
+ Padding.Left = 25
+ Padding.Top = 8
+ Padding.Right = 25
+ Padding.Bottom = 8
+ ParentBackground = False
+ TabOrder = 5
+ object lblTitle: TLabel
+ AlignWithMargins = True
+ Left = 25
+ Top = 8
+ Width = 606
+ Height = 13
+ Margins.Left = 0
+ Margins.Top = 0
+ Margins.Right = 0
+ Margins.Bottom = 8
+ Align = alTop
+ Caption = 'Seleccione el pedido a proveedor'
+ Font.Charset = DEFAULT_CHARSET
+ Font.Color = clWindowText
+ Font.Height = -11
+ Font.Name = 'Tahoma'
+ Font.Style = [fsBold]
+ ParentFont = False
+ ExplicitWidth = 186
+ end
+ object lblComments: TLabel
+ AlignWithMargins = True
+ Left = 50
+ Top = 29
+ Width = 581
+ Height = 27
+ Margins.Left = 25
+ Margins.Top = 0
+ Margins.Right = 0
+ Align = alClient
+ ExplicitWidth = 3
+ ExplicitHeight = 13
+ end
+ end
+ inherited EditorActionList: TActionList [8]
+ Left = 112
+ Top = 192
+ inherited actPrevisualizar: TAction
+ Visible = False
+ end
+ inherited actImprimir: TAction
+ Visible = False
+ end
+ inherited actDuplicar: TAction
+ Visible = False
+ end
+ inherited actRecibirPedido: TAction
+ Visible = False
+ end
+ inherited ActEnviarEMail: TAction
+ Enabled = False
+ Visible = False
+ end
+ end
+ inherited dsDataTable: TDADataSource
+ Left = 8
+ Top = 192
+ end
+ inherited JvFormStorage: TJvFormStorage [12]
+ end
+ inherited GridPopupMenu: TPopupMenu [13]
+ Left = 80
+ Top = 192
+ end
+ inherited JsNuevoPedidoProveedorDialog: TJSDialog [14]
+ end
+ inherited JsPrevisualizarDialog: TJSDialog [15]
+ end
+ inherited JsImprimirDialog: TJSDialog [16]
+ end
+ object EditorSeleccionActionList: TActionList
+ Images = SmallImages
+ Left = 152
+ Top = 192
+ object actBuscar2: TAction
+ Category = 'Buscar'
+ Caption = 'Buscar'
+ ImageIndex = 10
+ ShortCut = 114
+ end
+ object actQuitarFiltro2: TAction
+ Category = 'Buscar'
+ Caption = 'Quitar filtro y ver todo'
+ ImageIndex = 19
+ OnExecute = actQuitarFiltro2Execute
+ end
+ object actAnchoAuto2: TAction
+ Category = 'Ver'
+ Caption = 'Ancho autom'#225'tico'
+ ImageIndex = 21
+ OnExecute = actAnchoAuto2Execute
+ end
+ end
+end
diff --git a/Source/Modulos/Pedidos a proveedor/Views/uEditorElegirPedidosProveedor - copia.pas b/Source/Modulos/Pedidos a proveedor/Views/uEditorElegirPedidosProveedor - copia.pas
new file mode 100644
index 0000000..fa3c82e
--- /dev/null
+++ b/Source/Modulos/Pedidos a proveedor/Views/uEditorElegirPedidosProveedor - copia.pas
@@ -0,0 +1,128 @@
+unit uEditorElegirPedidosProveedor;
+
+interface
+
+uses
+ Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
+ Dialogs, DB, uDADataTable, Menus, JvAppStorage, JvAppRegistryStorage,
+ JvComponentBase, JvFormPlacement, ImgList, PngImageList, StdActns,
+ ActnList, uCustomView, uViewBase, uViewGridBase, uViewGrid,
+ ComCtrls, TB2ExtItems, TBXExtItems, TBX, TB2Item, TB2Dock, TB2Toolbar,
+ pngimage, ExtCtrls, JvExControls, JvComponent,
+ JvNavigationPane, uViewBarraSeleccion, StdCtrls,
+ uBizPedidosProveedor, uIEditorElegirPedidosProveedor,
+ JvExComCtrls, JvStatusBar, uEditorPedidosProveedor, uViewPedidosProveedor,
+ JSDialog, uDAInterfaces;
+
+type
+ TfEditorElegirPedidosProveedor = class(TfEditorPedidosProveedor, IEditorElegirPedidosProveedor)
+ frViewBarraSeleccion1: TfrViewBarraSeleccion;
+ EditorSeleccionActionList: TActionList;
+ actBuscar2: TAction;
+ actQuitarFiltro2: TAction;
+ actAnchoAuto2: TAction;
+ pnlHeader: TPanel;
+ lblTitle: TLabel;
+ lblComments: TLabel;
+ procedure frViewBarraSeleccion1actSeleccionarUpdate(Sender: TObject);
+ procedure frViewBarraSeleccion1actCancelarExecute(Sender: TObject);
+ procedure frViewBarraSeleccion1actSeleccionarExecute(Sender: TObject);
+ procedure FormShow(Sender: TObject);
+ procedure actAnchoAuto2Execute(Sender: TObject);
+ procedure actQuitarFiltro2Execute(Sender: TObject);
+ protected
+ procedure SetMultiSelect (AValue : Boolean);
+ function GetMultiSelect : Boolean;
+ function GetPedidosProveedorSeleccionados: IBizPedidoProveedor;
+ procedure SetViewGrid(const Value: IViewGridBase); override;
+ procedure SetMensaje (const AValue: String);
+ function GetMensaje: String;
+ public
+ property Mensaje : String read GetMensaje write SetMensaje;
+ property PedidosProveedorSeleccionados: IBizPedidoProveedor read GetPedidosProveedorSeleccionados;
+ property MultiSelect : Boolean read GetMultiSelect write SetMultiSelect;
+ end;
+
+implementation
+
+uses
+ uEditorGridBase, cxGridCustomTableView, uIntegerListUtils, uDBSelectionListUtils,
+ uGridUtils, uEditorBase, uPedidosProveedorController;
+
+{$R *.dfm}
+
+{ TfEditorElegirPedidosProveedor }
+
+procedure TfEditorElegirPedidosProveedor.actAnchoAuto2Execute(Sender: TObject);
+begin
+ inherited;
+ actAnchoAuto.Execute;
+end;
+
+procedure TfEditorElegirPedidosProveedor.actQuitarFiltro2Execute(Sender: TObject);
+begin
+ inherited;
+ actQuitarFiltro.Execute;
+end;
+
+procedure TfEditorElegirPedidosProveedor.FormShow(Sender: TObject);
+begin
+ inherited;
+ EditorActionList.State := asSuspended;
+end;
+
+procedure TfEditorElegirPedidosProveedor.frViewBarraSeleccion1actCancelarExecute(
+ Sender: TObject);
+begin
+ inherited;
+ Close;
+end;
+
+procedure TfEditorElegirPedidosProveedor.frViewBarraSeleccion1actSeleccionarExecute(
+ Sender: TObject);
+begin
+ inherited;
+ ModalResult := mrOk;
+end;
+
+procedure TfEditorElegirPedidosProveedor.frViewBarraSeleccion1actSeleccionarUpdate(
+ Sender: TObject);
+begin
+ inherited;
+ (Sender as TAction).Enabled := (ViewGrid._FocusedView.Controller.SelectedRowCount > 0)
+end;
+
+function TfEditorElegirPedidosProveedor.GetPedidosProveedorSeleccionados: IBizPedidoProveedor;
+begin
+ SeleccionarFilasDesdeGrid(ViewGrid._FocusedView, (Pedidos as ISeleccionable).SelectedRecords);
+ // En SelectedRecords tengo los ID de las filas seleccionadas del grid
+ Result := (Controller as IPedidosProveedorController).ExtraerSeleccionados(Pedidos) as IBizPedidoProveedor;
+end;
+
+function TfEditorElegirPedidosProveedor.GetMensaje: String;
+begin
+ Result := lblComments.Caption;
+end;
+
+function TfEditorElegirPedidosProveedor.GetMultiSelect: Boolean;
+begin
+ Result := ViewGrid.MultiSelect;
+end;
+
+procedure TfEditorElegirPedidosProveedor.SetMensaje(const AValue: String);
+begin
+ lblComments.Caption := AValue;
+end;
+
+procedure TfEditorElegirPedidosProveedor.SetMultiSelect(AValue: Boolean);
+begin
+ ViewGrid.MultiSelect := AValue;
+end;
+
+procedure TfEditorElegirPedidosProveedor.SetViewGrid(const Value: IViewGridBase);
+begin
+ inherited;
+ ViewGrid.OnDblClick := frViewBarraSeleccion1.actSeleccionar.OnExecute;
+end;
+
+end.
diff --git a/Source/Modulos/Pedidos a proveedor/Views/uEditorElegirTipoOperacionCompra.dfm b/Source/Modulos/Pedidos a proveedor/Views/uEditorElegirTipoOperacionCompra.dfm
new file mode 100644
index 0000000..b0c2ae0
--- /dev/null
+++ b/Source/Modulos/Pedidos a proveedor/Views/uEditorElegirTipoOperacionCompra.dfm
@@ -0,0 +1,90 @@
+object fEditorElegirTipoOperacionCompra: TfEditorElegirTipoOperacionCompra
+ Left = 0
+ Top = 0
+ BorderStyle = bsDialog
+ Caption = 'Tipo de operaci'#243'n'
+ ClientHeight = 124
+ ClientWidth = 424
+ Color = clWindow
+ Font.Charset = DEFAULT_CHARSET
+ Font.Color = clWindowText
+ Font.Height = -11
+ Font.Name = 'Tahoma'
+ Font.Style = []
+ OldCreateOrder = False
+ Position = poScreenCenter
+ OnDestroy = FormDestroy
+ OnShow = FormShow
+ PixelsPerInch = 96
+ TextHeight = 13
+ object Label1: TLabel
+ Left = 21
+ Top = 16
+ Width = 238
+ Height = 13
+ Caption = 'Seleccione el tipo de operaci'#243'n que desea asignar'
+ end
+ object combo: TLabel
+ Left = 81
+ Top = 45
+ Width = 24
+ Height = 13
+ Alignment = taRightJustify
+ Caption = 'Tipo:'
+ end
+ object Panel1: TPanel
+ Left = 0
+ Top = 83
+ Width = 424
+ Height = 41
+ Align = alBottom
+ TabOrder = 0
+ DesignSize = (
+ 424
+ 41)
+ object bAceptar: TButton
+ Left = 260
+ Top = 8
+ Width = 75
+ Height = 25
+ Anchors = [akTop, akRight]
+ Caption = 'Aceptar'
+ ModalResult = 1
+ TabOrder = 0
+ end
+ object bCancelar: TButton
+ Left = 341
+ Top = 8
+ Width = 75
+ Height = 25
+ Anchors = [akTop, akRight]
+ Caption = 'Cancelar'
+ ModalResult = 2
+ TabOrder = 1
+ end
+ end
+ object cbTipo: TcxLookupComboBox
+ Left = 111
+ Top = 42
+ Properties.DropDownListStyle = lsFixedList
+ Properties.ImmediatePost = True
+ Properties.KeyFieldNames = 'ID'
+ Properties.ListColumns = <
+ item
+ FieldName = 'DESCRIPCION'
+ end>
+ Properties.ListOptions.ShowHeader = False
+ Properties.ListOptions.SyncMode = True
+ Properties.ListSource = dsTipo
+ Style.LookAndFeel.Kind = lfOffice11
+ StyleDisabled.LookAndFeel.Kind = lfOffice11
+ StyleFocused.LookAndFeel.Kind = lfOffice11
+ StyleHot.LookAndFeel.Kind = lfOffice11
+ TabOrder = 1
+ Width = 266
+ end
+ object dsTipo: TDADataSource
+ Left = 24
+ Top = 64
+ end
+end
diff --git a/Source/Modulos/Pedidos a proveedor/Views/uEditorElegirTipoOperacionCompra.pas b/Source/Modulos/Pedidos a proveedor/Views/uEditorElegirTipoOperacionCompra.pas
new file mode 100644
index 0000000..7fbb066
--- /dev/null
+++ b/Source/Modulos/Pedidos a proveedor/Views/uEditorElegirTipoOperacionCompra.pas
@@ -0,0 +1,70 @@
+unit uEditorElegirTipoOperacionCompra;
+
+interface
+
+uses
+ Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
+ Dialogs, StdCtrls, cxControls, cxContainer, cxEdit, cxTextEdit, cxMaskEdit,
+ cxDropDownEdit, cxCalendar, ExtCtrls, uEditorBasico, uIEditorElegirTipoOperacionCompra,
+ cxGraphics, DB, uDAInterfaces, uDADataTable, cxDBEdit, uTiposOperacionCompraController,
+ cxLookupEdit, cxDBLookupEdit, cxDBLookupComboBox, uBizTiposOperacionCompra;
+
+type
+ TfEditorElegirTipoOperacionCompra = class(TfEditorBasico, IEditorElegirTipoOperacionCompra)
+ Label1: TLabel;
+ bAceptar: TButton;
+ bCancelar: TButton;
+ combo: TLabel;
+ Panel1: TPanel;
+ cbTipo: TcxLookupComboBox;
+ dsTipo: TDADataSource;
+ procedure FormShow(Sender: TObject);
+ procedure FormDestroy(Sender: TObject);
+
+ private
+ FController: ITiposOperacionCompraController;
+ FListaTiposOperacionCompra : IBizTiposOperacionCompra;
+ FTipoOperacionCompra: Variant;
+ function GetTipoOperacionCompra: Variant;
+ procedure SetTipoOperacionCompra(const Value: Variant);
+
+ public
+ property TipoOperacionCompra: Variant Read GetTipoOperacionCompra write SetTipoOperacionCompra;
+
+ end;
+
+implementation
+{$R *.dfm}
+
+uses uFactuGES_App;
+
+procedure TfEditorElegirTipoOperacionCompra.FormDestroy(Sender: TObject);
+begin
+ FController := Nil;
+ FListaTiposOperacionCompra := Nil;
+end;
+
+procedure TfEditorElegirTipoOperacionCompra.FormShow(Sender: TObject);
+var
+
+ i : integer;
+
+begin
+ FController := TTiposOperacionCompraController.Create;
+ FListaTiposOperacionCompra := FController.BuscarTodos;
+ FListaTiposOperacionCompra.DataTable.Active := True;
+ dsTipo.DataTable := FListaTiposOperacionCompra.DataTable;
+ cbTipo.ItemIndex := 0;
+end;
+
+function TfEditorElegirTipoOperacionCompra.GetTipoOperacionCompra: Variant;
+begin
+ Result := FListaTiposOperacionCompra.ID;
+end;
+
+procedure TfEditorElegirTipoOperacionCompra.SetTipoOperacionCompra(const Value: variant);
+begin
+// cbTarifa.ItemIndex := cbTarifa.Properties.Items.IndexOfName(Value);
+end;
+
+end.
diff --git a/Source/Modulos/Pedidos a proveedor/Views/uEditorResultadoPedidosConArticulo.dfm b/Source/Modulos/Pedidos a proveedor/Views/uEditorResultadoPedidosConArticulo.dfm
new file mode 100644
index 0000000..128e4c1
--- /dev/null
+++ b/Source/Modulos/Pedidos a proveedor/Views/uEditorResultadoPedidosConArticulo.dfm
@@ -0,0 +1,311 @@
+inherited fEditorResultadoPedidosConArticulo: TfEditorResultadoPedidosConArticulo
+ Caption = 'Lista de pedidos encontrados'
+ ClientHeight = 787
+ ClientWidth = 1138
+ ExplicitWidth = 1154
+ ExplicitHeight = 825
+ PixelsPerInch = 96
+ TextHeight = 13
+ inherited JvNavPanelHeader: TJvNavPanelHeader
+ Top = 64
+ Width = 1138
+ Caption = 'Lista de pedidos de proveedor'
+ ExplicitTop = 64
+ ExplicitWidth = 1138
+ inherited Image1: TImage
+ Left = 1111
+ ExplicitLeft = 629
+ end
+ end
+ inherited TBXDock: TTBXDock
+ Top = 91
+ Width = 1138
+ Height = 52
+ ExplicitTop = 91
+ ExplicitWidth = 1138
+ ExplicitHeight = 52
+ inherited tbxMain: TTBXToolbar
+ Align = alRight
+ ExplicitWidth = 223
+ ExplicitHeight = 27
+ inherited TBXItem5: TTBXItem
+ Action = actModificar2
+ end
+ inherited TBXItem6: TTBXItem
+ Visible = False
+ end
+ inherited TBXItem36: TTBXItem
+ Action = actAnchoAuto2
+ end
+ end
+ inherited tbxFiltro: TTBXToolbar
+ Left = 223
+ Top = 25
+ DockPos = 115
+ DockRow = 1
+ ExplicitLeft = 223
+ ExplicitTop = 25
+ ExplicitWidth = 416
+ inherited TBXItem34: TTBXItem
+ Action = actQuitarFiltro2
+ end
+ inherited TBXItem37: TTBXItem
+ Enabled = False
+ Visible = False
+ end
+ end
+ inherited tbxMenu: TTBXToolbar
+ ExplicitWidth = 1138
+ end
+ inherited TBXTMain2: TTBXToolbar
+ Left = 639
+ Top = 25
+ DockPos = 610
+ DockRow = 1
+ Visible = False
+ ExplicitLeft = 639
+ ExplicitTop = 25
+ ExplicitWidth = 495
+ end
+ end
+ inherited StatusBar: TJvStatusBar
+ Top = 768
+ Width = 1138
+ Visible = False
+ ExplicitTop = 768
+ ExplicitWidth = 1138
+ end
+ inherited frViewPedidosProveedor1: TfrViewPedidosProveedor
+ Top = 143
+ Width = 1138
+ Height = 625
+ ExplicitTop = 143
+ ExplicitWidth = 1138
+ ExplicitHeight = 625
+ inherited cxGrid: TcxGrid
+ Width = 1138
+ Height = 497
+ RootLevelOptions.DetailTabsPosition = dtpNone
+ ExplicitWidth = 1138
+ ExplicitHeight = 497
+ inherited cxGridView: TcxGridDBTableView
+ DataController.Summary.DefaultGroupSummaryItems = <
+ item
+ Format = ',0.00 '#8364';-,0.00 '#8364
+ Kind = skSum
+ Position = spFooter
+ Column = frViewPedidosProveedor1.cxGridViewIMPORTE_TOTAL
+ end>
+ DataController.Summary.FooterSummaryItems = <
+ item
+ Format = '0 pedidos'
+ Kind = skCount
+ Column = frViewPedidosProveedor1.cxGridViewNOMBRE
+ end>
+ inherited cxGridViewCODIGO: TcxGridDBColumn
+ IsCaptionAssigned = True
+ end
+ end
+ end
+ inherited frViewFiltroBase1: TfrViewFiltroBase
+ Width = 1138
+ ExplicitWidth = 1138
+ inherited TBXDockablePanel1: TTBXDockablePanel
+ ExplicitWidth = 1138
+ inherited dxLayoutControl1: TdxLayoutControl
+ Width = 1138
+ ExplicitWidth = 1138
+ inherited txtFiltroTodo: TcxTextEdit
+ Style.LookAndFeel.SkinName = ''
+ StyleDisabled.LookAndFeel.SkinName = ''
+ StyleFocused.LookAndFeel.SkinName = ''
+ StyleHot.LookAndFeel.SkinName = ''
+ end
+ inherited edtFechaIniFiltro: TcxDateEdit
+ Style.LookAndFeel.SkinName = ''
+ StyleDisabled.LookAndFeel.SkinName = ''
+ StyleFocused.LookAndFeel.SkinName = ''
+ StyleHot.LookAndFeel.SkinName = ''
+ end
+ inherited edtFechaFinFiltro: TcxDateEdit
+ Left = 676
+ Style.LookAndFeel.SkinName = ''
+ StyleDisabled.LookAndFeel.SkinName = ''
+ StyleFocused.LookAndFeel.SkinName = ''
+ StyleHot.LookAndFeel.SkinName = ''
+ ExplicitLeft = 676
+ ExplicitWidth = 404
+ Width = 404
+ end
+ inherited txtFiltroTodo2: TcxTextEdit
+ Left = 706
+ Style.LookAndFeel.SkinName = ''
+ StyleDisabled.LookAndFeel.SkinName = ''
+ StyleFocused.LookAndFeel.SkinName = ''
+ StyleHot.LookAndFeel.SkinName = ''
+ ExplicitLeft = 706
+ ExplicitWidth = 468
+ Width = 468
+ end
+ end
+ inherited TBXAlignmentPanel1: TTBXAlignmentPanel
+ Width = 1138
+ ExplicitWidth = 1138
+ inherited tbxBotones: TTBXToolbar
+ Width = 1128
+ ExplicitWidth = 1128
+ end
+ end
+ end
+ end
+ inherited pnlAgrupaciones: TTBXDockablePanel
+ Top = 599
+ ExplicitTop = 599
+ ExplicitWidth = 1138
+ inherited TBXAlignmentPanel1: TTBXAlignmentPanel
+ Width = 1138
+ ExplicitWidth = 1138
+ inherited TBXToolbar1: TTBXToolbar
+ Width = 1128
+ ExplicitWidth = 1128
+ end
+ end
+ end
+ inherited dxComponentPrinter: TdxComponentPrinter
+ inherited dxComponentPrinterLink: TdxGridReportLink
+ BuiltInReportLink = True
+ end
+ end
+ inherited cxViewGridPopupMenu: TcxGridPopupMenu
+ PopupMenus = <
+ item
+ GridView = frViewPedidosProveedor1.cxGridView
+ HitTypes = [gvhtCell]
+ Index = 0
+ end>
+ end
+ end
+ object pnlHeader: TPanel [4]
+ Left = 0
+ Top = 0
+ Width = 1138
+ Height = 64
+ Align = alTop
+ BevelOuter = bvNone
+ Color = clWhite
+ Padding.Left = 25
+ Padding.Top = 8
+ Padding.Right = 25
+ Padding.Bottom = 8
+ ParentBackground = False
+ TabOrder = 4
+ Visible = False
+ object lblTitle: TLabel
+ AlignWithMargins = True
+ Left = 25
+ Top = 8
+ Width = 1088
+ Height = 13
+ Margins.Left = 0
+ Margins.Top = 0
+ Margins.Right = 0
+ Margins.Bottom = 8
+ Align = alTop
+ Caption = 'Seleccione el pedido a proveedor'
+ Font.Charset = DEFAULT_CHARSET
+ Font.Color = clWindowText
+ Font.Height = -11
+ Font.Name = 'Tahoma'
+ Font.Style = [fsBold]
+ ParentFont = False
+ ExplicitWidth = 186
+ end
+ object lblComments: TLabel
+ AlignWithMargins = True
+ Left = 50
+ Top = 29
+ Width = 1063
+ Height = 27
+ Margins.Left = 25
+ Margins.Top = 0
+ Margins.Right = 0
+ Align = alClient
+ ExplicitWidth = 3
+ ExplicitHeight = 13
+ end
+ end
+ inherited SmallImages: TPngImageList [5]
+ end
+ inherited LargeImages: TPngImageList [6]
+ end
+ inherited EditorActionList: TActionList [7]
+ Left = 112
+ Top = 192
+ inherited actNuevo: TAction
+ Enabled = False
+ Visible = False
+ end
+ inherited actEliminar: TAction
+ Enabled = False
+ Visible = False
+ end
+ inherited actPrevisualizar: TAction
+ Visible = False
+ end
+ inherited actImprimir: TAction
+ Visible = False
+ end
+ inherited actDuplicar: TAction
+ Visible = False
+ end
+ inherited actRecibirPedido: TAction
+ Visible = False
+ end
+ inherited ActEnviarEMail: TAction
+ Enabled = False
+ Visible = False
+ end
+ end
+ inherited JvAppRegistryStorage: TJvAppRegistryStorage [8]
+ end
+ inherited dsDataTable: TDADataSource [9]
+ Left = 8
+ Top = 192
+ end
+ inherited StatusBarImages: TPngImageList [10]
+ end
+ inherited JvFormStorage: TJvFormStorage [11]
+ end
+ inherited GridPopupMenu: TPopupMenu
+ Left = 80
+ Top = 192
+ end
+ object EditorSeleccionActionList: TActionList
+ Images = SmallImages
+ Left = 152
+ Top = 192
+ object actBuscar2: TAction
+ Category = 'Buscar'
+ Caption = 'Buscar'
+ ImageIndex = 10
+ ShortCut = 114
+ end
+ object actQuitarFiltro2: TAction
+ Category = 'Buscar'
+ Caption = 'Quitar filtro y ver todo'
+ ImageIndex = 19
+ OnExecute = actQuitarFiltro2Execute
+ end
+ object actAnchoAuto2: TAction
+ Category = 'Ver'
+ Caption = 'Ancho autom'#225'tico'
+ ImageIndex = 21
+ OnExecute = actAnchoAuto2Execute
+ end
+ object actModificar2: TAction
+ Caption = 'Modificar'
+ ImageIndex = 18
+ OnExecute = actModificar2Execute
+ end
+ end
+end
diff --git a/Source/Modulos/Pedidos a proveedor/Views/uEditorResultadoPedidosConArticulo.pas b/Source/Modulos/Pedidos a proveedor/Views/uEditorResultadoPedidosConArticulo.pas
new file mode 100644
index 0000000..267295b
--- /dev/null
+++ b/Source/Modulos/Pedidos a proveedor/Views/uEditorResultadoPedidosConArticulo.pas
@@ -0,0 +1,146 @@
+unit uEditorResultadoPedidosConArticulo;
+
+interface
+
+uses
+ Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
+ Dialogs, DB, uDADataTable, Menus, JvAppStorage, JvAppRegistryStorage,
+ JvComponentBase, JvFormPlacement, ImgList, PngImageList, StdActns,
+ ActnList, uCustomView, uViewBase, uViewGridBase, uViewGrid,
+ ComCtrls, TB2ExtItems, TBXExtItems, TBX, TB2Item, TB2Dock, TB2Toolbar,
+ pngimage, ExtCtrls, JvExControls, JvComponent,
+ JvNavigationPane, uViewBarraSeleccion, StdCtrls,
+ uBizPedidosProveedor, uIEditorResultadoPedidosConArticulo,
+ JvExComCtrls, JvStatusBar, uEditorPedidosProveedor, uViewPedidosProveedor,
+ JSDialog, uDAInterfaces;
+
+type
+ TfEditorResultadoPedidosConArticulo = class(TfEditorPedidosProveedor, IEditorResultadoPedidosConArticulo)
+ EditorSeleccionActionList: TActionList;
+ actBuscar2: TAction;
+ actQuitarFiltro2: TAction;
+ actAnchoAuto2: TAction;
+ pnlHeader: TPanel;
+ lblTitle: TLabel;
+ lblComments: TLabel;
+ actModificar2: TAction;
+ procedure frViewBarraSeleccion1actCancelarExecute(Sender: TObject);
+ procedure frViewBarraSeleccion1actSeleccionarExecute(Sender: TObject);
+ procedure FormShow(Sender: TObject);
+ procedure actAnchoAuto2Execute(Sender: TObject);
+ procedure actQuitarFiltro2Execute(Sender: TObject);
+ procedure actModificar2Execute(Sender: TObject);
+ protected
+ function GetPedidosProveedorSeleccionados: IBizPedidoProveedor;
+ procedure SetMensaje (const AValue: String);
+ function GetMensaje: String;
+ procedure PonerTitulos(const ATitulo: String = ''); override;
+ procedure ModificarInterno; override;
+ public
+ property Mensaje : String read GetMensaje write SetMensaje;
+ property PedidosProveedorSeleccionados: IBizPedidoProveedor read GetPedidosProveedorSeleccionados;
+ end;
+
+implementation
+
+uses
+ uStringsUtils, uEditorGridBase, cxGridCustomTableView, uIntegerListUtils, uDBSelectionListUtils,
+ uGridUtils, uEditorBase, uPedidosProveedorController;
+
+{$R *.dfm}
+
+{ TfEditorElegirPedidosProveedor }
+
+procedure TfEditorResultadoPedidosConArticulo.actAnchoAuto2Execute(Sender: TObject);
+begin
+ inherited;
+ actAnchoAuto.Execute;
+end;
+
+procedure TfEditorResultadoPedidosConArticulo.actModificar2Execute(
+ Sender: TObject);
+begin
+ inherited;
+//
+end;
+
+procedure TfEditorResultadoPedidosConArticulo.actQuitarFiltro2Execute(Sender: TObject);
+begin
+ inherited;
+ actQuitarFiltro.Execute;
+end;
+
+procedure TfEditorResultadoPedidosConArticulo.FormShow(Sender: TObject);
+begin
+ inherited;
+ EditorActionList.State := asSuspended;
+end;
+
+procedure TfEditorResultadoPedidosConArticulo.frViewBarraSeleccion1actCancelarExecute(
+ Sender: TObject);
+begin
+ inherited;
+ Close;
+end;
+
+procedure TfEditorResultadoPedidosConArticulo.frViewBarraSeleccion1actSeleccionarExecute(
+ Sender: TObject);
+begin
+ inherited;
+ ModalResult := mrOk;
+end;
+
+function TfEditorResultadoPedidosConArticulo.GetPedidosProveedorSeleccionados: IBizPedidoProveedor;
+begin
+ SeleccionarFilasDesdeGrid(ViewGrid._FocusedView, (Pedidos as ISeleccionable).SelectedRecords);
+ // En SelectedRecords tengo los ID de las filas seleccionadas del grid
+ Result := (Controller as IPedidosProveedorController).ExtraerSeleccionados(Pedidos) as IBizPedidoProveedor;
+end;
+
+procedure TfEditorResultadoPedidosConArticulo.ModificarInterno;
+var
+ APedido: IBizPedidoProveedor;
+begin
+// inherited;
+ APedido := FController.Buscar(Pedidos.ID);
+ APedido.DataTable.Active := True;
+ FController.Ver(APedido);
+end;
+
+procedure TfEditorResultadoPedidosConArticulo.PonerTitulos(const ATitulo: String);
+var
+ AHeaderText,
+ AWindowText : String;
+begin
+ if EsCadenaVacia(ATitulo) then
+ begin
+ AHeaderText := FHeaderText;
+ AWindowText := 'Listado de pedidos de proveedor encontrados'
+ end
+ else begin
+ AHeaderText := ATitulo;
+ AWindowText := 'Listado de pedidos de proveedor encontrados';
+ end;
+
+ if ReadOnly then
+ begin
+ AHeaderText := AHeaderText + ' (NO MODIFICABLE)';
+ AWindowText := AWindowText + ' (NO MODIFICABLE)';
+ end;
+
+ JvNavPanelHeader.Caption := AHeaderText;
+ Caption := AWindowText;
+end;
+
+function TfEditorResultadoPedidosConArticulo.GetMensaje: String;
+begin
+ Result := lblComments.Caption;
+end;
+
+procedure TfEditorResultadoPedidosConArticulo.SetMensaje(const AValue: String);
+begin
+ lblComments.Caption := AValue;
+end;
+
+
+end.
diff --git a/Source/Modulos/Presupuestos de cliente/Model/PresupuestosCliente_model.dproj b/Source/Modulos/Presupuestos de cliente/Model/PresupuestosCliente_model.dproj
index b480130..28b7679 100644
--- a/Source/Modulos/Presupuestos de cliente/Model/PresupuestosCliente_model.dproj
+++ b/Source/Modulos/Presupuestos de cliente/Model/PresupuestosCliente_model.dproj
@@ -43,6 +43,10 @@
Package
FalseTrueFalseFalseFalseFalseTrueFalse1000FalseFalseFalseFalseFalse308212521.0.0.01.0.0.0
+
+
+
+
RemObjects Pascal Script - RemObjects SDK 3.0 Integration
EurekaLog 5.1.9
PresupuestosCliente_model.dpk
@@ -52,15 +56,15 @@
MainSource
-
-
-
-
-
-
-
-
-
+
+
+
+
+
+
+
+
+
@@ -72,7 +76,7 @@
diff --git a/Source/Modulos/Presupuestos de cliente/Model/uBizPresupuestosCliente.pas b/Source/Modulos/Presupuestos de cliente/Model/uBizPresupuestosCliente.pas
index 4c67f3c..397375f 100644
--- a/Source/Modulos/Presupuestos de cliente/Model/uBizPresupuestosCliente.pas
+++ b/Source/Modulos/Presupuestos de cliente/Model/uBizPresupuestosCliente.pas
@@ -340,10 +340,14 @@ begin
if not bEnEdicion then
DataTable.Edit;
+//Si se cambia el cliente quiere decir que se anula la dirección que tuviera asignada porque el cliente nuevo seleccionado es el que manda (caso detectado por Valeria 24/02/2026)
+ ID_DIRECCIONIsNull := True;
+
ID_CLIENTE := FCliente.ID;
ID_AGENTE := FCliente.ID_AGENTE;
NOMBRE_AGENTE := FCliente.AGENTE;
DELEGACION := FCliente.DELEGACION;
+
// La forma de pago se establece desde el tipo de documento y aunque cambie de cliente no se cambia la formade pago ya que desde la vista se pregunta y se cambia si el usuario lo desea
// if FCliente.ID_FORMA_PAGO > 0 then
// ID_FORMA_PAGO := FCliente.ID_FORMA_PAGO;
diff --git a/Source/Modulos/Relaciones/Pedidos a proveedor - Contratos de cliente/PedCli_PedProv_relation.dproj b/Source/Modulos/Relaciones/Pedidos a proveedor - Contratos de cliente/PedCli_PedProv_relation.dproj
new file mode 100644
index 0000000..f960661
--- /dev/null
+++ b/Source/Modulos/Relaciones/Pedidos a proveedor - Contratos de cliente/PedCli_PedProv_relation.dproj
@@ -0,0 +1,212 @@
+
+
+ {69494a8c-0a35-41ea-b8ec-ea790bfc0662}
+ PedCli_PedProv_relation.dpk
+ Debug
+ AnyCPU
+ DCC32
+ ..\..\..\..\Output\Debug\Cliente\PedCli_PedProv_relation.bpl
+
+
+ 7.0
+ False
+ False
+ 0
+ .\
+ .\
+ .\
+ ..\..\..\..\Output\Debug\Cliente
+ ..\..\Lib
+ ..\..\..\Lib;..\..\Lib
+ ..\..\..\Lib;..\..\Lib
+ ..\..\..\Lib;..\..\Lib
+ ..\..\..\Lib;..\..\Lib
+ RELEASE
+
+
+ 7.0
+ .\
+ .\
+ .\
+ ..\..\..\..\Output\Debug\Cliente
+ ..\..\Lib
+ ..\..\..\Lib;..\..\Lib
+ ..\..\..\Lib;..\..\Lib
+ ..\..\..\Lib;..\..\Lib
+ ..\..\..\Lib;..\..\Lib
+ DEBUG
+
+
+ Delphi.Personality
+ Package
+
+
+ False
+ True
+ False
+
+
+ False
+ False
+ False
+
+
+ True
+ False
+ 1
+ 0
+ 0
+ 0
+ False
+ False
+ False
+ False
+ False
+ 3082
+ 1252
+
+
+
+
+ 1.0.0.0
+
+
+
+
+
+ 1.0.0.0
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+ Borland Sample Components
+ Delphi 1.0 Compatibility Components
+ Borland MyBase DataAccess Components
+ TeeChart Components
+ Borland SimpleDataset Component (DBX)
+ ExpressBars extended items by Developer Express Inc.
+ ExpressBars by Developer Express Inc.
+ ExpressScheduler 2 by Developer Express Inc.
+ ExpressVerticalGrid by Developer Express Inc.
+ ExpressBars DBNavigator by Developer Express Inc.
+ ExpressBars extended DB items by Developer Express Inc.
+ ExpressSideBar by Developer Express Inc.
+ JVCL Band Objects
+ JVCL Non-Visual Components
+ JVCL Encryption and Compression Components
+ JVCL Dialog Components
+ JVCL Docking Components
+ JVCL DotNet Controls
+ JVCL EDI Components Designtime Package
+ JVCL HMI Controls design time unit
+ JVCL Interpreter Components
+ JVCL Jans Components
+ JVCL Managed Threads
+ JVCL Multimedia and Image Components
+ JVCL Network Components
+ JVCL Page Style Components
+ JVCL Plugin Components
+ JVCL Print Preview Components
+ JVCL Runtime Design Components
+ JVCL Time Framework
+ JVCL Unified Interbase Components
+ JVCL Validators and Error Provider Components
+ SMImport suite: data importing into dataset. Scalabium/Mike Shkolnik, 2000-2005
+ SMExport suite: data export from dataset. Written by Mike Shkolnik/Scalabium, 1998-2004.
+ Intraweb 8.0 Design Package for Borland Development Studio 2006
+ Internet Explorer Components
+
+
+ PedCli_PedProv_relation.dpk
+
+
+
+
+
+
+ MainSource
+
+
+
+
+
+
+
+
+
+
+
+
+
+
\ No newline at end of file
diff --git a/Source/Modulos/Relaciones/Pedidos a proveedor - Contratos de cliente/PedProv_ConCli_relation.dpk b/Source/Modulos/Relaciones/Pedidos a proveedor - Contratos de cliente/PedProv_ConCli_relation.dpk
new file mode 100644
index 0000000..4c68b82
--- /dev/null
+++ b/Source/Modulos/Relaciones/Pedidos a proveedor - Contratos de cliente/PedProv_ConCli_relation.dpk
@@ -0,0 +1,41 @@
+package PedProv_ConCli_relation;
+
+{$R *.res}
+{$ALIGN 8}
+{$ASSERTIONS ON}
+{$BOOLEVAL OFF}
+{$DEBUGINFO ON}
+{$EXTENDEDSYNTAX ON}
+{$IMPORTEDDATA ON}
+{$IOCHECKS ON}
+{$LOCALSYMBOLS ON}
+{$LONGSTRINGS ON}
+{$OPENSTRINGS ON}
+{$OPTIMIZATION ON}
+{$OVERFLOWCHECKS OFF}
+{$RANGECHECKS OFF}
+{$REFERENCEINFO ON}
+{$SAFEDIVIDE OFF}
+{$STACKFRAMES OFF}
+{$TYPEDADDRESS OFF}
+{$VARSTRINGCHECKS ON}
+{$WRITEABLECONST OFF}
+{$MINENUMSIZE 1}
+{$IMAGEBASE $400000}
+{$IMPLICITBUILD OFF}
+
+requires
+ rtl,
+ Contactos_model,
+ Contactos_controller,
+ PedidosProveedor_model,
+ PedidosProveedor_controller,
+ ContratosCliente_model,
+ ContratosCliente_controller,
+ ApplicationBase,
+ Base;
+
+contains
+ uGenerarPedidosProvUtils in 'uGenerarPedidosProvUtils.pas';
+
+end.
diff --git a/Source/Modulos/Relaciones/Pedidos a proveedor - Contratos de cliente/PedProv_ConCli_relation.dproj b/Source/Modulos/Relaciones/Pedidos a proveedor - Contratos de cliente/PedProv_ConCli_relation.dproj
new file mode 100644
index 0000000..d656c6b
--- /dev/null
+++ b/Source/Modulos/Relaciones/Pedidos a proveedor - Contratos de cliente/PedProv_ConCli_relation.dproj
@@ -0,0 +1,688 @@
+
+
+ {69494a8c-0a35-41ea-b8ec-ea790bfc0662}
+ PedProv_ConCli_relation.dpk
+ Debug
+ AnyCPU
+ DCC32
+ ..\..\..\..\Output\Debug\Cliente\PedProv_ConCli_relation.bpl
+
+
+ 7.0
+ False
+ False
+ 0
+ .\
+ .\
+ .\
+ ..\..\..\..\Output\Debug\Cliente
+ ..\..\Lib
+ ..\..\..\Lib;..\..\Lib
+ ..\..\..\Lib;..\..\Lib
+ ..\..\..\Lib;..\..\Lib
+ ..\..\..\Lib;..\..\Lib
+ RELEASE
+
+
+ 7.0
+ .\
+ .\
+ .\
+ ..\..\..\..\Output\Debug\Cliente
+ ..\..\Lib
+ ..\..\..\Lib;..\..\Lib
+ ..\..\..\Lib;..\..\Lib
+ ..\..\..\Lib;..\..\Lib
+ ..\..\..\Lib;..\..\Lib
+
+
+ Delphi.Personality
+ Package
+
+FalseTrueFalseFalseFalseFalseTrueFalse1000FalseFalseFalseFalseFalse308212521.0.0.01.0.0.0
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+ Borland Sample Components
+ Delphi 1.0 Compatibility Components
+ Borland MyBase DataAccess Components
+ TeeChart Components
+ Borland SimpleDataset Component (DBX)
+ ExpressBars extended items by Developer Express Inc.
+ ExpressBars by Developer Express Inc.
+ ExpressScheduler 2 by Developer Express Inc.
+ ExpressVerticalGrid by Developer Express Inc.
+ ExpressBars DBNavigator by Developer Express Inc.
+ ExpressBars extended DB items by Developer Express Inc.
+ ExpressSideBar by Developer Express Inc.
+ JVCL Band Objects
+ JVCL Non-Visual Components
+ JVCL Encryption and Compression Components
+ JVCL Dialog Components
+ JVCL Docking Components
+ JVCL DotNet Controls
+ JVCL EDI Components Designtime Package
+ JVCL HMI Controls design time unit
+ JVCL Interpreter Components
+ JVCL Jans Components
+ JVCL Managed Threads
+ JVCL Multimedia and Image Components
+ JVCL Network Components
+ JVCL Page Style Components
+ JVCL Plugin Components
+ JVCL Print Preview Components
+ JVCL Runtime Design Components
+ JVCL Time Framework
+ JVCL Unified Interbase Components
+ JVCL Validators and Error Provider Components
+ SMImport suite: data importing into dataset. Scalabium/Mike Shkolnik, 2000-2005
+ SMExport suite: data export from dataset. Written by Mike Shkolnik/Scalabium, 1998-2004.
+ Intraweb 8.0 Design Package for Borland Development Studio 2006
+ Internet Explorer Components
+ PedProv_ConCli_relation.dpk
+
+
+
+
+ MainSource
+
+
+
+
+
+
+
+
+
+
+
+
+
+
diff --git a/Source/Modulos/Relaciones/Pedidos a proveedor - Contratos de cliente/uGenerarPedidosProvUtils.dfm b/Source/Modulos/Relaciones/Pedidos a proveedor - Contratos de cliente/uGenerarPedidosProvUtils.dfm
new file mode 100644
index 0000000..e2e45b2
--- /dev/null
+++ b/Source/Modulos/Relaciones/Pedidos a proveedor - Contratos de cliente/uGenerarPedidosProvUtils.dfm
@@ -0,0 +1,606 @@
+object dmGenerarPedidosProv: TdmGenerarPedidosProv
+ OldCreateOrder = False
+ Height = 176
+ Width = 254
+ object JsListaPedidosGenerados: TJSDialog
+ Glyph.Data = {
+ 0A54504E474F626A65637489504E470D0A1A0A0000000D494844520000001C00
+ 00001C0806000000720DDF940000000970485973000017120000171201679FD2
+ 520000000467414D410000B18E7CFB5193000003104944415478DAAD96FB4B14
+ 5114C7CFE463DC1E606444BFF54424D3DC55CA52B1CCD7165A219905054182FD
+ 1452FD5810FD100406610A669A998FC4F5BDB6266265DAB60F5DD15E58FE03B2
+ 3F99D29ABBA7B9779C71C61D9D6177CFCE70CFDCB97B3EF7DCF3BD33C38082FD
+ B502B2B300CC656020048688A24F036233A0671F40D43160BA87BF62AEEE1010
+ 60D7AE293AD8B835815E9B625C80DC8F1E88D4A7C1E8C1FB8F9FD6C3C44035B3
+ 21500A65F6D700FE2EA580A5EC551F4A50359316B31D76EFDC0EE5F72A645045
+ A067AE0623074B8140891108F1057064CC0D556053DF173812B707E6DCF332A8
+ 225080D201DB4AF99BF335B4D502F371415BCC364833C4C29F458F0C2A031281
+ 081734AB0B3C88403C1E6E3E2E7960F6A8FFD27A7D3EF07A11DA2C76C84A8D87
+ A57FCB32E8B8A54A4C8C21B59365C9015996EF2240B6634DF435B51460A46D1F
+ 70C093AA46BF09C980C12CA914E6F371ADD707EF1DB3B0B0B8006EB79B8EA96B
+ EA5106121851245129118FD8BFA2DC5C53C6BAF5EBBBBA97C2D64EC064195B1F
+ 286C76E956A0EA5C51AEB4764A9929F5750D5A9581D2274B9B651C0BA2F514A8
+ 6F28E36B70AD9A4253EF97A9AA55B0CEBA87D03B645B3F43C1DE589C58186D10
+ 81150FCAC57B11E161B04517099BB953C78643141B01BA28EEE4DAB0B04DE2B8
+ CA460B9C399902E661BB3AB0F5AD038BF30CD4D7E7DD14815A61023027DD00EF
+ 469C1A80FD1C307F1578FD4A81E665945AD68924181A9D5007B6F4DBF1527E32
+ F5C9D3632351F8F549AEE916B14EAA039BCD362C31A6040D23E7887D4A03B0CF
+ 86C5C6641A24BB7646D3F2D51A77F8C1BCDCFFC79CD3EAC0D7BD56AE86294165
+ 4660CB5C6B737DD3062CCA31D00069E76E05241862CF1EDD05E7D40F756063CF
+ 673C7F5A4F679A59541EF03E4C8C3B0893DF67D481AFBAC7B0F05412CD30EBE2
+ ED80F7617CEC0198FEF94B1BF06C6622AD4B4EC99D80F7A1666043D7281A3312
+ FD84C20B8417C3AA789405239826E0CBCE4F98979E10344C33B0BE630473D312
+ 82866906D6993E62F6F1C3F45D160A5305BE68FF8095CF5B4302134CFE1185EA
+ 1FB8A1B4FF4FE32FF6FADB8B5E0000000049454E44AE426082}
+ Instruction.Text = 'Lista de pedidos a proveedor generados'
+ Instruction.Glyph.Data = {
+ 0A54504E474F626A65637489504E470D0A1A0A0000000D494844520000001C00
+ 00001C0806000000720DDF940000000970485973000017120000171201679FD2
+ 520000000467414D410000B18E7CFB5193000003104944415478DAAD96FB4B14
+ 5114C7CFE463DC1E606444BFF54424D3DC55CA52B1CCD7165A219905054182FD
+ 1452FD5810FD100406610A669A998FC4F5BDB6266265DAB60F5DD15E58FE03B2
+ 3F99D29ABBA7B9779C71C61D9D6177CFCE70CFDCB97B3EF7DCF3BD33C38082FD
+ B502B2B300CC656020048688A24F036233A0671F40D43160BA87BF62AEEE1010
+ 60D7AE293AD8B835815E9B625C80DC8F1E88D4A7C1E8C1FB8F9FD6C3C44035B3
+ 21500A65F6D700FE2EA580A5EC551F4A50359316B31D76EFDC0EE5F72A645045
+ A067AE0623074B8140891108F1057064CC0D556053DF173812B707E6DCF332A8
+ 225080D201DB4AF99BF335B4D502F371415BCC364833C4C29F458F0C2A031281
+ 081734AB0B3C88403C1E6E3E2E7960F6A8FFD27A7D3EF07A11DA2C76C84A8D87
+ A57FCB32E8B8A54A4C8C21B59365C9015996EF2240B6634DF435B51460A46D1F
+ 70C093AA46BF09C980C12CA914E6F371ADD707EF1DB3B0B0B8006EB79B8EA96B
+ EA5106121851245129118FD8BFA2DC5C53C6BAF5EBBBBA97C2D64EC064195B1F
+ 286C76E956A0EA5C51AEB4764A9929F5750D5A9581D2274B9B651C0BA2F514A8
+ 6F28E36B70AD9A4253EF97A9AA55B0CEBA87D03B645B3F43C1DE589C58186D10
+ 81150FCAC57B11E161B04517099BB953C78643141B01BA28EEE4DAB0B04DE2B8
+ CA460B9C399902E661BB3AB0F5AD038BF30CD4D7E7DD14815A61023027DD00EF
+ 469C1A80FD1C307F1578FD4A81E665945AD68924181A9D5007B6F4DBF1527E32
+ F5C9D3632351F8F549AEE916B14EAA039BCD362C31A6040D23E7887D4A03B0CF
+ 86C5C6641A24BB7646D3F2D51A77F8C1BCDCFFC79CD3EAC0D7BD56AE86294165
+ 4660CB5C6B737DD3062CCA31D00069E76E05241862CF1EDD05E7D40F756063CF
+ 673C7F5A4F679A59541EF03E4C8C3B0893DF67D481AFBAC7B0F05412CD30EBE2
+ ED80F7617CEC0198FEF94B1BF06C6622AD4B4EC99D80F7A1666043D7281A3312
+ FD84C20B8417C3AA789405239826E0CBCE4F98979E10344C33B0BE630473D312
+ 82866906D6993E62F6F1C3F45D160A5305BE68FF8095CF5B4302134CFE1185EA
+ 1FB8A1B4FF4FE32FF6FADB8B5E0000000049454E44AE426082}
+ Instruction.Icon = tdiCustom
+ ButtonBar.Buttons = [cbOK]
+ ButtonBar.Cancel = cbOK
+ ButtonBar.UseCancel = False
+ MainIcon = tdiCustom
+ Title = 'FactuGES'
+ Position = dpMainFormCenter
+ Icon.Data = {
+ 0000010003002020100001000400E8020000360000002020000001000800A808
+ 00001E0300002020000001002000A8100000C60B000028000000200000004000
+ 0000010004000000000000020000000000000000000000000000000000000000
+ 000000008000008000000080800080000000800080008080000080808000C0C0
+ C0000000FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF000000
+ 0000000000000000000000000000000008777777777777777777777700000000
+ 0877767777677776777767760000000008F88888888888888888888700000000
+ 08F8FF8F8F888888888888860000000008FF8F8F88F8F8888888888C00000000
+ 08F88888F8888888888888860000000008F8688878E8888E88E8788700000000
+ 08F8688888F8F8FFFFFF88760000000008FF4888888F8FFFFFFF788700000000
+ 08F8676767677677677658E50000000008FF8888888887878787888700000000
+ 08FF8887887E8888888888860000000008FFE8E8E788C8E8FF8F8F8600000000
+ 08FFF8F8F8F8FF8F88F8F8870000000008FFFFFF8FF8F8F8F88F888600000000
+ 0FF8477878787878788788860000000008FF68888888F8FF8F8F788700000000
+ 08B7588888FF8FFFFFFF78860000083008BB47887776777777776F86000000B7
+ 8B9B73BB88788787E87878870000008BB8B9BB78888888EFF8F8FF8600000087
+ B8BB8B888E8E8E88FFF8F886000000088BBB888FFFFFFFFFF8F877770000B9BB
+ B8FFBB9B9BFFFFFFF87466460000BBB9BB8FBBBBB8FFFFFFF88F888700000008
+ B8BB88888FFFFFFFF88F8F7700000008BBBBBB8FFFFFFFFFFF8887700000007B
+ B7B98BB8FFFFFFFFF8887700000000B78B9B87B888F88F88F8877000000007B0
+ 08BB883B78888788787700000000000000B9000000000000000000000000FFFF
+ FFFFF800000FF800000FF800000FF800000FF800000FF800000FF800000FF800
+ 000FF800000FF800000FF800000FF800000FF800000FF800000FF800000FF800
+ 000FF800000FF800000F9800000FC000000FC000000FC000000FE000000F0000
+ 000F0000000FE000000FE000001FC000003FC000007F980000FFFCFFFFFF2800
+ 0000200000004000000001000800000000000004000000000000000000000001
+ 00000001000000000000694731007C5D49007E604C0081635000826451008567
+ 540085685500886B5900896D5B008A6E5D008B705F008E715F008B7260008C72
+ 61008E74640084766C00957A6900977D6D00887B72009A8171009D8272009C84
+ 76009D8778009F897B00A28A7900A08B7D00A18C7E00E1B06E00E1B67D003E7A
+ 970073A0A5007AA2B70074AFBD007BB2BB003CAACE0028A5DB0020ADDF000D9A
+ E500209EE3000DA6E2001AA4EF0000A6FF000CABFE0009ACFE0010A4F10015AC
+ FA0000B5FB0000B0FD000CB6FC0000BFF90000BAFD0004BAFD0009BBFB0013B6
+ F40015BFFA001CBDFB0026B7FD00589EC50040A4CD0040ABCC0050A2C7005DAE
+ C00060A3C20062A4C60060B7CB006AB0CD007BB6C80077BAC80061BADD0044AD
+ E50000C3F80007C6FB0000CAF80000CFFB0000D4F90026C8FA0026CDF8002BCC
+ F90039C4FB0039C2FC0039CAFA003FCFFB0024D6F80030D2F80039D5F80000F8
+ F8001FF8F8002CF6F8003EF4F8005AC6DC0070CDDF0052C0E40054C9E3004DCE
+ FA005FC7FF004FD2FB004DD9F8005FD9FB006ED3E70063CDFE0060D1FB0060D8
+ F90060DDF80046F8F90056F0F8005FFAFA0073E3F80073E4F90073EEF80060F1
+ F800958A84009A918C0081999500A68F8200AD968500A3968C00AE988900AD9A
+ 8D00B19A8B00AF9C9000B09E9200B59F9200B7A29300B2A19600B5A19400B7A4
+ 9700BDA79700B4A39800B1A59D00B4A79F00BAA69800BCA79900B4A89F00BCA8
+ 9900BAA89C00BDAA9D00BEAC9E0083ADBD00B5A9A100BDABA000BEADA100BFAF
+ A500A0BABE00C0AB9E00C1AC9E00C6AE9F00E2B98100E4BA8300E4BB8400E5BC
+ 8500E1BD8E00E3BF9000C0ADA000C2B0A300C2B1A500C4B2A600C1B2A800C3B5
+ AB00C8B4A800CCB9AD00CEBCB100D0BEB200D1BFB400E4C19300E5C29400E6C4
+ 9600E8C69900D0C9A300CFC1B800D2C1B600D3C3B800D5C4B900D6C6BC00D8C6
+ BC00D6C8BE00DAC9BF00ECD3B000EDD4B200EFD6B500E7D1B800E7D3BD00F0D8
+ B6008CB7C40080BEC70097C3C70099C3C900ABD7CF00AFD9DD0086E3F90086E7
+ F90086ECF8009EE5FB0090E8F900ACEDFC00BCEAFD00BCF1FB00BFF1FD00D7C9
+ C000D9CAC100DCCBC200DACCC200DDCCC300DACCC400DDCEC400DED0C600DED1
+ C900DED3CC00DFD4CD00E1D1C900E2D5CD00F0DCC200E3D8D200E5D9D200E2DA
+ D500E6DBD400E5DCD500E8DDD600E6DDD800E9DFD900E6E0DB00EAE0DA00EAE2
+ DD00ECE3DE00EBE4DE00ECE4DE00F3E7D900C6E1EF00C9EFFD00D7F6FD00DFF3
+ FF00DFFEFE00EBE7E300EDE6E100EFE7E400EEE8E400F0EAE600F2EDE900F2EE
+ EC00F4EFEC00F5F0EE00F9F4ED00E7FAFD00EBF8FF00F6F2F000F7F4F100F8F4
+ F200F9F7F500FAF8F600FBF9F900FCFBFA00FCFCFB00FEFEFE00000000000000
+ 0000000000000000000000000000000000000000000000000000000000000000
+ 00000000000000000000007D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D
+ 0D0D0000000000000000009C9C19191919191919191919191919191919191919
+ 1903000000000000000000ABDECBCBC7C7AFABABABABAAA3A2A2A0A0A0A0A0A0
+ 8607000000000000000000ABECEAE9DEDEDEDED7D5D2D2D2CBCBCBCBB0CBB0CB
+ 9007000000000000000000ABEDECEAE9DEDEDBD7D7D5D2D2D2CDCDCBB0B0B0B0
+ 9007000000000000000000AFEDE9A9CFD2CFD2CDCBCBCBB0B0ABACA3A3A3A3B0
+ 9007000000000000000000AFF0D5017783838386868686869099909999907BB0
+ 9007000000000000000000B0F4D501A0B0CBD2D5DEECEDF7FAFAFAFAFAF77BAA
+ 9007000000000000000000CBF4DC01A0B0B0B0D2D5DBEAEDF7FAFAFAFAF47BB0
+ 9007000000000000000000CBF8DC010404070604090909090D0D110D110D02A3
+ 9007000000000000000000CBFAED9E9E9E9C999E8C8C8C868683837E7D7D7ACB
+ 9007000000000000000000CBFAF1A7A7A6A6A6A69898989898B5DBDBD5D5D2D2
+ 9907000000000000000000CDFAF796969696961D961D931D1DB4DEDBD7D5D5D2
+ 9C07000000000000000000CFFAFAFAFAF8F7F0F0EDEDEDECE9E9DEDEDED7D5D5
+ 9907000000000000000000CDFAFAEAF0EDEDECEAEAE9DEDEDBDCD5D5D5D5D2D5
+ 9C07000000000000000000D2FAEC01737D7D7B7D7D7B7D7B7D7B7B7B7D7B7DD2
+ 9907000000000000000000CFFAEC019EABB0CBD2D5DCDEECEDF4F4F4F4EA7BD2
+ 9C07000000000000000000B9524601A0B0B0CBB5D5DEEAEDF7FAFAFAFAF47DD5
+ 9C070000000000213F0000B83226010C3F5C1F111214141616191B1B1B1807D2
+ 9C07000000000000253D8A5B322D711E2860BA7E7E7A7E797A797979767676D5
+ 9E0700000000000041375E662F2B65314EBBB6B6B6B6B4B4B1E2F4EDEDEDECEA
+ 9C070000000000008F5D66663232394EC1A81C1C1C1C1C1C1CD3F7F4EDDED7D5
+ 9C0700000000000000B7BE6E5758BEBDE4E6E6F3FAFAFAFAFAFAF7F4D5928675
+ 7304000000002A2A2A2A4A6AFAE7562F2A2A2A5FFAFAFAFAFAFAF8D577010101
+ 0101000000004747472F4A59C5E7564A32474766FAFAFAFAFAFAFADCA0D2CFB0
+ A20C00000000000000436C6958686D6BC2C5C5E7FAFAFAFAFAFAFADEAADEDBCB
+ 1470000000000000004551534A4A5250C0E7FAFAFAFAFAFAFAFAFADEAAD7B514
+ 700000000000000042384C54472B613550C3FAFAFAFAFAFAFAFAFADEA1B0196F
+ 000000000000000024234463322EBC5A3664E3ECE9E9E9E9E9E9E9CF90731300
+ 000000000000003A3C00002232298B8B3E3B207E8B7E8B7E827E817E74100000
+ 0000000000000000000000003227000000000000000000000000000000000000
+ 000000000000FFFFFFFFF800000FF800000FF800000FF800000FF800000FF800
+ 000FF800000FF800000FF800000FF800000FF800000FF800000FF800000FF800
+ 000FF800000FF800000FF800000FF800000F9800000FC000000FC000000FC000
+ 000FE000000F0000000F0000000FE000000FE000001FC000003FC000007F9800
+ 00FFFCFFFFFF2800000020000000400000000100200000000000801000000000
+ 0000000000000000000000000000000000000000000000000000000000000000
+ 0000000000000000000000000000000000000000000000000000000000000000
+ 0000000000000000000000000000000000000000000000000000000000000000
+ 0000000000000000000000000000000000000000000000000000000000000000
+ 0000000000000000000000000000000000000000000000000000000000007067
+ 5F70AA9382E570513CE3735540E3735540E3735540E3735540E3735540E37355
+ 40E3735540E3735540E3735540E3735540E3735540E3735540E3735540E37355
+ 40E3735540E3735540E3735540E3735540E3735540E3735540E372533EE5BAAB
+ A070000000000000000000000000000000000000000000000000000000005E54
+ 4C7FCAB7ABFFC5B5AAFFA18877FFA28A78FFA28A79FFA28A79FFA28A79FFA28A
+ 79FFA28A79FFA28A79FFA28A79FFA28A79FFA28A79FFA28A79FFA28A79FFA28A
+ 79FFA28A79FFA28A79FFA28A79FFA28A79FFA28A79FFA58D7CFF7A5B46FFB2A1
+ 967F000000000000000000000000000000000000000000000000000000006055
+ 4D7ED7C6BBFFEDE4E0FFD9CCC4FFD9CCC4FFD9CBC3FFD8CAC1FFD7C9BFFFD6C7
+ BDFFD5C6BBFFD4C4BAFFD3C3B8FFD2C1B7FFD1C0B5FFD0BEB3FFCFBDB2FFCEBC
+ B0FFCEBBAFFFCEBBAFFFCEBBAFFFCEBBAFFFCEBCB0FFBEAA9CFF82644FFFB2A1
+ 967E000000000000000000000000000000000000000000000000000000006056
+ 4D7ED7C8BCFFF2EBE8FFEFE9E5FFEEE7E2FFECE5E0FFEBE2DEFFEAE0DBFFE9DE
+ D8FFE7DBD4FFE5D9D1FFE3D7CFFFE2D4CCFFE1D2C9FFDFD0C7FFDDCDC4FFDCCB
+ C2FFDBC9BFFFDBC9BFFFDBC9BFFFDBC9BFFFDCCAC1FFC1AC9FFF81634FFFB2A1
+ 967E000000000000000000000000000000000000000000000000000000006155
+ 4E7ED8C9BDFFF3EDE9FFF1EAE6FFF0E9E6FFEEE6E1FFECE4DFFFEBE2DDFFEAE0
+ DAFFE9DED7FFE7DBD4FFE5D9D1FFE3D7CFFFE2D4CCFFE1D2C9FFDFD0C7FFDDCD
+ C4FFDCCBC2FFDBC9BFFFDBC9BFFFDBC9BFFFDCCAC0FFC1AC9FFF81634FFFB2A1
+ 967E000000000000000000000000000000000000000000000000000000006157
+ 4E7ED9C9BFFFF4EFEDFFEFE8E3FFD0C2B9FFDFD5CEFFE0D5CEFFE0D4CCFFDED3
+ CBFFDDD1C8FFDCCFC6FFDACCC4FFD9CBC1FFD8C9BFFFD7C7BDFFD6C5BBFFD5C4
+ B9FFD3C2B7FFD2C0B5FFD2BFB4FFD2BFB4FFDAC8BEFFC1AC9FFF81634FFFB2A1
+ 967E000000000000000000000000000000000000000000000000000000006256
+ 4F7EDACCC0FFF5F2EFFFE5DDD9FF5C3821FFB0998AFFB8A394FFB8A394FFB9A3
+ 94FFB8A495FFB9A597FFB9A698FFBAA698FFBBA799FFBBA89AFFBBA89BFFBCA8
+ 9BFFBCA89BFFBCA89BFFBBA89AFFB49E8FFFD8C6BBFFC1AC9FFF81634FFFB2A1
+ 967E000000000000000000000000000000000000000000000000000000006256
+ 4F7EDBCBC1FFF8F4F3FFE7E0DBFF5F3C24FFD0BDB2FFDCCBC1FFDDCCC3FFE2D2
+ CBFFE7DBD4FFEDE2DEFFF0E8E6FFF5F0EDFFF9F7F4FFFDFDFDFFFFFFFFFFFFFF
+ FFFFFFFFFFFFFFFFFFFFFAF8F7FFB39D8DFFD8C6BBFFC1AC9FFF81634FFFB2A1
+ 967E000000000000000000000000000000000000000000000000000000006256
+ 4F7EDCCEC3FFFAF6F5FFE9E2DDFF5F3C24FFD2BFB5FFDFCDC4FFDECCC3FFE0CE
+ C6FFE4D4CDFFE9DDD6FFEFE4E0FFF1EAE8FFF7F1EFFFFBF8F6FFFFFEFFFFFFFF
+ FFFFFFFFFFFFFFFFFFFFFCFBFAFFB5A090FFD9C7BEFFC1AD9FFF81634FFFB2A1
+ 967E000000000000000000000000000000000000000000000000000000006257
+ 4F7EDDCFC4FFFCF9F9FFE9E4E0FF5F3A23FF7C5D49FF7F5F4CFF7E5F4CFF7E60
+ 4DFF7F614DFF816350FF826552FF836654FF846856FF856A57FF866B59FF876C
+ 5BFF876D5BFF876D5BFF866B59FF72523DFFD5C3B9FFC1AFA1FF81634FFFB2A1
+ 967E000000000000000000000000000000000000000000000000000000006357
+ 507EDECFC6FFFCFCFBFFF4F1F0FFC3B6AEFFC3B5ADFFC1B4ACFFC0B3AAFFBFB1
+ A9FFBEB0A6FFBDAEA5FFBDACA3FFBCABA2FFBBAAA0FFBAA99FFFB8A69AFFB8A4
+ 98FFB6A396FFB5A194FFB49F93FFB39D90FFDCCDC4FFC2AEA1FF81634FFFB2A1
+ 967E000000000000000000000000000000000000000000000000000000006357
+ 507EDFD2C7FFFEFEFDFFF9F5EFFFE8C696FFE9C799FFE8C697FFE7C596FFE7C4
+ 95FFE6C394FFE5C293FFE4C091FFE4C090FFE3BF8FFFE2BD8CFFE9D5BFFFEBE1
+ DCFFEADFD8FFE7DCD5FFE5DAD3FFE4D8D0FFE3D4CCFFC2AFA2FF81634FFFB2A1
+ 967E000000000000000000000000000000000000000000000000000000006458
+ 517EE0D3C8FFFFFFFFFFFAF5EFFFE3B77CFFE4B97FFFE2B87EFFE3B77DFFE2B7
+ 7CFFE2B67BFFE1B57AFFE1B479FFE0B478FFE0B377FFDFB174FFE6D0B7FFEBE1
+ DCFFE8DFD9FFE8DDD6FFE6D9D2FFE3D8D1FFE4D7CFFFC3AFA2FF81634FFFB2A1
+ 967E000000000000000000000000000000000000000000000000000000006458
+ 517EE1D2C9FFFFFFFFFFFEFEFDFFFEFFFFFFFCFDFEFFFBFBFBFFF9F7F8FFF8F5
+ F6FFF7F3F2FFF5F1F0FFF4EFEEFFF1EDEBFFF0EBE9FFEEE9E6FFEDE6E2FFECE3
+ DEFFEBE1DBFFE9DFD9FFE8DDD6FFE6DAD3FFE5D9D2FFC3B0A3FF81634FFFB2A1
+ 967E000000000000000000000000000000000000000000000000000000006459
+ 517EE1D4CAFFFFFFFFFFFDFDFCFFEEEBE8FFF5F2F0FFF4F0EFFFF3EFECFFF2ED
+ EAFFF1EBE8FFEEE9E5FFEFE7E3FFECE5E1FFEAE4DEFFEAE1DCFFE8E0DAFFE7DE
+ D8FFE6DDD6FFE5DBD4FFE4D8D1FFE2D6CEFFE6DBD4FFC3B1A4FF81634EFFB2A1
+ 967E000000000000000000000000000000000000000000000000000000006559
+ 527EE2D4CAFFFFFFFFFFF0ECEAFF5B361EFFAB9383FFB39D8EFFB39D8DFFB39D
+ 8DFFB29D8DFFB29C8DFFB29C8CFFB29C8CFFB29C8CFFB29C8CFFB29C8CFFB29C
+ 8CFFB29C8CFFB29C8CFFB29C8DFFB39D8EFFE3D8D0FFC4B1A4FF81634EFFB2A1
+ 967E000000000000000000000000000000000000000000000000000000006559
+ 527EE5D4CAFFFFFFFFFFF7F0EBFF5F3B24FFCCB8ADFFD7C5BAFFD9C7BDFFDCCC
+ C3FFE1D4CCFFE5DAD4FFE8E0DBFFEDE5E1FFF1EBE9FFF5F2EFFFF7F5F3FFF8F6
+ F4FFF8F5F4FFF8F6F4FFF1EEEAFFB29C8DFFE6DAD3FFC4B2A5FF81634EFFB2A1
+ 967E00000000000000000000000000000000000000000000000000000000685A
+ 527E9AC6C9FF35CFFEFF3DAEEBFF663E24FFD2BFB4FFE0CBBFFFE0C9BDFFE1CD
+ C4FFE4D5CDFFE9DED7FFEEE5E0FFF2EBE8FFF6F2F0FFFCF8F8FFFFFFFEFFFFFF
+ FFFFFFFFFFFFFFFFFFFFFCFAF9FFB49E8FFFE7DED7FFC5B3A6FF81634EFFB2A1
+ 967E00000000000000000000000000000000007792910072A7A3001E33366957
+ 4C7C86C1C8FF00BFFBFF079AEBFF6A3E23FF926D57FF5FA3C8FF4AC1E8FF6C9C
+ A2FF917260FF927767FF947A69FF957C6CFF977E6FFF998171FF9A8374FF9B85
+ 76FF9C8678FF9C8678FF998274FF7D5E49FFE3D9D4FFC5B3A7FF81634EFFB2A1
+ 967E00000000000000000000000000000000005A6F7000A9E5E40075AEAE5C90
+ A5BD75D0E0FF00BFFAFF0CA3F4FF8A9A91FF3C7492FF03A4E4FF4AD5FFFF98C4
+ CBFFB3A196FFB1A197FFB0A096FFB09F95FFAF9D92FFAF9C91FFAD9A8EFFAC99
+ 8CFFAB988AFFAB9789FFAA9688FFA99386FFE8E0DAFFC5B4A7FF81634EFFB2A1
+ 967E00000000000000000000000000000000000000002DA5BFC110C2FFFF4DD0
+ FDFF64DBF9FF00B3FAFF09A8FEFF68D7FFFF04B5FFFF24CCFBFFAFD8CEFFF7DA
+ B8FFF3DBBBFFF3DBBAFFF2D9B9FFF1D8B7FFF0D7B4FFEED5B2FFF6EADDFFF9F6
+ F4FFF7F3F1FFF5F1EEFFF5EFECFFF4EDEAFFF1EBE7FFC6B4A8FF81634EFFB2A1
+ 967E00000000000000000000000000000000000000005F8A909142C7E4E960DE
+ F8FF64D7FAFF00B6FDFF00B8FDFF21B2FDFF1ECCF7FF93EBFCFFD2C69BFFE1AB
+ 63FFDFAC66FFDFAC66FFDFAC66FFDFAC66FFDFAC66FFDEA961FFEFDBC0FFF8F6
+ F5FFF6F2F0FFF3EDEBFFECE2DCFFE9DFD9FFE5DBD6FFC2B1A4FF81634FFFB2A1
+ 967E000000000000000000000000000E171A000E171A00040B145994A4A990EB
+ FCFF61F1F7FF13FAF7FF23F9F7FF93EDF7FF8CE5F8FFD5F2FDFFE9F8FFFFE7F8
+ FFFFF0FCFFFFFFFFFFFFFFFFFFFFFFFFFFFFFEFFFFFFFDFEFFFFFAFAF9FFF9F7
+ F5FFF7F2F0FFE8DFD8FFC7AE9FFFBEA998FFAF9888FFB09A8AFF7F604DFFB2A1
+ 967E00000000000000000000000000AAFFFF00AAFFFF00AAFFFF00A4FFFF00CD
+ FAFF5DFCF9FFFFFFFFFFEEFEFEFF00FBF7FF00AAFEFF00A1FFFF00A1FFFF00A0
+ FFFF56C3FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFCFDFBFFFCFBFAFFFBFA
+ F8FFE6DDD6FFAA9180FF5D3922FF603D26FF613E27FF613E28FF634029FFB4A3
+ 987E00000000000000000000000000CAFFFF00CAFFFF00CBFFFF00B0FFFF00CD
+ FBFF38F5F7FFC3EFFAFFF0FFFEFF00FAF7FF00C8F7FF00C2F7FF00C2F7FF00C1
+ F7FF57D7FAFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFEFEFEFFFDFDFCFFFCFC
+ FBFFE7DED8FFCCB9ACFFE6DBD5FFE2D7D0FFDCCFC5FFD7C5BBFF8E705DFFB4A2
+ 9680000000000000000000000000002E383C002E383C00252F364C99B0B57DE8
+ FBFF59F1F7FF25F7F7FF41FAF8FF7CEEF7FF77E4F7FFB5EFFCFFC6F2FDFFC3F2
+ FDFFD9F6FCFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFDFEFEFFFEFE
+ FEFFE9E1DAFFCEBCAFFFF1E9E3FFEADFD8FFE4D5CCFF9D816FFF3A291F868985
+ 831C00000000000000000000000000000000000000004E7073774AB0DADC37C9
+ FBFF22D5F7FF00D3F9FF02C3FBFF37D5F7FF34BEFCFFA2E6FAFFECFBFDFFFFFF
+ FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFEFF
+ FFFFEAE2DCFFCDBBADFFEADFD8FFE3D5CBFF9F8271FF3E2D2386050100200000
+ 000000000000000000000000000000000000000000003E9CC4C219C0FFFF23C9
+ FCFF30D3F8FF00BEF8FF06A8FEFF4FDCF8FF00B8FCFF32C2FBFFC0EBFCFFFFFF
+ FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
+ FFFFEAE3DEFFCDB9ABFFDDCEC4FFA58979FF3E2C1F8F0905041B000000000000
+ 000000000000000000000000000000000000003451510099DDDB0091C0C35DAD
+ BCCF76D7E9FF00BEF9FF10A9FBFFBDDEDEFF5AC8DDFF0AB5F7FF62CEFFFFCBE4
+ F1FFF1E7E0FFEFE7E1FFEEE6E1FFEEE6E1FFEEE6E0FFEDE6E0FFEDE5E0FFEEE6
+ E1FFE1D4CCFFC5AE9FFFA68D7FF53E2718A10402000E00000000000000000000
+ 0000000000000000000000000000000000000075B7AF0099C7C500323E425442
+ 3B5C6BA8B1DA00C1FCFF0EA1F3F8A98E80C0AB9081C12698B1C10088C4C14C85
+ A3C1A18D80C19E8D81C19E8B81C19D8C80C19B8C7FC19B8A7FC19C897FC19A89
+ 7EC19B8B7EC1897769C2432B1BAC000000000000000000000000000000000000
+ 0000000000000000000000000000000000000000000000000000000000000000
+ 00000045565A00C5FFFF0094E6E2000000000000000000000000000000000000
+ 0000000000000000000000000000000000000000000000000000000000000000
+ 0000000000000000000000000000000000000000000000000000000000000000
+ 0000000000000000000000000000FFFFFFFFF0000007F0000007F0000007F000
+ 0007F0000007F0000007F0000007F0000007F0000007F0000007F0000007F000
+ 0007F0000007F0000007F0000007F0000007F0000007F0000007800000078000
+ 0007C0000007C000000700000007000000070000000700000007C000000FC000
+ 001F8000003F800000FFF8FFFFFF}
+ Width = 450
+ Left = 56
+ Top = 16
+ end
+ object JsListaPedidosAsignadosAContrato: TJSDialog
+ DialogOptions = [doCommandLinks, doModal]
+ Glyph.Data = {
+ 0A54504E474F626A65637489504E470D0A1A0A0000000D494844520000001C00
+ 00001C0806000000720DDF940000000970485973000017120000171201679FD2
+ 520000000467414D410000B18E7CFB5193000003104944415478DAAD96FB4B14
+ 5114C7CFE463DC1E606444BFF54424D3DC55CA52B1CCD7165A219905054182FD
+ 1452FD5810FD100406610A669A998FC4F5BDB6266265DAB60F5DD15E58FE03B2
+ 3F99D29ABBA7B9779C71C61D9D6177CFCE70CFDCB97B3EF7DCF3BD33C38082FD
+ B502B2B300CC656020048688A24F036233A0671F40D43160BA87BF62AEEE1010
+ 60D7AE293AD8B835815E9B625C80DC8F1E88D4A7C1E8C1FB8F9FD6C3C44035B3
+ 21500A65F6D700FE2EA580A5EC551F4A50359316B31D76EFDC0EE5F72A645045
+ A067AE0623074B8140891108F1057064CC0D556053DF173812B707E6DCF332A8
+ 225080D201DB4AF99BF335B4D502F371415BCC364833C4C29F458F0C2A031281
+ 081734AB0B3C88403C1E6E3E2E7960F6A8FFD27A7D3EF07A11DA2C76C84A8D87
+ A57FCB32E8B8A54A4C8C21B59365C9015996EF2240B6634DF435B51460A46D1F
+ 70C093AA46BF09C980C12CA914E6F371ADD707EF1DB3B0B0B8006EB79B8EA96B
+ EA5106121851245129118FD8BFA2DC5C53C6BAF5EBBBBA97C2D64EC064195B1F
+ 286C76E956A0EA5C51AEB4764A9929F5750D5A9581D2274B9B651C0BA2F514A8
+ 6F28E36B70AD9A4253EF97A9AA55B0CEBA87D03B645B3F43C1DE589C58186D10
+ 81150FCAC57B11E161B04517099BB953C78643141B01BA28EEE4DAB0B04DE2B8
+ CA460B9C399902E661BB3AB0F5AD038BF30CD4D7E7DD14815A61023027DD00EF
+ 469C1A80FD1C307F1578FD4A81E665945AD68924181A9D5007B6F4DBF1527E32
+ F5C9D3632351F8F549AEE916B14EAA039BCD362C31A6040D23E7887D4A03B0CF
+ 86C5C6641A24BB7646D3F2D51A77F8C1BCDCFFC79CD3EAC0D7BD56AE86294165
+ 4660CB5C6B737DD3062CCA31D00069E76E05241862CF1EDD05E7D40F756063CF
+ 673C7F5A4F679A59541EF03E4C8C3B0893DF67D481AFBAC7B0F05412CD30EBE2
+ ED80F7617CEC0198FEF94B1BF06C6622AD4B4EC99D80F7A1666043D7281A3312
+ FD84C20B8417C3AA789405239826E0CBCE4F98979E10344C33B0BE630473D312
+ 82866906D6993E62F6F1C3F45D160A5305BE68FF8095CF5B4302134CFE1185EA
+ 1FB8A1B4FF4FE32FF6FADB8B5E0000000049454E44AE426082}
+ Instruction.Text = 'Se han asignado la/s factura/s de cliente'
+ Instruction.Glyph.Data = {
+ 0A54504E474F626A65637489504E470D0A1A0A0000000D494844520000001C00
+ 00001C0806000000720DDF940000000970485973000017120000171201679FD2
+ 520000000467414D410000B18E7CFB5193000003104944415478DAAD96FB4B14
+ 5114C7CFE463DC1E606444BFF54424D3DC55CA52B1CCD7165A219905054182FD
+ 1452FD5810FD100406610A669A998FC4F5BDB6266265DAB60F5DD15E58FE03B2
+ 3F99D29ABBA7B9779C71C61D9D6177CFCE70CFDCB97B3EF7DCF3BD33C38082FD
+ B502B2B300CC656020048688A24F036233A0671F40D43160BA87BF62AEEE1010
+ 60D7AE293AD8B835815E9B625C80DC8F1E88D4A7C1E8C1FB8F9FD6C3C44035B3
+ 21500A65F6D700FE2EA580A5EC551F4A50359316B31D76EFDC0EE5F72A645045
+ A067AE0623074B8140891108F1057064CC0D556053DF173812B707E6DCF332A8
+ 225080D201DB4AF99BF335B4D502F371415BCC364833C4C29F458F0C2A031281
+ 081734AB0B3C88403C1E6E3E2E7960F6A8FFD27A7D3EF07A11DA2C76C84A8D87
+ A57FCB32E8B8A54A4C8C21B59365C9015996EF2240B6634DF435B51460A46D1F
+ 70C093AA46BF09C980C12CA914E6F371ADD707EF1DB3B0B0B8006EB79B8EA96B
+ EA5106121851245129118FD8BFA2DC5C53C6BAF5EBBBBA97C2D64EC064195B1F
+ 286C76E956A0EA5C51AEB4764A9929F5750D5A9581D2274B9B651C0BA2F514A8
+ 6F28E36B70AD9A4253EF97A9AA55B0CEBA87D03B645B3F43C1DE589C58186D10
+ 81150FCAC57B11E161B04517099BB953C78643141B01BA28EEE4DAB0B04DE2B8
+ CA460B9C399902E661BB3AB0F5AD038BF30CD4D7E7DD14815A61023027DD00EF
+ 469C1A80FD1C307F1578FD4A81E665945AD68924181A9D5007B6F4DBF1527E32
+ F5C9D3632351F8F549AEE916B14EAA039BCD362C31A6040D23E7887D4A03B0CF
+ 86C5C6641A24BB7646D3F2D51A77F8C1BCDCFFC79CD3EAC0D7BD56AE86294165
+ 4660CB5C6B737DD3062CCA31D00069E76E05241862CF1EDD05E7D40F756063CF
+ 673C7F5A4F679A59541EF03E4C8C3B0893DF67D481AFBAC7B0F05412CD30EBE2
+ ED80F7617CEC0198FEF94B1BF06C6622AD4B4EC99D80F7A1666043D7281A3312
+ FD84C20B8417C3AA789405239826E0CBCE4F98979E10344C33B0BE630473D312
+ 82866906D6993E62F6F1C3F45D160A5305BE68FF8095CF5B4302134CFE1185EA
+ 1FB8A1B4FF4FE32FF6FADB8B5E0000000049454E44AE426082}
+ Instruction.Icon = tdiCustom
+ ButtonBar.Buttons = [cbOK]
+ ButtonBar.Cancel = cbOK
+ ButtonBar.UseCancel = False
+ MainIcon = tdiCustom
+ Title = 'FactuGES'
+ Position = dpMainFormCenter
+ Icon.Data = {
+ 0000010003002020100001000400E8020000360000002020000001000800A808
+ 00001E0300002020000001002000A8100000C60B000028000000200000004000
+ 0000010004000000000000020000000000000000000000000000000000000000
+ 000000008000008000000080800080000000800080008080000080808000C0C0
+ C0000000FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF000000
+ 0000000000000000000000000000000008777777777777777777777700000000
+ 0877767777677776777767760000000008F88888888888888888888700000000
+ 08F8FF8F8F888888888888860000000008FF8F8F88F8F8888888888C00000000
+ 08F88888F8888888888888860000000008F8688878E8888E88E8788700000000
+ 08F8688888F8F8FFFFFF88760000000008FF4888888F8FFFFFFF788700000000
+ 08F8676767677677677658E50000000008FF8888888887878787888700000000
+ 08FF8887887E8888888888860000000008FFE8E8E788C8E8FF8F8F8600000000
+ 08FFF8F8F8F8FF8F88F8F8870000000008FFFFFF8FF8F8F8F88F888600000000
+ 0FF8477878787878788788860000000008FF68888888F8FF8F8F788700000000
+ 08B7588888FF8FFFFFFF78860000083008BB47887776777777776F86000000B7
+ 8B9B73BB88788787E87878870000008BB8B9BB78888888EFF8F8FF8600000087
+ B8BB8B888E8E8E88FFF8F886000000088BBB888FFFFFFFFFF8F877770000B9BB
+ B8FFBB9B9BFFFFFFF87466460000BBB9BB8FBBBBB8FFFFFFF88F888700000008
+ B8BB88888FFFFFFFF88F8F7700000008BBBBBB8FFFFFFFFFFF8887700000007B
+ B7B98BB8FFFFFFFFF8887700000000B78B9B87B888F88F88F8877000000007B0
+ 08BB883B78888788787700000000000000B9000000000000000000000000FFFF
+ FFFFF800000FF800000FF800000FF800000FF800000FF800000FF800000FF800
+ 000FF800000FF800000FF800000FF800000FF800000FF800000FF800000FF800
+ 000FF800000FF800000F9800000FC000000FC000000FC000000FE000000F0000
+ 000F0000000FE000000FE000001FC000003FC000007F980000FFFCFFFFFF2800
+ 0000200000004000000001000800000000000004000000000000000000000001
+ 00000001000000000000694731007C5D49007E604C0081635000826451008567
+ 540085685500886B5900896D5B008A6E5D008B705F008E715F008B7260008C72
+ 61008E74640084766C00957A6900977D6D00887B72009A8171009D8272009C84
+ 76009D8778009F897B00A28A7900A08B7D00A18C7E00E1B06E00E1B67D003E7A
+ 970073A0A5007AA2B70074AFBD007BB2BB003CAACE0028A5DB0020ADDF000D9A
+ E500209EE3000DA6E2001AA4EF0000A6FF000CABFE0009ACFE0010A4F10015AC
+ FA0000B5FB0000B0FD000CB6FC0000BFF90000BAFD0004BAFD0009BBFB0013B6
+ F40015BFFA001CBDFB0026B7FD00589EC50040A4CD0040ABCC0050A2C7005DAE
+ C00060A3C20062A4C60060B7CB006AB0CD007BB6C80077BAC80061BADD0044AD
+ E50000C3F80007C6FB0000CAF80000CFFB0000D4F90026C8FA0026CDF8002BCC
+ F90039C4FB0039C2FC0039CAFA003FCFFB0024D6F80030D2F80039D5F80000F8
+ F8001FF8F8002CF6F8003EF4F8005AC6DC0070CDDF0052C0E40054C9E3004DCE
+ FA005FC7FF004FD2FB004DD9F8005FD9FB006ED3E70063CDFE0060D1FB0060D8
+ F90060DDF80046F8F90056F0F8005FFAFA0073E3F80073E4F90073EEF80060F1
+ F800958A84009A918C0081999500A68F8200AD968500A3968C00AE988900AD9A
+ 8D00B19A8B00AF9C9000B09E9200B59F9200B7A29300B2A19600B5A19400B7A4
+ 9700BDA79700B4A39800B1A59D00B4A79F00BAA69800BCA79900B4A89F00BCA8
+ 9900BAA89C00BDAA9D00BEAC9E0083ADBD00B5A9A100BDABA000BEADA100BFAF
+ A500A0BABE00C0AB9E00C1AC9E00C6AE9F00E2B98100E4BA8300E4BB8400E5BC
+ 8500E1BD8E00E3BF9000C0ADA000C2B0A300C2B1A500C4B2A600C1B2A800C3B5
+ AB00C8B4A800CCB9AD00CEBCB100D0BEB200D1BFB400E4C19300E5C29400E6C4
+ 9600E8C69900D0C9A300CFC1B800D2C1B600D3C3B800D5C4B900D6C6BC00D8C6
+ BC00D6C8BE00DAC9BF00ECD3B000EDD4B200EFD6B500E7D1B800E7D3BD00F0D8
+ B6008CB7C40080BEC70097C3C70099C3C900ABD7CF00AFD9DD0086E3F90086E7
+ F90086ECF8009EE5FB0090E8F900ACEDFC00BCEAFD00BCF1FB00BFF1FD00D7C9
+ C000D9CAC100DCCBC200DACCC200DDCCC300DACCC400DDCEC400DED0C600DED1
+ C900DED3CC00DFD4CD00E1D1C900E2D5CD00F0DCC200E3D8D200E5D9D200E2DA
+ D500E6DBD400E5DCD500E8DDD600E6DDD800E9DFD900E6E0DB00EAE0DA00EAE2
+ DD00ECE3DE00EBE4DE00ECE4DE00F3E7D900C6E1EF00C9EFFD00D7F6FD00DFF3
+ FF00DFFEFE00EBE7E300EDE6E100EFE7E400EEE8E400F0EAE600F2EDE900F2EE
+ EC00F4EFEC00F5F0EE00F9F4ED00E7FAFD00EBF8FF00F6F2F000F7F4F100F8F4
+ F200F9F7F500FAF8F600FBF9F900FCFBFA00FCFCFB00FEFEFE00000000000000
+ 0000000000000000000000000000000000000000000000000000000000000000
+ 00000000000000000000007D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D
+ 0D0D0000000000000000009C9C19191919191919191919191919191919191919
+ 1903000000000000000000ABDECBCBC7C7AFABABABABAAA3A2A2A0A0A0A0A0A0
+ 8607000000000000000000ABECEAE9DEDEDEDED7D5D2D2D2CBCBCBCBB0CBB0CB
+ 9007000000000000000000ABEDECEAE9DEDEDBD7D7D5D2D2D2CDCDCBB0B0B0B0
+ 9007000000000000000000AFEDE9A9CFD2CFD2CDCBCBCBB0B0ABACA3A3A3A3B0
+ 9007000000000000000000AFF0D5017783838386868686869099909999907BB0
+ 9007000000000000000000B0F4D501A0B0CBD2D5DEECEDF7FAFAFAFAFAF77BAA
+ 9007000000000000000000CBF4DC01A0B0B0B0D2D5DBEAEDF7FAFAFAFAF47BB0
+ 9007000000000000000000CBF8DC010404070604090909090D0D110D110D02A3
+ 9007000000000000000000CBFAED9E9E9E9C999E8C8C8C868683837E7D7D7ACB
+ 9007000000000000000000CBFAF1A7A7A6A6A6A69898989898B5DBDBD5D5D2D2
+ 9907000000000000000000CDFAF796969696961D961D931D1DB4DEDBD7D5D5D2
+ 9C07000000000000000000CFFAFAFAFAF8F7F0F0EDEDEDECE9E9DEDEDED7D5D5
+ 9907000000000000000000CDFAFAEAF0EDEDECEAEAE9DEDEDBDCD5D5D5D5D2D5
+ 9C07000000000000000000D2FAEC01737D7D7B7D7D7B7D7B7D7B7B7B7D7B7DD2
+ 9907000000000000000000CFFAEC019EABB0CBD2D5DCDEECEDF4F4F4F4EA7BD2
+ 9C07000000000000000000B9524601A0B0B0CBB5D5DEEAEDF7FAFAFAFAF47DD5
+ 9C070000000000213F0000B83226010C3F5C1F111214141616191B1B1B1807D2
+ 9C07000000000000253D8A5B322D711E2860BA7E7E7A7E797A797979767676D5
+ 9E0700000000000041375E662F2B65314EBBB6B6B6B6B4B4B1E2F4EDEDEDECEA
+ 9C070000000000008F5D66663232394EC1A81C1C1C1C1C1C1CD3F7F4EDDED7D5
+ 9C0700000000000000B7BE6E5758BEBDE4E6E6F3FAFAFAFAFAFAF7F4D5928675
+ 7304000000002A2A2A2A4A6AFAE7562F2A2A2A5FFAFAFAFAFAFAF8D577010101
+ 0101000000004747472F4A59C5E7564A32474766FAFAFAFAFAFAFADCA0D2CFB0
+ A20C00000000000000436C6958686D6BC2C5C5E7FAFAFAFAFAFAFADEAADEDBCB
+ 1470000000000000004551534A4A5250C0E7FAFAFAFAFAFAFAFAFADEAAD7B514
+ 700000000000000042384C54472B613550C3FAFAFAFAFAFAFAFAFADEA1B0196F
+ 000000000000000024234463322EBC5A3664E3ECE9E9E9E9E9E9E9CF90731300
+ 000000000000003A3C00002232298B8B3E3B207E8B7E8B7E827E817E74100000
+ 0000000000000000000000003227000000000000000000000000000000000000
+ 000000000000FFFFFFFFF800000FF800000FF800000FF800000FF800000FF800
+ 000FF800000FF800000FF800000FF800000FF800000FF800000FF800000FF800
+ 000FF800000FF800000FF800000FF800000F9800000FC000000FC000000FC000
+ 000FE000000F0000000F0000000FE000000FE000001FC000003FC000007F9800
+ 00FFFCFFFFFF2800000020000000400000000100200000000000801000000000
+ 0000000000000000000000000000000000000000000000000000000000000000
+ 0000000000000000000000000000000000000000000000000000000000000000
+ 0000000000000000000000000000000000000000000000000000000000000000
+ 0000000000000000000000000000000000000000000000000000000000000000
+ 0000000000000000000000000000000000000000000000000000000000007067
+ 5F70AA9382E570513CE3735540E3735540E3735540E3735540E3735540E37355
+ 40E3735540E3735540E3735540E3735540E3735540E3735540E3735540E37355
+ 40E3735540E3735540E3735540E3735540E3735540E3735540E372533EE5BAAB
+ A070000000000000000000000000000000000000000000000000000000005E54
+ 4C7FCAB7ABFFC5B5AAFFA18877FFA28A78FFA28A79FFA28A79FFA28A79FFA28A
+ 79FFA28A79FFA28A79FFA28A79FFA28A79FFA28A79FFA28A79FFA28A79FFA28A
+ 79FFA28A79FFA28A79FFA28A79FFA28A79FFA28A79FFA58D7CFF7A5B46FFB2A1
+ 967F000000000000000000000000000000000000000000000000000000006055
+ 4D7ED7C6BBFFEDE4E0FFD9CCC4FFD9CCC4FFD9CBC3FFD8CAC1FFD7C9BFFFD6C7
+ BDFFD5C6BBFFD4C4BAFFD3C3B8FFD2C1B7FFD1C0B5FFD0BEB3FFCFBDB2FFCEBC
+ B0FFCEBBAFFFCEBBAFFFCEBBAFFFCEBBAFFFCEBCB0FFBEAA9CFF82644FFFB2A1
+ 967E000000000000000000000000000000000000000000000000000000006056
+ 4D7ED7C8BCFFF2EBE8FFEFE9E5FFEEE7E2FFECE5E0FFEBE2DEFFEAE0DBFFE9DE
+ D8FFE7DBD4FFE5D9D1FFE3D7CFFFE2D4CCFFE1D2C9FFDFD0C7FFDDCDC4FFDCCB
+ C2FFDBC9BFFFDBC9BFFFDBC9BFFFDBC9BFFFDCCAC1FFC1AC9FFF81634FFFB2A1
+ 967E000000000000000000000000000000000000000000000000000000006155
+ 4E7ED8C9BDFFF3EDE9FFF1EAE6FFF0E9E6FFEEE6E1FFECE4DFFFEBE2DDFFEAE0
+ DAFFE9DED7FFE7DBD4FFE5D9D1FFE3D7CFFFE2D4CCFFE1D2C9FFDFD0C7FFDDCD
+ C4FFDCCBC2FFDBC9BFFFDBC9BFFFDBC9BFFFDCCAC0FFC1AC9FFF81634FFFB2A1
+ 967E000000000000000000000000000000000000000000000000000000006157
+ 4E7ED9C9BFFFF4EFEDFFEFE8E3FFD0C2B9FFDFD5CEFFE0D5CEFFE0D4CCFFDED3
+ CBFFDDD1C8FFDCCFC6FFDACCC4FFD9CBC1FFD8C9BFFFD7C7BDFFD6C5BBFFD5C4
+ B9FFD3C2B7FFD2C0B5FFD2BFB4FFD2BFB4FFDAC8BEFFC1AC9FFF81634FFFB2A1
+ 967E000000000000000000000000000000000000000000000000000000006256
+ 4F7EDACCC0FFF5F2EFFFE5DDD9FF5C3821FFB0998AFFB8A394FFB8A394FFB9A3
+ 94FFB8A495FFB9A597FFB9A698FFBAA698FFBBA799FFBBA89AFFBBA89BFFBCA8
+ 9BFFBCA89BFFBCA89BFFBBA89AFFB49E8FFFD8C6BBFFC1AC9FFF81634FFFB2A1
+ 967E000000000000000000000000000000000000000000000000000000006256
+ 4F7EDBCBC1FFF8F4F3FFE7E0DBFF5F3C24FFD0BDB2FFDCCBC1FFDDCCC3FFE2D2
+ CBFFE7DBD4FFEDE2DEFFF0E8E6FFF5F0EDFFF9F7F4FFFDFDFDFFFFFFFFFFFFFF
+ FFFFFFFFFFFFFFFFFFFFFAF8F7FFB39D8DFFD8C6BBFFC1AC9FFF81634FFFB2A1
+ 967E000000000000000000000000000000000000000000000000000000006256
+ 4F7EDCCEC3FFFAF6F5FFE9E2DDFF5F3C24FFD2BFB5FFDFCDC4FFDECCC3FFE0CE
+ C6FFE4D4CDFFE9DDD6FFEFE4E0FFF1EAE8FFF7F1EFFFFBF8F6FFFFFEFFFFFFFF
+ FFFFFFFFFFFFFFFFFFFFFCFBFAFFB5A090FFD9C7BEFFC1AD9FFF81634FFFB2A1
+ 967E000000000000000000000000000000000000000000000000000000006257
+ 4F7EDDCFC4FFFCF9F9FFE9E4E0FF5F3A23FF7C5D49FF7F5F4CFF7E5F4CFF7E60
+ 4DFF7F614DFF816350FF826552FF836654FF846856FF856A57FF866B59FF876C
+ 5BFF876D5BFF876D5BFF866B59FF72523DFFD5C3B9FFC1AFA1FF81634FFFB2A1
+ 967E000000000000000000000000000000000000000000000000000000006357
+ 507EDECFC6FFFCFCFBFFF4F1F0FFC3B6AEFFC3B5ADFFC1B4ACFFC0B3AAFFBFB1
+ A9FFBEB0A6FFBDAEA5FFBDACA3FFBCABA2FFBBAAA0FFBAA99FFFB8A69AFFB8A4
+ 98FFB6A396FFB5A194FFB49F93FFB39D90FFDCCDC4FFC2AEA1FF81634FFFB2A1
+ 967E000000000000000000000000000000000000000000000000000000006357
+ 507EDFD2C7FFFEFEFDFFF9F5EFFFE8C696FFE9C799FFE8C697FFE7C596FFE7C4
+ 95FFE6C394FFE5C293FFE4C091FFE4C090FFE3BF8FFFE2BD8CFFE9D5BFFFEBE1
+ DCFFEADFD8FFE7DCD5FFE5DAD3FFE4D8D0FFE3D4CCFFC2AFA2FF81634FFFB2A1
+ 967E000000000000000000000000000000000000000000000000000000006458
+ 517EE0D3C8FFFFFFFFFFFAF5EFFFE3B77CFFE4B97FFFE2B87EFFE3B77DFFE2B7
+ 7CFFE2B67BFFE1B57AFFE1B479FFE0B478FFE0B377FFDFB174FFE6D0B7FFEBE1
+ DCFFE8DFD9FFE8DDD6FFE6D9D2FFE3D8D1FFE4D7CFFFC3AFA2FF81634FFFB2A1
+ 967E000000000000000000000000000000000000000000000000000000006458
+ 517EE1D2C9FFFFFFFFFFFEFEFDFFFEFFFFFFFCFDFEFFFBFBFBFFF9F7F8FFF8F5
+ F6FFF7F3F2FFF5F1F0FFF4EFEEFFF1EDEBFFF0EBE9FFEEE9E6FFEDE6E2FFECE3
+ DEFFEBE1DBFFE9DFD9FFE8DDD6FFE6DAD3FFE5D9D2FFC3B0A3FF81634FFFB2A1
+ 967E000000000000000000000000000000000000000000000000000000006459
+ 517EE1D4CAFFFFFFFFFFFDFDFCFFEEEBE8FFF5F2F0FFF4F0EFFFF3EFECFFF2ED
+ EAFFF1EBE8FFEEE9E5FFEFE7E3FFECE5E1FFEAE4DEFFEAE1DCFFE8E0DAFFE7DE
+ D8FFE6DDD6FFE5DBD4FFE4D8D1FFE2D6CEFFE6DBD4FFC3B1A4FF81634EFFB2A1
+ 967E000000000000000000000000000000000000000000000000000000006559
+ 527EE2D4CAFFFFFFFFFFF0ECEAFF5B361EFFAB9383FFB39D8EFFB39D8DFFB39D
+ 8DFFB29D8DFFB29C8DFFB29C8CFFB29C8CFFB29C8CFFB29C8CFFB29C8CFFB29C
+ 8CFFB29C8CFFB29C8CFFB29C8DFFB39D8EFFE3D8D0FFC4B1A4FF81634EFFB2A1
+ 967E000000000000000000000000000000000000000000000000000000006559
+ 527EE5D4CAFFFFFFFFFFF7F0EBFF5F3B24FFCCB8ADFFD7C5BAFFD9C7BDFFDCCC
+ C3FFE1D4CCFFE5DAD4FFE8E0DBFFEDE5E1FFF1EBE9FFF5F2EFFFF7F5F3FFF8F6
+ F4FFF8F5F4FFF8F6F4FFF1EEEAFFB29C8DFFE6DAD3FFC4B2A5FF81634EFFB2A1
+ 967E00000000000000000000000000000000000000000000000000000000685A
+ 527E9AC6C9FF35CFFEFF3DAEEBFF663E24FFD2BFB4FFE0CBBFFFE0C9BDFFE1CD
+ C4FFE4D5CDFFE9DED7FFEEE5E0FFF2EBE8FFF6F2F0FFFCF8F8FFFFFFFEFFFFFF
+ FFFFFFFFFFFFFFFFFFFFFCFAF9FFB49E8FFFE7DED7FFC5B3A6FF81634EFFB2A1
+ 967E00000000000000000000000000000000007792910072A7A3001E33366957
+ 4C7C86C1C8FF00BFFBFF079AEBFF6A3E23FF926D57FF5FA3C8FF4AC1E8FF6C9C
+ A2FF917260FF927767FF947A69FF957C6CFF977E6FFF998171FF9A8374FF9B85
+ 76FF9C8678FF9C8678FF998274FF7D5E49FFE3D9D4FFC5B3A7FF81634EFFB2A1
+ 967E00000000000000000000000000000000005A6F7000A9E5E40075AEAE5C90
+ A5BD75D0E0FF00BFFAFF0CA3F4FF8A9A91FF3C7492FF03A4E4FF4AD5FFFF98C4
+ CBFFB3A196FFB1A197FFB0A096FFB09F95FFAF9D92FFAF9C91FFAD9A8EFFAC99
+ 8CFFAB988AFFAB9789FFAA9688FFA99386FFE8E0DAFFC5B4A7FF81634EFFB2A1
+ 967E00000000000000000000000000000000000000002DA5BFC110C2FFFF4DD0
+ FDFF64DBF9FF00B3FAFF09A8FEFF68D7FFFF04B5FFFF24CCFBFFAFD8CEFFF7DA
+ B8FFF3DBBBFFF3DBBAFFF2D9B9FFF1D8B7FFF0D7B4FFEED5B2FFF6EADDFFF9F6
+ F4FFF7F3F1FFF5F1EEFFF5EFECFFF4EDEAFFF1EBE7FFC6B4A8FF81634EFFB2A1
+ 967E00000000000000000000000000000000000000005F8A909142C7E4E960DE
+ F8FF64D7FAFF00B6FDFF00B8FDFF21B2FDFF1ECCF7FF93EBFCFFD2C69BFFE1AB
+ 63FFDFAC66FFDFAC66FFDFAC66FFDFAC66FFDFAC66FFDEA961FFEFDBC0FFF8F6
+ F5FFF6F2F0FFF3EDEBFFECE2DCFFE9DFD9FFE5DBD6FFC2B1A4FF81634FFFB2A1
+ 967E000000000000000000000000000E171A000E171A00040B145994A4A990EB
+ FCFF61F1F7FF13FAF7FF23F9F7FF93EDF7FF8CE5F8FFD5F2FDFFE9F8FFFFE7F8
+ FFFFF0FCFFFFFFFFFFFFFFFFFFFFFFFFFFFFFEFFFFFFFDFEFFFFFAFAF9FFF9F7
+ F5FFF7F2F0FFE8DFD8FFC7AE9FFFBEA998FFAF9888FFB09A8AFF7F604DFFB2A1
+ 967E00000000000000000000000000AAFFFF00AAFFFF00AAFFFF00A4FFFF00CD
+ FAFF5DFCF9FFFFFFFFFFEEFEFEFF00FBF7FF00AAFEFF00A1FFFF00A1FFFF00A0
+ FFFF56C3FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFCFDFBFFFCFBFAFFFBFA
+ F8FFE6DDD6FFAA9180FF5D3922FF603D26FF613E27FF613E28FF634029FFB4A3
+ 987E00000000000000000000000000CAFFFF00CAFFFF00CBFFFF00B0FFFF00CD
+ FBFF38F5F7FFC3EFFAFFF0FFFEFF00FAF7FF00C8F7FF00C2F7FF00C2F7FF00C1
+ F7FF57D7FAFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFEFEFEFFFDFDFCFFFCFC
+ FBFFE7DED8FFCCB9ACFFE6DBD5FFE2D7D0FFDCCFC5FFD7C5BBFF8E705DFFB4A2
+ 9680000000000000000000000000002E383C002E383C00252F364C99B0B57DE8
+ FBFF59F1F7FF25F7F7FF41FAF8FF7CEEF7FF77E4F7FFB5EFFCFFC6F2FDFFC3F2
+ FDFFD9F6FCFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFDFEFEFFFEFE
+ FEFFE9E1DAFFCEBCAFFFF1E9E3FFEADFD8FFE4D5CCFF9D816FFF3A291F868985
+ 831C00000000000000000000000000000000000000004E7073774AB0DADC37C9
+ FBFF22D5F7FF00D3F9FF02C3FBFF37D5F7FF34BEFCFFA2E6FAFFECFBFDFFFFFF
+ FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFEFF
+ FFFFEAE2DCFFCDBBADFFEADFD8FFE3D5CBFF9F8271FF3E2D2386050100200000
+ 000000000000000000000000000000000000000000003E9CC4C219C0FFFF23C9
+ FCFF30D3F8FF00BEF8FF06A8FEFF4FDCF8FF00B8FCFF32C2FBFFC0EBFCFFFFFF
+ FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
+ FFFFEAE3DEFFCDB9ABFFDDCEC4FFA58979FF3E2C1F8F0905041B000000000000
+ 000000000000000000000000000000000000003451510099DDDB0091C0C35DAD
+ BCCF76D7E9FF00BEF9FF10A9FBFFBDDEDEFF5AC8DDFF0AB5F7FF62CEFFFFCBE4
+ F1FFF1E7E0FFEFE7E1FFEEE6E1FFEEE6E1FFEEE6E0FFEDE6E0FFEDE5E0FFEEE6
+ E1FFE1D4CCFFC5AE9FFFA68D7FF53E2718A10402000E00000000000000000000
+ 0000000000000000000000000000000000000075B7AF0099C7C500323E425442
+ 3B5C6BA8B1DA00C1FCFF0EA1F3F8A98E80C0AB9081C12698B1C10088C4C14C85
+ A3C1A18D80C19E8D81C19E8B81C19D8C80C19B8C7FC19B8A7FC19C897FC19A89
+ 7EC19B8B7EC1897769C2432B1BAC000000000000000000000000000000000000
+ 0000000000000000000000000000000000000000000000000000000000000000
+ 00000045565A00C5FFFF0094E6E2000000000000000000000000000000000000
+ 0000000000000000000000000000000000000000000000000000000000000000
+ 0000000000000000000000000000000000000000000000000000000000000000
+ 0000000000000000000000000000FFFFFFFFF0000007F0000007F0000007F000
+ 0007F0000007F0000007F0000007F0000007F0000007F0000007F0000007F000
+ 0007F0000007F0000007F0000007F0000007F0000007F0000007800000078000
+ 0007C0000007C000000700000007000000070000000700000007C000000FC000
+ 001F8000003F800000FFF8FFFFFF}
+ Width = 450
+ Left = 88
+ Top = 88
+ end
+end
diff --git a/Source/Modulos/Relaciones/Pedidos a proveedor - Contratos de cliente/uGenerarPedidosProvUtils.pas b/Source/Modulos/Relaciones/Pedidos a proveedor - Contratos de cliente/uGenerarPedidosProvUtils.pas
new file mode 100644
index 0000000..aff9b72
--- /dev/null
+++ b/Source/Modulos/Relaciones/Pedidos a proveedor - Contratos de cliente/uGenerarPedidosProvUtils.pas
@@ -0,0 +1,235 @@
+unit uGenerarPedidosProvUtils;
+
+interface
+
+uses
+ SysUtils, Classes, uBizContratosCliente, uBizPedidosProveedor, pngimage, JSDialog;
+
+type
+ TdmGenerarPedidosProv = class(TDataModule)
+ JsListaPedidosGenerados: TJSDialog;
+ JsListaPedidosAsignadosAContrato: TJSDialog;
+ end;
+
+// function GenerarPedidosProv(const IDPedido : Integer) : Boolean; overload;
+// function GenerarPedidosProv(APedidoCli : IBizPedidoCliente) : Boolean; overload;
+// function GenerarPedidosProv : Boolean; overload;
+
+ function AsignarContratoAPedidos(AContrato : IBizContratoCliente; var APedidos: IBizPedidoProveedor): Boolean;
+
+implementation
+
+{$R *.dfm}
+
+uses
+ uDialogUtils,
+ uContratosClienteController, uPedidosProveedorController, uProveedoresController,
+ uDetallesPedidoProveedorController, uControllerDetallesBase,
+ uBizContactos, schPedidosProveedorClient_Intf;
+
+var
+ dmGenerarPedidosProv: TdmGenerarPedidosProv;
+ AContratosClienteController : IContratosClienteController;
+ APedidosProveedorController : IPedidosProveedorController;
+ ADetallesPedidosProvController : IDetallesPedidoProveedorController;
+ AProveedoresController : IProveedoresController;
+
+
+procedure Inicializar;
+begin
+ dmGenerarPedidosProv := TdmGenerarPedidosProv.Create(nil);
+ AContratosClienteController := TContratosClienteController.Create;
+ APedidosProveedorController := TPedidosProveedorController.Create;
+ ADetallesPedidosProvController := TDetallesPedidoProveedorController.Create;
+ AProveedoresController := TProveedoresController.Create;
+end;
+
+procedure Finalizar;
+begin
+ FreeAndNIL(dmGenerarPedidosProv);
+ AContratosClienteController := nil;
+ APedidosProveedorController := nil;
+ ADetallesPedidosProvController := nil;
+ AProveedoresController := nil;
+end;
+
+
+function AsignarContratoAPedidos(AContrato : IBizContratoCliente; var APedidos: IBizPedidoProveedor): Boolean;
+var
+ i: integer;
+
+begin
+ Result := False;
+
+ if not Assigned(APedidos) then
+ raise Exception.Create ('Pedidos no asignadas (AsignarContratoAPedidos)');
+
+ if not Assigned(AContrato) then
+ raise Exception.Create ('Contrato no asignado (AsignarContratoAPedidos)');
+
+ if not APedidos.DataTable.Active then
+ APedidos.DataTable.Active := True;
+
+ if not Assigned(AContratosClienteController) then
+ Inicializar;
+
+ with dmGenerarPedidosProv.JsListaPedidosAsignadosAContrato do
+ begin
+ Content.Clear;
+ APedidos.DataTable.First;
+ for i := 0 to APedidos.DataTable.RecordCount - 1 do
+ begin
+ if (APedidos.SITUACION = SITUACION_PEDIDO_PENDIENTE) then
+ begin
+ APedidos.Edit;
+ APedidos.ID_CONTRATO_CLIENTE := AContrato.ID;
+ APedidos.REF_CON_CLIENTE := AContrato.REFERENCIA;
+ APedidos.NOMBRE_CLIENTE := AContrato.NOMBRE_CLIENTE;
+ Content.Add(APedidos.REFERENCIA + ': Asignado contrato ' + AContrato.REFERENCIA);
+ APedidos.Post;
+ Result := True;
+ end
+ else
+ Content.Add(APedidos.REFERENCIA + ': El pedido está parcialmente recibido o recibido, por lo que no se puede modificar el contrato asociado ' + APedidos.REF_CON_CLIENTE);
+ APedidos.Next;
+ end;
+ end;
+ dmGenerarPedidosProv.JsListaPedidosAsignadosAContrato.Execute;
+ APedidos.DataTable.ApplyUpdates;
+end;
+
+{function GenerarPedidosProv(const IDPedido : Integer) : Boolean; overload;
+var
+ APedido : IBizPedidoCliente;
+begin
+ Result := False;
+
+ try
+ if not Assigned(APedidosClienteController) then
+ Inicializar;
+
+ APedido := APedidosClienteController.Buscar(IDPedido);
+ if Assigned(APedido) then
+ Result := GenerarPedidosProv(APedido);
+ finally
+ if Assigned(APedidosClienteController) then
+ Finalizar;
+ end;
+end;
+
+function GenerarPedidosProv(APedidoCli : IBizPedidoCliente) : Boolean; overload;
+var
+ APedidoProv : IBizPedidoProveedor;
+ AArticulosPend : IBizPedidoClienteArticulosPendientesPedirAProv;
+ ALista : TStringList;
+begin
+ Result := False;
+
+ if not Assigned(APedidoCli) then
+ raise Exception.Create('Pedido de cliente no asignado (GenerarPedidosProv)');
+
+ if not APedidoCli.DataTable.Active then
+ APedidoCli.DataTable.Active := True;
+
+ if not Assigned(APedidosClienteController) then
+ Inicializar;
+
+ AArticulosPend := APedidosClienteController.BuscarPendientesPedir(APedidoCli.ID);
+ if not Assigned(AArticulosPend) then
+ raise Exception.Create('Error al recuperar la lista de artículos pendientes de pedir (GenerarPedidosProv)');
+
+ ALista := TStringList.Create;
+ try
+ if not AArticulosPend.DataTable.Active then
+ AArticulosPend.DataTable.Active := True;
+
+ if AArticulosPend.DataTable.RecordCount = 0 then
+ begin
+ ShowInfoMessage('Este pedido a cliente no tiene artículos pendientes que se tengan que pedir a los proveedores');
+ Exit;
+ end;
+
+ APedidoProv := NIL;
+ AArticulosPend.DataTable.First;
+ while not AArticulosPend.DataTable.EOF do
+ begin
+ if Assigned(APedidoProv) and
+ (AArticulosPend.ID_PROVEEDOR <> APedidoProv.ID_PROVEEDOR) then
+ begin
+ APedidosProveedorController.Guardar(APedidoProv);
+ ALista.Add(APedidoProv.REFERENCIA + ': ' + APedidoProv.NOMBRE);
+ APedidoProv := NIL;
+ end;
+
+ if not Assigned(APedidoProv) then
+ begin
+ APedidoProv := APedidosProveedorController.Nuevo;
+ APedidoProv.Edit;
+ APedidoProv.Proveedor := (AProveedoresController.Buscar(AArticulosPend.ID_PROVEEDOR) as IBizProveedor);
+ APedidoProv.ID_PEDIDO_CLIENTE := APedidoCli.ID;
+ end;
+
+ //OJO IMPORTANTE
+ //Siempre que vayamos a trabajar con los detalles debemos hacer un beginupdate de los mismos y un endupdate para
+ //obligarle siempre a recalcular los detalles una sola vez
+ ADetallesController.BeginUpdate(APedidoProv.Detalles);
+
+ ADetallesPedidosProvController.Add(APedidoProv.Detalles, TIPO_DETALLE_CONCEPTO);
+ ADetallesPedidosProvController.AnadirArticulo(APedidoProv.Detalles, AArticulosPend.ID_ARTICULO);
+ with APedidoProv.Detalles do
+ begin
+ Edit;
+ CANTIDAD := AArticulosPend.CANT_PENDIENTE_PEDIR;
+ Post;
+ end;
+ ADetallesController.EndUpdate(APedidoProv.Detalles);
+ AArticulosPend.DataTable.Next;
+ end;
+
+ if Assigned(APedidoProv) then
+ begin
+ APedidosProveedorController.Guardar(APedidoProv);
+ ALista.Add(APedidoProv.REFERENCIA + ': ' + APedidoProv.NOMBRE);
+ APedidoProv := NIL;
+ end;
+
+ if ALista.Count > 0 then
+ begin
+ dmGenerarPedidosProv.JsListaPedidosGenerados.Content.Clear;
+ dmGenerarPedidosProv.JsListaPedidosGenerados.Content.AddStrings(ALista);
+ dmGenerarPedidosProv.JsListaPedidosGenerados.Execute;
+ end;
+
+ Result := True;
+ finally
+ FreeAndNIL(ALista);
+ AArticulosPend := NIL;
+
+ if Assigned(APedidosClienteController) then
+ Finalizar;
+ end;
+end;
+
+function GenerarPedidosProv : Boolean; overload;
+var
+ APedidoCli : IBizPedidoCliente;
+begin
+ Result := False;
+ try
+ if not Assigned(APedidosClienteController) then
+ Inicializar;
+
+ APedidoCli := APedidosClienteController.ElegirPedidos(APedidosClienteController.BuscarPendientes,
+ 'Elija el pedido de cliente que desea utilizar para dar de alta el pedido o pedidos a proveedor.'
+ , False);
+
+ if Assigned(APedidoCli) then
+ Result := GenerarPedidosProv(APedidoCli);
+ finally
+ if Assigned(APedidosClienteController) then
+ Finalizar;
+ end;
+end;
+}
+
+end.
diff --git a/Source/Modulos/Tarifas/Controller/Tarifas_controller.dcu b/Source/Modulos/Tarifas/Controller/Tarifas_controller.dcu
index 3f614c8..4a98ebd 100644
Binary files a/Source/Modulos/Tarifas/Controller/Tarifas_controller.dcu and b/Source/Modulos/Tarifas/Controller/Tarifas_controller.dcu differ
diff --git a/Source/Servidor/FactuGES_Server.dproj b/Source/Servidor/FactuGES_Server.dproj
index fc5ecbf..f1a2c6d 100644
--- a/Source/Servidor/FactuGES_Server.dproj
+++ b/Source/Servidor/FactuGES_Server.dproj
@@ -28,7 +28,7 @@
Delphi.Personality
- FalseTrueFalseTrueFalse5510FalseFalseFalseFalseFalse30821252Rodax Software S.L.5.5.1.0FactuGES (Servidor)5.5.1.0miércoles, 21 de enero de 2026 16:29
+ FalseTrueFalseTrueFalse5530FalseFalseFalseFalseFalse30821252Rodax Software S.L.5.5.3.0FactuGES (Servidor)5.5.3.0domingo, 01 de marzo de 2026 21:27
Express Cross Platform Library by Developer Express Inc.
ExpressPrinting System by Developer Express Inc.
RemObjects Data Abstract - CoreLabs SDAC Driver
diff --git a/Source/Servidor/schPedidosProveedorServer_Intf.pas b/Source/Servidor/schPedidosProveedorServer_Intf.pas
new file mode 100644
index 0000000..aae96e6
--- /dev/null
+++ b/Source/Servidor/schPedidosProveedorServer_Intf.pas
@@ -0,0 +1,4963 @@
+unit schPedidosProveedorServer_Intf;
+
+interface
+
+uses
+ Classes, DB, SysUtils, uROClasses, uDADataTable, uDABusinessProcessor, FmtBCD, uROXMLIntf, schPedidosProveedorClient_Intf;
+
+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_ListaAnosPedidosDelta = '{F9CB2A04-E53D-4129-964C-0CD3E2A201B7}';
+ RID_PedidosProveedorDelta = '{9F98B56B-6613-482B-84C7-F72DF2857F54}';
+ RID_PedidosProveedor_DetallesDelta = '{0CC694D2-A832-497D-91A1-2B2B44CD998F}';
+ RID_PedidosProveedor_Articulos_PendientesDelta = '{3036D002-5B9A-429F-9625-32805B568E2C}';
+ RID_PedidosProveedorConArticuloBuscadoDelta = '{BAEAA1A6-DF2A-47D8-9E73-1305E533DEEB}';
+
+type
+ { IListaAnosPedidosDelta }
+ IListaAnosPedidosDelta = interface(IListaAnosPedidos)
+ ['{F9CB2A04-E53D-4129-964C-0CD3E2A201B7}']
+ { Property getters and setters }
+ function GetOldANOValue : String;
+
+ { Properties }
+ property OldANO : String read GetOldANOValue;
+ end;
+
+ { TListaAnosPedidosBusinessProcessorRules }
+ TListaAnosPedidosBusinessProcessorRules = class(TDABusinessProcessorRules, IListaAnosPedidos, IListaAnosPedidosDelta)
+ private
+ protected
+ { Property getters and setters }
+ function GetANOValue: String; virtual;
+ function GetANOIsNull: Boolean; virtual;
+ function GetOldANOValue: String; virtual;
+ function GetOldANOIsNull: Boolean; virtual;
+ procedure SetANOValue(const aValue: String); virtual;
+ procedure SetANOIsNull(const aValue: Boolean); virtual;
+
+ { Properties }
+ property ANO : String read GetANOValue write SetANOValue;
+ property ANOIsNull : Boolean read GetANOIsNull write SetANOIsNull;
+ property OldANO : String read GetOldANOValue;
+ property OldANOIsNull : Boolean read GetOldANOIsNull;
+
+ public
+ constructor Create(aBusinessProcessor: TDABusinessProcessor); override;
+ destructor Destroy; override;
+
+ end;
+
+ { IPedidosProveedorDelta }
+ IPedidosProveedorDelta = interface(IPedidosProveedor)
+ ['{9F98B56B-6613-482B-84C7-F72DF2857F54}']
+ { Property getters and setters }
+ function GetOldIDValue : Integer;
+ function GetOldID_EMPRESAValue : Integer;
+ function GetOldID_PROVEEDORValue : Integer;
+ function GetOldNOMBREValue : String;
+ function GetOldNOMBRE_COMERCIALValue : String;
+ function GetOldREFERENCIAValue : String;
+ function GetOldSITUACIONValue : String;
+ function GetOldFECHA_ENVIOValue : DateTime;
+ function GetOldFECHA_PEDIDOValue : DateTime;
+ function GetOldFECHA_CONFIRMACIONValue : DateTime;
+ function GetOldFECHA_ENTREGAValue : DateTime;
+ function GetOldID_ALMACENValue : Integer;
+ function GetOldNOMBRE_ALMACENValue : String;
+ function GetOldOBSERVACIONESValue : IROStrings;
+ function GetOldIMPORTE_TOTALValue : Currency;
+ function GetOldINCIDENCIASValue : IROStrings;
+ function GetOldINCIDENCIAS_ACTIVASValue : Integer;
+ function GetOldCALLEValue : String;
+ function GetOldPOBLACIONValue : String;
+ function GetOldPROVINCIAValue : String;
+ function GetOldCODIGO_POSTALValue : String;
+ function GetOldPERSONA_CONTACTOValue : String;
+ function GetOldTELEFONOValue : String;
+ function GetOldFECHA_ALTAValue : DateTime;
+ function GetOldFECHA_MODIFICACIONValue : DateTime;
+ function GetOldUSUARIOValue : String;
+ function GetOldID_CONTRATO_CLIENTEValue : Integer;
+ function GetOldREF_CON_CLIENTEValue : String;
+ function GetOldNOMBRE_CLIENTEValue : String;
+ function GetOldIMPORTE_NETOValue : Currency;
+ function GetOldIMPORTE_PORTEValue : Currency;
+ function GetOldDESCUENTOValue : Float;
+ function GetOldIMPORTE_DESCUENTOValue : Currency;
+ function GetOldBASE_IMPONIBLEValue : Currency;
+ function GetOldIVAValue : Float;
+ function GetOldIMPORTE_IVAValue : Currency;
+ function GetOldID_FORMA_PAGOValue : Integer;
+ function GetOldID_TIENDAValue : Integer;
+ function GetOldID_VENDEDORValue : Integer;
+ function GetOldVENDEDORValue : String;
+ function GetOldREF_VENDEDORValue : String;
+ function GetOldID_DIRECCIONValue : Integer;
+ function GetOldID_TIPO_IVAValue : Integer;
+
+ { Properties }
+ property OldID : Integer read GetOldIDValue;
+ property OldID_EMPRESA : Integer read GetOldID_EMPRESAValue;
+ property OldID_PROVEEDOR : Integer read GetOldID_PROVEEDORValue;
+ property OldNOMBRE : String read GetOldNOMBREValue;
+ property OldNOMBRE_COMERCIAL : String read GetOldNOMBRE_COMERCIALValue;
+ property OldREFERENCIA : String read GetOldREFERENCIAValue;
+ property OldSITUACION : String read GetOldSITUACIONValue;
+ property OldFECHA_ENVIO : DateTime read GetOldFECHA_ENVIOValue;
+ property OldFECHA_PEDIDO : DateTime read GetOldFECHA_PEDIDOValue;
+ property OldFECHA_CONFIRMACION : DateTime read GetOldFECHA_CONFIRMACIONValue;
+ property OldFECHA_ENTREGA : DateTime read GetOldFECHA_ENTREGAValue;
+ property OldID_ALMACEN : Integer read GetOldID_ALMACENValue;
+ property OldNOMBRE_ALMACEN : String read GetOldNOMBRE_ALMACENValue;
+ property OldOBSERVACIONES : IROStrings read GetOldOBSERVACIONESValue;
+ property OldIMPORTE_TOTAL : Currency read GetOldIMPORTE_TOTALValue;
+ property OldINCIDENCIAS : IROStrings read GetOldINCIDENCIASValue;
+ property OldINCIDENCIAS_ACTIVAS : Integer read GetOldINCIDENCIAS_ACTIVASValue;
+ property OldCALLE : String read GetOldCALLEValue;
+ property OldPOBLACION : String read GetOldPOBLACIONValue;
+ property OldPROVINCIA : String read GetOldPROVINCIAValue;
+ property OldCODIGO_POSTAL : String read GetOldCODIGO_POSTALValue;
+ property OldPERSONA_CONTACTO : String read GetOldPERSONA_CONTACTOValue;
+ property OldTELEFONO : String read GetOldTELEFONOValue;
+ property OldFECHA_ALTA : DateTime read GetOldFECHA_ALTAValue;
+ property OldFECHA_MODIFICACION : DateTime read GetOldFECHA_MODIFICACIONValue;
+ property OldUSUARIO : String read GetOldUSUARIOValue;
+ property OldID_CONTRATO_CLIENTE : Integer read GetOldID_CONTRATO_CLIENTEValue;
+ property OldREF_CON_CLIENTE : String read GetOldREF_CON_CLIENTEValue;
+ property OldNOMBRE_CLIENTE : String read GetOldNOMBRE_CLIENTEValue;
+ property OldIMPORTE_NETO : Currency read GetOldIMPORTE_NETOValue;
+ property OldIMPORTE_PORTE : Currency read GetOldIMPORTE_PORTEValue;
+ property OldDESCUENTO : Float read GetOldDESCUENTOValue;
+ property OldIMPORTE_DESCUENTO : Currency read GetOldIMPORTE_DESCUENTOValue;
+ property OldBASE_IMPONIBLE : Currency read GetOldBASE_IMPONIBLEValue;
+ property OldIVA : Float read GetOldIVAValue;
+ property OldIMPORTE_IVA : Currency read GetOldIMPORTE_IVAValue;
+ property OldID_FORMA_PAGO : Integer read GetOldID_FORMA_PAGOValue;
+ property OldID_TIENDA : Integer read GetOldID_TIENDAValue;
+ property OldID_VENDEDOR : Integer read GetOldID_VENDEDORValue;
+ property OldVENDEDOR : String read GetOldVENDEDORValue;
+ property OldREF_VENDEDOR : String read GetOldREF_VENDEDORValue;
+ property OldID_DIRECCION : Integer read GetOldID_DIRECCIONValue;
+ property OldID_TIPO_IVA : Integer read GetOldID_TIPO_IVAValue;
+ end;
+
+ { TPedidosProveedorBusinessProcessorRules }
+ TPedidosProveedorBusinessProcessorRules = class(TDABusinessProcessorRules, IPedidosProveedor, IPedidosProveedorDelta)
+ private
+ f_OBSERVACIONES: IROStrings;
+ f_INCIDENCIAS: IROStrings;
+ procedure OBSERVACIONES_OnChange(Sender: TObject);
+ procedure INCIDENCIAS_OnChange(Sender: TObject);
+ protected
+ { Property getters and setters }
+ function GetIDValue: Integer; virtual;
+ function GetIDIsNull: Boolean; virtual;
+ function GetOldIDValue: Integer; virtual;
+ function GetOldIDIsNull: Boolean; virtual;
+ procedure SetIDValue(const aValue: Integer); virtual;
+ procedure SetIDIsNull(const aValue: Boolean); virtual;
+ function GetID_EMPRESAValue: Integer; virtual;
+ function GetID_EMPRESAIsNull: Boolean; virtual;
+ function GetOldID_EMPRESAValue: Integer; virtual;
+ function GetOldID_EMPRESAIsNull: Boolean; virtual;
+ procedure SetID_EMPRESAValue(const aValue: Integer); virtual;
+ procedure SetID_EMPRESAIsNull(const aValue: Boolean); virtual;
+ function GetID_PROVEEDORValue: Integer; virtual;
+ function GetID_PROVEEDORIsNull: Boolean; virtual;
+ function GetOldID_PROVEEDORValue: Integer; virtual;
+ function GetOldID_PROVEEDORIsNull: Boolean; virtual;
+ procedure SetID_PROVEEDORValue(const aValue: Integer); virtual;
+ procedure SetID_PROVEEDORIsNull(const aValue: Boolean); virtual;
+ function GetNOMBREValue: String; virtual;
+ function GetNOMBREIsNull: Boolean; virtual;
+ function GetOldNOMBREValue: String; virtual;
+ function GetOldNOMBREIsNull: Boolean; virtual;
+ procedure SetNOMBREValue(const aValue: String); virtual;
+ procedure SetNOMBREIsNull(const aValue: Boolean); virtual;
+ function GetNOMBRE_COMERCIALValue: String; virtual;
+ function GetNOMBRE_COMERCIALIsNull: Boolean; virtual;
+ function GetOldNOMBRE_COMERCIALValue: String; virtual;
+ function GetOldNOMBRE_COMERCIALIsNull: Boolean; virtual;
+ procedure SetNOMBRE_COMERCIALValue(const aValue: String); virtual;
+ procedure SetNOMBRE_COMERCIALIsNull(const aValue: Boolean); virtual;
+ function GetREFERENCIAValue: String; virtual;
+ function GetREFERENCIAIsNull: Boolean; virtual;
+ function GetOldREFERENCIAValue: String; virtual;
+ function GetOldREFERENCIAIsNull: Boolean; virtual;
+ procedure SetREFERENCIAValue(const aValue: String); virtual;
+ procedure SetREFERENCIAIsNull(const aValue: Boolean); virtual;
+ function GetSITUACIONValue: String; virtual;
+ function GetSITUACIONIsNull: Boolean; virtual;
+ function GetOldSITUACIONValue: String; virtual;
+ function GetOldSITUACIONIsNull: Boolean; virtual;
+ procedure SetSITUACIONValue(const aValue: String); virtual;
+ procedure SetSITUACIONIsNull(const aValue: Boolean); virtual;
+ function GetFECHA_ENVIOValue: DateTime; virtual;
+ function GetFECHA_ENVIOIsNull: Boolean; virtual;
+ function GetOldFECHA_ENVIOValue: DateTime; virtual;
+ function GetOldFECHA_ENVIOIsNull: Boolean; virtual;
+ procedure SetFECHA_ENVIOValue(const aValue: DateTime); virtual;
+ procedure SetFECHA_ENVIOIsNull(const aValue: Boolean); virtual;
+ function GetFECHA_PEDIDOValue: DateTime; virtual;
+ function GetFECHA_PEDIDOIsNull: Boolean; virtual;
+ function GetOldFECHA_PEDIDOValue: DateTime; virtual;
+ function GetOldFECHA_PEDIDOIsNull: Boolean; virtual;
+ procedure SetFECHA_PEDIDOValue(const aValue: DateTime); virtual;
+ procedure SetFECHA_PEDIDOIsNull(const aValue: Boolean); virtual;
+ function GetFECHA_CONFIRMACIONValue: DateTime; virtual;
+ function GetFECHA_CONFIRMACIONIsNull: Boolean; virtual;
+ function GetOldFECHA_CONFIRMACIONValue: DateTime; virtual;
+ function GetOldFECHA_CONFIRMACIONIsNull: Boolean; virtual;
+ procedure SetFECHA_CONFIRMACIONValue(const aValue: DateTime); virtual;
+ procedure SetFECHA_CONFIRMACIONIsNull(const aValue: Boolean); virtual;
+ function GetFECHA_ENTREGAValue: DateTime; virtual;
+ function GetFECHA_ENTREGAIsNull: Boolean; virtual;
+ function GetOldFECHA_ENTREGAValue: DateTime; virtual;
+ function GetOldFECHA_ENTREGAIsNull: Boolean; virtual;
+ procedure SetFECHA_ENTREGAValue(const aValue: DateTime); virtual;
+ procedure SetFECHA_ENTREGAIsNull(const aValue: Boolean); virtual;
+ function GetID_ALMACENValue: Integer; virtual;
+ function GetID_ALMACENIsNull: Boolean; virtual;
+ function GetOldID_ALMACENValue: Integer; virtual;
+ function GetOldID_ALMACENIsNull: Boolean; virtual;
+ procedure SetID_ALMACENValue(const aValue: Integer); virtual;
+ procedure SetID_ALMACENIsNull(const aValue: Boolean); virtual;
+ function GetNOMBRE_ALMACENValue: String; virtual;
+ function GetNOMBRE_ALMACENIsNull: Boolean; virtual;
+ function GetOldNOMBRE_ALMACENValue: String; virtual;
+ function GetOldNOMBRE_ALMACENIsNull: Boolean; virtual;
+ procedure SetNOMBRE_ALMACENValue(const aValue: String); virtual;
+ procedure SetNOMBRE_ALMACENIsNull(const aValue: Boolean); virtual;
+ function GetOBSERVACIONESValue: IROStrings; virtual;
+ function GetOBSERVACIONESIsNull: Boolean; virtual;
+ function GetOldOBSERVACIONESValue: IROStrings; virtual;
+ function GetOldOBSERVACIONESIsNull: Boolean; virtual;
+ procedure SetOBSERVACIONESIsNull(const aValue: Boolean); virtual;
+ function GetIMPORTE_TOTALValue: Currency; virtual;
+ function GetIMPORTE_TOTALIsNull: Boolean; virtual;
+ function GetOldIMPORTE_TOTALValue: Currency; virtual;
+ function GetOldIMPORTE_TOTALIsNull: Boolean; virtual;
+ procedure SetIMPORTE_TOTALValue(const aValue: Currency); virtual;
+ procedure SetIMPORTE_TOTALIsNull(const aValue: Boolean); virtual;
+ function GetINCIDENCIASValue: IROStrings; virtual;
+ function GetINCIDENCIASIsNull: Boolean; virtual;
+ function GetOldINCIDENCIASValue: IROStrings; virtual;
+ function GetOldINCIDENCIASIsNull: Boolean; virtual;
+ procedure SetINCIDENCIASIsNull(const aValue: Boolean); virtual;
+ function GetINCIDENCIAS_ACTIVASValue: Integer; virtual;
+ function GetINCIDENCIAS_ACTIVASIsNull: Boolean; virtual;
+ function GetOldINCIDENCIAS_ACTIVASValue: Integer; virtual;
+ function GetOldINCIDENCIAS_ACTIVASIsNull: Boolean; virtual;
+ procedure SetINCIDENCIAS_ACTIVASValue(const aValue: Integer); virtual;
+ procedure SetINCIDENCIAS_ACTIVASIsNull(const aValue: Boolean); virtual;
+ function GetCALLEValue: String; virtual;
+ function GetCALLEIsNull: Boolean; virtual;
+ function GetOldCALLEValue: String; virtual;
+ function GetOldCALLEIsNull: Boolean; virtual;
+ procedure SetCALLEValue(const aValue: String); virtual;
+ procedure SetCALLEIsNull(const aValue: Boolean); virtual;
+ function GetPOBLACIONValue: String; virtual;
+ function GetPOBLACIONIsNull: Boolean; virtual;
+ function GetOldPOBLACIONValue: String; virtual;
+ function GetOldPOBLACIONIsNull: Boolean; virtual;
+ procedure SetPOBLACIONValue(const aValue: String); virtual;
+ procedure SetPOBLACIONIsNull(const aValue: Boolean); virtual;
+ function GetPROVINCIAValue: String; virtual;
+ function GetPROVINCIAIsNull: Boolean; virtual;
+ function GetOldPROVINCIAValue: String; virtual;
+ function GetOldPROVINCIAIsNull: Boolean; virtual;
+ procedure SetPROVINCIAValue(const aValue: String); virtual;
+ procedure SetPROVINCIAIsNull(const aValue: Boolean); virtual;
+ function GetCODIGO_POSTALValue: String; virtual;
+ function GetCODIGO_POSTALIsNull: Boolean; virtual;
+ function GetOldCODIGO_POSTALValue: String; virtual;
+ function GetOldCODIGO_POSTALIsNull: Boolean; virtual;
+ procedure SetCODIGO_POSTALValue(const aValue: String); virtual;
+ procedure SetCODIGO_POSTALIsNull(const aValue: Boolean); virtual;
+ function GetPERSONA_CONTACTOValue: String; virtual;
+ function GetPERSONA_CONTACTOIsNull: Boolean; virtual;
+ function GetOldPERSONA_CONTACTOValue: String; virtual;
+ function GetOldPERSONA_CONTACTOIsNull: Boolean; virtual;
+ procedure SetPERSONA_CONTACTOValue(const aValue: String); virtual;
+ procedure SetPERSONA_CONTACTOIsNull(const aValue: Boolean); virtual;
+ function GetTELEFONOValue: String; virtual;
+ function GetTELEFONOIsNull: Boolean; virtual;
+ function GetOldTELEFONOValue: String; virtual;
+ function GetOldTELEFONOIsNull: Boolean; virtual;
+ procedure SetTELEFONOValue(const aValue: String); virtual;
+ procedure SetTELEFONOIsNull(const aValue: Boolean); virtual;
+ function GetFECHA_ALTAValue: DateTime; virtual;
+ function GetFECHA_ALTAIsNull: Boolean; virtual;
+ function GetOldFECHA_ALTAValue: DateTime; virtual;
+ function GetOldFECHA_ALTAIsNull: Boolean; virtual;
+ procedure SetFECHA_ALTAValue(const aValue: DateTime); virtual;
+ procedure SetFECHA_ALTAIsNull(const aValue: Boolean); virtual;
+ function GetFECHA_MODIFICACIONValue: DateTime; virtual;
+ function GetFECHA_MODIFICACIONIsNull: Boolean; virtual;
+ function GetOldFECHA_MODIFICACIONValue: DateTime; virtual;
+ function GetOldFECHA_MODIFICACIONIsNull: Boolean; virtual;
+ procedure SetFECHA_MODIFICACIONValue(const aValue: DateTime); virtual;
+ procedure SetFECHA_MODIFICACIONIsNull(const aValue: Boolean); virtual;
+ function GetUSUARIOValue: String; virtual;
+ function GetUSUARIOIsNull: Boolean; virtual;
+ function GetOldUSUARIOValue: String; virtual;
+ function GetOldUSUARIOIsNull: Boolean; virtual;
+ procedure SetUSUARIOValue(const aValue: String); virtual;
+ procedure SetUSUARIOIsNull(const aValue: Boolean); virtual;
+ function GetID_CONTRATO_CLIENTEValue: Integer; virtual;
+ function GetID_CONTRATO_CLIENTEIsNull: Boolean; virtual;
+ function GetOldID_CONTRATO_CLIENTEValue: Integer; virtual;
+ function GetOldID_CONTRATO_CLIENTEIsNull: Boolean; virtual;
+ procedure SetID_CONTRATO_CLIENTEValue(const aValue: Integer); virtual;
+ procedure SetID_CONTRATO_CLIENTEIsNull(const aValue: Boolean); virtual;
+ function GetREF_CON_CLIENTEValue: String; virtual;
+ function GetREF_CON_CLIENTEIsNull: Boolean; virtual;
+ function GetOldREF_CON_CLIENTEValue: String; virtual;
+ function GetOldREF_CON_CLIENTEIsNull: Boolean; virtual;
+ procedure SetREF_CON_CLIENTEValue(const aValue: String); virtual;
+ procedure SetREF_CON_CLIENTEIsNull(const aValue: Boolean); virtual;
+ function GetNOMBRE_CLIENTEValue: String; virtual;
+ function GetNOMBRE_CLIENTEIsNull: Boolean; virtual;
+ function GetOldNOMBRE_CLIENTEValue: String; virtual;
+ function GetOldNOMBRE_CLIENTEIsNull: Boolean; virtual;
+ procedure SetNOMBRE_CLIENTEValue(const aValue: String); virtual;
+ procedure SetNOMBRE_CLIENTEIsNull(const aValue: Boolean); virtual;
+ function GetIMPORTE_NETOValue: Currency; virtual;
+ function GetIMPORTE_NETOIsNull: Boolean; virtual;
+ function GetOldIMPORTE_NETOValue: Currency; virtual;
+ function GetOldIMPORTE_NETOIsNull: Boolean; virtual;
+ procedure SetIMPORTE_NETOValue(const aValue: Currency); virtual;
+ procedure SetIMPORTE_NETOIsNull(const aValue: Boolean); virtual;
+ function GetIMPORTE_PORTEValue: Currency; virtual;
+ function GetIMPORTE_PORTEIsNull: Boolean; virtual;
+ function GetOldIMPORTE_PORTEValue: Currency; virtual;
+ function GetOldIMPORTE_PORTEIsNull: Boolean; virtual;
+ procedure SetIMPORTE_PORTEValue(const aValue: Currency); virtual;
+ procedure SetIMPORTE_PORTEIsNull(const aValue: Boolean); virtual;
+ function GetDESCUENTOValue: Float; virtual;
+ function GetDESCUENTOIsNull: Boolean; virtual;
+ function GetOldDESCUENTOValue: Float; virtual;
+ function GetOldDESCUENTOIsNull: Boolean; virtual;
+ procedure SetDESCUENTOValue(const aValue: Float); virtual;
+ procedure SetDESCUENTOIsNull(const aValue: Boolean); virtual;
+ function GetIMPORTE_DESCUENTOValue: Currency; virtual;
+ function GetIMPORTE_DESCUENTOIsNull: Boolean; virtual;
+ function GetOldIMPORTE_DESCUENTOValue: Currency; virtual;
+ function GetOldIMPORTE_DESCUENTOIsNull: Boolean; virtual;
+ procedure SetIMPORTE_DESCUENTOValue(const aValue: Currency); virtual;
+ procedure SetIMPORTE_DESCUENTOIsNull(const aValue: Boolean); virtual;
+ function GetBASE_IMPONIBLEValue: Currency; virtual;
+ function GetBASE_IMPONIBLEIsNull: Boolean; virtual;
+ function GetOldBASE_IMPONIBLEValue: Currency; virtual;
+ function GetOldBASE_IMPONIBLEIsNull: Boolean; virtual;
+ procedure SetBASE_IMPONIBLEValue(const aValue: Currency); virtual;
+ procedure SetBASE_IMPONIBLEIsNull(const aValue: Boolean); virtual;
+ function GetIVAValue: Float; virtual;
+ function GetIVAIsNull: Boolean; virtual;
+ function GetOldIVAValue: Float; virtual;
+ function GetOldIVAIsNull: Boolean; virtual;
+ procedure SetIVAValue(const aValue: Float); virtual;
+ procedure SetIVAIsNull(const aValue: Boolean); virtual;
+ function GetIMPORTE_IVAValue: Currency; virtual;
+ function GetIMPORTE_IVAIsNull: Boolean; virtual;
+ function GetOldIMPORTE_IVAValue: Currency; virtual;
+ function GetOldIMPORTE_IVAIsNull: Boolean; virtual;
+ procedure SetIMPORTE_IVAValue(const aValue: Currency); virtual;
+ procedure SetIMPORTE_IVAIsNull(const aValue: Boolean); virtual;
+ function GetID_FORMA_PAGOValue: Integer; virtual;
+ function GetID_FORMA_PAGOIsNull: Boolean; virtual;
+ function GetOldID_FORMA_PAGOValue: Integer; virtual;
+ function GetOldID_FORMA_PAGOIsNull: Boolean; virtual;
+ procedure SetID_FORMA_PAGOValue(const aValue: Integer); virtual;
+ procedure SetID_FORMA_PAGOIsNull(const aValue: Boolean); virtual;
+ function GetID_TIENDAValue: Integer; virtual;
+ function GetID_TIENDAIsNull: Boolean; virtual;
+ function GetOldID_TIENDAValue: Integer; virtual;
+ function GetOldID_TIENDAIsNull: Boolean; virtual;
+ procedure SetID_TIENDAValue(const aValue: Integer); virtual;
+ procedure SetID_TIENDAIsNull(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;
+ function GetVENDEDORValue: String; virtual;
+ function GetVENDEDORIsNull: Boolean; virtual;
+ function GetOldVENDEDORValue: String; virtual;
+ function GetOldVENDEDORIsNull: Boolean; virtual;
+ procedure SetVENDEDORValue(const aValue: String); virtual;
+ procedure SetVENDEDORIsNull(const aValue: Boolean); virtual;
+ function GetREF_VENDEDORValue: String; virtual;
+ function GetREF_VENDEDORIsNull: Boolean; virtual;
+ function GetOldREF_VENDEDORValue: String; virtual;
+ function GetOldREF_VENDEDORIsNull: Boolean; virtual;
+ procedure SetREF_VENDEDORValue(const aValue: String); virtual;
+ procedure SetREF_VENDEDORIsNull(const aValue: Boolean); virtual;
+ function GetID_DIRECCIONValue: Integer; virtual;
+ function GetID_DIRECCIONIsNull: Boolean; virtual;
+ function GetOldID_DIRECCIONValue: Integer; virtual;
+ function GetOldID_DIRECCIONIsNull: Boolean; virtual;
+ procedure SetID_DIRECCIONValue(const aValue: Integer); virtual;
+ procedure SetID_DIRECCIONIsNull(const aValue: Boolean); virtual;
+ function GetID_TIPO_IVAValue: Integer; virtual;
+ function GetID_TIPO_IVAIsNull: Boolean; virtual;
+ function GetOldID_TIPO_IVAValue: Integer; virtual;
+ function GetOldID_TIPO_IVAIsNull: Boolean; virtual;
+ procedure SetID_TIPO_IVAValue(const aValue: Integer); virtual;
+ procedure SetID_TIPO_IVAIsNull(const aValue: Boolean); virtual;
+
+ { Properties }
+ property ID : Integer read GetIDValue write SetIDValue;
+ property IDIsNull : Boolean read GetIDIsNull write SetIDIsNull;
+ property OldID : Integer read GetOldIDValue;
+ property OldIDIsNull : Boolean read GetOldIDIsNull;
+ property ID_EMPRESA : Integer read GetID_EMPRESAValue write SetID_EMPRESAValue;
+ property ID_EMPRESAIsNull : Boolean read GetID_EMPRESAIsNull write SetID_EMPRESAIsNull;
+ property OldID_EMPRESA : Integer read GetOldID_EMPRESAValue;
+ property OldID_EMPRESAIsNull : Boolean read GetOldID_EMPRESAIsNull;
+ property ID_PROVEEDOR : Integer read GetID_PROVEEDORValue write SetID_PROVEEDORValue;
+ property ID_PROVEEDORIsNull : Boolean read GetID_PROVEEDORIsNull write SetID_PROVEEDORIsNull;
+ property OldID_PROVEEDOR : Integer read GetOldID_PROVEEDORValue;
+ property OldID_PROVEEDORIsNull : Boolean read GetOldID_PROVEEDORIsNull;
+ property NOMBRE : String read GetNOMBREValue write SetNOMBREValue;
+ property NOMBREIsNull : Boolean read GetNOMBREIsNull write SetNOMBREIsNull;
+ property OldNOMBRE : String read GetOldNOMBREValue;
+ property OldNOMBREIsNull : Boolean read GetOldNOMBREIsNull;
+ property NOMBRE_COMERCIAL : String read GetNOMBRE_COMERCIALValue write SetNOMBRE_COMERCIALValue;
+ property NOMBRE_COMERCIALIsNull : Boolean read GetNOMBRE_COMERCIALIsNull write SetNOMBRE_COMERCIALIsNull;
+ property OldNOMBRE_COMERCIAL : String read GetOldNOMBRE_COMERCIALValue;
+ property OldNOMBRE_COMERCIALIsNull : Boolean read GetOldNOMBRE_COMERCIALIsNull;
+ property REFERENCIA : String read GetREFERENCIAValue write SetREFERENCIAValue;
+ property REFERENCIAIsNull : Boolean read GetREFERENCIAIsNull write SetREFERENCIAIsNull;
+ property OldREFERENCIA : String read GetOldREFERENCIAValue;
+ property OldREFERENCIAIsNull : Boolean read GetOldREFERENCIAIsNull;
+ property SITUACION : String read GetSITUACIONValue write SetSITUACIONValue;
+ property SITUACIONIsNull : Boolean read GetSITUACIONIsNull write SetSITUACIONIsNull;
+ property OldSITUACION : String read GetOldSITUACIONValue;
+ property OldSITUACIONIsNull : Boolean read GetOldSITUACIONIsNull;
+ property FECHA_ENVIO : DateTime read GetFECHA_ENVIOValue write SetFECHA_ENVIOValue;
+ property FECHA_ENVIOIsNull : Boolean read GetFECHA_ENVIOIsNull write SetFECHA_ENVIOIsNull;
+ property OldFECHA_ENVIO : DateTime read GetOldFECHA_ENVIOValue;
+ property OldFECHA_ENVIOIsNull : Boolean read GetOldFECHA_ENVIOIsNull;
+ property FECHA_PEDIDO : DateTime read GetFECHA_PEDIDOValue write SetFECHA_PEDIDOValue;
+ property FECHA_PEDIDOIsNull : Boolean read GetFECHA_PEDIDOIsNull write SetFECHA_PEDIDOIsNull;
+ property OldFECHA_PEDIDO : DateTime read GetOldFECHA_PEDIDOValue;
+ property OldFECHA_PEDIDOIsNull : Boolean read GetOldFECHA_PEDIDOIsNull;
+ property FECHA_CONFIRMACION : DateTime read GetFECHA_CONFIRMACIONValue write SetFECHA_CONFIRMACIONValue;
+ property FECHA_CONFIRMACIONIsNull : Boolean read GetFECHA_CONFIRMACIONIsNull write SetFECHA_CONFIRMACIONIsNull;
+ property OldFECHA_CONFIRMACION : DateTime read GetOldFECHA_CONFIRMACIONValue;
+ property OldFECHA_CONFIRMACIONIsNull : Boolean read GetOldFECHA_CONFIRMACIONIsNull;
+ property FECHA_ENTREGA : DateTime read GetFECHA_ENTREGAValue write SetFECHA_ENTREGAValue;
+ property FECHA_ENTREGAIsNull : Boolean read GetFECHA_ENTREGAIsNull write SetFECHA_ENTREGAIsNull;
+ property OldFECHA_ENTREGA : DateTime read GetOldFECHA_ENTREGAValue;
+ property OldFECHA_ENTREGAIsNull : Boolean read GetOldFECHA_ENTREGAIsNull;
+ property ID_ALMACEN : Integer read GetID_ALMACENValue write SetID_ALMACENValue;
+ property ID_ALMACENIsNull : Boolean read GetID_ALMACENIsNull write SetID_ALMACENIsNull;
+ property OldID_ALMACEN : Integer read GetOldID_ALMACENValue;
+ property OldID_ALMACENIsNull : Boolean read GetOldID_ALMACENIsNull;
+ property NOMBRE_ALMACEN : String read GetNOMBRE_ALMACENValue write SetNOMBRE_ALMACENValue;
+ property NOMBRE_ALMACENIsNull : Boolean read GetNOMBRE_ALMACENIsNull write SetNOMBRE_ALMACENIsNull;
+ property OldNOMBRE_ALMACEN : String read GetOldNOMBRE_ALMACENValue;
+ property OldNOMBRE_ALMACENIsNull : Boolean read GetOldNOMBRE_ALMACENIsNull;
+ property OBSERVACIONES : IROStrings read GetOBSERVACIONESValue;
+ property OBSERVACIONESIsNull : Boolean read GetOBSERVACIONESIsNull write SetOBSERVACIONESIsNull;
+ property OldOBSERVACIONES : IROStrings read GetOldOBSERVACIONESValue;
+ property OldOBSERVACIONESIsNull : Boolean read GetOldOBSERVACIONESIsNull;
+ property IMPORTE_TOTAL : Currency read GetIMPORTE_TOTALValue write SetIMPORTE_TOTALValue;
+ property IMPORTE_TOTALIsNull : Boolean read GetIMPORTE_TOTALIsNull write SetIMPORTE_TOTALIsNull;
+ property OldIMPORTE_TOTAL : Currency read GetOldIMPORTE_TOTALValue;
+ property OldIMPORTE_TOTALIsNull : Boolean read GetOldIMPORTE_TOTALIsNull;
+ property INCIDENCIAS : IROStrings read GetINCIDENCIASValue;
+ property INCIDENCIASIsNull : Boolean read GetINCIDENCIASIsNull write SetINCIDENCIASIsNull;
+ property OldINCIDENCIAS : IROStrings read GetOldINCIDENCIASValue;
+ property OldINCIDENCIASIsNull : Boolean read GetOldINCIDENCIASIsNull;
+ property INCIDENCIAS_ACTIVAS : Integer read GetINCIDENCIAS_ACTIVASValue write SetINCIDENCIAS_ACTIVASValue;
+ property INCIDENCIAS_ACTIVASIsNull : Boolean read GetINCIDENCIAS_ACTIVASIsNull write SetINCIDENCIAS_ACTIVASIsNull;
+ property OldINCIDENCIAS_ACTIVAS : Integer read GetOldINCIDENCIAS_ACTIVASValue;
+ property OldINCIDENCIAS_ACTIVASIsNull : Boolean read GetOldINCIDENCIAS_ACTIVASIsNull;
+ property CALLE : String read GetCALLEValue write SetCALLEValue;
+ property CALLEIsNull : Boolean read GetCALLEIsNull write SetCALLEIsNull;
+ property OldCALLE : String read GetOldCALLEValue;
+ property OldCALLEIsNull : Boolean read GetOldCALLEIsNull;
+ property POBLACION : String read GetPOBLACIONValue write SetPOBLACIONValue;
+ property POBLACIONIsNull : Boolean read GetPOBLACIONIsNull write SetPOBLACIONIsNull;
+ property OldPOBLACION : String read GetOldPOBLACIONValue;
+ property OldPOBLACIONIsNull : Boolean read GetOldPOBLACIONIsNull;
+ property PROVINCIA : String read GetPROVINCIAValue write SetPROVINCIAValue;
+ property PROVINCIAIsNull : Boolean read GetPROVINCIAIsNull write SetPROVINCIAIsNull;
+ property OldPROVINCIA : String read GetOldPROVINCIAValue;
+ property OldPROVINCIAIsNull : Boolean read GetOldPROVINCIAIsNull;
+ property CODIGO_POSTAL : String read GetCODIGO_POSTALValue write SetCODIGO_POSTALValue;
+ property CODIGO_POSTALIsNull : Boolean read GetCODIGO_POSTALIsNull write SetCODIGO_POSTALIsNull;
+ property OldCODIGO_POSTAL : String read GetOldCODIGO_POSTALValue;
+ property OldCODIGO_POSTALIsNull : Boolean read GetOldCODIGO_POSTALIsNull;
+ property PERSONA_CONTACTO : String read GetPERSONA_CONTACTOValue write SetPERSONA_CONTACTOValue;
+ property PERSONA_CONTACTOIsNull : Boolean read GetPERSONA_CONTACTOIsNull write SetPERSONA_CONTACTOIsNull;
+ property OldPERSONA_CONTACTO : String read GetOldPERSONA_CONTACTOValue;
+ property OldPERSONA_CONTACTOIsNull : Boolean read GetOldPERSONA_CONTACTOIsNull;
+ property TELEFONO : String read GetTELEFONOValue write SetTELEFONOValue;
+ property TELEFONOIsNull : Boolean read GetTELEFONOIsNull write SetTELEFONOIsNull;
+ property OldTELEFONO : String read GetOldTELEFONOValue;
+ property OldTELEFONOIsNull : Boolean read GetOldTELEFONOIsNull;
+ property FECHA_ALTA : DateTime read GetFECHA_ALTAValue write SetFECHA_ALTAValue;
+ property FECHA_ALTAIsNull : Boolean read GetFECHA_ALTAIsNull write SetFECHA_ALTAIsNull;
+ property OldFECHA_ALTA : DateTime read GetOldFECHA_ALTAValue;
+ property OldFECHA_ALTAIsNull : Boolean read GetOldFECHA_ALTAIsNull;
+ property FECHA_MODIFICACION : DateTime read GetFECHA_MODIFICACIONValue write SetFECHA_MODIFICACIONValue;
+ property FECHA_MODIFICACIONIsNull : Boolean read GetFECHA_MODIFICACIONIsNull write SetFECHA_MODIFICACIONIsNull;
+ property OldFECHA_MODIFICACION : DateTime read GetOldFECHA_MODIFICACIONValue;
+ property OldFECHA_MODIFICACIONIsNull : Boolean read GetOldFECHA_MODIFICACIONIsNull;
+ property USUARIO : String read GetUSUARIOValue write SetUSUARIOValue;
+ property USUARIOIsNull : Boolean read GetUSUARIOIsNull write SetUSUARIOIsNull;
+ property OldUSUARIO : String read GetOldUSUARIOValue;
+ property OldUSUARIOIsNull : Boolean read GetOldUSUARIOIsNull;
+ property ID_CONTRATO_CLIENTE : Integer read GetID_CONTRATO_CLIENTEValue write SetID_CONTRATO_CLIENTEValue;
+ property ID_CONTRATO_CLIENTEIsNull : Boolean read GetID_CONTRATO_CLIENTEIsNull write SetID_CONTRATO_CLIENTEIsNull;
+ property OldID_CONTRATO_CLIENTE : Integer read GetOldID_CONTRATO_CLIENTEValue;
+ property OldID_CONTRATO_CLIENTEIsNull : Boolean read GetOldID_CONTRATO_CLIENTEIsNull;
+ property REF_CON_CLIENTE : String read GetREF_CON_CLIENTEValue write SetREF_CON_CLIENTEValue;
+ property REF_CON_CLIENTEIsNull : Boolean read GetREF_CON_CLIENTEIsNull write SetREF_CON_CLIENTEIsNull;
+ property OldREF_CON_CLIENTE : String read GetOldREF_CON_CLIENTEValue;
+ property OldREF_CON_CLIENTEIsNull : Boolean read GetOldREF_CON_CLIENTEIsNull;
+ property NOMBRE_CLIENTE : String read GetNOMBRE_CLIENTEValue write SetNOMBRE_CLIENTEValue;
+ property NOMBRE_CLIENTEIsNull : Boolean read GetNOMBRE_CLIENTEIsNull write SetNOMBRE_CLIENTEIsNull;
+ property OldNOMBRE_CLIENTE : String read GetOldNOMBRE_CLIENTEValue;
+ property OldNOMBRE_CLIENTEIsNull : Boolean read GetOldNOMBRE_CLIENTEIsNull;
+ property IMPORTE_NETO : Currency read GetIMPORTE_NETOValue write SetIMPORTE_NETOValue;
+ property IMPORTE_NETOIsNull : Boolean read GetIMPORTE_NETOIsNull write SetIMPORTE_NETOIsNull;
+ property OldIMPORTE_NETO : Currency read GetOldIMPORTE_NETOValue;
+ property OldIMPORTE_NETOIsNull : Boolean read GetOldIMPORTE_NETOIsNull;
+ property IMPORTE_PORTE : Currency read GetIMPORTE_PORTEValue write SetIMPORTE_PORTEValue;
+ property IMPORTE_PORTEIsNull : Boolean read GetIMPORTE_PORTEIsNull write SetIMPORTE_PORTEIsNull;
+ property OldIMPORTE_PORTE : Currency read GetOldIMPORTE_PORTEValue;
+ property OldIMPORTE_PORTEIsNull : Boolean read GetOldIMPORTE_PORTEIsNull;
+ property DESCUENTO : Float read GetDESCUENTOValue write SetDESCUENTOValue;
+ property DESCUENTOIsNull : Boolean read GetDESCUENTOIsNull write SetDESCUENTOIsNull;
+ property OldDESCUENTO : Float read GetOldDESCUENTOValue;
+ property OldDESCUENTOIsNull : Boolean read GetOldDESCUENTOIsNull;
+ property IMPORTE_DESCUENTO : Currency read GetIMPORTE_DESCUENTOValue write SetIMPORTE_DESCUENTOValue;
+ property IMPORTE_DESCUENTOIsNull : Boolean read GetIMPORTE_DESCUENTOIsNull write SetIMPORTE_DESCUENTOIsNull;
+ property OldIMPORTE_DESCUENTO : Currency read GetOldIMPORTE_DESCUENTOValue;
+ property OldIMPORTE_DESCUENTOIsNull : Boolean read GetOldIMPORTE_DESCUENTOIsNull;
+ property BASE_IMPONIBLE : Currency read GetBASE_IMPONIBLEValue write SetBASE_IMPONIBLEValue;
+ property BASE_IMPONIBLEIsNull : Boolean read GetBASE_IMPONIBLEIsNull write SetBASE_IMPONIBLEIsNull;
+ property OldBASE_IMPONIBLE : Currency read GetOldBASE_IMPONIBLEValue;
+ property OldBASE_IMPONIBLEIsNull : Boolean read GetOldBASE_IMPONIBLEIsNull;
+ property IVA : Float read GetIVAValue write SetIVAValue;
+ property IVAIsNull : Boolean read GetIVAIsNull write SetIVAIsNull;
+ property OldIVA : Float read GetOldIVAValue;
+ property OldIVAIsNull : Boolean read GetOldIVAIsNull;
+ property IMPORTE_IVA : Currency read GetIMPORTE_IVAValue write SetIMPORTE_IVAValue;
+ property IMPORTE_IVAIsNull : Boolean read GetIMPORTE_IVAIsNull write SetIMPORTE_IVAIsNull;
+ property OldIMPORTE_IVA : Currency read GetOldIMPORTE_IVAValue;
+ property OldIMPORTE_IVAIsNull : Boolean read GetOldIMPORTE_IVAIsNull;
+ property ID_FORMA_PAGO : Integer read GetID_FORMA_PAGOValue write SetID_FORMA_PAGOValue;
+ property ID_FORMA_PAGOIsNull : Boolean read GetID_FORMA_PAGOIsNull write SetID_FORMA_PAGOIsNull;
+ property OldID_FORMA_PAGO : Integer read GetOldID_FORMA_PAGOValue;
+ property OldID_FORMA_PAGOIsNull : Boolean read GetOldID_FORMA_PAGOIsNull;
+ property ID_TIENDA : Integer read GetID_TIENDAValue write SetID_TIENDAValue;
+ property ID_TIENDAIsNull : Boolean read GetID_TIENDAIsNull write SetID_TIENDAIsNull;
+ property OldID_TIENDA : Integer read GetOldID_TIENDAValue;
+ property OldID_TIENDAIsNull : Boolean read GetOldID_TIENDAIsNull;
+ 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;
+ property VENDEDOR : String read GetVENDEDORValue write SetVENDEDORValue;
+ property VENDEDORIsNull : Boolean read GetVENDEDORIsNull write SetVENDEDORIsNull;
+ property OldVENDEDOR : String read GetOldVENDEDORValue;
+ property OldVENDEDORIsNull : Boolean read GetOldVENDEDORIsNull;
+ property REF_VENDEDOR : String read GetREF_VENDEDORValue write SetREF_VENDEDORValue;
+ property REF_VENDEDORIsNull : Boolean read GetREF_VENDEDORIsNull write SetREF_VENDEDORIsNull;
+ property OldREF_VENDEDOR : String read GetOldREF_VENDEDORValue;
+ property OldREF_VENDEDORIsNull : Boolean read GetOldREF_VENDEDORIsNull;
+ property ID_DIRECCION : Integer read GetID_DIRECCIONValue write SetID_DIRECCIONValue;
+ property ID_DIRECCIONIsNull : Boolean read GetID_DIRECCIONIsNull write SetID_DIRECCIONIsNull;
+ property OldID_DIRECCION : Integer read GetOldID_DIRECCIONValue;
+ property OldID_DIRECCIONIsNull : Boolean read GetOldID_DIRECCIONIsNull;
+ property ID_TIPO_IVA : Integer read GetID_TIPO_IVAValue write SetID_TIPO_IVAValue;
+ property ID_TIPO_IVAIsNull : Boolean read GetID_TIPO_IVAIsNull write SetID_TIPO_IVAIsNull;
+ property OldID_TIPO_IVA : Integer read GetOldID_TIPO_IVAValue;
+ property OldID_TIPO_IVAIsNull : Boolean read GetOldID_TIPO_IVAIsNull;
+
+ public
+ constructor Create(aBusinessProcessor: TDABusinessProcessor); override;
+ destructor Destroy; override;
+
+ end;
+
+ { IPedidosProveedor_DetallesDelta }
+ IPedidosProveedor_DetallesDelta = interface(IPedidosProveedor_Detalles)
+ ['{0CC694D2-A832-497D-91A1-2B2B44CD998F}']
+ { Property getters and setters }
+ function GetOldIDValue : Integer;
+ function GetOldID_PEDIDOValue : Integer;
+ function GetOldPOSICIONValue : Integer;
+ function GetOldTIPO_DETALLEValue : String;
+ function GetOldCONCEPTOValue : String;
+ function GetOldCANTIDADValue : Currency;
+ function GetOldIMPORTE_UNIDADValue : Currency;
+ function GetOldIMPORTE_TOTALValue : Currency;
+ function GetOldVISIBLEValue : Integer;
+ function GetOldID_ARTICULOValue : Integer;
+ function GetOldDESCUENTOValue : Float;
+ function GetOldIMPORTE_PORTEValue : Currency;
+ function GetOldVALORADOValue : SmallInt;
+ function GetOldREFERENCIAValue : String;
+ function GetOldUNIDAD_MEDIDAValue : String;
+ function GetOldREFERENCIA_PROVEEDORValue : String;
+
+ { Properties }
+ property OldID : Integer read GetOldIDValue;
+ property OldID_PEDIDO : Integer read GetOldID_PEDIDOValue;
+ property OldPOSICION : Integer read GetOldPOSICIONValue;
+ property OldTIPO_DETALLE : String read GetOldTIPO_DETALLEValue;
+ property OldCONCEPTO : String read GetOldCONCEPTOValue;
+ property OldCANTIDAD : Currency read GetOldCANTIDADValue;
+ property OldIMPORTE_UNIDAD : Currency read GetOldIMPORTE_UNIDADValue;
+ property OldIMPORTE_TOTAL : Currency read GetOldIMPORTE_TOTALValue;
+ property OldVISIBLE : Integer read GetOldVISIBLEValue;
+ property OldID_ARTICULO : Integer read GetOldID_ARTICULOValue;
+ property OldDESCUENTO : Float read GetOldDESCUENTOValue;
+ property OldIMPORTE_PORTE : Currency read GetOldIMPORTE_PORTEValue;
+ property OldVALORADO : SmallInt read GetOldVALORADOValue;
+ property OldREFERENCIA : String read GetOldREFERENCIAValue;
+ property OldUNIDAD_MEDIDA : String read GetOldUNIDAD_MEDIDAValue;
+ property OldREFERENCIA_PROVEEDOR : String read GetOldREFERENCIA_PROVEEDORValue;
+ end;
+
+ { TPedidosProveedor_DetallesBusinessProcessorRules }
+ TPedidosProveedor_DetallesBusinessProcessorRules = class(TDABusinessProcessorRules, IPedidosProveedor_Detalles, IPedidosProveedor_DetallesDelta)
+ private
+ protected
+ { Property getters and setters }
+ function GetIDValue: Integer; virtual;
+ function GetIDIsNull: Boolean; virtual;
+ function GetOldIDValue: Integer; virtual;
+ function GetOldIDIsNull: Boolean; virtual;
+ procedure SetIDValue(const aValue: Integer); virtual;
+ procedure SetIDIsNull(const aValue: Boolean); virtual;
+ function GetID_PEDIDOValue: Integer; virtual;
+ function GetID_PEDIDOIsNull: Boolean; virtual;
+ function GetOldID_PEDIDOValue: Integer; virtual;
+ function GetOldID_PEDIDOIsNull: Boolean; virtual;
+ procedure SetID_PEDIDOValue(const aValue: Integer); virtual;
+ procedure SetID_PEDIDOIsNull(const aValue: Boolean); virtual;
+ function GetPOSICIONValue: Integer; virtual;
+ function GetPOSICIONIsNull: Boolean; virtual;
+ function GetOldPOSICIONValue: Integer; virtual;
+ function GetOldPOSICIONIsNull: Boolean; virtual;
+ procedure SetPOSICIONValue(const aValue: Integer); virtual;
+ procedure SetPOSICIONIsNull(const aValue: Boolean); virtual;
+ function GetTIPO_DETALLEValue: String; virtual;
+ function GetTIPO_DETALLEIsNull: Boolean; virtual;
+ function GetOldTIPO_DETALLEValue: String; virtual;
+ function GetOldTIPO_DETALLEIsNull: Boolean; virtual;
+ procedure SetTIPO_DETALLEValue(const aValue: String); virtual;
+ procedure SetTIPO_DETALLEIsNull(const aValue: Boolean); virtual;
+ function GetCONCEPTOValue: String; virtual;
+ function GetCONCEPTOIsNull: Boolean; virtual;
+ function GetOldCONCEPTOValue: String; virtual;
+ function GetOldCONCEPTOIsNull: Boolean; virtual;
+ procedure SetCONCEPTOValue(const aValue: String); virtual;
+ procedure SetCONCEPTOIsNull(const aValue: Boolean); virtual;
+ function GetCANTIDADValue: Currency; virtual;
+ function GetCANTIDADIsNull: Boolean; virtual;
+ function GetOldCANTIDADValue: Currency; virtual;
+ function GetOldCANTIDADIsNull: Boolean; virtual;
+ procedure SetCANTIDADValue(const aValue: Currency); virtual;
+ procedure SetCANTIDADIsNull(const aValue: Boolean); virtual;
+ function GetIMPORTE_UNIDADValue: Currency; virtual;
+ function GetIMPORTE_UNIDADIsNull: Boolean; virtual;
+ function GetOldIMPORTE_UNIDADValue: Currency; virtual;
+ function GetOldIMPORTE_UNIDADIsNull: Boolean; virtual;
+ procedure SetIMPORTE_UNIDADValue(const aValue: Currency); virtual;
+ procedure SetIMPORTE_UNIDADIsNull(const aValue: Boolean); virtual;
+ function GetIMPORTE_TOTALValue: Currency; virtual;
+ function GetIMPORTE_TOTALIsNull: Boolean; virtual;
+ function GetOldIMPORTE_TOTALValue: Currency; virtual;
+ function GetOldIMPORTE_TOTALIsNull: Boolean; virtual;
+ procedure SetIMPORTE_TOTALValue(const aValue: Currency); virtual;
+ procedure SetIMPORTE_TOTALIsNull(const aValue: Boolean); virtual;
+ function GetVISIBLEValue: Integer; virtual;
+ function GetVISIBLEIsNull: Boolean; virtual;
+ function GetOldVISIBLEValue: Integer; virtual;
+ function GetOldVISIBLEIsNull: Boolean; virtual;
+ procedure SetVISIBLEValue(const aValue: Integer); virtual;
+ procedure SetVISIBLEIsNull(const aValue: Boolean); virtual;
+ function GetID_ARTICULOValue: Integer; virtual;
+ function GetID_ARTICULOIsNull: Boolean; virtual;
+ function GetOldID_ARTICULOValue: Integer; virtual;
+ function GetOldID_ARTICULOIsNull: Boolean; virtual;
+ procedure SetID_ARTICULOValue(const aValue: Integer); virtual;
+ procedure SetID_ARTICULOIsNull(const aValue: Boolean); virtual;
+ function GetDESCUENTOValue: Float; virtual;
+ function GetDESCUENTOIsNull: Boolean; virtual;
+ function GetOldDESCUENTOValue: Float; virtual;
+ function GetOldDESCUENTOIsNull: Boolean; virtual;
+ procedure SetDESCUENTOValue(const aValue: Float); virtual;
+ procedure SetDESCUENTOIsNull(const aValue: Boolean); virtual;
+ function GetIMPORTE_PORTEValue: Currency; virtual;
+ function GetIMPORTE_PORTEIsNull: Boolean; virtual;
+ function GetOldIMPORTE_PORTEValue: Currency; virtual;
+ function GetOldIMPORTE_PORTEIsNull: Boolean; virtual;
+ procedure SetIMPORTE_PORTEValue(const aValue: Currency); virtual;
+ procedure SetIMPORTE_PORTEIsNull(const aValue: Boolean); virtual;
+ function GetVALORADOValue: SmallInt; virtual;
+ function GetVALORADOIsNull: Boolean; virtual;
+ function GetOldVALORADOValue: SmallInt; virtual;
+ function GetOldVALORADOIsNull: Boolean; virtual;
+ procedure SetVALORADOValue(const aValue: SmallInt); virtual;
+ procedure SetVALORADOIsNull(const aValue: Boolean); virtual;
+ function GetREFERENCIAValue: String; virtual;
+ function GetREFERENCIAIsNull: Boolean; virtual;
+ function GetOldREFERENCIAValue: String; virtual;
+ function GetOldREFERENCIAIsNull: Boolean; virtual;
+ procedure SetREFERENCIAValue(const aValue: String); virtual;
+ procedure SetREFERENCIAIsNull(const aValue: Boolean); virtual;
+ function GetUNIDAD_MEDIDAValue: String; virtual;
+ function GetUNIDAD_MEDIDAIsNull: Boolean; virtual;
+ function GetOldUNIDAD_MEDIDAValue: String; virtual;
+ function GetOldUNIDAD_MEDIDAIsNull: Boolean; virtual;
+ procedure SetUNIDAD_MEDIDAValue(const aValue: String); virtual;
+ procedure SetUNIDAD_MEDIDAIsNull(const aValue: Boolean); virtual;
+ function GetREFERENCIA_PROVEEDORValue: String; virtual;
+ function GetREFERENCIA_PROVEEDORIsNull: Boolean; virtual;
+ function GetOldREFERENCIA_PROVEEDORValue: String; virtual;
+ function GetOldREFERENCIA_PROVEEDORIsNull: Boolean; virtual;
+ procedure SetREFERENCIA_PROVEEDORValue(const aValue: String); virtual;
+ procedure SetREFERENCIA_PROVEEDORIsNull(const aValue: Boolean); virtual;
+
+ { Properties }
+ property ID : Integer read GetIDValue write SetIDValue;
+ property IDIsNull : Boolean read GetIDIsNull write SetIDIsNull;
+ property OldID : Integer read GetOldIDValue;
+ property OldIDIsNull : Boolean read GetOldIDIsNull;
+ property ID_PEDIDO : Integer read GetID_PEDIDOValue write SetID_PEDIDOValue;
+ property ID_PEDIDOIsNull : Boolean read GetID_PEDIDOIsNull write SetID_PEDIDOIsNull;
+ property OldID_PEDIDO : Integer read GetOldID_PEDIDOValue;
+ property OldID_PEDIDOIsNull : Boolean read GetOldID_PEDIDOIsNull;
+ property POSICION : Integer read GetPOSICIONValue write SetPOSICIONValue;
+ property POSICIONIsNull : Boolean read GetPOSICIONIsNull write SetPOSICIONIsNull;
+ property OldPOSICION : Integer read GetOldPOSICIONValue;
+ property OldPOSICIONIsNull : Boolean read GetOldPOSICIONIsNull;
+ property TIPO_DETALLE : String read GetTIPO_DETALLEValue write SetTIPO_DETALLEValue;
+ property TIPO_DETALLEIsNull : Boolean read GetTIPO_DETALLEIsNull write SetTIPO_DETALLEIsNull;
+ property OldTIPO_DETALLE : String read GetOldTIPO_DETALLEValue;
+ property OldTIPO_DETALLEIsNull : Boolean read GetOldTIPO_DETALLEIsNull;
+ property CONCEPTO : String read GetCONCEPTOValue write SetCONCEPTOValue;
+ property CONCEPTOIsNull : Boolean read GetCONCEPTOIsNull write SetCONCEPTOIsNull;
+ property OldCONCEPTO : String read GetOldCONCEPTOValue;
+ property OldCONCEPTOIsNull : Boolean read GetOldCONCEPTOIsNull;
+ property CANTIDAD : Currency read GetCANTIDADValue write SetCANTIDADValue;
+ property CANTIDADIsNull : Boolean read GetCANTIDADIsNull write SetCANTIDADIsNull;
+ property OldCANTIDAD : Currency read GetOldCANTIDADValue;
+ property OldCANTIDADIsNull : Boolean read GetOldCANTIDADIsNull;
+ property IMPORTE_UNIDAD : Currency read GetIMPORTE_UNIDADValue write SetIMPORTE_UNIDADValue;
+ property IMPORTE_UNIDADIsNull : Boolean read GetIMPORTE_UNIDADIsNull write SetIMPORTE_UNIDADIsNull;
+ property OldIMPORTE_UNIDAD : Currency read GetOldIMPORTE_UNIDADValue;
+ property OldIMPORTE_UNIDADIsNull : Boolean read GetOldIMPORTE_UNIDADIsNull;
+ property IMPORTE_TOTAL : Currency read GetIMPORTE_TOTALValue write SetIMPORTE_TOTALValue;
+ property IMPORTE_TOTALIsNull : Boolean read GetIMPORTE_TOTALIsNull write SetIMPORTE_TOTALIsNull;
+ property OldIMPORTE_TOTAL : Currency read GetOldIMPORTE_TOTALValue;
+ property OldIMPORTE_TOTALIsNull : Boolean read GetOldIMPORTE_TOTALIsNull;
+ property VISIBLE : Integer read GetVISIBLEValue write SetVISIBLEValue;
+ property VISIBLEIsNull : Boolean read GetVISIBLEIsNull write SetVISIBLEIsNull;
+ property OldVISIBLE : Integer read GetOldVISIBLEValue;
+ property OldVISIBLEIsNull : Boolean read GetOldVISIBLEIsNull;
+ property ID_ARTICULO : Integer read GetID_ARTICULOValue write SetID_ARTICULOValue;
+ property ID_ARTICULOIsNull : Boolean read GetID_ARTICULOIsNull write SetID_ARTICULOIsNull;
+ property OldID_ARTICULO : Integer read GetOldID_ARTICULOValue;
+ property OldID_ARTICULOIsNull : Boolean read GetOldID_ARTICULOIsNull;
+ property DESCUENTO : Float read GetDESCUENTOValue write SetDESCUENTOValue;
+ property DESCUENTOIsNull : Boolean read GetDESCUENTOIsNull write SetDESCUENTOIsNull;
+ property OldDESCUENTO : Float read GetOldDESCUENTOValue;
+ property OldDESCUENTOIsNull : Boolean read GetOldDESCUENTOIsNull;
+ property IMPORTE_PORTE : Currency read GetIMPORTE_PORTEValue write SetIMPORTE_PORTEValue;
+ property IMPORTE_PORTEIsNull : Boolean read GetIMPORTE_PORTEIsNull write SetIMPORTE_PORTEIsNull;
+ property OldIMPORTE_PORTE : Currency read GetOldIMPORTE_PORTEValue;
+ property OldIMPORTE_PORTEIsNull : Boolean read GetOldIMPORTE_PORTEIsNull;
+ property VALORADO : SmallInt read GetVALORADOValue write SetVALORADOValue;
+ property VALORADOIsNull : Boolean read GetVALORADOIsNull write SetVALORADOIsNull;
+ property OldVALORADO : SmallInt read GetOldVALORADOValue;
+ property OldVALORADOIsNull : Boolean read GetOldVALORADOIsNull;
+ property REFERENCIA : String read GetREFERENCIAValue write SetREFERENCIAValue;
+ property REFERENCIAIsNull : Boolean read GetREFERENCIAIsNull write SetREFERENCIAIsNull;
+ property OldREFERENCIA : String read GetOldREFERENCIAValue;
+ property OldREFERENCIAIsNull : Boolean read GetOldREFERENCIAIsNull;
+ property UNIDAD_MEDIDA : String read GetUNIDAD_MEDIDAValue write SetUNIDAD_MEDIDAValue;
+ property UNIDAD_MEDIDAIsNull : Boolean read GetUNIDAD_MEDIDAIsNull write SetUNIDAD_MEDIDAIsNull;
+ property OldUNIDAD_MEDIDA : String read GetOldUNIDAD_MEDIDAValue;
+ property OldUNIDAD_MEDIDAIsNull : Boolean read GetOldUNIDAD_MEDIDAIsNull;
+ property REFERENCIA_PROVEEDOR : String read GetREFERENCIA_PROVEEDORValue write SetREFERENCIA_PROVEEDORValue;
+ property REFERENCIA_PROVEEDORIsNull : Boolean read GetREFERENCIA_PROVEEDORIsNull write SetREFERENCIA_PROVEEDORIsNull;
+ property OldREFERENCIA_PROVEEDOR : String read GetOldREFERENCIA_PROVEEDORValue;
+ property OldREFERENCIA_PROVEEDORIsNull : Boolean read GetOldREFERENCIA_PROVEEDORIsNull;
+
+ public
+ constructor Create(aBusinessProcessor: TDABusinessProcessor); override;
+ destructor Destroy; override;
+
+ end;
+
+ { IPedidosProveedor_Articulos_PendientesDelta }
+ IPedidosProveedor_Articulos_PendientesDelta = interface(IPedidosProveedor_Articulos_Pendientes)
+ ['{3036D002-5B9A-429F-9625-32805B568E2C}']
+ { Property getters and setters }
+ function GetOldID_PEDIDOValue : Integer;
+ function GetOldREFERENCIAValue : String;
+ function GetOldID_ARTICULOValue : Integer;
+ function GetOldCONCEPTOValue : String;
+ function GetOldCANTIDADValue : Currency;
+ function GetOldREFERENCIA_PROVEEDORValue : String;
+
+ { Properties }
+ property OldID_PEDIDO : Integer read GetOldID_PEDIDOValue;
+ property OldREFERENCIA : String read GetOldREFERENCIAValue;
+ property OldID_ARTICULO : Integer read GetOldID_ARTICULOValue;
+ property OldCONCEPTO : String read GetOldCONCEPTOValue;
+ property OldCANTIDAD : Currency read GetOldCANTIDADValue;
+ property OldREFERENCIA_PROVEEDOR : String read GetOldREFERENCIA_PROVEEDORValue;
+ end;
+
+ { TPedidosProveedor_Articulos_PendientesBusinessProcessorRules }
+ TPedidosProveedor_Articulos_PendientesBusinessProcessorRules = class(TDABusinessProcessorRules, IPedidosProveedor_Articulos_Pendientes, IPedidosProveedor_Articulos_PendientesDelta)
+ private
+ protected
+ { Property getters and setters }
+ function GetID_PEDIDOValue: Integer; virtual;
+ function GetID_PEDIDOIsNull: Boolean; virtual;
+ function GetOldID_PEDIDOValue: Integer; virtual;
+ function GetOldID_PEDIDOIsNull: Boolean; virtual;
+ procedure SetID_PEDIDOValue(const aValue: Integer); virtual;
+ procedure SetID_PEDIDOIsNull(const aValue: Boolean); virtual;
+ function GetREFERENCIAValue: String; virtual;
+ function GetREFERENCIAIsNull: Boolean; virtual;
+ function GetOldREFERENCIAValue: String; virtual;
+ function GetOldREFERENCIAIsNull: Boolean; virtual;
+ procedure SetREFERENCIAValue(const aValue: String); virtual;
+ procedure SetREFERENCIAIsNull(const aValue: Boolean); virtual;
+ function GetID_ARTICULOValue: Integer; virtual;
+ function GetID_ARTICULOIsNull: Boolean; virtual;
+ function GetOldID_ARTICULOValue: Integer; virtual;
+ function GetOldID_ARTICULOIsNull: Boolean; virtual;
+ procedure SetID_ARTICULOValue(const aValue: Integer); virtual;
+ procedure SetID_ARTICULOIsNull(const aValue: Boolean); virtual;
+ function GetCONCEPTOValue: String; virtual;
+ function GetCONCEPTOIsNull: Boolean; virtual;
+ function GetOldCONCEPTOValue: String; virtual;
+ function GetOldCONCEPTOIsNull: Boolean; virtual;
+ procedure SetCONCEPTOValue(const aValue: String); virtual;
+ procedure SetCONCEPTOIsNull(const aValue: Boolean); virtual;
+ function GetCANTIDADValue: Currency; virtual;
+ function GetCANTIDADIsNull: Boolean; virtual;
+ function GetOldCANTIDADValue: Currency; virtual;
+ function GetOldCANTIDADIsNull: Boolean; virtual;
+ procedure SetCANTIDADValue(const aValue: Currency); virtual;
+ procedure SetCANTIDADIsNull(const aValue: Boolean); virtual;
+ function GetREFERENCIA_PROVEEDORValue: String; virtual;
+ function GetREFERENCIA_PROVEEDORIsNull: Boolean; virtual;
+ function GetOldREFERENCIA_PROVEEDORValue: String; virtual;
+ function GetOldREFERENCIA_PROVEEDORIsNull: Boolean; virtual;
+ procedure SetREFERENCIA_PROVEEDORValue(const aValue: String); virtual;
+ procedure SetREFERENCIA_PROVEEDORIsNull(const aValue: Boolean); virtual;
+
+ { Properties }
+ property ID_PEDIDO : Integer read GetID_PEDIDOValue write SetID_PEDIDOValue;
+ property ID_PEDIDOIsNull : Boolean read GetID_PEDIDOIsNull write SetID_PEDIDOIsNull;
+ property OldID_PEDIDO : Integer read GetOldID_PEDIDOValue;
+ property OldID_PEDIDOIsNull : Boolean read GetOldID_PEDIDOIsNull;
+ property REFERENCIA : String read GetREFERENCIAValue write SetREFERENCIAValue;
+ property REFERENCIAIsNull : Boolean read GetREFERENCIAIsNull write SetREFERENCIAIsNull;
+ property OldREFERENCIA : String read GetOldREFERENCIAValue;
+ property OldREFERENCIAIsNull : Boolean read GetOldREFERENCIAIsNull;
+ property ID_ARTICULO : Integer read GetID_ARTICULOValue write SetID_ARTICULOValue;
+ property ID_ARTICULOIsNull : Boolean read GetID_ARTICULOIsNull write SetID_ARTICULOIsNull;
+ property OldID_ARTICULO : Integer read GetOldID_ARTICULOValue;
+ property OldID_ARTICULOIsNull : Boolean read GetOldID_ARTICULOIsNull;
+ property CONCEPTO : String read GetCONCEPTOValue write SetCONCEPTOValue;
+ property CONCEPTOIsNull : Boolean read GetCONCEPTOIsNull write SetCONCEPTOIsNull;
+ property OldCONCEPTO : String read GetOldCONCEPTOValue;
+ property OldCONCEPTOIsNull : Boolean read GetOldCONCEPTOIsNull;
+ property CANTIDAD : Currency read GetCANTIDADValue write SetCANTIDADValue;
+ property CANTIDADIsNull : Boolean read GetCANTIDADIsNull write SetCANTIDADIsNull;
+ property OldCANTIDAD : Currency read GetOldCANTIDADValue;
+ property OldCANTIDADIsNull : Boolean read GetOldCANTIDADIsNull;
+ property REFERENCIA_PROVEEDOR : String read GetREFERENCIA_PROVEEDORValue write SetREFERENCIA_PROVEEDORValue;
+ property REFERENCIA_PROVEEDORIsNull : Boolean read GetREFERENCIA_PROVEEDORIsNull write SetREFERENCIA_PROVEEDORIsNull;
+ property OldREFERENCIA_PROVEEDOR : String read GetOldREFERENCIA_PROVEEDORValue;
+ property OldREFERENCIA_PROVEEDORIsNull : Boolean read GetOldREFERENCIA_PROVEEDORIsNull;
+
+ public
+ constructor Create(aBusinessProcessor: TDABusinessProcessor); override;
+ destructor Destroy; override;
+
+ end;
+
+ { IPedidosProveedorConArticuloBuscadoDelta }
+ IPedidosProveedorConArticuloBuscadoDelta = interface(IPedidosProveedorConArticuloBuscado)
+ ['{BAEAA1A6-DF2A-47D8-9E73-1305E533DEEB}']
+ { Property getters and setters }
+ function GetOldCONCEPTOValue : String;
+ function GetOldIDValue : Integer;
+ function GetOldID_EMPRESAValue : Integer;
+ function GetOldID_PROVEEDORValue : Integer;
+ function GetOldNOMBREValue : String;
+ function GetOldNOMBRE_COMERCIALValue : String;
+ function GetOldREFERENCIAValue : String;
+ function GetOldSITUACIONValue : String;
+ function GetOldFECHA_ENVIOValue : DateTime;
+ function GetOldFECHA_PEDIDOValue : DateTime;
+ function GetOldFECHA_CONFIRMACIONValue : DateTime;
+ function GetOldFECHA_ENTREGAValue : DateTime;
+ function GetOldID_ALMACENValue : Integer;
+ function GetOldNOMBRE_ALMACENValue : String;
+ function GetOldOBSERVACIONESValue : IROStrings;
+ function GetOldIMPORTE_TOTALValue : Currency;
+ function GetOldINCIDENCIASValue : IROStrings;
+ function GetOldINCIDENCIAS_ACTIVASValue : Integer;
+ function GetOldCALLEValue : String;
+ function GetOldPOBLACIONValue : String;
+ function GetOldPROVINCIAValue : String;
+ function GetOldCODIGO_POSTALValue : String;
+ function GetOldPERSONA_CONTACTOValue : String;
+ function GetOldTELEFONOValue : String;
+ function GetOldFECHA_ALTAValue : DateTime;
+ function GetOldFECHA_MODIFICACIONValue : DateTime;
+ function GetOldUSUARIOValue : String;
+ function GetOldID_CONTRATO_CLIENTEValue : Integer;
+ function GetOldREF_CON_CLIENTEValue : String;
+ function GetOldNOMBRE_CLIENTEValue : String;
+ function GetOldIMPORTE_NETOValue : Currency;
+ function GetOldIMPORTE_PORTEValue : Currency;
+ function GetOldDESCUENTOValue : Float;
+ function GetOldIMPORTE_DESCUENTOValue : Currency;
+ function GetOldBASE_IMPONIBLEValue : Currency;
+ function GetOldIVAValue : Float;
+ function GetOldIMPORTE_IVAValue : Currency;
+ function GetOldID_FORMA_PAGOValue : Integer;
+ function GetOldID_TIENDAValue : Integer;
+ function GetOldID_VENDEDORValue : Integer;
+ function GetOldVENDEDORValue : String;
+ function GetOldREF_VENDEDORValue : String;
+ function GetOldID_DIRECCIONValue : Integer;
+ function GetOldID_TIPO_IVAValue : Integer;
+
+ { Properties }
+ property OldCONCEPTO : String read GetOldCONCEPTOValue;
+ property OldID : Integer read GetOldIDValue;
+ property OldID_EMPRESA : Integer read GetOldID_EMPRESAValue;
+ property OldID_PROVEEDOR : Integer read GetOldID_PROVEEDORValue;
+ property OldNOMBRE : String read GetOldNOMBREValue;
+ property OldNOMBRE_COMERCIAL : String read GetOldNOMBRE_COMERCIALValue;
+ property OldREFERENCIA : String read GetOldREFERENCIAValue;
+ property OldSITUACION : String read GetOldSITUACIONValue;
+ property OldFECHA_ENVIO : DateTime read GetOldFECHA_ENVIOValue;
+ property OldFECHA_PEDIDO : DateTime read GetOldFECHA_PEDIDOValue;
+ property OldFECHA_CONFIRMACION : DateTime read GetOldFECHA_CONFIRMACIONValue;
+ property OldFECHA_ENTREGA : DateTime read GetOldFECHA_ENTREGAValue;
+ property OldID_ALMACEN : Integer read GetOldID_ALMACENValue;
+ property OldNOMBRE_ALMACEN : String read GetOldNOMBRE_ALMACENValue;
+ property OldOBSERVACIONES : IROStrings read GetOldOBSERVACIONESValue;
+ property OldIMPORTE_TOTAL : Currency read GetOldIMPORTE_TOTALValue;
+ property OldINCIDENCIAS : IROStrings read GetOldINCIDENCIASValue;
+ property OldINCIDENCIAS_ACTIVAS : Integer read GetOldINCIDENCIAS_ACTIVASValue;
+ property OldCALLE : String read GetOldCALLEValue;
+ property OldPOBLACION : String read GetOldPOBLACIONValue;
+ property OldPROVINCIA : String read GetOldPROVINCIAValue;
+ property OldCODIGO_POSTAL : String read GetOldCODIGO_POSTALValue;
+ property OldPERSONA_CONTACTO : String read GetOldPERSONA_CONTACTOValue;
+ property OldTELEFONO : String read GetOldTELEFONOValue;
+ property OldFECHA_ALTA : DateTime read GetOldFECHA_ALTAValue;
+ property OldFECHA_MODIFICACION : DateTime read GetOldFECHA_MODIFICACIONValue;
+ property OldUSUARIO : String read GetOldUSUARIOValue;
+ property OldID_CONTRATO_CLIENTE : Integer read GetOldID_CONTRATO_CLIENTEValue;
+ property OldREF_CON_CLIENTE : String read GetOldREF_CON_CLIENTEValue;
+ property OldNOMBRE_CLIENTE : String read GetOldNOMBRE_CLIENTEValue;
+ property OldIMPORTE_NETO : Currency read GetOldIMPORTE_NETOValue;
+ property OldIMPORTE_PORTE : Currency read GetOldIMPORTE_PORTEValue;
+ property OldDESCUENTO : Float read GetOldDESCUENTOValue;
+ property OldIMPORTE_DESCUENTO : Currency read GetOldIMPORTE_DESCUENTOValue;
+ property OldBASE_IMPONIBLE : Currency read GetOldBASE_IMPONIBLEValue;
+ property OldIVA : Float read GetOldIVAValue;
+ property OldIMPORTE_IVA : Currency read GetOldIMPORTE_IVAValue;
+ property OldID_FORMA_PAGO : Integer read GetOldID_FORMA_PAGOValue;
+ property OldID_TIENDA : Integer read GetOldID_TIENDAValue;
+ property OldID_VENDEDOR : Integer read GetOldID_VENDEDORValue;
+ property OldVENDEDOR : String read GetOldVENDEDORValue;
+ property OldREF_VENDEDOR : String read GetOldREF_VENDEDORValue;
+ property OldID_DIRECCION : Integer read GetOldID_DIRECCIONValue;
+ property OldID_TIPO_IVA : Integer read GetOldID_TIPO_IVAValue;
+ end;
+
+ { TPedidosProveedorConArticuloBuscadoBusinessProcessorRules }
+ TPedidosProveedorConArticuloBuscadoBusinessProcessorRules = class(TDABusinessProcessorRules, IPedidosProveedorConArticuloBuscado, IPedidosProveedorConArticuloBuscadoDelta)
+ private
+ f_OBSERVACIONES: IROStrings;
+ f_INCIDENCIAS: IROStrings;
+ procedure OBSERVACIONES_OnChange(Sender: TObject);
+ procedure INCIDENCIAS_OnChange(Sender: TObject);
+ protected
+ { Property getters and setters }
+ function GetCONCEPTOValue: String; virtual;
+ function GetCONCEPTOIsNull: Boolean; virtual;
+ function GetOldCONCEPTOValue: String; virtual;
+ function GetOldCONCEPTOIsNull: Boolean; virtual;
+ procedure SetCONCEPTOValue(const aValue: String); virtual;
+ procedure SetCONCEPTOIsNull(const aValue: Boolean); virtual;
+ function GetIDValue: Integer; virtual;
+ function GetIDIsNull: Boolean; virtual;
+ function GetOldIDValue: Integer; virtual;
+ function GetOldIDIsNull: Boolean; virtual;
+ procedure SetIDValue(const aValue: Integer); virtual;
+ procedure SetIDIsNull(const aValue: Boolean); virtual;
+ function GetID_EMPRESAValue: Integer; virtual;
+ function GetID_EMPRESAIsNull: Boolean; virtual;
+ function GetOldID_EMPRESAValue: Integer; virtual;
+ function GetOldID_EMPRESAIsNull: Boolean; virtual;
+ procedure SetID_EMPRESAValue(const aValue: Integer); virtual;
+ procedure SetID_EMPRESAIsNull(const aValue: Boolean); virtual;
+ function GetID_PROVEEDORValue: Integer; virtual;
+ function GetID_PROVEEDORIsNull: Boolean; virtual;
+ function GetOldID_PROVEEDORValue: Integer; virtual;
+ function GetOldID_PROVEEDORIsNull: Boolean; virtual;
+ procedure SetID_PROVEEDORValue(const aValue: Integer); virtual;
+ procedure SetID_PROVEEDORIsNull(const aValue: Boolean); virtual;
+ function GetNOMBREValue: String; virtual;
+ function GetNOMBREIsNull: Boolean; virtual;
+ function GetOldNOMBREValue: String; virtual;
+ function GetOldNOMBREIsNull: Boolean; virtual;
+ procedure SetNOMBREValue(const aValue: String); virtual;
+ procedure SetNOMBREIsNull(const aValue: Boolean); virtual;
+ function GetNOMBRE_COMERCIALValue: String; virtual;
+ function GetNOMBRE_COMERCIALIsNull: Boolean; virtual;
+ function GetOldNOMBRE_COMERCIALValue: String; virtual;
+ function GetOldNOMBRE_COMERCIALIsNull: Boolean; virtual;
+ procedure SetNOMBRE_COMERCIALValue(const aValue: String); virtual;
+ procedure SetNOMBRE_COMERCIALIsNull(const aValue: Boolean); virtual;
+ function GetREFERENCIAValue: String; virtual;
+ function GetREFERENCIAIsNull: Boolean; virtual;
+ function GetOldREFERENCIAValue: String; virtual;
+ function GetOldREFERENCIAIsNull: Boolean; virtual;
+ procedure SetREFERENCIAValue(const aValue: String); virtual;
+ procedure SetREFERENCIAIsNull(const aValue: Boolean); virtual;
+ function GetSITUACIONValue: String; virtual;
+ function GetSITUACIONIsNull: Boolean; virtual;
+ function GetOldSITUACIONValue: String; virtual;
+ function GetOldSITUACIONIsNull: Boolean; virtual;
+ procedure SetSITUACIONValue(const aValue: String); virtual;
+ procedure SetSITUACIONIsNull(const aValue: Boolean); virtual;
+ function GetFECHA_ENVIOValue: DateTime; virtual;
+ function GetFECHA_ENVIOIsNull: Boolean; virtual;
+ function GetOldFECHA_ENVIOValue: DateTime; virtual;
+ function GetOldFECHA_ENVIOIsNull: Boolean; virtual;
+ procedure SetFECHA_ENVIOValue(const aValue: DateTime); virtual;
+ procedure SetFECHA_ENVIOIsNull(const aValue: Boolean); virtual;
+ function GetFECHA_PEDIDOValue: DateTime; virtual;
+ function GetFECHA_PEDIDOIsNull: Boolean; virtual;
+ function GetOldFECHA_PEDIDOValue: DateTime; virtual;
+ function GetOldFECHA_PEDIDOIsNull: Boolean; virtual;
+ procedure SetFECHA_PEDIDOValue(const aValue: DateTime); virtual;
+ procedure SetFECHA_PEDIDOIsNull(const aValue: Boolean); virtual;
+ function GetFECHA_CONFIRMACIONValue: DateTime; virtual;
+ function GetFECHA_CONFIRMACIONIsNull: Boolean; virtual;
+ function GetOldFECHA_CONFIRMACIONValue: DateTime; virtual;
+ function GetOldFECHA_CONFIRMACIONIsNull: Boolean; virtual;
+ procedure SetFECHA_CONFIRMACIONValue(const aValue: DateTime); virtual;
+ procedure SetFECHA_CONFIRMACIONIsNull(const aValue: Boolean); virtual;
+ function GetFECHA_ENTREGAValue: DateTime; virtual;
+ function GetFECHA_ENTREGAIsNull: Boolean; virtual;
+ function GetOldFECHA_ENTREGAValue: DateTime; virtual;
+ function GetOldFECHA_ENTREGAIsNull: Boolean; virtual;
+ procedure SetFECHA_ENTREGAValue(const aValue: DateTime); virtual;
+ procedure SetFECHA_ENTREGAIsNull(const aValue: Boolean); virtual;
+ function GetID_ALMACENValue: Integer; virtual;
+ function GetID_ALMACENIsNull: Boolean; virtual;
+ function GetOldID_ALMACENValue: Integer; virtual;
+ function GetOldID_ALMACENIsNull: Boolean; virtual;
+ procedure SetID_ALMACENValue(const aValue: Integer); virtual;
+ procedure SetID_ALMACENIsNull(const aValue: Boolean); virtual;
+ function GetNOMBRE_ALMACENValue: String; virtual;
+ function GetNOMBRE_ALMACENIsNull: Boolean; virtual;
+ function GetOldNOMBRE_ALMACENValue: String; virtual;
+ function GetOldNOMBRE_ALMACENIsNull: Boolean; virtual;
+ procedure SetNOMBRE_ALMACENValue(const aValue: String); virtual;
+ procedure SetNOMBRE_ALMACENIsNull(const aValue: Boolean); virtual;
+ function GetOBSERVACIONESValue: IROStrings; virtual;
+ function GetOBSERVACIONESIsNull: Boolean; virtual;
+ function GetOldOBSERVACIONESValue: IROStrings; virtual;
+ function GetOldOBSERVACIONESIsNull: Boolean; virtual;
+ procedure SetOBSERVACIONESIsNull(const aValue: Boolean); virtual;
+ function GetIMPORTE_TOTALValue: Currency; virtual;
+ function GetIMPORTE_TOTALIsNull: Boolean; virtual;
+ function GetOldIMPORTE_TOTALValue: Currency; virtual;
+ function GetOldIMPORTE_TOTALIsNull: Boolean; virtual;
+ procedure SetIMPORTE_TOTALValue(const aValue: Currency); virtual;
+ procedure SetIMPORTE_TOTALIsNull(const aValue: Boolean); virtual;
+ function GetINCIDENCIASValue: IROStrings; virtual;
+ function GetINCIDENCIASIsNull: Boolean; virtual;
+ function GetOldINCIDENCIASValue: IROStrings; virtual;
+ function GetOldINCIDENCIASIsNull: Boolean; virtual;
+ procedure SetINCIDENCIASIsNull(const aValue: Boolean); virtual;
+ function GetINCIDENCIAS_ACTIVASValue: Integer; virtual;
+ function GetINCIDENCIAS_ACTIVASIsNull: Boolean; virtual;
+ function GetOldINCIDENCIAS_ACTIVASValue: Integer; virtual;
+ function GetOldINCIDENCIAS_ACTIVASIsNull: Boolean; virtual;
+ procedure SetINCIDENCIAS_ACTIVASValue(const aValue: Integer); virtual;
+ procedure SetINCIDENCIAS_ACTIVASIsNull(const aValue: Boolean); virtual;
+ function GetCALLEValue: String; virtual;
+ function GetCALLEIsNull: Boolean; virtual;
+ function GetOldCALLEValue: String; virtual;
+ function GetOldCALLEIsNull: Boolean; virtual;
+ procedure SetCALLEValue(const aValue: String); virtual;
+ procedure SetCALLEIsNull(const aValue: Boolean); virtual;
+ function GetPOBLACIONValue: String; virtual;
+ function GetPOBLACIONIsNull: Boolean; virtual;
+ function GetOldPOBLACIONValue: String; virtual;
+ function GetOldPOBLACIONIsNull: Boolean; virtual;
+ procedure SetPOBLACIONValue(const aValue: String); virtual;
+ procedure SetPOBLACIONIsNull(const aValue: Boolean); virtual;
+ function GetPROVINCIAValue: String; virtual;
+ function GetPROVINCIAIsNull: Boolean; virtual;
+ function GetOldPROVINCIAValue: String; virtual;
+ function GetOldPROVINCIAIsNull: Boolean; virtual;
+ procedure SetPROVINCIAValue(const aValue: String); virtual;
+ procedure SetPROVINCIAIsNull(const aValue: Boolean); virtual;
+ function GetCODIGO_POSTALValue: String; virtual;
+ function GetCODIGO_POSTALIsNull: Boolean; virtual;
+ function GetOldCODIGO_POSTALValue: String; virtual;
+ function GetOldCODIGO_POSTALIsNull: Boolean; virtual;
+ procedure SetCODIGO_POSTALValue(const aValue: String); virtual;
+ procedure SetCODIGO_POSTALIsNull(const aValue: Boolean); virtual;
+ function GetPERSONA_CONTACTOValue: String; virtual;
+ function GetPERSONA_CONTACTOIsNull: Boolean; virtual;
+ function GetOldPERSONA_CONTACTOValue: String; virtual;
+ function GetOldPERSONA_CONTACTOIsNull: Boolean; virtual;
+ procedure SetPERSONA_CONTACTOValue(const aValue: String); virtual;
+ procedure SetPERSONA_CONTACTOIsNull(const aValue: Boolean); virtual;
+ function GetTELEFONOValue: String; virtual;
+ function GetTELEFONOIsNull: Boolean; virtual;
+ function GetOldTELEFONOValue: String; virtual;
+ function GetOldTELEFONOIsNull: Boolean; virtual;
+ procedure SetTELEFONOValue(const aValue: String); virtual;
+ procedure SetTELEFONOIsNull(const aValue: Boolean); virtual;
+ function GetFECHA_ALTAValue: DateTime; virtual;
+ function GetFECHA_ALTAIsNull: Boolean; virtual;
+ function GetOldFECHA_ALTAValue: DateTime; virtual;
+ function GetOldFECHA_ALTAIsNull: Boolean; virtual;
+ procedure SetFECHA_ALTAValue(const aValue: DateTime); virtual;
+ procedure SetFECHA_ALTAIsNull(const aValue: Boolean); virtual;
+ function GetFECHA_MODIFICACIONValue: DateTime; virtual;
+ function GetFECHA_MODIFICACIONIsNull: Boolean; virtual;
+ function GetOldFECHA_MODIFICACIONValue: DateTime; virtual;
+ function GetOldFECHA_MODIFICACIONIsNull: Boolean; virtual;
+ procedure SetFECHA_MODIFICACIONValue(const aValue: DateTime); virtual;
+ procedure SetFECHA_MODIFICACIONIsNull(const aValue: Boolean); virtual;
+ function GetUSUARIOValue: String; virtual;
+ function GetUSUARIOIsNull: Boolean; virtual;
+ function GetOldUSUARIOValue: String; virtual;
+ function GetOldUSUARIOIsNull: Boolean; virtual;
+ procedure SetUSUARIOValue(const aValue: String); virtual;
+ procedure SetUSUARIOIsNull(const aValue: Boolean); virtual;
+ function GetID_CONTRATO_CLIENTEValue: Integer; virtual;
+ function GetID_CONTRATO_CLIENTEIsNull: Boolean; virtual;
+ function GetOldID_CONTRATO_CLIENTEValue: Integer; virtual;
+ function GetOldID_CONTRATO_CLIENTEIsNull: Boolean; virtual;
+ procedure SetID_CONTRATO_CLIENTEValue(const aValue: Integer); virtual;
+ procedure SetID_CONTRATO_CLIENTEIsNull(const aValue: Boolean); virtual;
+ function GetREF_CON_CLIENTEValue: String; virtual;
+ function GetREF_CON_CLIENTEIsNull: Boolean; virtual;
+ function GetOldREF_CON_CLIENTEValue: String; virtual;
+ function GetOldREF_CON_CLIENTEIsNull: Boolean; virtual;
+ procedure SetREF_CON_CLIENTEValue(const aValue: String); virtual;
+ procedure SetREF_CON_CLIENTEIsNull(const aValue: Boolean); virtual;
+ function GetNOMBRE_CLIENTEValue: String; virtual;
+ function GetNOMBRE_CLIENTEIsNull: Boolean; virtual;
+ function GetOldNOMBRE_CLIENTEValue: String; virtual;
+ function GetOldNOMBRE_CLIENTEIsNull: Boolean; virtual;
+ procedure SetNOMBRE_CLIENTEValue(const aValue: String); virtual;
+ procedure SetNOMBRE_CLIENTEIsNull(const aValue: Boolean); virtual;
+ function GetIMPORTE_NETOValue: Currency; virtual;
+ function GetIMPORTE_NETOIsNull: Boolean; virtual;
+ function GetOldIMPORTE_NETOValue: Currency; virtual;
+ function GetOldIMPORTE_NETOIsNull: Boolean; virtual;
+ procedure SetIMPORTE_NETOValue(const aValue: Currency); virtual;
+ procedure SetIMPORTE_NETOIsNull(const aValue: Boolean); virtual;
+ function GetIMPORTE_PORTEValue: Currency; virtual;
+ function GetIMPORTE_PORTEIsNull: Boolean; virtual;
+ function GetOldIMPORTE_PORTEValue: Currency; virtual;
+ function GetOldIMPORTE_PORTEIsNull: Boolean; virtual;
+ procedure SetIMPORTE_PORTEValue(const aValue: Currency); virtual;
+ procedure SetIMPORTE_PORTEIsNull(const aValue: Boolean); virtual;
+ function GetDESCUENTOValue: Float; virtual;
+ function GetDESCUENTOIsNull: Boolean; virtual;
+ function GetOldDESCUENTOValue: Float; virtual;
+ function GetOldDESCUENTOIsNull: Boolean; virtual;
+ procedure SetDESCUENTOValue(const aValue: Float); virtual;
+ procedure SetDESCUENTOIsNull(const aValue: Boolean); virtual;
+ function GetIMPORTE_DESCUENTOValue: Currency; virtual;
+ function GetIMPORTE_DESCUENTOIsNull: Boolean; virtual;
+ function GetOldIMPORTE_DESCUENTOValue: Currency; virtual;
+ function GetOldIMPORTE_DESCUENTOIsNull: Boolean; virtual;
+ procedure SetIMPORTE_DESCUENTOValue(const aValue: Currency); virtual;
+ procedure SetIMPORTE_DESCUENTOIsNull(const aValue: Boolean); virtual;
+ function GetBASE_IMPONIBLEValue: Currency; virtual;
+ function GetBASE_IMPONIBLEIsNull: Boolean; virtual;
+ function GetOldBASE_IMPONIBLEValue: Currency; virtual;
+ function GetOldBASE_IMPONIBLEIsNull: Boolean; virtual;
+ procedure SetBASE_IMPONIBLEValue(const aValue: Currency); virtual;
+ procedure SetBASE_IMPONIBLEIsNull(const aValue: Boolean); virtual;
+ function GetIVAValue: Float; virtual;
+ function GetIVAIsNull: Boolean; virtual;
+ function GetOldIVAValue: Float; virtual;
+ function GetOldIVAIsNull: Boolean; virtual;
+ procedure SetIVAValue(const aValue: Float); virtual;
+ procedure SetIVAIsNull(const aValue: Boolean); virtual;
+ function GetIMPORTE_IVAValue: Currency; virtual;
+ function GetIMPORTE_IVAIsNull: Boolean; virtual;
+ function GetOldIMPORTE_IVAValue: Currency; virtual;
+ function GetOldIMPORTE_IVAIsNull: Boolean; virtual;
+ procedure SetIMPORTE_IVAValue(const aValue: Currency); virtual;
+ procedure SetIMPORTE_IVAIsNull(const aValue: Boolean); virtual;
+ function GetID_FORMA_PAGOValue: Integer; virtual;
+ function GetID_FORMA_PAGOIsNull: Boolean; virtual;
+ function GetOldID_FORMA_PAGOValue: Integer; virtual;
+ function GetOldID_FORMA_PAGOIsNull: Boolean; virtual;
+ procedure SetID_FORMA_PAGOValue(const aValue: Integer); virtual;
+ procedure SetID_FORMA_PAGOIsNull(const aValue: Boolean); virtual;
+ function GetID_TIENDAValue: Integer; virtual;
+ function GetID_TIENDAIsNull: Boolean; virtual;
+ function GetOldID_TIENDAValue: Integer; virtual;
+ function GetOldID_TIENDAIsNull: Boolean; virtual;
+ procedure SetID_TIENDAValue(const aValue: Integer); virtual;
+ procedure SetID_TIENDAIsNull(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;
+ function GetVENDEDORValue: String; virtual;
+ function GetVENDEDORIsNull: Boolean; virtual;
+ function GetOldVENDEDORValue: String; virtual;
+ function GetOldVENDEDORIsNull: Boolean; virtual;
+ procedure SetVENDEDORValue(const aValue: String); virtual;
+ procedure SetVENDEDORIsNull(const aValue: Boolean); virtual;
+ function GetREF_VENDEDORValue: String; virtual;
+ function GetREF_VENDEDORIsNull: Boolean; virtual;
+ function GetOldREF_VENDEDORValue: String; virtual;
+ function GetOldREF_VENDEDORIsNull: Boolean; virtual;
+ procedure SetREF_VENDEDORValue(const aValue: String); virtual;
+ procedure SetREF_VENDEDORIsNull(const aValue: Boolean); virtual;
+ function GetID_DIRECCIONValue: Integer; virtual;
+ function GetID_DIRECCIONIsNull: Boolean; virtual;
+ function GetOldID_DIRECCIONValue: Integer; virtual;
+ function GetOldID_DIRECCIONIsNull: Boolean; virtual;
+ procedure SetID_DIRECCIONValue(const aValue: Integer); virtual;
+ procedure SetID_DIRECCIONIsNull(const aValue: Boolean); virtual;
+ function GetID_TIPO_IVAValue: Integer; virtual;
+ function GetID_TIPO_IVAIsNull: Boolean; virtual;
+ function GetOldID_TIPO_IVAValue: Integer; virtual;
+ function GetOldID_TIPO_IVAIsNull: Boolean; virtual;
+ procedure SetID_TIPO_IVAValue(const aValue: Integer); virtual;
+ procedure SetID_TIPO_IVAIsNull(const aValue: Boolean); virtual;
+
+ { Properties }
+ property CONCEPTO : String read GetCONCEPTOValue write SetCONCEPTOValue;
+ property CONCEPTOIsNull : Boolean read GetCONCEPTOIsNull write SetCONCEPTOIsNull;
+ property OldCONCEPTO : String read GetOldCONCEPTOValue;
+ property OldCONCEPTOIsNull : Boolean read GetOldCONCEPTOIsNull;
+ property ID : Integer read GetIDValue write SetIDValue;
+ property IDIsNull : Boolean read GetIDIsNull write SetIDIsNull;
+ property OldID : Integer read GetOldIDValue;
+ property OldIDIsNull : Boolean read GetOldIDIsNull;
+ property ID_EMPRESA : Integer read GetID_EMPRESAValue write SetID_EMPRESAValue;
+ property ID_EMPRESAIsNull : Boolean read GetID_EMPRESAIsNull write SetID_EMPRESAIsNull;
+ property OldID_EMPRESA : Integer read GetOldID_EMPRESAValue;
+ property OldID_EMPRESAIsNull : Boolean read GetOldID_EMPRESAIsNull;
+ property ID_PROVEEDOR : Integer read GetID_PROVEEDORValue write SetID_PROVEEDORValue;
+ property ID_PROVEEDORIsNull : Boolean read GetID_PROVEEDORIsNull write SetID_PROVEEDORIsNull;
+ property OldID_PROVEEDOR : Integer read GetOldID_PROVEEDORValue;
+ property OldID_PROVEEDORIsNull : Boolean read GetOldID_PROVEEDORIsNull;
+ property NOMBRE : String read GetNOMBREValue write SetNOMBREValue;
+ property NOMBREIsNull : Boolean read GetNOMBREIsNull write SetNOMBREIsNull;
+ property OldNOMBRE : String read GetOldNOMBREValue;
+ property OldNOMBREIsNull : Boolean read GetOldNOMBREIsNull;
+ property NOMBRE_COMERCIAL : String read GetNOMBRE_COMERCIALValue write SetNOMBRE_COMERCIALValue;
+ property NOMBRE_COMERCIALIsNull : Boolean read GetNOMBRE_COMERCIALIsNull write SetNOMBRE_COMERCIALIsNull;
+ property OldNOMBRE_COMERCIAL : String read GetOldNOMBRE_COMERCIALValue;
+ property OldNOMBRE_COMERCIALIsNull : Boolean read GetOldNOMBRE_COMERCIALIsNull;
+ property REFERENCIA : String read GetREFERENCIAValue write SetREFERENCIAValue;
+ property REFERENCIAIsNull : Boolean read GetREFERENCIAIsNull write SetREFERENCIAIsNull;
+ property OldREFERENCIA : String read GetOldREFERENCIAValue;
+ property OldREFERENCIAIsNull : Boolean read GetOldREFERENCIAIsNull;
+ property SITUACION : String read GetSITUACIONValue write SetSITUACIONValue;
+ property SITUACIONIsNull : Boolean read GetSITUACIONIsNull write SetSITUACIONIsNull;
+ property OldSITUACION : String read GetOldSITUACIONValue;
+ property OldSITUACIONIsNull : Boolean read GetOldSITUACIONIsNull;
+ property FECHA_ENVIO : DateTime read GetFECHA_ENVIOValue write SetFECHA_ENVIOValue;
+ property FECHA_ENVIOIsNull : Boolean read GetFECHA_ENVIOIsNull write SetFECHA_ENVIOIsNull;
+ property OldFECHA_ENVIO : DateTime read GetOldFECHA_ENVIOValue;
+ property OldFECHA_ENVIOIsNull : Boolean read GetOldFECHA_ENVIOIsNull;
+ property FECHA_PEDIDO : DateTime read GetFECHA_PEDIDOValue write SetFECHA_PEDIDOValue;
+ property FECHA_PEDIDOIsNull : Boolean read GetFECHA_PEDIDOIsNull write SetFECHA_PEDIDOIsNull;
+ property OldFECHA_PEDIDO : DateTime read GetOldFECHA_PEDIDOValue;
+ property OldFECHA_PEDIDOIsNull : Boolean read GetOldFECHA_PEDIDOIsNull;
+ property FECHA_CONFIRMACION : DateTime read GetFECHA_CONFIRMACIONValue write SetFECHA_CONFIRMACIONValue;
+ property FECHA_CONFIRMACIONIsNull : Boolean read GetFECHA_CONFIRMACIONIsNull write SetFECHA_CONFIRMACIONIsNull;
+ property OldFECHA_CONFIRMACION : DateTime read GetOldFECHA_CONFIRMACIONValue;
+ property OldFECHA_CONFIRMACIONIsNull : Boolean read GetOldFECHA_CONFIRMACIONIsNull;
+ property FECHA_ENTREGA : DateTime read GetFECHA_ENTREGAValue write SetFECHA_ENTREGAValue;
+ property FECHA_ENTREGAIsNull : Boolean read GetFECHA_ENTREGAIsNull write SetFECHA_ENTREGAIsNull;
+ property OldFECHA_ENTREGA : DateTime read GetOldFECHA_ENTREGAValue;
+ property OldFECHA_ENTREGAIsNull : Boolean read GetOldFECHA_ENTREGAIsNull;
+ property ID_ALMACEN : Integer read GetID_ALMACENValue write SetID_ALMACENValue;
+ property ID_ALMACENIsNull : Boolean read GetID_ALMACENIsNull write SetID_ALMACENIsNull;
+ property OldID_ALMACEN : Integer read GetOldID_ALMACENValue;
+ property OldID_ALMACENIsNull : Boolean read GetOldID_ALMACENIsNull;
+ property NOMBRE_ALMACEN : String read GetNOMBRE_ALMACENValue write SetNOMBRE_ALMACENValue;
+ property NOMBRE_ALMACENIsNull : Boolean read GetNOMBRE_ALMACENIsNull write SetNOMBRE_ALMACENIsNull;
+ property OldNOMBRE_ALMACEN : String read GetOldNOMBRE_ALMACENValue;
+ property OldNOMBRE_ALMACENIsNull : Boolean read GetOldNOMBRE_ALMACENIsNull;
+ property OBSERVACIONES : IROStrings read GetOBSERVACIONESValue;
+ property OBSERVACIONESIsNull : Boolean read GetOBSERVACIONESIsNull write SetOBSERVACIONESIsNull;
+ property OldOBSERVACIONES : IROStrings read GetOldOBSERVACIONESValue;
+ property OldOBSERVACIONESIsNull : Boolean read GetOldOBSERVACIONESIsNull;
+ property IMPORTE_TOTAL : Currency read GetIMPORTE_TOTALValue write SetIMPORTE_TOTALValue;
+ property IMPORTE_TOTALIsNull : Boolean read GetIMPORTE_TOTALIsNull write SetIMPORTE_TOTALIsNull;
+ property OldIMPORTE_TOTAL : Currency read GetOldIMPORTE_TOTALValue;
+ property OldIMPORTE_TOTALIsNull : Boolean read GetOldIMPORTE_TOTALIsNull;
+ property INCIDENCIAS : IROStrings read GetINCIDENCIASValue;
+ property INCIDENCIASIsNull : Boolean read GetINCIDENCIASIsNull write SetINCIDENCIASIsNull;
+ property OldINCIDENCIAS : IROStrings read GetOldINCIDENCIASValue;
+ property OldINCIDENCIASIsNull : Boolean read GetOldINCIDENCIASIsNull;
+ property INCIDENCIAS_ACTIVAS : Integer read GetINCIDENCIAS_ACTIVASValue write SetINCIDENCIAS_ACTIVASValue;
+ property INCIDENCIAS_ACTIVASIsNull : Boolean read GetINCIDENCIAS_ACTIVASIsNull write SetINCIDENCIAS_ACTIVASIsNull;
+ property OldINCIDENCIAS_ACTIVAS : Integer read GetOldINCIDENCIAS_ACTIVASValue;
+ property OldINCIDENCIAS_ACTIVASIsNull : Boolean read GetOldINCIDENCIAS_ACTIVASIsNull;
+ property CALLE : String read GetCALLEValue write SetCALLEValue;
+ property CALLEIsNull : Boolean read GetCALLEIsNull write SetCALLEIsNull;
+ property OldCALLE : String read GetOldCALLEValue;
+ property OldCALLEIsNull : Boolean read GetOldCALLEIsNull;
+ property POBLACION : String read GetPOBLACIONValue write SetPOBLACIONValue;
+ property POBLACIONIsNull : Boolean read GetPOBLACIONIsNull write SetPOBLACIONIsNull;
+ property OldPOBLACION : String read GetOldPOBLACIONValue;
+ property OldPOBLACIONIsNull : Boolean read GetOldPOBLACIONIsNull;
+ property PROVINCIA : String read GetPROVINCIAValue write SetPROVINCIAValue;
+ property PROVINCIAIsNull : Boolean read GetPROVINCIAIsNull write SetPROVINCIAIsNull;
+ property OldPROVINCIA : String read GetOldPROVINCIAValue;
+ property OldPROVINCIAIsNull : Boolean read GetOldPROVINCIAIsNull;
+ property CODIGO_POSTAL : String read GetCODIGO_POSTALValue write SetCODIGO_POSTALValue;
+ property CODIGO_POSTALIsNull : Boolean read GetCODIGO_POSTALIsNull write SetCODIGO_POSTALIsNull;
+ property OldCODIGO_POSTAL : String read GetOldCODIGO_POSTALValue;
+ property OldCODIGO_POSTALIsNull : Boolean read GetOldCODIGO_POSTALIsNull;
+ property PERSONA_CONTACTO : String read GetPERSONA_CONTACTOValue write SetPERSONA_CONTACTOValue;
+ property PERSONA_CONTACTOIsNull : Boolean read GetPERSONA_CONTACTOIsNull write SetPERSONA_CONTACTOIsNull;
+ property OldPERSONA_CONTACTO : String read GetOldPERSONA_CONTACTOValue;
+ property OldPERSONA_CONTACTOIsNull : Boolean read GetOldPERSONA_CONTACTOIsNull;
+ property TELEFONO : String read GetTELEFONOValue write SetTELEFONOValue;
+ property TELEFONOIsNull : Boolean read GetTELEFONOIsNull write SetTELEFONOIsNull;
+ property OldTELEFONO : String read GetOldTELEFONOValue;
+ property OldTELEFONOIsNull : Boolean read GetOldTELEFONOIsNull;
+ property FECHA_ALTA : DateTime read GetFECHA_ALTAValue write SetFECHA_ALTAValue;
+ property FECHA_ALTAIsNull : Boolean read GetFECHA_ALTAIsNull write SetFECHA_ALTAIsNull;
+ property OldFECHA_ALTA : DateTime read GetOldFECHA_ALTAValue;
+ property OldFECHA_ALTAIsNull : Boolean read GetOldFECHA_ALTAIsNull;
+ property FECHA_MODIFICACION : DateTime read GetFECHA_MODIFICACIONValue write SetFECHA_MODIFICACIONValue;
+ property FECHA_MODIFICACIONIsNull : Boolean read GetFECHA_MODIFICACIONIsNull write SetFECHA_MODIFICACIONIsNull;
+ property OldFECHA_MODIFICACION : DateTime read GetOldFECHA_MODIFICACIONValue;
+ property OldFECHA_MODIFICACIONIsNull : Boolean read GetOldFECHA_MODIFICACIONIsNull;
+ property USUARIO : String read GetUSUARIOValue write SetUSUARIOValue;
+ property USUARIOIsNull : Boolean read GetUSUARIOIsNull write SetUSUARIOIsNull;
+ property OldUSUARIO : String read GetOldUSUARIOValue;
+ property OldUSUARIOIsNull : Boolean read GetOldUSUARIOIsNull;
+ property ID_CONTRATO_CLIENTE : Integer read GetID_CONTRATO_CLIENTEValue write SetID_CONTRATO_CLIENTEValue;
+ property ID_CONTRATO_CLIENTEIsNull : Boolean read GetID_CONTRATO_CLIENTEIsNull write SetID_CONTRATO_CLIENTEIsNull;
+ property OldID_CONTRATO_CLIENTE : Integer read GetOldID_CONTRATO_CLIENTEValue;
+ property OldID_CONTRATO_CLIENTEIsNull : Boolean read GetOldID_CONTRATO_CLIENTEIsNull;
+ property REF_CON_CLIENTE : String read GetREF_CON_CLIENTEValue write SetREF_CON_CLIENTEValue;
+ property REF_CON_CLIENTEIsNull : Boolean read GetREF_CON_CLIENTEIsNull write SetREF_CON_CLIENTEIsNull;
+ property OldREF_CON_CLIENTE : String read GetOldREF_CON_CLIENTEValue;
+ property OldREF_CON_CLIENTEIsNull : Boolean read GetOldREF_CON_CLIENTEIsNull;
+ property NOMBRE_CLIENTE : String read GetNOMBRE_CLIENTEValue write SetNOMBRE_CLIENTEValue;
+ property NOMBRE_CLIENTEIsNull : Boolean read GetNOMBRE_CLIENTEIsNull write SetNOMBRE_CLIENTEIsNull;
+ property OldNOMBRE_CLIENTE : String read GetOldNOMBRE_CLIENTEValue;
+ property OldNOMBRE_CLIENTEIsNull : Boolean read GetOldNOMBRE_CLIENTEIsNull;
+ property IMPORTE_NETO : Currency read GetIMPORTE_NETOValue write SetIMPORTE_NETOValue;
+ property IMPORTE_NETOIsNull : Boolean read GetIMPORTE_NETOIsNull write SetIMPORTE_NETOIsNull;
+ property OldIMPORTE_NETO : Currency read GetOldIMPORTE_NETOValue;
+ property OldIMPORTE_NETOIsNull : Boolean read GetOldIMPORTE_NETOIsNull;
+ property IMPORTE_PORTE : Currency read GetIMPORTE_PORTEValue write SetIMPORTE_PORTEValue;
+ property IMPORTE_PORTEIsNull : Boolean read GetIMPORTE_PORTEIsNull write SetIMPORTE_PORTEIsNull;
+ property OldIMPORTE_PORTE : Currency read GetOldIMPORTE_PORTEValue;
+ property OldIMPORTE_PORTEIsNull : Boolean read GetOldIMPORTE_PORTEIsNull;
+ property DESCUENTO : Float read GetDESCUENTOValue write SetDESCUENTOValue;
+ property DESCUENTOIsNull : Boolean read GetDESCUENTOIsNull write SetDESCUENTOIsNull;
+ property OldDESCUENTO : Float read GetOldDESCUENTOValue;
+ property OldDESCUENTOIsNull : Boolean read GetOldDESCUENTOIsNull;
+ property IMPORTE_DESCUENTO : Currency read GetIMPORTE_DESCUENTOValue write SetIMPORTE_DESCUENTOValue;
+ property IMPORTE_DESCUENTOIsNull : Boolean read GetIMPORTE_DESCUENTOIsNull write SetIMPORTE_DESCUENTOIsNull;
+ property OldIMPORTE_DESCUENTO : Currency read GetOldIMPORTE_DESCUENTOValue;
+ property OldIMPORTE_DESCUENTOIsNull : Boolean read GetOldIMPORTE_DESCUENTOIsNull;
+ property BASE_IMPONIBLE : Currency read GetBASE_IMPONIBLEValue write SetBASE_IMPONIBLEValue;
+ property BASE_IMPONIBLEIsNull : Boolean read GetBASE_IMPONIBLEIsNull write SetBASE_IMPONIBLEIsNull;
+ property OldBASE_IMPONIBLE : Currency read GetOldBASE_IMPONIBLEValue;
+ property OldBASE_IMPONIBLEIsNull : Boolean read GetOldBASE_IMPONIBLEIsNull;
+ property IVA : Float read GetIVAValue write SetIVAValue;
+ property IVAIsNull : Boolean read GetIVAIsNull write SetIVAIsNull;
+ property OldIVA : Float read GetOldIVAValue;
+ property OldIVAIsNull : Boolean read GetOldIVAIsNull;
+ property IMPORTE_IVA : Currency read GetIMPORTE_IVAValue write SetIMPORTE_IVAValue;
+ property IMPORTE_IVAIsNull : Boolean read GetIMPORTE_IVAIsNull write SetIMPORTE_IVAIsNull;
+ property OldIMPORTE_IVA : Currency read GetOldIMPORTE_IVAValue;
+ property OldIMPORTE_IVAIsNull : Boolean read GetOldIMPORTE_IVAIsNull;
+ property ID_FORMA_PAGO : Integer read GetID_FORMA_PAGOValue write SetID_FORMA_PAGOValue;
+ property ID_FORMA_PAGOIsNull : Boolean read GetID_FORMA_PAGOIsNull write SetID_FORMA_PAGOIsNull;
+ property OldID_FORMA_PAGO : Integer read GetOldID_FORMA_PAGOValue;
+ property OldID_FORMA_PAGOIsNull : Boolean read GetOldID_FORMA_PAGOIsNull;
+ property ID_TIENDA : Integer read GetID_TIENDAValue write SetID_TIENDAValue;
+ property ID_TIENDAIsNull : Boolean read GetID_TIENDAIsNull write SetID_TIENDAIsNull;
+ property OldID_TIENDA : Integer read GetOldID_TIENDAValue;
+ property OldID_TIENDAIsNull : Boolean read GetOldID_TIENDAIsNull;
+ 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;
+ property VENDEDOR : String read GetVENDEDORValue write SetVENDEDORValue;
+ property VENDEDORIsNull : Boolean read GetVENDEDORIsNull write SetVENDEDORIsNull;
+ property OldVENDEDOR : String read GetOldVENDEDORValue;
+ property OldVENDEDORIsNull : Boolean read GetOldVENDEDORIsNull;
+ property REF_VENDEDOR : String read GetREF_VENDEDORValue write SetREF_VENDEDORValue;
+ property REF_VENDEDORIsNull : Boolean read GetREF_VENDEDORIsNull write SetREF_VENDEDORIsNull;
+ property OldREF_VENDEDOR : String read GetOldREF_VENDEDORValue;
+ property OldREF_VENDEDORIsNull : Boolean read GetOldREF_VENDEDORIsNull;
+ property ID_DIRECCION : Integer read GetID_DIRECCIONValue write SetID_DIRECCIONValue;
+ property ID_DIRECCIONIsNull : Boolean read GetID_DIRECCIONIsNull write SetID_DIRECCIONIsNull;
+ property OldID_DIRECCION : Integer read GetOldID_DIRECCIONValue;
+ property OldID_DIRECCIONIsNull : Boolean read GetOldID_DIRECCIONIsNull;
+ property ID_TIPO_IVA : Integer read GetID_TIPO_IVAValue write SetID_TIPO_IVAValue;
+ property ID_TIPO_IVAIsNull : Boolean read GetID_TIPO_IVAIsNull write SetID_TIPO_IVAIsNull;
+ property OldID_TIPO_IVA : Integer read GetOldID_TIPO_IVAValue;
+ property OldID_TIPO_IVAIsNull : Boolean read GetOldID_TIPO_IVAIsNull;
+
+ public
+ constructor Create(aBusinessProcessor: TDABusinessProcessor); override;
+ destructor Destroy; override;
+
+ end;
+
+implementation
+
+uses
+ Variants, uROBinaryHelpers, uDAInterfaces;
+
+{ TListaAnosPedidosBusinessProcessorRules }
+constructor TListaAnosPedidosBusinessProcessorRules.Create(aBusinessProcessor: TDABusinessProcessor);
+begin
+ inherited;
+end;
+
+destructor TListaAnosPedidosBusinessProcessorRules.Destroy;
+begin
+ inherited;
+end;
+
+function TListaAnosPedidosBusinessProcessorRules.GetANOValue: String;
+begin
+ result := BusinessProcessor.CurrentChange.NewValueByName[fld_ListaAnosPedidosANO];
+end;
+
+function TListaAnosPedidosBusinessProcessorRules.GetANOIsNull: Boolean;
+begin
+ result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_ListaAnosPedidosANO]);
+end;
+
+function TListaAnosPedidosBusinessProcessorRules.GetOldANOValue: String;
+begin
+ result := BusinessProcessor.CurrentChange.OldValueByName[fld_ListaAnosPedidosANO];
+end;
+
+function TListaAnosPedidosBusinessProcessorRules.GetOldANOIsNull: Boolean;
+begin
+ result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_ListaAnosPedidosANO]);
+end;
+
+procedure TListaAnosPedidosBusinessProcessorRules.SetANOValue(const aValue: String);
+begin
+ BusinessProcessor.CurrentChange.NewValueByName[fld_ListaAnosPedidosANO] := aValue;
+end;
+
+procedure TListaAnosPedidosBusinessProcessorRules.SetANOIsNull(const aValue: Boolean);
+begin
+ if aValue then
+ BusinessProcessor.CurrentChange.NewValueByName[fld_ListaAnosPedidosANO] := Null;
+end;
+
+
+{ TPedidosProveedorBusinessProcessorRules }
+constructor TPedidosProveedorBusinessProcessorRules.Create(aBusinessProcessor: TDABusinessProcessor);
+var
+ StrList: TStringList;
+begin
+ inherited;
+
+ StrList := TStringList.Create;
+ StrList.OnChange := OBSERVACIONES_OnChange;
+ f_OBSERVACIONES := NewROStrings(StrList,True);
+
+ StrList := TStringList.Create;
+ StrList.OnChange := INCIDENCIAS_OnChange;
+ f_INCIDENCIAS := NewROStrings(StrList,True);
+end;
+
+destructor TPedidosProveedorBusinessProcessorRules.Destroy;
+begin
+ inherited;
+end;
+
+procedure TPedidosProveedorBusinessProcessorRules.OBSERVACIONES_OnChange(Sender: TObject);
+begin
+ BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosProveedorOBSERVACIONES] := TStringList(Sender).Text;
+end;
+
+procedure TPedidosProveedorBusinessProcessorRules.INCIDENCIAS_OnChange(Sender: TObject);
+begin
+ BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosProveedorINCIDENCIAS] := TStringList(Sender).Text;
+end;
+
+function TPedidosProveedorBusinessProcessorRules.GetIDValue: Integer;
+begin
+ result := BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosProveedorID];
+end;
+
+function TPedidosProveedorBusinessProcessorRules.GetIDIsNull: Boolean;
+begin
+ result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosProveedorID]);
+end;
+
+function TPedidosProveedorBusinessProcessorRules.GetOldIDValue: Integer;
+begin
+ result := BusinessProcessor.CurrentChange.OldValueByName[fld_PedidosProveedorID];
+end;
+
+function TPedidosProveedorBusinessProcessorRules.GetOldIDIsNull: Boolean;
+begin
+ result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_PedidosProveedorID]);
+end;
+
+procedure TPedidosProveedorBusinessProcessorRules.SetIDValue(const aValue: Integer);
+begin
+ BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosProveedorID] := aValue;
+end;
+
+procedure TPedidosProveedorBusinessProcessorRules.SetIDIsNull(const aValue: Boolean);
+begin
+ if aValue then
+ BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosProveedorID] := Null;
+end;
+
+function TPedidosProveedorBusinessProcessorRules.GetID_EMPRESAValue: Integer;
+begin
+ result := BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosProveedorID_EMPRESA];
+end;
+
+function TPedidosProveedorBusinessProcessorRules.GetID_EMPRESAIsNull: Boolean;
+begin
+ result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosProveedorID_EMPRESA]);
+end;
+
+function TPedidosProveedorBusinessProcessorRules.GetOldID_EMPRESAValue: Integer;
+begin
+ result := BusinessProcessor.CurrentChange.OldValueByName[fld_PedidosProveedorID_EMPRESA];
+end;
+
+function TPedidosProveedorBusinessProcessorRules.GetOldID_EMPRESAIsNull: Boolean;
+begin
+ result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_PedidosProveedorID_EMPRESA]);
+end;
+
+procedure TPedidosProveedorBusinessProcessorRules.SetID_EMPRESAValue(const aValue: Integer);
+begin
+ BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosProveedorID_EMPRESA] := aValue;
+end;
+
+procedure TPedidosProveedorBusinessProcessorRules.SetID_EMPRESAIsNull(const aValue: Boolean);
+begin
+ if aValue then
+ BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosProveedorID_EMPRESA] := Null;
+end;
+
+function TPedidosProveedorBusinessProcessorRules.GetID_PROVEEDORValue: Integer;
+begin
+ result := BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosProveedorID_PROVEEDOR];
+end;
+
+function TPedidosProveedorBusinessProcessorRules.GetID_PROVEEDORIsNull: Boolean;
+begin
+ result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosProveedorID_PROVEEDOR]);
+end;
+
+function TPedidosProveedorBusinessProcessorRules.GetOldID_PROVEEDORValue: Integer;
+begin
+ result := BusinessProcessor.CurrentChange.OldValueByName[fld_PedidosProveedorID_PROVEEDOR];
+end;
+
+function TPedidosProveedorBusinessProcessorRules.GetOldID_PROVEEDORIsNull: Boolean;
+begin
+ result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_PedidosProveedorID_PROVEEDOR]);
+end;
+
+procedure TPedidosProveedorBusinessProcessorRules.SetID_PROVEEDORValue(const aValue: Integer);
+begin
+ BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosProveedorID_PROVEEDOR] := aValue;
+end;
+
+procedure TPedidosProveedorBusinessProcessorRules.SetID_PROVEEDORIsNull(const aValue: Boolean);
+begin
+ if aValue then
+ BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosProveedorID_PROVEEDOR] := Null;
+end;
+
+function TPedidosProveedorBusinessProcessorRules.GetNOMBREValue: String;
+begin
+ result := BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosProveedorNOMBRE];
+end;
+
+function TPedidosProveedorBusinessProcessorRules.GetNOMBREIsNull: Boolean;
+begin
+ result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosProveedorNOMBRE]);
+end;
+
+function TPedidosProveedorBusinessProcessorRules.GetOldNOMBREValue: String;
+begin
+ result := BusinessProcessor.CurrentChange.OldValueByName[fld_PedidosProveedorNOMBRE];
+end;
+
+function TPedidosProveedorBusinessProcessorRules.GetOldNOMBREIsNull: Boolean;
+begin
+ result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_PedidosProveedorNOMBRE]);
+end;
+
+procedure TPedidosProveedorBusinessProcessorRules.SetNOMBREValue(const aValue: String);
+begin
+ BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosProveedorNOMBRE] := aValue;
+end;
+
+procedure TPedidosProveedorBusinessProcessorRules.SetNOMBREIsNull(const aValue: Boolean);
+begin
+ if aValue then
+ BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosProveedorNOMBRE] := Null;
+end;
+
+function TPedidosProveedorBusinessProcessorRules.GetNOMBRE_COMERCIALValue: String;
+begin
+ result := BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosProveedorNOMBRE_COMERCIAL];
+end;
+
+function TPedidosProveedorBusinessProcessorRules.GetNOMBRE_COMERCIALIsNull: Boolean;
+begin
+ result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosProveedorNOMBRE_COMERCIAL]);
+end;
+
+function TPedidosProveedorBusinessProcessorRules.GetOldNOMBRE_COMERCIALValue: String;
+begin
+ result := BusinessProcessor.CurrentChange.OldValueByName[fld_PedidosProveedorNOMBRE_COMERCIAL];
+end;
+
+function TPedidosProveedorBusinessProcessorRules.GetOldNOMBRE_COMERCIALIsNull: Boolean;
+begin
+ result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_PedidosProveedorNOMBRE_COMERCIAL]);
+end;
+
+procedure TPedidosProveedorBusinessProcessorRules.SetNOMBRE_COMERCIALValue(const aValue: String);
+begin
+ BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosProveedorNOMBRE_COMERCIAL] := aValue;
+end;
+
+procedure TPedidosProveedorBusinessProcessorRules.SetNOMBRE_COMERCIALIsNull(const aValue: Boolean);
+begin
+ if aValue then
+ BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosProveedorNOMBRE_COMERCIAL] := Null;
+end;
+
+function TPedidosProveedorBusinessProcessorRules.GetREFERENCIAValue: String;
+begin
+ result := BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosProveedorREFERENCIA];
+end;
+
+function TPedidosProveedorBusinessProcessorRules.GetREFERENCIAIsNull: Boolean;
+begin
+ result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosProveedorREFERENCIA]);
+end;
+
+function TPedidosProveedorBusinessProcessorRules.GetOldREFERENCIAValue: String;
+begin
+ result := BusinessProcessor.CurrentChange.OldValueByName[fld_PedidosProveedorREFERENCIA];
+end;
+
+function TPedidosProveedorBusinessProcessorRules.GetOldREFERENCIAIsNull: Boolean;
+begin
+ result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_PedidosProveedorREFERENCIA]);
+end;
+
+procedure TPedidosProveedorBusinessProcessorRules.SetREFERENCIAValue(const aValue: String);
+begin
+ BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosProveedorREFERENCIA] := aValue;
+end;
+
+procedure TPedidosProveedorBusinessProcessorRules.SetREFERENCIAIsNull(const aValue: Boolean);
+begin
+ if aValue then
+ BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosProveedorREFERENCIA] := Null;
+end;
+
+function TPedidosProveedorBusinessProcessorRules.GetSITUACIONValue: String;
+begin
+ result := BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosProveedorSITUACION];
+end;
+
+function TPedidosProveedorBusinessProcessorRules.GetSITUACIONIsNull: Boolean;
+begin
+ result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosProveedorSITUACION]);
+end;
+
+function TPedidosProveedorBusinessProcessorRules.GetOldSITUACIONValue: String;
+begin
+ result := BusinessProcessor.CurrentChange.OldValueByName[fld_PedidosProveedorSITUACION];
+end;
+
+function TPedidosProveedorBusinessProcessorRules.GetOldSITUACIONIsNull: Boolean;
+begin
+ result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_PedidosProveedorSITUACION]);
+end;
+
+procedure TPedidosProveedorBusinessProcessorRules.SetSITUACIONValue(const aValue: String);
+begin
+ BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosProveedorSITUACION] := aValue;
+end;
+
+procedure TPedidosProveedorBusinessProcessorRules.SetSITUACIONIsNull(const aValue: Boolean);
+begin
+ if aValue then
+ BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosProveedorSITUACION] := Null;
+end;
+
+function TPedidosProveedorBusinessProcessorRules.GetFECHA_ENVIOValue: DateTime;
+begin
+ result := BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosProveedorFECHA_ENVIO];
+end;
+
+function TPedidosProveedorBusinessProcessorRules.GetFECHA_ENVIOIsNull: Boolean;
+begin
+ result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosProveedorFECHA_ENVIO]);
+end;
+
+function TPedidosProveedorBusinessProcessorRules.GetOldFECHA_ENVIOValue: DateTime;
+begin
+ result := BusinessProcessor.CurrentChange.OldValueByName[fld_PedidosProveedorFECHA_ENVIO];
+end;
+
+function TPedidosProveedorBusinessProcessorRules.GetOldFECHA_ENVIOIsNull: Boolean;
+begin
+ result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_PedidosProveedorFECHA_ENVIO]);
+end;
+
+procedure TPedidosProveedorBusinessProcessorRules.SetFECHA_ENVIOValue(const aValue: DateTime);
+begin
+ BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosProveedorFECHA_ENVIO] := aValue;
+end;
+
+procedure TPedidosProveedorBusinessProcessorRules.SetFECHA_ENVIOIsNull(const aValue: Boolean);
+begin
+ if aValue then
+ BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosProveedorFECHA_ENVIO] := Null;
+end;
+
+function TPedidosProveedorBusinessProcessorRules.GetFECHA_PEDIDOValue: DateTime;
+begin
+ result := BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosProveedorFECHA_PEDIDO];
+end;
+
+function TPedidosProveedorBusinessProcessorRules.GetFECHA_PEDIDOIsNull: Boolean;
+begin
+ result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosProveedorFECHA_PEDIDO]);
+end;
+
+function TPedidosProveedorBusinessProcessorRules.GetOldFECHA_PEDIDOValue: DateTime;
+begin
+ result := BusinessProcessor.CurrentChange.OldValueByName[fld_PedidosProveedorFECHA_PEDIDO];
+end;
+
+function TPedidosProveedorBusinessProcessorRules.GetOldFECHA_PEDIDOIsNull: Boolean;
+begin
+ result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_PedidosProveedorFECHA_PEDIDO]);
+end;
+
+procedure TPedidosProveedorBusinessProcessorRules.SetFECHA_PEDIDOValue(const aValue: DateTime);
+begin
+ BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosProveedorFECHA_PEDIDO] := aValue;
+end;
+
+procedure TPedidosProveedorBusinessProcessorRules.SetFECHA_PEDIDOIsNull(const aValue: Boolean);
+begin
+ if aValue then
+ BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosProveedorFECHA_PEDIDO] := Null;
+end;
+
+function TPedidosProveedorBusinessProcessorRules.GetFECHA_CONFIRMACIONValue: DateTime;
+begin
+ result := BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosProveedorFECHA_CONFIRMACION];
+end;
+
+function TPedidosProveedorBusinessProcessorRules.GetFECHA_CONFIRMACIONIsNull: Boolean;
+begin
+ result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosProveedorFECHA_CONFIRMACION]);
+end;
+
+function TPedidosProveedorBusinessProcessorRules.GetOldFECHA_CONFIRMACIONValue: DateTime;
+begin
+ result := BusinessProcessor.CurrentChange.OldValueByName[fld_PedidosProveedorFECHA_CONFIRMACION];
+end;
+
+function TPedidosProveedorBusinessProcessorRules.GetOldFECHA_CONFIRMACIONIsNull: Boolean;
+begin
+ result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_PedidosProveedorFECHA_CONFIRMACION]);
+end;
+
+procedure TPedidosProveedorBusinessProcessorRules.SetFECHA_CONFIRMACIONValue(const aValue: DateTime);
+begin
+ BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosProveedorFECHA_CONFIRMACION] := aValue;
+end;
+
+procedure TPedidosProveedorBusinessProcessorRules.SetFECHA_CONFIRMACIONIsNull(const aValue: Boolean);
+begin
+ if aValue then
+ BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosProveedorFECHA_CONFIRMACION] := Null;
+end;
+
+function TPedidosProveedorBusinessProcessorRules.GetFECHA_ENTREGAValue: DateTime;
+begin
+ result := BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosProveedorFECHA_ENTREGA];
+end;
+
+function TPedidosProveedorBusinessProcessorRules.GetFECHA_ENTREGAIsNull: Boolean;
+begin
+ result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosProveedorFECHA_ENTREGA]);
+end;
+
+function TPedidosProveedorBusinessProcessorRules.GetOldFECHA_ENTREGAValue: DateTime;
+begin
+ result := BusinessProcessor.CurrentChange.OldValueByName[fld_PedidosProveedorFECHA_ENTREGA];
+end;
+
+function TPedidosProveedorBusinessProcessorRules.GetOldFECHA_ENTREGAIsNull: Boolean;
+begin
+ result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_PedidosProveedorFECHA_ENTREGA]);
+end;
+
+procedure TPedidosProveedorBusinessProcessorRules.SetFECHA_ENTREGAValue(const aValue: DateTime);
+begin
+ BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosProveedorFECHA_ENTREGA] := aValue;
+end;
+
+procedure TPedidosProveedorBusinessProcessorRules.SetFECHA_ENTREGAIsNull(const aValue: Boolean);
+begin
+ if aValue then
+ BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosProveedorFECHA_ENTREGA] := Null;
+end;
+
+function TPedidosProveedorBusinessProcessorRules.GetID_ALMACENValue: Integer;
+begin
+ result := BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosProveedorID_ALMACEN];
+end;
+
+function TPedidosProveedorBusinessProcessorRules.GetID_ALMACENIsNull: Boolean;
+begin
+ result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosProveedorID_ALMACEN]);
+end;
+
+function TPedidosProveedorBusinessProcessorRules.GetOldID_ALMACENValue: Integer;
+begin
+ result := BusinessProcessor.CurrentChange.OldValueByName[fld_PedidosProveedorID_ALMACEN];
+end;
+
+function TPedidosProveedorBusinessProcessorRules.GetOldID_ALMACENIsNull: Boolean;
+begin
+ result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_PedidosProveedorID_ALMACEN]);
+end;
+
+procedure TPedidosProveedorBusinessProcessorRules.SetID_ALMACENValue(const aValue: Integer);
+begin
+ BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosProveedorID_ALMACEN] := aValue;
+end;
+
+procedure TPedidosProveedorBusinessProcessorRules.SetID_ALMACENIsNull(const aValue: Boolean);
+begin
+ if aValue then
+ BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosProveedorID_ALMACEN] := Null;
+end;
+
+function TPedidosProveedorBusinessProcessorRules.GetNOMBRE_ALMACENValue: String;
+begin
+ result := BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosProveedorNOMBRE_ALMACEN];
+end;
+
+function TPedidosProveedorBusinessProcessorRules.GetNOMBRE_ALMACENIsNull: Boolean;
+begin
+ result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosProveedorNOMBRE_ALMACEN]);
+end;
+
+function TPedidosProveedorBusinessProcessorRules.GetOldNOMBRE_ALMACENValue: String;
+begin
+ result := BusinessProcessor.CurrentChange.OldValueByName[fld_PedidosProveedorNOMBRE_ALMACEN];
+end;
+
+function TPedidosProveedorBusinessProcessorRules.GetOldNOMBRE_ALMACENIsNull: Boolean;
+begin
+ result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_PedidosProveedorNOMBRE_ALMACEN]);
+end;
+
+procedure TPedidosProveedorBusinessProcessorRules.SetNOMBRE_ALMACENValue(const aValue: String);
+begin
+ BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosProveedorNOMBRE_ALMACEN] := aValue;
+end;
+
+procedure TPedidosProveedorBusinessProcessorRules.SetNOMBRE_ALMACENIsNull(const aValue: Boolean);
+begin
+ if aValue then
+ BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosProveedorNOMBRE_ALMACEN] := Null;
+end;
+
+function TPedidosProveedorBusinessProcessorRules.GetOBSERVACIONESValue: IROStrings;
+begin
+ result := f_OBSERVACIONES;
+ result.Text := BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosProveedorOBSERVACIONES];
+end;
+
+function TPedidosProveedorBusinessProcessorRules.GetOBSERVACIONESIsNull: Boolean;
+begin
+ result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosProveedorOBSERVACIONES]);
+end;
+
+function TPedidosProveedorBusinessProcessorRules.GetOldOBSERVACIONESValue: IROStrings;
+begin
+ result := NewROStrings();
+ result.Text := BusinessProcessor.CurrentChange.OldValueByName[fld_PedidosProveedorOBSERVACIONES];
+end;
+
+function TPedidosProveedorBusinessProcessorRules.GetOldOBSERVACIONESIsNull: Boolean;
+begin
+ result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_PedidosProveedorOBSERVACIONES]);
+end;
+
+procedure TPedidosProveedorBusinessProcessorRules.SetOBSERVACIONESIsNull(const aValue: Boolean);
+begin
+ if aValue then
+ BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosProveedorOBSERVACIONES] := Null;
+end;
+
+function TPedidosProveedorBusinessProcessorRules.GetIMPORTE_TOTALValue: Currency;
+begin
+ result := BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosProveedorIMPORTE_TOTAL];
+end;
+
+function TPedidosProveedorBusinessProcessorRules.GetIMPORTE_TOTALIsNull: Boolean;
+begin
+ result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosProveedorIMPORTE_TOTAL]);
+end;
+
+function TPedidosProveedorBusinessProcessorRules.GetOldIMPORTE_TOTALValue: Currency;
+begin
+ result := BusinessProcessor.CurrentChange.OldValueByName[fld_PedidosProveedorIMPORTE_TOTAL];
+end;
+
+function TPedidosProveedorBusinessProcessorRules.GetOldIMPORTE_TOTALIsNull: Boolean;
+begin
+ result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_PedidosProveedorIMPORTE_TOTAL]);
+end;
+
+procedure TPedidosProveedorBusinessProcessorRules.SetIMPORTE_TOTALValue(const aValue: Currency);
+begin
+ BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosProveedorIMPORTE_TOTAL] := aValue;
+end;
+
+procedure TPedidosProveedorBusinessProcessorRules.SetIMPORTE_TOTALIsNull(const aValue: Boolean);
+begin
+ if aValue then
+ BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosProveedorIMPORTE_TOTAL] := Null;
+end;
+
+function TPedidosProveedorBusinessProcessorRules.GetINCIDENCIASValue: IROStrings;
+begin
+ result := f_INCIDENCIAS;
+ result.Text := BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosProveedorINCIDENCIAS];
+end;
+
+function TPedidosProveedorBusinessProcessorRules.GetINCIDENCIASIsNull: Boolean;
+begin
+ result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosProveedorINCIDENCIAS]);
+end;
+
+function TPedidosProveedorBusinessProcessorRules.GetOldINCIDENCIASValue: IROStrings;
+begin
+ result := NewROStrings();
+ result.Text := BusinessProcessor.CurrentChange.OldValueByName[fld_PedidosProveedorINCIDENCIAS];
+end;
+
+function TPedidosProveedorBusinessProcessorRules.GetOldINCIDENCIASIsNull: Boolean;
+begin
+ result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_PedidosProveedorINCIDENCIAS]);
+end;
+
+procedure TPedidosProveedorBusinessProcessorRules.SetINCIDENCIASIsNull(const aValue: Boolean);
+begin
+ if aValue then
+ BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosProveedorINCIDENCIAS] := Null;
+end;
+
+function TPedidosProveedorBusinessProcessorRules.GetINCIDENCIAS_ACTIVASValue: Integer;
+begin
+ result := BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosProveedorINCIDENCIAS_ACTIVAS];
+end;
+
+function TPedidosProveedorBusinessProcessorRules.GetINCIDENCIAS_ACTIVASIsNull: Boolean;
+begin
+ result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosProveedorINCIDENCIAS_ACTIVAS]);
+end;
+
+function TPedidosProveedorBusinessProcessorRules.GetOldINCIDENCIAS_ACTIVASValue: Integer;
+begin
+ result := BusinessProcessor.CurrentChange.OldValueByName[fld_PedidosProveedorINCIDENCIAS_ACTIVAS];
+end;
+
+function TPedidosProveedorBusinessProcessorRules.GetOldINCIDENCIAS_ACTIVASIsNull: Boolean;
+begin
+ result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_PedidosProveedorINCIDENCIAS_ACTIVAS]);
+end;
+
+procedure TPedidosProveedorBusinessProcessorRules.SetINCIDENCIAS_ACTIVASValue(const aValue: Integer);
+begin
+ BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosProveedorINCIDENCIAS_ACTIVAS] := aValue;
+end;
+
+procedure TPedidosProveedorBusinessProcessorRules.SetINCIDENCIAS_ACTIVASIsNull(const aValue: Boolean);
+begin
+ if aValue then
+ BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosProveedorINCIDENCIAS_ACTIVAS] := Null;
+end;
+
+function TPedidosProveedorBusinessProcessorRules.GetCALLEValue: String;
+begin
+ result := BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosProveedorCALLE];
+end;
+
+function TPedidosProveedorBusinessProcessorRules.GetCALLEIsNull: Boolean;
+begin
+ result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosProveedorCALLE]);
+end;
+
+function TPedidosProveedorBusinessProcessorRules.GetOldCALLEValue: String;
+begin
+ result := BusinessProcessor.CurrentChange.OldValueByName[fld_PedidosProveedorCALLE];
+end;
+
+function TPedidosProveedorBusinessProcessorRules.GetOldCALLEIsNull: Boolean;
+begin
+ result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_PedidosProveedorCALLE]);
+end;
+
+procedure TPedidosProveedorBusinessProcessorRules.SetCALLEValue(const aValue: String);
+begin
+ BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosProveedorCALLE] := aValue;
+end;
+
+procedure TPedidosProveedorBusinessProcessorRules.SetCALLEIsNull(const aValue: Boolean);
+begin
+ if aValue then
+ BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosProveedorCALLE] := Null;
+end;
+
+function TPedidosProveedorBusinessProcessorRules.GetPOBLACIONValue: String;
+begin
+ result := BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosProveedorPOBLACION];
+end;
+
+function TPedidosProveedorBusinessProcessorRules.GetPOBLACIONIsNull: Boolean;
+begin
+ result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosProveedorPOBLACION]);
+end;
+
+function TPedidosProveedorBusinessProcessorRules.GetOldPOBLACIONValue: String;
+begin
+ result := BusinessProcessor.CurrentChange.OldValueByName[fld_PedidosProveedorPOBLACION];
+end;
+
+function TPedidosProveedorBusinessProcessorRules.GetOldPOBLACIONIsNull: Boolean;
+begin
+ result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_PedidosProveedorPOBLACION]);
+end;
+
+procedure TPedidosProveedorBusinessProcessorRules.SetPOBLACIONValue(const aValue: String);
+begin
+ BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosProveedorPOBLACION] := aValue;
+end;
+
+procedure TPedidosProveedorBusinessProcessorRules.SetPOBLACIONIsNull(const aValue: Boolean);
+begin
+ if aValue then
+ BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosProveedorPOBLACION] := Null;
+end;
+
+function TPedidosProveedorBusinessProcessorRules.GetPROVINCIAValue: String;
+begin
+ result := BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosProveedorPROVINCIA];
+end;
+
+function TPedidosProveedorBusinessProcessorRules.GetPROVINCIAIsNull: Boolean;
+begin
+ result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosProveedorPROVINCIA]);
+end;
+
+function TPedidosProveedorBusinessProcessorRules.GetOldPROVINCIAValue: String;
+begin
+ result := BusinessProcessor.CurrentChange.OldValueByName[fld_PedidosProveedorPROVINCIA];
+end;
+
+function TPedidosProveedorBusinessProcessorRules.GetOldPROVINCIAIsNull: Boolean;
+begin
+ result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_PedidosProveedorPROVINCIA]);
+end;
+
+procedure TPedidosProveedorBusinessProcessorRules.SetPROVINCIAValue(const aValue: String);
+begin
+ BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosProveedorPROVINCIA] := aValue;
+end;
+
+procedure TPedidosProveedorBusinessProcessorRules.SetPROVINCIAIsNull(const aValue: Boolean);
+begin
+ if aValue then
+ BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosProveedorPROVINCIA] := Null;
+end;
+
+function TPedidosProveedorBusinessProcessorRules.GetCODIGO_POSTALValue: String;
+begin
+ result := BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosProveedorCODIGO_POSTAL];
+end;
+
+function TPedidosProveedorBusinessProcessorRules.GetCODIGO_POSTALIsNull: Boolean;
+begin
+ result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosProveedorCODIGO_POSTAL]);
+end;
+
+function TPedidosProveedorBusinessProcessorRules.GetOldCODIGO_POSTALValue: String;
+begin
+ result := BusinessProcessor.CurrentChange.OldValueByName[fld_PedidosProveedorCODIGO_POSTAL];
+end;
+
+function TPedidosProveedorBusinessProcessorRules.GetOldCODIGO_POSTALIsNull: Boolean;
+begin
+ result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_PedidosProveedorCODIGO_POSTAL]);
+end;
+
+procedure TPedidosProveedorBusinessProcessorRules.SetCODIGO_POSTALValue(const aValue: String);
+begin
+ BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosProveedorCODIGO_POSTAL] := aValue;
+end;
+
+procedure TPedidosProveedorBusinessProcessorRules.SetCODIGO_POSTALIsNull(const aValue: Boolean);
+begin
+ if aValue then
+ BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosProveedorCODIGO_POSTAL] := Null;
+end;
+
+function TPedidosProveedorBusinessProcessorRules.GetPERSONA_CONTACTOValue: String;
+begin
+ result := BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosProveedorPERSONA_CONTACTO];
+end;
+
+function TPedidosProveedorBusinessProcessorRules.GetPERSONA_CONTACTOIsNull: Boolean;
+begin
+ result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosProveedorPERSONA_CONTACTO]);
+end;
+
+function TPedidosProveedorBusinessProcessorRules.GetOldPERSONA_CONTACTOValue: String;
+begin
+ result := BusinessProcessor.CurrentChange.OldValueByName[fld_PedidosProveedorPERSONA_CONTACTO];
+end;
+
+function TPedidosProveedorBusinessProcessorRules.GetOldPERSONA_CONTACTOIsNull: Boolean;
+begin
+ result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_PedidosProveedorPERSONA_CONTACTO]);
+end;
+
+procedure TPedidosProveedorBusinessProcessorRules.SetPERSONA_CONTACTOValue(const aValue: String);
+begin
+ BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosProveedorPERSONA_CONTACTO] := aValue;
+end;
+
+procedure TPedidosProveedorBusinessProcessorRules.SetPERSONA_CONTACTOIsNull(const aValue: Boolean);
+begin
+ if aValue then
+ BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosProveedorPERSONA_CONTACTO] := Null;
+end;
+
+function TPedidosProveedorBusinessProcessorRules.GetTELEFONOValue: String;
+begin
+ result := BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosProveedorTELEFONO];
+end;
+
+function TPedidosProveedorBusinessProcessorRules.GetTELEFONOIsNull: Boolean;
+begin
+ result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosProveedorTELEFONO]);
+end;
+
+function TPedidosProveedorBusinessProcessorRules.GetOldTELEFONOValue: String;
+begin
+ result := BusinessProcessor.CurrentChange.OldValueByName[fld_PedidosProveedorTELEFONO];
+end;
+
+function TPedidosProveedorBusinessProcessorRules.GetOldTELEFONOIsNull: Boolean;
+begin
+ result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_PedidosProveedorTELEFONO]);
+end;
+
+procedure TPedidosProveedorBusinessProcessorRules.SetTELEFONOValue(const aValue: String);
+begin
+ BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosProveedorTELEFONO] := aValue;
+end;
+
+procedure TPedidosProveedorBusinessProcessorRules.SetTELEFONOIsNull(const aValue: Boolean);
+begin
+ if aValue then
+ BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosProveedorTELEFONO] := Null;
+end;
+
+function TPedidosProveedorBusinessProcessorRules.GetFECHA_ALTAValue: DateTime;
+begin
+ result := BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosProveedorFECHA_ALTA];
+end;
+
+function TPedidosProveedorBusinessProcessorRules.GetFECHA_ALTAIsNull: Boolean;
+begin
+ result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosProveedorFECHA_ALTA]);
+end;
+
+function TPedidosProveedorBusinessProcessorRules.GetOldFECHA_ALTAValue: DateTime;
+begin
+ result := BusinessProcessor.CurrentChange.OldValueByName[fld_PedidosProveedorFECHA_ALTA];
+end;
+
+function TPedidosProveedorBusinessProcessorRules.GetOldFECHA_ALTAIsNull: Boolean;
+begin
+ result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_PedidosProveedorFECHA_ALTA]);
+end;
+
+procedure TPedidosProveedorBusinessProcessorRules.SetFECHA_ALTAValue(const aValue: DateTime);
+begin
+ BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosProveedorFECHA_ALTA] := aValue;
+end;
+
+procedure TPedidosProveedorBusinessProcessorRules.SetFECHA_ALTAIsNull(const aValue: Boolean);
+begin
+ if aValue then
+ BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosProveedorFECHA_ALTA] := Null;
+end;
+
+function TPedidosProveedorBusinessProcessorRules.GetFECHA_MODIFICACIONValue: DateTime;
+begin
+ result := BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosProveedorFECHA_MODIFICACION];
+end;
+
+function TPedidosProveedorBusinessProcessorRules.GetFECHA_MODIFICACIONIsNull: Boolean;
+begin
+ result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosProveedorFECHA_MODIFICACION]);
+end;
+
+function TPedidosProveedorBusinessProcessorRules.GetOldFECHA_MODIFICACIONValue: DateTime;
+begin
+ result := BusinessProcessor.CurrentChange.OldValueByName[fld_PedidosProveedorFECHA_MODIFICACION];
+end;
+
+function TPedidosProveedorBusinessProcessorRules.GetOldFECHA_MODIFICACIONIsNull: Boolean;
+begin
+ result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_PedidosProveedorFECHA_MODIFICACION]);
+end;
+
+procedure TPedidosProveedorBusinessProcessorRules.SetFECHA_MODIFICACIONValue(const aValue: DateTime);
+begin
+ BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosProveedorFECHA_MODIFICACION] := aValue;
+end;
+
+procedure TPedidosProveedorBusinessProcessorRules.SetFECHA_MODIFICACIONIsNull(const aValue: Boolean);
+begin
+ if aValue then
+ BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosProveedorFECHA_MODIFICACION] := Null;
+end;
+
+function TPedidosProveedorBusinessProcessorRules.GetUSUARIOValue: String;
+begin
+ result := BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosProveedorUSUARIO];
+end;
+
+function TPedidosProveedorBusinessProcessorRules.GetUSUARIOIsNull: Boolean;
+begin
+ result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosProveedorUSUARIO]);
+end;
+
+function TPedidosProveedorBusinessProcessorRules.GetOldUSUARIOValue: String;
+begin
+ result := BusinessProcessor.CurrentChange.OldValueByName[fld_PedidosProveedorUSUARIO];
+end;
+
+function TPedidosProveedorBusinessProcessorRules.GetOldUSUARIOIsNull: Boolean;
+begin
+ result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_PedidosProveedorUSUARIO]);
+end;
+
+procedure TPedidosProveedorBusinessProcessorRules.SetUSUARIOValue(const aValue: String);
+begin
+ BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosProveedorUSUARIO] := aValue;
+end;
+
+procedure TPedidosProveedorBusinessProcessorRules.SetUSUARIOIsNull(const aValue: Boolean);
+begin
+ if aValue then
+ BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosProveedorUSUARIO] := Null;
+end;
+
+function TPedidosProveedorBusinessProcessorRules.GetID_CONTRATO_CLIENTEValue: Integer;
+begin
+ result := BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosProveedorID_CONTRATO_CLIENTE];
+end;
+
+function TPedidosProveedorBusinessProcessorRules.GetID_CONTRATO_CLIENTEIsNull: Boolean;
+begin
+ result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosProveedorID_CONTRATO_CLIENTE]);
+end;
+
+function TPedidosProveedorBusinessProcessorRules.GetOldID_CONTRATO_CLIENTEValue: Integer;
+begin
+ result := BusinessProcessor.CurrentChange.OldValueByName[fld_PedidosProveedorID_CONTRATO_CLIENTE];
+end;
+
+function TPedidosProveedorBusinessProcessorRules.GetOldID_CONTRATO_CLIENTEIsNull: Boolean;
+begin
+ result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_PedidosProveedorID_CONTRATO_CLIENTE]);
+end;
+
+procedure TPedidosProveedorBusinessProcessorRules.SetID_CONTRATO_CLIENTEValue(const aValue: Integer);
+begin
+ BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosProveedorID_CONTRATO_CLIENTE] := aValue;
+end;
+
+procedure TPedidosProveedorBusinessProcessorRules.SetID_CONTRATO_CLIENTEIsNull(const aValue: Boolean);
+begin
+ if aValue then
+ BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosProveedorID_CONTRATO_CLIENTE] := Null;
+end;
+
+function TPedidosProveedorBusinessProcessorRules.GetREF_CON_CLIENTEValue: String;
+begin
+ result := BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosProveedorREF_CON_CLIENTE];
+end;
+
+function TPedidosProveedorBusinessProcessorRules.GetREF_CON_CLIENTEIsNull: Boolean;
+begin
+ result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosProveedorREF_CON_CLIENTE]);
+end;
+
+function TPedidosProveedorBusinessProcessorRules.GetOldREF_CON_CLIENTEValue: String;
+begin
+ result := BusinessProcessor.CurrentChange.OldValueByName[fld_PedidosProveedorREF_CON_CLIENTE];
+end;
+
+function TPedidosProveedorBusinessProcessorRules.GetOldREF_CON_CLIENTEIsNull: Boolean;
+begin
+ result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_PedidosProveedorREF_CON_CLIENTE]);
+end;
+
+procedure TPedidosProveedorBusinessProcessorRules.SetREF_CON_CLIENTEValue(const aValue: String);
+begin
+ BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosProveedorREF_CON_CLIENTE] := aValue;
+end;
+
+procedure TPedidosProveedorBusinessProcessorRules.SetREF_CON_CLIENTEIsNull(const aValue: Boolean);
+begin
+ if aValue then
+ BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosProveedorREF_CON_CLIENTE] := Null;
+end;
+
+function TPedidosProveedorBusinessProcessorRules.GetNOMBRE_CLIENTEValue: String;
+begin
+ result := BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosProveedorNOMBRE_CLIENTE];
+end;
+
+function TPedidosProveedorBusinessProcessorRules.GetNOMBRE_CLIENTEIsNull: Boolean;
+begin
+ result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosProveedorNOMBRE_CLIENTE]);
+end;
+
+function TPedidosProveedorBusinessProcessorRules.GetOldNOMBRE_CLIENTEValue: String;
+begin
+ result := BusinessProcessor.CurrentChange.OldValueByName[fld_PedidosProveedorNOMBRE_CLIENTE];
+end;
+
+function TPedidosProveedorBusinessProcessorRules.GetOldNOMBRE_CLIENTEIsNull: Boolean;
+begin
+ result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_PedidosProveedorNOMBRE_CLIENTE]);
+end;
+
+procedure TPedidosProveedorBusinessProcessorRules.SetNOMBRE_CLIENTEValue(const aValue: String);
+begin
+ BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosProveedorNOMBRE_CLIENTE] := aValue;
+end;
+
+procedure TPedidosProveedorBusinessProcessorRules.SetNOMBRE_CLIENTEIsNull(const aValue: Boolean);
+begin
+ if aValue then
+ BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosProveedorNOMBRE_CLIENTE] := Null;
+end;
+
+function TPedidosProveedorBusinessProcessorRules.GetIMPORTE_NETOValue: Currency;
+begin
+ result := BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosProveedorIMPORTE_NETO];
+end;
+
+function TPedidosProveedorBusinessProcessorRules.GetIMPORTE_NETOIsNull: Boolean;
+begin
+ result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosProveedorIMPORTE_NETO]);
+end;
+
+function TPedidosProveedorBusinessProcessorRules.GetOldIMPORTE_NETOValue: Currency;
+begin
+ result := BusinessProcessor.CurrentChange.OldValueByName[fld_PedidosProveedorIMPORTE_NETO];
+end;
+
+function TPedidosProveedorBusinessProcessorRules.GetOldIMPORTE_NETOIsNull: Boolean;
+begin
+ result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_PedidosProveedorIMPORTE_NETO]);
+end;
+
+procedure TPedidosProveedorBusinessProcessorRules.SetIMPORTE_NETOValue(const aValue: Currency);
+begin
+ BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosProveedorIMPORTE_NETO] := aValue;
+end;
+
+procedure TPedidosProveedorBusinessProcessorRules.SetIMPORTE_NETOIsNull(const aValue: Boolean);
+begin
+ if aValue then
+ BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosProveedorIMPORTE_NETO] := Null;
+end;
+
+function TPedidosProveedorBusinessProcessorRules.GetIMPORTE_PORTEValue: Currency;
+begin
+ result := BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosProveedorIMPORTE_PORTE];
+end;
+
+function TPedidosProveedorBusinessProcessorRules.GetIMPORTE_PORTEIsNull: Boolean;
+begin
+ result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosProveedorIMPORTE_PORTE]);
+end;
+
+function TPedidosProveedorBusinessProcessorRules.GetOldIMPORTE_PORTEValue: Currency;
+begin
+ result := BusinessProcessor.CurrentChange.OldValueByName[fld_PedidosProveedorIMPORTE_PORTE];
+end;
+
+function TPedidosProveedorBusinessProcessorRules.GetOldIMPORTE_PORTEIsNull: Boolean;
+begin
+ result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_PedidosProveedorIMPORTE_PORTE]);
+end;
+
+procedure TPedidosProveedorBusinessProcessorRules.SetIMPORTE_PORTEValue(const aValue: Currency);
+begin
+ BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosProveedorIMPORTE_PORTE] := aValue;
+end;
+
+procedure TPedidosProveedorBusinessProcessorRules.SetIMPORTE_PORTEIsNull(const aValue: Boolean);
+begin
+ if aValue then
+ BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosProveedorIMPORTE_PORTE] := Null;
+end;
+
+function TPedidosProveedorBusinessProcessorRules.GetDESCUENTOValue: Float;
+begin
+ result := BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosProveedorDESCUENTO];
+end;
+
+function TPedidosProveedorBusinessProcessorRules.GetDESCUENTOIsNull: Boolean;
+begin
+ result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosProveedorDESCUENTO]);
+end;
+
+function TPedidosProveedorBusinessProcessorRules.GetOldDESCUENTOValue: Float;
+begin
+ result := BusinessProcessor.CurrentChange.OldValueByName[fld_PedidosProveedorDESCUENTO];
+end;
+
+function TPedidosProveedorBusinessProcessorRules.GetOldDESCUENTOIsNull: Boolean;
+begin
+ result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_PedidosProveedorDESCUENTO]);
+end;
+
+procedure TPedidosProveedorBusinessProcessorRules.SetDESCUENTOValue(const aValue: Float);
+begin
+ BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosProveedorDESCUENTO] := aValue;
+end;
+
+procedure TPedidosProveedorBusinessProcessorRules.SetDESCUENTOIsNull(const aValue: Boolean);
+begin
+ if aValue then
+ BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosProveedorDESCUENTO] := Null;
+end;
+
+function TPedidosProveedorBusinessProcessorRules.GetIMPORTE_DESCUENTOValue: Currency;
+begin
+ result := BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosProveedorIMPORTE_DESCUENTO];
+end;
+
+function TPedidosProveedorBusinessProcessorRules.GetIMPORTE_DESCUENTOIsNull: Boolean;
+begin
+ result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosProveedorIMPORTE_DESCUENTO]);
+end;
+
+function TPedidosProveedorBusinessProcessorRules.GetOldIMPORTE_DESCUENTOValue: Currency;
+begin
+ result := BusinessProcessor.CurrentChange.OldValueByName[fld_PedidosProveedorIMPORTE_DESCUENTO];
+end;
+
+function TPedidosProveedorBusinessProcessorRules.GetOldIMPORTE_DESCUENTOIsNull: Boolean;
+begin
+ result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_PedidosProveedorIMPORTE_DESCUENTO]);
+end;
+
+procedure TPedidosProveedorBusinessProcessorRules.SetIMPORTE_DESCUENTOValue(const aValue: Currency);
+begin
+ BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosProveedorIMPORTE_DESCUENTO] := aValue;
+end;
+
+procedure TPedidosProveedorBusinessProcessorRules.SetIMPORTE_DESCUENTOIsNull(const aValue: Boolean);
+begin
+ if aValue then
+ BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosProveedorIMPORTE_DESCUENTO] := Null;
+end;
+
+function TPedidosProveedorBusinessProcessorRules.GetBASE_IMPONIBLEValue: Currency;
+begin
+ result := BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosProveedorBASE_IMPONIBLE];
+end;
+
+function TPedidosProveedorBusinessProcessorRules.GetBASE_IMPONIBLEIsNull: Boolean;
+begin
+ result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosProveedorBASE_IMPONIBLE]);
+end;
+
+function TPedidosProveedorBusinessProcessorRules.GetOldBASE_IMPONIBLEValue: Currency;
+begin
+ result := BusinessProcessor.CurrentChange.OldValueByName[fld_PedidosProveedorBASE_IMPONIBLE];
+end;
+
+function TPedidosProveedorBusinessProcessorRules.GetOldBASE_IMPONIBLEIsNull: Boolean;
+begin
+ result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_PedidosProveedorBASE_IMPONIBLE]);
+end;
+
+procedure TPedidosProveedorBusinessProcessorRules.SetBASE_IMPONIBLEValue(const aValue: Currency);
+begin
+ BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosProveedorBASE_IMPONIBLE] := aValue;
+end;
+
+procedure TPedidosProveedorBusinessProcessorRules.SetBASE_IMPONIBLEIsNull(const aValue: Boolean);
+begin
+ if aValue then
+ BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosProveedorBASE_IMPONIBLE] := Null;
+end;
+
+function TPedidosProveedorBusinessProcessorRules.GetIVAValue: Float;
+begin
+ result := BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosProveedorIVA];
+end;
+
+function TPedidosProveedorBusinessProcessorRules.GetIVAIsNull: Boolean;
+begin
+ result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosProveedorIVA]);
+end;
+
+function TPedidosProveedorBusinessProcessorRules.GetOldIVAValue: Float;
+begin
+ result := BusinessProcessor.CurrentChange.OldValueByName[fld_PedidosProveedorIVA];
+end;
+
+function TPedidosProveedorBusinessProcessorRules.GetOldIVAIsNull: Boolean;
+begin
+ result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_PedidosProveedorIVA]);
+end;
+
+procedure TPedidosProveedorBusinessProcessorRules.SetIVAValue(const aValue: Float);
+begin
+ BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosProveedorIVA] := aValue;
+end;
+
+procedure TPedidosProveedorBusinessProcessorRules.SetIVAIsNull(const aValue: Boolean);
+begin
+ if aValue then
+ BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosProveedorIVA] := Null;
+end;
+
+function TPedidosProveedorBusinessProcessorRules.GetIMPORTE_IVAValue: Currency;
+begin
+ result := BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosProveedorIMPORTE_IVA];
+end;
+
+function TPedidosProveedorBusinessProcessorRules.GetIMPORTE_IVAIsNull: Boolean;
+begin
+ result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosProveedorIMPORTE_IVA]);
+end;
+
+function TPedidosProveedorBusinessProcessorRules.GetOldIMPORTE_IVAValue: Currency;
+begin
+ result := BusinessProcessor.CurrentChange.OldValueByName[fld_PedidosProveedorIMPORTE_IVA];
+end;
+
+function TPedidosProveedorBusinessProcessorRules.GetOldIMPORTE_IVAIsNull: Boolean;
+begin
+ result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_PedidosProveedorIMPORTE_IVA]);
+end;
+
+procedure TPedidosProveedorBusinessProcessorRules.SetIMPORTE_IVAValue(const aValue: Currency);
+begin
+ BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosProveedorIMPORTE_IVA] := aValue;
+end;
+
+procedure TPedidosProveedorBusinessProcessorRules.SetIMPORTE_IVAIsNull(const aValue: Boolean);
+begin
+ if aValue then
+ BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosProveedorIMPORTE_IVA] := Null;
+end;
+
+function TPedidosProveedorBusinessProcessorRules.GetID_FORMA_PAGOValue: Integer;
+begin
+ result := BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosProveedorID_FORMA_PAGO];
+end;
+
+function TPedidosProveedorBusinessProcessorRules.GetID_FORMA_PAGOIsNull: Boolean;
+begin
+ result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosProveedorID_FORMA_PAGO]);
+end;
+
+function TPedidosProveedorBusinessProcessorRules.GetOldID_FORMA_PAGOValue: Integer;
+begin
+ result := BusinessProcessor.CurrentChange.OldValueByName[fld_PedidosProveedorID_FORMA_PAGO];
+end;
+
+function TPedidosProveedorBusinessProcessorRules.GetOldID_FORMA_PAGOIsNull: Boolean;
+begin
+ result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_PedidosProveedorID_FORMA_PAGO]);
+end;
+
+procedure TPedidosProveedorBusinessProcessorRules.SetID_FORMA_PAGOValue(const aValue: Integer);
+begin
+ BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosProveedorID_FORMA_PAGO] := aValue;
+end;
+
+procedure TPedidosProveedorBusinessProcessorRules.SetID_FORMA_PAGOIsNull(const aValue: Boolean);
+begin
+ if aValue then
+ BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosProveedorID_FORMA_PAGO] := Null;
+end;
+
+function TPedidosProveedorBusinessProcessorRules.GetID_TIENDAValue: Integer;
+begin
+ result := BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosProveedorID_TIENDA];
+end;
+
+function TPedidosProveedorBusinessProcessorRules.GetID_TIENDAIsNull: Boolean;
+begin
+ result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosProveedorID_TIENDA]);
+end;
+
+function TPedidosProveedorBusinessProcessorRules.GetOldID_TIENDAValue: Integer;
+begin
+ result := BusinessProcessor.CurrentChange.OldValueByName[fld_PedidosProveedorID_TIENDA];
+end;
+
+function TPedidosProveedorBusinessProcessorRules.GetOldID_TIENDAIsNull: Boolean;
+begin
+ result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_PedidosProveedorID_TIENDA]);
+end;
+
+procedure TPedidosProveedorBusinessProcessorRules.SetID_TIENDAValue(const aValue: Integer);
+begin
+ BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosProveedorID_TIENDA] := aValue;
+end;
+
+procedure TPedidosProveedorBusinessProcessorRules.SetID_TIENDAIsNull(const aValue: Boolean);
+begin
+ if aValue then
+ BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosProveedorID_TIENDA] := Null;
+end;
+
+function TPedidosProveedorBusinessProcessorRules.GetID_VENDEDORValue: Integer;
+begin
+ result := BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosProveedorID_VENDEDOR];
+end;
+
+function TPedidosProveedorBusinessProcessorRules.GetID_VENDEDORIsNull: Boolean;
+begin
+ result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosProveedorID_VENDEDOR]);
+end;
+
+function TPedidosProveedorBusinessProcessorRules.GetOldID_VENDEDORValue: Integer;
+begin
+ result := BusinessProcessor.CurrentChange.OldValueByName[fld_PedidosProveedorID_VENDEDOR];
+end;
+
+function TPedidosProveedorBusinessProcessorRules.GetOldID_VENDEDORIsNull: Boolean;
+begin
+ result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_PedidosProveedorID_VENDEDOR]);
+end;
+
+procedure TPedidosProveedorBusinessProcessorRules.SetID_VENDEDORValue(const aValue: Integer);
+begin
+ BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosProveedorID_VENDEDOR] := aValue;
+end;
+
+procedure TPedidosProveedorBusinessProcessorRules.SetID_VENDEDORIsNull(const aValue: Boolean);
+begin
+ if aValue then
+ BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosProveedorID_VENDEDOR] := Null;
+end;
+
+function TPedidosProveedorBusinessProcessorRules.GetVENDEDORValue: String;
+begin
+ result := BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosProveedorVENDEDOR];
+end;
+
+function TPedidosProveedorBusinessProcessorRules.GetVENDEDORIsNull: Boolean;
+begin
+ result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosProveedorVENDEDOR]);
+end;
+
+function TPedidosProveedorBusinessProcessorRules.GetOldVENDEDORValue: String;
+begin
+ result := BusinessProcessor.CurrentChange.OldValueByName[fld_PedidosProveedorVENDEDOR];
+end;
+
+function TPedidosProveedorBusinessProcessorRules.GetOldVENDEDORIsNull: Boolean;
+begin
+ result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_PedidosProveedorVENDEDOR]);
+end;
+
+procedure TPedidosProveedorBusinessProcessorRules.SetVENDEDORValue(const aValue: String);
+begin
+ BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosProveedorVENDEDOR] := aValue;
+end;
+
+procedure TPedidosProveedorBusinessProcessorRules.SetVENDEDORIsNull(const aValue: Boolean);
+begin
+ if aValue then
+ BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosProveedorVENDEDOR] := Null;
+end;
+
+function TPedidosProveedorBusinessProcessorRules.GetREF_VENDEDORValue: String;
+begin
+ result := BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosProveedorREF_VENDEDOR];
+end;
+
+function TPedidosProveedorBusinessProcessorRules.GetREF_VENDEDORIsNull: Boolean;
+begin
+ result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosProveedorREF_VENDEDOR]);
+end;
+
+function TPedidosProveedorBusinessProcessorRules.GetOldREF_VENDEDORValue: String;
+begin
+ result := BusinessProcessor.CurrentChange.OldValueByName[fld_PedidosProveedorREF_VENDEDOR];
+end;
+
+function TPedidosProveedorBusinessProcessorRules.GetOldREF_VENDEDORIsNull: Boolean;
+begin
+ result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_PedidosProveedorREF_VENDEDOR]);
+end;
+
+procedure TPedidosProveedorBusinessProcessorRules.SetREF_VENDEDORValue(const aValue: String);
+begin
+ BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosProveedorREF_VENDEDOR] := aValue;
+end;
+
+procedure TPedidosProveedorBusinessProcessorRules.SetREF_VENDEDORIsNull(const aValue: Boolean);
+begin
+ if aValue then
+ BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosProveedorREF_VENDEDOR] := Null;
+end;
+
+function TPedidosProveedorBusinessProcessorRules.GetID_DIRECCIONValue: Integer;
+begin
+ result := BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosProveedorID_DIRECCION];
+end;
+
+function TPedidosProveedorBusinessProcessorRules.GetID_DIRECCIONIsNull: Boolean;
+begin
+ result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosProveedorID_DIRECCION]);
+end;
+
+function TPedidosProveedorBusinessProcessorRules.GetOldID_DIRECCIONValue: Integer;
+begin
+ result := BusinessProcessor.CurrentChange.OldValueByName[fld_PedidosProveedorID_DIRECCION];
+end;
+
+function TPedidosProveedorBusinessProcessorRules.GetOldID_DIRECCIONIsNull: Boolean;
+begin
+ result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_PedidosProveedorID_DIRECCION]);
+end;
+
+procedure TPedidosProveedorBusinessProcessorRules.SetID_DIRECCIONValue(const aValue: Integer);
+begin
+ BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosProveedorID_DIRECCION] := aValue;
+end;
+
+procedure TPedidosProveedorBusinessProcessorRules.SetID_DIRECCIONIsNull(const aValue: Boolean);
+begin
+ if aValue then
+ BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosProveedorID_DIRECCION] := Null;
+end;
+
+function TPedidosProveedorBusinessProcessorRules.GetID_TIPO_IVAValue: Integer;
+begin
+ result := BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosProveedorID_TIPO_IVA];
+end;
+
+function TPedidosProveedorBusinessProcessorRules.GetID_TIPO_IVAIsNull: Boolean;
+begin
+ result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosProveedorID_TIPO_IVA]);
+end;
+
+function TPedidosProveedorBusinessProcessorRules.GetOldID_TIPO_IVAValue: Integer;
+begin
+ result := BusinessProcessor.CurrentChange.OldValueByName[fld_PedidosProveedorID_TIPO_IVA];
+end;
+
+function TPedidosProveedorBusinessProcessorRules.GetOldID_TIPO_IVAIsNull: Boolean;
+begin
+ result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_PedidosProveedorID_TIPO_IVA]);
+end;
+
+procedure TPedidosProveedorBusinessProcessorRules.SetID_TIPO_IVAValue(const aValue: Integer);
+begin
+ BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosProveedorID_TIPO_IVA] := aValue;
+end;
+
+procedure TPedidosProveedorBusinessProcessorRules.SetID_TIPO_IVAIsNull(const aValue: Boolean);
+begin
+ if aValue then
+ BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosProveedorID_TIPO_IVA] := Null;
+end;
+
+
+{ TPedidosProveedor_DetallesBusinessProcessorRules }
+constructor TPedidosProveedor_DetallesBusinessProcessorRules.Create(aBusinessProcessor: TDABusinessProcessor);
+begin
+ inherited;
+end;
+
+destructor TPedidosProveedor_DetallesBusinessProcessorRules.Destroy;
+begin
+ inherited;
+end;
+
+function TPedidosProveedor_DetallesBusinessProcessorRules.GetIDValue: Integer;
+begin
+ result := BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosProveedor_DetallesID];
+end;
+
+function TPedidosProveedor_DetallesBusinessProcessorRules.GetIDIsNull: Boolean;
+begin
+ result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosProveedor_DetallesID]);
+end;
+
+function TPedidosProveedor_DetallesBusinessProcessorRules.GetOldIDValue: Integer;
+begin
+ result := BusinessProcessor.CurrentChange.OldValueByName[fld_PedidosProveedor_DetallesID];
+end;
+
+function TPedidosProveedor_DetallesBusinessProcessorRules.GetOldIDIsNull: Boolean;
+begin
+ result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_PedidosProveedor_DetallesID]);
+end;
+
+procedure TPedidosProveedor_DetallesBusinessProcessorRules.SetIDValue(const aValue: Integer);
+begin
+ BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosProveedor_DetallesID] := aValue;
+end;
+
+procedure TPedidosProveedor_DetallesBusinessProcessorRules.SetIDIsNull(const aValue: Boolean);
+begin
+ if aValue then
+ BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosProveedor_DetallesID] := Null;
+end;
+
+function TPedidosProveedor_DetallesBusinessProcessorRules.GetID_PEDIDOValue: Integer;
+begin
+ result := BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosProveedor_DetallesID_PEDIDO];
+end;
+
+function TPedidosProveedor_DetallesBusinessProcessorRules.GetID_PEDIDOIsNull: Boolean;
+begin
+ result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosProveedor_DetallesID_PEDIDO]);
+end;
+
+function TPedidosProveedor_DetallesBusinessProcessorRules.GetOldID_PEDIDOValue: Integer;
+begin
+ result := BusinessProcessor.CurrentChange.OldValueByName[fld_PedidosProveedor_DetallesID_PEDIDO];
+end;
+
+function TPedidosProveedor_DetallesBusinessProcessorRules.GetOldID_PEDIDOIsNull: Boolean;
+begin
+ result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_PedidosProveedor_DetallesID_PEDIDO]);
+end;
+
+procedure TPedidosProveedor_DetallesBusinessProcessorRules.SetID_PEDIDOValue(const aValue: Integer);
+begin
+ BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosProveedor_DetallesID_PEDIDO] := aValue;
+end;
+
+procedure TPedidosProveedor_DetallesBusinessProcessorRules.SetID_PEDIDOIsNull(const aValue: Boolean);
+begin
+ if aValue then
+ BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosProveedor_DetallesID_PEDIDO] := Null;
+end;
+
+function TPedidosProveedor_DetallesBusinessProcessorRules.GetPOSICIONValue: Integer;
+begin
+ result := BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosProveedor_DetallesPOSICION];
+end;
+
+function TPedidosProveedor_DetallesBusinessProcessorRules.GetPOSICIONIsNull: Boolean;
+begin
+ result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosProveedor_DetallesPOSICION]);
+end;
+
+function TPedidosProveedor_DetallesBusinessProcessorRules.GetOldPOSICIONValue: Integer;
+begin
+ result := BusinessProcessor.CurrentChange.OldValueByName[fld_PedidosProveedor_DetallesPOSICION];
+end;
+
+function TPedidosProveedor_DetallesBusinessProcessorRules.GetOldPOSICIONIsNull: Boolean;
+begin
+ result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_PedidosProveedor_DetallesPOSICION]);
+end;
+
+procedure TPedidosProveedor_DetallesBusinessProcessorRules.SetPOSICIONValue(const aValue: Integer);
+begin
+ BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosProveedor_DetallesPOSICION] := aValue;
+end;
+
+procedure TPedidosProveedor_DetallesBusinessProcessorRules.SetPOSICIONIsNull(const aValue: Boolean);
+begin
+ if aValue then
+ BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosProveedor_DetallesPOSICION] := Null;
+end;
+
+function TPedidosProveedor_DetallesBusinessProcessorRules.GetTIPO_DETALLEValue: String;
+begin
+ result := BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosProveedor_DetallesTIPO_DETALLE];
+end;
+
+function TPedidosProveedor_DetallesBusinessProcessorRules.GetTIPO_DETALLEIsNull: Boolean;
+begin
+ result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosProveedor_DetallesTIPO_DETALLE]);
+end;
+
+function TPedidosProveedor_DetallesBusinessProcessorRules.GetOldTIPO_DETALLEValue: String;
+begin
+ result := BusinessProcessor.CurrentChange.OldValueByName[fld_PedidosProveedor_DetallesTIPO_DETALLE];
+end;
+
+function TPedidosProveedor_DetallesBusinessProcessorRules.GetOldTIPO_DETALLEIsNull: Boolean;
+begin
+ result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_PedidosProveedor_DetallesTIPO_DETALLE]);
+end;
+
+procedure TPedidosProveedor_DetallesBusinessProcessorRules.SetTIPO_DETALLEValue(const aValue: String);
+begin
+ BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosProveedor_DetallesTIPO_DETALLE] := aValue;
+end;
+
+procedure TPedidosProveedor_DetallesBusinessProcessorRules.SetTIPO_DETALLEIsNull(const aValue: Boolean);
+begin
+ if aValue then
+ BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosProveedor_DetallesTIPO_DETALLE] := Null;
+end;
+
+function TPedidosProveedor_DetallesBusinessProcessorRules.GetCONCEPTOValue: String;
+begin
+ result := BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosProveedor_DetallesCONCEPTO];
+end;
+
+function TPedidosProveedor_DetallesBusinessProcessorRules.GetCONCEPTOIsNull: Boolean;
+begin
+ result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosProveedor_DetallesCONCEPTO]);
+end;
+
+function TPedidosProveedor_DetallesBusinessProcessorRules.GetOldCONCEPTOValue: String;
+begin
+ result := BusinessProcessor.CurrentChange.OldValueByName[fld_PedidosProveedor_DetallesCONCEPTO];
+end;
+
+function TPedidosProveedor_DetallesBusinessProcessorRules.GetOldCONCEPTOIsNull: Boolean;
+begin
+ result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_PedidosProveedor_DetallesCONCEPTO]);
+end;
+
+procedure TPedidosProveedor_DetallesBusinessProcessorRules.SetCONCEPTOValue(const aValue: String);
+begin
+ BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosProveedor_DetallesCONCEPTO] := aValue;
+end;
+
+procedure TPedidosProveedor_DetallesBusinessProcessorRules.SetCONCEPTOIsNull(const aValue: Boolean);
+begin
+ if aValue then
+ BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosProveedor_DetallesCONCEPTO] := Null;
+end;
+
+function TPedidosProveedor_DetallesBusinessProcessorRules.GetCANTIDADValue: Currency;
+begin
+ result := BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosProveedor_DetallesCANTIDAD];
+end;
+
+function TPedidosProveedor_DetallesBusinessProcessorRules.GetCANTIDADIsNull: Boolean;
+begin
+ result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosProveedor_DetallesCANTIDAD]);
+end;
+
+function TPedidosProveedor_DetallesBusinessProcessorRules.GetOldCANTIDADValue: Currency;
+begin
+ result := BusinessProcessor.CurrentChange.OldValueByName[fld_PedidosProveedor_DetallesCANTIDAD];
+end;
+
+function TPedidosProveedor_DetallesBusinessProcessorRules.GetOldCANTIDADIsNull: Boolean;
+begin
+ result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_PedidosProveedor_DetallesCANTIDAD]);
+end;
+
+procedure TPedidosProveedor_DetallesBusinessProcessorRules.SetCANTIDADValue(const aValue: Currency);
+begin
+ BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosProveedor_DetallesCANTIDAD] := aValue;
+end;
+
+procedure TPedidosProveedor_DetallesBusinessProcessorRules.SetCANTIDADIsNull(const aValue: Boolean);
+begin
+ if aValue then
+ BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosProveedor_DetallesCANTIDAD] := Null;
+end;
+
+function TPedidosProveedor_DetallesBusinessProcessorRules.GetIMPORTE_UNIDADValue: Currency;
+begin
+ result := BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosProveedor_DetallesIMPORTE_UNIDAD];
+end;
+
+function TPedidosProveedor_DetallesBusinessProcessorRules.GetIMPORTE_UNIDADIsNull: Boolean;
+begin
+ result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosProveedor_DetallesIMPORTE_UNIDAD]);
+end;
+
+function TPedidosProveedor_DetallesBusinessProcessorRules.GetOldIMPORTE_UNIDADValue: Currency;
+begin
+ result := BusinessProcessor.CurrentChange.OldValueByName[fld_PedidosProveedor_DetallesIMPORTE_UNIDAD];
+end;
+
+function TPedidosProveedor_DetallesBusinessProcessorRules.GetOldIMPORTE_UNIDADIsNull: Boolean;
+begin
+ result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_PedidosProveedor_DetallesIMPORTE_UNIDAD]);
+end;
+
+procedure TPedidosProveedor_DetallesBusinessProcessorRules.SetIMPORTE_UNIDADValue(const aValue: Currency);
+begin
+ BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosProveedor_DetallesIMPORTE_UNIDAD] := aValue;
+end;
+
+procedure TPedidosProveedor_DetallesBusinessProcessorRules.SetIMPORTE_UNIDADIsNull(const aValue: Boolean);
+begin
+ if aValue then
+ BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosProveedor_DetallesIMPORTE_UNIDAD] := Null;
+end;
+
+function TPedidosProveedor_DetallesBusinessProcessorRules.GetIMPORTE_TOTALValue: Currency;
+begin
+ result := BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosProveedor_DetallesIMPORTE_TOTAL];
+end;
+
+function TPedidosProveedor_DetallesBusinessProcessorRules.GetIMPORTE_TOTALIsNull: Boolean;
+begin
+ result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosProveedor_DetallesIMPORTE_TOTAL]);
+end;
+
+function TPedidosProveedor_DetallesBusinessProcessorRules.GetOldIMPORTE_TOTALValue: Currency;
+begin
+ result := BusinessProcessor.CurrentChange.OldValueByName[fld_PedidosProveedor_DetallesIMPORTE_TOTAL];
+end;
+
+function TPedidosProveedor_DetallesBusinessProcessorRules.GetOldIMPORTE_TOTALIsNull: Boolean;
+begin
+ result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_PedidosProveedor_DetallesIMPORTE_TOTAL]);
+end;
+
+procedure TPedidosProveedor_DetallesBusinessProcessorRules.SetIMPORTE_TOTALValue(const aValue: Currency);
+begin
+ BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosProveedor_DetallesIMPORTE_TOTAL] := aValue;
+end;
+
+procedure TPedidosProveedor_DetallesBusinessProcessorRules.SetIMPORTE_TOTALIsNull(const aValue: Boolean);
+begin
+ if aValue then
+ BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosProveedor_DetallesIMPORTE_TOTAL] := Null;
+end;
+
+function TPedidosProveedor_DetallesBusinessProcessorRules.GetVISIBLEValue: Integer;
+begin
+ result := BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosProveedor_DetallesVISIBLE];
+end;
+
+function TPedidosProveedor_DetallesBusinessProcessorRules.GetVISIBLEIsNull: Boolean;
+begin
+ result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosProveedor_DetallesVISIBLE]);
+end;
+
+function TPedidosProveedor_DetallesBusinessProcessorRules.GetOldVISIBLEValue: Integer;
+begin
+ result := BusinessProcessor.CurrentChange.OldValueByName[fld_PedidosProveedor_DetallesVISIBLE];
+end;
+
+function TPedidosProveedor_DetallesBusinessProcessorRules.GetOldVISIBLEIsNull: Boolean;
+begin
+ result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_PedidosProveedor_DetallesVISIBLE]);
+end;
+
+procedure TPedidosProveedor_DetallesBusinessProcessorRules.SetVISIBLEValue(const aValue: Integer);
+begin
+ BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosProveedor_DetallesVISIBLE] := aValue;
+end;
+
+procedure TPedidosProveedor_DetallesBusinessProcessorRules.SetVISIBLEIsNull(const aValue: Boolean);
+begin
+ if aValue then
+ BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosProveedor_DetallesVISIBLE] := Null;
+end;
+
+function TPedidosProveedor_DetallesBusinessProcessorRules.GetID_ARTICULOValue: Integer;
+begin
+ result := BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosProveedor_DetallesID_ARTICULO];
+end;
+
+function TPedidosProveedor_DetallesBusinessProcessorRules.GetID_ARTICULOIsNull: Boolean;
+begin
+ result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosProveedor_DetallesID_ARTICULO]);
+end;
+
+function TPedidosProveedor_DetallesBusinessProcessorRules.GetOldID_ARTICULOValue: Integer;
+begin
+ result := BusinessProcessor.CurrentChange.OldValueByName[fld_PedidosProveedor_DetallesID_ARTICULO];
+end;
+
+function TPedidosProveedor_DetallesBusinessProcessorRules.GetOldID_ARTICULOIsNull: Boolean;
+begin
+ result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_PedidosProveedor_DetallesID_ARTICULO]);
+end;
+
+procedure TPedidosProveedor_DetallesBusinessProcessorRules.SetID_ARTICULOValue(const aValue: Integer);
+begin
+ BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosProveedor_DetallesID_ARTICULO] := aValue;
+end;
+
+procedure TPedidosProveedor_DetallesBusinessProcessorRules.SetID_ARTICULOIsNull(const aValue: Boolean);
+begin
+ if aValue then
+ BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosProveedor_DetallesID_ARTICULO] := Null;
+end;
+
+function TPedidosProveedor_DetallesBusinessProcessorRules.GetDESCUENTOValue: Float;
+begin
+ result := BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosProveedor_DetallesDESCUENTO];
+end;
+
+function TPedidosProveedor_DetallesBusinessProcessorRules.GetDESCUENTOIsNull: Boolean;
+begin
+ result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosProveedor_DetallesDESCUENTO]);
+end;
+
+function TPedidosProveedor_DetallesBusinessProcessorRules.GetOldDESCUENTOValue: Float;
+begin
+ result := BusinessProcessor.CurrentChange.OldValueByName[fld_PedidosProveedor_DetallesDESCUENTO];
+end;
+
+function TPedidosProveedor_DetallesBusinessProcessorRules.GetOldDESCUENTOIsNull: Boolean;
+begin
+ result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_PedidosProveedor_DetallesDESCUENTO]);
+end;
+
+procedure TPedidosProveedor_DetallesBusinessProcessorRules.SetDESCUENTOValue(const aValue: Float);
+begin
+ BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosProveedor_DetallesDESCUENTO] := aValue;
+end;
+
+procedure TPedidosProveedor_DetallesBusinessProcessorRules.SetDESCUENTOIsNull(const aValue: Boolean);
+begin
+ if aValue then
+ BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosProveedor_DetallesDESCUENTO] := Null;
+end;
+
+function TPedidosProveedor_DetallesBusinessProcessorRules.GetIMPORTE_PORTEValue: Currency;
+begin
+ result := BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosProveedor_DetallesIMPORTE_PORTE];
+end;
+
+function TPedidosProveedor_DetallesBusinessProcessorRules.GetIMPORTE_PORTEIsNull: Boolean;
+begin
+ result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosProveedor_DetallesIMPORTE_PORTE]);
+end;
+
+function TPedidosProveedor_DetallesBusinessProcessorRules.GetOldIMPORTE_PORTEValue: Currency;
+begin
+ result := BusinessProcessor.CurrentChange.OldValueByName[fld_PedidosProveedor_DetallesIMPORTE_PORTE];
+end;
+
+function TPedidosProveedor_DetallesBusinessProcessorRules.GetOldIMPORTE_PORTEIsNull: Boolean;
+begin
+ result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_PedidosProveedor_DetallesIMPORTE_PORTE]);
+end;
+
+procedure TPedidosProveedor_DetallesBusinessProcessorRules.SetIMPORTE_PORTEValue(const aValue: Currency);
+begin
+ BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosProveedor_DetallesIMPORTE_PORTE] := aValue;
+end;
+
+procedure TPedidosProveedor_DetallesBusinessProcessorRules.SetIMPORTE_PORTEIsNull(const aValue: Boolean);
+begin
+ if aValue then
+ BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosProveedor_DetallesIMPORTE_PORTE] := Null;
+end;
+
+function TPedidosProveedor_DetallesBusinessProcessorRules.GetVALORADOValue: SmallInt;
+begin
+ result := BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosProveedor_DetallesVALORADO];
+end;
+
+function TPedidosProveedor_DetallesBusinessProcessorRules.GetVALORADOIsNull: Boolean;
+begin
+ result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosProveedor_DetallesVALORADO]);
+end;
+
+function TPedidosProveedor_DetallesBusinessProcessorRules.GetOldVALORADOValue: SmallInt;
+begin
+ result := BusinessProcessor.CurrentChange.OldValueByName[fld_PedidosProveedor_DetallesVALORADO];
+end;
+
+function TPedidosProveedor_DetallesBusinessProcessorRules.GetOldVALORADOIsNull: Boolean;
+begin
+ result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_PedidosProveedor_DetallesVALORADO]);
+end;
+
+procedure TPedidosProveedor_DetallesBusinessProcessorRules.SetVALORADOValue(const aValue: SmallInt);
+begin
+ BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosProveedor_DetallesVALORADO] := aValue;
+end;
+
+procedure TPedidosProveedor_DetallesBusinessProcessorRules.SetVALORADOIsNull(const aValue: Boolean);
+begin
+ if aValue then
+ BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosProveedor_DetallesVALORADO] := Null;
+end;
+
+function TPedidosProveedor_DetallesBusinessProcessorRules.GetREFERENCIAValue: String;
+begin
+ result := BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosProveedor_DetallesREFERENCIA];
+end;
+
+function TPedidosProveedor_DetallesBusinessProcessorRules.GetREFERENCIAIsNull: Boolean;
+begin
+ result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosProveedor_DetallesREFERENCIA]);
+end;
+
+function TPedidosProveedor_DetallesBusinessProcessorRules.GetOldREFERENCIAValue: String;
+begin
+ result := BusinessProcessor.CurrentChange.OldValueByName[fld_PedidosProveedor_DetallesREFERENCIA];
+end;
+
+function TPedidosProveedor_DetallesBusinessProcessorRules.GetOldREFERENCIAIsNull: Boolean;
+begin
+ result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_PedidosProveedor_DetallesREFERENCIA]);
+end;
+
+procedure TPedidosProveedor_DetallesBusinessProcessorRules.SetREFERENCIAValue(const aValue: String);
+begin
+ BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosProveedor_DetallesREFERENCIA] := aValue;
+end;
+
+procedure TPedidosProveedor_DetallesBusinessProcessorRules.SetREFERENCIAIsNull(const aValue: Boolean);
+begin
+ if aValue then
+ BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosProveedor_DetallesREFERENCIA] := Null;
+end;
+
+function TPedidosProveedor_DetallesBusinessProcessorRules.GetUNIDAD_MEDIDAValue: String;
+begin
+ result := BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosProveedor_DetallesUNIDAD_MEDIDA];
+end;
+
+function TPedidosProveedor_DetallesBusinessProcessorRules.GetUNIDAD_MEDIDAIsNull: Boolean;
+begin
+ result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosProveedor_DetallesUNIDAD_MEDIDA]);
+end;
+
+function TPedidosProveedor_DetallesBusinessProcessorRules.GetOldUNIDAD_MEDIDAValue: String;
+begin
+ result := BusinessProcessor.CurrentChange.OldValueByName[fld_PedidosProveedor_DetallesUNIDAD_MEDIDA];
+end;
+
+function TPedidosProveedor_DetallesBusinessProcessorRules.GetOldUNIDAD_MEDIDAIsNull: Boolean;
+begin
+ result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_PedidosProveedor_DetallesUNIDAD_MEDIDA]);
+end;
+
+procedure TPedidosProveedor_DetallesBusinessProcessorRules.SetUNIDAD_MEDIDAValue(const aValue: String);
+begin
+ BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosProveedor_DetallesUNIDAD_MEDIDA] := aValue;
+end;
+
+procedure TPedidosProveedor_DetallesBusinessProcessorRules.SetUNIDAD_MEDIDAIsNull(const aValue: Boolean);
+begin
+ if aValue then
+ BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosProveedor_DetallesUNIDAD_MEDIDA] := Null;
+end;
+
+function TPedidosProveedor_DetallesBusinessProcessorRules.GetREFERENCIA_PROVEEDORValue: String;
+begin
+ result := BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosProveedor_DetallesREFERENCIA_PROVEEDOR];
+end;
+
+function TPedidosProveedor_DetallesBusinessProcessorRules.GetREFERENCIA_PROVEEDORIsNull: Boolean;
+begin
+ result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosProveedor_DetallesREFERENCIA_PROVEEDOR]);
+end;
+
+function TPedidosProveedor_DetallesBusinessProcessorRules.GetOldREFERENCIA_PROVEEDORValue: String;
+begin
+ result := BusinessProcessor.CurrentChange.OldValueByName[fld_PedidosProveedor_DetallesREFERENCIA_PROVEEDOR];
+end;
+
+function TPedidosProveedor_DetallesBusinessProcessorRules.GetOldREFERENCIA_PROVEEDORIsNull: Boolean;
+begin
+ result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_PedidosProveedor_DetallesREFERENCIA_PROVEEDOR]);
+end;
+
+procedure TPedidosProveedor_DetallesBusinessProcessorRules.SetREFERENCIA_PROVEEDORValue(const aValue: String);
+begin
+ BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosProveedor_DetallesREFERENCIA_PROVEEDOR] := aValue;
+end;
+
+procedure TPedidosProveedor_DetallesBusinessProcessorRules.SetREFERENCIA_PROVEEDORIsNull(const aValue: Boolean);
+begin
+ if aValue then
+ BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosProveedor_DetallesREFERENCIA_PROVEEDOR] := Null;
+end;
+
+
+{ TPedidosProveedor_Articulos_PendientesBusinessProcessorRules }
+constructor TPedidosProveedor_Articulos_PendientesBusinessProcessorRules.Create(aBusinessProcessor: TDABusinessProcessor);
+begin
+ inherited;
+end;
+
+destructor TPedidosProveedor_Articulos_PendientesBusinessProcessorRules.Destroy;
+begin
+ inherited;
+end;
+
+function TPedidosProveedor_Articulos_PendientesBusinessProcessorRules.GetID_PEDIDOValue: Integer;
+begin
+ result := BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosProveedor_Articulos_PendientesID_PEDIDO];
+end;
+
+function TPedidosProveedor_Articulos_PendientesBusinessProcessorRules.GetID_PEDIDOIsNull: Boolean;
+begin
+ result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosProveedor_Articulos_PendientesID_PEDIDO]);
+end;
+
+function TPedidosProveedor_Articulos_PendientesBusinessProcessorRules.GetOldID_PEDIDOValue: Integer;
+begin
+ result := BusinessProcessor.CurrentChange.OldValueByName[fld_PedidosProveedor_Articulos_PendientesID_PEDIDO];
+end;
+
+function TPedidosProveedor_Articulos_PendientesBusinessProcessorRules.GetOldID_PEDIDOIsNull: Boolean;
+begin
+ result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_PedidosProveedor_Articulos_PendientesID_PEDIDO]);
+end;
+
+procedure TPedidosProveedor_Articulos_PendientesBusinessProcessorRules.SetID_PEDIDOValue(const aValue: Integer);
+begin
+ BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosProveedor_Articulos_PendientesID_PEDIDO] := aValue;
+end;
+
+procedure TPedidosProveedor_Articulos_PendientesBusinessProcessorRules.SetID_PEDIDOIsNull(const aValue: Boolean);
+begin
+ if aValue then
+ BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosProveedor_Articulos_PendientesID_PEDIDO] := Null;
+end;
+
+function TPedidosProveedor_Articulos_PendientesBusinessProcessorRules.GetREFERENCIAValue: String;
+begin
+ result := BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosProveedor_Articulos_PendientesREFERENCIA];
+end;
+
+function TPedidosProveedor_Articulos_PendientesBusinessProcessorRules.GetREFERENCIAIsNull: Boolean;
+begin
+ result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosProveedor_Articulos_PendientesREFERENCIA]);
+end;
+
+function TPedidosProveedor_Articulos_PendientesBusinessProcessorRules.GetOldREFERENCIAValue: String;
+begin
+ result := BusinessProcessor.CurrentChange.OldValueByName[fld_PedidosProveedor_Articulos_PendientesREFERENCIA];
+end;
+
+function TPedidosProveedor_Articulos_PendientesBusinessProcessorRules.GetOldREFERENCIAIsNull: Boolean;
+begin
+ result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_PedidosProveedor_Articulos_PendientesREFERENCIA]);
+end;
+
+procedure TPedidosProveedor_Articulos_PendientesBusinessProcessorRules.SetREFERENCIAValue(const aValue: String);
+begin
+ BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosProveedor_Articulos_PendientesREFERENCIA] := aValue;
+end;
+
+procedure TPedidosProveedor_Articulos_PendientesBusinessProcessorRules.SetREFERENCIAIsNull(const aValue: Boolean);
+begin
+ if aValue then
+ BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosProveedor_Articulos_PendientesREFERENCIA] := Null;
+end;
+
+function TPedidosProveedor_Articulos_PendientesBusinessProcessorRules.GetID_ARTICULOValue: Integer;
+begin
+ result := BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosProveedor_Articulos_PendientesID_ARTICULO];
+end;
+
+function TPedidosProveedor_Articulos_PendientesBusinessProcessorRules.GetID_ARTICULOIsNull: Boolean;
+begin
+ result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosProveedor_Articulos_PendientesID_ARTICULO]);
+end;
+
+function TPedidosProveedor_Articulos_PendientesBusinessProcessorRules.GetOldID_ARTICULOValue: Integer;
+begin
+ result := BusinessProcessor.CurrentChange.OldValueByName[fld_PedidosProveedor_Articulos_PendientesID_ARTICULO];
+end;
+
+function TPedidosProveedor_Articulos_PendientesBusinessProcessorRules.GetOldID_ARTICULOIsNull: Boolean;
+begin
+ result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_PedidosProveedor_Articulos_PendientesID_ARTICULO]);
+end;
+
+procedure TPedidosProveedor_Articulos_PendientesBusinessProcessorRules.SetID_ARTICULOValue(const aValue: Integer);
+begin
+ BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosProveedor_Articulos_PendientesID_ARTICULO] := aValue;
+end;
+
+procedure TPedidosProveedor_Articulos_PendientesBusinessProcessorRules.SetID_ARTICULOIsNull(const aValue: Boolean);
+begin
+ if aValue then
+ BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosProveedor_Articulos_PendientesID_ARTICULO] := Null;
+end;
+
+function TPedidosProveedor_Articulos_PendientesBusinessProcessorRules.GetCONCEPTOValue: String;
+begin
+ result := BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosProveedor_Articulos_PendientesCONCEPTO];
+end;
+
+function TPedidosProveedor_Articulos_PendientesBusinessProcessorRules.GetCONCEPTOIsNull: Boolean;
+begin
+ result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosProveedor_Articulos_PendientesCONCEPTO]);
+end;
+
+function TPedidosProveedor_Articulos_PendientesBusinessProcessorRules.GetOldCONCEPTOValue: String;
+begin
+ result := BusinessProcessor.CurrentChange.OldValueByName[fld_PedidosProveedor_Articulos_PendientesCONCEPTO];
+end;
+
+function TPedidosProveedor_Articulos_PendientesBusinessProcessorRules.GetOldCONCEPTOIsNull: Boolean;
+begin
+ result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_PedidosProveedor_Articulos_PendientesCONCEPTO]);
+end;
+
+procedure TPedidosProveedor_Articulos_PendientesBusinessProcessorRules.SetCONCEPTOValue(const aValue: String);
+begin
+ BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosProveedor_Articulos_PendientesCONCEPTO] := aValue;
+end;
+
+procedure TPedidosProveedor_Articulos_PendientesBusinessProcessorRules.SetCONCEPTOIsNull(const aValue: Boolean);
+begin
+ if aValue then
+ BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosProveedor_Articulos_PendientesCONCEPTO] := Null;
+end;
+
+function TPedidosProveedor_Articulos_PendientesBusinessProcessorRules.GetCANTIDADValue: Currency;
+begin
+ result := BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosProveedor_Articulos_PendientesCANTIDAD];
+end;
+
+function TPedidosProveedor_Articulos_PendientesBusinessProcessorRules.GetCANTIDADIsNull: Boolean;
+begin
+ result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosProveedor_Articulos_PendientesCANTIDAD]);
+end;
+
+function TPedidosProveedor_Articulos_PendientesBusinessProcessorRules.GetOldCANTIDADValue: Currency;
+begin
+ result := BusinessProcessor.CurrentChange.OldValueByName[fld_PedidosProveedor_Articulos_PendientesCANTIDAD];
+end;
+
+function TPedidosProveedor_Articulos_PendientesBusinessProcessorRules.GetOldCANTIDADIsNull: Boolean;
+begin
+ result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_PedidosProveedor_Articulos_PendientesCANTIDAD]);
+end;
+
+procedure TPedidosProveedor_Articulos_PendientesBusinessProcessorRules.SetCANTIDADValue(const aValue: Currency);
+begin
+ BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosProveedor_Articulos_PendientesCANTIDAD] := aValue;
+end;
+
+procedure TPedidosProveedor_Articulos_PendientesBusinessProcessorRules.SetCANTIDADIsNull(const aValue: Boolean);
+begin
+ if aValue then
+ BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosProveedor_Articulos_PendientesCANTIDAD] := Null;
+end;
+
+function TPedidosProveedor_Articulos_PendientesBusinessProcessorRules.GetREFERENCIA_PROVEEDORValue: String;
+begin
+ result := BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosProveedor_Articulos_PendientesREFERENCIA_PROVEEDOR];
+end;
+
+function TPedidosProveedor_Articulos_PendientesBusinessProcessorRules.GetREFERENCIA_PROVEEDORIsNull: Boolean;
+begin
+ result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosProveedor_Articulos_PendientesREFERENCIA_PROVEEDOR]);
+end;
+
+function TPedidosProveedor_Articulos_PendientesBusinessProcessorRules.GetOldREFERENCIA_PROVEEDORValue: String;
+begin
+ result := BusinessProcessor.CurrentChange.OldValueByName[fld_PedidosProveedor_Articulos_PendientesREFERENCIA_PROVEEDOR];
+end;
+
+function TPedidosProveedor_Articulos_PendientesBusinessProcessorRules.GetOldREFERENCIA_PROVEEDORIsNull: Boolean;
+begin
+ result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_PedidosProveedor_Articulos_PendientesREFERENCIA_PROVEEDOR]);
+end;
+
+procedure TPedidosProveedor_Articulos_PendientesBusinessProcessorRules.SetREFERENCIA_PROVEEDORValue(const aValue: String);
+begin
+ BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosProveedor_Articulos_PendientesREFERENCIA_PROVEEDOR] := aValue;
+end;
+
+procedure TPedidosProveedor_Articulos_PendientesBusinessProcessorRules.SetREFERENCIA_PROVEEDORIsNull(const aValue: Boolean);
+begin
+ if aValue then
+ BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosProveedor_Articulos_PendientesREFERENCIA_PROVEEDOR] := Null;
+end;
+
+
+{ TPedidosProveedorConArticuloBuscadoBusinessProcessorRules }
+constructor TPedidosProveedorConArticuloBuscadoBusinessProcessorRules.Create(aBusinessProcessor: TDABusinessProcessor);
+var
+ StrList: TStringList;
+begin
+ inherited;
+
+ StrList := TStringList.Create;
+ StrList.OnChange := OBSERVACIONES_OnChange;
+ f_OBSERVACIONES := NewROStrings(StrList,True);
+
+ StrList := TStringList.Create;
+ StrList.OnChange := INCIDENCIAS_OnChange;
+ f_INCIDENCIAS := NewROStrings(StrList,True);
+end;
+
+destructor TPedidosProveedorConArticuloBuscadoBusinessProcessorRules.Destroy;
+begin
+ inherited;
+end;
+
+procedure TPedidosProveedorConArticuloBuscadoBusinessProcessorRules.OBSERVACIONES_OnChange(Sender: TObject);
+begin
+ BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosProveedorConArticuloBuscadoOBSERVACIONES] := TStringList(Sender).Text;
+end;
+
+procedure TPedidosProveedorConArticuloBuscadoBusinessProcessorRules.INCIDENCIAS_OnChange(Sender: TObject);
+begin
+ BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosProveedorConArticuloBuscadoINCIDENCIAS] := TStringList(Sender).Text;
+end;
+
+function TPedidosProveedorConArticuloBuscadoBusinessProcessorRules.GetCONCEPTOValue: String;
+begin
+ result := BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosProveedorConArticuloBuscadoCONCEPTO];
+end;
+
+function TPedidosProveedorConArticuloBuscadoBusinessProcessorRules.GetCONCEPTOIsNull: Boolean;
+begin
+ result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosProveedorConArticuloBuscadoCONCEPTO]);
+end;
+
+function TPedidosProveedorConArticuloBuscadoBusinessProcessorRules.GetOldCONCEPTOValue: String;
+begin
+ result := BusinessProcessor.CurrentChange.OldValueByName[fld_PedidosProveedorConArticuloBuscadoCONCEPTO];
+end;
+
+function TPedidosProveedorConArticuloBuscadoBusinessProcessorRules.GetOldCONCEPTOIsNull: Boolean;
+begin
+ result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_PedidosProveedorConArticuloBuscadoCONCEPTO]);
+end;
+
+procedure TPedidosProveedorConArticuloBuscadoBusinessProcessorRules.SetCONCEPTOValue(const aValue: String);
+begin
+ BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosProveedorConArticuloBuscadoCONCEPTO] := aValue;
+end;
+
+procedure TPedidosProveedorConArticuloBuscadoBusinessProcessorRules.SetCONCEPTOIsNull(const aValue: Boolean);
+begin
+ if aValue then
+ BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosProveedorConArticuloBuscadoCONCEPTO] := Null;
+end;
+
+function TPedidosProveedorConArticuloBuscadoBusinessProcessorRules.GetIDValue: Integer;
+begin
+ result := BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosProveedorConArticuloBuscadoID];
+end;
+
+function TPedidosProveedorConArticuloBuscadoBusinessProcessorRules.GetIDIsNull: Boolean;
+begin
+ result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosProveedorConArticuloBuscadoID]);
+end;
+
+function TPedidosProveedorConArticuloBuscadoBusinessProcessorRules.GetOldIDValue: Integer;
+begin
+ result := BusinessProcessor.CurrentChange.OldValueByName[fld_PedidosProveedorConArticuloBuscadoID];
+end;
+
+function TPedidosProveedorConArticuloBuscadoBusinessProcessorRules.GetOldIDIsNull: Boolean;
+begin
+ result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_PedidosProveedorConArticuloBuscadoID]);
+end;
+
+procedure TPedidosProveedorConArticuloBuscadoBusinessProcessorRules.SetIDValue(const aValue: Integer);
+begin
+ BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosProveedorConArticuloBuscadoID] := aValue;
+end;
+
+procedure TPedidosProveedorConArticuloBuscadoBusinessProcessorRules.SetIDIsNull(const aValue: Boolean);
+begin
+ if aValue then
+ BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosProveedorConArticuloBuscadoID] := Null;
+end;
+
+function TPedidosProveedorConArticuloBuscadoBusinessProcessorRules.GetID_EMPRESAValue: Integer;
+begin
+ result := BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosProveedorConArticuloBuscadoID_EMPRESA];
+end;
+
+function TPedidosProveedorConArticuloBuscadoBusinessProcessorRules.GetID_EMPRESAIsNull: Boolean;
+begin
+ result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosProveedorConArticuloBuscadoID_EMPRESA]);
+end;
+
+function TPedidosProveedorConArticuloBuscadoBusinessProcessorRules.GetOldID_EMPRESAValue: Integer;
+begin
+ result := BusinessProcessor.CurrentChange.OldValueByName[fld_PedidosProveedorConArticuloBuscadoID_EMPRESA];
+end;
+
+function TPedidosProveedorConArticuloBuscadoBusinessProcessorRules.GetOldID_EMPRESAIsNull: Boolean;
+begin
+ result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_PedidosProveedorConArticuloBuscadoID_EMPRESA]);
+end;
+
+procedure TPedidosProveedorConArticuloBuscadoBusinessProcessorRules.SetID_EMPRESAValue(const aValue: Integer);
+begin
+ BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosProveedorConArticuloBuscadoID_EMPRESA] := aValue;
+end;
+
+procedure TPedidosProveedorConArticuloBuscadoBusinessProcessorRules.SetID_EMPRESAIsNull(const aValue: Boolean);
+begin
+ if aValue then
+ BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosProveedorConArticuloBuscadoID_EMPRESA] := Null;
+end;
+
+function TPedidosProveedorConArticuloBuscadoBusinessProcessorRules.GetID_PROVEEDORValue: Integer;
+begin
+ result := BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosProveedorConArticuloBuscadoID_PROVEEDOR];
+end;
+
+function TPedidosProveedorConArticuloBuscadoBusinessProcessorRules.GetID_PROVEEDORIsNull: Boolean;
+begin
+ result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosProveedorConArticuloBuscadoID_PROVEEDOR]);
+end;
+
+function TPedidosProveedorConArticuloBuscadoBusinessProcessorRules.GetOldID_PROVEEDORValue: Integer;
+begin
+ result := BusinessProcessor.CurrentChange.OldValueByName[fld_PedidosProveedorConArticuloBuscadoID_PROVEEDOR];
+end;
+
+function TPedidosProveedorConArticuloBuscadoBusinessProcessorRules.GetOldID_PROVEEDORIsNull: Boolean;
+begin
+ result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_PedidosProveedorConArticuloBuscadoID_PROVEEDOR]);
+end;
+
+procedure TPedidosProveedorConArticuloBuscadoBusinessProcessorRules.SetID_PROVEEDORValue(const aValue: Integer);
+begin
+ BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosProveedorConArticuloBuscadoID_PROVEEDOR] := aValue;
+end;
+
+procedure TPedidosProveedorConArticuloBuscadoBusinessProcessorRules.SetID_PROVEEDORIsNull(const aValue: Boolean);
+begin
+ if aValue then
+ BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosProveedorConArticuloBuscadoID_PROVEEDOR] := Null;
+end;
+
+function TPedidosProveedorConArticuloBuscadoBusinessProcessorRules.GetNOMBREValue: String;
+begin
+ result := BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosProveedorConArticuloBuscadoNOMBRE];
+end;
+
+function TPedidosProveedorConArticuloBuscadoBusinessProcessorRules.GetNOMBREIsNull: Boolean;
+begin
+ result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosProveedorConArticuloBuscadoNOMBRE]);
+end;
+
+function TPedidosProveedorConArticuloBuscadoBusinessProcessorRules.GetOldNOMBREValue: String;
+begin
+ result := BusinessProcessor.CurrentChange.OldValueByName[fld_PedidosProveedorConArticuloBuscadoNOMBRE];
+end;
+
+function TPedidosProveedorConArticuloBuscadoBusinessProcessorRules.GetOldNOMBREIsNull: Boolean;
+begin
+ result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_PedidosProveedorConArticuloBuscadoNOMBRE]);
+end;
+
+procedure TPedidosProveedorConArticuloBuscadoBusinessProcessorRules.SetNOMBREValue(const aValue: String);
+begin
+ BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosProveedorConArticuloBuscadoNOMBRE] := aValue;
+end;
+
+procedure TPedidosProveedorConArticuloBuscadoBusinessProcessorRules.SetNOMBREIsNull(const aValue: Boolean);
+begin
+ if aValue then
+ BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosProveedorConArticuloBuscadoNOMBRE] := Null;
+end;
+
+function TPedidosProveedorConArticuloBuscadoBusinessProcessorRules.GetNOMBRE_COMERCIALValue: String;
+begin
+ result := BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosProveedorConArticuloBuscadoNOMBRE_COMERCIAL];
+end;
+
+function TPedidosProveedorConArticuloBuscadoBusinessProcessorRules.GetNOMBRE_COMERCIALIsNull: Boolean;
+begin
+ result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosProveedorConArticuloBuscadoNOMBRE_COMERCIAL]);
+end;
+
+function TPedidosProveedorConArticuloBuscadoBusinessProcessorRules.GetOldNOMBRE_COMERCIALValue: String;
+begin
+ result := BusinessProcessor.CurrentChange.OldValueByName[fld_PedidosProveedorConArticuloBuscadoNOMBRE_COMERCIAL];
+end;
+
+function TPedidosProveedorConArticuloBuscadoBusinessProcessorRules.GetOldNOMBRE_COMERCIALIsNull: Boolean;
+begin
+ result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_PedidosProveedorConArticuloBuscadoNOMBRE_COMERCIAL]);
+end;
+
+procedure TPedidosProveedorConArticuloBuscadoBusinessProcessorRules.SetNOMBRE_COMERCIALValue(const aValue: String);
+begin
+ BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosProveedorConArticuloBuscadoNOMBRE_COMERCIAL] := aValue;
+end;
+
+procedure TPedidosProveedorConArticuloBuscadoBusinessProcessorRules.SetNOMBRE_COMERCIALIsNull(const aValue: Boolean);
+begin
+ if aValue then
+ BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosProveedorConArticuloBuscadoNOMBRE_COMERCIAL] := Null;
+end;
+
+function TPedidosProveedorConArticuloBuscadoBusinessProcessorRules.GetREFERENCIAValue: String;
+begin
+ result := BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosProveedorConArticuloBuscadoREFERENCIA];
+end;
+
+function TPedidosProveedorConArticuloBuscadoBusinessProcessorRules.GetREFERENCIAIsNull: Boolean;
+begin
+ result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosProveedorConArticuloBuscadoREFERENCIA]);
+end;
+
+function TPedidosProveedorConArticuloBuscadoBusinessProcessorRules.GetOldREFERENCIAValue: String;
+begin
+ result := BusinessProcessor.CurrentChange.OldValueByName[fld_PedidosProveedorConArticuloBuscadoREFERENCIA];
+end;
+
+function TPedidosProveedorConArticuloBuscadoBusinessProcessorRules.GetOldREFERENCIAIsNull: Boolean;
+begin
+ result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_PedidosProveedorConArticuloBuscadoREFERENCIA]);
+end;
+
+procedure TPedidosProveedorConArticuloBuscadoBusinessProcessorRules.SetREFERENCIAValue(const aValue: String);
+begin
+ BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosProveedorConArticuloBuscadoREFERENCIA] := aValue;
+end;
+
+procedure TPedidosProveedorConArticuloBuscadoBusinessProcessorRules.SetREFERENCIAIsNull(const aValue: Boolean);
+begin
+ if aValue then
+ BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosProveedorConArticuloBuscadoREFERENCIA] := Null;
+end;
+
+function TPedidosProveedorConArticuloBuscadoBusinessProcessorRules.GetSITUACIONValue: String;
+begin
+ result := BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosProveedorConArticuloBuscadoSITUACION];
+end;
+
+function TPedidosProveedorConArticuloBuscadoBusinessProcessorRules.GetSITUACIONIsNull: Boolean;
+begin
+ result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosProveedorConArticuloBuscadoSITUACION]);
+end;
+
+function TPedidosProveedorConArticuloBuscadoBusinessProcessorRules.GetOldSITUACIONValue: String;
+begin
+ result := BusinessProcessor.CurrentChange.OldValueByName[fld_PedidosProveedorConArticuloBuscadoSITUACION];
+end;
+
+function TPedidosProveedorConArticuloBuscadoBusinessProcessorRules.GetOldSITUACIONIsNull: Boolean;
+begin
+ result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_PedidosProveedorConArticuloBuscadoSITUACION]);
+end;
+
+procedure TPedidosProveedorConArticuloBuscadoBusinessProcessorRules.SetSITUACIONValue(const aValue: String);
+begin
+ BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosProveedorConArticuloBuscadoSITUACION] := aValue;
+end;
+
+procedure TPedidosProveedorConArticuloBuscadoBusinessProcessorRules.SetSITUACIONIsNull(const aValue: Boolean);
+begin
+ if aValue then
+ BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosProveedorConArticuloBuscadoSITUACION] := Null;
+end;
+
+function TPedidosProveedorConArticuloBuscadoBusinessProcessorRules.GetFECHA_ENVIOValue: DateTime;
+begin
+ result := BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosProveedorConArticuloBuscadoFECHA_ENVIO];
+end;
+
+function TPedidosProveedorConArticuloBuscadoBusinessProcessorRules.GetFECHA_ENVIOIsNull: Boolean;
+begin
+ result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosProveedorConArticuloBuscadoFECHA_ENVIO]);
+end;
+
+function TPedidosProveedorConArticuloBuscadoBusinessProcessorRules.GetOldFECHA_ENVIOValue: DateTime;
+begin
+ result := BusinessProcessor.CurrentChange.OldValueByName[fld_PedidosProveedorConArticuloBuscadoFECHA_ENVIO];
+end;
+
+function TPedidosProveedorConArticuloBuscadoBusinessProcessorRules.GetOldFECHA_ENVIOIsNull: Boolean;
+begin
+ result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_PedidosProveedorConArticuloBuscadoFECHA_ENVIO]);
+end;
+
+procedure TPedidosProveedorConArticuloBuscadoBusinessProcessorRules.SetFECHA_ENVIOValue(const aValue: DateTime);
+begin
+ BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosProveedorConArticuloBuscadoFECHA_ENVIO] := aValue;
+end;
+
+procedure TPedidosProveedorConArticuloBuscadoBusinessProcessorRules.SetFECHA_ENVIOIsNull(const aValue: Boolean);
+begin
+ if aValue then
+ BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosProveedorConArticuloBuscadoFECHA_ENVIO] := Null;
+end;
+
+function TPedidosProveedorConArticuloBuscadoBusinessProcessorRules.GetFECHA_PEDIDOValue: DateTime;
+begin
+ result := BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosProveedorConArticuloBuscadoFECHA_PEDIDO];
+end;
+
+function TPedidosProveedorConArticuloBuscadoBusinessProcessorRules.GetFECHA_PEDIDOIsNull: Boolean;
+begin
+ result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosProveedorConArticuloBuscadoFECHA_PEDIDO]);
+end;
+
+function TPedidosProveedorConArticuloBuscadoBusinessProcessorRules.GetOldFECHA_PEDIDOValue: DateTime;
+begin
+ result := BusinessProcessor.CurrentChange.OldValueByName[fld_PedidosProveedorConArticuloBuscadoFECHA_PEDIDO];
+end;
+
+function TPedidosProveedorConArticuloBuscadoBusinessProcessorRules.GetOldFECHA_PEDIDOIsNull: Boolean;
+begin
+ result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_PedidosProveedorConArticuloBuscadoFECHA_PEDIDO]);
+end;
+
+procedure TPedidosProveedorConArticuloBuscadoBusinessProcessorRules.SetFECHA_PEDIDOValue(const aValue: DateTime);
+begin
+ BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosProveedorConArticuloBuscadoFECHA_PEDIDO] := aValue;
+end;
+
+procedure TPedidosProveedorConArticuloBuscadoBusinessProcessorRules.SetFECHA_PEDIDOIsNull(const aValue: Boolean);
+begin
+ if aValue then
+ BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosProveedorConArticuloBuscadoFECHA_PEDIDO] := Null;
+end;
+
+function TPedidosProveedorConArticuloBuscadoBusinessProcessorRules.GetFECHA_CONFIRMACIONValue: DateTime;
+begin
+ result := BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosProveedorConArticuloBuscadoFECHA_CONFIRMACION];
+end;
+
+function TPedidosProveedorConArticuloBuscadoBusinessProcessorRules.GetFECHA_CONFIRMACIONIsNull: Boolean;
+begin
+ result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosProveedorConArticuloBuscadoFECHA_CONFIRMACION]);
+end;
+
+function TPedidosProveedorConArticuloBuscadoBusinessProcessorRules.GetOldFECHA_CONFIRMACIONValue: DateTime;
+begin
+ result := BusinessProcessor.CurrentChange.OldValueByName[fld_PedidosProveedorConArticuloBuscadoFECHA_CONFIRMACION];
+end;
+
+function TPedidosProveedorConArticuloBuscadoBusinessProcessorRules.GetOldFECHA_CONFIRMACIONIsNull: Boolean;
+begin
+ result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_PedidosProveedorConArticuloBuscadoFECHA_CONFIRMACION]);
+end;
+
+procedure TPedidosProveedorConArticuloBuscadoBusinessProcessorRules.SetFECHA_CONFIRMACIONValue(const aValue: DateTime);
+begin
+ BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosProveedorConArticuloBuscadoFECHA_CONFIRMACION] := aValue;
+end;
+
+procedure TPedidosProveedorConArticuloBuscadoBusinessProcessorRules.SetFECHA_CONFIRMACIONIsNull(const aValue: Boolean);
+begin
+ if aValue then
+ BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosProveedorConArticuloBuscadoFECHA_CONFIRMACION] := Null;
+end;
+
+function TPedidosProveedorConArticuloBuscadoBusinessProcessorRules.GetFECHA_ENTREGAValue: DateTime;
+begin
+ result := BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosProveedorConArticuloBuscadoFECHA_ENTREGA];
+end;
+
+function TPedidosProveedorConArticuloBuscadoBusinessProcessorRules.GetFECHA_ENTREGAIsNull: Boolean;
+begin
+ result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosProveedorConArticuloBuscadoFECHA_ENTREGA]);
+end;
+
+function TPedidosProveedorConArticuloBuscadoBusinessProcessorRules.GetOldFECHA_ENTREGAValue: DateTime;
+begin
+ result := BusinessProcessor.CurrentChange.OldValueByName[fld_PedidosProveedorConArticuloBuscadoFECHA_ENTREGA];
+end;
+
+function TPedidosProveedorConArticuloBuscadoBusinessProcessorRules.GetOldFECHA_ENTREGAIsNull: Boolean;
+begin
+ result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_PedidosProveedorConArticuloBuscadoFECHA_ENTREGA]);
+end;
+
+procedure TPedidosProveedorConArticuloBuscadoBusinessProcessorRules.SetFECHA_ENTREGAValue(const aValue: DateTime);
+begin
+ BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosProveedorConArticuloBuscadoFECHA_ENTREGA] := aValue;
+end;
+
+procedure TPedidosProveedorConArticuloBuscadoBusinessProcessorRules.SetFECHA_ENTREGAIsNull(const aValue: Boolean);
+begin
+ if aValue then
+ BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosProveedorConArticuloBuscadoFECHA_ENTREGA] := Null;
+end;
+
+function TPedidosProveedorConArticuloBuscadoBusinessProcessorRules.GetID_ALMACENValue: Integer;
+begin
+ result := BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosProveedorConArticuloBuscadoID_ALMACEN];
+end;
+
+function TPedidosProveedorConArticuloBuscadoBusinessProcessorRules.GetID_ALMACENIsNull: Boolean;
+begin
+ result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosProveedorConArticuloBuscadoID_ALMACEN]);
+end;
+
+function TPedidosProveedorConArticuloBuscadoBusinessProcessorRules.GetOldID_ALMACENValue: Integer;
+begin
+ result := BusinessProcessor.CurrentChange.OldValueByName[fld_PedidosProveedorConArticuloBuscadoID_ALMACEN];
+end;
+
+function TPedidosProveedorConArticuloBuscadoBusinessProcessorRules.GetOldID_ALMACENIsNull: Boolean;
+begin
+ result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_PedidosProveedorConArticuloBuscadoID_ALMACEN]);
+end;
+
+procedure TPedidosProveedorConArticuloBuscadoBusinessProcessorRules.SetID_ALMACENValue(const aValue: Integer);
+begin
+ BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosProveedorConArticuloBuscadoID_ALMACEN] := aValue;
+end;
+
+procedure TPedidosProveedorConArticuloBuscadoBusinessProcessorRules.SetID_ALMACENIsNull(const aValue: Boolean);
+begin
+ if aValue then
+ BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosProveedorConArticuloBuscadoID_ALMACEN] := Null;
+end;
+
+function TPedidosProveedorConArticuloBuscadoBusinessProcessorRules.GetNOMBRE_ALMACENValue: String;
+begin
+ result := BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosProveedorConArticuloBuscadoNOMBRE_ALMACEN];
+end;
+
+function TPedidosProveedorConArticuloBuscadoBusinessProcessorRules.GetNOMBRE_ALMACENIsNull: Boolean;
+begin
+ result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosProveedorConArticuloBuscadoNOMBRE_ALMACEN]);
+end;
+
+function TPedidosProveedorConArticuloBuscadoBusinessProcessorRules.GetOldNOMBRE_ALMACENValue: String;
+begin
+ result := BusinessProcessor.CurrentChange.OldValueByName[fld_PedidosProveedorConArticuloBuscadoNOMBRE_ALMACEN];
+end;
+
+function TPedidosProveedorConArticuloBuscadoBusinessProcessorRules.GetOldNOMBRE_ALMACENIsNull: Boolean;
+begin
+ result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_PedidosProveedorConArticuloBuscadoNOMBRE_ALMACEN]);
+end;
+
+procedure TPedidosProveedorConArticuloBuscadoBusinessProcessorRules.SetNOMBRE_ALMACENValue(const aValue: String);
+begin
+ BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosProveedorConArticuloBuscadoNOMBRE_ALMACEN] := aValue;
+end;
+
+procedure TPedidosProveedorConArticuloBuscadoBusinessProcessorRules.SetNOMBRE_ALMACENIsNull(const aValue: Boolean);
+begin
+ if aValue then
+ BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosProveedorConArticuloBuscadoNOMBRE_ALMACEN] := Null;
+end;
+
+function TPedidosProveedorConArticuloBuscadoBusinessProcessorRules.GetOBSERVACIONESValue: IROStrings;
+begin
+ result := f_OBSERVACIONES;
+ result.Text := BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosProveedorConArticuloBuscadoOBSERVACIONES];
+end;
+
+function TPedidosProveedorConArticuloBuscadoBusinessProcessorRules.GetOBSERVACIONESIsNull: Boolean;
+begin
+ result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosProveedorConArticuloBuscadoOBSERVACIONES]);
+end;
+
+function TPedidosProveedorConArticuloBuscadoBusinessProcessorRules.GetOldOBSERVACIONESValue: IROStrings;
+begin
+ result := NewROStrings();
+ result.Text := BusinessProcessor.CurrentChange.OldValueByName[fld_PedidosProveedorConArticuloBuscadoOBSERVACIONES];
+end;
+
+function TPedidosProveedorConArticuloBuscadoBusinessProcessorRules.GetOldOBSERVACIONESIsNull: Boolean;
+begin
+ result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_PedidosProveedorConArticuloBuscadoOBSERVACIONES]);
+end;
+
+procedure TPedidosProveedorConArticuloBuscadoBusinessProcessorRules.SetOBSERVACIONESIsNull(const aValue: Boolean);
+begin
+ if aValue then
+ BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosProveedorConArticuloBuscadoOBSERVACIONES] := Null;
+end;
+
+function TPedidosProveedorConArticuloBuscadoBusinessProcessorRules.GetIMPORTE_TOTALValue: Currency;
+begin
+ result := BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosProveedorConArticuloBuscadoIMPORTE_TOTAL];
+end;
+
+function TPedidosProveedorConArticuloBuscadoBusinessProcessorRules.GetIMPORTE_TOTALIsNull: Boolean;
+begin
+ result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosProveedorConArticuloBuscadoIMPORTE_TOTAL]);
+end;
+
+function TPedidosProveedorConArticuloBuscadoBusinessProcessorRules.GetOldIMPORTE_TOTALValue: Currency;
+begin
+ result := BusinessProcessor.CurrentChange.OldValueByName[fld_PedidosProveedorConArticuloBuscadoIMPORTE_TOTAL];
+end;
+
+function TPedidosProveedorConArticuloBuscadoBusinessProcessorRules.GetOldIMPORTE_TOTALIsNull: Boolean;
+begin
+ result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_PedidosProveedorConArticuloBuscadoIMPORTE_TOTAL]);
+end;
+
+procedure TPedidosProveedorConArticuloBuscadoBusinessProcessorRules.SetIMPORTE_TOTALValue(const aValue: Currency);
+begin
+ BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosProveedorConArticuloBuscadoIMPORTE_TOTAL] := aValue;
+end;
+
+procedure TPedidosProveedorConArticuloBuscadoBusinessProcessorRules.SetIMPORTE_TOTALIsNull(const aValue: Boolean);
+begin
+ if aValue then
+ BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosProveedorConArticuloBuscadoIMPORTE_TOTAL] := Null;
+end;
+
+function TPedidosProveedorConArticuloBuscadoBusinessProcessorRules.GetINCIDENCIASValue: IROStrings;
+begin
+ result := f_INCIDENCIAS;
+ result.Text := BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosProveedorConArticuloBuscadoINCIDENCIAS];
+end;
+
+function TPedidosProveedorConArticuloBuscadoBusinessProcessorRules.GetINCIDENCIASIsNull: Boolean;
+begin
+ result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosProveedorConArticuloBuscadoINCIDENCIAS]);
+end;
+
+function TPedidosProveedorConArticuloBuscadoBusinessProcessorRules.GetOldINCIDENCIASValue: IROStrings;
+begin
+ result := NewROStrings();
+ result.Text := BusinessProcessor.CurrentChange.OldValueByName[fld_PedidosProveedorConArticuloBuscadoINCIDENCIAS];
+end;
+
+function TPedidosProveedorConArticuloBuscadoBusinessProcessorRules.GetOldINCIDENCIASIsNull: Boolean;
+begin
+ result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_PedidosProveedorConArticuloBuscadoINCIDENCIAS]);
+end;
+
+procedure TPedidosProveedorConArticuloBuscadoBusinessProcessorRules.SetINCIDENCIASIsNull(const aValue: Boolean);
+begin
+ if aValue then
+ BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosProveedorConArticuloBuscadoINCIDENCIAS] := Null;
+end;
+
+function TPedidosProveedorConArticuloBuscadoBusinessProcessorRules.GetINCIDENCIAS_ACTIVASValue: Integer;
+begin
+ result := BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosProveedorConArticuloBuscadoINCIDENCIAS_ACTIVAS];
+end;
+
+function TPedidosProveedorConArticuloBuscadoBusinessProcessorRules.GetINCIDENCIAS_ACTIVASIsNull: Boolean;
+begin
+ result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosProveedorConArticuloBuscadoINCIDENCIAS_ACTIVAS]);
+end;
+
+function TPedidosProveedorConArticuloBuscadoBusinessProcessorRules.GetOldINCIDENCIAS_ACTIVASValue: Integer;
+begin
+ result := BusinessProcessor.CurrentChange.OldValueByName[fld_PedidosProveedorConArticuloBuscadoINCIDENCIAS_ACTIVAS];
+end;
+
+function TPedidosProveedorConArticuloBuscadoBusinessProcessorRules.GetOldINCIDENCIAS_ACTIVASIsNull: Boolean;
+begin
+ result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_PedidosProveedorConArticuloBuscadoINCIDENCIAS_ACTIVAS]);
+end;
+
+procedure TPedidosProveedorConArticuloBuscadoBusinessProcessorRules.SetINCIDENCIAS_ACTIVASValue(const aValue: Integer);
+begin
+ BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosProveedorConArticuloBuscadoINCIDENCIAS_ACTIVAS] := aValue;
+end;
+
+procedure TPedidosProveedorConArticuloBuscadoBusinessProcessorRules.SetINCIDENCIAS_ACTIVASIsNull(const aValue: Boolean);
+begin
+ if aValue then
+ BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosProveedorConArticuloBuscadoINCIDENCIAS_ACTIVAS] := Null;
+end;
+
+function TPedidosProveedorConArticuloBuscadoBusinessProcessorRules.GetCALLEValue: String;
+begin
+ result := BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosProveedorConArticuloBuscadoCALLE];
+end;
+
+function TPedidosProveedorConArticuloBuscadoBusinessProcessorRules.GetCALLEIsNull: Boolean;
+begin
+ result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosProveedorConArticuloBuscadoCALLE]);
+end;
+
+function TPedidosProveedorConArticuloBuscadoBusinessProcessorRules.GetOldCALLEValue: String;
+begin
+ result := BusinessProcessor.CurrentChange.OldValueByName[fld_PedidosProveedorConArticuloBuscadoCALLE];
+end;
+
+function TPedidosProveedorConArticuloBuscadoBusinessProcessorRules.GetOldCALLEIsNull: Boolean;
+begin
+ result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_PedidosProveedorConArticuloBuscadoCALLE]);
+end;
+
+procedure TPedidosProveedorConArticuloBuscadoBusinessProcessorRules.SetCALLEValue(const aValue: String);
+begin
+ BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosProveedorConArticuloBuscadoCALLE] := aValue;
+end;
+
+procedure TPedidosProveedorConArticuloBuscadoBusinessProcessorRules.SetCALLEIsNull(const aValue: Boolean);
+begin
+ if aValue then
+ BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosProveedorConArticuloBuscadoCALLE] := Null;
+end;
+
+function TPedidosProveedorConArticuloBuscadoBusinessProcessorRules.GetPOBLACIONValue: String;
+begin
+ result := BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosProveedorConArticuloBuscadoPOBLACION];
+end;
+
+function TPedidosProveedorConArticuloBuscadoBusinessProcessorRules.GetPOBLACIONIsNull: Boolean;
+begin
+ result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosProveedorConArticuloBuscadoPOBLACION]);
+end;
+
+function TPedidosProveedorConArticuloBuscadoBusinessProcessorRules.GetOldPOBLACIONValue: String;
+begin
+ result := BusinessProcessor.CurrentChange.OldValueByName[fld_PedidosProveedorConArticuloBuscadoPOBLACION];
+end;
+
+function TPedidosProveedorConArticuloBuscadoBusinessProcessorRules.GetOldPOBLACIONIsNull: Boolean;
+begin
+ result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_PedidosProveedorConArticuloBuscadoPOBLACION]);
+end;
+
+procedure TPedidosProveedorConArticuloBuscadoBusinessProcessorRules.SetPOBLACIONValue(const aValue: String);
+begin
+ BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosProveedorConArticuloBuscadoPOBLACION] := aValue;
+end;
+
+procedure TPedidosProveedorConArticuloBuscadoBusinessProcessorRules.SetPOBLACIONIsNull(const aValue: Boolean);
+begin
+ if aValue then
+ BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosProveedorConArticuloBuscadoPOBLACION] := Null;
+end;
+
+function TPedidosProveedorConArticuloBuscadoBusinessProcessorRules.GetPROVINCIAValue: String;
+begin
+ result := BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosProveedorConArticuloBuscadoPROVINCIA];
+end;
+
+function TPedidosProveedorConArticuloBuscadoBusinessProcessorRules.GetPROVINCIAIsNull: Boolean;
+begin
+ result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosProveedorConArticuloBuscadoPROVINCIA]);
+end;
+
+function TPedidosProveedorConArticuloBuscadoBusinessProcessorRules.GetOldPROVINCIAValue: String;
+begin
+ result := BusinessProcessor.CurrentChange.OldValueByName[fld_PedidosProveedorConArticuloBuscadoPROVINCIA];
+end;
+
+function TPedidosProveedorConArticuloBuscadoBusinessProcessorRules.GetOldPROVINCIAIsNull: Boolean;
+begin
+ result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_PedidosProveedorConArticuloBuscadoPROVINCIA]);
+end;
+
+procedure TPedidosProveedorConArticuloBuscadoBusinessProcessorRules.SetPROVINCIAValue(const aValue: String);
+begin
+ BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosProveedorConArticuloBuscadoPROVINCIA] := aValue;
+end;
+
+procedure TPedidosProveedorConArticuloBuscadoBusinessProcessorRules.SetPROVINCIAIsNull(const aValue: Boolean);
+begin
+ if aValue then
+ BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosProveedorConArticuloBuscadoPROVINCIA] := Null;
+end;
+
+function TPedidosProveedorConArticuloBuscadoBusinessProcessorRules.GetCODIGO_POSTALValue: String;
+begin
+ result := BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosProveedorConArticuloBuscadoCODIGO_POSTAL];
+end;
+
+function TPedidosProveedorConArticuloBuscadoBusinessProcessorRules.GetCODIGO_POSTALIsNull: Boolean;
+begin
+ result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosProveedorConArticuloBuscadoCODIGO_POSTAL]);
+end;
+
+function TPedidosProveedorConArticuloBuscadoBusinessProcessorRules.GetOldCODIGO_POSTALValue: String;
+begin
+ result := BusinessProcessor.CurrentChange.OldValueByName[fld_PedidosProveedorConArticuloBuscadoCODIGO_POSTAL];
+end;
+
+function TPedidosProveedorConArticuloBuscadoBusinessProcessorRules.GetOldCODIGO_POSTALIsNull: Boolean;
+begin
+ result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_PedidosProveedorConArticuloBuscadoCODIGO_POSTAL]);
+end;
+
+procedure TPedidosProveedorConArticuloBuscadoBusinessProcessorRules.SetCODIGO_POSTALValue(const aValue: String);
+begin
+ BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosProveedorConArticuloBuscadoCODIGO_POSTAL] := aValue;
+end;
+
+procedure TPedidosProveedorConArticuloBuscadoBusinessProcessorRules.SetCODIGO_POSTALIsNull(const aValue: Boolean);
+begin
+ if aValue then
+ BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosProveedorConArticuloBuscadoCODIGO_POSTAL] := Null;
+end;
+
+function TPedidosProveedorConArticuloBuscadoBusinessProcessorRules.GetPERSONA_CONTACTOValue: String;
+begin
+ result := BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosProveedorConArticuloBuscadoPERSONA_CONTACTO];
+end;
+
+function TPedidosProveedorConArticuloBuscadoBusinessProcessorRules.GetPERSONA_CONTACTOIsNull: Boolean;
+begin
+ result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosProveedorConArticuloBuscadoPERSONA_CONTACTO]);
+end;
+
+function TPedidosProveedorConArticuloBuscadoBusinessProcessorRules.GetOldPERSONA_CONTACTOValue: String;
+begin
+ result := BusinessProcessor.CurrentChange.OldValueByName[fld_PedidosProveedorConArticuloBuscadoPERSONA_CONTACTO];
+end;
+
+function TPedidosProveedorConArticuloBuscadoBusinessProcessorRules.GetOldPERSONA_CONTACTOIsNull: Boolean;
+begin
+ result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_PedidosProveedorConArticuloBuscadoPERSONA_CONTACTO]);
+end;
+
+procedure TPedidosProveedorConArticuloBuscadoBusinessProcessorRules.SetPERSONA_CONTACTOValue(const aValue: String);
+begin
+ BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosProveedorConArticuloBuscadoPERSONA_CONTACTO] := aValue;
+end;
+
+procedure TPedidosProveedorConArticuloBuscadoBusinessProcessorRules.SetPERSONA_CONTACTOIsNull(const aValue: Boolean);
+begin
+ if aValue then
+ BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosProveedorConArticuloBuscadoPERSONA_CONTACTO] := Null;
+end;
+
+function TPedidosProveedorConArticuloBuscadoBusinessProcessorRules.GetTELEFONOValue: String;
+begin
+ result := BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosProveedorConArticuloBuscadoTELEFONO];
+end;
+
+function TPedidosProveedorConArticuloBuscadoBusinessProcessorRules.GetTELEFONOIsNull: Boolean;
+begin
+ result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosProveedorConArticuloBuscadoTELEFONO]);
+end;
+
+function TPedidosProveedorConArticuloBuscadoBusinessProcessorRules.GetOldTELEFONOValue: String;
+begin
+ result := BusinessProcessor.CurrentChange.OldValueByName[fld_PedidosProveedorConArticuloBuscadoTELEFONO];
+end;
+
+function TPedidosProveedorConArticuloBuscadoBusinessProcessorRules.GetOldTELEFONOIsNull: Boolean;
+begin
+ result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_PedidosProveedorConArticuloBuscadoTELEFONO]);
+end;
+
+procedure TPedidosProveedorConArticuloBuscadoBusinessProcessorRules.SetTELEFONOValue(const aValue: String);
+begin
+ BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosProveedorConArticuloBuscadoTELEFONO] := aValue;
+end;
+
+procedure TPedidosProveedorConArticuloBuscadoBusinessProcessorRules.SetTELEFONOIsNull(const aValue: Boolean);
+begin
+ if aValue then
+ BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosProveedorConArticuloBuscadoTELEFONO] := Null;
+end;
+
+function TPedidosProveedorConArticuloBuscadoBusinessProcessorRules.GetFECHA_ALTAValue: DateTime;
+begin
+ result := BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosProveedorConArticuloBuscadoFECHA_ALTA];
+end;
+
+function TPedidosProveedorConArticuloBuscadoBusinessProcessorRules.GetFECHA_ALTAIsNull: Boolean;
+begin
+ result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosProveedorConArticuloBuscadoFECHA_ALTA]);
+end;
+
+function TPedidosProveedorConArticuloBuscadoBusinessProcessorRules.GetOldFECHA_ALTAValue: DateTime;
+begin
+ result := BusinessProcessor.CurrentChange.OldValueByName[fld_PedidosProveedorConArticuloBuscadoFECHA_ALTA];
+end;
+
+function TPedidosProveedorConArticuloBuscadoBusinessProcessorRules.GetOldFECHA_ALTAIsNull: Boolean;
+begin
+ result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_PedidosProveedorConArticuloBuscadoFECHA_ALTA]);
+end;
+
+procedure TPedidosProveedorConArticuloBuscadoBusinessProcessorRules.SetFECHA_ALTAValue(const aValue: DateTime);
+begin
+ BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosProveedorConArticuloBuscadoFECHA_ALTA] := aValue;
+end;
+
+procedure TPedidosProveedorConArticuloBuscadoBusinessProcessorRules.SetFECHA_ALTAIsNull(const aValue: Boolean);
+begin
+ if aValue then
+ BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosProveedorConArticuloBuscadoFECHA_ALTA] := Null;
+end;
+
+function TPedidosProveedorConArticuloBuscadoBusinessProcessorRules.GetFECHA_MODIFICACIONValue: DateTime;
+begin
+ result := BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosProveedorConArticuloBuscadoFECHA_MODIFICACION];
+end;
+
+function TPedidosProveedorConArticuloBuscadoBusinessProcessorRules.GetFECHA_MODIFICACIONIsNull: Boolean;
+begin
+ result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosProveedorConArticuloBuscadoFECHA_MODIFICACION]);
+end;
+
+function TPedidosProveedorConArticuloBuscadoBusinessProcessorRules.GetOldFECHA_MODIFICACIONValue: DateTime;
+begin
+ result := BusinessProcessor.CurrentChange.OldValueByName[fld_PedidosProveedorConArticuloBuscadoFECHA_MODIFICACION];
+end;
+
+function TPedidosProveedorConArticuloBuscadoBusinessProcessorRules.GetOldFECHA_MODIFICACIONIsNull: Boolean;
+begin
+ result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_PedidosProveedorConArticuloBuscadoFECHA_MODIFICACION]);
+end;
+
+procedure TPedidosProveedorConArticuloBuscadoBusinessProcessorRules.SetFECHA_MODIFICACIONValue(const aValue: DateTime);
+begin
+ BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosProveedorConArticuloBuscadoFECHA_MODIFICACION] := aValue;
+end;
+
+procedure TPedidosProveedorConArticuloBuscadoBusinessProcessorRules.SetFECHA_MODIFICACIONIsNull(const aValue: Boolean);
+begin
+ if aValue then
+ BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosProveedorConArticuloBuscadoFECHA_MODIFICACION] := Null;
+end;
+
+function TPedidosProveedorConArticuloBuscadoBusinessProcessorRules.GetUSUARIOValue: String;
+begin
+ result := BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosProveedorConArticuloBuscadoUSUARIO];
+end;
+
+function TPedidosProveedorConArticuloBuscadoBusinessProcessorRules.GetUSUARIOIsNull: Boolean;
+begin
+ result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosProveedorConArticuloBuscadoUSUARIO]);
+end;
+
+function TPedidosProveedorConArticuloBuscadoBusinessProcessorRules.GetOldUSUARIOValue: String;
+begin
+ result := BusinessProcessor.CurrentChange.OldValueByName[fld_PedidosProveedorConArticuloBuscadoUSUARIO];
+end;
+
+function TPedidosProveedorConArticuloBuscadoBusinessProcessorRules.GetOldUSUARIOIsNull: Boolean;
+begin
+ result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_PedidosProveedorConArticuloBuscadoUSUARIO]);
+end;
+
+procedure TPedidosProveedorConArticuloBuscadoBusinessProcessorRules.SetUSUARIOValue(const aValue: String);
+begin
+ BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosProveedorConArticuloBuscadoUSUARIO] := aValue;
+end;
+
+procedure TPedidosProveedorConArticuloBuscadoBusinessProcessorRules.SetUSUARIOIsNull(const aValue: Boolean);
+begin
+ if aValue then
+ BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosProveedorConArticuloBuscadoUSUARIO] := Null;
+end;
+
+function TPedidosProveedorConArticuloBuscadoBusinessProcessorRules.GetID_CONTRATO_CLIENTEValue: Integer;
+begin
+ result := BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosProveedorConArticuloBuscadoID_CONTRATO_CLIENTE];
+end;
+
+function TPedidosProveedorConArticuloBuscadoBusinessProcessorRules.GetID_CONTRATO_CLIENTEIsNull: Boolean;
+begin
+ result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosProveedorConArticuloBuscadoID_CONTRATO_CLIENTE]);
+end;
+
+function TPedidosProveedorConArticuloBuscadoBusinessProcessorRules.GetOldID_CONTRATO_CLIENTEValue: Integer;
+begin
+ result := BusinessProcessor.CurrentChange.OldValueByName[fld_PedidosProveedorConArticuloBuscadoID_CONTRATO_CLIENTE];
+end;
+
+function TPedidosProveedorConArticuloBuscadoBusinessProcessorRules.GetOldID_CONTRATO_CLIENTEIsNull: Boolean;
+begin
+ result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_PedidosProveedorConArticuloBuscadoID_CONTRATO_CLIENTE]);
+end;
+
+procedure TPedidosProveedorConArticuloBuscadoBusinessProcessorRules.SetID_CONTRATO_CLIENTEValue(const aValue: Integer);
+begin
+ BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosProveedorConArticuloBuscadoID_CONTRATO_CLIENTE] := aValue;
+end;
+
+procedure TPedidosProveedorConArticuloBuscadoBusinessProcessorRules.SetID_CONTRATO_CLIENTEIsNull(const aValue: Boolean);
+begin
+ if aValue then
+ BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosProveedorConArticuloBuscadoID_CONTRATO_CLIENTE] := Null;
+end;
+
+function TPedidosProveedorConArticuloBuscadoBusinessProcessorRules.GetREF_CON_CLIENTEValue: String;
+begin
+ result := BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosProveedorConArticuloBuscadoREF_CON_CLIENTE];
+end;
+
+function TPedidosProveedorConArticuloBuscadoBusinessProcessorRules.GetREF_CON_CLIENTEIsNull: Boolean;
+begin
+ result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosProveedorConArticuloBuscadoREF_CON_CLIENTE]);
+end;
+
+function TPedidosProveedorConArticuloBuscadoBusinessProcessorRules.GetOldREF_CON_CLIENTEValue: String;
+begin
+ result := BusinessProcessor.CurrentChange.OldValueByName[fld_PedidosProveedorConArticuloBuscadoREF_CON_CLIENTE];
+end;
+
+function TPedidosProveedorConArticuloBuscadoBusinessProcessorRules.GetOldREF_CON_CLIENTEIsNull: Boolean;
+begin
+ result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_PedidosProveedorConArticuloBuscadoREF_CON_CLIENTE]);
+end;
+
+procedure TPedidosProveedorConArticuloBuscadoBusinessProcessorRules.SetREF_CON_CLIENTEValue(const aValue: String);
+begin
+ BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosProveedorConArticuloBuscadoREF_CON_CLIENTE] := aValue;
+end;
+
+procedure TPedidosProveedorConArticuloBuscadoBusinessProcessorRules.SetREF_CON_CLIENTEIsNull(const aValue: Boolean);
+begin
+ if aValue then
+ BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosProveedorConArticuloBuscadoREF_CON_CLIENTE] := Null;
+end;
+
+function TPedidosProveedorConArticuloBuscadoBusinessProcessorRules.GetNOMBRE_CLIENTEValue: String;
+begin
+ result := BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosProveedorConArticuloBuscadoNOMBRE_CLIENTE];
+end;
+
+function TPedidosProveedorConArticuloBuscadoBusinessProcessorRules.GetNOMBRE_CLIENTEIsNull: Boolean;
+begin
+ result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosProveedorConArticuloBuscadoNOMBRE_CLIENTE]);
+end;
+
+function TPedidosProveedorConArticuloBuscadoBusinessProcessorRules.GetOldNOMBRE_CLIENTEValue: String;
+begin
+ result := BusinessProcessor.CurrentChange.OldValueByName[fld_PedidosProveedorConArticuloBuscadoNOMBRE_CLIENTE];
+end;
+
+function TPedidosProveedorConArticuloBuscadoBusinessProcessorRules.GetOldNOMBRE_CLIENTEIsNull: Boolean;
+begin
+ result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_PedidosProveedorConArticuloBuscadoNOMBRE_CLIENTE]);
+end;
+
+procedure TPedidosProveedorConArticuloBuscadoBusinessProcessorRules.SetNOMBRE_CLIENTEValue(const aValue: String);
+begin
+ BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosProveedorConArticuloBuscadoNOMBRE_CLIENTE] := aValue;
+end;
+
+procedure TPedidosProveedorConArticuloBuscadoBusinessProcessorRules.SetNOMBRE_CLIENTEIsNull(const aValue: Boolean);
+begin
+ if aValue then
+ BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosProveedorConArticuloBuscadoNOMBRE_CLIENTE] := Null;
+end;
+
+function TPedidosProveedorConArticuloBuscadoBusinessProcessorRules.GetIMPORTE_NETOValue: Currency;
+begin
+ result := BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosProveedorConArticuloBuscadoIMPORTE_NETO];
+end;
+
+function TPedidosProveedorConArticuloBuscadoBusinessProcessorRules.GetIMPORTE_NETOIsNull: Boolean;
+begin
+ result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosProveedorConArticuloBuscadoIMPORTE_NETO]);
+end;
+
+function TPedidosProveedorConArticuloBuscadoBusinessProcessorRules.GetOldIMPORTE_NETOValue: Currency;
+begin
+ result := BusinessProcessor.CurrentChange.OldValueByName[fld_PedidosProveedorConArticuloBuscadoIMPORTE_NETO];
+end;
+
+function TPedidosProveedorConArticuloBuscadoBusinessProcessorRules.GetOldIMPORTE_NETOIsNull: Boolean;
+begin
+ result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_PedidosProveedorConArticuloBuscadoIMPORTE_NETO]);
+end;
+
+procedure TPedidosProveedorConArticuloBuscadoBusinessProcessorRules.SetIMPORTE_NETOValue(const aValue: Currency);
+begin
+ BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosProveedorConArticuloBuscadoIMPORTE_NETO] := aValue;
+end;
+
+procedure TPedidosProveedorConArticuloBuscadoBusinessProcessorRules.SetIMPORTE_NETOIsNull(const aValue: Boolean);
+begin
+ if aValue then
+ BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosProveedorConArticuloBuscadoIMPORTE_NETO] := Null;
+end;
+
+function TPedidosProveedorConArticuloBuscadoBusinessProcessorRules.GetIMPORTE_PORTEValue: Currency;
+begin
+ result := BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosProveedorConArticuloBuscadoIMPORTE_PORTE];
+end;
+
+function TPedidosProveedorConArticuloBuscadoBusinessProcessorRules.GetIMPORTE_PORTEIsNull: Boolean;
+begin
+ result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosProveedorConArticuloBuscadoIMPORTE_PORTE]);
+end;
+
+function TPedidosProveedorConArticuloBuscadoBusinessProcessorRules.GetOldIMPORTE_PORTEValue: Currency;
+begin
+ result := BusinessProcessor.CurrentChange.OldValueByName[fld_PedidosProveedorConArticuloBuscadoIMPORTE_PORTE];
+end;
+
+function TPedidosProveedorConArticuloBuscadoBusinessProcessorRules.GetOldIMPORTE_PORTEIsNull: Boolean;
+begin
+ result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_PedidosProveedorConArticuloBuscadoIMPORTE_PORTE]);
+end;
+
+procedure TPedidosProveedorConArticuloBuscadoBusinessProcessorRules.SetIMPORTE_PORTEValue(const aValue: Currency);
+begin
+ BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosProveedorConArticuloBuscadoIMPORTE_PORTE] := aValue;
+end;
+
+procedure TPedidosProveedorConArticuloBuscadoBusinessProcessorRules.SetIMPORTE_PORTEIsNull(const aValue: Boolean);
+begin
+ if aValue then
+ BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosProveedorConArticuloBuscadoIMPORTE_PORTE] := Null;
+end;
+
+function TPedidosProveedorConArticuloBuscadoBusinessProcessorRules.GetDESCUENTOValue: Float;
+begin
+ result := BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosProveedorConArticuloBuscadoDESCUENTO];
+end;
+
+function TPedidosProveedorConArticuloBuscadoBusinessProcessorRules.GetDESCUENTOIsNull: Boolean;
+begin
+ result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosProveedorConArticuloBuscadoDESCUENTO]);
+end;
+
+function TPedidosProveedorConArticuloBuscadoBusinessProcessorRules.GetOldDESCUENTOValue: Float;
+begin
+ result := BusinessProcessor.CurrentChange.OldValueByName[fld_PedidosProveedorConArticuloBuscadoDESCUENTO];
+end;
+
+function TPedidosProveedorConArticuloBuscadoBusinessProcessorRules.GetOldDESCUENTOIsNull: Boolean;
+begin
+ result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_PedidosProveedorConArticuloBuscadoDESCUENTO]);
+end;
+
+procedure TPedidosProveedorConArticuloBuscadoBusinessProcessorRules.SetDESCUENTOValue(const aValue: Float);
+begin
+ BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosProveedorConArticuloBuscadoDESCUENTO] := aValue;
+end;
+
+procedure TPedidosProveedorConArticuloBuscadoBusinessProcessorRules.SetDESCUENTOIsNull(const aValue: Boolean);
+begin
+ if aValue then
+ BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosProveedorConArticuloBuscadoDESCUENTO] := Null;
+end;
+
+function TPedidosProveedorConArticuloBuscadoBusinessProcessorRules.GetIMPORTE_DESCUENTOValue: Currency;
+begin
+ result := BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosProveedorConArticuloBuscadoIMPORTE_DESCUENTO];
+end;
+
+function TPedidosProveedorConArticuloBuscadoBusinessProcessorRules.GetIMPORTE_DESCUENTOIsNull: Boolean;
+begin
+ result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosProveedorConArticuloBuscadoIMPORTE_DESCUENTO]);
+end;
+
+function TPedidosProveedorConArticuloBuscadoBusinessProcessorRules.GetOldIMPORTE_DESCUENTOValue: Currency;
+begin
+ result := BusinessProcessor.CurrentChange.OldValueByName[fld_PedidosProveedorConArticuloBuscadoIMPORTE_DESCUENTO];
+end;
+
+function TPedidosProveedorConArticuloBuscadoBusinessProcessorRules.GetOldIMPORTE_DESCUENTOIsNull: Boolean;
+begin
+ result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_PedidosProveedorConArticuloBuscadoIMPORTE_DESCUENTO]);
+end;
+
+procedure TPedidosProveedorConArticuloBuscadoBusinessProcessorRules.SetIMPORTE_DESCUENTOValue(const aValue: Currency);
+begin
+ BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosProveedorConArticuloBuscadoIMPORTE_DESCUENTO] := aValue;
+end;
+
+procedure TPedidosProveedorConArticuloBuscadoBusinessProcessorRules.SetIMPORTE_DESCUENTOIsNull(const aValue: Boolean);
+begin
+ if aValue then
+ BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosProveedorConArticuloBuscadoIMPORTE_DESCUENTO] := Null;
+end;
+
+function TPedidosProveedorConArticuloBuscadoBusinessProcessorRules.GetBASE_IMPONIBLEValue: Currency;
+begin
+ result := BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosProveedorConArticuloBuscadoBASE_IMPONIBLE];
+end;
+
+function TPedidosProveedorConArticuloBuscadoBusinessProcessorRules.GetBASE_IMPONIBLEIsNull: Boolean;
+begin
+ result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosProveedorConArticuloBuscadoBASE_IMPONIBLE]);
+end;
+
+function TPedidosProveedorConArticuloBuscadoBusinessProcessorRules.GetOldBASE_IMPONIBLEValue: Currency;
+begin
+ result := BusinessProcessor.CurrentChange.OldValueByName[fld_PedidosProveedorConArticuloBuscadoBASE_IMPONIBLE];
+end;
+
+function TPedidosProveedorConArticuloBuscadoBusinessProcessorRules.GetOldBASE_IMPONIBLEIsNull: Boolean;
+begin
+ result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_PedidosProveedorConArticuloBuscadoBASE_IMPONIBLE]);
+end;
+
+procedure TPedidosProveedorConArticuloBuscadoBusinessProcessorRules.SetBASE_IMPONIBLEValue(const aValue: Currency);
+begin
+ BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosProveedorConArticuloBuscadoBASE_IMPONIBLE] := aValue;
+end;
+
+procedure TPedidosProveedorConArticuloBuscadoBusinessProcessorRules.SetBASE_IMPONIBLEIsNull(const aValue: Boolean);
+begin
+ if aValue then
+ BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosProveedorConArticuloBuscadoBASE_IMPONIBLE] := Null;
+end;
+
+function TPedidosProveedorConArticuloBuscadoBusinessProcessorRules.GetIVAValue: Float;
+begin
+ result := BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosProveedorConArticuloBuscadoIVA];
+end;
+
+function TPedidosProveedorConArticuloBuscadoBusinessProcessorRules.GetIVAIsNull: Boolean;
+begin
+ result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosProveedorConArticuloBuscadoIVA]);
+end;
+
+function TPedidosProveedorConArticuloBuscadoBusinessProcessorRules.GetOldIVAValue: Float;
+begin
+ result := BusinessProcessor.CurrentChange.OldValueByName[fld_PedidosProveedorConArticuloBuscadoIVA];
+end;
+
+function TPedidosProveedorConArticuloBuscadoBusinessProcessorRules.GetOldIVAIsNull: Boolean;
+begin
+ result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_PedidosProveedorConArticuloBuscadoIVA]);
+end;
+
+procedure TPedidosProveedorConArticuloBuscadoBusinessProcessorRules.SetIVAValue(const aValue: Float);
+begin
+ BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosProveedorConArticuloBuscadoIVA] := aValue;
+end;
+
+procedure TPedidosProveedorConArticuloBuscadoBusinessProcessorRules.SetIVAIsNull(const aValue: Boolean);
+begin
+ if aValue then
+ BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosProveedorConArticuloBuscadoIVA] := Null;
+end;
+
+function TPedidosProveedorConArticuloBuscadoBusinessProcessorRules.GetIMPORTE_IVAValue: Currency;
+begin
+ result := BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosProveedorConArticuloBuscadoIMPORTE_IVA];
+end;
+
+function TPedidosProveedorConArticuloBuscadoBusinessProcessorRules.GetIMPORTE_IVAIsNull: Boolean;
+begin
+ result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosProveedorConArticuloBuscadoIMPORTE_IVA]);
+end;
+
+function TPedidosProveedorConArticuloBuscadoBusinessProcessorRules.GetOldIMPORTE_IVAValue: Currency;
+begin
+ result := BusinessProcessor.CurrentChange.OldValueByName[fld_PedidosProveedorConArticuloBuscadoIMPORTE_IVA];
+end;
+
+function TPedidosProveedorConArticuloBuscadoBusinessProcessorRules.GetOldIMPORTE_IVAIsNull: Boolean;
+begin
+ result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_PedidosProveedorConArticuloBuscadoIMPORTE_IVA]);
+end;
+
+procedure TPedidosProveedorConArticuloBuscadoBusinessProcessorRules.SetIMPORTE_IVAValue(const aValue: Currency);
+begin
+ BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosProveedorConArticuloBuscadoIMPORTE_IVA] := aValue;
+end;
+
+procedure TPedidosProveedorConArticuloBuscadoBusinessProcessorRules.SetIMPORTE_IVAIsNull(const aValue: Boolean);
+begin
+ if aValue then
+ BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosProveedorConArticuloBuscadoIMPORTE_IVA] := Null;
+end;
+
+function TPedidosProveedorConArticuloBuscadoBusinessProcessorRules.GetID_FORMA_PAGOValue: Integer;
+begin
+ result := BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosProveedorConArticuloBuscadoID_FORMA_PAGO];
+end;
+
+function TPedidosProveedorConArticuloBuscadoBusinessProcessorRules.GetID_FORMA_PAGOIsNull: Boolean;
+begin
+ result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosProveedorConArticuloBuscadoID_FORMA_PAGO]);
+end;
+
+function TPedidosProveedorConArticuloBuscadoBusinessProcessorRules.GetOldID_FORMA_PAGOValue: Integer;
+begin
+ result := BusinessProcessor.CurrentChange.OldValueByName[fld_PedidosProveedorConArticuloBuscadoID_FORMA_PAGO];
+end;
+
+function TPedidosProveedorConArticuloBuscadoBusinessProcessorRules.GetOldID_FORMA_PAGOIsNull: Boolean;
+begin
+ result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_PedidosProveedorConArticuloBuscadoID_FORMA_PAGO]);
+end;
+
+procedure TPedidosProveedorConArticuloBuscadoBusinessProcessorRules.SetID_FORMA_PAGOValue(const aValue: Integer);
+begin
+ BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosProveedorConArticuloBuscadoID_FORMA_PAGO] := aValue;
+end;
+
+procedure TPedidosProveedorConArticuloBuscadoBusinessProcessorRules.SetID_FORMA_PAGOIsNull(const aValue: Boolean);
+begin
+ if aValue then
+ BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosProveedorConArticuloBuscadoID_FORMA_PAGO] := Null;
+end;
+
+function TPedidosProveedorConArticuloBuscadoBusinessProcessorRules.GetID_TIENDAValue: Integer;
+begin
+ result := BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosProveedorConArticuloBuscadoID_TIENDA];
+end;
+
+function TPedidosProveedorConArticuloBuscadoBusinessProcessorRules.GetID_TIENDAIsNull: Boolean;
+begin
+ result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosProveedorConArticuloBuscadoID_TIENDA]);
+end;
+
+function TPedidosProveedorConArticuloBuscadoBusinessProcessorRules.GetOldID_TIENDAValue: Integer;
+begin
+ result := BusinessProcessor.CurrentChange.OldValueByName[fld_PedidosProveedorConArticuloBuscadoID_TIENDA];
+end;
+
+function TPedidosProveedorConArticuloBuscadoBusinessProcessorRules.GetOldID_TIENDAIsNull: Boolean;
+begin
+ result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_PedidosProveedorConArticuloBuscadoID_TIENDA]);
+end;
+
+procedure TPedidosProveedorConArticuloBuscadoBusinessProcessorRules.SetID_TIENDAValue(const aValue: Integer);
+begin
+ BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosProveedorConArticuloBuscadoID_TIENDA] := aValue;
+end;
+
+procedure TPedidosProveedorConArticuloBuscadoBusinessProcessorRules.SetID_TIENDAIsNull(const aValue: Boolean);
+begin
+ if aValue then
+ BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosProveedorConArticuloBuscadoID_TIENDA] := Null;
+end;
+
+function TPedidosProveedorConArticuloBuscadoBusinessProcessorRules.GetID_VENDEDORValue: Integer;
+begin
+ result := BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosProveedorConArticuloBuscadoID_VENDEDOR];
+end;
+
+function TPedidosProveedorConArticuloBuscadoBusinessProcessorRules.GetID_VENDEDORIsNull: Boolean;
+begin
+ result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosProveedorConArticuloBuscadoID_VENDEDOR]);
+end;
+
+function TPedidosProveedorConArticuloBuscadoBusinessProcessorRules.GetOldID_VENDEDORValue: Integer;
+begin
+ result := BusinessProcessor.CurrentChange.OldValueByName[fld_PedidosProveedorConArticuloBuscadoID_VENDEDOR];
+end;
+
+function TPedidosProveedorConArticuloBuscadoBusinessProcessorRules.GetOldID_VENDEDORIsNull: Boolean;
+begin
+ result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_PedidosProveedorConArticuloBuscadoID_VENDEDOR]);
+end;
+
+procedure TPedidosProveedorConArticuloBuscadoBusinessProcessorRules.SetID_VENDEDORValue(const aValue: Integer);
+begin
+ BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosProveedorConArticuloBuscadoID_VENDEDOR] := aValue;
+end;
+
+procedure TPedidosProveedorConArticuloBuscadoBusinessProcessorRules.SetID_VENDEDORIsNull(const aValue: Boolean);
+begin
+ if aValue then
+ BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosProveedorConArticuloBuscadoID_VENDEDOR] := Null;
+end;
+
+function TPedidosProveedorConArticuloBuscadoBusinessProcessorRules.GetVENDEDORValue: String;
+begin
+ result := BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosProveedorConArticuloBuscadoVENDEDOR];
+end;
+
+function TPedidosProveedorConArticuloBuscadoBusinessProcessorRules.GetVENDEDORIsNull: Boolean;
+begin
+ result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosProveedorConArticuloBuscadoVENDEDOR]);
+end;
+
+function TPedidosProveedorConArticuloBuscadoBusinessProcessorRules.GetOldVENDEDORValue: String;
+begin
+ result := BusinessProcessor.CurrentChange.OldValueByName[fld_PedidosProveedorConArticuloBuscadoVENDEDOR];
+end;
+
+function TPedidosProveedorConArticuloBuscadoBusinessProcessorRules.GetOldVENDEDORIsNull: Boolean;
+begin
+ result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_PedidosProveedorConArticuloBuscadoVENDEDOR]);
+end;
+
+procedure TPedidosProveedorConArticuloBuscadoBusinessProcessorRules.SetVENDEDORValue(const aValue: String);
+begin
+ BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosProveedorConArticuloBuscadoVENDEDOR] := aValue;
+end;
+
+procedure TPedidosProveedorConArticuloBuscadoBusinessProcessorRules.SetVENDEDORIsNull(const aValue: Boolean);
+begin
+ if aValue then
+ BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosProveedorConArticuloBuscadoVENDEDOR] := Null;
+end;
+
+function TPedidosProveedorConArticuloBuscadoBusinessProcessorRules.GetREF_VENDEDORValue: String;
+begin
+ result := BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosProveedorConArticuloBuscadoREF_VENDEDOR];
+end;
+
+function TPedidosProveedorConArticuloBuscadoBusinessProcessorRules.GetREF_VENDEDORIsNull: Boolean;
+begin
+ result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosProveedorConArticuloBuscadoREF_VENDEDOR]);
+end;
+
+function TPedidosProveedorConArticuloBuscadoBusinessProcessorRules.GetOldREF_VENDEDORValue: String;
+begin
+ result := BusinessProcessor.CurrentChange.OldValueByName[fld_PedidosProveedorConArticuloBuscadoREF_VENDEDOR];
+end;
+
+function TPedidosProveedorConArticuloBuscadoBusinessProcessorRules.GetOldREF_VENDEDORIsNull: Boolean;
+begin
+ result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_PedidosProveedorConArticuloBuscadoREF_VENDEDOR]);
+end;
+
+procedure TPedidosProveedorConArticuloBuscadoBusinessProcessorRules.SetREF_VENDEDORValue(const aValue: String);
+begin
+ BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosProveedorConArticuloBuscadoREF_VENDEDOR] := aValue;
+end;
+
+procedure TPedidosProveedorConArticuloBuscadoBusinessProcessorRules.SetREF_VENDEDORIsNull(const aValue: Boolean);
+begin
+ if aValue then
+ BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosProveedorConArticuloBuscadoREF_VENDEDOR] := Null;
+end;
+
+function TPedidosProveedorConArticuloBuscadoBusinessProcessorRules.GetID_DIRECCIONValue: Integer;
+begin
+ result := BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosProveedorConArticuloBuscadoID_DIRECCION];
+end;
+
+function TPedidosProveedorConArticuloBuscadoBusinessProcessorRules.GetID_DIRECCIONIsNull: Boolean;
+begin
+ result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosProveedorConArticuloBuscadoID_DIRECCION]);
+end;
+
+function TPedidosProveedorConArticuloBuscadoBusinessProcessorRules.GetOldID_DIRECCIONValue: Integer;
+begin
+ result := BusinessProcessor.CurrentChange.OldValueByName[fld_PedidosProveedorConArticuloBuscadoID_DIRECCION];
+end;
+
+function TPedidosProveedorConArticuloBuscadoBusinessProcessorRules.GetOldID_DIRECCIONIsNull: Boolean;
+begin
+ result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_PedidosProveedorConArticuloBuscadoID_DIRECCION]);
+end;
+
+procedure TPedidosProveedorConArticuloBuscadoBusinessProcessorRules.SetID_DIRECCIONValue(const aValue: Integer);
+begin
+ BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosProveedorConArticuloBuscadoID_DIRECCION] := aValue;
+end;
+
+procedure TPedidosProveedorConArticuloBuscadoBusinessProcessorRules.SetID_DIRECCIONIsNull(const aValue: Boolean);
+begin
+ if aValue then
+ BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosProveedorConArticuloBuscadoID_DIRECCION] := Null;
+end;
+
+function TPedidosProveedorConArticuloBuscadoBusinessProcessorRules.GetID_TIPO_IVAValue: Integer;
+begin
+ result := BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosProveedorConArticuloBuscadoID_TIPO_IVA];
+end;
+
+function TPedidosProveedorConArticuloBuscadoBusinessProcessorRules.GetID_TIPO_IVAIsNull: Boolean;
+begin
+ result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosProveedorConArticuloBuscadoID_TIPO_IVA]);
+end;
+
+function TPedidosProveedorConArticuloBuscadoBusinessProcessorRules.GetOldID_TIPO_IVAValue: Integer;
+begin
+ result := BusinessProcessor.CurrentChange.OldValueByName[fld_PedidosProveedorConArticuloBuscadoID_TIPO_IVA];
+end;
+
+function TPedidosProveedorConArticuloBuscadoBusinessProcessorRules.GetOldID_TIPO_IVAIsNull: Boolean;
+begin
+ result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_PedidosProveedorConArticuloBuscadoID_TIPO_IVA]);
+end;
+
+procedure TPedidosProveedorConArticuloBuscadoBusinessProcessorRules.SetID_TIPO_IVAValue(const aValue: Integer);
+begin
+ BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosProveedorConArticuloBuscadoID_TIPO_IVA] := aValue;
+end;
+
+procedure TPedidosProveedorConArticuloBuscadoBusinessProcessorRules.SetID_TIPO_IVAIsNull(const aValue: Boolean);
+begin
+ if aValue then
+ BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosProveedorConArticuloBuscadoID_TIPO_IVA] := Null;
+end;
+
+
+initialization
+ RegisterBusinessProcessorRules(RID_ListaAnosPedidosDelta, TListaAnosPedidosBusinessProcessorRules);
+ RegisterBusinessProcessorRules(RID_PedidosProveedorDelta, TPedidosProveedorBusinessProcessorRules);
+ RegisterBusinessProcessorRules(RID_PedidosProveedor_DetallesDelta, TPedidosProveedor_DetallesBusinessProcessorRules);
+ RegisterBusinessProcessorRules(RID_PedidosProveedor_Articulos_PendientesDelta, TPedidosProveedor_Articulos_PendientesBusinessProcessorRules);
+ RegisterBusinessProcessorRules(RID_PedidosProveedorConArticuloBuscadoDelta, TPedidosProveedorConArticuloBuscadoBusinessProcessorRules);
+
+end.