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

Version 1.4.7

Browse Source 
Tareas #611: Todos los informes estadisticos tendrán ano1 y ano2 como variables
Tareas #612: Repaso de todos los informes estadisticos para que los campos descripcion sean tipo texto
Tareas #709: Presupuesto descuentos de articulos para cada cliente

git-svn-id: https://192.168.0.254/svn/Proyectos.LuisLeon_FactuGES2/trunk@136 b2cfbe5a-eba1-4a0c-8b32-7feea0a119f2
This commit is contained in:
roberto 2011-08-24 11:04:13 +00:00
parent 1f6c83e2c6
commit acca485d58
70 changed files with 2341 additions and 777 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

BIN
Build/Build.fbl6
View File

Binary file not shown.

27
Database/scripts/factuges.sql
View File

@ -121,6 +121,9 @@ SET GENERATOR GEN_CATEGORIAS_ID TO 1;
CREATE GENERATOR GEN_CLIENTES_DTOS_PROV_ID;
SET GENERATOR GEN_CLIENTES_DTOS_PROV_ID TO 1;
CREATE GENERATOR GEN_CLIENTES_DTOS_ART_ID;
SET GENERATOR GEN_CLIENTES_DTOS_ART_ID TO 1;
CREATE GENERATOR GEN_CLIENTES_GRUPOS_ID;
SET GENERATOR GEN_CLIENTES_GRUPOS_ID TO 1;
@ -503,6 +506,13 @@ CREATE TABLE CLIENTES_DTOS_PROVEEDORES (
DESCUENTO TIPO_PORCENTAJE DEFAULT 0
);
CREATE TABLE CLIENTES_DTOS_ARTICULOS (
ID TIPO_ID NOT NULL /* TIPO_ID = INTEGER */,
ID_CLIENTE TIPO_ID DEFAULT 0 NOT NULL /* TIPO_ID = INTEGER */,
ID_ARTICULO SMALLINT DEFAULT 0 NOT NULL,
DESCUENTO TIPO_PORCENTAJE DEFAULT 0 /* TIPO_PORCENTAJE = FLOAT */
);
CREATE TABLE CLIENTES_GRUPOS (
ID TIPO_ID NOT NULL,
DESCRIPCION VARCHAR(255)
@ -3987,8 +3997,14 @@ SELECT
ARTICULOS.PRECIO_COSTE,
CLIENTES_DTOS_PROVEEDORES.DESCUENTO,
(ARTICULOS.PRECIO_COSTE * CLIENTES_DTOS_PROVEEDORES.DESCUENTO)/100 as PRECIO_NETO
CASE when (CLIENTES_DTOS_ARTICULOS.DESCUENTO IS not NULL) then CLIENTES_DTOS_ARTICULOS.DESCUENTO
else CLIENTES_DTOS_PROVEEDORES.DESCUENTO
end as DESCUENTO,
CASE when (CLIENTES_DTOS_ARTICULOS.DESCUENTO IS not NULL) then (ARTICULOS.PRECIO_COSTE * CLIENTES_DTOS_ARTICULOS.DESCUENTO)/100
else (ARTICULOS.PRECIO_COSTE * CLIENTES_DTOS_PROVEEDORES.DESCUENTO)/100
end as PRECIO_NETO
from V_PED_CLI_ARTICULOS
left join PEDIDOS_CLIENTE on (PEDIDOS_CLIENTE.id = V_PED_CLI_ARTICULOS.id_pedido)
@ -3999,6 +4015,10 @@ LEFT OUTER JOIN CLIENTES_DTOS_PROVEEDORES
ON ((CLIENTES_DTOS_PROVEEDORES.ID_PROVEEDOR = ARTICULOS.ID_PROVEEDOR)
AND (CLIENTES_DTOS_PROVEEDORES.ID_CLIENTE = contactos.id))
LEFT OUTER JOIN CLIENTES_DTOS_ARTICULOS
ON ((CLIENTES_DTOS_ARTICULOS.ID_ARTICULO = ARTICULOS.ID)
AND (CLIENTES_DTOS_ARTICULOS.ID_CLIENTE = contactos.id))
where cantidad_pendiente > 0;
/*Aqui tendremos la situacion de todos los pedidos, por lógica de grupos*/
@ -4490,6 +4510,7 @@ ALTER TABLE ARTICULOS_PROVEEDORES ADD CONSTRAINT PK_ARTICULOS_PROVEEDORES PRIMAR
ALTER TABLE CATEGORIAS ADD CONSTRAINT PK_CATEGORIAS PRIMARY KEY (ID);
ALTER TABLE CLIENTES_DATOS ADD CONSTRAINT PK_CLIENTES_DATOS PRIMARY KEY (ID_CLIENTE);
ALTER TABLE CLIENTES_DTOS_PROVEEDORES ADD CONSTRAINT PK_CLIENTES_DTOS_PROV PRIMARY KEY (ID);
ALTER TABLE CLIENTES_DTOS_ARTICULOS ADD CONSTRAINT PK_CLIENTES_DTOS_ART PRIMARY KEY (ID);
ALTER TABLE CLIENTES_GRUPOS ADD CONSTRAINT PK_CLIENTES_GRUPOS PRIMARY KEY (ID);
ALTER TABLE COMISIONES_LIQUIDADAS ADD CONSTRAINT PK_COMISIONES_LIQUIDADAS PRIMARY KEY (ID);
ALTER TABLE CONFIGURACION ADD CONSTRAINT PK_CONFIGURACION PRIMARY KEY (ID);
@ -4623,6 +4644,8 @@ CREATE INDEX IDX_CLIENTES_DATOS1 ON CLIENTES_DATOS (ID_FORMA_PAGO);
CREATE INDEX IDX_CLIENTES_DATOS_ID_AGENTE ON CLIENTES_DATOS (ID_AGENTE);
CREATE INDEX IDX_CLIENTES_DTOS_PROV_ID_CLI ON CLIENTES_DTOS_PROVEEDORES (ID_CLIENTE);
CREATE INDEX IDX_CLIENTES_DTOS_PROV_ID_PROV ON CLIENTES_DTOS_PROVEEDORES (ID_PROVEEDOR);
CREATE INDEX CLIENTES_DTOS_ARTICULOS_IDX1 ON CLIENTES_DTOS_ARTICULOS (ID_CLIENTE);
CREATE INDEX CLIENTES_DTOS_ARTICULOS_IDX2 ON CLIENTES_DTOS_ARTICULOS (ID_ARTICULO);
CREATE INDEX IDX_COMISIONES_LIQUIDADAS ON COMISIONES_LIQUIDADAS (ID_EMPRESA);
CREATE INDEX IDX_CONFIGURACION ON CONFIGURACION (ID_EMPRESA);
CREATE INDEX IDX_CONTACTOS_CATEGORIAS ON CONTACTOS_CATEGORIAS (ID_CONTACTO);

BIN
Source/Base/Base.RES
View File

Binary file not shown.

2
Source/Cliente/FactuGES.dproj
View File

@ -53,7 +53,7 @@
<Borland.Personality>Delphi.Personality</Borland.Personality>
<Borland.ProjectType>VCLApplication</Borland.ProjectType>
<BorlandProject>
<BorlandProject><Delphi.Personality><Parameters><Parameters Name="UseLauncher">False</Parameters><Parameters Name="LoadAllSymbols">True</Parameters><Parameters Name="LoadUnspecifiedSymbols">False</Parameters></Parameters><Language><Language Name="RootDir">C:\Archivos de programa\Borland\Delphi7\Bin\</Language></Language><VersionInfo><VersionInfo Name="IncludeVerInfo">True</VersionInfo><VersionInfo Name="AutoIncBuild">False</VersionInfo><VersionInfo Name="MajorVer">4</VersionInfo><VersionInfo Name="MinorVer">1</VersionInfo><VersionInfo Name="Release">6</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">Rodax Software S.L.</VersionInfoKeys><VersionInfoKeys Name="FileDescription"></VersionInfoKeys><VersionInfoKeys Name="FileVersion">4.1.6.0</VersionInfoKeys><VersionInfoKeys Name="InternalName">FactuGES</VersionInfoKeys><VersionInfoKeys Name="LegalCopyright"></VersionInfoKeys><VersionInfoKeys Name="LegalTrademarks"></VersionInfoKeys><VersionInfoKeys Name="OriginalFilename"></VersionInfoKeys><VersionInfoKeys Name="ProductName">FactuGES</VersionInfoKeys><VersionInfoKeys Name="ProductVersion">4.1.6.0</VersionInfoKeys><VersionInfoKeys Name="Comments"></VersionInfoKeys></VersionInfoKeys><Excluded_Packages></Excluded_Packages><Source><Source Name="MainSource">FactuGES.dpr</Source></Source></Delphi.Personality><ModelSupport>False</ModelSupport></BorlandProject></BorlandProject>
<BorlandProject><Delphi.Personality><Parameters><Parameters Name="UseLauncher">False</Parameters><Parameters Name="LoadAllSymbols">True</Parameters><Parameters Name="LoadUnspecifiedSymbols">False</Parameters></Parameters><Language><Language Name="RootDir">C:\Archivos de programa\Borland\Delphi7\Bin\</Language></Language><VersionInfo><VersionInfo Name="IncludeVerInfo">True</VersionInfo><VersionInfo Name="AutoIncBuild">False</VersionInfo><VersionInfo Name="MajorVer">4</VersionInfo><VersionInfo Name="MinorVer">1</VersionInfo><VersionInfo Name="Release">7</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">Rodax Software S.L.</VersionInfoKeys><VersionInfoKeys Name="FileDescription"></VersionInfoKeys><VersionInfoKeys Name="FileVersion">4.1.7.0</VersionInfoKeys><VersionInfoKeys Name="InternalName">FactuGES</VersionInfoKeys><VersionInfoKeys Name="LegalCopyright"></VersionInfoKeys><VersionInfoKeys Name="LegalTrademarks"></VersionInfoKeys><VersionInfoKeys Name="OriginalFilename"></VersionInfoKeys><VersionInfoKeys Name="ProductName">FactuGES</VersionInfoKeys><VersionInfoKeys Name="ProductVersion">4.1.7.0</VersionInfoKeys><VersionInfoKeys Name="Comments"></VersionInfoKeys></VersionInfoKeys><Excluded_Packages></Excluded_Packages><Source><Source Name="MainSource">FactuGES.dpr</Source></Source></Delphi.Personality><ModelSupport>False</ModelSupport></BorlandProject></BorlandProject>
</ProjectExtensions>
<Import Project="$(MSBuildBinPath)\Borland.Delphi.Targets" />
<ItemGroup>

8
Source/Cliente/FactuGES.rc
View File

@ -1,7 +1,7 @@
MAINICON ICON "C:\Codigo\Resources\Iconos\Factuges.ico"
1 VERSIONINFO
FILEVERSION 4,1,6,0
PRODUCTVERSION 4,1,6,0
FILEVERSION 4,1,7,0
PRODUCTVERSION 4,1,7,0
FILEFLAGSMASK 0x3FL
FILEFLAGS 0x00L
FILEOS 0x40004L
@ -13,10 +13,10 @@ BEGIN
BLOCK "0C0A04E4"
BEGIN
VALUE "CompanyName", "Rodax Software S.L.\0"
VALUE "FileVersion", "4.1.6.0\0"
VALUE "FileVersion", "4.1.7.0\0"
VALUE "InternalName", "FactuGES\0"
VALUE "ProductName", "FactuGES\0"
VALUE "ProductVersion", "4.1.6.0\0"
VALUE "ProductVersion", "4.1.7.0\0"
END
END
BLOCK "VarFileInfo"

BIN
Source/Cliente/FactuGES.res
View File

Binary file not shown.

48
Source/GUIBase/GUIBase.dproj
View File

@ -59,30 +59,30 @@
<DelphiCompile Include="GUIBase.dpk">
<MainSource>MainSource</MainSource>
</DelphiCompile>
<DCCReference Include="..\Modulos\Pedidos de cliente\Base.dcp" />
<DCCReference Include="..\Modulos\Pedidos de cliente\cxLibraryD11.dcp" />
<DCCReference Include="..\Modulos\Pedidos de cliente\cxTreeListD11.dcp" />
<DCCReference Include="..\Modulos\Pedidos de cliente\dbrtl.dcp" />
<DCCReference Include="..\Modulos\Pedidos de cliente\dxBarD11.dcp" />
<DCCReference Include="..\Modulos\Pedidos de cliente\dxBarExtItemsD11.dcp" />
<DCCReference Include="..\Modulos\Pedidos de cliente\dxComnD11.dcp" />
<DCCReference Include="..\Modulos\Pedidos de cliente\dxGDIPlusD11.dcp" />
<DCCReference Include="..\Modulos\Pedidos de cliente\dxLayoutControlD11.dcp" />
<DCCReference Include="..\Modulos\Pedidos de cliente\dxPSCoreD11.dcp" />
<DCCReference Include="..\Modulos\Pedidos de cliente\dxPScxCommonD11.dcp" />
<DCCReference Include="..\Modulos\Pedidos de cliente\dxPScxGrid6LnkD11.dcp" />
<DCCReference Include="..\Modulos\Pedidos de cliente\dxPsPrVwAdvD11.dcp" />
<DCCReference Include="..\Modulos\Pedidos de cliente\dxThemeD11.dcp" />
<DCCReference Include="..\Modulos\Pedidos de cliente\frx11.dcp" />
<DCCReference Include="..\Modulos\Pedidos de cliente\frxe11.dcp" />
<DCCReference Include="..\Modulos\Pedidos de cliente\fs11.dcp" />
<DCCReference Include="..\Modulos\Pedidos de cliente\JvAppFrmD11R.dcp" />
<DCCReference Include="..\Modulos\Pedidos de cliente\JvCtrlsD11R.dcp" />
<DCCReference Include="..\Modulos\Pedidos de cliente\rtl.dcp" />
<DCCReference Include="..\Modulos\Pedidos de cliente\vcl.dcp" />
<DCCReference Include="..\Modulos\Pedidos de cliente\vcldb.dcp" />
<DCCReference Include="..\Modulos\Pedidos de cliente\vcljpg.dcp" />
<DCCReference Include="..\Modulos\Pedidos de cliente\vclx.dcp" />
<DCCReference Include="..\Modulos\Inventario\Views\Base.dcp" />
<DCCReference Include="..\Modulos\Inventario\Views\cxLibraryD11.dcp" />
<DCCReference Include="..\Modulos\Inventario\Views\cxTreeListD11.dcp" />
<DCCReference Include="..\Modulos\Inventario\Views\dbrtl.dcp" />
<DCCReference Include="..\Modulos\Inventario\Views\dxBarD11.dcp" />
<DCCReference Include="..\Modulos\Inventario\Views\dxBarExtItemsD11.dcp" />
<DCCReference Include="..\Modulos\Inventario\Views\dxComnD11.dcp" />
<DCCReference Include="..\Modulos\Inventario\Views\dxGDIPlusD11.dcp" />
<DCCReference Include="..\Modulos\Inventario\Views\dxLayoutControlD11.dcp" />
<DCCReference Include="..\Modulos\Inventario\Views\dxPSCoreD11.dcp" />
<DCCReference Include="..\Modulos\Inventario\Views\dxPScxCommonD11.dcp" />
<DCCReference Include="..\Modulos\Inventario\Views\dxPScxGrid6LnkD11.dcp" />
<DCCReference Include="..\Modulos\Inventario\Views\dxPsPrVwAdvD11.dcp" />
<DCCReference Include="..\Modulos\Inventario\Views\dxThemeD11.dcp" />
<DCCReference Include="..\Modulos\Inventario\Views\frx11.dcp" />
<DCCReference Include="..\Modulos\Inventario\Views\frxe11.dcp" />
<DCCReference Include="..\Modulos\Inventario\Views\fs11.dcp" />
<DCCReference Include="..\Modulos\Inventario\Views\JvAppFrmD11R.dcp" />
<DCCReference Include="..\Modulos\Inventario\Views\JvCtrlsD11R.dcp" />
<DCCReference Include="..\Modulos\Inventario\Views\rtl.dcp" />
<DCCReference Include="..\Modulos\Inventario\Views\vcl.dcp" />
<DCCReference Include="..\Modulos\Inventario\Views\vcldb.dcp" />
<DCCReference Include="..\Modulos\Inventario\Views\vcljpg.dcp" />
<DCCReference Include="..\Modulos\Inventario\Views\vclx.dcp" />
<DCCReference Include="uDialogBase.pas">
<Form>fDialogBase</Form>
</DCCReference>

BIN
Source/GUIBase/GUIBase.res
View File

Binary file not shown.

16
Source/Modulos/Albaranes de cliente/AlbaranesCliente_Group.groupproj
View File

@ -11,6 +11,7 @@
<Projects Include="..\..\Servidor\FactuGES_Server.dproj" />
<Projects Include="..\Albaranes de proveedor\Views\AlbaranesProveedor_view.dproj" />
<Projects Include="..\Articulos\Controller\Articulos_controller.dproj" />
<Projects Include="..\Articulos\Data\Articulos_data.dproj" />
<Projects Include="..\Articulos\Views\Articulos_view.dproj" />
<Projects Include="..\Contactos\Controller\Contactos_controller.dproj" />
<Projects Include="..\Contactos\Views\Contactos_view.dproj" />
@ -73,6 +74,15 @@
<Target Name="Contactos_view:Make">
<MSBuild Projects="..\Contactos\Views\Contactos_view.dproj" Targets="Make" />
</Target>
<Target Name="Articulos_data">
<MSBuild Projects="..\Articulos\Data\Articulos_data.dproj" Targets="" />
</Target>
<Target Name="Articulos_data:Clean">
<MSBuild Projects="..\Articulos\Data\Articulos_data.dproj" Targets="Clean" />
</Target>
<Target Name="Articulos_data:Make">
<MSBuild Projects="..\Articulos\Data\Articulos_data.dproj" Targets="Make" />
</Target>
<Target Name="Articulos_controller">
<MSBuild Projects="..\Articulos\Controller\Articulos_controller.dproj" Targets="" />
</Target>
@ -272,13 +282,13 @@
<MSBuild Projects="..\Pedidos de cliente\Views\PedidosCliente_view.dproj" Targets="Make" />
</Target>
<Target Name="Build">
<CallTarget Targets="Base;GUIBase;ApplicationBase;Contactos_view;Articulos_controller;Articulos_view;AlbaranesCliente_model;AlbaranesCliente_data;AlbaranesCliente_controller;FacturasCliente_controller;AlbCli_FacCli_relation;AlbaranesCliente_view;AlbaranesCliente_plugin;FactuGES;FactuGES_Server;AlbaranesProveedor_view;AlbProv_FacProv_relation;Contactos_controller;FacturasProveedor_view;PedidosProveedor_view;PresupuestosCliente_view;RecibosCliente_view;RecibosProveedor_view;RemesasCliente_view;RemesasProveedor_view;PedidosCliente_view" />
<CallTarget Targets="Base;GUIBase;ApplicationBase;Contactos_view;Articulos_data;Articulos_controller;Articulos_view;AlbaranesCliente_model;AlbaranesCliente_data;AlbaranesCliente_controller;FacturasCliente_controller;AlbCli_FacCli_relation;AlbaranesCliente_view;AlbaranesCliente_plugin;FactuGES;FactuGES_Server;AlbaranesProveedor_view;AlbProv_FacProv_relation;Contactos_controller;FacturasProveedor_view;PedidosProveedor_view;PresupuestosCliente_view;RecibosCliente_view;RecibosProveedor_view;RemesasCliente_view;RemesasProveedor_view;PedidosCliente_view" />
</Target>
<Target Name="Clean">
<CallTarget Targets="Base:Clean;GUIBase:Clean;ApplicationBase:Clean;Contactos_view:Clean;Articulos_controller:Clean;Articulos_view:Clean;AlbaranesCliente_model:Clean;AlbaranesCliente_data:Clean;AlbaranesCliente_controller:Clean;FacturasCliente_controller:Clean;AlbCli_FacCli_relation:Clean;AlbaranesCliente_view:Clean;AlbaranesCliente_plugin:Clean;FactuGES:Clean;FactuGES_Server:Clean;AlbaranesProveedor_view:Clean;AlbProv_FacProv_relation:Clean;Contactos_controller:Clean;FacturasProveedor_view:Clean;PedidosProveedor_view:Clean;PresupuestosCliente_view:Clean;RecibosCliente_view:Clean;RecibosProveedor_view:Clean;RemesasCliente_view:Clean;RemesasProveedor_view:Clean;PedidosCliente_view:Clean" />
<CallTarget Targets="Base:Clean;GUIBase:Clean;ApplicationBase:Clean;Contactos_view:Clean;Articulos_data:Clean;Articulos_controller:Clean;Articulos_view:Clean;AlbaranesCliente_model:Clean;AlbaranesCliente_data:Clean;AlbaranesCliente_controller:Clean;FacturasCliente_controller:Clean;AlbCli_FacCli_relation:Clean;AlbaranesCliente_view:Clean;AlbaranesCliente_plugin:Clean;FactuGES:Clean;FactuGES_Server:Clean;AlbaranesProveedor_view:Clean;AlbProv_FacProv_relation:Clean;Contactos_controller:Clean;FacturasProveedor_view:Clean;PedidosProveedor_view:Clean;PresupuestosCliente_view:Clean;RecibosCliente_view:Clean;RecibosProveedor_view:Clean;RemesasCliente_view:Clean;RemesasProveedor_view:Clean;PedidosCliente_view:Clean" />
</Target>
<Target Name="Make">
<CallTarget Targets="Base:Make;GUIBase:Make;ApplicationBase:Make;Contactos_view:Make;Articulos_controller:Make;Articulos_view:Make;AlbaranesCliente_model:Make;AlbaranesCliente_data:Make;AlbaranesCliente_controller:Make;FacturasCliente_controller:Make;AlbCli_FacCli_relation:Make;AlbaranesCliente_view:Make;AlbaranesCliente_plugin:Make;FactuGES:Make;FactuGES_Server:Make;AlbaranesProveedor_view:Make;AlbProv_FacProv_relation:Make;Contactos_controller:Make;FacturasProveedor_view:Make;PedidosProveedor_view:Make;PresupuestosCliente_view:Make;RecibosCliente_view:Make;RecibosProveedor_view:Make;RemesasCliente_view:Make;RemesasProveedor_view:Make;PedidosCliente_view:Make" />
<CallTarget Targets="Base:Make;GUIBase:Make;ApplicationBase:Make;Contactos_view:Make;Articulos_data:Make;Articulos_controller:Make;Articulos_view:Make;AlbaranesCliente_model:Make;AlbaranesCliente_data:Make;AlbaranesCliente_controller:Make;FacturasCliente_controller:Make;AlbCli_FacCli_relation:Make;AlbaranesCliente_view:Make;AlbaranesCliente_plugin:Make;FactuGES:Make;FactuGES_Server:Make;AlbaranesProveedor_view:Make;AlbProv_FacProv_relation:Make;Contactos_controller:Make;FacturasProveedor_view:Make;PedidosProveedor_view:Make;PresupuestosCliente_view:Make;RecibosCliente_view:Make;RecibosProveedor_view:Make;RemesasCliente_view:Make;RemesasProveedor_view:Make;PedidosCliente_view:Make" />
</Target>
<Import Condition="Exists('$(MSBuildBinPath)\Borland.Group.Targets')" Project="$(MSBuildBinPath)\Borland.Group.Targets" />
</Project>

12
Source/Modulos/Albaranes de cliente/Views/uViewElegirArticulosAlbaranesCliente.dfm
View File

@ -1,6 +1,18 @@
inherited frViewElegirArticulosAlbaranesCliente: TfrViewElegirArticulosAlbaranesCliente
inherited cxGrid: TcxGrid
inherited cxGridView: TcxGridDBTableView
inherited cxGridViewINVENTARIABLE: TcxGridDBColumn
Visible = False
VisibleForCustomization = False
end
inherited cxGridViewCOMISIONABLE: TcxGridDBColumn
Visible = False
VisibleForCustomization = False
end
inherited cxGridViewTIENDA_WEB: TcxGridDBColumn
Visible = False
VisibleForCustomization = False
end
inherited cxGridViewPRECIO_NETO: TcxGridDBColumn
Visible = False
VisibleForCustomization = False

17
Source/Modulos/Articulos/Servidor/srvArticulos_Impl.dfm
View File

@ -903,12 +903,17 @@ object srvArticulos: TsrvArticulos
'.IMAGEN, V_ARTICULOS.COMISIONABLE, V_ARTICULOS.FECHA_ALTA,'#10'V_ART' +
'ICULOS.FECHA_MODIFICACION, V_ARTICULOS.USUARIO, V_ARTICULOS.REFE' +
'RENCIA_PROV,'#10'V_ARTICULOS.PRECIO_COSTE, V_ARTICULOS.PRECIO_PORTE,' +
' CLIENTES_DTOS_PROVEEDORES.DESCUENTO,'#10'V_ARTICULOS.PRECIO_NETO, V' +
'_ARTICULOS.INVENTARIABLE, V_ARTICULOS.ID_PROVEEDOR,'#10'V_ARTICULOS.' +
'NOMBRE_PROVEEDOR, V_ARTICULOS.ELIMINADO, V_ARTICULOS.TIENDA_WEB'#10 +
'FROM V_ARTICULOS'#10'LEFT OUTER JOIN CLIENTES_DTOS_PROVEEDORES'#10'ON ((' +
'CLIENTES_DTOS_PROVEEDORES.ID_PROVEEDOR = V_ARTICULOS.ID_PROVEEDO' +
'R)'#10'AND (CLIENTES_DTOS_PROVEEDORES.ID_CLIENTE = :ID_CLIENTE))'#10
#10#10'CASE when (CLIENTES_DTOS_ARTICULOS.DESCUENTO IS not NULL) then' +
' CLIENTES_DTOS_ARTICULOS.DESCUENTO'#10'else CLIENTES_DTOS_PROVEEDORE' +
'S.DESCUENTO'#10'end as DESCUENTO,'#10#10'V_ARTICULOS.PRECIO_NETO, V_ARTICU' +
'LOS.INVENTARIABLE, V_ARTICULOS.ID_PROVEEDOR,'#10'V_ARTICULOS.NOMBRE_' +
'PROVEEDOR, V_ARTICULOS.ELIMINADO, V_ARTICULOS.TIENDA_WEB'#10'FROM V_' +
'ARTICULOS'#10'LEFT OUTER JOIN CLIENTES_DTOS_PROVEEDORES'#10'ON ((CLIENTE' +
'S_DTOS_PROVEEDORES.ID_PROVEEDOR = V_ARTICULOS.ID_PROVEEDOR)'#10'AND ' +
'(CLIENTES_DTOS_PROVEEDORES.ID_CLIENTE = :ID_CLIENTE))'#10#10'LEFT OUTE' +
'R JOIN CLIENTES_DTOS_ARTICULOS'#10'ON ((CLIENTES_DTOS_ARTICULOS.ID_A' +
'RTICULO = V_ARTICULOS.ID)'#10'AND (CLIENTES_DTOS_ARTICULOS.ID_CLIENT' +
'E = :ID_CLIENTE))'#10
StatementType = stSQL
ColumnMappings = <
item

15
Source/Modulos/Articulos/Views/uEditorElegirArticulos.dfm
View File

@ -9,7 +9,7 @@ inherited fEditorElegirArticulos: TfEditorElegirArticulos
Width = 656
Caption = 'Lista de art'#237'culos'
Visible = False
ExplicitTop = 168
ExplicitTop = 113
ExplicitWidth = 656
inherited Image1: TImage
Left = 629
@ -20,13 +20,13 @@ inherited fEditorElegirArticulos: TfEditorElegirArticulos
Top = 64
Width = 656
Height = 49
ExplicitTop = 91
ExplicitTop = 64
ExplicitWidth = 656
ExplicitHeight = 49
inherited tbxMain: TTBXToolbar
Align = alLeft
DockPos = -6
ExplicitWidth = 283
ExplicitWidth = 266
inherited TBXItem6: TTBXItem
Visible = False
end
@ -35,12 +35,12 @@ inherited fEditorElegirArticulos: TfEditorElegirArticulos
end
end
inherited tbxFiltro: TTBXToolbar
Left = 283
Left = 266
Top = 23
Align = alLeft
DockPos = 101
DockRow = 1
ExplicitLeft = 283
ExplicitLeft = 266
ExplicitTop = 23
inherited TBXItem34: TTBXItem
Action = actQuitarFiltro2
@ -50,11 +50,11 @@ inherited fEditorElegirArticulos: TfEditorElegirArticulos
ExplicitWidth = 656
end
inherited TBXTMain2: TTBXToolbar
Left = 620
Left = 603
Top = 23
DockPos = 395
DockRow = 1
ExplicitLeft = 620
ExplicitLeft = 603
ExplicitTop = 23
end
end
@ -77,7 +77,6 @@ inherited fEditorElegirArticulos: TfEditorElegirArticulos
Padding.Bottom = 8
ParentBackground = False
TabOrder = 4
ExplicitTop = 27
object lblTitle: TLabel
AlignWithMargins = True
Left = 25

17
Source/Modulos/Articulos/Views/uEditorElegirArticulos.pas
View File

@ -185,15 +185,21 @@ procedure TfEditorElegirArticulos.SetArticulos(const Value: IBizArticulo);
begin
FArticulos := Value;
dsDataTable.DataTable := FArticulos.DataTable;
if Assigned(ViewGrid) then
(ViewGrid as IViewArticulos).Articulos := FArticulos;
//En el caso de no tener vista asignada le asignamos la de articulos para que en clientes se pueda usar este editor
if not Assigned(ViewGrid) then
ViewGrid := CreateView(TfrViewArticulos) as IViewArticulos;
(ViewGrid as IViewArticulos).Articulos := FArticulos;
end;
procedure TfEditorElegirArticulos.SetController(const Value: IArticulosController);
begin
FController := Value;
if Assigned(ViewGrid) then
(ViewGrid as IViewArticulos).Controller := FController;
//En el caso de no tener vista asignada le asignamos la de articulos para que en clientes se pueda usar este editor
if not Assigned(ViewGrid) then
ViewGrid := CreateView(TfrViewArticulos) as IViewArticulos;
(ViewGrid as IViewArticulos).Controller := FController;
end;
procedure TfEditorElegirArticulos.SetMensaje(const AValue: String);
@ -203,7 +209,8 @@ end;
procedure TfEditorElegirArticulos.SetMultiSelect(AValue: Boolean);
begin
ViewGrid.MultiSelect := AValue;
if Assigned(ViewGrid) then
ViewGrid.MultiSelect := AValue;
end;
procedure TfEditorElegirArticulos.SetViewGrid(const Value: IViewGridBase);

36
Source/Modulos/Contactos/Contactos_Group.groupproj
View File

@ -9,7 +9,10 @@
<Projects Include="..\..\Cliente\FactuGES.dproj" />
<Projects Include="..\..\GUIBase\GUIBase.dproj" />
<Projects Include="..\..\Servidor\FactuGES_Server.dproj" />
<Projects Include="..\Albaranes de cliente\Controller\AlbaranesCliente_controller.dproj" />
<Projects Include="..\Albaranes de cliente\Views\AlbaranesCliente_view.dproj" />
<Projects Include="..\Articulos\Controller\Articulos_controller.dproj" />
<Projects Include="..\Articulos\Views\Articulos_view.dproj" />
<Projects Include="..\Obras\Views\Obras_view.dproj" />
<Projects Include="Controller\Contactos_controller.dproj" />
<Projects Include="Data\Contactos_data.dproj" />
@ -131,14 +134,41 @@
<Target Name="Obras_view:Make">
<MSBuild Projects="..\Obras\Views\Obras_view.dproj" Targets="Make" />
</Target>
<Target Name="Articulos_controller">
<MSBuild Projects="..\Articulos\Controller\Articulos_controller.dproj" Targets="" />
</Target>
<Target Name="Articulos_controller:Clean">
<MSBuild Projects="..\Articulos\Controller\Articulos_controller.dproj" Targets="Clean" />
</Target>
<Target Name="Articulos_controller:Make">
<MSBuild Projects="..\Articulos\Controller\Articulos_controller.dproj" Targets="Make" />
</Target>
<Target Name="Articulos_view">
<MSBuild Projects="..\Articulos\Views\Articulos_view.dproj" Targets="" />
</Target>
<Target Name="Articulos_view:Clean">
<MSBuild Projects="..\Articulos\Views\Articulos_view.dproj" Targets="Clean" />
</Target>
<Target Name="Articulos_view:Make">
<MSBuild Projects="..\Articulos\Views\Articulos_view.dproj" Targets="Make" />
</Target>
<Target Name="AlbaranesCliente_controller">
<MSBuild Projects="..\Albaranes de cliente\Controller\AlbaranesCliente_controller.dproj" Targets="" />
</Target>
<Target Name="AlbaranesCliente_controller:Clean">
<MSBuild Projects="..\Albaranes de cliente\Controller\AlbaranesCliente_controller.dproj" Targets="Clean" />
</Target>
<Target Name="AlbaranesCliente_controller:Make">
<MSBuild Projects="..\Albaranes de cliente\Controller\AlbaranesCliente_controller.dproj" Targets="Make" />
</Target>
<Target Name="Build">
<CallTarget Targets="Base;GUIBase;ApplicationBase;Contactos_model;Contactos_data;Contactos_controller;Contactos_view;Contactos_plugin;FactuGES;FactuGES_Server;AlbaranesCliente_view;Obras_view" />
<CallTarget Targets="Base;GUIBase;ApplicationBase;Contactos_model;Contactos_data;Contactos_controller;Contactos_view;Contactos_plugin;FactuGES;FactuGES_Server;AlbaranesCliente_view;Obras_view;Articulos_controller;Articulos_view;AlbaranesCliente_controller" />
</Target>
<Target Name="Clean">
<CallTarget Targets="Base:Clean;GUIBase:Clean;ApplicationBase:Clean;Contactos_model:Clean;Contactos_data:Clean;Contactos_controller:Clean;Contactos_view:Clean;Contactos_plugin:Clean;FactuGES:Clean;FactuGES_Server:Clean;AlbaranesCliente_view:Clean;Obras_view:Clean" />
<CallTarget Targets="Base:Clean;GUIBase:Clean;ApplicationBase:Clean;Contactos_model:Clean;Contactos_data:Clean;Contactos_controller:Clean;Contactos_view:Clean;Contactos_plugin:Clean;FactuGES:Clean;FactuGES_Server:Clean;AlbaranesCliente_view:Clean;Obras_view:Clean;Articulos_controller:Clean;Articulos_view:Clean;AlbaranesCliente_controller:Clean" />
</Target>
<Target Name="Make">
<CallTarget Targets="Base:Make;GUIBase:Make;ApplicationBase:Make;Contactos_model:Make;Contactos_data:Make;Contactos_controller:Make;Contactos_view:Make;Contactos_plugin:Make;FactuGES:Make;FactuGES_Server:Make;AlbaranesCliente_view:Make;Obras_view:Make" />
<CallTarget Targets="Base:Make;GUIBase:Make;ApplicationBase:Make;Contactos_model:Make;Contactos_data:Make;Contactos_controller:Make;Contactos_view:Make;Contactos_plugin:Make;FactuGES:Make;FactuGES_Server:Make;AlbaranesCliente_view:Make;Obras_view:Make;Articulos_controller:Make;Articulos_view:Make;AlbaranesCliente_controller:Make" />
</Target>
<Import Condition="Exists('$(MSBuildBinPath)\Borland.Group.Targets')" Project="$(MSBuildBinPath)\Borland.Group.Targets" />
</Project>

57
Source/Modulos/Contactos/Controller/Contactos_controller.dproj
View File

@ -49,15 +49,6 @@
<Excluded_Packages Name="D:\MISDOC~1\BORLAN~1\Bpl\JclDebugExpert100.bpl">JCL Debug IDE extension</Excluded_Packages>
<Excluded_Packages Name="D:\MISDOC~1\BORLAN~1\Bpl\JclProjectAnalysisExpert100.bpl">JCL Project Analyzer</Excluded_Packages>
<Excluded_Packages Name="D:\MISDOC~1\BORLAN~1\Bpl\JclFavoriteFoldersExpert100.bpl">JCL Open and Save IDE dialogs with favorite folders</Excluded_Packages>
@ -68,30 +59,25 @@
<DelphiCompile Include="Contactos_controller.dpk">
<MainSource>MainSource</MainSource>
</DelphiCompile>
<DCCReference Include="..\..\..\Servidor\adortl.dcp" />
<DCCReference Include="..\..\..\Servidor\ApplicationBase.dcp" />
<DCCReference Include="..\..\..\Servidor\Base.dcp" />
<DCCReference Include="..\..\..\Servidor\ccpackD11.dcp" />
<DCCReference Include="..\..\..\Servidor\cfpack_d11.dcp" />
<DCCReference Include="..\..\..\Servidor\Contactos_data.dcp" />
<DCCReference Include="..\..\..\Servidor\Contactos_model.dcp" />
<DCCReference Include="..\..\..\Servidor\cxLibraryD11.dcp" />
<DCCReference Include="..\..\..\Servidor\DataAbstract_Core_D11.dcp" />
<DCCReference Include="..\..\..\Servidor\dbrtl.dcp" />
<DCCReference Include="..\..\..\Servidor\designide.dcp" />
<DCCReference Include="..\..\..\Servidor\dsnap.dcp" />
<DCCReference Include="..\..\..\Servidor\dxCoreD11.dcp" />
<DCCReference Include="..\..\..\Servidor\dxGDIPlusD11.dcp" />
<DCCReference Include="..\..\..\Servidor\dxThemeD11.dcp" />
<DCCReference Include="..\..\..\Servidor\GUIBase.dcp" />
<DCCReference Include="..\..\..\Servidor\GUISDK_D11R.dcp" />
<DCCReference Include="..\..\..\Servidor\RemObjects_Core_D11.dcp" />
<DCCReference Include="..\..\..\Servidor\rtl.dcp" />
<DCCReference Include="..\..\..\Servidor\vcl.dcp" />
<DCCReference Include="..\..\..\Servidor\vclactnband.dcp" />
<DCCReference Include="..\..\..\Servidor\vcldb.dcp" />
<DCCReference Include="..\..\..\Servidor\vclx.dcp" />
<DCCReference Include="..\..\..\Servidor\xmlrtl.dcp" />
<DCCReference Include="adortl.dcp" />
<DCCReference Include="ApplicationBase.dcp" />
<DCCReference Include="Base.dcp" />
<DCCReference Include="ccpackD11.dcp" />
<DCCReference Include="cfpack_d11.dcp" />
<DCCReference Include="Contactos_data.dcp" />
<DCCReference Include="Contactos_model.dcp" />
<DCCReference Include="cxLibraryD11.dcp" />
<DCCReference Include="DataAbstract_Core_D11.dcp" />
<DCCReference Include="dbrtl.dcp" />
<DCCReference Include="designide.dcp" />
<DCCReference Include="dsnap.dcp" />
<DCCReference Include="dxCoreD11.dcp" />
<DCCReference Include="dxGDIPlusD11.dcp" />
<DCCReference Include="dxThemeD11.dcp" />
<DCCReference Include="GUIBase.dcp" />
<DCCReference Include="GUISDK_D11R.dcp" />
<DCCReference Include="RemObjects_Core_D11.dcp" />
<DCCReference Include="rtl.dcp" />
<DCCReference Include="uAgentesController.pas" />
<DCCReference Include="uClientesController.pas" />
<DCCReference Include="uContactosController.pas" />
@ -105,6 +91,10 @@
<DCCReference Include="uGruposProveedorController.pas" />
<DCCReference Include="uPersonalContactoController.pas" />
<DCCReference Include="uProveedoresController.pas" />
<DCCReference Include="vcl.dcp" />
<DCCReference Include="vclactnband.dcp" />
<DCCReference Include="vcldb.dcp" />
<DCCReference Include="vclx.dcp" />
<DCCReference Include="View\uIEditorAgente.pas" />
<DCCReference Include="View\uIEditorAgentes.pas" />
<DCCReference Include="View\uIEditorCliente.pas" />
@ -128,6 +118,7 @@
<DCCReference Include="View\uIEditorPersonalContacto.pas" />
<DCCReference Include="View\uIEditorProveedor.pas" />
<DCCReference Include="View\uIEditorProveedores.pas" />
<DCCReference Include="xmlrtl.dcp" />
</ItemGroup>
</Project>
<!-- EurekaLog First Line

3
Source/Modulos/Contactos/Controller/uClientesController.pas
View File

@ -142,6 +142,9 @@ begin
if Assigned((Result as IBizCliente).Descuentos) then
DuplicarRegistros((AContacto as IBizCliente).Descuentos.DataTable, (Result as IBizCliente).Descuentos.DataTable, mdrTodos);
if Assigned((Result as IBizCliente).DescuentosArt) then
DuplicarRegistros((AContacto as IBizCliente).DescuentosArt.DataTable, (Result as IBizCliente).DescuentosArt.DataTable, mdrTodos);
end;
function TClientesController.ElegirContacto(AContactos : IBizContacto;

83
Source/Modulos/Contactos/Data/uDataModuleClientes.dfm
View File

@ -1,5 +1,5 @@
inherited DataModuleClientes: TDataModuleClientes
Height = 325
Height = 398
Width = 636
inherited rda_Contactos: TDARemoteDataAdapter
Top = 79
@ -382,4 +382,85 @@ inherited DataModuleClientes: TDataModuleClientes
Left = 552
Top = 224
end
object tbl_ClientesDescuentosArticulos: TDAMemDataTable
RemoteUpdatesOptions = []
Fields = <
item
Name = 'ID'
DataType = datAutoInc
GeneratorName = 'GEN_CLIENTES_DTOS_ART_ID'
ServerAutoRefresh = True
DictionaryEntry = 'ClientesDescuentosArticulos_ID'
InPrimaryKey = True
end
item
Name = 'ID_CLIENTE'
DataType = datInteger
DisplayLabel = 'ClientesDescuentos_ID_CLIENTE'
DictionaryEntry = 'ClientesDescuentos_ID_CLIENTE'
end
item
Name = 'ID_ARTICULO'
DataType = datSmallInt
DisplayLabel = 'ClientesDescuentosArticulos_ID_ARTICULO'
DictionaryEntry = 'ClientesDescuentosArticulos_ID_ARTICULO'
end
item
Name = 'REFERENCIA'
DataType = datString
Size = 255
DisplayLabel = 'ClientesDescuentosArticulos_REFERENCIA'
DictionaryEntry = 'ClientesDescuentosArticulos_REFERENCIA'
end
item
Name = 'DESCRIPCION'
DataType = datString
Size = 255
DisplayLabel = 'ClientesDescuentosArticulos_DESCRIPCION'
DictionaryEntry = 'ClientesDescuentosArticulos_DESCRIPCION'
end
item
Name = 'PRECIO_COSTE'
DataType = datCurrency
DisplayLabel = 'ClientesDescuentosArticulos_PRECIO_COSTE'
DictionaryEntry = 'ClientesDescuentosArticulos_PRECIO_COSTE'
end
item
Name = 'DESCUENTO_PROVEEDOR'
DataType = datFloat
DisplayLabel = 'ClientesDescuentosArticulos_DESCUENTO_PROVEEDOR'
DictionaryEntry = 'ClientesDescuentosArticulos_DESCUENTO_PROVEEDOR'
end
item
Name = 'PRECIO_NETO'
DataType = datCurrency
DisplayLabel = 'ClientesDescuentosArticulos_PRECIO_NETO'
DictionaryEntry = 'ClientesDescuentosArticulos_PRECIO_NETO'
end
item
Name = 'DESCUENTO'
DataType = datFloat
DisplayLabel = 'Descuento (%)'
Alignment = taRightJustify
DictionaryEntry = 'ClientesDescuentos_DESCUENTO'
end>
Params = <>
MasterMappingMode = mmWhere
StreamingOptions = [soDisableEventsWhileStreaming]
RemoteDataAdapter = rda_Contactos
LocalDataStreamer = Bin2DataStreamer
MasterSource = ds_Clientes
MasterFields = 'ID'
DetailFields = 'ID_CLIENTE'
LogicalName = 'ClientesDescuentosArticulos'
IndexDefs = <>
Left = 448
Top = 280
end
object ds_ClientesDescuentosArticulos: TDADataSource
DataSet = tbl_ClientesDescuentosArticulos.Dataset
DataTable = tbl_ClientesDescuentosArticulos
Left = 448
Top = 336
end
end

30
Source/Modulos/Contactos/Data/uDataModuleClientes.pas
View File

@ -6,7 +6,8 @@ uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
DB, uDADataTable, uDAScriptingProvider,
uDACDSDataTable, uDABINAdapter, uRORemoteService,
uROClient, uROBinMessage, uROWinInetHttpChannel, uBizClientesDescuentos,
uROClient, uROBinMessage, uROWinInetHttpChannel,
uBizClientesDescuentos, uBizClientesDescuentosArt,
uBizGruposCliente, uBizContactos, uDataModuleContactos,
uIDataModuleClientes, uDADesigntimeCall, uDARemoteDataAdapter,
uDADataStreamer, uRODynamicRequest, uDAInterfaces, uDAMemDataTable,
@ -21,14 +22,17 @@ type
ds_ClientesDescuentos: TDADataSource;
tbl_GruposCliente: TDAMemDataTable;
ds_GruposCliente: TDADataSource;
tbl_ClientesDescuentosArticulos: TDAMemDataTable;
ds_ClientesDescuentosArticulos: TDADataSource;
protected
function _GetDescuentos: IBizClienteDescuentos;
function _GetDescuentosArticulos: IBizClienteDescuentosArticulos;
public
function GetItem(const ID : Integer) : IBizCliente;
function NewItem : IBizCliente;
function GetItems : IBizCliente;
function GetItemsTiendaWeb : IBizCliente;
function GetItemsFelicitacion : IBizCliente;
function GetItemsFelicitacion : IBizCliente;
function GetGruposCliente : IBizGrupoCliente;
end;
@ -94,7 +98,8 @@ begin
DatosBancarios := _GetDatosBancarios;
Direcciones := _GetDirecciones;
Descuentos := _GetDescuentos;
Personal := _GetPersonal;
DescuentosArt := _GetDescuentosArticulos;
Personal := _GetPersonal;
end;
Result := (AContacto as IBizCliente);
@ -170,4 +175,23 @@ begin
end;
end;
function TDataModuleClientes._GetDescuentosArticulos: IBizClienteDescuentosArticulos;
var
ADescuentosArt : TDAMemDataTable;
begin
ShowHourglassCursor;
try
ADescuentosArt := CloneDataTable(tbl_ClientesDescuentosArticulos);
with ADescuentosArt do
begin
BusinessRulesID := BIZ_CLIENT_CLIENTE_DESCUENTOS_ART;
DetailOptions := DetailOptions -
[dtDisableLogOfCascadeDeletes, dtDisableLogOfCascadeUpdates];
end;
Result := (ADescuentosArt as IBizClienteDescuentosArticulos);
finally
HideHourglassCursor;
end;
end;
end.

5
Source/Modulos/Contactos/Model/Contactos_model.dpk
View File

@ -45,7 +45,7 @@ contains
uIDataModuleProveedores in 'Data\uIDataModuleProveedores.pas',
uIDataModuleEmpleados in 'Data\uIDataModuleEmpleados.pas',
uBizDireccionesContacto in 'uBizDireccionesContacto.pas',
uBizClientesDescuentos in 'uBizClientesDescuentos.pas',
uBizClientesDescuentosArt in 'uBizClientesDescuentosArt.pas',
uRegimenIVAUtils in '..\Utiles\uRegimenIVAUtils.pas',
uBizGruposCliente in 'uBizGruposCliente.pas',
uBizGruposEmpleado in 'uBizGruposEmpleado.pas',
@ -56,6 +56,7 @@ contains
schContactosServer_Intf in 'schContactosServer_Intf.pas',
uBizContactosPersonal in 'uBizContactosPersonal.pas',
uIDataModuleAgentes in 'Data\uIDataModuleAgentes.pas',
uBizAgentesComisiones in 'uBizAgentesComisiones.pas';
uBizAgentesComisiones in 'uBizAgentesComisiones.pas',
uBizClientesDescuentos in 'uBizClientesDescuentos.pas';
end.

1
Source/Modulos/Contactos/Model/Contactos_model.dproj
View File

@ -70,6 +70,7 @@
<DCCReference Include="schContactosServer_Intf.pas" />
<DCCReference Include="uBizAgentesComisiones.pas" />
<DCCReference Include="uBizClientesDescuentos.pas" />
<DCCReference Include="uBizClientesDescuentosArt.pas" />
<DCCReference Include="uBizContactos.pas" />
<DCCReference Include="uBizContactosDatosBancarios.pas" />
<DCCReference Include="uBizContactosPersonal.pas" />

BIN
Source/Modulos/Contactos/Model/Contactos_model.identcache
View File

Binary file not shown.

421
Source/Modulos/Contactos/Model/schContactosClient_Intf.pas
View File

@ -9,22 +9,23 @@ const
{ Data table rules ids
Feel free to change them to something more human readable
but make sure they are unique in the context of your application }
RID_Contactos = '{04865183-AFBB-4B4A-943A-AD4D76B6C5CC}';
RID_GruposCliente = '{3A2865D7-D76B-4D57-A0F0-D04F22EF51BB}';
RID_DatosBancarios = '{47326ABA-7215-45CB-9699-185E7926F56D}';
RID_Clientes = '{752BC70E-B5CD-49B4-9165-BED3EF49622A}';
RID_Proveedores = '{22AE961E-E08B-4FF6-80A2-32589AD84AC9}';
RID_Empleados = '{9581116B-D5A5-489A-B828-F15F3DD1B97D}';
RID_DireccionesContacto = '{BE7C6793-FC10-47E3-82B9-FED0D91CA69A}';
RID_ClientesDescuentos = '{66FE83C9-7815-4450-B7F3-0A33BE698507}';
RID_GruposProveedor = '{E5A13739-A562-481A-B473-E1FA88174DC1}';
RID_GruposEmpleado = '{0599F7F4-52F2-4A1B-80A4-0F0950DA5245}';
RID_Contactos_Refresh = '{4F929248-961C-4FCC-9D11-1339B2D588E1}';
RID_ContratosEmpleados = '{0A08FD58-E087-4A8F-A17F-4B52E96069AE}';
RID_DescripcionesProveedores = '{E7EFC76A-8F2C-4EAE-84F2-098DAC735EC9}';
RID_PersonalContacto = '{384190A3-903C-46F6-903A-B44ABFA39FA8}';
RID_Agentes_Comisiones = '{38CD5D31-E276-42B3-890C-5F8B7D4E9B84}';
RID_Agentes = '{A38A458F-178D-40E8-94F0-21A6793E83DE}';
RID_Contactos = '{73E76622-E68E-4E54-8D43-4CF2C0133952}';
RID_GruposCliente = '{45E72D8F-0603-4DEC-8249-C6A070C2F57D}';
RID_DatosBancarios = '{804EE172-41B4-4212-BDF3-D3C90BCA26D7}';
RID_Clientes = '{E126FB9B-877A-4FDC-9B19-E4CD83FC36EC}';
RID_Proveedores = '{7AAC1B49-8346-48BD-B588-11D2726C3C79}';
RID_Empleados = '{82B3EA4B-E778-46CD-A1E1-89D0A9D81B4A}';
RID_DireccionesContacto = '{3DBEBC77-8915-4AE1-9D25-A0C09617FDF5}';
RID_ClientesDescuentos = '{74A00521-E5C6-4F48-944A-022F11AED3DA}';
RID_GruposProveedor = '{68F3A8F9-BF86-407D-A064-BACBDCF563C0}';
RID_GruposEmpleado = '{8268F7D5-CCD5-442E-925E-C301E1097C85}';
RID_Contactos_Refresh = '{2DFECCD0-0527-410C-94D3-51045B8A2129}';
RID_ContratosEmpleados = '{7AE96ED9-D159-4D7E-8C89-75346A32ADE1}';
RID_DescripcionesProveedores = '{069BAEB8-B983-4846-BB70-8A1197D2FB53}';
RID_PersonalContacto = '{BD6A8B16-D07F-4B2A-816B-4856BA71003C}';
RID_Agentes_Comisiones = '{C0E84515-ACA3-4079-AFBC-AE17C868A497}';
RID_Agentes = '{1519A7FD-A033-4825-82F8-88430F204B40}';
RID_ClientesDescuentosArticulos = '{01F7605E-C659-4BC8-A1D0-4BD5206E2015}';
{ Data table names }
nme_Contactos = 'Contactos';
@ -43,6 +44,7 @@ const
nme_PersonalContacto = 'PersonalContacto';
nme_Agentes_Comisiones = 'Agentes_Comisiones';
nme_Agentes = 'Agentes';
nme_ClientesDescuentosArticulos = 'ClientesDescuentosArticulos';
{ Contactos fields }
fld_ContactosID = 'ID';
@ -584,10 +586,32 @@ const
idx_AgentesFECHA_BAJA = 24;
idx_AgentesCAUSA_BAJA = 25;
{ ClientesDescuentosArticulos fields }
fld_ClientesDescuentosArticulosID = 'ID';
fld_ClientesDescuentosArticulosID_CLIENTE = 'ID_CLIENTE';
fld_ClientesDescuentosArticulosID_ARTICULO = 'ID_ARTICULO';
fld_ClientesDescuentosArticulosREFERENCIA = 'REFERENCIA';
fld_ClientesDescuentosArticulosDESCRIPCION = 'DESCRIPCION';
fld_ClientesDescuentosArticulosPRECIO_COSTE = 'PRECIO_COSTE';
fld_ClientesDescuentosArticulosDESCUENTO_PROVEEDOR = 'DESCUENTO_PROVEEDOR';
fld_ClientesDescuentosArticulosPRECIO_NETO = 'PRECIO_NETO';
fld_ClientesDescuentosArticulosDESCUENTO = 'DESCUENTO';
{ ClientesDescuentosArticulos field indexes }
idx_ClientesDescuentosArticulosID = 0;
idx_ClientesDescuentosArticulosID_CLIENTE = 1;
idx_ClientesDescuentosArticulosID_ARTICULO = 2;
idx_ClientesDescuentosArticulosREFERENCIA = 3;
idx_ClientesDescuentosArticulosDESCRIPCION = 4;
idx_ClientesDescuentosArticulosPRECIO_COSTE = 5;
idx_ClientesDescuentosArticulosDESCUENTO_PROVEEDOR = 6;
idx_ClientesDescuentosArticulosPRECIO_NETO = 7;
idx_ClientesDescuentosArticulosDESCUENTO = 8;
type
{ IContactos }
IContactos = interface(IDAStronglyTypedDataTable)
['{9A4BE7AE-4BE0-4889-B12E-60F9ECE71512}']
['{15E48301-28F2-4343-941D-F57A4F1E872C}']
{ Property getters and setters }
function GetIDValue: Integer;
procedure SetIDValue(const aValue: Integer);
@ -886,7 +910,7 @@ type
{ IGruposCliente }
IGruposCliente = interface(IDAStronglyTypedDataTable)
['{01A15969-F3E7-4EEF-8664-15B8D3B0E00D}']
['{603CA907-F464-44F1-B226-90DCE9B311F0}']
{ Property getters and setters }
function GetIDValue: Integer;
procedure SetIDValue(const aValue: Integer);
@ -933,7 +957,7 @@ type
{ IDatosBancarios }
IDatosBancarios = interface(IDAStronglyTypedDataTable)
['{0EB678B0-07DE-4113-9150-AD45354E5CCA}']
['{A02C7CD4-5B0E-4921-A52F-BCDBC7184EE1}']
{ Property getters and setters }
function GetIDValue: Integer;
procedure SetIDValue(const aValue: Integer);
@ -1064,7 +1088,7 @@ type
{ IClientes }
IClientes = interface(IDAStronglyTypedDataTable)
['{515EA8E0-4B1B-468A-B88B-AE4775770080}']
['{F84E18B1-A927-460D-A61A-D8F2AEC3B27B}']
{ Property getters and setters }
function GetIDValue: Integer;
procedure SetIDValue(const aValue: Integer);
@ -1591,7 +1615,7 @@ type
{ IProveedores }
IProveedores = interface(IDAStronglyTypedDataTable)
['{A0768A97-F46F-4EDD-9F60-86A567490F83}']
['{963E3F56-5FAE-45FC-ABFE-FB3D1C073DB9}']
{ Property getters and setters }
function GetIDValue: Integer;
procedure SetIDValue(const aValue: Integer);
@ -2082,7 +2106,7 @@ type
{ IEmpleados }
IEmpleados = interface(IDAStronglyTypedDataTable)
['{FA15A2F9-3FFA-440D-B51B-810D6CE397D8}']
['{81506F17-5BB5-426F-A456-11CB21C60105}']
{ Property getters and setters }
function GetIDValue: Integer;
procedure SetIDValue(const aValue: Integer);
@ -2513,7 +2537,7 @@ type
{ IDireccionesContacto }
IDireccionesContacto = interface(IDAStronglyTypedDataTable)
['{EE890F26-E3BD-45D8-93C5-E73F51E967B4}']
['{97DD1397-1579-4845-A0A7-E1A17D761524}']
{ Property getters and setters }
function GetIDValue: Integer;
procedure SetIDValue(const aValue: Integer);
@ -2728,7 +2752,7 @@ type
{ IClientesDescuentos }
IClientesDescuentos = interface(IDAStronglyTypedDataTable)
['{FA5D340E-D74E-499F-A473-3903250EDFFC}']
['{DD44B189-7678-4AEB-A0B7-95485B6E4086}']
{ Property getters and setters }
function GetIDValue: Integer;
procedure SetIDValue(const aValue: Integer);
@ -2811,7 +2835,7 @@ type
{ IGruposProveedor }
IGruposProveedor = interface(IDAStronglyTypedDataTable)
['{79D0F5A2-1006-489A-861F-E1010826A125}']
['{5D7E6BE9-D5F2-4B5D-B3EA-4BA497851657}']
{ Property getters and setters }
function GetIDValue: Integer;
procedure SetIDValue(const aValue: Integer);
@ -2858,7 +2882,7 @@ type
{ IGruposEmpleado }
IGruposEmpleado = interface(IDAStronglyTypedDataTable)
['{4125D0FB-2B55-4467-9699-3E8ACBD42536}']
['{BED5B926-03C6-4721-AF4E-BFEC5BC86F80}']
{ Property getters and setters }
function GetIDValue: Integer;
procedure SetIDValue(const aValue: Integer);
@ -2905,7 +2929,7 @@ type
{ IContactos_Refresh }
IContactos_Refresh = interface(IDAStronglyTypedDataTable)
['{586D4069-929D-4534-B0F8-2571EC18642B}']
['{517988F7-BF2A-479A-99FE-E79D80963C54}']
{ Property getters and setters }
function GetIDValue: Integer;
procedure SetIDValue(const aValue: Integer);
@ -3180,7 +3204,7 @@ type
{ IContratosEmpleados }
IContratosEmpleados = interface(IDAStronglyTypedDataTable)
['{41A79482-6529-4898-B689-BACE01797F02}']
['{4FD3C122-8E08-4C82-9BCE-63B0B43A198E}']
{ Property getters and setters }
function GetCONTRATOValue: String;
procedure SetCONTRATOValue(const aValue: String);
@ -3215,7 +3239,7 @@ type
{ IDescripcionesProveedores }
IDescripcionesProveedores = interface(IDAStronglyTypedDataTable)
['{FC0653D5-96D3-4C1C-9437-56595DFEB2C7}']
['{4B127909-A8AC-47F7-A9A0-2FE188052553}']
{ Property getters and setters }
function GetDESCRIPCION_PROVEEDORValue: String;
procedure SetDESCRIPCION_PROVEEDORValue(const aValue: String);
@ -3250,7 +3274,7 @@ type
{ IPersonalContacto }
IPersonalContacto = interface(IDAStronglyTypedDataTable)
['{7C4776C9-1F5A-4A84-AF95-5499638E984C}']
['{A2B94517-310F-4530-8756-1B4C7BB2B583}']
{ Property getters and setters }
function GetIDValue: Integer;
procedure SetIDValue(const aValue: Integer);
@ -3393,7 +3417,7 @@ type
{ IAgentes_Comisiones }
IAgentes_Comisiones = interface(IDAStronglyTypedDataTable)
['{2EF8B495-6460-40F7-B268-BF5EDB0973AA}']
['{179C4684-309E-4318-B25B-D1D1CEB9F242}']
{ Property getters and setters }
function GetIDValue: Integer;
procedure SetIDValue(const aValue: Integer);
@ -3476,7 +3500,7 @@ type
{ IAgentes }
IAgentes = interface(IDAStronglyTypedDataTable)
['{6EA11F0C-820C-4310-AEE9-F3F0E1FEFCCF}']
['{25606DBC-D690-4FE7-8D02-BD3BFFA09E6C}']
{ Property getters and setters }
function GetIDValue: Integer;
procedure SetIDValue(const aValue: Integer);
@ -3809,6 +3833,137 @@ type
end;
{ IClientesDescuentosArticulos }
IClientesDescuentosArticulos = interface(IDAStronglyTypedDataTable)
['{C7514438-0B9E-4912-91FE-FEC0847CA141}']
{ Property getters and setters }
function GetIDValue: Integer;
procedure SetIDValue(const aValue: Integer);
function GetIDIsNull: Boolean;
procedure SetIDIsNull(const aValue: Boolean);
function GetID_CLIENTEValue: Integer;
procedure SetID_CLIENTEValue(const aValue: Integer);
function GetID_CLIENTEIsNull: Boolean;
procedure SetID_CLIENTEIsNull(const aValue: Boolean);
function GetID_ARTICULOValue: SmallInt;
procedure SetID_ARTICULOValue(const aValue: SmallInt);
function GetID_ARTICULOIsNull: Boolean;
procedure SetID_ARTICULOIsNull(const aValue: Boolean);
function GetREFERENCIAValue: String;
procedure SetREFERENCIAValue(const aValue: String);
function GetREFERENCIAIsNull: Boolean;
procedure SetREFERENCIAIsNull(const aValue: Boolean);
function GetDESCRIPCIONValue: String;
procedure SetDESCRIPCIONValue(const aValue: String);
function GetDESCRIPCIONIsNull: Boolean;
procedure SetDESCRIPCIONIsNull(const aValue: Boolean);
function GetPRECIO_COSTEValue: Currency;
procedure SetPRECIO_COSTEValue(const aValue: Currency);
function GetPRECIO_COSTEIsNull: Boolean;
procedure SetPRECIO_COSTEIsNull(const aValue: Boolean);
function GetDESCUENTO_PROVEEDORValue: Float;
procedure SetDESCUENTO_PROVEEDORValue(const aValue: Float);
function GetDESCUENTO_PROVEEDORIsNull: Boolean;
procedure SetDESCUENTO_PROVEEDORIsNull(const aValue: Boolean);
function GetPRECIO_NETOValue: Currency;
procedure SetPRECIO_NETOValue(const aValue: Currency);
function GetPRECIO_NETOIsNull: Boolean;
procedure SetPRECIO_NETOIsNull(const aValue: Boolean);
function GetDESCUENTOValue: Float;
procedure SetDESCUENTOValue(const aValue: Float);
function GetDESCUENTOIsNull: Boolean;
procedure SetDESCUENTOIsNull(const aValue: Boolean);
{ Properties }
property ID: Integer read GetIDValue write SetIDValue;
property IDIsNull: Boolean read GetIDIsNull write SetIDIsNull;
property ID_CLIENTE: Integer read GetID_CLIENTEValue write SetID_CLIENTEValue;
property ID_CLIENTEIsNull: Boolean read GetID_CLIENTEIsNull write SetID_CLIENTEIsNull;
property ID_ARTICULO: SmallInt read GetID_ARTICULOValue write SetID_ARTICULOValue;
property ID_ARTICULOIsNull: Boolean read GetID_ARTICULOIsNull write SetID_ARTICULOIsNull;
property REFERENCIA: String read GetREFERENCIAValue write SetREFERENCIAValue;
property REFERENCIAIsNull: Boolean read GetREFERENCIAIsNull write SetREFERENCIAIsNull;
property DESCRIPCION: String read GetDESCRIPCIONValue write SetDESCRIPCIONValue;
property DESCRIPCIONIsNull: Boolean read GetDESCRIPCIONIsNull write SetDESCRIPCIONIsNull;
property PRECIO_COSTE: Currency read GetPRECIO_COSTEValue write SetPRECIO_COSTEValue;
property PRECIO_COSTEIsNull: Boolean read GetPRECIO_COSTEIsNull write SetPRECIO_COSTEIsNull;
property DESCUENTO_PROVEEDOR: Float read GetDESCUENTO_PROVEEDORValue write SetDESCUENTO_PROVEEDORValue;
property DESCUENTO_PROVEEDORIsNull: Boolean read GetDESCUENTO_PROVEEDORIsNull write SetDESCUENTO_PROVEEDORIsNull;
property PRECIO_NETO: Currency read GetPRECIO_NETOValue write SetPRECIO_NETOValue;
property PRECIO_NETOIsNull: Boolean read GetPRECIO_NETOIsNull write SetPRECIO_NETOIsNull;
property DESCUENTO: Float read GetDESCUENTOValue write SetDESCUENTOValue;
property DESCUENTOIsNull: Boolean read GetDESCUENTOIsNull write SetDESCUENTOIsNull;
end;
{ TClientesDescuentosArticulosDataTableRules }
TClientesDescuentosArticulosDataTableRules = class(TIntfObjectDADataTableRules, IClientesDescuentosArticulos)
private
protected
{ Property getters and setters }
function GetIDValue: Integer; virtual;
procedure SetIDValue(const aValue: Integer); virtual;
function GetIDIsNull: Boolean; virtual;
procedure SetIDIsNull(const aValue: Boolean); virtual;
function GetID_CLIENTEValue: Integer; virtual;
procedure SetID_CLIENTEValue(const aValue: Integer); virtual;
function GetID_CLIENTEIsNull: Boolean; virtual;
procedure SetID_CLIENTEIsNull(const aValue: Boolean); virtual;
function GetID_ARTICULOValue: SmallInt; virtual;
procedure SetID_ARTICULOValue(const aValue: SmallInt); virtual;
function GetID_ARTICULOIsNull: Boolean; virtual;
procedure SetID_ARTICULOIsNull(const aValue: Boolean); virtual;
function GetREFERENCIAValue: String; virtual;
procedure SetREFERENCIAValue(const aValue: String); virtual;
function GetREFERENCIAIsNull: Boolean; virtual;
procedure SetREFERENCIAIsNull(const aValue: Boolean); virtual;
function GetDESCRIPCIONValue: String; virtual;
procedure SetDESCRIPCIONValue(const aValue: String); virtual;
function GetDESCRIPCIONIsNull: Boolean; virtual;
procedure SetDESCRIPCIONIsNull(const aValue: Boolean); virtual;
function GetPRECIO_COSTEValue: Currency; virtual;
procedure SetPRECIO_COSTEValue(const aValue: Currency); virtual;
function GetPRECIO_COSTEIsNull: Boolean; virtual;
procedure SetPRECIO_COSTEIsNull(const aValue: Boolean); virtual;
function GetDESCUENTO_PROVEEDORValue: Float; virtual;
procedure SetDESCUENTO_PROVEEDORValue(const aValue: Float); virtual;
function GetDESCUENTO_PROVEEDORIsNull: Boolean; virtual;
procedure SetDESCUENTO_PROVEEDORIsNull(const aValue: Boolean); virtual;
function GetPRECIO_NETOValue: Currency; virtual;
procedure SetPRECIO_NETOValue(const aValue: Currency); virtual;
function GetPRECIO_NETOIsNull: Boolean; virtual;
procedure SetPRECIO_NETOIsNull(const aValue: Boolean); virtual;
function GetDESCUENTOValue: Float; virtual;
procedure SetDESCUENTOValue(const aValue: Float); virtual;
function GetDESCUENTOIsNull: Boolean; virtual;
procedure SetDESCUENTOIsNull(const aValue: Boolean); virtual;
{ Properties }
property ID: Integer read GetIDValue write SetIDValue;
property IDIsNull: Boolean read GetIDIsNull write SetIDIsNull;
property ID_CLIENTE: Integer read GetID_CLIENTEValue write SetID_CLIENTEValue;
property ID_CLIENTEIsNull: Boolean read GetID_CLIENTEIsNull write SetID_CLIENTEIsNull;
property ID_ARTICULO: SmallInt read GetID_ARTICULOValue write SetID_ARTICULOValue;
property ID_ARTICULOIsNull: Boolean read GetID_ARTICULOIsNull write SetID_ARTICULOIsNull;
property REFERENCIA: String read GetREFERENCIAValue write SetREFERENCIAValue;
property REFERENCIAIsNull: Boolean read GetREFERENCIAIsNull write SetREFERENCIAIsNull;
property DESCRIPCION: String read GetDESCRIPCIONValue write SetDESCRIPCIONValue;
property DESCRIPCIONIsNull: Boolean read GetDESCRIPCIONIsNull write SetDESCRIPCIONIsNull;
property PRECIO_COSTE: Currency read GetPRECIO_COSTEValue write SetPRECIO_COSTEValue;
property PRECIO_COSTEIsNull: Boolean read GetPRECIO_COSTEIsNull write SetPRECIO_COSTEIsNull;
property DESCUENTO_PROVEEDOR: Float read GetDESCUENTO_PROVEEDORValue write SetDESCUENTO_PROVEEDORValue;
property DESCUENTO_PROVEEDORIsNull: Boolean read GetDESCUENTO_PROVEEDORIsNull write SetDESCUENTO_PROVEEDORIsNull;
property PRECIO_NETO: Currency read GetPRECIO_NETOValue write SetPRECIO_NETOValue;
property PRECIO_NETOIsNull: Boolean read GetPRECIO_NETOIsNull write SetPRECIO_NETOIsNull;
property DESCUENTO: Float read GetDESCUENTOValue write SetDESCUENTOValue;
property DESCUENTOIsNull: Boolean read GetDESCUENTOIsNull write SetDESCUENTOIsNull;
public
constructor Create(aDataTable: TDADataTable); override;
destructor Destroy; override;
end;
implementation
uses Variants, uROBinaryHelpers;
@ -9072,6 +9227,207 @@ begin
end;
{ TClientesDescuentosArticulosDataTableRules }
constructor TClientesDescuentosArticulosDataTableRules.Create(aDataTable: TDADataTable);
begin
inherited;
end;
destructor TClientesDescuentosArticulosDataTableRules.Destroy;
begin
inherited;
end;
function TClientesDescuentosArticulosDataTableRules.GetIDValue: Integer;
begin
result := DataTable.Fields[idx_ClientesDescuentosArticulosID].AsInteger;
end;
procedure TClientesDescuentosArticulosDataTableRules.SetIDValue(const aValue: Integer);
begin
DataTable.Fields[idx_ClientesDescuentosArticulosID].AsInteger := aValue;
end;
function TClientesDescuentosArticulosDataTableRules.GetIDIsNull: boolean;
begin
result := DataTable.Fields[idx_ClientesDescuentosArticulosID].IsNull;
end;
procedure TClientesDescuentosArticulosDataTableRules.SetIDIsNull(const aValue: Boolean);
begin
if aValue then
DataTable.Fields[idx_ClientesDescuentosArticulosID].AsVariant := Null;
end;
function TClientesDescuentosArticulosDataTableRules.GetID_CLIENTEValue: Integer;
begin
result := DataTable.Fields[idx_ClientesDescuentosArticulosID_CLIENTE].AsInteger;
end;
procedure TClientesDescuentosArticulosDataTableRules.SetID_CLIENTEValue(const aValue: Integer);
begin
DataTable.Fields[idx_ClientesDescuentosArticulosID_CLIENTE].AsInteger := aValue;
end;
function TClientesDescuentosArticulosDataTableRules.GetID_CLIENTEIsNull: boolean;
begin
result := DataTable.Fields[idx_ClientesDescuentosArticulosID_CLIENTE].IsNull;
end;
procedure TClientesDescuentosArticulosDataTableRules.SetID_CLIENTEIsNull(const aValue: Boolean);
begin
if aValue then
DataTable.Fields[idx_ClientesDescuentosArticulosID_CLIENTE].AsVariant := Null;
end;
function TClientesDescuentosArticulosDataTableRules.GetID_ARTICULOValue: SmallInt;
begin
result := DataTable.Fields[idx_ClientesDescuentosArticulosID_ARTICULO].AsSmallInt;
end;
procedure TClientesDescuentosArticulosDataTableRules.SetID_ARTICULOValue(const aValue: SmallInt);
begin
DataTable.Fields[idx_ClientesDescuentosArticulosID_ARTICULO].AsSmallInt := aValue;
end;
function TClientesDescuentosArticulosDataTableRules.GetID_ARTICULOIsNull: boolean;
begin
result := DataTable.Fields[idx_ClientesDescuentosArticulosID_ARTICULO].IsNull;
end;
procedure TClientesDescuentosArticulosDataTableRules.SetID_ARTICULOIsNull(const aValue: Boolean);
begin
if aValue then
DataTable.Fields[idx_ClientesDescuentosArticulosID_ARTICULO].AsVariant := Null;
end;
function TClientesDescuentosArticulosDataTableRules.GetREFERENCIAValue: String;
begin
result := DataTable.Fields[idx_ClientesDescuentosArticulosREFERENCIA].AsString;
end;
procedure TClientesDescuentosArticulosDataTableRules.SetREFERENCIAValue(const aValue: String);
begin
DataTable.Fields[idx_ClientesDescuentosArticulosREFERENCIA].AsString := aValue;
end;
function TClientesDescuentosArticulosDataTableRules.GetREFERENCIAIsNull: boolean;
begin
result := DataTable.Fields[idx_ClientesDescuentosArticulosREFERENCIA].IsNull;
end;
procedure TClientesDescuentosArticulosDataTableRules.SetREFERENCIAIsNull(const aValue: Boolean);
begin
if aValue then
DataTable.Fields[idx_ClientesDescuentosArticulosREFERENCIA].AsVariant := Null;
end;
function TClientesDescuentosArticulosDataTableRules.GetDESCRIPCIONValue: String;
begin
result := DataTable.Fields[idx_ClientesDescuentosArticulosDESCRIPCION].AsString;
end;
procedure TClientesDescuentosArticulosDataTableRules.SetDESCRIPCIONValue(const aValue: String);
begin
DataTable.Fields[idx_ClientesDescuentosArticulosDESCRIPCION].AsString := aValue;
end;
function TClientesDescuentosArticulosDataTableRules.GetDESCRIPCIONIsNull: boolean;
begin
result := DataTable.Fields[idx_ClientesDescuentosArticulosDESCRIPCION].IsNull;
end;
procedure TClientesDescuentosArticulosDataTableRules.SetDESCRIPCIONIsNull(const aValue: Boolean);
begin
if aValue then
DataTable.Fields[idx_ClientesDescuentosArticulosDESCRIPCION].AsVariant := Null;
end;
function TClientesDescuentosArticulosDataTableRules.GetPRECIO_COSTEValue: Currency;
begin
result := DataTable.Fields[idx_ClientesDescuentosArticulosPRECIO_COSTE].AsCurrency;
end;
procedure TClientesDescuentosArticulosDataTableRules.SetPRECIO_COSTEValue(const aValue: Currency);
begin
DataTable.Fields[idx_ClientesDescuentosArticulosPRECIO_COSTE].AsCurrency := aValue;
end;
function TClientesDescuentosArticulosDataTableRules.GetPRECIO_COSTEIsNull: boolean;
begin
result := DataTable.Fields[idx_ClientesDescuentosArticulosPRECIO_COSTE].IsNull;
end;
procedure TClientesDescuentosArticulosDataTableRules.SetPRECIO_COSTEIsNull(const aValue: Boolean);
begin
if aValue then
DataTable.Fields[idx_ClientesDescuentosArticulosPRECIO_COSTE].AsVariant := Null;
end;
function TClientesDescuentosArticulosDataTableRules.GetDESCUENTO_PROVEEDORValue: Float;
begin
result := DataTable.Fields[idx_ClientesDescuentosArticulosDESCUENTO_PROVEEDOR].AsFloat;
end;
procedure TClientesDescuentosArticulosDataTableRules.SetDESCUENTO_PROVEEDORValue(const aValue: Float);
begin
DataTable.Fields[idx_ClientesDescuentosArticulosDESCUENTO_PROVEEDOR].AsFloat := aValue;
end;
function TClientesDescuentosArticulosDataTableRules.GetDESCUENTO_PROVEEDORIsNull: boolean;
begin
result := DataTable.Fields[idx_ClientesDescuentosArticulosDESCUENTO_PROVEEDOR].IsNull;
end;
procedure TClientesDescuentosArticulosDataTableRules.SetDESCUENTO_PROVEEDORIsNull(const aValue: Boolean);
begin
if aValue then
DataTable.Fields[idx_ClientesDescuentosArticulosDESCUENTO_PROVEEDOR].AsVariant := Null;
end;
function TClientesDescuentosArticulosDataTableRules.GetPRECIO_NETOValue: Currency;
begin
result := DataTable.Fields[idx_ClientesDescuentosArticulosPRECIO_NETO].AsCurrency;
end;
procedure TClientesDescuentosArticulosDataTableRules.SetPRECIO_NETOValue(const aValue: Currency);
begin
DataTable.Fields[idx_ClientesDescuentosArticulosPRECIO_NETO].AsCurrency := aValue;
end;
function TClientesDescuentosArticulosDataTableRules.GetPRECIO_NETOIsNull: boolean;
begin
result := DataTable.Fields[idx_ClientesDescuentosArticulosPRECIO_NETO].IsNull;
end;
procedure TClientesDescuentosArticulosDataTableRules.SetPRECIO_NETOIsNull(const aValue: Boolean);
begin
if aValue then
DataTable.Fields[idx_ClientesDescuentosArticulosPRECIO_NETO].AsVariant := Null;
end;
function TClientesDescuentosArticulosDataTableRules.GetDESCUENTOValue: Float;
begin
result := DataTable.Fields[idx_ClientesDescuentosArticulosDESCUENTO].AsFloat;
end;
procedure TClientesDescuentosArticulosDataTableRules.SetDESCUENTOValue(const aValue: Float);
begin
DataTable.Fields[idx_ClientesDescuentosArticulosDESCUENTO].AsFloat := aValue;
end;
function TClientesDescuentosArticulosDataTableRules.GetDESCUENTOIsNull: boolean;
begin
result := DataTable.Fields[idx_ClientesDescuentosArticulosDESCUENTO].IsNull;
end;
procedure TClientesDescuentosArticulosDataTableRules.SetDESCUENTOIsNull(const aValue: Boolean);
begin
if aValue then
DataTable.Fields[idx_ClientesDescuentosArticulosDESCUENTO].AsVariant := Null;
end;
initialization
RegisterDataTableRules(RID_Contactos, TContactosDataTableRules);
RegisterDataTableRules(RID_GruposCliente, TGruposClienteDataTableRules);
@ -9089,5 +9445,6 @@ initialization
RegisterDataTableRules(RID_PersonalContacto, TPersonalContactoDataTableRules);
RegisterDataTableRules(RID_Agentes_Comisiones, TAgentes_ComisionesDataTableRules);
RegisterDataTableRules(RID_Agentes, TAgentesDataTableRules);
RegisterDataTableRules(RID_ClientesDescuentosArticulos, TClientesDescuentosArticulosDataTableRules);
end.

487
Source/Modulos/Contactos/Model/schContactosServer_Intf.pas
View File

@ -9,27 +9,28 @@ const
{ Delta rules ids
Feel free to change them to something more human readable
but make sure they are unique in the context of your application }
RID_ContactosDelta = '{2299AF5C-93A6-4870-867B-460C36B56E93}';
RID_GruposClienteDelta = '{AD8AB009-EDD5-46D4-8AE7-3647C7BD1219}';
RID_DatosBancariosDelta = '{F820E138-7A65-4103-9FF8-071A33AA5D7D}';
RID_ClientesDelta = '{452137EA-2D55-4ADB-B2E9-8EB15CB2B773}';
RID_ProveedoresDelta = '{2E5CCC1F-8071-452C-8E33-6C7AC9044F8D}';
RID_EmpleadosDelta = '{DED794FA-AD5C-4808-BBA5-A27CD6268CEC}';
RID_DireccionesContactoDelta = '{E2A9F36E-2103-4AD8-9381-C84A3B12B3AE}';
RID_ClientesDescuentosDelta = '{4DDCB8A9-4A0A-4866-9843-817FF925BC53}';
RID_GruposProveedorDelta = '{55B4089D-A9AB-4A29-9EB2-630E2594E4E6}';
RID_GruposEmpleadoDelta = '{C938DD21-EFD3-42D7-9A79-2F1572C8DE52}';
RID_Contactos_RefreshDelta = '{600B66BD-C6C3-4919-9890-F312E1B5D200}';
RID_ContratosEmpleadosDelta = '{14195F40-F9F2-44C1-8788-55F57D0A9691}';
RID_DescripcionesProveedoresDelta = '{006DC4AA-84BE-4472-8A8F-5FB0D81D71FB}';
RID_PersonalContactoDelta = '{C9915E22-807B-462B-8FB0-2CC33FCCA389}';
RID_Agentes_ComisionesDelta = '{14B4AF5B-96D8-4269-BC87-1E5C3C8CC4C1}';
RID_AgentesDelta = '{419889C5-E18E-43AA-B78B-7AA634B266A2}';
RID_ContactosDelta = '{7A909B9F-42DB-4F5E-9196-701C75D36EA0}';
RID_GruposClienteDelta = '{C390D31D-6B7D-4B6B-8E58-CF78E94E2C39}';
RID_DatosBancariosDelta = '{E4C4932D-2A40-43F6-83D8-CD8E515CEE60}';
RID_ClientesDelta = '{06D05072-BF91-44B6-9A86-0E8B21188BED}';
RID_ProveedoresDelta = '{1407A6EF-EB6A-46E0-B05D-DE0F54F454EA}';
RID_EmpleadosDelta = '{88CFAB04-0E48-42E1-95A2-E8FADEA9EB9D}';
RID_DireccionesContactoDelta = '{D6D2C551-BD80-45C4-B1A3-0620D02F4A8A}';
RID_ClientesDescuentosDelta = '{0CF31B52-833B-465C-A26D-59130E5036C0}';
RID_GruposProveedorDelta = '{F5A41EE1-F855-4068-B284-A97803A3D915}';
RID_GruposEmpleadoDelta = '{DEDEA112-7918-4E5C-8461-E23255FE4D36}';
RID_Contactos_RefreshDelta = '{171B4B4C-6FC2-42C8-9501-6A4D6778FFEC}';
RID_ContratosEmpleadosDelta = '{7FE81E95-B103-474F-B285-CDC9E3F17752}';
RID_DescripcionesProveedoresDelta = '{0003F3A5-5D40-41C0-B825-B9AF9C4425F3}';
RID_PersonalContactoDelta = '{3125474E-8DBB-485C-88C4-59A0B3F36003}';
RID_Agentes_ComisionesDelta = '{6B1753B7-D35B-425E-B5EE-F2EA602F189F}';
RID_AgentesDelta = '{DCFA7D35-E0D6-4CE4-9943-F781494F7F30}';
RID_ClientesDescuentosArticulosDelta = '{9A4A1E14-FAAE-4FC4-A0E9-5257C40CF4C4}';
type
{ IContactosDelta }
IContactosDelta = interface(IContactos)
['{2299AF5C-93A6-4870-867B-460C36B56E93}']
['{7A909B9F-42DB-4F5E-9196-701C75D36EA0}']
{ Property getters and setters }
function GetOldIDValue : Integer;
function GetOldID_CATEGORIAValue : Integer;
@ -328,7 +329,7 @@ type
{ IGruposClienteDelta }
IGruposClienteDelta = interface(IGruposCliente)
['{AD8AB009-EDD5-46D4-8AE7-3647C7BD1219}']
['{C390D31D-6B7D-4B6B-8E58-CF78E94E2C39}']
{ Property getters and setters }
function GetOldIDValue : Integer;
function GetOldDESCRIPCIONValue : String;
@ -374,7 +375,7 @@ type
{ IDatosBancariosDelta }
IDatosBancariosDelta = interface(IDatosBancarios)
['{F820E138-7A65-4103-9FF8-071A33AA5D7D}']
['{E4C4932D-2A40-43F6-83D8-CD8E515CEE60}']
{ Property getters and setters }
function GetOldIDValue : Integer;
function GetOldID_CONTACTOValue : Integer;
@ -504,7 +505,7 @@ type
{ IClientesDelta }
IClientesDelta = interface(IClientes)
['{452137EA-2D55-4ADB-B2E9-8EB15CB2B773}']
['{06D05072-BF91-44B6-9A86-0E8B21188BED}']
{ Property getters and setters }
function GetOldIDValue : Integer;
function GetOldID_CATEGORIAValue : Integer;
@ -1031,7 +1032,7 @@ type
{ IProveedoresDelta }
IProveedoresDelta = interface(IProveedores)
['{2E5CCC1F-8071-452C-8E33-6C7AC9044F8D}']
['{1407A6EF-EB6A-46E0-B05D-DE0F54F454EA}']
{ Property getters and setters }
function GetOldIDValue : Integer;
function GetOldID_CATEGORIAValue : Integer;
@ -1522,7 +1523,7 @@ type
{ IEmpleadosDelta }
IEmpleadosDelta = interface(IEmpleados)
['{DED794FA-AD5C-4808-BBA5-A27CD6268CEC}']
['{88CFAB04-0E48-42E1-95A2-E8FADEA9EB9D}']
{ Property getters and setters }
function GetOldIDValue : Integer;
function GetOldID_CATEGORIAValue : Integer;
@ -1957,7 +1958,7 @@ type
{ IDireccionesContactoDelta }
IDireccionesContactoDelta = interface(IDireccionesContacto)
['{E2A9F36E-2103-4AD8-9381-C84A3B12B3AE}']
['{D6D2C551-BD80-45C4-B1A3-0620D02F4A8A}']
{ Property getters and setters }
function GetOldIDValue : Integer;
function GetOldID_CONTACTOValue : Integer;
@ -2172,7 +2173,7 @@ type
{ IClientesDescuentosDelta }
IClientesDescuentosDelta = interface(IClientesDescuentos)
['{4DDCB8A9-4A0A-4866-9843-817FF925BC53}']
['{0CF31B52-833B-465C-A26D-59130E5036C0}']
{ Property getters and setters }
function GetOldIDValue : Integer;
function GetOldID_CLIENTEValue : Integer;
@ -2254,7 +2255,7 @@ type
{ IGruposProveedorDelta }
IGruposProveedorDelta = interface(IGruposProveedor)
['{55B4089D-A9AB-4A29-9EB2-630E2594E4E6}']
['{F5A41EE1-F855-4068-B284-A97803A3D915}']
{ Property getters and setters }
function GetOldIDValue : Integer;
function GetOldDESCRIPCIONValue : String;
@ -2300,7 +2301,7 @@ type
{ IGruposEmpleadoDelta }
IGruposEmpleadoDelta = interface(IGruposEmpleado)
['{C938DD21-EFD3-42D7-9A79-2F1572C8DE52}']
['{DEDEA112-7918-4E5C-8461-E23255FE4D36}']
{ Property getters and setters }
function GetOldIDValue : Integer;
function GetOldDESCRIPCIONValue : String;
@ -2346,7 +2347,7 @@ type
{ IContactos_RefreshDelta }
IContactos_RefreshDelta = interface(IContactos_Refresh)
['{600B66BD-C6C3-4919-9890-F312E1B5D200}']
['{171B4B4C-6FC2-42C8-9501-6A4D6778FFEC}']
{ Property getters and setters }
function GetOldIDValue : Integer;
function GetOldNIF_CIFValue : String;
@ -2621,7 +2622,7 @@ type
{ IContratosEmpleadosDelta }
IContratosEmpleadosDelta = interface(IContratosEmpleados)
['{14195F40-F9F2-44C1-8788-55F57D0A9691}']
['{7FE81E95-B103-474F-B285-CDC9E3F17752}']
{ Property getters and setters }
function GetOldCONTRATOValue : String;
@ -2655,7 +2656,7 @@ type
{ IDescripcionesProveedoresDelta }
IDescripcionesProveedoresDelta = interface(IDescripcionesProveedores)
['{006DC4AA-84BE-4472-8A8F-5FB0D81D71FB}']
['{0003F3A5-5D40-41C0-B825-B9AF9C4425F3}']
{ Property getters and setters }
function GetOldDESCRIPCION_PROVEEDORValue : String;
@ -2689,7 +2690,7 @@ type
{ IPersonalContactoDelta }
IPersonalContactoDelta = interface(IPersonalContacto)
['{C9915E22-807B-462B-8FB0-2CC33FCCA389}']
['{3125474E-8DBB-485C-88C4-59A0B3F36003}']
{ Property getters and setters }
function GetOldIDValue : Integer;
function GetOldID_CONTACTOValue : Integer;
@ -2831,7 +2832,7 @@ type
{ IAgentes_ComisionesDelta }
IAgentes_ComisionesDelta = interface(IAgentes_Comisiones)
['{14B4AF5B-96D8-4269-BC87-1E5C3C8CC4C1}']
['{6B1753B7-D35B-425E-B5EE-F2EA602F189F}']
{ Property getters and setters }
function GetOldIDValue : Integer;
function GetOldID_AGENTEValue : Integer;
@ -2913,7 +2914,7 @@ type
{ IAgentesDelta }
IAgentesDelta = interface(IAgentes)
['{419889C5-E18E-43AA-B78B-7AA634B266A2}']
['{DCFA7D35-E0D6-4CE4-9943-F781494F7F30}']
{ Property getters and setters }
function GetOldIDValue : Integer;
function GetOldID_CATEGORIAValue : Integer;
@ -3246,6 +3247,136 @@ type
end;
{ IClientesDescuentosArticulosDelta }
IClientesDescuentosArticulosDelta = interface(IClientesDescuentosArticulos)
['{9A4A1E14-FAAE-4FC4-A0E9-5257C40CF4C4}']
{ Property getters and setters }
function GetOldIDValue : Integer;
function GetOldID_CLIENTEValue : Integer;
function GetOldID_ARTICULOValue : SmallInt;
function GetOldREFERENCIAValue : String;
function GetOldDESCRIPCIONValue : String;
function GetOldPRECIO_COSTEValue : Currency;
function GetOldDESCUENTO_PROVEEDORValue : Float;
function GetOldPRECIO_NETOValue : Currency;
function GetOldDESCUENTOValue : Float;
{ Properties }
property OldID : Integer read GetOldIDValue;
property OldID_CLIENTE : Integer read GetOldID_CLIENTEValue;
property OldID_ARTICULO : SmallInt read GetOldID_ARTICULOValue;
property OldREFERENCIA : String read GetOldREFERENCIAValue;
property OldDESCRIPCION : String read GetOldDESCRIPCIONValue;
property OldPRECIO_COSTE : Currency read GetOldPRECIO_COSTEValue;
property OldDESCUENTO_PROVEEDOR : Float read GetOldDESCUENTO_PROVEEDORValue;
property OldPRECIO_NETO : Currency read GetOldPRECIO_NETOValue;
property OldDESCUENTO : Float read GetOldDESCUENTOValue;
end;
{ TClientesDescuentosArticulosBusinessProcessorRules }
TClientesDescuentosArticulosBusinessProcessorRules = class(TDABusinessProcessorRules, IClientesDescuentosArticulos, IClientesDescuentosArticulosDelta)
private
protected
{ Property getters and setters }
function GetIDValue: Integer; virtual;
function GetIDIsNull: Boolean; virtual;
function GetOldIDValue: Integer; virtual;
function GetOldIDIsNull: Boolean; virtual;
procedure SetIDValue(const aValue: Integer); virtual;
procedure SetIDIsNull(const aValue: Boolean); virtual;
function GetID_CLIENTEValue: Integer; virtual;
function GetID_CLIENTEIsNull: Boolean; virtual;
function GetOldID_CLIENTEValue: Integer; virtual;
function GetOldID_CLIENTEIsNull: Boolean; virtual;
procedure SetID_CLIENTEValue(const aValue: Integer); virtual;
procedure SetID_CLIENTEIsNull(const aValue: Boolean); virtual;
function GetID_ARTICULOValue: SmallInt; virtual;
function GetID_ARTICULOIsNull: Boolean; virtual;
function GetOldID_ARTICULOValue: SmallInt; virtual;
function GetOldID_ARTICULOIsNull: Boolean; virtual;
procedure SetID_ARTICULOValue(const aValue: SmallInt); virtual;
procedure SetID_ARTICULOIsNull(const aValue: Boolean); virtual;
function GetREFERENCIAValue: String; virtual;
function GetREFERENCIAIsNull: Boolean; virtual;
function GetOldREFERENCIAValue: String; virtual;
function GetOldREFERENCIAIsNull: Boolean; virtual;
procedure SetREFERENCIAValue(const aValue: String); virtual;
procedure SetREFERENCIAIsNull(const aValue: Boolean); virtual;
function GetDESCRIPCIONValue: String; virtual;
function GetDESCRIPCIONIsNull: Boolean; virtual;
function GetOldDESCRIPCIONValue: String; virtual;
function GetOldDESCRIPCIONIsNull: Boolean; virtual;
procedure SetDESCRIPCIONValue(const aValue: String); virtual;
procedure SetDESCRIPCIONIsNull(const aValue: Boolean); virtual;
function GetPRECIO_COSTEValue: Currency; virtual;
function GetPRECIO_COSTEIsNull: Boolean; virtual;
function GetOldPRECIO_COSTEValue: Currency; virtual;
function GetOldPRECIO_COSTEIsNull: Boolean; virtual;
procedure SetPRECIO_COSTEValue(const aValue: Currency); virtual;
procedure SetPRECIO_COSTEIsNull(const aValue: Boolean); virtual;
function GetDESCUENTO_PROVEEDORValue: Float; virtual;
function GetDESCUENTO_PROVEEDORIsNull: Boolean; virtual;
function GetOldDESCUENTO_PROVEEDORValue: Float; virtual;
function GetOldDESCUENTO_PROVEEDORIsNull: Boolean; virtual;
procedure SetDESCUENTO_PROVEEDORValue(const aValue: Float); virtual;
procedure SetDESCUENTO_PROVEEDORIsNull(const aValue: Boolean); virtual;
function GetPRECIO_NETOValue: Currency; virtual;
function GetPRECIO_NETOIsNull: Boolean; virtual;
function GetOldPRECIO_NETOValue: Currency; virtual;
function GetOldPRECIO_NETOIsNull: Boolean; virtual;
procedure SetPRECIO_NETOValue(const aValue: Currency); virtual;
procedure SetPRECIO_NETOIsNull(const aValue: Boolean); virtual;
function GetDESCUENTOValue: Float; virtual;
function GetDESCUENTOIsNull: Boolean; virtual;
function GetOldDESCUENTOValue: Float; virtual;
function GetOldDESCUENTOIsNull: Boolean; virtual;
procedure SetDESCUENTOValue(const aValue: Float); virtual;
procedure SetDESCUENTOIsNull(const aValue: Boolean); virtual;
{ Properties }
property ID : Integer read GetIDValue write SetIDValue;
property IDIsNull : Boolean read GetIDIsNull write SetIDIsNull;
property OldID : Integer read GetOldIDValue;
property OldIDIsNull : Boolean read GetOldIDIsNull;
property ID_CLIENTE : Integer read GetID_CLIENTEValue write SetID_CLIENTEValue;
property ID_CLIENTEIsNull : Boolean read GetID_CLIENTEIsNull write SetID_CLIENTEIsNull;
property OldID_CLIENTE : Integer read GetOldID_CLIENTEValue;
property OldID_CLIENTEIsNull : Boolean read GetOldID_CLIENTEIsNull;
property ID_ARTICULO : SmallInt read GetID_ARTICULOValue write SetID_ARTICULOValue;
property ID_ARTICULOIsNull : Boolean read GetID_ARTICULOIsNull write SetID_ARTICULOIsNull;
property OldID_ARTICULO : SmallInt read GetOldID_ARTICULOValue;
property OldID_ARTICULOIsNull : Boolean read GetOldID_ARTICULOIsNull;
property REFERENCIA : String read GetREFERENCIAValue write SetREFERENCIAValue;
property REFERENCIAIsNull : Boolean read GetREFERENCIAIsNull write SetREFERENCIAIsNull;
property OldREFERENCIA : String read GetOldREFERENCIAValue;
property OldREFERENCIAIsNull : Boolean read GetOldREFERENCIAIsNull;
property DESCRIPCION : String read GetDESCRIPCIONValue write SetDESCRIPCIONValue;
property DESCRIPCIONIsNull : Boolean read GetDESCRIPCIONIsNull write SetDESCRIPCIONIsNull;
property OldDESCRIPCION : String read GetOldDESCRIPCIONValue;
property OldDESCRIPCIONIsNull : Boolean read GetOldDESCRIPCIONIsNull;
property PRECIO_COSTE : Currency read GetPRECIO_COSTEValue write SetPRECIO_COSTEValue;
property PRECIO_COSTEIsNull : Boolean read GetPRECIO_COSTEIsNull write SetPRECIO_COSTEIsNull;
property OldPRECIO_COSTE : Currency read GetOldPRECIO_COSTEValue;
property OldPRECIO_COSTEIsNull : Boolean read GetOldPRECIO_COSTEIsNull;
property DESCUENTO_PROVEEDOR : Float read GetDESCUENTO_PROVEEDORValue write SetDESCUENTO_PROVEEDORValue;
property DESCUENTO_PROVEEDORIsNull : Boolean read GetDESCUENTO_PROVEEDORIsNull write SetDESCUENTO_PROVEEDORIsNull;
property OldDESCUENTO_PROVEEDOR : Float read GetOldDESCUENTO_PROVEEDORValue;
property OldDESCUENTO_PROVEEDORIsNull : Boolean read GetOldDESCUENTO_PROVEEDORIsNull;
property PRECIO_NETO : Currency read GetPRECIO_NETOValue write SetPRECIO_NETOValue;
property PRECIO_NETOIsNull : Boolean read GetPRECIO_NETOIsNull write SetPRECIO_NETOIsNull;
property OldPRECIO_NETO : Currency read GetOldPRECIO_NETOValue;
property OldPRECIO_NETOIsNull : Boolean read GetOldPRECIO_NETOIsNull;
property DESCUENTO : Float read GetDESCUENTOValue write SetDESCUENTOValue;
property DESCUENTOIsNull : Boolean read GetDESCUENTOIsNull write SetDESCUENTOIsNull;
property OldDESCUENTO : Float read GetOldDESCUENTOValue;
property OldDESCUENTOIsNull : Boolean read GetOldDESCUENTOIsNull;
public
constructor Create(aBusinessProcessor: TDABusinessProcessor); override;
destructor Destroy; override;
end;
implementation
uses
@ -10901,6 +11032,297 @@ begin
end;
{ TClientesDescuentosArticulosBusinessProcessorRules }
constructor TClientesDescuentosArticulosBusinessProcessorRules.Create(aBusinessProcessor: TDABusinessProcessor);
begin
inherited;
end;
destructor TClientesDescuentosArticulosBusinessProcessorRules.Destroy;
begin
inherited;
end;
function TClientesDescuentosArticulosBusinessProcessorRules.GetIDValue: Integer;
begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesDescuentosArticulosID];
end;
function TClientesDescuentosArticulosBusinessProcessorRules.GetIDIsNull: Boolean;
begin
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesDescuentosArticulosID]);
end;
function TClientesDescuentosArticulosBusinessProcessorRules.GetOldIDValue: Integer;
begin
result := BusinessProcessor.CurrentChange.OldValueByName[fld_ClientesDescuentosArticulosID];
end;
function TClientesDescuentosArticulosBusinessProcessorRules.GetOldIDIsNull: Boolean;
begin
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_ClientesDescuentosArticulosID]);
end;
procedure TClientesDescuentosArticulosBusinessProcessorRules.SetIDValue(const aValue: Integer);
begin
BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesDescuentosArticulosID] := aValue;
end;
procedure TClientesDescuentosArticulosBusinessProcessorRules.SetIDIsNull(const aValue: Boolean);
begin
if aValue then
BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesDescuentosArticulosID] := Null;
end;
function TClientesDescuentosArticulosBusinessProcessorRules.GetID_CLIENTEValue: Integer;
begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesDescuentosArticulosID_CLIENTE];
end;
function TClientesDescuentosArticulosBusinessProcessorRules.GetID_CLIENTEIsNull: Boolean;
begin
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesDescuentosArticulosID_CLIENTE]);
end;
function TClientesDescuentosArticulosBusinessProcessorRules.GetOldID_CLIENTEValue: Integer;
begin
result := BusinessProcessor.CurrentChange.OldValueByName[fld_ClientesDescuentosArticulosID_CLIENTE];
end;
function TClientesDescuentosArticulosBusinessProcessorRules.GetOldID_CLIENTEIsNull: Boolean;
begin
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_ClientesDescuentosArticulosID_CLIENTE]);
end;
procedure TClientesDescuentosArticulosBusinessProcessorRules.SetID_CLIENTEValue(const aValue: Integer);
begin
BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesDescuentosArticulosID_CLIENTE] := aValue;
end;
procedure TClientesDescuentosArticulosBusinessProcessorRules.SetID_CLIENTEIsNull(const aValue: Boolean);
begin
if aValue then
BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesDescuentosArticulosID_CLIENTE] := Null;
end;
function TClientesDescuentosArticulosBusinessProcessorRules.GetID_ARTICULOValue: SmallInt;
begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesDescuentosArticulosID_ARTICULO];
end;
function TClientesDescuentosArticulosBusinessProcessorRules.GetID_ARTICULOIsNull: Boolean;
begin
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesDescuentosArticulosID_ARTICULO]);
end;
function TClientesDescuentosArticulosBusinessProcessorRules.GetOldID_ARTICULOValue: SmallInt;
begin
result := BusinessProcessor.CurrentChange.OldValueByName[fld_ClientesDescuentosArticulosID_ARTICULO];
end;
function TClientesDescuentosArticulosBusinessProcessorRules.GetOldID_ARTICULOIsNull: Boolean;
begin
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_ClientesDescuentosArticulosID_ARTICULO]);
end;
procedure TClientesDescuentosArticulosBusinessProcessorRules.SetID_ARTICULOValue(const aValue: SmallInt);
begin
BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesDescuentosArticulosID_ARTICULO] := aValue;
end;
procedure TClientesDescuentosArticulosBusinessProcessorRules.SetID_ARTICULOIsNull(const aValue: Boolean);
begin
if aValue then
BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesDescuentosArticulosID_ARTICULO] := Null;
end;
function TClientesDescuentosArticulosBusinessProcessorRules.GetREFERENCIAValue: String;
begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesDescuentosArticulosREFERENCIA];
end;
function TClientesDescuentosArticulosBusinessProcessorRules.GetREFERENCIAIsNull: Boolean;
begin
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesDescuentosArticulosREFERENCIA]);
end;
function TClientesDescuentosArticulosBusinessProcessorRules.GetOldREFERENCIAValue: String;
begin
result := BusinessProcessor.CurrentChange.OldValueByName[fld_ClientesDescuentosArticulosREFERENCIA];
end;
function TClientesDescuentosArticulosBusinessProcessorRules.GetOldREFERENCIAIsNull: Boolean;
begin
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_ClientesDescuentosArticulosREFERENCIA]);
end;
procedure TClientesDescuentosArticulosBusinessProcessorRules.SetREFERENCIAValue(const aValue: String);
begin
BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesDescuentosArticulosREFERENCIA] := aValue;
end;
procedure TClientesDescuentosArticulosBusinessProcessorRules.SetREFERENCIAIsNull(const aValue: Boolean);
begin
if aValue then
BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesDescuentosArticulosREFERENCIA] := Null;
end;
function TClientesDescuentosArticulosBusinessProcessorRules.GetDESCRIPCIONValue: String;
begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesDescuentosArticulosDESCRIPCION];
end;
function TClientesDescuentosArticulosBusinessProcessorRules.GetDESCRIPCIONIsNull: Boolean;
begin
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesDescuentosArticulosDESCRIPCION]);
end;
function TClientesDescuentosArticulosBusinessProcessorRules.GetOldDESCRIPCIONValue: String;
begin
result := BusinessProcessor.CurrentChange.OldValueByName[fld_ClientesDescuentosArticulosDESCRIPCION];
end;
function TClientesDescuentosArticulosBusinessProcessorRules.GetOldDESCRIPCIONIsNull: Boolean;
begin
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_ClientesDescuentosArticulosDESCRIPCION]);
end;
procedure TClientesDescuentosArticulosBusinessProcessorRules.SetDESCRIPCIONValue(const aValue: String);
begin
BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesDescuentosArticulosDESCRIPCION] := aValue;
end;
procedure TClientesDescuentosArticulosBusinessProcessorRules.SetDESCRIPCIONIsNull(const aValue: Boolean);
begin
if aValue then
BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesDescuentosArticulosDESCRIPCION] := Null;
end;
function TClientesDescuentosArticulosBusinessProcessorRules.GetPRECIO_COSTEValue: Currency;
begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesDescuentosArticulosPRECIO_COSTE];
end;
function TClientesDescuentosArticulosBusinessProcessorRules.GetPRECIO_COSTEIsNull: Boolean;
begin
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesDescuentosArticulosPRECIO_COSTE]);
end;
function TClientesDescuentosArticulosBusinessProcessorRules.GetOldPRECIO_COSTEValue: Currency;
begin
result := BusinessProcessor.CurrentChange.OldValueByName[fld_ClientesDescuentosArticulosPRECIO_COSTE];
end;
function TClientesDescuentosArticulosBusinessProcessorRules.GetOldPRECIO_COSTEIsNull: Boolean;
begin
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_ClientesDescuentosArticulosPRECIO_COSTE]);
end;
procedure TClientesDescuentosArticulosBusinessProcessorRules.SetPRECIO_COSTEValue(const aValue: Currency);
begin
BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesDescuentosArticulosPRECIO_COSTE] := aValue;
end;
procedure TClientesDescuentosArticulosBusinessProcessorRules.SetPRECIO_COSTEIsNull(const aValue: Boolean);
begin
if aValue then
BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesDescuentosArticulosPRECIO_COSTE] := Null;
end;
function TClientesDescuentosArticulosBusinessProcessorRules.GetDESCUENTO_PROVEEDORValue: Float;
begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesDescuentosArticulosDESCUENTO_PROVEEDOR];
end;
function TClientesDescuentosArticulosBusinessProcessorRules.GetDESCUENTO_PROVEEDORIsNull: Boolean;
begin
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesDescuentosArticulosDESCUENTO_PROVEEDOR]);
end;
function TClientesDescuentosArticulosBusinessProcessorRules.GetOldDESCUENTO_PROVEEDORValue: Float;
begin
result := BusinessProcessor.CurrentChange.OldValueByName[fld_ClientesDescuentosArticulosDESCUENTO_PROVEEDOR];
end;
function TClientesDescuentosArticulosBusinessProcessorRules.GetOldDESCUENTO_PROVEEDORIsNull: Boolean;
begin
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_ClientesDescuentosArticulosDESCUENTO_PROVEEDOR]);
end;
procedure TClientesDescuentosArticulosBusinessProcessorRules.SetDESCUENTO_PROVEEDORValue(const aValue: Float);
begin
BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesDescuentosArticulosDESCUENTO_PROVEEDOR] := aValue;
end;
procedure TClientesDescuentosArticulosBusinessProcessorRules.SetDESCUENTO_PROVEEDORIsNull(const aValue: Boolean);
begin
if aValue then
BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesDescuentosArticulosDESCUENTO_PROVEEDOR] := Null;
end;
function TClientesDescuentosArticulosBusinessProcessorRules.GetPRECIO_NETOValue: Currency;
begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesDescuentosArticulosPRECIO_NETO];
end;
function TClientesDescuentosArticulosBusinessProcessorRules.GetPRECIO_NETOIsNull: Boolean;
begin
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesDescuentosArticulosPRECIO_NETO]);
end;
function TClientesDescuentosArticulosBusinessProcessorRules.GetOldPRECIO_NETOValue: Currency;
begin
result := BusinessProcessor.CurrentChange.OldValueByName[fld_ClientesDescuentosArticulosPRECIO_NETO];
end;
function TClientesDescuentosArticulosBusinessProcessorRules.GetOldPRECIO_NETOIsNull: Boolean;
begin
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_ClientesDescuentosArticulosPRECIO_NETO]);
end;
procedure TClientesDescuentosArticulosBusinessProcessorRules.SetPRECIO_NETOValue(const aValue: Currency);
begin
BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesDescuentosArticulosPRECIO_NETO] := aValue;
end;
procedure TClientesDescuentosArticulosBusinessProcessorRules.SetPRECIO_NETOIsNull(const aValue: Boolean);
begin
if aValue then
BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesDescuentosArticulosPRECIO_NETO] := Null;
end;
function TClientesDescuentosArticulosBusinessProcessorRules.GetDESCUENTOValue: Float;
begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesDescuentosArticulosDESCUENTO];
end;
function TClientesDescuentosArticulosBusinessProcessorRules.GetDESCUENTOIsNull: Boolean;
begin
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesDescuentosArticulosDESCUENTO]);
end;
function TClientesDescuentosArticulosBusinessProcessorRules.GetOldDESCUENTOValue: Float;
begin
result := BusinessProcessor.CurrentChange.OldValueByName[fld_ClientesDescuentosArticulosDESCUENTO];
end;
function TClientesDescuentosArticulosBusinessProcessorRules.GetOldDESCUENTOIsNull: Boolean;
begin
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_ClientesDescuentosArticulosDESCUENTO]);
end;
procedure TClientesDescuentosArticulosBusinessProcessorRules.SetDESCUENTOValue(const aValue: Float);
begin
BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesDescuentosArticulosDESCUENTO] := aValue;
end;
procedure TClientesDescuentosArticulosBusinessProcessorRules.SetDESCUENTOIsNull(const aValue: Boolean);
begin
if aValue then
BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesDescuentosArticulosDESCUENTO] := Null;
end;
initialization
RegisterBusinessProcessorRules(RID_ContactosDelta, TContactosBusinessProcessorRules);
RegisterBusinessProcessorRules(RID_GruposClienteDelta, TGruposClienteBusinessProcessorRules);
@ -10918,5 +11340,6 @@ initialization
RegisterBusinessProcessorRules(RID_PersonalContactoDelta, TPersonalContactoBusinessProcessorRules);
RegisterBusinessProcessorRules(RID_Agentes_ComisionesDelta, TAgentes_ComisionesBusinessProcessorRules);
RegisterBusinessProcessorRules(RID_AgentesDelta, TAgentesBusinessProcessorRules);
RegisterBusinessProcessorRules(RID_ClientesDescuentosArticulosDelta, TClientesDescuentosArticulosBusinessProcessorRules);
end.

18
Source/Modulos/Contactos/Model/uBizClientesDescuentos.pas
View File

@ -18,10 +18,7 @@ type
private
ContIdAux: Integer;
protected
procedure OnNewRecord(Sender: TDADataTable); override;
procedure BeforeInsert(Sender: TDADataTable); override;
public
constructor Create(aDataTable: TDADataTable); override;
procedure BeforeInsert(Sender: TDADataTable); override;
end;
implementation
@ -41,19 +38,6 @@ begin
AMasterTable.Post;
end;
constructor TBizClienteDescuentos.Create(aDataTable: TDADataTable);
begin
inherited;
ContIdAux := -1;
end;
procedure TBizClienteDescuentos.OnNewRecord(Sender: TDADataTable);
begin
inherited;
ID := ContIdAux; // -1, -2, -3...
Dec(ContIdAux);
end;
initialization
RegisterDataTableRules(BIZ_CLIENT_CLIENTE_DESCUENTOS, TBizClienteDescuentos);

43
Source/Modulos/Contactos/Model/uBizClientesDescuentosArt.pas Normal file
View File

@ -0,0 +1,43 @@
unit uBizClientesDescuentosArt;
interface
uses
uDAInterfaces, uDADataTable,
schContactosClient_Intf;
const
BIZ_CLIENT_CLIENTE_DESCUENTOS_ART = 'Client.ClienteDescuentosArticulos';
type
IBizClienteDescuentosArticulos = interface (IClientesDescuentosArticulos)
['{9D5E2778-F74F-4ED5-A0F0-ADDA73544E43}']
end;
TBizClienteDescuentosArticulos = class(TClientesDescuentosArticulosDataTableRules, IBizClienteDescuentosArticulos)
protected
procedure BeforeInsert(Sender: TDADataTable); override;
end;
implementation
{ TBizClienteDescuentos }
uses
DB;
procedure TBizClienteDescuentosArticulos.BeforeInsert(Sender: TDADataTable);
var
AMasterTable : TDADataTable;
begin
inherited;
AMasterTable := DataTable.GetMasterDataTable;
if Assigned(AMasterTable) and (AMasterTable.State in dsEditModes) then
AMasterTable.Post;
end;
initialization
RegisterDataTableRules(BIZ_CLIENT_CLIENTE_DESCUENTOS_ART, TBizClienteDescuentosArticulos);
end.

32
Source/Modulos/Contactos/Model/uBizContactos.pas
View File

@ -6,7 +6,7 @@ uses
uDAInterfaces, uDADataTable, uROClasses,
schContactosClient_Intf, uBizContactosDatosBancarios, uBizContactosPersonal,
uDBSelectionListUtils, uBizDireccionesContacto, uBizClientesDescuentos,
uBizAgentesComisiones;
uBizClientesDescuentosArt, uBizAgentesComisiones;
const
BIZ_CLIENT_CONTACTO = 'Client.Contacto';
@ -96,6 +96,10 @@ type
procedure SetDescuentos(Value: IBizClienteDescuentos);
property Descuentos: IBizClienteDescuentos read GetDescuentos write SetDescuentos;
function GetDescuentosArt: IBizClienteDescuentosArticulos;
procedure SetDescuentosArt(Value: IBizClienteDescuentosArticulos);
property DescuentosArt: IBizClienteDescuentosArticulos read GetDescuentosArt write SetDescuentosArt;
function GetFELICITACIONValue: Integer;
procedure SetFELICITACIONValue(const aValue: Integer);
@ -289,6 +293,9 @@ type
FDescuentos : IBizClienteDescuentos;
FDescuentosLink : TDADataSource;
FDescuentosArt : IBizClienteDescuentosArticulos;
FDescuentosArtLink : TDADataSource;
function GetGRUPO_CLIENTEValue: String;
procedure SetGRUPO_CLIENTEValue(const aValue: String);
@ -331,6 +338,9 @@ type
function GetDescuentos: IBizClienteDescuentos;
procedure SetDescuentos(Value: IBizClienteDescuentos);
function GetDescuentosArt: IBizClienteDescuentosArticulos;
procedure SetDescuentosArt(Value: IBizClienteDescuentosArticulos);
function GetFELICITACIONValue: Integer;
procedure SetFELICITACIONValue(const aValue: Integer);
@ -342,6 +352,7 @@ type
constructor Create(aDataTable: TDADataTable); override;
destructor Destroy; override;
property Descuentos: IBizClienteDescuentos read GetDescuentos write SetDescuentos;
property DescuentosArt: IBizClienteDescuentosArticulos read GetDescuentosArt write SetDescuentosArt;
property GRUPO_CLIENTE: String read GetGRUPO_CLIENTEValue write SetGRUPO_CLIENTEValue;
property NOMBRE_COMERCIAL: String read GetNOMBRE_COMERCIALValue write SetNOMBRE_COMERCIALValue;
property VENCIMIENTO_FACTURAS_1: Smallint read GetVENCIMIENTO_FACTURAS_1Value write SetVENCIMIENTO_FACTURAS_1Value;
@ -594,12 +605,18 @@ begin
FDescuentos := NIL;
FDescuentosLink := TDADataSource.Create(NIL);
FDescuentosLink.DataTable := aDataTable;
FDescuentosArt := NIL;
FDescuentosArtLink := TDADataSource.Create(NIL);
FDescuentosArtLink.DataTable := aDataTable;
end;
destructor TBizCliente.Destroy;
begin
FDescuentos := NIL;
FreeAndNIL(FDescuentosLink);
FDescuentosArt := NIL;
FreeAndNIL(FDescuentosArtLink);
inherited;
end;
@ -613,6 +630,11 @@ begin
Result := FDescuentos;
end;
function TBizCliente.GetDescuentosArt: IBizClienteDescuentosArticulos;
begin
Result := FDescuentosArt;
end;
function TBizCliente.GetDESCUENTOValue: Double;
begin
result := DataTable.Fields[idx_ClientesDESCUENTO].AsFloat;
@ -661,7 +683,13 @@ end;
procedure TBizCliente.SetDescuentos(Value: IBizClienteDescuentos);
begin
FDescuentos := Value;
EnlazarMaestroDetalle(FDescuentosLink, FDescuentos);
EnlazarMaestroDetalle(FDescuentosLink, FDescuentos);
end;
procedure TBizCliente.SetDescuentosArt(Value: IBizClienteDescuentosArticulos);
begin
FDescuentosArt := Value;
EnlazarMaestroDetalle(FDescuentosArtLink, FDescuentosArt);
end;
procedure TBizCliente.SetDESCUENTOValue(const aValue: Double);

241
Source/Modulos/Contactos/Servidor/srvContactos_Impl.dfm
View File

@ -2534,6 +2534,111 @@ object srvContactos: TsrvContactos
DataType = datString
Size = 255
end>
end
item
Params = <>
Statements = <
item
Connection = 'IBX'
SQL =
'SELECT '#10' CLIENTES_DTOS_ARTICULOS.ID,'#10' CLIENTES_DTOS_ARTICU' +
'LOS.ID_CLIENTE,'#10' CLIENTES_DTOS_ARTICULOS.ID_ARTICULO,'#10' ART' +
'ICULOS.REFERENCIA,'#10' ARTICULOS.DESCRIPCION,'#10' ARTICULOS.PREC' +
'IO_COSTE,'#10' ARTICULOS.DESCUENTO as DESCUENTO_PROVEEDOR,'#10' AR' +
'TICULOS.PRECIO_NETO,'#10' CLIENTES_DTOS_ARTICULOS.DESCUENTO'#10' FRO' +
'M'#10' CLIENTES_DTOS_ARTICULOS'#10' LEFT JOIN ARTICULOS ON (ARTICULO' +
'S.ID = CLIENTES_DTOS_ARTICULOS.ID_ARTICULO)'#10'WHERE {Where}'#10
StatementType = stSQL
ColumnMappings = <
item
DatasetField = 'ID'
TableField = 'ID'
end
item
DatasetField = 'ID_CLIENTE'
TableField = 'ID_CLIENTE'
end
item
DatasetField = 'DESCUENTO'
TableField = 'DESCUENTO'
end
item
DatasetField = 'ID_ARTICULO'
TableField = 'ID_ARTICULO'
end
item
DatasetField = 'REFERENCIA'
TableField = 'REFERENCIA'
end
item
DatasetField = 'DESCRIPCION'
TableField = 'DESCRIPCION'
end
item
DatasetField = 'PRECIO_COSTE'
TableField = 'PRECIO_COSTE'
end
item
DatasetField = 'DESCUENTO_PROVEEDOR'
TableField = 'DESCUENTO_PROVEEDOR'
end
item
DatasetField = 'PRECIO_NETO'
TableField = 'PRECIO_NETO'
end>
end>
Name = 'ClientesDescuentosArticulos'
Fields = <
item
Name = 'ID'
DataType = datAutoInc
GeneratorName = 'GEN_CLIENTES_DTOS_ART_ID'
ServerAutoRefresh = True
DictionaryEntry = 'ClientesDescuentosArticulos_ID'
InPrimaryKey = True
end
item
Name = 'ID_CLIENTE'
DataType = datInteger
DictionaryEntry = 'ClientesDescuentos_ID_CLIENTE'
end
item
Name = 'ID_ARTICULO'
DataType = datSmallInt
DictionaryEntry = 'ClientesDescuentosArticulos_ID_ARTICULO'
end
item
Name = 'REFERENCIA'
DataType = datString
Size = 255
DictionaryEntry = 'ClientesDescuentosArticulos_REFERENCIA'
end
item
Name = 'DESCRIPCION'
DataType = datString
Size = 255
DictionaryEntry = 'ClientesDescuentosArticulos_DESCRIPCION'
end
item
Name = 'PRECIO_COSTE'
DataType = datCurrency
DictionaryEntry = 'ClientesDescuentosArticulos_PRECIO_COSTE'
end
item
Name = 'DESCUENTO_PROVEEDOR'
DataType = datFloat
DictionaryEntry = 'ClientesDescuentosArticulos_DESCUENTO_PROVEEDOR'
end
item
Name = 'PRECIO_NETO'
DataType = datCurrency
DictionaryEntry = 'ClientesDescuentosArticulos_PRECIO_NETO'
end
item
Name = 'DESCUENTO'
DataType = datFloat
DictionaryEntry = 'ClientesDescuentos_DESCUENTO'
end>
end>
JoinDataTables = <>
UnionDataTables = <>
@ -4571,6 +4676,96 @@ object srvContactos: TsrvContactos
ColumnMappings = <>
end>
Name = ' Delete_AgentesDatos'
end
item
Params = <
item
Name = 'ID'
DataType = datAutoInc
GeneratorName = 'GEN_CLIENTES_DTOS_ART_ID'
Value = ''
end
item
Name = 'ID_CLIENTE'
DataType = datInteger
Value = ''
end
item
Name = 'ID_ARTICULO'
DataType = datSmallInt
Value = ''
end
item
Name = 'DESCUENTO'
DataType = datFloat
Value = ''
end>
Statements = <
item
Connection = 'IBX'
TargetTable = 'CLIENTES_DTOS_ARTICULOS'
SQL =
'INSERT'#10' INTO CLIENTES_DTOS_ARTICULOS'#10' (ID, ID_CLIENTE, ID_AR' +
'TICULO, DESCUENTO)'#10' VALUES'#10' (:ID, :ID_CLIENTE, :ID_ARTICULO,' +
' :DESCUENTO)'#10
StatementType = stSQL
ColumnMappings = <>
end>
Name = 'Insert_ClientesDescuentosArt'
end
item
Params = <
item
Name = 'ID_CLIENTE'
DataType = datInteger
Value = ''
end
item
Name = 'ID_ARTICULO'
DataType = datSmallInt
Value = ''
end
item
Name = 'DESCUENTO'
DataType = datFloat
Value = ''
end
item
Name = 'OLD_ID'
Value = ''
end>
Statements = <
item
Connection = 'IBX'
TargetTable = 'CLIENTES_DTOS_ARTICULOS'
SQL =
'UPDATE CLIENTES_DTOS_ARTICULOS'#10' SET '#10' ID_CLIENTE = :ID_CLIEN' +
'TE,'#10' ID_ARTICULO = :ID_ARTICULO,'#10' DESCUENTO = :DESCUENTO'#10' ' +
' WHERE'#10' (ID = :OLD_ID)'#10
StatementType = stSQL
ColumnMappings = <>
end>
Name = 'Update_ClientesDescuentosArt'
end
item
Params = <
item
Name = 'OLD_ID'
DataType = datInteger
Value = ''
ParamType = daptInput
end>
Statements = <
item
Connection = 'IBX'
TargetTable = 'CLIENTES_DTOS_ARTICULOS'
SQL =
'DELETE '#10' FROM'#10' CLIENTES_DTOS_ARTICULOS'#10' WHERE'#10' (ID = :OL' +
'D_ID)'#10
StatementType = stSQL
ColumnMappings = <>
end>
Name = 'Delete_ClientesDescuentosArt'
end>
RelationShips = <
item
@ -4617,7 +4812,7 @@ object srvContactos: TsrvContactos
Name = 'FK_ClientesDescuentos_Clientes'
MasterDatasetName = 'Clientes'
MasterFields = 'ID'
DetailDatasetName = 'ClientesDescuentos'
DetailDatasetName = 'ClientesDescuentosArticulos'
DetailFields = 'ID_CLIENTE'
RelationshipType = rtForeignKey
end
@ -5495,6 +5690,39 @@ object srvContactos: TsrvContactos
item
Name = 'Agentes_Comisiones_COMISION'
DataType = datFloat
end
item
Name = 'ClientesDescuentosArticulos_ID'
DataType = datAutoInc
GeneratorName = 'GEN_CLIENTES_DTOS_ART_ID'
DisplayLabel = 'ID'
ServerAutoRefresh = True
end
item
Name = 'ClientesDescuentosArticulos_ID_ARTICULO'
DataType = datSmallInt
end
item
Name = 'ClientesDescuentosArticulos_REFERENCIA'
DataType = datString
Size = 255
end
item
Name = 'ClientesDescuentosArticulos_DESCRIPCION'
DataType = datString
Size = 255
end
item
Name = 'ClientesDescuentosArticulos_PRECIO_COSTE'
DataType = datCurrency
end
item
Name = 'ClientesDescuentosArticulos_DESCUENTO_PROVEEDOR'
DataType = datFloat
end
item
Name = 'ClientesDescuentosArticulos_PRECIO_NETO'
DataType = datCurrency
end>
Left = 126
Top = 14
@ -5623,4 +5851,15 @@ object srvContactos: TsrvContactos
Left = 112
Top = 207
end
object bpClientesDescuentosArt: TDABusinessProcessor
Schema = schContactos
InsertCommandName = 'Insert_ClientesDescuentosArt'
DeleteCommandName = 'Delete_ClientesDescuentosArt'
UpdateCommandName = 'Update_ClientesDescuentosArt'
ReferencedDataset = 'ClientesDescuentosArticulos'
ProcessorOptions = [poPrepareCommands]
UpdateMode = updWhereKeyOnly
Left = 344
Top = 263
end
end

1
Source/Modulos/Contactos/Servidor/srvContactos_Impl.pas
View File

@ -36,6 +36,7 @@ type
bpAgentesComisiones: TDABusinessProcessor;
schContactos: TDASchema;
DataDictionary: TDADataDictionary;
bpClientesDescuentosArt: TDABusinessProcessor;
procedure DARemoteServiceBeforeGetDatasetData(const Dataset: IDADataset;
const IncludeSchema: Boolean; const MaxRecords: Integer);
procedure DARemoteServiceCreate(Sender: TObject);

6
Source/Modulos/Contactos/Views/Contactos_view.dpk
View File

@ -82,7 +82,8 @@ requires
dclcxLibraryD11,
JSDialog100,
JvPageCompsD11R,
JvAppFrmD11R;
JvAppFrmD11R,
Articulos_controller;
contains
uContactosViewRegister in 'uContactosViewRegister.pas',
@ -128,6 +129,7 @@ contains
uViewCliente in 'uViewCliente.pas' {frViewCliente: TFrame},
uViewAgenteComisiones in 'uViewAgenteComisiones.pas' {frViewAgenteComisiones: TFrame},
uEditorAgente in 'uEditorAgente.pas' {fEditorAgente: TCustomEditor},
uViewClienteDatosComerciales in 'uViewClienteDatosComerciales.pas' {frViewClienteDatosComerciales: TFrame};
uViewClienteDatosComerciales in 'uViewClienteDatosComerciales.pas' {frViewClienteDatosComerciales: TFrame},
uViewClienteDescuentosArticulos in 'uViewClienteDescuentosArticulos.pas' {frViewClienteDescuentosArticulos: TFrame};
end.

121
Source/Modulos/Contactos/Views/Contactos_view.dproj
View File

@ -49,64 +49,65 @@
<DelphiCompile Include="Contactos_view.dpk">
<MainSource>MainSource</MainSource>
</DelphiCompile>
<DCCReference Include="..\adortl.dcp" />
<DCCReference Include="..\ApplicationBase.dcp" />
<DCCReference Include="..\Base.dcp" />
<DCCReference Include="..\bdertl.dcp" />
<DCCReference Include="..\ccpackD11.dcp" />
<DCCReference Include="..\cfpack_d11.dcp" />
<DCCReference Include="..\Contactos_controller.dcp" />
<DCCReference Include="..\Contactos_model.dcp" />
<DCCReference Include="..\cxDataD11.dcp" />
<DCCReference Include="..\cxEditorsD11.dcp" />
<DCCReference Include="..\cxExportD11.dcp" />
<DCCReference Include="..\cxExtEditorsD11.dcp" />
<DCCReference Include="..\cxGridD11.dcp" />
<DCCReference Include="..\cxLibraryD11.dcp" />
<DCCReference Include="..\cxPageControlD11.dcp" />
<DCCReference Include="..\DataAbstract_Core_D11.dcp" />
<DCCReference Include="..\dbrtl.dcp" />
<DCCReference Include="..\dclcxLibraryD11.dcp" />
<DCCReference Include="..\designide.dcp" />
<DCCReference Include="..\dsnap.dcp" />
<DCCReference Include="..\dxComnD11.dcp" />
<DCCReference Include="..\dxCoreD11.dcp" />
<DCCReference Include="..\dxGDIPlusD11.dcp" />
<DCCReference Include="..\dxLayoutControlD11.dcp" />
<DCCReference Include="..\dxPSCoreD11.dcp" />
<DCCReference Include="..\dxPScxCommonD11.dcp" />
<DCCReference Include="..\dxPScxGrid6LnkD11.dcp" />
<DCCReference Include="..\dxPSLnksD11.dcp" />
<DCCReference Include="..\dxThemeD11.dcp" />
<DCCReference Include="..\FormasPago_controller.dcp" />
<DCCReference Include="..\FormasPago_model.dcp" />
<DCCReference Include="..\GUIBase.dcp" />
<DCCReference Include="..\GUISDK_D11R.dcp" />
<DCCReference Include="..\Jcl.dcp" />
<DCCReference Include="..\JclVcl.dcp" />
<DCCReference Include="..\JSDialog100.dcp" />
<DCCReference Include="..\JvAppFrmD11R.dcp" />
<DCCReference Include="..\JvCoreD11R.dcp" />
<DCCReference Include="..\JvCtrlsD11R.dcp" />
<DCCReference Include="..\JvGlobusD11R.dcp" />
<DCCReference Include="..\JvPageCompsD11R.dcp" />
<DCCReference Include="..\JvStdCtrlsD11R.dcp" />
<DCCReference Include="..\JvSystemD11R.dcp" />
<DCCReference Include="..\PngComponentsD10.dcp" />
<DCCReference Include="..\PNG_D10.dcp" />
<DCCReference Include="..\RemObjects_Core_D11.dcp" />
<DCCReference Include="..\rtl.dcp" />
<DCCReference Include="..\tb2k_d10.dcp" />
<DCCReference Include="..\tbx_d10.dcp" />
<DCCReference Include="..\TiposIVA_controller.dcp" />
<DCCReference Include="..\TiposIVA_model.dcp" />
<DCCReference Include="..\vcl.dcp" />
<DCCReference Include="..\vclactnband.dcp" />
<DCCReference Include="..\vcldb.dcp" />
<DCCReference Include="..\vcljpg.dcp" />
<DCCReference Include="..\vclshlctrls.dcp" />
<DCCReference Include="..\vclx.dcp" />
<DCCReference Include="..\xmlrtl.dcp" />
<DCCReference Include="..\..\Lib\adortl.dcp" />
<DCCReference Include="..\..\Lib\ApplicationBase.dcp" />
<DCCReference Include="..\..\Lib\Articulos_controller.dcp" />
<DCCReference Include="..\..\Lib\Base.dcp" />
<DCCReference Include="..\..\Lib\bdertl.dcp" />
<DCCReference Include="..\..\Lib\ccpackD11.dcp" />
<DCCReference Include="..\..\Lib\cfpack_d11.dcp" />
<DCCReference Include="..\..\Lib\Contactos_controller.dcp" />
<DCCReference Include="..\..\Lib\Contactos_model.dcp" />
<DCCReference Include="..\..\Lib\cxDataD11.dcp" />
<DCCReference Include="..\..\Lib\cxEditorsD11.dcp" />
<DCCReference Include="..\..\Lib\cxExportD11.dcp" />
<DCCReference Include="..\..\Lib\cxExtEditorsD11.dcp" />
<DCCReference Include="..\..\Lib\cxGridD11.dcp" />
<DCCReference Include="..\..\Lib\cxLibraryD11.dcp" />
<DCCReference Include="..\..\Lib\cxPageControlD11.dcp" />
<DCCReference Include="..\..\Lib\DataAbstract_Core_D11.dcp" />
<DCCReference Include="..\..\Lib\dbrtl.dcp" />
<DCCReference Include="..\..\Lib\dclcxLibraryD11.dcp" />
<DCCReference Include="..\..\Lib\designide.dcp" />
<DCCReference Include="..\..\Lib\dsnap.dcp" />
<DCCReference Include="..\..\Lib\dxComnD11.dcp" />
<DCCReference Include="..\..\Lib\dxCoreD11.dcp" />
<DCCReference Include="..\..\Lib\dxGDIPlusD11.dcp" />
<DCCReference Include="..\..\Lib\dxLayoutControlD11.dcp" />
<DCCReference Include="..\..\Lib\dxPSCoreD11.dcp" />
<DCCReference Include="..\..\Lib\dxPScxCommonD11.dcp" />
<DCCReference Include="..\..\Lib\dxPScxGrid6LnkD11.dcp" />
<DCCReference Include="..\..\Lib\dxPSLnksD11.dcp" />
<DCCReference Include="..\..\Lib\dxThemeD11.dcp" />
<DCCReference Include="..\..\Lib\FormasPago_controller.dcp" />
<DCCReference Include="..\..\Lib\FormasPago_model.dcp" />
<DCCReference Include="..\..\Lib\GUIBase.dcp" />
<DCCReference Include="..\..\Lib\GUISDK_D11R.dcp" />
<DCCReference Include="..\..\Lib\Jcl.dcp" />
<DCCReference Include="..\..\Lib\JclVcl.dcp" />
<DCCReference Include="..\..\Lib\JSDialog100.dcp" />
<DCCReference Include="..\..\Lib\JvAppFrmD11R.dcp" />
<DCCReference Include="..\..\Lib\JvCoreD11R.dcp" />
<DCCReference Include="..\..\Lib\JvCtrlsD11R.dcp" />
<DCCReference Include="..\..\Lib\JvGlobusD11R.dcp" />
<DCCReference Include="..\..\Lib\JvPageCompsD11R.dcp" />
<DCCReference Include="..\..\Lib\JvStdCtrlsD11R.dcp" />
<DCCReference Include="..\..\Lib\JvSystemD11R.dcp" />
<DCCReference Include="..\..\Lib\PngComponentsD10.dcp" />
<DCCReference Include="..\..\Lib\PNG_D10.dcp" />
<DCCReference Include="..\..\Lib\RemObjects_Core_D11.dcp" />
<DCCReference Include="..\..\Lib\rtl.dcp" />
<DCCReference Include="..\..\Lib\tb2k_d10.dcp" />
<DCCReference Include="..\..\Lib\tbx_d10.dcp" />
<DCCReference Include="..\..\Lib\TiposIVA_controller.dcp" />
<DCCReference Include="..\..\Lib\TiposIVA_model.dcp" />
<DCCReference Include="..\..\Lib\vcl.dcp" />
<DCCReference Include="..\..\Lib\vclactnband.dcp" />
<DCCReference Include="..\..\Lib\vcldb.dcp" />
<DCCReference Include="..\..\Lib\vcljpg.dcp" />
<DCCReference Include="..\..\Lib\vclshlctrls.dcp" />
<DCCReference Include="..\..\Lib\vclx.dcp" />
<DCCReference Include="..\..\Lib\xmlrtl.dcp" />
<DCCReference Include="uContactosViewRegister.pas" />
<DCCReference Include="uEditorAgente.pas">
<Form>fEditorAgente</Form>
@ -219,6 +220,10 @@
<Form>frViewClienteDescuentos</Form>
<DesignClass>TFrame</DesignClass>
</DCCReference>
<DCCReference Include="uViewClienteDescuentosArticulos.pas">
<Form>frViewClienteDescuentosArticulos</Form>
<DesignClass>TFrame</DesignClass>
</DCCReference>
<DCCReference Include="uViewClientes.pas">
<Form>frViewClientes</Form>
<DesignClass>TCustomView</DesignClass>

BIN
Source/Modulos/Contactos/Views/Contactos_view.identcache
View File

Binary file not shown.

76
Source/Modulos/Contactos/Views/uEditorCliente.dfm
View File

@ -513,10 +513,10 @@ inherited fEditorCliente: TfEditorCliente
LookAndFeel = dxLayoutOfficeLookAndFeel
ExplicitWidth = 856
inherited Label1: TLabel
Left = 564
Left = 575
Top = 30
Width = 193
ExplicitLeft = 564
ExplicitLeft = 575
ExplicitTop = 30
ExplicitWidth = 193
end
@ -527,13 +527,13 @@ inherited fEditorCliente: TfEditorCliente
ExplicitWidth = 263
end
inherited eDiasVencimiento1: TcxDBSpinEdit
Left = 636
Left = 647
Top = 62
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitLeft = 636
ExplicitLeft = 647
ExplicitTop = 62
end
inherited cbRegimenIVA: TcxDBComboBox
@ -567,9 +567,9 @@ inherited fEditorCliente: TfEditorCliente
Width = 169
end
inherited bFormasPago: TButton
Left = 404
Left = 415
Top = 57
ExplicitLeft = 404
ExplicitLeft = 415
ExplicitTop = 57
end
inherited eIVA: TcxDBLookupComboBox
@ -583,9 +583,9 @@ inherited fEditorCliente: TfEditorCliente
Width = 169
end
inherited bTiposIVA: TButton
Left = 404
Left = 415
Top = 84
ExplicitLeft = 404
ExplicitLeft = 415
ExplicitTop = 84
end
inherited eDescuento: TcxDBSpinEdit
@ -597,23 +597,23 @@ inherited fEditorCliente: TfEditorCliente
ExplicitTop = 149
end
inherited eDiasVencimiento2: TcxDBSpinEdit
Left = 636
Left = 647
Top = 89
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitLeft = 636
ExplicitLeft = 647
ExplicitTop = 89
end
inherited eDiasVencimiento3: TcxDBSpinEdit
Left = 636
Left = 647
Top = 116
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitLeft = 636
ExplicitLeft = 647
ExplicitTop = 116
end
inherited eAgente: TcxDBLookupComboBox
@ -669,8 +669,9 @@ inherited fEditorCliente: TfEditorCliente
Left = 0
Top = 0
Width = 856
Height = 586
Align = alClient
Height = 150
HelpContext = 150
Align = alTop
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
@ -680,28 +681,45 @@ inherited fEditorCliente: TfEditorCliente
TabOrder = 0
ReadOnly = False
ExplicitWidth = 856
ExplicitHeight = 586
ExplicitHeight = 150
inherited cxGrid: TcxGrid
Width = 856
Height = 561
Height = 125
ExplicitWidth = 856
ExplicitHeight = 561
ExplicitHeight = 125
end
inherited ToolBar1: TToolBar
Width = 856
ExplicitWidth = 856
end
end
inline frViewClienteDescuentosArticulos1: TfrViewClienteDescuentosArticulos
Left = 0
Top = 150
Width = 856
Height = 436
Align = alClient
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'Tahoma'
Font.Style = []
ParentFont = False
TabOrder = 1
Visible = False
ReadOnly = False
ExplicitTop = 150
ExplicitWidth = 856
ExplicitHeight = 436
inherited cxGrid: TcxGrid
Width = 856
Height = 411
ExplicitWidth = 856
ExplicitHeight = 411
end
inherited ToolBar1: TToolBar
Width = 856
ExplicitWidth = 856
inherited ToolButton1: TToolButton
ExplicitWidth = 62
end
inherited ToolButton4: TToolButton
ExplicitWidth = 74
end
inherited ToolButton2: TToolButton
ExplicitWidth = 67
end
inherited ToolButton7: TToolButton
ExplicitWidth = 117
end
end
end
end

6
Source/Modulos/Contactos/Views/uEditorCliente.pas
View File

@ -15,7 +15,8 @@ uses
uViewDireccionesEntrega, uViewDetallesGenerico, uViewClienteDescuentos,
uViewContactoDatosBancarios, dxLayoutLookAndFeels,
uViewClienteDatosComerciales, uDAInterfaces, uViewContactoListaDatosBancarios,
uViewPersonalContacto, cxControls, cxContainer, cxEdit, cxLabel;
uViewPersonalContacto, cxControls, cxContainer, cxEdit, cxLabel,
uViewClienteDescuentosArticulos;
type
TfEditorCliente = class(TfEditorContacto, IEditorCliente)
@ -45,6 +46,7 @@ type
TBXItem40: TTBXItem;
actDocumentosRecibos: TAction;
TBXItem41: TTBXItem;
frViewClienteDescuentosArticulos1: TfrViewClienteDescuentosArticulos;
procedure FormShow(Sender: TObject);
procedure actGruposClienteExecute(Sender: TObject);
procedure actDocumentosFacturasExecute(Sender: TObject);
@ -151,11 +153,13 @@ begin
begin
frViewDireccionesEntrega1.dsDetalles.DataTable := Contacto.Direcciones.DataTable;
frViewClienteDescuentos1.dsDetalles.DataTable := (Contacto as IBizCliente).Descuentos.DataTable;
frViewClienteDescuentosArticulos1.dsDetalles.DataTable := (Contacto as IBizCliente).DescuentosArt.DataTable;
frViewClienteDatosComerciales1.Contacto := Contacto;
end
else begin
frViewDireccionesEntrega1.dsDetalles.DataTable := NIL;
frViewClienteDescuentos1.dsDetalles.DataTable := NIL;
frViewClienteDescuentosArticulos1.dsDetalles.DataTable := NIL;
frViewClienteDatosComerciales1.Contacto := NIL;
end;
end;

20
Source/Modulos/Contactos/Views/uViewClienteDescuentos.dfm
View File

@ -1,13 +1,13 @@
inherited frViewClienteDescuentos: TfrViewClienteDescuentos
Width = 580
Height = 513
ExplicitWidth = 580
ExplicitHeight = 513
Width = 582
Height = 241
ExplicitWidth = 582
ExplicitHeight = 241
inherited cxGrid: TcxGrid
Width = 580
Height = 488
ExplicitWidth = 580
ExplicitHeight = 488
Width = 582
Height = 216
ExplicitWidth = 582
ExplicitHeight = 216
inherited cxGridView: TcxGridDBTableView
object cxGridViewPROVEEDOR: TcxGridDBColumn
Caption = 'Proveedor'
@ -39,8 +39,8 @@ inherited frViewClienteDescuentos: TfrViewClienteDescuentos
end
end
inherited ToolBar1: TToolBar
Width = 580
ExplicitWidth = 580
Width = 582
ExplicitWidth = 582
inherited ToolButton1: TToolButton
ExplicitWidth = 62
end

72
Source/Modulos/Contactos/Views/uViewClienteDescuentosArticulos.dfm Normal file
View File

@ -0,0 +1,72 @@
inherited frViewClienteDescuentosArticulos: TfrViewClienteDescuentosArticulos
Width = 582
Height = 241
ExplicitWidth = 582
ExplicitHeight = 241
inherited cxGrid: TcxGrid
Width = 582
Height = 216
ExplicitWidth = 582
ExplicitHeight = 216
inherited cxGridView: TcxGridDBTableView
object cxGridViewREFERENCIA: TcxGridDBColumn
Caption = 'Referencia'
DataBinding.FieldName = 'REFERENCIA'
Options.Editing = False
Width = 150
end
object cxGridViewDESCRIPCION: TcxGridDBColumn
Caption = 'Descripci'#243'n'
DataBinding.FieldName = 'DESCRIPCION'
Options.Editing = False
Width = 300
end
object cxGridViewPRECIO_COSTE: TcxGridDBColumn
Caption = 'Precio'
DataBinding.FieldName = 'PRECIO_COSTE'
PropertiesClassName = 'TcxCurrencyEditProperties'
Properties.Alignment.Horz = taRightJustify
HeaderAlignmentHorz = taRightJustify
Options.Editing = False
Width = 150
end
object cxGridViewDESCUENTO: TcxGridDBColumn
Caption = 'Descuento'
DataBinding.FieldName = 'DESCUENTO'
PropertiesClassName = 'TcxSpinEditProperties'
Properties.DisplayFormat = ',0.00 %;-,0.00 %'
Properties.ImmediatePost = True
Properties.MaxValue = 100.000000000000000000
BestFitMaxWidth = 30
FooterAlignmentHorz = taRightJustify
HeaderAlignmentHorz = taRightJustify
Width = 150
end
end
end
inherited ToolBar1: TToolBar
Width = 582
ExplicitWidth = 582
inherited ToolButton1: TToolButton
ExplicitWidth = 62
end
inherited ToolButton4: TToolButton
ExplicitWidth = 74
end
inherited ToolButton2: TToolButton
ExplicitWidth = 67
end
inherited ToolButton7: TToolButton
ExplicitWidth = 117
end
end
inherited ActionListContenido: TActionList
inherited actModificar: TAction
Visible = False
end
end
object dsArticulos: TDADataSource
Left = 72
Top = 144
end
end

82
Source/Modulos/Contactos/Views/uViewClienteDescuentosArticulos.pas Normal file
View File

@ -0,0 +1,82 @@
unit uViewClienteDescuentosArticulos;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, uViewBase, uViewDetallesGenerico, cxStyles, cxCustomData, cxGraphics,
cxFilter, cxData, cxDataStorage, cxEdit, DB, cxDBData, ActnList, ImgList,
PngImageList, uDADataTable, ComCtrls, ToolWin, cxGridLevel,
cxGridCustomTableView, cxGridTableView, cxGridDBTableView, cxClasses,
cxControls, cxGridCustomView, cxGrid, cxDBLookupComboBox, cxSpinEdit,
uBizArticulos, uArticulosController, uDAInterfaces, schContactosClient_Intf,
cxCurrencyEdit;
type
TfrViewClienteDescuentosArticulos = class(TfrViewDetallesGenerico)
dsArticulos: TDADataSource;
cxGridViewDESCUENTO: TcxGridDBColumn;
cxGridViewREFERENCIA: TcxGridDBColumn;
cxGridViewDESCRIPCION: TcxGridDBColumn;
cxGridViewPRECIO_COSTE: TcxGridDBColumn;
procedure actAnadirExecute(Sender: TObject);
protected
FArtController : IArticulosController;
// FArticulos : IBizArticulo;
public
constructor Create(AOwner: TComponent); override;
destructor Destroy; override;
end;
implementation
{$R *.dfm}
procedure TfrViewClienteDescuentosArticulos.actAnadirExecute(Sender: TObject);
var
AArticulos: IBizArticulo;
begin
// inherited;
AArticulos := (FArtController.BuscarTodos as IBizArticulo);
AArticulos := FArtController.ElegirArticulos(AArticulos, 'Elija los artículos que desea añadir para los descuentos especiales', True);
if Assigned(AArticulos) then
begin
with AArticulos.DataTable do
begin
First;
while not EOF do
begin
dsDetalles.DataTable.Insert;
dsDetalles.DataTable.FieldByName(fld_ClientesDescuentosArticulosID_ARTICULO).AsInteger := AArticulos.ID;
dsDetalles.DataTable.FieldByName(fld_ClientesDescuentosArticulosREFERENCIA).AsString := AArticulos.REFERENCIA;
dsDetalles.DataTable.FieldByName(fld_ClientesDescuentosArticulosDESCRIPCION).AsString := AArticulos.DESCRIPCION;
dsDetalles.DataTable.FieldByName(fld_ClientesDescuentosArticulosPRECIO_COSTE).AsCurrency := AArticulos.PRECIO_COSTE;
Next;
end;
end;
end;
end;
constructor TfrViewClienteDescuentosArticulos.Create(AOwner: TComponent);
begin
inherited;
FArtController := TArticulosController.Create;
// FArticulos := (FArtController.BuscarTodos as IBizArticulo);
// dsArticulos.DataTable := FArticulos.DataTable;
// if not dsArticulos.DataTable.Active then
// dsArticulos.DataTable.Active := True;
end;
destructor TfrViewClienteDescuentosArticulos.Destroy;
begin
// if dsArticulos.DataTable.Active then
// dsArticulos.DataTable.Active := False;
// FArticulos := NIL;
FArtController := NIL;
inherited;
end;
end.

12
Source/Modulos/Facturas de cliente/Views/uViewElegirArticulosFacturasCliente.dfm
View File

@ -1,6 +1,18 @@
inherited frViewElegirArticulosFacturasCliente: TfrViewElegirArticulosFacturasCliente
inherited cxGrid: TcxGrid
inherited cxGridView: TcxGridDBTableView
inherited cxGridViewINVENTARIABLE: TcxGridDBColumn
Visible = False
VisibleForCustomization = False
end
inherited cxGridViewCOMISIONABLE: TcxGridDBColumn
Visible = False
VisibleForCustomization = False
end
inherited cxGridViewTIENDA_WEB: TcxGridDBColumn
Visible = False
VisibleForCustomization = False
end
inherited cxGridViewPRECIO_COSTE: TcxGridDBColumn
Caption = 'Precio coste'
end

2
Source/Modulos/Informe margen por articulo/Data/InfMargenArticulo_data.drc
View File

@ -14,4 +14,4 @@ END
/* C:\Codigo\Source\Modulos\Informe margen por articulo\Data\uDataModuleInfMargenArticulo.dfm */
/* C:\Codigo\Source\Modulos\Informe margen por articulo\Data\InfMargenArticulo_data.res */
/* c:\temp\dtfBA.tmp */
/* c:\temp\dtf2FB.tmp */

2
Source/Modulos/Informe margen por articulo/Model/InfMargenArticulo_model.drc
View File

@ -13,4 +13,4 @@ BEGIN
END
/* C:\Codigo\Source\Modulos\Informe margen por articulo\Model\InfMargenArticulo_model.res */
/* c:\temp\dtfB8.tmp */
/* c:\temp\dtf2F9.tmp */

2
Source/Modulos/Informe margen por articulo/Views/InfMargenArticulo_view.drc
View File

@ -16,4 +16,4 @@ END
/* C:\Codigo\Source\Modulos\Informe margen por articulo\Views\uViewInfMargenArticulo.dfm */
/* C:\Codigo\Source\Modulos\Informe margen por articulo\Views\uEditorInfMargenArticulo.dfm */
/* C:\Codigo\Source\Modulos\Informe margen por articulo\Views\InfMargenArticulo_view.res */
/* c:\temp\dtfBE.tmp */
/* c:\temp\dtf2FF.tmp */

2
Source/Modulos/Informe ventas por articulo/Data/InfVentasArticulo_data.drc
View File

@ -14,4 +14,4 @@ END
/* C:\Codigo\Source\Modulos\Informe ventas por articulo\Data\uDataModuleInfVentasArticulo.dfm */
/* C:\Codigo\Source\Modulos\Informe ventas por articulo\Data\InfVentasArticulo_data.res */
/* c:\temp\dtfB0.tmp */
/* c:\temp\dtf2F1.tmp */

2
Source/Modulos/Informe ventas por articulo/Model/InfVentasArticulo_model.drc
View File

@ -13,4 +13,4 @@ BEGIN
END
/* C:\Codigo\Source\Modulos\Informe ventas por articulo\Model\InfVentasArticulo_model.res */
/* c:\temp\dtfAE.tmp */
/* c:\temp\dtf2EF.tmp */

2
Source/Modulos/Informe ventas por articulo/Views/InfVentasArticulo_view.drc
View File

@ -16,4 +16,4 @@ END
/* C:\Codigo\Source\Modulos\Informe ventas por articulo\Views\uViewInfVentasArticulo.dfm */
/* C:\Codigo\Source\Modulos\Informe ventas por articulo\Views\uEditorInfVentasArticulo.dfm */
/* C:\Codigo\Source\Modulos\Informe ventas por articulo\Views\InfVentasArticulo_view.res */
/* c:\temp\dtfB4.tmp */
/* c:\temp\dtf2F5.tmp */

2
Source/Modulos/Informes base/Controller/InformesBase_controller.drc
View File

@ -13,4 +13,4 @@ BEGIN
END
/* C:\Codigo\Source\Modulos\Informes base\Controller\InformesBase_controller.res */
/* c:\temp\dtfA4.tmp */
/* c:\temp\dtf2E5.tmp */

2
Source/Modulos/Informes base/Data/Informes_data.drc
View File

@ -14,4 +14,4 @@ END
/* C:\Codigo\Source\Modulos\Informes base\Data\uDataModuleInformes.dfm */
/* C:\Codigo\Source\Modulos\Informes base\Data\Informes_data.res */
/* c:\temp\dtf9E.tmp */
/* c:\temp\dtf2E1.tmp */

2
Source/Modulos/Informes base/Model/Informes_model.drc
View File

@ -13,4 +13,4 @@ BEGIN
END
/* C:\Codigo\Source\Modulos\Informes base\Model\Informes_model.res */
/* c:\temp\dtf9C.tmp */
/* c:\temp\dtf2DF.tmp */

2
Source/Modulos/Informes base/Views/Informes_view.drc
View File

@ -15,4 +15,4 @@ END
/* C:\Codigo\Source\Modulos\Informes base\Views\uViewInformes.dfm */
/* C:\Codigo\Source\Modulos\Informes base\Views\uEditorInformes.dfm */
/* C:\Codigo\Source\Modulos\Informes base\Views\Informes_view.res */
/* c:\temp\dtfA8.tmp */
/* c:\temp\dtf2E9.tmp */

12
Source/Modulos/Inventario/Controller/Inventario_controller.dpk
View File

@ -32,7 +32,14 @@ requires
PedidosProveedor_controller,
PedidosProveedor_model,
Obras_controller,
Obras_model;
Obras_model,
GUISDK_D11R,
designide,
xmlrtl,
rtl,
vclactnband,
vclx,
vcl;
contains
uIEditorInventario in 'View\uIEditorInventario.pas',
@ -42,6 +49,7 @@ contains
uIEditorElegirArticulosCatalogo in 'View\uIEditorElegirArticulosCatalogo.pas',
uIEditorElegirArticulosAlmacen in 'View\uIEditorElegirArticulosAlmacen.pas',
uInventarioUtils in '..\Utiles\uInventarioUtils.pas' {dmInventarioUtils: TDataModule},
uIEditorDetalleReservas in 'View\uIEditorDetalleReservas.pas';
uIEditorDetalleReservas in 'View\uIEditorDetalleReservas.pas',
uEditorDialog in '..\Utiles\uEditorDialog.pas' {EditorDialog: TForm};
end.

30
Source/Modulos/Inventario/Controller/Inventario_controller.dproj
View File

@ -1,4 +1,5 @@
<Project xmlns="http://schemas.microsoft.com/developer/msbuild/2003">
<?xml version="1.0" encoding="utf-8"?>
<Project xmlns="http://schemas.microsoft.com/developer/msbuild/2003">
<PropertyGroup>
<ProjectGuid>{5874467b-b5ec-4f13-a56b-36d9d93d49a5}</ProjectGuid>
<MainSource>Inventario_controller.dpk</MainSource>
@ -46,18 +47,29 @@
<DelphiCompile Include="Inventario_controller.dpk">
<MainSource>MainSource</MainSource>
</DelphiCompile>
<DCCReference Include="..\Almacenes_controller.dcp" />
<DCCReference Include="..\Articulos_controller.dcp" />
<DCCReference Include="..\Inventario_data.dcp" />
<DCCReference Include="..\Inventario_model.dcp" />
<DCCReference Include="..\Obras_controller.dcp" />
<DCCReference Include="..\Obras_model.dcp" />
<DCCReference Include="..\PedidosProveedor_controller.dcp" />
<DCCReference Include="..\PedidosProveedor_model.dcp" />
<DCCReference Include="..\Utiles\Almacenes_controller.dcp" />
<DCCReference Include="..\Utiles\Articulos_controller.dcp" />
<DCCReference Include="..\Utiles\designide.dcp" />
<DCCReference Include="..\Utiles\GUISDK_D11R.dcp" />
<DCCReference Include="..\Utiles\Inventario_data.dcp" />
<DCCReference Include="..\Utiles\Inventario_model.dcp" />
<DCCReference Include="..\Utiles\Obras_controller.dcp" />
<DCCReference Include="..\Utiles\Obras_model.dcp" />
<DCCReference Include="..\Utiles\PedidosProveedor_controller.dcp" />
<DCCReference Include="..\Utiles\PedidosProveedor_model.dcp" />
<DCCReference Include="..\Utiles\rtl.dcp" />
<DCCReference Include="..\Utiles\uEditorDialog.pas">
<Form>dmInventarioUtils</Form>
<DesignClass>TDataModule</DesignClass>
</DCCReference>
<DCCReference Include="..\Utiles\uInventarioUtils.pas">
<Form>dmInventarioUtils</Form>
<DesignClass>TDataModule</DesignClass>
</DCCReference>
<DCCReference Include="..\Utiles\vcl.dcp" />
<DCCReference Include="..\Utiles\vclactnband.dcp" />
<DCCReference Include="..\Utiles\vclx.dcp" />
<DCCReference Include="..\Utiles\xmlrtl.dcp" />
<DCCReference Include="uArticulosInventarioController.pas" />
<DCCReference Include="uInventarioController.pas" />
<DCCReference Include="View\uIEditorDetalleReservas.pas" />

BIN
Source/Modulos/Inventario/Controller/Inventario_controller.res
View File

Binary file not shown.

5
Source/Modulos/Inventario/Controller/uInventarioController.pas
View File

@ -503,6 +503,7 @@ var
ListaArticulos: TStringList;
begin
Result := False;
if Assigned(AArticulos) then
begin
ShowHourglassCursor;
@ -518,7 +519,9 @@ begin
next;
end;
if ListaArticulos.Count > 0 then
Result := (ShowConfirmMessage_ArticulosSinStock(ListaArticulos) = IDYES)
begin
Result := (ShowConfirmMessage_ArticulosSinStock(ListaArticulos) = mrOk)
end
else
Result := True;
end;

16
Source/Modulos/Inventario/Inventario_Group.groupproj
View File

@ -9,6 +9,7 @@
<Projects Include="..\..\Cliente\FactuGES.dproj" />
<Projects Include="..\..\GUIBase\GUIBase.dproj" />
<Projects Include="..\..\Servidor\FactuGES_Server.dproj" />
<Projects Include="..\Albaranes de cliente\Views\AlbaranesCliente_view.dproj" />
<Projects Include="..\Albaranes de proveedor\Controller\AlbaranesProveedor_controller.dproj" />
<Projects Include="..\Albaranes de proveedor\Data\AlbaranesProveedor_data.dproj" />
<Projects Include="..\Almacenes\Controller\Almacenes_controller.dproj" />
@ -251,14 +252,23 @@
<Target Name="Almacenes_model:Make">
<MSBuild Projects="..\Almacenes\Model\Almacenes_model.dproj" Targets="Make" />
</Target>
<Target Name="AlbaranesCliente_view">
<MSBuild Projects="..\Albaranes de cliente\Views\AlbaranesCliente_view.dproj" Targets="" />
</Target>
<Target Name="AlbaranesCliente_view:Clean">
<MSBuild Projects="..\Albaranes de cliente\Views\AlbaranesCliente_view.dproj" Targets="Clean" />
</Target>
<Target Name="AlbaranesCliente_view:Make">
<MSBuild Projects="..\Albaranes de cliente\Views\AlbaranesCliente_view.dproj" Targets="Make" />
</Target>
<Target Name="Build">
<CallTarget Targets="Base;GUIBase;ApplicationBase;Contactos_view;Articulos_view;Inventario_model;Inventario_data;Inventario_controller;PedProv_AlbProv_relation;Inventario_view;Inventario_plugin;FactuGES;FactuGES_Server;Obras_controller;AlbaranesProveedor_controller;PedidosProveedor_view;PedidosProveedor_controller;Articulos_controller;AlbaranesProveedor_data;Almacenes_controller;Almacenes_data;Obras_data;Obras_model;Almacenes_model" />
<CallTarget Targets="Base;GUIBase;ApplicationBase;Contactos_view;Articulos_view;Inventario_model;Inventario_data;Inventario_controller;PedProv_AlbProv_relation;Inventario_view;Inventario_plugin;FactuGES;FactuGES_Server;Obras_controller;AlbaranesProveedor_controller;PedidosProveedor_view;PedidosProveedor_controller;Articulos_controller;AlbaranesProveedor_data;Almacenes_controller;Almacenes_data;Obras_data;Obras_model;Almacenes_model;AlbaranesCliente_view" />
</Target>
<Target Name="Clean">
<CallTarget Targets="Base:Clean;GUIBase:Clean;ApplicationBase:Clean;Contactos_view:Clean;Articulos_view:Clean;Inventario_model:Clean;Inventario_data:Clean;Inventario_controller:Clean;PedProv_AlbProv_relation:Clean;Inventario_view:Clean;Inventario_plugin:Clean;FactuGES:Clean;FactuGES_Server:Clean;Obras_controller:Clean;AlbaranesProveedor_controller:Clean;PedidosProveedor_view:Clean;PedidosProveedor_controller:Clean;Articulos_controller:Clean;AlbaranesProveedor_data:Clean;Almacenes_controller:Clean;Almacenes_data:Clean;Obras_data:Clean;Obras_model:Clean;Almacenes_model:Clean" />
<CallTarget Targets="Base:Clean;GUIBase:Clean;ApplicationBase:Clean;Contactos_view:Clean;Articulos_view:Clean;Inventario_model:Clean;Inventario_data:Clean;Inventario_controller:Clean;PedProv_AlbProv_relation:Clean;Inventario_view:Clean;Inventario_plugin:Clean;FactuGES:Clean;FactuGES_Server:Clean;Obras_controller:Clean;AlbaranesProveedor_controller:Clean;PedidosProveedor_view:Clean;PedidosProveedor_controller:Clean;Articulos_controller:Clean;AlbaranesProveedor_data:Clean;Almacenes_controller:Clean;Almacenes_data:Clean;Obras_data:Clean;Obras_model:Clean;Almacenes_model:Clean;AlbaranesCliente_view:Clean" />
</Target>
<Target Name="Make">
<CallTarget Targets="Base:Make;GUIBase:Make;ApplicationBase:Make;Contactos_view:Make;Articulos_view:Make;Inventario_model:Make;Inventario_data:Make;Inventario_controller:Make;PedProv_AlbProv_relation:Make;Inventario_view:Make;Inventario_plugin:Make;FactuGES:Make;FactuGES_Server:Make;Obras_controller:Make;AlbaranesProveedor_controller:Make;PedidosProveedor_view:Make;PedidosProveedor_controller:Make;Articulos_controller:Make;AlbaranesProveedor_data:Make;Almacenes_controller:Make;Almacenes_data:Make;Obras_data:Make;Obras_model:Make;Almacenes_model:Make" />
<CallTarget Targets="Base:Make;GUIBase:Make;ApplicationBase:Make;Contactos_view:Make;Articulos_view:Make;Inventario_model:Make;Inventario_data:Make;Inventario_controller:Make;PedProv_AlbProv_relation:Make;Inventario_view:Make;Inventario_plugin:Make;FactuGES:Make;FactuGES_Server:Make;Obras_controller:Make;AlbaranesProveedor_controller:Make;PedidosProveedor_view:Make;PedidosProveedor_controller:Make;Articulos_controller:Make;AlbaranesProveedor_data:Make;Almacenes_controller:Make;Almacenes_data:Make;Obras_data:Make;Obras_model:Make;Almacenes_model:Make;AlbaranesCliente_view:Make" />
</Target>
<Import Condition="Exists('$(MSBuildBinPath)\Borland.Group.Targets')" Project="$(MSBuildBinPath)\Borland.Group.Targets" />
</Project>

70
Source/Modulos/Inventario/Utiles/uEditorDialog.dfm Normal file
View File

@ -0,0 +1,70 @@
inherited fDialog1: TfDialog1
Caption = 'Aviso'
ClientHeight = 350
ClientWidth = 627
ExplicitWidth = 633
ExplicitHeight = 382
PixelsPerInch = 96
TextHeight = 13
inherited Bevel2: TBevel
Top = 57
Width = 627
ExplicitTop = 57
ExplicitWidth = 797
end
inherited Bevel3: TBevel
Top = 348
Width = 627
ExplicitTop = 521
ExplicitWidth = 797
end
inherited pnlBotones: TPanel
Top = 306
Width = 627
ExplicitTop = 505
ExplicitWidth = 797
end
inherited pnlHeader: TPanel
Width = 627
Height = 57
ExplicitWidth = 797
ExplicitHeight = 57
inherited lblInstruccion: TLabel
Width = 577
Caption = 'Lista de art'#237'culos sin stock'
ExplicitWidth = 149
end
inherited Label2: TLabel
Width = 552
Height = 20
Caption =
'Los siguientes art'#237'culos no disponen de stok suficiente en el al' +
'mac'#233'n para realizar la salida. '#191'Desea continuar?'
ExplicitWidth = 525
end
end
inherited pnlCuerpo: TPanel
Top = 59
Width = 627
Height = 247
ExplicitTop = 61
ExplicitWidth = 627
ExplicitHeight = 446
object Memo1: TMemo
Left = 9
Top = 8
Width = 611
Height = 230
ScrollBars = ssVertical
TabOrder = 0
end
end
inherited ActionList1: TActionList
inherited actAceptar: TAction
OnExecute = actAceptarExecute
end
inherited actCancelar: TAction
OnExecute = actCancelarExecute
end
end
end

35
Source/Modulos/Inventario/Utiles/uEditorDialog.pas Normal file
View File

@ -0,0 +1,35 @@
unit uEditorDialog;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, uDialogBase, ActnList, StdCtrls, ExtCtrls;
type
TfDialog1 = class(TfDialogBase)
Memo1: TMemo;
procedure actAceptarExecute(Sender: TObject);
procedure actCancelarExecute(Sender: TObject);
end;
var
fDialog1: TfDialog1;
implementation
{$R *.dfm}
procedure TfDialog1.actAceptarExecute(Sender: TObject);
begin
inherited;
ModalResult := mrOk
end;
procedure TfDialog1.actCancelarExecute(Sender: TObject);
begin
inherited;
ModalResult := mrCancel;
end;
end.

37
Source/Modulos/Inventario/Utiles/uInventarioUtils.dfm
View File

@ -2,41 +2,4 @@ object dmInventarioUtils: TdmInventarioUtils
OldCreateOrder = False
Height = 203
Width = 264
object JsArticulosSinStock: TJSDialog
Glyph.Data = {
0A54504E474F626A65637489504E470D0A1A0A0000000D494844520000001C00
00001C0806000000720DDF940000000970485973000017120000171201679FD2
520000000467414D410000B18E7CFB5193000001F14944415478DABDD64D4B02
511406E03328F8270A83DA549BA09508B55082D6AD5A8414942615ADC2A0458B
C016D1A68D21951014F8075AF4014A1FB4B05A5442216119481018EA98033179
6F3A36E39DB9F74EE60151F1CC79668EBE83822CCBD0CA121078BFD8EEAABC3E
A2F4BA597A7A5733C77A1F22AB06CA9DCB4B60B379898DE5F2266C8FAFC0C40E
BDC7BF9F1198C09EE00B3E4855853C7E84E30EB01C4CC2F41EBDC73C581D8487
5D0D9141428F39F0D7203CEC61A411D4E9E1073583A05880F0AB470D1AF4F081
EF6B0D83A0588470CE5F07293D7CE063004092548340AC9CBDB45007293DCC20
8A45386AD7EBC5C3502C683DACA02B96360EF5A01DDC2C3D4D0DBED1D9B31477
F01178176863BA0D92AE943BF85590BA8D90CF07F31110D84183502390B68DAF
93610E90126A22A8D9063BC810EA0690B08DD9F534C08D8F016408B50AD4D946
E4AC031297B106943BF82AB0BA0D677094D83F37D6059E992D15CA1D7CF45357
C0EA369C1B537838A942D173B8882715540105813DCFB558D4B681D687C0442A
8BDF974A127ECEE74B60B55A20F5F4A6A06641D76136A36C63D79654402D56FA
94401425C87D881895AFBD0237A8AD7E6F5246E0E9EDB32166FA0A8D4084A112
2B575A14CB18FCF3774802710434E518E856614D0389D517FAF977AD97C37F01
8DEE34ADAC6FE2EA02F65CB3A8E60000000049454E44AE426082}
Instruction.Text = 'Art'#237'culos sin stock'
CustomButtons = <
item
Caption = '&S'#237
Value = 100
ModalResult = 6
end
item
Caption = '&No'
Value = 101
end>
ButtonBar.Buttons = []
MainIcon = tdiWarning
Left = 48
Top = 24
end
end

23
Source/Modulos/Inventario/Utiles/uInventarioUtils.pas
View File

@ -3,40 +3,37 @@ unit uInventarioUtils;
interface
uses
SysUtils, Classes, JSDialog, pngimage;
SysUtils, Classes, pngimage;
type
TdmInventarioUtils = class(TDataModule)
JsArticulosSinStock: TJSDialog;
private
{ Private declarations }
public
{ Public declarations }
end;
function ShowConfirmMessage_ArticulosSinStock(AListaArticulos : TStringList): Integer;
function ShowConfirmMessage_ArticulosSinStock(AListaArticulos : TStringList): Integer;
implementation
{$R *.dfm}
uses
uEditorDialog;
var
dmInventarioUtils: TdmInventarioUtils;
AEditor: TfDialog1;
function ShowConfirmMessage_ArticulosSinStock(AListaArticulos : TStringList): Integer;
begin
dmInventarioUtils := TdmInventarioUtils.Create(nil);
try
with dmInventarioUtils.JsArticulosSinStock do
begin
Content.Add('Los siguientes artículos no disponen de stok suficiente en el almacén para realizar la salida. ¿Desea continuar?');
Content.Add('');
Content.AddStrings(AListaArticulos);
Result := Execute;
end;
AEditor := TfDialog1.Create(nil);
AEditor.Memo1.Lines.AddStrings(AListaArticulos);
Result := AEditor.ShowModal;
finally
FreeAndNIL(dmInventarioUtils);
FreeAndNil(AEditor);
end;
end;

BIN
Source/Modulos/Inventario/Views/Inventario_view.dpk
View File

Binary file not shown.

12
Source/Modulos/Inventario/Views/Inventario_view.dproj
View File

@ -47,11 +47,13 @@
<DelphiCompile Include="Inventario_view.dpk">
<MainSource>MainSource</MainSource>
</DelphiCompile>
<DCCReference Include="Articulos_view.dcp" />
<DCCReference Include="GUIBase.dcp" />
<DCCReference Include="Inventario_controller.dcp" />
<DCCReference Include="Inventario_model.dcp" />
<DCCReference Include="PedProv_AlbProv_relation.dcp" />
<DCCReference Include="..\Controller\View\Articulos_view.dcp" />
<DCCReference Include="..\Controller\View\GUIBase.dcp" />
<DCCReference Include="..\Controller\View\Inventario_controller.dcp" />
<DCCReference Include="..\Controller\View\Inventario_model.dcp" />
<DCCReference Include="..\Controller\View\PedProv_AlbProv_relation.dcp" />
<DCCReference Include="..\Controller\View\rtl.dcp" />
<DCCReference Include="..\Controller\View\vcl.dcp" />
<DCCReference Include="uEditorDetalleReservas.pas">
<Form>fEditorDetalleReservas</Form>
<DesignClass>TfEditorDetalleReservas</DesignClass>

BIN
Source/Modulos/Inventario/Views/Inventario_view.res
View File

Binary file not shown.

2
Source/Modulos/Pedidos de cliente/Controller/PedidosCliente_controller.drc
View File

@ -13,4 +13,4 @@ BEGIN
END
/* C:\Codigo\Source\Modulos\Pedidos de cliente\Controller\PedidosCliente_controller.RES */
/* c:\temp\dtfF2.tmp */
/* c:\temp\dtf333.tmp */

2
Source/Modulos/Pedidos de cliente/Data/PedidosCliente_data.drc
View File

@ -14,4 +14,4 @@ END
/* C:\Codigo\Source\Modulos\Pedidos de cliente\Data\uDataModulePedidosCliente.dfm */
/* C:\Codigo\Source\Modulos\Pedidos de cliente\Data\PedidosCliente_data.RES */
/* c:\temp\dtfF0.tmp */
/* c:\temp\dtf331.tmp */

2
Source/Modulos/Pedidos de cliente/Model/PedidosCliente_model.drc
View File

@ -13,4 +13,4 @@ BEGIN
END
/* C:\Codigo\Source\Modulos\Pedidos de cliente\Model\PedidosCliente_model.RES */
/* c:\temp\dtfEE.tmp */
/* c:\temp\dtf32F.tmp */

2
Source/Modulos/Pedidos de cliente/Plugin/PedidosCliente_plugin.drc
View File

@ -14,4 +14,4 @@ END
/* C:\Codigo\Source\Modulos\Pedidos de cliente\Plugin\uPluginPedidosCliente.dfm */
/* C:\Codigo\Source\Modulos\Pedidos de cliente\Plugin\PedidosCliente_plugin.RES */
/* c:\temp\dtf156.tmp */
/* c:\temp\dtf397.tmp */

2
Source/Modulos/Pedidos de cliente/Views/PedidosCliente_view.drc
View File

@ -26,4 +26,4 @@ END
/* C:\Codigo\Source\Modulos\Pedidos de cliente\Views\uEditorElegirArticulosPedidoCliente.dfm */
/* C:\Codigo\Source\Modulos\Pedidos de cliente\Views\uEditorDireccionEntregaPedidoCliente.dfm */
/* C:\Codigo\Source\Modulos\Pedidos de cliente\Views\PedidosCliente_view.RES */
/* c:\temp\dtf154.tmp */
/* c:\temp\dtf395.tmp */

10
Source/Modulos/Pedidos de cliente/Views/uViewElegirArticulosPedidosCliente.dfm
View File

@ -10,8 +10,18 @@ inherited frViewElegirArticulosPedidosCliente: TfrViewElegirArticulosPedidosClie
ExplicitWidth = 565
ExplicitHeight = 279
inherited cxGridView: TcxGridDBTableView
inherited cxGridViewINVENTARIABLE: TcxGridDBColumn
Visible = False
VisibleForCustomization = False
end
inherited cxGridViewCOMISIONABLE: TcxGridDBColumn
Caption = #191'Comisionable?'
Visible = False
VisibleForCustomization = False
end
inherited cxGridViewTIENDA_WEB: TcxGridDBColumn
Visible = False
VisibleForCustomization = False
end
inherited cxGridViewREFERENCIA: TcxGridDBColumn
Caption = 'Referencia'

2
Source/Modulos/Tienda web/Data/TiendaWeb_data.drc
View File

@ -14,4 +14,4 @@ END
/* C:\Codigo\Source\Modulos\Tienda web\Data\uDataModuleTiendaWeb.dfm */
/* C:\Codigo\Source\Modulos\Tienda web\Data\TiendaWeb_data.res */
/* c:\temp\dtf108.tmp */
/* c:\temp\dtf349.tmp */

BIN
Source/Servidor/FactuGES_Server.RES
View File

Binary file not shown.

6
Source/Servidor/FactuGES_Server.dpr
View File

@ -157,8 +157,6 @@ uses
schFacturasProveedorServer_Intf in '..\Modulos\Facturas de proveedor\Model\schFacturasProveedorServer_Intf.pas',
schAlbaranesClienteClient_Intf in '..\Modulos\Albaranes de cliente\Model\schAlbaranesClienteClient_Intf.pas',
schAlbaranesClienteServer_Intf in '..\Modulos\Albaranes de cliente\Model\schAlbaranesClienteServer_Intf.pas',
schContactosClient_Intf in '..\Modulos\Contactos\Model\schContactosClient_Intf.pas',
schContactosServer_Intf in '..\Modulos\Contactos\Model\schContactosServer_Intf.pas',
schTiendaWebClient_Intf in '..\Modulos\Tienda web\Model\schTiendaWebClient_Intf.pas',
schTiendaWebServer_Intf in '..\Modulos\Tienda web\Model\schTiendaWebServer_Intf.pas',
srvInformes_Impl in '..\Modulos\Informes base\Servidor\srvInformes_Impl.pas' {srvInformes: TDataAbstractService},
@ -167,7 +165,9 @@ uses
srvInfVentasArticulo_Impl in '..\Modulos\Informe ventas por articulo\Servidor\srvInfVentasArticulo_Impl.pas' {srvInfVentasArticulo: TDataAbstractService},
srvInfMargenArticulo_Impl in '..\Modulos\Informe margen por articulo\Servidor\srvInfMargenArticulo_Impl.pas' {srvInfMargenArticulo: TDARemoteService},
schInventarioClient_Intf in '..\Modulos\Inventario\Model\schInventarioClient_Intf.pas',
schInventarioServer_Intf in '..\Modulos\Inventario\Model\schInventarioServer_Intf.pas';
schInventarioServer_Intf in '..\Modulos\Inventario\Model\schInventarioServer_Intf.pas',
schContactosClient_Intf in '..\Modulos\Contactos\Model\schContactosClient_Intf.pas',
schContactosServer_Intf in '..\Modulos\Contactos\Model\schContactosServer_Intf.pas';
{$R *.res}
{$R ..\Servicios\RODLFile.res}

805
Source/Servidor/FactuGES_Server.dproj
View File

@ -1,408 +1,405 @@
<?xml version="1.0" encoding="utf-8"?>
<?xml version="1.0" encoding="utf-8"?>
<Project xmlns="http://schemas.microsoft.com/developer/msbuild/2003">
<PropertyGroup>
<ProjectGuid>{ebdcd25d-40d7-4146-91ec-a0ea4aa1dcd1}</ProjectGuid>
<MainSource>FactuGES_Server.dpr</MainSource>
<Configuration Condition=" '$(Configuration)' == '' ">Debug</Configuration>
<Platform Condition=" '$(Platform)' == '' ">AnyCPU</Platform>
<DCC_DCCCompiler>DCC32</DCC_DCCCompiler>
<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>
</PropertyGroup>
<PropertyGroup Condition=" '$(Configuration)|$(Platform)' == 'Release|AnyCPU' ">
<Version>7.0</Version>
<DCC_DebugInformation>False</DCC_DebugInformation>
<DCC_LocalDebugSymbols>False</DCC_LocalDebugSymbols>
<DCC_SymbolReferenceInfo>0</DCC_SymbolReferenceInfo>
<DCC_MapFile>3</DCC_MapFile>
<DCC_ExeOutput>..\..\Output\Release\Servidor</DCC_ExeOutput>
<DCC_Define>RELEASE</DCC_Define>
</PropertyGroup>
<PropertyGroup Condition=" '$(Configuration)|$(Platform)' == 'Debug|AnyCPU' ">
<Version>7.0</Version>
<DCC_MapFile>3</DCC_MapFile>
<DCC_ExeOutput>..\..\Output\Debug\Servidor</DCC_ExeOutput>
<DCC_Define>DEBUG;</DCC_Define>
<DCC_GenerateStackFrames>True</DCC_GenerateStackFrames>
<DCC_DebugInfoInExe>True</DCC_DebugInfoInExe>
<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_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_IncludePath>C:\jcl\lib\d11\debug;C:\JCL\lib\d11\debug;$(BDS)\lib\Debug;$(BDS)\Lib\Debug\Indy10</DCC_IncludePath>
</PropertyGroup>
<ProjectExtensions>
<Borland.Personality>Delphi.Personality</Borland.Personality>
<Borland.ProjectType />
<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">1</VersionInfo><VersionInfo Name="Release">6</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.1.6.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.1.6.0</VersionInfoKeys><VersionInfoKeys Name="Comments"></VersionInfoKeys><VersionInfoKeys Name="CompileDate">jueves, 31 de marzo de 2011 19:23</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>
</ProjectExtensions>
<Import Project="$(MSBuildBinPath)\Borland.Delphi.Targets" />
<ItemGroup>
<DelphiCompile Include="FactuGES_Server.dpr">
<MainSource>MainSource</MainSource>
</DelphiCompile>
<DCCReference Include="..\ApplicationBase\Empresas\Model\schEmpresasClient_Intf.pas" />
<DCCReference Include="..\ApplicationBase\Empresas\Model\schEmpresasServer_Intf.pas" />
<DCCReference Include="..\ApplicationBase\Empresas\Model\uBizEmpresasServer.pas" />
<DCCReference Include="..\ApplicationBase\Empresas\Servidor\srvEmpresas_Impl.pas">
<Form>srvEmpresas</Form>
<DesignClass>TDARemoteService</DesignClass>
</DCCReference>
<DCCReference Include="..\ApplicationBase\ProvinciasPoblaciones\Servidor\srvProvinciasPoblaciones_Impl.pas">
<Form>srvProvinciasPoblaciones_Impl</Form>
<DesignClass>TDataModule</DesignClass>
</DCCReference>
<DCCReference Include="..\ApplicationBase\Usuarios\Model\schUsuariosClient_Intf.pas" />
<DCCReference Include="..\ApplicationBase\Usuarios\Model\schUsuariosServer_Intf.pas" />
<DCCReference Include="..\ApplicationBase\Usuarios\Servidor\srvUsuarios_Impl.pas">
<Form>srvUsuarios</Form>
<DesignClass>TDataAbstractService</DesignClass>
</DCCReference>
<DCCReference Include="..\Base\schBase_Intf.pas" />
<DCCReference Include="..\Base\Utiles\uSistemaFunc.pas" />
<DCCReference Include="..\Base\Utiles\uStringsUtils.pas" />
<DCCReference Include="..\Modulos\Albaranes de cliente\Model\schAlbaranesClienteClient_Intf.pas" />
<DCCReference Include="..\Modulos\Albaranes de cliente\Model\schAlbaranesClienteServer_Intf.pas" />
<DCCReference Include="..\Modulos\Albaranes de cliente\Model\uBizAlbaranClienteServer.pas" />
<DCCReference Include="..\Modulos\Albaranes de cliente\Reports\uRptAlbaranesCliente_Server.pas">
<Form>RptAlbaranesCliente</Form>
<DesignClass>TDataModule</DesignClass>
</DCCReference>
<DCCReference Include="..\Modulos\Albaranes de cliente\Reports\uRptWordAlbaranCliente.pas">
<Form>RptWordAlbaranCliente</Form>
<DesignClass>TDataModule</DesignClass>
</DCCReference>
<DCCReference Include="..\Modulos\Albaranes de cliente\Servidor\srvAlbaranesCliente_Impl.pas">
<Form>srvAlbaranesCliente</Form>
<DesignClass>TDataAbstractService</DesignClass>
</DCCReference>
<DCCReference Include="..\Modulos\Albaranes de proveedor\Model\schAlbaranesProveedorClient_Intf.pas" />
<DCCReference Include="..\Modulos\Albaranes de proveedor\Model\schAlbaranesProveedorServer_Intf.pas" />
<DCCReference Include="..\Modulos\Albaranes de proveedor\Model\uBizAlbaranProveedorServer.PAS" />
<DCCReference Include="..\Modulos\Albaranes de proveedor\Reports\uRptAlbaranesProveedor_Server.pas">
<Form>RptAlbaranesProveedor</Form>
<DesignClass>TDataModule</DesignClass>
</DCCReference>
<DCCReference Include="..\Modulos\Albaranes de proveedor\Reports\uRptWordAlbaranProveedor.pas">
<Form>RptWordAlbaranProveedor</Form>
<DesignClass>TDataModule</DesignClass>
</DCCReference>
<DCCReference Include="..\Modulos\Albaranes de proveedor\Servidor\srvAlbaranesProveedor_Impl.pas">
<Form>srvAlbaranesProveedor</Form>
<DesignClass>TDataAbstractService</DesignClass>
</DCCReference>
<DCCReference Include="..\Modulos\Almacenes\Model\schAlmacenesClient_Intf.pas" />
<DCCReference Include="..\Modulos\Almacenes\Model\schAlmacenesServer_Intf.pas" />
<DCCReference Include="..\Modulos\Almacenes\Servidor\srvAlmacenes_Impl.pas">
<Form>srvAlmacenes</Form>
<DesignClass>TDARemoteService</DesignClass>
</DCCReference>
<DCCReference Include="..\Modulos\Articulos\Model\schArticulosClient_Intf.pas" />
<DCCReference Include="..\Modulos\Articulos\Model\schArticulosServer_Intf.pas" />
<DCCReference Include="..\Modulos\Articulos\Model\uBizArticulosServer.pas" />
<DCCReference Include="..\Modulos\Articulos\Servidor\srvArticulos_Impl.pas">
<Form>srvArticulos</Form>
<DesignClass>TDARemoteService</DesignClass>
</DCCReference>
<DCCReference Include="..\Modulos\Comisiones\Model\schComisionesClient_Intf.pas" />
<DCCReference Include="..\Modulos\Comisiones\Model\schComisionesServer_Intf.pas" />
<DCCReference Include="..\Modulos\Comisiones\Model\uBizComisionesServer.pas" />
<DCCReference Include="..\Modulos\Comisiones\Reports\uRptComisiones_Server.pas">
<Form>RptComisiones</Form>
<DesignClass>TDataModule</DesignClass>
</DCCReference>
<DCCReference Include="..\Modulos\Comisiones\Servidor\srvComisiones_Impl.pas">
<Form>srvComisiones</Form>
<DesignClass>TDataAbstractService</DesignClass>
</DCCReference>
<DCCReference Include="..\Modulos\Contactos\Model\schContactosClient_Intf.pas" />
<DCCReference Include="..\Modulos\Contactos\Model\schContactosServer_Intf.pas" />
<DCCReference Include="..\Modulos\Contactos\Model\uBizAgentesServer.pas" />
<DCCReference Include="..\Modulos\Contactos\Model\uBizClientesServer.pas" />
<DCCReference Include="..\Modulos\Contactos\Model\uBizContactosServer.pas" />
<DCCReference Include="..\Modulos\Contactos\Model\uBizEmpleadosServer.pas" />
<DCCReference Include="..\Modulos\Contactos\Model\uBizProveedoresServer.pas" />
<DCCReference Include="..\Modulos\Contactos\Reports\uRptEtiquetasContacto_Server.pas">
<Form>RptEtiquetasContacto</Form>
<DesignClass>TDataModule</DesignClass>
</DCCReference>
<DCCReference Include="..\Modulos\Contactos\Reports\uRptFichasEmpleado_Server.pas">
<Form>RptFichasEmpleado</Form>
<DesignClass>TDataModule</DesignClass>
</DCCReference>
<DCCReference Include="..\Modulos\Contactos\Servidor\srvContactos_Impl.pas">
<Form>srvContactos</Form>
<DesignClass>TDARemoteService</DesignClass>
</DCCReference>
<DCCReference Include="..\Modulos\Fabricantes\Model\schFabricantesClient_Intf.pas" />
<DCCReference Include="..\Modulos\Fabricantes\Model\schFabricantesServer_Intf.pas" />
<DCCReference Include="..\Modulos\Fabricantes\Servidor\srvFabricantes_Impl.pas">
<Form>srvFabricantes</Form>
<DesignClass>TDataAbstractService</DesignClass>
</DCCReference>
<DCCReference Include="..\Modulos\Facturas de cliente\Model\schFacturasClienteClient_Intf.pas" />
<DCCReference Include="..\Modulos\Facturas de cliente\Model\schFacturasClienteServer_Intf.pas" />
<DCCReference Include="..\Modulos\Facturas de cliente\Model\uBizFacturasClienteServer.pas" />
<DCCReference Include="..\Modulos\Facturas de cliente\Reports\uRptFacturasCliente_Server.pas">
<Form>RptFacturasCliente</Form>
<DesignClass>TDataModule</DesignClass>
</DCCReference>
<DCCReference Include="..\Modulos\Facturas de cliente\Reports\uRptWordFacturaCliente.pas">
<Form>RptWordFacturaCliente</Form>
<DesignClass>TDataModule</DesignClass>
</DCCReference>
<DCCReference Include="..\Modulos\Facturas de cliente\Servidor\srvFacturasCliente_Impl.pas">
<Form>srvFacturasCliente</Form>
<DesignClass>TDataAbstractService</DesignClass>
</DCCReference>
<DCCReference Include="..\Modulos\Facturas de proveedor\Model\schFacturasProveedorClient_Intf.pas" />
<DCCReference Include="..\Modulos\Facturas de proveedor\Model\schFacturasProveedorServer_Intf.pas" />
<DCCReference Include="..\Modulos\Facturas de proveedor\Model\uBizFacturasProveedorServer.pas" />
<DCCReference Include="..\Modulos\Facturas de proveedor\Reports\uRptFacturasProveedor_Server.pas">
<Form>RptFacturasProveedor</Form>
<DesignClass>TDataModule</DesignClass>
</DCCReference>
<DCCReference Include="..\Modulos\Facturas de proveedor\Servidor\srvFacturasProveedor_Impl.pas">
<Form>srvFacturasProveedor</Form>
<DesignClass>TDataAbstractService</DesignClass>
</DCCReference>
<DCCReference Include="..\Modulos\Familias\Model\schFamiliasClient_Intf.pas" />
<DCCReference Include="..\Modulos\Familias\Model\schFamiliasServer_Intf.pas" />
<DCCReference Include="..\Modulos\Familias\Servidor\srvFamilias_Impl.pas">
<Form>srvFamilias</Form>
<DesignClass>TDataAbstractService</DesignClass>
</DCCReference>
<DCCReference Include="..\Modulos\Formas de pago\Model\schFormasPagoClient_Intf.pas" />
<DCCReference Include="..\Modulos\Formas de pago\Model\schFormasPagoServer_Intf.pas" />
<DCCReference Include="..\Modulos\Formas de pago\Servidor\srvFormasPago_Impl.pas">
<Form>srvFormasPago</Form>
<DesignClass>TDataAbstractService</DesignClass>
</DCCReference>
<DCCReference Include="..\Modulos\Gestion de documentos\Servidor\srvGestorDocumentos_Impl.pas">
<Form>srvGestorDocumentos</Form>
<DesignClass>TDataAbstractService</DesignClass>
</DCCReference>
<DCCReference Include="..\Modulos\Gestor de informes\Servidor\srvGestorInformes_Impl.pas">
<Form>srvGestorInformes</Form>
<DesignClass>TDataAbstractService</DesignClass>
</DCCReference>
<DCCReference Include="..\Modulos\Historico de movimientos\Model\schHistoricoMovimientosClient_Intf.pas" />
<DCCReference Include="..\Modulos\Historico de movimientos\Model\schHistoricoMovimientosServer_Intf.pas" />
<DCCReference Include="..\Modulos\Historico de movimientos\Servidor\srvHistoricoMovimientos_Impl.pas">
<Form>srvHistoricoMovimientos</Form>
<DesignClass>TDataAbstractService</DesignClass>
</DCCReference>
<DCCReference Include="..\Modulos\Impresiones\Model\schImpresionesClient_Intf.pas" />
<DCCReference Include="..\Modulos\Impresiones\Model\schImpresionesServer_Intf.pas" />
<DCCReference Include="..\Modulos\Impresiones\Servidor\srvImpresiones_Impl.pas">
<Form>srvImpresiones</Form>
<DesignClass>TDARemoteService</DesignClass>
</DCCReference>
<DCCReference Include="..\Modulos\Informe margen por articulo\Servidor\srvInfMargenArticulo_Impl.pas">
<Form>srvInfMargenArticulo</Form>
<DesignClass>TDARemoteService</DesignClass>
</DCCReference>
<DCCReference Include="..\Modulos\Informe ventas por articulo\Servidor\srvInfVentasArticulo_Impl.pas">
<Form>srvInfVentasArticulo</Form>
<DesignClass>TDataAbstractService</DesignClass>
</DCCReference>
<DCCReference Include="..\Modulos\Informes base\Model\schInformesClient_Intf.pas" />
<DCCReference Include="..\Modulos\Informes base\Model\schInformesServer_Intf.pas" />
<DCCReference Include="..\Modulos\Informes base\Servidor\srvInformes_Impl.pas">
<Form>srvInformes</Form>
<DesignClass>TDataAbstractService</DesignClass>
</DCCReference>
<DCCReference Include="..\Modulos\Inventario\Model\schInventarioClient_Intf.pas" />
<DCCReference Include="..\Modulos\Inventario\Model\schInventarioServer_Intf.pas" />
<DCCReference Include="..\Modulos\Inventario\Servidor\srvInventario_Impl.pas">
<Form>srvInventario</Form>
<DesignClass>TDataAbstractService</DesignClass>
</DCCReference>
<DCCReference Include="..\Modulos\Obras\Model\schObrasClient_Intf.pas" />
<DCCReference Include="..\Modulos\Obras\Model\schObrasServer_Intf.pas" />
<DCCReference Include="..\Modulos\Obras\Model\uBizObrasServer.pas" />
<DCCReference Include="..\Modulos\Obras\Servidor\srvObras_Impl.pas">
<Form>srvObras</Form>
<DesignClass>TDataAbstractService</DesignClass>
</DCCReference>
<DCCReference Include="..\Modulos\Pedidos a proveedor\Model\schPedidosProveedorClient_Intf.pas" />
<DCCReference Include="..\Modulos\Pedidos a proveedor\Model\schPedidosProveedorServer_Intf.pas" />
<DCCReference Include="..\Modulos\Pedidos a proveedor\Model\uBizPedidosProveedorServer.pas" />
<DCCReference Include="..\Modulos\Pedidos a proveedor\Reports\uRptPedidosProveedor_Server.pas">
<Form>RptPedidosProveedor</Form>
<DesignClass>TDataModule</DesignClass>
</DCCReference>
<DCCReference Include="..\Modulos\Pedidos a proveedor\Reports\uRptWordPedidoProveedor.pas">
<Form>RptWordPedidoProveedor</Form>
<DesignClass>TDataModule</DesignClass>
</DCCReference>
<DCCReference Include="..\Modulos\Pedidos a proveedor\Servidor\srvPedidosProveedor_Impl.pas">
<Form>srvPedidosProveedor</Form>
<DesignClass>TDataAbstractService</DesignClass>
</DCCReference>
<DCCReference Include="..\Modulos\Pedidos de cliente\Model\schPedidosClienteClient_Intf.pas" />
<DCCReference Include="..\Modulos\Pedidos de cliente\Model\schPedidosClienteServer_Intf.pas" />
<DCCReference Include="..\Modulos\Pedidos de cliente\Model\uBizPedidosClienteServer.pas" />
<DCCReference Include="..\Modulos\Pedidos de cliente\Reports\uRptPedidosCliente_Server.pas">
<Form>RptPedidosCliente</Form>
<DesignClass>TDataModule</DesignClass>
</DCCReference>
<DCCReference Include="..\Modulos\Pedidos de cliente\Servidor\srvPedidosCliente_Impl.pas">
<Form>srvPedidosCliente</Form>
<DesignClass>TDataAbstractService</DesignClass>
</DCCReference>
<DCCReference Include="..\Modulos\Presupuestos de cliente\Model\schPresupuestosClienteClient_Intf.pas" />
<DCCReference Include="..\Modulos\Presupuestos de cliente\Model\schPresupuestosClienteServer_Intf.pas" />
<DCCReference Include="..\Modulos\Presupuestos de cliente\Model\uBizPresupuestosClienteServer.pas" />
<DCCReference Include="..\Modulos\Presupuestos de cliente\Reports\uRptPresupuestosCliente_Server.pas">
<Form>RptPresupuestosCliente</Form>
<DesignClass>TDataModule</DesignClass>
</DCCReference>
<DCCReference Include="..\Modulos\Presupuestos de cliente\Reports\uRptWordCertificadoTrabajo_Server.pas">
<Form>RptWordCertificadoTrabajo</Form>
<DesignClass>TDataModule</DesignClass>
</DCCReference>
<DCCReference Include="..\Modulos\Presupuestos de cliente\Reports\uRptWordPresupuestoCliente.pas">
<Form>RptWordPresupuestoCliente</Form>
<DesignClass>TDataModule</DesignClass>
</DCCReference>
<DCCReference Include="..\Modulos\Presupuestos de cliente\Servidor\srvPresupuestosCliente_Impl.pas">
<Form>srvPresupuestosCliente</Form>
<DesignClass>TDataAbstractService</DesignClass>
</DCCReference>
<DCCReference Include="..\Modulos\Recibos de cliente\Model\schRecibosClienteClient_Intf.pas" />
<DCCReference Include="..\Modulos\Recibos de cliente\Model\schRecibosClienteServer_Intf.pas" />
<DCCReference Include="..\Modulos\Recibos de cliente\Reports\uRptRecibosCliente_Server.pas">
<Form>RptRecibosCliente</Form>
<DesignClass>TDataModule</DesignClass>
</DCCReference>
<DCCReference Include="..\Modulos\Recibos de cliente\Servidor\srvRecibosCliente_Impl.pas">
<Form>srvRecibosCliente</Form>
<DesignClass>TDataAbstractService</DesignClass>
</DCCReference>
<DCCReference Include="..\Modulos\Recibos de proveedor\Model\schRecibosProveedorClient_Intf.pas" />
<DCCReference Include="..\Modulos\Recibos de proveedor\Model\schRecibosProveedorServer_Intf.pas" />
<DCCReference Include="..\Modulos\Recibos de proveedor\Reports\uRptRecibosProveedor_Server.pas">
<Form>RptRecibosProveedor</Form>
<DesignClass>TDataModule</DesignClass>
</DCCReference>
<DCCReference Include="..\Modulos\Recibos de proveedor\Servidor\srvRecibosProveedor_Impl.pas">
<Form>srvRecibosProveedor</Form>
<DesignClass>TDataAbstractService</DesignClass>
</DCCReference>
<DCCReference Include="..\Modulos\Referencias\Model\schReferenciasClient_Intf.pas" />
<DCCReference Include="..\Modulos\Referencias\Model\schReferenciasServer_Intf.pas" />
<DCCReference Include="..\Modulos\Referencias\Servidor\srvReferencias_Impl.pas">
<Form>srvReferencias</Form>
<DesignClass>TDataAbstractService</DesignClass>
</DCCReference>
<DCCReference Include="..\Modulos\Registro de correos\Servidor\srvRegistroCorreos_Impl.pas">
<Form>srvRegistroCorreos</Form>
<DesignClass>TDataAbstractService</DesignClass>
</DCCReference>
<DCCReference Include="..\Modulos\Remesas de cliente\Model\schRemesasClienteClient_Intf.pas" />
<DCCReference Include="..\Modulos\Remesas de cliente\Model\schRemesasClienteServer_Intf.pas" />
<DCCReference Include="..\Modulos\Remesas de cliente\Model\uBizRemesasClienteServer.pas" />
<DCCReference Include="..\Modulos\Remesas de cliente\Reports\uRptRemesasCliente_Server.pas">
<Form>RptRemesasCliente</Form>
<DesignClass>TDataModule</DesignClass>
</DCCReference>
<DCCReference Include="..\Modulos\Remesas de cliente\Servidor\srvRemesasCliente_Impl.pas">
<Form>srvRemesasCliente</Form>
<DesignClass>TDataAbstractService</DesignClass>
</DCCReference>
<DCCReference Include="..\Modulos\Remesas de proveedor\Model\schRemesasProveedorClient_Intf.pas" />
<DCCReference Include="..\Modulos\Remesas de proveedor\Model\schRemesasProveedorServer_Intf.pas" />
<DCCReference Include="..\Modulos\Remesas de proveedor\Model\uBizRemesasProveedorServer.pas" />
<DCCReference Include="..\Modulos\Remesas de proveedor\Reports\uRptRemesasProveedor_Server.pas">
<Form>RptRemesasProveedor</Form>
<DesignClass>TDataModule</DesignClass>
</DCCReference>
<DCCReference Include="..\Modulos\Remesas de proveedor\Servidor\srvRemesasProveedor_Impl.pas">
<Form>srvRemesasProveedor</Form>
<DesignClass>TDataAbstractService</DesignClass>
</DCCReference>
<DCCReference Include="..\Modulos\Tienda web\Model\schTiendaWebClient_Intf.pas" />
<DCCReference Include="..\Modulos\Tienda web\Model\schTiendaWebServer_Intf.pas" />
<DCCReference Include="..\Modulos\Tienda web\Model\uBizOscAddressBookServer.pas" />
<DCCReference Include="..\Modulos\Tienda web\Model\uBizOscCustomerServer.pas" />
<DCCReference Include="..\Modulos\Tienda web\Model\uBizOscManufacturerServer.pas" />
<DCCReference Include="..\Modulos\Tienda web\Model\uBizOscOrderServer.pas" />
<DCCReference Include="..\Modulos\Tienda web\Model\uBizOscProductServer.pas" />
<DCCReference Include="..\Modulos\Tienda web\Model\uBizTiendaWebServer.pas" />
<DCCReference Include="..\Modulos\Tienda web\Servidor\srvTiendaWeb_Impl.pas">
<Form>srvTiendaWeb</Form>
<DesignClass>TDataAbstractService</DesignClass>
</DCCReference>
<DCCReference Include="..\Modulos\Tipos de IVA\Model\schTiposIVAClient_Intf.pas" />
<DCCReference Include="..\Modulos\Tipos de IVA\Model\schTiposIVAServer_Intf.pas" />
<DCCReference Include="..\Modulos\Tipos de IVA\Servidor\srvTiposIVA_Impl.pas">
<Form>srvTiposIVA</Form>
<DesignClass>TDataAbstractService</DesignClass>
</DCCReference>
<DCCReference Include="..\Modulos\Unidades de medida\Model\schUnidadesMedidaClient_Intf.pas" />
<DCCReference Include="..\Modulos\Unidades de medida\Model\schUnidadesMedidaServer_Intf.pas" />
<DCCReference Include="..\Modulos\Unidades de medida\Servidor\srvUnidadesMedida_Impl.pas">
<Form>srvUnidadesMedida</Form>
<DesignClass>TDataAbstractService</DesignClass>
</DCCReference>
<DCCReference Include="..\Servicios\FactuGES_Intf.pas" />
<DCCReference Include="..\Servicios\FactuGES_Invk.pas" />
<DCCReference Include="Configuracion\srvConfiguracion_Impl.pas">
<Form>srvConfiguracion</Form>
<DesignClass>TDataAbstractService</DesignClass>
</DCCReference>
<DCCReference Include="Configuracion\uConexionBD.pas">
<Form>frConexionBD</Form>
<DesignClass>TFrame</DesignClass>
</DCCReference>
<DCCReference Include="Configuracion\uConexionOSC.pas">
<Form>frConexionOSC</Form>
<DesignClass>TFrame</DesignClass>
</DCCReference>
<DCCReference Include="Configuracion\uConfGeneral.pas">
<Form>frConfGeneral</Form>
<DesignClass>TFrame</DesignClass>
</DCCReference>
<DCCReference Include="Configuracion\uConfiguracion.pas">
<Form>fConfiguracion</Form>
<DesignClass>TForm</DesignClass>
</DCCReference>
<DCCReference Include="Configuracion\uFrameConfiguracion.pas">
<Form>FrameConfiguracion</Form>
<DesignClass>TFrame</DesignClass>
</DCCReference>
<DCCReference Include="srvLogin_Impl.pas">
<Form>srvLogin</Form>
<DesignClass>TDARemoteService</DesignClass>
</DCCReference>
<DCCReference Include="uAcercaDe.pas">
<Form>fAcercaDe</Form>
</DCCReference>
<DCCReference Include="uDataModuleServer.pas">
<Form>dmServer</Form>
<DesignClass>TDataModule</DesignClass>
</DCCReference>
<DCCReference Include="uServerMainForm.pas">
<Form>fServerForm</Form>
</DCCReference>
<DCCReference Include="Utiles\AHWord97.pas" />
<DCCReference Include="Utiles\MidasSpeedFix.pas" />
<DCCReference Include="Utiles\uBusinessUtils.pas" />
<DCCReference Include="Utiles\uDatabaseUtils.pas" />
<DCCReference Include="Utiles\uReferenciasUtils.pas" />
<DCCReference Include="Utiles\uRestriccionesUsuarioUtils.pas" />
<DCCReference Include="Utiles\uSchemaUtilsServer.pas" />
<DCCReference Include="Utiles\uServerAppUtils.pas" />
<DCCReference Include="Utiles\uSesionesUtils.pas" />
<DCCReference Include="Utiles\uTiendaWebUtils.pas" />
</ItemGroup>
<PropertyGroup>
<ProjectGuid>{ebdcd25d-40d7-4146-91ec-a0ea4aa1dcd1}</ProjectGuid>
<MainSource>FactuGES_Server.dpr</MainSource>
<Configuration Condition=" '$(Configuration)' == '' ">Debug</Configuration>
<Platform Condition=" '$(Platform)' == '' ">AnyCPU</Platform>
<DCC_DCCCompiler>DCC32</DCC_DCCCompiler>
<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>
</PropertyGroup>
<PropertyGroup Condition=" '$(Configuration)|$(Platform)' == 'Release|AnyCPU' ">
<Version>7.0</Version>
<DCC_DebugInformation>False</DCC_DebugInformation>
<DCC_LocalDebugSymbols>False</DCC_LocalDebugSymbols>
<DCC_SymbolReferenceInfo>0</DCC_SymbolReferenceInfo>
<DCC_MapFile>3</DCC_MapFile>
<DCC_ExeOutput>..\..\Output\Release\Servidor</DCC_ExeOutput>
<DCC_Define>RELEASE</DCC_Define>
</PropertyGroup>
<PropertyGroup Condition=" '$(Configuration)|$(Platform)' == 'Debug|AnyCPU' ">
<Version>7.0</Version>
<DCC_MapFile>3</DCC_MapFile>
<DCC_ExeOutput>..\..\Output\Debug\Servidor</DCC_ExeOutput>
<DCC_Define>DEBUG;</DCC_Define>
<DCC_GenerateStackFrames>True</DCC_GenerateStackFrames>
<DCC_DebugInfoInExe>True</DCC_DebugInfoInExe>
<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_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_IncludePath>C:\jcl\lib\d11\debug;C:\JCL\lib\d11\debug;$(BDS)\lib\Debug;$(BDS)\Lib\Debug\Indy10</DCC_IncludePath>
</PropertyGroup>
<ProjectExtensions>
<Borland.Personality>Delphi.Personality</Borland.Personality>
<Borland.ProjectType/>
<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">1</VersionInfo><VersionInfo Name="Release">7</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.1.7.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.1.7.0</VersionInfoKeys><VersionInfoKeys Name="Comments"></VersionInfoKeys><VersionInfoKeys Name="CompileDate">martes, 23 de agosto de 2011 17:50</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>
</ProjectExtensions>
<Import Project="$(MSBuildBinPath)\Borland.Delphi.Targets"/>
<ItemGroup>
<DelphiCompile Include="FactuGES_Server.dpr">
<MainSource>MainSource</MainSource>
</DelphiCompile>
<DCCReference Include="..\ApplicationBase\Empresas\Model\schEmpresasClient_Intf.pas"/>
<DCCReference Include="..\ApplicationBase\Empresas\Model\schEmpresasServer_Intf.pas"/>
<DCCReference Include="..\ApplicationBase\Empresas\Model\uBizEmpresasServer.pas"/>
<DCCReference Include="..\ApplicationBase\Empresas\Servidor\srvEmpresas_Impl.pas">
<Form>srvEmpresas</Form>
<DesignClass>TDARemoteService</DesignClass>
</DCCReference>
<DCCReference Include="..\ApplicationBase\ProvinciasPoblaciones\Servidor\srvProvinciasPoblaciones_Impl.pas">
<Form>srvProvinciasPoblaciones_Impl</Form>
<DesignClass>TDataModule</DesignClass>
</DCCReference>
<DCCReference Include="..\ApplicationBase\Usuarios\Model\schUsuariosClient_Intf.pas"/>
<DCCReference Include="..\ApplicationBase\Usuarios\Model\schUsuariosServer_Intf.pas"/>
<DCCReference Include="..\ApplicationBase\Usuarios\Servidor\srvUsuarios_Impl.pas">
<Form>srvUsuarios</Form>
<DesignClass>TDataAbstractService</DesignClass>
</DCCReference>
<DCCReference Include="..\Base\schBase_Intf.pas"/>
<DCCReference Include="..\Base\Utiles\uSistemaFunc.pas"/>
<DCCReference Include="..\Base\Utiles\uStringsUtils.pas"/>
<DCCReference Include="..\Modulos\Albaranes de cliente\Model\schAlbaranesClienteClient_Intf.pas"/>
<DCCReference Include="..\Modulos\Albaranes de cliente\Model\schAlbaranesClienteServer_Intf.pas"/>
<DCCReference Include="..\Modulos\Albaranes de cliente\Model\uBizAlbaranClienteServer.pas"/>
<DCCReference Include="..\Modulos\Albaranes de cliente\Reports\uRptAlbaranesCliente_Server.pas">
<Form>RptAlbaranesCliente</Form>
<DesignClass>TDataModule</DesignClass>
</DCCReference>
<DCCReference Include="..\Modulos\Albaranes de cliente\Reports\uRptWordAlbaranCliente.pas">
<Form>RptWordAlbaranCliente</Form>
<DesignClass>TDataModule</DesignClass>
</DCCReference>
<DCCReference Include="..\Modulos\Albaranes de cliente\Servidor\srvAlbaranesCliente_Impl.pas">
<Form>srvAlbaranesCliente</Form>
<DesignClass>TDataAbstractService</DesignClass>
</DCCReference>
<DCCReference Include="..\Modulos\Albaranes de proveedor\Model\schAlbaranesProveedorClient_Intf.pas"/>
<DCCReference Include="..\Modulos\Albaranes de proveedor\Model\schAlbaranesProveedorServer_Intf.pas"/>
<DCCReference Include="..\Modulos\Albaranes de proveedor\Model\uBizAlbaranProveedorServer.PAS"/>
<DCCReference Include="..\Modulos\Albaranes de proveedor\Reports\uRptAlbaranesProveedor_Server.pas">
<Form>RptAlbaranesProveedor</Form>
<DesignClass>TDataModule</DesignClass>
</DCCReference>
<DCCReference Include="..\Modulos\Albaranes de proveedor\Reports\uRptWordAlbaranProveedor.pas">
<Form>RptWordAlbaranProveedor</Form>
<DesignClass>TDataModule</DesignClass>
</DCCReference>
<DCCReference Include="..\Modulos\Albaranes de proveedor\Servidor\srvAlbaranesProveedor_Impl.pas">
<Form>srvAlbaranesProveedor</Form>
<DesignClass>TDataAbstractService</DesignClass>
</DCCReference>
<DCCReference Include="..\Modulos\Almacenes\Model\schAlmacenesClient_Intf.pas"/>
<DCCReference Include="..\Modulos\Almacenes\Model\schAlmacenesServer_Intf.pas"/>
<DCCReference Include="..\Modulos\Almacenes\Servidor\srvAlmacenes_Impl.pas">
<Form>srvAlmacenes</Form>
<DesignClass>TDARemoteService</DesignClass>
</DCCReference>
<DCCReference Include="..\Modulos\Articulos\Model\schArticulosClient_Intf.pas"/>
<DCCReference Include="..\Modulos\Articulos\Model\schArticulosServer_Intf.pas"/>
<DCCReference Include="..\Modulos\Articulos\Model\uBizArticulosServer.pas"/>
<DCCReference Include="..\Modulos\Articulos\Servidor\srvArticulos_Impl.pas">
<Form>srvArticulos</Form>
<DesignClass>TDARemoteService</DesignClass>
</DCCReference>
<DCCReference Include="..\Modulos\Comisiones\Model\schComisionesClient_Intf.pas"/>
<DCCReference Include="..\Modulos\Comisiones\Model\schComisionesServer_Intf.pas"/>
<DCCReference Include="..\Modulos\Comisiones\Model\uBizComisionesServer.pas"/>
<DCCReference Include="..\Modulos\Comisiones\Reports\uRptComisiones_Server.pas">
<Form>RptComisiones</Form>
<DesignClass>TDataModule</DesignClass>
</DCCReference>
<DCCReference Include="..\Modulos\Comisiones\Servidor\srvComisiones_Impl.pas">
<Form>srvComisiones</Form>
<DesignClass>TDataAbstractService</DesignClass>
</DCCReference>
<DCCReference Include="..\Modulos\Contactos\Model\schContactosClient_Intf.pas"/>
<DCCReference Include="..\Modulos\Contactos\Model\schContactosServer_Intf.pas"/>
<DCCReference Include="..\Modulos\Contactos\Model\uBizAgentesServer.pas"/>
<DCCReference Include="..\Modulos\Contactos\Model\uBizClientesServer.pas"/>
<DCCReference Include="..\Modulos\Contactos\Model\uBizContactosServer.pas"/>
<DCCReference Include="..\Modulos\Contactos\Model\uBizEmpleadosServer.pas"/>
<DCCReference Include="..\Modulos\Contactos\Model\uBizProveedoresServer.pas"/>
<DCCReference Include="..\Modulos\Contactos\Reports\uRptEtiquetasContacto_Server.pas">
<Form>RptEtiquetasContacto</Form>
<DesignClass>TDataModule</DesignClass>
</DCCReference>
<DCCReference Include="..\Modulos\Contactos\Reports\uRptFichasEmpleado_Server.pas">
<Form>RptFichasEmpleado</Form>
<DesignClass>TDataModule</DesignClass>
</DCCReference>
<DCCReference Include="..\Modulos\Contactos\Servidor\srvContactos_Impl.pas">
<Form>srvContactos</Form>
<DesignClass>TDARemoteService</DesignClass>
</DCCReference>
<DCCReference Include="..\Modulos\Fabricantes\Model\schFabricantesClient_Intf.pas"/>
<DCCReference Include="..\Modulos\Fabricantes\Model\schFabricantesServer_Intf.pas"/>
<DCCReference Include="..\Modulos\Fabricantes\Servidor\srvFabricantes_Impl.pas">
<Form>srvFabricantes</Form>
<DesignClass>TDataAbstractService</DesignClass>
</DCCReference>
<DCCReference Include="..\Modulos\Facturas de cliente\Model\schFacturasClienteClient_Intf.pas"/>
<DCCReference Include="..\Modulos\Facturas de cliente\Model\schFacturasClienteServer_Intf.pas"/>
<DCCReference Include="..\Modulos\Facturas de cliente\Model\uBizFacturasClienteServer.pas"/>
<DCCReference Include="..\Modulos\Facturas de cliente\Reports\uRptFacturasCliente_Server.pas">
<Form>RptFacturasCliente</Form>
<DesignClass>TDataModule</DesignClass>
</DCCReference>
<DCCReference Include="..\Modulos\Facturas de cliente\Reports\uRptWordFacturaCliente.pas">
<Form>RptWordFacturaCliente</Form>
<DesignClass>TDataModule</DesignClass>
</DCCReference>
<DCCReference Include="..\Modulos\Facturas de cliente\Servidor\srvFacturasCliente_Impl.pas">
<Form>srvFacturasCliente</Form>
<DesignClass>TDataAbstractService</DesignClass>
</DCCReference>
<DCCReference Include="..\Modulos\Facturas de proveedor\Model\schFacturasProveedorClient_Intf.pas"/>
<DCCReference Include="..\Modulos\Facturas de proveedor\Model\schFacturasProveedorServer_Intf.pas"/>
<DCCReference Include="..\Modulos\Facturas de proveedor\Model\uBizFacturasProveedorServer.pas"/>
<DCCReference Include="..\Modulos\Facturas de proveedor\Reports\uRptFacturasProveedor_Server.pas">
<Form>RptFacturasProveedor</Form>
<DesignClass>TDataModule</DesignClass>
</DCCReference>
<DCCReference Include="..\Modulos\Facturas de proveedor\Servidor\srvFacturasProveedor_Impl.pas">
<Form>srvFacturasProveedor</Form>
<DesignClass>TDataAbstractService</DesignClass>
</DCCReference>
<DCCReference Include="..\Modulos\Familias\Model\schFamiliasClient_Intf.pas"/>
<DCCReference Include="..\Modulos\Familias\Model\schFamiliasServer_Intf.pas"/>
<DCCReference Include="..\Modulos\Familias\Servidor\srvFamilias_Impl.pas">
<Form>srvFamilias</Form>
<DesignClass>TDataAbstractService</DesignClass>
</DCCReference>
<DCCReference Include="..\Modulos\Formas de pago\Model\schFormasPagoClient_Intf.pas"/>
<DCCReference Include="..\Modulos\Formas de pago\Model\schFormasPagoServer_Intf.pas"/>
<DCCReference Include="..\Modulos\Formas de pago\Servidor\srvFormasPago_Impl.pas">
<Form>srvFormasPago</Form>
<DesignClass>TDataAbstractService</DesignClass>
</DCCReference>
<DCCReference Include="..\Modulos\Gestion de documentos\Servidor\srvGestorDocumentos_Impl.pas">
<Form>srvGestorDocumentos</Form>
<DesignClass>TDataAbstractService</DesignClass>
</DCCReference>
<DCCReference Include="..\Modulos\Gestor de informes\Servidor\srvGestorInformes_Impl.pas">
<Form>srvGestorInformes</Form>
<DesignClass>TDataAbstractService</DesignClass>
</DCCReference>
<DCCReference Include="..\Modulos\Historico de movimientos\Model\schHistoricoMovimientosClient_Intf.pas"/>
<DCCReference Include="..\Modulos\Historico de movimientos\Model\schHistoricoMovimientosServer_Intf.pas"/>
<DCCReference Include="..\Modulos\Historico de movimientos\Servidor\srvHistoricoMovimientos_Impl.pas">
<Form>srvHistoricoMovimientos</Form>
<DesignClass>TDataAbstractService</DesignClass>
</DCCReference>
<DCCReference Include="..\Modulos\Impresiones\Model\schImpresionesClient_Intf.pas"/>
<DCCReference Include="..\Modulos\Impresiones\Model\schImpresionesServer_Intf.pas"/>
<DCCReference Include="..\Modulos\Impresiones\Servidor\srvImpresiones_Impl.pas">
<Form>srvImpresiones</Form>
<DesignClass>TDARemoteService</DesignClass>
</DCCReference>
<DCCReference Include="..\Modulos\Informe margen por articulo\Servidor\srvInfMargenArticulo_Impl.pas">
<Form>srvInfMargenArticulo</Form>
<DesignClass>TDARemoteService</DesignClass>
</DCCReference>
<DCCReference Include="..\Modulos\Informe ventas por articulo\Servidor\srvInfVentasArticulo_Impl.pas">
<Form>srvInfVentasArticulo</Form>
<DesignClass>TDataAbstractService</DesignClass>
</DCCReference>
<DCCReference Include="..\Modulos\Informes base\Model\schInformesClient_Intf.pas"/>
<DCCReference Include="..\Modulos\Informes base\Model\schInformesServer_Intf.pas"/>
<DCCReference Include="..\Modulos\Informes base\Servidor\srvInformes_Impl.pas">
<Form>srvInformes</Form>
<DesignClass>TDataAbstractService</DesignClass>
</DCCReference>
<DCCReference Include="..\Modulos\Inventario\Model\schInventarioClient_Intf.pas"/>
<DCCReference Include="..\Modulos\Inventario\Model\schInventarioServer_Intf.pas"/>
<DCCReference Include="..\Modulos\Inventario\Servidor\srvInventario_Impl.pas">
<Form>srvInventario</Form>
<DesignClass>TDataAbstractService</DesignClass>
</DCCReference>
<DCCReference Include="..\Modulos\Obras\Model\schObrasClient_Intf.pas"/>
<DCCReference Include="..\Modulos\Obras\Model\schObrasServer_Intf.pas"/>
<DCCReference Include="..\Modulos\Obras\Model\uBizObrasServer.pas"/>
<DCCReference Include="..\Modulos\Obras\Servidor\srvObras_Impl.pas">
<Form>srvObras</Form>
<DesignClass>TDataAbstractService</DesignClass>
</DCCReference>
<DCCReference Include="..\Modulos\Pedidos a proveedor\Model\schPedidosProveedorClient_Intf.pas"/>
<DCCReference Include="..\Modulos\Pedidos a proveedor\Model\schPedidosProveedorServer_Intf.pas"/>
<DCCReference Include="..\Modulos\Pedidos a proveedor\Model\uBizPedidosProveedorServer.pas"/>
<DCCReference Include="..\Modulos\Pedidos a proveedor\Reports\uRptPedidosProveedor_Server.pas">
<Form>RptPedidosProveedor</Form>
<DesignClass>TDataModule</DesignClass>
</DCCReference>
<DCCReference Include="..\Modulos\Pedidos a proveedor\Reports\uRptWordPedidoProveedor.pas">
<Form>RptWordPedidoProveedor</Form>
<DesignClass>TDataModule</DesignClass>
</DCCReference>
<DCCReference Include="..\Modulos\Pedidos a proveedor\Servidor\srvPedidosProveedor_Impl.pas">
<Form>srvPedidosProveedor</Form>
<DesignClass>TDataAbstractService</DesignClass>
</DCCReference>
<DCCReference Include="..\Modulos\Pedidos de cliente\Model\schPedidosClienteClient_Intf.pas"/>
<DCCReference Include="..\Modulos\Pedidos de cliente\Model\schPedidosClienteServer_Intf.pas"/>
<DCCReference Include="..\Modulos\Pedidos de cliente\Model\uBizPedidosClienteServer.pas"/>
<DCCReference Include="..\Modulos\Pedidos de cliente\Reports\uRptPedidosCliente_Server.pas">
<Form>RptPedidosCliente</Form>
<DesignClass>TDataModule</DesignClass>
</DCCReference>
<DCCReference Include="..\Modulos\Pedidos de cliente\Servidor\srvPedidosCliente_Impl.pas">
<Form>srvPedidosCliente</Form>
<DesignClass>TDataAbstractService</DesignClass>
</DCCReference>
<DCCReference Include="..\Modulos\Presupuestos de cliente\Model\schPresupuestosClienteClient_Intf.pas"/>
<DCCReference Include="..\Modulos\Presupuestos de cliente\Model\schPresupuestosClienteServer_Intf.pas"/>
<DCCReference Include="..\Modulos\Presupuestos de cliente\Model\uBizPresupuestosClienteServer.pas"/>
<DCCReference Include="..\Modulos\Presupuestos de cliente\Reports\uRptPresupuestosCliente_Server.pas">
<Form>RptPresupuestosCliente</Form>
<DesignClass>TDataModule</DesignClass>
</DCCReference>
<DCCReference Include="..\Modulos\Presupuestos de cliente\Reports\uRptWordCertificadoTrabajo_Server.pas">
<Form>RptWordCertificadoTrabajo</Form>
<DesignClass>TDataModule</DesignClass>
</DCCReference>
<DCCReference Include="..\Modulos\Presupuestos de cliente\Reports\uRptWordPresupuestoCliente.pas">
<Form>RptWordPresupuestoCliente</Form>
<DesignClass>TDataModule</DesignClass>
</DCCReference>
<DCCReference Include="..\Modulos\Presupuestos de cliente\Servidor\srvPresupuestosCliente_Impl.pas">
<Form>srvPresupuestosCliente</Form>
<DesignClass>TDataAbstractService</DesignClass>
</DCCReference>
<DCCReference Include="..\Modulos\Recibos de cliente\Model\schRecibosClienteClient_Intf.pas"/>
<DCCReference Include="..\Modulos\Recibos de cliente\Model\schRecibosClienteServer_Intf.pas"/>
<DCCReference Include="..\Modulos\Recibos de cliente\Reports\uRptRecibosCliente_Server.pas">
<Form>RptRecibosCliente</Form>
<DesignClass>TDataModule</DesignClass>
</DCCReference>
<DCCReference Include="..\Modulos\Recibos de cliente\Servidor\srvRecibosCliente_Impl.pas">
<Form>srvRecibosCliente</Form>
<DesignClass>TDataAbstractService</DesignClass>
</DCCReference>
<DCCReference Include="..\Modulos\Recibos de proveedor\Model\schRecibosProveedorClient_Intf.pas"/>
<DCCReference Include="..\Modulos\Recibos de proveedor\Model\schRecibosProveedorServer_Intf.pas"/>
<DCCReference Include="..\Modulos\Recibos de proveedor\Reports\uRptRecibosProveedor_Server.pas">
<Form>RptRecibosProveedor</Form>
<DesignClass>TDataModule</DesignClass>
</DCCReference>
<DCCReference Include="..\Modulos\Recibos de proveedor\Servidor\srvRecibosProveedor_Impl.pas">
<Form>srvRecibosProveedor</Form>
<DesignClass>TDataAbstractService</DesignClass>
</DCCReference>
<DCCReference Include="..\Modulos\Referencias\Model\schReferenciasClient_Intf.pas"/>
<DCCReference Include="..\Modulos\Referencias\Model\schReferenciasServer_Intf.pas"/>
<DCCReference Include="..\Modulos\Referencias\Servidor\srvReferencias_Impl.pas">
<Form>srvReferencias</Form>
<DesignClass>TDataAbstractService</DesignClass>
</DCCReference>
<DCCReference Include="..\Modulos\Registro de correos\Servidor\srvRegistroCorreos_Impl.pas">
<Form>srvRegistroCorreos</Form>
<DesignClass>TDataAbstractService</DesignClass>
</DCCReference>
<DCCReference Include="..\Modulos\Remesas de cliente\Model\schRemesasClienteClient_Intf.pas"/>
<DCCReference Include="..\Modulos\Remesas de cliente\Model\schRemesasClienteServer_Intf.pas"/>
<DCCReference Include="..\Modulos\Remesas de cliente\Model\uBizRemesasClienteServer.pas"/>
<DCCReference Include="..\Modulos\Remesas de cliente\Reports\uRptRemesasCliente_Server.pas">
<Form>RptRemesasCliente</Form>
<DesignClass>TDataModule</DesignClass>
</DCCReference>
<DCCReference Include="..\Modulos\Remesas de cliente\Servidor\srvRemesasCliente_Impl.pas">
<Form>srvRemesasCliente</Form>
<DesignClass>TDataAbstractService</DesignClass>
</DCCReference>
<DCCReference Include="..\Modulos\Remesas de proveedor\Model\schRemesasProveedorClient_Intf.pas"/>
<DCCReference Include="..\Modulos\Remesas de proveedor\Model\schRemesasProveedorServer_Intf.pas"/>
<DCCReference Include="..\Modulos\Remesas de proveedor\Model\uBizRemesasProveedorServer.pas"/>
<DCCReference Include="..\Modulos\Remesas de proveedor\Reports\uRptRemesasProveedor_Server.pas">
<Form>RptRemesasProveedor</Form>
<DesignClass>TDataModule</DesignClass>
</DCCReference>
<DCCReference Include="..\Modulos\Remesas de proveedor\Servidor\srvRemesasProveedor_Impl.pas">
<Form>srvRemesasProveedor</Form>
<DesignClass>TDataAbstractService</DesignClass>
</DCCReference>
<DCCReference Include="..\Modulos\Tienda web\Model\schTiendaWebClient_Intf.pas"/>
<DCCReference Include="..\Modulos\Tienda web\Model\schTiendaWebServer_Intf.pas"/>
<DCCReference Include="..\Modulos\Tienda web\Model\uBizOscAddressBookServer.pas"/>
<DCCReference Include="..\Modulos\Tienda web\Model\uBizOscCustomerServer.pas"/>
<DCCReference Include="..\Modulos\Tienda web\Model\uBizOscManufacturerServer.pas"/>
<DCCReference Include="..\Modulos\Tienda web\Model\uBizOscOrderServer.pas"/>
<DCCReference Include="..\Modulos\Tienda web\Model\uBizOscProductServer.pas"/>
<DCCReference Include="..\Modulos\Tienda web\Model\uBizTiendaWebServer.pas"/>
<DCCReference Include="..\Modulos\Tienda web\Servidor\srvTiendaWeb_Impl.pas">
<Form>srvTiendaWeb</Form>
<DesignClass>TDataAbstractService</DesignClass>
</DCCReference>
<DCCReference Include="..\Modulos\Tipos de IVA\Model\schTiposIVAClient_Intf.pas"/>
<DCCReference Include="..\Modulos\Tipos de IVA\Model\schTiposIVAServer_Intf.pas"/>
<DCCReference Include="..\Modulos\Tipos de IVA\Servidor\srvTiposIVA_Impl.pas">
<Form>srvTiposIVA</Form>
<DesignClass>TDataAbstractService</DesignClass>
</DCCReference>
<DCCReference Include="..\Modulos\Unidades de medida\Model\schUnidadesMedidaClient_Intf.pas"/>
<DCCReference Include="..\Modulos\Unidades de medida\Model\schUnidadesMedidaServer_Intf.pas"/>
<DCCReference Include="..\Modulos\Unidades de medida\Servidor\srvUnidadesMedida_Impl.pas">
<Form>srvUnidadesMedida</Form>
<DesignClass>TDataAbstractService</DesignClass>
</DCCReference>
<DCCReference Include="..\Servicios\FactuGES_Intf.pas"/>
<DCCReference Include="..\Servicios\FactuGES_Invk.pas"/>
<DCCReference Include="Configuracion\srvConfiguracion_Impl.pas">
<Form>srvConfiguracion</Form>
<DesignClass>TDataAbstractService</DesignClass>
</DCCReference>
<DCCReference Include="Configuracion\uConexionBD.pas">
<Form>frConexionBD</Form>
<DesignClass>TFrame</DesignClass>
</DCCReference>
<DCCReference Include="Configuracion\uConexionOSC.pas">
<Form>frConexionOSC</Form>
<DesignClass>TFrame</DesignClass>
</DCCReference>
<DCCReference Include="Configuracion\uConfGeneral.pas">
<Form>frConfGeneral</Form>
<DesignClass>TFrame</DesignClass>
</DCCReference>
<DCCReference Include="Configuracion\uConfiguracion.pas">
<Form>fConfiguracion</Form>
<DesignClass>TForm</DesignClass>
</DCCReference>
<DCCReference Include="Configuracion\uFrameConfiguracion.pas">
<Form>FrameConfiguracion</Form>
<DesignClass>TFrame</DesignClass>
</DCCReference>
<DCCReference Include="srvLogin_Impl.pas">
<Form>srvLogin</Form>
<DesignClass>TDARemoteService</DesignClass>
</DCCReference>
<DCCReference Include="uAcercaDe.pas">
<Form>fAcercaDe</Form>
</DCCReference>
<DCCReference Include="uDataModuleServer.pas">
<Form>dmServer</Form>
<DesignClass>TDataModule</DesignClass>
</DCCReference>
<DCCReference Include="uServerMainForm.pas">
<Form>fServerForm</Form>
</DCCReference>
<DCCReference Include="Utiles\AHWord97.pas"/>
<DCCReference Include="Utiles\MidasSpeedFix.pas"/>
<DCCReference Include="Utiles\uBusinessUtils.pas"/>
<DCCReference Include="Utiles\uDatabaseUtils.pas"/>
<DCCReference Include="Utiles\uReferenciasUtils.pas"/>
<DCCReference Include="Utiles\uRestriccionesUsuarioUtils.pas"/>
<DCCReference Include="Utiles\uSchemaUtilsServer.pas"/>
<DCCReference Include="Utiles\uServerAppUtils.pas"/>
<DCCReference Include="Utiles\uSesionesUtils.pas"/>
<DCCReference Include="Utiles\uTiendaWebUtils.pas"/>
</ItemGroup>
</Project>
<!-- EurekaLog First Line
[Exception Log]

10
Source/Servidor/FactuGES_Server.rc
View File

@ -1,7 +1,7 @@
MAINICON ICON "C:\Codigo\Resources\Iconos\Servidor.ico"
1 VERSIONINFO
FILEVERSION 4,1,6,0
PRODUCTVERSION 4,1,6,0
FILEVERSION 4,1,7,0
PRODUCTVERSION 4,1,7,0
FILEFLAGSMASK 0x3FL
FILEFLAGS 0x00L
FILEOS 0x40004L
@ -12,9 +12,9 @@ BEGIN
BEGIN
BLOCK "0C0A04E4"
BEGIN
VALUE "FileVersion", "4.1.6.0\0"
VALUE "ProductVersion", "4.1.6.0\0"
VALUE "CompileDate", "lunes, 11 de abril de 2011 17:09\0"
VALUE "FileVersion", "4.1.7.0\0"
VALUE "ProductVersion", "4.1.7.0\0"
VALUE "CompileDate", "martes, 23 de agosto de 2011 18:22\0"
END
END
BLOCK "VarFileInfo"