diff --git a/Build/Build.fbp5 b/Build/Build.fbp5
index fcd164e4..68d1b850 100644
--- a/Build/Build.fbp5
+++ b/Build/Build.fbp5
@@ -574,12 +574,12 @@ source_path
2
0
- 3
+ 4
False
0
%source_path%\Servidor\FactuGES_Server.dpr
True
- 9
+ 0
rcBorland
@@ -594,15 +594,15 @@ source_path
True
@@ -20599,12 +20599,12 @@ Comments=
2
0
- 3
+ 4
False
0
%source_path%\Cliente\FactuGES.dpr
True
- 9
+ 0
rcBorland
@@ -20619,13 +20619,13 @@ Comments=
False
@@ -20697,7 +20697,7 @@ Comments=
- True
+ False
True
False
True
@@ -20786,7 +20786,7 @@ Comments=
- True
+ False
True
False
True
@@ -20854,7 +20854,7 @@ Comments=
- True
+ False
True
False
True
@@ -21038,7 +21038,7 @@ Comments=
0
- True
+ False
True
False
True
@@ -21281,7 +21281,7 @@ Comments=
- True
+ False
True
False
True
diff --git a/Source/Cliente/FactuGES.bdsproj b/Source/Cliente/FactuGES.bdsproj
index f4ba3f95..31c46d79 100644
--- a/Source/Cliente/FactuGES.bdsproj
+++ b/Source/Cliente/FactuGES.bdsproj
@@ -148,7 +148,7 @@
True
False
2
- 4
+ 5
0
0
False
@@ -162,7 +162,7 @@
Rodax Software S.L.
- 2.4.0.0
+ 2.5.0.0
FactuGES
diff --git a/Source/Cliente/FactuGES.rc b/Source/Cliente/FactuGES.rc
index 2124bb77..4edd4453 100644
--- a/Source/Cliente/FactuGES.rc
+++ b/Source/Cliente/FactuGES.rc
@@ -1,7 +1,7 @@
MAINICON ICON "c:\Codigo Luis Leon\Source\Iconos\Factuges.ico"
1 VERSIONINFO
-FILEVERSION 2,4,0,0
-PRODUCTVERSION 2,4,0,0
+FILEVERSION 2,5,0,0
+PRODUCTVERSION 2,5,0,0
FILEFLAGSMASK 0x3FL
FILEFLAGS 0x00L
FILEOS 0x40004L
@@ -13,7 +13,7 @@ BEGIN
BLOCK "0C0A04E4"
BEGIN
VALUE "CompanyName", "Rodax Software S.L.\0"
- VALUE "FileVersion", "2.4.0.0\0"
+ VALUE "FileVersion", "2.5.0.0\0"
VALUE "InternalName", "FactuGES\0"
VALUE "ProductVersion", "2.3.9.0\0"
END
diff --git a/Source/Cliente/FactuGES.res b/Source/Cliente/FactuGES.res
index 02e72f13..675d96b3 100644
Binary files a/Source/Cliente/FactuGES.res and b/Source/Cliente/FactuGES.res differ
diff --git a/Source/FactuGES_Group.bdsgroup b/Source/FactuGES_Group.bdsgroup
index 991e16b2..7c1f326f 100644
--- a/Source/FactuGES_Group.bdsgroup
+++ b/Source/FactuGES_Group.bdsgroup
@@ -8,9 +8,7 @@
-
-
-
+
DataAbstract_D10\DataAbstract_D10.bdsproj
Base\Base.bdsproj
Base\ControllerBase\ControllerBase.bdsproj
@@ -87,13 +85,8 @@
Modulos\Albaranes de proveedor\Plugin\AlbaranesProveedor_plugin.bdsproj
Cliente\FactuGES.bdsproj
Servidor\FactuGES_Server.bdsproj
- Modulos\Comisiones\Model\Comisiones_model.bdsproj
- Modulos\Comisiones\Data\Comisiones_data.bdsproj
- Modulos\Comisiones\Controller\Comisiones_controller.bdsproj
- Modulos\Comisiones\Views\Comisiones_view.bdsproj
- Modulos\Comisiones\Plugin\Comisiones_plugin.bdsproj
Modulos\Relaciones\Albaranes de cliente - Facturas de cliente\AlbCli_FacCli_relation.bdsproj
- DataAbstract_D10.bpl Base.bpl ControllerBase.bpl GUIBase.bpl Empresas_model.bpl Empresas_data.bpl Empresas_controller.bpl Usuarios.bpl Empresas_view.bpl Empresas_plugin.bpl TiposIVA_model.bpl TiposIVA_data.bpl TiposIVA_controller.bpl TiposIVA_view.bpl TiposIVA_plugin.bpl Contactos_model.bpl Contactos_data.bpl Contactos_controller.bpl Contactos_view.bpl Contactos_plugin.bpl Almacenes_model.bpl Almacenes_data.bpl Almacenes_controller.bpl Almacenes_view.bpl Almacenes_plugin.bpl Articulos_model.bpl Articulos_data.bpl Articulos_controller.bpl Articulos_view.bpl Articulos_plugin.bpl RecibosCliente_model.bpl RecibosCliente_data.bpl RecibosCliente_controller.bpl RecibosCliente_view.bpl RecibosCliente_plugin.bpl RemesasCliente_model.bpl RemesasCliente_data.bpl RemesasCliente_controller.bpl BancaElectronica_controller.bpl BancaElectronica_view.bpl RemesasCliente_view.bpl RemesasCliente_plugin.bpl PedidosCliente_model.bpl PedidosCliente_data.bpl PedidosCliente_controller.bpl AlbaranesCliente_model.bpl AlbaranesCliente_data.bpl AlbaranesCliente_controller.bpl FacturasCliente_model.bpl FacturasCliente_data.bpl FacturasCliente_controller.bpl PedidosProveedor_model.bpl PedidosProveedor_data.bpl PedidosProveedor_controller.bpl Inventario_model.bpl Inventario_data.bpl Inventario_controller.bpl AlbaranesProveedor_model.bpl AlbaranesProveedor_data.bpl AlbaranesProveedor_controller.bpl PedCli_PedProv_relation.bpl PedCli_AlbCli_relation.bpl PedidosCliente_view.bpl PedidosCliente_plugin.bpl AlbaranesCliente_view.bpl AlbaranesCliente_plugin.bpl FacturasCliente_view.bpl FacturasCliente_plugin.bpl Inventario_view.bpl Inventario_plugin.bpl PedidosProveedor_view.bpl PedidosProveedor_plugin.bpl AlbaranesProveedor_view.bpl AlbaranesProveedor_plugin.bpl FactuGES.exe FactuGES_Server.exe Comisiones_model.bpl Comisiones_data.bpl Comisiones_controller.bpl Comisiones_view.bpl Comisiones_plugin.bpl AlbCli_FacCli_relation.bpl
+ DataAbstract_D10.bpl Base.bpl ControllerBase.bpl GUIBase.bpl Empresas_model.bpl Empresas_data.bpl Empresas_controller.bpl Usuarios.bpl Empresas_view.bpl Empresas_plugin.bpl TiposIVA_model.bpl TiposIVA_data.bpl TiposIVA_controller.bpl TiposIVA_view.bpl TiposIVA_plugin.bpl Contactos_model.bpl Contactos_data.bpl Contactos_controller.bpl Contactos_view.bpl Contactos_plugin.bpl Almacenes_model.bpl Almacenes_data.bpl Almacenes_controller.bpl Almacenes_view.bpl Almacenes_plugin.bpl Articulos_model.bpl Articulos_data.bpl Articulos_controller.bpl Articulos_view.bpl Articulos_plugin.bpl RecibosCliente_model.bpl RecibosCliente_data.bpl RecibosCliente_controller.bpl RecibosCliente_view.bpl RecibosCliente_plugin.bpl RemesasCliente_model.bpl RemesasCliente_data.bpl RemesasCliente_controller.bpl BancaElectronica_controller.bpl BancaElectronica_view.bpl RemesasCliente_view.bpl RemesasCliente_plugin.bpl PedidosCliente_model.bpl PedidosCliente_data.bpl PedidosCliente_controller.bpl AlbaranesCliente_model.bpl AlbaranesCliente_data.bpl AlbaranesCliente_controller.bpl FacturasCliente_model.bpl FacturasCliente_data.bpl FacturasCliente_controller.bpl PedidosProveedor_model.bpl PedidosProveedor_data.bpl PedidosProveedor_controller.bpl Inventario_model.bpl Inventario_data.bpl Inventario_controller.bpl AlbaranesProveedor_model.bpl AlbaranesProveedor_data.bpl AlbaranesProveedor_controller.bpl PedCli_PedProv_relation.bpl PedCli_AlbCli_relation.bpl PedidosCliente_view.bpl PedidosCliente_plugin.bpl AlbaranesCliente_view.bpl AlbaranesCliente_plugin.bpl FacturasCliente_view.bpl FacturasCliente_plugin.bpl Inventario_view.bpl Inventario_plugin.bpl PedidosProveedor_view.bpl PedidosProveedor_plugin.bpl AlbaranesProveedor_view.bpl AlbaranesProveedor_plugin.bpl FactuGES.exe FactuGES_Server.exe AlbCli_FacCli_relation.bpl
diff --git a/Source/Modulos/Albaranes de cliente/AlbaranesCliente_Group.bdsgroup b/Source/Modulos/Albaranes de cliente/AlbaranesCliente_Group.bdsgroup
index 2d21f129..8fbb0e63 100644
--- a/Source/Modulos/Albaranes de cliente/AlbaranesCliente_Group.bdsgroup
+++ b/Source/Modulos/Albaranes de cliente/AlbaranesCliente_Group.bdsgroup
@@ -22,7 +22,10 @@
Plugin\AlbaranesCliente_plugin.bdsproj
..\Relaciones\Albaranes de cliente - Facturas de cliente\AlbCli_FacCli_relation.bdsproj
..\Facturas de cliente\Views\FacturasCliente_view.bdsproj
- DataAbstract_D10.bpl Base.bpl ControllerBase.bpl GUIBase.bpl Contactos_view.bpl Articulos_view.bpl AlbaranesCliente_model.bpl AlbaranesCliente_data.bpl AlbaranesCliente_controller.bpl AlbaranesCliente_view.bpl AlbaranesCliente_plugin.bpl AlbCli_FacCli_relation.bpl FacturasCliente_view.bpl
+ ..\..\Servidor\FactuGES_Server.bdsproj
+ ..\..\Cliente\FactuGES.bdsproj
+ ..\Relaciones\Pedidos de cliente - Albaranes de cliente\PedCli_AlbCli_relation.bdsproj
+ DataAbstract_D10.bpl Base.bpl ControllerBase.bpl GUIBase.bpl Contactos_view.bpl Articulos_view.bpl AlbaranesCliente_model.bpl AlbaranesCliente_data.bpl AlbaranesCliente_controller.bpl AlbaranesCliente_view.bpl AlbaranesCliente_plugin.bpl AlbCli_FacCli_relation.bpl FacturasCliente_view.bpl FactuGES_Server.exe FactuGES.exe PedCli_AlbCli_relation.bpl
diff --git a/Source/Modulos/Albaranes de cliente/Data/uDataModuleAlbaranesCliente.dfm b/Source/Modulos/Albaranes de cliente/Data/uDataModuleAlbaranesCliente.dfm
index 10bf388b..18ee0d51 100644
--- a/Source/Modulos/Albaranes de cliente/Data/uDataModuleAlbaranesCliente.dfm
+++ b/Source/Modulos/Albaranes de cliente/Data/uDataModuleAlbaranesCliente.dfm
@@ -737,6 +737,17 @@ object DataModuleAlbaranesCliente: TDataModuleAlbaranesCliente
Lookup = False
LookupCache = False
end
+ item
+ Name = 'ID_PEDIDO'
+ DataType = datInteger
+ BlobType = dabtUnknown
+ DisplayWidth = 0
+ Alignment = taLeftJustify
+ InPrimaryKey = False
+ Calculated = False
+ Lookup = False
+ LookupCache = False
+ end
item
Name = 'POSICION'
DataType = datInteger
@@ -897,7 +908,7 @@ object DataModuleAlbaranesCliente: TDataModuleAlbaranesCliente
Name = 'ID_ALBARAN'
DataType = datInteger
BlobType = dabtUnknown
- Value = 41
+ Value = ''
ParamType = daptInput
end>
MasterMappingMode = mmParams
diff --git a/Source/Modulos/Albaranes de cliente/Model/schAlbaranesClienteClient_Intf.pas b/Source/Modulos/Albaranes de cliente/Model/schAlbaranesClienteClient_Intf.pas
index e5628812..832aa03e 100644
--- a/Source/Modulos/Albaranes de cliente/Model/schAlbaranesClienteClient_Intf.pas
+++ b/Source/Modulos/Albaranes de cliente/Model/schAlbaranesClienteClient_Intf.pas
@@ -9,11 +9,11 @@ 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_DarReferencia = '{341025B6-FE72-4C74-BDF0-C3927C245F63}';
- RID_AlbaranesCliente = '{16CEF413-0B6A-4EF4-93E5-84AA225DFAD4}';
- RID_AlbaranesCliente_Detalles = '{D5262A01-1237-4B9B-94C7-69EB0A2EE285}';
- RID_AlbaranesCliente_Detalles_Refresh = '{185547D0-70EE-444D-9F66-AD112ED2E6DD}';
- RID_AlbaranesCliente_Refresh = '{6B67F077-F0E0-4D9F-81E4-4DA4F11B1D17}';
+ RID_DarReferencia = '{082B0C4D-3177-4BB4-B3B3-768B55A2D4CD}';
+ RID_AlbaranesCliente = '{3BDADEA6-ACB7-4E6F-8877-8634A2F4B4FB}';
+ RID_AlbaranesCliente_Detalles = '{0ACEBB64-A4A0-410C-BA50-BE62510542C0}';
+ RID_AlbaranesCliente_Detalles_Refresh = '{0E3B100E-D70D-41C4-BC7C-D53C5C732E65}';
+ RID_AlbaranesCliente_Refresh = '{19951F6E-3BFD-4195-A2F3-0D66AAC9B375}';
{ Data table names }
nme_DarReferencia = 'DarReferencia';
@@ -117,6 +117,7 @@ const
{ AlbaranesCliente_Detalles fields }
fld_AlbaranesCliente_DetallesID = 'ID';
fld_AlbaranesCliente_DetallesID_ALBARAN = 'ID_ALBARAN';
+ fld_AlbaranesCliente_DetallesID_PEDIDO = 'ID_PEDIDO';
fld_AlbaranesCliente_DetallesPOSICION = 'POSICION';
fld_AlbaranesCliente_DetallesTIPO_DETALLE = 'TIPO_DETALLE';
fld_AlbaranesCliente_DetallesREFERENCIA = 'REFERENCIA';
@@ -133,22 +134,24 @@ const
{ AlbaranesCliente_Detalles field indexes }
idx_AlbaranesCliente_DetallesID = 0;
idx_AlbaranesCliente_DetallesID_ALBARAN = 1;
- idx_AlbaranesCliente_DetallesPOSICION = 2;
- idx_AlbaranesCliente_DetallesTIPO_DETALLE = 3;
- idx_AlbaranesCliente_DetallesREFERENCIA = 4;
- idx_AlbaranesCliente_DetallesID_ARTICULO = 5;
- idx_AlbaranesCliente_DetallesCONCEPTO = 6;
- idx_AlbaranesCliente_DetallesCANTIDAD = 7;
- idx_AlbaranesCliente_DetallesIMPORTE_UNIDAD = 8;
- idx_AlbaranesCliente_DetallesIMPORTE_TOTAL = 9;
- idx_AlbaranesCliente_DetallesDESCUENTO = 10;
- idx_AlbaranesCliente_DetallesIMPORTE_PORTE = 11;
- idx_AlbaranesCliente_DetallesVISIBLE = 12;
- idx_AlbaranesCliente_DetallesREFERENCIA_PROVEEDOR = 13;
+ idx_AlbaranesCliente_DetallesID_PEDIDO = 2;
+ idx_AlbaranesCliente_DetallesPOSICION = 3;
+ idx_AlbaranesCliente_DetallesTIPO_DETALLE = 4;
+ idx_AlbaranesCliente_DetallesREFERENCIA = 5;
+ idx_AlbaranesCliente_DetallesID_ARTICULO = 6;
+ idx_AlbaranesCliente_DetallesCONCEPTO = 7;
+ idx_AlbaranesCliente_DetallesCANTIDAD = 8;
+ idx_AlbaranesCliente_DetallesIMPORTE_UNIDAD = 9;
+ idx_AlbaranesCliente_DetallesIMPORTE_TOTAL = 10;
+ idx_AlbaranesCliente_DetallesDESCUENTO = 11;
+ idx_AlbaranesCliente_DetallesIMPORTE_PORTE = 12;
+ idx_AlbaranesCliente_DetallesVISIBLE = 13;
+ idx_AlbaranesCliente_DetallesREFERENCIA_PROVEEDOR = 14;
{ AlbaranesCliente_Detalles_Refresh fields }
fld_AlbaranesCliente_Detalles_RefreshID = 'ID';
fld_AlbaranesCliente_Detalles_RefreshID_ALBARAN = 'ID_ALBARAN';
+ fld_AlbaranesCliente_Detalles_RefreshID_PEDIDO = 'ID_PEDIDO';
fld_AlbaranesCliente_Detalles_RefreshPOSICION = 'POSICION';
fld_AlbaranesCliente_Detalles_RefreshTIPO_DETALLE = 'TIPO_DETALLE';
fld_AlbaranesCliente_Detalles_RefreshREFERENCIA = 'REFERENCIA';
@@ -165,18 +168,19 @@ const
{ AlbaranesCliente_Detalles_Refresh field indexes }
idx_AlbaranesCliente_Detalles_RefreshID = 0;
idx_AlbaranesCliente_Detalles_RefreshID_ALBARAN = 1;
- idx_AlbaranesCliente_Detalles_RefreshPOSICION = 2;
- idx_AlbaranesCliente_Detalles_RefreshTIPO_DETALLE = 3;
- idx_AlbaranesCliente_Detalles_RefreshREFERENCIA = 4;
- idx_AlbaranesCliente_Detalles_RefreshID_ARTICULO = 5;
- idx_AlbaranesCliente_Detalles_RefreshCONCEPTO = 6;
- idx_AlbaranesCliente_Detalles_RefreshCANTIDAD = 7;
- idx_AlbaranesCliente_Detalles_RefreshIMPORTE_UNIDAD = 8;
- idx_AlbaranesCliente_Detalles_RefreshIMPORTE_TOTAL = 9;
- idx_AlbaranesCliente_Detalles_RefreshDESCUENTO = 10;
- idx_AlbaranesCliente_Detalles_RefreshIMPORTE_PORTE = 11;
- idx_AlbaranesCliente_Detalles_RefreshVISIBLE = 12;
- idx_AlbaranesCliente_Detalles_RefreshREFERENCIA_PROVEEDOR = 13;
+ idx_AlbaranesCliente_Detalles_RefreshID_PEDIDO = 2;
+ idx_AlbaranesCliente_Detalles_RefreshPOSICION = 3;
+ idx_AlbaranesCliente_Detalles_RefreshTIPO_DETALLE = 4;
+ idx_AlbaranesCliente_Detalles_RefreshREFERENCIA = 5;
+ idx_AlbaranesCliente_Detalles_RefreshID_ARTICULO = 6;
+ idx_AlbaranesCliente_Detalles_RefreshCONCEPTO = 7;
+ idx_AlbaranesCliente_Detalles_RefreshCANTIDAD = 8;
+ idx_AlbaranesCliente_Detalles_RefreshIMPORTE_UNIDAD = 9;
+ idx_AlbaranesCliente_Detalles_RefreshIMPORTE_TOTAL = 10;
+ idx_AlbaranesCliente_Detalles_RefreshDESCUENTO = 11;
+ idx_AlbaranesCliente_Detalles_RefreshIMPORTE_PORTE = 12;
+ idx_AlbaranesCliente_Detalles_RefreshVISIBLE = 13;
+ idx_AlbaranesCliente_Detalles_RefreshREFERENCIA_PROVEEDOR = 14;
{ AlbaranesCliente_Refresh fields }
fld_AlbaranesCliente_RefreshID = 'ID';
@@ -267,7 +271,7 @@ const
type
{ IDarReferencia }
IDarReferencia = interface(IDAStronglyTypedDataTable)
- ['{C2E7FD79-3AA4-4157-8F79-E6E526FDCC9B}']
+ ['{7E399946-10F5-4182-AF9A-88118707303F}']
{ Property getters and setters }
function GetVALORValue: String;
procedure SetVALORValue(const aValue: String);
@@ -296,7 +300,7 @@ type
{ IAlbaranesCliente }
IAlbaranesCliente = interface(IDAStronglyTypedDataTable)
- ['{E4A33579-0951-4E59-99D3-6F272440FE61}']
+ ['{A9F7185C-D38D-4987-8371-EAAABA04D66F}']
{ Property getters and setters }
function GetIDValue: Integer;
procedure SetIDValue(const aValue: Integer);
@@ -565,12 +569,14 @@ type
{ IAlbaranesCliente_Detalles }
IAlbaranesCliente_Detalles = interface(IDAStronglyTypedDataTable)
- ['{97C8D6FE-11E0-4CF1-9B6F-F84B193FB0FB}']
+ ['{B10831B5-8141-4090-8D71-0F09742F86ED}']
{ Property getters and setters }
function GetIDValue: Integer;
procedure SetIDValue(const aValue: Integer);
function GetID_ALBARANValue: Integer;
procedure SetID_ALBARANValue(const aValue: Integer);
+ function GetID_PEDIDOValue: Integer;
+ procedure SetID_PEDIDOValue(const aValue: Integer);
function GetPOSICIONValue: Integer;
procedure SetPOSICIONValue(const aValue: Integer);
function GetTIPO_DETALLEValue: String;
@@ -600,6 +606,7 @@ type
{ Properties }
property ID: Integer read GetIDValue write SetIDValue;
property ID_ALBARAN: Integer read GetID_ALBARANValue write SetID_ALBARANValue;
+ property ID_PEDIDO: Integer read GetID_PEDIDOValue write SetID_PEDIDOValue;
property POSICION: Integer read GetPOSICIONValue write SetPOSICIONValue;
property TIPO_DETALLE: String read GetTIPO_DETALLEValue write SetTIPO_DETALLEValue;
property REFERENCIA: String read GetREFERENCIAValue write SetREFERENCIAValue;
@@ -623,6 +630,8 @@ type
procedure SetIDValue(const aValue: Integer); virtual;
function GetID_ALBARANValue: Integer; virtual;
procedure SetID_ALBARANValue(const aValue: Integer); virtual;
+ function GetID_PEDIDOValue: Integer; virtual;
+ procedure SetID_PEDIDOValue(const aValue: Integer); virtual;
function GetPOSICIONValue: Integer; virtual;
procedure SetPOSICIONValue(const aValue: Integer); virtual;
function GetTIPO_DETALLEValue: String; virtual;
@@ -651,6 +660,7 @@ type
{ Properties }
property ID: Integer read GetIDValue write SetIDValue;
property ID_ALBARAN: Integer read GetID_ALBARANValue write SetID_ALBARANValue;
+ property ID_PEDIDO: Integer read GetID_PEDIDOValue write SetID_PEDIDOValue;
property POSICION: Integer read GetPOSICIONValue write SetPOSICIONValue;
property TIPO_DETALLE: String read GetTIPO_DETALLEValue write SetTIPO_DETALLEValue;
property REFERENCIA: String read GetREFERENCIAValue write SetREFERENCIAValue;
@@ -672,12 +682,14 @@ type
{ IAlbaranesCliente_Detalles_Refresh }
IAlbaranesCliente_Detalles_Refresh = interface(IDAStronglyTypedDataTable)
- ['{E9B38B1D-00D3-4E28-AAC2-94A82323A4CC}']
+ ['{48F905D6-3C7F-4E0F-9E48-8B91954739ED}']
{ Property getters and setters }
function GetIDValue: Integer;
procedure SetIDValue(const aValue: Integer);
function GetID_ALBARANValue: Integer;
procedure SetID_ALBARANValue(const aValue: Integer);
+ function GetID_PEDIDOValue: Integer;
+ procedure SetID_PEDIDOValue(const aValue: Integer);
function GetPOSICIONValue: Integer;
procedure SetPOSICIONValue(const aValue: Integer);
function GetTIPO_DETALLEValue: String;
@@ -707,6 +719,7 @@ type
{ Properties }
property ID: Integer read GetIDValue write SetIDValue;
property ID_ALBARAN: Integer read GetID_ALBARANValue write SetID_ALBARANValue;
+ property ID_PEDIDO: Integer read GetID_PEDIDOValue write SetID_PEDIDOValue;
property POSICION: Integer read GetPOSICIONValue write SetPOSICIONValue;
property TIPO_DETALLE: String read GetTIPO_DETALLEValue write SetTIPO_DETALLEValue;
property REFERENCIA: String read GetREFERENCIAValue write SetREFERENCIAValue;
@@ -730,6 +743,8 @@ type
procedure SetIDValue(const aValue: Integer); virtual;
function GetID_ALBARANValue: Integer; virtual;
procedure SetID_ALBARANValue(const aValue: Integer); virtual;
+ function GetID_PEDIDOValue: Integer; virtual;
+ procedure SetID_PEDIDOValue(const aValue: Integer); virtual;
function GetPOSICIONValue: Integer; virtual;
procedure SetPOSICIONValue(const aValue: Integer); virtual;
function GetTIPO_DETALLEValue: String; virtual;
@@ -758,6 +773,7 @@ type
{ Properties }
property ID: Integer read GetIDValue write SetIDValue;
property ID_ALBARAN: Integer read GetID_ALBARANValue write SetID_ALBARANValue;
+ property ID_PEDIDO: Integer read GetID_PEDIDOValue write SetID_PEDIDOValue;
property POSICION: Integer read GetPOSICIONValue write SetPOSICIONValue;
property TIPO_DETALLE: String read GetTIPO_DETALLEValue write SetTIPO_DETALLEValue;
property REFERENCIA: String read GetREFERENCIAValue write SetREFERENCIAValue;
@@ -779,7 +795,7 @@ type
{ IAlbaranesCliente_Refresh }
IAlbaranesCliente_Refresh = interface(IDAStronglyTypedDataTable)
- ['{59B27143-6A32-490E-99D3-EBCA96FEF3E7}']
+ ['{D51B67F3-2EC6-46BC-82F7-B2BE93663E91}']
{ Property getters and setters }
function GetIDValue: Integer;
procedure SetIDValue(const aValue: Integer);
@@ -1527,6 +1543,16 @@ begin
DataTable.Fields[idx_AlbaranesCliente_DetallesID_ALBARAN].AsInteger := aValue;
end;
+function TAlbaranesCliente_DetallesDataTableRules.GetID_PEDIDOValue: Integer;
+begin
+ result := DataTable.Fields[idx_AlbaranesCliente_DetallesID_PEDIDO].AsInteger;
+end;
+
+procedure TAlbaranesCliente_DetallesDataTableRules.SetID_PEDIDOValue(const aValue: Integer);
+begin
+ DataTable.Fields[idx_AlbaranesCliente_DetallesID_PEDIDO].AsInteger := aValue;
+end;
+
function TAlbaranesCliente_DetallesDataTableRules.GetPOSICIONValue: Integer;
begin
result := DataTable.Fields[idx_AlbaranesCliente_DetallesPOSICION].AsInteger;
@@ -1679,6 +1705,16 @@ begin
DataTable.Fields[idx_AlbaranesCliente_Detalles_RefreshID_ALBARAN].AsInteger := aValue;
end;
+function TAlbaranesCliente_Detalles_RefreshDataTableRules.GetID_PEDIDOValue: Integer;
+begin
+ result := DataTable.Fields[idx_AlbaranesCliente_Detalles_RefreshID_PEDIDO].AsInteger;
+end;
+
+procedure TAlbaranesCliente_Detalles_RefreshDataTableRules.SetID_PEDIDOValue(const aValue: Integer);
+begin
+ DataTable.Fields[idx_AlbaranesCliente_Detalles_RefreshID_PEDIDO].AsInteger := aValue;
+end;
+
function TAlbaranesCliente_Detalles_RefreshDataTableRules.GetPOSICIONValue: Integer;
begin
result := DataTable.Fields[idx_AlbaranesCliente_Detalles_RefreshPOSICION].AsInteger;
diff --git a/Source/Modulos/Albaranes de cliente/Model/schAlbaranesClienteServer_Intf.pas b/Source/Modulos/Albaranes de cliente/Model/schAlbaranesClienteServer_Intf.pas
index c52601f9..f55599b9 100644
--- a/Source/Modulos/Albaranes de cliente/Model/schAlbaranesClienteServer_Intf.pas
+++ b/Source/Modulos/Albaranes de cliente/Model/schAlbaranesClienteServer_Intf.pas
@@ -9,16 +9,16 @@ 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_DarReferenciaDelta = '{41FD0C2E-1F83-4A29-90F8-DF7AC5F20671}';
- RID_AlbaranesClienteDelta = '{DF0B838F-1795-4D57-9430-4BDC5E34F39F}';
- RID_AlbaranesCliente_DetallesDelta = '{F9848F77-A24D-4559-A63E-46C49E6B6FCA}';
- RID_AlbaranesCliente_Detalles_RefreshDelta = '{6F609F3D-CA71-4EDF-88DC-126708EA0DFA}';
- RID_AlbaranesCliente_RefreshDelta = '{AEF4C61D-CCBB-4E95-9F61-4D891E5F00B3}';
+ RID_DarReferenciaDelta = '{3D8FD5D2-A886-493F-8792-FF470F196654}';
+ RID_AlbaranesClienteDelta = '{B423BC9B-11C5-4CD6-B4DE-15BD0746B77F}';
+ RID_AlbaranesCliente_DetallesDelta = '{07D56912-3A90-4AB6-A546-53E07A7F32FA}';
+ RID_AlbaranesCliente_Detalles_RefreshDelta = '{180849FA-AF37-4138-A0D9-B89C55E94A4D}';
+ RID_AlbaranesCliente_RefreshDelta = '{53C27CD8-3116-4171-97EE-4DDD39E6DFF3}';
type
{ IDarReferenciaDelta }
IDarReferenciaDelta = interface(IDarReferencia)
- ['{41FD0C2E-1F83-4A29-90F8-DF7AC5F20671}']
+ ['{3D8FD5D2-A886-493F-8792-FF470F196654}']
{ Property getters and setters }
function GetOldVALORValue : String;
@@ -47,7 +47,7 @@ type
{ IAlbaranesClienteDelta }
IAlbaranesClienteDelta = interface(IAlbaranesCliente)
- ['{DF0B838F-1795-4D57-9430-4BDC5E34F39F}']
+ ['{B423BC9B-11C5-4CD6-B4DE-15BD0746B77F}']
{ Property getters and setters }
function GetOldIDValue : Integer;
function GetOldID_EMPRESAValue : Integer;
@@ -356,10 +356,11 @@ type
{ IAlbaranesCliente_DetallesDelta }
IAlbaranesCliente_DetallesDelta = interface(IAlbaranesCliente_Detalles)
- ['{F9848F77-A24D-4559-A63E-46C49E6B6FCA}']
+ ['{07D56912-3A90-4AB6-A546-53E07A7F32FA}']
{ Property getters and setters }
function GetOldIDValue : Integer;
function GetOldID_ALBARANValue : Integer;
+ function GetOldID_PEDIDOValue : Integer;
function GetOldPOSICIONValue : Integer;
function GetOldTIPO_DETALLEValue : String;
function GetOldREFERENCIAValue : String;
@@ -376,6 +377,7 @@ type
{ Properties }
property OldID : Integer read GetOldIDValue;
property OldID_ALBARAN : Integer read GetOldID_ALBARANValue;
+ property OldID_PEDIDO : Integer read GetOldID_PEDIDOValue;
property OldPOSICION : Integer read GetOldPOSICIONValue;
property OldTIPO_DETALLE : String read GetOldTIPO_DETALLEValue;
property OldREFERENCIA : String read GetOldREFERENCIAValue;
@@ -401,6 +403,9 @@ type
function GetID_ALBARANValue: Integer; virtual;
function GetOldID_ALBARANValue: Integer; virtual;
procedure SetID_ALBARANValue(const aValue: Integer); virtual;
+ function GetID_PEDIDOValue: Integer; virtual;
+ function GetOldID_PEDIDOValue: Integer; virtual;
+ procedure SetID_PEDIDOValue(const aValue: Integer); virtual;
function GetPOSICIONValue: Integer; virtual;
function GetOldPOSICIONValue: Integer; virtual;
procedure SetPOSICIONValue(const aValue: Integer); virtual;
@@ -443,6 +448,8 @@ type
property OldID : Integer read GetOldIDValue;
property ID_ALBARAN : Integer read GetID_ALBARANValue write SetID_ALBARANValue;
property OldID_ALBARAN : Integer read GetOldID_ALBARANValue;
+ property ID_PEDIDO : Integer read GetID_PEDIDOValue write SetID_PEDIDOValue;
+ property OldID_PEDIDO : Integer read GetOldID_PEDIDOValue;
property POSICION : Integer read GetPOSICIONValue write SetPOSICIONValue;
property OldPOSICION : Integer read GetOldPOSICIONValue;
property TIPO_DETALLE : String read GetTIPO_DETALLEValue write SetTIPO_DETALLEValue;
@@ -476,10 +483,11 @@ type
{ IAlbaranesCliente_Detalles_RefreshDelta }
IAlbaranesCliente_Detalles_RefreshDelta = interface(IAlbaranesCliente_Detalles_Refresh)
- ['{6F609F3D-CA71-4EDF-88DC-126708EA0DFA}']
+ ['{180849FA-AF37-4138-A0D9-B89C55E94A4D}']
{ Property getters and setters }
function GetOldIDValue : Integer;
function GetOldID_ALBARANValue : Integer;
+ function GetOldID_PEDIDOValue : Integer;
function GetOldPOSICIONValue : Integer;
function GetOldTIPO_DETALLEValue : String;
function GetOldREFERENCIAValue : String;
@@ -496,6 +504,7 @@ type
{ Properties }
property OldID : Integer read GetOldIDValue;
property OldID_ALBARAN : Integer read GetOldID_ALBARANValue;
+ property OldID_PEDIDO : Integer read GetOldID_PEDIDOValue;
property OldPOSICION : Integer read GetOldPOSICIONValue;
property OldTIPO_DETALLE : String read GetOldTIPO_DETALLEValue;
property OldREFERENCIA : String read GetOldREFERENCIAValue;
@@ -521,6 +530,9 @@ type
function GetID_ALBARANValue: Integer; virtual;
function GetOldID_ALBARANValue: Integer; virtual;
procedure SetID_ALBARANValue(const aValue: Integer); virtual;
+ function GetID_PEDIDOValue: Integer; virtual;
+ function GetOldID_PEDIDOValue: Integer; virtual;
+ procedure SetID_PEDIDOValue(const aValue: Integer); virtual;
function GetPOSICIONValue: Integer; virtual;
function GetOldPOSICIONValue: Integer; virtual;
procedure SetPOSICIONValue(const aValue: Integer); virtual;
@@ -563,6 +575,8 @@ type
property OldID : Integer read GetOldIDValue;
property ID_ALBARAN : Integer read GetID_ALBARANValue write SetID_ALBARANValue;
property OldID_ALBARAN : Integer read GetOldID_ALBARANValue;
+ property ID_PEDIDO : Integer read GetID_PEDIDOValue write SetID_PEDIDOValue;
+ property OldID_PEDIDO : Integer read GetOldID_PEDIDOValue;
property POSICION : Integer read GetPOSICIONValue write SetPOSICIONValue;
property OldPOSICION : Integer read GetOldPOSICIONValue;
property TIPO_DETALLE : String read GetTIPO_DETALLEValue write SetTIPO_DETALLEValue;
@@ -596,7 +610,7 @@ type
{ IAlbaranesCliente_RefreshDelta }
IAlbaranesCliente_RefreshDelta = interface(IAlbaranesCliente_Refresh)
- ['{AEF4C61D-CCBB-4E95-9F61-4D891E5F00B3}']
+ ['{53C27CD8-3116-4171-97EE-4DDD39E6DFF3}']
{ Property getters and setters }
function GetOldIDValue : Integer;
function GetOldID_EMPRESAValue : Integer;
@@ -1607,6 +1621,21 @@ begin
BusinessProcessor.CurrentChange.NewValueByName[fld_AlbaranesCliente_DetallesID_ALBARAN] := aValue;
end;
+function TAlbaranesCliente_DetallesBusinessProcessorRules.GetID_PEDIDOValue: Integer;
+begin
+ result := BusinessProcessor.CurrentChange.NewValueByName[fld_AlbaranesCliente_DetallesID_PEDIDO];
+end;
+
+function TAlbaranesCliente_DetallesBusinessProcessorRules.GetOldID_PEDIDOValue: Integer;
+begin
+ result := BusinessProcessor.CurrentChange.OldValueByName[fld_AlbaranesCliente_DetallesID_PEDIDO];
+end;
+
+procedure TAlbaranesCliente_DetallesBusinessProcessorRules.SetID_PEDIDOValue(const aValue: Integer);
+begin
+ BusinessProcessor.CurrentChange.NewValueByName[fld_AlbaranesCliente_DetallesID_PEDIDO] := aValue;
+end;
+
function TAlbaranesCliente_DetallesBusinessProcessorRules.GetPOSICIONValue: Integer;
begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_AlbaranesCliente_DetallesPOSICION];
@@ -1829,6 +1858,21 @@ begin
BusinessProcessor.CurrentChange.NewValueByName[fld_AlbaranesCliente_Detalles_RefreshID_ALBARAN] := aValue;
end;
+function TAlbaranesCliente_Detalles_RefreshBusinessProcessorRules.GetID_PEDIDOValue: Integer;
+begin
+ result := BusinessProcessor.CurrentChange.NewValueByName[fld_AlbaranesCliente_Detalles_RefreshID_PEDIDO];
+end;
+
+function TAlbaranesCliente_Detalles_RefreshBusinessProcessorRules.GetOldID_PEDIDOValue: Integer;
+begin
+ result := BusinessProcessor.CurrentChange.OldValueByName[fld_AlbaranesCliente_Detalles_RefreshID_PEDIDO];
+end;
+
+procedure TAlbaranesCliente_Detalles_RefreshBusinessProcessorRules.SetID_PEDIDOValue(const aValue: Integer);
+begin
+ BusinessProcessor.CurrentChange.NewValueByName[fld_AlbaranesCliente_Detalles_RefreshID_PEDIDO] := aValue;
+end;
+
function TAlbaranesCliente_Detalles_RefreshBusinessProcessorRules.GetPOSICIONValue: Integer;
begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_AlbaranesCliente_Detalles_RefreshPOSICION];
diff --git a/Source/Modulos/Albaranes de cliente/Servidor/srvAlbaranesCliente_Impl.dfm b/Source/Modulos/Albaranes de cliente/Servidor/srvAlbaranesCliente_Impl.dfm
index 3c496dc0..63ea4c15 100644
--- a/Source/Modulos/Albaranes de cliente/Servidor/srvAlbaranesCliente_Impl.dfm
+++ b/Source/Modulos/Albaranes de cliente/Servidor/srvAlbaranesCliente_Impl.dfm
@@ -68,7 +68,7 @@ object srvAlbaranesCliente: TsrvAlbaranesCliente
Statements = <
item
Connection = 'IBX'
- TargetTable = 'V_ALBARANES_CLIENTE'
+ TargetTable = 'ALBARANES_CLIENTE'
SQL =
'SELECT '#10' ID, ID_EMPRESA, ID_CLIENTE, NOMBRE, FECHA_ALBARAN, '#10 +
' REFERENCIA, REFERENCIA_CLIENTE, TIPO, SITUACION, ID_ALMACEN,' +
@@ -685,17 +685,18 @@ object srvAlbaranesCliente: TsrvAlbaranesCliente
TargetTable = 'ALBARANES_CLIENTE_DETALLES'
SQL =
'SELECT'#10' ALBARANES_CLIENTE_DETALLES.ID, ALBARANES_CLIENTE_DETA' +
- 'LLES.ID_ALBARAN,'#10' ALBARANES_CLIENTE_DETALLES.POSICION, ALBARA' +
- 'NES_CLIENTE_DETALLES.TIPO_DETALLE,'#10' ALBARANES_CLIENTE_DETALLE' +
- 'S.CONCEPTO, ALBARANES_CLIENTE_DETALLES.CANTIDAD,'#10' ALBARANES_C' +
- 'LIENTE_DETALLES.IMPORTE_UNIDAD, ALBARANES_CLIENTE_DETALLES.IMPOR' +
- 'TE_TOTAL,'#10' ALBARANES_CLIENTE_DETALLES.VISIBLE,'#10#10' ALBARANES' +
- '_CLIENTE_DETALLES.ID_ARTICULO, ALBARANES_CLIENTE_DETALLES.DESCUE' +
- 'NTO,'#10' ALBARANES_CLIENTE_DETALLES.IMPORTE_PORTE,'#10' ARTICULOS' +
- '.REFERENCIA, ARTICULOS.REFERENCIA_PROV as REFERENCIA_PROVEEDOR'#10#10 +
- 'FROM ALBARANES_CLIENTE_DETALLES'#10'LEFT JOIN ARTICULOS ON ALBARANES' +
- '_CLIENTE_DETALLES.ID_ARTICULO = ARTICULOS.ID'#10'WHERE ALBARANES_CLI' +
- 'ENTE_DETALLES.ID_ALBARAN = :ID_ALBARAN'#10'ORDER BY POSICION;'
+ 'LLES.ID_ALBARAN, ALBARANES_CLIENTE_DETALLES.ID_PEDIDO,'#10' ALBAR' +
+ 'ANES_CLIENTE_DETALLES.POSICION, ALBARANES_CLIENTE_DETALLES.TIPO_' +
+ 'DETALLE,'#10' ALBARANES_CLIENTE_DETALLES.CONCEPTO, ALBARANES_CLIE' +
+ 'NTE_DETALLES.CANTIDAD,'#10' ALBARANES_CLIENTE_DETALLES.IMPORTE_UN' +
+ 'IDAD, ALBARANES_CLIENTE_DETALLES.IMPORTE_TOTAL,'#10' ALBARANES_CL' +
+ 'IENTE_DETALLES.VISIBLE,'#10#10' ALBARANES_CLIENTE_DETALLES.ID_ARTIC' +
+ 'ULO, ALBARANES_CLIENTE_DETALLES.DESCUENTO,'#10' ALBARANES_CLIENTE' +
+ '_DETALLES.IMPORTE_PORTE,'#10' ARTICULOS.REFERENCIA, ARTICULOS.REF' +
+ 'ERENCIA_PROV as REFERENCIA_PROVEEDOR'#10#10'FROM ALBARANES_CLIENTE_DET' +
+ 'ALLES'#10'LEFT JOIN ARTICULOS ON ALBARANES_CLIENTE_DETALLES.ID_ARTIC' +
+ 'ULO = ARTICULOS.ID'#10'WHERE ALBARANES_CLIENTE_DETALLES.ID_ALBARAN =' +
+ ' :ID_ALBARAN'#10'ORDER BY POSICION;'
StatementType = stSQL
ColumnMappings = <
item
@@ -777,6 +778,17 @@ object srvAlbaranesCliente: TsrvAlbaranesCliente
Lookup = False
LookupCache = False
end
+ item
+ Name = 'ID_PEDIDO'
+ DataType = datInteger
+ BlobType = dabtUnknown
+ DisplayWidth = 0
+ Alignment = taLeftJustify
+ InPrimaryKey = False
+ Calculated = False
+ Lookup = False
+ LookupCache = False
+ end
item
Name = 'POSICION'
DataType = datInteger
@@ -926,18 +938,19 @@ object srvAlbaranesCliente: TsrvAlbaranesCliente
TargetTable = 'ALBARANES_CLIENTE_DETALLES'
SQL =
'SELECT'#10' ALBARANES_CLIENTE_DETALLES.ID, ALBARANES_CLIENTE_DETA' +
- 'LLES.ID_ALBARAN,'#10' ALBARANES_CLIENTE_DETALLES.POSICION, ALBARA' +
- 'NES_CLIENTE_DETALLES.TIPO_DETALLE,'#10' ALBARANES_CLIENTE_DETALLE' +
- 'S.CONCEPTO, ALBARANES_CLIENTE_DETALLES.CANTIDAD,'#10' ALBARANES_C' +
- 'LIENTE_DETALLES.IMPORTE_UNIDAD, ALBARANES_CLIENTE_DETALLES.IMPOR' +
- 'TE_TOTAL,'#10' ALBARANES_CLIENTE_DETALLES.VISIBLE,'#10#10' ALBARANES' +
- '_CLIENTE_DETALLES.ID_ARTICULO, ALBARANES_CLIENTE_DETALLES.DESCUE' +
- 'NTO,'#10' ALBARANES_CLIENTE_DETALLES.IMPORTE_PORTE,'#10' ARTICULOS' +
- '.REFERENCIA, ARTICULOS.REFERENCIA_PROV as REFERENCIA_PROVEEDOR'#10#10 +
- 'FROM ALBARANES_CLIENTE_DETALLES'#10'LEFT JOIN ARTICULOS ON ALBARANES' +
- '_CLIENTE_DETALLES.ID_ARTICULO = ARTICULOS.ID'#10'WHERE ALBARANES_CLI' +
- 'ENTE_DETALLES.ID_ALBARAN = :ID_ALBARAN'#10'AND ALBARANES_CLIENTE_DET' +
- 'ALLES.ID = :ID'#10'ORDER BY POSICION;'
+ 'LLES.ID_ALBARAN, ALBARANES_CLIENTE_DETALLES.ID_PEDIDO,'#10' ALBAR' +
+ 'ANES_CLIENTE_DETALLES.POSICION, ALBARANES_CLIENTE_DETALLES.TIPO_' +
+ 'DETALLE,'#10' ALBARANES_CLIENTE_DETALLES.CONCEPTO, ALBARANES_CLIE' +
+ 'NTE_DETALLES.CANTIDAD,'#10' ALBARANES_CLIENTE_DETALLES.IMPORTE_UN' +
+ 'IDAD, ALBARANES_CLIENTE_DETALLES.IMPORTE_TOTAL,'#10' ALBARANES_CL' +
+ 'IENTE_DETALLES.VISIBLE,'#10#10' ALBARANES_CLIENTE_DETALLES.ID_ARTIC' +
+ 'ULO, ALBARANES_CLIENTE_DETALLES.DESCUENTO,'#10' ALBARANES_CLIENTE' +
+ '_DETALLES.IMPORTE_PORTE,'#10' ARTICULOS.REFERENCIA, ARTICULOS.REF' +
+ 'ERENCIA_PROV as REFERENCIA_PROVEEDOR'#10#10'FROM ALBARANES_CLIENTE_DET' +
+ 'ALLES'#10'LEFT JOIN ARTICULOS ON ALBARANES_CLIENTE_DETALLES.ID_ARTIC' +
+ 'ULO = ARTICULOS.ID'#10'WHERE ALBARANES_CLIENTE_DETALLES.ID_ALBARAN =' +
+ ' :ID_ALBARAN'#10'AND ALBARANES_CLIENTE_DETALLES.ID = :ID'#10'ORDER BY PO' +
+ 'SICION;'
StatementType = stSQL
ColumnMappings = <
item
@@ -1019,6 +1032,17 @@ object srvAlbaranesCliente: TsrvAlbaranesCliente
Lookup = False
LookupCache = False
end
+ item
+ Name = 'ID_PEDIDO'
+ DataType = datInteger
+ BlobType = dabtUnknown
+ DisplayWidth = 0
+ Alignment = taLeftJustify
+ InPrimaryKey = False
+ Calculated = False
+ Lookup = False
+ LookupCache = False
+ end
item
Name = 'POSICION'
DataType = datInteger
@@ -1158,7 +1182,7 @@ object srvAlbaranesCliente: TsrvAlbaranesCliente
Statements = <
item
Connection = 'IBX'
- TargetTable = 'V_ALBARANES_CLIENTE'
+ TargetTable = 'ALBARANES_CLIENTE'
SQL =
'SELECT '#10' ID, ID_EMPRESA, ID_CLIENTE, NOMBRE, FECHA_ALBARAN, '#10 +
' REFERENCIA, REFERENCIA_CLIENTE, TIPO, SITUACION, ID_ALMACEN,' +
@@ -1837,6 +1861,13 @@ object srvAlbaranesCliente: TsrvAlbaranesCliente
Value = ''
ParamType = daptInput
end
+ item
+ Name = 'ID_PEDIDO'
+ DataType = datInteger
+ BlobType = dabtUnknown
+ Value = ''
+ ParamType = daptInput
+ end
item
Name = 'POSICION'
DataType = datInteger
@@ -1929,14 +1960,14 @@ object srvAlbaranesCliente: TsrvAlbaranesCliente
TargetTable = 'ALBARANES_CLIENTE_DETALLES'
SQL =
'INSERT INTO ALBARANES_CLIENTE_DETALLES ('#10' ID,'#10' ID_ALBARAN,' +
- #10' POSICION,'#10' TIPO_DETALLE,'#10' ID_ARTICULO,'#10' CONCEPTO,'#10 +
- ' CANTIDAD,'#10' IMPORTE_UNIDAD,'#10' DESCUENTO,'#10' IMPORTE_POR' +
- 'TE,'#10' IMPORTE_TOTAL,'#10' VISIBLE,'#10' FECHA_ALTA,'#10' FECHA_MO' +
- 'DIFICACION)'#10' VALUES ('#10' :ID,'#10' :ID_ALBARAN,'#10' :POSICION,'#10 +
- ' :TIPO_DETALLE,'#10' :ID_ARTICULO,'#10' :CONCEPTO,'#10' :CANTIDA' +
- 'D,'#10' :IMPORTE_UNIDAD,'#10' :DESCUENTO,'#10' :IMPORTE_PORTE,'#10' ' +
- ':IMPORTE_TOTAL,'#10' :VISIBLE,'#10' :FECHA_ALTA,'#10' :FECHA_MODIFI' +
- 'CACION);'
+ #10' ID_PEDIDO,'#10' POSICION,'#10' TIPO_DETALLE,'#10' ID_ARTICULO,' +
+ #10' CONCEPTO,'#10' CANTIDAD,'#10' IMPORTE_UNIDAD,'#10' DESCUENTO,'#10 +
+ ' IMPORTE_PORTE,'#10' IMPORTE_TOTAL,'#10' VISIBLE,'#10' FECHA_ALT' +
+ 'A,'#10' FECHA_MODIFICACION)'#10' VALUES ('#10' :ID,'#10' :ID_ALBARAN,'#10 +
+ ' :ID_PEDIDO,'#10' :POSICION,'#10' :TIPO_DETALLE,'#10' :ID_ARTICU' +
+ 'LO,'#10' :CONCEPTO,'#10' :CANTIDAD,'#10' :IMPORTE_UNIDAD,'#10' :DESC' +
+ 'UENTO,'#10' :IMPORTE_PORTE,'#10' :IMPORTE_TOTAL,'#10' :VISIBLE,'#10' ' +
+ ' :FECHA_ALTA,'#10' :FECHA_MODIFICACION);'
StatementType = stSQL
ColumnMappings = <>
end>
@@ -1972,6 +2003,13 @@ object srvAlbaranesCliente: TsrvAlbaranesCliente
Value = ''
ParamType = daptInput
end
+ item
+ Name = 'ID_PEDIDO'
+ DataType = datInteger
+ BlobType = dabtUnknown
+ Value = ''
+ ParamType = daptInput
+ end
item
Name = 'POSICION'
DataType = datInteger
@@ -2064,12 +2102,13 @@ object srvAlbaranesCliente: TsrvAlbaranesCliente
TargetTable = 'ALBARANES_CLIENTE_DETALLES'
SQL =
'UPDATE ALBARANES_CLIENTE_DETALLES'#10' SET'#10' ID_ALBARAN = :ID_ALB' +
- 'ARAN,'#10' POSICION = :POSICION,'#10' TIPO_DETALLE = :TIPO_DETALLE' +
- ','#10' ID_ARTICULO = :ID_ARTICULO,'#10' CONCEPTO = :CONCEPTO,'#10' ' +
- 'CANTIDAD = :CANTIDAD,'#10' IMPORTE_UNIDAD = :IMPORTE_UNIDAD,'#10' ' +
- 'DESCUENTO = :DESCUENTO,'#10' IMPORTE_PORTE = :IMPORTE_PORTE,'#10' ' +
- 'IMPORTE_TOTAL = :IMPORTE_TOTAL,'#10' VISIBLE = :VISIBLE,'#10' FECH' +
- 'A_MODIFICACION = :FECHA_MODIFICACION'#10' WHERE'#10' (ID = :OLD_ID);'
+ 'ARAN,'#10' ID_PEDIDO = :ID_PEDIDO,'#10' POSICION = :POSICION,'#10' ' +
+ 'TIPO_DETALLE = :TIPO_DETALLE,'#10' ID_ARTICULO = :ID_ARTICULO,'#10' ' +
+ ' CONCEPTO = :CONCEPTO,'#10' CANTIDAD = :CANTIDAD,'#10' IMPORTE_UN' +
+ 'IDAD = :IMPORTE_UNIDAD,'#10' DESCUENTO = :DESCUENTO,'#10' IMPORTE_' +
+ 'PORTE = :IMPORTE_PORTE,'#10' IMPORTE_TOTAL = :IMPORTE_TOTAL,'#10' ' +
+ 'VISIBLE = :VISIBLE,'#10' FECHA_MODIFICACION = :FECHA_MODIFICACION' +
+ #10' WHERE'#10' (ID = :OLD_ID);'
StatementType = stSQL
ColumnMappings = <>
end>
@@ -2106,12 +2145,6 @@ object srvAlbaranesCliente: TsrvAlbaranesCliente
Value = ''
ParamType = daptInput
end
- item
- Name = 'TIPO'
- BlobType = dabtUnknown
- Value = ''
- ParamType = daptUnknown
- end
item
Name = 'REFERENCIA_CLIENTE'
DataType = datString
@@ -2322,6 +2355,14 @@ object srvAlbaranesCliente: TsrvAlbaranesCliente
BlobType = dabtUnknown
Value = ''
ParamType = daptInput
+ end
+ item
+ Name = 'TIPO'
+ DataType = datString
+ Size = 1
+ BlobType = dabtUnknown
+ Value = ''
+ ParamType = daptInput
end>
Statements = <
item
@@ -2329,22 +2370,22 @@ object srvAlbaranesCliente: TsrvAlbaranesCliente
TargetTable = 'ALBARANES_CLIENTE'
SQL =
'INSERT'#10' INTO ALBARANES_CLIENTE'#10' (ID, ID_EMPRESA, ID_CLIENTE,' +
- ' REFERENCIA, TIPO, REFERENCIA_CLIENTE,'#10' FECHA_ALBARAN, ID_PE' +
- 'DIDO, ID_ALMACEN, ID_FACTURA, CALLE,'#10' CODIGO_POSTAL, POBLACI' +
- 'ON, PROVINCIA, PERSONA_CONTACTO, '#10' TELEFONO, BASE_IMPONIBLE,' +
- ' IMPORTE_NETO, IMPORTE_PORTE, '#10' DESCUENTO, IMPORTE_DESCUENTO' +
- ', IVA, IMPORTE_IVA, IMPORTE_TOTAL, '#10' OBSERVACIONES, INCIDENC' +
- 'IAS, INCIDENCIAS_ACTIVAS, FECHA_ALTA, '#10' FECHA_MODIFICACION, ' +
- 'USUARIO, ID_FORMA_PAGO,'#10' FECHA_PREVISTA_ENVIO, FECHA_ENVIO, ' +
- 'FECHA_RECEPCION)'#10' VALUES'#10' (:ID, :ID_EMPRESA, :ID_CLIENTE, :R' +
- 'EFERENCIA, :TIPO, :REFERENCIA_CLIENTE,'#10' :FECHA_ALBARAN, :ID_' +
- 'PEDIDO, :ID_ALMACEN, :ID_FACTURA, :CALLE,'#10' :CODIGO_POSTAL, :' +
- 'POBLACION, :PROVINCIA, :PERSONA_CONTACTO, '#10' :TELEFONO, :BASE' +
- '_IMPONIBLE, :IMPORTE_NETO, :IMPORTE_PORTE, '#10' :DESCUENTO, :IM' +
- 'PORTE_DESCUENTO, :IVA, :IMPORTE_IVA, '#10' :IMPORTE_TOTAL, :OBSE' +
- 'RVACIONES, :INCIDENCIAS, :INCIDENCIAS_ACTIVAS, '#10' :FECHA_ALTA' +
- ', :FECHA_MODIFICACION, :USUARIO,'#10' :ID_FORMA_PAGO, :FECHA_PRE' +
- 'VISTA_ENVIO, :FECHA_ENVIO, :FECHA_RECEPCION)'
+ ' REFERENCIA, REFERENCIA_CLIENTE,'#10' FECHA_ALBARAN, ID_PEDIDO, ' +
+ 'ID_ALMACEN, ID_FACTURA, CALLE,'#10' CODIGO_POSTAL, POBLACION, PR' +
+ 'OVINCIA, PERSONA_CONTACTO, '#10' TELEFONO, BASE_IMPONIBLE, IMPOR' +
+ 'TE_NETO, IMPORTE_PORTE, '#10' DESCUENTO, IMPORTE_DESCUENTO, IVA,' +
+ ' IMPORTE_IVA, IMPORTE_TOTAL, '#10' OBSERVACIONES, INCIDENCIAS, I' +
+ 'NCIDENCIAS_ACTIVAS, FECHA_ALTA, '#10' FECHA_MODIFICACION, USUARI' +
+ 'O, ID_FORMA_PAGO,'#10' FECHA_PREVISTA_ENVIO, FECHA_ENVIO, FECHA_' +
+ 'RECEPCION, TIPO)'#10' VALUES'#10' (:ID, :ID_EMPRESA, :ID_CLIENTE, :R' +
+ 'EFERENCIA, :REFERENCIA_CLIENTE,'#10' :FECHA_ALBARAN, :ID_PEDIDO,' +
+ ' :ID_ALMACEN, :ID_FACTURA, :CALLE,'#10' :CODIGO_POSTAL, :POBLACI' +
+ 'ON, :PROVINCIA, :PERSONA_CONTACTO, '#10' :TELEFONO, :BASE_IMPONI' +
+ 'BLE, :IMPORTE_NETO, :IMPORTE_PORTE, '#10' :DESCUENTO, :IMPORTE_D' +
+ 'ESCUENTO, :IVA, :IMPORTE_IVA, '#10' :IMPORTE_TOTAL, :OBSERVACION' +
+ 'ES, :INCIDENCIAS, :INCIDENCIAS_ACTIVAS, '#10' :FECHA_ALTA, :FECH' +
+ 'A_MODIFICACION, :USUARIO,'#10' :ID_FORMA_PAGO, :FECHA_PREVISTA_E' +
+ 'NVIO, :FECHA_ENVIO, :FECHA_RECEPCION, :TIPO)'
StatementType = stSQL
ColumnMappings = <>
end>
@@ -2366,12 +2407,6 @@ object srvAlbaranesCliente: TsrvAlbaranesCliente
Value = ''
ParamType = daptInput
end
- item
- Name = 'TIPO'
- BlobType = dabtUnknown
- Value = ''
- ParamType = daptUnknown
- end
item
Name = 'REFERENCIA'
DataType = datString
@@ -2591,6 +2626,14 @@ object srvAlbaranesCliente: TsrvAlbaranesCliente
Value = ''
ParamType = daptInput
end
+ item
+ Name = 'TIPO'
+ DataType = datString
+ Size = 1
+ BlobType = dabtUnknown
+ Value = ''
+ ParamType = daptInput
+ end
item
Name = 'OLD_ID'
DataType = datInteger
@@ -2604,24 +2647,24 @@ object srvAlbaranesCliente: TsrvAlbaranesCliente
TargetTable = 'ALBARANES_CLIENTE'
SQL =
'UPDATE ALBARANES_CLIENTE'#10' SET '#10' ID_EMPRESA = :ID_EMPRESA, '#10' ' +
- ' ID_CLIENTE = :ID_CLIENTE, '#10' TIPO = :TIPO,'#10' REFERENCIA =' +
- ' :REFERENCIA, '#10' REFERENCIA_CLIENTE = :REFERENCIA_CLIENTE,'#10' ' +
- ' FECHA_ALBARAN = :FECHA_ALBARAN, '#10' ID_PEDIDO = :ID_PEDIDO, '#10' ' +
- ' ID_ALMACEN = :ID_ALMACEN,'#10' ID_FACTURA = :ID_FACTURA, '#10' ' +
- 'CALLE = :CALLE, '#10' CODIGO_POSTAL = :CODIGO_POSTAL, '#10' POBLAC' +
- 'ION = :POBLACION, '#10' PROVINCIA = :PROVINCIA, '#10' PERSONA_CONT' +
- 'ACTO = :PERSONA_CONTACTO, '#10' TELEFONO = :TELEFONO, '#10' BASE_I' +
- 'MPONIBLE = :BASE_IMPONIBLE, '#10' IMPORTE_NETO = :IMPORTE_NETO, '#10 +
- ' IMPORTE_PORTE = :IMPORTE_PORTE, '#10' DESCUENTO = :DESCUENTO,' +
- ' '#10' IMPORTE_DESCUENTO = :IMPORTE_DESCUENTO, '#10' IVA = :IVA, '#10 +
- ' IMPORTE_IVA = :IMPORTE_IVA, '#10' IMPORTE_TOTAL = :IMPORTE_TO' +
- 'TAL, '#10' OBSERVACIONES = :OBSERVACIONES, '#10' INCIDENCIAS = :IN' +
- 'CIDENCIAS, '#10' INCIDENCIAS_ACTIVAS = :INCIDENCIAS_ACTIVAS, '#10' ' +
- ' FECHA_ALTA = :FECHA_ALTA, '#10' FECHA_MODIFICACION = :FECHA_MODI' +
- 'FICACION, '#10' USUARIO = :USUARIO, '#10' ID_FORMA_PAGO = :ID_FORM' +
- 'A_PAGO,'#10' FECHA_PREVISTA_ENVIO = :FECHA_PREVISTA_ENVIO,'#10' FE' +
- 'CHA_ENVIO = :FECHA_ENVIO, '#10' FECHA_RECEPCION = :FECHA_RECEPCIO' +
- 'N'#10' WHERE'#10' (ID = :OLD_ID)'
+ ' ID_CLIENTE = :ID_CLIENTE, '#10' REFERENCIA = :REFERENCIA, '#10' ' +
+ ' REFERENCIA_CLIENTE = :REFERENCIA_CLIENTE,'#10' FECHA_ALBARAN = :' +
+ 'FECHA_ALBARAN, '#10' ID_PEDIDO = :ID_PEDIDO, '#10' ID_ALMACEN = :I' +
+ 'D_ALMACEN,'#10' ID_FACTURA = :ID_FACTURA, '#10' CALLE = :CALLE, '#10' ' +
+ ' CODIGO_POSTAL = :CODIGO_POSTAL, '#10' POBLACION = :POBLACION, ' +
+ #10' PROVINCIA = :PROVINCIA, '#10' PERSONA_CONTACTO = :PERSONA_CO' +
+ 'NTACTO, '#10' TELEFONO = :TELEFONO, '#10' BASE_IMPONIBLE = :BASE_I' +
+ 'MPONIBLE, '#10' IMPORTE_NETO = :IMPORTE_NETO, '#10' IMPORTE_PORTE ' +
+ '= :IMPORTE_PORTE, '#10' DESCUENTO = :DESCUENTO, '#10' IMPORTE_DESC' +
+ 'UENTO = :IMPORTE_DESCUENTO, '#10' IVA = :IVA, '#10' IMPORTE_IVA = ' +
+ ':IMPORTE_IVA, '#10' IMPORTE_TOTAL = :IMPORTE_TOTAL, '#10' OBSERVAC' +
+ 'IONES = :OBSERVACIONES, '#10' INCIDENCIAS = :INCIDENCIAS, '#10' IN' +
+ 'CIDENCIAS_ACTIVAS = :INCIDENCIAS_ACTIVAS, '#10' FECHA_ALTA = :FEC' +
+ 'HA_ALTA, '#10' FECHA_MODIFICACION = :FECHA_MODIFICACION, '#10' USU' +
+ 'ARIO = :USUARIO, '#10' ID_FORMA_PAGO = :ID_FORMA_PAGO,'#10' FECHA_' +
+ 'PREVISTA_ENVIO = :FECHA_PREVISTA_ENVIO,'#10' FECHA_ENVIO = :FECHA' +
+ '_ENVIO, '#10' FECHA_RECEPCION = :FECHA_RECEPCION,'#10' TIPO = :TIP' +
+ 'O'#10' WHERE'#10' (ID = :OLD_ID)'
StatementType = stSQL
ColumnMappings = <>
end>
diff --git a/Source/Modulos/Albaranes de proveedor/Controller/uAlbaranesProveedorController.pas b/Source/Modulos/Albaranes de proveedor/Controller/uAlbaranesProveedorController.pas
index 4128cbb5..7d99f21b 100644
--- a/Source/Modulos/Albaranes de proveedor/Controller/uAlbaranesProveedorController.pas
+++ b/Source/Modulos/Albaranes de proveedor/Controller/uAlbaranesProveedorController.pas
@@ -225,8 +225,8 @@ begin
ADetalles.IMPORTE_UNIDAD := APedido.Detalles.IMPORTE_UNIDAD;
ADetalles.DESCUENTO := APedido.Detalles.DESCUENTO;
ADetalles.IMPORTE_PORTE := APedido.Detalles.IMPORTE_PORTE;
-
ADetalles.CANTIDAD := AInventarioRecibido.CANTIDAD;
+ ADetalles.ID_PEDIDO := APedido.Detalles.ID_PEDIDO;
ADetalles.Post;
end;
@@ -257,12 +257,14 @@ begin
if (APedido.Detalles.CANTIDAD <> 0) then
begin
ADetallesController.Add(ADetalles, TIPO_DETALLE_CONCEPTO);
- ADetallesController.AnadirArticulo(ADetalles, APedido.Detalles.REFERENCIA, tCliente);
+ ADetallesController.AnadirArticulo(ADetalles, APedido.Detalles.ID_ARTICULO);
+// ADetallesController.AnadirArticulo(ADetalles, APedido.Detalles.REFERENCIA, tCliente);
ADetalles.Edit;
ADetalles.IMPORTE_UNIDAD := APedido.Detalles.IMPORTE_UNIDAD;
ADetalles.DESCUENTO := APedido.Detalles.DESCUENTO;
ADetalles.IMPORTE_PORTE := APedido.Detalles.IMPORTE_PORTE;
ADetalles.CANTIDAD := APedido.Detalles.CANTIDAD;
+ ADetalles.ID_PEDIDO := APedido.Detalles.ID_PEDIDO;
ADetalles.Post;
end;
APedido.Detalles.Next;
diff --git a/Source/Modulos/Albaranes de proveedor/Data/uDataModuleAlbaranesProveedor.dfm b/Source/Modulos/Albaranes de proveedor/Data/uDataModuleAlbaranesProveedor.dfm
index a10d30f8..51b7f65c 100644
--- a/Source/Modulos/Albaranes de proveedor/Data/uDataModuleAlbaranesProveedor.dfm
+++ b/Source/Modulos/Albaranes de proveedor/Data/uDataModuleAlbaranesProveedor.dfm
@@ -18,7 +18,7 @@ object DataModuleAlbaranesProveedor: TDataModuleAlbaranesProveedor
ProbeServers = False
ProbeFrequency = 60000
UserAgent = 'RemObjects SDK'
- TargetURL = 'http://localhost:8090/bin'
+ TargetURL = 'http://localhost:8099/bin'
Left = 40
Top = 8
end
@@ -825,6 +825,17 @@ object DataModuleAlbaranesProveedor: TDataModuleAlbaranesProveedor
Calculated = False
Lookup = False
LookupCache = False
+ end
+ item
+ Name = 'ID_PEDIDO'
+ DataType = datInteger
+ BlobType = dabtUnknown
+ DisplayWidth = 0
+ Alignment = taLeftJustify
+ InPrimaryKey = False
+ Calculated = False
+ Lookup = False
+ LookupCache = False
end>
Params = <
item
diff --git a/Source/Modulos/Albaranes de proveedor/Model/schAlbaranesProveedorClient_Intf.pas b/Source/Modulos/Albaranes de proveedor/Model/schAlbaranesProveedorClient_Intf.pas
index 4e18898c..bdb99be2 100644
--- a/Source/Modulos/Albaranes de proveedor/Model/schAlbaranesProveedorClient_Intf.pas
+++ b/Source/Modulos/Albaranes de proveedor/Model/schAlbaranesProveedorClient_Intf.pas
@@ -9,11 +9,11 @@ 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_DarReferencia = '{B11C1A92-7445-40B1-804D-75362337E091}';
- RID_AlbaranesProveedor = '{A8D01A62-F911-438F-910D-CCE57A97679A}';
- RID_AlbaranesProveedor_Detalles = '{74BC0CAC-88BE-4D83-ABE6-CCF245762256}';
- RID_AlbaranesProveedor_Detalles_Refresh = '{B8EE8C6A-F540-4124-94D2-76924081B2F3}';
- RID_AlbaranesProveedor_Refresh = '{FEBB25BC-1C6E-43E2-AEC6-B2B9656D858F}';
+ RID_DarReferencia = '{A2ECE4F2-2EB0-4440-ABB5-C4FFB59A4AF3}';
+ RID_AlbaranesProveedor = '{1BF52D88-3541-47DD-8059-7E82D70C2657}';
+ RID_AlbaranesProveedor_Detalles = '{ED78D0F8-7B91-4C95-AB71-6716DFEFA4CA}';
+ RID_AlbaranesProveedor_Detalles_Refresh = '{4EDD3252-7B35-485A-89BE-A39DFE97FD43}';
+ RID_AlbaranesProveedor_Refresh = '{54A2F0B0-5BB2-49F3-B7E1-8FCBFE19A211}';
{ Data table names }
nme_DarReferencia = 'DarReferencia';
@@ -119,6 +119,7 @@ const
fld_AlbaranesProveedor_DetallesIMPORTE_PORTE = 'IMPORTE_PORTE';
fld_AlbaranesProveedor_DetallesVISIBLE = 'VISIBLE';
fld_AlbaranesProveedor_DetallesREFERENCIA_PROVEEDOR = 'REFERENCIA_PROVEEDOR';
+ fld_AlbaranesProveedor_DetallesID_PEDIDO = 'ID_PEDIDO';
{ AlbaranesProveedor_Detalles field indexes }
idx_AlbaranesProveedor_DetallesID = 0;
@@ -135,6 +136,7 @@ const
idx_AlbaranesProveedor_DetallesIMPORTE_PORTE = 11;
idx_AlbaranesProveedor_DetallesVISIBLE = 12;
idx_AlbaranesProveedor_DetallesREFERENCIA_PROVEEDOR = 13;
+ idx_AlbaranesProveedor_DetallesID_PEDIDO = 14;
{ AlbaranesProveedor_Detalles_Refresh fields }
fld_AlbaranesProveedor_Detalles_RefreshID = 'ID';
@@ -151,6 +153,7 @@ const
fld_AlbaranesProveedor_Detalles_RefreshIMPORTE_PORTE = 'IMPORTE_PORTE';
fld_AlbaranesProveedor_Detalles_RefreshVISIBLE = 'VISIBLE';
fld_AlbaranesProveedor_Detalles_RefreshREFERENCIA_PROVEEDOR = 'REFERENCIA_PROVEEDOR';
+ fld_AlbaranesProveedor_Detalles_RefreshID_PEDIDO = 'ID_PEDIDO';
{ AlbaranesProveedor_Detalles_Refresh field indexes }
idx_AlbaranesProveedor_Detalles_RefreshID = 0;
@@ -167,6 +170,7 @@ const
idx_AlbaranesProveedor_Detalles_RefreshIMPORTE_PORTE = 11;
idx_AlbaranesProveedor_Detalles_RefreshVISIBLE = 12;
idx_AlbaranesProveedor_Detalles_RefreshREFERENCIA_PROVEEDOR = 13;
+ idx_AlbaranesProveedor_Detalles_RefreshID_PEDIDO = 14;
{ AlbaranesProveedor_Refresh fields }
fld_AlbaranesProveedor_RefreshID = 'ID';
@@ -247,7 +251,7 @@ const
type
{ IDarReferencia }
IDarReferencia = interface(IDAStronglyTypedDataTable)
- ['{5197CB29-BF7E-4281-9E0F-7BB774770672}']
+ ['{70216529-9EFF-49D4-BC5D-142057D881C7}']
{ Property getters and setters }
function GetVALORValue: String;
procedure SetVALORValue(const aValue: String);
@@ -276,7 +280,7 @@ type
{ IAlbaranesProveedor }
IAlbaranesProveedor = interface(IDAStronglyTypedDataTable)
- ['{2CFF37C0-A76F-4D9C-BB24-0AC1F3BAF19D}']
+ ['{75EF115B-2E16-4631-B284-EB29454AB90D}']
{ Property getters and setters }
function GetIDValue: Integer;
procedure SetIDValue(const aValue: Integer);
@@ -515,7 +519,7 @@ type
{ IAlbaranesProveedor_Detalles }
IAlbaranesProveedor_Detalles = interface(IDAStronglyTypedDataTable)
- ['{8A62B0E3-DBC8-4606-A047-4203B88513F1}']
+ ['{71F6EB5E-95EA-4C44-BE14-F52ED4F7736E}']
{ Property getters and setters }
function GetIDValue: Integer;
procedure SetIDValue(const aValue: Integer);
@@ -545,6 +549,8 @@ type
procedure SetVISIBLEValue(const aValue: Integer);
function GetREFERENCIA_PROVEEDORValue: String;
procedure SetREFERENCIA_PROVEEDORValue(const aValue: String);
+ function GetID_PEDIDOValue: Integer;
+ procedure SetID_PEDIDOValue(const aValue: Integer);
{ Properties }
@@ -562,6 +568,7 @@ type
property IMPORTE_PORTE: Currency read GetIMPORTE_PORTEValue write SetIMPORTE_PORTEValue;
property VISIBLE: Integer read GetVISIBLEValue write SetVISIBLEValue;
property REFERENCIA_PROVEEDOR: String read GetREFERENCIA_PROVEEDORValue write SetREFERENCIA_PROVEEDORValue;
+ property ID_PEDIDO: Integer read GetID_PEDIDOValue write SetID_PEDIDOValue;
end;
{ TAlbaranesProveedor_DetallesDataTableRules }
@@ -597,6 +604,8 @@ type
procedure SetVISIBLEValue(const aValue: Integer); virtual;
function GetREFERENCIA_PROVEEDORValue: String; virtual;
procedure SetREFERENCIA_PROVEEDORValue(const aValue: String); virtual;
+ function GetID_PEDIDOValue: Integer; virtual;
+ procedure SetID_PEDIDOValue(const aValue: Integer); virtual;
{ Properties }
property ID: Integer read GetIDValue write SetIDValue;
@@ -613,6 +622,7 @@ type
property IMPORTE_PORTE: Currency read GetIMPORTE_PORTEValue write SetIMPORTE_PORTEValue;
property VISIBLE: Integer read GetVISIBLEValue write SetVISIBLEValue;
property REFERENCIA_PROVEEDOR: String read GetREFERENCIA_PROVEEDORValue write SetREFERENCIA_PROVEEDORValue;
+ property ID_PEDIDO: Integer read GetID_PEDIDOValue write SetID_PEDIDOValue;
public
constructor Create(aDataTable: TDADataTable); override;
@@ -622,7 +632,7 @@ type
{ IAlbaranesProveedor_Detalles_Refresh }
IAlbaranesProveedor_Detalles_Refresh = interface(IDAStronglyTypedDataTable)
- ['{0773BFA8-2FAA-412C-A3A9-0978B8A03973}']
+ ['{EF189D96-FC62-431D-9AB9-D1A88BC60632}']
{ Property getters and setters }
function GetIDValue: Integer;
procedure SetIDValue(const aValue: Integer);
@@ -652,6 +662,8 @@ type
procedure SetVISIBLEValue(const aValue: Integer);
function GetREFERENCIA_PROVEEDORValue: String;
procedure SetREFERENCIA_PROVEEDORValue(const aValue: String);
+ function GetID_PEDIDOValue: Integer;
+ procedure SetID_PEDIDOValue(const aValue: Integer);
{ Properties }
@@ -669,6 +681,7 @@ type
property IMPORTE_PORTE: Float read GetIMPORTE_PORTEValue write SetIMPORTE_PORTEValue;
property VISIBLE: Integer read GetVISIBLEValue write SetVISIBLEValue;
property REFERENCIA_PROVEEDOR: String read GetREFERENCIA_PROVEEDORValue write SetREFERENCIA_PROVEEDORValue;
+ property ID_PEDIDO: Integer read GetID_PEDIDOValue write SetID_PEDIDOValue;
end;
{ TAlbaranesProveedor_Detalles_RefreshDataTableRules }
@@ -704,6 +717,8 @@ type
procedure SetVISIBLEValue(const aValue: Integer); virtual;
function GetREFERENCIA_PROVEEDORValue: String; virtual;
procedure SetREFERENCIA_PROVEEDORValue(const aValue: String); virtual;
+ function GetID_PEDIDOValue: Integer; virtual;
+ procedure SetID_PEDIDOValue(const aValue: Integer); virtual;
{ Properties }
property ID: Integer read GetIDValue write SetIDValue;
@@ -720,6 +735,7 @@ type
property IMPORTE_PORTE: Float read GetIMPORTE_PORTEValue write SetIMPORTE_PORTEValue;
property VISIBLE: Integer read GetVISIBLEValue write SetVISIBLEValue;
property REFERENCIA_PROVEEDOR: String read GetREFERENCIA_PROVEEDORValue write SetREFERENCIA_PROVEEDORValue;
+ property ID_PEDIDO: Integer read GetID_PEDIDOValue write SetID_PEDIDOValue;
public
constructor Create(aDataTable: TDADataTable); override;
@@ -729,7 +745,7 @@ type
{ IAlbaranesProveedor_Refresh }
IAlbaranesProveedor_Refresh = interface(IDAStronglyTypedDataTable)
- ['{F75AB4AE-10D5-4DA0-B8CA-39161C02E8BC}']
+ ['{33F9FCD3-FD74-488D-8EBC-F3AFCCCF566B}']
{ Property getters and setters }
function GetIDValue: Integer;
procedure SetIDValue(const aValue: Integer);
@@ -1517,6 +1533,16 @@ begin
DataTable.Fields[idx_AlbaranesProveedor_DetallesREFERENCIA_PROVEEDOR].AsString := aValue;
end;
+function TAlbaranesProveedor_DetallesDataTableRules.GetID_PEDIDOValue: Integer;
+begin
+ result := DataTable.Fields[idx_AlbaranesProveedor_DetallesID_PEDIDO].AsInteger;
+end;
+
+procedure TAlbaranesProveedor_DetallesDataTableRules.SetID_PEDIDOValue(const aValue: Integer);
+begin
+ DataTable.Fields[idx_AlbaranesProveedor_DetallesID_PEDIDO].AsInteger := aValue;
+end;
+
{ TAlbaranesProveedor_Detalles_RefreshDataTableRules }
constructor TAlbaranesProveedor_Detalles_RefreshDataTableRules.Create(aDataTable: TDADataTable);
@@ -1669,6 +1695,16 @@ begin
DataTable.Fields[idx_AlbaranesProveedor_Detalles_RefreshREFERENCIA_PROVEEDOR].AsString := aValue;
end;
+function TAlbaranesProveedor_Detalles_RefreshDataTableRules.GetID_PEDIDOValue: Integer;
+begin
+ result := DataTable.Fields[idx_AlbaranesProveedor_Detalles_RefreshID_PEDIDO].AsInteger;
+end;
+
+procedure TAlbaranesProveedor_Detalles_RefreshDataTableRules.SetID_PEDIDOValue(const aValue: Integer);
+begin
+ DataTable.Fields[idx_AlbaranesProveedor_Detalles_RefreshID_PEDIDO].AsInteger := aValue;
+end;
+
{ TAlbaranesProveedor_RefreshDataTableRules }
constructor TAlbaranesProveedor_RefreshDataTableRules.Create(aDataTable: TDADataTable);
diff --git a/Source/Modulos/Albaranes de proveedor/Model/schAlbaranesProveedorServer_Intf.pas b/Source/Modulos/Albaranes de proveedor/Model/schAlbaranesProveedorServer_Intf.pas
index d3a68407..80f4c8e9 100644
--- a/Source/Modulos/Albaranes de proveedor/Model/schAlbaranesProveedorServer_Intf.pas
+++ b/Source/Modulos/Albaranes de proveedor/Model/schAlbaranesProveedorServer_Intf.pas
@@ -9,16 +9,16 @@ 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_DarReferenciaDelta = '{F1B43432-A3E7-44D4-AF56-D2CA222CA3B3}';
- RID_AlbaranesProveedorDelta = '{A1201763-99E7-462F-86AD-AAA14EFE7A60}';
- RID_AlbaranesProveedor_DetallesDelta = '{9DD8A677-8A3F-4948-8C8C-1B40BB98AE6F}';
- RID_AlbaranesProveedor_Detalles_RefreshDelta = '{5663912C-0DD4-4B61-9F49-A9EFD19CA7CE}';
- RID_AlbaranesProveedor_RefreshDelta = '{978B6667-02B7-49EC-B0E0-96D2672CCE4B}';
+ RID_DarReferenciaDelta = '{A422DB5C-634E-474A-8CF6-74991DA1AE32}';
+ RID_AlbaranesProveedorDelta = '{C4E4FF3D-939D-4F34-9867-F77C33CC5CFC}';
+ RID_AlbaranesProveedor_DetallesDelta = '{DAF52FFB-AC66-412B-8E1C-7DAAB3B0C2C9}';
+ RID_AlbaranesProveedor_Detalles_RefreshDelta = '{324ADFD7-9348-41B3-BFAF-50FE30872A52}';
+ RID_AlbaranesProveedor_RefreshDelta = '{79C0564C-8AE9-4995-A30C-C904BEB88939}';
type
{ IDarReferenciaDelta }
IDarReferenciaDelta = interface(IDarReferencia)
- ['{F1B43432-A3E7-44D4-AF56-D2CA222CA3B3}']
+ ['{A422DB5C-634E-474A-8CF6-74991DA1AE32}']
{ Property getters and setters }
function GetOldVALORValue : String;
@@ -47,7 +47,7 @@ type
{ IAlbaranesProveedorDelta }
IAlbaranesProveedorDelta = interface(IAlbaranesProveedor)
- ['{A1201763-99E7-462F-86AD-AAA14EFE7A60}']
+ ['{C4E4FF3D-939D-4F34-9867-F77C33CC5CFC}']
{ Property getters and setters }
function GetOldIDValue : Integer;
function GetOldID_EMPRESAValue : Integer;
@@ -321,7 +321,7 @@ type
{ IAlbaranesProveedor_DetallesDelta }
IAlbaranesProveedor_DetallesDelta = interface(IAlbaranesProveedor_Detalles)
- ['{9DD8A677-8A3F-4948-8C8C-1B40BB98AE6F}']
+ ['{DAF52FFB-AC66-412B-8E1C-7DAAB3B0C2C9}']
{ Property getters and setters }
function GetOldIDValue : Integer;
function GetOldID_ALBARANValue : Integer;
@@ -337,6 +337,7 @@ type
function GetOldIMPORTE_PORTEValue : Currency;
function GetOldVISIBLEValue : Integer;
function GetOldREFERENCIA_PROVEEDORValue : String;
+ function GetOldID_PEDIDOValue : Integer;
{ Properties }
property OldID : Integer read GetOldIDValue;
@@ -353,6 +354,7 @@ type
property OldIMPORTE_PORTE : Currency read GetOldIMPORTE_PORTEValue;
property OldVISIBLE : Integer read GetOldVISIBLEValue;
property OldREFERENCIA_PROVEEDOR : String read GetOldREFERENCIA_PROVEEDORValue;
+ property OldID_PEDIDO : Integer read GetOldID_PEDIDOValue;
end;
{ TAlbaranesProveedor_DetallesBusinessProcessorRules }
@@ -402,6 +404,9 @@ type
function GetREFERENCIA_PROVEEDORValue: String; virtual;
function GetOldREFERENCIA_PROVEEDORValue: String; virtual;
procedure SetREFERENCIA_PROVEEDORValue(const aValue: String); virtual;
+ function GetID_PEDIDOValue: Integer; virtual;
+ function GetOldID_PEDIDOValue: Integer; virtual;
+ procedure SetID_PEDIDOValue(const aValue: Integer); virtual;
{ Properties }
property ID : Integer read GetIDValue write SetIDValue;
@@ -432,6 +437,8 @@ type
property OldVISIBLE : Integer read GetOldVISIBLEValue;
property REFERENCIA_PROVEEDOR : String read GetREFERENCIA_PROVEEDORValue write SetREFERENCIA_PROVEEDORValue;
property OldREFERENCIA_PROVEEDOR : String read GetOldREFERENCIA_PROVEEDORValue;
+ property ID_PEDIDO : Integer read GetID_PEDIDOValue write SetID_PEDIDOValue;
+ property OldID_PEDIDO : Integer read GetOldID_PEDIDOValue;
public
constructor Create(aBusinessProcessor: TDABusinessProcessor); override;
@@ -441,7 +448,7 @@ type
{ IAlbaranesProveedor_Detalles_RefreshDelta }
IAlbaranesProveedor_Detalles_RefreshDelta = interface(IAlbaranesProveedor_Detalles_Refresh)
- ['{5663912C-0DD4-4B61-9F49-A9EFD19CA7CE}']
+ ['{324ADFD7-9348-41B3-BFAF-50FE30872A52}']
{ Property getters and setters }
function GetOldIDValue : Integer;
function GetOldID_ALBARANValue : Integer;
@@ -457,6 +464,7 @@ type
function GetOldIMPORTE_PORTEValue : Float;
function GetOldVISIBLEValue : Integer;
function GetOldREFERENCIA_PROVEEDORValue : String;
+ function GetOldID_PEDIDOValue : Integer;
{ Properties }
property OldID : Integer read GetOldIDValue;
@@ -473,6 +481,7 @@ type
property OldIMPORTE_PORTE : Float read GetOldIMPORTE_PORTEValue;
property OldVISIBLE : Integer read GetOldVISIBLEValue;
property OldREFERENCIA_PROVEEDOR : String read GetOldREFERENCIA_PROVEEDORValue;
+ property OldID_PEDIDO : Integer read GetOldID_PEDIDOValue;
end;
{ TAlbaranesProveedor_Detalles_RefreshBusinessProcessorRules }
@@ -522,6 +531,9 @@ type
function GetREFERENCIA_PROVEEDORValue: String; virtual;
function GetOldREFERENCIA_PROVEEDORValue: String; virtual;
procedure SetREFERENCIA_PROVEEDORValue(const aValue: String); virtual;
+ function GetID_PEDIDOValue: Integer; virtual;
+ function GetOldID_PEDIDOValue: Integer; virtual;
+ procedure SetID_PEDIDOValue(const aValue: Integer); virtual;
{ Properties }
property ID : Integer read GetIDValue write SetIDValue;
@@ -552,6 +564,8 @@ type
property OldVISIBLE : Integer read GetOldVISIBLEValue;
property REFERENCIA_PROVEEDOR : String read GetREFERENCIA_PROVEEDORValue write SetREFERENCIA_PROVEEDORValue;
property OldREFERENCIA_PROVEEDOR : String read GetOldREFERENCIA_PROVEEDORValue;
+ property ID_PEDIDO : Integer read GetID_PEDIDOValue write SetID_PEDIDOValue;
+ property OldID_PEDIDO : Integer read GetOldID_PEDIDOValue;
public
constructor Create(aBusinessProcessor: TDABusinessProcessor); override;
@@ -561,7 +575,7 @@ type
{ IAlbaranesProveedor_RefreshDelta }
IAlbaranesProveedor_RefreshDelta = interface(IAlbaranesProveedor_Refresh)
- ['{978B6667-02B7-49EC-B0E0-96D2672CCE4B}']
+ ['{79C0564C-8AE9-4995-A30C-C904BEB88939}']
{ Property getters and setters }
function GetOldIDValue : Integer;
function GetOldID_EMPRESAValue : Integer;
@@ -1642,6 +1656,21 @@ begin
BusinessProcessor.CurrentChange.NewValueByName[fld_AlbaranesProveedor_DetallesREFERENCIA_PROVEEDOR] := aValue;
end;
+function TAlbaranesProveedor_DetallesBusinessProcessorRules.GetID_PEDIDOValue: Integer;
+begin
+ result := BusinessProcessor.CurrentChange.NewValueByName[fld_AlbaranesProveedor_DetallesID_PEDIDO];
+end;
+
+function TAlbaranesProveedor_DetallesBusinessProcessorRules.GetOldID_PEDIDOValue: Integer;
+begin
+ result := BusinessProcessor.CurrentChange.OldValueByName[fld_AlbaranesProveedor_DetallesID_PEDIDO];
+end;
+
+procedure TAlbaranesProveedor_DetallesBusinessProcessorRules.SetID_PEDIDOValue(const aValue: Integer);
+begin
+ BusinessProcessor.CurrentChange.NewValueByName[fld_AlbaranesProveedor_DetallesID_PEDIDO] := aValue;
+end;
+
{ TAlbaranesProveedor_Detalles_RefreshBusinessProcessorRules }
constructor TAlbaranesProveedor_Detalles_RefreshBusinessProcessorRules.Create(aBusinessProcessor: TDABusinessProcessor);
@@ -1864,6 +1893,21 @@ begin
BusinessProcessor.CurrentChange.NewValueByName[fld_AlbaranesProveedor_Detalles_RefreshREFERENCIA_PROVEEDOR] := aValue;
end;
+function TAlbaranesProveedor_Detalles_RefreshBusinessProcessorRules.GetID_PEDIDOValue: Integer;
+begin
+ result := BusinessProcessor.CurrentChange.NewValueByName[fld_AlbaranesProveedor_Detalles_RefreshID_PEDIDO];
+end;
+
+function TAlbaranesProveedor_Detalles_RefreshBusinessProcessorRules.GetOldID_PEDIDOValue: Integer;
+begin
+ result := BusinessProcessor.CurrentChange.OldValueByName[fld_AlbaranesProveedor_Detalles_RefreshID_PEDIDO];
+end;
+
+procedure TAlbaranesProveedor_Detalles_RefreshBusinessProcessorRules.SetID_PEDIDOValue(const aValue: Integer);
+begin
+ BusinessProcessor.CurrentChange.NewValueByName[fld_AlbaranesProveedor_Detalles_RefreshID_PEDIDO] := aValue;
+end;
+
{ TAlbaranesProveedor_RefreshBusinessProcessorRules }
constructor TAlbaranesProveedor_RefreshBusinessProcessorRules.Create(aBusinessProcessor: TDABusinessProcessor);
diff --git a/Source/Modulos/Albaranes de proveedor/Servidor/srvAlbaranesProveedor_Impl.dfm b/Source/Modulos/Albaranes de proveedor/Servidor/srvAlbaranesProveedor_Impl.dfm
index e21b7960..436dc833 100644
--- a/Source/Modulos/Albaranes de proveedor/Servidor/srvAlbaranesProveedor_Impl.dfm
+++ b/Source/Modulos/Albaranes de proveedor/Servidor/srvAlbaranesProveedor_Impl.dfm
@@ -629,10 +629,11 @@ object srvAlbaranesProveedor: TsrvAlbaranesProveedor
'LE,'#10#10' ALBARANES_PROVEEDOR_DETALLES.ID_ARTICULO, ALBARANES_PRO' +
'VEEDOR_DETALLES.DESCUENTO,'#10' ALBARANES_PROVEEDOR_DETALLES.IMPO' +
'RTE_PORTE,'#10' ARTICULOS.REFERENCIA, ARTICULOS.REFERENCIA_PROV a' +
- 's REFERENCIA_PROVEEDOR'#10#10'FROM ALBARANES_PROVEEDOR_DETALLES'#10'LEFT J' +
- 'OIN ARTICULOS ON ALBARANES_PROVEEDOR_DETALLES.ID_ARTICULO = ARTI' +
- 'CULOS.ID'#10'WHERE ALBARANES_PROVEEDOR_DETALLES.ID_ALBARAN = :ID_ALB' +
- 'ARAN'#10'ORDER BY POSICION;'
+ 's REFERENCIA_PROVEEDOR,'#10' ALBARANES_PROVEEDOR_DETALLES.ID_PEDI' +
+ 'DO'#10#10'FROM ALBARANES_PROVEEDOR_DETALLES'#10'LEFT JOIN ARTICULOS ON ALB' +
+ 'ARANES_PROVEEDOR_DETALLES.ID_ARTICULO = ARTICULOS.ID'#10'WHERE ALBAR' +
+ 'ANES_PROVEEDOR_DETALLES.ID_ALBARAN = :ID_ALBARAN'#10'ORDER BY POSICI' +
+ 'ON;'
StatementType = stSQL
ColumnMappings = <
item
@@ -841,6 +842,17 @@ object srvAlbaranesProveedor: TsrvAlbaranesProveedor
Calculated = False
Lookup = False
LookupCache = False
+ end
+ item
+ Name = 'ID_PEDIDO'
+ DataType = datInteger
+ BlobType = dabtUnknown
+ DisplayWidth = 0
+ Alignment = taLeftJustify
+ InPrimaryKey = False
+ Calculated = False
+ Lookup = False
+ LookupCache = False
end>
BusinessRulesClient.ScriptLanguage = rslPascalScript
BusinessRulesServer.ScriptLanguage = rslPascalScript
@@ -875,11 +887,11 @@ object srvAlbaranesProveedor: TsrvAlbaranesProveedor
'LE,'#10#10' ALBARANES_PROVEEDOR_DETALLES.ID_ARTICULO, ALBARANES_PRO' +
'VEEDOR_DETALLES.DESCUENTO,'#10' ALBARANES_PROVEEDOR_DETALLES.IMPO' +
'RTE_PORTE,'#10' ARTICULOS.REFERENCIA, ARTICULOS.REFERENCIA_PROV a' +
- 's REFERENCIA_PROVEEDOR'#10#10'FROM ALBARANES_PROVEEDOR_DETALLES'#10'LEFT J' +
- 'OIN ARTICULOS ON ALBARANES_PROVEEDOR_DETALLES.ID_ARTICULO = ARTI' +
- 'CULOS.ID'#10'WHERE ALBARANES_PROVEEDOR_DETALLES.ID_ALBARAN = :ID_ALB' +
- 'ARAN'#10'AND ALBARANES_PROVEEDOR_DETALLES.ID = :ID'#10'ORDER BY POSICION' +
- ';'
+ 's REFERENCIA_PROVEEDOR,'#10' ALBARANES_PROVEEDOR_DETALLES.ID_PEDI' +
+ 'DO'#10#10'FROM ALBARANES_PROVEEDOR_DETALLES'#10'LEFT JOIN ARTICULOS ON ALB' +
+ 'ARANES_PROVEEDOR_DETALLES.ID_ARTICULO = ARTICULOS.ID'#10'WHERE ALBAR' +
+ 'ANES_PROVEEDOR_DETALLES.ID_ALBARAN = :ID_ALBARAN'#10'AND ALBARANES_P' +
+ 'ROVEEDOR_DETALLES.ID = :ID'#10'ORDER BY POSICION;'
StatementType = stSQL
ColumnMappings = <
item
@@ -1092,6 +1104,17 @@ object srvAlbaranesProveedor: TsrvAlbaranesProveedor
Calculated = False
Lookup = False
LookupCache = False
+ end
+ item
+ Name = 'ID_PEDIDO'
+ DataType = datInteger
+ BlobType = dabtUnknown
+ DisplayWidth = 0
+ Alignment = taLeftJustify
+ InPrimaryKey = False
+ Calculated = False
+ Lookup = False
+ LookupCache = False
end>
BusinessRulesClient.ScriptLanguage = rslPascalScript
BusinessRulesServer.ScriptLanguage = rslPascalScript
@@ -1733,14 +1756,6 @@ object srvAlbaranesProveedor: TsrvAlbaranesProveedor
Value = ''
ParamType = daptInput
end
- item
- Name = 'TIPO'
- DataType = datString
- Size = 1
- BlobType = dabtUnknown
- Value = ''
- ParamType = daptInput
- end
item
Name = 'REFERENCIA'
DataType = datString
@@ -1925,6 +1940,14 @@ object srvAlbaranesProveedor: TsrvAlbaranesProveedor
BlobType = dabtUnknown
Value = ''
ParamType = daptInput
+ end
+ item
+ Name = 'TIPO'
+ DataType = datString
+ Size = 1
+ BlobType = dabtUnknown
+ Value = ''
+ ParamType = daptInput
end>
Statements = <
item
@@ -1933,23 +1956,23 @@ object srvAlbaranesProveedor: TsrvAlbaranesProveedor
SQL =
'INSERT INTO ALBARANES_PROVEEDOR ('#10' ID,'#10' ID_EMPRESA,'#10' ID' +
'_PROVEEDOR,'#10' FECHA_ALBARAN,'#10' ID_PEDIDO,'#10' ID_FACTURA,'#10' ' +
- ' TIPO,'#10' REFERENCIA,'#10' REFERENCIA_PROVEEDOR,'#10' REF_FACTUR' +
- 'A_PROV,'#10' CALLE,'#10' CODIGO_POSTAL,'#10' POBLACION,'#10' PROVINC' +
- 'IA,'#10' PERSONA_CONTACTO,'#10' TELEFONO,'#10' BASE_IMPONIBLE,'#10' ' +
- 'DESCUENTO,'#10' IMPORTE_DESCUENTO,'#10' IVA,'#10' IMPORTE_IVA,'#10' ' +
- 'IMPORTE_TOTAL,'#10' OBSERVACIONES,'#10' INCIDENCIAS,'#10' INCIDENCI' +
- 'AS_ACTIVAS,'#10' FECHA_ALTA,'#10' FECHA_MODIFICACION,'#10' USUARIO,' +
- #10' ID_ALMACEN,'#10' ID_FORMA_PAGO,'#10' IMPORTE_NETO,'#10' IMPORT' +
- 'E_PORTE)'#10' VALUES ('#10' :ID,'#10' :ID_EMPRESA,'#10' :ID_PROVEEDOR,' +
- #10' :FECHA_ALBARAN,'#10' :ID_PEDIDO,'#10' :ID_FACTURA,'#10' :TIPO,' +
- #10' :REFERENCIA,'#10' :REFERENCIA_PROVEEDOR,'#10' :REF_FACTURA_PR' +
- 'OV,'#10' :CALLE,'#10' :CODIGO_POSTAL,'#10' :POBLACION,'#10' :PROVINC' +
- 'IA,'#10' :PERSONA_CONTACTO,'#10' :TELEFONO,'#10' :BASE_IMPONIBLE,'#10' ' +
- ' :DESCUENTO,'#10' :IMPORTE_DESCUENTO,'#10' :IVA,'#10' :IMPORTE_IV' +
- 'A,'#10' :IMPORTE_TOTAL,'#10' :OBSERVACIONES,'#10' :INCIDENCIAS,'#10' ' +
- ' :INCIDENCIAS_ACTIVAS,'#10' :FECHA_ALTA,'#10' :FECHA_MODIFICACION,' +
- #10' :USUARIO,'#10' :ID_ALMACEN,'#10' :ID_FORMA_PAGO,'#10' :IMPORTE' +
- '_NETO,'#10' :IMPORTE_PORTE);'
+ ' REFERENCIA,'#10' REFERENCIA_PROVEEDOR,'#10' REF_FACTURA_PROV,'#10' ' +
+ ' CALLE,'#10' CODIGO_POSTAL,'#10' POBLACION,'#10' PROVINCIA,'#10' PE' +
+ 'RSONA_CONTACTO,'#10' TELEFONO,'#10' BASE_IMPONIBLE,'#10' DESCUENTO,' +
+ #10' IMPORTE_DESCUENTO,'#10' IVA,'#10' IMPORTE_IVA,'#10' IMPORTE_TO' +
+ 'TAL,'#10' OBSERVACIONES,'#10' INCIDENCIAS,'#10' INCIDENCIAS_ACTIVAS' +
+ ','#10' FECHA_ALTA,'#10' FECHA_MODIFICACION,'#10' USUARIO,'#10' ID_AL' +
+ 'MACEN,'#10' ID_FORMA_PAGO,'#10' IMPORTE_NETO,'#10' IMPORTE_PORTE,'#10' ' +
+ ' TIPO)'#10' VALUES ('#10' :ID,'#10' :ID_EMPRESA,'#10' :ID_PROVEEDOR,' +
+ #10' :FECHA_ALBARAN,'#10' :ID_PEDIDO,'#10' :ID_FACTURA,'#10' :REFER' +
+ 'ENCIA,'#10' :REFERENCIA_PROVEEDOR,'#10' :REF_FACTURA_PROV,'#10' :CA' +
+ 'LLE,'#10' :CODIGO_POSTAL,'#10' :POBLACION,'#10' :PROVINCIA,'#10' :PE' +
+ 'RSONA_CONTACTO,'#10' :TELEFONO,'#10' :BASE_IMPONIBLE,'#10' :DESCUEN' +
+ 'TO,'#10' :IMPORTE_DESCUENTO,'#10' :IVA,'#10' :IMPORTE_IVA,'#10' :IMP' +
+ 'ORTE_TOTAL,'#10' :OBSERVACIONES,'#10' :INCIDENCIAS,'#10' :INCIDENCI' +
+ 'AS_ACTIVAS,'#10' :FECHA_ALTA,'#10' :FECHA_MODIFICACION,'#10' :USUAR' +
+ 'IO,'#10' :ID_ALMACEN,'#10' :ID_FORMA_PAGO,'#10' :IMPORTE_NETO,'#10' ' +
+ ':IMPORTE_PORTE,'#10' :TIPO);'
StatementType = stSQL
ColumnMappings = <>
end>
@@ -2013,14 +2036,6 @@ object srvAlbaranesProveedor: TsrvAlbaranesProveedor
Value = ''
ParamType = daptInput
end
- item
- Name = 'TIPO'
- DataType = datString
- Size = 1
- BlobType = dabtUnknown
- Value = ''
- ParamType = daptInput
- end
item
Name = 'REFERENCIA'
DataType = datString
@@ -2206,6 +2221,14 @@ object srvAlbaranesProveedor: TsrvAlbaranesProveedor
Value = ''
ParamType = daptInput
end
+ item
+ Name = 'TIPO'
+ DataType = datString
+ Size = 1
+ BlobType = dabtUnknown
+ Value = ''
+ ParamType = daptInput
+ end
item
Name = 'OLD_ID'
DataType = datInteger
@@ -2221,20 +2244,20 @@ object srvAlbaranesProveedor: TsrvAlbaranesProveedor
'UPDATE ALBARANES_PROVEEDOR'#10' SET'#10' ID_EMPRESA = :ID_EMPRESA,'#10' ' +
' ID_PROVEEDOR = :ID_PROVEEDOR,'#10' FECHA_ALBARAN = :FECHA_ALBA' +
'RAN,'#10' ID_PEDIDO = :ID_PEDIDO,'#10' ID_FACTURA = :ID_FACTURA,'#10' ' +
- ' TIPO = :TIPO,'#10' REFERENCIA = :REFERENCIA,'#10' REFERENCIA_PR' +
- 'OVEEDOR = :REFERENCIA_PROVEEDOR,'#10' REF_FACTURA_PROV = :REF_FAC' +
- 'TURA_PROV,'#10' CALLE = :CALLE,'#10' CODIGO_POSTAL = :CODIGO_POSTA' +
- 'L,'#10' POBLACION = :POBLACION,'#10' PROVINCIA = :PROVINCIA,'#10' P' +
- 'ERSONA_CONTACTO = :PERSONA_CONTACTO,'#10' TELEFONO = :TELEFONO,'#10' ' +
- ' BASE_IMPONIBLE = :BASE_IMPONIBLE,'#10' DESCUENTO = :DESCUENTO,' +
- #10' IMPORTE_DESCUENTO = :IMPORTE_DESCUENTO,'#10' IVA = :IVA,'#10' ' +
- ' IMPORTE_IVA = :IMPORTE_IVA,'#10' IMPORTE_TOTAL = :IMPORTE_TOTAL,' +
- #10' OBSERVACIONES = :OBSERVACIONES,'#10' INCIDENCIAS = :INCIDENC' +
- 'IAS,'#10' INCIDENCIAS_ACTIVAS = :INCIDENCIAS_ACTIVAS,'#10' FECHA_A' +
- 'LTA = :FECHA_ALTA,'#10' FECHA_MODIFICACION = :FECHA_MODIFICACION,' +
- #10' USUARIO = :USUARIO,'#10' ID_ALMACEN = :ID_ALMACEN,'#10' ID_FO' +
- 'RMA_PAGO = :ID_FORMA_PAGO,'#10' IMPORTE_NETO = :IMPORTE_NETO,'#10' ' +
- ' IMPORTE_PORTE = :IMPORTE_PORTE'#10' WHERE'#10' (ID = :OLD_ID);'
+ ' REFERENCIA = :REFERENCIA,'#10' REFERENCIA_PROVEEDOR = :REFEREN' +
+ 'CIA_PROVEEDOR,'#10' REF_FACTURA_PROV = :REF_FACTURA_PROV,'#10' CAL' +
+ 'LE = :CALLE,'#10' CODIGO_POSTAL = :CODIGO_POSTAL,'#10' POBLACION =' +
+ ' :POBLACION,'#10' PROVINCIA = :PROVINCIA,'#10' PERSONA_CONTACTO = ' +
+ ':PERSONA_CONTACTO,'#10' TELEFONO = :TELEFONO,'#10' BASE_IMPONIBLE ' +
+ '= :BASE_IMPONIBLE,'#10' DESCUENTO = :DESCUENTO,'#10' IMPORTE_DESCU' +
+ 'ENTO = :IMPORTE_DESCUENTO,'#10' IVA = :IVA,'#10' IMPORTE_IVA = :IM' +
+ 'PORTE_IVA,'#10' IMPORTE_TOTAL = :IMPORTE_TOTAL,'#10' OBSERVACIONES' +
+ ' = :OBSERVACIONES,'#10' INCIDENCIAS = :INCIDENCIAS,'#10' INCIDENCI' +
+ 'AS_ACTIVAS = :INCIDENCIAS_ACTIVAS,'#10' FECHA_ALTA = :FECHA_ALTA,' +
+ #10' FECHA_MODIFICACION = :FECHA_MODIFICACION,'#10' USUARIO = :US' +
+ 'UARIO,'#10' ID_ALMACEN = :ID_ALMACEN,'#10' ID_FORMA_PAGO = :ID_FOR' +
+ 'MA_PAGO,'#10' IMPORTE_NETO = :IMPORTE_NETO,'#10' IMPORTE_PORTE = :' +
+ 'IMPORTE_PORTE,'#10' TIPO = :TIPO'#10' WHERE'#10' (ID = :OLD_ID);'
StatementType = stSQL
ColumnMappings = <>
end>
@@ -2327,6 +2350,13 @@ object srvAlbaranesProveedor: TsrvAlbaranesProveedor
BlobType = dabtUnknown
Value = ''
ParamType = daptInput
+ end
+ item
+ Name = 'ID_PEDIDO'
+ DataType = datInteger
+ BlobType = dabtUnknown
+ Value = ''
+ ParamType = daptInput
end>
Statements = <
item
@@ -2336,9 +2366,10 @@ object srvAlbaranesProveedor: TsrvAlbaranesProveedor
'INSERT'#10' INTO ALBARANES_PROVEEDOR_DETALLES'#10' (CANTIDAD, POSICI' +
'ON, ID, TIPO_DETALLE, CONCEPTO, IMPORTE_UNIDAD, '#10' IMPORTE_TO' +
'TAL, VISIBLE, ID_ALBARAN,'#10' ID_ARTICULO, DESCUENTO, IMPORTE_P' +
- 'ORTE)'#10' VALUES'#10' (:CANTIDAD, :POSICION, :ID, :TIPO_DETALLE, :C' +
- 'ONCEPTO, '#10' :IMPORTE_UNIDAD, :IMPORTE_TOTAL, :VISIBLE, :ID_AL' +
- 'BARAN,'#10' :ID_ARTICULO, :DESCUENTO, :IMPORTE_PORTE)'
+ 'ORTE, ID_PEDIDO)'#10' VALUES'#10' (:CANTIDAD, :POSICION, :ID, :TIPO_' +
+ 'DETALLE, :CONCEPTO, '#10' :IMPORTE_UNIDAD, :IMPORTE_TOTAL, :VISI' +
+ 'BLE, :ID_ALBARAN,'#10' :ID_ARTICULO, :DESCUENTO, :IMPORTE_PORTE,' +
+ ' :ID_PEDIDO)'
StatementType = stSQL
ColumnMappings = <>
end>
@@ -2453,6 +2484,13 @@ object srvAlbaranesProveedor: TsrvAlbaranesProveedor
Value = ''
ParamType = daptInput
end
+ item
+ Name = 'ID_PEDIDO'
+ DataType = datInteger
+ BlobType = dabtUnknown
+ Value = ''
+ ParamType = daptInput
+ end
item
Name = 'OLD_ID'
DataType = datInteger
@@ -2471,7 +2509,8 @@ object srvAlbaranesProveedor: TsrvAlbaranesProveedor
' = :IMPORTE_UNIDAD, '#10' IMPORTE_TOTAL = :IMPORTE_TOTAL, '#10' VI' +
'SIBLE = :VISIBLE, '#10' ID_ALBARAN = :ID_ALBARAN,'#10' ID_ARTICULO' +
' = :ID_ARTICULO,'#10' DESCUENTO = :DESCUENTO,'#10' IMPORTE_PORTE =' +
- ' :IMPORTE_PORTE'#10' WHERE'#10' (ID = :OLD_ID)'
+ ' :IMPORTE_PORTE,'#10' ID_PEDIDO = :ID_PEDIDO'#10' WHERE'#10' (ID = :O' +
+ 'LD_ID)'
StatementType = stSQL
ColumnMappings = <>
end>
diff --git a/Source/Modulos/Informe margen por articulo/Servidor/srvInfMargenArticulo_Impl.dfm b/Source/Modulos/Informe margen por articulo/Servidor/srvInfMargenArticulo_Impl.dfm
index d95631d6..10317ff9 100644
--- a/Source/Modulos/Informe margen por articulo/Servidor/srvInfMargenArticulo_Impl.dfm
+++ b/Source/Modulos/Informe margen por articulo/Servidor/srvInfMargenArticulo_Impl.dfm
@@ -807,6 +807,715 @@ object srvInfMargenArticulo: TsrvInfMargenArticulo
end>
BusinessRulesClient.ScriptLanguage = rslPascalScript
BusinessRulesServer.ScriptLanguage = rslPascalScript
+ end
+ item
+ Params = <
+ item
+ Name = 'FECHAINI'
+ BlobType = dabtUnknown
+ Value = ''
+ ParamType = daptInput
+ end
+ item
+ Name = 'FECHAFIN'
+ BlobType = dabtUnknown
+ Value = ''
+ ParamType = daptInput
+ end>
+ Statements = <
+ item
+ Connection = 'IBX'
+ TargetTable = 'INF_MARGEN_ARTICULOS'
+ SQL =
+ 'SELECT'#10#10' INF_MARGEN_ARTICULOS.ID_EMPRESA,'#10'/* INF_MARGEN_AR' +
+ 'TICULOS.ID_CLIENTE,*/'#10' INF_MARGEN_ARTICULOS.ID_ARTICULO,'#10'/*'#10' ' +
+ ' INF_MARGEN_ARTICULOS.NIF_CIF_CLIENTE,'#10' INF_MARGEN_ARTICULO' +
+ 'S.NOMBRE_CLIENTE,'#10' INF_MARGEN_ARTICULOS.NOMBRE_COMERCIAL_CLIE' +
+ 'NTE,'#10' INF_MARGEN_ARTICULOS.NIF_CIF_AGENTE,'#10' INF_MARGEN_ART' +
+ 'ICULOS.NOMBRE_AGENTE,'#10'*/'#10' INF_MARGEN_ARTICULOS.FAMILIA,'#10' I' +
+ 'NF_MARGEN_ARTICULOS.REFERENCIA,'#10' INF_MARGEN_ARTICULOS.REFEREN' +
+ 'CIA_PROV,'#10' INF_MARGEN_ARTICULOS.DESCRIPCION,'#10' INF_MARGEN_A' +
+ 'RTICULOS.COMISIONABLE,'#10' INF_MARGEN_ARTICULOS.INVENTARIABLE,'#10' ' +
+ ' INF_MARGEN_ARTICULOS.IMP_UNIDAD_ULT_VENT,'#10' INF_MARGEN_ARTI' +
+ 'CULOS.IMP_NETO_ULT_VENT,'#10' INF_MARGEN_ARTICULOS.IMP_PORTE_ULT_' +
+ 'VENT,'#10' INF_MARGEN_ARTICULOS.IMP_UNIDAD_PRO_VENT,'#10' INF_MARG' +
+ 'EN_ARTICULOS.IMP_NETO_PRO_VENT,'#10' INF_MARGEN_ARTICULOS.IMP_POR' +
+ 'TE_PRO_VENT,'#10' INF_MARGEN_ARTICULOS.IMP_UNIDAD_COMPRA,'#10' INF' +
+ '_MARGEN_ARTICULOS.IMP_NETO_COMPRA,'#10' INF_MARGEN_ARTICULOS.IMP_' +
+ 'PORTE_COMPRA,'#10' INF_MARGEN_ARTICULOS.IMP_UNIDAD_ULT_COMP,'#10' ' +
+ 'INF_MARGEN_ARTICULOS.IMP_NETO_ULT_COMP,'#10' INF_MARGEN_ARTICULOS' +
+ '.IMP_PORTE_ULT_COMP,'#10' INF_MARGEN_ARTICULOS.IMP_UNIDAD_PRO_COM' +
+ 'P,'#10' INF_MARGEN_ARTICULOS.IMP_NETO_PRO_COMP,'#10' INF_MARGEN_AR' +
+ 'TICULOS.IMP_PORTE_PRO_COMP,'#10' INF_MARGEN_ARTICULOS.IMP_MARGEN_' +
+ 'ULT_VENT_COMPRA,'#10' INF_MARGEN_ARTICULOS.POR_MARGEN_ULT_VENT_CO' +
+ 'MPRA,'#10' INF_MARGEN_ARTICULOS.IMP_MARGEN_ULT_VENT_ULT_COMP,'#10' ' +
+ ' INF_MARGEN_ARTICULOS.POR_MARGEN_ULT_VENT_ULT_COMP,'#10' INF_MARG' +
+ 'EN_ARTICULOS.IMP_MARGEN_ULT_VENT_PRO_COMP,'#10' INF_MARGEN_ARTICU' +
+ 'LOS.POR_MARGEN_ULT_VENT_PRO_COMP,'#10' INF_MARGEN_ARTICULOS.IMP_M' +
+ 'ARGEN_PRO_VENT_COMPRA,'#10' INF_MARGEN_ARTICULOS.POR_MARGEN_PRO_V' +
+ 'ENT_COMPRA,'#10' INF_MARGEN_ARTICULOS.IMP_MARGEN_PRO_VENT_ULT_COM' +
+ 'P,'#10' INF_MARGEN_ARTICULOS.POR_MARGEN_PRO_VENT_ULT_COMP,'#10' IN' +
+ 'F_MARGEN_ARTICULOS.IMP_MARGEN_PRO_VENT_PRO_COMP,'#10' INF_MARGEN_' +
+ 'ARTICULOS.POR_MARGEN_PRO_VENT_PRO_COMP'#10#10'FROM'#10#10'(SELECT'#10'MARGEN_VEN' +
+ 'TAS.ID_EMPRESA AS ID_EMPRESA,'#10'/*MARGEN_VENTAS.ID_CLIENTE AS ID_C' +
+ 'LIENTE,*/'#10'MARGEN_VENTAS.ID_ARTICULO AS ID_ARTICULO,'#10#10'/*'#10'CLIENTES' +
+ '.NIF_CIF AS NIF_CIF_CLIENTE,'#10'CLIENTES.NOMBRE AS NOMBRE_CLIENTE,'#10 +
+ 'CLIENTES_DATOS.NOMBRE_COMERCIAL AS NOMBRE_COMERCIAL_CLIENTE,'#10#10'AG' +
+ 'ENTES.NIF_CIF AS NIF_CIF_AGENTE,'#10'AGENTES.NOMBRE AS NOMBRE_AGENTE' +
+ ','#10'*/'#10#10'ARTICULOS.FAMILIA AS FAMILIA,'#10'ARTICULOS.REFERENCIA AS REFE' +
+ 'RENCIA,'#10'ARTICULOS.REFERENCIA_PROV AS REFERENCIA_PROV,'#10'ARTICULOS.' +
+ 'DESCRIPCION AS DESCRIPCION,'#10'ARTICULOS.COMISIONABLE AS COMISIONAB' +
+ 'LE,'#10'ARTICULOS.INVENTARIABLE AS INVENTARIABLE,'#10#10'COALESCE(MARGEN_V' +
+ 'ENTAS.IMPORTE_UNIDAD_ULT_VENT, 0) AS IMP_UNIDAD_ULT_VENT,'#10'COALES' +
+ 'CE(MARGEN_VENTAS.IMPORTE_NETO_ULT_VENT, 0) AS IMP_NETO_ULT_VENT,' +
+ #10'COALESCE(MARGEN_VENTAS.IMPORTE_PORTE_ULT_VENT, 0) AS IMP_PORTE_' +
+ 'ULT_VENT,'#10#10'COALESCE(MARGEN_VENTAS.IMPORTE_UNIDAD_PRO_VENT, 0) AS' +
+ ' IMP_UNIDAD_PRO_VENT,'#10'COALESCE(MARGEN_VENTAS.IMPORTE_NETO_PRO_VE' +
+ 'NT, 0) AS IMP_NETO_PRO_VENT,'#10'COALESCE(MARGEN_VENTAS.IMPORTE_PORT' +
+ 'E_PRO_VENT, 0) AS IMP_PORTE_PRO_VENT,'#10#10'COALESCE(ARTICULOS.PRECIO' +
+ '_COSTE, 0) AS IMP_UNIDAD_COMPRA,'#10'COALESCE(ARTICULOS.PRECIO_NETO,' +
+ ' 0) AS IMP_NETO_COMPRA,'#10'COALESCE(ARTICULOS.PRECIO_PORTE, 0) AS I' +
+ 'MP_PORTE_COMPRA,'#10#10'COALESCE(MARGEN_COMPRAS.IMPORTE_UNIDAD_ULT_COM' +
+ 'P, COALESCE(ARTICULOS.PRECIO_COSTE, 0)) AS IMP_UNIDAD_ULT_COMP,'#10 +
+ 'COALESCE(MARGEN_COMPRAS.IMPORTE_NETO_ULT_COMP, COALESCE(ARTICULO' +
+ 'S.PRECIO_NETO, 0)) AS IMP_NETO_ULT_COMP,'#10'COALESCE(MARGEN_COMPRAS' +
+ '.IMPORTE_PORTE_ULT_COMP, COALESCE(ARTICULOS.PRECIO_PORTE, 0)) AS' +
+ ' IMP_PORTE_ULT_COMP,'#10#10'COALESCE(MARGEN_COMPRAS.IMPORTE_UNIDAD_PRO' +
+ '_COMP, COALESCE(ARTICULOS.PRECIO_COSTE, 0)) AS IMP_UNIDAD_PRO_CO' +
+ 'MP,'#10'COALESCE(MARGEN_COMPRAS.IMPORTE_NETO_PRO_COMP, COALESCE(ARTI' +
+ 'CULOS.PRECIO_NETO, 0)) AS IMP_NETO_PRO_COMP,'#10'COALESCE(MARGEN_COM' +
+ 'PRAS.IMPORTE_PORTE_PRO_COMP, COALESCE(ARTICULOS.PRECIO_PORTE, 0)' +
+ ') AS IMP_PORTE_PRO_COMP,'#10#10#10#10#10'MARGEN_VENTAS.IMPORTE_NETO_ULT_VENT' +
+ ' - ARTICULOS.PRECIO_NETO AS IMP_MARGEN_ULT_VENT_COMPRA,'#10'CASE'#10'WHE' +
+ 'N ARTICULOS.PRECIO_NETO = 0 THEN 100'#10'WHEN (MARGEN_VENTAS.IMPORT' +
+ 'E_NETO_ULT_VENT - ARTICULOS.PRECIO_NETO) > 0 THEN'#10' ((MARGEN_' +
+ 'VENTAS.IMPORTE_NETO_ULT_VENT - ARTICULOS.PRECIO_NETO) * 100) / M' +
+ 'ARGEN_VENTAS.IMPORTE_NETO_ULT_VENT'#10'ELSE 0'#10'END'#10'AS POR_MARGEN_ULT_' +
+ 'VENT_COMPRA,'#10#10'MARGEN_VENTAS.IMPORTE_NETO_ULT_VENT - MARGEN_COMPR' +
+ 'AS.IMPORTE_NETO_ULT_COMP AS IMP_MARGEN_ULT_VENT_ULT_COMP,'#10'CASE'#10'W' +
+ 'HEN MARGEN_COMPRAS.IMPORTE_NETO_ULT_COMP = 0 THEN 100'#10'WHEN (MAR' +
+ 'GEN_VENTAS.IMPORTE_NETO_ULT_VENT - MARGEN_COMPRAS.IMPORTE_NETO_U' +
+ 'LT_COMP) > 0 THEN'#10' ((MARGEN_VENTAS.IMPORTE_NETO_ULT_VENT - M' +
+ 'ARGEN_COMPRAS.IMPORTE_NETO_ULT_COMP) * 100) / MARGEN_VENTAS.IMPO' +
+ 'RTE_NETO_ULT_VENT'#10'ELSE 0'#10'END'#10'AS POR_MARGEN_ULT_VENT_ULT_COMP,'#10#10'M' +
+ 'ARGEN_VENTAS.IMPORTE_NETO_ULT_VENT - MARGEN_COMPRAS.IMPORTE_NETO' +
+ '_PRO_COMP AS IMP_MARGEN_ULT_VENT_PRO_COMP,'#10'CASE'#10'WHEN MARGEN_COM' +
+ 'PRAS.IMPORTE_NETO_PRO_COMP = 0 THEN 100'#10'WHEN (MARGEN_VENTAS.IMPO' +
+ 'RTE_NETO_ULT_VENT - MARGEN_COMPRAS.IMPORTE_NETO_PRO_COMP) > 0 TH' +
+ 'EN'#10' ((MARGEN_VENTAS.IMPORTE_NETO_ULT_VENT - MARGEN_COMPRAS.I' +
+ 'MPORTE_NETO_PRO_COMP) * 100) / MARGEN_VENTAS.IMPORTE_NETO_ULT_VE' +
+ 'NT'#10'ELSE 0'#10'END'#10'AS POR_MARGEN_ULT_VENT_PRO_COMP,'#10#10#10#10'MARGEN_VENTAS.' +
+ 'IMPORTE_NETO_PRO_VENT - ARTICULOS.PRECIO_NETO AS IMP_MARGEN_PRO_' +
+ 'VENT_COMPRA,'#10'CASE'#10'WHEN ARTICULOS.PRECIO_NETO = 0 THEN 100'#10'WHEN ' +
+ '(MARGEN_VENTAS.IMPORTE_NETO_PRO_VENT - ARTICULOS.PRECIO_NETO) > ' +
+ '0 THEN'#10' ((MARGEN_VENTAS.IMPORTE_NETO_PRO_VENT - ARTICULOS.PR' +
+ 'ECIO_NETO) * 100) / MARGEN_VENTAS.IMPORTE_NETO_PRO_VENT'#10'ELSE 0'#10'E' +
+ 'ND'#10'AS POR_MARGEN_PRO_VENT_COMPRA,'#10#10'MARGEN_VENTAS.IMPORTE_NETO_PR' +
+ 'O_VENT - MARGEN_COMPRAS.IMPORTE_NETO_ULT_COMP AS IMP_MARGEN_PRO_' +
+ 'VENT_ULT_COMP,'#10'CASE'#10'WHEN MARGEN_COMPRAS.IMPORTE_NETO_ULT_COMP =' +
+ ' 0 THEN 100'#10'WHEN (MARGEN_VENTAS.IMPORTE_NETO_PRO_VENT - MARGEN_C' +
+ 'OMPRAS.IMPORTE_NETO_ULT_COMP) > 0 THEN'#10' ((MARGEN_VENTAS.IMPO' +
+ 'RTE_NETO_PRO_VENT - MARGEN_COMPRAS.IMPORTE_NETO_ULT_COMP) * 100)' +
+ ' / MARGEN_VENTAS.IMPORTE_NETO_PRO_VENT'#10'ELSE 0'#10'END'#10'AS POR_MARGEN_' +
+ 'PRO_VENT_ULT_COMP,'#10#10'MARGEN_VENTAS.IMPORTE_NETO_PRO_VENT - MARGEN' +
+ '_COMPRAS.IMPORTE_NETO_PRO_COMP AS IMP_MARGEN_PRO_VENT_PRO_COMP,'#10 +
+ 'CASE'#10'WHEN MARGEN_COMPRAS.IMPORTE_NETO_PRO_COMP = 0 THEN 100'#10'WHE' +
+ 'N (MARGEN_VENTAS.IMPORTE_NETO_PRO_VENT - MARGEN_COMPRAS.IMPORTE_' +
+ 'NETO_PRO_COMP) > 0 THEN'#10' ((MARGEN_VENTAS.IMPORTE_NETO_PRO_VE' +
+ 'NT - MARGEN_COMPRAS.IMPORTE_NETO_PRO_COMP) * 100) / MARGEN_VENTA' +
+ 'S.IMPORTE_NETO_PRO_VENT'#10'ELSE 0'#10'END'#10'AS POR_MARGEN_PRO_VENT_PRO_CO' +
+ 'MP'#10#10'FROM'#10#10#10'(SELECT ID_EMPRESA,'#10'/* ID_CLIENTE, */'#10' ID_ARTIC' +
+ 'ULO, COALESCE(SUM(IMPORTE_UNIDAD_ULT_VENT),0) AS IMPORTE_UNIDAD_' +
+ 'ULT_VENT,'#10' COALESCE(SUM(IMPORTE_NETO_ULT_VENT),0) AS IMPOR' +
+ 'TE_NETO_ULT_VENT, COALESCE(SUM(IMPORTE_PORTE_ULT_VENT),0) AS IMP' +
+ 'ORTE_PORTE_ULT_VENT,'#10' COALESCE(SUM(IMPORTE_UNIDAD_PRO_VENT' +
+ '),0) AS IMPORTE_UNIDAD_PRO_VENT, COALESCE(SUM(IMPORTE_NETO_PRO_V' +
+ 'ENT),0) AS IMPORTE_NETO_PRO_VENT,'#10' COALESCE(SUM(IMPORTE_PO' +
+ 'RTE_PRO_VENT),0) AS IMPORTE_PORTE_PRO_VENT'#10#10' FROM'#10' (SELECT'#10' ' +
+ ' ID_EMPRESA,'#10' /*ID_CLIENTE,*/'#10' ID_ARTICULO,'#10' IM' +
+ 'PORTE_UNIDAD_VENTA AS IMPORTE_UNIDAD_ULT_VENT, IMPORTE_NETO_VENT' +
+ 'A AS IMPORTE_NETO_ULT_VENT, IMPORTE_PORTE_VENTA AS IMPORTE_PORTE' +
+ '_ULT_VENT,'#10' NULL AS IMPORTE_UNIDAD_PRO_VENT, NULL AS IMPORT' +
+ 'E_NETO_PRO_VENT, NULL AS IMPORTE_PORTE_PRO_VENT'#10#10' FROM V_INF_' +
+ 'ULTIMA_VENTA'#10#10' UNION ALL'#10#10' SELECT'#10' FACTURAS_CLIENTE.I' +
+ 'D_EMPRESA,'#10'/* FACTURAS_CLIENTE.ID_CLIENTE,*/'#10' FACTURAS' +
+ '_CLIENTE_DETALLES.ID_ARTICULO,'#10' NULL, NULL, NULL,'#10' AVG' +
+ '(FACTURAS_CLIENTE_DETALLES.IMPORTE_UNIDAD) AS IMPORTE_UNIDAD_PRO' +
+ '_VENT,'#10' AVG(FACTURAS_CLIENTE_DETALLES.IMPORTE_UNIDAD - (FAC' +
+ 'TURAS_CLIENTE_DETALLES.IMPORTE_UNIDAD * (FACTURAS_CLIENTE_DETALL' +
+ 'ES.DESCUENTO / 100))) AS IMPORTE_NETO_PRO_VENT,'#10' AVG(FACTUR' +
+ 'AS_CLIENTE_DETALLES.IMPORTE_PORTE) AS IMPORTE_PORTE_PRO_VENT'#10#10' ' +
+ ' FROM FACTURAS_CLIENTE_DETALLES'#10' LEFT OUTER JOIN FACTURAS_CL' +
+ 'IENTE'#10' ON (FACTURAS_CLIENTE.ID = FACTURAS_CLIENTE_DETALLES.ID' +
+ '_FACTURA)'#10#10' WHERE (FACTURAS_CLIENTE_DETALLES.ID_ARTICULO IS N' +
+ 'OT NULL) AND (FACTURAS_CLIENTE_DETALLES.ID_ARTICULO > 0)'#10' A' +
+ 'ND (FACTURAS_CLIENTE_DETALLES.CANTIDAD > 0)'#10' AND (FACTURAS_' +
+ 'CLIENTE.FECHA_FACTURA BETWEEN :FECHAINI AND :FECHAFIN)'#10' GROUP' +
+ ' BY 1, 2) /*, 3)*/'#10#10' GROUP BY 1, 2)/*, 3)*/ MARGEN_VENTAS'#10#10#10'LEFT' +
+ ' JOIN'#10#10#10'(SELECT'#10' ID_EMPRESA, ID_ARTICULO, COALESCE(SUM(IMPORT' +
+ 'E_UNIDAD_ULT_COMP),0) AS IMPORTE_UNIDAD_ULT_COMP, COALESCE(SUM(I' +
+ 'MPORTE_NETO_ULT_COMP),0) AS IMPORTE_NETO_ULT_COMP,'#10' COALESCE(' +
+ 'SUM(IMPORTE_PORTE_ULT_COMP),0) AS IMPORTE_PORTE_ULT_COMP, COALES' +
+ 'CE(SUM(IMPORTE_UNIDAD_PRO_COMP),0) AS IMPORTE_UNIDAD_PRO_COMP,'#10' ' +
+ ' COALESCE(SUM(IMPORTE_NETO_PRO_COMP),0) AS IMPORTE_NETO_PRO_CO' +
+ 'MP, COALESCE(SUM(IMPORTE_PORTE_PRO_COMP),0) AS IMPORTE_PORTE_PRO' +
+ '_COMP'#10#10' FROM'#10' (SELECT'#10' ID_EMPRESA, ID_ARTICULO,'#10' IMP' +
+ 'ORTE_UNIDAD_COMPRA AS IMPORTE_UNIDAD_ULT_COMP, IMPORTE_NETO_COMP' +
+ 'RA AS IMPORTE_NETO_ULT_COMP, IMPORTE_PORTE_COMPRA AS IMPORTE_POR' +
+ 'TE_ULT_COMP,'#10' NULL AS IMPORTE_UNIDAD_PRO_COMP, NULL AS IMPO' +
+ 'RTE_NETO_PRO_COMP, NULL AS IMPORTE_PORTE_PRO_COMP'#10#10' FROM V_IN' +
+ 'F_ULTIMA_COMPRA'#10#10' UNION ALL'#10#10' SELECT'#10' FACTURAS_PROVEE' +
+ 'DOR.ID_EMPRESA,'#10' FACTURAS_PROVEEDOR_DETALLES.ID_ARTICULO,'#10' ' +
+ ' NULL, NULL, NULL,'#10' AVG(FACTURAS_PROVEEDOR_DETALLES.IMP' +
+ 'ORTE_UNIDAD) AS IMPORTE_UNIDAD_PRO_COMP,'#10' AVG(FACTURAS_PROV' +
+ 'EEDOR_DETALLES.IMPORTE_UNIDAD - (FACTURAS_PROVEEDOR_DETALLES.IMP' +
+ 'ORTE_UNIDAD * (FACTURAS_PROVEEDOR_DETALLES.DESCUENTO / 100))) AS' +
+ ' IMPORTE_NETO_PRO_COMP,'#10' AVG(FACTURAS_PROVEEDOR_DETALLES.IM' +
+ 'PORTE_PORTE) AS IMPORTE_PORTE_PRO_COMP'#10#10' FROM FACTURAS_PROVEE' +
+ 'DOR_DETALLES'#10' LEFT OUTER JOIN FACTURAS_PROVEEDOR'#10' ON (FACT' +
+ 'URAS_PROVEEDOR.ID = FACTURAS_PROVEEDOR_DETALLES.ID_FACTURA)'#10#10' ' +
+ ' WHERE (FACTURAS_PROVEEDOR_DETALLES.ID_ARTICULO IS NOT NULL) AND' +
+ ' (FACTURAS_PROVEEDOR_DETALLES.ID_ARTICULO > 0)'#10' AND (FACTUR' +
+ 'AS_PROVEEDOR_DETALLES.CANTIDAD > 0)'#10' /*Las compras promedio' +
+ ' deben de calcularse desde el principio de los tiempos hasta aho' +
+ 'ra*/'#10'/* AND (FACTURAS_PROVEEDOR.FECHA_FACTURA BETWEEN '#39'12.1' +
+ '2.2000'#39' AND current_date) */'#10' GROUP BY 1, 2)'#10#10' GRO' +
+ 'UP BY 1, 2) MARGEN_COMPRAS'#10#10#10'ON (MARGEN_COMPRAS.ID_EMPRESA = MAR' +
+ 'GEN_VENTAS.ID_EMPRESA)'#10'AND (MARGEN_COMPRAS.ID_ARTICULO = MARGEN_' +
+ 'VENTAS.ID_ARTICULO)'#10#10#10'LEFT JOIN ARTICULOS ON (ARTICULOS.ID = MAR' +
+ 'GEN_VENTAS.ID_ARTICULO)'#10'/*LEFT JOIN CONTACTOS CLIENTES ON (CLIEN' +
+ 'TES.ID = MARGEN_VENTAS.ID_CLIENTE)*/'#10'/*LEFT JOIN CLIENTES_DATOS ' +
+ 'ON (CLIENTES_DATOS.ID_CLIENTE = CLIENTES.ID)*/'#10'/*LEFT JOIN CONTA' +
+ 'CTOS AGENTES ON (AGENTES.ID = CLIENTES_DATOS.ID_AGENTE)*/'#10'WHERE ' +
+ 'ARTICULOS.INVENTARIABLE = 1) INF_MARGEN_ARTICULOS'
+ StatementType = stSQL
+ ColumnMappings = <
+ item
+ DatasetField = 'ID_ARTICULO'
+ TableField = 'ID_ARTICULO'
+ end
+ item
+ DatasetField = 'FAMILIA'
+ TableField = 'FAMILIA'
+ end
+ item
+ DatasetField = 'REFERENCIA'
+ TableField = 'REFERENCIA'
+ end
+ item
+ DatasetField = 'REFERENCIA_PROV'
+ TableField = 'REFERENCIA_PROV'
+ end
+ item
+ DatasetField = 'DESCRIPCION'
+ TableField = 'DESCRIPCION'
+ end
+ item
+ DatasetField = 'COMISIONABLE'
+ TableField = 'COMISIONABLE'
+ end
+ item
+ DatasetField = 'INVENTARIABLE'
+ TableField = 'INVENTARIABLE'
+ end
+ item
+ DatasetField = 'ID_EMPRESA'
+ TableField = 'ID_EMPRESA'
+ end
+ item
+ DatasetField = 'IMP_UNIDAD_ULT_VENT'
+ TableField = 'IMP_UNIDAD_ULT_VENT'
+ end
+ item
+ DatasetField = 'IMP_NETO_ULT_VENT'
+ TableField = 'IMP_NETO_ULT_VENT'
+ end
+ item
+ DatasetField = 'IMP_PORTE_ULT_VENT'
+ TableField = 'IMP_PORTE_ULT_VENT'
+ end
+ item
+ DatasetField = 'IMP_UNIDAD_PRO_VENT'
+ TableField = 'IMP_UNIDAD_PRO_VENT'
+ end
+ item
+ DatasetField = 'IMP_NETO_PRO_VENT'
+ TableField = 'IMP_NETO_PRO_VENT'
+ end
+ item
+ DatasetField = 'IMP_PORTE_PRO_VENT'
+ TableField = 'IMP_PORTE_PRO_VENT'
+ end
+ item
+ DatasetField = 'IMP_UNIDAD_COMPRA'
+ TableField = 'IMP_UNIDAD_COMPRA'
+ end
+ item
+ DatasetField = 'IMP_NETO_COMPRA'
+ TableField = 'IMP_NETO_COMPRA'
+ end
+ item
+ DatasetField = 'IMP_PORTE_COMPRA'
+ TableField = 'IMP_PORTE_COMPRA'
+ end
+ item
+ DatasetField = 'IMP_UNIDAD_ULT_COMP'
+ TableField = 'IMP_UNIDAD_ULT_COMP'
+ end
+ item
+ DatasetField = 'IMP_NETO_ULT_COMP'
+ TableField = 'IMP_NETO_ULT_COMP'
+ end
+ item
+ DatasetField = 'IMP_PORTE_ULT_COMP'
+ TableField = 'IMP_PORTE_ULT_COMP'
+ end
+ item
+ DatasetField = 'IMP_UNIDAD_PRO_COMP'
+ TableField = 'IMP_UNIDAD_PRO_COMP'
+ end
+ item
+ DatasetField = 'IMP_NETO_PRO_COMP'
+ TableField = 'IMP_NETO_PRO_COMP'
+ end
+ item
+ DatasetField = 'IMP_PORTE_PRO_COMP'
+ TableField = 'IMP_PORTE_PRO_COMP'
+ end
+ item
+ DatasetField = 'IMP_MARGEN_ULT_VENT_COMPRA'
+ TableField = 'IMP_MARGEN_ULT_VENT_COMPRA'
+ end
+ item
+ DatasetField = 'POR_MARGEN_ULT_VENT_COMPRA'
+ TableField = 'POR_MARGEN_ULT_VENT_COMPRA'
+ end
+ item
+ DatasetField = 'IMP_MARGEN_ULT_VENT_ULT_COMP'
+ TableField = 'IMP_MARGEN_ULT_VENT_ULT_COMP'
+ end
+ item
+ DatasetField = 'POR_MARGEN_ULT_VENT_ULT_COMP'
+ TableField = 'POR_MARGEN_ULT_VENT_ULT_COMP'
+ end
+ item
+ DatasetField = 'IMP_MARGEN_ULT_VENT_PRO_COMP'
+ TableField = 'IMP_MARGEN_ULT_VENT_PRO_COMP'
+ end
+ item
+ DatasetField = 'POR_MARGEN_ULT_VENT_PRO_COMP'
+ TableField = 'POR_MARGEN_ULT_VENT_PRO_COMP'
+ end
+ item
+ DatasetField = 'IMP_MARGEN_PRO_VENT_COMPRA'
+ TableField = 'IMP_MARGEN_PRO_VENT_COMPRA'
+ end
+ item
+ DatasetField = 'POR_MARGEN_PRO_VENT_COMPRA'
+ TableField = 'POR_MARGEN_PRO_VENT_COMPRA'
+ end
+ item
+ DatasetField = 'IMP_MARGEN_PRO_VENT_ULT_COMP'
+ TableField = 'IMP_MARGEN_PRO_VENT_ULT_COMP'
+ end
+ item
+ DatasetField = 'POR_MARGEN_PRO_VENT_ULT_COMP'
+ TableField = 'POR_MARGEN_PRO_VENT_ULT_COMP'
+ end
+ item
+ DatasetField = 'IMP_MARGEN_PRO_VENT_PRO_COMP'
+ TableField = 'IMP_MARGEN_PRO_VENT_PRO_COMP'
+ end
+ item
+ DatasetField = 'POR_MARGEN_PRO_VENT_PRO_COMP'
+ TableField = 'POR_MARGEN_PRO_VENT_PRO_COMP'
+ end>
+ end>
+ Name = 'InfMargenArticulo2'
+ Fields = <
+ item
+ Name = 'ID_EMPRESA'
+ DataType = datInteger
+ BlobType = dabtUnknown
+ DictionaryEntry = 'InfVentasArticulo_ID_EMPRESA'
+ InPrimaryKey = False
+ Calculated = False
+ Lookup = False
+ LookupCache = False
+ end
+ item
+ Name = 'ID_ARTICULO'
+ DataType = datInteger
+ BlobType = dabtUnknown
+ DictionaryEntry = 'InfVentasArticulo_ID_ARTICULO'
+ InPrimaryKey = True
+ Calculated = False
+ Lookup = False
+ LookupCache = False
+ end
+ item
+ Name = 'FAMILIA'
+ DataType = datString
+ Size = 255
+ BlobType = dabtUnknown
+ DictionaryEntry = 'InfVentasArticulo_FAMILIA'
+ InPrimaryKey = False
+ Calculated = False
+ Lookup = False
+ LookupCache = False
+ end
+ item
+ Name = 'REFERENCIA'
+ DataType = datString
+ Size = 255
+ BlobType = dabtUnknown
+ DictionaryEntry = 'InfVentasArticulo_REFERENCIA'
+ InPrimaryKey = False
+ Calculated = False
+ Lookup = False
+ LookupCache = False
+ end
+ item
+ Name = 'REFERENCIA_PROV'
+ DataType = datString
+ Size = 255
+ BlobType = dabtUnknown
+ DictionaryEntry = 'InfVentasArticulo_REFERENCIA_PROV'
+ InPrimaryKey = False
+ Calculated = False
+ Lookup = False
+ LookupCache = False
+ end
+ item
+ Name = 'DESCRIPCION'
+ DataType = datString
+ Size = 255
+ BlobType = dabtUnknown
+ DictionaryEntry = 'InfVentasArticulo_DESCRIPCION'
+ InPrimaryKey = False
+ Calculated = False
+ Lookup = False
+ LookupCache = False
+ end
+ item
+ Name = 'COMISIONABLE'
+ DataType = datInteger
+ BlobType = dabtUnknown
+ DictionaryEntry = 'InfVentasArticulo_COMISIONABLE'
+ InPrimaryKey = False
+ Calculated = False
+ Lookup = False
+ LookupCache = False
+ end
+ item
+ Name = 'INVENTARIABLE'
+ DataType = datInteger
+ BlobType = dabtUnknown
+ DictionaryEntry = 'InfVentasArticulo_INVENTARIABLE'
+ InPrimaryKey = False
+ Calculated = False
+ Lookup = False
+ LookupCache = False
+ end
+ item
+ Name = 'IMP_UNIDAD_ULT_VENT'
+ DataType = datFloat
+ BlobType = dabtUnknown
+ DisplayWidth = 0
+ Alignment = taLeftJustify
+ InPrimaryKey = False
+ Calculated = False
+ Lookup = False
+ LookupCache = False
+ end
+ item
+ Name = 'IMP_NETO_ULT_VENT'
+ DataType = datFloat
+ BlobType = dabtUnknown
+ DisplayWidth = 0
+ Alignment = taLeftJustify
+ InPrimaryKey = False
+ Calculated = False
+ Lookup = False
+ LookupCache = False
+ end
+ item
+ Name = 'IMP_PORTE_ULT_VENT'
+ DataType = datFloat
+ BlobType = dabtUnknown
+ DisplayWidth = 0
+ Alignment = taLeftJustify
+ InPrimaryKey = False
+ Calculated = False
+ Lookup = False
+ LookupCache = False
+ end
+ item
+ Name = 'IMP_UNIDAD_PRO_VENT'
+ DataType = datFloat
+ BlobType = dabtUnknown
+ DisplayWidth = 0
+ Alignment = taLeftJustify
+ InPrimaryKey = False
+ Calculated = False
+ Lookup = False
+ LookupCache = False
+ end
+ item
+ Name = 'IMP_NETO_PRO_VENT'
+ DataType = datFloat
+ BlobType = dabtUnknown
+ DisplayWidth = 0
+ Alignment = taLeftJustify
+ InPrimaryKey = False
+ Calculated = False
+ Lookup = False
+ LookupCache = False
+ end
+ item
+ Name = 'IMP_PORTE_PRO_VENT'
+ DataType = datFloat
+ BlobType = dabtUnknown
+ DisplayWidth = 0
+ Alignment = taLeftJustify
+ InPrimaryKey = False
+ Calculated = False
+ Lookup = False
+ LookupCache = False
+ end
+ item
+ Name = 'IMP_UNIDAD_COMPRA'
+ DataType = datFloat
+ BlobType = dabtUnknown
+ DisplayWidth = 0
+ Alignment = taLeftJustify
+ InPrimaryKey = False
+ Calculated = False
+ Lookup = False
+ LookupCache = False
+ end
+ item
+ Name = 'IMP_NETO_COMPRA'
+ DataType = datFloat
+ BlobType = dabtUnknown
+ DisplayWidth = 0
+ Alignment = taLeftJustify
+ InPrimaryKey = False
+ Calculated = False
+ Lookup = False
+ LookupCache = False
+ end
+ item
+ Name = 'IMP_PORTE_COMPRA'
+ DataType = datFloat
+ BlobType = dabtUnknown
+ DisplayWidth = 0
+ Alignment = taLeftJustify
+ InPrimaryKey = False
+ Calculated = False
+ Lookup = False
+ LookupCache = False
+ end
+ item
+ Name = 'IMP_UNIDAD_ULT_COMP'
+ DataType = datFloat
+ BlobType = dabtUnknown
+ DisplayWidth = 0
+ Alignment = taLeftJustify
+ InPrimaryKey = False
+ Calculated = False
+ Lookup = False
+ LookupCache = False
+ end
+ item
+ Name = 'IMP_NETO_ULT_COMP'
+ DataType = datFloat
+ BlobType = dabtUnknown
+ DisplayWidth = 0
+ Alignment = taLeftJustify
+ InPrimaryKey = False
+ Calculated = False
+ Lookup = False
+ LookupCache = False
+ end
+ item
+ Name = 'IMP_PORTE_ULT_COMP'
+ DataType = datFloat
+ BlobType = dabtUnknown
+ DisplayWidth = 0
+ Alignment = taLeftJustify
+ InPrimaryKey = False
+ Calculated = False
+ Lookup = False
+ LookupCache = False
+ end
+ item
+ Name = 'IMP_UNIDAD_PRO_COMP'
+ DataType = datFloat
+ BlobType = dabtUnknown
+ DisplayWidth = 0
+ Alignment = taLeftJustify
+ InPrimaryKey = False
+ Calculated = False
+ Lookup = False
+ LookupCache = False
+ end
+ item
+ Name = 'IMP_NETO_PRO_COMP'
+ DataType = datFloat
+ BlobType = dabtUnknown
+ DisplayWidth = 0
+ Alignment = taLeftJustify
+ InPrimaryKey = False
+ Calculated = False
+ Lookup = False
+ LookupCache = False
+ end
+ item
+ Name = 'IMP_PORTE_PRO_COMP'
+ DataType = datFloat
+ BlobType = dabtUnknown
+ DisplayWidth = 0
+ Alignment = taLeftJustify
+ InPrimaryKey = False
+ Calculated = False
+ Lookup = False
+ LookupCache = False
+ end
+ item
+ Name = 'IMP_MARGEN_ULT_VENT_COMPRA'
+ DataType = datFloat
+ BlobType = dabtUnknown
+ DisplayWidth = 0
+ Alignment = taLeftJustify
+ InPrimaryKey = False
+ Calculated = False
+ Lookup = False
+ LookupCache = False
+ end
+ item
+ Name = 'POR_MARGEN_ULT_VENT_COMPRA'
+ DataType = datFloat
+ BlobType = dabtUnknown
+ DisplayWidth = 0
+ Alignment = taLeftJustify
+ InPrimaryKey = False
+ Calculated = False
+ Lookup = False
+ LookupCache = False
+ end
+ item
+ Name = 'IMP_MARGEN_ULT_VENT_ULT_COMP'
+ DataType = datFloat
+ BlobType = dabtUnknown
+ DisplayWidth = 0
+ Alignment = taLeftJustify
+ InPrimaryKey = False
+ Calculated = False
+ Lookup = False
+ LookupCache = False
+ end
+ item
+ Name = 'POR_MARGEN_ULT_VENT_ULT_COMP'
+ DataType = datFloat
+ BlobType = dabtUnknown
+ DisplayWidth = 0
+ Alignment = taLeftJustify
+ InPrimaryKey = False
+ Calculated = False
+ Lookup = False
+ LookupCache = False
+ end
+ item
+ Name = 'IMP_MARGEN_ULT_VENT_PRO_COMP'
+ DataType = datFloat
+ BlobType = dabtUnknown
+ DisplayWidth = 0
+ Alignment = taLeftJustify
+ InPrimaryKey = False
+ Calculated = False
+ Lookup = False
+ LookupCache = False
+ end
+ item
+ Name = 'POR_MARGEN_ULT_VENT_PRO_COMP'
+ DataType = datFloat
+ BlobType = dabtUnknown
+ DisplayWidth = 0
+ Alignment = taLeftJustify
+ InPrimaryKey = False
+ Calculated = False
+ Lookup = False
+ LookupCache = False
+ end
+ item
+ Name = 'IMP_MARGEN_PRO_VENT_COMPRA'
+ DataType = datFloat
+ BlobType = dabtUnknown
+ DisplayWidth = 0
+ Alignment = taLeftJustify
+ InPrimaryKey = False
+ Calculated = False
+ Lookup = False
+ LookupCache = False
+ end
+ item
+ Name = 'POR_MARGEN_PRO_VENT_COMPRA'
+ DataType = datFloat
+ BlobType = dabtUnknown
+ DisplayWidth = 0
+ Alignment = taLeftJustify
+ InPrimaryKey = False
+ Calculated = False
+ Lookup = False
+ LookupCache = False
+ end
+ item
+ Name = 'IMP_MARGEN_PRO_VENT_ULT_COMP'
+ DataType = datFloat
+ BlobType = dabtUnknown
+ DisplayWidth = 0
+ Alignment = taLeftJustify
+ InPrimaryKey = False
+ Calculated = False
+ Lookup = False
+ LookupCache = False
+ end
+ item
+ Name = 'POR_MARGEN_PRO_VENT_ULT_COMP'
+ DataType = datFloat
+ BlobType = dabtUnknown
+ DisplayWidth = 0
+ Alignment = taLeftJustify
+ InPrimaryKey = False
+ Calculated = False
+ Lookup = False
+ LookupCache = False
+ end
+ item
+ Name = 'IMP_MARGEN_PRO_VENT_PRO_COMP'
+ DataType = datFloat
+ BlobType = dabtUnknown
+ DisplayWidth = 0
+ Alignment = taLeftJustify
+ InPrimaryKey = False
+ Calculated = False
+ Lookup = False
+ LookupCache = False
+ end
+ item
+ Name = 'POR_MARGEN_PRO_VENT_PRO_COMP'
+ DataType = datFloat
+ BlobType = dabtUnknown
+ DisplayWidth = 0
+ Alignment = taLeftJustify
+ InPrimaryKey = False
+ Calculated = False
+ Lookup = False
+ LookupCache = False
+ end>
+ BusinessRulesClient.ScriptLanguage = rslPascalScript
+ BusinessRulesServer.ScriptLanguage = rslPascalScript
end>
Commands = <>
RelationShips = <>
diff --git a/Source/Modulos/Informe margen por articulo/Views/uViewInfMargenArticulo.pas b/Source/Modulos/Informe margen por articulo/Views/uViewInfMargenArticulo.pas
index 5009ac9d..81a001d5 100644
--- a/Source/Modulos/Informe margen por articulo/Views/uViewInfMargenArticulo.pas
+++ b/Source/Modulos/Informe margen por articulo/Views/uViewInfMargenArticulo.pas
@@ -100,6 +100,12 @@ begin
for i:= 0 to AColumnsGroup.Count - 1 do
AColumns.Add((frViewInfMargenArticuloGrid1 as IViewInformeBaseGrid).GetColumnByCaption(AColumnsGroup.Strings[i]).DataBinding.FieldName);
+
+ //PRUEBA
+ Datos.DataTable.Active := False;
+
+
+
FDatos.VisibleColumns := AColumns.CommaText;
with Datos.DataTable do
diff --git a/Source/Modulos/Inventario/Controller/Inventario_controller.bdsproj b/Source/Modulos/Inventario/Controller/Inventario_controller.bdsproj
index 40d95742..9acd77ee 100644
--- a/Source/Modulos/Inventario/Controller/Inventario_controller.bdsproj
+++ b/Source/Modulos/Inventario/Controller/Inventario_controller.bdsproj
@@ -172,7 +172,7 @@
-