diff --git a/Build/Build.fbl6 b/Build/Build.fbl6
index 3773f2b..8fbef73 100644
Binary files a/Build/Build.fbl6 and b/Build/Build.fbl6 differ
diff --git a/Database/scripts/factuges.sql b/Database/scripts/factuges.sql
index d886019..9a3d489 100644
--- a/Database/scripts/factuges.sql
+++ b/Database/scripts/factuges.sql
@@ -199,6 +199,9 @@ SET GENERATOR GEN_PEDIDOS_CLI_DETALLES_ID TO 1;
CREATE GENERATOR GEN_PEDIDOS_CLI_ID;
SET GENERATOR GEN_PEDIDOS_CLI_ID TO 1;
+REATE GENERATOR GEN_PEDIDOS_CLI_DET_COLOR_ID;
+SET GENERATOR GEN_PEDIDOS_CLI_DET_COLOR_ID TO 1;
+
CREATE GENERATOR GEN_PEDIDOS_PROV_DETALLES_ID;
SET GENERATOR GEN_PEDIDOS_PROV_DETALLES_ID TO 1;
@@ -922,7 +925,10 @@ CREATE TABLE PEDIDOS_CLIENTE (
ID_FORMA_PAGO TIPO_ID,
REF_TIENDA_WEB INTEGER,
FECHA_PREVISTA_ENVIO DATE,
- REFERENCIA_CLIENTE VARCHAR(255)
+ REFERENCIA_CLIENTE VARCHAR(255),
+ DESCUENTO2 TIPO_PORCENTAJE,
+ IMPORTE_DESCUENTO2 TIPO_IMPORTE,
+ DATOS_BANCARIOS VARCHAR(255) COLLATE ES_ES
);
CREATE TABLE PEDIDOS_CLIENTE_DETALLES (
@@ -942,6 +948,23 @@ CREATE TABLE PEDIDOS_CLIENTE_DETALLES (
FECHA_MODIFICACION TIMESTAMP
);
+CREATE TABLE PEDIDOS_CLIENTE_DETALLE_COLOR (
+ ID TIPO_ID NOT NULL /* TIPO_ID = INTEGER */,
+ ID_DETALLE TIPO_ID NOT NULL /* TIPO_ID = INTEGER */,
+ COLOR1 INTEGER Default 0,
+ COLOR2 INTEGER Default 0,
+ COLOR3 INTEGER Default 0,
+ COLOR4 INTEGER Default 0,
+ COLOR5 INTEGER Default 0,
+ COLOR6 INTEGER Default 0,
+ COLOR7 INTEGER Default 0,
+ COLOR8 INTEGER Default 0,
+ COLOR9 INTEGER Default 0,
+ COLOR10 INTEGER Default 0,
+ COLOR11 INTEGER Default 0,
+ COLOR12 INTEGER Default 0
+);
+
CREATE TABLE PEDIDOS_PROVEEDOR (
ID TIPO_ID NOT NULL,
ID_EMPRESA TIPO_ID,
@@ -3817,13 +3840,17 @@ CREATE VIEW V_PEDIDOS_CLIENTE(
IMPORTE_PORTE,
DESCUENTO,
IMPORTE_DESCUENTO,
+ DESCUENTO2,
+ IMPORTE_DESCUENTO2,
BASE_IMPONIBLE,
IVA,
IMPORTE_IVA,
IMPORTE_TOTAL,
ID_FORMA_PAGO,
+ FORMA_PAGO,
REF_TIENDA_WEB,
- FECHA_PREVISTA_ENVIO)
+ FECHA_PREVISTA_ENVIO,
+ DATOS_BANCARIOS)
AS
SELECT
PEDIDOS_CLIENTE.ID,
@@ -3851,17 +3878,22 @@ SELECT
PEDIDOS_CLIENTE.IMPORTE_PORTE,
PEDIDOS_CLIENTE.DESCUENTO,
PEDIDOS_CLIENTE.IMPORTE_DESCUENTO,
+ PEDIDOS_CLIENTE.DESCUENTO2,
+ PEDIDOS_CLIENTE.IMPORTE_DESCUENTO2,
PEDIDOS_CLIENTE.BASE_IMPONIBLE,
PEDIDOS_CLIENTE.IVA,
PEDIDOS_CLIENTE.IMPORTE_IVA,
PEDIDOS_CLIENTE.IMPORTE_TOTAL,
PEDIDOS_CLIENTE.ID_FORMA_PAGO,
+ FORMAS_PAGO.DESCRIPCION,
PEDIDOS_CLIENTE.REF_TIENDA_WEB,
- PEDIDOS_CLIENTE.FECHA_PREVISTA_ENVIO
+ PEDIDOS_CLIENTE.FECHA_PREVISTA_ENVIO,
+ PEDIDOS_CLIENTE.DATOS_BANCARIOS
FROM
V_PED_CLI_SITUACION
INNER JOIN PEDIDOS_CLIENTE ON (PEDIDOS_CLIENTE.ID = V_PED_CLI_SITUACION.ID_PEDIDO)
INNER JOIN CONTACTOS ON (PEDIDOS_CLIENTE.ID_CLIENTE = CONTACTOS.ID)
+ LEFT OUTER JOIN FORMAS_PAGO ON (FORMAS_PAGO.ID = PEDIDOS_CLIENTE.ID_FORMA_PAGO)
;
@@ -3915,6 +3947,7 @@ ALTER TABLE PAGOS_CLIENTE ADD CONSTRAINT PK_PAGOS_CLIENTE PRIMARY KEY (ID);
ALTER TABLE PAGOS_PROVEEDOR ADD CONSTRAINT PK_PAGOS_PROVEEDOR PRIMARY KEY (ID);
ALTER TABLE PEDIDOS_CLIENTE ADD CONSTRAINT PK_PEDIDOS_CLIENTE PRIMARY KEY (ID);
ALTER TABLE PEDIDOS_CLIENTE_DETALLES ADD CONSTRAINT PK_PEDIDOS_CLIENTE_DETALLES PRIMARY KEY (ID);
+ALTER TABLE PEDIDOS_CLIENTE_DETALLE_COLOR ADD CONSTRAINT PK_PEDIDOS_CLIENTE_DETALLE_CO PRIMARY KEY (ID);
ALTER TABLE PEDIDOS_PROVEEDOR ADD CONSTRAINT PK_PEDIDOS_PROVEEDOR PRIMARY KEY (ID);
ALTER TABLE PEDIDOS_PROVEEDOR_DETALLES ADD CONSTRAINT PK_PEDIDOS_PROVEEDOR_DETALLES PRIMARY KEY (ID);
ALTER TABLE PERMISOS ADD CONSTRAINT PK_PERMISOS PRIMARY KEY (ID);
diff --git a/Source/ApplicationBase/ApplicationBase.dproj b/Source/ApplicationBase/ApplicationBase.dproj
index ce679d9..795d26c 100644
--- a/Source/ApplicationBase/ApplicationBase.dproj
+++ b/Source/ApplicationBase/ApplicationBase.dproj
@@ -55,10 +55,10 @@
MainSource
-
-
-
-
+
+
+
+
diff --git a/Source/Base/Base.dproj b/Source/Base/Base.dproj
index bf2d645..f702c15 100644
--- a/Source/Base/Base.dproj
+++ b/Source/Base/Base.dproj
@@ -45,6 +45,8 @@
Package
FalseTrueFalseLibreria base de FactuGESFalseFalseFalseTrueFalse1000FalseFalseFalseFalseFalse308212521.0.0.01.0.0.0
+
+
RemObjects SDK - Indy Library
Base.dpk
@@ -54,57 +56,57 @@
MainSource
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
TForm
diff --git a/Source/Base/Utiles/uDataTableUtils.pas b/Source/Base/Utiles/uDataTableUtils.pas
index 031d526..b5be73d 100644
--- a/Source/Base/Utiles/uDataTableUtils.pas
+++ b/Source/Base/Utiles/uDataTableUtils.pas
@@ -344,10 +344,16 @@ begin
begin
for x := 0 to (aDelta.LoggedFieldCount-1) do
begin
- OldNewAreDifferent := (aDelta.Changes[i].OldValues[x] <> aDelta.Changes[i].NewValues[x]);
+ try
+ OldNewAreDifferent := (aDelta.Changes[i].OldValues[x] <> aDelta.Changes[i].NewValues[x]);
- if OldNewAreDifferent then
- Break; // Abandon iteration at the first difference between old and new.
+ if OldNewAreDifferent then
+ Break; // Abandon iteration at the first difference between old and new.
+ except
+ ShowMessage('x = ' + IntToStr(x));
+ ShowMessage('Old = ' + VarToStr(aDelta.Changes[i].OldValues[x]));
+ ShowMessage('New = ' + VarToStr(aDelta.Changes[i].NewValues[x]));
+ end;
end;
if OldNewAreDifferent then
diff --git a/Source/Cliente/FactuGES.dpr b/Source/Cliente/FactuGES.dpr
index 93ec023..753370b 100644
--- a/Source/Cliente/FactuGES.dpr
+++ b/Source/Cliente/FactuGES.dpr
@@ -2,6 +2,7 @@ program FactuGES;
uses
// ExceptionLog,
+ ExceptionLog,
Forms,
Windows,
SysUtils,
diff --git a/Source/Cliente/FactuGES.dproj b/Source/Cliente/FactuGES.dproj
index d4c6a92..acb0478 100644
--- a/Source/Cliente/FactuGES.dproj
+++ b/Source/Cliente/FactuGES.dproj
@@ -48,12 +48,13 @@
True
True
2
+ EUREKALOG;EUREKALOG_VER6
Delphi.Personality
VCLApplication
-FalseTrueFalseC:\Archivos de programa\Borland\Delphi7\Bin\TrueFalse1010FalseFalseFalseFalseFalse30821252Rodax Software S.L.1.0.1.0FactuGESFactuGES1.0.1.0FactuGES.dprFalse
+FalseTrueFalseC:\Archivos de programa\Borland\Delphi7\Bin\TrueFalse1020FalseFalseFalseFalseFalse30821252Rodax Software S.L.1.0.2.0FactuGESFactuGES1.0.2.0FactuGES.dprFalse
@@ -79,7 +80,7 @@
diff --git a/Source/Modulos/Pedidos de cliente/Data/PedidosCliente_data.rc b/Source/Modulos/Pedidos de cliente/Data/PedidosCliente_data.rc
index e69de29..153736a 100644
--- a/Source/Modulos/Pedidos de cliente/Data/PedidosCliente_data.rc
+++ b/Source/Modulos/Pedidos de cliente/Data/PedidosCliente_data.rc
@@ -0,0 +1,22 @@
+1 VERSIONINFO
+FILEVERSION 1,0,0,0
+PRODUCTVERSION 1,0,0,0
+FILEFLAGSMASK 0x3FL
+FILEFLAGS 0x00L
+FILEOS 0x40004L
+FILETYPE 0x1L
+FILESUBTYPE 0x0L
+BEGIN
+ BLOCK "StringFileInfo"
+ BEGIN
+ BLOCK "0C0A04E4"
+ BEGIN
+ VALUE "FileVersion", "1.0.0.0\0"
+ VALUE "ProductVersion", "1.0.0.0\0"
+ END
+ END
+ BLOCK "VarFileInfo"
+ BEGIN
+ VALUE "Translation", 0x0C0A, 1252
+ END
+END
diff --git a/Source/Modulos/Pedidos de cliente/Data/PedidosCliente_data.res b/Source/Modulos/Pedidos de cliente/Data/PedidosCliente_data.res
index 36f26e2..8b251f3 100644
Binary files a/Source/Modulos/Pedidos de cliente/Data/PedidosCliente_data.res and b/Source/Modulos/Pedidos de cliente/Data/PedidosCliente_data.res differ
diff --git a/Source/Modulos/Pedidos de cliente/Data/uDataModulePedidosCliente.dfm b/Source/Modulos/Pedidos de cliente/Data/uDataModulePedidosCliente.dfm
index d5c1a7b..03e2d8e 100644
--- a/Source/Modulos/Pedidos de cliente/Data/uDataModulePedidosCliente.dfm
+++ b/Source/Modulos/Pedidos de cliente/Data/uDataModulePedidosCliente.dfm
@@ -1,8 +1,8 @@
object DataModulePedidosCliente: TDataModulePedidosCliente
OldCreateOrder = True
OnCreate = DAClientDataModuleCreate
- Height = 377
- Width = 649
+ Height = 396
+ Width = 813
object RORemoteService: TRORemoteService
Message = dmConexion.ROMessage
Channel = dmConexion.ROChannel
@@ -67,6 +67,8 @@ object DataModulePedidosCliente: TDataModulePedidosCliente
item
Name = 'ID_DIRECCION'
DataType = datInteger
+ DisplayLabel = 'PedidosCliente_ID_DIRECCION'
+ DictionaryEntry = 'PedidosCliente_ID_DIRECCION'
end
item
Name = 'CALLE'
@@ -171,6 +173,18 @@ object DataModulePedidosCliente: TDataModulePedidosCliente
Alignment = taRightJustify
DictionaryEntry = 'PedidosCliente_IMPORTE_DESCUENTO'
end
+ item
+ Name = 'DESCUENTO2'
+ DataType = datFloat
+ DictionaryEntry = 'PedidosCliente_DESCUENTO2'
+ end
+ item
+ Name = 'IMPORTE_DESCUENTO2'
+ DataType = datCurrency
+ DecimalPrecision = 11
+ DecimalScale = 2
+ DictionaryEntry = 'PedidosCliente_IMPORTE_DESCUENTO2'
+ end
item
Name = 'BASE_IMPONIBLE'
DataType = datCurrency
@@ -204,6 +218,13 @@ object DataModulePedidosCliente: TDataModulePedidosCliente
DataType = datInteger
DictionaryEntry = 'PedidosCliente_ID_FORMA_PAGO'
end
+ item
+ Name = 'FORMA_PAGO'
+ DataType = datString
+ Size = 255
+ DisplayLabel = 'PedidosCliente_FORMA_PAGO'
+ DictionaryEntry = 'PedidosCliente_FORMA_PAGO'
+ end
item
Name = 'REF_TIENDA_WEB'
DataType = datInteger
@@ -214,6 +235,13 @@ object DataModulePedidosCliente: TDataModulePedidosCliente
DataType = datDateTime
DisplayLabel = 'Fecha de entrega prevista'
DictionaryEntry = 'PedidosCliente_FECHA_PREVISTA_ENVIO'
+ end
+ item
+ Name = 'DATOS_BANCARIOS'
+ DataType = datString
+ Size = 255
+ DisplayLabel = 'PedidosCliente_DATOS_BANCARIOS'
+ DictionaryEntry = 'PedidosCliente_DATOS_BANCARIOS'
end>
Params = <>
StreamingOptions = [soDisableEventsWhileStreaming]
@@ -283,9 +311,10 @@ object DataModulePedidosCliente: TDataModulePedidosCliente
end
item
Name = 'CANTIDAD'
- DataType = datInteger
+ DataType = datFloat
+ DisplayLabel = 'PedidosCliente_Detalles_CANTIDAD'
Alignment = taRightJustify
- DictionaryEntry = 'CANTIDAD'
+ DictionaryEntry = 'PedidosCliente_Detalles_CANTIDAD'
end
item
Name = 'IMPORTE_UNIDAD'
@@ -297,6 +326,8 @@ object DataModulePedidosCliente: TDataModulePedidosCliente
item
Name = 'UNIDAD_MEDIDA'
DataType = datString
+ DisplayLabel = 'PedidosCliente_Detalles_UNIDAD_MEDIDA'
+ DictionaryEntry = 'PedidosCliente_Detalles_UNIDAD_MEDIDA'
end
item
Name = 'DESCUENTO'
@@ -464,14 +495,14 @@ object DataModulePedidosCliente: TDataModulePedidosCliente
RemoteDataAdapter = rda_PedidosCliente
LogicalName = 'ListaAnosPedidos'
IndexDefs = <>
- Left = 520
- Top = 112
+ Left = 632
+ Top = 264
end
object ds_ListaAnosPedidos: TDADataSource
DataSet = tbl_ListaAnosPedidos.Dataset
DataTable = tbl_ListaAnosPedidos
- Left = 520
- Top = 48
+ Left = 624
+ Top = 200
end
object Bin2DataStreamer: TDABin2DataStreamer
Left = 40
@@ -487,4 +518,85 @@ object DataModulePedidosCliente: TDataModulePedidosCliente
Left = 43
Top = 143
end
+ object tbl_PedidosCliente_Detalle_Color: TDAMemDataTable
+ RemoteUpdatesOptions = []
+ Fields = <
+ item
+ Name = 'ID'
+ DataType = datAutoInc
+ GeneratorName = 'GEN_PEDIDOS_CLI_DETALLES_ID'
+ Required = True
+ DictionaryEntry = 'PedidosCliente_Detalles_ID'
+ InPrimaryKey = True
+ end
+ item
+ Name = 'ID_DETALLE'
+ DataType = datInteger
+ end
+ item
+ Name = 'COLOR1'
+ DataType = datInteger
+ end
+ item
+ Name = 'COLOR2'
+ DataType = datInteger
+ end
+ item
+ Name = 'COLOR3'
+ DataType = datInteger
+ end
+ item
+ Name = 'COLOR4'
+ DataType = datInteger
+ end
+ item
+ Name = 'COLOR5'
+ DataType = datInteger
+ end
+ item
+ Name = 'COLOR6'
+ DataType = datInteger
+ end
+ item
+ Name = 'COLOR7'
+ DataType = datInteger
+ end
+ item
+ Name = 'COLOR8'
+ DataType = datInteger
+ end
+ item
+ Name = 'COLOR9'
+ DataType = datInteger
+ end
+ item
+ Name = 'COLOR10'
+ DataType = datInteger
+ end
+ item
+ Name = 'COLOR11'
+ DataType = datInteger
+ end
+ item
+ Name = 'COLOR12'
+ DataType = datInteger
+ end>
+ Params = <>
+ MasterMappingMode = mmWhere
+ StreamingOptions = [soDisableEventsWhileStreaming, soDisableFiltering]
+ RemoteDataAdapter = rda_PedidosCliente
+ MasterSource = ds_PedidosCliente_Detalles
+ MasterFields = 'ID'
+ DetailFields = 'ID_DETALLE'
+ LogicalName = 'PedidosCliente_Detalle_Color'
+ IndexDefs = <>
+ Left = 472
+ Top = 104
+ end
+ object ds_PedidosCliente_Detalle_Color: TDADataSource
+ DataSet = tbl_PedidosCliente_Detalle_Color.Dataset
+ DataTable = tbl_PedidosCliente_Detalle_Color
+ Left = 472
+ Top = 48
+ end
end
diff --git a/Source/Modulos/Pedidos de cliente/Data/uDataModulePedidosCliente.pas b/Source/Modulos/Pedidos de cliente/Data/uDataModulePedidosCliente.pas
index 0444c36..c9923e6 100644
--- a/Source/Modulos/Pedidos de cliente/Data/uDataModulePedidosCliente.pas
+++ b/Source/Modulos/Pedidos de cliente/Data/uDataModulePedidosCliente.pas
@@ -8,7 +8,7 @@ uses
uDAMemDataTable, uROWinInetHttpChannel, uDADataTable, uDABINAdapter,
uDAClientDataModule, uROTypes,
- uIDataModulePedidosCliente, uBizPedidosCliente, uBizDetallesPedidoCliente,
+ uIDataModulePedidosCliente, uBizPedidosCliente, uBizDetallesPedidoCliente, uBizDetalleColoresPedidoCliente,
uIDataModulePedidosClienteReport, uDADataAdapter, uDARemoteDataAdapter,
uDADataStreamer, uDABin2DataStreamer, uDAInterfaces, uDACDSDataTable;
@@ -27,10 +27,13 @@ type
ds_ListaAnosPedidos: TDADataSource;
Bin2DataStreamer: TDABin2DataStreamer;
rda_PedidosCliente: TDARemoteDataAdapter;
+ tbl_PedidosCliente_Detalle_Color: TDAMemDataTable;
+ ds_PedidosCliente_Detalle_Color: TDADataSource;
procedure DAClientDataModuleCreate(Sender: TObject);
private
function _GetDetalles : IBizDetallesPedidoCliente;
+ function _GetDetalleColores : IBizDetalleColoresPedidoCliente;
protected
procedure AsignarClaseNegocio(var APedido: TDAMemDataTable); virtual;
@@ -96,6 +99,24 @@ begin
Result := GetItem(ID_NULO)
end;
+function TDataModulePedidosCliente._GetDetalleColores: IBizDetalleColoresPedidoCliente;
+var
+ ADetalleColores : TDAMemDataTable;
+begin
+ ShowHourglassCursor;
+ try
+ ADetalleColores := CloneDataTable(tbl_PedidosCliente_Detalle_Color);
+ with ADetalleColores do
+ begin
+ BusinessRulesID := BIZ_CLIENT_DETALLE_COLORES_PEDIDO_CLIENTE;
+ DetailOptions := DetailOptions - [dtDisableLogOfCascadeDeletes, dtDisableLogOfCascadeUpdates];
+ end;
+ Result := (ADetalleColores as IBizDetalleColoresPedidoCliente);
+ finally
+ HideHourglassCursor;
+ end;
+end;
+
function TDataModulePedidosCliente._GetDetalles: IBizDetallesPedidoCliente;
var
ADetalles : TDAMemDataTable;
@@ -215,6 +236,7 @@ begin
with TBizPedidoCliente(APedido.BusinessEventsObj) do
begin
Detalles := _GetDetalles;
+ Detalles.DetalleColores := _GetDetalleColores;
end;
Result := (APedido as IBizPedidoCliente);
diff --git a/Source/Modulos/Pedidos de cliente/Model/PedidosCliente_model.dpk b/Source/Modulos/Pedidos de cliente/Model/PedidosCliente_model.dpk
index 2782470..19d38eb 100644
--- a/Source/Modulos/Pedidos de cliente/Model/PedidosCliente_model.dpk
+++ b/Source/Modulos/Pedidos de cliente/Model/PedidosCliente_model.dpk
@@ -26,7 +26,15 @@ package PedidosCliente_model;
requires
ApplicationBase,
- Contactos_model;
+ Contactos_model,
+ dbrtl,
+ rtl,
+ DataAbstract_Core_D11,
+ vcldb,
+ vcl,
+ dsnap,
+ adortl,
+ RemObjects_Core_D11;
contains
uIDataModulePedidosCliente in 'Data\uIDataModulePedidosCliente.pas',
@@ -34,6 +42,7 @@ contains
uBizPedidosCliente in 'uBizPedidosCliente.pas',
uIDataModulePedidosClienteReport in 'Data\uIDataModulePedidosClienteReport.pas',
schPedidosClienteClient_Intf in 'schPedidosClienteClient_Intf.pas',
- schPedidosClienteServer_Intf in 'schPedidosClienteServer_Intf.pas';
+ schPedidosClienteServer_Intf in 'schPedidosClienteServer_Intf.pas',
+ uBizDetalleColoresPedidoCliente in 'uBizDetalleColoresPedidoCliente.pas';
end.
diff --git a/Source/Modulos/Pedidos de cliente/Model/PedidosCliente_model.dproj b/Source/Modulos/Pedidos de cliente/Model/PedidosCliente_model.dproj
index 2374d09..d469eba 100644
--- a/Source/Modulos/Pedidos de cliente/Model/PedidosCliente_model.dproj
+++ b/Source/Modulos/Pedidos de cliente/Model/PedidosCliente_model.dproj
@@ -49,14 +49,6 @@
-
-
-
-
-
-
-
-
RemObjects Pascal Script - RemObjects SDK 3.0 Integration
EurekaLog 5.1.9
PedidosCliente_model.dpk
@@ -66,14 +58,23 @@
MainSource
-
-
+
+
+
+
+
+
+
+
+
+
+
diff --git a/Source/Modulos/Pedidos de cliente/Model/PedidosCliente_model.drc b/Source/Modulos/Pedidos de cliente/Model/PedidosCliente_model.drc
index 6b101d4..32dd3e9 100644
--- a/Source/Modulos/Pedidos de cliente/Model/PedidosCliente_model.drc
+++ b/Source/Modulos/Pedidos de cliente/Model/PedidosCliente_model.drc
@@ -13,4 +13,4 @@ BEGIN
END
/* C:\Codigo Noviseda\Source\Modulos\Pedidos de cliente\Model\PedidosCliente_model.res */
-/* C:\DOCUME~1\Usuario\CONFIG~1\Temp\dtfAB.tmp */
+/* C:\Codigo Noviseda\Source\Modulos\Pedidos de cliente\Model\PedidosCliente_model.drf */
diff --git a/Source/Modulos/Pedidos de cliente/Model/schPedidosClienteClient_Intf.pas b/Source/Modulos/Pedidos de cliente/Model/schPedidosClienteClient_Intf.pas
index 9413c88..cb5490b 100644
--- a/Source/Modulos/Pedidos de cliente/Model/schPedidosClienteClient_Intf.pas
+++ b/Source/Modulos/Pedidos de cliente/Model/schPedidosClienteClient_Intf.pas
@@ -4,17 +4,18 @@ unit schPedidosClienteClient_Intf;
interface
uses
- Classes, DB, schBase_Intf, SysUtils, uROClasses, uDAInterfaces, uDADataTable, FmtBCD, uROXMLIntf;
+ Classes, DB, SysUtils, uROClasses, uDAInterfaces, uDADataTable, FmtBCD, uROXMLIntf;
const
{ Data table rules ids
Feel free to change them to something more human readable
but make sure they are unique in the context of your application }
- RID_ListaAnosPedidos = '{B9FEF205-0431-4580-8AE1-E1A07F41B5B8}';
- RID_PedidoCliente_ArticulosPendientesPedirAProv = '{D58EF0E1-A459-40DD-8309-2C9AFD3769B8}';
- RID_PedidosCliente = '{D3C08BFA-7D2F-4272-9251-252D082C0ABB}';
- RID_PedidosCliente_Detalles = '{7B91720B-C864-48E9-B842-BE7EF3B2CFE0}';
- RID_PedidoCliente_Articulos_Pendientes = '{786D4023-7026-4E28-B4BE-F16F71123082}';
+ RID_ListaAnosPedidos = '{69ED4D2A-C692-4F24-BC5B-8893D377C1AC}';
+ RID_PedidoCliente_ArticulosPendientesPedirAProv = '{CC176519-3A83-42DE-877D-76AD039A7FBF}';
+ RID_PedidosCliente = '{285F9D98-1E3E-441A-AA07-1DDF2D1E5697}';
+ RID_PedidosCliente_Detalles = '{8FC465FD-CB58-49CA-B962-3C0F8296244A}';
+ RID_PedidoCliente_Articulos_Pendientes = '{AC15597C-6504-4224-BFF7-E45D45A62F0D}';
+ RID_PedidosCliente_Detalle_Color = '{5571EC96-859E-4DAA-873E-819E0047DAE5}';
{ Data table names }
nme_ListaAnosPedidos = 'ListaAnosPedidos';
@@ -22,6 +23,7 @@ const
nme_PedidosCliente = 'PedidosCliente';
nme_PedidosCliente_Detalles = 'PedidosCliente_Detalles';
nme_PedidoCliente_Articulos_Pendientes = 'PedidoCliente_Articulos_Pendientes';
+ nme_PedidosCliente_Detalle_Color = 'PedidosCliente_Detalle_Color';
{ ListaAnosPedidos fields }
fld_ListaAnosPedidosANO = 'ANO';
@@ -71,13 +73,17 @@ const
fld_PedidosClienteIMPORTE_PORTE = 'IMPORTE_PORTE';
fld_PedidosClienteDESCUENTO = 'DESCUENTO';
fld_PedidosClienteIMPORTE_DESCUENTO = 'IMPORTE_DESCUENTO';
+ fld_PedidosClienteDESCUENTO2 = 'DESCUENTO2';
+ fld_PedidosClienteIMPORTE_DESCUENTO2 = 'IMPORTE_DESCUENTO2';
fld_PedidosClienteBASE_IMPONIBLE = 'BASE_IMPONIBLE';
fld_PedidosClienteIVA = 'IVA';
fld_PedidosClienteIMPORTE_IVA = 'IMPORTE_IVA';
fld_PedidosClienteIMPORTE_TOTAL = 'IMPORTE_TOTAL';
fld_PedidosClienteID_FORMA_PAGO = 'ID_FORMA_PAGO';
+ fld_PedidosClienteFORMA_PAGO = 'FORMA_PAGO';
fld_PedidosClienteREF_TIENDA_WEB = 'REF_TIENDA_WEB';
fld_PedidosClienteFECHA_PREVISTA_ENVIO = 'FECHA_PREVISTA_ENVIO';
+ fld_PedidosClienteDATOS_BANCARIOS = 'DATOS_BANCARIOS';
{ PedidosCliente field indexes }
idx_PedidosClienteID = 0;
@@ -105,13 +111,17 @@ const
idx_PedidosClienteIMPORTE_PORTE = 22;
idx_PedidosClienteDESCUENTO = 23;
idx_PedidosClienteIMPORTE_DESCUENTO = 24;
- idx_PedidosClienteBASE_IMPONIBLE = 25;
- idx_PedidosClienteIVA = 26;
- idx_PedidosClienteIMPORTE_IVA = 27;
- idx_PedidosClienteIMPORTE_TOTAL = 28;
- idx_PedidosClienteID_FORMA_PAGO = 29;
- idx_PedidosClienteREF_TIENDA_WEB = 30;
- idx_PedidosClienteFECHA_PREVISTA_ENVIO = 31;
+ idx_PedidosClienteDESCUENTO2 = 25;
+ idx_PedidosClienteIMPORTE_DESCUENTO2 = 26;
+ idx_PedidosClienteBASE_IMPONIBLE = 27;
+ idx_PedidosClienteIVA = 28;
+ idx_PedidosClienteIMPORTE_IVA = 29;
+ idx_PedidosClienteIMPORTE_TOTAL = 30;
+ idx_PedidosClienteID_FORMA_PAGO = 31;
+ idx_PedidosClienteFORMA_PAGO = 32;
+ idx_PedidosClienteREF_TIENDA_WEB = 33;
+ idx_PedidosClienteFECHA_PREVISTA_ENVIO = 34;
+ idx_PedidosClienteDATOS_BANCARIOS = 35;
{ PedidosCliente_Detalles fields }
fld_PedidosCliente_DetallesID = 'ID';
@@ -159,10 +169,42 @@ const
idx_PedidoCliente_Articulos_PendientesCANTIDAD_ALB = 2;
idx_PedidoCliente_Articulos_PendientesCANTIDAD_PENDIENTE = 3;
+ { PedidosCliente_Detalle_Color fields }
+ fld_PedidosCliente_Detalle_ColorID = 'ID';
+ fld_PedidosCliente_Detalle_ColorID_DETALLE = 'ID_DETALLE';
+ fld_PedidosCliente_Detalle_ColorCOLOR1 = 'COLOR1';
+ fld_PedidosCliente_Detalle_ColorCOLOR2 = 'COLOR2';
+ fld_PedidosCliente_Detalle_ColorCOLOR3 = 'COLOR3';
+ fld_PedidosCliente_Detalle_ColorCOLOR4 = 'COLOR4';
+ fld_PedidosCliente_Detalle_ColorCOLOR5 = 'COLOR5';
+ fld_PedidosCliente_Detalle_ColorCOLOR6 = 'COLOR6';
+ fld_PedidosCliente_Detalle_ColorCOLOR7 = 'COLOR7';
+ fld_PedidosCliente_Detalle_ColorCOLOR8 = 'COLOR8';
+ fld_PedidosCliente_Detalle_ColorCOLOR9 = 'COLOR9';
+ fld_PedidosCliente_Detalle_ColorCOLOR10 = 'COLOR10';
+ fld_PedidosCliente_Detalle_ColorCOLOR11 = 'COLOR11';
+ fld_PedidosCliente_Detalle_ColorCOLOR12 = 'COLOR12';
+
+ { PedidosCliente_Detalle_Color field indexes }
+ idx_PedidosCliente_Detalle_ColorID = 0;
+ idx_PedidosCliente_Detalle_ColorID_DETALLE = 1;
+ idx_PedidosCliente_Detalle_ColorCOLOR1 = 2;
+ idx_PedidosCliente_Detalle_ColorCOLOR2 = 3;
+ idx_PedidosCliente_Detalle_ColorCOLOR3 = 4;
+ idx_PedidosCliente_Detalle_ColorCOLOR4 = 5;
+ idx_PedidosCliente_Detalle_ColorCOLOR5 = 6;
+ idx_PedidosCliente_Detalle_ColorCOLOR6 = 7;
+ idx_PedidosCliente_Detalle_ColorCOLOR7 = 8;
+ idx_PedidosCliente_Detalle_ColorCOLOR8 = 9;
+ idx_PedidosCliente_Detalle_ColorCOLOR9 = 10;
+ idx_PedidosCliente_Detalle_ColorCOLOR10 = 11;
+ idx_PedidosCliente_Detalle_ColorCOLOR11 = 12;
+ idx_PedidosCliente_Detalle_ColorCOLOR12 = 13;
+
type
{ IListaAnosPedidos }
IListaAnosPedidos = interface(IDAStronglyTypedDataTable)
- ['{5691474A-E3A7-41CC-A8C1-E2FAA78AECC3}']
+ ['{475ACA8D-8541-4EE1-A13B-85A5D1F6BED0}']
{ Property getters and setters }
function GetANOValue: String;
procedure SetANOValue(const aValue: String);
@@ -176,7 +218,7 @@ type
end;
{ TListaAnosPedidosDataTableRules }
- TListaAnosPedidosDataTableRules = class(TIntfObjectDADataTableRules, IListaAnosPedidos)
+ TListaAnosPedidosDataTableRules = class(TDADataTableRules, IListaAnosPedidos)
private
protected
{ Property getters and setters }
@@ -197,7 +239,7 @@ type
{ IPedidoCliente_ArticulosPendientesPedirAProv }
IPedidoCliente_ArticulosPendientesPedirAProv = interface(IDAStronglyTypedDataTable)
- ['{E711BE61-34E1-4715-8C2A-2CDD2622A414}']
+ ['{7AD10614-220C-409B-AC9B-45D3D071265E}']
{ Property getters and setters }
function GetID_PEDIDOValue: Integer;
procedure SetID_PEDIDOValue(const aValue: Integer);
@@ -241,7 +283,7 @@ type
end;
{ TPedidoCliente_ArticulosPendientesPedirAProvDataTableRules }
- TPedidoCliente_ArticulosPendientesPedirAProvDataTableRules = class(TIntfObjectDADataTableRules, IPedidoCliente_ArticulosPendientesPedirAProv)
+ TPedidoCliente_ArticulosPendientesPedirAProvDataTableRules = class(TDADataTableRules, IPedidoCliente_ArticulosPendientesPedirAProv)
private
protected
{ Property getters and setters }
@@ -292,7 +334,7 @@ type
{ IPedidosCliente }
IPedidosCliente = interface(IDAStronglyTypedDataTable)
- ['{4370618E-96AC-416C-85CD-49313C07F8E7}']
+ ['{7F223677-49BE-4682-A347-2F7D6E9EB4EC}']
{ Property getters and setters }
function GetIDValue: Integer;
procedure SetIDValue(const aValue: Integer);
@@ -392,6 +434,14 @@ type
procedure SetIMPORTE_DESCUENTOValue(const aValue: Currency);
function GetIMPORTE_DESCUENTOIsNull: Boolean;
procedure SetIMPORTE_DESCUENTOIsNull(const aValue: Boolean);
+ function GetDESCUENTO2Value: Float;
+ procedure SetDESCUENTO2Value(const aValue: Float);
+ function GetDESCUENTO2IsNull: Boolean;
+ procedure SetDESCUENTO2IsNull(const aValue: Boolean);
+ function GetIMPORTE_DESCUENTO2Value: Currency;
+ procedure SetIMPORTE_DESCUENTO2Value(const aValue: Currency);
+ function GetIMPORTE_DESCUENTO2IsNull: Boolean;
+ procedure SetIMPORTE_DESCUENTO2IsNull(const aValue: Boolean);
function GetBASE_IMPONIBLEValue: Currency;
procedure SetBASE_IMPONIBLEValue(const aValue: Currency);
function GetBASE_IMPONIBLEIsNull: Boolean;
@@ -412,6 +462,10 @@ type
procedure SetID_FORMA_PAGOValue(const aValue: Integer);
function GetID_FORMA_PAGOIsNull: Boolean;
procedure SetID_FORMA_PAGOIsNull(const aValue: Boolean);
+ function GetFORMA_PAGOValue: String;
+ procedure SetFORMA_PAGOValue(const aValue: String);
+ function GetFORMA_PAGOIsNull: Boolean;
+ procedure SetFORMA_PAGOIsNull(const aValue: Boolean);
function GetREF_TIENDA_WEBValue: Integer;
procedure SetREF_TIENDA_WEBValue(const aValue: Integer);
function GetREF_TIENDA_WEBIsNull: Boolean;
@@ -420,6 +474,10 @@ type
procedure SetFECHA_PREVISTA_ENVIOValue(const aValue: DateTime);
function GetFECHA_PREVISTA_ENVIOIsNull: Boolean;
procedure SetFECHA_PREVISTA_ENVIOIsNull(const aValue: Boolean);
+ function GetDATOS_BANCARIOSValue: String;
+ procedure SetDATOS_BANCARIOSValue(const aValue: String);
+ function GetDATOS_BANCARIOSIsNull: Boolean;
+ procedure SetDATOS_BANCARIOSIsNull(const aValue: Boolean);
{ Properties }
@@ -473,6 +531,10 @@ type
property DESCUENTOIsNull: Boolean read GetDESCUENTOIsNull write SetDESCUENTOIsNull;
property IMPORTE_DESCUENTO: Currency read GetIMPORTE_DESCUENTOValue write SetIMPORTE_DESCUENTOValue;
property IMPORTE_DESCUENTOIsNull: Boolean read GetIMPORTE_DESCUENTOIsNull write SetIMPORTE_DESCUENTOIsNull;
+ property DESCUENTO2: Float read GetDESCUENTO2Value write SetDESCUENTO2Value;
+ property DESCUENTO2IsNull: Boolean read GetDESCUENTO2IsNull write SetDESCUENTO2IsNull;
+ property IMPORTE_DESCUENTO2: Currency read GetIMPORTE_DESCUENTO2Value write SetIMPORTE_DESCUENTO2Value;
+ property IMPORTE_DESCUENTO2IsNull: Boolean read GetIMPORTE_DESCUENTO2IsNull write SetIMPORTE_DESCUENTO2IsNull;
property BASE_IMPONIBLE: Currency read GetBASE_IMPONIBLEValue write SetBASE_IMPONIBLEValue;
property BASE_IMPONIBLEIsNull: Boolean read GetBASE_IMPONIBLEIsNull write SetBASE_IMPONIBLEIsNull;
property IVA: Float read GetIVAValue write SetIVAValue;
@@ -483,14 +545,18 @@ type
property IMPORTE_TOTALIsNull: Boolean read GetIMPORTE_TOTALIsNull write SetIMPORTE_TOTALIsNull;
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 FORMA_PAGO: String read GetFORMA_PAGOValue write SetFORMA_PAGOValue;
+ property FORMA_PAGOIsNull: Boolean read GetFORMA_PAGOIsNull write SetFORMA_PAGOIsNull;
property REF_TIENDA_WEB: Integer read GetREF_TIENDA_WEBValue write SetREF_TIENDA_WEBValue;
property REF_TIENDA_WEBIsNull: Boolean read GetREF_TIENDA_WEBIsNull write SetREF_TIENDA_WEBIsNull;
property FECHA_PREVISTA_ENVIO: DateTime read GetFECHA_PREVISTA_ENVIOValue write SetFECHA_PREVISTA_ENVIOValue;
property FECHA_PREVISTA_ENVIOIsNull: Boolean read GetFECHA_PREVISTA_ENVIOIsNull write SetFECHA_PREVISTA_ENVIOIsNull;
+ property DATOS_BANCARIOS: String read GetDATOS_BANCARIOSValue write SetDATOS_BANCARIOSValue;
+ property DATOS_BANCARIOSIsNull: Boolean read GetDATOS_BANCARIOSIsNull write SetDATOS_BANCARIOSIsNull;
end;
{ TPedidosClienteDataTableRules }
- TPedidosClienteDataTableRules = class(TIntfObjectDADataTableRules, IPedidosCliente)
+ TPedidosClienteDataTableRules = class(TDADataTableRules, IPedidosCliente)
private
f_OBSERVACIONES: IROStrings;
f_INCIDENCIAS: IROStrings;
@@ -596,6 +662,14 @@ type
procedure SetIMPORTE_DESCUENTOValue(const aValue: Currency); virtual;
function GetIMPORTE_DESCUENTOIsNull: Boolean; virtual;
procedure SetIMPORTE_DESCUENTOIsNull(const aValue: Boolean); virtual;
+ function GetDESCUENTO2Value: Float; virtual;
+ procedure SetDESCUENTO2Value(const aValue: Float); virtual;
+ function GetDESCUENTO2IsNull: Boolean; virtual;
+ procedure SetDESCUENTO2IsNull(const aValue: Boolean); virtual;
+ function GetIMPORTE_DESCUENTO2Value: Currency; virtual;
+ procedure SetIMPORTE_DESCUENTO2Value(const aValue: Currency); virtual;
+ function GetIMPORTE_DESCUENTO2IsNull: Boolean; virtual;
+ procedure SetIMPORTE_DESCUENTO2IsNull(const aValue: Boolean); virtual;
function GetBASE_IMPONIBLEValue: Currency; virtual;
procedure SetBASE_IMPONIBLEValue(const aValue: Currency); virtual;
function GetBASE_IMPONIBLEIsNull: Boolean; virtual;
@@ -616,6 +690,10 @@ type
procedure SetID_FORMA_PAGOValue(const aValue: Integer); virtual;
function GetID_FORMA_PAGOIsNull: Boolean; virtual;
procedure SetID_FORMA_PAGOIsNull(const aValue: Boolean); virtual;
+ function GetFORMA_PAGOValue: String; virtual;
+ procedure SetFORMA_PAGOValue(const aValue: String); virtual;
+ function GetFORMA_PAGOIsNull: Boolean; virtual;
+ procedure SetFORMA_PAGOIsNull(const aValue: Boolean); virtual;
function GetREF_TIENDA_WEBValue: Integer; virtual;
procedure SetREF_TIENDA_WEBValue(const aValue: Integer); virtual;
function GetREF_TIENDA_WEBIsNull: Boolean; virtual;
@@ -624,6 +702,10 @@ type
procedure SetFECHA_PREVISTA_ENVIOValue(const aValue: DateTime); virtual;
function GetFECHA_PREVISTA_ENVIOIsNull: Boolean; virtual;
procedure SetFECHA_PREVISTA_ENVIOIsNull(const aValue: Boolean); virtual;
+ function GetDATOS_BANCARIOSValue: String; virtual;
+ procedure SetDATOS_BANCARIOSValue(const aValue: String); virtual;
+ function GetDATOS_BANCARIOSIsNull: Boolean; virtual;
+ procedure SetDATOS_BANCARIOSIsNull(const aValue: Boolean); virtual;
{ Properties }
property ID: Integer read GetIDValue write SetIDValue;
@@ -676,6 +758,10 @@ type
property DESCUENTOIsNull: Boolean read GetDESCUENTOIsNull write SetDESCUENTOIsNull;
property IMPORTE_DESCUENTO: Currency read GetIMPORTE_DESCUENTOValue write SetIMPORTE_DESCUENTOValue;
property IMPORTE_DESCUENTOIsNull: Boolean read GetIMPORTE_DESCUENTOIsNull write SetIMPORTE_DESCUENTOIsNull;
+ property DESCUENTO2: Float read GetDESCUENTO2Value write SetDESCUENTO2Value;
+ property DESCUENTO2IsNull: Boolean read GetDESCUENTO2IsNull write SetDESCUENTO2IsNull;
+ property IMPORTE_DESCUENTO2: Currency read GetIMPORTE_DESCUENTO2Value write SetIMPORTE_DESCUENTO2Value;
+ property IMPORTE_DESCUENTO2IsNull: Boolean read GetIMPORTE_DESCUENTO2IsNull write SetIMPORTE_DESCUENTO2IsNull;
property BASE_IMPONIBLE: Currency read GetBASE_IMPONIBLEValue write SetBASE_IMPONIBLEValue;
property BASE_IMPONIBLEIsNull: Boolean read GetBASE_IMPONIBLEIsNull write SetBASE_IMPONIBLEIsNull;
property IVA: Float read GetIVAValue write SetIVAValue;
@@ -686,10 +772,14 @@ type
property IMPORTE_TOTALIsNull: Boolean read GetIMPORTE_TOTALIsNull write SetIMPORTE_TOTALIsNull;
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 FORMA_PAGO: String read GetFORMA_PAGOValue write SetFORMA_PAGOValue;
+ property FORMA_PAGOIsNull: Boolean read GetFORMA_PAGOIsNull write SetFORMA_PAGOIsNull;
property REF_TIENDA_WEB: Integer read GetREF_TIENDA_WEBValue write SetREF_TIENDA_WEBValue;
property REF_TIENDA_WEBIsNull: Boolean read GetREF_TIENDA_WEBIsNull write SetREF_TIENDA_WEBIsNull;
property FECHA_PREVISTA_ENVIO: DateTime read GetFECHA_PREVISTA_ENVIOValue write SetFECHA_PREVISTA_ENVIOValue;
property FECHA_PREVISTA_ENVIOIsNull: Boolean read GetFECHA_PREVISTA_ENVIOIsNull write SetFECHA_PREVISTA_ENVIOIsNull;
+ property DATOS_BANCARIOS: String read GetDATOS_BANCARIOSValue write SetDATOS_BANCARIOSValue;
+ property DATOS_BANCARIOSIsNull: Boolean read GetDATOS_BANCARIOSIsNull write SetDATOS_BANCARIOSIsNull;
public
constructor Create(aDataTable: TDADataTable); override;
@@ -699,7 +789,7 @@ type
{ IPedidosCliente_Detalles }
IPedidosCliente_Detalles = interface(IDAStronglyTypedDataTable)
- ['{AA332AF5-ADDB-4244-BB55-94E298CA4C95}']
+ ['{BAD29A6E-F515-46A0-8BDD-EE879086BE33}']
{ Property getters and setters }
function GetIDValue: Integer;
procedure SetIDValue(const aValue: Integer);
@@ -733,8 +823,8 @@ type
procedure SetCONCEPTOValue(const aValue: String);
function GetCONCEPTOIsNull: Boolean;
procedure SetCONCEPTOIsNull(const aValue: Boolean);
- function GetCANTIDADValue: Integer;
- procedure SetCANTIDADValue(const aValue: Integer);
+ function GetCANTIDADValue: Float;
+ procedure SetCANTIDADValue(const aValue: Float);
function GetCANTIDADIsNull: Boolean;
procedure SetCANTIDADIsNull(const aValue: Boolean);
function GetIMPORTE_UNIDADValue: Currency;
@@ -780,7 +870,7 @@ type
property REFERENCIA_PROVEEDORIsNull: Boolean read GetREFERENCIA_PROVEEDORIsNull write SetREFERENCIA_PROVEEDORIsNull;
property CONCEPTO: String read GetCONCEPTOValue write SetCONCEPTOValue;
property CONCEPTOIsNull: Boolean read GetCONCEPTOIsNull write SetCONCEPTOIsNull;
- property CANTIDAD: Integer read GetCANTIDADValue write SetCANTIDADValue;
+ property CANTIDAD: Float read GetCANTIDADValue write SetCANTIDADValue;
property CANTIDADIsNull: Boolean read GetCANTIDADIsNull write SetCANTIDADIsNull;
property IMPORTE_UNIDAD: Currency read GetIMPORTE_UNIDADValue write SetIMPORTE_UNIDADValue;
property IMPORTE_UNIDADIsNull: Boolean read GetIMPORTE_UNIDADIsNull write SetIMPORTE_UNIDADIsNull;
@@ -797,7 +887,7 @@ type
end;
{ TPedidosCliente_DetallesDataTableRules }
- TPedidosCliente_DetallesDataTableRules = class(TIntfObjectDADataTableRules, IPedidosCliente_Detalles)
+ TPedidosCliente_DetallesDataTableRules = class(TDADataTableRules, IPedidosCliente_Detalles)
private
protected
{ Property getters and setters }
@@ -833,8 +923,8 @@ type
procedure SetCONCEPTOValue(const aValue: String); virtual;
function GetCONCEPTOIsNull: Boolean; virtual;
procedure SetCONCEPTOIsNull(const aValue: Boolean); virtual;
- function GetCANTIDADValue: Integer; virtual;
- procedure SetCANTIDADValue(const aValue: Integer); virtual;
+ function GetCANTIDADValue: Float; virtual;
+ procedure SetCANTIDADValue(const aValue: Float); virtual;
function GetCANTIDADIsNull: Boolean; virtual;
procedure SetCANTIDADIsNull(const aValue: Boolean); virtual;
function GetIMPORTE_UNIDADValue: Currency; virtual;
@@ -879,7 +969,7 @@ type
property REFERENCIA_PROVEEDORIsNull: Boolean read GetREFERENCIA_PROVEEDORIsNull write SetREFERENCIA_PROVEEDORIsNull;
property CONCEPTO: String read GetCONCEPTOValue write SetCONCEPTOValue;
property CONCEPTOIsNull: Boolean read GetCONCEPTOIsNull write SetCONCEPTOIsNull;
- property CANTIDAD: Integer read GetCANTIDADValue write SetCANTIDADValue;
+ property CANTIDAD: Float read GetCANTIDADValue write SetCANTIDADValue;
property CANTIDADIsNull: Boolean read GetCANTIDADIsNull write SetCANTIDADIsNull;
property IMPORTE_UNIDAD: Currency read GetIMPORTE_UNIDADValue write SetIMPORTE_UNIDADValue;
property IMPORTE_UNIDADIsNull: Boolean read GetIMPORTE_UNIDADIsNull write SetIMPORTE_UNIDADIsNull;
@@ -902,7 +992,7 @@ type
{ IPedidoCliente_Articulos_Pendientes }
IPedidoCliente_Articulos_Pendientes = interface(IDAStronglyTypedDataTable)
- ['{4C18D512-9D95-476E-97D9-EFBD0FC57621}']
+ ['{3662880C-6D05-49E4-B105-19882211F1AD}']
{ Property getters and setters }
function GetID_ARTICULOValue: Integer;
procedure SetID_ARTICULOValue(const aValue: Integer);
@@ -934,7 +1024,7 @@ type
end;
{ TPedidoCliente_Articulos_PendientesDataTableRules }
- TPedidoCliente_Articulos_PendientesDataTableRules = class(TIntfObjectDADataTableRules, IPedidoCliente_Articulos_Pendientes)
+ TPedidoCliente_Articulos_PendientesDataTableRules = class(TDADataTableRules, IPedidoCliente_Articulos_Pendientes)
private
protected
{ Property getters and setters }
@@ -971,6 +1061,197 @@ type
end;
+ { IPedidosCliente_Detalle_Color }
+ IPedidosCliente_Detalle_Color = interface(IDAStronglyTypedDataTable)
+ ['{9D745C39-FEE8-4641-BCC3-BABA61100D42}']
+ { Property getters and setters }
+ function GetIDValue: Integer;
+ procedure SetIDValue(const aValue: Integer);
+ function GetIDIsNull: Boolean;
+ procedure SetIDIsNull(const aValue: Boolean);
+ function GetID_DETALLEValue: Integer;
+ procedure SetID_DETALLEValue(const aValue: Integer);
+ function GetID_DETALLEIsNull: Boolean;
+ procedure SetID_DETALLEIsNull(const aValue: Boolean);
+ function GetCOLOR1Value: Integer;
+ procedure SetCOLOR1Value(const aValue: Integer);
+ function GetCOLOR1IsNull: Boolean;
+ procedure SetCOLOR1IsNull(const aValue: Boolean);
+ function GetCOLOR2Value: Integer;
+ procedure SetCOLOR2Value(const aValue: Integer);
+ function GetCOLOR2IsNull: Boolean;
+ procedure SetCOLOR2IsNull(const aValue: Boolean);
+ function GetCOLOR3Value: Integer;
+ procedure SetCOLOR3Value(const aValue: Integer);
+ function GetCOLOR3IsNull: Boolean;
+ procedure SetCOLOR3IsNull(const aValue: Boolean);
+ function GetCOLOR4Value: Integer;
+ procedure SetCOLOR4Value(const aValue: Integer);
+ function GetCOLOR4IsNull: Boolean;
+ procedure SetCOLOR4IsNull(const aValue: Boolean);
+ function GetCOLOR5Value: Integer;
+ procedure SetCOLOR5Value(const aValue: Integer);
+ function GetCOLOR5IsNull: Boolean;
+ procedure SetCOLOR5IsNull(const aValue: Boolean);
+ function GetCOLOR6Value: Integer;
+ procedure SetCOLOR6Value(const aValue: Integer);
+ function GetCOLOR6IsNull: Boolean;
+ procedure SetCOLOR6IsNull(const aValue: Boolean);
+ function GetCOLOR7Value: Integer;
+ procedure SetCOLOR7Value(const aValue: Integer);
+ function GetCOLOR7IsNull: Boolean;
+ procedure SetCOLOR7IsNull(const aValue: Boolean);
+ function GetCOLOR8Value: Integer;
+ procedure SetCOLOR8Value(const aValue: Integer);
+ function GetCOLOR8IsNull: Boolean;
+ procedure SetCOLOR8IsNull(const aValue: Boolean);
+ function GetCOLOR9Value: Integer;
+ procedure SetCOLOR9Value(const aValue: Integer);
+ function GetCOLOR9IsNull: Boolean;
+ procedure SetCOLOR9IsNull(const aValue: Boolean);
+ function GetCOLOR10Value: Integer;
+ procedure SetCOLOR10Value(const aValue: Integer);
+ function GetCOLOR10IsNull: Boolean;
+ procedure SetCOLOR10IsNull(const aValue: Boolean);
+ function GetCOLOR11Value: Integer;
+ procedure SetCOLOR11Value(const aValue: Integer);
+ function GetCOLOR11IsNull: Boolean;
+ procedure SetCOLOR11IsNull(const aValue: Boolean);
+ function GetCOLOR12Value: Integer;
+ procedure SetCOLOR12Value(const aValue: Integer);
+ function GetCOLOR12IsNull: Boolean;
+ procedure SetCOLOR12IsNull(const aValue: Boolean);
+
+
+ { Properties }
+ property ID: Integer read GetIDValue write SetIDValue;
+ property IDIsNull: Boolean read GetIDIsNull write SetIDIsNull;
+ property ID_DETALLE: Integer read GetID_DETALLEValue write SetID_DETALLEValue;
+ property ID_DETALLEIsNull: Boolean read GetID_DETALLEIsNull write SetID_DETALLEIsNull;
+ property COLOR1: Integer read GetCOLOR1Value write SetCOLOR1Value;
+ property COLOR1IsNull: Boolean read GetCOLOR1IsNull write SetCOLOR1IsNull;
+ property COLOR2: Integer read GetCOLOR2Value write SetCOLOR2Value;
+ property COLOR2IsNull: Boolean read GetCOLOR2IsNull write SetCOLOR2IsNull;
+ property COLOR3: Integer read GetCOLOR3Value write SetCOLOR3Value;
+ property COLOR3IsNull: Boolean read GetCOLOR3IsNull write SetCOLOR3IsNull;
+ property COLOR4: Integer read GetCOLOR4Value write SetCOLOR4Value;
+ property COLOR4IsNull: Boolean read GetCOLOR4IsNull write SetCOLOR4IsNull;
+ property COLOR5: Integer read GetCOLOR5Value write SetCOLOR5Value;
+ property COLOR5IsNull: Boolean read GetCOLOR5IsNull write SetCOLOR5IsNull;
+ property COLOR6: Integer read GetCOLOR6Value write SetCOLOR6Value;
+ property COLOR6IsNull: Boolean read GetCOLOR6IsNull write SetCOLOR6IsNull;
+ property COLOR7: Integer read GetCOLOR7Value write SetCOLOR7Value;
+ property COLOR7IsNull: Boolean read GetCOLOR7IsNull write SetCOLOR7IsNull;
+ property COLOR8: Integer read GetCOLOR8Value write SetCOLOR8Value;
+ property COLOR8IsNull: Boolean read GetCOLOR8IsNull write SetCOLOR8IsNull;
+ property COLOR9: Integer read GetCOLOR9Value write SetCOLOR9Value;
+ property COLOR9IsNull: Boolean read GetCOLOR9IsNull write SetCOLOR9IsNull;
+ property COLOR10: Integer read GetCOLOR10Value write SetCOLOR10Value;
+ property COLOR10IsNull: Boolean read GetCOLOR10IsNull write SetCOLOR10IsNull;
+ property COLOR11: Integer read GetCOLOR11Value write SetCOLOR11Value;
+ property COLOR11IsNull: Boolean read GetCOLOR11IsNull write SetCOLOR11IsNull;
+ property COLOR12: Integer read GetCOLOR12Value write SetCOLOR12Value;
+ property COLOR12IsNull: Boolean read GetCOLOR12IsNull write SetCOLOR12IsNull;
+ end;
+
+ { TPedidosCliente_Detalle_ColorDataTableRules }
+ TPedidosCliente_Detalle_ColorDataTableRules = class(TDADataTableRules, IPedidosCliente_Detalle_Color)
+ private
+ protected
+ { Property getters and setters }
+ function GetIDValue: Integer; virtual;
+ procedure SetIDValue(const aValue: Integer); virtual;
+ function GetIDIsNull: Boolean; virtual;
+ procedure SetIDIsNull(const aValue: Boolean); virtual;
+ function GetID_DETALLEValue: Integer; virtual;
+ procedure SetID_DETALLEValue(const aValue: Integer); virtual;
+ function GetID_DETALLEIsNull: Boolean; virtual;
+ procedure SetID_DETALLEIsNull(const aValue: Boolean); virtual;
+ function GetCOLOR1Value: Integer; virtual;
+ procedure SetCOLOR1Value(const aValue: Integer); virtual;
+ function GetCOLOR1IsNull: Boolean; virtual;
+ procedure SetCOLOR1IsNull(const aValue: Boolean); virtual;
+ function GetCOLOR2Value: Integer; virtual;
+ procedure SetCOLOR2Value(const aValue: Integer); virtual;
+ function GetCOLOR2IsNull: Boolean; virtual;
+ procedure SetCOLOR2IsNull(const aValue: Boolean); virtual;
+ function GetCOLOR3Value: Integer; virtual;
+ procedure SetCOLOR3Value(const aValue: Integer); virtual;
+ function GetCOLOR3IsNull: Boolean; virtual;
+ procedure SetCOLOR3IsNull(const aValue: Boolean); virtual;
+ function GetCOLOR4Value: Integer; virtual;
+ procedure SetCOLOR4Value(const aValue: Integer); virtual;
+ function GetCOLOR4IsNull: Boolean; virtual;
+ procedure SetCOLOR4IsNull(const aValue: Boolean); virtual;
+ function GetCOLOR5Value: Integer; virtual;
+ procedure SetCOLOR5Value(const aValue: Integer); virtual;
+ function GetCOLOR5IsNull: Boolean; virtual;
+ procedure SetCOLOR5IsNull(const aValue: Boolean); virtual;
+ function GetCOLOR6Value: Integer; virtual;
+ procedure SetCOLOR6Value(const aValue: Integer); virtual;
+ function GetCOLOR6IsNull: Boolean; virtual;
+ procedure SetCOLOR6IsNull(const aValue: Boolean); virtual;
+ function GetCOLOR7Value: Integer; virtual;
+ procedure SetCOLOR7Value(const aValue: Integer); virtual;
+ function GetCOLOR7IsNull: Boolean; virtual;
+ procedure SetCOLOR7IsNull(const aValue: Boolean); virtual;
+ function GetCOLOR8Value: Integer; virtual;
+ procedure SetCOLOR8Value(const aValue: Integer); virtual;
+ function GetCOLOR8IsNull: Boolean; virtual;
+ procedure SetCOLOR8IsNull(const aValue: Boolean); virtual;
+ function GetCOLOR9Value: Integer; virtual;
+ procedure SetCOLOR9Value(const aValue: Integer); virtual;
+ function GetCOLOR9IsNull: Boolean; virtual;
+ procedure SetCOLOR9IsNull(const aValue: Boolean); virtual;
+ function GetCOLOR10Value: Integer; virtual;
+ procedure SetCOLOR10Value(const aValue: Integer); virtual;
+ function GetCOLOR10IsNull: Boolean; virtual;
+ procedure SetCOLOR10IsNull(const aValue: Boolean); virtual;
+ function GetCOLOR11Value: Integer; virtual;
+ procedure SetCOLOR11Value(const aValue: Integer); virtual;
+ function GetCOLOR11IsNull: Boolean; virtual;
+ procedure SetCOLOR11IsNull(const aValue: Boolean); virtual;
+ function GetCOLOR12Value: Integer; virtual;
+ procedure SetCOLOR12Value(const aValue: Integer); virtual;
+ function GetCOLOR12IsNull: Boolean; virtual;
+ procedure SetCOLOR12IsNull(const aValue: Boolean); virtual;
+
+ { Properties }
+ property ID: Integer read GetIDValue write SetIDValue;
+ property IDIsNull: Boolean read GetIDIsNull write SetIDIsNull;
+ property ID_DETALLE: Integer read GetID_DETALLEValue write SetID_DETALLEValue;
+ property ID_DETALLEIsNull: Boolean read GetID_DETALLEIsNull write SetID_DETALLEIsNull;
+ property COLOR1: Integer read GetCOLOR1Value write SetCOLOR1Value;
+ property COLOR1IsNull: Boolean read GetCOLOR1IsNull write SetCOLOR1IsNull;
+ property COLOR2: Integer read GetCOLOR2Value write SetCOLOR2Value;
+ property COLOR2IsNull: Boolean read GetCOLOR2IsNull write SetCOLOR2IsNull;
+ property COLOR3: Integer read GetCOLOR3Value write SetCOLOR3Value;
+ property COLOR3IsNull: Boolean read GetCOLOR3IsNull write SetCOLOR3IsNull;
+ property COLOR4: Integer read GetCOLOR4Value write SetCOLOR4Value;
+ property COLOR4IsNull: Boolean read GetCOLOR4IsNull write SetCOLOR4IsNull;
+ property COLOR5: Integer read GetCOLOR5Value write SetCOLOR5Value;
+ property COLOR5IsNull: Boolean read GetCOLOR5IsNull write SetCOLOR5IsNull;
+ property COLOR6: Integer read GetCOLOR6Value write SetCOLOR6Value;
+ property COLOR6IsNull: Boolean read GetCOLOR6IsNull write SetCOLOR6IsNull;
+ property COLOR7: Integer read GetCOLOR7Value write SetCOLOR7Value;
+ property COLOR7IsNull: Boolean read GetCOLOR7IsNull write SetCOLOR7IsNull;
+ property COLOR8: Integer read GetCOLOR8Value write SetCOLOR8Value;
+ property COLOR8IsNull: Boolean read GetCOLOR8IsNull write SetCOLOR8IsNull;
+ property COLOR9: Integer read GetCOLOR9Value write SetCOLOR9Value;
+ property COLOR9IsNull: Boolean read GetCOLOR9IsNull write SetCOLOR9IsNull;
+ property COLOR10: Integer read GetCOLOR10Value write SetCOLOR10Value;
+ property COLOR10IsNull: Boolean read GetCOLOR10IsNull write SetCOLOR10IsNull;
+ property COLOR11: Integer read GetCOLOR11Value write SetCOLOR11Value;
+ property COLOR11IsNull: Boolean read GetCOLOR11IsNull write SetCOLOR11IsNull;
+ property COLOR12: Integer read GetCOLOR12Value write SetCOLOR12Value;
+ property COLOR12IsNull: Boolean read GetCOLOR12IsNull write SetCOLOR12IsNull;
+
+ public
+ constructor Create(aDataTable: TDADataTable); override;
+ destructor Destroy; override;
+
+ end;
+
implementation
uses Variants, uROBinaryHelpers;
@@ -1694,6 +1975,48 @@ begin
DataTable.Fields[idx_PedidosClienteIMPORTE_DESCUENTO].AsVariant := Null;
end;
+function TPedidosClienteDataTableRules.GetDESCUENTO2Value: Float;
+begin
+ result := DataTable.Fields[idx_PedidosClienteDESCUENTO2].AsFloat;
+end;
+
+procedure TPedidosClienteDataTableRules.SetDESCUENTO2Value(const aValue: Float);
+begin
+ DataTable.Fields[idx_PedidosClienteDESCUENTO2].AsFloat := aValue;
+end;
+
+function TPedidosClienteDataTableRules.GetDESCUENTO2IsNull: boolean;
+begin
+ result := DataTable.Fields[idx_PedidosClienteDESCUENTO2].IsNull;
+end;
+
+procedure TPedidosClienteDataTableRules.SetDESCUENTO2IsNull(const aValue: Boolean);
+begin
+ if aValue then
+ DataTable.Fields[idx_PedidosClienteDESCUENTO2].AsVariant := Null;
+end;
+
+function TPedidosClienteDataTableRules.GetIMPORTE_DESCUENTO2Value: Currency;
+begin
+ result := DataTable.Fields[idx_PedidosClienteIMPORTE_DESCUENTO2].AsCurrency;
+end;
+
+procedure TPedidosClienteDataTableRules.SetIMPORTE_DESCUENTO2Value(const aValue: Currency);
+begin
+ DataTable.Fields[idx_PedidosClienteIMPORTE_DESCUENTO2].AsCurrency := aValue;
+end;
+
+function TPedidosClienteDataTableRules.GetIMPORTE_DESCUENTO2IsNull: boolean;
+begin
+ result := DataTable.Fields[idx_PedidosClienteIMPORTE_DESCUENTO2].IsNull;
+end;
+
+procedure TPedidosClienteDataTableRules.SetIMPORTE_DESCUENTO2IsNull(const aValue: Boolean);
+begin
+ if aValue then
+ DataTable.Fields[idx_PedidosClienteIMPORTE_DESCUENTO2].AsVariant := Null;
+end;
+
function TPedidosClienteDataTableRules.GetBASE_IMPONIBLEValue: Currency;
begin
result := DataTable.Fields[idx_PedidosClienteBASE_IMPONIBLE].AsCurrency;
@@ -1799,6 +2122,27 @@ begin
DataTable.Fields[idx_PedidosClienteID_FORMA_PAGO].AsVariant := Null;
end;
+function TPedidosClienteDataTableRules.GetFORMA_PAGOValue: String;
+begin
+ result := DataTable.Fields[idx_PedidosClienteFORMA_PAGO].AsString;
+end;
+
+procedure TPedidosClienteDataTableRules.SetFORMA_PAGOValue(const aValue: String);
+begin
+ DataTable.Fields[idx_PedidosClienteFORMA_PAGO].AsString := aValue;
+end;
+
+function TPedidosClienteDataTableRules.GetFORMA_PAGOIsNull: boolean;
+begin
+ result := DataTable.Fields[idx_PedidosClienteFORMA_PAGO].IsNull;
+end;
+
+procedure TPedidosClienteDataTableRules.SetFORMA_PAGOIsNull(const aValue: Boolean);
+begin
+ if aValue then
+ DataTable.Fields[idx_PedidosClienteFORMA_PAGO].AsVariant := Null;
+end;
+
function TPedidosClienteDataTableRules.GetREF_TIENDA_WEBValue: Integer;
begin
result := DataTable.Fields[idx_PedidosClienteREF_TIENDA_WEB].AsInteger;
@@ -1841,6 +2185,27 @@ begin
DataTable.Fields[idx_PedidosClienteFECHA_PREVISTA_ENVIO].AsVariant := Null;
end;
+function TPedidosClienteDataTableRules.GetDATOS_BANCARIOSValue: String;
+begin
+ result := DataTable.Fields[idx_PedidosClienteDATOS_BANCARIOS].AsString;
+end;
+
+procedure TPedidosClienteDataTableRules.SetDATOS_BANCARIOSValue(const aValue: String);
+begin
+ DataTable.Fields[idx_PedidosClienteDATOS_BANCARIOS].AsString := aValue;
+end;
+
+function TPedidosClienteDataTableRules.GetDATOS_BANCARIOSIsNull: boolean;
+begin
+ result := DataTable.Fields[idx_PedidosClienteDATOS_BANCARIOS].IsNull;
+end;
+
+procedure TPedidosClienteDataTableRules.SetDATOS_BANCARIOSIsNull(const aValue: Boolean);
+begin
+ if aValue then
+ DataTable.Fields[idx_PedidosClienteDATOS_BANCARIOS].AsVariant := Null;
+end;
+
{ TPedidosCliente_DetallesDataTableRules }
constructor TPedidosCliente_DetallesDataTableRules.Create(aDataTable: TDADataTable);
@@ -2021,14 +2386,14 @@ begin
DataTable.Fields[idx_PedidosCliente_DetallesCONCEPTO].AsVariant := Null;
end;
-function TPedidosCliente_DetallesDataTableRules.GetCANTIDADValue: Integer;
+function TPedidosCliente_DetallesDataTableRules.GetCANTIDADValue: Float;
begin
- result := DataTable.Fields[idx_PedidosCliente_DetallesCANTIDAD].AsInteger;
+ result := DataTable.Fields[idx_PedidosCliente_DetallesCANTIDAD].AsFloat;
end;
-procedure TPedidosCliente_DetallesDataTableRules.SetCANTIDADValue(const aValue: Integer);
+procedure TPedidosCliente_DetallesDataTableRules.SetCANTIDADValue(const aValue: Float);
begin
- DataTable.Fields[idx_PedidosCliente_DetallesCANTIDAD].AsInteger := aValue;
+ DataTable.Fields[idx_PedidosCliente_DetallesCANTIDAD].AsFloat := aValue;
end;
function TPedidosCliente_DetallesDataTableRules.GetCANTIDADIsNull: boolean;
@@ -2265,11 +2630,318 @@ begin
end;
+{ TPedidosCliente_Detalle_ColorDataTableRules }
+constructor TPedidosCliente_Detalle_ColorDataTableRules.Create(aDataTable: TDADataTable);
+begin
+ inherited;
+end;
+
+destructor TPedidosCliente_Detalle_ColorDataTableRules.Destroy;
+begin
+ inherited;
+end;
+
+function TPedidosCliente_Detalle_ColorDataTableRules.GetIDValue: Integer;
+begin
+ result := DataTable.Fields[idx_PedidosCliente_Detalle_ColorID].AsInteger;
+end;
+
+procedure TPedidosCliente_Detalle_ColorDataTableRules.SetIDValue(const aValue: Integer);
+begin
+ DataTable.Fields[idx_PedidosCliente_Detalle_ColorID].AsInteger := aValue;
+end;
+
+function TPedidosCliente_Detalle_ColorDataTableRules.GetIDIsNull: boolean;
+begin
+ result := DataTable.Fields[idx_PedidosCliente_Detalle_ColorID].IsNull;
+end;
+
+procedure TPedidosCliente_Detalle_ColorDataTableRules.SetIDIsNull(const aValue: Boolean);
+begin
+ if aValue then
+ DataTable.Fields[idx_PedidosCliente_Detalle_ColorID].AsVariant := Null;
+end;
+
+function TPedidosCliente_Detalle_ColorDataTableRules.GetID_DETALLEValue: Integer;
+begin
+ result := DataTable.Fields[idx_PedidosCliente_Detalle_ColorID_DETALLE].AsInteger;
+end;
+
+procedure TPedidosCliente_Detalle_ColorDataTableRules.SetID_DETALLEValue(const aValue: Integer);
+begin
+ DataTable.Fields[idx_PedidosCliente_Detalle_ColorID_DETALLE].AsInteger := aValue;
+end;
+
+function TPedidosCliente_Detalle_ColorDataTableRules.GetID_DETALLEIsNull: boolean;
+begin
+ result := DataTable.Fields[idx_PedidosCliente_Detalle_ColorID_DETALLE].IsNull;
+end;
+
+procedure TPedidosCliente_Detalle_ColorDataTableRules.SetID_DETALLEIsNull(const aValue: Boolean);
+begin
+ if aValue then
+ DataTable.Fields[idx_PedidosCliente_Detalle_ColorID_DETALLE].AsVariant := Null;
+end;
+
+function TPedidosCliente_Detalle_ColorDataTableRules.GetCOLOR1Value: Integer;
+begin
+ result := DataTable.Fields[idx_PedidosCliente_Detalle_ColorCOLOR1].AsInteger;
+end;
+
+procedure TPedidosCliente_Detalle_ColorDataTableRules.SetCOLOR1Value(const aValue: Integer);
+begin
+ DataTable.Fields[idx_PedidosCliente_Detalle_ColorCOLOR1].AsInteger := aValue;
+end;
+
+function TPedidosCliente_Detalle_ColorDataTableRules.GetCOLOR1IsNull: boolean;
+begin
+ result := DataTable.Fields[idx_PedidosCliente_Detalle_ColorCOLOR1].IsNull;
+end;
+
+procedure TPedidosCliente_Detalle_ColorDataTableRules.SetCOLOR1IsNull(const aValue: Boolean);
+begin
+ if aValue then
+ DataTable.Fields[idx_PedidosCliente_Detalle_ColorCOLOR1].AsVariant := Null;
+end;
+
+function TPedidosCliente_Detalle_ColorDataTableRules.GetCOLOR2Value: Integer;
+begin
+ result := DataTable.Fields[idx_PedidosCliente_Detalle_ColorCOLOR2].AsInteger;
+end;
+
+procedure TPedidosCliente_Detalle_ColorDataTableRules.SetCOLOR2Value(const aValue: Integer);
+begin
+ DataTable.Fields[idx_PedidosCliente_Detalle_ColorCOLOR2].AsInteger := aValue;
+end;
+
+function TPedidosCliente_Detalle_ColorDataTableRules.GetCOLOR2IsNull: boolean;
+begin
+ result := DataTable.Fields[idx_PedidosCliente_Detalle_ColorCOLOR2].IsNull;
+end;
+
+procedure TPedidosCliente_Detalle_ColorDataTableRules.SetCOLOR2IsNull(const aValue: Boolean);
+begin
+ if aValue then
+ DataTable.Fields[idx_PedidosCliente_Detalle_ColorCOLOR2].AsVariant := Null;
+end;
+
+function TPedidosCliente_Detalle_ColorDataTableRules.GetCOLOR3Value: Integer;
+begin
+ result := DataTable.Fields[idx_PedidosCliente_Detalle_ColorCOLOR3].AsInteger;
+end;
+
+procedure TPedidosCliente_Detalle_ColorDataTableRules.SetCOLOR3Value(const aValue: Integer);
+begin
+ DataTable.Fields[idx_PedidosCliente_Detalle_ColorCOLOR3].AsInteger := aValue;
+end;
+
+function TPedidosCliente_Detalle_ColorDataTableRules.GetCOLOR3IsNull: boolean;
+begin
+ result := DataTable.Fields[idx_PedidosCliente_Detalle_ColorCOLOR3].IsNull;
+end;
+
+procedure TPedidosCliente_Detalle_ColorDataTableRules.SetCOLOR3IsNull(const aValue: Boolean);
+begin
+ if aValue then
+ DataTable.Fields[idx_PedidosCliente_Detalle_ColorCOLOR3].AsVariant := Null;
+end;
+
+function TPedidosCliente_Detalle_ColorDataTableRules.GetCOLOR4Value: Integer;
+begin
+ result := DataTable.Fields[idx_PedidosCliente_Detalle_ColorCOLOR4].AsInteger;
+end;
+
+procedure TPedidosCliente_Detalle_ColorDataTableRules.SetCOLOR4Value(const aValue: Integer);
+begin
+ DataTable.Fields[idx_PedidosCliente_Detalle_ColorCOLOR4].AsInteger := aValue;
+end;
+
+function TPedidosCliente_Detalle_ColorDataTableRules.GetCOLOR4IsNull: boolean;
+begin
+ result := DataTable.Fields[idx_PedidosCliente_Detalle_ColorCOLOR4].IsNull;
+end;
+
+procedure TPedidosCliente_Detalle_ColorDataTableRules.SetCOLOR4IsNull(const aValue: Boolean);
+begin
+ if aValue then
+ DataTable.Fields[idx_PedidosCliente_Detalle_ColorCOLOR4].AsVariant := Null;
+end;
+
+function TPedidosCliente_Detalle_ColorDataTableRules.GetCOLOR5Value: Integer;
+begin
+ result := DataTable.Fields[idx_PedidosCliente_Detalle_ColorCOLOR5].AsInteger;
+end;
+
+procedure TPedidosCliente_Detalle_ColorDataTableRules.SetCOLOR5Value(const aValue: Integer);
+begin
+ DataTable.Fields[idx_PedidosCliente_Detalle_ColorCOLOR5].AsInteger := aValue;
+end;
+
+function TPedidosCliente_Detalle_ColorDataTableRules.GetCOLOR5IsNull: boolean;
+begin
+ result := DataTable.Fields[idx_PedidosCliente_Detalle_ColorCOLOR5].IsNull;
+end;
+
+procedure TPedidosCliente_Detalle_ColorDataTableRules.SetCOLOR5IsNull(const aValue: Boolean);
+begin
+ if aValue then
+ DataTable.Fields[idx_PedidosCliente_Detalle_ColorCOLOR5].AsVariant := Null;
+end;
+
+function TPedidosCliente_Detalle_ColorDataTableRules.GetCOLOR6Value: Integer;
+begin
+ result := DataTable.Fields[idx_PedidosCliente_Detalle_ColorCOLOR6].AsInteger;
+end;
+
+procedure TPedidosCliente_Detalle_ColorDataTableRules.SetCOLOR6Value(const aValue: Integer);
+begin
+ DataTable.Fields[idx_PedidosCliente_Detalle_ColorCOLOR6].AsInteger := aValue;
+end;
+
+function TPedidosCliente_Detalle_ColorDataTableRules.GetCOLOR6IsNull: boolean;
+begin
+ result := DataTable.Fields[idx_PedidosCliente_Detalle_ColorCOLOR6].IsNull;
+end;
+
+procedure TPedidosCliente_Detalle_ColorDataTableRules.SetCOLOR6IsNull(const aValue: Boolean);
+begin
+ if aValue then
+ DataTable.Fields[idx_PedidosCliente_Detalle_ColorCOLOR6].AsVariant := Null;
+end;
+
+function TPedidosCliente_Detalle_ColorDataTableRules.GetCOLOR7Value: Integer;
+begin
+ result := DataTable.Fields[idx_PedidosCliente_Detalle_ColorCOLOR7].AsInteger;
+end;
+
+procedure TPedidosCliente_Detalle_ColorDataTableRules.SetCOLOR7Value(const aValue: Integer);
+begin
+ DataTable.Fields[idx_PedidosCliente_Detalle_ColorCOLOR7].AsInteger := aValue;
+end;
+
+function TPedidosCliente_Detalle_ColorDataTableRules.GetCOLOR7IsNull: boolean;
+begin
+ result := DataTable.Fields[idx_PedidosCliente_Detalle_ColorCOLOR7].IsNull;
+end;
+
+procedure TPedidosCliente_Detalle_ColorDataTableRules.SetCOLOR7IsNull(const aValue: Boolean);
+begin
+ if aValue then
+ DataTable.Fields[idx_PedidosCliente_Detalle_ColorCOLOR7].AsVariant := Null;
+end;
+
+function TPedidosCliente_Detalle_ColorDataTableRules.GetCOLOR8Value: Integer;
+begin
+ result := DataTable.Fields[idx_PedidosCliente_Detalle_ColorCOLOR8].AsInteger;
+end;
+
+procedure TPedidosCliente_Detalle_ColorDataTableRules.SetCOLOR8Value(const aValue: Integer);
+begin
+ DataTable.Fields[idx_PedidosCliente_Detalle_ColorCOLOR8].AsInteger := aValue;
+end;
+
+function TPedidosCliente_Detalle_ColorDataTableRules.GetCOLOR8IsNull: boolean;
+begin
+ result := DataTable.Fields[idx_PedidosCliente_Detalle_ColorCOLOR8].IsNull;
+end;
+
+procedure TPedidosCliente_Detalle_ColorDataTableRules.SetCOLOR8IsNull(const aValue: Boolean);
+begin
+ if aValue then
+ DataTable.Fields[idx_PedidosCliente_Detalle_ColorCOLOR8].AsVariant := Null;
+end;
+
+function TPedidosCliente_Detalle_ColorDataTableRules.GetCOLOR9Value: Integer;
+begin
+ result := DataTable.Fields[idx_PedidosCliente_Detalle_ColorCOLOR9].AsInteger;
+end;
+
+procedure TPedidosCliente_Detalle_ColorDataTableRules.SetCOLOR9Value(const aValue: Integer);
+begin
+ DataTable.Fields[idx_PedidosCliente_Detalle_ColorCOLOR9].AsInteger := aValue;
+end;
+
+function TPedidosCliente_Detalle_ColorDataTableRules.GetCOLOR9IsNull: boolean;
+begin
+ result := DataTable.Fields[idx_PedidosCliente_Detalle_ColorCOLOR9].IsNull;
+end;
+
+procedure TPedidosCliente_Detalle_ColorDataTableRules.SetCOLOR9IsNull(const aValue: Boolean);
+begin
+ if aValue then
+ DataTable.Fields[idx_PedidosCliente_Detalle_ColorCOLOR9].AsVariant := Null;
+end;
+
+function TPedidosCliente_Detalle_ColorDataTableRules.GetCOLOR10Value: Integer;
+begin
+ result := DataTable.Fields[idx_PedidosCliente_Detalle_ColorCOLOR10].AsInteger;
+end;
+
+procedure TPedidosCliente_Detalle_ColorDataTableRules.SetCOLOR10Value(const aValue: Integer);
+begin
+ DataTable.Fields[idx_PedidosCliente_Detalle_ColorCOLOR10].AsInteger := aValue;
+end;
+
+function TPedidosCliente_Detalle_ColorDataTableRules.GetCOLOR10IsNull: boolean;
+begin
+ result := DataTable.Fields[idx_PedidosCliente_Detalle_ColorCOLOR10].IsNull;
+end;
+
+procedure TPedidosCliente_Detalle_ColorDataTableRules.SetCOLOR10IsNull(const aValue: Boolean);
+begin
+ if aValue then
+ DataTable.Fields[idx_PedidosCliente_Detalle_ColorCOLOR10].AsVariant := Null;
+end;
+
+function TPedidosCliente_Detalle_ColorDataTableRules.GetCOLOR11Value: Integer;
+begin
+ result := DataTable.Fields[idx_PedidosCliente_Detalle_ColorCOLOR11].AsInteger;
+end;
+
+procedure TPedidosCliente_Detalle_ColorDataTableRules.SetCOLOR11Value(const aValue: Integer);
+begin
+ DataTable.Fields[idx_PedidosCliente_Detalle_ColorCOLOR11].AsInteger := aValue;
+end;
+
+function TPedidosCliente_Detalle_ColorDataTableRules.GetCOLOR11IsNull: boolean;
+begin
+ result := DataTable.Fields[idx_PedidosCliente_Detalle_ColorCOLOR11].IsNull;
+end;
+
+procedure TPedidosCliente_Detalle_ColorDataTableRules.SetCOLOR11IsNull(const aValue: Boolean);
+begin
+ if aValue then
+ DataTable.Fields[idx_PedidosCliente_Detalle_ColorCOLOR11].AsVariant := Null;
+end;
+
+function TPedidosCliente_Detalle_ColorDataTableRules.GetCOLOR12Value: Integer;
+begin
+ result := DataTable.Fields[idx_PedidosCliente_Detalle_ColorCOLOR12].AsInteger;
+end;
+
+procedure TPedidosCliente_Detalle_ColorDataTableRules.SetCOLOR12Value(const aValue: Integer);
+begin
+ DataTable.Fields[idx_PedidosCliente_Detalle_ColorCOLOR12].AsInteger := aValue;
+end;
+
+function TPedidosCliente_Detalle_ColorDataTableRules.GetCOLOR12IsNull: boolean;
+begin
+ result := DataTable.Fields[idx_PedidosCliente_Detalle_ColorCOLOR12].IsNull;
+end;
+
+procedure TPedidosCliente_Detalle_ColorDataTableRules.SetCOLOR12IsNull(const aValue: Boolean);
+begin
+ if aValue then
+ DataTable.Fields[idx_PedidosCliente_Detalle_ColorCOLOR12].AsVariant := Null;
+end;
+
+
initialization
RegisterDataTableRules(RID_ListaAnosPedidos, TListaAnosPedidosDataTableRules);
RegisterDataTableRules(RID_PedidoCliente_ArticulosPendientesPedirAProv, TPedidoCliente_ArticulosPendientesPedirAProvDataTableRules);
RegisterDataTableRules(RID_PedidosCliente, TPedidosClienteDataTableRules);
RegisterDataTableRules(RID_PedidosCliente_Detalles, TPedidosCliente_DetallesDataTableRules);
RegisterDataTableRules(RID_PedidoCliente_Articulos_Pendientes, TPedidoCliente_Articulos_PendientesDataTableRules);
+ RegisterDataTableRules(RID_PedidosCliente_Detalle_Color, TPedidosCliente_Detalle_ColorDataTableRules);
end.
diff --git a/Source/Modulos/Pedidos de cliente/Model/schPedidosClienteServer_Intf.pas b/Source/Modulos/Pedidos de cliente/Model/schPedidosClienteServer_Intf.pas
index 26fa275..27095be 100644
--- a/Source/Modulos/Pedidos de cliente/Model/schPedidosClienteServer_Intf.pas
+++ b/Source/Modulos/Pedidos de cliente/Model/schPedidosClienteServer_Intf.pas
@@ -10,16 +10,17 @@ 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 = '{A04BBC77-03CC-4621-953B-1C3B2089269A}';
- RID_PedidoCliente_ArticulosPendientesPedirAProvDelta = '{17281417-EAC7-47FE-B840-76854AAA929C}';
- RID_PedidosClienteDelta = '{0A44D5A5-8250-4178-8E70-9E9ADAE18766}';
- RID_PedidosCliente_DetallesDelta = '{B507E20E-6224-4EA6-884B-8360B5DFD389}';
- RID_PedidoCliente_Articulos_PendientesDelta = '{AC0D7DCC-F468-4392-A50E-64FD48C17389}';
+ RID_ListaAnosPedidosDelta = '{617D55B7-E779-40EA-830C-C6A1769D54C5}';
+ RID_PedidoCliente_ArticulosPendientesPedirAProvDelta = '{481257F8-85E9-45D7-9026-7406ADBB6776}';
+ RID_PedidosClienteDelta = '{735405CE-2979-407D-B693-C6121AEF5B99}';
+ RID_PedidosCliente_DetallesDelta = '{8CB2D21E-806D-4058-A9F0-1C281C84E223}';
+ RID_PedidoCliente_Articulos_PendientesDelta = '{7F05C554-8229-44C3-BEFF-6EEA3857594E}';
+ RID_PedidosCliente_Detalle_ColorDelta = '{02CF7475-6483-4BA4-A515-6636F11E37B2}';
type
{ IListaAnosPedidosDelta }
IListaAnosPedidosDelta = interface(IListaAnosPedidos)
- ['{A04BBC77-03CC-4621-953B-1C3B2089269A}']
+ ['{617D55B7-E779-40EA-830C-C6A1769D54C5}']
{ Property getters and setters }
function GetOldANOValue : String;
@@ -53,7 +54,7 @@ type
{ IPedidoCliente_ArticulosPendientesPedirAProvDelta }
IPedidoCliente_ArticulosPendientesPedirAProvDelta = interface(IPedidoCliente_ArticulosPendientesPedirAProv)
- ['{17281417-EAC7-47FE-B840-76854AAA929C}']
+ ['{481257F8-85E9-45D7-9026-7406ADBB6776}']
{ Property getters and setters }
function GetOldID_PEDIDOValue : Integer;
function GetOldID_ARTICULOValue : Integer;
@@ -147,7 +148,7 @@ type
{ IPedidosClienteDelta }
IPedidosClienteDelta = interface(IPedidosCliente)
- ['{0A44D5A5-8250-4178-8E70-9E9ADAE18766}']
+ ['{735405CE-2979-407D-B693-C6121AEF5B99}']
{ Property getters and setters }
function GetOldIDValue : Integer;
function GetOldID_EMPRESAValue : Integer;
@@ -174,13 +175,17 @@ type
function GetOldIMPORTE_PORTEValue : Currency;
function GetOldDESCUENTOValue : Float;
function GetOldIMPORTE_DESCUENTOValue : Currency;
+ function GetOldDESCUENTO2Value : Float;
+ function GetOldIMPORTE_DESCUENTO2Value : Currency;
function GetOldBASE_IMPONIBLEValue : Currency;
function GetOldIVAValue : Float;
function GetOldIMPORTE_IVAValue : Currency;
function GetOldIMPORTE_TOTALValue : Currency;
function GetOldID_FORMA_PAGOValue : Integer;
+ function GetOldFORMA_PAGOValue : String;
function GetOldREF_TIENDA_WEBValue : Integer;
function GetOldFECHA_PREVISTA_ENVIOValue : DateTime;
+ function GetOldDATOS_BANCARIOSValue : String;
{ Properties }
property OldID : Integer read GetOldIDValue;
@@ -208,13 +213,17 @@ type
property OldIMPORTE_PORTE : Currency read GetOldIMPORTE_PORTEValue;
property OldDESCUENTO : Float read GetOldDESCUENTOValue;
property OldIMPORTE_DESCUENTO : Currency read GetOldIMPORTE_DESCUENTOValue;
+ property OldDESCUENTO2 : Float read GetOldDESCUENTO2Value;
+ property OldIMPORTE_DESCUENTO2 : Currency read GetOldIMPORTE_DESCUENTO2Value;
property OldBASE_IMPONIBLE : Currency read GetOldBASE_IMPONIBLEValue;
property OldIVA : Float read GetOldIVAValue;
property OldIMPORTE_IVA : Currency read GetOldIMPORTE_IVAValue;
property OldIMPORTE_TOTAL : Currency read GetOldIMPORTE_TOTALValue;
property OldID_FORMA_PAGO : Integer read GetOldID_FORMA_PAGOValue;
+ property OldFORMA_PAGO : String read GetOldFORMA_PAGOValue;
property OldREF_TIENDA_WEB : Integer read GetOldREF_TIENDA_WEBValue;
property OldFECHA_PREVISTA_ENVIO : DateTime read GetOldFECHA_PREVISTA_ENVIOValue;
+ property OldDATOS_BANCARIOS : String read GetOldDATOS_BANCARIOSValue;
end;
{ TPedidosClienteBusinessProcessorRules }
@@ -374,6 +383,18 @@ type
function GetOldIMPORTE_DESCUENTOIsNull: Boolean; virtual;
procedure SetIMPORTE_DESCUENTOValue(const aValue: Currency); virtual;
procedure SetIMPORTE_DESCUENTOIsNull(const aValue: Boolean); virtual;
+ function GetDESCUENTO2Value: Float; virtual;
+ function GetDESCUENTO2IsNull: Boolean; virtual;
+ function GetOldDESCUENTO2Value: Float; virtual;
+ function GetOldDESCUENTO2IsNull: Boolean; virtual;
+ procedure SetDESCUENTO2Value(const aValue: Float); virtual;
+ procedure SetDESCUENTO2IsNull(const aValue: Boolean); virtual;
+ function GetIMPORTE_DESCUENTO2Value: Currency; virtual;
+ function GetIMPORTE_DESCUENTO2IsNull: Boolean; virtual;
+ function GetOldIMPORTE_DESCUENTO2Value: Currency; virtual;
+ function GetOldIMPORTE_DESCUENTO2IsNull: Boolean; virtual;
+ procedure SetIMPORTE_DESCUENTO2Value(const aValue: Currency); virtual;
+ procedure SetIMPORTE_DESCUENTO2IsNull(const aValue: Boolean); virtual;
function GetBASE_IMPONIBLEValue: Currency; virtual;
function GetBASE_IMPONIBLEIsNull: Boolean; virtual;
function GetOldBASE_IMPONIBLEValue: Currency; virtual;
@@ -404,6 +425,12 @@ type
function GetOldID_FORMA_PAGOIsNull: Boolean; virtual;
procedure SetID_FORMA_PAGOValue(const aValue: Integer); virtual;
procedure SetID_FORMA_PAGOIsNull(const aValue: Boolean); virtual;
+ function GetFORMA_PAGOValue: String; virtual;
+ function GetFORMA_PAGOIsNull: Boolean; virtual;
+ function GetOldFORMA_PAGOValue: String; virtual;
+ function GetOldFORMA_PAGOIsNull: Boolean; virtual;
+ procedure SetFORMA_PAGOValue(const aValue: String); virtual;
+ procedure SetFORMA_PAGOIsNull(const aValue: Boolean); virtual;
function GetREF_TIENDA_WEBValue: Integer; virtual;
function GetREF_TIENDA_WEBIsNull: Boolean; virtual;
function GetOldREF_TIENDA_WEBValue: Integer; virtual;
@@ -416,6 +443,12 @@ type
function GetOldFECHA_PREVISTA_ENVIOIsNull: Boolean; virtual;
procedure SetFECHA_PREVISTA_ENVIOValue(const aValue: DateTime); virtual;
procedure SetFECHA_PREVISTA_ENVIOIsNull(const aValue: Boolean); virtual;
+ function GetDATOS_BANCARIOSValue: String; virtual;
+ function GetDATOS_BANCARIOSIsNull: Boolean; virtual;
+ function GetOldDATOS_BANCARIOSValue: String; virtual;
+ function GetOldDATOS_BANCARIOSIsNull: Boolean; virtual;
+ procedure SetDATOS_BANCARIOSValue(const aValue: String); virtual;
+ procedure SetDATOS_BANCARIOSIsNull(const aValue: Boolean); virtual;
{ Properties }
property ID : Integer read GetIDValue write SetIDValue;
@@ -518,6 +551,14 @@ type
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 DESCUENTO2 : Float read GetDESCUENTO2Value write SetDESCUENTO2Value;
+ property DESCUENTO2IsNull : Boolean read GetDESCUENTO2IsNull write SetDESCUENTO2IsNull;
+ property OldDESCUENTO2 : Float read GetOldDESCUENTO2Value;
+ property OldDESCUENTO2IsNull : Boolean read GetOldDESCUENTO2IsNull;
+ property IMPORTE_DESCUENTO2 : Currency read GetIMPORTE_DESCUENTO2Value write SetIMPORTE_DESCUENTO2Value;
+ property IMPORTE_DESCUENTO2IsNull : Boolean read GetIMPORTE_DESCUENTO2IsNull write SetIMPORTE_DESCUENTO2IsNull;
+ property OldIMPORTE_DESCUENTO2 : Currency read GetOldIMPORTE_DESCUENTO2Value;
+ property OldIMPORTE_DESCUENTO2IsNull : Boolean read GetOldIMPORTE_DESCUENTO2IsNull;
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;
@@ -538,6 +579,10 @@ type
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 FORMA_PAGO : String read GetFORMA_PAGOValue write SetFORMA_PAGOValue;
+ property FORMA_PAGOIsNull : Boolean read GetFORMA_PAGOIsNull write SetFORMA_PAGOIsNull;
+ property OldFORMA_PAGO : String read GetOldFORMA_PAGOValue;
+ property OldFORMA_PAGOIsNull : Boolean read GetOldFORMA_PAGOIsNull;
property REF_TIENDA_WEB : Integer read GetREF_TIENDA_WEBValue write SetREF_TIENDA_WEBValue;
property REF_TIENDA_WEBIsNull : Boolean read GetREF_TIENDA_WEBIsNull write SetREF_TIENDA_WEBIsNull;
property OldREF_TIENDA_WEB : Integer read GetOldREF_TIENDA_WEBValue;
@@ -546,6 +591,10 @@ type
property FECHA_PREVISTA_ENVIOIsNull : Boolean read GetFECHA_PREVISTA_ENVIOIsNull write SetFECHA_PREVISTA_ENVIOIsNull;
property OldFECHA_PREVISTA_ENVIO : DateTime read GetOldFECHA_PREVISTA_ENVIOValue;
property OldFECHA_PREVISTA_ENVIOIsNull : Boolean read GetOldFECHA_PREVISTA_ENVIOIsNull;
+ property DATOS_BANCARIOS : String read GetDATOS_BANCARIOSValue write SetDATOS_BANCARIOSValue;
+ property DATOS_BANCARIOSIsNull : Boolean read GetDATOS_BANCARIOSIsNull write SetDATOS_BANCARIOSIsNull;
+ property OldDATOS_BANCARIOS : String read GetOldDATOS_BANCARIOSValue;
+ property OldDATOS_BANCARIOSIsNull : Boolean read GetOldDATOS_BANCARIOSIsNull;
public
constructor Create(aBusinessProcessor: TDABusinessProcessor); override;
@@ -555,7 +604,7 @@ type
{ IPedidosCliente_DetallesDelta }
IPedidosCliente_DetallesDelta = interface(IPedidosCliente_Detalles)
- ['{B507E20E-6224-4EA6-884B-8360B5DFD389}']
+ ['{8CB2D21E-806D-4058-A9F0-1C281C84E223}']
{ Property getters and setters }
function GetOldIDValue : Integer;
function GetOldID_PEDIDOValue : Integer;
@@ -565,7 +614,7 @@ type
function GetOldREFERENCIAValue : String;
function GetOldREFERENCIA_PROVEEDORValue : String;
function GetOldCONCEPTOValue : String;
- function GetOldCANTIDADValue : Integer;
+ function GetOldCANTIDADValue : Float;
function GetOldIMPORTE_UNIDADValue : Currency;
function GetOldUNIDAD_MEDIDAValue : String;
function GetOldDESCUENTOValue : Float;
@@ -582,7 +631,7 @@ type
property OldREFERENCIA : String read GetOldREFERENCIAValue;
property OldREFERENCIA_PROVEEDOR : String read GetOldREFERENCIA_PROVEEDORValue;
property OldCONCEPTO : String read GetOldCONCEPTOValue;
- property OldCANTIDAD : Integer read GetOldCANTIDADValue;
+ property OldCANTIDAD : Float read GetOldCANTIDADValue;
property OldIMPORTE_UNIDAD : Currency read GetOldIMPORTE_UNIDADValue;
property OldUNIDAD_MEDIDA : String read GetOldUNIDAD_MEDIDAValue;
property OldDESCUENTO : Float read GetOldDESCUENTOValue;
@@ -644,11 +693,11 @@ type
function GetOldCONCEPTOIsNull: Boolean; virtual;
procedure SetCONCEPTOValue(const aValue: String); virtual;
procedure SetCONCEPTOIsNull(const aValue: Boolean); virtual;
- function GetCANTIDADValue: Integer; virtual;
+ function GetCANTIDADValue: Float; virtual;
function GetCANTIDADIsNull: Boolean; virtual;
- function GetOldCANTIDADValue: Integer; virtual;
+ function GetOldCANTIDADValue: Float; virtual;
function GetOldCANTIDADIsNull: Boolean; virtual;
- procedure SetCANTIDADValue(const aValue: Integer); virtual;
+ procedure SetCANTIDADValue(const aValue: Float); virtual;
procedure SetCANTIDADIsNull(const aValue: Boolean); virtual;
function GetIMPORTE_UNIDADValue: Currency; virtual;
function GetIMPORTE_UNIDADIsNull: Boolean; virtual;
@@ -720,9 +769,9 @@ type
property CONCEPTOIsNull : Boolean read GetCONCEPTOIsNull write SetCONCEPTOIsNull;
property OldCONCEPTO : String read GetOldCONCEPTOValue;
property OldCONCEPTOIsNull : Boolean read GetOldCONCEPTOIsNull;
- property CANTIDAD : Integer read GetCANTIDADValue write SetCANTIDADValue;
+ property CANTIDAD : Float read GetCANTIDADValue write SetCANTIDADValue;
property CANTIDADIsNull : Boolean read GetCANTIDADIsNull write SetCANTIDADIsNull;
- property OldCANTIDAD : Integer read GetOldCANTIDADValue;
+ property OldCANTIDAD : Float 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;
@@ -757,7 +806,7 @@ type
{ IPedidoCliente_Articulos_PendientesDelta }
IPedidoCliente_Articulos_PendientesDelta = interface(IPedidoCliente_Articulos_Pendientes)
- ['{AC0D7DCC-F468-4392-A50E-64FD48C17389}']
+ ['{7F05C554-8229-44C3-BEFF-6EEA3857594E}']
{ Property getters and setters }
function GetOldID_ARTICULOValue : Integer;
function GetOldCANTIDAD_PEDValue : Integer;
@@ -825,6 +874,196 @@ type
end;
+ { IPedidosCliente_Detalle_ColorDelta }
+ IPedidosCliente_Detalle_ColorDelta = interface(IPedidosCliente_Detalle_Color)
+ ['{02CF7475-6483-4BA4-A515-6636F11E37B2}']
+ { Property getters and setters }
+ function GetOldIDValue : Integer;
+ function GetOldID_DETALLEValue : Integer;
+ function GetOldCOLOR1Value : Integer;
+ function GetOldCOLOR2Value : Integer;
+ function GetOldCOLOR3Value : Integer;
+ function GetOldCOLOR4Value : Integer;
+ function GetOldCOLOR5Value : Integer;
+ function GetOldCOLOR6Value : Integer;
+ function GetOldCOLOR7Value : Integer;
+ function GetOldCOLOR8Value : Integer;
+ function GetOldCOLOR9Value : Integer;
+ function GetOldCOLOR10Value : Integer;
+ function GetOldCOLOR11Value : Integer;
+ function GetOldCOLOR12Value : Integer;
+
+ { Properties }
+ property OldID : Integer read GetOldIDValue;
+ property OldID_DETALLE : Integer read GetOldID_DETALLEValue;
+ property OldCOLOR1 : Integer read GetOldCOLOR1Value;
+ property OldCOLOR2 : Integer read GetOldCOLOR2Value;
+ property OldCOLOR3 : Integer read GetOldCOLOR3Value;
+ property OldCOLOR4 : Integer read GetOldCOLOR4Value;
+ property OldCOLOR5 : Integer read GetOldCOLOR5Value;
+ property OldCOLOR6 : Integer read GetOldCOLOR6Value;
+ property OldCOLOR7 : Integer read GetOldCOLOR7Value;
+ property OldCOLOR8 : Integer read GetOldCOLOR8Value;
+ property OldCOLOR9 : Integer read GetOldCOLOR9Value;
+ property OldCOLOR10 : Integer read GetOldCOLOR10Value;
+ property OldCOLOR11 : Integer read GetOldCOLOR11Value;
+ property OldCOLOR12 : Integer read GetOldCOLOR12Value;
+ end;
+
+ { TPedidosCliente_Detalle_ColorBusinessProcessorRules }
+ TPedidosCliente_Detalle_ColorBusinessProcessorRules = class(TDABusinessProcessorRules, IPedidosCliente_Detalle_Color, IPedidosCliente_Detalle_ColorDelta)
+ 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_DETALLEValue: Integer; virtual;
+ function GetID_DETALLEIsNull: Boolean; virtual;
+ function GetOldID_DETALLEValue: Integer; virtual;
+ function GetOldID_DETALLEIsNull: Boolean; virtual;
+ procedure SetID_DETALLEValue(const aValue: Integer); virtual;
+ procedure SetID_DETALLEIsNull(const aValue: Boolean); virtual;
+ function GetCOLOR1Value: Integer; virtual;
+ function GetCOLOR1IsNull: Boolean; virtual;
+ function GetOldCOLOR1Value: Integer; virtual;
+ function GetOldCOLOR1IsNull: Boolean; virtual;
+ procedure SetCOLOR1Value(const aValue: Integer); virtual;
+ procedure SetCOLOR1IsNull(const aValue: Boolean); virtual;
+ function GetCOLOR2Value: Integer; virtual;
+ function GetCOLOR2IsNull: Boolean; virtual;
+ function GetOldCOLOR2Value: Integer; virtual;
+ function GetOldCOLOR2IsNull: Boolean; virtual;
+ procedure SetCOLOR2Value(const aValue: Integer); virtual;
+ procedure SetCOLOR2IsNull(const aValue: Boolean); virtual;
+ function GetCOLOR3Value: Integer; virtual;
+ function GetCOLOR3IsNull: Boolean; virtual;
+ function GetOldCOLOR3Value: Integer; virtual;
+ function GetOldCOLOR3IsNull: Boolean; virtual;
+ procedure SetCOLOR3Value(const aValue: Integer); virtual;
+ procedure SetCOLOR3IsNull(const aValue: Boolean); virtual;
+ function GetCOLOR4Value: Integer; virtual;
+ function GetCOLOR4IsNull: Boolean; virtual;
+ function GetOldCOLOR4Value: Integer; virtual;
+ function GetOldCOLOR4IsNull: Boolean; virtual;
+ procedure SetCOLOR4Value(const aValue: Integer); virtual;
+ procedure SetCOLOR4IsNull(const aValue: Boolean); virtual;
+ function GetCOLOR5Value: Integer; virtual;
+ function GetCOLOR5IsNull: Boolean; virtual;
+ function GetOldCOLOR5Value: Integer; virtual;
+ function GetOldCOLOR5IsNull: Boolean; virtual;
+ procedure SetCOLOR5Value(const aValue: Integer); virtual;
+ procedure SetCOLOR5IsNull(const aValue: Boolean); virtual;
+ function GetCOLOR6Value: Integer; virtual;
+ function GetCOLOR6IsNull: Boolean; virtual;
+ function GetOldCOLOR6Value: Integer; virtual;
+ function GetOldCOLOR6IsNull: Boolean; virtual;
+ procedure SetCOLOR6Value(const aValue: Integer); virtual;
+ procedure SetCOLOR6IsNull(const aValue: Boolean); virtual;
+ function GetCOLOR7Value: Integer; virtual;
+ function GetCOLOR7IsNull: Boolean; virtual;
+ function GetOldCOLOR7Value: Integer; virtual;
+ function GetOldCOLOR7IsNull: Boolean; virtual;
+ procedure SetCOLOR7Value(const aValue: Integer); virtual;
+ procedure SetCOLOR7IsNull(const aValue: Boolean); virtual;
+ function GetCOLOR8Value: Integer; virtual;
+ function GetCOLOR8IsNull: Boolean; virtual;
+ function GetOldCOLOR8Value: Integer; virtual;
+ function GetOldCOLOR8IsNull: Boolean; virtual;
+ procedure SetCOLOR8Value(const aValue: Integer); virtual;
+ procedure SetCOLOR8IsNull(const aValue: Boolean); virtual;
+ function GetCOLOR9Value: Integer; virtual;
+ function GetCOLOR9IsNull: Boolean; virtual;
+ function GetOldCOLOR9Value: Integer; virtual;
+ function GetOldCOLOR9IsNull: Boolean; virtual;
+ procedure SetCOLOR9Value(const aValue: Integer); virtual;
+ procedure SetCOLOR9IsNull(const aValue: Boolean); virtual;
+ function GetCOLOR10Value: Integer; virtual;
+ function GetCOLOR10IsNull: Boolean; virtual;
+ function GetOldCOLOR10Value: Integer; virtual;
+ function GetOldCOLOR10IsNull: Boolean; virtual;
+ procedure SetCOLOR10Value(const aValue: Integer); virtual;
+ procedure SetCOLOR10IsNull(const aValue: Boolean); virtual;
+ function GetCOLOR11Value: Integer; virtual;
+ function GetCOLOR11IsNull: Boolean; virtual;
+ function GetOldCOLOR11Value: Integer; virtual;
+ function GetOldCOLOR11IsNull: Boolean; virtual;
+ procedure SetCOLOR11Value(const aValue: Integer); virtual;
+ procedure SetCOLOR11IsNull(const aValue: Boolean); virtual;
+ function GetCOLOR12Value: Integer; virtual;
+ function GetCOLOR12IsNull: Boolean; virtual;
+ function GetOldCOLOR12Value: Integer; virtual;
+ function GetOldCOLOR12IsNull: Boolean; virtual;
+ procedure SetCOLOR12Value(const aValue: Integer); virtual;
+ procedure SetCOLOR12IsNull(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_DETALLE : Integer read GetID_DETALLEValue write SetID_DETALLEValue;
+ property ID_DETALLEIsNull : Boolean read GetID_DETALLEIsNull write SetID_DETALLEIsNull;
+ property OldID_DETALLE : Integer read GetOldID_DETALLEValue;
+ property OldID_DETALLEIsNull : Boolean read GetOldID_DETALLEIsNull;
+ property COLOR1 : Integer read GetCOLOR1Value write SetCOLOR1Value;
+ property COLOR1IsNull : Boolean read GetCOLOR1IsNull write SetCOLOR1IsNull;
+ property OldCOLOR1 : Integer read GetOldCOLOR1Value;
+ property OldCOLOR1IsNull : Boolean read GetOldCOLOR1IsNull;
+ property COLOR2 : Integer read GetCOLOR2Value write SetCOLOR2Value;
+ property COLOR2IsNull : Boolean read GetCOLOR2IsNull write SetCOLOR2IsNull;
+ property OldCOLOR2 : Integer read GetOldCOLOR2Value;
+ property OldCOLOR2IsNull : Boolean read GetOldCOLOR2IsNull;
+ property COLOR3 : Integer read GetCOLOR3Value write SetCOLOR3Value;
+ property COLOR3IsNull : Boolean read GetCOLOR3IsNull write SetCOLOR3IsNull;
+ property OldCOLOR3 : Integer read GetOldCOLOR3Value;
+ property OldCOLOR3IsNull : Boolean read GetOldCOLOR3IsNull;
+ property COLOR4 : Integer read GetCOLOR4Value write SetCOLOR4Value;
+ property COLOR4IsNull : Boolean read GetCOLOR4IsNull write SetCOLOR4IsNull;
+ property OldCOLOR4 : Integer read GetOldCOLOR4Value;
+ property OldCOLOR4IsNull : Boolean read GetOldCOLOR4IsNull;
+ property COLOR5 : Integer read GetCOLOR5Value write SetCOLOR5Value;
+ property COLOR5IsNull : Boolean read GetCOLOR5IsNull write SetCOLOR5IsNull;
+ property OldCOLOR5 : Integer read GetOldCOLOR5Value;
+ property OldCOLOR5IsNull : Boolean read GetOldCOLOR5IsNull;
+ property COLOR6 : Integer read GetCOLOR6Value write SetCOLOR6Value;
+ property COLOR6IsNull : Boolean read GetCOLOR6IsNull write SetCOLOR6IsNull;
+ property OldCOLOR6 : Integer read GetOldCOLOR6Value;
+ property OldCOLOR6IsNull : Boolean read GetOldCOLOR6IsNull;
+ property COLOR7 : Integer read GetCOLOR7Value write SetCOLOR7Value;
+ property COLOR7IsNull : Boolean read GetCOLOR7IsNull write SetCOLOR7IsNull;
+ property OldCOLOR7 : Integer read GetOldCOLOR7Value;
+ property OldCOLOR7IsNull : Boolean read GetOldCOLOR7IsNull;
+ property COLOR8 : Integer read GetCOLOR8Value write SetCOLOR8Value;
+ property COLOR8IsNull : Boolean read GetCOLOR8IsNull write SetCOLOR8IsNull;
+ property OldCOLOR8 : Integer read GetOldCOLOR8Value;
+ property OldCOLOR8IsNull : Boolean read GetOldCOLOR8IsNull;
+ property COLOR9 : Integer read GetCOLOR9Value write SetCOLOR9Value;
+ property COLOR9IsNull : Boolean read GetCOLOR9IsNull write SetCOLOR9IsNull;
+ property OldCOLOR9 : Integer read GetOldCOLOR9Value;
+ property OldCOLOR9IsNull : Boolean read GetOldCOLOR9IsNull;
+ property COLOR10 : Integer read GetCOLOR10Value write SetCOLOR10Value;
+ property COLOR10IsNull : Boolean read GetCOLOR10IsNull write SetCOLOR10IsNull;
+ property OldCOLOR10 : Integer read GetOldCOLOR10Value;
+ property OldCOLOR10IsNull : Boolean read GetOldCOLOR10IsNull;
+ property COLOR11 : Integer read GetCOLOR11Value write SetCOLOR11Value;
+ property COLOR11IsNull : Boolean read GetCOLOR11IsNull write SetCOLOR11IsNull;
+ property OldCOLOR11 : Integer read GetOldCOLOR11Value;
+ property OldCOLOR11IsNull : Boolean read GetOldCOLOR11IsNull;
+ property COLOR12 : Integer read GetCOLOR12Value write SetCOLOR12Value;
+ property COLOR12IsNull : Boolean read GetCOLOR12IsNull write SetCOLOR12IsNull;
+ property OldCOLOR12 : Integer read GetOldCOLOR12Value;
+ property OldCOLOR12IsNull : Boolean read GetOldCOLOR12IsNull;
+
+ public
+ constructor Create(aBusinessProcessor: TDABusinessProcessor); override;
+ destructor Destroy; override;
+
+ end;
+
implementation
uses
@@ -1999,6 +2238,76 @@ begin
BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosClienteIMPORTE_DESCUENTO] := Null;
end;
+function TPedidosClienteBusinessProcessorRules.GetDESCUENTO2Value: Float;
+begin
+ result := BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosClienteDESCUENTO2];
+end;
+
+function TPedidosClienteBusinessProcessorRules.GetDESCUENTO2IsNull: Boolean;
+var v: variant;
+begin
+ v := BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosClienteDESCUENTO2];
+ result := VarIsNull(v) or VarIsClear(v);
+end;
+
+function TPedidosClienteBusinessProcessorRules.GetOldDESCUENTO2Value: Float;
+begin
+ result := BusinessProcessor.CurrentChange.OldValueByName[fld_PedidosClienteDESCUENTO2];
+end;
+
+function TPedidosClienteBusinessProcessorRules.GetOldDESCUENTO2IsNull: Boolean;
+var v: variant;
+begin
+ v := BusinessProcessor.CurrentChange.OldValueByName[fld_PedidosClienteDESCUENTO2];
+ result := VarIsNull(v) or VarIsClear(v);
+end;
+
+procedure TPedidosClienteBusinessProcessorRules.SetDESCUENTO2Value(const aValue: Float);
+begin
+ BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosClienteDESCUENTO2] := aValue;
+end;
+
+procedure TPedidosClienteBusinessProcessorRules.SetDESCUENTO2IsNull(const aValue: Boolean);
+begin
+ if aValue then
+ BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosClienteDESCUENTO2] := Null;
+end;
+
+function TPedidosClienteBusinessProcessorRules.GetIMPORTE_DESCUENTO2Value: Currency;
+begin
+ result := BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosClienteIMPORTE_DESCUENTO2];
+end;
+
+function TPedidosClienteBusinessProcessorRules.GetIMPORTE_DESCUENTO2IsNull: Boolean;
+var v: variant;
+begin
+ v := BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosClienteIMPORTE_DESCUENTO2];
+ result := VarIsNull(v) or VarIsClear(v);
+end;
+
+function TPedidosClienteBusinessProcessorRules.GetOldIMPORTE_DESCUENTO2Value: Currency;
+begin
+ result := BusinessProcessor.CurrentChange.OldValueByName[fld_PedidosClienteIMPORTE_DESCUENTO2];
+end;
+
+function TPedidosClienteBusinessProcessorRules.GetOldIMPORTE_DESCUENTO2IsNull: Boolean;
+var v: variant;
+begin
+ v := BusinessProcessor.CurrentChange.OldValueByName[fld_PedidosClienteIMPORTE_DESCUENTO2];
+ result := VarIsNull(v) or VarIsClear(v);
+end;
+
+procedure TPedidosClienteBusinessProcessorRules.SetIMPORTE_DESCUENTO2Value(const aValue: Currency);
+begin
+ BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosClienteIMPORTE_DESCUENTO2] := aValue;
+end;
+
+procedure TPedidosClienteBusinessProcessorRules.SetIMPORTE_DESCUENTO2IsNull(const aValue: Boolean);
+begin
+ if aValue then
+ BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosClienteIMPORTE_DESCUENTO2] := Null;
+end;
+
function TPedidosClienteBusinessProcessorRules.GetBASE_IMPONIBLEValue: Currency;
begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosClienteBASE_IMPONIBLE];
@@ -2174,6 +2483,41 @@ begin
BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosClienteID_FORMA_PAGO] := Null;
end;
+function TPedidosClienteBusinessProcessorRules.GetFORMA_PAGOValue: String;
+begin
+ result := BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosClienteFORMA_PAGO];
+end;
+
+function TPedidosClienteBusinessProcessorRules.GetFORMA_PAGOIsNull: Boolean;
+var v: variant;
+begin
+ v := BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosClienteFORMA_PAGO];
+ result := VarIsNull(v) or VarIsClear(v);
+end;
+
+function TPedidosClienteBusinessProcessorRules.GetOldFORMA_PAGOValue: String;
+begin
+ result := BusinessProcessor.CurrentChange.OldValueByName[fld_PedidosClienteFORMA_PAGO];
+end;
+
+function TPedidosClienteBusinessProcessorRules.GetOldFORMA_PAGOIsNull: Boolean;
+var v: variant;
+begin
+ v := BusinessProcessor.CurrentChange.OldValueByName[fld_PedidosClienteFORMA_PAGO];
+ result := VarIsNull(v) or VarIsClear(v);
+end;
+
+procedure TPedidosClienteBusinessProcessorRules.SetFORMA_PAGOValue(const aValue: String);
+begin
+ BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosClienteFORMA_PAGO] := aValue;
+end;
+
+procedure TPedidosClienteBusinessProcessorRules.SetFORMA_PAGOIsNull(const aValue: Boolean);
+begin
+ if aValue then
+ BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosClienteFORMA_PAGO] := Null;
+end;
+
function TPedidosClienteBusinessProcessorRules.GetREF_TIENDA_WEBValue: Integer;
begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosClienteREF_TIENDA_WEB];
@@ -2244,6 +2588,41 @@ begin
BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosClienteFECHA_PREVISTA_ENVIO] := Null;
end;
+function TPedidosClienteBusinessProcessorRules.GetDATOS_BANCARIOSValue: String;
+begin
+ result := BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosClienteDATOS_BANCARIOS];
+end;
+
+function TPedidosClienteBusinessProcessorRules.GetDATOS_BANCARIOSIsNull: Boolean;
+var v: variant;
+begin
+ v := BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosClienteDATOS_BANCARIOS];
+ result := VarIsNull(v) or VarIsClear(v);
+end;
+
+function TPedidosClienteBusinessProcessorRules.GetOldDATOS_BANCARIOSValue: String;
+begin
+ result := BusinessProcessor.CurrentChange.OldValueByName[fld_PedidosClienteDATOS_BANCARIOS];
+end;
+
+function TPedidosClienteBusinessProcessorRules.GetOldDATOS_BANCARIOSIsNull: Boolean;
+var v: variant;
+begin
+ v := BusinessProcessor.CurrentChange.OldValueByName[fld_PedidosClienteDATOS_BANCARIOS];
+ result := VarIsNull(v) or VarIsClear(v);
+end;
+
+procedure TPedidosClienteBusinessProcessorRules.SetDATOS_BANCARIOSValue(const aValue: String);
+begin
+ BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosClienteDATOS_BANCARIOS] := aValue;
+end;
+
+procedure TPedidosClienteBusinessProcessorRules.SetDATOS_BANCARIOSIsNull(const aValue: Boolean);
+begin
+ if aValue then
+ BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosClienteDATOS_BANCARIOS] := Null;
+end;
+
{ TPedidosCliente_DetallesBusinessProcessorRules }
constructor TPedidosCliente_DetallesBusinessProcessorRules.Create(aBusinessProcessor: TDABusinessProcessor);
@@ -2536,7 +2915,7 @@ begin
BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosCliente_DetallesCONCEPTO] := Null;
end;
-function TPedidosCliente_DetallesBusinessProcessorRules.GetCANTIDADValue: Integer;
+function TPedidosCliente_DetallesBusinessProcessorRules.GetCANTIDADValue: Float;
begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosCliente_DetallesCANTIDAD];
end;
@@ -2548,7 +2927,7 @@ begin
result := VarIsNull(v) or VarIsClear(v);
end;
-function TPedidosCliente_DetallesBusinessProcessorRules.GetOldCANTIDADValue: Integer;
+function TPedidosCliente_DetallesBusinessProcessorRules.GetOldCANTIDADValue: Float;
begin
result := BusinessProcessor.CurrentChange.OldValueByName[fld_PedidosCliente_DetallesCANTIDAD];
end;
@@ -2560,7 +2939,7 @@ begin
result := VarIsNull(v) or VarIsClear(v);
end;
-procedure TPedidosCliente_DetallesBusinessProcessorRules.SetCANTIDADValue(const aValue: Integer);
+procedure TPedidosCliente_DetallesBusinessProcessorRules.SetCANTIDADValue(const aValue: Float);
begin
BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosCliente_DetallesCANTIDAD] := aValue;
end;
@@ -2934,11 +3313,514 @@ begin
end;
+{ TPedidosCliente_Detalle_ColorBusinessProcessorRules }
+constructor TPedidosCliente_Detalle_ColorBusinessProcessorRules.Create(aBusinessProcessor: TDABusinessProcessor);
+begin
+ inherited;
+end;
+
+destructor TPedidosCliente_Detalle_ColorBusinessProcessorRules.Destroy;
+begin
+ inherited;
+end;
+
+function TPedidosCliente_Detalle_ColorBusinessProcessorRules.GetIDValue: Integer;
+begin
+ result := BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosCliente_Detalle_ColorID];
+end;
+
+function TPedidosCliente_Detalle_ColorBusinessProcessorRules.GetIDIsNull: Boolean;
+var v: variant;
+begin
+ v := BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosCliente_Detalle_ColorID];
+ result := VarIsNull(v) or VarIsClear(v);
+end;
+
+function TPedidosCliente_Detalle_ColorBusinessProcessorRules.GetOldIDValue: Integer;
+begin
+ result := BusinessProcessor.CurrentChange.OldValueByName[fld_PedidosCliente_Detalle_ColorID];
+end;
+
+function TPedidosCliente_Detalle_ColorBusinessProcessorRules.GetOldIDIsNull: Boolean;
+var v: variant;
+begin
+ v := BusinessProcessor.CurrentChange.OldValueByName[fld_PedidosCliente_Detalle_ColorID];
+ result := VarIsNull(v) or VarIsClear(v);
+end;
+
+procedure TPedidosCliente_Detalle_ColorBusinessProcessorRules.SetIDValue(const aValue: Integer);
+begin
+ BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosCliente_Detalle_ColorID] := aValue;
+end;
+
+procedure TPedidosCliente_Detalle_ColorBusinessProcessorRules.SetIDIsNull(const aValue: Boolean);
+begin
+ if aValue then
+ BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosCliente_Detalle_ColorID] := Null;
+end;
+
+function TPedidosCliente_Detalle_ColorBusinessProcessorRules.GetID_DETALLEValue: Integer;
+begin
+ result := BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosCliente_Detalle_ColorID_DETALLE];
+end;
+
+function TPedidosCliente_Detalle_ColorBusinessProcessorRules.GetID_DETALLEIsNull: Boolean;
+var v: variant;
+begin
+ v := BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosCliente_Detalle_ColorID_DETALLE];
+ result := VarIsNull(v) or VarIsClear(v);
+end;
+
+function TPedidosCliente_Detalle_ColorBusinessProcessorRules.GetOldID_DETALLEValue: Integer;
+begin
+ result := BusinessProcessor.CurrentChange.OldValueByName[fld_PedidosCliente_Detalle_ColorID_DETALLE];
+end;
+
+function TPedidosCliente_Detalle_ColorBusinessProcessorRules.GetOldID_DETALLEIsNull: Boolean;
+var v: variant;
+begin
+ v := BusinessProcessor.CurrentChange.OldValueByName[fld_PedidosCliente_Detalle_ColorID_DETALLE];
+ result := VarIsNull(v) or VarIsClear(v);
+end;
+
+procedure TPedidosCliente_Detalle_ColorBusinessProcessorRules.SetID_DETALLEValue(const aValue: Integer);
+begin
+ BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosCliente_Detalle_ColorID_DETALLE] := aValue;
+end;
+
+procedure TPedidosCliente_Detalle_ColorBusinessProcessorRules.SetID_DETALLEIsNull(const aValue: Boolean);
+begin
+ if aValue then
+ BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosCliente_Detalle_ColorID_DETALLE] := Null;
+end;
+
+function TPedidosCliente_Detalle_ColorBusinessProcessorRules.GetCOLOR1Value: Integer;
+begin
+ result := BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosCliente_Detalle_ColorCOLOR1];
+end;
+
+function TPedidosCliente_Detalle_ColorBusinessProcessorRules.GetCOLOR1IsNull: Boolean;
+var v: variant;
+begin
+ v := BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosCliente_Detalle_ColorCOLOR1];
+ result := VarIsNull(v) or VarIsClear(v);
+end;
+
+function TPedidosCliente_Detalle_ColorBusinessProcessorRules.GetOldCOLOR1Value: Integer;
+begin
+ result := BusinessProcessor.CurrentChange.OldValueByName[fld_PedidosCliente_Detalle_ColorCOLOR1];
+end;
+
+function TPedidosCliente_Detalle_ColorBusinessProcessorRules.GetOldCOLOR1IsNull: Boolean;
+var v: variant;
+begin
+ v := BusinessProcessor.CurrentChange.OldValueByName[fld_PedidosCliente_Detalle_ColorCOLOR1];
+ result := VarIsNull(v) or VarIsClear(v);
+end;
+
+procedure TPedidosCliente_Detalle_ColorBusinessProcessorRules.SetCOLOR1Value(const aValue: Integer);
+begin
+ BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosCliente_Detalle_ColorCOLOR1] := aValue;
+end;
+
+procedure TPedidosCliente_Detalle_ColorBusinessProcessorRules.SetCOLOR1IsNull(const aValue: Boolean);
+begin
+ if aValue then
+ BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosCliente_Detalle_ColorCOLOR1] := Null;
+end;
+
+function TPedidosCliente_Detalle_ColorBusinessProcessorRules.GetCOLOR2Value: Integer;
+begin
+ result := BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosCliente_Detalle_ColorCOLOR2];
+end;
+
+function TPedidosCliente_Detalle_ColorBusinessProcessorRules.GetCOLOR2IsNull: Boolean;
+var v: variant;
+begin
+ v := BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosCliente_Detalle_ColorCOLOR2];
+ result := VarIsNull(v) or VarIsClear(v);
+end;
+
+function TPedidosCliente_Detalle_ColorBusinessProcessorRules.GetOldCOLOR2Value: Integer;
+begin
+ result := BusinessProcessor.CurrentChange.OldValueByName[fld_PedidosCliente_Detalle_ColorCOLOR2];
+end;
+
+function TPedidosCliente_Detalle_ColorBusinessProcessorRules.GetOldCOLOR2IsNull: Boolean;
+var v: variant;
+begin
+ v := BusinessProcessor.CurrentChange.OldValueByName[fld_PedidosCliente_Detalle_ColorCOLOR2];
+ result := VarIsNull(v) or VarIsClear(v);
+end;
+
+procedure TPedidosCliente_Detalle_ColorBusinessProcessorRules.SetCOLOR2Value(const aValue: Integer);
+begin
+ BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosCliente_Detalle_ColorCOLOR2] := aValue;
+end;
+
+procedure TPedidosCliente_Detalle_ColorBusinessProcessorRules.SetCOLOR2IsNull(const aValue: Boolean);
+begin
+ if aValue then
+ BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosCliente_Detalle_ColorCOLOR2] := Null;
+end;
+
+function TPedidosCliente_Detalle_ColorBusinessProcessorRules.GetCOLOR3Value: Integer;
+begin
+ result := BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosCliente_Detalle_ColorCOLOR3];
+end;
+
+function TPedidosCliente_Detalle_ColorBusinessProcessorRules.GetCOLOR3IsNull: Boolean;
+var v: variant;
+begin
+ v := BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosCliente_Detalle_ColorCOLOR3];
+ result := VarIsNull(v) or VarIsClear(v);
+end;
+
+function TPedidosCliente_Detalle_ColorBusinessProcessorRules.GetOldCOLOR3Value: Integer;
+begin
+ result := BusinessProcessor.CurrentChange.OldValueByName[fld_PedidosCliente_Detalle_ColorCOLOR3];
+end;
+
+function TPedidosCliente_Detalle_ColorBusinessProcessorRules.GetOldCOLOR3IsNull: Boolean;
+var v: variant;
+begin
+ v := BusinessProcessor.CurrentChange.OldValueByName[fld_PedidosCliente_Detalle_ColorCOLOR3];
+ result := VarIsNull(v) or VarIsClear(v);
+end;
+
+procedure TPedidosCliente_Detalle_ColorBusinessProcessorRules.SetCOLOR3Value(const aValue: Integer);
+begin
+ BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosCliente_Detalle_ColorCOLOR3] := aValue;
+end;
+
+procedure TPedidosCliente_Detalle_ColorBusinessProcessorRules.SetCOLOR3IsNull(const aValue: Boolean);
+begin
+ if aValue then
+ BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosCliente_Detalle_ColorCOLOR3] := Null;
+end;
+
+function TPedidosCliente_Detalle_ColorBusinessProcessorRules.GetCOLOR4Value: Integer;
+begin
+ result := BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosCliente_Detalle_ColorCOLOR4];
+end;
+
+function TPedidosCliente_Detalle_ColorBusinessProcessorRules.GetCOLOR4IsNull: Boolean;
+var v: variant;
+begin
+ v := BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosCliente_Detalle_ColorCOLOR4];
+ result := VarIsNull(v) or VarIsClear(v);
+end;
+
+function TPedidosCliente_Detalle_ColorBusinessProcessorRules.GetOldCOLOR4Value: Integer;
+begin
+ result := BusinessProcessor.CurrentChange.OldValueByName[fld_PedidosCliente_Detalle_ColorCOLOR4];
+end;
+
+function TPedidosCliente_Detalle_ColorBusinessProcessorRules.GetOldCOLOR4IsNull: Boolean;
+var v: variant;
+begin
+ v := BusinessProcessor.CurrentChange.OldValueByName[fld_PedidosCliente_Detalle_ColorCOLOR4];
+ result := VarIsNull(v) or VarIsClear(v);
+end;
+
+procedure TPedidosCliente_Detalle_ColorBusinessProcessorRules.SetCOLOR4Value(const aValue: Integer);
+begin
+ BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosCliente_Detalle_ColorCOLOR4] := aValue;
+end;
+
+procedure TPedidosCliente_Detalle_ColorBusinessProcessorRules.SetCOLOR4IsNull(const aValue: Boolean);
+begin
+ if aValue then
+ BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosCliente_Detalle_ColorCOLOR4] := Null;
+end;
+
+function TPedidosCliente_Detalle_ColorBusinessProcessorRules.GetCOLOR5Value: Integer;
+begin
+ result := BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosCliente_Detalle_ColorCOLOR5];
+end;
+
+function TPedidosCliente_Detalle_ColorBusinessProcessorRules.GetCOLOR5IsNull: Boolean;
+var v: variant;
+begin
+ v := BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosCliente_Detalle_ColorCOLOR5];
+ result := VarIsNull(v) or VarIsClear(v);
+end;
+
+function TPedidosCliente_Detalle_ColorBusinessProcessorRules.GetOldCOLOR5Value: Integer;
+begin
+ result := BusinessProcessor.CurrentChange.OldValueByName[fld_PedidosCliente_Detalle_ColorCOLOR5];
+end;
+
+function TPedidosCliente_Detalle_ColorBusinessProcessorRules.GetOldCOLOR5IsNull: Boolean;
+var v: variant;
+begin
+ v := BusinessProcessor.CurrentChange.OldValueByName[fld_PedidosCliente_Detalle_ColorCOLOR5];
+ result := VarIsNull(v) or VarIsClear(v);
+end;
+
+procedure TPedidosCliente_Detalle_ColorBusinessProcessorRules.SetCOLOR5Value(const aValue: Integer);
+begin
+ BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosCliente_Detalle_ColorCOLOR5] := aValue;
+end;
+
+procedure TPedidosCliente_Detalle_ColorBusinessProcessorRules.SetCOLOR5IsNull(const aValue: Boolean);
+begin
+ if aValue then
+ BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosCliente_Detalle_ColorCOLOR5] := Null;
+end;
+
+function TPedidosCliente_Detalle_ColorBusinessProcessorRules.GetCOLOR6Value: Integer;
+begin
+ result := BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosCliente_Detalle_ColorCOLOR6];
+end;
+
+function TPedidosCliente_Detalle_ColorBusinessProcessorRules.GetCOLOR6IsNull: Boolean;
+var v: variant;
+begin
+ v := BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosCliente_Detalle_ColorCOLOR6];
+ result := VarIsNull(v) or VarIsClear(v);
+end;
+
+function TPedidosCliente_Detalle_ColorBusinessProcessorRules.GetOldCOLOR6Value: Integer;
+begin
+ result := BusinessProcessor.CurrentChange.OldValueByName[fld_PedidosCliente_Detalle_ColorCOLOR6];
+end;
+
+function TPedidosCliente_Detalle_ColorBusinessProcessorRules.GetOldCOLOR6IsNull: Boolean;
+var v: variant;
+begin
+ v := BusinessProcessor.CurrentChange.OldValueByName[fld_PedidosCliente_Detalle_ColorCOLOR6];
+ result := VarIsNull(v) or VarIsClear(v);
+end;
+
+procedure TPedidosCliente_Detalle_ColorBusinessProcessorRules.SetCOLOR6Value(const aValue: Integer);
+begin
+ BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosCliente_Detalle_ColorCOLOR6] := aValue;
+end;
+
+procedure TPedidosCliente_Detalle_ColorBusinessProcessorRules.SetCOLOR6IsNull(const aValue: Boolean);
+begin
+ if aValue then
+ BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosCliente_Detalle_ColorCOLOR6] := Null;
+end;
+
+function TPedidosCliente_Detalle_ColorBusinessProcessorRules.GetCOLOR7Value: Integer;
+begin
+ result := BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosCliente_Detalle_ColorCOLOR7];
+end;
+
+function TPedidosCliente_Detalle_ColorBusinessProcessorRules.GetCOLOR7IsNull: Boolean;
+var v: variant;
+begin
+ v := BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosCliente_Detalle_ColorCOLOR7];
+ result := VarIsNull(v) or VarIsClear(v);
+end;
+
+function TPedidosCliente_Detalle_ColorBusinessProcessorRules.GetOldCOLOR7Value: Integer;
+begin
+ result := BusinessProcessor.CurrentChange.OldValueByName[fld_PedidosCliente_Detalle_ColorCOLOR7];
+end;
+
+function TPedidosCliente_Detalle_ColorBusinessProcessorRules.GetOldCOLOR7IsNull: Boolean;
+var v: variant;
+begin
+ v := BusinessProcessor.CurrentChange.OldValueByName[fld_PedidosCliente_Detalle_ColorCOLOR7];
+ result := VarIsNull(v) or VarIsClear(v);
+end;
+
+procedure TPedidosCliente_Detalle_ColorBusinessProcessorRules.SetCOLOR7Value(const aValue: Integer);
+begin
+ BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosCliente_Detalle_ColorCOLOR7] := aValue;
+end;
+
+procedure TPedidosCliente_Detalle_ColorBusinessProcessorRules.SetCOLOR7IsNull(const aValue: Boolean);
+begin
+ if aValue then
+ BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosCliente_Detalle_ColorCOLOR7] := Null;
+end;
+
+function TPedidosCliente_Detalle_ColorBusinessProcessorRules.GetCOLOR8Value: Integer;
+begin
+ result := BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosCliente_Detalle_ColorCOLOR8];
+end;
+
+function TPedidosCliente_Detalle_ColorBusinessProcessorRules.GetCOLOR8IsNull: Boolean;
+var v: variant;
+begin
+ v := BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosCliente_Detalle_ColorCOLOR8];
+ result := VarIsNull(v) or VarIsClear(v);
+end;
+
+function TPedidosCliente_Detalle_ColorBusinessProcessorRules.GetOldCOLOR8Value: Integer;
+begin
+ result := BusinessProcessor.CurrentChange.OldValueByName[fld_PedidosCliente_Detalle_ColorCOLOR8];
+end;
+
+function TPedidosCliente_Detalle_ColorBusinessProcessorRules.GetOldCOLOR8IsNull: Boolean;
+var v: variant;
+begin
+ v := BusinessProcessor.CurrentChange.OldValueByName[fld_PedidosCliente_Detalle_ColorCOLOR8];
+ result := VarIsNull(v) or VarIsClear(v);
+end;
+
+procedure TPedidosCliente_Detalle_ColorBusinessProcessorRules.SetCOLOR8Value(const aValue: Integer);
+begin
+ BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosCliente_Detalle_ColorCOLOR8] := aValue;
+end;
+
+procedure TPedidosCliente_Detalle_ColorBusinessProcessorRules.SetCOLOR8IsNull(const aValue: Boolean);
+begin
+ if aValue then
+ BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosCliente_Detalle_ColorCOLOR8] := Null;
+end;
+
+function TPedidosCliente_Detalle_ColorBusinessProcessorRules.GetCOLOR9Value: Integer;
+begin
+ result := BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosCliente_Detalle_ColorCOLOR9];
+end;
+
+function TPedidosCliente_Detalle_ColorBusinessProcessorRules.GetCOLOR9IsNull: Boolean;
+var v: variant;
+begin
+ v := BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosCliente_Detalle_ColorCOLOR9];
+ result := VarIsNull(v) or VarIsClear(v);
+end;
+
+function TPedidosCliente_Detalle_ColorBusinessProcessorRules.GetOldCOLOR9Value: Integer;
+begin
+ result := BusinessProcessor.CurrentChange.OldValueByName[fld_PedidosCliente_Detalle_ColorCOLOR9];
+end;
+
+function TPedidosCliente_Detalle_ColorBusinessProcessorRules.GetOldCOLOR9IsNull: Boolean;
+var v: variant;
+begin
+ v := BusinessProcessor.CurrentChange.OldValueByName[fld_PedidosCliente_Detalle_ColorCOLOR9];
+ result := VarIsNull(v) or VarIsClear(v);
+end;
+
+procedure TPedidosCliente_Detalle_ColorBusinessProcessorRules.SetCOLOR9Value(const aValue: Integer);
+begin
+ BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosCliente_Detalle_ColorCOLOR9] := aValue;
+end;
+
+procedure TPedidosCliente_Detalle_ColorBusinessProcessorRules.SetCOLOR9IsNull(const aValue: Boolean);
+begin
+ if aValue then
+ BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosCliente_Detalle_ColorCOLOR9] := Null;
+end;
+
+function TPedidosCliente_Detalle_ColorBusinessProcessorRules.GetCOLOR10Value: Integer;
+begin
+ result := BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosCliente_Detalle_ColorCOLOR10];
+end;
+
+function TPedidosCliente_Detalle_ColorBusinessProcessorRules.GetCOLOR10IsNull: Boolean;
+var v: variant;
+begin
+ v := BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosCliente_Detalle_ColorCOLOR10];
+ result := VarIsNull(v) or VarIsClear(v);
+end;
+
+function TPedidosCliente_Detalle_ColorBusinessProcessorRules.GetOldCOLOR10Value: Integer;
+begin
+ result := BusinessProcessor.CurrentChange.OldValueByName[fld_PedidosCliente_Detalle_ColorCOLOR10];
+end;
+
+function TPedidosCliente_Detalle_ColorBusinessProcessorRules.GetOldCOLOR10IsNull: Boolean;
+var v: variant;
+begin
+ v := BusinessProcessor.CurrentChange.OldValueByName[fld_PedidosCliente_Detalle_ColorCOLOR10];
+ result := VarIsNull(v) or VarIsClear(v);
+end;
+
+procedure TPedidosCliente_Detalle_ColorBusinessProcessorRules.SetCOLOR10Value(const aValue: Integer);
+begin
+ BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosCliente_Detalle_ColorCOLOR10] := aValue;
+end;
+
+procedure TPedidosCliente_Detalle_ColorBusinessProcessorRules.SetCOLOR10IsNull(const aValue: Boolean);
+begin
+ if aValue then
+ BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosCliente_Detalle_ColorCOLOR10] := Null;
+end;
+
+function TPedidosCliente_Detalle_ColorBusinessProcessorRules.GetCOLOR11Value: Integer;
+begin
+ result := BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosCliente_Detalle_ColorCOLOR11];
+end;
+
+function TPedidosCliente_Detalle_ColorBusinessProcessorRules.GetCOLOR11IsNull: Boolean;
+var v: variant;
+begin
+ v := BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosCliente_Detalle_ColorCOLOR11];
+ result := VarIsNull(v) or VarIsClear(v);
+end;
+
+function TPedidosCliente_Detalle_ColorBusinessProcessorRules.GetOldCOLOR11Value: Integer;
+begin
+ result := BusinessProcessor.CurrentChange.OldValueByName[fld_PedidosCliente_Detalle_ColorCOLOR11];
+end;
+
+function TPedidosCliente_Detalle_ColorBusinessProcessorRules.GetOldCOLOR11IsNull: Boolean;
+var v: variant;
+begin
+ v := BusinessProcessor.CurrentChange.OldValueByName[fld_PedidosCliente_Detalle_ColorCOLOR11];
+ result := VarIsNull(v) or VarIsClear(v);
+end;
+
+procedure TPedidosCliente_Detalle_ColorBusinessProcessorRules.SetCOLOR11Value(const aValue: Integer);
+begin
+ BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosCliente_Detalle_ColorCOLOR11] := aValue;
+end;
+
+procedure TPedidosCliente_Detalle_ColorBusinessProcessorRules.SetCOLOR11IsNull(const aValue: Boolean);
+begin
+ if aValue then
+ BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosCliente_Detalle_ColorCOLOR11] := Null;
+end;
+
+function TPedidosCliente_Detalle_ColorBusinessProcessorRules.GetCOLOR12Value: Integer;
+begin
+ result := BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosCliente_Detalle_ColorCOLOR12];
+end;
+
+function TPedidosCliente_Detalle_ColorBusinessProcessorRules.GetCOLOR12IsNull: Boolean;
+var v: variant;
+begin
+ v := BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosCliente_Detalle_ColorCOLOR12];
+ result := VarIsNull(v) or VarIsClear(v);
+end;
+
+function TPedidosCliente_Detalle_ColorBusinessProcessorRules.GetOldCOLOR12Value: Integer;
+begin
+ result := BusinessProcessor.CurrentChange.OldValueByName[fld_PedidosCliente_Detalle_ColorCOLOR12];
+end;
+
+function TPedidosCliente_Detalle_ColorBusinessProcessorRules.GetOldCOLOR12IsNull: Boolean;
+var v: variant;
+begin
+ v := BusinessProcessor.CurrentChange.OldValueByName[fld_PedidosCliente_Detalle_ColorCOLOR12];
+ result := VarIsNull(v) or VarIsClear(v);
+end;
+
+procedure TPedidosCliente_Detalle_ColorBusinessProcessorRules.SetCOLOR12Value(const aValue: Integer);
+begin
+ BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosCliente_Detalle_ColorCOLOR12] := aValue;
+end;
+
+procedure TPedidosCliente_Detalle_ColorBusinessProcessorRules.SetCOLOR12IsNull(const aValue: Boolean);
+begin
+ if aValue then
+ BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosCliente_Detalle_ColorCOLOR12] := Null;
+end;
+
+
initialization
RegisterBusinessProcessorRules(RID_ListaAnosPedidosDelta, TListaAnosPedidosBusinessProcessorRules);
RegisterBusinessProcessorRules(RID_PedidoCliente_ArticulosPendientesPedirAProvDelta, TPedidoCliente_ArticulosPendientesPedirAProvBusinessProcessorRules);
RegisterBusinessProcessorRules(RID_PedidosClienteDelta, TPedidosClienteBusinessProcessorRules);
RegisterBusinessProcessorRules(RID_PedidosCliente_DetallesDelta, TPedidosCliente_DetallesBusinessProcessorRules);
RegisterBusinessProcessorRules(RID_PedidoCliente_Articulos_PendientesDelta, TPedidoCliente_Articulos_PendientesBusinessProcessorRules);
+ RegisterBusinessProcessorRules(RID_PedidosCliente_Detalle_ColorDelta, TPedidosCliente_Detalle_ColorBusinessProcessorRules);
end.
diff --git a/Source/Modulos/Pedidos de cliente/Model/uBizDetallesPedidoCliente.pas b/Source/Modulos/Pedidos de cliente/Model/uBizDetallesPedidoCliente.pas
index 612488b..89b065d 100644
--- a/Source/Modulos/Pedidos de cliente/Model/uBizDetallesPedidoCliente.pas
+++ b/Source/Modulos/Pedidos de cliente/Model/uBizDetallesPedidoCliente.pas
@@ -3,7 +3,7 @@ unit uBizDetallesPedidoCliente;
interface
uses
- uDADataTable, schPedidosClienteClient_Intf;
+ uDADataTable, schPedidosClienteClient_Intf, uBizDetalleColoresPedidoCliente;
const
BIZ_CLIENT_DETALLES_PEDIDO_CLIENTE = 'Client.PedidoCliente.Detalles';
@@ -12,6 +12,9 @@ const
type
IBizDetallesPedidoCliente = interface(IPedidosCliente_Detalles)
['{2D7781DC-AD16-4857-9567-5C1620319781}']
+ function GetDetalleColores: IBizDetalleColoresPedidoCliente;
+ procedure SetDetalleColores(Value: IBizDetalleColoresPedidoCliente);
+ property DetalleColores: IBizDetalleColoresPedidoCliente read GetDetalleColores write SetDetalleColores;
end;
IBizPedidoClienteArticulosPend = interface(IPedidoCliente_Articulos_Pendientes)
@@ -19,12 +22,20 @@ type
end;
TBizDetallesPedidoCliente = class(TPedidosCliente_DetallesDataTableRules, IBizDetallesPedidoCliente)
- private
- ContIdAux: Integer;
protected
+ FDetalleColores : IBizDetalleColoresPedidoCliente;
+ FDetalleColoresLink : TDADataSource;
+
+ function GetDetalleColores: IBizDetalleColoresPedidoCliente;
+ procedure SetDetalleColores(Value: IBizDetalleColoresPedidoCliente);
+
procedure OnNewRecord(Sender: TDADataTable); override;
+ procedure BeforeInsert(Sender: TDADataTable); override;
+
public
+ property DetalleColores: IBizDetalleColoresPedidoCliente read GetDetalleColores write SetDetalleColores;
constructor Create(aDataTable: TDADataTable); override;
+ destructor Destroy; override;
end;
TBizPedidoClienteArticulosPend = class(TPedidoCliente_Articulos_PendientesDataTableRules, IBizPedidoClienteArticulosPend)
@@ -36,20 +47,49 @@ implementation
{ TBizDetallesPedidoCliente }
uses
- uDataTableUtils;
+ uDataTableUtils, DB;
+procedure TBizDetallesPedidoCliente.BeforeInsert(Sender: TDADataTable);
+var
+ AMasterTable : TDADataTable;
+begin
+ inherited;
+ AMasterTable := DataTable.GetMasterDataTable;
+ if Assigned(AMasterTable) and (AMasterTable.State = dsInsert) then
+ AMasterTable.Post;
+end;
+
constructor TBizDetallesPedidoCliente.Create(aDataTable: TDADataTable);
begin
- inherited Create(aDataTable);
- ContIdAux := -1;
+ inherited;
+ FDetalleColoresLink := TDADataSource.Create(NIL);
+ FDetalleColoresLink.DataTable := aDataTable;
+end;
+
+destructor TBizDetallesPedidoCliente.Destroy;
+begin
+ FDetalleColores := NIL;
+ FDetalleColoresLink.Free;
+
+ inherited;
+end;
+
+function TBizDetallesPedidoCliente.GetDetalleColores: IBizDetalleColoresPedidoCliente;
+begin
+ Result := FDetalleColores;
end;
procedure TBizDetallesPedidoCliente.OnNewRecord(Sender: TDADataTable);
begin
inherited;
- ID := ContIdAux; // -1, -2, -3...
- Dec(ContIdAux);
+ VISIBLE := 1;
+end;
+
+procedure TBizDetallesPedidoCliente.SetDetalleColores(Value: IBizDetalleColoresPedidoCliente);
+begin
+ FDetalleColores := Value;
+ EnlazarMaestroDetalle(FDetalleColoresLink, FDetalleColores);
end;
initialization
diff --git a/Source/Modulos/Pedidos de cliente/Model/uBizPedidosCliente.pas b/Source/Modulos/Pedidos de cliente/Model/uBizPedidosCliente.pas
index 8d9831d..59e2980 100644
--- a/Source/Modulos/Pedidos de cliente/Model/uBizPedidosCliente.pas
+++ b/Source/Modulos/Pedidos de cliente/Model/uBizPedidosCliente.pas
@@ -74,6 +74,7 @@ type
procedure IMPORTE_NETOOnChange(Sender: TDACustomField);
procedure IMPORTE_PORTEOnChange(Sender: TDACustomField);
procedure DESCUENTOOnChange(Sender: TDACustomField);
+ procedure DESCUENTO2OnChange(Sender: TDACustomField);
procedure IVAOnChange(Sender: TDACustomField);
public
@@ -109,7 +110,8 @@ begin
if not Self.DataTable.Editing then
Edit;
IMPORTE_DESCUENTO := IMPORTE_NETO * (DESCUENTO/100);
- BASE_IMPONIBLE := IMPORTE_NETO - IMPORTE_DESCUENTO + IMPORTE_PORTE;
+ IMPORTE_DESCUENTO2 := (IMPORTE_NETO - IMPORTE_DESCUENTO) * (DESCUENTO2/100);
+ BASE_IMPONIBLE := IMPORTE_NETO - IMPORTE_DESCUENTO - IMPORTE_DESCUENTO2 + IMPORTE_PORTE;
end;
procedure TBizPedidoCliente.CalcularImporteTotal;
@@ -146,6 +148,7 @@ begin
FieldByName(fld_PedidosClienteIMPORTE_NETO).OnChange := IMPORTE_NETOOnChange;
FieldByName(fld_PedidosClienteIMPORTE_PORTE).OnChange := IMPORTE_PORTEOnChange;
FieldByName(fld_PedidosClienteDESCUENTO).OnChange := DESCUENTOOnChange;
+ FieldByName(fld_PedidosClienteDESCUENTO2).OnChange := DESCUENTO2OnChange;
FieldByName(fld_PedidosClienteIVA).OnChange := IVAOnChange;
end;
@@ -166,6 +169,11 @@ begin
end;
end;
+procedure TBizPedidoCliente.DESCUENTO2OnChange(Sender: TDACustomField);
+begin
+ CalcularImporteTotal;
+end;
+
procedure TBizPedidoCliente.DESCUENTOOnChange(Sender: TDACustomField);
begin
CalcularImporteTotal;
@@ -250,7 +258,14 @@ begin
DataTable.Edit;
ID_CLIENTE := FCliente.ID;
- ID_FORMA_PAGO := FCliente.ID_FORMA_PAGO;
+
+ //Si la empresa tiene asociada una forma de pago por defecto tiene prioridad sobre la forma de pago del cliente
+ if (AppFactuGES.EmpresaActiva.ID_FORMA_PAGO > 0) then
+ ID_FORMA_PAGO := AppFactuGES.EmpresaActiva.ID_FORMA_PAGO
+ else if (FCliente.ID_FORMA_PAGO > 0) then
+ ID_FORMA_PAGO := FCliente.ID_FORMA_PAGO;
+ DESCUENTO := FCliente.DESCUENTO;
+ DESCUENTO2 := FCliente.DESCUENTO2;
DataTable.Post; //Muy importante ya que es necesario hacer un post de la cabecera antes de añadir detalles
//si se quita el id de la cabecera y los detalles se desincroniza
diff --git a/Source/Modulos/Pedidos de cliente/PedidosCliente_Group.groupproj b/Source/Modulos/Pedidos de cliente/PedidosCliente_Group.groupproj
index 6b03bd9..02acf7e 100644
--- a/Source/Modulos/Pedidos de cliente/PedidosCliente_Group.groupproj
+++ b/Source/Modulos/Pedidos de cliente/PedidosCliente_Group.groupproj
@@ -9,6 +9,7 @@
+
@@ -161,14 +162,23 @@
+
+
+
+
+
+
+
+
+
-
+
-
+
-
+
\ No newline at end of file
diff --git a/Source/Modulos/Pedidos de cliente/Servidor/srvPedidosCliente_Impl.dfm b/Source/Modulos/Pedidos de cliente/Servidor/srvPedidosCliente_Impl.dfm
index 5ccf09a..b69de18 100644
--- a/Source/Modulos/Pedidos de cliente/Servidor/srvPedidosCliente_Impl.dfm
+++ b/Source/Modulos/Pedidos de cliente/Servidor/srvPedidosCliente_Impl.dfm
@@ -215,6 +215,14 @@ object srvPedidosCliente: TsrvPedidosCliente
DatasetField = 'IMPORTE_DESCUENTO'
TableField = 'IMPORTE_DESCUENTO'
end
+ item
+ DatasetField = 'DESCUENTO2'
+ TableField = 'DESCUENTO2'
+ end
+ item
+ DatasetField = 'IMPORTE_DESCUENTO2'
+ TableField = 'IMPORTE_DESCUENTO2'
+ end
item
DatasetField = 'BASE_IMPONIBLE'
TableField = 'BASE_IMPONIBLE'
@@ -235,6 +243,10 @@ object srvPedidosCliente: TsrvPedidosCliente
DatasetField = 'ID_FORMA_PAGO'
TableField = 'ID_FORMA_PAGO'
end
+ item
+ DatasetField = 'FORMA_PAGO'
+ TableField = 'FORMA_PAGO'
+ end
item
DatasetField = 'REF_TIENDA_WEB'
TableField = 'REF_TIENDA_WEB'
@@ -242,6 +254,10 @@ object srvPedidosCliente: TsrvPedidosCliente
item
DatasetField = 'FECHA_PREVISTA_ENVIO'
TableField = 'FECHA_PREVISTA_ENVIO'
+ end
+ item
+ DatasetField = 'DATOS_BANCARIOS'
+ TableField = 'DATOS_BANCARIOS'
end>
end>
Name = 'PedidosCliente'
@@ -295,6 +311,7 @@ object srvPedidosCliente: TsrvPedidosCliente
item
Name = 'ID_DIRECCION'
DataType = datInteger
+ DictionaryEntry = 'PedidosCliente_ID_DIRECCION'
end
item
Name = 'CALLE'
@@ -383,6 +400,18 @@ object srvPedidosCliente: TsrvPedidosCliente
DataType = datCurrency
DictionaryEntry = 'PedidosCliente_IMPORTE_DESCUENTO'
end
+ item
+ Name = 'DESCUENTO2'
+ DataType = datFloat
+ DictionaryEntry = 'PedidosCliente_DESCUENTO2'
+ end
+ item
+ Name = 'IMPORTE_DESCUENTO2'
+ DataType = datCurrency
+ DecimalPrecision = 11
+ DecimalScale = 2
+ DictionaryEntry = 'PedidosCliente_IMPORTE_DESCUENTO2'
+ end
item
Name = 'BASE_IMPONIBLE'
DataType = datCurrency
@@ -408,6 +437,12 @@ object srvPedidosCliente: TsrvPedidosCliente
DataType = datInteger
DictionaryEntry = 'PedidosCliente_ID_FORMA_PAGO'
end
+ item
+ Name = 'FORMA_PAGO'
+ DataType = datString
+ Size = 255
+ DictionaryEntry = 'PedidosCliente_FORMA_PAGO'
+ end
item
Name = 'REF_TIENDA_WEB'
DataType = datInteger
@@ -417,6 +452,12 @@ object srvPedidosCliente: TsrvPedidosCliente
Name = 'FECHA_PREVISTA_ENVIO'
DataType = datDateTime
DictionaryEntry = 'PedidosCliente_FECHA_PREVISTA_ENVIO'
+ end
+ item
+ Name = 'DATOS_BANCARIOS'
+ DataType = datString
+ Size = 255
+ DictionaryEntry = 'PedidosCliente_DATOS_BANCARIOS'
end>
end
item
@@ -554,8 +595,8 @@ object srvPedidosCliente: TsrvPedidosCliente
end
item
Name = 'CANTIDAD'
- DataType = datInteger
- DictionaryEntry = 'CANTIDAD'
+ DataType = datFloat
+ DictionaryEntry = 'PedidosCliente_Detalles_CANTIDAD'
end
item
Name = 'IMPORTE_UNIDAD'
@@ -565,6 +606,7 @@ object srvPedidosCliente: TsrvPedidosCliente
item
Name = 'UNIDAD_MEDIDA'
DataType = datString
+ DictionaryEntry = 'PedidosCliente_Detalles_UNIDAD_MEDIDA'
end
item
Name = 'DESCUENTO'
@@ -646,6 +688,137 @@ object srvPedidosCliente: TsrvPedidosCliente
DataType = datInteger
DictionaryEntry = 'PedidoCliente_Articulos_Pendientes_CANTIDAD_PENDIENTE'
end>
+ end
+ item
+ Params = <>
+ Statements = <
+ item
+ Connection = 'IBX'
+ TargetTable = 'PEDIDOS_CLIENTE_DETALLE_COLOR'
+ SQL =
+ 'SELECT ID, ID_DETALLE, COLOR1, COLOR2, COLOR3, COLOR4, COLOR5, C' +
+ 'OLOR6, COLOR7, COLOR8,'#10' COLOR9, COLOR10, COLOR11, COLOR12'#10 +
+ 'FROM PEDIDOS_CLIENTE_DETALLE_COLOR'#10'where {where}'#10#10#10
+ StatementType = stSQL
+ ColumnMappings = <
+ item
+ DatasetField = 'ID'
+ TableField = 'ID'
+ end
+ item
+ DatasetField = 'ID_DETALLE'
+ TableField = 'ID_DETALLE'
+ end
+ item
+ DatasetField = 'COLOR1'
+ TableField = 'COLOR1'
+ end
+ item
+ DatasetField = 'COLOR2'
+ TableField = 'COLOR2'
+ end
+ item
+ DatasetField = 'COLOR3'
+ TableField = 'COLOR3'
+ end
+ item
+ DatasetField = 'COLOR4'
+ TableField = 'COLOR4'
+ end
+ item
+ DatasetField = 'COLOR5'
+ TableField = 'COLOR5'
+ end
+ item
+ DatasetField = 'COLOR6'
+ TableField = 'COLOR6'
+ end
+ item
+ DatasetField = 'COLOR7'
+ TableField = 'COLOR7'
+ end
+ item
+ DatasetField = 'COLOR8'
+ TableField = 'COLOR8'
+ end
+ item
+ DatasetField = 'COLOR9'
+ TableField = 'COLOR9'
+ end
+ item
+ DatasetField = 'COLOR10'
+ TableField = 'COLOR10'
+ end
+ item
+ DatasetField = 'COLOR11'
+ TableField = 'COLOR11'
+ end
+ item
+ DatasetField = 'COLOR12'
+ TableField = 'COLOR12'
+ end>
+ end>
+ Name = 'PedidosCliente_Detalle_Color'
+ Fields = <
+ item
+ Name = 'ID'
+ DataType = datAutoInc
+ GeneratorName = 'GEN_PEDIDOS_CLI_DETALLES_ID'
+ DictionaryEntry = 'PedidosCliente_Detalles_ID'
+ InPrimaryKey = True
+ end
+ item
+ Name = 'ID_DETALLE'
+ DataType = datInteger
+ end
+ item
+ Name = 'COLOR1'
+ DataType = datInteger
+ end
+ item
+ Name = 'COLOR2'
+ DataType = datInteger
+ end
+ item
+ Name = 'COLOR3'
+ DataType = datInteger
+ end
+ item
+ Name = 'COLOR4'
+ DataType = datInteger
+ end
+ item
+ Name = 'COLOR5'
+ DataType = datInteger
+ end
+ item
+ Name = 'COLOR6'
+ DataType = datInteger
+ end
+ item
+ Name = 'COLOR7'
+ DataType = datInteger
+ end
+ item
+ Name = 'COLOR8'
+ DataType = datInteger
+ end
+ item
+ Name = 'COLOR9'
+ DataType = datInteger
+ end
+ item
+ Name = 'COLOR10'
+ DataType = datInteger
+ end
+ item
+ Name = 'COLOR11'
+ DataType = datInteger
+ end
+ item
+ Name = 'COLOR12'
+ DataType = datInteger
+ end>
end>
JoinDataTables = <>
UnionDataTables = <>
@@ -866,8 +1039,7 @@ object srvPedidosCliente: TsrvPedidosCliente
Params = <
item
Name = 'ID'
- DataType = datAutoInc
- GeneratorName = 'GEN_PEDIDOS_CLI_ID'
+ DataType = datInteger
Value = ''
end
item
@@ -986,12 +1158,22 @@ object srvPedidosCliente: TsrvPedidosCliente
end
item
Name = 'DESCUENTO'
- DataType = datCurrency
+ DataType = datFloat
Value = ''
end
item
Name = 'IMPORTE_DESCUENTO'
- DataType = datDecimal
+ DataType = datCurrency
+ Value = ''
+ end
+ item
+ Name = 'DESCUENTO2'
+ DataType = datFloat
+ Value = ''
+ end
+ item
+ Name = 'IMPORTE_DESCUENTO2'
+ DataType = datCurrency
Value = ''
end
item
@@ -1023,6 +1205,12 @@ object srvPedidosCliente: TsrvPedidosCliente
Name = 'FECHA_PREVISTA_ENVIO'
DataType = datDateTime
Value = ''
+ end
+ item
+ Name = 'DATOS_BANCARIOS'
+ DataType = datString
+ Size = 255
+ Value = ''
end>
Statements = <
item
@@ -1033,18 +1221,20 @@ object srvPedidosCliente: TsrvPedidosCliente
'SUARIO, FECHA_PEDIDO, '#10' ID_DIRECCION, CALLE, CODIGO_POSTAL, ' +
'POBLACION, PROVINCIA, PERSONA_CONTACTO,'#10' TELEFONO, REFERENCI' +
'A, REFERENCIA_CLIENTE, IMPORTE_TOTAL, INCIDENCIAS,'#10' INCIDENC' +
- 'IAS_ACTIVAS, OBSERVACIONES, FECHA_ALTA, FECHA_MODIFICACION,'#10' ' +
- ' IMPORTE_NETO, IMPORTE_PORTE, DESCUENTO,'#10' IMPORTE_DESCUENTO,' +
- ' BASE_IMPONIBLE, IVA, IMPORTE_IVA, '#10' ID_FORMA_PAGO, REF_TIEN' +
- 'DA_WEB, FECHA_PREVISTA_ENVIO)'#10' VALUES'#10' (:ID, :ID_EMPRESA, :I' +
- 'D_CLIENTE, :USUARIO, :FECHA_PEDIDO, '#10' :ID_DIRECCION, :CALLE,' +
- ' :CODIGO_POSTAL, :POBLACION, :PROVINCIA, :PERSONA_CONTACTO,'#10' ' +
- ' :TELEFONO, :REFERENCIA, :REFERENCIA_CLIENTE, :IMPORTE_TOTAL, :I' +
- 'NCIDENCIAS,'#10' :INCIDENCIAS_ACTIVAS, :OBSERVACIONES, :FECHA_AL' +
- 'TA,'#10' :FECHA_MODIFICACION, :IMPORTE_NETO, :IMPORTE_PORTE,'#10' ' +
- ' :DESCUENTO, :IMPORTE_DESCUENTO, :BASE_IMPONIBLE, :IVA, '#10' :' +
- 'IMPORTE_IVA, :ID_FORMA_PAGO, :REF_TIENDA_WEB, :FECHA_PREVISTA_EN' +
- 'VIO)'#10' '#10' '#10' '#10' '#10#10
+ 'IAS_ACTIVAS, OBSERVACIONES, FECHA_ALTA,'#10' FECHA_MODIFICACION,' +
+ ' IMPORTE_NETO, IMPORTE_PORTE,'#10' DESCUENTO, IMPORTE_DESCUENTO,' +
+ ' DESCUENTO2, IMPORTE_DESCUENTO2, BASE_IMPONIBLE, IVA,'#10' IMPOR' +
+ 'TE_IVA, ID_FORMA_PAGO, REF_TIENDA_WEB, FECHA_PREVISTA_ENVIO, DAT' +
+ 'OS_BANCARIOS)'#10' VALUES'#10' (:ID, :ID_EMPRESA, :ID_CLIENTE, :USUA' +
+ 'RIO, :FECHA_PEDIDO, '#10' :ID_DIRECCION, :CALLE, :CODIGO_POSTAL,' +
+ ' :POBLACION, :PROVINCIA, :PERSONA_CONTACTO,'#10' :TELEFONO, :REF' +
+ 'ERENCIA, :REFERENCIA_CLIENTE, :IMPORTE_TOTAL, :INCIDENCIAS,'#10' ' +
+ ' :INCIDENCIAS_ACTIVAS, :OBSERVACIONES, :FECHA_ALTA,'#10' :FECHA_' +
+ 'MODIFICACION, :IMPORTE_NETO, :IMPORTE_PORTE,'#10' :DESCUENTO, :I' +
+ 'MPORTE_DESCUENTO, :DESCUENTO2, :IMPORTE_DESCUENTO2, :BASE_IMPONI' +
+ 'BLE, :IVA,'#10' :IMPORTE_IVA, :ID_FORMA_PAGO, :REF_TIENDA_WEB, :' +
+ 'FECHA_PREVISTA_ENVIO, :DATOS_BANCARIOS)'#10' '#10' '#10' '#10' '#10 +
+ #10
StatementType = stSQL
ColumnMappings = <>
end>
@@ -1164,11 +1354,6 @@ object srvPedidosCliente: TsrvPedidosCliente
DataType = datMemo
Value = ''
end
- item
- Name = 'FECHA_ALTA'
- DataType = datDateTime
- Value = ''
- end
item
Name = 'FECHA_MODIFICACION'
DataType = datDateTime
@@ -1186,12 +1371,22 @@ object srvPedidosCliente: TsrvPedidosCliente
end
item
Name = 'DESCUENTO'
- DataType = datCurrency
+ DataType = datFloat
Value = ''
end
item
Name = 'IMPORTE_DESCUENTO'
- DataType = datDecimal
+ DataType = datCurrency
+ Value = ''
+ end
+ item
+ Name = 'DESCUENTO2'
+ DataType = datFloat
+ Value = ''
+ end
+ item
+ Name = 'IMPORTE_DESCUENTO2'
+ DataType = datCurrency
Value = ''
end
item
@@ -1224,6 +1419,12 @@ object srvPedidosCliente: TsrvPedidosCliente
DataType = datDateTime
Value = ''
end
+ item
+ Name = 'DATOS_BANCARIOS'
+ DataType = datString
+ Size = 255
+ Value = ''
+ end
item
Name = 'OLD_ID'
Value = ''
@@ -1242,25 +1443,234 @@ object srvPedidosCliente: TsrvPedidosCliente
'A = :REFERENCIA, '#10' REFERENCIA_CLIENTE = :REFERENCIA_CLIENTE,'#10 +
' IMPORTE_TOTAL = :IMPORTE_TOTAL, '#10' INCIDENCIAS = :INCIDENC' +
'IAS, '#10' INCIDENCIAS_ACTIVAS = :INCIDENCIAS_ACTIVAS, '#10' OBSER' +
- 'VACIONES = :OBSERVACIONES, '#10' FECHA_ALTA = :FECHA_ALTA,'#10' FE' +
- 'CHA_MODIFICACION = :FECHA_MODIFICACION,'#10' IMPORTE_NETO = :IMPO' +
- 'RTE_NETO,'#10' IMPORTE_PORTE = :IMPORTE_PORTE, '#10' DESCUENTO = :' +
- 'DESCUENTO, '#10' IMPORTE_DESCUENTO = :IMPORTE_DESCUENTO, '#10' BAS' +
- 'E_IMPONIBLE = :BASE_IMPONIBLE, '#10' IVA = :IVA, '#10' IMPORTE_IVA' +
- ' = :IMPORTE_IVA, '#10' ID_FORMA_PAGO = :ID_FORMA_PAGO,'#10' REF_TI' +
- 'ENDA_WEB = :REF_TIENDA_WEB,'#10' FECHA_PREVISTA_ENVIO = :FECHA_PR' +
- 'EVISTA_ENVIO'#10' WHERE'#10' (ID = :OLD_ID)'#10
+ 'VACIONES = :OBSERVACIONES, '#10' FECHA_MODIFICACION = :FECHA_MODI' +
+ 'FICACION,'#10' IMPORTE_NETO = :IMPORTE_NETO,'#10' IMPORTE_PORTE = ' +
+ ':IMPORTE_PORTE, '#10' DESCUENTO = :DESCUENTO, '#10' IMPORTE_DESCUE' +
+ 'NTO = :IMPORTE_DESCUENTO, '#10' DESCUENTO2 = :DESCUENTO2,'#10' IMP' +
+ 'ORTE_DESCUENTO2 = :IMPORTE_DESCUENTO2,'#10' BASE_IMPONIBLE = :BAS' +
+ 'E_IMPONIBLE,'#10' IVA = :IVA, '#10' IMPORTE_IVA = :IMPORTE_IVA, '#10' ' +
+ ' ID_FORMA_PAGO = :ID_FORMA_PAGO,'#10' REF_TIENDA_WEB = :REF_TIE' +
+ 'NDA_WEB,'#10' FECHA_PREVISTA_ENVIO = :FECHA_PREVISTA_ENVIO,'#10' D' +
+ 'ATOS_BANCARIOS = :DATOS_BANCARIOS'#10' WHERE'#10' (ID = :OLD_ID)'#10
StatementType = stSQL
ColumnMappings = <>
end>
Name = 'Update_PedidosCliente'
+ end
+ item
+ Params = <
+ item
+ Name = 'ID'
+ DataType = datAutoInc
+ GeneratorName = 'GEN_PEDIDOS_CLI_DETALLES_ID'
+ Value = ''
+ end
+ item
+ Name = 'ID_DETALLE'
+ DataType = datInteger
+ Value = ''
+ end
+ item
+ Name = 'COLOR1'
+ DataType = datInteger
+ Value = ''
+ end
+ item
+ Name = 'COLOR2'
+ DataType = datInteger
+ Value = ''
+ end
+ item
+ Name = 'COLOR3'
+ DataType = datInteger
+ Value = ''
+ end
+ item
+ Name = 'COLOR4'
+ DataType = datInteger
+ Value = ''
+ end
+ item
+ Name = 'COLOR5'
+ DataType = datInteger
+ Value = ''
+ end
+ item
+ Name = 'COLOR6'
+ DataType = datInteger
+ Value = ''
+ end
+ item
+ Name = 'COLOR7'
+ DataType = datInteger
+ Value = ''
+ end
+ item
+ Name = 'COLOR8'
+ DataType = datInteger
+ Value = ''
+ end
+ item
+ Name = 'COLOR9'
+ DataType = datInteger
+ Value = ''
+ end
+ item
+ Name = 'COLOR10'
+ DataType = datInteger
+ Value = ''
+ end
+ item
+ Name = 'COLOR11'
+ DataType = datInteger
+ Value = ''
+ end
+ item
+ Name = 'COLOR12'
+ DataType = datInteger
+ Value = ''
+ end>
+ Statements = <
+ item
+ Connection = 'IBX'
+ TargetTable = 'PEDIDOS_CLIENTE_DETALLE_COLOR'
+ SQL =
+ 'INSERT'#10' INTO PEDIDOS_CLIENTE_DETALLE_COLOR'#10' (ID, ID_DETALLE, C' +
+ 'OLOR1, COLOR2, COLOR3, COLOR4, COLOR5, COLOR6, COLOR7, COLOR8,'#10' ' +
+ ' COLOR9, COLOR10, COLOR11, COLOR12)'#10#10' VALUES'#10' (:ID, :ID_DETA' +
+ 'LLE, :COLOR1, :COLOR2, :COLOR3, :COLOR4, :COLOR5, :COLOR6, :COLO' +
+ 'R7, :COLOR8,'#10' :COLOR9, :COLOR10, :COLOR11, :COLOR12)'#10#10
+ StatementType = stSQL
+ ColumnMappings = <>
+ end>
+ Name = 'Insert_PedidosCliente_DetalleColor'
+ end
+ item
+ Params = <
+ item
+ Name = 'ID'
+ DataType = datInteger
+ Value = ''
+ end
+ item
+ Name = 'ID_DETALLE'
+ DataType = datInteger
+ Value = ''
+ end
+ item
+ Name = 'COLOR1'
+ DataType = datInteger
+ Value = ''
+ end
+ item
+ Name = 'COLOR2'
+ DataType = datInteger
+ Value = ''
+ end
+ item
+ Name = 'COLOR3'
+ DataType = datInteger
+ Value = ''
+ end
+ item
+ Name = 'COLOR4'
+ DataType = datInteger
+ Value = ''
+ end
+ item
+ Name = 'COLOR5'
+ DataType = datInteger
+ Value = ''
+ end
+ item
+ Name = 'COLOR6'
+ DataType = datInteger
+ Value = ''
+ end
+ item
+ Name = 'COLOR7'
+ DataType = datInteger
+ Value = ''
+ end
+ item
+ Name = 'COLOR8'
+ DataType = datInteger
+ Value = ''
+ end
+ item
+ Name = 'COLOR9'
+ DataType = datInteger
+ Value = ''
+ end
+ item
+ Name = 'COLOR10'
+ DataType = datInteger
+ Value = ''
+ end
+ item
+ Name = 'COLOR11'
+ DataType = datInteger
+ Value = ''
+ end
+ item
+ Name = 'COLOR12'
+ DataType = datInteger
+ Value = ''
+ end
+ item
+ Name = 'OLD_ID'
+ Value = ''
+ end>
+ Statements = <
+ item
+ Connection = 'IBX'
+ TargetTable = 'PEDIDOS_CLIENTE_DETALLE_COLOR'
+ SQL =
+ 'UPDATE PEDIDOS_CLIENTE_DETALLE_COLOR'#10' SET'#10' ID = :ID,'#10' ID_DE' +
+ 'TALLE = :ID_DETALLE,'#10' COLOR1 = :COLOR1,'#10' COLOR2 = :COLOR2,'#10' ' +
+ ' COLOR3 = :COLOR3,'#10' COLOR4 = :COLOR4,'#10' COLOR5 = :COLOR5,'#10' ' +
+ ' COLOR6 = :COLOR6,'#10' COLOR7 = :COLOR7,'#10' COLOR8 = :COLOR8,'#10' ' +
+ 'COLOR9 = :COLOR9,'#10' COLOR10 = :COLOR10,'#10' COLOR11 = :COLOR11,'#10 +
+ ' COLOR12 = :COLOR12'#10' WHERE'#10' (ID = :OLD_ID)'#10
+ StatementType = stSQL
+ ColumnMappings = <>
+ end>
+ Name = 'Update_PedidosCliente_DetalleColor'
+ end
+ item
+ Params = <
+ item
+ Name = 'OLD_ID'
+ DataType = datInteger
+ Value = ''
+ ParamType = daptInput
+ end>
+ Statements = <
+ item
+ Connection = 'IBX'
+ TargetTable = 'PEDIDOS_CLIENTE_DETALLE_COLOR'
+ SQL =
+ 'DELETE '#10' FROM'#10' PEDIDOS_CLIENTE_DETALLE_COLOR'#10' WHERE'#10' (ID' +
+ ' = :OLD_ID)'#10
+ StatementType = stSQL
+ ColumnMappings = <>
+ end>
+ Name = 'Delete_PedidosCliente_DetalleColor'
end>
RelationShips = <
+ item
+ Name = 'FK_Pedidos_Cliente_Detalles_color'
+ MasterDatasetName = 'PedidosCliente_Detalles'
+ MasterFields = 'ID'
+ DetailDatasetName = 'PedidosCliente_Detalle_Color'
+ DetailFields = 'ID_DETALLE'
+ RelationshipType = rtForeignKey
+ end
item
Name = 'FK_Pedidos_Cliente_Detalles'
MasterDatasetName = 'PedidosCliente'
MasterFields = 'ID'
- DetailDatasetName = 'PedidosCliente_Detalles'
+ DetailDatasetName = 'PedidosCliente_Detalle_Color'
DetailFields = 'ID_PEDIDO'
RelationshipType = rtForeignKey
end>
@@ -1524,11 +1934,6 @@ object srvPedidosCliente: TsrvPedidosCliente
Size = 2000
DisplayLabel = 'CONCEPTO'
end
- item
- Name = 'CANTIDAD'
- DataType = datInteger
- Alignment = taRightJustify
- end
item
Name = 'PedidosCliente_Detalles_IMPORTE_UNIDAD'
DataType = datCurrency
@@ -1646,6 +2051,41 @@ object srvPedidosCliente: TsrvPedidosCliente
Name = 'PedidosCliente_REF_TIENDA_WEB'
DataType = datInteger
DisplayLabel = 'REF_TIENDA_WEB'
+ end
+ item
+ Name = 'PedidosCliente_Detalles_CANTIDAD'
+ DataType = datFloat
+ Alignment = taRightJustify
+ end
+ item
+ Name = 'PedidosCliente_Detalles_UNIDAD_MEDIDA'
+ DataType = datString
+ end
+ item
+ Name = 'PedidosCliente_ID_DIRECCION'
+ DataType = datInteger
+ end
+ item
+ Name = 'PedidosCliente_DESCUENTO2'
+ DataType = datFloat
+ DisplayLabel = 'DESCUENTO2'
+ end
+ item
+ Name = 'PedidosCliente_IMPORTE_DESCUENTO2'
+ DataType = datCurrency
+ DecimalPrecision = 11
+ DecimalScale = 2
+ DisplayLabel = 'IMPORTE_DESCUENTO2'
+ end
+ item
+ Name = 'PedidosCliente_FORMA_PAGO'
+ DataType = datString
+ Size = 255
+ end
+ item
+ Name = 'PedidosCliente_DATOS_BANCARIOS'
+ DataType = datString
+ Size = 255
end>
Left = 48
Top = 152
@@ -1654,4 +2094,15 @@ object srvPedidosCliente: TsrvPedidosCliente
Left = 48
Top = 88
end
+ object bpPedidosCliente_DetalleColor: TDABusinessProcessor
+ Schema = schPedidosCliente
+ InsertCommandName = 'Insert_PedidosCliente_DetalleColor'
+ DeleteCommandName = 'Delete_PedidosCliente_DetalleColor'
+ UpdateCommandName = 'Update_PedidosCliente_DetalleColor'
+ ReferencedDataset = 'PedidosCliente_Detalle_Color'
+ ProcessorOptions = [poPrepareCommands]
+ UpdateMode = updWhereKeyOnly
+ Left = 192
+ Top = 144
+ end
end
diff --git a/Source/Modulos/Pedidos de cliente/Servidor/srvPedidosCliente_Impl.pas b/Source/Modulos/Pedidos de cliente/Servidor/srvPedidosCliente_Impl.pas
index a60305b..a5f7f3e 100644
--- a/Source/Modulos/Pedidos de cliente/Servidor/srvPedidosCliente_Impl.pas
+++ b/Source/Modulos/Pedidos de cliente/Servidor/srvPedidosCliente_Impl.pas
@@ -23,6 +23,7 @@ type
bpPedidosCliente: TDABusinessProcessor;
bpPedidosCliente_Detalles: TDABusinessProcessor;
Bin2DataStreamer: TDABin2DataStreamer;
+ bpPedidosCliente_DetalleColor: TDABusinessProcessor;
schPedidosCliente: TDASchema;
DADataDictionary: TDADataDictionary;
procedure DARemoteServiceBeforeGetDatasetData(const Dataset: IDADataset;
diff --git a/Source/Modulos/Pedidos de cliente/Views/PedidosCliente_view.dpk b/Source/Modulos/Pedidos de cliente/Views/PedidosCliente_view.dpk
index 63b92b2..09ef8be 100644
--- a/Source/Modulos/Pedidos de cliente/Views/PedidosCliente_view.dpk
+++ b/Source/Modulos/Pedidos de cliente/Views/PedidosCliente_view.dpk
@@ -83,6 +83,7 @@ contains
uEditorElegirArticulosPedidoCliente in 'uEditorElegirArticulosPedidoCliente.pas' {fEditorElegirArticulosPedidoCliente: TfEditorElegirArticulosPedidoCliente},
uViewDireccionEntregaPedidoCliente in 'uViewDireccionEntregaPedidoCliente.pas' {frViewDireccionEntregaPedidoCliente: TFrame},
uEditorPedidosClienteReport in 'uEditorPedidosClienteReport.pas' {fEditorPedidosClientePreview: TfEditorPedidosClientePreview},
- uViewDatosYSeleccionClientePedido in 'uViewDatosYSeleccionClientePedido.pas' {frViewDatosYSeleccionClientePedido: TFrame};
+ uViewDatosYSeleccionClientePedido in 'uViewDatosYSeleccionClientePedido.pas' {frViewDatosYSeleccionClientePedido: TFrame},
+ uViewTotalesPedido in 'uViewTotalesPedido.pas' {frViewTotalesPedido: TFrame};
end.
diff --git a/Source/Modulos/Pedidos de cliente/Views/PedidosCliente_view.dproj b/Source/Modulos/Pedidos de cliente/Views/PedidosCliente_view.dproj
index eccf8ae..fba715e 100644
--- a/Source/Modulos/Pedidos de cliente/Views/PedidosCliente_view.dproj
+++ b/Source/Modulos/Pedidos de cliente/Views/PedidosCliente_view.dproj
@@ -44,8 +44,6 @@
FalseTrueFalseFalseFalseFalseTrueFalse1000FalseFalseFalseFalseFalse308212521.0.0.01.0.0.0
-
-
Intraweb 8.0 Design Package for Borland Development Studio 2006
PedidosCliente_view.dpk
@@ -54,51 +52,51 @@
MainSource
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
TfEditorElegirArticulosPedidoCliente
@@ -144,6 +142,10 @@
TFrame
+
+
+ TFrame
+