Se adaptan los albaranes de cliente para poder cambiar articulo enviado aunque no se cambie el articulo que el cliente pidio en su dia
git-svn-id: https://192.168.0.254/svn/Proyectos.Noviseda_FactuGES2/trunk@106 f33bb606-9f5c-448d-9c99-757f00063c96
This commit is contained in:
parent
7eb37bb9ca
commit
42fc97b1a9
BIN
Build/Build.fbl6
BIN
Build/Build.fbl6
Binary file not shown.
@ -6,7 +6,7 @@
|
||||
<propertysets/>
|
||||
<variables>
|
||||
<project_path>
|
||||
<![CDATA[C:\Codigo Noviseda]]>
|
||||
<![CDATA[C:\Codigo noviseda]]>
|
||||
</project_path>
|
||||
</variables>
|
||||
<properties>
|
||||
|
||||
@ -316,7 +316,8 @@ CREATE TABLE ALBARANES_CLIENTE_DETALLES (
|
||||
VISIBLE TIPO_BOOLEANO,
|
||||
FECHA_ALTA TIMESTAMP,
|
||||
FECHA_MODIFICACION TIMESTAMP,
|
||||
ID_PEDIDO TIPO_ID
|
||||
ID_PEDIDO TIPO_ID,
|
||||
ID_ARTICULO_REEMPLAZADO TIPO_ID
|
||||
);
|
||||
|
||||
CREATE TABLE ALBARANES_CLIENTE_DETALLE_COLOR (
|
||||
@ -1278,8 +1279,6 @@ SELECT ALBARANES_CLIENTE.ID,
|
||||
FROM ALBARANES_CLIENTE
|
||||
;
|
||||
|
||||
|
||||
|
||||
/* View: V_ALB_CLI_DETALLES */
|
||||
CREATE VIEW V_ALB_CLI_DETALLES(
|
||||
ID_ALBARAN,
|
||||
@ -1293,7 +1292,9 @@ SELECT ALBARANES_CLIENTE_DETALLES.ID_ALBARAN,
|
||||
ALBARANES_CLIENTE_DETALLES.ID_PEDIDO,
|
||||
V_ALB_CLI_SITUACION.SITUACION,
|
||||
ALBARANES_CLIENTE.ID_ALMACEN,
|
||||
COALESCE(ALBARANES_CLIENTE_DETALLES.ID_ARTICULO, 0),
|
||||
CASE WHEN ALBARANES_CLIENTE_DETALLES.ID_ARTICULO_REEMPLAZADO IS NULL then COALESCE(ALBARANES_CLIENTE_DETALLES.ID_ARTICULO, 0)
|
||||
ELSE ALBARANES_CLIENTE_DETALLES.ID_ARTICULO_REEMPLAZADO
|
||||
END AS ID_ARTICULO,
|
||||
SUM(COALESCE(ALBARANES_CLIENTE_DETALLES.CANTIDAD, 0))
|
||||
|
||||
FROM ALBARANES_CLIENTE_DETALLES
|
||||
@ -1314,7 +1315,7 @@ group BY ALBARANES_CLIENTE_DETALLES.ID_ALBARAN,
|
||||
ALBARANES_CLIENTE_DETALLES.ID_PEDIDO,
|
||||
V_ALB_CLI_SITUACION.SITUACION,
|
||||
ALBARANES_CLIENTE.ID_ALMACEN,
|
||||
ALBARANES_CLIENTE_DETALLES.ID_ARTICULO
|
||||
ID_ARTICULO
|
||||
;
|
||||
|
||||
|
||||
@ -3663,7 +3664,7 @@ UNION ALL
|
||||
SELECT
|
||||
V_PED_CLI_ART_SITUACION_CANT.ID_PEDIDO,
|
||||
V_PED_CLI_ART_SITUACION_CANT.ID_ARTICULO,
|
||||
NULL AS CANTIDAD_PEDIDA,
|
||||
0 AS CANTIDAD_PEDIDA,
|
||||
V_PED_CLI_ART_SITUACION_CANT.CANTIDAD_RESERVADA AS CANTIDAD_RESERVADA,
|
||||
V_PED_CLI_ART_SITUACION_CANT.CANTIDAD_ENVIADA AS CANTIDAD_ENVIADA,
|
||||
V_PED_CLI_ART_SITUACION_CANT.CANTIDAD_SERVIDA AS CANTIDAD_SERVIDA
|
||||
@ -3896,7 +3897,149 @@ FROM
|
||||
LEFT OUTER JOIN FORMAS_PAGO ON (FORMAS_PAGO.ID = PEDIDOS_CLIENTE.ID_FORMA_PAGO)
|
||||
;
|
||||
|
||||
/**************************************************/
|
||||
/***VISTAS PARA EL CONTROL DE COLORES PENDIENTES***/
|
||||
/**************************************************/
|
||||
|
||||
CREATE VIEW V_ALB_CLI_DETALLE_COLORES(
|
||||
/* ID_ALBARAN, */
|
||||
ID_PEDIDO,
|
||||
/* SITUACION,
|
||||
ID_ALMACEN,
|
||||
*/
|
||||
ID_ARTICULO,
|
||||
COLOR1,
|
||||
COLOR2,
|
||||
COLOR3,
|
||||
COLOR4,
|
||||
COLOR5,
|
||||
COLOR6,
|
||||
COLOR7,
|
||||
COLOR8,
|
||||
COLOR9,
|
||||
COLOR10,
|
||||
COLOR11,
|
||||
COLOR12)
|
||||
AS
|
||||
SELECT
|
||||
/*ALBARANES_CLIENTE_DETALLES.ID_ALBARAN, */
|
||||
ALBARANES_CLIENTE_DETALLES.ID_PEDIDO,
|
||||
/* V_ALB_CLI_SITUACION.SITUACION,
|
||||
ALBARANES_CLIENTE.ID_ALMACEN,
|
||||
*/
|
||||
COALESCE(ALBARANES_CLIENTE_DETALLES.ID_ARTICULO, 0) as ID_ARTICULO,
|
||||
SUM(COALESCE(ALBARANES_CLIENTE_DETALLE_COLOR.COLOR1, 0)) AS COLOR1,
|
||||
SUM(COALESCE(ALBARANES_CLIENTE_DETALLE_COLOR.COLOR2, 0)) AS COLOR2,
|
||||
SUM(COALESCE(ALBARANES_CLIENTE_DETALLE_COLOR.COLOR3, 0)) AS COLOR3,
|
||||
SUM(COALESCE(ALBARANES_CLIENTE_DETALLE_COLOR.COLOR4, 0)) AS COLOR4,
|
||||
SUM(COALESCE(ALBARANES_CLIENTE_DETALLE_COLOR.COLOR5, 0)) AS COLOR5,
|
||||
SUM(COALESCE(ALBARANES_CLIENTE_DETALLE_COLOR.COLOR6, 0)) AS COLOR6,
|
||||
SUM(COALESCE(ALBARANES_CLIENTE_DETALLE_COLOR.COLOR7, 0)) AS COLOR7,
|
||||
SUM(COALESCE(ALBARANES_CLIENTE_DETALLE_COLOR.COLOR8, 0)) AS COLOR8,
|
||||
SUM(COALESCE(ALBARANES_CLIENTE_DETALLE_COLOR.COLOR9, 0)) AS COLOR9,
|
||||
SUM(COALESCE(ALBARANES_CLIENTE_DETALLE_COLOR.COLOR10, 0)) AS COLOR10,
|
||||
SUM(COALESCE(ALBARANES_CLIENTE_DETALLE_COLOR.COLOR11, 0)) AS COLOR11,
|
||||
SUM(COALESCE(ALBARANES_CLIENTE_DETALLE_COLOR.COLOR12, 0)) AS COLOR12
|
||||
|
||||
|
||||
FROM ALBARANES_CLIENTE_DETALLES
|
||||
INNER JOIN ALBARANES_CLIENTE
|
||||
ON (ALBARANES_CLIENTE_DETALLES.ID_ALBARAN = ALBARANES_CLIENTE.ID)
|
||||
INNER JOIN V_ALB_CLI_SITUACION
|
||||
ON (ALBARANES_CLIENTE_DETALLES.ID_ALBARAN = V_ALB_CLI_SITUACION.ID)
|
||||
LEFT JOIN ALBARANES_CLIENTE_DETALLE_COLOR
|
||||
ON (ALBARANES_CLIENTE_DETALLE_COLOR.ID_DETALLE = ALBARANES_CLIENTE_DETALLES.ID)
|
||||
|
||||
|
||||
group BY
|
||||
/*ALBARANES_CLIENTE_DETALLES.ID_ALBARAN,*/
|
||||
ALBARANES_CLIENTE_DETALLES.ID_PEDIDO,
|
||||
/* V_ALB_CLI_SITUACION.SITUACION,
|
||||
ALBARANES_CLIENTE.ID_ALMACEN,
|
||||
*/
|
||||
ALBARANES_CLIENTE_DETALLES.ID_ARTICULO
|
||||
;
|
||||
|
||||
|
||||
|
||||
CREATE VIEW V_PED_CLI_DETALLE_COLORES(
|
||||
ID_PEDIDO,
|
||||
ID_ARTICULO,
|
||||
COLOR1,
|
||||
COLOR2,
|
||||
COLOR3,
|
||||
COLOR4,
|
||||
COLOR5,
|
||||
COLOR6,
|
||||
COLOR7,
|
||||
COLOR8,
|
||||
COLOR9,
|
||||
COLOR10,
|
||||
COLOR11,
|
||||
COLOR12)
|
||||
AS
|
||||
SELECT PEDIDOS_CLIENTE_DETALLES.ID_PEDIDO,
|
||||
COALESCE(PEDIDOS_CLIENTE_DETALLES.ID_ARTICULO, 0) as ID_ARTICULO,
|
||||
SUM(COALESCE(PEDIDOS_CLIENTE_DETALLE_COLOR.COLOR1, 0)) AS COLOR1,
|
||||
SUM(COALESCE(PEDIDOS_CLIENTE_DETALLE_COLOR.COLOR2, 0)) AS COLOR2,
|
||||
SUM(COALESCE(PEDIDOS_CLIENTE_DETALLE_COLOR.COLOR3, 0)) AS COLOR3,
|
||||
SUM(COALESCE(PEDIDOS_CLIENTE_DETALLE_COLOR.COLOR4, 0)) AS COLOR4,
|
||||
SUM(COALESCE(PEDIDOS_CLIENTE_DETALLE_COLOR.COLOR5, 0)) AS COLOR5,
|
||||
SUM(COALESCE(PEDIDOS_CLIENTE_DETALLE_COLOR.COLOR6, 0)) AS COLOR6,
|
||||
SUM(COALESCE(PEDIDOS_CLIENTE_DETALLE_COLOR.COLOR7, 0)) AS COLOR7,
|
||||
SUM(COALESCE(PEDIDOS_CLIENTE_DETALLE_COLOR.COLOR8, 0)) AS COLOR8,
|
||||
SUM(COALESCE(PEDIDOS_CLIENTE_DETALLE_COLOR.COLOR9, 0)) AS COLOR9,
|
||||
SUM(COALESCE(PEDIDOS_CLIENTE_DETALLE_COLOR.COLOR10, 0)) AS COLOR10,
|
||||
SUM(COALESCE(PEDIDOS_CLIENTE_DETALLE_COLOR.COLOR11, 0)) AS COLOR11,
|
||||
SUM(COALESCE(PEDIDOS_CLIENTE_DETALLE_COLOR.COLOR12, 0)) AS COLOR12
|
||||
|
||||
|
||||
FROM PEDIDOS_CLIENTE_DETALLES
|
||||
|
||||
LEFT JOIN PEDIDOS_CLIENTE_DETALLE_COLOR
|
||||
ON (PEDIDOS_CLIENTE_DETALLE_COLOR.ID_DETALLE = PEDIDOS_CLIENTE_DETALLES.ID)
|
||||
|
||||
|
||||
GROUP BY PEDIDOS_CLIENTE_DETALLES.ID_PEDIDO,
|
||||
PEDIDOS_CLIENTE_DETALLES.ID_ARTICULO
|
||||
;
|
||||
|
||||
|
||||
CREATE VIEW V_PED_CLI_ART_COLORES_PEND(
|
||||
ID_PEDIDO,
|
||||
ID_ARTICULO,
|
||||
COLOR1,
|
||||
COLOR2,
|
||||
COLOR3,
|
||||
COLOR4,
|
||||
COLOR5,
|
||||
COLOR6,
|
||||
COLOR7,
|
||||
COLOR8,
|
||||
COLOR9,
|
||||
COLOR10,
|
||||
COLOR11,
|
||||
COLOR12)
|
||||
AS
|
||||
select v_ped_cli_detalle_colores.ID_PEDIDO, v_ped_cli_detalle_colores.ID_ARTICULO,
|
||||
v_ped_cli_detalle_colores.COLOR1 - coalesce(v_alb_cli_detalle_colores.COLOR1, 0),
|
||||
v_ped_cli_detalle_colores.COLOR2 - coalesce(v_alb_cli_detalle_colores.COLOR2, 0),
|
||||
v_ped_cli_detalle_colores.COLOR3 - coalesce(v_alb_cli_detalle_colores.COLOR3, 0),
|
||||
v_ped_cli_detalle_colores.COLOR4 - coalesce(v_alb_cli_detalle_colores.COLOR4, 0),
|
||||
v_ped_cli_detalle_colores.COLOR5 - coalesce(v_alb_cli_detalle_colores.COLOR5, 0),
|
||||
v_ped_cli_detalle_colores.COLOR6 - coalesce(v_alb_cli_detalle_colores.COLOR6, 0),
|
||||
v_ped_cli_detalle_colores.COLOR7 - coalesce(v_alb_cli_detalle_colores.COLOR7, 0),
|
||||
v_ped_cli_detalle_colores.COLOR8 - coalesce(v_alb_cli_detalle_colores.COLOR8, 0),
|
||||
v_ped_cli_detalle_colores.COLOR9 - coalesce(v_alb_cli_detalle_colores.COLOR9, 0),
|
||||
v_ped_cli_detalle_colores.COLOR10 - coalesce(v_alb_cli_detalle_colores.COLOR10, 0),
|
||||
v_ped_cli_detalle_colores.COLOR11 - coalesce(v_alb_cli_detalle_colores.COLOR11, 0),
|
||||
v_ped_cli_detalle_colores.COLOR12 - coalesce(v_alb_cli_detalle_colores.COLOR12, 0)
|
||||
|
||||
from v_ped_cli_detalle_colores
|
||||
left join v_alb_cli_detalle_colores
|
||||
on ((v_alb_cli_detalle_colores .ID_PEDIDO = v_ped_cli_detalle_colores.id_pedido)
|
||||
and (v_alb_cli_detalle_colores .id_articulo = v_ped_cli_detalle_colores.id_articulo))
|
||||
;
|
||||
|
||||
|
||||
/******************************************************************************/
|
||||
|
||||
@ -45,8 +45,6 @@
|
||||
<Borland.ProjectType>Package</Borland.ProjectType>
|
||||
<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>
|
||||
|
||||
|
||||
<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>
|
||||
</ProjectExtensions>
|
||||
@ -55,58 +53,58 @@
|
||||
<DelphiCompile Include="Base.dpk">
|
||||
<MainSource>MainSource</MainSource>
|
||||
</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="..\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">
|
||||
<Form>fConfigurarConexion</Form>
|
||||
<DesignClass>TForm</DesignClass>
|
||||
|
||||
Binary file not shown.
@ -16,6 +16,7 @@ const
|
||||
CAMPO_IMPORTE_TOTAL = 'IMPORTE_TOTAL';
|
||||
CAMPO_DESCUENTO = 'DESCUENTO';
|
||||
CAMPO_IMPORTE_PORTE = 'IMPORTE_PORTE';
|
||||
CAMPO_ID_ARTICULOS_REEMPLAZADO = 'ID_ARTICULO_REEMPLAZADO';
|
||||
|
||||
function CalcularLineaConcepto (const ADataTable : TDADataTable): Double;
|
||||
procedure ValidarCamposLineaConcepto(DataTable: TDADataTable);
|
||||
|
||||
@ -2,7 +2,8 @@ program FactuGES;
|
||||
|
||||
uses
|
||||
// ExceptionLog,
|
||||
ExceptionLog,
|
||||
// ExceptionLog,
|
||||
// ExceptionLog,
|
||||
Forms,
|
||||
Windows,
|
||||
SysUtils,
|
||||
|
||||
@ -1,4 +1,4 @@
|
||||
MAINICON ICON "C:\Codigo Noviseda\Resources\Iconos\Factuges.ico"
|
||||
MAINICON ICON "C:\Codigo noviseda\Resources\Iconos\Factuges.ico"
|
||||
1 VERSIONINFO
|
||||
FILEVERSION 1,0,2,0
|
||||
PRODUCTVERSION 1,0,2,0
|
||||
|
||||
Binary file not shown.
@ -50,7 +50,7 @@ begin
|
||||
LoadModule('RemesasCliente_plugin.bpl');
|
||||
// LoadModule('RemesasProveedor_plugin.bpl');
|
||||
|
||||
// LoadModule('Inventario_plugin.bpl');
|
||||
LoadModule('Inventario_plugin.bpl');
|
||||
// LoadModule('HistoricoMovimientos_plugin.bpl');
|
||||
|
||||
// LoadModule('GestorInformes_plugin.bpl');
|
||||
|
||||
@ -59,32 +59,32 @@
|
||||
<DelphiCompile Include="GUIBase.dpk">
|
||||
<MainSource>MainSource</MainSource>
|
||||
</DelphiCompile>
|
||||
<DCCReference Include="..\Modulos\Pedidos de cliente\Views\Base.dcp" />
|
||||
<DCCReference Include="..\Modulos\Pedidos de cliente\Views\cxLibraryD11.dcp" />
|
||||
<DCCReference Include="..\Modulos\Pedidos de cliente\Views\cxTreeListD11.dcp" />
|
||||
<DCCReference Include="..\Modulos\Pedidos de cliente\Views\dbrtl.dcp" />
|
||||
<DCCReference Include="..\Modulos\Pedidos de cliente\Views\dxBarD11.dcp" />
|
||||
<DCCReference Include="..\Modulos\Pedidos de cliente\Views\dxBarExtItemsD11.dcp" />
|
||||
<DCCReference Include="..\Modulos\Pedidos de cliente\Views\dxComnD11.dcp" />
|
||||
<DCCReference Include="..\Modulos\Pedidos de cliente\Views\dxGDIPlusD11.dcp" />
|
||||
<DCCReference Include="..\Modulos\Pedidos de cliente\Views\dxLayoutControlD11.dcp" />
|
||||
<DCCReference Include="..\Modulos\Pedidos de cliente\Views\dxPSCoreD11.dcp" />
|
||||
<DCCReference Include="..\Modulos\Pedidos de cliente\Views\dxPScxCommonD11.dcp" />
|
||||
<DCCReference Include="..\Modulos\Pedidos de cliente\Views\dxPScxExtCommonD11.dcp" />
|
||||
<DCCReference Include="..\Modulos\Pedidos de cliente\Views\dxPScxGrid6LnkD11.dcp" />
|
||||
<DCCReference Include="..\Modulos\Pedidos de cliente\Views\dxPScxPCProdD11.dcp" />
|
||||
<DCCReference Include="..\Modulos\Pedidos de cliente\Views\dxPsPrVwAdvD11.dcp" />
|
||||
<DCCReference Include="..\Modulos\Pedidos de cliente\Views\dxThemeD11.dcp" />
|
||||
<DCCReference Include="..\Modulos\Pedidos de cliente\Views\frx11.dcp" />
|
||||
<DCCReference Include="..\Modulos\Pedidos de cliente\Views\frxe11.dcp" />
|
||||
<DCCReference Include="..\Modulos\Pedidos de cliente\Views\fs11.dcp" />
|
||||
<DCCReference Include="..\Modulos\Pedidos de cliente\Views\JvAppFrmD11R.dcp" />
|
||||
<DCCReference Include="..\Modulos\Pedidos de cliente\Views\JvCtrlsD11R.dcp" />
|
||||
<DCCReference Include="..\Modulos\Pedidos de cliente\Views\rtl.dcp" />
|
||||
<DCCReference Include="..\Modulos\Pedidos de cliente\Views\vcl.dcp" />
|
||||
<DCCReference Include="..\Modulos\Pedidos de cliente\Views\vcldb.dcp" />
|
||||
<DCCReference Include="..\Modulos\Pedidos de cliente\Views\vcljpg.dcp" />
|
||||
<DCCReference Include="..\Modulos\Pedidos de cliente\Views\vclx.dcp" />
|
||||
<DCCReference Include="..\Servidor\Base.dcp" />
|
||||
<DCCReference Include="..\Servidor\cxLibraryD11.dcp" />
|
||||
<DCCReference Include="..\Servidor\cxTreeListD11.dcp" />
|
||||
<DCCReference Include="..\Servidor\dbrtl.dcp" />
|
||||
<DCCReference Include="..\Servidor\dxBarD11.dcp" />
|
||||
<DCCReference Include="..\Servidor\dxBarExtItemsD11.dcp" />
|
||||
<DCCReference Include="..\Servidor\dxComnD11.dcp" />
|
||||
<DCCReference Include="..\Servidor\dxGDIPlusD11.dcp" />
|
||||
<DCCReference Include="..\Servidor\dxLayoutControlD11.dcp" />
|
||||
<DCCReference Include="..\Servidor\dxPSCoreD11.dcp" />
|
||||
<DCCReference Include="..\Servidor\dxPScxCommonD11.dcp" />
|
||||
<DCCReference Include="..\Servidor\dxPScxExtCommonD11.dcp" />
|
||||
<DCCReference Include="..\Servidor\dxPScxGrid6LnkD11.dcp" />
|
||||
<DCCReference Include="..\Servidor\dxPScxPCProdD11.dcp" />
|
||||
<DCCReference Include="..\Servidor\dxPsPrVwAdvD11.dcp" />
|
||||
<DCCReference Include="..\Servidor\dxThemeD11.dcp" />
|
||||
<DCCReference Include="..\Servidor\frx11.dcp" />
|
||||
<DCCReference Include="..\Servidor\frxe11.dcp" />
|
||||
<DCCReference Include="..\Servidor\fs11.dcp" />
|
||||
<DCCReference Include="..\Servidor\JvAppFrmD11R.dcp" />
|
||||
<DCCReference Include="..\Servidor\JvCtrlsD11R.dcp" />
|
||||
<DCCReference Include="..\Servidor\rtl.dcp" />
|
||||
<DCCReference Include="..\Servidor\vcl.dcp" />
|
||||
<DCCReference Include="..\Servidor\vcldb.dcp" />
|
||||
<DCCReference Include="..\Servidor\vcljpg.dcp" />
|
||||
<DCCReference Include="..\Servidor\vclx.dcp" />
|
||||
<DCCReference Include="uDialogBase.pas">
|
||||
<Form>fDialogBase</Form>
|
||||
</DCCReference>
|
||||
|
||||
@ -14,6 +14,7 @@
|
||||
<Projects Include="..\Articulos\Views\Articulos_view.dproj" />
|
||||
<Projects Include="..\Contactos\Controller\Contactos_controller.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\Views\FacturasCliente_view.dproj" />
|
||||
<Projects Include="..\Facturas de proveedor\Views\FacturasProveedor_view.dproj" />
|
||||
@ -271,14 +272,23 @@
|
||||
<Target Name="FacturasCliente_data:Make">
|
||||
<MSBuild Projects="..\Facturas de cliente\Data\FacturasCliente_data.dproj" Targets="Make" />
|
||||
</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">
|
||||
<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 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 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>
|
||||
<Import Condition="Exists('$(MSBuildBinPath)\Borland.Group.Targets')" Project="$(MSBuildBinPath)\Borland.Group.Targets" />
|
||||
</Project>
|
||||
@ -845,8 +845,8 @@ begin
|
||||
|
||||
Result := EsModificable(AAlbaran);
|
||||
|
||||
if AAlbaran.TIPO = CTE_TIPO_ALBARAN then
|
||||
Result := Result and (AAlbaran.SITUACION = SITUACION_ALBARAN_PENDIENTE);
|
||||
// if AAlbaran.TIPO = CTE_TIPO_ALBARAN then
|
||||
// Result := Result and (AAlbaran.SITUACION = SITUACION_ALBARAN_PENDIENTE);
|
||||
end;
|
||||
|
||||
function TAlbaranesClienteController.EsModificable(AAlbaran: IBizAlbaranCliente): Boolean;
|
||||
|
||||
@ -418,6 +418,15 @@ inherited DataModuleAlbaranesCliente: TDataModuleAlbaranesCliente
|
||||
item
|
||||
Name = 'ID_PEDIDO'
|
||||
DataType = datInteger
|
||||
end
|
||||
item
|
||||
Name = 'ID_ARTICULO_REEMPLAZADO'
|
||||
DataType = datInteger
|
||||
end
|
||||
item
|
||||
Name = 'REFERENCIA_ART_REEMPLAZADO'
|
||||
DataType = datString
|
||||
Size = 255
|
||||
end>
|
||||
Params = <>
|
||||
MasterMappingMode = mmWhere
|
||||
|
||||
@ -4,16 +4,16 @@ unit schAlbaranesClienteClient_Intf;
|
||||
interface
|
||||
|
||||
uses
|
||||
Classes, DB, SysUtils, uROClasses, uDAInterfaces, uDADataTable, FmtBCD, uROXMLIntf;
|
||||
Classes, DB, schBase_Intf, SysUtils, uROClasses, uDAInterfaces, uDADataTable, FmtBCD, uROXMLIntf;
|
||||
|
||||
const
|
||||
{ Data table rules ids
|
||||
Feel free to change them to something more human readable
|
||||
but make sure they are unique in the context of your application }
|
||||
RID_ListaAnosAlbaranes = '{AB352FBE-C6B0-4DD9-B4EC-63B5ED2BDA4F}';
|
||||
RID_AlbaranesCliente = '{ACF9F8E3-2CA1-4DFC-B159-724A16045D2A}';
|
||||
RID_AlbaranesCliente_Detalle_Color = '{772D8D26-472D-4DE1-8249-9863E88FAB87}';
|
||||
RID_AlbaranesCliente_Detalles = '{F8AEC877-9B48-43FE-9EB1-2E9A54FD41E8}';
|
||||
RID_ListaAnosAlbaranes = '{9102D7FE-372C-4DC6-8038-7A14AD97D609}';
|
||||
RID_AlbaranesCliente = '{BDF0B163-BCA7-4DE9-956B-59AA30A2762F}';
|
||||
RID_AlbaranesCliente_Detalle_Color = '{10B4CFAA-2E18-41B5-9215-226529BDAC18}';
|
||||
RID_AlbaranesCliente_Detalles = '{17E07972-DA24-43A3-8756-3741A0B5B323}';
|
||||
|
||||
{ Data table names }
|
||||
nme_ListaAnosAlbaranes = 'ListaAnosAlbaranes';
|
||||
@ -166,6 +166,8 @@ const
|
||||
fld_AlbaranesCliente_DetallesREFERENCIA = 'REFERENCIA';
|
||||
fld_AlbaranesCliente_DetallesREFERENCIA_PROVEEDOR = 'REFERENCIA_PROVEEDOR';
|
||||
fld_AlbaranesCliente_DetallesID_PEDIDO = 'ID_PEDIDO';
|
||||
fld_AlbaranesCliente_DetallesID_ARTICULO_REEMPLAZADO = 'ID_ARTICULO_REEMPLAZADO';
|
||||
fld_AlbaranesCliente_DetallesREFERENCIA_ART_REEMPLAZADO = 'REFERENCIA_ART_REEMPLAZADO';
|
||||
|
||||
{ AlbaranesCliente_Detalles field indexes }
|
||||
idx_AlbaranesCliente_DetallesID = 0;
|
||||
@ -184,11 +186,13 @@ const
|
||||
idx_AlbaranesCliente_DetallesREFERENCIA = 13;
|
||||
idx_AlbaranesCliente_DetallesREFERENCIA_PROVEEDOR = 14;
|
||||
idx_AlbaranesCliente_DetallesID_PEDIDO = 15;
|
||||
idx_AlbaranesCliente_DetallesID_ARTICULO_REEMPLAZADO = 16;
|
||||
idx_AlbaranesCliente_DetallesREFERENCIA_ART_REEMPLAZADO = 17;
|
||||
|
||||
type
|
||||
{ IListaAnosAlbaranes }
|
||||
IListaAnosAlbaranes = interface(IDAStronglyTypedDataTable)
|
||||
['{6F87DB01-2294-4331-8C36-A0C754159240}']
|
||||
['{4074F8EC-F9B8-4A4B-BB81-CEF7D2F6365B}']
|
||||
{ Property getters and setters }
|
||||
function GetANOValue: String;
|
||||
procedure SetANOValue(const aValue: String);
|
||||
@ -202,7 +206,7 @@ type
|
||||
end;
|
||||
|
||||
{ TListaAnosAlbaranesDataTableRules }
|
||||
TListaAnosAlbaranesDataTableRules = class(TDADataTableRules, IListaAnosAlbaranes)
|
||||
TListaAnosAlbaranesDataTableRules = class(TIntfObjectDADataTableRules, IListaAnosAlbaranes)
|
||||
private
|
||||
protected
|
||||
{ Property getters and setters }
|
||||
@ -223,7 +227,7 @@ type
|
||||
|
||||
{ IAlbaranesCliente }
|
||||
IAlbaranesCliente = interface(IDAStronglyTypedDataTable)
|
||||
['{E24D4F8F-A65A-46FC-B4FD-0862681FE993}']
|
||||
['{8F408E21-0246-4D94-9E77-5782B508C414}']
|
||||
{ Property getters and setters }
|
||||
function GetIDValue: Integer;
|
||||
procedure SetIDValue(const aValue: Integer);
|
||||
@ -487,7 +491,7 @@ type
|
||||
end;
|
||||
|
||||
{ TAlbaranesClienteDataTableRules }
|
||||
TAlbaranesClienteDataTableRules = class(TDADataTableRules, IAlbaranesCliente)
|
||||
TAlbaranesClienteDataTableRules = class(TIntfObjectDADataTableRules, IAlbaranesCliente)
|
||||
private
|
||||
f_OBSERVACIONES: IROStrings;
|
||||
f_INCIDENCIAS: IROStrings;
|
||||
@ -762,7 +766,7 @@ type
|
||||
|
||||
{ IAlbaranesCliente_Detalle_Color }
|
||||
IAlbaranesCliente_Detalle_Color = interface(IDAStronglyTypedDataTable)
|
||||
['{4258FF8D-5072-4AC3-9195-D681DBA05C11}']
|
||||
['{BF29A24D-5536-439A-8BEF-6745D246A516}']
|
||||
{ Property getters and setters }
|
||||
function GetIDValue: Integer;
|
||||
procedure SetIDValue(const aValue: Integer);
|
||||
@ -854,7 +858,7 @@ type
|
||||
end;
|
||||
|
||||
{ TAlbaranesCliente_Detalle_ColorDataTableRules }
|
||||
TAlbaranesCliente_Detalle_ColorDataTableRules = class(TDADataTableRules, IAlbaranesCliente_Detalle_Color)
|
||||
TAlbaranesCliente_Detalle_ColorDataTableRules = class(TIntfObjectDADataTableRules, IAlbaranesCliente_Detalle_Color)
|
||||
private
|
||||
protected
|
||||
{ Property getters and setters }
|
||||
@ -953,7 +957,7 @@ type
|
||||
|
||||
{ IAlbaranesCliente_Detalles }
|
||||
IAlbaranesCliente_Detalles = interface(IDAStronglyTypedDataTable)
|
||||
['{32CD43CD-5A7A-4E80-AE13-C75124E342D7}']
|
||||
['{714E0D3D-0C54-48D0-9ED5-9607BE59A663}']
|
||||
{ Property getters and setters }
|
||||
function GetIDValue: Integer;
|
||||
procedure SetIDValue(const aValue: Integer);
|
||||
@ -1019,6 +1023,14 @@ type
|
||||
procedure SetID_PEDIDOValue(const aValue: Integer);
|
||||
function GetID_PEDIDOIsNull: Boolean;
|
||||
procedure SetID_PEDIDOIsNull(const aValue: Boolean);
|
||||
function GetID_ARTICULO_REEMPLAZADOValue: Integer;
|
||||
procedure SetID_ARTICULO_REEMPLAZADOValue(const aValue: Integer);
|
||||
function GetID_ARTICULO_REEMPLAZADOIsNull: Boolean;
|
||||
procedure SetID_ARTICULO_REEMPLAZADOIsNull(const aValue: Boolean);
|
||||
function GetREFERENCIA_ART_REEMPLAZADOValue: String;
|
||||
procedure SetREFERENCIA_ART_REEMPLAZADOValue(const aValue: String);
|
||||
function GetREFERENCIA_ART_REEMPLAZADOIsNull: Boolean;
|
||||
procedure SetREFERENCIA_ART_REEMPLAZADOIsNull(const aValue: Boolean);
|
||||
|
||||
|
||||
{ Properties }
|
||||
@ -1054,10 +1066,14 @@ type
|
||||
property REFERENCIA_PROVEEDORIsNull: Boolean read GetREFERENCIA_PROVEEDORIsNull write SetREFERENCIA_PROVEEDORIsNull;
|
||||
property ID_PEDIDO: Integer read GetID_PEDIDOValue write SetID_PEDIDOValue;
|
||||
property ID_PEDIDOIsNull: Boolean read GetID_PEDIDOIsNull write SetID_PEDIDOIsNull;
|
||||
property ID_ARTICULO_REEMPLAZADO: Integer read GetID_ARTICULO_REEMPLAZADOValue write SetID_ARTICULO_REEMPLAZADOValue;
|
||||
property ID_ARTICULO_REEMPLAZADOIsNull: Boolean read GetID_ARTICULO_REEMPLAZADOIsNull write SetID_ARTICULO_REEMPLAZADOIsNull;
|
||||
property REFERENCIA_ART_REEMPLAZADO: String read GetREFERENCIA_ART_REEMPLAZADOValue write SetREFERENCIA_ART_REEMPLAZADOValue;
|
||||
property REFERENCIA_ART_REEMPLAZADOIsNull: Boolean read GetREFERENCIA_ART_REEMPLAZADOIsNull write SetREFERENCIA_ART_REEMPLAZADOIsNull;
|
||||
end;
|
||||
|
||||
{ TAlbaranesCliente_DetallesDataTableRules }
|
||||
TAlbaranesCliente_DetallesDataTableRules = class(TDADataTableRules, IAlbaranesCliente_Detalles)
|
||||
TAlbaranesCliente_DetallesDataTableRules = class(TIntfObjectDADataTableRules, IAlbaranesCliente_Detalles)
|
||||
private
|
||||
protected
|
||||
{ Property getters and setters }
|
||||
@ -1125,6 +1141,14 @@ type
|
||||
procedure SetID_PEDIDOValue(const aValue: Integer); virtual;
|
||||
function GetID_PEDIDOIsNull: Boolean; virtual;
|
||||
procedure SetID_PEDIDOIsNull(const aValue: Boolean); virtual;
|
||||
function GetID_ARTICULO_REEMPLAZADOValue: Integer; virtual;
|
||||
procedure SetID_ARTICULO_REEMPLAZADOValue(const aValue: Integer); virtual;
|
||||
function GetID_ARTICULO_REEMPLAZADOIsNull: Boolean; virtual;
|
||||
procedure SetID_ARTICULO_REEMPLAZADOIsNull(const aValue: Boolean); virtual;
|
||||
function GetREFERENCIA_ART_REEMPLAZADOValue: String; virtual;
|
||||
procedure SetREFERENCIA_ART_REEMPLAZADOValue(const aValue: String); virtual;
|
||||
function GetREFERENCIA_ART_REEMPLAZADOIsNull: Boolean; virtual;
|
||||
procedure SetREFERENCIA_ART_REEMPLAZADOIsNull(const aValue: Boolean); virtual;
|
||||
|
||||
{ Properties }
|
||||
property ID: Integer read GetIDValue write SetIDValue;
|
||||
@ -1159,6 +1183,10 @@ type
|
||||
property REFERENCIA_PROVEEDORIsNull: Boolean read GetREFERENCIA_PROVEEDORIsNull write SetREFERENCIA_PROVEEDORIsNull;
|
||||
property ID_PEDIDO: Integer read GetID_PEDIDOValue write SetID_PEDIDOValue;
|
||||
property ID_PEDIDOIsNull: Boolean read GetID_PEDIDOIsNull write SetID_PEDIDOIsNull;
|
||||
property ID_ARTICULO_REEMPLAZADO: Integer read GetID_ARTICULO_REEMPLAZADOValue write SetID_ARTICULO_REEMPLAZADOValue;
|
||||
property ID_ARTICULO_REEMPLAZADOIsNull: Boolean read GetID_ARTICULO_REEMPLAZADOIsNull write SetID_ARTICULO_REEMPLAZADOIsNull;
|
||||
property REFERENCIA_ART_REEMPLAZADO: String read GetREFERENCIA_ART_REEMPLAZADOValue write SetREFERENCIA_ART_REEMPLAZADOValue;
|
||||
property REFERENCIA_ART_REEMPLAZADOIsNull: Boolean read GetREFERENCIA_ART_REEMPLAZADOIsNull write SetREFERENCIA_ART_REEMPLAZADOIsNull;
|
||||
|
||||
public
|
||||
constructor Create(aDataTable: TDADataTable); override;
|
||||
@ -2783,6 +2811,48 @@ begin
|
||||
DataTable.Fields[idx_AlbaranesCliente_DetallesID_PEDIDO].AsVariant := Null;
|
||||
end;
|
||||
|
||||
function TAlbaranesCliente_DetallesDataTableRules.GetID_ARTICULO_REEMPLAZADOValue: Integer;
|
||||
begin
|
||||
result := DataTable.Fields[idx_AlbaranesCliente_DetallesID_ARTICULO_REEMPLAZADO].AsInteger;
|
||||
end;
|
||||
|
||||
procedure TAlbaranesCliente_DetallesDataTableRules.SetID_ARTICULO_REEMPLAZADOValue(const aValue: Integer);
|
||||
begin
|
||||
DataTable.Fields[idx_AlbaranesCliente_DetallesID_ARTICULO_REEMPLAZADO].AsInteger := aValue;
|
||||
end;
|
||||
|
||||
function TAlbaranesCliente_DetallesDataTableRules.GetID_ARTICULO_REEMPLAZADOIsNull: boolean;
|
||||
begin
|
||||
result := DataTable.Fields[idx_AlbaranesCliente_DetallesID_ARTICULO_REEMPLAZADO].IsNull;
|
||||
end;
|
||||
|
||||
procedure TAlbaranesCliente_DetallesDataTableRules.SetID_ARTICULO_REEMPLAZADOIsNull(const aValue: Boolean);
|
||||
begin
|
||||
if aValue then
|
||||
DataTable.Fields[idx_AlbaranesCliente_DetallesID_ARTICULO_REEMPLAZADO].AsVariant := Null;
|
||||
end;
|
||||
|
||||
function TAlbaranesCliente_DetallesDataTableRules.GetREFERENCIA_ART_REEMPLAZADOValue: String;
|
||||
begin
|
||||
result := DataTable.Fields[idx_AlbaranesCliente_DetallesREFERENCIA_ART_REEMPLAZADO].AsString;
|
||||
end;
|
||||
|
||||
procedure TAlbaranesCliente_DetallesDataTableRules.SetREFERENCIA_ART_REEMPLAZADOValue(const aValue: String);
|
||||
begin
|
||||
DataTable.Fields[idx_AlbaranesCliente_DetallesREFERENCIA_ART_REEMPLAZADO].AsString := aValue;
|
||||
end;
|
||||
|
||||
function TAlbaranesCliente_DetallesDataTableRules.GetREFERENCIA_ART_REEMPLAZADOIsNull: boolean;
|
||||
begin
|
||||
result := DataTable.Fields[idx_AlbaranesCliente_DetallesREFERENCIA_ART_REEMPLAZADO].IsNull;
|
||||
end;
|
||||
|
||||
procedure TAlbaranesCliente_DetallesDataTableRules.SetREFERENCIA_ART_REEMPLAZADOIsNull(const aValue: Boolean);
|
||||
begin
|
||||
if aValue then
|
||||
DataTable.Fields[idx_AlbaranesCliente_DetallesREFERENCIA_ART_REEMPLAZADO].AsVariant := Null;
|
||||
end;
|
||||
|
||||
|
||||
initialization
|
||||
RegisterDataTableRules(RID_ListaAnosAlbaranes, TListaAnosAlbaranesDataTableRules);
|
||||
|
||||
@ -10,15 +10,15 @@ const
|
||||
{ Delta rules ids
|
||||
Feel free to change them to something more human readable
|
||||
but make sure they are unique in the context of your application }
|
||||
RID_ListaAnosAlbaranesDelta = '{495C919E-CCB7-42E5-8E0F-BD280FAFEFBE}';
|
||||
RID_AlbaranesClienteDelta = '{1047657F-BC07-46AB-A3D7-856FE3DE903B}';
|
||||
RID_AlbaranesCliente_Detalle_ColorDelta = '{FE909A38-591A-423D-8369-3CF1B8BE6539}';
|
||||
RID_AlbaranesCliente_DetallesDelta = '{43759912-619B-4D1C-9AC0-55A2F2A2929B}';
|
||||
RID_ListaAnosAlbaranesDelta = '{E60F6A6A-6A06-498E-9186-D1821EFC148F}';
|
||||
RID_AlbaranesClienteDelta = '{1514B5F5-9399-48AD-B5ED-9BF846EA26B0}';
|
||||
RID_AlbaranesCliente_Detalle_ColorDelta = '{85549AA0-E0AC-4331-B2E4-58FB9160FA7E}';
|
||||
RID_AlbaranesCliente_DetallesDelta = '{D3224DBF-E43C-4910-B541-4653E6BA8F73}';
|
||||
|
||||
type
|
||||
{ IListaAnosAlbaranesDelta }
|
||||
IListaAnosAlbaranesDelta = interface(IListaAnosAlbaranes)
|
||||
['{495C919E-CCB7-42E5-8E0F-BD280FAFEFBE}']
|
||||
['{E60F6A6A-6A06-498E-9186-D1821EFC148F}']
|
||||
{ Property getters and setters }
|
||||
function GetOldANOValue : String;
|
||||
|
||||
@ -52,7 +52,7 @@ type
|
||||
|
||||
{ IAlbaranesClienteDelta }
|
||||
IAlbaranesClienteDelta = interface(IAlbaranesCliente)
|
||||
['{1047657F-BC07-46AB-A3D7-856FE3DE903B}']
|
||||
['{1514B5F5-9399-48AD-B5ED-9BF846EA26B0}']
|
||||
{ Property getters and setters }
|
||||
function GetOldIDValue : Integer;
|
||||
function GetOldID_EMPRESAValue : Integer;
|
||||
@ -592,7 +592,7 @@ type
|
||||
|
||||
{ IAlbaranesCliente_Detalle_ColorDelta }
|
||||
IAlbaranesCliente_Detalle_ColorDelta = interface(IAlbaranesCliente_Detalle_Color)
|
||||
['{FE909A38-591A-423D-8369-3CF1B8BE6539}']
|
||||
['{85549AA0-E0AC-4331-B2E4-58FB9160FA7E}']
|
||||
{ Property getters and setters }
|
||||
function GetOldIDValue : Integer;
|
||||
function GetOldID_DETALLEValue : Integer;
|
||||
@ -782,7 +782,7 @@ type
|
||||
|
||||
{ IAlbaranesCliente_DetallesDelta }
|
||||
IAlbaranesCliente_DetallesDelta = interface(IAlbaranesCliente_Detalles)
|
||||
['{43759912-619B-4D1C-9AC0-55A2F2A2929B}']
|
||||
['{D3224DBF-E43C-4910-B541-4653E6BA8F73}']
|
||||
{ Property getters and setters }
|
||||
function GetOldIDValue : Integer;
|
||||
function GetOldID_ALBARANValue : Integer;
|
||||
@ -800,6 +800,8 @@ type
|
||||
function GetOldREFERENCIAValue : String;
|
||||
function GetOldREFERENCIA_PROVEEDORValue : String;
|
||||
function GetOldID_PEDIDOValue : Integer;
|
||||
function GetOldID_ARTICULO_REEMPLAZADOValue : Integer;
|
||||
function GetOldREFERENCIA_ART_REEMPLAZADOValue : String;
|
||||
|
||||
{ Properties }
|
||||
property OldID : Integer read GetOldIDValue;
|
||||
@ -818,6 +820,8 @@ type
|
||||
property OldREFERENCIA : String read GetOldREFERENCIAValue;
|
||||
property OldREFERENCIA_PROVEEDOR : String read GetOldREFERENCIA_PROVEEDORValue;
|
||||
property OldID_PEDIDO : Integer read GetOldID_PEDIDOValue;
|
||||
property OldID_ARTICULO_REEMPLAZADO : Integer read GetOldID_ARTICULO_REEMPLAZADOValue;
|
||||
property OldREFERENCIA_ART_REEMPLAZADO : String read GetOldREFERENCIA_ART_REEMPLAZADOValue;
|
||||
end;
|
||||
|
||||
{ TAlbaranesCliente_DetallesBusinessProcessorRules }
|
||||
@ -921,6 +925,18 @@ type
|
||||
function GetOldID_PEDIDOIsNull: Boolean; virtual;
|
||||
procedure SetID_PEDIDOValue(const aValue: Integer); virtual;
|
||||
procedure SetID_PEDIDOIsNull(const aValue: Boolean); virtual;
|
||||
function GetID_ARTICULO_REEMPLAZADOValue: Integer; virtual;
|
||||
function GetID_ARTICULO_REEMPLAZADOIsNull: Boolean; virtual;
|
||||
function GetOldID_ARTICULO_REEMPLAZADOValue: Integer; virtual;
|
||||
function GetOldID_ARTICULO_REEMPLAZADOIsNull: Boolean; virtual;
|
||||
procedure SetID_ARTICULO_REEMPLAZADOValue(const aValue: Integer); virtual;
|
||||
procedure SetID_ARTICULO_REEMPLAZADOIsNull(const aValue: Boolean); virtual;
|
||||
function GetREFERENCIA_ART_REEMPLAZADOValue: String; virtual;
|
||||
function GetREFERENCIA_ART_REEMPLAZADOIsNull: Boolean; virtual;
|
||||
function GetOldREFERENCIA_ART_REEMPLAZADOValue: String; virtual;
|
||||
function GetOldREFERENCIA_ART_REEMPLAZADOIsNull: Boolean; virtual;
|
||||
procedure SetREFERENCIA_ART_REEMPLAZADOValue(const aValue: String); virtual;
|
||||
procedure SetREFERENCIA_ART_REEMPLAZADOIsNull(const aValue: Boolean); virtual;
|
||||
|
||||
{ Properties }
|
||||
property ID : Integer read GetIDValue write SetIDValue;
|
||||
@ -987,6 +1003,14 @@ type
|
||||
property ID_PEDIDOIsNull : Boolean read GetID_PEDIDOIsNull write SetID_PEDIDOIsNull;
|
||||
property OldID_PEDIDO : Integer read GetOldID_PEDIDOValue;
|
||||
property OldID_PEDIDOIsNull : Boolean read GetOldID_PEDIDOIsNull;
|
||||
property ID_ARTICULO_REEMPLAZADO : Integer read GetID_ARTICULO_REEMPLAZADOValue write SetID_ARTICULO_REEMPLAZADOValue;
|
||||
property ID_ARTICULO_REEMPLAZADOIsNull : Boolean read GetID_ARTICULO_REEMPLAZADOIsNull write SetID_ARTICULO_REEMPLAZADOIsNull;
|
||||
property OldID_ARTICULO_REEMPLAZADO : Integer read GetOldID_ARTICULO_REEMPLAZADOValue;
|
||||
property OldID_ARTICULO_REEMPLAZADOIsNull : Boolean read GetOldID_ARTICULO_REEMPLAZADOIsNull;
|
||||
property REFERENCIA_ART_REEMPLAZADO : String read GetREFERENCIA_ART_REEMPLAZADOValue write SetREFERENCIA_ART_REEMPLAZADOValue;
|
||||
property REFERENCIA_ART_REEMPLAZADOIsNull : Boolean read GetREFERENCIA_ART_REEMPLAZADOIsNull write SetREFERENCIA_ART_REEMPLAZADOIsNull;
|
||||
property OldREFERENCIA_ART_REEMPLAZADO : String read GetOldREFERENCIA_ART_REEMPLAZADOValue;
|
||||
property OldREFERENCIA_ART_REEMPLAZADOIsNull : Boolean read GetOldREFERENCIA_ART_REEMPLAZADOIsNull;
|
||||
|
||||
public
|
||||
constructor Create(aBusinessProcessor: TDABusinessProcessor); override;
|
||||
@ -3650,6 +3674,76 @@ begin
|
||||
BusinessProcessor.CurrentChange.NewValueByName[fld_AlbaranesCliente_DetallesID_PEDIDO] := Null;
|
||||
end;
|
||||
|
||||
function TAlbaranesCliente_DetallesBusinessProcessorRules.GetID_ARTICULO_REEMPLAZADOValue: Integer;
|
||||
begin
|
||||
result := BusinessProcessor.CurrentChange.NewValueByName[fld_AlbaranesCliente_DetallesID_ARTICULO_REEMPLAZADO];
|
||||
end;
|
||||
|
||||
function TAlbaranesCliente_DetallesBusinessProcessorRules.GetID_ARTICULO_REEMPLAZADOIsNull: Boolean;
|
||||
var v: variant;
|
||||
begin
|
||||
v := BusinessProcessor.CurrentChange.NewValueByName[fld_AlbaranesCliente_DetallesID_ARTICULO_REEMPLAZADO];
|
||||
result := VarIsNull(v) or VarIsClear(v);
|
||||
end;
|
||||
|
||||
function TAlbaranesCliente_DetallesBusinessProcessorRules.GetOldID_ARTICULO_REEMPLAZADOValue: Integer;
|
||||
begin
|
||||
result := BusinessProcessor.CurrentChange.OldValueByName[fld_AlbaranesCliente_DetallesID_ARTICULO_REEMPLAZADO];
|
||||
end;
|
||||
|
||||
function TAlbaranesCliente_DetallesBusinessProcessorRules.GetOldID_ARTICULO_REEMPLAZADOIsNull: Boolean;
|
||||
var v: variant;
|
||||
begin
|
||||
v := BusinessProcessor.CurrentChange.OldValueByName[fld_AlbaranesCliente_DetallesID_ARTICULO_REEMPLAZADO];
|
||||
result := VarIsNull(v) or VarIsClear(v);
|
||||
end;
|
||||
|
||||
procedure TAlbaranesCliente_DetallesBusinessProcessorRules.SetID_ARTICULO_REEMPLAZADOValue(const aValue: Integer);
|
||||
begin
|
||||
BusinessProcessor.CurrentChange.NewValueByName[fld_AlbaranesCliente_DetallesID_ARTICULO_REEMPLAZADO] := aValue;
|
||||
end;
|
||||
|
||||
procedure TAlbaranesCliente_DetallesBusinessProcessorRules.SetID_ARTICULO_REEMPLAZADOIsNull(const aValue: Boolean);
|
||||
begin
|
||||
if aValue then
|
||||
BusinessProcessor.CurrentChange.NewValueByName[fld_AlbaranesCliente_DetallesID_ARTICULO_REEMPLAZADO] := Null;
|
||||
end;
|
||||
|
||||
function TAlbaranesCliente_DetallesBusinessProcessorRules.GetREFERENCIA_ART_REEMPLAZADOValue: String;
|
||||
begin
|
||||
result := BusinessProcessor.CurrentChange.NewValueByName[fld_AlbaranesCliente_DetallesREFERENCIA_ART_REEMPLAZADO];
|
||||
end;
|
||||
|
||||
function TAlbaranesCliente_DetallesBusinessProcessorRules.GetREFERENCIA_ART_REEMPLAZADOIsNull: Boolean;
|
||||
var v: variant;
|
||||
begin
|
||||
v := BusinessProcessor.CurrentChange.NewValueByName[fld_AlbaranesCliente_DetallesREFERENCIA_ART_REEMPLAZADO];
|
||||
result := VarIsNull(v) or VarIsClear(v);
|
||||
end;
|
||||
|
||||
function TAlbaranesCliente_DetallesBusinessProcessorRules.GetOldREFERENCIA_ART_REEMPLAZADOValue: String;
|
||||
begin
|
||||
result := BusinessProcessor.CurrentChange.OldValueByName[fld_AlbaranesCliente_DetallesREFERENCIA_ART_REEMPLAZADO];
|
||||
end;
|
||||
|
||||
function TAlbaranesCliente_DetallesBusinessProcessorRules.GetOldREFERENCIA_ART_REEMPLAZADOIsNull: Boolean;
|
||||
var v: variant;
|
||||
begin
|
||||
v := BusinessProcessor.CurrentChange.OldValueByName[fld_AlbaranesCliente_DetallesREFERENCIA_ART_REEMPLAZADO];
|
||||
result := VarIsNull(v) or VarIsClear(v);
|
||||
end;
|
||||
|
||||
procedure TAlbaranesCliente_DetallesBusinessProcessorRules.SetREFERENCIA_ART_REEMPLAZADOValue(const aValue: String);
|
||||
begin
|
||||
BusinessProcessor.CurrentChange.NewValueByName[fld_AlbaranesCliente_DetallesREFERENCIA_ART_REEMPLAZADO] := aValue;
|
||||
end;
|
||||
|
||||
procedure TAlbaranesCliente_DetallesBusinessProcessorRules.SetREFERENCIA_ART_REEMPLAZADOIsNull(const aValue: Boolean);
|
||||
begin
|
||||
if aValue then
|
||||
BusinessProcessor.CurrentChange.NewValueByName[fld_AlbaranesCliente_DetallesREFERENCIA_ART_REEMPLAZADO] := Null;
|
||||
end;
|
||||
|
||||
|
||||
initialization
|
||||
RegisterBusinessProcessorRules(RID_ListaAnosAlbaranesDelta, TListaAnosAlbaranesBusinessProcessorRules);
|
||||
|
||||
@ -627,9 +627,13 @@ object srvAlbaranesCliente: TsrvAlbaranesCliente
|
||||
'S_CLIENTE_DETALLES.ID_ARTICULO, ARTICULOS.REFERENCIA,'#10' '#39#39' as ' +
|
||||
'REFERENCIA_PROVEEDOR, /*Es necesario para que no pete detalles p' +
|
||||
'orque tanto en la rama de cliente como de proveedor es comun*/'#10' ' +
|
||||
' ALBARANES_CLIENTE_DETALLES.ID_PEDIDO'#10#10#10'FROM ALBARANES_CLIENTE' +
|
||||
'_DETALLES'#10'LEFT JOIN ARTICULOS ON ALBARANES_CLIENTE_DETALLES.ID_A' +
|
||||
'RTICULO = ARTICULOS.ID'#10'where {where}'#10'ORDER BY POSICION;'#10#10
|
||||
' ALBARANES_CLIENTE_DETALLES.ID_PEDIDO,'#10' ALBARANES_CLIENTE_D' +
|
||||
'ETALLES.ID_ARTICULO_REEMPLAZADO, ARTICULOS2.REFERENCIA AS REFERE' +
|
||||
'NCIA_ART_REEMPLAZADO'#10#10#10'FROM ALBARANES_CLIENTE_DETALLES'#10'LEFT JOIN' +
|
||||
' ARTICULOS ON ALBARANES_CLIENTE_DETALLES.ID_ARTICULO = ARTICULOS' +
|
||||
'.ID'#10'LEFT JOIN ARTICULOS ARTICULOS2 ON ALBARANES_CLIENTE_DETALLES' +
|
||||
'.ID_ARTICULO_REEMPLAZADO = ARTICULOS2.ID'#10'where {where}'#10'ORDER BY ' +
|
||||
'POSICION;'#10#10
|
||||
StatementType = stSQL
|
||||
ColumnMappings = <
|
||||
item
|
||||
@ -695,6 +699,14 @@ object srvAlbaranesCliente: TsrvAlbaranesCliente
|
||||
item
|
||||
DatasetField = 'UNIDAD_MEDIDA'
|
||||
TableField = 'UNIDAD_MEDIDA'
|
||||
end
|
||||
item
|
||||
DatasetField = 'ID_ARTICULO_REEMPLAZADO'
|
||||
TableField = 'ID_ARTICULO_REEMPLAZADO'
|
||||
end
|
||||
item
|
||||
DatasetField = 'REFERENCIA_ART_REEMPLAZADO'
|
||||
TableField = 'REFERENCIA_ART_REEMPLAZADO'
|
||||
end>
|
||||
end>
|
||||
Name = 'AlbaranesCliente_Detalles'
|
||||
@ -782,6 +794,15 @@ object srvAlbaranesCliente: TsrvAlbaranesCliente
|
||||
item
|
||||
Name = 'ID_PEDIDO'
|
||||
DataType = datInteger
|
||||
end
|
||||
item
|
||||
Name = 'ID_ARTICULO_REEMPLAZADO'
|
||||
DataType = datInteger
|
||||
end
|
||||
item
|
||||
Name = 'REFERENCIA_ART_REEMPLAZADO'
|
||||
DataType = datString
|
||||
Size = 255
|
||||
end>
|
||||
end>
|
||||
JoinDataTables = <>
|
||||
@ -1276,60 +1297,81 @@ object srvAlbaranesCliente: TsrvAlbaranesCliente
|
||||
Params = <
|
||||
item
|
||||
Name = 'ID'
|
||||
DataType = datAutoInc
|
||||
DataType = datLargeInt
|
||||
GeneratorName = 'GEN_ALBARANES_CLI_DETALLES_ID'
|
||||
Value = ''
|
||||
end
|
||||
item
|
||||
Name = 'ID_ALBARAN'
|
||||
DataType = datInteger
|
||||
Value = ''
|
||||
end
|
||||
item
|
||||
Name = 'POSICION'
|
||||
DataType = datInteger
|
||||
Value = ''
|
||||
end
|
||||
item
|
||||
Name = 'TIPO_DETALLE'
|
||||
DataType = datString
|
||||
Size = 25
|
||||
Value = ''
|
||||
end
|
||||
item
|
||||
Name = 'CONCEPTO'
|
||||
DataType = datString
|
||||
Size = 2000
|
||||
Value = ''
|
||||
end
|
||||
item
|
||||
Name = 'CANTIDAD'
|
||||
DataType = datDecimal
|
||||
Value = ''
|
||||
end
|
||||
item
|
||||
Name = 'UNIDAD_MEDIDA'
|
||||
DataType = datString
|
||||
Size = 255
|
||||
Value = ''
|
||||
end
|
||||
item
|
||||
Name = 'IMPORTE_UNIDAD'
|
||||
DataType = datDecimal
|
||||
Value = ''
|
||||
end
|
||||
item
|
||||
Name = 'DESCUENTO'
|
||||
DataType = datCurrency
|
||||
Value = ''
|
||||
end
|
||||
item
|
||||
Name = 'IMPORTE_PORTE'
|
||||
DataType = datDecimal
|
||||
Value = ''
|
||||
end
|
||||
item
|
||||
Name = 'IMPORTE_TOTAL'
|
||||
DataType = datDecimal
|
||||
Value = ''
|
||||
end
|
||||
item
|
||||
Name = 'VISIBLE'
|
||||
DataType = datSmallInt
|
||||
Value = ''
|
||||
end
|
||||
item
|
||||
Name = 'ID_ARTICULO'
|
||||
DataType = datInteger
|
||||
Value = ''
|
||||
end
|
||||
item
|
||||
Name = 'ID_PEDIDO'
|
||||
DataType = datInteger
|
||||
Value = ''
|
||||
end
|
||||
item
|
||||
Name = 'ID_ARTICULO_REEMPLAZADO'
|
||||
DataType = datInteger
|
||||
Value = ''
|
||||
end>
|
||||
Statements = <
|
||||
@ -1341,10 +1383,11 @@ object srvAlbaranesCliente: TsrvAlbaranesCliente
|
||||
'INSERT'#10' INTO ALBARANES_CLIENTE_DETALLES'#10' (ID, ID_ALBARAN, PO' +
|
||||
'SICION, TIPO_DETALLE, CONCEPTO, CANTIDAD, UNIDAD_MEDIDA,'#10' IM' +
|
||||
'PORTE_UNIDAD, DESCUENTO, IMPORTE_PORTE, IMPORTE_TOTAL, '#10' VIS' +
|
||||
'IBLE, ID_ARTICULO, ID_PEDIDO)'#10' VALUES'#10' (:ID, :ID_ALBARAN, :P' +
|
||||
'OSICION, :TIPO_DETALLE, :CONCEPTO, :CANTIDAD, :UNIDAD_MEDIDA,'#10' ' +
|
||||
' :IMPORTE_UNIDAD, :DESCUENTO, :IMPORTE_PORTE, :IMPORTE_TOTAL, ' +
|
||||
#10' :VISIBLE, :ID_ARTICULO, :ID_PEDIDO)'#10
|
||||
'IBLE, ID_ARTICULO, ID_PEDIDO, ID_ARTICULO_REEMPLAZADO)'#10' VALUES'#10 +
|
||||
' (:ID, :ID_ALBARAN, :POSICION, :TIPO_DETALLE, :CONCEPTO, :CAN' +
|
||||
'TIDAD, :UNIDAD_MEDIDA,'#10' :IMPORTE_UNIDAD, :DESCUENTO, :IMPORT' +
|
||||
'E_PORTE, :IMPORTE_TOTAL, '#10' :VISIBLE, :ID_ARTICULO, :ID_PEDID' +
|
||||
'O, :ID_ARTICULO_REEMPLAZADO)'#10
|
||||
StatementType = stSQL
|
||||
ColumnMappings = <>
|
||||
end>
|
||||
@ -1374,58 +1417,80 @@ object srvAlbaranesCliente: TsrvAlbaranesCliente
|
||||
Params = <
|
||||
item
|
||||
Name = 'ID'
|
||||
DataType = datInteger
|
||||
Value = ''
|
||||
end
|
||||
item
|
||||
Name = 'ID_ALBARAN'
|
||||
DataType = datInteger
|
||||
Value = ''
|
||||
end
|
||||
item
|
||||
Name = 'POSICION'
|
||||
DataType = datInteger
|
||||
Value = ''
|
||||
end
|
||||
item
|
||||
Name = 'TIPO_DETALLE'
|
||||
DataType = datString
|
||||
Size = 25
|
||||
Value = ''
|
||||
end
|
||||
item
|
||||
Name = 'CONCEPTO'
|
||||
DataType = datString
|
||||
Size = 2000
|
||||
Value = ''
|
||||
end
|
||||
item
|
||||
Name = 'CANTIDAD'
|
||||
DataType = datDecimal
|
||||
Value = ''
|
||||
end
|
||||
item
|
||||
Name = 'UNIDAD_MEDIDA'
|
||||
DataType = datString
|
||||
Size = 255
|
||||
Value = ''
|
||||
end
|
||||
item
|
||||
Name = 'IMPORTE_UNIDAD'
|
||||
DataType = datDecimal
|
||||
Value = ''
|
||||
end
|
||||
item
|
||||
Name = 'DESCUENTO'
|
||||
DataType = datCurrency
|
||||
Value = ''
|
||||
end
|
||||
item
|
||||
Name = 'IMPORTE_PORTE'
|
||||
DataType = datDecimal
|
||||
Value = ''
|
||||
end
|
||||
item
|
||||
Name = 'IMPORTE_TOTAL'
|
||||
DataType = datDecimal
|
||||
Value = ''
|
||||
end
|
||||
item
|
||||
Name = 'VISIBLE'
|
||||
DataType = datSmallInt
|
||||
Value = ''
|
||||
end
|
||||
item
|
||||
Name = 'ID_ARTICULO'
|
||||
DataType = datInteger
|
||||
Value = ''
|
||||
end
|
||||
item
|
||||
Name = 'ID_PEDIDO'
|
||||
DataType = datInteger
|
||||
Value = ''
|
||||
end
|
||||
item
|
||||
Name = 'ID_ARTICULO_REEMPLAZADO'
|
||||
DataType = datInteger
|
||||
Value = ''
|
||||
end
|
||||
item
|
||||
@ -1445,7 +1510,8 @@ object srvAlbaranesCliente: TsrvAlbaranesCliente
|
||||
' = :IMPORTE_UNIDAD, '#10' DESCUENTO = :DESCUENTO, '#10' IMPORTE_PO' +
|
||||
'RTE = :IMPORTE_PORTE, '#10' IMPORTE_TOTAL = :IMPORTE_TOTAL, '#10' ' +
|
||||
'VISIBLE = :VISIBLE, '#10' ID_ARTICULO = :ID_ARTICULO,'#10' ID_PEDI' +
|
||||
'DO = :ID_PEDIDO'#10' WHERE'#10' (ID = :OLD_ID)'#10
|
||||
'DO = :ID_PEDIDO,'#10' ID_ARTICULO_REEMPLAZADO = :ID_ARTICULO_REEM' +
|
||||
'PLAZADO'#10' WHERE'#10' (ID = :OLD_ID)'#10
|
||||
StatementType = stSQL
|
||||
ColumnMappings = <>
|
||||
end>
|
||||
|
||||
@ -18,7 +18,6 @@ uses
|
||||
uDAScriptingProvider, uDAClasses,
|
||||
FactuGES_Intf, uDAInterfaces, uROClient;
|
||||
|
||||
|
||||
type
|
||||
{ TsrvAlbaranesCliente }
|
||||
TsrvAlbaranesCliente = class(TDataAbstractService, IsrvAlbaranesCliente)
|
||||
@ -54,8 +53,7 @@ begin
|
||||
end;
|
||||
|
||||
{ srvAlbaranesCliente }
|
||||
procedure TsrvAlbaranesCliente.DARemoteServiceBeforeGetDatasetData(
|
||||
const Dataset: IDADataset; const IncludeSchema: Boolean;
|
||||
procedure TsrvAlbaranesCliente.DARemoteServiceBeforeGetDatasetData(const Dataset: IDADataset; const IncludeSchema: Boolean;
|
||||
const MaxRecords: Integer);
|
||||
begin
|
||||
if DataSet.Name = nme_AlbaranesCliente then
|
||||
|
||||
@ -162,7 +162,8 @@ begin
|
||||
if (Sender as TAction).Enabled
|
||||
and (FAlbaranes.TIPO = CTE_TIPO_ALBARAN) then
|
||||
(Sender as TAction).Enabled := not (FAlbaranes.ID_FACTURA > 0)
|
||||
and (FAlbaranes.SITUACION = SITUACION_ALBARAN_PENDIENTE)
|
||||
//En noviseda no se tiene en cuenta las diferenctes situaciones que puede tener un albaran
|
||||
// and (FAlbaranes.SITUACION = SITUACION_ALBARAN_PENDIENTE)
|
||||
end;
|
||||
|
||||
procedure TfEditorAlbaranesCliente.actGenerarEtiquetasExecute(Sender: TObject);
|
||||
|
||||
@ -1,106 +1,113 @@
|
||||
inherited frViewDetallesAlbaranCliente: TfrViewDetallesAlbaranCliente
|
||||
Width = 701
|
||||
inherited ToolBar1: TToolBar
|
||||
Height = 122
|
||||
ExplicitHeight = 122
|
||||
inherited ToolButton13: TToolButton [3]
|
||||
Left = 0
|
||||
Width = 701
|
||||
Height = 78
|
||||
ExplicitHeight = 78
|
||||
inherited ToolButton14: TToolButton [3]
|
||||
Left = 220
|
||||
Top = 0
|
||||
Wrap = True
|
||||
ExplicitLeft = 0
|
||||
ExplicitLeft = 220
|
||||
ExplicitTop = 0
|
||||
ExplicitHeight = 27
|
||||
end
|
||||
inherited ToolButton4: TToolButton [4]
|
||||
Top = 27
|
||||
inherited FontName: TJvFontComboBox [4]
|
||||
Left = 285
|
||||
Top = 0
|
||||
ExplicitLeft = 285
|
||||
ExplicitTop = 0
|
||||
end
|
||||
inherited ToolButton7: TToolButton [5]
|
||||
Left = 56
|
||||
inherited FontSize: TEdit [5]
|
||||
Left = 430
|
||||
Top = 0
|
||||
Width = 154
|
||||
ExplicitLeft = 430
|
||||
ExplicitTop = 0
|
||||
ExplicitWidth = 154
|
||||
end
|
||||
inherited ToolButton13: TToolButton
|
||||
Top = 0
|
||||
ExplicitTop = 0
|
||||
end
|
||||
inherited ToolButton2: TToolButton [7]
|
||||
end
|
||||
inherited UpDown1: TUpDown [8]
|
||||
Left = 114
|
||||
Top = 27
|
||||
ExplicitLeft = 56
|
||||
ExplicitLeft = 114
|
||||
ExplicitTop = 27
|
||||
end
|
||||
inherited FontName: TJvFontComboBox [6]
|
||||
Left = 123
|
||||
inherited ToolButton6: TToolButton [9]
|
||||
Left = 131
|
||||
Top = 27
|
||||
ExplicitLeft = 123
|
||||
ExplicitLeft = 131
|
||||
ExplicitTop = 27
|
||||
end
|
||||
inherited ToolButton14: TToolButton [7]
|
||||
Left = 268
|
||||
inherited ToolButton7: TToolButton [10]
|
||||
Left = 197
|
||||
Top = 27
|
||||
ExplicitLeft = 268
|
||||
ExplicitLeft = 197
|
||||
ExplicitTop = 27
|
||||
end
|
||||
inherited ToolButton9: TToolButton [8]
|
||||
inherited ToolButton8: TToolButton [11]
|
||||
Left = 264
|
||||
Top = 27
|
||||
ExplicitLeft = 264
|
||||
ExplicitTop = 27
|
||||
end
|
||||
inherited ToolButton12: TToolButton [12]
|
||||
Top = 27
|
||||
ExplicitTop = 27
|
||||
end
|
||||
inherited ToolButton9: TToolButton [13]
|
||||
Left = 0
|
||||
Top = 49
|
||||
Top = 54
|
||||
ExplicitLeft = 0
|
||||
ExplicitTop = 49
|
||||
ExplicitTop = 54
|
||||
end
|
||||
inherited ToolButton12: TToolButton [9]
|
||||
Left = 0
|
||||
Top = 49
|
||||
Wrap = True
|
||||
ExplicitLeft = 0
|
||||
ExplicitTop = 49
|
||||
ExplicitHeight = 27
|
||||
inherited ToolButton10: TToolButton [14]
|
||||
end
|
||||
inherited FontSize: TEdit [10]
|
||||
Left = 0
|
||||
Top = 76
|
||||
Width = 122
|
||||
ExplicitLeft = 0
|
||||
ExplicitTop = 76
|
||||
ExplicitWidth = 122
|
||||
end
|
||||
inherited UpDown1: TUpDown [11]
|
||||
Left = 122
|
||||
Top = 76
|
||||
ExplicitLeft = 122
|
||||
ExplicitTop = 76
|
||||
end
|
||||
inherited ToolButton6: TToolButton [12]
|
||||
Left = 139
|
||||
Top = 76
|
||||
ExplicitLeft = 139
|
||||
ExplicitTop = 76
|
||||
end
|
||||
inherited ToolButton10: TToolButton [13]
|
||||
Left = 205
|
||||
Top = 76
|
||||
Wrap = True
|
||||
ExplicitLeft = 205
|
||||
ExplicitTop = 76
|
||||
end
|
||||
inherited ToolButton8: TToolButton [14]
|
||||
Left = 0
|
||||
Top = 98
|
||||
ExplicitLeft = 0
|
||||
ExplicitTop = 98
|
||||
end
|
||||
inherited ToolButton11: TToolButton
|
||||
Left = 83
|
||||
Top = 98
|
||||
ExplicitLeft = 83
|
||||
ExplicitTop = 98
|
||||
inherited ToolButton11: TToolButton [15]
|
||||
Left = 270
|
||||
Top = 54
|
||||
ExplicitLeft = 270
|
||||
ExplicitTop = 54
|
||||
end
|
||||
end
|
||||
inherited cxGrid: TcxGrid
|
||||
Top = 148
|
||||
Height = 156
|
||||
ExplicitTop = 126
|
||||
Top = 104
|
||||
Width = 701
|
||||
Height = 200
|
||||
ExplicitHeight = 178
|
||||
inherited cxGridView: TcxGridDBTableView
|
||||
inherited cxGridViewTIPO: TcxGridDBColumn
|
||||
Visible = False
|
||||
VisibleForCustomization = False
|
||||
end
|
||||
inherited cxGridViewREFERENCIA: TcxGridDBColumn
|
||||
Caption = 'Referencia pedida'
|
||||
end
|
||||
object cxGridViewIR_ARTICULO_REEMPLAZADO: TcxGridDBColumn [6]
|
||||
DataBinding.FieldName = 'ID_ARTICULO_REEMPLAZADO'
|
||||
Visible = False
|
||||
VisibleForCustomization = False
|
||||
end
|
||||
object cxGridViewREFERENCIA_ART_REEMPLAZADO: TcxGridDBColumn [7]
|
||||
Caption = 'Referencia reemplazada'
|
||||
DataBinding.FieldName = 'REFERENCIA_ART_REEMPLAZADO'
|
||||
PropertiesClassName = 'TcxButtonEditProperties'
|
||||
Properties.Buttons = <
|
||||
item
|
||||
Default = True
|
||||
Kind = bkEllipsis
|
||||
end>
|
||||
Properties.OnButtonClick = cxGridViewREFERENCIA_ART_REEMPLAZADOPropertiesButtonClick
|
||||
end
|
||||
inherited cxGridViewCANTIDAD: TcxGridDBColumn
|
||||
Properties.ReadOnly = True
|
||||
Visible = False
|
||||
VisibleForCustomization = False
|
||||
end
|
||||
object cxGridViewCANTIDAD2: TcxGridDBColumn [10]
|
||||
object cxGridViewCANTIDAD2: TcxGridDBColumn [12]
|
||||
Caption = 'Cantidad'
|
||||
DataBinding.FieldName = 'CANTIDAD'
|
||||
PropertiesClassName = 'TcxButtonEditProperties'
|
||||
@ -120,8 +127,9 @@ inherited frViewDetallesAlbaranCliente: TfrViewDetallesAlbaranCliente
|
||||
end
|
||||
end
|
||||
inherited TBXDock1: TSpTBXDock
|
||||
Top = 122
|
||||
ExplicitTop = 68
|
||||
Top = 78
|
||||
Width = 701
|
||||
ExplicitTop = 100
|
||||
inherited TBXToolbar1: TSpTBXToolbar
|
||||
DockPos = 0
|
||||
ExplicitWidth = 447
|
||||
|
||||
@ -31,7 +31,13 @@ type
|
||||
Aadirartculos1: TMenuItem;
|
||||
TBXItem18: TSpTBXItem;
|
||||
cxGridViewCANTIDAD2: TcxGridDBColumn;
|
||||
cxGridViewIR_ARTICULO_REEMPLAZADO: TcxGridDBColumn;
|
||||
cxGridViewREFERENCIA_ART_REEMPLAZADO: TcxGridDBColumn;
|
||||
procedure cxGridViewCANTIDAD2PropertiesButtonClick(Sender: TObject; AButtonIndex: Integer);
|
||||
procedure cxGridViewREFERENCIA_ART_REEMPLAZADOPropertiesButtonClick(Sender: TObject; AButtonIndex: Integer);
|
||||
procedure OnValidateReferencia_ART_REEMPLAZADO(Sender: TObject; var DisplayValue: Variant; var ErrorText: TCaption; var Error: Boolean);
|
||||
procedure CustomViewCreate(Sender: TObject);
|
||||
procedure CustomViewDestroy(Sender: TObject);
|
||||
protected
|
||||
FAlbaran: IBizAlbaranCliente;
|
||||
function GetAlbaran: IBizAlbaranCliente;
|
||||
@ -48,7 +54,7 @@ type
|
||||
implementation
|
||||
{$R *.dfm}
|
||||
|
||||
uses uDetallesAlbaranClienteController, uViewDetallesBase;
|
||||
uses uDetallesAlbaranClienteController, uViewDetallesBase, uDialogUtils;
|
||||
|
||||
{ TfrViewDetallesAlbaranProveedor }
|
||||
|
||||
@ -68,6 +74,18 @@ begin
|
||||
(Controller as IDetallesAlbaranClienteController).AnadirArticulos(Detalles, Albaran.Cliente, true, 0);
|
||||
end;
|
||||
|
||||
procedure TfrViewDetallesAlbaranCliente.CustomViewCreate(Sender: TObject);
|
||||
begin
|
||||
inherited;
|
||||
cxGridViewREFERENCIA_ART_REEMPLAZADO.Properties.OnValidate := OnValidateReferencia_ART_REEMPLAZADO;
|
||||
end;
|
||||
|
||||
procedure TfrViewDetallesAlbaranCliente.CustomViewDestroy(Sender: TObject);
|
||||
begin
|
||||
cxGridViewREFERENCIA_ART_REEMPLAZADO.Properties.OnValidate := Nil;
|
||||
inherited;
|
||||
end;
|
||||
|
||||
procedure TfrViewDetallesAlbaranCliente.cxGridViewCANTIDAD2PropertiesButtonClick(
|
||||
Sender: TObject; AButtonIndex: Integer);
|
||||
begin
|
||||
@ -75,11 +93,38 @@ begin
|
||||
(Controller as IDetallesAlbaranClienteController).ModificarCantidadColores(Detalles);
|
||||
end;
|
||||
|
||||
procedure TfrViewDetallesAlbaranCliente.cxGridViewREFERENCIA_ART_REEMPLAZADOPropertiesButtonClick(
|
||||
Sender: TObject; AButtonIndex: Integer);
|
||||
begin
|
||||
inherited;
|
||||
//
|
||||
end;
|
||||
|
||||
function TfrViewDetallesAlbaranCliente.GetAlbaran: IBizAlbaranCliente;
|
||||
begin
|
||||
Result := FAlbaran;
|
||||
end;
|
||||
|
||||
procedure TfrViewDetallesAlbaranCliente.OnValidateReferencia_ART_REEMPLAZADO(Sender: TObject; var DisplayValue: Variant; var ErrorText: TCaption;
|
||||
var Error: Boolean);
|
||||
var
|
||||
lsReferencia : String;
|
||||
begin
|
||||
//En el caso de cadena vacia no validamos
|
||||
if (VarIsNull(DisplayValue)) then
|
||||
Exit;
|
||||
|
||||
lsReferencia := VarToStr(DisplayValue);
|
||||
if (length(trim(lsReferencia)) = 0) then
|
||||
Exit;
|
||||
|
||||
if not AnadirArticulo(lsReferencia, tClienteReemplazo) then
|
||||
begin
|
||||
ErrorText := 'La referencia introducida no exite en el catálogo';
|
||||
Error := True;
|
||||
end;
|
||||
end;
|
||||
|
||||
procedure TfrViewDetallesAlbaranCliente.RellenarArticulosInterno;
|
||||
begin
|
||||
if (Albaran.TIPO = CTE_TIPO_ALBARAN_DEV) then
|
||||
|
||||
@ -48,9 +48,7 @@ object PluginAlmacenes: TPluginAlmacenes
|
||||
Tag = 100
|
||||
Category = 'Log'#237'stica'
|
||||
Caption = 'Almacenes'
|
||||
Enabled = False
|
||||
ImageIndex = 0
|
||||
Visible = False
|
||||
OnExecute = actAlmacenesExecute
|
||||
end
|
||||
end
|
||||
|
||||
@ -30,28 +30,25 @@ inherited fEditorAlmacenes: TfEditorAlmacenes
|
||||
end
|
||||
inherited TBXDock: TSpTBXDock
|
||||
inherited tbxMain: TSpTBXToolbar
|
||||
ExplicitWidth = 474
|
||||
ExplicitWidth = 617
|
||||
end
|
||||
inherited tbxFiltro: TSpTBXToolbar
|
||||
ExplicitWidth = 269
|
||||
inherited tbxEditFiltro: TSpTBXEditItem
|
||||
EditOptions = [tboUseEditWhenVertical]
|
||||
end
|
||||
ExplicitWidth = 328
|
||||
inherited TBXItem37: TSpTBXItem
|
||||
Visible = False
|
||||
end
|
||||
end
|
||||
inherited TBXTMain2: TSpTBXToolbar
|
||||
Left = 275
|
||||
Left = 328
|
||||
DockPos = 275
|
||||
ExplicitLeft = 275
|
||||
ExplicitLeft = 328
|
||||
end
|
||||
end
|
||||
inline frViewAlmacenes1: TfrViewAlmacenes [3]
|
||||
Left = 0
|
||||
Top = 102
|
||||
Width = 543
|
||||
Height = 323
|
||||
Width = 894
|
||||
Height = 383
|
||||
Align = alClient
|
||||
Font.Charset = DEFAULT_CHARSET
|
||||
Font.Color = clWindowText
|
||||
@ -62,13 +59,13 @@ inherited fEditorAlmacenes: TfEditorAlmacenes
|
||||
TabOrder = 3
|
||||
ReadOnly = False
|
||||
ExplicitTop = 102
|
||||
ExplicitWidth = 543
|
||||
ExplicitHeight = 323
|
||||
ExplicitWidth = 894
|
||||
ExplicitHeight = 383
|
||||
inherited cxGrid: TcxGrid
|
||||
Width = 543
|
||||
Height = 195
|
||||
ExplicitWidth = 543
|
||||
ExplicitHeight = 195
|
||||
Width = 894
|
||||
Height = 255
|
||||
ExplicitWidth = 894
|
||||
ExplicitHeight = 255
|
||||
inherited cxGridView: TcxGridDBTableView
|
||||
DataController.Summary.FooterSummaryItems = <
|
||||
item
|
||||
@ -79,13 +76,14 @@ inherited fEditorAlmacenes: TfEditorAlmacenes
|
||||
end
|
||||
end
|
||||
inherited frViewFiltroBase1: TfrViewFiltroBase
|
||||
Width = 543
|
||||
ExplicitWidth = 543
|
||||
Width = 894
|
||||
ExplicitWidth = 894
|
||||
inherited TBXDockablePanel1: TSpTBXDockablePanel
|
||||
ExplicitWidth = 543
|
||||
Width = 894
|
||||
ExplicitWidth = 894
|
||||
inherited dxLayoutControl1: TdxLayoutControl
|
||||
Width = 543
|
||||
ExplicitWidth = 543
|
||||
Width = 894
|
||||
ExplicitWidth = 894
|
||||
inherited txtFiltroTodo: TcxTextEdit
|
||||
Style.LookAndFeel.SkinName = ''
|
||||
StyleDisabled.LookAndFeel.SkinName = ''
|
||||
@ -103,36 +101,45 @@ inherited fEditorAlmacenes: TfEditorAlmacenes
|
||||
Width = 233
|
||||
end
|
||||
inherited edtFechaFinFiltro: TcxDateEdit
|
||||
Left = 337
|
||||
Left = 377
|
||||
Style.LookAndFeel.SkinName = ''
|
||||
StyleDisabled.LookAndFeel.SkinName = ''
|
||||
StyleFocused.LookAndFeel.SkinName = ''
|
||||
StyleHot.LookAndFeel.SkinName = ''
|
||||
ExplicitLeft = 337
|
||||
ExplicitWidth = 196
|
||||
Width = 196
|
||||
ExplicitLeft = 377
|
||||
end
|
||||
inherited eLista: TcxComboBox
|
||||
Left = 637
|
||||
Style.LookAndFeel.SkinName = ''
|
||||
StyleDisabled.LookAndFeel.SkinName = ''
|
||||
StyleFocused.LookAndFeel.SkinName = ''
|
||||
StyleHot.LookAndFeel.SkinName = ''
|
||||
ExplicitLeft = 637
|
||||
ExplicitWidth = 215
|
||||
Width = 215
|
||||
end
|
||||
end
|
||||
inherited TBXAlignmentPanel1: TSpTBXDockablePanel
|
||||
Width = 543
|
||||
ExplicitWidth = 543
|
||||
Width = 884
|
||||
ExplicitWidth = 884
|
||||
inherited tbxBotones: TSpTBXToolbar
|
||||
Width = 533
|
||||
ExplicitWidth = 533
|
||||
Width = 884
|
||||
ExplicitWidth = 884
|
||||
end
|
||||
end
|
||||
end
|
||||
end
|
||||
inherited pnlAgrupaciones: TSpTBXDockablePanel
|
||||
Top = 297
|
||||
ExplicitTop = 297
|
||||
ExplicitWidth = 543
|
||||
Top = 357
|
||||
Width = 894
|
||||
ExplicitTop = 357
|
||||
ExplicitWidth = 894
|
||||
inherited TBXAlignmentPanel1: TSpTBXDockablePanel
|
||||
Width = 543
|
||||
ExplicitWidth = 543
|
||||
Width = 894
|
||||
ExplicitWidth = 894
|
||||
inherited TBXToolbar1: TSpTBXToolbar
|
||||
Width = 533
|
||||
ExplicitWidth = 533
|
||||
Width = 894
|
||||
ExplicitWidth = 894
|
||||
end
|
||||
end
|
||||
end
|
||||
@ -142,6 +149,17 @@ inherited fEditorAlmacenes: TfEditorAlmacenes
|
||||
BuiltInReportLink = True
|
||||
end
|
||||
end
|
||||
inherited dxPSEngineController1: TdxPSEngineController
|
||||
Active = True
|
||||
end
|
||||
inherited cxViewGridPopupMenu: TcxGridPopupMenu
|
||||
PopupMenus = <
|
||||
item
|
||||
GridView = frViewAlmacenes1.cxGridView
|
||||
HitTypes = [gvhtCell]
|
||||
Index = 0
|
||||
end>
|
||||
end
|
||||
end
|
||||
inherited EditorActionList: TActionList [4]
|
||||
inherited actNuevo: TAction
|
||||
|
||||
@ -12,7 +12,7 @@ uses
|
||||
JvAppRegistryStorage, JvFormPlacement, ExtCtrls, uCustomView, uViewBase,
|
||||
uViewBarraSeleccion, pngimage, uIEditorAlmacenes, uEditorGridBase,
|
||||
JvComponentBase, uViewGridBase, uAlmacenesController, JvExComCtrls,
|
||||
JvStatusBar, uDAInterfaces;
|
||||
JvStatusBar, uDAInterfaces, StdCtrls, TntStdCtrls, SpTBXEditors;
|
||||
|
||||
type
|
||||
TfEditorAlmacenes = class(TfEditorGridBase, IEditorAlmacenes)
|
||||
|
||||
@ -6,7 +6,8 @@ inherited frViewAlmacenes: TfrViewAlmacenes
|
||||
inherited cxGrid: TcxGrid
|
||||
Width = 770
|
||||
Height = 365
|
||||
ExplicitTop = 102
|
||||
ExplicitWidth = 770
|
||||
ExplicitHeight = 365
|
||||
inherited cxGridView: TcxGridDBTableView
|
||||
DataController.KeyFieldNames = 'ID'
|
||||
DataController.Summary.FooterSummaryItems = <
|
||||
@ -58,9 +59,12 @@ inherited frViewAlmacenes: TfrViewAlmacenes
|
||||
end
|
||||
inherited frViewFiltroBase1: TfrViewFiltroBase
|
||||
Width = 770
|
||||
ExplicitWidth = 770
|
||||
inherited TBXDockablePanel1: TSpTBXDockablePanel
|
||||
Width = 770
|
||||
inherited dxLayoutControl1: TdxLayoutControl
|
||||
Width = 770
|
||||
ExplicitWidth = 770
|
||||
inherited txtFiltroTodo: TcxTextEdit
|
||||
Style.LookAndFeel.SkinName = ''
|
||||
StyleDisabled.LookAndFeel.SkinName = ''
|
||||
@ -74,29 +78,40 @@ inherited frViewAlmacenes: TfrViewAlmacenes
|
||||
StyleHot.LookAndFeel.SkinName = ''
|
||||
end
|
||||
inherited edtFechaFinFiltro: TcxDateEdit
|
||||
Left = 474
|
||||
Left = 338
|
||||
Style.LookAndFeel.SkinName = ''
|
||||
StyleDisabled.LookAndFeel.SkinName = ''
|
||||
StyleFocused.LookAndFeel.SkinName = ''
|
||||
StyleHot.LookAndFeel.SkinName = ''
|
||||
ExplicitLeft = 338
|
||||
end
|
||||
inherited eLista: TcxComboBox
|
||||
Style.LookAndFeel.SkinName = ''
|
||||
StyleDisabled.LookAndFeel.SkinName = ''
|
||||
StyleFocused.LookAndFeel.SkinName = ''
|
||||
StyleHot.LookAndFeel.SkinName = ''
|
||||
ExplicitLeft = 474
|
||||
end
|
||||
end
|
||||
inherited TBXAlignmentPanel1: TSpTBXDockablePanel
|
||||
Width = 770
|
||||
Width = 760
|
||||
ExplicitWidth = 770
|
||||
inherited tbxBotones: TSpTBXToolbar
|
||||
Width = 760
|
||||
ExplicitWidth = 760
|
||||
end
|
||||
end
|
||||
end
|
||||
end
|
||||
inherited pnlAgrupaciones: TSpTBXDockablePanel
|
||||
Top = 467
|
||||
ExplicitWidth = 607
|
||||
Width = 770
|
||||
ExplicitTop = 467
|
||||
inherited TBXAlignmentPanel1: TSpTBXDockablePanel
|
||||
Width = 770
|
||||
ExplicitWidth = 770
|
||||
inherited TBXToolbar1: TSpTBXToolbar
|
||||
Width = 760
|
||||
Width = 770
|
||||
ExplicitWidth = 760
|
||||
end
|
||||
end
|
||||
end
|
||||
|
||||
@ -13,7 +13,10 @@ uses
|
||||
dxPrnPg, dxBkgnd, dxWrap, dxPrnDev, dxPSCompsProvider, dxPSFillPatterns,
|
||||
dxPSEdgePatterns, dxPSCore, dxPScxCommon, dxPScxGrid6Lnk,
|
||||
cxGridCustomPopupMenu, cxGridPopupMenu, uViewFiltroBase, TB2Item, SpTBXItem,
|
||||
TB2Toolbar, SpTBXDkPanels, TB2Dock, dxPgsDlg, uDAInterfaces;
|
||||
TB2Toolbar, SpTBXDkPanels, TB2Dock, dxPgsDlg, uDAInterfaces, cxLookAndFeels,
|
||||
cxLookAndFeelPainters, dxPSPDFExportCore, dxPSPDFExport, cxDrawTextUtils,
|
||||
dxPSPrVwStd, dxPSPrVwAdv, dxPScxEditorProducers, dxPScxExtEditorProducers,
|
||||
dxPScxPageControlProducer, uCustomView, uViewBase;
|
||||
|
||||
type
|
||||
IViewAlmacenes = interface(IViewGrid)
|
||||
|
||||
@ -8,9 +8,10 @@ uses Classes, Variants, uDACDSDataTable, uDADataTable, uControllerDetallesBase,
|
||||
const
|
||||
CAMPO_REFERENCIA = 'REFERENCIA'; //Campo ficticio
|
||||
CAMPO_REFERENCIA_PROVEEDOR = 'REFERENCIA_PROVEEDOR'; //Campo ficticio
|
||||
CAMPO_REFERENCIA_ART_REEMPLAZADO = 'REFERENCIA_ART_REEMPLAZADO'; //Campo ficticio
|
||||
|
||||
type
|
||||
TEnumReferencia = (tCliente, tProveedor);
|
||||
TEnumReferencia = (tCliente, tProveedor, tClienteReemplazo);
|
||||
|
||||
IControllerDetallesArticulos = interface(IControllerDetallesBase)
|
||||
['{6E156796-DB1F-4727-BBFB-FBAEF2E5C098}']
|
||||
@ -34,6 +35,7 @@ type
|
||||
procedure RellenarGenerales(ADetalles: IDAStronglyTypedDataTable; AArticulos: IBizArticulo); virtual;
|
||||
procedure RellenarCantidad(ADetalles: IDAStronglyTypedDataTable; const ACantidad: Float); virtual;
|
||||
procedure RellenarDetalle(ADetalles: IDAStronglyTypedDataTable; AArticulos: IBizArticulo; const ACantidad: Float = 1); virtual;
|
||||
procedure RellenarDetalleReemplazo(ADetalles: IDAStronglyTypedDataTable; AArticulos: IBizArticulo; const ACantidad: Float = 1); virtual;
|
||||
procedure Add(ADetalles: IDAStronglyTypedDataTable; AArticulos: IBizArticulo; const ACantidad: Float = 1); overload;
|
||||
|
||||
procedure AsignarController; virtual;
|
||||
@ -313,7 +315,7 @@ begin
|
||||
ShowHourglassCursor;
|
||||
try
|
||||
case TipoReferencia of
|
||||
tCliente: AArticulo := FArticulosController.BuscarReferencia(Referencia, AClienteID);
|
||||
tCliente, tClienteReemplazo: AArticulo := FArticulosController.BuscarReferencia(Referencia, AClienteID);
|
||||
tProveedor: AArticulo := FArticulosController.BuscarReferenciaProveedor(Referencia, AClienteID)
|
||||
end;
|
||||
|
||||
@ -322,7 +324,10 @@ begin
|
||||
AArticulo.DataTable.Active := True;
|
||||
if (AArticulo.RecordCount > 0) then
|
||||
begin
|
||||
RellenarDetalle(ADetalles, AArticulo, ACantidad);
|
||||
case TipoReferencia of
|
||||
tClienteReemplazo: RellenarDetalleReemplazo(ADetalles, AArticulo, ACantidad);
|
||||
tCliente, tProveedor: RellenarDetalle(ADetalles, AArticulo, ACantidad);
|
||||
end;
|
||||
Result := True;
|
||||
end;
|
||||
end;
|
||||
@ -368,6 +373,28 @@ begin
|
||||
end;
|
||||
end;
|
||||
|
||||
procedure TControllerDetallesArticulos.RellenarDetalleReemplazo(ADetalles: IDAStronglyTypedDataTable; AArticulos: IBizArticulo;
|
||||
const ACantidad: Float);
|
||||
begin
|
||||
if Assigned(ADetalles)
|
||||
and Assigned(AArticulos) then
|
||||
begin
|
||||
BeginUpdate(ADetalles);
|
||||
try
|
||||
if not ADetalles.DataTable.Editing then
|
||||
ADetalles.DataTable.Edit;
|
||||
|
||||
ADetalles.DataTable.FieldByName(CAMPO_ID_ARTICULOS_REEMPLAZADO).AsVariant := AArticulos.ID;
|
||||
ADetalles.DataTable.FieldByName(CAMPO_REFERENCIA_ART_REEMPLAZADO).AsVariant := AArticulos.REFERENCIA;
|
||||
|
||||
if ADetalles.DataTable.Editing then
|
||||
ADetalles.DataTable.Post;
|
||||
finally
|
||||
EndUpdate(ADetalles);
|
||||
end;
|
||||
end;
|
||||
end;
|
||||
|
||||
procedure TControllerDetallesArticulos.RellenarGenerales(ADetalles: IDAStronglyTypedDataTable; AArticulos: IBizArticulo);
|
||||
begin
|
||||
if Assigned(AArticulos) then
|
||||
|
||||
@ -2,97 +2,51 @@ inherited frViewDetallesArticulos: TfrViewDetallesArticulos
|
||||
ParentBiDiMode = False
|
||||
OnShow = CustomViewShow
|
||||
inherited ToolBar1: TToolBar
|
||||
Height = 95
|
||||
ExplicitHeight = 95
|
||||
inherited ToolButton3: TToolButton [1]
|
||||
Left = 109
|
||||
Wrap = False
|
||||
ExplicitLeft = 109
|
||||
end
|
||||
inherited ToolButton2: TToolButton [2]
|
||||
Left = 164
|
||||
ExplicitLeft = 164
|
||||
end
|
||||
inherited ToolButton13: TToolButton [3]
|
||||
Left = 278
|
||||
Top = 0
|
||||
Wrap = False
|
||||
ExplicitLeft = 278
|
||||
ExplicitTop = 0
|
||||
ExplicitHeight = 22
|
||||
end
|
||||
inherited ToolButton12: TToolButton [4]
|
||||
Top = 0
|
||||
ExplicitTop = 0
|
||||
end
|
||||
inherited ToolButton4: TToolButton [5]
|
||||
Top = 30
|
||||
ExplicitTop = 30
|
||||
end
|
||||
inherited ToolButton14: TToolButton [6]
|
||||
Top = 30
|
||||
ExplicitTop = 30
|
||||
end
|
||||
inherited ToolButton9: TToolButton [7]
|
||||
Top = 30
|
||||
Wrap = True
|
||||
ExplicitTop = 30
|
||||
end
|
||||
inherited FontName: TJvFontComboBox [8]
|
||||
Left = 0
|
||||
Top = 52
|
||||
ExplicitLeft = 0
|
||||
ExplicitTop = 52
|
||||
end
|
||||
inherited UpDown1: TUpDown [9]
|
||||
Left = 145
|
||||
Top = 52
|
||||
Width = 17
|
||||
ExplicitLeft = 145
|
||||
ExplicitTop = 52
|
||||
ExplicitWidth = 17
|
||||
end
|
||||
inherited ToolButton7: TToolButton
|
||||
Left = 162
|
||||
ExplicitLeft = 162
|
||||
end
|
||||
inherited ToolButton10: TToolButton [11]
|
||||
Left = 229
|
||||
Top = 52
|
||||
Wrap = True
|
||||
ExplicitLeft = 229
|
||||
ExplicitTop = 52
|
||||
end
|
||||
inherited ToolButton6: TToolButton [12]
|
||||
Top = 74
|
||||
ExplicitTop = 74
|
||||
end
|
||||
inherited FontSize: TEdit [13]
|
||||
Left = 66
|
||||
Top = 74
|
||||
inherited FontSize: TEdit
|
||||
Width = 42
|
||||
ExplicitLeft = 66
|
||||
ExplicitTop = 74
|
||||
ExplicitWidth = 42
|
||||
end
|
||||
inherited ToolButton11: TToolButton [14]
|
||||
Left = 108
|
||||
Top = 74
|
||||
ExplicitLeft = 108
|
||||
ExplicitTop = 74
|
||||
inherited UpDown1: TUpDown
|
||||
Left = 187
|
||||
Width = 17
|
||||
ExplicitLeft = 187
|
||||
ExplicitWidth = 17
|
||||
end
|
||||
inherited ToolButton13: TToolButton
|
||||
Left = 204
|
||||
ExplicitLeft = 204
|
||||
end
|
||||
inherited ToolButton6: TToolButton
|
||||
Left = 212
|
||||
ExplicitLeft = 212
|
||||
end
|
||||
inherited ToolButton7: TToolButton
|
||||
Left = 278
|
||||
ExplicitLeft = 278
|
||||
end
|
||||
inherited ToolButton8: TToolButton
|
||||
Left = 249
|
||||
Top = 74
|
||||
ExplicitLeft = 249
|
||||
ExplicitTop = 74
|
||||
Left = 345
|
||||
ExplicitLeft = 345
|
||||
end
|
||||
inherited ToolButton12: TToolButton
|
||||
Left = 428
|
||||
ExplicitLeft = 428
|
||||
end
|
||||
inherited ToolButton9: TToolButton
|
||||
Left = 436
|
||||
ExplicitLeft = 436
|
||||
end
|
||||
inherited ToolButton10: TToolButton
|
||||
Left = 581
|
||||
ExplicitLeft = 581
|
||||
end
|
||||
inherited ToolButton11: TToolButton
|
||||
Left = 706
|
||||
ExplicitLeft = 706
|
||||
end
|
||||
end
|
||||
inherited cxGrid: TcxGrid
|
||||
Top = 121
|
||||
Height = 183
|
||||
ExplicitTop = 121
|
||||
ExplicitHeight = 178
|
||||
inherited cxGridView: TcxGridDBTableView
|
||||
inherited cxGridViewTIPO: TcxGridDBColumn
|
||||
MinWidth = 69
|
||||
@ -181,7 +135,6 @@ inherited frViewDetallesArticulos: TfrViewDetallesArticulos
|
||||
end
|
||||
end
|
||||
inherited TBXDock1: TSpTBXDock
|
||||
Top = 95
|
||||
ExplicitTop = 100
|
||||
inherited TBXToolbar1: TSpTBXToolbar
|
||||
inherited TBXSubmenuItem1: TSpTBXSubmenuItem
|
||||
|
||||
@ -39,8 +39,7 @@ type
|
||||
procedure OnValidateReferencia(Sender: TObject; var DisplayValue: Variant; var ErrorText: TCaption; var Error: Boolean);
|
||||
procedure OnValidateReferenciaProveedor(Sender: TObject; var DisplayValue: Variant; var ErrorText: TCaption; var Error: Boolean);
|
||||
procedure CustomViewShow(Sender: TObject);
|
||||
procedure cxGridViewREFERENCIAPropertiesButtonClick(Sender: TObject;
|
||||
AButtonIndex: Integer);
|
||||
procedure cxGridViewREFERENCIAPropertiesButtonClick(Sender: TObject; AButtonIndex: Integer);
|
||||
procedure actBuscarArticuloExecute(Sender: TObject);
|
||||
procedure actBuscarArticuloUpdate(Sender: TObject);
|
||||
procedure actDetalleCopiarExecute(Sender: TObject);
|
||||
|
||||
@ -47,11 +47,11 @@
|
||||
<DelphiCompile Include="Inventario_view.dpk">
|
||||
<MainSource>MainSource</MainSource>
|
||||
</DelphiCompile>
|
||||
<DCCReference Include="Articulos_view.dcp" />
|
||||
<DCCReference Include="GUIBase.dcp" />
|
||||
<DCCReference Include="Inventario_controller.dcp" />
|
||||
<DCCReference Include="Inventario_model.dcp" />
|
||||
<DCCReference Include="PedProv_AlbProv_relation.dcp" />
|
||||
<DCCReference Include="..\Articulos_view.dcp" />
|
||||
<DCCReference Include="..\GUIBase.dcp" />
|
||||
<DCCReference Include="..\Inventario_controller.dcp" />
|
||||
<DCCReference Include="..\Inventario_model.dcp" />
|
||||
<DCCReference Include="..\PedProv_AlbProv_relation.dcp" />
|
||||
<DCCReference Include="uEditorDetalleReservas.pas">
|
||||
<Form>fEditorDetalleReservas</Form>
|
||||
<DesignClass>TfEditorDetalleReservas</DesignClass>
|
||||
|
||||
@ -106,7 +106,7 @@ inherited fEditorInventario: TfEditorInventario
|
||||
end
|
||||
end
|
||||
inherited tbxFiltro: TSpTBXToolbar
|
||||
ExplicitWidth = 269
|
||||
ExplicitWidth = 328
|
||||
inherited TBXItem37: TSpTBXItem
|
||||
Visible = False
|
||||
end
|
||||
@ -115,10 +115,10 @@ inherited fEditorInventario: TfEditorInventario
|
||||
ExplicitWidth = 669
|
||||
end
|
||||
inherited TBXTMain2: TSpTBXToolbar
|
||||
Left = 269
|
||||
Left = 328
|
||||
DockPos = 264
|
||||
Visible = True
|
||||
ExplicitLeft = 269
|
||||
ExplicitLeft = 328
|
||||
ExplicitWidth = 113
|
||||
object TBXItem38: TSpTBXItem
|
||||
Action = actReservados
|
||||
@ -205,6 +205,7 @@ inherited fEditorInventario: TfEditorInventario
|
||||
TabOrder = 0
|
||||
ExplicitWidth = 669
|
||||
inherited TBXDockablePanel1: TSpTBXDockablePanel
|
||||
Width = 669
|
||||
ExplicitWidth = 669
|
||||
inherited dxLayoutControl1: TdxLayoutControl
|
||||
Width = 669
|
||||
@ -247,21 +248,18 @@ inherited fEditorInventario: TfEditorInventario
|
||||
end
|
||||
end
|
||||
inherited TBXAlignmentPanel1: TSpTBXDockablePanel
|
||||
Width = 669
|
||||
ExplicitWidth = 669
|
||||
Width = 659
|
||||
ExplicitWidth = 659
|
||||
inherited tbxBotones: TSpTBXToolbar
|
||||
Width = 659
|
||||
ExplicitWidth = 659
|
||||
end
|
||||
end
|
||||
end
|
||||
inherited dxLayoutLookAndFeelList1: TdxLayoutLookAndFeelList
|
||||
Left = 128
|
||||
Top = 8
|
||||
end
|
||||
end
|
||||
inherited pnlAgrupaciones: TSpTBXDockablePanel
|
||||
Top = 393
|
||||
Width = 669
|
||||
TabOrder = 1
|
||||
ExplicitTop = 393
|
||||
ExplicitWidth = 669
|
||||
@ -269,8 +267,8 @@ inherited fEditorInventario: TfEditorInventario
|
||||
Width = 669
|
||||
ExplicitWidth = 669
|
||||
inherited TBXToolbar1: TSpTBXToolbar
|
||||
Width = 659
|
||||
ExplicitWidth = 659
|
||||
Width = 669
|
||||
ExplicitWidth = 669
|
||||
end
|
||||
end
|
||||
end
|
||||
@ -288,6 +286,9 @@ inherited fEditorInventario: TfEditorInventario
|
||||
BuiltInReportLink = True
|
||||
end
|
||||
end
|
||||
inherited dxPSEngineController1: TdxPSEngineController
|
||||
Active = True
|
||||
end
|
||||
inherited cxViewGridPopupMenu: TcxGridPopupMenu
|
||||
PopupMenus = <
|
||||
item
|
||||
|
||||
@ -12,7 +12,8 @@ uses
|
||||
uViewBase, uViewBarraSeleccion, JvComponentBase, uEditorGridBase,
|
||||
uIEditorInventario, uBizInventario, uViewGridBase, uInventarioController,
|
||||
JvExComCtrls, JvStatusBar, uViewGrid2Niveles, JSDialog, uBizAlmacenes,
|
||||
uDAInterfaces, dxGDIPlusClasses, uEditorElegirAlmacenObraOperacion;
|
||||
uDAInterfaces, dxGDIPlusClasses, uEditorElegirAlmacenObraOperacion, StdCtrls,
|
||||
TntStdCtrls, SpTBXEditors;
|
||||
|
||||
type
|
||||
TEnumSeleccion = (tAlmacen, tObra, tAlmacenObra);
|
||||
|
||||
@ -173,6 +173,7 @@ inherited frViewInventario: TfrViewInventario
|
||||
Width = 678
|
||||
ExplicitWidth = 678
|
||||
inherited TBXDockablePanel1: TSpTBXDockablePanel
|
||||
Width = 678
|
||||
ExplicitWidth = 678
|
||||
inherited dxLayoutControl1: TdxLayoutControl
|
||||
Width = 678
|
||||
@ -182,8 +183,6 @@ inherited frViewInventario: TfrViewInventario
|
||||
StyleDisabled.LookAndFeel.SkinName = ''
|
||||
StyleFocused.LookAndFeel.SkinName = ''
|
||||
StyleHot.LookAndFeel.SkinName = ''
|
||||
ExplicitWidth = 510
|
||||
Width = 510
|
||||
end
|
||||
inherited edtFechaIniFiltro: TcxDateEdit
|
||||
Style.LookAndFeel.SkinName = ''
|
||||
@ -202,12 +201,10 @@ inherited frViewInventario: TfrViewInventario
|
||||
StyleDisabled.LookAndFeel.SkinName = ''
|
||||
StyleFocused.LookAndFeel.SkinName = ''
|
||||
StyleHot.LookAndFeel.SkinName = ''
|
||||
ExplicitWidth = 215
|
||||
Width = 215
|
||||
end
|
||||
end
|
||||
inherited TBXAlignmentPanel1: TSpTBXDockablePanel
|
||||
Width = 678
|
||||
Width = 668
|
||||
ExplicitWidth = 678
|
||||
inherited tbxBotones: TSpTBXToolbar
|
||||
Width = 668
|
||||
@ -218,13 +215,14 @@ inherited frViewInventario: TfrViewInventario
|
||||
end
|
||||
inherited pnlAgrupaciones: TSpTBXDockablePanel
|
||||
Top = 581
|
||||
Width = 678
|
||||
ExplicitTop = 581
|
||||
ExplicitWidth = 678
|
||||
inherited TBXAlignmentPanel1: TSpTBXDockablePanel
|
||||
Width = 678
|
||||
ExplicitWidth = 678
|
||||
inherited TBXToolbar1: TSpTBXToolbar
|
||||
Width = 668
|
||||
Width = 678
|
||||
ExplicitWidth = 668
|
||||
end
|
||||
end
|
||||
|
||||
@ -15,7 +15,10 @@ uses
|
||||
cxButtonEdit, cxGridCustomPopupMenu, cxGridPopupMenu, uViewGrid,
|
||||
uBizInventario, cxSpinEdit, uViewFiltroBase, TB2Item, SpTBXItem,
|
||||
TB2Toolbar, SpTBXDkPanels, TB2Dock, dxPgsDlg, cxCurrencyEdit, uDAInterfaces,
|
||||
cxContainer, cxMaskEdit, cxDropDownEdit;
|
||||
cxContainer, cxMaskEdit, cxDropDownEdit, cxLookAndFeels,
|
||||
cxLookAndFeelPainters, dxPSPDFExportCore, dxPSPDFExport, cxDrawTextUtils,
|
||||
dxPSPrVwStd, dxPSPrVwAdv, dxPScxEditorProducers, dxPScxExtEditorProducers,
|
||||
dxPScxPageControlProducer, uCustomView, uViewBase;
|
||||
// uBizAlmacenes, uBizObras;
|
||||
|
||||
type
|
||||
|
||||
@ -49,23 +49,23 @@
|
||||
<DelphiCompile Include="PedidosCliente_controller.dpk">
|
||||
<MainSource>MainSource</MainSource>
|
||||
</DelphiCompile>
|
||||
<DCCReference Include="..\..\Albaranes de cliente\Controller\adortl.dcp" />
|
||||
<DCCReference Include="..\..\Albaranes de cliente\Controller\Articulos_controller.dcp" />
|
||||
<DCCReference Include="..\..\Albaranes de cliente\Controller\Contactos_controller.dcp" />
|
||||
<DCCReference Include="..\..\Albaranes de cliente\Controller\Contactos_model.dcp" />
|
||||
<DCCReference Include="..\..\Albaranes de cliente\Controller\cxLibraryD11.dcp" />
|
||||
<DCCReference Include="..\..\Albaranes de cliente\Controller\DataAbstract_Core_D11.dcp" />
|
||||
<DCCReference Include="..\..\Albaranes de cliente\Controller\dbrtl.dcp" />
|
||||
<DCCReference Include="..\..\Albaranes de cliente\Controller\dsnap.dcp" />
|
||||
<DCCReference Include="..\..\Albaranes de cliente\Controller\dxGDIPlusD11.dcp" />
|
||||
<DCCReference Include="..\..\Albaranes de cliente\Controller\dxThemeD11.dcp" />
|
||||
<DCCReference Include="..\..\Albaranes de cliente\Controller\GUIBase.dcp" />
|
||||
<DCCReference Include="..\..\Albaranes de cliente\Controller\PedidosCliente_data.dcp" />
|
||||
<DCCReference Include="..\..\Albaranes de cliente\Controller\PedidosCliente_model.dcp" />
|
||||
<DCCReference Include="..\..\Albaranes de cliente\Controller\RemObjects_Core_D11.dcp" />
|
||||
<DCCReference Include="..\..\Albaranes de cliente\Controller\rtl.dcp" />
|
||||
<DCCReference Include="..\..\Albaranes de cliente\Controller\vcl.dcp" />
|
||||
<DCCReference Include="..\..\Albaranes de cliente\Controller\vcldb.dcp" />
|
||||
<DCCReference Include="..\..\..\Servidor\adortl.dcp" />
|
||||
<DCCReference Include="..\..\..\Servidor\Articulos_controller.dcp" />
|
||||
<DCCReference Include="..\..\..\Servidor\Contactos_controller.dcp" />
|
||||
<DCCReference Include="..\..\..\Servidor\Contactos_model.dcp" />
|
||||
<DCCReference Include="..\..\..\Servidor\cxLibraryD11.dcp" />
|
||||
<DCCReference Include="..\..\..\Servidor\DataAbstract_Core_D11.dcp" />
|
||||
<DCCReference Include="..\..\..\Servidor\dbrtl.dcp" />
|
||||
<DCCReference Include="..\..\..\Servidor\dsnap.dcp" />
|
||||
<DCCReference Include="..\..\..\Servidor\dxGDIPlusD11.dcp" />
|
||||
<DCCReference Include="..\..\..\Servidor\dxThemeD11.dcp" />
|
||||
<DCCReference Include="..\..\..\Servidor\GUIBase.dcp" />
|
||||
<DCCReference Include="..\..\..\Servidor\PedidosCliente_data.dcp" />
|
||||
<DCCReference Include="..\..\..\Servidor\PedidosCliente_model.dcp" />
|
||||
<DCCReference Include="..\..\..\Servidor\RemObjects_Core_D11.dcp" />
|
||||
<DCCReference Include="..\..\..\Servidor\rtl.dcp" />
|
||||
<DCCReference Include="..\..\..\Servidor\vcl.dcp" />
|
||||
<DCCReference Include="..\..\..\Servidor\vcldb.dcp" />
|
||||
<DCCReference Include="uArticulosPedidoClienteController.pas" />
|
||||
<DCCReference Include="uDetallesPedidoClienteController.pas" />
|
||||
<DCCReference Include="uPedidosClienteController.pas" />
|
||||
|
||||
@ -12,5 +12,5 @@ STRINGTABLE
|
||||
BEGIN
|
||||
END
|
||||
|
||||
/* C:\Codigo Noviseda\Source\Modulos\Pedidos de cliente\Controller\PedidosCliente_controller.res */
|
||||
/* C:\Codigo Noviseda\Source\Modulos\Pedidos de cliente\Controller\PedidosCliente_controller.drf */
|
||||
/* C:\Codigo noviseda\Source\Modulos\Pedidos de cliente\Controller\PedidosCliente_controller.res */
|
||||
/* C:\DOCUME~1\Usuario\CONFIG~1\Temp\dtf1D6.tmp */
|
||||
|
||||
Binary file not shown.
@ -14,6 +14,8 @@ type
|
||||
procedure DesglosarPorteDetalles(ImportePorte: Currency; ADetalles: IDAStronglyTypedDataTable);
|
||||
function DarTotalPorteTotal(ADetalles: IDAStronglyTypedDataTable): Double;
|
||||
procedure ModificarCantidadColores(ADetalles: IDAStronglyTypedDataTable);
|
||||
function ArticulosPendientes(const ID : Integer): IBizPedidoClienteArticulosPend;
|
||||
function ArtColoresPendientes(const ID : Integer): IBizPedidoClienteArtColoresPend;
|
||||
end;
|
||||
|
||||
TDetallesPedidoClienteController = class(TControllerDetallesArticulos, IDetallesPedidoClienteController)
|
||||
@ -34,14 +36,19 @@ type
|
||||
procedure AnadirArticulos(ADetalles: IDAStronglyTypedDataTable; ACliente: IBizCliente; const ANuevaFila :Boolean = True; const ACantidad: Integer = 1); overload;
|
||||
procedure ActualizarDetalles(ADetalles: IDAStronglyTypedDataTable; ACliente: IBizCliente); overload;
|
||||
procedure ModificarCantidadColores(ADetalles: IDAStronglyTypedDataTable);
|
||||
|
||||
function ArticulosPendientes(const ID : Integer): IBizPedidoClienteArticulosPend;
|
||||
function ArtColoresPendientes(const ID : Integer): IBizPedidoClienteArtColoresPend;
|
||||
|
||||
constructor Create; override;
|
||||
destructor Destroy; override;
|
||||
end;
|
||||
|
||||
implementation
|
||||
|
||||
uses Dialogs, Controls, uDialogUtils, Variants, uControllerDetallesBase, uEditorColores,
|
||||
uDataModulePedidosCliente, uArticulosPedidoClienteController, uDataTableUtils, uCalculosUtils;
|
||||
uses Dialogs, cxControls, uDAInterfaces, Controls, uDialogUtils, Variants, uControllerDetallesBase, uEditorColores,
|
||||
uDataModulePedidosCliente, uArticulosPedidoClienteController, uDataTableUtils, uCalculosUtils,
|
||||
schPedidosClienteClient_Intf;
|
||||
|
||||
{ TDetallesPedidoClienteController }
|
||||
|
||||
@ -87,6 +94,38 @@ begin
|
||||
end;
|
||||
end;
|
||||
|
||||
function TDetallesPedidoClienteController.ArtColoresPendientes(const ID: Integer): IBizPedidoClienteArtColoresPend;
|
||||
var
|
||||
Condicion: TDAWhereExpression;
|
||||
|
||||
begin
|
||||
ShowHourglassCursor;
|
||||
try
|
||||
Result := FDataModule.GetArtColoresPendientes;
|
||||
|
||||
with Result.DataTable.DynamicWhere do
|
||||
begin
|
||||
// (ID_PEDIDO >= ID)
|
||||
Condicion := NewBinaryExpression(NewField('', fld_PedidoCliente_Art_Colores_PendientesID_PEDIDO), NewConstant(ID, datInteger), dboEqual);
|
||||
|
||||
if IsEmpty then
|
||||
Expression := Condicion
|
||||
else
|
||||
Expression := NewBinaryExpression(Expression, Condicion, dboAnd);
|
||||
end;
|
||||
|
||||
finally
|
||||
HideHourglassCursor;
|
||||
end;
|
||||
|
||||
end;
|
||||
|
||||
function TDetallesPedidoClienteController.ArticulosPendientes(
|
||||
const ID: Integer): IBizPedidoClienteArticulosPend;
|
||||
begin
|
||||
Result := FDataModule.GetArticulosPendientes(ID);
|
||||
end;
|
||||
|
||||
procedure TDetallesPedidoClienteController.AsignarController;
|
||||
begin
|
||||
FArticulosController := TArticulosPedidoClienteController.Create;
|
||||
|
||||
@ -59,8 +59,6 @@ type
|
||||
const ADireccionEMail: String = ''; const AAsuntoEMail: String = '';
|
||||
const ATextoEMail: String = ''): Boolean;
|
||||
|
||||
function ArticulosPendientes(const ID : Integer): IBizPedidoClienteArticulosPend;
|
||||
|
||||
function DarListaAnosPedidos: TStringList;
|
||||
procedure FiltrarAno(APedido: IBizPedidoCliente; AWhereDataTable: String; const Ano: String);
|
||||
end;
|
||||
@ -133,8 +131,6 @@ type
|
||||
const ADireccionEMail: String = ''; const AAsuntoEMail: String = '';
|
||||
const ATextoEMail: String = ''): Boolean;
|
||||
|
||||
function ArticulosPendientes(const ID : Integer): IBizPedidoClienteArticulosPend;
|
||||
|
||||
function DarListaAnosPedidos: TStringList;
|
||||
procedure FiltrarAno(APedido: IBizPedidoCliente; AWhereDataTable: String; const Ano: String);
|
||||
end;
|
||||
@ -160,12 +156,6 @@ begin
|
||||
Result := True;
|
||||
end;
|
||||
|
||||
function TPedidosClienteController.ArticulosPendientes(
|
||||
const ID: Integer): IBizPedidoClienteArticulosPend;
|
||||
begin
|
||||
Result := FDataModule.GetArticulosPendientes(ID);
|
||||
end;
|
||||
|
||||
procedure TPedidosClienteController.AsignarDataModule;
|
||||
begin
|
||||
FDataModule := TDataModulePedidosCliente.Create(Nil);
|
||||
|
||||
@ -49,7 +49,7 @@
|
||||
<DelphiCompile Include="PedidosCliente_data.dpk">
|
||||
<MainSource>MainSource</MainSource>
|
||||
</DelphiCompile>
|
||||
<DCCReference Include="..\..\Albaranes de cliente\Controller\PedidosCliente_model.dcp" />
|
||||
<DCCReference Include="..\..\..\Servidor\PedidosCliente_model.dcp" />
|
||||
<DCCReference Include="uDataModulePedidosCliente.pas">
|
||||
<Form>DataModulePedidosCliente</Form>
|
||||
</DCCReference>
|
||||
|
||||
@ -12,6 +12,6 @@ STRINGTABLE
|
||||
BEGIN
|
||||
END
|
||||
|
||||
/* C:\Codigo Noviseda\Source\Modulos\Pedidos de cliente\Data\uDataModulePedidosCliente.DFM */
|
||||
/* C:\Codigo Noviseda\Source\Modulos\Pedidos de cliente\Data\PedidosCliente_data.res */
|
||||
/* C:\Codigo Noviseda\Source\Modulos\Pedidos de cliente\Data\PedidosCliente_data.drf */
|
||||
/* C:\Codigo noviseda\Source\Modulos\Pedidos de cliente\Data\uDataModulePedidosCliente.dfm */
|
||||
/* C:\Codigo noviseda\Source\Modulos\Pedidos de cliente\Data\PedidosCliente_data.res */
|
||||
/* C:\DOCUME~1\Usuario\CONFIG~1\Temp\dtf1D4.tmp */
|
||||
|
||||
Binary file not shown.
@ -1,8 +1,7 @@
|
||||
object DataModulePedidosCliente: TDataModulePedidosCliente
|
||||
OldCreateOrder = True
|
||||
inherited DataModulePedidosCliente: TDataModulePedidosCliente
|
||||
OnCreate = DAClientDataModuleCreate
|
||||
Height = 396
|
||||
Width = 813
|
||||
Height = 550
|
||||
Width = 772
|
||||
object RORemoteService: TRORemoteService
|
||||
Message = dmConexion.ROMessage
|
||||
Channel = dmConexion.ROChannel
|
||||
@ -35,6 +34,7 @@ object DataModulePedidosCliente: TDataModulePedidosCliente
|
||||
DataType = datString
|
||||
Size = 255
|
||||
DisplayLabel = 'Nombre del cliente'
|
||||
ServerAutoRefresh = True
|
||||
DictionaryEntry = 'PedidosCliente_NOMBRE'
|
||||
end
|
||||
item
|
||||
@ -387,21 +387,21 @@ object DataModulePedidosCliente: TDataModulePedidosCliente
|
||||
end
|
||||
item
|
||||
Name = 'CANTIDAD_PED'
|
||||
DataType = datInteger
|
||||
DataType = datFloat
|
||||
DisplayLabel = 'Cantidad en pedido'
|
||||
Alignment = taRightJustify
|
||||
DictionaryEntry = 'PedidoCliente_Articulos_Pendientes_CANTIDAD_PED'
|
||||
end
|
||||
item
|
||||
Name = 'CANTIDAD_ALB'
|
||||
DataType = datInteger
|
||||
DataType = datFloat
|
||||
DisplayLabel = 'Cantidad en albaranes'
|
||||
Alignment = taRightJustify
|
||||
DictionaryEntry = 'PedidoCliente_Articulos_Pendientes_CANTIDAD_ALB'
|
||||
end
|
||||
item
|
||||
Name = 'CANTIDAD_PENDIENTE'
|
||||
DataType = datInteger
|
||||
DataType = datFloat
|
||||
DisplayLabel = 'Cantidad pendiente'
|
||||
Alignment = taRightJustify
|
||||
DictionaryEntry = 'PedidoCliente_Articulos_Pendientes_CANTIDAD_PENDIENTE'
|
||||
@ -415,6 +415,7 @@ object DataModulePedidosCliente: TDataModulePedidosCliente
|
||||
end>
|
||||
MasterMappingMode = mmDataRequest
|
||||
StreamingOptions = [soDisableEventsWhileStreaming]
|
||||
RemoteDataAdapter = rda_PedidosCliente
|
||||
LogicalName = 'PedidoCliente_Articulos_Pendientes'
|
||||
IndexDefs = <>
|
||||
Left = 208
|
||||
@ -524,62 +525,88 @@ object DataModulePedidosCliente: TDataModulePedidosCliente
|
||||
item
|
||||
Name = 'ID'
|
||||
DataType = datAutoInc
|
||||
GeneratorName = 'GEN_PEDIDOS_CLI_DETALLES_ID'
|
||||
GeneratorName = 'GEN_PEDIDOS_CLI_DET_COLOR_ID'
|
||||
Required = True
|
||||
DictionaryEntry = 'PedidosCliente_Detalles_ID'
|
||||
DictionaryEntry = 'PedidosCliente_Detalle_Color_ID'
|
||||
InPrimaryKey = True
|
||||
end
|
||||
item
|
||||
Name = 'ID_DETALLE'
|
||||
DataType = datInteger
|
||||
DisplayLabel = 'PedidosCliente_Detalle_Color_ID_DETALLE'
|
||||
DictionaryEntry = 'PedidosCliente_Detalle_Color_ID_DETALLE'
|
||||
end
|
||||
item
|
||||
Name = 'COLOR1'
|
||||
DataType = datInteger
|
||||
DisplayLabel = 'PedidosCliente_Detalle_Color_COLOR1'
|
||||
DictionaryEntry = 'PedidosCliente_Detalle_Color_COLOR1'
|
||||
end
|
||||
item
|
||||
Name = 'COLOR2'
|
||||
DataType = datInteger
|
||||
DisplayLabel = 'PedidosCliente_Detalle_Color_COLOR2'
|
||||
DictionaryEntry = 'PedidosCliente_Detalle_Color_COLOR2'
|
||||
end
|
||||
item
|
||||
Name = 'COLOR3'
|
||||
DataType = datInteger
|
||||
DisplayLabel = 'PedidosCliente_Detalle_Color_COLOR3'
|
||||
DictionaryEntry = 'PedidosCliente_Detalle_Color_COLOR3'
|
||||
end
|
||||
item
|
||||
Name = 'COLOR4'
|
||||
DataType = datInteger
|
||||
DisplayLabel = 'PedidosCliente_Detalle_Color_COLOR4'
|
||||
DictionaryEntry = 'PedidosCliente_Detalle_Color_COLOR4'
|
||||
end
|
||||
item
|
||||
Name = 'COLOR5'
|
||||
DataType = datInteger
|
||||
DisplayLabel = 'PedidosCliente_Detalle_Color_COLOR5'
|
||||
DictionaryEntry = 'PedidosCliente_Detalle_Color_COLOR5'
|
||||
end
|
||||
item
|
||||
Name = 'COLOR6'
|
||||
DataType = datInteger
|
||||
DisplayLabel = 'PedidosCliente_Detalle_Color_COLOR6'
|
||||
DictionaryEntry = 'PedidosCliente_Detalle_Color_COLOR6'
|
||||
end
|
||||
item
|
||||
Name = 'COLOR7'
|
||||
DataType = datInteger
|
||||
DisplayLabel = 'PedidosCliente_Detalle_Color_COLOR7'
|
||||
DictionaryEntry = 'PedidosCliente_Detalle_Color_COLOR7'
|
||||
end
|
||||
item
|
||||
Name = 'COLOR8'
|
||||
DataType = datInteger
|
||||
DisplayLabel = 'PedidosCliente_Detalle_Color_COLOR8'
|
||||
DictionaryEntry = 'PedidosCliente_Detalle_Color_COLOR8'
|
||||
end
|
||||
item
|
||||
Name = 'COLOR9'
|
||||
DataType = datInteger
|
||||
DisplayLabel = 'PedidosCliente_Detalle_Color_COLOR9'
|
||||
DictionaryEntry = 'PedidosCliente_Detalle_Color_COLOR9'
|
||||
end
|
||||
item
|
||||
Name = 'COLOR10'
|
||||
DataType = datInteger
|
||||
DisplayLabel = 'PedidosCliente_Detalle_Color_COLOR10'
|
||||
DictionaryEntry = 'PedidosCliente_Detalle_Color_COLOR10'
|
||||
end
|
||||
item
|
||||
Name = 'COLOR11'
|
||||
DataType = datInteger
|
||||
DisplayLabel = 'PedidosCliente_Detalle_Color_COLOR11'
|
||||
DictionaryEntry = 'PedidosCliente_Detalle_Color_COLOR11'
|
||||
end
|
||||
item
|
||||
Name = 'COLOR12'
|
||||
DataType = datInteger
|
||||
DisplayLabel = 'PedidosCliente_Detalle_Color_COLOR12'
|
||||
DictionaryEntry = 'PedidosCliente_Detalle_Color_COLOR12'
|
||||
end>
|
||||
Params = <>
|
||||
MasterMappingMode = mmWhere
|
||||
@ -599,4 +626,78 @@ object DataModulePedidosCliente: TDataModulePedidosCliente
|
||||
Left = 472
|
||||
Top = 48
|
||||
end
|
||||
object tbl_PedidoCliente_Art_Colores_Pendientes: TDAMemDataTable
|
||||
RemoteUpdatesOptions = []
|
||||
Fields = <
|
||||
item
|
||||
Name = 'ID_PEDIDO'
|
||||
DataType = datInteger
|
||||
end
|
||||
item
|
||||
Name = 'ID_ARTICULO'
|
||||
DataType = datInteger
|
||||
end
|
||||
item
|
||||
Name = 'COLOR1'
|
||||
DataType = datLargeInt
|
||||
end
|
||||
item
|
||||
Name = 'COLOR2'
|
||||
DataType = datLargeInt
|
||||
end
|
||||
item
|
||||
Name = 'COLOR3'
|
||||
DataType = datLargeInt
|
||||
end
|
||||
item
|
||||
Name = 'COLOR4'
|
||||
DataType = datLargeInt
|
||||
end
|
||||
item
|
||||
Name = 'COLOR5'
|
||||
DataType = datLargeInt
|
||||
end
|
||||
item
|
||||
Name = 'COLOR6'
|
||||
DataType = datLargeInt
|
||||
end
|
||||
item
|
||||
Name = 'COLOR7'
|
||||
DataType = datLargeInt
|
||||
end
|
||||
item
|
||||
Name = 'COLOR8'
|
||||
DataType = datLargeInt
|
||||
end
|
||||
item
|
||||
Name = 'COLOR9'
|
||||
DataType = datLargeInt
|
||||
end
|
||||
item
|
||||
Name = 'COLOR10'
|
||||
DataType = datLargeInt
|
||||
end
|
||||
item
|
||||
Name = 'COLOR11'
|
||||
DataType = datLargeInt
|
||||
end
|
||||
item
|
||||
Name = 'COLOR12'
|
||||
DataType = datLargeInt
|
||||
end>
|
||||
Params = <>
|
||||
MasterMappingMode = mmDataRequest
|
||||
StreamingOptions = [soDisableEventsWhileStreaming, soDisableFiltering]
|
||||
RemoteDataAdapter = rda_PedidosCliente
|
||||
LogicalName = 'PedidoCliente_Art_Colores_Pendientes'
|
||||
IndexDefs = <>
|
||||
Left = 208
|
||||
Top = 320
|
||||
end
|
||||
object ds_PedidoCliente_Art_Colores_Pendientes: TDADataSource
|
||||
DataSet = tbl_PedidoCliente_Art_Colores_Pendientes.Dataset
|
||||
DataTable = tbl_PedidoCliente_Art_Colores_Pendientes
|
||||
Left = 208
|
||||
Top = 384
|
||||
end
|
||||
end
|
||||
|
||||
@ -1,19 +1,32 @@
|
||||
object DataModulePedidosCliente: TDataModulePedidosCliente
|
||||
Left = 0
|
||||
Top = 0
|
||||
ClientHeight = 362
|
||||
ClientWidth = 805
|
||||
Color = clBtnFace
|
||||
Font.Charset = DEFAULT_CHARSET
|
||||
Font.Color = clWindowText
|
||||
Font.Height = -11
|
||||
Font.Name = 'Tahoma'
|
||||
Font.Style = []
|
||||
OldCreateOrder = True
|
||||
OnCreate = DAClientDataModuleCreate
|
||||
Height = 377
|
||||
Width = 649
|
||||
PixelsPerInch = 96
|
||||
TextHeight = 13
|
||||
object RORemoteService: TRORemoteService
|
||||
Message = dmConexion.ROMessage
|
||||
Channel = dmConexion.ROChannel
|
||||
ServiceName = 'srvPedidosCliente'
|
||||
Left = 40
|
||||
Top = 24
|
||||
end
|
||||
object tbl_PedidosCliente: TDACDSDataTable
|
||||
object tbl_PedidosCliente: TDAMemDataTable
|
||||
RemoteUpdatesOptions = []
|
||||
Fields = <
|
||||
item
|
||||
Name = 'ID'
|
||||
DataType = datAutoInc
|
||||
GeneratorName = 'GEN_PEDIDOS_CLI_ID'
|
||||
DictionaryEntry = 'PedidosCliente_ID'
|
||||
InPrimaryKey = True
|
||||
end
|
||||
@ -61,6 +74,12 @@ object DataModulePedidosCliente: TDataModulePedidosCliente
|
||||
DisplayLabel = 'Fecha pedido'
|
||||
DictionaryEntry = 'PedidosCliente_FECHA_PEDIDO'
|
||||
end
|
||||
item
|
||||
Name = 'ID_DIRECCION'
|
||||
DataType = datInteger
|
||||
DisplayLabel = 'PedidosCliente_ID_DIRECCION'
|
||||
DictionaryEntry = 'PedidosCliente_ID_DIRECCION'
|
||||
end
|
||||
item
|
||||
Name = 'CALLE'
|
||||
DataType = datString
|
||||
@ -164,6 +183,18 @@ object DataModulePedidosCliente: TDataModulePedidosCliente
|
||||
Alignment = taRightJustify
|
||||
DictionaryEntry = 'PedidosCliente_IMPORTE_DESCUENTO'
|
||||
end
|
||||
item
|
||||
Name = 'DESCUENTO2'
|
||||
DataType = datFloat
|
||||
DictionaryEntry = 'PedidosCliente_DESCUENTO2'
|
||||
end
|
||||
item
|
||||
Name = 'IMPORTE_DESCUENTO2'
|
||||
DataType = datCurrency
|
||||
DecimalPrecision = 11
|
||||
DecimalScale = 2
|
||||
DictionaryEntry = 'PedidosCliente_IMPORTE_DESCUENTO2'
|
||||
end
|
||||
item
|
||||
Name = 'BASE_IMPONIBLE'
|
||||
DataType = datCurrency
|
||||
@ -197,6 +228,13 @@ object DataModulePedidosCliente: TDataModulePedidosCliente
|
||||
DataType = datInteger
|
||||
DictionaryEntry = 'PedidosCliente_ID_FORMA_PAGO'
|
||||
end
|
||||
item
|
||||
Name = 'FORMA_PAGO'
|
||||
DataType = datString
|
||||
Size = 255
|
||||
DisplayLabel = 'PedidosCliente_FORMA_PAGO'
|
||||
DictionaryEntry = 'PedidosCliente_FORMA_PAGO'
|
||||
end
|
||||
item
|
||||
Name = 'REF_TIENDA_WEB'
|
||||
DataType = datInteger
|
||||
@ -209,16 +247,15 @@ object DataModulePedidosCliente: TDataModulePedidosCliente
|
||||
DictionaryEntry = 'PedidosCliente_FECHA_PREVISTA_ENVIO'
|
||||
end
|
||||
item
|
||||
Name = 'NUM_COPIAS'
|
||||
DataType = datInteger
|
||||
end
|
||||
item
|
||||
Name = 'NUM_CORREOS'
|
||||
DataType = datInteger
|
||||
Name = 'DATOS_BANCARIOS'
|
||||
DataType = datString
|
||||
Size = 255
|
||||
DisplayLabel = 'PedidosCliente_DATOS_BANCARIOS'
|
||||
DictionaryEntry = 'PedidosCliente_DATOS_BANCARIOS'
|
||||
end>
|
||||
Params = <>
|
||||
MasterMappingMode = mmDataRequest
|
||||
StreamingOptions = [soDisableEventsWhileStreaming]
|
||||
RemoteDataAdapter = rda_PedidosCliente
|
||||
LogicalName = 'PedidosCliente'
|
||||
IndexDefs = <>
|
||||
Left = 208
|
||||
@ -230,12 +267,13 @@ object DataModulePedidosCliente: TDataModulePedidosCliente
|
||||
Left = 208
|
||||
Top = 48
|
||||
end
|
||||
object tbl_PedidosCliente_Detalles: TDACDSDataTable
|
||||
object tbl_PedidosCliente_Detalles: TDAMemDataTable
|
||||
RemoteUpdatesOptions = []
|
||||
Fields = <
|
||||
item
|
||||
Name = 'ID'
|
||||
DataType = datAutoInc
|
||||
GeneratorName = 'GEN_PEDIDOS_CLI_DETALLES_ID'
|
||||
Required = True
|
||||
DictionaryEntry = 'PedidosCliente_Detalles_ID'
|
||||
InPrimaryKey = True
|
||||
@ -256,6 +294,11 @@ object DataModulePedidosCliente: TDataModulePedidosCliente
|
||||
Size = 10
|
||||
DictionaryEntry = 'PedidosCliente_Detalles_TIPO_DETALLE'
|
||||
end
|
||||
item
|
||||
Name = 'ID_ARTICULO'
|
||||
DataType = datInteger
|
||||
DictionaryEntry = 'PedidosCliente_Detalles_ID_ARTICULO'
|
||||
end
|
||||
item
|
||||
Name = 'REFERENCIA'
|
||||
DataType = datString
|
||||
@ -264,9 +307,11 @@ object DataModulePedidosCliente: TDataModulePedidosCliente
|
||||
DictionaryEntry = 'PedidosCliente_Detalles_REFERENCIA'
|
||||
end
|
||||
item
|
||||
Name = 'ID_ARTICULO'
|
||||
DataType = datInteger
|
||||
DictionaryEntry = 'PedidosCliente_Detalles_ID_ARTICULO'
|
||||
Name = 'REFERENCIA_PROVEEDOR'
|
||||
DataType = datString
|
||||
Size = 255
|
||||
DisplayLabel = 'Ref. proveedor'
|
||||
DictionaryEntry = 'PedidosCliente_Detalles_REFERENCIA_PROVEEDOR'
|
||||
end
|
||||
item
|
||||
Name = 'CONCEPTO'
|
||||
@ -276,9 +321,10 @@ object DataModulePedidosCliente: TDataModulePedidosCliente
|
||||
end
|
||||
item
|
||||
Name = 'CANTIDAD'
|
||||
DataType = datInteger
|
||||
DataType = datFloat
|
||||
DisplayLabel = 'PedidosCliente_Detalles_CANTIDAD'
|
||||
Alignment = taRightJustify
|
||||
DictionaryEntry = 'CANTIDAD'
|
||||
DictionaryEntry = 'PedidosCliente_Detalles_CANTIDAD'
|
||||
end
|
||||
item
|
||||
Name = 'IMPORTE_UNIDAD'
|
||||
@ -288,11 +334,10 @@ object DataModulePedidosCliente: TDataModulePedidosCliente
|
||||
DictionaryEntry = 'PedidosCliente_Detalles_IMPORTE_UNIDAD'
|
||||
end
|
||||
item
|
||||
Name = 'IMPORTE_TOTAL'
|
||||
DataType = datCurrency
|
||||
DisplayLabel = 'Importe total'
|
||||
Alignment = taRightJustify
|
||||
DictionaryEntry = 'PedidosCliente_Detalles_IMPORTE_TOTAL'
|
||||
Name = 'UNIDAD_MEDIDA'
|
||||
DataType = datString
|
||||
DisplayLabel = 'PedidosCliente_Detalles_UNIDAD_MEDIDA'
|
||||
DictionaryEntry = 'PedidosCliente_Detalles_UNIDAD_MEDIDA'
|
||||
end
|
||||
item
|
||||
Name = 'DESCUENTO'
|
||||
@ -309,28 +354,24 @@ object DataModulePedidosCliente: TDataModulePedidosCliente
|
||||
Alignment = taRightJustify
|
||||
DictionaryEntry = 'PedidosCliente_Detalles_IMPORTE_PORTE'
|
||||
end
|
||||
item
|
||||
Name = 'IMPORTE_TOTAL'
|
||||
DataType = datCurrency
|
||||
DisplayLabel = 'Importe total'
|
||||
Alignment = taRightJustify
|
||||
DictionaryEntry = 'PedidosCliente_Detalles_IMPORTE_TOTAL'
|
||||
end
|
||||
item
|
||||
Name = 'VISIBLE'
|
||||
DataType = datInteger
|
||||
DictionaryEntry = 'PedidosCliente_Detalles_VISIBLE'
|
||||
end
|
||||
item
|
||||
Name = 'REFERENCIA_PROVEEDOR'
|
||||
DataType = datString
|
||||
Size = 255
|
||||
DisplayLabel = 'Ref. proveedor'
|
||||
DictionaryEntry = 'PedidosCliente_Detalles_REFERENCIA_PROVEEDOR'
|
||||
end>
|
||||
Params = <
|
||||
item
|
||||
Name = 'ID_PEDIDO'
|
||||
DataType = datInteger
|
||||
Value = ''
|
||||
ParamType = daptInput
|
||||
end>
|
||||
Params = <>
|
||||
MasterMappingMode = mmWhere
|
||||
MasterParamsMappings.Strings = (
|
||||
'ID_PEDIDO=ID')
|
||||
StreamingOptions = [soDisableEventsWhileStreaming]
|
||||
RemoteDataAdapter = rda_PedidosCliente
|
||||
MasterSource = ds_PedidosCliente
|
||||
MasterFields = 'ID'
|
||||
DetailFields = 'ID_PEDIDO'
|
||||
@ -345,7 +386,7 @@ object DataModulePedidosCliente: TDataModulePedidosCliente
|
||||
Left = 329
|
||||
Top = 48
|
||||
end
|
||||
object tbl_PedidoCliente_Articulos_Pendientes: TDACDSDataTable
|
||||
object tbl_PedidoCliente_Articulos_Pendientes: TDAMemDataTable
|
||||
RemoteUpdatesOptions = []
|
||||
Fields = <
|
||||
item
|
||||
@ -395,7 +436,7 @@ object DataModulePedidosCliente: TDataModulePedidosCliente
|
||||
Left = 208
|
||||
Top = 256
|
||||
end
|
||||
object tbl_PedidoCliente_ArticulosPendientesPedirAProv: TDACDSDataTable
|
||||
object tbl_PedidoCliente_ArticulosPendientesPedirAProv: TDAMemDataTable
|
||||
RemoteUpdatesOptions = []
|
||||
Fields = <
|
||||
item
|
||||
@ -450,7 +491,7 @@ object DataModulePedidosCliente: TDataModulePedidosCliente
|
||||
Left = 440
|
||||
Top = 256
|
||||
end
|
||||
object tbl_ListaAnosPedidos: TDACDSDataTable
|
||||
object tbl_ListaAnosPedidos: TDAMemDataTable
|
||||
RemoteUpdatesOptions = []
|
||||
Fields = <
|
||||
item
|
||||
@ -461,16 +502,17 @@ object DataModulePedidosCliente: TDataModulePedidosCliente
|
||||
Params = <>
|
||||
MasterMappingMode = mmDataRequest
|
||||
StreamingOptions = [soDisableEventsWhileStreaming]
|
||||
RemoteDataAdapter = rda_PedidosCliente
|
||||
LogicalName = 'ListaAnosPedidos'
|
||||
IndexDefs = <>
|
||||
Left = 520
|
||||
Top = 112
|
||||
Left = 632
|
||||
Top = 264
|
||||
end
|
||||
object ds_ListaAnosPedidos: TDADataSource
|
||||
DataSet = tbl_ListaAnosPedidos.Dataset
|
||||
DataTable = tbl_ListaAnosPedidos
|
||||
Left = 520
|
||||
Top = 48
|
||||
Left = 624
|
||||
Top = 200
|
||||
end
|
||||
object Bin2DataStreamer: TDABin2DataStreamer
|
||||
Left = 40
|
||||
@ -486,4 +528,85 @@ object DataModulePedidosCliente: TDataModulePedidosCliente
|
||||
Left = 43
|
||||
Top = 143
|
||||
end
|
||||
object tbl_PedidosCliente_Detalle_Color: TDAMemDataTable
|
||||
RemoteUpdatesOptions = []
|
||||
Fields = <
|
||||
item
|
||||
Name = 'ID'
|
||||
DataType = datAutoInc
|
||||
GeneratorName = 'GEN_PEDIDOS_CLI_DETALLES_ID'
|
||||
Required = True
|
||||
DictionaryEntry = 'PedidosCliente_Detalles_ID'
|
||||
InPrimaryKey = True
|
||||
end
|
||||
item
|
||||
Name = 'ID_DETALLE'
|
||||
DataType = datInteger
|
||||
end
|
||||
item
|
||||
Name = 'COLOR1'
|
||||
DataType = datInteger
|
||||
end
|
||||
item
|
||||
Name = 'COLOR2'
|
||||
DataType = datInteger
|
||||
end
|
||||
item
|
||||
Name = 'COLOR3'
|
||||
DataType = datInteger
|
||||
end
|
||||
item
|
||||
Name = 'COLOR4'
|
||||
DataType = datInteger
|
||||
end
|
||||
item
|
||||
Name = 'COLOR5'
|
||||
DataType = datInteger
|
||||
end
|
||||
item
|
||||
Name = 'COLOR6'
|
||||
DataType = datInteger
|
||||
end
|
||||
item
|
||||
Name = 'COLOR7'
|
||||
DataType = datInteger
|
||||
end
|
||||
item
|
||||
Name = 'COLOR8'
|
||||
DataType = datInteger
|
||||
end
|
||||
item
|
||||
Name = 'COLOR9'
|
||||
DataType = datInteger
|
||||
end
|
||||
item
|
||||
Name = 'COLOR10'
|
||||
DataType = datInteger
|
||||
end
|
||||
item
|
||||
Name = 'COLOR11'
|
||||
DataType = datInteger
|
||||
end
|
||||
item
|
||||
Name = 'COLOR12'
|
||||
DataType = datInteger
|
||||
end>
|
||||
Params = <>
|
||||
MasterMappingMode = mmWhere
|
||||
StreamingOptions = [soDisableEventsWhileStreaming, soDisableFiltering]
|
||||
RemoteDataAdapter = rda_PedidosCliente
|
||||
MasterSource = ds_PedidosCliente_Detalles
|
||||
MasterFields = 'ID'
|
||||
DetailFields = 'ID_DETALLE'
|
||||
LogicalName = 'PedidosCliente_Detalle_Color'
|
||||
IndexDefs = <>
|
||||
Left = 472
|
||||
Top = 104
|
||||
end
|
||||
object ds_PedidosCliente_Detalle_Color: TDADataSource
|
||||
DataSet = tbl_PedidosCliente_Detalle_Color.Dataset
|
||||
DataTable = tbl_PedidosCliente_Detalle_Color
|
||||
Left = 472
|
||||
Top = 48
|
||||
end
|
||||
end
|
||||
|
||||
@ -3,17 +3,18 @@ unit uDataModulePedidosCliente;
|
||||
interface
|
||||
|
||||
uses
|
||||
DB, Classes, SysUtils, uDADesigntimeCall,
|
||||
DB, Classes, SysUtils, uDADesigntimeCall, uROTypes,
|
||||
uRORemoteService, uROClient, uROBinMessage, uDAScriptingProvider,
|
||||
uDAMemDataTable, uROWinInetHttpChannel, uDADataTable, uDABINAdapter,
|
||||
uDACDSDataTable, uROWinInetHttpChannel, uDADataTable, uDABINAdapter,
|
||||
|
||||
uDAClientDataModule, uROTypes, uIntegerListUtils,
|
||||
uIDataModulePedidosCliente, uBizPedidosCliente, uBizDetallesPedidoCliente, uBizDetalleColoresPedidoCliente,
|
||||
uIDataModulePedidosClienteReport, uDADataAdapter, uDARemoteDataAdapter,
|
||||
uDADataStreamer, uDABin2DataStreamer, uDAInterfaces, uDACDSDataTable;
|
||||
uIDataModulePedidosClienteReport, uDataModuleBase, uDABin2DataStreamer, uDAMemDataTable,
|
||||
uDAInterfaces, uDADataStreamer, uDARemoteDataAdapter, uIntegerListUtils,
|
||||
uDADataAdapter;
|
||||
|
||||
|
||||
type
|
||||
TDataModulePedidosCliente = class(TDAClientDataModule, IDataModulePedidosCliente, IDataModulePedidosClienteReport)
|
||||
TDataModulePedidosCliente = class(TDataModuleBase, IDataModulePedidosCliente, IDataModulePedidosClienteReport)
|
||||
RORemoteService: TRORemoteService;
|
||||
tbl_PedidosCliente: TDAMemDataTable;
|
||||
ds_PedidosCliente: TDADataSource;
|
||||
@ -29,6 +30,8 @@ type
|
||||
rda_PedidosCliente: TDARemoteDataAdapter;
|
||||
tbl_PedidosCliente_Detalle_Color: TDAMemDataTable;
|
||||
ds_PedidosCliente_Detalle_Color: TDADataSource;
|
||||
tbl_PedidoCliente_Art_Colores_Pendientes: TDAMemDataTable;
|
||||
ds_PedidoCliente_Art_Colores_Pendientes: TDADataSource;
|
||||
procedure DAClientDataModuleCreate(Sender: TObject);
|
||||
|
||||
private
|
||||
@ -45,6 +48,7 @@ type
|
||||
|
||||
function GetArticulosPendientesPedirAProv(const IDPedido: Integer): IBizPedidoClienteArticulosPendientesPedirAProv;
|
||||
function GetArticulosPendientes(const IDPedido: Integer): IBizPedidoClienteArticulosPend;
|
||||
function GetArtColoresPendientes: IBizPedidoClienteArtColoresPend;
|
||||
|
||||
// Report
|
||||
function GetRptPedidos(const ListaID: TIntegerList): Binary;
|
||||
@ -150,22 +154,34 @@ begin
|
||||
end;
|
||||
end;
|
||||
|
||||
function TDataModulePedidosCliente.GetArtColoresPendientes: IBizPedidoClienteArtColoresPend;
|
||||
var
|
||||
AArtColores : TDAMemDataTable;
|
||||
begin
|
||||
ShowHourglassCursor;
|
||||
try
|
||||
AArtColores := CloneDataTable(tbl_PedidoCliente_Art_Colores_Pendientes);
|
||||
AArtColores.BusinessRulesID := BIZ_CLIENT_ARTCOLORES_PEND_PEDIDO_CLIENTE;
|
||||
Result := (AArtColores as IBizPedidoClienteArtColoresPend);
|
||||
finally
|
||||
HideHourglassCursor;
|
||||
end;
|
||||
end;
|
||||
|
||||
function TDataModulePedidosCliente.GetArticulosPendientes(
|
||||
const IDPedido: Integer): IBizPedidoClienteArticulosPend;
|
||||
var
|
||||
AArticulos : TDAMemDataTable;
|
||||
begin
|
||||
{
|
||||
ShowHourglassCursor;
|
||||
try
|
||||
AArticulos := _CloneDataTable(tbl_PedidoCliente_Articulos_Pendientes);
|
||||
AArticulos := CloneDataTable(tbl_PedidoCliente_Articulos_Pendientes);
|
||||
AArticulos.BusinessRulesID := BIZ_CLIENT_ARTICULOS_PEND_PEDIDO_CLIENTE;
|
||||
AArticulos.ParamByName('ID_PEDIDO').AsInteger := IDPedido;
|
||||
Result := (AArticulos as IBizPedidoClienteArticulosPend);
|
||||
finally
|
||||
HideHourglassCursor;
|
||||
end;
|
||||
}
|
||||
end;
|
||||
|
||||
function TDataModulePedidosCliente.GetArticulosPendientesPedirAProv(
|
||||
@ -217,13 +233,12 @@ begin
|
||||
ShowHourglassCursor;
|
||||
try
|
||||
APedido := CloneDataTable(tbl_PedidosCliente);
|
||||
AsignarClaseNegocio(APedido);
|
||||
|
||||
// EL CAMPO REFERENCIA Y SITUACIÓN TIENEN QUE SER AUTOREFRESH!!!!!
|
||||
APedido.FieldByName(fld_PedidosClienteREFERENCIA).ServerAutoRefresh := TRUE;
|
||||
APedido.FieldByName(fld_PedidosClienteSITUACION).ServerAutoRefresh := TRUE;
|
||||
|
||||
AsignarClaseNegocio(APedido);
|
||||
|
||||
with TBizPedidoCliente(APedido.BusinessEventsObj) do
|
||||
begin
|
||||
Detalles := _GetDetalles;
|
||||
|
||||
@ -13,6 +13,7 @@ type
|
||||
function GetItem(const ID : Integer) : IBizPedidoCliente;
|
||||
function NewItem : IBizPedidoCliente;
|
||||
function GetArticulosPendientes(const IDPedido: Integer): IBizPedidoClienteArticulosPend;
|
||||
function GetArtColoresPendientes: IBizPedidoClienteArtColoresPend;
|
||||
function GetArticulosPendientesPedirAProv(const IDPedido: Integer): IBizPedidoClienteArticulosPendientesPedirAProv;
|
||||
end;
|
||||
|
||||
|
||||
@ -12,5 +12,5 @@ STRINGTABLE
|
||||
BEGIN
|
||||
END
|
||||
|
||||
/* C:\Codigo Noviseda\Source\Modulos\Pedidos de cliente\Model\PedidosCliente_model.res */
|
||||
/* C:\Codigo Noviseda\Source\Modulos\Pedidos de cliente\Model\PedidosCliente_model.drf */
|
||||
/* C:\Codigo noviseda\Source\Modulos\Pedidos de cliente\Model\PedidosCliente_model.res */
|
||||
/* C:\DOCUME~1\Usuario\CONFIG~1\Temp\dtf1D2.tmp */
|
||||
|
||||
Binary file not shown.
@ -4,20 +4,22 @@ unit schPedidosClienteClient_Intf;
|
||||
interface
|
||||
|
||||
uses
|
||||
Classes, DB, SysUtils, uROClasses, uDAInterfaces, uDADataTable, FmtBCD, uROXMLIntf;
|
||||
Classes, DB, schBase_Intf, SysUtils, uROClasses, uDAInterfaces, uDADataTable, FmtBCD, uROXMLIntf;
|
||||
|
||||
const
|
||||
{ Data table rules ids
|
||||
Feel free to change them to something more human readable
|
||||
but make sure they are unique in the context of your application }
|
||||
RID_ListaAnosPedidos = '{69ED4D2A-C692-4F24-BC5B-8893D377C1AC}';
|
||||
RID_PedidoCliente_ArticulosPendientesPedirAProv = '{CC176519-3A83-42DE-877D-76AD039A7FBF}';
|
||||
RID_PedidosCliente = '{285F9D98-1E3E-441A-AA07-1DDF2D1E5697}';
|
||||
RID_PedidosCliente_Detalles = '{8FC465FD-CB58-49CA-B962-3C0F8296244A}';
|
||||
RID_PedidoCliente_Articulos_Pendientes = '{AC15597C-6504-4224-BFF7-E45D45A62F0D}';
|
||||
RID_PedidosCliente_Detalle_Color = '{5571EC96-859E-4DAA-873E-819E0047DAE5}';
|
||||
RID_PedidoCliente_Art_Colores_Pendientes = '{54115F75-2664-4E4F-834E-124EEB0C84B3}';
|
||||
RID_ListaAnosPedidos = '{9403FEF1-C5C3-4D71-912B-76B2CC833DC0}';
|
||||
RID_PedidoCliente_ArticulosPendientesPedirAProv = '{64718B70-7CF0-4EF9-A4DD-E518DFFB5F2F}';
|
||||
RID_PedidosCliente = '{20E17637-C877-4040-AC6F-41ED17EE7749}';
|
||||
RID_PedidosCliente_Detalles = '{8E4556EF-6251-447B-9A2F-314B00880A8F}';
|
||||
RID_PedidoCliente_Articulos_Pendientes = '{2886183F-49D3-4FD3-AA9C-E1B0DFB28894}';
|
||||
RID_PedidosCliente_Detalle_Color = '{4DF3B5B1-846C-421F-9A5E-ED56D6D45201}';
|
||||
|
||||
{ Data table names }
|
||||
nme_PedidoCliente_Art_Colores_Pendientes = 'PedidoCliente_Art_Colores_Pendientes';
|
||||
nme_ListaAnosPedidos = 'ListaAnosPedidos';
|
||||
nme_PedidoCliente_ArticulosPendientesPedirAProv = 'PedidoCliente_ArticulosPendientesPedirAProv';
|
||||
nme_PedidosCliente = 'PedidosCliente';
|
||||
@ -25,6 +27,38 @@ const
|
||||
nme_PedidoCliente_Articulos_Pendientes = 'PedidoCliente_Articulos_Pendientes';
|
||||
nme_PedidosCliente_Detalle_Color = 'PedidosCliente_Detalle_Color';
|
||||
|
||||
{ PedidoCliente_Art_Colores_Pendientes fields }
|
||||
fld_PedidoCliente_Art_Colores_PendientesID_PEDIDO = 'ID_PEDIDO';
|
||||
fld_PedidoCliente_Art_Colores_PendientesID_ARTICULO = 'ID_ARTICULO';
|
||||
fld_PedidoCliente_Art_Colores_PendientesCOLOR1 = 'COLOR1';
|
||||
fld_PedidoCliente_Art_Colores_PendientesCOLOR2 = 'COLOR2';
|
||||
fld_PedidoCliente_Art_Colores_PendientesCOLOR3 = 'COLOR3';
|
||||
fld_PedidoCliente_Art_Colores_PendientesCOLOR4 = 'COLOR4';
|
||||
fld_PedidoCliente_Art_Colores_PendientesCOLOR5 = 'COLOR5';
|
||||
fld_PedidoCliente_Art_Colores_PendientesCOLOR6 = 'COLOR6';
|
||||
fld_PedidoCliente_Art_Colores_PendientesCOLOR7 = 'COLOR7';
|
||||
fld_PedidoCliente_Art_Colores_PendientesCOLOR8 = 'COLOR8';
|
||||
fld_PedidoCliente_Art_Colores_PendientesCOLOR9 = 'COLOR9';
|
||||
fld_PedidoCliente_Art_Colores_PendientesCOLOR10 = 'COLOR10';
|
||||
fld_PedidoCliente_Art_Colores_PendientesCOLOR11 = 'COLOR11';
|
||||
fld_PedidoCliente_Art_Colores_PendientesCOLOR12 = 'COLOR12';
|
||||
|
||||
{ PedidoCliente_Art_Colores_Pendientes field indexes }
|
||||
idx_PedidoCliente_Art_Colores_PendientesID_PEDIDO = 0;
|
||||
idx_PedidoCliente_Art_Colores_PendientesID_ARTICULO = 1;
|
||||
idx_PedidoCliente_Art_Colores_PendientesCOLOR1 = 2;
|
||||
idx_PedidoCliente_Art_Colores_PendientesCOLOR2 = 3;
|
||||
idx_PedidoCliente_Art_Colores_PendientesCOLOR3 = 4;
|
||||
idx_PedidoCliente_Art_Colores_PendientesCOLOR4 = 5;
|
||||
idx_PedidoCliente_Art_Colores_PendientesCOLOR5 = 6;
|
||||
idx_PedidoCliente_Art_Colores_PendientesCOLOR6 = 7;
|
||||
idx_PedidoCliente_Art_Colores_PendientesCOLOR7 = 8;
|
||||
idx_PedidoCliente_Art_Colores_PendientesCOLOR8 = 9;
|
||||
idx_PedidoCliente_Art_Colores_PendientesCOLOR9 = 10;
|
||||
idx_PedidoCliente_Art_Colores_PendientesCOLOR10 = 11;
|
||||
idx_PedidoCliente_Art_Colores_PendientesCOLOR11 = 12;
|
||||
idx_PedidoCliente_Art_Colores_PendientesCOLOR12 = 13;
|
||||
|
||||
{ ListaAnosPedidos fields }
|
||||
fld_ListaAnosPedidosANO = 'ANO';
|
||||
|
||||
@ -202,9 +236,200 @@ const
|
||||
idx_PedidosCliente_Detalle_ColorCOLOR12 = 13;
|
||||
|
||||
type
|
||||
{ IPedidoCliente_Art_Colores_Pendientes }
|
||||
IPedidoCliente_Art_Colores_Pendientes = interface(IDAStronglyTypedDataTable)
|
||||
['{32201652-7936-46E1-85CA-543B750E39B6}']
|
||||
{ Property getters and setters }
|
||||
function GetID_PEDIDOValue: Integer;
|
||||
procedure SetID_PEDIDOValue(const aValue: Integer);
|
||||
function GetID_PEDIDOIsNull: Boolean;
|
||||
procedure SetID_PEDIDOIsNull(const aValue: Boolean);
|
||||
function GetID_ARTICULOValue: Integer;
|
||||
procedure SetID_ARTICULOValue(const aValue: Integer);
|
||||
function GetID_ARTICULOIsNull: Boolean;
|
||||
procedure SetID_ARTICULOIsNull(const aValue: Boolean);
|
||||
function GetCOLOR1Value: Int64;
|
||||
procedure SetCOLOR1Value(const aValue: Int64);
|
||||
function GetCOLOR1IsNull: Boolean;
|
||||
procedure SetCOLOR1IsNull(const aValue: Boolean);
|
||||
function GetCOLOR2Value: Int64;
|
||||
procedure SetCOLOR2Value(const aValue: Int64);
|
||||
function GetCOLOR2IsNull: Boolean;
|
||||
procedure SetCOLOR2IsNull(const aValue: Boolean);
|
||||
function GetCOLOR3Value: Int64;
|
||||
procedure SetCOLOR3Value(const aValue: Int64);
|
||||
function GetCOLOR3IsNull: Boolean;
|
||||
procedure SetCOLOR3IsNull(const aValue: Boolean);
|
||||
function GetCOLOR4Value: Int64;
|
||||
procedure SetCOLOR4Value(const aValue: Int64);
|
||||
function GetCOLOR4IsNull: Boolean;
|
||||
procedure SetCOLOR4IsNull(const aValue: Boolean);
|
||||
function GetCOLOR5Value: Int64;
|
||||
procedure SetCOLOR5Value(const aValue: Int64);
|
||||
function GetCOLOR5IsNull: Boolean;
|
||||
procedure SetCOLOR5IsNull(const aValue: Boolean);
|
||||
function GetCOLOR6Value: Int64;
|
||||
procedure SetCOLOR6Value(const aValue: Int64);
|
||||
function GetCOLOR6IsNull: Boolean;
|
||||
procedure SetCOLOR6IsNull(const aValue: Boolean);
|
||||
function GetCOLOR7Value: Int64;
|
||||
procedure SetCOLOR7Value(const aValue: Int64);
|
||||
function GetCOLOR7IsNull: Boolean;
|
||||
procedure SetCOLOR7IsNull(const aValue: Boolean);
|
||||
function GetCOLOR8Value: Int64;
|
||||
procedure SetCOLOR8Value(const aValue: Int64);
|
||||
function GetCOLOR8IsNull: Boolean;
|
||||
procedure SetCOLOR8IsNull(const aValue: Boolean);
|
||||
function GetCOLOR9Value: Int64;
|
||||
procedure SetCOLOR9Value(const aValue: Int64);
|
||||
function GetCOLOR9IsNull: Boolean;
|
||||
procedure SetCOLOR9IsNull(const aValue: Boolean);
|
||||
function GetCOLOR10Value: Int64;
|
||||
procedure SetCOLOR10Value(const aValue: Int64);
|
||||
function GetCOLOR10IsNull: Boolean;
|
||||
procedure SetCOLOR10IsNull(const aValue: Boolean);
|
||||
function GetCOLOR11Value: Int64;
|
||||
procedure SetCOLOR11Value(const aValue: Int64);
|
||||
function GetCOLOR11IsNull: Boolean;
|
||||
procedure SetCOLOR11IsNull(const aValue: Boolean);
|
||||
function GetCOLOR12Value: Int64;
|
||||
procedure SetCOLOR12Value(const aValue: Int64);
|
||||
function GetCOLOR12IsNull: Boolean;
|
||||
procedure SetCOLOR12IsNull(const aValue: Boolean);
|
||||
|
||||
|
||||
{ Properties }
|
||||
property ID_PEDIDO: Integer read GetID_PEDIDOValue write SetID_PEDIDOValue;
|
||||
property ID_PEDIDOIsNull: Boolean read GetID_PEDIDOIsNull write SetID_PEDIDOIsNull;
|
||||
property ID_ARTICULO: Integer read GetID_ARTICULOValue write SetID_ARTICULOValue;
|
||||
property ID_ARTICULOIsNull: Boolean read GetID_ARTICULOIsNull write SetID_ARTICULOIsNull;
|
||||
property COLOR1: Int64 read GetCOLOR1Value write SetCOLOR1Value;
|
||||
property COLOR1IsNull: Boolean read GetCOLOR1IsNull write SetCOLOR1IsNull;
|
||||
property COLOR2: Int64 read GetCOLOR2Value write SetCOLOR2Value;
|
||||
property COLOR2IsNull: Boolean read GetCOLOR2IsNull write SetCOLOR2IsNull;
|
||||
property COLOR3: Int64 read GetCOLOR3Value write SetCOLOR3Value;
|
||||
property COLOR3IsNull: Boolean read GetCOLOR3IsNull write SetCOLOR3IsNull;
|
||||
property COLOR4: Int64 read GetCOLOR4Value write SetCOLOR4Value;
|
||||
property COLOR4IsNull: Boolean read GetCOLOR4IsNull write SetCOLOR4IsNull;
|
||||
property COLOR5: Int64 read GetCOLOR5Value write SetCOLOR5Value;
|
||||
property COLOR5IsNull: Boolean read GetCOLOR5IsNull write SetCOLOR5IsNull;
|
||||
property COLOR6: Int64 read GetCOLOR6Value write SetCOLOR6Value;
|
||||
property COLOR6IsNull: Boolean read GetCOLOR6IsNull write SetCOLOR6IsNull;
|
||||
property COLOR7: Int64 read GetCOLOR7Value write SetCOLOR7Value;
|
||||
property COLOR7IsNull: Boolean read GetCOLOR7IsNull write SetCOLOR7IsNull;
|
||||
property COLOR8: Int64 read GetCOLOR8Value write SetCOLOR8Value;
|
||||
property COLOR8IsNull: Boolean read GetCOLOR8IsNull write SetCOLOR8IsNull;
|
||||
property COLOR9: Int64 read GetCOLOR9Value write SetCOLOR9Value;
|
||||
property COLOR9IsNull: Boolean read GetCOLOR9IsNull write SetCOLOR9IsNull;
|
||||
property COLOR10: Int64 read GetCOLOR10Value write SetCOLOR10Value;
|
||||
property COLOR10IsNull: Boolean read GetCOLOR10IsNull write SetCOLOR10IsNull;
|
||||
property COLOR11: Int64 read GetCOLOR11Value write SetCOLOR11Value;
|
||||
property COLOR11IsNull: Boolean read GetCOLOR11IsNull write SetCOLOR11IsNull;
|
||||
property COLOR12: Int64 read GetCOLOR12Value write SetCOLOR12Value;
|
||||
property COLOR12IsNull: Boolean read GetCOLOR12IsNull write SetCOLOR12IsNull;
|
||||
end;
|
||||
|
||||
{ TPedidoCliente_Art_Colores_PendientesDataTableRules }
|
||||
TPedidoCliente_Art_Colores_PendientesDataTableRules = class(TIntfObjectDADataTableRules, IPedidoCliente_Art_Colores_Pendientes)
|
||||
private
|
||||
protected
|
||||
{ Property getters and setters }
|
||||
function GetID_PEDIDOValue: Integer; virtual;
|
||||
procedure SetID_PEDIDOValue(const aValue: Integer); virtual;
|
||||
function GetID_PEDIDOIsNull: Boolean; virtual;
|
||||
procedure SetID_PEDIDOIsNull(const aValue: Boolean); virtual;
|
||||
function GetID_ARTICULOValue: Integer; virtual;
|
||||
procedure SetID_ARTICULOValue(const aValue: Integer); virtual;
|
||||
function GetID_ARTICULOIsNull: Boolean; virtual;
|
||||
procedure SetID_ARTICULOIsNull(const aValue: Boolean); virtual;
|
||||
function GetCOLOR1Value: Int64; virtual;
|
||||
procedure SetCOLOR1Value(const aValue: Int64); virtual;
|
||||
function GetCOLOR1IsNull: Boolean; virtual;
|
||||
procedure SetCOLOR1IsNull(const aValue: Boolean); virtual;
|
||||
function GetCOLOR2Value: Int64; virtual;
|
||||
procedure SetCOLOR2Value(const aValue: Int64); virtual;
|
||||
function GetCOLOR2IsNull: Boolean; virtual;
|
||||
procedure SetCOLOR2IsNull(const aValue: Boolean); virtual;
|
||||
function GetCOLOR3Value: Int64; virtual;
|
||||
procedure SetCOLOR3Value(const aValue: Int64); virtual;
|
||||
function GetCOLOR3IsNull: Boolean; virtual;
|
||||
procedure SetCOLOR3IsNull(const aValue: Boolean); virtual;
|
||||
function GetCOLOR4Value: Int64; virtual;
|
||||
procedure SetCOLOR4Value(const aValue: Int64); virtual;
|
||||
function GetCOLOR4IsNull: Boolean; virtual;
|
||||
procedure SetCOLOR4IsNull(const aValue: Boolean); virtual;
|
||||
function GetCOLOR5Value: Int64; virtual;
|
||||
procedure SetCOLOR5Value(const aValue: Int64); virtual;
|
||||
function GetCOLOR5IsNull: Boolean; virtual;
|
||||
procedure SetCOLOR5IsNull(const aValue: Boolean); virtual;
|
||||
function GetCOLOR6Value: Int64; virtual;
|
||||
procedure SetCOLOR6Value(const aValue: Int64); virtual;
|
||||
function GetCOLOR6IsNull: Boolean; virtual;
|
||||
procedure SetCOLOR6IsNull(const aValue: Boolean); virtual;
|
||||
function GetCOLOR7Value: Int64; virtual;
|
||||
procedure SetCOLOR7Value(const aValue: Int64); virtual;
|
||||
function GetCOLOR7IsNull: Boolean; virtual;
|
||||
procedure SetCOLOR7IsNull(const aValue: Boolean); virtual;
|
||||
function GetCOLOR8Value: Int64; virtual;
|
||||
procedure SetCOLOR8Value(const aValue: Int64); virtual;
|
||||
function GetCOLOR8IsNull: Boolean; virtual;
|
||||
procedure SetCOLOR8IsNull(const aValue: Boolean); virtual;
|
||||
function GetCOLOR9Value: Int64; virtual;
|
||||
procedure SetCOLOR9Value(const aValue: Int64); virtual;
|
||||
function GetCOLOR9IsNull: Boolean; virtual;
|
||||
procedure SetCOLOR9IsNull(const aValue: Boolean); virtual;
|
||||
function GetCOLOR10Value: Int64; virtual;
|
||||
procedure SetCOLOR10Value(const aValue: Int64); virtual;
|
||||
function GetCOLOR10IsNull: Boolean; virtual;
|
||||
procedure SetCOLOR10IsNull(const aValue: Boolean); virtual;
|
||||
function GetCOLOR11Value: Int64; virtual;
|
||||
procedure SetCOLOR11Value(const aValue: Int64); virtual;
|
||||
function GetCOLOR11IsNull: Boolean; virtual;
|
||||
procedure SetCOLOR11IsNull(const aValue: Boolean); virtual;
|
||||
function GetCOLOR12Value: Int64; virtual;
|
||||
procedure SetCOLOR12Value(const aValue: Int64); virtual;
|
||||
function GetCOLOR12IsNull: Boolean; virtual;
|
||||
procedure SetCOLOR12IsNull(const aValue: Boolean); virtual;
|
||||
|
||||
{ Properties }
|
||||
property ID_PEDIDO: Integer read GetID_PEDIDOValue write SetID_PEDIDOValue;
|
||||
property ID_PEDIDOIsNull: Boolean read GetID_PEDIDOIsNull write SetID_PEDIDOIsNull;
|
||||
property ID_ARTICULO: Integer read GetID_ARTICULOValue write SetID_ARTICULOValue;
|
||||
property ID_ARTICULOIsNull: Boolean read GetID_ARTICULOIsNull write SetID_ARTICULOIsNull;
|
||||
property COLOR1: Int64 read GetCOLOR1Value write SetCOLOR1Value;
|
||||
property COLOR1IsNull: Boolean read GetCOLOR1IsNull write SetCOLOR1IsNull;
|
||||
property COLOR2: Int64 read GetCOLOR2Value write SetCOLOR2Value;
|
||||
property COLOR2IsNull: Boolean read GetCOLOR2IsNull write SetCOLOR2IsNull;
|
||||
property COLOR3: Int64 read GetCOLOR3Value write SetCOLOR3Value;
|
||||
property COLOR3IsNull: Boolean read GetCOLOR3IsNull write SetCOLOR3IsNull;
|
||||
property COLOR4: Int64 read GetCOLOR4Value write SetCOLOR4Value;
|
||||
property COLOR4IsNull: Boolean read GetCOLOR4IsNull write SetCOLOR4IsNull;
|
||||
property COLOR5: Int64 read GetCOLOR5Value write SetCOLOR5Value;
|
||||
property COLOR5IsNull: Boolean read GetCOLOR5IsNull write SetCOLOR5IsNull;
|
||||
property COLOR6: Int64 read GetCOLOR6Value write SetCOLOR6Value;
|
||||
property COLOR6IsNull: Boolean read GetCOLOR6IsNull write SetCOLOR6IsNull;
|
||||
property COLOR7: Int64 read GetCOLOR7Value write SetCOLOR7Value;
|
||||
property COLOR7IsNull: Boolean read GetCOLOR7IsNull write SetCOLOR7IsNull;
|
||||
property COLOR8: Int64 read GetCOLOR8Value write SetCOLOR8Value;
|
||||
property COLOR8IsNull: Boolean read GetCOLOR8IsNull write SetCOLOR8IsNull;
|
||||
property COLOR9: Int64 read GetCOLOR9Value write SetCOLOR9Value;
|
||||
property COLOR9IsNull: Boolean read GetCOLOR9IsNull write SetCOLOR9IsNull;
|
||||
property COLOR10: Int64 read GetCOLOR10Value write SetCOLOR10Value;
|
||||
property COLOR10IsNull: Boolean read GetCOLOR10IsNull write SetCOLOR10IsNull;
|
||||
property COLOR11: Int64 read GetCOLOR11Value write SetCOLOR11Value;
|
||||
property COLOR11IsNull: Boolean read GetCOLOR11IsNull write SetCOLOR11IsNull;
|
||||
property COLOR12: Int64 read GetCOLOR12Value write SetCOLOR12Value;
|
||||
property COLOR12IsNull: Boolean read GetCOLOR12IsNull write SetCOLOR12IsNull;
|
||||
|
||||
public
|
||||
constructor Create(aDataTable: TDADataTable); override;
|
||||
destructor Destroy; override;
|
||||
|
||||
end;
|
||||
|
||||
{ IListaAnosPedidos }
|
||||
IListaAnosPedidos = interface(IDAStronglyTypedDataTable)
|
||||
['{475ACA8D-8541-4EE1-A13B-85A5D1F6BED0}']
|
||||
['{A77970C4-600B-41C8-BED5-AAEBDA357B58}']
|
||||
{ Property getters and setters }
|
||||
function GetANOValue: String;
|
||||
procedure SetANOValue(const aValue: String);
|
||||
@ -218,7 +443,7 @@ type
|
||||
end;
|
||||
|
||||
{ TListaAnosPedidosDataTableRules }
|
||||
TListaAnosPedidosDataTableRules = class(TDADataTableRules, IListaAnosPedidos)
|
||||
TListaAnosPedidosDataTableRules = class(TIntfObjectDADataTableRules, IListaAnosPedidos)
|
||||
private
|
||||
protected
|
||||
{ Property getters and setters }
|
||||
@ -239,7 +464,7 @@ type
|
||||
|
||||
{ IPedidoCliente_ArticulosPendientesPedirAProv }
|
||||
IPedidoCliente_ArticulosPendientesPedirAProv = interface(IDAStronglyTypedDataTable)
|
||||
['{7AD10614-220C-409B-AC9B-45D3D071265E}']
|
||||
['{EBDE6CE5-A430-4B8C-8F26-D9B68A20ACC1}']
|
||||
{ Property getters and setters }
|
||||
function GetID_PEDIDOValue: Integer;
|
||||
procedure SetID_PEDIDOValue(const aValue: Integer);
|
||||
@ -249,20 +474,20 @@ type
|
||||
procedure SetID_ARTICULOValue(const aValue: Integer);
|
||||
function GetID_ARTICULOIsNull: Boolean;
|
||||
procedure SetID_ARTICULOIsNull(const aValue: Boolean);
|
||||
function GetCANT_PEDIDA_CLIENTEValue: Integer;
|
||||
procedure SetCANT_PEDIDA_CLIENTEValue(const aValue: Integer);
|
||||
function GetCANT_PEDIDA_CLIENTEValue: Float;
|
||||
procedure SetCANT_PEDIDA_CLIENTEValue(const aValue: Float);
|
||||
function GetCANT_PEDIDA_CLIENTEIsNull: Boolean;
|
||||
procedure SetCANT_PEDIDA_CLIENTEIsNull(const aValue: Boolean);
|
||||
function GetID_PROVEEDORValue: Integer;
|
||||
procedure SetID_PROVEEDORValue(const aValue: Integer);
|
||||
function GetID_PROVEEDORIsNull: Boolean;
|
||||
procedure SetID_PROVEEDORIsNull(const aValue: Boolean);
|
||||
function GetCANT_PEDIDA_PROVEEDORValue: Integer;
|
||||
procedure SetCANT_PEDIDA_PROVEEDORValue(const aValue: Integer);
|
||||
function GetCANT_PEDIDA_PROVEEDORValue: Float;
|
||||
procedure SetCANT_PEDIDA_PROVEEDORValue(const aValue: Float);
|
||||
function GetCANT_PEDIDA_PROVEEDORIsNull: Boolean;
|
||||
procedure SetCANT_PEDIDA_PROVEEDORIsNull(const aValue: Boolean);
|
||||
function GetCANT_PENDIENTE_PEDIRValue: Integer;
|
||||
procedure SetCANT_PENDIENTE_PEDIRValue(const aValue: Integer);
|
||||
function GetCANT_PENDIENTE_PEDIRValue: Float;
|
||||
procedure SetCANT_PENDIENTE_PEDIRValue(const aValue: Float);
|
||||
function GetCANT_PENDIENTE_PEDIRIsNull: Boolean;
|
||||
procedure SetCANT_PENDIENTE_PEDIRIsNull(const aValue: Boolean);
|
||||
|
||||
@ -272,18 +497,18 @@ type
|
||||
property ID_PEDIDOIsNull: Boolean read GetID_PEDIDOIsNull write SetID_PEDIDOIsNull;
|
||||
property ID_ARTICULO: Integer read GetID_ARTICULOValue write SetID_ARTICULOValue;
|
||||
property ID_ARTICULOIsNull: Boolean read GetID_ARTICULOIsNull write SetID_ARTICULOIsNull;
|
||||
property CANT_PEDIDA_CLIENTE: Integer read GetCANT_PEDIDA_CLIENTEValue write SetCANT_PEDIDA_CLIENTEValue;
|
||||
property CANT_PEDIDA_CLIENTE: Float read GetCANT_PEDIDA_CLIENTEValue write SetCANT_PEDIDA_CLIENTEValue;
|
||||
property CANT_PEDIDA_CLIENTEIsNull: Boolean read GetCANT_PEDIDA_CLIENTEIsNull write SetCANT_PEDIDA_CLIENTEIsNull;
|
||||
property ID_PROVEEDOR: Integer read GetID_PROVEEDORValue write SetID_PROVEEDORValue;
|
||||
property ID_PROVEEDORIsNull: Boolean read GetID_PROVEEDORIsNull write SetID_PROVEEDORIsNull;
|
||||
property CANT_PEDIDA_PROVEEDOR: Integer read GetCANT_PEDIDA_PROVEEDORValue write SetCANT_PEDIDA_PROVEEDORValue;
|
||||
property CANT_PEDIDA_PROVEEDOR: Float read GetCANT_PEDIDA_PROVEEDORValue write SetCANT_PEDIDA_PROVEEDORValue;
|
||||
property CANT_PEDIDA_PROVEEDORIsNull: Boolean read GetCANT_PEDIDA_PROVEEDORIsNull write SetCANT_PEDIDA_PROVEEDORIsNull;
|
||||
property CANT_PENDIENTE_PEDIR: Integer read GetCANT_PENDIENTE_PEDIRValue write SetCANT_PENDIENTE_PEDIRValue;
|
||||
property CANT_PENDIENTE_PEDIR: Float read GetCANT_PENDIENTE_PEDIRValue write SetCANT_PENDIENTE_PEDIRValue;
|
||||
property CANT_PENDIENTE_PEDIRIsNull: Boolean read GetCANT_PENDIENTE_PEDIRIsNull write SetCANT_PENDIENTE_PEDIRIsNull;
|
||||
end;
|
||||
|
||||
{ TPedidoCliente_ArticulosPendientesPedirAProvDataTableRules }
|
||||
TPedidoCliente_ArticulosPendientesPedirAProvDataTableRules = class(TDADataTableRules, IPedidoCliente_ArticulosPendientesPedirAProv)
|
||||
TPedidoCliente_ArticulosPendientesPedirAProvDataTableRules = class(TIntfObjectDADataTableRules, IPedidoCliente_ArticulosPendientesPedirAProv)
|
||||
private
|
||||
protected
|
||||
{ Property getters and setters }
|
||||
@ -295,20 +520,20 @@ type
|
||||
procedure SetID_ARTICULOValue(const aValue: Integer); virtual;
|
||||
function GetID_ARTICULOIsNull: Boolean; virtual;
|
||||
procedure SetID_ARTICULOIsNull(const aValue: Boolean); virtual;
|
||||
function GetCANT_PEDIDA_CLIENTEValue: Integer; virtual;
|
||||
procedure SetCANT_PEDIDA_CLIENTEValue(const aValue: Integer); virtual;
|
||||
function GetCANT_PEDIDA_CLIENTEValue: Float; virtual;
|
||||
procedure SetCANT_PEDIDA_CLIENTEValue(const aValue: Float); virtual;
|
||||
function GetCANT_PEDIDA_CLIENTEIsNull: Boolean; virtual;
|
||||
procedure SetCANT_PEDIDA_CLIENTEIsNull(const aValue: Boolean); virtual;
|
||||
function GetID_PROVEEDORValue: Integer; virtual;
|
||||
procedure SetID_PROVEEDORValue(const aValue: Integer); virtual;
|
||||
function GetID_PROVEEDORIsNull: Boolean; virtual;
|
||||
procedure SetID_PROVEEDORIsNull(const aValue: Boolean); virtual;
|
||||
function GetCANT_PEDIDA_PROVEEDORValue: Integer; virtual;
|
||||
procedure SetCANT_PEDIDA_PROVEEDORValue(const aValue: Integer); virtual;
|
||||
function GetCANT_PEDIDA_PROVEEDORValue: Float; virtual;
|
||||
procedure SetCANT_PEDIDA_PROVEEDORValue(const aValue: Float); virtual;
|
||||
function GetCANT_PEDIDA_PROVEEDORIsNull: Boolean; virtual;
|
||||
procedure SetCANT_PEDIDA_PROVEEDORIsNull(const aValue: Boolean); virtual;
|
||||
function GetCANT_PENDIENTE_PEDIRValue: Integer; virtual;
|
||||
procedure SetCANT_PENDIENTE_PEDIRValue(const aValue: Integer); virtual;
|
||||
function GetCANT_PENDIENTE_PEDIRValue: Float; virtual;
|
||||
procedure SetCANT_PENDIENTE_PEDIRValue(const aValue: Float); virtual;
|
||||
function GetCANT_PENDIENTE_PEDIRIsNull: Boolean; virtual;
|
||||
procedure SetCANT_PENDIENTE_PEDIRIsNull(const aValue: Boolean); virtual;
|
||||
|
||||
@ -317,13 +542,13 @@ type
|
||||
property ID_PEDIDOIsNull: Boolean read GetID_PEDIDOIsNull write SetID_PEDIDOIsNull;
|
||||
property ID_ARTICULO: Integer read GetID_ARTICULOValue write SetID_ARTICULOValue;
|
||||
property ID_ARTICULOIsNull: Boolean read GetID_ARTICULOIsNull write SetID_ARTICULOIsNull;
|
||||
property CANT_PEDIDA_CLIENTE: Integer read GetCANT_PEDIDA_CLIENTEValue write SetCANT_PEDIDA_CLIENTEValue;
|
||||
property CANT_PEDIDA_CLIENTE: Float read GetCANT_PEDIDA_CLIENTEValue write SetCANT_PEDIDA_CLIENTEValue;
|
||||
property CANT_PEDIDA_CLIENTEIsNull: Boolean read GetCANT_PEDIDA_CLIENTEIsNull write SetCANT_PEDIDA_CLIENTEIsNull;
|
||||
property ID_PROVEEDOR: Integer read GetID_PROVEEDORValue write SetID_PROVEEDORValue;
|
||||
property ID_PROVEEDORIsNull: Boolean read GetID_PROVEEDORIsNull write SetID_PROVEEDORIsNull;
|
||||
property CANT_PEDIDA_PROVEEDOR: Integer read GetCANT_PEDIDA_PROVEEDORValue write SetCANT_PEDIDA_PROVEEDORValue;
|
||||
property CANT_PEDIDA_PROVEEDOR: Float read GetCANT_PEDIDA_PROVEEDORValue write SetCANT_PEDIDA_PROVEEDORValue;
|
||||
property CANT_PEDIDA_PROVEEDORIsNull: Boolean read GetCANT_PEDIDA_PROVEEDORIsNull write SetCANT_PEDIDA_PROVEEDORIsNull;
|
||||
property CANT_PENDIENTE_PEDIR: Integer read GetCANT_PENDIENTE_PEDIRValue write SetCANT_PENDIENTE_PEDIRValue;
|
||||
property CANT_PENDIENTE_PEDIR: Float read GetCANT_PENDIENTE_PEDIRValue write SetCANT_PENDIENTE_PEDIRValue;
|
||||
property CANT_PENDIENTE_PEDIRIsNull: Boolean read GetCANT_PENDIENTE_PEDIRIsNull write SetCANT_PENDIENTE_PEDIRIsNull;
|
||||
|
||||
public
|
||||
@ -334,7 +559,7 @@ type
|
||||
|
||||
{ IPedidosCliente }
|
||||
IPedidosCliente = interface(IDAStronglyTypedDataTable)
|
||||
['{7F223677-49BE-4682-A347-2F7D6E9EB4EC}']
|
||||
['{095475C5-5040-4831-9310-8028A76B7568}']
|
||||
{ Property getters and setters }
|
||||
function GetIDValue: Integer;
|
||||
procedure SetIDValue(const aValue: Integer);
|
||||
@ -556,7 +781,7 @@ type
|
||||
end;
|
||||
|
||||
{ TPedidosClienteDataTableRules }
|
||||
TPedidosClienteDataTableRules = class(TDADataTableRules, IPedidosCliente)
|
||||
TPedidosClienteDataTableRules = class(TIntfObjectDADataTableRules, IPedidosCliente)
|
||||
private
|
||||
f_OBSERVACIONES: IROStrings;
|
||||
f_INCIDENCIAS: IROStrings;
|
||||
@ -789,7 +1014,7 @@ type
|
||||
|
||||
{ IPedidosCliente_Detalles }
|
||||
IPedidosCliente_Detalles = interface(IDAStronglyTypedDataTable)
|
||||
['{BAD29A6E-F515-46A0-8BDD-EE879086BE33}']
|
||||
['{38AC30F0-521A-4DA3-AED0-D3D56657ABFA}']
|
||||
{ Property getters and setters }
|
||||
function GetIDValue: Integer;
|
||||
procedure SetIDValue(const aValue: Integer);
|
||||
@ -887,7 +1112,7 @@ type
|
||||
end;
|
||||
|
||||
{ TPedidosCliente_DetallesDataTableRules }
|
||||
TPedidosCliente_DetallesDataTableRules = class(TDADataTableRules, IPedidosCliente_Detalles)
|
||||
TPedidosCliente_DetallesDataTableRules = class(TIntfObjectDADataTableRules, IPedidosCliente_Detalles)
|
||||
private
|
||||
protected
|
||||
{ Property getters and setters }
|
||||
@ -992,22 +1217,22 @@ type
|
||||
|
||||
{ IPedidoCliente_Articulos_Pendientes }
|
||||
IPedidoCliente_Articulos_Pendientes = interface(IDAStronglyTypedDataTable)
|
||||
['{3662880C-6D05-49E4-B105-19882211F1AD}']
|
||||
['{CDD4E426-925A-47C9-AE39-E07ED452A219}']
|
||||
{ Property getters and setters }
|
||||
function GetID_ARTICULOValue: Integer;
|
||||
procedure SetID_ARTICULOValue(const aValue: Integer);
|
||||
function GetID_ARTICULOIsNull: Boolean;
|
||||
procedure SetID_ARTICULOIsNull(const aValue: Boolean);
|
||||
function GetCANTIDAD_PEDValue: Integer;
|
||||
procedure SetCANTIDAD_PEDValue(const aValue: Integer);
|
||||
function GetCANTIDAD_PEDValue: Float;
|
||||
procedure SetCANTIDAD_PEDValue(const aValue: Float);
|
||||
function GetCANTIDAD_PEDIsNull: Boolean;
|
||||
procedure SetCANTIDAD_PEDIsNull(const aValue: Boolean);
|
||||
function GetCANTIDAD_ALBValue: Integer;
|
||||
procedure SetCANTIDAD_ALBValue(const aValue: Integer);
|
||||
function GetCANTIDAD_ALBValue: Float;
|
||||
procedure SetCANTIDAD_ALBValue(const aValue: Float);
|
||||
function GetCANTIDAD_ALBIsNull: Boolean;
|
||||
procedure SetCANTIDAD_ALBIsNull(const aValue: Boolean);
|
||||
function GetCANTIDAD_PENDIENTEValue: Integer;
|
||||
procedure SetCANTIDAD_PENDIENTEValue(const aValue: Integer);
|
||||
function GetCANTIDAD_PENDIENTEValue: Float;
|
||||
procedure SetCANTIDAD_PENDIENTEValue(const aValue: Float);
|
||||
function GetCANTIDAD_PENDIENTEIsNull: Boolean;
|
||||
procedure SetCANTIDAD_PENDIENTEIsNull(const aValue: Boolean);
|
||||
|
||||
@ -1015,16 +1240,16 @@ type
|
||||
{ Properties }
|
||||
property ID_ARTICULO: Integer read GetID_ARTICULOValue write SetID_ARTICULOValue;
|
||||
property ID_ARTICULOIsNull: Boolean read GetID_ARTICULOIsNull write SetID_ARTICULOIsNull;
|
||||
property CANTIDAD_PED: Integer read GetCANTIDAD_PEDValue write SetCANTIDAD_PEDValue;
|
||||
property CANTIDAD_PED: Float read GetCANTIDAD_PEDValue write SetCANTIDAD_PEDValue;
|
||||
property CANTIDAD_PEDIsNull: Boolean read GetCANTIDAD_PEDIsNull write SetCANTIDAD_PEDIsNull;
|
||||
property CANTIDAD_ALB: Integer read GetCANTIDAD_ALBValue write SetCANTIDAD_ALBValue;
|
||||
property CANTIDAD_ALB: Float read GetCANTIDAD_ALBValue write SetCANTIDAD_ALBValue;
|
||||
property CANTIDAD_ALBIsNull: Boolean read GetCANTIDAD_ALBIsNull write SetCANTIDAD_ALBIsNull;
|
||||
property CANTIDAD_PENDIENTE: Integer read GetCANTIDAD_PENDIENTEValue write SetCANTIDAD_PENDIENTEValue;
|
||||
property CANTIDAD_PENDIENTE: Float read GetCANTIDAD_PENDIENTEValue write SetCANTIDAD_PENDIENTEValue;
|
||||
property CANTIDAD_PENDIENTEIsNull: Boolean read GetCANTIDAD_PENDIENTEIsNull write SetCANTIDAD_PENDIENTEIsNull;
|
||||
end;
|
||||
|
||||
{ TPedidoCliente_Articulos_PendientesDataTableRules }
|
||||
TPedidoCliente_Articulos_PendientesDataTableRules = class(TDADataTableRules, IPedidoCliente_Articulos_Pendientes)
|
||||
TPedidoCliente_Articulos_PendientesDataTableRules = class(TIntfObjectDADataTableRules, IPedidoCliente_Articulos_Pendientes)
|
||||
private
|
||||
protected
|
||||
{ Property getters and setters }
|
||||
@ -1032,27 +1257,27 @@ type
|
||||
procedure SetID_ARTICULOValue(const aValue: Integer); virtual;
|
||||
function GetID_ARTICULOIsNull: Boolean; virtual;
|
||||
procedure SetID_ARTICULOIsNull(const aValue: Boolean); virtual;
|
||||
function GetCANTIDAD_PEDValue: Integer; virtual;
|
||||
procedure SetCANTIDAD_PEDValue(const aValue: Integer); virtual;
|
||||
function GetCANTIDAD_PEDValue: Float; virtual;
|
||||
procedure SetCANTIDAD_PEDValue(const aValue: Float); virtual;
|
||||
function GetCANTIDAD_PEDIsNull: Boolean; virtual;
|
||||
procedure SetCANTIDAD_PEDIsNull(const aValue: Boolean); virtual;
|
||||
function GetCANTIDAD_ALBValue: Integer; virtual;
|
||||
procedure SetCANTIDAD_ALBValue(const aValue: Integer); virtual;
|
||||
function GetCANTIDAD_ALBValue: Float; virtual;
|
||||
procedure SetCANTIDAD_ALBValue(const aValue: Float); virtual;
|
||||
function GetCANTIDAD_ALBIsNull: Boolean; virtual;
|
||||
procedure SetCANTIDAD_ALBIsNull(const aValue: Boolean); virtual;
|
||||
function GetCANTIDAD_PENDIENTEValue: Integer; virtual;
|
||||
procedure SetCANTIDAD_PENDIENTEValue(const aValue: Integer); virtual;
|
||||
function GetCANTIDAD_PENDIENTEValue: Float; virtual;
|
||||
procedure SetCANTIDAD_PENDIENTEValue(const aValue: Float); virtual;
|
||||
function GetCANTIDAD_PENDIENTEIsNull: Boolean; virtual;
|
||||
procedure SetCANTIDAD_PENDIENTEIsNull(const aValue: Boolean); virtual;
|
||||
|
||||
{ Properties }
|
||||
property ID_ARTICULO: Integer read GetID_ARTICULOValue write SetID_ARTICULOValue;
|
||||
property ID_ARTICULOIsNull: Boolean read GetID_ARTICULOIsNull write SetID_ARTICULOIsNull;
|
||||
property CANTIDAD_PED: Integer read GetCANTIDAD_PEDValue write SetCANTIDAD_PEDValue;
|
||||
property CANTIDAD_PED: Float read GetCANTIDAD_PEDValue write SetCANTIDAD_PEDValue;
|
||||
property CANTIDAD_PEDIsNull: Boolean read GetCANTIDAD_PEDIsNull write SetCANTIDAD_PEDIsNull;
|
||||
property CANTIDAD_ALB: Integer read GetCANTIDAD_ALBValue write SetCANTIDAD_ALBValue;
|
||||
property CANTIDAD_ALB: Float read GetCANTIDAD_ALBValue write SetCANTIDAD_ALBValue;
|
||||
property CANTIDAD_ALBIsNull: Boolean read GetCANTIDAD_ALBIsNull write SetCANTIDAD_ALBIsNull;
|
||||
property CANTIDAD_PENDIENTE: Integer read GetCANTIDAD_PENDIENTEValue write SetCANTIDAD_PENDIENTEValue;
|
||||
property CANTIDAD_PENDIENTE: Float read GetCANTIDAD_PENDIENTEValue write SetCANTIDAD_PENDIENTEValue;
|
||||
property CANTIDAD_PENDIENTEIsNull: Boolean read GetCANTIDAD_PENDIENTEIsNull write SetCANTIDAD_PENDIENTEIsNull;
|
||||
|
||||
public
|
||||
@ -1063,7 +1288,7 @@ type
|
||||
|
||||
{ IPedidosCliente_Detalle_Color }
|
||||
IPedidosCliente_Detalle_Color = interface(IDAStronglyTypedDataTable)
|
||||
['{9D745C39-FEE8-4641-BCC3-BABA61100D42}']
|
||||
['{AF1847ED-E9E1-42A7-A205-C99502AE53DF}']
|
||||
{ Property getters and setters }
|
||||
function GetIDValue: Integer;
|
||||
procedure SetIDValue(const aValue: Integer);
|
||||
@ -1155,7 +1380,7 @@ type
|
||||
end;
|
||||
|
||||
{ TPedidosCliente_Detalle_ColorDataTableRules }
|
||||
TPedidosCliente_Detalle_ColorDataTableRules = class(TDADataTableRules, IPedidosCliente_Detalle_Color)
|
||||
TPedidosCliente_Detalle_ColorDataTableRules = class(TIntfObjectDADataTableRules, IPedidosCliente_Detalle_Color)
|
||||
private
|
||||
protected
|
||||
{ Property getters and setters }
|
||||
@ -1256,6 +1481,312 @@ implementation
|
||||
|
||||
uses Variants, uROBinaryHelpers;
|
||||
|
||||
{ TPedidoCliente_Art_Colores_PendientesDataTableRules }
|
||||
constructor TPedidoCliente_Art_Colores_PendientesDataTableRules.Create(aDataTable: TDADataTable);
|
||||
begin
|
||||
inherited;
|
||||
end;
|
||||
|
||||
destructor TPedidoCliente_Art_Colores_PendientesDataTableRules.Destroy;
|
||||
begin
|
||||
inherited;
|
||||
end;
|
||||
|
||||
function TPedidoCliente_Art_Colores_PendientesDataTableRules.GetID_PEDIDOValue: Integer;
|
||||
begin
|
||||
result := DataTable.Fields[idx_PedidoCliente_Art_Colores_PendientesID_PEDIDO].AsInteger;
|
||||
end;
|
||||
|
||||
procedure TPedidoCliente_Art_Colores_PendientesDataTableRules.SetID_PEDIDOValue(const aValue: Integer);
|
||||
begin
|
||||
DataTable.Fields[idx_PedidoCliente_Art_Colores_PendientesID_PEDIDO].AsInteger := aValue;
|
||||
end;
|
||||
|
||||
function TPedidoCliente_Art_Colores_PendientesDataTableRules.GetID_PEDIDOIsNull: boolean;
|
||||
begin
|
||||
result := DataTable.Fields[idx_PedidoCliente_Art_Colores_PendientesID_PEDIDO].IsNull;
|
||||
end;
|
||||
|
||||
procedure TPedidoCliente_Art_Colores_PendientesDataTableRules.SetID_PEDIDOIsNull(const aValue: Boolean);
|
||||
begin
|
||||
if aValue then
|
||||
DataTable.Fields[idx_PedidoCliente_Art_Colores_PendientesID_PEDIDO].AsVariant := Null;
|
||||
end;
|
||||
|
||||
function TPedidoCliente_Art_Colores_PendientesDataTableRules.GetID_ARTICULOValue: Integer;
|
||||
begin
|
||||
result := DataTable.Fields[idx_PedidoCliente_Art_Colores_PendientesID_ARTICULO].AsInteger;
|
||||
end;
|
||||
|
||||
procedure TPedidoCliente_Art_Colores_PendientesDataTableRules.SetID_ARTICULOValue(const aValue: Integer);
|
||||
begin
|
||||
DataTable.Fields[idx_PedidoCliente_Art_Colores_PendientesID_ARTICULO].AsInteger := aValue;
|
||||
end;
|
||||
|
||||
function TPedidoCliente_Art_Colores_PendientesDataTableRules.GetID_ARTICULOIsNull: boolean;
|
||||
begin
|
||||
result := DataTable.Fields[idx_PedidoCliente_Art_Colores_PendientesID_ARTICULO].IsNull;
|
||||
end;
|
||||
|
||||
procedure TPedidoCliente_Art_Colores_PendientesDataTableRules.SetID_ARTICULOIsNull(const aValue: Boolean);
|
||||
begin
|
||||
if aValue then
|
||||
DataTable.Fields[idx_PedidoCliente_Art_Colores_PendientesID_ARTICULO].AsVariant := Null;
|
||||
end;
|
||||
|
||||
function TPedidoCliente_Art_Colores_PendientesDataTableRules.GetCOLOR1Value: Int64;
|
||||
begin
|
||||
result := DataTable.Fields[idx_PedidoCliente_Art_Colores_PendientesCOLOR1].AsLargeInt;
|
||||
end;
|
||||
|
||||
procedure TPedidoCliente_Art_Colores_PendientesDataTableRules.SetCOLOR1Value(const aValue: Int64);
|
||||
begin
|
||||
DataTable.Fields[idx_PedidoCliente_Art_Colores_PendientesCOLOR1].AsLargeInt := aValue;
|
||||
end;
|
||||
|
||||
function TPedidoCliente_Art_Colores_PendientesDataTableRules.GetCOLOR1IsNull: boolean;
|
||||
begin
|
||||
result := DataTable.Fields[idx_PedidoCliente_Art_Colores_PendientesCOLOR1].IsNull;
|
||||
end;
|
||||
|
||||
procedure TPedidoCliente_Art_Colores_PendientesDataTableRules.SetCOLOR1IsNull(const aValue: Boolean);
|
||||
begin
|
||||
if aValue then
|
||||
DataTable.Fields[idx_PedidoCliente_Art_Colores_PendientesCOLOR1].AsVariant := Null;
|
||||
end;
|
||||
|
||||
function TPedidoCliente_Art_Colores_PendientesDataTableRules.GetCOLOR2Value: Int64;
|
||||
begin
|
||||
result := DataTable.Fields[idx_PedidoCliente_Art_Colores_PendientesCOLOR2].AsLargeInt;
|
||||
end;
|
||||
|
||||
procedure TPedidoCliente_Art_Colores_PendientesDataTableRules.SetCOLOR2Value(const aValue: Int64);
|
||||
begin
|
||||
DataTable.Fields[idx_PedidoCliente_Art_Colores_PendientesCOLOR2].AsLargeInt := aValue;
|
||||
end;
|
||||
|
||||
function TPedidoCliente_Art_Colores_PendientesDataTableRules.GetCOLOR2IsNull: boolean;
|
||||
begin
|
||||
result := DataTable.Fields[idx_PedidoCliente_Art_Colores_PendientesCOLOR2].IsNull;
|
||||
end;
|
||||
|
||||
procedure TPedidoCliente_Art_Colores_PendientesDataTableRules.SetCOLOR2IsNull(const aValue: Boolean);
|
||||
begin
|
||||
if aValue then
|
||||
DataTable.Fields[idx_PedidoCliente_Art_Colores_PendientesCOLOR2].AsVariant := Null;
|
||||
end;
|
||||
|
||||
function TPedidoCliente_Art_Colores_PendientesDataTableRules.GetCOLOR3Value: Int64;
|
||||
begin
|
||||
result := DataTable.Fields[idx_PedidoCliente_Art_Colores_PendientesCOLOR3].AsLargeInt;
|
||||
end;
|
||||
|
||||
procedure TPedidoCliente_Art_Colores_PendientesDataTableRules.SetCOLOR3Value(const aValue: Int64);
|
||||
begin
|
||||
DataTable.Fields[idx_PedidoCliente_Art_Colores_PendientesCOLOR3].AsLargeInt := aValue;
|
||||
end;
|
||||
|
||||
function TPedidoCliente_Art_Colores_PendientesDataTableRules.GetCOLOR3IsNull: boolean;
|
||||
begin
|
||||
result := DataTable.Fields[idx_PedidoCliente_Art_Colores_PendientesCOLOR3].IsNull;
|
||||
end;
|
||||
|
||||
procedure TPedidoCliente_Art_Colores_PendientesDataTableRules.SetCOLOR3IsNull(const aValue: Boolean);
|
||||
begin
|
||||
if aValue then
|
||||
DataTable.Fields[idx_PedidoCliente_Art_Colores_PendientesCOLOR3].AsVariant := Null;
|
||||
end;
|
||||
|
||||
function TPedidoCliente_Art_Colores_PendientesDataTableRules.GetCOLOR4Value: Int64;
|
||||
begin
|
||||
result := DataTable.Fields[idx_PedidoCliente_Art_Colores_PendientesCOLOR4].AsLargeInt;
|
||||
end;
|
||||
|
||||
procedure TPedidoCliente_Art_Colores_PendientesDataTableRules.SetCOLOR4Value(const aValue: Int64);
|
||||
begin
|
||||
DataTable.Fields[idx_PedidoCliente_Art_Colores_PendientesCOLOR4].AsLargeInt := aValue;
|
||||
end;
|
||||
|
||||
function TPedidoCliente_Art_Colores_PendientesDataTableRules.GetCOLOR4IsNull: boolean;
|
||||
begin
|
||||
result := DataTable.Fields[idx_PedidoCliente_Art_Colores_PendientesCOLOR4].IsNull;
|
||||
end;
|
||||
|
||||
procedure TPedidoCliente_Art_Colores_PendientesDataTableRules.SetCOLOR4IsNull(const aValue: Boolean);
|
||||
begin
|
||||
if aValue then
|
||||
DataTable.Fields[idx_PedidoCliente_Art_Colores_PendientesCOLOR4].AsVariant := Null;
|
||||
end;
|
||||
|
||||
function TPedidoCliente_Art_Colores_PendientesDataTableRules.GetCOLOR5Value: Int64;
|
||||
begin
|
||||
result := DataTable.Fields[idx_PedidoCliente_Art_Colores_PendientesCOLOR5].AsLargeInt;
|
||||
end;
|
||||
|
||||
procedure TPedidoCliente_Art_Colores_PendientesDataTableRules.SetCOLOR5Value(const aValue: Int64);
|
||||
begin
|
||||
DataTable.Fields[idx_PedidoCliente_Art_Colores_PendientesCOLOR5].AsLargeInt := aValue;
|
||||
end;
|
||||
|
||||
function TPedidoCliente_Art_Colores_PendientesDataTableRules.GetCOLOR5IsNull: boolean;
|
||||
begin
|
||||
result := DataTable.Fields[idx_PedidoCliente_Art_Colores_PendientesCOLOR5].IsNull;
|
||||
end;
|
||||
|
||||
procedure TPedidoCliente_Art_Colores_PendientesDataTableRules.SetCOLOR5IsNull(const aValue: Boolean);
|
||||
begin
|
||||
if aValue then
|
||||
DataTable.Fields[idx_PedidoCliente_Art_Colores_PendientesCOLOR5].AsVariant := Null;
|
||||
end;
|
||||
|
||||
function TPedidoCliente_Art_Colores_PendientesDataTableRules.GetCOLOR6Value: Int64;
|
||||
begin
|
||||
result := DataTable.Fields[idx_PedidoCliente_Art_Colores_PendientesCOLOR6].AsLargeInt;
|
||||
end;
|
||||
|
||||
procedure TPedidoCliente_Art_Colores_PendientesDataTableRules.SetCOLOR6Value(const aValue: Int64);
|
||||
begin
|
||||
DataTable.Fields[idx_PedidoCliente_Art_Colores_PendientesCOLOR6].AsLargeInt := aValue;
|
||||
end;
|
||||
|
||||
function TPedidoCliente_Art_Colores_PendientesDataTableRules.GetCOLOR6IsNull: boolean;
|
||||
begin
|
||||
result := DataTable.Fields[idx_PedidoCliente_Art_Colores_PendientesCOLOR6].IsNull;
|
||||
end;
|
||||
|
||||
procedure TPedidoCliente_Art_Colores_PendientesDataTableRules.SetCOLOR6IsNull(const aValue: Boolean);
|
||||
begin
|
||||
if aValue then
|
||||
DataTable.Fields[idx_PedidoCliente_Art_Colores_PendientesCOLOR6].AsVariant := Null;
|
||||
end;
|
||||
|
||||
function TPedidoCliente_Art_Colores_PendientesDataTableRules.GetCOLOR7Value: Int64;
|
||||
begin
|
||||
result := DataTable.Fields[idx_PedidoCliente_Art_Colores_PendientesCOLOR7].AsLargeInt;
|
||||
end;
|
||||
|
||||
procedure TPedidoCliente_Art_Colores_PendientesDataTableRules.SetCOLOR7Value(const aValue: Int64);
|
||||
begin
|
||||
DataTable.Fields[idx_PedidoCliente_Art_Colores_PendientesCOLOR7].AsLargeInt := aValue;
|
||||
end;
|
||||
|
||||
function TPedidoCliente_Art_Colores_PendientesDataTableRules.GetCOLOR7IsNull: boolean;
|
||||
begin
|
||||
result := DataTable.Fields[idx_PedidoCliente_Art_Colores_PendientesCOLOR7].IsNull;
|
||||
end;
|
||||
|
||||
procedure TPedidoCliente_Art_Colores_PendientesDataTableRules.SetCOLOR7IsNull(const aValue: Boolean);
|
||||
begin
|
||||
if aValue then
|
||||
DataTable.Fields[idx_PedidoCliente_Art_Colores_PendientesCOLOR7].AsVariant := Null;
|
||||
end;
|
||||
|
||||
function TPedidoCliente_Art_Colores_PendientesDataTableRules.GetCOLOR8Value: Int64;
|
||||
begin
|
||||
result := DataTable.Fields[idx_PedidoCliente_Art_Colores_PendientesCOLOR8].AsLargeInt;
|
||||
end;
|
||||
|
||||
procedure TPedidoCliente_Art_Colores_PendientesDataTableRules.SetCOLOR8Value(const aValue: Int64);
|
||||
begin
|
||||
DataTable.Fields[idx_PedidoCliente_Art_Colores_PendientesCOLOR8].AsLargeInt := aValue;
|
||||
end;
|
||||
|
||||
function TPedidoCliente_Art_Colores_PendientesDataTableRules.GetCOLOR8IsNull: boolean;
|
||||
begin
|
||||
result := DataTable.Fields[idx_PedidoCliente_Art_Colores_PendientesCOLOR8].IsNull;
|
||||
end;
|
||||
|
||||
procedure TPedidoCliente_Art_Colores_PendientesDataTableRules.SetCOLOR8IsNull(const aValue: Boolean);
|
||||
begin
|
||||
if aValue then
|
||||
DataTable.Fields[idx_PedidoCliente_Art_Colores_PendientesCOLOR8].AsVariant := Null;
|
||||
end;
|
||||
|
||||
function TPedidoCliente_Art_Colores_PendientesDataTableRules.GetCOLOR9Value: Int64;
|
||||
begin
|
||||
result := DataTable.Fields[idx_PedidoCliente_Art_Colores_PendientesCOLOR9].AsLargeInt;
|
||||
end;
|
||||
|
||||
procedure TPedidoCliente_Art_Colores_PendientesDataTableRules.SetCOLOR9Value(const aValue: Int64);
|
||||
begin
|
||||
DataTable.Fields[idx_PedidoCliente_Art_Colores_PendientesCOLOR9].AsLargeInt := aValue;
|
||||
end;
|
||||
|
||||
function TPedidoCliente_Art_Colores_PendientesDataTableRules.GetCOLOR9IsNull: boolean;
|
||||
begin
|
||||
result := DataTable.Fields[idx_PedidoCliente_Art_Colores_PendientesCOLOR9].IsNull;
|
||||
end;
|
||||
|
||||
procedure TPedidoCliente_Art_Colores_PendientesDataTableRules.SetCOLOR9IsNull(const aValue: Boolean);
|
||||
begin
|
||||
if aValue then
|
||||
DataTable.Fields[idx_PedidoCliente_Art_Colores_PendientesCOLOR9].AsVariant := Null;
|
||||
end;
|
||||
|
||||
function TPedidoCliente_Art_Colores_PendientesDataTableRules.GetCOLOR10Value: Int64;
|
||||
begin
|
||||
result := DataTable.Fields[idx_PedidoCliente_Art_Colores_PendientesCOLOR10].AsLargeInt;
|
||||
end;
|
||||
|
||||
procedure TPedidoCliente_Art_Colores_PendientesDataTableRules.SetCOLOR10Value(const aValue: Int64);
|
||||
begin
|
||||
DataTable.Fields[idx_PedidoCliente_Art_Colores_PendientesCOLOR10].AsLargeInt := aValue;
|
||||
end;
|
||||
|
||||
function TPedidoCliente_Art_Colores_PendientesDataTableRules.GetCOLOR10IsNull: boolean;
|
||||
begin
|
||||
result := DataTable.Fields[idx_PedidoCliente_Art_Colores_PendientesCOLOR10].IsNull;
|
||||
end;
|
||||
|
||||
procedure TPedidoCliente_Art_Colores_PendientesDataTableRules.SetCOLOR10IsNull(const aValue: Boolean);
|
||||
begin
|
||||
if aValue then
|
||||
DataTable.Fields[idx_PedidoCliente_Art_Colores_PendientesCOLOR10].AsVariant := Null;
|
||||
end;
|
||||
|
||||
function TPedidoCliente_Art_Colores_PendientesDataTableRules.GetCOLOR11Value: Int64;
|
||||
begin
|
||||
result := DataTable.Fields[idx_PedidoCliente_Art_Colores_PendientesCOLOR11].AsLargeInt;
|
||||
end;
|
||||
|
||||
procedure TPedidoCliente_Art_Colores_PendientesDataTableRules.SetCOLOR11Value(const aValue: Int64);
|
||||
begin
|
||||
DataTable.Fields[idx_PedidoCliente_Art_Colores_PendientesCOLOR11].AsLargeInt := aValue;
|
||||
end;
|
||||
|
||||
function TPedidoCliente_Art_Colores_PendientesDataTableRules.GetCOLOR11IsNull: boolean;
|
||||
begin
|
||||
result := DataTable.Fields[idx_PedidoCliente_Art_Colores_PendientesCOLOR11].IsNull;
|
||||
end;
|
||||
|
||||
procedure TPedidoCliente_Art_Colores_PendientesDataTableRules.SetCOLOR11IsNull(const aValue: Boolean);
|
||||
begin
|
||||
if aValue then
|
||||
DataTable.Fields[idx_PedidoCliente_Art_Colores_PendientesCOLOR11].AsVariant := Null;
|
||||
end;
|
||||
|
||||
function TPedidoCliente_Art_Colores_PendientesDataTableRules.GetCOLOR12Value: Int64;
|
||||
begin
|
||||
result := DataTable.Fields[idx_PedidoCliente_Art_Colores_PendientesCOLOR12].AsLargeInt;
|
||||
end;
|
||||
|
||||
procedure TPedidoCliente_Art_Colores_PendientesDataTableRules.SetCOLOR12Value(const aValue: Int64);
|
||||
begin
|
||||
DataTable.Fields[idx_PedidoCliente_Art_Colores_PendientesCOLOR12].AsLargeInt := aValue;
|
||||
end;
|
||||
|
||||
function TPedidoCliente_Art_Colores_PendientesDataTableRules.GetCOLOR12IsNull: boolean;
|
||||
begin
|
||||
result := DataTable.Fields[idx_PedidoCliente_Art_Colores_PendientesCOLOR12].IsNull;
|
||||
end;
|
||||
|
||||
procedure TPedidoCliente_Art_Colores_PendientesDataTableRules.SetCOLOR12IsNull(const aValue: Boolean);
|
||||
begin
|
||||
if aValue then
|
||||
DataTable.Fields[idx_PedidoCliente_Art_Colores_PendientesCOLOR12].AsVariant := Null;
|
||||
end;
|
||||
|
||||
|
||||
{ TListaAnosPedidosDataTableRules }
|
||||
constructor TListaAnosPedidosDataTableRules.Create(aDataTable: TDADataTable);
|
||||
begin
|
||||
@ -1342,14 +1873,14 @@ begin
|
||||
DataTable.Fields[idx_PedidoCliente_ArticulosPendientesPedirAProvID_ARTICULO].AsVariant := Null;
|
||||
end;
|
||||
|
||||
function TPedidoCliente_ArticulosPendientesPedirAProvDataTableRules.GetCANT_PEDIDA_CLIENTEValue: Integer;
|
||||
function TPedidoCliente_ArticulosPendientesPedirAProvDataTableRules.GetCANT_PEDIDA_CLIENTEValue: Float;
|
||||
begin
|
||||
result := DataTable.Fields[idx_PedidoCliente_ArticulosPendientesPedirAProvCANT_PEDIDA_CLIENTE].AsInteger;
|
||||
result := DataTable.Fields[idx_PedidoCliente_ArticulosPendientesPedirAProvCANT_PEDIDA_CLIENTE].AsFloat;
|
||||
end;
|
||||
|
||||
procedure TPedidoCliente_ArticulosPendientesPedirAProvDataTableRules.SetCANT_PEDIDA_CLIENTEValue(const aValue: Integer);
|
||||
procedure TPedidoCliente_ArticulosPendientesPedirAProvDataTableRules.SetCANT_PEDIDA_CLIENTEValue(const aValue: Float);
|
||||
begin
|
||||
DataTable.Fields[idx_PedidoCliente_ArticulosPendientesPedirAProvCANT_PEDIDA_CLIENTE].AsInteger := aValue;
|
||||
DataTable.Fields[idx_PedidoCliente_ArticulosPendientesPedirAProvCANT_PEDIDA_CLIENTE].AsFloat := aValue;
|
||||
end;
|
||||
|
||||
function TPedidoCliente_ArticulosPendientesPedirAProvDataTableRules.GetCANT_PEDIDA_CLIENTEIsNull: boolean;
|
||||
@ -1384,14 +1915,14 @@ begin
|
||||
DataTable.Fields[idx_PedidoCliente_ArticulosPendientesPedirAProvID_PROVEEDOR].AsVariant := Null;
|
||||
end;
|
||||
|
||||
function TPedidoCliente_ArticulosPendientesPedirAProvDataTableRules.GetCANT_PEDIDA_PROVEEDORValue: Integer;
|
||||
function TPedidoCliente_ArticulosPendientesPedirAProvDataTableRules.GetCANT_PEDIDA_PROVEEDORValue: Float;
|
||||
begin
|
||||
result := DataTable.Fields[idx_PedidoCliente_ArticulosPendientesPedirAProvCANT_PEDIDA_PROVEEDOR].AsInteger;
|
||||
result := DataTable.Fields[idx_PedidoCliente_ArticulosPendientesPedirAProvCANT_PEDIDA_PROVEEDOR].AsFloat;
|
||||
end;
|
||||
|
||||
procedure TPedidoCliente_ArticulosPendientesPedirAProvDataTableRules.SetCANT_PEDIDA_PROVEEDORValue(const aValue: Integer);
|
||||
procedure TPedidoCliente_ArticulosPendientesPedirAProvDataTableRules.SetCANT_PEDIDA_PROVEEDORValue(const aValue: Float);
|
||||
begin
|
||||
DataTable.Fields[idx_PedidoCliente_ArticulosPendientesPedirAProvCANT_PEDIDA_PROVEEDOR].AsInteger := aValue;
|
||||
DataTable.Fields[idx_PedidoCliente_ArticulosPendientesPedirAProvCANT_PEDIDA_PROVEEDOR].AsFloat := aValue;
|
||||
end;
|
||||
|
||||
function TPedidoCliente_ArticulosPendientesPedirAProvDataTableRules.GetCANT_PEDIDA_PROVEEDORIsNull: boolean;
|
||||
@ -1405,14 +1936,14 @@ begin
|
||||
DataTable.Fields[idx_PedidoCliente_ArticulosPendientesPedirAProvCANT_PEDIDA_PROVEEDOR].AsVariant := Null;
|
||||
end;
|
||||
|
||||
function TPedidoCliente_ArticulosPendientesPedirAProvDataTableRules.GetCANT_PENDIENTE_PEDIRValue: Integer;
|
||||
function TPedidoCliente_ArticulosPendientesPedirAProvDataTableRules.GetCANT_PENDIENTE_PEDIRValue: Float;
|
||||
begin
|
||||
result := DataTable.Fields[idx_PedidoCliente_ArticulosPendientesPedirAProvCANT_PENDIENTE_PEDIR].AsInteger;
|
||||
result := DataTable.Fields[idx_PedidoCliente_ArticulosPendientesPedirAProvCANT_PENDIENTE_PEDIR].AsFloat;
|
||||
end;
|
||||
|
||||
procedure TPedidoCliente_ArticulosPendientesPedirAProvDataTableRules.SetCANT_PENDIENTE_PEDIRValue(const aValue: Integer);
|
||||
procedure TPedidoCliente_ArticulosPendientesPedirAProvDataTableRules.SetCANT_PENDIENTE_PEDIRValue(const aValue: Float);
|
||||
begin
|
||||
DataTable.Fields[idx_PedidoCliente_ArticulosPendientesPedirAProvCANT_PENDIENTE_PEDIR].AsInteger := aValue;
|
||||
DataTable.Fields[idx_PedidoCliente_ArticulosPendientesPedirAProvCANT_PENDIENTE_PEDIR].AsFloat := aValue;
|
||||
end;
|
||||
|
||||
function TPedidoCliente_ArticulosPendientesPedirAProvDataTableRules.GetCANT_PENDIENTE_PEDIRIsNull: boolean;
|
||||
@ -2566,14 +3097,14 @@ begin
|
||||
DataTable.Fields[idx_PedidoCliente_Articulos_PendientesID_ARTICULO].AsVariant := Null;
|
||||
end;
|
||||
|
||||
function TPedidoCliente_Articulos_PendientesDataTableRules.GetCANTIDAD_PEDValue: Integer;
|
||||
function TPedidoCliente_Articulos_PendientesDataTableRules.GetCANTIDAD_PEDValue: Float;
|
||||
begin
|
||||
result := DataTable.Fields[idx_PedidoCliente_Articulos_PendientesCANTIDAD_PED].AsInteger;
|
||||
result := DataTable.Fields[idx_PedidoCliente_Articulos_PendientesCANTIDAD_PED].AsFloat;
|
||||
end;
|
||||
|
||||
procedure TPedidoCliente_Articulos_PendientesDataTableRules.SetCANTIDAD_PEDValue(const aValue: Integer);
|
||||
procedure TPedidoCliente_Articulos_PendientesDataTableRules.SetCANTIDAD_PEDValue(const aValue: Float);
|
||||
begin
|
||||
DataTable.Fields[idx_PedidoCliente_Articulos_PendientesCANTIDAD_PED].AsInteger := aValue;
|
||||
DataTable.Fields[idx_PedidoCliente_Articulos_PendientesCANTIDAD_PED].AsFloat := aValue;
|
||||
end;
|
||||
|
||||
function TPedidoCliente_Articulos_PendientesDataTableRules.GetCANTIDAD_PEDIsNull: boolean;
|
||||
@ -2587,14 +3118,14 @@ begin
|
||||
DataTable.Fields[idx_PedidoCliente_Articulos_PendientesCANTIDAD_PED].AsVariant := Null;
|
||||
end;
|
||||
|
||||
function TPedidoCliente_Articulos_PendientesDataTableRules.GetCANTIDAD_ALBValue: Integer;
|
||||
function TPedidoCliente_Articulos_PendientesDataTableRules.GetCANTIDAD_ALBValue: Float;
|
||||
begin
|
||||
result := DataTable.Fields[idx_PedidoCliente_Articulos_PendientesCANTIDAD_ALB].AsInteger;
|
||||
result := DataTable.Fields[idx_PedidoCliente_Articulos_PendientesCANTIDAD_ALB].AsFloat;
|
||||
end;
|
||||
|
||||
procedure TPedidoCliente_Articulos_PendientesDataTableRules.SetCANTIDAD_ALBValue(const aValue: Integer);
|
||||
procedure TPedidoCliente_Articulos_PendientesDataTableRules.SetCANTIDAD_ALBValue(const aValue: Float);
|
||||
begin
|
||||
DataTable.Fields[idx_PedidoCliente_Articulos_PendientesCANTIDAD_ALB].AsInteger := aValue;
|
||||
DataTable.Fields[idx_PedidoCliente_Articulos_PendientesCANTIDAD_ALB].AsFloat := aValue;
|
||||
end;
|
||||
|
||||
function TPedidoCliente_Articulos_PendientesDataTableRules.GetCANTIDAD_ALBIsNull: boolean;
|
||||
@ -2608,14 +3139,14 @@ begin
|
||||
DataTable.Fields[idx_PedidoCliente_Articulos_PendientesCANTIDAD_ALB].AsVariant := Null;
|
||||
end;
|
||||
|
||||
function TPedidoCliente_Articulos_PendientesDataTableRules.GetCANTIDAD_PENDIENTEValue: Integer;
|
||||
function TPedidoCliente_Articulos_PendientesDataTableRules.GetCANTIDAD_PENDIENTEValue: Float;
|
||||
begin
|
||||
result := DataTable.Fields[idx_PedidoCliente_Articulos_PendientesCANTIDAD_PENDIENTE].AsInteger;
|
||||
result := DataTable.Fields[idx_PedidoCliente_Articulos_PendientesCANTIDAD_PENDIENTE].AsFloat;
|
||||
end;
|
||||
|
||||
procedure TPedidoCliente_Articulos_PendientesDataTableRules.SetCANTIDAD_PENDIENTEValue(const aValue: Integer);
|
||||
procedure TPedidoCliente_Articulos_PendientesDataTableRules.SetCANTIDAD_PENDIENTEValue(const aValue: Float);
|
||||
begin
|
||||
DataTable.Fields[idx_PedidoCliente_Articulos_PendientesCANTIDAD_PENDIENTE].AsInteger := aValue;
|
||||
DataTable.Fields[idx_PedidoCliente_Articulos_PendientesCANTIDAD_PENDIENTE].AsFloat := aValue;
|
||||
end;
|
||||
|
||||
function TPedidoCliente_Articulos_PendientesDataTableRules.GetCANTIDAD_PENDIENTEIsNull: boolean;
|
||||
@ -2937,6 +3468,7 @@ end;
|
||||
|
||||
|
||||
initialization
|
||||
RegisterDataTableRules(RID_PedidoCliente_Art_Colores_Pendientes, TPedidoCliente_Art_Colores_PendientesDataTableRules);
|
||||
RegisterDataTableRules(RID_ListaAnosPedidos, TListaAnosPedidosDataTableRules);
|
||||
RegisterDataTableRules(RID_PedidoCliente_ArticulosPendientesPedirAProv, TPedidoCliente_ArticulosPendientesPedirAProvDataTableRules);
|
||||
RegisterDataTableRules(RID_PedidosCliente, TPedidosClienteDataTableRules);
|
||||
|
||||
File diff suppressed because it is too large
Load Diff
@ -8,6 +8,7 @@ uses
|
||||
const
|
||||
BIZ_CLIENT_DETALLES_PEDIDO_CLIENTE = 'Client.PedidoCliente.Detalles';
|
||||
BIZ_CLIENT_ARTICULOS_PEND_PEDIDO_CLIENTE = 'Client.PedidoCliente.ArticulosPendientes';
|
||||
BIZ_CLIENT_ARTCOLORES_PEND_PEDIDO_CLIENTE = 'Client.PedidoCliente.ArtColoresPendientes';
|
||||
|
||||
type
|
||||
IBizDetallesPedidoCliente = interface(IPedidosCliente_Detalles)
|
||||
@ -21,6 +22,10 @@ type
|
||||
['{DD245879-DD80-4E96-995A-6D3A09D72544}']
|
||||
end;
|
||||
|
||||
IBizPedidoClienteArtColoresPend = interface(IPedidoCliente_Art_Colores_Pendientes)
|
||||
['{8E4E1C52-0160-4EBF-AD20-10EBEE8B4266}']
|
||||
end;
|
||||
|
||||
TBizDetallesPedidoCliente = class(TPedidosCliente_DetallesDataTableRules, IBizDetallesPedidoCliente)
|
||||
protected
|
||||
FDetalleColores : IBizDetalleColoresPedidoCliente;
|
||||
@ -35,12 +40,14 @@ type
|
||||
public
|
||||
property DetalleColores: IBizDetalleColoresPedidoCliente read GetDetalleColores write SetDetalleColores;
|
||||
constructor Create(aDataTable: TDADataTable); override;
|
||||
destructor Destroy; override;
|
||||
destructor Destroy; override;
|
||||
end;
|
||||
|
||||
TBizPedidoClienteArticulosPend = class(TPedidoCliente_Articulos_PendientesDataTableRules, IBizPedidoClienteArticulosPend)
|
||||
end;
|
||||
|
||||
TBizPedidoClienteArColoresPend = class(TPedidoCliente_Art_Colores_PendientesDataTableRules, IBizPedidoClienteArtColoresPend)
|
||||
end;
|
||||
|
||||
implementation
|
||||
|
||||
@ -95,5 +102,6 @@ end;
|
||||
initialization
|
||||
RegisterDataTableRules(BIZ_CLIENT_DETALLES_PEDIDO_CLIENTE, TBizDetallesPedidoCliente);
|
||||
RegisterDataTableRules(BIZ_CLIENT_ARTICULOS_PEND_PEDIDO_CLIENTE, TBizPedidoClienteArticulosPend);
|
||||
RegisterDataTableRules(BIZ_CLIENT_ARTCOLORES_PEND_PEDIDO_CLIENTE, TBizPedidoClienteArColoresPend);
|
||||
|
||||
end.
|
||||
|
||||
@ -12,6 +12,6 @@ STRINGTABLE
|
||||
BEGIN
|
||||
END
|
||||
|
||||
/* C:\Codigo Noviseda\Source\Modulos\Pedidos de cliente\Plugin\uPluginPedidosCliente.dfm */
|
||||
/* C:\Codigo Noviseda\Source\Modulos\Pedidos de cliente\Plugin\PedidosCliente_plugin.res */
|
||||
/* C:\Codigo Noviseda\Source\Modulos\Pedidos de cliente\Plugin\PedidosCliente_plugin.drf */
|
||||
/* C:\Codigo noviseda\Source\Modulos\Pedidos de cliente\Plugin\uPluginPedidosCliente.dfm */
|
||||
/* C:\Codigo noviseda\Source\Modulos\Pedidos de cliente\Plugin\PedidosCliente_plugin.res */
|
||||
/* C:\DOCUME~1\Usuario\CONFIG~1\Temp\dtf246.tmp */
|
||||
|
||||
@ -13,6 +13,132 @@ object srvPedidosCliente: TsrvPedidosCliente
|
||||
ConnectionManager = dmServer.ConnectionManager
|
||||
DataDictionary = DADataDictionary
|
||||
Datasets = <
|
||||
item
|
||||
Params = <>
|
||||
Statements = <
|
||||
item
|
||||
ConnectionType = 'Interbase'
|
||||
Default = True
|
||||
TargetTable = 'V_PED_CLI_ART_COLORES_PEND'
|
||||
Name = 'IBX'
|
||||
StatementType = stAutoSQL
|
||||
ColumnMappings = <
|
||||
item
|
||||
DatasetField = 'ID_PEDIDO'
|
||||
TableField = 'ID_PEDIDO'
|
||||
end
|
||||
item
|
||||
DatasetField = 'ID_ARTICULO'
|
||||
TableField = 'ID_ARTICULO'
|
||||
end
|
||||
item
|
||||
DatasetField = 'COLOR1'
|
||||
TableField = 'COLOR1'
|
||||
end
|
||||
item
|
||||
DatasetField = 'COLOR2'
|
||||
TableField = 'COLOR2'
|
||||
end
|
||||
item
|
||||
DatasetField = 'COLOR3'
|
||||
TableField = 'COLOR3'
|
||||
end
|
||||
item
|
||||
DatasetField = 'COLOR4'
|
||||
TableField = 'COLOR4'
|
||||
end
|
||||
item
|
||||
DatasetField = 'COLOR5'
|
||||
TableField = 'COLOR5'
|
||||
end
|
||||
item
|
||||
DatasetField = 'COLOR6'
|
||||
TableField = 'COLOR6'
|
||||
end
|
||||
item
|
||||
DatasetField = 'COLOR7'
|
||||
TableField = 'COLOR7'
|
||||
end
|
||||
item
|
||||
DatasetField = 'COLOR8'
|
||||
TableField = 'COLOR8'
|
||||
end
|
||||
item
|
||||
DatasetField = 'COLOR9'
|
||||
TableField = 'COLOR9'
|
||||
end
|
||||
item
|
||||
DatasetField = 'COLOR10'
|
||||
TableField = 'COLOR10'
|
||||
end
|
||||
item
|
||||
DatasetField = 'COLOR11'
|
||||
TableField = 'COLOR11'
|
||||
end
|
||||
item
|
||||
DatasetField = 'COLOR12'
|
||||
TableField = 'COLOR12'
|
||||
end>
|
||||
end>
|
||||
Name = 'PedidoCliente_Art_Colores_Pendientes'
|
||||
Fields = <
|
||||
item
|
||||
Name = 'ID_PEDIDO'
|
||||
DataType = datInteger
|
||||
end
|
||||
item
|
||||
Name = 'ID_ARTICULO'
|
||||
DataType = datInteger
|
||||
end
|
||||
item
|
||||
Name = 'COLOR1'
|
||||
DataType = datLargeInt
|
||||
end
|
||||
item
|
||||
Name = 'COLOR2'
|
||||
DataType = datLargeInt
|
||||
end
|
||||
item
|
||||
Name = 'COLOR3'
|
||||
DataType = datLargeInt
|
||||
end
|
||||
item
|
||||
Name = 'COLOR4'
|
||||
DataType = datLargeInt
|
||||
end
|
||||
item
|
||||
Name = 'COLOR5'
|
||||
DataType = datLargeInt
|
||||
end
|
||||
item
|
||||
Name = 'COLOR6'
|
||||
DataType = datLargeInt
|
||||
end
|
||||
item
|
||||
Name = 'COLOR7'
|
||||
DataType = datLargeInt
|
||||
end
|
||||
item
|
||||
Name = 'COLOR8'
|
||||
DataType = datLargeInt
|
||||
end
|
||||
item
|
||||
Name = 'COLOR9'
|
||||
DataType = datLargeInt
|
||||
end
|
||||
item
|
||||
Name = 'COLOR10'
|
||||
DataType = datLargeInt
|
||||
end
|
||||
item
|
||||
Name = 'COLOR11'
|
||||
DataType = datLargeInt
|
||||
end
|
||||
item
|
||||
Name = 'COLOR12'
|
||||
DataType = datLargeInt
|
||||
end>
|
||||
end
|
||||
item
|
||||
Params = <>
|
||||
Statements = <
|
||||
@ -88,7 +214,7 @@ object srvPedidosCliente: TsrvPedidosCliente
|
||||
end
|
||||
item
|
||||
Name = 'CANT_PEDIDA_CLIENTE'
|
||||
DataType = datInteger
|
||||
DataType = datFloat
|
||||
DictionaryEntry = 'DarArticulosPendientesPedirAProv_CANT_PEDIDA_CLIENTE'
|
||||
end
|
||||
item
|
||||
@ -98,12 +224,12 @@ object srvPedidosCliente: TsrvPedidosCliente
|
||||
end
|
||||
item
|
||||
Name = 'CANT_PEDIDA_PROVEEDOR'
|
||||
DataType = datInteger
|
||||
DataType = datFloat
|
||||
DictionaryEntry = 'DarArticulosPendientesPedirAProv_CANT_PEDIDA_PROVEEDOR'
|
||||
end
|
||||
item
|
||||
Name = 'CANT_PENDIENTE_PEDIR'
|
||||
DataType = datInteger
|
||||
DataType = datFloat
|
||||
DictionaryEntry = 'DarArticulosPendientesPedirAProv_CANT_PENDIENTE_PEDIR'
|
||||
end>
|
||||
end
|
||||
@ -283,6 +409,7 @@ object srvPedidosCliente: TsrvPedidosCliente
|
||||
Name = 'NOMBRE'
|
||||
DataType = datString
|
||||
Size = 255
|
||||
ServerAutoRefresh = True
|
||||
DictionaryEntry = 'PedidosCliente_NOMBRE'
|
||||
end
|
||||
item
|
||||
@ -675,17 +802,17 @@ object srvPedidosCliente: TsrvPedidosCliente
|
||||
end
|
||||
item
|
||||
Name = 'CANTIDAD_PED'
|
||||
DataType = datInteger
|
||||
DataType = datFloat
|
||||
DictionaryEntry = 'PedidoCliente_Articulos_Pendientes_CANTIDAD_PED'
|
||||
end
|
||||
item
|
||||
Name = 'CANTIDAD_ALB'
|
||||
DataType = datInteger
|
||||
DataType = datFloat
|
||||
DictionaryEntry = 'PedidoCliente_Articulos_Pendientes_CANTIDAD_ALB'
|
||||
end
|
||||
item
|
||||
Name = 'CANTIDAD_PENDIENTE'
|
||||
DataType = datInteger
|
||||
DataType = datFloat
|
||||
DictionaryEntry = 'PedidoCliente_Articulos_Pendientes_CANTIDAD_PENDIENTE'
|
||||
end>
|
||||
end
|
||||
@ -763,61 +890,74 @@ object srvPedidosCliente: TsrvPedidosCliente
|
||||
item
|
||||
Name = 'ID'
|
||||
DataType = datAutoInc
|
||||
GeneratorName = 'GEN_PEDIDOS_CLI_DETALLES_ID'
|
||||
DictionaryEntry = 'PedidosCliente_Detalles_ID'
|
||||
GeneratorName = 'GEN_PEDIDOS_CLI_DET_COLOR_ID'
|
||||
DictionaryEntry = 'PedidosCliente_Detalle_Color_ID'
|
||||
InPrimaryKey = True
|
||||
end
|
||||
item
|
||||
Name = 'ID_DETALLE'
|
||||
DataType = datInteger
|
||||
DictionaryEntry = 'PedidosCliente_Detalle_Color_ID_DETALLE'
|
||||
end
|
||||
item
|
||||
Name = 'COLOR1'
|
||||
DataType = datInteger
|
||||
DictionaryEntry = 'PedidosCliente_Detalle_Color_COLOR1'
|
||||
end
|
||||
item
|
||||
Name = 'COLOR2'
|
||||
DataType = datInteger
|
||||
DictionaryEntry = 'PedidosCliente_Detalle_Color_COLOR2'
|
||||
end
|
||||
item
|
||||
Name = 'COLOR3'
|
||||
DataType = datInteger
|
||||
DictionaryEntry = 'PedidosCliente_Detalle_Color_COLOR3'
|
||||
end
|
||||
item
|
||||
Name = 'COLOR4'
|
||||
DataType = datInteger
|
||||
DictionaryEntry = 'PedidosCliente_Detalle_Color_COLOR4'
|
||||
end
|
||||
item
|
||||
Name = 'COLOR5'
|
||||
DataType = datInteger
|
||||
DictionaryEntry = 'PedidosCliente_Detalle_Color_COLOR5'
|
||||
end
|
||||
item
|
||||
Name = 'COLOR6'
|
||||
DataType = datInteger
|
||||
DictionaryEntry = 'PedidosCliente_Detalle_Color_COLOR6'
|
||||
end
|
||||
item
|
||||
Name = 'COLOR7'
|
||||
DataType = datInteger
|
||||
DictionaryEntry = 'PedidosCliente_Detalle_Color_COLOR7'
|
||||
end
|
||||
item
|
||||
Name = 'COLOR8'
|
||||
DataType = datInteger
|
||||
DictionaryEntry = 'PedidosCliente_Detalle_Color_COLOR8'
|
||||
end
|
||||
item
|
||||
Name = 'COLOR9'
|
||||
DataType = datInteger
|
||||
DictionaryEntry = 'PedidosCliente_Detalle_Color_COLOR9'
|
||||
end
|
||||
item
|
||||
Name = 'COLOR10'
|
||||
DataType = datInteger
|
||||
DictionaryEntry = 'PedidosCliente_Detalle_Color_COLOR10'
|
||||
end
|
||||
item
|
||||
Name = 'COLOR11'
|
||||
DataType = datInteger
|
||||
DictionaryEntry = 'PedidosCliente_Detalle_Color_COLOR11'
|
||||
end
|
||||
item
|
||||
Name = 'COLOR12'
|
||||
DataType = datInteger
|
||||
DictionaryEntry = 'PedidosCliente_Detalle_Color_COLOR12'
|
||||
end>
|
||||
end>
|
||||
JoinDataTables = <>
|
||||
@ -1039,7 +1179,8 @@ object srvPedidosCliente: TsrvPedidosCliente
|
||||
Params = <
|
||||
item
|
||||
Name = 'ID'
|
||||
DataType = datInteger
|
||||
DataType = datAutoInc
|
||||
GeneratorName = 'GEN_PEDIDOS_CLI_ID'
|
||||
Value = ''
|
||||
end
|
||||
item
|
||||
@ -1462,7 +1603,7 @@ object srvPedidosCliente: TsrvPedidosCliente
|
||||
item
|
||||
Name = 'ID'
|
||||
DataType = datAutoInc
|
||||
GeneratorName = 'GEN_PEDIDOS_CLI_DETALLES_ID'
|
||||
GeneratorName = 'GEN_PEDIDOS_CLI_DET_COLOR_ID'
|
||||
Value = ''
|
||||
end
|
||||
item
|
||||
@ -1670,7 +1811,7 @@ object srvPedidosCliente: TsrvPedidosCliente
|
||||
Name = 'FK_Pedidos_Cliente_Detalles'
|
||||
MasterDatasetName = 'PedidosCliente'
|
||||
MasterFields = 'ID'
|
||||
DetailDatasetName = 'PedidosCliente_Detalle_Color'
|
||||
DetailDatasetName = 'PedidosCliente_Detalles'
|
||||
DetailFields = 'ID_PEDIDO'
|
||||
RelationshipType = rtForeignKey
|
||||
end>
|
||||
@ -1689,6 +1830,13 @@ object srvPedidosCliente: TsrvPedidosCliente
|
||||
DatasetName = 'PedidosCliente_Detalles'
|
||||
FailureBehavior = fbRaiseException
|
||||
end
|
||||
item
|
||||
Name = 'Insert PedidosCliente_Detalle_Color'
|
||||
DoUpdate = False
|
||||
DoDelete = False
|
||||
DatasetName = 'PedidosCliente_Detalle_Color'
|
||||
FailureBehavior = fbRaiseException
|
||||
end
|
||||
item
|
||||
Name = 'Update PedidosCliente'
|
||||
DoInsert = False
|
||||
@ -1703,6 +1851,20 @@ object srvPedidosCliente: TsrvPedidosCliente
|
||||
DatasetName = 'PedidosCliente_Detalles'
|
||||
FailureBehavior = fbRaiseException
|
||||
end
|
||||
item
|
||||
Name = 'Update PedidosCliente_Detalle_Color'
|
||||
DoInsert = False
|
||||
DoDelete = False
|
||||
DatasetName = 'PedidosCliente_Detalle_Color'
|
||||
FailureBehavior = fbRaiseException
|
||||
end
|
||||
item
|
||||
Name = 'Delete PedidosCliente_Detalle_Color'
|
||||
DoUpdate = False
|
||||
DoInsert = False
|
||||
DatasetName = 'PedidosCliente_Detalle_Color'
|
||||
FailureBehavior = fbRaiseException
|
||||
end
|
||||
item
|
||||
Name = 'Delete PedidosCliente_Detalles'
|
||||
DoUpdate = False
|
||||
@ -1766,6 +1928,7 @@ object srvPedidosCliente: TsrvPedidosCliente
|
||||
DataType = datString
|
||||
Size = 255
|
||||
DisplayLabel = 'Nombre del cliente'
|
||||
ServerAutoRefresh = True
|
||||
end
|
||||
item
|
||||
Name = 'PedidosCliente_FECHA_PEDIDO'
|
||||
@ -1977,19 +2140,19 @@ object srvPedidosCliente: TsrvPedidosCliente
|
||||
end
|
||||
item
|
||||
Name = 'PedidoCliente_Articulos_Pendientes_CANTIDAD_PED'
|
||||
DataType = datInteger
|
||||
DataType = datFloat
|
||||
DisplayLabel = 'Cantidad en pedido'
|
||||
Alignment = taRightJustify
|
||||
end
|
||||
item
|
||||
Name = 'PedidoCliente_Articulos_Pendientes_CANTIDAD_ALB'
|
||||
DataType = datInteger
|
||||
DataType = datFloat
|
||||
DisplayLabel = 'Cantidad en albaranes'
|
||||
Alignment = taRightJustify
|
||||
end
|
||||
item
|
||||
Name = 'PedidoCliente_Articulos_Pendientes_CANTIDAD_PENDIENTE'
|
||||
DataType = datInteger
|
||||
DataType = datFloat
|
||||
DisplayLabel = 'Cantidad pendiente'
|
||||
Alignment = taRightJustify
|
||||
end
|
||||
@ -2005,7 +2168,7 @@ object srvPedidosCliente: TsrvPedidosCliente
|
||||
end
|
||||
item
|
||||
Name = 'DarArticulosPendientesPedirAProv_CANT_PEDIDA_CLIENTE'
|
||||
DataType = datInteger
|
||||
DataType = datFloat
|
||||
DisplayLabel = 'Cant. pedida por cliente'
|
||||
end
|
||||
item
|
||||
@ -2015,12 +2178,12 @@ object srvPedidosCliente: TsrvPedidosCliente
|
||||
end
|
||||
item
|
||||
Name = 'DarArticulosPendientesPedirAProv_CANT_PEDIDA_PROVEEDOR'
|
||||
DataType = datInteger
|
||||
DataType = datFloat
|
||||
DisplayLabel = 'Cant. pedida a proveedor'
|
||||
end
|
||||
item
|
||||
Name = 'DarArticulosPendientesPedirAProv_CANT_PENDIENTE_PEDIR'
|
||||
DataType = datInteger
|
||||
DataType = datFloat
|
||||
DisplayLabel = 'Cant. pendiente pedir'
|
||||
end
|
||||
item
|
||||
@ -2086,6 +2249,65 @@ object srvPedidosCliente: TsrvPedidosCliente
|
||||
Name = 'PedidosCliente_DATOS_BANCARIOS'
|
||||
DataType = datString
|
||||
Size = 255
|
||||
end
|
||||
item
|
||||
Name = 'PedidosCliente_Detalle_Color_ID'
|
||||
DataType = datAutoInc
|
||||
GeneratorName = 'GEN_PEDIDOS_CLI_DET_COLOR_ID'
|
||||
Required = True
|
||||
DisplayLabel = 'ID'
|
||||
end
|
||||
item
|
||||
Name = 'PedidosCliente_Detalle_Color_ID_DETALLE'
|
||||
DataType = datInteger
|
||||
end
|
||||
item
|
||||
Name = 'PedidosCliente_Detalle_Color_COLOR1'
|
||||
DataType = datInteger
|
||||
end
|
||||
item
|
||||
Name = 'PedidosCliente_Detalle_Color_COLOR2'
|
||||
DataType = datInteger
|
||||
end
|
||||
item
|
||||
Name = 'PedidosCliente_Detalle_Color_COLOR3'
|
||||
DataType = datInteger
|
||||
end
|
||||
item
|
||||
Name = 'PedidosCliente_Detalle_Color_COLOR4'
|
||||
DataType = datInteger
|
||||
end
|
||||
item
|
||||
Name = 'PedidosCliente_Detalle_Color_COLOR5'
|
||||
DataType = datInteger
|
||||
end
|
||||
item
|
||||
Name = 'PedidosCliente_Detalle_Color_COLOR6'
|
||||
DataType = datInteger
|
||||
end
|
||||
item
|
||||
Name = 'PedidosCliente_Detalle_Color_COLOR7'
|
||||
DataType = datInteger
|
||||
end
|
||||
item
|
||||
Name = 'PedidosCliente_Detalle_Color_COLOR8'
|
||||
DataType = datInteger
|
||||
end
|
||||
item
|
||||
Name = 'PedidosCliente_Detalle_Color_COLOR9'
|
||||
DataType = datInteger
|
||||
end
|
||||
item
|
||||
Name = 'PedidosCliente_Detalle_Color_COLOR10'
|
||||
DataType = datInteger
|
||||
end
|
||||
item
|
||||
Name = 'PedidosCliente_Detalle_Color_COLOR11'
|
||||
DataType = datInteger
|
||||
end
|
||||
item
|
||||
Name = 'PedidosCliente_Detalle_Color_COLOR12'
|
||||
DataType = datInteger
|
||||
end>
|
||||
Left = 48
|
||||
Top = 152
|
||||
|
||||
@ -12,17 +12,17 @@ STRINGTABLE
|
||||
BEGIN
|
||||
END
|
||||
|
||||
/* C:\Codigo Noviseda\Source\Modulos\Pedidos de cliente\Views\uViewPedidosCliente.dfm */
|
||||
/* C:\Codigo Noviseda\Source\Modulos\Pedidos de cliente\Views\uEditorPedidosCliente.dfm */
|
||||
/* C:\Codigo Noviseda\Source\Modulos\Pedidos de cliente\Views\uViewDetallesPedidoCliente.dfm */
|
||||
/* C:\Codigo Noviseda\Source\Modulos\Pedidos de cliente\Views\uViewDatosYSeleccionClientePedido.dfm */
|
||||
/* C:\Codigo Noviseda\Source\Modulos\Pedidos de cliente\Views\uViewDireccionEntregaPedidoCliente.dfm */
|
||||
/* C:\Codigo Noviseda\Source\Modulos\Pedidos de cliente\Views\uViewPedidoCliente.dfm */
|
||||
/* C:\Codigo Noviseda\Source\Modulos\Pedidos de cliente\Views\uViewTotalesPedido.dfm */
|
||||
/* C:\Codigo Noviseda\Source\Modulos\Pedidos de cliente\Views\uEditorPedidoCliente.dfm */
|
||||
/* C:\Codigo Noviseda\Source\Modulos\Pedidos de cliente\Views\uEditorElegirPedidosCliente.dfm */
|
||||
/* C:\Codigo Noviseda\Source\Modulos\Pedidos de cliente\Views\uViewElegirArticulosPedidosCliente.dfm */
|
||||
/* C:\Codigo Noviseda\Source\Modulos\Pedidos de cliente\Views\uEditorElegirArticulosPedidoCliente.dfm */
|
||||
/* C:\Codigo Noviseda\Source\Modulos\Pedidos de cliente\Views\uEditorPedidosClienteReport.dfm */
|
||||
/* C:\Codigo Noviseda\Source\Modulos\Pedidos de cliente\Views\PedidosCliente_view.res */
|
||||
/* C:\Codigo Noviseda\Source\Modulos\Pedidos de cliente\Views\PedidosCliente_view.drf */
|
||||
/* C:\Codigo noviseda\Source\Modulos\Pedidos de cliente\Views\uViewPedidosCliente.dfm */
|
||||
/* C:\Codigo noviseda\Source\Modulos\Pedidos de cliente\Views\uEditorPedidosCliente.dfm */
|
||||
/* C:\Codigo noviseda\Source\Modulos\Pedidos de cliente\Views\uViewDetallesPedidoCliente.dfm */
|
||||
/* C:\Codigo noviseda\Source\Modulos\Pedidos de cliente\Views\uViewDatosYSeleccionClientePedido.dfm */
|
||||
/* C:\Codigo noviseda\Source\Modulos\Pedidos de cliente\Views\uViewDireccionEntregaPedidoCliente.dfm */
|
||||
/* C:\Codigo noviseda\Source\Modulos\Pedidos de cliente\Views\uViewPedidoCliente.dfm */
|
||||
/* C:\Codigo noviseda\Source\Modulos\Pedidos de cliente\Views\uViewTotalesPedido.dfm */
|
||||
/* C:\Codigo noviseda\Source\Modulos\Pedidos de cliente\Views\uEditorPedidoCliente.dfm */
|
||||
/* C:\Codigo noviseda\Source\Modulos\Pedidos de cliente\Views\uEditorElegirPedidosCliente.dfm */
|
||||
/* C:\Codigo noviseda\Source\Modulos\Pedidos de cliente\Views\uViewElegirArticulosPedidosCliente.dfm */
|
||||
/* C:\Codigo noviseda\Source\Modulos\Pedidos de cliente\Views\uEditorElegirArticulosPedidoCliente.dfm */
|
||||
/* C:\Codigo noviseda\Source\Modulos\Pedidos de cliente\Views\uEditorPedidosClienteReport.dfm */
|
||||
/* C:\Codigo noviseda\Source\Modulos\Pedidos de cliente\Views\PedidosCliente_view.res */
|
||||
/* C:\DOCUME~1\Usuario\CONFIG~1\Temp\dtf244.tmp */
|
||||
|
||||
@ -129,6 +129,14 @@ inherited fEditorPedidosCliente: TfEditorPedidosCliente
|
||||
inherited tbxMenu: TSpTBXToolbar
|
||||
ExplicitWidth = 674
|
||||
end
|
||||
inherited TBXTMain2: TSpTBXToolbar
|
||||
Visible = True
|
||||
ExplicitWidth = 167
|
||||
object SpTBXItem1: TSpTBXItem
|
||||
Action = actGenerarAlbaranCli
|
||||
DisplayMode = nbdmImageAndText
|
||||
end
|
||||
end
|
||||
end
|
||||
inherited StatusBar: TJvStatusBar
|
||||
Width = 674
|
||||
|
||||
@ -29,6 +29,7 @@ type
|
||||
JsImprimirDialog: TJSDialog;
|
||||
JsListaPedidosNoEliminados: TJSDialog;
|
||||
actEnviarEmail: TAction;
|
||||
SpTBXItem1: TSpTBXItem;
|
||||
procedure FormShow(Sender: TObject);
|
||||
procedure actGenerarAlbaranCliExecute(Sender: TObject);
|
||||
procedure actEliminarUpdate(Sender: TObject);
|
||||
|
||||
@ -72,12 +72,14 @@ end;
|
||||
procedure CopiarArticulosPendAAlbaran(
|
||||
APedido: IBizPedidoCliente;
|
||||
AAlbaran: IBizAlbaranCliente;
|
||||
AArticulosPendientes: IBizPedidoClienteArticulosPend);
|
||||
AArticulosPendientes: IBizPedidoClienteArticulosPend;
|
||||
AArtColoresPendientes: IBizPedidoClienteArtColoresPend);
|
||||
var
|
||||
i : integer;
|
||||
ADetalles : IBizDetallesAlbaranCliente;
|
||||
ADetallesController : IDetallesAlbaranClienteController;
|
||||
begin
|
||||
|
||||
if not Assigned(AAlbaran) then
|
||||
raise Exception.Create ('Albarán no asignado (CopiarArticulosPendAAlbaran)');
|
||||
|
||||
@ -109,7 +111,7 @@ begin
|
||||
begin
|
||||
ADetallesController.Add(ADetalles, TIPO_DETALLE_CONCEPTO);
|
||||
ADetalles.Edit;
|
||||
ADetalles.ID_PEDIDO := APedido.Detalles.ID_PEDIDO;
|
||||
ADetalles.ID_PEDIDO := APedido.Detalles.ID_PEDIDO;
|
||||
ADetalles.REFERENCIA := APedido.Detalles.REFERENCIA;
|
||||
ADetalles.ID_ARTICULO := APedido.Detalles.ID_ARTICULO;
|
||||
ADetalles.CONCEPTO := APedido.Detalles.CONCEPTO;
|
||||
@ -121,6 +123,26 @@ begin
|
||||
ADetalles.VISIBLE := APedido.Detalles.VISIBLE;
|
||||
ADetalles.REFERENCIA_PROVEEDOR := APedido.Detalles.REFERENCIA_PROVEEDOR;
|
||||
ADetalles.Post;
|
||||
|
||||
AArtColoresPendientes.First;
|
||||
if AArtColoresPendientes.Locate('ID_ARTICULO', AArticulosPendientes.ID_ARTICULO, []) then
|
||||
begin
|
||||
ADetalles.DetalleColores.Edit;
|
||||
ADetalles.DetalleColores.COLOR1 := AArtColoresPendientes.COLOR1;
|
||||
ADetalles.DetalleColores.COLOR2 := AArtColoresPendientes.COLOR2;
|
||||
ADetalles.DetalleColores.COLOR3 := AArtColoresPendientes.COLOR3;
|
||||
ADetalles.DetalleColores.COLOR4 := AArtColoresPendientes.COLOR4;
|
||||
ADetalles.DetalleColores.COLOR5 := AArtColoresPendientes.COLOR5;
|
||||
ADetalles.DetalleColores.COLOR6 := AArtColoresPendientes.COLOR6;
|
||||
ADetalles.DetalleColores.COLOR7 := AArtColoresPendientes.COLOR7;
|
||||
ADetalles.DetalleColores.COLOR8 := AArtColoresPendientes.COLOR8;
|
||||
ADetalles.DetalleColores.COLOR9 := AArtColoresPendientes.COLOR9;
|
||||
ADetalles.DetalleColores.COLOR10 := AArtColoresPendientes.COLOR10;
|
||||
ADetalles.DetalleColores.COLOR11 := AArtColoresPendientes.COLOR11;
|
||||
ADetalles.DetalleColores.COLOR12 := AArtColoresPendientes.COLOR12;
|
||||
ADetalles.DetalleColores.Post;
|
||||
end;
|
||||
|
||||
AArticulosPendientes.Next;
|
||||
end;
|
||||
end;
|
||||
@ -180,6 +202,7 @@ var
|
||||
ARespuesta : Integer;
|
||||
AuxAlbaran : IBizAlbaranCliente;
|
||||
AArticulosPendientes: IBizPedidoClienteArticulosPend;
|
||||
AArtColoresPendientes: IBizPedidoClienteArtColoresPend;
|
||||
begin
|
||||
Result := False;
|
||||
AAlbaran := NIL;
|
||||
@ -194,20 +217,30 @@ begin
|
||||
Inicializar;
|
||||
|
||||
try
|
||||
AArticulosPendientes := APedidosClienteController.ArticulosPendientes(APedido.ID);
|
||||
AArticulosPendientes := APedidosClienteController.DetallesController.ArticulosPendientes(APedido.ID);
|
||||
AArtColoresPendientes := APedidosClienteController.DetallesController.ArtColoresPendientes(APedido.ID);
|
||||
if not Assigned(AArticulosPendientes) then
|
||||
raise Exception.Create('Error al recuperar los artículos sin albarán del pedido (GenerarAlbaranCli)');
|
||||
if not Assigned(AArtColoresPendientes) then
|
||||
raise Exception.Create('Error al recuperar los colores de los artículos sin albarán del pedido (GenerarAlbaranCli)');
|
||||
|
||||
AArticulosPendientes.DataTable.Active := True;
|
||||
AArtColoresPendientes.DataTable.Active := True;
|
||||
if AArticulosPendientes.DataTable.RecordCount = 0 then
|
||||
begin
|
||||
ShowWarningMessage('Generar albarán a partir del pedido', 'Todos los artículos de este pedido ya figuran en uno o más albaranes de cliente. Por lo que no se pueden generar nuevos albaranes para este pedido');
|
||||
Exit; // Aunque es un exit, se ejecuta la parte del finally antes de salir.
|
||||
Exit; // Aunque es un exit, se ejecuta la parte del finally antes de salir.
|
||||
end;
|
||||
|
||||
if AArticulosPendientes.DataTable.RecordCount <> AArtColoresPendientes.DataTable.RecordCount then
|
||||
begin
|
||||
ShowWarningMessage('Generar albarán a partir del pedido', 'No coinciden los articulos pendientes con los colores pendientes. Por lo que no se pueden generar nuevos albaranes para este pedido');
|
||||
Exit; // Aunque es un exit, se ejecuta la parte del finally antes de salir.
|
||||
end;
|
||||
|
||||
AuxAlbaran := AAlbaranesClienteController.Nuevo;
|
||||
CopiarPedidoAAlbaran(APedido, AuxAlbaran);
|
||||
CopiarArticulosPendAAlbaran(APedido, AuxAlbaran, AArticulosPendientes);
|
||||
CopiarArticulosPendAAlbaran(APedido, AuxAlbaran, AArticulosPendientes, AArtColoresPendientes);
|
||||
|
||||
//Sustituir por if de guardar
|
||||
if AAlbaranesClienteController.Guardar(AuxAlbaran) then
|
||||
@ -235,6 +268,7 @@ begin
|
||||
Result := True;
|
||||
finally
|
||||
AArticulosPendientes := NIL;
|
||||
AArtColoresPendientes := NIL;
|
||||
if Assigned(APedidosClienteController) then
|
||||
Finalizar;
|
||||
end;
|
||||
|
||||
Binary file not shown.
@ -3,6 +3,7 @@ program FactuGES_Server;
|
||||
{#ROGEN:..\Servicios\FactuGES.rodl} // RemObjects: Careful, do not remove!
|
||||
|
||||
uses
|
||||
// ExceptionLog,
|
||||
uROComInit,
|
||||
uROComboService,
|
||||
Forms,
|
||||
@ -138,11 +139,11 @@ uses
|
||||
uRptRemesasCliente_Server in '..\Modulos\Remesas de cliente\Reports\uRptRemesasCliente_Server.pas' {RptRemesasCliente: TDataModule},
|
||||
srvPedidosCliente_Impl in '..\Modulos\Pedidos de cliente\Servidor\srvPedidosCliente_Impl.pas' {srvPedidosCliente: TDataAbstractService},
|
||||
uBizPedidosClienteServer in '..\Modulos\Pedidos de cliente\Model\uBizPedidosClienteServer.pas',
|
||||
uRptPedidosCliente_Server in '..\Modulos\Pedidos de cliente\Reports\uRptPedidosCliente_Server.pas' {RptPedidosCliente},
|
||||
schAlbaranesClienteClient_Intf in '..\Modulos\Albaranes de cliente\Model\schAlbaranesClienteClient_Intf.pas',
|
||||
schAlbaranesClienteServer_Intf in '..\Modulos\Albaranes de cliente\Model\schAlbaranesClienteServer_Intf.pas',
|
||||
schPedidosClienteClient_Intf in '..\Modulos\Pedidos de cliente\Model\schPedidosClienteClient_Intf.pas',
|
||||
schPedidosClienteServer_Intf in '..\Modulos\Pedidos de cliente\Model\schPedidosClienteServer_Intf.pas',
|
||||
uRptPedidosCliente_Server in '..\Modulos\Pedidos de cliente\Reports\uRptPedidosCliente_Server.pas' {RptPedidosCliente};
|
||||
schPedidosClienteServer_Intf in '..\Modulos\Pedidos de cliente\Model\schPedidosClienteServer_Intf.pas';
|
||||
|
||||
{$R *.res}
|
||||
{$R ..\Servicios\RODLFile.res}
|
||||
|
||||
@ -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">
|
||||
<PropertyGroup>
|
||||
<ProjectGuid>{ebdcd25d-40d7-4146-91ec-a0ea4aa1dcd1}</ProjectGuid>
|
||||
<MainSource>FactuGES_Server.dpr</MainSource>
|
||||
<Configuration Condition=" '$(Configuration)' == '' ">Debug</Configuration>
|
||||
<Platform Condition=" '$(Platform)' == '' ">AnyCPU</Platform>
|
||||
<DCC_DCCCompiler>DCC32</DCC_DCCCompiler>
|
||||
<DCC_DependencyCheckOutputName>..\..\Output\Debug\Servidor\FactuGES_Server.exe</DCC_DependencyCheckOutputName>
|
||||
<DCC_UsePackage>vcl;rtl;vclx;vclactnband;dbrtl;vcldb;vcldbx;bdertl;dsnap;dsnapcon;teeUI;teedb;tee;adortl;vclib;ibxpress;dbxcds;dbexpress;DbxCommonDriver;IndyCore;IndySystem;IndyProtocols;VclSmp;vclie;webdsnap;xmlrtl;inet;inetdbbde;inetdbxpress;RemObjects_BPDX_D11;RemObjects_RODX_D11;RemObjects_Indy_D11;RemObjects_Synapse_D11;RemObjects_WebBroker_D11;DataAbstract_Core_D11;DataAbstract_DBXDriver_D11;DataAbstract_IDE_D11;DataAbstract_Scripting_D11;DataAbstract_SDACDriver_D11;sdac105;dac105;DataAbstract_SQLiteDriver_D11;cxEditorsD10;cxLibraryD10;dxThemeD10;cxDataD10;cxExtEditorsD10;cxGridD10;cxPageControlD10;cxSchedulerD10;cxTreeListD10;cxVerticalGridD10;dxBarD10;dxComnD10;dxBarDBNavD10;dxBarExtDBItemsD10;dxBarExtItemsD10;dxDockingD10;dxLayoutControlD10;dxNavBarD10;dxPSCoreD10;dxsbD10;dxPScxCommonD10;dxPSLnksD10;vclshlctrls;dxPScxExtCommonD10;dxPScxGridLnkD10;dxPScxPCProdD10;dxPScxScheduler2LnkD10;dxPScxTLLnkD10;dxPSdxLCLnkD10;dxPsPrVwAdvD10;pckMD5;pckUCDataConnector;pckUserControl_RT;PluginSDK_D10R;PNG_D10;PngComponentsD10;tb2k_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 Condition=" '$(Configuration)|$(Platform)' == 'Release|AnyCPU' ">
|
||||
<Version>7.0</Version>
|
||||
<DCC_DebugInformation>False</DCC_DebugInformation>
|
||||
<DCC_LocalDebugSymbols>False</DCC_LocalDebugSymbols>
|
||||
<DCC_SymbolReferenceInfo>0</DCC_SymbolReferenceInfo>
|
||||
<DCC_MapFile>3</DCC_MapFile>
|
||||
<DCC_ExeOutput>..\..\Output\Release\Servidor</DCC_ExeOutput>
|
||||
<DCC_Define>RELEASE</DCC_Define>
|
||||
</PropertyGroup>
|
||||
<PropertyGroup Condition=" '$(Configuration)|$(Platform)' == 'Debug|AnyCPU' ">
|
||||
<Version>7.0</Version>
|
||||
<DCC_MapFile>3</DCC_MapFile>
|
||||
<DCC_ExeOutput>..\..\Output\Debug\Servidor</DCC_ExeOutput>
|
||||
<DCC_Define>DEBUG;</DCC_Define>
|
||||
<DCC_GenerateStackFrames>True</DCC_GenerateStackFrames>
|
||||
<DCC_DebugInfoInExe>True</DCC_DebugInfoInExe>
|
||||
<DCC_DebugVN>True</DCC_DebugVN>
|
||||
<DCC_UnitSearchPath>$(BDS)\Lib\Debug\Indy10;$(BDS)\lib\Debug</DCC_UnitSearchPath>
|
||||
<DCC_ResourcePath>$(BDS)\Lib\Debug\Indy10;$(BDS)\lib\Debug</DCC_ResourcePath>
|
||||
<DCC_ObjPath>$(BDS)\Lib\Debug\Indy10;$(BDS)\lib\Debug</DCC_ObjPath>
|
||||
<DCC_IncludePath>$(BDS)\Lib\Debug\Indy10;$(BDS)\lib\Debug</DCC_IncludePath>
|
||||
</PropertyGroup>
|
||||
<ProjectExtensions>
|
||||
<Borland.Personality>Delphi.Personality</Borland.Personality>
|
||||
<Borland.ProjectType />
|
||||
<BorlandProject>
|
||||
<BorlandProject><Delphi.Personality><Parameters><Parameters Name="UseLauncher">False</Parameters><Parameters Name="LoadAllSymbols">True</Parameters><Parameters Name="LoadUnspecifiedSymbols">False</Parameters><Parameters Name="RunParams">/standalone</Parameters></Parameters><VersionInfo><VersionInfo Name="IncludeVerInfo">True</VersionInfo><VersionInfo Name="AutoIncBuild">False</VersionInfo><VersionInfo Name="MajorVer">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>
|
||||
<Import Project="$(MSBuildBinPath)\Borland.Delphi.Targets" />
|
||||
<ItemGroup>
|
||||
<DelphiCompile Include="FactuGES_Server.dpr">
|
||||
<MainSource>MainSource</MainSource>
|
||||
</DelphiCompile>
|
||||
<DCCReference Include="..\ApplicationBase\Empresas\Model\schEmpresasClient_Intf.pas" />
|
||||
<DCCReference Include="..\ApplicationBase\Empresas\Model\schEmpresasServer_Intf.pas" />
|
||||
<DCCReference Include="..\ApplicationBase\Empresas\Model\uBizEmpresasServer.pas" />
|
||||
<DCCReference Include="..\ApplicationBase\Empresas\Servidor\srvEmpresas_Impl.pas">
|
||||
<Form>srvEmpresas</Form>
|
||||
<DesignClass>TDARemoteService</DesignClass>
|
||||
</DCCReference>
|
||||
<DCCReference Include="..\ApplicationBase\ProvinciasPoblaciones\Servidor\srvProvinciasPoblaciones_Impl.pas">
|
||||
<Form>srvProvinciasPoblaciones_Impl</Form>
|
||||
<DesignClass>TDataModule</DesignClass>
|
||||
</DCCReference>
|
||||
<DCCReference Include="..\ApplicationBase\Usuarios\Model\schUsuariosClient_Intf.pas" />
|
||||
<DCCReference Include="..\ApplicationBase\Usuarios\Model\schUsuariosServer_Intf.pas" />
|
||||
<DCCReference Include="..\ApplicationBase\Usuarios\Servidor\srvUsuarios_Impl.pas">
|
||||
<Form>srvUsuarios</Form>
|
||||
<DesignClass>TDataAbstractService</DesignClass>
|
||||
</DCCReference>
|
||||
<DCCReference Include="..\Base\schBase_Intf.pas" />
|
||||
<DCCReference Include="..\Base\Utiles\uSistemaFunc.pas" />
|
||||
<DCCReference Include="..\Base\Utiles\uStringsUtils.pas" />
|
||||
<DCCReference Include="..\Modulos\Albaranes de cliente\Model\schAlbaranesClienteClient_Intf.pas" />
|
||||
<DCCReference Include="..\Modulos\Albaranes de cliente\Model\schAlbaranesClienteServer_Intf.pas" />
|
||||
<DCCReference Include="..\Modulos\Albaranes de cliente\Model\uBizAlbaranClienteServer.pas" />
|
||||
<DCCReference Include="..\Modulos\Albaranes de cliente\Reports\uRptAlbaranesCliente_Server.pas">
|
||||
<Form>RptAlbaranesCliente</Form>
|
||||
<DesignClass>TDataModule</DesignClass>
|
||||
</DCCReference>
|
||||
<DCCReference Include="..\Modulos\Albaranes de cliente\Reports\uRptWordAlbaranCliente.pas">
|
||||
<Form>RptWordAlbaranCliente</Form>
|
||||
<DesignClass>TDataModule</DesignClass>
|
||||
</DCCReference>
|
||||
<DCCReference Include="..\Modulos\Albaranes de cliente\Servidor\srvAlbaranesCliente_Impl.pas">
|
||||
<Form>srvAlbaranesCliente</Form>
|
||||
<DesignClass>TDataAbstractService</DesignClass>
|
||||
</DCCReference>
|
||||
<DCCReference Include="..\Modulos\Albaranes de proveedor\Model\schAlbaranesProveedorClient_Intf.pas" />
|
||||
<DCCReference Include="..\Modulos\Albaranes de proveedor\Model\schAlbaranesProveedorServer_Intf.pas" />
|
||||
<DCCReference Include="..\Modulos\Albaranes de proveedor\Model\uBizAlbaranProveedorServer.PAS" />
|
||||
<DCCReference Include="..\Modulos\Albaranes de proveedor\Reports\uRptAlbaranesProveedor_Server.pas">
|
||||
<Form>RptAlbaranesProveedor</Form>
|
||||
<DesignClass>TDataModule</DesignClass>
|
||||
</DCCReference>
|
||||
<DCCReference Include="..\Modulos\Albaranes de proveedor\Reports\uRptWordAlbaranProveedor.pas">
|
||||
<Form>RptWordAlbaranProveedor</Form>
|
||||
<DesignClass>TDataModule</DesignClass>
|
||||
</DCCReference>
|
||||
<DCCReference Include="..\Modulos\Albaranes de proveedor\Servidor\srvAlbaranesProveedor_Impl.pas">
|
||||
<Form>srvAlbaranesProveedor</Form>
|
||||
<DesignClass>TDataAbstractService</DesignClass>
|
||||
</DCCReference>
|
||||
<DCCReference Include="..\Modulos\Almacenes\Model\schAlmacenesClient_Intf.pas" />
|
||||
<DCCReference Include="..\Modulos\Almacenes\Model\schAlmacenesServer_Intf.pas" />
|
||||
<DCCReference Include="..\Modulos\Almacenes\Servidor\srvAlmacenes_Impl.pas">
|
||||
<Form>srvAlmacenes</Form>
|
||||
<DesignClass>TDARemoteService</DesignClass>
|
||||
</DCCReference>
|
||||
<DCCReference Include="..\Modulos\Articulos\Model\schArticulosClient_Intf.pas" />
|
||||
<DCCReference Include="..\Modulos\Articulos\Model\schArticulosServer_Intf.pas" />
|
||||
<DCCReference Include="..\Modulos\Articulos\Model\uBizArticulosServer.pas" />
|
||||
<DCCReference Include="..\Modulos\Articulos\Servidor\srvArticulos_Impl.pas">
|
||||
<Form>srvArticulos</Form>
|
||||
<DesignClass>TDARemoteService</DesignClass>
|
||||
</DCCReference>
|
||||
<DCCReference Include="..\Modulos\Contactos\Model\schContactosClient_Intf.pas" />
|
||||
<DCCReference Include="..\Modulos\Contactos\Model\schContactosServer_Intf.pas" />
|
||||
<DCCReference Include="..\Modulos\Contactos\Model\uBizClientesServer.pas" />
|
||||
<DCCReference Include="..\Modulos\Contactos\Model\uBizContactosServer.pas" />
|
||||
<DCCReference Include="..\Modulos\Contactos\Model\uBizEmpleadosServer.pas" />
|
||||
<DCCReference Include="..\Modulos\Contactos\Model\uBizProveedoresServer.pas" />
|
||||
<DCCReference Include="..\Modulos\Contactos\Model\uBizVendedoresServer.pas" />
|
||||
<DCCReference Include="..\Modulos\Contactos\Reports\uRptEtiquetasContacto_Server.pas">
|
||||
<Form>RptEtiquetasContacto</Form>
|
||||
<DesignClass>TDataModule</DesignClass>
|
||||
</DCCReference>
|
||||
<DCCReference Include="..\Modulos\Contactos\Reports\uRptFichasEmpleado_Server.pas">
|
||||
<Form>RptFichasEmpleado</Form>
|
||||
<DesignClass>TDataModule</DesignClass>
|
||||
</DCCReference>
|
||||
<DCCReference Include="..\Modulos\Contactos\Servidor\srvContactos_Impl.pas">
|
||||
<Form>srvContactos</Form>
|
||||
<DesignClass>TDARemoteService</DesignClass>
|
||||
</DCCReference>
|
||||
<DCCReference Include="..\Modulos\Fabricantes\Model\schFabricantesClient_Intf.pas" />
|
||||
<DCCReference Include="..\Modulos\Fabricantes\Model\schFabricantesServer_Intf.pas" />
|
||||
<DCCReference Include="..\Modulos\Fabricantes\Servidor\srvFabricantes_Impl.pas">
|
||||
<Form>srvFabricantes</Form>
|
||||
<DesignClass>TDataAbstractService</DesignClass>
|
||||
</DCCReference>
|
||||
<DCCReference Include="..\Modulos\Facturas de cliente\Model\schFacturasClienteClient_Intf.pas" />
|
||||
<DCCReference Include="..\Modulos\Facturas de cliente\Model\schFacturasClienteServer_Intf.pas" />
|
||||
<DCCReference Include="..\Modulos\Facturas de cliente\Model\uBizFacturasClienteServer.pas" />
|
||||
<DCCReference Include="..\Modulos\Facturas de cliente\Reports\uRptFacturasCliente_Server.pas">
|
||||
<Form>RptFacturasCliente</Form>
|
||||
<DesignClass>TDataModule</DesignClass>
|
||||
</DCCReference>
|
||||
<DCCReference Include="..\Modulos\Facturas de cliente\Reports\uRptWordFacturaCliente.pas">
|
||||
<Form>RptWordFacturaCliente</Form>
|
||||
<DesignClass>TDataModule</DesignClass>
|
||||
</DCCReference>
|
||||
<DCCReference Include="..\Modulos\Facturas de cliente\Servidor\srvFacturasCliente_Impl.pas">
|
||||
<Form>srvFacturasCliente</Form>
|
||||
<DesignClass>TDataAbstractService</DesignClass>
|
||||
</DCCReference>
|
||||
<DCCReference Include="..\Modulos\Facturas de proveedor\Model\schFacturasProveedorClient_Intf.pas" />
|
||||
<DCCReference Include="..\Modulos\Facturas de proveedor\Model\schFacturasProveedorServer_Intf.pas" />
|
||||
<DCCReference Include="..\Modulos\Facturas de proveedor\Model\uBizFacturasProveedorServer.pas" />
|
||||
<DCCReference Include="..\Modulos\Facturas de proveedor\Reports\uRptFacturasProveedor_Server.pas">
|
||||
<Form>RptFacturasProveedor</Form>
|
||||
<DesignClass>TDataModule</DesignClass>
|
||||
</DCCReference>
|
||||
<DCCReference Include="..\Modulos\Facturas de proveedor\Servidor\srvFacturasProveedor_Impl.pas">
|
||||
<Form>srvFacturasProveedor</Form>
|
||||
<DesignClass>TDataAbstractService</DesignClass>
|
||||
</DCCReference>
|
||||
<DCCReference Include="..\Modulos\Familias\Model\schFamiliasClient_Intf.pas" />
|
||||
<DCCReference Include="..\Modulos\Familias\Model\schFamiliasServer_Intf.pas" />
|
||||
<DCCReference Include="..\Modulos\Familias\Servidor\srvFamilias_Impl.pas">
|
||||
<Form>srvFamilias</Form>
|
||||
<DesignClass>TDataAbstractService</DesignClass>
|
||||
</DCCReference>
|
||||
<DCCReference Include="..\Modulos\Formas de pago\Model\schFormasPagoClient_Intf.pas" />
|
||||
<DCCReference Include="..\Modulos\Formas de pago\Model\schFormasPagoServer_Intf.pas" />
|
||||
<DCCReference Include="..\Modulos\Formas de pago\Servidor\srvFormasPago_Impl.pas">
|
||||
<Form>srvFormasPago</Form>
|
||||
<DesignClass>TDataAbstractService</DesignClass>
|
||||
</DCCReference>
|
||||
<DCCReference Include="..\Modulos\Gestion de documentos\Servidor\srvGestorDocumentos_Impl.pas">
|
||||
<Form>srvGestorDocumentos</Form>
|
||||
<DesignClass>TDataAbstractService</DesignClass>
|
||||
</DCCReference>
|
||||
<DCCReference Include="..\Modulos\Gestor de informes\Servidor\srvGestorInformes_Impl.pas">
|
||||
<Form>srvGestorInformes</Form>
|
||||
<DesignClass>TDataAbstractService</DesignClass>
|
||||
</DCCReference>
|
||||
<DCCReference Include="..\Modulos\Historico de movimientos\Model\schHistoricoMovimientosClient_Intf.pas" />
|
||||
<DCCReference Include="..\Modulos\Historico de movimientos\Model\schHistoricoMovimientosServer_Intf.pas" />
|
||||
<DCCReference Include="..\Modulos\Historico de movimientos\Servidor\srvHistoricoMovimientos_Impl.pas">
|
||||
<Form>srvHistoricoMovimientos</Form>
|
||||
<DesignClass>TDataAbstractService</DesignClass>
|
||||
</DCCReference>
|
||||
<DCCReference Include="..\Modulos\Inventario\Model\schInventarioClient_Intf.pas" />
|
||||
<DCCReference Include="..\Modulos\Inventario\Model\schInventarioServer_Intf.pas" />
|
||||
<DCCReference Include="..\Modulos\Inventario\Servidor\srvInventario_Impl.pas">
|
||||
<Form>srvInventario</Form>
|
||||
<DesignClass>TDataAbstractService</DesignClass>
|
||||
</DCCReference>
|
||||
<DCCReference Include="..\Modulos\Obras\Model\schObrasClient_Intf.pas" />
|
||||
<DCCReference Include="..\Modulos\Obras\Model\schObrasServer_Intf.pas" />
|
||||
<DCCReference Include="..\Modulos\Obras\Model\uBizObrasServer.pas" />
|
||||
<DCCReference Include="..\Modulos\Obras\Servidor\srvObras_Impl.pas">
|
||||
<Form>srvObras</Form>
|
||||
<DesignClass>TDataAbstractService</DesignClass>
|
||||
</DCCReference>
|
||||
<DCCReference Include="..\Modulos\Pedidos a proveedor\Model\schPedidosProveedorClient_Intf.pas" />
|
||||
<DCCReference Include="..\Modulos\Pedidos a proveedor\Model\schPedidosProveedorServer_Intf.pas" />
|
||||
<DCCReference Include="..\Modulos\Pedidos a proveedor\Model\uBizPedidosProveedorServer.pas" />
|
||||
<DCCReference Include="..\Modulos\Pedidos a proveedor\Reports\uRptPedidosProveedor_Server.pas">
|
||||
<Form>RptPedidosProveedor</Form>
|
||||
<DesignClass>TDataModule</DesignClass>
|
||||
</DCCReference>
|
||||
<DCCReference Include="..\Modulos\Pedidos a proveedor\Reports\uRptWordPedidoProveedor.pas">
|
||||
<Form>RptWordPedidoProveedor</Form>
|
||||
<DesignClass>TDataModule</DesignClass>
|
||||
</DCCReference>
|
||||
<DCCReference Include="..\Modulos\Pedidos a proveedor\Servidor\srvPedidosProveedor_Impl.pas">
|
||||
<Form>srvPedidosProveedor</Form>
|
||||
<DesignClass>TDataAbstractService</DesignClass>
|
||||
</DCCReference>
|
||||
<DCCReference Include="..\Modulos\Pedidos de cliente\Model\schPedidosClienteClient_Intf.pas" />
|
||||
<DCCReference Include="..\Modulos\Pedidos de cliente\Model\schPedidosClienteServer_Intf.pas" />
|
||||
<DCCReference Include="..\Modulos\Pedidos de cliente\Model\uBizPedidosClienteServer.pas" />
|
||||
<DCCReference Include="..\Modulos\Pedidos de cliente\Reports\uRptPedidosCliente_Server.pas">
|
||||
<Form>RptPedidosCliente</Form>
|
||||
</DCCReference>
|
||||
<DCCReference Include="..\Modulos\Pedidos de cliente\Servidor\srvPedidosCliente_Impl.pas">
|
||||
<Form>srvPedidosCliente</Form>
|
||||
<DesignClass>TDataAbstractService</DesignClass>
|
||||
</DCCReference>
|
||||
<DCCReference Include="..\Modulos\Presupuestos de cliente\Model\schPresupuestosClienteClient_Intf.pas" />
|
||||
<DCCReference Include="..\Modulos\Presupuestos de cliente\Model\schPresupuestosClienteServer_Intf.pas" />
|
||||
<DCCReference Include="..\Modulos\Presupuestos de cliente\Model\uBizPresupuestosClienteServer.pas" />
|
||||
<DCCReference Include="..\Modulos\Presupuestos de cliente\Reports\uRptPresupuestosCliente_Server.pas">
|
||||
<Form>RptPresupuestosCliente</Form>
|
||||
<DesignClass>TDataModule</DesignClass>
|
||||
</DCCReference>
|
||||
<DCCReference Include="..\Modulos\Presupuestos de cliente\Reports\uRptWordCertificadoTrabajo_Server.pas">
|
||||
<Form>RptWordCertificadoTrabajo</Form>
|
||||
<DesignClass>TDataModule</DesignClass>
|
||||
</DCCReference>
|
||||
<DCCReference Include="..\Modulos\Presupuestos de cliente\Reports\uRptWordPresupuestoCliente.pas">
|
||||
<Form>RptWordPresupuestoCliente</Form>
|
||||
<DesignClass>TDataModule</DesignClass>
|
||||
</DCCReference>
|
||||
<DCCReference Include="..\Modulos\Presupuestos de cliente\Servidor\srvPresupuestosCliente_Impl.pas">
|
||||
<Form>srvPresupuestosCliente</Form>
|
||||
<DesignClass>TDataAbstractService</DesignClass>
|
||||
</DCCReference>
|
||||
<DCCReference Include="..\Modulos\Recibos de cliente\Model\schRecibosClienteClient_Intf.pas" />
|
||||
<DCCReference Include="..\Modulos\Recibos de cliente\Model\schRecibosClienteServer_Intf.pas" />
|
||||
<DCCReference Include="..\Modulos\Recibos de cliente\Reports\uRptRecibosCliente_Server.pas">
|
||||
<Form>RptRecibosCliente</Form>
|
||||
<DesignClass>TDataModule</DesignClass>
|
||||
</DCCReference>
|
||||
<DCCReference Include="..\Modulos\Recibos de cliente\Servidor\srvRecibosCliente_Impl.pas">
|
||||
<Form>srvRecibosCliente</Form>
|
||||
<DesignClass>TDataAbstractService</DesignClass>
|
||||
</DCCReference>
|
||||
<DCCReference Include="..\Modulos\Recibos de proveedor\Model\schRecibosProveedorClient_Intf.pas" />
|
||||
<DCCReference Include="..\Modulos\Recibos de proveedor\Model\schRecibosProveedorServer_Intf.pas" />
|
||||
<DCCReference Include="..\Modulos\Recibos de proveedor\Reports\uRptRecibosProveedor_Server.pas">
|
||||
<Form>RptRecibosProveedor</Form>
|
||||
<DesignClass>TDataModule</DesignClass>
|
||||
</DCCReference>
|
||||
<DCCReference Include="..\Modulos\Recibos de proveedor\Servidor\srvRecibosProveedor_Impl.pas">
|
||||
<Form>srvRecibosProveedor</Form>
|
||||
<DesignClass>TDataAbstractService</DesignClass>
|
||||
</DCCReference>
|
||||
<DCCReference Include="..\Modulos\Referencias\Model\schReferenciasClient_Intf.pas" />
|
||||
<DCCReference Include="..\Modulos\Referencias\Model\schReferenciasServer_Intf.pas" />
|
||||
<DCCReference Include="..\Modulos\Referencias\Servidor\srvReferencias_Impl.pas">
|
||||
<Form>srvReferencias</Form>
|
||||
<DesignClass>TDataAbstractService</DesignClass>
|
||||
</DCCReference>
|
||||
<DCCReference Include="..\Modulos\Remesas de cliente\Model\schRemesasClienteClient_Intf.pas" />
|
||||
<DCCReference Include="..\Modulos\Remesas de cliente\Model\schRemesasClienteServer_Intf.pas" />
|
||||
<DCCReference Include="..\Modulos\Remesas de cliente\Model\uBizRemesasClienteServer.pas" />
|
||||
<DCCReference Include="..\Modulos\Remesas de cliente\Reports\uRptRemesasCliente_Server.pas">
|
||||
<Form>RptRemesasCliente</Form>
|
||||
<DesignClass>TDataModule</DesignClass>
|
||||
</DCCReference>
|
||||
<DCCReference Include="..\Modulos\Remesas de cliente\Servidor\srvRemesasCliente_Impl.pas">
|
||||
<Form>srvRemesasCliente</Form>
|
||||
<DesignClass>TDataAbstractService</DesignClass>
|
||||
</DCCReference>
|
||||
<DCCReference Include="..\Modulos\Remesas de proveedor\Model\schRemesasProveedorClient_Intf.pas" />
|
||||
<DCCReference Include="..\Modulos\Remesas de proveedor\Model\schRemesasProveedorServer_Intf.pas" />
|
||||
<DCCReference Include="..\Modulos\Remesas de proveedor\Model\uBizRemesasProveedorServer.pas" />
|
||||
<DCCReference Include="..\Modulos\Remesas de proveedor\Servidor\srvRemesasProveedor_Impl.pas">
|
||||
<Form>srvRemesasProveedor</Form>
|
||||
<DesignClass>TDataAbstractService</DesignClass>
|
||||
</DCCReference>
|
||||
<DCCReference Include="..\Modulos\Tipos de IVA\Model\schTiposIVAClient_Intf.pas" />
|
||||
<DCCReference Include="..\Modulos\Tipos de IVA\Model\schTiposIVAServer_Intf.pas" />
|
||||
<DCCReference Include="..\Modulos\Tipos de IVA\Servidor\srvTiposIVA_Impl.pas">
|
||||
<Form>srvTiposIVA</Form>
|
||||
<DesignClass>TDataAbstractService</DesignClass>
|
||||
</DCCReference>
|
||||
<DCCReference Include="..\Modulos\Unidades de medida\Model\schUnidadesMedidaClient_Intf.pas" />
|
||||
<DCCReference Include="..\Modulos\Unidades de medida\Model\schUnidadesMedidaServer_Intf.pas" />
|
||||
<DCCReference Include="..\Modulos\Unidades de medida\Servidor\srvUnidadesMedida_Impl.pas">
|
||||
<Form>srvUnidadesMedida</Form>
|
||||
<DesignClass>TDataAbstractService</DesignClass>
|
||||
</DCCReference>
|
||||
<DCCReference Include="..\Servicios\FactuGES_Intf.pas" />
|
||||
<DCCReference Include="..\Servicios\FactuGES_Invk.pas" />
|
||||
<DCCReference Include="Configuracion\srvConfiguracion_Impl.pas">
|
||||
<Form>srvConfiguracion</Form>
|
||||
<DesignClass>TDataAbstractService</DesignClass>
|
||||
</DCCReference>
|
||||
<DCCReference Include="Configuracion\uConexionBD.pas">
|
||||
<Form>frConexionBD</Form>
|
||||
<DesignClass>TFrame</DesignClass>
|
||||
</DCCReference>
|
||||
<DCCReference Include="Configuracion\uConfGeneral.pas">
|
||||
<Form>frConfGeneral</Form>
|
||||
<DesignClass>TFrame</DesignClass>
|
||||
</DCCReference>
|
||||
<DCCReference Include="Configuracion\uConfiguracion.pas">
|
||||
<Form>fConfiguracion</Form>
|
||||
<DesignClass>TForm</DesignClass>
|
||||
</DCCReference>
|
||||
<DCCReference Include="Configuracion\uFrameConfiguracion.pas">
|
||||
<Form>FrameConfiguracion</Form>
|
||||
<DesignClass>TFrame</DesignClass>
|
||||
</DCCReference>
|
||||
<DCCReference Include="srvLogin_Impl.pas">
|
||||
<Form>srvLogin</Form>
|
||||
<DesignClass>TDARemoteService</DesignClass>
|
||||
</DCCReference>
|
||||
<DCCReference Include="uAcercaDe.pas">
|
||||
<Form>fAcercaDe</Form>
|
||||
</DCCReference>
|
||||
<DCCReference Include="uDataModuleServer.pas">
|
||||
<Form>dmServer</Form>
|
||||
<DesignClass>TDataModule</DesignClass>
|
||||
</DCCReference>
|
||||
<DCCReference Include="uServerMainForm.pas">
|
||||
<Form>fServerForm</Form>
|
||||
</DCCReference>
|
||||
<DCCReference Include="Utiles\AHWord97.pas" />
|
||||
<DCCReference Include="Utiles\MidasSpeedFix.pas" />
|
||||
<DCCReference Include="Utiles\RegExpr.pas" />
|
||||
<DCCReference Include="Utiles\uBusinessUtils.pas" />
|
||||
<DCCReference Include="Utiles\uDatabaseUtils.pas" />
|
||||
<DCCReference Include="Utiles\uReferenciasUtils.pas" />
|
||||
<DCCReference Include="Utiles\uRestriccionesUsuarioUtils.pas" />
|
||||
<DCCReference Include="Utiles\uSchemaUtilsServer.pas" />
|
||||
<DCCReference Include="Utiles\uServerAppUtils.pas" />
|
||||
<DCCReference Include="Utiles\uSesionesUtils.pas" />
|
||||
</ItemGroup>
|
||||
<PropertyGroup>
|
||||
<ProjectGuid>{ebdcd25d-40d7-4146-91ec-a0ea4aa1dcd1}</ProjectGuid>
|
||||
<MainSource>FactuGES_Server.dpr</MainSource>
|
||||
<Configuration Condition=" '$(Configuration)' == '' ">Debug</Configuration>
|
||||
<Platform Condition=" '$(Platform)' == '' ">AnyCPU</Platform>
|
||||
<DCC_DCCCompiler>DCC32</DCC_DCCCompiler>
|
||||
<DCC_DependencyCheckOutputName>..\..\Output\Debug\Servidor\FactuGES_Server.exe</DCC_DependencyCheckOutputName>
|
||||
<DCC_UsePackage>vcl;rtl;vclx;vclactnband;dbrtl;vcldb;vcldbx;bdertl;dsnap;dsnapcon;teeUI;teedb;tee;adortl;vclib;ibxpress;dbxcds;dbexpress;DbxCommonDriver;IndyCore;IndySystem;IndyProtocols;VclSmp;vclie;webdsnap;xmlrtl;inet;inetdbbde;inetdbxpress;RemObjects_BPDX_D11;RemObjects_RODX_D11;RemObjects_Indy_D11;RemObjects_Synapse_D11;RemObjects_WebBroker_D11;DataAbstract_Core_D11;DataAbstract_DBXDriver_D11;DataAbstract_IDE_D11;DataAbstract_Scripting_D11;DataAbstract_SDACDriver_D11;sdac105;dac105;DataAbstract_SQLiteDriver_D11;cxEditorsD10;cxLibraryD10;dxThemeD10;cxDataD10;cxExtEditorsD10;cxGridD10;cxPageControlD10;cxSchedulerD10;cxTreeListD10;cxVerticalGridD10;dxBarD10;dxComnD10;dxBarDBNavD10;dxBarExtDBItemsD10;dxBarExtItemsD10;dxDockingD10;dxLayoutControlD10;dxNavBarD10;dxPSCoreD10;dxsbD10;dxPScxCommonD10;dxPSLnksD10;vclshlctrls;dxPScxExtCommonD10;dxPScxGridLnkD10;dxPScxPCProdD10;dxPScxScheduler2LnkD10;dxPScxTLLnkD10;dxPSdxLCLnkD10;dxPsPrVwAdvD10;pckMD5;pckUCDataConnector;pckUserControl_RT;PluginSDK_D10R;PNG_D10;PngComponentsD10;tb2k_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 Condition=" '$(Configuration)|$(Platform)' == 'Release|AnyCPU' ">
|
||||
<Version>7.0</Version>
|
||||
<DCC_DebugInformation>False</DCC_DebugInformation>
|
||||
<DCC_LocalDebugSymbols>False</DCC_LocalDebugSymbols>
|
||||
<DCC_SymbolReferenceInfo>0</DCC_SymbolReferenceInfo>
|
||||
<DCC_MapFile>3</DCC_MapFile>
|
||||
<DCC_ExeOutput>..\..\Output\Release\Servidor</DCC_ExeOutput>
|
||||
<DCC_Define>RELEASE</DCC_Define>
|
||||
</PropertyGroup>
|
||||
<PropertyGroup Condition=" '$(Configuration)|$(Platform)' == 'Debug|AnyCPU' ">
|
||||
<Version>7.0</Version>
|
||||
<DCC_MapFile>3</DCC_MapFile>
|
||||
<DCC_ExeOutput>..\..\Output\Debug\Servidor</DCC_ExeOutput>
|
||||
<DCC_Define>DEBUG;EUREKALOG;EUREKALOG_VER6</DCC_Define>
|
||||
<DCC_GenerateStackFrames>True</DCC_GenerateStackFrames>
|
||||
<DCC_DebugInfoInExe>True</DCC_DebugInfoInExe>
|
||||
<DCC_DebugVN>True</DCC_DebugVN>
|
||||
<DCC_UnitSearchPath>$(BDS)\Lib\Debug\Indy10;$(BDS)\lib\Debug</DCC_UnitSearchPath>
|
||||
<DCC_ResourcePath>$(BDS)\Lib\Debug\Indy10;$(BDS)\lib\Debug</DCC_ResourcePath>
|
||||
<DCC_ObjPath>$(BDS)\Lib\Debug\Indy10;$(BDS)\lib\Debug</DCC_ObjPath>
|
||||
<DCC_IncludePath>$(BDS)\Lib\Debug\Indy10;$(BDS)\lib\Debug</DCC_IncludePath>
|
||||
</PropertyGroup>
|
||||
<ProjectExtensions>
|
||||
<Borland.Personality>Delphi.Personality</Borland.Personality>
|
||||
<Borland.ProjectType/>
|
||||
<BorlandProject>
|
||||
<BorlandProject><Delphi.Personality><Parameters><Parameters Name="UseLauncher">False</Parameters><Parameters Name="LoadAllSymbols">True</Parameters><Parameters Name="LoadUnspecifiedSymbols">False</Parameters><Parameters Name="RunParams">/standalone</Parameters></Parameters><VersionInfo><VersionInfo Name="IncludeVerInfo">True</VersionInfo><VersionInfo Name="AutoIncBuild">False</VersionInfo><VersionInfo Name="MajorVer">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>
|
||||
<Import Project="$(MSBuildBinPath)\Borland.Delphi.Targets"/>
|
||||
<ItemGroup>
|
||||
<DelphiCompile Include="FactuGES_Server.dpr">
|
||||
<MainSource>MainSource</MainSource>
|
||||
</DelphiCompile>
|
||||
<DCCReference Include="..\ApplicationBase\Empresas\Model\schEmpresasClient_Intf.pas"/>
|
||||
<DCCReference Include="..\ApplicationBase\Empresas\Model\schEmpresasServer_Intf.pas"/>
|
||||
<DCCReference Include="..\ApplicationBase\Empresas\Model\uBizEmpresasServer.pas"/>
|
||||
<DCCReference Include="..\ApplicationBase\Empresas\Servidor\srvEmpresas_Impl.pas">
|
||||
<DesignClass>TDARemoteService</DesignClass>
|
||||
<Form>srvEmpresas</Form>
|
||||
</DCCReference>
|
||||
<DCCReference Include="..\ApplicationBase\ProvinciasPoblaciones\Servidor\srvProvinciasPoblaciones_Impl.pas">
|
||||
<DesignClass>TDataModule</DesignClass>
|
||||
<Form>srvProvinciasPoblaciones_Impl</Form>
|
||||
</DCCReference>
|
||||
<DCCReference Include="..\ApplicationBase\Usuarios\Model\schUsuariosClient_Intf.pas"/>
|
||||
<DCCReference Include="..\ApplicationBase\Usuarios\Model\schUsuariosServer_Intf.pas"/>
|
||||
<DCCReference Include="..\ApplicationBase\Usuarios\Servidor\srvUsuarios_Impl.pas">
|
||||
<DesignClass>TDataAbstractService</DesignClass>
|
||||
<Form>srvUsuarios</Form>
|
||||
</DCCReference>
|
||||
<DCCReference Include="..\Base\schBase_Intf.pas"/>
|
||||
<DCCReference Include="..\Base\Utiles\uSistemaFunc.pas"/>
|
||||
<DCCReference Include="..\Base\Utiles\uStringsUtils.pas"/>
|
||||
<DCCReference Include="..\Modulos\Albaranes de cliente\Model\schAlbaranesClienteClient_Intf.pas"/>
|
||||
<DCCReference Include="..\Modulos\Albaranes de cliente\Model\schAlbaranesClienteServer_Intf.pas"/>
|
||||
<DCCReference Include="..\Modulos\Albaranes de cliente\Model\uBizAlbaranClienteServer.pas"/>
|
||||
<DCCReference Include="..\Modulos\Albaranes de cliente\Reports\uRptAlbaranesCliente_Server.pas">
|
||||
<DesignClass>TDataModule</DesignClass>
|
||||
<Form>RptAlbaranesCliente</Form>
|
||||
</DCCReference>
|
||||
<DCCReference Include="..\Modulos\Albaranes de cliente\Reports\uRptWordAlbaranCliente.pas">
|
||||
<DesignClass>TDataModule</DesignClass>
|
||||
<Form>RptWordAlbaranCliente</Form>
|
||||
</DCCReference>
|
||||
<DCCReference Include="..\Modulos\Albaranes de cliente\Servidor\srvAlbaranesCliente_Impl.pas">
|
||||
<DesignClass>TDataAbstractService</DesignClass>
|
||||
<Form>srvAlbaranesCliente</Form>
|
||||
</DCCReference>
|
||||
<DCCReference Include="..\Modulos\Albaranes de proveedor\Model\schAlbaranesProveedorClient_Intf.pas"/>
|
||||
<DCCReference Include="..\Modulos\Albaranes de proveedor\Model\schAlbaranesProveedorServer_Intf.pas"/>
|
||||
<DCCReference Include="..\Modulos\Albaranes de proveedor\Model\uBizAlbaranProveedorServer.PAS"/>
|
||||
<DCCReference Include="..\Modulos\Albaranes de proveedor\Reports\uRptAlbaranesProveedor_Server.pas">
|
||||
<DesignClass>TDataModule</DesignClass>
|
||||
<Form>RptAlbaranesProveedor</Form>
|
||||
</DCCReference>
|
||||
<DCCReference Include="..\Modulos\Albaranes de proveedor\Reports\uRptWordAlbaranProveedor.pas">
|
||||
<DesignClass>TDataModule</DesignClass>
|
||||
<Form>RptWordAlbaranProveedor</Form>
|
||||
</DCCReference>
|
||||
<DCCReference Include="..\Modulos\Albaranes de proveedor\Servidor\srvAlbaranesProveedor_Impl.pas">
|
||||
<DesignClass>TDataAbstractService</DesignClass>
|
||||
<Form>srvAlbaranesProveedor</Form>
|
||||
</DCCReference>
|
||||
<DCCReference Include="..\Modulos\Almacenes\Model\schAlmacenesClient_Intf.pas"/>
|
||||
<DCCReference Include="..\Modulos\Almacenes\Model\schAlmacenesServer_Intf.pas"/>
|
||||
<DCCReference Include="..\Modulos\Almacenes\Servidor\srvAlmacenes_Impl.pas">
|
||||
<DesignClass>TDARemoteService</DesignClass>
|
||||
<Form>srvAlmacenes</Form>
|
||||
</DCCReference>
|
||||
<DCCReference Include="..\Modulos\Articulos\Model\schArticulosClient_Intf.pas"/>
|
||||
<DCCReference Include="..\Modulos\Articulos\Model\schArticulosServer_Intf.pas"/>
|
||||
<DCCReference Include="..\Modulos\Articulos\Model\uBizArticulosServer.pas"/>
|
||||
<DCCReference Include="..\Modulos\Articulos\Servidor\srvArticulos_Impl.pas">
|
||||
<DesignClass>TDARemoteService</DesignClass>
|
||||
<Form>srvArticulos</Form>
|
||||
</DCCReference>
|
||||
<DCCReference Include="..\Modulos\Contactos\Model\schContactosClient_Intf.pas"/>
|
||||
<DCCReference Include="..\Modulos\Contactos\Model\schContactosServer_Intf.pas"/>
|
||||
<DCCReference Include="..\Modulos\Contactos\Model\uBizClientesServer.pas"/>
|
||||
<DCCReference Include="..\Modulos\Contactos\Model\uBizContactosServer.pas"/>
|
||||
<DCCReference Include="..\Modulos\Contactos\Model\uBizEmpleadosServer.pas"/>
|
||||
<DCCReference Include="..\Modulos\Contactos\Model\uBizProveedoresServer.pas"/>
|
||||
<DCCReference Include="..\Modulos\Contactos\Model\uBizVendedoresServer.pas"/>
|
||||
<DCCReference Include="..\Modulos\Contactos\Reports\uRptEtiquetasContacto_Server.pas">
|
||||
<DesignClass>TDataModule</DesignClass>
|
||||
<Form>RptEtiquetasContacto</Form>
|
||||
</DCCReference>
|
||||
<DCCReference Include="..\Modulos\Contactos\Reports\uRptFichasEmpleado_Server.pas">
|
||||
<DesignClass>TDataModule</DesignClass>
|
||||
<Form>RptFichasEmpleado</Form>
|
||||
</DCCReference>
|
||||
<DCCReference Include="..\Modulos\Contactos\Servidor\srvContactos_Impl.pas">
|
||||
<DesignClass>TDARemoteService</DesignClass>
|
||||
<Form>srvContactos</Form>
|
||||
</DCCReference>
|
||||
<DCCReference Include="..\Modulos\Fabricantes\Model\schFabricantesClient_Intf.pas"/>
|
||||
<DCCReference Include="..\Modulos\Fabricantes\Model\schFabricantesServer_Intf.pas"/>
|
||||
<DCCReference Include="..\Modulos\Fabricantes\Servidor\srvFabricantes_Impl.pas">
|
||||
<DesignClass>TDataAbstractService</DesignClass>
|
||||
<Form>srvFabricantes</Form>
|
||||
</DCCReference>
|
||||
<DCCReference Include="..\Modulos\Facturas de cliente\Model\schFacturasClienteClient_Intf.pas"/>
|
||||
<DCCReference Include="..\Modulos\Facturas de cliente\Model\schFacturasClienteServer_Intf.pas"/>
|
||||
<DCCReference Include="..\Modulos\Facturas de cliente\Model\uBizFacturasClienteServer.pas"/>
|
||||
<DCCReference Include="..\Modulos\Facturas de cliente\Reports\uRptFacturasCliente_Server.pas">
|
||||
<DesignClass>TDataModule</DesignClass>
|
||||
<Form>RptFacturasCliente</Form>
|
||||
</DCCReference>
|
||||
<DCCReference Include="..\Modulos\Facturas de cliente\Reports\uRptWordFacturaCliente.pas">
|
||||
<DesignClass>TDataModule</DesignClass>
|
||||
<Form>RptWordFacturaCliente</Form>
|
||||
</DCCReference>
|
||||
<DCCReference Include="..\Modulos\Facturas de cliente\Servidor\srvFacturasCliente_Impl.pas">
|
||||
<DesignClass>TDataAbstractService</DesignClass>
|
||||
<Form>srvFacturasCliente</Form>
|
||||
</DCCReference>
|
||||
<DCCReference Include="..\Modulos\Facturas de proveedor\Model\schFacturasProveedorClient_Intf.pas"/>
|
||||
<DCCReference Include="..\Modulos\Facturas de proveedor\Model\schFacturasProveedorServer_Intf.pas"/>
|
||||
<DCCReference Include="..\Modulos\Facturas de proveedor\Model\uBizFacturasProveedorServer.pas"/>
|
||||
<DCCReference Include="..\Modulos\Facturas de proveedor\Reports\uRptFacturasProveedor_Server.pas">
|
||||
<DesignClass>TDataModule</DesignClass>
|
||||
<Form>RptFacturasProveedor</Form>
|
||||
</DCCReference>
|
||||
<DCCReference Include="..\Modulos\Facturas de proveedor\Servidor\srvFacturasProveedor_Impl.pas">
|
||||
<DesignClass>TDataAbstractService</DesignClass>
|
||||
<Form>srvFacturasProveedor</Form>
|
||||
</DCCReference>
|
||||
<DCCReference Include="..\Modulos\Familias\Model\schFamiliasClient_Intf.pas"/>
|
||||
<DCCReference Include="..\Modulos\Familias\Model\schFamiliasServer_Intf.pas"/>
|
||||
<DCCReference Include="..\Modulos\Familias\Servidor\srvFamilias_Impl.pas">
|
||||
<DesignClass>TDataAbstractService</DesignClass>
|
||||
<Form>srvFamilias</Form>
|
||||
</DCCReference>
|
||||
<DCCReference Include="..\Modulos\Formas de pago\Model\schFormasPagoClient_Intf.pas"/>
|
||||
<DCCReference Include="..\Modulos\Formas de pago\Model\schFormasPagoServer_Intf.pas"/>
|
||||
<DCCReference Include="..\Modulos\Formas de pago\Servidor\srvFormasPago_Impl.pas">
|
||||
<DesignClass>TDataAbstractService</DesignClass>
|
||||
<Form>srvFormasPago</Form>
|
||||
</DCCReference>
|
||||
<DCCReference Include="..\Modulos\Gestion de documentos\Servidor\srvGestorDocumentos_Impl.pas">
|
||||
<DesignClass>TDataAbstractService</DesignClass>
|
||||
<Form>srvGestorDocumentos</Form>
|
||||
</DCCReference>
|
||||
<DCCReference Include="..\Modulos\Gestor de informes\Servidor\srvGestorInformes_Impl.pas">
|
||||
<DesignClass>TDataAbstractService</DesignClass>
|
||||
<Form>srvGestorInformes</Form>
|
||||
</DCCReference>
|
||||
<DCCReference Include="..\Modulos\Historico de movimientos\Model\schHistoricoMovimientosClient_Intf.pas"/>
|
||||
<DCCReference Include="..\Modulos\Historico de movimientos\Model\schHistoricoMovimientosServer_Intf.pas"/>
|
||||
<DCCReference Include="..\Modulos\Historico de movimientos\Servidor\srvHistoricoMovimientos_Impl.pas">
|
||||
<DesignClass>TDataAbstractService</DesignClass>
|
||||
<Form>srvHistoricoMovimientos</Form>
|
||||
</DCCReference>
|
||||
<DCCReference Include="..\Modulos\Inventario\Model\schInventarioClient_Intf.pas"/>
|
||||
<DCCReference Include="..\Modulos\Inventario\Model\schInventarioServer_Intf.pas"/>
|
||||
<DCCReference Include="..\Modulos\Inventario\Servidor\srvInventario_Impl.pas">
|
||||
<DesignClass>TDataAbstractService</DesignClass>
|
||||
<Form>srvInventario</Form>
|
||||
</DCCReference>
|
||||
<DCCReference Include="..\Modulos\Obras\Model\schObrasClient_Intf.pas"/>
|
||||
<DCCReference Include="..\Modulos\Obras\Model\schObrasServer_Intf.pas"/>
|
||||
<DCCReference Include="..\Modulos\Obras\Model\uBizObrasServer.pas"/>
|
||||
<DCCReference Include="..\Modulos\Obras\Servidor\srvObras_Impl.pas">
|
||||
<DesignClass>TDataAbstractService</DesignClass>
|
||||
<Form>srvObras</Form>
|
||||
</DCCReference>
|
||||
<DCCReference Include="..\Modulos\Pedidos a proveedor\Model\schPedidosProveedorClient_Intf.pas"/>
|
||||
<DCCReference Include="..\Modulos\Pedidos a proveedor\Model\schPedidosProveedorServer_Intf.pas"/>
|
||||
<DCCReference Include="..\Modulos\Pedidos a proveedor\Model\uBizPedidosProveedorServer.pas"/>
|
||||
<DCCReference Include="..\Modulos\Pedidos a proveedor\Reports\uRptPedidosProveedor_Server.pas">
|
||||
<DesignClass>TDataModule</DesignClass>
|
||||
<Form>RptPedidosProveedor</Form>
|
||||
</DCCReference>
|
||||
<DCCReference Include="..\Modulos\Pedidos a proveedor\Reports\uRptWordPedidoProveedor.pas">
|
||||
<DesignClass>TDataModule</DesignClass>
|
||||
<Form>RptWordPedidoProveedor</Form>
|
||||
</DCCReference>
|
||||
<DCCReference Include="..\Modulos\Pedidos a proveedor\Servidor\srvPedidosProveedor_Impl.pas">
|
||||
<DesignClass>TDataAbstractService</DesignClass>
|
||||
<Form>srvPedidosProveedor</Form>
|
||||
</DCCReference>
|
||||
<DCCReference Include="..\Modulos\Pedidos de cliente\Model\schPedidosClienteClient_Intf.pas"/>
|
||||
<DCCReference Include="..\Modulos\Pedidos de cliente\Model\schPedidosClienteServer_Intf.pas"/>
|
||||
<DCCReference Include="..\Modulos\Pedidos de cliente\Model\uBizPedidosClienteServer.pas"/>
|
||||
<DCCReference Include="..\Modulos\Pedidos de cliente\Reports\uRptPedidosCliente_Server.pas">
|
||||
<Form>RptPedidosCliente</Form>
|
||||
</DCCReference>
|
||||
<DCCReference Include="..\Modulos\Pedidos de cliente\Servidor\srvPedidosCliente_Impl.pas">
|
||||
<DesignClass>TDataAbstractService</DesignClass>
|
||||
<Form>srvPedidosCliente</Form>
|
||||
</DCCReference>
|
||||
<DCCReference Include="..\Modulos\Presupuestos de cliente\Model\schPresupuestosClienteClient_Intf.pas"/>
|
||||
<DCCReference Include="..\Modulos\Presupuestos de cliente\Model\schPresupuestosClienteServer_Intf.pas"/>
|
||||
<DCCReference Include="..\Modulos\Presupuestos de cliente\Model\uBizPresupuestosClienteServer.pas"/>
|
||||
<DCCReference Include="..\Modulos\Presupuestos de cliente\Reports\uRptPresupuestosCliente_Server.pas">
|
||||
<DesignClass>TDataModule</DesignClass>
|
||||
<Form>RptPresupuestosCliente</Form>
|
||||
</DCCReference>
|
||||
<DCCReference Include="..\Modulos\Presupuestos de cliente\Reports\uRptWordCertificadoTrabajo_Server.pas">
|
||||
<DesignClass>TDataModule</DesignClass>
|
||||
<Form>RptWordCertificadoTrabajo</Form>
|
||||
</DCCReference>
|
||||
<DCCReference Include="..\Modulos\Presupuestos de cliente\Reports\uRptWordPresupuestoCliente.pas">
|
||||
<DesignClass>TDataModule</DesignClass>
|
||||
<Form>RptWordPresupuestoCliente</Form>
|
||||
</DCCReference>
|
||||
<DCCReference Include="..\Modulos\Presupuestos de cliente\Servidor\srvPresupuestosCliente_Impl.pas">
|
||||
<DesignClass>TDataAbstractService</DesignClass>
|
||||
<Form>srvPresupuestosCliente</Form>
|
||||
</DCCReference>
|
||||
<DCCReference Include="..\Modulos\Recibos de cliente\Model\schRecibosClienteClient_Intf.pas"/>
|
||||
<DCCReference Include="..\Modulos\Recibos de cliente\Model\schRecibosClienteServer_Intf.pas"/>
|
||||
<DCCReference Include="..\Modulos\Recibos de cliente\Reports\uRptRecibosCliente_Server.pas">
|
||||
<DesignClass>TDataModule</DesignClass>
|
||||
<Form>RptRecibosCliente</Form>
|
||||
</DCCReference>
|
||||
<DCCReference Include="..\Modulos\Recibos de cliente\Servidor\srvRecibosCliente_Impl.pas">
|
||||
<DesignClass>TDataAbstractService</DesignClass>
|
||||
<Form>srvRecibosCliente</Form>
|
||||
</DCCReference>
|
||||
<DCCReference Include="..\Modulos\Recibos de proveedor\Model\schRecibosProveedorClient_Intf.pas"/>
|
||||
<DCCReference Include="..\Modulos\Recibos de proveedor\Model\schRecibosProveedorServer_Intf.pas"/>
|
||||
<DCCReference Include="..\Modulos\Recibos de proveedor\Reports\uRptRecibosProveedor_Server.pas">
|
||||
<DesignClass>TDataModule</DesignClass>
|
||||
<Form>RptRecibosProveedor</Form>
|
||||
</DCCReference>
|
||||
<DCCReference Include="..\Modulos\Recibos de proveedor\Servidor\srvRecibosProveedor_Impl.pas">
|
||||
<DesignClass>TDataAbstractService</DesignClass>
|
||||
<Form>srvRecibosProveedor</Form>
|
||||
</DCCReference>
|
||||
<DCCReference Include="..\Modulos\Referencias\Model\schReferenciasClient_Intf.pas"/>
|
||||
<DCCReference Include="..\Modulos\Referencias\Model\schReferenciasServer_Intf.pas"/>
|
||||
<DCCReference Include="..\Modulos\Referencias\Servidor\srvReferencias_Impl.pas">
|
||||
<DesignClass>TDataAbstractService</DesignClass>
|
||||
<Form>srvReferencias</Form>
|
||||
</DCCReference>
|
||||
<DCCReference Include="..\Modulos\Remesas de cliente\Model\schRemesasClienteClient_Intf.pas"/>
|
||||
<DCCReference Include="..\Modulos\Remesas de cliente\Model\schRemesasClienteServer_Intf.pas"/>
|
||||
<DCCReference Include="..\Modulos\Remesas de cliente\Model\uBizRemesasClienteServer.pas"/>
|
||||
<DCCReference Include="..\Modulos\Remesas de cliente\Reports\uRptRemesasCliente_Server.pas">
|
||||
<DesignClass>TDataModule</DesignClass>
|
||||
<Form>RptRemesasCliente</Form>
|
||||
</DCCReference>
|
||||
<DCCReference Include="..\Modulos\Remesas de cliente\Servidor\srvRemesasCliente_Impl.pas">
|
||||
<DesignClass>TDataAbstractService</DesignClass>
|
||||
<Form>srvRemesasCliente</Form>
|
||||
</DCCReference>
|
||||
<DCCReference Include="..\Modulos\Remesas de proveedor\Model\schRemesasProveedorClient_Intf.pas"/>
|
||||
<DCCReference Include="..\Modulos\Remesas de proveedor\Model\schRemesasProveedorServer_Intf.pas"/>
|
||||
<DCCReference Include="..\Modulos\Remesas de proveedor\Model\uBizRemesasProveedorServer.pas"/>
|
||||
<DCCReference Include="..\Modulos\Remesas de proveedor\Servidor\srvRemesasProveedor_Impl.pas">
|
||||
<DesignClass>TDataAbstractService</DesignClass>
|
||||
<Form>srvRemesasProveedor</Form>
|
||||
</DCCReference>
|
||||
<DCCReference Include="..\Modulos\Tipos de IVA\Model\schTiposIVAClient_Intf.pas"/>
|
||||
<DCCReference Include="..\Modulos\Tipos de IVA\Model\schTiposIVAServer_Intf.pas"/>
|
||||
<DCCReference Include="..\Modulos\Tipos de IVA\Servidor\srvTiposIVA_Impl.pas">
|
||||
<DesignClass>TDataAbstractService</DesignClass>
|
||||
<Form>srvTiposIVA</Form>
|
||||
</DCCReference>
|
||||
<DCCReference Include="..\Modulos\Unidades de medida\Model\schUnidadesMedidaClient_Intf.pas"/>
|
||||
<DCCReference Include="..\Modulos\Unidades de medida\Model\schUnidadesMedidaServer_Intf.pas"/>
|
||||
<DCCReference Include="..\Modulos\Unidades de medida\Servidor\srvUnidadesMedida_Impl.pas">
|
||||
<DesignClass>TDataAbstractService</DesignClass>
|
||||
<Form>srvUnidadesMedida</Form>
|
||||
</DCCReference>
|
||||
<DCCReference Include="..\Servicios\FactuGES_Intf.pas"/>
|
||||
<DCCReference Include="..\Servicios\FactuGES_Invk.pas"/>
|
||||
<DCCReference Include="Configuracion\srvConfiguracion_Impl.pas">
|
||||
<DesignClass>TDataAbstractService</DesignClass>
|
||||
<Form>srvConfiguracion</Form>
|
||||
</DCCReference>
|
||||
<DCCReference Include="Configuracion\uConexionBD.pas">
|
||||
<DesignClass>TFrame</DesignClass>
|
||||
<Form>frConexionBD</Form>
|
||||
</DCCReference>
|
||||
<DCCReference Include="Configuracion\uConfGeneral.pas">
|
||||
<DesignClass>TFrame</DesignClass>
|
||||
<Form>frConfGeneral</Form>
|
||||
</DCCReference>
|
||||
<DCCReference Include="Configuracion\uConfiguracion.pas">
|
||||
<DesignClass>TForm</DesignClass>
|
||||
<Form>fConfiguracion</Form>
|
||||
</DCCReference>
|
||||
<DCCReference Include="Configuracion\uFrameConfiguracion.pas">
|
||||
<DesignClass>TFrame</DesignClass>
|
||||
<Form>FrameConfiguracion</Form>
|
||||
</DCCReference>
|
||||
<DCCReference Include="srvLogin_Impl.pas">
|
||||
<DesignClass>TDARemoteService</DesignClass>
|
||||
<Form>srvLogin</Form>
|
||||
</DCCReference>
|
||||
<DCCReference Include="uAcercaDe.pas">
|
||||
<Form>fAcercaDe</Form>
|
||||
</DCCReference>
|
||||
<DCCReference Include="uDataModuleServer.pas">
|
||||
<DesignClass>TDataModule</DesignClass>
|
||||
<Form>dmServer</Form>
|
||||
</DCCReference>
|
||||
<DCCReference Include="uServerMainForm.pas">
|
||||
<Form>fServerForm</Form>
|
||||
</DCCReference>
|
||||
<DCCReference Include="Utiles\AHWord97.pas"/>
|
||||
<DCCReference Include="Utiles\MidasSpeedFix.pas"/>
|
||||
<DCCReference Include="Utiles\RegExpr.pas"/>
|
||||
<DCCReference Include="Utiles\uBusinessUtils.pas"/>
|
||||
<DCCReference Include="Utiles\uDatabaseUtils.pas"/>
|
||||
<DCCReference Include="Utiles\uReferenciasUtils.pas"/>
|
||||
<DCCReference Include="Utiles\uRestriccionesUsuarioUtils.pas"/>
|
||||
<DCCReference Include="Utiles\uSchemaUtilsServer.pas"/>
|
||||
<DCCReference Include="Utiles\uServerAppUtils.pas"/>
|
||||
<DCCReference Include="Utiles\uSesionesUtils.pas"/>
|
||||
</ItemGroup>
|
||||
</Project>
|
||||
<!-- EurekaLog First Line
|
||||
[Exception Log]
|
||||
EurekaLog Version=6011
|
||||
Activate=0
|
||||
Activate=1
|
||||
Activate Handle=1
|
||||
Save Log File=1
|
||||
Foreground Tab=0
|
||||
|
||||
@ -1,4 +1,4 @@
|
||||
MAINICON ICON "C:\Codigo Noviseda\Resources\Iconos\Servidor.ico"
|
||||
MAINICON ICON "C:\Codigo noviseda\Resources\Iconos\Servidor.ico"
|
||||
1 VERSIONINFO
|
||||
FILEVERSION 1,0,2,0
|
||||
PRODUCTVERSION 1,0,2,0
|
||||
@ -17,7 +17,7 @@ BEGIN
|
||||
VALUE "InternalName", "FactuGES Servidor\0"
|
||||
VALUE "ProductName", "FactuGES Servidor\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
|
||||
BLOCK "VarFileInfo"
|
||||
|
||||
@ -13,7 +13,7 @@ object dmServer: TdmServer
|
||||
DriverDirectory = '%SYSTEM%\'
|
||||
AutoLoad = True
|
||||
TraceActive = True
|
||||
TraceFlags = [toExecute, toError, toStmt, toConnect, toTransact, toMisc]
|
||||
TraceFlags = [toPrepare, toExecute, toFetch, toError, toStmt, toConnect, toTransact, toBlob, toService, toMisc, toParams]
|
||||
OnTraceEvent = DriverManagerTraceEvent
|
||||
Left = 136
|
||||
Top = 80
|
||||
|
||||
@ -280,6 +280,7 @@ end;
|
||||
procedure TdmServer.RefrescarConexion;
|
||||
begin
|
||||
HTTPServer.Active := False;
|
||||
// ConnectionManager.ClearPool;
|
||||
ConnectionManager.Connections.GetDefaultConnection.ConnectionString := '';
|
||||
|
||||
ConnectionName := ConnectionManager.GetDefaultConnectionName;
|
||||
|
||||
Reference in New Issue
Block a user