Archivado/LuisLeon_FactuGES2
Archived
0
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Cambios varios solicitados por Ana, runión 10/09/2015

Browse Source 
git-svn-id: https://192.168.0.254/svn/Proyectos.LuisLeon_FactuGES2/trunk@238 b2cfbe5a-eba1-4a0c-8b32-7feea0a119f2
This commit is contained in:
roberto 2015-09-10 17:10:22 +00:00
parent f357933a48
commit 39dba3aeed
10 changed files with 749 additions and 557 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
Source/Modulos/Pedidos de cliente/Data/uDataModulePedidosCliente.dfm
View File

@ -52,6 +52,10 @@ inherited DataModulePedidosCliente: TDataModulePedidosCliente
Name = 'ID_PEDIDO' Name = 'ID_PEDIDO'
DataType = datInteger DataType = datInteger
end end
item
Name = 'POSICION'
DataType = datInteger
end
item item
Name = 'ID_ARTICULO' Name = 'ID_ARTICULO'
DataType = datInteger DataType = datInteger
@ -516,6 +520,10 @@ inherited DataModulePedidosCliente: TDataModulePedidosCliente
Name = 'ID_PEDIDO' Name = 'ID_PEDIDO'
DataType = datInteger DataType = datInteger
end end
item
Name = 'POSICION'
DataType = datInteger
end
item item
Name = 'ID_ARTICULO' Name = 'ID_ARTICULO'
DataType = datInteger DataType = datInteger

150
Source/Modulos/Pedidos de cliente/Model/schPedidosClienteClient_Intf.pas
View File

@ -3,19 +3,19 @@ unit schPedidosClienteClient_Intf;
interface interface
uses uses
Classes, DB, schBase_Intf, SysUtils, uROClasses, uDAInterfaces, uDADataTable, FmtBCD, uROXMLIntf; Classes, DB, SysUtils, uROClasses, uDAInterfaces, uDADataTable, FmtBCD, uROXMLIntf;
const const
{ Data table rules ids { Data table rules ids
Feel free to change them to something more human readable Feel free to change them to something more human readable
but make sure they are unique in the context of your application } but make sure they are unique in the context of your application }
RID_ListaAnosPedidos = '{57E38F40-4209-4C21-A6A2-4CBFC92C9A9B}'; RID_ListaAnosPedidos = '{7F08C4EE-4DD3-424F-BF2B-03782FC2C921}';
RID_PedidosProveedor = '{E17F71E9-18BD-4D5A-83E9-E421A471959E}'; RID_PedidosProveedor = '{3AD30CEC-123C-4814-ABEE-7CBFEACC5046}';
RID_PedidosCliente = '{A7063A47-B33F-4FD5-B8FE-16851A404499}'; RID_PedidosCliente = '{3818AE6E-8880-4DA2-AFE7-3BA16B6ACDC9}';
RID_PedidosCliente_Detalles = '{842D3A6D-39C7-499B-977B-F4694E093A72}'; RID_PedidosCliente_Detalles = '{B5B584AB-7EDB-470F-BC37-CDC90F320865}';
RID_PedidosCliente_Articulos_Pendientes = '{9085E133-78E7-4CF5-90C8-654047EDE772}'; RID_PedidosCliente_Articulos_Pendientes = '{1463B127-D633-4CB1-B80C-2D1DC7D67D62}';
RID_PedidoCliente_ArticulosPendientesPedirAProv = '{4D977915-C5AD-47DE-92A5-C5EF9348E576}'; RID_PedidoCliente_ArticulosPendientesPedirAProv = '{65EB3E68-A0F0-4D3E-B8B1-BE492B381E09}';
RID_PedidoCliente_ArticulosPendientesPedirAProvNoArticulos = '{C2124682-6378-45C5-80BB-2F0D50364F47}'; RID_PedidoCliente_ArticulosPendientesPedirAProvNoArticulos = '{9E91A095-986F-4653-AFDD-DC35FD643A81}';
{ Data table names } { Data table names }
nme_ListaAnosPedidos = 'ListaAnosPedidos'; nme_ListaAnosPedidos = 'ListaAnosPedidos';
@ -168,6 +168,7 @@ const
{ PedidoCliente_ArticulosPendientesPedirAProv fields } { PedidoCliente_ArticulosPendientesPedirAProv fields }
fld_PedidoCliente_ArticulosPendientesPedirAProvID_PEDIDO = 'ID_PEDIDO'; fld_PedidoCliente_ArticulosPendientesPedirAProvID_PEDIDO = 'ID_PEDIDO';
fld_PedidoCliente_ArticulosPendientesPedirAProvPOSICION = 'POSICION';
fld_PedidoCliente_ArticulosPendientesPedirAProvID_ARTICULO = 'ID_ARTICULO'; fld_PedidoCliente_ArticulosPendientesPedirAProvID_ARTICULO = 'ID_ARTICULO';
fld_PedidoCliente_ArticulosPendientesPedirAProvCANT_PEDIDA_CLIENTE = 'CANT_PEDIDA_CLIENTE'; fld_PedidoCliente_ArticulosPendientesPedirAProvCANT_PEDIDA_CLIENTE = 'CANT_PEDIDA_CLIENTE';
fld_PedidoCliente_ArticulosPendientesPedirAProvID_PROVEEDOR = 'ID_PROVEEDOR'; fld_PedidoCliente_ArticulosPendientesPedirAProvID_PROVEEDOR = 'ID_PROVEEDOR';
@ -180,18 +181,20 @@ const
{ PedidoCliente_ArticulosPendientesPedirAProv field indexes } { PedidoCliente_ArticulosPendientesPedirAProv field indexes }
idx_PedidoCliente_ArticulosPendientesPedirAProvID_PEDIDO = 0; idx_PedidoCliente_ArticulosPendientesPedirAProvID_PEDIDO = 0;
idx_PedidoCliente_ArticulosPendientesPedirAProvID_ARTICULO = 1; idx_PedidoCliente_ArticulosPendientesPedirAProvPOSICION = 1;
idx_PedidoCliente_ArticulosPendientesPedirAProvCANT_PEDIDA_CLIENTE = 2; idx_PedidoCliente_ArticulosPendientesPedirAProvID_ARTICULO = 2;
idx_PedidoCliente_ArticulosPendientesPedirAProvID_PROVEEDOR = 3; idx_PedidoCliente_ArticulosPendientesPedirAProvCANT_PEDIDA_CLIENTE = 3;
idx_PedidoCliente_ArticulosPendientesPedirAProvCANT_PEDIDA_PROVEEDOR = 4; idx_PedidoCliente_ArticulosPendientesPedirAProvID_PROVEEDOR = 4;
idx_PedidoCliente_ArticulosPendientesPedirAProvCANT_PENDIENTE_PEDIR = 5; idx_PedidoCliente_ArticulosPendientesPedirAProvCANT_PEDIDA_PROVEEDOR = 5;
idx_PedidoCliente_ArticulosPendientesPedirAProvCONCEPTO = 6; idx_PedidoCliente_ArticulosPendientesPedirAProvCANT_PENDIENTE_PEDIR = 6;
idx_PedidoCliente_ArticulosPendientesPedirAProvIMPORTE_UNIDAD = 7; idx_PedidoCliente_ArticulosPendientesPedirAProvCONCEPTO = 7;
idx_PedidoCliente_ArticulosPendientesPedirAProvDESCUENTO = 8; idx_PedidoCliente_ArticulosPendientesPedirAProvIMPORTE_UNIDAD = 8;
idx_PedidoCliente_ArticulosPendientesPedirAProvIMPORTE_TOTAL = 9; idx_PedidoCliente_ArticulosPendientesPedirAProvDESCUENTO = 9;
idx_PedidoCliente_ArticulosPendientesPedirAProvIMPORTE_TOTAL = 10;
{ PedidoCliente_ArticulosPendientesPedirAProvNoArticulos fields } { PedidoCliente_ArticulosPendientesPedirAProvNoArticulos fields }
fld_PedidoCliente_ArticulosPendientesPedirAProvNoArticulosID_PEDIDO = 'ID_PEDIDO'; fld_PedidoCliente_ArticulosPendientesPedirAProvNoArticulosID_PEDIDO = 'ID_PEDIDO';
fld_PedidoCliente_ArticulosPendientesPedirAProvNoArticulosPOSICION = 'POSICION';
fld_PedidoCliente_ArticulosPendientesPedirAProvNoArticulosID_ARTICULO = 'ID_ARTICULO'; fld_PedidoCliente_ArticulosPendientesPedirAProvNoArticulosID_ARTICULO = 'ID_ARTICULO';
fld_PedidoCliente_ArticulosPendientesPedirAProvNoArticulosCANT_PEDIDA_CLIENTE = 'CANT_PEDIDA_CLIENTE'; fld_PedidoCliente_ArticulosPendientesPedirAProvNoArticulosCANT_PEDIDA_CLIENTE = 'CANT_PEDIDA_CLIENTE';
fld_PedidoCliente_ArticulosPendientesPedirAProvNoArticulosID_PROVEEDOR = 'ID_PROVEEDOR'; fld_PedidoCliente_ArticulosPendientesPedirAProvNoArticulosID_PROVEEDOR = 'ID_PROVEEDOR';
@ -204,20 +207,21 @@ const
{ PedidoCliente_ArticulosPendientesPedirAProvNoArticulos field indexes } { PedidoCliente_ArticulosPendientesPedirAProvNoArticulos field indexes }
idx_PedidoCliente_ArticulosPendientesPedirAProvNoArticulosID_PEDIDO = 0; idx_PedidoCliente_ArticulosPendientesPedirAProvNoArticulosID_PEDIDO = 0;
idx_PedidoCliente_ArticulosPendientesPedirAProvNoArticulosID_ARTICULO = 1; idx_PedidoCliente_ArticulosPendientesPedirAProvNoArticulosPOSICION = 1;
idx_PedidoCliente_ArticulosPendientesPedirAProvNoArticulosCANT_PEDIDA_CLIENTE = 2; idx_PedidoCliente_ArticulosPendientesPedirAProvNoArticulosID_ARTICULO = 2;
idx_PedidoCliente_ArticulosPendientesPedirAProvNoArticulosID_PROVEEDOR = 3; idx_PedidoCliente_ArticulosPendientesPedirAProvNoArticulosCANT_PEDIDA_CLIENTE = 3;
idx_PedidoCliente_ArticulosPendientesPedirAProvNoArticulosCANT_PEDIDA_PROVEEDOR = 4; idx_PedidoCliente_ArticulosPendientesPedirAProvNoArticulosID_PROVEEDOR = 4;
idx_PedidoCliente_ArticulosPendientesPedirAProvNoArticulosCANT_PENDIENTE_PEDIR = 5; idx_PedidoCliente_ArticulosPendientesPedirAProvNoArticulosCANT_PEDIDA_PROVEEDOR = 5;
idx_PedidoCliente_ArticulosPendientesPedirAProvNoArticulosCONCEPTO = 6; idx_PedidoCliente_ArticulosPendientesPedirAProvNoArticulosCANT_PENDIENTE_PEDIR = 6;
idx_PedidoCliente_ArticulosPendientesPedirAProvNoArticulosIMPORTE_UNIDAD = 7; idx_PedidoCliente_ArticulosPendientesPedirAProvNoArticulosCONCEPTO = 7;
idx_PedidoCliente_ArticulosPendientesPedirAProvNoArticulosDESCUENTO = 8; idx_PedidoCliente_ArticulosPendientesPedirAProvNoArticulosIMPORTE_UNIDAD = 8;
idx_PedidoCliente_ArticulosPendientesPedirAProvNoArticulosIMPORTE_TOTAL = 9; idx_PedidoCliente_ArticulosPendientesPedirAProvNoArticulosDESCUENTO = 9;
idx_PedidoCliente_ArticulosPendientesPedirAProvNoArticulosIMPORTE_TOTAL = 10;
type type
{ IListaAnosPedidos } { IListaAnosPedidos }
IListaAnosPedidos = interface(IDAStronglyTypedDataTable) IListaAnosPedidos = interface(IDAStronglyTypedDataTable)
['{9CE512E4-30FF-4688-956F-87356DA1FDAC}'] ['{02789823-2D71-4BEF-877E-81C3D47AF0DA}']
{ Property getters and setters } { Property getters and setters }
function GetANOValue: String; function GetANOValue: String;
procedure SetANOValue(const aValue: String); procedure SetANOValue(const aValue: String);
@ -231,7 +235,7 @@ type
end; end;
{ TListaAnosPedidosDataTableRules } { TListaAnosPedidosDataTableRules }
TListaAnosPedidosDataTableRules = class(TIntfObjectDADataTableRules, IListaAnosPedidos) TListaAnosPedidosDataTableRules = class(TDADataTableRules, IListaAnosPedidos)
private private
protected protected
{ Property getters and setters } { Property getters and setters }
@ -252,7 +256,7 @@ type
{ IPedidosProveedor } { IPedidosProveedor }
IPedidosProveedor = interface(IDAStronglyTypedDataTable) IPedidosProveedor = interface(IDAStronglyTypedDataTable)
['{329FF8B4-1166-44FF-85CF-BD690958C36B}'] ['{AF236896-9645-4397-8A22-A52D507524C4}']
{ Property getters and setters } { Property getters and setters }
function GetIDValue: Integer; function GetIDValue: Integer;
procedure SetIDValue(const aValue: Integer); procedure SetIDValue(const aValue: Integer);
@ -284,7 +288,7 @@ type
end; end;
{ TPedidosProveedorDataTableRules } { TPedidosProveedorDataTableRules }
TPedidosProveedorDataTableRules = class(TIntfObjectDADataTableRules, IPedidosProveedor) TPedidosProveedorDataTableRules = class(TDADataTableRules, IPedidosProveedor)
private private
protected protected
{ Property getters and setters } { Property getters and setters }
@ -323,7 +327,7 @@ type
{ IPedidosCliente } { IPedidosCliente }
IPedidosCliente = interface(IDAStronglyTypedDataTable) IPedidosCliente = interface(IDAStronglyTypedDataTable)
['{AB9F7C4E-69D1-4114-8C3C-A8EB14B14E65}'] ['{535A54FF-0C95-4C28-A2E2-BEF681F402AA}']
{ Property getters and setters } { Property getters and setters }
function GetIDValue: Integer; function GetIDValue: Integer;
procedure SetIDValue(const aValue: Integer); procedure SetIDValue(const aValue: Integer);
@ -551,7 +555,7 @@ type
end; end;
{ TPedidosClienteDataTableRules } { TPedidosClienteDataTableRules }
TPedidosClienteDataTableRules = class(TIntfObjectDADataTableRules, IPedidosCliente) TPedidosClienteDataTableRules = class(TDADataTableRules, IPedidosCliente)
private private
f_OBSERVACIONES: IROStrings; f_OBSERVACIONES: IROStrings;
f_INCIDENCIAS: IROStrings; f_INCIDENCIAS: IROStrings;
@ -790,7 +794,7 @@ type
{ IPedidosCliente_Detalles } { IPedidosCliente_Detalles }
IPedidosCliente_Detalles = interface(IDAStronglyTypedDataTable) IPedidosCliente_Detalles = interface(IDAStronglyTypedDataTable)
['{36FF6340-0A76-400B-81E0-DD7B3BF042BB}'] ['{C925A6AB-E18C-4CBD-A66E-2BE476B6E8A6}']
{ Property getters and setters } { Property getters and setters }
function GetIDValue: Integer; function GetIDValue: Integer;
procedure SetIDValue(const aValue: Integer); procedure SetIDValue(const aValue: Integer);
@ -882,7 +886,7 @@ type
end; end;
{ TPedidosCliente_DetallesDataTableRules } { TPedidosCliente_DetallesDataTableRules }
TPedidosCliente_DetallesDataTableRules = class(TIntfObjectDADataTableRules, IPedidosCliente_Detalles) TPedidosCliente_DetallesDataTableRules = class(TDADataTableRules, IPedidosCliente_Detalles)
private private
protected protected
{ Property getters and setters } { Property getters and setters }
@ -981,7 +985,7 @@ type
{ IPedidosCliente_Articulos_Pendientes } { IPedidosCliente_Articulos_Pendientes }
IPedidosCliente_Articulos_Pendientes = interface(IDAStronglyTypedDataTable) IPedidosCliente_Articulos_Pendientes = interface(IDAStronglyTypedDataTable)
['{72542829-FC37-4176-A8CC-A65A23D54545}'] ['{C382C4D3-A9E5-44D8-B146-7DC5F8BB14D7}']
{ Property getters and setters } { Property getters and setters }
function GetID_ARTICULOValue: Integer; function GetID_ARTICULOValue: Integer;
procedure SetID_ARTICULOValue(const aValue: Integer); procedure SetID_ARTICULOValue(const aValue: Integer);
@ -1013,7 +1017,7 @@ type
end; end;
{ TPedidosCliente_Articulos_PendientesDataTableRules } { TPedidosCliente_Articulos_PendientesDataTableRules }
TPedidosCliente_Articulos_PendientesDataTableRules = class(TIntfObjectDADataTableRules, IPedidosCliente_Articulos_Pendientes) TPedidosCliente_Articulos_PendientesDataTableRules = class(TDADataTableRules, IPedidosCliente_Articulos_Pendientes)
private private
protected protected
{ Property getters and setters } { Property getters and setters }
@ -1052,12 +1056,16 @@ type
{ IPedidoCliente_ArticulosPendientesPedirAProv } { IPedidoCliente_ArticulosPendientesPedirAProv }
IPedidoCliente_ArticulosPendientesPedirAProv = interface(IDAStronglyTypedDataTable) IPedidoCliente_ArticulosPendientesPedirAProv = interface(IDAStronglyTypedDataTable)
['{CEFCF45D-9A3C-4D1E-ACE6-B6CE2CBD5651}'] ['{5A762AF0-6C9A-44C1-88B0-5C5E9FECFF7F}']
{ Property getters and setters } { Property getters and setters }
function GetID_PEDIDOValue: Integer; function GetID_PEDIDOValue: Integer;
procedure SetID_PEDIDOValue(const aValue: Integer); procedure SetID_PEDIDOValue(const aValue: Integer);
function GetID_PEDIDOIsNull: Boolean; function GetID_PEDIDOIsNull: Boolean;
procedure SetID_PEDIDOIsNull(const aValue: Boolean); procedure SetID_PEDIDOIsNull(const aValue: Boolean);
function GetPOSICIONValue: Integer;
procedure SetPOSICIONValue(const aValue: Integer);
function GetPOSICIONIsNull: Boolean;
procedure SetPOSICIONIsNull(const aValue: Boolean);
function GetID_ARTICULOValue: Integer; function GetID_ARTICULOValue: Integer;
procedure SetID_ARTICULOValue(const aValue: Integer); procedure SetID_ARTICULOValue(const aValue: Integer);
function GetID_ARTICULOIsNull: Boolean; function GetID_ARTICULOIsNull: Boolean;
@ -1099,6 +1107,8 @@ type
{ Properties } { Properties }
property ID_PEDIDO: Integer read GetID_PEDIDOValue write SetID_PEDIDOValue; property ID_PEDIDO: Integer read GetID_PEDIDOValue write SetID_PEDIDOValue;
property ID_PEDIDOIsNull: Boolean read GetID_PEDIDOIsNull write SetID_PEDIDOIsNull; property ID_PEDIDOIsNull: Boolean read GetID_PEDIDOIsNull write SetID_PEDIDOIsNull;
property POSICION: Integer read GetPOSICIONValue write SetPOSICIONValue;
property POSICIONIsNull: Boolean read GetPOSICIONIsNull write SetPOSICIONIsNull;
property ID_ARTICULO: Integer read GetID_ARTICULOValue write SetID_ARTICULOValue; property ID_ARTICULO: Integer read GetID_ARTICULOValue write SetID_ARTICULOValue;
property ID_ARTICULOIsNull: Boolean read GetID_ARTICULOIsNull write SetID_ARTICULOIsNull; property ID_ARTICULOIsNull: Boolean read GetID_ARTICULOIsNull write SetID_ARTICULOIsNull;
property CANT_PEDIDA_CLIENTE: Currency read GetCANT_PEDIDA_CLIENTEValue write SetCANT_PEDIDA_CLIENTEValue; property CANT_PEDIDA_CLIENTE: Currency read GetCANT_PEDIDA_CLIENTEValue write SetCANT_PEDIDA_CLIENTEValue;
@ -1120,7 +1130,7 @@ type
end; end;
{ TPedidoCliente_ArticulosPendientesPedirAProvDataTableRules } { TPedidoCliente_ArticulosPendientesPedirAProvDataTableRules }
TPedidoCliente_ArticulosPendientesPedirAProvDataTableRules = class(TIntfObjectDADataTableRules, IPedidoCliente_ArticulosPendientesPedirAProv) TPedidoCliente_ArticulosPendientesPedirAProvDataTableRules = class(TDADataTableRules, IPedidoCliente_ArticulosPendientesPedirAProv)
private private
protected protected
{ Property getters and setters } { Property getters and setters }
@ -1128,6 +1138,10 @@ type
procedure SetID_PEDIDOValue(const aValue: Integer); virtual; procedure SetID_PEDIDOValue(const aValue: Integer); virtual;
function GetID_PEDIDOIsNull: Boolean; virtual; function GetID_PEDIDOIsNull: Boolean; virtual;
procedure SetID_PEDIDOIsNull(const aValue: Boolean); virtual; procedure SetID_PEDIDOIsNull(const aValue: Boolean); virtual;
function GetPOSICIONValue: Integer; virtual;
procedure SetPOSICIONValue(const aValue: Integer); virtual;
function GetPOSICIONIsNull: Boolean; virtual;
procedure SetPOSICIONIsNull(const aValue: Boolean); virtual;
function GetID_ARTICULOValue: Integer; virtual; function GetID_ARTICULOValue: Integer; virtual;
procedure SetID_ARTICULOValue(const aValue: Integer); virtual; procedure SetID_ARTICULOValue(const aValue: Integer); virtual;
function GetID_ARTICULOIsNull: Boolean; virtual; function GetID_ARTICULOIsNull: Boolean; virtual;
@ -1168,6 +1182,8 @@ type
{ Properties } { Properties }
property ID_PEDIDO: Integer read GetID_PEDIDOValue write SetID_PEDIDOValue; property ID_PEDIDO: Integer read GetID_PEDIDOValue write SetID_PEDIDOValue;
property ID_PEDIDOIsNull: Boolean read GetID_PEDIDOIsNull write SetID_PEDIDOIsNull; property ID_PEDIDOIsNull: Boolean read GetID_PEDIDOIsNull write SetID_PEDIDOIsNull;
property POSICION: Integer read GetPOSICIONValue write SetPOSICIONValue;
property POSICIONIsNull: Boolean read GetPOSICIONIsNull write SetPOSICIONIsNull;
property ID_ARTICULO: Integer read GetID_ARTICULOValue write SetID_ARTICULOValue; property ID_ARTICULO: Integer read GetID_ARTICULOValue write SetID_ARTICULOValue;
property ID_ARTICULOIsNull: Boolean read GetID_ARTICULOIsNull write SetID_ARTICULOIsNull; property ID_ARTICULOIsNull: Boolean read GetID_ARTICULOIsNull write SetID_ARTICULOIsNull;
property CANT_PEDIDA_CLIENTE: Currency read GetCANT_PEDIDA_CLIENTEValue write SetCANT_PEDIDA_CLIENTEValue; property CANT_PEDIDA_CLIENTE: Currency read GetCANT_PEDIDA_CLIENTEValue write SetCANT_PEDIDA_CLIENTEValue;
@ -1195,12 +1211,16 @@ type
{ IPedidoCliente_ArticulosPendientesPedirAProvNoArticulos } { IPedidoCliente_ArticulosPendientesPedirAProvNoArticulos }
IPedidoCliente_ArticulosPendientesPedirAProvNoArticulos = interface(IDAStronglyTypedDataTable) IPedidoCliente_ArticulosPendientesPedirAProvNoArticulos = interface(IDAStronglyTypedDataTable)
['{93124574-C569-4293-B712-CFDA4A1C605B}'] ['{3BF2FB66-EEC0-4D8C-8D81-B92DF3C1C1AD}']
{ Property getters and setters } { Property getters and setters }
function GetID_PEDIDOValue: Integer; function GetID_PEDIDOValue: Integer;
procedure SetID_PEDIDOValue(const aValue: Integer); procedure SetID_PEDIDOValue(const aValue: Integer);
function GetID_PEDIDOIsNull: Boolean; function GetID_PEDIDOIsNull: Boolean;
procedure SetID_PEDIDOIsNull(const aValue: Boolean); procedure SetID_PEDIDOIsNull(const aValue: Boolean);
function GetPOSICIONValue: Integer;
procedure SetPOSICIONValue(const aValue: Integer);
function GetPOSICIONIsNull: Boolean;
procedure SetPOSICIONIsNull(const aValue: Boolean);
function GetID_ARTICULOValue: Integer; function GetID_ARTICULOValue: Integer;
procedure SetID_ARTICULOValue(const aValue: Integer); procedure SetID_ARTICULOValue(const aValue: Integer);
function GetID_ARTICULOIsNull: Boolean; function GetID_ARTICULOIsNull: Boolean;
@ -1242,6 +1262,8 @@ type
{ Properties } { Properties }
property ID_PEDIDO: Integer read GetID_PEDIDOValue write SetID_PEDIDOValue; property ID_PEDIDO: Integer read GetID_PEDIDOValue write SetID_PEDIDOValue;
property ID_PEDIDOIsNull: Boolean read GetID_PEDIDOIsNull write SetID_PEDIDOIsNull; property ID_PEDIDOIsNull: Boolean read GetID_PEDIDOIsNull write SetID_PEDIDOIsNull;
property POSICION: Integer read GetPOSICIONValue write SetPOSICIONValue;
property POSICIONIsNull: Boolean read GetPOSICIONIsNull write SetPOSICIONIsNull;
property ID_ARTICULO: Integer read GetID_ARTICULOValue write SetID_ARTICULOValue; property ID_ARTICULO: Integer read GetID_ARTICULOValue write SetID_ARTICULOValue;
property ID_ARTICULOIsNull: Boolean read GetID_ARTICULOIsNull write SetID_ARTICULOIsNull; property ID_ARTICULOIsNull: Boolean read GetID_ARTICULOIsNull write SetID_ARTICULOIsNull;
property CANT_PEDIDA_CLIENTE: Currency read GetCANT_PEDIDA_CLIENTEValue write SetCANT_PEDIDA_CLIENTEValue; property CANT_PEDIDA_CLIENTE: Currency read GetCANT_PEDIDA_CLIENTEValue write SetCANT_PEDIDA_CLIENTEValue;
@ -1263,7 +1285,7 @@ type
end; end;
{ TPedidoCliente_ArticulosPendientesPedirAProvNoArticulosDataTableRules } { TPedidoCliente_ArticulosPendientesPedirAProvNoArticulosDataTableRules }
TPedidoCliente_ArticulosPendientesPedirAProvNoArticulosDataTableRules = class(TIntfObjectDADataTableRules, IPedidoCliente_ArticulosPendientesPedirAProvNoArticulos) TPedidoCliente_ArticulosPendientesPedirAProvNoArticulosDataTableRules = class(TDADataTableRules, IPedidoCliente_ArticulosPendientesPedirAProvNoArticulos)
private private
protected protected
{ Property getters and setters } { Property getters and setters }
@ -1271,6 +1293,10 @@ type
procedure SetID_PEDIDOValue(const aValue: Integer); virtual; procedure SetID_PEDIDOValue(const aValue: Integer); virtual;
function GetID_PEDIDOIsNull: Boolean; virtual; function GetID_PEDIDOIsNull: Boolean; virtual;
procedure SetID_PEDIDOIsNull(const aValue: Boolean); virtual; procedure SetID_PEDIDOIsNull(const aValue: Boolean); virtual;
function GetPOSICIONValue: Integer; virtual;
procedure SetPOSICIONValue(const aValue: Integer); virtual;
function GetPOSICIONIsNull: Boolean; virtual;
procedure SetPOSICIONIsNull(const aValue: Boolean); virtual;
function GetID_ARTICULOValue: Integer; virtual; function GetID_ARTICULOValue: Integer; virtual;
procedure SetID_ARTICULOValue(const aValue: Integer); virtual; procedure SetID_ARTICULOValue(const aValue: Integer); virtual;
function GetID_ARTICULOIsNull: Boolean; virtual; function GetID_ARTICULOIsNull: Boolean; virtual;
@ -1311,6 +1337,8 @@ type
{ Properties } { Properties }
property ID_PEDIDO: Integer read GetID_PEDIDOValue write SetID_PEDIDOValue; property ID_PEDIDO: Integer read GetID_PEDIDOValue write SetID_PEDIDOValue;
property ID_PEDIDOIsNull: Boolean read GetID_PEDIDOIsNull write SetID_PEDIDOIsNull; property ID_PEDIDOIsNull: Boolean read GetID_PEDIDOIsNull write SetID_PEDIDOIsNull;
property POSICION: Integer read GetPOSICIONValue write SetPOSICIONValue;
property POSICIONIsNull: Boolean read GetPOSICIONIsNull write SetPOSICIONIsNull;
property ID_ARTICULO: Integer read GetID_ARTICULOValue write SetID_ARTICULOValue; property ID_ARTICULO: Integer read GetID_ARTICULOValue write SetID_ARTICULOValue;
property ID_ARTICULOIsNull: Boolean read GetID_ARTICULOIsNull write SetID_ARTICULOIsNull; property ID_ARTICULOIsNull: Boolean read GetID_ARTICULOIsNull write SetID_ARTICULOIsNull;
property CANT_PEDIDA_CLIENTE: Currency read GetCANT_PEDIDA_CLIENTEValue write SetCANT_PEDIDA_CLIENTEValue; property CANT_PEDIDA_CLIENTE: Currency read GetCANT_PEDIDA_CLIENTEValue write SetCANT_PEDIDA_CLIENTEValue;
@ -2704,6 +2732,27 @@ begin
DataTable.Fields[idx_PedidoCliente_ArticulosPendientesPedirAProvID_PEDIDO].AsVariant := Null; DataTable.Fields[idx_PedidoCliente_ArticulosPendientesPedirAProvID_PEDIDO].AsVariant := Null;
end; end;
function TPedidoCliente_ArticulosPendientesPedirAProvDataTableRules.GetPOSICIONValue: Integer;
begin
result := DataTable.Fields[idx_PedidoCliente_ArticulosPendientesPedirAProvPOSICION].AsInteger;
end;
procedure TPedidoCliente_ArticulosPendientesPedirAProvDataTableRules.SetPOSICIONValue(const aValue: Integer);
begin
DataTable.Fields[idx_PedidoCliente_ArticulosPendientesPedirAProvPOSICION].AsInteger := aValue;
end;
function TPedidoCliente_ArticulosPendientesPedirAProvDataTableRules.GetPOSICIONIsNull: boolean;
begin
result := DataTable.Fields[idx_PedidoCliente_ArticulosPendientesPedirAProvPOSICION].IsNull;
end;
procedure TPedidoCliente_ArticulosPendientesPedirAProvDataTableRules.SetPOSICIONIsNull(const aValue: Boolean);
begin
if aValue then
DataTable.Fields[idx_PedidoCliente_ArticulosPendientesPedirAProvPOSICION].AsVariant := Null;
end;
function TPedidoCliente_ArticulosPendientesPedirAProvDataTableRules.GetID_ARTICULOValue: Integer; function TPedidoCliente_ArticulosPendientesPedirAProvDataTableRules.GetID_ARTICULOValue: Integer;
begin begin
result := DataTable.Fields[idx_PedidoCliente_ArticulosPendientesPedirAProvID_ARTICULO].AsInteger; result := DataTable.Fields[idx_PedidoCliente_ArticulosPendientesPedirAProvID_ARTICULO].AsInteger;
@ -2926,6 +2975,27 @@ begin
DataTable.Fields[idx_PedidoCliente_ArticulosPendientesPedirAProvNoArticulosID_PEDIDO].AsVariant := Null; DataTable.Fields[idx_PedidoCliente_ArticulosPendientesPedirAProvNoArticulosID_PEDIDO].AsVariant := Null;
end; end;
function TPedidoCliente_ArticulosPendientesPedirAProvNoArticulosDataTableRules.GetPOSICIONValue: Integer;
begin
result := DataTable.Fields[idx_PedidoCliente_ArticulosPendientesPedirAProvNoArticulosPOSICION].AsInteger;
end;
procedure TPedidoCliente_ArticulosPendientesPedirAProvNoArticulosDataTableRules.SetPOSICIONValue(const aValue: Integer);
begin
DataTable.Fields[idx_PedidoCliente_ArticulosPendientesPedirAProvNoArticulosPOSICION].AsInteger := aValue;
end;
function TPedidoCliente_ArticulosPendientesPedirAProvNoArticulosDataTableRules.GetPOSICIONIsNull: boolean;
begin
result := DataTable.Fields[idx_PedidoCliente_ArticulosPendientesPedirAProvNoArticulosPOSICION].IsNull;
end;
procedure TPedidoCliente_ArticulosPendientesPedirAProvNoArticulosDataTableRules.SetPOSICIONIsNull(const aValue: Boolean);
begin
if aValue then
DataTable.Fields[idx_PedidoCliente_ArticulosPendientesPedirAProvNoArticulosPOSICION].AsVariant := Null;
end;
function TPedidoCliente_ArticulosPendientesPedirAProvNoArticulosDataTableRules.GetID_ARTICULOValue: Integer; function TPedidoCliente_ArticulosPendientesPedirAProvNoArticulosDataTableRules.GetID_ARTICULOValue: Integer;
begin begin
result := DataTable.Fields[idx_PedidoCliente_ArticulosPendientesPedirAProvNoArticulosID_ARTICULO].AsInteger; result := DataTable.Fields[idx_PedidoCliente_ArticulosPendientesPedirAProvNoArticulosID_ARTICULO].AsInteger;

114
Source/Modulos/Pedidos de cliente/Model/schPedidosClienteServer_Intf.pas
View File

@ -9,18 +9,18 @@ const
{ Delta rules ids { Delta rules ids
Feel free to change them to something more human readable Feel free to change them to something more human readable
but make sure they are unique in the context of your application } but make sure they are unique in the context of your application }
RID_ListaAnosPedidosDelta = '{A85FEFDD-9A7C-438F-9690-03044F8ACE25}'; RID_ListaAnosPedidosDelta = '{2A9F6811-8378-4F63-8F2F-65E1EC8FBFA6}';
RID_PedidosProveedorDelta = '{92119A47-4A3B-4239-A6FD-FA42299565C9}'; RID_PedidosProveedorDelta = '{F6BB4C65-CF9A-4DD3-A4A9-218BF96AA231}';
RID_PedidosClienteDelta = '{5F7E7451-A6E4-4588-9573-318C392EA421}'; RID_PedidosClienteDelta = '{5E14E396-2278-4E58-9E05-2187E20237DD}';
RID_PedidosCliente_DetallesDelta = '{44A78022-BDEC-4494-B7B0-AC2FBF38D951}'; RID_PedidosCliente_DetallesDelta = '{8BE084A3-2D4B-404D-9624-F4A5B4D0A3AD}';
RID_PedidosCliente_Articulos_PendientesDelta = '{A8B08724-6155-439A-BA38-9F81B63BDC60}'; RID_PedidosCliente_Articulos_PendientesDelta = '{3202351E-CE35-40B7-B9F3-A9E8E82253A9}';
RID_PedidoCliente_ArticulosPendientesPedirAProvDelta = '{E02FB75F-400B-48F6-973F-AA16B32293D5}'; RID_PedidoCliente_ArticulosPendientesPedirAProvDelta = '{708CDEE3-6D6D-45FA-9FB2-D65DC92F6999}';
RID_PedidoCliente_ArticulosPendientesPedirAProvNoArticulosDelta = '{5D2E579F-205B-4BE2-9ACC-C294ACF32F37}'; RID_PedidoCliente_ArticulosPendientesPedirAProvNoArticulosDelta = '{41CD6113-3662-4572-9A24-5246CD483138}';
type type
{ IListaAnosPedidosDelta } { IListaAnosPedidosDelta }
IListaAnosPedidosDelta = interface(IListaAnosPedidos) IListaAnosPedidosDelta = interface(IListaAnosPedidos)
['{A85FEFDD-9A7C-438F-9690-03044F8ACE25}'] ['{2A9F6811-8378-4F63-8F2F-65E1EC8FBFA6}']
{ Property getters and setters } { Property getters and setters }
function GetOldANOValue : String; function GetOldANOValue : String;
@ -54,7 +54,7 @@ type
{ IPedidosProveedorDelta } { IPedidosProveedorDelta }
IPedidosProveedorDelta = interface(IPedidosProveedor) IPedidosProveedorDelta = interface(IPedidosProveedor)
['{92119A47-4A3B-4239-A6FD-FA42299565C9}'] ['{F6BB4C65-CF9A-4DD3-A4A9-218BF96AA231}']
{ Property getters and setters } { Property getters and setters }
function GetOldIDValue : Integer; function GetOldIDValue : Integer;
function GetOldREFERENCIAValue : String; function GetOldREFERENCIAValue : String;
@ -124,7 +124,7 @@ type
{ IPedidosClienteDelta } { IPedidosClienteDelta }
IPedidosClienteDelta = interface(IPedidosCliente) IPedidosClienteDelta = interface(IPedidosCliente)
['{5F7E7451-A6E4-4588-9573-318C392EA421}'] ['{5E14E396-2278-4E58-9E05-2187E20237DD}']
{ Property getters and setters } { Property getters and setters }
function GetOldIDValue : Integer; function GetOldIDValue : Integer;
function GetOldID_EMPRESAValue : Integer; function GetOldID_EMPRESAValue : Integer;
@ -592,7 +592,7 @@ type
{ IPedidosCliente_DetallesDelta } { IPedidosCliente_DetallesDelta }
IPedidosCliente_DetallesDelta = interface(IPedidosCliente_Detalles) IPedidosCliente_DetallesDelta = interface(IPedidosCliente_Detalles)
['{44A78022-BDEC-4494-B7B0-AC2FBF38D951}'] ['{8BE084A3-2D4B-404D-9624-F4A5B4D0A3AD}']
{ Property getters and setters } { Property getters and setters }
function GetOldIDValue : Integer; function GetOldIDValue : Integer;
function GetOldID_PEDIDOValue : Integer; function GetOldID_PEDIDOValue : Integer;
@ -782,7 +782,7 @@ type
{ IPedidosCliente_Articulos_PendientesDelta } { IPedidosCliente_Articulos_PendientesDelta }
IPedidosCliente_Articulos_PendientesDelta = interface(IPedidosCliente_Articulos_Pendientes) IPedidosCliente_Articulos_PendientesDelta = interface(IPedidosCliente_Articulos_Pendientes)
['{A8B08724-6155-439A-BA38-9F81B63BDC60}'] ['{3202351E-CE35-40B7-B9F3-A9E8E82253A9}']
{ Property getters and setters } { Property getters and setters }
function GetOldID_ARTICULOValue : Integer; function GetOldID_ARTICULOValue : Integer;
function GetOldCANTIDAD_PEDValue : Currency; function GetOldCANTIDAD_PEDValue : Currency;
@ -852,9 +852,10 @@ type
{ IPedidoCliente_ArticulosPendientesPedirAProvDelta } { IPedidoCliente_ArticulosPendientesPedirAProvDelta }
IPedidoCliente_ArticulosPendientesPedirAProvDelta = interface(IPedidoCliente_ArticulosPendientesPedirAProv) IPedidoCliente_ArticulosPendientesPedirAProvDelta = interface(IPedidoCliente_ArticulosPendientesPedirAProv)
['{E02FB75F-400B-48F6-973F-AA16B32293D5}'] ['{708CDEE3-6D6D-45FA-9FB2-D65DC92F6999}']
{ Property getters and setters } { Property getters and setters }
function GetOldID_PEDIDOValue : Integer; function GetOldID_PEDIDOValue : Integer;
function GetOldPOSICIONValue : Integer;
function GetOldID_ARTICULOValue : Integer; function GetOldID_ARTICULOValue : Integer;
function GetOldCANT_PEDIDA_CLIENTEValue : Currency; function GetOldCANT_PEDIDA_CLIENTEValue : Currency;
function GetOldID_PROVEEDORValue : Integer; function GetOldID_PROVEEDORValue : Integer;
@ -867,6 +868,7 @@ type
{ Properties } { Properties }
property OldID_PEDIDO : Integer read GetOldID_PEDIDOValue; property OldID_PEDIDO : Integer read GetOldID_PEDIDOValue;
property OldPOSICION : Integer read GetOldPOSICIONValue;
property OldID_ARTICULO : Integer read GetOldID_ARTICULOValue; property OldID_ARTICULO : Integer read GetOldID_ARTICULOValue;
property OldCANT_PEDIDA_CLIENTE : Currency read GetOldCANT_PEDIDA_CLIENTEValue; property OldCANT_PEDIDA_CLIENTE : Currency read GetOldCANT_PEDIDA_CLIENTEValue;
property OldID_PROVEEDOR : Integer read GetOldID_PROVEEDORValue; property OldID_PROVEEDOR : Integer read GetOldID_PROVEEDORValue;
@ -889,6 +891,12 @@ type
function GetOldID_PEDIDOIsNull: Boolean; virtual; function GetOldID_PEDIDOIsNull: Boolean; virtual;
procedure SetID_PEDIDOValue(const aValue: Integer); virtual; procedure SetID_PEDIDOValue(const aValue: Integer); virtual;
procedure SetID_PEDIDOIsNull(const aValue: Boolean); virtual; procedure SetID_PEDIDOIsNull(const aValue: Boolean); virtual;
function GetPOSICIONValue: Integer; virtual;
function GetPOSICIONIsNull: Boolean; virtual;
function GetOldPOSICIONValue: Integer; virtual;
function GetOldPOSICIONIsNull: Boolean; virtual;
procedure SetPOSICIONValue(const aValue: Integer); virtual;
procedure SetPOSICIONIsNull(const aValue: Boolean); virtual;
function GetID_ARTICULOValue: Integer; virtual; function GetID_ARTICULOValue: Integer; virtual;
function GetID_ARTICULOIsNull: Boolean; virtual; function GetID_ARTICULOIsNull: Boolean; virtual;
function GetOldID_ARTICULOValue: Integer; virtual; function GetOldID_ARTICULOValue: Integer; virtual;
@ -949,6 +957,10 @@ type
property ID_PEDIDOIsNull : Boolean read GetID_PEDIDOIsNull write SetID_PEDIDOIsNull; property ID_PEDIDOIsNull : Boolean read GetID_PEDIDOIsNull write SetID_PEDIDOIsNull;
property OldID_PEDIDO : Integer read GetOldID_PEDIDOValue; property OldID_PEDIDO : Integer read GetOldID_PEDIDOValue;
property OldID_PEDIDOIsNull : Boolean read GetOldID_PEDIDOIsNull; property OldID_PEDIDOIsNull : Boolean read GetOldID_PEDIDOIsNull;
property POSICION : Integer read GetPOSICIONValue write SetPOSICIONValue;
property POSICIONIsNull : Boolean read GetPOSICIONIsNull write SetPOSICIONIsNull;
property OldPOSICION : Integer read GetOldPOSICIONValue;
property OldPOSICIONIsNull : Boolean read GetOldPOSICIONIsNull;
property ID_ARTICULO : Integer read GetID_ARTICULOValue write SetID_ARTICULOValue; property ID_ARTICULO : Integer read GetID_ARTICULOValue write SetID_ARTICULOValue;
property ID_ARTICULOIsNull : Boolean read GetID_ARTICULOIsNull write SetID_ARTICULOIsNull; property ID_ARTICULOIsNull : Boolean read GetID_ARTICULOIsNull write SetID_ARTICULOIsNull;
property OldID_ARTICULO : Integer read GetOldID_ARTICULOValue; property OldID_ARTICULO : Integer read GetOldID_ARTICULOValue;
@ -994,9 +1006,10 @@ type
{ IPedidoCliente_ArticulosPendientesPedirAProvNoArticulosDelta } { IPedidoCliente_ArticulosPendientesPedirAProvNoArticulosDelta }
IPedidoCliente_ArticulosPendientesPedirAProvNoArticulosDelta = interface(IPedidoCliente_ArticulosPendientesPedirAProvNoArticulos) IPedidoCliente_ArticulosPendientesPedirAProvNoArticulosDelta = interface(IPedidoCliente_ArticulosPendientesPedirAProvNoArticulos)
['{5D2E579F-205B-4BE2-9ACC-C294ACF32F37}'] ['{41CD6113-3662-4572-9A24-5246CD483138}']
{ Property getters and setters } { Property getters and setters }
function GetOldID_PEDIDOValue : Integer; function GetOldID_PEDIDOValue : Integer;
function GetOldPOSICIONValue : Integer;
function GetOldID_ARTICULOValue : Integer; function GetOldID_ARTICULOValue : Integer;
function GetOldCANT_PEDIDA_CLIENTEValue : Currency; function GetOldCANT_PEDIDA_CLIENTEValue : Currency;
function GetOldID_PROVEEDORValue : Integer; function GetOldID_PROVEEDORValue : Integer;
@ -1009,6 +1022,7 @@ type
{ Properties } { Properties }
property OldID_PEDIDO : Integer read GetOldID_PEDIDOValue; property OldID_PEDIDO : Integer read GetOldID_PEDIDOValue;
property OldPOSICION : Integer read GetOldPOSICIONValue;
property OldID_ARTICULO : Integer read GetOldID_ARTICULOValue; property OldID_ARTICULO : Integer read GetOldID_ARTICULOValue;
property OldCANT_PEDIDA_CLIENTE : Currency read GetOldCANT_PEDIDA_CLIENTEValue; property OldCANT_PEDIDA_CLIENTE : Currency read GetOldCANT_PEDIDA_CLIENTEValue;
property OldID_PROVEEDOR : Integer read GetOldID_PROVEEDORValue; property OldID_PROVEEDOR : Integer read GetOldID_PROVEEDORValue;
@ -1031,6 +1045,12 @@ type
function GetOldID_PEDIDOIsNull: Boolean; virtual; function GetOldID_PEDIDOIsNull: Boolean; virtual;
procedure SetID_PEDIDOValue(const aValue: Integer); virtual; procedure SetID_PEDIDOValue(const aValue: Integer); virtual;
procedure SetID_PEDIDOIsNull(const aValue: Boolean); virtual; procedure SetID_PEDIDOIsNull(const aValue: Boolean); virtual;
function GetPOSICIONValue: Integer; virtual;
function GetPOSICIONIsNull: Boolean; virtual;
function GetOldPOSICIONValue: Integer; virtual;
function GetOldPOSICIONIsNull: Boolean; virtual;
procedure SetPOSICIONValue(const aValue: Integer); virtual;
procedure SetPOSICIONIsNull(const aValue: Boolean); virtual;
function GetID_ARTICULOValue: Integer; virtual; function GetID_ARTICULOValue: Integer; virtual;
function GetID_ARTICULOIsNull: Boolean; virtual; function GetID_ARTICULOIsNull: Boolean; virtual;
function GetOldID_ARTICULOValue: Integer; virtual; function GetOldID_ARTICULOValue: Integer; virtual;
@ -1091,6 +1111,10 @@ type
property ID_PEDIDOIsNull : Boolean read GetID_PEDIDOIsNull write SetID_PEDIDOIsNull; property ID_PEDIDOIsNull : Boolean read GetID_PEDIDOIsNull write SetID_PEDIDOIsNull;
property OldID_PEDIDO : Integer read GetOldID_PEDIDOValue; property OldID_PEDIDO : Integer read GetOldID_PEDIDOValue;
property OldID_PEDIDOIsNull : Boolean read GetOldID_PEDIDOIsNull; property OldID_PEDIDOIsNull : Boolean read GetOldID_PEDIDOIsNull;
property POSICION : Integer read GetPOSICIONValue write SetPOSICIONValue;
property POSICIONIsNull : Boolean read GetPOSICIONIsNull write SetPOSICIONIsNull;
property OldPOSICION : Integer read GetOldPOSICIONValue;
property OldPOSICIONIsNull : Boolean read GetOldPOSICIONIsNull;
property ID_ARTICULO : Integer read GetID_ARTICULOValue write SetID_ARTICULOValue; property ID_ARTICULO : Integer read GetID_ARTICULOValue write SetID_ARTICULOValue;
property ID_ARTICULOIsNull : Boolean read GetID_ARTICULOIsNull write SetID_ARTICULOIsNull; property ID_ARTICULOIsNull : Boolean read GetID_ARTICULOIsNull write SetID_ARTICULOIsNull;
property OldID_ARTICULO : Integer read GetOldID_ARTICULOValue; property OldID_ARTICULO : Integer read GetOldID_ARTICULOValue;
@ -3115,6 +3139,37 @@ begin
BusinessProcessor.CurrentChange.NewValueByName[fld_PedidoCliente_ArticulosPendientesPedirAProvID_PEDIDO] := Null; BusinessProcessor.CurrentChange.NewValueByName[fld_PedidoCliente_ArticulosPendientesPedirAProvID_PEDIDO] := Null;
end; end;
function TPedidoCliente_ArticulosPendientesPedirAProvBusinessProcessorRules.GetPOSICIONValue: Integer;
begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_PedidoCliente_ArticulosPendientesPedirAProvPOSICION];
end;
function TPedidoCliente_ArticulosPendientesPedirAProvBusinessProcessorRules.GetPOSICIONIsNull: Boolean;
begin
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_PedidoCliente_ArticulosPendientesPedirAProvPOSICION]);
end;
function TPedidoCliente_ArticulosPendientesPedirAProvBusinessProcessorRules.GetOldPOSICIONValue: Integer;
begin
result := BusinessProcessor.CurrentChange.OldValueByName[fld_PedidoCliente_ArticulosPendientesPedirAProvPOSICION];
end;
function TPedidoCliente_ArticulosPendientesPedirAProvBusinessProcessorRules.GetOldPOSICIONIsNull: Boolean;
begin
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_PedidoCliente_ArticulosPendientesPedirAProvPOSICION]);
end;
procedure TPedidoCliente_ArticulosPendientesPedirAProvBusinessProcessorRules.SetPOSICIONValue(const aValue: Integer);
begin
BusinessProcessor.CurrentChange.NewValueByName[fld_PedidoCliente_ArticulosPendientesPedirAProvPOSICION] := aValue;
end;
procedure TPedidoCliente_ArticulosPendientesPedirAProvBusinessProcessorRules.SetPOSICIONIsNull(const aValue: Boolean);
begin
if aValue then
BusinessProcessor.CurrentChange.NewValueByName[fld_PedidoCliente_ArticulosPendientesPedirAProvPOSICION] := Null;
end;
function TPedidoCliente_ArticulosPendientesPedirAProvBusinessProcessorRules.GetID_ARTICULOValue: Integer; function TPedidoCliente_ArticulosPendientesPedirAProvBusinessProcessorRules.GetID_ARTICULOValue: Integer;
begin begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_PedidoCliente_ArticulosPendientesPedirAProvID_ARTICULO]; result := BusinessProcessor.CurrentChange.NewValueByName[fld_PedidoCliente_ArticulosPendientesPedirAProvID_ARTICULO];
@ -3437,6 +3492,37 @@ begin
BusinessProcessor.CurrentChange.NewValueByName[fld_PedidoCliente_ArticulosPendientesPedirAProvNoArticulosID_PEDIDO] := Null; BusinessProcessor.CurrentChange.NewValueByName[fld_PedidoCliente_ArticulosPendientesPedirAProvNoArticulosID_PEDIDO] := Null;
end; end;
function TPedidoCliente_ArticulosPendientesPedirAProvNoArticulosBusinessProcessorRules.GetPOSICIONValue: Integer;
begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_PedidoCliente_ArticulosPendientesPedirAProvNoArticulosPOSICION];
end;
function TPedidoCliente_ArticulosPendientesPedirAProvNoArticulosBusinessProcessorRules.GetPOSICIONIsNull: Boolean;
begin
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_PedidoCliente_ArticulosPendientesPedirAProvNoArticulosPOSICION]);
end;
function TPedidoCliente_ArticulosPendientesPedirAProvNoArticulosBusinessProcessorRules.GetOldPOSICIONValue: Integer;
begin
result := BusinessProcessor.CurrentChange.OldValueByName[fld_PedidoCliente_ArticulosPendientesPedirAProvNoArticulosPOSICION];
end;
function TPedidoCliente_ArticulosPendientesPedirAProvNoArticulosBusinessProcessorRules.GetOldPOSICIONIsNull: Boolean;
begin
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_PedidoCliente_ArticulosPendientesPedirAProvNoArticulosPOSICION]);
end;
procedure TPedidoCliente_ArticulosPendientesPedirAProvNoArticulosBusinessProcessorRules.SetPOSICIONValue(const aValue: Integer);
begin
BusinessProcessor.CurrentChange.NewValueByName[fld_PedidoCliente_ArticulosPendientesPedirAProvNoArticulosPOSICION] := aValue;
end;
procedure TPedidoCliente_ArticulosPendientesPedirAProvNoArticulosBusinessProcessorRules.SetPOSICIONIsNull(const aValue: Boolean);
begin
if aValue then
BusinessProcessor.CurrentChange.NewValueByName[fld_PedidoCliente_ArticulosPendientesPedirAProvNoArticulosPOSICION] := Null;
end;
function TPedidoCliente_ArticulosPendientesPedirAProvNoArticulosBusinessProcessorRules.GetID_ARTICULOValue: Integer; function TPedidoCliente_ArticulosPendientesPedirAProvNoArticulosBusinessProcessorRules.GetID_ARTICULOValue: Integer;
begin begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_PedidoCliente_ArticulosPendientesPedirAProvNoArticulosID_ARTICULO]; result := BusinessProcessor.CurrentChange.NewValueByName[fld_PedidoCliente_ArticulosPendientesPedirAProvNoArticulosID_ARTICULO];

54
Source/Modulos/Pedidos de cliente/Servidor/srvPedidosCliente_Impl.dfm
View File

@ -678,15 +678,16 @@ object srvPedidosCliente: TsrvPedidosCliente
Connection = 'IBX' Connection = 'IBX'
SQL = SQL =
'SELECT PEDIDOS_CLIENTE_DETALLES.id_pedido, PEDIDOS_CLIENTE_DETA' + 'SELECT PEDIDOS_CLIENTE_DETALLES.id_pedido, PEDIDOS_CLIENTE_DETA' +
'LLES.id_articulo,'#10'PEDIDOS_CLIENTE_DETALLES.CANTIDAD as CANT_PEDI' + 'LLES.POSICION, PEDIDOS_CLIENTE_DETALLES.id_articulo,'#10'PEDIDOS_CLI' +
'DA_CLIENTE, articulos.id_PROVEEDOR,'#10'0 as CANT_PEDIDA_PROVEEDOR, ' + 'ENTE_DETALLES.CANTIDAD as CANT_PEDIDA_CLIENTE, articulos.id_PROV' +
'PEDIDOS_CLIENTE_DETALLES.CANTIDAD as CANT_PENDIENTE_PEDIR,'#10'PEDID' + 'EEDOR,'#10'0 as CANT_PEDIDA_PROVEEDOR, PEDIDOS_CLIENTE_DETALLES.CANT' +
'OS_CLIENTE_DETALLES.CONCEPTO,'#10'PEDIDOS_CLIENTE_DETALLES.importe_u' + 'IDAD as CANT_PENDIENTE_PEDIR,'#10'PEDIDOS_CLIENTE_DETALLES.CONCEPTO,' +
'nidad, PEDIDOS_CLIENTE_DETALLES.descuento, PEDIDOS_CLIENTE_DETAL' + #10'PEDIDOS_CLIENTE_DETALLES.importe_unidad, PEDIDOS_CLIENTE_DETALL' +
'LES.importe_total'#10#10'FROM PEDIDOS_CLIENTE_DETALLES'#10'left join artic' + 'ES.descuento, PEDIDOS_CLIENTE_DETALLES.importe_total'#10#10'FROM PEDID' +
'ulos on (articulos.id = PEDIDOS_CLIENTE_DETALLES.id_articulo)'#10'wh' + 'OS_CLIENTE_DETALLES'#10'left join articulos on (articulos.id = PEDID' +
'ere id_pedido =:ID'#10'and PEDIDOS_CLIENTE_DETALLES.id_articulo is n' + 'OS_CLIENTE_DETALLES.id_articulo)'#10'where id_pedido =:ID'#10'and PEDIDO' +
'ot null'#10'order by ARTICULOS.ID_PROVEEDOR'#10#10#10#10#10#10 'S_CLIENTE_DETALLES.id_articulo is not null'#10'order by ARTICULOS.ID' +
'_PROVEEDOR, PEDIDOS_CLIENTE_DETALLES.POSICION'#10#10
StatementType = stSQL StatementType = stSQL
ColumnMappings = < ColumnMappings = <
item item
@ -728,6 +729,10 @@ object srvPedidosCliente: TsrvPedidosCliente
item item
DatasetField = 'IMPORTE_TOTAL' DatasetField = 'IMPORTE_TOTAL'
TableField = 'IMPORTE_TOTAL' TableField = 'IMPORTE_TOTAL'
end
item
DatasetField = 'POSICION'
TableField = 'POSICION'
end> end>
end> end>
Name = 'PedidoCliente_ArticulosPendientesPedirAProv' Name = 'PedidoCliente_ArticulosPendientesPedirAProv'
@ -736,6 +741,10 @@ object srvPedidosCliente: TsrvPedidosCliente
Name = 'ID_PEDIDO' Name = 'ID_PEDIDO'
DataType = datInteger DataType = datInteger
end end
item
Name = 'POSICION'
DataType = datInteger
end
item item
Name = 'ID_ARTICULO' Name = 'ID_ARTICULO'
DataType = datInteger DataType = datInteger
@ -787,15 +796,16 @@ object srvPedidosCliente: TsrvPedidosCliente
Connection = 'IBX' Connection = 'IBX'
SQL = SQL =
'SELECT PEDIDOS_CLIENTE_DETALLES.id_pedido, PEDIDOS_CLIENTE_DETA' + 'SELECT PEDIDOS_CLIENTE_DETALLES.id_pedido, PEDIDOS_CLIENTE_DETA' +
'LLES.id_articulo,'#10'PEDIDOS_CLIENTE_DETALLES.CANTIDAD as CANT_PEDI' + 'LLES.POSICION, PEDIDOS_CLIENTE_DETALLES.id_articulo,'#10'PEDIDOS_CLI' +
'DA_CLIENTE, articulos.id_PROVEEDOR,'#10'0 as CANT_PEDIDA_PROVEEDOR, ' + 'ENTE_DETALLES.CANTIDAD as CANT_PEDIDA_CLIENTE, articulos.id_PROV' +
'PEDIDOS_CLIENTE_DETALLES.CANTIDAD as CANT_PENDIENTE_PEDIR,'#10'PEDID' + 'EEDOR,'#10'0 as CANT_PEDIDA_PROVEEDOR, PEDIDOS_CLIENTE_DETALLES.CANT' +
'OS_CLIENTE_DETALLES.CONCEPTO,'#10'PEDIDOS_CLIENTE_DETALLES.importe_u' + 'IDAD as CANT_PENDIENTE_PEDIR,'#10'PEDIDOS_CLIENTE_DETALLES.CONCEPTO,' +
'nidad, PEDIDOS_CLIENTE_DETALLES.descuento, PEDIDOS_CLIENTE_DETAL' + #10'PEDIDOS_CLIENTE_DETALLES.importe_unidad, PEDIDOS_CLIENTE_DETALL' +
'LES.importe_total'#10#10'FROM PEDIDOS_CLIENTE_DETALLES'#10'left join artic' + 'ES.descuento, PEDIDOS_CLIENTE_DETALLES.importe_total'#10#10'FROM PEDID' +
'ulos on (articulos.id = PEDIDOS_CLIENTE_DETALLES.id_articulo)'#10'wh' + 'OS_CLIENTE_DETALLES'#10'left join articulos on (articulos.id = PEDID' +
'ere id_pedido =:ID'#10'and PEDIDOS_CLIENTE_DETALLES.id_articulo is n' + 'OS_CLIENTE_DETALLES.id_articulo)'#10'where id_pedido =:ID'#10'and PEDIDO' +
'ull'#10'order by ARTICULOS.ID_PROVEEDOR'#10#10#10#10#10#10 'S_CLIENTE_DETALLES.id_articulo is null'#10'order by ARTICULOS.ID_PRO' +
'VEEDOR, PEDIDOS_CLIENTE_DETALLES.POSICION'#10#10#10#10
StatementType = stSQL StatementType = stSQL
ColumnMappings = < ColumnMappings = <
item item
@ -837,6 +847,10 @@ object srvPedidosCliente: TsrvPedidosCliente
item item
DatasetField = 'IMPORTE_TOTAL' DatasetField = 'IMPORTE_TOTAL'
TableField = 'IMPORTE_TOTAL' TableField = 'IMPORTE_TOTAL'
end
item
DatasetField = 'POSICION'
TableField = 'POSICION'
end> end>
end> end>
Name = 'PedidoCliente_ArticulosPendientesPedirAProvNoArticulos' Name = 'PedidoCliente_ArticulosPendientesPedirAProvNoArticulos'
@ -845,6 +859,10 @@ object srvPedidosCliente: TsrvPedidosCliente
Name = 'ID_PEDIDO' Name = 'ID_PEDIDO'
DataType = datInteger DataType = datInteger
end end
item
Name = 'POSICION'
DataType = datInteger
end
item item
Name = 'ID_ARTICULO' Name = 'ID_ARTICULO'
DataType = datInteger DataType = datInteger

92
Source/Modulos/Presupuestos de cliente/Views/uEditorPresupuestoCliente.dfm
View File

@ -185,10 +185,6 @@ inherited fEditorPresupuestoCliente: TfEditorPresupuestoCliente
object pagContenido: TTabSheet object pagContenido: TTabSheet
Caption = 'Contenido' Caption = 'Contenido'
ImageIndex = 1 ImageIndex = 1
ExplicitLeft = 0
ExplicitTop = 0
ExplicitWidth = 0
ExplicitHeight = 0
inline frViewDetallesPresupuestoCliente1: TfrViewDetallesPresupuestoCliente inline frViewDetallesPresupuestoCliente1: TfrViewDetallesPresupuestoCliente
Left = 0 Left = 0
Top = 0 Top = 0
@ -209,103 +205,101 @@ inherited fEditorPresupuestoCliente: TfEditorPresupuestoCliente
ExplicitHeight = 234 ExplicitHeight = 234
inherited ToolBar1: TToolBar inherited ToolBar1: TToolBar
Width = 750 Width = 750
Height = 46 Height = 73
ExplicitWidth = 750 ExplicitWidth = 750
ExplicitHeight = 46 ExplicitHeight = 73
inherited ToolButton3: TToolButton inherited ToolButton3: TToolButton
Wrap = False Wrap = False
end end
inherited ToolButton4: TToolButton inherited ToolButton4: TToolButton
Left = 278 Left = 278
Top = 0 Top = 0
Wrap = True
ExplicitLeft = 278 ExplicitLeft = 278
ExplicitTop = 0 ExplicitTop = 0
end end
inherited ToolButton14: TToolButton inherited ToolButton14: TToolButton
Left = 0 Left = 334
Wrap = False Top = 0
ExplicitLeft = 0 ExplicitLeft = 334
ExplicitTop = 0
end end
inherited FontName: TJvFontComboBox inherited FontName: TJvFontComboBox
Left = 65
Top = 22 Top = 22
ExplicitLeft = 65
ExplicitTop = 22 ExplicitTop = 22
end end
inherited FontSize: TEdit inherited FontSize: TEdit
Left = 210
Top = 22 Top = 22
Width = 216 Width = 216
ExplicitLeft = 210
ExplicitTop = 22 ExplicitTop = 22
ExplicitWidth = 216 ExplicitWidth = 216
end end
inherited UpDown1: TUpDown inherited UpDown1: TUpDown
Left = 426 Left = 361
Top = 22 Top = 22
ExplicitLeft = 426 ExplicitLeft = 361
ExplicitTop = 22 ExplicitTop = 22
end end
inherited ToolButton13: TToolButton inherited ToolButton13: TToolButton
Left = 443 Left = 378
Top = 22 Top = 22
ExplicitLeft = 443 ExplicitLeft = 378
ExplicitTop = 22 ExplicitTop = 22
end end
inherited ToolButton6: TToolButton inherited ToolButton6: TToolButton
Left = 451 Left = 386
Top = 22 Top = 22
ExplicitLeft = 451 ExplicitLeft = 386
ExplicitTop = 22 ExplicitTop = 22
end end
inherited ToolButton7: TToolButton inherited ToolButton7: TToolButton
Left = 517 Left = 452
Top = 22 Top = 22
ExplicitLeft = 517 ExplicitLeft = 452
ExplicitTop = 22 ExplicitTop = 22
end end
inherited ToolButton8: TToolButton inherited ToolButton8: TToolButton
Left = 584 Left = 519
Top = 22 Top = 22
ExplicitLeft = 584 ExplicitLeft = 519
ExplicitTop = 22 ExplicitTop = 22
end end
inherited ToolButton12: TToolButton inherited ToolButton12: TToolButton
Left = 667 Left = 0
Top = 22 Top = 22
ExplicitLeft = 667 Wrap = True
ExplicitLeft = 0
ExplicitTop = 22 ExplicitTop = 22
ExplicitHeight = 27
end end
inherited ToolButton9: TToolButton inherited ToolButton9: TToolButton
Left = 675 Left = 0
Top = 22 Top = 49
ExplicitLeft = 675 ExplicitLeft = 0
ExplicitTop = 22 ExplicitTop = 49
end end
inherited ToolButton10: TToolButton inherited ToolButton10: TToolButton
Left = 820 Left = 145
Top = 22 Top = 49
ExplicitLeft = 820 ExplicitLeft = 145
ExplicitTop = 22 ExplicitTop = 49
end end
inherited ToolButton11: TToolButton inherited ToolButton11: TToolButton
Left = 945 Left = 270
Top = 22 Top = 49
ExplicitLeft = 945 ExplicitLeft = 270
ExplicitTop = 22 ExplicitTop = 49
end end
end end
inherited cxGrid: TcxGrid inherited cxGrid: TcxGrid
Top = 72 Top = 99
Width = 750 Width = 750
Height = 162 Height = 135
ExplicitTop = 77 ExplicitTop = 77
ExplicitWidth = 750 ExplicitWidth = 750
ExplicitHeight = 157 ExplicitHeight = 157
end end
inherited TBXDock1: TTBXDock inherited TBXDock1: TTBXDock
Top = 46 Top = 73
Width = 750 Width = 750
ExplicitTop = 51 ExplicitTop = 51
ExplicitWidth = 750 ExplicitWidth = 750
@ -328,10 +322,6 @@ inherited fEditorPresupuestoCliente: TfEditorPresupuestoCliente
Caption = 'Portada' Caption = 'Portada'
ImageIndex = 3 ImageIndex = 3
TabVisible = False TabVisible = False
ExplicitLeft = 0
ExplicitTop = 0
ExplicitWidth = 0
ExplicitHeight = 0
object Panel1: TPanel object Panel1: TPanel
Left = 0 Left = 0
Top = 0 Top = 0
@ -389,10 +379,6 @@ inherited fEditorPresupuestoCliente: TfEditorPresupuestoCliente
Caption = 'Memoria' Caption = 'Memoria'
ImageIndex = 4 ImageIndex = 4
TabVisible = False TabVisible = False
ExplicitLeft = 0
ExplicitTop = 0
ExplicitWidth = 0
ExplicitHeight = 0
object Panel2: TPanel object Panel2: TPanel
Left = 0 Left = 0
Top = 0 Top = 0
@ -449,10 +435,6 @@ inherited fEditorPresupuestoCliente: TfEditorPresupuestoCliente
object pagInicidencias: TTabSheet object pagInicidencias: TTabSheet
Caption = 'Incidencias' Caption = 'Incidencias'
ImageIndex = 2 ImageIndex = 2
ExplicitLeft = 0
ExplicitTop = 0
ExplicitWidth = 0
ExplicitHeight = 0
inline frViewIncidenciasCli: TfrViewIncidencias inline frViewIncidenciasCli: TfrViewIncidencias
Left = 0 Left = 0
Top = 0 Top = 0
@ -791,7 +773,6 @@ inherited fEditorPresupuestoCliente: TfEditorPresupuestoCliente
ExplicitLeft = 21 ExplicitLeft = 21
ExplicitTop = 29 ExplicitTop = 29
ExplicitWidth = 277 ExplicitWidth = 277
ExplicitHeight = 0
Width = 277 Width = 277
end end
inherited eDescripcionBonificacion: TcxDBTextEdit inherited eDescripcionBonificacion: TcxDBTextEdit
@ -830,9 +811,6 @@ inherited fEditorPresupuestoCliente: TfEditorPresupuestoCliente
inherited dxLayoutControl1Group10: TdxLayoutGroup inherited dxLayoutControl1Group10: TdxLayoutGroup
Visible = False Visible = False
end end
inherited dxLayoutControl1Item9: TdxLayoutItem
Visible = True
end
end end
inherited dxLayoutControl1Group6: TdxLayoutGroup inherited dxLayoutControl1Group6: TdxLayoutGroup
Visible = True Visible = True

2
Source/Modulos/Relaciones/Pedidos de cliente - Pedidos a proveedor/uGenerarPedidosProvUtils.dfm
View File

@ -308,7 +308,7 @@ object dmGenerarPedidosProv: TdmGenerarPedidosProv
0000001C0806000000720DDF94000000017352474200AECE1CE9000000046741 0000001C0806000000720DDF94000000017352474200AECE1CE9000000046741
4D410000B18F0BFC6105000000206348524D00007A26000080840000FA000000 4D410000B18F0BFC6105000000206348524D00007A26000080840000FA000000
80E8000075300000EA6000003A98000017709CBA513C00000009704859730000 80E8000075300000EA6000003A98000017709CBA513C00000009704859730000
0AEA00000AEA0150CCEFBE000004CE49444154484BBDD67F50D3751CC7F12FE3 0AE900000AE901FD75CED3000004CE49444154484BBDD67F50D3751CC7F12FE3
57DA2576E41919D28F3941C656271A982C08952B03059193CC5444D24E44C008 57DA2576E41919D28F3941C656271A982C08952B03059193CC5444D24E44C008
8F08C323E48708D655C60F393DA5D3ABCCC34A0B4DB3E4C7F8A10213D94070FC 8F08C323E48708D655C60F393DA5D3ABCCC34A0B4DB3E4C7F8A10213D94070FC
DA2F366243FFE8FBEAF3FD22935F1B5B1771F7FD737BECF979BFF7191400CADA DA2F366243FFE8FBEAF3FD22935F1B5B1771F7FD737BECF979BFF7191400CADA

25
Source/Modulos/Relaciones/Pedidos de cliente - Pedidos a proveedor/uGenerarPedidosProvUtils.pas
View File

@ -167,7 +167,8 @@ begin
if Assigned(APedidoProv) and if Assigned(APedidoProv) and
(AArticulosPend.ID_PROVEEDOR <> APedidoProv.ID_PROVEEDOR) then (AArticulosPend.ID_PROVEEDOR <> APedidoProv.ID_PROVEEDOR) then
begin begin
AnadirLineasNoArticulos(AArticulosPendNoArticulos, APedidoProv.Detalles); // AnadirLineasNoArticulos(AArticulosPendNoArticulos, APedidoProv.Detalles);
AArticulosPendNoArticulos.DataTable.First; //siempre que empezamos a rellenar un pedido hay que empezar el recorrido de las descripciones libres para irlas metiendo y conservar el orden
APedidosProveedorController.Guardar(APedidoProv); APedidosProveedorController.Guardar(APedidoProv);
ALista.Add(APedidoProv.REFERENCIA + ': ' + APedidoProv.NOMBRE); ALista.Add(APedidoProv.REFERENCIA + ': ' + APedidoProv.NOMBRE);
APedidoProv := NIL; APedidoProv := NIL;
@ -192,6 +193,25 @@ begin
//obligarle siempre a recalcular los detalles una sola vez //obligarle siempre a recalcular los detalles una sola vez
ADetallesPedidosProvController.BeginUpdate(APedidoProv.Detalles); ADetallesPedidosProvController.BeginUpdate(APedidoProv.Detalles);
//si la posicion de la lineas descripcion es menor que el articulo que vamos a añadir, añadimos primero la linea descripcion
while (not AArticulosPendNoArticulos.EOF)
and (AArticulosPend.POSICION > AArticulosPendNoArticulos.POSICION) do
begin
ADetallesPedidosProvController.Add(APedidoProv.Detalles, TIPO_DETALLE_CONCEPTO);
with APedidoProv.Detalles do
begin
Edit;
CONCEPTO := AArticulosPendNoArticulos.CONCEPTO;
CANTIDAD := AArticulosPendNoArticulos.CANT_PENDIENTE_PEDIR;
// IMPORTE_UNIDAD := AArticulosPendNoArticulos.IMPORTE_UNIDAD;
// IMPORTE_TOTAL := AArticulosPendNoArticulos.IMPORTE_TOTAL;
// DESCUENTO := AArticulosPendNoArticulos.DESCUENTO;
// IMPORTE_PORTE := AArticulosPendNoArticulos.IMPORTE_PORTE;
Post;
AArticulosPendNoArticulos.Next;
end;
end;
ADetallesPedidosProvController.Add(APedidoProv.Detalles, TIPO_DETALLE_CONCEPTO); ADetallesPedidosProvController.Add(APedidoProv.Detalles, TIPO_DETALLE_CONCEPTO);
ADetallesPedidosProvController.AnadirArticulo(APedidoProv.Detalles, AArticulosPend.ID_ARTICULO); ADetallesPedidosProvController.AnadirArticulo(APedidoProv.Detalles, AArticulosPend.ID_ARTICULO);
with APedidoProv.Detalles do with APedidoProv.Detalles do
@ -207,7 +227,8 @@ begin
if Assigned(APedidoProv) then if Assigned(APedidoProv) then
begin begin
AnadirLineasNoArticulos(AArticulosPendNoArticulos, APedidoProv.Detalles); // AnadirLineasNoArticulos(AArticulosPendNoArticulos, APedidoProv.Detalles);
AArticulosPendNoArticulos.DataTable.First; //siempre que empezamos a rellenar un pedido hay que empezar el recorrido de las descripciones libres para irlas metiendo y conservar el orden
APedidosProveedorController.Guardar(APedidoProv); APedidosProveedorController.Guardar(APedidoProv);
ALista.Add(APedidoProv.REFERENCIA + ': ' + APedidoProv.NOMBRE); ALista.Add(APedidoProv.REFERENCIA + ': ' + APedidoProv.NOMBRE);
APedidoProv := NIL; APedidoProv := NIL;

14
Source/Modulos/Relaciones/Presupuestos de cliente - Pedidos de cliente/uGenerarPedidosCliUtils.pas
View File

@ -185,6 +185,9 @@ begin
APedidoActual := APedidos; APedidoActual := APedidos;
APedidosClienteController.RecuperarCliente(APedidoActual); APedidosClienteController.RecuperarCliente(APedidoActual);
APedidoActual.Cliente.DataTable.Active := True; APedidoActual.Cliente.DataTable.Active := True;
APedidoActual.Edit;
APedidoActual.REFERENCIA_CLIENTE := APedidoActual.REFERENCIA_CLIENTE + ' ' + AListaPresupuestos.REFERENCIA_CLIENTE;
APedidoActual.Post;
end end
else begin else begin
// No hay pedido de ese cliente. Creo una nueva // No hay pedido de ese cliente. Creo una nueva
@ -194,6 +197,7 @@ begin
APresupuestosController.RecuperarCliente(AListaPresupuestos); APresupuestosController.RecuperarCliente(AListaPresupuestos);
AListaPresupuestos.Cliente.DataTable.Active := True; AListaPresupuestos.Cliente.DataTable.Active := True;
APedidos.Cliente := AListaPresupuestos.Cliente; APedidos.Cliente := AListaPresupuestos.Cliente;
APedidos.REFERENCIA_CLIENTE := APedidos.REFERENCIA_CLIENTE + ' ' + AListaPresupuestos.REFERENCIA_CLIENTE;
APedidoActual := APedidos; APedidoActual := APedidos;
@ -248,7 +252,9 @@ begin
// Añado el contenido del albarán // Añado el contenido del albarán
CopiarArticulosPresupuesto(AListaPresupuestos.Detalles, APedidoActual.Detalles); CopiarArticulosPresupuesto(AListaPresupuestos.Detalles, APedidoActual.Detalles);
APedidosClienteController.DetallesController.Add(APedidoActual.Detalles, TIPO_DETALLE_CONCEPTO); //Ana pide quitar importe porte a nivel general ya que lo usa como articulo.
//Reunion 10/09/2015
{ APedidosClienteController.DetallesController.Add(APedidoActual.Detalles, TIPO_DETALLE_CONCEPTO);
with APedidoActual.Detalles do with APedidoActual.Detalles do
begin begin
Edit; Edit;
@ -257,15 +263,19 @@ begin
IMPORTE_UNIDAD := AListaPresupuestos.IMPORTE_PORTE; IMPORTE_UNIDAD := AListaPresupuestos.IMPORTE_PORTE;
Post; Post;
end; end;
}
//Ana pide quitar subtotal de los presupuestos copiados
//Reunion 10/09/2015
// Añado el resumen // Añado el resumen
APedidosClienteController.DetallesController.Add(APedidoActual.Detalles, TIPO_DETALLE_SUBTOTAL); { APedidosClienteController.DetallesController.Add(APedidoActual.Detalles, TIPO_DETALLE_SUBTOTAL);
with APedidoActual.Detalles do with APedidoActual.Detalles do
begin begin
Edit; Edit;
CONCEPTO := 'Total del presupuesto ' + AListaPresupuestos.REFERENCIA; CONCEPTO := 'Total del presupuesto ' + AListaPresupuestos.REFERENCIA;
Post; Post;
end; end;
}
// end; //if not CopiarDetalles // end; //if not CopiarDetalles

6
Source/Servidor/FactuGES_Server.dpr
View File

@ -166,12 +166,12 @@ uses
schFacturasClienteServer_Intf in '..\Modulos\Facturas de cliente\Model\schFacturasClienteServer_Intf.pas', schFacturasClienteServer_Intf in '..\Modulos\Facturas de cliente\Model\schFacturasClienteServer_Intf.pas',
schContactosClient_Intf in '..\Modulos\Contactos\Model\schContactosClient_Intf.pas', schContactosClient_Intf in '..\Modulos\Contactos\Model\schContactosClient_Intf.pas',
schContactosServer_Intf in '..\Modulos\Contactos\Model\schContactosServer_Intf.pas', schContactosServer_Intf in '..\Modulos\Contactos\Model\schContactosServer_Intf.pas',
schPedidosClienteClient_Intf in '..\Modulos\Pedidos de cliente\Model\schPedidosClienteClient_Intf.pas',
schPedidosClienteServer_Intf in '..\Modulos\Pedidos de cliente\Model\schPedidosClienteServer_Intf.pas',
schFacturasProformaClient_Intf in '..\Modulos\Facturas proforma\Model\schFacturasProformaClient_Intf.pas', schFacturasProformaClient_Intf in '..\Modulos\Facturas proforma\Model\schFacturasProformaClient_Intf.pas',
schFacturasProformaServer_Intf in '..\Modulos\Facturas proforma\Model\schFacturasProformaServer_Intf.pas', schFacturasProformaServer_Intf in '..\Modulos\Facturas proforma\Model\schFacturasProformaServer_Intf.pas',
schPresupuestosClienteClient_Intf in '..\Modulos\Presupuestos de cliente\Model\schPresupuestosClienteClient_Intf.pas', schPresupuestosClienteClient_Intf in '..\Modulos\Presupuestos de cliente\Model\schPresupuestosClienteClient_Intf.pas',
schPresupuestosClienteServer_Intf in '..\Modulos\Presupuestos de cliente\Model\schPresupuestosClienteServer_Intf.pas'; schPresupuestosClienteServer_Intf in '..\Modulos\Presupuestos de cliente\Model\schPresupuestosClienteServer_Intf.pas',
schPedidosClienteClient_Intf in '..\Modulos\Pedidos de cliente\Model\schPedidosClienteClient_Intf.pas',
schPedidosClienteServer_Intf in '..\Modulos\Pedidos de cliente\Model\schPedidosClienteServer_Intf.pas';
{$R *.res} {$R *.res}
{$R ..\Servicios\RODLFile.res} {$R ..\Servicios\RODLFile.res}

841
Source/Servidor/FactuGES_Server.dproj
View File

@ -1,424 +1,425 @@
<?xml version="1.0" encoding="utf-8"?> <?xml version="1.0" encoding="utf-8"?>
<Project xmlns="http://schemas.microsoft.com/developer/msbuild/2003"> <Project xmlns="http://schemas.microsoft.com/developer/msbuild/2003">
<PropertyGroup> <PropertyGroup>
<ProjectGuid>{ebdcd25d-40d7-4146-91ec-a0ea4aa1dcd1}</ProjectGuid> <ProjectGuid>{ebdcd25d-40d7-4146-91ec-a0ea4aa1dcd1}</ProjectGuid>
<MainSource>FactuGES_Server.dpr</MainSource> <MainSource>FactuGES_Server.dpr</MainSource>
<Configuration Condition=" '$(Configuration)' == '' ">Debug</Configuration> <Configuration Condition=" '$(Configuration)' == '' ">Debug</Configuration>
<Platform Condition=" '$(Platform)' == '' ">AnyCPU</Platform> <Platform Condition=" '$(Platform)' == '' ">AnyCPU</Platform>
<DCC_DCCCompiler>DCC32</DCC_DCCCompiler> <DCC_DCCCompiler>DCC32</DCC_DCCCompiler>
<DCC_DependencyCheckOutputName>..\..\Output\Debug\Servidor\FactuGES_Server.exe</DCC_DependencyCheckOutputName> <DCC_DependencyCheckOutputName>..\..\Output\Debug\Servidor\FactuGES_Server.exe</DCC_DependencyCheckOutputName>
<DCC_UsePackage>vcl;rtl;vclx;vclactnband;dbrtl;vcldb;vcldbx;bdertl;dsnap;dsnapcon;teeUI;teedb;tee;adortl;vclib;ibxpress;dbxcds;dbexpress;DbxCommonDriver;IndyCore;IndySystem;IndyProtocols;VclSmp;vclie;webdsnap;xmlrtl;inet;inetdbbde;inetdbxpress;RemObjects_BPDX_D11;RemObjects_RODX_D11;RemObjects_Indy_D11;RemObjects_Synapse_D11;RemObjects_WebBroker_D11;DataAbstract_Core_D11;DataAbstract_DBXDriver_D11;DataAbstract_IDE_D11;DataAbstract_Scripting_D11;DataAbstract_SDACDriver_D11;sdac105;dac105;DataAbstract_SQLiteDriver_D11;cxEditorsD10;cxLibraryD10;dxThemeD10;cxDataD10;cxExtEditorsD10;cxGridD10;cxPageControlD10;cxSchedulerD10;cxTreeListD10;cxVerticalGridD10;dxBarD10;dxComnD10;dxBarDBNavD10;dxBarExtDBItemsD10;dxBarExtItemsD10;dxDockingD10;dxLayoutControlD10;dxNavBarD10;dxPSCoreD10;dxsbD10;dxPScxCommonD10;dxPSLnksD10;vclshlctrls;dxPScxExtCommonD10;dxPScxGridLnkD10;dxPScxPCProdD10;dxPScxScheduler2LnkD10;dxPScxTLLnkD10;dxPSdxLCLnkD10;dxPsPrVwAdvD10;pckMD5;pckUCDataConnector;pckUserControl_RT;PluginSDK_D10R;PNG_D10;PngComponentsD10;tb2k_d10;tbx_d10;JclVcl;Jcl;JvXPCtrlsD11R;JvCoreD11R;JvSystemD11R;JvStdCtrlsD11R;JvAppFrmD11R;JvBandsD11R;JvDBD11R;JvDlgsD11R;JvBDED11R;JvCmpD11R;JvCryptD11R;JvCtrlsD11R;JvCustomD11R;JvDockingD11R;JvDotNetCtrlsD11R;JvEDID11R;JvGlobusD11R;JvHMID11R;JvInterpreterD11R;JvJansD11R;JvManagedThreadsD11R;JvMMD11R;JvNetD11R;JvPageCompsD11R;JvPluginD11R;JvPrintPreviewD11R;JvRuntimeDesignD11R;JvTimeFrameworkD11R;JvUIBD11R;JvValidatorsD11R;JvWizardD11R;pckUCADOConn;pckUCBDEConn;pckUCIBXConn;pckUCMidasConn;cxIntlPrintSys3D10;cxExportD10;cxIntl5D10;GUISDK_D11R;ccpackD11;JSDialog100;fsTee11;fs11;frx11;frxADO11;frxBDE11;frxDB11;frxDBX11;frxe11;frxIBX11;frxTee11;fsADO11;fsBDE11;fsDB11;fsIBX11;websnap;soaprtl;IntrawebDB_90_100;Intraweb_90_100</DCC_UsePackage> <DCC_UsePackage>vcl;rtl;vclx;vclactnband;dbrtl;vcldb;vcldbx;bdertl;dsnap;dsnapcon;teeUI;teedb;tee;adortl;vclib;ibxpress;dbxcds;dbexpress;DbxCommonDriver;IndyCore;IndySystem;IndyProtocols;VclSmp;vclie;webdsnap;xmlrtl;inet;inetdbbde;inetdbxpress;RemObjects_BPDX_D11;RemObjects_RODX_D11;RemObjects_Indy_D11;RemObjects_Synapse_D11;RemObjects_WebBroker_D11;DataAbstract_Core_D11;DataAbstract_DBXDriver_D11;DataAbstract_IDE_D11;DataAbstract_Scripting_D11;DataAbstract_SDACDriver_D11;sdac105;dac105;DataAbstract_SQLiteDriver_D11;cxEditorsD10;cxLibraryD10;dxThemeD10;cxDataD10;cxExtEditorsD10;cxGridD10;cxPageControlD10;cxSchedulerD10;cxTreeListD10;cxVerticalGridD10;dxBarD10;dxComnD10;dxBarDBNavD10;dxBarExtDBItemsD10;dxBarExtItemsD10;dxDockingD10;dxLayoutControlD10;dxNavBarD10;dxPSCoreD10;dxsbD10;dxPScxCommonD10;dxPSLnksD10;vclshlctrls;dxPScxExtCommonD10;dxPScxGridLnkD10;dxPScxPCProdD10;dxPScxScheduler2LnkD10;dxPScxTLLnkD10;dxPSdxLCLnkD10;dxPsPrVwAdvD10;pckMD5;pckUCDataConnector;pckUserControl_RT;PluginSDK_D10R;PNG_D10;PngComponentsD10;tb2k_d10;tbx_d10;JclVcl;Jcl;JvXPCtrlsD11R;JvCoreD11R;JvSystemD11R;JvStdCtrlsD11R;JvAppFrmD11R;JvBandsD11R;JvDBD11R;JvDlgsD11R;JvBDED11R;JvCmpD11R;JvCryptD11R;JvCtrlsD11R;JvCustomD11R;JvDockingD11R;JvDotNetCtrlsD11R;JvEDID11R;JvGlobusD11R;JvHMID11R;JvInterpreterD11R;JvJansD11R;JvManagedThreadsD11R;JvMMD11R;JvNetD11R;JvPageCompsD11R;JvPluginD11R;JvPrintPreviewD11R;JvRuntimeDesignD11R;JvTimeFrameworkD11R;JvUIBD11R;JvValidatorsD11R;JvWizardD11R;pckUCADOConn;pckUCBDEConn;pckUCIBXConn;pckUCMidasConn;cxIntlPrintSys3D10;cxExportD10;cxIntl5D10;GUISDK_D11R;ccpackD11;JSDialog100;fsTee11;fs11;frx11;frxADO11;frxBDE11;frxDB11;frxDBX11;frxe11;frxIBX11;frxTee11;fsADO11;fsBDE11;fsDB11;fsIBX11;websnap;soaprtl;IntrawebDB_90_100;Intraweb_90_100</DCC_UsePackage>
</PropertyGroup> </PropertyGroup>
<PropertyGroup Condition=" '$(Configuration)|$(Platform)' == 'Release|AnyCPU' "> <PropertyGroup Condition=" '$(Configuration)|$(Platform)' == 'Release|AnyCPU' ">
<Version>7.0</Version> <Version>7.0</Version>
<DCC_DebugInformation>False</DCC_DebugInformation> <DCC_DebugInformation>False</DCC_DebugInformation>
<DCC_LocalDebugSymbols>False</DCC_LocalDebugSymbols> <DCC_LocalDebugSymbols>False</DCC_LocalDebugSymbols>
<DCC_SymbolReferenceInfo>0</DCC_SymbolReferenceInfo> <DCC_SymbolReferenceInfo>0</DCC_SymbolReferenceInfo>
<DCC_MapFile>3</DCC_MapFile> <DCC_MapFile>3</DCC_MapFile>
<DCC_ExeOutput>..\..\Output\Release\Servidor</DCC_ExeOutput> <DCC_ExeOutput>..\..\Output\Release\Servidor</DCC_ExeOutput>
<DCC_Define>RELEASE</DCC_Define> <DCC_Define>RELEASE</DCC_Define>
</PropertyGroup> </PropertyGroup>
<PropertyGroup Condition=" '$(Configuration)|$(Platform)' == 'Debug|AnyCPU' "> <PropertyGroup Condition=" '$(Configuration)|$(Platform)' == 'Debug|AnyCPU' ">
<Version>7.0</Version> <Version>7.0</Version>
<DCC_MapFile>3</DCC_MapFile> <DCC_MapFile>3</DCC_MapFile>
<DCC_ExeOutput>..\..\Output\Debug\Servidor</DCC_ExeOutput> <DCC_ExeOutput>..\..\Output\Debug\Servidor</DCC_ExeOutput>
<DCC_Define>DEBUG;</DCC_Define> <DCC_Define>DEBUG;</DCC_Define>
<DCC_GenerateStackFrames>True</DCC_GenerateStackFrames> <DCC_GenerateStackFrames>True</DCC_GenerateStackFrames>
<DCC_DebugInfoInExe>True</DCC_DebugInfoInExe> <DCC_DebugInfoInExe>True</DCC_DebugInfoInExe>
<DCC_DebugVN>True</DCC_DebugVN> <DCC_DebugVN>True</DCC_DebugVN>
<DCC_UnitSearchPath>C:\jcl\lib\d11\debug;C:\JCL\lib\d11\debug;$(BDS)\lib\Debug;$(BDS)\Lib\Debug\Indy10</DCC_UnitSearchPath> <DCC_UnitSearchPath>C:\jcl\lib\d11\debug;C:\JCL\lib\d11\debug;$(BDS)\lib\Debug;$(BDS)\Lib\Debug\Indy10</DCC_UnitSearchPath>
<DCC_ResourcePath>C:\jcl\lib\d11\debug;C:\JCL\lib\d11\debug;$(BDS)\lib\Debug;$(BDS)\Lib\Debug\Indy10</DCC_ResourcePath> <DCC_ResourcePath>C:\jcl\lib\d11\debug;C:\JCL\lib\d11\debug;$(BDS)\lib\Debug;$(BDS)\Lib\Debug\Indy10</DCC_ResourcePath>
<DCC_ObjPath>C:\jcl\lib\d11\debug;C:\JCL\lib\d11\debug;$(BDS)\lib\Debug;$(BDS)\Lib\Debug\Indy10</DCC_ObjPath> <DCC_ObjPath>C:\jcl\lib\d11\debug;C:\JCL\lib\d11\debug;$(BDS)\lib\Debug;$(BDS)\Lib\Debug\Indy10</DCC_ObjPath>
<DCC_IncludePath>C:\jcl\lib\d11\debug;C:\JCL\lib\d11\debug;$(BDS)\lib\Debug;$(BDS)\Lib\Debug\Indy10</DCC_IncludePath> <DCC_IncludePath>C:\jcl\lib\d11\debug;C:\JCL\lib\d11\debug;$(BDS)\lib\Debug;$(BDS)\Lib\Debug\Indy10</DCC_IncludePath>
</PropertyGroup> </PropertyGroup>
<ProjectExtensions> <ProjectExtensions>
<Borland.Personality>Delphi.Personality</Borland.Personality> <Borland.Personality>Delphi.Personality</Borland.Personality>
<Borland.ProjectType/> <Borland.ProjectType />
<BorlandProject> <BorlandProject>
<BorlandProject><Delphi.Personality><Parameters><Parameters Name="UseLauncher">False</Parameters><Parameters Name="LoadAllSymbols">True</Parameters><Parameters Name="LoadUnspecifiedSymbols">False</Parameters><Parameters Name="RunParams">/standalone</Parameters></Parameters><VersionInfo><VersionInfo Name="IncludeVerInfo">True</VersionInfo><VersionInfo Name="AutoIncBuild">False</VersionInfo><VersionInfo Name="MajorVer">4</VersionInfo><VersionInfo Name="MinorVer">4</VersionInfo><VersionInfo Name="Release">3</VersionInfo><VersionInfo Name="Build">0</VersionInfo><VersionInfo Name="Debug">False</VersionInfo><VersionInfo Name="PreRelease">False</VersionInfo><VersionInfo Name="Special">False</VersionInfo><VersionInfo Name="Private">False</VersionInfo><VersionInfo Name="DLL">False</VersionInfo><VersionInfo Name="Locale">3082</VersionInfo><VersionInfo Name="CodePage">1252</VersionInfo></VersionInfo><VersionInfoKeys><VersionInfoKeys Name="CompanyName"></VersionInfoKeys><VersionInfoKeys Name="FileDescription"></VersionInfoKeys><VersionInfoKeys Name="FileVersion">4.4.3.0</VersionInfoKeys><VersionInfoKeys Name="InternalName"></VersionInfoKeys><VersionInfoKeys Name="LegalCopyright"></VersionInfoKeys><VersionInfoKeys Name="LegalTrademarks"></VersionInfoKeys><VersionInfoKeys Name="OriginalFilename"></VersionInfoKeys><VersionInfoKeys Name="ProductName"></VersionInfoKeys><VersionInfoKeys Name="ProductVersion">4.4.3.0</VersionInfoKeys><VersionInfoKeys Name="Comments"></VersionInfoKeys><VersionInfoKeys Name="CompileDate">martes, 10 de marzo de 2015 18:26</VersionInfoKeys></VersionInfoKeys><Excluded_Packages> <BorlandProject><Delphi.Personality><Parameters><Parameters Name="UseLauncher">False</Parameters><Parameters Name="LoadAllSymbols">True</Parameters><Parameters Name="LoadUnspecifiedSymbols">False</Parameters><Parameters Name="RunParams">/standalone</Parameters></Parameters><VersionInfo><VersionInfo Name="IncludeVerInfo">True</VersionInfo><VersionInfo Name="AutoIncBuild">False</VersionInfo><VersionInfo Name="MajorVer">4</VersionInfo><VersionInfo Name="MinorVer">4</VersionInfo><VersionInfo Name="Release">3</VersionInfo><VersionInfo Name="Build">0</VersionInfo><VersionInfo Name="Debug">False</VersionInfo><VersionInfo Name="PreRelease">False</VersionInfo><VersionInfo Name="Special">False</VersionInfo><VersionInfo Name="Private">False</VersionInfo><VersionInfo Name="DLL">False</VersionInfo><VersionInfo Name="Locale">3082</VersionInfo><VersionInfo Name="CodePage">1252</VersionInfo></VersionInfo><VersionInfoKeys><VersionInfoKeys Name="CompanyName"></VersionInfoKeys><VersionInfoKeys Name="FileDescription"></VersionInfoKeys><VersionInfoKeys Name="FileVersion">4.4.3.0</VersionInfoKeys><VersionInfoKeys Name="InternalName"></VersionInfoKeys><VersionInfoKeys Name="LegalCopyright"></VersionInfoKeys><VersionInfoKeys Name="LegalTrademarks"></VersionInfoKeys><VersionInfoKeys Name="OriginalFilename"></VersionInfoKeys><VersionInfoKeys Name="ProductName"></VersionInfoKeys><VersionInfoKeys Name="ProductVersion">4.4.3.0</VersionInfoKeys><VersionInfoKeys Name="Comments"></VersionInfoKeys><VersionInfoKeys Name="CompileDate">martes, 10 de marzo de 2015 18:26</VersionInfoKeys></VersionInfoKeys><Excluded_Packages>
<Excluded_Packages Name="C:\Documents and Settings\All Users\Documentos\RAD Studio\5.0\Bpl\dxPSCoreD11.bpl">ExpressPrinting System by Developer Express Inc.</Excluded_Packages>
</Excluded_Packages><Source><Source Name="MainSource">FactuGES_Server.dpr</Source></Source></Delphi.Personality><ModelSupport>False</ModelSupport></BorlandProject></BorlandProject> <Excluded_Packages Name="C:\Documents and Settings\All Users\Documentos\RAD Studio\5.0\Bpl\dxPSCoreD11.bpl">ExpressPrinting System by Developer Express Inc.</Excluded_Packages>
</ProjectExtensions> </Excluded_Packages><Source><Source Name="MainSource">FactuGES_Server.dpr</Source></Source></Delphi.Personality><ModelSupport>False</ModelSupport></BorlandProject></BorlandProject>
<Import Project="$(MSBuildBinPath)\Borland.Delphi.Targets"/> </ProjectExtensions>
<ItemGroup> <Import Project="$(MSBuildBinPath)\Borland.Delphi.Targets" />
<DelphiCompile Include="FactuGES_Server.dpr"> <ItemGroup>
<MainSource>MainSource</MainSource> <DelphiCompile Include="FactuGES_Server.dpr">
</DelphiCompile> <MainSource>MainSource</MainSource>
<DCCReference Include="..\ApplicationBase\Empresas\Model\schEmpresasClient_Intf.pas"/> </DelphiCompile>
<DCCReference Include="..\ApplicationBase\Empresas\Model\schEmpresasServer_Intf.pas"/> <DCCReference Include="..\ApplicationBase\Empresas\Model\schEmpresasClient_Intf.pas" />
<DCCReference Include="..\ApplicationBase\Empresas\Model\uBizEmpresasServer.pas"/> <DCCReference Include="..\ApplicationBase\Empresas\Model\schEmpresasServer_Intf.pas" />
<DCCReference Include="..\ApplicationBase\Empresas\Servidor\srvEmpresas_Impl.pas"> <DCCReference Include="..\ApplicationBase\Empresas\Model\uBizEmpresasServer.pas" />
<Form>srvEmpresas</Form> <DCCReference Include="..\ApplicationBase\Empresas\Servidor\srvEmpresas_Impl.pas">
<DesignClass>TDARemoteService</DesignClass> <Form>srvEmpresas</Form>
</DCCReference> <DesignClass>TDARemoteService</DesignClass>
<DCCReference Include="..\ApplicationBase\ProvinciasPoblaciones\Servidor\srvProvinciasPoblaciones_Impl.pas"> </DCCReference>
<Form>srvProvinciasPoblaciones_Impl</Form> <DCCReference Include="..\ApplicationBase\ProvinciasPoblaciones\Servidor\srvProvinciasPoblaciones_Impl.pas">
<DesignClass>TDataModule</DesignClass> <Form>srvProvinciasPoblaciones_Impl</Form>
</DCCReference> <DesignClass>TDataModule</DesignClass>
<DCCReference Include="..\ApplicationBase\Usuarios\Model\schUsuariosClient_Intf.pas"/> </DCCReference>
<DCCReference Include="..\ApplicationBase\Usuarios\Model\schUsuariosServer_Intf.pas"/> <DCCReference Include="..\ApplicationBase\Usuarios\Model\schUsuariosClient_Intf.pas" />
<DCCReference Include="..\ApplicationBase\Usuarios\Servidor\srvUsuarios_Impl.pas"> <DCCReference Include="..\ApplicationBase\Usuarios\Model\schUsuariosServer_Intf.pas" />
<Form>srvUsuarios</Form> <DCCReference Include="..\ApplicationBase\Usuarios\Servidor\srvUsuarios_Impl.pas">
<DesignClass>TDataAbstractService</DesignClass> <Form>srvUsuarios</Form>
</DCCReference> <DesignClass>TDataAbstractService</DesignClass>
<DCCReference Include="..\Base\schBase_Intf.pas"/> </DCCReference>
<DCCReference Include="..\Base\Utiles\uSistemaFunc.pas"/> <DCCReference Include="..\Base\schBase_Intf.pas" />
<DCCReference Include="..\Base\Utiles\uStringsUtils.pas"/> <DCCReference Include="..\Base\Utiles\uSistemaFunc.pas" />
<DCCReference Include="..\Modulos\Albaranes de cliente\Model\schAlbaranesClienteClient_Intf.pas"/> <DCCReference Include="..\Base\Utiles\uStringsUtils.pas" />
<DCCReference Include="..\Modulos\Albaranes de cliente\Model\schAlbaranesClienteServer_Intf.pas"/> <DCCReference Include="..\Modulos\Albaranes de cliente\Model\schAlbaranesClienteClient_Intf.pas" />
<DCCReference Include="..\Modulos\Albaranes de cliente\Model\uBizAlbaranClienteServer.pas"/> <DCCReference Include="..\Modulos\Albaranes de cliente\Model\schAlbaranesClienteServer_Intf.pas" />
<DCCReference Include="..\Modulos\Albaranes de cliente\Reports\uRptAlbaranesCliente_Server.pas"> <DCCReference Include="..\Modulos\Albaranes de cliente\Model\uBizAlbaranClienteServer.pas" />
<Form>RptAlbaranesCliente</Form> <DCCReference Include="..\Modulos\Albaranes de cliente\Reports\uRptAlbaranesCliente_Server.pas">
<DesignClass>TDataModule</DesignClass> <Form>RptAlbaranesCliente</Form>
</DCCReference> <DesignClass>TDataModule</DesignClass>
<DCCReference Include="..\Modulos\Albaranes de cliente\Reports\uRptWordAlbaranCliente.pas"> </DCCReference>
<DesignClass>TDataModule</DesignClass> <DCCReference Include="..\Modulos\Albaranes de cliente\Reports\uRptWordAlbaranCliente.pas">
<Form>RptWordAlbaranCliente</Form> <DesignClass>TDataModule</DesignClass>
</DCCReference> <Form>RptWordAlbaranCliente</Form>
<DCCReference Include="..\Modulos\Albaranes de cliente\Servidor\srvAlbaranesCliente_Impl.pas"> </DCCReference>
<Form>srvAlbaranesCliente</Form> <DCCReference Include="..\Modulos\Albaranes de cliente\Servidor\srvAlbaranesCliente_Impl.pas">
<DesignClass>TDataAbstractService</DesignClass> <Form>srvAlbaranesCliente</Form>
</DCCReference> <DesignClass>TDataAbstractService</DesignClass>
<DCCReference Include="..\Modulos\Albaranes de proveedor\Model\schAlbaranesProveedorClient_Intf.pas"/> </DCCReference>
<DCCReference Include="..\Modulos\Albaranes de proveedor\Model\schAlbaranesProveedorServer_Intf.pas"/> <DCCReference Include="..\Modulos\Albaranes de proveedor\Model\schAlbaranesProveedorClient_Intf.pas" />
<DCCReference Include="..\Modulos\Albaranes de proveedor\Model\uBizAlbaranProveedorServer.PAS"/> <DCCReference Include="..\Modulos\Albaranes de proveedor\Model\schAlbaranesProveedorServer_Intf.pas" />
<DCCReference Include="..\Modulos\Albaranes de proveedor\Reports\uRptAlbaranesProveedor_Server.pas"> <DCCReference Include="..\Modulos\Albaranes de proveedor\Model\uBizAlbaranProveedorServer.PAS" />
<Form>RptAlbaranesProveedor</Form> <DCCReference Include="..\Modulos\Albaranes de proveedor\Reports\uRptAlbaranesProveedor_Server.pas">
<DesignClass>TDataModule</DesignClass> <Form>RptAlbaranesProveedor</Form>
</DCCReference> <DesignClass>TDataModule</DesignClass>
<DCCReference Include="..\Modulos\Albaranes de proveedor\Reports\uRptWordAlbaranProveedor.pas"> </DCCReference>
<DesignClass>TDataModule</DesignClass> <DCCReference Include="..\Modulos\Albaranes de proveedor\Reports\uRptWordAlbaranProveedor.pas">
<Form>RptWordAlbaranProveedor</Form> <DesignClass>TDataModule</DesignClass>
</DCCReference> <Form>RptWordAlbaranProveedor</Form>
<DCCReference Include="..\Modulos\Albaranes de proveedor\Servidor\srvAlbaranesProveedor_Impl.pas"> </DCCReference>
<Form>srvAlbaranesProveedor</Form> <DCCReference Include="..\Modulos\Albaranes de proveedor\Servidor\srvAlbaranesProveedor_Impl.pas">
<DesignClass>TDataAbstractService</DesignClass> <Form>srvAlbaranesProveedor</Form>
</DCCReference> <DesignClass>TDataAbstractService</DesignClass>
<DCCReference Include="..\Modulos\Almacenes\Model\schAlmacenesClient_Intf.pas"/> </DCCReference>
<DCCReference Include="..\Modulos\Almacenes\Model\schAlmacenesServer_Intf.pas"/> <DCCReference Include="..\Modulos\Almacenes\Model\schAlmacenesClient_Intf.pas" />
<DCCReference Include="..\Modulos\Almacenes\Servidor\srvAlmacenes_Impl.pas"> <DCCReference Include="..\Modulos\Almacenes\Model\schAlmacenesServer_Intf.pas" />
<Form>srvAlmacenes</Form> <DCCReference Include="..\Modulos\Almacenes\Servidor\srvAlmacenes_Impl.pas">
<DesignClass>TDARemoteService</DesignClass> <Form>srvAlmacenes</Form>
</DCCReference> <DesignClass>TDARemoteService</DesignClass>
<DCCReference Include="..\Modulos\Articulos\Model\schArticulosClient_Intf.pas"/> </DCCReference>
<DCCReference Include="..\Modulos\Articulos\Model\schArticulosServer_Intf.pas"/> <DCCReference Include="..\Modulos\Articulos\Model\schArticulosClient_Intf.pas" />
<DCCReference Include="..\Modulos\Articulos\Model\uBizArticulosServer.pas"/> <DCCReference Include="..\Modulos\Articulos\Model\schArticulosServer_Intf.pas" />
<DCCReference Include="..\Modulos\Articulos\Servidor\srvArticulos_Impl.pas"> <DCCReference Include="..\Modulos\Articulos\Model\uBizArticulosServer.pas" />
<Form>srvArticulos</Form> <DCCReference Include="..\Modulos\Articulos\Servidor\srvArticulos_Impl.pas">
<DesignClass>TDARemoteService</DesignClass> <Form>srvArticulos</Form>
</DCCReference> <DesignClass>TDARemoteService</DesignClass>
<DCCReference Include="..\Modulos\Comisiones\Model\schComisionesClient_Intf.pas"/> </DCCReference>
<DCCReference Include="..\Modulos\Comisiones\Model\schComisionesServer_Intf.pas"/> <DCCReference Include="..\Modulos\Comisiones\Model\schComisionesClient_Intf.pas" />
<DCCReference Include="..\Modulos\Comisiones\Model\uBizComisionesServer.pas"/> <DCCReference Include="..\Modulos\Comisiones\Model\schComisionesServer_Intf.pas" />
<DCCReference Include="..\Modulos\Comisiones\Reports\uRptComisiones_Server.pas"> <DCCReference Include="..\Modulos\Comisiones\Model\uBizComisionesServer.pas" />
<Form>RptComisiones</Form> <DCCReference Include="..\Modulos\Comisiones\Reports\uRptComisiones_Server.pas">
<DesignClass>TDataModule</DesignClass> <Form>RptComisiones</Form>
</DCCReference> <DesignClass>TDataModule</DesignClass>
<DCCReference Include="..\Modulos\Comisiones\Servidor\srvComisiones_Impl.pas"> </DCCReference>
<Form>srvComisiones</Form> <DCCReference Include="..\Modulos\Comisiones\Servidor\srvComisiones_Impl.pas">
<DesignClass>TDataAbstractService</DesignClass> <Form>srvComisiones</Form>
</DCCReference> <DesignClass>TDataAbstractService</DesignClass>
<DCCReference Include="..\Modulos\Contactos\Model\schContactosClient_Intf.pas"/> </DCCReference>
<DCCReference Include="..\Modulos\Contactos\Model\schContactosServer_Intf.pas"/> <DCCReference Include="..\Modulos\Contactos\Model\schContactosClient_Intf.pas" />
<DCCReference Include="..\Modulos\Contactos\Model\uBizAgentesServer.pas"/> <DCCReference Include="..\Modulos\Contactos\Model\schContactosServer_Intf.pas" />
<DCCReference Include="..\Modulos\Contactos\Model\uBizClientesServer.pas"/> <DCCReference Include="..\Modulos\Contactos\Model\uBizAgentesServer.pas" />
<DCCReference Include="..\Modulos\Contactos\Model\uBizContactosServer.pas"/> <DCCReference Include="..\Modulos\Contactos\Model\uBizClientesServer.pas" />
<DCCReference Include="..\Modulos\Contactos\Model\uBizEmpleadosServer.pas"/> <DCCReference Include="..\Modulos\Contactos\Model\uBizContactosServer.pas" />
<DCCReference Include="..\Modulos\Contactos\Model\uBizProveedoresServer.pas"/> <DCCReference Include="..\Modulos\Contactos\Model\uBizEmpleadosServer.pas" />
<DCCReference Include="..\Modulos\Contactos\Reports\uRptEtiquetasContacto_Server.pas"> <DCCReference Include="..\Modulos\Contactos\Model\uBizProveedoresServer.pas" />
<Form>RptEtiquetasContacto</Form> <DCCReference Include="..\Modulos\Contactos\Reports\uRptEtiquetasContacto_Server.pas">
<DesignClass>TDataModule</DesignClass> <Form>RptEtiquetasContacto</Form>
</DCCReference> <DesignClass>TDataModule</DesignClass>
<DCCReference Include="..\Modulos\Contactos\Reports\uRptFichasEmpleado_Server.pas"> </DCCReference>
<Form>RptFichasEmpleado</Form> <DCCReference Include="..\Modulos\Contactos\Reports\uRptFichasEmpleado_Server.pas">
<DesignClass>TDataModule</DesignClass> <Form>RptFichasEmpleado</Form>
</DCCReference> <DesignClass>TDataModule</DesignClass>
<DCCReference Include="..\Modulos\Contactos\Servidor\srvContactos_Impl.pas"> </DCCReference>
<Form>srvContactos</Form> <DCCReference Include="..\Modulos\Contactos\Servidor\srvContactos_Impl.pas">
<DesignClass>TDARemoteService</DesignClass> <Form>srvContactos</Form>
</DCCReference> <DesignClass>TDARemoteService</DesignClass>
<DCCReference Include="..\Modulos\Fabricantes\Model\schFabricantesClient_Intf.pas"/> </DCCReference>
<DCCReference Include="..\Modulos\Fabricantes\Model\schFabricantesServer_Intf.pas"/> <DCCReference Include="..\Modulos\Fabricantes\Model\schFabricantesClient_Intf.pas" />
<DCCReference Include="..\Modulos\Fabricantes\Servidor\srvFabricantes_Impl.pas"> <DCCReference Include="..\Modulos\Fabricantes\Model\schFabricantesServer_Intf.pas" />
<Form>srvFabricantes</Form> <DCCReference Include="..\Modulos\Fabricantes\Servidor\srvFabricantes_Impl.pas">
<DesignClass>TDataAbstractService</DesignClass> <Form>srvFabricantes</Form>
</DCCReference> <DesignClass>TDataAbstractService</DesignClass>
<DCCReference Include="..\Modulos\Facturas de cliente\Model\schFacturasClienteClient_Intf.pas"/> </DCCReference>
<DCCReference Include="..\Modulos\Facturas de cliente\Model\schFacturasClienteServer_Intf.pas"/> <DCCReference Include="..\Modulos\Facturas de cliente\Model\schFacturasClienteClient_Intf.pas" />
<DCCReference Include="..\Modulos\Facturas de cliente\Model\uBizFacturasClienteServer.pas"/> <DCCReference Include="..\Modulos\Facturas de cliente\Model\schFacturasClienteServer_Intf.pas" />
<DCCReference Include="..\Modulos\Facturas de cliente\Reports\uRptFacturasCliente_Server.pas"> <DCCReference Include="..\Modulos\Facturas de cliente\Model\uBizFacturasClienteServer.pas" />
<Form>RptFacturasCliente</Form> <DCCReference Include="..\Modulos\Facturas de cliente\Reports\uRptFacturasCliente_Server.pas">
<DesignClass>TDataModule</DesignClass> <Form>RptFacturasCliente</Form>
</DCCReference> <DesignClass>TDataModule</DesignClass>
<DCCReference Include="..\Modulos\Facturas de cliente\Reports\uRptWordFacturaCliente.pas"> </DCCReference>
<DesignClass>TDataModule</DesignClass> <DCCReference Include="..\Modulos\Facturas de cliente\Reports\uRptWordFacturaCliente.pas">
<Form>RptWordFacturaCliente</Form> <DesignClass>TDataModule</DesignClass>
</DCCReference> <Form>RptWordFacturaCliente</Form>
<DCCReference Include="..\Modulos\Facturas de cliente\Servidor\srvFacturasCliente_Impl.pas"> </DCCReference>
<Form>srvFacturasCliente</Form> <DCCReference Include="..\Modulos\Facturas de cliente\Servidor\srvFacturasCliente_Impl.pas">
<DesignClass>TDataAbstractService</DesignClass> <Form>srvFacturasCliente</Form>
</DCCReference> <DesignClass>TDataAbstractService</DesignClass>
<DCCReference Include="..\Modulos\Facturas de proveedor\Model\schFacturasProveedorClient_Intf.pas"/> </DCCReference>
<DCCReference Include="..\Modulos\Facturas de proveedor\Model\schFacturasProveedorServer_Intf.pas"/> <DCCReference Include="..\Modulos\Facturas de proveedor\Model\schFacturasProveedorClient_Intf.pas" />
<DCCReference Include="..\Modulos\Facturas de proveedor\Model\uBizFacturasProveedorServer.pas"/> <DCCReference Include="..\Modulos\Facturas de proveedor\Model\schFacturasProveedorServer_Intf.pas" />
<DCCReference Include="..\Modulos\Facturas de proveedor\Reports\uRptFacturasProveedor_Server.pas"> <DCCReference Include="..\Modulos\Facturas de proveedor\Model\uBizFacturasProveedorServer.pas" />
<Form>RptFacturasProveedor</Form> <DCCReference Include="..\Modulos\Facturas de proveedor\Reports\uRptFacturasProveedor_Server.pas">
<DesignClass>TDataModule</DesignClass> <Form>RptFacturasProveedor</Form>
</DCCReference> <DesignClass>TDataModule</DesignClass>
<DCCReference Include="..\Modulos\Facturas de proveedor\Servidor\srvFacturasProveedor_Impl.pas"> </DCCReference>
<Form>srvFacturasProveedor</Form> <DCCReference Include="..\Modulos\Facturas de proveedor\Servidor\srvFacturasProveedor_Impl.pas">
<DesignClass>TDataAbstractService</DesignClass> <Form>srvFacturasProveedor</Form>
</DCCReference> <DesignClass>TDataAbstractService</DesignClass>
<DCCReference Include="..\Modulos\Facturas proforma\Model\schFacturasProformaClient_Intf.pas"/> </DCCReference>
<DCCReference Include="..\Modulos\Facturas proforma\Model\schFacturasProformaServer_Intf.pas"/> <DCCReference Include="..\Modulos\Facturas proforma\Model\schFacturasProformaClient_Intf.pas" />
<DCCReference Include="..\Modulos\Facturas proforma\Model\uBizFacturasProformaServer.pas"/> <DCCReference Include="..\Modulos\Facturas proforma\Model\schFacturasProformaServer_Intf.pas" />
<DCCReference Include="..\Modulos\Facturas proforma\Reports\uRptFacturasProforma_Server.pas"> <DCCReference Include="..\Modulos\Facturas proforma\Model\uBizFacturasProformaServer.pas" />
<Form>RptFacturasProforma</Form> <DCCReference Include="..\Modulos\Facturas proforma\Reports\uRptFacturasProforma_Server.pas">
<DesignClass>TDataModule</DesignClass> <Form>RptFacturasProforma</Form>
</DCCReference> <DesignClass>TDataModule</DesignClass>
<DCCReference Include="..\Modulos\Facturas proforma\Servidor\srvFacturasProforma_Impl.pas"> </DCCReference>
<Form>srvFacturasProforma</Form> <DCCReference Include="..\Modulos\Facturas proforma\Servidor\srvFacturasProforma_Impl.pas">
<DesignClass>TDataAbstractService</DesignClass> <Form>srvFacturasProforma</Form>
</DCCReference> <DesignClass>TDataAbstractService</DesignClass>
<DCCReference Include="..\Modulos\Familias\Model\schFamiliasClient_Intf.pas"/> </DCCReference>
<DCCReference Include="..\Modulos\Familias\Model\schFamiliasServer_Intf.pas"/> <DCCReference Include="..\Modulos\Familias\Model\schFamiliasClient_Intf.pas" />
<DCCReference Include="..\Modulos\Familias\Servidor\srvFamilias_Impl.pas"> <DCCReference Include="..\Modulos\Familias\Model\schFamiliasServer_Intf.pas" />
<Form>srvFamilias</Form> <DCCReference Include="..\Modulos\Familias\Servidor\srvFamilias_Impl.pas">
<DesignClass>TDataAbstractService</DesignClass> <Form>srvFamilias</Form>
</DCCReference> <DesignClass>TDataAbstractService</DesignClass>
<DCCReference Include="..\Modulos\Formas de pago\Model\schFormasPagoClient_Intf.pas"/> </DCCReference>
<DCCReference Include="..\Modulos\Formas de pago\Model\schFormasPagoServer_Intf.pas"/> <DCCReference Include="..\Modulos\Formas de pago\Model\schFormasPagoClient_Intf.pas" />
<DCCReference Include="..\Modulos\Formas de pago\Servidor\srvFormasPago_Impl.pas"> <DCCReference Include="..\Modulos\Formas de pago\Model\schFormasPagoServer_Intf.pas" />
<Form>srvFormasPago</Form> <DCCReference Include="..\Modulos\Formas de pago\Servidor\srvFormasPago_Impl.pas">
<DesignClass>TDataAbstractService</DesignClass> <Form>srvFormasPago</Form>
</DCCReference> <DesignClass>TDataAbstractService</DesignClass>
<DCCReference Include="..\Modulos\Gestion de documentos\Servidor\srvGestorDocumentos_Impl.pas"> </DCCReference>
<Form>srvGestorDocumentos</Form> <DCCReference Include="..\Modulos\Gestion de documentos\Servidor\srvGestorDocumentos_Impl.pas">
<DesignClass>TDataAbstractService</DesignClass> <Form>srvGestorDocumentos</Form>
</DCCReference> <DesignClass>TDataAbstractService</DesignClass>
<DCCReference Include="..\Modulos\Gestor de informes\Servidor\srvGestorInformes_Impl.pas"> </DCCReference>
<Form>srvGestorInformes</Form> <DCCReference Include="..\Modulos\Gestor de informes\Servidor\srvGestorInformes_Impl.pas">
<DesignClass>TDataAbstractService</DesignClass> <Form>srvGestorInformes</Form>
</DCCReference> <DesignClass>TDataAbstractService</DesignClass>
<DCCReference Include="..\Modulos\Historico de movimientos\Model\schHistoricoMovimientosClient_Intf.pas"/> </DCCReference>
<DCCReference Include="..\Modulos\Historico de movimientos\Model\schHistoricoMovimientosServer_Intf.pas"/> <DCCReference Include="..\Modulos\Historico de movimientos\Model\schHistoricoMovimientosClient_Intf.pas" />
<DCCReference Include="..\Modulos\Historico de movimientos\Servidor\srvHistoricoMovimientos_Impl.pas"> <DCCReference Include="..\Modulos\Historico de movimientos\Model\schHistoricoMovimientosServer_Intf.pas" />
<Form>srvHistoricoMovimientos</Form> <DCCReference Include="..\Modulos\Historico de movimientos\Servidor\srvHistoricoMovimientos_Impl.pas">
<DesignClass>TDataAbstractService</DesignClass> <Form>srvHistoricoMovimientos</Form>
</DCCReference> <DesignClass>TDataAbstractService</DesignClass>
<DCCReference Include="..\Modulos\Impresiones\Model\schImpresionesClient_Intf.pas"/> </DCCReference>
<DCCReference Include="..\Modulos\Impresiones\Model\schImpresionesServer_Intf.pas"/> <DCCReference Include="..\Modulos\Impresiones\Model\schImpresionesClient_Intf.pas" />
<DCCReference Include="..\Modulos\Impresiones\Servidor\srvImpresiones_Impl.pas"> <DCCReference Include="..\Modulos\Impresiones\Model\schImpresionesServer_Intf.pas" />
<Form>srvImpresiones</Form> <DCCReference Include="..\Modulos\Impresiones\Servidor\srvImpresiones_Impl.pas">
<DesignClass>TDARemoteService</DesignClass> <Form>srvImpresiones</Form>
</DCCReference> <DesignClass>TDARemoteService</DesignClass>
<DCCReference Include="..\Modulos\Informe margen por articulo\Servidor\srvInfMargenArticulo_Impl.pas"> </DCCReference>
<Form>srvInfMargenArticulo</Form> <DCCReference Include="..\Modulos\Informe margen por articulo\Servidor\srvInfMargenArticulo_Impl.pas">
<DesignClass>TDARemoteService</DesignClass> <Form>srvInfMargenArticulo</Form>
</DCCReference> <DesignClass>TDARemoteService</DesignClass>
<DCCReference Include="..\Modulos\Informe ventas por articulo\Model\schInfVentasArticuloClient_Intf.pas"/> </DCCReference>
<DCCReference Include="..\Modulos\Informe ventas por articulo\Model\schInfVentasArticuloServer_Intf.pas"/> <DCCReference Include="..\Modulos\Informe ventas por articulo\Model\schInfVentasArticuloClient_Intf.pas" />
<DCCReference Include="..\Modulos\Informe ventas por articulo\Servidor\srvInfVentasArticulo_Impl.pas"> <DCCReference Include="..\Modulos\Informe ventas por articulo\Model\schInfVentasArticuloServer_Intf.pas" />
<Form>srvInfVentasArticulo</Form> <DCCReference Include="..\Modulos\Informe ventas por articulo\Servidor\srvInfVentasArticulo_Impl.pas">
<DesignClass>TDataAbstractService</DesignClass> <Form>srvInfVentasArticulo</Form>
</DCCReference> <DesignClass>TDataAbstractService</DesignClass>
<DCCReference Include="..\Modulos\Informes base\Model\schInformesClient_Intf.pas"/> </DCCReference>
<DCCReference Include="..\Modulos\Informes base\Model\schInformesServer_Intf.pas"/> <DCCReference Include="..\Modulos\Informes base\Model\schInformesClient_Intf.pas" />
<DCCReference Include="..\Modulos\Informes base\Servidor\srvInformes_Impl.pas"> <DCCReference Include="..\Modulos\Informes base\Model\schInformesServer_Intf.pas" />
<Form>srvInformes</Form> <DCCReference Include="..\Modulos\Informes base\Servidor\srvInformes_Impl.pas">
<DesignClass>TDataAbstractService</DesignClass> <Form>srvInformes</Form>
</DCCReference> <DesignClass>TDataAbstractService</DesignClass>
<DCCReference Include="..\Modulos\Inventario\Model\schInventarioClient_Intf.pas"/> </DCCReference>
<DCCReference Include="..\Modulos\Inventario\Model\schInventarioServer_Intf.pas"/> <DCCReference Include="..\Modulos\Inventario\Model\schInventarioClient_Intf.pas" />
<DCCReference Include="..\Modulos\Inventario\Servidor\srvInventario_Impl.pas"> <DCCReference Include="..\Modulos\Inventario\Model\schInventarioServer_Intf.pas" />
<Form>srvInventario</Form> <DCCReference Include="..\Modulos\Inventario\Servidor\srvInventario_Impl.pas">
<DesignClass>TDataAbstractService</DesignClass> <Form>srvInventario</Form>
</DCCReference> <DesignClass>TDataAbstractService</DesignClass>
<DCCReference Include="..\Modulos\Obras\Model\schObrasClient_Intf.pas"/> </DCCReference>
<DCCReference Include="..\Modulos\Obras\Model\schObrasServer_Intf.pas"/> <DCCReference Include="..\Modulos\Obras\Model\schObrasClient_Intf.pas" />
<DCCReference Include="..\Modulos\Obras\Model\uBizObrasServer.pas"/> <DCCReference Include="..\Modulos\Obras\Model\schObrasServer_Intf.pas" />
<DCCReference Include="..\Modulos\Obras\Servidor\srvObras_Impl.pas"> <DCCReference Include="..\Modulos\Obras\Model\uBizObrasServer.pas" />
<Form>srvObras</Form> <DCCReference Include="..\Modulos\Obras\Servidor\srvObras_Impl.pas">
<DesignClass>TDataAbstractService</DesignClass> <Form>srvObras</Form>
</DCCReference> <DesignClass>TDataAbstractService</DesignClass>
<DCCReference Include="..\Modulos\Pedidos a proveedor\Model\schPedidosProveedorClient_Intf.pas"/> </DCCReference>
<DCCReference Include="..\Modulos\Pedidos a proveedor\Model\schPedidosProveedorServer_Intf.pas"/> <DCCReference Include="..\Modulos\Pedidos a proveedor\Model\schPedidosProveedorClient_Intf.pas" />
<DCCReference Include="..\Modulos\Pedidos a proveedor\Model\uBizPedidosProveedorServer.pas"/> <DCCReference Include="..\Modulos\Pedidos a proveedor\Model\schPedidosProveedorServer_Intf.pas" />
<DCCReference Include="..\Modulos\Pedidos a proveedor\Reports\uRptPedidosProveedor_Server.pas"> <DCCReference Include="..\Modulos\Pedidos a proveedor\Model\uBizPedidosProveedorServer.pas" />
<Form>RptPedidosProveedor</Form> <DCCReference Include="..\Modulos\Pedidos a proveedor\Reports\uRptPedidosProveedor_Server.pas">
<DesignClass>TDataModule</DesignClass> <Form>RptPedidosProveedor</Form>
</DCCReference> <DesignClass>TDataModule</DesignClass>
<DCCReference Include="..\Modulos\Pedidos a proveedor\Reports\uRptWordPedidoProveedor.pas"> </DCCReference>
<DesignClass>TDataModule</DesignClass> <DCCReference Include="..\Modulos\Pedidos a proveedor\Reports\uRptWordPedidoProveedor.pas">
<Form>RptWordPedidoProveedor</Form> <DesignClass>TDataModule</DesignClass>
</DCCReference> <Form>RptWordPedidoProveedor</Form>
<DCCReference Include="..\Modulos\Pedidos a proveedor\Servidor\srvPedidosProveedor_Impl.pas"> </DCCReference>
<Form>srvPedidosProveedor</Form> <DCCReference Include="..\Modulos\Pedidos a proveedor\Servidor\srvPedidosProveedor_Impl.pas">
<DesignClass>TDataAbstractService</DesignClass> <Form>srvPedidosProveedor</Form>
</DCCReference> <DesignClass>TDataAbstractService</DesignClass>
<DCCReference Include="..\Modulos\Pedidos de cliente\Model\schPedidosClienteClient_Intf.pas"/> </DCCReference>
<DCCReference Include="..\Modulos\Pedidos de cliente\Model\schPedidosClienteServer_Intf.pas"/> <DCCReference Include="..\Modulos\Pedidos de cliente\Model\schPedidosClienteClient_Intf.pas" />
<DCCReference Include="..\Modulos\Pedidos de cliente\Model\uBizPedidosClienteServer.pas"/> <DCCReference Include="..\Modulos\Pedidos de cliente\Model\schPedidosClienteServer_Intf.pas" />
<DCCReference Include="..\Modulos\Pedidos de cliente\Reports\uRptPedidosCliente_Server.pas"> <DCCReference Include="..\Modulos\Pedidos de cliente\Model\uBizPedidosClienteServer.pas" />
<Form>RptPedidosCliente</Form> <DCCReference Include="..\Modulos\Pedidos de cliente\Reports\uRptPedidosCliente_Server.pas">
<DesignClass>TDataModule</DesignClass> <Form>RptPedidosCliente</Form>
</DCCReference> <DesignClass>TDataModule</DesignClass>
<DCCReference Include="..\Modulos\Pedidos de cliente\Servidor\srvPedidosCliente_Impl.pas"> </DCCReference>
<Form>srvPedidosCliente</Form> <DCCReference Include="..\Modulos\Pedidos de cliente\Servidor\srvPedidosCliente_Impl.pas">
<DesignClass>TDataAbstractService</DesignClass> <Form>srvPedidosCliente</Form>
</DCCReference> <DesignClass>TDataAbstractService</DesignClass>
<DCCReference Include="..\Modulos\Presupuestos de cliente\Model\schPresupuestosClienteClient_Intf.pas"/> </DCCReference>
<DCCReference Include="..\Modulos\Presupuestos de cliente\Model\schPresupuestosClienteServer_Intf.pas"/> <DCCReference Include="..\Modulos\Presupuestos de cliente\Model\schPresupuestosClienteClient_Intf.pas" />
<DCCReference Include="..\Modulos\Presupuestos de cliente\Model\uBizPresupuestosClienteServer.pas"/> <DCCReference Include="..\Modulos\Presupuestos de cliente\Model\schPresupuestosClienteServer_Intf.pas" />
<DCCReference Include="..\Modulos\Presupuestos de cliente\Reports\uRptPresupuestosCliente_Server.pas"> <DCCReference Include="..\Modulos\Presupuestos de cliente\Model\uBizPresupuestosClienteServer.pas" />
<Form>RptPresupuestosCliente</Form> <DCCReference Include="..\Modulos\Presupuestos de cliente\Reports\uRptPresupuestosCliente_Server.pas">
<DesignClass>TDataModule</DesignClass> <Form>RptPresupuestosCliente</Form>
</DCCReference> <DesignClass>TDataModule</DesignClass>
<DCCReference Include="..\Modulos\Presupuestos de cliente\Reports\uRptWordCertificadoTrabajo_Server.pas"> </DCCReference>
<DesignClass>TDataModule</DesignClass> <DCCReference Include="..\Modulos\Presupuestos de cliente\Reports\uRptWordCertificadoTrabajo_Server.pas">
<Form>RptWordCertificadoTrabajo</Form> <DesignClass>TDataModule</DesignClass>
</DCCReference> <Form>RptWordCertificadoTrabajo</Form>
<DCCReference Include="..\Modulos\Presupuestos de cliente\Reports\uRptWordPresupuestoCliente.pas"> </DCCReference>
<DesignClass>TDataModule</DesignClass> <DCCReference Include="..\Modulos\Presupuestos de cliente\Reports\uRptWordPresupuestoCliente.pas">
<Form>RptWordPresupuestoCliente</Form> <DesignClass>TDataModule</DesignClass>
</DCCReference> <Form>RptWordPresupuestoCliente</Form>
<DCCReference Include="..\Modulos\Presupuestos de cliente\Servidor\srvPresupuestosCliente_Impl.pas"> </DCCReference>
<Form>srvPresupuestosCliente</Form> <DCCReference Include="..\Modulos\Presupuestos de cliente\Servidor\srvPresupuestosCliente_Impl.pas">
<DesignClass>TDataAbstractService</DesignClass> <Form>srvPresupuestosCliente</Form>
</DCCReference> <DesignClass>TDataAbstractService</DesignClass>
<DCCReference Include="..\Modulos\Recibos de cliente\Model\schRecibosClienteClient_Intf.pas"/> </DCCReference>
<DCCReference Include="..\Modulos\Recibos de cliente\Model\schRecibosClienteServer_Intf.pas"/> <DCCReference Include="..\Modulos\Recibos de cliente\Model\schRecibosClienteClient_Intf.pas" />
<DCCReference Include="..\Modulos\Recibos de cliente\Reports\uRptRecibosCliente_Server.pas"> <DCCReference Include="..\Modulos\Recibos de cliente\Model\schRecibosClienteServer_Intf.pas" />
<Form>RptRecibosCliente</Form> <DCCReference Include="..\Modulos\Recibos de cliente\Reports\uRptRecibosCliente_Server.pas">
<DesignClass>TDataModule</DesignClass> <Form>RptRecibosCliente</Form>
</DCCReference> <DesignClass>TDataModule</DesignClass>
<DCCReference Include="..\Modulos\Recibos de cliente\Servidor\srvRecibosCliente_Impl.pas"> </DCCReference>
<Form>srvRecibosCliente</Form> <DCCReference Include="..\Modulos\Recibos de cliente\Servidor\srvRecibosCliente_Impl.pas">
<DesignClass>TDataAbstractService</DesignClass> <Form>srvRecibosCliente</Form>
</DCCReference> <DesignClass>TDataAbstractService</DesignClass>
<DCCReference Include="..\Modulos\Recibos de proveedor\Model\schRecibosProveedorClient_Intf.pas"/> </DCCReference>
<DCCReference Include="..\Modulos\Recibos de proveedor\Model\schRecibosProveedorServer_Intf.pas"/> <DCCReference Include="..\Modulos\Recibos de proveedor\Model\schRecibosProveedorClient_Intf.pas" />
<DCCReference Include="..\Modulos\Recibos de proveedor\Reports\uRptRecibosProveedor_Server.pas"> <DCCReference Include="..\Modulos\Recibos de proveedor\Model\schRecibosProveedorServer_Intf.pas" />
<Form>RptRecibosProveedor</Form> <DCCReference Include="..\Modulos\Recibos de proveedor\Reports\uRptRecibosProveedor_Server.pas">
<DesignClass>TDataModule</DesignClass> <Form>RptRecibosProveedor</Form>
</DCCReference> <DesignClass>TDataModule</DesignClass>
<DCCReference Include="..\Modulos\Recibos de proveedor\Servidor\srvRecibosProveedor_Impl.pas"> </DCCReference>
<Form>srvRecibosProveedor</Form> <DCCReference Include="..\Modulos\Recibos de proveedor\Servidor\srvRecibosProveedor_Impl.pas">
<DesignClass>TDataAbstractService</DesignClass> <Form>srvRecibosProveedor</Form>
</DCCReference> <DesignClass>TDataAbstractService</DesignClass>
<DCCReference Include="..\Modulos\Referencias\Model\schReferenciasClient_Intf.pas"/> </DCCReference>
<DCCReference Include="..\Modulos\Referencias\Model\schReferenciasServer_Intf.pas"/> <DCCReference Include="..\Modulos\Referencias\Model\schReferenciasClient_Intf.pas" />
<DCCReference Include="..\Modulos\Referencias\Servidor\srvReferencias_Impl.pas"> <DCCReference Include="..\Modulos\Referencias\Model\schReferenciasServer_Intf.pas" />
<Form>srvReferencias</Form> <DCCReference Include="..\Modulos\Referencias\Servidor\srvReferencias_Impl.pas">
<DesignClass>TDataAbstractService</DesignClass> <Form>srvReferencias</Form>
</DCCReference> <DesignClass>TDataAbstractService</DesignClass>
<DCCReference Include="..\Modulos\Registro de correos\Servidor\srvRegistroCorreos_Impl.pas"> </DCCReference>
<Form>srvRegistroCorreos</Form> <DCCReference Include="..\Modulos\Registro de correos\Servidor\srvRegistroCorreos_Impl.pas">
<DesignClass>TDataAbstractService</DesignClass> <Form>srvRegistroCorreos</Form>
</DCCReference> <DesignClass>TDataAbstractService</DesignClass>
<DCCReference Include="..\Modulos\Remesas de cliente\Model\schRemesasClienteClient_Intf.pas"/> </DCCReference>
<DCCReference Include="..\Modulos\Remesas de cliente\Model\schRemesasClienteServer_Intf.pas"/> <DCCReference Include="..\Modulos\Remesas de cliente\Model\schRemesasClienteClient_Intf.pas" />
<DCCReference Include="..\Modulos\Remesas de cliente\Model\uBizRemesasClienteServer.pas"/> <DCCReference Include="..\Modulos\Remesas de cliente\Model\schRemesasClienteServer_Intf.pas" />
<DCCReference Include="..\Modulos\Remesas de cliente\Reports\uRptRemesasCliente_Server.pas"> <DCCReference Include="..\Modulos\Remesas de cliente\Model\uBizRemesasClienteServer.pas" />
<Form>RptRemesasCliente</Form> <DCCReference Include="..\Modulos\Remesas de cliente\Reports\uRptRemesasCliente_Server.pas">
<DesignClass>TDataModule</DesignClass> <Form>RptRemesasCliente</Form>
</DCCReference> <DesignClass>TDataModule</DesignClass>
<DCCReference Include="..\Modulos\Remesas de cliente\Servidor\srvRemesasCliente_Impl.pas"> </DCCReference>
<Form>srvRemesasCliente</Form> <DCCReference Include="..\Modulos\Remesas de cliente\Servidor\srvRemesasCliente_Impl.pas">
<DesignClass>TDataAbstractService</DesignClass> <Form>srvRemesasCliente</Form>
</DCCReference> <DesignClass>TDataAbstractService</DesignClass>
<DCCReference Include="..\Modulos\Remesas de proveedor\Model\schRemesasProveedorClient_Intf.pas"/> </DCCReference>
<DCCReference Include="..\Modulos\Remesas de proveedor\Model\schRemesasProveedorServer_Intf.pas"/> <DCCReference Include="..\Modulos\Remesas de proveedor\Model\schRemesasProveedorClient_Intf.pas" />
<DCCReference Include="..\Modulos\Remesas de proveedor\Model\uBizRemesasProveedorServer.pas"/> <DCCReference Include="..\Modulos\Remesas de proveedor\Model\schRemesasProveedorServer_Intf.pas" />
<DCCReference Include="..\Modulos\Remesas de proveedor\Reports\uRptRemesasProveedor_Server.pas"> <DCCReference Include="..\Modulos\Remesas de proveedor\Model\uBizRemesasProveedorServer.pas" />
<Form>RptRemesasProveedor</Form> <DCCReference Include="..\Modulos\Remesas de proveedor\Reports\uRptRemesasProveedor_Server.pas">
<DesignClass>TDataModule</DesignClass> <Form>RptRemesasProveedor</Form>
</DCCReference> <DesignClass>TDataModule</DesignClass>
<DCCReference Include="..\Modulos\Remesas de proveedor\Servidor\srvRemesasProveedor_Impl.pas"> </DCCReference>
<Form>srvRemesasProveedor</Form> <DCCReference Include="..\Modulos\Remesas de proveedor\Servidor\srvRemesasProveedor_Impl.pas">
<DesignClass>TDataAbstractService</DesignClass> <Form>srvRemesasProveedor</Form>
</DCCReference> <DesignClass>TDataAbstractService</DesignClass>
<DCCReference Include="..\Modulos\Tienda web\Model\schTiendaWebClient_Intf.pas"/> </DCCReference>
<DCCReference Include="..\Modulos\Tienda web\Model\schTiendaWebServer_Intf.pas"/> <DCCReference Include="..\Modulos\Tienda web\Model\schTiendaWebClient_Intf.pas" />
<DCCReference Include="..\Modulos\Tienda web\Model\uBizOscAddressBookServer.pas"/> <DCCReference Include="..\Modulos\Tienda web\Model\schTiendaWebServer_Intf.pas" />
<DCCReference Include="..\Modulos\Tienda web\Model\uBizOscCustomerServer.pas"/> <DCCReference Include="..\Modulos\Tienda web\Model\uBizOscAddressBookServer.pas" />
<DCCReference Include="..\Modulos\Tienda web\Model\uBizOscManufacturerServer.pas"/> <DCCReference Include="..\Modulos\Tienda web\Model\uBizOscCustomerServer.pas" />
<DCCReference Include="..\Modulos\Tienda web\Model\uBizOscOrderServer.pas"/> <DCCReference Include="..\Modulos\Tienda web\Model\uBizOscManufacturerServer.pas" />
<DCCReference Include="..\Modulos\Tienda web\Model\uBizOscProductServer.pas"/> <DCCReference Include="..\Modulos\Tienda web\Model\uBizOscOrderServer.pas" />
<DCCReference Include="..\Modulos\Tienda web\Model\uBizTiendaWebServer.pas"/> <DCCReference Include="..\Modulos\Tienda web\Model\uBizOscProductServer.pas" />
<DCCReference Include="..\Modulos\Tienda web\Servidor\srvTiendaWeb_Impl.pas"> <DCCReference Include="..\Modulos\Tienda web\Model\uBizTiendaWebServer.pas" />
<Form>srvTiendaWeb</Form> <DCCReference Include="..\Modulos\Tienda web\Servidor\srvTiendaWeb_Impl.pas">
<DesignClass>TDataAbstractService</DesignClass> <Form>srvTiendaWeb</Form>
</DCCReference> <DesignClass>TDataAbstractService</DesignClass>
<DCCReference Include="..\Modulos\Tipos de IVA\Model\schTiposIVAClient_Intf.pas"/> </DCCReference>
<DCCReference Include="..\Modulos\Tipos de IVA\Model\schTiposIVAServer_Intf.pas"/> <DCCReference Include="..\Modulos\Tipos de IVA\Model\schTiposIVAClient_Intf.pas" />
<DCCReference Include="..\Modulos\Tipos de IVA\Servidor\srvTiposIVA_Impl.pas"> <DCCReference Include="..\Modulos\Tipos de IVA\Model\schTiposIVAServer_Intf.pas" />
<Form>srvTiposIVA</Form> <DCCReference Include="..\Modulos\Tipos de IVA\Servidor\srvTiposIVA_Impl.pas">
<DesignClass>TDataAbstractService</DesignClass> <Form>srvTiposIVA</Form>
</DCCReference> <DesignClass>TDataAbstractService</DesignClass>
<DCCReference Include="..\Modulos\TiposDocumento\Model\schTiposDocumentoClient_Intf.pas"/> </DCCReference>
<DCCReference Include="..\Modulos\TiposDocumento\Model\schTiposDocumentoServer_Intf.pas"/> <DCCReference Include="..\Modulos\TiposDocumento\Model\schTiposDocumentoClient_Intf.pas" />
<DCCReference Include="..\Modulos\TiposDocumento\Servidor\srvTiposDocumento_Impl.pas"> <DCCReference Include="..\Modulos\TiposDocumento\Model\schTiposDocumentoServer_Intf.pas" />
<Form>srvTiposDocumento</Form> <DCCReference Include="..\Modulos\TiposDocumento\Servidor\srvTiposDocumento_Impl.pas">
<DesignClass>TDataAbstractService</DesignClass> <Form>srvTiposDocumento</Form>
</DCCReference> <DesignClass>TDataAbstractService</DesignClass>
<DCCReference Include="..\Modulos\Unidades de medida\Model\schUnidadesMedidaClient_Intf.pas"/> </DCCReference>
<DCCReference Include="..\Modulos\Unidades de medida\Model\schUnidadesMedidaServer_Intf.pas"/> <DCCReference Include="..\Modulos\Unidades de medida\Model\schUnidadesMedidaClient_Intf.pas" />
<DCCReference Include="..\Modulos\Unidades de medida\Servidor\srvUnidadesMedida_Impl.pas"> <DCCReference Include="..\Modulos\Unidades de medida\Model\schUnidadesMedidaServer_Intf.pas" />
<Form>srvUnidadesMedida</Form> <DCCReference Include="..\Modulos\Unidades de medida\Servidor\srvUnidadesMedida_Impl.pas">
<DesignClass>TDataAbstractService</DesignClass> <Form>srvUnidadesMedida</Form>
</DCCReference> <DesignClass>TDataAbstractService</DesignClass>
<DCCReference Include="..\Servicios\FactuGES_Intf.pas"/> </DCCReference>
<DCCReference Include="..\Servicios\FactuGES_Invk.pas"/> <DCCReference Include="..\Servicios\FactuGES_Intf.pas" />
<DCCReference Include="Configuracion\srvConfiguracion_Impl.pas"> <DCCReference Include="..\Servicios\FactuGES_Invk.pas" />
<Form>srvConfiguracion</Form> <DCCReference Include="Configuracion\srvConfiguracion_Impl.pas">
<DesignClass>TDataAbstractService</DesignClass> <Form>srvConfiguracion</Form>
</DCCReference> <DesignClass>TDataAbstractService</DesignClass>
<DCCReference Include="Configuracion\uConexionBD.pas"> </DCCReference>
<Form>frConexionBD</Form> <DCCReference Include="Configuracion\uConexionBD.pas">
<DesignClass>TFrame</DesignClass> <Form>frConexionBD</Form>
</DCCReference> <DesignClass>TFrame</DesignClass>
<DCCReference Include="Configuracion\uConexionOSC.pas"> </DCCReference>
<Form>frConexionOSC</Form> <DCCReference Include="Configuracion\uConexionOSC.pas">
<DesignClass>TFrame</DesignClass> <Form>frConexionOSC</Form>
</DCCReference> <DesignClass>TFrame</DesignClass>
<DCCReference Include="Configuracion\uConfGeneral.pas"> </DCCReference>
<Form>frConfGeneral</Form> <DCCReference Include="Configuracion\uConfGeneral.pas">
<DesignClass>TFrame</DesignClass> <Form>frConfGeneral</Form>
</DCCReference> <DesignClass>TFrame</DesignClass>
<DCCReference Include="Configuracion\uConfiguracion.pas"> </DCCReference>
<Form>fConfiguracion</Form> <DCCReference Include="Configuracion\uConfiguracion.pas">
<DesignClass>TForm</DesignClass> <Form>fConfiguracion</Form>
</DCCReference> <DesignClass>TForm</DesignClass>
<DCCReference Include="Configuracion\uFrameConfiguracion.pas"> </DCCReference>
<Form>FrameConfiguracion</Form> <DCCReference Include="Configuracion\uFrameConfiguracion.pas">
<DesignClass>TFrame</DesignClass> <Form>FrameConfiguracion</Form>
</DCCReference> <DesignClass>TFrame</DesignClass>
<DCCReference Include="srvLogin_Impl.pas"> </DCCReference>
<Form>srvLogin</Form> <DCCReference Include="srvLogin_Impl.pas">
<DesignClass>TDARemoteService</DesignClass> <Form>srvLogin</Form>
</DCCReference> <DesignClass>TDARemoteService</DesignClass>
<DCCReference Include="uAcercaDe.pas"> </DCCReference>
<Form>fAcercaDe</Form> <DCCReference Include="uAcercaDe.pas">
</DCCReference> <Form>fAcercaDe</Form>
<DCCReference Include="uDataModuleServer.pas"> </DCCReference>
<Form>dmServer</Form> <DCCReference Include="uDataModuleServer.pas">
<DesignClass>TDataModule</DesignClass> <Form>dmServer</Form>
</DCCReference> <DesignClass>TDataModule</DesignClass>
<DCCReference Include="uServerMainForm.pas"> </DCCReference>
<Form>fServerForm</Form> <DCCReference Include="uServerMainForm.pas">
</DCCReference> <Form>fServerForm</Form>
<DCCReference Include="Utiles\AHWord97.pas"/> </DCCReference>
<DCCReference Include="Utiles\MidasSpeedFix.pas"/> <DCCReference Include="Utiles\AHWord97.pas" />
<DCCReference Include="Utiles\uBusinessUtils.pas"/> <DCCReference Include="Utiles\MidasSpeedFix.pas" />
<DCCReference Include="Utiles\uDatabaseUtils.pas"/> <DCCReference Include="Utiles\uBusinessUtils.pas" />
<DCCReference Include="Utiles\uReferenciasUtils.pas"/> <DCCReference Include="Utiles\uDatabaseUtils.pas" />
<DCCReference Include="Utiles\uRestriccionesUsuarioUtils.pas"/> <DCCReference Include="Utiles\uReferenciasUtils.pas" />
<DCCReference Include="Utiles\uSchemaUtilsServer.pas"/> <DCCReference Include="Utiles\uRestriccionesUsuarioUtils.pas" />
<DCCReference Include="Utiles\uServerAppUtils.pas"/> <DCCReference Include="Utiles\uSchemaUtilsServer.pas" />
<DCCReference Include="Utiles\uSesionesUtils.pas"/> <DCCReference Include="Utiles\uServerAppUtils.pas" />
<DCCReference Include="Utiles\uTiendaWebUtils.pas"/> <DCCReference Include="Utiles\uSesionesUtils.pas" />
</ItemGroup> <DCCReference Include="Utiles\uTiendaWebUtils.pas" />
</ItemGroup>
</Project> </Project>
<!-- EurekaLog First Line <!-- EurekaLog First Line
[Exception Log] [Exception Log]