diff --git a/Build/Build.fbl6 b/Build/Build.fbl6
index 8fbef73..570327e 100644
Binary files a/Build/Build.fbl6 and b/Build/Build.fbl6 differ
diff --git a/Build/Build.fbpInf b/Build/Build.fbpInf
index 17e0ba6..dba45e5 100644
--- a/Build/Build.fbpInf
+++ b/Build/Build.fbpInf
@@ -6,7 +6,7 @@
-
+
diff --git a/Database/scripts/factuges.sql b/Database/scripts/factuges.sql
index ef54014..6e71fed 100644
--- a/Database/scripts/factuges.sql
+++ b/Database/scripts/factuges.sql
@@ -316,7 +316,8 @@ CREATE TABLE ALBARANES_CLIENTE_DETALLES (
VISIBLE TIPO_BOOLEANO,
FECHA_ALTA TIMESTAMP,
FECHA_MODIFICACION TIMESTAMP,
- ID_PEDIDO TIPO_ID
+ ID_PEDIDO TIPO_ID,
+ ID_ARTICULO_REEMPLAZADO TIPO_ID
);
CREATE TABLE ALBARANES_CLIENTE_DETALLE_COLOR (
@@ -1278,8 +1279,6 @@ SELECT ALBARANES_CLIENTE.ID,
FROM ALBARANES_CLIENTE
;
-
-
/* View: V_ALB_CLI_DETALLES */
CREATE VIEW V_ALB_CLI_DETALLES(
ID_ALBARAN,
@@ -1293,7 +1292,9 @@ SELECT ALBARANES_CLIENTE_DETALLES.ID_ALBARAN,
ALBARANES_CLIENTE_DETALLES.ID_PEDIDO,
V_ALB_CLI_SITUACION.SITUACION,
ALBARANES_CLIENTE.ID_ALMACEN,
- COALESCE(ALBARANES_CLIENTE_DETALLES.ID_ARTICULO, 0),
+ CASE WHEN ALBARANES_CLIENTE_DETALLES.ID_ARTICULO_REEMPLAZADO IS NULL then COALESCE(ALBARANES_CLIENTE_DETALLES.ID_ARTICULO, 0)
+ ELSE ALBARANES_CLIENTE_DETALLES.ID_ARTICULO_REEMPLAZADO
+ END AS ID_ARTICULO,
SUM(COALESCE(ALBARANES_CLIENTE_DETALLES.CANTIDAD, 0))
FROM ALBARANES_CLIENTE_DETALLES
@@ -1314,7 +1315,7 @@ group BY ALBARANES_CLIENTE_DETALLES.ID_ALBARAN,
ALBARANES_CLIENTE_DETALLES.ID_PEDIDO,
V_ALB_CLI_SITUACION.SITUACION,
ALBARANES_CLIENTE.ID_ALMACEN,
- ALBARANES_CLIENTE_DETALLES.ID_ARTICULO
+ ID_ARTICULO
;
@@ -3663,7 +3664,7 @@ UNION ALL
SELECT
V_PED_CLI_ART_SITUACION_CANT.ID_PEDIDO,
V_PED_CLI_ART_SITUACION_CANT.ID_ARTICULO,
- NULL AS CANTIDAD_PEDIDA,
+ 0 AS CANTIDAD_PEDIDA,
V_PED_CLI_ART_SITUACION_CANT.CANTIDAD_RESERVADA AS CANTIDAD_RESERVADA,
V_PED_CLI_ART_SITUACION_CANT.CANTIDAD_ENVIADA AS CANTIDAD_ENVIADA,
V_PED_CLI_ART_SITUACION_CANT.CANTIDAD_SERVIDA AS CANTIDAD_SERVIDA
@@ -3896,7 +3897,149 @@ FROM
LEFT OUTER JOIN FORMAS_PAGO ON (FORMAS_PAGO.ID = PEDIDOS_CLIENTE.ID_FORMA_PAGO)
;
+/**************************************************/
+/***VISTAS PARA EL CONTROL DE COLORES PENDIENTES***/
+/**************************************************/
+CREATE VIEW V_ALB_CLI_DETALLE_COLORES(
+/* ID_ALBARAN, */
+ ID_PEDIDO,
+/* SITUACION,
+ ID_ALMACEN,
+*/
+ ID_ARTICULO,
+ COLOR1,
+ COLOR2,
+ COLOR3,
+ COLOR4,
+ COLOR5,
+ COLOR6,
+ COLOR7,
+ COLOR8,
+ COLOR9,
+ COLOR10,
+ COLOR11,
+ COLOR12)
+AS
+SELECT
+/*ALBARANES_CLIENTE_DETALLES.ID_ALBARAN, */
+ ALBARANES_CLIENTE_DETALLES.ID_PEDIDO,
+/* V_ALB_CLI_SITUACION.SITUACION,
+ ALBARANES_CLIENTE.ID_ALMACEN,
+*/
+ COALESCE(ALBARANES_CLIENTE_DETALLES.ID_ARTICULO, 0) as ID_ARTICULO,
+ SUM(COALESCE(ALBARANES_CLIENTE_DETALLE_COLOR.COLOR1, 0)) AS COLOR1,
+ SUM(COALESCE(ALBARANES_CLIENTE_DETALLE_COLOR.COLOR2, 0)) AS COLOR2,
+ SUM(COALESCE(ALBARANES_CLIENTE_DETALLE_COLOR.COLOR3, 0)) AS COLOR3,
+ SUM(COALESCE(ALBARANES_CLIENTE_DETALLE_COLOR.COLOR4, 0)) AS COLOR4,
+ SUM(COALESCE(ALBARANES_CLIENTE_DETALLE_COLOR.COLOR5, 0)) AS COLOR5,
+ SUM(COALESCE(ALBARANES_CLIENTE_DETALLE_COLOR.COLOR6, 0)) AS COLOR6,
+ SUM(COALESCE(ALBARANES_CLIENTE_DETALLE_COLOR.COLOR7, 0)) AS COLOR7,
+ SUM(COALESCE(ALBARANES_CLIENTE_DETALLE_COLOR.COLOR8, 0)) AS COLOR8,
+ SUM(COALESCE(ALBARANES_CLIENTE_DETALLE_COLOR.COLOR9, 0)) AS COLOR9,
+ SUM(COALESCE(ALBARANES_CLIENTE_DETALLE_COLOR.COLOR10, 0)) AS COLOR10,
+ SUM(COALESCE(ALBARANES_CLIENTE_DETALLE_COLOR.COLOR11, 0)) AS COLOR11,
+ SUM(COALESCE(ALBARANES_CLIENTE_DETALLE_COLOR.COLOR12, 0)) AS COLOR12
+
+
+FROM ALBARANES_CLIENTE_DETALLES
+INNER JOIN ALBARANES_CLIENTE
+ON (ALBARANES_CLIENTE_DETALLES.ID_ALBARAN = ALBARANES_CLIENTE.ID)
+INNER JOIN V_ALB_CLI_SITUACION
+ON (ALBARANES_CLIENTE_DETALLES.ID_ALBARAN = V_ALB_CLI_SITUACION.ID)
+LEFT JOIN ALBARANES_CLIENTE_DETALLE_COLOR
+ON (ALBARANES_CLIENTE_DETALLE_COLOR.ID_DETALLE = ALBARANES_CLIENTE_DETALLES.ID)
+
+
+group BY
+/*ALBARANES_CLIENTE_DETALLES.ID_ALBARAN,*/
+ ALBARANES_CLIENTE_DETALLES.ID_PEDIDO,
+/* V_ALB_CLI_SITUACION.SITUACION,
+ ALBARANES_CLIENTE.ID_ALMACEN,
+*/
+ ALBARANES_CLIENTE_DETALLES.ID_ARTICULO
+;
+
+
+
+CREATE VIEW V_PED_CLI_DETALLE_COLORES(
+ ID_PEDIDO,
+ ID_ARTICULO,
+ COLOR1,
+ COLOR2,
+ COLOR3,
+ COLOR4,
+ COLOR5,
+ COLOR6,
+ COLOR7,
+ COLOR8,
+ COLOR9,
+ COLOR10,
+ COLOR11,
+ COLOR12)
+AS
+SELECT PEDIDOS_CLIENTE_DETALLES.ID_PEDIDO,
+ COALESCE(PEDIDOS_CLIENTE_DETALLES.ID_ARTICULO, 0) as ID_ARTICULO,
+ SUM(COALESCE(PEDIDOS_CLIENTE_DETALLE_COLOR.COLOR1, 0)) AS COLOR1,
+ SUM(COALESCE(PEDIDOS_CLIENTE_DETALLE_COLOR.COLOR2, 0)) AS COLOR2,
+ SUM(COALESCE(PEDIDOS_CLIENTE_DETALLE_COLOR.COLOR3, 0)) AS COLOR3,
+ SUM(COALESCE(PEDIDOS_CLIENTE_DETALLE_COLOR.COLOR4, 0)) AS COLOR4,
+ SUM(COALESCE(PEDIDOS_CLIENTE_DETALLE_COLOR.COLOR5, 0)) AS COLOR5,
+ SUM(COALESCE(PEDIDOS_CLIENTE_DETALLE_COLOR.COLOR6, 0)) AS COLOR6,
+ SUM(COALESCE(PEDIDOS_CLIENTE_DETALLE_COLOR.COLOR7, 0)) AS COLOR7,
+ SUM(COALESCE(PEDIDOS_CLIENTE_DETALLE_COLOR.COLOR8, 0)) AS COLOR8,
+ SUM(COALESCE(PEDIDOS_CLIENTE_DETALLE_COLOR.COLOR9, 0)) AS COLOR9,
+ SUM(COALESCE(PEDIDOS_CLIENTE_DETALLE_COLOR.COLOR10, 0)) AS COLOR10,
+ SUM(COALESCE(PEDIDOS_CLIENTE_DETALLE_COLOR.COLOR11, 0)) AS COLOR11,
+ SUM(COALESCE(PEDIDOS_CLIENTE_DETALLE_COLOR.COLOR12, 0)) AS COLOR12
+
+
+FROM PEDIDOS_CLIENTE_DETALLES
+
+LEFT JOIN PEDIDOS_CLIENTE_DETALLE_COLOR
+ON (PEDIDOS_CLIENTE_DETALLE_COLOR.ID_DETALLE = PEDIDOS_CLIENTE_DETALLES.ID)
+
+
+GROUP BY PEDIDOS_CLIENTE_DETALLES.ID_PEDIDO,
+ PEDIDOS_CLIENTE_DETALLES.ID_ARTICULO
+;
+
+
+CREATE VIEW V_PED_CLI_ART_COLORES_PEND(
+ ID_PEDIDO,
+ ID_ARTICULO,
+ COLOR1,
+ COLOR2,
+ COLOR3,
+ COLOR4,
+ COLOR5,
+ COLOR6,
+ COLOR7,
+ COLOR8,
+ COLOR9,
+ COLOR10,
+ COLOR11,
+ COLOR12)
+AS
+select v_ped_cli_detalle_colores.ID_PEDIDO, v_ped_cli_detalle_colores.ID_ARTICULO,
+v_ped_cli_detalle_colores.COLOR1 - coalesce(v_alb_cli_detalle_colores.COLOR1, 0),
+v_ped_cli_detalle_colores.COLOR2 - coalesce(v_alb_cli_detalle_colores.COLOR2, 0),
+v_ped_cli_detalle_colores.COLOR3 - coalesce(v_alb_cli_detalle_colores.COLOR3, 0),
+v_ped_cli_detalle_colores.COLOR4 - coalesce(v_alb_cli_detalle_colores.COLOR4, 0),
+v_ped_cli_detalle_colores.COLOR5 - coalesce(v_alb_cli_detalle_colores.COLOR5, 0),
+v_ped_cli_detalle_colores.COLOR6 - coalesce(v_alb_cli_detalle_colores.COLOR6, 0),
+v_ped_cli_detalle_colores.COLOR7 - coalesce(v_alb_cli_detalle_colores.COLOR7, 0),
+v_ped_cli_detalle_colores.COLOR8 - coalesce(v_alb_cli_detalle_colores.COLOR8, 0),
+v_ped_cli_detalle_colores.COLOR9 - coalesce(v_alb_cli_detalle_colores.COLOR9, 0),
+v_ped_cli_detalle_colores.COLOR10 - coalesce(v_alb_cli_detalle_colores.COLOR10, 0),
+v_ped_cli_detalle_colores.COLOR11 - coalesce(v_alb_cli_detalle_colores.COLOR11, 0),
+v_ped_cli_detalle_colores.COLOR12 - coalesce(v_alb_cli_detalle_colores.COLOR12, 0)
+
+from v_ped_cli_detalle_colores
+left join v_alb_cli_detalle_colores
+on ((v_alb_cli_detalle_colores .ID_PEDIDO = v_ped_cli_detalle_colores.id_pedido)
+and (v_alb_cli_detalle_colores .id_articulo = v_ped_cli_detalle_colores.id_articulo))
+;
/******************************************************************************/
diff --git a/Source/Base/Base.dproj b/Source/Base/Base.dproj
index cbe1f69..990c17d 100644
--- a/Source/Base/Base.dproj
+++ b/Source/Base/Base.dproj
@@ -45,8 +45,6 @@
Package
FalseTrueFalseLibreria base de FactuGESFalseFalseFalseTrueFalse1000FalseFalseFalseFalseFalse308212521.0.0.01.0.0.0
-
-
RemObjects SDK - Indy Library
Base.dpk
@@ -55,58 +53,58 @@
MainSource
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
TForm
diff --git a/Source/Base/Base.res b/Source/Base/Base.res
index 1641339..8b251f3 100644
Binary files a/Source/Base/Base.res and b/Source/Base/Base.res differ
diff --git a/Source/Base/Utiles/uCalculosUtils.pas b/Source/Base/Utiles/uCalculosUtils.pas
index e86c6df..305e302 100644
--- a/Source/Base/Utiles/uCalculosUtils.pas
+++ b/Source/Base/Utiles/uCalculosUtils.pas
@@ -16,6 +16,7 @@ const
CAMPO_IMPORTE_TOTAL = 'IMPORTE_TOTAL';
CAMPO_DESCUENTO = 'DESCUENTO';
CAMPO_IMPORTE_PORTE = 'IMPORTE_PORTE';
+ CAMPO_ID_ARTICULOS_REEMPLAZADO = 'ID_ARTICULO_REEMPLAZADO';
function CalcularLineaConcepto (const ADataTable : TDADataTable): Double;
procedure ValidarCamposLineaConcepto(DataTable: TDADataTable);
diff --git a/Source/Cliente/FactuGES.dpr b/Source/Cliente/FactuGES.dpr
index 753370b..7a1391b 100644
--- a/Source/Cliente/FactuGES.dpr
+++ b/Source/Cliente/FactuGES.dpr
@@ -2,7 +2,8 @@ program FactuGES;
uses
// ExceptionLog,
- ExceptionLog,
+// ExceptionLog,
+// ExceptionLog,
Forms,
Windows,
SysUtils,
diff --git a/Source/Cliente/FactuGES.rc b/Source/Cliente/FactuGES.rc
index 43455d6..01ef5a4 100644
--- a/Source/Cliente/FactuGES.rc
+++ b/Source/Cliente/FactuGES.rc
@@ -1,4 +1,4 @@
-MAINICON ICON "C:\Codigo Noviseda\Resources\Iconos\Factuges.ico"
+MAINICON ICON "C:\Codigo noviseda\Resources\Iconos\Factuges.ico"
1 VERSIONINFO
FILEVERSION 1,0,2,0
PRODUCTVERSION 1,0,2,0
diff --git a/Source/Cliente/FactuGES.res b/Source/Cliente/FactuGES.res
index 716f0d4..ec67bce 100644
Binary files a/Source/Cliente/FactuGES.res and b/Source/Cliente/FactuGES.res differ
diff --git a/Source/Cliente/uBootStrap.pas b/Source/Cliente/uBootStrap.pas
index aa94ffb..464bad0 100644
--- a/Source/Cliente/uBootStrap.pas
+++ b/Source/Cliente/uBootStrap.pas
@@ -50,7 +50,7 @@ begin
LoadModule('RemesasCliente_plugin.bpl');
// LoadModule('RemesasProveedor_plugin.bpl');
-// LoadModule('Inventario_plugin.bpl');
+ LoadModule('Inventario_plugin.bpl');
// LoadModule('HistoricoMovimientos_plugin.bpl');
// LoadModule('GestorInformes_plugin.bpl');
diff --git a/Source/GUIBase/GUIBase.dproj b/Source/GUIBase/GUIBase.dproj
index b80fe51..aa2fac6 100644
--- a/Source/GUIBase/GUIBase.dproj
+++ b/Source/GUIBase/GUIBase.dproj
@@ -59,32 +59,32 @@
MainSource
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
diff --git a/Source/Modulos/Albaranes de cliente/AlbaranesCliente_Group.groupproj b/Source/Modulos/Albaranes de cliente/AlbaranesCliente_Group.groupproj
index 4b6ca6a..17e74fe 100644
--- a/Source/Modulos/Albaranes de cliente/AlbaranesCliente_Group.groupproj
+++ b/Source/Modulos/Albaranes de cliente/AlbaranesCliente_Group.groupproj
@@ -14,6 +14,7 @@
+
@@ -271,14 +272,23 @@
+
+
+
+
+
+
+
+
+
-
+
-
+
-
+
\ No newline at end of file
diff --git a/Source/Modulos/Albaranes de cliente/Controller/uAlbaranesClienteController.pas b/Source/Modulos/Albaranes de cliente/Controller/uAlbaranesClienteController.pas
index b319fc8..46af246 100644
--- a/Source/Modulos/Albaranes de cliente/Controller/uAlbaranesClienteController.pas
+++ b/Source/Modulos/Albaranes de cliente/Controller/uAlbaranesClienteController.pas
@@ -845,8 +845,8 @@ begin
Result := EsModificable(AAlbaran);
- if AAlbaran.TIPO = CTE_TIPO_ALBARAN then
- Result := Result and (AAlbaran.SITUACION = SITUACION_ALBARAN_PENDIENTE);
+// if AAlbaran.TIPO = CTE_TIPO_ALBARAN then
+// Result := Result and (AAlbaran.SITUACION = SITUACION_ALBARAN_PENDIENTE);
end;
function TAlbaranesClienteController.EsModificable(AAlbaran: IBizAlbaranCliente): Boolean;
diff --git a/Source/Modulos/Albaranes de cliente/Data/uDataModuleAlbaranesCliente.dfm b/Source/Modulos/Albaranes de cliente/Data/uDataModuleAlbaranesCliente.dfm
index 41cabad..70ddee5 100644
--- a/Source/Modulos/Albaranes de cliente/Data/uDataModuleAlbaranesCliente.dfm
+++ b/Source/Modulos/Albaranes de cliente/Data/uDataModuleAlbaranesCliente.dfm
@@ -418,6 +418,15 @@ inherited DataModuleAlbaranesCliente: TDataModuleAlbaranesCliente
item
Name = 'ID_PEDIDO'
DataType = datInteger
+ end
+ item
+ Name = 'ID_ARTICULO_REEMPLAZADO'
+ DataType = datInteger
+ end
+ item
+ Name = 'REFERENCIA_ART_REEMPLAZADO'
+ DataType = datString
+ Size = 255
end>
Params = <>
MasterMappingMode = mmWhere
diff --git a/Source/Modulos/Albaranes de cliente/Model/schAlbaranesClienteClient_Intf.pas b/Source/Modulos/Albaranes de cliente/Model/schAlbaranesClienteClient_Intf.pas
index 20b3a09..962271e 100644
--- a/Source/Modulos/Albaranes de cliente/Model/schAlbaranesClienteClient_Intf.pas
+++ b/Source/Modulos/Albaranes de cliente/Model/schAlbaranesClienteClient_Intf.pas
@@ -4,16 +4,16 @@ unit schAlbaranesClienteClient_Intf;
interface
uses
- Classes, DB, SysUtils, uROClasses, uDAInterfaces, uDADataTable, FmtBCD, uROXMLIntf;
+ Classes, DB, schBase_Intf, SysUtils, uROClasses, uDAInterfaces, uDADataTable, FmtBCD, uROXMLIntf;
const
{ Data table rules ids
Feel free to change them to something more human readable
but make sure they are unique in the context of your application }
- RID_ListaAnosAlbaranes = '{AB352FBE-C6B0-4DD9-B4EC-63B5ED2BDA4F}';
- RID_AlbaranesCliente = '{ACF9F8E3-2CA1-4DFC-B159-724A16045D2A}';
- RID_AlbaranesCliente_Detalle_Color = '{772D8D26-472D-4DE1-8249-9863E88FAB87}';
- RID_AlbaranesCliente_Detalles = '{F8AEC877-9B48-43FE-9EB1-2E9A54FD41E8}';
+ RID_ListaAnosAlbaranes = '{9102D7FE-372C-4DC6-8038-7A14AD97D609}';
+ RID_AlbaranesCliente = '{BDF0B163-BCA7-4DE9-956B-59AA30A2762F}';
+ RID_AlbaranesCliente_Detalle_Color = '{10B4CFAA-2E18-41B5-9215-226529BDAC18}';
+ RID_AlbaranesCliente_Detalles = '{17E07972-DA24-43A3-8756-3741A0B5B323}';
{ Data table names }
nme_ListaAnosAlbaranes = 'ListaAnosAlbaranes';
@@ -166,6 +166,8 @@ const
fld_AlbaranesCliente_DetallesREFERENCIA = 'REFERENCIA';
fld_AlbaranesCliente_DetallesREFERENCIA_PROVEEDOR = 'REFERENCIA_PROVEEDOR';
fld_AlbaranesCliente_DetallesID_PEDIDO = 'ID_PEDIDO';
+ fld_AlbaranesCliente_DetallesID_ARTICULO_REEMPLAZADO = 'ID_ARTICULO_REEMPLAZADO';
+ fld_AlbaranesCliente_DetallesREFERENCIA_ART_REEMPLAZADO = 'REFERENCIA_ART_REEMPLAZADO';
{ AlbaranesCliente_Detalles field indexes }
idx_AlbaranesCliente_DetallesID = 0;
@@ -184,11 +186,13 @@ const
idx_AlbaranesCliente_DetallesREFERENCIA = 13;
idx_AlbaranesCliente_DetallesREFERENCIA_PROVEEDOR = 14;
idx_AlbaranesCliente_DetallesID_PEDIDO = 15;
+ idx_AlbaranesCliente_DetallesID_ARTICULO_REEMPLAZADO = 16;
+ idx_AlbaranesCliente_DetallesREFERENCIA_ART_REEMPLAZADO = 17;
type
{ IListaAnosAlbaranes }
IListaAnosAlbaranes = interface(IDAStronglyTypedDataTable)
- ['{6F87DB01-2294-4331-8C36-A0C754159240}']
+ ['{4074F8EC-F9B8-4A4B-BB81-CEF7D2F6365B}']
{ Property getters and setters }
function GetANOValue: String;
procedure SetANOValue(const aValue: String);
@@ -202,7 +206,7 @@ type
end;
{ TListaAnosAlbaranesDataTableRules }
- TListaAnosAlbaranesDataTableRules = class(TDADataTableRules, IListaAnosAlbaranes)
+ TListaAnosAlbaranesDataTableRules = class(TIntfObjectDADataTableRules, IListaAnosAlbaranes)
private
protected
{ Property getters and setters }
@@ -223,7 +227,7 @@ type
{ IAlbaranesCliente }
IAlbaranesCliente = interface(IDAStronglyTypedDataTable)
- ['{E24D4F8F-A65A-46FC-B4FD-0862681FE993}']
+ ['{8F408E21-0246-4D94-9E77-5782B508C414}']
{ Property getters and setters }
function GetIDValue: Integer;
procedure SetIDValue(const aValue: Integer);
@@ -487,7 +491,7 @@ type
end;
{ TAlbaranesClienteDataTableRules }
- TAlbaranesClienteDataTableRules = class(TDADataTableRules, IAlbaranesCliente)
+ TAlbaranesClienteDataTableRules = class(TIntfObjectDADataTableRules, IAlbaranesCliente)
private
f_OBSERVACIONES: IROStrings;
f_INCIDENCIAS: IROStrings;
@@ -762,7 +766,7 @@ type
{ IAlbaranesCliente_Detalle_Color }
IAlbaranesCliente_Detalle_Color = interface(IDAStronglyTypedDataTable)
- ['{4258FF8D-5072-4AC3-9195-D681DBA05C11}']
+ ['{BF29A24D-5536-439A-8BEF-6745D246A516}']
{ Property getters and setters }
function GetIDValue: Integer;
procedure SetIDValue(const aValue: Integer);
@@ -854,7 +858,7 @@ type
end;
{ TAlbaranesCliente_Detalle_ColorDataTableRules }
- TAlbaranesCliente_Detalle_ColorDataTableRules = class(TDADataTableRules, IAlbaranesCliente_Detalle_Color)
+ TAlbaranesCliente_Detalle_ColorDataTableRules = class(TIntfObjectDADataTableRules, IAlbaranesCliente_Detalle_Color)
private
protected
{ Property getters and setters }
@@ -953,7 +957,7 @@ type
{ IAlbaranesCliente_Detalles }
IAlbaranesCliente_Detalles = interface(IDAStronglyTypedDataTable)
- ['{32CD43CD-5A7A-4E80-AE13-C75124E342D7}']
+ ['{714E0D3D-0C54-48D0-9ED5-9607BE59A663}']
{ Property getters and setters }
function GetIDValue: Integer;
procedure SetIDValue(const aValue: Integer);
@@ -1019,6 +1023,14 @@ type
procedure SetID_PEDIDOValue(const aValue: Integer);
function GetID_PEDIDOIsNull: Boolean;
procedure SetID_PEDIDOIsNull(const aValue: Boolean);
+ function GetID_ARTICULO_REEMPLAZADOValue: Integer;
+ procedure SetID_ARTICULO_REEMPLAZADOValue(const aValue: Integer);
+ function GetID_ARTICULO_REEMPLAZADOIsNull: Boolean;
+ procedure SetID_ARTICULO_REEMPLAZADOIsNull(const aValue: Boolean);
+ function GetREFERENCIA_ART_REEMPLAZADOValue: String;
+ procedure SetREFERENCIA_ART_REEMPLAZADOValue(const aValue: String);
+ function GetREFERENCIA_ART_REEMPLAZADOIsNull: Boolean;
+ procedure SetREFERENCIA_ART_REEMPLAZADOIsNull(const aValue: Boolean);
{ Properties }
@@ -1054,10 +1066,14 @@ type
property REFERENCIA_PROVEEDORIsNull: Boolean read GetREFERENCIA_PROVEEDORIsNull write SetREFERENCIA_PROVEEDORIsNull;
property ID_PEDIDO: Integer read GetID_PEDIDOValue write SetID_PEDIDOValue;
property ID_PEDIDOIsNull: Boolean read GetID_PEDIDOIsNull write SetID_PEDIDOIsNull;
+ property ID_ARTICULO_REEMPLAZADO: Integer read GetID_ARTICULO_REEMPLAZADOValue write SetID_ARTICULO_REEMPLAZADOValue;
+ property ID_ARTICULO_REEMPLAZADOIsNull: Boolean read GetID_ARTICULO_REEMPLAZADOIsNull write SetID_ARTICULO_REEMPLAZADOIsNull;
+ property REFERENCIA_ART_REEMPLAZADO: String read GetREFERENCIA_ART_REEMPLAZADOValue write SetREFERENCIA_ART_REEMPLAZADOValue;
+ property REFERENCIA_ART_REEMPLAZADOIsNull: Boolean read GetREFERENCIA_ART_REEMPLAZADOIsNull write SetREFERENCIA_ART_REEMPLAZADOIsNull;
end;
{ TAlbaranesCliente_DetallesDataTableRules }
- TAlbaranesCliente_DetallesDataTableRules = class(TDADataTableRules, IAlbaranesCliente_Detalles)
+ TAlbaranesCliente_DetallesDataTableRules = class(TIntfObjectDADataTableRules, IAlbaranesCliente_Detalles)
private
protected
{ Property getters and setters }
@@ -1125,6 +1141,14 @@ type
procedure SetID_PEDIDOValue(const aValue: Integer); virtual;
function GetID_PEDIDOIsNull: Boolean; virtual;
procedure SetID_PEDIDOIsNull(const aValue: Boolean); virtual;
+ function GetID_ARTICULO_REEMPLAZADOValue: Integer; virtual;
+ procedure SetID_ARTICULO_REEMPLAZADOValue(const aValue: Integer); virtual;
+ function GetID_ARTICULO_REEMPLAZADOIsNull: Boolean; virtual;
+ procedure SetID_ARTICULO_REEMPLAZADOIsNull(const aValue: Boolean); virtual;
+ function GetREFERENCIA_ART_REEMPLAZADOValue: String; virtual;
+ procedure SetREFERENCIA_ART_REEMPLAZADOValue(const aValue: String); virtual;
+ function GetREFERENCIA_ART_REEMPLAZADOIsNull: Boolean; virtual;
+ procedure SetREFERENCIA_ART_REEMPLAZADOIsNull(const aValue: Boolean); virtual;
{ Properties }
property ID: Integer read GetIDValue write SetIDValue;
@@ -1159,6 +1183,10 @@ type
property REFERENCIA_PROVEEDORIsNull: Boolean read GetREFERENCIA_PROVEEDORIsNull write SetREFERENCIA_PROVEEDORIsNull;
property ID_PEDIDO: Integer read GetID_PEDIDOValue write SetID_PEDIDOValue;
property ID_PEDIDOIsNull: Boolean read GetID_PEDIDOIsNull write SetID_PEDIDOIsNull;
+ property ID_ARTICULO_REEMPLAZADO: Integer read GetID_ARTICULO_REEMPLAZADOValue write SetID_ARTICULO_REEMPLAZADOValue;
+ property ID_ARTICULO_REEMPLAZADOIsNull: Boolean read GetID_ARTICULO_REEMPLAZADOIsNull write SetID_ARTICULO_REEMPLAZADOIsNull;
+ property REFERENCIA_ART_REEMPLAZADO: String read GetREFERENCIA_ART_REEMPLAZADOValue write SetREFERENCIA_ART_REEMPLAZADOValue;
+ property REFERENCIA_ART_REEMPLAZADOIsNull: Boolean read GetREFERENCIA_ART_REEMPLAZADOIsNull write SetREFERENCIA_ART_REEMPLAZADOIsNull;
public
constructor Create(aDataTable: TDADataTable); override;
@@ -2783,6 +2811,48 @@ begin
DataTable.Fields[idx_AlbaranesCliente_DetallesID_PEDIDO].AsVariant := Null;
end;
+function TAlbaranesCliente_DetallesDataTableRules.GetID_ARTICULO_REEMPLAZADOValue: Integer;
+begin
+ result := DataTable.Fields[idx_AlbaranesCliente_DetallesID_ARTICULO_REEMPLAZADO].AsInteger;
+end;
+
+procedure TAlbaranesCliente_DetallesDataTableRules.SetID_ARTICULO_REEMPLAZADOValue(const aValue: Integer);
+begin
+ DataTable.Fields[idx_AlbaranesCliente_DetallesID_ARTICULO_REEMPLAZADO].AsInteger := aValue;
+end;
+
+function TAlbaranesCliente_DetallesDataTableRules.GetID_ARTICULO_REEMPLAZADOIsNull: boolean;
+begin
+ result := DataTable.Fields[idx_AlbaranesCliente_DetallesID_ARTICULO_REEMPLAZADO].IsNull;
+end;
+
+procedure TAlbaranesCliente_DetallesDataTableRules.SetID_ARTICULO_REEMPLAZADOIsNull(const aValue: Boolean);
+begin
+ if aValue then
+ DataTable.Fields[idx_AlbaranesCliente_DetallesID_ARTICULO_REEMPLAZADO].AsVariant := Null;
+end;
+
+function TAlbaranesCliente_DetallesDataTableRules.GetREFERENCIA_ART_REEMPLAZADOValue: String;
+begin
+ result := DataTable.Fields[idx_AlbaranesCliente_DetallesREFERENCIA_ART_REEMPLAZADO].AsString;
+end;
+
+procedure TAlbaranesCliente_DetallesDataTableRules.SetREFERENCIA_ART_REEMPLAZADOValue(const aValue: String);
+begin
+ DataTable.Fields[idx_AlbaranesCliente_DetallesREFERENCIA_ART_REEMPLAZADO].AsString := aValue;
+end;
+
+function TAlbaranesCliente_DetallesDataTableRules.GetREFERENCIA_ART_REEMPLAZADOIsNull: boolean;
+begin
+ result := DataTable.Fields[idx_AlbaranesCliente_DetallesREFERENCIA_ART_REEMPLAZADO].IsNull;
+end;
+
+procedure TAlbaranesCliente_DetallesDataTableRules.SetREFERENCIA_ART_REEMPLAZADOIsNull(const aValue: Boolean);
+begin
+ if aValue then
+ DataTable.Fields[idx_AlbaranesCliente_DetallesREFERENCIA_ART_REEMPLAZADO].AsVariant := Null;
+end;
+
initialization
RegisterDataTableRules(RID_ListaAnosAlbaranes, TListaAnosAlbaranesDataTableRules);
diff --git a/Source/Modulos/Albaranes de cliente/Model/schAlbaranesClienteServer_Intf.pas b/Source/Modulos/Albaranes de cliente/Model/schAlbaranesClienteServer_Intf.pas
index db76b08..c6bcf84 100644
--- a/Source/Modulos/Albaranes de cliente/Model/schAlbaranesClienteServer_Intf.pas
+++ b/Source/Modulos/Albaranes de cliente/Model/schAlbaranesClienteServer_Intf.pas
@@ -10,15 +10,15 @@ 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_ListaAnosAlbaranesDelta = '{495C919E-CCB7-42E5-8E0F-BD280FAFEFBE}';
- RID_AlbaranesClienteDelta = '{1047657F-BC07-46AB-A3D7-856FE3DE903B}';
- RID_AlbaranesCliente_Detalle_ColorDelta = '{FE909A38-591A-423D-8369-3CF1B8BE6539}';
- RID_AlbaranesCliente_DetallesDelta = '{43759912-619B-4D1C-9AC0-55A2F2A2929B}';
+ RID_ListaAnosAlbaranesDelta = '{E60F6A6A-6A06-498E-9186-D1821EFC148F}';
+ RID_AlbaranesClienteDelta = '{1514B5F5-9399-48AD-B5ED-9BF846EA26B0}';
+ RID_AlbaranesCliente_Detalle_ColorDelta = '{85549AA0-E0AC-4331-B2E4-58FB9160FA7E}';
+ RID_AlbaranesCliente_DetallesDelta = '{D3224DBF-E43C-4910-B541-4653E6BA8F73}';
type
{ IListaAnosAlbaranesDelta }
IListaAnosAlbaranesDelta = interface(IListaAnosAlbaranes)
- ['{495C919E-CCB7-42E5-8E0F-BD280FAFEFBE}']
+ ['{E60F6A6A-6A06-498E-9186-D1821EFC148F}']
{ Property getters and setters }
function GetOldANOValue : String;
@@ -52,7 +52,7 @@ type
{ IAlbaranesClienteDelta }
IAlbaranesClienteDelta = interface(IAlbaranesCliente)
- ['{1047657F-BC07-46AB-A3D7-856FE3DE903B}']
+ ['{1514B5F5-9399-48AD-B5ED-9BF846EA26B0}']
{ Property getters and setters }
function GetOldIDValue : Integer;
function GetOldID_EMPRESAValue : Integer;
@@ -592,7 +592,7 @@ type
{ IAlbaranesCliente_Detalle_ColorDelta }
IAlbaranesCliente_Detalle_ColorDelta = interface(IAlbaranesCliente_Detalle_Color)
- ['{FE909A38-591A-423D-8369-3CF1B8BE6539}']
+ ['{85549AA0-E0AC-4331-B2E4-58FB9160FA7E}']
{ Property getters and setters }
function GetOldIDValue : Integer;
function GetOldID_DETALLEValue : Integer;
@@ -782,7 +782,7 @@ type
{ IAlbaranesCliente_DetallesDelta }
IAlbaranesCliente_DetallesDelta = interface(IAlbaranesCliente_Detalles)
- ['{43759912-619B-4D1C-9AC0-55A2F2A2929B}']
+ ['{D3224DBF-E43C-4910-B541-4653E6BA8F73}']
{ Property getters and setters }
function GetOldIDValue : Integer;
function GetOldID_ALBARANValue : Integer;
@@ -800,6 +800,8 @@ type
function GetOldREFERENCIAValue : String;
function GetOldREFERENCIA_PROVEEDORValue : String;
function GetOldID_PEDIDOValue : Integer;
+ function GetOldID_ARTICULO_REEMPLAZADOValue : Integer;
+ function GetOldREFERENCIA_ART_REEMPLAZADOValue : String;
{ Properties }
property OldID : Integer read GetOldIDValue;
@@ -818,6 +820,8 @@ type
property OldREFERENCIA : String read GetOldREFERENCIAValue;
property OldREFERENCIA_PROVEEDOR : String read GetOldREFERENCIA_PROVEEDORValue;
property OldID_PEDIDO : Integer read GetOldID_PEDIDOValue;
+ property OldID_ARTICULO_REEMPLAZADO : Integer read GetOldID_ARTICULO_REEMPLAZADOValue;
+ property OldREFERENCIA_ART_REEMPLAZADO : String read GetOldREFERENCIA_ART_REEMPLAZADOValue;
end;
{ TAlbaranesCliente_DetallesBusinessProcessorRules }
@@ -921,6 +925,18 @@ type
function GetOldID_PEDIDOIsNull: Boolean; virtual;
procedure SetID_PEDIDOValue(const aValue: Integer); virtual;
procedure SetID_PEDIDOIsNull(const aValue: Boolean); virtual;
+ function GetID_ARTICULO_REEMPLAZADOValue: Integer; virtual;
+ function GetID_ARTICULO_REEMPLAZADOIsNull: Boolean; virtual;
+ function GetOldID_ARTICULO_REEMPLAZADOValue: Integer; virtual;
+ function GetOldID_ARTICULO_REEMPLAZADOIsNull: Boolean; virtual;
+ procedure SetID_ARTICULO_REEMPLAZADOValue(const aValue: Integer); virtual;
+ procedure SetID_ARTICULO_REEMPLAZADOIsNull(const aValue: Boolean); virtual;
+ function GetREFERENCIA_ART_REEMPLAZADOValue: String; virtual;
+ function GetREFERENCIA_ART_REEMPLAZADOIsNull: Boolean; virtual;
+ function GetOldREFERENCIA_ART_REEMPLAZADOValue: String; virtual;
+ function GetOldREFERENCIA_ART_REEMPLAZADOIsNull: Boolean; virtual;
+ procedure SetREFERENCIA_ART_REEMPLAZADOValue(const aValue: String); virtual;
+ procedure SetREFERENCIA_ART_REEMPLAZADOIsNull(const aValue: Boolean); virtual;
{ Properties }
property ID : Integer read GetIDValue write SetIDValue;
@@ -987,6 +1003,14 @@ type
property ID_PEDIDOIsNull : Boolean read GetID_PEDIDOIsNull write SetID_PEDIDOIsNull;
property OldID_PEDIDO : Integer read GetOldID_PEDIDOValue;
property OldID_PEDIDOIsNull : Boolean read GetOldID_PEDIDOIsNull;
+ property ID_ARTICULO_REEMPLAZADO : Integer read GetID_ARTICULO_REEMPLAZADOValue write SetID_ARTICULO_REEMPLAZADOValue;
+ property ID_ARTICULO_REEMPLAZADOIsNull : Boolean read GetID_ARTICULO_REEMPLAZADOIsNull write SetID_ARTICULO_REEMPLAZADOIsNull;
+ property OldID_ARTICULO_REEMPLAZADO : Integer read GetOldID_ARTICULO_REEMPLAZADOValue;
+ property OldID_ARTICULO_REEMPLAZADOIsNull : Boolean read GetOldID_ARTICULO_REEMPLAZADOIsNull;
+ property REFERENCIA_ART_REEMPLAZADO : String read GetREFERENCIA_ART_REEMPLAZADOValue write SetREFERENCIA_ART_REEMPLAZADOValue;
+ property REFERENCIA_ART_REEMPLAZADOIsNull : Boolean read GetREFERENCIA_ART_REEMPLAZADOIsNull write SetREFERENCIA_ART_REEMPLAZADOIsNull;
+ property OldREFERENCIA_ART_REEMPLAZADO : String read GetOldREFERENCIA_ART_REEMPLAZADOValue;
+ property OldREFERENCIA_ART_REEMPLAZADOIsNull : Boolean read GetOldREFERENCIA_ART_REEMPLAZADOIsNull;
public
constructor Create(aBusinessProcessor: TDABusinessProcessor); override;
@@ -3650,6 +3674,76 @@ begin
BusinessProcessor.CurrentChange.NewValueByName[fld_AlbaranesCliente_DetallesID_PEDIDO] := Null;
end;
+function TAlbaranesCliente_DetallesBusinessProcessorRules.GetID_ARTICULO_REEMPLAZADOValue: Integer;
+begin
+ result := BusinessProcessor.CurrentChange.NewValueByName[fld_AlbaranesCliente_DetallesID_ARTICULO_REEMPLAZADO];
+end;
+
+function TAlbaranesCliente_DetallesBusinessProcessorRules.GetID_ARTICULO_REEMPLAZADOIsNull: Boolean;
+var v: variant;
+begin
+ v := BusinessProcessor.CurrentChange.NewValueByName[fld_AlbaranesCliente_DetallesID_ARTICULO_REEMPLAZADO];
+ result := VarIsNull(v) or VarIsClear(v);
+end;
+
+function TAlbaranesCliente_DetallesBusinessProcessorRules.GetOldID_ARTICULO_REEMPLAZADOValue: Integer;
+begin
+ result := BusinessProcessor.CurrentChange.OldValueByName[fld_AlbaranesCliente_DetallesID_ARTICULO_REEMPLAZADO];
+end;
+
+function TAlbaranesCliente_DetallesBusinessProcessorRules.GetOldID_ARTICULO_REEMPLAZADOIsNull: Boolean;
+var v: variant;
+begin
+ v := BusinessProcessor.CurrentChange.OldValueByName[fld_AlbaranesCliente_DetallesID_ARTICULO_REEMPLAZADO];
+ result := VarIsNull(v) or VarIsClear(v);
+end;
+
+procedure TAlbaranesCliente_DetallesBusinessProcessorRules.SetID_ARTICULO_REEMPLAZADOValue(const aValue: Integer);
+begin
+ BusinessProcessor.CurrentChange.NewValueByName[fld_AlbaranesCliente_DetallesID_ARTICULO_REEMPLAZADO] := aValue;
+end;
+
+procedure TAlbaranesCliente_DetallesBusinessProcessorRules.SetID_ARTICULO_REEMPLAZADOIsNull(const aValue: Boolean);
+begin
+ if aValue then
+ BusinessProcessor.CurrentChange.NewValueByName[fld_AlbaranesCliente_DetallesID_ARTICULO_REEMPLAZADO] := Null;
+end;
+
+function TAlbaranesCliente_DetallesBusinessProcessorRules.GetREFERENCIA_ART_REEMPLAZADOValue: String;
+begin
+ result := BusinessProcessor.CurrentChange.NewValueByName[fld_AlbaranesCliente_DetallesREFERENCIA_ART_REEMPLAZADO];
+end;
+
+function TAlbaranesCliente_DetallesBusinessProcessorRules.GetREFERENCIA_ART_REEMPLAZADOIsNull: Boolean;
+var v: variant;
+begin
+ v := BusinessProcessor.CurrentChange.NewValueByName[fld_AlbaranesCliente_DetallesREFERENCIA_ART_REEMPLAZADO];
+ result := VarIsNull(v) or VarIsClear(v);
+end;
+
+function TAlbaranesCliente_DetallesBusinessProcessorRules.GetOldREFERENCIA_ART_REEMPLAZADOValue: String;
+begin
+ result := BusinessProcessor.CurrentChange.OldValueByName[fld_AlbaranesCliente_DetallesREFERENCIA_ART_REEMPLAZADO];
+end;
+
+function TAlbaranesCliente_DetallesBusinessProcessorRules.GetOldREFERENCIA_ART_REEMPLAZADOIsNull: Boolean;
+var v: variant;
+begin
+ v := BusinessProcessor.CurrentChange.OldValueByName[fld_AlbaranesCliente_DetallesREFERENCIA_ART_REEMPLAZADO];
+ result := VarIsNull(v) or VarIsClear(v);
+end;
+
+procedure TAlbaranesCliente_DetallesBusinessProcessorRules.SetREFERENCIA_ART_REEMPLAZADOValue(const aValue: String);
+begin
+ BusinessProcessor.CurrentChange.NewValueByName[fld_AlbaranesCliente_DetallesREFERENCIA_ART_REEMPLAZADO] := aValue;
+end;
+
+procedure TAlbaranesCliente_DetallesBusinessProcessorRules.SetREFERENCIA_ART_REEMPLAZADOIsNull(const aValue: Boolean);
+begin
+ if aValue then
+ BusinessProcessor.CurrentChange.NewValueByName[fld_AlbaranesCliente_DetallesREFERENCIA_ART_REEMPLAZADO] := Null;
+end;
+
initialization
RegisterBusinessProcessorRules(RID_ListaAnosAlbaranesDelta, TListaAnosAlbaranesBusinessProcessorRules);
diff --git a/Source/Modulos/Albaranes de cliente/Servidor/srvAlbaranesCliente_Impl.dfm b/Source/Modulos/Albaranes de cliente/Servidor/srvAlbaranesCliente_Impl.dfm
index c9dbdfa..1bfe09e 100644
--- a/Source/Modulos/Albaranes de cliente/Servidor/srvAlbaranesCliente_Impl.dfm
+++ b/Source/Modulos/Albaranes de cliente/Servidor/srvAlbaranesCliente_Impl.dfm
@@ -627,9 +627,13 @@ object srvAlbaranesCliente: TsrvAlbaranesCliente
'S_CLIENTE_DETALLES.ID_ARTICULO, ARTICULOS.REFERENCIA,'#10' '#39#39' as ' +
'REFERENCIA_PROVEEDOR, /*Es necesario para que no pete detalles p' +
'orque tanto en la rama de cliente como de proveedor es comun*/'#10' ' +
- ' ALBARANES_CLIENTE_DETALLES.ID_PEDIDO'#10#10#10'FROM ALBARANES_CLIENTE' +
- '_DETALLES'#10'LEFT JOIN ARTICULOS ON ALBARANES_CLIENTE_DETALLES.ID_A' +
- 'RTICULO = ARTICULOS.ID'#10'where {where}'#10'ORDER BY POSICION;'#10#10
+ ' ALBARANES_CLIENTE_DETALLES.ID_PEDIDO,'#10' ALBARANES_CLIENTE_D' +
+ 'ETALLES.ID_ARTICULO_REEMPLAZADO, ARTICULOS2.REFERENCIA AS REFERE' +
+ 'NCIA_ART_REEMPLAZADO'#10#10#10'FROM ALBARANES_CLIENTE_DETALLES'#10'LEFT JOIN' +
+ ' ARTICULOS ON ALBARANES_CLIENTE_DETALLES.ID_ARTICULO = ARTICULOS' +
+ '.ID'#10'LEFT JOIN ARTICULOS ARTICULOS2 ON ALBARANES_CLIENTE_DETALLES' +
+ '.ID_ARTICULO_REEMPLAZADO = ARTICULOS2.ID'#10'where {where}'#10'ORDER BY ' +
+ 'POSICION;'#10#10
StatementType = stSQL
ColumnMappings = <
item
@@ -695,6 +699,14 @@ object srvAlbaranesCliente: TsrvAlbaranesCliente
item
DatasetField = 'UNIDAD_MEDIDA'
TableField = 'UNIDAD_MEDIDA'
+ end
+ item
+ DatasetField = 'ID_ARTICULO_REEMPLAZADO'
+ TableField = 'ID_ARTICULO_REEMPLAZADO'
+ end
+ item
+ DatasetField = 'REFERENCIA_ART_REEMPLAZADO'
+ TableField = 'REFERENCIA_ART_REEMPLAZADO'
end>
end>
Name = 'AlbaranesCliente_Detalles'
@@ -782,6 +794,15 @@ object srvAlbaranesCliente: TsrvAlbaranesCliente
item
Name = 'ID_PEDIDO'
DataType = datInteger
+ end
+ item
+ Name = 'ID_ARTICULO_REEMPLAZADO'
+ DataType = datInteger
+ end
+ item
+ Name = 'REFERENCIA_ART_REEMPLAZADO'
+ DataType = datString
+ Size = 255
end>
end>
JoinDataTables = <>
@@ -1276,60 +1297,81 @@ object srvAlbaranesCliente: TsrvAlbaranesCliente
Params = <
item
Name = 'ID'
- DataType = datAutoInc
+ DataType = datLargeInt
GeneratorName = 'GEN_ALBARANES_CLI_DETALLES_ID'
Value = ''
end
item
Name = 'ID_ALBARAN'
+ DataType = datInteger
Value = ''
end
item
Name = 'POSICION'
+ DataType = datInteger
Value = ''
end
item
Name = 'TIPO_DETALLE'
+ DataType = datString
+ Size = 25
Value = ''
end
item
Name = 'CONCEPTO'
+ DataType = datString
+ Size = 2000
Value = ''
end
item
Name = 'CANTIDAD'
+ DataType = datDecimal
Value = ''
end
item
Name = 'UNIDAD_MEDIDA'
+ DataType = datString
+ Size = 255
Value = ''
end
item
Name = 'IMPORTE_UNIDAD'
+ DataType = datDecimal
Value = ''
end
item
Name = 'DESCUENTO'
+ DataType = datCurrency
Value = ''
end
item
Name = 'IMPORTE_PORTE'
+ DataType = datDecimal
Value = ''
end
item
Name = 'IMPORTE_TOTAL'
+ DataType = datDecimal
Value = ''
end
item
Name = 'VISIBLE'
+ DataType = datSmallInt
Value = ''
end
item
Name = 'ID_ARTICULO'
+ DataType = datInteger
Value = ''
end
item
Name = 'ID_PEDIDO'
+ DataType = datInteger
+ Value = ''
+ end
+ item
+ Name = 'ID_ARTICULO_REEMPLAZADO'
+ DataType = datInteger
Value = ''
end>
Statements = <
@@ -1341,10 +1383,11 @@ object srvAlbaranesCliente: TsrvAlbaranesCliente
'INSERT'#10' INTO ALBARANES_CLIENTE_DETALLES'#10' (ID, ID_ALBARAN, PO' +
'SICION, TIPO_DETALLE, CONCEPTO, CANTIDAD, UNIDAD_MEDIDA,'#10' IM' +
'PORTE_UNIDAD, DESCUENTO, IMPORTE_PORTE, IMPORTE_TOTAL, '#10' VIS' +
- 'IBLE, ID_ARTICULO, ID_PEDIDO)'#10' VALUES'#10' (:ID, :ID_ALBARAN, :P' +
- 'OSICION, :TIPO_DETALLE, :CONCEPTO, :CANTIDAD, :UNIDAD_MEDIDA,'#10' ' +
- ' :IMPORTE_UNIDAD, :DESCUENTO, :IMPORTE_PORTE, :IMPORTE_TOTAL, ' +
- #10' :VISIBLE, :ID_ARTICULO, :ID_PEDIDO)'#10
+ 'IBLE, ID_ARTICULO, ID_PEDIDO, ID_ARTICULO_REEMPLAZADO)'#10' VALUES'#10 +
+ ' (:ID, :ID_ALBARAN, :POSICION, :TIPO_DETALLE, :CONCEPTO, :CAN' +
+ 'TIDAD, :UNIDAD_MEDIDA,'#10' :IMPORTE_UNIDAD, :DESCUENTO, :IMPORT' +
+ 'E_PORTE, :IMPORTE_TOTAL, '#10' :VISIBLE, :ID_ARTICULO, :ID_PEDID' +
+ 'O, :ID_ARTICULO_REEMPLAZADO)'#10
StatementType = stSQL
ColumnMappings = <>
end>
@@ -1374,58 +1417,80 @@ object srvAlbaranesCliente: TsrvAlbaranesCliente
Params = <
item
Name = 'ID'
+ DataType = datInteger
Value = ''
end
item
Name = 'ID_ALBARAN'
+ DataType = datInteger
Value = ''
end
item
Name = 'POSICION'
+ DataType = datInteger
Value = ''
end
item
Name = 'TIPO_DETALLE'
+ DataType = datString
+ Size = 25
Value = ''
end
item
Name = 'CONCEPTO'
+ DataType = datString
+ Size = 2000
Value = ''
end
item
Name = 'CANTIDAD'
+ DataType = datDecimal
Value = ''
end
item
Name = 'UNIDAD_MEDIDA'
+ DataType = datString
+ Size = 255
Value = ''
end
item
Name = 'IMPORTE_UNIDAD'
+ DataType = datDecimal
Value = ''
end
item
Name = 'DESCUENTO'
+ DataType = datCurrency
Value = ''
end
item
Name = 'IMPORTE_PORTE'
+ DataType = datDecimal
Value = ''
end
item
Name = 'IMPORTE_TOTAL'
+ DataType = datDecimal
Value = ''
end
item
Name = 'VISIBLE'
+ DataType = datSmallInt
Value = ''
end
item
Name = 'ID_ARTICULO'
+ DataType = datInteger
Value = ''
end
item
Name = 'ID_PEDIDO'
+ DataType = datInteger
+ Value = ''
+ end
+ item
+ Name = 'ID_ARTICULO_REEMPLAZADO'
+ DataType = datInteger
Value = ''
end
item
@@ -1445,7 +1510,8 @@ object srvAlbaranesCliente: TsrvAlbaranesCliente
' = :IMPORTE_UNIDAD, '#10' DESCUENTO = :DESCUENTO, '#10' IMPORTE_PO' +
'RTE = :IMPORTE_PORTE, '#10' IMPORTE_TOTAL = :IMPORTE_TOTAL, '#10' ' +
'VISIBLE = :VISIBLE, '#10' ID_ARTICULO = :ID_ARTICULO,'#10' ID_PEDI' +
- 'DO = :ID_PEDIDO'#10' WHERE'#10' (ID = :OLD_ID)'#10
+ 'DO = :ID_PEDIDO,'#10' ID_ARTICULO_REEMPLAZADO = :ID_ARTICULO_REEM' +
+ 'PLAZADO'#10' WHERE'#10' (ID = :OLD_ID)'#10
StatementType = stSQL
ColumnMappings = <>
end>
diff --git a/Source/Modulos/Albaranes de cliente/Servidor/srvAlbaranesCliente_Impl.pas b/Source/Modulos/Albaranes de cliente/Servidor/srvAlbaranesCliente_Impl.pas
index c2c8d2c..6036421 100644
--- a/Source/Modulos/Albaranes de cliente/Servidor/srvAlbaranesCliente_Impl.pas
+++ b/Source/Modulos/Albaranes de cliente/Servidor/srvAlbaranesCliente_Impl.pas
@@ -18,7 +18,6 @@ uses
uDAScriptingProvider, uDAClasses,
FactuGES_Intf, uDAInterfaces, uROClient;
-
type
{ TsrvAlbaranesCliente }
TsrvAlbaranesCliente = class(TDataAbstractService, IsrvAlbaranesCliente)
@@ -54,8 +53,7 @@ begin
end;
{ srvAlbaranesCliente }
-procedure TsrvAlbaranesCliente.DARemoteServiceBeforeGetDatasetData(
- const Dataset: IDADataset; const IncludeSchema: Boolean;
+procedure TsrvAlbaranesCliente.DARemoteServiceBeforeGetDatasetData(const Dataset: IDADataset; const IncludeSchema: Boolean;
const MaxRecords: Integer);
begin
if DataSet.Name = nme_AlbaranesCliente then
diff --git a/Source/Modulos/Albaranes de cliente/Views/uEditorAlbaranesCliente.pas b/Source/Modulos/Albaranes de cliente/Views/uEditorAlbaranesCliente.pas
index e2d6c9f..7ae62f5 100644
--- a/Source/Modulos/Albaranes de cliente/Views/uEditorAlbaranesCliente.pas
+++ b/Source/Modulos/Albaranes de cliente/Views/uEditorAlbaranesCliente.pas
@@ -162,7 +162,8 @@ begin
if (Sender as TAction).Enabled
and (FAlbaranes.TIPO = CTE_TIPO_ALBARAN) then
(Sender as TAction).Enabled := not (FAlbaranes.ID_FACTURA > 0)
- and (FAlbaranes.SITUACION = SITUACION_ALBARAN_PENDIENTE)
+//En noviseda no se tiene en cuenta las diferenctes situaciones que puede tener un albaran
+// and (FAlbaranes.SITUACION = SITUACION_ALBARAN_PENDIENTE)
end;
procedure TfEditorAlbaranesCliente.actGenerarEtiquetasExecute(Sender: TObject);
diff --git a/Source/Modulos/Albaranes de cliente/Views/uViewDetallesAlbaranCliente.dfm b/Source/Modulos/Albaranes de cliente/Views/uViewDetallesAlbaranCliente.dfm
index c5a2b35..c987c0f 100644
--- a/Source/Modulos/Albaranes de cliente/Views/uViewDetallesAlbaranCliente.dfm
+++ b/Source/Modulos/Albaranes de cliente/Views/uViewDetallesAlbaranCliente.dfm
@@ -1,106 +1,113 @@
inherited frViewDetallesAlbaranCliente: TfrViewDetallesAlbaranCliente
+ Width = 701
inherited ToolBar1: TToolBar
- Height = 122
- ExplicitHeight = 122
- inherited ToolButton13: TToolButton [3]
- Left = 0
+ Width = 701
+ Height = 78
+ ExplicitHeight = 78
+ inherited ToolButton14: TToolButton [3]
+ Left = 220
Top = 0
- Wrap = True
- ExplicitLeft = 0
+ ExplicitLeft = 220
ExplicitTop = 0
- ExplicitHeight = 27
end
- inherited ToolButton4: TToolButton [4]
- Top = 27
+ inherited FontName: TJvFontComboBox [4]
+ Left = 285
+ Top = 0
+ ExplicitLeft = 285
+ ExplicitTop = 0
end
- inherited ToolButton7: TToolButton [5]
- Left = 56
+ inherited FontSize: TEdit [5]
+ Left = 430
+ Top = 0
+ Width = 154
+ ExplicitLeft = 430
+ ExplicitTop = 0
+ ExplicitWidth = 154
+ end
+ inherited ToolButton13: TToolButton
+ Top = 0
+ ExplicitTop = 0
+ end
+ inherited ToolButton2: TToolButton [7]
+ end
+ inherited UpDown1: TUpDown [8]
+ Left = 114
Top = 27
- ExplicitLeft = 56
+ ExplicitLeft = 114
ExplicitTop = 27
end
- inherited FontName: TJvFontComboBox [6]
- Left = 123
+ inherited ToolButton6: TToolButton [9]
+ Left = 131
Top = 27
- ExplicitLeft = 123
+ ExplicitLeft = 131
ExplicitTop = 27
end
- inherited ToolButton14: TToolButton [7]
- Left = 268
+ inherited ToolButton7: TToolButton [10]
+ Left = 197
Top = 27
- ExplicitLeft = 268
+ ExplicitLeft = 197
ExplicitTop = 27
end
- inherited ToolButton9: TToolButton [8]
+ inherited ToolButton8: TToolButton [11]
+ Left = 264
+ Top = 27
+ ExplicitLeft = 264
+ ExplicitTop = 27
+ end
+ inherited ToolButton12: TToolButton [12]
+ Top = 27
+ ExplicitTop = 27
+ end
+ inherited ToolButton9: TToolButton [13]
Left = 0
- Top = 49
+ Top = 54
ExplicitLeft = 0
- ExplicitTop = 49
+ ExplicitTop = 54
end
- inherited ToolButton12: TToolButton [9]
- Left = 0
- Top = 49
- Wrap = True
- ExplicitLeft = 0
- ExplicitTop = 49
- ExplicitHeight = 27
+ inherited ToolButton10: TToolButton [14]
end
- inherited FontSize: TEdit [10]
- Left = 0
- Top = 76
- Width = 122
- ExplicitLeft = 0
- ExplicitTop = 76
- ExplicitWidth = 122
- end
- inherited UpDown1: TUpDown [11]
- Left = 122
- Top = 76
- ExplicitLeft = 122
- ExplicitTop = 76
- end
- inherited ToolButton6: TToolButton [12]
- Left = 139
- Top = 76
- ExplicitLeft = 139
- ExplicitTop = 76
- end
- inherited ToolButton10: TToolButton [13]
- Left = 205
- Top = 76
- Wrap = True
- ExplicitLeft = 205
- ExplicitTop = 76
- end
- inherited ToolButton8: TToolButton [14]
- Left = 0
- Top = 98
- ExplicitLeft = 0
- ExplicitTop = 98
- end
- inherited ToolButton11: TToolButton
- Left = 83
- Top = 98
- ExplicitLeft = 83
- ExplicitTop = 98
+ inherited ToolButton11: TToolButton [15]
+ Left = 270
+ Top = 54
+ ExplicitLeft = 270
+ ExplicitTop = 54
end
end
inherited cxGrid: TcxGrid
- Top = 148
- Height = 156
- ExplicitTop = 126
+ Top = 104
+ Width = 701
+ Height = 200
ExplicitHeight = 178
inherited cxGridView: TcxGridDBTableView
inherited cxGridViewTIPO: TcxGridDBColumn
Visible = False
VisibleForCustomization = False
end
+ inherited cxGridViewREFERENCIA: TcxGridDBColumn
+ Caption = 'Referencia pedida'
+ end
+ object cxGridViewIR_ARTICULO_REEMPLAZADO: TcxGridDBColumn [6]
+ DataBinding.FieldName = 'ID_ARTICULO_REEMPLAZADO'
+ Visible = False
+ VisibleForCustomization = False
+ end
+ object cxGridViewREFERENCIA_ART_REEMPLAZADO: TcxGridDBColumn [7]
+ Caption = 'Referencia reemplazada'
+ DataBinding.FieldName = 'REFERENCIA_ART_REEMPLAZADO'
+ PropertiesClassName = 'TcxButtonEditProperties'
+ Properties.Buttons = <
+ item
+ Default = True
+ Kind = bkEllipsis
+ end>
+ Properties.OnButtonClick = cxGridViewREFERENCIA_ART_REEMPLAZADOPropertiesButtonClick
+ end
inherited cxGridViewCANTIDAD: TcxGridDBColumn
Properties.ReadOnly = True
Visible = False
VisibleForCustomization = False
end
- object cxGridViewCANTIDAD2: TcxGridDBColumn [10]
+ object cxGridViewCANTIDAD2: TcxGridDBColumn [12]
Caption = 'Cantidad'
DataBinding.FieldName = 'CANTIDAD'
PropertiesClassName = 'TcxButtonEditProperties'
@@ -120,8 +127,9 @@ inherited frViewDetallesAlbaranCliente: TfrViewDetallesAlbaranCliente
end
end
inherited TBXDock1: TSpTBXDock
- Top = 122
- ExplicitTop = 68
+ Top = 78
+ Width = 701
+ ExplicitTop = 100
inherited TBXToolbar1: TSpTBXToolbar
DockPos = 0
ExplicitWidth = 447
diff --git a/Source/Modulos/Albaranes de cliente/Views/uViewDetallesAlbaranCliente.pas b/Source/Modulos/Albaranes de cliente/Views/uViewDetallesAlbaranCliente.pas
index 03eab36..55d34c9 100644
--- a/Source/Modulos/Albaranes de cliente/Views/uViewDetallesAlbaranCliente.pas
+++ b/Source/Modulos/Albaranes de cliente/Views/uViewDetallesAlbaranCliente.pas
@@ -31,7 +31,13 @@ type
Aadirartculos1: TMenuItem;
TBXItem18: TSpTBXItem;
cxGridViewCANTIDAD2: TcxGridDBColumn;
+ cxGridViewIR_ARTICULO_REEMPLAZADO: TcxGridDBColumn;
+ cxGridViewREFERENCIA_ART_REEMPLAZADO: TcxGridDBColumn;
procedure cxGridViewCANTIDAD2PropertiesButtonClick(Sender: TObject; AButtonIndex: Integer);
+ procedure cxGridViewREFERENCIA_ART_REEMPLAZADOPropertiesButtonClick(Sender: TObject; AButtonIndex: Integer);
+ procedure OnValidateReferencia_ART_REEMPLAZADO(Sender: TObject; var DisplayValue: Variant; var ErrorText: TCaption; var Error: Boolean);
+ procedure CustomViewCreate(Sender: TObject);
+ procedure CustomViewDestroy(Sender: TObject);
protected
FAlbaran: IBizAlbaranCliente;
function GetAlbaran: IBizAlbaranCliente;
@@ -48,7 +54,7 @@ type
implementation
{$R *.dfm}
-uses uDetallesAlbaranClienteController, uViewDetallesBase;
+uses uDetallesAlbaranClienteController, uViewDetallesBase, uDialogUtils;
{ TfrViewDetallesAlbaranProveedor }
@@ -68,6 +74,18 @@ begin
(Controller as IDetallesAlbaranClienteController).AnadirArticulos(Detalles, Albaran.Cliente, true, 0);
end;
+procedure TfrViewDetallesAlbaranCliente.CustomViewCreate(Sender: TObject);
+begin
+ inherited;
+ cxGridViewREFERENCIA_ART_REEMPLAZADO.Properties.OnValidate := OnValidateReferencia_ART_REEMPLAZADO;
+end;
+
+procedure TfrViewDetallesAlbaranCliente.CustomViewDestroy(Sender: TObject);
+begin
+ cxGridViewREFERENCIA_ART_REEMPLAZADO.Properties.OnValidate := Nil;
+ inherited;
+end;
+
procedure TfrViewDetallesAlbaranCliente.cxGridViewCANTIDAD2PropertiesButtonClick(
Sender: TObject; AButtonIndex: Integer);
begin
@@ -75,11 +93,38 @@ begin
(Controller as IDetallesAlbaranClienteController).ModificarCantidadColores(Detalles);
end;
+procedure TfrViewDetallesAlbaranCliente.cxGridViewREFERENCIA_ART_REEMPLAZADOPropertiesButtonClick(
+ Sender: TObject; AButtonIndex: Integer);
+begin
+ inherited;
+//
+end;
+
function TfrViewDetallesAlbaranCliente.GetAlbaran: IBizAlbaranCliente;
begin
Result := FAlbaran;
end;
+procedure TfrViewDetallesAlbaranCliente.OnValidateReferencia_ART_REEMPLAZADO(Sender: TObject; var DisplayValue: Variant; var ErrorText: TCaption;
+ var Error: Boolean);
+var
+ lsReferencia : String;
+begin
+ //En el caso de cadena vacia no validamos
+ if (VarIsNull(DisplayValue)) then
+ Exit;
+
+ lsReferencia := VarToStr(DisplayValue);
+ if (length(trim(lsReferencia)) = 0) then
+ Exit;
+
+ if not AnadirArticulo(lsReferencia, tClienteReemplazo) then
+ begin
+ ErrorText := 'La referencia introducida no exite en el catálogo';
+ Error := True;
+ end;
+end;
+
procedure TfrViewDetallesAlbaranCliente.RellenarArticulosInterno;
begin
if (Albaran.TIPO = CTE_TIPO_ALBARAN_DEV) then
diff --git a/Source/Modulos/Almacenes/Plugin/uPluginAlmacenes.dfm b/Source/Modulos/Almacenes/Plugin/uPluginAlmacenes.dfm
index afb8d54..56038e5 100644
--- a/Source/Modulos/Almacenes/Plugin/uPluginAlmacenes.dfm
+++ b/Source/Modulos/Almacenes/Plugin/uPluginAlmacenes.dfm
@@ -48,9 +48,7 @@ object PluginAlmacenes: TPluginAlmacenes
Tag = 100
Category = 'Log'#237'stica'
Caption = 'Almacenes'
- Enabled = False
ImageIndex = 0
- Visible = False
OnExecute = actAlmacenesExecute
end
end
diff --git a/Source/Modulos/Almacenes/Views/uEditorAlmacenes.dfm b/Source/Modulos/Almacenes/Views/uEditorAlmacenes.dfm
index f017a33..9e44704 100644
--- a/Source/Modulos/Almacenes/Views/uEditorAlmacenes.dfm
+++ b/Source/Modulos/Almacenes/Views/uEditorAlmacenes.dfm
@@ -30,28 +30,25 @@ inherited fEditorAlmacenes: TfEditorAlmacenes
end
inherited TBXDock: TSpTBXDock
inherited tbxMain: TSpTBXToolbar
- ExplicitWidth = 474
+ ExplicitWidth = 617
end
inherited tbxFiltro: TSpTBXToolbar
- ExplicitWidth = 269
- inherited tbxEditFiltro: TSpTBXEditItem
- EditOptions = [tboUseEditWhenVertical]
- end
+ ExplicitWidth = 328
inherited TBXItem37: TSpTBXItem
Visible = False
end
end
inherited TBXTMain2: TSpTBXToolbar
- Left = 275
+ Left = 328
DockPos = 275
- ExplicitLeft = 275
+ ExplicitLeft = 328
end
end
inline frViewAlmacenes1: TfrViewAlmacenes [3]
Left = 0
Top = 102
- Width = 543
- Height = 323
+ Width = 894
+ Height = 383
Align = alClient
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
@@ -62,13 +59,13 @@ inherited fEditorAlmacenes: TfEditorAlmacenes
TabOrder = 3
ReadOnly = False
ExplicitTop = 102
- ExplicitWidth = 543
- ExplicitHeight = 323
+ ExplicitWidth = 894
+ ExplicitHeight = 383
inherited cxGrid: TcxGrid
- Width = 543
- Height = 195
- ExplicitWidth = 543
- ExplicitHeight = 195
+ Width = 894
+ Height = 255
+ ExplicitWidth = 894
+ ExplicitHeight = 255
inherited cxGridView: TcxGridDBTableView
DataController.Summary.FooterSummaryItems = <
item
@@ -79,13 +76,14 @@ inherited fEditorAlmacenes: TfEditorAlmacenes
end
end
inherited frViewFiltroBase1: TfrViewFiltroBase
- Width = 543
- ExplicitWidth = 543
+ Width = 894
+ ExplicitWidth = 894
inherited TBXDockablePanel1: TSpTBXDockablePanel
- ExplicitWidth = 543
+ Width = 894
+ ExplicitWidth = 894
inherited dxLayoutControl1: TdxLayoutControl
- Width = 543
- ExplicitWidth = 543
+ Width = 894
+ ExplicitWidth = 894
inherited txtFiltroTodo: TcxTextEdit
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
@@ -103,36 +101,45 @@ inherited fEditorAlmacenes: TfEditorAlmacenes
Width = 233
end
inherited edtFechaFinFiltro: TcxDateEdit
- Left = 337
+ Left = 377
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
- ExplicitLeft = 337
- ExplicitWidth = 196
- Width = 196
+ ExplicitLeft = 377
+ end
+ inherited eLista: TcxComboBox
+ Left = 637
+ Style.LookAndFeel.SkinName = ''
+ StyleDisabled.LookAndFeel.SkinName = ''
+ StyleFocused.LookAndFeel.SkinName = ''
+ StyleHot.LookAndFeel.SkinName = ''
+ ExplicitLeft = 637
+ ExplicitWidth = 215
+ Width = 215
end
end
inherited TBXAlignmentPanel1: TSpTBXDockablePanel
- Width = 543
- ExplicitWidth = 543
+ Width = 884
+ ExplicitWidth = 884
inherited tbxBotones: TSpTBXToolbar
- Width = 533
- ExplicitWidth = 533
+ Width = 884
+ ExplicitWidth = 884
end
end
end
end
inherited pnlAgrupaciones: TSpTBXDockablePanel
- Top = 297
- ExplicitTop = 297
- ExplicitWidth = 543
+ Top = 357
+ Width = 894
+ ExplicitTop = 357
+ ExplicitWidth = 894
inherited TBXAlignmentPanel1: TSpTBXDockablePanel
- Width = 543
- ExplicitWidth = 543
+ Width = 894
+ ExplicitWidth = 894
inherited TBXToolbar1: TSpTBXToolbar
- Width = 533
- ExplicitWidth = 533
+ Width = 894
+ ExplicitWidth = 894
end
end
end
@@ -142,6 +149,17 @@ inherited fEditorAlmacenes: TfEditorAlmacenes
BuiltInReportLink = True
end
end
+ inherited dxPSEngineController1: TdxPSEngineController
+ Active = True
+ end
+ inherited cxViewGridPopupMenu: TcxGridPopupMenu
+ PopupMenus = <
+ item
+ GridView = frViewAlmacenes1.cxGridView
+ HitTypes = [gvhtCell]
+ Index = 0
+ end>
+ end
end
inherited EditorActionList: TActionList [4]
inherited actNuevo: TAction
diff --git a/Source/Modulos/Almacenes/Views/uEditorAlmacenes.pas b/Source/Modulos/Almacenes/Views/uEditorAlmacenes.pas
index 3e90165..a1cad0d 100644
--- a/Source/Modulos/Almacenes/Views/uEditorAlmacenes.pas
+++ b/Source/Modulos/Almacenes/Views/uEditorAlmacenes.pas
@@ -12,7 +12,7 @@ uses
JvAppRegistryStorage, JvFormPlacement, ExtCtrls, uCustomView, uViewBase,
uViewBarraSeleccion, pngimage, uIEditorAlmacenes, uEditorGridBase,
JvComponentBase, uViewGridBase, uAlmacenesController, JvExComCtrls,
- JvStatusBar, uDAInterfaces;
+ JvStatusBar, uDAInterfaces, StdCtrls, TntStdCtrls, SpTBXEditors;
type
TfEditorAlmacenes = class(TfEditorGridBase, IEditorAlmacenes)
diff --git a/Source/Modulos/Almacenes/Views/uViewAlmacenes.dfm b/Source/Modulos/Almacenes/Views/uViewAlmacenes.dfm
index bc84382..b6c26b6 100644
--- a/Source/Modulos/Almacenes/Views/uViewAlmacenes.dfm
+++ b/Source/Modulos/Almacenes/Views/uViewAlmacenes.dfm
@@ -6,7 +6,8 @@ inherited frViewAlmacenes: TfrViewAlmacenes
inherited cxGrid: TcxGrid
Width = 770
Height = 365
- ExplicitTop = 102
+ ExplicitWidth = 770
+ ExplicitHeight = 365
inherited cxGridView: TcxGridDBTableView
DataController.KeyFieldNames = 'ID'
DataController.Summary.FooterSummaryItems = <
@@ -58,9 +59,12 @@ inherited frViewAlmacenes: TfrViewAlmacenes
end
inherited frViewFiltroBase1: TfrViewFiltroBase
Width = 770
+ ExplicitWidth = 770
inherited TBXDockablePanel1: TSpTBXDockablePanel
+ Width = 770
inherited dxLayoutControl1: TdxLayoutControl
Width = 770
+ ExplicitWidth = 770
inherited txtFiltroTodo: TcxTextEdit
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
@@ -74,29 +78,40 @@ inherited frViewAlmacenes: TfrViewAlmacenes
StyleHot.LookAndFeel.SkinName = ''
end
inherited edtFechaFinFiltro: TcxDateEdit
- Left = 474
+ Left = 338
+ Style.LookAndFeel.SkinName = ''
+ StyleDisabled.LookAndFeel.SkinName = ''
+ StyleFocused.LookAndFeel.SkinName = ''
+ StyleHot.LookAndFeel.SkinName = ''
+ ExplicitLeft = 338
+ end
+ inherited eLista: TcxComboBox
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
- ExplicitLeft = 474
end
end
inherited TBXAlignmentPanel1: TSpTBXDockablePanel
- Width = 770
+ Width = 760
+ ExplicitWidth = 770
inherited tbxBotones: TSpTBXToolbar
Width = 760
+ ExplicitWidth = 760
end
end
end
end
inherited pnlAgrupaciones: TSpTBXDockablePanel
Top = 467
- ExplicitWidth = 607
+ Width = 770
+ ExplicitTop = 467
inherited TBXAlignmentPanel1: TSpTBXDockablePanel
Width = 770
+ ExplicitWidth = 770
inherited TBXToolbar1: TSpTBXToolbar
- Width = 760
+ Width = 770
+ ExplicitWidth = 760
end
end
end
diff --git a/Source/Modulos/Almacenes/Views/uViewAlmacenes.pas b/Source/Modulos/Almacenes/Views/uViewAlmacenes.pas
index 586f7c1..36862b3 100644
--- a/Source/Modulos/Almacenes/Views/uViewAlmacenes.pas
+++ b/Source/Modulos/Almacenes/Views/uViewAlmacenes.pas
@@ -13,7 +13,10 @@ uses
dxPrnPg, dxBkgnd, dxWrap, dxPrnDev, dxPSCompsProvider, dxPSFillPatterns,
dxPSEdgePatterns, dxPSCore, dxPScxCommon, dxPScxGrid6Lnk,
cxGridCustomPopupMenu, cxGridPopupMenu, uViewFiltroBase, TB2Item, SpTBXItem,
- TB2Toolbar, SpTBXDkPanels, TB2Dock, dxPgsDlg, uDAInterfaces;
+ TB2Toolbar, SpTBXDkPanels, TB2Dock, dxPgsDlg, uDAInterfaces, cxLookAndFeels,
+ cxLookAndFeelPainters, dxPSPDFExportCore, dxPSPDFExport, cxDrawTextUtils,
+ dxPSPrVwStd, dxPSPrVwAdv, dxPScxEditorProducers, dxPScxExtEditorProducers,
+ dxPScxPageControlProducer, uCustomView, uViewBase;
type
IViewAlmacenes = interface(IViewGrid)
diff --git a/Source/Modulos/Articulos/Controller/uControllerDetallesArticulos.pas b/Source/Modulos/Articulos/Controller/uControllerDetallesArticulos.pas
index 61727ae..43febea 100644
--- a/Source/Modulos/Articulos/Controller/uControllerDetallesArticulos.pas
+++ b/Source/Modulos/Articulos/Controller/uControllerDetallesArticulos.pas
@@ -8,9 +8,10 @@ uses Classes, Variants, uDACDSDataTable, uDADataTable, uControllerDetallesBase,
const
CAMPO_REFERENCIA = 'REFERENCIA'; //Campo ficticio
CAMPO_REFERENCIA_PROVEEDOR = 'REFERENCIA_PROVEEDOR'; //Campo ficticio
+ CAMPO_REFERENCIA_ART_REEMPLAZADO = 'REFERENCIA_ART_REEMPLAZADO'; //Campo ficticio
type
- TEnumReferencia = (tCliente, tProveedor);
+ TEnumReferencia = (tCliente, tProveedor, tClienteReemplazo);
IControllerDetallesArticulos = interface(IControllerDetallesBase)
['{6E156796-DB1F-4727-BBFB-FBAEF2E5C098}']
@@ -34,6 +35,7 @@ type
procedure RellenarGenerales(ADetalles: IDAStronglyTypedDataTable; AArticulos: IBizArticulo); virtual;
procedure RellenarCantidad(ADetalles: IDAStronglyTypedDataTable; const ACantidad: Float); virtual;
procedure RellenarDetalle(ADetalles: IDAStronglyTypedDataTable; AArticulos: IBizArticulo; const ACantidad: Float = 1); virtual;
+ procedure RellenarDetalleReemplazo(ADetalles: IDAStronglyTypedDataTable; AArticulos: IBizArticulo; const ACantidad: Float = 1); virtual;
procedure Add(ADetalles: IDAStronglyTypedDataTable; AArticulos: IBizArticulo; const ACantidad: Float = 1); overload;
procedure AsignarController; virtual;
@@ -313,7 +315,7 @@ begin
ShowHourglassCursor;
try
case TipoReferencia of
- tCliente: AArticulo := FArticulosController.BuscarReferencia(Referencia, AClienteID);
+ tCliente, tClienteReemplazo: AArticulo := FArticulosController.BuscarReferencia(Referencia, AClienteID);
tProveedor: AArticulo := FArticulosController.BuscarReferenciaProveedor(Referencia, AClienteID)
end;
@@ -322,7 +324,10 @@ begin
AArticulo.DataTable.Active := True;
if (AArticulo.RecordCount > 0) then
begin
- RellenarDetalle(ADetalles, AArticulo, ACantidad);
+ case TipoReferencia of
+ tClienteReemplazo: RellenarDetalleReemplazo(ADetalles, AArticulo, ACantidad);
+ tCliente, tProveedor: RellenarDetalle(ADetalles, AArticulo, ACantidad);
+ end;
Result := True;
end;
end;
@@ -368,6 +373,28 @@ begin
end;
end;
+procedure TControllerDetallesArticulos.RellenarDetalleReemplazo(ADetalles: IDAStronglyTypedDataTable; AArticulos: IBizArticulo;
+ const ACantidad: Float);
+begin
+ if Assigned(ADetalles)
+ and Assigned(AArticulos) then
+ begin
+ BeginUpdate(ADetalles);
+ try
+ if not ADetalles.DataTable.Editing then
+ ADetalles.DataTable.Edit;
+
+ ADetalles.DataTable.FieldByName(CAMPO_ID_ARTICULOS_REEMPLAZADO).AsVariant := AArticulos.ID;
+ ADetalles.DataTable.FieldByName(CAMPO_REFERENCIA_ART_REEMPLAZADO).AsVariant := AArticulos.REFERENCIA;
+
+ if ADetalles.DataTable.Editing then
+ ADetalles.DataTable.Post;
+ finally
+ EndUpdate(ADetalles);
+ end;
+ end;
+end;
+
procedure TControllerDetallesArticulos.RellenarGenerales(ADetalles: IDAStronglyTypedDataTable; AArticulos: IBizArticulo);
begin
if Assigned(AArticulos) then
diff --git a/Source/Modulos/Articulos/Views/uViewDetallesArticulos.dfm b/Source/Modulos/Articulos/Views/uViewDetallesArticulos.dfm
index 421bb61..c260bc8 100644
--- a/Source/Modulos/Articulos/Views/uViewDetallesArticulos.dfm
+++ b/Source/Modulos/Articulos/Views/uViewDetallesArticulos.dfm
@@ -2,97 +2,51 @@ inherited frViewDetallesArticulos: TfrViewDetallesArticulos
ParentBiDiMode = False
OnShow = CustomViewShow
inherited ToolBar1: TToolBar
- Height = 95
- ExplicitHeight = 95
- inherited ToolButton3: TToolButton [1]
- Left = 109
- Wrap = False
- ExplicitLeft = 109
- end
- inherited ToolButton2: TToolButton [2]
- Left = 164
- ExplicitLeft = 164
- end
- inherited ToolButton13: TToolButton [3]
- Left = 278
- Top = 0
- Wrap = False
- ExplicitLeft = 278
- ExplicitTop = 0
- ExplicitHeight = 22
- end
- inherited ToolButton12: TToolButton [4]
- Top = 0
- ExplicitTop = 0
- end
- inherited ToolButton4: TToolButton [5]
- Top = 30
- ExplicitTop = 30
- end
- inherited ToolButton14: TToolButton [6]
- Top = 30
- ExplicitTop = 30
- end
- inherited ToolButton9: TToolButton [7]
- Top = 30
- Wrap = True
- ExplicitTop = 30
- end
- inherited FontName: TJvFontComboBox [8]
- Left = 0
- Top = 52
- ExplicitLeft = 0
- ExplicitTop = 52
- end
- inherited UpDown1: TUpDown [9]
- Left = 145
- Top = 52
- Width = 17
- ExplicitLeft = 145
- ExplicitTop = 52
- ExplicitWidth = 17
- end
- inherited ToolButton7: TToolButton
- Left = 162
- ExplicitLeft = 162
- end
- inherited ToolButton10: TToolButton [11]
- Left = 229
- Top = 52
- Wrap = True
- ExplicitLeft = 229
- ExplicitTop = 52
- end
- inherited ToolButton6: TToolButton [12]
- Top = 74
- ExplicitTop = 74
- end
- inherited FontSize: TEdit [13]
- Left = 66
- Top = 74
+ inherited FontSize: TEdit
Width = 42
- ExplicitLeft = 66
- ExplicitTop = 74
ExplicitWidth = 42
end
- inherited ToolButton11: TToolButton [14]
- Left = 108
- Top = 74
- ExplicitLeft = 108
- ExplicitTop = 74
+ inherited UpDown1: TUpDown
+ Left = 187
+ Width = 17
+ ExplicitLeft = 187
+ ExplicitWidth = 17
+ end
+ inherited ToolButton13: TToolButton
+ Left = 204
+ ExplicitLeft = 204
+ end
+ inherited ToolButton6: TToolButton
+ Left = 212
+ ExplicitLeft = 212
+ end
+ inherited ToolButton7: TToolButton
+ Left = 278
+ ExplicitLeft = 278
end
inherited ToolButton8: TToolButton
- Left = 249
- Top = 74
- ExplicitLeft = 249
- ExplicitTop = 74
+ Left = 345
+ ExplicitLeft = 345
+ end
+ inherited ToolButton12: TToolButton
+ Left = 428
+ ExplicitLeft = 428
+ end
+ inherited ToolButton9: TToolButton
+ Left = 436
+ ExplicitLeft = 436
+ end
+ inherited ToolButton10: TToolButton
+ Left = 581
+ ExplicitLeft = 581
+ end
+ inherited ToolButton11: TToolButton
+ Left = 706
+ ExplicitLeft = 706
end
end
inherited cxGrid: TcxGrid
- Top = 121
- Height = 183
ExplicitTop = 121
- ExplicitHeight = 178
inherited cxGridView: TcxGridDBTableView
inherited cxGridViewTIPO: TcxGridDBColumn
MinWidth = 69
@@ -181,7 +135,6 @@ inherited frViewDetallesArticulos: TfrViewDetallesArticulos
end
end
inherited TBXDock1: TSpTBXDock
- Top = 95
ExplicitTop = 100
inherited TBXToolbar1: TSpTBXToolbar
inherited TBXSubmenuItem1: TSpTBXSubmenuItem
diff --git a/Source/Modulos/Articulos/Views/uViewDetallesArticulos.pas b/Source/Modulos/Articulos/Views/uViewDetallesArticulos.pas
index b2cc837..6413760 100644
--- a/Source/Modulos/Articulos/Views/uViewDetallesArticulos.pas
+++ b/Source/Modulos/Articulos/Views/uViewDetallesArticulos.pas
@@ -39,8 +39,7 @@ type
procedure OnValidateReferencia(Sender: TObject; var DisplayValue: Variant; var ErrorText: TCaption; var Error: Boolean);
procedure OnValidateReferenciaProveedor(Sender: TObject; var DisplayValue: Variant; var ErrorText: TCaption; var Error: Boolean);
procedure CustomViewShow(Sender: TObject);
- procedure cxGridViewREFERENCIAPropertiesButtonClick(Sender: TObject;
- AButtonIndex: Integer);
+ procedure cxGridViewREFERENCIAPropertiesButtonClick(Sender: TObject; AButtonIndex: Integer);
procedure actBuscarArticuloExecute(Sender: TObject);
procedure actBuscarArticuloUpdate(Sender: TObject);
procedure actDetalleCopiarExecute(Sender: TObject);
diff --git a/Source/Modulos/Inventario/Views/Inventario_view.dproj b/Source/Modulos/Inventario/Views/Inventario_view.dproj
index cb85a01..a7cd117 100644
--- a/Source/Modulos/Inventario/Views/Inventario_view.dproj
+++ b/Source/Modulos/Inventario/Views/Inventario_view.dproj
@@ -47,11 +47,11 @@
MainSource
-
-
-
-
-
+
+
+
+
+
TfEditorDetalleReservas
diff --git a/Source/Modulos/Inventario/Views/uEditorInventario.dfm b/Source/Modulos/Inventario/Views/uEditorInventario.dfm
index 0c6069d..63711ca 100644
--- a/Source/Modulos/Inventario/Views/uEditorInventario.dfm
+++ b/Source/Modulos/Inventario/Views/uEditorInventario.dfm
@@ -106,7 +106,7 @@ inherited fEditorInventario: TfEditorInventario
end
end
inherited tbxFiltro: TSpTBXToolbar
- ExplicitWidth = 269
+ ExplicitWidth = 328
inherited TBXItem37: TSpTBXItem
Visible = False
end
@@ -115,10 +115,10 @@ inherited fEditorInventario: TfEditorInventario
ExplicitWidth = 669
end
inherited TBXTMain2: TSpTBXToolbar
- Left = 269
+ Left = 328
DockPos = 264
Visible = True
- ExplicitLeft = 269
+ ExplicitLeft = 328
ExplicitWidth = 113
object TBXItem38: TSpTBXItem
Action = actReservados
@@ -205,6 +205,7 @@ inherited fEditorInventario: TfEditorInventario
TabOrder = 0
ExplicitWidth = 669
inherited TBXDockablePanel1: TSpTBXDockablePanel
+ Width = 669
ExplicitWidth = 669
inherited dxLayoutControl1: TdxLayoutControl
Width = 669
@@ -247,21 +248,18 @@ inherited fEditorInventario: TfEditorInventario
end
end
inherited TBXAlignmentPanel1: TSpTBXDockablePanel
- Width = 669
- ExplicitWidth = 669
+ Width = 659
+ ExplicitWidth = 659
inherited tbxBotones: TSpTBXToolbar
Width = 659
ExplicitWidth = 659
end
end
end
- inherited dxLayoutLookAndFeelList1: TdxLayoutLookAndFeelList
- Left = 128
- Top = 8
- end
end
inherited pnlAgrupaciones: TSpTBXDockablePanel
Top = 393
+ Width = 669
TabOrder = 1
ExplicitTop = 393
ExplicitWidth = 669
@@ -269,8 +267,8 @@ inherited fEditorInventario: TfEditorInventario
Width = 669
ExplicitWidth = 669
inherited TBXToolbar1: TSpTBXToolbar
- Width = 659
- ExplicitWidth = 659
+ Width = 669
+ ExplicitWidth = 669
end
end
end
@@ -288,6 +286,9 @@ inherited fEditorInventario: TfEditorInventario
BuiltInReportLink = True
end
end
+ inherited dxPSEngineController1: TdxPSEngineController
+ Active = True
+ end
inherited cxViewGridPopupMenu: TcxGridPopupMenu
PopupMenus = <
item
diff --git a/Source/Modulos/Inventario/Views/uEditorInventario.pas b/Source/Modulos/Inventario/Views/uEditorInventario.pas
index e6bdfaa..860152b 100644
--- a/Source/Modulos/Inventario/Views/uEditorInventario.pas
+++ b/Source/Modulos/Inventario/Views/uEditorInventario.pas
@@ -12,7 +12,8 @@ uses
uViewBase, uViewBarraSeleccion, JvComponentBase, uEditorGridBase,
uIEditorInventario, uBizInventario, uViewGridBase, uInventarioController,
JvExComCtrls, JvStatusBar, uViewGrid2Niveles, JSDialog, uBizAlmacenes,
- uDAInterfaces, dxGDIPlusClasses, uEditorElegirAlmacenObraOperacion;
+ uDAInterfaces, dxGDIPlusClasses, uEditorElegirAlmacenObraOperacion, StdCtrls,
+ TntStdCtrls, SpTBXEditors;
type
TEnumSeleccion = (tAlmacen, tObra, tAlmacenObra);
diff --git a/Source/Modulos/Inventario/Views/uViewInventario.dfm b/Source/Modulos/Inventario/Views/uViewInventario.dfm
index f2e89db..ad97abc 100644
--- a/Source/Modulos/Inventario/Views/uViewInventario.dfm
+++ b/Source/Modulos/Inventario/Views/uViewInventario.dfm
@@ -173,6 +173,7 @@ inherited frViewInventario: TfrViewInventario
Width = 678
ExplicitWidth = 678
inherited TBXDockablePanel1: TSpTBXDockablePanel
+ Width = 678
ExplicitWidth = 678
inherited dxLayoutControl1: TdxLayoutControl
Width = 678
@@ -182,8 +183,6 @@ inherited frViewInventario: TfrViewInventario
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
- ExplicitWidth = 510
- Width = 510
end
inherited edtFechaIniFiltro: TcxDateEdit
Style.LookAndFeel.SkinName = ''
@@ -202,12 +201,10 @@ inherited frViewInventario: TfrViewInventario
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
- ExplicitWidth = 215
- Width = 215
end
end
inherited TBXAlignmentPanel1: TSpTBXDockablePanel
- Width = 678
+ Width = 668
ExplicitWidth = 678
inherited tbxBotones: TSpTBXToolbar
Width = 668
@@ -218,13 +215,14 @@ inherited frViewInventario: TfrViewInventario
end
inherited pnlAgrupaciones: TSpTBXDockablePanel
Top = 581
+ Width = 678
ExplicitTop = 581
ExplicitWidth = 678
inherited TBXAlignmentPanel1: TSpTBXDockablePanel
Width = 678
ExplicitWidth = 678
inherited TBXToolbar1: TSpTBXToolbar
- Width = 668
+ Width = 678
ExplicitWidth = 668
end
end
diff --git a/Source/Modulos/Inventario/Views/uViewInventario.pas b/Source/Modulos/Inventario/Views/uViewInventario.pas
index d9b5d88..416aa1d 100644
--- a/Source/Modulos/Inventario/Views/uViewInventario.pas
+++ b/Source/Modulos/Inventario/Views/uViewInventario.pas
@@ -15,7 +15,10 @@ uses
cxButtonEdit, cxGridCustomPopupMenu, cxGridPopupMenu, uViewGrid,
uBizInventario, cxSpinEdit, uViewFiltroBase, TB2Item, SpTBXItem,
TB2Toolbar, SpTBXDkPanels, TB2Dock, dxPgsDlg, cxCurrencyEdit, uDAInterfaces,
- cxContainer, cxMaskEdit, cxDropDownEdit;
+ cxContainer, cxMaskEdit, cxDropDownEdit, cxLookAndFeels,
+ cxLookAndFeelPainters, dxPSPDFExportCore, dxPSPDFExport, cxDrawTextUtils,
+ dxPSPrVwStd, dxPSPrVwAdv, dxPScxEditorProducers, dxPScxExtEditorProducers,
+ dxPScxPageControlProducer, uCustomView, uViewBase;
// uBizAlmacenes, uBizObras;
type
diff --git a/Source/Modulos/Pedidos de cliente/Controller/PedidosCliente_controller.dproj b/Source/Modulos/Pedidos de cliente/Controller/PedidosCliente_controller.dproj
index 11075d0..59c3a69 100644
--- a/Source/Modulos/Pedidos de cliente/Controller/PedidosCliente_controller.dproj
+++ b/Source/Modulos/Pedidos de cliente/Controller/PedidosCliente_controller.dproj
@@ -49,23 +49,23 @@
MainSource
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
diff --git a/Source/Modulos/Pedidos de cliente/Controller/PedidosCliente_controller.drc b/Source/Modulos/Pedidos de cliente/Controller/PedidosCliente_controller.drc
index 6536300..c1ddfc2 100644
--- a/Source/Modulos/Pedidos de cliente/Controller/PedidosCliente_controller.drc
+++ b/Source/Modulos/Pedidos de cliente/Controller/PedidosCliente_controller.drc
@@ -12,5 +12,5 @@ STRINGTABLE
BEGIN
END
-/* C:\Codigo Noviseda\Source\Modulos\Pedidos de cliente\Controller\PedidosCliente_controller.res */
-/* C:\Codigo Noviseda\Source\Modulos\Pedidos de cliente\Controller\PedidosCliente_controller.drf */
+/* C:\Codigo noviseda\Source\Modulos\Pedidos de cliente\Controller\PedidosCliente_controller.res */
+/* C:\DOCUME~1\Usuario\CONFIG~1\Temp\dtf1D6.tmp */
diff --git a/Source/Modulos/Pedidos de cliente/Controller/PedidosCliente_controller.res b/Source/Modulos/Pedidos de cliente/Controller/PedidosCliente_controller.res
index 1641339..8b251f3 100644
Binary files a/Source/Modulos/Pedidos de cliente/Controller/PedidosCliente_controller.res and b/Source/Modulos/Pedidos de cliente/Controller/PedidosCliente_controller.res differ
diff --git a/Source/Modulos/Pedidos de cliente/Controller/uDetallesPedidoClienteController.pas b/Source/Modulos/Pedidos de cliente/Controller/uDetallesPedidoClienteController.pas
index 2ef8e00..c7701f6 100644
--- a/Source/Modulos/Pedidos de cliente/Controller/uDetallesPedidoClienteController.pas
+++ b/Source/Modulos/Pedidos de cliente/Controller/uDetallesPedidoClienteController.pas
@@ -14,6 +14,8 @@ type
procedure DesglosarPorteDetalles(ImportePorte: Currency; ADetalles: IDAStronglyTypedDataTable);
function DarTotalPorteTotal(ADetalles: IDAStronglyTypedDataTable): Double;
procedure ModificarCantidadColores(ADetalles: IDAStronglyTypedDataTable);
+ function ArticulosPendientes(const ID : Integer): IBizPedidoClienteArticulosPend;
+ function ArtColoresPendientes(const ID : Integer): IBizPedidoClienteArtColoresPend;
end;
TDetallesPedidoClienteController = class(TControllerDetallesArticulos, IDetallesPedidoClienteController)
@@ -34,14 +36,19 @@ type
procedure AnadirArticulos(ADetalles: IDAStronglyTypedDataTable; ACliente: IBizCliente; const ANuevaFila :Boolean = True; const ACantidad: Integer = 1); overload;
procedure ActualizarDetalles(ADetalles: IDAStronglyTypedDataTable; ACliente: IBizCliente); overload;
procedure ModificarCantidadColores(ADetalles: IDAStronglyTypedDataTable);
+
+ function ArticulosPendientes(const ID : Integer): IBizPedidoClienteArticulosPend;
+ function ArtColoresPendientes(const ID : Integer): IBizPedidoClienteArtColoresPend;
+
constructor Create; override;
destructor Destroy; override;
end;
implementation
-uses Dialogs, Controls, uDialogUtils, Variants, uControllerDetallesBase, uEditorColores,
- uDataModulePedidosCliente, uArticulosPedidoClienteController, uDataTableUtils, uCalculosUtils;
+uses Dialogs, cxControls, uDAInterfaces, Controls, uDialogUtils, Variants, uControllerDetallesBase, uEditorColores,
+ uDataModulePedidosCliente, uArticulosPedidoClienteController, uDataTableUtils, uCalculosUtils,
+ schPedidosClienteClient_Intf;
{ TDetallesPedidoClienteController }
@@ -87,6 +94,38 @@ begin
end;
end;
+function TDetallesPedidoClienteController.ArtColoresPendientes(const ID: Integer): IBizPedidoClienteArtColoresPend;
+var
+ Condicion: TDAWhereExpression;
+
+begin
+ ShowHourglassCursor;
+ try
+ Result := FDataModule.GetArtColoresPendientes;
+
+ with Result.DataTable.DynamicWhere do
+ begin
+ // (ID_PEDIDO >= ID)
+ Condicion := NewBinaryExpression(NewField('', fld_PedidoCliente_Art_Colores_PendientesID_PEDIDO), NewConstant(ID, datInteger), dboEqual);
+
+ if IsEmpty then
+ Expression := Condicion
+ else
+ Expression := NewBinaryExpression(Expression, Condicion, dboAnd);
+ end;
+
+ finally
+ HideHourglassCursor;
+ end;
+
+end;
+
+function TDetallesPedidoClienteController.ArticulosPendientes(
+ const ID: Integer): IBizPedidoClienteArticulosPend;
+begin
+ Result := FDataModule.GetArticulosPendientes(ID);
+end;
+
procedure TDetallesPedidoClienteController.AsignarController;
begin
FArticulosController := TArticulosPedidoClienteController.Create;
diff --git a/Source/Modulos/Pedidos de cliente/Controller/uPedidosClienteController.pas b/Source/Modulos/Pedidos de cliente/Controller/uPedidosClienteController.pas
index fb84df1..4b78e28 100644
--- a/Source/Modulos/Pedidos de cliente/Controller/uPedidosClienteController.pas
+++ b/Source/Modulos/Pedidos de cliente/Controller/uPedidosClienteController.pas
@@ -59,8 +59,6 @@ type
const ADireccionEMail: String = ''; const AAsuntoEMail: String = '';
const ATextoEMail: String = ''): Boolean;
- function ArticulosPendientes(const ID : Integer): IBizPedidoClienteArticulosPend;
-
function DarListaAnosPedidos: TStringList;
procedure FiltrarAno(APedido: IBizPedidoCliente; AWhereDataTable: String; const Ano: String);
end;
@@ -133,8 +131,6 @@ type
const ADireccionEMail: String = ''; const AAsuntoEMail: String = '';
const ATextoEMail: String = ''): Boolean;
- function ArticulosPendientes(const ID : Integer): IBizPedidoClienteArticulosPend;
-
function DarListaAnosPedidos: TStringList;
procedure FiltrarAno(APedido: IBizPedidoCliente; AWhereDataTable: String; const Ano: String);
end;
@@ -160,12 +156,6 @@ begin
Result := True;
end;
-function TPedidosClienteController.ArticulosPendientes(
- const ID: Integer): IBizPedidoClienteArticulosPend;
-begin
- Result := FDataModule.GetArticulosPendientes(ID);
-end;
-
procedure TPedidosClienteController.AsignarDataModule;
begin
FDataModule := TDataModulePedidosCliente.Create(Nil);
diff --git a/Source/Modulos/Pedidos de cliente/Data/PedidosCliente_data.dproj b/Source/Modulos/Pedidos de cliente/Data/PedidosCliente_data.dproj
index 4f6beab..1b372df 100644
--- a/Source/Modulos/Pedidos de cliente/Data/PedidosCliente_data.dproj
+++ b/Source/Modulos/Pedidos de cliente/Data/PedidosCliente_data.dproj
@@ -49,7 +49,7 @@
MainSource
-
+
diff --git a/Source/Modulos/Pedidos de cliente/Data/PedidosCliente_data.drc b/Source/Modulos/Pedidos de cliente/Data/PedidosCliente_data.drc
index 3faf27c..5298d40 100644
--- a/Source/Modulos/Pedidos de cliente/Data/PedidosCliente_data.drc
+++ b/Source/Modulos/Pedidos de cliente/Data/PedidosCliente_data.drc
@@ -12,6 +12,6 @@ STRINGTABLE
BEGIN
END
-/* C:\Codigo Noviseda\Source\Modulos\Pedidos de cliente\Data\uDataModulePedidosCliente.DFM */
-/* C:\Codigo Noviseda\Source\Modulos\Pedidos de cliente\Data\PedidosCliente_data.res */
-/* C:\Codigo Noviseda\Source\Modulos\Pedidos de cliente\Data\PedidosCliente_data.drf */
+/* C:\Codigo noviseda\Source\Modulos\Pedidos de cliente\Data\uDataModulePedidosCliente.dfm */
+/* C:\Codigo noviseda\Source\Modulos\Pedidos de cliente\Data\PedidosCliente_data.res */
+/* C:\DOCUME~1\Usuario\CONFIG~1\Temp\dtf1D4.tmp */
diff --git a/Source/Modulos/Pedidos de cliente/Data/PedidosCliente_data.res b/Source/Modulos/Pedidos de cliente/Data/PedidosCliente_data.res
index 1641339..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 03e2d8e..161c943 100644
--- a/Source/Modulos/Pedidos de cliente/Data/uDataModulePedidosCliente.dfm
+++ b/Source/Modulos/Pedidos de cliente/Data/uDataModulePedidosCliente.dfm
@@ -1,8 +1,7 @@
-object DataModulePedidosCliente: TDataModulePedidosCliente
- OldCreateOrder = True
+inherited DataModulePedidosCliente: TDataModulePedidosCliente
OnCreate = DAClientDataModuleCreate
- Height = 396
- Width = 813
+ Height = 550
+ Width = 772
object RORemoteService: TRORemoteService
Message = dmConexion.ROMessage
Channel = dmConexion.ROChannel
@@ -35,6 +34,7 @@ object DataModulePedidosCliente: TDataModulePedidosCliente
DataType = datString
Size = 255
DisplayLabel = 'Nombre del cliente'
+ ServerAutoRefresh = True
DictionaryEntry = 'PedidosCliente_NOMBRE'
end
item
@@ -387,21 +387,21 @@ object DataModulePedidosCliente: TDataModulePedidosCliente
end
item
Name = 'CANTIDAD_PED'
- DataType = datInteger
+ DataType = datFloat
DisplayLabel = 'Cantidad en pedido'
Alignment = taRightJustify
DictionaryEntry = 'PedidoCliente_Articulos_Pendientes_CANTIDAD_PED'
end
item
Name = 'CANTIDAD_ALB'
- DataType = datInteger
+ DataType = datFloat
DisplayLabel = 'Cantidad en albaranes'
Alignment = taRightJustify
DictionaryEntry = 'PedidoCliente_Articulos_Pendientes_CANTIDAD_ALB'
end
item
Name = 'CANTIDAD_PENDIENTE'
- DataType = datInteger
+ DataType = datFloat
DisplayLabel = 'Cantidad pendiente'
Alignment = taRightJustify
DictionaryEntry = 'PedidoCliente_Articulos_Pendientes_CANTIDAD_PENDIENTE'
@@ -415,6 +415,7 @@ object DataModulePedidosCliente: TDataModulePedidosCliente
end>
MasterMappingMode = mmDataRequest
StreamingOptions = [soDisableEventsWhileStreaming]
+ RemoteDataAdapter = rda_PedidosCliente
LogicalName = 'PedidoCliente_Articulos_Pendientes'
IndexDefs = <>
Left = 208
@@ -524,62 +525,88 @@ object DataModulePedidosCliente: TDataModulePedidosCliente
item
Name = 'ID'
DataType = datAutoInc
- GeneratorName = 'GEN_PEDIDOS_CLI_DETALLES_ID'
+ GeneratorName = 'GEN_PEDIDOS_CLI_DET_COLOR_ID'
Required = True
- DictionaryEntry = 'PedidosCliente_Detalles_ID'
+ DictionaryEntry = 'PedidosCliente_Detalle_Color_ID'
InPrimaryKey = True
end
item
Name = 'ID_DETALLE'
DataType = datInteger
+ DisplayLabel = 'PedidosCliente_Detalle_Color_ID_DETALLE'
+ DictionaryEntry = 'PedidosCliente_Detalle_Color_ID_DETALLE'
end
item
Name = 'COLOR1'
DataType = datInteger
+ DisplayLabel = 'PedidosCliente_Detalle_Color_COLOR1'
+ DictionaryEntry = 'PedidosCliente_Detalle_Color_COLOR1'
end
item
Name = 'COLOR2'
DataType = datInteger
+ DisplayLabel = 'PedidosCliente_Detalle_Color_COLOR2'
+ DictionaryEntry = 'PedidosCliente_Detalle_Color_COLOR2'
end
item
Name = 'COLOR3'
DataType = datInteger
+ DisplayLabel = 'PedidosCliente_Detalle_Color_COLOR3'
+ DictionaryEntry = 'PedidosCliente_Detalle_Color_COLOR3'
end
item
Name = 'COLOR4'
DataType = datInteger
+ DisplayLabel = 'PedidosCliente_Detalle_Color_COLOR4'
+ DictionaryEntry = 'PedidosCliente_Detalle_Color_COLOR4'
end
item
Name = 'COLOR5'
DataType = datInteger
+ DisplayLabel = 'PedidosCliente_Detalle_Color_COLOR5'
+ DictionaryEntry = 'PedidosCliente_Detalle_Color_COLOR5'
end
item
Name = 'COLOR6'
DataType = datInteger
+ DisplayLabel = 'PedidosCliente_Detalle_Color_COLOR6'
+ DictionaryEntry = 'PedidosCliente_Detalle_Color_COLOR6'
end
item
Name = 'COLOR7'
DataType = datInteger
+ DisplayLabel = 'PedidosCliente_Detalle_Color_COLOR7'
+ DictionaryEntry = 'PedidosCliente_Detalle_Color_COLOR7'
end
item
Name = 'COLOR8'
DataType = datInteger
+ DisplayLabel = 'PedidosCliente_Detalle_Color_COLOR8'
+ DictionaryEntry = 'PedidosCliente_Detalle_Color_COLOR8'
end
item
Name = 'COLOR9'
DataType = datInteger
+ DisplayLabel = 'PedidosCliente_Detalle_Color_COLOR9'
+ DictionaryEntry = 'PedidosCliente_Detalle_Color_COLOR9'
end
item
Name = 'COLOR10'
DataType = datInteger
+ DisplayLabel = 'PedidosCliente_Detalle_Color_COLOR10'
+ DictionaryEntry = 'PedidosCliente_Detalle_Color_COLOR10'
end
item
Name = 'COLOR11'
DataType = datInteger
+ DisplayLabel = 'PedidosCliente_Detalle_Color_COLOR11'
+ DictionaryEntry = 'PedidosCliente_Detalle_Color_COLOR11'
end
item
Name = 'COLOR12'
DataType = datInteger
+ DisplayLabel = 'PedidosCliente_Detalle_Color_COLOR12'
+ DictionaryEntry = 'PedidosCliente_Detalle_Color_COLOR12'
end>
Params = <>
MasterMappingMode = mmWhere
@@ -599,4 +626,78 @@ object DataModulePedidosCliente: TDataModulePedidosCliente
Left = 472
Top = 48
end
+ object tbl_PedidoCliente_Art_Colores_Pendientes: TDAMemDataTable
+ RemoteUpdatesOptions = []
+ Fields = <
+ item
+ Name = 'ID_PEDIDO'
+ DataType = datInteger
+ end
+ item
+ Name = 'ID_ARTICULO'
+ DataType = datInteger
+ end
+ item
+ Name = 'COLOR1'
+ DataType = datLargeInt
+ end
+ item
+ Name = 'COLOR2'
+ DataType = datLargeInt
+ end
+ item
+ Name = 'COLOR3'
+ DataType = datLargeInt
+ end
+ item
+ Name = 'COLOR4'
+ DataType = datLargeInt
+ end
+ item
+ Name = 'COLOR5'
+ DataType = datLargeInt
+ end
+ item
+ Name = 'COLOR6'
+ DataType = datLargeInt
+ end
+ item
+ Name = 'COLOR7'
+ DataType = datLargeInt
+ end
+ item
+ Name = 'COLOR8'
+ DataType = datLargeInt
+ end
+ item
+ Name = 'COLOR9'
+ DataType = datLargeInt
+ end
+ item
+ Name = 'COLOR10'
+ DataType = datLargeInt
+ end
+ item
+ Name = 'COLOR11'
+ DataType = datLargeInt
+ end
+ item
+ Name = 'COLOR12'
+ DataType = datLargeInt
+ end>
+ Params = <>
+ MasterMappingMode = mmDataRequest
+ StreamingOptions = [soDisableEventsWhileStreaming, soDisableFiltering]
+ RemoteDataAdapter = rda_PedidosCliente
+ LogicalName = 'PedidoCliente_Art_Colores_Pendientes'
+ IndexDefs = <>
+ Left = 208
+ Top = 320
+ end
+ object ds_PedidoCliente_Art_Colores_Pendientes: TDADataSource
+ DataSet = tbl_PedidoCliente_Art_Colores_Pendientes.Dataset
+ DataTable = tbl_PedidoCliente_Art_Colores_Pendientes
+ Left = 208
+ Top = 384
+ end
end
diff --git a/Source/Modulos/Pedidos de cliente/Data/uDataModulePedidosCliente.dfm.bak b/Source/Modulos/Pedidos de cliente/Data/uDataModulePedidosCliente.dfm.bak
index 3e9daa4..8452d23 100644
--- a/Source/Modulos/Pedidos de cliente/Data/uDataModulePedidosCliente.dfm.bak
+++ b/Source/Modulos/Pedidos de cliente/Data/uDataModulePedidosCliente.dfm.bak
@@ -1,19 +1,32 @@
object DataModulePedidosCliente: TDataModulePedidosCliente
+ Left = 0
+ Top = 0
+ ClientHeight = 362
+ ClientWidth = 805
+ Color = clBtnFace
+ Font.Charset = DEFAULT_CHARSET
+ Font.Color = clWindowText
+ Font.Height = -11
+ Font.Name = 'Tahoma'
+ Font.Style = []
OldCreateOrder = True
OnCreate = DAClientDataModuleCreate
- Height = 377
- Width = 649
+ PixelsPerInch = 96
+ TextHeight = 13
object RORemoteService: TRORemoteService
+ Message = dmConexion.ROMessage
+ Channel = dmConexion.ROChannel
ServiceName = 'srvPedidosCliente'
Left = 40
Top = 24
end
- object tbl_PedidosCliente: TDACDSDataTable
+ object tbl_PedidosCliente: TDAMemDataTable
RemoteUpdatesOptions = []
Fields = <
item
Name = 'ID'
DataType = datAutoInc
+ GeneratorName = 'GEN_PEDIDOS_CLI_ID'
DictionaryEntry = 'PedidosCliente_ID'
InPrimaryKey = True
end
@@ -61,6 +74,12 @@ object DataModulePedidosCliente: TDataModulePedidosCliente
DisplayLabel = 'Fecha pedido'
DictionaryEntry = 'PedidosCliente_FECHA_PEDIDO'
end
+ item
+ Name = 'ID_DIRECCION'
+ DataType = datInteger
+ DisplayLabel = 'PedidosCliente_ID_DIRECCION'
+ DictionaryEntry = 'PedidosCliente_ID_DIRECCION'
+ end
item
Name = 'CALLE'
DataType = datString
@@ -164,6 +183,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
@@ -197,6 +228,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
@@ -209,16 +247,15 @@ object DataModulePedidosCliente: TDataModulePedidosCliente
DictionaryEntry = 'PedidosCliente_FECHA_PREVISTA_ENVIO'
end
item
- Name = 'NUM_COPIAS'
- DataType = datInteger
- end
- item
- Name = 'NUM_CORREOS'
- DataType = datInteger
+ Name = 'DATOS_BANCARIOS'
+ DataType = datString
+ Size = 255
+ DisplayLabel = 'PedidosCliente_DATOS_BANCARIOS'
+ DictionaryEntry = 'PedidosCliente_DATOS_BANCARIOS'
end>
Params = <>
- MasterMappingMode = mmDataRequest
StreamingOptions = [soDisableEventsWhileStreaming]
+ RemoteDataAdapter = rda_PedidosCliente
LogicalName = 'PedidosCliente'
IndexDefs = <>
Left = 208
@@ -230,12 +267,13 @@ object DataModulePedidosCliente: TDataModulePedidosCliente
Left = 208
Top = 48
end
- object tbl_PedidosCliente_Detalles: TDACDSDataTable
+ object tbl_PedidosCliente_Detalles: TDAMemDataTable
RemoteUpdatesOptions = []
Fields = <
item
Name = 'ID'
DataType = datAutoInc
+ GeneratorName = 'GEN_PEDIDOS_CLI_DETALLES_ID'
Required = True
DictionaryEntry = 'PedidosCliente_Detalles_ID'
InPrimaryKey = True
@@ -256,6 +294,11 @@ object DataModulePedidosCliente: TDataModulePedidosCliente
Size = 10
DictionaryEntry = 'PedidosCliente_Detalles_TIPO_DETALLE'
end
+ item
+ Name = 'ID_ARTICULO'
+ DataType = datInteger
+ DictionaryEntry = 'PedidosCliente_Detalles_ID_ARTICULO'
+ end
item
Name = 'REFERENCIA'
DataType = datString
@@ -264,9 +307,11 @@ object DataModulePedidosCliente: TDataModulePedidosCliente
DictionaryEntry = 'PedidosCliente_Detalles_REFERENCIA'
end
item
- Name = 'ID_ARTICULO'
- DataType = datInteger
- DictionaryEntry = 'PedidosCliente_Detalles_ID_ARTICULO'
+ Name = 'REFERENCIA_PROVEEDOR'
+ DataType = datString
+ Size = 255
+ DisplayLabel = 'Ref. proveedor'
+ DictionaryEntry = 'PedidosCliente_Detalles_REFERENCIA_PROVEEDOR'
end
item
Name = 'CONCEPTO'
@@ -276,9 +321,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'
@@ -288,11 +334,10 @@ object DataModulePedidosCliente: TDataModulePedidosCliente
DictionaryEntry = 'PedidosCliente_Detalles_IMPORTE_UNIDAD'
end
item
- Name = 'IMPORTE_TOTAL'
- DataType = datCurrency
- DisplayLabel = 'Importe total'
- Alignment = taRightJustify
- DictionaryEntry = 'PedidosCliente_Detalles_IMPORTE_TOTAL'
+ Name = 'UNIDAD_MEDIDA'
+ DataType = datString
+ DisplayLabel = 'PedidosCliente_Detalles_UNIDAD_MEDIDA'
+ DictionaryEntry = 'PedidosCliente_Detalles_UNIDAD_MEDIDA'
end
item
Name = 'DESCUENTO'
@@ -309,28 +354,24 @@ object DataModulePedidosCliente: TDataModulePedidosCliente
Alignment = taRightJustify
DictionaryEntry = 'PedidosCliente_Detalles_IMPORTE_PORTE'
end
+ item
+ Name = 'IMPORTE_TOTAL'
+ DataType = datCurrency
+ DisplayLabel = 'Importe total'
+ Alignment = taRightJustify
+ DictionaryEntry = 'PedidosCliente_Detalles_IMPORTE_TOTAL'
+ end
item
Name = 'VISIBLE'
DataType = datInteger
DictionaryEntry = 'PedidosCliente_Detalles_VISIBLE'
- end
- item
- Name = 'REFERENCIA_PROVEEDOR'
- DataType = datString
- Size = 255
- DisplayLabel = 'Ref. proveedor'
- DictionaryEntry = 'PedidosCliente_Detalles_REFERENCIA_PROVEEDOR'
- end>
- Params = <
- item
- Name = 'ID_PEDIDO'
- DataType = datInteger
- Value = ''
- ParamType = daptInput
end>
+ Params = <>
+ MasterMappingMode = mmWhere
MasterParamsMappings.Strings = (
'ID_PEDIDO=ID')
StreamingOptions = [soDisableEventsWhileStreaming]
+ RemoteDataAdapter = rda_PedidosCliente
MasterSource = ds_PedidosCliente
MasterFields = 'ID'
DetailFields = 'ID_PEDIDO'
@@ -345,7 +386,7 @@ object DataModulePedidosCliente: TDataModulePedidosCliente
Left = 329
Top = 48
end
- object tbl_PedidoCliente_Articulos_Pendientes: TDACDSDataTable
+ object tbl_PedidoCliente_Articulos_Pendientes: TDAMemDataTable
RemoteUpdatesOptions = []
Fields = <
item
@@ -395,7 +436,7 @@ object DataModulePedidosCliente: TDataModulePedidosCliente
Left = 208
Top = 256
end
- object tbl_PedidoCliente_ArticulosPendientesPedirAProv: TDACDSDataTable
+ object tbl_PedidoCliente_ArticulosPendientesPedirAProv: TDAMemDataTable
RemoteUpdatesOptions = []
Fields = <
item
@@ -450,7 +491,7 @@ object DataModulePedidosCliente: TDataModulePedidosCliente
Left = 440
Top = 256
end
- object tbl_ListaAnosPedidos: TDACDSDataTable
+ object tbl_ListaAnosPedidos: TDAMemDataTable
RemoteUpdatesOptions = []
Fields = <
item
@@ -461,16 +502,17 @@ object DataModulePedidosCliente: TDataModulePedidosCliente
Params = <>
MasterMappingMode = mmDataRequest
StreamingOptions = [soDisableEventsWhileStreaming]
+ 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
@@ -486,4 +528,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 e9292bb..abaab4f 100644
--- a/Source/Modulos/Pedidos de cliente/Data/uDataModulePedidosCliente.pas
+++ b/Source/Modulos/Pedidos de cliente/Data/uDataModulePedidosCliente.pas
@@ -3,17 +3,18 @@ unit uDataModulePedidosCliente;
interface
uses
- DB, Classes, SysUtils, uDADesigntimeCall,
+ DB, Classes, SysUtils, uDADesigntimeCall, uROTypes,
uRORemoteService, uROClient, uROBinMessage, uDAScriptingProvider,
- uDAMemDataTable, uROWinInetHttpChannel, uDADataTable, uDABINAdapter,
+ uDACDSDataTable, uROWinInetHttpChannel, uDADataTable, uDABINAdapter,
- uDAClientDataModule, uROTypes, uIntegerListUtils,
uIDataModulePedidosCliente, uBizPedidosCliente, uBizDetallesPedidoCliente, uBizDetalleColoresPedidoCliente,
- uIDataModulePedidosClienteReport, uDADataAdapter, uDARemoteDataAdapter,
- uDADataStreamer, uDABin2DataStreamer, uDAInterfaces, uDACDSDataTable;
+ uIDataModulePedidosClienteReport, uDataModuleBase, uDABin2DataStreamer, uDAMemDataTable,
+ uDAInterfaces, uDADataStreamer, uDARemoteDataAdapter, uIntegerListUtils,
+ uDADataAdapter;
+
type
- TDataModulePedidosCliente = class(TDAClientDataModule, IDataModulePedidosCliente, IDataModulePedidosClienteReport)
+ TDataModulePedidosCliente = class(TDataModuleBase, IDataModulePedidosCliente, IDataModulePedidosClienteReport)
RORemoteService: TRORemoteService;
tbl_PedidosCliente: TDAMemDataTable;
ds_PedidosCliente: TDADataSource;
@@ -29,6 +30,8 @@ type
rda_PedidosCliente: TDARemoteDataAdapter;
tbl_PedidosCliente_Detalle_Color: TDAMemDataTable;
ds_PedidosCliente_Detalle_Color: TDADataSource;
+ tbl_PedidoCliente_Art_Colores_Pendientes: TDAMemDataTable;
+ ds_PedidoCliente_Art_Colores_Pendientes: TDADataSource;
procedure DAClientDataModuleCreate(Sender: TObject);
private
@@ -45,6 +48,7 @@ type
function GetArticulosPendientesPedirAProv(const IDPedido: Integer): IBizPedidoClienteArticulosPendientesPedirAProv;
function GetArticulosPendientes(const IDPedido: Integer): IBizPedidoClienteArticulosPend;
+ function GetArtColoresPendientes: IBizPedidoClienteArtColoresPend;
// Report
function GetRptPedidos(const ListaID: TIntegerList): Binary;
@@ -150,22 +154,34 @@ begin
end;
end;
+function TDataModulePedidosCliente.GetArtColoresPendientes: IBizPedidoClienteArtColoresPend;
+var
+ AArtColores : TDAMemDataTable;
+begin
+ ShowHourglassCursor;
+ try
+ AArtColores := CloneDataTable(tbl_PedidoCliente_Art_Colores_Pendientes);
+ AArtColores.BusinessRulesID := BIZ_CLIENT_ARTCOLORES_PEND_PEDIDO_CLIENTE;
+ Result := (AArtColores as IBizPedidoClienteArtColoresPend);
+ finally
+ HideHourglassCursor;
+ end;
+end;
+
function TDataModulePedidosCliente.GetArticulosPendientes(
const IDPedido: Integer): IBizPedidoClienteArticulosPend;
var
AArticulos : TDAMemDataTable;
begin
-{
ShowHourglassCursor;
try
- AArticulos := _CloneDataTable(tbl_PedidoCliente_Articulos_Pendientes);
+ AArticulos := CloneDataTable(tbl_PedidoCliente_Articulos_Pendientes);
AArticulos.BusinessRulesID := BIZ_CLIENT_ARTICULOS_PEND_PEDIDO_CLIENTE;
AArticulos.ParamByName('ID_PEDIDO').AsInteger := IDPedido;
Result := (AArticulos as IBizPedidoClienteArticulosPend);
finally
HideHourglassCursor;
end;
- }
end;
function TDataModulePedidosCliente.GetArticulosPendientesPedirAProv(
@@ -217,13 +233,12 @@ begin
ShowHourglassCursor;
try
APedido := CloneDataTable(tbl_PedidosCliente);
+ AsignarClaseNegocio(APedido);
// EL CAMPO REFERENCIA Y SITUACIÓN TIENEN QUE SER AUTOREFRESH!!!!!
APedido.FieldByName(fld_PedidosClienteREFERENCIA).ServerAutoRefresh := TRUE;
APedido.FieldByName(fld_PedidosClienteSITUACION).ServerAutoRefresh := TRUE;
- AsignarClaseNegocio(APedido);
-
with TBizPedidoCliente(APedido.BusinessEventsObj) do
begin
Detalles := _GetDetalles;
diff --git a/Source/Modulos/Pedidos de cliente/Model/Data/uIDataModulePedidosCliente.pas b/Source/Modulos/Pedidos de cliente/Model/Data/uIDataModulePedidosCliente.pas
index 9d2dbfa..4ac3da5 100644
--- a/Source/Modulos/Pedidos de cliente/Model/Data/uIDataModulePedidosCliente.pas
+++ b/Source/Modulos/Pedidos de cliente/Model/Data/uIDataModulePedidosCliente.pas
@@ -13,6 +13,7 @@ type
function GetItem(const ID : Integer) : IBizPedidoCliente;
function NewItem : IBizPedidoCliente;
function GetArticulosPendientes(const IDPedido: Integer): IBizPedidoClienteArticulosPend;
+ function GetArtColoresPendientes: IBizPedidoClienteArtColoresPend;
function GetArticulosPendientesPedirAProv(const IDPedido: Integer): IBizPedidoClienteArticulosPendientesPedirAProv;
end;
diff --git a/Source/Modulos/Pedidos de cliente/Model/PedidosCliente_model.drc b/Source/Modulos/Pedidos de cliente/Model/PedidosCliente_model.drc
index 32dd3e9..2426c6e 100644
--- a/Source/Modulos/Pedidos de cliente/Model/PedidosCliente_model.drc
+++ b/Source/Modulos/Pedidos de cliente/Model/PedidosCliente_model.drc
@@ -12,5 +12,5 @@ STRINGTABLE
BEGIN
END
-/* C:\Codigo Noviseda\Source\Modulos\Pedidos de cliente\Model\PedidosCliente_model.res */
-/* C:\Codigo Noviseda\Source\Modulos\Pedidos de cliente\Model\PedidosCliente_model.drf */
+/* C:\Codigo noviseda\Source\Modulos\Pedidos de cliente\Model\PedidosCliente_model.res */
+/* C:\DOCUME~1\Usuario\CONFIG~1\Temp\dtf1D2.tmp */
diff --git a/Source/Modulos/Pedidos de cliente/Model/PedidosCliente_model.res b/Source/Modulos/Pedidos de cliente/Model/PedidosCliente_model.res
index 1641339..8b251f3 100644
Binary files a/Source/Modulos/Pedidos de cliente/Model/PedidosCliente_model.res and b/Source/Modulos/Pedidos de cliente/Model/PedidosCliente_model.res differ
diff --git a/Source/Modulos/Pedidos de cliente/Model/schPedidosClienteClient_Intf.pas b/Source/Modulos/Pedidos de cliente/Model/schPedidosClienteClient_Intf.pas
index cb5490b..0f7a411 100644
--- a/Source/Modulos/Pedidos de cliente/Model/schPedidosClienteClient_Intf.pas
+++ b/Source/Modulos/Pedidos de cliente/Model/schPedidosClienteClient_Intf.pas
@@ -4,20 +4,22 @@ unit schPedidosClienteClient_Intf;
interface
uses
- Classes, DB, SysUtils, uROClasses, uDAInterfaces, uDADataTable, FmtBCD, uROXMLIntf;
+ Classes, DB, schBase_Intf, SysUtils, uROClasses, uDAInterfaces, uDADataTable, FmtBCD, uROXMLIntf;
const
{ Data table rules ids
Feel free to change them to something more human readable
but make sure they are unique in the context of your application }
- 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}';
+ RID_PedidoCliente_Art_Colores_Pendientes = '{54115F75-2664-4E4F-834E-124EEB0C84B3}';
+ RID_ListaAnosPedidos = '{9403FEF1-C5C3-4D71-912B-76B2CC833DC0}';
+ RID_PedidoCliente_ArticulosPendientesPedirAProv = '{64718B70-7CF0-4EF9-A4DD-E518DFFB5F2F}';
+ RID_PedidosCliente = '{20E17637-C877-4040-AC6F-41ED17EE7749}';
+ RID_PedidosCliente_Detalles = '{8E4556EF-6251-447B-9A2F-314B00880A8F}';
+ RID_PedidoCliente_Articulos_Pendientes = '{2886183F-49D3-4FD3-AA9C-E1B0DFB28894}';
+ RID_PedidosCliente_Detalle_Color = '{4DF3B5B1-846C-421F-9A5E-ED56D6D45201}';
{ Data table names }
+ nme_PedidoCliente_Art_Colores_Pendientes = 'PedidoCliente_Art_Colores_Pendientes';
nme_ListaAnosPedidos = 'ListaAnosPedidos';
nme_PedidoCliente_ArticulosPendientesPedirAProv = 'PedidoCliente_ArticulosPendientesPedirAProv';
nme_PedidosCliente = 'PedidosCliente';
@@ -25,6 +27,38 @@ const
nme_PedidoCliente_Articulos_Pendientes = 'PedidoCliente_Articulos_Pendientes';
nme_PedidosCliente_Detalle_Color = 'PedidosCliente_Detalle_Color';
+ { PedidoCliente_Art_Colores_Pendientes fields }
+ fld_PedidoCliente_Art_Colores_PendientesID_PEDIDO = 'ID_PEDIDO';
+ fld_PedidoCliente_Art_Colores_PendientesID_ARTICULO = 'ID_ARTICULO';
+ fld_PedidoCliente_Art_Colores_PendientesCOLOR1 = 'COLOR1';
+ fld_PedidoCliente_Art_Colores_PendientesCOLOR2 = 'COLOR2';
+ fld_PedidoCliente_Art_Colores_PendientesCOLOR3 = 'COLOR3';
+ fld_PedidoCliente_Art_Colores_PendientesCOLOR4 = 'COLOR4';
+ fld_PedidoCliente_Art_Colores_PendientesCOLOR5 = 'COLOR5';
+ fld_PedidoCliente_Art_Colores_PendientesCOLOR6 = 'COLOR6';
+ fld_PedidoCliente_Art_Colores_PendientesCOLOR7 = 'COLOR7';
+ fld_PedidoCliente_Art_Colores_PendientesCOLOR8 = 'COLOR8';
+ fld_PedidoCliente_Art_Colores_PendientesCOLOR9 = 'COLOR9';
+ fld_PedidoCliente_Art_Colores_PendientesCOLOR10 = 'COLOR10';
+ fld_PedidoCliente_Art_Colores_PendientesCOLOR11 = 'COLOR11';
+ fld_PedidoCliente_Art_Colores_PendientesCOLOR12 = 'COLOR12';
+
+ { PedidoCliente_Art_Colores_Pendientes field indexes }
+ idx_PedidoCliente_Art_Colores_PendientesID_PEDIDO = 0;
+ idx_PedidoCliente_Art_Colores_PendientesID_ARTICULO = 1;
+ idx_PedidoCliente_Art_Colores_PendientesCOLOR1 = 2;
+ idx_PedidoCliente_Art_Colores_PendientesCOLOR2 = 3;
+ idx_PedidoCliente_Art_Colores_PendientesCOLOR3 = 4;
+ idx_PedidoCliente_Art_Colores_PendientesCOLOR4 = 5;
+ idx_PedidoCliente_Art_Colores_PendientesCOLOR5 = 6;
+ idx_PedidoCliente_Art_Colores_PendientesCOLOR6 = 7;
+ idx_PedidoCliente_Art_Colores_PendientesCOLOR7 = 8;
+ idx_PedidoCliente_Art_Colores_PendientesCOLOR8 = 9;
+ idx_PedidoCliente_Art_Colores_PendientesCOLOR9 = 10;
+ idx_PedidoCliente_Art_Colores_PendientesCOLOR10 = 11;
+ idx_PedidoCliente_Art_Colores_PendientesCOLOR11 = 12;
+ idx_PedidoCliente_Art_Colores_PendientesCOLOR12 = 13;
+
{ ListaAnosPedidos fields }
fld_ListaAnosPedidosANO = 'ANO';
@@ -202,9 +236,200 @@ const
idx_PedidosCliente_Detalle_ColorCOLOR12 = 13;
type
+ { IPedidoCliente_Art_Colores_Pendientes }
+ IPedidoCliente_Art_Colores_Pendientes = interface(IDAStronglyTypedDataTable)
+ ['{32201652-7936-46E1-85CA-543B750E39B6}']
+ { Property getters and setters }
+ function GetID_PEDIDOValue: Integer;
+ procedure SetID_PEDIDOValue(const aValue: Integer);
+ function GetID_PEDIDOIsNull: Boolean;
+ procedure SetID_PEDIDOIsNull(const aValue: Boolean);
+ function GetID_ARTICULOValue: Integer;
+ procedure SetID_ARTICULOValue(const aValue: Integer);
+ function GetID_ARTICULOIsNull: Boolean;
+ procedure SetID_ARTICULOIsNull(const aValue: Boolean);
+ function GetCOLOR1Value: Int64;
+ procedure SetCOLOR1Value(const aValue: Int64);
+ function GetCOLOR1IsNull: Boolean;
+ procedure SetCOLOR1IsNull(const aValue: Boolean);
+ function GetCOLOR2Value: Int64;
+ procedure SetCOLOR2Value(const aValue: Int64);
+ function GetCOLOR2IsNull: Boolean;
+ procedure SetCOLOR2IsNull(const aValue: Boolean);
+ function GetCOLOR3Value: Int64;
+ procedure SetCOLOR3Value(const aValue: Int64);
+ function GetCOLOR3IsNull: Boolean;
+ procedure SetCOLOR3IsNull(const aValue: Boolean);
+ function GetCOLOR4Value: Int64;
+ procedure SetCOLOR4Value(const aValue: Int64);
+ function GetCOLOR4IsNull: Boolean;
+ procedure SetCOLOR4IsNull(const aValue: Boolean);
+ function GetCOLOR5Value: Int64;
+ procedure SetCOLOR5Value(const aValue: Int64);
+ function GetCOLOR5IsNull: Boolean;
+ procedure SetCOLOR5IsNull(const aValue: Boolean);
+ function GetCOLOR6Value: Int64;
+ procedure SetCOLOR6Value(const aValue: Int64);
+ function GetCOLOR6IsNull: Boolean;
+ procedure SetCOLOR6IsNull(const aValue: Boolean);
+ function GetCOLOR7Value: Int64;
+ procedure SetCOLOR7Value(const aValue: Int64);
+ function GetCOLOR7IsNull: Boolean;
+ procedure SetCOLOR7IsNull(const aValue: Boolean);
+ function GetCOLOR8Value: Int64;
+ procedure SetCOLOR8Value(const aValue: Int64);
+ function GetCOLOR8IsNull: Boolean;
+ procedure SetCOLOR8IsNull(const aValue: Boolean);
+ function GetCOLOR9Value: Int64;
+ procedure SetCOLOR9Value(const aValue: Int64);
+ function GetCOLOR9IsNull: Boolean;
+ procedure SetCOLOR9IsNull(const aValue: Boolean);
+ function GetCOLOR10Value: Int64;
+ procedure SetCOLOR10Value(const aValue: Int64);
+ function GetCOLOR10IsNull: Boolean;
+ procedure SetCOLOR10IsNull(const aValue: Boolean);
+ function GetCOLOR11Value: Int64;
+ procedure SetCOLOR11Value(const aValue: Int64);
+ function GetCOLOR11IsNull: Boolean;
+ procedure SetCOLOR11IsNull(const aValue: Boolean);
+ function GetCOLOR12Value: Int64;
+ procedure SetCOLOR12Value(const aValue: Int64);
+ function GetCOLOR12IsNull: Boolean;
+ procedure SetCOLOR12IsNull(const aValue: Boolean);
+
+
+ { Properties }
+ property ID_PEDIDO: Integer read GetID_PEDIDOValue write SetID_PEDIDOValue;
+ property ID_PEDIDOIsNull: Boolean read GetID_PEDIDOIsNull write SetID_PEDIDOIsNull;
+ property ID_ARTICULO: Integer read GetID_ARTICULOValue write SetID_ARTICULOValue;
+ property ID_ARTICULOIsNull: Boolean read GetID_ARTICULOIsNull write SetID_ARTICULOIsNull;
+ property COLOR1: Int64 read GetCOLOR1Value write SetCOLOR1Value;
+ property COLOR1IsNull: Boolean read GetCOLOR1IsNull write SetCOLOR1IsNull;
+ property COLOR2: Int64 read GetCOLOR2Value write SetCOLOR2Value;
+ property COLOR2IsNull: Boolean read GetCOLOR2IsNull write SetCOLOR2IsNull;
+ property COLOR3: Int64 read GetCOLOR3Value write SetCOLOR3Value;
+ property COLOR3IsNull: Boolean read GetCOLOR3IsNull write SetCOLOR3IsNull;
+ property COLOR4: Int64 read GetCOLOR4Value write SetCOLOR4Value;
+ property COLOR4IsNull: Boolean read GetCOLOR4IsNull write SetCOLOR4IsNull;
+ property COLOR5: Int64 read GetCOLOR5Value write SetCOLOR5Value;
+ property COLOR5IsNull: Boolean read GetCOLOR5IsNull write SetCOLOR5IsNull;
+ property COLOR6: Int64 read GetCOLOR6Value write SetCOLOR6Value;
+ property COLOR6IsNull: Boolean read GetCOLOR6IsNull write SetCOLOR6IsNull;
+ property COLOR7: Int64 read GetCOLOR7Value write SetCOLOR7Value;
+ property COLOR7IsNull: Boolean read GetCOLOR7IsNull write SetCOLOR7IsNull;
+ property COLOR8: Int64 read GetCOLOR8Value write SetCOLOR8Value;
+ property COLOR8IsNull: Boolean read GetCOLOR8IsNull write SetCOLOR8IsNull;
+ property COLOR9: Int64 read GetCOLOR9Value write SetCOLOR9Value;
+ property COLOR9IsNull: Boolean read GetCOLOR9IsNull write SetCOLOR9IsNull;
+ property COLOR10: Int64 read GetCOLOR10Value write SetCOLOR10Value;
+ property COLOR10IsNull: Boolean read GetCOLOR10IsNull write SetCOLOR10IsNull;
+ property COLOR11: Int64 read GetCOLOR11Value write SetCOLOR11Value;
+ property COLOR11IsNull: Boolean read GetCOLOR11IsNull write SetCOLOR11IsNull;
+ property COLOR12: Int64 read GetCOLOR12Value write SetCOLOR12Value;
+ property COLOR12IsNull: Boolean read GetCOLOR12IsNull write SetCOLOR12IsNull;
+ end;
+
+ { TPedidoCliente_Art_Colores_PendientesDataTableRules }
+ TPedidoCliente_Art_Colores_PendientesDataTableRules = class(TIntfObjectDADataTableRules, IPedidoCliente_Art_Colores_Pendientes)
+ private
+ protected
+ { Property getters and setters }
+ function GetID_PEDIDOValue: Integer; virtual;
+ procedure SetID_PEDIDOValue(const aValue: Integer); virtual;
+ function GetID_PEDIDOIsNull: Boolean; virtual;
+ procedure SetID_PEDIDOIsNull(const aValue: Boolean); virtual;
+ function GetID_ARTICULOValue: Integer; virtual;
+ procedure SetID_ARTICULOValue(const aValue: Integer); virtual;
+ function GetID_ARTICULOIsNull: Boolean; virtual;
+ procedure SetID_ARTICULOIsNull(const aValue: Boolean); virtual;
+ function GetCOLOR1Value: Int64; virtual;
+ procedure SetCOLOR1Value(const aValue: Int64); virtual;
+ function GetCOLOR1IsNull: Boolean; virtual;
+ procedure SetCOLOR1IsNull(const aValue: Boolean); virtual;
+ function GetCOLOR2Value: Int64; virtual;
+ procedure SetCOLOR2Value(const aValue: Int64); virtual;
+ function GetCOLOR2IsNull: Boolean; virtual;
+ procedure SetCOLOR2IsNull(const aValue: Boolean); virtual;
+ function GetCOLOR3Value: Int64; virtual;
+ procedure SetCOLOR3Value(const aValue: Int64); virtual;
+ function GetCOLOR3IsNull: Boolean; virtual;
+ procedure SetCOLOR3IsNull(const aValue: Boolean); virtual;
+ function GetCOLOR4Value: Int64; virtual;
+ procedure SetCOLOR4Value(const aValue: Int64); virtual;
+ function GetCOLOR4IsNull: Boolean; virtual;
+ procedure SetCOLOR4IsNull(const aValue: Boolean); virtual;
+ function GetCOLOR5Value: Int64; virtual;
+ procedure SetCOLOR5Value(const aValue: Int64); virtual;
+ function GetCOLOR5IsNull: Boolean; virtual;
+ procedure SetCOLOR5IsNull(const aValue: Boolean); virtual;
+ function GetCOLOR6Value: Int64; virtual;
+ procedure SetCOLOR6Value(const aValue: Int64); virtual;
+ function GetCOLOR6IsNull: Boolean; virtual;
+ procedure SetCOLOR6IsNull(const aValue: Boolean); virtual;
+ function GetCOLOR7Value: Int64; virtual;
+ procedure SetCOLOR7Value(const aValue: Int64); virtual;
+ function GetCOLOR7IsNull: Boolean; virtual;
+ procedure SetCOLOR7IsNull(const aValue: Boolean); virtual;
+ function GetCOLOR8Value: Int64; virtual;
+ procedure SetCOLOR8Value(const aValue: Int64); virtual;
+ function GetCOLOR8IsNull: Boolean; virtual;
+ procedure SetCOLOR8IsNull(const aValue: Boolean); virtual;
+ function GetCOLOR9Value: Int64; virtual;
+ procedure SetCOLOR9Value(const aValue: Int64); virtual;
+ function GetCOLOR9IsNull: Boolean; virtual;
+ procedure SetCOLOR9IsNull(const aValue: Boolean); virtual;
+ function GetCOLOR10Value: Int64; virtual;
+ procedure SetCOLOR10Value(const aValue: Int64); virtual;
+ function GetCOLOR10IsNull: Boolean; virtual;
+ procedure SetCOLOR10IsNull(const aValue: Boolean); virtual;
+ function GetCOLOR11Value: Int64; virtual;
+ procedure SetCOLOR11Value(const aValue: Int64); virtual;
+ function GetCOLOR11IsNull: Boolean; virtual;
+ procedure SetCOLOR11IsNull(const aValue: Boolean); virtual;
+ function GetCOLOR12Value: Int64; virtual;
+ procedure SetCOLOR12Value(const aValue: Int64); virtual;
+ function GetCOLOR12IsNull: Boolean; virtual;
+ procedure SetCOLOR12IsNull(const aValue: Boolean); virtual;
+
+ { Properties }
+ property ID_PEDIDO: Integer read GetID_PEDIDOValue write SetID_PEDIDOValue;
+ property ID_PEDIDOIsNull: Boolean read GetID_PEDIDOIsNull write SetID_PEDIDOIsNull;
+ property ID_ARTICULO: Integer read GetID_ARTICULOValue write SetID_ARTICULOValue;
+ property ID_ARTICULOIsNull: Boolean read GetID_ARTICULOIsNull write SetID_ARTICULOIsNull;
+ property COLOR1: Int64 read GetCOLOR1Value write SetCOLOR1Value;
+ property COLOR1IsNull: Boolean read GetCOLOR1IsNull write SetCOLOR1IsNull;
+ property COLOR2: Int64 read GetCOLOR2Value write SetCOLOR2Value;
+ property COLOR2IsNull: Boolean read GetCOLOR2IsNull write SetCOLOR2IsNull;
+ property COLOR3: Int64 read GetCOLOR3Value write SetCOLOR3Value;
+ property COLOR3IsNull: Boolean read GetCOLOR3IsNull write SetCOLOR3IsNull;
+ property COLOR4: Int64 read GetCOLOR4Value write SetCOLOR4Value;
+ property COLOR4IsNull: Boolean read GetCOLOR4IsNull write SetCOLOR4IsNull;
+ property COLOR5: Int64 read GetCOLOR5Value write SetCOLOR5Value;
+ property COLOR5IsNull: Boolean read GetCOLOR5IsNull write SetCOLOR5IsNull;
+ property COLOR6: Int64 read GetCOLOR6Value write SetCOLOR6Value;
+ property COLOR6IsNull: Boolean read GetCOLOR6IsNull write SetCOLOR6IsNull;
+ property COLOR7: Int64 read GetCOLOR7Value write SetCOLOR7Value;
+ property COLOR7IsNull: Boolean read GetCOLOR7IsNull write SetCOLOR7IsNull;
+ property COLOR8: Int64 read GetCOLOR8Value write SetCOLOR8Value;
+ property COLOR8IsNull: Boolean read GetCOLOR8IsNull write SetCOLOR8IsNull;
+ property COLOR9: Int64 read GetCOLOR9Value write SetCOLOR9Value;
+ property COLOR9IsNull: Boolean read GetCOLOR9IsNull write SetCOLOR9IsNull;
+ property COLOR10: Int64 read GetCOLOR10Value write SetCOLOR10Value;
+ property COLOR10IsNull: Boolean read GetCOLOR10IsNull write SetCOLOR10IsNull;
+ property COLOR11: Int64 read GetCOLOR11Value write SetCOLOR11Value;
+ property COLOR11IsNull: Boolean read GetCOLOR11IsNull write SetCOLOR11IsNull;
+ property COLOR12: Int64 read GetCOLOR12Value write SetCOLOR12Value;
+ property COLOR12IsNull: Boolean read GetCOLOR12IsNull write SetCOLOR12IsNull;
+
+ public
+ constructor Create(aDataTable: TDADataTable); override;
+ destructor Destroy; override;
+
+ end;
+
{ IListaAnosPedidos }
IListaAnosPedidos = interface(IDAStronglyTypedDataTable)
- ['{475ACA8D-8541-4EE1-A13B-85A5D1F6BED0}']
+ ['{A77970C4-600B-41C8-BED5-AAEBDA357B58}']
{ Property getters and setters }
function GetANOValue: String;
procedure SetANOValue(const aValue: String);
@@ -218,7 +443,7 @@ type
end;
{ TListaAnosPedidosDataTableRules }
- TListaAnosPedidosDataTableRules = class(TDADataTableRules, IListaAnosPedidos)
+ TListaAnosPedidosDataTableRules = class(TIntfObjectDADataTableRules, IListaAnosPedidos)
private
protected
{ Property getters and setters }
@@ -239,7 +464,7 @@ type
{ IPedidoCliente_ArticulosPendientesPedirAProv }
IPedidoCliente_ArticulosPendientesPedirAProv = interface(IDAStronglyTypedDataTable)
- ['{7AD10614-220C-409B-AC9B-45D3D071265E}']
+ ['{EBDE6CE5-A430-4B8C-8F26-D9B68A20ACC1}']
{ Property getters and setters }
function GetID_PEDIDOValue: Integer;
procedure SetID_PEDIDOValue(const aValue: Integer);
@@ -249,20 +474,20 @@ type
procedure SetID_ARTICULOValue(const aValue: Integer);
function GetID_ARTICULOIsNull: Boolean;
procedure SetID_ARTICULOIsNull(const aValue: Boolean);
- function GetCANT_PEDIDA_CLIENTEValue: Integer;
- procedure SetCANT_PEDIDA_CLIENTEValue(const aValue: Integer);
+ function GetCANT_PEDIDA_CLIENTEValue: Float;
+ procedure SetCANT_PEDIDA_CLIENTEValue(const aValue: Float);
function GetCANT_PEDIDA_CLIENTEIsNull: Boolean;
procedure SetCANT_PEDIDA_CLIENTEIsNull(const aValue: Boolean);
function GetID_PROVEEDORValue: Integer;
procedure SetID_PROVEEDORValue(const aValue: Integer);
function GetID_PROVEEDORIsNull: Boolean;
procedure SetID_PROVEEDORIsNull(const aValue: Boolean);
- function GetCANT_PEDIDA_PROVEEDORValue: Integer;
- procedure SetCANT_PEDIDA_PROVEEDORValue(const aValue: Integer);
+ function GetCANT_PEDIDA_PROVEEDORValue: Float;
+ procedure SetCANT_PEDIDA_PROVEEDORValue(const aValue: Float);
function GetCANT_PEDIDA_PROVEEDORIsNull: Boolean;
procedure SetCANT_PEDIDA_PROVEEDORIsNull(const aValue: Boolean);
- function GetCANT_PENDIENTE_PEDIRValue: Integer;
- procedure SetCANT_PENDIENTE_PEDIRValue(const aValue: Integer);
+ function GetCANT_PENDIENTE_PEDIRValue: Float;
+ procedure SetCANT_PENDIENTE_PEDIRValue(const aValue: Float);
function GetCANT_PENDIENTE_PEDIRIsNull: Boolean;
procedure SetCANT_PENDIENTE_PEDIRIsNull(const aValue: Boolean);
@@ -272,18 +497,18 @@ type
property ID_PEDIDOIsNull: Boolean read GetID_PEDIDOIsNull write SetID_PEDIDOIsNull;
property ID_ARTICULO: Integer read GetID_ARTICULOValue write SetID_ARTICULOValue;
property ID_ARTICULOIsNull: Boolean read GetID_ARTICULOIsNull write SetID_ARTICULOIsNull;
- property CANT_PEDIDA_CLIENTE: Integer read GetCANT_PEDIDA_CLIENTEValue write SetCANT_PEDIDA_CLIENTEValue;
+ property CANT_PEDIDA_CLIENTE: Float read GetCANT_PEDIDA_CLIENTEValue write SetCANT_PEDIDA_CLIENTEValue;
property CANT_PEDIDA_CLIENTEIsNull: Boolean read GetCANT_PEDIDA_CLIENTEIsNull write SetCANT_PEDIDA_CLIENTEIsNull;
property ID_PROVEEDOR: Integer read GetID_PROVEEDORValue write SetID_PROVEEDORValue;
property ID_PROVEEDORIsNull: Boolean read GetID_PROVEEDORIsNull write SetID_PROVEEDORIsNull;
- property CANT_PEDIDA_PROVEEDOR: Integer read GetCANT_PEDIDA_PROVEEDORValue write SetCANT_PEDIDA_PROVEEDORValue;
+ property CANT_PEDIDA_PROVEEDOR: Float read GetCANT_PEDIDA_PROVEEDORValue write SetCANT_PEDIDA_PROVEEDORValue;
property CANT_PEDIDA_PROVEEDORIsNull: Boolean read GetCANT_PEDIDA_PROVEEDORIsNull write SetCANT_PEDIDA_PROVEEDORIsNull;
- property CANT_PENDIENTE_PEDIR: Integer read GetCANT_PENDIENTE_PEDIRValue write SetCANT_PENDIENTE_PEDIRValue;
+ property CANT_PENDIENTE_PEDIR: Float read GetCANT_PENDIENTE_PEDIRValue write SetCANT_PENDIENTE_PEDIRValue;
property CANT_PENDIENTE_PEDIRIsNull: Boolean read GetCANT_PENDIENTE_PEDIRIsNull write SetCANT_PENDIENTE_PEDIRIsNull;
end;
{ TPedidoCliente_ArticulosPendientesPedirAProvDataTableRules }
- TPedidoCliente_ArticulosPendientesPedirAProvDataTableRules = class(TDADataTableRules, IPedidoCliente_ArticulosPendientesPedirAProv)
+ TPedidoCliente_ArticulosPendientesPedirAProvDataTableRules = class(TIntfObjectDADataTableRules, IPedidoCliente_ArticulosPendientesPedirAProv)
private
protected
{ Property getters and setters }
@@ -295,20 +520,20 @@ type
procedure SetID_ARTICULOValue(const aValue: Integer); virtual;
function GetID_ARTICULOIsNull: Boolean; virtual;
procedure SetID_ARTICULOIsNull(const aValue: Boolean); virtual;
- function GetCANT_PEDIDA_CLIENTEValue: Integer; virtual;
- procedure SetCANT_PEDIDA_CLIENTEValue(const aValue: Integer); virtual;
+ function GetCANT_PEDIDA_CLIENTEValue: Float; virtual;
+ procedure SetCANT_PEDIDA_CLIENTEValue(const aValue: Float); virtual;
function GetCANT_PEDIDA_CLIENTEIsNull: Boolean; virtual;
procedure SetCANT_PEDIDA_CLIENTEIsNull(const aValue: Boolean); virtual;
function GetID_PROVEEDORValue: Integer; virtual;
procedure SetID_PROVEEDORValue(const aValue: Integer); virtual;
function GetID_PROVEEDORIsNull: Boolean; virtual;
procedure SetID_PROVEEDORIsNull(const aValue: Boolean); virtual;
- function GetCANT_PEDIDA_PROVEEDORValue: Integer; virtual;
- procedure SetCANT_PEDIDA_PROVEEDORValue(const aValue: Integer); virtual;
+ function GetCANT_PEDIDA_PROVEEDORValue: Float; virtual;
+ procedure SetCANT_PEDIDA_PROVEEDORValue(const aValue: Float); virtual;
function GetCANT_PEDIDA_PROVEEDORIsNull: Boolean; virtual;
procedure SetCANT_PEDIDA_PROVEEDORIsNull(const aValue: Boolean); virtual;
- function GetCANT_PENDIENTE_PEDIRValue: Integer; virtual;
- procedure SetCANT_PENDIENTE_PEDIRValue(const aValue: Integer); virtual;
+ function GetCANT_PENDIENTE_PEDIRValue: Float; virtual;
+ procedure SetCANT_PENDIENTE_PEDIRValue(const aValue: Float); virtual;
function GetCANT_PENDIENTE_PEDIRIsNull: Boolean; virtual;
procedure SetCANT_PENDIENTE_PEDIRIsNull(const aValue: Boolean); virtual;
@@ -317,13 +542,13 @@ type
property ID_PEDIDOIsNull: Boolean read GetID_PEDIDOIsNull write SetID_PEDIDOIsNull;
property ID_ARTICULO: Integer read GetID_ARTICULOValue write SetID_ARTICULOValue;
property ID_ARTICULOIsNull: Boolean read GetID_ARTICULOIsNull write SetID_ARTICULOIsNull;
- property CANT_PEDIDA_CLIENTE: Integer read GetCANT_PEDIDA_CLIENTEValue write SetCANT_PEDIDA_CLIENTEValue;
+ property CANT_PEDIDA_CLIENTE: Float read GetCANT_PEDIDA_CLIENTEValue write SetCANT_PEDIDA_CLIENTEValue;
property CANT_PEDIDA_CLIENTEIsNull: Boolean read GetCANT_PEDIDA_CLIENTEIsNull write SetCANT_PEDIDA_CLIENTEIsNull;
property ID_PROVEEDOR: Integer read GetID_PROVEEDORValue write SetID_PROVEEDORValue;
property ID_PROVEEDORIsNull: Boolean read GetID_PROVEEDORIsNull write SetID_PROVEEDORIsNull;
- property CANT_PEDIDA_PROVEEDOR: Integer read GetCANT_PEDIDA_PROVEEDORValue write SetCANT_PEDIDA_PROVEEDORValue;
+ property CANT_PEDIDA_PROVEEDOR: Float read GetCANT_PEDIDA_PROVEEDORValue write SetCANT_PEDIDA_PROVEEDORValue;
property CANT_PEDIDA_PROVEEDORIsNull: Boolean read GetCANT_PEDIDA_PROVEEDORIsNull write SetCANT_PEDIDA_PROVEEDORIsNull;
- property CANT_PENDIENTE_PEDIR: Integer read GetCANT_PENDIENTE_PEDIRValue write SetCANT_PENDIENTE_PEDIRValue;
+ property CANT_PENDIENTE_PEDIR: Float read GetCANT_PENDIENTE_PEDIRValue write SetCANT_PENDIENTE_PEDIRValue;
property CANT_PENDIENTE_PEDIRIsNull: Boolean read GetCANT_PENDIENTE_PEDIRIsNull write SetCANT_PENDIENTE_PEDIRIsNull;
public
@@ -334,7 +559,7 @@ type
{ IPedidosCliente }
IPedidosCliente = interface(IDAStronglyTypedDataTable)
- ['{7F223677-49BE-4682-A347-2F7D6E9EB4EC}']
+ ['{095475C5-5040-4831-9310-8028A76B7568}']
{ Property getters and setters }
function GetIDValue: Integer;
procedure SetIDValue(const aValue: Integer);
@@ -556,7 +781,7 @@ type
end;
{ TPedidosClienteDataTableRules }
- TPedidosClienteDataTableRules = class(TDADataTableRules, IPedidosCliente)
+ TPedidosClienteDataTableRules = class(TIntfObjectDADataTableRules, IPedidosCliente)
private
f_OBSERVACIONES: IROStrings;
f_INCIDENCIAS: IROStrings;
@@ -789,7 +1014,7 @@ type
{ IPedidosCliente_Detalles }
IPedidosCliente_Detalles = interface(IDAStronglyTypedDataTable)
- ['{BAD29A6E-F515-46A0-8BDD-EE879086BE33}']
+ ['{38AC30F0-521A-4DA3-AED0-D3D56657ABFA}']
{ Property getters and setters }
function GetIDValue: Integer;
procedure SetIDValue(const aValue: Integer);
@@ -887,7 +1112,7 @@ type
end;
{ TPedidosCliente_DetallesDataTableRules }
- TPedidosCliente_DetallesDataTableRules = class(TDADataTableRules, IPedidosCliente_Detalles)
+ TPedidosCliente_DetallesDataTableRules = class(TIntfObjectDADataTableRules, IPedidosCliente_Detalles)
private
protected
{ Property getters and setters }
@@ -992,22 +1217,22 @@ type
{ IPedidoCliente_Articulos_Pendientes }
IPedidoCliente_Articulos_Pendientes = interface(IDAStronglyTypedDataTable)
- ['{3662880C-6D05-49E4-B105-19882211F1AD}']
+ ['{CDD4E426-925A-47C9-AE39-E07ED452A219}']
{ Property getters and setters }
function GetID_ARTICULOValue: Integer;
procedure SetID_ARTICULOValue(const aValue: Integer);
function GetID_ARTICULOIsNull: Boolean;
procedure SetID_ARTICULOIsNull(const aValue: Boolean);
- function GetCANTIDAD_PEDValue: Integer;
- procedure SetCANTIDAD_PEDValue(const aValue: Integer);
+ function GetCANTIDAD_PEDValue: Float;
+ procedure SetCANTIDAD_PEDValue(const aValue: Float);
function GetCANTIDAD_PEDIsNull: Boolean;
procedure SetCANTIDAD_PEDIsNull(const aValue: Boolean);
- function GetCANTIDAD_ALBValue: Integer;
- procedure SetCANTIDAD_ALBValue(const aValue: Integer);
+ function GetCANTIDAD_ALBValue: Float;
+ procedure SetCANTIDAD_ALBValue(const aValue: Float);
function GetCANTIDAD_ALBIsNull: Boolean;
procedure SetCANTIDAD_ALBIsNull(const aValue: Boolean);
- function GetCANTIDAD_PENDIENTEValue: Integer;
- procedure SetCANTIDAD_PENDIENTEValue(const aValue: Integer);
+ function GetCANTIDAD_PENDIENTEValue: Float;
+ procedure SetCANTIDAD_PENDIENTEValue(const aValue: Float);
function GetCANTIDAD_PENDIENTEIsNull: Boolean;
procedure SetCANTIDAD_PENDIENTEIsNull(const aValue: Boolean);
@@ -1015,16 +1240,16 @@ type
{ Properties }
property ID_ARTICULO: Integer read GetID_ARTICULOValue write SetID_ARTICULOValue;
property ID_ARTICULOIsNull: Boolean read GetID_ARTICULOIsNull write SetID_ARTICULOIsNull;
- property CANTIDAD_PED: Integer read GetCANTIDAD_PEDValue write SetCANTIDAD_PEDValue;
+ property CANTIDAD_PED: Float read GetCANTIDAD_PEDValue write SetCANTIDAD_PEDValue;
property CANTIDAD_PEDIsNull: Boolean read GetCANTIDAD_PEDIsNull write SetCANTIDAD_PEDIsNull;
- property CANTIDAD_ALB: Integer read GetCANTIDAD_ALBValue write SetCANTIDAD_ALBValue;
+ property CANTIDAD_ALB: Float read GetCANTIDAD_ALBValue write SetCANTIDAD_ALBValue;
property CANTIDAD_ALBIsNull: Boolean read GetCANTIDAD_ALBIsNull write SetCANTIDAD_ALBIsNull;
- property CANTIDAD_PENDIENTE: Integer read GetCANTIDAD_PENDIENTEValue write SetCANTIDAD_PENDIENTEValue;
+ property CANTIDAD_PENDIENTE: Float read GetCANTIDAD_PENDIENTEValue write SetCANTIDAD_PENDIENTEValue;
property CANTIDAD_PENDIENTEIsNull: Boolean read GetCANTIDAD_PENDIENTEIsNull write SetCANTIDAD_PENDIENTEIsNull;
end;
{ TPedidoCliente_Articulos_PendientesDataTableRules }
- TPedidoCliente_Articulos_PendientesDataTableRules = class(TDADataTableRules, IPedidoCliente_Articulos_Pendientes)
+ TPedidoCliente_Articulos_PendientesDataTableRules = class(TIntfObjectDADataTableRules, IPedidoCliente_Articulos_Pendientes)
private
protected
{ Property getters and setters }
@@ -1032,27 +1257,27 @@ type
procedure SetID_ARTICULOValue(const aValue: Integer); virtual;
function GetID_ARTICULOIsNull: Boolean; virtual;
procedure SetID_ARTICULOIsNull(const aValue: Boolean); virtual;
- function GetCANTIDAD_PEDValue: Integer; virtual;
- procedure SetCANTIDAD_PEDValue(const aValue: Integer); virtual;
+ function GetCANTIDAD_PEDValue: Float; virtual;
+ procedure SetCANTIDAD_PEDValue(const aValue: Float); virtual;
function GetCANTIDAD_PEDIsNull: Boolean; virtual;
procedure SetCANTIDAD_PEDIsNull(const aValue: Boolean); virtual;
- function GetCANTIDAD_ALBValue: Integer; virtual;
- procedure SetCANTIDAD_ALBValue(const aValue: Integer); virtual;
+ function GetCANTIDAD_ALBValue: Float; virtual;
+ procedure SetCANTIDAD_ALBValue(const aValue: Float); virtual;
function GetCANTIDAD_ALBIsNull: Boolean; virtual;
procedure SetCANTIDAD_ALBIsNull(const aValue: Boolean); virtual;
- function GetCANTIDAD_PENDIENTEValue: Integer; virtual;
- procedure SetCANTIDAD_PENDIENTEValue(const aValue: Integer); virtual;
+ function GetCANTIDAD_PENDIENTEValue: Float; virtual;
+ procedure SetCANTIDAD_PENDIENTEValue(const aValue: Float); virtual;
function GetCANTIDAD_PENDIENTEIsNull: Boolean; virtual;
procedure SetCANTIDAD_PENDIENTEIsNull(const aValue: Boolean); virtual;
{ Properties }
property ID_ARTICULO: Integer read GetID_ARTICULOValue write SetID_ARTICULOValue;
property ID_ARTICULOIsNull: Boolean read GetID_ARTICULOIsNull write SetID_ARTICULOIsNull;
- property CANTIDAD_PED: Integer read GetCANTIDAD_PEDValue write SetCANTIDAD_PEDValue;
+ property CANTIDAD_PED: Float read GetCANTIDAD_PEDValue write SetCANTIDAD_PEDValue;
property CANTIDAD_PEDIsNull: Boolean read GetCANTIDAD_PEDIsNull write SetCANTIDAD_PEDIsNull;
- property CANTIDAD_ALB: Integer read GetCANTIDAD_ALBValue write SetCANTIDAD_ALBValue;
+ property CANTIDAD_ALB: Float read GetCANTIDAD_ALBValue write SetCANTIDAD_ALBValue;
property CANTIDAD_ALBIsNull: Boolean read GetCANTIDAD_ALBIsNull write SetCANTIDAD_ALBIsNull;
- property CANTIDAD_PENDIENTE: Integer read GetCANTIDAD_PENDIENTEValue write SetCANTIDAD_PENDIENTEValue;
+ property CANTIDAD_PENDIENTE: Float read GetCANTIDAD_PENDIENTEValue write SetCANTIDAD_PENDIENTEValue;
property CANTIDAD_PENDIENTEIsNull: Boolean read GetCANTIDAD_PENDIENTEIsNull write SetCANTIDAD_PENDIENTEIsNull;
public
@@ -1063,7 +1288,7 @@ type
{ IPedidosCliente_Detalle_Color }
IPedidosCliente_Detalle_Color = interface(IDAStronglyTypedDataTable)
- ['{9D745C39-FEE8-4641-BCC3-BABA61100D42}']
+ ['{AF1847ED-E9E1-42A7-A205-C99502AE53DF}']
{ Property getters and setters }
function GetIDValue: Integer;
procedure SetIDValue(const aValue: Integer);
@@ -1155,7 +1380,7 @@ type
end;
{ TPedidosCliente_Detalle_ColorDataTableRules }
- TPedidosCliente_Detalle_ColorDataTableRules = class(TDADataTableRules, IPedidosCliente_Detalle_Color)
+ TPedidosCliente_Detalle_ColorDataTableRules = class(TIntfObjectDADataTableRules, IPedidosCliente_Detalle_Color)
private
protected
{ Property getters and setters }
@@ -1256,6 +1481,312 @@ implementation
uses Variants, uROBinaryHelpers;
+{ TPedidoCliente_Art_Colores_PendientesDataTableRules }
+constructor TPedidoCliente_Art_Colores_PendientesDataTableRules.Create(aDataTable: TDADataTable);
+begin
+ inherited;
+end;
+
+destructor TPedidoCliente_Art_Colores_PendientesDataTableRules.Destroy;
+begin
+ inherited;
+end;
+
+function TPedidoCliente_Art_Colores_PendientesDataTableRules.GetID_PEDIDOValue: Integer;
+begin
+ result := DataTable.Fields[idx_PedidoCliente_Art_Colores_PendientesID_PEDIDO].AsInteger;
+end;
+
+procedure TPedidoCliente_Art_Colores_PendientesDataTableRules.SetID_PEDIDOValue(const aValue: Integer);
+begin
+ DataTable.Fields[idx_PedidoCliente_Art_Colores_PendientesID_PEDIDO].AsInteger := aValue;
+end;
+
+function TPedidoCliente_Art_Colores_PendientesDataTableRules.GetID_PEDIDOIsNull: boolean;
+begin
+ result := DataTable.Fields[idx_PedidoCliente_Art_Colores_PendientesID_PEDIDO].IsNull;
+end;
+
+procedure TPedidoCliente_Art_Colores_PendientesDataTableRules.SetID_PEDIDOIsNull(const aValue: Boolean);
+begin
+ if aValue then
+ DataTable.Fields[idx_PedidoCliente_Art_Colores_PendientesID_PEDIDO].AsVariant := Null;
+end;
+
+function TPedidoCliente_Art_Colores_PendientesDataTableRules.GetID_ARTICULOValue: Integer;
+begin
+ result := DataTable.Fields[idx_PedidoCliente_Art_Colores_PendientesID_ARTICULO].AsInteger;
+end;
+
+procedure TPedidoCliente_Art_Colores_PendientesDataTableRules.SetID_ARTICULOValue(const aValue: Integer);
+begin
+ DataTable.Fields[idx_PedidoCliente_Art_Colores_PendientesID_ARTICULO].AsInteger := aValue;
+end;
+
+function TPedidoCliente_Art_Colores_PendientesDataTableRules.GetID_ARTICULOIsNull: boolean;
+begin
+ result := DataTable.Fields[idx_PedidoCliente_Art_Colores_PendientesID_ARTICULO].IsNull;
+end;
+
+procedure TPedidoCliente_Art_Colores_PendientesDataTableRules.SetID_ARTICULOIsNull(const aValue: Boolean);
+begin
+ if aValue then
+ DataTable.Fields[idx_PedidoCliente_Art_Colores_PendientesID_ARTICULO].AsVariant := Null;
+end;
+
+function TPedidoCliente_Art_Colores_PendientesDataTableRules.GetCOLOR1Value: Int64;
+begin
+ result := DataTable.Fields[idx_PedidoCliente_Art_Colores_PendientesCOLOR1].AsLargeInt;
+end;
+
+procedure TPedidoCliente_Art_Colores_PendientesDataTableRules.SetCOLOR1Value(const aValue: Int64);
+begin
+ DataTable.Fields[idx_PedidoCliente_Art_Colores_PendientesCOLOR1].AsLargeInt := aValue;
+end;
+
+function TPedidoCliente_Art_Colores_PendientesDataTableRules.GetCOLOR1IsNull: boolean;
+begin
+ result := DataTable.Fields[idx_PedidoCliente_Art_Colores_PendientesCOLOR1].IsNull;
+end;
+
+procedure TPedidoCliente_Art_Colores_PendientesDataTableRules.SetCOLOR1IsNull(const aValue: Boolean);
+begin
+ if aValue then
+ DataTable.Fields[idx_PedidoCliente_Art_Colores_PendientesCOLOR1].AsVariant := Null;
+end;
+
+function TPedidoCliente_Art_Colores_PendientesDataTableRules.GetCOLOR2Value: Int64;
+begin
+ result := DataTable.Fields[idx_PedidoCliente_Art_Colores_PendientesCOLOR2].AsLargeInt;
+end;
+
+procedure TPedidoCliente_Art_Colores_PendientesDataTableRules.SetCOLOR2Value(const aValue: Int64);
+begin
+ DataTable.Fields[idx_PedidoCliente_Art_Colores_PendientesCOLOR2].AsLargeInt := aValue;
+end;
+
+function TPedidoCliente_Art_Colores_PendientesDataTableRules.GetCOLOR2IsNull: boolean;
+begin
+ result := DataTable.Fields[idx_PedidoCliente_Art_Colores_PendientesCOLOR2].IsNull;
+end;
+
+procedure TPedidoCliente_Art_Colores_PendientesDataTableRules.SetCOLOR2IsNull(const aValue: Boolean);
+begin
+ if aValue then
+ DataTable.Fields[idx_PedidoCliente_Art_Colores_PendientesCOLOR2].AsVariant := Null;
+end;
+
+function TPedidoCliente_Art_Colores_PendientesDataTableRules.GetCOLOR3Value: Int64;
+begin
+ result := DataTable.Fields[idx_PedidoCliente_Art_Colores_PendientesCOLOR3].AsLargeInt;
+end;
+
+procedure TPedidoCliente_Art_Colores_PendientesDataTableRules.SetCOLOR3Value(const aValue: Int64);
+begin
+ DataTable.Fields[idx_PedidoCliente_Art_Colores_PendientesCOLOR3].AsLargeInt := aValue;
+end;
+
+function TPedidoCliente_Art_Colores_PendientesDataTableRules.GetCOLOR3IsNull: boolean;
+begin
+ result := DataTable.Fields[idx_PedidoCliente_Art_Colores_PendientesCOLOR3].IsNull;
+end;
+
+procedure TPedidoCliente_Art_Colores_PendientesDataTableRules.SetCOLOR3IsNull(const aValue: Boolean);
+begin
+ if aValue then
+ DataTable.Fields[idx_PedidoCliente_Art_Colores_PendientesCOLOR3].AsVariant := Null;
+end;
+
+function TPedidoCliente_Art_Colores_PendientesDataTableRules.GetCOLOR4Value: Int64;
+begin
+ result := DataTable.Fields[idx_PedidoCliente_Art_Colores_PendientesCOLOR4].AsLargeInt;
+end;
+
+procedure TPedidoCliente_Art_Colores_PendientesDataTableRules.SetCOLOR4Value(const aValue: Int64);
+begin
+ DataTable.Fields[idx_PedidoCliente_Art_Colores_PendientesCOLOR4].AsLargeInt := aValue;
+end;
+
+function TPedidoCliente_Art_Colores_PendientesDataTableRules.GetCOLOR4IsNull: boolean;
+begin
+ result := DataTable.Fields[idx_PedidoCliente_Art_Colores_PendientesCOLOR4].IsNull;
+end;
+
+procedure TPedidoCliente_Art_Colores_PendientesDataTableRules.SetCOLOR4IsNull(const aValue: Boolean);
+begin
+ if aValue then
+ DataTable.Fields[idx_PedidoCliente_Art_Colores_PendientesCOLOR4].AsVariant := Null;
+end;
+
+function TPedidoCliente_Art_Colores_PendientesDataTableRules.GetCOLOR5Value: Int64;
+begin
+ result := DataTable.Fields[idx_PedidoCliente_Art_Colores_PendientesCOLOR5].AsLargeInt;
+end;
+
+procedure TPedidoCliente_Art_Colores_PendientesDataTableRules.SetCOLOR5Value(const aValue: Int64);
+begin
+ DataTable.Fields[idx_PedidoCliente_Art_Colores_PendientesCOLOR5].AsLargeInt := aValue;
+end;
+
+function TPedidoCliente_Art_Colores_PendientesDataTableRules.GetCOLOR5IsNull: boolean;
+begin
+ result := DataTable.Fields[idx_PedidoCliente_Art_Colores_PendientesCOLOR5].IsNull;
+end;
+
+procedure TPedidoCliente_Art_Colores_PendientesDataTableRules.SetCOLOR5IsNull(const aValue: Boolean);
+begin
+ if aValue then
+ DataTable.Fields[idx_PedidoCliente_Art_Colores_PendientesCOLOR5].AsVariant := Null;
+end;
+
+function TPedidoCliente_Art_Colores_PendientesDataTableRules.GetCOLOR6Value: Int64;
+begin
+ result := DataTable.Fields[idx_PedidoCliente_Art_Colores_PendientesCOLOR6].AsLargeInt;
+end;
+
+procedure TPedidoCliente_Art_Colores_PendientesDataTableRules.SetCOLOR6Value(const aValue: Int64);
+begin
+ DataTable.Fields[idx_PedidoCliente_Art_Colores_PendientesCOLOR6].AsLargeInt := aValue;
+end;
+
+function TPedidoCliente_Art_Colores_PendientesDataTableRules.GetCOLOR6IsNull: boolean;
+begin
+ result := DataTable.Fields[idx_PedidoCliente_Art_Colores_PendientesCOLOR6].IsNull;
+end;
+
+procedure TPedidoCliente_Art_Colores_PendientesDataTableRules.SetCOLOR6IsNull(const aValue: Boolean);
+begin
+ if aValue then
+ DataTable.Fields[idx_PedidoCliente_Art_Colores_PendientesCOLOR6].AsVariant := Null;
+end;
+
+function TPedidoCliente_Art_Colores_PendientesDataTableRules.GetCOLOR7Value: Int64;
+begin
+ result := DataTable.Fields[idx_PedidoCliente_Art_Colores_PendientesCOLOR7].AsLargeInt;
+end;
+
+procedure TPedidoCliente_Art_Colores_PendientesDataTableRules.SetCOLOR7Value(const aValue: Int64);
+begin
+ DataTable.Fields[idx_PedidoCliente_Art_Colores_PendientesCOLOR7].AsLargeInt := aValue;
+end;
+
+function TPedidoCliente_Art_Colores_PendientesDataTableRules.GetCOLOR7IsNull: boolean;
+begin
+ result := DataTable.Fields[idx_PedidoCliente_Art_Colores_PendientesCOLOR7].IsNull;
+end;
+
+procedure TPedidoCliente_Art_Colores_PendientesDataTableRules.SetCOLOR7IsNull(const aValue: Boolean);
+begin
+ if aValue then
+ DataTable.Fields[idx_PedidoCliente_Art_Colores_PendientesCOLOR7].AsVariant := Null;
+end;
+
+function TPedidoCliente_Art_Colores_PendientesDataTableRules.GetCOLOR8Value: Int64;
+begin
+ result := DataTable.Fields[idx_PedidoCliente_Art_Colores_PendientesCOLOR8].AsLargeInt;
+end;
+
+procedure TPedidoCliente_Art_Colores_PendientesDataTableRules.SetCOLOR8Value(const aValue: Int64);
+begin
+ DataTable.Fields[idx_PedidoCliente_Art_Colores_PendientesCOLOR8].AsLargeInt := aValue;
+end;
+
+function TPedidoCliente_Art_Colores_PendientesDataTableRules.GetCOLOR8IsNull: boolean;
+begin
+ result := DataTable.Fields[idx_PedidoCliente_Art_Colores_PendientesCOLOR8].IsNull;
+end;
+
+procedure TPedidoCliente_Art_Colores_PendientesDataTableRules.SetCOLOR8IsNull(const aValue: Boolean);
+begin
+ if aValue then
+ DataTable.Fields[idx_PedidoCliente_Art_Colores_PendientesCOLOR8].AsVariant := Null;
+end;
+
+function TPedidoCliente_Art_Colores_PendientesDataTableRules.GetCOLOR9Value: Int64;
+begin
+ result := DataTable.Fields[idx_PedidoCliente_Art_Colores_PendientesCOLOR9].AsLargeInt;
+end;
+
+procedure TPedidoCliente_Art_Colores_PendientesDataTableRules.SetCOLOR9Value(const aValue: Int64);
+begin
+ DataTable.Fields[idx_PedidoCliente_Art_Colores_PendientesCOLOR9].AsLargeInt := aValue;
+end;
+
+function TPedidoCliente_Art_Colores_PendientesDataTableRules.GetCOLOR9IsNull: boolean;
+begin
+ result := DataTable.Fields[idx_PedidoCliente_Art_Colores_PendientesCOLOR9].IsNull;
+end;
+
+procedure TPedidoCliente_Art_Colores_PendientesDataTableRules.SetCOLOR9IsNull(const aValue: Boolean);
+begin
+ if aValue then
+ DataTable.Fields[idx_PedidoCliente_Art_Colores_PendientesCOLOR9].AsVariant := Null;
+end;
+
+function TPedidoCliente_Art_Colores_PendientesDataTableRules.GetCOLOR10Value: Int64;
+begin
+ result := DataTable.Fields[idx_PedidoCliente_Art_Colores_PendientesCOLOR10].AsLargeInt;
+end;
+
+procedure TPedidoCliente_Art_Colores_PendientesDataTableRules.SetCOLOR10Value(const aValue: Int64);
+begin
+ DataTable.Fields[idx_PedidoCliente_Art_Colores_PendientesCOLOR10].AsLargeInt := aValue;
+end;
+
+function TPedidoCliente_Art_Colores_PendientesDataTableRules.GetCOLOR10IsNull: boolean;
+begin
+ result := DataTable.Fields[idx_PedidoCliente_Art_Colores_PendientesCOLOR10].IsNull;
+end;
+
+procedure TPedidoCliente_Art_Colores_PendientesDataTableRules.SetCOLOR10IsNull(const aValue: Boolean);
+begin
+ if aValue then
+ DataTable.Fields[idx_PedidoCliente_Art_Colores_PendientesCOLOR10].AsVariant := Null;
+end;
+
+function TPedidoCliente_Art_Colores_PendientesDataTableRules.GetCOLOR11Value: Int64;
+begin
+ result := DataTable.Fields[idx_PedidoCliente_Art_Colores_PendientesCOLOR11].AsLargeInt;
+end;
+
+procedure TPedidoCliente_Art_Colores_PendientesDataTableRules.SetCOLOR11Value(const aValue: Int64);
+begin
+ DataTable.Fields[idx_PedidoCliente_Art_Colores_PendientesCOLOR11].AsLargeInt := aValue;
+end;
+
+function TPedidoCliente_Art_Colores_PendientesDataTableRules.GetCOLOR11IsNull: boolean;
+begin
+ result := DataTable.Fields[idx_PedidoCliente_Art_Colores_PendientesCOLOR11].IsNull;
+end;
+
+procedure TPedidoCliente_Art_Colores_PendientesDataTableRules.SetCOLOR11IsNull(const aValue: Boolean);
+begin
+ if aValue then
+ DataTable.Fields[idx_PedidoCliente_Art_Colores_PendientesCOLOR11].AsVariant := Null;
+end;
+
+function TPedidoCliente_Art_Colores_PendientesDataTableRules.GetCOLOR12Value: Int64;
+begin
+ result := DataTable.Fields[idx_PedidoCliente_Art_Colores_PendientesCOLOR12].AsLargeInt;
+end;
+
+procedure TPedidoCliente_Art_Colores_PendientesDataTableRules.SetCOLOR12Value(const aValue: Int64);
+begin
+ DataTable.Fields[idx_PedidoCliente_Art_Colores_PendientesCOLOR12].AsLargeInt := aValue;
+end;
+
+function TPedidoCliente_Art_Colores_PendientesDataTableRules.GetCOLOR12IsNull: boolean;
+begin
+ result := DataTable.Fields[idx_PedidoCliente_Art_Colores_PendientesCOLOR12].IsNull;
+end;
+
+procedure TPedidoCliente_Art_Colores_PendientesDataTableRules.SetCOLOR12IsNull(const aValue: Boolean);
+begin
+ if aValue then
+ DataTable.Fields[idx_PedidoCliente_Art_Colores_PendientesCOLOR12].AsVariant := Null;
+end;
+
+
{ TListaAnosPedidosDataTableRules }
constructor TListaAnosPedidosDataTableRules.Create(aDataTable: TDADataTable);
begin
@@ -1342,14 +1873,14 @@ begin
DataTable.Fields[idx_PedidoCliente_ArticulosPendientesPedirAProvID_ARTICULO].AsVariant := Null;
end;
-function TPedidoCliente_ArticulosPendientesPedirAProvDataTableRules.GetCANT_PEDIDA_CLIENTEValue: Integer;
+function TPedidoCliente_ArticulosPendientesPedirAProvDataTableRules.GetCANT_PEDIDA_CLIENTEValue: Float;
begin
- result := DataTable.Fields[idx_PedidoCliente_ArticulosPendientesPedirAProvCANT_PEDIDA_CLIENTE].AsInteger;
+ result := DataTable.Fields[idx_PedidoCliente_ArticulosPendientesPedirAProvCANT_PEDIDA_CLIENTE].AsFloat;
end;
-procedure TPedidoCliente_ArticulosPendientesPedirAProvDataTableRules.SetCANT_PEDIDA_CLIENTEValue(const aValue: Integer);
+procedure TPedidoCliente_ArticulosPendientesPedirAProvDataTableRules.SetCANT_PEDIDA_CLIENTEValue(const aValue: Float);
begin
- DataTable.Fields[idx_PedidoCliente_ArticulosPendientesPedirAProvCANT_PEDIDA_CLIENTE].AsInteger := aValue;
+ DataTable.Fields[idx_PedidoCliente_ArticulosPendientesPedirAProvCANT_PEDIDA_CLIENTE].AsFloat := aValue;
end;
function TPedidoCliente_ArticulosPendientesPedirAProvDataTableRules.GetCANT_PEDIDA_CLIENTEIsNull: boolean;
@@ -1384,14 +1915,14 @@ begin
DataTable.Fields[idx_PedidoCliente_ArticulosPendientesPedirAProvID_PROVEEDOR].AsVariant := Null;
end;
-function TPedidoCliente_ArticulosPendientesPedirAProvDataTableRules.GetCANT_PEDIDA_PROVEEDORValue: Integer;
+function TPedidoCliente_ArticulosPendientesPedirAProvDataTableRules.GetCANT_PEDIDA_PROVEEDORValue: Float;
begin
- result := DataTable.Fields[idx_PedidoCliente_ArticulosPendientesPedirAProvCANT_PEDIDA_PROVEEDOR].AsInteger;
+ result := DataTable.Fields[idx_PedidoCliente_ArticulosPendientesPedirAProvCANT_PEDIDA_PROVEEDOR].AsFloat;
end;
-procedure TPedidoCliente_ArticulosPendientesPedirAProvDataTableRules.SetCANT_PEDIDA_PROVEEDORValue(const aValue: Integer);
+procedure TPedidoCliente_ArticulosPendientesPedirAProvDataTableRules.SetCANT_PEDIDA_PROVEEDORValue(const aValue: Float);
begin
- DataTable.Fields[idx_PedidoCliente_ArticulosPendientesPedirAProvCANT_PEDIDA_PROVEEDOR].AsInteger := aValue;
+ DataTable.Fields[idx_PedidoCliente_ArticulosPendientesPedirAProvCANT_PEDIDA_PROVEEDOR].AsFloat := aValue;
end;
function TPedidoCliente_ArticulosPendientesPedirAProvDataTableRules.GetCANT_PEDIDA_PROVEEDORIsNull: boolean;
@@ -1405,14 +1936,14 @@ begin
DataTable.Fields[idx_PedidoCliente_ArticulosPendientesPedirAProvCANT_PEDIDA_PROVEEDOR].AsVariant := Null;
end;
-function TPedidoCliente_ArticulosPendientesPedirAProvDataTableRules.GetCANT_PENDIENTE_PEDIRValue: Integer;
+function TPedidoCliente_ArticulosPendientesPedirAProvDataTableRules.GetCANT_PENDIENTE_PEDIRValue: Float;
begin
- result := DataTable.Fields[idx_PedidoCliente_ArticulosPendientesPedirAProvCANT_PENDIENTE_PEDIR].AsInteger;
+ result := DataTable.Fields[idx_PedidoCliente_ArticulosPendientesPedirAProvCANT_PENDIENTE_PEDIR].AsFloat;
end;
-procedure TPedidoCliente_ArticulosPendientesPedirAProvDataTableRules.SetCANT_PENDIENTE_PEDIRValue(const aValue: Integer);
+procedure TPedidoCliente_ArticulosPendientesPedirAProvDataTableRules.SetCANT_PENDIENTE_PEDIRValue(const aValue: Float);
begin
- DataTable.Fields[idx_PedidoCliente_ArticulosPendientesPedirAProvCANT_PENDIENTE_PEDIR].AsInteger := aValue;
+ DataTable.Fields[idx_PedidoCliente_ArticulosPendientesPedirAProvCANT_PENDIENTE_PEDIR].AsFloat := aValue;
end;
function TPedidoCliente_ArticulosPendientesPedirAProvDataTableRules.GetCANT_PENDIENTE_PEDIRIsNull: boolean;
@@ -2566,14 +3097,14 @@ begin
DataTable.Fields[idx_PedidoCliente_Articulos_PendientesID_ARTICULO].AsVariant := Null;
end;
-function TPedidoCliente_Articulos_PendientesDataTableRules.GetCANTIDAD_PEDValue: Integer;
+function TPedidoCliente_Articulos_PendientesDataTableRules.GetCANTIDAD_PEDValue: Float;
begin
- result := DataTable.Fields[idx_PedidoCliente_Articulos_PendientesCANTIDAD_PED].AsInteger;
+ result := DataTable.Fields[idx_PedidoCliente_Articulos_PendientesCANTIDAD_PED].AsFloat;
end;
-procedure TPedidoCliente_Articulos_PendientesDataTableRules.SetCANTIDAD_PEDValue(const aValue: Integer);
+procedure TPedidoCliente_Articulos_PendientesDataTableRules.SetCANTIDAD_PEDValue(const aValue: Float);
begin
- DataTable.Fields[idx_PedidoCliente_Articulos_PendientesCANTIDAD_PED].AsInteger := aValue;
+ DataTable.Fields[idx_PedidoCliente_Articulos_PendientesCANTIDAD_PED].AsFloat := aValue;
end;
function TPedidoCliente_Articulos_PendientesDataTableRules.GetCANTIDAD_PEDIsNull: boolean;
@@ -2587,14 +3118,14 @@ begin
DataTable.Fields[idx_PedidoCliente_Articulos_PendientesCANTIDAD_PED].AsVariant := Null;
end;
-function TPedidoCliente_Articulos_PendientesDataTableRules.GetCANTIDAD_ALBValue: Integer;
+function TPedidoCliente_Articulos_PendientesDataTableRules.GetCANTIDAD_ALBValue: Float;
begin
- result := DataTable.Fields[idx_PedidoCliente_Articulos_PendientesCANTIDAD_ALB].AsInteger;
+ result := DataTable.Fields[idx_PedidoCliente_Articulos_PendientesCANTIDAD_ALB].AsFloat;
end;
-procedure TPedidoCliente_Articulos_PendientesDataTableRules.SetCANTIDAD_ALBValue(const aValue: Integer);
+procedure TPedidoCliente_Articulos_PendientesDataTableRules.SetCANTIDAD_ALBValue(const aValue: Float);
begin
- DataTable.Fields[idx_PedidoCliente_Articulos_PendientesCANTIDAD_ALB].AsInteger := aValue;
+ DataTable.Fields[idx_PedidoCliente_Articulos_PendientesCANTIDAD_ALB].AsFloat := aValue;
end;
function TPedidoCliente_Articulos_PendientesDataTableRules.GetCANTIDAD_ALBIsNull: boolean;
@@ -2608,14 +3139,14 @@ begin
DataTable.Fields[idx_PedidoCliente_Articulos_PendientesCANTIDAD_ALB].AsVariant := Null;
end;
-function TPedidoCliente_Articulos_PendientesDataTableRules.GetCANTIDAD_PENDIENTEValue: Integer;
+function TPedidoCliente_Articulos_PendientesDataTableRules.GetCANTIDAD_PENDIENTEValue: Float;
begin
- result := DataTable.Fields[idx_PedidoCliente_Articulos_PendientesCANTIDAD_PENDIENTE].AsInteger;
+ result := DataTable.Fields[idx_PedidoCliente_Articulos_PendientesCANTIDAD_PENDIENTE].AsFloat;
end;
-procedure TPedidoCliente_Articulos_PendientesDataTableRules.SetCANTIDAD_PENDIENTEValue(const aValue: Integer);
+procedure TPedidoCliente_Articulos_PendientesDataTableRules.SetCANTIDAD_PENDIENTEValue(const aValue: Float);
begin
- DataTable.Fields[idx_PedidoCliente_Articulos_PendientesCANTIDAD_PENDIENTE].AsInteger := aValue;
+ DataTable.Fields[idx_PedidoCliente_Articulos_PendientesCANTIDAD_PENDIENTE].AsFloat := aValue;
end;
function TPedidoCliente_Articulos_PendientesDataTableRules.GetCANTIDAD_PENDIENTEIsNull: boolean;
@@ -2937,6 +3468,7 @@ end;
initialization
+ RegisterDataTableRules(RID_PedidoCliente_Art_Colores_Pendientes, TPedidoCliente_Art_Colores_PendientesDataTableRules);
RegisterDataTableRules(RID_ListaAnosPedidos, TListaAnosPedidosDataTableRules);
RegisterDataTableRules(RID_PedidoCliente_ArticulosPendientesPedirAProv, TPedidoCliente_ArticulosPendientesPedirAProvDataTableRules);
RegisterDataTableRules(RID_PedidosCliente, TPedidosClienteDataTableRules);
diff --git a/Source/Modulos/Pedidos de cliente/Model/schPedidosClienteServer_Intf.pas b/Source/Modulos/Pedidos de cliente/Model/schPedidosClienteServer_Intf.pas
index 27095be..65f316b 100644
--- a/Source/Modulos/Pedidos de cliente/Model/schPedidosClienteServer_Intf.pas
+++ b/Source/Modulos/Pedidos de cliente/Model/schPedidosClienteServer_Intf.pas
@@ -10,17 +10,208 @@ 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 = '{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}';
+ RID_PedidoCliente_Art_Colores_PendientesDelta = '{9B6E23A7-E154-4BB1-92C8-CCD932C2CFEE}';
+ RID_ListaAnosPedidosDelta = '{E25EDE72-F855-44DD-B936-70E742782766}';
+ RID_PedidoCliente_ArticulosPendientesPedirAProvDelta = '{CD6D6915-028F-4C5F-9F62-5118E0546F2E}';
+ RID_PedidosClienteDelta = '{6C497F53-C0F8-4F1A-89A8-3896B9901C6F}';
+ RID_PedidosCliente_DetallesDelta = '{A2D12C3B-DDE4-4D84-B136-02BDED3566D9}';
+ RID_PedidoCliente_Articulos_PendientesDelta = '{812585BF-8205-45F0-A085-AABFC1341609}';
+ RID_PedidosCliente_Detalle_ColorDelta = '{8B9E6B02-0B8E-4277-B618-BB3E0E9AAC8F}';
type
+ { IPedidoCliente_Art_Colores_PendientesDelta }
+ IPedidoCliente_Art_Colores_PendientesDelta = interface(IPedidoCliente_Art_Colores_Pendientes)
+ ['{9B6E23A7-E154-4BB1-92C8-CCD932C2CFEE}']
+ { Property getters and setters }
+ function GetOldID_PEDIDOValue : Integer;
+ function GetOldID_ARTICULOValue : Integer;
+ function GetOldCOLOR1Value : Int64;
+ function GetOldCOLOR2Value : Int64;
+ function GetOldCOLOR3Value : Int64;
+ function GetOldCOLOR4Value : Int64;
+ function GetOldCOLOR5Value : Int64;
+ function GetOldCOLOR6Value : Int64;
+ function GetOldCOLOR7Value : Int64;
+ function GetOldCOLOR8Value : Int64;
+ function GetOldCOLOR9Value : Int64;
+ function GetOldCOLOR10Value : Int64;
+ function GetOldCOLOR11Value : Int64;
+ function GetOldCOLOR12Value : Int64;
+
+ { Properties }
+ property OldID_PEDIDO : Integer read GetOldID_PEDIDOValue;
+ property OldID_ARTICULO : Integer read GetOldID_ARTICULOValue;
+ property OldCOLOR1 : Int64 read GetOldCOLOR1Value;
+ property OldCOLOR2 : Int64 read GetOldCOLOR2Value;
+ property OldCOLOR3 : Int64 read GetOldCOLOR3Value;
+ property OldCOLOR4 : Int64 read GetOldCOLOR4Value;
+ property OldCOLOR5 : Int64 read GetOldCOLOR5Value;
+ property OldCOLOR6 : Int64 read GetOldCOLOR6Value;
+ property OldCOLOR7 : Int64 read GetOldCOLOR7Value;
+ property OldCOLOR8 : Int64 read GetOldCOLOR8Value;
+ property OldCOLOR9 : Int64 read GetOldCOLOR9Value;
+ property OldCOLOR10 : Int64 read GetOldCOLOR10Value;
+ property OldCOLOR11 : Int64 read GetOldCOLOR11Value;
+ property OldCOLOR12 : Int64 read GetOldCOLOR12Value;
+ end;
+
+ { TPedidoCliente_Art_Colores_PendientesBusinessProcessorRules }
+ TPedidoCliente_Art_Colores_PendientesBusinessProcessorRules = class(TDABusinessProcessorRules, IPedidoCliente_Art_Colores_Pendientes, IPedidoCliente_Art_Colores_PendientesDelta)
+ private
+ protected
+ { Property getters and setters }
+ function GetID_PEDIDOValue: Integer; virtual;
+ function GetID_PEDIDOIsNull: Boolean; virtual;
+ function GetOldID_PEDIDOValue: Integer; virtual;
+ function GetOldID_PEDIDOIsNull: Boolean; virtual;
+ procedure SetID_PEDIDOValue(const aValue: Integer); virtual;
+ procedure SetID_PEDIDOIsNull(const aValue: Boolean); virtual;
+ function GetID_ARTICULOValue: Integer; virtual;
+ function GetID_ARTICULOIsNull: Boolean; virtual;
+ function GetOldID_ARTICULOValue: Integer; virtual;
+ function GetOldID_ARTICULOIsNull: Boolean; virtual;
+ procedure SetID_ARTICULOValue(const aValue: Integer); virtual;
+ procedure SetID_ARTICULOIsNull(const aValue: Boolean); virtual;
+ function GetCOLOR1Value: Int64; virtual;
+ function GetCOLOR1IsNull: Boolean; virtual;
+ function GetOldCOLOR1Value: Int64; virtual;
+ function GetOldCOLOR1IsNull: Boolean; virtual;
+ procedure SetCOLOR1Value(const aValue: Int64); virtual;
+ procedure SetCOLOR1IsNull(const aValue: Boolean); virtual;
+ function GetCOLOR2Value: Int64; virtual;
+ function GetCOLOR2IsNull: Boolean; virtual;
+ function GetOldCOLOR2Value: Int64; virtual;
+ function GetOldCOLOR2IsNull: Boolean; virtual;
+ procedure SetCOLOR2Value(const aValue: Int64); virtual;
+ procedure SetCOLOR2IsNull(const aValue: Boolean); virtual;
+ function GetCOLOR3Value: Int64; virtual;
+ function GetCOLOR3IsNull: Boolean; virtual;
+ function GetOldCOLOR3Value: Int64; virtual;
+ function GetOldCOLOR3IsNull: Boolean; virtual;
+ procedure SetCOLOR3Value(const aValue: Int64); virtual;
+ procedure SetCOLOR3IsNull(const aValue: Boolean); virtual;
+ function GetCOLOR4Value: Int64; virtual;
+ function GetCOLOR4IsNull: Boolean; virtual;
+ function GetOldCOLOR4Value: Int64; virtual;
+ function GetOldCOLOR4IsNull: Boolean; virtual;
+ procedure SetCOLOR4Value(const aValue: Int64); virtual;
+ procedure SetCOLOR4IsNull(const aValue: Boolean); virtual;
+ function GetCOLOR5Value: Int64; virtual;
+ function GetCOLOR5IsNull: Boolean; virtual;
+ function GetOldCOLOR5Value: Int64; virtual;
+ function GetOldCOLOR5IsNull: Boolean; virtual;
+ procedure SetCOLOR5Value(const aValue: Int64); virtual;
+ procedure SetCOLOR5IsNull(const aValue: Boolean); virtual;
+ function GetCOLOR6Value: Int64; virtual;
+ function GetCOLOR6IsNull: Boolean; virtual;
+ function GetOldCOLOR6Value: Int64; virtual;
+ function GetOldCOLOR6IsNull: Boolean; virtual;
+ procedure SetCOLOR6Value(const aValue: Int64); virtual;
+ procedure SetCOLOR6IsNull(const aValue: Boolean); virtual;
+ function GetCOLOR7Value: Int64; virtual;
+ function GetCOLOR7IsNull: Boolean; virtual;
+ function GetOldCOLOR7Value: Int64; virtual;
+ function GetOldCOLOR7IsNull: Boolean; virtual;
+ procedure SetCOLOR7Value(const aValue: Int64); virtual;
+ procedure SetCOLOR7IsNull(const aValue: Boolean); virtual;
+ function GetCOLOR8Value: Int64; virtual;
+ function GetCOLOR8IsNull: Boolean; virtual;
+ function GetOldCOLOR8Value: Int64; virtual;
+ function GetOldCOLOR8IsNull: Boolean; virtual;
+ procedure SetCOLOR8Value(const aValue: Int64); virtual;
+ procedure SetCOLOR8IsNull(const aValue: Boolean); virtual;
+ function GetCOLOR9Value: Int64; virtual;
+ function GetCOLOR9IsNull: Boolean; virtual;
+ function GetOldCOLOR9Value: Int64; virtual;
+ function GetOldCOLOR9IsNull: Boolean; virtual;
+ procedure SetCOLOR9Value(const aValue: Int64); virtual;
+ procedure SetCOLOR9IsNull(const aValue: Boolean); virtual;
+ function GetCOLOR10Value: Int64; virtual;
+ function GetCOLOR10IsNull: Boolean; virtual;
+ function GetOldCOLOR10Value: Int64; virtual;
+ function GetOldCOLOR10IsNull: Boolean; virtual;
+ procedure SetCOLOR10Value(const aValue: Int64); virtual;
+ procedure SetCOLOR10IsNull(const aValue: Boolean); virtual;
+ function GetCOLOR11Value: Int64; virtual;
+ function GetCOLOR11IsNull: Boolean; virtual;
+ function GetOldCOLOR11Value: Int64; virtual;
+ function GetOldCOLOR11IsNull: Boolean; virtual;
+ procedure SetCOLOR11Value(const aValue: Int64); virtual;
+ procedure SetCOLOR11IsNull(const aValue: Boolean); virtual;
+ function GetCOLOR12Value: Int64; virtual;
+ function GetCOLOR12IsNull: Boolean; virtual;
+ function GetOldCOLOR12Value: Int64; virtual;
+ function GetOldCOLOR12IsNull: Boolean; virtual;
+ procedure SetCOLOR12Value(const aValue: Int64); virtual;
+ procedure SetCOLOR12IsNull(const aValue: Boolean); virtual;
+
+ { Properties }
+ property ID_PEDIDO : Integer read GetID_PEDIDOValue write SetID_PEDIDOValue;
+ property ID_PEDIDOIsNull : Boolean read GetID_PEDIDOIsNull write SetID_PEDIDOIsNull;
+ property OldID_PEDIDO : Integer read GetOldID_PEDIDOValue;
+ property OldID_PEDIDOIsNull : Boolean read GetOldID_PEDIDOIsNull;
+ property ID_ARTICULO : Integer read GetID_ARTICULOValue write SetID_ARTICULOValue;
+ property ID_ARTICULOIsNull : Boolean read GetID_ARTICULOIsNull write SetID_ARTICULOIsNull;
+ property OldID_ARTICULO : Integer read GetOldID_ARTICULOValue;
+ property OldID_ARTICULOIsNull : Boolean read GetOldID_ARTICULOIsNull;
+ property COLOR1 : Int64 read GetCOLOR1Value write SetCOLOR1Value;
+ property COLOR1IsNull : Boolean read GetCOLOR1IsNull write SetCOLOR1IsNull;
+ property OldCOLOR1 : Int64 read GetOldCOLOR1Value;
+ property OldCOLOR1IsNull : Boolean read GetOldCOLOR1IsNull;
+ property COLOR2 : Int64 read GetCOLOR2Value write SetCOLOR2Value;
+ property COLOR2IsNull : Boolean read GetCOLOR2IsNull write SetCOLOR2IsNull;
+ property OldCOLOR2 : Int64 read GetOldCOLOR2Value;
+ property OldCOLOR2IsNull : Boolean read GetOldCOLOR2IsNull;
+ property COLOR3 : Int64 read GetCOLOR3Value write SetCOLOR3Value;
+ property COLOR3IsNull : Boolean read GetCOLOR3IsNull write SetCOLOR3IsNull;
+ property OldCOLOR3 : Int64 read GetOldCOLOR3Value;
+ property OldCOLOR3IsNull : Boolean read GetOldCOLOR3IsNull;
+ property COLOR4 : Int64 read GetCOLOR4Value write SetCOLOR4Value;
+ property COLOR4IsNull : Boolean read GetCOLOR4IsNull write SetCOLOR4IsNull;
+ property OldCOLOR4 : Int64 read GetOldCOLOR4Value;
+ property OldCOLOR4IsNull : Boolean read GetOldCOLOR4IsNull;
+ property COLOR5 : Int64 read GetCOLOR5Value write SetCOLOR5Value;
+ property COLOR5IsNull : Boolean read GetCOLOR5IsNull write SetCOLOR5IsNull;
+ property OldCOLOR5 : Int64 read GetOldCOLOR5Value;
+ property OldCOLOR5IsNull : Boolean read GetOldCOLOR5IsNull;
+ property COLOR6 : Int64 read GetCOLOR6Value write SetCOLOR6Value;
+ property COLOR6IsNull : Boolean read GetCOLOR6IsNull write SetCOLOR6IsNull;
+ property OldCOLOR6 : Int64 read GetOldCOLOR6Value;
+ property OldCOLOR6IsNull : Boolean read GetOldCOLOR6IsNull;
+ property COLOR7 : Int64 read GetCOLOR7Value write SetCOLOR7Value;
+ property COLOR7IsNull : Boolean read GetCOLOR7IsNull write SetCOLOR7IsNull;
+ property OldCOLOR7 : Int64 read GetOldCOLOR7Value;
+ property OldCOLOR7IsNull : Boolean read GetOldCOLOR7IsNull;
+ property COLOR8 : Int64 read GetCOLOR8Value write SetCOLOR8Value;
+ property COLOR8IsNull : Boolean read GetCOLOR8IsNull write SetCOLOR8IsNull;
+ property OldCOLOR8 : Int64 read GetOldCOLOR8Value;
+ property OldCOLOR8IsNull : Boolean read GetOldCOLOR8IsNull;
+ property COLOR9 : Int64 read GetCOLOR9Value write SetCOLOR9Value;
+ property COLOR9IsNull : Boolean read GetCOLOR9IsNull write SetCOLOR9IsNull;
+ property OldCOLOR9 : Int64 read GetOldCOLOR9Value;
+ property OldCOLOR9IsNull : Boolean read GetOldCOLOR9IsNull;
+ property COLOR10 : Int64 read GetCOLOR10Value write SetCOLOR10Value;
+ property COLOR10IsNull : Boolean read GetCOLOR10IsNull write SetCOLOR10IsNull;
+ property OldCOLOR10 : Int64 read GetOldCOLOR10Value;
+ property OldCOLOR10IsNull : Boolean read GetOldCOLOR10IsNull;
+ property COLOR11 : Int64 read GetCOLOR11Value write SetCOLOR11Value;
+ property COLOR11IsNull : Boolean read GetCOLOR11IsNull write SetCOLOR11IsNull;
+ property OldCOLOR11 : Int64 read GetOldCOLOR11Value;
+ property OldCOLOR11IsNull : Boolean read GetOldCOLOR11IsNull;
+ property COLOR12 : Int64 read GetCOLOR12Value write SetCOLOR12Value;
+ property COLOR12IsNull : Boolean read GetCOLOR12IsNull write SetCOLOR12IsNull;
+ property OldCOLOR12 : Int64 read GetOldCOLOR12Value;
+ property OldCOLOR12IsNull : Boolean read GetOldCOLOR12IsNull;
+
+ public
+ constructor Create(aBusinessProcessor: TDABusinessProcessor); override;
+ destructor Destroy; override;
+
+ end;
+
{ IListaAnosPedidosDelta }
IListaAnosPedidosDelta = interface(IListaAnosPedidos)
- ['{617D55B7-E779-40EA-830C-C6A1769D54C5}']
+ ['{E25EDE72-F855-44DD-B936-70E742782766}']
{ Property getters and setters }
function GetOldANOValue : String;
@@ -54,22 +245,22 @@ type
{ IPedidoCliente_ArticulosPendientesPedirAProvDelta }
IPedidoCliente_ArticulosPendientesPedirAProvDelta = interface(IPedidoCliente_ArticulosPendientesPedirAProv)
- ['{481257F8-85E9-45D7-9026-7406ADBB6776}']
+ ['{CD6D6915-028F-4C5F-9F62-5118E0546F2E}']
{ Property getters and setters }
function GetOldID_PEDIDOValue : Integer;
function GetOldID_ARTICULOValue : Integer;
- function GetOldCANT_PEDIDA_CLIENTEValue : Integer;
+ function GetOldCANT_PEDIDA_CLIENTEValue : Float;
function GetOldID_PROVEEDORValue : Integer;
- function GetOldCANT_PEDIDA_PROVEEDORValue : Integer;
- function GetOldCANT_PENDIENTE_PEDIRValue : Integer;
+ function GetOldCANT_PEDIDA_PROVEEDORValue : Float;
+ function GetOldCANT_PENDIENTE_PEDIRValue : Float;
{ Properties }
property OldID_PEDIDO : Integer read GetOldID_PEDIDOValue;
property OldID_ARTICULO : Integer read GetOldID_ARTICULOValue;
- property OldCANT_PEDIDA_CLIENTE : Integer read GetOldCANT_PEDIDA_CLIENTEValue;
+ property OldCANT_PEDIDA_CLIENTE : Float read GetOldCANT_PEDIDA_CLIENTEValue;
property OldID_PROVEEDOR : Integer read GetOldID_PROVEEDORValue;
- property OldCANT_PEDIDA_PROVEEDOR : Integer read GetOldCANT_PEDIDA_PROVEEDORValue;
- property OldCANT_PENDIENTE_PEDIR : Integer read GetOldCANT_PENDIENTE_PEDIRValue;
+ property OldCANT_PEDIDA_PROVEEDOR : Float read GetOldCANT_PEDIDA_PROVEEDORValue;
+ property OldCANT_PENDIENTE_PEDIR : Float read GetOldCANT_PENDIENTE_PEDIRValue;
end;
{ TPedidoCliente_ArticulosPendientesPedirAProvBusinessProcessorRules }
@@ -89,11 +280,11 @@ type
function GetOldID_ARTICULOIsNull: Boolean; virtual;
procedure SetID_ARTICULOValue(const aValue: Integer); virtual;
procedure SetID_ARTICULOIsNull(const aValue: Boolean); virtual;
- function GetCANT_PEDIDA_CLIENTEValue: Integer; virtual;
+ function GetCANT_PEDIDA_CLIENTEValue: Float; virtual;
function GetCANT_PEDIDA_CLIENTEIsNull: Boolean; virtual;
- function GetOldCANT_PEDIDA_CLIENTEValue: Integer; virtual;
+ function GetOldCANT_PEDIDA_CLIENTEValue: Float; virtual;
function GetOldCANT_PEDIDA_CLIENTEIsNull: Boolean; virtual;
- procedure SetCANT_PEDIDA_CLIENTEValue(const aValue: Integer); virtual;
+ procedure SetCANT_PEDIDA_CLIENTEValue(const aValue: Float); virtual;
procedure SetCANT_PEDIDA_CLIENTEIsNull(const aValue: Boolean); virtual;
function GetID_PROVEEDORValue: Integer; virtual;
function GetID_PROVEEDORIsNull: Boolean; virtual;
@@ -101,17 +292,17 @@ type
function GetOldID_PROVEEDORIsNull: Boolean; virtual;
procedure SetID_PROVEEDORValue(const aValue: Integer); virtual;
procedure SetID_PROVEEDORIsNull(const aValue: Boolean); virtual;
- function GetCANT_PEDIDA_PROVEEDORValue: Integer; virtual;
+ function GetCANT_PEDIDA_PROVEEDORValue: Float; virtual;
function GetCANT_PEDIDA_PROVEEDORIsNull: Boolean; virtual;
- function GetOldCANT_PEDIDA_PROVEEDORValue: Integer; virtual;
+ function GetOldCANT_PEDIDA_PROVEEDORValue: Float; virtual;
function GetOldCANT_PEDIDA_PROVEEDORIsNull: Boolean; virtual;
- procedure SetCANT_PEDIDA_PROVEEDORValue(const aValue: Integer); virtual;
+ procedure SetCANT_PEDIDA_PROVEEDORValue(const aValue: Float); virtual;
procedure SetCANT_PEDIDA_PROVEEDORIsNull(const aValue: Boolean); virtual;
- function GetCANT_PENDIENTE_PEDIRValue: Integer; virtual;
+ function GetCANT_PENDIENTE_PEDIRValue: Float; virtual;
function GetCANT_PENDIENTE_PEDIRIsNull: Boolean; virtual;
- function GetOldCANT_PENDIENTE_PEDIRValue: Integer; virtual;
+ function GetOldCANT_PENDIENTE_PEDIRValue: Float; virtual;
function GetOldCANT_PENDIENTE_PEDIRIsNull: Boolean; virtual;
- procedure SetCANT_PENDIENTE_PEDIRValue(const aValue: Integer); virtual;
+ procedure SetCANT_PENDIENTE_PEDIRValue(const aValue: Float); virtual;
procedure SetCANT_PENDIENTE_PEDIRIsNull(const aValue: Boolean); virtual;
{ Properties }
@@ -123,21 +314,21 @@ type
property ID_ARTICULOIsNull : Boolean read GetID_ARTICULOIsNull write SetID_ARTICULOIsNull;
property OldID_ARTICULO : Integer read GetOldID_ARTICULOValue;
property OldID_ARTICULOIsNull : Boolean read GetOldID_ARTICULOIsNull;
- property CANT_PEDIDA_CLIENTE : Integer read GetCANT_PEDIDA_CLIENTEValue write SetCANT_PEDIDA_CLIENTEValue;
+ property CANT_PEDIDA_CLIENTE : Float read GetCANT_PEDIDA_CLIENTEValue write SetCANT_PEDIDA_CLIENTEValue;
property CANT_PEDIDA_CLIENTEIsNull : Boolean read GetCANT_PEDIDA_CLIENTEIsNull write SetCANT_PEDIDA_CLIENTEIsNull;
- property OldCANT_PEDIDA_CLIENTE : Integer read GetOldCANT_PEDIDA_CLIENTEValue;
+ property OldCANT_PEDIDA_CLIENTE : Float read GetOldCANT_PEDIDA_CLIENTEValue;
property OldCANT_PEDIDA_CLIENTEIsNull : Boolean read GetOldCANT_PEDIDA_CLIENTEIsNull;
property ID_PROVEEDOR : Integer read GetID_PROVEEDORValue write SetID_PROVEEDORValue;
property ID_PROVEEDORIsNull : Boolean read GetID_PROVEEDORIsNull write SetID_PROVEEDORIsNull;
property OldID_PROVEEDOR : Integer read GetOldID_PROVEEDORValue;
property OldID_PROVEEDORIsNull : Boolean read GetOldID_PROVEEDORIsNull;
- property CANT_PEDIDA_PROVEEDOR : Integer read GetCANT_PEDIDA_PROVEEDORValue write SetCANT_PEDIDA_PROVEEDORValue;
+ property CANT_PEDIDA_PROVEEDOR : Float read GetCANT_PEDIDA_PROVEEDORValue write SetCANT_PEDIDA_PROVEEDORValue;
property CANT_PEDIDA_PROVEEDORIsNull : Boolean read GetCANT_PEDIDA_PROVEEDORIsNull write SetCANT_PEDIDA_PROVEEDORIsNull;
- property OldCANT_PEDIDA_PROVEEDOR : Integer read GetOldCANT_PEDIDA_PROVEEDORValue;
+ property OldCANT_PEDIDA_PROVEEDOR : Float read GetOldCANT_PEDIDA_PROVEEDORValue;
property OldCANT_PEDIDA_PROVEEDORIsNull : Boolean read GetOldCANT_PEDIDA_PROVEEDORIsNull;
- property CANT_PENDIENTE_PEDIR : Integer read GetCANT_PENDIENTE_PEDIRValue write SetCANT_PENDIENTE_PEDIRValue;
+ property CANT_PENDIENTE_PEDIR : Float read GetCANT_PENDIENTE_PEDIRValue write SetCANT_PENDIENTE_PEDIRValue;
property CANT_PENDIENTE_PEDIRIsNull : Boolean read GetCANT_PENDIENTE_PEDIRIsNull write SetCANT_PENDIENTE_PEDIRIsNull;
- property OldCANT_PENDIENTE_PEDIR : Integer read GetOldCANT_PENDIENTE_PEDIRValue;
+ property OldCANT_PENDIENTE_PEDIR : Float read GetOldCANT_PENDIENTE_PEDIRValue;
property OldCANT_PENDIENTE_PEDIRIsNull : Boolean read GetOldCANT_PENDIENTE_PEDIRIsNull;
public
@@ -148,7 +339,7 @@ type
{ IPedidosClienteDelta }
IPedidosClienteDelta = interface(IPedidosCliente)
- ['{735405CE-2979-407D-B693-C6121AEF5B99}']
+ ['{6C497F53-C0F8-4F1A-89A8-3896B9901C6F}']
{ Property getters and setters }
function GetOldIDValue : Integer;
function GetOldID_EMPRESAValue : Integer;
@@ -604,7 +795,7 @@ type
{ IPedidosCliente_DetallesDelta }
IPedidosCliente_DetallesDelta = interface(IPedidosCliente_Detalles)
- ['{8CB2D21E-806D-4058-A9F0-1C281C84E223}']
+ ['{A2D12C3B-DDE4-4D84-B136-02BDED3566D9}']
{ Property getters and setters }
function GetOldIDValue : Integer;
function GetOldID_PEDIDOValue : Integer;
@@ -806,18 +997,18 @@ type
{ IPedidoCliente_Articulos_PendientesDelta }
IPedidoCliente_Articulos_PendientesDelta = interface(IPedidoCliente_Articulos_Pendientes)
- ['{7F05C554-8229-44C3-BEFF-6EEA3857594E}']
+ ['{812585BF-8205-45F0-A085-AABFC1341609}']
{ Property getters and setters }
function GetOldID_ARTICULOValue : Integer;
- function GetOldCANTIDAD_PEDValue : Integer;
- function GetOldCANTIDAD_ALBValue : Integer;
- function GetOldCANTIDAD_PENDIENTEValue : Integer;
+ function GetOldCANTIDAD_PEDValue : Float;
+ function GetOldCANTIDAD_ALBValue : Float;
+ function GetOldCANTIDAD_PENDIENTEValue : Float;
{ Properties }
property OldID_ARTICULO : Integer read GetOldID_ARTICULOValue;
- property OldCANTIDAD_PED : Integer read GetOldCANTIDAD_PEDValue;
- property OldCANTIDAD_ALB : Integer read GetOldCANTIDAD_ALBValue;
- property OldCANTIDAD_PENDIENTE : Integer read GetOldCANTIDAD_PENDIENTEValue;
+ property OldCANTIDAD_PED : Float read GetOldCANTIDAD_PEDValue;
+ property OldCANTIDAD_ALB : Float read GetOldCANTIDAD_ALBValue;
+ property OldCANTIDAD_PENDIENTE : Float read GetOldCANTIDAD_PENDIENTEValue;
end;
{ TPedidoCliente_Articulos_PendientesBusinessProcessorRules }
@@ -831,23 +1022,23 @@ type
function GetOldID_ARTICULOIsNull: Boolean; virtual;
procedure SetID_ARTICULOValue(const aValue: Integer); virtual;
procedure SetID_ARTICULOIsNull(const aValue: Boolean); virtual;
- function GetCANTIDAD_PEDValue: Integer; virtual;
+ function GetCANTIDAD_PEDValue: Float; virtual;
function GetCANTIDAD_PEDIsNull: Boolean; virtual;
- function GetOldCANTIDAD_PEDValue: Integer; virtual;
+ function GetOldCANTIDAD_PEDValue: Float; virtual;
function GetOldCANTIDAD_PEDIsNull: Boolean; virtual;
- procedure SetCANTIDAD_PEDValue(const aValue: Integer); virtual;
+ procedure SetCANTIDAD_PEDValue(const aValue: Float); virtual;
procedure SetCANTIDAD_PEDIsNull(const aValue: Boolean); virtual;
- function GetCANTIDAD_ALBValue: Integer; virtual;
+ function GetCANTIDAD_ALBValue: Float; virtual;
function GetCANTIDAD_ALBIsNull: Boolean; virtual;
- function GetOldCANTIDAD_ALBValue: Integer; virtual;
+ function GetOldCANTIDAD_ALBValue: Float; virtual;
function GetOldCANTIDAD_ALBIsNull: Boolean; virtual;
- procedure SetCANTIDAD_ALBValue(const aValue: Integer); virtual;
+ procedure SetCANTIDAD_ALBValue(const aValue: Float); virtual;
procedure SetCANTIDAD_ALBIsNull(const aValue: Boolean); virtual;
- function GetCANTIDAD_PENDIENTEValue: Integer; virtual;
+ function GetCANTIDAD_PENDIENTEValue: Float; virtual;
function GetCANTIDAD_PENDIENTEIsNull: Boolean; virtual;
- function GetOldCANTIDAD_PENDIENTEValue: Integer; virtual;
+ function GetOldCANTIDAD_PENDIENTEValue: Float; virtual;
function GetOldCANTIDAD_PENDIENTEIsNull: Boolean; virtual;
- procedure SetCANTIDAD_PENDIENTEValue(const aValue: Integer); virtual;
+ procedure SetCANTIDAD_PENDIENTEValue(const aValue: Float); virtual;
procedure SetCANTIDAD_PENDIENTEIsNull(const aValue: Boolean); virtual;
{ Properties }
@@ -855,17 +1046,17 @@ type
property ID_ARTICULOIsNull : Boolean read GetID_ARTICULOIsNull write SetID_ARTICULOIsNull;
property OldID_ARTICULO : Integer read GetOldID_ARTICULOValue;
property OldID_ARTICULOIsNull : Boolean read GetOldID_ARTICULOIsNull;
- property CANTIDAD_PED : Integer read GetCANTIDAD_PEDValue write SetCANTIDAD_PEDValue;
+ property CANTIDAD_PED : Float read GetCANTIDAD_PEDValue write SetCANTIDAD_PEDValue;
property CANTIDAD_PEDIsNull : Boolean read GetCANTIDAD_PEDIsNull write SetCANTIDAD_PEDIsNull;
- property OldCANTIDAD_PED : Integer read GetOldCANTIDAD_PEDValue;
+ property OldCANTIDAD_PED : Float read GetOldCANTIDAD_PEDValue;
property OldCANTIDAD_PEDIsNull : Boolean read GetOldCANTIDAD_PEDIsNull;
- property CANTIDAD_ALB : Integer read GetCANTIDAD_ALBValue write SetCANTIDAD_ALBValue;
+ property CANTIDAD_ALB : Float read GetCANTIDAD_ALBValue write SetCANTIDAD_ALBValue;
property CANTIDAD_ALBIsNull : Boolean read GetCANTIDAD_ALBIsNull write SetCANTIDAD_ALBIsNull;
- property OldCANTIDAD_ALB : Integer read GetOldCANTIDAD_ALBValue;
+ property OldCANTIDAD_ALB : Float read GetOldCANTIDAD_ALBValue;
property OldCANTIDAD_ALBIsNull : Boolean read GetOldCANTIDAD_ALBIsNull;
- property CANTIDAD_PENDIENTE : Integer read GetCANTIDAD_PENDIENTEValue write SetCANTIDAD_PENDIENTEValue;
+ property CANTIDAD_PENDIENTE : Float read GetCANTIDAD_PENDIENTEValue write SetCANTIDAD_PENDIENTEValue;
property CANTIDAD_PENDIENTEIsNull : Boolean read GetCANTIDAD_PENDIENTEIsNull write SetCANTIDAD_PENDIENTEIsNull;
- property OldCANTIDAD_PENDIENTE : Integer read GetOldCANTIDAD_PENDIENTEValue;
+ property OldCANTIDAD_PENDIENTE : Float read GetOldCANTIDAD_PENDIENTEValue;
property OldCANTIDAD_PENDIENTEIsNull : Boolean read GetOldCANTIDAD_PENDIENTEIsNull;
public
@@ -876,7 +1067,7 @@ type
{ IPedidosCliente_Detalle_ColorDelta }
IPedidosCliente_Detalle_ColorDelta = interface(IPedidosCliente_Detalle_Color)
- ['{02CF7475-6483-4BA4-A515-6636F11E37B2}']
+ ['{8B9E6B02-0B8E-4277-B618-BB3E0E9AAC8F}']
{ Property getters and setters }
function GetOldIDValue : Integer;
function GetOldID_DETALLEValue : Integer;
@@ -1069,6 +1260,508 @@ implementation
uses
Variants, uROBinaryHelpers, uDAInterfaces;
+{ TPedidoCliente_Art_Colores_PendientesBusinessProcessorRules }
+constructor TPedidoCliente_Art_Colores_PendientesBusinessProcessorRules.Create(aBusinessProcessor: TDABusinessProcessor);
+begin
+ inherited;
+end;
+
+destructor TPedidoCliente_Art_Colores_PendientesBusinessProcessorRules.Destroy;
+begin
+ inherited;
+end;
+
+function TPedidoCliente_Art_Colores_PendientesBusinessProcessorRules.GetID_PEDIDOValue: Integer;
+begin
+ result := BusinessProcessor.CurrentChange.NewValueByName[fld_PedidoCliente_Art_Colores_PendientesID_PEDIDO];
+end;
+
+function TPedidoCliente_Art_Colores_PendientesBusinessProcessorRules.GetID_PEDIDOIsNull: Boolean;
+var v: variant;
+begin
+ v := BusinessProcessor.CurrentChange.NewValueByName[fld_PedidoCliente_Art_Colores_PendientesID_PEDIDO];
+ result := VarIsNull(v) or VarIsClear(v);
+end;
+
+function TPedidoCliente_Art_Colores_PendientesBusinessProcessorRules.GetOldID_PEDIDOValue: Integer;
+begin
+ result := BusinessProcessor.CurrentChange.OldValueByName[fld_PedidoCliente_Art_Colores_PendientesID_PEDIDO];
+end;
+
+function TPedidoCliente_Art_Colores_PendientesBusinessProcessorRules.GetOldID_PEDIDOIsNull: Boolean;
+var v: variant;
+begin
+ v := BusinessProcessor.CurrentChange.OldValueByName[fld_PedidoCliente_Art_Colores_PendientesID_PEDIDO];
+ result := VarIsNull(v) or VarIsClear(v);
+end;
+
+procedure TPedidoCliente_Art_Colores_PendientesBusinessProcessorRules.SetID_PEDIDOValue(const aValue: Integer);
+begin
+ BusinessProcessor.CurrentChange.NewValueByName[fld_PedidoCliente_Art_Colores_PendientesID_PEDIDO] := aValue;
+end;
+
+procedure TPedidoCliente_Art_Colores_PendientesBusinessProcessorRules.SetID_PEDIDOIsNull(const aValue: Boolean);
+begin
+ if aValue then
+ BusinessProcessor.CurrentChange.NewValueByName[fld_PedidoCliente_Art_Colores_PendientesID_PEDIDO] := Null;
+end;
+
+function TPedidoCliente_Art_Colores_PendientesBusinessProcessorRules.GetID_ARTICULOValue: Integer;
+begin
+ result := BusinessProcessor.CurrentChange.NewValueByName[fld_PedidoCliente_Art_Colores_PendientesID_ARTICULO];
+end;
+
+function TPedidoCliente_Art_Colores_PendientesBusinessProcessorRules.GetID_ARTICULOIsNull: Boolean;
+var v: variant;
+begin
+ v := BusinessProcessor.CurrentChange.NewValueByName[fld_PedidoCliente_Art_Colores_PendientesID_ARTICULO];
+ result := VarIsNull(v) or VarIsClear(v);
+end;
+
+function TPedidoCliente_Art_Colores_PendientesBusinessProcessorRules.GetOldID_ARTICULOValue: Integer;
+begin
+ result := BusinessProcessor.CurrentChange.OldValueByName[fld_PedidoCliente_Art_Colores_PendientesID_ARTICULO];
+end;
+
+function TPedidoCliente_Art_Colores_PendientesBusinessProcessorRules.GetOldID_ARTICULOIsNull: Boolean;
+var v: variant;
+begin
+ v := BusinessProcessor.CurrentChange.OldValueByName[fld_PedidoCliente_Art_Colores_PendientesID_ARTICULO];
+ result := VarIsNull(v) or VarIsClear(v);
+end;
+
+procedure TPedidoCliente_Art_Colores_PendientesBusinessProcessorRules.SetID_ARTICULOValue(const aValue: Integer);
+begin
+ BusinessProcessor.CurrentChange.NewValueByName[fld_PedidoCliente_Art_Colores_PendientesID_ARTICULO] := aValue;
+end;
+
+procedure TPedidoCliente_Art_Colores_PendientesBusinessProcessorRules.SetID_ARTICULOIsNull(const aValue: Boolean);
+begin
+ if aValue then
+ BusinessProcessor.CurrentChange.NewValueByName[fld_PedidoCliente_Art_Colores_PendientesID_ARTICULO] := Null;
+end;
+
+function TPedidoCliente_Art_Colores_PendientesBusinessProcessorRules.GetCOLOR1Value: Int64;
+begin
+ result := BusinessProcessor.CurrentChange.NewValueByName[fld_PedidoCliente_Art_Colores_PendientesCOLOR1];
+end;
+
+function TPedidoCliente_Art_Colores_PendientesBusinessProcessorRules.GetCOLOR1IsNull: Boolean;
+var v: variant;
+begin
+ v := BusinessProcessor.CurrentChange.NewValueByName[fld_PedidoCliente_Art_Colores_PendientesCOLOR1];
+ result := VarIsNull(v) or VarIsClear(v);
+end;
+
+function TPedidoCliente_Art_Colores_PendientesBusinessProcessorRules.GetOldCOLOR1Value: Int64;
+begin
+ result := BusinessProcessor.CurrentChange.OldValueByName[fld_PedidoCliente_Art_Colores_PendientesCOLOR1];
+end;
+
+function TPedidoCliente_Art_Colores_PendientesBusinessProcessorRules.GetOldCOLOR1IsNull: Boolean;
+var v: variant;
+begin
+ v := BusinessProcessor.CurrentChange.OldValueByName[fld_PedidoCliente_Art_Colores_PendientesCOLOR1];
+ result := VarIsNull(v) or VarIsClear(v);
+end;
+
+procedure TPedidoCliente_Art_Colores_PendientesBusinessProcessorRules.SetCOLOR1Value(const aValue: Int64);
+begin
+ BusinessProcessor.CurrentChange.NewValueByName[fld_PedidoCliente_Art_Colores_PendientesCOLOR1] := aValue;
+end;
+
+procedure TPedidoCliente_Art_Colores_PendientesBusinessProcessorRules.SetCOLOR1IsNull(const aValue: Boolean);
+begin
+ if aValue then
+ BusinessProcessor.CurrentChange.NewValueByName[fld_PedidoCliente_Art_Colores_PendientesCOLOR1] := Null;
+end;
+
+function TPedidoCliente_Art_Colores_PendientesBusinessProcessorRules.GetCOLOR2Value: Int64;
+begin
+ result := BusinessProcessor.CurrentChange.NewValueByName[fld_PedidoCliente_Art_Colores_PendientesCOLOR2];
+end;
+
+function TPedidoCliente_Art_Colores_PendientesBusinessProcessorRules.GetCOLOR2IsNull: Boolean;
+var v: variant;
+begin
+ v := BusinessProcessor.CurrentChange.NewValueByName[fld_PedidoCliente_Art_Colores_PendientesCOLOR2];
+ result := VarIsNull(v) or VarIsClear(v);
+end;
+
+function TPedidoCliente_Art_Colores_PendientesBusinessProcessorRules.GetOldCOLOR2Value: Int64;
+begin
+ result := BusinessProcessor.CurrentChange.OldValueByName[fld_PedidoCliente_Art_Colores_PendientesCOLOR2];
+end;
+
+function TPedidoCliente_Art_Colores_PendientesBusinessProcessorRules.GetOldCOLOR2IsNull: Boolean;
+var v: variant;
+begin
+ v := BusinessProcessor.CurrentChange.OldValueByName[fld_PedidoCliente_Art_Colores_PendientesCOLOR2];
+ result := VarIsNull(v) or VarIsClear(v);
+end;
+
+procedure TPedidoCliente_Art_Colores_PendientesBusinessProcessorRules.SetCOLOR2Value(const aValue: Int64);
+begin
+ BusinessProcessor.CurrentChange.NewValueByName[fld_PedidoCliente_Art_Colores_PendientesCOLOR2] := aValue;
+end;
+
+procedure TPedidoCliente_Art_Colores_PendientesBusinessProcessorRules.SetCOLOR2IsNull(const aValue: Boolean);
+begin
+ if aValue then
+ BusinessProcessor.CurrentChange.NewValueByName[fld_PedidoCliente_Art_Colores_PendientesCOLOR2] := Null;
+end;
+
+function TPedidoCliente_Art_Colores_PendientesBusinessProcessorRules.GetCOLOR3Value: Int64;
+begin
+ result := BusinessProcessor.CurrentChange.NewValueByName[fld_PedidoCliente_Art_Colores_PendientesCOLOR3];
+end;
+
+function TPedidoCliente_Art_Colores_PendientesBusinessProcessorRules.GetCOLOR3IsNull: Boolean;
+var v: variant;
+begin
+ v := BusinessProcessor.CurrentChange.NewValueByName[fld_PedidoCliente_Art_Colores_PendientesCOLOR3];
+ result := VarIsNull(v) or VarIsClear(v);
+end;
+
+function TPedidoCliente_Art_Colores_PendientesBusinessProcessorRules.GetOldCOLOR3Value: Int64;
+begin
+ result := BusinessProcessor.CurrentChange.OldValueByName[fld_PedidoCliente_Art_Colores_PendientesCOLOR3];
+end;
+
+function TPedidoCliente_Art_Colores_PendientesBusinessProcessorRules.GetOldCOLOR3IsNull: Boolean;
+var v: variant;
+begin
+ v := BusinessProcessor.CurrentChange.OldValueByName[fld_PedidoCliente_Art_Colores_PendientesCOLOR3];
+ result := VarIsNull(v) or VarIsClear(v);
+end;
+
+procedure TPedidoCliente_Art_Colores_PendientesBusinessProcessorRules.SetCOLOR3Value(const aValue: Int64);
+begin
+ BusinessProcessor.CurrentChange.NewValueByName[fld_PedidoCliente_Art_Colores_PendientesCOLOR3] := aValue;
+end;
+
+procedure TPedidoCliente_Art_Colores_PendientesBusinessProcessorRules.SetCOLOR3IsNull(const aValue: Boolean);
+begin
+ if aValue then
+ BusinessProcessor.CurrentChange.NewValueByName[fld_PedidoCliente_Art_Colores_PendientesCOLOR3] := Null;
+end;
+
+function TPedidoCliente_Art_Colores_PendientesBusinessProcessorRules.GetCOLOR4Value: Int64;
+begin
+ result := BusinessProcessor.CurrentChange.NewValueByName[fld_PedidoCliente_Art_Colores_PendientesCOLOR4];
+end;
+
+function TPedidoCliente_Art_Colores_PendientesBusinessProcessorRules.GetCOLOR4IsNull: Boolean;
+var v: variant;
+begin
+ v := BusinessProcessor.CurrentChange.NewValueByName[fld_PedidoCliente_Art_Colores_PendientesCOLOR4];
+ result := VarIsNull(v) or VarIsClear(v);
+end;
+
+function TPedidoCliente_Art_Colores_PendientesBusinessProcessorRules.GetOldCOLOR4Value: Int64;
+begin
+ result := BusinessProcessor.CurrentChange.OldValueByName[fld_PedidoCliente_Art_Colores_PendientesCOLOR4];
+end;
+
+function TPedidoCliente_Art_Colores_PendientesBusinessProcessorRules.GetOldCOLOR4IsNull: Boolean;
+var v: variant;
+begin
+ v := BusinessProcessor.CurrentChange.OldValueByName[fld_PedidoCliente_Art_Colores_PendientesCOLOR4];
+ result := VarIsNull(v) or VarIsClear(v);
+end;
+
+procedure TPedidoCliente_Art_Colores_PendientesBusinessProcessorRules.SetCOLOR4Value(const aValue: Int64);
+begin
+ BusinessProcessor.CurrentChange.NewValueByName[fld_PedidoCliente_Art_Colores_PendientesCOLOR4] := aValue;
+end;
+
+procedure TPedidoCliente_Art_Colores_PendientesBusinessProcessorRules.SetCOLOR4IsNull(const aValue: Boolean);
+begin
+ if aValue then
+ BusinessProcessor.CurrentChange.NewValueByName[fld_PedidoCliente_Art_Colores_PendientesCOLOR4] := Null;
+end;
+
+function TPedidoCliente_Art_Colores_PendientesBusinessProcessorRules.GetCOLOR5Value: Int64;
+begin
+ result := BusinessProcessor.CurrentChange.NewValueByName[fld_PedidoCliente_Art_Colores_PendientesCOLOR5];
+end;
+
+function TPedidoCliente_Art_Colores_PendientesBusinessProcessorRules.GetCOLOR5IsNull: Boolean;
+var v: variant;
+begin
+ v := BusinessProcessor.CurrentChange.NewValueByName[fld_PedidoCliente_Art_Colores_PendientesCOLOR5];
+ result := VarIsNull(v) or VarIsClear(v);
+end;
+
+function TPedidoCliente_Art_Colores_PendientesBusinessProcessorRules.GetOldCOLOR5Value: Int64;
+begin
+ result := BusinessProcessor.CurrentChange.OldValueByName[fld_PedidoCliente_Art_Colores_PendientesCOLOR5];
+end;
+
+function TPedidoCliente_Art_Colores_PendientesBusinessProcessorRules.GetOldCOLOR5IsNull: Boolean;
+var v: variant;
+begin
+ v := BusinessProcessor.CurrentChange.OldValueByName[fld_PedidoCliente_Art_Colores_PendientesCOLOR5];
+ result := VarIsNull(v) or VarIsClear(v);
+end;
+
+procedure TPedidoCliente_Art_Colores_PendientesBusinessProcessorRules.SetCOLOR5Value(const aValue: Int64);
+begin
+ BusinessProcessor.CurrentChange.NewValueByName[fld_PedidoCliente_Art_Colores_PendientesCOLOR5] := aValue;
+end;
+
+procedure TPedidoCliente_Art_Colores_PendientesBusinessProcessorRules.SetCOLOR5IsNull(const aValue: Boolean);
+begin
+ if aValue then
+ BusinessProcessor.CurrentChange.NewValueByName[fld_PedidoCliente_Art_Colores_PendientesCOLOR5] := Null;
+end;
+
+function TPedidoCliente_Art_Colores_PendientesBusinessProcessorRules.GetCOLOR6Value: Int64;
+begin
+ result := BusinessProcessor.CurrentChange.NewValueByName[fld_PedidoCliente_Art_Colores_PendientesCOLOR6];
+end;
+
+function TPedidoCliente_Art_Colores_PendientesBusinessProcessorRules.GetCOLOR6IsNull: Boolean;
+var v: variant;
+begin
+ v := BusinessProcessor.CurrentChange.NewValueByName[fld_PedidoCliente_Art_Colores_PendientesCOLOR6];
+ result := VarIsNull(v) or VarIsClear(v);
+end;
+
+function TPedidoCliente_Art_Colores_PendientesBusinessProcessorRules.GetOldCOLOR6Value: Int64;
+begin
+ result := BusinessProcessor.CurrentChange.OldValueByName[fld_PedidoCliente_Art_Colores_PendientesCOLOR6];
+end;
+
+function TPedidoCliente_Art_Colores_PendientesBusinessProcessorRules.GetOldCOLOR6IsNull: Boolean;
+var v: variant;
+begin
+ v := BusinessProcessor.CurrentChange.OldValueByName[fld_PedidoCliente_Art_Colores_PendientesCOLOR6];
+ result := VarIsNull(v) or VarIsClear(v);
+end;
+
+procedure TPedidoCliente_Art_Colores_PendientesBusinessProcessorRules.SetCOLOR6Value(const aValue: Int64);
+begin
+ BusinessProcessor.CurrentChange.NewValueByName[fld_PedidoCliente_Art_Colores_PendientesCOLOR6] := aValue;
+end;
+
+procedure TPedidoCliente_Art_Colores_PendientesBusinessProcessorRules.SetCOLOR6IsNull(const aValue: Boolean);
+begin
+ if aValue then
+ BusinessProcessor.CurrentChange.NewValueByName[fld_PedidoCliente_Art_Colores_PendientesCOLOR6] := Null;
+end;
+
+function TPedidoCliente_Art_Colores_PendientesBusinessProcessorRules.GetCOLOR7Value: Int64;
+begin
+ result := BusinessProcessor.CurrentChange.NewValueByName[fld_PedidoCliente_Art_Colores_PendientesCOLOR7];
+end;
+
+function TPedidoCliente_Art_Colores_PendientesBusinessProcessorRules.GetCOLOR7IsNull: Boolean;
+var v: variant;
+begin
+ v := BusinessProcessor.CurrentChange.NewValueByName[fld_PedidoCliente_Art_Colores_PendientesCOLOR7];
+ result := VarIsNull(v) or VarIsClear(v);
+end;
+
+function TPedidoCliente_Art_Colores_PendientesBusinessProcessorRules.GetOldCOLOR7Value: Int64;
+begin
+ result := BusinessProcessor.CurrentChange.OldValueByName[fld_PedidoCliente_Art_Colores_PendientesCOLOR7];
+end;
+
+function TPedidoCliente_Art_Colores_PendientesBusinessProcessorRules.GetOldCOLOR7IsNull: Boolean;
+var v: variant;
+begin
+ v := BusinessProcessor.CurrentChange.OldValueByName[fld_PedidoCliente_Art_Colores_PendientesCOLOR7];
+ result := VarIsNull(v) or VarIsClear(v);
+end;
+
+procedure TPedidoCliente_Art_Colores_PendientesBusinessProcessorRules.SetCOLOR7Value(const aValue: Int64);
+begin
+ BusinessProcessor.CurrentChange.NewValueByName[fld_PedidoCliente_Art_Colores_PendientesCOLOR7] := aValue;
+end;
+
+procedure TPedidoCliente_Art_Colores_PendientesBusinessProcessorRules.SetCOLOR7IsNull(const aValue: Boolean);
+begin
+ if aValue then
+ BusinessProcessor.CurrentChange.NewValueByName[fld_PedidoCliente_Art_Colores_PendientesCOLOR7] := Null;
+end;
+
+function TPedidoCliente_Art_Colores_PendientesBusinessProcessorRules.GetCOLOR8Value: Int64;
+begin
+ result := BusinessProcessor.CurrentChange.NewValueByName[fld_PedidoCliente_Art_Colores_PendientesCOLOR8];
+end;
+
+function TPedidoCliente_Art_Colores_PendientesBusinessProcessorRules.GetCOLOR8IsNull: Boolean;
+var v: variant;
+begin
+ v := BusinessProcessor.CurrentChange.NewValueByName[fld_PedidoCliente_Art_Colores_PendientesCOLOR8];
+ result := VarIsNull(v) or VarIsClear(v);
+end;
+
+function TPedidoCliente_Art_Colores_PendientesBusinessProcessorRules.GetOldCOLOR8Value: Int64;
+begin
+ result := BusinessProcessor.CurrentChange.OldValueByName[fld_PedidoCliente_Art_Colores_PendientesCOLOR8];
+end;
+
+function TPedidoCliente_Art_Colores_PendientesBusinessProcessorRules.GetOldCOLOR8IsNull: Boolean;
+var v: variant;
+begin
+ v := BusinessProcessor.CurrentChange.OldValueByName[fld_PedidoCliente_Art_Colores_PendientesCOLOR8];
+ result := VarIsNull(v) or VarIsClear(v);
+end;
+
+procedure TPedidoCliente_Art_Colores_PendientesBusinessProcessorRules.SetCOLOR8Value(const aValue: Int64);
+begin
+ BusinessProcessor.CurrentChange.NewValueByName[fld_PedidoCliente_Art_Colores_PendientesCOLOR8] := aValue;
+end;
+
+procedure TPedidoCliente_Art_Colores_PendientesBusinessProcessorRules.SetCOLOR8IsNull(const aValue: Boolean);
+begin
+ if aValue then
+ BusinessProcessor.CurrentChange.NewValueByName[fld_PedidoCliente_Art_Colores_PendientesCOLOR8] := Null;
+end;
+
+function TPedidoCliente_Art_Colores_PendientesBusinessProcessorRules.GetCOLOR9Value: Int64;
+begin
+ result := BusinessProcessor.CurrentChange.NewValueByName[fld_PedidoCliente_Art_Colores_PendientesCOLOR9];
+end;
+
+function TPedidoCliente_Art_Colores_PendientesBusinessProcessorRules.GetCOLOR9IsNull: Boolean;
+var v: variant;
+begin
+ v := BusinessProcessor.CurrentChange.NewValueByName[fld_PedidoCliente_Art_Colores_PendientesCOLOR9];
+ result := VarIsNull(v) or VarIsClear(v);
+end;
+
+function TPedidoCliente_Art_Colores_PendientesBusinessProcessorRules.GetOldCOLOR9Value: Int64;
+begin
+ result := BusinessProcessor.CurrentChange.OldValueByName[fld_PedidoCliente_Art_Colores_PendientesCOLOR9];
+end;
+
+function TPedidoCliente_Art_Colores_PendientesBusinessProcessorRules.GetOldCOLOR9IsNull: Boolean;
+var v: variant;
+begin
+ v := BusinessProcessor.CurrentChange.OldValueByName[fld_PedidoCliente_Art_Colores_PendientesCOLOR9];
+ result := VarIsNull(v) or VarIsClear(v);
+end;
+
+procedure TPedidoCliente_Art_Colores_PendientesBusinessProcessorRules.SetCOLOR9Value(const aValue: Int64);
+begin
+ BusinessProcessor.CurrentChange.NewValueByName[fld_PedidoCliente_Art_Colores_PendientesCOLOR9] := aValue;
+end;
+
+procedure TPedidoCliente_Art_Colores_PendientesBusinessProcessorRules.SetCOLOR9IsNull(const aValue: Boolean);
+begin
+ if aValue then
+ BusinessProcessor.CurrentChange.NewValueByName[fld_PedidoCliente_Art_Colores_PendientesCOLOR9] := Null;
+end;
+
+function TPedidoCliente_Art_Colores_PendientesBusinessProcessorRules.GetCOLOR10Value: Int64;
+begin
+ result := BusinessProcessor.CurrentChange.NewValueByName[fld_PedidoCliente_Art_Colores_PendientesCOLOR10];
+end;
+
+function TPedidoCliente_Art_Colores_PendientesBusinessProcessorRules.GetCOLOR10IsNull: Boolean;
+var v: variant;
+begin
+ v := BusinessProcessor.CurrentChange.NewValueByName[fld_PedidoCliente_Art_Colores_PendientesCOLOR10];
+ result := VarIsNull(v) or VarIsClear(v);
+end;
+
+function TPedidoCliente_Art_Colores_PendientesBusinessProcessorRules.GetOldCOLOR10Value: Int64;
+begin
+ result := BusinessProcessor.CurrentChange.OldValueByName[fld_PedidoCliente_Art_Colores_PendientesCOLOR10];
+end;
+
+function TPedidoCliente_Art_Colores_PendientesBusinessProcessorRules.GetOldCOLOR10IsNull: Boolean;
+var v: variant;
+begin
+ v := BusinessProcessor.CurrentChange.OldValueByName[fld_PedidoCliente_Art_Colores_PendientesCOLOR10];
+ result := VarIsNull(v) or VarIsClear(v);
+end;
+
+procedure TPedidoCliente_Art_Colores_PendientesBusinessProcessorRules.SetCOLOR10Value(const aValue: Int64);
+begin
+ BusinessProcessor.CurrentChange.NewValueByName[fld_PedidoCliente_Art_Colores_PendientesCOLOR10] := aValue;
+end;
+
+procedure TPedidoCliente_Art_Colores_PendientesBusinessProcessorRules.SetCOLOR10IsNull(const aValue: Boolean);
+begin
+ if aValue then
+ BusinessProcessor.CurrentChange.NewValueByName[fld_PedidoCliente_Art_Colores_PendientesCOLOR10] := Null;
+end;
+
+function TPedidoCliente_Art_Colores_PendientesBusinessProcessorRules.GetCOLOR11Value: Int64;
+begin
+ result := BusinessProcessor.CurrentChange.NewValueByName[fld_PedidoCliente_Art_Colores_PendientesCOLOR11];
+end;
+
+function TPedidoCliente_Art_Colores_PendientesBusinessProcessorRules.GetCOLOR11IsNull: Boolean;
+var v: variant;
+begin
+ v := BusinessProcessor.CurrentChange.NewValueByName[fld_PedidoCliente_Art_Colores_PendientesCOLOR11];
+ result := VarIsNull(v) or VarIsClear(v);
+end;
+
+function TPedidoCliente_Art_Colores_PendientesBusinessProcessorRules.GetOldCOLOR11Value: Int64;
+begin
+ result := BusinessProcessor.CurrentChange.OldValueByName[fld_PedidoCliente_Art_Colores_PendientesCOLOR11];
+end;
+
+function TPedidoCliente_Art_Colores_PendientesBusinessProcessorRules.GetOldCOLOR11IsNull: Boolean;
+var v: variant;
+begin
+ v := BusinessProcessor.CurrentChange.OldValueByName[fld_PedidoCliente_Art_Colores_PendientesCOLOR11];
+ result := VarIsNull(v) or VarIsClear(v);
+end;
+
+procedure TPedidoCliente_Art_Colores_PendientesBusinessProcessorRules.SetCOLOR11Value(const aValue: Int64);
+begin
+ BusinessProcessor.CurrentChange.NewValueByName[fld_PedidoCliente_Art_Colores_PendientesCOLOR11] := aValue;
+end;
+
+procedure TPedidoCliente_Art_Colores_PendientesBusinessProcessorRules.SetCOLOR11IsNull(const aValue: Boolean);
+begin
+ if aValue then
+ BusinessProcessor.CurrentChange.NewValueByName[fld_PedidoCliente_Art_Colores_PendientesCOLOR11] := Null;
+end;
+
+function TPedidoCliente_Art_Colores_PendientesBusinessProcessorRules.GetCOLOR12Value: Int64;
+begin
+ result := BusinessProcessor.CurrentChange.NewValueByName[fld_PedidoCliente_Art_Colores_PendientesCOLOR12];
+end;
+
+function TPedidoCliente_Art_Colores_PendientesBusinessProcessorRules.GetCOLOR12IsNull: Boolean;
+var v: variant;
+begin
+ v := BusinessProcessor.CurrentChange.NewValueByName[fld_PedidoCliente_Art_Colores_PendientesCOLOR12];
+ result := VarIsNull(v) or VarIsClear(v);
+end;
+
+function TPedidoCliente_Art_Colores_PendientesBusinessProcessorRules.GetOldCOLOR12Value: Int64;
+begin
+ result := BusinessProcessor.CurrentChange.OldValueByName[fld_PedidoCliente_Art_Colores_PendientesCOLOR12];
+end;
+
+function TPedidoCliente_Art_Colores_PendientesBusinessProcessorRules.GetOldCOLOR12IsNull: Boolean;
+var v: variant;
+begin
+ v := BusinessProcessor.CurrentChange.OldValueByName[fld_PedidoCliente_Art_Colores_PendientesCOLOR12];
+ result := VarIsNull(v) or VarIsClear(v);
+end;
+
+procedure TPedidoCliente_Art_Colores_PendientesBusinessProcessorRules.SetCOLOR12Value(const aValue: Int64);
+begin
+ BusinessProcessor.CurrentChange.NewValueByName[fld_PedidoCliente_Art_Colores_PendientesCOLOR12] := aValue;
+end;
+
+procedure TPedidoCliente_Art_Colores_PendientesBusinessProcessorRules.SetCOLOR12IsNull(const aValue: Boolean);
+begin
+ if aValue then
+ BusinessProcessor.CurrentChange.NewValueByName[fld_PedidoCliente_Art_Colores_PendientesCOLOR12] := Null;
+end;
+
+
{ TListaAnosPedidosBusinessProcessorRules }
constructor TListaAnosPedidosBusinessProcessorRules.Create(aBusinessProcessor: TDABusinessProcessor);
begin
@@ -1197,7 +1890,7 @@ begin
BusinessProcessor.CurrentChange.NewValueByName[fld_PedidoCliente_ArticulosPendientesPedirAProvID_ARTICULO] := Null;
end;
-function TPedidoCliente_ArticulosPendientesPedirAProvBusinessProcessorRules.GetCANT_PEDIDA_CLIENTEValue: Integer;
+function TPedidoCliente_ArticulosPendientesPedirAProvBusinessProcessorRules.GetCANT_PEDIDA_CLIENTEValue: Float;
begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_PedidoCliente_ArticulosPendientesPedirAProvCANT_PEDIDA_CLIENTE];
end;
@@ -1209,7 +1902,7 @@ begin
result := VarIsNull(v) or VarIsClear(v);
end;
-function TPedidoCliente_ArticulosPendientesPedirAProvBusinessProcessorRules.GetOldCANT_PEDIDA_CLIENTEValue: Integer;
+function TPedidoCliente_ArticulosPendientesPedirAProvBusinessProcessorRules.GetOldCANT_PEDIDA_CLIENTEValue: Float;
begin
result := BusinessProcessor.CurrentChange.OldValueByName[fld_PedidoCliente_ArticulosPendientesPedirAProvCANT_PEDIDA_CLIENTE];
end;
@@ -1221,7 +1914,7 @@ begin
result := VarIsNull(v) or VarIsClear(v);
end;
-procedure TPedidoCliente_ArticulosPendientesPedirAProvBusinessProcessorRules.SetCANT_PEDIDA_CLIENTEValue(const aValue: Integer);
+procedure TPedidoCliente_ArticulosPendientesPedirAProvBusinessProcessorRules.SetCANT_PEDIDA_CLIENTEValue(const aValue: Float);
begin
BusinessProcessor.CurrentChange.NewValueByName[fld_PedidoCliente_ArticulosPendientesPedirAProvCANT_PEDIDA_CLIENTE] := aValue;
end;
@@ -1267,7 +1960,7 @@ begin
BusinessProcessor.CurrentChange.NewValueByName[fld_PedidoCliente_ArticulosPendientesPedirAProvID_PROVEEDOR] := Null;
end;
-function TPedidoCliente_ArticulosPendientesPedirAProvBusinessProcessorRules.GetCANT_PEDIDA_PROVEEDORValue: Integer;
+function TPedidoCliente_ArticulosPendientesPedirAProvBusinessProcessorRules.GetCANT_PEDIDA_PROVEEDORValue: Float;
begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_PedidoCliente_ArticulosPendientesPedirAProvCANT_PEDIDA_PROVEEDOR];
end;
@@ -1279,7 +1972,7 @@ begin
result := VarIsNull(v) or VarIsClear(v);
end;
-function TPedidoCliente_ArticulosPendientesPedirAProvBusinessProcessorRules.GetOldCANT_PEDIDA_PROVEEDORValue: Integer;
+function TPedidoCliente_ArticulosPendientesPedirAProvBusinessProcessorRules.GetOldCANT_PEDIDA_PROVEEDORValue: Float;
begin
result := BusinessProcessor.CurrentChange.OldValueByName[fld_PedidoCliente_ArticulosPendientesPedirAProvCANT_PEDIDA_PROVEEDOR];
end;
@@ -1291,7 +1984,7 @@ begin
result := VarIsNull(v) or VarIsClear(v);
end;
-procedure TPedidoCliente_ArticulosPendientesPedirAProvBusinessProcessorRules.SetCANT_PEDIDA_PROVEEDORValue(const aValue: Integer);
+procedure TPedidoCliente_ArticulosPendientesPedirAProvBusinessProcessorRules.SetCANT_PEDIDA_PROVEEDORValue(const aValue: Float);
begin
BusinessProcessor.CurrentChange.NewValueByName[fld_PedidoCliente_ArticulosPendientesPedirAProvCANT_PEDIDA_PROVEEDOR] := aValue;
end;
@@ -1302,7 +1995,7 @@ begin
BusinessProcessor.CurrentChange.NewValueByName[fld_PedidoCliente_ArticulosPendientesPedirAProvCANT_PEDIDA_PROVEEDOR] := Null;
end;
-function TPedidoCliente_ArticulosPendientesPedirAProvBusinessProcessorRules.GetCANT_PENDIENTE_PEDIRValue: Integer;
+function TPedidoCliente_ArticulosPendientesPedirAProvBusinessProcessorRules.GetCANT_PENDIENTE_PEDIRValue: Float;
begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_PedidoCliente_ArticulosPendientesPedirAProvCANT_PENDIENTE_PEDIR];
end;
@@ -1314,7 +2007,7 @@ begin
result := VarIsNull(v) or VarIsClear(v);
end;
-function TPedidoCliente_ArticulosPendientesPedirAProvBusinessProcessorRules.GetOldCANT_PENDIENTE_PEDIRValue: Integer;
+function TPedidoCliente_ArticulosPendientesPedirAProvBusinessProcessorRules.GetOldCANT_PENDIENTE_PEDIRValue: Float;
begin
result := BusinessProcessor.CurrentChange.OldValueByName[fld_PedidoCliente_ArticulosPendientesPedirAProvCANT_PENDIENTE_PEDIR];
end;
@@ -1326,7 +2019,7 @@ begin
result := VarIsNull(v) or VarIsClear(v);
end;
-procedure TPedidoCliente_ArticulosPendientesPedirAProvBusinessProcessorRules.SetCANT_PENDIENTE_PEDIRValue(const aValue: Integer);
+procedure TPedidoCliente_ArticulosPendientesPedirAProvBusinessProcessorRules.SetCANT_PENDIENTE_PEDIRValue(const aValue: Float);
begin
BusinessProcessor.CurrentChange.NewValueByName[fld_PedidoCliente_ArticulosPendientesPedirAProvCANT_PENDIENTE_PEDIR] := aValue;
end;
@@ -3207,7 +3900,7 @@ begin
BusinessProcessor.CurrentChange.NewValueByName[fld_PedidoCliente_Articulos_PendientesID_ARTICULO] := Null;
end;
-function TPedidoCliente_Articulos_PendientesBusinessProcessorRules.GetCANTIDAD_PEDValue: Integer;
+function TPedidoCliente_Articulos_PendientesBusinessProcessorRules.GetCANTIDAD_PEDValue: Float;
begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_PedidoCliente_Articulos_PendientesCANTIDAD_PED];
end;
@@ -3219,7 +3912,7 @@ begin
result := VarIsNull(v) or VarIsClear(v);
end;
-function TPedidoCliente_Articulos_PendientesBusinessProcessorRules.GetOldCANTIDAD_PEDValue: Integer;
+function TPedidoCliente_Articulos_PendientesBusinessProcessorRules.GetOldCANTIDAD_PEDValue: Float;
begin
result := BusinessProcessor.CurrentChange.OldValueByName[fld_PedidoCliente_Articulos_PendientesCANTIDAD_PED];
end;
@@ -3231,7 +3924,7 @@ begin
result := VarIsNull(v) or VarIsClear(v);
end;
-procedure TPedidoCliente_Articulos_PendientesBusinessProcessorRules.SetCANTIDAD_PEDValue(const aValue: Integer);
+procedure TPedidoCliente_Articulos_PendientesBusinessProcessorRules.SetCANTIDAD_PEDValue(const aValue: Float);
begin
BusinessProcessor.CurrentChange.NewValueByName[fld_PedidoCliente_Articulos_PendientesCANTIDAD_PED] := aValue;
end;
@@ -3242,7 +3935,7 @@ begin
BusinessProcessor.CurrentChange.NewValueByName[fld_PedidoCliente_Articulos_PendientesCANTIDAD_PED] := Null;
end;
-function TPedidoCliente_Articulos_PendientesBusinessProcessorRules.GetCANTIDAD_ALBValue: Integer;
+function TPedidoCliente_Articulos_PendientesBusinessProcessorRules.GetCANTIDAD_ALBValue: Float;
begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_PedidoCliente_Articulos_PendientesCANTIDAD_ALB];
end;
@@ -3254,7 +3947,7 @@ begin
result := VarIsNull(v) or VarIsClear(v);
end;
-function TPedidoCliente_Articulos_PendientesBusinessProcessorRules.GetOldCANTIDAD_ALBValue: Integer;
+function TPedidoCliente_Articulos_PendientesBusinessProcessorRules.GetOldCANTIDAD_ALBValue: Float;
begin
result := BusinessProcessor.CurrentChange.OldValueByName[fld_PedidoCliente_Articulos_PendientesCANTIDAD_ALB];
end;
@@ -3266,7 +3959,7 @@ begin
result := VarIsNull(v) or VarIsClear(v);
end;
-procedure TPedidoCliente_Articulos_PendientesBusinessProcessorRules.SetCANTIDAD_ALBValue(const aValue: Integer);
+procedure TPedidoCliente_Articulos_PendientesBusinessProcessorRules.SetCANTIDAD_ALBValue(const aValue: Float);
begin
BusinessProcessor.CurrentChange.NewValueByName[fld_PedidoCliente_Articulos_PendientesCANTIDAD_ALB] := aValue;
end;
@@ -3277,7 +3970,7 @@ begin
BusinessProcessor.CurrentChange.NewValueByName[fld_PedidoCliente_Articulos_PendientesCANTIDAD_ALB] := Null;
end;
-function TPedidoCliente_Articulos_PendientesBusinessProcessorRules.GetCANTIDAD_PENDIENTEValue: Integer;
+function TPedidoCliente_Articulos_PendientesBusinessProcessorRules.GetCANTIDAD_PENDIENTEValue: Float;
begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_PedidoCliente_Articulos_PendientesCANTIDAD_PENDIENTE];
end;
@@ -3289,7 +3982,7 @@ begin
result := VarIsNull(v) or VarIsClear(v);
end;
-function TPedidoCliente_Articulos_PendientesBusinessProcessorRules.GetOldCANTIDAD_PENDIENTEValue: Integer;
+function TPedidoCliente_Articulos_PendientesBusinessProcessorRules.GetOldCANTIDAD_PENDIENTEValue: Float;
begin
result := BusinessProcessor.CurrentChange.OldValueByName[fld_PedidoCliente_Articulos_PendientesCANTIDAD_PENDIENTE];
end;
@@ -3301,7 +3994,7 @@ begin
result := VarIsNull(v) or VarIsClear(v);
end;
-procedure TPedidoCliente_Articulos_PendientesBusinessProcessorRules.SetCANTIDAD_PENDIENTEValue(const aValue: Integer);
+procedure TPedidoCliente_Articulos_PendientesBusinessProcessorRules.SetCANTIDAD_PENDIENTEValue(const aValue: Float);
begin
BusinessProcessor.CurrentChange.NewValueByName[fld_PedidoCliente_Articulos_PendientesCANTIDAD_PENDIENTE] := aValue;
end;
@@ -3816,6 +4509,7 @@ end;
initialization
+ RegisterBusinessProcessorRules(RID_PedidoCliente_Art_Colores_PendientesDelta, TPedidoCliente_Art_Colores_PendientesBusinessProcessorRules);
RegisterBusinessProcessorRules(RID_ListaAnosPedidosDelta, TListaAnosPedidosBusinessProcessorRules);
RegisterBusinessProcessorRules(RID_PedidoCliente_ArticulosPendientesPedirAProvDelta, TPedidoCliente_ArticulosPendientesPedirAProvBusinessProcessorRules);
RegisterBusinessProcessorRules(RID_PedidosClienteDelta, TPedidosClienteBusinessProcessorRules);
diff --git a/Source/Modulos/Pedidos de cliente/Model/uBizDetallesPedidoCliente.pas b/Source/Modulos/Pedidos de cliente/Model/uBizDetallesPedidoCliente.pas
index 89b065d..9d70492 100644
--- a/Source/Modulos/Pedidos de cliente/Model/uBizDetallesPedidoCliente.pas
+++ b/Source/Modulos/Pedidos de cliente/Model/uBizDetallesPedidoCliente.pas
@@ -8,6 +8,7 @@ uses
const
BIZ_CLIENT_DETALLES_PEDIDO_CLIENTE = 'Client.PedidoCliente.Detalles';
BIZ_CLIENT_ARTICULOS_PEND_PEDIDO_CLIENTE = 'Client.PedidoCliente.ArticulosPendientes';
+ BIZ_CLIENT_ARTCOLORES_PEND_PEDIDO_CLIENTE = 'Client.PedidoCliente.ArtColoresPendientes';
type
IBizDetallesPedidoCliente = interface(IPedidosCliente_Detalles)
@@ -21,6 +22,10 @@ type
['{DD245879-DD80-4E96-995A-6D3A09D72544}']
end;
+ IBizPedidoClienteArtColoresPend = interface(IPedidoCliente_Art_Colores_Pendientes)
+ ['{8E4E1C52-0160-4EBF-AD20-10EBEE8B4266}']
+ end;
+
TBizDetallesPedidoCliente = class(TPedidosCliente_DetallesDataTableRules, IBizDetallesPedidoCliente)
protected
FDetalleColores : IBizDetalleColoresPedidoCliente;
@@ -35,12 +40,14 @@ type
public
property DetalleColores: IBizDetalleColoresPedidoCliente read GetDetalleColores write SetDetalleColores;
constructor Create(aDataTable: TDADataTable); override;
- destructor Destroy; override;
+ destructor Destroy; override;
end;
TBizPedidoClienteArticulosPend = class(TPedidoCliente_Articulos_PendientesDataTableRules, IBizPedidoClienteArticulosPend)
end;
+ TBizPedidoClienteArColoresPend = class(TPedidoCliente_Art_Colores_PendientesDataTableRules, IBizPedidoClienteArtColoresPend)
+ end;
implementation
@@ -95,5 +102,6 @@ end;
initialization
RegisterDataTableRules(BIZ_CLIENT_DETALLES_PEDIDO_CLIENTE, TBizDetallesPedidoCliente);
RegisterDataTableRules(BIZ_CLIENT_ARTICULOS_PEND_PEDIDO_CLIENTE, TBizPedidoClienteArticulosPend);
+ RegisterDataTableRules(BIZ_CLIENT_ARTCOLORES_PEND_PEDIDO_CLIENTE, TBizPedidoClienteArColoresPend);
end.
diff --git a/Source/Modulos/Pedidos de cliente/Plugin/PedidosCliente_plugin.drc b/Source/Modulos/Pedidos de cliente/Plugin/PedidosCliente_plugin.drc
index 83eec73..6235e87 100644
--- a/Source/Modulos/Pedidos de cliente/Plugin/PedidosCliente_plugin.drc
+++ b/Source/Modulos/Pedidos de cliente/Plugin/PedidosCliente_plugin.drc
@@ -12,6 +12,6 @@ STRINGTABLE
BEGIN
END
-/* C:\Codigo Noviseda\Source\Modulos\Pedidos de cliente\Plugin\uPluginPedidosCliente.dfm */
-/* C:\Codigo Noviseda\Source\Modulos\Pedidos de cliente\Plugin\PedidosCliente_plugin.res */
-/* C:\Codigo Noviseda\Source\Modulos\Pedidos de cliente\Plugin\PedidosCliente_plugin.drf */
+/* C:\Codigo noviseda\Source\Modulos\Pedidos de cliente\Plugin\uPluginPedidosCliente.dfm */
+/* C:\Codigo noviseda\Source\Modulos\Pedidos de cliente\Plugin\PedidosCliente_plugin.res */
+/* C:\DOCUME~1\Usuario\CONFIG~1\Temp\dtf246.tmp */
diff --git a/Source/Modulos/Pedidos de cliente/Servidor/srvPedidosCliente_Impl.dfm b/Source/Modulos/Pedidos de cliente/Servidor/srvPedidosCliente_Impl.dfm
index b69de18..bb66599 100644
--- a/Source/Modulos/Pedidos de cliente/Servidor/srvPedidosCliente_Impl.dfm
+++ b/Source/Modulos/Pedidos de cliente/Servidor/srvPedidosCliente_Impl.dfm
@@ -13,6 +13,132 @@ object srvPedidosCliente: TsrvPedidosCliente
ConnectionManager = dmServer.ConnectionManager
DataDictionary = DADataDictionary
Datasets = <
+ item
+ Params = <>
+ Statements = <
+ item
+ ConnectionType = 'Interbase'
+ Default = True
+ TargetTable = 'V_PED_CLI_ART_COLORES_PEND'
+ Name = 'IBX'
+ StatementType = stAutoSQL
+ ColumnMappings = <
+ item
+ DatasetField = 'ID_PEDIDO'
+ TableField = 'ID_PEDIDO'
+ end
+ item
+ DatasetField = 'ID_ARTICULO'
+ TableField = 'ID_ARTICULO'
+ 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 = 'PedidoCliente_Art_Colores_Pendientes'
+ Fields = <
+ item
+ Name = 'ID_PEDIDO'
+ DataType = datInteger
+ end
+ item
+ Name = 'ID_ARTICULO'
+ DataType = datInteger
+ end
+ item
+ Name = 'COLOR1'
+ DataType = datLargeInt
+ end
+ item
+ Name = 'COLOR2'
+ DataType = datLargeInt
+ end
+ item
+ Name = 'COLOR3'
+ DataType = datLargeInt
+ end
+ item
+ Name = 'COLOR4'
+ DataType = datLargeInt
+ end
+ item
+ Name = 'COLOR5'
+ DataType = datLargeInt
+ end
+ item
+ Name = 'COLOR6'
+ DataType = datLargeInt
+ end
+ item
+ Name = 'COLOR7'
+ DataType = datLargeInt
+ end
+ item
+ Name = 'COLOR8'
+ DataType = datLargeInt
+ end
+ item
+ Name = 'COLOR9'
+ DataType = datLargeInt
+ end
+ item
+ Name = 'COLOR10'
+ DataType = datLargeInt
+ end
+ item
+ Name = 'COLOR11'
+ DataType = datLargeInt
+ end
+ item
+ Name = 'COLOR12'
+ DataType = datLargeInt
+ end>
+ end
item
Params = <>
Statements = <
@@ -88,7 +214,7 @@ object srvPedidosCliente: TsrvPedidosCliente
end
item
Name = 'CANT_PEDIDA_CLIENTE'
- DataType = datInteger
+ DataType = datFloat
DictionaryEntry = 'DarArticulosPendientesPedirAProv_CANT_PEDIDA_CLIENTE'
end
item
@@ -98,12 +224,12 @@ object srvPedidosCliente: TsrvPedidosCliente
end
item
Name = 'CANT_PEDIDA_PROVEEDOR'
- DataType = datInteger
+ DataType = datFloat
DictionaryEntry = 'DarArticulosPendientesPedirAProv_CANT_PEDIDA_PROVEEDOR'
end
item
Name = 'CANT_PENDIENTE_PEDIR'
- DataType = datInteger
+ DataType = datFloat
DictionaryEntry = 'DarArticulosPendientesPedirAProv_CANT_PENDIENTE_PEDIR'
end>
end
@@ -283,6 +409,7 @@ object srvPedidosCliente: TsrvPedidosCliente
Name = 'NOMBRE'
DataType = datString
Size = 255
+ ServerAutoRefresh = True
DictionaryEntry = 'PedidosCliente_NOMBRE'
end
item
@@ -675,17 +802,17 @@ object srvPedidosCliente: TsrvPedidosCliente
end
item
Name = 'CANTIDAD_PED'
- DataType = datInteger
+ DataType = datFloat
DictionaryEntry = 'PedidoCliente_Articulos_Pendientes_CANTIDAD_PED'
end
item
Name = 'CANTIDAD_ALB'
- DataType = datInteger
+ DataType = datFloat
DictionaryEntry = 'PedidoCliente_Articulos_Pendientes_CANTIDAD_ALB'
end
item
Name = 'CANTIDAD_PENDIENTE'
- DataType = datInteger
+ DataType = datFloat
DictionaryEntry = 'PedidoCliente_Articulos_Pendientes_CANTIDAD_PENDIENTE'
end>
end
@@ -763,61 +890,74 @@ object srvPedidosCliente: TsrvPedidosCliente
item
Name = 'ID'
DataType = datAutoInc
- GeneratorName = 'GEN_PEDIDOS_CLI_DETALLES_ID'
- DictionaryEntry = 'PedidosCliente_Detalles_ID'
+ GeneratorName = 'GEN_PEDIDOS_CLI_DET_COLOR_ID'
+ DictionaryEntry = 'PedidosCliente_Detalle_Color_ID'
InPrimaryKey = True
end
item
Name = 'ID_DETALLE'
DataType = datInteger
+ DictionaryEntry = 'PedidosCliente_Detalle_Color_ID_DETALLE'
end
item
Name = 'COLOR1'
DataType = datInteger
+ DictionaryEntry = 'PedidosCliente_Detalle_Color_COLOR1'
end
item
Name = 'COLOR2'
DataType = datInteger
+ DictionaryEntry = 'PedidosCliente_Detalle_Color_COLOR2'
end
item
Name = 'COLOR3'
DataType = datInteger
+ DictionaryEntry = 'PedidosCliente_Detalle_Color_COLOR3'
end
item
Name = 'COLOR4'
DataType = datInteger
+ DictionaryEntry = 'PedidosCliente_Detalle_Color_COLOR4'
end
item
Name = 'COLOR5'
DataType = datInteger
+ DictionaryEntry = 'PedidosCliente_Detalle_Color_COLOR5'
end
item
Name = 'COLOR6'
DataType = datInteger
+ DictionaryEntry = 'PedidosCliente_Detalle_Color_COLOR6'
end
item
Name = 'COLOR7'
DataType = datInteger
+ DictionaryEntry = 'PedidosCliente_Detalle_Color_COLOR7'
end
item
Name = 'COLOR8'
DataType = datInteger
+ DictionaryEntry = 'PedidosCliente_Detalle_Color_COLOR8'
end
item
Name = 'COLOR9'
DataType = datInteger
+ DictionaryEntry = 'PedidosCliente_Detalle_Color_COLOR9'
end
item
Name = 'COLOR10'
DataType = datInteger
+ DictionaryEntry = 'PedidosCliente_Detalle_Color_COLOR10'
end
item
Name = 'COLOR11'
DataType = datInteger
+ DictionaryEntry = 'PedidosCliente_Detalle_Color_COLOR11'
end
item
Name = 'COLOR12'
DataType = datInteger
+ DictionaryEntry = 'PedidosCliente_Detalle_Color_COLOR12'
end>
end>
JoinDataTables = <>
@@ -1039,7 +1179,8 @@ object srvPedidosCliente: TsrvPedidosCliente
Params = <
item
Name = 'ID'
- DataType = datInteger
+ DataType = datAutoInc
+ GeneratorName = 'GEN_PEDIDOS_CLI_ID'
Value = ''
end
item
@@ -1462,7 +1603,7 @@ object srvPedidosCliente: TsrvPedidosCliente
item
Name = 'ID'
DataType = datAutoInc
- GeneratorName = 'GEN_PEDIDOS_CLI_DETALLES_ID'
+ GeneratorName = 'GEN_PEDIDOS_CLI_DET_COLOR_ID'
Value = ''
end
item
@@ -1670,7 +1811,7 @@ object srvPedidosCliente: TsrvPedidosCliente
Name = 'FK_Pedidos_Cliente_Detalles'
MasterDatasetName = 'PedidosCliente'
MasterFields = 'ID'
- DetailDatasetName = 'PedidosCliente_Detalle_Color'
+ DetailDatasetName = 'PedidosCliente_Detalles'
DetailFields = 'ID_PEDIDO'
RelationshipType = rtForeignKey
end>
@@ -1689,6 +1830,13 @@ object srvPedidosCliente: TsrvPedidosCliente
DatasetName = 'PedidosCliente_Detalles'
FailureBehavior = fbRaiseException
end
+ item
+ Name = 'Insert PedidosCliente_Detalle_Color'
+ DoUpdate = False
+ DoDelete = False
+ DatasetName = 'PedidosCliente_Detalle_Color'
+ FailureBehavior = fbRaiseException
+ end
item
Name = 'Update PedidosCliente'
DoInsert = False
@@ -1703,6 +1851,20 @@ object srvPedidosCliente: TsrvPedidosCliente
DatasetName = 'PedidosCliente_Detalles'
FailureBehavior = fbRaiseException
end
+ item
+ Name = 'Update PedidosCliente_Detalle_Color'
+ DoInsert = False
+ DoDelete = False
+ DatasetName = 'PedidosCliente_Detalle_Color'
+ FailureBehavior = fbRaiseException
+ end
+ item
+ Name = 'Delete PedidosCliente_Detalle_Color'
+ DoUpdate = False
+ DoInsert = False
+ DatasetName = 'PedidosCliente_Detalle_Color'
+ FailureBehavior = fbRaiseException
+ end
item
Name = 'Delete PedidosCliente_Detalles'
DoUpdate = False
@@ -1766,6 +1928,7 @@ object srvPedidosCliente: TsrvPedidosCliente
DataType = datString
Size = 255
DisplayLabel = 'Nombre del cliente'
+ ServerAutoRefresh = True
end
item
Name = 'PedidosCliente_FECHA_PEDIDO'
@@ -1977,19 +2140,19 @@ object srvPedidosCliente: TsrvPedidosCliente
end
item
Name = 'PedidoCliente_Articulos_Pendientes_CANTIDAD_PED'
- DataType = datInteger
+ DataType = datFloat
DisplayLabel = 'Cantidad en pedido'
Alignment = taRightJustify
end
item
Name = 'PedidoCliente_Articulos_Pendientes_CANTIDAD_ALB'
- DataType = datInteger
+ DataType = datFloat
DisplayLabel = 'Cantidad en albaranes'
Alignment = taRightJustify
end
item
Name = 'PedidoCliente_Articulos_Pendientes_CANTIDAD_PENDIENTE'
- DataType = datInteger
+ DataType = datFloat
DisplayLabel = 'Cantidad pendiente'
Alignment = taRightJustify
end
@@ -2005,7 +2168,7 @@ object srvPedidosCliente: TsrvPedidosCliente
end
item
Name = 'DarArticulosPendientesPedirAProv_CANT_PEDIDA_CLIENTE'
- DataType = datInteger
+ DataType = datFloat
DisplayLabel = 'Cant. pedida por cliente'
end
item
@@ -2015,12 +2178,12 @@ object srvPedidosCliente: TsrvPedidosCliente
end
item
Name = 'DarArticulosPendientesPedirAProv_CANT_PEDIDA_PROVEEDOR'
- DataType = datInteger
+ DataType = datFloat
DisplayLabel = 'Cant. pedida a proveedor'
end
item
Name = 'DarArticulosPendientesPedirAProv_CANT_PENDIENTE_PEDIR'
- DataType = datInteger
+ DataType = datFloat
DisplayLabel = 'Cant. pendiente pedir'
end
item
@@ -2086,6 +2249,65 @@ object srvPedidosCliente: TsrvPedidosCliente
Name = 'PedidosCliente_DATOS_BANCARIOS'
DataType = datString
Size = 255
+ end
+ item
+ Name = 'PedidosCliente_Detalle_Color_ID'
+ DataType = datAutoInc
+ GeneratorName = 'GEN_PEDIDOS_CLI_DET_COLOR_ID'
+ Required = True
+ DisplayLabel = 'ID'
+ end
+ item
+ Name = 'PedidosCliente_Detalle_Color_ID_DETALLE'
+ DataType = datInteger
+ end
+ item
+ Name = 'PedidosCliente_Detalle_Color_COLOR1'
+ DataType = datInteger
+ end
+ item
+ Name = 'PedidosCliente_Detalle_Color_COLOR2'
+ DataType = datInteger
+ end
+ item
+ Name = 'PedidosCliente_Detalle_Color_COLOR3'
+ DataType = datInteger
+ end
+ item
+ Name = 'PedidosCliente_Detalle_Color_COLOR4'
+ DataType = datInteger
+ end
+ item
+ Name = 'PedidosCliente_Detalle_Color_COLOR5'
+ DataType = datInteger
+ end
+ item
+ Name = 'PedidosCliente_Detalle_Color_COLOR6'
+ DataType = datInteger
+ end
+ item
+ Name = 'PedidosCliente_Detalle_Color_COLOR7'
+ DataType = datInteger
+ end
+ item
+ Name = 'PedidosCliente_Detalle_Color_COLOR8'
+ DataType = datInteger
+ end
+ item
+ Name = 'PedidosCliente_Detalle_Color_COLOR9'
+ DataType = datInteger
+ end
+ item
+ Name = 'PedidosCliente_Detalle_Color_COLOR10'
+ DataType = datInteger
+ end
+ item
+ Name = 'PedidosCliente_Detalle_Color_COLOR11'
+ DataType = datInteger
+ end
+ item
+ Name = 'PedidosCliente_Detalle_Color_COLOR12'
+ DataType = datInteger
end>
Left = 48
Top = 152
diff --git a/Source/Modulos/Pedidos de cliente/Views/PedidosCliente_view.drc b/Source/Modulos/Pedidos de cliente/Views/PedidosCliente_view.drc
index 0c93977..6e9cb46 100644
--- a/Source/Modulos/Pedidos de cliente/Views/PedidosCliente_view.drc
+++ b/Source/Modulos/Pedidos de cliente/Views/PedidosCliente_view.drc
@@ -12,17 +12,17 @@ STRINGTABLE
BEGIN
END
-/* C:\Codigo Noviseda\Source\Modulos\Pedidos de cliente\Views\uViewPedidosCliente.dfm */
-/* C:\Codigo Noviseda\Source\Modulos\Pedidos de cliente\Views\uEditorPedidosCliente.dfm */
-/* C:\Codigo Noviseda\Source\Modulos\Pedidos de cliente\Views\uViewDetallesPedidoCliente.dfm */
-/* C:\Codigo Noviseda\Source\Modulos\Pedidos de cliente\Views\uViewDatosYSeleccionClientePedido.dfm */
-/* C:\Codigo Noviseda\Source\Modulos\Pedidos de cliente\Views\uViewDireccionEntregaPedidoCliente.dfm */
-/* C:\Codigo Noviseda\Source\Modulos\Pedidos de cliente\Views\uViewPedidoCliente.dfm */
-/* C:\Codigo Noviseda\Source\Modulos\Pedidos de cliente\Views\uViewTotalesPedido.dfm */
-/* C:\Codigo Noviseda\Source\Modulos\Pedidos de cliente\Views\uEditorPedidoCliente.dfm */
-/* C:\Codigo Noviseda\Source\Modulos\Pedidos de cliente\Views\uEditorElegirPedidosCliente.dfm */
-/* C:\Codigo Noviseda\Source\Modulos\Pedidos de cliente\Views\uViewElegirArticulosPedidosCliente.dfm */
-/* C:\Codigo Noviseda\Source\Modulos\Pedidos de cliente\Views\uEditorElegirArticulosPedidoCliente.dfm */
-/* C:\Codigo Noviseda\Source\Modulos\Pedidos de cliente\Views\uEditorPedidosClienteReport.dfm */
-/* C:\Codigo Noviseda\Source\Modulos\Pedidos de cliente\Views\PedidosCliente_view.res */
-/* C:\Codigo Noviseda\Source\Modulos\Pedidos de cliente\Views\PedidosCliente_view.drf */
+/* C:\Codigo noviseda\Source\Modulos\Pedidos de cliente\Views\uViewPedidosCliente.dfm */
+/* C:\Codigo noviseda\Source\Modulos\Pedidos de cliente\Views\uEditorPedidosCliente.dfm */
+/* C:\Codigo noviseda\Source\Modulos\Pedidos de cliente\Views\uViewDetallesPedidoCliente.dfm */
+/* C:\Codigo noviseda\Source\Modulos\Pedidos de cliente\Views\uViewDatosYSeleccionClientePedido.dfm */
+/* C:\Codigo noviseda\Source\Modulos\Pedidos de cliente\Views\uViewDireccionEntregaPedidoCliente.dfm */
+/* C:\Codigo noviseda\Source\Modulos\Pedidos de cliente\Views\uViewPedidoCliente.dfm */
+/* C:\Codigo noviseda\Source\Modulos\Pedidos de cliente\Views\uViewTotalesPedido.dfm */
+/* C:\Codigo noviseda\Source\Modulos\Pedidos de cliente\Views\uEditorPedidoCliente.dfm */
+/* C:\Codigo noviseda\Source\Modulos\Pedidos de cliente\Views\uEditorElegirPedidosCliente.dfm */
+/* C:\Codigo noviseda\Source\Modulos\Pedidos de cliente\Views\uViewElegirArticulosPedidosCliente.dfm */
+/* C:\Codigo noviseda\Source\Modulos\Pedidos de cliente\Views\uEditorElegirArticulosPedidoCliente.dfm */
+/* C:\Codigo noviseda\Source\Modulos\Pedidos de cliente\Views\uEditorPedidosClienteReport.dfm */
+/* C:\Codigo noviseda\Source\Modulos\Pedidos de cliente\Views\PedidosCliente_view.res */
+/* C:\DOCUME~1\Usuario\CONFIG~1\Temp\dtf244.tmp */
diff --git a/Source/Modulos/Pedidos de cliente/Views/uEditorPedidosCliente.dfm b/Source/Modulos/Pedidos de cliente/Views/uEditorPedidosCliente.dfm
index 2b079e1..1c9747f 100644
--- a/Source/Modulos/Pedidos de cliente/Views/uEditorPedidosCliente.dfm
+++ b/Source/Modulos/Pedidos de cliente/Views/uEditorPedidosCliente.dfm
@@ -129,6 +129,14 @@ inherited fEditorPedidosCliente: TfEditorPedidosCliente
inherited tbxMenu: TSpTBXToolbar
ExplicitWidth = 674
end
+ inherited TBXTMain2: TSpTBXToolbar
+ Visible = True
+ ExplicitWidth = 167
+ object SpTBXItem1: TSpTBXItem
+ Action = actGenerarAlbaranCli
+ DisplayMode = nbdmImageAndText
+ end
+ end
end
inherited StatusBar: TJvStatusBar
Width = 674
diff --git a/Source/Modulos/Pedidos de cliente/Views/uEditorPedidosCliente.pas b/Source/Modulos/Pedidos de cliente/Views/uEditorPedidosCliente.pas
index bc114d9..f668932 100644
--- a/Source/Modulos/Pedidos de cliente/Views/uEditorPedidosCliente.pas
+++ b/Source/Modulos/Pedidos de cliente/Views/uEditorPedidosCliente.pas
@@ -29,6 +29,7 @@ type
JsImprimirDialog: TJSDialog;
JsListaPedidosNoEliminados: TJSDialog;
actEnviarEmail: TAction;
+ SpTBXItem1: TSpTBXItem;
procedure FormShow(Sender: TObject);
procedure actGenerarAlbaranCliExecute(Sender: TObject);
procedure actEliminarUpdate(Sender: TObject);
diff --git a/Source/Modulos/Relaciones/Pedidos de cliente - Albaranes de cliente/uGenerarAlbaranesCliUtils.pas b/Source/Modulos/Relaciones/Pedidos de cliente - Albaranes de cliente/uGenerarAlbaranesCliUtils.pas
index 5edab2f..9cac0a6 100644
--- a/Source/Modulos/Relaciones/Pedidos de cliente - Albaranes de cliente/uGenerarAlbaranesCliUtils.pas
+++ b/Source/Modulos/Relaciones/Pedidos de cliente - Albaranes de cliente/uGenerarAlbaranesCliUtils.pas
@@ -72,12 +72,14 @@ end;
procedure CopiarArticulosPendAAlbaran(
APedido: IBizPedidoCliente;
AAlbaran: IBizAlbaranCliente;
- AArticulosPendientes: IBizPedidoClienteArticulosPend);
+ AArticulosPendientes: IBizPedidoClienteArticulosPend;
+ AArtColoresPendientes: IBizPedidoClienteArtColoresPend);
var
i : integer;
ADetalles : IBizDetallesAlbaranCliente;
ADetallesController : IDetallesAlbaranClienteController;
begin
+
if not Assigned(AAlbaran) then
raise Exception.Create ('Albarán no asignado (CopiarArticulosPendAAlbaran)');
@@ -109,7 +111,7 @@ begin
begin
ADetallesController.Add(ADetalles, TIPO_DETALLE_CONCEPTO);
ADetalles.Edit;
- ADetalles.ID_PEDIDO := APedido.Detalles.ID_PEDIDO;
+ ADetalles.ID_PEDIDO := APedido.Detalles.ID_PEDIDO;
ADetalles.REFERENCIA := APedido.Detalles.REFERENCIA;
ADetalles.ID_ARTICULO := APedido.Detalles.ID_ARTICULO;
ADetalles.CONCEPTO := APedido.Detalles.CONCEPTO;
@@ -121,6 +123,26 @@ begin
ADetalles.VISIBLE := APedido.Detalles.VISIBLE;
ADetalles.REFERENCIA_PROVEEDOR := APedido.Detalles.REFERENCIA_PROVEEDOR;
ADetalles.Post;
+
+ AArtColoresPendientes.First;
+ if AArtColoresPendientes.Locate('ID_ARTICULO', AArticulosPendientes.ID_ARTICULO, []) then
+ begin
+ ADetalles.DetalleColores.Edit;
+ ADetalles.DetalleColores.COLOR1 := AArtColoresPendientes.COLOR1;
+ ADetalles.DetalleColores.COLOR2 := AArtColoresPendientes.COLOR2;
+ ADetalles.DetalleColores.COLOR3 := AArtColoresPendientes.COLOR3;
+ ADetalles.DetalleColores.COLOR4 := AArtColoresPendientes.COLOR4;
+ ADetalles.DetalleColores.COLOR5 := AArtColoresPendientes.COLOR5;
+ ADetalles.DetalleColores.COLOR6 := AArtColoresPendientes.COLOR6;
+ ADetalles.DetalleColores.COLOR7 := AArtColoresPendientes.COLOR7;
+ ADetalles.DetalleColores.COLOR8 := AArtColoresPendientes.COLOR8;
+ ADetalles.DetalleColores.COLOR9 := AArtColoresPendientes.COLOR9;
+ ADetalles.DetalleColores.COLOR10 := AArtColoresPendientes.COLOR10;
+ ADetalles.DetalleColores.COLOR11 := AArtColoresPendientes.COLOR11;
+ ADetalles.DetalleColores.COLOR12 := AArtColoresPendientes.COLOR12;
+ ADetalles.DetalleColores.Post;
+ end;
+
AArticulosPendientes.Next;
end;
end;
@@ -180,6 +202,7 @@ var
ARespuesta : Integer;
AuxAlbaran : IBizAlbaranCliente;
AArticulosPendientes: IBizPedidoClienteArticulosPend;
+ AArtColoresPendientes: IBizPedidoClienteArtColoresPend;
begin
Result := False;
AAlbaran := NIL;
@@ -194,20 +217,30 @@ begin
Inicializar;
try
- AArticulosPendientes := APedidosClienteController.ArticulosPendientes(APedido.ID);
+ AArticulosPendientes := APedidosClienteController.DetallesController.ArticulosPendientes(APedido.ID);
+ AArtColoresPendientes := APedidosClienteController.DetallesController.ArtColoresPendientes(APedido.ID);
if not Assigned(AArticulosPendientes) then
raise Exception.Create('Error al recuperar los artículos sin albarán del pedido (GenerarAlbaranCli)');
+ if not Assigned(AArtColoresPendientes) then
+ raise Exception.Create('Error al recuperar los colores de los artículos sin albarán del pedido (GenerarAlbaranCli)');
AArticulosPendientes.DataTable.Active := True;
+ AArtColoresPendientes.DataTable.Active := True;
if AArticulosPendientes.DataTable.RecordCount = 0 then
begin
ShowWarningMessage('Generar albarán a partir del pedido', 'Todos los artículos de este pedido ya figuran en uno o más albaranes de cliente. Por lo que no se pueden generar nuevos albaranes para este pedido');
- Exit; // Aunque es un exit, se ejecuta la parte del finally antes de salir.
+ Exit; // Aunque es un exit, se ejecuta la parte del finally antes de salir.
+ end;
+
+ if AArticulosPendientes.DataTable.RecordCount <> AArtColoresPendientes.DataTable.RecordCount then
+ begin
+ ShowWarningMessage('Generar albarán a partir del pedido', 'No coinciden los articulos pendientes con los colores pendientes. Por lo que no se pueden generar nuevos albaranes para este pedido');
+ Exit; // Aunque es un exit, se ejecuta la parte del finally antes de salir.
end;
AuxAlbaran := AAlbaranesClienteController.Nuevo;
CopiarPedidoAAlbaran(APedido, AuxAlbaran);
- CopiarArticulosPendAAlbaran(APedido, AuxAlbaran, AArticulosPendientes);
+ CopiarArticulosPendAAlbaran(APedido, AuxAlbaran, AArticulosPendientes, AArtColoresPendientes);
//Sustituir por if de guardar
if AAlbaranesClienteController.Guardar(AuxAlbaran) then
@@ -235,6 +268,7 @@ begin
Result := True;
finally
AArticulosPendientes := NIL;
+ AArtColoresPendientes := NIL;
if Assigned(APedidosClienteController) then
Finalizar;
end;
diff --git a/Source/Servidor/FactuGES_Server.RES b/Source/Servidor/FactuGES_Server.RES
index f8f10df..848d839 100644
Binary files a/Source/Servidor/FactuGES_Server.RES and b/Source/Servidor/FactuGES_Server.RES differ
diff --git a/Source/Servidor/FactuGES_Server.dpr b/Source/Servidor/FactuGES_Server.dpr
index f4b8f38..fec0c02 100644
--- a/Source/Servidor/FactuGES_Server.dpr
+++ b/Source/Servidor/FactuGES_Server.dpr
@@ -3,6 +3,7 @@ program FactuGES_Server;
{#ROGEN:..\Servicios\FactuGES.rodl} // RemObjects: Careful, do not remove!
uses
+// ExceptionLog,
uROComInit,
uROComboService,
Forms,
@@ -138,11 +139,11 @@ uses
uRptRemesasCliente_Server in '..\Modulos\Remesas de cliente\Reports\uRptRemesasCliente_Server.pas' {RptRemesasCliente: TDataModule},
srvPedidosCliente_Impl in '..\Modulos\Pedidos de cliente\Servidor\srvPedidosCliente_Impl.pas' {srvPedidosCliente: TDataAbstractService},
uBizPedidosClienteServer in '..\Modulos\Pedidos de cliente\Model\uBizPedidosClienteServer.pas',
+ uRptPedidosCliente_Server in '..\Modulos\Pedidos de cliente\Reports\uRptPedidosCliente_Server.pas' {RptPedidosCliente},
schAlbaranesClienteClient_Intf in '..\Modulos\Albaranes de cliente\Model\schAlbaranesClienteClient_Intf.pas',
schAlbaranesClienteServer_Intf in '..\Modulos\Albaranes de cliente\Model\schAlbaranesClienteServer_Intf.pas',
schPedidosClienteClient_Intf in '..\Modulos\Pedidos de cliente\Model\schPedidosClienteClient_Intf.pas',
- schPedidosClienteServer_Intf in '..\Modulos\Pedidos de cliente\Model\schPedidosClienteServer_Intf.pas',
- uRptPedidosCliente_Server in '..\Modulos\Pedidos de cliente\Reports\uRptPedidosCliente_Server.pas' {RptPedidosCliente};
+ schPedidosClienteServer_Intf in '..\Modulos\Pedidos de cliente\Model\schPedidosClienteServer_Intf.pas';
{$R *.res}
{$R ..\Servicios\RODLFile.res}
diff --git a/Source/Servidor/FactuGES_Server.dproj b/Source/Servidor/FactuGES_Server.dproj
index 11cd159..ae87e30 100644
--- a/Source/Servidor/FactuGES_Server.dproj
+++ b/Source/Servidor/FactuGES_Server.dproj
@@ -1,352 +1,352 @@
-
+
-
- {ebdcd25d-40d7-4146-91ec-a0ea4aa1dcd1}
- FactuGES_Server.dpr
- Debug
- AnyCPU
- DCC32
- ..\..\Output\Debug\Servidor\FactuGES_Server.exe
- vcl;rtl;vclx;vclactnband;dbrtl;vcldb;vcldbx;bdertl;dsnap;dsnapcon;teeUI;teedb;tee;adortl;vclib;ibxpress;dbxcds;dbexpress;DbxCommonDriver;IndyCore;IndySystem;IndyProtocols;VclSmp;vclie;webdsnap;xmlrtl;inet;inetdbbde;inetdbxpress;RemObjects_BPDX_D11;RemObjects_RODX_D11;RemObjects_Indy_D11;RemObjects_Synapse_D11;RemObjects_WebBroker_D11;DataAbstract_Core_D11;DataAbstract_DBXDriver_D11;DataAbstract_IDE_D11;DataAbstract_Scripting_D11;DataAbstract_SDACDriver_D11;sdac105;dac105;DataAbstract_SQLiteDriver_D11;cxEditorsD10;cxLibraryD10;dxThemeD10;cxDataD10;cxExtEditorsD10;cxGridD10;cxPageControlD10;cxSchedulerD10;cxTreeListD10;cxVerticalGridD10;dxBarD10;dxComnD10;dxBarDBNavD10;dxBarExtDBItemsD10;dxBarExtItemsD10;dxDockingD10;dxLayoutControlD10;dxNavBarD10;dxPSCoreD10;dxsbD10;dxPScxCommonD10;dxPSLnksD10;vclshlctrls;dxPScxExtCommonD10;dxPScxGridLnkD10;dxPScxPCProdD10;dxPScxScheduler2LnkD10;dxPScxTLLnkD10;dxPSdxLCLnkD10;dxPsPrVwAdvD10;pckMD5;pckUCDataConnector;pckUserControl_RT;PluginSDK_D10R;PNG_D10;PngComponentsD10;tb2k_d11;SpTBXLib_d11;JclVcl;Jcl;JvXPCtrlsD11R;JvCoreD11R;JvSystemD11R;JvStdCtrlsD11R;JvAppFrmD11R;JvBandsD11R;JvDBD11R;JvDlgsD11R;JvBDED11R;JvCmpD11R;JvCryptD11R;JvCtrlsD11R;JvCustomD11R;JvDockingD11R;JvDotNetCtrlsD11R;JvEDID11R;JvGlobusD11R;JvHMID11R;JvInterpreterD11R;JvJansD11R;JvManagedThreadsD11R;JvMMD11R;JvNetD11R;JvPageCompsD11R;JvPluginD11R;JvPrintPreviewD11R;JvRuntimeDesignD11R;JvTimeFrameworkD11R;JvUIBD11R;JvValidatorsD11R;JvWizardD11R;pckUCADOConn;pckUCBDEConn;pckUCIBXConn;pckUCMidasConn;cxExportD10;GUISDK_D11R;ccpackD11;JSDialog100;fsTee11;fs11;frx11;frxADO11;frxBDE11;frxDB11;frxDBX11;frxe11;frxIBX11;frxTee11;fsADO11;fsBDE11;fsDB11;fsIBX11;websnap;soaprtl;IntrawebDB_90_100;Intraweb_90_100
-
-
- 7.0
- False
- False
- 0
- 3
- ..\..\Output\Release\Servidor
- RELEASE
-
-
- 7.0
- 3
- ..\..\Output\Debug\Servidor
- DEBUG;
- True
- True
- True
- $(BDS)\Lib\Debug\Indy10;$(BDS)\lib\Debug
- $(BDS)\Lib\Debug\Indy10;$(BDS)\lib\Debug
- $(BDS)\Lib\Debug\Indy10;$(BDS)\lib\Debug
- $(BDS)\Lib\Debug\Indy10;$(BDS)\lib\Debug
-
-
- Delphi.Personality
-
-
-FalseTrueFalse/standaloneTrueFalse1020FalseFalseFalseFalseFalse30821252Rodax Software S.L.1.0.2.0FactuGES ServidorFactuGES Servidor1.0.2.0jueves, 18 de febrero de 2010 12:17FactuGES_Server.dpr
-
-
-
-
- MainSource
-
-
-
-
-
-
- TDARemoteService
-
-
-
- TDataModule
-
-
-
-
-
- TDataAbstractService
-
-
-
-
-
-
-
-
-
- TDataModule
-
-
-
- TDataModule
-
-
-
- TDataAbstractService
-
-
-
-
-
-
- TDataModule
-
-
-
- TDataModule
-
-
-
- TDataAbstractService
-
-
-
-
-
- TDARemoteService
-
-
-
-
-
-
- TDARemoteService
-
-
-
-
-
-
-
-
-
-
- TDataModule
-
-
-
- TDataModule
-
-
-
- TDARemoteService
-
-
-
-
-
- TDataAbstractService
-
-
-
-
-
-
- TDataModule
-
-
-
- TDataModule
-
-
-
- TDataAbstractService
-
-
-
-
-
-
- TDataModule
-
-
-
- TDataAbstractService
-
-
-
-
-
- TDataAbstractService
-
-
-
-
-
- TDataAbstractService
-
-
-
- TDataAbstractService
-
-
-
- TDataAbstractService
-
-
-
-
-
- TDataAbstractService
-
-
-
-
-
- TDataAbstractService
-
-
-
-
-
-
- TDataAbstractService
-
-
-
-
-
-
- TDataModule
-
-
-
- TDataModule
-
-
-
- TDataAbstractService
-
-
-
-
-
-
-
-
-
- TDataAbstractService
-
-
-
-
-
-
- TDataModule
-
-
-
- TDataModule
-
-
-
- TDataModule
-
-
-
- TDataAbstractService
-
-
-
-
-
- TDataModule
-
-
-
- TDataAbstractService
-
-
-
-
-
- TDataModule
-
-
-
- TDataAbstractService
-
-
-
-
-
- TDataAbstractService
-
-
-
-
-
-
- TDataModule
-
-
-
- TDataAbstractService
-
-
-
-
-
-
- TDataAbstractService
-
-
-
-
-
- TDataAbstractService
-
-
-
-
-
- TDataAbstractService
-
-
-
-
-
- TDataAbstractService
-
-
-
- TFrame
-
-
-
- TFrame
-
-
-
- TForm
-
-
-
- TFrame
-
-
-
- TDARemoteService
-
-
-
-
-
-
- TDataModule
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
+
+ {ebdcd25d-40d7-4146-91ec-a0ea4aa1dcd1}
+ FactuGES_Server.dpr
+ Debug
+ AnyCPU
+ DCC32
+ ..\..\Output\Debug\Servidor\FactuGES_Server.exe
+ vcl;rtl;vclx;vclactnband;dbrtl;vcldb;vcldbx;bdertl;dsnap;dsnapcon;teeUI;teedb;tee;adortl;vclib;ibxpress;dbxcds;dbexpress;DbxCommonDriver;IndyCore;IndySystem;IndyProtocols;VclSmp;vclie;webdsnap;xmlrtl;inet;inetdbbde;inetdbxpress;RemObjects_BPDX_D11;RemObjects_RODX_D11;RemObjects_Indy_D11;RemObjects_Synapse_D11;RemObjects_WebBroker_D11;DataAbstract_Core_D11;DataAbstract_DBXDriver_D11;DataAbstract_IDE_D11;DataAbstract_Scripting_D11;DataAbstract_SDACDriver_D11;sdac105;dac105;DataAbstract_SQLiteDriver_D11;cxEditorsD10;cxLibraryD10;dxThemeD10;cxDataD10;cxExtEditorsD10;cxGridD10;cxPageControlD10;cxSchedulerD10;cxTreeListD10;cxVerticalGridD10;dxBarD10;dxComnD10;dxBarDBNavD10;dxBarExtDBItemsD10;dxBarExtItemsD10;dxDockingD10;dxLayoutControlD10;dxNavBarD10;dxPSCoreD10;dxsbD10;dxPScxCommonD10;dxPSLnksD10;vclshlctrls;dxPScxExtCommonD10;dxPScxGridLnkD10;dxPScxPCProdD10;dxPScxScheduler2LnkD10;dxPScxTLLnkD10;dxPSdxLCLnkD10;dxPsPrVwAdvD10;pckMD5;pckUCDataConnector;pckUserControl_RT;PluginSDK_D10R;PNG_D10;PngComponentsD10;tb2k_d11;SpTBXLib_d11;JclVcl;Jcl;JvXPCtrlsD11R;JvCoreD11R;JvSystemD11R;JvStdCtrlsD11R;JvAppFrmD11R;JvBandsD11R;JvDBD11R;JvDlgsD11R;JvBDED11R;JvCmpD11R;JvCryptD11R;JvCtrlsD11R;JvCustomD11R;JvDockingD11R;JvDotNetCtrlsD11R;JvEDID11R;JvGlobusD11R;JvHMID11R;JvInterpreterD11R;JvJansD11R;JvManagedThreadsD11R;JvMMD11R;JvNetD11R;JvPageCompsD11R;JvPluginD11R;JvPrintPreviewD11R;JvRuntimeDesignD11R;JvTimeFrameworkD11R;JvUIBD11R;JvValidatorsD11R;JvWizardD11R;pckUCADOConn;pckUCBDEConn;pckUCIBXConn;pckUCMidasConn;cxExportD10;GUISDK_D11R;ccpackD11;JSDialog100;fsTee11;fs11;frx11;frxADO11;frxBDE11;frxDB11;frxDBX11;frxe11;frxIBX11;frxTee11;fsADO11;fsBDE11;fsDB11;fsIBX11;websnap;soaprtl;IntrawebDB_90_100;Intraweb_90_100
+
+
+ 7.0
+ False
+ False
+ 0
+ 3
+ ..\..\Output\Release\Servidor
+ RELEASE
+
+
+ 7.0
+ 3
+ ..\..\Output\Debug\Servidor
+ DEBUG;EUREKALOG;EUREKALOG_VER6
+ True
+ True
+ True
+ $(BDS)\Lib\Debug\Indy10;$(BDS)\lib\Debug
+ $(BDS)\Lib\Debug\Indy10;$(BDS)\lib\Debug
+ $(BDS)\Lib\Debug\Indy10;$(BDS)\lib\Debug
+ $(BDS)\Lib\Debug\Indy10;$(BDS)\lib\Debug
+
+
+ Delphi.Personality
+
+
+ FalseTrueFalse/standaloneTrueFalse1020FalseFalseFalseFalseFalse30821252Rodax Software S.L.1.0.2.0FactuGES ServidorFactuGES Servidor1.0.2.0jueves, 18 de febrero de 2010 12:17FactuGES_Server.dpr
+
+
+
+
+ MainSource
+
+
+
+
+
+ TDARemoteService
+
+
+
+ TDataModule
+
+
+
+
+
+ TDataAbstractService
+
+
+
+
+
+
+
+
+
+ TDataModule
+
+
+
+ TDataModule
+
+
+
+ TDataAbstractService
+
+
+
+
+
+
+ TDataModule
+
+
+
+ TDataModule
+
+
+
+ TDataAbstractService
+
+
+
+
+
+ TDARemoteService
+
+
+
+
+
+
+ TDARemoteService
+
+
+
+
+
+
+
+
+
+
+ TDataModule
+
+
+
+ TDataModule
+
+
+
+ TDARemoteService
+
+
+
+
+
+ TDataAbstractService
+
+
+
+
+
+
+ TDataModule
+
+
+
+ TDataModule
+
+
+
+ TDataAbstractService
+
+
+
+
+
+
+ TDataModule
+
+
+
+ TDataAbstractService
+
+
+
+
+
+ TDataAbstractService
+
+
+
+
+
+ TDataAbstractService
+
+
+
+ TDataAbstractService
+
+
+
+ TDataAbstractService
+
+
+
+
+
+ TDataAbstractService
+
+
+
+
+
+ TDataAbstractService
+
+
+
+
+
+
+ TDataAbstractService
+
+
+
+
+
+
+ TDataModule
+
+
+
+ TDataModule
+
+
+
+ TDataAbstractService
+
+
+
+
+
+
+
+
+
+ TDataAbstractService
+
+
+
+
+
+
+ TDataModule
+
+
+
+ TDataModule
+
+
+
+ TDataModule
+
+
+
+ TDataAbstractService
+
+
+
+
+
+ TDataModule
+
+
+
+ TDataAbstractService
+
+
+
+
+
+ TDataModule
+
+
+
+ TDataAbstractService
+
+
+
+
+
+ TDataAbstractService
+
+
+
+
+
+
+ TDataModule
+
+
+
+ TDataAbstractService
+
+
+
+
+
+
+ TDataAbstractService
+
+
+
+
+
+ TDataAbstractService
+
+
+
+
+
+ TDataAbstractService
+
+
+
+
+
+ TDataAbstractService
+
+
+
+ TFrame
+
+
+
+ TFrame
+
+
+
+ TForm
+
+
+
+ TFrame
+
+
+
+ TDARemoteService
+
+
+
+
+
+
+ TDataModule
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+