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

Se adaptan los albaranes de cliente para poder cambiar articulo enviado aunque no se cambie el articulo que el cliente pidio en su dia

Browse Source 
git-svn-id: https://192.168.0.254/svn/Proyectos.Noviseda_FactuGES2/trunk@106 f33bb606-9f5c-448d-9c99-757f00063c96
This commit is contained in:
roberto 2010-03-19 13:03:33 +00:00
parent 7eb37bb9ca
commit 42fc97b1a9
63 changed files with 3227 additions and 997 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.

2
Build/Build.fbpInf
View File

@ -6,7 +6,7 @@
<propertysets/> <propertysets/>
<variables> <variables>
<project_path> <project_path>
<![CDATA[C:\Codigo Noviseda]]> <![CDATA[C:\Codigo noviseda]]>
</project_path> </project_path>
</variables> </variables>
<properties> <properties>

155
Database/scripts/factuges.sql
View File

@ -316,7 +316,8 @@ CREATE TABLE ALBARANES_CLIENTE_DETALLES (
VISIBLE TIPO_BOOLEANO, VISIBLE TIPO_BOOLEANO,
FECHA_ALTA TIMESTAMP, FECHA_ALTA TIMESTAMP,
FECHA_MODIFICACION TIMESTAMP, FECHA_MODIFICACION TIMESTAMP,
ID_PEDIDO TIPO_ID ID_PEDIDO TIPO_ID,
ID_ARTICULO_REEMPLAZADO TIPO_ID
); );
CREATE TABLE ALBARANES_CLIENTE_DETALLE_COLOR ( CREATE TABLE ALBARANES_CLIENTE_DETALLE_COLOR (
@ -1278,8 +1279,6 @@ SELECT ALBARANES_CLIENTE.ID,
FROM ALBARANES_CLIENTE FROM ALBARANES_CLIENTE
; ;
/* View: V_ALB_CLI_DETALLES */ /* View: V_ALB_CLI_DETALLES */
CREATE VIEW V_ALB_CLI_DETALLES( CREATE VIEW V_ALB_CLI_DETALLES(
ID_ALBARAN, ID_ALBARAN,
@ -1293,7 +1292,9 @@ SELECT ALBARANES_CLIENTE_DETALLES.ID_ALBARAN,
ALBARANES_CLIENTE_DETALLES.ID_PEDIDO, ALBARANES_CLIENTE_DETALLES.ID_PEDIDO,
V_ALB_CLI_SITUACION.SITUACION, V_ALB_CLI_SITUACION.SITUACION,
ALBARANES_CLIENTE.ID_ALMACEN, ALBARANES_CLIENTE.ID_ALMACEN,
COALESCE(ALBARANES_CLIENTE_DETALLES.ID_ARTICULO, 0), CASE WHEN ALBARANES_CLIENTE_DETALLES.ID_ARTICULO_REEMPLAZADO IS NULL then COALESCE(ALBARANES_CLIENTE_DETALLES.ID_ARTICULO, 0)
ELSE ALBARANES_CLIENTE_DETALLES.ID_ARTICULO_REEMPLAZADO
END AS ID_ARTICULO,
SUM(COALESCE(ALBARANES_CLIENTE_DETALLES.CANTIDAD, 0)) SUM(COALESCE(ALBARANES_CLIENTE_DETALLES.CANTIDAD, 0))
FROM ALBARANES_CLIENTE_DETALLES FROM ALBARANES_CLIENTE_DETALLES
@ -1314,7 +1315,7 @@ group BY ALBARANES_CLIENTE_DETALLES.ID_ALBARAN,
ALBARANES_CLIENTE_DETALLES.ID_PEDIDO, ALBARANES_CLIENTE_DETALLES.ID_PEDIDO,
V_ALB_CLI_SITUACION.SITUACION, V_ALB_CLI_SITUACION.SITUACION,
ALBARANES_CLIENTE.ID_ALMACEN, ALBARANES_CLIENTE.ID_ALMACEN,
ALBARANES_CLIENTE_DETALLES.ID_ARTICULO ID_ARTICULO
; ;
@ -3663,7 +3664,7 @@ UNION ALL
SELECT SELECT
V_PED_CLI_ART_SITUACION_CANT.ID_PEDIDO, V_PED_CLI_ART_SITUACION_CANT.ID_PEDIDO,
V_PED_CLI_ART_SITUACION_CANT.ID_ARTICULO, V_PED_CLI_ART_SITUACION_CANT.ID_ARTICULO,
NULL AS CANTIDAD_PEDIDA, 0 AS CANTIDAD_PEDIDA,
V_PED_CLI_ART_SITUACION_CANT.CANTIDAD_RESERVADA AS CANTIDAD_RESERVADA, V_PED_CLI_ART_SITUACION_CANT.CANTIDAD_RESERVADA AS CANTIDAD_RESERVADA,
V_PED_CLI_ART_SITUACION_CANT.CANTIDAD_ENVIADA AS CANTIDAD_ENVIADA, V_PED_CLI_ART_SITUACION_CANT.CANTIDAD_ENVIADA AS CANTIDAD_ENVIADA,
V_PED_CLI_ART_SITUACION_CANT.CANTIDAD_SERVIDA AS CANTIDAD_SERVIDA V_PED_CLI_ART_SITUACION_CANT.CANTIDAD_SERVIDA AS CANTIDAD_SERVIDA
@ -3896,7 +3897,149 @@ FROM
LEFT OUTER JOIN FORMAS_PAGO ON (FORMAS_PAGO.ID = PEDIDOS_CLIENTE.ID_FORMA_PAGO) LEFT OUTER JOIN FORMAS_PAGO ON (FORMAS_PAGO.ID = PEDIDOS_CLIENTE.ID_FORMA_PAGO)
; ;
/**************************************************/
/***VISTAS PARA EL CONTROL DE COLORES PENDIENTES***/
/**************************************************/
CREATE VIEW V_ALB_CLI_DETALLE_COLORES(
/* ID_ALBARAN, */
ID_PEDIDO,
/* SITUACION,
ID_ALMACEN,
*/
ID_ARTICULO,
COLOR1,
COLOR2,
COLOR3,
COLOR4,
COLOR5,
COLOR6,
COLOR7,
COLOR8,
COLOR9,
COLOR10,
COLOR11,
COLOR12)
AS
SELECT
/*ALBARANES_CLIENTE_DETALLES.ID_ALBARAN, */
ALBARANES_CLIENTE_DETALLES.ID_PEDIDO,
/* V_ALB_CLI_SITUACION.SITUACION,
ALBARANES_CLIENTE.ID_ALMACEN,
*/
COALESCE(ALBARANES_CLIENTE_DETALLES.ID_ARTICULO, 0) as ID_ARTICULO,
SUM(COALESCE(ALBARANES_CLIENTE_DETALLE_COLOR.COLOR1, 0)) AS COLOR1,
SUM(COALESCE(ALBARANES_CLIENTE_DETALLE_COLOR.COLOR2, 0)) AS COLOR2,
SUM(COALESCE(ALBARANES_CLIENTE_DETALLE_COLOR.COLOR3, 0)) AS COLOR3,
SUM(COALESCE(ALBARANES_CLIENTE_DETALLE_COLOR.COLOR4, 0)) AS COLOR4,
SUM(COALESCE(ALBARANES_CLIENTE_DETALLE_COLOR.COLOR5, 0)) AS COLOR5,
SUM(COALESCE(ALBARANES_CLIENTE_DETALLE_COLOR.COLOR6, 0)) AS COLOR6,
SUM(COALESCE(ALBARANES_CLIENTE_DETALLE_COLOR.COLOR7, 0)) AS COLOR7,
SUM(COALESCE(ALBARANES_CLIENTE_DETALLE_COLOR.COLOR8, 0)) AS COLOR8,
SUM(COALESCE(ALBARANES_CLIENTE_DETALLE_COLOR.COLOR9, 0)) AS COLOR9,
SUM(COALESCE(ALBARANES_CLIENTE_DETALLE_COLOR.COLOR10, 0)) AS COLOR10,
SUM(COALESCE(ALBARANES_CLIENTE_DETALLE_COLOR.COLOR11, 0)) AS COLOR11,
SUM(COALESCE(ALBARANES_CLIENTE_DETALLE_COLOR.COLOR12, 0)) AS COLOR12
FROM ALBARANES_CLIENTE_DETALLES
INNER JOIN ALBARANES_CLIENTE
ON (ALBARANES_CLIENTE_DETALLES.ID_ALBARAN = ALBARANES_CLIENTE.ID)
INNER JOIN V_ALB_CLI_SITUACION
ON (ALBARANES_CLIENTE_DETALLES.ID_ALBARAN = V_ALB_CLI_SITUACION.ID)
LEFT JOIN ALBARANES_CLIENTE_DETALLE_COLOR
ON (ALBARANES_CLIENTE_DETALLE_COLOR.ID_DETALLE = ALBARANES_CLIENTE_DETALLES.ID)
group BY
/*ALBARANES_CLIENTE_DETALLES.ID_ALBARAN,*/
ALBARANES_CLIENTE_DETALLES.ID_PEDIDO,
/* V_ALB_CLI_SITUACION.SITUACION,
ALBARANES_CLIENTE.ID_ALMACEN,
*/
ALBARANES_CLIENTE_DETALLES.ID_ARTICULO
;
CREATE VIEW V_PED_CLI_DETALLE_COLORES(
ID_PEDIDO,
ID_ARTICULO,
COLOR1,
COLOR2,
COLOR3,
COLOR4,
COLOR5,
COLOR6,
COLOR7,
COLOR8,
COLOR9,
COLOR10,
COLOR11,
COLOR12)
AS
SELECT PEDIDOS_CLIENTE_DETALLES.ID_PEDIDO,
COALESCE(PEDIDOS_CLIENTE_DETALLES.ID_ARTICULO, 0) as ID_ARTICULO,
SUM(COALESCE(PEDIDOS_CLIENTE_DETALLE_COLOR.COLOR1, 0)) AS COLOR1,
SUM(COALESCE(PEDIDOS_CLIENTE_DETALLE_COLOR.COLOR2, 0)) AS COLOR2,
SUM(COALESCE(PEDIDOS_CLIENTE_DETALLE_COLOR.COLOR3, 0)) AS COLOR3,
SUM(COALESCE(PEDIDOS_CLIENTE_DETALLE_COLOR.COLOR4, 0)) AS COLOR4,
SUM(COALESCE(PEDIDOS_CLIENTE_DETALLE_COLOR.COLOR5, 0)) AS COLOR5,
SUM(COALESCE(PEDIDOS_CLIENTE_DETALLE_COLOR.COLOR6, 0)) AS COLOR6,
SUM(COALESCE(PEDIDOS_CLIENTE_DETALLE_COLOR.COLOR7, 0)) AS COLOR7,
SUM(COALESCE(PEDIDOS_CLIENTE_DETALLE_COLOR.COLOR8, 0)) AS COLOR8,
SUM(COALESCE(PEDIDOS_CLIENTE_DETALLE_COLOR.COLOR9, 0)) AS COLOR9,
SUM(COALESCE(PEDIDOS_CLIENTE_DETALLE_COLOR.COLOR10, 0)) AS COLOR10,
SUM(COALESCE(PEDIDOS_CLIENTE_DETALLE_COLOR.COLOR11, 0)) AS COLOR11,
SUM(COALESCE(PEDIDOS_CLIENTE_DETALLE_COLOR.COLOR12, 0)) AS COLOR12
FROM PEDIDOS_CLIENTE_DETALLES
LEFT JOIN PEDIDOS_CLIENTE_DETALLE_COLOR
ON (PEDIDOS_CLIENTE_DETALLE_COLOR.ID_DETALLE = PEDIDOS_CLIENTE_DETALLES.ID)
GROUP BY PEDIDOS_CLIENTE_DETALLES.ID_PEDIDO,
PEDIDOS_CLIENTE_DETALLES.ID_ARTICULO
;
CREATE VIEW V_PED_CLI_ART_COLORES_PEND(
ID_PEDIDO,
ID_ARTICULO,
COLOR1,
COLOR2,
COLOR3,
COLOR4,
COLOR5,
COLOR6,
COLOR7,
COLOR8,
COLOR9,
COLOR10,
COLOR11,
COLOR12)
AS
select v_ped_cli_detalle_colores.ID_PEDIDO, v_ped_cli_detalle_colores.ID_ARTICULO,
v_ped_cli_detalle_colores.COLOR1 - coalesce(v_alb_cli_detalle_colores.COLOR1, 0),
v_ped_cli_detalle_colores.COLOR2 - coalesce(v_alb_cli_detalle_colores.COLOR2, 0),
v_ped_cli_detalle_colores.COLOR3 - coalesce(v_alb_cli_detalle_colores.COLOR3, 0),
v_ped_cli_detalle_colores.COLOR4 - coalesce(v_alb_cli_detalle_colores.COLOR4, 0),
v_ped_cli_detalle_colores.COLOR5 - coalesce(v_alb_cli_detalle_colores.COLOR5, 0),
v_ped_cli_detalle_colores.COLOR6 - coalesce(v_alb_cli_detalle_colores.COLOR6, 0),
v_ped_cli_detalle_colores.COLOR7 - coalesce(v_alb_cli_detalle_colores.COLOR7, 0),
v_ped_cli_detalle_colores.COLOR8 - coalesce(v_alb_cli_detalle_colores.COLOR8, 0),
v_ped_cli_detalle_colores.COLOR9 - coalesce(v_alb_cli_detalle_colores.COLOR9, 0),
v_ped_cli_detalle_colores.COLOR10 - coalesce(v_alb_cli_detalle_colores.COLOR10, 0),
v_ped_cli_detalle_colores.COLOR11 - coalesce(v_alb_cli_detalle_colores.COLOR11, 0),
v_ped_cli_detalle_colores.COLOR12 - coalesce(v_alb_cli_detalle_colores.COLOR12, 0)
from v_ped_cli_detalle_colores
left join v_alb_cli_detalle_colores
on ((v_alb_cli_detalle_colores .ID_PEDIDO = v_ped_cli_detalle_colores.id_pedido)
and (v_alb_cli_detalle_colores .id_articulo = v_ped_cli_detalle_colores.id_articulo))
;
/******************************************************************************/ /******************************************************************************/

104
Source/Base/Base.dproj
View File

@ -45,8 +45,6 @@
<Borland.ProjectType>Package</Borland.ProjectType> <Borland.ProjectType>Package</Borland.ProjectType>
<BorlandProject> <BorlandProject>
<BorlandProject><Delphi.Personality><Parameters><Parameters Name="UseLauncher">False</Parameters><Parameters Name="LoadAllSymbols">True</Parameters><Parameters Name="LoadUnspecifiedSymbols">False</Parameters></Parameters><Package_Options><Package_Options Name="PackageDescription">Libreria base de FactuGES</Package_Options><Package_Options Name="ImplicitBuild">False</Package_Options><Package_Options Name="DesigntimeOnly">False</Package_Options><Package_Options Name="RuntimeOnly">False</Package_Options></Package_Options><VersionInfo><VersionInfo Name="IncludeVerInfo">True</VersionInfo><VersionInfo Name="AutoIncBuild">False</VersionInfo><VersionInfo Name="MajorVer">1</VersionInfo><VersionInfo Name="MinorVer">0</VersionInfo><VersionInfo Name="Release">0</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">1.0.0.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">1.0.0.0</VersionInfoKeys></VersionInfoKeys><Excluded_Packages> <BorlandProject><Delphi.Personality><Parameters><Parameters Name="UseLauncher">False</Parameters><Parameters Name="LoadAllSymbols">True</Parameters><Parameters Name="LoadUnspecifiedSymbols">False</Parameters></Parameters><Package_Options><Package_Options Name="PackageDescription">Libreria base de FactuGES</Package_Options><Package_Options Name="ImplicitBuild">False</Package_Options><Package_Options Name="DesigntimeOnly">False</Package_Options><Package_Options Name="RuntimeOnly">False</Package_Options></Package_Options><VersionInfo><VersionInfo Name="IncludeVerInfo">True</VersionInfo><VersionInfo Name="AutoIncBuild">False</VersionInfo><VersionInfo Name="MajorVer">1</VersionInfo><VersionInfo Name="MinorVer">0</VersionInfo><VersionInfo Name="Release">0</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">1.0.0.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">1.0.0.0</VersionInfoKeys></VersionInfoKeys><Excluded_Packages>
<Excluded_Packages Name="C:\Documents and Settings\All Users\Documentos\RAD Studio\5.0\Bpl\RemObjects_Indy_D11.bpl">RemObjects SDK - Indy Library</Excluded_Packages> <Excluded_Packages Name="C:\Documents and Settings\All Users\Documentos\RAD Studio\5.0\Bpl\RemObjects_Indy_D11.bpl">RemObjects SDK - Indy Library</Excluded_Packages>
</Excluded_Packages><Source><Source Name="MainSource">Base.dpk</Source></Source></Delphi.Personality></BorlandProject></BorlandProject> </Excluded_Packages><Source><Source Name="MainSource">Base.dpk</Source></Source></Delphi.Personality></BorlandProject></BorlandProject>
</ProjectExtensions> </ProjectExtensions>
@ -55,58 +53,58 @@
<DelphiCompile Include="Base.dpk"> <DelphiCompile Include="Base.dpk">
<MainSource>MainSource</MainSource> <MainSource>MainSource</MainSource>
</DelphiCompile> </DelphiCompile>
<DCCReference Include="..\Modulos\Albaranes de cliente\Controller\adortl.dcp" />
<DCCReference Include="..\Modulos\Albaranes de cliente\Controller\cxDataD11.dcp" />
<DCCReference Include="..\Modulos\Albaranes de cliente\Controller\cxEditorsD11.dcp" />
<DCCReference Include="..\Modulos\Albaranes de cliente\Controller\cxExportD11.dcp" />
<DCCReference Include="..\Modulos\Albaranes de cliente\Controller\cxExtEditorsD11.dcp" />
<DCCReference Include="..\Modulos\Albaranes de cliente\Controller\cxGridD11.dcp" />
<DCCReference Include="..\Modulos\Albaranes de cliente\Controller\cxLibraryD11.dcp" />
<DCCReference Include="..\Modulos\Albaranes de cliente\Controller\cxPageControlD11.dcp" />
<DCCReference Include="..\Modulos\Albaranes de cliente\Controller\DataAbstract_Core_D11.dcp" />
<DCCReference Include="..\Modulos\Albaranes de cliente\Controller\dbrtl.dcp" />
<DCCReference Include="..\Modulos\Albaranes de cliente\Controller\dclIndyCore.dcp" />
<DCCReference Include="..\Modulos\Albaranes de cliente\Controller\designide.dcp" />
<DCCReference Include="..\Modulos\Albaranes de cliente\Controller\dsnap.dcp" />
<DCCReference Include="..\Modulos\Albaranes de cliente\Controller\dxCoreD11.dcp" />
<DCCReference Include="..\Modulos\Albaranes de cliente\Controller\dxGDIPlusD11.dcp" />
<DCCReference Include="..\Modulos\Albaranes de cliente\Controller\dxLayoutControlD11.dcp" />
<DCCReference Include="..\Modulos\Albaranes de cliente\Controller\dxPSCoreD11.dcp" />
<DCCReference Include="..\Modulos\Albaranes de cliente\Controller\dxThemeD11.dcp" />
<DCCReference Include="..\Modulos\Albaranes de cliente\Controller\GUISDK_D11R.dcp" />
<DCCReference Include="..\Modulos\Albaranes de cliente\Controller\IndyCore.dcp" />
<DCCReference Include="..\Modulos\Albaranes de cliente\Controller\IndyProtocols.dcp" />
<DCCReference Include="..\Modulos\Albaranes de cliente\Controller\IndySystem.dcp" />
<DCCReference Include="..\Modulos\Albaranes de cliente\Controller\Jcl.dcp" />
<DCCReference Include="..\Modulos\Albaranes de cliente\Controller\JclVcl.dcp" />
<DCCReference Include="..\Modulos\Albaranes de cliente\Controller\JSDialog100.dcp" />
<DCCReference Include="..\Modulos\Albaranes de cliente\Controller\JvCmpD11R.dcp" />
<DCCReference Include="..\Modulos\Albaranes de cliente\Controller\JvCoreD11R.dcp" />
<DCCReference Include="..\Modulos\Albaranes de cliente\Controller\JvCtrlsD11R.dcp" />
<DCCReference Include="..\Modulos\Albaranes de cliente\Controller\JvDlgsD11R.dcp" />
<DCCReference Include="..\Modulos\Albaranes de cliente\Controller\JvMMD11R.dcp" />
<DCCReference Include="..\Modulos\Albaranes de cliente\Controller\JvNetD11R.dcp" />
<DCCReference Include="..\Modulos\Albaranes de cliente\Controller\JvPageCompsD11R.dcp" />
<DCCReference Include="..\Modulos\Albaranes de cliente\Controller\JvStdCtrlsD11R.dcp" />
<DCCReference Include="..\Modulos\Albaranes de cliente\Controller\JvSystemD11R.dcp" />
<DCCReference Include="..\Modulos\Albaranes de cliente\Controller\pckMD5.dcp" />
<DCCReference Include="..\Modulos\Albaranes de cliente\Controller\pckUCDataConnector.dcp" />
<DCCReference Include="..\Modulos\Albaranes de cliente\Controller\pckUserControl_RT.dcp" />
<DCCReference Include="..\Modulos\Albaranes de cliente\Controller\PngComponentsD10.dcp" />
<DCCReference Include="..\Modulos\Albaranes de cliente\Controller\PNG_D10.dcp" />
<DCCReference Include="..\Modulos\Albaranes de cliente\Controller\RemObjects_Core_D11.dcp" />
<DCCReference Include="..\Modulos\Albaranes de cliente\Controller\RemObjects_Indy_D11.dcp" />
<DCCReference Include="..\Modulos\Albaranes de cliente\Controller\rtl.dcp" />
<DCCReference Include="..\Modulos\Albaranes de cliente\Controller\SpTBXLib_d11.dcp" />
<DCCReference Include="..\Modulos\Albaranes de cliente\Controller\tb2k_d11.dcp" />
<DCCReference Include="..\Modulos\Albaranes de cliente\Controller\vcl.dcp" />
<DCCReference Include="..\Modulos\Albaranes de cliente\Controller\vclactnband.dcp" />
<DCCReference Include="..\Modulos\Albaranes de cliente\Controller\vcldb.dcp" />
<DCCReference Include="..\Modulos\Albaranes de cliente\Controller\vcljpg.dcp" />
<DCCReference Include="..\Modulos\Albaranes de cliente\Controller\VclSmp.dcp" />
<DCCReference Include="..\Modulos\Albaranes de cliente\Controller\vclx.dcp" />
<DCCReference Include="..\Modulos\Albaranes de cliente\Controller\xmlrtl.dcp" />
<DCCReference Include="..\Servicios\FactuGES_Intf.pas" /> <DCCReference Include="..\Servicios\FactuGES_Intf.pas" />
<DCCReference Include="..\Servidor\adortl.dcp" />
<DCCReference Include="..\Servidor\cxDataD11.dcp" />
<DCCReference Include="..\Servidor\cxEditorsD11.dcp" />
<DCCReference Include="..\Servidor\cxExportD11.dcp" />
<DCCReference Include="..\Servidor\cxExtEditorsD11.dcp" />
<DCCReference Include="..\Servidor\cxGridD11.dcp" />
<DCCReference Include="..\Servidor\cxLibraryD11.dcp" />
<DCCReference Include="..\Servidor\cxPageControlD11.dcp" />
<DCCReference Include="..\Servidor\DataAbstract_Core_D11.dcp" />
<DCCReference Include="..\Servidor\dbrtl.dcp" />
<DCCReference Include="..\Servidor\dclIndyCore.dcp" />
<DCCReference Include="..\Servidor\designide.dcp" />
<DCCReference Include="..\Servidor\dsnap.dcp" />
<DCCReference Include="..\Servidor\dxCoreD11.dcp" />
<DCCReference Include="..\Servidor\dxGDIPlusD11.dcp" />
<DCCReference Include="..\Servidor\dxLayoutControlD11.dcp" />
<DCCReference Include="..\Servidor\dxPSCoreD11.dcp" />
<DCCReference Include="..\Servidor\dxThemeD11.dcp" />
<DCCReference Include="..\Servidor\GUISDK_D11R.dcp" />
<DCCReference Include="..\Servidor\IndyCore.dcp" />
<DCCReference Include="..\Servidor\IndyProtocols.dcp" />
<DCCReference Include="..\Servidor\IndySystem.dcp" />
<DCCReference Include="..\Servidor\Jcl.dcp" />
<DCCReference Include="..\Servidor\JclVcl.dcp" />
<DCCReference Include="..\Servidor\JSDialog100.dcp" />
<DCCReference Include="..\Servidor\JvCmpD11R.dcp" />
<DCCReference Include="..\Servidor\JvCoreD11R.dcp" />
<DCCReference Include="..\Servidor\JvCtrlsD11R.dcp" />
<DCCReference Include="..\Servidor\JvDlgsD11R.dcp" />
<DCCReference Include="..\Servidor\JvMMD11R.dcp" />
<DCCReference Include="..\Servidor\JvNetD11R.dcp" />
<DCCReference Include="..\Servidor\JvPageCompsD11R.dcp" />
<DCCReference Include="..\Servidor\JvStdCtrlsD11R.dcp" />
<DCCReference Include="..\Servidor\JvSystemD11R.dcp" />
<DCCReference Include="..\Servidor\pckMD5.dcp" />
<DCCReference Include="..\Servidor\pckUCDataConnector.dcp" />
<DCCReference Include="..\Servidor\pckUserControl_RT.dcp" />
<DCCReference Include="..\Servidor\PngComponentsD10.dcp" />
<DCCReference Include="..\Servidor\PNG_D10.dcp" />
<DCCReference Include="..\Servidor\RemObjects_Core_D11.dcp" />
<DCCReference Include="..\Servidor\RemObjects_Indy_D11.dcp" />
<DCCReference Include="..\Servidor\rtl.dcp" />
<DCCReference Include="..\Servidor\SpTBXLib_d11.dcp" />
<DCCReference Include="..\Servidor\tb2k_d11.dcp" />
<DCCReference Include="..\Servidor\vcl.dcp" />
<DCCReference Include="..\Servidor\vclactnband.dcp" />
<DCCReference Include="..\Servidor\vcldb.dcp" />
<DCCReference Include="..\Servidor\vcljpg.dcp" />
<DCCReference Include="..\Servidor\VclSmp.dcp" />
<DCCReference Include="..\Servidor\vclx.dcp" />
<DCCReference Include="..\Servidor\xmlrtl.dcp" />
<DCCReference Include="Conexion\uConfigurarConexion.pas"> <DCCReference Include="Conexion\uConfigurarConexion.pas">
<Form>fConfigurarConexion</Form> <Form>fConfigurarConexion</Form>
<DesignClass>TForm</DesignClass> <DesignClass>TForm</DesignClass>

BIN
Source/Base/Base.res
View File

Binary file not shown.

1
Source/Base/Utiles/uCalculosUtils.pas
View File

@ -16,6 +16,7 @@ const
CAMPO_IMPORTE_TOTAL = 'IMPORTE_TOTAL'; CAMPO_IMPORTE_TOTAL = 'IMPORTE_TOTAL';
CAMPO_DESCUENTO = 'DESCUENTO'; CAMPO_DESCUENTO = 'DESCUENTO';
CAMPO_IMPORTE_PORTE = 'IMPORTE_PORTE'; CAMPO_IMPORTE_PORTE = 'IMPORTE_PORTE';
CAMPO_ID_ARTICULOS_REEMPLAZADO = 'ID_ARTICULO_REEMPLAZADO';
function CalcularLineaConcepto (const ADataTable : TDADataTable): Double; function CalcularLineaConcepto (const ADataTable : TDADataTable): Double;
procedure ValidarCamposLineaConcepto(DataTable: TDADataTable); procedure ValidarCamposLineaConcepto(DataTable: TDADataTable);

3
Source/Cliente/FactuGES.dpr
View File

@ -2,7 +2,8 @@ program FactuGES;
uses uses
// ExceptionLog, // ExceptionLog,
ExceptionLog, // ExceptionLog,
// ExceptionLog,
Forms, Forms,
Windows, Windows,
SysUtils, SysUtils,

2
Source/Cliente/FactuGES.rc
View File

@ -1,4 +1,4 @@
MAINICON ICON "C:\Codigo Noviseda\Resources\Iconos\Factuges.ico" MAINICON ICON "C:\Codigo noviseda\Resources\Iconos\Factuges.ico"
1 VERSIONINFO 1 VERSIONINFO
FILEVERSION 1,0,2,0 FILEVERSION 1,0,2,0
PRODUCTVERSION 1,0,2,0 PRODUCTVERSION 1,0,2,0

BIN
Source/Cliente/FactuGES.res
View File

Binary file not shown.

2
Source/Cliente/uBootStrap.pas
View File

@ -50,7 +50,7 @@ begin
LoadModule('RemesasCliente_plugin.bpl'); LoadModule('RemesasCliente_plugin.bpl');
// LoadModule('RemesasProveedor_plugin.bpl'); // LoadModule('RemesasProveedor_plugin.bpl');
// LoadModule('Inventario_plugin.bpl'); LoadModule('Inventario_plugin.bpl');
// LoadModule('HistoricoMovimientos_plugin.bpl'); // LoadModule('HistoricoMovimientos_plugin.bpl');
// LoadModule('GestorInformes_plugin.bpl'); // LoadModule('GestorInformes_plugin.bpl');

52
Source/GUIBase/GUIBase.dproj
View File

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

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

@ -14,6 +14,7 @@
<Projects Include="..\Articulos\Views\Articulos_view.dproj" /> <Projects Include="..\Articulos\Views\Articulos_view.dproj" />
<Projects Include="..\Contactos\Controller\Contactos_controller.dproj" /> <Projects Include="..\Contactos\Controller\Contactos_controller.dproj" />
<Projects Include="..\Contactos\Views\Contactos_view.dproj" /> <Projects Include="..\Contactos\Views\Contactos_view.dproj" />
<Projects Include="..\Facturas de cliente\Controller\FacturasCliente_controller.dproj" />
<Projects Include="..\Facturas de cliente\Data\FacturasCliente_data.dproj" /> <Projects Include="..\Facturas de cliente\Data\FacturasCliente_data.dproj" />
<Projects Include="..\Facturas de cliente\Views\FacturasCliente_view.dproj" /> <Projects Include="..\Facturas de cliente\Views\FacturasCliente_view.dproj" />
<Projects Include="..\Facturas de proveedor\Views\FacturasProveedor_view.dproj" /> <Projects Include="..\Facturas de proveedor\Views\FacturasProveedor_view.dproj" />
@ -271,14 +272,23 @@
<Target Name="FacturasCliente_data:Make"> <Target Name="FacturasCliente_data:Make">
<MSBuild Projects="..\Facturas de cliente\Data\FacturasCliente_data.dproj" Targets="Make" /> <MSBuild Projects="..\Facturas de cliente\Data\FacturasCliente_data.dproj" Targets="Make" />
</Target> </Target>
<Target Name="FacturasCliente_controller">
<MSBuild Projects="..\Facturas de cliente\Controller\FacturasCliente_controller.dproj" Targets="" />
</Target>
<Target Name="FacturasCliente_controller:Clean">
<MSBuild Projects="..\Facturas de cliente\Controller\FacturasCliente_controller.dproj" Targets="Clean" />
</Target>
<Target Name="FacturasCliente_controller:Make">
<MSBuild Projects="..\Facturas de cliente\Controller\FacturasCliente_controller.dproj" Targets="Make" />
</Target>
<Target Name="Build"> <Target Name="Build">
<CallTarget Targets="Base;GUIBase;ApplicationBase;Contactos_view;Articulos_controller;Articulos_view;AlbaranesCliente_model;AlbaranesCliente_data;AlbaranesCliente_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;FacturasCliente_view;FacturasCliente_data" /> <CallTarget Targets="Base;GUIBase;ApplicationBase;Contactos_view;Articulos_controller;Articulos_view;AlbaranesCliente_model;AlbaranesCliente_data;AlbaranesCliente_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;FacturasCliente_view;FacturasCliente_data;FacturasCliente_controller" />
</Target> </Target>
<Target Name="Clean"> <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;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;FacturasCliente_view:Clean;FacturasCliente_data: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;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;FacturasCliente_view:Clean;FacturasCliente_data:Clean;FacturasCliente_controller:Clean" />
</Target> </Target>
<Target Name="Make"> <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;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;FacturasCliente_view:Make;FacturasCliente_data: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;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;FacturasCliente_view:Make;FacturasCliente_data:Make;FacturasCliente_controller:Make" />
</Target> </Target>
<Import Condition="Exists('$(MSBuildBinPath)\Borland.Group.Targets')" Project="$(MSBuildBinPath)\Borland.Group.Targets" /> <Import Condition="Exists('$(MSBuildBinPath)\Borland.Group.Targets')" Project="$(MSBuildBinPath)\Borland.Group.Targets" />
</Project> </Project>

4
Source/Modulos/Albaranes de cliente/Controller/uAlbaranesClienteController.pas
View File

@ -845,8 +845,8 @@ begin
Result := EsModificable(AAlbaran); Result := EsModificable(AAlbaran);
if AAlbaran.TIPO = CTE_TIPO_ALBARAN then // if AAlbaran.TIPO = CTE_TIPO_ALBARAN then
Result := Result and (AAlbaran.SITUACION = SITUACION_ALBARAN_PENDIENTE); // Result := Result and (AAlbaran.SITUACION = SITUACION_ALBARAN_PENDIENTE);
end; end;
function TAlbaranesClienteController.EsModificable(AAlbaran: IBizAlbaranCliente): Boolean; function TAlbaranesClienteController.EsModificable(AAlbaran: IBizAlbaranCliente): Boolean;

9
Source/Modulos/Albaranes de cliente/Data/uDataModuleAlbaranesCliente.dfm
View File

@ -418,6 +418,15 @@ inherited DataModuleAlbaranesCliente: TDataModuleAlbaranesCliente
item item
Name = 'ID_PEDIDO' Name = 'ID_PEDIDO'
DataType = datInteger DataType = datInteger
end
item
Name = 'ID_ARTICULO_REEMPLAZADO'
DataType = datInteger
end
item
Name = 'REFERENCIA_ART_REEMPLAZADO'
DataType = datString
Size = 255
end> end>
Params = <> Params = <>
MasterMappingMode = mmWhere MasterMappingMode = mmWhere

96
Source/Modulos/Albaranes de cliente/Model/schAlbaranesClienteClient_Intf.pas
View File

@ -4,16 +4,16 @@ unit schAlbaranesClienteClient_Intf;
interface interface
uses uses
Classes, DB, SysUtils, uROClasses, uDAInterfaces, uDADataTable, FmtBCD, uROXMLIntf; Classes, DB, schBase_Intf, SysUtils, uROClasses, uDAInterfaces, uDADataTable, FmtBCD, uROXMLIntf;
const const
{ Data table rules ids { Data table rules ids
Feel free to change them to something more human readable Feel free to change them to something more human readable
but make sure they are unique in the context of your application } but make sure they are unique in the context of your application }
RID_ListaAnosAlbaranes = '{AB352FBE-C6B0-4DD9-B4EC-63B5ED2BDA4F}'; RID_ListaAnosAlbaranes = '{9102D7FE-372C-4DC6-8038-7A14AD97D609}';
RID_AlbaranesCliente = '{ACF9F8E3-2CA1-4DFC-B159-724A16045D2A}'; RID_AlbaranesCliente = '{BDF0B163-BCA7-4DE9-956B-59AA30A2762F}';
RID_AlbaranesCliente_Detalle_Color = '{772D8D26-472D-4DE1-8249-9863E88FAB87}'; RID_AlbaranesCliente_Detalle_Color = '{10B4CFAA-2E18-41B5-9215-226529BDAC18}';
RID_AlbaranesCliente_Detalles = '{F8AEC877-9B48-43FE-9EB1-2E9A54FD41E8}'; RID_AlbaranesCliente_Detalles = '{17E07972-DA24-43A3-8756-3741A0B5B323}';
{ Data table names } { Data table names }
nme_ListaAnosAlbaranes = 'ListaAnosAlbaranes'; nme_ListaAnosAlbaranes = 'ListaAnosAlbaranes';
@ -166,6 +166,8 @@ const
fld_AlbaranesCliente_DetallesREFERENCIA = 'REFERENCIA'; fld_AlbaranesCliente_DetallesREFERENCIA = 'REFERENCIA';
fld_AlbaranesCliente_DetallesREFERENCIA_PROVEEDOR = 'REFERENCIA_PROVEEDOR'; fld_AlbaranesCliente_DetallesREFERENCIA_PROVEEDOR = 'REFERENCIA_PROVEEDOR';
fld_AlbaranesCliente_DetallesID_PEDIDO = 'ID_PEDIDO'; fld_AlbaranesCliente_DetallesID_PEDIDO = 'ID_PEDIDO';
fld_AlbaranesCliente_DetallesID_ARTICULO_REEMPLAZADO = 'ID_ARTICULO_REEMPLAZADO';
fld_AlbaranesCliente_DetallesREFERENCIA_ART_REEMPLAZADO = 'REFERENCIA_ART_REEMPLAZADO';
{ AlbaranesCliente_Detalles field indexes } { AlbaranesCliente_Detalles field indexes }
idx_AlbaranesCliente_DetallesID = 0; idx_AlbaranesCliente_DetallesID = 0;
@ -184,11 +186,13 @@ const
idx_AlbaranesCliente_DetallesREFERENCIA = 13; idx_AlbaranesCliente_DetallesREFERENCIA = 13;
idx_AlbaranesCliente_DetallesREFERENCIA_PROVEEDOR = 14; idx_AlbaranesCliente_DetallesREFERENCIA_PROVEEDOR = 14;
idx_AlbaranesCliente_DetallesID_PEDIDO = 15; idx_AlbaranesCliente_DetallesID_PEDIDO = 15;
idx_AlbaranesCliente_DetallesID_ARTICULO_REEMPLAZADO = 16;
idx_AlbaranesCliente_DetallesREFERENCIA_ART_REEMPLAZADO = 17;
type type
{ IListaAnosAlbaranes } { IListaAnosAlbaranes }
IListaAnosAlbaranes = interface(IDAStronglyTypedDataTable) IListaAnosAlbaranes = interface(IDAStronglyTypedDataTable)
['{6F87DB01-2294-4331-8C36-A0C754159240}'] ['{4074F8EC-F9B8-4A4B-BB81-CEF7D2F6365B}']
{ Property getters and setters } { Property getters and setters }
function GetANOValue: String; function GetANOValue: String;
procedure SetANOValue(const aValue: String); procedure SetANOValue(const aValue: String);
@ -202,7 +206,7 @@ type
end; end;
{ TListaAnosAlbaranesDataTableRules } { TListaAnosAlbaranesDataTableRules }
TListaAnosAlbaranesDataTableRules = class(TDADataTableRules, IListaAnosAlbaranes) TListaAnosAlbaranesDataTableRules = class(TIntfObjectDADataTableRules, IListaAnosAlbaranes)
private private
protected protected
{ Property getters and setters } { Property getters and setters }
@ -223,7 +227,7 @@ type
{ IAlbaranesCliente } { IAlbaranesCliente }
IAlbaranesCliente = interface(IDAStronglyTypedDataTable) IAlbaranesCliente = interface(IDAStronglyTypedDataTable)
['{E24D4F8F-A65A-46FC-B4FD-0862681FE993}'] ['{8F408E21-0246-4D94-9E77-5782B508C414}']
{ Property getters and setters } { Property getters and setters }
function GetIDValue: Integer; function GetIDValue: Integer;
procedure SetIDValue(const aValue: Integer); procedure SetIDValue(const aValue: Integer);
@ -487,7 +491,7 @@ type
end; end;
{ TAlbaranesClienteDataTableRules } { TAlbaranesClienteDataTableRules }
TAlbaranesClienteDataTableRules = class(TDADataTableRules, IAlbaranesCliente) TAlbaranesClienteDataTableRules = class(TIntfObjectDADataTableRules, IAlbaranesCliente)
private private
f_OBSERVACIONES: IROStrings; f_OBSERVACIONES: IROStrings;
f_INCIDENCIAS: IROStrings; f_INCIDENCIAS: IROStrings;
@ -762,7 +766,7 @@ type
{ IAlbaranesCliente_Detalle_Color } { IAlbaranesCliente_Detalle_Color }
IAlbaranesCliente_Detalle_Color = interface(IDAStronglyTypedDataTable) IAlbaranesCliente_Detalle_Color = interface(IDAStronglyTypedDataTable)
['{4258FF8D-5072-4AC3-9195-D681DBA05C11}'] ['{BF29A24D-5536-439A-8BEF-6745D246A516}']
{ Property getters and setters } { Property getters and setters }
function GetIDValue: Integer; function GetIDValue: Integer;
procedure SetIDValue(const aValue: Integer); procedure SetIDValue(const aValue: Integer);
@ -854,7 +858,7 @@ type
end; end;
{ TAlbaranesCliente_Detalle_ColorDataTableRules } { TAlbaranesCliente_Detalle_ColorDataTableRules }
TAlbaranesCliente_Detalle_ColorDataTableRules = class(TDADataTableRules, IAlbaranesCliente_Detalle_Color) TAlbaranesCliente_Detalle_ColorDataTableRules = class(TIntfObjectDADataTableRules, IAlbaranesCliente_Detalle_Color)
private private
protected protected
{ Property getters and setters } { Property getters and setters }
@ -953,7 +957,7 @@ type
{ IAlbaranesCliente_Detalles } { IAlbaranesCliente_Detalles }
IAlbaranesCliente_Detalles = interface(IDAStronglyTypedDataTable) IAlbaranesCliente_Detalles = interface(IDAStronglyTypedDataTable)
['{32CD43CD-5A7A-4E80-AE13-C75124E342D7}'] ['{714E0D3D-0C54-48D0-9ED5-9607BE59A663}']
{ Property getters and setters } { Property getters and setters }
function GetIDValue: Integer; function GetIDValue: Integer;
procedure SetIDValue(const aValue: Integer); procedure SetIDValue(const aValue: Integer);
@ -1019,6 +1023,14 @@ type
procedure SetID_PEDIDOValue(const aValue: Integer); procedure SetID_PEDIDOValue(const aValue: Integer);
function GetID_PEDIDOIsNull: Boolean; function GetID_PEDIDOIsNull: Boolean;
procedure SetID_PEDIDOIsNull(const aValue: Boolean); procedure SetID_PEDIDOIsNull(const aValue: Boolean);
function GetID_ARTICULO_REEMPLAZADOValue: Integer;
procedure SetID_ARTICULO_REEMPLAZADOValue(const aValue: Integer);
function GetID_ARTICULO_REEMPLAZADOIsNull: Boolean;
procedure SetID_ARTICULO_REEMPLAZADOIsNull(const aValue: Boolean);
function GetREFERENCIA_ART_REEMPLAZADOValue: String;
procedure SetREFERENCIA_ART_REEMPLAZADOValue(const aValue: String);
function GetREFERENCIA_ART_REEMPLAZADOIsNull: Boolean;
procedure SetREFERENCIA_ART_REEMPLAZADOIsNull(const aValue: Boolean);
{ Properties } { Properties }
@ -1054,10 +1066,14 @@ type
property REFERENCIA_PROVEEDORIsNull: Boolean read GetREFERENCIA_PROVEEDORIsNull write SetREFERENCIA_PROVEEDORIsNull; property REFERENCIA_PROVEEDORIsNull: Boolean read GetREFERENCIA_PROVEEDORIsNull write SetREFERENCIA_PROVEEDORIsNull;
property ID_PEDIDO: Integer read GetID_PEDIDOValue write SetID_PEDIDOValue; property ID_PEDIDO: Integer read GetID_PEDIDOValue write SetID_PEDIDOValue;
property ID_PEDIDOIsNull: Boolean read GetID_PEDIDOIsNull write SetID_PEDIDOIsNull; property ID_PEDIDOIsNull: Boolean read GetID_PEDIDOIsNull write SetID_PEDIDOIsNull;
property ID_ARTICULO_REEMPLAZADO: Integer read GetID_ARTICULO_REEMPLAZADOValue write SetID_ARTICULO_REEMPLAZADOValue;
property ID_ARTICULO_REEMPLAZADOIsNull: Boolean read GetID_ARTICULO_REEMPLAZADOIsNull write SetID_ARTICULO_REEMPLAZADOIsNull;
property REFERENCIA_ART_REEMPLAZADO: String read GetREFERENCIA_ART_REEMPLAZADOValue write SetREFERENCIA_ART_REEMPLAZADOValue;
property REFERENCIA_ART_REEMPLAZADOIsNull: Boolean read GetREFERENCIA_ART_REEMPLAZADOIsNull write SetREFERENCIA_ART_REEMPLAZADOIsNull;
end; end;
{ TAlbaranesCliente_DetallesDataTableRules } { TAlbaranesCliente_DetallesDataTableRules }
TAlbaranesCliente_DetallesDataTableRules = class(TDADataTableRules, IAlbaranesCliente_Detalles) TAlbaranesCliente_DetallesDataTableRules = class(TIntfObjectDADataTableRules, IAlbaranesCliente_Detalles)
private private
protected protected
{ Property getters and setters } { Property getters and setters }
@ -1125,6 +1141,14 @@ type
procedure SetID_PEDIDOValue(const aValue: Integer); virtual; procedure SetID_PEDIDOValue(const aValue: Integer); virtual;
function GetID_PEDIDOIsNull: Boolean; virtual; function GetID_PEDIDOIsNull: Boolean; virtual;
procedure SetID_PEDIDOIsNull(const aValue: Boolean); virtual; procedure SetID_PEDIDOIsNull(const aValue: Boolean); virtual;
function GetID_ARTICULO_REEMPLAZADOValue: Integer; virtual;
procedure SetID_ARTICULO_REEMPLAZADOValue(const aValue: Integer); virtual;
function GetID_ARTICULO_REEMPLAZADOIsNull: Boolean; virtual;
procedure SetID_ARTICULO_REEMPLAZADOIsNull(const aValue: Boolean); virtual;
function GetREFERENCIA_ART_REEMPLAZADOValue: String; virtual;
procedure SetREFERENCIA_ART_REEMPLAZADOValue(const aValue: String); virtual;
function GetREFERENCIA_ART_REEMPLAZADOIsNull: Boolean; virtual;
procedure SetREFERENCIA_ART_REEMPLAZADOIsNull(const aValue: Boolean); virtual;
{ Properties } { Properties }
property ID: Integer read GetIDValue write SetIDValue; property ID: Integer read GetIDValue write SetIDValue;
@ -1159,6 +1183,10 @@ type
property REFERENCIA_PROVEEDORIsNull: Boolean read GetREFERENCIA_PROVEEDORIsNull write SetREFERENCIA_PROVEEDORIsNull; property REFERENCIA_PROVEEDORIsNull: Boolean read GetREFERENCIA_PROVEEDORIsNull write SetREFERENCIA_PROVEEDORIsNull;
property ID_PEDIDO: Integer read GetID_PEDIDOValue write SetID_PEDIDOValue; property ID_PEDIDO: Integer read GetID_PEDIDOValue write SetID_PEDIDOValue;
property ID_PEDIDOIsNull: Boolean read GetID_PEDIDOIsNull write SetID_PEDIDOIsNull; property ID_PEDIDOIsNull: Boolean read GetID_PEDIDOIsNull write SetID_PEDIDOIsNull;
property ID_ARTICULO_REEMPLAZADO: Integer read GetID_ARTICULO_REEMPLAZADOValue write SetID_ARTICULO_REEMPLAZADOValue;
property ID_ARTICULO_REEMPLAZADOIsNull: Boolean read GetID_ARTICULO_REEMPLAZADOIsNull write SetID_ARTICULO_REEMPLAZADOIsNull;
property REFERENCIA_ART_REEMPLAZADO: String read GetREFERENCIA_ART_REEMPLAZADOValue write SetREFERENCIA_ART_REEMPLAZADOValue;
property REFERENCIA_ART_REEMPLAZADOIsNull: Boolean read GetREFERENCIA_ART_REEMPLAZADOIsNull write SetREFERENCIA_ART_REEMPLAZADOIsNull;
public public
constructor Create(aDataTable: TDADataTable); override; constructor Create(aDataTable: TDADataTable); override;
@ -2783,6 +2811,48 @@ begin
DataTable.Fields[idx_AlbaranesCliente_DetallesID_PEDIDO].AsVariant := Null; DataTable.Fields[idx_AlbaranesCliente_DetallesID_PEDIDO].AsVariant := Null;
end; end;
function TAlbaranesCliente_DetallesDataTableRules.GetID_ARTICULO_REEMPLAZADOValue: Integer;
begin
result := DataTable.Fields[idx_AlbaranesCliente_DetallesID_ARTICULO_REEMPLAZADO].AsInteger;
end;
procedure TAlbaranesCliente_DetallesDataTableRules.SetID_ARTICULO_REEMPLAZADOValue(const aValue: Integer);
begin
DataTable.Fields[idx_AlbaranesCliente_DetallesID_ARTICULO_REEMPLAZADO].AsInteger := aValue;
end;
function TAlbaranesCliente_DetallesDataTableRules.GetID_ARTICULO_REEMPLAZADOIsNull: boolean;
begin
result := DataTable.Fields[idx_AlbaranesCliente_DetallesID_ARTICULO_REEMPLAZADO].IsNull;
end;
procedure TAlbaranesCliente_DetallesDataTableRules.SetID_ARTICULO_REEMPLAZADOIsNull(const aValue: Boolean);
begin
if aValue then
DataTable.Fields[idx_AlbaranesCliente_DetallesID_ARTICULO_REEMPLAZADO].AsVariant := Null;
end;
function TAlbaranesCliente_DetallesDataTableRules.GetREFERENCIA_ART_REEMPLAZADOValue: String;
begin
result := DataTable.Fields[idx_AlbaranesCliente_DetallesREFERENCIA_ART_REEMPLAZADO].AsString;
end;
procedure TAlbaranesCliente_DetallesDataTableRules.SetREFERENCIA_ART_REEMPLAZADOValue(const aValue: String);
begin
DataTable.Fields[idx_AlbaranesCliente_DetallesREFERENCIA_ART_REEMPLAZADO].AsString := aValue;
end;
function TAlbaranesCliente_DetallesDataTableRules.GetREFERENCIA_ART_REEMPLAZADOIsNull: boolean;
begin
result := DataTable.Fields[idx_AlbaranesCliente_DetallesREFERENCIA_ART_REEMPLAZADO].IsNull;
end;
procedure TAlbaranesCliente_DetallesDataTableRules.SetREFERENCIA_ART_REEMPLAZADOIsNull(const aValue: Boolean);
begin
if aValue then
DataTable.Fields[idx_AlbaranesCliente_DetallesREFERENCIA_ART_REEMPLAZADO].AsVariant := Null;
end;
initialization initialization
RegisterDataTableRules(RID_ListaAnosAlbaranes, TListaAnosAlbaranesDataTableRules); RegisterDataTableRules(RID_ListaAnosAlbaranes, TListaAnosAlbaranesDataTableRules);

110
Source/Modulos/Albaranes de cliente/Model/schAlbaranesClienteServer_Intf.pas
View File

@ -10,15 +10,15 @@ const
{ Delta rules ids { Delta rules ids
Feel free to change them to something more human readable Feel free to change them to something more human readable
but make sure they are unique in the context of your application } but make sure they are unique in the context of your application }
RID_ListaAnosAlbaranesDelta = '{495C919E-CCB7-42E5-8E0F-BD280FAFEFBE}'; RID_ListaAnosAlbaranesDelta = '{E60F6A6A-6A06-498E-9186-D1821EFC148F}';
RID_AlbaranesClienteDelta = '{1047657F-BC07-46AB-A3D7-856FE3DE903B}'; RID_AlbaranesClienteDelta = '{1514B5F5-9399-48AD-B5ED-9BF846EA26B0}';
RID_AlbaranesCliente_Detalle_ColorDelta = '{FE909A38-591A-423D-8369-3CF1B8BE6539}'; RID_AlbaranesCliente_Detalle_ColorDelta = '{85549AA0-E0AC-4331-B2E4-58FB9160FA7E}';
RID_AlbaranesCliente_DetallesDelta = '{43759912-619B-4D1C-9AC0-55A2F2A2929B}'; RID_AlbaranesCliente_DetallesDelta = '{D3224DBF-E43C-4910-B541-4653E6BA8F73}';
type type
{ IListaAnosAlbaranesDelta } { IListaAnosAlbaranesDelta }
IListaAnosAlbaranesDelta = interface(IListaAnosAlbaranes) IListaAnosAlbaranesDelta = interface(IListaAnosAlbaranes)
['{495C919E-CCB7-42E5-8E0F-BD280FAFEFBE}'] ['{E60F6A6A-6A06-498E-9186-D1821EFC148F}']
{ Property getters and setters } { Property getters and setters }
function GetOldANOValue : String; function GetOldANOValue : String;
@ -52,7 +52,7 @@ type
{ IAlbaranesClienteDelta } { IAlbaranesClienteDelta }
IAlbaranesClienteDelta = interface(IAlbaranesCliente) IAlbaranesClienteDelta = interface(IAlbaranesCliente)
['{1047657F-BC07-46AB-A3D7-856FE3DE903B}'] ['{1514B5F5-9399-48AD-B5ED-9BF846EA26B0}']
{ Property getters and setters } { Property getters and setters }
function GetOldIDValue : Integer; function GetOldIDValue : Integer;
function GetOldID_EMPRESAValue : Integer; function GetOldID_EMPRESAValue : Integer;
@ -592,7 +592,7 @@ type
{ IAlbaranesCliente_Detalle_ColorDelta } { IAlbaranesCliente_Detalle_ColorDelta }
IAlbaranesCliente_Detalle_ColorDelta = interface(IAlbaranesCliente_Detalle_Color) IAlbaranesCliente_Detalle_ColorDelta = interface(IAlbaranesCliente_Detalle_Color)
['{FE909A38-591A-423D-8369-3CF1B8BE6539}'] ['{85549AA0-E0AC-4331-B2E4-58FB9160FA7E}']
{ Property getters and setters } { Property getters and setters }
function GetOldIDValue : Integer; function GetOldIDValue : Integer;
function GetOldID_DETALLEValue : Integer; function GetOldID_DETALLEValue : Integer;
@ -782,7 +782,7 @@ type
{ IAlbaranesCliente_DetallesDelta } { IAlbaranesCliente_DetallesDelta }
IAlbaranesCliente_DetallesDelta = interface(IAlbaranesCliente_Detalles) IAlbaranesCliente_DetallesDelta = interface(IAlbaranesCliente_Detalles)
['{43759912-619B-4D1C-9AC0-55A2F2A2929B}'] ['{D3224DBF-E43C-4910-B541-4653E6BA8F73}']
{ Property getters and setters } { Property getters and setters }
function GetOldIDValue : Integer; function GetOldIDValue : Integer;
function GetOldID_ALBARANValue : Integer; function GetOldID_ALBARANValue : Integer;
@ -800,6 +800,8 @@ type
function GetOldREFERENCIAValue : String; function GetOldREFERENCIAValue : String;
function GetOldREFERENCIA_PROVEEDORValue : String; function GetOldREFERENCIA_PROVEEDORValue : String;
function GetOldID_PEDIDOValue : Integer; function GetOldID_PEDIDOValue : Integer;
function GetOldID_ARTICULO_REEMPLAZADOValue : Integer;
function GetOldREFERENCIA_ART_REEMPLAZADOValue : String;
{ Properties } { Properties }
property OldID : Integer read GetOldIDValue; property OldID : Integer read GetOldIDValue;
@ -818,6 +820,8 @@ type
property OldREFERENCIA : String read GetOldREFERENCIAValue; property OldREFERENCIA : String read GetOldREFERENCIAValue;
property OldREFERENCIA_PROVEEDOR : String read GetOldREFERENCIA_PROVEEDORValue; property OldREFERENCIA_PROVEEDOR : String read GetOldREFERENCIA_PROVEEDORValue;
property OldID_PEDIDO : Integer read GetOldID_PEDIDOValue; property OldID_PEDIDO : Integer read GetOldID_PEDIDOValue;
property OldID_ARTICULO_REEMPLAZADO : Integer read GetOldID_ARTICULO_REEMPLAZADOValue;
property OldREFERENCIA_ART_REEMPLAZADO : String read GetOldREFERENCIA_ART_REEMPLAZADOValue;
end; end;
{ TAlbaranesCliente_DetallesBusinessProcessorRules } { TAlbaranesCliente_DetallesBusinessProcessorRules }
@ -921,6 +925,18 @@ type
function GetOldID_PEDIDOIsNull: Boolean; virtual; function GetOldID_PEDIDOIsNull: Boolean; virtual;
procedure SetID_PEDIDOValue(const aValue: Integer); virtual; procedure SetID_PEDIDOValue(const aValue: Integer); virtual;
procedure SetID_PEDIDOIsNull(const aValue: Boolean); virtual; procedure SetID_PEDIDOIsNull(const aValue: Boolean); virtual;
function GetID_ARTICULO_REEMPLAZADOValue: Integer; virtual;
function GetID_ARTICULO_REEMPLAZADOIsNull: Boolean; virtual;
function GetOldID_ARTICULO_REEMPLAZADOValue: Integer; virtual;
function GetOldID_ARTICULO_REEMPLAZADOIsNull: Boolean; virtual;
procedure SetID_ARTICULO_REEMPLAZADOValue(const aValue: Integer); virtual;
procedure SetID_ARTICULO_REEMPLAZADOIsNull(const aValue: Boolean); virtual;
function GetREFERENCIA_ART_REEMPLAZADOValue: String; virtual;
function GetREFERENCIA_ART_REEMPLAZADOIsNull: Boolean; virtual;
function GetOldREFERENCIA_ART_REEMPLAZADOValue: String; virtual;
function GetOldREFERENCIA_ART_REEMPLAZADOIsNull: Boolean; virtual;
procedure SetREFERENCIA_ART_REEMPLAZADOValue(const aValue: String); virtual;
procedure SetREFERENCIA_ART_REEMPLAZADOIsNull(const aValue: Boolean); virtual;
{ Properties } { Properties }
property ID : Integer read GetIDValue write SetIDValue; property ID : Integer read GetIDValue write SetIDValue;
@ -987,6 +1003,14 @@ type
property ID_PEDIDOIsNull : Boolean read GetID_PEDIDOIsNull write SetID_PEDIDOIsNull; property ID_PEDIDOIsNull : Boolean read GetID_PEDIDOIsNull write SetID_PEDIDOIsNull;
property OldID_PEDIDO : Integer read GetOldID_PEDIDOValue; property OldID_PEDIDO : Integer read GetOldID_PEDIDOValue;
property OldID_PEDIDOIsNull : Boolean read GetOldID_PEDIDOIsNull; property OldID_PEDIDOIsNull : Boolean read GetOldID_PEDIDOIsNull;
property ID_ARTICULO_REEMPLAZADO : Integer read GetID_ARTICULO_REEMPLAZADOValue write SetID_ARTICULO_REEMPLAZADOValue;
property ID_ARTICULO_REEMPLAZADOIsNull : Boolean read GetID_ARTICULO_REEMPLAZADOIsNull write SetID_ARTICULO_REEMPLAZADOIsNull;
property OldID_ARTICULO_REEMPLAZADO : Integer read GetOldID_ARTICULO_REEMPLAZADOValue;
property OldID_ARTICULO_REEMPLAZADOIsNull : Boolean read GetOldID_ARTICULO_REEMPLAZADOIsNull;
property REFERENCIA_ART_REEMPLAZADO : String read GetREFERENCIA_ART_REEMPLAZADOValue write SetREFERENCIA_ART_REEMPLAZADOValue;
property REFERENCIA_ART_REEMPLAZADOIsNull : Boolean read GetREFERENCIA_ART_REEMPLAZADOIsNull write SetREFERENCIA_ART_REEMPLAZADOIsNull;
property OldREFERENCIA_ART_REEMPLAZADO : String read GetOldREFERENCIA_ART_REEMPLAZADOValue;
property OldREFERENCIA_ART_REEMPLAZADOIsNull : Boolean read GetOldREFERENCIA_ART_REEMPLAZADOIsNull;
public public
constructor Create(aBusinessProcessor: TDABusinessProcessor); override; constructor Create(aBusinessProcessor: TDABusinessProcessor); override;
@ -3650,6 +3674,76 @@ begin
BusinessProcessor.CurrentChange.NewValueByName[fld_AlbaranesCliente_DetallesID_PEDIDO] := Null; BusinessProcessor.CurrentChange.NewValueByName[fld_AlbaranesCliente_DetallesID_PEDIDO] := Null;
end; end;
function TAlbaranesCliente_DetallesBusinessProcessorRules.GetID_ARTICULO_REEMPLAZADOValue: Integer;
begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_AlbaranesCliente_DetallesID_ARTICULO_REEMPLAZADO];
end;
function TAlbaranesCliente_DetallesBusinessProcessorRules.GetID_ARTICULO_REEMPLAZADOIsNull: Boolean;
var v: variant;
begin
v := BusinessProcessor.CurrentChange.NewValueByName[fld_AlbaranesCliente_DetallesID_ARTICULO_REEMPLAZADO];
result := VarIsNull(v) or VarIsClear(v);
end;
function TAlbaranesCliente_DetallesBusinessProcessorRules.GetOldID_ARTICULO_REEMPLAZADOValue: Integer;
begin
result := BusinessProcessor.CurrentChange.OldValueByName[fld_AlbaranesCliente_DetallesID_ARTICULO_REEMPLAZADO];
end;
function TAlbaranesCliente_DetallesBusinessProcessorRules.GetOldID_ARTICULO_REEMPLAZADOIsNull: Boolean;
var v: variant;
begin
v := BusinessProcessor.CurrentChange.OldValueByName[fld_AlbaranesCliente_DetallesID_ARTICULO_REEMPLAZADO];
result := VarIsNull(v) or VarIsClear(v);
end;
procedure TAlbaranesCliente_DetallesBusinessProcessorRules.SetID_ARTICULO_REEMPLAZADOValue(const aValue: Integer);
begin
BusinessProcessor.CurrentChange.NewValueByName[fld_AlbaranesCliente_DetallesID_ARTICULO_REEMPLAZADO] := aValue;
end;
procedure TAlbaranesCliente_DetallesBusinessProcessorRules.SetID_ARTICULO_REEMPLAZADOIsNull(const aValue: Boolean);
begin
if aValue then
BusinessProcessor.CurrentChange.NewValueByName[fld_AlbaranesCliente_DetallesID_ARTICULO_REEMPLAZADO] := Null;
end;
function TAlbaranesCliente_DetallesBusinessProcessorRules.GetREFERENCIA_ART_REEMPLAZADOValue: String;
begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_AlbaranesCliente_DetallesREFERENCIA_ART_REEMPLAZADO];
end;
function TAlbaranesCliente_DetallesBusinessProcessorRules.GetREFERENCIA_ART_REEMPLAZADOIsNull: Boolean;
var v: variant;
begin
v := BusinessProcessor.CurrentChange.NewValueByName[fld_AlbaranesCliente_DetallesREFERENCIA_ART_REEMPLAZADO];
result := VarIsNull(v) or VarIsClear(v);
end;
function TAlbaranesCliente_DetallesBusinessProcessorRules.GetOldREFERENCIA_ART_REEMPLAZADOValue: String;
begin
result := BusinessProcessor.CurrentChange.OldValueByName[fld_AlbaranesCliente_DetallesREFERENCIA_ART_REEMPLAZADO];
end;
function TAlbaranesCliente_DetallesBusinessProcessorRules.GetOldREFERENCIA_ART_REEMPLAZADOIsNull: Boolean;
var v: variant;
begin
v := BusinessProcessor.CurrentChange.OldValueByName[fld_AlbaranesCliente_DetallesREFERENCIA_ART_REEMPLAZADO];
result := VarIsNull(v) or VarIsClear(v);
end;
procedure TAlbaranesCliente_DetallesBusinessProcessorRules.SetREFERENCIA_ART_REEMPLAZADOValue(const aValue: String);
begin
BusinessProcessor.CurrentChange.NewValueByName[fld_AlbaranesCliente_DetallesREFERENCIA_ART_REEMPLAZADO] := aValue;
end;
procedure TAlbaranesCliente_DetallesBusinessProcessorRules.SetREFERENCIA_ART_REEMPLAZADOIsNull(const aValue: Boolean);
begin
if aValue then
BusinessProcessor.CurrentChange.NewValueByName[fld_AlbaranesCliente_DetallesREFERENCIA_ART_REEMPLAZADO] := Null;
end;
initialization initialization
RegisterBusinessProcessorRules(RID_ListaAnosAlbaranesDelta, TListaAnosAlbaranesBusinessProcessorRules); RegisterBusinessProcessorRules(RID_ListaAnosAlbaranesDelta, TListaAnosAlbaranesBusinessProcessorRules);

84
Source/Modulos/Albaranes de cliente/Servidor/srvAlbaranesCliente_Impl.dfm
View File

@ -627,9 +627,13 @@ object srvAlbaranesCliente: TsrvAlbaranesCliente
'S_CLIENTE_DETALLES.ID_ARTICULO, ARTICULOS.REFERENCIA,'#10' '#39#39' as ' + 'S_CLIENTE_DETALLES.ID_ARTICULO, ARTICULOS.REFERENCIA,'#10' '#39#39' as ' +
'REFERENCIA_PROVEEDOR, /*Es necesario para que no pete detalles p' + 'REFERENCIA_PROVEEDOR, /*Es necesario para que no pete detalles p' +
'orque tanto en la rama de cliente como de proveedor es comun*/'#10' ' + 'orque tanto en la rama de cliente como de proveedor es comun*/'#10' ' +
' ALBARANES_CLIENTE_DETALLES.ID_PEDIDO'#10#10#10'FROM ALBARANES_CLIENTE' + ' ALBARANES_CLIENTE_DETALLES.ID_PEDIDO,'#10' ALBARANES_CLIENTE_D' +
'_DETALLES'#10'LEFT JOIN ARTICULOS ON ALBARANES_CLIENTE_DETALLES.ID_A' + 'ETALLES.ID_ARTICULO_REEMPLAZADO, ARTICULOS2.REFERENCIA AS REFERE' +
'RTICULO = ARTICULOS.ID'#10'where {where}'#10'ORDER BY POSICION;'#10#10 'NCIA_ART_REEMPLAZADO'#10#10#10'FROM ALBARANES_CLIENTE_DETALLES'#10'LEFT JOIN' +
' ARTICULOS ON ALBARANES_CLIENTE_DETALLES.ID_ARTICULO = ARTICULOS' +
'.ID'#10'LEFT JOIN ARTICULOS ARTICULOS2 ON ALBARANES_CLIENTE_DETALLES' +
'.ID_ARTICULO_REEMPLAZADO = ARTICULOS2.ID'#10'where {where}'#10'ORDER BY ' +
'POSICION;'#10#10
StatementType = stSQL StatementType = stSQL
ColumnMappings = < ColumnMappings = <
item item
@ -695,6 +699,14 @@ object srvAlbaranesCliente: TsrvAlbaranesCliente
item item
DatasetField = 'UNIDAD_MEDIDA' DatasetField = 'UNIDAD_MEDIDA'
TableField = 'UNIDAD_MEDIDA' TableField = 'UNIDAD_MEDIDA'
end
item
DatasetField = 'ID_ARTICULO_REEMPLAZADO'
TableField = 'ID_ARTICULO_REEMPLAZADO'
end
item
DatasetField = 'REFERENCIA_ART_REEMPLAZADO'
TableField = 'REFERENCIA_ART_REEMPLAZADO'
end> end>
end> end>
Name = 'AlbaranesCliente_Detalles' Name = 'AlbaranesCliente_Detalles'
@ -782,6 +794,15 @@ object srvAlbaranesCliente: TsrvAlbaranesCliente
item item
Name = 'ID_PEDIDO' Name = 'ID_PEDIDO'
DataType = datInteger DataType = datInteger
end
item
Name = 'ID_ARTICULO_REEMPLAZADO'
DataType = datInteger
end
item
Name = 'REFERENCIA_ART_REEMPLAZADO'
DataType = datString
Size = 255
end> end>
end> end>
JoinDataTables = <> JoinDataTables = <>
@ -1276,60 +1297,81 @@ object srvAlbaranesCliente: TsrvAlbaranesCliente
Params = < Params = <
item item
Name = 'ID' Name = 'ID'
DataType = datAutoInc DataType = datLargeInt
GeneratorName = 'GEN_ALBARANES_CLI_DETALLES_ID' GeneratorName = 'GEN_ALBARANES_CLI_DETALLES_ID'
Value = '' Value = ''
end end
item item
Name = 'ID_ALBARAN' Name = 'ID_ALBARAN'
DataType = datInteger
Value = '' Value = ''
end end
item item
Name = 'POSICION' Name = 'POSICION'
DataType = datInteger
Value = '' Value = ''
end end
item item
Name = 'TIPO_DETALLE' Name = 'TIPO_DETALLE'
DataType = datString
Size = 25
Value = '' Value = ''
end end
item item
Name = 'CONCEPTO' Name = 'CONCEPTO'
DataType = datString
Size = 2000
Value = '' Value = ''
end end
item item
Name = 'CANTIDAD' Name = 'CANTIDAD'
DataType = datDecimal
Value = '' Value = ''
end end
item item
Name = 'UNIDAD_MEDIDA' Name = 'UNIDAD_MEDIDA'
DataType = datString
Size = 255
Value = '' Value = ''
end end
item item
Name = 'IMPORTE_UNIDAD' Name = 'IMPORTE_UNIDAD'
DataType = datDecimal
Value = '' Value = ''
end end
item item
Name = 'DESCUENTO' Name = 'DESCUENTO'
DataType = datCurrency
Value = '' Value = ''
end end
item item
Name = 'IMPORTE_PORTE' Name = 'IMPORTE_PORTE'
DataType = datDecimal
Value = '' Value = ''
end end
item item
Name = 'IMPORTE_TOTAL' Name = 'IMPORTE_TOTAL'
DataType = datDecimal
Value = '' Value = ''
end end
item item
Name = 'VISIBLE' Name = 'VISIBLE'
DataType = datSmallInt
Value = '' Value = ''
end end
item item
Name = 'ID_ARTICULO' Name = 'ID_ARTICULO'
DataType = datInteger
Value = '' Value = ''
end end
item item
Name = 'ID_PEDIDO' Name = 'ID_PEDIDO'
DataType = datInteger
Value = ''
end
item
Name = 'ID_ARTICULO_REEMPLAZADO'
DataType = datInteger
Value = '' Value = ''
end> end>
Statements = < Statements = <
@ -1341,10 +1383,11 @@ object srvAlbaranesCliente: TsrvAlbaranesCliente
'INSERT'#10' INTO ALBARANES_CLIENTE_DETALLES'#10' (ID, ID_ALBARAN, PO' + 'INSERT'#10' INTO ALBARANES_CLIENTE_DETALLES'#10' (ID, ID_ALBARAN, PO' +
'SICION, TIPO_DETALLE, CONCEPTO, CANTIDAD, UNIDAD_MEDIDA,'#10' IM' + 'SICION, TIPO_DETALLE, CONCEPTO, CANTIDAD, UNIDAD_MEDIDA,'#10' IM' +
'PORTE_UNIDAD, DESCUENTO, IMPORTE_PORTE, IMPORTE_TOTAL, '#10' VIS' + 'PORTE_UNIDAD, DESCUENTO, IMPORTE_PORTE, IMPORTE_TOTAL, '#10' VIS' +
'IBLE, ID_ARTICULO, ID_PEDIDO)'#10' VALUES'#10' (:ID, :ID_ALBARAN, :P' + 'IBLE, ID_ARTICULO, ID_PEDIDO, ID_ARTICULO_REEMPLAZADO)'#10' VALUES'#10 +
'OSICION, :TIPO_DETALLE, :CONCEPTO, :CANTIDAD, :UNIDAD_MEDIDA,'#10' ' + ' (:ID, :ID_ALBARAN, :POSICION, :TIPO_DETALLE, :CONCEPTO, :CAN' +
' :IMPORTE_UNIDAD, :DESCUENTO, :IMPORTE_PORTE, :IMPORTE_TOTAL, ' + 'TIDAD, :UNIDAD_MEDIDA,'#10' :IMPORTE_UNIDAD, :DESCUENTO, :IMPORT' +
#10' :VISIBLE, :ID_ARTICULO, :ID_PEDIDO)'#10 'E_PORTE, :IMPORTE_TOTAL, '#10' :VISIBLE, :ID_ARTICULO, :ID_PEDID' +
'O, :ID_ARTICULO_REEMPLAZADO)'#10
StatementType = stSQL StatementType = stSQL
ColumnMappings = <> ColumnMappings = <>
end> end>
@ -1374,58 +1417,80 @@ object srvAlbaranesCliente: TsrvAlbaranesCliente
Params = < Params = <
item item
Name = 'ID' Name = 'ID'
DataType = datInteger
Value = '' Value = ''
end end
item item
Name = 'ID_ALBARAN' Name = 'ID_ALBARAN'
DataType = datInteger
Value = '' Value = ''
end end
item item
Name = 'POSICION' Name = 'POSICION'
DataType = datInteger
Value = '' Value = ''
end end
item item
Name = 'TIPO_DETALLE' Name = 'TIPO_DETALLE'
DataType = datString
Size = 25
Value = '' Value = ''
end end
item item
Name = 'CONCEPTO' Name = 'CONCEPTO'
DataType = datString
Size = 2000
Value = '' Value = ''
end end
item item
Name = 'CANTIDAD' Name = 'CANTIDAD'
DataType = datDecimal
Value = '' Value = ''
end end
item item
Name = 'UNIDAD_MEDIDA' Name = 'UNIDAD_MEDIDA'
DataType = datString
Size = 255
Value = '' Value = ''
end end
item item
Name = 'IMPORTE_UNIDAD' Name = 'IMPORTE_UNIDAD'
DataType = datDecimal
Value = '' Value = ''
end end
item item
Name = 'DESCUENTO' Name = 'DESCUENTO'
DataType = datCurrency
Value = '' Value = ''
end end
item item
Name = 'IMPORTE_PORTE' Name = 'IMPORTE_PORTE'
DataType = datDecimal
Value = '' Value = ''
end end
item item
Name = 'IMPORTE_TOTAL' Name = 'IMPORTE_TOTAL'
DataType = datDecimal
Value = '' Value = ''
end end
item item
Name = 'VISIBLE' Name = 'VISIBLE'
DataType = datSmallInt
Value = '' Value = ''
end end
item item
Name = 'ID_ARTICULO' Name = 'ID_ARTICULO'
DataType = datInteger
Value = '' Value = ''
end end
item item
Name = 'ID_PEDIDO' Name = 'ID_PEDIDO'
DataType = datInteger
Value = ''
end
item
Name = 'ID_ARTICULO_REEMPLAZADO'
DataType = datInteger
Value = '' Value = ''
end end
item item
@ -1445,7 +1510,8 @@ object srvAlbaranesCliente: TsrvAlbaranesCliente
' = :IMPORTE_UNIDAD, '#10' DESCUENTO = :DESCUENTO, '#10' IMPORTE_PO' + ' = :IMPORTE_UNIDAD, '#10' DESCUENTO = :DESCUENTO, '#10' IMPORTE_PO' +
'RTE = :IMPORTE_PORTE, '#10' IMPORTE_TOTAL = :IMPORTE_TOTAL, '#10' ' + 'RTE = :IMPORTE_PORTE, '#10' IMPORTE_TOTAL = :IMPORTE_TOTAL, '#10' ' +
'VISIBLE = :VISIBLE, '#10' ID_ARTICULO = :ID_ARTICULO,'#10' ID_PEDI' + 'VISIBLE = :VISIBLE, '#10' ID_ARTICULO = :ID_ARTICULO,'#10' ID_PEDI' +
'DO = :ID_PEDIDO'#10' WHERE'#10' (ID = :OLD_ID)'#10 'DO = :ID_PEDIDO,'#10' ID_ARTICULO_REEMPLAZADO = :ID_ARTICULO_REEM' +
'PLAZADO'#10' WHERE'#10' (ID = :OLD_ID)'#10
StatementType = stSQL StatementType = stSQL
ColumnMappings = <> ColumnMappings = <>
end> end>

4
Source/Modulos/Albaranes de cliente/Servidor/srvAlbaranesCliente_Impl.pas
View File

@ -18,7 +18,6 @@ uses
uDAScriptingProvider, uDAClasses, uDAScriptingProvider, uDAClasses,
FactuGES_Intf, uDAInterfaces, uROClient; FactuGES_Intf, uDAInterfaces, uROClient;
type type
{ TsrvAlbaranesCliente } { TsrvAlbaranesCliente }
TsrvAlbaranesCliente = class(TDataAbstractService, IsrvAlbaranesCliente) TsrvAlbaranesCliente = class(TDataAbstractService, IsrvAlbaranesCliente)
@ -54,8 +53,7 @@ begin
end; end;
{ srvAlbaranesCliente } { srvAlbaranesCliente }
procedure TsrvAlbaranesCliente.DARemoteServiceBeforeGetDatasetData( procedure TsrvAlbaranesCliente.DARemoteServiceBeforeGetDatasetData(const Dataset: IDADataset; const IncludeSchema: Boolean;
const Dataset: IDADataset; const IncludeSchema: Boolean;
const MaxRecords: Integer); const MaxRecords: Integer);
begin begin
if DataSet.Name = nme_AlbaranesCliente then if DataSet.Name = nme_AlbaranesCliente then

3
Source/Modulos/Albaranes de cliente/Views/uEditorAlbaranesCliente.pas
View File

@ -162,7 +162,8 @@ begin
if (Sender as TAction).Enabled if (Sender as TAction).Enabled
and (FAlbaranes.TIPO = CTE_TIPO_ALBARAN) then and (FAlbaranes.TIPO = CTE_TIPO_ALBARAN) then
(Sender as TAction).Enabled := not (FAlbaranes.ID_FACTURA > 0) (Sender as TAction).Enabled := not (FAlbaranes.ID_FACTURA > 0)
and (FAlbaranes.SITUACION = SITUACION_ALBARAN_PENDIENTE) //En noviseda no se tiene en cuenta las diferenctes situaciones que puede tener un albaran
// and (FAlbaranes.SITUACION = SITUACION_ALBARAN_PENDIENTE)
end; end;
procedure TfEditorAlbaranesCliente.actGenerarEtiquetasExecute(Sender: TObject); procedure TfEditorAlbaranesCliente.actGenerarEtiquetasExecute(Sender: TObject);

152
Source/Modulos/Albaranes de cliente/Views/uViewDetallesAlbaranCliente.dfm
View File

@ -1,106 +1,113 @@
inherited frViewDetallesAlbaranCliente: TfrViewDetallesAlbaranCliente inherited frViewDetallesAlbaranCliente: TfrViewDetallesAlbaranCliente
Width = 701
inherited ToolBar1: TToolBar inherited ToolBar1: TToolBar
Height = 122 Width = 701
ExplicitHeight = 122 Height = 78
inherited ToolButton13: TToolButton [3] ExplicitHeight = 78
Left = 0 inherited ToolButton14: TToolButton [3]
Left = 220
Top = 0 Top = 0
Wrap = True ExplicitLeft = 220
ExplicitLeft = 0
ExplicitTop = 0 ExplicitTop = 0
ExplicitHeight = 27
end end
inherited ToolButton4: TToolButton [4] inherited FontName: TJvFontComboBox [4]
Top = 27 Left = 285
Top = 0
ExplicitLeft = 285
ExplicitTop = 0
end end
inherited ToolButton7: TToolButton [5] inherited FontSize: TEdit [5]
Left = 56 Left = 430
Top = 0
Width = 154
ExplicitLeft = 430
ExplicitTop = 0
ExplicitWidth = 154
end
inherited ToolButton13: TToolButton
Top = 0
ExplicitTop = 0
end
inherited ToolButton2: TToolButton [7]
end
inherited UpDown1: TUpDown [8]
Left = 114
Top = 27 Top = 27
ExplicitLeft = 56 ExplicitLeft = 114
ExplicitTop = 27 ExplicitTop = 27
end end
inherited FontName: TJvFontComboBox [6] inherited ToolButton6: TToolButton [9]
Left = 123 Left = 131
Top = 27 Top = 27
ExplicitLeft = 123 ExplicitLeft = 131
ExplicitTop = 27 ExplicitTop = 27
end end
inherited ToolButton14: TToolButton [7] inherited ToolButton7: TToolButton [10]
Left = 268 Left = 197
Top = 27 Top = 27
ExplicitLeft = 268 ExplicitLeft = 197
ExplicitTop = 27 ExplicitTop = 27
end end
inherited ToolButton9: TToolButton [8] inherited ToolButton8: TToolButton [11]
Left = 264
Top = 27
ExplicitLeft = 264
ExplicitTop = 27
end
inherited ToolButton12: TToolButton [12]
Top = 27
ExplicitTop = 27
end
inherited ToolButton9: TToolButton [13]
Left = 0 Left = 0
Top = 49 Top = 54
ExplicitLeft = 0 ExplicitLeft = 0
ExplicitTop = 49 ExplicitTop = 54
end end
inherited ToolButton12: TToolButton [9] inherited ToolButton10: TToolButton [14]
Left = 0
Top = 49
Wrap = True
ExplicitLeft = 0
ExplicitTop = 49
ExplicitHeight = 27
end end
inherited FontSize: TEdit [10] inherited ToolButton11: TToolButton [15]
Left = 0 Left = 270
Top = 76 Top = 54
Width = 122 ExplicitLeft = 270
ExplicitLeft = 0 ExplicitTop = 54
ExplicitTop = 76
ExplicitWidth = 122
end
inherited UpDown1: TUpDown [11]
Left = 122
Top = 76
ExplicitLeft = 122
ExplicitTop = 76
end
inherited ToolButton6: TToolButton [12]
Left = 139
Top = 76
ExplicitLeft = 139
ExplicitTop = 76
end
inherited ToolButton10: TToolButton [13]
Left = 205
Top = 76
Wrap = True
ExplicitLeft = 205
ExplicitTop = 76
end
inherited ToolButton8: TToolButton [14]
Left = 0
Top = 98
ExplicitLeft = 0
ExplicitTop = 98
end
inherited ToolButton11: TToolButton
Left = 83
Top = 98
ExplicitLeft = 83
ExplicitTop = 98
end end
end end
inherited cxGrid: TcxGrid inherited cxGrid: TcxGrid
Top = 148 Top = 104
Height = 156 Width = 701
ExplicitTop = 126 Height = 200
ExplicitHeight = 178 ExplicitHeight = 178
inherited cxGridView: TcxGridDBTableView inherited cxGridView: TcxGridDBTableView
inherited cxGridViewTIPO: TcxGridDBColumn inherited cxGridViewTIPO: TcxGridDBColumn
Visible = False Visible = False
VisibleForCustomization = False VisibleForCustomization = False
end end
inherited cxGridViewREFERENCIA: TcxGridDBColumn
Caption = 'Referencia pedida'
end
object cxGridViewIR_ARTICULO_REEMPLAZADO: TcxGridDBColumn [6]
DataBinding.FieldName = 'ID_ARTICULO_REEMPLAZADO'
Visible = False
VisibleForCustomization = False
end
object cxGridViewREFERENCIA_ART_REEMPLAZADO: TcxGridDBColumn [7]
Caption = 'Referencia reemplazada'
DataBinding.FieldName = 'REFERENCIA_ART_REEMPLAZADO'
PropertiesClassName = 'TcxButtonEditProperties'
Properties.Buttons = <
item
Default = True
Kind = bkEllipsis
end>
Properties.OnButtonClick = cxGridViewREFERENCIA_ART_REEMPLAZADOPropertiesButtonClick
end
inherited cxGridViewCANTIDAD: TcxGridDBColumn inherited cxGridViewCANTIDAD: TcxGridDBColumn
Properties.ReadOnly = True Properties.ReadOnly = True
Visible = False Visible = False
VisibleForCustomization = False VisibleForCustomization = False
end end
object cxGridViewCANTIDAD2: TcxGridDBColumn [10] object cxGridViewCANTIDAD2: TcxGridDBColumn [12]
Caption = 'Cantidad' Caption = 'Cantidad'
DataBinding.FieldName = 'CANTIDAD' DataBinding.FieldName = 'CANTIDAD'
PropertiesClassName = 'TcxButtonEditProperties' PropertiesClassName = 'TcxButtonEditProperties'
@ -120,8 +127,9 @@ inherited frViewDetallesAlbaranCliente: TfrViewDetallesAlbaranCliente
end end
end end
inherited TBXDock1: TSpTBXDock inherited TBXDock1: TSpTBXDock
Top = 122 Top = 78
ExplicitTop = 68 Width = 701
ExplicitTop = 100
inherited TBXToolbar1: TSpTBXToolbar inherited TBXToolbar1: TSpTBXToolbar
DockPos = 0 DockPos = 0
ExplicitWidth = 447 ExplicitWidth = 447

47
Source/Modulos/Albaranes de cliente/Views/uViewDetallesAlbaranCliente.pas
View File

@ -31,7 +31,13 @@ type
Aadirartculos1: TMenuItem; Aadirartculos1: TMenuItem;
TBXItem18: TSpTBXItem; TBXItem18: TSpTBXItem;
cxGridViewCANTIDAD2: TcxGridDBColumn; cxGridViewCANTIDAD2: TcxGridDBColumn;
cxGridViewIR_ARTICULO_REEMPLAZADO: TcxGridDBColumn;
cxGridViewREFERENCIA_ART_REEMPLAZADO: TcxGridDBColumn;
procedure cxGridViewCANTIDAD2PropertiesButtonClick(Sender: TObject; AButtonIndex: Integer); procedure cxGridViewCANTIDAD2PropertiesButtonClick(Sender: TObject; AButtonIndex: Integer);
procedure cxGridViewREFERENCIA_ART_REEMPLAZADOPropertiesButtonClick(Sender: TObject; AButtonIndex: Integer);
procedure OnValidateReferencia_ART_REEMPLAZADO(Sender: TObject; var DisplayValue: Variant; var ErrorText: TCaption; var Error: Boolean);
procedure CustomViewCreate(Sender: TObject);
procedure CustomViewDestroy(Sender: TObject);
protected protected
FAlbaran: IBizAlbaranCliente; FAlbaran: IBizAlbaranCliente;
function GetAlbaran: IBizAlbaranCliente; function GetAlbaran: IBizAlbaranCliente;
@ -48,7 +54,7 @@ type
implementation implementation
{$R *.dfm} {$R *.dfm}
uses uDetallesAlbaranClienteController, uViewDetallesBase; uses uDetallesAlbaranClienteController, uViewDetallesBase, uDialogUtils;
{ TfrViewDetallesAlbaranProveedor } { TfrViewDetallesAlbaranProveedor }
@ -68,6 +74,18 @@ begin
(Controller as IDetallesAlbaranClienteController).AnadirArticulos(Detalles, Albaran.Cliente, true, 0); (Controller as IDetallesAlbaranClienteController).AnadirArticulos(Detalles, Albaran.Cliente, true, 0);
end; end;
procedure TfrViewDetallesAlbaranCliente.CustomViewCreate(Sender: TObject);
begin
inherited;
cxGridViewREFERENCIA_ART_REEMPLAZADO.Properties.OnValidate := OnValidateReferencia_ART_REEMPLAZADO;
end;
procedure TfrViewDetallesAlbaranCliente.CustomViewDestroy(Sender: TObject);
begin
cxGridViewREFERENCIA_ART_REEMPLAZADO.Properties.OnValidate := Nil;
inherited;
end;
procedure TfrViewDetallesAlbaranCliente.cxGridViewCANTIDAD2PropertiesButtonClick( procedure TfrViewDetallesAlbaranCliente.cxGridViewCANTIDAD2PropertiesButtonClick(
Sender: TObject; AButtonIndex: Integer); Sender: TObject; AButtonIndex: Integer);
begin begin
@ -75,11 +93,38 @@ begin
(Controller as IDetallesAlbaranClienteController).ModificarCantidadColores(Detalles); (Controller as IDetallesAlbaranClienteController).ModificarCantidadColores(Detalles);
end; end;
procedure TfrViewDetallesAlbaranCliente.cxGridViewREFERENCIA_ART_REEMPLAZADOPropertiesButtonClick(
Sender: TObject; AButtonIndex: Integer);
begin
inherited;
//
end;
function TfrViewDetallesAlbaranCliente.GetAlbaran: IBizAlbaranCliente; function TfrViewDetallesAlbaranCliente.GetAlbaran: IBizAlbaranCliente;
begin begin
Result := FAlbaran; Result := FAlbaran;
end; end;
procedure TfrViewDetallesAlbaranCliente.OnValidateReferencia_ART_REEMPLAZADO(Sender: TObject; var DisplayValue: Variant; var ErrorText: TCaption;
var Error: Boolean);
var
lsReferencia : String;
begin
//En el caso de cadena vacia no validamos
if (VarIsNull(DisplayValue)) then
Exit;
lsReferencia := VarToStr(DisplayValue);
if (length(trim(lsReferencia)) = 0) then
Exit;
if not AnadirArticulo(lsReferencia, tClienteReemplazo) then
begin
ErrorText := 'La referencia introducida no exite en el catálogo';
Error := True;
end;
end;
procedure TfrViewDetallesAlbaranCliente.RellenarArticulosInterno; procedure TfrViewDetallesAlbaranCliente.RellenarArticulosInterno;
begin begin
if (Albaran.TIPO = CTE_TIPO_ALBARAN_DEV) then if (Albaran.TIPO = CTE_TIPO_ALBARAN_DEV) then

2
Source/Modulos/Almacenes/Plugin/uPluginAlmacenes.dfm
View File

@ -48,9 +48,7 @@ object PluginAlmacenes: TPluginAlmacenes
Tag = 100 Tag = 100
Category = 'Log'#237'stica' Category = 'Log'#237'stica'
Caption = 'Almacenes' Caption = 'Almacenes'
Enabled = False
ImageIndex = 0 ImageIndex = 0
Visible = False
OnExecute = actAlmacenesExecute OnExecute = actAlmacenesExecute
end end
end end

88
Source/Modulos/Almacenes/Views/uEditorAlmacenes.dfm
View File

@ -30,28 +30,25 @@ inherited fEditorAlmacenes: TfEditorAlmacenes
end end
inherited TBXDock: TSpTBXDock inherited TBXDock: TSpTBXDock
inherited tbxMain: TSpTBXToolbar inherited tbxMain: TSpTBXToolbar
ExplicitWidth = 474 ExplicitWidth = 617
end end
inherited tbxFiltro: TSpTBXToolbar inherited tbxFiltro: TSpTBXToolbar
ExplicitWidth = 269 ExplicitWidth = 328
inherited tbxEditFiltro: TSpTBXEditItem
EditOptions = [tboUseEditWhenVertical]
end
inherited TBXItem37: TSpTBXItem inherited TBXItem37: TSpTBXItem
Visible = False Visible = False
end end
end end
inherited TBXTMain2: TSpTBXToolbar inherited TBXTMain2: TSpTBXToolbar
Left = 275 Left = 328
DockPos = 275 DockPos = 275
ExplicitLeft = 275 ExplicitLeft = 328
end end
end end
inline frViewAlmacenes1: TfrViewAlmacenes [3] inline frViewAlmacenes1: TfrViewAlmacenes [3]
Left = 0 Left = 0
Top = 102 Top = 102
Width = 543 Width = 894
Height = 323 Height = 383
Align = alClient Align = alClient
Font.Charset = DEFAULT_CHARSET Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText Font.Color = clWindowText
@ -62,13 +59,13 @@ inherited fEditorAlmacenes: TfEditorAlmacenes
TabOrder = 3 TabOrder = 3
ReadOnly = False ReadOnly = False
ExplicitTop = 102 ExplicitTop = 102
ExplicitWidth = 543 ExplicitWidth = 894
ExplicitHeight = 323 ExplicitHeight = 383
inherited cxGrid: TcxGrid inherited cxGrid: TcxGrid
Width = 543 Width = 894
Height = 195 Height = 255
ExplicitWidth = 543 ExplicitWidth = 894
ExplicitHeight = 195 ExplicitHeight = 255
inherited cxGridView: TcxGridDBTableView inherited cxGridView: TcxGridDBTableView
DataController.Summary.FooterSummaryItems = < DataController.Summary.FooterSummaryItems = <
item item
@ -79,13 +76,14 @@ inherited fEditorAlmacenes: TfEditorAlmacenes
end end
end end
inherited frViewFiltroBase1: TfrViewFiltroBase inherited frViewFiltroBase1: TfrViewFiltroBase
Width = 543 Width = 894
ExplicitWidth = 543 ExplicitWidth = 894
inherited TBXDockablePanel1: TSpTBXDockablePanel inherited TBXDockablePanel1: TSpTBXDockablePanel
ExplicitWidth = 543 Width = 894
ExplicitWidth = 894
inherited dxLayoutControl1: TdxLayoutControl inherited dxLayoutControl1: TdxLayoutControl
Width = 543 Width = 894
ExplicitWidth = 543 ExplicitWidth = 894
inherited txtFiltroTodo: TcxTextEdit inherited txtFiltroTodo: TcxTextEdit
Style.LookAndFeel.SkinName = '' Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = '' StyleDisabled.LookAndFeel.SkinName = ''
@ -103,36 +101,45 @@ inherited fEditorAlmacenes: TfEditorAlmacenes
Width = 233 Width = 233
end end
inherited edtFechaFinFiltro: TcxDateEdit inherited edtFechaFinFiltro: TcxDateEdit
Left = 337 Left = 377
Style.LookAndFeel.SkinName = '' Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = '' StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = '' StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = '' StyleHot.LookAndFeel.SkinName = ''
ExplicitLeft = 337 ExplicitLeft = 377
ExplicitWidth = 196 end
Width = 196 inherited eLista: TcxComboBox
Left = 637
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitLeft = 637
ExplicitWidth = 215
Width = 215
end end
end end
inherited TBXAlignmentPanel1: TSpTBXDockablePanel inherited TBXAlignmentPanel1: TSpTBXDockablePanel
Width = 543 Width = 884
ExplicitWidth = 543 ExplicitWidth = 884
inherited tbxBotones: TSpTBXToolbar inherited tbxBotones: TSpTBXToolbar
Width = 533 Width = 884
ExplicitWidth = 533 ExplicitWidth = 884
end end
end end
end end
end end
inherited pnlAgrupaciones: TSpTBXDockablePanel inherited pnlAgrupaciones: TSpTBXDockablePanel
Top = 297 Top = 357
ExplicitTop = 297 Width = 894
ExplicitWidth = 543 ExplicitTop = 357
ExplicitWidth = 894
inherited TBXAlignmentPanel1: TSpTBXDockablePanel inherited TBXAlignmentPanel1: TSpTBXDockablePanel
Width = 543 Width = 894
ExplicitWidth = 543 ExplicitWidth = 894
inherited TBXToolbar1: TSpTBXToolbar inherited TBXToolbar1: TSpTBXToolbar
Width = 533 Width = 894
ExplicitWidth = 533 ExplicitWidth = 894
end end
end end
end end
@ -142,6 +149,17 @@ inherited fEditorAlmacenes: TfEditorAlmacenes
BuiltInReportLink = True BuiltInReportLink = True
end end
end end
inherited dxPSEngineController1: TdxPSEngineController
Active = True
end
inherited cxViewGridPopupMenu: TcxGridPopupMenu
PopupMenus = <
item
GridView = frViewAlmacenes1.cxGridView
HitTypes = [gvhtCell]
Index = 0
end>
end
end end
inherited EditorActionList: TActionList [4] inherited EditorActionList: TActionList [4]
inherited actNuevo: TAction inherited actNuevo: TAction

2
Source/Modulos/Almacenes/Views/uEditorAlmacenes.pas
View File

@ -12,7 +12,7 @@ uses
JvAppRegistryStorage, JvFormPlacement, ExtCtrls, uCustomView, uViewBase, JvAppRegistryStorage, JvFormPlacement, ExtCtrls, uCustomView, uViewBase,
uViewBarraSeleccion, pngimage, uIEditorAlmacenes, uEditorGridBase, uViewBarraSeleccion, pngimage, uIEditorAlmacenes, uEditorGridBase,
JvComponentBase, uViewGridBase, uAlmacenesController, JvExComCtrls, JvComponentBase, uViewGridBase, uAlmacenesController, JvExComCtrls,
JvStatusBar, uDAInterfaces; JvStatusBar, uDAInterfaces, StdCtrls, TntStdCtrls, SpTBXEditors;
type type
TfEditorAlmacenes = class(TfEditorGridBase, IEditorAlmacenes) TfEditorAlmacenes = class(TfEditorGridBase, IEditorAlmacenes)

27
Source/Modulos/Almacenes/Views/uViewAlmacenes.dfm
View File

@ -6,7 +6,8 @@ inherited frViewAlmacenes: TfrViewAlmacenes
inherited cxGrid: TcxGrid inherited cxGrid: TcxGrid
Width = 770 Width = 770
Height = 365 Height = 365
ExplicitTop = 102 ExplicitWidth = 770
ExplicitHeight = 365
inherited cxGridView: TcxGridDBTableView inherited cxGridView: TcxGridDBTableView
DataController.KeyFieldNames = 'ID' DataController.KeyFieldNames = 'ID'
DataController.Summary.FooterSummaryItems = < DataController.Summary.FooterSummaryItems = <
@ -58,9 +59,12 @@ inherited frViewAlmacenes: TfrViewAlmacenes
end end
inherited frViewFiltroBase1: TfrViewFiltroBase inherited frViewFiltroBase1: TfrViewFiltroBase
Width = 770 Width = 770
ExplicitWidth = 770
inherited TBXDockablePanel1: TSpTBXDockablePanel inherited TBXDockablePanel1: TSpTBXDockablePanel
Width = 770
inherited dxLayoutControl1: TdxLayoutControl inherited dxLayoutControl1: TdxLayoutControl
Width = 770 Width = 770
ExplicitWidth = 770
inherited txtFiltroTodo: TcxTextEdit inherited txtFiltroTodo: TcxTextEdit
Style.LookAndFeel.SkinName = '' Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = '' StyleDisabled.LookAndFeel.SkinName = ''
@ -74,29 +78,40 @@ inherited frViewAlmacenes: TfrViewAlmacenes
StyleHot.LookAndFeel.SkinName = '' StyleHot.LookAndFeel.SkinName = ''
end end
inherited edtFechaFinFiltro: TcxDateEdit inherited edtFechaFinFiltro: TcxDateEdit
Left = 474 Left = 338
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitLeft = 338
end
inherited eLista: TcxComboBox
Style.LookAndFeel.SkinName = '' Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = '' StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = '' StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = '' StyleHot.LookAndFeel.SkinName = ''
ExplicitLeft = 474
end end
end end
inherited TBXAlignmentPanel1: TSpTBXDockablePanel inherited TBXAlignmentPanel1: TSpTBXDockablePanel
Width = 770 Width = 760
ExplicitWidth = 770
inherited tbxBotones: TSpTBXToolbar inherited tbxBotones: TSpTBXToolbar
Width = 760 Width = 760
ExplicitWidth = 760
end end
end end
end end
end end
inherited pnlAgrupaciones: TSpTBXDockablePanel inherited pnlAgrupaciones: TSpTBXDockablePanel
Top = 467 Top = 467
ExplicitWidth = 607 Width = 770
ExplicitTop = 467
inherited TBXAlignmentPanel1: TSpTBXDockablePanel inherited TBXAlignmentPanel1: TSpTBXDockablePanel
Width = 770 Width = 770
ExplicitWidth = 770
inherited TBXToolbar1: TSpTBXToolbar inherited TBXToolbar1: TSpTBXToolbar
Width = 760 Width = 770
ExplicitWidth = 760
end end
end end
end end

5
Source/Modulos/Almacenes/Views/uViewAlmacenes.pas
View File

@ -13,7 +13,10 @@ uses
dxPrnPg, dxBkgnd, dxWrap, dxPrnDev, dxPSCompsProvider, dxPSFillPatterns, dxPrnPg, dxBkgnd, dxWrap, dxPrnDev, dxPSCompsProvider, dxPSFillPatterns,
dxPSEdgePatterns, dxPSCore, dxPScxCommon, dxPScxGrid6Lnk, dxPSEdgePatterns, dxPSCore, dxPScxCommon, dxPScxGrid6Lnk,
cxGridCustomPopupMenu, cxGridPopupMenu, uViewFiltroBase, TB2Item, SpTBXItem, cxGridCustomPopupMenu, cxGridPopupMenu, uViewFiltroBase, TB2Item, SpTBXItem,
TB2Toolbar, SpTBXDkPanels, TB2Dock, dxPgsDlg, uDAInterfaces; TB2Toolbar, SpTBXDkPanels, TB2Dock, dxPgsDlg, uDAInterfaces, cxLookAndFeels,
cxLookAndFeelPainters, dxPSPDFExportCore, dxPSPDFExport, cxDrawTextUtils,
dxPSPrVwStd, dxPSPrVwAdv, dxPScxEditorProducers, dxPScxExtEditorProducers,
dxPScxPageControlProducer, uCustomView, uViewBase;
type type
IViewAlmacenes = interface(IViewGrid) IViewAlmacenes = interface(IViewGrid)

33
Source/Modulos/Articulos/Controller/uControllerDetallesArticulos.pas
View File

@ -8,9 +8,10 @@ uses Classes, Variants, uDACDSDataTable, uDADataTable, uControllerDetallesBase,
const const
CAMPO_REFERENCIA = 'REFERENCIA'; //Campo ficticio CAMPO_REFERENCIA = 'REFERENCIA'; //Campo ficticio
CAMPO_REFERENCIA_PROVEEDOR = 'REFERENCIA_PROVEEDOR'; //Campo ficticio CAMPO_REFERENCIA_PROVEEDOR = 'REFERENCIA_PROVEEDOR'; //Campo ficticio
CAMPO_REFERENCIA_ART_REEMPLAZADO = 'REFERENCIA_ART_REEMPLAZADO'; //Campo ficticio
type type
TEnumReferencia = (tCliente, tProveedor); TEnumReferencia = (tCliente, tProveedor, tClienteReemplazo);
IControllerDetallesArticulos = interface(IControllerDetallesBase) IControllerDetallesArticulos = interface(IControllerDetallesBase)
['{6E156796-DB1F-4727-BBFB-FBAEF2E5C098}'] ['{6E156796-DB1F-4727-BBFB-FBAEF2E5C098}']
@ -34,6 +35,7 @@ type
procedure RellenarGenerales(ADetalles: IDAStronglyTypedDataTable; AArticulos: IBizArticulo); virtual; procedure RellenarGenerales(ADetalles: IDAStronglyTypedDataTable; AArticulos: IBizArticulo); virtual;
procedure RellenarCantidad(ADetalles: IDAStronglyTypedDataTable; const ACantidad: Float); virtual; procedure RellenarCantidad(ADetalles: IDAStronglyTypedDataTable; const ACantidad: Float); virtual;
procedure RellenarDetalle(ADetalles: IDAStronglyTypedDataTable; AArticulos: IBizArticulo; const ACantidad: Float = 1); virtual; procedure RellenarDetalle(ADetalles: IDAStronglyTypedDataTable; AArticulos: IBizArticulo; const ACantidad: Float = 1); virtual;
procedure RellenarDetalleReemplazo(ADetalles: IDAStronglyTypedDataTable; AArticulos: IBizArticulo; const ACantidad: Float = 1); virtual;
procedure Add(ADetalles: IDAStronglyTypedDataTable; AArticulos: IBizArticulo; const ACantidad: Float = 1); overload; procedure Add(ADetalles: IDAStronglyTypedDataTable; AArticulos: IBizArticulo; const ACantidad: Float = 1); overload;
procedure AsignarController; virtual; procedure AsignarController; virtual;
@ -313,7 +315,7 @@ begin
ShowHourglassCursor; ShowHourglassCursor;
try try
case TipoReferencia of case TipoReferencia of
tCliente: AArticulo := FArticulosController.BuscarReferencia(Referencia, AClienteID); tCliente, tClienteReemplazo: AArticulo := FArticulosController.BuscarReferencia(Referencia, AClienteID);
tProveedor: AArticulo := FArticulosController.BuscarReferenciaProveedor(Referencia, AClienteID) tProveedor: AArticulo := FArticulosController.BuscarReferenciaProveedor(Referencia, AClienteID)
end; end;
@ -322,7 +324,10 @@ begin
AArticulo.DataTable.Active := True; AArticulo.DataTable.Active := True;
if (AArticulo.RecordCount > 0) then if (AArticulo.RecordCount > 0) then
begin begin
RellenarDetalle(ADetalles, AArticulo, ACantidad); case TipoReferencia of
tClienteReemplazo: RellenarDetalleReemplazo(ADetalles, AArticulo, ACantidad);
tCliente, tProveedor: RellenarDetalle(ADetalles, AArticulo, ACantidad);
end;
Result := True; Result := True;
end; end;
end; end;
@ -368,6 +373,28 @@ begin
end; end;
end; end;
procedure TControllerDetallesArticulos.RellenarDetalleReemplazo(ADetalles: IDAStronglyTypedDataTable; AArticulos: IBizArticulo;
const ACantidad: Float);
begin
if Assigned(ADetalles)
and Assigned(AArticulos) then
begin
BeginUpdate(ADetalles);
try
if not ADetalles.DataTable.Editing then
ADetalles.DataTable.Edit;
ADetalles.DataTable.FieldByName(CAMPO_ID_ARTICULOS_REEMPLAZADO).AsVariant := AArticulos.ID;
ADetalles.DataTable.FieldByName(CAMPO_REFERENCIA_ART_REEMPLAZADO).AsVariant := AArticulos.REFERENCIA;
if ADetalles.DataTable.Editing then
ADetalles.DataTable.Post;
finally
EndUpdate(ADetalles);
end;
end;
end;
procedure TControllerDetallesArticulos.RellenarGenerales(ADetalles: IDAStronglyTypedDataTable; AArticulos: IBizArticulo); procedure TControllerDetallesArticulos.RellenarGenerales(ADetalles: IDAStronglyTypedDataTable; AArticulos: IBizArticulo);
begin begin
if Assigned(AArticulos) then if Assigned(AArticulos) then

119
Source/Modulos/Articulos/Views/uViewDetallesArticulos.dfm
View File

@ -2,97 +2,51 @@ inherited frViewDetallesArticulos: TfrViewDetallesArticulos
ParentBiDiMode = False ParentBiDiMode = False
OnShow = CustomViewShow OnShow = CustomViewShow
inherited ToolBar1: TToolBar inherited ToolBar1: TToolBar
Height = 95 inherited FontSize: TEdit
ExplicitHeight = 95
inherited ToolButton3: TToolButton [1]
Left = 109
Wrap = False
ExplicitLeft = 109
end
inherited ToolButton2: TToolButton [2]
Left = 164
ExplicitLeft = 164
end
inherited ToolButton13: TToolButton [3]
Left = 278
Top = 0
Wrap = False
ExplicitLeft = 278
ExplicitTop = 0
ExplicitHeight = 22
end
inherited ToolButton12: TToolButton [4]
Top = 0
ExplicitTop = 0
end
inherited ToolButton4: TToolButton [5]
Top = 30
ExplicitTop = 30
end
inherited ToolButton14: TToolButton [6]
Top = 30
ExplicitTop = 30
end
inherited ToolButton9: TToolButton [7]
Top = 30
Wrap = True
ExplicitTop = 30
end
inherited FontName: TJvFontComboBox [8]
Left = 0
Top = 52
ExplicitLeft = 0
ExplicitTop = 52
end
inherited UpDown1: TUpDown [9]
Left = 145
Top = 52
Width = 17
ExplicitLeft = 145
ExplicitTop = 52
ExplicitWidth = 17
end
inherited ToolButton7: TToolButton
Left = 162
ExplicitLeft = 162
end
inherited ToolButton10: TToolButton [11]
Left = 229
Top = 52
Wrap = True
ExplicitLeft = 229
ExplicitTop = 52
end
inherited ToolButton6: TToolButton [12]
Top = 74
ExplicitTop = 74
end
inherited FontSize: TEdit [13]
Left = 66
Top = 74
Width = 42 Width = 42
ExplicitLeft = 66
ExplicitTop = 74
ExplicitWidth = 42 ExplicitWidth = 42
end end
inherited ToolButton11: TToolButton [14] inherited UpDown1: TUpDown
Left = 108 Left = 187
Top = 74 Width = 17
ExplicitLeft = 108 ExplicitLeft = 187
ExplicitTop = 74 ExplicitWidth = 17
end
inherited ToolButton13: TToolButton
Left = 204
ExplicitLeft = 204
end
inherited ToolButton6: TToolButton
Left = 212
ExplicitLeft = 212
end
inherited ToolButton7: TToolButton
Left = 278
ExplicitLeft = 278
end end
inherited ToolButton8: TToolButton inherited ToolButton8: TToolButton
Left = 249 Left = 345
Top = 74 ExplicitLeft = 345
ExplicitLeft = 249 end
ExplicitTop = 74 inherited ToolButton12: TToolButton
Left = 428
ExplicitLeft = 428
end
inherited ToolButton9: TToolButton
Left = 436
ExplicitLeft = 436
end
inherited ToolButton10: TToolButton
Left = 581
ExplicitLeft = 581
end
inherited ToolButton11: TToolButton
Left = 706
ExplicitLeft = 706
end end
end end
inherited cxGrid: TcxGrid inherited cxGrid: TcxGrid
Top = 121
Height = 183
ExplicitTop = 121 ExplicitTop = 121
ExplicitHeight = 178
inherited cxGridView: TcxGridDBTableView inherited cxGridView: TcxGridDBTableView
inherited cxGridViewTIPO: TcxGridDBColumn inherited cxGridViewTIPO: TcxGridDBColumn
MinWidth = 69 MinWidth = 69
@ -181,7 +135,6 @@ inherited frViewDetallesArticulos: TfrViewDetallesArticulos
end end
end end
inherited TBXDock1: TSpTBXDock inherited TBXDock1: TSpTBXDock
Top = 95
ExplicitTop = 100 ExplicitTop = 100
inherited TBXToolbar1: TSpTBXToolbar inherited TBXToolbar1: TSpTBXToolbar
inherited TBXSubmenuItem1: TSpTBXSubmenuItem inherited TBXSubmenuItem1: TSpTBXSubmenuItem

3
Source/Modulos/Articulos/Views/uViewDetallesArticulos.pas
View File

@ -39,8 +39,7 @@ type
procedure OnValidateReferencia(Sender: TObject; var DisplayValue: Variant; var ErrorText: TCaption; var Error: Boolean); procedure OnValidateReferencia(Sender: TObject; var DisplayValue: Variant; var ErrorText: TCaption; var Error: Boolean);
procedure OnValidateReferenciaProveedor(Sender: TObject; var DisplayValue: Variant; var ErrorText: TCaption; var Error: Boolean); procedure OnValidateReferenciaProveedor(Sender: TObject; var DisplayValue: Variant; var ErrorText: TCaption; var Error: Boolean);
procedure CustomViewShow(Sender: TObject); procedure CustomViewShow(Sender: TObject);
procedure cxGridViewREFERENCIAPropertiesButtonClick(Sender: TObject; procedure cxGridViewREFERENCIAPropertiesButtonClick(Sender: TObject; AButtonIndex: Integer);
AButtonIndex: Integer);
procedure actBuscarArticuloExecute(Sender: TObject); procedure actBuscarArticuloExecute(Sender: TObject);
procedure actBuscarArticuloUpdate(Sender: TObject); procedure actBuscarArticuloUpdate(Sender: TObject);
procedure actDetalleCopiarExecute(Sender: TObject); procedure actDetalleCopiarExecute(Sender: TObject);

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

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

23
Source/Modulos/Inventario/Views/uEditorInventario.dfm
View File

@ -106,7 +106,7 @@ inherited fEditorInventario: TfEditorInventario
end end
end end
inherited tbxFiltro: TSpTBXToolbar inherited tbxFiltro: TSpTBXToolbar
ExplicitWidth = 269 ExplicitWidth = 328
inherited TBXItem37: TSpTBXItem inherited TBXItem37: TSpTBXItem
Visible = False Visible = False
end end
@ -115,10 +115,10 @@ inherited fEditorInventario: TfEditorInventario
ExplicitWidth = 669 ExplicitWidth = 669
end end
inherited TBXTMain2: TSpTBXToolbar inherited TBXTMain2: TSpTBXToolbar
Left = 269 Left = 328
DockPos = 264 DockPos = 264
Visible = True Visible = True
ExplicitLeft = 269 ExplicitLeft = 328
ExplicitWidth = 113 ExplicitWidth = 113
object TBXItem38: TSpTBXItem object TBXItem38: TSpTBXItem
Action = actReservados Action = actReservados
@ -205,6 +205,7 @@ inherited fEditorInventario: TfEditorInventario
TabOrder = 0 TabOrder = 0
ExplicitWidth = 669 ExplicitWidth = 669
inherited TBXDockablePanel1: TSpTBXDockablePanel inherited TBXDockablePanel1: TSpTBXDockablePanel
Width = 669
ExplicitWidth = 669 ExplicitWidth = 669
inherited dxLayoutControl1: TdxLayoutControl inherited dxLayoutControl1: TdxLayoutControl
Width = 669 Width = 669
@ -247,21 +248,18 @@ inherited fEditorInventario: TfEditorInventario
end end
end end
inherited TBXAlignmentPanel1: TSpTBXDockablePanel inherited TBXAlignmentPanel1: TSpTBXDockablePanel
Width = 669 Width = 659
ExplicitWidth = 669 ExplicitWidth = 659
inherited tbxBotones: TSpTBXToolbar inherited tbxBotones: TSpTBXToolbar
Width = 659 Width = 659
ExplicitWidth = 659 ExplicitWidth = 659
end end
end end
end end
inherited dxLayoutLookAndFeelList1: TdxLayoutLookAndFeelList
Left = 128
Top = 8
end
end end
inherited pnlAgrupaciones: TSpTBXDockablePanel inherited pnlAgrupaciones: TSpTBXDockablePanel
Top = 393 Top = 393
Width = 669
TabOrder = 1 TabOrder = 1
ExplicitTop = 393 ExplicitTop = 393
ExplicitWidth = 669 ExplicitWidth = 669
@ -269,8 +267,8 @@ inherited fEditorInventario: TfEditorInventario
Width = 669 Width = 669
ExplicitWidth = 669 ExplicitWidth = 669
inherited TBXToolbar1: TSpTBXToolbar inherited TBXToolbar1: TSpTBXToolbar
Width = 659 Width = 669
ExplicitWidth = 659 ExplicitWidth = 669
end end
end end
end end
@ -288,6 +286,9 @@ inherited fEditorInventario: TfEditorInventario
BuiltInReportLink = True BuiltInReportLink = True
end end
end end
inherited dxPSEngineController1: TdxPSEngineController
Active = True
end
inherited cxViewGridPopupMenu: TcxGridPopupMenu inherited cxViewGridPopupMenu: TcxGridPopupMenu
PopupMenus = < PopupMenus = <
item item

3
Source/Modulos/Inventario/Views/uEditorInventario.pas
View File

@ -12,7 +12,8 @@ uses
uViewBase, uViewBarraSeleccion, JvComponentBase, uEditorGridBase, uViewBase, uViewBarraSeleccion, JvComponentBase, uEditorGridBase,
uIEditorInventario, uBizInventario, uViewGridBase, uInventarioController, uIEditorInventario, uBizInventario, uViewGridBase, uInventarioController,
JvExComCtrls, JvStatusBar, uViewGrid2Niveles, JSDialog, uBizAlmacenes, JvExComCtrls, JvStatusBar, uViewGrid2Niveles, JSDialog, uBizAlmacenes,
uDAInterfaces, dxGDIPlusClasses, uEditorElegirAlmacenObraOperacion; uDAInterfaces, dxGDIPlusClasses, uEditorElegirAlmacenObraOperacion, StdCtrls,
TntStdCtrls, SpTBXEditors;
type type
TEnumSeleccion = (tAlmacen, tObra, tAlmacenObra); TEnumSeleccion = (tAlmacen, tObra, tAlmacenObra);

10
Source/Modulos/Inventario/Views/uViewInventario.dfm
View File

@ -173,6 +173,7 @@ inherited frViewInventario: TfrViewInventario
Width = 678 Width = 678
ExplicitWidth = 678 ExplicitWidth = 678
inherited TBXDockablePanel1: TSpTBXDockablePanel inherited TBXDockablePanel1: TSpTBXDockablePanel
Width = 678
ExplicitWidth = 678 ExplicitWidth = 678
inherited dxLayoutControl1: TdxLayoutControl inherited dxLayoutControl1: TdxLayoutControl
Width = 678 Width = 678
@ -182,8 +183,6 @@ inherited frViewInventario: TfrViewInventario
StyleDisabled.LookAndFeel.SkinName = '' StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = '' StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = '' StyleHot.LookAndFeel.SkinName = ''
ExplicitWidth = 510
Width = 510
end end
inherited edtFechaIniFiltro: TcxDateEdit inherited edtFechaIniFiltro: TcxDateEdit
Style.LookAndFeel.SkinName = '' Style.LookAndFeel.SkinName = ''
@ -202,12 +201,10 @@ inherited frViewInventario: TfrViewInventario
StyleDisabled.LookAndFeel.SkinName = '' StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = '' StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = '' StyleHot.LookAndFeel.SkinName = ''
ExplicitWidth = 215
Width = 215
end end
end end
inherited TBXAlignmentPanel1: TSpTBXDockablePanel inherited TBXAlignmentPanel1: TSpTBXDockablePanel
Width = 678 Width = 668
ExplicitWidth = 678 ExplicitWidth = 678
inherited tbxBotones: TSpTBXToolbar inherited tbxBotones: TSpTBXToolbar
Width = 668 Width = 668
@ -218,13 +215,14 @@ inherited frViewInventario: TfrViewInventario
end end
inherited pnlAgrupaciones: TSpTBXDockablePanel inherited pnlAgrupaciones: TSpTBXDockablePanel
Top = 581 Top = 581
Width = 678
ExplicitTop = 581 ExplicitTop = 581
ExplicitWidth = 678 ExplicitWidth = 678
inherited TBXAlignmentPanel1: TSpTBXDockablePanel inherited TBXAlignmentPanel1: TSpTBXDockablePanel
Width = 678 Width = 678
ExplicitWidth = 678 ExplicitWidth = 678
inherited TBXToolbar1: TSpTBXToolbar inherited TBXToolbar1: TSpTBXToolbar
Width = 668 Width = 678
ExplicitWidth = 668 ExplicitWidth = 668
end end
end end

5
Source/Modulos/Inventario/Views/uViewInventario.pas
View File

@ -15,7 +15,10 @@ uses
cxButtonEdit, cxGridCustomPopupMenu, cxGridPopupMenu, uViewGrid, cxButtonEdit, cxGridCustomPopupMenu, cxGridPopupMenu, uViewGrid,
uBizInventario, cxSpinEdit, uViewFiltroBase, TB2Item, SpTBXItem, uBizInventario, cxSpinEdit, uViewFiltroBase, TB2Item, SpTBXItem,
TB2Toolbar, SpTBXDkPanels, TB2Dock, dxPgsDlg, cxCurrencyEdit, uDAInterfaces, TB2Toolbar, SpTBXDkPanels, TB2Dock, dxPgsDlg, cxCurrencyEdit, uDAInterfaces,
cxContainer, cxMaskEdit, cxDropDownEdit; cxContainer, cxMaskEdit, cxDropDownEdit, cxLookAndFeels,
cxLookAndFeelPainters, dxPSPDFExportCore, dxPSPDFExport, cxDrawTextUtils,
dxPSPrVwStd, dxPSPrVwAdv, dxPScxEditorProducers, dxPScxExtEditorProducers,
dxPScxPageControlProducer, uCustomView, uViewBase;
// uBizAlmacenes, uBizObras; // uBizAlmacenes, uBizObras;
type type

34
Source/Modulos/Pedidos de cliente/Controller/PedidosCliente_controller.dproj
View File

@ -49,23 +49,23 @@
<DelphiCompile Include="PedidosCliente_controller.dpk"> <DelphiCompile Include="PedidosCliente_controller.dpk">
<MainSource>MainSource</MainSource> <MainSource>MainSource</MainSource>
</DelphiCompile> </DelphiCompile>
<DCCReference Include="..\..\Albaranes de cliente\Controller\adortl.dcp" /> <DCCReference Include="..\..\..\Servidor\adortl.dcp" />
<DCCReference Include="..\..\Albaranes de cliente\Controller\Articulos_controller.dcp" /> <DCCReference Include="..\..\..\Servidor\Articulos_controller.dcp" />
<DCCReference Include="..\..\Albaranes de cliente\Controller\Contactos_controller.dcp" /> <DCCReference Include="..\..\..\Servidor\Contactos_controller.dcp" />
<DCCReference Include="..\..\Albaranes de cliente\Controller\Contactos_model.dcp" /> <DCCReference Include="..\..\..\Servidor\Contactos_model.dcp" />
<DCCReference Include="..\..\Albaranes de cliente\Controller\cxLibraryD11.dcp" /> <DCCReference Include="..\..\..\Servidor\cxLibraryD11.dcp" />
<DCCReference Include="..\..\Albaranes de cliente\Controller\DataAbstract_Core_D11.dcp" /> <DCCReference Include="..\..\..\Servidor\DataAbstract_Core_D11.dcp" />
<DCCReference Include="..\..\Albaranes de cliente\Controller\dbrtl.dcp" /> <DCCReference Include="..\..\..\Servidor\dbrtl.dcp" />
<DCCReference Include="..\..\Albaranes de cliente\Controller\dsnap.dcp" /> <DCCReference Include="..\..\..\Servidor\dsnap.dcp" />
<DCCReference Include="..\..\Albaranes de cliente\Controller\dxGDIPlusD11.dcp" /> <DCCReference Include="..\..\..\Servidor\dxGDIPlusD11.dcp" />
<DCCReference Include="..\..\Albaranes de cliente\Controller\dxThemeD11.dcp" /> <DCCReference Include="..\..\..\Servidor\dxThemeD11.dcp" />
<DCCReference Include="..\..\Albaranes de cliente\Controller\GUIBase.dcp" /> <DCCReference Include="..\..\..\Servidor\GUIBase.dcp" />
<DCCReference Include="..\..\Albaranes de cliente\Controller\PedidosCliente_data.dcp" /> <DCCReference Include="..\..\..\Servidor\PedidosCliente_data.dcp" />
<DCCReference Include="..\..\Albaranes de cliente\Controller\PedidosCliente_model.dcp" /> <DCCReference Include="..\..\..\Servidor\PedidosCliente_model.dcp" />
<DCCReference Include="..\..\Albaranes de cliente\Controller\RemObjects_Core_D11.dcp" /> <DCCReference Include="..\..\..\Servidor\RemObjects_Core_D11.dcp" />
<DCCReference Include="..\..\Albaranes de cliente\Controller\rtl.dcp" /> <DCCReference Include="..\..\..\Servidor\rtl.dcp" />
<DCCReference Include="..\..\Albaranes de cliente\Controller\vcl.dcp" /> <DCCReference Include="..\..\..\Servidor\vcl.dcp" />
<DCCReference Include="..\..\Albaranes de cliente\Controller\vcldb.dcp" /> <DCCReference Include="..\..\..\Servidor\vcldb.dcp" />
<DCCReference Include="uArticulosPedidoClienteController.pas" /> <DCCReference Include="uArticulosPedidoClienteController.pas" />
<DCCReference Include="uDetallesPedidoClienteController.pas" /> <DCCReference Include="uDetallesPedidoClienteController.pas" />
<DCCReference Include="uPedidosClienteController.pas" /> <DCCReference Include="uPedidosClienteController.pas" />

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

@ -12,5 +12,5 @@ STRINGTABLE
BEGIN BEGIN
END END
/* C:\Codigo Noviseda\Source\Modulos\Pedidos de cliente\Controller\PedidosCliente_controller.res */ /* C:\Codigo noviseda\Source\Modulos\Pedidos de cliente\Controller\PedidosCliente_controller.res */
/* C:\Codigo Noviseda\Source\Modulos\Pedidos de cliente\Controller\PedidosCliente_controller.drf */ /* C:\DOCUME~1\Usuario\CONFIG~1\Temp\dtf1D6.tmp */

BIN
Source/Modulos/Pedidos de cliente/Controller/PedidosCliente_controller.res
View File

Binary file not shown.

43
Source/Modulos/Pedidos de cliente/Controller/uDetallesPedidoClienteController.pas
View File

@ -14,6 +14,8 @@ type
procedure DesglosarPorteDetalles(ImportePorte: Currency; ADetalles: IDAStronglyTypedDataTable); procedure DesglosarPorteDetalles(ImportePorte: Currency; ADetalles: IDAStronglyTypedDataTable);
function DarTotalPorteTotal(ADetalles: IDAStronglyTypedDataTable): Double; function DarTotalPorteTotal(ADetalles: IDAStronglyTypedDataTable): Double;
procedure ModificarCantidadColores(ADetalles: IDAStronglyTypedDataTable); procedure ModificarCantidadColores(ADetalles: IDAStronglyTypedDataTable);
function ArticulosPendientes(const ID : Integer): IBizPedidoClienteArticulosPend;
function ArtColoresPendientes(const ID : Integer): IBizPedidoClienteArtColoresPend;
end; end;
TDetallesPedidoClienteController = class(TControllerDetallesArticulos, IDetallesPedidoClienteController) TDetallesPedidoClienteController = class(TControllerDetallesArticulos, IDetallesPedidoClienteController)
@ -34,14 +36,19 @@ type
procedure AnadirArticulos(ADetalles: IDAStronglyTypedDataTable; ACliente: IBizCliente; const ANuevaFila :Boolean = True; const ACantidad: Integer = 1); overload; procedure AnadirArticulos(ADetalles: IDAStronglyTypedDataTable; ACliente: IBizCliente; const ANuevaFila :Boolean = True; const ACantidad: Integer = 1); overload;
procedure ActualizarDetalles(ADetalles: IDAStronglyTypedDataTable; ACliente: IBizCliente); overload; procedure ActualizarDetalles(ADetalles: IDAStronglyTypedDataTable; ACliente: IBizCliente); overload;
procedure ModificarCantidadColores(ADetalles: IDAStronglyTypedDataTable); procedure ModificarCantidadColores(ADetalles: IDAStronglyTypedDataTable);
function ArticulosPendientes(const ID : Integer): IBizPedidoClienteArticulosPend;
function ArtColoresPendientes(const ID : Integer): IBizPedidoClienteArtColoresPend;
constructor Create; override; constructor Create; override;
destructor Destroy; override; destructor Destroy; override;
end; end;
implementation implementation
uses Dialogs, Controls, uDialogUtils, Variants, uControllerDetallesBase, uEditorColores, uses Dialogs, cxControls, uDAInterfaces, Controls, uDialogUtils, Variants, uControllerDetallesBase, uEditorColores,
uDataModulePedidosCliente, uArticulosPedidoClienteController, uDataTableUtils, uCalculosUtils; uDataModulePedidosCliente, uArticulosPedidoClienteController, uDataTableUtils, uCalculosUtils,
schPedidosClienteClient_Intf;
{ TDetallesPedidoClienteController } { TDetallesPedidoClienteController }
@ -87,6 +94,38 @@ begin
end; end;
end; end;
function TDetallesPedidoClienteController.ArtColoresPendientes(const ID: Integer): IBizPedidoClienteArtColoresPend;
var
Condicion: TDAWhereExpression;
begin
ShowHourglassCursor;
try
Result := FDataModule.GetArtColoresPendientes;
with Result.DataTable.DynamicWhere do
begin
// (ID_PEDIDO >= ID)
Condicion := NewBinaryExpression(NewField('', fld_PedidoCliente_Art_Colores_PendientesID_PEDIDO), NewConstant(ID, datInteger), dboEqual);
if IsEmpty then
Expression := Condicion
else
Expression := NewBinaryExpression(Expression, Condicion, dboAnd);
end;
finally
HideHourglassCursor;
end;
end;
function TDetallesPedidoClienteController.ArticulosPendientes(
const ID: Integer): IBizPedidoClienteArticulosPend;
begin
Result := FDataModule.GetArticulosPendientes(ID);
end;
procedure TDetallesPedidoClienteController.AsignarController; procedure TDetallesPedidoClienteController.AsignarController;
begin begin
FArticulosController := TArticulosPedidoClienteController.Create; FArticulosController := TArticulosPedidoClienteController.Create;

10
Source/Modulos/Pedidos de cliente/Controller/uPedidosClienteController.pas
View File

@ -59,8 +59,6 @@ type
const ADireccionEMail: String = ''; const AAsuntoEMail: String = ''; const ADireccionEMail: String = ''; const AAsuntoEMail: String = '';
const ATextoEMail: String = ''): Boolean; const ATextoEMail: String = ''): Boolean;
function ArticulosPendientes(const ID : Integer): IBizPedidoClienteArticulosPend;
function DarListaAnosPedidos: TStringList; function DarListaAnosPedidos: TStringList;
procedure FiltrarAno(APedido: IBizPedidoCliente; AWhereDataTable: String; const Ano: String); procedure FiltrarAno(APedido: IBizPedidoCliente; AWhereDataTable: String; const Ano: String);
end; end;
@ -133,8 +131,6 @@ type
const ADireccionEMail: String = ''; const AAsuntoEMail: String = ''; const ADireccionEMail: String = ''; const AAsuntoEMail: String = '';
const ATextoEMail: String = ''): Boolean; const ATextoEMail: String = ''): Boolean;
function ArticulosPendientes(const ID : Integer): IBizPedidoClienteArticulosPend;
function DarListaAnosPedidos: TStringList; function DarListaAnosPedidos: TStringList;
procedure FiltrarAno(APedido: IBizPedidoCliente; AWhereDataTable: String; const Ano: String); procedure FiltrarAno(APedido: IBizPedidoCliente; AWhereDataTable: String; const Ano: String);
end; end;
@ -160,12 +156,6 @@ begin
Result := True; Result := True;
end; end;
function TPedidosClienteController.ArticulosPendientes(
const ID: Integer): IBizPedidoClienteArticulosPend;
begin
Result := FDataModule.GetArticulosPendientes(ID);
end;
procedure TPedidosClienteController.AsignarDataModule; procedure TPedidosClienteController.AsignarDataModule;
begin begin
FDataModule := TDataModulePedidosCliente.Create(Nil); FDataModule := TDataModulePedidosCliente.Create(Nil);

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

@ -49,7 +49,7 @@
<DelphiCompile Include="PedidosCliente_data.dpk"> <DelphiCompile Include="PedidosCliente_data.dpk">
<MainSource>MainSource</MainSource> <MainSource>MainSource</MainSource>
</DelphiCompile> </DelphiCompile>
<DCCReference Include="..\..\Albaranes de cliente\Controller\PedidosCliente_model.dcp" /> <DCCReference Include="..\..\..\Servidor\PedidosCliente_model.dcp" />
<DCCReference Include="uDataModulePedidosCliente.pas"> <DCCReference Include="uDataModulePedidosCliente.pas">
<Form>DataModulePedidosCliente</Form> <Form>DataModulePedidosCliente</Form>
</DCCReference> </DCCReference>

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

@ -12,6 +12,6 @@ STRINGTABLE
BEGIN BEGIN
END END
/* C:\Codigo Noviseda\Source\Modulos\Pedidos de cliente\Data\uDataModulePedidosCliente.DFM */ /* C:\Codigo noviseda\Source\Modulos\Pedidos de cliente\Data\uDataModulePedidosCliente.dfm */
/* C:\Codigo Noviseda\Source\Modulos\Pedidos de cliente\Data\PedidosCliente_data.res */ /* C:\Codigo noviseda\Source\Modulos\Pedidos de cliente\Data\PedidosCliente_data.res */
/* C:\Codigo Noviseda\Source\Modulos\Pedidos de cliente\Data\PedidosCliente_data.drf */ /* C:\DOCUME~1\Usuario\CONFIG~1\Temp\dtf1D4.tmp */

BIN
Source/Modulos/Pedidos de cliente/Data/PedidosCliente_data.res
View File

Binary file not shown.

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

@ -1,8 +1,7 @@
object DataModulePedidosCliente: TDataModulePedidosCliente inherited DataModulePedidosCliente: TDataModulePedidosCliente
OldCreateOrder = True
OnCreate = DAClientDataModuleCreate OnCreate = DAClientDataModuleCreate
Height = 396 Height = 550
Width = 813 Width = 772
object RORemoteService: TRORemoteService object RORemoteService: TRORemoteService
Message = dmConexion.ROMessage Message = dmConexion.ROMessage
Channel = dmConexion.ROChannel Channel = dmConexion.ROChannel
@ -35,6 +34,7 @@ object DataModulePedidosCliente: TDataModulePedidosCliente
DataType = datString DataType = datString
Size = 255 Size = 255
DisplayLabel = 'Nombre del cliente' DisplayLabel = 'Nombre del cliente'
ServerAutoRefresh = True
DictionaryEntry = 'PedidosCliente_NOMBRE' DictionaryEntry = 'PedidosCliente_NOMBRE'
end end
item item
@ -387,21 +387,21 @@ object DataModulePedidosCliente: TDataModulePedidosCliente
end end
item item
Name = 'CANTIDAD_PED' Name = 'CANTIDAD_PED'
DataType = datInteger DataType = datFloat
DisplayLabel = 'Cantidad en pedido' DisplayLabel = 'Cantidad en pedido'
Alignment = taRightJustify Alignment = taRightJustify
DictionaryEntry = 'PedidoCliente_Articulos_Pendientes_CANTIDAD_PED' DictionaryEntry = 'PedidoCliente_Articulos_Pendientes_CANTIDAD_PED'
end end
item item
Name = 'CANTIDAD_ALB' Name = 'CANTIDAD_ALB'
DataType = datInteger DataType = datFloat
DisplayLabel = 'Cantidad en albaranes' DisplayLabel = 'Cantidad en albaranes'
Alignment = taRightJustify Alignment = taRightJustify
DictionaryEntry = 'PedidoCliente_Articulos_Pendientes_CANTIDAD_ALB' DictionaryEntry = 'PedidoCliente_Articulos_Pendientes_CANTIDAD_ALB'
end end
item item
Name = 'CANTIDAD_PENDIENTE' Name = 'CANTIDAD_PENDIENTE'
DataType = datInteger DataType = datFloat
DisplayLabel = 'Cantidad pendiente' DisplayLabel = 'Cantidad pendiente'
Alignment = taRightJustify Alignment = taRightJustify
DictionaryEntry = 'PedidoCliente_Articulos_Pendientes_CANTIDAD_PENDIENTE' DictionaryEntry = 'PedidoCliente_Articulos_Pendientes_CANTIDAD_PENDIENTE'
@ -415,6 +415,7 @@ object DataModulePedidosCliente: TDataModulePedidosCliente
end> end>
MasterMappingMode = mmDataRequest MasterMappingMode = mmDataRequest
StreamingOptions = [soDisableEventsWhileStreaming] StreamingOptions = [soDisableEventsWhileStreaming]
RemoteDataAdapter = rda_PedidosCliente
LogicalName = 'PedidoCliente_Articulos_Pendientes' LogicalName = 'PedidoCliente_Articulos_Pendientes'
IndexDefs = <> IndexDefs = <>
Left = 208 Left = 208
@ -524,62 +525,88 @@ object DataModulePedidosCliente: TDataModulePedidosCliente
item item
Name = 'ID' Name = 'ID'
DataType = datAutoInc DataType = datAutoInc
GeneratorName = 'GEN_PEDIDOS_CLI_DETALLES_ID' GeneratorName = 'GEN_PEDIDOS_CLI_DET_COLOR_ID'
Required = True Required = True
DictionaryEntry = 'PedidosCliente_Detalles_ID' DictionaryEntry = 'PedidosCliente_Detalle_Color_ID'
InPrimaryKey = True InPrimaryKey = True
end end
item item
Name = 'ID_DETALLE' Name = 'ID_DETALLE'
DataType = datInteger DataType = datInteger
DisplayLabel = 'PedidosCliente_Detalle_Color_ID_DETALLE'
DictionaryEntry = 'PedidosCliente_Detalle_Color_ID_DETALLE'
end end
item item
Name = 'COLOR1' Name = 'COLOR1'
DataType = datInteger DataType = datInteger
DisplayLabel = 'PedidosCliente_Detalle_Color_COLOR1'
DictionaryEntry = 'PedidosCliente_Detalle_Color_COLOR1'
end end
item item
Name = 'COLOR2' Name = 'COLOR2'
DataType = datInteger DataType = datInteger
DisplayLabel = 'PedidosCliente_Detalle_Color_COLOR2'
DictionaryEntry = 'PedidosCliente_Detalle_Color_COLOR2'
end end
item item
Name = 'COLOR3' Name = 'COLOR3'
DataType = datInteger DataType = datInteger
DisplayLabel = 'PedidosCliente_Detalle_Color_COLOR3'
DictionaryEntry = 'PedidosCliente_Detalle_Color_COLOR3'
end end
item item
Name = 'COLOR4' Name = 'COLOR4'
DataType = datInteger DataType = datInteger
DisplayLabel = 'PedidosCliente_Detalle_Color_COLOR4'
DictionaryEntry = 'PedidosCliente_Detalle_Color_COLOR4'
end end
item item
Name = 'COLOR5' Name = 'COLOR5'
DataType = datInteger DataType = datInteger
DisplayLabel = 'PedidosCliente_Detalle_Color_COLOR5'
DictionaryEntry = 'PedidosCliente_Detalle_Color_COLOR5'
end end
item item
Name = 'COLOR6' Name = 'COLOR6'
DataType = datInteger DataType = datInteger
DisplayLabel = 'PedidosCliente_Detalle_Color_COLOR6'
DictionaryEntry = 'PedidosCliente_Detalle_Color_COLOR6'
end end
item item
Name = 'COLOR7' Name = 'COLOR7'
DataType = datInteger DataType = datInteger
DisplayLabel = 'PedidosCliente_Detalle_Color_COLOR7'
DictionaryEntry = 'PedidosCliente_Detalle_Color_COLOR7'
end end
item item
Name = 'COLOR8' Name = 'COLOR8'
DataType = datInteger DataType = datInteger
DisplayLabel = 'PedidosCliente_Detalle_Color_COLOR8'
DictionaryEntry = 'PedidosCliente_Detalle_Color_COLOR8'
end end
item item
Name = 'COLOR9' Name = 'COLOR9'
DataType = datInteger DataType = datInteger
DisplayLabel = 'PedidosCliente_Detalle_Color_COLOR9'
DictionaryEntry = 'PedidosCliente_Detalle_Color_COLOR9'
end end
item item
Name = 'COLOR10' Name = 'COLOR10'
DataType = datInteger DataType = datInteger
DisplayLabel = 'PedidosCliente_Detalle_Color_COLOR10'
DictionaryEntry = 'PedidosCliente_Detalle_Color_COLOR10'
end end
item item
Name = 'COLOR11' Name = 'COLOR11'
DataType = datInteger DataType = datInteger
DisplayLabel = 'PedidosCliente_Detalle_Color_COLOR11'
DictionaryEntry = 'PedidosCliente_Detalle_Color_COLOR11'
end end
item item
Name = 'COLOR12' Name = 'COLOR12'
DataType = datInteger DataType = datInteger
DisplayLabel = 'PedidosCliente_Detalle_Color_COLOR12'
DictionaryEntry = 'PedidosCliente_Detalle_Color_COLOR12'
end> end>
Params = <> Params = <>
MasterMappingMode = mmWhere MasterMappingMode = mmWhere
@ -599,4 +626,78 @@ object DataModulePedidosCliente: TDataModulePedidosCliente
Left = 472 Left = 472
Top = 48 Top = 48
end end
object tbl_PedidoCliente_Art_Colores_Pendientes: TDAMemDataTable
RemoteUpdatesOptions = []
Fields = <
item
Name = 'ID_PEDIDO'
DataType = datInteger
end
item
Name = 'ID_ARTICULO'
DataType = datInteger
end
item
Name = 'COLOR1'
DataType = datLargeInt
end
item
Name = 'COLOR2'
DataType = datLargeInt
end
item
Name = 'COLOR3'
DataType = datLargeInt
end
item
Name = 'COLOR4'
DataType = datLargeInt
end
item
Name = 'COLOR5'
DataType = datLargeInt
end
item
Name = 'COLOR6'
DataType = datLargeInt
end
item
Name = 'COLOR7'
DataType = datLargeInt
end
item
Name = 'COLOR8'
DataType = datLargeInt
end
item
Name = 'COLOR9'
DataType = datLargeInt
end
item
Name = 'COLOR10'
DataType = datLargeInt
end
item
Name = 'COLOR11'
DataType = datLargeInt
end
item
Name = 'COLOR12'
DataType = datLargeInt
end>
Params = <>
MasterMappingMode = mmDataRequest
StreamingOptions = [soDisableEventsWhileStreaming, soDisableFiltering]
RemoteDataAdapter = rda_PedidosCliente
LogicalName = 'PedidoCliente_Art_Colores_Pendientes'
IndexDefs = <>
Left = 208
Top = 320
end
object ds_PedidoCliente_Art_Colores_Pendientes: TDADataSource
DataSet = tbl_PedidoCliente_Art_Colores_Pendientes.Dataset
DataTable = tbl_PedidoCliente_Art_Colores_Pendientes
Left = 208
Top = 384
end
end end

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

@ -1,19 +1,32 @@
object DataModulePedidosCliente: TDataModulePedidosCliente object DataModulePedidosCliente: TDataModulePedidosCliente
Left = 0
Top = 0
ClientHeight = 362
ClientWidth = 805
Color = clBtnFace
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'Tahoma'
Font.Style = []
OldCreateOrder = True OldCreateOrder = True
OnCreate = DAClientDataModuleCreate OnCreate = DAClientDataModuleCreate
Height = 377 PixelsPerInch = 96
Width = 649 TextHeight = 13
object RORemoteService: TRORemoteService object RORemoteService: TRORemoteService
Message = dmConexion.ROMessage
Channel = dmConexion.ROChannel
ServiceName = 'srvPedidosCliente' ServiceName = 'srvPedidosCliente'
Left = 40 Left = 40
Top = 24 Top = 24
end end
object tbl_PedidosCliente: TDACDSDataTable object tbl_PedidosCliente: TDAMemDataTable
RemoteUpdatesOptions = [] RemoteUpdatesOptions = []
Fields = < Fields = <
item item
Name = 'ID' Name = 'ID'
DataType = datAutoInc DataType = datAutoInc
GeneratorName = 'GEN_PEDIDOS_CLI_ID'
DictionaryEntry = 'PedidosCliente_ID' DictionaryEntry = 'PedidosCliente_ID'
InPrimaryKey = True InPrimaryKey = True
end end
@ -61,6 +74,12 @@ object DataModulePedidosCliente: TDataModulePedidosCliente
DisplayLabel = 'Fecha pedido' DisplayLabel = 'Fecha pedido'
DictionaryEntry = 'PedidosCliente_FECHA_PEDIDO' DictionaryEntry = 'PedidosCliente_FECHA_PEDIDO'
end end
item
Name = 'ID_DIRECCION'
DataType = datInteger
DisplayLabel = 'PedidosCliente_ID_DIRECCION'
DictionaryEntry = 'PedidosCliente_ID_DIRECCION'
end
item item
Name = 'CALLE' Name = 'CALLE'
DataType = datString DataType = datString
@ -164,6 +183,18 @@ object DataModulePedidosCliente: TDataModulePedidosCliente
Alignment = taRightJustify Alignment = taRightJustify
DictionaryEntry = 'PedidosCliente_IMPORTE_DESCUENTO' DictionaryEntry = 'PedidosCliente_IMPORTE_DESCUENTO'
end end
item
Name = 'DESCUENTO2'
DataType = datFloat
DictionaryEntry = 'PedidosCliente_DESCUENTO2'
end
item
Name = 'IMPORTE_DESCUENTO2'
DataType = datCurrency
DecimalPrecision = 11
DecimalScale = 2
DictionaryEntry = 'PedidosCliente_IMPORTE_DESCUENTO2'
end
item item
Name = 'BASE_IMPONIBLE' Name = 'BASE_IMPONIBLE'
DataType = datCurrency DataType = datCurrency
@ -197,6 +228,13 @@ object DataModulePedidosCliente: TDataModulePedidosCliente
DataType = datInteger DataType = datInteger
DictionaryEntry = 'PedidosCliente_ID_FORMA_PAGO' DictionaryEntry = 'PedidosCliente_ID_FORMA_PAGO'
end end
item
Name = 'FORMA_PAGO'
DataType = datString
Size = 255
DisplayLabel = 'PedidosCliente_FORMA_PAGO'
DictionaryEntry = 'PedidosCliente_FORMA_PAGO'
end
item item
Name = 'REF_TIENDA_WEB' Name = 'REF_TIENDA_WEB'
DataType = datInteger DataType = datInteger
@ -209,16 +247,15 @@ object DataModulePedidosCliente: TDataModulePedidosCliente
DictionaryEntry = 'PedidosCliente_FECHA_PREVISTA_ENVIO' DictionaryEntry = 'PedidosCliente_FECHA_PREVISTA_ENVIO'
end end
item item
Name = 'NUM_COPIAS' Name = 'DATOS_BANCARIOS'
DataType = datInteger DataType = datString
end Size = 255
item DisplayLabel = 'PedidosCliente_DATOS_BANCARIOS'
Name = 'NUM_CORREOS' DictionaryEntry = 'PedidosCliente_DATOS_BANCARIOS'
DataType = datInteger
end> end>
Params = <> Params = <>
MasterMappingMode = mmDataRequest
StreamingOptions = [soDisableEventsWhileStreaming] StreamingOptions = [soDisableEventsWhileStreaming]
RemoteDataAdapter = rda_PedidosCliente
LogicalName = 'PedidosCliente' LogicalName = 'PedidosCliente'
IndexDefs = <> IndexDefs = <>
Left = 208 Left = 208
@ -230,12 +267,13 @@ object DataModulePedidosCliente: TDataModulePedidosCliente
Left = 208 Left = 208
Top = 48 Top = 48
end end
object tbl_PedidosCliente_Detalles: TDACDSDataTable object tbl_PedidosCliente_Detalles: TDAMemDataTable
RemoteUpdatesOptions = [] RemoteUpdatesOptions = []
Fields = < Fields = <
item item
Name = 'ID' Name = 'ID'
DataType = datAutoInc DataType = datAutoInc
GeneratorName = 'GEN_PEDIDOS_CLI_DETALLES_ID'
Required = True Required = True
DictionaryEntry = 'PedidosCliente_Detalles_ID' DictionaryEntry = 'PedidosCliente_Detalles_ID'
InPrimaryKey = True InPrimaryKey = True
@ -256,6 +294,11 @@ object DataModulePedidosCliente: TDataModulePedidosCliente
Size = 10 Size = 10
DictionaryEntry = 'PedidosCliente_Detalles_TIPO_DETALLE' DictionaryEntry = 'PedidosCliente_Detalles_TIPO_DETALLE'
end end
item
Name = 'ID_ARTICULO'
DataType = datInteger
DictionaryEntry = 'PedidosCliente_Detalles_ID_ARTICULO'
end
item item
Name = 'REFERENCIA' Name = 'REFERENCIA'
DataType = datString DataType = datString
@ -264,9 +307,11 @@ object DataModulePedidosCliente: TDataModulePedidosCliente
DictionaryEntry = 'PedidosCliente_Detalles_REFERENCIA' DictionaryEntry = 'PedidosCliente_Detalles_REFERENCIA'
end end
item item
Name = 'ID_ARTICULO' Name = 'REFERENCIA_PROVEEDOR'
DataType = datInteger DataType = datString
DictionaryEntry = 'PedidosCliente_Detalles_ID_ARTICULO' Size = 255
DisplayLabel = 'Ref. proveedor'
DictionaryEntry = 'PedidosCliente_Detalles_REFERENCIA_PROVEEDOR'
end end
item item
Name = 'CONCEPTO' Name = 'CONCEPTO'
@ -276,9 +321,10 @@ object DataModulePedidosCliente: TDataModulePedidosCliente
end end
item item
Name = 'CANTIDAD' Name = 'CANTIDAD'
DataType = datInteger DataType = datFloat
DisplayLabel = 'PedidosCliente_Detalles_CANTIDAD'
Alignment = taRightJustify Alignment = taRightJustify
DictionaryEntry = 'CANTIDAD' DictionaryEntry = 'PedidosCliente_Detalles_CANTIDAD'
end end
item item
Name = 'IMPORTE_UNIDAD' Name = 'IMPORTE_UNIDAD'
@ -288,11 +334,10 @@ object DataModulePedidosCliente: TDataModulePedidosCliente
DictionaryEntry = 'PedidosCliente_Detalles_IMPORTE_UNIDAD' DictionaryEntry = 'PedidosCliente_Detalles_IMPORTE_UNIDAD'
end end
item item
Name = 'IMPORTE_TOTAL' Name = 'UNIDAD_MEDIDA'
DataType = datCurrency DataType = datString
DisplayLabel = 'Importe total' DisplayLabel = 'PedidosCliente_Detalles_UNIDAD_MEDIDA'
Alignment = taRightJustify DictionaryEntry = 'PedidosCliente_Detalles_UNIDAD_MEDIDA'
DictionaryEntry = 'PedidosCliente_Detalles_IMPORTE_TOTAL'
end end
item item
Name = 'DESCUENTO' Name = 'DESCUENTO'
@ -309,28 +354,24 @@ object DataModulePedidosCliente: TDataModulePedidosCliente
Alignment = taRightJustify Alignment = taRightJustify
DictionaryEntry = 'PedidosCliente_Detalles_IMPORTE_PORTE' DictionaryEntry = 'PedidosCliente_Detalles_IMPORTE_PORTE'
end end
item
Name = 'IMPORTE_TOTAL'
DataType = datCurrency
DisplayLabel = 'Importe total'
Alignment = taRightJustify
DictionaryEntry = 'PedidosCliente_Detalles_IMPORTE_TOTAL'
end
item item
Name = 'VISIBLE' Name = 'VISIBLE'
DataType = datInteger DataType = datInteger
DictionaryEntry = 'PedidosCliente_Detalles_VISIBLE' DictionaryEntry = 'PedidosCliente_Detalles_VISIBLE'
end
item
Name = 'REFERENCIA_PROVEEDOR'
DataType = datString
Size = 255
DisplayLabel = 'Ref. proveedor'
DictionaryEntry = 'PedidosCliente_Detalles_REFERENCIA_PROVEEDOR'
end>
Params = <
item
Name = 'ID_PEDIDO'
DataType = datInteger
Value = ''
ParamType = daptInput
end> end>
Params = <>
MasterMappingMode = mmWhere
MasterParamsMappings.Strings = ( MasterParamsMappings.Strings = (
'ID_PEDIDO=ID') 'ID_PEDIDO=ID')
StreamingOptions = [soDisableEventsWhileStreaming] StreamingOptions = [soDisableEventsWhileStreaming]
RemoteDataAdapter = rda_PedidosCliente
MasterSource = ds_PedidosCliente MasterSource = ds_PedidosCliente
MasterFields = 'ID' MasterFields = 'ID'
DetailFields = 'ID_PEDIDO' DetailFields = 'ID_PEDIDO'
@ -345,7 +386,7 @@ object DataModulePedidosCliente: TDataModulePedidosCliente
Left = 329 Left = 329
Top = 48 Top = 48
end end
object tbl_PedidoCliente_Articulos_Pendientes: TDACDSDataTable object tbl_PedidoCliente_Articulos_Pendientes: TDAMemDataTable
RemoteUpdatesOptions = [] RemoteUpdatesOptions = []
Fields = < Fields = <
item item
@ -395,7 +436,7 @@ object DataModulePedidosCliente: TDataModulePedidosCliente
Left = 208 Left = 208
Top = 256 Top = 256
end end
object tbl_PedidoCliente_ArticulosPendientesPedirAProv: TDACDSDataTable object tbl_PedidoCliente_ArticulosPendientesPedirAProv: TDAMemDataTable
RemoteUpdatesOptions = [] RemoteUpdatesOptions = []
Fields = < Fields = <
item item
@ -450,7 +491,7 @@ object DataModulePedidosCliente: TDataModulePedidosCliente
Left = 440 Left = 440
Top = 256 Top = 256
end end
object tbl_ListaAnosPedidos: TDACDSDataTable object tbl_ListaAnosPedidos: TDAMemDataTable
RemoteUpdatesOptions = [] RemoteUpdatesOptions = []
Fields = < Fields = <
item item
@ -461,16 +502,17 @@ object DataModulePedidosCliente: TDataModulePedidosCliente
Params = <> Params = <>
MasterMappingMode = mmDataRequest MasterMappingMode = mmDataRequest
StreamingOptions = [soDisableEventsWhileStreaming] StreamingOptions = [soDisableEventsWhileStreaming]
RemoteDataAdapter = rda_PedidosCliente
LogicalName = 'ListaAnosPedidos' LogicalName = 'ListaAnosPedidos'
IndexDefs = <> IndexDefs = <>
Left = 520 Left = 632
Top = 112 Top = 264
end end
object ds_ListaAnosPedidos: TDADataSource object ds_ListaAnosPedidos: TDADataSource
DataSet = tbl_ListaAnosPedidos.Dataset DataSet = tbl_ListaAnosPedidos.Dataset
DataTable = tbl_ListaAnosPedidos DataTable = tbl_ListaAnosPedidos
Left = 520 Left = 624
Top = 48 Top = 200
end end
object Bin2DataStreamer: TDABin2DataStreamer object Bin2DataStreamer: TDABin2DataStreamer
Left = 40 Left = 40
@ -486,4 +528,85 @@ object DataModulePedidosCliente: TDataModulePedidosCliente
Left = 43 Left = 43
Top = 143 Top = 143
end end
object tbl_PedidosCliente_Detalle_Color: TDAMemDataTable
RemoteUpdatesOptions = []
Fields = <
item
Name = 'ID'
DataType = datAutoInc
GeneratorName = 'GEN_PEDIDOS_CLI_DETALLES_ID'
Required = True
DictionaryEntry = 'PedidosCliente_Detalles_ID'
InPrimaryKey = True
end
item
Name = 'ID_DETALLE'
DataType = datInteger
end
item
Name = 'COLOR1'
DataType = datInteger
end
item
Name = 'COLOR2'
DataType = datInteger
end
item
Name = 'COLOR3'
DataType = datInteger
end
item
Name = 'COLOR4'
DataType = datInteger
end
item
Name = 'COLOR5'
DataType = datInteger
end
item
Name = 'COLOR6'
DataType = datInteger
end
item
Name = 'COLOR7'
DataType = datInteger
end
item
Name = 'COLOR8'
DataType = datInteger
end
item
Name = 'COLOR9'
DataType = datInteger
end
item
Name = 'COLOR10'
DataType = datInteger
end
item
Name = 'COLOR11'
DataType = datInteger
end
item
Name = 'COLOR12'
DataType = datInteger
end>
Params = <>
MasterMappingMode = mmWhere
StreamingOptions = [soDisableEventsWhileStreaming, soDisableFiltering]
RemoteDataAdapter = rda_PedidosCliente
MasterSource = ds_PedidosCliente_Detalles
MasterFields = 'ID'
DetailFields = 'ID_DETALLE'
LogicalName = 'PedidosCliente_Detalle_Color'
IndexDefs = <>
Left = 472
Top = 104
end
object ds_PedidosCliente_Detalle_Color: TDADataSource
DataSet = tbl_PedidosCliente_Detalle_Color.Dataset
DataTable = tbl_PedidosCliente_Detalle_Color
Left = 472
Top = 48
end
end end

37
Source/Modulos/Pedidos de cliente/Data/uDataModulePedidosCliente.pas
View File

@ -3,17 +3,18 @@ unit uDataModulePedidosCliente;
interface interface
uses uses
DB, Classes, SysUtils, uDADesigntimeCall, DB, Classes, SysUtils, uDADesigntimeCall, uROTypes,
uRORemoteService, uROClient, uROBinMessage, uDAScriptingProvider, uRORemoteService, uROClient, uROBinMessage, uDAScriptingProvider,
uDAMemDataTable, uROWinInetHttpChannel, uDADataTable, uDABINAdapter, uDACDSDataTable, uROWinInetHttpChannel, uDADataTable, uDABINAdapter,
uDAClientDataModule, uROTypes, uIntegerListUtils,
uIDataModulePedidosCliente, uBizPedidosCliente, uBizDetallesPedidoCliente, uBizDetalleColoresPedidoCliente, uIDataModulePedidosCliente, uBizPedidosCliente, uBizDetallesPedidoCliente, uBizDetalleColoresPedidoCliente,
uIDataModulePedidosClienteReport, uDADataAdapter, uDARemoteDataAdapter, uIDataModulePedidosClienteReport, uDataModuleBase, uDABin2DataStreamer, uDAMemDataTable,
uDADataStreamer, uDABin2DataStreamer, uDAInterfaces, uDACDSDataTable; uDAInterfaces, uDADataStreamer, uDARemoteDataAdapter, uIntegerListUtils,
uDADataAdapter;
type type
TDataModulePedidosCliente = class(TDAClientDataModule, IDataModulePedidosCliente, IDataModulePedidosClienteReport) TDataModulePedidosCliente = class(TDataModuleBase, IDataModulePedidosCliente, IDataModulePedidosClienteReport)
RORemoteService: TRORemoteService; RORemoteService: TRORemoteService;
tbl_PedidosCliente: TDAMemDataTable; tbl_PedidosCliente: TDAMemDataTable;
ds_PedidosCliente: TDADataSource; ds_PedidosCliente: TDADataSource;
@ -29,6 +30,8 @@ type
rda_PedidosCliente: TDARemoteDataAdapter; rda_PedidosCliente: TDARemoteDataAdapter;
tbl_PedidosCliente_Detalle_Color: TDAMemDataTable; tbl_PedidosCliente_Detalle_Color: TDAMemDataTable;
ds_PedidosCliente_Detalle_Color: TDADataSource; ds_PedidosCliente_Detalle_Color: TDADataSource;
tbl_PedidoCliente_Art_Colores_Pendientes: TDAMemDataTable;
ds_PedidoCliente_Art_Colores_Pendientes: TDADataSource;
procedure DAClientDataModuleCreate(Sender: TObject); procedure DAClientDataModuleCreate(Sender: TObject);
private private
@ -45,6 +48,7 @@ type
function GetArticulosPendientesPedirAProv(const IDPedido: Integer): IBizPedidoClienteArticulosPendientesPedirAProv; function GetArticulosPendientesPedirAProv(const IDPedido: Integer): IBizPedidoClienteArticulosPendientesPedirAProv;
function GetArticulosPendientes(const IDPedido: Integer): IBizPedidoClienteArticulosPend; function GetArticulosPendientes(const IDPedido: Integer): IBizPedidoClienteArticulosPend;
function GetArtColoresPendientes: IBizPedidoClienteArtColoresPend;
// Report // Report
function GetRptPedidos(const ListaID: TIntegerList): Binary; function GetRptPedidos(const ListaID: TIntegerList): Binary;
@ -150,22 +154,34 @@ begin
end; end;
end; end;
function TDataModulePedidosCliente.GetArtColoresPendientes: IBizPedidoClienteArtColoresPend;
var
AArtColores : TDAMemDataTable;
begin
ShowHourglassCursor;
try
AArtColores := CloneDataTable(tbl_PedidoCliente_Art_Colores_Pendientes);
AArtColores.BusinessRulesID := BIZ_CLIENT_ARTCOLORES_PEND_PEDIDO_CLIENTE;
Result := (AArtColores as IBizPedidoClienteArtColoresPend);
finally
HideHourglassCursor;
end;
end;
function TDataModulePedidosCliente.GetArticulosPendientes( function TDataModulePedidosCliente.GetArticulosPendientes(
const IDPedido: Integer): IBizPedidoClienteArticulosPend; const IDPedido: Integer): IBizPedidoClienteArticulosPend;
var var
AArticulos : TDAMemDataTable; AArticulos : TDAMemDataTable;
begin begin
{
ShowHourglassCursor; ShowHourglassCursor;
try try
AArticulos := _CloneDataTable(tbl_PedidoCliente_Articulos_Pendientes); AArticulos := CloneDataTable(tbl_PedidoCliente_Articulos_Pendientes);
AArticulos.BusinessRulesID := BIZ_CLIENT_ARTICULOS_PEND_PEDIDO_CLIENTE; AArticulos.BusinessRulesID := BIZ_CLIENT_ARTICULOS_PEND_PEDIDO_CLIENTE;
AArticulos.ParamByName('ID_PEDIDO').AsInteger := IDPedido; AArticulos.ParamByName('ID_PEDIDO').AsInteger := IDPedido;
Result := (AArticulos as IBizPedidoClienteArticulosPend); Result := (AArticulos as IBizPedidoClienteArticulosPend);
finally finally
HideHourglassCursor; HideHourglassCursor;
end; end;
}
end; end;
function TDataModulePedidosCliente.GetArticulosPendientesPedirAProv( function TDataModulePedidosCliente.GetArticulosPendientesPedirAProv(
@ -217,13 +233,12 @@ begin
ShowHourglassCursor; ShowHourglassCursor;
try try
APedido := CloneDataTable(tbl_PedidosCliente); APedido := CloneDataTable(tbl_PedidosCliente);
AsignarClaseNegocio(APedido);
// EL CAMPO REFERENCIA Y SITUACIÓN TIENEN QUE SER AUTOREFRESH!!!!! // EL CAMPO REFERENCIA Y SITUACIÓN TIENEN QUE SER AUTOREFRESH!!!!!
APedido.FieldByName(fld_PedidosClienteREFERENCIA).ServerAutoRefresh := TRUE; APedido.FieldByName(fld_PedidosClienteREFERENCIA).ServerAutoRefresh := TRUE;
APedido.FieldByName(fld_PedidosClienteSITUACION).ServerAutoRefresh := TRUE; APedido.FieldByName(fld_PedidosClienteSITUACION).ServerAutoRefresh := TRUE;
AsignarClaseNegocio(APedido);
with TBizPedidoCliente(APedido.BusinessEventsObj) do with TBizPedidoCliente(APedido.BusinessEventsObj) do
begin begin
Detalles := _GetDetalles; Detalles := _GetDetalles;

1
Source/Modulos/Pedidos de cliente/Model/Data/uIDataModulePedidosCliente.pas
View File

@ -13,6 +13,7 @@ type
function GetItem(const ID : Integer) : IBizPedidoCliente; function GetItem(const ID : Integer) : IBizPedidoCliente;
function NewItem : IBizPedidoCliente; function NewItem : IBizPedidoCliente;
function GetArticulosPendientes(const IDPedido: Integer): IBizPedidoClienteArticulosPend; function GetArticulosPendientes(const IDPedido: Integer): IBizPedidoClienteArticulosPend;
function GetArtColoresPendientes: IBizPedidoClienteArtColoresPend;
function GetArticulosPendientesPedirAProv(const IDPedido: Integer): IBizPedidoClienteArticulosPendientesPedirAProv; function GetArticulosPendientesPedirAProv(const IDPedido: Integer): IBizPedidoClienteArticulosPendientesPedirAProv;
end; end;

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

@ -12,5 +12,5 @@ STRINGTABLE
BEGIN BEGIN
END END
/* C:\Codigo Noviseda\Source\Modulos\Pedidos de cliente\Model\PedidosCliente_model.res */ /* C:\Codigo noviseda\Source\Modulos\Pedidos de cliente\Model\PedidosCliente_model.res */
/* C:\Codigo Noviseda\Source\Modulos\Pedidos de cliente\Model\PedidosCliente_model.drf */ /* C:\DOCUME~1\Usuario\CONFIG~1\Temp\dtf1D2.tmp */

BIN
Source/Modulos/Pedidos de cliente/Model/PedidosCliente_model.res
View File

Binary file not shown.

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

@ -4,20 +4,22 @@ unit schPedidosClienteClient_Intf;
interface interface
uses uses
Classes, DB, SysUtils, uROClasses, uDAInterfaces, uDADataTable, FmtBCD, uROXMLIntf; Classes, DB, schBase_Intf, SysUtils, uROClasses, uDAInterfaces, uDADataTable, FmtBCD, uROXMLIntf;
const const
{ Data table rules ids { Data table rules ids
Feel free to change them to something more human readable Feel free to change them to something more human readable
but make sure they are unique in the context of your application } but make sure they are unique in the context of your application }
RID_ListaAnosPedidos = '{69ED4D2A-C692-4F24-BC5B-8893D377C1AC}'; RID_PedidoCliente_Art_Colores_Pendientes = '{54115F75-2664-4E4F-834E-124EEB0C84B3}';
RID_PedidoCliente_ArticulosPendientesPedirAProv = '{CC176519-3A83-42DE-877D-76AD039A7FBF}'; RID_ListaAnosPedidos = '{9403FEF1-C5C3-4D71-912B-76B2CC833DC0}';
RID_PedidosCliente = '{285F9D98-1E3E-441A-AA07-1DDF2D1E5697}'; RID_PedidoCliente_ArticulosPendientesPedirAProv = '{64718B70-7CF0-4EF9-A4DD-E518DFFB5F2F}';
RID_PedidosCliente_Detalles = '{8FC465FD-CB58-49CA-B962-3C0F8296244A}'; RID_PedidosCliente = '{20E17637-C877-4040-AC6F-41ED17EE7749}';
RID_PedidoCliente_Articulos_Pendientes = '{AC15597C-6504-4224-BFF7-E45D45A62F0D}'; RID_PedidosCliente_Detalles = '{8E4556EF-6251-447B-9A2F-314B00880A8F}';
RID_PedidosCliente_Detalle_Color = '{5571EC96-859E-4DAA-873E-819E0047DAE5}'; RID_PedidoCliente_Articulos_Pendientes = '{2886183F-49D3-4FD3-AA9C-E1B0DFB28894}';
RID_PedidosCliente_Detalle_Color = '{4DF3B5B1-846C-421F-9A5E-ED56D6D45201}';
{ Data table names } { Data table names }
nme_PedidoCliente_Art_Colores_Pendientes = 'PedidoCliente_Art_Colores_Pendientes';
nme_ListaAnosPedidos = 'ListaAnosPedidos'; nme_ListaAnosPedidos = 'ListaAnosPedidos';
nme_PedidoCliente_ArticulosPendientesPedirAProv = 'PedidoCliente_ArticulosPendientesPedirAProv'; nme_PedidoCliente_ArticulosPendientesPedirAProv = 'PedidoCliente_ArticulosPendientesPedirAProv';
nme_PedidosCliente = 'PedidosCliente'; nme_PedidosCliente = 'PedidosCliente';
@ -25,6 +27,38 @@ const
nme_PedidoCliente_Articulos_Pendientes = 'PedidoCliente_Articulos_Pendientes'; nme_PedidoCliente_Articulos_Pendientes = 'PedidoCliente_Articulos_Pendientes';
nme_PedidosCliente_Detalle_Color = 'PedidosCliente_Detalle_Color'; nme_PedidosCliente_Detalle_Color = 'PedidosCliente_Detalle_Color';
{ PedidoCliente_Art_Colores_Pendientes fields }
fld_PedidoCliente_Art_Colores_PendientesID_PEDIDO = 'ID_PEDIDO';
fld_PedidoCliente_Art_Colores_PendientesID_ARTICULO = 'ID_ARTICULO';
fld_PedidoCliente_Art_Colores_PendientesCOLOR1 = 'COLOR1';
fld_PedidoCliente_Art_Colores_PendientesCOLOR2 = 'COLOR2';
fld_PedidoCliente_Art_Colores_PendientesCOLOR3 = 'COLOR3';
fld_PedidoCliente_Art_Colores_PendientesCOLOR4 = 'COLOR4';
fld_PedidoCliente_Art_Colores_PendientesCOLOR5 = 'COLOR5';
fld_PedidoCliente_Art_Colores_PendientesCOLOR6 = 'COLOR6';
fld_PedidoCliente_Art_Colores_PendientesCOLOR7 = 'COLOR7';
fld_PedidoCliente_Art_Colores_PendientesCOLOR8 = 'COLOR8';
fld_PedidoCliente_Art_Colores_PendientesCOLOR9 = 'COLOR9';
fld_PedidoCliente_Art_Colores_PendientesCOLOR10 = 'COLOR10';
fld_PedidoCliente_Art_Colores_PendientesCOLOR11 = 'COLOR11';
fld_PedidoCliente_Art_Colores_PendientesCOLOR12 = 'COLOR12';
{ PedidoCliente_Art_Colores_Pendientes field indexes }
idx_PedidoCliente_Art_Colores_PendientesID_PEDIDO = 0;
idx_PedidoCliente_Art_Colores_PendientesID_ARTICULO = 1;
idx_PedidoCliente_Art_Colores_PendientesCOLOR1 = 2;
idx_PedidoCliente_Art_Colores_PendientesCOLOR2 = 3;
idx_PedidoCliente_Art_Colores_PendientesCOLOR3 = 4;
idx_PedidoCliente_Art_Colores_PendientesCOLOR4 = 5;
idx_PedidoCliente_Art_Colores_PendientesCOLOR5 = 6;
idx_PedidoCliente_Art_Colores_PendientesCOLOR6 = 7;
idx_PedidoCliente_Art_Colores_PendientesCOLOR7 = 8;
idx_PedidoCliente_Art_Colores_PendientesCOLOR8 = 9;
idx_PedidoCliente_Art_Colores_PendientesCOLOR9 = 10;
idx_PedidoCliente_Art_Colores_PendientesCOLOR10 = 11;
idx_PedidoCliente_Art_Colores_PendientesCOLOR11 = 12;
idx_PedidoCliente_Art_Colores_PendientesCOLOR12 = 13;
{ ListaAnosPedidos fields } { ListaAnosPedidos fields }
fld_ListaAnosPedidosANO = 'ANO'; fld_ListaAnosPedidosANO = 'ANO';
@ -202,9 +236,200 @@ const
idx_PedidosCliente_Detalle_ColorCOLOR12 = 13; idx_PedidosCliente_Detalle_ColorCOLOR12 = 13;
type type
{ IPedidoCliente_Art_Colores_Pendientes }
IPedidoCliente_Art_Colores_Pendientes = interface(IDAStronglyTypedDataTable)
['{32201652-7936-46E1-85CA-543B750E39B6}']
{ Property getters and setters }
function GetID_PEDIDOValue: Integer;
procedure SetID_PEDIDOValue(const aValue: Integer);
function GetID_PEDIDOIsNull: Boolean;
procedure SetID_PEDIDOIsNull(const aValue: Boolean);
function GetID_ARTICULOValue: Integer;
procedure SetID_ARTICULOValue(const aValue: Integer);
function GetID_ARTICULOIsNull: Boolean;
procedure SetID_ARTICULOIsNull(const aValue: Boolean);
function GetCOLOR1Value: Int64;
procedure SetCOLOR1Value(const aValue: Int64);
function GetCOLOR1IsNull: Boolean;
procedure SetCOLOR1IsNull(const aValue: Boolean);
function GetCOLOR2Value: Int64;
procedure SetCOLOR2Value(const aValue: Int64);
function GetCOLOR2IsNull: Boolean;
procedure SetCOLOR2IsNull(const aValue: Boolean);
function GetCOLOR3Value: Int64;
procedure SetCOLOR3Value(const aValue: Int64);
function GetCOLOR3IsNull: Boolean;
procedure SetCOLOR3IsNull(const aValue: Boolean);
function GetCOLOR4Value: Int64;
procedure SetCOLOR4Value(const aValue: Int64);
function GetCOLOR4IsNull: Boolean;
procedure SetCOLOR4IsNull(const aValue: Boolean);
function GetCOLOR5Value: Int64;
procedure SetCOLOR5Value(const aValue: Int64);
function GetCOLOR5IsNull: Boolean;
procedure SetCOLOR5IsNull(const aValue: Boolean);
function GetCOLOR6Value: Int64;
procedure SetCOLOR6Value(const aValue: Int64);
function GetCOLOR6IsNull: Boolean;
procedure SetCOLOR6IsNull(const aValue: Boolean);
function GetCOLOR7Value: Int64;
procedure SetCOLOR7Value(const aValue: Int64);
function GetCOLOR7IsNull: Boolean;
procedure SetCOLOR7IsNull(const aValue: Boolean);
function GetCOLOR8Value: Int64;
procedure SetCOLOR8Value(const aValue: Int64);
function GetCOLOR8IsNull: Boolean;
procedure SetCOLOR8IsNull(const aValue: Boolean);
function GetCOLOR9Value: Int64;
procedure SetCOLOR9Value(const aValue: Int64);
function GetCOLOR9IsNull: Boolean;
procedure SetCOLOR9IsNull(const aValue: Boolean);
function GetCOLOR10Value: Int64;
procedure SetCOLOR10Value(const aValue: Int64);
function GetCOLOR10IsNull: Boolean;
procedure SetCOLOR10IsNull(const aValue: Boolean);
function GetCOLOR11Value: Int64;
procedure SetCOLOR11Value(const aValue: Int64);
function GetCOLOR11IsNull: Boolean;
procedure SetCOLOR11IsNull(const aValue: Boolean);
function GetCOLOR12Value: Int64;
procedure SetCOLOR12Value(const aValue: Int64);
function GetCOLOR12IsNull: Boolean;
procedure SetCOLOR12IsNull(const aValue: Boolean);
{ Properties }
property ID_PEDIDO: Integer read GetID_PEDIDOValue write SetID_PEDIDOValue;
property ID_PEDIDOIsNull: Boolean read GetID_PEDIDOIsNull write SetID_PEDIDOIsNull;
property ID_ARTICULO: Integer read GetID_ARTICULOValue write SetID_ARTICULOValue;
property ID_ARTICULOIsNull: Boolean read GetID_ARTICULOIsNull write SetID_ARTICULOIsNull;
property COLOR1: Int64 read GetCOLOR1Value write SetCOLOR1Value;
property COLOR1IsNull: Boolean read GetCOLOR1IsNull write SetCOLOR1IsNull;
property COLOR2: Int64 read GetCOLOR2Value write SetCOLOR2Value;
property COLOR2IsNull: Boolean read GetCOLOR2IsNull write SetCOLOR2IsNull;
property COLOR3: Int64 read GetCOLOR3Value write SetCOLOR3Value;
property COLOR3IsNull: Boolean read GetCOLOR3IsNull write SetCOLOR3IsNull;
property COLOR4: Int64 read GetCOLOR4Value write SetCOLOR4Value;
property COLOR4IsNull: Boolean read GetCOLOR4IsNull write SetCOLOR4IsNull;
property COLOR5: Int64 read GetCOLOR5Value write SetCOLOR5Value;
property COLOR5IsNull: Boolean read GetCOLOR5IsNull write SetCOLOR5IsNull;
property COLOR6: Int64 read GetCOLOR6Value write SetCOLOR6Value;
property COLOR6IsNull: Boolean read GetCOLOR6IsNull write SetCOLOR6IsNull;
property COLOR7: Int64 read GetCOLOR7Value write SetCOLOR7Value;
property COLOR7IsNull: Boolean read GetCOLOR7IsNull write SetCOLOR7IsNull;
property COLOR8: Int64 read GetCOLOR8Value write SetCOLOR8Value;
property COLOR8IsNull: Boolean read GetCOLOR8IsNull write SetCOLOR8IsNull;
property COLOR9: Int64 read GetCOLOR9Value write SetCOLOR9Value;
property COLOR9IsNull: Boolean read GetCOLOR9IsNull write SetCOLOR9IsNull;
property COLOR10: Int64 read GetCOLOR10Value write SetCOLOR10Value;
property COLOR10IsNull: Boolean read GetCOLOR10IsNull write SetCOLOR10IsNull;
property COLOR11: Int64 read GetCOLOR11Value write SetCOLOR11Value;
property COLOR11IsNull: Boolean read GetCOLOR11IsNull write SetCOLOR11IsNull;
property COLOR12: Int64 read GetCOLOR12Value write SetCOLOR12Value;
property COLOR12IsNull: Boolean read GetCOLOR12IsNull write SetCOLOR12IsNull;
end;
{ TPedidoCliente_Art_Colores_PendientesDataTableRules }
TPedidoCliente_Art_Colores_PendientesDataTableRules = class(TIntfObjectDADataTableRules, IPedidoCliente_Art_Colores_Pendientes)
private
protected
{ Property getters and setters }
function GetID_PEDIDOValue: Integer; virtual;
procedure SetID_PEDIDOValue(const aValue: Integer); virtual;
function GetID_PEDIDOIsNull: Boolean; virtual;
procedure SetID_PEDIDOIsNull(const aValue: Boolean); virtual;
function GetID_ARTICULOValue: Integer; virtual;
procedure SetID_ARTICULOValue(const aValue: Integer); virtual;
function GetID_ARTICULOIsNull: Boolean; virtual;
procedure SetID_ARTICULOIsNull(const aValue: Boolean); virtual;
function GetCOLOR1Value: Int64; virtual;
procedure SetCOLOR1Value(const aValue: Int64); virtual;
function GetCOLOR1IsNull: Boolean; virtual;
procedure SetCOLOR1IsNull(const aValue: Boolean); virtual;
function GetCOLOR2Value: Int64; virtual;
procedure SetCOLOR2Value(const aValue: Int64); virtual;
function GetCOLOR2IsNull: Boolean; virtual;
procedure SetCOLOR2IsNull(const aValue: Boolean); virtual;
function GetCOLOR3Value: Int64; virtual;
procedure SetCOLOR3Value(const aValue: Int64); virtual;
function GetCOLOR3IsNull: Boolean; virtual;
procedure SetCOLOR3IsNull(const aValue: Boolean); virtual;
function GetCOLOR4Value: Int64; virtual;
procedure SetCOLOR4Value(const aValue: Int64); virtual;
function GetCOLOR4IsNull: Boolean; virtual;
procedure SetCOLOR4IsNull(const aValue: Boolean); virtual;
function GetCOLOR5Value: Int64; virtual;
procedure SetCOLOR5Value(const aValue: Int64); virtual;
function GetCOLOR5IsNull: Boolean; virtual;
procedure SetCOLOR5IsNull(const aValue: Boolean); virtual;
function GetCOLOR6Value: Int64; virtual;
procedure SetCOLOR6Value(const aValue: Int64); virtual;
function GetCOLOR6IsNull: Boolean; virtual;
procedure SetCOLOR6IsNull(const aValue: Boolean); virtual;
function GetCOLOR7Value: Int64; virtual;
procedure SetCOLOR7Value(const aValue: Int64); virtual;
function GetCOLOR7IsNull: Boolean; virtual;
procedure SetCOLOR7IsNull(const aValue: Boolean); virtual;
function GetCOLOR8Value: Int64; virtual;
procedure SetCOLOR8Value(const aValue: Int64); virtual;
function GetCOLOR8IsNull: Boolean; virtual;
procedure SetCOLOR8IsNull(const aValue: Boolean); virtual;
function GetCOLOR9Value: Int64; virtual;
procedure SetCOLOR9Value(const aValue: Int64); virtual;
function GetCOLOR9IsNull: Boolean; virtual;
procedure SetCOLOR9IsNull(const aValue: Boolean); virtual;
function GetCOLOR10Value: Int64; virtual;
procedure SetCOLOR10Value(const aValue: Int64); virtual;
function GetCOLOR10IsNull: Boolean; virtual;
procedure SetCOLOR10IsNull(const aValue: Boolean); virtual;
function GetCOLOR11Value: Int64; virtual;
procedure SetCOLOR11Value(const aValue: Int64); virtual;
function GetCOLOR11IsNull: Boolean; virtual;
procedure SetCOLOR11IsNull(const aValue: Boolean); virtual;
function GetCOLOR12Value: Int64; virtual;
procedure SetCOLOR12Value(const aValue: Int64); virtual;
function GetCOLOR12IsNull: Boolean; virtual;
procedure SetCOLOR12IsNull(const aValue: Boolean); virtual;
{ Properties }
property ID_PEDIDO: Integer read GetID_PEDIDOValue write SetID_PEDIDOValue;
property ID_PEDIDOIsNull: Boolean read GetID_PEDIDOIsNull write SetID_PEDIDOIsNull;
property ID_ARTICULO: Integer read GetID_ARTICULOValue write SetID_ARTICULOValue;
property ID_ARTICULOIsNull: Boolean read GetID_ARTICULOIsNull write SetID_ARTICULOIsNull;
property COLOR1: Int64 read GetCOLOR1Value write SetCOLOR1Value;
property COLOR1IsNull: Boolean read GetCOLOR1IsNull write SetCOLOR1IsNull;
property COLOR2: Int64 read GetCOLOR2Value write SetCOLOR2Value;
property COLOR2IsNull: Boolean read GetCOLOR2IsNull write SetCOLOR2IsNull;
property COLOR3: Int64 read GetCOLOR3Value write SetCOLOR3Value;
property COLOR3IsNull: Boolean read GetCOLOR3IsNull write SetCOLOR3IsNull;
property COLOR4: Int64 read GetCOLOR4Value write SetCOLOR4Value;
property COLOR4IsNull: Boolean read GetCOLOR4IsNull write SetCOLOR4IsNull;
property COLOR5: Int64 read GetCOLOR5Value write SetCOLOR5Value;
property COLOR5IsNull: Boolean read GetCOLOR5IsNull write SetCOLOR5IsNull;
property COLOR6: Int64 read GetCOLOR6Value write SetCOLOR6Value;
property COLOR6IsNull: Boolean read GetCOLOR6IsNull write SetCOLOR6IsNull;
property COLOR7: Int64 read GetCOLOR7Value write SetCOLOR7Value;
property COLOR7IsNull: Boolean read GetCOLOR7IsNull write SetCOLOR7IsNull;
property COLOR8: Int64 read GetCOLOR8Value write SetCOLOR8Value;
property COLOR8IsNull: Boolean read GetCOLOR8IsNull write SetCOLOR8IsNull;
property COLOR9: Int64 read GetCOLOR9Value write SetCOLOR9Value;
property COLOR9IsNull: Boolean read GetCOLOR9IsNull write SetCOLOR9IsNull;
property COLOR10: Int64 read GetCOLOR10Value write SetCOLOR10Value;
property COLOR10IsNull: Boolean read GetCOLOR10IsNull write SetCOLOR10IsNull;
property COLOR11: Int64 read GetCOLOR11Value write SetCOLOR11Value;
property COLOR11IsNull: Boolean read GetCOLOR11IsNull write SetCOLOR11IsNull;
property COLOR12: Int64 read GetCOLOR12Value write SetCOLOR12Value;
property COLOR12IsNull: Boolean read GetCOLOR12IsNull write SetCOLOR12IsNull;
public
constructor Create(aDataTable: TDADataTable); override;
destructor Destroy; override;
end;
{ IListaAnosPedidos } { IListaAnosPedidos }
IListaAnosPedidos = interface(IDAStronglyTypedDataTable) IListaAnosPedidos = interface(IDAStronglyTypedDataTable)
['{475ACA8D-8541-4EE1-A13B-85A5D1F6BED0}'] ['{A77970C4-600B-41C8-BED5-AAEBDA357B58}']
{ Property getters and setters } { Property getters and setters }
function GetANOValue: String; function GetANOValue: String;
procedure SetANOValue(const aValue: String); procedure SetANOValue(const aValue: String);
@ -218,7 +443,7 @@ type
end; end;
{ TListaAnosPedidosDataTableRules } { TListaAnosPedidosDataTableRules }
TListaAnosPedidosDataTableRules = class(TDADataTableRules, IListaAnosPedidos) TListaAnosPedidosDataTableRules = class(TIntfObjectDADataTableRules, IListaAnosPedidos)
private private
protected protected
{ Property getters and setters } { Property getters and setters }
@ -239,7 +464,7 @@ type
{ IPedidoCliente_ArticulosPendientesPedirAProv } { IPedidoCliente_ArticulosPendientesPedirAProv }
IPedidoCliente_ArticulosPendientesPedirAProv = interface(IDAStronglyTypedDataTable) IPedidoCliente_ArticulosPendientesPedirAProv = interface(IDAStronglyTypedDataTable)
['{7AD10614-220C-409B-AC9B-45D3D071265E}'] ['{EBDE6CE5-A430-4B8C-8F26-D9B68A20ACC1}']
{ Property getters and setters } { Property getters and setters }
function GetID_PEDIDOValue: Integer; function GetID_PEDIDOValue: Integer;
procedure SetID_PEDIDOValue(const aValue: Integer); procedure SetID_PEDIDOValue(const aValue: Integer);
@ -249,20 +474,20 @@ type
procedure SetID_ARTICULOValue(const aValue: Integer); procedure SetID_ARTICULOValue(const aValue: Integer);
function GetID_ARTICULOIsNull: Boolean; function GetID_ARTICULOIsNull: Boolean;
procedure SetID_ARTICULOIsNull(const aValue: Boolean); procedure SetID_ARTICULOIsNull(const aValue: Boolean);
function GetCANT_PEDIDA_CLIENTEValue: Integer; function GetCANT_PEDIDA_CLIENTEValue: Float;
procedure SetCANT_PEDIDA_CLIENTEValue(const aValue: Integer); procedure SetCANT_PEDIDA_CLIENTEValue(const aValue: Float);
function GetCANT_PEDIDA_CLIENTEIsNull: Boolean; function GetCANT_PEDIDA_CLIENTEIsNull: Boolean;
procedure SetCANT_PEDIDA_CLIENTEIsNull(const aValue: Boolean); procedure SetCANT_PEDIDA_CLIENTEIsNull(const aValue: Boolean);
function GetID_PROVEEDORValue: Integer; function GetID_PROVEEDORValue: Integer;
procedure SetID_PROVEEDORValue(const aValue: Integer); procedure SetID_PROVEEDORValue(const aValue: Integer);
function GetID_PROVEEDORIsNull: Boolean; function GetID_PROVEEDORIsNull: Boolean;
procedure SetID_PROVEEDORIsNull(const aValue: Boolean); procedure SetID_PROVEEDORIsNull(const aValue: Boolean);
function GetCANT_PEDIDA_PROVEEDORValue: Integer; function GetCANT_PEDIDA_PROVEEDORValue: Float;
procedure SetCANT_PEDIDA_PROVEEDORValue(const aValue: Integer); procedure SetCANT_PEDIDA_PROVEEDORValue(const aValue: Float);
function GetCANT_PEDIDA_PROVEEDORIsNull: Boolean; function GetCANT_PEDIDA_PROVEEDORIsNull: Boolean;
procedure SetCANT_PEDIDA_PROVEEDORIsNull(const aValue: Boolean); procedure SetCANT_PEDIDA_PROVEEDORIsNull(const aValue: Boolean);
function GetCANT_PENDIENTE_PEDIRValue: Integer; function GetCANT_PENDIENTE_PEDIRValue: Float;
procedure SetCANT_PENDIENTE_PEDIRValue(const aValue: Integer); procedure SetCANT_PENDIENTE_PEDIRValue(const aValue: Float);
function GetCANT_PENDIENTE_PEDIRIsNull: Boolean; function GetCANT_PENDIENTE_PEDIRIsNull: Boolean;
procedure SetCANT_PENDIENTE_PEDIRIsNull(const aValue: Boolean); procedure SetCANT_PENDIENTE_PEDIRIsNull(const aValue: Boolean);
@ -272,18 +497,18 @@ type
property ID_PEDIDOIsNull: Boolean read GetID_PEDIDOIsNull write SetID_PEDIDOIsNull; property ID_PEDIDOIsNull: Boolean read GetID_PEDIDOIsNull write SetID_PEDIDOIsNull;
property ID_ARTICULO: Integer read GetID_ARTICULOValue write SetID_ARTICULOValue; property ID_ARTICULO: Integer read GetID_ARTICULOValue write SetID_ARTICULOValue;
property ID_ARTICULOIsNull: Boolean read GetID_ARTICULOIsNull write SetID_ARTICULOIsNull; property ID_ARTICULOIsNull: Boolean read GetID_ARTICULOIsNull write SetID_ARTICULOIsNull;
property CANT_PEDIDA_CLIENTE: Integer read GetCANT_PEDIDA_CLIENTEValue write SetCANT_PEDIDA_CLIENTEValue; property CANT_PEDIDA_CLIENTE: Float read GetCANT_PEDIDA_CLIENTEValue write SetCANT_PEDIDA_CLIENTEValue;
property CANT_PEDIDA_CLIENTEIsNull: Boolean read GetCANT_PEDIDA_CLIENTEIsNull write SetCANT_PEDIDA_CLIENTEIsNull; property CANT_PEDIDA_CLIENTEIsNull: Boolean read GetCANT_PEDIDA_CLIENTEIsNull write SetCANT_PEDIDA_CLIENTEIsNull;
property ID_PROVEEDOR: Integer read GetID_PROVEEDORValue write SetID_PROVEEDORValue; property ID_PROVEEDOR: Integer read GetID_PROVEEDORValue write SetID_PROVEEDORValue;
property ID_PROVEEDORIsNull: Boolean read GetID_PROVEEDORIsNull write SetID_PROVEEDORIsNull; property ID_PROVEEDORIsNull: Boolean read GetID_PROVEEDORIsNull write SetID_PROVEEDORIsNull;
property CANT_PEDIDA_PROVEEDOR: Integer read GetCANT_PEDIDA_PROVEEDORValue write SetCANT_PEDIDA_PROVEEDORValue; property CANT_PEDIDA_PROVEEDOR: Float read GetCANT_PEDIDA_PROVEEDORValue write SetCANT_PEDIDA_PROVEEDORValue;
property CANT_PEDIDA_PROVEEDORIsNull: Boolean read GetCANT_PEDIDA_PROVEEDORIsNull write SetCANT_PEDIDA_PROVEEDORIsNull; property CANT_PEDIDA_PROVEEDORIsNull: Boolean read GetCANT_PEDIDA_PROVEEDORIsNull write SetCANT_PEDIDA_PROVEEDORIsNull;
property CANT_PENDIENTE_PEDIR: Integer read GetCANT_PENDIENTE_PEDIRValue write SetCANT_PENDIENTE_PEDIRValue; property CANT_PENDIENTE_PEDIR: Float read GetCANT_PENDIENTE_PEDIRValue write SetCANT_PENDIENTE_PEDIRValue;
property CANT_PENDIENTE_PEDIRIsNull: Boolean read GetCANT_PENDIENTE_PEDIRIsNull write SetCANT_PENDIENTE_PEDIRIsNull; property CANT_PENDIENTE_PEDIRIsNull: Boolean read GetCANT_PENDIENTE_PEDIRIsNull write SetCANT_PENDIENTE_PEDIRIsNull;
end; end;
{ TPedidoCliente_ArticulosPendientesPedirAProvDataTableRules } { TPedidoCliente_ArticulosPendientesPedirAProvDataTableRules }
TPedidoCliente_ArticulosPendientesPedirAProvDataTableRules = class(TDADataTableRules, IPedidoCliente_ArticulosPendientesPedirAProv) TPedidoCliente_ArticulosPendientesPedirAProvDataTableRules = class(TIntfObjectDADataTableRules, IPedidoCliente_ArticulosPendientesPedirAProv)
private private
protected protected
{ Property getters and setters } { Property getters and setters }
@ -295,20 +520,20 @@ type
procedure SetID_ARTICULOValue(const aValue: Integer); virtual; procedure SetID_ARTICULOValue(const aValue: Integer); virtual;
function GetID_ARTICULOIsNull: Boolean; virtual; function GetID_ARTICULOIsNull: Boolean; virtual;
procedure SetID_ARTICULOIsNull(const aValue: Boolean); virtual; procedure SetID_ARTICULOIsNull(const aValue: Boolean); virtual;
function GetCANT_PEDIDA_CLIENTEValue: Integer; virtual; function GetCANT_PEDIDA_CLIENTEValue: Float; virtual;
procedure SetCANT_PEDIDA_CLIENTEValue(const aValue: Integer); virtual; procedure SetCANT_PEDIDA_CLIENTEValue(const aValue: Float); virtual;
function GetCANT_PEDIDA_CLIENTEIsNull: Boolean; virtual; function GetCANT_PEDIDA_CLIENTEIsNull: Boolean; virtual;
procedure SetCANT_PEDIDA_CLIENTEIsNull(const aValue: Boolean); virtual; procedure SetCANT_PEDIDA_CLIENTEIsNull(const aValue: Boolean); virtual;
function GetID_PROVEEDORValue: Integer; virtual; function GetID_PROVEEDORValue: Integer; virtual;
procedure SetID_PROVEEDORValue(const aValue: Integer); virtual; procedure SetID_PROVEEDORValue(const aValue: Integer); virtual;
function GetID_PROVEEDORIsNull: Boolean; virtual; function GetID_PROVEEDORIsNull: Boolean; virtual;
procedure SetID_PROVEEDORIsNull(const aValue: Boolean); virtual; procedure SetID_PROVEEDORIsNull(const aValue: Boolean); virtual;
function GetCANT_PEDIDA_PROVEEDORValue: Integer; virtual; function GetCANT_PEDIDA_PROVEEDORValue: Float; virtual;
procedure SetCANT_PEDIDA_PROVEEDORValue(const aValue: Integer); virtual; procedure SetCANT_PEDIDA_PROVEEDORValue(const aValue: Float); virtual;
function GetCANT_PEDIDA_PROVEEDORIsNull: Boolean; virtual; function GetCANT_PEDIDA_PROVEEDORIsNull: Boolean; virtual;
procedure SetCANT_PEDIDA_PROVEEDORIsNull(const aValue: Boolean); virtual; procedure SetCANT_PEDIDA_PROVEEDORIsNull(const aValue: Boolean); virtual;
function GetCANT_PENDIENTE_PEDIRValue: Integer; virtual; function GetCANT_PENDIENTE_PEDIRValue: Float; virtual;
procedure SetCANT_PENDIENTE_PEDIRValue(const aValue: Integer); virtual; procedure SetCANT_PENDIENTE_PEDIRValue(const aValue: Float); virtual;
function GetCANT_PENDIENTE_PEDIRIsNull: Boolean; virtual; function GetCANT_PENDIENTE_PEDIRIsNull: Boolean; virtual;
procedure SetCANT_PENDIENTE_PEDIRIsNull(const aValue: Boolean); virtual; procedure SetCANT_PENDIENTE_PEDIRIsNull(const aValue: Boolean); virtual;
@ -317,13 +542,13 @@ type
property ID_PEDIDOIsNull: Boolean read GetID_PEDIDOIsNull write SetID_PEDIDOIsNull; property ID_PEDIDOIsNull: Boolean read GetID_PEDIDOIsNull write SetID_PEDIDOIsNull;
property ID_ARTICULO: Integer read GetID_ARTICULOValue write SetID_ARTICULOValue; property ID_ARTICULO: Integer read GetID_ARTICULOValue write SetID_ARTICULOValue;
property ID_ARTICULOIsNull: Boolean read GetID_ARTICULOIsNull write SetID_ARTICULOIsNull; property ID_ARTICULOIsNull: Boolean read GetID_ARTICULOIsNull write SetID_ARTICULOIsNull;
property CANT_PEDIDA_CLIENTE: Integer read GetCANT_PEDIDA_CLIENTEValue write SetCANT_PEDIDA_CLIENTEValue; property CANT_PEDIDA_CLIENTE: Float read GetCANT_PEDIDA_CLIENTEValue write SetCANT_PEDIDA_CLIENTEValue;
property CANT_PEDIDA_CLIENTEIsNull: Boolean read GetCANT_PEDIDA_CLIENTEIsNull write SetCANT_PEDIDA_CLIENTEIsNull; property CANT_PEDIDA_CLIENTEIsNull: Boolean read GetCANT_PEDIDA_CLIENTEIsNull write SetCANT_PEDIDA_CLIENTEIsNull;
property ID_PROVEEDOR: Integer read GetID_PROVEEDORValue write SetID_PROVEEDORValue; property ID_PROVEEDOR: Integer read GetID_PROVEEDORValue write SetID_PROVEEDORValue;
property ID_PROVEEDORIsNull: Boolean read GetID_PROVEEDORIsNull write SetID_PROVEEDORIsNull; property ID_PROVEEDORIsNull: Boolean read GetID_PROVEEDORIsNull write SetID_PROVEEDORIsNull;
property CANT_PEDIDA_PROVEEDOR: Integer read GetCANT_PEDIDA_PROVEEDORValue write SetCANT_PEDIDA_PROVEEDORValue; property CANT_PEDIDA_PROVEEDOR: Float read GetCANT_PEDIDA_PROVEEDORValue write SetCANT_PEDIDA_PROVEEDORValue;
property CANT_PEDIDA_PROVEEDORIsNull: Boolean read GetCANT_PEDIDA_PROVEEDORIsNull write SetCANT_PEDIDA_PROVEEDORIsNull; property CANT_PEDIDA_PROVEEDORIsNull: Boolean read GetCANT_PEDIDA_PROVEEDORIsNull write SetCANT_PEDIDA_PROVEEDORIsNull;
property CANT_PENDIENTE_PEDIR: Integer read GetCANT_PENDIENTE_PEDIRValue write SetCANT_PENDIENTE_PEDIRValue; property CANT_PENDIENTE_PEDIR: Float read GetCANT_PENDIENTE_PEDIRValue write SetCANT_PENDIENTE_PEDIRValue;
property CANT_PENDIENTE_PEDIRIsNull: Boolean read GetCANT_PENDIENTE_PEDIRIsNull write SetCANT_PENDIENTE_PEDIRIsNull; property CANT_PENDIENTE_PEDIRIsNull: Boolean read GetCANT_PENDIENTE_PEDIRIsNull write SetCANT_PENDIENTE_PEDIRIsNull;
public public
@ -334,7 +559,7 @@ type
{ IPedidosCliente } { IPedidosCliente }
IPedidosCliente = interface(IDAStronglyTypedDataTable) IPedidosCliente = interface(IDAStronglyTypedDataTable)
['{7F223677-49BE-4682-A347-2F7D6E9EB4EC}'] ['{095475C5-5040-4831-9310-8028A76B7568}']
{ Property getters and setters } { Property getters and setters }
function GetIDValue: Integer; function GetIDValue: Integer;
procedure SetIDValue(const aValue: Integer); procedure SetIDValue(const aValue: Integer);
@ -556,7 +781,7 @@ type
end; end;
{ TPedidosClienteDataTableRules } { TPedidosClienteDataTableRules }
TPedidosClienteDataTableRules = class(TDADataTableRules, IPedidosCliente) TPedidosClienteDataTableRules = class(TIntfObjectDADataTableRules, IPedidosCliente)
private private
f_OBSERVACIONES: IROStrings; f_OBSERVACIONES: IROStrings;
f_INCIDENCIAS: IROStrings; f_INCIDENCIAS: IROStrings;
@ -789,7 +1014,7 @@ type
{ IPedidosCliente_Detalles } { IPedidosCliente_Detalles }
IPedidosCliente_Detalles = interface(IDAStronglyTypedDataTable) IPedidosCliente_Detalles = interface(IDAStronglyTypedDataTable)
['{BAD29A6E-F515-46A0-8BDD-EE879086BE33}'] ['{38AC30F0-521A-4DA3-AED0-D3D56657ABFA}']
{ Property getters and setters } { Property getters and setters }
function GetIDValue: Integer; function GetIDValue: Integer;
procedure SetIDValue(const aValue: Integer); procedure SetIDValue(const aValue: Integer);
@ -887,7 +1112,7 @@ type
end; end;
{ TPedidosCliente_DetallesDataTableRules } { TPedidosCliente_DetallesDataTableRules }
TPedidosCliente_DetallesDataTableRules = class(TDADataTableRules, IPedidosCliente_Detalles) TPedidosCliente_DetallesDataTableRules = class(TIntfObjectDADataTableRules, IPedidosCliente_Detalles)
private private
protected protected
{ Property getters and setters } { Property getters and setters }
@ -992,22 +1217,22 @@ type
{ IPedidoCliente_Articulos_Pendientes } { IPedidoCliente_Articulos_Pendientes }
IPedidoCliente_Articulos_Pendientes = interface(IDAStronglyTypedDataTable) IPedidoCliente_Articulos_Pendientes = interface(IDAStronglyTypedDataTable)
['{3662880C-6D05-49E4-B105-19882211F1AD}'] ['{CDD4E426-925A-47C9-AE39-E07ED452A219}']
{ Property getters and setters } { Property getters and setters }
function GetID_ARTICULOValue: Integer; function GetID_ARTICULOValue: Integer;
procedure SetID_ARTICULOValue(const aValue: Integer); procedure SetID_ARTICULOValue(const aValue: Integer);
function GetID_ARTICULOIsNull: Boolean; function GetID_ARTICULOIsNull: Boolean;
procedure SetID_ARTICULOIsNull(const aValue: Boolean); procedure SetID_ARTICULOIsNull(const aValue: Boolean);
function GetCANTIDAD_PEDValue: Integer; function GetCANTIDAD_PEDValue: Float;
procedure SetCANTIDAD_PEDValue(const aValue: Integer); procedure SetCANTIDAD_PEDValue(const aValue: Float);
function GetCANTIDAD_PEDIsNull: Boolean; function GetCANTIDAD_PEDIsNull: Boolean;
procedure SetCANTIDAD_PEDIsNull(const aValue: Boolean); procedure SetCANTIDAD_PEDIsNull(const aValue: Boolean);
function GetCANTIDAD_ALBValue: Integer; function GetCANTIDAD_ALBValue: Float;
procedure SetCANTIDAD_ALBValue(const aValue: Integer); procedure SetCANTIDAD_ALBValue(const aValue: Float);
function GetCANTIDAD_ALBIsNull: Boolean; function GetCANTIDAD_ALBIsNull: Boolean;
procedure SetCANTIDAD_ALBIsNull(const aValue: Boolean); procedure SetCANTIDAD_ALBIsNull(const aValue: Boolean);
function GetCANTIDAD_PENDIENTEValue: Integer; function GetCANTIDAD_PENDIENTEValue: Float;
procedure SetCANTIDAD_PENDIENTEValue(const aValue: Integer); procedure SetCANTIDAD_PENDIENTEValue(const aValue: Float);
function GetCANTIDAD_PENDIENTEIsNull: Boolean; function GetCANTIDAD_PENDIENTEIsNull: Boolean;
procedure SetCANTIDAD_PENDIENTEIsNull(const aValue: Boolean); procedure SetCANTIDAD_PENDIENTEIsNull(const aValue: Boolean);
@ -1015,16 +1240,16 @@ type
{ Properties } { Properties }
property ID_ARTICULO: Integer read GetID_ARTICULOValue write SetID_ARTICULOValue; property ID_ARTICULO: Integer read GetID_ARTICULOValue write SetID_ARTICULOValue;
property ID_ARTICULOIsNull: Boolean read GetID_ARTICULOIsNull write SetID_ARTICULOIsNull; property ID_ARTICULOIsNull: Boolean read GetID_ARTICULOIsNull write SetID_ARTICULOIsNull;
property CANTIDAD_PED: Integer read GetCANTIDAD_PEDValue write SetCANTIDAD_PEDValue; property CANTIDAD_PED: Float read GetCANTIDAD_PEDValue write SetCANTIDAD_PEDValue;
property CANTIDAD_PEDIsNull: Boolean read GetCANTIDAD_PEDIsNull write SetCANTIDAD_PEDIsNull; property CANTIDAD_PEDIsNull: Boolean read GetCANTIDAD_PEDIsNull write SetCANTIDAD_PEDIsNull;
property CANTIDAD_ALB: Integer read GetCANTIDAD_ALBValue write SetCANTIDAD_ALBValue; property CANTIDAD_ALB: Float read GetCANTIDAD_ALBValue write SetCANTIDAD_ALBValue;
property CANTIDAD_ALBIsNull: Boolean read GetCANTIDAD_ALBIsNull write SetCANTIDAD_ALBIsNull; property CANTIDAD_ALBIsNull: Boolean read GetCANTIDAD_ALBIsNull write SetCANTIDAD_ALBIsNull;
property CANTIDAD_PENDIENTE: Integer read GetCANTIDAD_PENDIENTEValue write SetCANTIDAD_PENDIENTEValue; property CANTIDAD_PENDIENTE: Float read GetCANTIDAD_PENDIENTEValue write SetCANTIDAD_PENDIENTEValue;
property CANTIDAD_PENDIENTEIsNull: Boolean read GetCANTIDAD_PENDIENTEIsNull write SetCANTIDAD_PENDIENTEIsNull; property CANTIDAD_PENDIENTEIsNull: Boolean read GetCANTIDAD_PENDIENTEIsNull write SetCANTIDAD_PENDIENTEIsNull;
end; end;
{ TPedidoCliente_Articulos_PendientesDataTableRules } { TPedidoCliente_Articulos_PendientesDataTableRules }
TPedidoCliente_Articulos_PendientesDataTableRules = class(TDADataTableRules, IPedidoCliente_Articulos_Pendientes) TPedidoCliente_Articulos_PendientesDataTableRules = class(TIntfObjectDADataTableRules, IPedidoCliente_Articulos_Pendientes)
private private
protected protected
{ Property getters and setters } { Property getters and setters }
@ -1032,27 +1257,27 @@ type
procedure SetID_ARTICULOValue(const aValue: Integer); virtual; procedure SetID_ARTICULOValue(const aValue: Integer); virtual;
function GetID_ARTICULOIsNull: Boolean; virtual; function GetID_ARTICULOIsNull: Boolean; virtual;
procedure SetID_ARTICULOIsNull(const aValue: Boolean); virtual; procedure SetID_ARTICULOIsNull(const aValue: Boolean); virtual;
function GetCANTIDAD_PEDValue: Integer; virtual; function GetCANTIDAD_PEDValue: Float; virtual;
procedure SetCANTIDAD_PEDValue(const aValue: Integer); virtual; procedure SetCANTIDAD_PEDValue(const aValue: Float); virtual;
function GetCANTIDAD_PEDIsNull: Boolean; virtual; function GetCANTIDAD_PEDIsNull: Boolean; virtual;
procedure SetCANTIDAD_PEDIsNull(const aValue: Boolean); virtual; procedure SetCANTIDAD_PEDIsNull(const aValue: Boolean); virtual;
function GetCANTIDAD_ALBValue: Integer; virtual; function GetCANTIDAD_ALBValue: Float; virtual;
procedure SetCANTIDAD_ALBValue(const aValue: Integer); virtual; procedure SetCANTIDAD_ALBValue(const aValue: Float); virtual;
function GetCANTIDAD_ALBIsNull: Boolean; virtual; function GetCANTIDAD_ALBIsNull: Boolean; virtual;
procedure SetCANTIDAD_ALBIsNull(const aValue: Boolean); virtual; procedure SetCANTIDAD_ALBIsNull(const aValue: Boolean); virtual;
function GetCANTIDAD_PENDIENTEValue: Integer; virtual; function GetCANTIDAD_PENDIENTEValue: Float; virtual;
procedure SetCANTIDAD_PENDIENTEValue(const aValue: Integer); virtual; procedure SetCANTIDAD_PENDIENTEValue(const aValue: Float); virtual;
function GetCANTIDAD_PENDIENTEIsNull: Boolean; virtual; function GetCANTIDAD_PENDIENTEIsNull: Boolean; virtual;
procedure SetCANTIDAD_PENDIENTEIsNull(const aValue: Boolean); virtual; procedure SetCANTIDAD_PENDIENTEIsNull(const aValue: Boolean); virtual;
{ Properties } { Properties }
property ID_ARTICULO: Integer read GetID_ARTICULOValue write SetID_ARTICULOValue; property ID_ARTICULO: Integer read GetID_ARTICULOValue write SetID_ARTICULOValue;
property ID_ARTICULOIsNull: Boolean read GetID_ARTICULOIsNull write SetID_ARTICULOIsNull; property ID_ARTICULOIsNull: Boolean read GetID_ARTICULOIsNull write SetID_ARTICULOIsNull;
property CANTIDAD_PED: Integer read GetCANTIDAD_PEDValue write SetCANTIDAD_PEDValue; property CANTIDAD_PED: Float read GetCANTIDAD_PEDValue write SetCANTIDAD_PEDValue;
property CANTIDAD_PEDIsNull: Boolean read GetCANTIDAD_PEDIsNull write SetCANTIDAD_PEDIsNull; property CANTIDAD_PEDIsNull: Boolean read GetCANTIDAD_PEDIsNull write SetCANTIDAD_PEDIsNull;
property CANTIDAD_ALB: Integer read GetCANTIDAD_ALBValue write SetCANTIDAD_ALBValue; property CANTIDAD_ALB: Float read GetCANTIDAD_ALBValue write SetCANTIDAD_ALBValue;
property CANTIDAD_ALBIsNull: Boolean read GetCANTIDAD_ALBIsNull write SetCANTIDAD_ALBIsNull; property CANTIDAD_ALBIsNull: Boolean read GetCANTIDAD_ALBIsNull write SetCANTIDAD_ALBIsNull;
property CANTIDAD_PENDIENTE: Integer read GetCANTIDAD_PENDIENTEValue write SetCANTIDAD_PENDIENTEValue; property CANTIDAD_PENDIENTE: Float read GetCANTIDAD_PENDIENTEValue write SetCANTIDAD_PENDIENTEValue;
property CANTIDAD_PENDIENTEIsNull: Boolean read GetCANTIDAD_PENDIENTEIsNull write SetCANTIDAD_PENDIENTEIsNull; property CANTIDAD_PENDIENTEIsNull: Boolean read GetCANTIDAD_PENDIENTEIsNull write SetCANTIDAD_PENDIENTEIsNull;
public public
@ -1063,7 +1288,7 @@ type
{ IPedidosCliente_Detalle_Color } { IPedidosCliente_Detalle_Color }
IPedidosCliente_Detalle_Color = interface(IDAStronglyTypedDataTable) IPedidosCliente_Detalle_Color = interface(IDAStronglyTypedDataTable)
['{9D745C39-FEE8-4641-BCC3-BABA61100D42}'] ['{AF1847ED-E9E1-42A7-A205-C99502AE53DF}']
{ Property getters and setters } { Property getters and setters }
function GetIDValue: Integer; function GetIDValue: Integer;
procedure SetIDValue(const aValue: Integer); procedure SetIDValue(const aValue: Integer);
@ -1155,7 +1380,7 @@ type
end; end;
{ TPedidosCliente_Detalle_ColorDataTableRules } { TPedidosCliente_Detalle_ColorDataTableRules }
TPedidosCliente_Detalle_ColorDataTableRules = class(TDADataTableRules, IPedidosCliente_Detalle_Color) TPedidosCliente_Detalle_ColorDataTableRules = class(TIntfObjectDADataTableRules, IPedidosCliente_Detalle_Color)
private private
protected protected
{ Property getters and setters } { Property getters and setters }
@ -1256,6 +1481,312 @@ implementation
uses Variants, uROBinaryHelpers; uses Variants, uROBinaryHelpers;
{ TPedidoCliente_Art_Colores_PendientesDataTableRules }
constructor TPedidoCliente_Art_Colores_PendientesDataTableRules.Create(aDataTable: TDADataTable);
begin
inherited;
end;
destructor TPedidoCliente_Art_Colores_PendientesDataTableRules.Destroy;
begin
inherited;
end;
function TPedidoCliente_Art_Colores_PendientesDataTableRules.GetID_PEDIDOValue: Integer;
begin
result := DataTable.Fields[idx_PedidoCliente_Art_Colores_PendientesID_PEDIDO].AsInteger;
end;
procedure TPedidoCliente_Art_Colores_PendientesDataTableRules.SetID_PEDIDOValue(const aValue: Integer);
begin
DataTable.Fields[idx_PedidoCliente_Art_Colores_PendientesID_PEDIDO].AsInteger := aValue;
end;
function TPedidoCliente_Art_Colores_PendientesDataTableRules.GetID_PEDIDOIsNull: boolean;
begin
result := DataTable.Fields[idx_PedidoCliente_Art_Colores_PendientesID_PEDIDO].IsNull;
end;
procedure TPedidoCliente_Art_Colores_PendientesDataTableRules.SetID_PEDIDOIsNull(const aValue: Boolean);
begin
if aValue then
DataTable.Fields[idx_PedidoCliente_Art_Colores_PendientesID_PEDIDO].AsVariant := Null;
end;
function TPedidoCliente_Art_Colores_PendientesDataTableRules.GetID_ARTICULOValue: Integer;
begin
result := DataTable.Fields[idx_PedidoCliente_Art_Colores_PendientesID_ARTICULO].AsInteger;
end;
procedure TPedidoCliente_Art_Colores_PendientesDataTableRules.SetID_ARTICULOValue(const aValue: Integer);
begin
DataTable.Fields[idx_PedidoCliente_Art_Colores_PendientesID_ARTICULO].AsInteger := aValue;
end;
function TPedidoCliente_Art_Colores_PendientesDataTableRules.GetID_ARTICULOIsNull: boolean;
begin
result := DataTable.Fields[idx_PedidoCliente_Art_Colores_PendientesID_ARTICULO].IsNull;
end;
procedure TPedidoCliente_Art_Colores_PendientesDataTableRules.SetID_ARTICULOIsNull(const aValue: Boolean);
begin
if aValue then
DataTable.Fields[idx_PedidoCliente_Art_Colores_PendientesID_ARTICULO].AsVariant := Null;
end;
function TPedidoCliente_Art_Colores_PendientesDataTableRules.GetCOLOR1Value: Int64;
begin
result := DataTable.Fields[idx_PedidoCliente_Art_Colores_PendientesCOLOR1].AsLargeInt;
end;
procedure TPedidoCliente_Art_Colores_PendientesDataTableRules.SetCOLOR1Value(const aValue: Int64);
begin
DataTable.Fields[idx_PedidoCliente_Art_Colores_PendientesCOLOR1].AsLargeInt := aValue;
end;
function TPedidoCliente_Art_Colores_PendientesDataTableRules.GetCOLOR1IsNull: boolean;
begin
result := DataTable.Fields[idx_PedidoCliente_Art_Colores_PendientesCOLOR1].IsNull;
end;
procedure TPedidoCliente_Art_Colores_PendientesDataTableRules.SetCOLOR1IsNull(const aValue: Boolean);
begin
if aValue then
DataTable.Fields[idx_PedidoCliente_Art_Colores_PendientesCOLOR1].AsVariant := Null;
end;
function TPedidoCliente_Art_Colores_PendientesDataTableRules.GetCOLOR2Value: Int64;
begin
result := DataTable.Fields[idx_PedidoCliente_Art_Colores_PendientesCOLOR2].AsLargeInt;
end;
procedure TPedidoCliente_Art_Colores_PendientesDataTableRules.SetCOLOR2Value(const aValue: Int64);
begin
DataTable.Fields[idx_PedidoCliente_Art_Colores_PendientesCOLOR2].AsLargeInt := aValue;
end;
function TPedidoCliente_Art_Colores_PendientesDataTableRules.GetCOLOR2IsNull: boolean;
begin
result := DataTable.Fields[idx_PedidoCliente_Art_Colores_PendientesCOLOR2].IsNull;
end;
procedure TPedidoCliente_Art_Colores_PendientesDataTableRules.SetCOLOR2IsNull(const aValue: Boolean);
begin
if aValue then
DataTable.Fields[idx_PedidoCliente_Art_Colores_PendientesCOLOR2].AsVariant := Null;
end;
function TPedidoCliente_Art_Colores_PendientesDataTableRules.GetCOLOR3Value: Int64;
begin
result := DataTable.Fields[idx_PedidoCliente_Art_Colores_PendientesCOLOR3].AsLargeInt;
end;
procedure TPedidoCliente_Art_Colores_PendientesDataTableRules.SetCOLOR3Value(const aValue: Int64);
begin
DataTable.Fields[idx_PedidoCliente_Art_Colores_PendientesCOLOR3].AsLargeInt := aValue;
end;
function TPedidoCliente_Art_Colores_PendientesDataTableRules.GetCOLOR3IsNull: boolean;
begin
result := DataTable.Fields[idx_PedidoCliente_Art_Colores_PendientesCOLOR3].IsNull;
end;
procedure TPedidoCliente_Art_Colores_PendientesDataTableRules.SetCOLOR3IsNull(const aValue: Boolean);
begin
if aValue then
DataTable.Fields[idx_PedidoCliente_Art_Colores_PendientesCOLOR3].AsVariant := Null;
end;
function TPedidoCliente_Art_Colores_PendientesDataTableRules.GetCOLOR4Value: Int64;
begin
result := DataTable.Fields[idx_PedidoCliente_Art_Colores_PendientesCOLOR4].AsLargeInt;
end;
procedure TPedidoCliente_Art_Colores_PendientesDataTableRules.SetCOLOR4Value(const aValue: Int64);
begin
DataTable.Fields[idx_PedidoCliente_Art_Colores_PendientesCOLOR4].AsLargeInt := aValue;
end;
function TPedidoCliente_Art_Colores_PendientesDataTableRules.GetCOLOR4IsNull: boolean;
begin
result := DataTable.Fields[idx_PedidoCliente_Art_Colores_PendientesCOLOR4].IsNull;
end;
procedure TPedidoCliente_Art_Colores_PendientesDataTableRules.SetCOLOR4IsNull(const aValue: Boolean);
begin
if aValue then
DataTable.Fields[idx_PedidoCliente_Art_Colores_PendientesCOLOR4].AsVariant := Null;
end;
function TPedidoCliente_Art_Colores_PendientesDataTableRules.GetCOLOR5Value: Int64;
begin
result := DataTable.Fields[idx_PedidoCliente_Art_Colores_PendientesCOLOR5].AsLargeInt;
end;
procedure TPedidoCliente_Art_Colores_PendientesDataTableRules.SetCOLOR5Value(const aValue: Int64);
begin
DataTable.Fields[idx_PedidoCliente_Art_Colores_PendientesCOLOR5].AsLargeInt := aValue;
end;
function TPedidoCliente_Art_Colores_PendientesDataTableRules.GetCOLOR5IsNull: boolean;
begin
result := DataTable.Fields[idx_PedidoCliente_Art_Colores_PendientesCOLOR5].IsNull;
end;
procedure TPedidoCliente_Art_Colores_PendientesDataTableRules.SetCOLOR5IsNull(const aValue: Boolean);
begin
if aValue then
DataTable.Fields[idx_PedidoCliente_Art_Colores_PendientesCOLOR5].AsVariant := Null;
end;
function TPedidoCliente_Art_Colores_PendientesDataTableRules.GetCOLOR6Value: Int64;
begin
result := DataTable.Fields[idx_PedidoCliente_Art_Colores_PendientesCOLOR6].AsLargeInt;
end;
procedure TPedidoCliente_Art_Colores_PendientesDataTableRules.SetCOLOR6Value(const aValue: Int64);
begin
DataTable.Fields[idx_PedidoCliente_Art_Colores_PendientesCOLOR6].AsLargeInt := aValue;
end;
function TPedidoCliente_Art_Colores_PendientesDataTableRules.GetCOLOR6IsNull: boolean;
begin
result := DataTable.Fields[idx_PedidoCliente_Art_Colores_PendientesCOLOR6].IsNull;
end;
procedure TPedidoCliente_Art_Colores_PendientesDataTableRules.SetCOLOR6IsNull(const aValue: Boolean);
begin
if aValue then
DataTable.Fields[idx_PedidoCliente_Art_Colores_PendientesCOLOR6].AsVariant := Null;
end;
function TPedidoCliente_Art_Colores_PendientesDataTableRules.GetCOLOR7Value: Int64;
begin
result := DataTable.Fields[idx_PedidoCliente_Art_Colores_PendientesCOLOR7].AsLargeInt;
end;
procedure TPedidoCliente_Art_Colores_PendientesDataTableRules.SetCOLOR7Value(const aValue: Int64);
begin
DataTable.Fields[idx_PedidoCliente_Art_Colores_PendientesCOLOR7].AsLargeInt := aValue;
end;
function TPedidoCliente_Art_Colores_PendientesDataTableRules.GetCOLOR7IsNull: boolean;
begin
result := DataTable.Fields[idx_PedidoCliente_Art_Colores_PendientesCOLOR7].IsNull;
end;
procedure TPedidoCliente_Art_Colores_PendientesDataTableRules.SetCOLOR7IsNull(const aValue: Boolean);
begin
if aValue then
DataTable.Fields[idx_PedidoCliente_Art_Colores_PendientesCOLOR7].AsVariant := Null;
end;
function TPedidoCliente_Art_Colores_PendientesDataTableRules.GetCOLOR8Value: Int64;
begin
result := DataTable.Fields[idx_PedidoCliente_Art_Colores_PendientesCOLOR8].AsLargeInt;
end;
procedure TPedidoCliente_Art_Colores_PendientesDataTableRules.SetCOLOR8Value(const aValue: Int64);
begin
DataTable.Fields[idx_PedidoCliente_Art_Colores_PendientesCOLOR8].AsLargeInt := aValue;
end;
function TPedidoCliente_Art_Colores_PendientesDataTableRules.GetCOLOR8IsNull: boolean;
begin
result := DataTable.Fields[idx_PedidoCliente_Art_Colores_PendientesCOLOR8].IsNull;
end;
procedure TPedidoCliente_Art_Colores_PendientesDataTableRules.SetCOLOR8IsNull(const aValue: Boolean);
begin
if aValue then
DataTable.Fields[idx_PedidoCliente_Art_Colores_PendientesCOLOR8].AsVariant := Null;
end;
function TPedidoCliente_Art_Colores_PendientesDataTableRules.GetCOLOR9Value: Int64;
begin
result := DataTable.Fields[idx_PedidoCliente_Art_Colores_PendientesCOLOR9].AsLargeInt;
end;
procedure TPedidoCliente_Art_Colores_PendientesDataTableRules.SetCOLOR9Value(const aValue: Int64);
begin
DataTable.Fields[idx_PedidoCliente_Art_Colores_PendientesCOLOR9].AsLargeInt := aValue;
end;
function TPedidoCliente_Art_Colores_PendientesDataTableRules.GetCOLOR9IsNull: boolean;
begin
result := DataTable.Fields[idx_PedidoCliente_Art_Colores_PendientesCOLOR9].IsNull;
end;
procedure TPedidoCliente_Art_Colores_PendientesDataTableRules.SetCOLOR9IsNull(const aValue: Boolean);
begin
if aValue then
DataTable.Fields[idx_PedidoCliente_Art_Colores_PendientesCOLOR9].AsVariant := Null;
end;
function TPedidoCliente_Art_Colores_PendientesDataTableRules.GetCOLOR10Value: Int64;
begin
result := DataTable.Fields[idx_PedidoCliente_Art_Colores_PendientesCOLOR10].AsLargeInt;
end;
procedure TPedidoCliente_Art_Colores_PendientesDataTableRules.SetCOLOR10Value(const aValue: Int64);
begin
DataTable.Fields[idx_PedidoCliente_Art_Colores_PendientesCOLOR10].AsLargeInt := aValue;
end;
function TPedidoCliente_Art_Colores_PendientesDataTableRules.GetCOLOR10IsNull: boolean;
begin
result := DataTable.Fields[idx_PedidoCliente_Art_Colores_PendientesCOLOR10].IsNull;
end;
procedure TPedidoCliente_Art_Colores_PendientesDataTableRules.SetCOLOR10IsNull(const aValue: Boolean);
begin
if aValue then
DataTable.Fields[idx_PedidoCliente_Art_Colores_PendientesCOLOR10].AsVariant := Null;
end;
function TPedidoCliente_Art_Colores_PendientesDataTableRules.GetCOLOR11Value: Int64;
begin
result := DataTable.Fields[idx_PedidoCliente_Art_Colores_PendientesCOLOR11].AsLargeInt;
end;
procedure TPedidoCliente_Art_Colores_PendientesDataTableRules.SetCOLOR11Value(const aValue: Int64);
begin
DataTable.Fields[idx_PedidoCliente_Art_Colores_PendientesCOLOR11].AsLargeInt := aValue;
end;
function TPedidoCliente_Art_Colores_PendientesDataTableRules.GetCOLOR11IsNull: boolean;
begin
result := DataTable.Fields[idx_PedidoCliente_Art_Colores_PendientesCOLOR11].IsNull;
end;
procedure TPedidoCliente_Art_Colores_PendientesDataTableRules.SetCOLOR11IsNull(const aValue: Boolean);
begin
if aValue then
DataTable.Fields[idx_PedidoCliente_Art_Colores_PendientesCOLOR11].AsVariant := Null;
end;
function TPedidoCliente_Art_Colores_PendientesDataTableRules.GetCOLOR12Value: Int64;
begin
result := DataTable.Fields[idx_PedidoCliente_Art_Colores_PendientesCOLOR12].AsLargeInt;
end;
procedure TPedidoCliente_Art_Colores_PendientesDataTableRules.SetCOLOR12Value(const aValue: Int64);
begin
DataTable.Fields[idx_PedidoCliente_Art_Colores_PendientesCOLOR12].AsLargeInt := aValue;
end;
function TPedidoCliente_Art_Colores_PendientesDataTableRules.GetCOLOR12IsNull: boolean;
begin
result := DataTable.Fields[idx_PedidoCliente_Art_Colores_PendientesCOLOR12].IsNull;
end;
procedure TPedidoCliente_Art_Colores_PendientesDataTableRules.SetCOLOR12IsNull(const aValue: Boolean);
begin
if aValue then
DataTable.Fields[idx_PedidoCliente_Art_Colores_PendientesCOLOR12].AsVariant := Null;
end;
{ TListaAnosPedidosDataTableRules } { TListaAnosPedidosDataTableRules }
constructor TListaAnosPedidosDataTableRules.Create(aDataTable: TDADataTable); constructor TListaAnosPedidosDataTableRules.Create(aDataTable: TDADataTable);
begin begin
@ -1342,14 +1873,14 @@ begin
DataTable.Fields[idx_PedidoCliente_ArticulosPendientesPedirAProvID_ARTICULO].AsVariant := Null; DataTable.Fields[idx_PedidoCliente_ArticulosPendientesPedirAProvID_ARTICULO].AsVariant := Null;
end; end;
function TPedidoCliente_ArticulosPendientesPedirAProvDataTableRules.GetCANT_PEDIDA_CLIENTEValue: Integer; function TPedidoCliente_ArticulosPendientesPedirAProvDataTableRules.GetCANT_PEDIDA_CLIENTEValue: Float;
begin begin
result := DataTable.Fields[idx_PedidoCliente_ArticulosPendientesPedirAProvCANT_PEDIDA_CLIENTE].AsInteger; result := DataTable.Fields[idx_PedidoCliente_ArticulosPendientesPedirAProvCANT_PEDIDA_CLIENTE].AsFloat;
end; end;
procedure TPedidoCliente_ArticulosPendientesPedirAProvDataTableRules.SetCANT_PEDIDA_CLIENTEValue(const aValue: Integer); procedure TPedidoCliente_ArticulosPendientesPedirAProvDataTableRules.SetCANT_PEDIDA_CLIENTEValue(const aValue: Float);
begin begin
DataTable.Fields[idx_PedidoCliente_ArticulosPendientesPedirAProvCANT_PEDIDA_CLIENTE].AsInteger := aValue; DataTable.Fields[idx_PedidoCliente_ArticulosPendientesPedirAProvCANT_PEDIDA_CLIENTE].AsFloat := aValue;
end; end;
function TPedidoCliente_ArticulosPendientesPedirAProvDataTableRules.GetCANT_PEDIDA_CLIENTEIsNull: boolean; function TPedidoCliente_ArticulosPendientesPedirAProvDataTableRules.GetCANT_PEDIDA_CLIENTEIsNull: boolean;
@ -1384,14 +1915,14 @@ begin
DataTable.Fields[idx_PedidoCliente_ArticulosPendientesPedirAProvID_PROVEEDOR].AsVariant := Null; DataTable.Fields[idx_PedidoCliente_ArticulosPendientesPedirAProvID_PROVEEDOR].AsVariant := Null;
end; end;
function TPedidoCliente_ArticulosPendientesPedirAProvDataTableRules.GetCANT_PEDIDA_PROVEEDORValue: Integer; function TPedidoCliente_ArticulosPendientesPedirAProvDataTableRules.GetCANT_PEDIDA_PROVEEDORValue: Float;
begin begin
result := DataTable.Fields[idx_PedidoCliente_ArticulosPendientesPedirAProvCANT_PEDIDA_PROVEEDOR].AsInteger; result := DataTable.Fields[idx_PedidoCliente_ArticulosPendientesPedirAProvCANT_PEDIDA_PROVEEDOR].AsFloat;
end; end;
procedure TPedidoCliente_ArticulosPendientesPedirAProvDataTableRules.SetCANT_PEDIDA_PROVEEDORValue(const aValue: Integer); procedure TPedidoCliente_ArticulosPendientesPedirAProvDataTableRules.SetCANT_PEDIDA_PROVEEDORValue(const aValue: Float);
begin begin
DataTable.Fields[idx_PedidoCliente_ArticulosPendientesPedirAProvCANT_PEDIDA_PROVEEDOR].AsInteger := aValue; DataTable.Fields[idx_PedidoCliente_ArticulosPendientesPedirAProvCANT_PEDIDA_PROVEEDOR].AsFloat := aValue;
end; end;
function TPedidoCliente_ArticulosPendientesPedirAProvDataTableRules.GetCANT_PEDIDA_PROVEEDORIsNull: boolean; function TPedidoCliente_ArticulosPendientesPedirAProvDataTableRules.GetCANT_PEDIDA_PROVEEDORIsNull: boolean;
@ -1405,14 +1936,14 @@ begin
DataTable.Fields[idx_PedidoCliente_ArticulosPendientesPedirAProvCANT_PEDIDA_PROVEEDOR].AsVariant := Null; DataTable.Fields[idx_PedidoCliente_ArticulosPendientesPedirAProvCANT_PEDIDA_PROVEEDOR].AsVariant := Null;
end; end;
function TPedidoCliente_ArticulosPendientesPedirAProvDataTableRules.GetCANT_PENDIENTE_PEDIRValue: Integer; function TPedidoCliente_ArticulosPendientesPedirAProvDataTableRules.GetCANT_PENDIENTE_PEDIRValue: Float;
begin begin
result := DataTable.Fields[idx_PedidoCliente_ArticulosPendientesPedirAProvCANT_PENDIENTE_PEDIR].AsInteger; result := DataTable.Fields[idx_PedidoCliente_ArticulosPendientesPedirAProvCANT_PENDIENTE_PEDIR].AsFloat;
end; end;
procedure TPedidoCliente_ArticulosPendientesPedirAProvDataTableRules.SetCANT_PENDIENTE_PEDIRValue(const aValue: Integer); procedure TPedidoCliente_ArticulosPendientesPedirAProvDataTableRules.SetCANT_PENDIENTE_PEDIRValue(const aValue: Float);
begin begin
DataTable.Fields[idx_PedidoCliente_ArticulosPendientesPedirAProvCANT_PENDIENTE_PEDIR].AsInteger := aValue; DataTable.Fields[idx_PedidoCliente_ArticulosPendientesPedirAProvCANT_PENDIENTE_PEDIR].AsFloat := aValue;
end; end;
function TPedidoCliente_ArticulosPendientesPedirAProvDataTableRules.GetCANT_PENDIENTE_PEDIRIsNull: boolean; function TPedidoCliente_ArticulosPendientesPedirAProvDataTableRules.GetCANT_PENDIENTE_PEDIRIsNull: boolean;
@ -2566,14 +3097,14 @@ begin
DataTable.Fields[idx_PedidoCliente_Articulos_PendientesID_ARTICULO].AsVariant := Null; DataTable.Fields[idx_PedidoCliente_Articulos_PendientesID_ARTICULO].AsVariant := Null;
end; end;
function TPedidoCliente_Articulos_PendientesDataTableRules.GetCANTIDAD_PEDValue: Integer; function TPedidoCliente_Articulos_PendientesDataTableRules.GetCANTIDAD_PEDValue: Float;
begin begin
result := DataTable.Fields[idx_PedidoCliente_Articulos_PendientesCANTIDAD_PED].AsInteger; result := DataTable.Fields[idx_PedidoCliente_Articulos_PendientesCANTIDAD_PED].AsFloat;
end; end;
procedure TPedidoCliente_Articulos_PendientesDataTableRules.SetCANTIDAD_PEDValue(const aValue: Integer); procedure TPedidoCliente_Articulos_PendientesDataTableRules.SetCANTIDAD_PEDValue(const aValue: Float);
begin begin
DataTable.Fields[idx_PedidoCliente_Articulos_PendientesCANTIDAD_PED].AsInteger := aValue; DataTable.Fields[idx_PedidoCliente_Articulos_PendientesCANTIDAD_PED].AsFloat := aValue;
end; end;
function TPedidoCliente_Articulos_PendientesDataTableRules.GetCANTIDAD_PEDIsNull: boolean; function TPedidoCliente_Articulos_PendientesDataTableRules.GetCANTIDAD_PEDIsNull: boolean;
@ -2587,14 +3118,14 @@ begin
DataTable.Fields[idx_PedidoCliente_Articulos_PendientesCANTIDAD_PED].AsVariant := Null; DataTable.Fields[idx_PedidoCliente_Articulos_PendientesCANTIDAD_PED].AsVariant := Null;
end; end;
function TPedidoCliente_Articulos_PendientesDataTableRules.GetCANTIDAD_ALBValue: Integer; function TPedidoCliente_Articulos_PendientesDataTableRules.GetCANTIDAD_ALBValue: Float;
begin begin
result := DataTable.Fields[idx_PedidoCliente_Articulos_PendientesCANTIDAD_ALB].AsInteger; result := DataTable.Fields[idx_PedidoCliente_Articulos_PendientesCANTIDAD_ALB].AsFloat;
end; end;
procedure TPedidoCliente_Articulos_PendientesDataTableRules.SetCANTIDAD_ALBValue(const aValue: Integer); procedure TPedidoCliente_Articulos_PendientesDataTableRules.SetCANTIDAD_ALBValue(const aValue: Float);
begin begin
DataTable.Fields[idx_PedidoCliente_Articulos_PendientesCANTIDAD_ALB].AsInteger := aValue; DataTable.Fields[idx_PedidoCliente_Articulos_PendientesCANTIDAD_ALB].AsFloat := aValue;
end; end;
function TPedidoCliente_Articulos_PendientesDataTableRules.GetCANTIDAD_ALBIsNull: boolean; function TPedidoCliente_Articulos_PendientesDataTableRules.GetCANTIDAD_ALBIsNull: boolean;
@ -2608,14 +3139,14 @@ begin
DataTable.Fields[idx_PedidoCliente_Articulos_PendientesCANTIDAD_ALB].AsVariant := Null; DataTable.Fields[idx_PedidoCliente_Articulos_PendientesCANTIDAD_ALB].AsVariant := Null;
end; end;
function TPedidoCliente_Articulos_PendientesDataTableRules.GetCANTIDAD_PENDIENTEValue: Integer; function TPedidoCliente_Articulos_PendientesDataTableRules.GetCANTIDAD_PENDIENTEValue: Float;
begin begin
result := DataTable.Fields[idx_PedidoCliente_Articulos_PendientesCANTIDAD_PENDIENTE].AsInteger; result := DataTable.Fields[idx_PedidoCliente_Articulos_PendientesCANTIDAD_PENDIENTE].AsFloat;
end; end;
procedure TPedidoCliente_Articulos_PendientesDataTableRules.SetCANTIDAD_PENDIENTEValue(const aValue: Integer); procedure TPedidoCliente_Articulos_PendientesDataTableRules.SetCANTIDAD_PENDIENTEValue(const aValue: Float);
begin begin
DataTable.Fields[idx_PedidoCliente_Articulos_PendientesCANTIDAD_PENDIENTE].AsInteger := aValue; DataTable.Fields[idx_PedidoCliente_Articulos_PendientesCANTIDAD_PENDIENTE].AsFloat := aValue;
end; end;
function TPedidoCliente_Articulos_PendientesDataTableRules.GetCANTIDAD_PENDIENTEIsNull: boolean; function TPedidoCliente_Articulos_PendientesDataTableRules.GetCANTIDAD_PENDIENTEIsNull: boolean;
@ -2937,6 +3468,7 @@ end;
initialization initialization
RegisterDataTableRules(RID_PedidoCliente_Art_Colores_Pendientes, TPedidoCliente_Art_Colores_PendientesDataTableRules);
RegisterDataTableRules(RID_ListaAnosPedidos, TListaAnosPedidosDataTableRules); RegisterDataTableRules(RID_ListaAnosPedidos, TListaAnosPedidosDataTableRules);
RegisterDataTableRules(RID_PedidoCliente_ArticulosPendientesPedirAProv, TPedidoCliente_ArticulosPendientesPedirAProvDataTableRules); RegisterDataTableRules(RID_PedidoCliente_ArticulosPendientesPedirAProv, TPedidoCliente_ArticulosPendientesPedirAProvDataTableRules);
RegisterDataTableRules(RID_PedidosCliente, TPedidosClienteDataTableRules); RegisterDataTableRules(RID_PedidosCliente, TPedidosClienteDataTableRules);

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

File diff suppressed because it is too large Load Diff

10
Source/Modulos/Pedidos de cliente/Model/uBizDetallesPedidoCliente.pas
View File

@ -8,6 +8,7 @@ uses
const const
BIZ_CLIENT_DETALLES_PEDIDO_CLIENTE = 'Client.PedidoCliente.Detalles'; BIZ_CLIENT_DETALLES_PEDIDO_CLIENTE = 'Client.PedidoCliente.Detalles';
BIZ_CLIENT_ARTICULOS_PEND_PEDIDO_CLIENTE = 'Client.PedidoCliente.ArticulosPendientes'; BIZ_CLIENT_ARTICULOS_PEND_PEDIDO_CLIENTE = 'Client.PedidoCliente.ArticulosPendientes';
BIZ_CLIENT_ARTCOLORES_PEND_PEDIDO_CLIENTE = 'Client.PedidoCliente.ArtColoresPendientes';
type type
IBizDetallesPedidoCliente = interface(IPedidosCliente_Detalles) IBizDetallesPedidoCliente = interface(IPedidosCliente_Detalles)
@ -21,6 +22,10 @@ type
['{DD245879-DD80-4E96-995A-6D3A09D72544}'] ['{DD245879-DD80-4E96-995A-6D3A09D72544}']
end; end;
IBizPedidoClienteArtColoresPend = interface(IPedidoCliente_Art_Colores_Pendientes)
['{8E4E1C52-0160-4EBF-AD20-10EBEE8B4266}']
end;
TBizDetallesPedidoCliente = class(TPedidosCliente_DetallesDataTableRules, IBizDetallesPedidoCliente) TBizDetallesPedidoCliente = class(TPedidosCliente_DetallesDataTableRules, IBizDetallesPedidoCliente)
protected protected
FDetalleColores : IBizDetalleColoresPedidoCliente; FDetalleColores : IBizDetalleColoresPedidoCliente;
@ -35,12 +40,14 @@ type
public public
property DetalleColores: IBizDetalleColoresPedidoCliente read GetDetalleColores write SetDetalleColores; property DetalleColores: IBizDetalleColoresPedidoCliente read GetDetalleColores write SetDetalleColores;
constructor Create(aDataTable: TDADataTable); override; constructor Create(aDataTable: TDADataTable); override;
destructor Destroy; override; destructor Destroy; override;
end; end;
TBizPedidoClienteArticulosPend = class(TPedidoCliente_Articulos_PendientesDataTableRules, IBizPedidoClienteArticulosPend) TBizPedidoClienteArticulosPend = class(TPedidoCliente_Articulos_PendientesDataTableRules, IBizPedidoClienteArticulosPend)
end; end;
TBizPedidoClienteArColoresPend = class(TPedidoCliente_Art_Colores_PendientesDataTableRules, IBizPedidoClienteArtColoresPend)
end;
implementation implementation
@ -95,5 +102,6 @@ end;
initialization initialization
RegisterDataTableRules(BIZ_CLIENT_DETALLES_PEDIDO_CLIENTE, TBizDetallesPedidoCliente); RegisterDataTableRules(BIZ_CLIENT_DETALLES_PEDIDO_CLIENTE, TBizDetallesPedidoCliente);
RegisterDataTableRules(BIZ_CLIENT_ARTICULOS_PEND_PEDIDO_CLIENTE, TBizPedidoClienteArticulosPend); RegisterDataTableRules(BIZ_CLIENT_ARTICULOS_PEND_PEDIDO_CLIENTE, TBizPedidoClienteArticulosPend);
RegisterDataTableRules(BIZ_CLIENT_ARTCOLORES_PEND_PEDIDO_CLIENTE, TBizPedidoClienteArColoresPend);
end. end.

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

@ -12,6 +12,6 @@ STRINGTABLE
BEGIN BEGIN
END END
/* C:\Codigo Noviseda\Source\Modulos\Pedidos de cliente\Plugin\uPluginPedidosCliente.dfm */ /* C:\Codigo noviseda\Source\Modulos\Pedidos de cliente\Plugin\uPluginPedidosCliente.dfm */
/* C:\Codigo Noviseda\Source\Modulos\Pedidos de cliente\Plugin\PedidosCliente_plugin.res */ /* C:\Codigo noviseda\Source\Modulos\Pedidos de cliente\Plugin\PedidosCliente_plugin.res */
/* C:\Codigo Noviseda\Source\Modulos\Pedidos de cliente\Plugin\PedidosCliente_plugin.drf */ /* C:\DOCUME~1\Usuario\CONFIG~1\Temp\dtf246.tmp */

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

@ -13,6 +13,132 @@ object srvPedidosCliente: TsrvPedidosCliente
ConnectionManager = dmServer.ConnectionManager ConnectionManager = dmServer.ConnectionManager
DataDictionary = DADataDictionary DataDictionary = DADataDictionary
Datasets = < Datasets = <
item
Params = <>
Statements = <
item
ConnectionType = 'Interbase'
Default = True
TargetTable = 'V_PED_CLI_ART_COLORES_PEND'
Name = 'IBX'
StatementType = stAutoSQL
ColumnMappings = <
item
DatasetField = 'ID_PEDIDO'
TableField = 'ID_PEDIDO'
end
item
DatasetField = 'ID_ARTICULO'
TableField = 'ID_ARTICULO'
end
item
DatasetField = 'COLOR1'
TableField = 'COLOR1'
end
item
DatasetField = 'COLOR2'
TableField = 'COLOR2'
end
item
DatasetField = 'COLOR3'
TableField = 'COLOR3'
end
item
DatasetField = 'COLOR4'
TableField = 'COLOR4'
end
item
DatasetField = 'COLOR5'
TableField = 'COLOR5'
end
item
DatasetField = 'COLOR6'
TableField = 'COLOR6'
end
item
DatasetField = 'COLOR7'
TableField = 'COLOR7'
end
item
DatasetField = 'COLOR8'
TableField = 'COLOR8'
end
item
DatasetField = 'COLOR9'
TableField = 'COLOR9'
end
item
DatasetField = 'COLOR10'
TableField = 'COLOR10'
end
item
DatasetField = 'COLOR11'
TableField = 'COLOR11'
end
item
DatasetField = 'COLOR12'
TableField = 'COLOR12'
end>
end>
Name = 'PedidoCliente_Art_Colores_Pendientes'
Fields = <
item
Name = 'ID_PEDIDO'
DataType = datInteger
end
item
Name = 'ID_ARTICULO'
DataType = datInteger
end
item
Name = 'COLOR1'
DataType = datLargeInt
end
item
Name = 'COLOR2'
DataType = datLargeInt
end
item
Name = 'COLOR3'
DataType = datLargeInt
end
item
Name = 'COLOR4'
DataType = datLargeInt
end
item
Name = 'COLOR5'
DataType = datLargeInt
end
item
Name = 'COLOR6'
DataType = datLargeInt
end
item
Name = 'COLOR7'
DataType = datLargeInt
end
item
Name = 'COLOR8'
DataType = datLargeInt
end
item
Name = 'COLOR9'
DataType = datLargeInt
end
item
Name = 'COLOR10'
DataType = datLargeInt
end
item
Name = 'COLOR11'
DataType = datLargeInt
end
item
Name = 'COLOR12'
DataType = datLargeInt
end>
end
item item
Params = <> Params = <>
Statements = < Statements = <
@ -88,7 +214,7 @@ object srvPedidosCliente: TsrvPedidosCliente
end end
item item
Name = 'CANT_PEDIDA_CLIENTE' Name = 'CANT_PEDIDA_CLIENTE'
DataType = datInteger DataType = datFloat
DictionaryEntry = 'DarArticulosPendientesPedirAProv_CANT_PEDIDA_CLIENTE' DictionaryEntry = 'DarArticulosPendientesPedirAProv_CANT_PEDIDA_CLIENTE'
end end
item item
@ -98,12 +224,12 @@ object srvPedidosCliente: TsrvPedidosCliente
end end
item item
Name = 'CANT_PEDIDA_PROVEEDOR' Name = 'CANT_PEDIDA_PROVEEDOR'
DataType = datInteger DataType = datFloat
DictionaryEntry = 'DarArticulosPendientesPedirAProv_CANT_PEDIDA_PROVEEDOR' DictionaryEntry = 'DarArticulosPendientesPedirAProv_CANT_PEDIDA_PROVEEDOR'
end end
item item
Name = 'CANT_PENDIENTE_PEDIR' Name = 'CANT_PENDIENTE_PEDIR'
DataType = datInteger DataType = datFloat
DictionaryEntry = 'DarArticulosPendientesPedirAProv_CANT_PENDIENTE_PEDIR' DictionaryEntry = 'DarArticulosPendientesPedirAProv_CANT_PENDIENTE_PEDIR'
end> end>
end end
@ -283,6 +409,7 @@ object srvPedidosCliente: TsrvPedidosCliente
Name = 'NOMBRE' Name = 'NOMBRE'
DataType = datString DataType = datString
Size = 255 Size = 255
ServerAutoRefresh = True
DictionaryEntry = 'PedidosCliente_NOMBRE' DictionaryEntry = 'PedidosCliente_NOMBRE'
end end
item item
@ -675,17 +802,17 @@ object srvPedidosCliente: TsrvPedidosCliente
end end
item item
Name = 'CANTIDAD_PED' Name = 'CANTIDAD_PED'
DataType = datInteger DataType = datFloat
DictionaryEntry = 'PedidoCliente_Articulos_Pendientes_CANTIDAD_PED' DictionaryEntry = 'PedidoCliente_Articulos_Pendientes_CANTIDAD_PED'
end end
item item
Name = 'CANTIDAD_ALB' Name = 'CANTIDAD_ALB'
DataType = datInteger DataType = datFloat
DictionaryEntry = 'PedidoCliente_Articulos_Pendientes_CANTIDAD_ALB' DictionaryEntry = 'PedidoCliente_Articulos_Pendientes_CANTIDAD_ALB'
end end
item item
Name = 'CANTIDAD_PENDIENTE' Name = 'CANTIDAD_PENDIENTE'
DataType = datInteger DataType = datFloat
DictionaryEntry = 'PedidoCliente_Articulos_Pendientes_CANTIDAD_PENDIENTE' DictionaryEntry = 'PedidoCliente_Articulos_Pendientes_CANTIDAD_PENDIENTE'
end> end>
end end
@ -763,61 +890,74 @@ object srvPedidosCliente: TsrvPedidosCliente
item item
Name = 'ID' Name = 'ID'
DataType = datAutoInc DataType = datAutoInc
GeneratorName = 'GEN_PEDIDOS_CLI_DETALLES_ID' GeneratorName = 'GEN_PEDIDOS_CLI_DET_COLOR_ID'
DictionaryEntry = 'PedidosCliente_Detalles_ID' DictionaryEntry = 'PedidosCliente_Detalle_Color_ID'
InPrimaryKey = True InPrimaryKey = True
end end
item item
Name = 'ID_DETALLE' Name = 'ID_DETALLE'
DataType = datInteger DataType = datInteger
DictionaryEntry = 'PedidosCliente_Detalle_Color_ID_DETALLE'
end end
item item
Name = 'COLOR1' Name = 'COLOR1'
DataType = datInteger DataType = datInteger
DictionaryEntry = 'PedidosCliente_Detalle_Color_COLOR1'
end end
item item
Name = 'COLOR2' Name = 'COLOR2'
DataType = datInteger DataType = datInteger
DictionaryEntry = 'PedidosCliente_Detalle_Color_COLOR2'
end end
item item
Name = 'COLOR3' Name = 'COLOR3'
DataType = datInteger DataType = datInteger
DictionaryEntry = 'PedidosCliente_Detalle_Color_COLOR3'
end end
item item
Name = 'COLOR4' Name = 'COLOR4'
DataType = datInteger DataType = datInteger
DictionaryEntry = 'PedidosCliente_Detalle_Color_COLOR4'
end end
item item
Name = 'COLOR5' Name = 'COLOR5'
DataType = datInteger DataType = datInteger
DictionaryEntry = 'PedidosCliente_Detalle_Color_COLOR5'
end end
item item
Name = 'COLOR6' Name = 'COLOR6'
DataType = datInteger DataType = datInteger
DictionaryEntry = 'PedidosCliente_Detalle_Color_COLOR6'
end end
item item
Name = 'COLOR7' Name = 'COLOR7'
DataType = datInteger DataType = datInteger
DictionaryEntry = 'PedidosCliente_Detalle_Color_COLOR7'
end end
item item
Name = 'COLOR8' Name = 'COLOR8'
DataType = datInteger DataType = datInteger
DictionaryEntry = 'PedidosCliente_Detalle_Color_COLOR8'
end end
item item
Name = 'COLOR9' Name = 'COLOR9'
DataType = datInteger DataType = datInteger
DictionaryEntry = 'PedidosCliente_Detalle_Color_COLOR9'
end end
item item
Name = 'COLOR10' Name = 'COLOR10'
DataType = datInteger DataType = datInteger
DictionaryEntry = 'PedidosCliente_Detalle_Color_COLOR10'
end end
item item
Name = 'COLOR11' Name = 'COLOR11'
DataType = datInteger DataType = datInteger
DictionaryEntry = 'PedidosCliente_Detalle_Color_COLOR11'
end end
item item
Name = 'COLOR12' Name = 'COLOR12'
DataType = datInteger DataType = datInteger
DictionaryEntry = 'PedidosCliente_Detalle_Color_COLOR12'
end> end>
end> end>
JoinDataTables = <> JoinDataTables = <>
@ -1039,7 +1179,8 @@ object srvPedidosCliente: TsrvPedidosCliente
Params = < Params = <
item item
Name = 'ID' Name = 'ID'
DataType = datInteger DataType = datAutoInc
GeneratorName = 'GEN_PEDIDOS_CLI_ID'
Value = '' Value = ''
end end
item item
@ -1462,7 +1603,7 @@ object srvPedidosCliente: TsrvPedidosCliente
item item
Name = 'ID' Name = 'ID'
DataType = datAutoInc DataType = datAutoInc
GeneratorName = 'GEN_PEDIDOS_CLI_DETALLES_ID' GeneratorName = 'GEN_PEDIDOS_CLI_DET_COLOR_ID'
Value = '' Value = ''
end end
item item
@ -1670,7 +1811,7 @@ object srvPedidosCliente: TsrvPedidosCliente
Name = 'FK_Pedidos_Cliente_Detalles' Name = 'FK_Pedidos_Cliente_Detalles'
MasterDatasetName = 'PedidosCliente' MasterDatasetName = 'PedidosCliente'
MasterFields = 'ID' MasterFields = 'ID'
DetailDatasetName = 'PedidosCliente_Detalle_Color' DetailDatasetName = 'PedidosCliente_Detalles'
DetailFields = 'ID_PEDIDO' DetailFields = 'ID_PEDIDO'
RelationshipType = rtForeignKey RelationshipType = rtForeignKey
end> end>
@ -1689,6 +1830,13 @@ object srvPedidosCliente: TsrvPedidosCliente
DatasetName = 'PedidosCliente_Detalles' DatasetName = 'PedidosCliente_Detalles'
FailureBehavior = fbRaiseException FailureBehavior = fbRaiseException
end end
item
Name = 'Insert PedidosCliente_Detalle_Color'
DoUpdate = False
DoDelete = False
DatasetName = 'PedidosCliente_Detalle_Color'
FailureBehavior = fbRaiseException
end
item item
Name = 'Update PedidosCliente' Name = 'Update PedidosCliente'
DoInsert = False DoInsert = False
@ -1703,6 +1851,20 @@ object srvPedidosCliente: TsrvPedidosCliente
DatasetName = 'PedidosCliente_Detalles' DatasetName = 'PedidosCliente_Detalles'
FailureBehavior = fbRaiseException FailureBehavior = fbRaiseException
end end
item
Name = 'Update PedidosCliente_Detalle_Color'
DoInsert = False
DoDelete = False
DatasetName = 'PedidosCliente_Detalle_Color'
FailureBehavior = fbRaiseException
end
item
Name = 'Delete PedidosCliente_Detalle_Color'
DoUpdate = False
DoInsert = False
DatasetName = 'PedidosCliente_Detalle_Color'
FailureBehavior = fbRaiseException
end
item item
Name = 'Delete PedidosCliente_Detalles' Name = 'Delete PedidosCliente_Detalles'
DoUpdate = False DoUpdate = False
@ -1766,6 +1928,7 @@ object srvPedidosCliente: TsrvPedidosCliente
DataType = datString DataType = datString
Size = 255 Size = 255
DisplayLabel = 'Nombre del cliente' DisplayLabel = 'Nombre del cliente'
ServerAutoRefresh = True
end end
item item
Name = 'PedidosCliente_FECHA_PEDIDO' Name = 'PedidosCliente_FECHA_PEDIDO'
@ -1977,19 +2140,19 @@ object srvPedidosCliente: TsrvPedidosCliente
end end
item item
Name = 'PedidoCliente_Articulos_Pendientes_CANTIDAD_PED' Name = 'PedidoCliente_Articulos_Pendientes_CANTIDAD_PED'
DataType = datInteger DataType = datFloat
DisplayLabel = 'Cantidad en pedido' DisplayLabel = 'Cantidad en pedido'
Alignment = taRightJustify Alignment = taRightJustify
end end
item item
Name = 'PedidoCliente_Articulos_Pendientes_CANTIDAD_ALB' Name = 'PedidoCliente_Articulos_Pendientes_CANTIDAD_ALB'
DataType = datInteger DataType = datFloat
DisplayLabel = 'Cantidad en albaranes' DisplayLabel = 'Cantidad en albaranes'
Alignment = taRightJustify Alignment = taRightJustify
end end
item item
Name = 'PedidoCliente_Articulos_Pendientes_CANTIDAD_PENDIENTE' Name = 'PedidoCliente_Articulos_Pendientes_CANTIDAD_PENDIENTE'
DataType = datInteger DataType = datFloat
DisplayLabel = 'Cantidad pendiente' DisplayLabel = 'Cantidad pendiente'
Alignment = taRightJustify Alignment = taRightJustify
end end
@ -2005,7 +2168,7 @@ object srvPedidosCliente: TsrvPedidosCliente
end end
item item
Name = 'DarArticulosPendientesPedirAProv_CANT_PEDIDA_CLIENTE' Name = 'DarArticulosPendientesPedirAProv_CANT_PEDIDA_CLIENTE'
DataType = datInteger DataType = datFloat
DisplayLabel = 'Cant. pedida por cliente' DisplayLabel = 'Cant. pedida por cliente'
end end
item item
@ -2015,12 +2178,12 @@ object srvPedidosCliente: TsrvPedidosCliente
end end
item item
Name = 'DarArticulosPendientesPedirAProv_CANT_PEDIDA_PROVEEDOR' Name = 'DarArticulosPendientesPedirAProv_CANT_PEDIDA_PROVEEDOR'
DataType = datInteger DataType = datFloat
DisplayLabel = 'Cant. pedida a proveedor' DisplayLabel = 'Cant. pedida a proveedor'
end end
item item
Name = 'DarArticulosPendientesPedirAProv_CANT_PENDIENTE_PEDIR' Name = 'DarArticulosPendientesPedirAProv_CANT_PENDIENTE_PEDIR'
DataType = datInteger DataType = datFloat
DisplayLabel = 'Cant. pendiente pedir' DisplayLabel = 'Cant. pendiente pedir'
end end
item item
@ -2086,6 +2249,65 @@ object srvPedidosCliente: TsrvPedidosCliente
Name = 'PedidosCliente_DATOS_BANCARIOS' Name = 'PedidosCliente_DATOS_BANCARIOS'
DataType = datString DataType = datString
Size = 255 Size = 255
end
item
Name = 'PedidosCliente_Detalle_Color_ID'
DataType = datAutoInc
GeneratorName = 'GEN_PEDIDOS_CLI_DET_COLOR_ID'
Required = True
DisplayLabel = 'ID'
end
item
Name = 'PedidosCliente_Detalle_Color_ID_DETALLE'
DataType = datInteger
end
item
Name = 'PedidosCliente_Detalle_Color_COLOR1'
DataType = datInteger
end
item
Name = 'PedidosCliente_Detalle_Color_COLOR2'
DataType = datInteger
end
item
Name = 'PedidosCliente_Detalle_Color_COLOR3'
DataType = datInteger
end
item
Name = 'PedidosCliente_Detalle_Color_COLOR4'
DataType = datInteger
end
item
Name = 'PedidosCliente_Detalle_Color_COLOR5'
DataType = datInteger
end
item
Name = 'PedidosCliente_Detalle_Color_COLOR6'
DataType = datInteger
end
item
Name = 'PedidosCliente_Detalle_Color_COLOR7'
DataType = datInteger
end
item
Name = 'PedidosCliente_Detalle_Color_COLOR8'
DataType = datInteger
end
item
Name = 'PedidosCliente_Detalle_Color_COLOR9'
DataType = datInteger
end
item
Name = 'PedidosCliente_Detalle_Color_COLOR10'
DataType = datInteger
end
item
Name = 'PedidosCliente_Detalle_Color_COLOR11'
DataType = datInteger
end
item
Name = 'PedidosCliente_Detalle_Color_COLOR12'
DataType = datInteger
end> end>
Left = 48 Left = 48
Top = 152 Top = 152

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

@ -12,17 +12,17 @@ STRINGTABLE
BEGIN BEGIN
END END
/* C:\Codigo Noviseda\Source\Modulos\Pedidos de cliente\Views\uViewPedidosCliente.dfm */ /* C:\Codigo noviseda\Source\Modulos\Pedidos de cliente\Views\uViewPedidosCliente.dfm */
/* C:\Codigo Noviseda\Source\Modulos\Pedidos de cliente\Views\uEditorPedidosCliente.dfm */ /* C:\Codigo noviseda\Source\Modulos\Pedidos de cliente\Views\uEditorPedidosCliente.dfm */
/* C:\Codigo Noviseda\Source\Modulos\Pedidos de cliente\Views\uViewDetallesPedidoCliente.dfm */ /* C:\Codigo noviseda\Source\Modulos\Pedidos de cliente\Views\uViewDetallesPedidoCliente.dfm */
/* C:\Codigo Noviseda\Source\Modulos\Pedidos de cliente\Views\uViewDatosYSeleccionClientePedido.dfm */ /* C:\Codigo noviseda\Source\Modulos\Pedidos de cliente\Views\uViewDatosYSeleccionClientePedido.dfm */
/* C:\Codigo Noviseda\Source\Modulos\Pedidos de cliente\Views\uViewDireccionEntregaPedidoCliente.dfm */ /* C:\Codigo noviseda\Source\Modulos\Pedidos de cliente\Views\uViewDireccionEntregaPedidoCliente.dfm */
/* C:\Codigo Noviseda\Source\Modulos\Pedidos de cliente\Views\uViewPedidoCliente.dfm */ /* C:\Codigo noviseda\Source\Modulos\Pedidos de cliente\Views\uViewPedidoCliente.dfm */
/* C:\Codigo Noviseda\Source\Modulos\Pedidos de cliente\Views\uViewTotalesPedido.dfm */ /* C:\Codigo noviseda\Source\Modulos\Pedidos de cliente\Views\uViewTotalesPedido.dfm */
/* C:\Codigo Noviseda\Source\Modulos\Pedidos de cliente\Views\uEditorPedidoCliente.dfm */ /* C:\Codigo noviseda\Source\Modulos\Pedidos de cliente\Views\uEditorPedidoCliente.dfm */
/* C:\Codigo Noviseda\Source\Modulos\Pedidos de cliente\Views\uEditorElegirPedidosCliente.dfm */ /* C:\Codigo noviseda\Source\Modulos\Pedidos de cliente\Views\uEditorElegirPedidosCliente.dfm */
/* C:\Codigo Noviseda\Source\Modulos\Pedidos de cliente\Views\uViewElegirArticulosPedidosCliente.dfm */ /* C:\Codigo noviseda\Source\Modulos\Pedidos de cliente\Views\uViewElegirArticulosPedidosCliente.dfm */
/* C:\Codigo Noviseda\Source\Modulos\Pedidos de cliente\Views\uEditorElegirArticulosPedidoCliente.dfm */ /* C:\Codigo noviseda\Source\Modulos\Pedidos de cliente\Views\uEditorElegirArticulosPedidoCliente.dfm */
/* C:\Codigo Noviseda\Source\Modulos\Pedidos de cliente\Views\uEditorPedidosClienteReport.dfm */ /* C:\Codigo noviseda\Source\Modulos\Pedidos de cliente\Views\uEditorPedidosClienteReport.dfm */
/* C:\Codigo Noviseda\Source\Modulos\Pedidos de cliente\Views\PedidosCliente_view.res */ /* C:\Codigo noviseda\Source\Modulos\Pedidos de cliente\Views\PedidosCliente_view.res */
/* C:\Codigo Noviseda\Source\Modulos\Pedidos de cliente\Views\PedidosCliente_view.drf */ /* C:\DOCUME~1\Usuario\CONFIG~1\Temp\dtf244.tmp */

8
Source/Modulos/Pedidos de cliente/Views/uEditorPedidosCliente.dfm
View File

@ -129,6 +129,14 @@ inherited fEditorPedidosCliente: TfEditorPedidosCliente
inherited tbxMenu: TSpTBXToolbar inherited tbxMenu: TSpTBXToolbar
ExplicitWidth = 674 ExplicitWidth = 674
end end
inherited TBXTMain2: TSpTBXToolbar
Visible = True
ExplicitWidth = 167
object SpTBXItem1: TSpTBXItem
Action = actGenerarAlbaranCli
DisplayMode = nbdmImageAndText
end
end
end end
inherited StatusBar: TJvStatusBar inherited StatusBar: TJvStatusBar
Width = 674 Width = 674

1
Source/Modulos/Pedidos de cliente/Views/uEditorPedidosCliente.pas
View File

@ -29,6 +29,7 @@ type
JsImprimirDialog: TJSDialog; JsImprimirDialog: TJSDialog;
JsListaPedidosNoEliminados: TJSDialog; JsListaPedidosNoEliminados: TJSDialog;
actEnviarEmail: TAction; actEnviarEmail: TAction;
SpTBXItem1: TSpTBXItem;
procedure FormShow(Sender: TObject); procedure FormShow(Sender: TObject);
procedure actGenerarAlbaranCliExecute(Sender: TObject); procedure actGenerarAlbaranCliExecute(Sender: TObject);
procedure actEliminarUpdate(Sender: TObject); procedure actEliminarUpdate(Sender: TObject);

44
Source/Modulos/Relaciones/Pedidos de cliente - Albaranes de cliente/uGenerarAlbaranesCliUtils.pas
View File

@ -72,12 +72,14 @@ end;
procedure CopiarArticulosPendAAlbaran( procedure CopiarArticulosPendAAlbaran(
APedido: IBizPedidoCliente; APedido: IBizPedidoCliente;
AAlbaran: IBizAlbaranCliente; AAlbaran: IBizAlbaranCliente;
AArticulosPendientes: IBizPedidoClienteArticulosPend); AArticulosPendientes: IBizPedidoClienteArticulosPend;
AArtColoresPendientes: IBizPedidoClienteArtColoresPend);
var var
i : integer; i : integer;
ADetalles : IBizDetallesAlbaranCliente; ADetalles : IBizDetallesAlbaranCliente;
ADetallesController : IDetallesAlbaranClienteController; ADetallesController : IDetallesAlbaranClienteController;
begin begin
if not Assigned(AAlbaran) then if not Assigned(AAlbaran) then
raise Exception.Create ('Albarán no asignado (CopiarArticulosPendAAlbaran)'); raise Exception.Create ('Albarán no asignado (CopiarArticulosPendAAlbaran)');
@ -109,7 +111,7 @@ begin
begin begin
ADetallesController.Add(ADetalles, TIPO_DETALLE_CONCEPTO); ADetallesController.Add(ADetalles, TIPO_DETALLE_CONCEPTO);
ADetalles.Edit; ADetalles.Edit;
ADetalles.ID_PEDIDO := APedido.Detalles.ID_PEDIDO; ADetalles.ID_PEDIDO := APedido.Detalles.ID_PEDIDO;
ADetalles.REFERENCIA := APedido.Detalles.REFERENCIA; ADetalles.REFERENCIA := APedido.Detalles.REFERENCIA;
ADetalles.ID_ARTICULO := APedido.Detalles.ID_ARTICULO; ADetalles.ID_ARTICULO := APedido.Detalles.ID_ARTICULO;
ADetalles.CONCEPTO := APedido.Detalles.CONCEPTO; ADetalles.CONCEPTO := APedido.Detalles.CONCEPTO;
@ -121,6 +123,26 @@ begin
ADetalles.VISIBLE := APedido.Detalles.VISIBLE; ADetalles.VISIBLE := APedido.Detalles.VISIBLE;
ADetalles.REFERENCIA_PROVEEDOR := APedido.Detalles.REFERENCIA_PROVEEDOR; ADetalles.REFERENCIA_PROVEEDOR := APedido.Detalles.REFERENCIA_PROVEEDOR;
ADetalles.Post; ADetalles.Post;
AArtColoresPendientes.First;
if AArtColoresPendientes.Locate('ID_ARTICULO', AArticulosPendientes.ID_ARTICULO, []) then
begin
ADetalles.DetalleColores.Edit;
ADetalles.DetalleColores.COLOR1 := AArtColoresPendientes.COLOR1;
ADetalles.DetalleColores.COLOR2 := AArtColoresPendientes.COLOR2;
ADetalles.DetalleColores.COLOR3 := AArtColoresPendientes.COLOR3;
ADetalles.DetalleColores.COLOR4 := AArtColoresPendientes.COLOR4;
ADetalles.DetalleColores.COLOR5 := AArtColoresPendientes.COLOR5;
ADetalles.DetalleColores.COLOR6 := AArtColoresPendientes.COLOR6;
ADetalles.DetalleColores.COLOR7 := AArtColoresPendientes.COLOR7;
ADetalles.DetalleColores.COLOR8 := AArtColoresPendientes.COLOR8;
ADetalles.DetalleColores.COLOR9 := AArtColoresPendientes.COLOR9;
ADetalles.DetalleColores.COLOR10 := AArtColoresPendientes.COLOR10;
ADetalles.DetalleColores.COLOR11 := AArtColoresPendientes.COLOR11;
ADetalles.DetalleColores.COLOR12 := AArtColoresPendientes.COLOR12;
ADetalles.DetalleColores.Post;
end;
AArticulosPendientes.Next; AArticulosPendientes.Next;
end; end;
end; end;
@ -180,6 +202,7 @@ var
ARespuesta : Integer; ARespuesta : Integer;
AuxAlbaran : IBizAlbaranCliente; AuxAlbaran : IBizAlbaranCliente;
AArticulosPendientes: IBizPedidoClienteArticulosPend; AArticulosPendientes: IBizPedidoClienteArticulosPend;
AArtColoresPendientes: IBizPedidoClienteArtColoresPend;
begin begin
Result := False; Result := False;
AAlbaran := NIL; AAlbaran := NIL;
@ -194,20 +217,30 @@ begin
Inicializar; Inicializar;
try try
AArticulosPendientes := APedidosClienteController.ArticulosPendientes(APedido.ID); AArticulosPendientes := APedidosClienteController.DetallesController.ArticulosPendientes(APedido.ID);
AArtColoresPendientes := APedidosClienteController.DetallesController.ArtColoresPendientes(APedido.ID);
if not Assigned(AArticulosPendientes) then if not Assigned(AArticulosPendientes) then
raise Exception.Create('Error al recuperar los artículos sin albarán del pedido (GenerarAlbaranCli)'); raise Exception.Create('Error al recuperar los artículos sin albarán del pedido (GenerarAlbaranCli)');
if not Assigned(AArtColoresPendientes) then
raise Exception.Create('Error al recuperar los colores de los artículos sin albarán del pedido (GenerarAlbaranCli)');
AArticulosPendientes.DataTable.Active := True; AArticulosPendientes.DataTable.Active := True;
AArtColoresPendientes.DataTable.Active := True;
if AArticulosPendientes.DataTable.RecordCount = 0 then if AArticulosPendientes.DataTable.RecordCount = 0 then
begin begin
ShowWarningMessage('Generar albarán a partir del pedido', 'Todos los artículos de este pedido ya figuran en uno o más albaranes de cliente. Por lo que no se pueden generar nuevos albaranes para este pedido'); ShowWarningMessage('Generar albarán a partir del pedido', 'Todos los artículos de este pedido ya figuran en uno o más albaranes de cliente. Por lo que no se pueden generar nuevos albaranes para este pedido');
Exit; // Aunque es un exit, se ejecuta la parte del finally antes de salir. Exit; // Aunque es un exit, se ejecuta la parte del finally antes de salir.
end;
if AArticulosPendientes.DataTable.RecordCount <> AArtColoresPendientes.DataTable.RecordCount then
begin
ShowWarningMessage('Generar albarán a partir del pedido', 'No coinciden los articulos pendientes con los colores pendientes. Por lo que no se pueden generar nuevos albaranes para este pedido');
Exit; // Aunque es un exit, se ejecuta la parte del finally antes de salir.
end; end;
AuxAlbaran := AAlbaranesClienteController.Nuevo; AuxAlbaran := AAlbaranesClienteController.Nuevo;
CopiarPedidoAAlbaran(APedido, AuxAlbaran); CopiarPedidoAAlbaran(APedido, AuxAlbaran);
CopiarArticulosPendAAlbaran(APedido, AuxAlbaran, AArticulosPendientes); CopiarArticulosPendAAlbaran(APedido, AuxAlbaran, AArticulosPendientes, AArtColoresPendientes);
//Sustituir por if de guardar //Sustituir por if de guardar
if AAlbaranesClienteController.Guardar(AuxAlbaran) then if AAlbaranesClienteController.Guardar(AuxAlbaran) then
@ -235,6 +268,7 @@ begin
Result := True; Result := True;
finally finally
AArticulosPendientes := NIL; AArticulosPendientes := NIL;
AArtColoresPendientes := NIL;
if Assigned(APedidosClienteController) then if Assigned(APedidosClienteController) then
Finalizar; Finalizar;
end; end;

BIN
Source/Servidor/FactuGES_Server.RES
View File

Binary file not shown.

5
Source/Servidor/FactuGES_Server.dpr
View File

@ -3,6 +3,7 @@ program FactuGES_Server;
{#ROGEN:..\Servicios\FactuGES.rodl} // RemObjects: Careful, do not remove! {#ROGEN:..\Servicios\FactuGES.rodl} // RemObjects: Careful, do not remove!
uses uses
// ExceptionLog,
uROComInit, uROComInit,
uROComboService, uROComboService,
Forms, Forms,
@ -138,11 +139,11 @@ uses
uRptRemesasCliente_Server in '..\Modulos\Remesas de cliente\Reports\uRptRemesasCliente_Server.pas' {RptRemesasCliente: TDataModule}, uRptRemesasCliente_Server in '..\Modulos\Remesas de cliente\Reports\uRptRemesasCliente_Server.pas' {RptRemesasCliente: TDataModule},
srvPedidosCliente_Impl in '..\Modulos\Pedidos de cliente\Servidor\srvPedidosCliente_Impl.pas' {srvPedidosCliente: TDataAbstractService}, srvPedidosCliente_Impl in '..\Modulos\Pedidos de cliente\Servidor\srvPedidosCliente_Impl.pas' {srvPedidosCliente: TDataAbstractService},
uBizPedidosClienteServer in '..\Modulos\Pedidos de cliente\Model\uBizPedidosClienteServer.pas', uBizPedidosClienteServer in '..\Modulos\Pedidos de cliente\Model\uBizPedidosClienteServer.pas',
uRptPedidosCliente_Server in '..\Modulos\Pedidos de cliente\Reports\uRptPedidosCliente_Server.pas' {RptPedidosCliente},
schAlbaranesClienteClient_Intf in '..\Modulos\Albaranes de cliente\Model\schAlbaranesClienteClient_Intf.pas', schAlbaranesClienteClient_Intf in '..\Modulos\Albaranes de cliente\Model\schAlbaranesClienteClient_Intf.pas',
schAlbaranesClienteServer_Intf in '..\Modulos\Albaranes de cliente\Model\schAlbaranesClienteServer_Intf.pas', schAlbaranesClienteServer_Intf in '..\Modulos\Albaranes de cliente\Model\schAlbaranesClienteServer_Intf.pas',
schPedidosClienteClient_Intf in '..\Modulos\Pedidos de cliente\Model\schPedidosClienteClient_Intf.pas', schPedidosClienteClient_Intf in '..\Modulos\Pedidos de cliente\Model\schPedidosClienteClient_Intf.pas',
schPedidosClienteServer_Intf in '..\Modulos\Pedidos de cliente\Model\schPedidosClienteServer_Intf.pas', schPedidosClienteServer_Intf in '..\Modulos\Pedidos de cliente\Model\schPedidosClienteServer_Intf.pas';
uRptPedidosCliente_Server in '..\Modulos\Pedidos de cliente\Reports\uRptPedidosCliente_Server.pas' {RptPedidosCliente};
{$R *.res} {$R *.res}
{$R ..\Servicios\RODLFile.res} {$R ..\Servicios\RODLFile.res}

688
Source/Servidor/FactuGES_Server.dproj
View File

@ -1,352 +1,352 @@
<?xml version="1.0" encoding="utf-8"?> <?xml version="1.0" encoding="utf-8"?>
<Project xmlns="http://schemas.microsoft.com/developer/msbuild/2003"> <Project xmlns="http://schemas.microsoft.com/developer/msbuild/2003">
<PropertyGroup> <PropertyGroup>
<ProjectGuid>{ebdcd25d-40d7-4146-91ec-a0ea4aa1dcd1}</ProjectGuid> <ProjectGuid>{ebdcd25d-40d7-4146-91ec-a0ea4aa1dcd1}</ProjectGuid>
<MainSource>FactuGES_Server.dpr</MainSource> <MainSource>FactuGES_Server.dpr</MainSource>
<Configuration Condition=" '$(Configuration)' == '' ">Debug</Configuration> <Configuration Condition=" '$(Configuration)' == '' ">Debug</Configuration>
<Platform Condition=" '$(Platform)' == '' ">AnyCPU</Platform> <Platform Condition=" '$(Platform)' == '' ">AnyCPU</Platform>
<DCC_DCCCompiler>DCC32</DCC_DCCCompiler> <DCC_DCCCompiler>DCC32</DCC_DCCCompiler>
<DCC_DependencyCheckOutputName>..\..\Output\Debug\Servidor\FactuGES_Server.exe</DCC_DependencyCheckOutputName> <DCC_DependencyCheckOutputName>..\..\Output\Debug\Servidor\FactuGES_Server.exe</DCC_DependencyCheckOutputName>
<DCC_UsePackage>vcl;rtl;vclx;vclactnband;dbrtl;vcldb;vcldbx;bdertl;dsnap;dsnapcon;teeUI;teedb;tee;adortl;vclib;ibxpress;dbxcds;dbexpress;DbxCommonDriver;IndyCore;IndySystem;IndyProtocols;VclSmp;vclie;webdsnap;xmlrtl;inet;inetdbbde;inetdbxpress;RemObjects_BPDX_D11;RemObjects_RODX_D11;RemObjects_Indy_D11;RemObjects_Synapse_D11;RemObjects_WebBroker_D11;DataAbstract_Core_D11;DataAbstract_DBXDriver_D11;DataAbstract_IDE_D11;DataAbstract_Scripting_D11;DataAbstract_SDACDriver_D11;sdac105;dac105;DataAbstract_SQLiteDriver_D11;cxEditorsD10;cxLibraryD10;dxThemeD10;cxDataD10;cxExtEditorsD10;cxGridD10;cxPageControlD10;cxSchedulerD10;cxTreeListD10;cxVerticalGridD10;dxBarD10;dxComnD10;dxBarDBNavD10;dxBarExtDBItemsD10;dxBarExtItemsD10;dxDockingD10;dxLayoutControlD10;dxNavBarD10;dxPSCoreD10;dxsbD10;dxPScxCommonD10;dxPSLnksD10;vclshlctrls;dxPScxExtCommonD10;dxPScxGridLnkD10;dxPScxPCProdD10;dxPScxScheduler2LnkD10;dxPScxTLLnkD10;dxPSdxLCLnkD10;dxPsPrVwAdvD10;pckMD5;pckUCDataConnector;pckUserControl_RT;PluginSDK_D10R;PNG_D10;PngComponentsD10;tb2k_d11;SpTBXLib_d11;JclVcl;Jcl;JvXPCtrlsD11R;JvCoreD11R;JvSystemD11R;JvStdCtrlsD11R;JvAppFrmD11R;JvBandsD11R;JvDBD11R;JvDlgsD11R;JvBDED11R;JvCmpD11R;JvCryptD11R;JvCtrlsD11R;JvCustomD11R;JvDockingD11R;JvDotNetCtrlsD11R;JvEDID11R;JvGlobusD11R;JvHMID11R;JvInterpreterD11R;JvJansD11R;JvManagedThreadsD11R;JvMMD11R;JvNetD11R;JvPageCompsD11R;JvPluginD11R;JvPrintPreviewD11R;JvRuntimeDesignD11R;JvTimeFrameworkD11R;JvUIBD11R;JvValidatorsD11R;JvWizardD11R;pckUCADOConn;pckUCBDEConn;pckUCIBXConn;pckUCMidasConn;cxExportD10;GUISDK_D11R;ccpackD11;JSDialog100;fsTee11;fs11;frx11;frxADO11;frxBDE11;frxDB11;frxDBX11;frxe11;frxIBX11;frxTee11;fsADO11;fsBDE11;fsDB11;fsIBX11;websnap;soaprtl;IntrawebDB_90_100;Intraweb_90_100</DCC_UsePackage> <DCC_UsePackage>vcl;rtl;vclx;vclactnband;dbrtl;vcldb;vcldbx;bdertl;dsnap;dsnapcon;teeUI;teedb;tee;adortl;vclib;ibxpress;dbxcds;dbexpress;DbxCommonDriver;IndyCore;IndySystem;IndyProtocols;VclSmp;vclie;webdsnap;xmlrtl;inet;inetdbbde;inetdbxpress;RemObjects_BPDX_D11;RemObjects_RODX_D11;RemObjects_Indy_D11;RemObjects_Synapse_D11;RemObjects_WebBroker_D11;DataAbstract_Core_D11;DataAbstract_DBXDriver_D11;DataAbstract_IDE_D11;DataAbstract_Scripting_D11;DataAbstract_SDACDriver_D11;sdac105;dac105;DataAbstract_SQLiteDriver_D11;cxEditorsD10;cxLibraryD10;dxThemeD10;cxDataD10;cxExtEditorsD10;cxGridD10;cxPageControlD10;cxSchedulerD10;cxTreeListD10;cxVerticalGridD10;dxBarD10;dxComnD10;dxBarDBNavD10;dxBarExtDBItemsD10;dxBarExtItemsD10;dxDockingD10;dxLayoutControlD10;dxNavBarD10;dxPSCoreD10;dxsbD10;dxPScxCommonD10;dxPSLnksD10;vclshlctrls;dxPScxExtCommonD10;dxPScxGridLnkD10;dxPScxPCProdD10;dxPScxScheduler2LnkD10;dxPScxTLLnkD10;dxPSdxLCLnkD10;dxPsPrVwAdvD10;pckMD5;pckUCDataConnector;pckUserControl_RT;PluginSDK_D10R;PNG_D10;PngComponentsD10;tb2k_d11;SpTBXLib_d11;JclVcl;Jcl;JvXPCtrlsD11R;JvCoreD11R;JvSystemD11R;JvStdCtrlsD11R;JvAppFrmD11R;JvBandsD11R;JvDBD11R;JvDlgsD11R;JvBDED11R;JvCmpD11R;JvCryptD11R;JvCtrlsD11R;JvCustomD11R;JvDockingD11R;JvDotNetCtrlsD11R;JvEDID11R;JvGlobusD11R;JvHMID11R;JvInterpreterD11R;JvJansD11R;JvManagedThreadsD11R;JvMMD11R;JvNetD11R;JvPageCompsD11R;JvPluginD11R;JvPrintPreviewD11R;JvRuntimeDesignD11R;JvTimeFrameworkD11R;JvUIBD11R;JvValidatorsD11R;JvWizardD11R;pckUCADOConn;pckUCBDEConn;pckUCIBXConn;pckUCMidasConn;cxExportD10;GUISDK_D11R;ccpackD11;JSDialog100;fsTee11;fs11;frx11;frxADO11;frxBDE11;frxDB11;frxDBX11;frxe11;frxIBX11;frxTee11;fsADO11;fsBDE11;fsDB11;fsIBX11;websnap;soaprtl;IntrawebDB_90_100;Intraweb_90_100</DCC_UsePackage>
</PropertyGroup> </PropertyGroup>
<PropertyGroup Condition=" '$(Configuration)|$(Platform)' == 'Release|AnyCPU' "> <PropertyGroup Condition=" '$(Configuration)|$(Platform)' == 'Release|AnyCPU' ">
<Version>7.0</Version> <Version>7.0</Version>
<DCC_DebugInformation>False</DCC_DebugInformation> <DCC_DebugInformation>False</DCC_DebugInformation>
<DCC_LocalDebugSymbols>False</DCC_LocalDebugSymbols> <DCC_LocalDebugSymbols>False</DCC_LocalDebugSymbols>
<DCC_SymbolReferenceInfo>0</DCC_SymbolReferenceInfo> <DCC_SymbolReferenceInfo>0</DCC_SymbolReferenceInfo>
<DCC_MapFile>3</DCC_MapFile> <DCC_MapFile>3</DCC_MapFile>
<DCC_ExeOutput>..\..\Output\Release\Servidor</DCC_ExeOutput> <DCC_ExeOutput>..\..\Output\Release\Servidor</DCC_ExeOutput>
<DCC_Define>RELEASE</DCC_Define> <DCC_Define>RELEASE</DCC_Define>
</PropertyGroup> </PropertyGroup>
<PropertyGroup Condition=" '$(Configuration)|$(Platform)' == 'Debug|AnyCPU' "> <PropertyGroup Condition=" '$(Configuration)|$(Platform)' == 'Debug|AnyCPU' ">
<Version>7.0</Version> <Version>7.0</Version>
<DCC_MapFile>3</DCC_MapFile> <DCC_MapFile>3</DCC_MapFile>
<DCC_ExeOutput>..\..\Output\Debug\Servidor</DCC_ExeOutput> <DCC_ExeOutput>..\..\Output\Debug\Servidor</DCC_ExeOutput>
<DCC_Define>DEBUG;</DCC_Define> <DCC_Define>DEBUG;EUREKALOG;EUREKALOG_VER6</DCC_Define>
<DCC_GenerateStackFrames>True</DCC_GenerateStackFrames> <DCC_GenerateStackFrames>True</DCC_GenerateStackFrames>
<DCC_DebugInfoInExe>True</DCC_DebugInfoInExe> <DCC_DebugInfoInExe>True</DCC_DebugInfoInExe>
<DCC_DebugVN>True</DCC_DebugVN> <DCC_DebugVN>True</DCC_DebugVN>
<DCC_UnitSearchPath>$(BDS)\Lib\Debug\Indy10;$(BDS)\lib\Debug</DCC_UnitSearchPath> <DCC_UnitSearchPath>$(BDS)\Lib\Debug\Indy10;$(BDS)\lib\Debug</DCC_UnitSearchPath>
<DCC_ResourcePath>$(BDS)\Lib\Debug\Indy10;$(BDS)\lib\Debug</DCC_ResourcePath> <DCC_ResourcePath>$(BDS)\Lib\Debug\Indy10;$(BDS)\lib\Debug</DCC_ResourcePath>
<DCC_ObjPath>$(BDS)\Lib\Debug\Indy10;$(BDS)\lib\Debug</DCC_ObjPath> <DCC_ObjPath>$(BDS)\Lib\Debug\Indy10;$(BDS)\lib\Debug</DCC_ObjPath>
<DCC_IncludePath>$(BDS)\Lib\Debug\Indy10;$(BDS)\lib\Debug</DCC_IncludePath> <DCC_IncludePath>$(BDS)\Lib\Debug\Indy10;$(BDS)\lib\Debug</DCC_IncludePath>
</PropertyGroup> </PropertyGroup>
<ProjectExtensions> <ProjectExtensions>
<Borland.Personality>Delphi.Personality</Borland.Personality> <Borland.Personality>Delphi.Personality</Borland.Personality>
<Borland.ProjectType /> <Borland.ProjectType/>
<BorlandProject> <BorlandProject>
<BorlandProject><Delphi.Personality><Parameters><Parameters Name="UseLauncher">False</Parameters><Parameters Name="LoadAllSymbols">True</Parameters><Parameters Name="LoadUnspecifiedSymbols">False</Parameters><Parameters Name="RunParams">/standalone</Parameters></Parameters><VersionInfo><VersionInfo Name="IncludeVerInfo">True</VersionInfo><VersionInfo Name="AutoIncBuild">False</VersionInfo><VersionInfo Name="MajorVer">1</VersionInfo><VersionInfo Name="MinorVer">0</VersionInfo><VersionInfo Name="Release">2</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">1.0.2.0</VersionInfoKeys><VersionInfoKeys Name="InternalName">FactuGES Servidor</VersionInfoKeys><VersionInfoKeys Name="LegalCopyright"></VersionInfoKeys><VersionInfoKeys Name="LegalTrademarks"></VersionInfoKeys><VersionInfoKeys Name="OriginalFilename"></VersionInfoKeys><VersionInfoKeys Name="ProductName">FactuGES Servidor</VersionInfoKeys><VersionInfoKeys Name="ProductVersion">1.0.2.0</VersionInfoKeys><VersionInfoKeys Name="Comments"></VersionInfoKeys><VersionInfoKeys Name="CompileDate">jueves, 18 de febrero de 2010 12:17</VersionInfoKeys></VersionInfoKeys><Excluded_Packages></Excluded_Packages><Source><Source Name="MainSource">FactuGES_Server.dpr</Source></Source></Delphi.Personality></BorlandProject></BorlandProject> <BorlandProject><Delphi.Personality><Parameters><Parameters Name="UseLauncher">False</Parameters><Parameters Name="LoadAllSymbols">True</Parameters><Parameters Name="LoadUnspecifiedSymbols">False</Parameters><Parameters Name="RunParams">/standalone</Parameters></Parameters><VersionInfo><VersionInfo Name="IncludeVerInfo">True</VersionInfo><VersionInfo Name="AutoIncBuild">False</VersionInfo><VersionInfo Name="MajorVer">1</VersionInfo><VersionInfo Name="MinorVer">0</VersionInfo><VersionInfo Name="Release">2</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">1.0.2.0</VersionInfoKeys><VersionInfoKeys Name="InternalName">FactuGES Servidor</VersionInfoKeys><VersionInfoKeys Name="LegalCopyright"></VersionInfoKeys><VersionInfoKeys Name="LegalTrademarks"></VersionInfoKeys><VersionInfoKeys Name="OriginalFilename"></VersionInfoKeys><VersionInfoKeys Name="ProductName">FactuGES Servidor</VersionInfoKeys><VersionInfoKeys Name="ProductVersion">1.0.2.0</VersionInfoKeys><VersionInfoKeys Name="Comments"></VersionInfoKeys><VersionInfoKeys Name="CompileDate">jueves, 18 de febrero de 2010 12:17</VersionInfoKeys></VersionInfoKeys><Excluded_Packages></Excluded_Packages><Source><Source Name="MainSource">FactuGES_Server.dpr</Source></Source></Delphi.Personality></BorlandProject></BorlandProject>
</ProjectExtensions> </ProjectExtensions>
<Import Project="$(MSBuildBinPath)\Borland.Delphi.Targets" /> <Import Project="$(MSBuildBinPath)\Borland.Delphi.Targets"/>
<ItemGroup> <ItemGroup>
<DelphiCompile Include="FactuGES_Server.dpr"> <DelphiCompile Include="FactuGES_Server.dpr">
<MainSource>MainSource</MainSource> <MainSource>MainSource</MainSource>
</DelphiCompile> </DelphiCompile>
<DCCReference Include="..\ApplicationBase\Empresas\Model\schEmpresasClient_Intf.pas" /> <DCCReference Include="..\ApplicationBase\Empresas\Model\schEmpresasClient_Intf.pas"/>
<DCCReference Include="..\ApplicationBase\Empresas\Model\schEmpresasServer_Intf.pas" /> <DCCReference Include="..\ApplicationBase\Empresas\Model\schEmpresasServer_Intf.pas"/>
<DCCReference Include="..\ApplicationBase\Empresas\Model\uBizEmpresasServer.pas" /> <DCCReference Include="..\ApplicationBase\Empresas\Model\uBizEmpresasServer.pas"/>
<DCCReference Include="..\ApplicationBase\Empresas\Servidor\srvEmpresas_Impl.pas"> <DCCReference Include="..\ApplicationBase\Empresas\Servidor\srvEmpresas_Impl.pas">
<Form>srvEmpresas</Form> <DesignClass>TDARemoteService</DesignClass>
<DesignClass>TDARemoteService</DesignClass> <Form>srvEmpresas</Form>
</DCCReference> </DCCReference>
<DCCReference Include="..\ApplicationBase\ProvinciasPoblaciones\Servidor\srvProvinciasPoblaciones_Impl.pas"> <DCCReference Include="..\ApplicationBase\ProvinciasPoblaciones\Servidor\srvProvinciasPoblaciones_Impl.pas">
<Form>srvProvinciasPoblaciones_Impl</Form> <DesignClass>TDataModule</DesignClass>
<DesignClass>TDataModule</DesignClass> <Form>srvProvinciasPoblaciones_Impl</Form>
</DCCReference> </DCCReference>
<DCCReference Include="..\ApplicationBase\Usuarios\Model\schUsuariosClient_Intf.pas" /> <DCCReference Include="..\ApplicationBase\Usuarios\Model\schUsuariosClient_Intf.pas"/>
<DCCReference Include="..\ApplicationBase\Usuarios\Model\schUsuariosServer_Intf.pas" /> <DCCReference Include="..\ApplicationBase\Usuarios\Model\schUsuariosServer_Intf.pas"/>
<DCCReference Include="..\ApplicationBase\Usuarios\Servidor\srvUsuarios_Impl.pas"> <DCCReference Include="..\ApplicationBase\Usuarios\Servidor\srvUsuarios_Impl.pas">
<Form>srvUsuarios</Form> <DesignClass>TDataAbstractService</DesignClass>
<DesignClass>TDataAbstractService</DesignClass> <Form>srvUsuarios</Form>
</DCCReference> </DCCReference>
<DCCReference Include="..\Base\schBase_Intf.pas" /> <DCCReference Include="..\Base\schBase_Intf.pas"/>
<DCCReference Include="..\Base\Utiles\uSistemaFunc.pas" /> <DCCReference Include="..\Base\Utiles\uSistemaFunc.pas"/>
<DCCReference Include="..\Base\Utiles\uStringsUtils.pas" /> <DCCReference Include="..\Base\Utiles\uStringsUtils.pas"/>
<DCCReference Include="..\Modulos\Albaranes de cliente\Model\schAlbaranesClienteClient_Intf.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\schAlbaranesClienteServer_Intf.pas"/>
<DCCReference Include="..\Modulos\Albaranes de cliente\Model\uBizAlbaranClienteServer.pas" /> <DCCReference Include="..\Modulos\Albaranes de cliente\Model\uBizAlbaranClienteServer.pas"/>
<DCCReference Include="..\Modulos\Albaranes de cliente\Reports\uRptAlbaranesCliente_Server.pas"> <DCCReference Include="..\Modulos\Albaranes de cliente\Reports\uRptAlbaranesCliente_Server.pas">
<Form>RptAlbaranesCliente</Form> <DesignClass>TDataModule</DesignClass>
<DesignClass>TDataModule</DesignClass> <Form>RptAlbaranesCliente</Form>
</DCCReference> </DCCReference>
<DCCReference Include="..\Modulos\Albaranes de cliente\Reports\uRptWordAlbaranCliente.pas"> <DCCReference Include="..\Modulos\Albaranes de cliente\Reports\uRptWordAlbaranCliente.pas">
<Form>RptWordAlbaranCliente</Form> <DesignClass>TDataModule</DesignClass>
<DesignClass>TDataModule</DesignClass> <Form>RptWordAlbaranCliente</Form>
</DCCReference> </DCCReference>
<DCCReference Include="..\Modulos\Albaranes de cliente\Servidor\srvAlbaranesCliente_Impl.pas"> <DCCReference Include="..\Modulos\Albaranes de cliente\Servidor\srvAlbaranesCliente_Impl.pas">
<Form>srvAlbaranesCliente</Form> <DesignClass>TDataAbstractService</DesignClass>
<DesignClass>TDataAbstractService</DesignClass> <Form>srvAlbaranesCliente</Form>
</DCCReference> </DCCReference>
<DCCReference Include="..\Modulos\Albaranes de proveedor\Model\schAlbaranesProveedorClient_Intf.pas" /> <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\schAlbaranesProveedorServer_Intf.pas"/>
<DCCReference Include="..\Modulos\Albaranes de proveedor\Model\uBizAlbaranProveedorServer.PAS" /> <DCCReference Include="..\Modulos\Albaranes de proveedor\Model\uBizAlbaranProveedorServer.PAS"/>
<DCCReference Include="..\Modulos\Albaranes de proveedor\Reports\uRptAlbaranesProveedor_Server.pas"> <DCCReference Include="..\Modulos\Albaranes de proveedor\Reports\uRptAlbaranesProveedor_Server.pas">
<Form>RptAlbaranesProveedor</Form> <DesignClass>TDataModule</DesignClass>
<DesignClass>TDataModule</DesignClass> <Form>RptAlbaranesProveedor</Form>
</DCCReference> </DCCReference>
<DCCReference Include="..\Modulos\Albaranes de proveedor\Reports\uRptWordAlbaranProveedor.pas"> <DCCReference Include="..\Modulos\Albaranes de proveedor\Reports\uRptWordAlbaranProveedor.pas">
<Form>RptWordAlbaranProveedor</Form> <DesignClass>TDataModule</DesignClass>
<DesignClass>TDataModule</DesignClass> <Form>RptWordAlbaranProveedor</Form>
</DCCReference> </DCCReference>
<DCCReference Include="..\Modulos\Albaranes de proveedor\Servidor\srvAlbaranesProveedor_Impl.pas"> <DCCReference Include="..\Modulos\Albaranes de proveedor\Servidor\srvAlbaranesProveedor_Impl.pas">
<Form>srvAlbaranesProveedor</Form> <DesignClass>TDataAbstractService</DesignClass>
<DesignClass>TDataAbstractService</DesignClass> <Form>srvAlbaranesProveedor</Form>
</DCCReference> </DCCReference>
<DCCReference Include="..\Modulos\Almacenes\Model\schAlmacenesClient_Intf.pas" /> <DCCReference Include="..\Modulos\Almacenes\Model\schAlmacenesClient_Intf.pas"/>
<DCCReference Include="..\Modulos\Almacenes\Model\schAlmacenesServer_Intf.pas" /> <DCCReference Include="..\Modulos\Almacenes\Model\schAlmacenesServer_Intf.pas"/>
<DCCReference Include="..\Modulos\Almacenes\Servidor\srvAlmacenes_Impl.pas"> <DCCReference Include="..\Modulos\Almacenes\Servidor\srvAlmacenes_Impl.pas">
<Form>srvAlmacenes</Form> <DesignClass>TDARemoteService</DesignClass>
<DesignClass>TDARemoteService</DesignClass> <Form>srvAlmacenes</Form>
</DCCReference> </DCCReference>
<DCCReference Include="..\Modulos\Articulos\Model\schArticulosClient_Intf.pas" /> <DCCReference Include="..\Modulos\Articulos\Model\schArticulosClient_Intf.pas"/>
<DCCReference Include="..\Modulos\Articulos\Model\schArticulosServer_Intf.pas" /> <DCCReference Include="..\Modulos\Articulos\Model\schArticulosServer_Intf.pas"/>
<DCCReference Include="..\Modulos\Articulos\Model\uBizArticulosServer.pas" /> <DCCReference Include="..\Modulos\Articulos\Model\uBizArticulosServer.pas"/>
<DCCReference Include="..\Modulos\Articulos\Servidor\srvArticulos_Impl.pas"> <DCCReference Include="..\Modulos\Articulos\Servidor\srvArticulos_Impl.pas">
<Form>srvArticulos</Form> <DesignClass>TDARemoteService</DesignClass>
<DesignClass>TDARemoteService</DesignClass> <Form>srvArticulos</Form>
</DCCReference> </DCCReference>
<DCCReference Include="..\Modulos\Contactos\Model\schContactosClient_Intf.pas" /> <DCCReference Include="..\Modulos\Contactos\Model\schContactosClient_Intf.pas"/>
<DCCReference Include="..\Modulos\Contactos\Model\schContactosServer_Intf.pas" /> <DCCReference Include="..\Modulos\Contactos\Model\schContactosServer_Intf.pas"/>
<DCCReference Include="..\Modulos\Contactos\Model\uBizClientesServer.pas" /> <DCCReference Include="..\Modulos\Contactos\Model\uBizClientesServer.pas"/>
<DCCReference Include="..\Modulos\Contactos\Model\uBizContactosServer.pas" /> <DCCReference Include="..\Modulos\Contactos\Model\uBizContactosServer.pas"/>
<DCCReference Include="..\Modulos\Contactos\Model\uBizEmpleadosServer.pas" /> <DCCReference Include="..\Modulos\Contactos\Model\uBizEmpleadosServer.pas"/>
<DCCReference Include="..\Modulos\Contactos\Model\uBizProveedoresServer.pas" /> <DCCReference Include="..\Modulos\Contactos\Model\uBizProveedoresServer.pas"/>
<DCCReference Include="..\Modulos\Contactos\Model\uBizVendedoresServer.pas" /> <DCCReference Include="..\Modulos\Contactos\Model\uBizVendedoresServer.pas"/>
<DCCReference Include="..\Modulos\Contactos\Reports\uRptEtiquetasContacto_Server.pas"> <DCCReference Include="..\Modulos\Contactos\Reports\uRptEtiquetasContacto_Server.pas">
<Form>RptEtiquetasContacto</Form> <DesignClass>TDataModule</DesignClass>
<DesignClass>TDataModule</DesignClass> <Form>RptEtiquetasContacto</Form>
</DCCReference> </DCCReference>
<DCCReference Include="..\Modulos\Contactos\Reports\uRptFichasEmpleado_Server.pas"> <DCCReference Include="..\Modulos\Contactos\Reports\uRptFichasEmpleado_Server.pas">
<Form>RptFichasEmpleado</Form> <DesignClass>TDataModule</DesignClass>
<DesignClass>TDataModule</DesignClass> <Form>RptFichasEmpleado</Form>
</DCCReference> </DCCReference>
<DCCReference Include="..\Modulos\Contactos\Servidor\srvContactos_Impl.pas"> <DCCReference Include="..\Modulos\Contactos\Servidor\srvContactos_Impl.pas">
<Form>srvContactos</Form> <DesignClass>TDARemoteService</DesignClass>
<DesignClass>TDARemoteService</DesignClass> <Form>srvContactos</Form>
</DCCReference> </DCCReference>
<DCCReference Include="..\Modulos\Fabricantes\Model\schFabricantesClient_Intf.pas" /> <DCCReference Include="..\Modulos\Fabricantes\Model\schFabricantesClient_Intf.pas"/>
<DCCReference Include="..\Modulos\Fabricantes\Model\schFabricantesServer_Intf.pas" /> <DCCReference Include="..\Modulos\Fabricantes\Model\schFabricantesServer_Intf.pas"/>
<DCCReference Include="..\Modulos\Fabricantes\Servidor\srvFabricantes_Impl.pas"> <DCCReference Include="..\Modulos\Fabricantes\Servidor\srvFabricantes_Impl.pas">
<Form>srvFabricantes</Form> <DesignClass>TDataAbstractService</DesignClass>
<DesignClass>TDataAbstractService</DesignClass> <Form>srvFabricantes</Form>
</DCCReference> </DCCReference>
<DCCReference Include="..\Modulos\Facturas de cliente\Model\schFacturasClienteClient_Intf.pas" /> <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\schFacturasClienteServer_Intf.pas"/>
<DCCReference Include="..\Modulos\Facturas de cliente\Model\uBizFacturasClienteServer.pas" /> <DCCReference Include="..\Modulos\Facturas de cliente\Model\uBizFacturasClienteServer.pas"/>
<DCCReference Include="..\Modulos\Facturas de cliente\Reports\uRptFacturasCliente_Server.pas"> <DCCReference Include="..\Modulos\Facturas de cliente\Reports\uRptFacturasCliente_Server.pas">
<Form>RptFacturasCliente</Form> <DesignClass>TDataModule</DesignClass>
<DesignClass>TDataModule</DesignClass> <Form>RptFacturasCliente</Form>
</DCCReference> </DCCReference>
<DCCReference Include="..\Modulos\Facturas de cliente\Reports\uRptWordFacturaCliente.pas"> <DCCReference Include="..\Modulos\Facturas de cliente\Reports\uRptWordFacturaCliente.pas">
<Form>RptWordFacturaCliente</Form> <DesignClass>TDataModule</DesignClass>
<DesignClass>TDataModule</DesignClass> <Form>RptWordFacturaCliente</Form>
</DCCReference> </DCCReference>
<DCCReference Include="..\Modulos\Facturas de cliente\Servidor\srvFacturasCliente_Impl.pas"> <DCCReference Include="..\Modulos\Facturas de cliente\Servidor\srvFacturasCliente_Impl.pas">
<Form>srvFacturasCliente</Form> <DesignClass>TDataAbstractService</DesignClass>
<DesignClass>TDataAbstractService</DesignClass> <Form>srvFacturasCliente</Form>
</DCCReference> </DCCReference>
<DCCReference Include="..\Modulos\Facturas de proveedor\Model\schFacturasProveedorClient_Intf.pas" /> <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\schFacturasProveedorServer_Intf.pas"/>
<DCCReference Include="..\Modulos\Facturas de proveedor\Model\uBizFacturasProveedorServer.pas" /> <DCCReference Include="..\Modulos\Facturas de proveedor\Model\uBizFacturasProveedorServer.pas"/>
<DCCReference Include="..\Modulos\Facturas de proveedor\Reports\uRptFacturasProveedor_Server.pas"> <DCCReference Include="..\Modulos\Facturas de proveedor\Reports\uRptFacturasProveedor_Server.pas">
<Form>RptFacturasProveedor</Form> <DesignClass>TDataModule</DesignClass>
<DesignClass>TDataModule</DesignClass> <Form>RptFacturasProveedor</Form>
</DCCReference> </DCCReference>
<DCCReference Include="..\Modulos\Facturas de proveedor\Servidor\srvFacturasProveedor_Impl.pas"> <DCCReference Include="..\Modulos\Facturas de proveedor\Servidor\srvFacturasProveedor_Impl.pas">
<Form>srvFacturasProveedor</Form> <DesignClass>TDataAbstractService</DesignClass>
<DesignClass>TDataAbstractService</DesignClass> <Form>srvFacturasProveedor</Form>
</DCCReference> </DCCReference>
<DCCReference Include="..\Modulos\Familias\Model\schFamiliasClient_Intf.pas" /> <DCCReference Include="..\Modulos\Familias\Model\schFamiliasClient_Intf.pas"/>
<DCCReference Include="..\Modulos\Familias\Model\schFamiliasServer_Intf.pas" /> <DCCReference Include="..\Modulos\Familias\Model\schFamiliasServer_Intf.pas"/>
<DCCReference Include="..\Modulos\Familias\Servidor\srvFamilias_Impl.pas"> <DCCReference Include="..\Modulos\Familias\Servidor\srvFamilias_Impl.pas">
<Form>srvFamilias</Form> <DesignClass>TDataAbstractService</DesignClass>
<DesignClass>TDataAbstractService</DesignClass> <Form>srvFamilias</Form>
</DCCReference> </DCCReference>
<DCCReference Include="..\Modulos\Formas de pago\Model\schFormasPagoClient_Intf.pas" /> <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\Model\schFormasPagoServer_Intf.pas"/>
<DCCReference Include="..\Modulos\Formas de pago\Servidor\srvFormasPago_Impl.pas"> <DCCReference Include="..\Modulos\Formas de pago\Servidor\srvFormasPago_Impl.pas">
<Form>srvFormasPago</Form> <DesignClass>TDataAbstractService</DesignClass>
<DesignClass>TDataAbstractService</DesignClass> <Form>srvFormasPago</Form>
</DCCReference> </DCCReference>
<DCCReference Include="..\Modulos\Gestion de documentos\Servidor\srvGestorDocumentos_Impl.pas"> <DCCReference Include="..\Modulos\Gestion de documentos\Servidor\srvGestorDocumentos_Impl.pas">
<Form>srvGestorDocumentos</Form> <DesignClass>TDataAbstractService</DesignClass>
<DesignClass>TDataAbstractService</DesignClass> <Form>srvGestorDocumentos</Form>
</DCCReference> </DCCReference>
<DCCReference Include="..\Modulos\Gestor de informes\Servidor\srvGestorInformes_Impl.pas"> <DCCReference Include="..\Modulos\Gestor de informes\Servidor\srvGestorInformes_Impl.pas">
<Form>srvGestorInformes</Form> <DesignClass>TDataAbstractService</DesignClass>
<DesignClass>TDataAbstractService</DesignClass> <Form>srvGestorInformes</Form>
</DCCReference> </DCCReference>
<DCCReference Include="..\Modulos\Historico de movimientos\Model\schHistoricoMovimientosClient_Intf.pas" /> <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\Model\schHistoricoMovimientosServer_Intf.pas"/>
<DCCReference Include="..\Modulos\Historico de movimientos\Servidor\srvHistoricoMovimientos_Impl.pas"> <DCCReference Include="..\Modulos\Historico de movimientos\Servidor\srvHistoricoMovimientos_Impl.pas">
<Form>srvHistoricoMovimientos</Form> <DesignClass>TDataAbstractService</DesignClass>
<DesignClass>TDataAbstractService</DesignClass> <Form>srvHistoricoMovimientos</Form>
</DCCReference> </DCCReference>
<DCCReference Include="..\Modulos\Inventario\Model\schInventarioClient_Intf.pas" /> <DCCReference Include="..\Modulos\Inventario\Model\schInventarioClient_Intf.pas"/>
<DCCReference Include="..\Modulos\Inventario\Model\schInventarioServer_Intf.pas" /> <DCCReference Include="..\Modulos\Inventario\Model\schInventarioServer_Intf.pas"/>
<DCCReference Include="..\Modulos\Inventario\Servidor\srvInventario_Impl.pas"> <DCCReference Include="..\Modulos\Inventario\Servidor\srvInventario_Impl.pas">
<Form>srvInventario</Form> <DesignClass>TDataAbstractService</DesignClass>
<DesignClass>TDataAbstractService</DesignClass> <Form>srvInventario</Form>
</DCCReference> </DCCReference>
<DCCReference Include="..\Modulos\Obras\Model\schObrasClient_Intf.pas" /> <DCCReference Include="..\Modulos\Obras\Model\schObrasClient_Intf.pas"/>
<DCCReference Include="..\Modulos\Obras\Model\schObrasServer_Intf.pas" /> <DCCReference Include="..\Modulos\Obras\Model\schObrasServer_Intf.pas"/>
<DCCReference Include="..\Modulos\Obras\Model\uBizObrasServer.pas" /> <DCCReference Include="..\Modulos\Obras\Model\uBizObrasServer.pas"/>
<DCCReference Include="..\Modulos\Obras\Servidor\srvObras_Impl.pas"> <DCCReference Include="..\Modulos\Obras\Servidor\srvObras_Impl.pas">
<Form>srvObras</Form> <DesignClass>TDataAbstractService</DesignClass>
<DesignClass>TDataAbstractService</DesignClass> <Form>srvObras</Form>
</DCCReference> </DCCReference>
<DCCReference Include="..\Modulos\Pedidos a proveedor\Model\schPedidosProveedorClient_Intf.pas" /> <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\schPedidosProveedorServer_Intf.pas"/>
<DCCReference Include="..\Modulos\Pedidos a proveedor\Model\uBizPedidosProveedorServer.pas" /> <DCCReference Include="..\Modulos\Pedidos a proveedor\Model\uBizPedidosProveedorServer.pas"/>
<DCCReference Include="..\Modulos\Pedidos a proveedor\Reports\uRptPedidosProveedor_Server.pas"> <DCCReference Include="..\Modulos\Pedidos a proveedor\Reports\uRptPedidosProveedor_Server.pas">
<Form>RptPedidosProveedor</Form> <DesignClass>TDataModule</DesignClass>
<DesignClass>TDataModule</DesignClass> <Form>RptPedidosProveedor</Form>
</DCCReference> </DCCReference>
<DCCReference Include="..\Modulos\Pedidos a proveedor\Reports\uRptWordPedidoProveedor.pas"> <DCCReference Include="..\Modulos\Pedidos a proveedor\Reports\uRptWordPedidoProveedor.pas">
<Form>RptWordPedidoProveedor</Form> <DesignClass>TDataModule</DesignClass>
<DesignClass>TDataModule</DesignClass> <Form>RptWordPedidoProveedor</Form>
</DCCReference> </DCCReference>
<DCCReference Include="..\Modulos\Pedidos a proveedor\Servidor\srvPedidosProveedor_Impl.pas"> <DCCReference Include="..\Modulos\Pedidos a proveedor\Servidor\srvPedidosProveedor_Impl.pas">
<Form>srvPedidosProveedor</Form> <DesignClass>TDataAbstractService</DesignClass>
<DesignClass>TDataAbstractService</DesignClass> <Form>srvPedidosProveedor</Form>
</DCCReference> </DCCReference>
<DCCReference Include="..\Modulos\Pedidos de cliente\Model\schPedidosClienteClient_Intf.pas" /> <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\schPedidosClienteServer_Intf.pas"/>
<DCCReference Include="..\Modulos\Pedidos de cliente\Model\uBizPedidosClienteServer.pas" /> <DCCReference Include="..\Modulos\Pedidos de cliente\Model\uBizPedidosClienteServer.pas"/>
<DCCReference Include="..\Modulos\Pedidos de cliente\Reports\uRptPedidosCliente_Server.pas"> <DCCReference Include="..\Modulos\Pedidos de cliente\Reports\uRptPedidosCliente_Server.pas">
<Form>RptPedidosCliente</Form> <Form>RptPedidosCliente</Form>
</DCCReference> </DCCReference>
<DCCReference Include="..\Modulos\Pedidos de cliente\Servidor\srvPedidosCliente_Impl.pas"> <DCCReference Include="..\Modulos\Pedidos de cliente\Servidor\srvPedidosCliente_Impl.pas">
<Form>srvPedidosCliente</Form> <DesignClass>TDataAbstractService</DesignClass>
<DesignClass>TDataAbstractService</DesignClass> <Form>srvPedidosCliente</Form>
</DCCReference> </DCCReference>
<DCCReference Include="..\Modulos\Presupuestos de cliente\Model\schPresupuestosClienteClient_Intf.pas" /> <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\schPresupuestosClienteServer_Intf.pas"/>
<DCCReference Include="..\Modulos\Presupuestos de cliente\Model\uBizPresupuestosClienteServer.pas" /> <DCCReference Include="..\Modulos\Presupuestos de cliente\Model\uBizPresupuestosClienteServer.pas"/>
<DCCReference Include="..\Modulos\Presupuestos de cliente\Reports\uRptPresupuestosCliente_Server.pas"> <DCCReference Include="..\Modulos\Presupuestos de cliente\Reports\uRptPresupuestosCliente_Server.pas">
<Form>RptPresupuestosCliente</Form> <DesignClass>TDataModule</DesignClass>
<DesignClass>TDataModule</DesignClass> <Form>RptPresupuestosCliente</Form>
</DCCReference> </DCCReference>
<DCCReference Include="..\Modulos\Presupuestos de cliente\Reports\uRptWordCertificadoTrabajo_Server.pas"> <DCCReference Include="..\Modulos\Presupuestos de cliente\Reports\uRptWordCertificadoTrabajo_Server.pas">
<Form>RptWordCertificadoTrabajo</Form> <DesignClass>TDataModule</DesignClass>
<DesignClass>TDataModule</DesignClass> <Form>RptWordCertificadoTrabajo</Form>
</DCCReference> </DCCReference>
<DCCReference Include="..\Modulos\Presupuestos de cliente\Reports\uRptWordPresupuestoCliente.pas"> <DCCReference Include="..\Modulos\Presupuestos de cliente\Reports\uRptWordPresupuestoCliente.pas">
<Form>RptWordPresupuestoCliente</Form> <DesignClass>TDataModule</DesignClass>
<DesignClass>TDataModule</DesignClass> <Form>RptWordPresupuestoCliente</Form>
</DCCReference> </DCCReference>
<DCCReference Include="..\Modulos\Presupuestos de cliente\Servidor\srvPresupuestosCliente_Impl.pas"> <DCCReference Include="..\Modulos\Presupuestos de cliente\Servidor\srvPresupuestosCliente_Impl.pas">
<Form>srvPresupuestosCliente</Form> <DesignClass>TDataAbstractService</DesignClass>
<DesignClass>TDataAbstractService</DesignClass> <Form>srvPresupuestosCliente</Form>
</DCCReference> </DCCReference>
<DCCReference Include="..\Modulos\Recibos de cliente\Model\schRecibosClienteClient_Intf.pas" /> <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\Model\schRecibosClienteServer_Intf.pas"/>
<DCCReference Include="..\Modulos\Recibos de cliente\Reports\uRptRecibosCliente_Server.pas"> <DCCReference Include="..\Modulos\Recibos de cliente\Reports\uRptRecibosCliente_Server.pas">
<Form>RptRecibosCliente</Form> <DesignClass>TDataModule</DesignClass>
<DesignClass>TDataModule</DesignClass> <Form>RptRecibosCliente</Form>
</DCCReference> </DCCReference>
<DCCReference Include="..\Modulos\Recibos de cliente\Servidor\srvRecibosCliente_Impl.pas"> <DCCReference Include="..\Modulos\Recibos de cliente\Servidor\srvRecibosCliente_Impl.pas">
<Form>srvRecibosCliente</Form> <DesignClass>TDataAbstractService</DesignClass>
<DesignClass>TDataAbstractService</DesignClass> <Form>srvRecibosCliente</Form>
</DCCReference> </DCCReference>
<DCCReference Include="..\Modulos\Recibos de proveedor\Model\schRecibosProveedorClient_Intf.pas" /> <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\Model\schRecibosProveedorServer_Intf.pas"/>
<DCCReference Include="..\Modulos\Recibos de proveedor\Reports\uRptRecibosProveedor_Server.pas"> <DCCReference Include="..\Modulos\Recibos de proveedor\Reports\uRptRecibosProveedor_Server.pas">
<Form>RptRecibosProveedor</Form> <DesignClass>TDataModule</DesignClass>
<DesignClass>TDataModule</DesignClass> <Form>RptRecibosProveedor</Form>
</DCCReference> </DCCReference>
<DCCReference Include="..\Modulos\Recibos de proveedor\Servidor\srvRecibosProveedor_Impl.pas"> <DCCReference Include="..\Modulos\Recibos de proveedor\Servidor\srvRecibosProveedor_Impl.pas">
<Form>srvRecibosProveedor</Form> <DesignClass>TDataAbstractService</DesignClass>
<DesignClass>TDataAbstractService</DesignClass> <Form>srvRecibosProveedor</Form>
</DCCReference> </DCCReference>
<DCCReference Include="..\Modulos\Referencias\Model\schReferenciasClient_Intf.pas" /> <DCCReference Include="..\Modulos\Referencias\Model\schReferenciasClient_Intf.pas"/>
<DCCReference Include="..\Modulos\Referencias\Model\schReferenciasServer_Intf.pas" /> <DCCReference Include="..\Modulos\Referencias\Model\schReferenciasServer_Intf.pas"/>
<DCCReference Include="..\Modulos\Referencias\Servidor\srvReferencias_Impl.pas"> <DCCReference Include="..\Modulos\Referencias\Servidor\srvReferencias_Impl.pas">
<Form>srvReferencias</Form> <DesignClass>TDataAbstractService</DesignClass>
<DesignClass>TDataAbstractService</DesignClass> <Form>srvReferencias</Form>
</DCCReference> </DCCReference>
<DCCReference Include="..\Modulos\Remesas de cliente\Model\schRemesasClienteClient_Intf.pas" /> <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\schRemesasClienteServer_Intf.pas"/>
<DCCReference Include="..\Modulos\Remesas de cliente\Model\uBizRemesasClienteServer.pas" /> <DCCReference Include="..\Modulos\Remesas de cliente\Model\uBizRemesasClienteServer.pas"/>
<DCCReference Include="..\Modulos\Remesas de cliente\Reports\uRptRemesasCliente_Server.pas"> <DCCReference Include="..\Modulos\Remesas de cliente\Reports\uRptRemesasCliente_Server.pas">
<Form>RptRemesasCliente</Form> <DesignClass>TDataModule</DesignClass>
<DesignClass>TDataModule</DesignClass> <Form>RptRemesasCliente</Form>
</DCCReference> </DCCReference>
<DCCReference Include="..\Modulos\Remesas de cliente\Servidor\srvRemesasCliente_Impl.pas"> <DCCReference Include="..\Modulos\Remesas de cliente\Servidor\srvRemesasCliente_Impl.pas">
<Form>srvRemesasCliente</Form> <DesignClass>TDataAbstractService</DesignClass>
<DesignClass>TDataAbstractService</DesignClass> <Form>srvRemesasCliente</Form>
</DCCReference> </DCCReference>
<DCCReference Include="..\Modulos\Remesas de proveedor\Model\schRemesasProveedorClient_Intf.pas" /> <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\schRemesasProveedorServer_Intf.pas"/>
<DCCReference Include="..\Modulos\Remesas de proveedor\Model\uBizRemesasProveedorServer.pas" /> <DCCReference Include="..\Modulos\Remesas de proveedor\Model\uBizRemesasProveedorServer.pas"/>
<DCCReference Include="..\Modulos\Remesas de proveedor\Servidor\srvRemesasProveedor_Impl.pas"> <DCCReference Include="..\Modulos\Remesas de proveedor\Servidor\srvRemesasProveedor_Impl.pas">
<Form>srvRemesasProveedor</Form> <DesignClass>TDataAbstractService</DesignClass>
<DesignClass>TDataAbstractService</DesignClass> <Form>srvRemesasProveedor</Form>
</DCCReference> </DCCReference>
<DCCReference Include="..\Modulos\Tipos de IVA\Model\schTiposIVAClient_Intf.pas" /> <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\Model\schTiposIVAServer_Intf.pas"/>
<DCCReference Include="..\Modulos\Tipos de IVA\Servidor\srvTiposIVA_Impl.pas"> <DCCReference Include="..\Modulos\Tipos de IVA\Servidor\srvTiposIVA_Impl.pas">
<Form>srvTiposIVA</Form> <DesignClass>TDataAbstractService</DesignClass>
<DesignClass>TDataAbstractService</DesignClass> <Form>srvTiposIVA</Form>
</DCCReference> </DCCReference>
<DCCReference Include="..\Modulos\Unidades de medida\Model\schUnidadesMedidaClient_Intf.pas" /> <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\Model\schUnidadesMedidaServer_Intf.pas"/>
<DCCReference Include="..\Modulos\Unidades de medida\Servidor\srvUnidadesMedida_Impl.pas"> <DCCReference Include="..\Modulos\Unidades de medida\Servidor\srvUnidadesMedida_Impl.pas">
<Form>srvUnidadesMedida</Form> <DesignClass>TDataAbstractService</DesignClass>
<DesignClass>TDataAbstractService</DesignClass> <Form>srvUnidadesMedida</Form>
</DCCReference> </DCCReference>
<DCCReference Include="..\Servicios\FactuGES_Intf.pas" /> <DCCReference Include="..\Servicios\FactuGES_Intf.pas"/>
<DCCReference Include="..\Servicios\FactuGES_Invk.pas" /> <DCCReference Include="..\Servicios\FactuGES_Invk.pas"/>
<DCCReference Include="Configuracion\srvConfiguracion_Impl.pas"> <DCCReference Include="Configuracion\srvConfiguracion_Impl.pas">
<Form>srvConfiguracion</Form> <DesignClass>TDataAbstractService</DesignClass>
<DesignClass>TDataAbstractService</DesignClass> <Form>srvConfiguracion</Form>
</DCCReference> </DCCReference>
<DCCReference Include="Configuracion\uConexionBD.pas"> <DCCReference Include="Configuracion\uConexionBD.pas">
<Form>frConexionBD</Form> <DesignClass>TFrame</DesignClass>
<DesignClass>TFrame</DesignClass> <Form>frConexionBD</Form>
</DCCReference> </DCCReference>
<DCCReference Include="Configuracion\uConfGeneral.pas"> <DCCReference Include="Configuracion\uConfGeneral.pas">
<Form>frConfGeneral</Form> <DesignClass>TFrame</DesignClass>
<DesignClass>TFrame</DesignClass> <Form>frConfGeneral</Form>
</DCCReference> </DCCReference>
<DCCReference Include="Configuracion\uConfiguracion.pas"> <DCCReference Include="Configuracion\uConfiguracion.pas">
<Form>fConfiguracion</Form> <DesignClass>TForm</DesignClass>
<DesignClass>TForm</DesignClass> <Form>fConfiguracion</Form>
</DCCReference> </DCCReference>
<DCCReference Include="Configuracion\uFrameConfiguracion.pas"> <DCCReference Include="Configuracion\uFrameConfiguracion.pas">
<Form>FrameConfiguracion</Form> <DesignClass>TFrame</DesignClass>
<DesignClass>TFrame</DesignClass> <Form>FrameConfiguracion</Form>
</DCCReference> </DCCReference>
<DCCReference Include="srvLogin_Impl.pas"> <DCCReference Include="srvLogin_Impl.pas">
<Form>srvLogin</Form> <DesignClass>TDARemoteService</DesignClass>
<DesignClass>TDARemoteService</DesignClass> <Form>srvLogin</Form>
</DCCReference> </DCCReference>
<DCCReference Include="uAcercaDe.pas"> <DCCReference Include="uAcercaDe.pas">
<Form>fAcercaDe</Form> <Form>fAcercaDe</Form>
</DCCReference> </DCCReference>
<DCCReference Include="uDataModuleServer.pas"> <DCCReference Include="uDataModuleServer.pas">
<Form>dmServer</Form> <DesignClass>TDataModule</DesignClass>
<DesignClass>TDataModule</DesignClass> <Form>dmServer</Form>
</DCCReference> </DCCReference>
<DCCReference Include="uServerMainForm.pas"> <DCCReference Include="uServerMainForm.pas">
<Form>fServerForm</Form> <Form>fServerForm</Form>
</DCCReference> </DCCReference>
<DCCReference Include="Utiles\AHWord97.pas" /> <DCCReference Include="Utiles\AHWord97.pas"/>
<DCCReference Include="Utiles\MidasSpeedFix.pas" /> <DCCReference Include="Utiles\MidasSpeedFix.pas"/>
<DCCReference Include="Utiles\RegExpr.pas" /> <DCCReference Include="Utiles\RegExpr.pas"/>
<DCCReference Include="Utiles\uBusinessUtils.pas" /> <DCCReference Include="Utiles\uBusinessUtils.pas"/>
<DCCReference Include="Utiles\uDatabaseUtils.pas" /> <DCCReference Include="Utiles\uDatabaseUtils.pas"/>
<DCCReference Include="Utiles\uReferenciasUtils.pas" /> <DCCReference Include="Utiles\uReferenciasUtils.pas"/>
<DCCReference Include="Utiles\uRestriccionesUsuarioUtils.pas" /> <DCCReference Include="Utiles\uRestriccionesUsuarioUtils.pas"/>
<DCCReference Include="Utiles\uSchemaUtilsServer.pas" /> <DCCReference Include="Utiles\uSchemaUtilsServer.pas"/>
<DCCReference Include="Utiles\uServerAppUtils.pas" /> <DCCReference Include="Utiles\uServerAppUtils.pas"/>
<DCCReference Include="Utiles\uSesionesUtils.pas" /> <DCCReference Include="Utiles\uSesionesUtils.pas"/>
</ItemGroup> </ItemGroup>
</Project> </Project>
<!-- EurekaLog First Line <!-- EurekaLog First Line
[Exception Log] [Exception Log]
EurekaLog Version=6011 EurekaLog Version=6011
Activate=0 Activate=1
Activate Handle=1 Activate Handle=1
Save Log File=1 Save Log File=1
Foreground Tab=0 Foreground Tab=0

4
Source/Servidor/FactuGES_Server.rc
View File

@ -1,4 +1,4 @@
MAINICON ICON "C:\Codigo Noviseda\Resources\Iconos\Servidor.ico" MAINICON ICON "C:\Codigo noviseda\Resources\Iconos\Servidor.ico"
1 VERSIONINFO 1 VERSIONINFO
FILEVERSION 1,0,2,0 FILEVERSION 1,0,2,0
PRODUCTVERSION 1,0,2,0 PRODUCTVERSION 1,0,2,0
@ -17,7 +17,7 @@ BEGIN
VALUE "InternalName", "FactuGES Servidor\0" VALUE "InternalName", "FactuGES Servidor\0"
VALUE "ProductName", "FactuGES Servidor\0" VALUE "ProductName", "FactuGES Servidor\0"
VALUE "ProductVersion", "1.0.2.0\0" VALUE "ProductVersion", "1.0.2.0\0"
VALUE "CompileDate", "jueves, 04 de marzo de 2010 12:31\0" VALUE "CompileDate", "viernes, 19 de marzo de 2010 13:53\0"
END END
END END
BLOCK "VarFileInfo" BLOCK "VarFileInfo"

2
Source/Servidor/uDataModuleServer.dfm
View File

@ -13,7 +13,7 @@ object dmServer: TdmServer
DriverDirectory = '%SYSTEM%\' DriverDirectory = '%SYSTEM%\'
AutoLoad = True AutoLoad = True
TraceActive = True TraceActive = True
TraceFlags = [toExecute, toError, toStmt, toConnect, toTransact, toMisc] TraceFlags = [toPrepare, toExecute, toFetch, toError, toStmt, toConnect, toTransact, toBlob, toService, toMisc, toParams]
OnTraceEvent = DriverManagerTraceEvent OnTraceEvent = DriverManagerTraceEvent
Left = 136 Left = 136
Top = 80 Top = 80

1
Source/Servidor/uDataModuleServer.pas
View File

@ -280,6 +280,7 @@ end;
procedure TdmServer.RefrescarConexion; procedure TdmServer.RefrescarConexion;
begin begin
HTTPServer.Active := False; HTTPServer.Active := False;
// ConnectionManager.ClearPool;
ConnectionManager.Connections.GetDefaultConnection.ConnectionString := ''; ConnectionManager.Connections.GetDefaultConnection.ConnectionString := '';
ConnectionName := ConnectionManager.GetDefaultConnectionName; ConnectionName := ConnectionManager.GetDefaultConnectionName;