Se depura modulo de pedidos de cliente
git-svn-id: https://192.168.0.254/svn/Proyectos.Noviseda_FactuGES2/trunk@102 f33bb606-9f5c-448d-9c99-757f00063c96
This commit is contained in:
parent
8e42ec5d7f
commit
8cb5316a32
BIN
Build/Build.fbl6
BIN
Build/Build.fbl6
Binary file not shown.
@ -199,6 +199,9 @@ SET GENERATOR GEN_PEDIDOS_CLI_DETALLES_ID TO 1;
|
|||||||
CREATE GENERATOR GEN_PEDIDOS_CLI_ID;
|
CREATE GENERATOR GEN_PEDIDOS_CLI_ID;
|
||||||
SET GENERATOR GEN_PEDIDOS_CLI_ID TO 1;
|
SET GENERATOR GEN_PEDIDOS_CLI_ID TO 1;
|
||||||
|
|
||||||
|
REATE GENERATOR GEN_PEDIDOS_CLI_DET_COLOR_ID;
|
||||||
|
SET GENERATOR GEN_PEDIDOS_CLI_DET_COLOR_ID TO 1;
|
||||||
|
|
||||||
CREATE GENERATOR GEN_PEDIDOS_PROV_DETALLES_ID;
|
CREATE GENERATOR GEN_PEDIDOS_PROV_DETALLES_ID;
|
||||||
SET GENERATOR GEN_PEDIDOS_PROV_DETALLES_ID TO 1;
|
SET GENERATOR GEN_PEDIDOS_PROV_DETALLES_ID TO 1;
|
||||||
|
|
||||||
@ -922,7 +925,10 @@ CREATE TABLE PEDIDOS_CLIENTE (
|
|||||||
ID_FORMA_PAGO TIPO_ID,
|
ID_FORMA_PAGO TIPO_ID,
|
||||||
REF_TIENDA_WEB INTEGER,
|
REF_TIENDA_WEB INTEGER,
|
||||||
FECHA_PREVISTA_ENVIO DATE,
|
FECHA_PREVISTA_ENVIO DATE,
|
||||||
REFERENCIA_CLIENTE VARCHAR(255)
|
REFERENCIA_CLIENTE VARCHAR(255),
|
||||||
|
DESCUENTO2 TIPO_PORCENTAJE,
|
||||||
|
IMPORTE_DESCUENTO2 TIPO_IMPORTE,
|
||||||
|
DATOS_BANCARIOS VARCHAR(255) COLLATE ES_ES
|
||||||
);
|
);
|
||||||
|
|
||||||
CREATE TABLE PEDIDOS_CLIENTE_DETALLES (
|
CREATE TABLE PEDIDOS_CLIENTE_DETALLES (
|
||||||
@ -942,6 +948,23 @@ CREATE TABLE PEDIDOS_CLIENTE_DETALLES (
|
|||||||
FECHA_MODIFICACION TIMESTAMP
|
FECHA_MODIFICACION TIMESTAMP
|
||||||
);
|
);
|
||||||
|
|
||||||
|
CREATE TABLE PEDIDOS_CLIENTE_DETALLE_COLOR (
|
||||||
|
ID TIPO_ID NOT NULL /* TIPO_ID = INTEGER */,
|
||||||
|
ID_DETALLE TIPO_ID NOT NULL /* TIPO_ID = INTEGER */,
|
||||||
|
COLOR1 INTEGER Default 0,
|
||||||
|
COLOR2 INTEGER Default 0,
|
||||||
|
COLOR3 INTEGER Default 0,
|
||||||
|
COLOR4 INTEGER Default 0,
|
||||||
|
COLOR5 INTEGER Default 0,
|
||||||
|
COLOR6 INTEGER Default 0,
|
||||||
|
COLOR7 INTEGER Default 0,
|
||||||
|
COLOR8 INTEGER Default 0,
|
||||||
|
COLOR9 INTEGER Default 0,
|
||||||
|
COLOR10 INTEGER Default 0,
|
||||||
|
COLOR11 INTEGER Default 0,
|
||||||
|
COLOR12 INTEGER Default 0
|
||||||
|
);
|
||||||
|
|
||||||
CREATE TABLE PEDIDOS_PROVEEDOR (
|
CREATE TABLE PEDIDOS_PROVEEDOR (
|
||||||
ID TIPO_ID NOT NULL,
|
ID TIPO_ID NOT NULL,
|
||||||
ID_EMPRESA TIPO_ID,
|
ID_EMPRESA TIPO_ID,
|
||||||
@ -3817,13 +3840,17 @@ CREATE VIEW V_PEDIDOS_CLIENTE(
|
|||||||
IMPORTE_PORTE,
|
IMPORTE_PORTE,
|
||||||
DESCUENTO,
|
DESCUENTO,
|
||||||
IMPORTE_DESCUENTO,
|
IMPORTE_DESCUENTO,
|
||||||
|
DESCUENTO2,
|
||||||
|
IMPORTE_DESCUENTO2,
|
||||||
BASE_IMPONIBLE,
|
BASE_IMPONIBLE,
|
||||||
IVA,
|
IVA,
|
||||||
IMPORTE_IVA,
|
IMPORTE_IVA,
|
||||||
IMPORTE_TOTAL,
|
IMPORTE_TOTAL,
|
||||||
ID_FORMA_PAGO,
|
ID_FORMA_PAGO,
|
||||||
|
FORMA_PAGO,
|
||||||
REF_TIENDA_WEB,
|
REF_TIENDA_WEB,
|
||||||
FECHA_PREVISTA_ENVIO)
|
FECHA_PREVISTA_ENVIO,
|
||||||
|
DATOS_BANCARIOS)
|
||||||
AS
|
AS
|
||||||
SELECT
|
SELECT
|
||||||
PEDIDOS_CLIENTE.ID,
|
PEDIDOS_CLIENTE.ID,
|
||||||
@ -3851,17 +3878,22 @@ SELECT
|
|||||||
PEDIDOS_CLIENTE.IMPORTE_PORTE,
|
PEDIDOS_CLIENTE.IMPORTE_PORTE,
|
||||||
PEDIDOS_CLIENTE.DESCUENTO,
|
PEDIDOS_CLIENTE.DESCUENTO,
|
||||||
PEDIDOS_CLIENTE.IMPORTE_DESCUENTO,
|
PEDIDOS_CLIENTE.IMPORTE_DESCUENTO,
|
||||||
|
PEDIDOS_CLIENTE.DESCUENTO2,
|
||||||
|
PEDIDOS_CLIENTE.IMPORTE_DESCUENTO2,
|
||||||
PEDIDOS_CLIENTE.BASE_IMPONIBLE,
|
PEDIDOS_CLIENTE.BASE_IMPONIBLE,
|
||||||
PEDIDOS_CLIENTE.IVA,
|
PEDIDOS_CLIENTE.IVA,
|
||||||
PEDIDOS_CLIENTE.IMPORTE_IVA,
|
PEDIDOS_CLIENTE.IMPORTE_IVA,
|
||||||
PEDIDOS_CLIENTE.IMPORTE_TOTAL,
|
PEDIDOS_CLIENTE.IMPORTE_TOTAL,
|
||||||
PEDIDOS_CLIENTE.ID_FORMA_PAGO,
|
PEDIDOS_CLIENTE.ID_FORMA_PAGO,
|
||||||
|
FORMAS_PAGO.DESCRIPCION,
|
||||||
PEDIDOS_CLIENTE.REF_TIENDA_WEB,
|
PEDIDOS_CLIENTE.REF_TIENDA_WEB,
|
||||||
PEDIDOS_CLIENTE.FECHA_PREVISTA_ENVIO
|
PEDIDOS_CLIENTE.FECHA_PREVISTA_ENVIO,
|
||||||
|
PEDIDOS_CLIENTE.DATOS_BANCARIOS
|
||||||
FROM
|
FROM
|
||||||
V_PED_CLI_SITUACION
|
V_PED_CLI_SITUACION
|
||||||
INNER JOIN PEDIDOS_CLIENTE ON (PEDIDOS_CLIENTE.ID = V_PED_CLI_SITUACION.ID_PEDIDO)
|
INNER JOIN PEDIDOS_CLIENTE ON (PEDIDOS_CLIENTE.ID = V_PED_CLI_SITUACION.ID_PEDIDO)
|
||||||
INNER JOIN CONTACTOS ON (PEDIDOS_CLIENTE.ID_CLIENTE = CONTACTOS.ID)
|
INNER JOIN CONTACTOS ON (PEDIDOS_CLIENTE.ID_CLIENTE = CONTACTOS.ID)
|
||||||
|
LEFT OUTER JOIN FORMAS_PAGO ON (FORMAS_PAGO.ID = PEDIDOS_CLIENTE.ID_FORMA_PAGO)
|
||||||
;
|
;
|
||||||
|
|
||||||
|
|
||||||
@ -3915,6 +3947,7 @@ ALTER TABLE PAGOS_CLIENTE ADD CONSTRAINT PK_PAGOS_CLIENTE PRIMARY KEY (ID);
|
|||||||
ALTER TABLE PAGOS_PROVEEDOR ADD CONSTRAINT PK_PAGOS_PROVEEDOR PRIMARY KEY (ID);
|
ALTER TABLE PAGOS_PROVEEDOR ADD CONSTRAINT PK_PAGOS_PROVEEDOR PRIMARY KEY (ID);
|
||||||
ALTER TABLE PEDIDOS_CLIENTE ADD CONSTRAINT PK_PEDIDOS_CLIENTE PRIMARY KEY (ID);
|
ALTER TABLE PEDIDOS_CLIENTE ADD CONSTRAINT PK_PEDIDOS_CLIENTE PRIMARY KEY (ID);
|
||||||
ALTER TABLE PEDIDOS_CLIENTE_DETALLES ADD CONSTRAINT PK_PEDIDOS_CLIENTE_DETALLES PRIMARY KEY (ID);
|
ALTER TABLE PEDIDOS_CLIENTE_DETALLES ADD CONSTRAINT PK_PEDIDOS_CLIENTE_DETALLES PRIMARY KEY (ID);
|
||||||
|
ALTER TABLE PEDIDOS_CLIENTE_DETALLE_COLOR ADD CONSTRAINT PK_PEDIDOS_CLIENTE_DETALLE_CO PRIMARY KEY (ID);
|
||||||
ALTER TABLE PEDIDOS_PROVEEDOR ADD CONSTRAINT PK_PEDIDOS_PROVEEDOR PRIMARY KEY (ID);
|
ALTER TABLE PEDIDOS_PROVEEDOR ADD CONSTRAINT PK_PEDIDOS_PROVEEDOR PRIMARY KEY (ID);
|
||||||
ALTER TABLE PEDIDOS_PROVEEDOR_DETALLES ADD CONSTRAINT PK_PEDIDOS_PROVEEDOR_DETALLES PRIMARY KEY (ID);
|
ALTER TABLE PEDIDOS_PROVEEDOR_DETALLES ADD CONSTRAINT PK_PEDIDOS_PROVEEDOR_DETALLES PRIMARY KEY (ID);
|
||||||
ALTER TABLE PERMISOS ADD CONSTRAINT PK_PERMISOS PRIMARY KEY (ID);
|
ALTER TABLE PERMISOS ADD CONSTRAINT PK_PERMISOS PRIMARY KEY (ID);
|
||||||
|
|||||||
@ -55,10 +55,10 @@
|
|||||||
<DelphiCompile Include="ApplicationBase.dpk">
|
<DelphiCompile Include="ApplicationBase.dpk">
|
||||||
<MainSource>MainSource</MainSource>
|
<MainSource>MainSource</MainSource>
|
||||||
</DelphiCompile>
|
</DelphiCompile>
|
||||||
<DCCReference Include="C:\Documents and Settings\Usuario\Base.dcp" />
|
<DCCReference Include="..\Modulos\Pedidos de cliente\Views\Base.dcp" />
|
||||||
<DCCReference Include="C:\Documents and Settings\Usuario\GUIBase.dcp" />
|
<DCCReference Include="..\Modulos\Pedidos de cliente\Views\GUIBase.dcp" />
|
||||||
<DCCReference Include="C:\Documents and Settings\Usuario\JvJansD11R.dcp" />
|
<DCCReference Include="..\Modulos\Pedidos de cliente\Views\JvJansD11R.dcp" />
|
||||||
<DCCReference Include="C:\Documents and Settings\Usuario\PluginSDK_D11R.dcp" />
|
<DCCReference Include="..\Modulos\Pedidos de cliente\Views\PluginSDK_D11R.dcp" />
|
||||||
<DCCReference Include="Empresas\Controller\uDatosBancariosEmpresaController.pas" />
|
<DCCReference Include="Empresas\Controller\uDatosBancariosEmpresaController.pas" />
|
||||||
<DCCReference Include="Empresas\Controller\uEmpresasController.pas" />
|
<DCCReference Include="Empresas\Controller\uEmpresasController.pas" />
|
||||||
<DCCReference Include="Empresas\Controller\View\uIEditorDatosBancarioEmpresa.pas" />
|
<DCCReference Include="Empresas\Controller\View\uIEditorDatosBancarioEmpresa.pas" />
|
||||||
|
|||||||
@ -45,6 +45,8 @@
|
|||||||
<Borland.ProjectType>Package</Borland.ProjectType>
|
<Borland.ProjectType>Package</Borland.ProjectType>
|
||||||
<BorlandProject>
|
<BorlandProject>
|
||||||
<BorlandProject><Delphi.Personality><Parameters><Parameters Name="UseLauncher">False</Parameters><Parameters Name="LoadAllSymbols">True</Parameters><Parameters Name="LoadUnspecifiedSymbols">False</Parameters></Parameters><Package_Options><Package_Options Name="PackageDescription">Libreria base de FactuGES</Package_Options><Package_Options Name="ImplicitBuild">False</Package_Options><Package_Options Name="DesigntimeOnly">False</Package_Options><Package_Options Name="RuntimeOnly">False</Package_Options></Package_Options><VersionInfo><VersionInfo Name="IncludeVerInfo">True</VersionInfo><VersionInfo Name="AutoIncBuild">False</VersionInfo><VersionInfo Name="MajorVer">1</VersionInfo><VersionInfo Name="MinorVer">0</VersionInfo><VersionInfo Name="Release">0</VersionInfo><VersionInfo Name="Build">0</VersionInfo><VersionInfo Name="Debug">False</VersionInfo><VersionInfo Name="PreRelease">False</VersionInfo><VersionInfo Name="Special">False</VersionInfo><VersionInfo Name="Private">False</VersionInfo><VersionInfo Name="DLL">False</VersionInfo><VersionInfo Name="Locale">3082</VersionInfo><VersionInfo Name="CodePage">1252</VersionInfo></VersionInfo><VersionInfoKeys><VersionInfoKeys Name="CompanyName"></VersionInfoKeys><VersionInfoKeys Name="FileDescription"></VersionInfoKeys><VersionInfoKeys Name="FileVersion">1.0.0.0</VersionInfoKeys><VersionInfoKeys Name="InternalName"></VersionInfoKeys><VersionInfoKeys Name="LegalCopyright"></VersionInfoKeys><VersionInfoKeys Name="LegalTrademarks"></VersionInfoKeys><VersionInfoKeys Name="OriginalFilename"></VersionInfoKeys><VersionInfoKeys Name="ProductName"></VersionInfoKeys><VersionInfoKeys Name="ProductVersion">1.0.0.0</VersionInfoKeys></VersionInfoKeys><Excluded_Packages>
|
<BorlandProject><Delphi.Personality><Parameters><Parameters Name="UseLauncher">False</Parameters><Parameters Name="LoadAllSymbols">True</Parameters><Parameters Name="LoadUnspecifiedSymbols">False</Parameters></Parameters><Package_Options><Package_Options Name="PackageDescription">Libreria base de FactuGES</Package_Options><Package_Options Name="ImplicitBuild">False</Package_Options><Package_Options Name="DesigntimeOnly">False</Package_Options><Package_Options Name="RuntimeOnly">False</Package_Options></Package_Options><VersionInfo><VersionInfo Name="IncludeVerInfo">True</VersionInfo><VersionInfo Name="AutoIncBuild">False</VersionInfo><VersionInfo Name="MajorVer">1</VersionInfo><VersionInfo Name="MinorVer">0</VersionInfo><VersionInfo Name="Release">0</VersionInfo><VersionInfo Name="Build">0</VersionInfo><VersionInfo Name="Debug">False</VersionInfo><VersionInfo Name="PreRelease">False</VersionInfo><VersionInfo Name="Special">False</VersionInfo><VersionInfo Name="Private">False</VersionInfo><VersionInfo Name="DLL">False</VersionInfo><VersionInfo Name="Locale">3082</VersionInfo><VersionInfo Name="CodePage">1252</VersionInfo></VersionInfo><VersionInfoKeys><VersionInfoKeys Name="CompanyName"></VersionInfoKeys><VersionInfoKeys Name="FileDescription"></VersionInfoKeys><VersionInfoKeys Name="FileVersion">1.0.0.0</VersionInfoKeys><VersionInfoKeys Name="InternalName"></VersionInfoKeys><VersionInfoKeys Name="LegalCopyright"></VersionInfoKeys><VersionInfoKeys Name="LegalTrademarks"></VersionInfoKeys><VersionInfoKeys Name="OriginalFilename"></VersionInfoKeys><VersionInfoKeys Name="ProductName"></VersionInfoKeys><VersionInfoKeys Name="ProductVersion">1.0.0.0</VersionInfoKeys></VersionInfoKeys><Excluded_Packages>
|
||||||
|
|
||||||
|
|
||||||
<Excluded_Packages Name="C:\Documents and Settings\All Users\Documentos\RAD Studio\5.0\Bpl\RemObjects_Indy_D11.bpl">RemObjects SDK - Indy Library</Excluded_Packages>
|
<Excluded_Packages Name="C:\Documents and Settings\All Users\Documentos\RAD Studio\5.0\Bpl\RemObjects_Indy_D11.bpl">RemObjects SDK - Indy Library</Excluded_Packages>
|
||||||
</Excluded_Packages><Source><Source Name="MainSource">Base.dpk</Source></Source></Delphi.Personality></BorlandProject></BorlandProject>
|
</Excluded_Packages><Source><Source Name="MainSource">Base.dpk</Source></Source></Delphi.Personality></BorlandProject></BorlandProject>
|
||||||
</ProjectExtensions>
|
</ProjectExtensions>
|
||||||
@ -54,57 +56,57 @@
|
|||||||
<MainSource>MainSource</MainSource>
|
<MainSource>MainSource</MainSource>
|
||||||
</DelphiCompile>
|
</DelphiCompile>
|
||||||
<DCCReference Include="..\Servicios\FactuGES_Intf.pas" />
|
<DCCReference Include="..\Servicios\FactuGES_Intf.pas" />
|
||||||
<DCCReference Include="C:\Documents and Settings\Usuario\adortl.dcp" />
|
<DCCReference Include="..\Servidor\adortl.dcp" />
|
||||||
<DCCReference Include="C:\Documents and Settings\Usuario\cxDataD11.dcp" />
|
<DCCReference Include="..\Servidor\cxDataD11.dcp" />
|
||||||
<DCCReference Include="C:\Documents and Settings\Usuario\cxEditorsD11.dcp" />
|
<DCCReference Include="..\Servidor\cxEditorsD11.dcp" />
|
||||||
<DCCReference Include="C:\Documents and Settings\Usuario\cxExportD11.dcp" />
|
<DCCReference Include="..\Servidor\cxExportD11.dcp" />
|
||||||
<DCCReference Include="C:\Documents and Settings\Usuario\cxExtEditorsD11.dcp" />
|
<DCCReference Include="..\Servidor\cxExtEditorsD11.dcp" />
|
||||||
<DCCReference Include="C:\Documents and Settings\Usuario\cxGridD11.dcp" />
|
<DCCReference Include="..\Servidor\cxGridD11.dcp" />
|
||||||
<DCCReference Include="C:\Documents and Settings\Usuario\cxLibraryD11.dcp" />
|
<DCCReference Include="..\Servidor\cxLibraryD11.dcp" />
|
||||||
<DCCReference Include="C:\Documents and Settings\Usuario\cxPageControlD11.dcp" />
|
<DCCReference Include="..\Servidor\cxPageControlD11.dcp" />
|
||||||
<DCCReference Include="C:\Documents and Settings\Usuario\DataAbstract_Core_D11.dcp" />
|
<DCCReference Include="..\Servidor\DataAbstract_Core_D11.dcp" />
|
||||||
<DCCReference Include="C:\Documents and Settings\Usuario\dbrtl.dcp" />
|
<DCCReference Include="..\Servidor\dbrtl.dcp" />
|
||||||
<DCCReference Include="C:\Documents and Settings\Usuario\dclIndyCore.dcp" />
|
<DCCReference Include="..\Servidor\dclIndyCore.dcp" />
|
||||||
<DCCReference Include="C:\Documents and Settings\Usuario\designide.dcp" />
|
<DCCReference Include="..\Servidor\designide.dcp" />
|
||||||
<DCCReference Include="C:\Documents and Settings\Usuario\dsnap.dcp" />
|
<DCCReference Include="..\Servidor\dsnap.dcp" />
|
||||||
<DCCReference Include="C:\Documents and Settings\Usuario\dxCoreD11.dcp" />
|
<DCCReference Include="..\Servidor\dxCoreD11.dcp" />
|
||||||
<DCCReference Include="C:\Documents and Settings\Usuario\dxGDIPlusD11.dcp" />
|
<DCCReference Include="..\Servidor\dxGDIPlusD11.dcp" />
|
||||||
<DCCReference Include="C:\Documents and Settings\Usuario\dxLayoutControlD11.dcp" />
|
<DCCReference Include="..\Servidor\dxLayoutControlD11.dcp" />
|
||||||
<DCCReference Include="C:\Documents and Settings\Usuario\dxPSCoreD11.dcp" />
|
<DCCReference Include="..\Servidor\dxPSCoreD11.dcp" />
|
||||||
<DCCReference Include="C:\Documents and Settings\Usuario\dxThemeD11.dcp" />
|
<DCCReference Include="..\Servidor\dxThemeD11.dcp" />
|
||||||
<DCCReference Include="C:\Documents and Settings\Usuario\GUISDK_D11R.dcp" />
|
<DCCReference Include="..\Servidor\GUISDK_D11R.dcp" />
|
||||||
<DCCReference Include="C:\Documents and Settings\Usuario\IndyCore.dcp" />
|
<DCCReference Include="..\Servidor\IndyCore.dcp" />
|
||||||
<DCCReference Include="C:\Documents and Settings\Usuario\IndyProtocols.dcp" />
|
<DCCReference Include="..\Servidor\IndyProtocols.dcp" />
|
||||||
<DCCReference Include="C:\Documents and Settings\Usuario\IndySystem.dcp" />
|
<DCCReference Include="..\Servidor\IndySystem.dcp" />
|
||||||
<DCCReference Include="C:\Documents and Settings\Usuario\Jcl.dcp" />
|
<DCCReference Include="..\Servidor\Jcl.dcp" />
|
||||||
<DCCReference Include="C:\Documents and Settings\Usuario\JclVcl.dcp" />
|
<DCCReference Include="..\Servidor\JclVcl.dcp" />
|
||||||
<DCCReference Include="C:\Documents and Settings\Usuario\JSDialog100.dcp" />
|
<DCCReference Include="..\Servidor\JSDialog100.dcp" />
|
||||||
<DCCReference Include="C:\Documents and Settings\Usuario\JvCmpD11R.dcp" />
|
<DCCReference Include="..\Servidor\JvCmpD11R.dcp" />
|
||||||
<DCCReference Include="C:\Documents and Settings\Usuario\JvCoreD11R.dcp" />
|
<DCCReference Include="..\Servidor\JvCoreD11R.dcp" />
|
||||||
<DCCReference Include="C:\Documents and Settings\Usuario\JvCtrlsD11R.dcp" />
|
<DCCReference Include="..\Servidor\JvCtrlsD11R.dcp" />
|
||||||
<DCCReference Include="C:\Documents and Settings\Usuario\JvDlgsD11R.dcp" />
|
<DCCReference Include="..\Servidor\JvDlgsD11R.dcp" />
|
||||||
<DCCReference Include="C:\Documents and Settings\Usuario\JvMMD11R.dcp" />
|
<DCCReference Include="..\Servidor\JvMMD11R.dcp" />
|
||||||
<DCCReference Include="C:\Documents and Settings\Usuario\JvNetD11R.dcp" />
|
<DCCReference Include="..\Servidor\JvNetD11R.dcp" />
|
||||||
<DCCReference Include="C:\Documents and Settings\Usuario\JvPageCompsD11R.dcp" />
|
<DCCReference Include="..\Servidor\JvPageCompsD11R.dcp" />
|
||||||
<DCCReference Include="C:\Documents and Settings\Usuario\JvStdCtrlsD11R.dcp" />
|
<DCCReference Include="..\Servidor\JvStdCtrlsD11R.dcp" />
|
||||||
<DCCReference Include="C:\Documents and Settings\Usuario\JvSystemD11R.dcp" />
|
<DCCReference Include="..\Servidor\JvSystemD11R.dcp" />
|
||||||
<DCCReference Include="C:\Documents and Settings\Usuario\pckMD5.dcp" />
|
<DCCReference Include="..\Servidor\pckMD5.dcp" />
|
||||||
<DCCReference Include="C:\Documents and Settings\Usuario\pckUCDataConnector.dcp" />
|
<DCCReference Include="..\Servidor\pckUCDataConnector.dcp" />
|
||||||
<DCCReference Include="C:\Documents and Settings\Usuario\pckUserControl_RT.dcp" />
|
<DCCReference Include="..\Servidor\pckUserControl_RT.dcp" />
|
||||||
<DCCReference Include="C:\Documents and Settings\Usuario\PngComponentsD10.dcp" />
|
<DCCReference Include="..\Servidor\PngComponentsD10.dcp" />
|
||||||
<DCCReference Include="C:\Documents and Settings\Usuario\PNG_D10.dcp" />
|
<DCCReference Include="..\Servidor\PNG_D10.dcp" />
|
||||||
<DCCReference Include="C:\Documents and Settings\Usuario\RemObjects_Core_D11.dcp" />
|
<DCCReference Include="..\Servidor\RemObjects_Core_D11.dcp" />
|
||||||
<DCCReference Include="C:\Documents and Settings\Usuario\RemObjects_Indy_D11.dcp" />
|
<DCCReference Include="..\Servidor\RemObjects_Indy_D11.dcp" />
|
||||||
<DCCReference Include="C:\Documents and Settings\Usuario\rtl.dcp" />
|
<DCCReference Include="..\Servidor\rtl.dcp" />
|
||||||
<DCCReference Include="C:\Documents and Settings\Usuario\SpTBXLib_d11.dcp" />
|
<DCCReference Include="..\Servidor\SpTBXLib_d11.dcp" />
|
||||||
<DCCReference Include="C:\Documents and Settings\Usuario\tb2k_d11.dcp" />
|
<DCCReference Include="..\Servidor\tb2k_d11.dcp" />
|
||||||
<DCCReference Include="C:\Documents and Settings\Usuario\vcl.dcp" />
|
<DCCReference Include="..\Servidor\vcl.dcp" />
|
||||||
<DCCReference Include="C:\Documents and Settings\Usuario\vclactnband.dcp" />
|
<DCCReference Include="..\Servidor\vclactnband.dcp" />
|
||||||
<DCCReference Include="C:\Documents and Settings\Usuario\vcldb.dcp" />
|
<DCCReference Include="..\Servidor\vcldb.dcp" />
|
||||||
<DCCReference Include="C:\Documents and Settings\Usuario\vcljpg.dcp" />
|
<DCCReference Include="..\Servidor\vcljpg.dcp" />
|
||||||
<DCCReference Include="C:\Documents and Settings\Usuario\VclSmp.dcp" />
|
<DCCReference Include="..\Servidor\VclSmp.dcp" />
|
||||||
<DCCReference Include="C:\Documents and Settings\Usuario\vclx.dcp" />
|
<DCCReference Include="..\Servidor\vclx.dcp" />
|
||||||
<DCCReference Include="C:\Documents and Settings\Usuario\xmlrtl.dcp" />
|
<DCCReference Include="..\Servidor\xmlrtl.dcp" />
|
||||||
<DCCReference Include="Conexion\uConfigurarConexion.pas">
|
<DCCReference Include="Conexion\uConfigurarConexion.pas">
|
||||||
<Form>fConfigurarConexion</Form>
|
<Form>fConfigurarConexion</Form>
|
||||||
<DesignClass>TForm</DesignClass>
|
<DesignClass>TForm</DesignClass>
|
||||||
|
|||||||
@ -344,10 +344,16 @@ begin
|
|||||||
begin
|
begin
|
||||||
for x := 0 to (aDelta.LoggedFieldCount-1) do
|
for x := 0 to (aDelta.LoggedFieldCount-1) do
|
||||||
begin
|
begin
|
||||||
|
try
|
||||||
OldNewAreDifferent := (aDelta.Changes[i].OldValues[x] <> aDelta.Changes[i].NewValues[x]);
|
OldNewAreDifferent := (aDelta.Changes[i].OldValues[x] <> aDelta.Changes[i].NewValues[x]);
|
||||||
|
|
||||||
if OldNewAreDifferent then
|
if OldNewAreDifferent then
|
||||||
Break; // Abandon iteration at the first difference between old and new.
|
Break; // Abandon iteration at the first difference between old and new.
|
||||||
|
except
|
||||||
|
ShowMessage('x = ' + IntToStr(x));
|
||||||
|
ShowMessage('Old = ' + VarToStr(aDelta.Changes[i].OldValues[x]));
|
||||||
|
ShowMessage('New = ' + VarToStr(aDelta.Changes[i].NewValues[x]));
|
||||||
|
end;
|
||||||
end;
|
end;
|
||||||
|
|
||||||
if OldNewAreDifferent then
|
if OldNewAreDifferent then
|
||||||
|
|||||||
@ -2,6 +2,7 @@ program FactuGES;
|
|||||||
|
|
||||||
uses
|
uses
|
||||||
// ExceptionLog,
|
// ExceptionLog,
|
||||||
|
ExceptionLog,
|
||||||
Forms,
|
Forms,
|
||||||
Windows,
|
Windows,
|
||||||
SysUtils,
|
SysUtils,
|
||||||
|
|||||||
@ -48,12 +48,13 @@
|
|||||||
<DCC_DebugInfoInExe>True</DCC_DebugInfoInExe>
|
<DCC_DebugInfoInExe>True</DCC_DebugInfoInExe>
|
||||||
<DCC_DebugVN>True</DCC_DebugVN>
|
<DCC_DebugVN>True</DCC_DebugVN>
|
||||||
<DCC_SymbolReferenceInfo>2</DCC_SymbolReferenceInfo>
|
<DCC_SymbolReferenceInfo>2</DCC_SymbolReferenceInfo>
|
||||||
|
<DCC_Define>EUREKALOG;EUREKALOG_VER6</DCC_Define>
|
||||||
</PropertyGroup>
|
</PropertyGroup>
|
||||||
<ProjectExtensions>
|
<ProjectExtensions>
|
||||||
<Borland.Personality>Delphi.Personality</Borland.Personality>
|
<Borland.Personality>Delphi.Personality</Borland.Personality>
|
||||||
<Borland.ProjectType>VCLApplication</Borland.ProjectType>
|
<Borland.ProjectType>VCLApplication</Borland.ProjectType>
|
||||||
<BorlandProject>
|
<BorlandProject>
|
||||||
<BorlandProject><Delphi.Personality><Parameters><Parameters Name="UseLauncher">False</Parameters><Parameters Name="LoadAllSymbols">True</Parameters><Parameters Name="LoadUnspecifiedSymbols">False</Parameters></Parameters><Language><Language Name="RootDir">C:\Archivos de programa\Borland\Delphi7\Bin\</Language></Language><VersionInfo><VersionInfo Name="IncludeVerInfo">True</VersionInfo><VersionInfo Name="AutoIncBuild">False</VersionInfo><VersionInfo Name="MajorVer">1</VersionInfo><VersionInfo Name="MinorVer">0</VersionInfo><VersionInfo Name="Release">1</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.1.0</VersionInfoKeys><VersionInfoKeys Name="InternalName">FactuGES</VersionInfoKeys><VersionInfoKeys Name="LegalCopyright"></VersionInfoKeys><VersionInfoKeys Name="LegalTrademarks"></VersionInfoKeys><VersionInfoKeys Name="OriginalFilename"></VersionInfoKeys><VersionInfoKeys Name="ProductName">FactuGES</VersionInfoKeys><VersionInfoKeys Name="ProductVersion">1.0.1.0</VersionInfoKeys><VersionInfoKeys Name="Comments"></VersionInfoKeys></VersionInfoKeys><Excluded_Packages></Excluded_Packages><Source><Source Name="MainSource">FactuGES.dpr</Source></Source></Delphi.Personality><ModelSupport>False</ModelSupport></BorlandProject></BorlandProject>
|
<BorlandProject><Delphi.Personality><Parameters><Parameters Name="UseLauncher">False</Parameters><Parameters Name="LoadAllSymbols">True</Parameters><Parameters Name="LoadUnspecifiedSymbols">False</Parameters></Parameters><Language><Language Name="RootDir">C:\Archivos de programa\Borland\Delphi7\Bin\</Language></Language><VersionInfo><VersionInfo Name="IncludeVerInfo">True</VersionInfo><VersionInfo Name="AutoIncBuild">False</VersionInfo><VersionInfo Name="MajorVer">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</VersionInfoKeys><VersionInfoKeys Name="LegalCopyright"></VersionInfoKeys><VersionInfoKeys Name="LegalTrademarks"></VersionInfoKeys><VersionInfoKeys Name="OriginalFilename"></VersionInfoKeys><VersionInfoKeys Name="ProductName">FactuGES</VersionInfoKeys><VersionInfoKeys Name="ProductVersion">1.0.2.0</VersionInfoKeys><VersionInfoKeys Name="Comments"></VersionInfoKeys></VersionInfoKeys><Excluded_Packages></Excluded_Packages><Source><Source Name="MainSource">FactuGES.dpr</Source></Source></Delphi.Personality><ModelSupport>False</ModelSupport></BorlandProject></BorlandProject>
|
||||||
</ProjectExtensions>
|
</ProjectExtensions>
|
||||||
<Import Project="$(MSBuildBinPath)\Borland.Delphi.Targets" />
|
<Import Project="$(MSBuildBinPath)\Borland.Delphi.Targets" />
|
||||||
<ItemGroup>
|
<ItemGroup>
|
||||||
@ -79,7 +80,7 @@
|
|||||||
<!-- EurekaLog First Line
|
<!-- EurekaLog First Line
|
||||||
[Exception Log]
|
[Exception Log]
|
||||||
EurekaLog Version=6011
|
EurekaLog Version=6011
|
||||||
Activate=0
|
Activate=1
|
||||||
Activate Handle=1
|
Activate Handle=1
|
||||||
Save Log File=1
|
Save Log File=1
|
||||||
Foreground Tab=0
|
Foreground Tab=0
|
||||||
|
|||||||
@ -1,7 +1,7 @@
|
|||||||
MAINICON ICON "C:\Codigo Noviseda\Resources\Iconos\Factuges.ico"
|
MAINICON ICON "C:\Codigo Noviseda\Resources\Iconos\Factuges.ico"
|
||||||
1 VERSIONINFO
|
1 VERSIONINFO
|
||||||
FILEVERSION 1,0,1,0
|
FILEVERSION 1,0,2,0
|
||||||
PRODUCTVERSION 1,0,1,0
|
PRODUCTVERSION 1,0,2,0
|
||||||
FILEFLAGSMASK 0x3FL
|
FILEFLAGSMASK 0x3FL
|
||||||
FILEFLAGS 0x00L
|
FILEFLAGS 0x00L
|
||||||
FILEOS 0x40004L
|
FILEOS 0x40004L
|
||||||
@ -13,10 +13,10 @@ BEGIN
|
|||||||
BLOCK "0C0A04E4"
|
BLOCK "0C0A04E4"
|
||||||
BEGIN
|
BEGIN
|
||||||
VALUE "CompanyName", "Rodax Software S.L.\0"
|
VALUE "CompanyName", "Rodax Software S.L.\0"
|
||||||
VALUE "FileVersion", "1.0.1.0\0"
|
VALUE "FileVersion", "1.0.2.0\0"
|
||||||
VALUE "InternalName", "FactuGES\0"
|
VALUE "InternalName", "FactuGES\0"
|
||||||
VALUE "ProductName", "FactuGES\0"
|
VALUE "ProductName", "FactuGES\0"
|
||||||
VALUE "ProductVersion", "1.0.1.0\0"
|
VALUE "ProductVersion", "1.0.2.0\0"
|
||||||
END
|
END
|
||||||
END
|
END
|
||||||
BLOCK "VarFileInfo"
|
BLOCK "VarFileInfo"
|
||||||
|
|||||||
Binary file not shown.
@ -59,32 +59,32 @@
|
|||||||
<DelphiCompile Include="GUIBase.dpk">
|
<DelphiCompile Include="GUIBase.dpk">
|
||||||
<MainSource>MainSource</MainSource>
|
<MainSource>MainSource</MainSource>
|
||||||
</DelphiCompile>
|
</DelphiCompile>
|
||||||
<DCCReference Include="C:\Documents and Settings\Usuario\Base.dcp" />
|
<DCCReference Include="..\Modulos\Pedidos de cliente\Views\Base.dcp" />
|
||||||
<DCCReference Include="C:\Documents and Settings\Usuario\cxLibraryD11.dcp" />
|
<DCCReference Include="..\Modulos\Pedidos de cliente\Views\cxLibraryD11.dcp" />
|
||||||
<DCCReference Include="C:\Documents and Settings\Usuario\cxTreeListD11.dcp" />
|
<DCCReference Include="..\Modulos\Pedidos de cliente\Views\cxTreeListD11.dcp" />
|
||||||
<DCCReference Include="C:\Documents and Settings\Usuario\dbrtl.dcp" />
|
<DCCReference Include="..\Modulos\Pedidos de cliente\Views\dbrtl.dcp" />
|
||||||
<DCCReference Include="C:\Documents and Settings\Usuario\dxBarD11.dcp" />
|
<DCCReference Include="..\Modulos\Pedidos de cliente\Views\dxBarD11.dcp" />
|
||||||
<DCCReference Include="C:\Documents and Settings\Usuario\dxBarExtItemsD11.dcp" />
|
<DCCReference Include="..\Modulos\Pedidos de cliente\Views\dxBarExtItemsD11.dcp" />
|
||||||
<DCCReference Include="C:\Documents and Settings\Usuario\dxComnD11.dcp" />
|
<DCCReference Include="..\Modulos\Pedidos de cliente\Views\dxComnD11.dcp" />
|
||||||
<DCCReference Include="C:\Documents and Settings\Usuario\dxGDIPlusD11.dcp" />
|
<DCCReference Include="..\Modulos\Pedidos de cliente\Views\dxGDIPlusD11.dcp" />
|
||||||
<DCCReference Include="C:\Documents and Settings\Usuario\dxLayoutControlD11.dcp" />
|
<DCCReference Include="..\Modulos\Pedidos de cliente\Views\dxLayoutControlD11.dcp" />
|
||||||
<DCCReference Include="C:\Documents and Settings\Usuario\dxPSCoreD11.dcp" />
|
<DCCReference Include="..\Modulos\Pedidos de cliente\Views\dxPSCoreD11.dcp" />
|
||||||
<DCCReference Include="C:\Documents and Settings\Usuario\dxPScxCommonD11.dcp" />
|
<DCCReference Include="..\Modulos\Pedidos de cliente\Views\dxPScxCommonD11.dcp" />
|
||||||
<DCCReference Include="C:\Documents and Settings\Usuario\dxPScxExtCommonD11.dcp" />
|
<DCCReference Include="..\Modulos\Pedidos de cliente\Views\dxPScxExtCommonD11.dcp" />
|
||||||
<DCCReference Include="C:\Documents and Settings\Usuario\dxPScxGrid6LnkD11.dcp" />
|
<DCCReference Include="..\Modulos\Pedidos de cliente\Views\dxPScxGrid6LnkD11.dcp" />
|
||||||
<DCCReference Include="C:\Documents and Settings\Usuario\dxPScxPCProdD11.dcp" />
|
<DCCReference Include="..\Modulos\Pedidos de cliente\Views\dxPScxPCProdD11.dcp" />
|
||||||
<DCCReference Include="C:\Documents and Settings\Usuario\dxPsPrVwAdvD11.dcp" />
|
<DCCReference Include="..\Modulos\Pedidos de cliente\Views\dxPsPrVwAdvD11.dcp" />
|
||||||
<DCCReference Include="C:\Documents and Settings\Usuario\dxThemeD11.dcp" />
|
<DCCReference Include="..\Modulos\Pedidos de cliente\Views\dxThemeD11.dcp" />
|
||||||
<DCCReference Include="C:\Documents and Settings\Usuario\frx11.dcp" />
|
<DCCReference Include="..\Modulos\Pedidos de cliente\Views\frx11.dcp" />
|
||||||
<DCCReference Include="C:\Documents and Settings\Usuario\frxe11.dcp" />
|
<DCCReference Include="..\Modulos\Pedidos de cliente\Views\frxe11.dcp" />
|
||||||
<DCCReference Include="C:\Documents and Settings\Usuario\fs11.dcp" />
|
<DCCReference Include="..\Modulos\Pedidos de cliente\Views\fs11.dcp" />
|
||||||
<DCCReference Include="C:\Documents and Settings\Usuario\JvAppFrmD11R.dcp" />
|
<DCCReference Include="..\Modulos\Pedidos de cliente\Views\JvAppFrmD11R.dcp" />
|
||||||
<DCCReference Include="C:\Documents and Settings\Usuario\JvCtrlsD11R.dcp" />
|
<DCCReference Include="..\Modulos\Pedidos de cliente\Views\JvCtrlsD11R.dcp" />
|
||||||
<DCCReference Include="C:\Documents and Settings\Usuario\rtl.dcp" />
|
<DCCReference Include="..\Modulos\Pedidos de cliente\Views\rtl.dcp" />
|
||||||
<DCCReference Include="C:\Documents and Settings\Usuario\vcl.dcp" />
|
<DCCReference Include="..\Modulos\Pedidos de cliente\Views\vcl.dcp" />
|
||||||
<DCCReference Include="C:\Documents and Settings\Usuario\vcldb.dcp" />
|
<DCCReference Include="..\Modulos\Pedidos de cliente\Views\vcldb.dcp" />
|
||||||
<DCCReference Include="C:\Documents and Settings\Usuario\vcljpg.dcp" />
|
<DCCReference Include="..\Modulos\Pedidos de cliente\Views\vcljpg.dcp" />
|
||||||
<DCCReference Include="C:\Documents and Settings\Usuario\vclx.dcp" />
|
<DCCReference Include="..\Modulos\Pedidos de cliente\Views\vclx.dcp" />
|
||||||
<DCCReference Include="uDialogBase.pas">
|
<DCCReference Include="uDialogBase.pas">
|
||||||
<Form>fDialogBase</Form>
|
<Form>fDialogBase</Form>
|
||||||
</DCCReference>
|
</DCCReference>
|
||||||
|
|||||||
@ -77,6 +77,10 @@ inherited fEditorDBItem: TfEditorDBItem
|
|||||||
TabOrder = 2
|
TabOrder = 2
|
||||||
object pagGeneral: TTabSheet
|
object pagGeneral: TTabSheet
|
||||||
Caption = 'General'
|
Caption = 'General'
|
||||||
|
ExplicitLeft = 0
|
||||||
|
ExplicitTop = 0
|
||||||
|
ExplicitWidth = 0
|
||||||
|
ExplicitHeight = 0
|
||||||
end
|
end
|
||||||
end
|
end
|
||||||
inherited StatusBar: TJvStatusBar
|
inherited StatusBar: TJvStatusBar
|
||||||
|
|||||||
@ -175,6 +175,11 @@ inherited fEditorPreview: TfEditorPreview
|
|||||||
Action = actZoomIn
|
Action = actZoomIn
|
||||||
Images = PreviewSmallImageList
|
Images = PreviewSmallImageList
|
||||||
end
|
end
|
||||||
|
object TBXSeparatorItem16: TSpTBXSeparatorItem
|
||||||
|
end
|
||||||
|
object TBControlItem1: TTBControlItem
|
||||||
|
Control = cbZoom
|
||||||
|
end
|
||||||
object TBXSeparatorItem17: TSpTBXSeparatorItem
|
object TBXSeparatorItem17: TSpTBXSeparatorItem
|
||||||
end
|
end
|
||||||
object TBXItem7: TSpTBXItem
|
object TBXItem7: TSpTBXItem
|
||||||
@ -193,13 +198,13 @@ inherited fEditorPreview: TfEditorPreview
|
|||||||
Action = actUltimaPagina
|
Action = actUltimaPagina
|
||||||
Images = PreviewSmallImageList
|
Images = PreviewSmallImageList
|
||||||
end
|
end
|
||||||
object TBXSeparatorItem16: TSpTBXSeparatorItem
|
object SpTBXSeparatorItem1: TSpTBXSeparatorItem
|
||||||
end
|
end
|
||||||
object TBXItem35: TSpTBXItem
|
object TBXItem35: TSpTBXItem
|
||||||
Action = actCerrar
|
Action = actCerrar
|
||||||
end
|
end
|
||||||
object cbZoom: TSpTBXComboBox
|
object cbZoom: TSpTBXComboBox
|
||||||
Left = 449
|
Left = 310
|
||||||
Top = 0
|
Top = 0
|
||||||
Width = 145
|
Width = 145
|
||||||
Height = 21
|
Height = 21
|
||||||
|
|||||||
@ -115,6 +115,8 @@ type
|
|||||||
TBXItem55: TSpTBXItem;
|
TBXItem55: TSpTBXItem;
|
||||||
TBXItem56: TSpTBXItem;
|
TBXItem56: TSpTBXItem;
|
||||||
TBXItem57: TSpTBXItem;
|
TBXItem57: TSpTBXItem;
|
||||||
|
TBControlItem1: TTBControlItem;
|
||||||
|
SpTBXSeparatorItem1: TSpTBXSeparatorItem;
|
||||||
procedure FormShow(Sender: TObject);
|
procedure FormShow(Sender: TObject);
|
||||||
procedure actPrimeraPaginaExecute(Sender: TObject);
|
procedure actPrimeraPaginaExecute(Sender: TObject);
|
||||||
procedure actUltimaPaginaExecute(Sender: TObject);
|
procedure actUltimaPaginaExecute(Sender: TObject);
|
||||||
@ -210,7 +212,9 @@ begin
|
|||||||
actPrimeraPagina.Execute;
|
actPrimeraPagina.Execute;
|
||||||
FPreview.ShowEmbedded(Self);
|
FPreview.ShowEmbedded(Self);
|
||||||
Report.ShowPreparedReport;
|
Report.ShowPreparedReport;
|
||||||
actAnchoPagina.Execute;
|
|
||||||
|
actTodaPagina.Execute;
|
||||||
|
TBXToolbar1.SetFocus;
|
||||||
end;
|
end;
|
||||||
|
|
||||||
procedure TfEditorPreview.actPrimeraPaginaExecute(Sender: TObject);
|
procedure TfEditorPreview.actPrimeraPaginaExecute(Sender: TObject);
|
||||||
|
|||||||
File diff suppressed because one or more lines are too long
@ -1,5 +1,5 @@
|
|||||||
<?xml version="1.0" encoding="utf-8"?>
|
<?xml version="1.0" encoding="utf-8"?>
|
||||||
<TfrxReport Version="4.7.71" DotMatrixReport="False" EngineOptions.DoublePass="True" IniFile="\Software\Fast Reports" PreviewOptions.Buttons="4095" PreviewOptions.OutlineWidth="180" PreviewOptions.Zoom="1" PrintOptions.Printer="Default" PrintOptions.PrintOnSheet="0" ReportOptions.CreateDate="37871,9953986921" ReportOptions.Description.Text="" ReportOptions.LastChange="40199,7926196991" ReportOptions.VersionBuild="1" ReportOptions.VersionMajor="12" ReportOptions.VersionMinor="13" ReportOptions.VersionRelease="1" ScriptLanguage="PascalScript" ScriptText.Text="procedure ReportSummary1OnBeforePrint(Sender: TfrxComponent); begin // Engine.CurY := Engine.CurY + Engine.FreeSpace - ReportSummary1.Height; end; procedure DatosEmpresaOnBeforePrint(Sender: TfrxComponent); var Cadena: String; begin DatosEmpresa.Lines.Clear; DatosEmpresa.Lines.Add(<frxDBCabecera."RAZON_SOCIAL">); DatosEmpresa.Lines.Add(<frxDBCabecera."CALLE_EMPRESA">); Cadena := ''; if (<frxDBCabecera."TELEFONO_1"> <> '') then Cadena := 'TLF: ' + <frxDBCabecera."TELEFONO_1">; if (<frxDBCabecera."FAX"> <> '') then Cadena := Cadena + ' FAX: ' + <frxDBCabecera."FAX">; DatosEmpresa.Lines.Add(Cadena); Cadena := ''; if (<frxDBCabecera."CODIGO_POSTAL_EMPRESA"> <> '') then Cadena := <frxDBCabecera."CODIGO_POSTAL_EMPRESA">; if (<frxDBCabecera."POBLACION_EMPRESA"> <> '') then Cadena := Cadena + ' ' + <frxDBCabecera."POBLACION_EMPRESA">; if (<frxDBCabecera."PROVINCIA_EMPRESA"> <> '') then Cadena := Cadena + ' - ' + <frxDBCabecera."PROVINCIA_EMPRESA">; DatosEmpresa.Lines.Add(Cadena); end; procedure Band2OnBeforePrint(Sender: TfrxComponent); begin if not Engine.FinalPass then Set('TotalPaginas', (<TotalPaginas> + 1)); if Engine.FinalPass then Set('Pagina', (<Pagina> + 1)); end; procedure frxReportOnStartReport(Sender: TfrxComponent); begin Set('Pagina', 0); Set('TotalPaginas', 0); end; procedure PageFooter1OnBeforePrint(Sender: TfrxComponent); begin if Engine.FinalPass and (<TotalPaginas> = <Pagina>)then begin eTotal.Visible := True; vTotal.Visible := True; // Cuadro.Visible := True; end else begin eTotal.Visible := False; vTotal.Visible := False; // Cuadro.Visible := False; end; end; begin end." ShowProgress="False" StoreInDFM="False" OnStartReport="frxReportOnStartReport" PropData="044C65667403A90003546F70021008446174617365747301010C3400000020446174615365743D22667278444243616265636572612220446174615365744E616D653D22667278444243616265636572612200010C3400000020446174615365743D226672784442446574616C6C65732220446174615365744E616D653D226672784442446574616C6C6573220000095661726961626C657301010C13000000204E616D653D2220506167696E6163696F6E2200010C0E000000204E616D653D22506167696E612200010C14000000204E616D653D22546F74616C506167696E6173220000055374796C6501010C85000000204E616D653D22436F6E636570746F206E6F726D616C2220436F6C6F723D223533363837303931312220466F6E742E436861727365743D22302220466F6E742E436F6C6F723D222D31363737373230382220466F6E742E4865696768743D222D31322220466F6E742E4E616D653D225461686F6D612220466F6E742E5374796C653D22302200010C87000000204E616D653D22436F6E636570746F20737562746F74616C2220436F6C6F723D223533363837303931312220466F6E742E436861727365743D22302220466F6E742E436F6C6F723D222D31363737373230382220466F6E742E4865696768743D222D31322220466F6E742E4E616D653D225461686F6D612220466F6E742E5374796C653D22312200010C97000000204E616D653D22436162656365726120646520636F6C756D6E612220436F6C6F723D2231353739303332302220466F6E742E436861727365743D22302220466F6E742E436F6C6F723D222D31363737373230382220466F6E742E4865696768743D222D31322220466F6E742E4E616D653D225461686F6D612220466F6E742E5374796C653D223122204672616D652E5479703D2231352200010C85000000204E616D653D22436F6E636570746F20746974756C6F2220436F6C6F723D223533363837303931312220466F6E742E436861727365743D22302220466F6E742E436F6C6F723D222D31363737373230382220466F6E742E4865696768743D222D31332220466F6E742E4E616D653D225461686F6D612220466F6E742E5374796C653D2231220000">
|
<TfrxReport Version="4.8.11" DotMatrixReport="False" EngineOptions.DoublePass="True" IniFile="\Software\Fast Reports" PreviewOptions.Buttons="4095" PreviewOptions.OutlineWidth="180" PreviewOptions.Zoom="1" PrintOptions.Printer="Default" PrintOptions.PrintOnSheet="0" ReportOptions.CreateDate="37871,9953986921" ReportOptions.Description.Text="" ReportOptions.LastChange="40227,4581746875" ReportOptions.VersionBuild="1" ReportOptions.VersionMajor="12" ReportOptions.VersionMinor="13" ReportOptions.VersionRelease="1" ScriptLanguage="PascalScript" ScriptText.Text="procedure ReportSummary1OnBeforePrint(Sender: TfrxComponent); begin // Engine.CurY := Engine.CurY + Engine.FreeSpace - ReportSummary1.Height; end; procedure DatosEmpresaOnBeforePrint(Sender: TfrxComponent); var Cadena: String; begin DatosEmpresa.Lines.Clear; DatosEmpresa.Lines.Add(<frxDBCabecera."RAZON_SOCIAL">); DatosEmpresa.Lines.Add(<frxDBCabecera."CALLE_EMPRESA">); Cadena := ''; if (<frxDBCabecera."TELEFONO_1"> <> '') then Cadena := 'TLF: ' + <frxDBCabecera."TELEFONO_1">; if (<frxDBCabecera."FAX"> <> '') then Cadena := Cadena + ' FAX: ' + <frxDBCabecera."FAX">; DatosEmpresa.Lines.Add(Cadena); Cadena := ''; if (<frxDBCabecera."CODIGO_POSTAL_EMPRESA"> <> '') then Cadena := <frxDBCabecera."CODIGO_POSTAL_EMPRESA">; if (<frxDBCabecera."POBLACION_EMPRESA"> <> '') then Cadena := Cadena + ' ' + <frxDBCabecera."POBLACION_EMPRESA">; if (<frxDBCabecera."PROVINCIA_EMPRESA"> <> '') then Cadena := Cadena + ' - ' + <frxDBCabecera."PROVINCIA_EMPRESA">; DatosEmpresa.Lines.Add(Cadena); end; procedure Band2OnBeforePrint(Sender: TfrxComponent); begin if not Engine.FinalPass then Set('TotalPaginas', (<TotalPaginas> + 1)); if Engine.FinalPass then Set('Pagina', (<Pagina> + 1)); end; procedure frxReportOnStartReport(Sender: TfrxComponent); begin Set('Pagina', 0); Set('TotalPaginas', 0); end; procedure PageFooter1OnBeforePrint(Sender: TfrxComponent); begin if Engine.FinalPass and (<TotalPaginas> = <Pagina>)then begin eTotal.Visible := True; vTotal.Visible := True; // Cuadro.Visible := True; end else begin eTotal.Visible := False; vTotal.Visible := False; // Cuadro.Visible := False; end; end; begin end." ShowProgress="False" StoreInDFM="False" OnStartReport="frxReportOnStartReport" PropData="044C65667403910003546F70021008446174617365747301010C3400000020446174615365743D22667278444243616265636572612220446174615365744E616D653D22667278444243616265636572612200010C3400000020446174615365743D226672784442446574616C6C65732220446174615365744E616D653D226672784442446574616C6C6573220000095661726961626C657301010C13000000204E616D653D2220506167696E6163696F6E2200010C0E000000204E616D653D22506167696E612200010C14000000204E616D653D22546F74616C506167696E6173220000055374796C6501010C85000000204E616D653D22436F6E636570746F206E6F726D616C2220436F6C6F723D223533363837303931312220466F6E742E436861727365743D22302220466F6E742E436F6C6F723D222D31363737373230382220466F6E742E4865696768743D222D31322220466F6E742E4E616D653D225461686F6D612220466F6E742E5374796C653D22302200010C87000000204E616D653D22436F6E636570746F20737562746F74616C2220436F6C6F723D223533363837303931312220466F6E742E436861727365743D22302220466F6E742E436F6C6F723D222D31363737373230382220466F6E742E4865696768743D222D31322220466F6E742E4E616D653D225461686F6D612220466F6E742E5374796C653D22312200010C97000000204E616D653D22436162656365726120646520636F6C756D6E612220436F6C6F723D2231353739303332302220466F6E742E436861727365743D22302220466F6E742E436F6C6F723D222D31363737373230382220466F6E742E4865696768743D222D31322220466F6E742E4E616D653D225461686F6D612220466F6E742E5374796C653D223122204672616D652E5479703D2231352200010C85000000204E616D653D22436F6E636570746F20746974756C6F2220436F6C6F723D223533363837303931312220466F6E742E436861727365743D22302220466F6E742E436F6C6F723D222D31363737373230382220466F6E742E4865696768743D222D31332220466F6E742E4E616D653D225461686F6D612220466F6E742E5374796C653D2231220000">
|
||||||
<TfrxDataPage Name="Data" Height="1000" Left="0" Top="0" Width="1000"/>
|
<TfrxDataPage Name="Data" Height="1000" Left="0" Top="0" Width="1000"/>
|
||||||
<TfrxReportPage Name="Page1" Font.Charset="1" Font.Color="0" Font.Height="-13" Font.Name="Arial" Font.Style="1" Orientation="poLandscape" PaperWidth="297" PaperHeight="210" PaperSize="9" LeftMargin="10,00125" RightMargin="10,00125" TopMargin="10,00125" BottomMargin="10,00125" Columns="1" ColumnWidth="209,999791666667" ColumnPositions.Text="0" PrintOnPreviousPage="True" HGuides.Text="" VGuides.Text="">
|
<TfrxReportPage Name="Page1" Font.Charset="1" Font.Color="0" Font.Height="-13" Font.Name="Arial" Font.Style="1" Orientation="poLandscape" PaperWidth="297" PaperHeight="210" PaperSize="9" LeftMargin="10,00125" RightMargin="10,00125" TopMargin="10,00125" BottomMargin="10,00125" Columns="1" ColumnWidth="209,999791666667" ColumnPositions.Text="0" PrintOnPreviousPage="True" HGuides.Text="" VGuides.Text="">
|
||||||
<TfrxPageHeader Name="Band2" Height="191,70866142" Left="0" Top="16" Width="1046,920361175" OnBeforePrint="Band2OnBeforePrint">
|
<TfrxPageHeader Name="Band2" Height="191,70866142" Left="0" Top="16" Width="1046,920361175" OnBeforePrint="Band2OnBeforePrint">
|
||||||
@ -29,12 +29,12 @@
|
|||||||
<TfrxLineView Name="Line6" Left="739" Top="165,54" Width="0" Height="510" ShowHint="False" Frame.Color="8421504" Frame.Typ="1"/>
|
<TfrxLineView Name="Line6" Left="739" Top="165,54" Width="0" Height="510" ShowHint="False" Frame.Color="8421504" Frame.Typ="1"/>
|
||||||
</TfrxPageHeader>
|
</TfrxPageHeader>
|
||||||
<TfrxMasterData Name="BandaDetalles" Height="19,11812" Left="0" Top="268" Width="1046,920361175" AllowSplit="True" Columns="1" ColumnWidth="200" ColumnGap="20" DataSet="frxDBDetalles" DataSetName="frxDBDetalles" RowCount="0" Stretched="True">
|
<TfrxMasterData Name="BandaDetalles" Height="19,11812" Left="0" Top="268" Width="1046,920361175" AllowSplit="True" Columns="1" ColumnWidth="200" ColumnGap="20" DataSet="frxDBDetalles" DataSetName="frxDBDetalles" RowCount="0" Stretched="True">
|
||||||
<TfrxMemoView Name="MemPrecio" Left="536,40153087" Top="2" Width="196,56298724" Height="15,11811024" ShowHint="False" StretchMode="smMaxHeight" DataSet="frxDBDetalles" DataSetName="frxDBDetalles" DisplayFormat.DecimalSeparator="," Font.Charset="0" Font.Color="-16777208" Font.Height="-11" Font.Name="Tahoma" Font.Style="0" GapX="3" GapY="3" HideZeros="True" LineSpacing="4" ParentFont="False" Text="[frxDBDetalles."CODIGO_POSTAL_CLIENTE"] [frxDBDetalles."POBLACION_CLIENTE"]"/>
|
<TfrxMemoView Name="MemPrecio" Left="536,40153087" Top="2" Width="196,56298724" Height="16" ShowHint="False" StretchMode="smMaxHeight" DataSet="frxDBDetalles" DataSetName="frxDBDetalles" DisplayFormat.DecimalSeparator="," Font.Charset="0" Font.Color="-16777208" Font.Height="-11" Font.Name="Tahoma" Font.Style="0" GapX="3" GapY="3" HideZeros="True" LineSpacing="4" ParentFont="False" Text="[frxDBDetalles."CODIGO_POSTAL_CLIENTE"] [frxDBDetalles."POBLACION_CLIENTE"]"/>
|
||||||
<TfrxMemoView Name="MemImpTotal" Left="930,36216811" Top="2" Width="106,16535189" Height="15,11811024" ShowHint="False" StretchMode="smMaxHeight" DataSet="frxDBDetalles" DataSetName="frxDBDetalles" DisplayFormat.DecimalSeparator="," DisplayFormat.FormatStr="#,0.00 € " DisplayFormat.Kind="fkNumeric" Font.Charset="0" Font.Color="-16777208" Font.Height="-11" Font.Name="Tahoma" Font.Style="0" GapX="3" GapY="3" HAlign="haRight" LineSpacing="4" ParentFont="False" Text="[frxDBDetalles."IMPORTE_TOTAL"]"/>
|
<TfrxMemoView Name="MemImpTotal" Left="930,36216811" Top="2" Width="106,16535189" Height="16" ShowHint="False" StretchMode="smMaxHeight" DataSet="frxDBDetalles" DataSetName="frxDBDetalles" DisplayFormat.DecimalSeparator="," DisplayFormat.FormatStr="#,0.00 € " DisplayFormat.Kind="fkNumeric" Font.Charset="0" Font.Color="-16777208" Font.Height="-11" Font.Name="Tahoma" Font.Style="0" GapX="3" GapY="3" HAlign="haRight" LineSpacing="4" ParentFont="False" Text="[frxDBDetalles."IMPORTE_TOTAL"]"/>
|
||||||
<TfrxMemoView Name="MemCantidad" Left="277,46837457" Top="2" Width="246,44892874" Height="15,11811024" ShowHint="False" StretchMode="smMaxHeight" DataSet="frxDBDetalles" DataSetName="frxDBDetalles" DisplayFormat.DecimalSeparator="," DisplayFormat.FormatStr="#0 " DisplayFormat.Kind="fkNumeric" Font.Charset="0" Font.Color="-16777208" Font.Height="-11" Font.Name="Tahoma" Font.Style="0" GapX="3" GapY="3" HideZeros="True" LineSpacing="4" ParentFont="False" Text="[frxDBDetalles."NOMBRE_CLIENTE"]"/>
|
<TfrxMemoView Name="MemCantidad" Left="277,46837457" Top="2" Width="246,44892874" Height="16" ShowHint="False" StretchMode="smMaxHeight" DataSet="frxDBDetalles" DataSetName="frxDBDetalles" DisplayFormat.DecimalSeparator="," DisplayFormat.FormatStr="#0 " Font.Charset="0" Font.Color="-16777208" Font.Height="-11" Font.Name="Tahoma" Font.Style="0" GapX="3" GapY="3" HideZeros="True" LineSpacing="4" ParentFont="False" Text="[frxDBDetalles."NOMBRE_CLIENTE"]"/>
|
||||||
<TfrxMemoView Name="Memo21" Left="142,22449" Top="2" Width="124,89765" Height="15,11812" ShowHint="False" DataSet="frxDBDetalles" DataSetName="frxDBDetalles" Font.Charset="1" Font.Color="0" Font.Height="-11" Font.Name="Tahoma" Font.Style="0" HAlign="haCenter" ParentFont="False" Text="[frxDBDetalles."FECHA_VENCIMIENTO"]"/>
|
<TfrxMemoView Name="Memo21" Left="142,22449" Top="2" Width="124,89765" Height="16" ShowHint="False" DataSet="frxDBDetalles" DataSetName="frxDBDetalles" Font.Charset="1" Font.Color="0" Font.Height="-11" Font.Name="Tahoma" Font.Style="0" HAlign="haCenter" ParentFont="False" Text="[frxDBDetalles."FECHA_VENCIMIENTO"]"/>
|
||||||
<TfrxMemoView Name="Memo2" Left="6,18491" Top="2" Width="130" Height="15,11812" ShowHint="False" DataSet="frxDBDetalles" DataSetName="frxDBDetalles" Font.Charset="1" Font.Color="0" Font.Height="-11" Font.Name="Tahoma" Font.Style="0" HAlign="haCenter" ParentFont="False" Text="[frxDBDetalles."REFERENCIA"]"/>
|
<TfrxMemoView Name="Memo2" Left="6,18491" Top="2" Width="130" Height="16" ShowHint="False" DataSet="frxDBDetalles" DataSetName="frxDBDetalles" Font.Charset="1" Font.Color="0" Font.Height="-11" Font.Name="Tahoma" Font.Style="0" HAlign="haCenter" ParentFont="False" Text="[frxDBDetalles."REFERENCIA"]"/>
|
||||||
<TfrxMemoView Name="Memo9" Left="745,44853087" Top="2" Width="176,56298724" Height="15,11811024" ShowHint="False" StretchMode="smMaxHeight" DataSet="frxDBDetalles" DataSetName="frxDBDetalles" DisplayFormat.DecimalSeparator="," DisplayFormat.FormatStr="#,0.00 € " Font.Charset="0" Font.Color="-16777208" Font.Height="-11" Font.Name="Tahoma" Font.Style="0" GapX="3" GapY="3" HAlign="haCenter" HideZeros="True" LineSpacing="4" ParentFont="False" Text="[frxDBDetalles."ENTIDAD"]-[frxDBDetalles."SUCURSAL"]-[frxDBDetalles."DC"]-[frxDBDetalles."CUENTA"]"/>
|
<TfrxMemoView Name="Memo9" Left="745,44853087" Top="2" Width="176,56298724" Height="16" ShowHint="False" StretchMode="smMaxHeight" DataSet="frxDBDetalles" DataSetName="frxDBDetalles" DisplayFormat.DecimalSeparator="," DisplayFormat.FormatStr="#,0.00 € " Font.Charset="0" Font.Color="-16777208" Font.Height="-11" Font.Name="Tahoma" Font.Style="0" GapX="3" GapY="3" HAlign="haCenter" HideZeros="True" LineSpacing="4" ParentFont="False" Text="[frxDBDetalles."ENTIDAD"]-[frxDBDetalles."SUCURSAL"]-[frxDBDetalles."DC"]-[frxDBDetalles."CUENTA"]"/>
|
||||||
</TfrxMasterData>
|
</TfrxMasterData>
|
||||||
<TfrxPageFooter Name="PageFooter1" Height="42,70866142" Left="0" Top="347" Width="1046,920361175" OnBeforePrint="PageFooter1OnBeforePrint">
|
<TfrxPageFooter Name="PageFooter1" Height="42,70866142" Left="0" Top="347" Width="1046,920361175" OnBeforePrint="PageFooter1OnBeforePrint">
|
||||||
<TfrxMemoView Name="vtotal" Left="889,9295" Top="3,77953" Width="147,87415" Height="22,89765" ShowHint="False" DataSet="frxDBCabecera" DataSetName="frxDBCabecera" DisplayFormat.DecimalSeparator="," DisplayFormat.FormatStr="#,0.00 €" DisplayFormat.Kind="fkNumeric" Font.Charset="1" Font.Color="0" Font.Height="-13" Font.Name="Tahoma" Font.Style="1" HAlign="haRight" ParentFont="False" VAlign="vaCenter" Text="[frxDBCabecera."IMPORTE_TOTAL"]"/>
|
<TfrxMemoView Name="vtotal" Left="889,9295" Top="3,77953" Width="147,87415" Height="22,89765" ShowHint="False" DataSet="frxDBCabecera" DataSetName="frxDBCabecera" DisplayFormat.DecimalSeparator="," DisplayFormat.FormatStr="#,0.00 €" DisplayFormat.Kind="fkNumeric" Font.Charset="1" Font.Color="0" Font.Height="-13" Font.Name="Tahoma" Font.Style="1" HAlign="haRight" ParentFont="False" VAlign="vaCenter" Text="[frxDBCabecera."IMPORTE_TOTAL"]"/>
|
||||||
|
|||||||
File diff suppressed because one or more lines are too long
@ -1,17 +1,17 @@
|
|||||||
<?xml version="1.0" encoding="utf-8"?>
|
<?xml version="1.0" encoding="utf-8"?>
|
||||||
<TfrxReport Version="4.8.11" DotMatrixReport="False" EngineOptions.DoublePass="True" IniFile="\Software\Fast Reports" PreviewOptions.Buttons="4095" PreviewOptions.Zoom="1" PrintOptions.Printer="Por defecto" PrintOptions.PrintOnSheet="0" ReportOptions.CreateDate="39065,8724234954" ReportOptions.Description.Text="" ReportOptions.LastChange="40213,5046068287" ScriptLanguage="PascalScript" ScriptText.Text="var Pagina: Variant; procedure Memo2OnBeforePrint(Sender: TfrxComponent); begin Memo2.Lines.Clear; if (StrToFloat(<frxDBCabecera."IMPORTE_TOTAL">) < 0) then Memo2.Lines.Add('ORDEN DE DEVOLUCIÓN') else Memo2.Lines.Add('ALBARÁN DE CLIENTE') end; procedure Memo5OnBeforePrint(Sender: TfrxComponent); begin if (StrToFloat(<frxDBCabecera."IMPORTE_TOTAL">) < 0) then begin Memo5.Lines.Clear; Memo5.Lines.Add('Nº orden:'); end; end; procedure Memo9OnBeforePrint(Sender: TfrxComponent); begin if (StrToFloat(<frxDBCabecera."IMPORTE_TOTAL">) < 0) then begin Memo9.Lines.Clear; Memo9.Lines.Add('Fecha orden:'); end; end; procedure PageHeader1OnBeforePrint(Sender: TfrxComponent); begin if not Engine.FinalPass then Set('TotalPaginas', (<TotalPaginas> + 1)); if Engine.FinalPass then Set('Pagina', (<Pagina> + 1)); end; procedure frxReportOnStartReport(Sender: TfrxComponent); begin Set('Pagina', 0); Set('TotalPaginas', 0); end; procedure Memo30OnBeforePrint(Sender: TfrxComponent); begin if (<frxDBCabecera."DESCUENTO"> = 0) then begin Memo29.Visible := False; Memo30.Visible := False; Memo24.Visible := False; Memo25.Visible := False; end else begin Memo29.Visible := True; Memo30.Visible := True; Memo24.Visible := True; Memo25.Visible := True; end; end; procedure Memo34OnBeforePrint(Sender: TfrxComponent); begin if (<frxDBCabecera."DESCUENTO2"> = 0) then begin Memo33.Visible := False; Memo34.Visible := False; Memo31.Visible := False; Memo32.Visible := False; end else begin Memo33.Visible := True; Memo34.Visible := True; Memo31.Visible := True; Memo32.Visible := True; end; end; procedure Line3OnBeforePrint(Sender: TfrxComponent); begin if (<frxDBCabecera."DESCUENTO"> = 0) and (<frxDBCabecera."DESCUENTO2"> = 0) then begin Memo18.Visible := False; Memo20.Visible := False; end else begin Memo18.Visible := True; Memo20.Visible := True; end; end; begin end." ShowProgress="False" StoreInDFM="False" OnStartReport="frxReportOnStartReport" PropData="044C65667403910003546F70021008446174617365747301010C3400000020446174615365743D22667278444243616265636572612220446174615365744E616D653D22667278444243616265636572612200010C3400000020446174615365743D226672784442446574616C6C65732220446174615365744E616D653D226672784442446574616C6C6573220000095661726961626C657301010C13000000204E616D653D2220506167696E6163696F6E2200010C0E000000204E616D653D22506167696E612200010C14000000204E616D653D22546F74616C506167696E61732200010C16000000204E616D653D222056697375616C697A6163696F6E2200010C13000000204E616D653D2253686F4C6F676F7469706F2200010C23000000204E616D653D22436F6E4F62736572766163696F6E6573496E636964656E63696173220000055374796C650100">
|
<TfrxReport Version="4.8.11" DotMatrixReport="False" EngineOptions.DoublePass="True" IniFile="\Software\Fast Reports" PreviewOptions.Buttons="4095" PreviewOptions.Zoom="1" PrintOptions.Printer="Por defecto" PrintOptions.PrintOnSheet="0" ReportOptions.CreateDate="39065,8724234954" ReportOptions.Description.Text="" ReportOptions.LastChange="40227,4527556713" ScriptLanguage="PascalScript" ScriptText.Text="var Pagina: Variant; procedure Memo2OnBeforePrint(Sender: TfrxComponent); begin Memo2.Lines.Clear; if (StrToFloat(<frxDBCabecera."IMPORTE_TOTAL">) < 0) then Memo2.Lines.Add('ORDEN DE DEVOLUCIÓN') else Memo2.Lines.Add('ALBARÁN DE CLIENTE') end; procedure Memo5OnBeforePrint(Sender: TfrxComponent); begin if (StrToFloat(<frxDBCabecera."IMPORTE_TOTAL">) < 0) then begin Memo5.Lines.Clear; Memo5.Lines.Add('Nº orden:'); end; end; procedure Memo9OnBeforePrint(Sender: TfrxComponent); begin if (StrToFloat(<frxDBCabecera."IMPORTE_TOTAL">) < 0) then begin Memo9.Lines.Clear; Memo9.Lines.Add('Fecha orden:'); end; end; procedure PageHeader1OnBeforePrint(Sender: TfrxComponent); begin if not Engine.FinalPass then Set('TotalPaginas', (<TotalPaginas> + 1)); if Engine.FinalPass then Set('Pagina', (<Pagina> + 1)); end; procedure frxReportOnStartReport(Sender: TfrxComponent); begin Set('Pagina', 0); Set('TotalPaginas', 0); end; procedure Memo30OnBeforePrint(Sender: TfrxComponent); begin if (<frxDBCabecera."DESCUENTO"> = 0) then begin Memo29.Visible := False; Memo30.Visible := False; Memo24.Visible := False; Memo25.Visible := False; end else begin Memo29.Visible := True; Memo30.Visible := True; Memo24.Visible := True; Memo25.Visible := True; end; end; procedure Memo34OnBeforePrint(Sender: TfrxComponent); begin if (<frxDBCabecera."DESCUENTO2"> = 0) then begin Memo33.Visible := False; Memo34.Visible := False; Memo31.Visible := False; Memo32.Visible := False; end else begin Memo33.Visible := True; Memo34.Visible := True; Memo31.Visible := True; Memo32.Visible := True; end; end; procedure Line3OnBeforePrint(Sender: TfrxComponent); begin if (<frxDBCabecera."DESCUENTO"> = 0) and (<frxDBCabecera."DESCUENTO2"> = 0) then begin Memo18.Visible := False; Memo20.Visible := False; end else begin Memo18.Visible := True; Memo20.Visible := True; end; end; begin end." ShowProgress="False" StoreInDFM="False" OnStartReport="frxReportOnStartReport" PropData="044C65667403910003546F70021008446174617365747301010C3400000020446174615365743D22667278444243616265636572612220446174615365744E616D653D22667278444243616265636572612200010C3400000020446174615365743D226672784442446574616C6C65732220446174615365744E616D653D226672784442446574616C6C6573220000095661726961626C657301010C13000000204E616D653D2220506167696E6163696F6E2200010C0E000000204E616D653D22506167696E612200010C14000000204E616D653D22546F74616C506167696E61732200010C16000000204E616D653D222056697375616C697A6163696F6E2200010C13000000204E616D653D2253686F4C6F676F7469706F2200010C23000000204E616D653D22436F6E4F62736572766163696F6E6573496E636964656E63696173220000055374796C650100">
|
||||||
<TfrxDataPage Name="Data" Height="1000" Left="0" Top="0" Width="1000"/>
|
<TfrxDataPage Name="Data" Height="1000" Left="0" Top="0" Width="1000"/>
|
||||||
<TfrxReportPage Name="Page1" PaperWidth="210" PaperHeight="297" PaperSize="9" LeftMargin="10,00125" RightMargin="10,00125" TopMargin="10,00125" BottomMargin="10,00125" ColumnWidth="0" ColumnPositions.Text="" HGuides.Text="" VGuides.Text="">
|
<TfrxReportPage Name="Page1" PaperWidth="210" PaperHeight="297" PaperSize="9" LeftMargin="10,00125" RightMargin="10,00125" TopMargin="10,00125" BottomMargin="10,00125" ColumnWidth="0" ColumnPositions.Text="" HGuides.Text="" VGuides.Text="">
|
||||||
<TfrxMasterData Name="MasterData1" Height="24" Left="0" Top="373" Width="718,101251175" ColumnWidth="0" ColumnGap="0" DataSet="frxDBDetalles" DataSetName="frxDBDetalles" RowCount="0" Stretched="True">
|
<TfrxMasterData Name="MasterData1" Height="24" Left="0" Top="373" Width="718,101251175" ColumnWidth="0" ColumnGap="0" DataSet="frxDBDetalles" DataSetName="frxDBDetalles" RowCount="0" Stretched="True">
|
||||||
<TfrxRichView Name="MemoCampo12" ShiftMode="smWhenOverlapped" Left="77,5" Top="0,5" Width="370" Height="18" ShowHint="False" StretchMode="smMaxHeight" DataField="CONCEPTO" DataSet="frxDBDetalles" DataSetName="frxDBDetalles" GapX="2" GapY="3" Wysiwyg="False" PropData="0852696368456469740A910000007B5C727466315C616E73695C616E7369637067313235325C64656666305C6465666C616E67333038327B5C666F6E7474626C7B5C66305C666E696C205461686F6D613B7D7D0D0A7B5C2A5C67656E657261746F72204D7366746564697420352E34312E31352E313531323B7D5C766965776B696E64345C7563315C706172645C66305C667331365C7061720D0A7D0D0A00"/>
|
<TfrxRichView Name="MemoCampo12" ShiftMode="smWhenOverlapped" Left="88,5" Top="0,5" Width="355" Height="18" ShowHint="False" StretchMode="smMaxHeight" DataField="CONCEPTO" DataSet="frxDBDetalles" DataSetName="frxDBDetalles" GapX="2" GapY="3" Wysiwyg="False" PropData="0852696368456469740A910000007B5C727466315C616E73695C616E7369637067313235325C64656666305C6465666C616E67333038327B5C666F6E7474626C7B5C66305C666E696C205461686F6D613B7D7D0D0A7B5C2A5C67656E657261746F72204D7366746564697420352E34312E31352E313531323B7D5C766965776B696E64345C7563315C706172645C66305C667331365C7061720D0A7D0D0A00"/>
|
||||||
<TfrxMemoView Name="Memo14" Left="1" Top="0,5" Width="75" Height="18" ShowHint="False" StretchMode="smMaxHeight" DataSet="frxDBDetalles" DataSetName="frxDBDetalles" DisplayFormat.DecimalSeparator="," DisplayFormat.FormatStr="#0 " DisplayFormat.Kind="fkNumeric" Font.Charset="0" Font.Color="-16777208" Font.Height="-12" Font.Name="Tahoma" Font.Style="0" GapY="3" HAlign="haRight" HideZeros="True" LineSpacing="4" ParentFont="False" Style="Concepto normal" Text="[frxDBDetalles."REFERENCIA"]"/>
|
<TfrxMemoView Name="Memo14" Left="1" Top="0,5" Width="83" Height="18" ShowHint="False" StretchMode="smMaxHeight" DataSet="frxDBDetalles" DataSetName="frxDBDetalles" DisplayFormat.DecimalSeparator="," DisplayFormat.FormatStr="#0 " Font.Charset="0" Font.Color="-16777208" Font.Height="-12" Font.Name="Tahoma" Font.Style="0" GapY="3" HAlign="haRight" HideZeros="True" LineSpacing="4" ParentFont="False" Style="Concepto normal" Text="[frxDBDetalles."REFERENCIA"]"/>
|
||||||
<TfrxMemoView Name="MemoCampo2" Left="453" Top="0,5" Width="54,03148874" Height="18" ShowHint="False" StretchMode="smMaxHeight" DataSet="frxDBDetalles" DataSetName="frxDBDetalles" DisplayFormat.DecimalSeparator="," DisplayFormat.FormatStr="#0 " DisplayFormat.Kind="fkNumeric" Font.Charset="0" Font.Color="-16777208" Font.Height="-12" Font.Name="Tahoma" Font.Style="0" GapY="3" HAlign="haRight" HideZeros="True" LineSpacing="4" ParentFont="False" Style="Concepto normal" Text="[frxDBDetalles."CANTIDAD"]"/>
|
<TfrxMemoView Name="MemoCampo2" Left="449" Top="0,5" Width="54,03148874" Height="18" ShowHint="False" StretchMode="smMaxHeight" DataSet="frxDBDetalles" DataSetName="frxDBDetalles" DisplayFormat.DecimalSeparator="," DisplayFormat.FormatStr="#0 " DisplayFormat.Kind="fkNumeric" Font.Charset="0" Font.Color="-16777208" Font.Height="-12" Font.Name="Tahoma" Font.Style="0" GapY="3" HAlign="haRight" HideZeros="True" LineSpacing="4" ParentFont="False" Style="Concepto normal" Text="[frxDBDetalles."CANTIDAD"]"/>
|
||||||
<TfrxMemoView Name="Memo16" Left="512" Top="0,5" Width="95,03148874" Height="18" ShowHint="False" StretchMode="smMaxHeight" DataSet="frxDBDetalles" DataSetName="frxDBDetalles" DisplayFormat.DecimalSeparator="," DisplayFormat.FormatStr="%2.2m" DisplayFormat.Kind="fkNumeric" Font.Charset="0" Font.Color="-16777208" Font.Height="-12" Font.Name="Tahoma" Font.Style="0" GapY="3" HAlign="haRight" HideZeros="True" LineSpacing="4" ParentFont="False" Style="Concepto normal" Text="[frxDBDetalles."IMPORTE_UNIDAD"]"/>
|
<TfrxMemoView Name="Memo16" Left="510" Top="0,5" Width="95,03148874" Height="18" ShowHint="False" StretchMode="smMaxHeight" DataSet="frxDBDetalles" DataSetName="frxDBDetalles" DisplayFormat.DecimalSeparator="," DisplayFormat.FormatStr="%2.2m" DisplayFormat.Kind="fkNumeric" Font.Charset="0" Font.Color="-16777208" Font.Height="-12" Font.Name="Tahoma" Font.Style="0" GapY="3" HAlign="haRight" HideZeros="True" LineSpacing="4" ParentFont="False" Style="Concepto normal" Text="[frxDBDetalles."IMPORTE_UNIDAD"]"/>
|
||||||
<TfrxMemoView Name="Memo17" Left="614" Top="0,5" Width="99,03148874" Height="18" ShowHint="False" StretchMode="smMaxHeight" DataSet="frxDBDetalles" DataSetName="frxDBDetalles" DisplayFormat.DecimalSeparator="," DisplayFormat.FormatStr="%2.2m" DisplayFormat.Kind="fkNumeric" Font.Charset="0" Font.Color="-16777208" Font.Height="-12" Font.Name="Tahoma" Font.Style="0" GapY="3" HAlign="haRight" HideZeros="True" LineSpacing="4" ParentFont="False" Style="Concepto normal" Text="[frxDBDetalles."IMPORTE_TOTAL"]"/>
|
<TfrxMemoView Name="Memo17" Left="612" Top="0,5" Width="99,03148874" Height="18" ShowHint="False" StretchMode="smMaxHeight" DataSet="frxDBDetalles" DataSetName="frxDBDetalles" DisplayFormat.DecimalSeparator="," DisplayFormat.FormatStr="%2.2m" DisplayFormat.Kind="fkNumeric" Font.Charset="0" Font.Color="-16777208" Font.Height="-12" Font.Name="Tahoma" Font.Style="0" GapY="3" HAlign="haRight" HideZeros="True" LineSpacing="4" ParentFont="False" Style="Concepto normal" Text="[frxDBDetalles."IMPORTE_TOTAL"]"/>
|
||||||
</TfrxMasterData>
|
</TfrxMasterData>
|
||||||
<TfrxPageFooter Name="PageFooter1" Height="151,18110236" Left="0" Top="457" Width="718,101251175">
|
<TfrxPageFooter Name="PageFooter1" Height="151,18110236" Left="0" Top="457" Width="718,101251175">
|
||||||
<TfrxMemoView Name="Memo26" Align="baLeft" Left="0" Top="48,89765" Width="716,73" Height="66,99227" OnBeforePrint="Memo26OnBeforePrint" ShowHint="False" DataSet="frxDBCabecera" DataSetName="frxDBCabecera" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="0" Font.Height="-12" Font.Name="Tahoma" Font.Style="0" Frame.Typ="15" ParentFont="False" VAlign="vaCenter" Text="Forma de pago: [frxDBCabecera."FORMA_PAGO"] Cuenta bancaria: [frxDBCabecera."DATOS_BANCARIOS"]"/>
|
<TfrxMemoView Name="Memo26" Align="baLeft" Left="0" Top="48,89765" Width="716,73" Height="66,99227" Visible="False" ShowHint="False" DataSet="frxDBCabecera" DataSetName="frxDBCabecera" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="0" Font.Height="-12" Font.Name="Tahoma" Font.Style="0" Frame.Typ="15" ParentFont="False" VAlign="vaCenter" Text="Forma de pago: [frxDBCabecera."FORMA_PAGO"] Cuenta bancaria: [frxDBCabecera."DATOS_BANCARIOS"]"/>
|
||||||
<TfrxLineView Name="Line4" Align="baRight" Left="1,101251175" Top="2" Width="717" Height="0" ShowHint="False" Frame.Color="8421504" Frame.Typ="4"/>
|
<TfrxLineView Name="Line4" Align="baLeft" Left="0" Top="2" Width="714" Height="0" ShowHint="False" Frame.Color="8421504" Frame.Typ="4"/>
|
||||||
<TfrxMemoView Name="Memo18" Left="0" Top="5" Width="110" Height="20" ShowHint="False" DataSet="frxDBCabecera" DataSetName="frxDBCabecera" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="0" Font.Height="-13" Font.Name="Tahoma" Font.Style="0" Frame.Color="13056" Frame.Typ="15" HAlign="haCenter" ParentFont="False" Text="Importe neto"/>
|
<TfrxMemoView Name="Memo18" Left="0" Top="5" Width="110" Height="20" ShowHint="False" DataSet="frxDBCabecera" DataSetName="frxDBCabecera" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="0" Font.Height="-13" Font.Name="Tahoma" Font.Style="0" Frame.Color="13056" Frame.Typ="15" HAlign="haCenter" ParentFont="False" Text="Importe neto"/>
|
||||||
<TfrxMemoView Name="Memo20" Left="0" Top="25,67718" Width="110" Height="17,00787157" ShowHint="False" DataSet="frxDBCabecera" DataSetName="frxDBCabecera" DisplayFormat.DecimalSeparator="," DisplayFormat.FormatStr="%2.2m" DisplayFormat.Kind="fkNumeric" Font.Charset="1" Font.Color="0" Font.Height="-13" Font.Name="Tahoma" Font.Style="0" Frame.Color="13056" Frame.Typ="15" HAlign="haCenter" HideZeros="True" ParentFont="False" VAlign="vaCenter" Text="[frxDBCabecera."IMPORTE_NETO"]"/>
|
<TfrxMemoView Name="Memo20" Left="0" Top="25,67718" Width="110" Height="17,00787157" ShowHint="False" DataSet="frxDBCabecera" DataSetName="frxDBCabecera" DisplayFormat.DecimalSeparator="," DisplayFormat.FormatStr="%2.2m" DisplayFormat.Kind="fkNumeric" Font.Charset="1" Font.Color="0" Font.Height="-13" Font.Name="Tahoma" Font.Style="0" Frame.Color="13056" Frame.Typ="15" HAlign="haCenter" HideZeros="True" ParentFont="False" VAlign="vaCenter" Text="[frxDBCabecera."IMPORTE_NETO"]"/>
|
||||||
<TfrxMemoView Name="Memo24" Align="baLeft" Left="182" Top="5" Width="105" Height="20" ShowHint="False" DataSet="frxDBCabecera" DataSetName="frxDBCabecera" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="0" Font.Height="-13" Font.Name="Tahoma" Font.Style="0" Frame.Color="13056" Frame.Typ="15" HAlign="haCenter" ParentFont="False" Text="Imp. Dto. cliente"/>
|
<TfrxMemoView Name="Memo24" Align="baLeft" Left="182" Top="5" Width="105" Height="20" ShowHint="False" DataSet="frxDBCabecera" DataSetName="frxDBCabecera" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="0" Font.Height="-13" Font.Name="Tahoma" Font.Style="0" Frame.Color="13056" Frame.Typ="15" HAlign="haCenter" ParentFont="False" Text="Imp. Dto. cliente"/>
|
||||||
@ -26,15 +26,15 @@
|
|||||||
<TfrxMemoView Name="Memo36" Left="610,10046379" Top="25,67718" Width="105" Height="17,00787157" ShowHint="False" DataSet="frxDBCabecera" DataSetName="frxDBCabecera" DisplayFormat.DecimalSeparator="," DisplayFormat.FormatStr="%2.2m" DisplayFormat.Kind="fkNumeric" Font.Charset="1" Font.Color="0" Font.Height="-13" Font.Name="Tahoma" Font.Style="1" Frame.Color="13056" Frame.Typ="15" HAlign="haCenter" ParentFont="False" VAlign="vaCenter" Text="[frxDBCabecera."IMPORTE_TOTAL"]"/>
|
<TfrxMemoView Name="Memo36" Left="610,10046379" Top="25,67718" Width="105" Height="17,00787157" ShowHint="False" DataSet="frxDBCabecera" DataSetName="frxDBCabecera" DisplayFormat.DecimalSeparator="," DisplayFormat.FormatStr="%2.2m" DisplayFormat.Kind="fkNumeric" Font.Charset="1" Font.Color="0" Font.Height="-13" Font.Name="Tahoma" Font.Style="1" Frame.Color="13056" Frame.Typ="15" HAlign="haCenter" ParentFont="False" VAlign="vaCenter" Text="[frxDBCabecera."IMPORTE_TOTAL"]"/>
|
||||||
</TfrxPageFooter>
|
</TfrxPageFooter>
|
||||||
<TfrxPageHeader Name="PageHeader1" Height="296,96075685" Left="0" Top="16" Width="718,101251175" OnBeforePrint="PageHeader1OnBeforePrint">
|
<TfrxPageHeader Name="PageHeader1" Height="296,96075685" Left="0" Top="16" Width="718,101251175" OnBeforePrint="PageHeader1OnBeforePrint">
|
||||||
<TfrxMemoView Name="Memo15" Align="baLeft" Left="610,33307086" Top="270,01979" Width="105,71653543" Height="26,45669291" ShowHint="False" Color="16777215" Font.Charset="0" Font.Color="0" Font.Height="-12" Font.Name="Tahoma" Font.Style="1" Frame.Color="8421504" Frame.Typ="12" HAlign="haRight" ParentFont="False" VAlign="vaCenter" Text="Importe total"/>
|
<TfrxMemoView Name="Memo15" Align="baLeft" Left="446" Top="270,01979" Width="105,71653543" Height="26,45669291" ShowHint="False" Color="16777215" Font.Charset="0" Font.Color="0" Font.Height="-12" Font.Name="Tahoma" Font.Style="1" Frame.Color="8421504" Frame.Typ="12" HAlign="haRight" ParentFont="False" VAlign="vaCenter" Text="Importe total"/>
|
||||||
<TfrxMemoView Name="Memo12" Align="baLeft" Left="509,61653543" Top="270,01979" Width="100,71653543" Height="26,45669291" ShowHint="False" Color="16777215" Font.Charset="0" Font.Color="0" Font.Height="-12" Font.Name="Tahoma" Font.Style="1" Frame.Color="8421504" Frame.Typ="12" HAlign="haRight" ParentFont="False" VAlign="vaCenter" Text="Importe unidad"/>
|
<TfrxMemoView Name="Memo12" Align="baLeft" Left="612,43307086" Top="270,01979" Width="100,71653543" Height="26,45669291" ShowHint="False" Color="16777215" Font.Charset="0" Font.Color="0" Font.Height="-12" Font.Name="Tahoma" Font.Style="1" Frame.Color="8421504" Frame.Typ="12" HAlign="haRight" ParentFont="False" VAlign="vaCenter" Text="Importe unidad"/>
|
||||||
<TfrxMemoView Name="Memo23" Align="baLeft" Left="76,2" Top="270,01979" Width="372,7" Height="26,45669291" ShowHint="False" Color="16777215" Font.Charset="0" Font.Color="0" Font.Height="-12" Font.Name="Tahoma" Font.Style="1" Frame.Color="8421504" Frame.Typ="12" HAlign="haCenter" ParentFont="False" VAlign="vaCenter" Text="Concepto"/>
|
<TfrxMemoView Name="Memo23" Align="baLeft" Left="86" Top="270,01979" Width="360" Height="26,45669291" ShowHint="False" Color="16777215" Font.Charset="0" Font.Color="0" Font.Height="-12" Font.Name="Tahoma" Font.Style="1" Frame.Color="8421504" Frame.Typ="12" HAlign="haCenter" ParentFont="False" VAlign="vaCenter" Text="Concepto"/>
|
||||||
<TfrxMemoView Name="Memo8" Align="baLeft" Left="448,9" Top="270,01979" Width="60,71653543" Height="26,45669291" ShowHint="False" Color="16777215" Font.Charset="0" Font.Color="0" Font.Height="-12" Font.Name="Tahoma" Font.Style="1" Frame.Color="8421504" Frame.Typ="12" HAlign="haRight" ParentFont="False" VAlign="vaCenter" Text="Cantidad"/>
|
<TfrxMemoView Name="Memo8" Align="baLeft" Left="551,71653543" Top="270,01979" Width="60,71653543" Height="26,45669291" ShowHint="False" Color="16777215" Font.Charset="0" Font.Color="0" Font.Height="-12" Font.Name="Tahoma" Font.Style="1" Frame.Color="8421504" Frame.Typ="12" HAlign="haRight" ParentFont="False" VAlign="vaCenter" Text="Cantidad"/>
|
||||||
<TfrxMemoView Name="Memo13" Left="0" Top="270,01979" Width="76,2" Height="26,45669291" ShowHint="False" Color="16777215" Font.Charset="0" Font.Color="0" Font.Height="-12" Font.Name="Tahoma" Font.Style="1" Frame.Color="8421504" Frame.Typ="12" HAlign="haCenter" ParentFont="False" VAlign="vaCenter" Text="Referencia"/>
|
<TfrxMemoView Name="Memo13" Left="0" Top="270,01979" Width="86" Height="26,45669291" ShowHint="False" Color="16777215" Font.Charset="0" Font.Color="0" Font.Height="-12" Font.Name="Tahoma" Font.Style="1" Frame.Color="8421504" Frame.Typ="12" HAlign="haCenter" ParentFont="False" VAlign="vaCenter" Text="Referencia"/>
|
||||||
<TfrxLineView Name="Line1" Align="baLeft" Left="716,04960629" Top="269,50406638" Width="0" Height="628" ShowHint="False" Frame.Color="8421504" Frame.Typ="1"/>
|
<TfrxLineView Name="Line1" Align="baLeft" Left="551,71653543" Top="269,50406638" Width="0" Height="628" ShowHint="False" Frame.Color="8421504" Frame.Typ="1"/>
|
||||||
<TfrxLineView Name="Line2" Left="0" Top="269,50406638" Width="0" Height="628" ShowHint="False" Frame.Color="8421504" Frame.Typ="1"/>
|
<TfrxLineView Name="Line2" Left="0" Top="269,50406638" Width="0" Height="628" ShowHint="False" Frame.Color="8421504" Frame.Typ="1"/>
|
||||||
<TfrxLineView Name="Line3" Left="76,2" Top="269,50406638" Width="0" Height="628" OnBeforePrint="Line3OnBeforePrint" ShowHint="False" Frame.Color="8421504" Frame.Typ="1"/>
|
<TfrxLineView Name="Line3" Left="86" Top="269,50406638" Width="0" Height="628" OnBeforePrint="Line3OnBeforePrint" ShowHint="False" Frame.Color="8421504" Frame.Typ="1"/>
|
||||||
<TfrxLineView Name="Line5" Align="baLeft" Left="509,61653543" Top="269,50406638" Width="0" Height="628" ShowHint="False" Frame.Color="8421504" Frame.Typ="1"/>
|
<TfrxLineView Name="Line5" Align="baLeft" Left="612,43307086" Top="269,50406638" Width="0" Height="628" ShowHint="False" Frame.Color="8421504" Frame.Typ="1"/>
|
||||||
<TfrxShapeView Name="Shape4" Left="353,68243666" Top="121,10760667" Width="362" Height="120,94488433" ShowHint="False" Color="-16777211" Curve="2" Frame.Color="13056"/>
|
<TfrxShapeView Name="Shape4" Left="353,68243666" Top="121,10760667" Width="362" Height="120,94488433" ShowHint="False" Color="-16777211" Curve="2" Frame.Color="13056"/>
|
||||||
<TfrxMemoView Name="Memo19" Left="358,56957333" Top="125,42517" Width="342,2047" Height="111,49612157" ShowHint="False" AllowHTMLTags="True" DataSet="frxDBCabecera" DataSetName="frxDBCabecera" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="0" Font.Height="-15" Font.Name="Tahoma" Font.Style="0" ParentFont="False" VAlign="vaCenter" Text="<b>[frxDBCabecera."NOMBRE"]</b> [frxDBCabecera."CALLE"] [<frxDBCabecera."CODIGO_POSTAL">] [<frxDBCabecera."POBLACION">] [<frxDBCabecera."PROVINCIA">]"/>
|
<TfrxMemoView Name="Memo19" Left="358,56957333" Top="125,42517" Width="342,2047" Height="111,49612157" ShowHint="False" AllowHTMLTags="True" DataSet="frxDBCabecera" DataSetName="frxDBCabecera" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="0" Font.Height="-15" Font.Name="Tahoma" Font.Style="0" ParentFont="False" VAlign="vaCenter" Text="<b>[frxDBCabecera."NOMBRE"]</b> [frxDBCabecera."CALLE"] [<frxDBCabecera."CODIGO_POSTAL">] [<frxDBCabecera."POBLACION">] [<frxDBCabecera."PROVINCIA">]"/>
|
||||||
<TfrxMemoView Name="Memo21" Left="0" Top="121,84261" Width="130,05504" Height="20" ShowHint="False" DataSet="frxDBCabecera" DataSetName="frxDBCabecera" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="0" Font.Height="-13" Font.Name="Tahoma" Font.Style="1" Frame.Color="13056" Frame.Typ="15" HAlign="haCenter" ParentFont="False" Text="Nº Albarán"/>
|
<TfrxMemoView Name="Memo21" Left="0" Top="121,84261" Width="130,05504" Height="20" ShowHint="False" DataSet="frxDBCabecera" DataSetName="frxDBCabecera" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="0" Font.Height="-13" Font.Name="Tahoma" Font.Style="1" Frame.Color="13056" Frame.Typ="15" HAlign="haCenter" ParentFont="False" Text="Nº Albarán"/>
|
||||||
@ -50,8 +50,9 @@
|
|||||||
<TfrxMemoView Name="Memo9" Left="132,44094" Top="166,44094" Width="32,85807" Height="17,00787402" ShowHint="False" DataSet="frxDBCabecera" DataSetName="frxDBCabecera" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="0" Font.Height="-12" Font.Name="Tahoma" Font.Style="0" Frame.Color="13056" ParentFont="False" VAlign="vaCenter" Text="C.I.F:"/>
|
<TfrxMemoView Name="Memo9" Left="132,44094" Top="166,44094" Width="32,85807" Height="17,00787402" ShowHint="False" DataSet="frxDBCabecera" DataSetName="frxDBCabecera" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="0" Font.Height="-12" Font.Name="Tahoma" Font.Style="0" Frame.Color="13056" ParentFont="False" VAlign="vaCenter" Text="C.I.F:"/>
|
||||||
<TfrxMemoView Name="Memo10" Left="59,03154" Top="187,44094" Width="201,46444" Height="17,00787402" Visible="False" ShowHint="False" DataSet="frxDBCabecera" DataSetName="frxDBCabecera" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="0" Font.Height="-12" Font.Name="Tahoma" Font.Style="0" Frame.Color="13056" ParentFont="False" VAlign="vaCenter" Text="[frxDBCabecera."REF_CLIENTE"]"/>
|
<TfrxMemoView Name="Memo10" Left="59,03154" Top="187,44094" Width="201,46444" Height="17,00787402" Visible="False" ShowHint="False" DataSet="frxDBCabecera" DataSetName="frxDBCabecera" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="0" Font.Height="-12" Font.Name="Tahoma" Font.Style="0" Frame.Color="13056" ParentFont="False" VAlign="vaCenter" Text="[frxDBCabecera."REF_CLIENTE"]"/>
|
||||||
<TfrxMemoView Name="Memo11" Left="0,44094" Top="187,44094" Width="57,85807" Height="17,00787402" Visible="False" ShowHint="False" DataSet="frxDBCabecera" DataSetName="frxDBCabecera" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="0" Font.Height="-12" Font.Name="Tahoma" Font.Style="0" Frame.Color="13056" ParentFont="False" VAlign="vaCenter" Text="Vendedor:"/>
|
<TfrxMemoView Name="Memo11" Left="0,44094" Top="187,44094" Width="57,85807" Height="17,00787402" Visible="False" ShowHint="False" DataSet="frxDBCabecera" DataSetName="frxDBCabecera" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="0" Font.Height="-12" Font.Name="Tahoma" Font.Style="0" Frame.Color="13056" ParentFont="False" VAlign="vaCenter" Text="Vendedor:"/>
|
||||||
<TfrxLineView Name="Line6" Align="baLeft" Left="448,9" Top="269,50406638" Width="0" Height="628" ShowHint="False" Frame.Color="8421504" Frame.Typ="1"/>
|
<TfrxLineView Name="Line6" Align="baLeft" Left="551,71653543" Top="269,50406638" Width="0" Height="628" ShowHint="False" Frame.Color="8421504" Frame.Typ="1"/>
|
||||||
<TfrxLineView Name="Line7" Align="baLeft" Left="610,33307086" Top="269,50406638" Width="0" Height="628" ShowHint="False" Frame.Color="8421504" Frame.Typ="1"/>
|
<TfrxLineView Name="Line7" Align="baLeft" Left="446" Top="269,50406638" Width="0" Height="628" ShowHint="False" Frame.Color="8421504" Frame.Typ="1"/>
|
||||||
|
<TfrxLineView Name="Line8" Align="baLeft" Left="713,14960629" Top="269,50406638" Width="0" Height="628" ShowHint="False" Frame.Color="8421504" Frame.Typ="1"/>
|
||||||
</TfrxPageHeader>
|
</TfrxPageHeader>
|
||||||
</TfrxReportPage>
|
</TfrxReportPage>
|
||||||
</TfrxReport>
|
</TfrxReport>
|
||||||
|
|||||||
@ -1,14 +1,17 @@
|
|||||||
<?xml version="1.0" encoding="utf-8"?>
|
<?xml version="1.0" encoding="utf-8"?>
|
||||||
<TfrxReport Version="4.8.11" DotMatrixReport="False" EngineOptions.DoublePass="True" IniFile="\Software\Fast Reports" PreviewOptions.Buttons="4095" PreviewOptions.Zoom="1" PrintOptions.Printer="Por defecto" PrintOptions.PrintOnSheet="0" ReportOptions.CreateDate="39065,8724234954" ReportOptions.Description.Text="" ReportOptions.LastChange="40206,5876994676" ScriptLanguage="PascalScript" ScriptText.Text="begin end." ShowProgress="False" StoreInDFM="False" OnStartReport="frxReportOnStartReport" PropData="044C65667403910003546F70021008446174617365747301010C3400000020446174615365743D22667278444243616265636572612220446174615365744E616D653D2266727844424361626563657261220000095661726961626C657301010C10000000204E616D653D2220496E666F726D652200010C11000000204E616D653D224D657263616E6369612200010C0E000000204E616D653D2242756C746F73220000055374796C650100">
|
<TfrxReport Version="4.8.11" DotMatrixReport="False" EngineOptions.DoublePass="True" IniFile="\Software\Fast Reports" PreviewOptions.Buttons="4095" PreviewOptions.Zoom="1" PrintOptions.Printer="Por defecto" PrintOptions.PrintOnSheet="0" ReportOptions.CreateDate="39065,8724234954" ReportOptions.Description.Text="" ReportOptions.LastChange="40227,4339049421" ScriptLanguage="PascalScript" ScriptText.Text="procedure MasterData1OnBeforePrint(Sender: TfrxComponent); begin if (<frxDBEtiquetas."CALLE_ENVIO"> <> '') then begin mCalleFiscal.Visible := False; mPoblacionFiscal.Visible := False; mCodigoPostalFiscal.Visible := False; end else begin mCalleEnvio.Visible := False; mPoblacionEnvio.Visible := False; mCodigoPostalEnvio.Visible := False; end; end; procedure Memo5OnBeforePrint(Sender: TfrxComponent); begin // Memo5.lines.clear; end; begin end. " ShowProgress="False" StoreInDFM="False" OnStartReport="frxReportOnStartReport" PropData="044C65667403910003546F70021008446174617365747301010C3600000020446174615365743D2266727844424574697175657461732220446174615365744E616D653D226672784442457469717565746173220000095661726961626C657301010C10000000204E616D653D2220496E666F726D652200010C11000000204E616D653D224D657263616E6369612200010C0E000000204E616D653D2242756C746F73220000055374796C650100">
|
||||||
<TfrxDataPage Name="Data" Height="1000" Left="0" Top="0" Width="1000"/>
|
<TfrxDataPage Name="Data" Height="1000" Left="0" Top="0" Width="1000"/>
|
||||||
<TfrxReportPage Name="Page1" PaperWidth="210" PaperHeight="297" PaperSize="9" LeftMargin="10" RightMargin="10" TopMargin="10" BottomMargin="10" ColumnWidth="0" ColumnPositions.Text="" HGuides.Text="" VGuides.Text="">
|
<TfrxReportPage Name="Page1" PaperWidth="210" PaperHeight="297" PaperSize="9" LeftMargin="10" RightMargin="10" TopMargin="10" BottomMargin="10" ColumnWidth="0" ColumnPositions.Text="" HGuides.Text="" VGuides.Text="">
|
||||||
<TfrxMasterData Name="MasterData1" Height="277" Left="0" Top="16" Width="718,1107" ColumnWidth="0" ColumnGap="0" DataSet="frxDBCabecera" DataSetName="frxDBCabecera" RowCount="0">
|
<TfrxMasterData Name="MasterData1" Height="277" Left="0" Top="16" Width="718,1107" OnBeforePrint="MasterData1OnBeforePrint" ColumnWidth="0" ColumnGap="0" DataSet="frxDBEtiquetas" DataSetName="frxDBEtiquetas" RowCount="0">
|
||||||
<TfrxMemoView Name="Memo1" Left="176" Top="44" Width="427" Height="16" ShowHint="False" Text="[frxDBCabecera."POBLACION"]"/>
|
<TfrxMemoView Name="mPoblacionFiscal" Left="176" Top="44" Width="427" Height="18" ShowHint="False" Text="[frxDBEtiquetas."POBLACION_FISCAL"]"/>
|
||||||
<TfrxMemoView Name="Memo2" Left="176" Top="101" Width="427" Height="16" ShowHint="False" Text="[frxDBCabecera."NOMBRE"]"/>
|
<TfrxMemoView Name="Memo2" Left="176" Top="101" Width="427" Height="18" ShowHint="False" Text="[frxDBEtiquetas."NOMBRE"]"/>
|
||||||
<TfrxMemoView Name="Memo3" Left="176" Top="136" Width="427" Height="16" ShowHint="False" Text="[frxDBCabecera."CALLE"]"/>
|
<TfrxMemoView Name="mCalleFiscal" Left="176" Top="136" Width="427" Height="18" ShowHint="False" Text="[frxDBEtiquetas."CALLE_FISCAL"]"/>
|
||||||
<TfrxMemoView Name="Memo4" Left="176" Top="170" Width="427" Height="16" ShowHint="False" Text="[frxDBCabecera."CODIGO_POSTAL"] [frxDBCabecera."POBLACION"] ([frxDBCabecera."PROVINCIA"])"/>
|
<TfrxMemoView Name="mCodigoPostalFiscal" Left="176" Top="170" Width="427" Height="18" ShowHint="False" Text="[frxDBEtiquetas."CODIGO_POSTAL_FISCAL"] [frxDBEtiquetas."POBLACION_FISCAL"] ([frxDBEtiquetas."PROVINCIA_FISCAL"])"/>
|
||||||
<TfrxMemoView Name="Memo5" Left="176" Top="216" Width="427" Height="16" ShowHint="False" Text=""/>
|
<TfrxMemoView Name="Memo6" Left="176" Top="247" Width="427" Height="18" ShowHint="False" DisplayFormat.FormatStr="%g" Text="[Bultos]"/>
|
||||||
<TfrxMemoView Name="Memo6" Left="176" Top="247" Width="427" Height="16" ShowHint="False" DisplayFormat.FormatStr="%g" DisplayFormat.Kind="fkNumeric" Text="[Bultos]"/>
|
<TfrxMemoView Name="mPoblacionEnvio" Left="176" Top="44" Width="427" Height="18" ShowHint="False" Text="[frxDBEtiquetas."POBLACION_ENVIO"]"/>
|
||||||
|
<TfrxMemoView Name="mCalleEnvio" Left="176" Top="136" Width="427" Height="18" ShowHint="False" Text="[frxDBEtiquetas."CALLE_ENVIO"]"/>
|
||||||
|
<TfrxMemoView Name="mCodigoPostalEnvio" Left="176" Top="170" Width="427" Height="18" ShowHint="False" Text="[frxDBEtiquetas."CODIGO_POSTAL_ENVIO"] [frxDBEtiquetas."POBLACION_ENVIO"] ([frxDBEtiquetas."PROVINCIA_ENVIO"])"/>
|
||||||
|
<TfrxMemoView Name="Memo1" Left="176" Top="209" Width="427" Height="18" ShowHint="False" DisplayFormat.FormatStr="%g" Text="[Mercancia]"/>
|
||||||
</TfrxMasterData>
|
</TfrxMasterData>
|
||||||
</TfrxReportPage>
|
</TfrxReportPage>
|
||||||
</TfrxReport>
|
</TfrxReport>
|
||||||
|
|||||||
@ -13,7 +13,6 @@ type
|
|||||||
procedure ActualizarDetalles(ADetalles: IDAStronglyTypedDataTable; ACliente: IBizCliente); overload;
|
procedure ActualizarDetalles(ADetalles: IDAStronglyTypedDataTable; ACliente: IBizCliente); overload;
|
||||||
procedure DesglosarPorteDetalles(ImportePorte: Currency; ADetalles: IDAStronglyTypedDataTable);
|
procedure DesglosarPorteDetalles(ImportePorte: Currency; ADetalles: IDAStronglyTypedDataTable);
|
||||||
function DarTotalPorteTotal(ADetalles: IDAStronglyTypedDataTable): Double;
|
function DarTotalPorteTotal(ADetalles: IDAStronglyTypedDataTable): Double;
|
||||||
|
|
||||||
procedure ModificarCantidadColores(ADetalles: IDAStronglyTypedDataTable);
|
procedure ModificarCantidadColores(ADetalles: IDAStronglyTypedDataTable);
|
||||||
end;
|
end;
|
||||||
|
|
||||||
|
|||||||
@ -131,6 +131,8 @@ inherited DataModuleAlbaranesCliente: TDataModuleAlbaranesCliente
|
|||||||
item
|
item
|
||||||
Name = 'ID_DIRECCION'
|
Name = 'ID_DIRECCION'
|
||||||
DataType = datInteger
|
DataType = datInteger
|
||||||
|
DisplayLabel = 'AlbaranesCliente_ID_DIRECCION'
|
||||||
|
DictionaryEntry = 'AlbaranesCliente_ID_DIRECCION'
|
||||||
end
|
end
|
||||||
item
|
item
|
||||||
Name = 'CALLE'
|
Name = 'CALLE'
|
||||||
@ -288,16 +290,21 @@ inherited DataModuleAlbaranesCliente: TDataModuleAlbaranesCliente
|
|||||||
end
|
end
|
||||||
item
|
item
|
||||||
Name = 'DESCUENTO2'
|
Name = 'DESCUENTO2'
|
||||||
DataType = datCurrency
|
DataType = datFloat
|
||||||
|
DictionaryEntry = 'AlbaranesCliente_DESCUENTO2'
|
||||||
end
|
end
|
||||||
item
|
item
|
||||||
Name = 'IMPORTE_DESCUENTO2'
|
Name = 'IMPORTE_DESCUENTO2'
|
||||||
DataType = datCurrency
|
DataType = datCurrency
|
||||||
|
DisplayLabel = 'AlbaranesCliente_IMPORTE_DESCUENTO2'
|
||||||
|
DictionaryEntry = 'AlbaranesCliente_IMPORTE_DESCUENTO2'
|
||||||
end
|
end
|
||||||
item
|
item
|
||||||
Name = 'DATOS_BANCARIOS'
|
Name = 'DATOS_BANCARIOS'
|
||||||
DataType = datString
|
DataType = datString
|
||||||
Size = 255
|
Size = 255
|
||||||
|
DisplayLabel = 'AlbaranesCliente_DATOS_BANCARIOS'
|
||||||
|
DictionaryEntry = 'AlbaranesCliente_DATOS_BANCARIOS'
|
||||||
end>
|
end>
|
||||||
Params = <>
|
Params = <>
|
||||||
StreamingOptions = [soDisableEventsWhileStreaming]
|
StreamingOptions = [soDisableEventsWhileStreaming]
|
||||||
|
|||||||
@ -1,18 +1,19 @@
|
|||||||
unit schAlbaranesClienteClient_Intf;
|
unit schAlbaranesClienteClient_Intf;
|
||||||
|
|
||||||
|
{$D-}
|
||||||
interface
|
interface
|
||||||
|
|
||||||
uses
|
uses
|
||||||
Classes, DB, schBase_Intf, SysUtils, uROClasses, uDAInterfaces, uDADataTable, FmtBCD, uROXMLIntf;
|
Classes, DB, SysUtils, uROClasses, uDAInterfaces, uDADataTable, FmtBCD, uROXMLIntf;
|
||||||
|
|
||||||
const
|
const
|
||||||
{ Data table rules ids
|
{ Data table rules ids
|
||||||
Feel free to change them to something more human readable
|
Feel free to change them to something more human readable
|
||||||
but make sure they are unique in the context of your application }
|
but make sure they are unique in the context of your application }
|
||||||
RID_ListaAnosAlbaranes = '{42739B43-AAFE-40CD-B0F0-1F26F60FA03A}';
|
RID_ListaAnosAlbaranes = '{AB352FBE-C6B0-4DD9-B4EC-63B5ED2BDA4F}';
|
||||||
RID_AlbaranesCliente = '{31C082F1-1332-4151-B270-3B497DA70500}';
|
RID_AlbaranesCliente = '{ACF9F8E3-2CA1-4DFC-B159-724A16045D2A}';
|
||||||
RID_AlbaranesCliente_Detalle_Color = '{AE57C6DB-DC23-4940-A000-87C4B4B43193}';
|
RID_AlbaranesCliente_Detalle_Color = '{772D8D26-472D-4DE1-8249-9863E88FAB87}';
|
||||||
RID_AlbaranesCliente_Detalles = '{05E35781-52D8-4983-91BB-A08BD612D9F8}';
|
RID_AlbaranesCliente_Detalles = '{F8AEC877-9B48-43FE-9EB1-2E9A54FD41E8}';
|
||||||
|
|
||||||
{ Data table names }
|
{ Data table names }
|
||||||
nme_ListaAnosAlbaranes = 'ListaAnosAlbaranes';
|
nme_ListaAnosAlbaranes = 'ListaAnosAlbaranes';
|
||||||
@ -187,7 +188,7 @@ const
|
|||||||
type
|
type
|
||||||
{ IListaAnosAlbaranes }
|
{ IListaAnosAlbaranes }
|
||||||
IListaAnosAlbaranes = interface(IDAStronglyTypedDataTable)
|
IListaAnosAlbaranes = interface(IDAStronglyTypedDataTable)
|
||||||
['{F043E0A3-DB08-4F86-A07F-899DC88F8CA0}']
|
['{6F87DB01-2294-4331-8C36-A0C754159240}']
|
||||||
{ Property getters and setters }
|
{ Property getters and setters }
|
||||||
function GetANOValue: String;
|
function GetANOValue: String;
|
||||||
procedure SetANOValue(const aValue: String);
|
procedure SetANOValue(const aValue: String);
|
||||||
@ -201,7 +202,7 @@ type
|
|||||||
end;
|
end;
|
||||||
|
|
||||||
{ TListaAnosAlbaranesDataTableRules }
|
{ TListaAnosAlbaranesDataTableRules }
|
||||||
TListaAnosAlbaranesDataTableRules = class(TIntfObjectDADataTableRules, IListaAnosAlbaranes)
|
TListaAnosAlbaranesDataTableRules = class(TDADataTableRules, IListaAnosAlbaranes)
|
||||||
private
|
private
|
||||||
protected
|
protected
|
||||||
{ Property getters and setters }
|
{ Property getters and setters }
|
||||||
@ -222,7 +223,7 @@ type
|
|||||||
|
|
||||||
{ IAlbaranesCliente }
|
{ IAlbaranesCliente }
|
||||||
IAlbaranesCliente = interface(IDAStronglyTypedDataTable)
|
IAlbaranesCliente = interface(IDAStronglyTypedDataTable)
|
||||||
['{D4D1CA0D-3682-4C1D-BFA0-8F9E5DE7B4CD}']
|
['{E24D4F8F-A65A-46FC-B4FD-0862681FE993}']
|
||||||
{ Property getters and setters }
|
{ Property getters and setters }
|
||||||
function GetIDValue: Integer;
|
function GetIDValue: Integer;
|
||||||
procedure SetIDValue(const aValue: Integer);
|
procedure SetIDValue(const aValue: Integer);
|
||||||
@ -382,8 +383,8 @@ type
|
|||||||
procedure SetFECHA_RECEPCIONValue(const aValue: DateTime);
|
procedure SetFECHA_RECEPCIONValue(const aValue: DateTime);
|
||||||
function GetFECHA_RECEPCIONIsNull: Boolean;
|
function GetFECHA_RECEPCIONIsNull: Boolean;
|
||||||
procedure SetFECHA_RECEPCIONIsNull(const aValue: Boolean);
|
procedure SetFECHA_RECEPCIONIsNull(const aValue: Boolean);
|
||||||
function GetDESCUENTO2Value: Currency;
|
function GetDESCUENTO2Value: Float;
|
||||||
procedure SetDESCUENTO2Value(const aValue: Currency);
|
procedure SetDESCUENTO2Value(const aValue: Float);
|
||||||
function GetDESCUENTO2IsNull: Boolean;
|
function GetDESCUENTO2IsNull: Boolean;
|
||||||
procedure SetDESCUENTO2IsNull(const aValue: Boolean);
|
procedure SetDESCUENTO2IsNull(const aValue: Boolean);
|
||||||
function GetIMPORTE_DESCUENTO2Value: Currency;
|
function GetIMPORTE_DESCUENTO2Value: Currency;
|
||||||
@ -477,7 +478,7 @@ type
|
|||||||
property FECHA_ENVIOIsNull: Boolean read GetFECHA_ENVIOIsNull write SetFECHA_ENVIOIsNull;
|
property FECHA_ENVIOIsNull: Boolean read GetFECHA_ENVIOIsNull write SetFECHA_ENVIOIsNull;
|
||||||
property FECHA_RECEPCION: DateTime read GetFECHA_RECEPCIONValue write SetFECHA_RECEPCIONValue;
|
property FECHA_RECEPCION: DateTime read GetFECHA_RECEPCIONValue write SetFECHA_RECEPCIONValue;
|
||||||
property FECHA_RECEPCIONIsNull: Boolean read GetFECHA_RECEPCIONIsNull write SetFECHA_RECEPCIONIsNull;
|
property FECHA_RECEPCIONIsNull: Boolean read GetFECHA_RECEPCIONIsNull write SetFECHA_RECEPCIONIsNull;
|
||||||
property DESCUENTO2: Currency read GetDESCUENTO2Value write SetDESCUENTO2Value;
|
property DESCUENTO2: Float read GetDESCUENTO2Value write SetDESCUENTO2Value;
|
||||||
property DESCUENTO2IsNull: Boolean read GetDESCUENTO2IsNull write SetDESCUENTO2IsNull;
|
property DESCUENTO2IsNull: Boolean read GetDESCUENTO2IsNull write SetDESCUENTO2IsNull;
|
||||||
property IMPORTE_DESCUENTO2: Currency read GetIMPORTE_DESCUENTO2Value write SetIMPORTE_DESCUENTO2Value;
|
property IMPORTE_DESCUENTO2: Currency read GetIMPORTE_DESCUENTO2Value write SetIMPORTE_DESCUENTO2Value;
|
||||||
property IMPORTE_DESCUENTO2IsNull: Boolean read GetIMPORTE_DESCUENTO2IsNull write SetIMPORTE_DESCUENTO2IsNull;
|
property IMPORTE_DESCUENTO2IsNull: Boolean read GetIMPORTE_DESCUENTO2IsNull write SetIMPORTE_DESCUENTO2IsNull;
|
||||||
@ -486,7 +487,7 @@ type
|
|||||||
end;
|
end;
|
||||||
|
|
||||||
{ TAlbaranesClienteDataTableRules }
|
{ TAlbaranesClienteDataTableRules }
|
||||||
TAlbaranesClienteDataTableRules = class(TIntfObjectDADataTableRules, IAlbaranesCliente)
|
TAlbaranesClienteDataTableRules = class(TDADataTableRules, IAlbaranesCliente)
|
||||||
private
|
private
|
||||||
f_OBSERVACIONES: IROStrings;
|
f_OBSERVACIONES: IROStrings;
|
||||||
f_INCIDENCIAS: IROStrings;
|
f_INCIDENCIAS: IROStrings;
|
||||||
@ -652,8 +653,8 @@ type
|
|||||||
procedure SetFECHA_RECEPCIONValue(const aValue: DateTime); virtual;
|
procedure SetFECHA_RECEPCIONValue(const aValue: DateTime); virtual;
|
||||||
function GetFECHA_RECEPCIONIsNull: Boolean; virtual;
|
function GetFECHA_RECEPCIONIsNull: Boolean; virtual;
|
||||||
procedure SetFECHA_RECEPCIONIsNull(const aValue: Boolean); virtual;
|
procedure SetFECHA_RECEPCIONIsNull(const aValue: Boolean); virtual;
|
||||||
function GetDESCUENTO2Value: Currency; virtual;
|
function GetDESCUENTO2Value: Float; virtual;
|
||||||
procedure SetDESCUENTO2Value(const aValue: Currency); virtual;
|
procedure SetDESCUENTO2Value(const aValue: Float); virtual;
|
||||||
function GetDESCUENTO2IsNull: Boolean; virtual;
|
function GetDESCUENTO2IsNull: Boolean; virtual;
|
||||||
procedure SetDESCUENTO2IsNull(const aValue: Boolean); virtual;
|
procedure SetDESCUENTO2IsNull(const aValue: Boolean); virtual;
|
||||||
function GetIMPORTE_DESCUENTO2Value: Currency; virtual;
|
function GetIMPORTE_DESCUENTO2Value: Currency; virtual;
|
||||||
@ -746,7 +747,7 @@ type
|
|||||||
property FECHA_ENVIOIsNull: Boolean read GetFECHA_ENVIOIsNull write SetFECHA_ENVIOIsNull;
|
property FECHA_ENVIOIsNull: Boolean read GetFECHA_ENVIOIsNull write SetFECHA_ENVIOIsNull;
|
||||||
property FECHA_RECEPCION: DateTime read GetFECHA_RECEPCIONValue write SetFECHA_RECEPCIONValue;
|
property FECHA_RECEPCION: DateTime read GetFECHA_RECEPCIONValue write SetFECHA_RECEPCIONValue;
|
||||||
property FECHA_RECEPCIONIsNull: Boolean read GetFECHA_RECEPCIONIsNull write SetFECHA_RECEPCIONIsNull;
|
property FECHA_RECEPCIONIsNull: Boolean read GetFECHA_RECEPCIONIsNull write SetFECHA_RECEPCIONIsNull;
|
||||||
property DESCUENTO2: Currency read GetDESCUENTO2Value write SetDESCUENTO2Value;
|
property DESCUENTO2: Float read GetDESCUENTO2Value write SetDESCUENTO2Value;
|
||||||
property DESCUENTO2IsNull: Boolean read GetDESCUENTO2IsNull write SetDESCUENTO2IsNull;
|
property DESCUENTO2IsNull: Boolean read GetDESCUENTO2IsNull write SetDESCUENTO2IsNull;
|
||||||
property IMPORTE_DESCUENTO2: Currency read GetIMPORTE_DESCUENTO2Value write SetIMPORTE_DESCUENTO2Value;
|
property IMPORTE_DESCUENTO2: Currency read GetIMPORTE_DESCUENTO2Value write SetIMPORTE_DESCUENTO2Value;
|
||||||
property IMPORTE_DESCUENTO2IsNull: Boolean read GetIMPORTE_DESCUENTO2IsNull write SetIMPORTE_DESCUENTO2IsNull;
|
property IMPORTE_DESCUENTO2IsNull: Boolean read GetIMPORTE_DESCUENTO2IsNull write SetIMPORTE_DESCUENTO2IsNull;
|
||||||
@ -761,7 +762,7 @@ type
|
|||||||
|
|
||||||
{ IAlbaranesCliente_Detalle_Color }
|
{ IAlbaranesCliente_Detalle_Color }
|
||||||
IAlbaranesCliente_Detalle_Color = interface(IDAStronglyTypedDataTable)
|
IAlbaranesCliente_Detalle_Color = interface(IDAStronglyTypedDataTable)
|
||||||
['{9F645C57-1D1F-4B85-B3AB-25B652A9D7D4}']
|
['{4258FF8D-5072-4AC3-9195-D681DBA05C11}']
|
||||||
{ Property getters and setters }
|
{ Property getters and setters }
|
||||||
function GetIDValue: Integer;
|
function GetIDValue: Integer;
|
||||||
procedure SetIDValue(const aValue: Integer);
|
procedure SetIDValue(const aValue: Integer);
|
||||||
@ -853,7 +854,7 @@ type
|
|||||||
end;
|
end;
|
||||||
|
|
||||||
{ TAlbaranesCliente_Detalle_ColorDataTableRules }
|
{ TAlbaranesCliente_Detalle_ColorDataTableRules }
|
||||||
TAlbaranesCliente_Detalle_ColorDataTableRules = class(TIntfObjectDADataTableRules, IAlbaranesCliente_Detalle_Color)
|
TAlbaranesCliente_Detalle_ColorDataTableRules = class(TDADataTableRules, IAlbaranesCliente_Detalle_Color)
|
||||||
private
|
private
|
||||||
protected
|
protected
|
||||||
{ Property getters and setters }
|
{ Property getters and setters }
|
||||||
@ -952,7 +953,7 @@ type
|
|||||||
|
|
||||||
{ IAlbaranesCliente_Detalles }
|
{ IAlbaranesCliente_Detalles }
|
||||||
IAlbaranesCliente_Detalles = interface(IDAStronglyTypedDataTable)
|
IAlbaranesCliente_Detalles = interface(IDAStronglyTypedDataTable)
|
||||||
['{02B0B3EC-18E2-403C-BFC3-2A41918C746A}']
|
['{32CD43CD-5A7A-4E80-AE13-C75124E342D7}']
|
||||||
{ Property getters and setters }
|
{ Property getters and setters }
|
||||||
function GetIDValue: Integer;
|
function GetIDValue: Integer;
|
||||||
procedure SetIDValue(const aValue: Integer);
|
procedure SetIDValue(const aValue: Integer);
|
||||||
@ -1056,7 +1057,7 @@ type
|
|||||||
end;
|
end;
|
||||||
|
|
||||||
{ TAlbaranesCliente_DetallesDataTableRules }
|
{ TAlbaranesCliente_DetallesDataTableRules }
|
||||||
TAlbaranesCliente_DetallesDataTableRules = class(TIntfObjectDADataTableRules, IAlbaranesCliente_Detalles)
|
TAlbaranesCliente_DetallesDataTableRules = class(TDADataTableRules, IAlbaranesCliente_Detalles)
|
||||||
private
|
private
|
||||||
protected
|
protected
|
||||||
{ Property getters and setters }
|
{ Property getters and setters }
|
||||||
@ -2065,14 +2066,14 @@ begin
|
|||||||
DataTable.Fields[idx_AlbaranesClienteFECHA_RECEPCION].AsVariant := Null;
|
DataTable.Fields[idx_AlbaranesClienteFECHA_RECEPCION].AsVariant := Null;
|
||||||
end;
|
end;
|
||||||
|
|
||||||
function TAlbaranesClienteDataTableRules.GetDESCUENTO2Value: Currency;
|
function TAlbaranesClienteDataTableRules.GetDESCUENTO2Value: Float;
|
||||||
begin
|
begin
|
||||||
result := DataTable.Fields[idx_AlbaranesClienteDESCUENTO2].AsCurrency;
|
result := DataTable.Fields[idx_AlbaranesClienteDESCUENTO2].AsFloat;
|
||||||
end;
|
end;
|
||||||
|
|
||||||
procedure TAlbaranesClienteDataTableRules.SetDESCUENTO2Value(const aValue: Currency);
|
procedure TAlbaranesClienteDataTableRules.SetDESCUENTO2Value(const aValue: Float);
|
||||||
begin
|
begin
|
||||||
DataTable.Fields[idx_AlbaranesClienteDESCUENTO2].AsCurrency := aValue;
|
DataTable.Fields[idx_AlbaranesClienteDESCUENTO2].AsFloat := aValue;
|
||||||
end;
|
end;
|
||||||
|
|
||||||
function TAlbaranesClienteDataTableRules.GetDESCUENTO2IsNull: boolean;
|
function TAlbaranesClienteDataTableRules.GetDESCUENTO2IsNull: boolean;
|
||||||
|
|||||||
File diff suppressed because it is too large
Load Diff
@ -3,7 +3,7 @@ object RptAlbaranesCliente: TRptAlbaranesCliente
|
|||||||
OnCreate = DataModuleCreate
|
OnCreate = DataModuleCreate
|
||||||
OnDestroy = DataModuleDestroy
|
OnDestroy = DataModuleDestroy
|
||||||
Height = 471
|
Height = 471
|
||||||
Width = 448
|
Width = 539
|
||||||
object DADSCabecera: TDADataSource
|
object DADSCabecera: TDADataSource
|
||||||
DataSet = tbl_Cabecera.Dataset
|
DataSet = tbl_Cabecera.Dataset
|
||||||
DataTable = tbl_Cabecera
|
DataTable = tbl_Cabecera
|
||||||
@ -417,26 +417,28 @@ object RptAlbaranesCliente: TRptAlbaranesCliente
|
|||||||
item
|
item
|
||||||
Params = <
|
Params = <
|
||||||
item
|
item
|
||||||
Name = 'ID_ALBARAN'
|
Name = 'ID'
|
||||||
DataType = datInteger
|
DataType = datInteger
|
||||||
Value = ''
|
Value = ''
|
||||||
ParamType = daptInput
|
|
||||||
end>
|
end>
|
||||||
Statements = <
|
Statements = <
|
||||||
item
|
item
|
||||||
Connection = 'IBX'
|
Connection = 'IBX'
|
||||||
TargetTable = 'ALBARANES_CLIENTE_DETALLES'
|
TargetTable = 'ALBARANES_CLIENTE_DETALLES'
|
||||||
SQL =
|
SQL =
|
||||||
'SELECT ALBARANES_CLIENTE_DETALLES.ID, ALBARANES_CLIENTE_DETALLES' +
|
'SELECT V_ALBARANES_CLIENTE.ID,'#10' CONTACTOS.REFERENCIA as REF_CLI' +
|
||||||
'.ID_ALBARAN,'#10' ALBARANES_CLIENTE_DETALLES.POSICION, ALBARAN' +
|
'ENTE, CONTACTOS.NIF_CIF, CONTACTOS.NOMBRE,'#10' V_ALBARANES_CLIENTE' +
|
||||||
'ES_CLIENTE_DETALLES.TIPO_DETALLE,'#10' F_RTFTOTEXT(ALBARANES_C' +
|
'.PERSONA_CONTACTO,'#10' CONTACTOS.CALLE AS CALLE_FISCAL,'#10' CONTACTO' +
|
||||||
'LIENTE_DETALLES.CONCEPTO) as CONCEPTO, ALBARANES_CLIENTE_DETALLE' +
|
'S_DIRECCIONES.CALLE AS CALLE_ENVIO,'#10' CONTACTOS.POBLACION AS POB' +
|
||||||
'S.CANTIDAD,'#10' ALBARANES_CLIENTE_DETALLES.IMPORTE_UNIDAD, AL' +
|
'LACION_FISCAL,'#10' CONTACTOS_DIRECCIONES.POBLACION AS POBLACION_EN' +
|
||||||
'BARANES_CLIENTE_DETALLES.IMPORTE_TOTAL,'#10' ARTICULOS.REFEREN' +
|
'VIO,'#10' CONTACTOS.PROVINCIA AS PROVINCIA_FISCAL,'#10' CONTACTOS_DIRE' +
|
||||||
'CIA, ARTICULOS.FAMILIA'#10#10#10'FROM ALBARANES_CLIENTE_DETALLES'#10'LEFT JO' +
|
'CCIONES.PROVINCIA AS PROVINCIA_ENVIO,'#10' CONTACTOS.CODIGO_POSTAL ' +
|
||||||
'IN ARTICULOS ON (ALBARANES_CLIENTE_DETALLES.ID_ARTICULO = ARTICU' +
|
'AS CODIGO_POSTAL_FISCAL,'#10' CONTACTOS_DIRECCIONES.CODIGO_POSTAL A' +
|
||||||
'LOS.ID)'#10'WHERE (ID_ALBARAN = :ID_ALBARAN)'#10'AND (ARTICULOS.INVENTAR' +
|
'S CODIGO_POSTAL_ENVIO'#10#10'FROM'#10' V_ALBARANES_CLIENTE'#10' INNER JOIN C' +
|
||||||
'IABLE = 1)'#10'ORDER BY POSICION'#10
|
'ONTACTOS ON (CONTACTOS.ID = V_ALBARANES_CLIENTE.ID_CLIENTE)'#10' LE' +
|
||||||
|
'FT OUTER JOIN CONTACTOS_DIRECCIONES ON (CONTACTOS_DIRECCIONES.ID' +
|
||||||
|
'_contacto = V_ALBARANES_CLIENTE.ID_cliente)'#10'WHERE V_ALBARANES_CL' +
|
||||||
|
'IENTE.ID = :ID'#10
|
||||||
StatementType = stSQL
|
StatementType = stSQL
|
||||||
ColumnMappings = <
|
ColumnMappings = <
|
||||||
item
|
item
|
||||||
@ -444,89 +446,131 @@ object RptAlbaranesCliente: TRptAlbaranesCliente
|
|||||||
TableField = 'ID'
|
TableField = 'ID'
|
||||||
end
|
end
|
||||||
item
|
item
|
||||||
DatasetField = 'ID_ALBARAN'
|
DatasetField = 'REF_CLIENTE'
|
||||||
TableField = 'ID_ALBARAN'
|
|
||||||
end
|
|
||||||
item
|
|
||||||
DatasetField = 'POSICION'
|
|
||||||
TableField = 'POSICION'
|
|
||||||
end
|
|
||||||
item
|
|
||||||
DatasetField = 'TIPO_DETALLE'
|
|
||||||
TableField = 'TIPO_DETALLE'
|
|
||||||
end
|
|
||||||
item
|
|
||||||
DatasetField = 'CONCEPTO'
|
|
||||||
TableField = 'CONCEPTO'
|
|
||||||
end
|
|
||||||
item
|
|
||||||
DatasetField = 'CANTIDAD'
|
|
||||||
TableField = 'CANTIDAD'
|
|
||||||
end
|
|
||||||
item
|
|
||||||
DatasetField = 'IMPORTE_UNIDAD'
|
|
||||||
TableField = 'IMPORTE_UNIDAD'
|
|
||||||
end
|
|
||||||
item
|
|
||||||
DatasetField = 'IMPORTE_TOTAL'
|
|
||||||
TableField = 'IMPORTE_TOTAL'
|
|
||||||
end
|
|
||||||
item
|
|
||||||
DatasetField = 'REFERENCIA'
|
|
||||||
TableField = '<unknown>'
|
TableField = '<unknown>'
|
||||||
SQLOrigin = 'REFERENCIA'
|
SQLOrigin = 'REF_CLIENTE'
|
||||||
end
|
end
|
||||||
item
|
item
|
||||||
DatasetField = 'FAMILIA'
|
DatasetField = 'NIF_CIF'
|
||||||
TableField = '<unknown>'
|
TableField = '<unknown>'
|
||||||
SQLOrigin = 'FAMILIA'
|
SQLOrigin = 'NIF_CIF'
|
||||||
|
end
|
||||||
|
item
|
||||||
|
DatasetField = 'NOMBRE'
|
||||||
|
TableField = '<unknown>'
|
||||||
|
SQLOrigin = 'NOMBRE'
|
||||||
|
end
|
||||||
|
item
|
||||||
|
DatasetField = 'PERSONA_CONTACTO'
|
||||||
|
TableField = '<unknown>'
|
||||||
|
SQLOrigin = 'PERSONA_CONTACTO'
|
||||||
|
end
|
||||||
|
item
|
||||||
|
DatasetField = 'CALLE_FISCAL'
|
||||||
|
TableField = '<unknown>'
|
||||||
|
SQLOrigin = 'CALLE_FISCAL'
|
||||||
|
end
|
||||||
|
item
|
||||||
|
DatasetField = 'CALLE_ENVIO'
|
||||||
|
TableField = '<unknown>'
|
||||||
|
SQLOrigin = 'CALLE_ENVIO'
|
||||||
|
end
|
||||||
|
item
|
||||||
|
DatasetField = 'POBLACION_FISCAL'
|
||||||
|
TableField = '<unknown>'
|
||||||
|
SQLOrigin = 'POBLACION_FISCAL'
|
||||||
|
end
|
||||||
|
item
|
||||||
|
DatasetField = 'POBLACION_ENVIO'
|
||||||
|
TableField = '<unknown>'
|
||||||
|
SQLOrigin = 'POBLACION_ENVIO'
|
||||||
|
end
|
||||||
|
item
|
||||||
|
DatasetField = 'PROVINCIA_FISCAL'
|
||||||
|
TableField = '<unknown>'
|
||||||
|
SQLOrigin = 'PROVINCIA_FISCAL'
|
||||||
|
end
|
||||||
|
item
|
||||||
|
DatasetField = 'PROVINCIA_ENVIO'
|
||||||
|
TableField = '<unknown>'
|
||||||
|
SQLOrigin = 'PROVINCIA_ENVIO'
|
||||||
|
end
|
||||||
|
item
|
||||||
|
DatasetField = 'CODIGO_POSTAL_FISCAL'
|
||||||
|
TableField = '<unknown>'
|
||||||
|
SQLOrigin = 'CODIGO_POSTAL_FISCAL'
|
||||||
|
end
|
||||||
|
item
|
||||||
|
DatasetField = 'CODIGO_POSTAL_ENVIO'
|
||||||
|
TableField = '<unknown>'
|
||||||
|
SQLOrigin = 'CODIGO_POSTAL_ENVIO'
|
||||||
end>
|
end>
|
||||||
end>
|
end>
|
||||||
Name = 'Informe_Detalles_Etiquetas'
|
Name = 'Informe_Etiquetas'
|
||||||
Fields = <
|
Fields = <
|
||||||
item
|
item
|
||||||
Name = 'ID'
|
Name = 'ID'
|
||||||
DataType = datInteger
|
DataType = datInteger
|
||||||
end
|
end
|
||||||
item
|
item
|
||||||
Name = 'ID_ALBARAN'
|
Name = 'REF_CLIENTE'
|
||||||
DataType = datInteger
|
|
||||||
end
|
|
||||||
item
|
|
||||||
Name = 'POSICION'
|
|
||||||
DataType = datInteger
|
|
||||||
end
|
|
||||||
item
|
|
||||||
Name = 'TIPO_DETALLE'
|
|
||||||
DataType = datString
|
|
||||||
Size = 25
|
|
||||||
end
|
|
||||||
item
|
|
||||||
Name = 'CONCEPTO'
|
|
||||||
DataType = datString
|
|
||||||
Size = 254
|
|
||||||
end
|
|
||||||
item
|
|
||||||
Name = 'CANTIDAD'
|
|
||||||
DataType = datInteger
|
|
||||||
end
|
|
||||||
item
|
|
||||||
Name = 'IMPORTE_UNIDAD'
|
|
||||||
DataType = datCurrency
|
|
||||||
end
|
|
||||||
item
|
|
||||||
Name = 'IMPORTE_TOTAL'
|
|
||||||
DataType = datCurrency
|
|
||||||
end
|
|
||||||
item
|
|
||||||
Name = 'REFERENCIA'
|
|
||||||
DataType = datString
|
DataType = datString
|
||||||
Size = 255
|
Size = 255
|
||||||
end
|
end
|
||||||
item
|
item
|
||||||
Name = 'FAMILIA'
|
Name = 'NIF_CIF'
|
||||||
|
DataType = datString
|
||||||
|
Size = 15
|
||||||
|
end
|
||||||
|
item
|
||||||
|
Name = 'NOMBRE'
|
||||||
DataType = datString
|
DataType = datString
|
||||||
Size = 255
|
Size = 255
|
||||||
|
end
|
||||||
|
item
|
||||||
|
Name = 'PERSONA_CONTACTO'
|
||||||
|
DataType = datString
|
||||||
|
Size = 255
|
||||||
|
end
|
||||||
|
item
|
||||||
|
Name = 'CALLE_FISCAL'
|
||||||
|
DataType = datString
|
||||||
|
Size = 255
|
||||||
|
end
|
||||||
|
item
|
||||||
|
Name = 'CALLE_ENVIO'
|
||||||
|
DataType = datString
|
||||||
|
Size = 255
|
||||||
|
end
|
||||||
|
item
|
||||||
|
Name = 'POBLACION_FISCAL'
|
||||||
|
DataType = datString
|
||||||
|
Size = 255
|
||||||
|
end
|
||||||
|
item
|
||||||
|
Name = 'POBLACION_ENVIO'
|
||||||
|
DataType = datString
|
||||||
|
Size = 255
|
||||||
|
end
|
||||||
|
item
|
||||||
|
Name = 'PROVINCIA_FISCAL'
|
||||||
|
DataType = datString
|
||||||
|
Size = 255
|
||||||
|
end
|
||||||
|
item
|
||||||
|
Name = 'PROVINCIA_ENVIO'
|
||||||
|
DataType = datString
|
||||||
|
Size = 255
|
||||||
|
end
|
||||||
|
item
|
||||||
|
Name = 'CODIGO_POSTAL_FISCAL'
|
||||||
|
DataType = datString
|
||||||
|
Size = 10
|
||||||
|
end
|
||||||
|
item
|
||||||
|
Name = 'CODIGO_POSTAL_ENVIO'
|
||||||
|
DataType = datString
|
||||||
|
Size = 10
|
||||||
end>
|
end>
|
||||||
end>
|
end>
|
||||||
JoinDataTables = <>
|
JoinDataTables = <>
|
||||||
@ -548,7 +592,7 @@ object RptAlbaranesCliente: TRptAlbaranesCliente
|
|||||||
PrintOptions.Printer = 'Por defecto'
|
PrintOptions.Printer = 'Por defecto'
|
||||||
PrintOptions.PrintOnSheet = 0
|
PrintOptions.PrintOnSheet = 0
|
||||||
ReportOptions.CreateDate = 39065.872423495400000000
|
ReportOptions.CreateDate = 39065.872423495400000000
|
||||||
ReportOptions.LastChange = 40196.760630046290000000
|
ReportOptions.LastChange = 40213.504606828700000000
|
||||||
ScriptLanguage = 'PascalScript'
|
ScriptLanguage = 'PascalScript'
|
||||||
ShowProgress = False
|
ShowProgress = False
|
||||||
StoreInDFM = False
|
StoreInDFM = False
|
||||||
@ -1007,4 +1051,101 @@ object RptAlbaranesCliente: TRptAlbaranesCliente
|
|||||||
Left = 48
|
Left = 48
|
||||||
Top = 88
|
Top = 88
|
||||||
end
|
end
|
||||||
|
object frxDBEtiquetas: TfrxDBDataset
|
||||||
|
UserName = 'frxDBEtiquetas'
|
||||||
|
CloseDataSource = False
|
||||||
|
DataSource = DADSEtiquetas
|
||||||
|
BCDToCurrency = False
|
||||||
|
Left = 416
|
||||||
|
Top = 16
|
||||||
|
end
|
||||||
|
object DADSEtiquetas: TDADataSource
|
||||||
|
DataSet = tbl_Etiquetas.Dataset
|
||||||
|
DataTable = tbl_Etiquetas
|
||||||
|
Left = 416
|
||||||
|
Top = 72
|
||||||
|
end
|
||||||
|
object tbl_Etiquetas: TDAMemDataTable
|
||||||
|
RemoteUpdatesOptions = []
|
||||||
|
Fields = <
|
||||||
|
item
|
||||||
|
Name = 'ID'
|
||||||
|
DataType = datInteger
|
||||||
|
end
|
||||||
|
item
|
||||||
|
Name = 'REF_CLIENTE'
|
||||||
|
DataType = datString
|
||||||
|
Size = 255
|
||||||
|
end
|
||||||
|
item
|
||||||
|
Name = 'NIF_CIF'
|
||||||
|
DataType = datString
|
||||||
|
Size = 15
|
||||||
|
end
|
||||||
|
item
|
||||||
|
Name = 'NOMBRE'
|
||||||
|
DataType = datString
|
||||||
|
Size = 255
|
||||||
|
end
|
||||||
|
item
|
||||||
|
Name = 'PERSONA_CONTACTO'
|
||||||
|
DataType = datString
|
||||||
|
Size = 255
|
||||||
|
end
|
||||||
|
item
|
||||||
|
Name = 'CALLE_FISCAL'
|
||||||
|
DataType = datString
|
||||||
|
Size = 255
|
||||||
|
end
|
||||||
|
item
|
||||||
|
Name = 'CALLE_ENVIO'
|
||||||
|
DataType = datString
|
||||||
|
Size = 255
|
||||||
|
end
|
||||||
|
item
|
||||||
|
Name = 'POBLACION_FISCAL'
|
||||||
|
DataType = datString
|
||||||
|
Size = 255
|
||||||
|
end
|
||||||
|
item
|
||||||
|
Name = 'POBLACION_ENVIO'
|
||||||
|
DataType = datString
|
||||||
|
Size = 255
|
||||||
|
end
|
||||||
|
item
|
||||||
|
Name = 'PROVINCIA_FISCAL'
|
||||||
|
DataType = datString
|
||||||
|
Size = 255
|
||||||
|
end
|
||||||
|
item
|
||||||
|
Name = 'PROVINCIA_ENVIO'
|
||||||
|
DataType = datString
|
||||||
|
Size = 255
|
||||||
|
end
|
||||||
|
item
|
||||||
|
Name = 'CODIGO_POSTAL_FISCAL'
|
||||||
|
DataType = datString
|
||||||
|
Size = 10
|
||||||
|
end
|
||||||
|
item
|
||||||
|
Name = 'CODIGO_POSTAL_ENVIO'
|
||||||
|
DataType = datString
|
||||||
|
Size = 10
|
||||||
|
end>
|
||||||
|
Params = <
|
||||||
|
item
|
||||||
|
Name = 'ID'
|
||||||
|
DataType = datInteger
|
||||||
|
Value = ''
|
||||||
|
end>
|
||||||
|
LogChanges = False
|
||||||
|
StreamingOptions = [soDisableEventsWhileStreaming]
|
||||||
|
RemoteFetchEnabled = False
|
||||||
|
LocalSchema = schReport
|
||||||
|
LocalDataStreamer = DABin2DataStreamer1
|
||||||
|
LogicalName = 'Informe_Etiquetas'
|
||||||
|
IndexDefs = <>
|
||||||
|
Left = 416
|
||||||
|
Top = 128
|
||||||
|
end
|
||||||
end
|
end
|
||||||
|
|||||||
@ -61,6 +61,9 @@ type
|
|||||||
frxPDFExport1: TfrxPDFExport;
|
frxPDFExport1: TfrxPDFExport;
|
||||||
DABin2DataStreamer1: TDABin2DataStreamer;
|
DABin2DataStreamer1: TDABin2DataStreamer;
|
||||||
schReport: TDASchema;
|
schReport: TDASchema;
|
||||||
|
frxDBEtiquetas: TfrxDBDataset;
|
||||||
|
DADSEtiquetas: TDADataSource;
|
||||||
|
tbl_Etiquetas: TDAMemDataTable;
|
||||||
procedure DataModuleCreate(Sender: TObject);
|
procedure DataModuleCreate(Sender: TObject);
|
||||||
procedure DataModuleDestroy(Sender: TObject);
|
procedure DataModuleDestroy(Sender: TObject);
|
||||||
private
|
private
|
||||||
@ -174,7 +177,7 @@ function TRptAlbaranesCliente.GenerarEtiquetas(const AListaID : TIntegerArray; c
|
|||||||
var
|
var
|
||||||
i: Integer;
|
i: Integer;
|
||||||
AInforme: Variant;
|
AInforme: Variant;
|
||||||
|
Cadena : String;
|
||||||
begin
|
begin
|
||||||
Result := Binary.Create;
|
Result := Binary.Create;
|
||||||
try
|
try
|
||||||
@ -183,9 +186,9 @@ begin
|
|||||||
begin
|
begin
|
||||||
FConnection.BeginTransaction; //<--- Creo que no va a hacer falta. "PUES SI ES NECESARIO"
|
FConnection.BeginTransaction; //<--- Creo que no va a hacer falta. "PUES SI ES NECESARIO"
|
||||||
try
|
try
|
||||||
tbl_Cabecera.Active := False;
|
tbl_Etiquetas.Active := False;
|
||||||
tbl_Cabecera.ParamByName('ID').AsInteger := AListaID.Items[i];
|
tbl_Etiquetas.ParamByName('ID').AsInteger := AListaID.Items[i];
|
||||||
tbl_Cabecera.Active := True;
|
tbl_Etiquetas.Active := True;
|
||||||
|
|
||||||
AInforme := DarRutaFichero(DarRutaInformes, rptInfEtiquetas);
|
AInforme := DarRutaFichero(DarRutaInformes, rptInfEtiquetas);
|
||||||
if VarIsNull(AInforme) then
|
if VarIsNull(AInforme) then
|
||||||
@ -193,7 +196,7 @@ begin
|
|||||||
|
|
||||||
frxReport.LoadFromFile(AInforme, True);
|
frxReport.LoadFromFile(AInforme, True);
|
||||||
|
|
||||||
frxReport.Variables.Variables['Mercancia'] := VarToStr(AMercancia);
|
frxReport.Variables.Variables['Mercancia'] := '''' + AMercancia + '''';
|
||||||
frxReport.Variables.Variables['Bultos'] := ABultos;
|
frxReport.Variables.Variables['Bultos'] := ABultos;
|
||||||
frxReport.PrepareReport(False);
|
frxReport.PrepareReport(False);
|
||||||
finally
|
finally
|
||||||
|
|||||||
@ -108,6 +108,10 @@ object srvAlbaranesCliente: TsrvAlbaranesCliente
|
|||||||
DatasetField = 'REF_FACTURA'
|
DatasetField = 'REF_FACTURA'
|
||||||
TableField = 'REF_FACTURA'
|
TableField = 'REF_FACTURA'
|
||||||
end
|
end
|
||||||
|
item
|
||||||
|
DatasetField = 'ID_DIRECCION'
|
||||||
|
TableField = 'ID_DIRECCION'
|
||||||
|
end
|
||||||
item
|
item
|
||||||
DatasetField = 'CALLE'
|
DatasetField = 'CALLE'
|
||||||
TableField = 'CALLE'
|
TableField = 'CALLE'
|
||||||
@ -204,10 +208,6 @@ object srvAlbaranesCliente: TsrvAlbaranesCliente
|
|||||||
DatasetField = 'FECHA_RECEPCION'
|
DatasetField = 'FECHA_RECEPCION'
|
||||||
TableField = 'FECHA_RECEPCION'
|
TableField = 'FECHA_RECEPCION'
|
||||||
end
|
end
|
||||||
item
|
|
||||||
DatasetField = 'ID_DIRECCION'
|
|
||||||
TableField = 'ID_DIRECCION'
|
|
||||||
end
|
|
||||||
item
|
item
|
||||||
DatasetField = 'DESCUENTO2'
|
DatasetField = 'DESCUENTO2'
|
||||||
TableField = 'DESCUENTO2'
|
TableField = 'DESCUENTO2'
|
||||||
@ -318,6 +318,7 @@ object srvAlbaranesCliente: TsrvAlbaranesCliente
|
|||||||
item
|
item
|
||||||
Name = 'ID_DIRECCION'
|
Name = 'ID_DIRECCION'
|
||||||
DataType = datInteger
|
DataType = datInteger
|
||||||
|
DictionaryEntry = 'AlbaranesCliente_ID_DIRECCION'
|
||||||
end
|
end
|
||||||
item
|
item
|
||||||
Name = 'CALLE'
|
Name = 'CALLE'
|
||||||
@ -448,16 +449,19 @@ object srvAlbaranesCliente: TsrvAlbaranesCliente
|
|||||||
end
|
end
|
||||||
item
|
item
|
||||||
Name = 'DESCUENTO2'
|
Name = 'DESCUENTO2'
|
||||||
DataType = datCurrency
|
DataType = datFloat
|
||||||
|
DictionaryEntry = 'AlbaranesCliente_DESCUENTO2'
|
||||||
end
|
end
|
||||||
item
|
item
|
||||||
Name = 'IMPORTE_DESCUENTO2'
|
Name = 'IMPORTE_DESCUENTO2'
|
||||||
DataType = datCurrency
|
DataType = datCurrency
|
||||||
|
DictionaryEntry = 'AlbaranesCliente_IMPORTE_DESCUENTO2'
|
||||||
end
|
end
|
||||||
item
|
item
|
||||||
Name = 'DATOS_BANCARIOS'
|
Name = 'DATOS_BANCARIOS'
|
||||||
DataType = datString
|
DataType = datString
|
||||||
Size = 255
|
Size = 255
|
||||||
|
DictionaryEntry = 'AlbaranesCliente_DATOS_BANCARIOS'
|
||||||
end>
|
end>
|
||||||
end
|
end
|
||||||
item
|
item
|
||||||
@ -882,17 +886,17 @@ object srvAlbaranesCliente: TsrvAlbaranesCliente
|
|||||||
end
|
end
|
||||||
item
|
item
|
||||||
Name = 'IMPORTE_NETO'
|
Name = 'IMPORTE_NETO'
|
||||||
DataType = datCurrency
|
DataType = datDecimal
|
||||||
Value = ''
|
Value = ''
|
||||||
end
|
end
|
||||||
item
|
item
|
||||||
Name = 'IMPORTE_PORTE'
|
Name = 'IMPORTE_PORTE'
|
||||||
DataType = datCurrency
|
DataType = datDecimal
|
||||||
Value = ''
|
Value = ''
|
||||||
end
|
end
|
||||||
item
|
item
|
||||||
Name = 'DESCUENTO'
|
Name = 'DESCUENTO'
|
||||||
DataType = datCurrency
|
DataType = datFloat
|
||||||
Value = ''
|
Value = ''
|
||||||
end
|
end
|
||||||
item
|
item
|
||||||
@ -902,7 +906,7 @@ object srvAlbaranesCliente: TsrvAlbaranesCliente
|
|||||||
end
|
end
|
||||||
item
|
item
|
||||||
Name = 'BASE_IMPONIBLE'
|
Name = 'BASE_IMPONIBLE'
|
||||||
DataType = datCurrency
|
DataType = datDecimal
|
||||||
Value = ''
|
Value = ''
|
||||||
end
|
end
|
||||||
item
|
item
|
||||||
@ -912,12 +916,12 @@ object srvAlbaranesCliente: TsrvAlbaranesCliente
|
|||||||
end
|
end
|
||||||
item
|
item
|
||||||
Name = 'IMPORTE_IVA'
|
Name = 'IMPORTE_IVA'
|
||||||
DataType = datCurrency
|
DataType = datDecimal
|
||||||
Value = ''
|
Value = ''
|
||||||
end
|
end
|
||||||
item
|
item
|
||||||
Name = 'IMPORTE_TOTAL'
|
Name = 'IMPORTE_TOTAL'
|
||||||
DataType = datCurrency
|
DataType = datDecimal
|
||||||
Value = ''
|
Value = ''
|
||||||
end
|
end
|
||||||
item
|
item
|
||||||
@ -973,7 +977,7 @@ object srvAlbaranesCliente: TsrvAlbaranesCliente
|
|||||||
end
|
end
|
||||||
item
|
item
|
||||||
Name = 'DESCUENTO2'
|
Name = 'DESCUENTO2'
|
||||||
DataType = datCurrency
|
DataType = datFloat
|
||||||
Value = ''
|
Value = ''
|
||||||
end
|
end
|
||||||
item
|
item
|
||||||
@ -1137,7 +1141,7 @@ object srvAlbaranesCliente: TsrvAlbaranesCliente
|
|||||||
end
|
end
|
||||||
item
|
item
|
||||||
Name = 'DESCUENTO'
|
Name = 'DESCUENTO'
|
||||||
DataType = datCurrency
|
DataType = datFloat
|
||||||
Value = ''
|
Value = ''
|
||||||
end
|
end
|
||||||
item
|
item
|
||||||
@ -1218,7 +1222,7 @@ object srvAlbaranesCliente: TsrvAlbaranesCliente
|
|||||||
end
|
end
|
||||||
item
|
item
|
||||||
Name = 'DESCUENTO2'
|
Name = 'DESCUENTO2'
|
||||||
DataType = datCurrency
|
DataType = datFloat
|
||||||
Value = ''
|
Value = ''
|
||||||
end
|
end
|
||||||
item
|
item
|
||||||
@ -2125,6 +2129,24 @@ object srvAlbaranesCliente: TsrvAlbaranesCliente
|
|||||||
item
|
item
|
||||||
Name = 'AlbaranesCliente_Detalle_Color_COLOR12'
|
Name = 'AlbaranesCliente_Detalle_Color_COLOR12'
|
||||||
DataType = datInteger
|
DataType = datInteger
|
||||||
|
end
|
||||||
|
item
|
||||||
|
Name = 'AlbaranesCliente_ID_DIRECCION'
|
||||||
|
DataType = datInteger
|
||||||
|
end
|
||||||
|
item
|
||||||
|
Name = 'AlbaranesCliente_DESCUENTO2'
|
||||||
|
DataType = datFloat
|
||||||
|
DisplayLabel = 'DESCUENTO2'
|
||||||
|
end
|
||||||
|
item
|
||||||
|
Name = 'AlbaranesCliente_IMPORTE_DESCUENTO2'
|
||||||
|
DataType = datCurrency
|
||||||
|
end
|
||||||
|
item
|
||||||
|
Name = 'AlbaranesCliente_DATOS_BANCARIOS'
|
||||||
|
DataType = datString
|
||||||
|
Size = 255
|
||||||
end>
|
end>
|
||||||
Left = 56
|
Left = 56
|
||||||
Top = 144
|
Top = 144
|
||||||
|
|||||||
@ -50,7 +50,9 @@ requires
|
|||||||
adortl,
|
adortl,
|
||||||
RemObjects_Core_D11,
|
RemObjects_Core_D11,
|
||||||
dxLayoutControlD11,
|
dxLayoutControlD11,
|
||||||
dxComnD11;
|
dxComnD11,
|
||||||
|
cxPageControlD11,
|
||||||
|
cxExtEditorsD11;
|
||||||
|
|
||||||
contains
|
contains
|
||||||
uAlbaranesClienteViewRegister in 'uAlbaranesClienteViewRegister.pas',
|
uAlbaranesClienteViewRegister in 'uAlbaranesClienteViewRegister.pas',
|
||||||
|
|||||||
@ -54,32 +54,34 @@
|
|||||||
<DelphiCompile Include="AlbaranesCliente_view.dpk">
|
<DelphiCompile Include="AlbaranesCliente_view.dpk">
|
||||||
<MainSource>MainSource</MainSource>
|
<MainSource>MainSource</MainSource>
|
||||||
</DelphiCompile>
|
</DelphiCompile>
|
||||||
<DCCReference Include="..\..\Facturas de cliente\adortl.dcp" />
|
<DCCReference Include="..\..\Pedidos de cliente\Views\adortl.dcp" />
|
||||||
<DCCReference Include="..\..\Facturas de cliente\AlbaranesCliente_controller.dcp" />
|
<DCCReference Include="..\..\Pedidos de cliente\Views\AlbaranesCliente_controller.dcp" />
|
||||||
<DCCReference Include="..\..\Facturas de cliente\AlbaranesCliente_model.dcp" />
|
<DCCReference Include="..\..\Pedidos de cliente\Views\AlbaranesCliente_model.dcp" />
|
||||||
<DCCReference Include="..\..\Facturas de cliente\AlbCli_FacCli_relation.dcp" />
|
<DCCReference Include="..\..\Pedidos de cliente\Views\AlbCli_FacCli_relation.dcp" />
|
||||||
<DCCReference Include="..\..\Facturas de cliente\Almacenes_controller.dcp" />
|
<DCCReference Include="..\..\Pedidos de cliente\Views\Almacenes_controller.dcp" />
|
||||||
<DCCReference Include="..\..\Facturas de cliente\ApplicationBase.dcp" />
|
<DCCReference Include="..\..\Pedidos de cliente\Views\ApplicationBase.dcp" />
|
||||||
<DCCReference Include="..\..\Facturas de cliente\Articulos_view.dcp" />
|
<DCCReference Include="..\..\Pedidos de cliente\Views\Articulos_view.dcp" />
|
||||||
<DCCReference Include="..\..\Facturas de cliente\Base.dcp" />
|
<DCCReference Include="..\..\Pedidos de cliente\Views\Base.dcp" />
|
||||||
<DCCReference Include="..\..\Facturas de cliente\cxDataD11.dcp" />
|
<DCCReference Include="..\..\Pedidos de cliente\Views\cxDataD11.dcp" />
|
||||||
<DCCReference Include="..\..\Facturas de cliente\cxEditorsD11.dcp" />
|
<DCCReference Include="..\..\Pedidos de cliente\Views\cxEditorsD11.dcp" />
|
||||||
<DCCReference Include="..\..\Facturas de cliente\cxLibraryD11.dcp" />
|
<DCCReference Include="..\..\Pedidos de cliente\Views\cxExtEditorsD11.dcp" />
|
||||||
<DCCReference Include="..\..\Facturas de cliente\DataAbstract_Core_D11.dcp" />
|
<DCCReference Include="..\..\Pedidos de cliente\Views\cxLibraryD11.dcp" />
|
||||||
<DCCReference Include="..\..\Facturas de cliente\dbrtl.dcp" />
|
<DCCReference Include="..\..\Pedidos de cliente\Views\cxPageControlD11.dcp" />
|
||||||
<DCCReference Include="..\..\Facturas de cliente\dsnap.dcp" />
|
<DCCReference Include="..\..\Pedidos de cliente\Views\DataAbstract_Core_D11.dcp" />
|
||||||
<DCCReference Include="..\..\Facturas de cliente\dxComnD11.dcp" />
|
<DCCReference Include="..\..\Pedidos de cliente\Views\dbrtl.dcp" />
|
||||||
<DCCReference Include="..\..\Facturas de cliente\dxCoreD11.dcp" />
|
<DCCReference Include="..\..\Pedidos de cliente\Views\dsnap.dcp" />
|
||||||
<DCCReference Include="..\..\Facturas de cliente\dxGDIPlusD11.dcp" />
|
<DCCReference Include="..\..\Pedidos de cliente\Views\dxComnD11.dcp" />
|
||||||
<DCCReference Include="..\..\Facturas de cliente\dxLayoutControlD11.dcp" />
|
<DCCReference Include="..\..\Pedidos de cliente\Views\dxCoreD11.dcp" />
|
||||||
<DCCReference Include="..\..\Facturas de cliente\dxThemeD11.dcp" />
|
<DCCReference Include="..\..\Pedidos de cliente\Views\dxGDIPlusD11.dcp" />
|
||||||
<DCCReference Include="..\..\Facturas de cliente\GUIBase.dcp" />
|
<DCCReference Include="..\..\Pedidos de cliente\Views\dxLayoutControlD11.dcp" />
|
||||||
<DCCReference Include="..\..\Facturas de cliente\RemObjects_Core_D11.dcp" />
|
<DCCReference Include="..\..\Pedidos de cliente\Views\dxThemeD11.dcp" />
|
||||||
<DCCReference Include="..\..\Facturas de cliente\rtl.dcp" />
|
<DCCReference Include="..\..\Pedidos de cliente\Views\GUIBase.dcp" />
|
||||||
<DCCReference Include="..\..\Facturas de cliente\vcl.dcp" />
|
<DCCReference Include="..\..\Pedidos de cliente\Views\RemObjects_Core_D11.dcp" />
|
||||||
<DCCReference Include="..\..\Facturas de cliente\vcldb.dcp" />
|
<DCCReference Include="..\..\Pedidos de cliente\Views\rtl.dcp" />
|
||||||
<DCCReference Include="..\..\Facturas de cliente\vcljpg.dcp" />
|
<DCCReference Include="..\..\Pedidos de cliente\Views\vcl.dcp" />
|
||||||
<DCCReference Include="..\..\Facturas de cliente\vclx.dcp" />
|
<DCCReference Include="..\..\Pedidos de cliente\Views\vcldb.dcp" />
|
||||||
|
<DCCReference Include="..\..\Pedidos de cliente\Views\vcljpg.dcp" />
|
||||||
|
<DCCReference Include="..\..\Pedidos de cliente\Views\vclx.dcp" />
|
||||||
<DCCReference Include="uAlbaranesClienteViewRegister.pas" />
|
<DCCReference Include="uAlbaranesClienteViewRegister.pas" />
|
||||||
<DCCReference Include="uEditorAlbaranCliente.pas">
|
<DCCReference Include="uEditorAlbaranCliente.pas">
|
||||||
<Form>fEditorAlbaranCliente</Form>
|
<Form>fEditorAlbaranCliente</Form>
|
||||||
|
|||||||
@ -212,14 +212,14 @@ inherited fEditorAlbaranCliente: TfEditorAlbaranCliente
|
|||||||
ExplicitLeft = 278
|
ExplicitLeft = 278
|
||||||
ExplicitTop = 0
|
ExplicitTop = 0
|
||||||
end
|
end
|
||||||
inherited ToolButton14: TToolButton [4]
|
inherited ToolButton14: TToolButton
|
||||||
Left = 334
|
Left = 334
|
||||||
Top = 0
|
Top = 0
|
||||||
Wrap = False
|
Wrap = False
|
||||||
ExplicitLeft = 334
|
ExplicitLeft = 334
|
||||||
ExplicitTop = 0
|
ExplicitTop = 0
|
||||||
end
|
end
|
||||||
inherited FontName: TJvFontComboBox [5]
|
inherited FontName: TJvFontComboBox
|
||||||
Left = 399
|
Left = 399
|
||||||
Top = 0
|
Top = 0
|
||||||
ExplicitLeft = 399
|
ExplicitLeft = 399
|
||||||
@ -228,10 +228,10 @@ inherited fEditorAlbaranCliente: TfEditorAlbaranCliente
|
|||||||
inherited FontSize: TEdit
|
inherited FontSize: TEdit
|
||||||
Left = 544
|
Left = 544
|
||||||
Top = 0
|
Top = 0
|
||||||
Width = 218
|
Width = 234
|
||||||
ExplicitLeft = 544
|
ExplicitLeft = 544
|
||||||
ExplicitTop = 0
|
ExplicitTop = 0
|
||||||
ExplicitWidth = 218
|
ExplicitWidth = 234
|
||||||
end
|
end
|
||||||
inherited ToolButton13: TToolButton [7]
|
inherited ToolButton13: TToolButton [7]
|
||||||
Left = 0
|
Left = 0
|
||||||
@ -247,40 +247,37 @@ inherited fEditorAlbaranCliente: TfEditorAlbaranCliente
|
|||||||
ExplicitLeft = 0
|
ExplicitLeft = 0
|
||||||
ExplicitTop = 27
|
ExplicitTop = 27
|
||||||
end
|
end
|
||||||
inherited ToolButton6: TToolButton [9]
|
inherited ToolButton6: TToolButton
|
||||||
Left = 17
|
Left = 17
|
||||||
Top = 27
|
Top = 27
|
||||||
ExplicitLeft = 17
|
ExplicitLeft = 17
|
||||||
ExplicitTop = 27
|
ExplicitTop = 27
|
||||||
end
|
end
|
||||||
inherited ToolButton7: TToolButton [10]
|
inherited ToolButton7: TToolButton
|
||||||
Left = 83
|
Left = 83
|
||||||
Top = 27
|
Top = 27
|
||||||
ExplicitLeft = 83
|
ExplicitLeft = 83
|
||||||
ExplicitTop = 27
|
ExplicitTop = 27
|
||||||
end
|
end
|
||||||
inherited ToolButton8: TToolButton [11]
|
inherited ToolButton8: TToolButton
|
||||||
Left = 150
|
Left = 150
|
||||||
Top = 27
|
Top = 27
|
||||||
Wrap = False
|
|
||||||
ExplicitLeft = 150
|
ExplicitLeft = 150
|
||||||
ExplicitTop = 27
|
ExplicitTop = 27
|
||||||
end
|
end
|
||||||
inherited ToolButton12: TToolButton [12]
|
inherited ToolButton12: TToolButton
|
||||||
Left = 233
|
Left = 233
|
||||||
Top = 27
|
Top = 27
|
||||||
Wrap = False
|
|
||||||
ExplicitLeft = 233
|
ExplicitLeft = 233
|
||||||
ExplicitTop = 27
|
ExplicitTop = 27
|
||||||
ExplicitHeight = 22
|
|
||||||
end
|
end
|
||||||
inherited ToolButton9: TToolButton [13]
|
inherited ToolButton9: TToolButton
|
||||||
Left = 241
|
Left = 241
|
||||||
Top = 27
|
Top = 27
|
||||||
ExplicitLeft = 241
|
ExplicitLeft = 241
|
||||||
ExplicitTop = 27
|
ExplicitTop = 27
|
||||||
end
|
end
|
||||||
inherited ToolButton10: TToolButton [14]
|
inherited ToolButton10: TToolButton
|
||||||
Left = 386
|
Left = 386
|
||||||
Top = 27
|
Top = 27
|
||||||
ExplicitLeft = 386
|
ExplicitLeft = 386
|
||||||
@ -392,14 +389,18 @@ inherited fEditorAlbaranCliente: TfEditorAlbaranCliente
|
|||||||
ExplicitWidth = 855
|
ExplicitWidth = 855
|
||||||
ExplicitHeight = 143
|
ExplicitHeight = 143
|
||||||
inherited Bevel3: TBevel
|
inherited Bevel3: TBevel
|
||||||
Left = 437
|
Left = 338
|
||||||
Height = 201
|
Height = 201
|
||||||
ExplicitLeft = 437
|
ExplicitLeft = 338
|
||||||
ExplicitHeight = 201
|
ExplicitHeight = 201
|
||||||
end
|
end
|
||||||
inherited Bevel4: TBevel
|
inherited Bevel4: TBevel
|
||||||
Left = 570
|
Left = 471
|
||||||
ExplicitLeft = 570
|
Width = 342
|
||||||
|
Height = 9
|
||||||
|
ExplicitLeft = 471
|
||||||
|
ExplicitWidth = 342
|
||||||
|
ExplicitHeight = 9
|
||||||
end
|
end
|
||||||
inherited ImporteDto: TcxDBCurrencyEdit
|
inherited ImporteDto: TcxDBCurrencyEdit
|
||||||
Style.LookAndFeel.SkinName = ''
|
Style.LookAndFeel.SkinName = ''
|
||||||
@ -409,22 +410,24 @@ inherited fEditorAlbaranCliente: TfEditorAlbaranCliente
|
|||||||
StyleHot.LookAndFeel.SkinName = ''
|
StyleHot.LookAndFeel.SkinName = ''
|
||||||
end
|
end
|
||||||
inherited ImporteIVA: TcxDBCurrencyEdit
|
inherited ImporteIVA: TcxDBCurrencyEdit
|
||||||
Left = 641
|
Left = 542
|
||||||
Style.LookAndFeel.SkinName = ''
|
Style.LookAndFeel.SkinName = ''
|
||||||
Style.IsFontAssigned = True
|
Style.IsFontAssigned = True
|
||||||
StyleDisabled.LookAndFeel.SkinName = ''
|
StyleDisabled.LookAndFeel.SkinName = ''
|
||||||
StyleFocused.LookAndFeel.SkinName = ''
|
StyleFocused.LookAndFeel.SkinName = ''
|
||||||
StyleHot.LookAndFeel.SkinName = ''
|
StyleHot.LookAndFeel.SkinName = ''
|
||||||
ExplicitLeft = 641
|
ExplicitLeft = 542
|
||||||
end
|
end
|
||||||
inherited ImporteTotal: TcxDBCurrencyEdit
|
inherited ImporteTotal: TcxDBCurrencyEdit
|
||||||
Left = 570
|
Left = 471
|
||||||
Style.LookAndFeel.SkinName = ''
|
Style.LookAndFeel.SkinName = ''
|
||||||
Style.IsFontAssigned = True
|
Style.IsFontAssigned = True
|
||||||
StyleDisabled.LookAndFeel.SkinName = ''
|
StyleDisabled.LookAndFeel.SkinName = ''
|
||||||
StyleFocused.LookAndFeel.SkinName = ''
|
StyleFocused.LookAndFeel.SkinName = ''
|
||||||
StyleHot.LookAndFeel.SkinName = ''
|
StyleHot.LookAndFeel.SkinName = ''
|
||||||
ExplicitLeft = 570
|
ExplicitLeft = 471
|
||||||
|
ExplicitWidth = 90
|
||||||
|
Width = 90
|
||||||
end
|
end
|
||||||
inherited edtDescuento: TcxDBSpinEdit
|
inherited edtDescuento: TcxDBSpinEdit
|
||||||
Style.LookAndFeel.SkinName = ''
|
Style.LookAndFeel.SkinName = ''
|
||||||
@ -434,41 +437,41 @@ inherited fEditorAlbaranCliente: TfEditorAlbaranCliente
|
|||||||
StyleHot.LookAndFeel.SkinName = ''
|
StyleHot.LookAndFeel.SkinName = ''
|
||||||
end
|
end
|
||||||
inherited edtIVA: TcxDBSpinEdit
|
inherited edtIVA: TcxDBSpinEdit
|
||||||
Left = 570
|
Left = 471
|
||||||
Style.LookAndFeel.SkinName = ''
|
Style.LookAndFeel.SkinName = ''
|
||||||
Style.IsFontAssigned = True
|
Style.IsFontAssigned = True
|
||||||
StyleDisabled.LookAndFeel.SkinName = ''
|
StyleDisabled.LookAndFeel.SkinName = ''
|
||||||
StyleFocused.LookAndFeel.SkinName = ''
|
StyleFocused.LookAndFeel.SkinName = ''
|
||||||
StyleHot.LookAndFeel.SkinName = ''
|
StyleHot.LookAndFeel.SkinName = ''
|
||||||
ExplicitLeft = 570
|
ExplicitLeft = 471
|
||||||
end
|
end
|
||||||
inherited ImporteBase: TcxDBCurrencyEdit
|
inherited ImporteBase: TcxDBCurrencyEdit
|
||||||
Left = 570
|
Left = 471
|
||||||
DataBinding.DataField = 'IMPORTE_NETO'
|
DataBinding.DataField = 'IMPORTE_NETO'
|
||||||
Style.LookAndFeel.SkinName = ''
|
Style.LookAndFeel.SkinName = ''
|
||||||
Style.IsFontAssigned = True
|
Style.IsFontAssigned = True
|
||||||
StyleDisabled.LookAndFeel.SkinName = ''
|
StyleDisabled.LookAndFeel.SkinName = ''
|
||||||
StyleFocused.LookAndFeel.SkinName = ''
|
StyleFocused.LookAndFeel.SkinName = ''
|
||||||
StyleHot.LookAndFeel.SkinName = ''
|
StyleHot.LookAndFeel.SkinName = ''
|
||||||
ExplicitLeft = 570
|
ExplicitLeft = 471
|
||||||
end
|
end
|
||||||
inherited edtRE: TcxDBSpinEdit
|
inherited edtRE: TcxDBSpinEdit
|
||||||
Left = 570
|
Left = 471
|
||||||
Style.LookAndFeel.SkinName = ''
|
Style.LookAndFeel.SkinName = ''
|
||||||
Style.IsFontAssigned = True
|
Style.IsFontAssigned = True
|
||||||
StyleDisabled.LookAndFeel.SkinName = ''
|
StyleDisabled.LookAndFeel.SkinName = ''
|
||||||
StyleFocused.LookAndFeel.SkinName = ''
|
StyleFocused.LookAndFeel.SkinName = ''
|
||||||
StyleHot.LookAndFeel.SkinName = ''
|
StyleHot.LookAndFeel.SkinName = ''
|
||||||
ExplicitLeft = 570
|
ExplicitLeft = 471
|
||||||
end
|
end
|
||||||
inherited ImporteRE: TcxDBCurrencyEdit
|
inherited ImporteRE: TcxDBCurrencyEdit
|
||||||
Left = 641
|
Left = 542
|
||||||
Style.LookAndFeel.SkinName = ''
|
Style.LookAndFeel.SkinName = ''
|
||||||
Style.IsFontAssigned = True
|
Style.IsFontAssigned = True
|
||||||
StyleDisabled.LookAndFeel.SkinName = ''
|
StyleDisabled.LookAndFeel.SkinName = ''
|
||||||
StyleFocused.LookAndFeel.SkinName = ''
|
StyleFocused.LookAndFeel.SkinName = ''
|
||||||
StyleHot.LookAndFeel.SkinName = ''
|
StyleHot.LookAndFeel.SkinName = ''
|
||||||
ExplicitLeft = 641
|
ExplicitLeft = 542
|
||||||
end
|
end
|
||||||
inherited eImporteNeto: TcxDBCurrencyEdit
|
inherited eImporteNeto: TcxDBCurrencyEdit
|
||||||
Style.LookAndFeel.SkinName = ''
|
Style.LookAndFeel.SkinName = ''
|
||||||
@ -491,14 +494,20 @@ inherited fEditorAlbaranCliente: TfEditorAlbaranCliente
|
|||||||
StyleHot.LookAndFeel.SkinName = ''
|
StyleHot.LookAndFeel.SkinName = ''
|
||||||
end
|
end
|
||||||
inherited bTiposIVA: TButton
|
inherited bTiposIVA: TButton
|
||||||
Left = 289
|
Left = 190
|
||||||
ExplicitLeft = 289
|
ExplicitLeft = 190
|
||||||
end
|
end
|
||||||
inherited cbRecargoEquivalencia: TcxDBCheckBox
|
inherited cbRecargoEquivalencia: TcxDBCheckBox
|
||||||
Style.LookAndFeel.SkinName = ''
|
Style.LookAndFeel.SkinName = ''
|
||||||
StyleDisabled.LookAndFeel.SkinName = ''
|
StyleDisabled.LookAndFeel.SkinName = ''
|
||||||
StyleFocused.LookAndFeel.SkinName = ''
|
StyleFocused.LookAndFeel.SkinName = ''
|
||||||
StyleHot.LookAndFeel.SkinName = ''
|
StyleHot.LookAndFeel.SkinName = ''
|
||||||
|
ExplicitWidth = 221
|
||||||
|
Width = 221
|
||||||
|
end
|
||||||
|
inherited Panel1: TPanel
|
||||||
|
Width = 185
|
||||||
|
ExplicitWidth = 185
|
||||||
end
|
end
|
||||||
end
|
end
|
||||||
end
|
end
|
||||||
|
|||||||
@ -1,12 +1,9 @@
|
|||||||
inherited fEditorAlbaranesClientePreview: TfEditorAlbaranesClientePreview
|
inherited fEditorAlbaranesClientePreview: TfEditorAlbaranesClientePreview
|
||||||
Caption = 'Previsualizar el albar'#225'n de cliente'
|
Caption = 'Previsualizar el albar'#225'n de cliente'
|
||||||
ExplicitWidth = 320
|
|
||||||
ExplicitHeight = 240
|
|
||||||
PixelsPerInch = 96
|
PixelsPerInch = 96
|
||||||
TextHeight = 13
|
TextHeight = 13
|
||||||
inherited TBXDock: TSpTBXDock
|
inherited TBXDock: TSpTBXDock
|
||||||
inherited TBXToolbar1: TSpTBXToolbar
|
inherited TBXToolbar1: TSpTBXToolbar
|
||||||
ExplicitWidth = 540
|
|
||||||
object TBXItem58: TSpTBXItem [1]
|
object TBXItem58: TSpTBXItem [1]
|
||||||
Action = actExportarRTF
|
Action = actExportarRTF
|
||||||
Images = SmallImages
|
Images = SmallImages
|
||||||
|
|||||||
@ -5,14 +5,13 @@ interface
|
|||||||
uses
|
uses
|
||||||
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
|
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
|
||||||
Dialogs, uEditorPreview, frxExportImage, frxExportPDF, frxDCtrl, frxClass,
|
Dialogs, uEditorPreview, frxExportImage, frxExportPDF, frxDCtrl, frxClass,
|
||||||
// frxDMPExport, frxGradient, frxChBox, frxCross, frxRich, frxChart, frxOLE,
|
|
||||||
// frxBarcode, JvAppStorage, JvAppRegistryStorage, JvComponentBase,
|
|
||||||
JvFormPlacement, ImgList, PngImageList, StdActns, ActnList, ComCtrls,
|
JvFormPlacement, ImgList, PngImageList, StdActns, ActnList, ComCtrls,
|
||||||
TB2ExtItems, SpTBXItem, TB2Item, TB2Dock, TB2Toolbar, pngimage,
|
TB2ExtItems, SpTBXItem, TB2Item, TB2Dock, TB2Toolbar, pngimage,
|
||||||
ExtCtrls, JvExControls, JvComponent, JvNavigationPane, uIEditorAlbaranesClientePreview,
|
ExtCtrls, JvExControls, JvComponent, JvNavigationPane, uIEditorAlbaranesClientePreview,
|
||||||
JvExComCtrls, JvStatusBar, frxDMPExport, frxGradient, frxChBox, frxCross,
|
JvExComCtrls, JvStatusBar, frxDMPExport, frxGradient, frxChBox, frxCross,
|
||||||
frxRich, frxOLE, frxBarcode, JvAppStorage, JvAppRegistryStorage,
|
frxRich, frxOLE, frxBarcode, JvAppStorage, JvAppRegistryStorage,
|
||||||
JvComponentBase, frxExportText, frxExportRTF, frxExportMail, frxExportXLS;
|
JvComponentBase, frxExportText, frxExportRTF, frxExportMail, frxExportXLS,
|
||||||
|
StdCtrls, TntStdCtrls, SpTBXEditors;
|
||||||
|
|
||||||
type
|
type
|
||||||
TfEditorAlbaranesClientePreview = class(TfEditorPreview, IEditorAlbaranesClientePreview)
|
TfEditorAlbaranesClientePreview = class(TfEditorPreview, IEditorAlbaranesClientePreview)
|
||||||
|
|||||||
@ -3,15 +3,11 @@ inherited fEditorElegirArticulosAlbaranCliente: TfEditorElegirArticulosAlbaranCl
|
|||||||
ExplicitHeight = 538
|
ExplicitHeight = 538
|
||||||
PixelsPerInch = 96
|
PixelsPerInch = 96
|
||||||
TextHeight = 13
|
TextHeight = 13
|
||||||
inherited JvNavPanelHeader: TJvNavPanelHeader
|
|
||||||
ExplicitTop = 113
|
|
||||||
end
|
|
||||||
inherited TBXDock: TSpTBXDock
|
inherited TBXDock: TSpTBXDock
|
||||||
ExplicitTop = 64
|
|
||||||
inherited tbxMain: TSpTBXToolbar
|
inherited tbxMain: TSpTBXToolbar
|
||||||
Left = 340
|
Left = 399
|
||||||
DockPos = 335
|
DockPos = 335
|
||||||
ExplicitLeft = 340
|
ExplicitLeft = 399
|
||||||
ExplicitWidth = 126
|
ExplicitWidth = 126
|
||||||
end
|
end
|
||||||
inherited tbxFiltro: TSpTBXToolbar
|
inherited tbxFiltro: TSpTBXToolbar
|
||||||
@ -20,12 +16,11 @@ inherited fEditorElegirArticulosAlbaranCliente: TfEditorElegirArticulosAlbaranCl
|
|||||||
ExplicitLeft = 3
|
ExplicitLeft = 3
|
||||||
end
|
end
|
||||||
inherited TBXTMain2: TSpTBXToolbar
|
inherited TBXTMain2: TSpTBXToolbar
|
||||||
Left = 466
|
Left = 525
|
||||||
ExplicitLeft = 466
|
ExplicitLeft = 525
|
||||||
end
|
end
|
||||||
end
|
end
|
||||||
inherited pnlHeader: TPanel
|
inherited pnlHeader: TPanel
|
||||||
ExplicitTop = 0
|
|
||||||
inherited lblTitle: TLabel
|
inherited lblTitle: TLabel
|
||||||
Width = 606
|
Width = 606
|
||||||
end
|
end
|
||||||
|
|||||||
@ -10,7 +10,7 @@ uses
|
|||||||
JvExComCtrls, JvStatusBar, SpTBXItem, TB2ExtItems, TB2Item, TB2Dock,
|
JvExComCtrls, JvStatusBar, SpTBXItem, TB2ExtItems, TB2Item, TB2Dock,
|
||||||
TB2Toolbar, pngimage, ExtCtrls, JvExControls, JvComponent, JvNavigationPane,
|
TB2Toolbar, pngimage, ExtCtrls, JvExControls, JvComponent, JvNavigationPane,
|
||||||
uIEditorElegirArticulosAlbaranesCliente, uDAInterfaces,
|
uIEditorElegirArticulosAlbaranesCliente, uDAInterfaces,
|
||||||
uViewGridBase, uViewGrid, uViewArticulos, StdCtrls;
|
uViewGridBase, uViewGrid, uViewArticulos, StdCtrls, TntStdCtrls, SpTBXEditors;
|
||||||
|
|
||||||
type
|
type
|
||||||
TfEditorElegirArticulosAlbaranCliente = class(TfEditorElegirArticulos, IEditorElegirArticulosAlbaranesCliente)
|
TfEditorElegirArticulosAlbaranCliente = class(TfEditorElegirArticulos, IEditorElegirArticulosAlbaranesCliente)
|
||||||
|
|||||||
@ -30,7 +30,6 @@ type
|
|||||||
procedure SetController (const Value : IAlbaranesClienteController);
|
procedure SetController (const Value : IAlbaranesClienteController);
|
||||||
property Controller : IAlbaranesClienteController read GetController write SetController;
|
property Controller : IAlbaranesClienteController read GetController write SetController;
|
||||||
|
|
||||||
|
|
||||||
function GetViewClienteAlbaran: IViewDatosYSeleccionClienteAlbaran;
|
function GetViewClienteAlbaran: IViewDatosYSeleccionClienteAlbaran;
|
||||||
property ViewClienteAlbaran: IViewDatosYSeleccionClienteAlbaran read GetViewClienteAlbaran;
|
property ViewClienteAlbaran: IViewDatosYSeleccionClienteAlbaran read GetViewClienteAlbaran;
|
||||||
|
|
||||||
|
|||||||
@ -322,13 +322,14 @@ begin
|
|||||||
if FCliente.ID > 0 then
|
if FCliente.ID > 0 then
|
||||||
edtPersonaContacto.Enabled := True;
|
edtPersonaContacto.Enabled := True;
|
||||||
|
|
||||||
if FCliente.Direcciones.RecordCount > 0 then
|
//En noviseda un cliente solo podrá tener una direccion de envio que nunca se tendrá en cuenta para los documentos (facturas, albaranes, etc) solo para las etiquetas y se hace por el informe
|
||||||
ElegirDireccionCliente
|
// if FCliente.Direcciones.RecordCount > 0 then
|
||||||
else begin
|
// ElegirDireccionCliente
|
||||||
|
// else begin
|
||||||
FAlbaran.Edit;
|
FAlbaran.Edit;
|
||||||
FAlbaran.PERSONA_CONTACTO := FCliente.PERSONA_CONTACTO;
|
FAlbaran.PERSONA_CONTACTO := FCliente.PERSONA_CONTACTO;
|
||||||
RefrescarDireccion;
|
RefrescarDireccion;
|
||||||
end;
|
// end;
|
||||||
end
|
end
|
||||||
else begin
|
else begin
|
||||||
dsCliente.DataTable := NIL;
|
dsCliente.DataTable := NIL;
|
||||||
|
|||||||
@ -1,77 +1,95 @@
|
|||||||
inherited frViewDetallesAlbaranCliente: TfrViewDetallesAlbaranCliente
|
inherited frViewDetallesAlbaranCliente: TfrViewDetallesAlbaranCliente
|
||||||
inherited ToolBar1: TToolBar
|
inherited ToolBar1: TToolBar
|
||||||
Height = 117
|
Height = 122
|
||||||
ExplicitHeight = 117
|
ExplicitHeight = 122
|
||||||
inherited FontName: TJvFontComboBox [4]
|
inherited ToolButton13: TToolButton [3]
|
||||||
Left = 56
|
|
||||||
Top = 22
|
|
||||||
ExplicitLeft = 56
|
|
||||||
ExplicitTop = 22
|
|
||||||
end
|
|
||||||
inherited ToolButton14: TToolButton [5]
|
|
||||||
Left = 201
|
|
||||||
end
|
|
||||||
inherited FontSize: TEdit
|
|
||||||
Left = 0
|
Left = 0
|
||||||
Width = 106
|
Top = 0
|
||||||
|
Wrap = True
|
||||||
ExplicitLeft = 0
|
ExplicitLeft = 0
|
||||||
ExplicitWidth = 106
|
ExplicitTop = 0
|
||||||
|
ExplicitHeight = 27
|
||||||
end
|
end
|
||||||
inherited UpDown1: TUpDown
|
inherited ToolButton4: TToolButton [4]
|
||||||
Left = 106
|
Top = 27
|
||||||
ExplicitLeft = 106
|
end
|
||||||
|
inherited ToolButton7: TToolButton [5]
|
||||||
|
Left = 56
|
||||||
|
Top = 27
|
||||||
|
ExplicitLeft = 56
|
||||||
|
ExplicitTop = 27
|
||||||
|
end
|
||||||
|
inherited FontName: TJvFontComboBox [6]
|
||||||
|
Left = 123
|
||||||
|
Top = 27
|
||||||
|
ExplicitLeft = 123
|
||||||
|
ExplicitTop = 27
|
||||||
|
end
|
||||||
|
inherited ToolButton14: TToolButton [7]
|
||||||
|
Left = 268
|
||||||
|
Top = 27
|
||||||
|
ExplicitLeft = 268
|
||||||
|
ExplicitTop = 27
|
||||||
end
|
end
|
||||||
inherited ToolButton9: TToolButton [8]
|
inherited ToolButton9: TToolButton [8]
|
||||||
Left = 123
|
Left = 0
|
||||||
ExplicitLeft = 123
|
Top = 49
|
||||||
|
ExplicitLeft = 0
|
||||||
|
ExplicitTop = 49
|
||||||
end
|
end
|
||||||
inherited ToolButton12: TToolButton [9]
|
inherited ToolButton12: TToolButton [9]
|
||||||
Left = 0
|
Left = 0
|
||||||
|
Top = 49
|
||||||
Wrap = True
|
Wrap = True
|
||||||
ExplicitLeft = 0
|
ExplicitLeft = 0
|
||||||
ExplicitHeight = 30
|
ExplicitTop = 49
|
||||||
|
ExplicitHeight = 27
|
||||||
end
|
end
|
||||||
inherited ToolButton6: TToolButton [10]
|
inherited FontSize: TEdit [10]
|
||||||
Left = 0
|
Left = 0
|
||||||
Top = 74
|
Top = 76
|
||||||
|
Width = 122
|
||||||
ExplicitLeft = 0
|
ExplicitLeft = 0
|
||||||
ExplicitTop = 74
|
ExplicitTop = 76
|
||||||
|
ExplicitWidth = 122
|
||||||
end
|
end
|
||||||
inherited ToolButton7: TToolButton [11]
|
inherited UpDown1: TUpDown [11]
|
||||||
Left = 66
|
Left = 122
|
||||||
Top = 74
|
Top = 76
|
||||||
ExplicitLeft = 66
|
ExplicitLeft = 122
|
||||||
ExplicitTop = 74
|
ExplicitTop = 76
|
||||||
end
|
end
|
||||||
inherited ToolButton8: TToolButton [12]
|
inherited ToolButton6: TToolButton [12]
|
||||||
Left = 133
|
Left = 139
|
||||||
Top = 74
|
Top = 76
|
||||||
Wrap = True
|
ExplicitLeft = 139
|
||||||
ExplicitLeft = 133
|
ExplicitTop = 76
|
||||||
ExplicitTop = 74
|
|
||||||
end
|
end
|
||||||
inherited ToolButton10: TToolButton [13]
|
inherited ToolButton10: TToolButton [13]
|
||||||
Left = 0
|
Left = 205
|
||||||
Top = 96
|
Top = 76
|
||||||
ExplicitLeft = 0
|
Wrap = True
|
||||||
ExplicitTop = 96
|
ExplicitLeft = 205
|
||||||
|
ExplicitTop = 76
|
||||||
end
|
end
|
||||||
inherited ToolButton13: TToolButton [14]
|
inherited ToolButton8: TToolButton [14]
|
||||||
Left = 125
|
Left = 0
|
||||||
Top = 96
|
Top = 98
|
||||||
ExplicitLeft = 125
|
ExplicitLeft = 0
|
||||||
ExplicitTop = 96
|
ExplicitTop = 98
|
||||||
end
|
end
|
||||||
inherited ToolButton11: TToolButton
|
inherited ToolButton11: TToolButton
|
||||||
Left = 133
|
Left = 83
|
||||||
Top = 96
|
Top = 98
|
||||||
ExplicitLeft = 133
|
ExplicitLeft = 83
|
||||||
ExplicitTop = 96
|
ExplicitTop = 98
|
||||||
end
|
end
|
||||||
end
|
end
|
||||||
inherited cxGrid: TcxGrid
|
inherited cxGrid: TcxGrid
|
||||||
Top = 143
|
Top = 148
|
||||||
Height = 161
|
Height = 156
|
||||||
|
ExplicitTop = 126
|
||||||
|
ExplicitHeight = 178
|
||||||
inherited cxGridView: TcxGridDBTableView
|
inherited cxGridView: TcxGridDBTableView
|
||||||
inherited cxGridViewTIPO: TcxGridDBColumn
|
inherited cxGridViewTIPO: TcxGridDBColumn
|
||||||
Visible = False
|
Visible = False
|
||||||
@ -102,7 +120,8 @@ inherited frViewDetallesAlbaranCliente: TfrViewDetallesAlbaranCliente
|
|||||||
end
|
end
|
||||||
end
|
end
|
||||||
inherited TBXDock1: TSpTBXDock
|
inherited TBXDock1: TSpTBXDock
|
||||||
Top = 117
|
Top = 122
|
||||||
|
ExplicitTop = 68
|
||||||
inherited TBXToolbar1: TSpTBXToolbar
|
inherited TBXToolbar1: TSpTBXToolbar
|
||||||
DockPos = 0
|
DockPos = 0
|
||||||
ExplicitWidth = 447
|
ExplicitWidth = 447
|
||||||
|
|||||||
@ -31,8 +31,7 @@ type
|
|||||||
Aadirartculos1: TMenuItem;
|
Aadirartculos1: TMenuItem;
|
||||||
TBXItem18: TSpTBXItem;
|
TBXItem18: TSpTBXItem;
|
||||||
cxGridViewCANTIDAD2: TcxGridDBColumn;
|
cxGridViewCANTIDAD2: TcxGridDBColumn;
|
||||||
procedure cxGridViewCANTIDAD2PropertiesButtonClick(Sender: TObject;
|
procedure cxGridViewCANTIDAD2PropertiesButtonClick(Sender: TObject; AButtonIndex: Integer);
|
||||||
AButtonIndex: Integer);
|
|
||||||
protected
|
protected
|
||||||
FAlbaran: IBizAlbaranCliente;
|
FAlbaran: IBizAlbaranCliente;
|
||||||
function GetAlbaran: IBizAlbaranCliente;
|
function GetAlbaran: IBizAlbaranCliente;
|
||||||
|
|||||||
@ -2,18 +2,36 @@ inherited frViewElegirArticulosAlbaranesCliente: TfrViewElegirArticulosAlbaranes
|
|||||||
inherited frViewFiltroBase1: TfrViewFiltroBase
|
inherited frViewFiltroBase1: TfrViewFiltroBase
|
||||||
inherited TBXDockablePanel1: TSpTBXDockablePanel
|
inherited TBXDockablePanel1: TSpTBXDockablePanel
|
||||||
inherited dxLayoutControl1: TdxLayoutControl
|
inherited dxLayoutControl1: TdxLayoutControl
|
||||||
|
inherited txtFiltroTodo: TcxTextEdit
|
||||||
|
Style.LookAndFeel.SkinName = ''
|
||||||
|
StyleDisabled.LookAndFeel.SkinName = ''
|
||||||
|
StyleFocused.LookAndFeel.SkinName = ''
|
||||||
|
StyleHot.LookAndFeel.SkinName = ''
|
||||||
|
end
|
||||||
inherited edtFechaIniFiltro: TcxDateEdit
|
inherited edtFechaIniFiltro: TcxDateEdit
|
||||||
|
Style.LookAndFeel.SkinName = ''
|
||||||
|
StyleDisabled.LookAndFeel.SkinName = ''
|
||||||
|
StyleFocused.LookAndFeel.SkinName = ''
|
||||||
|
StyleHot.LookAndFeel.SkinName = ''
|
||||||
ExplicitWidth = 121
|
ExplicitWidth = 121
|
||||||
Width = 121
|
Width = 121
|
||||||
end
|
end
|
||||||
inherited edtFechaFinFiltro: TcxDateEdit
|
inherited edtFechaFinFiltro: TcxDateEdit
|
||||||
Left = 225
|
Left = 225
|
||||||
|
Style.LookAndFeel.SkinName = ''
|
||||||
|
StyleDisabled.LookAndFeel.SkinName = ''
|
||||||
|
StyleFocused.LookAndFeel.SkinName = ''
|
||||||
|
StyleHot.LookAndFeel.SkinName = ''
|
||||||
ExplicitLeft = 225
|
ExplicitLeft = 225
|
||||||
ExplicitWidth = 121
|
ExplicitWidth = 121
|
||||||
Width = 121
|
Width = 121
|
||||||
end
|
end
|
||||||
inherited eLista: TcxComboBox
|
inherited eLista: TcxComboBox
|
||||||
Left = 383
|
Left = 383
|
||||||
|
Style.LookAndFeel.SkinName = ''
|
||||||
|
StyleDisabled.LookAndFeel.SkinName = ''
|
||||||
|
StyleFocused.LookAndFeel.SkinName = ''
|
||||||
|
StyleHot.LookAndFeel.SkinName = ''
|
||||||
ExplicitLeft = 383
|
ExplicitLeft = 383
|
||||||
ExplicitWidth = 322
|
ExplicitWidth = 322
|
||||||
Width = 322
|
Width = 322
|
||||||
@ -27,4 +45,7 @@ inherited frViewElegirArticulosAlbaranesCliente: TfrViewElegirArticulosAlbaranes
|
|||||||
BuiltInReportLink = True
|
BuiltInReportLink = True
|
||||||
end
|
end
|
||||||
end
|
end
|
||||||
|
inherited dxPSEngineController1: TdxPSEngineController
|
||||||
|
Active = True
|
||||||
|
end
|
||||||
end
|
end
|
||||||
|
|||||||
@ -12,7 +12,10 @@ uses
|
|||||||
uDADataTable, cxGridLevel, cxGridCustomTableView, cxGridTableView,
|
uDADataTable, cxGridLevel, cxGridCustomTableView, cxGridTableView,
|
||||||
cxGridDBTableView, cxClasses, cxControls, cxGridCustomView, cxGrid, dxPgsDlg,
|
cxGridDBTableView, cxClasses, cxControls, cxGridCustomView, cxGrid, dxPgsDlg,
|
||||||
ActnList, TB2Item, SpTBXItem, TB2Toolbar, SpTBXDkPanels, TB2Dock, uViewFiltroBase,
|
ActnList, TB2Item, SpTBXItem, TB2Toolbar, SpTBXDkPanels, TB2Dock, uViewFiltroBase,
|
||||||
uDAInterfaces;
|
uDAInterfaces, cxLookAndFeels, cxLookAndFeelPainters, dxPSPDFExportCore,
|
||||||
|
dxPSPDFExport, cxDrawTextUtils, dxPSPrVwStd, dxPSPrVwAdv,
|
||||||
|
dxPScxEditorProducers, dxPScxExtEditorProducers, dxPScxPageControlProducer,
|
||||||
|
uCustomView, uViewBase;
|
||||||
|
|
||||||
type
|
type
|
||||||
IViewElegirArticulosAlbaranesCliente = interface(IViewArticulos)
|
IViewElegirArticulosAlbaranesCliente = interface(IViewArticulos)
|
||||||
|
|||||||
@ -55,22 +55,22 @@
|
|||||||
<DelphiCompile Include="Articulos_controller.dpk">
|
<DelphiCompile Include="Articulos_controller.dpk">
|
||||||
<MainSource>MainSource</MainSource>
|
<MainSource>MainSource</MainSource>
|
||||||
</DelphiCompile>
|
</DelphiCompile>
|
||||||
<DCCReference Include="..\..\Facturas de cliente\adortl.dcp" />
|
<DCCReference Include="..\..\Pedidos de cliente\Views\adortl.dcp" />
|
||||||
<DCCReference Include="..\..\Facturas de cliente\Articulos_data.dcp" />
|
<DCCReference Include="..\..\Pedidos de cliente\Views\Articulos_data.dcp" />
|
||||||
<DCCReference Include="..\..\Facturas de cliente\Articulos_model.dcp" />
|
<DCCReference Include="..\..\Pedidos de cliente\Views\Articulos_model.dcp" />
|
||||||
<DCCReference Include="..\..\Facturas de cliente\Contactos_controller.dcp" />
|
<DCCReference Include="..\..\Pedidos de cliente\Views\Contactos_controller.dcp" />
|
||||||
<DCCReference Include="..\..\Facturas de cliente\Contactos_model.dcp" />
|
<DCCReference Include="..\..\Pedidos de cliente\Views\Contactos_model.dcp" />
|
||||||
<DCCReference Include="..\..\Facturas de cliente\cxLibraryD11.dcp" />
|
<DCCReference Include="..\..\Pedidos de cliente\Views\cxLibraryD11.dcp" />
|
||||||
<DCCReference Include="..\..\Facturas de cliente\DataAbstract_Core_D11.dcp" />
|
<DCCReference Include="..\..\Pedidos de cliente\Views\DataAbstract_Core_D11.dcp" />
|
||||||
<DCCReference Include="..\..\Facturas de cliente\dbrtl.dcp" />
|
<DCCReference Include="..\..\Pedidos de cliente\Views\dbrtl.dcp" />
|
||||||
<DCCReference Include="..\..\Facturas de cliente\dsnap.dcp" />
|
<DCCReference Include="..\..\Pedidos de cliente\Views\dsnap.dcp" />
|
||||||
<DCCReference Include="..\..\Facturas de cliente\dxGDIPlusD11.dcp" />
|
<DCCReference Include="..\..\Pedidos de cliente\Views\dxGDIPlusD11.dcp" />
|
||||||
<DCCReference Include="..\..\Facturas de cliente\dxThemeD11.dcp" />
|
<DCCReference Include="..\..\Pedidos de cliente\Views\dxThemeD11.dcp" />
|
||||||
<DCCReference Include="..\..\Facturas de cliente\GUIBase.dcp" />
|
<DCCReference Include="..\..\Pedidos de cliente\Views\GUIBase.dcp" />
|
||||||
<DCCReference Include="..\..\Facturas de cliente\RemObjects_Core_D11.dcp" />
|
<DCCReference Include="..\..\Pedidos de cliente\Views\RemObjects_Core_D11.dcp" />
|
||||||
<DCCReference Include="..\..\Facturas de cliente\rtl.dcp" />
|
<DCCReference Include="..\..\Pedidos de cliente\Views\rtl.dcp" />
|
||||||
<DCCReference Include="..\..\Facturas de cliente\vcl.dcp" />
|
<DCCReference Include="..\..\Pedidos de cliente\Views\vcl.dcp" />
|
||||||
<DCCReference Include="..\..\Facturas de cliente\vcldb.dcp" />
|
<DCCReference Include="..\..\Pedidos de cliente\Views\vcldb.dcp" />
|
||||||
<DCCReference Include="uArticulosController.pas" />
|
<DCCReference Include="uArticulosController.pas" />
|
||||||
<DCCReference Include="uControllerDetallesArticulos.pas" />
|
<DCCReference Include="uControllerDetallesArticulos.pas" />
|
||||||
<DCCReference Include="View\uIEditorArticulo.pas" />
|
<DCCReference Include="View\uIEditorArticulo.pas" />
|
||||||
|
|||||||
@ -57,7 +57,7 @@
|
|||||||
<DelphiCompile Include="Articulos_data.dpk">
|
<DelphiCompile Include="Articulos_data.dpk">
|
||||||
<MainSource>MainSource</MainSource>
|
<MainSource>MainSource</MainSource>
|
||||||
</DelphiCompile>
|
</DelphiCompile>
|
||||||
<DCCReference Include="..\..\Facturas de cliente\Articulos_model.dcp" />
|
<DCCReference Include="..\..\Pedidos de cliente\Views\Articulos_model.dcp" />
|
||||||
<DCCReference Include="uDataModuleArticulos.pas">
|
<DCCReference Include="uDataModuleArticulos.pas">
|
||||||
<Form>DataModuleArticulos</Form>
|
<Form>DataModuleArticulos</Form>
|
||||||
</DCCReference>
|
</DCCReference>
|
||||||
|
|||||||
@ -55,16 +55,16 @@
|
|||||||
<DelphiCompile Include="Articulos_model.dpk">
|
<DelphiCompile Include="Articulos_model.dpk">
|
||||||
<MainSource>MainSource</MainSource>
|
<MainSource>MainSource</MainSource>
|
||||||
</DelphiCompile>
|
</DelphiCompile>
|
||||||
<DCCReference Include="..\..\Facturas de cliente\adortl.dcp" />
|
<DCCReference Include="..\..\Pedidos de cliente\Views\adortl.dcp" />
|
||||||
<DCCReference Include="..\..\Facturas de cliente\ApplicationBase.dcp" />
|
<DCCReference Include="..\..\Pedidos de cliente\Views\ApplicationBase.dcp" />
|
||||||
<DCCReference Include="..\..\Facturas de cliente\Base.dcp" />
|
<DCCReference Include="..\..\Pedidos de cliente\Views\Base.dcp" />
|
||||||
<DCCReference Include="..\..\Facturas de cliente\DataAbstract_Core_D11.dcp" />
|
<DCCReference Include="..\..\Pedidos de cliente\Views\DataAbstract_Core_D11.dcp" />
|
||||||
<DCCReference Include="..\..\Facturas de cliente\dbrtl.dcp" />
|
<DCCReference Include="..\..\Pedidos de cliente\Views\dbrtl.dcp" />
|
||||||
<DCCReference Include="..\..\Facturas de cliente\dsnap.dcp" />
|
<DCCReference Include="..\..\Pedidos de cliente\Views\dsnap.dcp" />
|
||||||
<DCCReference Include="..\..\Facturas de cliente\RemObjects_Core_D11.dcp" />
|
<DCCReference Include="..\..\Pedidos de cliente\Views\RemObjects_Core_D11.dcp" />
|
||||||
<DCCReference Include="..\..\Facturas de cliente\rtl.dcp" />
|
<DCCReference Include="..\..\Pedidos de cliente\Views\rtl.dcp" />
|
||||||
<DCCReference Include="..\..\Facturas de cliente\vcl.dcp" />
|
<DCCReference Include="..\..\Pedidos de cliente\Views\vcl.dcp" />
|
||||||
<DCCReference Include="..\..\Facturas de cliente\vcldb.dcp" />
|
<DCCReference Include="..\..\Pedidos de cliente\Views\vcldb.dcp" />
|
||||||
<DCCReference Include="Data\uIDataModuleArticulos.pas" />
|
<DCCReference Include="Data\uIDataModuleArticulos.pas" />
|
||||||
<DCCReference Include="schArticulosClient_Intf.pas" />
|
<DCCReference Include="schArticulosClient_Intf.pas" />
|
||||||
<DCCReference Include="schArticulosServer_Intf.pas" />
|
<DCCReference Include="schArticulosServer_Intf.pas" />
|
||||||
|
|||||||
@ -55,14 +55,14 @@
|
|||||||
<DelphiCompile Include="Articulos_view.dpk">
|
<DelphiCompile Include="Articulos_view.dpk">
|
||||||
<MainSource>MainSource</MainSource>
|
<MainSource>MainSource</MainSource>
|
||||||
</DelphiCompile>
|
</DelphiCompile>
|
||||||
<DCCReference Include="..\..\Facturas de cliente\Articulos_controller.dcp" />
|
<DCCReference Include="..\..\Pedidos de cliente\Views\Articulos_controller.dcp" />
|
||||||
<DCCReference Include="..\..\Facturas de cliente\Articulos_model.dcp" />
|
<DCCReference Include="..\..\Pedidos de cliente\Views\Articulos_model.dcp" />
|
||||||
<DCCReference Include="..\..\Facturas de cliente\Contactos_view.dcp" />
|
<DCCReference Include="..\..\Pedidos de cliente\Views\Contactos_view.dcp" />
|
||||||
<DCCReference Include="..\..\Facturas de cliente\Fabricantes_controller.dcp" />
|
<DCCReference Include="..\..\Pedidos de cliente\Views\Fabricantes_controller.dcp" />
|
||||||
<DCCReference Include="..\..\Facturas de cliente\Familias_controller.dcp" />
|
<DCCReference Include="..\..\Pedidos de cliente\Views\Familias_controller.dcp" />
|
||||||
<DCCReference Include="..\..\Facturas de cliente\GUIBase.dcp" />
|
<DCCReference Include="..\..\Pedidos de cliente\Views\GUIBase.dcp" />
|
||||||
<DCCReference Include="..\..\Facturas de cliente\GUISDK_D11R.dcp" />
|
<DCCReference Include="..\..\Pedidos de cliente\Views\GUISDK_D11R.dcp" />
|
||||||
<DCCReference Include="..\..\Facturas de cliente\UnidadesMedida_controller.dcp" />
|
<DCCReference Include="..\..\Pedidos de cliente\Views\UnidadesMedida_controller.dcp" />
|
||||||
<DCCReference Include="uArticulosViewRegister.pas" />
|
<DCCReference Include="uArticulosViewRegister.pas" />
|
||||||
<DCCReference Include="uEditorArticulo.pas">
|
<DCCReference Include="uEditorArticulo.pas">
|
||||||
<Form>fEditorArticulo</Form>
|
<Form>fEditorArticulo</Form>
|
||||||
|
|||||||
@ -127,6 +127,7 @@ contains
|
|||||||
uViewVendedor in 'uViewVendedor.pas' {frViewVendedor: TCustomView},
|
uViewVendedor in 'uViewVendedor.pas' {frViewVendedor: TCustomView},
|
||||||
uEditorVendedores in 'uEditorVendedores.pas' {fEditorVendedores: TCustomEditor},
|
uEditorVendedores in 'uEditorVendedores.pas' {fEditorVendedores: TCustomEditor},
|
||||||
uEditorElegirVendedores in 'uEditorElegirVendedores.pas' {fEditorElegirVendedores: TCustomEditor},
|
uEditorElegirVendedores in 'uEditorElegirVendedores.pas' {fEditorElegirVendedores: TCustomEditor},
|
||||||
uEditorVendedor in 'uEditorVendedor.pas'{fEditorVendedor: TCustomEditor};
|
uEditorVendedor in 'uEditorVendedor.pas' {fEditorVendedor: TCustomEditor},
|
||||||
|
uViewDireccionEntrega in 'uViewDireccionEntrega.pas' {frViewDireccionEntrega: TCustomView};
|
||||||
|
|
||||||
end.
|
end.
|
||||||
|
|||||||
@ -49,63 +49,56 @@
|
|||||||
<DelphiCompile Include="Contactos_view.dpk">
|
<DelphiCompile Include="Contactos_view.dpk">
|
||||||
<MainSource>MainSource</MainSource>
|
<MainSource>MainSource</MainSource>
|
||||||
</DelphiCompile>
|
</DelphiCompile>
|
||||||
<DCCReference Include="..\..\Facturas de cliente\Model\adortl.dcp" />
|
<DCCReference Include="adortl.dcp" />
|
||||||
<DCCReference Include="..\..\Facturas de cliente\Model\ApplicationBase.dcp" />
|
<DCCReference Include="ApplicationBase.dcp" />
|
||||||
<DCCReference Include="..\..\Facturas de cliente\Model\Base.dcp" />
|
<DCCReference Include="Base.dcp" />
|
||||||
<DCCReference Include="..\..\Facturas de cliente\Model\bdertl.dcp" />
|
<DCCReference Include="bdertl.dcp" />
|
||||||
<DCCReference Include="..\..\Facturas de cliente\Model\ccpackD11.dcp" />
|
<DCCReference Include="ccpackD11.dcp" />
|
||||||
<DCCReference Include="..\..\Facturas de cliente\Model\cfpack_d11.dcp" />
|
<DCCReference Include="cfpack_d11.dcp" />
|
||||||
<DCCReference Include="..\..\Facturas de cliente\Model\Contactos_controller.dcp" />
|
<DCCReference Include="Contactos_controller.dcp" />
|
||||||
<DCCReference Include="..\..\Facturas de cliente\Model\Contactos_model.dcp" />
|
<DCCReference Include="Contactos_model.dcp" />
|
||||||
<DCCReference Include="..\..\Facturas de cliente\Model\cxDataD11.dcp" />
|
<DCCReference Include="cxDataD11.dcp" />
|
||||||
<DCCReference Include="..\..\Facturas de cliente\Model\cxEditorsD11.dcp" />
|
<DCCReference Include="cxEditorsD11.dcp" />
|
||||||
<DCCReference Include="..\..\Facturas de cliente\Model\cxExportD11.dcp" />
|
<DCCReference Include="cxExportD11.dcp" />
|
||||||
<DCCReference Include="..\..\Facturas de cliente\Model\cxExtEditorsD11.dcp" />
|
<DCCReference Include="cxExtEditorsD11.dcp" />
|
||||||
<DCCReference Include="..\..\Facturas de cliente\Model\cxGridD11.dcp" />
|
<DCCReference Include="cxGridD11.dcp" />
|
||||||
<DCCReference Include="..\..\Facturas de cliente\Model\cxLibraryD11.dcp" />
|
<DCCReference Include="cxLibraryD11.dcp" />
|
||||||
<DCCReference Include="..\..\Facturas de cliente\Model\cxPageControlD11.dcp" />
|
<DCCReference Include="cxPageControlD11.dcp" />
|
||||||
<DCCReference Include="..\..\Facturas de cliente\Model\DataAbstract_Core_D11.dcp" />
|
<DCCReference Include="DataAbstract_Core_D11.dcp" />
|
||||||
<DCCReference Include="..\..\Facturas de cliente\Model\dbrtl.dcp" />
|
<DCCReference Include="dbrtl.dcp" />
|
||||||
<DCCReference Include="..\..\Facturas de cliente\Model\dclcxLibraryD11.dcp" />
|
<DCCReference Include="dclcxLibraryD11.dcp" />
|
||||||
<DCCReference Include="..\..\Facturas de cliente\Model\designide.dcp" />
|
<DCCReference Include="designide.dcp" />
|
||||||
<DCCReference Include="..\..\Facturas de cliente\Model\dsnap.dcp" />
|
<DCCReference Include="dsnap.dcp" />
|
||||||
<DCCReference Include="..\..\Facturas de cliente\Model\dxComnD11.dcp" />
|
<DCCReference Include="dxComnD11.dcp" />
|
||||||
<DCCReference Include="..\..\Facturas de cliente\Model\dxCoreD11.dcp" />
|
<DCCReference Include="dxCoreD11.dcp" />
|
||||||
<DCCReference Include="..\..\Facturas de cliente\Model\dxGDIPlusD11.dcp" />
|
<DCCReference Include="dxGDIPlusD11.dcp" />
|
||||||
<DCCReference Include="..\..\Facturas de cliente\Model\dxLayoutControlD11.dcp" />
|
<DCCReference Include="dxLayoutControlD11.dcp" />
|
||||||
<DCCReference Include="..\..\Facturas de cliente\Model\dxPSCoreD11.dcp" />
|
<DCCReference Include="dxPSCoreD11.dcp" />
|
||||||
<DCCReference Include="..\..\Facturas de cliente\Model\dxPScxCommonD11.dcp" />
|
<DCCReference Include="dxPScxCommonD11.dcp" />
|
||||||
<DCCReference Include="..\..\Facturas de cliente\Model\dxPScxGrid6LnkD11.dcp" />
|
<DCCReference Include="dxPScxGrid6LnkD11.dcp" />
|
||||||
<DCCReference Include="..\..\Facturas de cliente\Model\dxPSLnksD11.dcp" />
|
<DCCReference Include="dxPSLnksD11.dcp" />
|
||||||
<DCCReference Include="..\..\Facturas de cliente\Model\dxThemeD11.dcp" />
|
<DCCReference Include="dxThemeD11.dcp" />
|
||||||
<DCCReference Include="..\..\Facturas de cliente\Model\FormasPago_controller.dcp" />
|
<DCCReference Include="FormasPago_controller.dcp" />
|
||||||
<DCCReference Include="..\..\Facturas de cliente\Model\FormasPago_model.dcp" />
|
<DCCReference Include="FormasPago_model.dcp" />
|
||||||
<DCCReference Include="..\..\Facturas de cliente\Model\GUIBase.dcp" />
|
<DCCReference Include="GUIBase.dcp" />
|
||||||
<DCCReference Include="..\..\Facturas de cliente\Model\GUISDK_D11R.dcp" />
|
<DCCReference Include="GUISDK_D11R.dcp" />
|
||||||
<DCCReference Include="..\..\Facturas de cliente\Model\Jcl.dcp" />
|
<DCCReference Include="Jcl.dcp" />
|
||||||
<DCCReference Include="..\..\Facturas de cliente\Model\JclVcl.dcp" />
|
<DCCReference Include="JclVcl.dcp" />
|
||||||
<DCCReference Include="..\..\Facturas de cliente\Model\JSDialog100.dcp" />
|
<DCCReference Include="JSDialog100.dcp" />
|
||||||
<DCCReference Include="..\..\Facturas de cliente\Model\JvCoreD11R.dcp" />
|
<DCCReference Include="JvCoreD11R.dcp" />
|
||||||
<DCCReference Include="..\..\Facturas de cliente\Model\JvCtrlsD11R.dcp" />
|
<DCCReference Include="JvCtrlsD11R.dcp" />
|
||||||
<DCCReference Include="..\..\Facturas de cliente\Model\JvGlobusD11R.dcp" />
|
<DCCReference Include="JvGlobusD11R.dcp" />
|
||||||
<DCCReference Include="..\..\Facturas de cliente\Model\JvPageCompsD11R.dcp" />
|
<DCCReference Include="JvPageCompsD11R.dcp" />
|
||||||
<DCCReference Include="..\..\Facturas de cliente\Model\JvStdCtrlsD11R.dcp" />
|
<DCCReference Include="JvStdCtrlsD11R.dcp" />
|
||||||
<DCCReference Include="..\..\Facturas de cliente\Model\JvSystemD11R.dcp" />
|
<DCCReference Include="JvSystemD11R.dcp" />
|
||||||
<DCCReference Include="..\..\Facturas de cliente\Model\PngComponentsD10.dcp" />
|
<DCCReference Include="PngComponentsD10.dcp" />
|
||||||
<DCCReference Include="..\..\Facturas de cliente\Model\PNG_D10.dcp" />
|
<DCCReference Include="PNG_D10.dcp" />
|
||||||
<DCCReference Include="..\..\Facturas de cliente\Model\RemObjects_Core_D11.dcp" />
|
<DCCReference Include="RemObjects_Core_D11.dcp" />
|
||||||
<DCCReference Include="..\..\Facturas de cliente\Model\rtl.dcp" />
|
<DCCReference Include="rtl.dcp" />
|
||||||
<DCCReference Include="..\..\Facturas de cliente\Model\SpTBXLib_d11.dcp" />
|
<DCCReference Include="SpTBXLib_d11.dcp" />
|
||||||
<DCCReference Include="..\..\Facturas de cliente\Model\tb2k_d11.dcp" />
|
<DCCReference Include="tb2k_d11.dcp" />
|
||||||
<DCCReference Include="..\..\Facturas de cliente\Model\TiposIVA_controller.dcp" />
|
<DCCReference Include="TiposIVA_controller.dcp" />
|
||||||
<DCCReference Include="..\..\Facturas de cliente\Model\TiposIVA_model.dcp" />
|
<DCCReference Include="TiposIVA_model.dcp" />
|
||||||
<DCCReference Include="..\..\Facturas de cliente\Model\vcl.dcp" />
|
|
||||||
<DCCReference Include="..\..\Facturas de cliente\Model\vclactnband.dcp" />
|
|
||||||
<DCCReference Include="..\..\Facturas de cliente\Model\vcldb.dcp" />
|
|
||||||
<DCCReference Include="..\..\Facturas de cliente\Model\vcljpg.dcp" />
|
|
||||||
<DCCReference Include="..\..\Facturas de cliente\Model\vclshlctrls.dcp" />
|
|
||||||
<DCCReference Include="..\..\Facturas de cliente\Model\vclx.dcp" />
|
|
||||||
<DCCReference Include="..\..\Facturas de cliente\Model\xmlrtl.dcp" />
|
|
||||||
<DCCReference Include="uContactosViewRegister.pas" />
|
<DCCReference Include="uContactosViewRegister.pas" />
|
||||||
<DCCReference Include="uEditorCliente.pas">
|
<DCCReference Include="uEditorCliente.pas">
|
||||||
<Form>fEditorCliente</Form>
|
<Form>fEditorCliente</Form>
|
||||||
@ -242,6 +235,10 @@
|
|||||||
<Form>frViewDatosYSeleccionProveedor</Form>
|
<Form>frViewDatosYSeleccionProveedor</Form>
|
||||||
<DesignClass>TFrame</DesignClass>
|
<DesignClass>TFrame</DesignClass>
|
||||||
</DCCReference>
|
</DCCReference>
|
||||||
|
<DCCReference Include="uViewDireccionEntrega.pas">
|
||||||
|
<Form>frViewVendedor</Form>
|
||||||
|
<DesignClass>TCustomView</DesignClass>
|
||||||
|
</DCCReference>
|
||||||
<DCCReference Include="uViewDireccionesEntrega.pas">
|
<DCCReference Include="uViewDireccionesEntrega.pas">
|
||||||
<Form>frViewDireccionesEntrega</Form>
|
<Form>frViewDireccionesEntrega</Form>
|
||||||
<DesignClass>TFrame</DesignClass>
|
<DesignClass>TFrame</DesignClass>
|
||||||
@ -278,6 +275,13 @@
|
|||||||
<Form>frViewVendedores</Form>
|
<Form>frViewVendedores</Form>
|
||||||
<DesignClass>TCustomView</DesignClass>
|
<DesignClass>TCustomView</DesignClass>
|
||||||
</DCCReference>
|
</DCCReference>
|
||||||
|
<DCCReference Include="vcl.dcp" />
|
||||||
|
<DCCReference Include="vclactnband.dcp" />
|
||||||
|
<DCCReference Include="vcldb.dcp" />
|
||||||
|
<DCCReference Include="vcljpg.dcp" />
|
||||||
|
<DCCReference Include="vclshlctrls.dcp" />
|
||||||
|
<DCCReference Include="vclx.dcp" />
|
||||||
|
<DCCReference Include="xmlrtl.dcp" />
|
||||||
</ItemGroup>
|
</ItemGroup>
|
||||||
</Project>
|
</Project>
|
||||||
<!-- EurekaLog First Line
|
<!-- EurekaLog First Line
|
||||||
|
|||||||
@ -123,7 +123,7 @@ inherited fEditorCliente: TfEditorCliente
|
|||||||
inherited pgPaginas: TPageControl
|
inherited pgPaginas: TPageControl
|
||||||
Width = 786
|
Width = 786
|
||||||
Height = 530
|
Height = 530
|
||||||
ActivePage = pagDatosComerciales
|
ActivePage = pagDirecciones
|
||||||
ExplicitWidth = 786
|
ExplicitWidth = 786
|
||||||
ExplicitHeight = 530
|
ExplicitHeight = 530
|
||||||
inherited pagGeneral: TTabSheet
|
inherited pagGeneral: TTabSheet
|
||||||
@ -546,9 +546,9 @@ inherited fEditorCliente: TfEditorCliente
|
|||||||
end
|
end
|
||||||
end
|
end
|
||||||
object pagDirecciones: TTabSheet [3]
|
object pagDirecciones: TTabSheet [3]
|
||||||
Caption = 'Direcciones'
|
Caption = 'Direcci'#243'n de entrega'
|
||||||
ImageIndex = 1
|
ImageIndex = 1
|
||||||
inline frViewDireccionesEntrega1: TfrViewDireccionesEntrega
|
inline frViewDireccionEntrega1: TfrViewDireccionEntrega
|
||||||
Left = 0
|
Left = 0
|
||||||
Top = 0
|
Top = 0
|
||||||
Width = 778
|
Width = 778
|
||||||
@ -564,21 +564,43 @@ inherited fEditorCliente: TfEditorCliente
|
|||||||
ReadOnly = False
|
ReadOnly = False
|
||||||
ExplicitWidth = 778
|
ExplicitWidth = 778
|
||||||
ExplicitHeight = 502
|
ExplicitHeight = 502
|
||||||
inherited cxGrid: TcxGrid
|
inherited dxLayoutControl1: TdxLayoutControl
|
||||||
Width = 778
|
Width = 778
|
||||||
Height = 477
|
Height = 502
|
||||||
ExplicitWidth = 778
|
ExplicitWidth = 778
|
||||||
ExplicitHeight = 477
|
ExplicitHeight = 502
|
||||||
inherited cxGridView: TcxGridDBTableView
|
inherited cbPoblacion: TcxDBComboBox
|
||||||
inherited cxGridViewID: TcxGridDBColumn
|
Style.LookAndFeel.SkinName = ''
|
||||||
SortIndex = 0
|
StyleDisabled.LookAndFeel.SkinName = ''
|
||||||
SortOrder = soAscending
|
StyleFocused.LookAndFeel.SkinName = ''
|
||||||
|
StyleHot.LookAndFeel.SkinName = ''
|
||||||
|
ExplicitWidth = 256
|
||||||
|
Width = 256
|
||||||
end
|
end
|
||||||
|
inherited cbProvincia: TcxDBComboBox
|
||||||
|
Style.LookAndFeel.SkinName = ''
|
||||||
|
StyleDisabled.LookAndFeel.SkinName = ''
|
||||||
|
StyleFocused.LookAndFeel.SkinName = ''
|
||||||
|
StyleHot.LookAndFeel.SkinName = ''
|
||||||
|
ExplicitWidth = 155
|
||||||
|
Width = 155
|
||||||
end
|
end
|
||||||
|
inherited eCalle: TcxDBTextEdit
|
||||||
|
Style.LookAndFeel.SkinName = ''
|
||||||
|
StyleDisabled.LookAndFeel.SkinName = ''
|
||||||
|
StyleFocused.LookAndFeel.SkinName = ''
|
||||||
|
StyleHot.LookAndFeel.SkinName = ''
|
||||||
|
ExplicitWidth = 256
|
||||||
|
Width = 256
|
||||||
|
end
|
||||||
|
inherited eCodigoPostal: TcxDBTextEdit
|
||||||
|
Left = 668
|
||||||
|
Style.LookAndFeel.SkinName = ''
|
||||||
|
StyleDisabled.LookAndFeel.SkinName = ''
|
||||||
|
StyleFocused.LookAndFeel.SkinName = ''
|
||||||
|
StyleHot.LookAndFeel.SkinName = ''
|
||||||
|
ExplicitLeft = 668
|
||||||
end
|
end
|
||||||
inherited ToolBar1: TToolBar
|
|
||||||
Width = 778
|
|
||||||
ExplicitWidth = 778
|
|
||||||
end
|
end
|
||||||
end
|
end
|
||||||
end
|
end
|
||||||
|
|||||||
@ -16,13 +16,12 @@ uses
|
|||||||
uViewContactoDatosBancarios, dxLayoutLookAndFeels,
|
uViewContactoDatosBancarios, dxLayoutLookAndFeels,
|
||||||
uViewClienteDatosComerciales, uDAInterfaces, uViewContactoListaDatosBancarios,
|
uViewClienteDatosComerciales, uDAInterfaces, uViewContactoListaDatosBancarios,
|
||||||
uViewPersonalContacto, cxControls, cxContainer, cxEdit, cxLabel, cxGraphics,
|
uViewPersonalContacto, cxControls, cxContainer, cxEdit, cxLabel, cxGraphics,
|
||||||
cxLookAndFeels, cxLookAndFeelPainters;
|
cxLookAndFeels, cxLookAndFeelPainters, uViewDireccionEntrega;
|
||||||
|
|
||||||
type
|
type
|
||||||
TfEditorCliente = class(TfEditorContacto, IEditorCliente)
|
TfEditorCliente = class(TfEditorContacto, IEditorCliente)
|
||||||
frViewCliente1: TfrViewCliente;
|
frViewCliente1: TfrViewCliente;
|
||||||
pagDirecciones: TTabSheet;
|
pagDirecciones: TTabSheet;
|
||||||
frViewDireccionesEntrega1: TfrViewDireccionesEntrega;
|
|
||||||
actGruposCliente: TAction;
|
actGruposCliente: TAction;
|
||||||
TBXItem7: TSpTBXItem;
|
TBXItem7: TSpTBXItem;
|
||||||
pagDescuentos: TTabSheet;
|
pagDescuentos: TTabSheet;
|
||||||
@ -46,6 +45,7 @@ type
|
|||||||
TBXItem40: TSpTBXItem;
|
TBXItem40: TSpTBXItem;
|
||||||
actDocumentosRecibos: TAction;
|
actDocumentosRecibos: TAction;
|
||||||
TBXItem41: TSpTBXItem;
|
TBXItem41: TSpTBXItem;
|
||||||
|
frViewDireccionEntrega1: TfrViewDireccionEntrega;
|
||||||
procedure FormShow(Sender: TObject);
|
procedure FormShow(Sender: TObject);
|
||||||
procedure actGruposClienteExecute(Sender: TObject);
|
procedure actGruposClienteExecute(Sender: TObject);
|
||||||
procedure actDocumentosFacturasExecute(Sender: TObject);
|
procedure actDocumentosFacturasExecute(Sender: TObject);
|
||||||
@ -150,12 +150,12 @@ begin
|
|||||||
inherited;
|
inherited;
|
||||||
if Assigned(Contacto) then
|
if Assigned(Contacto) then
|
||||||
begin
|
begin
|
||||||
frViewDireccionesEntrega1.dsDetalles.DataTable := Contacto.Direcciones.DataTable;
|
frViewDireccionEntrega1.dsDetalles.DataTable := Contacto.Direcciones.DataTable;
|
||||||
frViewClienteDescuentos1.dsDetalles.DataTable := (Contacto as IBizCliente).Descuentos.DataTable;
|
frViewClienteDescuentos1.dsDetalles.DataTable := (Contacto as IBizCliente).Descuentos.DataTable;
|
||||||
frViewClienteDatosComerciales1.Contacto := Contacto;
|
frViewClienteDatosComerciales1.Contacto := Contacto;
|
||||||
end
|
end
|
||||||
else begin
|
else begin
|
||||||
frViewDireccionesEntrega1.dsDetalles.DataTable := NIL;
|
frViewDireccionEntrega1.dsDetalles.DataTable := NIL;
|
||||||
frViewClienteDescuentos1.dsDetalles.DataTable := NIL;
|
frViewClienteDescuentos1.dsDetalles.DataTable := NIL;
|
||||||
frViewClienteDatosComerciales1.Contacto := NIL;
|
frViewClienteDatosComerciales1.Contacto := NIL;
|
||||||
end;
|
end;
|
||||||
|
|||||||
@ -167,7 +167,7 @@ object fEditorDireccion: TfEditorDireccion
|
|||||||
TabOrder = 1
|
TabOrder = 1
|
||||||
end
|
end
|
||||||
object eDireccion: TDBEdit
|
object eDireccion: TDBEdit
|
||||||
Left = 135
|
Left = 136
|
||||||
Top = 65
|
Top = 65
|
||||||
Width = 191
|
Width = 191
|
||||||
Height = 57
|
Height = 57
|
||||||
|
|||||||
158
Source/Modulos/Contactos/Views/uViewDireccionEntrega.dfm
Normal file
158
Source/Modulos/Contactos/Views/uViewDireccionEntrega.dfm
Normal file
@ -0,0 +1,158 @@
|
|||||||
|
inherited frViewDireccionEntrega: TfrViewDireccionEntrega
|
||||||
|
Width = 750
|
||||||
|
Height = 109
|
||||||
|
ExplicitWidth = 750
|
||||||
|
ExplicitHeight = 109
|
||||||
|
object dxLayoutControl1: TdxLayoutControl
|
||||||
|
Left = 0
|
||||||
|
Top = 0
|
||||||
|
Width = 750
|
||||||
|
Height = 109
|
||||||
|
Align = alClient
|
||||||
|
TabOrder = 0
|
||||||
|
TabStop = False
|
||||||
|
ExplicitHeight = 245
|
||||||
|
object cbPoblacion: TcxDBComboBox
|
||||||
|
Left = 64
|
||||||
|
Top = 64
|
||||||
|
DataBinding.DataField = 'POBLACION'
|
||||||
|
DataBinding.DataSource = dsDetalles
|
||||||
|
Properties.ImmediatePost = True
|
||||||
|
Properties.ImmediateUpdateText = True
|
||||||
|
Properties.PostPopupValueOnTab = True
|
||||||
|
Properties.OnInitPopup = cbPoblacionPropertiesInitPopup
|
||||||
|
Style.BorderColor = clWindowFrame
|
||||||
|
Style.BorderStyle = ebs3D
|
||||||
|
Style.HotTrack = False
|
||||||
|
Style.LookAndFeel.Kind = lfStandard
|
||||||
|
Style.LookAndFeel.NativeStyle = True
|
||||||
|
Style.LookAndFeel.SkinName = ''
|
||||||
|
Style.ButtonStyle = bts3D
|
||||||
|
Style.PopupBorderStyle = epbsFrame3D
|
||||||
|
StyleDisabled.LookAndFeel.Kind = lfStandard
|
||||||
|
StyleDisabled.LookAndFeel.NativeStyle = True
|
||||||
|
StyleDisabled.LookAndFeel.SkinName = ''
|
||||||
|
StyleFocused.LookAndFeel.Kind = lfStandard
|
||||||
|
StyleFocused.LookAndFeel.NativeStyle = True
|
||||||
|
StyleFocused.LookAndFeel.SkinName = ''
|
||||||
|
StyleHot.LookAndFeel.Kind = lfStandard
|
||||||
|
StyleHot.LookAndFeel.NativeStyle = True
|
||||||
|
StyleHot.LookAndFeel.SkinName = ''
|
||||||
|
TabOrder = 3
|
||||||
|
Width = 256
|
||||||
|
end
|
||||||
|
object cbProvincia: TcxDBComboBox
|
||||||
|
Left = 64
|
||||||
|
Top = 37
|
||||||
|
DataBinding.DataField = 'PROVINCIA'
|
||||||
|
DataBinding.DataSource = dsDetalles
|
||||||
|
Properties.ImmediatePost = True
|
||||||
|
Properties.ImmediateUpdateText = True
|
||||||
|
Properties.PostPopupValueOnTab = True
|
||||||
|
Properties.OnInitPopup = cbProvinciaPropertiesInitPopup
|
||||||
|
Style.BorderColor = clWindowFrame
|
||||||
|
Style.BorderStyle = ebs3D
|
||||||
|
Style.HotTrack = False
|
||||||
|
Style.LookAndFeel.Kind = lfStandard
|
||||||
|
Style.LookAndFeel.NativeStyle = True
|
||||||
|
Style.LookAndFeel.SkinName = ''
|
||||||
|
Style.ButtonStyle = bts3D
|
||||||
|
Style.PopupBorderStyle = epbsFrame3D
|
||||||
|
StyleDisabled.LookAndFeel.Kind = lfStandard
|
||||||
|
StyleDisabled.LookAndFeel.NativeStyle = True
|
||||||
|
StyleDisabled.LookAndFeel.SkinName = ''
|
||||||
|
StyleFocused.LookAndFeel.Kind = lfStandard
|
||||||
|
StyleFocused.LookAndFeel.NativeStyle = True
|
||||||
|
StyleFocused.LookAndFeel.SkinName = ''
|
||||||
|
StyleHot.LookAndFeel.Kind = lfStandard
|
||||||
|
StyleHot.LookAndFeel.NativeStyle = True
|
||||||
|
StyleHot.LookAndFeel.SkinName = ''
|
||||||
|
TabOrder = 1
|
||||||
|
Width = 155
|
||||||
|
end
|
||||||
|
object eCalle: TcxDBTextEdit
|
||||||
|
Left = 64
|
||||||
|
Top = 10
|
||||||
|
DataBinding.DataField = 'CALLE'
|
||||||
|
DataBinding.DataSource = dsDetalles
|
||||||
|
Style.BorderColor = clWindowFrame
|
||||||
|
Style.BorderStyle = ebs3D
|
||||||
|
Style.HotTrack = False
|
||||||
|
Style.LookAndFeel.Kind = lfStandard
|
||||||
|
Style.LookAndFeel.NativeStyle = True
|
||||||
|
Style.LookAndFeel.SkinName = ''
|
||||||
|
StyleDisabled.LookAndFeel.Kind = lfStandard
|
||||||
|
StyleDisabled.LookAndFeel.NativeStyle = True
|
||||||
|
StyleDisabled.LookAndFeel.SkinName = ''
|
||||||
|
StyleFocused.LookAndFeel.Kind = lfStandard
|
||||||
|
StyleFocused.LookAndFeel.NativeStyle = True
|
||||||
|
StyleFocused.LookAndFeel.SkinName = ''
|
||||||
|
StyleHot.LookAndFeel.Kind = lfStandard
|
||||||
|
StyleHot.LookAndFeel.NativeStyle = True
|
||||||
|
StyleHot.LookAndFeel.SkinName = ''
|
||||||
|
TabOrder = 0
|
||||||
|
Width = 256
|
||||||
|
end
|
||||||
|
object eCodigoPostal: TcxDBTextEdit
|
||||||
|
Left = 640
|
||||||
|
Top = 37
|
||||||
|
DataBinding.DataField = 'CODIGO_POSTAL'
|
||||||
|
DataBinding.DataSource = dsDetalles
|
||||||
|
Style.BorderColor = clWindowFrame
|
||||||
|
Style.BorderStyle = ebs3D
|
||||||
|
Style.HotTrack = False
|
||||||
|
Style.LookAndFeel.Kind = lfStandard
|
||||||
|
Style.LookAndFeel.NativeStyle = True
|
||||||
|
Style.LookAndFeel.SkinName = ''
|
||||||
|
StyleDisabled.LookAndFeel.Kind = lfStandard
|
||||||
|
StyleDisabled.LookAndFeel.NativeStyle = True
|
||||||
|
StyleDisabled.LookAndFeel.SkinName = ''
|
||||||
|
StyleFocused.LookAndFeel.Kind = lfStandard
|
||||||
|
StyleFocused.LookAndFeel.NativeStyle = True
|
||||||
|
StyleFocused.LookAndFeel.SkinName = ''
|
||||||
|
StyleHot.LookAndFeel.Kind = lfStandard
|
||||||
|
StyleHot.LookAndFeel.NativeStyle = True
|
||||||
|
StyleHot.LookAndFeel.SkinName = ''
|
||||||
|
TabOrder = 2
|
||||||
|
Width = 100
|
||||||
|
end
|
||||||
|
object dxLayoutControl1Group_Root: TdxLayoutGroup
|
||||||
|
AlignHorz = ahClient
|
||||||
|
AlignVert = avClient
|
||||||
|
CaptionOptions.Text = 'Direcci'#243'n de entrega'
|
||||||
|
ButtonOptions.Buttons = <>
|
||||||
|
Hidden = True
|
||||||
|
ShowBorder = False
|
||||||
|
object dxLayoutControl1Item4: TdxLayoutItem
|
||||||
|
CaptionOptions.Text = 'Calle:'
|
||||||
|
Control = eCalle
|
||||||
|
ControlOptions.ShowBorder = False
|
||||||
|
end
|
||||||
|
object dxLayoutControl1Group1: TdxLayoutGroup
|
||||||
|
ButtonOptions.Buttons = <>
|
||||||
|
Hidden = True
|
||||||
|
LayoutDirection = ldHorizontal
|
||||||
|
ShowBorder = False
|
||||||
|
object dxLayoutControl1Item3: TdxLayoutItem
|
||||||
|
AlignHorz = ahClient
|
||||||
|
CaptionOptions.Text = 'Provincia:'
|
||||||
|
Control = cbProvincia
|
||||||
|
ControlOptions.ShowBorder = False
|
||||||
|
end
|
||||||
|
object dxLayoutControl1Item5: TdxLayoutItem
|
||||||
|
AlignHorz = ahLeft
|
||||||
|
CaptionOptions.Text = 'C.P.:'
|
||||||
|
Control = eCodigoPostal
|
||||||
|
ControlOptions.ShowBorder = False
|
||||||
|
end
|
||||||
|
end
|
||||||
|
object dxLayoutControl1Item2: TdxLayoutItem
|
||||||
|
CaptionOptions.Text = 'Poblaci'#243'n:'
|
||||||
|
Control = cbPoblacion
|
||||||
|
ControlOptions.ShowBorder = False
|
||||||
|
end
|
||||||
|
end
|
||||||
|
end
|
||||||
|
object dsDetalles: TDADataSource
|
||||||
|
end
|
||||||
|
end
|
||||||
150
Source/Modulos/Contactos/Views/uViewDireccionEntrega.pas
Normal file
150
Source/Modulos/Contactos/Views/uViewDireccionEntrega.pas
Normal file
@ -0,0 +1,150 @@
|
|||||||
|
unit uViewDireccionEntrega;
|
||||||
|
|
||||||
|
interface
|
||||||
|
|
||||||
|
uses
|
||||||
|
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
|
||||||
|
Dialogs, uViewBase, cxStyles, cxCustomData, cxGraphics, cxFilter, cxData,
|
||||||
|
cxDataStorage, cxEdit, DB, cxDBData, cxTextEdit, cxGridLevel,
|
||||||
|
cxGridCustomTableView, cxGridTableView, cxGridBandedTableView,
|
||||||
|
cxGridDBBandedTableView, cxClasses, cxControls, cxGridCustomView, cxGrid,
|
||||||
|
uDADataTable, Grids, DBGrids, ActnList, ImgList, PngImageList, ComCtrls,
|
||||||
|
ToolWin, cxGridDBTableView, uViewDetallesGenerico, cxCurrencyEdit,
|
||||||
|
uDAInterfaces, cxLookAndFeels, cxLookAndFeelPainters, dxLayoutControl,
|
||||||
|
StdCtrls, Mask, DBCtrls, cxContainer, dxLayoutcxEditAdapters, cxDBEdit,
|
||||||
|
cxMaskEdit, cxDropDownEdit;
|
||||||
|
|
||||||
|
type
|
||||||
|
TfrViewDireccionEntrega = class(TfrViewBase)
|
||||||
|
dxLayoutControl1Group_Root: TdxLayoutGroup;
|
||||||
|
dxLayoutControl1: TdxLayoutControl;
|
||||||
|
dsDetalles: TDADataSource;
|
||||||
|
dxLayoutControl1Item2: TdxLayoutItem;
|
||||||
|
cbPoblacion: TcxDBComboBox;
|
||||||
|
dxLayoutControl1Item3: TdxLayoutItem;
|
||||||
|
cbProvincia: TcxDBComboBox;
|
||||||
|
dxLayoutControl1Item4: TdxLayoutItem;
|
||||||
|
eCalle: TcxDBTextEdit;
|
||||||
|
dxLayoutControl1Item5: TdxLayoutItem;
|
||||||
|
eCodigoPostal: TcxDBTextEdit;
|
||||||
|
dxLayoutControl1Group1: TdxLayoutGroup;
|
||||||
|
procedure cbPoblacionPropertiesInitPopup(Sender: TObject);
|
||||||
|
procedure cbProvinciaPropertiesInitPopup(Sender: TObject);
|
||||||
|
protected
|
||||||
|
FProvincias : TStringList;
|
||||||
|
FPoblaciones : TStringList;
|
||||||
|
procedure CargarProvincias;
|
||||||
|
procedure CargarPoblaciones;
|
||||||
|
|
||||||
|
public
|
||||||
|
constructor Create(AOwner : TComponent); override;
|
||||||
|
destructor Destroy; override;
|
||||||
|
|
||||||
|
end;
|
||||||
|
|
||||||
|
implementation
|
||||||
|
{$R *.dfm}
|
||||||
|
|
||||||
|
uses
|
||||||
|
uProvinciasPoblacionesController, uStringsUtils;
|
||||||
|
|
||||||
|
{ TfrViewDireccionEntrega }
|
||||||
|
|
||||||
|
procedure TfrViewDireccionEntrega.CargarPoblaciones;
|
||||||
|
var
|
||||||
|
i : integer;
|
||||||
|
AID : Integer;
|
||||||
|
begin
|
||||||
|
AID := StrToInt(FProvincias.Values[cbProvincia.Text]);
|
||||||
|
with TProvinciasPoblacionesController.Create do
|
||||||
|
try
|
||||||
|
FPoblaciones := DarListaPoblaciones(AID);
|
||||||
|
|
||||||
|
with cbPoblacion.Properties.Items do
|
||||||
|
begin
|
||||||
|
BeginUpdate;
|
||||||
|
try
|
||||||
|
Clear;
|
||||||
|
for i := 0 to FPoblaciones.Count - 1 do
|
||||||
|
Add(FPoblaciones.Names[i]);
|
||||||
|
finally
|
||||||
|
EndUpdate;
|
||||||
|
end;
|
||||||
|
end;
|
||||||
|
finally
|
||||||
|
Free;
|
||||||
|
end;
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TfrViewDireccionEntrega.CargarProvincias;
|
||||||
|
var
|
||||||
|
i : integer;
|
||||||
|
begin
|
||||||
|
with TProvinciasPoblacionesController.Create do
|
||||||
|
try
|
||||||
|
FProvincias := DarListaProvincias;
|
||||||
|
|
||||||
|
with cbProvincia.Properties.Items do
|
||||||
|
begin
|
||||||
|
BeginUpdate;
|
||||||
|
try
|
||||||
|
Clear;
|
||||||
|
for i := 0 to FProvincias.Count - 1 do
|
||||||
|
Add(FProvincias.Names[i]);
|
||||||
|
finally
|
||||||
|
EndUpdate;
|
||||||
|
end;
|
||||||
|
end;
|
||||||
|
finally
|
||||||
|
Free;
|
||||||
|
end;
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TfrViewDireccionEntrega.cbPoblacionPropertiesInitPopup(Sender: TObject);
|
||||||
|
begin
|
||||||
|
inherited;
|
||||||
|
|
||||||
|
ShowHourglassCursor;
|
||||||
|
try
|
||||||
|
FreeANDNIL(FPoblaciones);
|
||||||
|
if not Assigned(FProvincias) then
|
||||||
|
CargarProvincias;
|
||||||
|
if not EsCadenaVacia(cbProvincia.Text) and (FProvincias.IndexOfName(cbProvincia.Text) <> -1) then
|
||||||
|
CargarPoblaciones
|
||||||
|
finally
|
||||||
|
HideHourglassCursor;
|
||||||
|
end;
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TfrViewDireccionEntrega.cbProvinciaPropertiesInitPopup(Sender: TObject);
|
||||||
|
begin
|
||||||
|
inherited;
|
||||||
|
|
||||||
|
ShowHourglassCursor;
|
||||||
|
try
|
||||||
|
if not Assigned(FProvincias) then
|
||||||
|
CargarProvincias;
|
||||||
|
finally
|
||||||
|
HideHourglassCursor;
|
||||||
|
end;
|
||||||
|
end;
|
||||||
|
|
||||||
|
constructor TfrViewDireccionEntrega.Create(AOwner: TComponent);
|
||||||
|
begin
|
||||||
|
inherited;
|
||||||
|
FProvincias := NIL;
|
||||||
|
FPoblaciones := NIL;
|
||||||
|
end;
|
||||||
|
|
||||||
|
destructor TfrViewDireccionEntrega.Destroy;
|
||||||
|
begin
|
||||||
|
if Assigned(FProvincias) then
|
||||||
|
FreeANDNIL(FProvincias);
|
||||||
|
|
||||||
|
if Assigned(FPoblaciones) then
|
||||||
|
FreeANDNIL(FPoblaciones);
|
||||||
|
|
||||||
|
inherited;
|
||||||
|
end;
|
||||||
|
|
||||||
|
end.
|
||||||
@ -172,6 +172,7 @@ inherited fEditorFacturaCliente: TfEditorFacturaCliente
|
|||||||
inherited dxLayoutControl1: TdxLayoutControl
|
inherited dxLayoutControl1: TdxLayoutControl
|
||||||
Width = 531
|
Width = 531
|
||||||
inherited edtlNombre: TcxDBTextEdit
|
inherited edtlNombre: TcxDBTextEdit
|
||||||
|
DataBinding.DataSource = frViewFacturaCliente1.DADataSource
|
||||||
Style.LookAndFeel.SkinName = ''
|
Style.LookAndFeel.SkinName = ''
|
||||||
StyleDisabled.LookAndFeel.SkinName = ''
|
StyleDisabled.LookAndFeel.SkinName = ''
|
||||||
StyleFocused.LookAndFeel.SkinName = ''
|
StyleFocused.LookAndFeel.SkinName = ''
|
||||||
@ -181,6 +182,7 @@ inherited fEditorFacturaCliente: TfEditorFacturaCliente
|
|||||||
end
|
end
|
||||||
inherited edtNIFCIF: TcxDBTextEdit
|
inherited edtNIFCIF: TcxDBTextEdit
|
||||||
Left = 298
|
Left = 298
|
||||||
|
DataBinding.DataSource = frViewFacturaCliente1.DADataSource
|
||||||
Style.LookAndFeel.SkinName = ''
|
Style.LookAndFeel.SkinName = ''
|
||||||
StyleDisabled.LookAndFeel.SkinName = ''
|
StyleDisabled.LookAndFeel.SkinName = ''
|
||||||
StyleFocused.LookAndFeel.SkinName = ''
|
StyleFocused.LookAndFeel.SkinName = ''
|
||||||
@ -231,10 +233,6 @@ inherited fEditorFacturaCliente: TfEditorFacturaCliente
|
|||||||
object pagContenido: TTabSheet
|
object pagContenido: TTabSheet
|
||||||
Caption = 'Contenido'
|
Caption = 'Contenido'
|
||||||
ImageIndex = 1
|
ImageIndex = 1
|
||||||
ExplicitLeft = 0
|
|
||||||
ExplicitTop = 0
|
|
||||||
ExplicitWidth = 0
|
|
||||||
ExplicitHeight = 0
|
|
||||||
inline frViewDetallesFacturaCliente1: TfrViewDetallesFacturaCliente
|
inline frViewDetallesFacturaCliente1: TfrViewDetallesFacturaCliente
|
||||||
Left = 0
|
Left = 0
|
||||||
Top = 0
|
Top = 0
|
||||||
@ -255,103 +253,106 @@ inherited fEditorFacturaCliente: TfEditorFacturaCliente
|
|||||||
ExplicitHeight = 323
|
ExplicitHeight = 323
|
||||||
inherited ToolBar1: TToolBar
|
inherited ToolBar1: TToolBar
|
||||||
Width = 888
|
Width = 888
|
||||||
Height = 46
|
Height = 51
|
||||||
ExplicitWidth = 888
|
ExplicitWidth = 888
|
||||||
ExplicitHeight = 46
|
ExplicitHeight = 51
|
||||||
inherited ToolButton3: TToolButton
|
inherited ToolButton3: TToolButton
|
||||||
Wrap = False
|
Wrap = False
|
||||||
end
|
end
|
||||||
inherited ToolButton4: TToolButton
|
inherited ToolButton4: TToolButton
|
||||||
Left = 278
|
Left = 278
|
||||||
Top = 0
|
Top = 0
|
||||||
Wrap = True
|
|
||||||
ExplicitLeft = 278
|
ExplicitLeft = 278
|
||||||
ExplicitTop = 0
|
ExplicitTop = 0
|
||||||
end
|
end
|
||||||
inherited ToolButton14: TToolButton
|
inherited ToolButton14: TToolButton
|
||||||
Left = 0
|
Left = 334
|
||||||
|
Top = 0
|
||||||
Wrap = False
|
Wrap = False
|
||||||
ExplicitLeft = 0
|
ExplicitLeft = 334
|
||||||
|
ExplicitTop = 0
|
||||||
end
|
end
|
||||||
inherited FontName: TJvFontComboBox
|
inherited FontName: TJvFontComboBox
|
||||||
Left = 65
|
Left = 399
|
||||||
Top = 22
|
Top = 0
|
||||||
ExplicitLeft = 65
|
ExplicitLeft = 399
|
||||||
ExplicitTop = 22
|
ExplicitTop = 0
|
||||||
end
|
end
|
||||||
inherited FontSize: TEdit
|
inherited FontSize: TEdit
|
||||||
Left = 210
|
Left = 544
|
||||||
Top = 22
|
Top = 0
|
||||||
Width = 280
|
Width = 280
|
||||||
ExplicitLeft = 210
|
ExplicitLeft = 544
|
||||||
ExplicitTop = 22
|
ExplicitTop = 0
|
||||||
ExplicitWidth = 280
|
ExplicitWidth = 280
|
||||||
end
|
end
|
||||||
inherited UpDown1: TUpDown
|
inherited ToolButton13: TToolButton [7]
|
||||||
Left = 490
|
Left = 0
|
||||||
Top = 22
|
Top = 0
|
||||||
ExplicitLeft = 490
|
Wrap = True
|
||||||
ExplicitTop = 22
|
ExplicitLeft = 0
|
||||||
|
ExplicitTop = 0
|
||||||
|
ExplicitHeight = 27
|
||||||
end
|
end
|
||||||
inherited ToolButton13: TToolButton
|
inherited UpDown1: TUpDown [8]
|
||||||
Left = 507
|
Left = 0
|
||||||
Top = 22
|
Top = 27
|
||||||
ExplicitLeft = 507
|
ExplicitLeft = 0
|
||||||
ExplicitTop = 22
|
ExplicitTop = 27
|
||||||
end
|
end
|
||||||
inherited ToolButton6: TToolButton
|
inherited ToolButton6: TToolButton
|
||||||
Left = 515
|
Left = 17
|
||||||
Top = 22
|
Top = 27
|
||||||
ExplicitLeft = 515
|
ExplicitLeft = 17
|
||||||
ExplicitTop = 22
|
ExplicitTop = 27
|
||||||
end
|
end
|
||||||
inherited ToolButton7: TToolButton
|
inherited ToolButton7: TToolButton
|
||||||
Left = 581
|
Left = 83
|
||||||
Top = 22
|
Top = 27
|
||||||
ExplicitLeft = 581
|
ExplicitLeft = 83
|
||||||
ExplicitTop = 22
|
ExplicitTop = 27
|
||||||
end
|
end
|
||||||
inherited ToolButton8: TToolButton
|
inherited ToolButton8: TToolButton
|
||||||
Left = 648
|
Left = 150
|
||||||
Top = 22
|
Top = 27
|
||||||
ExplicitLeft = 648
|
ExplicitLeft = 150
|
||||||
ExplicitTop = 22
|
ExplicitTop = 27
|
||||||
end
|
end
|
||||||
inherited ToolButton12: TToolButton
|
inherited ToolButton12: TToolButton
|
||||||
Left = 731
|
Left = 233
|
||||||
Top = 22
|
Top = 27
|
||||||
ExplicitLeft = 731
|
ExplicitLeft = 233
|
||||||
ExplicitTop = 22
|
ExplicitTop = 27
|
||||||
end
|
end
|
||||||
inherited ToolButton9: TToolButton
|
inherited ToolButton9: TToolButton
|
||||||
Left = 739
|
Left = 241
|
||||||
Top = 22
|
Top = 27
|
||||||
ExplicitLeft = 739
|
ExplicitLeft = 241
|
||||||
ExplicitTop = 22
|
ExplicitTop = 27
|
||||||
end
|
end
|
||||||
inherited ToolButton10: TToolButton
|
inherited ToolButton10: TToolButton
|
||||||
Left = 884
|
Left = 386
|
||||||
Top = 22
|
Top = 27
|
||||||
ExplicitLeft = 884
|
ExplicitLeft = 386
|
||||||
ExplicitTop = 22
|
ExplicitTop = 27
|
||||||
end
|
end
|
||||||
inherited ToolButton11: TToolButton
|
inherited ToolButton11: TToolButton
|
||||||
Left = 1009
|
Left = 511
|
||||||
Top = 22
|
Top = 27
|
||||||
ExplicitLeft = 1009
|
ExplicitLeft = 511
|
||||||
ExplicitTop = 22
|
ExplicitTop = 27
|
||||||
end
|
end
|
||||||
end
|
end
|
||||||
inherited cxGrid: TcxGrid
|
inherited cxGrid: TcxGrid
|
||||||
Top = 72
|
Top = 77
|
||||||
Width = 888
|
Width = 888
|
||||||
Height = 251
|
Height = 246
|
||||||
ExplicitTop = 77
|
ExplicitTop = 77
|
||||||
ExplicitWidth = 888
|
ExplicitWidth = 888
|
||||||
ExplicitHeight = 246
|
ExplicitHeight = 246
|
||||||
end
|
end
|
||||||
inherited TBXDock1: TSpTBXDock
|
inherited TBXDock1: TSpTBXDock
|
||||||
Top = 46
|
Top = 51
|
||||||
Width = 888
|
Width = 888
|
||||||
ExplicitTop = 51
|
ExplicitTop = 51
|
||||||
ExplicitWidth = 888
|
ExplicitWidth = 888
|
||||||
|
|||||||
@ -291,14 +291,15 @@ begin
|
|||||||
if not FCliente.DataTable.Active then
|
if not FCliente.DataTable.Active then
|
||||||
FCliente.DataTable.Active := True;
|
FCliente.DataTable.Active := True;
|
||||||
|
|
||||||
if FCliente.Direcciones.RecordCount > 0 then
|
//En noviseda un cliente solo podrá tener una direccion de envio que nunca se tendrá en cuenta para los documentos (facturas, albaranes, etc) solo para las etiquetas y se hace por el informe
|
||||||
ElegirDireccionCliente
|
// if FCliente.Direcciones.RecordCount > 0 then
|
||||||
else
|
// ElegirDireccionCliente
|
||||||
begin
|
// else
|
||||||
|
// begin
|
||||||
FFactura.Edit;
|
FFactura.Edit;
|
||||||
FFactura.PERSONA_CONTACTO := FCliente.PERSONA_CONTACTO;
|
FFactura.PERSONA_CONTACTO := FCliente.PERSONA_CONTACTO;
|
||||||
RefrescarDireccion;
|
RefrescarDireccion;
|
||||||
end;
|
// end;
|
||||||
end
|
end
|
||||||
else begin
|
else begin
|
||||||
dsCliente.DataTable := NIL;
|
dsCliente.DataTable := NIL;
|
||||||
|
|||||||
@ -1,61 +1,82 @@
|
|||||||
inherited frViewDetallesFacturaCliente: TfrViewDetallesFacturaCliente
|
inherited frViewDetallesFacturaCliente: TfrViewDetallesFacturaCliente
|
||||||
inherited ToolBar1: TToolBar
|
inherited ToolBar1: TToolBar
|
||||||
inherited ToolButton3: TToolButton [1]
|
Height = 73
|
||||||
Left = 109
|
ExplicitHeight = 73
|
||||||
Top = 0
|
inherited ToolButton3: TToolButton
|
||||||
ExplicitLeft = 109
|
|
||||||
end
|
|
||||||
inherited ToolButton2: TToolButton
|
|
||||||
Left = 0
|
|
||||||
Top = 22
|
|
||||||
ExplicitLeft = 0
|
|
||||||
ExplicitTop = 22
|
|
||||||
end
|
|
||||||
inherited ToolButton4: TToolButton [3]
|
|
||||||
Left = 114
|
|
||||||
Top = 22
|
|
||||||
ExplicitLeft = 114
|
|
||||||
ExplicitTop = 22
|
|
||||||
end
|
|
||||||
inherited UpDown1: TUpDown [4]
|
|
||||||
Left = 170
|
|
||||||
ExplicitLeft = 170
|
|
||||||
end
|
|
||||||
inherited ToolButton14: TToolButton [5]
|
|
||||||
Left = 187
|
|
||||||
ExplicitLeft = 187
|
|
||||||
end
|
|
||||||
inherited ToolButton9: TToolButton
|
|
||||||
Left = 252
|
|
||||||
ExplicitLeft = 252
|
|
||||||
end
|
|
||||||
inherited ToolButton12: TToolButton [7]
|
|
||||||
Left = 397
|
|
||||||
ExplicitLeft = 397
|
|
||||||
end
|
|
||||||
inherited ToolButton10: TToolButton [12]
|
|
||||||
Left = 192
|
|
||||||
Top = 52
|
|
||||||
Wrap = True
|
|
||||||
ExplicitLeft = 192
|
|
||||||
ExplicitTop = 52
|
|
||||||
end
|
|
||||||
inherited ToolButton11: TToolButton [13]
|
|
||||||
Left = 0
|
|
||||||
Top = 74
|
|
||||||
Wrap = False
|
Wrap = False
|
||||||
ExplicitLeft = 0
|
|
||||||
ExplicitTop = 74
|
|
||||||
end
|
end
|
||||||
inherited ToolButton6: TToolButton
|
inherited ToolButton4: TToolButton
|
||||||
Left = 141
|
Left = 278
|
||||||
ExplicitLeft = 141
|
Top = 0
|
||||||
|
ExplicitLeft = 278
|
||||||
|
ExplicitTop = 0
|
||||||
|
end
|
||||||
|
inherited ToolButton14: TToolButton
|
||||||
|
Left = 334
|
||||||
|
Top = 0
|
||||||
|
ExplicitLeft = 334
|
||||||
|
ExplicitTop = 0
|
||||||
end
|
end
|
||||||
inherited FontName: TJvFontComboBox
|
inherited FontName: TJvFontComboBox
|
||||||
Left = 207
|
Top = 22
|
||||||
|
ExplicitTop = 22
|
||||||
|
end
|
||||||
|
inherited FontSize: TEdit
|
||||||
|
Top = 22
|
||||||
|
ExplicitTop = 22
|
||||||
|
end
|
||||||
|
inherited UpDown1: TUpDown
|
||||||
|
Top = 22
|
||||||
|
ExplicitTop = 22
|
||||||
|
end
|
||||||
|
inherited ToolButton13: TToolButton
|
||||||
|
Top = 22
|
||||||
|
ExplicitTop = 22
|
||||||
|
end
|
||||||
|
inherited ToolButton6: TToolButton
|
||||||
|
Top = 22
|
||||||
|
ExplicitTop = 22
|
||||||
|
end
|
||||||
|
inherited ToolButton7: TToolButton
|
||||||
|
Top = 22
|
||||||
|
ExplicitTop = 22
|
||||||
|
end
|
||||||
|
inherited ToolButton8: TToolButton
|
||||||
|
Top = 22
|
||||||
|
ExplicitTop = 22
|
||||||
|
end
|
||||||
|
inherited ToolButton12: TToolButton
|
||||||
|
Left = 0
|
||||||
|
Top = 22
|
||||||
|
Wrap = True
|
||||||
|
ExplicitLeft = 0
|
||||||
|
ExplicitTop = 22
|
||||||
|
ExplicitHeight = 27
|
||||||
|
end
|
||||||
|
inherited ToolButton9: TToolButton
|
||||||
|
Left = 0
|
||||||
|
Top = 49
|
||||||
|
ExplicitLeft = 0
|
||||||
|
ExplicitTop = 49
|
||||||
|
end
|
||||||
|
inherited ToolButton10: TToolButton
|
||||||
|
Left = 145
|
||||||
|
Top = 49
|
||||||
|
ExplicitLeft = 145
|
||||||
|
ExplicitTop = 49
|
||||||
|
end
|
||||||
|
inherited ToolButton11: TToolButton
|
||||||
|
Left = 270
|
||||||
|
Top = 49
|
||||||
|
ExplicitLeft = 270
|
||||||
|
ExplicitTop = 49
|
||||||
end
|
end
|
||||||
end
|
end
|
||||||
inherited cxGrid: TcxGrid
|
inherited cxGrid: TcxGrid
|
||||||
|
Top = 99
|
||||||
|
Height = 205
|
||||||
|
ExplicitTop = 99
|
||||||
|
ExplicitHeight = 205
|
||||||
inherited cxGridView: TcxGridDBTableView
|
inherited cxGridView: TcxGridDBTableView
|
||||||
inherited cxGridViewTIPO: TcxGridDBColumn
|
inherited cxGridViewTIPO: TcxGridDBColumn
|
||||||
Visible = False
|
Visible = False
|
||||||
@ -68,9 +89,11 @@ inherited frViewDetallesFacturaCliente: TfrViewDetallesFacturaCliente
|
|||||||
end
|
end
|
||||||
end
|
end
|
||||||
inherited TBXDock1: TSpTBXDock
|
inherited TBXDock1: TSpTBXDock
|
||||||
ExplicitTop = 95
|
Top = 73
|
||||||
|
ExplicitTop = 73
|
||||||
inherited TBXToolbar1: TSpTBXToolbar
|
inherited TBXToolbar1: TSpTBXToolbar
|
||||||
DockPos = 0
|
DockPos = 0
|
||||||
|
ExplicitWidth = 447
|
||||||
inherited TBXSubmenuItem1: TSpTBXSubmenuItem
|
inherited TBXSubmenuItem1: TSpTBXSubmenuItem
|
||||||
Enabled = False
|
Enabled = False
|
||||||
Visible = False
|
Visible = False
|
||||||
@ -78,9 +101,41 @@ inherited frViewDetallesFacturaCliente: TfrViewDetallesFacturaCliente
|
|||||||
end
|
end
|
||||||
end
|
end
|
||||||
inherited ActionListContenido: TActionList
|
inherited ActionListContenido: TActionList
|
||||||
|
inherited RichEditBold1: TRichEditBold
|
||||||
|
Enabled = False
|
||||||
|
Visible = False
|
||||||
|
end
|
||||||
|
inherited RichEditItalic1: TRichEditItalic
|
||||||
|
Enabled = False
|
||||||
|
Visible = False
|
||||||
|
end
|
||||||
|
inherited RichEditUnderline1: TRichEditUnderline
|
||||||
|
Enabled = False
|
||||||
|
Visible = False
|
||||||
|
end
|
||||||
|
inherited RichEditAlignLeft1: TRichEditAlignLeft
|
||||||
|
Enabled = False
|
||||||
|
Visible = False
|
||||||
|
end
|
||||||
|
inherited RichEditAlignCenter1: TRichEditAlignCenter
|
||||||
|
Enabled = False
|
||||||
|
Visible = False
|
||||||
|
end
|
||||||
|
inherited RichEditAlignRight1: TRichEditAlignRight
|
||||||
|
Enabled = False
|
||||||
|
Visible = False
|
||||||
|
end
|
||||||
|
inherited FontEdit1: TFontEdit
|
||||||
|
Enabled = False
|
||||||
|
Visible = False
|
||||||
|
end
|
||||||
inherited actAnadirArticulos: TAction
|
inherited actAnadirArticulos: TAction
|
||||||
Enabled = False
|
Enabled = False
|
||||||
Visible = False
|
Visible = False
|
||||||
end
|
end
|
||||||
|
inherited actExportar: TAction
|
||||||
|
Enabled = False
|
||||||
|
Visible = False
|
||||||
|
end
|
||||||
end
|
end
|
||||||
end
|
end
|
||||||
|
|||||||
@ -1,4 +1,5 @@
|
|||||||
<Project xmlns="http://schemas.microsoft.com/developer/msbuild/2003">
|
<?xml version="1.0" encoding="utf-8"?>
|
||||||
|
<Project xmlns="http://schemas.microsoft.com/developer/msbuild/2003">
|
||||||
<PropertyGroup>
|
<PropertyGroup>
|
||||||
<ProjectGuid>{7ed85635-c723-4c0b-bf1d-f719e0ea33ad}</ProjectGuid>
|
<ProjectGuid>{7ed85635-c723-4c0b-bf1d-f719e0ea33ad}</ProjectGuid>
|
||||||
<MainSource>PedidosCliente_controller.dpk</MainSource>
|
<MainSource>PedidosCliente_controller.dpk</MainSource>
|
||||||
@ -48,23 +49,23 @@
|
|||||||
<DelphiCompile Include="PedidosCliente_controller.dpk">
|
<DelphiCompile Include="PedidosCliente_controller.dpk">
|
||||||
<MainSource>MainSource</MainSource>
|
<MainSource>MainSource</MainSource>
|
||||||
</DelphiCompile>
|
</DelphiCompile>
|
||||||
<DCCReference Include="..\..\Lib\adortl.dcp" />
|
<DCCReference Include="..\..\..\Servidor\adortl.dcp" />
|
||||||
<DCCReference Include="..\..\Lib\Articulos_controller.dcp" />
|
<DCCReference Include="..\..\..\Servidor\Articulos_controller.dcp" />
|
||||||
<DCCReference Include="..\..\Lib\Contactos_controller.dcp" />
|
<DCCReference Include="..\..\..\Servidor\Contactos_controller.dcp" />
|
||||||
<DCCReference Include="..\..\Lib\Contactos_model.dcp" />
|
<DCCReference Include="..\..\..\Servidor\Contactos_model.dcp" />
|
||||||
<DCCReference Include="..\..\Lib\cxLibraryD11.dcp" />
|
<DCCReference Include="..\..\..\Servidor\cxLibraryD11.dcp" />
|
||||||
<DCCReference Include="..\..\Lib\DataAbstract_Core_D11.dcp" />
|
<DCCReference Include="..\..\..\Servidor\DataAbstract_Core_D11.dcp" />
|
||||||
<DCCReference Include="..\..\Lib\dbrtl.dcp" />
|
<DCCReference Include="..\..\..\Servidor\dbrtl.dcp" />
|
||||||
<DCCReference Include="..\..\Lib\dsnap.dcp" />
|
<DCCReference Include="..\..\..\Servidor\dsnap.dcp" />
|
||||||
<DCCReference Include="..\..\Lib\dxGDIPlusD11.dcp" />
|
<DCCReference Include="..\..\..\Servidor\dxGDIPlusD11.dcp" />
|
||||||
<DCCReference Include="..\..\Lib\dxThemeD11.dcp" />
|
<DCCReference Include="..\..\..\Servidor\dxThemeD11.dcp" />
|
||||||
<DCCReference Include="..\..\Lib\GUIBase.dcp" />
|
<DCCReference Include="..\..\..\Servidor\GUIBase.dcp" />
|
||||||
<DCCReference Include="..\..\Lib\PedidosCliente_data.dcp" />
|
<DCCReference Include="..\..\..\Servidor\PedidosCliente_data.dcp" />
|
||||||
<DCCReference Include="..\..\Lib\PedidosCliente_model.dcp" />
|
<DCCReference Include="..\..\..\Servidor\PedidosCliente_model.dcp" />
|
||||||
<DCCReference Include="..\..\Lib\RemObjects_Core_D11.dcp" />
|
<DCCReference Include="..\..\..\Servidor\RemObjects_Core_D11.dcp" />
|
||||||
<DCCReference Include="..\..\Lib\rtl.dcp" />
|
<DCCReference Include="..\..\..\Servidor\rtl.dcp" />
|
||||||
<DCCReference Include="..\..\Lib\vcl.dcp" />
|
<DCCReference Include="..\..\..\Servidor\vcl.dcp" />
|
||||||
<DCCReference Include="..\..\Lib\vcldb.dcp" />
|
<DCCReference Include="..\..\..\Servidor\vcldb.dcp" />
|
||||||
<DCCReference Include="uArticulosPedidoClienteController.pas" />
|
<DCCReference Include="uArticulosPedidoClienteController.pas" />
|
||||||
<DCCReference Include="uDetallesPedidoClienteController.pas" />
|
<DCCReference Include="uDetallesPedidoClienteController.pas" />
|
||||||
<DCCReference Include="uPedidosClienteController.pas" />
|
<DCCReference Include="uPedidosClienteController.pas" />
|
||||||
|
|||||||
@ -28,18 +28,16 @@ var
|
|||||||
begin
|
begin
|
||||||
Result := NIL;
|
Result := NIL;
|
||||||
CreateEditor('EditorElegirArticulosPedidosCliente', IEditorElegirArticulosPedidosCliente, AEditor);
|
CreateEditor('EditorElegirArticulosPedidosCliente', IEditorElegirArticulosPedidosCliente, AEditor);
|
||||||
|
if Assigned(AEditor) then
|
||||||
try
|
try
|
||||||
with AEditor do
|
AEditor.Controller := Self;
|
||||||
begin
|
AEditor.Articulos := AArticulos;
|
||||||
Controller := Self;
|
AEditor.MultiSelect := AMultiSelect;
|
||||||
Articulos := AArticulos;
|
AEditor.Mensaje := AMensaje;
|
||||||
MultiSelect := AMultiSelect;
|
if IsPositiveResult(AEditor.ShowModal) then
|
||||||
Mensaje := AMensaje;
|
Result := AEditor.ArticulosSeleccionados;
|
||||||
if IsPositiveResult(ShowModal) then
|
|
||||||
Result := ArticulosSeleccionados;
|
|
||||||
Release;
|
|
||||||
end;
|
|
||||||
finally
|
finally
|
||||||
|
AEditor.Release;
|
||||||
AEditor := NIL;
|
AEditor := NIL;
|
||||||
end;
|
end;
|
||||||
end;
|
end;
|
||||||
|
|||||||
@ -9,10 +9,11 @@ uses
|
|||||||
type
|
type
|
||||||
IDetallesPedidoClienteController = interface(IControllerDetallesArticulos)
|
IDetallesPedidoClienteController = interface(IControllerDetallesArticulos)
|
||||||
['{8D1D3559-E695-4962-9999-404B26B50D6C}']
|
['{8D1D3559-E695-4962-9999-404B26B50D6C}']
|
||||||
procedure AnadirArticulos(ADetalles: IDAStronglyTypedDataTable; ACliente: IBizCliente; const ANuevaFila :Boolean = True); overload;
|
procedure AnadirArticulos(ADetalles: IDAStronglyTypedDataTable; ACliente: IBizCliente; const ANuevaFila :Boolean = True; const ACantidad: Integer = 1); overload;
|
||||||
procedure ActualizarDetalles(ADetalles: IDAStronglyTypedDataTable; ACliente: IBizCliente); overload;
|
procedure ActualizarDetalles(ADetalles: IDAStronglyTypedDataTable; ACliente: IBizCliente); overload;
|
||||||
procedure DesglosarPorteDetalles(ImportePorte: Currency; ADetalles: IDAStronglyTypedDataTable);
|
procedure DesglosarPorteDetalles(ImportePorte: Currency; ADetalles: IDAStronglyTypedDataTable);
|
||||||
function DarTotalPorteTotal(ADetalles: IDAStronglyTypedDataTable): Double;
|
function DarTotalPorteTotal(ADetalles: IDAStronglyTypedDataTable): Double;
|
||||||
|
procedure ModificarCantidadColores(ADetalles: IDAStronglyTypedDataTable);
|
||||||
end;
|
end;
|
||||||
|
|
||||||
TDetallesPedidoClienteController = class(TControllerDetallesArticulos, IDetallesPedidoClienteController)
|
TDetallesPedidoClienteController = class(TControllerDetallesArticulos, IDetallesPedidoClienteController)
|
||||||
@ -30,16 +31,17 @@ type
|
|||||||
function DarTotalPorteTotal(ADetalles: IDAStronglyTypedDataTable): Double;
|
function DarTotalPorteTotal(ADetalles: IDAStronglyTypedDataTable): Double;
|
||||||
|
|
||||||
public
|
public
|
||||||
procedure AnadirArticulos(ADetalles: IDAStronglyTypedDataTable; ACliente: IBizCliente; const ANuevaFila :Boolean = True); reintroduce; overload;
|
procedure AnadirArticulos(ADetalles: IDAStronglyTypedDataTable; ACliente: IBizCliente; const ANuevaFila :Boolean = True; const ACantidad: Integer = 1); overload;
|
||||||
procedure ActualizarDetalles(ADetalles: IDAStronglyTypedDataTable; ACliente: IBizCliente); overload;
|
procedure ActualizarDetalles(ADetalles: IDAStronglyTypedDataTable; ACliente: IBizCliente); overload;
|
||||||
|
procedure ModificarCantidadColores(ADetalles: IDAStronglyTypedDataTable);
|
||||||
constructor Create; override;
|
constructor Create; override;
|
||||||
destructor Destroy; override;
|
destructor Destroy; override;
|
||||||
end;
|
end;
|
||||||
|
|
||||||
implementation
|
implementation
|
||||||
|
|
||||||
uses Dialogs, uDialogUtils, Variants, uControllerDetallesBase, uDataModulePedidosCliente, uArticulosPedidoClienteController,
|
uses Dialogs, Controls, uDialogUtils, Variants, uControllerDetallesBase, uEditorColores,
|
||||||
uDataTableUtils, uCalculosUtils;
|
uDataModulePedidosCliente, uArticulosPedidoClienteController, uDataTableUtils, uCalculosUtils;
|
||||||
|
|
||||||
{ TDetallesPedidoClienteController }
|
{ TDetallesPedidoClienteController }
|
||||||
|
|
||||||
@ -52,14 +54,14 @@ begin
|
|||||||
try
|
try
|
||||||
AArticulos := (FArticulosController.BuscarTodos(ACliente) as IBizArticulo);
|
AArticulos := (FArticulosController.BuscarTodos(ACliente) as IBizArticulo);
|
||||||
ActualizarDetalles(ADetalles, AArticulos);
|
ActualizarDetalles(ADetalles, AArticulos);
|
||||||
ShowInfoMessage('Se han actualizado los descuentos para el cliente seleccionado');
|
// ShowInfoMessage('Se han actualizado los descuentos para el cliente seleccionado');
|
||||||
finally
|
finally
|
||||||
AArticulos := Nil;
|
AArticulos := Nil;
|
||||||
end;
|
end;
|
||||||
end;
|
end;
|
||||||
end;
|
end;
|
||||||
|
|
||||||
procedure TDetallesPedidoClienteController.AnadirArticulos(ADetalles: IDAStronglyTypedDataTable; ACliente: IBizCliente; const ANuevaFila :Boolean = True);
|
procedure TDetallesPedidoClienteController.AnadirArticulos(ADetalles: IDAStronglyTypedDataTable; ACliente: IBizCliente; const ANuevaFila :Boolean = True; const ACantidad: Integer = 1);
|
||||||
var
|
var
|
||||||
AArticulos: IBizArticulo;
|
AArticulos: IBizArticulo;
|
||||||
begin
|
begin
|
||||||
@ -67,16 +69,17 @@ begin
|
|||||||
begin
|
begin
|
||||||
try
|
try
|
||||||
AArticulos := (FArticulosController.BuscarTodos(ACliente) as IBizArticulo);
|
AArticulos := (FArticulosController.BuscarTodos(ACliente) as IBizArticulo);
|
||||||
|
|
||||||
//Si nueva fila es false, quiere decir que se sustituye un determinado artículo, por ello la lista a seleccionar no debe ser multiselect
|
//Si nueva fila es false, quiere decir que se sustituye un determinado artículo, por ello la lista a seleccionar no debe ser multiselect
|
||||||
if ANuevaFila then
|
if ANuevaFila then
|
||||||
begin
|
begin
|
||||||
AArticulos := (FArticulosController as IArticulosPedidoClienteController).ElegirArticulos(AArticulos, 'Elija los artículos que desea añadir a este presupuesto de cliente', True);
|
AArticulos := (FArticulosController as IArticulosPedidoClienteController).ElegirArticulos(AArticulos, 'Elija los artículos que desea añadir a este presupuesto de cliente', True);
|
||||||
Add(ADetalles, AArticulos)
|
Add(ADetalles, AArticulos, ACantidad)
|
||||||
end
|
end
|
||||||
else
|
else
|
||||||
begin
|
begin
|
||||||
AArticulos := (FArticulosController as IArticulosPedidoClienteController).ElegirArticulos(AArticulos, 'Elija el artículo que desea añadir a este presupuesto de cliente', False);
|
AArticulos := (FArticulosController as IArticulosPedidoClienteController).ElegirArticulos(AArticulos, 'Elija el artículo que desea añadir a este presupuesto de cliente', False);
|
||||||
RellenarDetalle(ADetalles, AArticulos);
|
RellenarDetalle(ADetalles, AArticulos, ACantidad);
|
||||||
end;
|
end;
|
||||||
finally
|
finally
|
||||||
AArticulos := Nil;
|
AArticulos := Nil;
|
||||||
@ -118,12 +121,45 @@ begin
|
|||||||
end;
|
end;
|
||||||
|
|
||||||
|
|
||||||
|
procedure TDetallesPedidoClienteController.ModificarCantidadColores(ADetalles: IDAStronglyTypedDataTable);
|
||||||
|
var
|
||||||
|
ADetallesAux: IBizDetallesPedidoCliente;
|
||||||
|
begin
|
||||||
|
if Assigned(ADetalles) then
|
||||||
|
begin
|
||||||
|
ADetallesAux := (ADetalles as IBizDetallesPedidoCliente);
|
||||||
|
with TfEditorColores.Create(NIL) do
|
||||||
|
try
|
||||||
|
dsDataTable.DataTable := ADetallesAux.DetalleColores.DataTable;
|
||||||
|
Referencia := ADetallesAux.REFERENCIA;
|
||||||
|
Descripcion := ADetallesAux.CONCEPTO;
|
||||||
|
|
||||||
|
if (ShowModal = mrOK) then
|
||||||
|
begin
|
||||||
|
if ADetallesAux.DetalleColores.DataTable.Editing then
|
||||||
|
ADetallesAux.DetalleColores.DataTable.Post;
|
||||||
|
|
||||||
|
if not ADetallesAux.DataTable.Editing then
|
||||||
|
ADetallesAux.DataTable.Edit;
|
||||||
|
ADetallesAux.CANTIDAD := Total;
|
||||||
|
if ADetallesAux.DataTable.Editing then
|
||||||
|
ADetallesAux.DataTable.post;
|
||||||
|
|
||||||
|
ActualizarTotales(ADetalles);
|
||||||
|
end
|
||||||
|
else
|
||||||
|
ADetallesAux.DetalleColores.DataTable.Cancel;
|
||||||
|
finally
|
||||||
|
Release;
|
||||||
|
end;
|
||||||
|
end;
|
||||||
|
end;
|
||||||
|
|
||||||
procedure TDetallesPedidoClienteController.RellenarOtros(ADetalles: IDAStronglyTypedDataTable; AArticulos: IBizArticulo);
|
procedure TDetallesPedidoClienteController.RellenarOtros(ADetalles: IDAStronglyTypedDataTable; AArticulos: IBizArticulo);
|
||||||
begin
|
begin
|
||||||
|
//Solo para albaranes que es donde se distingue entre colores para tema de stock
|
||||||
if Assigned(AArticulos) then
|
if Assigned(AArticulos) then
|
||||||
ADetalles.DataTable.FieldByName(CAMPO_DESCUENTO).AsFloat := AArticulos.DESCUENTO
|
ModificarCantidadColores(ADetalles);
|
||||||
else
|
|
||||||
ADetalles.DataTable.FieldByName(CAMPO_DESCUENTO).AsFloat := 0;
|
|
||||||
end;
|
end;
|
||||||
|
|
||||||
procedure TDetallesPedidoClienteController.ValidarCampos(DataTable: TDADataTable);
|
procedure TDetallesPedidoClienteController.ValidarCampos(DataTable: TDADataTable);
|
||||||
@ -134,8 +170,11 @@ end;
|
|||||||
|
|
||||||
procedure TDetallesPedidoClienteController.RellenarImportes(ADetalles: IDAStronglyTypedDataTable; AArticulos: IBizArticulo);
|
procedure TDetallesPedidoClienteController.RellenarImportes(ADetalles: IDAStronglyTypedDataTable; AArticulos: IBizArticulo);
|
||||||
begin
|
begin
|
||||||
|
//Como en noviseda no hay descuento por linea de detalle, solo recuperamos nuevamente el valor del articulo cuando el detalle no tenga niguno
|
||||||
|
//de esta forma evitamos que al cambiar de cliente se quiten los importes que se hubiesen establecido para los articulos.
|
||||||
|
if ADetalles.DataTable.FieldByName(CAMPO_IMPORTE_UNIDAD).IsNull then
|
||||||
if Assigned(AArticulos) then
|
if Assigned(AArticulos) then
|
||||||
ADetalles.DataTable.FieldByName(CAMPO_IMPORTE_UNIDAD).AsVariant := AArticulos.PRECIO_COSTE
|
ADetalles.DataTable.FieldByName(CAMPO_IMPORTE_UNIDAD).AsVariant := AArticulos.PRECIO
|
||||||
else
|
else
|
||||||
ADetalles.DataTable.FieldByName(CAMPO_IMPORTE_UNIDAD).AsVariant := Null;
|
ADetalles.DataTable.FieldByName(CAMPO_IMPORTE_UNIDAD).AsVariant := Null;
|
||||||
end;
|
end;
|
||||||
|
|||||||
@ -351,6 +351,10 @@ begin
|
|||||||
if (EsFechaVacia(APedido.FECHA_PEDIDO)) then
|
if (EsFechaVacia(APedido.FECHA_PEDIDO)) then
|
||||||
raise Exception.Create('Debe indicar la fecha de este pedido');
|
raise Exception.Create('Debe indicar la fecha de este pedido');
|
||||||
|
|
||||||
|
{ Un albaran debe tener una forma de pago asignada. }
|
||||||
|
if (APedido.ID_FORMA_PAGO = 0) then
|
||||||
|
raise Exception.Create('Debe indicar una forma de pago para este pedido');
|
||||||
|
|
||||||
if (not EsFechaVacia(APedido.FECHA_PREVISTA_ENVIO)) then
|
if (not EsFechaVacia(APedido.FECHA_PREVISTA_ENVIO)) then
|
||||||
begin
|
begin
|
||||||
if (APedido.FECHA_PREVISTA_ENVIO < APedido.FECHA_PEDIDO) then
|
if (APedido.FECHA_PREVISTA_ENVIO < APedido.FECHA_PEDIDO) then
|
||||||
|
|||||||
@ -1,4 +1,5 @@
|
|||||||
<Project xmlns="http://schemas.microsoft.com/developer/msbuild/2003">
|
<?xml version="1.0" encoding="utf-8"?>
|
||||||
|
<Project xmlns="http://schemas.microsoft.com/developer/msbuild/2003">
|
||||||
<PropertyGroup>
|
<PropertyGroup>
|
||||||
<ProjectGuid>{38eef566-1895-4bdd-8007-f92f5e32cce6}</ProjectGuid>
|
<ProjectGuid>{38eef566-1895-4bdd-8007-f92f5e32cce6}</ProjectGuid>
|
||||||
<MainSource>PedidosCliente_data.dpk</MainSource>
|
<MainSource>PedidosCliente_data.dpk</MainSource>
|
||||||
@ -36,63 +37,505 @@
|
|||||||
<DCC_ResourcePath>..\..\..\Lib;..\..\Lib</DCC_ResourcePath>
|
<DCC_ResourcePath>..\..\..\Lib;..\..\Lib</DCC_ResourcePath>
|
||||||
<DCC_ObjPath>..\..\..\Lib;..\..\Lib</DCC_ObjPath>
|
<DCC_ObjPath>..\..\..\Lib;..\..\Lib</DCC_ObjPath>
|
||||||
<DCC_IncludePath>..\..\..\Lib;..\..\Lib</DCC_IncludePath>
|
<DCC_IncludePath>..\..\..\Lib;..\..\Lib</DCC_IncludePath>
|
||||||
<DCC_Define>DEBUG</DCC_Define>
|
|
||||||
</PropertyGroup>
|
</PropertyGroup>
|
||||||
<ProjectExtensions>
|
<ProjectExtensions>
|
||||||
<Borland.Personality>Delphi.Personality</Borland.Personality>
|
<Borland.Personality>Delphi.Personality</Borland.Personality>
|
||||||
<Borland.ProjectType>Package</Borland.ProjectType>
|
<Borland.ProjectType>Package</Borland.ProjectType>
|
||||||
<BorlandProject>
|
<BorlandProject>
|
||||||
<BorlandProject xmlns=""> <Delphi.Personality> <Parameters>
|
<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="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 Name="Comments"></VersionInfoKeys></VersionInfoKeys><Source><Source Name="MainSource">PedidosCliente_data.dpk</Source></Source></Delphi.Personality></BorlandProject></BorlandProject>
|
||||||
<Parameters Name="UseLauncher">False</Parameters>
|
|
||||||
<Parameters Name="LoadAllSymbols">True</Parameters>
|
|
||||||
<Parameters Name="LoadUnspecifiedSymbols">False</Parameters>
|
|
||||||
</Parameters>
|
|
||||||
<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 Name="Comments"></VersionInfoKeys>
|
|
||||||
</VersionInfoKeys>
|
|
||||||
<Source>
|
|
||||||
<Source Name="MainSource">PedidosCliente_data.dpk</Source>
|
|
||||||
</Source>
|
|
||||||
</Delphi.Personality> </BorlandProject></BorlandProject>
|
|
||||||
</ProjectExtensions>
|
</ProjectExtensions>
|
||||||
<ItemGroup />
|
<Import Project="$(MSBuildBinPath)\Borland.Delphi.Targets" />
|
||||||
<ItemGroup>
|
<ItemGroup>
|
||||||
<DelphiCompile Include="PedidosCliente_data.dpk">
|
<DelphiCompile Include="PedidosCliente_data.dpk">
|
||||||
<MainSource>MainSource</MainSource>
|
<MainSource>MainSource</MainSource>
|
||||||
</DelphiCompile>
|
</DelphiCompile>
|
||||||
<DCCReference Include="..\PedidosCliente_model.dcp" />
|
<DCCReference Include="..\..\..\Servidor\PedidosCliente_model.dcp" />
|
||||||
<DCCReference Include="uDataModulePedidosCliente.pas">
|
<DCCReference Include="uDataModulePedidosCliente.pas">
|
||||||
<Form>DataModulePedidosCliente</Form>
|
<Form>DataModulePedidosCliente</Form>
|
||||||
</DCCReference>
|
</DCCReference>
|
||||||
</ItemGroup>
|
</ItemGroup>
|
||||||
<Import Project="$(MSBuildBinPath)\Borland.Delphi.Targets" />
|
|
||||||
</Project>
|
</Project>
|
||||||
|
|
||||||
|
<!-- EurekaLog First Line
|
||||||
|
[Exception Log]
|
||||||
|
EurekaLog Version=6011
|
||||||
|
Activate=0
|
||||||
|
Activate Handle=1
|
||||||
|
Save Log File=1
|
||||||
|
Foreground Tab=0
|
||||||
|
Freeze Activate=0
|
||||||
|
Freeze Timeout=60
|
||||||
|
SMTP From=eurekalog@email.com
|
||||||
|
SMTP Host=
|
||||||
|
SMTP Port=25
|
||||||
|
SMTP UserID=
|
||||||
|
SMTP Password=
|
||||||
|
Append to Log=0
|
||||||
|
TerminateBtn Operation=2
|
||||||
|
Errors Number=32
|
||||||
|
Errors Terminate=3
|
||||||
|
Email Address=
|
||||||
|
Email Object=
|
||||||
|
Email Send Options=0
|
||||||
|
Output Path=
|
||||||
|
Encrypt Password=
|
||||||
|
AutoCloseDialogSecs=0
|
||||||
|
WebSendMode=0
|
||||||
|
SupportULR=
|
||||||
|
HTMLLayout Count=15
|
||||||
|
HTMLLine0="%3Chtml%3E"
|
||||||
|
HTMLLine1=" %3Chead%3E"
|
||||||
|
HTMLLine2=" %3C/head%3E"
|
||||||
|
HTMLLine3=" %3Cbody TopMargin=10 LeftMargin=10%3E"
|
||||||
|
HTMLLine4=" %3Ctable width="100%%" border="0"%3E"
|
||||||
|
HTMLLine5=" %3Ctr%3E"
|
||||||
|
HTMLLine6=" %3Ctd nowrap%3E"
|
||||||
|
HTMLLine7=" %3Cfont face="Lucida Console, Courier" size="2"%3E"
|
||||||
|
HTMLLine8=" %3C%%HTML_TAG%%%3E"
|
||||||
|
HTMLLine9=" %3C/font%3E"
|
||||||
|
HTMLLine10=" %3C/td%3E"
|
||||||
|
HTMLLine11=" %3C/tr%3E"
|
||||||
|
HTMLLine12=" %3C/table%3E"
|
||||||
|
HTMLLine13=" %3C/body%3E"
|
||||||
|
HTMLLine14="%3C/html%3E"
|
||||||
|
AutoCrashOperation=2
|
||||||
|
AutoCrashNumber=10
|
||||||
|
AutoCrashMinutes=1
|
||||||
|
WebURL=
|
||||||
|
WebUserID=
|
||||||
|
WebPassword=
|
||||||
|
WebPort=0
|
||||||
|
AttachedFiles=
|
||||||
|
ProxyURL=
|
||||||
|
ProxyUser=
|
||||||
|
ProxyPassword=
|
||||||
|
ProxyPort=8080
|
||||||
|
TrakerUser=
|
||||||
|
TrakerPassword=
|
||||||
|
TrakerAssignTo=
|
||||||
|
TrakerProject=
|
||||||
|
TrakerCategory=
|
||||||
|
TrakerTrialID=
|
||||||
|
ZipPassword=
|
||||||
|
PreBuildEvent=
|
||||||
|
PostSuccessfulBuildEvent=
|
||||||
|
PostFailureBuildEvent=
|
||||||
|
ExceptionDialogType=2
|
||||||
|
Count=0
|
||||||
|
EMail Message Line Count=0
|
||||||
|
loNoDuplicateErrors=0
|
||||||
|
loAppendReproduceText=0
|
||||||
|
loDeleteLogAtVersionChange=0
|
||||||
|
loAddComputerNameInLogFileName=0
|
||||||
|
loSaveModulesAndProcessesSections=1
|
||||||
|
loSaveAssemblerAndCPUSections=1
|
||||||
|
soAppStartDate=1
|
||||||
|
soAppName=1
|
||||||
|
soAppVersionNumber=1
|
||||||
|
soAppParameters=1
|
||||||
|
soAppCompilationDate=1
|
||||||
|
soAppUpTime=1
|
||||||
|
soExcDate=1
|
||||||
|
soExcAddress=1
|
||||||
|
soExcModuleName=1
|
||||||
|
soExcModuleVersion=1
|
||||||
|
soExcType=1
|
||||||
|
soExcMessage=1
|
||||||
|
soExcID=1
|
||||||
|
soExcCount=1
|
||||||
|
soExcStatus=1
|
||||||
|
soExcNote=1
|
||||||
|
soUserID=1
|
||||||
|
soUserName=1
|
||||||
|
soUserEmail=1
|
||||||
|
soUserPrivileges=1
|
||||||
|
soUserCompany=1
|
||||||
|
soActCtlsFormClass=1
|
||||||
|
soActCtlsFormText=1
|
||||||
|
soActCtlsControlClass=1
|
||||||
|
soActCtlsControlText=1
|
||||||
|
soCmpName=1
|
||||||
|
soCmpTotalMemory=1
|
||||||
|
soCmpFreeMemory=1
|
||||||
|
soCmpTotalDisk=1
|
||||||
|
soCmpFreeDisk=1
|
||||||
|
soCmpSysUpTime=1
|
||||||
|
soCmpProcessor=1
|
||||||
|
soCmpDisplayMode=1
|
||||||
|
soCmpDisplayDPI=1
|
||||||
|
soCmpVideoCard=1
|
||||||
|
soCmpPrinter=1
|
||||||
|
soOSType=1
|
||||||
|
soOSBuildN=1
|
||||||
|
soOSUpdate=1
|
||||||
|
soOSLanguage=1
|
||||||
|
soOSCharset=1
|
||||||
|
soNetIP=1
|
||||||
|
soNetSubmask=1
|
||||||
|
soNetGateway=1
|
||||||
|
soNetDNS1=1
|
||||||
|
soNetDNS2=1
|
||||||
|
soNetDHCP=1
|
||||||
|
soCustomData=1
|
||||||
|
sndShowSendDialog=1
|
||||||
|
sndShowSuccessFailureMsg=0
|
||||||
|
sndSendEntireLog=0
|
||||||
|
sndSendXMLLogCopy=0
|
||||||
|
sndSendScreenshot=1
|
||||||
|
sndUseOnlyActiveWindow=0
|
||||||
|
sndSendLastHTMLPage=1
|
||||||
|
sndSendInSeparatedThread=0
|
||||||
|
sndAddDateInFileName=0
|
||||||
|
sndAddComputerNameInFileName=0
|
||||||
|
edoSendErrorReportChecked=1
|
||||||
|
edoAttachScreenshotChecked=1
|
||||||
|
edoShowCopyToClipOption=1
|
||||||
|
edoShowDetailsButton=1
|
||||||
|
edoShowInDetailedMode=0
|
||||||
|
edoShowInTopMostMode=0
|
||||||
|
edoUseEurekaLogLookAndFeel=0
|
||||||
|
edoShowSendErrorReportOption=1
|
||||||
|
edoShowAttachScreenshotOption=1
|
||||||
|
edoShowCustomButton=0
|
||||||
|
csoShowDLLs=1
|
||||||
|
csoShowBPLs=1
|
||||||
|
csoShowBorlandThreads=1
|
||||||
|
csoShowWindowsThreads=1
|
||||||
|
csoDoNotStoreProcNames=0
|
||||||
|
boPauseBorlandThreads=0
|
||||||
|
boDoNotPauseMainThread=0
|
||||||
|
boPauseWindowsThreads=0
|
||||||
|
boUseMainModuleOptions=1
|
||||||
|
boCopyLogInCaseOfError=1
|
||||||
|
boSaveCompressedCopyInCaseOfError=0
|
||||||
|
boHandleSafeCallExceptions=1
|
||||||
|
boCallRTLExceptionEvent=0
|
||||||
|
boCatchHandledExceptions=0
|
||||||
|
loCatchLeaks=0
|
||||||
|
loGroupsSonLeaks=1
|
||||||
|
loHideBorlandLeaks=1
|
||||||
|
loFreeAllLeaks=1
|
||||||
|
loCatchLeaksExceptions=1
|
||||||
|
cfoReduceFileSize=1
|
||||||
|
cfoCheckFileCorruption=0
|
||||||
|
Count mtInformationMsgCaption=1
|
||||||
|
mtInformationMsgCaption0="Information."
|
||||||
|
Count mtQuestionMsgCaption=1
|
||||||
|
mtQuestionMsgCaption0="Question."
|
||||||
|
Count mtErrorMsgCaption=1
|
||||||
|
mtErrorMsgCaption0="Error."
|
||||||
|
Count mtDialog_Caption=1
|
||||||
|
mtDialog_Caption0="Error occurred"
|
||||||
|
Count mtDialog_ErrorMsgCaption=2
|
||||||
|
mtDialog_ErrorMsgCaption0="An error has occurred during program execution."
|
||||||
|
mtDialog_ErrorMsgCaption1="Please read the following information for further details."
|
||||||
|
Count mtDialog_GeneralCaption=1
|
||||||
|
mtDialog_GeneralCaption0="General"
|
||||||
|
Count mtDialog_GeneralHeader=1
|
||||||
|
mtDialog_GeneralHeader0="General Information"
|
||||||
|
Count mtDialog_CallStackCaption=1
|
||||||
|
mtDialog_CallStackCaption0="Call Stack"
|
||||||
|
Count mtDialog_CallStackHeader=1
|
||||||
|
mtDialog_CallStackHeader0="Call Stack Information"
|
||||||
|
Count mtDialog_ModulesCaption=1
|
||||||
|
mtDialog_ModulesCaption0="Modules"
|
||||||
|
Count mtDialog_ModulesHeader=1
|
||||||
|
mtDialog_ModulesHeader0="Modules Information"
|
||||||
|
Count mtDialog_ProcessesCaption=1
|
||||||
|
mtDialog_ProcessesCaption0="Processes"
|
||||||
|
Count mtDialog_ProcessesHeader=1
|
||||||
|
mtDialog_ProcessesHeader0="Processes Information"
|
||||||
|
Count mtDialog_AsmCaption=1
|
||||||
|
mtDialog_AsmCaption0="Assembler"
|
||||||
|
Count mtDialog_AsmHeader=1
|
||||||
|
mtDialog_AsmHeader0="Assembler Information"
|
||||||
|
Count mtDialog_CPUCaption=1
|
||||||
|
mtDialog_CPUCaption0="CPU"
|
||||||
|
Count mtDialog_CPUHeader=1
|
||||||
|
mtDialog_CPUHeader0="CPU Information"
|
||||||
|
Count mtDialog_OKButtonCaption=1
|
||||||
|
mtDialog_OKButtonCaption0="%26OK"
|
||||||
|
Count mtDialog_TerminateButtonCaption=1
|
||||||
|
mtDialog_TerminateButtonCaption0="%26Terminate"
|
||||||
|
Count mtDialog_RestartButtonCaption=1
|
||||||
|
mtDialog_RestartButtonCaption0="%26Restart"
|
||||||
|
Count mtDialog_DetailsButtonCaption=1
|
||||||
|
mtDialog_DetailsButtonCaption0="%26Details"
|
||||||
|
Count mtDialog_CustomButtonCaption=1
|
||||||
|
mtDialog_CustomButtonCaption0="%26Help"
|
||||||
|
Count mtDialog_SendMessage=1
|
||||||
|
mtDialog_SendMessage0="%26Send this error via Internet"
|
||||||
|
Count mtDialog_ScreenshotMessage=1
|
||||||
|
mtDialog_ScreenshotMessage0="%26Attach a Screenshot image"
|
||||||
|
Count mtDialog_CopyMessage=1
|
||||||
|
mtDialog_CopyMessage0="%26Copy to Clipboard"
|
||||||
|
Count mtDialog_SupportMessage=1
|
||||||
|
mtDialog_SupportMessage0="Go to the Support Page"
|
||||||
|
Count mtMSDialog_ErrorMsgCaption=1
|
||||||
|
mtMSDialog_ErrorMsgCaption0="The application has encountered a problem. We are sorry for the inconvenience."
|
||||||
|
Count mtMSDialog_RestartCaption=1
|
||||||
|
mtMSDialog_RestartCaption0="Restart application."
|
||||||
|
Count mtMSDialog_TerminateCaption=1
|
||||||
|
mtMSDialog_TerminateCaption0="Terminate application."
|
||||||
|
Count mtMSDialog_PleaseCaption=1
|
||||||
|
mtMSDialog_PleaseCaption0="Please tell us about this problem."
|
||||||
|
Count mtMSDialog_DescriptionCaption=1
|
||||||
|
mtMSDialog_DescriptionCaption0="We have created an error report that you can send to us. We will treat this report as confidential and anonymous."
|
||||||
|
Count mtMSDialog_SeeDetailsCaption=1
|
||||||
|
mtMSDialog_SeeDetailsCaption0="To see what data the error report contains,"
|
||||||
|
Count mtMSDialog_SeeClickCaption=1
|
||||||
|
mtMSDialog_SeeClickCaption0="click here."
|
||||||
|
Count mtMSDialog_HowToReproduceCaption=1
|
||||||
|
mtMSDialog_HowToReproduceCaption0="What were you doing when the problem happened (optional)?"
|
||||||
|
Count mtMSDialog_EmailCaption=1
|
||||||
|
mtMSDialog_EmailCaption0="Email address (optional):"
|
||||||
|
Count mtMSDialog_SendButtonCaption=1
|
||||||
|
mtMSDialog_SendButtonCaption0="%26Send Error Report"
|
||||||
|
Count mtMSDialog_NoSendButtonCaption=1
|
||||||
|
mtMSDialog_NoSendButtonCaption0="%26Don't Send"
|
||||||
|
Count mtLog_AppHeader=1
|
||||||
|
mtLog_AppHeader0="Application"
|
||||||
|
Count mtLog_AppStartDate=1
|
||||||
|
mtLog_AppStartDate0="Start Date"
|
||||||
|
Count mtLog_AppName=1
|
||||||
|
mtLog_AppName0="Name/Description"
|
||||||
|
Count mtLog_AppVersionNumber=1
|
||||||
|
mtLog_AppVersionNumber0="Version Number"
|
||||||
|
Count mtLog_AppParameters=1
|
||||||
|
mtLog_AppParameters0="Parameters"
|
||||||
|
Count mtLog_AppCompilationDate=1
|
||||||
|
mtLog_AppCompilationDate0="Compilation Date"
|
||||||
|
Count mtLog_AppUpTime=1
|
||||||
|
mtLog_AppUpTime0="Up Time"
|
||||||
|
Count mtLog_ExcHeader=1
|
||||||
|
mtLog_ExcHeader0="Exception"
|
||||||
|
Count mtLog_ExcDate=1
|
||||||
|
mtLog_ExcDate0="Date"
|
||||||
|
Count mtLog_ExcAddress=1
|
||||||
|
mtLog_ExcAddress0="Address"
|
||||||
|
Count mtLog_ExcModuleName=1
|
||||||
|
mtLog_ExcModuleName0="Module Name"
|
||||||
|
Count mtLog_ExcModuleVersion=1
|
||||||
|
mtLog_ExcModuleVersion0="Module Version"
|
||||||
|
Count mtLog_ExcType=1
|
||||||
|
mtLog_ExcType0="Type"
|
||||||
|
Count mtLog_ExcMessage=1
|
||||||
|
mtLog_ExcMessage0="Message"
|
||||||
|
Count mtLog_ExcID=1
|
||||||
|
mtLog_ExcID0="ID"
|
||||||
|
Count mtLog_ExcCount=1
|
||||||
|
mtLog_ExcCount0="Count"
|
||||||
|
Count mtLog_ExcStatus=1
|
||||||
|
mtLog_ExcStatus0="Status"
|
||||||
|
Count mtLog_ExcNote=1
|
||||||
|
mtLog_ExcNote0="Note"
|
||||||
|
Count mtLog_UserHeader=1
|
||||||
|
mtLog_UserHeader0="User"
|
||||||
|
Count mtLog_UserID=1
|
||||||
|
mtLog_UserID0="ID"
|
||||||
|
Count mtLog_UserName=1
|
||||||
|
mtLog_UserName0="Name"
|
||||||
|
Count mtLog_UserEmail=1
|
||||||
|
mtLog_UserEmail0="Email"
|
||||||
|
Count mtLog_UserCompany=1
|
||||||
|
mtLog_UserCompany0="Company"
|
||||||
|
Count mtLog_UserPrivileges=1
|
||||||
|
mtLog_UserPrivileges0="Privileges"
|
||||||
|
Count mtLog_ActCtrlsHeader=1
|
||||||
|
mtLog_ActCtrlsHeader0="Active Controls"
|
||||||
|
Count mtLog_ActCtrlsFormClass=1
|
||||||
|
mtLog_ActCtrlsFormClass0="Form Class"
|
||||||
|
Count mtLog_ActCtrlsFormText=1
|
||||||
|
mtLog_ActCtrlsFormText0="Form Text"
|
||||||
|
Count mtLog_ActCtrlsControlClass=1
|
||||||
|
mtLog_ActCtrlsControlClass0="Control Class"
|
||||||
|
Count mtLog_ActCtrlsControlText=1
|
||||||
|
mtLog_ActCtrlsControlText0="Control Text"
|
||||||
|
Count mtLog_CmpHeader=1
|
||||||
|
mtLog_CmpHeader0="Computer"
|
||||||
|
Count mtLog_CmpName=1
|
||||||
|
mtLog_CmpName0="Name"
|
||||||
|
Count mtLog_CmpTotalMemory=1
|
||||||
|
mtLog_CmpTotalMemory0="Total Memory"
|
||||||
|
Count mtLog_CmpFreeMemory=1
|
||||||
|
mtLog_CmpFreeMemory0="Free Memory"
|
||||||
|
Count mtLog_CmpTotalDisk=1
|
||||||
|
mtLog_CmpTotalDisk0="Total Disk"
|
||||||
|
Count mtLog_CmpFreeDisk=1
|
||||||
|
mtLog_CmpFreeDisk0="Free Disk"
|
||||||
|
Count mtLog_CmpSystemUpTime=1
|
||||||
|
mtLog_CmpSystemUpTime0="System Up Time"
|
||||||
|
Count mtLog_CmpProcessor=1
|
||||||
|
mtLog_CmpProcessor0="Processor"
|
||||||
|
Count mtLog_CmpDisplayMode=1
|
||||||
|
mtLog_CmpDisplayMode0="Display Mode"
|
||||||
|
Count mtLog_CmpDisplayDPI=1
|
||||||
|
mtLog_CmpDisplayDPI0="Display DPI"
|
||||||
|
Count mtLog_CmpVideoCard=1
|
||||||
|
mtLog_CmpVideoCard0="Video Card"
|
||||||
|
Count mtLog_CmpPrinter=1
|
||||||
|
mtLog_CmpPrinter0="Printer"
|
||||||
|
Count mtLog_OSHeader=1
|
||||||
|
mtLog_OSHeader0="Operating System"
|
||||||
|
Count mtLog_OSType=1
|
||||||
|
mtLog_OSType0="Type"
|
||||||
|
Count mtLog_OSBuildN=1
|
||||||
|
mtLog_OSBuildN0="Build #"
|
||||||
|
Count mtLog_OSUpdate=1
|
||||||
|
mtLog_OSUpdate0="Update"
|
||||||
|
Count mtLog_OSLanguage=1
|
||||||
|
mtLog_OSLanguage0="Language"
|
||||||
|
Count mtLog_OSCharset=1
|
||||||
|
mtLog_OSCharset0="Charset"
|
||||||
|
Count mtLog_NetHeader=1
|
||||||
|
mtLog_NetHeader0="Network"
|
||||||
|
Count mtLog_NetIP=1
|
||||||
|
mtLog_NetIP0="IP Address"
|
||||||
|
Count mtLog_NetSubmask=1
|
||||||
|
mtLog_NetSubmask0="Submask"
|
||||||
|
Count mtLog_NetGateway=1
|
||||||
|
mtLog_NetGateway0="Gateway"
|
||||||
|
Count mtLog_NetDNS1=1
|
||||||
|
mtLog_NetDNS10="DNS 1"
|
||||||
|
Count mtLog_NetDNS2=1
|
||||||
|
mtLog_NetDNS20="DNS 2"
|
||||||
|
Count mtLog_NetDHCP=1
|
||||||
|
mtLog_NetDHCP0="DHCP"
|
||||||
|
Count mtLog_CustInfoHeader=1
|
||||||
|
mtLog_CustInfoHeader0="Custom Information"
|
||||||
|
Count mtCallStack_Address=1
|
||||||
|
mtCallStack_Address0="Address"
|
||||||
|
Count mtCallStack_Name=1
|
||||||
|
mtCallStack_Name0="Module"
|
||||||
|
Count mtCallStack_Unit=1
|
||||||
|
mtCallStack_Unit0="Unit"
|
||||||
|
Count mtCallStack_Class=1
|
||||||
|
mtCallStack_Class0="Class"
|
||||||
|
Count mtCallStack_Procedure=1
|
||||||
|
mtCallStack_Procedure0="Procedure/Method"
|
||||||
|
Count mtCallStack_Line=1
|
||||||
|
mtCallStack_Line0="Line"
|
||||||
|
Count mtCallStack_MainThread=1
|
||||||
|
mtCallStack_MainThread0="Main"
|
||||||
|
Count mtCallStack_ExceptionThread=1
|
||||||
|
mtCallStack_ExceptionThread0="Exception Thread"
|
||||||
|
Count mtCallStack_RunningThread=1
|
||||||
|
mtCallStack_RunningThread0="Running Thread"
|
||||||
|
Count mtCallStack_CallingThread=1
|
||||||
|
mtCallStack_CallingThread0="Calling Thread"
|
||||||
|
Count mtCallStack_ThreadID=1
|
||||||
|
mtCallStack_ThreadID0="ID"
|
||||||
|
Count mtCallStack_ThreadPriority=1
|
||||||
|
mtCallStack_ThreadPriority0="Priority"
|
||||||
|
Count mtCallStack_ThreadClass=1
|
||||||
|
mtCallStack_ThreadClass0="Class"
|
||||||
|
Count mtCallStack_LeakCaption=1
|
||||||
|
mtCallStack_LeakCaption0="Memory Leak"
|
||||||
|
Count mtCallStack_LeakData=1
|
||||||
|
mtCallStack_LeakData0="Data"
|
||||||
|
Count mtCallStack_LeakType=1
|
||||||
|
mtCallStack_LeakType0="Type"
|
||||||
|
Count mtCallStack_LeakSize=1
|
||||||
|
mtCallStack_LeakSize0="Total size"
|
||||||
|
Count mtCallStack_LeakCount=1
|
||||||
|
mtCallStack_LeakCount0="Count"
|
||||||
|
Count mtSendDialog_Caption=1
|
||||||
|
mtSendDialog_Caption0="Send."
|
||||||
|
Count mtSendDialog_Message=1
|
||||||
|
mtSendDialog_Message0="Message"
|
||||||
|
Count mtSendDialog_Resolving=1
|
||||||
|
mtSendDialog_Resolving0="Resolving DNS..."
|
||||||
|
Count mtSendDialog_Login=1
|
||||||
|
mtSendDialog_Login0="Login..."
|
||||||
|
Count mtSendDialog_Connecting=1
|
||||||
|
mtSendDialog_Connecting0="Connecting with server..."
|
||||||
|
Count mtSendDialog_Connected=1
|
||||||
|
mtSendDialog_Connected0="Connected with server."
|
||||||
|
Count mtSendDialog_Sending=1
|
||||||
|
mtSendDialog_Sending0="Sending message..."
|
||||||
|
Count mtSendDialog_Sent=1
|
||||||
|
mtSendDialog_Sent0="Message sent."
|
||||||
|
Count mtSendDialog_SelectProject=1
|
||||||
|
mtSendDialog_SelectProject0="Select project..."
|
||||||
|
Count mtSendDialog_Searching=1
|
||||||
|
mtSendDialog_Searching0="Searching..."
|
||||||
|
Count mtSendDialog_Modifying=1
|
||||||
|
mtSendDialog_Modifying0="Modifying..."
|
||||||
|
Count mtSendDialog_Disconnecting=1
|
||||||
|
mtSendDialog_Disconnecting0="Disconnecting..."
|
||||||
|
Count mtSendDialog_Disconnected=1
|
||||||
|
mtSendDialog_Disconnected0="Disconnected."
|
||||||
|
Count mtReproduceDialog_Caption=1
|
||||||
|
mtReproduceDialog_Caption0="Request"
|
||||||
|
Count mtReproduceDialog_Request=1
|
||||||
|
mtReproduceDialog_Request0="Please describe the steps to reproduce the error:"
|
||||||
|
Count mtReproduceDialog_OKButtonCaption=1
|
||||||
|
mtReproduceDialog_OKButtonCaption0="%26OK"
|
||||||
|
Count mtModules_Handle=1
|
||||||
|
mtModules_Handle0="Handle"
|
||||||
|
Count mtModules_Name=1
|
||||||
|
mtModules_Name0="Name"
|
||||||
|
Count mtModules_Description=1
|
||||||
|
mtModules_Description0="Description"
|
||||||
|
Count mtModules_Version=1
|
||||||
|
mtModules_Version0="Version"
|
||||||
|
Count mtModules_Size=1
|
||||||
|
mtModules_Size0="Size"
|
||||||
|
Count mtModules_LastModified=1
|
||||||
|
mtModules_LastModified0="Modified"
|
||||||
|
Count mtModules_Path=1
|
||||||
|
mtModules_Path0="Path"
|
||||||
|
Count mtProcesses_ID=1
|
||||||
|
mtProcesses_ID0="ID"
|
||||||
|
Count mtProcesses_Name=1
|
||||||
|
mtProcesses_Name0="Name"
|
||||||
|
Count mtProcesses_Description=1
|
||||||
|
mtProcesses_Description0="Description"
|
||||||
|
Count mtProcesses_Version=1
|
||||||
|
mtProcesses_Version0="Version"
|
||||||
|
Count mtProcesses_Memory=1
|
||||||
|
mtProcesses_Memory0="Memory"
|
||||||
|
Count mtProcesses_Priority=1
|
||||||
|
mtProcesses_Priority0="Priority"
|
||||||
|
Count mtProcesses_Threads=1
|
||||||
|
mtProcesses_Threads0="Threads"
|
||||||
|
Count mtProcesses_Path=1
|
||||||
|
mtProcesses_Path0="Path"
|
||||||
|
Count mtCPU_Registers=1
|
||||||
|
mtCPU_Registers0="Registers"
|
||||||
|
Count mtCPU_Stack=1
|
||||||
|
mtCPU_Stack0="Stack"
|
||||||
|
Count mtCPU_MemoryDump=1
|
||||||
|
mtCPU_MemoryDump0="Memory Dump"
|
||||||
|
Count mtSend_SuccessMsg=1
|
||||||
|
mtSend_SuccessMsg0="The message was sent successfully."
|
||||||
|
Count mtSend_FailureMsg=1
|
||||||
|
mtSend_FailureMsg0="Sorry, sending the message didn't work."
|
||||||
|
Count mtSend_BugClosedMsg=2
|
||||||
|
mtSend_BugClosedMsg0="These BUG is just closed."
|
||||||
|
mtSend_BugClosedMsg1="Contact the program support to obtain an update."
|
||||||
|
Count mtSend_UnknownErrorMsg=1
|
||||||
|
mtSend_UnknownErrorMsg0="Unknown error."
|
||||||
|
Count mtSend_InvalidLoginMsg=1
|
||||||
|
mtSend_InvalidLoginMsg0="Invalid login request."
|
||||||
|
Count mtSend_InvalidSearchMsg=1
|
||||||
|
mtSend_InvalidSearchMsg0="Invalid search request."
|
||||||
|
Count mtSend_InvalidSelectionMsg=1
|
||||||
|
mtSend_InvalidSelectionMsg0="Invalid selection request."
|
||||||
|
Count mtSend_InvalidInsertMsg=1
|
||||||
|
mtSend_InvalidInsertMsg0="Invalid insert request."
|
||||||
|
Count mtSend_InvalidModifyMsg=1
|
||||||
|
mtSend_InvalidModifyMsg0="Invalid modify request."
|
||||||
|
Count mtFileCrackedMsg=2
|
||||||
|
mtFileCrackedMsg0="This file is cracked."
|
||||||
|
mtFileCrackedMsg1="The application will be closed."
|
||||||
|
Count mtException_LeakMultiFree=1
|
||||||
|
mtException_LeakMultiFree0="Multi Free memory leak."
|
||||||
|
Count mtException_LeakMemoryOverrun=1
|
||||||
|
mtException_LeakMemoryOverrun0="Memory Overrun leak."
|
||||||
|
Count mtException_AntiFreeze=1
|
||||||
|
mtException_AntiFreeze0="The application seems to be frozen."
|
||||||
|
Count mtInvalidEmailMsg=1
|
||||||
|
mtInvalidEmailMsg0="Invalid email."
|
||||||
|
TextsCollection=English
|
||||||
|
EurekaLog Last Line -->
|
||||||
|
|||||||
@ -0,0 +1,22 @@
|
|||||||
|
1 VERSIONINFO
|
||||||
|
FILEVERSION 1,0,0,0
|
||||||
|
PRODUCTVERSION 1,0,0,0
|
||||||
|
FILEFLAGSMASK 0x3FL
|
||||||
|
FILEFLAGS 0x00L
|
||||||
|
FILEOS 0x40004L
|
||||||
|
FILETYPE 0x1L
|
||||||
|
FILESUBTYPE 0x0L
|
||||||
|
BEGIN
|
||||||
|
BLOCK "StringFileInfo"
|
||||||
|
BEGIN
|
||||||
|
BLOCK "0C0A04E4"
|
||||||
|
BEGIN
|
||||||
|
VALUE "FileVersion", "1.0.0.0\0"
|
||||||
|
VALUE "ProductVersion", "1.0.0.0\0"
|
||||||
|
END
|
||||||
|
END
|
||||||
|
BLOCK "VarFileInfo"
|
||||||
|
BEGIN
|
||||||
|
VALUE "Translation", 0x0C0A, 1252
|
||||||
|
END
|
||||||
|
END
|
||||||
Binary file not shown.
@ -1,8 +1,8 @@
|
|||||||
object DataModulePedidosCliente: TDataModulePedidosCliente
|
object DataModulePedidosCliente: TDataModulePedidosCliente
|
||||||
OldCreateOrder = True
|
OldCreateOrder = True
|
||||||
OnCreate = DAClientDataModuleCreate
|
OnCreate = DAClientDataModuleCreate
|
||||||
Height = 377
|
Height = 396
|
||||||
Width = 649
|
Width = 813
|
||||||
object RORemoteService: TRORemoteService
|
object RORemoteService: TRORemoteService
|
||||||
Message = dmConexion.ROMessage
|
Message = dmConexion.ROMessage
|
||||||
Channel = dmConexion.ROChannel
|
Channel = dmConexion.ROChannel
|
||||||
@ -67,6 +67,8 @@ object DataModulePedidosCliente: TDataModulePedidosCliente
|
|||||||
item
|
item
|
||||||
Name = 'ID_DIRECCION'
|
Name = 'ID_DIRECCION'
|
||||||
DataType = datInteger
|
DataType = datInteger
|
||||||
|
DisplayLabel = 'PedidosCliente_ID_DIRECCION'
|
||||||
|
DictionaryEntry = 'PedidosCliente_ID_DIRECCION'
|
||||||
end
|
end
|
||||||
item
|
item
|
||||||
Name = 'CALLE'
|
Name = 'CALLE'
|
||||||
@ -171,6 +173,18 @@ object DataModulePedidosCliente: TDataModulePedidosCliente
|
|||||||
Alignment = taRightJustify
|
Alignment = taRightJustify
|
||||||
DictionaryEntry = 'PedidosCliente_IMPORTE_DESCUENTO'
|
DictionaryEntry = 'PedidosCliente_IMPORTE_DESCUENTO'
|
||||||
end
|
end
|
||||||
|
item
|
||||||
|
Name = 'DESCUENTO2'
|
||||||
|
DataType = datFloat
|
||||||
|
DictionaryEntry = 'PedidosCliente_DESCUENTO2'
|
||||||
|
end
|
||||||
|
item
|
||||||
|
Name = 'IMPORTE_DESCUENTO2'
|
||||||
|
DataType = datCurrency
|
||||||
|
DecimalPrecision = 11
|
||||||
|
DecimalScale = 2
|
||||||
|
DictionaryEntry = 'PedidosCliente_IMPORTE_DESCUENTO2'
|
||||||
|
end
|
||||||
item
|
item
|
||||||
Name = 'BASE_IMPONIBLE'
|
Name = 'BASE_IMPONIBLE'
|
||||||
DataType = datCurrency
|
DataType = datCurrency
|
||||||
@ -204,6 +218,13 @@ object DataModulePedidosCliente: TDataModulePedidosCliente
|
|||||||
DataType = datInteger
|
DataType = datInteger
|
||||||
DictionaryEntry = 'PedidosCliente_ID_FORMA_PAGO'
|
DictionaryEntry = 'PedidosCliente_ID_FORMA_PAGO'
|
||||||
end
|
end
|
||||||
|
item
|
||||||
|
Name = 'FORMA_PAGO'
|
||||||
|
DataType = datString
|
||||||
|
Size = 255
|
||||||
|
DisplayLabel = 'PedidosCliente_FORMA_PAGO'
|
||||||
|
DictionaryEntry = 'PedidosCliente_FORMA_PAGO'
|
||||||
|
end
|
||||||
item
|
item
|
||||||
Name = 'REF_TIENDA_WEB'
|
Name = 'REF_TIENDA_WEB'
|
||||||
DataType = datInteger
|
DataType = datInteger
|
||||||
@ -214,6 +235,13 @@ object DataModulePedidosCliente: TDataModulePedidosCliente
|
|||||||
DataType = datDateTime
|
DataType = datDateTime
|
||||||
DisplayLabel = 'Fecha de entrega prevista'
|
DisplayLabel = 'Fecha de entrega prevista'
|
||||||
DictionaryEntry = 'PedidosCliente_FECHA_PREVISTA_ENVIO'
|
DictionaryEntry = 'PedidosCliente_FECHA_PREVISTA_ENVIO'
|
||||||
|
end
|
||||||
|
item
|
||||||
|
Name = 'DATOS_BANCARIOS'
|
||||||
|
DataType = datString
|
||||||
|
Size = 255
|
||||||
|
DisplayLabel = 'PedidosCliente_DATOS_BANCARIOS'
|
||||||
|
DictionaryEntry = 'PedidosCliente_DATOS_BANCARIOS'
|
||||||
end>
|
end>
|
||||||
Params = <>
|
Params = <>
|
||||||
StreamingOptions = [soDisableEventsWhileStreaming]
|
StreamingOptions = [soDisableEventsWhileStreaming]
|
||||||
@ -283,9 +311,10 @@ object DataModulePedidosCliente: TDataModulePedidosCliente
|
|||||||
end
|
end
|
||||||
item
|
item
|
||||||
Name = 'CANTIDAD'
|
Name = 'CANTIDAD'
|
||||||
DataType = datInteger
|
DataType = datFloat
|
||||||
|
DisplayLabel = 'PedidosCliente_Detalles_CANTIDAD'
|
||||||
Alignment = taRightJustify
|
Alignment = taRightJustify
|
||||||
DictionaryEntry = 'CANTIDAD'
|
DictionaryEntry = 'PedidosCliente_Detalles_CANTIDAD'
|
||||||
end
|
end
|
||||||
item
|
item
|
||||||
Name = 'IMPORTE_UNIDAD'
|
Name = 'IMPORTE_UNIDAD'
|
||||||
@ -297,6 +326,8 @@ object DataModulePedidosCliente: TDataModulePedidosCliente
|
|||||||
item
|
item
|
||||||
Name = 'UNIDAD_MEDIDA'
|
Name = 'UNIDAD_MEDIDA'
|
||||||
DataType = datString
|
DataType = datString
|
||||||
|
DisplayLabel = 'PedidosCliente_Detalles_UNIDAD_MEDIDA'
|
||||||
|
DictionaryEntry = 'PedidosCliente_Detalles_UNIDAD_MEDIDA'
|
||||||
end
|
end
|
||||||
item
|
item
|
||||||
Name = 'DESCUENTO'
|
Name = 'DESCUENTO'
|
||||||
@ -464,14 +495,14 @@ object DataModulePedidosCliente: TDataModulePedidosCliente
|
|||||||
RemoteDataAdapter = rda_PedidosCliente
|
RemoteDataAdapter = rda_PedidosCliente
|
||||||
LogicalName = 'ListaAnosPedidos'
|
LogicalName = 'ListaAnosPedidos'
|
||||||
IndexDefs = <>
|
IndexDefs = <>
|
||||||
Left = 520
|
Left = 632
|
||||||
Top = 112
|
Top = 264
|
||||||
end
|
end
|
||||||
object ds_ListaAnosPedidos: TDADataSource
|
object ds_ListaAnosPedidos: TDADataSource
|
||||||
DataSet = tbl_ListaAnosPedidos.Dataset
|
DataSet = tbl_ListaAnosPedidos.Dataset
|
||||||
DataTable = tbl_ListaAnosPedidos
|
DataTable = tbl_ListaAnosPedidos
|
||||||
Left = 520
|
Left = 624
|
||||||
Top = 48
|
Top = 200
|
||||||
end
|
end
|
||||||
object Bin2DataStreamer: TDABin2DataStreamer
|
object Bin2DataStreamer: TDABin2DataStreamer
|
||||||
Left = 40
|
Left = 40
|
||||||
@ -487,4 +518,85 @@ object DataModulePedidosCliente: TDataModulePedidosCliente
|
|||||||
Left = 43
|
Left = 43
|
||||||
Top = 143
|
Top = 143
|
||||||
end
|
end
|
||||||
|
object tbl_PedidosCliente_Detalle_Color: TDAMemDataTable
|
||||||
|
RemoteUpdatesOptions = []
|
||||||
|
Fields = <
|
||||||
|
item
|
||||||
|
Name = 'ID'
|
||||||
|
DataType = datAutoInc
|
||||||
|
GeneratorName = 'GEN_PEDIDOS_CLI_DETALLES_ID'
|
||||||
|
Required = True
|
||||||
|
DictionaryEntry = 'PedidosCliente_Detalles_ID'
|
||||||
|
InPrimaryKey = True
|
||||||
|
end
|
||||||
|
item
|
||||||
|
Name = 'ID_DETALLE'
|
||||||
|
DataType = datInteger
|
||||||
|
end
|
||||||
|
item
|
||||||
|
Name = 'COLOR1'
|
||||||
|
DataType = datInteger
|
||||||
|
end
|
||||||
|
item
|
||||||
|
Name = 'COLOR2'
|
||||||
|
DataType = datInteger
|
||||||
|
end
|
||||||
|
item
|
||||||
|
Name = 'COLOR3'
|
||||||
|
DataType = datInteger
|
||||||
|
end
|
||||||
|
item
|
||||||
|
Name = 'COLOR4'
|
||||||
|
DataType = datInteger
|
||||||
|
end
|
||||||
|
item
|
||||||
|
Name = 'COLOR5'
|
||||||
|
DataType = datInteger
|
||||||
|
end
|
||||||
|
item
|
||||||
|
Name = 'COLOR6'
|
||||||
|
DataType = datInteger
|
||||||
|
end
|
||||||
|
item
|
||||||
|
Name = 'COLOR7'
|
||||||
|
DataType = datInteger
|
||||||
|
end
|
||||||
|
item
|
||||||
|
Name = 'COLOR8'
|
||||||
|
DataType = datInteger
|
||||||
|
end
|
||||||
|
item
|
||||||
|
Name = 'COLOR9'
|
||||||
|
DataType = datInteger
|
||||||
|
end
|
||||||
|
item
|
||||||
|
Name = 'COLOR10'
|
||||||
|
DataType = datInteger
|
||||||
|
end
|
||||||
|
item
|
||||||
|
Name = 'COLOR11'
|
||||||
|
DataType = datInteger
|
||||||
|
end
|
||||||
|
item
|
||||||
|
Name = 'COLOR12'
|
||||||
|
DataType = datInteger
|
||||||
|
end>
|
||||||
|
Params = <>
|
||||||
|
MasterMappingMode = mmWhere
|
||||||
|
StreamingOptions = [soDisableEventsWhileStreaming, soDisableFiltering]
|
||||||
|
RemoteDataAdapter = rda_PedidosCliente
|
||||||
|
MasterSource = ds_PedidosCliente_Detalles
|
||||||
|
MasterFields = 'ID'
|
||||||
|
DetailFields = 'ID_DETALLE'
|
||||||
|
LogicalName = 'PedidosCliente_Detalle_Color'
|
||||||
|
IndexDefs = <>
|
||||||
|
Left = 472
|
||||||
|
Top = 104
|
||||||
|
end
|
||||||
|
object ds_PedidosCliente_Detalle_Color: TDADataSource
|
||||||
|
DataSet = tbl_PedidosCliente_Detalle_Color.Dataset
|
||||||
|
DataTable = tbl_PedidosCliente_Detalle_Color
|
||||||
|
Left = 472
|
||||||
|
Top = 48
|
||||||
|
end
|
||||||
end
|
end
|
||||||
|
|||||||
@ -8,7 +8,7 @@ uses
|
|||||||
uDAMemDataTable, uROWinInetHttpChannel, uDADataTable, uDABINAdapter,
|
uDAMemDataTable, uROWinInetHttpChannel, uDADataTable, uDABINAdapter,
|
||||||
|
|
||||||
uDAClientDataModule, uROTypes,
|
uDAClientDataModule, uROTypes,
|
||||||
uIDataModulePedidosCliente, uBizPedidosCliente, uBizDetallesPedidoCliente,
|
uIDataModulePedidosCliente, uBizPedidosCliente, uBizDetallesPedidoCliente, uBizDetalleColoresPedidoCliente,
|
||||||
uIDataModulePedidosClienteReport, uDADataAdapter, uDARemoteDataAdapter,
|
uIDataModulePedidosClienteReport, uDADataAdapter, uDARemoteDataAdapter,
|
||||||
uDADataStreamer, uDABin2DataStreamer, uDAInterfaces, uDACDSDataTable;
|
uDADataStreamer, uDABin2DataStreamer, uDAInterfaces, uDACDSDataTable;
|
||||||
|
|
||||||
@ -27,10 +27,13 @@ type
|
|||||||
ds_ListaAnosPedidos: TDADataSource;
|
ds_ListaAnosPedidos: TDADataSource;
|
||||||
Bin2DataStreamer: TDABin2DataStreamer;
|
Bin2DataStreamer: TDABin2DataStreamer;
|
||||||
rda_PedidosCliente: TDARemoteDataAdapter;
|
rda_PedidosCliente: TDARemoteDataAdapter;
|
||||||
|
tbl_PedidosCliente_Detalle_Color: TDAMemDataTable;
|
||||||
|
ds_PedidosCliente_Detalle_Color: TDADataSource;
|
||||||
procedure DAClientDataModuleCreate(Sender: TObject);
|
procedure DAClientDataModuleCreate(Sender: TObject);
|
||||||
|
|
||||||
private
|
private
|
||||||
function _GetDetalles : IBizDetallesPedidoCliente;
|
function _GetDetalles : IBizDetallesPedidoCliente;
|
||||||
|
function _GetDetalleColores : IBizDetalleColoresPedidoCliente;
|
||||||
|
|
||||||
protected
|
protected
|
||||||
procedure AsignarClaseNegocio(var APedido: TDAMemDataTable); virtual;
|
procedure AsignarClaseNegocio(var APedido: TDAMemDataTable); virtual;
|
||||||
@ -96,6 +99,24 @@ begin
|
|||||||
Result := GetItem(ID_NULO)
|
Result := GetItem(ID_NULO)
|
||||||
end;
|
end;
|
||||||
|
|
||||||
|
function TDataModulePedidosCliente._GetDetalleColores: IBizDetalleColoresPedidoCliente;
|
||||||
|
var
|
||||||
|
ADetalleColores : TDAMemDataTable;
|
||||||
|
begin
|
||||||
|
ShowHourglassCursor;
|
||||||
|
try
|
||||||
|
ADetalleColores := CloneDataTable(tbl_PedidosCliente_Detalle_Color);
|
||||||
|
with ADetalleColores do
|
||||||
|
begin
|
||||||
|
BusinessRulesID := BIZ_CLIENT_DETALLE_COLORES_PEDIDO_CLIENTE;
|
||||||
|
DetailOptions := DetailOptions - [dtDisableLogOfCascadeDeletes, dtDisableLogOfCascadeUpdates];
|
||||||
|
end;
|
||||||
|
Result := (ADetalleColores as IBizDetalleColoresPedidoCliente);
|
||||||
|
finally
|
||||||
|
HideHourglassCursor;
|
||||||
|
end;
|
||||||
|
end;
|
||||||
|
|
||||||
function TDataModulePedidosCliente._GetDetalles: IBizDetallesPedidoCliente;
|
function TDataModulePedidosCliente._GetDetalles: IBizDetallesPedidoCliente;
|
||||||
var
|
var
|
||||||
ADetalles : TDAMemDataTable;
|
ADetalles : TDAMemDataTable;
|
||||||
@ -215,6 +236,7 @@ begin
|
|||||||
with TBizPedidoCliente(APedido.BusinessEventsObj) do
|
with TBizPedidoCliente(APedido.BusinessEventsObj) do
|
||||||
begin
|
begin
|
||||||
Detalles := _GetDetalles;
|
Detalles := _GetDetalles;
|
||||||
|
Detalles.DetalleColores := _GetDetalleColores;
|
||||||
end;
|
end;
|
||||||
|
|
||||||
Result := (APedido as IBizPedidoCliente);
|
Result := (APedido as IBizPedidoCliente);
|
||||||
|
|||||||
@ -26,7 +26,15 @@ package PedidosCliente_model;
|
|||||||
|
|
||||||
requires
|
requires
|
||||||
ApplicationBase,
|
ApplicationBase,
|
||||||
Contactos_model;
|
Contactos_model,
|
||||||
|
dbrtl,
|
||||||
|
rtl,
|
||||||
|
DataAbstract_Core_D11,
|
||||||
|
vcldb,
|
||||||
|
vcl,
|
||||||
|
dsnap,
|
||||||
|
adortl,
|
||||||
|
RemObjects_Core_D11;
|
||||||
|
|
||||||
contains
|
contains
|
||||||
uIDataModulePedidosCliente in 'Data\uIDataModulePedidosCliente.pas',
|
uIDataModulePedidosCliente in 'Data\uIDataModulePedidosCliente.pas',
|
||||||
@ -34,6 +42,7 @@ contains
|
|||||||
uBizPedidosCliente in 'uBizPedidosCliente.pas',
|
uBizPedidosCliente in 'uBizPedidosCliente.pas',
|
||||||
uIDataModulePedidosClienteReport in 'Data\uIDataModulePedidosClienteReport.pas',
|
uIDataModulePedidosClienteReport in 'Data\uIDataModulePedidosClienteReport.pas',
|
||||||
schPedidosClienteClient_Intf in 'schPedidosClienteClient_Intf.pas',
|
schPedidosClienteClient_Intf in 'schPedidosClienteClient_Intf.pas',
|
||||||
schPedidosClienteServer_Intf in 'schPedidosClienteServer_Intf.pas';
|
schPedidosClienteServer_Intf in 'schPedidosClienteServer_Intf.pas',
|
||||||
|
uBizDetalleColoresPedidoCliente in 'uBizDetalleColoresPedidoCliente.pas';
|
||||||
|
|
||||||
end.
|
end.
|
||||||
|
|||||||
@ -49,14 +49,6 @@
|
|||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
<Excluded_Packages Name="C:\Archivos de programa\RemObjects Software\Pascal Script\Dcu\D10\PascalScript_RO_D10.bpl">RemObjects Pascal Script - RemObjects SDK 3.0 Integration</Excluded_Packages>
|
<Excluded_Packages Name="C:\Archivos de programa\RemObjects Software\Pascal Script\Dcu\D10\PascalScript_RO_D10.bpl">RemObjects Pascal Script - RemObjects SDK 3.0 Integration</Excluded_Packages>
|
||||||
<Excluded_Packages Name="C:\Archivos de programa\EurekaLog 5\Delphi10\ExceptionExpert10.bpl">EurekaLog 5.1.9</Excluded_Packages>
|
<Excluded_Packages Name="C:\Archivos de programa\EurekaLog 5\Delphi10\ExceptionExpert10.bpl">EurekaLog 5.1.9</Excluded_Packages>
|
||||||
</Excluded_Packages><Source><Source Name="MainSource">PedidosCliente_model.dpk</Source></Source></Delphi.Personality></BorlandProject></BorlandProject>
|
</Excluded_Packages><Source><Source Name="MainSource">PedidosCliente_model.dpk</Source></Source></Delphi.Personality></BorlandProject></BorlandProject>
|
||||||
@ -66,14 +58,23 @@
|
|||||||
<DelphiCompile Include="PedidosCliente_model.dpk">
|
<DelphiCompile Include="PedidosCliente_model.dpk">
|
||||||
<MainSource>MainSource</MainSource>
|
<MainSource>MainSource</MainSource>
|
||||||
</DelphiCompile>
|
</DelphiCompile>
|
||||||
<DCCReference Include="..\..\Lib\ApplicationBase.dcp" />
|
<DCCReference Include="adortl.dcp" />
|
||||||
<DCCReference Include="..\..\Lib\Contactos_model.dcp" />
|
<DCCReference Include="ApplicationBase.dcp" />
|
||||||
|
<DCCReference Include="Contactos_model.dcp" />
|
||||||
|
<DCCReference Include="DataAbstract_Core_D11.dcp" />
|
||||||
<DCCReference Include="Data\uIDataModulePedidosCliente.pas" />
|
<DCCReference Include="Data\uIDataModulePedidosCliente.pas" />
|
||||||
<DCCReference Include="Data\uIDataModulePedidosClienteReport.pas" />
|
<DCCReference Include="Data\uIDataModulePedidosClienteReport.pas" />
|
||||||
|
<DCCReference Include="dbrtl.dcp" />
|
||||||
|
<DCCReference Include="dsnap.dcp" />
|
||||||
|
<DCCReference Include="RemObjects_Core_D11.dcp" />
|
||||||
|
<DCCReference Include="rtl.dcp" />
|
||||||
<DCCReference Include="schPedidosClienteClient_Intf.pas" />
|
<DCCReference Include="schPedidosClienteClient_Intf.pas" />
|
||||||
<DCCReference Include="schPedidosClienteServer_Intf.pas" />
|
<DCCReference Include="schPedidosClienteServer_Intf.pas" />
|
||||||
|
<DCCReference Include="uBizDetalleColoresPedidoCliente.pas" />
|
||||||
<DCCReference Include="uBizDetallesPedidoCliente.pas" />
|
<DCCReference Include="uBizDetallesPedidoCliente.pas" />
|
||||||
<DCCReference Include="uBizPedidosCliente.pas" />
|
<DCCReference Include="uBizPedidosCliente.pas" />
|
||||||
|
<DCCReference Include="vcl.dcp" />
|
||||||
|
<DCCReference Include="vcldb.dcp" />
|
||||||
<None Include="ModelSupport_PedidosCliente_model\default.txaPackage" />
|
<None Include="ModelSupport_PedidosCliente_model\default.txaPackage" />
|
||||||
</ItemGroup>
|
</ItemGroup>
|
||||||
</Project>
|
</Project>
|
||||||
|
|||||||
@ -13,4 +13,4 @@ BEGIN
|
|||||||
END
|
END
|
||||||
|
|
||||||
/* C:\Codigo Noviseda\Source\Modulos\Pedidos de cliente\Model\PedidosCliente_model.res */
|
/* C:\Codigo Noviseda\Source\Modulos\Pedidos de cliente\Model\PedidosCliente_model.res */
|
||||||
/* C:\DOCUME~1\Usuario\CONFIG~1\Temp\dtfAB.tmp */
|
/* C:\Codigo Noviseda\Source\Modulos\Pedidos de cliente\Model\PedidosCliente_model.drf */
|
||||||
|
|||||||
@ -4,17 +4,18 @@ unit schPedidosClienteClient_Intf;
|
|||||||
interface
|
interface
|
||||||
|
|
||||||
uses
|
uses
|
||||||
Classes, DB, schBase_Intf, SysUtils, uROClasses, uDAInterfaces, uDADataTable, FmtBCD, uROXMLIntf;
|
Classes, DB, SysUtils, uROClasses, uDAInterfaces, uDADataTable, FmtBCD, uROXMLIntf;
|
||||||
|
|
||||||
const
|
const
|
||||||
{ Data table rules ids
|
{ Data table rules ids
|
||||||
Feel free to change them to something more human readable
|
Feel free to change them to something more human readable
|
||||||
but make sure they are unique in the context of your application }
|
but make sure they are unique in the context of your application }
|
||||||
RID_ListaAnosPedidos = '{B9FEF205-0431-4580-8AE1-E1A07F41B5B8}';
|
RID_ListaAnosPedidos = '{69ED4D2A-C692-4F24-BC5B-8893D377C1AC}';
|
||||||
RID_PedidoCliente_ArticulosPendientesPedirAProv = '{D58EF0E1-A459-40DD-8309-2C9AFD3769B8}';
|
RID_PedidoCliente_ArticulosPendientesPedirAProv = '{CC176519-3A83-42DE-877D-76AD039A7FBF}';
|
||||||
RID_PedidosCliente = '{D3C08BFA-7D2F-4272-9251-252D082C0ABB}';
|
RID_PedidosCliente = '{285F9D98-1E3E-441A-AA07-1DDF2D1E5697}';
|
||||||
RID_PedidosCliente_Detalles = '{7B91720B-C864-48E9-B842-BE7EF3B2CFE0}';
|
RID_PedidosCliente_Detalles = '{8FC465FD-CB58-49CA-B962-3C0F8296244A}';
|
||||||
RID_PedidoCliente_Articulos_Pendientes = '{786D4023-7026-4E28-B4BE-F16F71123082}';
|
RID_PedidoCliente_Articulos_Pendientes = '{AC15597C-6504-4224-BFF7-E45D45A62F0D}';
|
||||||
|
RID_PedidosCliente_Detalle_Color = '{5571EC96-859E-4DAA-873E-819E0047DAE5}';
|
||||||
|
|
||||||
{ Data table names }
|
{ Data table names }
|
||||||
nme_ListaAnosPedidos = 'ListaAnosPedidos';
|
nme_ListaAnosPedidos = 'ListaAnosPedidos';
|
||||||
@ -22,6 +23,7 @@ const
|
|||||||
nme_PedidosCliente = 'PedidosCliente';
|
nme_PedidosCliente = 'PedidosCliente';
|
||||||
nme_PedidosCliente_Detalles = 'PedidosCliente_Detalles';
|
nme_PedidosCliente_Detalles = 'PedidosCliente_Detalles';
|
||||||
nme_PedidoCliente_Articulos_Pendientes = 'PedidoCliente_Articulos_Pendientes';
|
nme_PedidoCliente_Articulos_Pendientes = 'PedidoCliente_Articulos_Pendientes';
|
||||||
|
nme_PedidosCliente_Detalle_Color = 'PedidosCliente_Detalle_Color';
|
||||||
|
|
||||||
{ ListaAnosPedidos fields }
|
{ ListaAnosPedidos fields }
|
||||||
fld_ListaAnosPedidosANO = 'ANO';
|
fld_ListaAnosPedidosANO = 'ANO';
|
||||||
@ -71,13 +73,17 @@ const
|
|||||||
fld_PedidosClienteIMPORTE_PORTE = 'IMPORTE_PORTE';
|
fld_PedidosClienteIMPORTE_PORTE = 'IMPORTE_PORTE';
|
||||||
fld_PedidosClienteDESCUENTO = 'DESCUENTO';
|
fld_PedidosClienteDESCUENTO = 'DESCUENTO';
|
||||||
fld_PedidosClienteIMPORTE_DESCUENTO = 'IMPORTE_DESCUENTO';
|
fld_PedidosClienteIMPORTE_DESCUENTO = 'IMPORTE_DESCUENTO';
|
||||||
|
fld_PedidosClienteDESCUENTO2 = 'DESCUENTO2';
|
||||||
|
fld_PedidosClienteIMPORTE_DESCUENTO2 = 'IMPORTE_DESCUENTO2';
|
||||||
fld_PedidosClienteBASE_IMPONIBLE = 'BASE_IMPONIBLE';
|
fld_PedidosClienteBASE_IMPONIBLE = 'BASE_IMPONIBLE';
|
||||||
fld_PedidosClienteIVA = 'IVA';
|
fld_PedidosClienteIVA = 'IVA';
|
||||||
fld_PedidosClienteIMPORTE_IVA = 'IMPORTE_IVA';
|
fld_PedidosClienteIMPORTE_IVA = 'IMPORTE_IVA';
|
||||||
fld_PedidosClienteIMPORTE_TOTAL = 'IMPORTE_TOTAL';
|
fld_PedidosClienteIMPORTE_TOTAL = 'IMPORTE_TOTAL';
|
||||||
fld_PedidosClienteID_FORMA_PAGO = 'ID_FORMA_PAGO';
|
fld_PedidosClienteID_FORMA_PAGO = 'ID_FORMA_PAGO';
|
||||||
|
fld_PedidosClienteFORMA_PAGO = 'FORMA_PAGO';
|
||||||
fld_PedidosClienteREF_TIENDA_WEB = 'REF_TIENDA_WEB';
|
fld_PedidosClienteREF_TIENDA_WEB = 'REF_TIENDA_WEB';
|
||||||
fld_PedidosClienteFECHA_PREVISTA_ENVIO = 'FECHA_PREVISTA_ENVIO';
|
fld_PedidosClienteFECHA_PREVISTA_ENVIO = 'FECHA_PREVISTA_ENVIO';
|
||||||
|
fld_PedidosClienteDATOS_BANCARIOS = 'DATOS_BANCARIOS';
|
||||||
|
|
||||||
{ PedidosCliente field indexes }
|
{ PedidosCliente field indexes }
|
||||||
idx_PedidosClienteID = 0;
|
idx_PedidosClienteID = 0;
|
||||||
@ -105,13 +111,17 @@ const
|
|||||||
idx_PedidosClienteIMPORTE_PORTE = 22;
|
idx_PedidosClienteIMPORTE_PORTE = 22;
|
||||||
idx_PedidosClienteDESCUENTO = 23;
|
idx_PedidosClienteDESCUENTO = 23;
|
||||||
idx_PedidosClienteIMPORTE_DESCUENTO = 24;
|
idx_PedidosClienteIMPORTE_DESCUENTO = 24;
|
||||||
idx_PedidosClienteBASE_IMPONIBLE = 25;
|
idx_PedidosClienteDESCUENTO2 = 25;
|
||||||
idx_PedidosClienteIVA = 26;
|
idx_PedidosClienteIMPORTE_DESCUENTO2 = 26;
|
||||||
idx_PedidosClienteIMPORTE_IVA = 27;
|
idx_PedidosClienteBASE_IMPONIBLE = 27;
|
||||||
idx_PedidosClienteIMPORTE_TOTAL = 28;
|
idx_PedidosClienteIVA = 28;
|
||||||
idx_PedidosClienteID_FORMA_PAGO = 29;
|
idx_PedidosClienteIMPORTE_IVA = 29;
|
||||||
idx_PedidosClienteREF_TIENDA_WEB = 30;
|
idx_PedidosClienteIMPORTE_TOTAL = 30;
|
||||||
idx_PedidosClienteFECHA_PREVISTA_ENVIO = 31;
|
idx_PedidosClienteID_FORMA_PAGO = 31;
|
||||||
|
idx_PedidosClienteFORMA_PAGO = 32;
|
||||||
|
idx_PedidosClienteREF_TIENDA_WEB = 33;
|
||||||
|
idx_PedidosClienteFECHA_PREVISTA_ENVIO = 34;
|
||||||
|
idx_PedidosClienteDATOS_BANCARIOS = 35;
|
||||||
|
|
||||||
{ PedidosCliente_Detalles fields }
|
{ PedidosCliente_Detalles fields }
|
||||||
fld_PedidosCliente_DetallesID = 'ID';
|
fld_PedidosCliente_DetallesID = 'ID';
|
||||||
@ -159,10 +169,42 @@ const
|
|||||||
idx_PedidoCliente_Articulos_PendientesCANTIDAD_ALB = 2;
|
idx_PedidoCliente_Articulos_PendientesCANTIDAD_ALB = 2;
|
||||||
idx_PedidoCliente_Articulos_PendientesCANTIDAD_PENDIENTE = 3;
|
idx_PedidoCliente_Articulos_PendientesCANTIDAD_PENDIENTE = 3;
|
||||||
|
|
||||||
|
{ PedidosCliente_Detalle_Color fields }
|
||||||
|
fld_PedidosCliente_Detalle_ColorID = 'ID';
|
||||||
|
fld_PedidosCliente_Detalle_ColorID_DETALLE = 'ID_DETALLE';
|
||||||
|
fld_PedidosCliente_Detalle_ColorCOLOR1 = 'COLOR1';
|
||||||
|
fld_PedidosCliente_Detalle_ColorCOLOR2 = 'COLOR2';
|
||||||
|
fld_PedidosCliente_Detalle_ColorCOLOR3 = 'COLOR3';
|
||||||
|
fld_PedidosCliente_Detalle_ColorCOLOR4 = 'COLOR4';
|
||||||
|
fld_PedidosCliente_Detalle_ColorCOLOR5 = 'COLOR5';
|
||||||
|
fld_PedidosCliente_Detalle_ColorCOLOR6 = 'COLOR6';
|
||||||
|
fld_PedidosCliente_Detalle_ColorCOLOR7 = 'COLOR7';
|
||||||
|
fld_PedidosCliente_Detalle_ColorCOLOR8 = 'COLOR8';
|
||||||
|
fld_PedidosCliente_Detalle_ColorCOLOR9 = 'COLOR9';
|
||||||
|
fld_PedidosCliente_Detalle_ColorCOLOR10 = 'COLOR10';
|
||||||
|
fld_PedidosCliente_Detalle_ColorCOLOR11 = 'COLOR11';
|
||||||
|
fld_PedidosCliente_Detalle_ColorCOLOR12 = 'COLOR12';
|
||||||
|
|
||||||
|
{ PedidosCliente_Detalle_Color field indexes }
|
||||||
|
idx_PedidosCliente_Detalle_ColorID = 0;
|
||||||
|
idx_PedidosCliente_Detalle_ColorID_DETALLE = 1;
|
||||||
|
idx_PedidosCliente_Detalle_ColorCOLOR1 = 2;
|
||||||
|
idx_PedidosCliente_Detalle_ColorCOLOR2 = 3;
|
||||||
|
idx_PedidosCliente_Detalle_ColorCOLOR3 = 4;
|
||||||
|
idx_PedidosCliente_Detalle_ColorCOLOR4 = 5;
|
||||||
|
idx_PedidosCliente_Detalle_ColorCOLOR5 = 6;
|
||||||
|
idx_PedidosCliente_Detalle_ColorCOLOR6 = 7;
|
||||||
|
idx_PedidosCliente_Detalle_ColorCOLOR7 = 8;
|
||||||
|
idx_PedidosCliente_Detalle_ColorCOLOR8 = 9;
|
||||||
|
idx_PedidosCliente_Detalle_ColorCOLOR9 = 10;
|
||||||
|
idx_PedidosCliente_Detalle_ColorCOLOR10 = 11;
|
||||||
|
idx_PedidosCliente_Detalle_ColorCOLOR11 = 12;
|
||||||
|
idx_PedidosCliente_Detalle_ColorCOLOR12 = 13;
|
||||||
|
|
||||||
type
|
type
|
||||||
{ IListaAnosPedidos }
|
{ IListaAnosPedidos }
|
||||||
IListaAnosPedidos = interface(IDAStronglyTypedDataTable)
|
IListaAnosPedidos = interface(IDAStronglyTypedDataTable)
|
||||||
['{5691474A-E3A7-41CC-A8C1-E2FAA78AECC3}']
|
['{475ACA8D-8541-4EE1-A13B-85A5D1F6BED0}']
|
||||||
{ Property getters and setters }
|
{ Property getters and setters }
|
||||||
function GetANOValue: String;
|
function GetANOValue: String;
|
||||||
procedure SetANOValue(const aValue: String);
|
procedure SetANOValue(const aValue: String);
|
||||||
@ -176,7 +218,7 @@ type
|
|||||||
end;
|
end;
|
||||||
|
|
||||||
{ TListaAnosPedidosDataTableRules }
|
{ TListaAnosPedidosDataTableRules }
|
||||||
TListaAnosPedidosDataTableRules = class(TIntfObjectDADataTableRules, IListaAnosPedidos)
|
TListaAnosPedidosDataTableRules = class(TDADataTableRules, IListaAnosPedidos)
|
||||||
private
|
private
|
||||||
protected
|
protected
|
||||||
{ Property getters and setters }
|
{ Property getters and setters }
|
||||||
@ -197,7 +239,7 @@ type
|
|||||||
|
|
||||||
{ IPedidoCliente_ArticulosPendientesPedirAProv }
|
{ IPedidoCliente_ArticulosPendientesPedirAProv }
|
||||||
IPedidoCliente_ArticulosPendientesPedirAProv = interface(IDAStronglyTypedDataTable)
|
IPedidoCliente_ArticulosPendientesPedirAProv = interface(IDAStronglyTypedDataTable)
|
||||||
['{E711BE61-34E1-4715-8C2A-2CDD2622A414}']
|
['{7AD10614-220C-409B-AC9B-45D3D071265E}']
|
||||||
{ Property getters and setters }
|
{ Property getters and setters }
|
||||||
function GetID_PEDIDOValue: Integer;
|
function GetID_PEDIDOValue: Integer;
|
||||||
procedure SetID_PEDIDOValue(const aValue: Integer);
|
procedure SetID_PEDIDOValue(const aValue: Integer);
|
||||||
@ -241,7 +283,7 @@ type
|
|||||||
end;
|
end;
|
||||||
|
|
||||||
{ TPedidoCliente_ArticulosPendientesPedirAProvDataTableRules }
|
{ TPedidoCliente_ArticulosPendientesPedirAProvDataTableRules }
|
||||||
TPedidoCliente_ArticulosPendientesPedirAProvDataTableRules = class(TIntfObjectDADataTableRules, IPedidoCliente_ArticulosPendientesPedirAProv)
|
TPedidoCliente_ArticulosPendientesPedirAProvDataTableRules = class(TDADataTableRules, IPedidoCliente_ArticulosPendientesPedirAProv)
|
||||||
private
|
private
|
||||||
protected
|
protected
|
||||||
{ Property getters and setters }
|
{ Property getters and setters }
|
||||||
@ -292,7 +334,7 @@ type
|
|||||||
|
|
||||||
{ IPedidosCliente }
|
{ IPedidosCliente }
|
||||||
IPedidosCliente = interface(IDAStronglyTypedDataTable)
|
IPedidosCliente = interface(IDAStronglyTypedDataTable)
|
||||||
['{4370618E-96AC-416C-85CD-49313C07F8E7}']
|
['{7F223677-49BE-4682-A347-2F7D6E9EB4EC}']
|
||||||
{ Property getters and setters }
|
{ Property getters and setters }
|
||||||
function GetIDValue: Integer;
|
function GetIDValue: Integer;
|
||||||
procedure SetIDValue(const aValue: Integer);
|
procedure SetIDValue(const aValue: Integer);
|
||||||
@ -392,6 +434,14 @@ type
|
|||||||
procedure SetIMPORTE_DESCUENTOValue(const aValue: Currency);
|
procedure SetIMPORTE_DESCUENTOValue(const aValue: Currency);
|
||||||
function GetIMPORTE_DESCUENTOIsNull: Boolean;
|
function GetIMPORTE_DESCUENTOIsNull: Boolean;
|
||||||
procedure SetIMPORTE_DESCUENTOIsNull(const aValue: Boolean);
|
procedure SetIMPORTE_DESCUENTOIsNull(const aValue: Boolean);
|
||||||
|
function GetDESCUENTO2Value: Float;
|
||||||
|
procedure SetDESCUENTO2Value(const aValue: Float);
|
||||||
|
function GetDESCUENTO2IsNull: Boolean;
|
||||||
|
procedure SetDESCUENTO2IsNull(const aValue: Boolean);
|
||||||
|
function GetIMPORTE_DESCUENTO2Value: Currency;
|
||||||
|
procedure SetIMPORTE_DESCUENTO2Value(const aValue: Currency);
|
||||||
|
function GetIMPORTE_DESCUENTO2IsNull: Boolean;
|
||||||
|
procedure SetIMPORTE_DESCUENTO2IsNull(const aValue: Boolean);
|
||||||
function GetBASE_IMPONIBLEValue: Currency;
|
function GetBASE_IMPONIBLEValue: Currency;
|
||||||
procedure SetBASE_IMPONIBLEValue(const aValue: Currency);
|
procedure SetBASE_IMPONIBLEValue(const aValue: Currency);
|
||||||
function GetBASE_IMPONIBLEIsNull: Boolean;
|
function GetBASE_IMPONIBLEIsNull: Boolean;
|
||||||
@ -412,6 +462,10 @@ type
|
|||||||
procedure SetID_FORMA_PAGOValue(const aValue: Integer);
|
procedure SetID_FORMA_PAGOValue(const aValue: Integer);
|
||||||
function GetID_FORMA_PAGOIsNull: Boolean;
|
function GetID_FORMA_PAGOIsNull: Boolean;
|
||||||
procedure SetID_FORMA_PAGOIsNull(const aValue: Boolean);
|
procedure SetID_FORMA_PAGOIsNull(const aValue: Boolean);
|
||||||
|
function GetFORMA_PAGOValue: String;
|
||||||
|
procedure SetFORMA_PAGOValue(const aValue: String);
|
||||||
|
function GetFORMA_PAGOIsNull: Boolean;
|
||||||
|
procedure SetFORMA_PAGOIsNull(const aValue: Boolean);
|
||||||
function GetREF_TIENDA_WEBValue: Integer;
|
function GetREF_TIENDA_WEBValue: Integer;
|
||||||
procedure SetREF_TIENDA_WEBValue(const aValue: Integer);
|
procedure SetREF_TIENDA_WEBValue(const aValue: Integer);
|
||||||
function GetREF_TIENDA_WEBIsNull: Boolean;
|
function GetREF_TIENDA_WEBIsNull: Boolean;
|
||||||
@ -420,6 +474,10 @@ type
|
|||||||
procedure SetFECHA_PREVISTA_ENVIOValue(const aValue: DateTime);
|
procedure SetFECHA_PREVISTA_ENVIOValue(const aValue: DateTime);
|
||||||
function GetFECHA_PREVISTA_ENVIOIsNull: Boolean;
|
function GetFECHA_PREVISTA_ENVIOIsNull: Boolean;
|
||||||
procedure SetFECHA_PREVISTA_ENVIOIsNull(const aValue: Boolean);
|
procedure SetFECHA_PREVISTA_ENVIOIsNull(const aValue: Boolean);
|
||||||
|
function GetDATOS_BANCARIOSValue: String;
|
||||||
|
procedure SetDATOS_BANCARIOSValue(const aValue: String);
|
||||||
|
function GetDATOS_BANCARIOSIsNull: Boolean;
|
||||||
|
procedure SetDATOS_BANCARIOSIsNull(const aValue: Boolean);
|
||||||
|
|
||||||
|
|
||||||
{ Properties }
|
{ Properties }
|
||||||
@ -473,6 +531,10 @@ type
|
|||||||
property DESCUENTOIsNull: Boolean read GetDESCUENTOIsNull write SetDESCUENTOIsNull;
|
property DESCUENTOIsNull: Boolean read GetDESCUENTOIsNull write SetDESCUENTOIsNull;
|
||||||
property IMPORTE_DESCUENTO: Currency read GetIMPORTE_DESCUENTOValue write SetIMPORTE_DESCUENTOValue;
|
property IMPORTE_DESCUENTO: Currency read GetIMPORTE_DESCUENTOValue write SetIMPORTE_DESCUENTOValue;
|
||||||
property IMPORTE_DESCUENTOIsNull: Boolean read GetIMPORTE_DESCUENTOIsNull write SetIMPORTE_DESCUENTOIsNull;
|
property IMPORTE_DESCUENTOIsNull: Boolean read GetIMPORTE_DESCUENTOIsNull write SetIMPORTE_DESCUENTOIsNull;
|
||||||
|
property DESCUENTO2: Float read GetDESCUENTO2Value write SetDESCUENTO2Value;
|
||||||
|
property DESCUENTO2IsNull: Boolean read GetDESCUENTO2IsNull write SetDESCUENTO2IsNull;
|
||||||
|
property IMPORTE_DESCUENTO2: Currency read GetIMPORTE_DESCUENTO2Value write SetIMPORTE_DESCUENTO2Value;
|
||||||
|
property IMPORTE_DESCUENTO2IsNull: Boolean read GetIMPORTE_DESCUENTO2IsNull write SetIMPORTE_DESCUENTO2IsNull;
|
||||||
property BASE_IMPONIBLE: Currency read GetBASE_IMPONIBLEValue write SetBASE_IMPONIBLEValue;
|
property BASE_IMPONIBLE: Currency read GetBASE_IMPONIBLEValue write SetBASE_IMPONIBLEValue;
|
||||||
property BASE_IMPONIBLEIsNull: Boolean read GetBASE_IMPONIBLEIsNull write SetBASE_IMPONIBLEIsNull;
|
property BASE_IMPONIBLEIsNull: Boolean read GetBASE_IMPONIBLEIsNull write SetBASE_IMPONIBLEIsNull;
|
||||||
property IVA: Float read GetIVAValue write SetIVAValue;
|
property IVA: Float read GetIVAValue write SetIVAValue;
|
||||||
@ -483,14 +545,18 @@ type
|
|||||||
property IMPORTE_TOTALIsNull: Boolean read GetIMPORTE_TOTALIsNull write SetIMPORTE_TOTALIsNull;
|
property IMPORTE_TOTALIsNull: Boolean read GetIMPORTE_TOTALIsNull write SetIMPORTE_TOTALIsNull;
|
||||||
property ID_FORMA_PAGO: Integer read GetID_FORMA_PAGOValue write SetID_FORMA_PAGOValue;
|
property ID_FORMA_PAGO: Integer read GetID_FORMA_PAGOValue write SetID_FORMA_PAGOValue;
|
||||||
property ID_FORMA_PAGOIsNull: Boolean read GetID_FORMA_PAGOIsNull write SetID_FORMA_PAGOIsNull;
|
property ID_FORMA_PAGOIsNull: Boolean read GetID_FORMA_PAGOIsNull write SetID_FORMA_PAGOIsNull;
|
||||||
|
property FORMA_PAGO: String read GetFORMA_PAGOValue write SetFORMA_PAGOValue;
|
||||||
|
property FORMA_PAGOIsNull: Boolean read GetFORMA_PAGOIsNull write SetFORMA_PAGOIsNull;
|
||||||
property REF_TIENDA_WEB: Integer read GetREF_TIENDA_WEBValue write SetREF_TIENDA_WEBValue;
|
property REF_TIENDA_WEB: Integer read GetREF_TIENDA_WEBValue write SetREF_TIENDA_WEBValue;
|
||||||
property REF_TIENDA_WEBIsNull: Boolean read GetREF_TIENDA_WEBIsNull write SetREF_TIENDA_WEBIsNull;
|
property REF_TIENDA_WEBIsNull: Boolean read GetREF_TIENDA_WEBIsNull write SetREF_TIENDA_WEBIsNull;
|
||||||
property FECHA_PREVISTA_ENVIO: DateTime read GetFECHA_PREVISTA_ENVIOValue write SetFECHA_PREVISTA_ENVIOValue;
|
property FECHA_PREVISTA_ENVIO: DateTime read GetFECHA_PREVISTA_ENVIOValue write SetFECHA_PREVISTA_ENVIOValue;
|
||||||
property FECHA_PREVISTA_ENVIOIsNull: Boolean read GetFECHA_PREVISTA_ENVIOIsNull write SetFECHA_PREVISTA_ENVIOIsNull;
|
property FECHA_PREVISTA_ENVIOIsNull: Boolean read GetFECHA_PREVISTA_ENVIOIsNull write SetFECHA_PREVISTA_ENVIOIsNull;
|
||||||
|
property DATOS_BANCARIOS: String read GetDATOS_BANCARIOSValue write SetDATOS_BANCARIOSValue;
|
||||||
|
property DATOS_BANCARIOSIsNull: Boolean read GetDATOS_BANCARIOSIsNull write SetDATOS_BANCARIOSIsNull;
|
||||||
end;
|
end;
|
||||||
|
|
||||||
{ TPedidosClienteDataTableRules }
|
{ TPedidosClienteDataTableRules }
|
||||||
TPedidosClienteDataTableRules = class(TIntfObjectDADataTableRules, IPedidosCliente)
|
TPedidosClienteDataTableRules = class(TDADataTableRules, IPedidosCliente)
|
||||||
private
|
private
|
||||||
f_OBSERVACIONES: IROStrings;
|
f_OBSERVACIONES: IROStrings;
|
||||||
f_INCIDENCIAS: IROStrings;
|
f_INCIDENCIAS: IROStrings;
|
||||||
@ -596,6 +662,14 @@ type
|
|||||||
procedure SetIMPORTE_DESCUENTOValue(const aValue: Currency); virtual;
|
procedure SetIMPORTE_DESCUENTOValue(const aValue: Currency); virtual;
|
||||||
function GetIMPORTE_DESCUENTOIsNull: Boolean; virtual;
|
function GetIMPORTE_DESCUENTOIsNull: Boolean; virtual;
|
||||||
procedure SetIMPORTE_DESCUENTOIsNull(const aValue: Boolean); virtual;
|
procedure SetIMPORTE_DESCUENTOIsNull(const aValue: Boolean); virtual;
|
||||||
|
function GetDESCUENTO2Value: Float; virtual;
|
||||||
|
procedure SetDESCUENTO2Value(const aValue: Float); virtual;
|
||||||
|
function GetDESCUENTO2IsNull: Boolean; virtual;
|
||||||
|
procedure SetDESCUENTO2IsNull(const aValue: Boolean); virtual;
|
||||||
|
function GetIMPORTE_DESCUENTO2Value: Currency; virtual;
|
||||||
|
procedure SetIMPORTE_DESCUENTO2Value(const aValue: Currency); virtual;
|
||||||
|
function GetIMPORTE_DESCUENTO2IsNull: Boolean; virtual;
|
||||||
|
procedure SetIMPORTE_DESCUENTO2IsNull(const aValue: Boolean); virtual;
|
||||||
function GetBASE_IMPONIBLEValue: Currency; virtual;
|
function GetBASE_IMPONIBLEValue: Currency; virtual;
|
||||||
procedure SetBASE_IMPONIBLEValue(const aValue: Currency); virtual;
|
procedure SetBASE_IMPONIBLEValue(const aValue: Currency); virtual;
|
||||||
function GetBASE_IMPONIBLEIsNull: Boolean; virtual;
|
function GetBASE_IMPONIBLEIsNull: Boolean; virtual;
|
||||||
@ -616,6 +690,10 @@ type
|
|||||||
procedure SetID_FORMA_PAGOValue(const aValue: Integer); virtual;
|
procedure SetID_FORMA_PAGOValue(const aValue: Integer); virtual;
|
||||||
function GetID_FORMA_PAGOIsNull: Boolean; virtual;
|
function GetID_FORMA_PAGOIsNull: Boolean; virtual;
|
||||||
procedure SetID_FORMA_PAGOIsNull(const aValue: Boolean); virtual;
|
procedure SetID_FORMA_PAGOIsNull(const aValue: Boolean); virtual;
|
||||||
|
function GetFORMA_PAGOValue: String; virtual;
|
||||||
|
procedure SetFORMA_PAGOValue(const aValue: String); virtual;
|
||||||
|
function GetFORMA_PAGOIsNull: Boolean; virtual;
|
||||||
|
procedure SetFORMA_PAGOIsNull(const aValue: Boolean); virtual;
|
||||||
function GetREF_TIENDA_WEBValue: Integer; virtual;
|
function GetREF_TIENDA_WEBValue: Integer; virtual;
|
||||||
procedure SetREF_TIENDA_WEBValue(const aValue: Integer); virtual;
|
procedure SetREF_TIENDA_WEBValue(const aValue: Integer); virtual;
|
||||||
function GetREF_TIENDA_WEBIsNull: Boolean; virtual;
|
function GetREF_TIENDA_WEBIsNull: Boolean; virtual;
|
||||||
@ -624,6 +702,10 @@ type
|
|||||||
procedure SetFECHA_PREVISTA_ENVIOValue(const aValue: DateTime); virtual;
|
procedure SetFECHA_PREVISTA_ENVIOValue(const aValue: DateTime); virtual;
|
||||||
function GetFECHA_PREVISTA_ENVIOIsNull: Boolean; virtual;
|
function GetFECHA_PREVISTA_ENVIOIsNull: Boolean; virtual;
|
||||||
procedure SetFECHA_PREVISTA_ENVIOIsNull(const aValue: Boolean); virtual;
|
procedure SetFECHA_PREVISTA_ENVIOIsNull(const aValue: Boolean); virtual;
|
||||||
|
function GetDATOS_BANCARIOSValue: String; virtual;
|
||||||
|
procedure SetDATOS_BANCARIOSValue(const aValue: String); virtual;
|
||||||
|
function GetDATOS_BANCARIOSIsNull: Boolean; virtual;
|
||||||
|
procedure SetDATOS_BANCARIOSIsNull(const aValue: Boolean); virtual;
|
||||||
|
|
||||||
{ Properties }
|
{ Properties }
|
||||||
property ID: Integer read GetIDValue write SetIDValue;
|
property ID: Integer read GetIDValue write SetIDValue;
|
||||||
@ -676,6 +758,10 @@ type
|
|||||||
property DESCUENTOIsNull: Boolean read GetDESCUENTOIsNull write SetDESCUENTOIsNull;
|
property DESCUENTOIsNull: Boolean read GetDESCUENTOIsNull write SetDESCUENTOIsNull;
|
||||||
property IMPORTE_DESCUENTO: Currency read GetIMPORTE_DESCUENTOValue write SetIMPORTE_DESCUENTOValue;
|
property IMPORTE_DESCUENTO: Currency read GetIMPORTE_DESCUENTOValue write SetIMPORTE_DESCUENTOValue;
|
||||||
property IMPORTE_DESCUENTOIsNull: Boolean read GetIMPORTE_DESCUENTOIsNull write SetIMPORTE_DESCUENTOIsNull;
|
property IMPORTE_DESCUENTOIsNull: Boolean read GetIMPORTE_DESCUENTOIsNull write SetIMPORTE_DESCUENTOIsNull;
|
||||||
|
property DESCUENTO2: Float read GetDESCUENTO2Value write SetDESCUENTO2Value;
|
||||||
|
property DESCUENTO2IsNull: Boolean read GetDESCUENTO2IsNull write SetDESCUENTO2IsNull;
|
||||||
|
property IMPORTE_DESCUENTO2: Currency read GetIMPORTE_DESCUENTO2Value write SetIMPORTE_DESCUENTO2Value;
|
||||||
|
property IMPORTE_DESCUENTO2IsNull: Boolean read GetIMPORTE_DESCUENTO2IsNull write SetIMPORTE_DESCUENTO2IsNull;
|
||||||
property BASE_IMPONIBLE: Currency read GetBASE_IMPONIBLEValue write SetBASE_IMPONIBLEValue;
|
property BASE_IMPONIBLE: Currency read GetBASE_IMPONIBLEValue write SetBASE_IMPONIBLEValue;
|
||||||
property BASE_IMPONIBLEIsNull: Boolean read GetBASE_IMPONIBLEIsNull write SetBASE_IMPONIBLEIsNull;
|
property BASE_IMPONIBLEIsNull: Boolean read GetBASE_IMPONIBLEIsNull write SetBASE_IMPONIBLEIsNull;
|
||||||
property IVA: Float read GetIVAValue write SetIVAValue;
|
property IVA: Float read GetIVAValue write SetIVAValue;
|
||||||
@ -686,10 +772,14 @@ type
|
|||||||
property IMPORTE_TOTALIsNull: Boolean read GetIMPORTE_TOTALIsNull write SetIMPORTE_TOTALIsNull;
|
property IMPORTE_TOTALIsNull: Boolean read GetIMPORTE_TOTALIsNull write SetIMPORTE_TOTALIsNull;
|
||||||
property ID_FORMA_PAGO: Integer read GetID_FORMA_PAGOValue write SetID_FORMA_PAGOValue;
|
property ID_FORMA_PAGO: Integer read GetID_FORMA_PAGOValue write SetID_FORMA_PAGOValue;
|
||||||
property ID_FORMA_PAGOIsNull: Boolean read GetID_FORMA_PAGOIsNull write SetID_FORMA_PAGOIsNull;
|
property ID_FORMA_PAGOIsNull: Boolean read GetID_FORMA_PAGOIsNull write SetID_FORMA_PAGOIsNull;
|
||||||
|
property FORMA_PAGO: String read GetFORMA_PAGOValue write SetFORMA_PAGOValue;
|
||||||
|
property FORMA_PAGOIsNull: Boolean read GetFORMA_PAGOIsNull write SetFORMA_PAGOIsNull;
|
||||||
property REF_TIENDA_WEB: Integer read GetREF_TIENDA_WEBValue write SetREF_TIENDA_WEBValue;
|
property REF_TIENDA_WEB: Integer read GetREF_TIENDA_WEBValue write SetREF_TIENDA_WEBValue;
|
||||||
property REF_TIENDA_WEBIsNull: Boolean read GetREF_TIENDA_WEBIsNull write SetREF_TIENDA_WEBIsNull;
|
property REF_TIENDA_WEBIsNull: Boolean read GetREF_TIENDA_WEBIsNull write SetREF_TIENDA_WEBIsNull;
|
||||||
property FECHA_PREVISTA_ENVIO: DateTime read GetFECHA_PREVISTA_ENVIOValue write SetFECHA_PREVISTA_ENVIOValue;
|
property FECHA_PREVISTA_ENVIO: DateTime read GetFECHA_PREVISTA_ENVIOValue write SetFECHA_PREVISTA_ENVIOValue;
|
||||||
property FECHA_PREVISTA_ENVIOIsNull: Boolean read GetFECHA_PREVISTA_ENVIOIsNull write SetFECHA_PREVISTA_ENVIOIsNull;
|
property FECHA_PREVISTA_ENVIOIsNull: Boolean read GetFECHA_PREVISTA_ENVIOIsNull write SetFECHA_PREVISTA_ENVIOIsNull;
|
||||||
|
property DATOS_BANCARIOS: String read GetDATOS_BANCARIOSValue write SetDATOS_BANCARIOSValue;
|
||||||
|
property DATOS_BANCARIOSIsNull: Boolean read GetDATOS_BANCARIOSIsNull write SetDATOS_BANCARIOSIsNull;
|
||||||
|
|
||||||
public
|
public
|
||||||
constructor Create(aDataTable: TDADataTable); override;
|
constructor Create(aDataTable: TDADataTable); override;
|
||||||
@ -699,7 +789,7 @@ type
|
|||||||
|
|
||||||
{ IPedidosCliente_Detalles }
|
{ IPedidosCliente_Detalles }
|
||||||
IPedidosCliente_Detalles = interface(IDAStronglyTypedDataTable)
|
IPedidosCliente_Detalles = interface(IDAStronglyTypedDataTable)
|
||||||
['{AA332AF5-ADDB-4244-BB55-94E298CA4C95}']
|
['{BAD29A6E-F515-46A0-8BDD-EE879086BE33}']
|
||||||
{ Property getters and setters }
|
{ Property getters and setters }
|
||||||
function GetIDValue: Integer;
|
function GetIDValue: Integer;
|
||||||
procedure SetIDValue(const aValue: Integer);
|
procedure SetIDValue(const aValue: Integer);
|
||||||
@ -733,8 +823,8 @@ type
|
|||||||
procedure SetCONCEPTOValue(const aValue: String);
|
procedure SetCONCEPTOValue(const aValue: String);
|
||||||
function GetCONCEPTOIsNull: Boolean;
|
function GetCONCEPTOIsNull: Boolean;
|
||||||
procedure SetCONCEPTOIsNull(const aValue: Boolean);
|
procedure SetCONCEPTOIsNull(const aValue: Boolean);
|
||||||
function GetCANTIDADValue: Integer;
|
function GetCANTIDADValue: Float;
|
||||||
procedure SetCANTIDADValue(const aValue: Integer);
|
procedure SetCANTIDADValue(const aValue: Float);
|
||||||
function GetCANTIDADIsNull: Boolean;
|
function GetCANTIDADIsNull: Boolean;
|
||||||
procedure SetCANTIDADIsNull(const aValue: Boolean);
|
procedure SetCANTIDADIsNull(const aValue: Boolean);
|
||||||
function GetIMPORTE_UNIDADValue: Currency;
|
function GetIMPORTE_UNIDADValue: Currency;
|
||||||
@ -780,7 +870,7 @@ type
|
|||||||
property REFERENCIA_PROVEEDORIsNull: Boolean read GetREFERENCIA_PROVEEDORIsNull write SetREFERENCIA_PROVEEDORIsNull;
|
property REFERENCIA_PROVEEDORIsNull: Boolean read GetREFERENCIA_PROVEEDORIsNull write SetREFERENCIA_PROVEEDORIsNull;
|
||||||
property CONCEPTO: String read GetCONCEPTOValue write SetCONCEPTOValue;
|
property CONCEPTO: String read GetCONCEPTOValue write SetCONCEPTOValue;
|
||||||
property CONCEPTOIsNull: Boolean read GetCONCEPTOIsNull write SetCONCEPTOIsNull;
|
property CONCEPTOIsNull: Boolean read GetCONCEPTOIsNull write SetCONCEPTOIsNull;
|
||||||
property CANTIDAD: Integer read GetCANTIDADValue write SetCANTIDADValue;
|
property CANTIDAD: Float read GetCANTIDADValue write SetCANTIDADValue;
|
||||||
property CANTIDADIsNull: Boolean read GetCANTIDADIsNull write SetCANTIDADIsNull;
|
property CANTIDADIsNull: Boolean read GetCANTIDADIsNull write SetCANTIDADIsNull;
|
||||||
property IMPORTE_UNIDAD: Currency read GetIMPORTE_UNIDADValue write SetIMPORTE_UNIDADValue;
|
property IMPORTE_UNIDAD: Currency read GetIMPORTE_UNIDADValue write SetIMPORTE_UNIDADValue;
|
||||||
property IMPORTE_UNIDADIsNull: Boolean read GetIMPORTE_UNIDADIsNull write SetIMPORTE_UNIDADIsNull;
|
property IMPORTE_UNIDADIsNull: Boolean read GetIMPORTE_UNIDADIsNull write SetIMPORTE_UNIDADIsNull;
|
||||||
@ -797,7 +887,7 @@ type
|
|||||||
end;
|
end;
|
||||||
|
|
||||||
{ TPedidosCliente_DetallesDataTableRules }
|
{ TPedidosCliente_DetallesDataTableRules }
|
||||||
TPedidosCliente_DetallesDataTableRules = class(TIntfObjectDADataTableRules, IPedidosCliente_Detalles)
|
TPedidosCliente_DetallesDataTableRules = class(TDADataTableRules, IPedidosCliente_Detalles)
|
||||||
private
|
private
|
||||||
protected
|
protected
|
||||||
{ Property getters and setters }
|
{ Property getters and setters }
|
||||||
@ -833,8 +923,8 @@ type
|
|||||||
procedure SetCONCEPTOValue(const aValue: String); virtual;
|
procedure SetCONCEPTOValue(const aValue: String); virtual;
|
||||||
function GetCONCEPTOIsNull: Boolean; virtual;
|
function GetCONCEPTOIsNull: Boolean; virtual;
|
||||||
procedure SetCONCEPTOIsNull(const aValue: Boolean); virtual;
|
procedure SetCONCEPTOIsNull(const aValue: Boolean); virtual;
|
||||||
function GetCANTIDADValue: Integer; virtual;
|
function GetCANTIDADValue: Float; virtual;
|
||||||
procedure SetCANTIDADValue(const aValue: Integer); virtual;
|
procedure SetCANTIDADValue(const aValue: Float); virtual;
|
||||||
function GetCANTIDADIsNull: Boolean; virtual;
|
function GetCANTIDADIsNull: Boolean; virtual;
|
||||||
procedure SetCANTIDADIsNull(const aValue: Boolean); virtual;
|
procedure SetCANTIDADIsNull(const aValue: Boolean); virtual;
|
||||||
function GetIMPORTE_UNIDADValue: Currency; virtual;
|
function GetIMPORTE_UNIDADValue: Currency; virtual;
|
||||||
@ -879,7 +969,7 @@ type
|
|||||||
property REFERENCIA_PROVEEDORIsNull: Boolean read GetREFERENCIA_PROVEEDORIsNull write SetREFERENCIA_PROVEEDORIsNull;
|
property REFERENCIA_PROVEEDORIsNull: Boolean read GetREFERENCIA_PROVEEDORIsNull write SetREFERENCIA_PROVEEDORIsNull;
|
||||||
property CONCEPTO: String read GetCONCEPTOValue write SetCONCEPTOValue;
|
property CONCEPTO: String read GetCONCEPTOValue write SetCONCEPTOValue;
|
||||||
property CONCEPTOIsNull: Boolean read GetCONCEPTOIsNull write SetCONCEPTOIsNull;
|
property CONCEPTOIsNull: Boolean read GetCONCEPTOIsNull write SetCONCEPTOIsNull;
|
||||||
property CANTIDAD: Integer read GetCANTIDADValue write SetCANTIDADValue;
|
property CANTIDAD: Float read GetCANTIDADValue write SetCANTIDADValue;
|
||||||
property CANTIDADIsNull: Boolean read GetCANTIDADIsNull write SetCANTIDADIsNull;
|
property CANTIDADIsNull: Boolean read GetCANTIDADIsNull write SetCANTIDADIsNull;
|
||||||
property IMPORTE_UNIDAD: Currency read GetIMPORTE_UNIDADValue write SetIMPORTE_UNIDADValue;
|
property IMPORTE_UNIDAD: Currency read GetIMPORTE_UNIDADValue write SetIMPORTE_UNIDADValue;
|
||||||
property IMPORTE_UNIDADIsNull: Boolean read GetIMPORTE_UNIDADIsNull write SetIMPORTE_UNIDADIsNull;
|
property IMPORTE_UNIDADIsNull: Boolean read GetIMPORTE_UNIDADIsNull write SetIMPORTE_UNIDADIsNull;
|
||||||
@ -902,7 +992,7 @@ type
|
|||||||
|
|
||||||
{ IPedidoCliente_Articulos_Pendientes }
|
{ IPedidoCliente_Articulos_Pendientes }
|
||||||
IPedidoCliente_Articulos_Pendientes = interface(IDAStronglyTypedDataTable)
|
IPedidoCliente_Articulos_Pendientes = interface(IDAStronglyTypedDataTable)
|
||||||
['{4C18D512-9D95-476E-97D9-EFBD0FC57621}']
|
['{3662880C-6D05-49E4-B105-19882211F1AD}']
|
||||||
{ Property getters and setters }
|
{ Property getters and setters }
|
||||||
function GetID_ARTICULOValue: Integer;
|
function GetID_ARTICULOValue: Integer;
|
||||||
procedure SetID_ARTICULOValue(const aValue: Integer);
|
procedure SetID_ARTICULOValue(const aValue: Integer);
|
||||||
@ -934,7 +1024,7 @@ type
|
|||||||
end;
|
end;
|
||||||
|
|
||||||
{ TPedidoCliente_Articulos_PendientesDataTableRules }
|
{ TPedidoCliente_Articulos_PendientesDataTableRules }
|
||||||
TPedidoCliente_Articulos_PendientesDataTableRules = class(TIntfObjectDADataTableRules, IPedidoCliente_Articulos_Pendientes)
|
TPedidoCliente_Articulos_PendientesDataTableRules = class(TDADataTableRules, IPedidoCliente_Articulos_Pendientes)
|
||||||
private
|
private
|
||||||
protected
|
protected
|
||||||
{ Property getters and setters }
|
{ Property getters and setters }
|
||||||
@ -971,6 +1061,197 @@ type
|
|||||||
|
|
||||||
end;
|
end;
|
||||||
|
|
||||||
|
{ IPedidosCliente_Detalle_Color }
|
||||||
|
IPedidosCliente_Detalle_Color = interface(IDAStronglyTypedDataTable)
|
||||||
|
['{9D745C39-FEE8-4641-BCC3-BABA61100D42}']
|
||||||
|
{ Property getters and setters }
|
||||||
|
function GetIDValue: Integer;
|
||||||
|
procedure SetIDValue(const aValue: Integer);
|
||||||
|
function GetIDIsNull: Boolean;
|
||||||
|
procedure SetIDIsNull(const aValue: Boolean);
|
||||||
|
function GetID_DETALLEValue: Integer;
|
||||||
|
procedure SetID_DETALLEValue(const aValue: Integer);
|
||||||
|
function GetID_DETALLEIsNull: Boolean;
|
||||||
|
procedure SetID_DETALLEIsNull(const aValue: Boolean);
|
||||||
|
function GetCOLOR1Value: Integer;
|
||||||
|
procedure SetCOLOR1Value(const aValue: Integer);
|
||||||
|
function GetCOLOR1IsNull: Boolean;
|
||||||
|
procedure SetCOLOR1IsNull(const aValue: Boolean);
|
||||||
|
function GetCOLOR2Value: Integer;
|
||||||
|
procedure SetCOLOR2Value(const aValue: Integer);
|
||||||
|
function GetCOLOR2IsNull: Boolean;
|
||||||
|
procedure SetCOLOR2IsNull(const aValue: Boolean);
|
||||||
|
function GetCOLOR3Value: Integer;
|
||||||
|
procedure SetCOLOR3Value(const aValue: Integer);
|
||||||
|
function GetCOLOR3IsNull: Boolean;
|
||||||
|
procedure SetCOLOR3IsNull(const aValue: Boolean);
|
||||||
|
function GetCOLOR4Value: Integer;
|
||||||
|
procedure SetCOLOR4Value(const aValue: Integer);
|
||||||
|
function GetCOLOR4IsNull: Boolean;
|
||||||
|
procedure SetCOLOR4IsNull(const aValue: Boolean);
|
||||||
|
function GetCOLOR5Value: Integer;
|
||||||
|
procedure SetCOLOR5Value(const aValue: Integer);
|
||||||
|
function GetCOLOR5IsNull: Boolean;
|
||||||
|
procedure SetCOLOR5IsNull(const aValue: Boolean);
|
||||||
|
function GetCOLOR6Value: Integer;
|
||||||
|
procedure SetCOLOR6Value(const aValue: Integer);
|
||||||
|
function GetCOLOR6IsNull: Boolean;
|
||||||
|
procedure SetCOLOR6IsNull(const aValue: Boolean);
|
||||||
|
function GetCOLOR7Value: Integer;
|
||||||
|
procedure SetCOLOR7Value(const aValue: Integer);
|
||||||
|
function GetCOLOR7IsNull: Boolean;
|
||||||
|
procedure SetCOLOR7IsNull(const aValue: Boolean);
|
||||||
|
function GetCOLOR8Value: Integer;
|
||||||
|
procedure SetCOLOR8Value(const aValue: Integer);
|
||||||
|
function GetCOLOR8IsNull: Boolean;
|
||||||
|
procedure SetCOLOR8IsNull(const aValue: Boolean);
|
||||||
|
function GetCOLOR9Value: Integer;
|
||||||
|
procedure SetCOLOR9Value(const aValue: Integer);
|
||||||
|
function GetCOLOR9IsNull: Boolean;
|
||||||
|
procedure SetCOLOR9IsNull(const aValue: Boolean);
|
||||||
|
function GetCOLOR10Value: Integer;
|
||||||
|
procedure SetCOLOR10Value(const aValue: Integer);
|
||||||
|
function GetCOLOR10IsNull: Boolean;
|
||||||
|
procedure SetCOLOR10IsNull(const aValue: Boolean);
|
||||||
|
function GetCOLOR11Value: Integer;
|
||||||
|
procedure SetCOLOR11Value(const aValue: Integer);
|
||||||
|
function GetCOLOR11IsNull: Boolean;
|
||||||
|
procedure SetCOLOR11IsNull(const aValue: Boolean);
|
||||||
|
function GetCOLOR12Value: Integer;
|
||||||
|
procedure SetCOLOR12Value(const aValue: Integer);
|
||||||
|
function GetCOLOR12IsNull: Boolean;
|
||||||
|
procedure SetCOLOR12IsNull(const aValue: Boolean);
|
||||||
|
|
||||||
|
|
||||||
|
{ Properties }
|
||||||
|
property ID: Integer read GetIDValue write SetIDValue;
|
||||||
|
property IDIsNull: Boolean read GetIDIsNull write SetIDIsNull;
|
||||||
|
property ID_DETALLE: Integer read GetID_DETALLEValue write SetID_DETALLEValue;
|
||||||
|
property ID_DETALLEIsNull: Boolean read GetID_DETALLEIsNull write SetID_DETALLEIsNull;
|
||||||
|
property COLOR1: Integer read GetCOLOR1Value write SetCOLOR1Value;
|
||||||
|
property COLOR1IsNull: Boolean read GetCOLOR1IsNull write SetCOLOR1IsNull;
|
||||||
|
property COLOR2: Integer read GetCOLOR2Value write SetCOLOR2Value;
|
||||||
|
property COLOR2IsNull: Boolean read GetCOLOR2IsNull write SetCOLOR2IsNull;
|
||||||
|
property COLOR3: Integer read GetCOLOR3Value write SetCOLOR3Value;
|
||||||
|
property COLOR3IsNull: Boolean read GetCOLOR3IsNull write SetCOLOR3IsNull;
|
||||||
|
property COLOR4: Integer read GetCOLOR4Value write SetCOLOR4Value;
|
||||||
|
property COLOR4IsNull: Boolean read GetCOLOR4IsNull write SetCOLOR4IsNull;
|
||||||
|
property COLOR5: Integer read GetCOLOR5Value write SetCOLOR5Value;
|
||||||
|
property COLOR5IsNull: Boolean read GetCOLOR5IsNull write SetCOLOR5IsNull;
|
||||||
|
property COLOR6: Integer read GetCOLOR6Value write SetCOLOR6Value;
|
||||||
|
property COLOR6IsNull: Boolean read GetCOLOR6IsNull write SetCOLOR6IsNull;
|
||||||
|
property COLOR7: Integer read GetCOLOR7Value write SetCOLOR7Value;
|
||||||
|
property COLOR7IsNull: Boolean read GetCOLOR7IsNull write SetCOLOR7IsNull;
|
||||||
|
property COLOR8: Integer read GetCOLOR8Value write SetCOLOR8Value;
|
||||||
|
property COLOR8IsNull: Boolean read GetCOLOR8IsNull write SetCOLOR8IsNull;
|
||||||
|
property COLOR9: Integer read GetCOLOR9Value write SetCOLOR9Value;
|
||||||
|
property COLOR9IsNull: Boolean read GetCOLOR9IsNull write SetCOLOR9IsNull;
|
||||||
|
property COLOR10: Integer read GetCOLOR10Value write SetCOLOR10Value;
|
||||||
|
property COLOR10IsNull: Boolean read GetCOLOR10IsNull write SetCOLOR10IsNull;
|
||||||
|
property COLOR11: Integer read GetCOLOR11Value write SetCOLOR11Value;
|
||||||
|
property COLOR11IsNull: Boolean read GetCOLOR11IsNull write SetCOLOR11IsNull;
|
||||||
|
property COLOR12: Integer read GetCOLOR12Value write SetCOLOR12Value;
|
||||||
|
property COLOR12IsNull: Boolean read GetCOLOR12IsNull write SetCOLOR12IsNull;
|
||||||
|
end;
|
||||||
|
|
||||||
|
{ TPedidosCliente_Detalle_ColorDataTableRules }
|
||||||
|
TPedidosCliente_Detalle_ColorDataTableRules = class(TDADataTableRules, IPedidosCliente_Detalle_Color)
|
||||||
|
private
|
||||||
|
protected
|
||||||
|
{ Property getters and setters }
|
||||||
|
function GetIDValue: Integer; virtual;
|
||||||
|
procedure SetIDValue(const aValue: Integer); virtual;
|
||||||
|
function GetIDIsNull: Boolean; virtual;
|
||||||
|
procedure SetIDIsNull(const aValue: Boolean); virtual;
|
||||||
|
function GetID_DETALLEValue: Integer; virtual;
|
||||||
|
procedure SetID_DETALLEValue(const aValue: Integer); virtual;
|
||||||
|
function GetID_DETALLEIsNull: Boolean; virtual;
|
||||||
|
procedure SetID_DETALLEIsNull(const aValue: Boolean); virtual;
|
||||||
|
function GetCOLOR1Value: Integer; virtual;
|
||||||
|
procedure SetCOLOR1Value(const aValue: Integer); virtual;
|
||||||
|
function GetCOLOR1IsNull: Boolean; virtual;
|
||||||
|
procedure SetCOLOR1IsNull(const aValue: Boolean); virtual;
|
||||||
|
function GetCOLOR2Value: Integer; virtual;
|
||||||
|
procedure SetCOLOR2Value(const aValue: Integer); virtual;
|
||||||
|
function GetCOLOR2IsNull: Boolean; virtual;
|
||||||
|
procedure SetCOLOR2IsNull(const aValue: Boolean); virtual;
|
||||||
|
function GetCOLOR3Value: Integer; virtual;
|
||||||
|
procedure SetCOLOR3Value(const aValue: Integer); virtual;
|
||||||
|
function GetCOLOR3IsNull: Boolean; virtual;
|
||||||
|
procedure SetCOLOR3IsNull(const aValue: Boolean); virtual;
|
||||||
|
function GetCOLOR4Value: Integer; virtual;
|
||||||
|
procedure SetCOLOR4Value(const aValue: Integer); virtual;
|
||||||
|
function GetCOLOR4IsNull: Boolean; virtual;
|
||||||
|
procedure SetCOLOR4IsNull(const aValue: Boolean); virtual;
|
||||||
|
function GetCOLOR5Value: Integer; virtual;
|
||||||
|
procedure SetCOLOR5Value(const aValue: Integer); virtual;
|
||||||
|
function GetCOLOR5IsNull: Boolean; virtual;
|
||||||
|
procedure SetCOLOR5IsNull(const aValue: Boolean); virtual;
|
||||||
|
function GetCOLOR6Value: Integer; virtual;
|
||||||
|
procedure SetCOLOR6Value(const aValue: Integer); virtual;
|
||||||
|
function GetCOLOR6IsNull: Boolean; virtual;
|
||||||
|
procedure SetCOLOR6IsNull(const aValue: Boolean); virtual;
|
||||||
|
function GetCOLOR7Value: Integer; virtual;
|
||||||
|
procedure SetCOLOR7Value(const aValue: Integer); virtual;
|
||||||
|
function GetCOLOR7IsNull: Boolean; virtual;
|
||||||
|
procedure SetCOLOR7IsNull(const aValue: Boolean); virtual;
|
||||||
|
function GetCOLOR8Value: Integer; virtual;
|
||||||
|
procedure SetCOLOR8Value(const aValue: Integer); virtual;
|
||||||
|
function GetCOLOR8IsNull: Boolean; virtual;
|
||||||
|
procedure SetCOLOR8IsNull(const aValue: Boolean); virtual;
|
||||||
|
function GetCOLOR9Value: Integer; virtual;
|
||||||
|
procedure SetCOLOR9Value(const aValue: Integer); virtual;
|
||||||
|
function GetCOLOR9IsNull: Boolean; virtual;
|
||||||
|
procedure SetCOLOR9IsNull(const aValue: Boolean); virtual;
|
||||||
|
function GetCOLOR10Value: Integer; virtual;
|
||||||
|
procedure SetCOLOR10Value(const aValue: Integer); virtual;
|
||||||
|
function GetCOLOR10IsNull: Boolean; virtual;
|
||||||
|
procedure SetCOLOR10IsNull(const aValue: Boolean); virtual;
|
||||||
|
function GetCOLOR11Value: Integer; virtual;
|
||||||
|
procedure SetCOLOR11Value(const aValue: Integer); virtual;
|
||||||
|
function GetCOLOR11IsNull: Boolean; virtual;
|
||||||
|
procedure SetCOLOR11IsNull(const aValue: Boolean); virtual;
|
||||||
|
function GetCOLOR12Value: Integer; virtual;
|
||||||
|
procedure SetCOLOR12Value(const aValue: Integer); virtual;
|
||||||
|
function GetCOLOR12IsNull: Boolean; virtual;
|
||||||
|
procedure SetCOLOR12IsNull(const aValue: Boolean); virtual;
|
||||||
|
|
||||||
|
{ Properties }
|
||||||
|
property ID: Integer read GetIDValue write SetIDValue;
|
||||||
|
property IDIsNull: Boolean read GetIDIsNull write SetIDIsNull;
|
||||||
|
property ID_DETALLE: Integer read GetID_DETALLEValue write SetID_DETALLEValue;
|
||||||
|
property ID_DETALLEIsNull: Boolean read GetID_DETALLEIsNull write SetID_DETALLEIsNull;
|
||||||
|
property COLOR1: Integer read GetCOLOR1Value write SetCOLOR1Value;
|
||||||
|
property COLOR1IsNull: Boolean read GetCOLOR1IsNull write SetCOLOR1IsNull;
|
||||||
|
property COLOR2: Integer read GetCOLOR2Value write SetCOLOR2Value;
|
||||||
|
property COLOR2IsNull: Boolean read GetCOLOR2IsNull write SetCOLOR2IsNull;
|
||||||
|
property COLOR3: Integer read GetCOLOR3Value write SetCOLOR3Value;
|
||||||
|
property COLOR3IsNull: Boolean read GetCOLOR3IsNull write SetCOLOR3IsNull;
|
||||||
|
property COLOR4: Integer read GetCOLOR4Value write SetCOLOR4Value;
|
||||||
|
property COLOR4IsNull: Boolean read GetCOLOR4IsNull write SetCOLOR4IsNull;
|
||||||
|
property COLOR5: Integer read GetCOLOR5Value write SetCOLOR5Value;
|
||||||
|
property COLOR5IsNull: Boolean read GetCOLOR5IsNull write SetCOLOR5IsNull;
|
||||||
|
property COLOR6: Integer read GetCOLOR6Value write SetCOLOR6Value;
|
||||||
|
property COLOR6IsNull: Boolean read GetCOLOR6IsNull write SetCOLOR6IsNull;
|
||||||
|
property COLOR7: Integer read GetCOLOR7Value write SetCOLOR7Value;
|
||||||
|
property COLOR7IsNull: Boolean read GetCOLOR7IsNull write SetCOLOR7IsNull;
|
||||||
|
property COLOR8: Integer read GetCOLOR8Value write SetCOLOR8Value;
|
||||||
|
property COLOR8IsNull: Boolean read GetCOLOR8IsNull write SetCOLOR8IsNull;
|
||||||
|
property COLOR9: Integer read GetCOLOR9Value write SetCOLOR9Value;
|
||||||
|
property COLOR9IsNull: Boolean read GetCOLOR9IsNull write SetCOLOR9IsNull;
|
||||||
|
property COLOR10: Integer read GetCOLOR10Value write SetCOLOR10Value;
|
||||||
|
property COLOR10IsNull: Boolean read GetCOLOR10IsNull write SetCOLOR10IsNull;
|
||||||
|
property COLOR11: Integer read GetCOLOR11Value write SetCOLOR11Value;
|
||||||
|
property COLOR11IsNull: Boolean read GetCOLOR11IsNull write SetCOLOR11IsNull;
|
||||||
|
property COLOR12: Integer read GetCOLOR12Value write SetCOLOR12Value;
|
||||||
|
property COLOR12IsNull: Boolean read GetCOLOR12IsNull write SetCOLOR12IsNull;
|
||||||
|
|
||||||
|
public
|
||||||
|
constructor Create(aDataTable: TDADataTable); override;
|
||||||
|
destructor Destroy; override;
|
||||||
|
|
||||||
|
end;
|
||||||
|
|
||||||
implementation
|
implementation
|
||||||
|
|
||||||
uses Variants, uROBinaryHelpers;
|
uses Variants, uROBinaryHelpers;
|
||||||
@ -1694,6 +1975,48 @@ begin
|
|||||||
DataTable.Fields[idx_PedidosClienteIMPORTE_DESCUENTO].AsVariant := Null;
|
DataTable.Fields[idx_PedidosClienteIMPORTE_DESCUENTO].AsVariant := Null;
|
||||||
end;
|
end;
|
||||||
|
|
||||||
|
function TPedidosClienteDataTableRules.GetDESCUENTO2Value: Float;
|
||||||
|
begin
|
||||||
|
result := DataTable.Fields[idx_PedidosClienteDESCUENTO2].AsFloat;
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TPedidosClienteDataTableRules.SetDESCUENTO2Value(const aValue: Float);
|
||||||
|
begin
|
||||||
|
DataTable.Fields[idx_PedidosClienteDESCUENTO2].AsFloat := aValue;
|
||||||
|
end;
|
||||||
|
|
||||||
|
function TPedidosClienteDataTableRules.GetDESCUENTO2IsNull: boolean;
|
||||||
|
begin
|
||||||
|
result := DataTable.Fields[idx_PedidosClienteDESCUENTO2].IsNull;
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TPedidosClienteDataTableRules.SetDESCUENTO2IsNull(const aValue: Boolean);
|
||||||
|
begin
|
||||||
|
if aValue then
|
||||||
|
DataTable.Fields[idx_PedidosClienteDESCUENTO2].AsVariant := Null;
|
||||||
|
end;
|
||||||
|
|
||||||
|
function TPedidosClienteDataTableRules.GetIMPORTE_DESCUENTO2Value: Currency;
|
||||||
|
begin
|
||||||
|
result := DataTable.Fields[idx_PedidosClienteIMPORTE_DESCUENTO2].AsCurrency;
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TPedidosClienteDataTableRules.SetIMPORTE_DESCUENTO2Value(const aValue: Currency);
|
||||||
|
begin
|
||||||
|
DataTable.Fields[idx_PedidosClienteIMPORTE_DESCUENTO2].AsCurrency := aValue;
|
||||||
|
end;
|
||||||
|
|
||||||
|
function TPedidosClienteDataTableRules.GetIMPORTE_DESCUENTO2IsNull: boolean;
|
||||||
|
begin
|
||||||
|
result := DataTable.Fields[idx_PedidosClienteIMPORTE_DESCUENTO2].IsNull;
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TPedidosClienteDataTableRules.SetIMPORTE_DESCUENTO2IsNull(const aValue: Boolean);
|
||||||
|
begin
|
||||||
|
if aValue then
|
||||||
|
DataTable.Fields[idx_PedidosClienteIMPORTE_DESCUENTO2].AsVariant := Null;
|
||||||
|
end;
|
||||||
|
|
||||||
function TPedidosClienteDataTableRules.GetBASE_IMPONIBLEValue: Currency;
|
function TPedidosClienteDataTableRules.GetBASE_IMPONIBLEValue: Currency;
|
||||||
begin
|
begin
|
||||||
result := DataTable.Fields[idx_PedidosClienteBASE_IMPONIBLE].AsCurrency;
|
result := DataTable.Fields[idx_PedidosClienteBASE_IMPONIBLE].AsCurrency;
|
||||||
@ -1799,6 +2122,27 @@ begin
|
|||||||
DataTable.Fields[idx_PedidosClienteID_FORMA_PAGO].AsVariant := Null;
|
DataTable.Fields[idx_PedidosClienteID_FORMA_PAGO].AsVariant := Null;
|
||||||
end;
|
end;
|
||||||
|
|
||||||
|
function TPedidosClienteDataTableRules.GetFORMA_PAGOValue: String;
|
||||||
|
begin
|
||||||
|
result := DataTable.Fields[idx_PedidosClienteFORMA_PAGO].AsString;
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TPedidosClienteDataTableRules.SetFORMA_PAGOValue(const aValue: String);
|
||||||
|
begin
|
||||||
|
DataTable.Fields[idx_PedidosClienteFORMA_PAGO].AsString := aValue;
|
||||||
|
end;
|
||||||
|
|
||||||
|
function TPedidosClienteDataTableRules.GetFORMA_PAGOIsNull: boolean;
|
||||||
|
begin
|
||||||
|
result := DataTable.Fields[idx_PedidosClienteFORMA_PAGO].IsNull;
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TPedidosClienteDataTableRules.SetFORMA_PAGOIsNull(const aValue: Boolean);
|
||||||
|
begin
|
||||||
|
if aValue then
|
||||||
|
DataTable.Fields[idx_PedidosClienteFORMA_PAGO].AsVariant := Null;
|
||||||
|
end;
|
||||||
|
|
||||||
function TPedidosClienteDataTableRules.GetREF_TIENDA_WEBValue: Integer;
|
function TPedidosClienteDataTableRules.GetREF_TIENDA_WEBValue: Integer;
|
||||||
begin
|
begin
|
||||||
result := DataTable.Fields[idx_PedidosClienteREF_TIENDA_WEB].AsInteger;
|
result := DataTable.Fields[idx_PedidosClienteREF_TIENDA_WEB].AsInteger;
|
||||||
@ -1841,6 +2185,27 @@ begin
|
|||||||
DataTable.Fields[idx_PedidosClienteFECHA_PREVISTA_ENVIO].AsVariant := Null;
|
DataTable.Fields[idx_PedidosClienteFECHA_PREVISTA_ENVIO].AsVariant := Null;
|
||||||
end;
|
end;
|
||||||
|
|
||||||
|
function TPedidosClienteDataTableRules.GetDATOS_BANCARIOSValue: String;
|
||||||
|
begin
|
||||||
|
result := DataTable.Fields[idx_PedidosClienteDATOS_BANCARIOS].AsString;
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TPedidosClienteDataTableRules.SetDATOS_BANCARIOSValue(const aValue: String);
|
||||||
|
begin
|
||||||
|
DataTable.Fields[idx_PedidosClienteDATOS_BANCARIOS].AsString := aValue;
|
||||||
|
end;
|
||||||
|
|
||||||
|
function TPedidosClienteDataTableRules.GetDATOS_BANCARIOSIsNull: boolean;
|
||||||
|
begin
|
||||||
|
result := DataTable.Fields[idx_PedidosClienteDATOS_BANCARIOS].IsNull;
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TPedidosClienteDataTableRules.SetDATOS_BANCARIOSIsNull(const aValue: Boolean);
|
||||||
|
begin
|
||||||
|
if aValue then
|
||||||
|
DataTable.Fields[idx_PedidosClienteDATOS_BANCARIOS].AsVariant := Null;
|
||||||
|
end;
|
||||||
|
|
||||||
|
|
||||||
{ TPedidosCliente_DetallesDataTableRules }
|
{ TPedidosCliente_DetallesDataTableRules }
|
||||||
constructor TPedidosCliente_DetallesDataTableRules.Create(aDataTable: TDADataTable);
|
constructor TPedidosCliente_DetallesDataTableRules.Create(aDataTable: TDADataTable);
|
||||||
@ -2021,14 +2386,14 @@ begin
|
|||||||
DataTable.Fields[idx_PedidosCliente_DetallesCONCEPTO].AsVariant := Null;
|
DataTable.Fields[idx_PedidosCliente_DetallesCONCEPTO].AsVariant := Null;
|
||||||
end;
|
end;
|
||||||
|
|
||||||
function TPedidosCliente_DetallesDataTableRules.GetCANTIDADValue: Integer;
|
function TPedidosCliente_DetallesDataTableRules.GetCANTIDADValue: Float;
|
||||||
begin
|
begin
|
||||||
result := DataTable.Fields[idx_PedidosCliente_DetallesCANTIDAD].AsInteger;
|
result := DataTable.Fields[idx_PedidosCliente_DetallesCANTIDAD].AsFloat;
|
||||||
end;
|
end;
|
||||||
|
|
||||||
procedure TPedidosCliente_DetallesDataTableRules.SetCANTIDADValue(const aValue: Integer);
|
procedure TPedidosCliente_DetallesDataTableRules.SetCANTIDADValue(const aValue: Float);
|
||||||
begin
|
begin
|
||||||
DataTable.Fields[idx_PedidosCliente_DetallesCANTIDAD].AsInteger := aValue;
|
DataTable.Fields[idx_PedidosCliente_DetallesCANTIDAD].AsFloat := aValue;
|
||||||
end;
|
end;
|
||||||
|
|
||||||
function TPedidosCliente_DetallesDataTableRules.GetCANTIDADIsNull: boolean;
|
function TPedidosCliente_DetallesDataTableRules.GetCANTIDADIsNull: boolean;
|
||||||
@ -2265,11 +2630,318 @@ begin
|
|||||||
end;
|
end;
|
||||||
|
|
||||||
|
|
||||||
|
{ TPedidosCliente_Detalle_ColorDataTableRules }
|
||||||
|
constructor TPedidosCliente_Detalle_ColorDataTableRules.Create(aDataTable: TDADataTable);
|
||||||
|
begin
|
||||||
|
inherited;
|
||||||
|
end;
|
||||||
|
|
||||||
|
destructor TPedidosCliente_Detalle_ColorDataTableRules.Destroy;
|
||||||
|
begin
|
||||||
|
inherited;
|
||||||
|
end;
|
||||||
|
|
||||||
|
function TPedidosCliente_Detalle_ColorDataTableRules.GetIDValue: Integer;
|
||||||
|
begin
|
||||||
|
result := DataTable.Fields[idx_PedidosCliente_Detalle_ColorID].AsInteger;
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TPedidosCliente_Detalle_ColorDataTableRules.SetIDValue(const aValue: Integer);
|
||||||
|
begin
|
||||||
|
DataTable.Fields[idx_PedidosCliente_Detalle_ColorID].AsInteger := aValue;
|
||||||
|
end;
|
||||||
|
|
||||||
|
function TPedidosCliente_Detalle_ColorDataTableRules.GetIDIsNull: boolean;
|
||||||
|
begin
|
||||||
|
result := DataTable.Fields[idx_PedidosCliente_Detalle_ColorID].IsNull;
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TPedidosCliente_Detalle_ColorDataTableRules.SetIDIsNull(const aValue: Boolean);
|
||||||
|
begin
|
||||||
|
if aValue then
|
||||||
|
DataTable.Fields[idx_PedidosCliente_Detalle_ColorID].AsVariant := Null;
|
||||||
|
end;
|
||||||
|
|
||||||
|
function TPedidosCliente_Detalle_ColorDataTableRules.GetID_DETALLEValue: Integer;
|
||||||
|
begin
|
||||||
|
result := DataTable.Fields[idx_PedidosCliente_Detalle_ColorID_DETALLE].AsInteger;
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TPedidosCliente_Detalle_ColorDataTableRules.SetID_DETALLEValue(const aValue: Integer);
|
||||||
|
begin
|
||||||
|
DataTable.Fields[idx_PedidosCliente_Detalle_ColorID_DETALLE].AsInteger := aValue;
|
||||||
|
end;
|
||||||
|
|
||||||
|
function TPedidosCliente_Detalle_ColorDataTableRules.GetID_DETALLEIsNull: boolean;
|
||||||
|
begin
|
||||||
|
result := DataTable.Fields[idx_PedidosCliente_Detalle_ColorID_DETALLE].IsNull;
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TPedidosCliente_Detalle_ColorDataTableRules.SetID_DETALLEIsNull(const aValue: Boolean);
|
||||||
|
begin
|
||||||
|
if aValue then
|
||||||
|
DataTable.Fields[idx_PedidosCliente_Detalle_ColorID_DETALLE].AsVariant := Null;
|
||||||
|
end;
|
||||||
|
|
||||||
|
function TPedidosCliente_Detalle_ColorDataTableRules.GetCOLOR1Value: Integer;
|
||||||
|
begin
|
||||||
|
result := DataTable.Fields[idx_PedidosCliente_Detalle_ColorCOLOR1].AsInteger;
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TPedidosCliente_Detalle_ColorDataTableRules.SetCOLOR1Value(const aValue: Integer);
|
||||||
|
begin
|
||||||
|
DataTable.Fields[idx_PedidosCliente_Detalle_ColorCOLOR1].AsInteger := aValue;
|
||||||
|
end;
|
||||||
|
|
||||||
|
function TPedidosCliente_Detalle_ColorDataTableRules.GetCOLOR1IsNull: boolean;
|
||||||
|
begin
|
||||||
|
result := DataTable.Fields[idx_PedidosCliente_Detalle_ColorCOLOR1].IsNull;
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TPedidosCliente_Detalle_ColorDataTableRules.SetCOLOR1IsNull(const aValue: Boolean);
|
||||||
|
begin
|
||||||
|
if aValue then
|
||||||
|
DataTable.Fields[idx_PedidosCliente_Detalle_ColorCOLOR1].AsVariant := Null;
|
||||||
|
end;
|
||||||
|
|
||||||
|
function TPedidosCliente_Detalle_ColorDataTableRules.GetCOLOR2Value: Integer;
|
||||||
|
begin
|
||||||
|
result := DataTable.Fields[idx_PedidosCliente_Detalle_ColorCOLOR2].AsInteger;
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TPedidosCliente_Detalle_ColorDataTableRules.SetCOLOR2Value(const aValue: Integer);
|
||||||
|
begin
|
||||||
|
DataTable.Fields[idx_PedidosCliente_Detalle_ColorCOLOR2].AsInteger := aValue;
|
||||||
|
end;
|
||||||
|
|
||||||
|
function TPedidosCliente_Detalle_ColorDataTableRules.GetCOLOR2IsNull: boolean;
|
||||||
|
begin
|
||||||
|
result := DataTable.Fields[idx_PedidosCliente_Detalle_ColorCOLOR2].IsNull;
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TPedidosCliente_Detalle_ColorDataTableRules.SetCOLOR2IsNull(const aValue: Boolean);
|
||||||
|
begin
|
||||||
|
if aValue then
|
||||||
|
DataTable.Fields[idx_PedidosCliente_Detalle_ColorCOLOR2].AsVariant := Null;
|
||||||
|
end;
|
||||||
|
|
||||||
|
function TPedidosCliente_Detalle_ColorDataTableRules.GetCOLOR3Value: Integer;
|
||||||
|
begin
|
||||||
|
result := DataTable.Fields[idx_PedidosCliente_Detalle_ColorCOLOR3].AsInteger;
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TPedidosCliente_Detalle_ColorDataTableRules.SetCOLOR3Value(const aValue: Integer);
|
||||||
|
begin
|
||||||
|
DataTable.Fields[idx_PedidosCliente_Detalle_ColorCOLOR3].AsInteger := aValue;
|
||||||
|
end;
|
||||||
|
|
||||||
|
function TPedidosCliente_Detalle_ColorDataTableRules.GetCOLOR3IsNull: boolean;
|
||||||
|
begin
|
||||||
|
result := DataTable.Fields[idx_PedidosCliente_Detalle_ColorCOLOR3].IsNull;
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TPedidosCliente_Detalle_ColorDataTableRules.SetCOLOR3IsNull(const aValue: Boolean);
|
||||||
|
begin
|
||||||
|
if aValue then
|
||||||
|
DataTable.Fields[idx_PedidosCliente_Detalle_ColorCOLOR3].AsVariant := Null;
|
||||||
|
end;
|
||||||
|
|
||||||
|
function TPedidosCliente_Detalle_ColorDataTableRules.GetCOLOR4Value: Integer;
|
||||||
|
begin
|
||||||
|
result := DataTable.Fields[idx_PedidosCliente_Detalle_ColorCOLOR4].AsInteger;
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TPedidosCliente_Detalle_ColorDataTableRules.SetCOLOR4Value(const aValue: Integer);
|
||||||
|
begin
|
||||||
|
DataTable.Fields[idx_PedidosCliente_Detalle_ColorCOLOR4].AsInteger := aValue;
|
||||||
|
end;
|
||||||
|
|
||||||
|
function TPedidosCliente_Detalle_ColorDataTableRules.GetCOLOR4IsNull: boolean;
|
||||||
|
begin
|
||||||
|
result := DataTable.Fields[idx_PedidosCliente_Detalle_ColorCOLOR4].IsNull;
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TPedidosCliente_Detalle_ColorDataTableRules.SetCOLOR4IsNull(const aValue: Boolean);
|
||||||
|
begin
|
||||||
|
if aValue then
|
||||||
|
DataTable.Fields[idx_PedidosCliente_Detalle_ColorCOLOR4].AsVariant := Null;
|
||||||
|
end;
|
||||||
|
|
||||||
|
function TPedidosCliente_Detalle_ColorDataTableRules.GetCOLOR5Value: Integer;
|
||||||
|
begin
|
||||||
|
result := DataTable.Fields[idx_PedidosCliente_Detalle_ColorCOLOR5].AsInteger;
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TPedidosCliente_Detalle_ColorDataTableRules.SetCOLOR5Value(const aValue: Integer);
|
||||||
|
begin
|
||||||
|
DataTable.Fields[idx_PedidosCliente_Detalle_ColorCOLOR5].AsInteger := aValue;
|
||||||
|
end;
|
||||||
|
|
||||||
|
function TPedidosCliente_Detalle_ColorDataTableRules.GetCOLOR5IsNull: boolean;
|
||||||
|
begin
|
||||||
|
result := DataTable.Fields[idx_PedidosCliente_Detalle_ColorCOLOR5].IsNull;
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TPedidosCliente_Detalle_ColorDataTableRules.SetCOLOR5IsNull(const aValue: Boolean);
|
||||||
|
begin
|
||||||
|
if aValue then
|
||||||
|
DataTable.Fields[idx_PedidosCliente_Detalle_ColorCOLOR5].AsVariant := Null;
|
||||||
|
end;
|
||||||
|
|
||||||
|
function TPedidosCliente_Detalle_ColorDataTableRules.GetCOLOR6Value: Integer;
|
||||||
|
begin
|
||||||
|
result := DataTable.Fields[idx_PedidosCliente_Detalle_ColorCOLOR6].AsInteger;
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TPedidosCliente_Detalle_ColorDataTableRules.SetCOLOR6Value(const aValue: Integer);
|
||||||
|
begin
|
||||||
|
DataTable.Fields[idx_PedidosCliente_Detalle_ColorCOLOR6].AsInteger := aValue;
|
||||||
|
end;
|
||||||
|
|
||||||
|
function TPedidosCliente_Detalle_ColorDataTableRules.GetCOLOR6IsNull: boolean;
|
||||||
|
begin
|
||||||
|
result := DataTable.Fields[idx_PedidosCliente_Detalle_ColorCOLOR6].IsNull;
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TPedidosCliente_Detalle_ColorDataTableRules.SetCOLOR6IsNull(const aValue: Boolean);
|
||||||
|
begin
|
||||||
|
if aValue then
|
||||||
|
DataTable.Fields[idx_PedidosCliente_Detalle_ColorCOLOR6].AsVariant := Null;
|
||||||
|
end;
|
||||||
|
|
||||||
|
function TPedidosCliente_Detalle_ColorDataTableRules.GetCOLOR7Value: Integer;
|
||||||
|
begin
|
||||||
|
result := DataTable.Fields[idx_PedidosCliente_Detalle_ColorCOLOR7].AsInteger;
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TPedidosCliente_Detalle_ColorDataTableRules.SetCOLOR7Value(const aValue: Integer);
|
||||||
|
begin
|
||||||
|
DataTable.Fields[idx_PedidosCliente_Detalle_ColorCOLOR7].AsInteger := aValue;
|
||||||
|
end;
|
||||||
|
|
||||||
|
function TPedidosCliente_Detalle_ColorDataTableRules.GetCOLOR7IsNull: boolean;
|
||||||
|
begin
|
||||||
|
result := DataTable.Fields[idx_PedidosCliente_Detalle_ColorCOLOR7].IsNull;
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TPedidosCliente_Detalle_ColorDataTableRules.SetCOLOR7IsNull(const aValue: Boolean);
|
||||||
|
begin
|
||||||
|
if aValue then
|
||||||
|
DataTable.Fields[idx_PedidosCliente_Detalle_ColorCOLOR7].AsVariant := Null;
|
||||||
|
end;
|
||||||
|
|
||||||
|
function TPedidosCliente_Detalle_ColorDataTableRules.GetCOLOR8Value: Integer;
|
||||||
|
begin
|
||||||
|
result := DataTable.Fields[idx_PedidosCliente_Detalle_ColorCOLOR8].AsInteger;
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TPedidosCliente_Detalle_ColorDataTableRules.SetCOLOR8Value(const aValue: Integer);
|
||||||
|
begin
|
||||||
|
DataTable.Fields[idx_PedidosCliente_Detalle_ColorCOLOR8].AsInteger := aValue;
|
||||||
|
end;
|
||||||
|
|
||||||
|
function TPedidosCliente_Detalle_ColorDataTableRules.GetCOLOR8IsNull: boolean;
|
||||||
|
begin
|
||||||
|
result := DataTable.Fields[idx_PedidosCliente_Detalle_ColorCOLOR8].IsNull;
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TPedidosCliente_Detalle_ColorDataTableRules.SetCOLOR8IsNull(const aValue: Boolean);
|
||||||
|
begin
|
||||||
|
if aValue then
|
||||||
|
DataTable.Fields[idx_PedidosCliente_Detalle_ColorCOLOR8].AsVariant := Null;
|
||||||
|
end;
|
||||||
|
|
||||||
|
function TPedidosCliente_Detalle_ColorDataTableRules.GetCOLOR9Value: Integer;
|
||||||
|
begin
|
||||||
|
result := DataTable.Fields[idx_PedidosCliente_Detalle_ColorCOLOR9].AsInteger;
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TPedidosCliente_Detalle_ColorDataTableRules.SetCOLOR9Value(const aValue: Integer);
|
||||||
|
begin
|
||||||
|
DataTable.Fields[idx_PedidosCliente_Detalle_ColorCOLOR9].AsInteger := aValue;
|
||||||
|
end;
|
||||||
|
|
||||||
|
function TPedidosCliente_Detalle_ColorDataTableRules.GetCOLOR9IsNull: boolean;
|
||||||
|
begin
|
||||||
|
result := DataTable.Fields[idx_PedidosCliente_Detalle_ColorCOLOR9].IsNull;
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TPedidosCliente_Detalle_ColorDataTableRules.SetCOLOR9IsNull(const aValue: Boolean);
|
||||||
|
begin
|
||||||
|
if aValue then
|
||||||
|
DataTable.Fields[idx_PedidosCliente_Detalle_ColorCOLOR9].AsVariant := Null;
|
||||||
|
end;
|
||||||
|
|
||||||
|
function TPedidosCliente_Detalle_ColorDataTableRules.GetCOLOR10Value: Integer;
|
||||||
|
begin
|
||||||
|
result := DataTable.Fields[idx_PedidosCliente_Detalle_ColorCOLOR10].AsInteger;
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TPedidosCliente_Detalle_ColorDataTableRules.SetCOLOR10Value(const aValue: Integer);
|
||||||
|
begin
|
||||||
|
DataTable.Fields[idx_PedidosCliente_Detalle_ColorCOLOR10].AsInteger := aValue;
|
||||||
|
end;
|
||||||
|
|
||||||
|
function TPedidosCliente_Detalle_ColorDataTableRules.GetCOLOR10IsNull: boolean;
|
||||||
|
begin
|
||||||
|
result := DataTable.Fields[idx_PedidosCliente_Detalle_ColorCOLOR10].IsNull;
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TPedidosCliente_Detalle_ColorDataTableRules.SetCOLOR10IsNull(const aValue: Boolean);
|
||||||
|
begin
|
||||||
|
if aValue then
|
||||||
|
DataTable.Fields[idx_PedidosCliente_Detalle_ColorCOLOR10].AsVariant := Null;
|
||||||
|
end;
|
||||||
|
|
||||||
|
function TPedidosCliente_Detalle_ColorDataTableRules.GetCOLOR11Value: Integer;
|
||||||
|
begin
|
||||||
|
result := DataTable.Fields[idx_PedidosCliente_Detalle_ColorCOLOR11].AsInteger;
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TPedidosCliente_Detalle_ColorDataTableRules.SetCOLOR11Value(const aValue: Integer);
|
||||||
|
begin
|
||||||
|
DataTable.Fields[idx_PedidosCliente_Detalle_ColorCOLOR11].AsInteger := aValue;
|
||||||
|
end;
|
||||||
|
|
||||||
|
function TPedidosCliente_Detalle_ColorDataTableRules.GetCOLOR11IsNull: boolean;
|
||||||
|
begin
|
||||||
|
result := DataTable.Fields[idx_PedidosCliente_Detalle_ColorCOLOR11].IsNull;
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TPedidosCliente_Detalle_ColorDataTableRules.SetCOLOR11IsNull(const aValue: Boolean);
|
||||||
|
begin
|
||||||
|
if aValue then
|
||||||
|
DataTable.Fields[idx_PedidosCliente_Detalle_ColorCOLOR11].AsVariant := Null;
|
||||||
|
end;
|
||||||
|
|
||||||
|
function TPedidosCliente_Detalle_ColorDataTableRules.GetCOLOR12Value: Integer;
|
||||||
|
begin
|
||||||
|
result := DataTable.Fields[idx_PedidosCliente_Detalle_ColorCOLOR12].AsInteger;
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TPedidosCliente_Detalle_ColorDataTableRules.SetCOLOR12Value(const aValue: Integer);
|
||||||
|
begin
|
||||||
|
DataTable.Fields[idx_PedidosCliente_Detalle_ColorCOLOR12].AsInteger := aValue;
|
||||||
|
end;
|
||||||
|
|
||||||
|
function TPedidosCliente_Detalle_ColorDataTableRules.GetCOLOR12IsNull: boolean;
|
||||||
|
begin
|
||||||
|
result := DataTable.Fields[idx_PedidosCliente_Detalle_ColorCOLOR12].IsNull;
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TPedidosCliente_Detalle_ColorDataTableRules.SetCOLOR12IsNull(const aValue: Boolean);
|
||||||
|
begin
|
||||||
|
if aValue then
|
||||||
|
DataTable.Fields[idx_PedidosCliente_Detalle_ColorCOLOR12].AsVariant := Null;
|
||||||
|
end;
|
||||||
|
|
||||||
|
|
||||||
initialization
|
initialization
|
||||||
RegisterDataTableRules(RID_ListaAnosPedidos, TListaAnosPedidosDataTableRules);
|
RegisterDataTableRules(RID_ListaAnosPedidos, TListaAnosPedidosDataTableRules);
|
||||||
RegisterDataTableRules(RID_PedidoCliente_ArticulosPendientesPedirAProv, TPedidoCliente_ArticulosPendientesPedirAProvDataTableRules);
|
RegisterDataTableRules(RID_PedidoCliente_ArticulosPendientesPedirAProv, TPedidoCliente_ArticulosPendientesPedirAProvDataTableRules);
|
||||||
RegisterDataTableRules(RID_PedidosCliente, TPedidosClienteDataTableRules);
|
RegisterDataTableRules(RID_PedidosCliente, TPedidosClienteDataTableRules);
|
||||||
RegisterDataTableRules(RID_PedidosCliente_Detalles, TPedidosCliente_DetallesDataTableRules);
|
RegisterDataTableRules(RID_PedidosCliente_Detalles, TPedidosCliente_DetallesDataTableRules);
|
||||||
RegisterDataTableRules(RID_PedidoCliente_Articulos_Pendientes, TPedidoCliente_Articulos_PendientesDataTableRules);
|
RegisterDataTableRules(RID_PedidoCliente_Articulos_Pendientes, TPedidoCliente_Articulos_PendientesDataTableRules);
|
||||||
|
RegisterDataTableRules(RID_PedidosCliente_Detalle_Color, TPedidosCliente_Detalle_ColorDataTableRules);
|
||||||
|
|
||||||
end.
|
end.
|
||||||
|
|||||||
File diff suppressed because it is too large
Load Diff
@ -3,7 +3,7 @@ unit uBizDetallesPedidoCliente;
|
|||||||
interface
|
interface
|
||||||
|
|
||||||
uses
|
uses
|
||||||
uDADataTable, schPedidosClienteClient_Intf;
|
uDADataTable, schPedidosClienteClient_Intf, uBizDetalleColoresPedidoCliente;
|
||||||
|
|
||||||
const
|
const
|
||||||
BIZ_CLIENT_DETALLES_PEDIDO_CLIENTE = 'Client.PedidoCliente.Detalles';
|
BIZ_CLIENT_DETALLES_PEDIDO_CLIENTE = 'Client.PedidoCliente.Detalles';
|
||||||
@ -12,6 +12,9 @@ const
|
|||||||
type
|
type
|
||||||
IBizDetallesPedidoCliente = interface(IPedidosCliente_Detalles)
|
IBizDetallesPedidoCliente = interface(IPedidosCliente_Detalles)
|
||||||
['{2D7781DC-AD16-4857-9567-5C1620319781}']
|
['{2D7781DC-AD16-4857-9567-5C1620319781}']
|
||||||
|
function GetDetalleColores: IBizDetalleColoresPedidoCliente;
|
||||||
|
procedure SetDetalleColores(Value: IBizDetalleColoresPedidoCliente);
|
||||||
|
property DetalleColores: IBizDetalleColoresPedidoCliente read GetDetalleColores write SetDetalleColores;
|
||||||
end;
|
end;
|
||||||
|
|
||||||
IBizPedidoClienteArticulosPend = interface(IPedidoCliente_Articulos_Pendientes)
|
IBizPedidoClienteArticulosPend = interface(IPedidoCliente_Articulos_Pendientes)
|
||||||
@ -19,12 +22,20 @@ type
|
|||||||
end;
|
end;
|
||||||
|
|
||||||
TBizDetallesPedidoCliente = class(TPedidosCliente_DetallesDataTableRules, IBizDetallesPedidoCliente)
|
TBizDetallesPedidoCliente = class(TPedidosCliente_DetallesDataTableRules, IBizDetallesPedidoCliente)
|
||||||
private
|
|
||||||
ContIdAux: Integer;
|
|
||||||
protected
|
protected
|
||||||
|
FDetalleColores : IBizDetalleColoresPedidoCliente;
|
||||||
|
FDetalleColoresLink : TDADataSource;
|
||||||
|
|
||||||
|
function GetDetalleColores: IBizDetalleColoresPedidoCliente;
|
||||||
|
procedure SetDetalleColores(Value: IBizDetalleColoresPedidoCliente);
|
||||||
|
|
||||||
procedure OnNewRecord(Sender: TDADataTable); override;
|
procedure OnNewRecord(Sender: TDADataTable); override;
|
||||||
|
procedure BeforeInsert(Sender: TDADataTable); override;
|
||||||
|
|
||||||
public
|
public
|
||||||
|
property DetalleColores: IBizDetalleColoresPedidoCliente read GetDetalleColores write SetDetalleColores;
|
||||||
constructor Create(aDataTable: TDADataTable); override;
|
constructor Create(aDataTable: TDADataTable); override;
|
||||||
|
destructor Destroy; override;
|
||||||
end;
|
end;
|
||||||
|
|
||||||
TBizPedidoClienteArticulosPend = class(TPedidoCliente_Articulos_PendientesDataTableRules, IBizPedidoClienteArticulosPend)
|
TBizPedidoClienteArticulosPend = class(TPedidoCliente_Articulos_PendientesDataTableRules, IBizPedidoClienteArticulosPend)
|
||||||
@ -36,20 +47,49 @@ implementation
|
|||||||
{ TBizDetallesPedidoCliente }
|
{ TBizDetallesPedidoCliente }
|
||||||
|
|
||||||
uses
|
uses
|
||||||
uDataTableUtils;
|
uDataTableUtils, DB;
|
||||||
|
|
||||||
|
|
||||||
|
procedure TBizDetallesPedidoCliente.BeforeInsert(Sender: TDADataTable);
|
||||||
|
var
|
||||||
|
AMasterTable : TDADataTable;
|
||||||
|
begin
|
||||||
|
inherited;
|
||||||
|
AMasterTable := DataTable.GetMasterDataTable;
|
||||||
|
if Assigned(AMasterTable) and (AMasterTable.State = dsInsert) then
|
||||||
|
AMasterTable.Post;
|
||||||
|
end;
|
||||||
|
|
||||||
constructor TBizDetallesPedidoCliente.Create(aDataTable: TDADataTable);
|
constructor TBizDetallesPedidoCliente.Create(aDataTable: TDADataTable);
|
||||||
begin
|
begin
|
||||||
inherited Create(aDataTable);
|
inherited;
|
||||||
ContIdAux := -1;
|
FDetalleColoresLink := TDADataSource.Create(NIL);
|
||||||
|
FDetalleColoresLink.DataTable := aDataTable;
|
||||||
|
end;
|
||||||
|
|
||||||
|
destructor TBizDetallesPedidoCliente.Destroy;
|
||||||
|
begin
|
||||||
|
FDetalleColores := NIL;
|
||||||
|
FDetalleColoresLink.Free;
|
||||||
|
|
||||||
|
inherited;
|
||||||
|
end;
|
||||||
|
|
||||||
|
function TBizDetallesPedidoCliente.GetDetalleColores: IBizDetalleColoresPedidoCliente;
|
||||||
|
begin
|
||||||
|
Result := FDetalleColores;
|
||||||
end;
|
end;
|
||||||
|
|
||||||
procedure TBizDetallesPedidoCliente.OnNewRecord(Sender: TDADataTable);
|
procedure TBizDetallesPedidoCliente.OnNewRecord(Sender: TDADataTable);
|
||||||
begin
|
begin
|
||||||
inherited;
|
inherited;
|
||||||
ID := ContIdAux; // -1, -2, -3...
|
VISIBLE := 1;
|
||||||
Dec(ContIdAux);
|
end;
|
||||||
|
|
||||||
|
procedure TBizDetallesPedidoCliente.SetDetalleColores(Value: IBizDetalleColoresPedidoCliente);
|
||||||
|
begin
|
||||||
|
FDetalleColores := Value;
|
||||||
|
EnlazarMaestroDetalle(FDetalleColoresLink, FDetalleColores);
|
||||||
end;
|
end;
|
||||||
|
|
||||||
initialization
|
initialization
|
||||||
|
|||||||
@ -74,6 +74,7 @@ type
|
|||||||
procedure IMPORTE_NETOOnChange(Sender: TDACustomField);
|
procedure IMPORTE_NETOOnChange(Sender: TDACustomField);
|
||||||
procedure IMPORTE_PORTEOnChange(Sender: TDACustomField);
|
procedure IMPORTE_PORTEOnChange(Sender: TDACustomField);
|
||||||
procedure DESCUENTOOnChange(Sender: TDACustomField);
|
procedure DESCUENTOOnChange(Sender: TDACustomField);
|
||||||
|
procedure DESCUENTO2OnChange(Sender: TDACustomField);
|
||||||
procedure IVAOnChange(Sender: TDACustomField);
|
procedure IVAOnChange(Sender: TDACustomField);
|
||||||
|
|
||||||
public
|
public
|
||||||
@ -109,7 +110,8 @@ begin
|
|||||||
if not Self.DataTable.Editing then
|
if not Self.DataTable.Editing then
|
||||||
Edit;
|
Edit;
|
||||||
IMPORTE_DESCUENTO := IMPORTE_NETO * (DESCUENTO/100);
|
IMPORTE_DESCUENTO := IMPORTE_NETO * (DESCUENTO/100);
|
||||||
BASE_IMPONIBLE := IMPORTE_NETO - IMPORTE_DESCUENTO + IMPORTE_PORTE;
|
IMPORTE_DESCUENTO2 := (IMPORTE_NETO - IMPORTE_DESCUENTO) * (DESCUENTO2/100);
|
||||||
|
BASE_IMPONIBLE := IMPORTE_NETO - IMPORTE_DESCUENTO - IMPORTE_DESCUENTO2 + IMPORTE_PORTE;
|
||||||
end;
|
end;
|
||||||
|
|
||||||
procedure TBizPedidoCliente.CalcularImporteTotal;
|
procedure TBizPedidoCliente.CalcularImporteTotal;
|
||||||
@ -146,6 +148,7 @@ begin
|
|||||||
FieldByName(fld_PedidosClienteIMPORTE_NETO).OnChange := IMPORTE_NETOOnChange;
|
FieldByName(fld_PedidosClienteIMPORTE_NETO).OnChange := IMPORTE_NETOOnChange;
|
||||||
FieldByName(fld_PedidosClienteIMPORTE_PORTE).OnChange := IMPORTE_PORTEOnChange;
|
FieldByName(fld_PedidosClienteIMPORTE_PORTE).OnChange := IMPORTE_PORTEOnChange;
|
||||||
FieldByName(fld_PedidosClienteDESCUENTO).OnChange := DESCUENTOOnChange;
|
FieldByName(fld_PedidosClienteDESCUENTO).OnChange := DESCUENTOOnChange;
|
||||||
|
FieldByName(fld_PedidosClienteDESCUENTO2).OnChange := DESCUENTO2OnChange;
|
||||||
FieldByName(fld_PedidosClienteIVA).OnChange := IVAOnChange;
|
FieldByName(fld_PedidosClienteIVA).OnChange := IVAOnChange;
|
||||||
end;
|
end;
|
||||||
|
|
||||||
@ -166,6 +169,11 @@ begin
|
|||||||
end;
|
end;
|
||||||
end;
|
end;
|
||||||
|
|
||||||
|
procedure TBizPedidoCliente.DESCUENTO2OnChange(Sender: TDACustomField);
|
||||||
|
begin
|
||||||
|
CalcularImporteTotal;
|
||||||
|
end;
|
||||||
|
|
||||||
procedure TBizPedidoCliente.DESCUENTOOnChange(Sender: TDACustomField);
|
procedure TBizPedidoCliente.DESCUENTOOnChange(Sender: TDACustomField);
|
||||||
begin
|
begin
|
||||||
CalcularImporteTotal;
|
CalcularImporteTotal;
|
||||||
@ -250,7 +258,14 @@ begin
|
|||||||
DataTable.Edit;
|
DataTable.Edit;
|
||||||
|
|
||||||
ID_CLIENTE := FCliente.ID;
|
ID_CLIENTE := FCliente.ID;
|
||||||
|
|
||||||
|
//Si la empresa tiene asociada una forma de pago por defecto tiene prioridad sobre la forma de pago del cliente
|
||||||
|
if (AppFactuGES.EmpresaActiva.ID_FORMA_PAGO > 0) then
|
||||||
|
ID_FORMA_PAGO := AppFactuGES.EmpresaActiva.ID_FORMA_PAGO
|
||||||
|
else if (FCliente.ID_FORMA_PAGO > 0) then
|
||||||
ID_FORMA_PAGO := FCliente.ID_FORMA_PAGO;
|
ID_FORMA_PAGO := FCliente.ID_FORMA_PAGO;
|
||||||
|
DESCUENTO := FCliente.DESCUENTO;
|
||||||
|
DESCUENTO2 := FCliente.DESCUENTO2;
|
||||||
|
|
||||||
DataTable.Post; //Muy importante ya que es necesario hacer un post de la cabecera antes de añadir detalles
|
DataTable.Post; //Muy importante ya que es necesario hacer un post de la cabecera antes de añadir detalles
|
||||||
//si se quita el id de la cabecera y los detalles se desincroniza
|
//si se quita el id de la cabecera y los detalles se desincroniza
|
||||||
|
|||||||
@ -9,6 +9,7 @@
|
|||||||
<Projects Include="..\..\Cliente\FactuGES.dproj" />
|
<Projects Include="..\..\Cliente\FactuGES.dproj" />
|
||||||
<Projects Include="..\..\GUIBase\GUIBase.dproj" />
|
<Projects Include="..\..\GUIBase\GUIBase.dproj" />
|
||||||
<Projects Include="..\..\Servidor\FactuGES_Server.dproj" />
|
<Projects Include="..\..\Servidor\FactuGES_Server.dproj" />
|
||||||
|
<Projects Include="..\Albaranes de cliente\Views\AlbaranesCliente_view.dproj" />
|
||||||
<Projects Include="..\Articulos\Controller\Articulos_controller.dproj" />
|
<Projects Include="..\Articulos\Controller\Articulos_controller.dproj" />
|
||||||
<Projects Include="..\Articulos\Data\Articulos_data.dproj" />
|
<Projects Include="..\Articulos\Data\Articulos_data.dproj" />
|
||||||
<Projects Include="..\Articulos\Model\Articulos_model.dproj" />
|
<Projects Include="..\Articulos\Model\Articulos_model.dproj" />
|
||||||
@ -161,14 +162,23 @@
|
|||||||
<Target Name="FactuGES_Server:Make">
|
<Target Name="FactuGES_Server:Make">
|
||||||
<MSBuild Projects="..\..\Servidor\FactuGES_Server.dproj" Targets="Make" />
|
<MSBuild Projects="..\..\Servidor\FactuGES_Server.dproj" Targets="Make" />
|
||||||
</Target>
|
</Target>
|
||||||
|
<Target Name="AlbaranesCliente_view">
|
||||||
|
<MSBuild Projects="..\Albaranes de cliente\Views\AlbaranesCliente_view.dproj" Targets="" />
|
||||||
|
</Target>
|
||||||
|
<Target Name="AlbaranesCliente_view:Clean">
|
||||||
|
<MSBuild Projects="..\Albaranes de cliente\Views\AlbaranesCliente_view.dproj" Targets="Clean" />
|
||||||
|
</Target>
|
||||||
|
<Target Name="AlbaranesCliente_view:Make">
|
||||||
|
<MSBuild Projects="..\Albaranes de cliente\Views\AlbaranesCliente_view.dproj" Targets="Make" />
|
||||||
|
</Target>
|
||||||
<Target Name="Build">
|
<Target Name="Build">
|
||||||
<CallTarget Targets="Base;GUIBase;ApplicationBase;Articulos_model;Articulos_data;Articulos_controller;Articulos_view;PedidosCliente_model;PedidosCliente_data;PedidosCliente_controller;PedCli_AlbCli_relation;PedidosCliente_view;PedidosCliente_plugin;FactuGES;FactuGES_Server" />
|
<CallTarget Targets="Base;GUIBase;ApplicationBase;Articulos_model;Articulos_data;Articulos_controller;Articulos_view;PedidosCliente_model;PedidosCliente_data;PedidosCliente_controller;PedCli_AlbCli_relation;PedidosCliente_view;PedidosCliente_plugin;FactuGES;FactuGES_Server;AlbaranesCliente_view" />
|
||||||
</Target>
|
</Target>
|
||||||
<Target Name="Clean">
|
<Target Name="Clean">
|
||||||
<CallTarget Targets="Base:Clean;GUIBase:Clean;ApplicationBase:Clean;Articulos_model:Clean;Articulos_data:Clean;Articulos_controller:Clean;Articulos_view:Clean;PedidosCliente_model:Clean;PedidosCliente_data:Clean;PedidosCliente_controller:Clean;PedCli_AlbCli_relation:Clean;PedidosCliente_view:Clean;PedidosCliente_plugin:Clean;FactuGES:Clean;FactuGES_Server:Clean" />
|
<CallTarget Targets="Base:Clean;GUIBase:Clean;ApplicationBase:Clean;Articulos_model:Clean;Articulos_data:Clean;Articulos_controller:Clean;Articulos_view:Clean;PedidosCliente_model:Clean;PedidosCliente_data:Clean;PedidosCliente_controller:Clean;PedCli_AlbCli_relation:Clean;PedidosCliente_view:Clean;PedidosCliente_plugin:Clean;FactuGES:Clean;FactuGES_Server:Clean;AlbaranesCliente_view:Clean" />
|
||||||
</Target>
|
</Target>
|
||||||
<Target Name="Make">
|
<Target Name="Make">
|
||||||
<CallTarget Targets="Base:Make;GUIBase:Make;ApplicationBase:Make;Articulos_model:Make;Articulos_data:Make;Articulos_controller:Make;Articulos_view:Make;PedidosCliente_model:Make;PedidosCliente_data:Make;PedidosCliente_controller:Make;PedCli_AlbCli_relation:Make;PedidosCliente_view:Make;PedidosCliente_plugin:Make;FactuGES:Make;FactuGES_Server:Make" />
|
<CallTarget Targets="Base:Make;GUIBase:Make;ApplicationBase:Make;Articulos_model:Make;Articulos_data:Make;Articulos_controller:Make;Articulos_view:Make;PedidosCliente_model:Make;PedidosCliente_data:Make;PedidosCliente_controller:Make;PedCli_AlbCli_relation:Make;PedidosCliente_view:Make;PedidosCliente_plugin:Make;FactuGES:Make;FactuGES_Server:Make;AlbaranesCliente_view:Make" />
|
||||||
</Target>
|
</Target>
|
||||||
<Import Condition="Exists('$(MSBuildBinPath)\Borland.Group.Targets')" Project="$(MSBuildBinPath)\Borland.Group.Targets" />
|
<Import Condition="Exists('$(MSBuildBinPath)\Borland.Group.Targets')" Project="$(MSBuildBinPath)\Borland.Group.Targets" />
|
||||||
</Project>
|
</Project>
|
||||||
@ -215,6 +215,14 @@ object srvPedidosCliente: TsrvPedidosCliente
|
|||||||
DatasetField = 'IMPORTE_DESCUENTO'
|
DatasetField = 'IMPORTE_DESCUENTO'
|
||||||
TableField = 'IMPORTE_DESCUENTO'
|
TableField = 'IMPORTE_DESCUENTO'
|
||||||
end
|
end
|
||||||
|
item
|
||||||
|
DatasetField = 'DESCUENTO2'
|
||||||
|
TableField = 'DESCUENTO2'
|
||||||
|
end
|
||||||
|
item
|
||||||
|
DatasetField = 'IMPORTE_DESCUENTO2'
|
||||||
|
TableField = 'IMPORTE_DESCUENTO2'
|
||||||
|
end
|
||||||
item
|
item
|
||||||
DatasetField = 'BASE_IMPONIBLE'
|
DatasetField = 'BASE_IMPONIBLE'
|
||||||
TableField = 'BASE_IMPONIBLE'
|
TableField = 'BASE_IMPONIBLE'
|
||||||
@ -235,6 +243,10 @@ object srvPedidosCliente: TsrvPedidosCliente
|
|||||||
DatasetField = 'ID_FORMA_PAGO'
|
DatasetField = 'ID_FORMA_PAGO'
|
||||||
TableField = 'ID_FORMA_PAGO'
|
TableField = 'ID_FORMA_PAGO'
|
||||||
end
|
end
|
||||||
|
item
|
||||||
|
DatasetField = 'FORMA_PAGO'
|
||||||
|
TableField = 'FORMA_PAGO'
|
||||||
|
end
|
||||||
item
|
item
|
||||||
DatasetField = 'REF_TIENDA_WEB'
|
DatasetField = 'REF_TIENDA_WEB'
|
||||||
TableField = 'REF_TIENDA_WEB'
|
TableField = 'REF_TIENDA_WEB'
|
||||||
@ -242,6 +254,10 @@ object srvPedidosCliente: TsrvPedidosCliente
|
|||||||
item
|
item
|
||||||
DatasetField = 'FECHA_PREVISTA_ENVIO'
|
DatasetField = 'FECHA_PREVISTA_ENVIO'
|
||||||
TableField = 'FECHA_PREVISTA_ENVIO'
|
TableField = 'FECHA_PREVISTA_ENVIO'
|
||||||
|
end
|
||||||
|
item
|
||||||
|
DatasetField = 'DATOS_BANCARIOS'
|
||||||
|
TableField = 'DATOS_BANCARIOS'
|
||||||
end>
|
end>
|
||||||
end>
|
end>
|
||||||
Name = 'PedidosCliente'
|
Name = 'PedidosCliente'
|
||||||
@ -295,6 +311,7 @@ object srvPedidosCliente: TsrvPedidosCliente
|
|||||||
item
|
item
|
||||||
Name = 'ID_DIRECCION'
|
Name = 'ID_DIRECCION'
|
||||||
DataType = datInteger
|
DataType = datInteger
|
||||||
|
DictionaryEntry = 'PedidosCliente_ID_DIRECCION'
|
||||||
end
|
end
|
||||||
item
|
item
|
||||||
Name = 'CALLE'
|
Name = 'CALLE'
|
||||||
@ -383,6 +400,18 @@ object srvPedidosCliente: TsrvPedidosCliente
|
|||||||
DataType = datCurrency
|
DataType = datCurrency
|
||||||
DictionaryEntry = 'PedidosCliente_IMPORTE_DESCUENTO'
|
DictionaryEntry = 'PedidosCliente_IMPORTE_DESCUENTO'
|
||||||
end
|
end
|
||||||
|
item
|
||||||
|
Name = 'DESCUENTO2'
|
||||||
|
DataType = datFloat
|
||||||
|
DictionaryEntry = 'PedidosCliente_DESCUENTO2'
|
||||||
|
end
|
||||||
|
item
|
||||||
|
Name = 'IMPORTE_DESCUENTO2'
|
||||||
|
DataType = datCurrency
|
||||||
|
DecimalPrecision = 11
|
||||||
|
DecimalScale = 2
|
||||||
|
DictionaryEntry = 'PedidosCliente_IMPORTE_DESCUENTO2'
|
||||||
|
end
|
||||||
item
|
item
|
||||||
Name = 'BASE_IMPONIBLE'
|
Name = 'BASE_IMPONIBLE'
|
||||||
DataType = datCurrency
|
DataType = datCurrency
|
||||||
@ -408,6 +437,12 @@ object srvPedidosCliente: TsrvPedidosCliente
|
|||||||
DataType = datInteger
|
DataType = datInteger
|
||||||
DictionaryEntry = 'PedidosCliente_ID_FORMA_PAGO'
|
DictionaryEntry = 'PedidosCliente_ID_FORMA_PAGO'
|
||||||
end
|
end
|
||||||
|
item
|
||||||
|
Name = 'FORMA_PAGO'
|
||||||
|
DataType = datString
|
||||||
|
Size = 255
|
||||||
|
DictionaryEntry = 'PedidosCliente_FORMA_PAGO'
|
||||||
|
end
|
||||||
item
|
item
|
||||||
Name = 'REF_TIENDA_WEB'
|
Name = 'REF_TIENDA_WEB'
|
||||||
DataType = datInteger
|
DataType = datInteger
|
||||||
@ -417,6 +452,12 @@ object srvPedidosCliente: TsrvPedidosCliente
|
|||||||
Name = 'FECHA_PREVISTA_ENVIO'
|
Name = 'FECHA_PREVISTA_ENVIO'
|
||||||
DataType = datDateTime
|
DataType = datDateTime
|
||||||
DictionaryEntry = 'PedidosCliente_FECHA_PREVISTA_ENVIO'
|
DictionaryEntry = 'PedidosCliente_FECHA_PREVISTA_ENVIO'
|
||||||
|
end
|
||||||
|
item
|
||||||
|
Name = 'DATOS_BANCARIOS'
|
||||||
|
DataType = datString
|
||||||
|
Size = 255
|
||||||
|
DictionaryEntry = 'PedidosCliente_DATOS_BANCARIOS'
|
||||||
end>
|
end>
|
||||||
end
|
end
|
||||||
item
|
item
|
||||||
@ -554,8 +595,8 @@ object srvPedidosCliente: TsrvPedidosCliente
|
|||||||
end
|
end
|
||||||
item
|
item
|
||||||
Name = 'CANTIDAD'
|
Name = 'CANTIDAD'
|
||||||
DataType = datInteger
|
DataType = datFloat
|
||||||
DictionaryEntry = 'CANTIDAD'
|
DictionaryEntry = 'PedidosCliente_Detalles_CANTIDAD'
|
||||||
end
|
end
|
||||||
item
|
item
|
||||||
Name = 'IMPORTE_UNIDAD'
|
Name = 'IMPORTE_UNIDAD'
|
||||||
@ -565,6 +606,7 @@ object srvPedidosCliente: TsrvPedidosCliente
|
|||||||
item
|
item
|
||||||
Name = 'UNIDAD_MEDIDA'
|
Name = 'UNIDAD_MEDIDA'
|
||||||
DataType = datString
|
DataType = datString
|
||||||
|
DictionaryEntry = 'PedidosCliente_Detalles_UNIDAD_MEDIDA'
|
||||||
end
|
end
|
||||||
item
|
item
|
||||||
Name = 'DESCUENTO'
|
Name = 'DESCUENTO'
|
||||||
@ -646,6 +688,137 @@ object srvPedidosCliente: TsrvPedidosCliente
|
|||||||
DataType = datInteger
|
DataType = datInteger
|
||||||
DictionaryEntry = 'PedidoCliente_Articulos_Pendientes_CANTIDAD_PENDIENTE'
|
DictionaryEntry = 'PedidoCliente_Articulos_Pendientes_CANTIDAD_PENDIENTE'
|
||||||
end>
|
end>
|
||||||
|
end
|
||||||
|
item
|
||||||
|
Params = <>
|
||||||
|
Statements = <
|
||||||
|
item
|
||||||
|
Connection = 'IBX'
|
||||||
|
TargetTable = 'PEDIDOS_CLIENTE_DETALLE_COLOR'
|
||||||
|
SQL =
|
||||||
|
'SELECT ID, ID_DETALLE, COLOR1, COLOR2, COLOR3, COLOR4, COLOR5, C' +
|
||||||
|
'OLOR6, COLOR7, COLOR8,'#10' COLOR9, COLOR10, COLOR11, COLOR12'#10 +
|
||||||
|
'FROM PEDIDOS_CLIENTE_DETALLE_COLOR'#10'where {where}'#10#10#10
|
||||||
|
StatementType = stSQL
|
||||||
|
ColumnMappings = <
|
||||||
|
item
|
||||||
|
DatasetField = 'ID'
|
||||||
|
TableField = 'ID'
|
||||||
|
end
|
||||||
|
item
|
||||||
|
DatasetField = 'ID_DETALLE'
|
||||||
|
TableField = 'ID_DETALLE'
|
||||||
|
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 = 'PedidosCliente_Detalle_Color'
|
||||||
|
Fields = <
|
||||||
|
item
|
||||||
|
Name = 'ID'
|
||||||
|
DataType = datAutoInc
|
||||||
|
GeneratorName = 'GEN_PEDIDOS_CLI_DETALLES_ID'
|
||||||
|
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>
|
||||||
end>
|
end>
|
||||||
JoinDataTables = <>
|
JoinDataTables = <>
|
||||||
UnionDataTables = <>
|
UnionDataTables = <>
|
||||||
@ -866,8 +1039,7 @@ object srvPedidosCliente: TsrvPedidosCliente
|
|||||||
Params = <
|
Params = <
|
||||||
item
|
item
|
||||||
Name = 'ID'
|
Name = 'ID'
|
||||||
DataType = datAutoInc
|
DataType = datInteger
|
||||||
GeneratorName = 'GEN_PEDIDOS_CLI_ID'
|
|
||||||
Value = ''
|
Value = ''
|
||||||
end
|
end
|
||||||
item
|
item
|
||||||
@ -986,12 +1158,22 @@ object srvPedidosCliente: TsrvPedidosCliente
|
|||||||
end
|
end
|
||||||
item
|
item
|
||||||
Name = 'DESCUENTO'
|
Name = 'DESCUENTO'
|
||||||
DataType = datCurrency
|
DataType = datFloat
|
||||||
Value = ''
|
Value = ''
|
||||||
end
|
end
|
||||||
item
|
item
|
||||||
Name = 'IMPORTE_DESCUENTO'
|
Name = 'IMPORTE_DESCUENTO'
|
||||||
DataType = datDecimal
|
DataType = datCurrency
|
||||||
|
Value = ''
|
||||||
|
end
|
||||||
|
item
|
||||||
|
Name = 'DESCUENTO2'
|
||||||
|
DataType = datFloat
|
||||||
|
Value = ''
|
||||||
|
end
|
||||||
|
item
|
||||||
|
Name = 'IMPORTE_DESCUENTO2'
|
||||||
|
DataType = datCurrency
|
||||||
Value = ''
|
Value = ''
|
||||||
end
|
end
|
||||||
item
|
item
|
||||||
@ -1023,6 +1205,12 @@ object srvPedidosCliente: TsrvPedidosCliente
|
|||||||
Name = 'FECHA_PREVISTA_ENVIO'
|
Name = 'FECHA_PREVISTA_ENVIO'
|
||||||
DataType = datDateTime
|
DataType = datDateTime
|
||||||
Value = ''
|
Value = ''
|
||||||
|
end
|
||||||
|
item
|
||||||
|
Name = 'DATOS_BANCARIOS'
|
||||||
|
DataType = datString
|
||||||
|
Size = 255
|
||||||
|
Value = ''
|
||||||
end>
|
end>
|
||||||
Statements = <
|
Statements = <
|
||||||
item
|
item
|
||||||
@ -1033,18 +1221,20 @@ object srvPedidosCliente: TsrvPedidosCliente
|
|||||||
'SUARIO, FECHA_PEDIDO, '#10' ID_DIRECCION, CALLE, CODIGO_POSTAL, ' +
|
'SUARIO, FECHA_PEDIDO, '#10' ID_DIRECCION, CALLE, CODIGO_POSTAL, ' +
|
||||||
'POBLACION, PROVINCIA, PERSONA_CONTACTO,'#10' TELEFONO, REFERENCI' +
|
'POBLACION, PROVINCIA, PERSONA_CONTACTO,'#10' TELEFONO, REFERENCI' +
|
||||||
'A, REFERENCIA_CLIENTE, IMPORTE_TOTAL, INCIDENCIAS,'#10' INCIDENC' +
|
'A, REFERENCIA_CLIENTE, IMPORTE_TOTAL, INCIDENCIAS,'#10' INCIDENC' +
|
||||||
'IAS_ACTIVAS, OBSERVACIONES, FECHA_ALTA, FECHA_MODIFICACION,'#10' ' +
|
'IAS_ACTIVAS, OBSERVACIONES, FECHA_ALTA,'#10' FECHA_MODIFICACION,' +
|
||||||
' IMPORTE_NETO, IMPORTE_PORTE, DESCUENTO,'#10' IMPORTE_DESCUENTO,' +
|
' IMPORTE_NETO, IMPORTE_PORTE,'#10' DESCUENTO, IMPORTE_DESCUENTO,' +
|
||||||
' BASE_IMPONIBLE, IVA, IMPORTE_IVA, '#10' ID_FORMA_PAGO, REF_TIEN' +
|
' DESCUENTO2, IMPORTE_DESCUENTO2, BASE_IMPONIBLE, IVA,'#10' IMPOR' +
|
||||||
'DA_WEB, FECHA_PREVISTA_ENVIO)'#10' VALUES'#10' (:ID, :ID_EMPRESA, :I' +
|
'TE_IVA, ID_FORMA_PAGO, REF_TIENDA_WEB, FECHA_PREVISTA_ENVIO, DAT' +
|
||||||
'D_CLIENTE, :USUARIO, :FECHA_PEDIDO, '#10' :ID_DIRECCION, :CALLE,' +
|
'OS_BANCARIOS)'#10' VALUES'#10' (:ID, :ID_EMPRESA, :ID_CLIENTE, :USUA' +
|
||||||
' :CODIGO_POSTAL, :POBLACION, :PROVINCIA, :PERSONA_CONTACTO,'#10' ' +
|
'RIO, :FECHA_PEDIDO, '#10' :ID_DIRECCION, :CALLE, :CODIGO_POSTAL,' +
|
||||||
' :TELEFONO, :REFERENCIA, :REFERENCIA_CLIENTE, :IMPORTE_TOTAL, :I' +
|
' :POBLACION, :PROVINCIA, :PERSONA_CONTACTO,'#10' :TELEFONO, :REF' +
|
||||||
'NCIDENCIAS,'#10' :INCIDENCIAS_ACTIVAS, :OBSERVACIONES, :FECHA_AL' +
|
'ERENCIA, :REFERENCIA_CLIENTE, :IMPORTE_TOTAL, :INCIDENCIAS,'#10' ' +
|
||||||
'TA,'#10' :FECHA_MODIFICACION, :IMPORTE_NETO, :IMPORTE_PORTE,'#10' ' +
|
' :INCIDENCIAS_ACTIVAS, :OBSERVACIONES, :FECHA_ALTA,'#10' :FECHA_' +
|
||||||
' :DESCUENTO, :IMPORTE_DESCUENTO, :BASE_IMPONIBLE, :IVA, '#10' :' +
|
'MODIFICACION, :IMPORTE_NETO, :IMPORTE_PORTE,'#10' :DESCUENTO, :I' +
|
||||||
'IMPORTE_IVA, :ID_FORMA_PAGO, :REF_TIENDA_WEB, :FECHA_PREVISTA_EN' +
|
'MPORTE_DESCUENTO, :DESCUENTO2, :IMPORTE_DESCUENTO2, :BASE_IMPONI' +
|
||||||
'VIO)'#10' '#10' '#10' '#10' '#10#10
|
'BLE, :IVA,'#10' :IMPORTE_IVA, :ID_FORMA_PAGO, :REF_TIENDA_WEB, :' +
|
||||||
|
'FECHA_PREVISTA_ENVIO, :DATOS_BANCARIOS)'#10' '#10' '#10' '#10' '#10 +
|
||||||
|
#10
|
||||||
StatementType = stSQL
|
StatementType = stSQL
|
||||||
ColumnMappings = <>
|
ColumnMappings = <>
|
||||||
end>
|
end>
|
||||||
@ -1164,11 +1354,6 @@ object srvPedidosCliente: TsrvPedidosCliente
|
|||||||
DataType = datMemo
|
DataType = datMemo
|
||||||
Value = ''
|
Value = ''
|
||||||
end
|
end
|
||||||
item
|
|
||||||
Name = 'FECHA_ALTA'
|
|
||||||
DataType = datDateTime
|
|
||||||
Value = ''
|
|
||||||
end
|
|
||||||
item
|
item
|
||||||
Name = 'FECHA_MODIFICACION'
|
Name = 'FECHA_MODIFICACION'
|
||||||
DataType = datDateTime
|
DataType = datDateTime
|
||||||
@ -1186,12 +1371,22 @@ object srvPedidosCliente: TsrvPedidosCliente
|
|||||||
end
|
end
|
||||||
item
|
item
|
||||||
Name = 'DESCUENTO'
|
Name = 'DESCUENTO'
|
||||||
DataType = datCurrency
|
DataType = datFloat
|
||||||
Value = ''
|
Value = ''
|
||||||
end
|
end
|
||||||
item
|
item
|
||||||
Name = 'IMPORTE_DESCUENTO'
|
Name = 'IMPORTE_DESCUENTO'
|
||||||
DataType = datDecimal
|
DataType = datCurrency
|
||||||
|
Value = ''
|
||||||
|
end
|
||||||
|
item
|
||||||
|
Name = 'DESCUENTO2'
|
||||||
|
DataType = datFloat
|
||||||
|
Value = ''
|
||||||
|
end
|
||||||
|
item
|
||||||
|
Name = 'IMPORTE_DESCUENTO2'
|
||||||
|
DataType = datCurrency
|
||||||
Value = ''
|
Value = ''
|
||||||
end
|
end
|
||||||
item
|
item
|
||||||
@ -1224,6 +1419,12 @@ object srvPedidosCliente: TsrvPedidosCliente
|
|||||||
DataType = datDateTime
|
DataType = datDateTime
|
||||||
Value = ''
|
Value = ''
|
||||||
end
|
end
|
||||||
|
item
|
||||||
|
Name = 'DATOS_BANCARIOS'
|
||||||
|
DataType = datString
|
||||||
|
Size = 255
|
||||||
|
Value = ''
|
||||||
|
end
|
||||||
item
|
item
|
||||||
Name = 'OLD_ID'
|
Name = 'OLD_ID'
|
||||||
Value = ''
|
Value = ''
|
||||||
@ -1242,25 +1443,234 @@ object srvPedidosCliente: TsrvPedidosCliente
|
|||||||
'A = :REFERENCIA, '#10' REFERENCIA_CLIENTE = :REFERENCIA_CLIENTE,'#10 +
|
'A = :REFERENCIA, '#10' REFERENCIA_CLIENTE = :REFERENCIA_CLIENTE,'#10 +
|
||||||
' IMPORTE_TOTAL = :IMPORTE_TOTAL, '#10' INCIDENCIAS = :INCIDENC' +
|
' IMPORTE_TOTAL = :IMPORTE_TOTAL, '#10' INCIDENCIAS = :INCIDENC' +
|
||||||
'IAS, '#10' INCIDENCIAS_ACTIVAS = :INCIDENCIAS_ACTIVAS, '#10' OBSER' +
|
'IAS, '#10' INCIDENCIAS_ACTIVAS = :INCIDENCIAS_ACTIVAS, '#10' OBSER' +
|
||||||
'VACIONES = :OBSERVACIONES, '#10' FECHA_ALTA = :FECHA_ALTA,'#10' FE' +
|
'VACIONES = :OBSERVACIONES, '#10' FECHA_MODIFICACION = :FECHA_MODI' +
|
||||||
'CHA_MODIFICACION = :FECHA_MODIFICACION,'#10' IMPORTE_NETO = :IMPO' +
|
'FICACION,'#10' IMPORTE_NETO = :IMPORTE_NETO,'#10' IMPORTE_PORTE = ' +
|
||||||
'RTE_NETO,'#10' IMPORTE_PORTE = :IMPORTE_PORTE, '#10' DESCUENTO = :' +
|
':IMPORTE_PORTE, '#10' DESCUENTO = :DESCUENTO, '#10' IMPORTE_DESCUE' +
|
||||||
'DESCUENTO, '#10' IMPORTE_DESCUENTO = :IMPORTE_DESCUENTO, '#10' BAS' +
|
'NTO = :IMPORTE_DESCUENTO, '#10' DESCUENTO2 = :DESCUENTO2,'#10' IMP' +
|
||||||
'E_IMPONIBLE = :BASE_IMPONIBLE, '#10' IVA = :IVA, '#10' IMPORTE_IVA' +
|
'ORTE_DESCUENTO2 = :IMPORTE_DESCUENTO2,'#10' BASE_IMPONIBLE = :BAS' +
|
||||||
' = :IMPORTE_IVA, '#10' ID_FORMA_PAGO = :ID_FORMA_PAGO,'#10' REF_TI' +
|
'E_IMPONIBLE,'#10' IVA = :IVA, '#10' IMPORTE_IVA = :IMPORTE_IVA, '#10' ' +
|
||||||
'ENDA_WEB = :REF_TIENDA_WEB,'#10' FECHA_PREVISTA_ENVIO = :FECHA_PR' +
|
' ID_FORMA_PAGO = :ID_FORMA_PAGO,'#10' REF_TIENDA_WEB = :REF_TIE' +
|
||||||
'EVISTA_ENVIO'#10' WHERE'#10' (ID = :OLD_ID)'#10
|
'NDA_WEB,'#10' FECHA_PREVISTA_ENVIO = :FECHA_PREVISTA_ENVIO,'#10' D' +
|
||||||
|
'ATOS_BANCARIOS = :DATOS_BANCARIOS'#10' WHERE'#10' (ID = :OLD_ID)'#10
|
||||||
StatementType = stSQL
|
StatementType = stSQL
|
||||||
ColumnMappings = <>
|
ColumnMappings = <>
|
||||||
end>
|
end>
|
||||||
Name = 'Update_PedidosCliente'
|
Name = 'Update_PedidosCliente'
|
||||||
|
end
|
||||||
|
item
|
||||||
|
Params = <
|
||||||
|
item
|
||||||
|
Name = 'ID'
|
||||||
|
DataType = datAutoInc
|
||||||
|
GeneratorName = 'GEN_PEDIDOS_CLI_DETALLES_ID'
|
||||||
|
Value = ''
|
||||||
|
end
|
||||||
|
item
|
||||||
|
Name = 'ID_DETALLE'
|
||||||
|
DataType = datInteger
|
||||||
|
Value = ''
|
||||||
|
end
|
||||||
|
item
|
||||||
|
Name = 'COLOR1'
|
||||||
|
DataType = datInteger
|
||||||
|
Value = ''
|
||||||
|
end
|
||||||
|
item
|
||||||
|
Name = 'COLOR2'
|
||||||
|
DataType = datInteger
|
||||||
|
Value = ''
|
||||||
|
end
|
||||||
|
item
|
||||||
|
Name = 'COLOR3'
|
||||||
|
DataType = datInteger
|
||||||
|
Value = ''
|
||||||
|
end
|
||||||
|
item
|
||||||
|
Name = 'COLOR4'
|
||||||
|
DataType = datInteger
|
||||||
|
Value = ''
|
||||||
|
end
|
||||||
|
item
|
||||||
|
Name = 'COLOR5'
|
||||||
|
DataType = datInteger
|
||||||
|
Value = ''
|
||||||
|
end
|
||||||
|
item
|
||||||
|
Name = 'COLOR6'
|
||||||
|
DataType = datInteger
|
||||||
|
Value = ''
|
||||||
|
end
|
||||||
|
item
|
||||||
|
Name = 'COLOR7'
|
||||||
|
DataType = datInteger
|
||||||
|
Value = ''
|
||||||
|
end
|
||||||
|
item
|
||||||
|
Name = 'COLOR8'
|
||||||
|
DataType = datInteger
|
||||||
|
Value = ''
|
||||||
|
end
|
||||||
|
item
|
||||||
|
Name = 'COLOR9'
|
||||||
|
DataType = datInteger
|
||||||
|
Value = ''
|
||||||
|
end
|
||||||
|
item
|
||||||
|
Name = 'COLOR10'
|
||||||
|
DataType = datInteger
|
||||||
|
Value = ''
|
||||||
|
end
|
||||||
|
item
|
||||||
|
Name = 'COLOR11'
|
||||||
|
DataType = datInteger
|
||||||
|
Value = ''
|
||||||
|
end
|
||||||
|
item
|
||||||
|
Name = 'COLOR12'
|
||||||
|
DataType = datInteger
|
||||||
|
Value = ''
|
||||||
|
end>
|
||||||
|
Statements = <
|
||||||
|
item
|
||||||
|
Connection = 'IBX'
|
||||||
|
TargetTable = 'PEDIDOS_CLIENTE_DETALLE_COLOR'
|
||||||
|
SQL =
|
||||||
|
'INSERT'#10' INTO PEDIDOS_CLIENTE_DETALLE_COLOR'#10' (ID, ID_DETALLE, C' +
|
||||||
|
'OLOR1, COLOR2, COLOR3, COLOR4, COLOR5, COLOR6, COLOR7, COLOR8,'#10' ' +
|
||||||
|
' COLOR9, COLOR10, COLOR11, COLOR12)'#10#10' VALUES'#10' (:ID, :ID_DETA' +
|
||||||
|
'LLE, :COLOR1, :COLOR2, :COLOR3, :COLOR4, :COLOR5, :COLOR6, :COLO' +
|
||||||
|
'R7, :COLOR8,'#10' :COLOR9, :COLOR10, :COLOR11, :COLOR12)'#10#10
|
||||||
|
StatementType = stSQL
|
||||||
|
ColumnMappings = <>
|
||||||
|
end>
|
||||||
|
Name = 'Insert_PedidosCliente_DetalleColor'
|
||||||
|
end
|
||||||
|
item
|
||||||
|
Params = <
|
||||||
|
item
|
||||||
|
Name = 'ID'
|
||||||
|
DataType = datInteger
|
||||||
|
Value = ''
|
||||||
|
end
|
||||||
|
item
|
||||||
|
Name = 'ID_DETALLE'
|
||||||
|
DataType = datInteger
|
||||||
|
Value = ''
|
||||||
|
end
|
||||||
|
item
|
||||||
|
Name = 'COLOR1'
|
||||||
|
DataType = datInteger
|
||||||
|
Value = ''
|
||||||
|
end
|
||||||
|
item
|
||||||
|
Name = 'COLOR2'
|
||||||
|
DataType = datInteger
|
||||||
|
Value = ''
|
||||||
|
end
|
||||||
|
item
|
||||||
|
Name = 'COLOR3'
|
||||||
|
DataType = datInteger
|
||||||
|
Value = ''
|
||||||
|
end
|
||||||
|
item
|
||||||
|
Name = 'COLOR4'
|
||||||
|
DataType = datInteger
|
||||||
|
Value = ''
|
||||||
|
end
|
||||||
|
item
|
||||||
|
Name = 'COLOR5'
|
||||||
|
DataType = datInteger
|
||||||
|
Value = ''
|
||||||
|
end
|
||||||
|
item
|
||||||
|
Name = 'COLOR6'
|
||||||
|
DataType = datInteger
|
||||||
|
Value = ''
|
||||||
|
end
|
||||||
|
item
|
||||||
|
Name = 'COLOR7'
|
||||||
|
DataType = datInteger
|
||||||
|
Value = ''
|
||||||
|
end
|
||||||
|
item
|
||||||
|
Name = 'COLOR8'
|
||||||
|
DataType = datInteger
|
||||||
|
Value = ''
|
||||||
|
end
|
||||||
|
item
|
||||||
|
Name = 'COLOR9'
|
||||||
|
DataType = datInteger
|
||||||
|
Value = ''
|
||||||
|
end
|
||||||
|
item
|
||||||
|
Name = 'COLOR10'
|
||||||
|
DataType = datInteger
|
||||||
|
Value = ''
|
||||||
|
end
|
||||||
|
item
|
||||||
|
Name = 'COLOR11'
|
||||||
|
DataType = datInteger
|
||||||
|
Value = ''
|
||||||
|
end
|
||||||
|
item
|
||||||
|
Name = 'COLOR12'
|
||||||
|
DataType = datInteger
|
||||||
|
Value = ''
|
||||||
|
end
|
||||||
|
item
|
||||||
|
Name = 'OLD_ID'
|
||||||
|
Value = ''
|
||||||
|
end>
|
||||||
|
Statements = <
|
||||||
|
item
|
||||||
|
Connection = 'IBX'
|
||||||
|
TargetTable = 'PEDIDOS_CLIENTE_DETALLE_COLOR'
|
||||||
|
SQL =
|
||||||
|
'UPDATE PEDIDOS_CLIENTE_DETALLE_COLOR'#10' SET'#10' ID = :ID,'#10' ID_DE' +
|
||||||
|
'TALLE = :ID_DETALLE,'#10' COLOR1 = :COLOR1,'#10' COLOR2 = :COLOR2,'#10' ' +
|
||||||
|
' COLOR3 = :COLOR3,'#10' COLOR4 = :COLOR4,'#10' COLOR5 = :COLOR5,'#10' ' +
|
||||||
|
' COLOR6 = :COLOR6,'#10' COLOR7 = :COLOR7,'#10' COLOR8 = :COLOR8,'#10' ' +
|
||||||
|
'COLOR9 = :COLOR9,'#10' COLOR10 = :COLOR10,'#10' COLOR11 = :COLOR11,'#10 +
|
||||||
|
' COLOR12 = :COLOR12'#10' WHERE'#10' (ID = :OLD_ID)'#10
|
||||||
|
StatementType = stSQL
|
||||||
|
ColumnMappings = <>
|
||||||
|
end>
|
||||||
|
Name = 'Update_PedidosCliente_DetalleColor'
|
||||||
|
end
|
||||||
|
item
|
||||||
|
Params = <
|
||||||
|
item
|
||||||
|
Name = 'OLD_ID'
|
||||||
|
DataType = datInteger
|
||||||
|
Value = ''
|
||||||
|
ParamType = daptInput
|
||||||
|
end>
|
||||||
|
Statements = <
|
||||||
|
item
|
||||||
|
Connection = 'IBX'
|
||||||
|
TargetTable = 'PEDIDOS_CLIENTE_DETALLE_COLOR'
|
||||||
|
SQL =
|
||||||
|
'DELETE '#10' FROM'#10' PEDIDOS_CLIENTE_DETALLE_COLOR'#10' WHERE'#10' (ID' +
|
||||||
|
' = :OLD_ID)'#10
|
||||||
|
StatementType = stSQL
|
||||||
|
ColumnMappings = <>
|
||||||
|
end>
|
||||||
|
Name = 'Delete_PedidosCliente_DetalleColor'
|
||||||
end>
|
end>
|
||||||
RelationShips = <
|
RelationShips = <
|
||||||
|
item
|
||||||
|
Name = 'FK_Pedidos_Cliente_Detalles_color'
|
||||||
|
MasterDatasetName = 'PedidosCliente_Detalles'
|
||||||
|
MasterFields = 'ID'
|
||||||
|
DetailDatasetName = 'PedidosCliente_Detalle_Color'
|
||||||
|
DetailFields = 'ID_DETALLE'
|
||||||
|
RelationshipType = rtForeignKey
|
||||||
|
end
|
||||||
item
|
item
|
||||||
Name = 'FK_Pedidos_Cliente_Detalles'
|
Name = 'FK_Pedidos_Cliente_Detalles'
|
||||||
MasterDatasetName = 'PedidosCliente'
|
MasterDatasetName = 'PedidosCliente'
|
||||||
MasterFields = 'ID'
|
MasterFields = 'ID'
|
||||||
DetailDatasetName = 'PedidosCliente_Detalles'
|
DetailDatasetName = 'PedidosCliente_Detalle_Color'
|
||||||
DetailFields = 'ID_PEDIDO'
|
DetailFields = 'ID_PEDIDO'
|
||||||
RelationshipType = rtForeignKey
|
RelationshipType = rtForeignKey
|
||||||
end>
|
end>
|
||||||
@ -1524,11 +1934,6 @@ object srvPedidosCliente: TsrvPedidosCliente
|
|||||||
Size = 2000
|
Size = 2000
|
||||||
DisplayLabel = 'CONCEPTO'
|
DisplayLabel = 'CONCEPTO'
|
||||||
end
|
end
|
||||||
item
|
|
||||||
Name = 'CANTIDAD'
|
|
||||||
DataType = datInteger
|
|
||||||
Alignment = taRightJustify
|
|
||||||
end
|
|
||||||
item
|
item
|
||||||
Name = 'PedidosCliente_Detalles_IMPORTE_UNIDAD'
|
Name = 'PedidosCliente_Detalles_IMPORTE_UNIDAD'
|
||||||
DataType = datCurrency
|
DataType = datCurrency
|
||||||
@ -1646,6 +2051,41 @@ object srvPedidosCliente: TsrvPedidosCliente
|
|||||||
Name = 'PedidosCliente_REF_TIENDA_WEB'
|
Name = 'PedidosCliente_REF_TIENDA_WEB'
|
||||||
DataType = datInteger
|
DataType = datInteger
|
||||||
DisplayLabel = 'REF_TIENDA_WEB'
|
DisplayLabel = 'REF_TIENDA_WEB'
|
||||||
|
end
|
||||||
|
item
|
||||||
|
Name = 'PedidosCliente_Detalles_CANTIDAD'
|
||||||
|
DataType = datFloat
|
||||||
|
Alignment = taRightJustify
|
||||||
|
end
|
||||||
|
item
|
||||||
|
Name = 'PedidosCliente_Detalles_UNIDAD_MEDIDA'
|
||||||
|
DataType = datString
|
||||||
|
end
|
||||||
|
item
|
||||||
|
Name = 'PedidosCliente_ID_DIRECCION'
|
||||||
|
DataType = datInteger
|
||||||
|
end
|
||||||
|
item
|
||||||
|
Name = 'PedidosCliente_DESCUENTO2'
|
||||||
|
DataType = datFloat
|
||||||
|
DisplayLabel = 'DESCUENTO2'
|
||||||
|
end
|
||||||
|
item
|
||||||
|
Name = 'PedidosCliente_IMPORTE_DESCUENTO2'
|
||||||
|
DataType = datCurrency
|
||||||
|
DecimalPrecision = 11
|
||||||
|
DecimalScale = 2
|
||||||
|
DisplayLabel = 'IMPORTE_DESCUENTO2'
|
||||||
|
end
|
||||||
|
item
|
||||||
|
Name = 'PedidosCliente_FORMA_PAGO'
|
||||||
|
DataType = datString
|
||||||
|
Size = 255
|
||||||
|
end
|
||||||
|
item
|
||||||
|
Name = 'PedidosCliente_DATOS_BANCARIOS'
|
||||||
|
DataType = datString
|
||||||
|
Size = 255
|
||||||
end>
|
end>
|
||||||
Left = 48
|
Left = 48
|
||||||
Top = 152
|
Top = 152
|
||||||
@ -1654,4 +2094,15 @@ object srvPedidosCliente: TsrvPedidosCliente
|
|||||||
Left = 48
|
Left = 48
|
||||||
Top = 88
|
Top = 88
|
||||||
end
|
end
|
||||||
|
object bpPedidosCliente_DetalleColor: TDABusinessProcessor
|
||||||
|
Schema = schPedidosCliente
|
||||||
|
InsertCommandName = 'Insert_PedidosCliente_DetalleColor'
|
||||||
|
DeleteCommandName = 'Delete_PedidosCliente_DetalleColor'
|
||||||
|
UpdateCommandName = 'Update_PedidosCliente_DetalleColor'
|
||||||
|
ReferencedDataset = 'PedidosCliente_Detalle_Color'
|
||||||
|
ProcessorOptions = [poPrepareCommands]
|
||||||
|
UpdateMode = updWhereKeyOnly
|
||||||
|
Left = 192
|
||||||
|
Top = 144
|
||||||
|
end
|
||||||
end
|
end
|
||||||
|
|||||||
@ -23,6 +23,7 @@ type
|
|||||||
bpPedidosCliente: TDABusinessProcessor;
|
bpPedidosCliente: TDABusinessProcessor;
|
||||||
bpPedidosCliente_Detalles: TDABusinessProcessor;
|
bpPedidosCliente_Detalles: TDABusinessProcessor;
|
||||||
Bin2DataStreamer: TDABin2DataStreamer;
|
Bin2DataStreamer: TDABin2DataStreamer;
|
||||||
|
bpPedidosCliente_DetalleColor: TDABusinessProcessor;
|
||||||
schPedidosCliente: TDASchema;
|
schPedidosCliente: TDASchema;
|
||||||
DADataDictionary: TDADataDictionary;
|
DADataDictionary: TDADataDictionary;
|
||||||
procedure DARemoteServiceBeforeGetDatasetData(const Dataset: IDADataset;
|
procedure DARemoteServiceBeforeGetDatasetData(const Dataset: IDADataset;
|
||||||
|
|||||||
@ -83,6 +83,7 @@ contains
|
|||||||
uEditorElegirArticulosPedidoCliente in 'uEditorElegirArticulosPedidoCliente.pas' {fEditorElegirArticulosPedidoCliente: TfEditorElegirArticulosPedidoCliente},
|
uEditorElegirArticulosPedidoCliente in 'uEditorElegirArticulosPedidoCliente.pas' {fEditorElegirArticulosPedidoCliente: TfEditorElegirArticulosPedidoCliente},
|
||||||
uViewDireccionEntregaPedidoCliente in 'uViewDireccionEntregaPedidoCliente.pas' {frViewDireccionEntregaPedidoCliente: TFrame},
|
uViewDireccionEntregaPedidoCliente in 'uViewDireccionEntregaPedidoCliente.pas' {frViewDireccionEntregaPedidoCliente: TFrame},
|
||||||
uEditorPedidosClienteReport in 'uEditorPedidosClienteReport.pas' {fEditorPedidosClientePreview: TfEditorPedidosClientePreview},
|
uEditorPedidosClienteReport in 'uEditorPedidosClienteReport.pas' {fEditorPedidosClientePreview: TfEditorPedidosClientePreview},
|
||||||
uViewDatosYSeleccionClientePedido in 'uViewDatosYSeleccionClientePedido.pas' {frViewDatosYSeleccionClientePedido: TFrame};
|
uViewDatosYSeleccionClientePedido in 'uViewDatosYSeleccionClientePedido.pas' {frViewDatosYSeleccionClientePedido: TFrame},
|
||||||
|
uViewTotalesPedido in 'uViewTotalesPedido.pas' {frViewTotalesPedido: TFrame};
|
||||||
|
|
||||||
end.
|
end.
|
||||||
|
|||||||
@ -44,8 +44,6 @@
|
|||||||
<BorlandProject>
|
<BorlandProject>
|
||||||
<BorlandProject><Delphi.Personality><Parameters><Parameters Name="UseLauncher">False</Parameters><Parameters Name="LoadAllSymbols">True</Parameters><Parameters Name="LoadUnspecifiedSymbols">False</Parameters></Parameters><Package_Options><Package_Options Name="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 Name="Comments"></VersionInfoKeys></VersionInfoKeys><Excluded_Packages>
|
<BorlandProject><Delphi.Personality><Parameters><Parameters Name="UseLauncher">False</Parameters><Parameters Name="LoadAllSymbols">True</Parameters><Parameters Name="LoadUnspecifiedSymbols">False</Parameters></Parameters><Package_Options><Package_Options Name="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 Name="Comments"></VersionInfoKeys></VersionInfoKeys><Excluded_Packages>
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
<Excluded_Packages Name="c:\archivos de programa\borland\delphi10\Bin\dclIntraweb_80_100.bpl">Intraweb 8.0 Design Package for Borland Development Studio 2006</Excluded_Packages>
|
<Excluded_Packages Name="c:\archivos de programa\borland\delphi10\Bin\dclIntraweb_80_100.bpl">Intraweb 8.0 Design Package for Borland Development Studio 2006</Excluded_Packages>
|
||||||
</Excluded_Packages><Source><Source Name="MainSource">PedidosCliente_view.dpk</Source></Source></Delphi.Personality></BorlandProject></BorlandProject>
|
</Excluded_Packages><Source><Source Name="MainSource">PedidosCliente_view.dpk</Source></Source></Delphi.Personality></BorlandProject></BorlandProject>
|
||||||
</ProjectExtensions>
|
</ProjectExtensions>
|
||||||
@ -54,51 +52,51 @@
|
|||||||
<DelphiCompile Include="PedidosCliente_view.dpk">
|
<DelphiCompile Include="PedidosCliente_view.dpk">
|
||||||
<MainSource>MainSource</MainSource>
|
<MainSource>MainSource</MainSource>
|
||||||
</DelphiCompile>
|
</DelphiCompile>
|
||||||
<DCCReference Include="..\..\Lib\adortl.dcp" />
|
<DCCReference Include="C:\Documents and Settings\Usuario\adortl.dcp" />
|
||||||
<DCCReference Include="..\..\Lib\AlbaranesCliente_controller.dcp" />
|
<DCCReference Include="C:\Documents and Settings\Usuario\AlbaranesCliente_controller.dcp" />
|
||||||
<DCCReference Include="..\..\Lib\AlbaranesCliente_model.dcp" />
|
<DCCReference Include="C:\Documents and Settings\Usuario\AlbaranesCliente_model.dcp" />
|
||||||
<DCCReference Include="..\..\Lib\Articulos_view.dcp" />
|
<DCCReference Include="C:\Documents and Settings\Usuario\Articulos_view.dcp" />
|
||||||
<DCCReference Include="..\..\Lib\cxDataD11.dcp" />
|
<DCCReference Include="C:\Documents and Settings\Usuario\cxDataD11.dcp" />
|
||||||
<DCCReference Include="..\..\Lib\cxEditorsD11.dcp" />
|
<DCCReference Include="C:\Documents and Settings\Usuario\cxEditorsD11.dcp" />
|
||||||
<DCCReference Include="..\..\Lib\cxExtEditorsD11.dcp" />
|
<DCCReference Include="C:\Documents and Settings\Usuario\cxExtEditorsD11.dcp" />
|
||||||
<DCCReference Include="..\..\Lib\cxLibraryD11.dcp" />
|
<DCCReference Include="C:\Documents and Settings\Usuario\cxLibraryD11.dcp" />
|
||||||
<DCCReference Include="..\..\Lib\cxPageControlD11.dcp" />
|
<DCCReference Include="C:\Documents and Settings\Usuario\cxPageControlD11.dcp" />
|
||||||
<DCCReference Include="..\..\Lib\DataAbstract_Core_D11.dcp" />
|
<DCCReference Include="C:\Documents and Settings\Usuario\DataAbstract_Core_D11.dcp" />
|
||||||
<DCCReference Include="..\..\Lib\dbrtl.dcp" />
|
<DCCReference Include="C:\Documents and Settings\Usuario\dbrtl.dcp" />
|
||||||
<DCCReference Include="..\..\Lib\designide.dcp" />
|
<DCCReference Include="C:\Documents and Settings\Usuario\designide.dcp" />
|
||||||
<DCCReference Include="..\..\Lib\dsnap.dcp" />
|
<DCCReference Include="C:\Documents and Settings\Usuario\dsnap.dcp" />
|
||||||
<DCCReference Include="..\..\Lib\dxComnD11.dcp" />
|
<DCCReference Include="C:\Documents and Settings\Usuario\dxComnD11.dcp" />
|
||||||
<DCCReference Include="..\..\Lib\dxCoreD11.dcp" />
|
<DCCReference Include="C:\Documents and Settings\Usuario\dxCoreD11.dcp" />
|
||||||
<DCCReference Include="..\..\Lib\dxGDIPlusD11.dcp" />
|
<DCCReference Include="C:\Documents and Settings\Usuario\dxGDIPlusD11.dcp" />
|
||||||
<DCCReference Include="..\..\Lib\dxLayoutControlD11.dcp" />
|
<DCCReference Include="C:\Documents and Settings\Usuario\dxLayoutControlD11.dcp" />
|
||||||
<DCCReference Include="..\..\Lib\dxThemeD11.dcp" />
|
<DCCReference Include="C:\Documents and Settings\Usuario\dxThemeD11.dcp" />
|
||||||
<DCCReference Include="..\..\Lib\FacturasCliente_controller.dcp" />
|
<DCCReference Include="C:\Documents and Settings\Usuario\FacturasCliente_controller.dcp" />
|
||||||
<DCCReference Include="..\..\Lib\FacturasCliente_model.dcp" />
|
<DCCReference Include="C:\Documents and Settings\Usuario\FacturasCliente_model.dcp" />
|
||||||
<DCCReference Include="..\..\Lib\frxTee11.dcp" />
|
<DCCReference Include="C:\Documents and Settings\Usuario\frxTee11.dcp" />
|
||||||
<DCCReference Include="..\..\Lib\fsTee11.dcp" />
|
<DCCReference Include="C:\Documents and Settings\Usuario\fsTee11.dcp" />
|
||||||
<DCCReference Include="..\..\Lib\GUISDK_D11R.dcp" />
|
<DCCReference Include="C:\Documents and Settings\Usuario\GUISDK_D11R.dcp" />
|
||||||
<DCCReference Include="..\..\Lib\Jcl.dcp" />
|
<DCCReference Include="C:\Documents and Settings\Usuario\Jcl.dcp" />
|
||||||
<DCCReference Include="..\..\Lib\JclVcl.dcp" />
|
<DCCReference Include="C:\Documents and Settings\Usuario\JclVcl.dcp" />
|
||||||
<DCCReference Include="..\..\Lib\JvCoreD11R.dcp" />
|
<DCCReference Include="C:\Documents and Settings\Usuario\JvCoreD11R.dcp" />
|
||||||
<DCCReference Include="..\..\Lib\JvCtrlsD11R.dcp" />
|
<DCCReference Include="C:\Documents and Settings\Usuario\JvCtrlsD11R.dcp" />
|
||||||
<DCCReference Include="..\..\Lib\JvStdCtrlsD11R.dcp" />
|
<DCCReference Include="C:\Documents and Settings\Usuario\JvStdCtrlsD11R.dcp" />
|
||||||
<DCCReference Include="..\..\Lib\JvSystemD11R.dcp" />
|
<DCCReference Include="C:\Documents and Settings\Usuario\JvSystemD11R.dcp" />
|
||||||
<DCCReference Include="..\..\Lib\PedCli_AlbCli_relation.dcp" />
|
<DCCReference Include="C:\Documents and Settings\Usuario\PedCli_AlbCli_relation.dcp" />
|
||||||
<DCCReference Include="..\..\Lib\PedidosCliente_controller.dcp" />
|
<DCCReference Include="C:\Documents and Settings\Usuario\PedidosCliente_controller.dcp" />
|
||||||
<DCCReference Include="..\..\Lib\PedidosCliente_model.dcp" />
|
<DCCReference Include="C:\Documents and Settings\Usuario\PedidosCliente_model.dcp" />
|
||||||
<DCCReference Include="..\..\Lib\PngComponentsD10.dcp" />
|
<DCCReference Include="C:\Documents and Settings\Usuario\PngComponentsD10.dcp" />
|
||||||
<DCCReference Include="..\..\Lib\PNG_D10.dcp" />
|
<DCCReference Include="C:\Documents and Settings\Usuario\PNG_D10.dcp" />
|
||||||
<DCCReference Include="..\..\Lib\RemObjects_Core_D11.dcp" />
|
<DCCReference Include="C:\Documents and Settings\Usuario\RemObjects_Core_D11.dcp" />
|
||||||
<DCCReference Include="..\..\Lib\rtl.dcp" />
|
<DCCReference Include="C:\Documents and Settings\Usuario\rtl.dcp" />
|
||||||
<DCCReference Include="..\..\Lib\tee.dcp" />
|
<DCCReference Include="C:\Documents and Settings\Usuario\tee.dcp" />
|
||||||
<DCCReference Include="..\..\Lib\teeUI.dcp" />
|
<DCCReference Include="C:\Documents and Settings\Usuario\teeUI.dcp" />
|
||||||
<DCCReference Include="..\..\Lib\vcl.dcp" />
|
<DCCReference Include="C:\Documents and Settings\Usuario\vcl.dcp" />
|
||||||
<DCCReference Include="..\..\Lib\vclactnband.dcp" />
|
<DCCReference Include="C:\Documents and Settings\Usuario\vclactnband.dcp" />
|
||||||
<DCCReference Include="..\..\Lib\vcldb.dcp" />
|
<DCCReference Include="C:\Documents and Settings\Usuario\vcldb.dcp" />
|
||||||
<DCCReference Include="..\..\Lib\vclimg.dcp" />
|
<DCCReference Include="C:\Documents and Settings\Usuario\vclimg.dcp" />
|
||||||
<DCCReference Include="..\..\Lib\vcljpg.dcp" />
|
<DCCReference Include="C:\Documents and Settings\Usuario\vcljpg.dcp" />
|
||||||
<DCCReference Include="..\..\Lib\vclx.dcp" />
|
<DCCReference Include="C:\Documents and Settings\Usuario\vclx.dcp" />
|
||||||
<DCCReference Include="..\..\Lib\xmlrtl.dcp" />
|
<DCCReference Include="C:\Documents and Settings\Usuario\xmlrtl.dcp" />
|
||||||
<DCCReference Include="uEditorElegirArticulosPedidoCliente.pas">
|
<DCCReference Include="uEditorElegirArticulosPedidoCliente.pas">
|
||||||
<Form>fEditorElegirArticulosPedidoCliente</Form>
|
<Form>fEditorElegirArticulosPedidoCliente</Form>
|
||||||
<DesignClass>TfEditorElegirArticulosPedidoCliente</DesignClass>
|
<DesignClass>TfEditorElegirArticulosPedidoCliente</DesignClass>
|
||||||
@ -144,6 +142,10 @@
|
|||||||
<Form>frViewPedidosCliente</Form>
|
<Form>frViewPedidosCliente</Form>
|
||||||
<DesignClass>TFrame</DesignClass>
|
<DesignClass>TFrame</DesignClass>
|
||||||
</DCCReference>
|
</DCCReference>
|
||||||
|
<DCCReference Include="uViewTotalesPedido.pas">
|
||||||
|
<Form>frViewTotalesPedido</Form>
|
||||||
|
<DesignClass>TFrame</DesignClass>
|
||||||
|
</DCCReference>
|
||||||
</ItemGroup>
|
</ItemGroup>
|
||||||
</Project>
|
</Project>
|
||||||
<!-- EurekaLog First Line
|
<!-- EurekaLog First Line
|
||||||
|
|||||||
@ -18,6 +18,7 @@ END
|
|||||||
/* C:\Codigo Noviseda\Source\Modulos\Pedidos de cliente\Views\uViewDatosYSeleccionClientePedido.dfm */
|
/* C:\Codigo Noviseda\Source\Modulos\Pedidos de cliente\Views\uViewDatosYSeleccionClientePedido.dfm */
|
||||||
/* C:\Codigo Noviseda\Source\Modulos\Pedidos de cliente\Views\uViewDireccionEntregaPedidoCliente.dfm */
|
/* C:\Codigo Noviseda\Source\Modulos\Pedidos de cliente\Views\uViewDireccionEntregaPedidoCliente.dfm */
|
||||||
/* C:\Codigo Noviseda\Source\Modulos\Pedidos de cliente\Views\uViewPedidoCliente.dfm */
|
/* C:\Codigo Noviseda\Source\Modulos\Pedidos de cliente\Views\uViewPedidoCliente.dfm */
|
||||||
|
/* C:\Codigo Noviseda\Source\Modulos\Pedidos de cliente\Views\uViewTotalesPedido.dfm */
|
||||||
/* C:\Codigo Noviseda\Source\Modulos\Pedidos de cliente\Views\uEditorPedidoCliente.dfm */
|
/* C:\Codigo Noviseda\Source\Modulos\Pedidos de cliente\Views\uEditorPedidoCliente.dfm */
|
||||||
/* C:\Codigo Noviseda\Source\Modulos\Pedidos de cliente\Views\uEditorElegirPedidosCliente.dfm */
|
/* C:\Codigo Noviseda\Source\Modulos\Pedidos de cliente\Views\uEditorElegirPedidosCliente.dfm */
|
||||||
/* C:\Codigo Noviseda\Source\Modulos\Pedidos de cliente\Views\uViewElegirArticulosPedidosCliente.dfm */
|
/* C:\Codigo Noviseda\Source\Modulos\Pedidos de cliente\Views\uViewElegirArticulosPedidosCliente.dfm */
|
||||||
|
|||||||
Binary file not shown.
@ -1,6 +1,14 @@
|
|||||||
inherited fEditorElegirArticulosPedidoCliente: TfEditorElegirArticulosPedidoCliente
|
inherited fEditorElegirArticulosPedidoCliente: TfEditorElegirArticulosPedidoCliente
|
||||||
Caption = 'fEditorElegirArticulosPedidoCliente'
|
Caption = 'fEditorElegirArticulosPedidoCliente'
|
||||||
ExplicitWidth = 320
|
|
||||||
PixelsPerInch = 96
|
PixelsPerInch = 96
|
||||||
TextHeight = 13
|
TextHeight = 13
|
||||||
|
inherited pnlHeader: TPanel
|
||||||
|
inherited lblTitle: TLabel
|
||||||
|
Width = 606
|
||||||
|
end
|
||||||
|
inherited lblComments: TLabel
|
||||||
|
Width = 581
|
||||||
|
Height = 24
|
||||||
|
end
|
||||||
|
end
|
||||||
end
|
end
|
||||||
|
|||||||
@ -15,7 +15,7 @@ uses
|
|||||||
type
|
type
|
||||||
TfEditorElegirArticulosPedidoCliente = class(TfEditorElegirArticulos, IEditorElegirArticulosPedidosCliente)
|
TfEditorElegirArticulosPedidoCliente = class(TfEditorElegirArticulos, IEditorElegirArticulosPedidosCliente)
|
||||||
protected
|
protected
|
||||||
// procedure AsignarVista; override;
|
constructor Create(AOwner: TComponent); override;
|
||||||
end;
|
end;
|
||||||
|
|
||||||
|
|
||||||
@ -26,10 +26,10 @@ uses uViewElegirArticulosPedidosCliente;
|
|||||||
|
|
||||||
{ TfEditorElegirArticulosPedidoCliente }
|
{ TfEditorElegirArticulosPedidoCliente }
|
||||||
|
|
||||||
{procedure TfEditorElegirArticulosPedidoCliente.AsignarVista;
|
constructor TfEditorElegirArticulosPedidoCliente.Create(AOwner: TComponent);
|
||||||
begin
|
begin
|
||||||
|
inherited;
|
||||||
ViewGrid := CreateView(TfrViewElegirArticulosPedidosCliente) as IViewElegirArticulosPedidosCliente;
|
ViewGrid := CreateView(TfrViewElegirArticulosPedidosCliente) as IViewElegirArticulosPedidosCliente;
|
||||||
end;
|
end;
|
||||||
}
|
|
||||||
|
|
||||||
end.
|
end.
|
||||||
|
|||||||
@ -134,22 +134,25 @@ inherited fEditorPedidoCliente: TfEditorPedidoCliente
|
|||||||
inherited TBXDock: TSpTBXDock
|
inherited TBXDock: TSpTBXDock
|
||||||
Width = 632
|
Width = 632
|
||||||
ExplicitWidth = 632
|
ExplicitWidth = 632
|
||||||
|
inherited tbxMain: TSpTBXToolbar
|
||||||
|
ExplicitWidth = 488
|
||||||
|
end
|
||||||
inherited tbxMenu: TSpTBXToolbar
|
inherited tbxMenu: TSpTBXToolbar
|
||||||
ExplicitWidth = 632
|
ExplicitWidth = 632
|
||||||
end
|
end
|
||||||
end
|
end
|
||||||
inherited pgPaginas: TPageControl
|
inherited pgPaginas: TPageControl
|
||||||
Width = 626
|
Width = 626
|
||||||
Height = 436
|
Height = 364
|
||||||
TabOrder = 1
|
TabOrder = 1
|
||||||
OnChanging = pgPaginasChanging
|
OnChanging = pgPaginasChanging
|
||||||
ExplicitWidth = 626
|
ExplicitWidth = 626
|
||||||
ExplicitHeight = 436
|
ExplicitHeight = 364
|
||||||
inherited pagGeneral: TTabSheet
|
inherited pagGeneral: TTabSheet
|
||||||
ExplicitLeft = 4
|
ExplicitLeft = 4
|
||||||
ExplicitTop = 24
|
ExplicitTop = 24
|
||||||
ExplicitWidth = 618
|
ExplicitWidth = 618
|
||||||
ExplicitHeight = 408
|
ExplicitHeight = 336
|
||||||
end
|
end
|
||||||
object pagContenido: TTabSheet
|
object pagContenido: TTabSheet
|
||||||
Caption = 'Contenido'
|
Caption = 'Contenido'
|
||||||
@ -158,7 +161,7 @@ inherited fEditorPedidoCliente: TfEditorPedidoCliente
|
|||||||
Left = 0
|
Left = 0
|
||||||
Top = 0
|
Top = 0
|
||||||
Width = 618
|
Width = 618
|
||||||
Height = 408
|
Height = 336
|
||||||
Align = alClient
|
Align = alClient
|
||||||
BiDiMode = bdLeftToRight
|
BiDiMode = bdLeftToRight
|
||||||
Font.Charset = DEFAULT_CHARSET
|
Font.Charset = DEFAULT_CHARSET
|
||||||
@ -171,60 +174,63 @@ inherited fEditorPedidoCliente: TfEditorPedidoCliente
|
|||||||
TabOrder = 0
|
TabOrder = 0
|
||||||
ReadOnly = False
|
ReadOnly = False
|
||||||
ExplicitWidth = 618
|
ExplicitWidth = 618
|
||||||
ExplicitHeight = 408
|
ExplicitHeight = 336
|
||||||
inherited ToolBar1: TToolBar
|
inherited ToolBar1: TToolBar
|
||||||
Width = 618
|
Width = 618
|
||||||
Height = 73
|
Height = 73
|
||||||
ExplicitWidth = 618
|
ExplicitWidth = 618
|
||||||
ExplicitHeight = 73
|
ExplicitHeight = 73
|
||||||
inherited ToolButton3: TToolButton
|
inherited ToolButton4: TToolButton [1]
|
||||||
Wrap = False
|
Left = 109
|
||||||
|
ExplicitLeft = 109
|
||||||
end
|
end
|
||||||
inherited ToolButton4: TToolButton
|
inherited ToolButton2: TToolButton
|
||||||
Left = 278
|
|
||||||
Top = 0
|
|
||||||
ExplicitLeft = 278
|
|
||||||
ExplicitTop = 0
|
|
||||||
end
|
|
||||||
inherited ToolButton14: TToolButton [4]
|
|
||||||
Left = 334
|
|
||||||
Top = 0
|
|
||||||
Wrap = True
|
|
||||||
ExplicitLeft = 334
|
|
||||||
ExplicitTop = 0
|
|
||||||
end
|
|
||||||
inherited FontName: TJvFontComboBox [5]
|
|
||||||
Left = 0
|
Left = 0
|
||||||
ExplicitLeft = 0
|
|
||||||
end
|
|
||||||
inherited FontSize: TEdit
|
|
||||||
Left = 145
|
|
||||||
ExplicitLeft = 145
|
|
||||||
end
|
|
||||||
inherited UpDown1: TUpDown
|
|
||||||
Left = 187
|
|
||||||
ExplicitLeft = 187
|
|
||||||
end
|
|
||||||
inherited ToolButton13: TToolButton
|
|
||||||
Left = 204
|
|
||||||
ExplicitLeft = 204
|
|
||||||
end
|
|
||||||
inherited ToolButton6: TToolButton [9]
|
|
||||||
Left = 212
|
|
||||||
Top = 22
|
Top = 22
|
||||||
ExplicitLeft = 212
|
end
|
||||||
|
inherited ToolButton14: TToolButton [3]
|
||||||
|
Left = 114
|
||||||
|
ExplicitLeft = 114
|
||||||
|
end
|
||||||
|
inherited ToolButton3: TToolButton [4]
|
||||||
|
Left = 179
|
||||||
|
Top = 22
|
||||||
|
ExplicitLeft = 179
|
||||||
ExplicitTop = 22
|
ExplicitTop = 22
|
||||||
end
|
end
|
||||||
inherited ToolButton7: TToolButton [10]
|
inherited ToolButton6: TToolButton [5]
|
||||||
Left = 278
|
Left = 234
|
||||||
Top = 22
|
Top = 22
|
||||||
ExplicitLeft = 278
|
ExplicitLeft = 234
|
||||||
ExplicitTop = 22
|
ExplicitTop = 22
|
||||||
end
|
end
|
||||||
inherited ToolButton8: TToolButton [11]
|
inherited ToolButton8: TToolButton [6]
|
||||||
Left = 345
|
Left = 300
|
||||||
Top = 22
|
Top = 22
|
||||||
ExplicitLeft = 345
|
ExplicitLeft = 300
|
||||||
|
ExplicitTop = 22
|
||||||
|
end
|
||||||
|
inherited FontName: TJvFontComboBox [7]
|
||||||
|
Left = 383
|
||||||
|
ExplicitLeft = 383
|
||||||
|
end
|
||||||
|
inherited FontSize: TEdit [8]
|
||||||
|
Left = 528
|
||||||
|
ExplicitLeft = 528
|
||||||
|
end
|
||||||
|
inherited UpDown1: TUpDown [9]
|
||||||
|
Left = 570
|
||||||
|
ExplicitLeft = 570
|
||||||
|
end
|
||||||
|
inherited ToolButton13: TToolButton [10]
|
||||||
|
Left = 587
|
||||||
|
ExplicitLeft = 587
|
||||||
|
end
|
||||||
|
inherited ToolButton7: TToolButton [11]
|
||||||
|
Left = 595
|
||||||
|
Top = 22
|
||||||
|
Wrap = False
|
||||||
|
ExplicitLeft = 595
|
||||||
ExplicitTop = 22
|
ExplicitTop = 22
|
||||||
end
|
end
|
||||||
inherited ToolButton12: TToolButton [12]
|
inherited ToolButton12: TToolButton [12]
|
||||||
@ -243,19 +249,15 @@ inherited fEditorPedidoCliente: TfEditorPedidoCliente
|
|||||||
inherited cxGrid: TcxGrid
|
inherited cxGrid: TcxGrid
|
||||||
Top = 99
|
Top = 99
|
||||||
Width = 618
|
Width = 618
|
||||||
Height = 309
|
Height = 237
|
||||||
ExplicitTop = 72
|
ExplicitWidth = 618
|
||||||
ExplicitWidth = 624
|
ExplicitHeight = 237
|
||||||
ExplicitHeight = 342
|
|
||||||
end
|
end
|
||||||
inherited TBXDock1: TSpTBXDock
|
inherited TBXDock1: TSpTBXDock
|
||||||
Top = 73
|
Top = 73
|
||||||
Width = 618
|
Width = 618
|
||||||
ExplicitTop = 46
|
ExplicitTop = 73
|
||||||
ExplicitWidth = 618
|
ExplicitWidth = 618
|
||||||
inherited TBXToolbar1: TSpTBXToolbar
|
|
||||||
ExplicitWidth = 618
|
|
||||||
end
|
|
||||||
end
|
end
|
||||||
inherited cxGridPopupMenu: TcxGridPopupMenu
|
inherited cxGridPopupMenu: TcxGridPopupMenu
|
||||||
PopupMenus = <
|
PopupMenus = <
|
||||||
@ -275,7 +277,7 @@ inherited fEditorPedidoCliente: TfEditorPedidoCliente
|
|||||||
Left = 0
|
Left = 0
|
||||||
Top = 0
|
Top = 0
|
||||||
Width = 618
|
Width = 618
|
||||||
Height = 408
|
Height = 336
|
||||||
Align = alClient
|
Align = alClient
|
||||||
Font.Charset = DEFAULT_CHARSET
|
Font.Charset = DEFAULT_CHARSET
|
||||||
Font.Color = clWindowText
|
Font.Color = clWindowText
|
||||||
@ -286,23 +288,23 @@ inherited fEditorPedidoCliente: TfEditorPedidoCliente
|
|||||||
TabOrder = 0
|
TabOrder = 0
|
||||||
ReadOnly = False
|
ReadOnly = False
|
||||||
ExplicitWidth = 618
|
ExplicitWidth = 618
|
||||||
ExplicitHeight = 408
|
ExplicitHeight = 336
|
||||||
inherited pnlSup: TPanel
|
inherited pnlSup: TPanel
|
||||||
Width = 618
|
Width = 618
|
||||||
ExplicitWidth = 624
|
ExplicitWidth = 618
|
||||||
inherited eIncidenciaActiva: TcxDBCheckBox
|
inherited eIncidenciaActiva: TcxDBCheckBox
|
||||||
ExplicitHeight = 21
|
ExplicitHeight = 21
|
||||||
end
|
end
|
||||||
end
|
end
|
||||||
inherited GroupBox1: TGroupBox
|
inherited GroupBox1: TGroupBox
|
||||||
Width = 618
|
Width = 618
|
||||||
Height = 380
|
Height = 308
|
||||||
ExplicitWidth = 618
|
ExplicitWidth = 618
|
||||||
ExplicitHeight = 380
|
ExplicitHeight = 308
|
||||||
inherited eIncidencias: TcxDBMemo
|
inherited eIncidencias: TcxDBMemo
|
||||||
ExplicitWidth = 601
|
ExplicitWidth = 601
|
||||||
ExplicitHeight = 353
|
ExplicitHeight = 279
|
||||||
Height = 353
|
Height = 279
|
||||||
Width = 601
|
Width = 601
|
||||||
end
|
end
|
||||||
end
|
end
|
||||||
@ -319,11 +321,11 @@ inherited fEditorPedidoCliente: TfEditorPedidoCliente
|
|||||||
ExplicitTop = 589
|
ExplicitTop = 589
|
||||||
ExplicitWidth = 632
|
ExplicitWidth = 632
|
||||||
end
|
end
|
||||||
inline frViewTotales1: TfrViewTotales [4]
|
inline frViewTotalesPedido1: TfrViewTotalesPedido [4]
|
||||||
Left = 0
|
Left = 0
|
||||||
Top = 518
|
Top = 446
|
||||||
Width = 632
|
Width = 632
|
||||||
Height = 71
|
Height = 143
|
||||||
Align = alBottom
|
Align = alBottom
|
||||||
Font.Charset = DEFAULT_CHARSET
|
Font.Charset = DEFAULT_CHARSET
|
||||||
Font.Color = clWindowText
|
Font.Color = clWindowText
|
||||||
@ -333,238 +335,122 @@ inherited fEditorPedidoCliente: TfEditorPedidoCliente
|
|||||||
ParentFont = False
|
ParentFont = False
|
||||||
TabOrder = 4
|
TabOrder = 4
|
||||||
ReadOnly = False
|
ReadOnly = False
|
||||||
ExplicitTop = 518
|
ExplicitTop = 446
|
||||||
ExplicitWidth = 632
|
ExplicitWidth = 632
|
||||||
ExplicitHeight = 71
|
ExplicitHeight = 143
|
||||||
inherited dxLayoutControl1: TdxLayoutControl
|
inherited dxLayoutControl1: TdxLayoutControl
|
||||||
Width = 632
|
Width = 632
|
||||||
Height = 71
|
Height = 143
|
||||||
LayoutLookAndFeel = dxLayoutOfficeLookAndFeel1
|
|
||||||
ExplicitWidth = 632
|
ExplicitWidth = 632
|
||||||
ExplicitHeight = 71
|
ExplicitHeight = 143
|
||||||
inherited Bevel3: TBevel
|
inherited Bevel3: TBevel
|
||||||
Left = 311
|
Height = 201
|
||||||
Top = 11
|
ExplicitHeight = 201
|
||||||
Width = 8
|
|
||||||
Height = 54
|
|
||||||
ExplicitLeft = 311
|
|
||||||
ExplicitTop = 11
|
|
||||||
ExplicitWidth = 8
|
|
||||||
ExplicitHeight = 54
|
|
||||||
end
|
end
|
||||||
inherited Bevel4: TBevel
|
inherited Bevel4: TBevel
|
||||||
Left = 414
|
Width = 206
|
||||||
Top = 53
|
|
||||||
Width = 21
|
|
||||||
Height = 9
|
Height = 9
|
||||||
ExplicitLeft = 414
|
ExplicitWidth = 206
|
||||||
ExplicitTop = 53
|
|
||||||
ExplicitWidth = 21
|
|
||||||
ExplicitHeight = 9
|
ExplicitHeight = 9
|
||||||
end
|
end
|
||||||
inherited ImporteDto: TcxDBCurrencyEdit
|
inherited ImporteDto: TcxDBCurrencyEdit
|
||||||
Left = 164
|
|
||||||
Top = 38
|
|
||||||
Style.LookAndFeel.SkinName = ''
|
Style.LookAndFeel.SkinName = ''
|
||||||
Style.IsFontAssigned = True
|
Style.IsFontAssigned = True
|
||||||
StyleDisabled.LookAndFeel.SkinName = ''
|
StyleDisabled.LookAndFeel.SkinName = ''
|
||||||
StyleFocused.LookAndFeel.SkinName = ''
|
StyleFocused.LookAndFeel.SkinName = ''
|
||||||
StyleHot.LookAndFeel.SkinName = ''
|
StyleHot.LookAndFeel.SkinName = ''
|
||||||
ExplicitLeft = 164
|
|
||||||
ExplicitTop = 38
|
|
||||||
ExplicitWidth = 93
|
|
||||||
Width = 93
|
|
||||||
end
|
end
|
||||||
inherited ImporteIVA: TcxDBCurrencyEdit
|
inherited ImporteIVA: TcxDBCurrencyEdit
|
||||||
Left = 485
|
|
||||||
Top = 88
|
|
||||||
Style.LookAndFeel.SkinName = ''
|
Style.LookAndFeel.SkinName = ''
|
||||||
Style.IsFontAssigned = True
|
Style.IsFontAssigned = True
|
||||||
StyleDisabled.LookAndFeel.SkinName = ''
|
StyleDisabled.LookAndFeel.SkinName = ''
|
||||||
StyleFocused.LookAndFeel.SkinName = ''
|
StyleFocused.LookAndFeel.SkinName = ''
|
||||||
StyleHot.LookAndFeel.SkinName = ''
|
StyleHot.LookAndFeel.SkinName = ''
|
||||||
ExplicitLeft = 485
|
|
||||||
ExplicitTop = 88
|
|
||||||
ExplicitWidth = 137
|
|
||||||
Width = 137
|
|
||||||
end
|
end
|
||||||
inherited ImporteTotal: TcxDBCurrencyEdit
|
inherited ImporteTotal: TcxDBCurrencyEdit
|
||||||
Left = 414
|
|
||||||
Top = 142
|
|
||||||
Style.LookAndFeel.SkinName = ''
|
Style.LookAndFeel.SkinName = ''
|
||||||
Style.IsFontAssigned = True
|
Style.IsFontAssigned = True
|
||||||
StyleDisabled.LookAndFeel.SkinName = ''
|
StyleDisabled.LookAndFeel.SkinName = ''
|
||||||
StyleFocused.LookAndFeel.SkinName = ''
|
StyleFocused.LookAndFeel.SkinName = ''
|
||||||
StyleHot.LookAndFeel.SkinName = ''
|
StyleHot.LookAndFeel.SkinName = ''
|
||||||
ExplicitLeft = 414
|
ExplicitWidth = 90
|
||||||
ExplicitTop = 142
|
Width = 90
|
||||||
ExplicitWidth = 137
|
|
||||||
Width = 137
|
|
||||||
end
|
end
|
||||||
inherited edtDescuento: TcxDBSpinEdit
|
inherited edtDescuento: TcxDBSpinEdit
|
||||||
Left = 93
|
|
||||||
Top = 38
|
|
||||||
Style.LookAndFeel.SkinName = ''
|
Style.LookAndFeel.SkinName = ''
|
||||||
Style.ButtonStyle = bts3D
|
|
||||||
Style.IsFontAssigned = True
|
Style.IsFontAssigned = True
|
||||||
StyleDisabled.LookAndFeel.SkinName = ''
|
StyleDisabled.LookAndFeel.SkinName = ''
|
||||||
StyleFocused.LookAndFeel.SkinName = ''
|
StyleFocused.LookAndFeel.SkinName = ''
|
||||||
StyleHot.LookAndFeel.SkinName = ''
|
StyleHot.LookAndFeel.SkinName = ''
|
||||||
ExplicitLeft = 93
|
|
||||||
ExplicitTop = 38
|
|
||||||
end
|
end
|
||||||
inherited edtIVA: TcxDBSpinEdit
|
inherited edtIVA: TcxDBSpinEdit
|
||||||
Left = 414
|
|
||||||
Top = 88
|
|
||||||
Style.LookAndFeel.SkinName = ''
|
Style.LookAndFeel.SkinName = ''
|
||||||
Style.ButtonStyle = bts3D
|
|
||||||
Style.IsFontAssigned = True
|
Style.IsFontAssigned = True
|
||||||
StyleDisabled.LookAndFeel.SkinName = ''
|
StyleDisabled.LookAndFeel.SkinName = ''
|
||||||
StyleFocused.LookAndFeel.SkinName = ''
|
StyleFocused.LookAndFeel.SkinName = ''
|
||||||
StyleHot.LookAndFeel.SkinName = ''
|
StyleHot.LookAndFeel.SkinName = ''
|
||||||
ExplicitLeft = 414
|
|
||||||
ExplicitTop = 88
|
|
||||||
end
|
end
|
||||||
inherited ImporteBase: TcxDBCurrencyEdit
|
inherited ImporteBase: TcxDBCurrencyEdit
|
||||||
Left = 414
|
DataBinding.DataField = 'IMPORTE_NETO'
|
||||||
Top = 11
|
|
||||||
Style.LookAndFeel.SkinName = ''
|
Style.LookAndFeel.SkinName = ''
|
||||||
Style.IsFontAssigned = True
|
Style.IsFontAssigned = True
|
||||||
StyleDisabled.LookAndFeel.SkinName = ''
|
StyleDisabled.LookAndFeel.SkinName = ''
|
||||||
StyleFocused.LookAndFeel.SkinName = ''
|
StyleFocused.LookAndFeel.SkinName = ''
|
||||||
StyleHot.LookAndFeel.SkinName = ''
|
StyleHot.LookAndFeel.SkinName = ''
|
||||||
ExplicitLeft = 414
|
|
||||||
ExplicitTop = 11
|
|
||||||
ExplicitWidth = 92
|
|
||||||
Width = 92
|
|
||||||
end
|
end
|
||||||
inherited edtRE: TcxDBSpinEdit
|
inherited edtRE: TcxDBSpinEdit
|
||||||
Left = 414
|
|
||||||
Top = 115
|
|
||||||
DataBinding.DataField = ''
|
|
||||||
DataBinding.DataSource = nil
|
|
||||||
Style.LookAndFeel.SkinName = ''
|
Style.LookAndFeel.SkinName = ''
|
||||||
Style.ButtonStyle = bts3D
|
|
||||||
Style.IsFontAssigned = True
|
Style.IsFontAssigned = True
|
||||||
StyleDisabled.LookAndFeel.SkinName = ''
|
StyleDisabled.LookAndFeel.SkinName = ''
|
||||||
StyleFocused.LookAndFeel.SkinName = ''
|
StyleFocused.LookAndFeel.SkinName = ''
|
||||||
StyleHot.LookAndFeel.SkinName = ''
|
StyleHot.LookAndFeel.SkinName = ''
|
||||||
ExplicitLeft = 414
|
|
||||||
ExplicitTop = 115
|
|
||||||
end
|
end
|
||||||
inherited ImporteRE: TcxDBCurrencyEdit
|
inherited ImporteRE: TcxDBCurrencyEdit
|
||||||
Left = 485
|
|
||||||
Top = 115
|
|
||||||
DataBinding.DataField = ''
|
|
||||||
DataBinding.DataSource = nil
|
|
||||||
Style.LookAndFeel.SkinName = ''
|
Style.LookAndFeel.SkinName = ''
|
||||||
Style.IsFontAssigned = True
|
Style.IsFontAssigned = True
|
||||||
StyleDisabled.LookAndFeel.SkinName = ''
|
StyleDisabled.LookAndFeel.SkinName = ''
|
||||||
StyleFocused.LookAndFeel.SkinName = ''
|
StyleFocused.LookAndFeel.SkinName = ''
|
||||||
StyleHot.LookAndFeel.SkinName = ''
|
StyleHot.LookAndFeel.SkinName = ''
|
||||||
ExplicitLeft = 485
|
|
||||||
ExplicitTop = 115
|
|
||||||
ExplicitWidth = 56
|
|
||||||
Width = 56
|
|
||||||
end
|
end
|
||||||
inherited eImporteNeto: TcxDBCurrencyEdit
|
inherited eImporteNeto: TcxDBCurrencyEdit
|
||||||
Left = 93
|
|
||||||
Top = 11
|
|
||||||
Style.LookAndFeel.SkinName = ''
|
Style.LookAndFeel.SkinName = ''
|
||||||
Style.IsFontAssigned = True
|
Style.IsFontAssigned = True
|
||||||
StyleDisabled.LookAndFeel.SkinName = ''
|
StyleDisabled.LookAndFeel.SkinName = ''
|
||||||
StyleFocused.LookAndFeel.SkinName = ''
|
StyleFocused.LookAndFeel.SkinName = ''
|
||||||
StyleHot.LookAndFeel.SkinName = ''
|
StyleHot.LookAndFeel.SkinName = ''
|
||||||
ExplicitLeft = 93
|
|
||||||
ExplicitTop = 11
|
|
||||||
ExplicitWidth = 147
|
|
||||||
Width = 147
|
|
||||||
end
|
end
|
||||||
inherited ePorte: TcxDBCurrencyEdit
|
inherited ePorte: TcxDBCurrencyEdit
|
||||||
Left = 93
|
|
||||||
Top = 65
|
|
||||||
Properties.OnValidate = frViewTotales1ePortePropertiesValidate
|
|
||||||
Style.LookAndFeel.SkinName = ''
|
Style.LookAndFeel.SkinName = ''
|
||||||
Style.IsFontAssigned = True
|
Style.IsFontAssigned = True
|
||||||
StyleDisabled.LookAndFeel.SkinName = ''
|
StyleDisabled.LookAndFeel.SkinName = ''
|
||||||
StyleFocused.LookAndFeel.SkinName = ''
|
StyleFocused.LookAndFeel.SkinName = ''
|
||||||
StyleHot.LookAndFeel.SkinName = ''
|
StyleHot.LookAndFeel.SkinName = ''
|
||||||
ExplicitLeft = 93
|
|
||||||
ExplicitTop = 65
|
|
||||||
ExplicitWidth = 147
|
|
||||||
Width = 147
|
|
||||||
end
|
end
|
||||||
inherited eIVA: TcxDBLookupComboBox
|
inherited eIVA: TcxDBLookupComboBox
|
||||||
Left = 93
|
|
||||||
Top = 92
|
|
||||||
DataBinding.DataField = ''
|
|
||||||
DataBinding.DataSource = nil
|
|
||||||
Style.LookAndFeel.SkinName = ''
|
Style.LookAndFeel.SkinName = ''
|
||||||
Style.ButtonStyle = bts3D
|
|
||||||
Style.PopupBorderStyle = epbsFrame3D
|
|
||||||
StyleDisabled.LookAndFeel.SkinName = ''
|
StyleDisabled.LookAndFeel.SkinName = ''
|
||||||
StyleFocused.LookAndFeel.SkinName = ''
|
StyleFocused.LookAndFeel.SkinName = ''
|
||||||
StyleHot.LookAndFeel.SkinName = ''
|
StyleHot.LookAndFeel.SkinName = ''
|
||||||
ExplicitLeft = 93
|
|
||||||
ExplicitTop = 92
|
|
||||||
ExplicitWidth = 81
|
|
||||||
Width = 81
|
|
||||||
end
|
|
||||||
inherited bTiposIVA: TButton
|
|
||||||
Left = 163
|
|
||||||
Top = 92
|
|
||||||
ExplicitLeft = 163
|
|
||||||
ExplicitTop = 92
|
|
||||||
end
|
end
|
||||||
inherited cbRecargoEquivalencia: TcxDBCheckBox
|
inherited cbRecargoEquivalencia: TcxDBCheckBox
|
||||||
Left = 93
|
|
||||||
Top = 119
|
|
||||||
DataBinding.DataField = ''
|
|
||||||
Style.LookAndFeel.SkinName = ''
|
Style.LookAndFeel.SkinName = ''
|
||||||
StyleDisabled.LookAndFeel.SkinName = ''
|
StyleDisabled.LookAndFeel.SkinName = ''
|
||||||
StyleFocused.LookAndFeel.SkinName = ''
|
StyleFocused.LookAndFeel.SkinName = ''
|
||||||
StyleHot.LookAndFeel.SkinName = ''
|
StyleHot.LookAndFeel.SkinName = ''
|
||||||
ExplicitLeft = 93
|
ExplicitWidth = 221
|
||||||
ExplicitTop = 119
|
Width = 221
|
||||||
ExplicitWidth = 219
|
|
||||||
Width = 219
|
|
||||||
end
|
|
||||||
inherited dxLayoutControl1Group_Root: TdxLayoutGroup
|
|
||||||
inherited dxLayoutControl1Group1: TdxLayoutGroup
|
|
||||||
CaptionOptions.Visible = False
|
|
||||||
ShowBorder = False
|
|
||||||
inherited dxLayoutControl1Group2: TdxLayoutGroup
|
|
||||||
inherited dxLayoutControl1Group7: TdxLayoutGroup
|
|
||||||
Visible = False
|
|
||||||
end
|
|
||||||
inherited dxLayoutControl1Group6: TdxLayoutGroup
|
|
||||||
Visible = False
|
|
||||||
end
|
|
||||||
inherited dxLayoutControl1Item16: TdxLayoutItem
|
|
||||||
Visible = False
|
|
||||||
end
|
|
||||||
end
|
|
||||||
inherited dxLayoutControl1Group5: TdxLayoutGroup
|
|
||||||
inherited dxLayoutControl1Group3: TdxLayoutGroup
|
|
||||||
inherited dxLayoutControl1Item12: TdxLayoutItem
|
|
||||||
Visible = False
|
|
||||||
end
|
|
||||||
inherited dxLayoutControl1Item14: TdxLayoutItem
|
|
||||||
Visible = False
|
|
||||||
end
|
|
||||||
inherited dxLayoutControl1Group9: TdxLayoutGroup
|
|
||||||
Visible = False
|
|
||||||
end
|
|
||||||
inherited dxLayoutControl1Group8: TdxLayoutGroup
|
|
||||||
Visible = False
|
|
||||||
end
|
|
||||||
end
|
|
||||||
end
|
|
||||||
end
|
|
||||||
end
|
end
|
||||||
end
|
end
|
||||||
end
|
end
|
||||||
inherited EditorActionList: TActionList [5]
|
inherited EditorActionList: TActionList [5]
|
||||||
|
inherited actNuevo: TAction
|
||||||
|
Enabled = False
|
||||||
|
Visible = False
|
||||||
|
end
|
||||||
|
inherited actModificar: TAction
|
||||||
|
Enabled = False
|
||||||
|
Visible = False
|
||||||
|
end
|
||||||
end
|
end
|
||||||
inherited SmallImages: TPngImageList [6]
|
inherited SmallImages: TPngImageList [6]
|
||||||
end
|
end
|
||||||
|
|||||||
@ -12,11 +12,12 @@ uses
|
|||||||
uViewIncidencias,
|
uViewIncidencias,
|
||||||
uPedidosClienteController,
|
uPedidosClienteController,
|
||||||
uViewDetallesBase, uViewDetallesPedidoCliente,
|
uViewDetallesBase, uViewDetallesPedidoCliente,
|
||||||
dxLayoutLookAndFeels, JvExComCtrls, JvStatusBar, uViewTotales,
|
dxLayoutLookAndFeels, JvExComCtrls, JvStatusBar,
|
||||||
uIEditorPedidoCliente, uBizPedidosCliente, uViewPedidoCliente,
|
uIEditorPedidoCliente, uBizPedidosCliente, uViewPedidoCliente,
|
||||||
uViewDetallesDTO, uViewDetallesArticulos, cxGraphics, cxLookAndFeels,
|
uViewDetallesDTO, uViewDetallesArticulos, cxGraphics, cxLookAndFeels,
|
||||||
cxLookAndFeelPainters, uDAInterfaces, PngImageList, StdActns, ActnList,
|
cxLookAndFeelPainters, uDAInterfaces, PngImageList, StdActns, ActnList,
|
||||||
ComCtrls, SpTBXItem, TB2Item, TB2Dock, cxLabel;
|
ComCtrls, SpTBXItem, TB2Item, TB2Dock, cxLabel, uViewTotalesPedido,
|
||||||
|
uViewTotales, uViewDetallesArticulosParaVenta;
|
||||||
|
|
||||||
type
|
type
|
||||||
TfEditorPedidoCliente = class(TfEditorDBItem, IEditorPedidoCliente)
|
TfEditorPedidoCliente = class(TfEditorDBItem, IEditorPedidoCliente)
|
||||||
@ -26,7 +27,7 @@ type
|
|||||||
dxLayoutLookAndFeelList1: TdxLayoutLookAndFeelList;
|
dxLayoutLookAndFeelList1: TdxLayoutLookAndFeelList;
|
||||||
dxLayoutOfficeLookAndFeel1: TdxLayoutOfficeLookAndFeel;
|
dxLayoutOfficeLookAndFeel1: TdxLayoutOfficeLookAndFeel;
|
||||||
frViewDetallesPedidoCliente1: TfrViewDetallesPedidoCliente;
|
frViewDetallesPedidoCliente1: TfrViewDetallesPedidoCliente;
|
||||||
frViewTotales1: TfrViewTotales;
|
frViewTotalesPedido1: TfrViewTotalesPedido;
|
||||||
|
|
||||||
procedure FormShow(Sender: TObject);
|
procedure FormShow(Sender: TObject);
|
||||||
procedure CustomEditorClose(Sender: TObject; var Action: TCloseAction);
|
procedure CustomEditorClose(Sender: TObject; var Action: TCloseAction);
|
||||||
@ -212,10 +213,14 @@ begin
|
|||||||
begin
|
begin
|
||||||
FPedido.Cliente := ViewPedido.ViewClientePedido.Cliente;
|
FPedido.Cliente := ViewPedido.ViewClientePedido.Cliente;
|
||||||
|
|
||||||
|
// Avisar si no hay datos bancarios
|
||||||
|
// if not AClientesController.TieneDatosBancarios(FAlbaran.Cliente) then
|
||||||
|
// ShowWarningMessage('Este cliente no tiene datos bancarios en su ficha');
|
||||||
|
|
||||||
if Assigned(ViewPedido) then
|
if Assigned(ViewPedido) then
|
||||||
begin
|
begin
|
||||||
// ViewPedido.RellenarCuentasBancarias;
|
ViewPedido.RellenarCuentasBancarias;
|
||||||
// ViewPedido.AsignarCuentaBancaria;
|
ViewPedido.AsignarCuentaBancaria;
|
||||||
end;
|
end;
|
||||||
|
|
||||||
{
|
{
|
||||||
@ -313,7 +318,7 @@ begin
|
|||||||
|
|
||||||
if Assigned(FController) then
|
if Assigned(FController) then
|
||||||
begin
|
begin
|
||||||
// ViewPedido.ViewClientePedido.Controller := Controller.ClienteController;
|
ViewPedido.Controller := FController;
|
||||||
frViewDetallesPedidoCliente1.Controller := Controller.DetallesController;
|
frViewDetallesPedidoCliente1.Controller := Controller.DetallesController;
|
||||||
end;
|
end;
|
||||||
end;
|
end;
|
||||||
@ -326,14 +331,32 @@ begin
|
|||||||
begin
|
begin
|
||||||
dsDataTable.DataTable := FPedido.DataTable;
|
dsDataTable.DataTable := FPedido.DataTable;
|
||||||
frViewIncidenciasCli.DADataSource.DataTable := dsDataTable.DataTable;
|
frViewIncidenciasCli.DADataSource.DataTable := dsDataTable.DataTable;
|
||||||
frViewTotales1.DADataSource.DataTable := dsDataTable.DataTable;
|
frViewTotalesPedido1.DADataSource.DataTable := dsDataTable.DataTable;
|
||||||
|
|
||||||
if Assigned(FViewPedido) then
|
if Assigned(FViewPedido) then
|
||||||
begin
|
begin
|
||||||
|
ViewPedido.ViewClientePedido.OnClienteChanged := Nil;
|
||||||
|
try
|
||||||
FViewPedido.Pedido := FPedido;
|
FViewPedido.Pedido := FPedido;
|
||||||
ViewPedido.ViewClientePedido.Cliente := FPedido.Cliente;
|
|
||||||
ViewPedido.ViewClientePedido.OnClienteChanged := OnClienteChanged;
|
|
||||||
frViewDetallesPedidoCliente1.Detalles := FPedido.Detalles;
|
frViewDetallesPedidoCliente1.Detalles := FPedido.Detalles;
|
||||||
frViewDetallesPedidoCliente1.Pedido := FPedido; //Para poder sacar los descuento del articulos segun el cliente seleccionado
|
frViewDetallesPedidoCliente1.Pedido := FPedido; //Para poder sacar los descuento del articulos segun el cliente seleccionado
|
||||||
|
finally
|
||||||
|
ViewPedido.ViewClientePedido.OnClienteChanged := OnClienteChanged;
|
||||||
|
end;
|
||||||
|
end;
|
||||||
|
end
|
||||||
|
else
|
||||||
|
begin
|
||||||
|
dsDataTable.DataTable := NIL;
|
||||||
|
frViewIncidenciasCli.DADataSource.DataTable := NIL;
|
||||||
|
frViewTotalesPedido1.DADataSource.DataTable := NIL;
|
||||||
|
|
||||||
|
if Assigned(FViewPedido) then
|
||||||
|
begin
|
||||||
|
FViewPedido.Pedido := NIL;
|
||||||
|
ViewPedido.ViewClientePedido.OnClienteChanged := NIL;
|
||||||
|
frViewDetallesPedidoCliente1.Detalles := NIL;
|
||||||
|
frViewDetallesPedidoCliente1.Pedido := NIL;
|
||||||
end;
|
end;
|
||||||
end;
|
end;
|
||||||
end;
|
end;
|
||||||
|
|||||||
@ -2,7 +2,6 @@ inherited fEditorPedidosCliente: TfEditorPedidosCliente
|
|||||||
Caption = 'Lista de pedidos de cliente'
|
Caption = 'Lista de pedidos de cliente'
|
||||||
ClientWidth = 674
|
ClientWidth = 674
|
||||||
ExplicitWidth = 682
|
ExplicitWidth = 682
|
||||||
ExplicitHeight = 240
|
|
||||||
PixelsPerInch = 96
|
PixelsPerInch = 96
|
||||||
TextHeight = 13
|
TextHeight = 13
|
||||||
inherited JvNavPanelHeader: TJvNavPanelHeader
|
inherited JvNavPanelHeader: TJvNavPanelHeader
|
||||||
@ -125,7 +124,7 @@ inherited fEditorPedidosCliente: TfEditorPedidosCliente
|
|||||||
Width = 674
|
Width = 674
|
||||||
ExplicitWidth = 674
|
ExplicitWidth = 674
|
||||||
inherited tbxMain: TSpTBXToolbar
|
inherited tbxMain: TSpTBXToolbar
|
||||||
ExplicitWidth = 674
|
ExplicitWidth = 632
|
||||||
end
|
end
|
||||||
inherited tbxMenu: TSpTBXToolbar
|
inherited tbxMenu: TSpTBXToolbar
|
||||||
ExplicitWidth = 674
|
ExplicitWidth = 674
|
||||||
@ -145,6 +144,10 @@ inherited fEditorPedidosCliente: TfEditorPedidosCliente
|
|||||||
inherited actImprimir: TAction
|
inherited actImprimir: TAction
|
||||||
Visible = True
|
Visible = True
|
||||||
end
|
end
|
||||||
|
inherited actExportarExcel: TAction
|
||||||
|
Enabled = False
|
||||||
|
Visible = False
|
||||||
|
end
|
||||||
object actGenerarAlbaranCli: TAction
|
object actGenerarAlbaranCli: TAction
|
||||||
Category = 'Acciones'
|
Category = 'Acciones'
|
||||||
Caption = 'Generar albar'#225'n de cliente'
|
Caption = 'Generar albar'#225'n de cliente'
|
||||||
|
|||||||
@ -1,13 +1,13 @@
|
|||||||
inherited frViewDatosYSeleccionClientePedido: TfrViewDatosYSeleccionClientePedido
|
inherited frViewDatosYSeleccionClientePedido: TfrViewDatosYSeleccionClientePedido
|
||||||
Width = 646
|
Width = 387
|
||||||
Height = 245
|
Height = 442
|
||||||
ExplicitWidth = 646
|
ExplicitWidth = 387
|
||||||
ExplicitHeight = 245
|
ExplicitHeight = 442
|
||||||
object dxLayoutControl1: TdxLayoutControl
|
object dxLayoutControl1: TdxLayoutControl
|
||||||
Left = 0
|
Left = 0
|
||||||
Top = 0
|
Top = 0
|
||||||
Width = 646
|
Width = 387
|
||||||
Height = 245
|
Height = 442
|
||||||
Margins.Left = 0
|
Margins.Left = 0
|
||||||
Margins.Top = 0
|
Margins.Top = 0
|
||||||
Margins.Right = 0
|
Margins.Right = 0
|
||||||
@ -17,9 +17,11 @@ inherited frViewDatosYSeleccionClientePedido: TfrViewDatosYSeleccionClientePedid
|
|||||||
TabOrder = 0
|
TabOrder = 0
|
||||||
TabStop = False
|
TabStop = False
|
||||||
LayoutLookAndFeel = dmBase.dxLayoutSkinLookAndFeel
|
LayoutLookAndFeel = dmBase.dxLayoutSkinLookAndFeel
|
||||||
|
ExplicitWidth = 386
|
||||||
|
ExplicitHeight = 245
|
||||||
DesignSize = (
|
DesignSize = (
|
||||||
646
|
387
|
||||||
245)
|
442)
|
||||||
object edtlNombre: TcxDBTextEdit
|
object edtlNombre: TcxDBTextEdit
|
||||||
Left = 63
|
Left = 63
|
||||||
Top = 41
|
Top = 41
|
||||||
@ -45,7 +47,7 @@ inherited frViewDatosYSeleccionClientePedido: TfrViewDatosYSeleccionClientePedid
|
|||||||
Width = 224
|
Width = 224
|
||||||
end
|
end
|
||||||
object edtNIFCIF: TcxDBTextEdit
|
object edtNIFCIF: TcxDBTextEdit
|
||||||
Left = 533
|
Left = 274
|
||||||
Top = 41
|
Top = 41
|
||||||
Anchors = [akLeft, akTop, akRight]
|
Anchors = [akLeft, akTop, akRight]
|
||||||
AutoSize = False
|
AutoSize = False
|
||||||
@ -157,7 +159,7 @@ inherited frViewDatosYSeleccionClientePedido: TfrViewDatosYSeleccionClientePedid
|
|||||||
FF00FF00FF00006000000060000000600000FF00FF00FF00FF00}
|
FF00FF00FF00006000000060000000600000FF00FF00FF00FF00}
|
||||||
end
|
end
|
||||||
object Button3: TBitBtn
|
object Button3: TBitBtn
|
||||||
Left = 444
|
Left = 185
|
||||||
Top = 158
|
Top = 158
|
||||||
Width = 192
|
Width = 192
|
||||||
Height = 25
|
Height = 25
|
||||||
@ -220,7 +222,7 @@ inherited frViewDatosYSeleccionClientePedido: TfrViewDatosYSeleccionClientePedid
|
|||||||
StyleHot.LookAndFeel.SkinName = ''
|
StyleHot.LookAndFeel.SkinName = ''
|
||||||
TabOrder = 6
|
TabOrder = 6
|
||||||
Height = 21
|
Height = 21
|
||||||
Width = 283
|
Width = 200
|
||||||
end
|
end
|
||||||
object edtDireccion: TcxMemo
|
object edtDireccion: TcxMemo
|
||||||
Left = 63
|
Left = 63
|
||||||
@ -241,10 +243,10 @@ inherited frViewDatosYSeleccionClientePedido: TfrViewDatosYSeleccionClientePedid
|
|||||||
StyleHot.LookAndFeel.SkinName = ''
|
StyleHot.LookAndFeel.SkinName = ''
|
||||||
TabOrder = 4
|
TabOrder = 4
|
||||||
Height = 53
|
Height = 53
|
||||||
Width = 403
|
Width = 200
|
||||||
end
|
end
|
||||||
object Button4: TButton
|
object Button4: TButton
|
||||||
Left = 613
|
Left = 354
|
||||||
Top = 68
|
Top = 68
|
||||||
Width = 23
|
Width = 23
|
||||||
Height = 25
|
Height = 25
|
||||||
@ -252,7 +254,7 @@ inherited frViewDatosYSeleccionClientePedido: TfrViewDatosYSeleccionClientePedid
|
|||||||
TabOrder = 5
|
TabOrder = 5
|
||||||
end
|
end
|
||||||
object Button5: TButton
|
object Button5: TButton
|
||||||
Left = 613
|
Left = 354
|
||||||
Top = 127
|
Top = 127
|
||||||
Width = 23
|
Width = 23
|
||||||
Height = 25
|
Height = 25
|
||||||
@ -303,7 +305,7 @@ inherited frViewDatosYSeleccionClientePedido: TfrViewDatosYSeleccionClientePedid
|
|||||||
ControlOptions.ShowBorder = False
|
ControlOptions.ShowBorder = False
|
||||||
end
|
end
|
||||||
object dxLayoutControl1Item2: TdxLayoutItem
|
object dxLayoutControl1Item2: TdxLayoutItem
|
||||||
AlignHorz = ahRight
|
AlignHorz = ahLeft
|
||||||
CaptionOptions.Text = 'NIF/CIF:'
|
CaptionOptions.Text = 'NIF/CIF:'
|
||||||
Control = edtNIFCIF
|
Control = edtNIFCIF
|
||||||
ControlOptions.ShowBorder = False
|
ControlOptions.ShowBorder = False
|
||||||
|
|||||||
@ -322,13 +322,14 @@ begin
|
|||||||
if FCliente.ID > 0 then
|
if FCliente.ID > 0 then
|
||||||
edtPersonaContacto.Enabled := True;
|
edtPersonaContacto.Enabled := True;
|
||||||
|
|
||||||
if FCliente.Direcciones.RecordCount > 0 then
|
//En noviseda un cliente solo podrá tener una direccion de envio que nunca se tendrá en cuenta para los documentos (facturas, albaranes, etc) solo para las etiquetas y se hace por el informe
|
||||||
ElegirDireccionCliente
|
// if FCliente.Direcciones.RecordCount > 0 then
|
||||||
else begin
|
// ElegirDireccionCliente
|
||||||
// FPedido.Edit;
|
// else begin
|
||||||
// FPedido.PERSONA_CONTACTO := FCliente.PERSONA_CONTACTO;
|
FPedido.Edit;
|
||||||
// RefrescarDireccion;
|
FPedido.PERSONA_CONTACTO := FCliente.PERSONA_CONTACTO;
|
||||||
end;
|
RefrescarDireccion;
|
||||||
|
// end;
|
||||||
end
|
end
|
||||||
else begin
|
else begin
|
||||||
dsCliente.DataTable := NIL;
|
dsCliente.DataTable := NIL;
|
||||||
|
|||||||
@ -1,87 +1,100 @@
|
|||||||
inherited frViewDetallesPedidoCliente: TfrViewDetallesPedidoCliente
|
inherited frViewDetallesPedidoCliente: TfrViewDetallesPedidoCliente
|
||||||
inherited ToolBar1: TToolBar
|
inherited ToolBar1: TToolBar
|
||||||
Height = 95
|
inherited ToolButton11: TToolButton [11]
|
||||||
ExplicitHeight = 95
|
|
||||||
inherited FontName: TJvFontComboBox [4]
|
|
||||||
Left = 56
|
|
||||||
Top = 22
|
|
||||||
ExplicitLeft = 56
|
|
||||||
ExplicitTop = 22
|
|
||||||
end
|
|
||||||
inherited ToolButton14: TToolButton [5]
|
|
||||||
Left = 201
|
|
||||||
Wrap = False
|
|
||||||
ExplicitLeft = 201
|
|
||||||
end
|
|
||||||
inherited FontSize: TEdit
|
|
||||||
Left = 266
|
|
||||||
Top = 22
|
|
||||||
ExplicitLeft = 266
|
|
||||||
ExplicitTop = 22
|
|
||||||
end
|
|
||||||
inherited UpDown1: TUpDown
|
|
||||||
Left = 308
|
|
||||||
Top = 22
|
|
||||||
ExplicitLeft = 308
|
|
||||||
ExplicitTop = 22
|
|
||||||
end
|
|
||||||
inherited ToolButton13: TToolButton
|
|
||||||
Left = 325
|
|
||||||
Top = 22
|
|
||||||
ExplicitLeft = 325
|
|
||||||
ExplicitTop = 22
|
|
||||||
end
|
|
||||||
inherited ToolButton11: TToolButton [9]
|
|
||||||
Left = 333
|
|
||||||
Top = 22
|
|
||||||
ExplicitLeft = 333
|
|
||||||
ExplicitTop = 22
|
|
||||||
end
|
|
||||||
inherited ToolButton12: TToolButton [10]
|
|
||||||
Left = 0
|
Left = 0
|
||||||
Top = 22
|
|
||||||
Wrap = True
|
|
||||||
ExplicitLeft = 0
|
ExplicitLeft = 0
|
||||||
ExplicitTop = 22
|
|
||||||
ExplicitHeight = 27
|
|
||||||
end
|
end
|
||||||
inherited ToolButton9: TToolButton [11]
|
inherited ToolButton6: TToolButton [12]
|
||||||
Left = 0
|
Left = 141
|
||||||
Top = 49
|
ExplicitLeft = 141
|
||||||
ExplicitLeft = 0
|
|
||||||
ExplicitTop = 49
|
|
||||||
end
|
end
|
||||||
inherited ToolButton10: TToolButton [12]
|
inherited ToolButton8: TToolButton [13]
|
||||||
Left = 145
|
Left = 207
|
||||||
Top = 49
|
ExplicitLeft = 207
|
||||||
ExplicitLeft = 145
|
|
||||||
ExplicitTop = 49
|
|
||||||
end
|
end
|
||||||
inherited ToolButton6: TToolButton [13]
|
inherited FontSize: TEdit [14]
|
||||||
Left = 270
|
Left = 290
|
||||||
Top = 49
|
ExplicitLeft = 290
|
||||||
ExplicitLeft = 270
|
|
||||||
ExplicitTop = 49
|
|
||||||
end
|
end
|
||||||
inherited ToolButton7: TToolButton [14]
|
inherited UpDown1: TUpDown [15]
|
||||||
Left = 336
|
Left = 332
|
||||||
Top = 49
|
ExplicitLeft = 332
|
||||||
Wrap = True
|
|
||||||
ExplicitLeft = 336
|
|
||||||
ExplicitTop = 49
|
|
||||||
end
|
|
||||||
inherited ToolButton8: TToolButton [15]
|
|
||||||
Left = 0
|
|
||||||
Top = 71
|
|
||||||
ExplicitLeft = 0
|
|
||||||
ExplicitTop = 71
|
|
||||||
end
|
end
|
||||||
end
|
end
|
||||||
inherited cxGrid: TcxGrid
|
inherited cxGrid: TcxGrid
|
||||||
Top = 121
|
ExplicitTop = 121
|
||||||
Height = 183
|
inherited cxGridView: TcxGridDBTableView
|
||||||
|
inherited cxGridViewPOSICION: TcxGridDBColumn
|
||||||
|
Visible = True
|
||||||
|
end
|
||||||
|
inherited cxGridViewTIPO: TcxGridDBColumn
|
||||||
|
Visible = False
|
||||||
|
VisibleForCustomization = False
|
||||||
|
end
|
||||||
|
inherited cxGridViewCANTIDAD: TcxGridDBColumn
|
||||||
|
Visible = False
|
||||||
|
VisibleForCustomization = False
|
||||||
|
end
|
||||||
|
object cxGridViewCANTIDAD2: TcxGridDBColumn [10]
|
||||||
|
Caption = 'Cantidad'
|
||||||
|
DataBinding.FieldName = 'CANTIDAD'
|
||||||
|
PropertiesClassName = 'TcxButtonEditProperties'
|
||||||
|
Properties.Buttons = <
|
||||||
|
item
|
||||||
|
Default = True
|
||||||
|
Kind = bkEllipsis
|
||||||
|
end>
|
||||||
|
Properties.ReadOnly = True
|
||||||
|
Properties.OnButtonClick = cxGridViewCANTIDAD2PropertiesButtonClick
|
||||||
|
HeaderAlignmentHorz = taRightJustify
|
||||||
|
end
|
||||||
|
inherited cxGridViewUNIDAD_MEDIDA: TcxGridDBColumn
|
||||||
|
Visible = False
|
||||||
|
VisibleForCustomization = False
|
||||||
|
end
|
||||||
|
end
|
||||||
end
|
end
|
||||||
inherited TBXDock1: TSpTBXDock
|
inherited TBXDock1: TSpTBXDock
|
||||||
Top = 95
|
inherited TBXToolbar1: TSpTBXToolbar
|
||||||
|
ExplicitWidth = 447
|
||||||
|
inherited TBXSubmenuItem1: TSpTBXSubmenuItem
|
||||||
|
Enabled = False
|
||||||
|
Visible = False
|
||||||
|
end
|
||||||
|
end
|
||||||
|
end
|
||||||
|
inherited ActionListContenido: TActionList
|
||||||
|
inherited RichEditBold1: TRichEditBold
|
||||||
|
Enabled = False
|
||||||
|
Visible = False
|
||||||
|
end
|
||||||
|
inherited RichEditItalic1: TRichEditItalic
|
||||||
|
Enabled = False
|
||||||
|
Visible = False
|
||||||
|
end
|
||||||
|
inherited RichEditUnderline1: TRichEditUnderline
|
||||||
|
Enabled = False
|
||||||
|
Visible = False
|
||||||
|
end
|
||||||
|
inherited RichEditAlignLeft1: TRichEditAlignLeft
|
||||||
|
Enabled = False
|
||||||
|
Visible = False
|
||||||
|
end
|
||||||
|
inherited RichEditAlignCenter1: TRichEditAlignCenter
|
||||||
|
Enabled = False
|
||||||
|
Visible = False
|
||||||
|
end
|
||||||
|
inherited RichEditAlignRight1: TRichEditAlignRight
|
||||||
|
Enabled = False
|
||||||
|
Visible = False
|
||||||
|
end
|
||||||
|
inherited FontEdit1: TFontEdit
|
||||||
|
Enabled = False
|
||||||
|
Visible = False
|
||||||
|
end
|
||||||
|
inherited actExportar: TAction
|
||||||
|
Enabled = False
|
||||||
|
Visible = False
|
||||||
|
end
|
||||||
end
|
end
|
||||||
end
|
end
|
||||||
|
|||||||
@ -4,7 +4,7 @@ interface
|
|||||||
|
|
||||||
uses
|
uses
|
||||||
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
|
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
|
||||||
Dialogs, uViewDetallesArticulos, cxStyles, cxCustomData, cxGraphics, cxFilter,
|
Dialogs, uViewDetallesArticulosParaVenta, cxStyles, cxCustomData, cxGraphics, cxFilter,
|
||||||
cxData, cxDataStorage, cxEdit, DB, cxDBData, ImgList, PngImageList,
|
cxData, cxDataStorage, cxEdit, DB, cxDBData, ImgList, PngImageList,
|
||||||
uDADataTable, ActnList, ComCtrls, ToolWin, cxGridLevel, cxClasses, cxControls,
|
uDADataTable, ActnList, ComCtrls, ToolWin, cxGridLevel, cxClasses, cxControls,
|
||||||
cxGridCustomView, cxGridCustomTableView, cxGridTableView, cxGridDBTableView,
|
cxGridCustomView, cxGridCustomTableView, cxGridTableView, cxGridDBTableView,
|
||||||
@ -13,7 +13,7 @@ uses
|
|||||||
cxLookAndFeelPainters, cxButtonEdit, cxDropDownEdit, cxEditRepositoryItems,
|
cxLookAndFeelPainters, cxButtonEdit, cxDropDownEdit, cxEditRepositoryItems,
|
||||||
Menus, cxGridCustomPopupMenu, cxGridPopupMenu, uDAInterfaces, SpTBXItem,
|
Menus, cxGridCustomPopupMenu, cxGridPopupMenu, uDAInterfaces, SpTBXItem,
|
||||||
cxRichEdit, StdActns, ExtActns, TB2Item, TB2Dock, TB2Toolbar, StdCtrls,
|
cxRichEdit, StdActns, ExtActns, TB2Item, TB2Dock, TB2Toolbar, StdCtrls,
|
||||||
JvExStdCtrls, JvCombobox, JvColorCombo;
|
JvExStdCtrls, JvCombobox, JvColorCombo, uViewDetallesArticulos;
|
||||||
|
|
||||||
type
|
type
|
||||||
IViewDetallesPedidoCliente = interface(IViewDetallesArticulos)
|
IViewDetallesPedidoCliente = interface(IViewDetallesArticulos)
|
||||||
@ -23,7 +23,10 @@ type
|
|||||||
property Pedido: IBizPedidoCliente read GetPedido write SetPedido;
|
property Pedido: IBizPedidoCliente read GetPedido write SetPedido;
|
||||||
end;
|
end;
|
||||||
|
|
||||||
TfrViewDetallesPedidoCliente = class(TfrViewDetallesArticulos, IViewDetallesPedidoCliente)
|
TfrViewDetallesPedidoCliente = class(TfrViewDetallesArticulosParaVenta, IViewDetallesPedidoCliente)
|
||||||
|
cxGridViewCANTIDAD2: TcxGridDBColumn;
|
||||||
|
procedure cxGridViewCANTIDAD2PropertiesButtonClick(Sender: TObject; AButtonIndex: Integer);
|
||||||
|
|
||||||
protected
|
protected
|
||||||
FPedido: IBizPedidoCliente;
|
FPedido: IBizPedidoCliente;
|
||||||
function GetPedido: IBizPedidoCliente;
|
function GetPedido: IBizPedidoCliente;
|
||||||
@ -46,12 +49,18 @@ uses uDetallesPedidoClienteController;
|
|||||||
|
|
||||||
function TfrViewDetallesPedidoCliente.AnadirArticulo(pReferencia: String; TipoReferencia: TEnumReferencia): Boolean;
|
function TfrViewDetallesPedidoCliente.AnadirArticulo(pReferencia: String; TipoReferencia: TEnumReferencia): Boolean;
|
||||||
begin
|
begin
|
||||||
Result := (Controller as IDetallesPedidoClienteController).AnadirArticulo(Detalles, pReferencia, TipoReferencia, Pedido.Cliente.ID);
|
Result := (Controller as IDetallesPedidoClienteController).AnadirArticulo(Detalles, pReferencia, TipoReferencia, Pedido.Cliente.ID, 0);
|
||||||
end;
|
end;
|
||||||
|
|
||||||
procedure TfrViewDetallesPedidoCliente.AnadirArticulosInterno;
|
procedure TfrViewDetallesPedidoCliente.AnadirArticulosInterno;
|
||||||
begin
|
begin
|
||||||
(Controller as IDetallesPedidoClienteController).AnadirArticulos(Detalles, Pedido.Cliente);
|
(Controller as IDetallesPedidoClienteController).AnadirArticulos(Detalles, Pedido.Cliente, true, 0);
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TfrViewDetallesPedidoCliente.cxGridViewCANTIDAD2PropertiesButtonClick(Sender: TObject; AButtonIndex: Integer);
|
||||||
|
begin
|
||||||
|
inherited;
|
||||||
|
(Controller as IDetallesPedidoClienteController).ModificarCantidadColores(Detalles);
|
||||||
end;
|
end;
|
||||||
|
|
||||||
function TfrViewDetallesPedidoCliente.GetPedido: IBizPedidoCliente;
|
function TfrViewDetallesPedidoCliente.GetPedido: IBizPedidoCliente;
|
||||||
@ -61,7 +70,7 @@ end;
|
|||||||
|
|
||||||
procedure TfrViewDetallesPedidoCliente.RellenarArticulosInterno;
|
procedure TfrViewDetallesPedidoCliente.RellenarArticulosInterno;
|
||||||
begin
|
begin
|
||||||
(Controller as IDetallesPedidoClienteController).AnadirArticulos(Detalles, Pedido.Cliente, False);
|
(Controller as IDetallesPedidoClienteController).AnadirArticulos(Detalles, Pedido.Cliente, False, 0);
|
||||||
end;
|
end;
|
||||||
|
|
||||||
procedure TfrViewDetallesPedidoCliente.SetPedido(const Value: IBizPedidoCliente);
|
procedure TfrViewDetallesPedidoCliente.SetPedido(const Value: IBizPedidoCliente);
|
||||||
|
|||||||
@ -1,22 +1,22 @@
|
|||||||
inherited frViewPedidoCliente: TfrViewPedidoCliente
|
inherited frViewPedidoCliente: TfrViewPedidoCliente
|
||||||
Width = 740
|
Width = 872
|
||||||
Height = 479
|
Height = 490
|
||||||
OnCreate = CustomViewCreate
|
OnCreate = CustomViewCreate
|
||||||
OnDestroy = CustomViewDestroy
|
OnDestroy = CustomViewDestroy
|
||||||
ExplicitWidth = 740
|
ExplicitWidth = 872
|
||||||
ExplicitHeight = 479
|
ExplicitHeight = 490
|
||||||
object dxLayoutControl1: TdxLayoutControl
|
object dxLayoutControl1: TdxLayoutControl
|
||||||
Left = 0
|
Left = 0
|
||||||
Top = 0
|
Top = 0
|
||||||
Width = 740
|
Width = 872
|
||||||
Height = 479
|
Height = 490
|
||||||
Align = alClient
|
Align = alClient
|
||||||
ParentBackground = True
|
ParentBackground = True
|
||||||
TabOrder = 0
|
TabOrder = 0
|
||||||
TabStop = False
|
TabStop = False
|
||||||
DesignSize = (
|
DesignSize = (
|
||||||
740
|
872
|
||||||
479)
|
490)
|
||||||
object edtFechaPedido: TcxDBDateEdit
|
object edtFechaPedido: TcxDBDateEdit
|
||||||
Left = 116
|
Left = 116
|
||||||
Top = 82
|
Top = 82
|
||||||
@ -42,7 +42,7 @@ inherited frViewPedidoCliente: TfrViewPedidoCliente
|
|||||||
end
|
end
|
||||||
object memObservaciones: TcxDBMemo
|
object memObservaciones: TcxDBMemo
|
||||||
Left = 22
|
Left = 22
|
||||||
Top = 389
|
Top = 416
|
||||||
Anchors = [akLeft, akTop, akRight, akBottom]
|
Anchors = [akLeft, akTop, akRight, akBottom]
|
||||||
DataBinding.DataField = 'OBSERVACIONES'
|
DataBinding.DataField = 'OBSERVACIONES'
|
||||||
DataBinding.DataSource = DADataSource
|
DataBinding.DataSource = DADataSource
|
||||||
@ -54,7 +54,7 @@ inherited frViewPedidoCliente: TfrViewPedidoCliente
|
|||||||
StyleDisabled.LookAndFeel.NativeStyle = True
|
StyleDisabled.LookAndFeel.NativeStyle = True
|
||||||
StyleFocused.LookAndFeel.NativeStyle = True
|
StyleFocused.LookAndFeel.NativeStyle = True
|
||||||
StyleHot.LookAndFeel.NativeStyle = True
|
StyleHot.LookAndFeel.NativeStyle = True
|
||||||
TabOrder = 14
|
TabOrder = 15
|
||||||
Height = 253
|
Height = 253
|
||||||
Width = 186
|
Width = 186
|
||||||
end
|
end
|
||||||
@ -64,6 +64,7 @@ inherited frViewPedidoCliente: TfrViewPedidoCliente
|
|||||||
Anchors = [akLeft, akTop, akRight]
|
Anchors = [akLeft, akTop, akRight]
|
||||||
DataBinding.DataField = 'REFERENCIA'
|
DataBinding.DataField = 'REFERENCIA'
|
||||||
DataBinding.DataSource = DADataSource
|
DataBinding.DataSource = DADataSource
|
||||||
|
Enabled = False
|
||||||
Properties.ReadOnly = False
|
Properties.ReadOnly = False
|
||||||
Properties.ValidateOnEnter = True
|
Properties.ValidateOnEnter = True
|
||||||
Style.BorderColor = clWindowFrame
|
Style.BorderColor = clWindowFrame
|
||||||
@ -84,7 +85,7 @@ inherited frViewPedidoCliente: TfrViewPedidoCliente
|
|||||||
Width = 143
|
Width = 143
|
||||||
end
|
end
|
||||||
inline frViewClientePedido: TfrViewDatosYSeleccionClientePedido
|
inline frViewClientePedido: TfrViewDatosYSeleccionClientePedido
|
||||||
Left = 388
|
Left = 486
|
||||||
Top = 28
|
Top = 28
|
||||||
Width = 350
|
Width = 350
|
||||||
Height = 212
|
Height = 212
|
||||||
@ -94,9 +95,9 @@ inherited frViewPedidoCliente: TfrViewPedidoCliente
|
|||||||
Font.Name = 'Tahoma'
|
Font.Name = 'Tahoma'
|
||||||
Font.Style = []
|
Font.Style = []
|
||||||
ParentFont = False
|
ParentFont = False
|
||||||
TabOrder = 13
|
TabOrder = 14
|
||||||
ReadOnly = False
|
ReadOnly = False
|
||||||
ExplicitLeft = 388
|
ExplicitLeft = 486
|
||||||
ExplicitTop = 28
|
ExplicitTop = 28
|
||||||
ExplicitWidth = 350
|
ExplicitWidth = 350
|
||||||
ExplicitHeight = 212
|
ExplicitHeight = 212
|
||||||
@ -105,6 +106,9 @@ inherited frViewPedidoCliente: TfrViewPedidoCliente
|
|||||||
Height = 212
|
Height = 212
|
||||||
ExplicitWidth = 350
|
ExplicitWidth = 350
|
||||||
ExplicitHeight = 212
|
ExplicitHeight = 212
|
||||||
|
DesignSize = (
|
||||||
|
350
|
||||||
|
212)
|
||||||
inherited edtlNombre: TcxDBTextEdit
|
inherited edtlNombre: TcxDBTextEdit
|
||||||
Style.LookAndFeel.SkinName = ''
|
Style.LookAndFeel.SkinName = ''
|
||||||
StyleDisabled.LookAndFeel.SkinName = ''
|
StyleDisabled.LookAndFeel.SkinName = ''
|
||||||
@ -114,42 +118,40 @@ inherited frViewPedidoCliente: TfrViewPedidoCliente
|
|||||||
Width = 224
|
Width = 224
|
||||||
end
|
end
|
||||||
inherited edtNIFCIF: TcxDBTextEdit
|
inherited edtNIFCIF: TcxDBTextEdit
|
||||||
Left = 136
|
Left = 251
|
||||||
Style.LookAndFeel.SkinName = ''
|
Style.LookAndFeel.SkinName = ''
|
||||||
StyleDisabled.LookAndFeel.SkinName = ''
|
StyleDisabled.LookAndFeel.SkinName = ''
|
||||||
StyleFocused.LookAndFeel.SkinName = ''
|
StyleFocused.LookAndFeel.SkinName = ''
|
||||||
StyleHot.LookAndFeel.SkinName = ''
|
StyleHot.LookAndFeel.SkinName = ''
|
||||||
ExplicitLeft = 136
|
ExplicitLeft = 251
|
||||||
ExplicitWidth = 562
|
|
||||||
Width = 562
|
|
||||||
end
|
end
|
||||||
inherited Button3: TBitBtn
|
inherited Button3: TBitBtn
|
||||||
Left = 506
|
Left = 162
|
||||||
ExplicitLeft = 506
|
ExplicitLeft = 162
|
||||||
end
|
end
|
||||||
inherited edtPersonaContacto: TcxDBTextEdit
|
inherited edtPersonaContacto: TcxDBTextEdit
|
||||||
Style.LookAndFeel.SkinName = ''
|
Style.LookAndFeel.SkinName = ''
|
||||||
StyleDisabled.LookAndFeel.SkinName = ''
|
StyleDisabled.LookAndFeel.SkinName = ''
|
||||||
StyleFocused.LookAndFeel.SkinName = ''
|
StyleFocused.LookAndFeel.SkinName = ''
|
||||||
StyleHot.LookAndFeel.SkinName = ''
|
StyleHot.LookAndFeel.SkinName = ''
|
||||||
ExplicitWidth = 283
|
ExplicitWidth = 200
|
||||||
Width = 283
|
Width = 200
|
||||||
end
|
end
|
||||||
inherited edtDireccion: TcxMemo
|
inherited edtDireccion: TcxMemo
|
||||||
Style.LookAndFeel.SkinName = ''
|
Style.LookAndFeel.SkinName = ''
|
||||||
StyleDisabled.LookAndFeel.SkinName = ''
|
StyleDisabled.LookAndFeel.SkinName = ''
|
||||||
StyleFocused.LookAndFeel.SkinName = ''
|
StyleFocused.LookAndFeel.SkinName = ''
|
||||||
StyleHot.LookAndFeel.SkinName = ''
|
StyleHot.LookAndFeel.SkinName = ''
|
||||||
ExplicitWidth = 403
|
ExplicitWidth = 200
|
||||||
Width = 403
|
Width = 200
|
||||||
end
|
end
|
||||||
inherited Button4: TButton
|
inherited Button4: TButton
|
||||||
Left = 675
|
Left = 331
|
||||||
ExplicitLeft = 675
|
ExplicitLeft = 331
|
||||||
end
|
end
|
||||||
inherited Button5: TButton
|
inherited Button5: TButton
|
||||||
Left = 675
|
Left = 331
|
||||||
ExplicitLeft = 675
|
ExplicitLeft = 331
|
||||||
end
|
end
|
||||||
end
|
end
|
||||||
inherited ActionList1: TActionList
|
inherited ActionList1: TActionList
|
||||||
@ -161,28 +163,10 @@ inherited frViewPedidoCliente: TfrViewPedidoCliente
|
|||||||
end
|
end
|
||||||
object eCalle: TcxDBTextEdit
|
object eCalle: TcxDBTextEdit
|
||||||
Left = 116
|
Left = 116
|
||||||
Top = 193
|
Top = 220
|
||||||
DataBinding.DataField = 'CALLE'
|
DataBinding.DataField = 'CALLE'
|
||||||
DataBinding.DataSource = DADataSource
|
DataBinding.DataSource = DADataSource
|
||||||
Style.BorderColor = clWindowFrame
|
Enabled = False
|
||||||
Style.BorderStyle = ebs3D
|
|
||||||
Style.HotTrack = False
|
|
||||||
Style.LookAndFeel.Kind = lfStandard
|
|
||||||
Style.LookAndFeel.NativeStyle = True
|
|
||||||
StyleDisabled.LookAndFeel.Kind = lfStandard
|
|
||||||
StyleDisabled.LookAndFeel.NativeStyle = True
|
|
||||||
StyleFocused.LookAndFeel.Kind = lfStandard
|
|
||||||
StyleFocused.LookAndFeel.NativeStyle = True
|
|
||||||
StyleHot.LookAndFeel.Kind = lfStandard
|
|
||||||
StyleHot.LookAndFeel.NativeStyle = True
|
|
||||||
TabOrder = 6
|
|
||||||
Width = 263
|
|
||||||
end
|
|
||||||
object ePoblacion: TcxDBTextEdit
|
|
||||||
Left = 116
|
|
||||||
Top = 220
|
|
||||||
DataBinding.DataField = 'POBLACION'
|
|
||||||
DataBinding.DataSource = DADataSource
|
|
||||||
Style.BorderColor = clWindowFrame
|
Style.BorderColor = clWindowFrame
|
||||||
Style.BorderStyle = ebs3D
|
Style.BorderStyle = ebs3D
|
||||||
Style.HotTrack = False
|
Style.HotTrack = False
|
||||||
@ -195,13 +179,14 @@ inherited frViewPedidoCliente: TfrViewPedidoCliente
|
|||||||
StyleHot.LookAndFeel.Kind = lfStandard
|
StyleHot.LookAndFeel.Kind = lfStandard
|
||||||
StyleHot.LookAndFeel.NativeStyle = True
|
StyleHot.LookAndFeel.NativeStyle = True
|
||||||
TabOrder = 7
|
TabOrder = 7
|
||||||
Width = 162
|
Width = 263
|
||||||
end
|
end
|
||||||
object eCodigoPostal: TcxDBTextEdit
|
object ePoblacion: TcxDBTextEdit
|
||||||
Left = 293
|
Left = 116
|
||||||
Top = 220
|
Top = 247
|
||||||
DataBinding.DataField = 'CODIGO_POSTAL'
|
DataBinding.DataField = 'POBLACION'
|
||||||
DataBinding.DataSource = DADataSource
|
DataBinding.DataSource = DADataSource
|
||||||
|
Enabled = False
|
||||||
Style.BorderColor = clWindowFrame
|
Style.BorderColor = clWindowFrame
|
||||||
Style.BorderStyle = ebs3D
|
Style.BorderStyle = ebs3D
|
||||||
Style.HotTrack = False
|
Style.HotTrack = False
|
||||||
@ -214,13 +199,14 @@ inherited frViewPedidoCliente: TfrViewPedidoCliente
|
|||||||
StyleHot.LookAndFeel.Kind = lfStandard
|
StyleHot.LookAndFeel.Kind = lfStandard
|
||||||
StyleHot.LookAndFeel.NativeStyle = True
|
StyleHot.LookAndFeel.NativeStyle = True
|
||||||
TabOrder = 8
|
TabOrder = 8
|
||||||
Width = 65
|
Width = 162
|
||||||
end
|
end
|
||||||
object eProvincia: TcxDBTextEdit
|
object eCodigoPostal: TcxDBTextEdit
|
||||||
Left = 116
|
Left = 391
|
||||||
Top = 247
|
Top = 247
|
||||||
DataBinding.DataField = 'PROVINCIA'
|
DataBinding.DataField = 'CODIGO_POSTAL'
|
||||||
DataBinding.DataSource = DADataSource
|
DataBinding.DataSource = DADataSource
|
||||||
|
Enabled = False
|
||||||
Style.BorderColor = clWindowFrame
|
Style.BorderColor = clWindowFrame
|
||||||
Style.BorderStyle = ebs3D
|
Style.BorderStyle = ebs3D
|
||||||
Style.HotTrack = False
|
Style.HotTrack = False
|
||||||
@ -233,13 +219,34 @@ inherited frViewPedidoCliente: TfrViewPedidoCliente
|
|||||||
StyleHot.LookAndFeel.Kind = lfStandard
|
StyleHot.LookAndFeel.Kind = lfStandard
|
||||||
StyleHot.LookAndFeel.NativeStyle = True
|
StyleHot.LookAndFeel.NativeStyle = True
|
||||||
TabOrder = 9
|
TabOrder = 9
|
||||||
|
Width = 65
|
||||||
|
end
|
||||||
|
object eProvincia: TcxDBTextEdit
|
||||||
|
Left = 116
|
||||||
|
Top = 274
|
||||||
|
DataBinding.DataField = 'PROVINCIA'
|
||||||
|
DataBinding.DataSource = DADataSource
|
||||||
|
Enabled = False
|
||||||
|
Style.BorderColor = clWindowFrame
|
||||||
|
Style.BorderStyle = ebs3D
|
||||||
|
Style.HotTrack = False
|
||||||
|
Style.LookAndFeel.Kind = lfStandard
|
||||||
|
Style.LookAndFeel.NativeStyle = True
|
||||||
|
StyleDisabled.LookAndFeel.Kind = lfStandard
|
||||||
|
StyleDisabled.LookAndFeel.NativeStyle = True
|
||||||
|
StyleFocused.LookAndFeel.Kind = lfStandard
|
||||||
|
StyleFocused.LookAndFeel.NativeStyle = True
|
||||||
|
StyleHot.LookAndFeel.Kind = lfStandard
|
||||||
|
StyleHot.LookAndFeel.NativeStyle = True
|
||||||
|
TabOrder = 10
|
||||||
Width = 263
|
Width = 263
|
||||||
end
|
end
|
||||||
object ePersonaContacto: TcxDBTextEdit
|
object ePersonaContacto: TcxDBTextEdit
|
||||||
Left = 116
|
Left = 116
|
||||||
Top = 274
|
Top = 301
|
||||||
DataBinding.DataField = 'PERSONA_CONTACTO'
|
DataBinding.DataField = 'PERSONA_CONTACTO'
|
||||||
DataBinding.DataSource = DADataSource
|
DataBinding.DataSource = DADataSource
|
||||||
|
Enabled = False
|
||||||
Style.BorderColor = clWindowFrame
|
Style.BorderColor = clWindowFrame
|
||||||
Style.BorderStyle = ebs3D
|
Style.BorderStyle = ebs3D
|
||||||
Style.Color = clWindow
|
Style.Color = clWindow
|
||||||
@ -252,14 +259,15 @@ inherited frViewPedidoCliente: TfrViewPedidoCliente
|
|||||||
StyleFocused.LookAndFeel.NativeStyle = True
|
StyleFocused.LookAndFeel.NativeStyle = True
|
||||||
StyleHot.LookAndFeel.Kind = lfStandard
|
StyleHot.LookAndFeel.Kind = lfStandard
|
||||||
StyleHot.LookAndFeel.NativeStyle = True
|
StyleHot.LookAndFeel.NativeStyle = True
|
||||||
TabOrder = 10
|
TabOrder = 11
|
||||||
Width = 84
|
Width = 84
|
||||||
end
|
end
|
||||||
object eTlfTrabajo: TcxDBTextEdit
|
object eTlfTrabajo: TcxDBTextEdit
|
||||||
Left = 116
|
Left = 116
|
||||||
Top = 301
|
Top = 328
|
||||||
DataBinding.DataField = 'TELEFONO'
|
DataBinding.DataField = 'TELEFONO'
|
||||||
DataBinding.DataSource = DADataSource
|
DataBinding.DataSource = DADataSource
|
||||||
|
Enabled = False
|
||||||
Style.BorderColor = clWindowFrame
|
Style.BorderColor = clWindowFrame
|
||||||
Style.BorderStyle = ebs3D
|
Style.BorderStyle = ebs3D
|
||||||
Style.HotTrack = False
|
Style.HotTrack = False
|
||||||
@ -271,49 +279,21 @@ inherited frViewPedidoCliente: TfrViewPedidoCliente
|
|||||||
StyleFocused.LookAndFeel.NativeStyle = True
|
StyleFocused.LookAndFeel.NativeStyle = True
|
||||||
StyleHot.LookAndFeel.Kind = lfStandard
|
StyleHot.LookAndFeel.Kind = lfStandard
|
||||||
StyleHot.LookAndFeel.NativeStyle = True
|
StyleHot.LookAndFeel.NativeStyle = True
|
||||||
TabOrder = 11
|
TabOrder = 12
|
||||||
Width = 122
|
Width = 122
|
||||||
end
|
end
|
||||||
object bElegirDireccion: TBitBtn
|
object bElegirDireccion: TBitBtn
|
||||||
Left = 186
|
Left = 284
|
||||||
Top = 328
|
Top = 355
|
||||||
Width = 172
|
Width = 172
|
||||||
Height = 25
|
Height = 25
|
||||||
Action = actElegirDireccion
|
Action = actElegirDireccion
|
||||||
Caption = 'Elegir una direcci'#243'n de env'#237'o...'
|
Caption = 'Elegir una direcci'#243'n de env'#237'o...'
|
||||||
TabOrder = 12
|
Enabled = False
|
||||||
end
|
TabOrder = 13
|
||||||
object cbFormaPago: TcxDBLookupComboBox
|
|
||||||
Left = 116
|
|
||||||
Top = 136
|
|
||||||
DataBinding.DataField = 'ID_FORMA_PAGO'
|
|
||||||
DataBinding.DataSource = DADataSource
|
|
||||||
Properties.KeyFieldNames = 'ID'
|
|
||||||
Properties.ListColumns = <
|
|
||||||
item
|
|
||||||
FieldName = 'REFERENCIA'
|
|
||||||
end>
|
|
||||||
Properties.ListOptions.GridLines = glNone
|
|
||||||
Properties.ListOptions.ShowHeader = False
|
|
||||||
Properties.ListSource = dsFormaPago
|
|
||||||
Style.BorderColor = clWindowFrame
|
|
||||||
Style.BorderStyle = ebs3D
|
|
||||||
Style.HotTrack = False
|
|
||||||
Style.LookAndFeel.Kind = lfStandard
|
|
||||||
Style.LookAndFeel.NativeStyle = True
|
|
||||||
Style.ButtonStyle = bts3D
|
|
||||||
Style.PopupBorderStyle = epbsFrame3D
|
|
||||||
StyleDisabled.LookAndFeel.Kind = lfStandard
|
|
||||||
StyleDisabled.LookAndFeel.NativeStyle = True
|
|
||||||
StyleFocused.LookAndFeel.Kind = lfStandard
|
|
||||||
StyleFocused.LookAndFeel.NativeStyle = True
|
|
||||||
StyleHot.LookAndFeel.Kind = lfStandard
|
|
||||||
StyleHot.LookAndFeel.NativeStyle = True
|
|
||||||
TabOrder = 4
|
|
||||||
Width = 101
|
|
||||||
end
|
end
|
||||||
object bFormasPago: TButton
|
object bFormasPago: TButton
|
||||||
Left = 226
|
Left = 324
|
||||||
Top = 136
|
Top = 136
|
||||||
Width = 132
|
Width = 132
|
||||||
Height = 21
|
Height = 21
|
||||||
@ -327,6 +307,7 @@ inherited frViewPedidoCliente: TfrViewPedidoCliente
|
|||||||
Anchors = [akLeft, akTop, akRight]
|
Anchors = [akLeft, akTop, akRight]
|
||||||
DataBinding.DataField = 'FECHA_PREVISTA_ENVIO'
|
DataBinding.DataField = 'FECHA_PREVISTA_ENVIO'
|
||||||
DataBinding.DataSource = DADataSource
|
DataBinding.DataSource = DADataSource
|
||||||
|
Enabled = False
|
||||||
Properties.ImmediatePost = True
|
Properties.ImmediatePost = True
|
||||||
Style.BorderColor = clWindowFrame
|
Style.BorderColor = clWindowFrame
|
||||||
Style.BorderStyle = ebs3D
|
Style.BorderStyle = ebs3D
|
||||||
@ -349,6 +330,7 @@ inherited frViewPedidoCliente: TfrViewPedidoCliente
|
|||||||
Anchors = [akLeft, akTop, akRight]
|
Anchors = [akLeft, akTop, akRight]
|
||||||
DataBinding.DataField = 'REFERENCIA_CLIENTE'
|
DataBinding.DataField = 'REFERENCIA_CLIENTE'
|
||||||
DataBinding.DataSource = DADataSource
|
DataBinding.DataSource = DADataSource
|
||||||
|
Enabled = False
|
||||||
Properties.ReadOnly = False
|
Properties.ReadOnly = False
|
||||||
Properties.ValidateOnEnter = True
|
Properties.ValidateOnEnter = True
|
||||||
Style.BorderColor = clWindowFrame
|
Style.BorderColor = clWindowFrame
|
||||||
@ -368,6 +350,62 @@ inherited frViewPedidoCliente: TfrViewPedidoCliente
|
|||||||
TabOrder = 1
|
TabOrder = 1
|
||||||
Width = 216
|
Width = 216
|
||||||
end
|
end
|
||||||
|
object cbFormaPago: TcxDBLookupComboBox
|
||||||
|
Left = 116
|
||||||
|
Top = 136
|
||||||
|
DataBinding.DataField = 'ID_FORMA_PAGO'
|
||||||
|
DataBinding.DataSource = DADataSource
|
||||||
|
Properties.KeyFieldNames = 'ID'
|
||||||
|
Properties.ListColumns = <
|
||||||
|
item
|
||||||
|
FieldName = 'REFERENCIA'
|
||||||
|
end>
|
||||||
|
Properties.ListOptions.GridLines = glNone
|
||||||
|
Properties.ListOptions.ShowHeader = False
|
||||||
|
Properties.ListOptions.SyncMode = True
|
||||||
|
Properties.ListSource = dsFormaPago
|
||||||
|
Style.BorderColor = clWindowFrame
|
||||||
|
Style.BorderStyle = ebs3D
|
||||||
|
Style.HotTrack = False
|
||||||
|
Style.LookAndFeel.Kind = lfStandard
|
||||||
|
Style.LookAndFeel.NativeStyle = True
|
||||||
|
Style.LookAndFeel.SkinName = ''
|
||||||
|
Style.ButtonStyle = bts3D
|
||||||
|
Style.PopupBorderStyle = epbsFrame3D
|
||||||
|
StyleDisabled.LookAndFeel.Kind = lfStandard
|
||||||
|
StyleDisabled.LookAndFeel.NativeStyle = True
|
||||||
|
StyleDisabled.LookAndFeel.SkinName = ''
|
||||||
|
StyleFocused.LookAndFeel.Kind = lfStandard
|
||||||
|
StyleFocused.LookAndFeel.NativeStyle = True
|
||||||
|
StyleFocused.LookAndFeel.SkinName = ''
|
||||||
|
StyleHot.LookAndFeel.Kind = lfStandard
|
||||||
|
StyleHot.LookAndFeel.NativeStyle = True
|
||||||
|
StyleHot.LookAndFeel.SkinName = ''
|
||||||
|
TabOrder = 4
|
||||||
|
Width = 186
|
||||||
|
end
|
||||||
|
object cbCuentaBancaria: TcxDBComboBox
|
||||||
|
Left = 116
|
||||||
|
Top = 163
|
||||||
|
DataBinding.DataField = 'DATOS_BANCARIOS'
|
||||||
|
DataBinding.DataSource = DADataSource
|
||||||
|
Properties.DropDownListStyle = lsFixedList
|
||||||
|
Properties.DropDownRows = 12
|
||||||
|
Properties.ImmediatePost = True
|
||||||
|
Properties.ImmediateUpdateText = True
|
||||||
|
Properties.PostPopupValueOnTab = True
|
||||||
|
Style.BorderColor = clWindowFrame
|
||||||
|
Style.BorderStyle = ebs3D
|
||||||
|
Style.HotTrack = False
|
||||||
|
Style.LookAndFeel.SkinName = ''
|
||||||
|
Style.ButtonStyle = bts3D
|
||||||
|
Style.PopupBorderStyle = epbsFrame3D
|
||||||
|
StyleDisabled.LookAndFeel.SkinName = ''
|
||||||
|
StyleFocused.LookAndFeel.SkinName = ''
|
||||||
|
StyleHot.LookAndFeel.SkinName = ''
|
||||||
|
TabOrder = 6
|
||||||
|
Width = 324
|
||||||
|
end
|
||||||
object dxLayoutControl1Group_Root: TdxLayoutGroup
|
object dxLayoutControl1Group_Root: TdxLayoutGroup
|
||||||
AlignHorz = ahParentManaged
|
AlignHorz = ahParentManaged
|
||||||
AlignVert = avParentManaged
|
AlignVert = avParentManaged
|
||||||
@ -394,11 +432,14 @@ inherited frViewPedidoCliente: TfrViewPedidoCliente
|
|||||||
ButtonOptions.Buttons = <>
|
ButtonOptions.Buttons = <>
|
||||||
object dxLayoutControl1Item3: TdxLayoutItem
|
object dxLayoutControl1Item3: TdxLayoutItem
|
||||||
CaptionOptions.Text = 'Referencia:'
|
CaptionOptions.Text = 'Referencia:'
|
||||||
|
Enabled = False
|
||||||
Control = eReferencia
|
Control = eReferencia
|
||||||
ControlOptions.ShowBorder = False
|
ControlOptions.ShowBorder = False
|
||||||
end
|
end
|
||||||
object dxLayoutControl1Item15: TdxLayoutItem
|
object dxLayoutControl1Item15: TdxLayoutItem
|
||||||
CaptionOptions.Text = 'Ref. cliente:'
|
CaptionOptions.Text = 'Ref. cliente:'
|
||||||
|
Enabled = False
|
||||||
|
Visible = False
|
||||||
Control = eRefCliente
|
Control = eRefCliente
|
||||||
ControlOptions.ShowBorder = False
|
ControlOptions.ShowBorder = False
|
||||||
end
|
end
|
||||||
@ -409,22 +450,28 @@ inherited frViewPedidoCliente: TfrViewPedidoCliente
|
|||||||
end
|
end
|
||||||
object dxLayoutControl1Item7: TdxLayoutItem
|
object dxLayoutControl1Item7: TdxLayoutItem
|
||||||
CaptionOptions.Text = 'Entrega prevista:'
|
CaptionOptions.Text = 'Entrega prevista:'
|
||||||
|
Enabled = False
|
||||||
|
Visible = False
|
||||||
Control = edtFechaPrevistaEnvio
|
Control = edtFechaPrevistaEnvio
|
||||||
ControlOptions.ShowBorder = False
|
ControlOptions.ShowBorder = False
|
||||||
end
|
end
|
||||||
object dxLayoutControl1Group5: TdxLayoutGroup
|
object dxLayoutControl1Group3: TdxLayoutGroup
|
||||||
CaptionOptions.Visible = False
|
|
||||||
Visible = False
|
|
||||||
ButtonOptions.Buttons = <>
|
ButtonOptions.Buttons = <>
|
||||||
Hidden = True
|
Hidden = True
|
||||||
LayoutDirection = ldHorizontal
|
LayoutDirection = ldHorizontal
|
||||||
ShowBorder = False
|
ShowBorder = False
|
||||||
object dxLayoutControl1Item4: TdxLayoutItem
|
object dxLayoutControl1Item4: TdxLayoutItem
|
||||||
AlignHorz = ahClient
|
AlignHorz = ahClient
|
||||||
CaptionOptions.Text = 'Forma de pago'
|
CaptionOptions.Text = 'Forma de pago:'
|
||||||
Control = cbFormaPago
|
Control = cbFormaPago
|
||||||
ControlOptions.ShowBorder = False
|
ControlOptions.ShowBorder = False
|
||||||
end
|
end
|
||||||
|
object dxLayoutControl1Group5: TdxLayoutGroup
|
||||||
|
CaptionOptions.Text = 'New Group'
|
||||||
|
CaptionOptions.Visible = False
|
||||||
|
ButtonOptions.Buttons = <>
|
||||||
|
LayoutDirection = ldHorizontal
|
||||||
|
ShowBorder = False
|
||||||
object dxLayoutControl1Item5: TdxLayoutItem
|
object dxLayoutControl1Item5: TdxLayoutItem
|
||||||
AlignHorz = ahRight
|
AlignHorz = ahRight
|
||||||
CaptionOptions.Visible = False
|
CaptionOptions.Visible = False
|
||||||
@ -433,23 +480,34 @@ inherited frViewPedidoCliente: TfrViewPedidoCliente
|
|||||||
end
|
end
|
||||||
end
|
end
|
||||||
end
|
end
|
||||||
|
object dxLayoutControl1Item16: TdxLayoutItem
|
||||||
|
CaptionOptions.Text = 'Cuenta bancaria:'
|
||||||
|
Control = cbCuentaBancaria
|
||||||
|
ControlOptions.ShowBorder = False
|
||||||
|
end
|
||||||
|
end
|
||||||
object dxLayoutControl1Group8: TdxLayoutGroup
|
object dxLayoutControl1Group8: TdxLayoutGroup
|
||||||
AlignHorz = ahClient
|
AlignHorz = ahClient
|
||||||
AlignVert = avTop
|
AlignVert = avTop
|
||||||
CaptionOptions.Text = 'Direcci'#243'n de entrega'
|
CaptionOptions.Text = 'Direcci'#243'n de entrega'
|
||||||
|
Enabled = False
|
||||||
|
Visible = False
|
||||||
ButtonOptions.Buttons = <>
|
ButtonOptions.Buttons = <>
|
||||||
object dxLayoutControl1Item8: TdxLayoutItem
|
object dxLayoutControl1Item8: TdxLayoutItem
|
||||||
CaptionOptions.Text = 'Calle:'
|
CaptionOptions.Text = 'Calle:'
|
||||||
|
Enabled = False
|
||||||
Control = eCalle
|
Control = eCalle
|
||||||
ControlOptions.ShowBorder = False
|
ControlOptions.ShowBorder = False
|
||||||
end
|
end
|
||||||
object dxLayoutControl1Group4: TdxLayoutGroup
|
object dxLayoutControl1Group4: TdxLayoutGroup
|
||||||
CaptionOptions.Visible = False
|
CaptionOptions.Visible = False
|
||||||
|
Enabled = False
|
||||||
ButtonOptions.Buttons = <>
|
ButtonOptions.Buttons = <>
|
||||||
Hidden = True
|
Hidden = True
|
||||||
ShowBorder = False
|
ShowBorder = False
|
||||||
object dxLayoutControl1Group9: TdxLayoutGroup
|
object dxLayoutControl1Group9: TdxLayoutGroup
|
||||||
CaptionOptions.Visible = False
|
CaptionOptions.Visible = False
|
||||||
|
Enabled = False
|
||||||
ButtonOptions.Buttons = <>
|
ButtonOptions.Buttons = <>
|
||||||
Hidden = True
|
Hidden = True
|
||||||
LayoutDirection = ldHorizontal
|
LayoutDirection = ldHorizontal
|
||||||
@ -457,34 +515,40 @@ inherited frViewPedidoCliente: TfrViewPedidoCliente
|
|||||||
object dxLayoutControl1Item9: TdxLayoutItem
|
object dxLayoutControl1Item9: TdxLayoutItem
|
||||||
AlignHorz = ahClient
|
AlignHorz = ahClient
|
||||||
CaptionOptions.Text = 'Poblaci'#243'n:'
|
CaptionOptions.Text = 'Poblaci'#243'n:'
|
||||||
|
Enabled = False
|
||||||
Control = ePoblacion
|
Control = ePoblacion
|
||||||
ControlOptions.ShowBorder = False
|
ControlOptions.ShowBorder = False
|
||||||
end
|
end
|
||||||
object dxLayoutControl1Item10: TdxLayoutItem
|
object dxLayoutControl1Item10: TdxLayoutItem
|
||||||
AlignHorz = ahRight
|
AlignHorz = ahRight
|
||||||
CaptionOptions.Text = 'C.P.:'
|
CaptionOptions.Text = 'C.P.:'
|
||||||
|
Enabled = False
|
||||||
Control = eCodigoPostal
|
Control = eCodigoPostal
|
||||||
ControlOptions.ShowBorder = False
|
ControlOptions.ShowBorder = False
|
||||||
end
|
end
|
||||||
end
|
end
|
||||||
object dxLayoutControl1Item11: TdxLayoutItem
|
object dxLayoutControl1Item11: TdxLayoutItem
|
||||||
CaptionOptions.Text = 'Provincia:'
|
CaptionOptions.Text = 'Provincia:'
|
||||||
|
Enabled = False
|
||||||
Control = eProvincia
|
Control = eProvincia
|
||||||
ControlOptions.ShowBorder = False
|
ControlOptions.ShowBorder = False
|
||||||
end
|
end
|
||||||
object dxLayoutControl1Item12: TdxLayoutItem
|
object dxLayoutControl1Item12: TdxLayoutItem
|
||||||
CaptionOptions.Text = 'Pers. de contacto:'
|
CaptionOptions.Text = 'Pers. de contacto:'
|
||||||
|
Enabled = False
|
||||||
Control = ePersonaContacto
|
Control = ePersonaContacto
|
||||||
ControlOptions.ShowBorder = False
|
ControlOptions.ShowBorder = False
|
||||||
end
|
end
|
||||||
object dxLayoutControl1Item13: TdxLayoutItem
|
object dxLayoutControl1Item13: TdxLayoutItem
|
||||||
CaptionOptions.Text = 'Tel'#233'fono:'
|
CaptionOptions.Text = 'Tel'#233'fono:'
|
||||||
|
Enabled = False
|
||||||
Control = eTlfTrabajo
|
Control = eTlfTrabajo
|
||||||
ControlOptions.ShowBorder = False
|
ControlOptions.ShowBorder = False
|
||||||
end
|
end
|
||||||
object dxLayoutControl1Item14: TdxLayoutItem
|
object dxLayoutControl1Item14: TdxLayoutItem
|
||||||
AlignHorz = ahRight
|
AlignHorz = ahRight
|
||||||
CaptionOptions.Visible = False
|
CaptionOptions.Visible = False
|
||||||
|
Enabled = False
|
||||||
Control = bElegirDireccion
|
Control = bElegirDireccion
|
||||||
ControlOptions.ShowBorder = False
|
ControlOptions.ShowBorder = False
|
||||||
end
|
end
|
||||||
|
|||||||
@ -12,7 +12,8 @@ uses
|
|||||||
cxTextEdit, cxMaskEdit, cxCalendar, dxLayoutControl, cxControls, cxMemo,
|
cxTextEdit, cxMaskEdit, cxCalendar, dxLayoutControl, cxControls, cxMemo,
|
||||||
uViewDireccionEntregaPedidoCliente, Buttons, ActnList, cxLookupEdit,
|
uViewDireccionEntregaPedidoCliente, Buttons, ActnList, cxLookupEdit,
|
||||||
cxDBLookupEdit, cxDBLookupComboBox, uFormasPagoController, cxLookAndFeels,
|
cxDBLookupEdit, cxDBLookupComboBox, uFormasPagoController, cxLookAndFeels,
|
||||||
cxLookAndFeelPainters, dxLayoutcxEditAdapters, uDAInterfaces;
|
cxLookAndFeelPainters, dxLayoutcxEditAdapters, uDAInterfaces, uBizFormasPago,
|
||||||
|
uPedidosClienteController, cxSpinEdit;
|
||||||
|
|
||||||
type
|
type
|
||||||
IViewPedidoCliente = interface(IViewBase)
|
IViewPedidoCliente = interface(IViewBase)
|
||||||
@ -20,10 +21,16 @@ type
|
|||||||
function GetPedido: IBizPedidoCliente;
|
function GetPedido: IBizPedidoCliente;
|
||||||
procedure SetPedido(const Value: IBizPedidoCliente);
|
procedure SetPedido(const Value: IBizPedidoCliente);
|
||||||
property Pedido: IBizPedidoCliente read GetPedido write SetPedido;
|
property Pedido: IBizPedidoCliente read GetPedido write SetPedido;
|
||||||
|
function GetController : IPedidosClienteController;
|
||||||
|
procedure SetController (const Value : IPedidosClienteController);
|
||||||
|
property Controller : IPedidosClienteController read GetController write SetController;
|
||||||
|
|
||||||
function GetViewClientePedido: TfrViewDatosYSeleccionClientePedido;
|
function GetViewClientePedido: TfrViewDatosYSeleccionClientePedido;
|
||||||
procedure SetViewClientePedido(const Value: TfrViewDatosYSeleccionClientePedido);
|
procedure SetViewClientePedido(const Value: TfrViewDatosYSeleccionClientePedido);
|
||||||
property ViewClientePedido: TfrViewDatosYSeleccionClientePedido read GetViewClientePedido write SetViewClientePedido;
|
property ViewClientePedido: TfrViewDatosYSeleccionClientePedido read GetViewClientePedido write SetViewClientePedido;
|
||||||
|
|
||||||
|
procedure RellenarCuentasBancarias;
|
||||||
|
procedure AsignarCuentaBancaria;
|
||||||
end;
|
end;
|
||||||
|
|
||||||
TfrViewPedidoCliente = class(TfrViewBase, IViewPedidoCliente)
|
TfrViewPedidoCliente = class(TfrViewBase, IViewPedidoCliente)
|
||||||
@ -61,17 +68,20 @@ type
|
|||||||
bElegirDireccion: TBitBtn;
|
bElegirDireccion: TBitBtn;
|
||||||
ActionList1: TActionList;
|
ActionList1: TActionList;
|
||||||
actElegirDireccion: TAction;
|
actElegirDireccion: TAction;
|
||||||
dxLayoutControl1Item4: TdxLayoutItem;
|
|
||||||
cbFormaPago: TcxDBLookupComboBox;
|
|
||||||
dxLayoutControl1Item5: TdxLayoutItem;
|
dxLayoutControl1Item5: TdxLayoutItem;
|
||||||
bFormasPago: TButton;
|
bFormasPago: TButton;
|
||||||
dxLayoutControl1Group5: TdxLayoutGroup;
|
|
||||||
dsFormaPago: TDADataSource;
|
dsFormaPago: TDADataSource;
|
||||||
dxLayoutControl1Group10: TdxLayoutGroup;
|
dxLayoutControl1Group10: TdxLayoutGroup;
|
||||||
dxLayoutControl1Item7: TdxLayoutItem;
|
dxLayoutControl1Item7: TdxLayoutItem;
|
||||||
edtFechaPrevistaEnvio: TcxDBDateEdit;
|
edtFechaPrevistaEnvio: TcxDBDateEdit;
|
||||||
dxLayoutControl1Item15: TdxLayoutItem;
|
dxLayoutControl1Item15: TdxLayoutItem;
|
||||||
eRefCliente: TcxDBTextEdit;
|
eRefCliente: TcxDBTextEdit;
|
||||||
|
dxLayoutControl1Group5: TdxLayoutGroup;
|
||||||
|
cbFormaPago: TcxDBLookupComboBox;
|
||||||
|
dxLayoutControl1Item4: TdxLayoutItem;
|
||||||
|
dxLayoutControl1Group3: TdxLayoutGroup;
|
||||||
|
cbCuentaBancaria: TcxDBComboBox;
|
||||||
|
dxLayoutControl1Item16: TdxLayoutItem;
|
||||||
procedure CustomViewCreate(Sender: TObject);
|
procedure CustomViewCreate(Sender: TObject);
|
||||||
procedure CustomViewDestroy(Sender: TObject);
|
procedure CustomViewDestroy(Sender: TObject);
|
||||||
procedure actElegirDireccionExecute(Sender: TObject);
|
procedure actElegirDireccionExecute(Sender: TObject);
|
||||||
@ -81,9 +91,13 @@ type
|
|||||||
procedure frViewClientePedidoButton2Click(Sender: TObject);
|
procedure frViewClientePedidoButton2Click(Sender: TObject);
|
||||||
protected
|
protected
|
||||||
FPedido : IBizPedidoCliente;
|
FPedido : IBizPedidoCliente;
|
||||||
|
FController : IPedidosClienteController;
|
||||||
FViewClientePedido : TfrViewDatosYSeleccionClientePedido;
|
FViewClientePedido : TfrViewDatosYSeleccionClientePedido;
|
||||||
|
FFormasPago : IBizFormaPago;
|
||||||
FFormasPagoController : IFormasPagoController;
|
FFormasPagoController : IFormasPagoController;
|
||||||
|
|
||||||
|
function GetController : IPedidosClienteController;
|
||||||
|
procedure SetController (const Value : IPedidosClienteController);
|
||||||
function GetPedido: IBizPedidoCliente;
|
function GetPedido: IBizPedidoCliente;
|
||||||
procedure SetPedido(const Value: IBizPedidoCliente); virtual;
|
procedure SetPedido(const Value: IBizPedidoCliente); virtual;
|
||||||
function GetViewClientePedido: TfrViewDatosYSeleccionClientePedido;
|
function GetViewClientePedido: TfrViewDatosYSeleccionClientePedido;
|
||||||
@ -91,17 +105,19 @@ type
|
|||||||
public
|
public
|
||||||
property Pedido: IBizPedidoCliente read GetPedido write SetPedido;
|
property Pedido: IBizPedidoCliente read GetPedido write SetPedido;
|
||||||
property ViewClientePedido: TfrViewDatosYSeleccionClientePedido read GetViewClientePedido;
|
property ViewClientePedido: TfrViewDatosYSeleccionClientePedido read GetViewClientePedido;
|
||||||
|
property Controller : IPedidosClienteController read GetController write SetController;
|
||||||
|
|
||||||
|
procedure RellenarCuentasBancarias;
|
||||||
|
procedure AsignarCuentaBancaria;
|
||||||
end;
|
end;
|
||||||
|
|
||||||
implementation
|
implementation
|
||||||
|
|
||||||
{$R *.dfm}
|
{$R *.dfm}
|
||||||
|
|
||||||
{ TfrViewPedidoCliente }
|
{ TfrViewPedidoCliente }
|
||||||
|
|
||||||
uses
|
uses
|
||||||
uClientesController, uBizDireccionesContacto, uPedidosClienteController,
|
uFactuGES_App, uEmpresasController, uClientesController, uBizDireccionesContacto;
|
||||||
uBizFormasPago;
|
|
||||||
|
|
||||||
|
|
||||||
procedure TfrViewPedidoCliente.actElegirDireccionExecute(Sender: TObject);
|
procedure TfrViewPedidoCliente.actElegirDireccionExecute(Sender: TObject);
|
||||||
@ -144,16 +160,29 @@ begin
|
|||||||
(FPedido.Cliente.Direcciones.DataTable.RecordCount > 0);
|
(FPedido.Cliente.Direcciones.DataTable.RecordCount > 0);
|
||||||
end;
|
end;
|
||||||
|
|
||||||
|
procedure TfrViewPedidoCliente.AsignarCuentaBancaria;
|
||||||
|
begin
|
||||||
|
FPedido.Edit;
|
||||||
|
try
|
||||||
|
FPedido.DATOS_BANCARIOS := cbCuentaBancaria.Properties.Items[0];
|
||||||
|
finally
|
||||||
|
FPedido.Post;
|
||||||
|
end;
|
||||||
|
end;
|
||||||
|
|
||||||
procedure TfrViewPedidoCliente.bFormasPagoClick(Sender: TObject);
|
procedure TfrViewPedidoCliente.bFormasPagoClick(Sender: TObject);
|
||||||
begin
|
begin
|
||||||
inherited;
|
inherited;
|
||||||
FFormasPagoController.VerTodos((dsFormaPago.DataTable) as IBizFormaPago);
|
if Assigned(FFormasPago) then
|
||||||
|
FFormasPagoController.VerTodos(FFormasPago);
|
||||||
end;
|
end;
|
||||||
|
|
||||||
procedure TfrViewPedidoCliente.CustomViewCreate(Sender: TObject);
|
procedure TfrViewPedidoCliente.CustomViewCreate(Sender: TObject);
|
||||||
begin
|
begin
|
||||||
inherited;
|
inherited;
|
||||||
|
FFormasPago := Nil;
|
||||||
FFormasPagoController := TFormasPagoController.Create;
|
FFormasPagoController := TFormasPagoController.Create;
|
||||||
|
|
||||||
FViewClientePedido := frViewClientePedido;
|
FViewClientePedido := frViewClientePedido;
|
||||||
// FViewClientePedido.MsgElegirCliente := 'Elija el cliente al que se le realizará el pedido.';
|
// FViewClientePedido.MsgElegirCliente := 'Elija el cliente al que se le realizará el pedido.';
|
||||||
end;
|
end;
|
||||||
@ -161,6 +190,7 @@ end;
|
|||||||
procedure TfrViewPedidoCliente.CustomViewDestroy(Sender: TObject);
|
procedure TfrViewPedidoCliente.CustomViewDestroy(Sender: TObject);
|
||||||
begin
|
begin
|
||||||
FViewClientePedido := NIL;
|
FViewClientePedido := NIL;
|
||||||
|
FFormasPago := Nil;
|
||||||
FFormasPagoController := NIL;
|
FFormasPagoController := NIL;
|
||||||
inherited;
|
inherited;
|
||||||
end;
|
end;
|
||||||
@ -187,6 +217,11 @@ begin
|
|||||||
frViewClientePedido.actAnadirContacto.Execute;
|
frViewClientePedido.actAnadirContacto.Execute;
|
||||||
end;
|
end;
|
||||||
|
|
||||||
|
function TfrViewPedidoCliente.GetController: IPedidosClienteController;
|
||||||
|
begin
|
||||||
|
Result := FController;
|
||||||
|
end;
|
||||||
|
|
||||||
function TfrViewPedidoCliente.GetPedido: IBizPedidoCliente;
|
function TfrViewPedidoCliente.GetPedido: IBizPedidoCliente;
|
||||||
begin
|
begin
|
||||||
Result := FPedido;
|
Result := FPedido;
|
||||||
@ -197,20 +232,83 @@ begin
|
|||||||
Result := FViewClientePedido;
|
Result := FViewClientePedido;
|
||||||
end;
|
end;
|
||||||
|
|
||||||
|
procedure TfrViewPedidoCliente.RellenarCuentasBancarias;
|
||||||
|
var
|
||||||
|
AController : IEmpresasController;
|
||||||
|
ALista : TStringList;
|
||||||
|
AListaIBAN : TStringList;
|
||||||
|
AListaCliente: TStringList;
|
||||||
|
i : integer;
|
||||||
|
begin
|
||||||
|
|
||||||
|
AController := TEmpresasController.Create;
|
||||||
|
try
|
||||||
|
ALista := AController.DarListaCuentasBancarias(AppFactuGES.EmpresaActiva);
|
||||||
|
AListaIBAN := AController.DarListaCuentasBancariasIBAN(AppFactuGES.EmpresaActiva);
|
||||||
|
AListaCliente := Controller.ClienteController.DarListaCuentasBancarias(FPedido.ID_CLIENTE);
|
||||||
|
|
||||||
|
try
|
||||||
|
with cbCuentaBancaria.Properties.Items do
|
||||||
|
begin
|
||||||
|
BeginUpdate;
|
||||||
|
try
|
||||||
|
Clear;
|
||||||
|
{
|
||||||
|
for i := 0 to ALista.Count - 1 do
|
||||||
|
Add(ALista.Names[i]);
|
||||||
|
|
||||||
|
if AListaIBAN.Count > 0 then
|
||||||
|
begin
|
||||||
|
Add('--------------');
|
||||||
|
for i := 0 to AListaIBAN.Count - 1 do
|
||||||
|
Add(AListaIBAN.Names[i]);
|
||||||
|
end;
|
||||||
|
}
|
||||||
|
if AListaCliente.Count > 0 then
|
||||||
|
begin
|
||||||
|
// Add('--------------');
|
||||||
|
for i := 0 to AListaCliente.Count - 1 do
|
||||||
|
Add(AListaCliente.Names[i]);
|
||||||
|
end;
|
||||||
|
|
||||||
|
Add('');
|
||||||
|
|
||||||
|
finally
|
||||||
|
EndUpdate;
|
||||||
|
end;
|
||||||
|
end;
|
||||||
|
finally
|
||||||
|
FreeANDNIL(ALista);
|
||||||
|
FreeANDNIL(AListaIBAN);
|
||||||
|
end;
|
||||||
|
finally
|
||||||
|
AController := NIL;
|
||||||
|
end;
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TfrViewPedidoCliente.SetController(const Value: IPedidosClienteController);
|
||||||
|
begin
|
||||||
|
FController := Value;
|
||||||
|
end;
|
||||||
|
|
||||||
procedure TfrViewPedidoCliente.SetPedido(const Value: IBizPedidoCliente);
|
procedure TfrViewPedidoCliente.SetPedido(const Value: IBizPedidoCliente);
|
||||||
begin
|
begin
|
||||||
FPedido := Value;
|
FPedido := Value;
|
||||||
|
RellenarCuentasBancarias;
|
||||||
|
|
||||||
if Assigned(FPedido) then
|
if Assigned(FPedido) then
|
||||||
begin
|
begin
|
||||||
DADataSource.DataTable := FPedido.DataTable;
|
DADataSource.DataTable := FPedido.DataTable;
|
||||||
dsFormaPago.DataTable := FFormasPagoController.BuscarTodos.DataTable;
|
FViewClientePedido.Pedido := FPedido;
|
||||||
|
|
||||||
|
FFormasPago := FFormasPagoController.BuscarTodos;
|
||||||
|
dsFormaPago.DataTable := FFormasPago.DataTable;
|
||||||
dsFormaPago.DataTable.Active := True;
|
dsFormaPago.DataTable.Active := True;
|
||||||
frViewClientePedido.Cliente := FPedido.Cliente;
|
|
||||||
end
|
end
|
||||||
else begin
|
else begin
|
||||||
DADataSource.DataTable := NIL;
|
DADataSource.DataTable := NIL;
|
||||||
dsFormaPago.DataTable := NIL;
|
dsFormaPago.DataTable := NIL;
|
||||||
frViewClientePedido.Cliente := nil;
|
frViewClientePedido.Pedido := nil;
|
||||||
end;
|
end;
|
||||||
end;
|
end;
|
||||||
|
|
||||||
|
|||||||
@ -36,6 +36,7 @@ inherited frViewPedidosCliente: TfrViewPedidosCliente
|
|||||||
OptionsView.GroupFooters = gfAlwaysVisible
|
OptionsView.GroupFooters = gfAlwaysVisible
|
||||||
object cxGridViewNUM_COPIAS: TcxGridDBColumn
|
object cxGridViewNUM_COPIAS: TcxGridDBColumn
|
||||||
DataBinding.FieldName = 'NUM_COPIAS'
|
DataBinding.FieldName = 'NUM_COPIAS'
|
||||||
|
Visible = False
|
||||||
MinWidth = 30
|
MinWidth = 30
|
||||||
Options.HorzSizing = False
|
Options.HorzSizing = False
|
||||||
VisibleForCustomization = False
|
VisibleForCustomization = False
|
||||||
@ -47,6 +48,7 @@ inherited frViewPedidosCliente: TfrViewPedidosCliente
|
|||||||
DataBinding.FieldName = 'NUM_CORREOS'
|
DataBinding.FieldName = 'NUM_CORREOS'
|
||||||
PropertiesClassName = 'TcxTextEditProperties'
|
PropertiesClassName = 'TcxTextEditProperties'
|
||||||
Properties.Alignment.Horz = taCenter
|
Properties.Alignment.Horz = taCenter
|
||||||
|
Visible = False
|
||||||
BestFitMaxWidth = 25
|
BestFitMaxWidth = 25
|
||||||
MinWidth = 25
|
MinWidth = 25
|
||||||
Options.Editing = False
|
Options.Editing = False
|
||||||
@ -57,15 +59,6 @@ inherited frViewPedidosCliente: TfrViewPedidosCliente
|
|||||||
Width = 25
|
Width = 25
|
||||||
OnCustomDrawHeader = cxGridViewNUM_CORREOSCustomDrawHeader
|
OnCustomDrawHeader = cxGridViewNUM_CORREOSCustomDrawHeader
|
||||||
end
|
end
|
||||||
object cxGridViewID: TcxGridDBColumn
|
|
||||||
DataBinding.FieldName = 'ID'
|
|
||||||
Visible = False
|
|
||||||
BestFitMaxWidth = 22
|
|
||||||
MinWidth = 22
|
|
||||||
Options.HorzSizing = False
|
|
||||||
Width = 22
|
|
||||||
IsCaptionAssigned = True
|
|
||||||
end
|
|
||||||
object cxGridViewINCIDENCIASACTIVAS: TcxGridDBColumn
|
object cxGridViewINCIDENCIASACTIVAS: TcxGridDBColumn
|
||||||
Caption = 'Incidencias'
|
Caption = 'Incidencias'
|
||||||
DataBinding.FieldName = 'INCIDENCIAS_ACTIVAS'
|
DataBinding.FieldName = 'INCIDENCIAS_ACTIVAS'
|
||||||
@ -92,10 +85,12 @@ inherited frViewPedidosCliente: TfrViewPedidosCliente
|
|||||||
object cxGridViewTIENDAWEB: TcxGridDBColumn
|
object cxGridViewTIENDAWEB: TcxGridDBColumn
|
||||||
Caption = #191'Proviene de tienda web?'
|
Caption = #191'Proviene de tienda web?'
|
||||||
DataBinding.FieldName = 'REF_TIENDA_WEB'
|
DataBinding.FieldName = 'REF_TIENDA_WEB'
|
||||||
|
Visible = False
|
||||||
OnCustomDrawCell = cxGridViewTIENDAWEBCustomDrawCell
|
OnCustomDrawCell = cxGridViewTIENDAWEBCustomDrawCell
|
||||||
BestFitMaxWidth = 22
|
BestFitMaxWidth = 22
|
||||||
MinWidth = 22
|
MinWidth = 22
|
||||||
Options.HorzSizing = False
|
Options.HorzSizing = False
|
||||||
|
VisibleForCustomization = False
|
||||||
Width = 22
|
Width = 22
|
||||||
end
|
end
|
||||||
object cxGridViewREFERENCIA: TcxGridDBColumn
|
object cxGridViewREFERENCIA: TcxGridDBColumn
|
||||||
@ -116,7 +111,9 @@ inherited frViewPedidosCliente: TfrViewPedidosCliente
|
|||||||
end
|
end
|
||||||
object cxGridViewFECHA_ENTREGA: TcxGridDBColumn
|
object cxGridViewFECHA_ENTREGA: TcxGridDBColumn
|
||||||
DataBinding.FieldName = 'FECHA_PREVISTA_ENVIO'
|
DataBinding.FieldName = 'FECHA_PREVISTA_ENVIO'
|
||||||
|
Visible = False
|
||||||
BestFitMaxWidth = 45
|
BestFitMaxWidth = 45
|
||||||
|
VisibleForCustomization = False
|
||||||
Width = 45
|
Width = 45
|
||||||
end
|
end
|
||||||
object cxGridViewNOMBRE: TcxGridDBColumn
|
object cxGridViewNOMBRE: TcxGridDBColumn
|
||||||
@ -126,26 +123,35 @@ inherited frViewPedidosCliente: TfrViewPedidosCliente
|
|||||||
end
|
end
|
||||||
object cxGridViewCALLE: TcxGridDBColumn
|
object cxGridViewCALLE: TcxGridDBColumn
|
||||||
DataBinding.FieldName = 'CALLE'
|
DataBinding.FieldName = 'CALLE'
|
||||||
|
Visible = False
|
||||||
|
VisibleForCustomization = False
|
||||||
Width = 70
|
Width = 70
|
||||||
end
|
end
|
||||||
object cxGridViewCODIGO_POSTAL: TcxGridDBColumn
|
object cxGridViewCODIGO_POSTAL: TcxGridDBColumn
|
||||||
DataBinding.FieldName = 'CODIGO_POSTAL'
|
DataBinding.FieldName = 'CODIGO_POSTAL'
|
||||||
Visible = False
|
Visible = False
|
||||||
|
VisibleForCustomization = False
|
||||||
end
|
end
|
||||||
object cxGridViewPOBLACION: TcxGridDBColumn
|
object cxGridViewPOBLACION: TcxGridDBColumn
|
||||||
DataBinding.FieldName = 'POBLACION'
|
DataBinding.FieldName = 'POBLACION'
|
||||||
|
Visible = False
|
||||||
|
VisibleForCustomization = False
|
||||||
Width = 68
|
Width = 68
|
||||||
end
|
end
|
||||||
object cxGridViewPROVINCIA: TcxGridDBColumn
|
object cxGridViewPROVINCIA: TcxGridDBColumn
|
||||||
DataBinding.FieldName = 'PROVINCIA'
|
DataBinding.FieldName = 'PROVINCIA'
|
||||||
Visible = False
|
Visible = False
|
||||||
|
VisibleForCustomization = False
|
||||||
end
|
end
|
||||||
object cxGridViewPERSONA_CONTACTO: TcxGridDBColumn
|
object cxGridViewPERSONA_CONTACTO: TcxGridDBColumn
|
||||||
DataBinding.FieldName = 'PERSONA_CONTACTO'
|
DataBinding.FieldName = 'PERSONA_CONTACTO'
|
||||||
Visible = False
|
Visible = False
|
||||||
|
VisibleForCustomization = False
|
||||||
end
|
end
|
||||||
object cxGridViewTELEFONO: TcxGridDBColumn
|
object cxGridViewTELEFONO: TcxGridDBColumn
|
||||||
DataBinding.FieldName = 'TELEFONO'
|
DataBinding.FieldName = 'TELEFONO'
|
||||||
|
Visible = False
|
||||||
|
VisibleForCustomization = False
|
||||||
Width = 70
|
Width = 70
|
||||||
end
|
end
|
||||||
object cxGridViewIMPORTE_TOTAL: TcxGridDBColumn
|
object cxGridViewIMPORTE_TOTAL: TcxGridDBColumn
|
||||||
@ -197,18 +203,28 @@ inherited frViewPedidosCliente: TfrViewPedidosCliente
|
|||||||
StyleDisabled.LookAndFeel.SkinName = ''
|
StyleDisabled.LookAndFeel.SkinName = ''
|
||||||
StyleFocused.LookAndFeel.SkinName = ''
|
StyleFocused.LookAndFeel.SkinName = ''
|
||||||
StyleHot.LookAndFeel.SkinName = ''
|
StyleHot.LookAndFeel.SkinName = ''
|
||||||
|
ExplicitWidth = 272
|
||||||
|
Width = 272
|
||||||
end
|
end
|
||||||
inherited edtFechaFinFiltro: TcxDateEdit
|
inherited edtFechaFinFiltro: TcxDateEdit
|
||||||
|
Left = 265
|
||||||
Style.LookAndFeel.SkinName = ''
|
Style.LookAndFeel.SkinName = ''
|
||||||
StyleDisabled.LookAndFeel.SkinName = ''
|
StyleDisabled.LookAndFeel.SkinName = ''
|
||||||
StyleFocused.LookAndFeel.SkinName = ''
|
StyleFocused.LookAndFeel.SkinName = ''
|
||||||
StyleHot.LookAndFeel.SkinName = ''
|
StyleHot.LookAndFeel.SkinName = ''
|
||||||
|
ExplicitLeft = 265
|
||||||
|
ExplicitWidth = 221
|
||||||
|
Width = 221
|
||||||
end
|
end
|
||||||
inherited eLista: TcxComboBox
|
inherited eLista: TcxComboBox
|
||||||
|
Left = 449
|
||||||
Style.LookAndFeel.SkinName = ''
|
Style.LookAndFeel.SkinName = ''
|
||||||
StyleDisabled.LookAndFeel.SkinName = ''
|
StyleDisabled.LookAndFeel.SkinName = ''
|
||||||
StyleFocused.LookAndFeel.SkinName = ''
|
StyleFocused.LookAndFeel.SkinName = ''
|
||||||
StyleHot.LookAndFeel.SkinName = ''
|
StyleHot.LookAndFeel.SkinName = ''
|
||||||
|
ExplicitLeft = 449
|
||||||
|
ExplicitWidth = 215
|
||||||
|
Width = 215
|
||||||
end
|
end
|
||||||
end
|
end
|
||||||
inherited TBXAlignmentPanel1: TSpTBXDockablePanel
|
inherited TBXAlignmentPanel1: TSpTBXDockablePanel
|
||||||
@ -241,9 +257,6 @@ inherited frViewPedidosCliente: TfrViewPedidosCliente
|
|||||||
BuiltInReportLink = True
|
BuiltInReportLink = True
|
||||||
end
|
end
|
||||||
end
|
end
|
||||||
inherited dxPSEngineController1: TdxPSEngineController
|
|
||||||
Active = True
|
|
||||||
end
|
|
||||||
inherited cxStyleRepository1: TcxStyleRepository
|
inherited cxStyleRepository1: TcxStyleRepository
|
||||||
Left = 248
|
Left = 248
|
||||||
object cxStylePENDIENTES: TcxStyle
|
object cxStylePENDIENTES: TcxStyle
|
||||||
|
|||||||
@ -29,7 +29,6 @@ type
|
|||||||
TfrViewPedidosCliente = class(TfrViewGrid, IViewPedidosCliente)
|
TfrViewPedidosCliente = class(TfrViewGrid, IViewPedidosCliente)
|
||||||
cxGridDBTableView1: TcxGridDBTableView;
|
cxGridDBTableView1: TcxGridDBTableView;
|
||||||
PngImageList: TPngImageList;
|
PngImageList: TPngImageList;
|
||||||
cxGridViewID: TcxGridDBColumn;
|
|
||||||
cxGridViewREFERENCIA: TcxGridDBColumn;
|
cxGridViewREFERENCIA: TcxGridDBColumn;
|
||||||
cxGridViewINCIDENCIASACTIVAS: TcxGridDBColumn;
|
cxGridViewINCIDENCIASACTIVAS: TcxGridDBColumn;
|
||||||
cxGridViewNOMBRE: TcxGridDBColumn;
|
cxGridViewNOMBRE: TcxGridDBColumn;
|
||||||
|
|||||||
277
Source/Modulos/Pedidos de cliente/Views/uViewTotalesPedido.dfm
Normal file
277
Source/Modulos/Pedidos de cliente/Views/uViewTotalesPedido.dfm
Normal file
@ -0,0 +1,277 @@
|
|||||||
|
inherited frViewTotalesPedido: TfrViewTotalesPedido
|
||||||
|
Width = 617
|
||||||
|
Height = 235
|
||||||
|
ExplicitWidth = 617
|
||||||
|
ExplicitHeight = 235
|
||||||
|
inherited dxLayoutControl1: TdxLayoutControl
|
||||||
|
Width = 617
|
||||||
|
Height = 235
|
||||||
|
ExplicitHeight = 270
|
||||||
|
inherited Bevel3: TBevel
|
||||||
|
Left = 266
|
||||||
|
Top = 10
|
||||||
|
Height = 100
|
||||||
|
ExplicitLeft = 266
|
||||||
|
ExplicitTop = 10
|
||||||
|
ExplicitHeight = 100
|
||||||
|
end
|
||||||
|
inherited Bevel4: TBevel
|
||||||
|
Left = 399
|
||||||
|
Top = 52
|
||||||
|
Width = 342
|
||||||
|
Height = 9
|
||||||
|
ExplicitLeft = 399
|
||||||
|
ExplicitTop = 52
|
||||||
|
ExplicitWidth = 342
|
||||||
|
ExplicitHeight = 9
|
||||||
|
end
|
||||||
|
inherited ImporteDto: TcxDBCurrencyEdit
|
||||||
|
Left = 163
|
||||||
|
Top = 37
|
||||||
|
Enabled = False
|
||||||
|
Style.LookAndFeel.SkinName = ''
|
||||||
|
Style.IsFontAssigned = True
|
||||||
|
StyleDisabled.LookAndFeel.SkinName = ''
|
||||||
|
StyleFocused.LookAndFeel.SkinName = ''
|
||||||
|
StyleHot.LookAndFeel.SkinName = ''
|
||||||
|
ExplicitLeft = 163
|
||||||
|
ExplicitTop = 37
|
||||||
|
end
|
||||||
|
inherited ImporteIVA: TcxDBCurrencyEdit
|
||||||
|
Left = 470
|
||||||
|
Top = 87
|
||||||
|
DataBinding.DataField = 'IMPORTE_DESCUENTO'
|
||||||
|
Properties.DisplayFormat = '-,0.00 '#8364';,0.00 '#8364
|
||||||
|
Style.LookAndFeel.SkinName = ''
|
||||||
|
Style.IsFontAssigned = True
|
||||||
|
StyleDisabled.LookAndFeel.SkinName = ''
|
||||||
|
StyleFocused.LookAndFeel.SkinName = ''
|
||||||
|
StyleHot.LookAndFeel.SkinName = ''
|
||||||
|
TabOrder = 10
|
||||||
|
ExplicitLeft = 470
|
||||||
|
ExplicitTop = 87
|
||||||
|
end
|
||||||
|
inherited ImporteTotal: TcxDBCurrencyEdit
|
||||||
|
Left = 399
|
||||||
|
Top = 141
|
||||||
|
Style.LookAndFeel.SkinName = ''
|
||||||
|
Style.IsFontAssigned = True
|
||||||
|
StyleDisabled.LookAndFeel.SkinName = ''
|
||||||
|
StyleFocused.LookAndFeel.SkinName = ''
|
||||||
|
StyleHot.LookAndFeel.SkinName = ''
|
||||||
|
TabOrder = 13
|
||||||
|
ExplicitLeft = 399
|
||||||
|
ExplicitTop = 141
|
||||||
|
ExplicitWidth = 90
|
||||||
|
Width = 90
|
||||||
|
end
|
||||||
|
inherited edtDescuento: TcxDBSpinEdit
|
||||||
|
Left = 92
|
||||||
|
Top = 37
|
||||||
|
Enabled = False
|
||||||
|
Style.LookAndFeel.SkinName = ''
|
||||||
|
Style.IsFontAssigned = True
|
||||||
|
StyleDisabled.LookAndFeel.SkinName = ''
|
||||||
|
StyleFocused.LookAndFeel.SkinName = ''
|
||||||
|
StyleHot.LookAndFeel.SkinName = ''
|
||||||
|
ExplicitLeft = 92
|
||||||
|
ExplicitTop = 37
|
||||||
|
end
|
||||||
|
inherited edtIVA: TcxDBSpinEdit
|
||||||
|
Left = 399
|
||||||
|
Top = 87
|
||||||
|
DataBinding.DataField = 'DESCUENTO'
|
||||||
|
Style.LookAndFeel.SkinName = ''
|
||||||
|
Style.IsFontAssigned = True
|
||||||
|
StyleDisabled.LookAndFeel.SkinName = ''
|
||||||
|
StyleFocused.LookAndFeel.SkinName = ''
|
||||||
|
StyleHot.LookAndFeel.SkinName = ''
|
||||||
|
TabOrder = 9
|
||||||
|
ExplicitLeft = 399
|
||||||
|
ExplicitTop = 87
|
||||||
|
end
|
||||||
|
inherited ImporteBase: TcxDBCurrencyEdit
|
||||||
|
Left = 399
|
||||||
|
Top = 10
|
||||||
|
DataBinding.DataField = 'IMPONIBLE_NETO'
|
||||||
|
Style.LookAndFeel.SkinName = ''
|
||||||
|
Style.IsFontAssigned = True
|
||||||
|
StyleDisabled.LookAndFeel.SkinName = ''
|
||||||
|
StyleFocused.LookAndFeel.SkinName = ''
|
||||||
|
StyleHot.LookAndFeel.SkinName = ''
|
||||||
|
TabOrder = 8
|
||||||
|
ExplicitLeft = 399
|
||||||
|
ExplicitTop = 10
|
||||||
|
end
|
||||||
|
inherited edtRE: TcxDBSpinEdit
|
||||||
|
Left = 399
|
||||||
|
Top = 114
|
||||||
|
DataBinding.DataField = 'DESCUENTO2'
|
||||||
|
Style.LookAndFeel.SkinName = ''
|
||||||
|
Style.IsFontAssigned = True
|
||||||
|
StyleDisabled.LookAndFeel.SkinName = ''
|
||||||
|
StyleFocused.LookAndFeel.SkinName = ''
|
||||||
|
StyleHot.LookAndFeel.SkinName = ''
|
||||||
|
TabOrder = 11
|
||||||
|
ExplicitLeft = 399
|
||||||
|
ExplicitTop = 114
|
||||||
|
end
|
||||||
|
inherited ImporteRE: TcxDBCurrencyEdit
|
||||||
|
Left = 470
|
||||||
|
Top = 114
|
||||||
|
DataBinding.DataField = 'IMPORTE_DESCUENTO2'
|
||||||
|
Properties.DisplayFormat = '-,0.00 '#8364';,0.00 '#8364
|
||||||
|
Style.LookAndFeel.SkinName = ''
|
||||||
|
Style.IsFontAssigned = True
|
||||||
|
StyleDisabled.LookAndFeel.SkinName = ''
|
||||||
|
StyleFocused.LookAndFeel.SkinName = ''
|
||||||
|
StyleHot.LookAndFeel.SkinName = ''
|
||||||
|
TabOrder = 12
|
||||||
|
ExplicitLeft = 470
|
||||||
|
ExplicitTop = 114
|
||||||
|
end
|
||||||
|
inherited eImporteNeto: TcxDBCurrencyEdit
|
||||||
|
Left = 92
|
||||||
|
Top = 10
|
||||||
|
Enabled = False
|
||||||
|
Style.LookAndFeel.SkinName = ''
|
||||||
|
Style.IsFontAssigned = True
|
||||||
|
StyleDisabled.LookAndFeel.SkinName = ''
|
||||||
|
StyleFocused.LookAndFeel.SkinName = ''
|
||||||
|
StyleHot.LookAndFeel.SkinName = ''
|
||||||
|
ExplicitLeft = 92
|
||||||
|
ExplicitTop = 10
|
||||||
|
end
|
||||||
|
inherited ePorte: TcxDBCurrencyEdit
|
||||||
|
Left = 92
|
||||||
|
Top = 64
|
||||||
|
Enabled = False
|
||||||
|
Style.LookAndFeel.SkinName = ''
|
||||||
|
Style.IsFontAssigned = True
|
||||||
|
StyleDisabled.LookAndFeel.SkinName = ''
|
||||||
|
StyleFocused.LookAndFeel.SkinName = ''
|
||||||
|
StyleHot.LookAndFeel.SkinName = ''
|
||||||
|
ExplicitLeft = 92
|
||||||
|
ExplicitTop = 64
|
||||||
|
end
|
||||||
|
inherited eIVA: TcxDBLookupComboBox
|
||||||
|
Left = 92
|
||||||
|
Top = 91
|
||||||
|
DataBinding.DataField = ''
|
||||||
|
Enabled = False
|
||||||
|
Style.LookAndFeel.SkinName = ''
|
||||||
|
StyleDisabled.LookAndFeel.SkinName = ''
|
||||||
|
StyleFocused.LookAndFeel.SkinName = ''
|
||||||
|
StyleHot.LookAndFeel.SkinName = ''
|
||||||
|
ExplicitLeft = 92
|
||||||
|
ExplicitTop = 91
|
||||||
|
end
|
||||||
|
inherited bTiposIVA: TButton
|
||||||
|
Left = 118
|
||||||
|
Top = 91
|
||||||
|
Enabled = False
|
||||||
|
ExplicitLeft = 118
|
||||||
|
ExplicitTop = 91
|
||||||
|
end
|
||||||
|
inherited cbRecargoEquivalencia: TcxDBCheckBox
|
||||||
|
Left = 92
|
||||||
|
Top = 118
|
||||||
|
DataBinding.DataField = ''
|
||||||
|
Enabled = False
|
||||||
|
Style.LookAndFeel.SkinName = ''
|
||||||
|
StyleDisabled.LookAndFeel.SkinName = ''
|
||||||
|
StyleFocused.LookAndFeel.SkinName = ''
|
||||||
|
StyleHot.LookAndFeel.SkinName = ''
|
||||||
|
ExplicitLeft = 92
|
||||||
|
ExplicitTop = 118
|
||||||
|
ExplicitWidth = 221
|
||||||
|
Width = 221
|
||||||
|
end
|
||||||
|
object Panel1: TPanel [15]
|
||||||
|
Left = 10
|
||||||
|
Top = 145
|
||||||
|
Width = 185
|
||||||
|
Height = 41
|
||||||
|
BevelOuter = bvNone
|
||||||
|
TabOrder = 7
|
||||||
|
end
|
||||||
|
inherited dxLayoutControl1Group_Root: TdxLayoutGroup
|
||||||
|
inherited dxLayoutControl1Group1: TdxLayoutGroup
|
||||||
|
CaptionOptions.Visible = False
|
||||||
|
ShowBorder = False
|
||||||
|
inherited dxLayoutControl1Group2: TdxLayoutGroup
|
||||||
|
inherited dxLayoutControl1Item8: TdxLayoutItem
|
||||||
|
Enabled = False
|
||||||
|
Visible = False
|
||||||
|
end
|
||||||
|
inherited dxLayoutControl1Group7: TdxLayoutGroup
|
||||||
|
inherited dxLayoutControl1Group10: TdxLayoutGroup
|
||||||
|
Enabled = False
|
||||||
|
Visible = False
|
||||||
|
inherited dxLayoutControl1Item4: TdxLayoutItem
|
||||||
|
Enabled = False
|
||||||
|
end
|
||||||
|
inherited dxLayoutControl1Item1: TdxLayoutItem
|
||||||
|
Enabled = False
|
||||||
|
end
|
||||||
|
end
|
||||||
|
inherited dxLayoutControl1Item9: TdxLayoutItem
|
||||||
|
Enabled = False
|
||||||
|
Visible = False
|
||||||
|
end
|
||||||
|
end
|
||||||
|
inherited dxLayoutControl1Group6: TdxLayoutGroup
|
||||||
|
Enabled = False
|
||||||
|
Visible = False
|
||||||
|
inherited dxLayoutControl1Item11: TdxLayoutItem
|
||||||
|
Enabled = False
|
||||||
|
end
|
||||||
|
inherited dxLayoutControl1Item15: TdxLayoutItem
|
||||||
|
Enabled = False
|
||||||
|
end
|
||||||
|
end
|
||||||
|
inherited dxLayoutControl1Item16: TdxLayoutItem
|
||||||
|
Enabled = False
|
||||||
|
Visible = False
|
||||||
|
end
|
||||||
|
object dxLayoutControl1Item20: TdxLayoutItem
|
||||||
|
CaptionOptions.Text = 'Panel1'
|
||||||
|
CaptionOptions.Visible = False
|
||||||
|
Control = Panel1
|
||||||
|
ControlOptions.AutoColor = True
|
||||||
|
ControlOptions.ShowBorder = False
|
||||||
|
end
|
||||||
|
end
|
||||||
|
inherited dxLayoutControl1Group5: TdxLayoutGroup
|
||||||
|
inherited dxLayoutControl1Item13: TdxLayoutItem
|
||||||
|
Visible = False
|
||||||
|
end
|
||||||
|
inherited dxLayoutControl1Group3: TdxLayoutGroup
|
||||||
|
inherited dxLayoutControl1Item12: TdxLayoutItem
|
||||||
|
CaptionOptions.Text = 'Importe neto:'
|
||||||
|
end
|
||||||
|
inherited dxLayoutControl1Item14: TdxLayoutItem
|
||||||
|
Enabled = False
|
||||||
|
Visible = False
|
||||||
|
end
|
||||||
|
inherited dxLayoutControl1Group9: TdxLayoutGroup
|
||||||
|
inherited dxLayoutControl1Item5: TdxLayoutItem
|
||||||
|
CaptionOptions.AlignHorz = taLeftJustify
|
||||||
|
CaptionOptions.Text = 'Dto. cliente (%):'
|
||||||
|
end
|
||||||
|
end
|
||||||
|
inherited dxLayoutControl1Group8: TdxLayoutGroup
|
||||||
|
inherited dxLayoutControl1Item6: TdxLayoutItem
|
||||||
|
CaptionOptions.AlignHorz = taLeftJustify
|
||||||
|
CaptionOptions.Text = 'Dto. pronto pago (%):'
|
||||||
|
end
|
||||||
|
inherited dxLayoutControl1Item7: TdxLayoutItem
|
||||||
|
Visible = True
|
||||||
|
end
|
||||||
|
end
|
||||||
|
end
|
||||||
|
end
|
||||||
|
end
|
||||||
|
end
|
||||||
|
end
|
||||||
|
end
|
||||||
@ -0,0 +1,32 @@
|
|||||||
|
|
||||||
|
unit uViewTotalesPedido;
|
||||||
|
|
||||||
|
interface
|
||||||
|
|
||||||
|
uses
|
||||||
|
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
|
||||||
|
Dialogs, uViewTotales, cxGraphics, dxLayoutLookAndFeels, DB, uDAInterfaces,
|
||||||
|
uDADataTable, dxLayoutControl, cxDropDownEdit, cxCalendar, cxDBEdit,
|
||||||
|
cxCheckBox, StdCtrls, cxLookupEdit, cxDBLookupEdit, cxDBLookupComboBox,
|
||||||
|
cxMaskEdit, cxSpinEdit, cxContainer, cxEdit, cxTextEdit, cxCurrencyEdit,
|
||||||
|
cxControls, ExtCtrls, cxLookAndFeels, cxLookAndFeelPainters,
|
||||||
|
dxLayoutcxEditAdapters, dxLayoutControlAdapters;
|
||||||
|
|
||||||
|
type
|
||||||
|
TfrViewTotalesPedido = class(TfrViewTotales)
|
||||||
|
Panel1: TPanel;
|
||||||
|
dxLayoutControl1Item20: TdxLayoutItem;
|
||||||
|
private
|
||||||
|
{ Private declarations }
|
||||||
|
public
|
||||||
|
{ Public declarations }
|
||||||
|
end;
|
||||||
|
|
||||||
|
var
|
||||||
|
frViewTotalesPedido: TfrViewTotalesPedido;
|
||||||
|
|
||||||
|
implementation
|
||||||
|
|
||||||
|
{$R *.dfm}
|
||||||
|
|
||||||
|
end.
|
||||||
@ -50,9 +50,9 @@ inherited fEditorRemesasCliente: TfEditorRemesasCliente
|
|||||||
end
|
end
|
||||||
end
|
end
|
||||||
inherited tbxFiltro: TSpTBXToolbar
|
inherited tbxFiltro: TSpTBXToolbar
|
||||||
ExplicitWidth = 326
|
ExplicitWidth = 334
|
||||||
inherited lblAno: TSpTBXLabelItem
|
inherited lblAno: TSpTBXLabelItem
|
||||||
Visible = True
|
Enabled = False
|
||||||
end
|
end
|
||||||
inherited sepAno: TSpTBXSeparatorItem
|
inherited sepAno: TSpTBXSeparatorItem
|
||||||
Visible = True
|
Visible = True
|
||||||
@ -60,10 +60,6 @@ inherited fEditorRemesasCliente: TfEditorRemesasCliente
|
|||||||
inherited TBXItem37: TSpTBXItem
|
inherited TBXItem37: TSpTBXItem
|
||||||
Visible = False
|
Visible = False
|
||||||
end
|
end
|
||||||
inherited cbxListaAnos: TSpTBXComboBox
|
|
||||||
Left = 33
|
|
||||||
ExplicitLeft = 33
|
|
||||||
end
|
|
||||||
end
|
end
|
||||||
inherited tbxMenu: TSpTBXToolbar
|
inherited tbxMenu: TSpTBXToolbar
|
||||||
ExplicitWidth = 785
|
ExplicitWidth = 785
|
||||||
@ -75,8 +71,8 @@ inherited fEditorRemesasCliente: TfEditorRemesasCliente
|
|||||||
end
|
end
|
||||||
end
|
end
|
||||||
inherited TBXTMain2: TSpTBXToolbar
|
inherited TBXTMain2: TSpTBXToolbar
|
||||||
Left = 326
|
Left = 334
|
||||||
ExplicitLeft = 326
|
ExplicitLeft = 334
|
||||||
end
|
end
|
||||||
end
|
end
|
||||||
inherited StatusBar: TJvStatusBar
|
inherited StatusBar: TJvStatusBar
|
||||||
|
|||||||
@ -45,6 +45,7 @@ inherited frViewRecibosRemesaCliente: TfrViewRecibosRemesaCliente
|
|||||||
Width = 65
|
Width = 65
|
||||||
end
|
end
|
||||||
object cxGridViewFECHA_EMISION: TcxGridDBColumn
|
object cxGridViewFECHA_EMISION: TcxGridDBColumn
|
||||||
|
Caption = 'Fecha emisi'#243'n'
|
||||||
DataBinding.FieldName = 'FECHA_EMISION'
|
DataBinding.FieldName = 'FECHA_EMISION'
|
||||||
end
|
end
|
||||||
object cxGridViewFECHA_VENCIMIENTO: TcxGridDBColumn
|
object cxGridViewFECHA_VENCIMIENTO: TcxGridDBColumn
|
||||||
|
|||||||
Binary file not shown.
@ -129,8 +129,6 @@ uses
|
|||||||
uBizVendedoresServer in '..\Modulos\Contactos\Model\uBizVendedoresServer.pas',
|
uBizVendedoresServer in '..\Modulos\Contactos\Model\uBizVendedoresServer.pas',
|
||||||
schArticulosClient_Intf in '..\Modulos\Articulos\Model\schArticulosClient_Intf.pas',
|
schArticulosClient_Intf in '..\Modulos\Articulos\Model\schArticulosClient_Intf.pas',
|
||||||
schArticulosServer_Intf in '..\Modulos\Articulos\Model\schArticulosServer_Intf.pas',
|
schArticulosServer_Intf in '..\Modulos\Articulos\Model\schArticulosServer_Intf.pas',
|
||||||
schAlbaranesClienteClient_Intf in '..\Modulos\Albaranes de cliente\Model\schAlbaranesClienteClient_Intf.pas',
|
|
||||||
schAlbaranesClienteServer_Intf in '..\Modulos\Albaranes de cliente\Model\schAlbaranesClienteServer_Intf.pas',
|
|
||||||
schContactosClient_Intf in '..\Modulos\Contactos\Model\schContactosClient_Intf.pas',
|
schContactosClient_Intf in '..\Modulos\Contactos\Model\schContactosClient_Intf.pas',
|
||||||
schContactosServer_Intf in '..\Modulos\Contactos\Model\schContactosServer_Intf.pas',
|
schContactosServer_Intf in '..\Modulos\Contactos\Model\schContactosServer_Intf.pas',
|
||||||
schFacturasClienteClient_Intf in '..\Modulos\Facturas de cliente\Model\schFacturasClienteClient_Intf.pas',
|
schFacturasClienteClient_Intf in '..\Modulos\Facturas de cliente\Model\schFacturasClienteClient_Intf.pas',
|
||||||
@ -140,6 +138,8 @@ uses
|
|||||||
uRptRemesasCliente_Server in '..\Modulos\Remesas de cliente\Reports\uRptRemesasCliente_Server.pas' {RptRemesasCliente: TDataModule},
|
uRptRemesasCliente_Server in '..\Modulos\Remesas de cliente\Reports\uRptRemesasCliente_Server.pas' {RptRemesasCliente: TDataModule},
|
||||||
srvPedidosCliente_Impl in '..\Modulos\Pedidos de cliente\Servidor\srvPedidosCliente_Impl.pas' {srvPedidosCliente: TDataAbstractService},
|
srvPedidosCliente_Impl in '..\Modulos\Pedidos de cliente\Servidor\srvPedidosCliente_Impl.pas' {srvPedidosCliente: TDataAbstractService},
|
||||||
uBizPedidosClienteServer in '..\Modulos\Pedidos de cliente\Model\uBizPedidosClienteServer.pas',
|
uBizPedidosClienteServer in '..\Modulos\Pedidos de cliente\Model\uBizPedidosClienteServer.pas',
|
||||||
|
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',
|
schPedidosClienteClient_Intf in '..\Modulos\Pedidos de cliente\Model\schPedidosClienteClient_Intf.pas',
|
||||||
schPedidosClienteServer_Intf in '..\Modulos\Pedidos de cliente\Model\schPedidosClienteServer_Intf.pas';
|
schPedidosClienteServer_Intf in '..\Modulos\Pedidos de cliente\Model\schPedidosClienteServer_Intf.pas';
|
||||||
|
|
||||||
|
|||||||
@ -1,4 +1,4 @@
|
|||||||
<?xml version="1.0" encoding="utf-8"?>
|
<?xml version="1.0" encoding="utf-8"?>
|
||||||
<Project xmlns="http://schemas.microsoft.com/developer/msbuild/2003">
|
<Project xmlns="http://schemas.microsoft.com/developer/msbuild/2003">
|
||||||
<PropertyGroup>
|
<PropertyGroup>
|
||||||
<ProjectGuid>{ebdcd25d-40d7-4146-91ec-a0ea4aa1dcd1}</ProjectGuid>
|
<ProjectGuid>{ebdcd25d-40d7-4146-91ec-a0ea4aa1dcd1}</ProjectGuid>
|
||||||
@ -35,7 +35,7 @@
|
|||||||
<Borland.Personality>Delphi.Personality</Borland.Personality>
|
<Borland.Personality>Delphi.Personality</Borland.Personality>
|
||||||
<Borland.ProjectType />
|
<Borland.ProjectType />
|
||||||
<BorlandProject>
|
<BorlandProject>
|
||||||
<BorlandProject><Delphi.Personality><Parameters><Parameters Name="UseLauncher">False</Parameters><Parameters Name="LoadAllSymbols">True</Parameters><Parameters Name="LoadUnspecifiedSymbols">False</Parameters><Parameters Name="RunParams">/standalone</Parameters></Parameters><VersionInfo><VersionInfo Name="IncludeVerInfo">True</VersionInfo><VersionInfo Name="AutoIncBuild">False</VersionInfo><VersionInfo Name="MajorVer">1</VersionInfo><VersionInfo Name="MinorVer">0</VersionInfo><VersionInfo Name="Release">1</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.1.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.1.0</VersionInfoKeys><VersionInfoKeys Name="Comments"></VersionInfoKeys><VersionInfoKeys Name="CompileDate">viernes, 12 de febrero de 2010 10:53</VersionInfoKeys></VersionInfoKeys><Excluded_Packages></Excluded_Packages><Source><Source Name="MainSource">FactuGES_Server.dpr</Source></Source></Delphi.Personality></BorlandProject></BorlandProject>
|
<BorlandProject><Delphi.Personality><Parameters><Parameters Name="UseLauncher">False</Parameters><Parameters Name="LoadAllSymbols">True</Parameters><Parameters Name="LoadUnspecifiedSymbols">False</Parameters><Parameters Name="RunParams">/standalone</Parameters></Parameters><VersionInfo><VersionInfo Name="IncludeVerInfo">True</VersionInfo><VersionInfo Name="AutoIncBuild">False</VersionInfo><VersionInfo Name="MajorVer">1</VersionInfo><VersionInfo Name="MinorVer">0</VersionInfo><VersionInfo Name="Release">2</VersionInfo><VersionInfo Name="Build">0</VersionInfo><VersionInfo Name="Debug">False</VersionInfo><VersionInfo Name="PreRelease">False</VersionInfo><VersionInfo Name="Special">False</VersionInfo><VersionInfo Name="Private">False</VersionInfo><VersionInfo Name="DLL">False</VersionInfo><VersionInfo Name="Locale">3082</VersionInfo><VersionInfo Name="CodePage">1252</VersionInfo></VersionInfo><VersionInfoKeys><VersionInfoKeys Name="CompanyName">Rodax Software S.L.</VersionInfoKeys><VersionInfoKeys Name="FileDescription"></VersionInfoKeys><VersionInfoKeys Name="FileVersion">1.0.2.0</VersionInfoKeys><VersionInfoKeys Name="InternalName">FactuGES Servidor</VersionInfoKeys><VersionInfoKeys Name="LegalCopyright"></VersionInfoKeys><VersionInfoKeys Name="LegalTrademarks"></VersionInfoKeys><VersionInfoKeys Name="OriginalFilename"></VersionInfoKeys><VersionInfoKeys Name="ProductName">FactuGES Servidor</VersionInfoKeys><VersionInfoKeys Name="ProductVersion">1.0.2.0</VersionInfoKeys><VersionInfoKeys Name="Comments"></VersionInfoKeys><VersionInfoKeys Name="CompileDate">jueves, 18 de febrero de 2010 12:17</VersionInfoKeys></VersionInfoKeys><Excluded_Packages></Excluded_Packages><Source><Source Name="MainSource">FactuGES_Server.dpr</Source></Source></Delphi.Personality></BorlandProject></BorlandProject>
|
||||||
</ProjectExtensions>
|
</ProjectExtensions>
|
||||||
<Import Project="$(MSBuildBinPath)\Borland.Delphi.Targets" />
|
<Import Project="$(MSBuildBinPath)\Borland.Delphi.Targets" />
|
||||||
<ItemGroup>
|
<ItemGroup>
|
||||||
|
|||||||
@ -1,7 +1,7 @@
|
|||||||
MAINICON ICON "C:\Codigo Noviseda\Resources\Iconos\Servidor.ico"
|
MAINICON ICON "C:\Codigo Noviseda\Resources\Iconos\Servidor.ico"
|
||||||
1 VERSIONINFO
|
1 VERSIONINFO
|
||||||
FILEVERSION 1,0,1,0
|
FILEVERSION 1,0,2,0
|
||||||
PRODUCTVERSION 1,0,1,0
|
PRODUCTVERSION 1,0,2,0
|
||||||
FILEFLAGSMASK 0x3FL
|
FILEFLAGSMASK 0x3FL
|
||||||
FILEFLAGS 0x00L
|
FILEFLAGS 0x00L
|
||||||
FILEOS 0x40004L
|
FILEOS 0x40004L
|
||||||
@ -13,11 +13,11 @@ BEGIN
|
|||||||
BLOCK "0C0A04E4"
|
BLOCK "0C0A04E4"
|
||||||
BEGIN
|
BEGIN
|
||||||
VALUE "CompanyName", "Rodax Software S.L.\0"
|
VALUE "CompanyName", "Rodax Software S.L.\0"
|
||||||
VALUE "FileVersion", "1.0.1.0\0"
|
VALUE "FileVersion", "1.0.2.0\0"
|
||||||
VALUE "InternalName", "FactuGES Servidor\0"
|
VALUE "InternalName", "FactuGES Servidor\0"
|
||||||
VALUE "ProductName", "FactuGES Servidor\0"
|
VALUE "ProductName", "FactuGES Servidor\0"
|
||||||
VALUE "ProductVersion", "1.0.1.0\0"
|
VALUE "ProductVersion", "1.0.2.0\0"
|
||||||
VALUE "CompileDate", "martes, 16 de febrero de 2010 16:34\0"
|
VALUE "CompileDate", "jueves, 04 de marzo de 2010 12:31\0"
|
||||||
END
|
END
|
||||||
END
|
END
|
||||||
BLOCK "VarFileInfo"
|
BLOCK "VarFileInfo"
|
||||||
|
|||||||
Reference in New Issue
Block a user