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;
|
||||
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;
|
||||
SET GENERATOR GEN_PEDIDOS_PROV_DETALLES_ID TO 1;
|
||||
|
||||
@ -922,7 +925,10 @@ CREATE TABLE PEDIDOS_CLIENTE (
|
||||
ID_FORMA_PAGO TIPO_ID,
|
||||
REF_TIENDA_WEB INTEGER,
|
||||
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 (
|
||||
@ -942,6 +948,23 @@ CREATE TABLE PEDIDOS_CLIENTE_DETALLES (
|
||||
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 (
|
||||
ID TIPO_ID NOT NULL,
|
||||
ID_EMPRESA TIPO_ID,
|
||||
@ -3817,13 +3840,17 @@ CREATE VIEW V_PEDIDOS_CLIENTE(
|
||||
IMPORTE_PORTE,
|
||||
DESCUENTO,
|
||||
IMPORTE_DESCUENTO,
|
||||
DESCUENTO2,
|
||||
IMPORTE_DESCUENTO2,
|
||||
BASE_IMPONIBLE,
|
||||
IVA,
|
||||
IMPORTE_IVA,
|
||||
IMPORTE_TOTAL,
|
||||
ID_FORMA_PAGO,
|
||||
FORMA_PAGO,
|
||||
REF_TIENDA_WEB,
|
||||
FECHA_PREVISTA_ENVIO)
|
||||
FECHA_PREVISTA_ENVIO,
|
||||
DATOS_BANCARIOS)
|
||||
AS
|
||||
SELECT
|
||||
PEDIDOS_CLIENTE.ID,
|
||||
@ -3851,17 +3878,22 @@ SELECT
|
||||
PEDIDOS_CLIENTE.IMPORTE_PORTE,
|
||||
PEDIDOS_CLIENTE.DESCUENTO,
|
||||
PEDIDOS_CLIENTE.IMPORTE_DESCUENTO,
|
||||
PEDIDOS_CLIENTE.DESCUENTO2,
|
||||
PEDIDOS_CLIENTE.IMPORTE_DESCUENTO2,
|
||||
PEDIDOS_CLIENTE.BASE_IMPONIBLE,
|
||||
PEDIDOS_CLIENTE.IVA,
|
||||
PEDIDOS_CLIENTE.IMPORTE_IVA,
|
||||
PEDIDOS_CLIENTE.IMPORTE_TOTAL,
|
||||
PEDIDOS_CLIENTE.ID_FORMA_PAGO,
|
||||
FORMAS_PAGO.DESCRIPCION,
|
||||
PEDIDOS_CLIENTE.REF_TIENDA_WEB,
|
||||
PEDIDOS_CLIENTE.FECHA_PREVISTA_ENVIO
|
||||
PEDIDOS_CLIENTE.FECHA_PREVISTA_ENVIO,
|
||||
PEDIDOS_CLIENTE.DATOS_BANCARIOS
|
||||
FROM
|
||||
V_PED_CLI_SITUACION
|
||||
INNER JOIN PEDIDOS_CLIENTE ON (PEDIDOS_CLIENTE.ID = V_PED_CLI_SITUACION.ID_PEDIDO)
|
||||
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 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_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_DETALLES ADD CONSTRAINT PK_PEDIDOS_PROVEEDOR_DETALLES PRIMARY KEY (ID);
|
||||
ALTER TABLE PERMISOS ADD CONSTRAINT PK_PERMISOS PRIMARY KEY (ID);
|
||||
|
||||
@ -55,10 +55,10 @@
|
||||
<DelphiCompile Include="ApplicationBase.dpk">
|
||||
<MainSource>MainSource</MainSource>
|
||||
</DelphiCompile>
|
||||
<DCCReference Include="C:\Documents and Settings\Usuario\Base.dcp" />
|
||||
<DCCReference Include="C:\Documents and Settings\Usuario\GUIBase.dcp" />
|
||||
<DCCReference Include="C:\Documents and Settings\Usuario\JvJansD11R.dcp" />
|
||||
<DCCReference Include="C:\Documents and Settings\Usuario\PluginSDK_D11R.dcp" />
|
||||
<DCCReference Include="..\Modulos\Pedidos de cliente\Views\Base.dcp" />
|
||||
<DCCReference Include="..\Modulos\Pedidos de cliente\Views\GUIBase.dcp" />
|
||||
<DCCReference Include="..\Modulos\Pedidos de cliente\Views\JvJansD11R.dcp" />
|
||||
<DCCReference Include="..\Modulos\Pedidos de cliente\Views\PluginSDK_D11R.dcp" />
|
||||
<DCCReference Include="Empresas\Controller\uDatosBancariosEmpresaController.pas" />
|
||||
<DCCReference Include="Empresas\Controller\uEmpresasController.pas" />
|
||||
<DCCReference Include="Empresas\Controller\View\uIEditorDatosBancarioEmpresa.pas" />
|
||||
|
||||
@ -45,6 +45,8 @@
|
||||
<Borland.ProjectType>Package</Borland.ProjectType>
|
||||
<BorlandProject>
|
||||
<BorlandProject><Delphi.Personality><Parameters><Parameters Name="UseLauncher">False</Parameters><Parameters Name="LoadAllSymbols">True</Parameters><Parameters Name="LoadUnspecifiedSymbols">False</Parameters></Parameters><Package_Options><Package_Options Name="PackageDescription">Libreria base de FactuGES</Package_Options><Package_Options Name="ImplicitBuild">False</Package_Options><Package_Options Name="DesigntimeOnly">False</Package_Options><Package_Options Name="RuntimeOnly">False</Package_Options></Package_Options><VersionInfo><VersionInfo Name="IncludeVerInfo">True</VersionInfo><VersionInfo Name="AutoIncBuild">False</VersionInfo><VersionInfo Name="MajorVer">1</VersionInfo><VersionInfo Name="MinorVer">0</VersionInfo><VersionInfo Name="Release">0</VersionInfo><VersionInfo Name="Build">0</VersionInfo><VersionInfo Name="Debug">False</VersionInfo><VersionInfo Name="PreRelease">False</VersionInfo><VersionInfo Name="Special">False</VersionInfo><VersionInfo Name="Private">False</VersionInfo><VersionInfo Name="DLL">False</VersionInfo><VersionInfo Name="Locale">3082</VersionInfo><VersionInfo Name="CodePage">1252</VersionInfo></VersionInfo><VersionInfoKeys><VersionInfoKeys Name="CompanyName"></VersionInfoKeys><VersionInfoKeys Name="FileDescription"></VersionInfoKeys><VersionInfoKeys Name="FileVersion">1.0.0.0</VersionInfoKeys><VersionInfoKeys Name="InternalName"></VersionInfoKeys><VersionInfoKeys Name="LegalCopyright"></VersionInfoKeys><VersionInfoKeys Name="LegalTrademarks"></VersionInfoKeys><VersionInfoKeys Name="OriginalFilename"></VersionInfoKeys><VersionInfoKeys Name="ProductName"></VersionInfoKeys><VersionInfoKeys Name="ProductVersion">1.0.0.0</VersionInfoKeys></VersionInfoKeys><Excluded_Packages>
|
||||
|
||||
|
||||
<Excluded_Packages Name="C:\Documents and Settings\All Users\Documentos\RAD Studio\5.0\Bpl\RemObjects_Indy_D11.bpl">RemObjects SDK - Indy Library</Excluded_Packages>
|
||||
</Excluded_Packages><Source><Source Name="MainSource">Base.dpk</Source></Source></Delphi.Personality></BorlandProject></BorlandProject>
|
||||
</ProjectExtensions>
|
||||
@ -54,57 +56,57 @@
|
||||
<MainSource>MainSource</MainSource>
|
||||
</DelphiCompile>
|
||||
<DCCReference Include="..\Servicios\FactuGES_Intf.pas" />
|
||||
<DCCReference Include="C:\Documents and Settings\Usuario\adortl.dcp" />
|
||||
<DCCReference Include="C:\Documents and Settings\Usuario\cxDataD11.dcp" />
|
||||
<DCCReference Include="C:\Documents and Settings\Usuario\cxEditorsD11.dcp" />
|
||||
<DCCReference Include="C:\Documents and Settings\Usuario\cxExportD11.dcp" />
|
||||
<DCCReference Include="C:\Documents and Settings\Usuario\cxExtEditorsD11.dcp" />
|
||||
<DCCReference Include="C:\Documents and Settings\Usuario\cxGridD11.dcp" />
|
||||
<DCCReference Include="C:\Documents and Settings\Usuario\cxLibraryD11.dcp" />
|
||||
<DCCReference Include="C:\Documents and Settings\Usuario\cxPageControlD11.dcp" />
|
||||
<DCCReference Include="C:\Documents and Settings\Usuario\DataAbstract_Core_D11.dcp" />
|
||||
<DCCReference Include="C:\Documents and Settings\Usuario\dbrtl.dcp" />
|
||||
<DCCReference Include="C:\Documents and Settings\Usuario\dclIndyCore.dcp" />
|
||||
<DCCReference Include="C:\Documents and Settings\Usuario\designide.dcp" />
|
||||
<DCCReference Include="C:\Documents and Settings\Usuario\dsnap.dcp" />
|
||||
<DCCReference Include="C:\Documents and Settings\Usuario\dxCoreD11.dcp" />
|
||||
<DCCReference Include="C:\Documents and Settings\Usuario\dxGDIPlusD11.dcp" />
|
||||
<DCCReference Include="C:\Documents and Settings\Usuario\dxLayoutControlD11.dcp" />
|
||||
<DCCReference Include="C:\Documents and Settings\Usuario\dxPSCoreD11.dcp" />
|
||||
<DCCReference Include="C:\Documents and Settings\Usuario\dxThemeD11.dcp" />
|
||||
<DCCReference Include="C:\Documents and Settings\Usuario\GUISDK_D11R.dcp" />
|
||||
<DCCReference Include="C:\Documents and Settings\Usuario\IndyCore.dcp" />
|
||||
<DCCReference Include="C:\Documents and Settings\Usuario\IndyProtocols.dcp" />
|
||||
<DCCReference Include="C:\Documents and Settings\Usuario\IndySystem.dcp" />
|
||||
<DCCReference Include="C:\Documents and Settings\Usuario\Jcl.dcp" />
|
||||
<DCCReference Include="C:\Documents and Settings\Usuario\JclVcl.dcp" />
|
||||
<DCCReference Include="C:\Documents and Settings\Usuario\JSDialog100.dcp" />
|
||||
<DCCReference Include="C:\Documents and Settings\Usuario\JvCmpD11R.dcp" />
|
||||
<DCCReference Include="C:\Documents and Settings\Usuario\JvCoreD11R.dcp" />
|
||||
<DCCReference Include="C:\Documents and Settings\Usuario\JvCtrlsD11R.dcp" />
|
||||
<DCCReference Include="C:\Documents and Settings\Usuario\JvDlgsD11R.dcp" />
|
||||
<DCCReference Include="C:\Documents and Settings\Usuario\JvMMD11R.dcp" />
|
||||
<DCCReference Include="C:\Documents and Settings\Usuario\JvNetD11R.dcp" />
|
||||
<DCCReference Include="C:\Documents and Settings\Usuario\JvPageCompsD11R.dcp" />
|
||||
<DCCReference Include="C:\Documents and Settings\Usuario\JvStdCtrlsD11R.dcp" />
|
||||
<DCCReference Include="C:\Documents and Settings\Usuario\JvSystemD11R.dcp" />
|
||||
<DCCReference Include="C:\Documents and Settings\Usuario\pckMD5.dcp" />
|
||||
<DCCReference Include="C:\Documents and Settings\Usuario\pckUCDataConnector.dcp" />
|
||||
<DCCReference Include="C:\Documents and Settings\Usuario\pckUserControl_RT.dcp" />
|
||||
<DCCReference Include="C:\Documents and Settings\Usuario\PngComponentsD10.dcp" />
|
||||
<DCCReference Include="C:\Documents and Settings\Usuario\PNG_D10.dcp" />
|
||||
<DCCReference Include="C:\Documents and Settings\Usuario\RemObjects_Core_D11.dcp" />
|
||||
<DCCReference Include="C:\Documents and Settings\Usuario\RemObjects_Indy_D11.dcp" />
|
||||
<DCCReference Include="C:\Documents and Settings\Usuario\rtl.dcp" />
|
||||
<DCCReference Include="C:\Documents and Settings\Usuario\SpTBXLib_d11.dcp" />
|
||||
<DCCReference Include="C:\Documents and Settings\Usuario\tb2k_d11.dcp" />
|
||||
<DCCReference Include="C:\Documents and Settings\Usuario\vcl.dcp" />
|
||||
<DCCReference Include="C:\Documents and Settings\Usuario\vclactnband.dcp" />
|
||||
<DCCReference Include="C:\Documents and Settings\Usuario\vcldb.dcp" />
|
||||
<DCCReference Include="C:\Documents and Settings\Usuario\vcljpg.dcp" />
|
||||
<DCCReference Include="C:\Documents and Settings\Usuario\VclSmp.dcp" />
|
||||
<DCCReference Include="C:\Documents and Settings\Usuario\vclx.dcp" />
|
||||
<DCCReference Include="C:\Documents and Settings\Usuario\xmlrtl.dcp" />
|
||||
<DCCReference Include="..\Servidor\adortl.dcp" />
|
||||
<DCCReference Include="..\Servidor\cxDataD11.dcp" />
|
||||
<DCCReference Include="..\Servidor\cxEditorsD11.dcp" />
|
||||
<DCCReference Include="..\Servidor\cxExportD11.dcp" />
|
||||
<DCCReference Include="..\Servidor\cxExtEditorsD11.dcp" />
|
||||
<DCCReference Include="..\Servidor\cxGridD11.dcp" />
|
||||
<DCCReference Include="..\Servidor\cxLibraryD11.dcp" />
|
||||
<DCCReference Include="..\Servidor\cxPageControlD11.dcp" />
|
||||
<DCCReference Include="..\Servidor\DataAbstract_Core_D11.dcp" />
|
||||
<DCCReference Include="..\Servidor\dbrtl.dcp" />
|
||||
<DCCReference Include="..\Servidor\dclIndyCore.dcp" />
|
||||
<DCCReference Include="..\Servidor\designide.dcp" />
|
||||
<DCCReference Include="..\Servidor\dsnap.dcp" />
|
||||
<DCCReference Include="..\Servidor\dxCoreD11.dcp" />
|
||||
<DCCReference Include="..\Servidor\dxGDIPlusD11.dcp" />
|
||||
<DCCReference Include="..\Servidor\dxLayoutControlD11.dcp" />
|
||||
<DCCReference Include="..\Servidor\dxPSCoreD11.dcp" />
|
||||
<DCCReference Include="..\Servidor\dxThemeD11.dcp" />
|
||||
<DCCReference Include="..\Servidor\GUISDK_D11R.dcp" />
|
||||
<DCCReference Include="..\Servidor\IndyCore.dcp" />
|
||||
<DCCReference Include="..\Servidor\IndyProtocols.dcp" />
|
||||
<DCCReference Include="..\Servidor\IndySystem.dcp" />
|
||||
<DCCReference Include="..\Servidor\Jcl.dcp" />
|
||||
<DCCReference Include="..\Servidor\JclVcl.dcp" />
|
||||
<DCCReference Include="..\Servidor\JSDialog100.dcp" />
|
||||
<DCCReference Include="..\Servidor\JvCmpD11R.dcp" />
|
||||
<DCCReference Include="..\Servidor\JvCoreD11R.dcp" />
|
||||
<DCCReference Include="..\Servidor\JvCtrlsD11R.dcp" />
|
||||
<DCCReference Include="..\Servidor\JvDlgsD11R.dcp" />
|
||||
<DCCReference Include="..\Servidor\JvMMD11R.dcp" />
|
||||
<DCCReference Include="..\Servidor\JvNetD11R.dcp" />
|
||||
<DCCReference Include="..\Servidor\JvPageCompsD11R.dcp" />
|
||||
<DCCReference Include="..\Servidor\JvStdCtrlsD11R.dcp" />
|
||||
<DCCReference Include="..\Servidor\JvSystemD11R.dcp" />
|
||||
<DCCReference Include="..\Servidor\pckMD5.dcp" />
|
||||
<DCCReference Include="..\Servidor\pckUCDataConnector.dcp" />
|
||||
<DCCReference Include="..\Servidor\pckUserControl_RT.dcp" />
|
||||
<DCCReference Include="..\Servidor\PngComponentsD10.dcp" />
|
||||
<DCCReference Include="..\Servidor\PNG_D10.dcp" />
|
||||
<DCCReference Include="..\Servidor\RemObjects_Core_D11.dcp" />
|
||||
<DCCReference Include="..\Servidor\RemObjects_Indy_D11.dcp" />
|
||||
<DCCReference Include="..\Servidor\rtl.dcp" />
|
||||
<DCCReference Include="..\Servidor\SpTBXLib_d11.dcp" />
|
||||
<DCCReference Include="..\Servidor\tb2k_d11.dcp" />
|
||||
<DCCReference Include="..\Servidor\vcl.dcp" />
|
||||
<DCCReference Include="..\Servidor\vclactnband.dcp" />
|
||||
<DCCReference Include="..\Servidor\vcldb.dcp" />
|
||||
<DCCReference Include="..\Servidor\vcljpg.dcp" />
|
||||
<DCCReference Include="..\Servidor\VclSmp.dcp" />
|
||||
<DCCReference Include="..\Servidor\vclx.dcp" />
|
||||
<DCCReference Include="..\Servidor\xmlrtl.dcp" />
|
||||
<DCCReference Include="Conexion\uConfigurarConexion.pas">
|
||||
<Form>fConfigurarConexion</Form>
|
||||
<DesignClass>TForm</DesignClass>
|
||||
|
||||
@ -344,10 +344,16 @@ begin
|
||||
begin
|
||||
for x := 0 to (aDelta.LoggedFieldCount-1) do
|
||||
begin
|
||||
OldNewAreDifferent := (aDelta.Changes[i].OldValues[x] <> aDelta.Changes[i].NewValues[x]);
|
||||
try
|
||||
OldNewAreDifferent := (aDelta.Changes[i].OldValues[x] <> aDelta.Changes[i].NewValues[x]);
|
||||
|
||||
if OldNewAreDifferent then
|
||||
Break; // Abandon iteration at the first difference between old and new.
|
||||
if OldNewAreDifferent then
|
||||
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;
|
||||
|
||||
if OldNewAreDifferent then
|
||||
|
||||
@ -2,6 +2,7 @@ program FactuGES;
|
||||
|
||||
uses
|
||||
// ExceptionLog,
|
||||
ExceptionLog,
|
||||
Forms,
|
||||
Windows,
|
||||
SysUtils,
|
||||
|
||||
@ -48,12 +48,13 @@
|
||||
<DCC_DebugInfoInExe>True</DCC_DebugInfoInExe>
|
||||
<DCC_DebugVN>True</DCC_DebugVN>
|
||||
<DCC_SymbolReferenceInfo>2</DCC_SymbolReferenceInfo>
|
||||
<DCC_Define>EUREKALOG;EUREKALOG_VER6</DCC_Define>
|
||||
</PropertyGroup>
|
||||
<ProjectExtensions>
|
||||
<Borland.Personality>Delphi.Personality</Borland.Personality>
|
||||
<Borland.ProjectType>VCLApplication</Borland.ProjectType>
|
||||
<BorlandProject>
|
||||
<BorlandProject><Delphi.Personality><Parameters><Parameters Name="UseLauncher">False</Parameters><Parameters Name="LoadAllSymbols">True</Parameters><Parameters Name="LoadUnspecifiedSymbols">False</Parameters></Parameters><Language><Language Name="RootDir">C:\Archivos de programa\Borland\Delphi7\Bin\</Language></Language><VersionInfo><VersionInfo Name="IncludeVerInfo">True</VersionInfo><VersionInfo Name="AutoIncBuild">False</VersionInfo><VersionInfo Name="MajorVer">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>
|
||||
<Import Project="$(MSBuildBinPath)\Borland.Delphi.Targets" />
|
||||
<ItemGroup>
|
||||
@ -79,7 +80,7 @@
|
||||
<!-- EurekaLog First Line
|
||||
[Exception Log]
|
||||
EurekaLog Version=6011
|
||||
Activate=0
|
||||
Activate=1
|
||||
Activate Handle=1
|
||||
Save Log File=1
|
||||
Foreground Tab=0
|
||||
|
||||
@ -1,7 +1,7 @@
|
||||
MAINICON ICON "C:\Codigo Noviseda\Resources\Iconos\Factuges.ico"
|
||||
1 VERSIONINFO
|
||||
FILEVERSION 1,0,1,0
|
||||
PRODUCTVERSION 1,0,1,0
|
||||
FILEVERSION 1,0,2,0
|
||||
PRODUCTVERSION 1,0,2,0
|
||||
FILEFLAGSMASK 0x3FL
|
||||
FILEFLAGS 0x00L
|
||||
FILEOS 0x40004L
|
||||
@ -13,10 +13,10 @@ BEGIN
|
||||
BLOCK "0C0A04E4"
|
||||
BEGIN
|
||||
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 "ProductName", "FactuGES\0"
|
||||
VALUE "ProductVersion", "1.0.1.0\0"
|
||||
VALUE "ProductVersion", "1.0.2.0\0"
|
||||
END
|
||||
END
|
||||
BLOCK "VarFileInfo"
|
||||
|
||||
Binary file not shown.
@ -59,32 +59,32 @@
|
||||
<DelphiCompile Include="GUIBase.dpk">
|
||||
<MainSource>MainSource</MainSource>
|
||||
</DelphiCompile>
|
||||
<DCCReference Include="C:\Documents and Settings\Usuario\Base.dcp" />
|
||||
<DCCReference Include="C:\Documents and Settings\Usuario\cxLibraryD11.dcp" />
|
||||
<DCCReference Include="C:\Documents and Settings\Usuario\cxTreeListD11.dcp" />
|
||||
<DCCReference Include="C:\Documents and Settings\Usuario\dbrtl.dcp" />
|
||||
<DCCReference Include="C:\Documents and Settings\Usuario\dxBarD11.dcp" />
|
||||
<DCCReference Include="C:\Documents and Settings\Usuario\dxBarExtItemsD11.dcp" />
|
||||
<DCCReference Include="C:\Documents and Settings\Usuario\dxComnD11.dcp" />
|
||||
<DCCReference Include="C:\Documents and Settings\Usuario\dxGDIPlusD11.dcp" />
|
||||
<DCCReference Include="C:\Documents and Settings\Usuario\dxLayoutControlD11.dcp" />
|
||||
<DCCReference Include="C:\Documents and Settings\Usuario\dxPSCoreD11.dcp" />
|
||||
<DCCReference Include="C:\Documents and Settings\Usuario\dxPScxCommonD11.dcp" />
|
||||
<DCCReference Include="C:\Documents and Settings\Usuario\dxPScxExtCommonD11.dcp" />
|
||||
<DCCReference Include="C:\Documents and Settings\Usuario\dxPScxGrid6LnkD11.dcp" />
|
||||
<DCCReference Include="C:\Documents and Settings\Usuario\dxPScxPCProdD11.dcp" />
|
||||
<DCCReference Include="C:\Documents and Settings\Usuario\dxPsPrVwAdvD11.dcp" />
|
||||
<DCCReference Include="C:\Documents and Settings\Usuario\dxThemeD11.dcp" />
|
||||
<DCCReference Include="C:\Documents and Settings\Usuario\frx11.dcp" />
|
||||
<DCCReference Include="C:\Documents and Settings\Usuario\frxe11.dcp" />
|
||||
<DCCReference Include="C:\Documents and Settings\Usuario\fs11.dcp" />
|
||||
<DCCReference Include="C:\Documents and Settings\Usuario\JvAppFrmD11R.dcp" />
|
||||
<DCCReference Include="C:\Documents and Settings\Usuario\JvCtrlsD11R.dcp" />
|
||||
<DCCReference Include="C:\Documents and Settings\Usuario\rtl.dcp" />
|
||||
<DCCReference Include="C:\Documents and Settings\Usuario\vcl.dcp" />
|
||||
<DCCReference Include="C:\Documents and Settings\Usuario\vcldb.dcp" />
|
||||
<DCCReference Include="C:\Documents and Settings\Usuario\vcljpg.dcp" />
|
||||
<DCCReference Include="C:\Documents and Settings\Usuario\vclx.dcp" />
|
||||
<DCCReference Include="..\Modulos\Pedidos de cliente\Views\Base.dcp" />
|
||||
<DCCReference Include="..\Modulos\Pedidos de cliente\Views\cxLibraryD11.dcp" />
|
||||
<DCCReference Include="..\Modulos\Pedidos de cliente\Views\cxTreeListD11.dcp" />
|
||||
<DCCReference Include="..\Modulos\Pedidos de cliente\Views\dbrtl.dcp" />
|
||||
<DCCReference Include="..\Modulos\Pedidos de cliente\Views\dxBarD11.dcp" />
|
||||
<DCCReference Include="..\Modulos\Pedidos de cliente\Views\dxBarExtItemsD11.dcp" />
|
||||
<DCCReference Include="..\Modulos\Pedidos de cliente\Views\dxComnD11.dcp" />
|
||||
<DCCReference Include="..\Modulos\Pedidos de cliente\Views\dxGDIPlusD11.dcp" />
|
||||
<DCCReference Include="..\Modulos\Pedidos de cliente\Views\dxLayoutControlD11.dcp" />
|
||||
<DCCReference Include="..\Modulos\Pedidos de cliente\Views\dxPSCoreD11.dcp" />
|
||||
<DCCReference Include="..\Modulos\Pedidos de cliente\Views\dxPScxCommonD11.dcp" />
|
||||
<DCCReference Include="..\Modulos\Pedidos de cliente\Views\dxPScxExtCommonD11.dcp" />
|
||||
<DCCReference Include="..\Modulos\Pedidos de cliente\Views\dxPScxGrid6LnkD11.dcp" />
|
||||
<DCCReference Include="..\Modulos\Pedidos de cliente\Views\dxPScxPCProdD11.dcp" />
|
||||
<DCCReference Include="..\Modulos\Pedidos de cliente\Views\dxPsPrVwAdvD11.dcp" />
|
||||
<DCCReference Include="..\Modulos\Pedidos de cliente\Views\dxThemeD11.dcp" />
|
||||
<DCCReference Include="..\Modulos\Pedidos de cliente\Views\frx11.dcp" />
|
||||
<DCCReference Include="..\Modulos\Pedidos de cliente\Views\frxe11.dcp" />
|
||||
<DCCReference Include="..\Modulos\Pedidos de cliente\Views\fs11.dcp" />
|
||||
<DCCReference Include="..\Modulos\Pedidos de cliente\Views\JvAppFrmD11R.dcp" />
|
||||
<DCCReference Include="..\Modulos\Pedidos de cliente\Views\JvCtrlsD11R.dcp" />
|
||||
<DCCReference Include="..\Modulos\Pedidos de cliente\Views\rtl.dcp" />
|
||||
<DCCReference Include="..\Modulos\Pedidos de cliente\Views\vcl.dcp" />
|
||||
<DCCReference Include="..\Modulos\Pedidos de cliente\Views\vcldb.dcp" />
|
||||
<DCCReference Include="..\Modulos\Pedidos de cliente\Views\vcljpg.dcp" />
|
||||
<DCCReference Include="..\Modulos\Pedidos de cliente\Views\vclx.dcp" />
|
||||
<DCCReference Include="uDialogBase.pas">
|
||||
<Form>fDialogBase</Form>
|
||||
</DCCReference>
|
||||
|
||||
@ -77,6 +77,10 @@ inherited fEditorDBItem: TfEditorDBItem
|
||||
TabOrder = 2
|
||||
object pagGeneral: TTabSheet
|
||||
Caption = 'General'
|
||||
ExplicitLeft = 0
|
||||
ExplicitTop = 0
|
||||
ExplicitWidth = 0
|
||||
ExplicitHeight = 0
|
||||
end
|
||||
end
|
||||
inherited StatusBar: TJvStatusBar
|
||||
|
||||
@ -175,6 +175,11 @@ inherited fEditorPreview: TfEditorPreview
|
||||
Action = actZoomIn
|
||||
Images = PreviewSmallImageList
|
||||
end
|
||||
object TBXSeparatorItem16: TSpTBXSeparatorItem
|
||||
end
|
||||
object TBControlItem1: TTBControlItem
|
||||
Control = cbZoom
|
||||
end
|
||||
object TBXSeparatorItem17: TSpTBXSeparatorItem
|
||||
end
|
||||
object TBXItem7: TSpTBXItem
|
||||
@ -193,13 +198,13 @@ inherited fEditorPreview: TfEditorPreview
|
||||
Action = actUltimaPagina
|
||||
Images = PreviewSmallImageList
|
||||
end
|
||||
object TBXSeparatorItem16: TSpTBXSeparatorItem
|
||||
object SpTBXSeparatorItem1: TSpTBXSeparatorItem
|
||||
end
|
||||
object TBXItem35: TSpTBXItem
|
||||
Action = actCerrar
|
||||
end
|
||||
object cbZoom: TSpTBXComboBox
|
||||
Left = 449
|
||||
Left = 310
|
||||
Top = 0
|
||||
Width = 145
|
||||
Height = 21
|
||||
|
||||
@ -115,6 +115,8 @@ type
|
||||
TBXItem55: TSpTBXItem;
|
||||
TBXItem56: TSpTBXItem;
|
||||
TBXItem57: TSpTBXItem;
|
||||
TBControlItem1: TTBControlItem;
|
||||
SpTBXSeparatorItem1: TSpTBXSeparatorItem;
|
||||
procedure FormShow(Sender: TObject);
|
||||
procedure actPrimeraPaginaExecute(Sender: TObject);
|
||||
procedure actUltimaPaginaExecute(Sender: TObject);
|
||||
@ -210,7 +212,9 @@ begin
|
||||
actPrimeraPagina.Execute;
|
||||
FPreview.ShowEmbedded(Self);
|
||||
Report.ShowPreparedReport;
|
||||
actAnchoPagina.Execute;
|
||||
|
||||
actTodaPagina.Execute;
|
||||
TBXToolbar1.SetFocus;
|
||||
end;
|
||||
|
||||
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"?>
|
||||
<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"/>
|
||||
<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">
|
||||
@ -29,12 +29,12 @@
|
||||
<TfrxLineView Name="Line6" Left="739" Top="165,54" Width="0" Height="510" ShowHint="False" Frame.Color="8421504" Frame.Typ="1"/>
|
||||
</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">
|
||||
<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="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="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="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="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="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="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="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="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="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="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="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>
|
||||
<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"]"/>
|
||||
|
||||
File diff suppressed because one or more lines are too long
@ -1,17 +1,17 @@
|
||||
<?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"/>
|
||||
<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">
|
||||
<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"/>
|
||||
<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="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="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="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"]"/>
|
||||
<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="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="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="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="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>
|
||||
<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"]"/>
|
||||
<TfrxLineView Name="Line4" Align="baRight" Left="1,101251175" Top="2" Width="717" Height="0" ShowHint="False" Frame.Color="8421504" Frame.Typ="4"/>
|
||||
<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="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="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"/>
|
||||
@ -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"]"/>
|
||||
</TfrxPageFooter>
|
||||
<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="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="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="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="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"/>
|
||||
<TfrxLineView Name="Line1" Align="baLeft" Left="716,04960629" Top="269,50406638" Width="0" Height="628" ShowHint="False" Frame.Color="8421504" Frame.Typ="1"/>
|
||||
<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="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="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="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="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="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="Line3" Left="76,2" 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="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="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"/>
|
||||
<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"/>
|
||||
@ -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="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:"/>
|
||||
<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="Line7" Align="baLeft" Left="610,33307086" 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="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>
|
||||
</TfrxReportPage>
|
||||
</TfrxReport>
|
||||
|
||||
@ -1,14 +1,17 @@
|
||||
<?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"/>
|
||||
<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">
|
||||
<TfrxMemoView Name="Memo1" Left="176" Top="44" Width="427" Height="16" ShowHint="False" Text="[frxDBCabecera."POBLACION"]"/>
|
||||
<TfrxMemoView Name="Memo2" Left="176" Top="101" Width="427" Height="16" ShowHint="False" Text="[frxDBCabecera."NOMBRE"]"/>
|
||||
<TfrxMemoView Name="Memo3" Left="176" Top="136" Width="427" Height="16" ShowHint="False" Text="[frxDBCabecera."CALLE"]"/>
|
||||
<TfrxMemoView Name="Memo4" Left="176" Top="170" Width="427" Height="16" ShowHint="False" Text="[frxDBCabecera."CODIGO_POSTAL"] [frxDBCabecera."POBLACION"] ([frxDBCabecera."PROVINCIA"])"/>
|
||||
<TfrxMemoView Name="Memo5" Left="176" Top="216" Width="427" Height="16" ShowHint="False" Text=""/>
|
||||
<TfrxMemoView Name="Memo6" Left="176" Top="247" Width="427" Height="16" ShowHint="False" DisplayFormat.FormatStr="%g" DisplayFormat.Kind="fkNumeric" Text="[Bultos]"/>
|
||||
<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="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="18" ShowHint="False" Text="[frxDBEtiquetas."NOMBRE"]"/>
|
||||
<TfrxMemoView Name="mCalleFiscal" Left="176" Top="136" Width="427" Height="18" ShowHint="False" Text="[frxDBEtiquetas."CALLE_FISCAL"]"/>
|
||||
<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="Memo6" Left="176" Top="247" Width="427" Height="18" ShowHint="False" DisplayFormat.FormatStr="%g" 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>
|
||||
</TfrxReportPage>
|
||||
</TfrxReport>
|
||||
|
||||
@ -13,7 +13,6 @@ type
|
||||
procedure ActualizarDetalles(ADetalles: IDAStronglyTypedDataTable; ACliente: IBizCliente); overload;
|
||||
procedure DesglosarPorteDetalles(ImportePorte: Currency; ADetalles: IDAStronglyTypedDataTable);
|
||||
function DarTotalPorteTotal(ADetalles: IDAStronglyTypedDataTable): Double;
|
||||
|
||||
procedure ModificarCantidadColores(ADetalles: IDAStronglyTypedDataTable);
|
||||
end;
|
||||
|
||||
|
||||
@ -131,6 +131,8 @@ inherited DataModuleAlbaranesCliente: TDataModuleAlbaranesCliente
|
||||
item
|
||||
Name = 'ID_DIRECCION'
|
||||
DataType = datInteger
|
||||
DisplayLabel = 'AlbaranesCliente_ID_DIRECCION'
|
||||
DictionaryEntry = 'AlbaranesCliente_ID_DIRECCION'
|
||||
end
|
||||
item
|
||||
Name = 'CALLE'
|
||||
@ -288,16 +290,21 @@ inherited DataModuleAlbaranesCliente: TDataModuleAlbaranesCliente
|
||||
end
|
||||
item
|
||||
Name = 'DESCUENTO2'
|
||||
DataType = datCurrency
|
||||
DataType = datFloat
|
||||
DictionaryEntry = 'AlbaranesCliente_DESCUENTO2'
|
||||
end
|
||||
item
|
||||
Name = 'IMPORTE_DESCUENTO2'
|
||||
DataType = datCurrency
|
||||
DisplayLabel = 'AlbaranesCliente_IMPORTE_DESCUENTO2'
|
||||
DictionaryEntry = 'AlbaranesCliente_IMPORTE_DESCUENTO2'
|
||||
end
|
||||
item
|
||||
Name = 'DATOS_BANCARIOS'
|
||||
DataType = datString
|
||||
Size = 255
|
||||
DisplayLabel = 'AlbaranesCliente_DATOS_BANCARIOS'
|
||||
DictionaryEntry = 'AlbaranesCliente_DATOS_BANCARIOS'
|
||||
end>
|
||||
Params = <>
|
||||
StreamingOptions = [soDisableEventsWhileStreaming]
|
||||
|
||||
@ -1,18 +1,19 @@
|
||||
unit schAlbaranesClienteClient_Intf;
|
||||
|
||||
{$D-}
|
||||
interface
|
||||
|
||||
uses
|
||||
Classes, DB, schBase_Intf, SysUtils, uROClasses, uDAInterfaces, uDADataTable, FmtBCD, uROXMLIntf;
|
||||
Classes, DB, SysUtils, uROClasses, uDAInterfaces, uDADataTable, FmtBCD, uROXMLIntf;
|
||||
|
||||
const
|
||||
{ Data table rules ids
|
||||
Feel free to change them to something more human readable
|
||||
but make sure they are unique in the context of your application }
|
||||
RID_ListaAnosAlbaranes = '{42739B43-AAFE-40CD-B0F0-1F26F60FA03A}';
|
||||
RID_AlbaranesCliente = '{31C082F1-1332-4151-B270-3B497DA70500}';
|
||||
RID_AlbaranesCliente_Detalle_Color = '{AE57C6DB-DC23-4940-A000-87C4B4B43193}';
|
||||
RID_AlbaranesCliente_Detalles = '{05E35781-52D8-4983-91BB-A08BD612D9F8}';
|
||||
RID_ListaAnosAlbaranes = '{AB352FBE-C6B0-4DD9-B4EC-63B5ED2BDA4F}';
|
||||
RID_AlbaranesCliente = '{ACF9F8E3-2CA1-4DFC-B159-724A16045D2A}';
|
||||
RID_AlbaranesCliente_Detalle_Color = '{772D8D26-472D-4DE1-8249-9863E88FAB87}';
|
||||
RID_AlbaranesCliente_Detalles = '{F8AEC877-9B48-43FE-9EB1-2E9A54FD41E8}';
|
||||
|
||||
{ Data table names }
|
||||
nme_ListaAnosAlbaranes = 'ListaAnosAlbaranes';
|
||||
@ -187,7 +188,7 @@ const
|
||||
type
|
||||
{ IListaAnosAlbaranes }
|
||||
IListaAnosAlbaranes = interface(IDAStronglyTypedDataTable)
|
||||
['{F043E0A3-DB08-4F86-A07F-899DC88F8CA0}']
|
||||
['{6F87DB01-2294-4331-8C36-A0C754159240}']
|
||||
{ Property getters and setters }
|
||||
function GetANOValue: String;
|
||||
procedure SetANOValue(const aValue: String);
|
||||
@ -201,7 +202,7 @@ type
|
||||
end;
|
||||
|
||||
{ TListaAnosAlbaranesDataTableRules }
|
||||
TListaAnosAlbaranesDataTableRules = class(TIntfObjectDADataTableRules, IListaAnosAlbaranes)
|
||||
TListaAnosAlbaranesDataTableRules = class(TDADataTableRules, IListaAnosAlbaranes)
|
||||
private
|
||||
protected
|
||||
{ Property getters and setters }
|
||||
@ -222,7 +223,7 @@ type
|
||||
|
||||
{ IAlbaranesCliente }
|
||||
IAlbaranesCliente = interface(IDAStronglyTypedDataTable)
|
||||
['{D4D1CA0D-3682-4C1D-BFA0-8F9E5DE7B4CD}']
|
||||
['{E24D4F8F-A65A-46FC-B4FD-0862681FE993}']
|
||||
{ Property getters and setters }
|
||||
function GetIDValue: Integer;
|
||||
procedure SetIDValue(const aValue: Integer);
|
||||
@ -382,8 +383,8 @@ type
|
||||
procedure SetFECHA_RECEPCIONValue(const aValue: DateTime);
|
||||
function GetFECHA_RECEPCIONIsNull: Boolean;
|
||||
procedure SetFECHA_RECEPCIONIsNull(const aValue: Boolean);
|
||||
function GetDESCUENTO2Value: Currency;
|
||||
procedure SetDESCUENTO2Value(const aValue: Currency);
|
||||
function GetDESCUENTO2Value: Float;
|
||||
procedure SetDESCUENTO2Value(const aValue: Float);
|
||||
function GetDESCUENTO2IsNull: Boolean;
|
||||
procedure SetDESCUENTO2IsNull(const aValue: Boolean);
|
||||
function GetIMPORTE_DESCUENTO2Value: Currency;
|
||||
@ -477,7 +478,7 @@ type
|
||||
property FECHA_ENVIOIsNull: Boolean read GetFECHA_ENVIOIsNull write SetFECHA_ENVIOIsNull;
|
||||
property FECHA_RECEPCION: DateTime read GetFECHA_RECEPCIONValue write SetFECHA_RECEPCIONValue;
|
||||
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 IMPORTE_DESCUENTO2: Currency read GetIMPORTE_DESCUENTO2Value write SetIMPORTE_DESCUENTO2Value;
|
||||
property IMPORTE_DESCUENTO2IsNull: Boolean read GetIMPORTE_DESCUENTO2IsNull write SetIMPORTE_DESCUENTO2IsNull;
|
||||
@ -486,7 +487,7 @@ type
|
||||
end;
|
||||
|
||||
{ TAlbaranesClienteDataTableRules }
|
||||
TAlbaranesClienteDataTableRules = class(TIntfObjectDADataTableRules, IAlbaranesCliente)
|
||||
TAlbaranesClienteDataTableRules = class(TDADataTableRules, IAlbaranesCliente)
|
||||
private
|
||||
f_OBSERVACIONES: IROStrings;
|
||||
f_INCIDENCIAS: IROStrings;
|
||||
@ -652,8 +653,8 @@ type
|
||||
procedure SetFECHA_RECEPCIONValue(const aValue: DateTime); virtual;
|
||||
function GetFECHA_RECEPCIONIsNull: Boolean; virtual;
|
||||
procedure SetFECHA_RECEPCIONIsNull(const aValue: Boolean); virtual;
|
||||
function GetDESCUENTO2Value: Currency; virtual;
|
||||
procedure SetDESCUENTO2Value(const aValue: Currency); 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;
|
||||
@ -746,7 +747,7 @@ type
|
||||
property FECHA_ENVIOIsNull: Boolean read GetFECHA_ENVIOIsNull write SetFECHA_ENVIOIsNull;
|
||||
property FECHA_RECEPCION: DateTime read GetFECHA_RECEPCIONValue write SetFECHA_RECEPCIONValue;
|
||||
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 IMPORTE_DESCUENTO2: Currency read GetIMPORTE_DESCUENTO2Value write SetIMPORTE_DESCUENTO2Value;
|
||||
property IMPORTE_DESCUENTO2IsNull: Boolean read GetIMPORTE_DESCUENTO2IsNull write SetIMPORTE_DESCUENTO2IsNull;
|
||||
@ -761,7 +762,7 @@ type
|
||||
|
||||
{ IAlbaranesCliente_Detalle_Color }
|
||||
IAlbaranesCliente_Detalle_Color = interface(IDAStronglyTypedDataTable)
|
||||
['{9F645C57-1D1F-4B85-B3AB-25B652A9D7D4}']
|
||||
['{4258FF8D-5072-4AC3-9195-D681DBA05C11}']
|
||||
{ Property getters and setters }
|
||||
function GetIDValue: Integer;
|
||||
procedure SetIDValue(const aValue: Integer);
|
||||
@ -853,7 +854,7 @@ type
|
||||
end;
|
||||
|
||||
{ TAlbaranesCliente_Detalle_ColorDataTableRules }
|
||||
TAlbaranesCliente_Detalle_ColorDataTableRules = class(TIntfObjectDADataTableRules, IAlbaranesCliente_Detalle_Color)
|
||||
TAlbaranesCliente_Detalle_ColorDataTableRules = class(TDADataTableRules, IAlbaranesCliente_Detalle_Color)
|
||||
private
|
||||
protected
|
||||
{ Property getters and setters }
|
||||
@ -952,7 +953,7 @@ type
|
||||
|
||||
{ IAlbaranesCliente_Detalles }
|
||||
IAlbaranesCliente_Detalles = interface(IDAStronglyTypedDataTable)
|
||||
['{02B0B3EC-18E2-403C-BFC3-2A41918C746A}']
|
||||
['{32CD43CD-5A7A-4E80-AE13-C75124E342D7}']
|
||||
{ Property getters and setters }
|
||||
function GetIDValue: Integer;
|
||||
procedure SetIDValue(const aValue: Integer);
|
||||
@ -1056,7 +1057,7 @@ type
|
||||
end;
|
||||
|
||||
{ TAlbaranesCliente_DetallesDataTableRules }
|
||||
TAlbaranesCliente_DetallesDataTableRules = class(TIntfObjectDADataTableRules, IAlbaranesCliente_Detalles)
|
||||
TAlbaranesCliente_DetallesDataTableRules = class(TDADataTableRules, IAlbaranesCliente_Detalles)
|
||||
private
|
||||
protected
|
||||
{ Property getters and setters }
|
||||
@ -2065,14 +2066,14 @@ begin
|
||||
DataTable.Fields[idx_AlbaranesClienteFECHA_RECEPCION].AsVariant := Null;
|
||||
end;
|
||||
|
||||
function TAlbaranesClienteDataTableRules.GetDESCUENTO2Value: Currency;
|
||||
function TAlbaranesClienteDataTableRules.GetDESCUENTO2Value: Float;
|
||||
begin
|
||||
result := DataTable.Fields[idx_AlbaranesClienteDESCUENTO2].AsCurrency;
|
||||
result := DataTable.Fields[idx_AlbaranesClienteDESCUENTO2].AsFloat;
|
||||
end;
|
||||
|
||||
procedure TAlbaranesClienteDataTableRules.SetDESCUENTO2Value(const aValue: Currency);
|
||||
procedure TAlbaranesClienteDataTableRules.SetDESCUENTO2Value(const aValue: Float);
|
||||
begin
|
||||
DataTable.Fields[idx_AlbaranesClienteDESCUENTO2].AsCurrency := aValue;
|
||||
DataTable.Fields[idx_AlbaranesClienteDESCUENTO2].AsFloat := aValue;
|
||||
end;
|
||||
|
||||
function TAlbaranesClienteDataTableRules.GetDESCUENTO2IsNull: boolean;
|
||||
|
||||
File diff suppressed because it is too large
Load Diff
@ -3,7 +3,7 @@ object RptAlbaranesCliente: TRptAlbaranesCliente
|
||||
OnCreate = DataModuleCreate
|
||||
OnDestroy = DataModuleDestroy
|
||||
Height = 471
|
||||
Width = 448
|
||||
Width = 539
|
||||
object DADSCabecera: TDADataSource
|
||||
DataSet = tbl_Cabecera.Dataset
|
||||
DataTable = tbl_Cabecera
|
||||
@ -417,26 +417,28 @@ object RptAlbaranesCliente: TRptAlbaranesCliente
|
||||
item
|
||||
Params = <
|
||||
item
|
||||
Name = 'ID_ALBARAN'
|
||||
Name = 'ID'
|
||||
DataType = datInteger
|
||||
Value = ''
|
||||
ParamType = daptInput
|
||||
end>
|
||||
Statements = <
|
||||
item
|
||||
Connection = 'IBX'
|
||||
TargetTable = 'ALBARANES_CLIENTE_DETALLES'
|
||||
SQL =
|
||||
'SELECT ALBARANES_CLIENTE_DETALLES.ID, ALBARANES_CLIENTE_DETALLES' +
|
||||
'.ID_ALBARAN,'#10' ALBARANES_CLIENTE_DETALLES.POSICION, ALBARAN' +
|
||||
'ES_CLIENTE_DETALLES.TIPO_DETALLE,'#10' F_RTFTOTEXT(ALBARANES_C' +
|
||||
'LIENTE_DETALLES.CONCEPTO) as CONCEPTO, ALBARANES_CLIENTE_DETALLE' +
|
||||
'S.CANTIDAD,'#10' ALBARANES_CLIENTE_DETALLES.IMPORTE_UNIDAD, AL' +
|
||||
'BARANES_CLIENTE_DETALLES.IMPORTE_TOTAL,'#10' ARTICULOS.REFEREN' +
|
||||
'CIA, ARTICULOS.FAMILIA'#10#10#10'FROM ALBARANES_CLIENTE_DETALLES'#10'LEFT JO' +
|
||||
'IN ARTICULOS ON (ALBARANES_CLIENTE_DETALLES.ID_ARTICULO = ARTICU' +
|
||||
'LOS.ID)'#10'WHERE (ID_ALBARAN = :ID_ALBARAN)'#10'AND (ARTICULOS.INVENTAR' +
|
||||
'IABLE = 1)'#10'ORDER BY POSICION'#10
|
||||
'SELECT V_ALBARANES_CLIENTE.ID,'#10' CONTACTOS.REFERENCIA as REF_CLI' +
|
||||
'ENTE, CONTACTOS.NIF_CIF, CONTACTOS.NOMBRE,'#10' V_ALBARANES_CLIENTE' +
|
||||
'.PERSONA_CONTACTO,'#10' CONTACTOS.CALLE AS CALLE_FISCAL,'#10' CONTACTO' +
|
||||
'S_DIRECCIONES.CALLE AS CALLE_ENVIO,'#10' CONTACTOS.POBLACION AS POB' +
|
||||
'LACION_FISCAL,'#10' CONTACTOS_DIRECCIONES.POBLACION AS POBLACION_EN' +
|
||||
'VIO,'#10' CONTACTOS.PROVINCIA AS PROVINCIA_FISCAL,'#10' CONTACTOS_DIRE' +
|
||||
'CCIONES.PROVINCIA AS PROVINCIA_ENVIO,'#10' CONTACTOS.CODIGO_POSTAL ' +
|
||||
'AS CODIGO_POSTAL_FISCAL,'#10' CONTACTOS_DIRECCIONES.CODIGO_POSTAL A' +
|
||||
'S CODIGO_POSTAL_ENVIO'#10#10'FROM'#10' V_ALBARANES_CLIENTE'#10' INNER JOIN C' +
|
||||
'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
|
||||
ColumnMappings = <
|
||||
item
|
||||
@ -444,89 +446,131 @@ object RptAlbaranesCliente: TRptAlbaranesCliente
|
||||
TableField = 'ID'
|
||||
end
|
||||
item
|
||||
DatasetField = 'ID_ALBARAN'
|
||||
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'
|
||||
DatasetField = 'REF_CLIENTE'
|
||||
TableField = '<unknown>'
|
||||
SQLOrigin = 'REFERENCIA'
|
||||
SQLOrigin = 'REF_CLIENTE'
|
||||
end
|
||||
item
|
||||
DatasetField = 'FAMILIA'
|
||||
DatasetField = 'NIF_CIF'
|
||||
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>
|
||||
Name = 'Informe_Detalles_Etiquetas'
|
||||
Name = 'Informe_Etiquetas'
|
||||
Fields = <
|
||||
item
|
||||
Name = 'ID'
|
||||
DataType = datInteger
|
||||
end
|
||||
item
|
||||
Name = 'ID_ALBARAN'
|
||||
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'
|
||||
Name = 'REF_CLIENTE'
|
||||
DataType = datString
|
||||
Size = 255
|
||||
end
|
||||
item
|
||||
Name = 'FAMILIA'
|
||||
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>
|
||||
end>
|
||||
JoinDataTables = <>
|
||||
@ -548,7 +592,7 @@ object RptAlbaranesCliente: TRptAlbaranesCliente
|
||||
PrintOptions.Printer = 'Por defecto'
|
||||
PrintOptions.PrintOnSheet = 0
|
||||
ReportOptions.CreateDate = 39065.872423495400000000
|
||||
ReportOptions.LastChange = 40196.760630046290000000
|
||||
ReportOptions.LastChange = 40213.504606828700000000
|
||||
ScriptLanguage = 'PascalScript'
|
||||
ShowProgress = False
|
||||
StoreInDFM = False
|
||||
@ -1007,4 +1051,101 @@ object RptAlbaranesCliente: TRptAlbaranesCliente
|
||||
Left = 48
|
||||
Top = 88
|
||||
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
|
||||
|
||||
@ -61,6 +61,9 @@ type
|
||||
frxPDFExport1: TfrxPDFExport;
|
||||
DABin2DataStreamer1: TDABin2DataStreamer;
|
||||
schReport: TDASchema;
|
||||
frxDBEtiquetas: TfrxDBDataset;
|
||||
DADSEtiquetas: TDADataSource;
|
||||
tbl_Etiquetas: TDAMemDataTable;
|
||||
procedure DataModuleCreate(Sender: TObject);
|
||||
procedure DataModuleDestroy(Sender: TObject);
|
||||
private
|
||||
@ -174,7 +177,7 @@ function TRptAlbaranesCliente.GenerarEtiquetas(const AListaID : TIntegerArray; c
|
||||
var
|
||||
i: Integer;
|
||||
AInforme: Variant;
|
||||
|
||||
Cadena : String;
|
||||
begin
|
||||
Result := Binary.Create;
|
||||
try
|
||||
@ -183,9 +186,9 @@ begin
|
||||
begin
|
||||
FConnection.BeginTransaction; //<--- Creo que no va a hacer falta. "PUES SI ES NECESARIO"
|
||||
try
|
||||
tbl_Cabecera.Active := False;
|
||||
tbl_Cabecera.ParamByName('ID').AsInteger := AListaID.Items[i];
|
||||
tbl_Cabecera.Active := True;
|
||||
tbl_Etiquetas.Active := False;
|
||||
tbl_Etiquetas.ParamByName('ID').AsInteger := AListaID.Items[i];
|
||||
tbl_Etiquetas.Active := True;
|
||||
|
||||
AInforme := DarRutaFichero(DarRutaInformes, rptInfEtiquetas);
|
||||
if VarIsNull(AInforme) then
|
||||
@ -193,7 +196,7 @@ begin
|
||||
|
||||
frxReport.LoadFromFile(AInforme, True);
|
||||
|
||||
frxReport.Variables.Variables['Mercancia'] := VarToStr(AMercancia);
|
||||
frxReport.Variables.Variables['Mercancia'] := '''' + AMercancia + '''';
|
||||
frxReport.Variables.Variables['Bultos'] := ABultos;
|
||||
frxReport.PrepareReport(False);
|
||||
finally
|
||||
|
||||
@ -108,6 +108,10 @@ object srvAlbaranesCliente: TsrvAlbaranesCliente
|
||||
DatasetField = 'REF_FACTURA'
|
||||
TableField = 'REF_FACTURA'
|
||||
end
|
||||
item
|
||||
DatasetField = 'ID_DIRECCION'
|
||||
TableField = 'ID_DIRECCION'
|
||||
end
|
||||
item
|
||||
DatasetField = 'CALLE'
|
||||
TableField = 'CALLE'
|
||||
@ -204,10 +208,6 @@ object srvAlbaranesCliente: TsrvAlbaranesCliente
|
||||
DatasetField = 'FECHA_RECEPCION'
|
||||
TableField = 'FECHA_RECEPCION'
|
||||
end
|
||||
item
|
||||
DatasetField = 'ID_DIRECCION'
|
||||
TableField = 'ID_DIRECCION'
|
||||
end
|
||||
item
|
||||
DatasetField = 'DESCUENTO2'
|
||||
TableField = 'DESCUENTO2'
|
||||
@ -318,6 +318,7 @@ object srvAlbaranesCliente: TsrvAlbaranesCliente
|
||||
item
|
||||
Name = 'ID_DIRECCION'
|
||||
DataType = datInteger
|
||||
DictionaryEntry = 'AlbaranesCliente_ID_DIRECCION'
|
||||
end
|
||||
item
|
||||
Name = 'CALLE'
|
||||
@ -448,16 +449,19 @@ object srvAlbaranesCliente: TsrvAlbaranesCliente
|
||||
end
|
||||
item
|
||||
Name = 'DESCUENTO2'
|
||||
DataType = datCurrency
|
||||
DataType = datFloat
|
||||
DictionaryEntry = 'AlbaranesCliente_DESCUENTO2'
|
||||
end
|
||||
item
|
||||
Name = 'IMPORTE_DESCUENTO2'
|
||||
DataType = datCurrency
|
||||
DictionaryEntry = 'AlbaranesCliente_IMPORTE_DESCUENTO2'
|
||||
end
|
||||
item
|
||||
Name = 'DATOS_BANCARIOS'
|
||||
DataType = datString
|
||||
Size = 255
|
||||
DictionaryEntry = 'AlbaranesCliente_DATOS_BANCARIOS'
|
||||
end>
|
||||
end
|
||||
item
|
||||
@ -882,17 +886,17 @@ object srvAlbaranesCliente: TsrvAlbaranesCliente
|
||||
end
|
||||
item
|
||||
Name = 'IMPORTE_NETO'
|
||||
DataType = datCurrency
|
||||
DataType = datDecimal
|
||||
Value = ''
|
||||
end
|
||||
item
|
||||
Name = 'IMPORTE_PORTE'
|
||||
DataType = datCurrency
|
||||
DataType = datDecimal
|
||||
Value = ''
|
||||
end
|
||||
item
|
||||
Name = 'DESCUENTO'
|
||||
DataType = datCurrency
|
||||
DataType = datFloat
|
||||
Value = ''
|
||||
end
|
||||
item
|
||||
@ -902,7 +906,7 @@ object srvAlbaranesCliente: TsrvAlbaranesCliente
|
||||
end
|
||||
item
|
||||
Name = 'BASE_IMPONIBLE'
|
||||
DataType = datCurrency
|
||||
DataType = datDecimal
|
||||
Value = ''
|
||||
end
|
||||
item
|
||||
@ -912,12 +916,12 @@ object srvAlbaranesCliente: TsrvAlbaranesCliente
|
||||
end
|
||||
item
|
||||
Name = 'IMPORTE_IVA'
|
||||
DataType = datCurrency
|
||||
DataType = datDecimal
|
||||
Value = ''
|
||||
end
|
||||
item
|
||||
Name = 'IMPORTE_TOTAL'
|
||||
DataType = datCurrency
|
||||
DataType = datDecimal
|
||||
Value = ''
|
||||
end
|
||||
item
|
||||
@ -973,7 +977,7 @@ object srvAlbaranesCliente: TsrvAlbaranesCliente
|
||||
end
|
||||
item
|
||||
Name = 'DESCUENTO2'
|
||||
DataType = datCurrency
|
||||
DataType = datFloat
|
||||
Value = ''
|
||||
end
|
||||
item
|
||||
@ -1137,7 +1141,7 @@ object srvAlbaranesCliente: TsrvAlbaranesCliente
|
||||
end
|
||||
item
|
||||
Name = 'DESCUENTO'
|
||||
DataType = datCurrency
|
||||
DataType = datFloat
|
||||
Value = ''
|
||||
end
|
||||
item
|
||||
@ -1218,7 +1222,7 @@ object srvAlbaranesCliente: TsrvAlbaranesCliente
|
||||
end
|
||||
item
|
||||
Name = 'DESCUENTO2'
|
||||
DataType = datCurrency
|
||||
DataType = datFloat
|
||||
Value = ''
|
||||
end
|
||||
item
|
||||
@ -2125,6 +2129,24 @@ object srvAlbaranesCliente: TsrvAlbaranesCliente
|
||||
item
|
||||
Name = 'AlbaranesCliente_Detalle_Color_COLOR12'
|
||||
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>
|
||||
Left = 56
|
||||
Top = 144
|
||||
|
||||
@ -50,7 +50,9 @@ requires
|
||||
adortl,
|
||||
RemObjects_Core_D11,
|
||||
dxLayoutControlD11,
|
||||
dxComnD11;
|
||||
dxComnD11,
|
||||
cxPageControlD11,
|
||||
cxExtEditorsD11;
|
||||
|
||||
contains
|
||||
uAlbaranesClienteViewRegister in 'uAlbaranesClienteViewRegister.pas',
|
||||
|
||||
@ -54,32 +54,34 @@
|
||||
<DelphiCompile Include="AlbaranesCliente_view.dpk">
|
||||
<MainSource>MainSource</MainSource>
|
||||
</DelphiCompile>
|
||||
<DCCReference Include="..\..\Facturas de cliente\adortl.dcp" />
|
||||
<DCCReference Include="..\..\Facturas de cliente\AlbaranesCliente_controller.dcp" />
|
||||
<DCCReference Include="..\..\Facturas de cliente\AlbaranesCliente_model.dcp" />
|
||||
<DCCReference Include="..\..\Facturas de cliente\AlbCli_FacCli_relation.dcp" />
|
||||
<DCCReference Include="..\..\Facturas de cliente\Almacenes_controller.dcp" />
|
||||
<DCCReference Include="..\..\Facturas de cliente\ApplicationBase.dcp" />
|
||||
<DCCReference Include="..\..\Facturas de cliente\Articulos_view.dcp" />
|
||||
<DCCReference Include="..\..\Facturas de cliente\Base.dcp" />
|
||||
<DCCReference Include="..\..\Facturas de cliente\cxDataD11.dcp" />
|
||||
<DCCReference Include="..\..\Facturas de cliente\cxEditorsD11.dcp" />
|
||||
<DCCReference Include="..\..\Facturas de cliente\cxLibraryD11.dcp" />
|
||||
<DCCReference Include="..\..\Facturas de cliente\DataAbstract_Core_D11.dcp" />
|
||||
<DCCReference Include="..\..\Facturas de cliente\dbrtl.dcp" />
|
||||
<DCCReference Include="..\..\Facturas de cliente\dsnap.dcp" />
|
||||
<DCCReference Include="..\..\Facturas de cliente\dxComnD11.dcp" />
|
||||
<DCCReference Include="..\..\Facturas de cliente\dxCoreD11.dcp" />
|
||||
<DCCReference Include="..\..\Facturas de cliente\dxGDIPlusD11.dcp" />
|
||||
<DCCReference Include="..\..\Facturas de cliente\dxLayoutControlD11.dcp" />
|
||||
<DCCReference Include="..\..\Facturas de cliente\dxThemeD11.dcp" />
|
||||
<DCCReference Include="..\..\Facturas de cliente\GUIBase.dcp" />
|
||||
<DCCReference Include="..\..\Facturas de cliente\RemObjects_Core_D11.dcp" />
|
||||
<DCCReference Include="..\..\Facturas de cliente\rtl.dcp" />
|
||||
<DCCReference Include="..\..\Facturas de cliente\vcl.dcp" />
|
||||
<DCCReference Include="..\..\Facturas de cliente\vcldb.dcp" />
|
||||
<DCCReference Include="..\..\Facturas de cliente\vcljpg.dcp" />
|
||||
<DCCReference Include="..\..\Facturas de cliente\vclx.dcp" />
|
||||
<DCCReference Include="..\..\Pedidos de cliente\Views\adortl.dcp" />
|
||||
<DCCReference Include="..\..\Pedidos de cliente\Views\AlbaranesCliente_controller.dcp" />
|
||||
<DCCReference Include="..\..\Pedidos de cliente\Views\AlbaranesCliente_model.dcp" />
|
||||
<DCCReference Include="..\..\Pedidos de cliente\Views\AlbCli_FacCli_relation.dcp" />
|
||||
<DCCReference Include="..\..\Pedidos de cliente\Views\Almacenes_controller.dcp" />
|
||||
<DCCReference Include="..\..\Pedidos de cliente\Views\ApplicationBase.dcp" />
|
||||
<DCCReference Include="..\..\Pedidos de cliente\Views\Articulos_view.dcp" />
|
||||
<DCCReference Include="..\..\Pedidos de cliente\Views\Base.dcp" />
|
||||
<DCCReference Include="..\..\Pedidos de cliente\Views\cxDataD11.dcp" />
|
||||
<DCCReference Include="..\..\Pedidos de cliente\Views\cxEditorsD11.dcp" />
|
||||
<DCCReference Include="..\..\Pedidos de cliente\Views\cxExtEditorsD11.dcp" />
|
||||
<DCCReference Include="..\..\Pedidos de cliente\Views\cxLibraryD11.dcp" />
|
||||
<DCCReference Include="..\..\Pedidos de cliente\Views\cxPageControlD11.dcp" />
|
||||
<DCCReference Include="..\..\Pedidos de cliente\Views\DataAbstract_Core_D11.dcp" />
|
||||
<DCCReference Include="..\..\Pedidos de cliente\Views\dbrtl.dcp" />
|
||||
<DCCReference Include="..\..\Pedidos de cliente\Views\dsnap.dcp" />
|
||||
<DCCReference Include="..\..\Pedidos de cliente\Views\dxComnD11.dcp" />
|
||||
<DCCReference Include="..\..\Pedidos de cliente\Views\dxCoreD11.dcp" />
|
||||
<DCCReference Include="..\..\Pedidos de cliente\Views\dxGDIPlusD11.dcp" />
|
||||
<DCCReference Include="..\..\Pedidos de cliente\Views\dxLayoutControlD11.dcp" />
|
||||
<DCCReference Include="..\..\Pedidos de cliente\Views\dxThemeD11.dcp" />
|
||||
<DCCReference Include="..\..\Pedidos de cliente\Views\GUIBase.dcp" />
|
||||
<DCCReference Include="..\..\Pedidos de cliente\Views\RemObjects_Core_D11.dcp" />
|
||||
<DCCReference Include="..\..\Pedidos de cliente\Views\rtl.dcp" />
|
||||
<DCCReference Include="..\..\Pedidos de cliente\Views\vcl.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="uEditorAlbaranCliente.pas">
|
||||
<Form>fEditorAlbaranCliente</Form>
|
||||
|
||||
@ -212,14 +212,14 @@ inherited fEditorAlbaranCliente: TfEditorAlbaranCliente
|
||||
ExplicitLeft = 278
|
||||
ExplicitTop = 0
|
||||
end
|
||||
inherited ToolButton14: TToolButton [4]
|
||||
inherited ToolButton14: TToolButton
|
||||
Left = 334
|
||||
Top = 0
|
||||
Wrap = False
|
||||
ExplicitLeft = 334
|
||||
ExplicitTop = 0
|
||||
end
|
||||
inherited FontName: TJvFontComboBox [5]
|
||||
inherited FontName: TJvFontComboBox
|
||||
Left = 399
|
||||
Top = 0
|
||||
ExplicitLeft = 399
|
||||
@ -228,10 +228,10 @@ inherited fEditorAlbaranCliente: TfEditorAlbaranCliente
|
||||
inherited FontSize: TEdit
|
||||
Left = 544
|
||||
Top = 0
|
||||
Width = 218
|
||||
Width = 234
|
||||
ExplicitLeft = 544
|
||||
ExplicitTop = 0
|
||||
ExplicitWidth = 218
|
||||
ExplicitWidth = 234
|
||||
end
|
||||
inherited ToolButton13: TToolButton [7]
|
||||
Left = 0
|
||||
@ -247,40 +247,37 @@ inherited fEditorAlbaranCliente: TfEditorAlbaranCliente
|
||||
ExplicitLeft = 0
|
||||
ExplicitTop = 27
|
||||
end
|
||||
inherited ToolButton6: TToolButton [9]
|
||||
inherited ToolButton6: TToolButton
|
||||
Left = 17
|
||||
Top = 27
|
||||
ExplicitLeft = 17
|
||||
ExplicitTop = 27
|
||||
end
|
||||
inherited ToolButton7: TToolButton [10]
|
||||
inherited ToolButton7: TToolButton
|
||||
Left = 83
|
||||
Top = 27
|
||||
ExplicitLeft = 83
|
||||
ExplicitTop = 27
|
||||
end
|
||||
inherited ToolButton8: TToolButton [11]
|
||||
inherited ToolButton8: TToolButton
|
||||
Left = 150
|
||||
Top = 27
|
||||
Wrap = False
|
||||
ExplicitLeft = 150
|
||||
ExplicitTop = 27
|
||||
end
|
||||
inherited ToolButton12: TToolButton [12]
|
||||
inherited ToolButton12: TToolButton
|
||||
Left = 233
|
||||
Top = 27
|
||||
Wrap = False
|
||||
ExplicitLeft = 233
|
||||
ExplicitTop = 27
|
||||
ExplicitHeight = 22
|
||||
end
|
||||
inherited ToolButton9: TToolButton [13]
|
||||
inherited ToolButton9: TToolButton
|
||||
Left = 241
|
||||
Top = 27
|
||||
ExplicitLeft = 241
|
||||
ExplicitTop = 27
|
||||
end
|
||||
inherited ToolButton10: TToolButton [14]
|
||||
inherited ToolButton10: TToolButton
|
||||
Left = 386
|
||||
Top = 27
|
||||
ExplicitLeft = 386
|
||||
@ -392,14 +389,18 @@ inherited fEditorAlbaranCliente: TfEditorAlbaranCliente
|
||||
ExplicitWidth = 855
|
||||
ExplicitHeight = 143
|
||||
inherited Bevel3: TBevel
|
||||
Left = 437
|
||||
Left = 338
|
||||
Height = 201
|
||||
ExplicitLeft = 437
|
||||
ExplicitLeft = 338
|
||||
ExplicitHeight = 201
|
||||
end
|
||||
inherited Bevel4: TBevel
|
||||
Left = 570
|
||||
ExplicitLeft = 570
|
||||
Left = 471
|
||||
Width = 342
|
||||
Height = 9
|
||||
ExplicitLeft = 471
|
||||
ExplicitWidth = 342
|
||||
ExplicitHeight = 9
|
||||
end
|
||||
inherited ImporteDto: TcxDBCurrencyEdit
|
||||
Style.LookAndFeel.SkinName = ''
|
||||
@ -409,22 +410,24 @@ inherited fEditorAlbaranCliente: TfEditorAlbaranCliente
|
||||
StyleHot.LookAndFeel.SkinName = ''
|
||||
end
|
||||
inherited ImporteIVA: TcxDBCurrencyEdit
|
||||
Left = 641
|
||||
Left = 542
|
||||
Style.LookAndFeel.SkinName = ''
|
||||
Style.IsFontAssigned = True
|
||||
StyleDisabled.LookAndFeel.SkinName = ''
|
||||
StyleFocused.LookAndFeel.SkinName = ''
|
||||
StyleHot.LookAndFeel.SkinName = ''
|
||||
ExplicitLeft = 641
|
||||
ExplicitLeft = 542
|
||||
end
|
||||
inherited ImporteTotal: TcxDBCurrencyEdit
|
||||
Left = 570
|
||||
Left = 471
|
||||
Style.LookAndFeel.SkinName = ''
|
||||
Style.IsFontAssigned = True
|
||||
StyleDisabled.LookAndFeel.SkinName = ''
|
||||
StyleFocused.LookAndFeel.SkinName = ''
|
||||
StyleHot.LookAndFeel.SkinName = ''
|
||||
ExplicitLeft = 570
|
||||
ExplicitLeft = 471
|
||||
ExplicitWidth = 90
|
||||
Width = 90
|
||||
end
|
||||
inherited edtDescuento: TcxDBSpinEdit
|
||||
Style.LookAndFeel.SkinName = ''
|
||||
@ -434,41 +437,41 @@ inherited fEditorAlbaranCliente: TfEditorAlbaranCliente
|
||||
StyleHot.LookAndFeel.SkinName = ''
|
||||
end
|
||||
inherited edtIVA: TcxDBSpinEdit
|
||||
Left = 570
|
||||
Left = 471
|
||||
Style.LookAndFeel.SkinName = ''
|
||||
Style.IsFontAssigned = True
|
||||
StyleDisabled.LookAndFeel.SkinName = ''
|
||||
StyleFocused.LookAndFeel.SkinName = ''
|
||||
StyleHot.LookAndFeel.SkinName = ''
|
||||
ExplicitLeft = 570
|
||||
ExplicitLeft = 471
|
||||
end
|
||||
inherited ImporteBase: TcxDBCurrencyEdit
|
||||
Left = 570
|
||||
Left = 471
|
||||
DataBinding.DataField = 'IMPORTE_NETO'
|
||||
Style.LookAndFeel.SkinName = ''
|
||||
Style.IsFontAssigned = True
|
||||
StyleDisabled.LookAndFeel.SkinName = ''
|
||||
StyleFocused.LookAndFeel.SkinName = ''
|
||||
StyleHot.LookAndFeel.SkinName = ''
|
||||
ExplicitLeft = 570
|
||||
ExplicitLeft = 471
|
||||
end
|
||||
inherited edtRE: TcxDBSpinEdit
|
||||
Left = 570
|
||||
Left = 471
|
||||
Style.LookAndFeel.SkinName = ''
|
||||
Style.IsFontAssigned = True
|
||||
StyleDisabled.LookAndFeel.SkinName = ''
|
||||
StyleFocused.LookAndFeel.SkinName = ''
|
||||
StyleHot.LookAndFeel.SkinName = ''
|
||||
ExplicitLeft = 570
|
||||
ExplicitLeft = 471
|
||||
end
|
||||
inherited ImporteRE: TcxDBCurrencyEdit
|
||||
Left = 641
|
||||
Left = 542
|
||||
Style.LookAndFeel.SkinName = ''
|
||||
Style.IsFontAssigned = True
|
||||
StyleDisabled.LookAndFeel.SkinName = ''
|
||||
StyleFocused.LookAndFeel.SkinName = ''
|
||||
StyleHot.LookAndFeel.SkinName = ''
|
||||
ExplicitLeft = 641
|
||||
ExplicitLeft = 542
|
||||
end
|
||||
inherited eImporteNeto: TcxDBCurrencyEdit
|
||||
Style.LookAndFeel.SkinName = ''
|
||||
@ -491,14 +494,20 @@ inherited fEditorAlbaranCliente: TfEditorAlbaranCliente
|
||||
StyleHot.LookAndFeel.SkinName = ''
|
||||
end
|
||||
inherited bTiposIVA: TButton
|
||||
Left = 289
|
||||
ExplicitLeft = 289
|
||||
Left = 190
|
||||
ExplicitLeft = 190
|
||||
end
|
||||
inherited cbRecargoEquivalencia: TcxDBCheckBox
|
||||
Style.LookAndFeel.SkinName = ''
|
||||
StyleDisabled.LookAndFeel.SkinName = ''
|
||||
StyleFocused.LookAndFeel.SkinName = ''
|
||||
StyleHot.LookAndFeel.SkinName = ''
|
||||
ExplicitWidth = 221
|
||||
Width = 221
|
||||
end
|
||||
inherited Panel1: TPanel
|
||||
Width = 185
|
||||
ExplicitWidth = 185
|
||||
end
|
||||
end
|
||||
end
|
||||
|
||||
@ -1,12 +1,9 @@
|
||||
inherited fEditorAlbaranesClientePreview: TfEditorAlbaranesClientePreview
|
||||
Caption = 'Previsualizar el albar'#225'n de cliente'
|
||||
ExplicitWidth = 320
|
||||
ExplicitHeight = 240
|
||||
PixelsPerInch = 96
|
||||
TextHeight = 13
|
||||
inherited TBXDock: TSpTBXDock
|
||||
inherited TBXToolbar1: TSpTBXToolbar
|
||||
ExplicitWidth = 540
|
||||
object TBXItem58: TSpTBXItem [1]
|
||||
Action = actExportarRTF
|
||||
Images = SmallImages
|
||||
|
||||
@ -5,14 +5,13 @@ interface
|
||||
uses
|
||||
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
|
||||
Dialogs, uEditorPreview, frxExportImage, frxExportPDF, frxDCtrl, frxClass,
|
||||
// frxDMPExport, frxGradient, frxChBox, frxCross, frxRich, frxChart, frxOLE,
|
||||
// frxBarcode, JvAppStorage, JvAppRegistryStorage, JvComponentBase,
|
||||
JvFormPlacement, ImgList, PngImageList, StdActns, ActnList, ComCtrls,
|
||||
TB2ExtItems, SpTBXItem, TB2Item, TB2Dock, TB2Toolbar, pngimage,
|
||||
ExtCtrls, JvExControls, JvComponent, JvNavigationPane, uIEditorAlbaranesClientePreview,
|
||||
JvExComCtrls, JvStatusBar, frxDMPExport, frxGradient, frxChBox, frxCross,
|
||||
frxRich, frxOLE, frxBarcode, JvAppStorage, JvAppRegistryStorage,
|
||||
JvComponentBase, frxExportText, frxExportRTF, frxExportMail, frxExportXLS;
|
||||
JvComponentBase, frxExportText, frxExportRTF, frxExportMail, frxExportXLS,
|
||||
StdCtrls, TntStdCtrls, SpTBXEditors;
|
||||
|
||||
type
|
||||
TfEditorAlbaranesClientePreview = class(TfEditorPreview, IEditorAlbaranesClientePreview)
|
||||
|
||||
@ -3,15 +3,11 @@ inherited fEditorElegirArticulosAlbaranCliente: TfEditorElegirArticulosAlbaranCl
|
||||
ExplicitHeight = 538
|
||||
PixelsPerInch = 96
|
||||
TextHeight = 13
|
||||
inherited JvNavPanelHeader: TJvNavPanelHeader
|
||||
ExplicitTop = 113
|
||||
end
|
||||
inherited TBXDock: TSpTBXDock
|
||||
ExplicitTop = 64
|
||||
inherited tbxMain: TSpTBXToolbar
|
||||
Left = 340
|
||||
Left = 399
|
||||
DockPos = 335
|
||||
ExplicitLeft = 340
|
||||
ExplicitLeft = 399
|
||||
ExplicitWidth = 126
|
||||
end
|
||||
inherited tbxFiltro: TSpTBXToolbar
|
||||
@ -20,12 +16,11 @@ inherited fEditorElegirArticulosAlbaranCliente: TfEditorElegirArticulosAlbaranCl
|
||||
ExplicitLeft = 3
|
||||
end
|
||||
inherited TBXTMain2: TSpTBXToolbar
|
||||
Left = 466
|
||||
ExplicitLeft = 466
|
||||
Left = 525
|
||||
ExplicitLeft = 525
|
||||
end
|
||||
end
|
||||
inherited pnlHeader: TPanel
|
||||
ExplicitTop = 0
|
||||
inherited lblTitle: TLabel
|
||||
Width = 606
|
||||
end
|
||||
|
||||
@ -10,7 +10,7 @@ uses
|
||||
JvExComCtrls, JvStatusBar, SpTBXItem, TB2ExtItems, TB2Item, TB2Dock,
|
||||
TB2Toolbar, pngimage, ExtCtrls, JvExControls, JvComponent, JvNavigationPane,
|
||||
uIEditorElegirArticulosAlbaranesCliente, uDAInterfaces,
|
||||
uViewGridBase, uViewGrid, uViewArticulos, StdCtrls;
|
||||
uViewGridBase, uViewGrid, uViewArticulos, StdCtrls, TntStdCtrls, SpTBXEditors;
|
||||
|
||||
type
|
||||
TfEditorElegirArticulosAlbaranCliente = class(TfEditorElegirArticulos, IEditorElegirArticulosAlbaranesCliente)
|
||||
|
||||
@ -30,7 +30,6 @@ type
|
||||
procedure SetController (const Value : IAlbaranesClienteController);
|
||||
property Controller : IAlbaranesClienteController read GetController write SetController;
|
||||
|
||||
|
||||
function GetViewClienteAlbaran: IViewDatosYSeleccionClienteAlbaran;
|
||||
property ViewClienteAlbaran: IViewDatosYSeleccionClienteAlbaran read GetViewClienteAlbaran;
|
||||
|
||||
@ -502,7 +501,7 @@ begin
|
||||
end;
|
||||
finally
|
||||
FreeANDNIL(ALista);
|
||||
FreeANDNIL(AListaIBAN);
|
||||
FreeANDNIL(AListaIBAN);
|
||||
end;
|
||||
finally
|
||||
AController := NIL;
|
||||
|
||||
@ -322,13 +322,14 @@ begin
|
||||
if FCliente.ID > 0 then
|
||||
edtPersonaContacto.Enabled := True;
|
||||
|
||||
if FCliente.Direcciones.RecordCount > 0 then
|
||||
ElegirDireccionCliente
|
||||
else begin
|
||||
//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
|
||||
// if FCliente.Direcciones.RecordCount > 0 then
|
||||
// ElegirDireccionCliente
|
||||
// else begin
|
||||
FAlbaran.Edit;
|
||||
FAlbaran.PERSONA_CONTACTO := FCliente.PERSONA_CONTACTO;
|
||||
RefrescarDireccion;
|
||||
end;
|
||||
// end;
|
||||
end
|
||||
else begin
|
||||
dsCliente.DataTable := NIL;
|
||||
|
||||
@ -1,77 +1,95 @@
|
||||
inherited frViewDetallesAlbaranCliente: TfrViewDetallesAlbaranCliente
|
||||
inherited ToolBar1: TToolBar
|
||||
Height = 117
|
||||
ExplicitHeight = 117
|
||||
inherited FontName: TJvFontComboBox [4]
|
||||
Left = 56
|
||||
Top = 22
|
||||
ExplicitLeft = 56
|
||||
ExplicitTop = 22
|
||||
end
|
||||
inherited ToolButton14: TToolButton [5]
|
||||
Left = 201
|
||||
end
|
||||
inherited FontSize: TEdit
|
||||
Height = 122
|
||||
ExplicitHeight = 122
|
||||
inherited ToolButton13: TToolButton [3]
|
||||
Left = 0
|
||||
Width = 106
|
||||
Top = 0
|
||||
Wrap = True
|
||||
ExplicitLeft = 0
|
||||
ExplicitWidth = 106
|
||||
ExplicitTop = 0
|
||||
ExplicitHeight = 27
|
||||
end
|
||||
inherited UpDown1: TUpDown
|
||||
Left = 106
|
||||
ExplicitLeft = 106
|
||||
inherited ToolButton4: TToolButton [4]
|
||||
Top = 27
|
||||
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
|
||||
inherited ToolButton9: TToolButton [8]
|
||||
Left = 123
|
||||
ExplicitLeft = 123
|
||||
Left = 0
|
||||
Top = 49
|
||||
ExplicitLeft = 0
|
||||
ExplicitTop = 49
|
||||
end
|
||||
inherited ToolButton12: TToolButton [9]
|
||||
Left = 0
|
||||
Top = 49
|
||||
Wrap = True
|
||||
ExplicitLeft = 0
|
||||
ExplicitHeight = 30
|
||||
ExplicitTop = 49
|
||||
ExplicitHeight = 27
|
||||
end
|
||||
inherited ToolButton6: TToolButton [10]
|
||||
inherited FontSize: TEdit [10]
|
||||
Left = 0
|
||||
Top = 74
|
||||
Top = 76
|
||||
Width = 122
|
||||
ExplicitLeft = 0
|
||||
ExplicitTop = 74
|
||||
ExplicitTop = 76
|
||||
ExplicitWidth = 122
|
||||
end
|
||||
inherited ToolButton7: TToolButton [11]
|
||||
Left = 66
|
||||
Top = 74
|
||||
ExplicitLeft = 66
|
||||
ExplicitTop = 74
|
||||
inherited UpDown1: TUpDown [11]
|
||||
Left = 122
|
||||
Top = 76
|
||||
ExplicitLeft = 122
|
||||
ExplicitTop = 76
|
||||
end
|
||||
inherited ToolButton8: TToolButton [12]
|
||||
Left = 133
|
||||
Top = 74
|
||||
Wrap = True
|
||||
ExplicitLeft = 133
|
||||
ExplicitTop = 74
|
||||
inherited ToolButton6: TToolButton [12]
|
||||
Left = 139
|
||||
Top = 76
|
||||
ExplicitLeft = 139
|
||||
ExplicitTop = 76
|
||||
end
|
||||
inherited ToolButton10: TToolButton [13]
|
||||
Left = 0
|
||||
Top = 96
|
||||
ExplicitLeft = 0
|
||||
ExplicitTop = 96
|
||||
Left = 205
|
||||
Top = 76
|
||||
Wrap = True
|
||||
ExplicitLeft = 205
|
||||
ExplicitTop = 76
|
||||
end
|
||||
inherited ToolButton13: TToolButton [14]
|
||||
Left = 125
|
||||
Top = 96
|
||||
ExplicitLeft = 125
|
||||
ExplicitTop = 96
|
||||
inherited ToolButton8: TToolButton [14]
|
||||
Left = 0
|
||||
Top = 98
|
||||
ExplicitLeft = 0
|
||||
ExplicitTop = 98
|
||||
end
|
||||
inherited ToolButton11: TToolButton
|
||||
Left = 133
|
||||
Top = 96
|
||||
ExplicitLeft = 133
|
||||
ExplicitTop = 96
|
||||
Left = 83
|
||||
Top = 98
|
||||
ExplicitLeft = 83
|
||||
ExplicitTop = 98
|
||||
end
|
||||
end
|
||||
inherited cxGrid: TcxGrid
|
||||
Top = 143
|
||||
Height = 161
|
||||
Top = 148
|
||||
Height = 156
|
||||
ExplicitTop = 126
|
||||
ExplicitHeight = 178
|
||||
inherited cxGridView: TcxGridDBTableView
|
||||
inherited cxGridViewTIPO: TcxGridDBColumn
|
||||
Visible = False
|
||||
@ -102,7 +120,8 @@ inherited frViewDetallesAlbaranCliente: TfrViewDetallesAlbaranCliente
|
||||
end
|
||||
end
|
||||
inherited TBXDock1: TSpTBXDock
|
||||
Top = 117
|
||||
Top = 122
|
||||
ExplicitTop = 68
|
||||
inherited TBXToolbar1: TSpTBXToolbar
|
||||
DockPos = 0
|
||||
ExplicitWidth = 447
|
||||
|
||||
@ -31,8 +31,7 @@ type
|
||||
Aadirartculos1: TMenuItem;
|
||||
TBXItem18: TSpTBXItem;
|
||||
cxGridViewCANTIDAD2: TcxGridDBColumn;
|
||||
procedure cxGridViewCANTIDAD2PropertiesButtonClick(Sender: TObject;
|
||||
AButtonIndex: Integer);
|
||||
procedure cxGridViewCANTIDAD2PropertiesButtonClick(Sender: TObject; AButtonIndex: Integer);
|
||||
protected
|
||||
FAlbaran: IBizAlbaranCliente;
|
||||
function GetAlbaran: IBizAlbaranCliente;
|
||||
|
||||
@ -2,18 +2,36 @@ inherited frViewElegirArticulosAlbaranesCliente: TfrViewElegirArticulosAlbaranes
|
||||
inherited frViewFiltroBase1: TfrViewFiltroBase
|
||||
inherited TBXDockablePanel1: TSpTBXDockablePanel
|
||||
inherited dxLayoutControl1: TdxLayoutControl
|
||||
inherited txtFiltroTodo: TcxTextEdit
|
||||
Style.LookAndFeel.SkinName = ''
|
||||
StyleDisabled.LookAndFeel.SkinName = ''
|
||||
StyleFocused.LookAndFeel.SkinName = ''
|
||||
StyleHot.LookAndFeel.SkinName = ''
|
||||
end
|
||||
inherited edtFechaIniFiltro: TcxDateEdit
|
||||
Style.LookAndFeel.SkinName = ''
|
||||
StyleDisabled.LookAndFeel.SkinName = ''
|
||||
StyleFocused.LookAndFeel.SkinName = ''
|
||||
StyleHot.LookAndFeel.SkinName = ''
|
||||
ExplicitWidth = 121
|
||||
Width = 121
|
||||
end
|
||||
inherited edtFechaFinFiltro: TcxDateEdit
|
||||
Left = 225
|
||||
Style.LookAndFeel.SkinName = ''
|
||||
StyleDisabled.LookAndFeel.SkinName = ''
|
||||
StyleFocused.LookAndFeel.SkinName = ''
|
||||
StyleHot.LookAndFeel.SkinName = ''
|
||||
ExplicitLeft = 225
|
||||
ExplicitWidth = 121
|
||||
Width = 121
|
||||
end
|
||||
inherited eLista: TcxComboBox
|
||||
Left = 383
|
||||
Style.LookAndFeel.SkinName = ''
|
||||
StyleDisabled.LookAndFeel.SkinName = ''
|
||||
StyleFocused.LookAndFeel.SkinName = ''
|
||||
StyleHot.LookAndFeel.SkinName = ''
|
||||
ExplicitLeft = 383
|
||||
ExplicitWidth = 322
|
||||
Width = 322
|
||||
@ -27,4 +45,7 @@ inherited frViewElegirArticulosAlbaranesCliente: TfrViewElegirArticulosAlbaranes
|
||||
BuiltInReportLink = True
|
||||
end
|
||||
end
|
||||
inherited dxPSEngineController1: TdxPSEngineController
|
||||
Active = True
|
||||
end
|
||||
end
|
||||
|
||||
@ -12,7 +12,10 @@ uses
|
||||
uDADataTable, cxGridLevel, cxGridCustomTableView, cxGridTableView,
|
||||
cxGridDBTableView, cxClasses, cxControls, cxGridCustomView, cxGrid, dxPgsDlg,
|
||||
ActnList, TB2Item, SpTBXItem, TB2Toolbar, SpTBXDkPanels, TB2Dock, uViewFiltroBase,
|
||||
uDAInterfaces;
|
||||
uDAInterfaces, cxLookAndFeels, cxLookAndFeelPainters, dxPSPDFExportCore,
|
||||
dxPSPDFExport, cxDrawTextUtils, dxPSPrVwStd, dxPSPrVwAdv,
|
||||
dxPScxEditorProducers, dxPScxExtEditorProducers, dxPScxPageControlProducer,
|
||||
uCustomView, uViewBase;
|
||||
|
||||
type
|
||||
IViewElegirArticulosAlbaranesCliente = interface(IViewArticulos)
|
||||
|
||||
@ -55,22 +55,22 @@
|
||||
<DelphiCompile Include="Articulos_controller.dpk">
|
||||
<MainSource>MainSource</MainSource>
|
||||
</DelphiCompile>
|
||||
<DCCReference Include="..\..\Facturas de cliente\adortl.dcp" />
|
||||
<DCCReference Include="..\..\Facturas de cliente\Articulos_data.dcp" />
|
||||
<DCCReference Include="..\..\Facturas de cliente\Articulos_model.dcp" />
|
||||
<DCCReference Include="..\..\Facturas de cliente\Contactos_controller.dcp" />
|
||||
<DCCReference Include="..\..\Facturas de cliente\Contactos_model.dcp" />
|
||||
<DCCReference Include="..\..\Facturas de cliente\cxLibraryD11.dcp" />
|
||||
<DCCReference Include="..\..\Facturas de cliente\DataAbstract_Core_D11.dcp" />
|
||||
<DCCReference Include="..\..\Facturas de cliente\dbrtl.dcp" />
|
||||
<DCCReference Include="..\..\Facturas de cliente\dsnap.dcp" />
|
||||
<DCCReference Include="..\..\Facturas de cliente\dxGDIPlusD11.dcp" />
|
||||
<DCCReference Include="..\..\Facturas de cliente\dxThemeD11.dcp" />
|
||||
<DCCReference Include="..\..\Facturas de cliente\GUIBase.dcp" />
|
||||
<DCCReference Include="..\..\Facturas de cliente\RemObjects_Core_D11.dcp" />
|
||||
<DCCReference Include="..\..\Facturas de cliente\rtl.dcp" />
|
||||
<DCCReference Include="..\..\Facturas de cliente\vcl.dcp" />
|
||||
<DCCReference Include="..\..\Facturas de cliente\vcldb.dcp" />
|
||||
<DCCReference Include="..\..\Pedidos de cliente\Views\adortl.dcp" />
|
||||
<DCCReference Include="..\..\Pedidos de cliente\Views\Articulos_data.dcp" />
|
||||
<DCCReference Include="..\..\Pedidos de cliente\Views\Articulos_model.dcp" />
|
||||
<DCCReference Include="..\..\Pedidos de cliente\Views\Contactos_controller.dcp" />
|
||||
<DCCReference Include="..\..\Pedidos de cliente\Views\Contactos_model.dcp" />
|
||||
<DCCReference Include="..\..\Pedidos de cliente\Views\cxLibraryD11.dcp" />
|
||||
<DCCReference Include="..\..\Pedidos de cliente\Views\DataAbstract_Core_D11.dcp" />
|
||||
<DCCReference Include="..\..\Pedidos de cliente\Views\dbrtl.dcp" />
|
||||
<DCCReference Include="..\..\Pedidos de cliente\Views\dsnap.dcp" />
|
||||
<DCCReference Include="..\..\Pedidos de cliente\Views\dxGDIPlusD11.dcp" />
|
||||
<DCCReference Include="..\..\Pedidos de cliente\Views\dxThemeD11.dcp" />
|
||||
<DCCReference Include="..\..\Pedidos de cliente\Views\GUIBase.dcp" />
|
||||
<DCCReference Include="..\..\Pedidos de cliente\Views\RemObjects_Core_D11.dcp" />
|
||||
<DCCReference Include="..\..\Pedidos de cliente\Views\rtl.dcp" />
|
||||
<DCCReference Include="..\..\Pedidos de cliente\Views\vcl.dcp" />
|
||||
<DCCReference Include="..\..\Pedidos de cliente\Views\vcldb.dcp" />
|
||||
<DCCReference Include="uArticulosController.pas" />
|
||||
<DCCReference Include="uControllerDetallesArticulos.pas" />
|
||||
<DCCReference Include="View\uIEditorArticulo.pas" />
|
||||
|
||||
@ -57,7 +57,7 @@
|
||||
<DelphiCompile Include="Articulos_data.dpk">
|
||||
<MainSource>MainSource</MainSource>
|
||||
</DelphiCompile>
|
||||
<DCCReference Include="..\..\Facturas de cliente\Articulos_model.dcp" />
|
||||
<DCCReference Include="..\..\Pedidos de cliente\Views\Articulos_model.dcp" />
|
||||
<DCCReference Include="uDataModuleArticulos.pas">
|
||||
<Form>DataModuleArticulos</Form>
|
||||
</DCCReference>
|
||||
|
||||
@ -55,16 +55,16 @@
|
||||
<DelphiCompile Include="Articulos_model.dpk">
|
||||
<MainSource>MainSource</MainSource>
|
||||
</DelphiCompile>
|
||||
<DCCReference Include="..\..\Facturas de cliente\adortl.dcp" />
|
||||
<DCCReference Include="..\..\Facturas de cliente\ApplicationBase.dcp" />
|
||||
<DCCReference Include="..\..\Facturas de cliente\Base.dcp" />
|
||||
<DCCReference Include="..\..\Facturas de cliente\DataAbstract_Core_D11.dcp" />
|
||||
<DCCReference Include="..\..\Facturas de cliente\dbrtl.dcp" />
|
||||
<DCCReference Include="..\..\Facturas de cliente\dsnap.dcp" />
|
||||
<DCCReference Include="..\..\Facturas de cliente\RemObjects_Core_D11.dcp" />
|
||||
<DCCReference Include="..\..\Facturas de cliente\rtl.dcp" />
|
||||
<DCCReference Include="..\..\Facturas de cliente\vcl.dcp" />
|
||||
<DCCReference Include="..\..\Facturas de cliente\vcldb.dcp" />
|
||||
<DCCReference Include="..\..\Pedidos de cliente\Views\adortl.dcp" />
|
||||
<DCCReference Include="..\..\Pedidos de cliente\Views\ApplicationBase.dcp" />
|
||||
<DCCReference Include="..\..\Pedidos de cliente\Views\Base.dcp" />
|
||||
<DCCReference Include="..\..\Pedidos de cliente\Views\DataAbstract_Core_D11.dcp" />
|
||||
<DCCReference Include="..\..\Pedidos de cliente\Views\dbrtl.dcp" />
|
||||
<DCCReference Include="..\..\Pedidos de cliente\Views\dsnap.dcp" />
|
||||
<DCCReference Include="..\..\Pedidos de cliente\Views\RemObjects_Core_D11.dcp" />
|
||||
<DCCReference Include="..\..\Pedidos de cliente\Views\rtl.dcp" />
|
||||
<DCCReference Include="..\..\Pedidos de cliente\Views\vcl.dcp" />
|
||||
<DCCReference Include="..\..\Pedidos de cliente\Views\vcldb.dcp" />
|
||||
<DCCReference Include="Data\uIDataModuleArticulos.pas" />
|
||||
<DCCReference Include="schArticulosClient_Intf.pas" />
|
||||
<DCCReference Include="schArticulosServer_Intf.pas" />
|
||||
|
||||
@ -55,14 +55,14 @@
|
||||
<DelphiCompile Include="Articulos_view.dpk">
|
||||
<MainSource>MainSource</MainSource>
|
||||
</DelphiCompile>
|
||||
<DCCReference Include="..\..\Facturas de cliente\Articulos_controller.dcp" />
|
||||
<DCCReference Include="..\..\Facturas de cliente\Articulos_model.dcp" />
|
||||
<DCCReference Include="..\..\Facturas de cliente\Contactos_view.dcp" />
|
||||
<DCCReference Include="..\..\Facturas de cliente\Fabricantes_controller.dcp" />
|
||||
<DCCReference Include="..\..\Facturas de cliente\Familias_controller.dcp" />
|
||||
<DCCReference Include="..\..\Facturas de cliente\GUIBase.dcp" />
|
||||
<DCCReference Include="..\..\Facturas de cliente\GUISDK_D11R.dcp" />
|
||||
<DCCReference Include="..\..\Facturas de cliente\UnidadesMedida_controller.dcp" />
|
||||
<DCCReference Include="..\..\Pedidos de cliente\Views\Articulos_controller.dcp" />
|
||||
<DCCReference Include="..\..\Pedidos de cliente\Views\Articulos_model.dcp" />
|
||||
<DCCReference Include="..\..\Pedidos de cliente\Views\Contactos_view.dcp" />
|
||||
<DCCReference Include="..\..\Pedidos de cliente\Views\Fabricantes_controller.dcp" />
|
||||
<DCCReference Include="..\..\Pedidos de cliente\Views\Familias_controller.dcp" />
|
||||
<DCCReference Include="..\..\Pedidos de cliente\Views\GUIBase.dcp" />
|
||||
<DCCReference Include="..\..\Pedidos de cliente\Views\GUISDK_D11R.dcp" />
|
||||
<DCCReference Include="..\..\Pedidos de cliente\Views\UnidadesMedida_controller.dcp" />
|
||||
<DCCReference Include="uArticulosViewRegister.pas" />
|
||||
<DCCReference Include="uEditorArticulo.pas">
|
||||
<Form>fEditorArticulo</Form>
|
||||
|
||||
@ -127,6 +127,7 @@ contains
|
||||
uViewVendedor in 'uViewVendedor.pas' {frViewVendedor: TCustomView},
|
||||
uEditorVendedores in 'uEditorVendedores.pas' {fEditorVendedores: 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.
|
||||
|
||||
@ -49,63 +49,56 @@
|
||||
<DelphiCompile Include="Contactos_view.dpk">
|
||||
<MainSource>MainSource</MainSource>
|
||||
</DelphiCompile>
|
||||
<DCCReference Include="..\..\Facturas de cliente\Model\adortl.dcp" />
|
||||
<DCCReference Include="..\..\Facturas de cliente\Model\ApplicationBase.dcp" />
|
||||
<DCCReference Include="..\..\Facturas de cliente\Model\Base.dcp" />
|
||||
<DCCReference Include="..\..\Facturas de cliente\Model\bdertl.dcp" />
|
||||
<DCCReference Include="..\..\Facturas de cliente\Model\ccpackD11.dcp" />
|
||||
<DCCReference Include="..\..\Facturas de cliente\Model\cfpack_d11.dcp" />
|
||||
<DCCReference Include="..\..\Facturas de cliente\Model\Contactos_controller.dcp" />
|
||||
<DCCReference Include="..\..\Facturas de cliente\Model\Contactos_model.dcp" />
|
||||
<DCCReference Include="..\..\Facturas de cliente\Model\cxDataD11.dcp" />
|
||||
<DCCReference Include="..\..\Facturas de cliente\Model\cxEditorsD11.dcp" />
|
||||
<DCCReference Include="..\..\Facturas de cliente\Model\cxExportD11.dcp" />
|
||||
<DCCReference Include="..\..\Facturas de cliente\Model\cxExtEditorsD11.dcp" />
|
||||
<DCCReference Include="..\..\Facturas de cliente\Model\cxGridD11.dcp" />
|
||||
<DCCReference Include="..\..\Facturas de cliente\Model\cxLibraryD11.dcp" />
|
||||
<DCCReference Include="..\..\Facturas de cliente\Model\cxPageControlD11.dcp" />
|
||||
<DCCReference Include="..\..\Facturas de cliente\Model\DataAbstract_Core_D11.dcp" />
|
||||
<DCCReference Include="..\..\Facturas de cliente\Model\dbrtl.dcp" />
|
||||
<DCCReference Include="..\..\Facturas de cliente\Model\dclcxLibraryD11.dcp" />
|
||||
<DCCReference Include="..\..\Facturas de cliente\Model\designide.dcp" />
|
||||
<DCCReference Include="..\..\Facturas de cliente\Model\dsnap.dcp" />
|
||||
<DCCReference Include="..\..\Facturas de cliente\Model\dxComnD11.dcp" />
|
||||
<DCCReference Include="..\..\Facturas de cliente\Model\dxCoreD11.dcp" />
|
||||
<DCCReference Include="..\..\Facturas de cliente\Model\dxGDIPlusD11.dcp" />
|
||||
<DCCReference Include="..\..\Facturas de cliente\Model\dxLayoutControlD11.dcp" />
|
||||
<DCCReference Include="..\..\Facturas de cliente\Model\dxPSCoreD11.dcp" />
|
||||
<DCCReference Include="..\..\Facturas de cliente\Model\dxPScxCommonD11.dcp" />
|
||||
<DCCReference Include="..\..\Facturas de cliente\Model\dxPScxGrid6LnkD11.dcp" />
|
||||
<DCCReference Include="..\..\Facturas de cliente\Model\dxPSLnksD11.dcp" />
|
||||
<DCCReference Include="..\..\Facturas de cliente\Model\dxThemeD11.dcp" />
|
||||
<DCCReference Include="..\..\Facturas de cliente\Model\FormasPago_controller.dcp" />
|
||||
<DCCReference Include="..\..\Facturas de cliente\Model\FormasPago_model.dcp" />
|
||||
<DCCReference Include="..\..\Facturas de cliente\Model\GUIBase.dcp" />
|
||||
<DCCReference Include="..\..\Facturas de cliente\Model\GUISDK_D11R.dcp" />
|
||||
<DCCReference Include="..\..\Facturas de cliente\Model\Jcl.dcp" />
|
||||
<DCCReference Include="..\..\Facturas de cliente\Model\JclVcl.dcp" />
|
||||
<DCCReference Include="..\..\Facturas de cliente\Model\JSDialog100.dcp" />
|
||||
<DCCReference Include="..\..\Facturas de cliente\Model\JvCoreD11R.dcp" />
|
||||
<DCCReference Include="..\..\Facturas de cliente\Model\JvCtrlsD11R.dcp" />
|
||||
<DCCReference Include="..\..\Facturas de cliente\Model\JvGlobusD11R.dcp" />
|
||||
<DCCReference Include="..\..\Facturas de cliente\Model\JvPageCompsD11R.dcp" />
|
||||
<DCCReference Include="..\..\Facturas de cliente\Model\JvStdCtrlsD11R.dcp" />
|
||||
<DCCReference Include="..\..\Facturas de cliente\Model\JvSystemD11R.dcp" />
|
||||
<DCCReference Include="..\..\Facturas de cliente\Model\PngComponentsD10.dcp" />
|
||||
<DCCReference Include="..\..\Facturas de cliente\Model\PNG_D10.dcp" />
|
||||
<DCCReference Include="..\..\Facturas de cliente\Model\RemObjects_Core_D11.dcp" />
|
||||
<DCCReference Include="..\..\Facturas de cliente\Model\rtl.dcp" />
|
||||
<DCCReference Include="..\..\Facturas de cliente\Model\SpTBXLib_d11.dcp" />
|
||||
<DCCReference Include="..\..\Facturas de cliente\Model\tb2k_d11.dcp" />
|
||||
<DCCReference Include="..\..\Facturas de cliente\Model\TiposIVA_controller.dcp" />
|
||||
<DCCReference Include="..\..\Facturas de cliente\Model\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="adortl.dcp" />
|
||||
<DCCReference Include="ApplicationBase.dcp" />
|
||||
<DCCReference Include="Base.dcp" />
|
||||
<DCCReference Include="bdertl.dcp" />
|
||||
<DCCReference Include="ccpackD11.dcp" />
|
||||
<DCCReference Include="cfpack_d11.dcp" />
|
||||
<DCCReference Include="Contactos_controller.dcp" />
|
||||
<DCCReference Include="Contactos_model.dcp" />
|
||||
<DCCReference Include="cxDataD11.dcp" />
|
||||
<DCCReference Include="cxEditorsD11.dcp" />
|
||||
<DCCReference Include="cxExportD11.dcp" />
|
||||
<DCCReference Include="cxExtEditorsD11.dcp" />
|
||||
<DCCReference Include="cxGridD11.dcp" />
|
||||
<DCCReference Include="cxLibraryD11.dcp" />
|
||||
<DCCReference Include="cxPageControlD11.dcp" />
|
||||
<DCCReference Include="DataAbstract_Core_D11.dcp" />
|
||||
<DCCReference Include="dbrtl.dcp" />
|
||||
<DCCReference Include="dclcxLibraryD11.dcp" />
|
||||
<DCCReference Include="designide.dcp" />
|
||||
<DCCReference Include="dsnap.dcp" />
|
||||
<DCCReference Include="dxComnD11.dcp" />
|
||||
<DCCReference Include="dxCoreD11.dcp" />
|
||||
<DCCReference Include="dxGDIPlusD11.dcp" />
|
||||
<DCCReference Include="dxLayoutControlD11.dcp" />
|
||||
<DCCReference Include="dxPSCoreD11.dcp" />
|
||||
<DCCReference Include="dxPScxCommonD11.dcp" />
|
||||
<DCCReference Include="dxPScxGrid6LnkD11.dcp" />
|
||||
<DCCReference Include="dxPSLnksD11.dcp" />
|
||||
<DCCReference Include="dxThemeD11.dcp" />
|
||||
<DCCReference Include="FormasPago_controller.dcp" />
|
||||
<DCCReference Include="FormasPago_model.dcp" />
|
||||
<DCCReference Include="GUIBase.dcp" />
|
||||
<DCCReference Include="GUISDK_D11R.dcp" />
|
||||
<DCCReference Include="Jcl.dcp" />
|
||||
<DCCReference Include="JclVcl.dcp" />
|
||||
<DCCReference Include="JSDialog100.dcp" />
|
||||
<DCCReference Include="JvCoreD11R.dcp" />
|
||||
<DCCReference Include="JvCtrlsD11R.dcp" />
|
||||
<DCCReference Include="JvGlobusD11R.dcp" />
|
||||
<DCCReference Include="JvPageCompsD11R.dcp" />
|
||||
<DCCReference Include="JvStdCtrlsD11R.dcp" />
|
||||
<DCCReference Include="JvSystemD11R.dcp" />
|
||||
<DCCReference Include="PngComponentsD10.dcp" />
|
||||
<DCCReference Include="PNG_D10.dcp" />
|
||||
<DCCReference Include="RemObjects_Core_D11.dcp" />
|
||||
<DCCReference Include="rtl.dcp" />
|
||||
<DCCReference Include="SpTBXLib_d11.dcp" />
|
||||
<DCCReference Include="tb2k_d11.dcp" />
|
||||
<DCCReference Include="TiposIVA_controller.dcp" />
|
||||
<DCCReference Include="TiposIVA_model.dcp" />
|
||||
<DCCReference Include="uContactosViewRegister.pas" />
|
||||
<DCCReference Include="uEditorCliente.pas">
|
||||
<Form>fEditorCliente</Form>
|
||||
@ -242,6 +235,10 @@
|
||||
<Form>frViewDatosYSeleccionProveedor</Form>
|
||||
<DesignClass>TFrame</DesignClass>
|
||||
</DCCReference>
|
||||
<DCCReference Include="uViewDireccionEntrega.pas">
|
||||
<Form>frViewVendedor</Form>
|
||||
<DesignClass>TCustomView</DesignClass>
|
||||
</DCCReference>
|
||||
<DCCReference Include="uViewDireccionesEntrega.pas">
|
||||
<Form>frViewDireccionesEntrega</Form>
|
||||
<DesignClass>TFrame</DesignClass>
|
||||
@ -278,6 +275,13 @@
|
||||
<Form>frViewVendedores</Form>
|
||||
<DesignClass>TCustomView</DesignClass>
|
||||
</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>
|
||||
</Project>
|
||||
<!-- EurekaLog First Line
|
||||
|
||||
@ -123,7 +123,7 @@ inherited fEditorCliente: TfEditorCliente
|
||||
inherited pgPaginas: TPageControl
|
||||
Width = 786
|
||||
Height = 530
|
||||
ActivePage = pagDatosComerciales
|
||||
ActivePage = pagDirecciones
|
||||
ExplicitWidth = 786
|
||||
ExplicitHeight = 530
|
||||
inherited pagGeneral: TTabSheet
|
||||
@ -546,9 +546,9 @@ inherited fEditorCliente: TfEditorCliente
|
||||
end
|
||||
end
|
||||
object pagDirecciones: TTabSheet [3]
|
||||
Caption = 'Direcciones'
|
||||
Caption = 'Direcci'#243'n de entrega'
|
||||
ImageIndex = 1
|
||||
inline frViewDireccionesEntrega1: TfrViewDireccionesEntrega
|
||||
inline frViewDireccionEntrega1: TfrViewDireccionEntrega
|
||||
Left = 0
|
||||
Top = 0
|
||||
Width = 778
|
||||
@ -564,21 +564,43 @@ inherited fEditorCliente: TfEditorCliente
|
||||
ReadOnly = False
|
||||
ExplicitWidth = 778
|
||||
ExplicitHeight = 502
|
||||
inherited cxGrid: TcxGrid
|
||||
inherited dxLayoutControl1: TdxLayoutControl
|
||||
Width = 778
|
||||
Height = 477
|
||||
Height = 502
|
||||
ExplicitWidth = 778
|
||||
ExplicitHeight = 477
|
||||
inherited cxGridView: TcxGridDBTableView
|
||||
inherited cxGridViewID: TcxGridDBColumn
|
||||
SortIndex = 0
|
||||
SortOrder = soAscending
|
||||
end
|
||||
ExplicitHeight = 502
|
||||
inherited cbPoblacion: TcxDBComboBox
|
||||
Style.LookAndFeel.SkinName = ''
|
||||
StyleDisabled.LookAndFeel.SkinName = ''
|
||||
StyleFocused.LookAndFeel.SkinName = ''
|
||||
StyleHot.LookAndFeel.SkinName = ''
|
||||
ExplicitWidth = 256
|
||||
Width = 256
|
||||
end
|
||||
inherited cbProvincia: TcxDBComboBox
|
||||
Style.LookAndFeel.SkinName = ''
|
||||
StyleDisabled.LookAndFeel.SkinName = ''
|
||||
StyleFocused.LookAndFeel.SkinName = ''
|
||||
StyleHot.LookAndFeel.SkinName = ''
|
||||
ExplicitWidth = 155
|
||||
Width = 155
|
||||
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
|
||||
|
||||
@ -16,13 +16,12 @@ uses
|
||||
uViewContactoDatosBancarios, dxLayoutLookAndFeels,
|
||||
uViewClienteDatosComerciales, uDAInterfaces, uViewContactoListaDatosBancarios,
|
||||
uViewPersonalContacto, cxControls, cxContainer, cxEdit, cxLabel, cxGraphics,
|
||||
cxLookAndFeels, cxLookAndFeelPainters;
|
||||
cxLookAndFeels, cxLookAndFeelPainters, uViewDireccionEntrega;
|
||||
|
||||
type
|
||||
TfEditorCliente = class(TfEditorContacto, IEditorCliente)
|
||||
frViewCliente1: TfrViewCliente;
|
||||
pagDirecciones: TTabSheet;
|
||||
frViewDireccionesEntrega1: TfrViewDireccionesEntrega;
|
||||
actGruposCliente: TAction;
|
||||
TBXItem7: TSpTBXItem;
|
||||
pagDescuentos: TTabSheet;
|
||||
@ -46,6 +45,7 @@ type
|
||||
TBXItem40: TSpTBXItem;
|
||||
actDocumentosRecibos: TAction;
|
||||
TBXItem41: TSpTBXItem;
|
||||
frViewDireccionEntrega1: TfrViewDireccionEntrega;
|
||||
procedure FormShow(Sender: TObject);
|
||||
procedure actGruposClienteExecute(Sender: TObject);
|
||||
procedure actDocumentosFacturasExecute(Sender: TObject);
|
||||
@ -150,12 +150,12 @@ begin
|
||||
inherited;
|
||||
if Assigned(Contacto) then
|
||||
begin
|
||||
frViewDireccionesEntrega1.dsDetalles.DataTable := Contacto.Direcciones.DataTable;
|
||||
frViewDireccionEntrega1.dsDetalles.DataTable := Contacto.Direcciones.DataTable;
|
||||
frViewClienteDescuentos1.dsDetalles.DataTable := (Contacto as IBizCliente).Descuentos.DataTable;
|
||||
frViewClienteDatosComerciales1.Contacto := Contacto;
|
||||
end
|
||||
else begin
|
||||
frViewDireccionesEntrega1.dsDetalles.DataTable := NIL;
|
||||
frViewDireccionEntrega1.dsDetalles.DataTable := NIL;
|
||||
frViewClienteDescuentos1.dsDetalles.DataTable := NIL;
|
||||
frViewClienteDatosComerciales1.Contacto := NIL;
|
||||
end;
|
||||
|
||||
@ -167,7 +167,7 @@ object fEditorDireccion: TfEditorDireccion
|
||||
TabOrder = 1
|
||||
end
|
||||
object eDireccion: TDBEdit
|
||||
Left = 135
|
||||
Left = 136
|
||||
Top = 65
|
||||
Width = 191
|
||||
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
|
||||
Width = 531
|
||||
inherited edtlNombre: TcxDBTextEdit
|
||||
DataBinding.DataSource = frViewFacturaCliente1.DADataSource
|
||||
Style.LookAndFeel.SkinName = ''
|
||||
StyleDisabled.LookAndFeel.SkinName = ''
|
||||
StyleFocused.LookAndFeel.SkinName = ''
|
||||
@ -181,6 +182,7 @@ inherited fEditorFacturaCliente: TfEditorFacturaCliente
|
||||
end
|
||||
inherited edtNIFCIF: TcxDBTextEdit
|
||||
Left = 298
|
||||
DataBinding.DataSource = frViewFacturaCliente1.DADataSource
|
||||
Style.LookAndFeel.SkinName = ''
|
||||
StyleDisabled.LookAndFeel.SkinName = ''
|
||||
StyleFocused.LookAndFeel.SkinName = ''
|
||||
@ -231,10 +233,6 @@ inherited fEditorFacturaCliente: TfEditorFacturaCliente
|
||||
object pagContenido: TTabSheet
|
||||
Caption = 'Contenido'
|
||||
ImageIndex = 1
|
||||
ExplicitLeft = 0
|
||||
ExplicitTop = 0
|
||||
ExplicitWidth = 0
|
||||
ExplicitHeight = 0
|
||||
inline frViewDetallesFacturaCliente1: TfrViewDetallesFacturaCliente
|
||||
Left = 0
|
||||
Top = 0
|
||||
@ -255,103 +253,106 @@ inherited fEditorFacturaCliente: TfEditorFacturaCliente
|
||||
ExplicitHeight = 323
|
||||
inherited ToolBar1: TToolBar
|
||||
Width = 888
|
||||
Height = 46
|
||||
Height = 51
|
||||
ExplicitWidth = 888
|
||||
ExplicitHeight = 46
|
||||
ExplicitHeight = 51
|
||||
inherited ToolButton3: TToolButton
|
||||
Wrap = False
|
||||
end
|
||||
inherited ToolButton4: TToolButton
|
||||
Left = 278
|
||||
Top = 0
|
||||
Wrap = True
|
||||
ExplicitLeft = 278
|
||||
ExplicitTop = 0
|
||||
end
|
||||
inherited ToolButton14: TToolButton
|
||||
Left = 0
|
||||
Left = 334
|
||||
Top = 0
|
||||
Wrap = False
|
||||
ExplicitLeft = 0
|
||||
ExplicitLeft = 334
|
||||
ExplicitTop = 0
|
||||
end
|
||||
inherited FontName: TJvFontComboBox
|
||||
Left = 65
|
||||
Top = 22
|
||||
ExplicitLeft = 65
|
||||
ExplicitTop = 22
|
||||
Left = 399
|
||||
Top = 0
|
||||
ExplicitLeft = 399
|
||||
ExplicitTop = 0
|
||||
end
|
||||
inherited FontSize: TEdit
|
||||
Left = 210
|
||||
Top = 22
|
||||
Left = 544
|
||||
Top = 0
|
||||
Width = 280
|
||||
ExplicitLeft = 210
|
||||
ExplicitTop = 22
|
||||
ExplicitLeft = 544
|
||||
ExplicitTop = 0
|
||||
ExplicitWidth = 280
|
||||
end
|
||||
inherited UpDown1: TUpDown
|
||||
Left = 490
|
||||
Top = 22
|
||||
ExplicitLeft = 490
|
||||
ExplicitTop = 22
|
||||
inherited ToolButton13: TToolButton [7]
|
||||
Left = 0
|
||||
Top = 0
|
||||
Wrap = True
|
||||
ExplicitLeft = 0
|
||||
ExplicitTop = 0
|
||||
ExplicitHeight = 27
|
||||
end
|
||||
inherited ToolButton13: TToolButton
|
||||
Left = 507
|
||||
Top = 22
|
||||
ExplicitLeft = 507
|
||||
ExplicitTop = 22
|
||||
inherited UpDown1: TUpDown [8]
|
||||
Left = 0
|
||||
Top = 27
|
||||
ExplicitLeft = 0
|
||||
ExplicitTop = 27
|
||||
end
|
||||
inherited ToolButton6: TToolButton
|
||||
Left = 515
|
||||
Top = 22
|
||||
ExplicitLeft = 515
|
||||
ExplicitTop = 22
|
||||
Left = 17
|
||||
Top = 27
|
||||
ExplicitLeft = 17
|
||||
ExplicitTop = 27
|
||||
end
|
||||
inherited ToolButton7: TToolButton
|
||||
Left = 581
|
||||
Top = 22
|
||||
ExplicitLeft = 581
|
||||
ExplicitTop = 22
|
||||
Left = 83
|
||||
Top = 27
|
||||
ExplicitLeft = 83
|
||||
ExplicitTop = 27
|
||||
end
|
||||
inherited ToolButton8: TToolButton
|
||||
Left = 648
|
||||
Top = 22
|
||||
ExplicitLeft = 648
|
||||
ExplicitTop = 22
|
||||
Left = 150
|
||||
Top = 27
|
||||
ExplicitLeft = 150
|
||||
ExplicitTop = 27
|
||||
end
|
||||
inherited ToolButton12: TToolButton
|
||||
Left = 731
|
||||
Top = 22
|
||||
ExplicitLeft = 731
|
||||
ExplicitTop = 22
|
||||
Left = 233
|
||||
Top = 27
|
||||
ExplicitLeft = 233
|
||||
ExplicitTop = 27
|
||||
end
|
||||
inherited ToolButton9: TToolButton
|
||||
Left = 739
|
||||
Top = 22
|
||||
ExplicitLeft = 739
|
||||
ExplicitTop = 22
|
||||
Left = 241
|
||||
Top = 27
|
||||
ExplicitLeft = 241
|
||||
ExplicitTop = 27
|
||||
end
|
||||
inherited ToolButton10: TToolButton
|
||||
Left = 884
|
||||
Top = 22
|
||||
ExplicitLeft = 884
|
||||
ExplicitTop = 22
|
||||
Left = 386
|
||||
Top = 27
|
||||
ExplicitLeft = 386
|
||||
ExplicitTop = 27
|
||||
end
|
||||
inherited ToolButton11: TToolButton
|
||||
Left = 1009
|
||||
Top = 22
|
||||
ExplicitLeft = 1009
|
||||
ExplicitTop = 22
|
||||
Left = 511
|
||||
Top = 27
|
||||
ExplicitLeft = 511
|
||||
ExplicitTop = 27
|
||||
end
|
||||
end
|
||||
inherited cxGrid: TcxGrid
|
||||
Top = 72
|
||||
Top = 77
|
||||
Width = 888
|
||||
Height = 251
|
||||
Height = 246
|
||||
ExplicitTop = 77
|
||||
ExplicitWidth = 888
|
||||
ExplicitHeight = 246
|
||||
end
|
||||
inherited TBXDock1: TSpTBXDock
|
||||
Top = 46
|
||||
Top = 51
|
||||
Width = 888
|
||||
ExplicitTop = 51
|
||||
ExplicitWidth = 888
|
||||
|
||||
@ -291,14 +291,15 @@ begin
|
||||
if not FCliente.DataTable.Active then
|
||||
FCliente.DataTable.Active := True;
|
||||
|
||||
if FCliente.Direcciones.RecordCount > 0 then
|
||||
ElegirDireccionCliente
|
||||
else
|
||||
begin
|
||||
//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
|
||||
// if FCliente.Direcciones.RecordCount > 0 then
|
||||
// ElegirDireccionCliente
|
||||
// else
|
||||
// begin
|
||||
FFactura.Edit;
|
||||
FFactura.PERSONA_CONTACTO := FCliente.PERSONA_CONTACTO;
|
||||
RefrescarDireccion;
|
||||
end;
|
||||
// end;
|
||||
end
|
||||
else begin
|
||||
dsCliente.DataTable := NIL;
|
||||
|
||||
@ -1,61 +1,82 @@
|
||||
inherited frViewDetallesFacturaCliente: TfrViewDetallesFacturaCliente
|
||||
inherited ToolBar1: TToolBar
|
||||
inherited ToolButton3: TToolButton [1]
|
||||
Left = 109
|
||||
Top = 0
|
||||
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
|
||||
Height = 73
|
||||
ExplicitHeight = 73
|
||||
inherited ToolButton3: TToolButton
|
||||
Wrap = False
|
||||
ExplicitLeft = 0
|
||||
ExplicitTop = 74
|
||||
end
|
||||
inherited ToolButton6: TToolButton
|
||||
Left = 141
|
||||
ExplicitLeft = 141
|
||||
inherited ToolButton4: TToolButton
|
||||
Left = 278
|
||||
Top = 0
|
||||
ExplicitLeft = 278
|
||||
ExplicitTop = 0
|
||||
end
|
||||
inherited ToolButton14: TToolButton
|
||||
Left = 334
|
||||
Top = 0
|
||||
ExplicitLeft = 334
|
||||
ExplicitTop = 0
|
||||
end
|
||||
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
|
||||
inherited cxGrid: TcxGrid
|
||||
Top = 99
|
||||
Height = 205
|
||||
ExplicitTop = 99
|
||||
ExplicitHeight = 205
|
||||
inherited cxGridView: TcxGridDBTableView
|
||||
inherited cxGridViewTIPO: TcxGridDBColumn
|
||||
Visible = False
|
||||
@ -68,9 +89,11 @@ inherited frViewDetallesFacturaCliente: TfrViewDetallesFacturaCliente
|
||||
end
|
||||
end
|
||||
inherited TBXDock1: TSpTBXDock
|
||||
ExplicitTop = 95
|
||||
Top = 73
|
||||
ExplicitTop = 73
|
||||
inherited TBXToolbar1: TSpTBXToolbar
|
||||
DockPos = 0
|
||||
ExplicitWidth = 447
|
||||
inherited TBXSubmenuItem1: TSpTBXSubmenuItem
|
||||
Enabled = False
|
||||
Visible = False
|
||||
@ -78,9 +101,41 @@ inherited frViewDetallesFacturaCliente: TfrViewDetallesFacturaCliente
|
||||
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 actAnadirArticulos: TAction
|
||||
Enabled = False
|
||||
Visible = False
|
||||
end
|
||||
inherited actExportar: TAction
|
||||
Enabled = False
|
||||
Visible = False
|
||||
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>
|
||||
<ProjectGuid>{7ed85635-c723-4c0b-bf1d-f719e0ea33ad}</ProjectGuid>
|
||||
<MainSource>PedidosCliente_controller.dpk</MainSource>
|
||||
@ -48,23 +49,23 @@
|
||||
<DelphiCompile Include="PedidosCliente_controller.dpk">
|
||||
<MainSource>MainSource</MainSource>
|
||||
</DelphiCompile>
|
||||
<DCCReference Include="..\..\Lib\adortl.dcp" />
|
||||
<DCCReference Include="..\..\Lib\Articulos_controller.dcp" />
|
||||
<DCCReference Include="..\..\Lib\Contactos_controller.dcp" />
|
||||
<DCCReference Include="..\..\Lib\Contactos_model.dcp" />
|
||||
<DCCReference Include="..\..\Lib\cxLibraryD11.dcp" />
|
||||
<DCCReference Include="..\..\Lib\DataAbstract_Core_D11.dcp" />
|
||||
<DCCReference Include="..\..\Lib\dbrtl.dcp" />
|
||||
<DCCReference Include="..\..\Lib\dsnap.dcp" />
|
||||
<DCCReference Include="..\..\Lib\dxGDIPlusD11.dcp" />
|
||||
<DCCReference Include="..\..\Lib\dxThemeD11.dcp" />
|
||||
<DCCReference Include="..\..\Lib\GUIBase.dcp" />
|
||||
<DCCReference Include="..\..\Lib\PedidosCliente_data.dcp" />
|
||||
<DCCReference Include="..\..\Lib\PedidosCliente_model.dcp" />
|
||||
<DCCReference Include="..\..\Lib\RemObjects_Core_D11.dcp" />
|
||||
<DCCReference Include="..\..\Lib\rtl.dcp" />
|
||||
<DCCReference Include="..\..\Lib\vcl.dcp" />
|
||||
<DCCReference Include="..\..\Lib\vcldb.dcp" />
|
||||
<DCCReference Include="..\..\..\Servidor\adortl.dcp" />
|
||||
<DCCReference Include="..\..\..\Servidor\Articulos_controller.dcp" />
|
||||
<DCCReference Include="..\..\..\Servidor\Contactos_controller.dcp" />
|
||||
<DCCReference Include="..\..\..\Servidor\Contactos_model.dcp" />
|
||||
<DCCReference Include="..\..\..\Servidor\cxLibraryD11.dcp" />
|
||||
<DCCReference Include="..\..\..\Servidor\DataAbstract_Core_D11.dcp" />
|
||||
<DCCReference Include="..\..\..\Servidor\dbrtl.dcp" />
|
||||
<DCCReference Include="..\..\..\Servidor\dsnap.dcp" />
|
||||
<DCCReference Include="..\..\..\Servidor\dxGDIPlusD11.dcp" />
|
||||
<DCCReference Include="..\..\..\Servidor\dxThemeD11.dcp" />
|
||||
<DCCReference Include="..\..\..\Servidor\GUIBase.dcp" />
|
||||
<DCCReference Include="..\..\..\Servidor\PedidosCliente_data.dcp" />
|
||||
<DCCReference Include="..\..\..\Servidor\PedidosCliente_model.dcp" />
|
||||
<DCCReference Include="..\..\..\Servidor\RemObjects_Core_D11.dcp" />
|
||||
<DCCReference Include="..\..\..\Servidor\rtl.dcp" />
|
||||
<DCCReference Include="..\..\..\Servidor\vcl.dcp" />
|
||||
<DCCReference Include="..\..\..\Servidor\vcldb.dcp" />
|
||||
<DCCReference Include="uArticulosPedidoClienteController.pas" />
|
||||
<DCCReference Include="uDetallesPedidoClienteController.pas" />
|
||||
<DCCReference Include="uPedidosClienteController.pas" />
|
||||
|
||||
@ -28,20 +28,18 @@ var
|
||||
begin
|
||||
Result := NIL;
|
||||
CreateEditor('EditorElegirArticulosPedidosCliente', IEditorElegirArticulosPedidosCliente, AEditor);
|
||||
try
|
||||
with AEditor do
|
||||
begin
|
||||
Controller := Self;
|
||||
Articulos := AArticulos;
|
||||
MultiSelect := AMultiSelect;
|
||||
Mensaje := AMensaje;
|
||||
if IsPositiveResult(ShowModal) then
|
||||
Result := ArticulosSeleccionados;
|
||||
Release;
|
||||
if Assigned(AEditor) then
|
||||
try
|
||||
AEditor.Controller := Self;
|
||||
AEditor.Articulos := AArticulos;
|
||||
AEditor.MultiSelect := AMultiSelect;
|
||||
AEditor.Mensaje := AMensaje;
|
||||
if IsPositiveResult(AEditor.ShowModal) then
|
||||
Result := AEditor.ArticulosSeleccionados;
|
||||
finally
|
||||
AEditor.Release;
|
||||
AEditor := NIL;
|
||||
end;
|
||||
finally
|
||||
AEditor := NIL;
|
||||
end;
|
||||
end;
|
||||
|
||||
end.
|
||||
|
||||
@ -9,10 +9,11 @@ uses
|
||||
type
|
||||
IDetallesPedidoClienteController = interface(IControllerDetallesArticulos)
|
||||
['{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 DesglosarPorteDetalles(ImportePorte: Currency; ADetalles: IDAStronglyTypedDataTable);
|
||||
function DarTotalPorteTotal(ADetalles: IDAStronglyTypedDataTable): Double;
|
||||
procedure ModificarCantidadColores(ADetalles: IDAStronglyTypedDataTable);
|
||||
end;
|
||||
|
||||
TDetallesPedidoClienteController = class(TControllerDetallesArticulos, IDetallesPedidoClienteController)
|
||||
@ -30,16 +31,17 @@ type
|
||||
function DarTotalPorteTotal(ADetalles: IDAStronglyTypedDataTable): Double;
|
||||
|
||||
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 ModificarCantidadColores(ADetalles: IDAStronglyTypedDataTable);
|
||||
constructor Create; override;
|
||||
destructor Destroy; override;
|
||||
end;
|
||||
|
||||
implementation
|
||||
|
||||
uses Dialogs, uDialogUtils, Variants, uControllerDetallesBase, uDataModulePedidosCliente, uArticulosPedidoClienteController,
|
||||
uDataTableUtils, uCalculosUtils;
|
||||
uses Dialogs, Controls, uDialogUtils, Variants, uControllerDetallesBase, uEditorColores,
|
||||
uDataModulePedidosCliente, uArticulosPedidoClienteController, uDataTableUtils, uCalculosUtils;
|
||||
|
||||
{ TDetallesPedidoClienteController }
|
||||
|
||||
@ -52,14 +54,14 @@ begin
|
||||
try
|
||||
AArticulos := (FArticulosController.BuscarTodos(ACliente) as IBizArticulo);
|
||||
ActualizarDetalles(ADetalles, AArticulos);
|
||||
ShowInfoMessage('Se han actualizado los descuentos para el cliente seleccionado');
|
||||
// ShowInfoMessage('Se han actualizado los descuentos para el cliente seleccionado');
|
||||
finally
|
||||
AArticulos := Nil;
|
||||
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
|
||||
AArticulos: IBizArticulo;
|
||||
begin
|
||||
@ -67,16 +69,17 @@ begin
|
||||
begin
|
||||
try
|
||||
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
|
||||
if ANuevaFila then
|
||||
begin
|
||||
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
|
||||
else
|
||||
begin
|
||||
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;
|
||||
finally
|
||||
AArticulos := Nil;
|
||||
@ -118,12 +121,45 @@ begin
|
||||
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);
|
||||
begin
|
||||
//Solo para albaranes que es donde se distingue entre colores para tema de stock
|
||||
if Assigned(AArticulos) then
|
||||
ADetalles.DataTable.FieldByName(CAMPO_DESCUENTO).AsFloat := AArticulos.DESCUENTO
|
||||
else
|
||||
ADetalles.DataTable.FieldByName(CAMPO_DESCUENTO).AsFloat := 0;
|
||||
ModificarCantidadColores(ADetalles);
|
||||
end;
|
||||
|
||||
procedure TDetallesPedidoClienteController.ValidarCampos(DataTable: TDADataTable);
|
||||
@ -134,10 +170,13 @@ end;
|
||||
|
||||
procedure TDetallesPedidoClienteController.RellenarImportes(ADetalles: IDAStronglyTypedDataTable; AArticulos: IBizArticulo);
|
||||
begin
|
||||
if Assigned(AArticulos) then
|
||||
ADetalles.DataTable.FieldByName(CAMPO_IMPORTE_UNIDAD).AsVariant := AArticulos.PRECIO_COSTE
|
||||
else
|
||||
ADetalles.DataTable.FieldByName(CAMPO_IMPORTE_UNIDAD).AsVariant := Null;
|
||||
//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
|
||||
ADetalles.DataTable.FieldByName(CAMPO_IMPORTE_UNIDAD).AsVariant := AArticulos.PRECIO
|
||||
else
|
||||
ADetalles.DataTable.FieldByName(CAMPO_IMPORTE_UNIDAD).AsVariant := Null;
|
||||
end;
|
||||
|
||||
end.
|
||||
|
||||
@ -351,6 +351,10 @@ begin
|
||||
if (EsFechaVacia(APedido.FECHA_PEDIDO)) then
|
||||
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
|
||||
begin
|
||||
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>
|
||||
<ProjectGuid>{38eef566-1895-4bdd-8007-f92f5e32cce6}</ProjectGuid>
|
||||
<MainSource>PedidosCliente_data.dpk</MainSource>
|
||||
@ -36,63 +37,505 @@
|
||||
<DCC_ResourcePath>..\..\..\Lib;..\..\Lib</DCC_ResourcePath>
|
||||
<DCC_ObjPath>..\..\..\Lib;..\..\Lib</DCC_ObjPath>
|
||||
<DCC_IncludePath>..\..\..\Lib;..\..\Lib</DCC_IncludePath>
|
||||
<DCC_Define>DEBUG</DCC_Define>
|
||||
</PropertyGroup>
|
||||
<ProjectExtensions>
|
||||
<Borland.Personality>Delphi.Personality</Borland.Personality>
|
||||
<Borland.ProjectType>Package</Borland.ProjectType>
|
||||
<BorlandProject>
|
||||
<BorlandProject xmlns=""> <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>
|
||||
<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>
|
||||
</ProjectExtensions>
|
||||
<ItemGroup />
|
||||
<Import Project="$(MSBuildBinPath)\Borland.Delphi.Targets" />
|
||||
<ItemGroup>
|
||||
<DelphiCompile Include="PedidosCliente_data.dpk">
|
||||
<MainSource>MainSource</MainSource>
|
||||
</DelphiCompile>
|
||||
<DCCReference Include="..\PedidosCliente_model.dcp" />
|
||||
<DCCReference Include="..\..\..\Servidor\PedidosCliente_model.dcp" />
|
||||
<DCCReference Include="uDataModulePedidosCliente.pas">
|
||||
<Form>DataModulePedidosCliente</Form>
|
||||
</DCCReference>
|
||||
</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
|
||||
OldCreateOrder = True
|
||||
OnCreate = DAClientDataModuleCreate
|
||||
Height = 377
|
||||
Width = 649
|
||||
Height = 396
|
||||
Width = 813
|
||||
object RORemoteService: TRORemoteService
|
||||
Message = dmConexion.ROMessage
|
||||
Channel = dmConexion.ROChannel
|
||||
@ -67,6 +67,8 @@ object DataModulePedidosCliente: TDataModulePedidosCliente
|
||||
item
|
||||
Name = 'ID_DIRECCION'
|
||||
DataType = datInteger
|
||||
DisplayLabel = 'PedidosCliente_ID_DIRECCION'
|
||||
DictionaryEntry = 'PedidosCliente_ID_DIRECCION'
|
||||
end
|
||||
item
|
||||
Name = 'CALLE'
|
||||
@ -171,6 +173,18 @@ object DataModulePedidosCliente: TDataModulePedidosCliente
|
||||
Alignment = taRightJustify
|
||||
DictionaryEntry = 'PedidosCliente_IMPORTE_DESCUENTO'
|
||||
end
|
||||
item
|
||||
Name = 'DESCUENTO2'
|
||||
DataType = datFloat
|
||||
DictionaryEntry = 'PedidosCliente_DESCUENTO2'
|
||||
end
|
||||
item
|
||||
Name = 'IMPORTE_DESCUENTO2'
|
||||
DataType = datCurrency
|
||||
DecimalPrecision = 11
|
||||
DecimalScale = 2
|
||||
DictionaryEntry = 'PedidosCliente_IMPORTE_DESCUENTO2'
|
||||
end
|
||||
item
|
||||
Name = 'BASE_IMPONIBLE'
|
||||
DataType = datCurrency
|
||||
@ -204,6 +218,13 @@ object DataModulePedidosCliente: TDataModulePedidosCliente
|
||||
DataType = datInteger
|
||||
DictionaryEntry = 'PedidosCliente_ID_FORMA_PAGO'
|
||||
end
|
||||
item
|
||||
Name = 'FORMA_PAGO'
|
||||
DataType = datString
|
||||
Size = 255
|
||||
DisplayLabel = 'PedidosCliente_FORMA_PAGO'
|
||||
DictionaryEntry = 'PedidosCliente_FORMA_PAGO'
|
||||
end
|
||||
item
|
||||
Name = 'REF_TIENDA_WEB'
|
||||
DataType = datInteger
|
||||
@ -214,6 +235,13 @@ object DataModulePedidosCliente: TDataModulePedidosCliente
|
||||
DataType = datDateTime
|
||||
DisplayLabel = 'Fecha de entrega prevista'
|
||||
DictionaryEntry = 'PedidosCliente_FECHA_PREVISTA_ENVIO'
|
||||
end
|
||||
item
|
||||
Name = 'DATOS_BANCARIOS'
|
||||
DataType = datString
|
||||
Size = 255
|
||||
DisplayLabel = 'PedidosCliente_DATOS_BANCARIOS'
|
||||
DictionaryEntry = 'PedidosCliente_DATOS_BANCARIOS'
|
||||
end>
|
||||
Params = <>
|
||||
StreamingOptions = [soDisableEventsWhileStreaming]
|
||||
@ -283,9 +311,10 @@ object DataModulePedidosCliente: TDataModulePedidosCliente
|
||||
end
|
||||
item
|
||||
Name = 'CANTIDAD'
|
||||
DataType = datInteger
|
||||
DataType = datFloat
|
||||
DisplayLabel = 'PedidosCliente_Detalles_CANTIDAD'
|
||||
Alignment = taRightJustify
|
||||
DictionaryEntry = 'CANTIDAD'
|
||||
DictionaryEntry = 'PedidosCliente_Detalles_CANTIDAD'
|
||||
end
|
||||
item
|
||||
Name = 'IMPORTE_UNIDAD'
|
||||
@ -297,6 +326,8 @@ object DataModulePedidosCliente: TDataModulePedidosCliente
|
||||
item
|
||||
Name = 'UNIDAD_MEDIDA'
|
||||
DataType = datString
|
||||
DisplayLabel = 'PedidosCliente_Detalles_UNIDAD_MEDIDA'
|
||||
DictionaryEntry = 'PedidosCliente_Detalles_UNIDAD_MEDIDA'
|
||||
end
|
||||
item
|
||||
Name = 'DESCUENTO'
|
||||
@ -464,14 +495,14 @@ object DataModulePedidosCliente: TDataModulePedidosCliente
|
||||
RemoteDataAdapter = rda_PedidosCliente
|
||||
LogicalName = 'ListaAnosPedidos'
|
||||
IndexDefs = <>
|
||||
Left = 520
|
||||
Top = 112
|
||||
Left = 632
|
||||
Top = 264
|
||||
end
|
||||
object ds_ListaAnosPedidos: TDADataSource
|
||||
DataSet = tbl_ListaAnosPedidos.Dataset
|
||||
DataTable = tbl_ListaAnosPedidos
|
||||
Left = 520
|
||||
Top = 48
|
||||
Left = 624
|
||||
Top = 200
|
||||
end
|
||||
object Bin2DataStreamer: TDABin2DataStreamer
|
||||
Left = 40
|
||||
@ -487,4 +518,85 @@ object DataModulePedidosCliente: TDataModulePedidosCliente
|
||||
Left = 43
|
||||
Top = 143
|
||||
end
|
||||
object tbl_PedidosCliente_Detalle_Color: TDAMemDataTable
|
||||
RemoteUpdatesOptions = []
|
||||
Fields = <
|
||||
item
|
||||
Name = 'ID'
|
||||
DataType = datAutoInc
|
||||
GeneratorName = 'GEN_PEDIDOS_CLI_DETALLES_ID'
|
||||
Required = True
|
||||
DictionaryEntry = 'PedidosCliente_Detalles_ID'
|
||||
InPrimaryKey = True
|
||||
end
|
||||
item
|
||||
Name = 'ID_DETALLE'
|
||||
DataType = datInteger
|
||||
end
|
||||
item
|
||||
Name = 'COLOR1'
|
||||
DataType = datInteger
|
||||
end
|
||||
item
|
||||
Name = 'COLOR2'
|
||||
DataType = datInteger
|
||||
end
|
||||
item
|
||||
Name = 'COLOR3'
|
||||
DataType = datInteger
|
||||
end
|
||||
item
|
||||
Name = 'COLOR4'
|
||||
DataType = datInteger
|
||||
end
|
||||
item
|
||||
Name = 'COLOR5'
|
||||
DataType = datInteger
|
||||
end
|
||||
item
|
||||
Name = 'COLOR6'
|
||||
DataType = datInteger
|
||||
end
|
||||
item
|
||||
Name = 'COLOR7'
|
||||
DataType = datInteger
|
||||
end
|
||||
item
|
||||
Name = 'COLOR8'
|
||||
DataType = datInteger
|
||||
end
|
||||
item
|
||||
Name = 'COLOR9'
|
||||
DataType = datInteger
|
||||
end
|
||||
item
|
||||
Name = 'COLOR10'
|
||||
DataType = datInteger
|
||||
end
|
||||
item
|
||||
Name = 'COLOR11'
|
||||
DataType = datInteger
|
||||
end
|
||||
item
|
||||
Name = 'COLOR12'
|
||||
DataType = datInteger
|
||||
end>
|
||||
Params = <>
|
||||
MasterMappingMode = mmWhere
|
||||
StreamingOptions = [soDisableEventsWhileStreaming, soDisableFiltering]
|
||||
RemoteDataAdapter = rda_PedidosCliente
|
||||
MasterSource = ds_PedidosCliente_Detalles
|
||||
MasterFields = 'ID'
|
||||
DetailFields = 'ID_DETALLE'
|
||||
LogicalName = 'PedidosCliente_Detalle_Color'
|
||||
IndexDefs = <>
|
||||
Left = 472
|
||||
Top = 104
|
||||
end
|
||||
object ds_PedidosCliente_Detalle_Color: TDADataSource
|
||||
DataSet = tbl_PedidosCliente_Detalle_Color.Dataset
|
||||
DataTable = tbl_PedidosCliente_Detalle_Color
|
||||
Left = 472
|
||||
Top = 48
|
||||
end
|
||||
end
|
||||
|
||||
@ -8,7 +8,7 @@ uses
|
||||
uDAMemDataTable, uROWinInetHttpChannel, uDADataTable, uDABINAdapter,
|
||||
|
||||
uDAClientDataModule, uROTypes,
|
||||
uIDataModulePedidosCliente, uBizPedidosCliente, uBizDetallesPedidoCliente,
|
||||
uIDataModulePedidosCliente, uBizPedidosCliente, uBizDetallesPedidoCliente, uBizDetalleColoresPedidoCliente,
|
||||
uIDataModulePedidosClienteReport, uDADataAdapter, uDARemoteDataAdapter,
|
||||
uDADataStreamer, uDABin2DataStreamer, uDAInterfaces, uDACDSDataTable;
|
||||
|
||||
@ -27,10 +27,13 @@ type
|
||||
ds_ListaAnosPedidos: TDADataSource;
|
||||
Bin2DataStreamer: TDABin2DataStreamer;
|
||||
rda_PedidosCliente: TDARemoteDataAdapter;
|
||||
tbl_PedidosCliente_Detalle_Color: TDAMemDataTable;
|
||||
ds_PedidosCliente_Detalle_Color: TDADataSource;
|
||||
procedure DAClientDataModuleCreate(Sender: TObject);
|
||||
|
||||
private
|
||||
function _GetDetalles : IBizDetallesPedidoCliente;
|
||||
function _GetDetalleColores : IBizDetalleColoresPedidoCliente;
|
||||
|
||||
protected
|
||||
procedure AsignarClaseNegocio(var APedido: TDAMemDataTable); virtual;
|
||||
@ -96,6 +99,24 @@ begin
|
||||
Result := GetItem(ID_NULO)
|
||||
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;
|
||||
var
|
||||
ADetalles : TDAMemDataTable;
|
||||
@ -215,6 +236,7 @@ begin
|
||||
with TBizPedidoCliente(APedido.BusinessEventsObj) do
|
||||
begin
|
||||
Detalles := _GetDetalles;
|
||||
Detalles.DetalleColores := _GetDetalleColores;
|
||||
end;
|
||||
|
||||
Result := (APedido as IBizPedidoCliente);
|
||||
|
||||
@ -26,7 +26,15 @@ package PedidosCliente_model;
|
||||
|
||||
requires
|
||||
ApplicationBase,
|
||||
Contactos_model;
|
||||
Contactos_model,
|
||||
dbrtl,
|
||||
rtl,
|
||||
DataAbstract_Core_D11,
|
||||
vcldb,
|
||||
vcl,
|
||||
dsnap,
|
||||
adortl,
|
||||
RemObjects_Core_D11;
|
||||
|
||||
contains
|
||||
uIDataModulePedidosCliente in 'Data\uIDataModulePedidosCliente.pas',
|
||||
@ -34,6 +42,7 @@ contains
|
||||
uBizPedidosCliente in 'uBizPedidosCliente.pas',
|
||||
uIDataModulePedidosClienteReport in 'Data\uIDataModulePedidosClienteReport.pas',
|
||||
schPedidosClienteClient_Intf in 'schPedidosClienteClient_Intf.pas',
|
||||
schPedidosClienteServer_Intf in 'schPedidosClienteServer_Intf.pas';
|
||||
schPedidosClienteServer_Intf in 'schPedidosClienteServer_Intf.pas',
|
||||
uBizDetalleColoresPedidoCliente in 'uBizDetalleColoresPedidoCliente.pas';
|
||||
|
||||
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\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>
|
||||
@ -66,14 +58,23 @@
|
||||
<DelphiCompile Include="PedidosCliente_model.dpk">
|
||||
<MainSource>MainSource</MainSource>
|
||||
</DelphiCompile>
|
||||
<DCCReference Include="..\..\Lib\ApplicationBase.dcp" />
|
||||
<DCCReference Include="..\..\Lib\Contactos_model.dcp" />
|
||||
<DCCReference Include="adortl.dcp" />
|
||||
<DCCReference Include="ApplicationBase.dcp" />
|
||||
<DCCReference Include="Contactos_model.dcp" />
|
||||
<DCCReference Include="DataAbstract_Core_D11.dcp" />
|
||||
<DCCReference Include="Data\uIDataModulePedidosCliente.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="schPedidosClienteServer_Intf.pas" />
|
||||
<DCCReference Include="uBizDetalleColoresPedidoCliente.pas" />
|
||||
<DCCReference Include="uBizDetallesPedidoCliente.pas" />
|
||||
<DCCReference Include="uBizPedidosCliente.pas" />
|
||||
<DCCReference Include="vcl.dcp" />
|
||||
<DCCReference Include="vcldb.dcp" />
|
||||
<None Include="ModelSupport_PedidosCliente_model\default.txaPackage" />
|
||||
</ItemGroup>
|
||||
</Project>
|
||||
|
||||
@ -13,4 +13,4 @@ BEGIN
|
||||
END
|
||||
|
||||
/* 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
|
||||
|
||||
uses
|
||||
Classes, DB, schBase_Intf, SysUtils, uROClasses, uDAInterfaces, uDADataTable, FmtBCD, uROXMLIntf;
|
||||
Classes, DB, SysUtils, uROClasses, uDAInterfaces, uDADataTable, FmtBCD, uROXMLIntf;
|
||||
|
||||
const
|
||||
{ Data table rules ids
|
||||
Feel free to change them to something more human readable
|
||||
but make sure they are unique in the context of your application }
|
||||
RID_ListaAnosPedidos = '{B9FEF205-0431-4580-8AE1-E1A07F41B5B8}';
|
||||
RID_PedidoCliente_ArticulosPendientesPedirAProv = '{D58EF0E1-A459-40DD-8309-2C9AFD3769B8}';
|
||||
RID_PedidosCliente = '{D3C08BFA-7D2F-4272-9251-252D082C0ABB}';
|
||||
RID_PedidosCliente_Detalles = '{7B91720B-C864-48E9-B842-BE7EF3B2CFE0}';
|
||||
RID_PedidoCliente_Articulos_Pendientes = '{786D4023-7026-4E28-B4BE-F16F71123082}';
|
||||
RID_ListaAnosPedidos = '{69ED4D2A-C692-4F24-BC5B-8893D377C1AC}';
|
||||
RID_PedidoCliente_ArticulosPendientesPedirAProv = '{CC176519-3A83-42DE-877D-76AD039A7FBF}';
|
||||
RID_PedidosCliente = '{285F9D98-1E3E-441A-AA07-1DDF2D1E5697}';
|
||||
RID_PedidosCliente_Detalles = '{8FC465FD-CB58-49CA-B962-3C0F8296244A}';
|
||||
RID_PedidoCliente_Articulos_Pendientes = '{AC15597C-6504-4224-BFF7-E45D45A62F0D}';
|
||||
RID_PedidosCliente_Detalle_Color = '{5571EC96-859E-4DAA-873E-819E0047DAE5}';
|
||||
|
||||
{ Data table names }
|
||||
nme_ListaAnosPedidos = 'ListaAnosPedidos';
|
||||
@ -22,6 +23,7 @@ const
|
||||
nme_PedidosCliente = 'PedidosCliente';
|
||||
nme_PedidosCliente_Detalles = 'PedidosCliente_Detalles';
|
||||
nme_PedidoCliente_Articulos_Pendientes = 'PedidoCliente_Articulos_Pendientes';
|
||||
nme_PedidosCliente_Detalle_Color = 'PedidosCliente_Detalle_Color';
|
||||
|
||||
{ ListaAnosPedidos fields }
|
||||
fld_ListaAnosPedidosANO = 'ANO';
|
||||
@ -71,13 +73,17 @@ const
|
||||
fld_PedidosClienteIMPORTE_PORTE = 'IMPORTE_PORTE';
|
||||
fld_PedidosClienteDESCUENTO = 'DESCUENTO';
|
||||
fld_PedidosClienteIMPORTE_DESCUENTO = 'IMPORTE_DESCUENTO';
|
||||
fld_PedidosClienteDESCUENTO2 = 'DESCUENTO2';
|
||||
fld_PedidosClienteIMPORTE_DESCUENTO2 = 'IMPORTE_DESCUENTO2';
|
||||
fld_PedidosClienteBASE_IMPONIBLE = 'BASE_IMPONIBLE';
|
||||
fld_PedidosClienteIVA = 'IVA';
|
||||
fld_PedidosClienteIMPORTE_IVA = 'IMPORTE_IVA';
|
||||
fld_PedidosClienteIMPORTE_TOTAL = 'IMPORTE_TOTAL';
|
||||
fld_PedidosClienteID_FORMA_PAGO = 'ID_FORMA_PAGO';
|
||||
fld_PedidosClienteFORMA_PAGO = 'FORMA_PAGO';
|
||||
fld_PedidosClienteREF_TIENDA_WEB = 'REF_TIENDA_WEB';
|
||||
fld_PedidosClienteFECHA_PREVISTA_ENVIO = 'FECHA_PREVISTA_ENVIO';
|
||||
fld_PedidosClienteDATOS_BANCARIOS = 'DATOS_BANCARIOS';
|
||||
|
||||
{ PedidosCliente field indexes }
|
||||
idx_PedidosClienteID = 0;
|
||||
@ -105,13 +111,17 @@ const
|
||||
idx_PedidosClienteIMPORTE_PORTE = 22;
|
||||
idx_PedidosClienteDESCUENTO = 23;
|
||||
idx_PedidosClienteIMPORTE_DESCUENTO = 24;
|
||||
idx_PedidosClienteBASE_IMPONIBLE = 25;
|
||||
idx_PedidosClienteIVA = 26;
|
||||
idx_PedidosClienteIMPORTE_IVA = 27;
|
||||
idx_PedidosClienteIMPORTE_TOTAL = 28;
|
||||
idx_PedidosClienteID_FORMA_PAGO = 29;
|
||||
idx_PedidosClienteREF_TIENDA_WEB = 30;
|
||||
idx_PedidosClienteFECHA_PREVISTA_ENVIO = 31;
|
||||
idx_PedidosClienteDESCUENTO2 = 25;
|
||||
idx_PedidosClienteIMPORTE_DESCUENTO2 = 26;
|
||||
idx_PedidosClienteBASE_IMPONIBLE = 27;
|
||||
idx_PedidosClienteIVA = 28;
|
||||
idx_PedidosClienteIMPORTE_IVA = 29;
|
||||
idx_PedidosClienteIMPORTE_TOTAL = 30;
|
||||
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 }
|
||||
fld_PedidosCliente_DetallesID = 'ID';
|
||||
@ -159,10 +169,42 @@ const
|
||||
idx_PedidoCliente_Articulos_PendientesCANTIDAD_ALB = 2;
|
||||
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
|
||||
{ IListaAnosPedidos }
|
||||
IListaAnosPedidos = interface(IDAStronglyTypedDataTable)
|
||||
['{5691474A-E3A7-41CC-A8C1-E2FAA78AECC3}']
|
||||
['{475ACA8D-8541-4EE1-A13B-85A5D1F6BED0}']
|
||||
{ Property getters and setters }
|
||||
function GetANOValue: String;
|
||||
procedure SetANOValue(const aValue: String);
|
||||
@ -176,7 +218,7 @@ type
|
||||
end;
|
||||
|
||||
{ TListaAnosPedidosDataTableRules }
|
||||
TListaAnosPedidosDataTableRules = class(TIntfObjectDADataTableRules, IListaAnosPedidos)
|
||||
TListaAnosPedidosDataTableRules = class(TDADataTableRules, IListaAnosPedidos)
|
||||
private
|
||||
protected
|
||||
{ Property getters and setters }
|
||||
@ -197,7 +239,7 @@ type
|
||||
|
||||
{ IPedidoCliente_ArticulosPendientesPedirAProv }
|
||||
IPedidoCliente_ArticulosPendientesPedirAProv = interface(IDAStronglyTypedDataTable)
|
||||
['{E711BE61-34E1-4715-8C2A-2CDD2622A414}']
|
||||
['{7AD10614-220C-409B-AC9B-45D3D071265E}']
|
||||
{ Property getters and setters }
|
||||
function GetID_PEDIDOValue: Integer;
|
||||
procedure SetID_PEDIDOValue(const aValue: Integer);
|
||||
@ -241,7 +283,7 @@ type
|
||||
end;
|
||||
|
||||
{ TPedidoCliente_ArticulosPendientesPedirAProvDataTableRules }
|
||||
TPedidoCliente_ArticulosPendientesPedirAProvDataTableRules = class(TIntfObjectDADataTableRules, IPedidoCliente_ArticulosPendientesPedirAProv)
|
||||
TPedidoCliente_ArticulosPendientesPedirAProvDataTableRules = class(TDADataTableRules, IPedidoCliente_ArticulosPendientesPedirAProv)
|
||||
private
|
||||
protected
|
||||
{ Property getters and setters }
|
||||
@ -292,7 +334,7 @@ type
|
||||
|
||||
{ IPedidosCliente }
|
||||
IPedidosCliente = interface(IDAStronglyTypedDataTable)
|
||||
['{4370618E-96AC-416C-85CD-49313C07F8E7}']
|
||||
['{7F223677-49BE-4682-A347-2F7D6E9EB4EC}']
|
||||
{ Property getters and setters }
|
||||
function GetIDValue: Integer;
|
||||
procedure SetIDValue(const aValue: Integer);
|
||||
@ -392,6 +434,14 @@ type
|
||||
procedure SetIMPORTE_DESCUENTOValue(const aValue: Currency);
|
||||
function GetIMPORTE_DESCUENTOIsNull: 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;
|
||||
procedure SetBASE_IMPONIBLEValue(const aValue: Currency);
|
||||
function GetBASE_IMPONIBLEIsNull: Boolean;
|
||||
@ -412,6 +462,10 @@ type
|
||||
procedure SetID_FORMA_PAGOValue(const aValue: Integer);
|
||||
function GetID_FORMA_PAGOIsNull: 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;
|
||||
procedure SetREF_TIENDA_WEBValue(const aValue: Integer);
|
||||
function GetREF_TIENDA_WEBIsNull: Boolean;
|
||||
@ -420,6 +474,10 @@ type
|
||||
procedure SetFECHA_PREVISTA_ENVIOValue(const aValue: DateTime);
|
||||
function GetFECHA_PREVISTA_ENVIOIsNull: 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 }
|
||||
@ -473,6 +531,10 @@ type
|
||||
property DESCUENTOIsNull: Boolean read GetDESCUENTOIsNull write SetDESCUENTOIsNull;
|
||||
property IMPORTE_DESCUENTO: Currency read GetIMPORTE_DESCUENTOValue write SetIMPORTE_DESCUENTOValue;
|
||||
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_IMPONIBLEIsNull: Boolean read GetBASE_IMPONIBLEIsNull write SetBASE_IMPONIBLEIsNull;
|
||||
property IVA: Float read GetIVAValue write SetIVAValue;
|
||||
@ -483,14 +545,18 @@ type
|
||||
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_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_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_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;
|
||||
|
||||
{ TPedidosClienteDataTableRules }
|
||||
TPedidosClienteDataTableRules = class(TIntfObjectDADataTableRules, IPedidosCliente)
|
||||
TPedidosClienteDataTableRules = class(TDADataTableRules, IPedidosCliente)
|
||||
private
|
||||
f_OBSERVACIONES: IROStrings;
|
||||
f_INCIDENCIAS: IROStrings;
|
||||
@ -596,6 +662,14 @@ type
|
||||
procedure SetIMPORTE_DESCUENTOValue(const aValue: Currency); virtual;
|
||||
function GetIMPORTE_DESCUENTOIsNull: 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;
|
||||
procedure SetBASE_IMPONIBLEValue(const aValue: Currency); virtual;
|
||||
function GetBASE_IMPONIBLEIsNull: Boolean; virtual;
|
||||
@ -616,6 +690,10 @@ type
|
||||
procedure SetID_FORMA_PAGOValue(const aValue: Integer); virtual;
|
||||
function GetID_FORMA_PAGOIsNull: 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;
|
||||
procedure SetREF_TIENDA_WEBValue(const aValue: Integer); virtual;
|
||||
function GetREF_TIENDA_WEBIsNull: Boolean; virtual;
|
||||
@ -624,6 +702,10 @@ type
|
||||
procedure SetFECHA_PREVISTA_ENVIOValue(const aValue: DateTime); virtual;
|
||||
function GetFECHA_PREVISTA_ENVIOIsNull: 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 }
|
||||
property ID: Integer read GetIDValue write SetIDValue;
|
||||
@ -676,6 +758,10 @@ type
|
||||
property DESCUENTOIsNull: Boolean read GetDESCUENTOIsNull write SetDESCUENTOIsNull;
|
||||
property IMPORTE_DESCUENTO: Currency read GetIMPORTE_DESCUENTOValue write SetIMPORTE_DESCUENTOValue;
|
||||
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_IMPONIBLEIsNull: Boolean read GetBASE_IMPONIBLEIsNull write SetBASE_IMPONIBLEIsNull;
|
||||
property IVA: Float read GetIVAValue write SetIVAValue;
|
||||
@ -686,10 +772,14 @@ type
|
||||
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_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_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_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
|
||||
constructor Create(aDataTable: TDADataTable); override;
|
||||
@ -699,7 +789,7 @@ type
|
||||
|
||||
{ IPedidosCliente_Detalles }
|
||||
IPedidosCliente_Detalles = interface(IDAStronglyTypedDataTable)
|
||||
['{AA332AF5-ADDB-4244-BB55-94E298CA4C95}']
|
||||
['{BAD29A6E-F515-46A0-8BDD-EE879086BE33}']
|
||||
{ Property getters and setters }
|
||||
function GetIDValue: Integer;
|
||||
procedure SetIDValue(const aValue: Integer);
|
||||
@ -733,8 +823,8 @@ type
|
||||
procedure SetCONCEPTOValue(const aValue: String);
|
||||
function GetCONCEPTOIsNull: Boolean;
|
||||
procedure SetCONCEPTOIsNull(const aValue: Boolean);
|
||||
function GetCANTIDADValue: Integer;
|
||||
procedure SetCANTIDADValue(const aValue: Integer);
|
||||
function GetCANTIDADValue: Float;
|
||||
procedure SetCANTIDADValue(const aValue: Float);
|
||||
function GetCANTIDADIsNull: Boolean;
|
||||
procedure SetCANTIDADIsNull(const aValue: Boolean);
|
||||
function GetIMPORTE_UNIDADValue: Currency;
|
||||
@ -780,7 +870,7 @@ type
|
||||
property REFERENCIA_PROVEEDORIsNull: Boolean read GetREFERENCIA_PROVEEDORIsNull write SetREFERENCIA_PROVEEDORIsNull;
|
||||
property CONCEPTO: String read GetCONCEPTOValue write SetCONCEPTOValue;
|
||||
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 IMPORTE_UNIDAD: Currency read GetIMPORTE_UNIDADValue write SetIMPORTE_UNIDADValue;
|
||||
property IMPORTE_UNIDADIsNull: Boolean read GetIMPORTE_UNIDADIsNull write SetIMPORTE_UNIDADIsNull;
|
||||
@ -797,7 +887,7 @@ type
|
||||
end;
|
||||
|
||||
{ TPedidosCliente_DetallesDataTableRules }
|
||||
TPedidosCliente_DetallesDataTableRules = class(TIntfObjectDADataTableRules, IPedidosCliente_Detalles)
|
||||
TPedidosCliente_DetallesDataTableRules = class(TDADataTableRules, IPedidosCliente_Detalles)
|
||||
private
|
||||
protected
|
||||
{ Property getters and setters }
|
||||
@ -833,8 +923,8 @@ type
|
||||
procedure SetCONCEPTOValue(const aValue: String); virtual;
|
||||
function GetCONCEPTOIsNull: Boolean; virtual;
|
||||
procedure SetCONCEPTOIsNull(const aValue: Boolean); virtual;
|
||||
function GetCANTIDADValue: Integer; virtual;
|
||||
procedure SetCANTIDADValue(const aValue: Integer); virtual;
|
||||
function GetCANTIDADValue: Float; virtual;
|
||||
procedure SetCANTIDADValue(const aValue: Float); virtual;
|
||||
function GetCANTIDADIsNull: Boolean; virtual;
|
||||
procedure SetCANTIDADIsNull(const aValue: Boolean); virtual;
|
||||
function GetIMPORTE_UNIDADValue: Currency; virtual;
|
||||
@ -879,7 +969,7 @@ type
|
||||
property REFERENCIA_PROVEEDORIsNull: Boolean read GetREFERENCIA_PROVEEDORIsNull write SetREFERENCIA_PROVEEDORIsNull;
|
||||
property CONCEPTO: String read GetCONCEPTOValue write SetCONCEPTOValue;
|
||||
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 IMPORTE_UNIDAD: Currency read GetIMPORTE_UNIDADValue write SetIMPORTE_UNIDADValue;
|
||||
property IMPORTE_UNIDADIsNull: Boolean read GetIMPORTE_UNIDADIsNull write SetIMPORTE_UNIDADIsNull;
|
||||
@ -902,7 +992,7 @@ type
|
||||
|
||||
{ IPedidoCliente_Articulos_Pendientes }
|
||||
IPedidoCliente_Articulos_Pendientes = interface(IDAStronglyTypedDataTable)
|
||||
['{4C18D512-9D95-476E-97D9-EFBD0FC57621}']
|
||||
['{3662880C-6D05-49E4-B105-19882211F1AD}']
|
||||
{ Property getters and setters }
|
||||
function GetID_ARTICULOValue: Integer;
|
||||
procedure SetID_ARTICULOValue(const aValue: Integer);
|
||||
@ -934,7 +1024,7 @@ type
|
||||
end;
|
||||
|
||||
{ TPedidoCliente_Articulos_PendientesDataTableRules }
|
||||
TPedidoCliente_Articulos_PendientesDataTableRules = class(TIntfObjectDADataTableRules, IPedidoCliente_Articulos_Pendientes)
|
||||
TPedidoCliente_Articulos_PendientesDataTableRules = class(TDADataTableRules, IPedidoCliente_Articulos_Pendientes)
|
||||
private
|
||||
protected
|
||||
{ Property getters and setters }
|
||||
@ -971,6 +1061,197 @@ type
|
||||
|
||||
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
|
||||
|
||||
uses Variants, uROBinaryHelpers;
|
||||
@ -1694,6 +1975,48 @@ begin
|
||||
DataTable.Fields[idx_PedidosClienteIMPORTE_DESCUENTO].AsVariant := Null;
|
||||
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;
|
||||
begin
|
||||
result := DataTable.Fields[idx_PedidosClienteBASE_IMPONIBLE].AsCurrency;
|
||||
@ -1799,6 +2122,27 @@ begin
|
||||
DataTable.Fields[idx_PedidosClienteID_FORMA_PAGO].AsVariant := Null;
|
||||
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;
|
||||
begin
|
||||
result := DataTable.Fields[idx_PedidosClienteREF_TIENDA_WEB].AsInteger;
|
||||
@ -1841,6 +2185,27 @@ begin
|
||||
DataTable.Fields[idx_PedidosClienteFECHA_PREVISTA_ENVIO].AsVariant := Null;
|
||||
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 }
|
||||
constructor TPedidosCliente_DetallesDataTableRules.Create(aDataTable: TDADataTable);
|
||||
@ -2021,14 +2386,14 @@ begin
|
||||
DataTable.Fields[idx_PedidosCliente_DetallesCONCEPTO].AsVariant := Null;
|
||||
end;
|
||||
|
||||
function TPedidosCliente_DetallesDataTableRules.GetCANTIDADValue: Integer;
|
||||
function TPedidosCliente_DetallesDataTableRules.GetCANTIDADValue: Float;
|
||||
begin
|
||||
result := DataTable.Fields[idx_PedidosCliente_DetallesCANTIDAD].AsInteger;
|
||||
result := DataTable.Fields[idx_PedidosCliente_DetallesCANTIDAD].AsFloat;
|
||||
end;
|
||||
|
||||
procedure TPedidosCliente_DetallesDataTableRules.SetCANTIDADValue(const aValue: Integer);
|
||||
procedure TPedidosCliente_DetallesDataTableRules.SetCANTIDADValue(const aValue: Float);
|
||||
begin
|
||||
DataTable.Fields[idx_PedidosCliente_DetallesCANTIDAD].AsInteger := aValue;
|
||||
DataTable.Fields[idx_PedidosCliente_DetallesCANTIDAD].AsFloat := aValue;
|
||||
end;
|
||||
|
||||
function TPedidosCliente_DetallesDataTableRules.GetCANTIDADIsNull: boolean;
|
||||
@ -2265,11 +2630,318 @@ begin
|
||||
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
|
||||
RegisterDataTableRules(RID_ListaAnosPedidos, TListaAnosPedidosDataTableRules);
|
||||
RegisterDataTableRules(RID_PedidoCliente_ArticulosPendientesPedirAProv, TPedidoCliente_ArticulosPendientesPedirAProvDataTableRules);
|
||||
RegisterDataTableRules(RID_PedidosCliente, TPedidosClienteDataTableRules);
|
||||
RegisterDataTableRules(RID_PedidosCliente_Detalles, TPedidosCliente_DetallesDataTableRules);
|
||||
RegisterDataTableRules(RID_PedidoCliente_Articulos_Pendientes, TPedidoCliente_Articulos_PendientesDataTableRules);
|
||||
RegisterDataTableRules(RID_PedidosCliente_Detalle_Color, TPedidosCliente_Detalle_ColorDataTableRules);
|
||||
|
||||
end.
|
||||
|
||||
File diff suppressed because it is too large
Load Diff
@ -3,7 +3,7 @@ unit uBizDetallesPedidoCliente;
|
||||
interface
|
||||
|
||||
uses
|
||||
uDADataTable, schPedidosClienteClient_Intf;
|
||||
uDADataTable, schPedidosClienteClient_Intf, uBizDetalleColoresPedidoCliente;
|
||||
|
||||
const
|
||||
BIZ_CLIENT_DETALLES_PEDIDO_CLIENTE = 'Client.PedidoCliente.Detalles';
|
||||
@ -12,6 +12,9 @@ const
|
||||
type
|
||||
IBizDetallesPedidoCliente = interface(IPedidosCliente_Detalles)
|
||||
['{2D7781DC-AD16-4857-9567-5C1620319781}']
|
||||
function GetDetalleColores: IBizDetalleColoresPedidoCliente;
|
||||
procedure SetDetalleColores(Value: IBizDetalleColoresPedidoCliente);
|
||||
property DetalleColores: IBizDetalleColoresPedidoCliente read GetDetalleColores write SetDetalleColores;
|
||||
end;
|
||||
|
||||
IBizPedidoClienteArticulosPend = interface(IPedidoCliente_Articulos_Pendientes)
|
||||
@ -19,12 +22,20 @@ type
|
||||
end;
|
||||
|
||||
TBizDetallesPedidoCliente = class(TPedidosCliente_DetallesDataTableRules, IBizDetallesPedidoCliente)
|
||||
private
|
||||
ContIdAux: Integer;
|
||||
protected
|
||||
FDetalleColores : IBizDetalleColoresPedidoCliente;
|
||||
FDetalleColoresLink : TDADataSource;
|
||||
|
||||
function GetDetalleColores: IBizDetalleColoresPedidoCliente;
|
||||
procedure SetDetalleColores(Value: IBizDetalleColoresPedidoCliente);
|
||||
|
||||
procedure OnNewRecord(Sender: TDADataTable); override;
|
||||
procedure BeforeInsert(Sender: TDADataTable); override;
|
||||
|
||||
public
|
||||
property DetalleColores: IBizDetalleColoresPedidoCliente read GetDetalleColores write SetDetalleColores;
|
||||
constructor Create(aDataTable: TDADataTable); override;
|
||||
destructor Destroy; override;
|
||||
end;
|
||||
|
||||
TBizPedidoClienteArticulosPend = class(TPedidoCliente_Articulos_PendientesDataTableRules, IBizPedidoClienteArticulosPend)
|
||||
@ -36,20 +47,49 @@ implementation
|
||||
{ TBizDetallesPedidoCliente }
|
||||
|
||||
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);
|
||||
begin
|
||||
inherited Create(aDataTable);
|
||||
ContIdAux := -1;
|
||||
inherited;
|
||||
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;
|
||||
|
||||
procedure TBizDetallesPedidoCliente.OnNewRecord(Sender: TDADataTable);
|
||||
begin
|
||||
inherited;
|
||||
ID := ContIdAux; // -1, -2, -3...
|
||||
Dec(ContIdAux);
|
||||
VISIBLE := 1;
|
||||
end;
|
||||
|
||||
procedure TBizDetallesPedidoCliente.SetDetalleColores(Value: IBizDetalleColoresPedidoCliente);
|
||||
begin
|
||||
FDetalleColores := Value;
|
||||
EnlazarMaestroDetalle(FDetalleColoresLink, FDetalleColores);
|
||||
end;
|
||||
|
||||
initialization
|
||||
|
||||
@ -74,6 +74,7 @@ type
|
||||
procedure IMPORTE_NETOOnChange(Sender: TDACustomField);
|
||||
procedure IMPORTE_PORTEOnChange(Sender: TDACustomField);
|
||||
procedure DESCUENTOOnChange(Sender: TDACustomField);
|
||||
procedure DESCUENTO2OnChange(Sender: TDACustomField);
|
||||
procedure IVAOnChange(Sender: TDACustomField);
|
||||
|
||||
public
|
||||
@ -109,7 +110,8 @@ begin
|
||||
if not Self.DataTable.Editing then
|
||||
Edit;
|
||||
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;
|
||||
|
||||
procedure TBizPedidoCliente.CalcularImporteTotal;
|
||||
@ -146,6 +148,7 @@ begin
|
||||
FieldByName(fld_PedidosClienteIMPORTE_NETO).OnChange := IMPORTE_NETOOnChange;
|
||||
FieldByName(fld_PedidosClienteIMPORTE_PORTE).OnChange := IMPORTE_PORTEOnChange;
|
||||
FieldByName(fld_PedidosClienteDESCUENTO).OnChange := DESCUENTOOnChange;
|
||||
FieldByName(fld_PedidosClienteDESCUENTO2).OnChange := DESCUENTO2OnChange;
|
||||
FieldByName(fld_PedidosClienteIVA).OnChange := IVAOnChange;
|
||||
end;
|
||||
|
||||
@ -166,6 +169,11 @@ begin
|
||||
end;
|
||||
end;
|
||||
|
||||
procedure TBizPedidoCliente.DESCUENTO2OnChange(Sender: TDACustomField);
|
||||
begin
|
||||
CalcularImporteTotal;
|
||||
end;
|
||||
|
||||
procedure TBizPedidoCliente.DESCUENTOOnChange(Sender: TDACustomField);
|
||||
begin
|
||||
CalcularImporteTotal;
|
||||
@ -250,7 +258,14 @@ begin
|
||||
DataTable.Edit;
|
||||
|
||||
ID_CLIENTE := FCliente.ID;
|
||||
ID_FORMA_PAGO := FCliente.ID_FORMA_PAGO;
|
||||
|
||||
//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;
|
||||
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
|
||||
//si se quita el id de la cabecera y los detalles se desincroniza
|
||||
|
||||
@ -9,6 +9,7 @@
|
||||
<Projects Include="..\..\Cliente\FactuGES.dproj" />
|
||||
<Projects Include="..\..\GUIBase\GUIBase.dproj" />
|
||||
<Projects Include="..\..\Servidor\FactuGES_Server.dproj" />
|
||||
<Projects Include="..\Albaranes de cliente\Views\AlbaranesCliente_view.dproj" />
|
||||
<Projects Include="..\Articulos\Controller\Articulos_controller.dproj" />
|
||||
<Projects Include="..\Articulos\Data\Articulos_data.dproj" />
|
||||
<Projects Include="..\Articulos\Model\Articulos_model.dproj" />
|
||||
@ -161,14 +162,23 @@
|
||||
<Target Name="FactuGES_Server:Make">
|
||||
<MSBuild Projects="..\..\Servidor\FactuGES_Server.dproj" Targets="Make" />
|
||||
</Target>
|
||||
<Target Name="AlbaranesCliente_view">
|
||||
<MSBuild Projects="..\Albaranes de cliente\Views\AlbaranesCliente_view.dproj" Targets="" />
|
||||
</Target>
|
||||
<Target Name="AlbaranesCliente_view:Clean">
|
||||
<MSBuild Projects="..\Albaranes de cliente\Views\AlbaranesCliente_view.dproj" Targets="Clean" />
|
||||
</Target>
|
||||
<Target Name="AlbaranesCliente_view:Make">
|
||||
<MSBuild Projects="..\Albaranes de cliente\Views\AlbaranesCliente_view.dproj" Targets="Make" />
|
||||
</Target>
|
||||
<Target Name="Build">
|
||||
<CallTarget Targets="Base;GUIBase;ApplicationBase;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 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 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>
|
||||
<Import Condition="Exists('$(MSBuildBinPath)\Borland.Group.Targets')" Project="$(MSBuildBinPath)\Borland.Group.Targets" />
|
||||
</Project>
|
||||
@ -215,6 +215,14 @@ object srvPedidosCliente: TsrvPedidosCliente
|
||||
DatasetField = 'IMPORTE_DESCUENTO'
|
||||
TableField = 'IMPORTE_DESCUENTO'
|
||||
end
|
||||
item
|
||||
DatasetField = 'DESCUENTO2'
|
||||
TableField = 'DESCUENTO2'
|
||||
end
|
||||
item
|
||||
DatasetField = 'IMPORTE_DESCUENTO2'
|
||||
TableField = 'IMPORTE_DESCUENTO2'
|
||||
end
|
||||
item
|
||||
DatasetField = 'BASE_IMPONIBLE'
|
||||
TableField = 'BASE_IMPONIBLE'
|
||||
@ -235,6 +243,10 @@ object srvPedidosCliente: TsrvPedidosCliente
|
||||
DatasetField = 'ID_FORMA_PAGO'
|
||||
TableField = 'ID_FORMA_PAGO'
|
||||
end
|
||||
item
|
||||
DatasetField = 'FORMA_PAGO'
|
||||
TableField = 'FORMA_PAGO'
|
||||
end
|
||||
item
|
||||
DatasetField = 'REF_TIENDA_WEB'
|
||||
TableField = 'REF_TIENDA_WEB'
|
||||
@ -242,6 +254,10 @@ object srvPedidosCliente: TsrvPedidosCliente
|
||||
item
|
||||
DatasetField = 'FECHA_PREVISTA_ENVIO'
|
||||
TableField = 'FECHA_PREVISTA_ENVIO'
|
||||
end
|
||||
item
|
||||
DatasetField = 'DATOS_BANCARIOS'
|
||||
TableField = 'DATOS_BANCARIOS'
|
||||
end>
|
||||
end>
|
||||
Name = 'PedidosCliente'
|
||||
@ -295,6 +311,7 @@ object srvPedidosCliente: TsrvPedidosCliente
|
||||
item
|
||||
Name = 'ID_DIRECCION'
|
||||
DataType = datInteger
|
||||
DictionaryEntry = 'PedidosCliente_ID_DIRECCION'
|
||||
end
|
||||
item
|
||||
Name = 'CALLE'
|
||||
@ -383,6 +400,18 @@ object srvPedidosCliente: TsrvPedidosCliente
|
||||
DataType = datCurrency
|
||||
DictionaryEntry = 'PedidosCliente_IMPORTE_DESCUENTO'
|
||||
end
|
||||
item
|
||||
Name = 'DESCUENTO2'
|
||||
DataType = datFloat
|
||||
DictionaryEntry = 'PedidosCliente_DESCUENTO2'
|
||||
end
|
||||
item
|
||||
Name = 'IMPORTE_DESCUENTO2'
|
||||
DataType = datCurrency
|
||||
DecimalPrecision = 11
|
||||
DecimalScale = 2
|
||||
DictionaryEntry = 'PedidosCliente_IMPORTE_DESCUENTO2'
|
||||
end
|
||||
item
|
||||
Name = 'BASE_IMPONIBLE'
|
||||
DataType = datCurrency
|
||||
@ -408,6 +437,12 @@ object srvPedidosCliente: TsrvPedidosCliente
|
||||
DataType = datInteger
|
||||
DictionaryEntry = 'PedidosCliente_ID_FORMA_PAGO'
|
||||
end
|
||||
item
|
||||
Name = 'FORMA_PAGO'
|
||||
DataType = datString
|
||||
Size = 255
|
||||
DictionaryEntry = 'PedidosCliente_FORMA_PAGO'
|
||||
end
|
||||
item
|
||||
Name = 'REF_TIENDA_WEB'
|
||||
DataType = datInteger
|
||||
@ -417,6 +452,12 @@ object srvPedidosCliente: TsrvPedidosCliente
|
||||
Name = 'FECHA_PREVISTA_ENVIO'
|
||||
DataType = datDateTime
|
||||
DictionaryEntry = 'PedidosCliente_FECHA_PREVISTA_ENVIO'
|
||||
end
|
||||
item
|
||||
Name = 'DATOS_BANCARIOS'
|
||||
DataType = datString
|
||||
Size = 255
|
||||
DictionaryEntry = 'PedidosCliente_DATOS_BANCARIOS'
|
||||
end>
|
||||
end
|
||||
item
|
||||
@ -554,8 +595,8 @@ object srvPedidosCliente: TsrvPedidosCliente
|
||||
end
|
||||
item
|
||||
Name = 'CANTIDAD'
|
||||
DataType = datInteger
|
||||
DictionaryEntry = 'CANTIDAD'
|
||||
DataType = datFloat
|
||||
DictionaryEntry = 'PedidosCliente_Detalles_CANTIDAD'
|
||||
end
|
||||
item
|
||||
Name = 'IMPORTE_UNIDAD'
|
||||
@ -565,6 +606,7 @@ object srvPedidosCliente: TsrvPedidosCliente
|
||||
item
|
||||
Name = 'UNIDAD_MEDIDA'
|
||||
DataType = datString
|
||||
DictionaryEntry = 'PedidosCliente_Detalles_UNIDAD_MEDIDA'
|
||||
end
|
||||
item
|
||||
Name = 'DESCUENTO'
|
||||
@ -646,6 +688,137 @@ object srvPedidosCliente: TsrvPedidosCliente
|
||||
DataType = datInteger
|
||||
DictionaryEntry = 'PedidoCliente_Articulos_Pendientes_CANTIDAD_PENDIENTE'
|
||||
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>
|
||||
JoinDataTables = <>
|
||||
UnionDataTables = <>
|
||||
@ -866,8 +1039,7 @@ object srvPedidosCliente: TsrvPedidosCliente
|
||||
Params = <
|
||||
item
|
||||
Name = 'ID'
|
||||
DataType = datAutoInc
|
||||
GeneratorName = 'GEN_PEDIDOS_CLI_ID'
|
||||
DataType = datInteger
|
||||
Value = ''
|
||||
end
|
||||
item
|
||||
@ -986,12 +1158,22 @@ object srvPedidosCliente: TsrvPedidosCliente
|
||||
end
|
||||
item
|
||||
Name = 'DESCUENTO'
|
||||
DataType = datCurrency
|
||||
DataType = datFloat
|
||||
Value = ''
|
||||
end
|
||||
item
|
||||
Name = 'IMPORTE_DESCUENTO'
|
||||
DataType = datDecimal
|
||||
DataType = datCurrency
|
||||
Value = ''
|
||||
end
|
||||
item
|
||||
Name = 'DESCUENTO2'
|
||||
DataType = datFloat
|
||||
Value = ''
|
||||
end
|
||||
item
|
||||
Name = 'IMPORTE_DESCUENTO2'
|
||||
DataType = datCurrency
|
||||
Value = ''
|
||||
end
|
||||
item
|
||||
@ -1023,6 +1205,12 @@ object srvPedidosCliente: TsrvPedidosCliente
|
||||
Name = 'FECHA_PREVISTA_ENVIO'
|
||||
DataType = datDateTime
|
||||
Value = ''
|
||||
end
|
||||
item
|
||||
Name = 'DATOS_BANCARIOS'
|
||||
DataType = datString
|
||||
Size = 255
|
||||
Value = ''
|
||||
end>
|
||||
Statements = <
|
||||
item
|
||||
@ -1033,18 +1221,20 @@ object srvPedidosCliente: TsrvPedidosCliente
|
||||
'SUARIO, FECHA_PEDIDO, '#10' ID_DIRECCION, CALLE, CODIGO_POSTAL, ' +
|
||||
'POBLACION, PROVINCIA, PERSONA_CONTACTO,'#10' TELEFONO, REFERENCI' +
|
||||
'A, REFERENCIA_CLIENTE, IMPORTE_TOTAL, INCIDENCIAS,'#10' INCIDENC' +
|
||||
'IAS_ACTIVAS, OBSERVACIONES, FECHA_ALTA, FECHA_MODIFICACION,'#10' ' +
|
||||
' IMPORTE_NETO, IMPORTE_PORTE, DESCUENTO,'#10' IMPORTE_DESCUENTO,' +
|
||||
' BASE_IMPONIBLE, IVA, IMPORTE_IVA, '#10' ID_FORMA_PAGO, REF_TIEN' +
|
||||
'DA_WEB, FECHA_PREVISTA_ENVIO)'#10' VALUES'#10' (:ID, :ID_EMPRESA, :I' +
|
||||
'D_CLIENTE, :USUARIO, :FECHA_PEDIDO, '#10' :ID_DIRECCION, :CALLE,' +
|
||||
' :CODIGO_POSTAL, :POBLACION, :PROVINCIA, :PERSONA_CONTACTO,'#10' ' +
|
||||
' :TELEFONO, :REFERENCIA, :REFERENCIA_CLIENTE, :IMPORTE_TOTAL, :I' +
|
||||
'NCIDENCIAS,'#10' :INCIDENCIAS_ACTIVAS, :OBSERVACIONES, :FECHA_AL' +
|
||||
'TA,'#10' :FECHA_MODIFICACION, :IMPORTE_NETO, :IMPORTE_PORTE,'#10' ' +
|
||||
' :DESCUENTO, :IMPORTE_DESCUENTO, :BASE_IMPONIBLE, :IVA, '#10' :' +
|
||||
'IMPORTE_IVA, :ID_FORMA_PAGO, :REF_TIENDA_WEB, :FECHA_PREVISTA_EN' +
|
||||
'VIO)'#10' '#10' '#10' '#10' '#10#10
|
||||
'IAS_ACTIVAS, OBSERVACIONES, FECHA_ALTA,'#10' FECHA_MODIFICACION,' +
|
||||
' IMPORTE_NETO, IMPORTE_PORTE,'#10' DESCUENTO, IMPORTE_DESCUENTO,' +
|
||||
' DESCUENTO2, IMPORTE_DESCUENTO2, BASE_IMPONIBLE, IVA,'#10' IMPOR' +
|
||||
'TE_IVA, ID_FORMA_PAGO, REF_TIENDA_WEB, FECHA_PREVISTA_ENVIO, DAT' +
|
||||
'OS_BANCARIOS)'#10' VALUES'#10' (:ID, :ID_EMPRESA, :ID_CLIENTE, :USUA' +
|
||||
'RIO, :FECHA_PEDIDO, '#10' :ID_DIRECCION, :CALLE, :CODIGO_POSTAL,' +
|
||||
' :POBLACION, :PROVINCIA, :PERSONA_CONTACTO,'#10' :TELEFONO, :REF' +
|
||||
'ERENCIA, :REFERENCIA_CLIENTE, :IMPORTE_TOTAL, :INCIDENCIAS,'#10' ' +
|
||||
' :INCIDENCIAS_ACTIVAS, :OBSERVACIONES, :FECHA_ALTA,'#10' :FECHA_' +
|
||||
'MODIFICACION, :IMPORTE_NETO, :IMPORTE_PORTE,'#10' :DESCUENTO, :I' +
|
||||
'MPORTE_DESCUENTO, :DESCUENTO2, :IMPORTE_DESCUENTO2, :BASE_IMPONI' +
|
||||
'BLE, :IVA,'#10' :IMPORTE_IVA, :ID_FORMA_PAGO, :REF_TIENDA_WEB, :' +
|
||||
'FECHA_PREVISTA_ENVIO, :DATOS_BANCARIOS)'#10' '#10' '#10' '#10' '#10 +
|
||||
#10
|
||||
StatementType = stSQL
|
||||
ColumnMappings = <>
|
||||
end>
|
||||
@ -1164,11 +1354,6 @@ object srvPedidosCliente: TsrvPedidosCliente
|
||||
DataType = datMemo
|
||||
Value = ''
|
||||
end
|
||||
item
|
||||
Name = 'FECHA_ALTA'
|
||||
DataType = datDateTime
|
||||
Value = ''
|
||||
end
|
||||
item
|
||||
Name = 'FECHA_MODIFICACION'
|
||||
DataType = datDateTime
|
||||
@ -1186,12 +1371,22 @@ object srvPedidosCliente: TsrvPedidosCliente
|
||||
end
|
||||
item
|
||||
Name = 'DESCUENTO'
|
||||
DataType = datCurrency
|
||||
DataType = datFloat
|
||||
Value = ''
|
||||
end
|
||||
item
|
||||
Name = 'IMPORTE_DESCUENTO'
|
||||
DataType = datDecimal
|
||||
DataType = datCurrency
|
||||
Value = ''
|
||||
end
|
||||
item
|
||||
Name = 'DESCUENTO2'
|
||||
DataType = datFloat
|
||||
Value = ''
|
||||
end
|
||||
item
|
||||
Name = 'IMPORTE_DESCUENTO2'
|
||||
DataType = datCurrency
|
||||
Value = ''
|
||||
end
|
||||
item
|
||||
@ -1224,6 +1419,12 @@ object srvPedidosCliente: TsrvPedidosCliente
|
||||
DataType = datDateTime
|
||||
Value = ''
|
||||
end
|
||||
item
|
||||
Name = 'DATOS_BANCARIOS'
|
||||
DataType = datString
|
||||
Size = 255
|
||||
Value = ''
|
||||
end
|
||||
item
|
||||
Name = 'OLD_ID'
|
||||
Value = ''
|
||||
@ -1242,25 +1443,234 @@ object srvPedidosCliente: TsrvPedidosCliente
|
||||
'A = :REFERENCIA, '#10' REFERENCIA_CLIENTE = :REFERENCIA_CLIENTE,'#10 +
|
||||
' IMPORTE_TOTAL = :IMPORTE_TOTAL, '#10' INCIDENCIAS = :INCIDENC' +
|
||||
'IAS, '#10' INCIDENCIAS_ACTIVAS = :INCIDENCIAS_ACTIVAS, '#10' OBSER' +
|
||||
'VACIONES = :OBSERVACIONES, '#10' FECHA_ALTA = :FECHA_ALTA,'#10' FE' +
|
||||
'CHA_MODIFICACION = :FECHA_MODIFICACION,'#10' IMPORTE_NETO = :IMPO' +
|
||||
'RTE_NETO,'#10' IMPORTE_PORTE = :IMPORTE_PORTE, '#10' DESCUENTO = :' +
|
||||
'DESCUENTO, '#10' IMPORTE_DESCUENTO = :IMPORTE_DESCUENTO, '#10' BAS' +
|
||||
'E_IMPONIBLE = :BASE_IMPONIBLE, '#10' IVA = :IVA, '#10' IMPORTE_IVA' +
|
||||
' = :IMPORTE_IVA, '#10' ID_FORMA_PAGO = :ID_FORMA_PAGO,'#10' REF_TI' +
|
||||
'ENDA_WEB = :REF_TIENDA_WEB,'#10' FECHA_PREVISTA_ENVIO = :FECHA_PR' +
|
||||
'EVISTA_ENVIO'#10' WHERE'#10' (ID = :OLD_ID)'#10
|
||||
'VACIONES = :OBSERVACIONES, '#10' FECHA_MODIFICACION = :FECHA_MODI' +
|
||||
'FICACION,'#10' IMPORTE_NETO = :IMPORTE_NETO,'#10' IMPORTE_PORTE = ' +
|
||||
':IMPORTE_PORTE, '#10' DESCUENTO = :DESCUENTO, '#10' IMPORTE_DESCUE' +
|
||||
'NTO = :IMPORTE_DESCUENTO, '#10' DESCUENTO2 = :DESCUENTO2,'#10' IMP' +
|
||||
'ORTE_DESCUENTO2 = :IMPORTE_DESCUENTO2,'#10' BASE_IMPONIBLE = :BAS' +
|
||||
'E_IMPONIBLE,'#10' IVA = :IVA, '#10' IMPORTE_IVA = :IMPORTE_IVA, '#10' ' +
|
||||
' ID_FORMA_PAGO = :ID_FORMA_PAGO,'#10' REF_TIENDA_WEB = :REF_TIE' +
|
||||
'NDA_WEB,'#10' FECHA_PREVISTA_ENVIO = :FECHA_PREVISTA_ENVIO,'#10' D' +
|
||||
'ATOS_BANCARIOS = :DATOS_BANCARIOS'#10' WHERE'#10' (ID = :OLD_ID)'#10
|
||||
StatementType = stSQL
|
||||
ColumnMappings = <>
|
||||
end>
|
||||
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>
|
||||
RelationShips = <
|
||||
item
|
||||
Name = 'FK_Pedidos_Cliente_Detalles_color'
|
||||
MasterDatasetName = 'PedidosCliente_Detalles'
|
||||
MasterFields = 'ID'
|
||||
DetailDatasetName = 'PedidosCliente_Detalle_Color'
|
||||
DetailFields = 'ID_DETALLE'
|
||||
RelationshipType = rtForeignKey
|
||||
end
|
||||
item
|
||||
Name = 'FK_Pedidos_Cliente_Detalles'
|
||||
MasterDatasetName = 'PedidosCliente'
|
||||
MasterFields = 'ID'
|
||||
DetailDatasetName = 'PedidosCliente_Detalles'
|
||||
DetailDatasetName = 'PedidosCliente_Detalle_Color'
|
||||
DetailFields = 'ID_PEDIDO'
|
||||
RelationshipType = rtForeignKey
|
||||
end>
|
||||
@ -1524,11 +1934,6 @@ object srvPedidosCliente: TsrvPedidosCliente
|
||||
Size = 2000
|
||||
DisplayLabel = 'CONCEPTO'
|
||||
end
|
||||
item
|
||||
Name = 'CANTIDAD'
|
||||
DataType = datInteger
|
||||
Alignment = taRightJustify
|
||||
end
|
||||
item
|
||||
Name = 'PedidosCliente_Detalles_IMPORTE_UNIDAD'
|
||||
DataType = datCurrency
|
||||
@ -1646,6 +2051,41 @@ object srvPedidosCliente: TsrvPedidosCliente
|
||||
Name = 'PedidosCliente_REF_TIENDA_WEB'
|
||||
DataType = datInteger
|
||||
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>
|
||||
Left = 48
|
||||
Top = 152
|
||||
@ -1654,4 +2094,15 @@ object srvPedidosCliente: TsrvPedidosCliente
|
||||
Left = 48
|
||||
Top = 88
|
||||
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
|
||||
|
||||
@ -23,6 +23,7 @@ type
|
||||
bpPedidosCliente: TDABusinessProcessor;
|
||||
bpPedidosCliente_Detalles: TDABusinessProcessor;
|
||||
Bin2DataStreamer: TDABin2DataStreamer;
|
||||
bpPedidosCliente_DetalleColor: TDABusinessProcessor;
|
||||
schPedidosCliente: TDASchema;
|
||||
DADataDictionary: TDADataDictionary;
|
||||
procedure DARemoteServiceBeforeGetDatasetData(const Dataset: IDADataset;
|
||||
|
||||
@ -83,6 +83,7 @@ contains
|
||||
uEditorElegirArticulosPedidoCliente in 'uEditorElegirArticulosPedidoCliente.pas' {fEditorElegirArticulosPedidoCliente: TfEditorElegirArticulosPedidoCliente},
|
||||
uViewDireccionEntregaPedidoCliente in 'uViewDireccionEntregaPedidoCliente.pas' {frViewDireccionEntregaPedidoCliente: TFrame},
|
||||
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.
|
||||
|
||||
@ -44,8 +44,6 @@
|
||||
<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>
|
||||
|
||||
|
||||
|
||||
<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>
|
||||
</ProjectExtensions>
|
||||
@ -54,51 +52,51 @@
|
||||
<DelphiCompile Include="PedidosCliente_view.dpk">
|
||||
<MainSource>MainSource</MainSource>
|
||||
</DelphiCompile>
|
||||
<DCCReference Include="..\..\Lib\adortl.dcp" />
|
||||
<DCCReference Include="..\..\Lib\AlbaranesCliente_controller.dcp" />
|
||||
<DCCReference Include="..\..\Lib\AlbaranesCliente_model.dcp" />
|
||||
<DCCReference Include="..\..\Lib\Articulos_view.dcp" />
|
||||
<DCCReference Include="..\..\Lib\cxDataD11.dcp" />
|
||||
<DCCReference Include="..\..\Lib\cxEditorsD11.dcp" />
|
||||
<DCCReference Include="..\..\Lib\cxExtEditorsD11.dcp" />
|
||||
<DCCReference Include="..\..\Lib\cxLibraryD11.dcp" />
|
||||
<DCCReference Include="..\..\Lib\cxPageControlD11.dcp" />
|
||||
<DCCReference Include="..\..\Lib\DataAbstract_Core_D11.dcp" />
|
||||
<DCCReference Include="..\..\Lib\dbrtl.dcp" />
|
||||
<DCCReference Include="..\..\Lib\designide.dcp" />
|
||||
<DCCReference Include="..\..\Lib\dsnap.dcp" />
|
||||
<DCCReference Include="..\..\Lib\dxComnD11.dcp" />
|
||||
<DCCReference Include="..\..\Lib\dxCoreD11.dcp" />
|
||||
<DCCReference Include="..\..\Lib\dxGDIPlusD11.dcp" />
|
||||
<DCCReference Include="..\..\Lib\dxLayoutControlD11.dcp" />
|
||||
<DCCReference Include="..\..\Lib\dxThemeD11.dcp" />
|
||||
<DCCReference Include="..\..\Lib\FacturasCliente_controller.dcp" />
|
||||
<DCCReference Include="..\..\Lib\FacturasCliente_model.dcp" />
|
||||
<DCCReference Include="..\..\Lib\frxTee11.dcp" />
|
||||
<DCCReference Include="..\..\Lib\fsTee11.dcp" />
|
||||
<DCCReference Include="..\..\Lib\GUISDK_D11R.dcp" />
|
||||
<DCCReference Include="..\..\Lib\Jcl.dcp" />
|
||||
<DCCReference Include="..\..\Lib\JclVcl.dcp" />
|
||||
<DCCReference Include="..\..\Lib\JvCoreD11R.dcp" />
|
||||
<DCCReference Include="..\..\Lib\JvCtrlsD11R.dcp" />
|
||||
<DCCReference Include="..\..\Lib\JvStdCtrlsD11R.dcp" />
|
||||
<DCCReference Include="..\..\Lib\JvSystemD11R.dcp" />
|
||||
<DCCReference Include="..\..\Lib\PedCli_AlbCli_relation.dcp" />
|
||||
<DCCReference Include="..\..\Lib\PedidosCliente_controller.dcp" />
|
||||
<DCCReference Include="..\..\Lib\PedidosCliente_model.dcp" />
|
||||
<DCCReference Include="..\..\Lib\PngComponentsD10.dcp" />
|
||||
<DCCReference Include="..\..\Lib\PNG_D10.dcp" />
|
||||
<DCCReference Include="..\..\Lib\RemObjects_Core_D11.dcp" />
|
||||
<DCCReference Include="..\..\Lib\rtl.dcp" />
|
||||
<DCCReference Include="..\..\Lib\tee.dcp" />
|
||||
<DCCReference Include="..\..\Lib\teeUI.dcp" />
|
||||
<DCCReference Include="..\..\Lib\vcl.dcp" />
|
||||
<DCCReference Include="..\..\Lib\vclactnband.dcp" />
|
||||
<DCCReference Include="..\..\Lib\vcldb.dcp" />
|
||||
<DCCReference Include="..\..\Lib\vclimg.dcp" />
|
||||
<DCCReference Include="..\..\Lib\vcljpg.dcp" />
|
||||
<DCCReference Include="..\..\Lib\vclx.dcp" />
|
||||
<DCCReference Include="..\..\Lib\xmlrtl.dcp" />
|
||||
<DCCReference Include="C:\Documents and Settings\Usuario\adortl.dcp" />
|
||||
<DCCReference Include="C:\Documents and Settings\Usuario\AlbaranesCliente_controller.dcp" />
|
||||
<DCCReference Include="C:\Documents and Settings\Usuario\AlbaranesCliente_model.dcp" />
|
||||
<DCCReference Include="C:\Documents and Settings\Usuario\Articulos_view.dcp" />
|
||||
<DCCReference Include="C:\Documents and Settings\Usuario\cxDataD11.dcp" />
|
||||
<DCCReference Include="C:\Documents and Settings\Usuario\cxEditorsD11.dcp" />
|
||||
<DCCReference Include="C:\Documents and Settings\Usuario\cxExtEditorsD11.dcp" />
|
||||
<DCCReference Include="C:\Documents and Settings\Usuario\cxLibraryD11.dcp" />
|
||||
<DCCReference Include="C:\Documents and Settings\Usuario\cxPageControlD11.dcp" />
|
||||
<DCCReference Include="C:\Documents and Settings\Usuario\DataAbstract_Core_D11.dcp" />
|
||||
<DCCReference Include="C:\Documents and Settings\Usuario\dbrtl.dcp" />
|
||||
<DCCReference Include="C:\Documents and Settings\Usuario\designide.dcp" />
|
||||
<DCCReference Include="C:\Documents and Settings\Usuario\dsnap.dcp" />
|
||||
<DCCReference Include="C:\Documents and Settings\Usuario\dxComnD11.dcp" />
|
||||
<DCCReference Include="C:\Documents and Settings\Usuario\dxCoreD11.dcp" />
|
||||
<DCCReference Include="C:\Documents and Settings\Usuario\dxGDIPlusD11.dcp" />
|
||||
<DCCReference Include="C:\Documents and Settings\Usuario\dxLayoutControlD11.dcp" />
|
||||
<DCCReference Include="C:\Documents and Settings\Usuario\dxThemeD11.dcp" />
|
||||
<DCCReference Include="C:\Documents and Settings\Usuario\FacturasCliente_controller.dcp" />
|
||||
<DCCReference Include="C:\Documents and Settings\Usuario\FacturasCliente_model.dcp" />
|
||||
<DCCReference Include="C:\Documents and Settings\Usuario\frxTee11.dcp" />
|
||||
<DCCReference Include="C:\Documents and Settings\Usuario\fsTee11.dcp" />
|
||||
<DCCReference Include="C:\Documents and Settings\Usuario\GUISDK_D11R.dcp" />
|
||||
<DCCReference Include="C:\Documents and Settings\Usuario\Jcl.dcp" />
|
||||
<DCCReference Include="C:\Documents and Settings\Usuario\JclVcl.dcp" />
|
||||
<DCCReference Include="C:\Documents and Settings\Usuario\JvCoreD11R.dcp" />
|
||||
<DCCReference Include="C:\Documents and Settings\Usuario\JvCtrlsD11R.dcp" />
|
||||
<DCCReference Include="C:\Documents and Settings\Usuario\JvStdCtrlsD11R.dcp" />
|
||||
<DCCReference Include="C:\Documents and Settings\Usuario\JvSystemD11R.dcp" />
|
||||
<DCCReference Include="C:\Documents and Settings\Usuario\PedCli_AlbCli_relation.dcp" />
|
||||
<DCCReference Include="C:\Documents and Settings\Usuario\PedidosCliente_controller.dcp" />
|
||||
<DCCReference Include="C:\Documents and Settings\Usuario\PedidosCliente_model.dcp" />
|
||||
<DCCReference Include="C:\Documents and Settings\Usuario\PngComponentsD10.dcp" />
|
||||
<DCCReference Include="C:\Documents and Settings\Usuario\PNG_D10.dcp" />
|
||||
<DCCReference Include="C:\Documents and Settings\Usuario\RemObjects_Core_D11.dcp" />
|
||||
<DCCReference Include="C:\Documents and Settings\Usuario\rtl.dcp" />
|
||||
<DCCReference Include="C:\Documents and Settings\Usuario\tee.dcp" />
|
||||
<DCCReference Include="C:\Documents and Settings\Usuario\teeUI.dcp" />
|
||||
<DCCReference Include="C:\Documents and Settings\Usuario\vcl.dcp" />
|
||||
<DCCReference Include="C:\Documents and Settings\Usuario\vclactnband.dcp" />
|
||||
<DCCReference Include="C:\Documents and Settings\Usuario\vcldb.dcp" />
|
||||
<DCCReference Include="C:\Documents and Settings\Usuario\vclimg.dcp" />
|
||||
<DCCReference Include="C:\Documents and Settings\Usuario\vcljpg.dcp" />
|
||||
<DCCReference Include="C:\Documents and Settings\Usuario\vclx.dcp" />
|
||||
<DCCReference Include="C:\Documents and Settings\Usuario\xmlrtl.dcp" />
|
||||
<DCCReference Include="uEditorElegirArticulosPedidoCliente.pas">
|
||||
<Form>fEditorElegirArticulosPedidoCliente</Form>
|
||||
<DesignClass>TfEditorElegirArticulosPedidoCliente</DesignClass>
|
||||
@ -144,6 +142,10 @@
|
||||
<Form>frViewPedidosCliente</Form>
|
||||
<DesignClass>TFrame</DesignClass>
|
||||
</DCCReference>
|
||||
<DCCReference Include="uViewTotalesPedido.pas">
|
||||
<Form>frViewTotalesPedido</Form>
|
||||
<DesignClass>TFrame</DesignClass>
|
||||
</DCCReference>
|
||||
</ItemGroup>
|
||||
</Project>
|
||||
<!-- 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\uViewDireccionEntregaPedidoCliente.dfm */
|
||||
/* C:\Codigo Noviseda\Source\Modulos\Pedidos de cliente\Views\uViewPedidoCliente.dfm */
|
||||
/* C:\Codigo Noviseda\Source\Modulos\Pedidos de cliente\Views\uViewTotalesPedido.dfm */
|
||||
/* C:\Codigo Noviseda\Source\Modulos\Pedidos de cliente\Views\uEditorPedidoCliente.dfm */
|
||||
/* C:\Codigo Noviseda\Source\Modulos\Pedidos de cliente\Views\uEditorElegirPedidosCliente.dfm */
|
||||
/* C:\Codigo Noviseda\Source\Modulos\Pedidos de cliente\Views\uViewElegirArticulosPedidosCliente.dfm */
|
||||
|
||||
Binary file not shown.
@ -1,6 +1,14 @@
|
||||
inherited fEditorElegirArticulosPedidoCliente: TfEditorElegirArticulosPedidoCliente
|
||||
Caption = 'fEditorElegirArticulosPedidoCliente'
|
||||
ExplicitWidth = 320
|
||||
PixelsPerInch = 96
|
||||
TextHeight = 13
|
||||
inherited pnlHeader: TPanel
|
||||
inherited lblTitle: TLabel
|
||||
Width = 606
|
||||
end
|
||||
inherited lblComments: TLabel
|
||||
Width = 581
|
||||
Height = 24
|
||||
end
|
||||
end
|
||||
end
|
||||
|
||||
@ -15,7 +15,7 @@ uses
|
||||
type
|
||||
TfEditorElegirArticulosPedidoCliente = class(TfEditorElegirArticulos, IEditorElegirArticulosPedidosCliente)
|
||||
protected
|
||||
// procedure AsignarVista; override;
|
||||
constructor Create(AOwner: TComponent); override;
|
||||
end;
|
||||
|
||||
|
||||
@ -26,10 +26,10 @@ uses uViewElegirArticulosPedidosCliente;
|
||||
|
||||
{ TfEditorElegirArticulosPedidoCliente }
|
||||
|
||||
{procedure TfEditorElegirArticulosPedidoCliente.AsignarVista;
|
||||
constructor TfEditorElegirArticulosPedidoCliente.Create(AOwner: TComponent);
|
||||
begin
|
||||
inherited;
|
||||
ViewGrid := CreateView(TfrViewElegirArticulosPedidosCliente) as IViewElegirArticulosPedidosCliente;
|
||||
end;
|
||||
}
|
||||
|
||||
end.
|
||||
|
||||
@ -134,22 +134,25 @@ inherited fEditorPedidoCliente: TfEditorPedidoCliente
|
||||
inherited TBXDock: TSpTBXDock
|
||||
Width = 632
|
||||
ExplicitWidth = 632
|
||||
inherited tbxMain: TSpTBXToolbar
|
||||
ExplicitWidth = 488
|
||||
end
|
||||
inherited tbxMenu: TSpTBXToolbar
|
||||
ExplicitWidth = 632
|
||||
end
|
||||
end
|
||||
inherited pgPaginas: TPageControl
|
||||
Width = 626
|
||||
Height = 436
|
||||
Height = 364
|
||||
TabOrder = 1
|
||||
OnChanging = pgPaginasChanging
|
||||
ExplicitWidth = 626
|
||||
ExplicitHeight = 436
|
||||
ExplicitHeight = 364
|
||||
inherited pagGeneral: TTabSheet
|
||||
ExplicitLeft = 4
|
||||
ExplicitTop = 24
|
||||
ExplicitWidth = 618
|
||||
ExplicitHeight = 408
|
||||
ExplicitHeight = 336
|
||||
end
|
||||
object pagContenido: TTabSheet
|
||||
Caption = 'Contenido'
|
||||
@ -158,7 +161,7 @@ inherited fEditorPedidoCliente: TfEditorPedidoCliente
|
||||
Left = 0
|
||||
Top = 0
|
||||
Width = 618
|
||||
Height = 408
|
||||
Height = 336
|
||||
Align = alClient
|
||||
BiDiMode = bdLeftToRight
|
||||
Font.Charset = DEFAULT_CHARSET
|
||||
@ -171,60 +174,63 @@ inherited fEditorPedidoCliente: TfEditorPedidoCliente
|
||||
TabOrder = 0
|
||||
ReadOnly = False
|
||||
ExplicitWidth = 618
|
||||
ExplicitHeight = 408
|
||||
ExplicitHeight = 336
|
||||
inherited ToolBar1: TToolBar
|
||||
Width = 618
|
||||
Height = 73
|
||||
ExplicitWidth = 618
|
||||
ExplicitHeight = 73
|
||||
inherited ToolButton3: TToolButton
|
||||
Wrap = False
|
||||
inherited ToolButton4: TToolButton [1]
|
||||
Left = 109
|
||||
ExplicitLeft = 109
|
||||
end
|
||||
inherited ToolButton4: 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]
|
||||
inherited ToolButton2: TToolButton
|
||||
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
|
||||
ExplicitLeft = 212
|
||||
end
|
||||
inherited ToolButton14: TToolButton [3]
|
||||
Left = 114
|
||||
ExplicitLeft = 114
|
||||
end
|
||||
inherited ToolButton3: TToolButton [4]
|
||||
Left = 179
|
||||
Top = 22
|
||||
ExplicitLeft = 179
|
||||
ExplicitTop = 22
|
||||
end
|
||||
inherited ToolButton7: TToolButton [10]
|
||||
Left = 278
|
||||
inherited ToolButton6: TToolButton [5]
|
||||
Left = 234
|
||||
Top = 22
|
||||
ExplicitLeft = 278
|
||||
ExplicitLeft = 234
|
||||
ExplicitTop = 22
|
||||
end
|
||||
inherited ToolButton8: TToolButton [11]
|
||||
Left = 345
|
||||
inherited ToolButton8: TToolButton [6]
|
||||
Left = 300
|
||||
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
|
||||
end
|
||||
inherited ToolButton12: TToolButton [12]
|
||||
@ -243,19 +249,15 @@ inherited fEditorPedidoCliente: TfEditorPedidoCliente
|
||||
inherited cxGrid: TcxGrid
|
||||
Top = 99
|
||||
Width = 618
|
||||
Height = 309
|
||||
ExplicitTop = 72
|
||||
ExplicitWidth = 624
|
||||
ExplicitHeight = 342
|
||||
Height = 237
|
||||
ExplicitWidth = 618
|
||||
ExplicitHeight = 237
|
||||
end
|
||||
inherited TBXDock1: TSpTBXDock
|
||||
Top = 73
|
||||
Width = 618
|
||||
ExplicitTop = 46
|
||||
ExplicitTop = 73
|
||||
ExplicitWidth = 618
|
||||
inherited TBXToolbar1: TSpTBXToolbar
|
||||
ExplicitWidth = 618
|
||||
end
|
||||
end
|
||||
inherited cxGridPopupMenu: TcxGridPopupMenu
|
||||
PopupMenus = <
|
||||
@ -275,7 +277,7 @@ inherited fEditorPedidoCliente: TfEditorPedidoCliente
|
||||
Left = 0
|
||||
Top = 0
|
||||
Width = 618
|
||||
Height = 408
|
||||
Height = 336
|
||||
Align = alClient
|
||||
Font.Charset = DEFAULT_CHARSET
|
||||
Font.Color = clWindowText
|
||||
@ -286,23 +288,23 @@ inherited fEditorPedidoCliente: TfEditorPedidoCliente
|
||||
TabOrder = 0
|
||||
ReadOnly = False
|
||||
ExplicitWidth = 618
|
||||
ExplicitHeight = 408
|
||||
ExplicitHeight = 336
|
||||
inherited pnlSup: TPanel
|
||||
Width = 618
|
||||
ExplicitWidth = 624
|
||||
ExplicitWidth = 618
|
||||
inherited eIncidenciaActiva: TcxDBCheckBox
|
||||
ExplicitHeight = 21
|
||||
end
|
||||
end
|
||||
inherited GroupBox1: TGroupBox
|
||||
Width = 618
|
||||
Height = 380
|
||||
Height = 308
|
||||
ExplicitWidth = 618
|
||||
ExplicitHeight = 380
|
||||
ExplicitHeight = 308
|
||||
inherited eIncidencias: TcxDBMemo
|
||||
ExplicitWidth = 601
|
||||
ExplicitHeight = 353
|
||||
Height = 353
|
||||
ExplicitHeight = 279
|
||||
Height = 279
|
||||
Width = 601
|
||||
end
|
||||
end
|
||||
@ -319,11 +321,11 @@ inherited fEditorPedidoCliente: TfEditorPedidoCliente
|
||||
ExplicitTop = 589
|
||||
ExplicitWidth = 632
|
||||
end
|
||||
inline frViewTotales1: TfrViewTotales [4]
|
||||
inline frViewTotalesPedido1: TfrViewTotalesPedido [4]
|
||||
Left = 0
|
||||
Top = 518
|
||||
Top = 446
|
||||
Width = 632
|
||||
Height = 71
|
||||
Height = 143
|
||||
Align = alBottom
|
||||
Font.Charset = DEFAULT_CHARSET
|
||||
Font.Color = clWindowText
|
||||
@ -333,238 +335,122 @@ inherited fEditorPedidoCliente: TfEditorPedidoCliente
|
||||
ParentFont = False
|
||||
TabOrder = 4
|
||||
ReadOnly = False
|
||||
ExplicitTop = 518
|
||||
ExplicitTop = 446
|
||||
ExplicitWidth = 632
|
||||
ExplicitHeight = 71
|
||||
ExplicitHeight = 143
|
||||
inherited dxLayoutControl1: TdxLayoutControl
|
||||
Width = 632
|
||||
Height = 71
|
||||
LayoutLookAndFeel = dxLayoutOfficeLookAndFeel1
|
||||
Height = 143
|
||||
ExplicitWidth = 632
|
||||
ExplicitHeight = 71
|
||||
ExplicitHeight = 143
|
||||
inherited Bevel3: TBevel
|
||||
Left = 311
|
||||
Top = 11
|
||||
Width = 8
|
||||
Height = 54
|
||||
ExplicitLeft = 311
|
||||
ExplicitTop = 11
|
||||
ExplicitWidth = 8
|
||||
ExplicitHeight = 54
|
||||
Height = 201
|
||||
ExplicitHeight = 201
|
||||
end
|
||||
inherited Bevel4: TBevel
|
||||
Left = 414
|
||||
Top = 53
|
||||
Width = 21
|
||||
Width = 206
|
||||
Height = 9
|
||||
ExplicitLeft = 414
|
||||
ExplicitTop = 53
|
||||
ExplicitWidth = 21
|
||||
ExplicitWidth = 206
|
||||
ExplicitHeight = 9
|
||||
end
|
||||
inherited ImporteDto: TcxDBCurrencyEdit
|
||||
Left = 164
|
||||
Top = 38
|
||||
Style.LookAndFeel.SkinName = ''
|
||||
Style.IsFontAssigned = True
|
||||
StyleDisabled.LookAndFeel.SkinName = ''
|
||||
StyleFocused.LookAndFeel.SkinName = ''
|
||||
StyleHot.LookAndFeel.SkinName = ''
|
||||
ExplicitLeft = 164
|
||||
ExplicitTop = 38
|
||||
ExplicitWidth = 93
|
||||
Width = 93
|
||||
end
|
||||
inherited ImporteIVA: TcxDBCurrencyEdit
|
||||
Left = 485
|
||||
Top = 88
|
||||
Style.LookAndFeel.SkinName = ''
|
||||
Style.IsFontAssigned = True
|
||||
StyleDisabled.LookAndFeel.SkinName = ''
|
||||
StyleFocused.LookAndFeel.SkinName = ''
|
||||
StyleHot.LookAndFeel.SkinName = ''
|
||||
ExplicitLeft = 485
|
||||
ExplicitTop = 88
|
||||
ExplicitWidth = 137
|
||||
Width = 137
|
||||
end
|
||||
inherited ImporteTotal: TcxDBCurrencyEdit
|
||||
Left = 414
|
||||
Top = 142
|
||||
Style.LookAndFeel.SkinName = ''
|
||||
Style.IsFontAssigned = True
|
||||
StyleDisabled.LookAndFeel.SkinName = ''
|
||||
StyleFocused.LookAndFeel.SkinName = ''
|
||||
StyleHot.LookAndFeel.SkinName = ''
|
||||
ExplicitLeft = 414
|
||||
ExplicitTop = 142
|
||||
ExplicitWidth = 137
|
||||
Width = 137
|
||||
ExplicitWidth = 90
|
||||
Width = 90
|
||||
end
|
||||
inherited edtDescuento: TcxDBSpinEdit
|
||||
Left = 93
|
||||
Top = 38
|
||||
Style.LookAndFeel.SkinName = ''
|
||||
Style.ButtonStyle = bts3D
|
||||
Style.IsFontAssigned = True
|
||||
StyleDisabled.LookAndFeel.SkinName = ''
|
||||
StyleFocused.LookAndFeel.SkinName = ''
|
||||
StyleHot.LookAndFeel.SkinName = ''
|
||||
ExplicitLeft = 93
|
||||
ExplicitTop = 38
|
||||
end
|
||||
inherited edtIVA: TcxDBSpinEdit
|
||||
Left = 414
|
||||
Top = 88
|
||||
Style.LookAndFeel.SkinName = ''
|
||||
Style.ButtonStyle = bts3D
|
||||
Style.IsFontAssigned = True
|
||||
StyleDisabled.LookAndFeel.SkinName = ''
|
||||
StyleFocused.LookAndFeel.SkinName = ''
|
||||
StyleHot.LookAndFeel.SkinName = ''
|
||||
ExplicitLeft = 414
|
||||
ExplicitTop = 88
|
||||
end
|
||||
inherited ImporteBase: TcxDBCurrencyEdit
|
||||
Left = 414
|
||||
Top = 11
|
||||
DataBinding.DataField = 'IMPORTE_NETO'
|
||||
Style.LookAndFeel.SkinName = ''
|
||||
Style.IsFontAssigned = True
|
||||
StyleDisabled.LookAndFeel.SkinName = ''
|
||||
StyleFocused.LookAndFeel.SkinName = ''
|
||||
StyleHot.LookAndFeel.SkinName = ''
|
||||
ExplicitLeft = 414
|
||||
ExplicitTop = 11
|
||||
ExplicitWidth = 92
|
||||
Width = 92
|
||||
end
|
||||
inherited edtRE: TcxDBSpinEdit
|
||||
Left = 414
|
||||
Top = 115
|
||||
DataBinding.DataField = ''
|
||||
DataBinding.DataSource = nil
|
||||
Style.LookAndFeel.SkinName = ''
|
||||
Style.ButtonStyle = bts3D
|
||||
Style.IsFontAssigned = True
|
||||
StyleDisabled.LookAndFeel.SkinName = ''
|
||||
StyleFocused.LookAndFeel.SkinName = ''
|
||||
StyleHot.LookAndFeel.SkinName = ''
|
||||
ExplicitLeft = 414
|
||||
ExplicitTop = 115
|
||||
end
|
||||
inherited ImporteRE: TcxDBCurrencyEdit
|
||||
Left = 485
|
||||
Top = 115
|
||||
DataBinding.DataField = ''
|
||||
DataBinding.DataSource = nil
|
||||
Style.LookAndFeel.SkinName = ''
|
||||
Style.IsFontAssigned = True
|
||||
StyleDisabled.LookAndFeel.SkinName = ''
|
||||
StyleFocused.LookAndFeel.SkinName = ''
|
||||
StyleHot.LookAndFeel.SkinName = ''
|
||||
ExplicitLeft = 485
|
||||
ExplicitTop = 115
|
||||
ExplicitWidth = 56
|
||||
Width = 56
|
||||
end
|
||||
inherited eImporteNeto: TcxDBCurrencyEdit
|
||||
Left = 93
|
||||
Top = 11
|
||||
Style.LookAndFeel.SkinName = ''
|
||||
Style.IsFontAssigned = True
|
||||
StyleDisabled.LookAndFeel.SkinName = ''
|
||||
StyleFocused.LookAndFeel.SkinName = ''
|
||||
StyleHot.LookAndFeel.SkinName = ''
|
||||
ExplicitLeft = 93
|
||||
ExplicitTop = 11
|
||||
ExplicitWidth = 147
|
||||
Width = 147
|
||||
end
|
||||
inherited ePorte: TcxDBCurrencyEdit
|
||||
Left = 93
|
||||
Top = 65
|
||||
Properties.OnValidate = frViewTotales1ePortePropertiesValidate
|
||||
Style.LookAndFeel.SkinName = ''
|
||||
Style.IsFontAssigned = True
|
||||
StyleDisabled.LookAndFeel.SkinName = ''
|
||||
StyleFocused.LookAndFeel.SkinName = ''
|
||||
StyleHot.LookAndFeel.SkinName = ''
|
||||
ExplicitLeft = 93
|
||||
ExplicitTop = 65
|
||||
ExplicitWidth = 147
|
||||
Width = 147
|
||||
end
|
||||
inherited eIVA: TcxDBLookupComboBox
|
||||
Left = 93
|
||||
Top = 92
|
||||
DataBinding.DataField = ''
|
||||
DataBinding.DataSource = nil
|
||||
Style.LookAndFeel.SkinName = ''
|
||||
Style.ButtonStyle = bts3D
|
||||
Style.PopupBorderStyle = epbsFrame3D
|
||||
StyleDisabled.LookAndFeel.SkinName = ''
|
||||
StyleFocused.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
|
||||
inherited cbRecargoEquivalencia: TcxDBCheckBox
|
||||
Left = 93
|
||||
Top = 119
|
||||
DataBinding.DataField = ''
|
||||
Style.LookAndFeel.SkinName = ''
|
||||
StyleDisabled.LookAndFeel.SkinName = ''
|
||||
StyleFocused.LookAndFeel.SkinName = ''
|
||||
StyleHot.LookAndFeel.SkinName = ''
|
||||
ExplicitLeft = 93
|
||||
ExplicitTop = 119
|
||||
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
|
||||
ExplicitWidth = 221
|
||||
Width = 221
|
||||
end
|
||||
end
|
||||
end
|
||||
inherited EditorActionList: TActionList [5]
|
||||
inherited actNuevo: TAction
|
||||
Enabled = False
|
||||
Visible = False
|
||||
end
|
||||
inherited actModificar: TAction
|
||||
Enabled = False
|
||||
Visible = False
|
||||
end
|
||||
end
|
||||
inherited SmallImages: TPngImageList [6]
|
||||
end
|
||||
|
||||
@ -12,11 +12,12 @@ uses
|
||||
uViewIncidencias,
|
||||
uPedidosClienteController,
|
||||
uViewDetallesBase, uViewDetallesPedidoCliente,
|
||||
dxLayoutLookAndFeels, JvExComCtrls, JvStatusBar, uViewTotales,
|
||||
dxLayoutLookAndFeels, JvExComCtrls, JvStatusBar,
|
||||
uIEditorPedidoCliente, uBizPedidosCliente, uViewPedidoCliente,
|
||||
uViewDetallesDTO, uViewDetallesArticulos, cxGraphics, cxLookAndFeels,
|
||||
cxLookAndFeelPainters, uDAInterfaces, PngImageList, StdActns, ActnList,
|
||||
ComCtrls, SpTBXItem, TB2Item, TB2Dock, cxLabel;
|
||||
ComCtrls, SpTBXItem, TB2Item, TB2Dock, cxLabel, uViewTotalesPedido,
|
||||
uViewTotales, uViewDetallesArticulosParaVenta;
|
||||
|
||||
type
|
||||
TfEditorPedidoCliente = class(TfEditorDBItem, IEditorPedidoCliente)
|
||||
@ -26,7 +27,7 @@ type
|
||||
dxLayoutLookAndFeelList1: TdxLayoutLookAndFeelList;
|
||||
dxLayoutOfficeLookAndFeel1: TdxLayoutOfficeLookAndFeel;
|
||||
frViewDetallesPedidoCliente1: TfrViewDetallesPedidoCliente;
|
||||
frViewTotales1: TfrViewTotales;
|
||||
frViewTotalesPedido1: TfrViewTotalesPedido;
|
||||
|
||||
procedure FormShow(Sender: TObject);
|
||||
procedure CustomEditorClose(Sender: TObject; var Action: TCloseAction);
|
||||
@ -212,10 +213,14 @@ begin
|
||||
begin
|
||||
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
|
||||
begin
|
||||
// ViewPedido.RellenarCuentasBancarias;
|
||||
// ViewPedido.AsignarCuentaBancaria;
|
||||
ViewPedido.RellenarCuentasBancarias;
|
||||
ViewPedido.AsignarCuentaBancaria;
|
||||
end;
|
||||
|
||||
{
|
||||
@ -313,7 +318,7 @@ begin
|
||||
|
||||
if Assigned(FController) then
|
||||
begin
|
||||
// ViewPedido.ViewClientePedido.Controller := Controller.ClienteController;
|
||||
ViewPedido.Controller := FController;
|
||||
frViewDetallesPedidoCliente1.Controller := Controller.DetallesController;
|
||||
end;
|
||||
end;
|
||||
@ -326,14 +331,32 @@ begin
|
||||
begin
|
||||
dsDataTable.DataTable := FPedido.DataTable;
|
||||
frViewIncidenciasCli.DADataSource.DataTable := dsDataTable.DataTable;
|
||||
frViewTotales1.DADataSource.DataTable := dsDataTable.DataTable;
|
||||
frViewTotalesPedido1.DADataSource.DataTable := dsDataTable.DataTable;
|
||||
|
||||
if Assigned(FViewPedido) then
|
||||
begin
|
||||
FViewPedido.Pedido := FPedido;
|
||||
ViewPedido.ViewClientePedido.Cliente := FPedido.Cliente;
|
||||
ViewPedido.ViewClientePedido.OnClienteChanged := OnClienteChanged;
|
||||
frViewDetallesPedidoCliente1.Detalles := FPedido.Detalles;
|
||||
frViewDetallesPedidoCliente1.Pedido := FPedido; //Para poder sacar los descuento del articulos segun el cliente seleccionado
|
||||
ViewPedido.ViewClientePedido.OnClienteChanged := Nil;
|
||||
try
|
||||
FViewPedido.Pedido := FPedido;
|
||||
frViewDetallesPedidoCliente1.Detalles := FPedido.Detalles;
|
||||
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;
|
||||
|
||||
@ -2,7 +2,6 @@ inherited fEditorPedidosCliente: TfEditorPedidosCliente
|
||||
Caption = 'Lista de pedidos de cliente'
|
||||
ClientWidth = 674
|
||||
ExplicitWidth = 682
|
||||
ExplicitHeight = 240
|
||||
PixelsPerInch = 96
|
||||
TextHeight = 13
|
||||
inherited JvNavPanelHeader: TJvNavPanelHeader
|
||||
@ -125,7 +124,7 @@ inherited fEditorPedidosCliente: TfEditorPedidosCliente
|
||||
Width = 674
|
||||
ExplicitWidth = 674
|
||||
inherited tbxMain: TSpTBXToolbar
|
||||
ExplicitWidth = 674
|
||||
ExplicitWidth = 632
|
||||
end
|
||||
inherited tbxMenu: TSpTBXToolbar
|
||||
ExplicitWidth = 674
|
||||
@ -145,6 +144,10 @@ inherited fEditorPedidosCliente: TfEditorPedidosCliente
|
||||
inherited actImprimir: TAction
|
||||
Visible = True
|
||||
end
|
||||
inherited actExportarExcel: TAction
|
||||
Enabled = False
|
||||
Visible = False
|
||||
end
|
||||
object actGenerarAlbaranCli: TAction
|
||||
Category = 'Acciones'
|
||||
Caption = 'Generar albar'#225'n de cliente'
|
||||
|
||||
@ -1,13 +1,13 @@
|
||||
inherited frViewDatosYSeleccionClientePedido: TfrViewDatosYSeleccionClientePedido
|
||||
Width = 646
|
||||
Height = 245
|
||||
ExplicitWidth = 646
|
||||
ExplicitHeight = 245
|
||||
Width = 387
|
||||
Height = 442
|
||||
ExplicitWidth = 387
|
||||
ExplicitHeight = 442
|
||||
object dxLayoutControl1: TdxLayoutControl
|
||||
Left = 0
|
||||
Top = 0
|
||||
Width = 646
|
||||
Height = 245
|
||||
Width = 387
|
||||
Height = 442
|
||||
Margins.Left = 0
|
||||
Margins.Top = 0
|
||||
Margins.Right = 0
|
||||
@ -17,9 +17,11 @@ inherited frViewDatosYSeleccionClientePedido: TfrViewDatosYSeleccionClientePedid
|
||||
TabOrder = 0
|
||||
TabStop = False
|
||||
LayoutLookAndFeel = dmBase.dxLayoutSkinLookAndFeel
|
||||
ExplicitWidth = 386
|
||||
ExplicitHeight = 245
|
||||
DesignSize = (
|
||||
646
|
||||
245)
|
||||
387
|
||||
442)
|
||||
object edtlNombre: TcxDBTextEdit
|
||||
Left = 63
|
||||
Top = 41
|
||||
@ -45,7 +47,7 @@ inherited frViewDatosYSeleccionClientePedido: TfrViewDatosYSeleccionClientePedid
|
||||
Width = 224
|
||||
end
|
||||
object edtNIFCIF: TcxDBTextEdit
|
||||
Left = 533
|
||||
Left = 274
|
||||
Top = 41
|
||||
Anchors = [akLeft, akTop, akRight]
|
||||
AutoSize = False
|
||||
@ -157,7 +159,7 @@ inherited frViewDatosYSeleccionClientePedido: TfrViewDatosYSeleccionClientePedid
|
||||
FF00FF00FF00006000000060000000600000FF00FF00FF00FF00}
|
||||
end
|
||||
object Button3: TBitBtn
|
||||
Left = 444
|
||||
Left = 185
|
||||
Top = 158
|
||||
Width = 192
|
||||
Height = 25
|
||||
@ -220,7 +222,7 @@ inherited frViewDatosYSeleccionClientePedido: TfrViewDatosYSeleccionClientePedid
|
||||
StyleHot.LookAndFeel.SkinName = ''
|
||||
TabOrder = 6
|
||||
Height = 21
|
||||
Width = 283
|
||||
Width = 200
|
||||
end
|
||||
object edtDireccion: TcxMemo
|
||||
Left = 63
|
||||
@ -241,10 +243,10 @@ inherited frViewDatosYSeleccionClientePedido: TfrViewDatosYSeleccionClientePedid
|
||||
StyleHot.LookAndFeel.SkinName = ''
|
||||
TabOrder = 4
|
||||
Height = 53
|
||||
Width = 403
|
||||
Width = 200
|
||||
end
|
||||
object Button4: TButton
|
||||
Left = 613
|
||||
Left = 354
|
||||
Top = 68
|
||||
Width = 23
|
||||
Height = 25
|
||||
@ -252,7 +254,7 @@ inherited frViewDatosYSeleccionClientePedido: TfrViewDatosYSeleccionClientePedid
|
||||
TabOrder = 5
|
||||
end
|
||||
object Button5: TButton
|
||||
Left = 613
|
||||
Left = 354
|
||||
Top = 127
|
||||
Width = 23
|
||||
Height = 25
|
||||
@ -303,7 +305,7 @@ inherited frViewDatosYSeleccionClientePedido: TfrViewDatosYSeleccionClientePedid
|
||||
ControlOptions.ShowBorder = False
|
||||
end
|
||||
object dxLayoutControl1Item2: TdxLayoutItem
|
||||
AlignHorz = ahRight
|
||||
AlignHorz = ahLeft
|
||||
CaptionOptions.Text = 'NIF/CIF:'
|
||||
Control = edtNIFCIF
|
||||
ControlOptions.ShowBorder = False
|
||||
|
||||
@ -322,13 +322,14 @@ begin
|
||||
if FCliente.ID > 0 then
|
||||
edtPersonaContacto.Enabled := True;
|
||||
|
||||
if FCliente.Direcciones.RecordCount > 0 then
|
||||
ElegirDireccionCliente
|
||||
else begin
|
||||
// FPedido.Edit;
|
||||
// FPedido.PERSONA_CONTACTO := FCliente.PERSONA_CONTACTO;
|
||||
// RefrescarDireccion;
|
||||
end;
|
||||
//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
|
||||
// if FCliente.Direcciones.RecordCount > 0 then
|
||||
// ElegirDireccionCliente
|
||||
// else begin
|
||||
FPedido.Edit;
|
||||
FPedido.PERSONA_CONTACTO := FCliente.PERSONA_CONTACTO;
|
||||
RefrescarDireccion;
|
||||
// end;
|
||||
end
|
||||
else begin
|
||||
dsCliente.DataTable := NIL;
|
||||
|
||||
@ -1,87 +1,100 @@
|
||||
inherited frViewDetallesPedidoCliente: TfrViewDetallesPedidoCliente
|
||||
inherited ToolBar1: TToolBar
|
||||
Height = 95
|
||||
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]
|
||||
inherited ToolButton11: TToolButton [11]
|
||||
Left = 0
|
||||
Top = 22
|
||||
Wrap = True
|
||||
ExplicitLeft = 0
|
||||
ExplicitTop = 22
|
||||
ExplicitHeight = 27
|
||||
end
|
||||
inherited ToolButton9: TToolButton [11]
|
||||
Left = 0
|
||||
Top = 49
|
||||
ExplicitLeft = 0
|
||||
ExplicitTop = 49
|
||||
inherited ToolButton6: TToolButton [12]
|
||||
Left = 141
|
||||
ExplicitLeft = 141
|
||||
end
|
||||
inherited ToolButton10: TToolButton [12]
|
||||
Left = 145
|
||||
Top = 49
|
||||
ExplicitLeft = 145
|
||||
ExplicitTop = 49
|
||||
inherited ToolButton8: TToolButton [13]
|
||||
Left = 207
|
||||
ExplicitLeft = 207
|
||||
end
|
||||
inherited ToolButton6: TToolButton [13]
|
||||
Left = 270
|
||||
Top = 49
|
||||
ExplicitLeft = 270
|
||||
ExplicitTop = 49
|
||||
inherited FontSize: TEdit [14]
|
||||
Left = 290
|
||||
ExplicitLeft = 290
|
||||
end
|
||||
inherited ToolButton7: TToolButton [14]
|
||||
Left = 336
|
||||
Top = 49
|
||||
Wrap = True
|
||||
ExplicitLeft = 336
|
||||
ExplicitTop = 49
|
||||
end
|
||||
inherited ToolButton8: TToolButton [15]
|
||||
Left = 0
|
||||
Top = 71
|
||||
ExplicitLeft = 0
|
||||
ExplicitTop = 71
|
||||
inherited UpDown1: TUpDown [15]
|
||||
Left = 332
|
||||
ExplicitLeft = 332
|
||||
end
|
||||
end
|
||||
inherited cxGrid: TcxGrid
|
||||
Top = 121
|
||||
Height = 183
|
||||
ExplicitTop = 121
|
||||
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
|
||||
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
|
||||
|
||||
@ -4,7 +4,7 @@ interface
|
||||
|
||||
uses
|
||||
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,
|
||||
uDADataTable, ActnList, ComCtrls, ToolWin, cxGridLevel, cxClasses, cxControls,
|
||||
cxGridCustomView, cxGridCustomTableView, cxGridTableView, cxGridDBTableView,
|
||||
@ -13,7 +13,7 @@ uses
|
||||
cxLookAndFeelPainters, cxButtonEdit, cxDropDownEdit, cxEditRepositoryItems,
|
||||
Menus, cxGridCustomPopupMenu, cxGridPopupMenu, uDAInterfaces, SpTBXItem,
|
||||
cxRichEdit, StdActns, ExtActns, TB2Item, TB2Dock, TB2Toolbar, StdCtrls,
|
||||
JvExStdCtrls, JvCombobox, JvColorCombo;
|
||||
JvExStdCtrls, JvCombobox, JvColorCombo, uViewDetallesArticulos;
|
||||
|
||||
type
|
||||
IViewDetallesPedidoCliente = interface(IViewDetallesArticulos)
|
||||
@ -23,14 +23,17 @@ type
|
||||
property Pedido: IBizPedidoCliente read GetPedido write SetPedido;
|
||||
end;
|
||||
|
||||
TfrViewDetallesPedidoCliente = class(TfrViewDetallesArticulos, IViewDetallesPedidoCliente)
|
||||
TfrViewDetallesPedidoCliente = class(TfrViewDetallesArticulosParaVenta, IViewDetallesPedidoCliente)
|
||||
cxGridViewCANTIDAD2: TcxGridDBColumn;
|
||||
procedure cxGridViewCANTIDAD2PropertiesButtonClick(Sender: TObject; AButtonIndex: Integer);
|
||||
|
||||
protected
|
||||
FPedido: IBizPedidoCliente;
|
||||
function GetPedido: IBizPedidoCliente;
|
||||
procedure SetPedido(const Value: IBizPedidoCliente);
|
||||
|
||||
procedure AnadirArticulosInterno; override;
|
||||
procedure RellenarArticulosInterno; override;
|
||||
procedure RellenarArticulosInterno; override;
|
||||
function AnadirArticulo(pReferencia: String; TipoReferencia: TEnumReferencia): Boolean; override;
|
||||
|
||||
public
|
||||
@ -46,12 +49,18 @@ uses uDetallesPedidoClienteController;
|
||||
|
||||
function TfrViewDetallesPedidoCliente.AnadirArticulo(pReferencia: String; TipoReferencia: TEnumReferencia): Boolean;
|
||||
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;
|
||||
|
||||
procedure TfrViewDetallesPedidoCliente.AnadirArticulosInterno;
|
||||
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;
|
||||
|
||||
function TfrViewDetallesPedidoCliente.GetPedido: IBizPedidoCliente;
|
||||
@ -61,7 +70,7 @@ end;
|
||||
|
||||
procedure TfrViewDetallesPedidoCliente.RellenarArticulosInterno;
|
||||
begin
|
||||
(Controller as IDetallesPedidoClienteController).AnadirArticulos(Detalles, Pedido.Cliente, False);
|
||||
(Controller as IDetallesPedidoClienteController).AnadirArticulos(Detalles, Pedido.Cliente, False, 0);
|
||||
end;
|
||||
|
||||
procedure TfrViewDetallesPedidoCliente.SetPedido(const Value: IBizPedidoCliente);
|
||||
|
||||
@ -1,22 +1,22 @@
|
||||
inherited frViewPedidoCliente: TfrViewPedidoCliente
|
||||
Width = 740
|
||||
Height = 479
|
||||
Width = 872
|
||||
Height = 490
|
||||
OnCreate = CustomViewCreate
|
||||
OnDestroy = CustomViewDestroy
|
||||
ExplicitWidth = 740
|
||||
ExplicitHeight = 479
|
||||
ExplicitWidth = 872
|
||||
ExplicitHeight = 490
|
||||
object dxLayoutControl1: TdxLayoutControl
|
||||
Left = 0
|
||||
Top = 0
|
||||
Width = 740
|
||||
Height = 479
|
||||
Width = 872
|
||||
Height = 490
|
||||
Align = alClient
|
||||
ParentBackground = True
|
||||
TabOrder = 0
|
||||
TabStop = False
|
||||
DesignSize = (
|
||||
740
|
||||
479)
|
||||
872
|
||||
490)
|
||||
object edtFechaPedido: TcxDBDateEdit
|
||||
Left = 116
|
||||
Top = 82
|
||||
@ -42,7 +42,7 @@ inherited frViewPedidoCliente: TfrViewPedidoCliente
|
||||
end
|
||||
object memObservaciones: TcxDBMemo
|
||||
Left = 22
|
||||
Top = 389
|
||||
Top = 416
|
||||
Anchors = [akLeft, akTop, akRight, akBottom]
|
||||
DataBinding.DataField = 'OBSERVACIONES'
|
||||
DataBinding.DataSource = DADataSource
|
||||
@ -54,7 +54,7 @@ inherited frViewPedidoCliente: TfrViewPedidoCliente
|
||||
StyleDisabled.LookAndFeel.NativeStyle = True
|
||||
StyleFocused.LookAndFeel.NativeStyle = True
|
||||
StyleHot.LookAndFeel.NativeStyle = True
|
||||
TabOrder = 14
|
||||
TabOrder = 15
|
||||
Height = 253
|
||||
Width = 186
|
||||
end
|
||||
@ -64,6 +64,7 @@ inherited frViewPedidoCliente: TfrViewPedidoCliente
|
||||
Anchors = [akLeft, akTop, akRight]
|
||||
DataBinding.DataField = 'REFERENCIA'
|
||||
DataBinding.DataSource = DADataSource
|
||||
Enabled = False
|
||||
Properties.ReadOnly = False
|
||||
Properties.ValidateOnEnter = True
|
||||
Style.BorderColor = clWindowFrame
|
||||
@ -84,7 +85,7 @@ inherited frViewPedidoCliente: TfrViewPedidoCliente
|
||||
Width = 143
|
||||
end
|
||||
inline frViewClientePedido: TfrViewDatosYSeleccionClientePedido
|
||||
Left = 388
|
||||
Left = 486
|
||||
Top = 28
|
||||
Width = 350
|
||||
Height = 212
|
||||
@ -94,9 +95,9 @@ inherited frViewPedidoCliente: TfrViewPedidoCliente
|
||||
Font.Name = 'Tahoma'
|
||||
Font.Style = []
|
||||
ParentFont = False
|
||||
TabOrder = 13
|
||||
TabOrder = 14
|
||||
ReadOnly = False
|
||||
ExplicitLeft = 388
|
||||
ExplicitLeft = 486
|
||||
ExplicitTop = 28
|
||||
ExplicitWidth = 350
|
||||
ExplicitHeight = 212
|
||||
@ -105,6 +106,9 @@ inherited frViewPedidoCliente: TfrViewPedidoCliente
|
||||
Height = 212
|
||||
ExplicitWidth = 350
|
||||
ExplicitHeight = 212
|
||||
DesignSize = (
|
||||
350
|
||||
212)
|
||||
inherited edtlNombre: TcxDBTextEdit
|
||||
Style.LookAndFeel.SkinName = ''
|
||||
StyleDisabled.LookAndFeel.SkinName = ''
|
||||
@ -114,42 +118,40 @@ inherited frViewPedidoCliente: TfrViewPedidoCliente
|
||||
Width = 224
|
||||
end
|
||||
inherited edtNIFCIF: TcxDBTextEdit
|
||||
Left = 136
|
||||
Left = 251
|
||||
Style.LookAndFeel.SkinName = ''
|
||||
StyleDisabled.LookAndFeel.SkinName = ''
|
||||
StyleFocused.LookAndFeel.SkinName = ''
|
||||
StyleHot.LookAndFeel.SkinName = ''
|
||||
ExplicitLeft = 136
|
||||
ExplicitWidth = 562
|
||||
Width = 562
|
||||
ExplicitLeft = 251
|
||||
end
|
||||
inherited Button3: TBitBtn
|
||||
Left = 506
|
||||
ExplicitLeft = 506
|
||||
Left = 162
|
||||
ExplicitLeft = 162
|
||||
end
|
||||
inherited edtPersonaContacto: TcxDBTextEdit
|
||||
Style.LookAndFeel.SkinName = ''
|
||||
StyleDisabled.LookAndFeel.SkinName = ''
|
||||
StyleFocused.LookAndFeel.SkinName = ''
|
||||
StyleHot.LookAndFeel.SkinName = ''
|
||||
ExplicitWidth = 283
|
||||
Width = 283
|
||||
ExplicitWidth = 200
|
||||
Width = 200
|
||||
end
|
||||
inherited edtDireccion: TcxMemo
|
||||
Style.LookAndFeel.SkinName = ''
|
||||
StyleDisabled.LookAndFeel.SkinName = ''
|
||||
StyleFocused.LookAndFeel.SkinName = ''
|
||||
StyleHot.LookAndFeel.SkinName = ''
|
||||
ExplicitWidth = 403
|
||||
Width = 403
|
||||
ExplicitWidth = 200
|
||||
Width = 200
|
||||
end
|
||||
inherited Button4: TButton
|
||||
Left = 675
|
||||
ExplicitLeft = 675
|
||||
Left = 331
|
||||
ExplicitLeft = 331
|
||||
end
|
||||
inherited Button5: TButton
|
||||
Left = 675
|
||||
ExplicitLeft = 675
|
||||
Left = 331
|
||||
ExplicitLeft = 331
|
||||
end
|
||||
end
|
||||
inherited ActionList1: TActionList
|
||||
@ -161,28 +163,10 @@ inherited frViewPedidoCliente: TfrViewPedidoCliente
|
||||
end
|
||||
object eCalle: TcxDBTextEdit
|
||||
Left = 116
|
||||
Top = 193
|
||||
Top = 220
|
||||
DataBinding.DataField = 'CALLE'
|
||||
DataBinding.DataSource = DADataSource
|
||||
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 = 6
|
||||
Width = 263
|
||||
end
|
||||
object ePoblacion: TcxDBTextEdit
|
||||
Left = 116
|
||||
Top = 220
|
||||
DataBinding.DataField = 'POBLACION'
|
||||
DataBinding.DataSource = DADataSource
|
||||
Enabled = False
|
||||
Style.BorderColor = clWindowFrame
|
||||
Style.BorderStyle = ebs3D
|
||||
Style.HotTrack = False
|
||||
@ -195,13 +179,14 @@ inherited frViewPedidoCliente: TfrViewPedidoCliente
|
||||
StyleHot.LookAndFeel.Kind = lfStandard
|
||||
StyleHot.LookAndFeel.NativeStyle = True
|
||||
TabOrder = 7
|
||||
Width = 162
|
||||
Width = 263
|
||||
end
|
||||
object eCodigoPostal: TcxDBTextEdit
|
||||
Left = 293
|
||||
Top = 220
|
||||
DataBinding.DataField = 'CODIGO_POSTAL'
|
||||
object ePoblacion: TcxDBTextEdit
|
||||
Left = 116
|
||||
Top = 247
|
||||
DataBinding.DataField = 'POBLACION'
|
||||
DataBinding.DataSource = DADataSource
|
||||
Enabled = False
|
||||
Style.BorderColor = clWindowFrame
|
||||
Style.BorderStyle = ebs3D
|
||||
Style.HotTrack = False
|
||||
@ -214,13 +199,14 @@ inherited frViewPedidoCliente: TfrViewPedidoCliente
|
||||
StyleHot.LookAndFeel.Kind = lfStandard
|
||||
StyleHot.LookAndFeel.NativeStyle = True
|
||||
TabOrder = 8
|
||||
Width = 65
|
||||
Width = 162
|
||||
end
|
||||
object eProvincia: TcxDBTextEdit
|
||||
Left = 116
|
||||
object eCodigoPostal: TcxDBTextEdit
|
||||
Left = 391
|
||||
Top = 247
|
||||
DataBinding.DataField = 'PROVINCIA'
|
||||
DataBinding.DataField = 'CODIGO_POSTAL'
|
||||
DataBinding.DataSource = DADataSource
|
||||
Enabled = False
|
||||
Style.BorderColor = clWindowFrame
|
||||
Style.BorderStyle = ebs3D
|
||||
Style.HotTrack = False
|
||||
@ -233,13 +219,34 @@ inherited frViewPedidoCliente: TfrViewPedidoCliente
|
||||
StyleHot.LookAndFeel.Kind = lfStandard
|
||||
StyleHot.LookAndFeel.NativeStyle = True
|
||||
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
|
||||
end
|
||||
object ePersonaContacto: TcxDBTextEdit
|
||||
Left = 116
|
||||
Top = 274
|
||||
Top = 301
|
||||
DataBinding.DataField = 'PERSONA_CONTACTO'
|
||||
DataBinding.DataSource = DADataSource
|
||||
Enabled = False
|
||||
Style.BorderColor = clWindowFrame
|
||||
Style.BorderStyle = ebs3D
|
||||
Style.Color = clWindow
|
||||
@ -252,14 +259,15 @@ inherited frViewPedidoCliente: TfrViewPedidoCliente
|
||||
StyleFocused.LookAndFeel.NativeStyle = True
|
||||
StyleHot.LookAndFeel.Kind = lfStandard
|
||||
StyleHot.LookAndFeel.NativeStyle = True
|
||||
TabOrder = 10
|
||||
TabOrder = 11
|
||||
Width = 84
|
||||
end
|
||||
object eTlfTrabajo: TcxDBTextEdit
|
||||
Left = 116
|
||||
Top = 301
|
||||
Top = 328
|
||||
DataBinding.DataField = 'TELEFONO'
|
||||
DataBinding.DataSource = DADataSource
|
||||
Enabled = False
|
||||
Style.BorderColor = clWindowFrame
|
||||
Style.BorderStyle = ebs3D
|
||||
Style.HotTrack = False
|
||||
@ -271,49 +279,21 @@ inherited frViewPedidoCliente: TfrViewPedidoCliente
|
||||
StyleFocused.LookAndFeel.NativeStyle = True
|
||||
StyleHot.LookAndFeel.Kind = lfStandard
|
||||
StyleHot.LookAndFeel.NativeStyle = True
|
||||
TabOrder = 11
|
||||
TabOrder = 12
|
||||
Width = 122
|
||||
end
|
||||
object bElegirDireccion: TBitBtn
|
||||
Left = 186
|
||||
Top = 328
|
||||
Left = 284
|
||||
Top = 355
|
||||
Width = 172
|
||||
Height = 25
|
||||
Action = actElegirDireccion
|
||||
Caption = 'Elegir una direcci'#243'n de env'#237'o...'
|
||||
TabOrder = 12
|
||||
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.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
|
||||
Enabled = False
|
||||
TabOrder = 13
|
||||
end
|
||||
object bFormasPago: TButton
|
||||
Left = 226
|
||||
Left = 324
|
||||
Top = 136
|
||||
Width = 132
|
||||
Height = 21
|
||||
@ -327,6 +307,7 @@ inherited frViewPedidoCliente: TfrViewPedidoCliente
|
||||
Anchors = [akLeft, akTop, akRight]
|
||||
DataBinding.DataField = 'FECHA_PREVISTA_ENVIO'
|
||||
DataBinding.DataSource = DADataSource
|
||||
Enabled = False
|
||||
Properties.ImmediatePost = True
|
||||
Style.BorderColor = clWindowFrame
|
||||
Style.BorderStyle = ebs3D
|
||||
@ -349,6 +330,7 @@ inherited frViewPedidoCliente: TfrViewPedidoCliente
|
||||
Anchors = [akLeft, akTop, akRight]
|
||||
DataBinding.DataField = 'REFERENCIA_CLIENTE'
|
||||
DataBinding.DataSource = DADataSource
|
||||
Enabled = False
|
||||
Properties.ReadOnly = False
|
||||
Properties.ValidateOnEnter = True
|
||||
Style.BorderColor = clWindowFrame
|
||||
@ -368,6 +350,62 @@ inherited frViewPedidoCliente: TfrViewPedidoCliente
|
||||
TabOrder = 1
|
||||
Width = 216
|
||||
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
|
||||
AlignHorz = ahParentManaged
|
||||
AlignVert = avParentManaged
|
||||
@ -394,11 +432,14 @@ inherited frViewPedidoCliente: TfrViewPedidoCliente
|
||||
ButtonOptions.Buttons = <>
|
||||
object dxLayoutControl1Item3: TdxLayoutItem
|
||||
CaptionOptions.Text = 'Referencia:'
|
||||
Enabled = False
|
||||
Control = eReferencia
|
||||
ControlOptions.ShowBorder = False
|
||||
end
|
||||
object dxLayoutControl1Item15: TdxLayoutItem
|
||||
CaptionOptions.Text = 'Ref. cliente:'
|
||||
Enabled = False
|
||||
Visible = False
|
||||
Control = eRefCliente
|
||||
ControlOptions.ShowBorder = False
|
||||
end
|
||||
@ -409,47 +450,64 @@ inherited frViewPedidoCliente: TfrViewPedidoCliente
|
||||
end
|
||||
object dxLayoutControl1Item7: TdxLayoutItem
|
||||
CaptionOptions.Text = 'Entrega prevista:'
|
||||
Enabled = False
|
||||
Visible = False
|
||||
Control = edtFechaPrevistaEnvio
|
||||
ControlOptions.ShowBorder = False
|
||||
end
|
||||
object dxLayoutControl1Group5: TdxLayoutGroup
|
||||
CaptionOptions.Visible = False
|
||||
Visible = False
|
||||
object dxLayoutControl1Group3: TdxLayoutGroup
|
||||
ButtonOptions.Buttons = <>
|
||||
Hidden = True
|
||||
LayoutDirection = ldHorizontal
|
||||
ShowBorder = False
|
||||
object dxLayoutControl1Item4: TdxLayoutItem
|
||||
AlignHorz = ahClient
|
||||
CaptionOptions.Text = 'Forma de pago'
|
||||
CaptionOptions.Text = 'Forma de pago:'
|
||||
Control = cbFormaPago
|
||||
ControlOptions.ShowBorder = False
|
||||
end
|
||||
object dxLayoutControl1Item5: TdxLayoutItem
|
||||
AlignHorz = ahRight
|
||||
object dxLayoutControl1Group5: TdxLayoutGroup
|
||||
CaptionOptions.Text = 'New Group'
|
||||
CaptionOptions.Visible = False
|
||||
Control = bFormasPago
|
||||
ControlOptions.ShowBorder = False
|
||||
ButtonOptions.Buttons = <>
|
||||
LayoutDirection = ldHorizontal
|
||||
ShowBorder = False
|
||||
object dxLayoutControl1Item5: TdxLayoutItem
|
||||
AlignHorz = ahRight
|
||||
CaptionOptions.Visible = False
|
||||
Control = bFormasPago
|
||||
ControlOptions.ShowBorder = False
|
||||
end
|
||||
end
|
||||
end
|
||||
object dxLayoutControl1Item16: TdxLayoutItem
|
||||
CaptionOptions.Text = 'Cuenta bancaria:'
|
||||
Control = cbCuentaBancaria
|
||||
ControlOptions.ShowBorder = False
|
||||
end
|
||||
end
|
||||
object dxLayoutControl1Group8: TdxLayoutGroup
|
||||
AlignHorz = ahClient
|
||||
AlignVert = avTop
|
||||
CaptionOptions.Text = 'Direcci'#243'n de entrega'
|
||||
Enabled = False
|
||||
Visible = False
|
||||
ButtonOptions.Buttons = <>
|
||||
object dxLayoutControl1Item8: TdxLayoutItem
|
||||
CaptionOptions.Text = 'Calle:'
|
||||
Enabled = False
|
||||
Control = eCalle
|
||||
ControlOptions.ShowBorder = False
|
||||
end
|
||||
object dxLayoutControl1Group4: TdxLayoutGroup
|
||||
CaptionOptions.Visible = False
|
||||
Enabled = False
|
||||
ButtonOptions.Buttons = <>
|
||||
Hidden = True
|
||||
ShowBorder = False
|
||||
object dxLayoutControl1Group9: TdxLayoutGroup
|
||||
CaptionOptions.Visible = False
|
||||
Enabled = False
|
||||
ButtonOptions.Buttons = <>
|
||||
Hidden = True
|
||||
LayoutDirection = ldHorizontal
|
||||
@ -457,34 +515,40 @@ inherited frViewPedidoCliente: TfrViewPedidoCliente
|
||||
object dxLayoutControl1Item9: TdxLayoutItem
|
||||
AlignHorz = ahClient
|
||||
CaptionOptions.Text = 'Poblaci'#243'n:'
|
||||
Enabled = False
|
||||
Control = ePoblacion
|
||||
ControlOptions.ShowBorder = False
|
||||
end
|
||||
object dxLayoutControl1Item10: TdxLayoutItem
|
||||
AlignHorz = ahRight
|
||||
CaptionOptions.Text = 'C.P.:'
|
||||
Enabled = False
|
||||
Control = eCodigoPostal
|
||||
ControlOptions.ShowBorder = False
|
||||
end
|
||||
end
|
||||
object dxLayoutControl1Item11: TdxLayoutItem
|
||||
CaptionOptions.Text = 'Provincia:'
|
||||
Enabled = False
|
||||
Control = eProvincia
|
||||
ControlOptions.ShowBorder = False
|
||||
end
|
||||
object dxLayoutControl1Item12: TdxLayoutItem
|
||||
CaptionOptions.Text = 'Pers. de contacto:'
|
||||
Enabled = False
|
||||
Control = ePersonaContacto
|
||||
ControlOptions.ShowBorder = False
|
||||
end
|
||||
object dxLayoutControl1Item13: TdxLayoutItem
|
||||
CaptionOptions.Text = 'Tel'#233'fono:'
|
||||
Enabled = False
|
||||
Control = eTlfTrabajo
|
||||
ControlOptions.ShowBorder = False
|
||||
end
|
||||
object dxLayoutControl1Item14: TdxLayoutItem
|
||||
AlignHorz = ahRight
|
||||
CaptionOptions.Visible = False
|
||||
Enabled = False
|
||||
Control = bElegirDireccion
|
||||
ControlOptions.ShowBorder = False
|
||||
end
|
||||
|
||||
@ -12,7 +12,8 @@ uses
|
||||
cxTextEdit, cxMaskEdit, cxCalendar, dxLayoutControl, cxControls, cxMemo,
|
||||
uViewDireccionEntregaPedidoCliente, Buttons, ActnList, cxLookupEdit,
|
||||
cxDBLookupEdit, cxDBLookupComboBox, uFormasPagoController, cxLookAndFeels,
|
||||
cxLookAndFeelPainters, dxLayoutcxEditAdapters, uDAInterfaces;
|
||||
cxLookAndFeelPainters, dxLayoutcxEditAdapters, uDAInterfaces, uBizFormasPago,
|
||||
uPedidosClienteController, cxSpinEdit;
|
||||
|
||||
type
|
||||
IViewPedidoCliente = interface(IViewBase)
|
||||
@ -20,10 +21,16 @@ type
|
||||
function GetPedido: IBizPedidoCliente;
|
||||
procedure SetPedido(const Value: IBizPedidoCliente);
|
||||
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;
|
||||
procedure SetViewClientePedido(const Value: TfrViewDatosYSeleccionClientePedido);
|
||||
property ViewClientePedido: TfrViewDatosYSeleccionClientePedido read GetViewClientePedido write SetViewClientePedido;
|
||||
|
||||
procedure RellenarCuentasBancarias;
|
||||
procedure AsignarCuentaBancaria;
|
||||
end;
|
||||
|
||||
TfrViewPedidoCliente = class(TfrViewBase, IViewPedidoCliente)
|
||||
@ -61,17 +68,20 @@ type
|
||||
bElegirDireccion: TBitBtn;
|
||||
ActionList1: TActionList;
|
||||
actElegirDireccion: TAction;
|
||||
dxLayoutControl1Item4: TdxLayoutItem;
|
||||
cbFormaPago: TcxDBLookupComboBox;
|
||||
dxLayoutControl1Item5: TdxLayoutItem;
|
||||
bFormasPago: TButton;
|
||||
dxLayoutControl1Group5: TdxLayoutGroup;
|
||||
dsFormaPago: TDADataSource;
|
||||
dxLayoutControl1Group10: TdxLayoutGroup;
|
||||
dxLayoutControl1Item7: TdxLayoutItem;
|
||||
edtFechaPrevistaEnvio: TcxDBDateEdit;
|
||||
dxLayoutControl1Item15: TdxLayoutItem;
|
||||
eRefCliente: TcxDBTextEdit;
|
||||
dxLayoutControl1Group5: TdxLayoutGroup;
|
||||
cbFormaPago: TcxDBLookupComboBox;
|
||||
dxLayoutControl1Item4: TdxLayoutItem;
|
||||
dxLayoutControl1Group3: TdxLayoutGroup;
|
||||
cbCuentaBancaria: TcxDBComboBox;
|
||||
dxLayoutControl1Item16: TdxLayoutItem;
|
||||
procedure CustomViewCreate(Sender: TObject);
|
||||
procedure CustomViewDestroy(Sender: TObject);
|
||||
procedure actElegirDireccionExecute(Sender: TObject);
|
||||
@ -81,9 +91,13 @@ type
|
||||
procedure frViewClientePedidoButton2Click(Sender: TObject);
|
||||
protected
|
||||
FPedido : IBizPedidoCliente;
|
||||
FController : IPedidosClienteController;
|
||||
FViewClientePedido : TfrViewDatosYSeleccionClientePedido;
|
||||
FFormasPago : IBizFormaPago;
|
||||
FFormasPagoController : IFormasPagoController;
|
||||
|
||||
function GetController : IPedidosClienteController;
|
||||
procedure SetController (const Value : IPedidosClienteController);
|
||||
function GetPedido: IBizPedidoCliente;
|
||||
procedure SetPedido(const Value: IBizPedidoCliente); virtual;
|
||||
function GetViewClientePedido: TfrViewDatosYSeleccionClientePedido;
|
||||
@ -91,17 +105,19 @@ type
|
||||
public
|
||||
property Pedido: IBizPedidoCliente read GetPedido write SetPedido;
|
||||
property ViewClientePedido: TfrViewDatosYSeleccionClientePedido read GetViewClientePedido;
|
||||
property Controller : IPedidosClienteController read GetController write SetController;
|
||||
|
||||
procedure RellenarCuentasBancarias;
|
||||
procedure AsignarCuentaBancaria;
|
||||
end;
|
||||
|
||||
implementation
|
||||
|
||||
{$R *.dfm}
|
||||
|
||||
{ TfrViewPedidoCliente }
|
||||
|
||||
uses
|
||||
uClientesController, uBizDireccionesContacto, uPedidosClienteController,
|
||||
uBizFormasPago;
|
||||
uFactuGES_App, uEmpresasController, uClientesController, uBizDireccionesContacto;
|
||||
|
||||
|
||||
procedure TfrViewPedidoCliente.actElegirDireccionExecute(Sender: TObject);
|
||||
@ -144,16 +160,29 @@ begin
|
||||
(FPedido.Cliente.Direcciones.DataTable.RecordCount > 0);
|
||||
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);
|
||||
begin
|
||||
inherited;
|
||||
FFormasPagoController.VerTodos((dsFormaPago.DataTable) as IBizFormaPago);
|
||||
if Assigned(FFormasPago) then
|
||||
FFormasPagoController.VerTodos(FFormasPago);
|
||||
end;
|
||||
|
||||
procedure TfrViewPedidoCliente.CustomViewCreate(Sender: TObject);
|
||||
begin
|
||||
inherited;
|
||||
FFormasPago := Nil;
|
||||
FFormasPagoController := TFormasPagoController.Create;
|
||||
|
||||
FViewClientePedido := frViewClientePedido;
|
||||
// FViewClientePedido.MsgElegirCliente := 'Elija el cliente al que se le realizará el pedido.';
|
||||
end;
|
||||
@ -161,6 +190,7 @@ end;
|
||||
procedure TfrViewPedidoCliente.CustomViewDestroy(Sender: TObject);
|
||||
begin
|
||||
FViewClientePedido := NIL;
|
||||
FFormasPago := Nil;
|
||||
FFormasPagoController := NIL;
|
||||
inherited;
|
||||
end;
|
||||
@ -187,6 +217,11 @@ begin
|
||||
frViewClientePedido.actAnadirContacto.Execute;
|
||||
end;
|
||||
|
||||
function TfrViewPedidoCliente.GetController: IPedidosClienteController;
|
||||
begin
|
||||
Result := FController;
|
||||
end;
|
||||
|
||||
function TfrViewPedidoCliente.GetPedido: IBizPedidoCliente;
|
||||
begin
|
||||
Result := FPedido;
|
||||
@ -197,20 +232,83 @@ begin
|
||||
Result := FViewClientePedido;
|
||||
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);
|
||||
begin
|
||||
FPedido := Value;
|
||||
RellenarCuentasBancarias;
|
||||
|
||||
if Assigned(FPedido) then
|
||||
begin
|
||||
DADataSource.DataTable := FPedido.DataTable;
|
||||
dsFormaPago.DataTable := FFormasPagoController.BuscarTodos.DataTable;
|
||||
FViewClientePedido.Pedido := FPedido;
|
||||
|
||||
FFormasPago := FFormasPagoController.BuscarTodos;
|
||||
dsFormaPago.DataTable := FFormasPago.DataTable;
|
||||
dsFormaPago.DataTable.Active := True;
|
||||
frViewClientePedido.Cliente := FPedido.Cliente;
|
||||
end
|
||||
else begin
|
||||
DADataSource.DataTable := NIL;
|
||||
dsFormaPago.DataTable := NIL;
|
||||
frViewClientePedido.Cliente := nil;
|
||||
frViewClientePedido.Pedido := nil;
|
||||
end;
|
||||
end;
|
||||
|
||||
|
||||
@ -36,6 +36,7 @@ inherited frViewPedidosCliente: TfrViewPedidosCliente
|
||||
OptionsView.GroupFooters = gfAlwaysVisible
|
||||
object cxGridViewNUM_COPIAS: TcxGridDBColumn
|
||||
DataBinding.FieldName = 'NUM_COPIAS'
|
||||
Visible = False
|
||||
MinWidth = 30
|
||||
Options.HorzSizing = False
|
||||
VisibleForCustomization = False
|
||||
@ -47,6 +48,7 @@ inherited frViewPedidosCliente: TfrViewPedidosCliente
|
||||
DataBinding.FieldName = 'NUM_CORREOS'
|
||||
PropertiesClassName = 'TcxTextEditProperties'
|
||||
Properties.Alignment.Horz = taCenter
|
||||
Visible = False
|
||||
BestFitMaxWidth = 25
|
||||
MinWidth = 25
|
||||
Options.Editing = False
|
||||
@ -57,15 +59,6 @@ inherited frViewPedidosCliente: TfrViewPedidosCliente
|
||||
Width = 25
|
||||
OnCustomDrawHeader = cxGridViewNUM_CORREOSCustomDrawHeader
|
||||
end
|
||||
object cxGridViewID: TcxGridDBColumn
|
||||
DataBinding.FieldName = 'ID'
|
||||
Visible = False
|
||||
BestFitMaxWidth = 22
|
||||
MinWidth = 22
|
||||
Options.HorzSizing = False
|
||||
Width = 22
|
||||
IsCaptionAssigned = True
|
||||
end
|
||||
object cxGridViewINCIDENCIASACTIVAS: TcxGridDBColumn
|
||||
Caption = 'Incidencias'
|
||||
DataBinding.FieldName = 'INCIDENCIAS_ACTIVAS'
|
||||
@ -92,10 +85,12 @@ inherited frViewPedidosCliente: TfrViewPedidosCliente
|
||||
object cxGridViewTIENDAWEB: TcxGridDBColumn
|
||||
Caption = #191'Proviene de tienda web?'
|
||||
DataBinding.FieldName = 'REF_TIENDA_WEB'
|
||||
Visible = False
|
||||
OnCustomDrawCell = cxGridViewTIENDAWEBCustomDrawCell
|
||||
BestFitMaxWidth = 22
|
||||
MinWidth = 22
|
||||
Options.HorzSizing = False
|
||||
VisibleForCustomization = False
|
||||
Width = 22
|
||||
end
|
||||
object cxGridViewREFERENCIA: TcxGridDBColumn
|
||||
@ -116,7 +111,9 @@ inherited frViewPedidosCliente: TfrViewPedidosCliente
|
||||
end
|
||||
object cxGridViewFECHA_ENTREGA: TcxGridDBColumn
|
||||
DataBinding.FieldName = 'FECHA_PREVISTA_ENVIO'
|
||||
Visible = False
|
||||
BestFitMaxWidth = 45
|
||||
VisibleForCustomization = False
|
||||
Width = 45
|
||||
end
|
||||
object cxGridViewNOMBRE: TcxGridDBColumn
|
||||
@ -126,26 +123,35 @@ inherited frViewPedidosCliente: TfrViewPedidosCliente
|
||||
end
|
||||
object cxGridViewCALLE: TcxGridDBColumn
|
||||
DataBinding.FieldName = 'CALLE'
|
||||
Visible = False
|
||||
VisibleForCustomization = False
|
||||
Width = 70
|
||||
end
|
||||
object cxGridViewCODIGO_POSTAL: TcxGridDBColumn
|
||||
DataBinding.FieldName = 'CODIGO_POSTAL'
|
||||
Visible = False
|
||||
VisibleForCustomization = False
|
||||
end
|
||||
object cxGridViewPOBLACION: TcxGridDBColumn
|
||||
DataBinding.FieldName = 'POBLACION'
|
||||
Visible = False
|
||||
VisibleForCustomization = False
|
||||
Width = 68
|
||||
end
|
||||
object cxGridViewPROVINCIA: TcxGridDBColumn
|
||||
DataBinding.FieldName = 'PROVINCIA'
|
||||
Visible = False
|
||||
VisibleForCustomization = False
|
||||
end
|
||||
object cxGridViewPERSONA_CONTACTO: TcxGridDBColumn
|
||||
DataBinding.FieldName = 'PERSONA_CONTACTO'
|
||||
Visible = False
|
||||
VisibleForCustomization = False
|
||||
end
|
||||
object cxGridViewTELEFONO: TcxGridDBColumn
|
||||
DataBinding.FieldName = 'TELEFONO'
|
||||
Visible = False
|
||||
VisibleForCustomization = False
|
||||
Width = 70
|
||||
end
|
||||
object cxGridViewIMPORTE_TOTAL: TcxGridDBColumn
|
||||
@ -197,18 +203,28 @@ inherited frViewPedidosCliente: TfrViewPedidosCliente
|
||||
StyleDisabled.LookAndFeel.SkinName = ''
|
||||
StyleFocused.LookAndFeel.SkinName = ''
|
||||
StyleHot.LookAndFeel.SkinName = ''
|
||||
ExplicitWidth = 272
|
||||
Width = 272
|
||||
end
|
||||
inherited edtFechaFinFiltro: TcxDateEdit
|
||||
Left = 265
|
||||
Style.LookAndFeel.SkinName = ''
|
||||
StyleDisabled.LookAndFeel.SkinName = ''
|
||||
StyleFocused.LookAndFeel.SkinName = ''
|
||||
StyleHot.LookAndFeel.SkinName = ''
|
||||
ExplicitLeft = 265
|
||||
ExplicitWidth = 221
|
||||
Width = 221
|
||||
end
|
||||
inherited eLista: TcxComboBox
|
||||
Left = 449
|
||||
Style.LookAndFeel.SkinName = ''
|
||||
StyleDisabled.LookAndFeel.SkinName = ''
|
||||
StyleFocused.LookAndFeel.SkinName = ''
|
||||
StyleHot.LookAndFeel.SkinName = ''
|
||||
ExplicitLeft = 449
|
||||
ExplicitWidth = 215
|
||||
Width = 215
|
||||
end
|
||||
end
|
||||
inherited TBXAlignmentPanel1: TSpTBXDockablePanel
|
||||
@ -241,9 +257,6 @@ inherited frViewPedidosCliente: TfrViewPedidosCliente
|
||||
BuiltInReportLink = True
|
||||
end
|
||||
end
|
||||
inherited dxPSEngineController1: TdxPSEngineController
|
||||
Active = True
|
||||
end
|
||||
inherited cxStyleRepository1: TcxStyleRepository
|
||||
Left = 248
|
||||
object cxStylePENDIENTES: TcxStyle
|
||||
|
||||
@ -29,7 +29,6 @@ type
|
||||
TfrViewPedidosCliente = class(TfrViewGrid, IViewPedidosCliente)
|
||||
cxGridDBTableView1: TcxGridDBTableView;
|
||||
PngImageList: TPngImageList;
|
||||
cxGridViewID: TcxGridDBColumn;
|
||||
cxGridViewREFERENCIA: TcxGridDBColumn;
|
||||
cxGridViewINCIDENCIASACTIVAS: 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.
|
||||
@ -198,7 +198,7 @@ object srvRecibosCliente: TsrvRecibosCliente
|
||||
item
|
||||
DatasetField = 'CUENTA'
|
||||
TableField = '<unknown>'
|
||||
SQLOrigin = 'CUENTA'
|
||||
SQLOrigin = 'CUENTA'
|
||||
end>
|
||||
end>
|
||||
Name = 'RecibosCliente'
|
||||
|
||||
@ -50,9 +50,9 @@ inherited fEditorRemesasCliente: TfEditorRemesasCliente
|
||||
end
|
||||
end
|
||||
inherited tbxFiltro: TSpTBXToolbar
|
||||
ExplicitWidth = 326
|
||||
ExplicitWidth = 334
|
||||
inherited lblAno: TSpTBXLabelItem
|
||||
Visible = True
|
||||
Enabled = False
|
||||
end
|
||||
inherited sepAno: TSpTBXSeparatorItem
|
||||
Visible = True
|
||||
@ -60,10 +60,6 @@ inherited fEditorRemesasCliente: TfEditorRemesasCliente
|
||||
inherited TBXItem37: TSpTBXItem
|
||||
Visible = False
|
||||
end
|
||||
inherited cbxListaAnos: TSpTBXComboBox
|
||||
Left = 33
|
||||
ExplicitLeft = 33
|
||||
end
|
||||
end
|
||||
inherited tbxMenu: TSpTBXToolbar
|
||||
ExplicitWidth = 785
|
||||
@ -75,8 +71,8 @@ inherited fEditorRemesasCliente: TfEditorRemesasCliente
|
||||
end
|
||||
end
|
||||
inherited TBXTMain2: TSpTBXToolbar
|
||||
Left = 326
|
||||
ExplicitLeft = 326
|
||||
Left = 334
|
||||
ExplicitLeft = 334
|
||||
end
|
||||
end
|
||||
inherited StatusBar: TJvStatusBar
|
||||
|
||||
@ -45,6 +45,7 @@ inherited frViewRecibosRemesaCliente: TfrViewRecibosRemesaCliente
|
||||
Width = 65
|
||||
end
|
||||
object cxGridViewFECHA_EMISION: TcxGridDBColumn
|
||||
Caption = 'Fecha emisi'#243'n'
|
||||
DataBinding.FieldName = 'FECHA_EMISION'
|
||||
end
|
||||
object cxGridViewFECHA_VENCIMIENTO: TcxGridDBColumn
|
||||
|
||||
Binary file not shown.
@ -129,8 +129,6 @@ uses
|
||||
uBizVendedoresServer in '..\Modulos\Contactos\Model\uBizVendedoresServer.pas',
|
||||
schArticulosClient_Intf in '..\Modulos\Articulos\Model\schArticulosClient_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',
|
||||
schContactosServer_Intf in '..\Modulos\Contactos\Model\schContactosServer_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},
|
||||
srvPedidosCliente_Impl in '..\Modulos\Pedidos de cliente\Servidor\srvPedidosCliente_Impl.pas' {srvPedidosCliente: TDataAbstractService},
|
||||
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',
|
||||
schPedidosClienteServer_Intf in '..\Modulos\Pedidos de cliente\Model\schPedidosClienteServer_Intf.pas';
|
||||
|
||||
|
||||
@ -1,344 +1,344 @@
|
||||
<?xml version="1.0" encoding="utf-8"?>
|
||||
<?xml version="1.0" encoding="utf-8"?>
|
||||
<Project xmlns="http://schemas.microsoft.com/developer/msbuild/2003">
|
||||
<PropertyGroup>
|
||||
<ProjectGuid>{ebdcd25d-40d7-4146-91ec-a0ea4aa1dcd1}</ProjectGuid>
|
||||
<MainSource>FactuGES_Server.dpr</MainSource>
|
||||
<Configuration Condition=" '$(Configuration)' == '' ">Debug</Configuration>
|
||||
<Platform Condition=" '$(Platform)' == '' ">AnyCPU</Platform>
|
||||
<DCC_DCCCompiler>DCC32</DCC_DCCCompiler>
|
||||
<DCC_DependencyCheckOutputName>..\..\Output\Debug\Servidor\FactuGES_Server.exe</DCC_DependencyCheckOutputName>
|
||||
<DCC_UsePackage>vcl;rtl;vclx;vclactnband;dbrtl;vcldb;vcldbx;bdertl;dsnap;dsnapcon;teeUI;teedb;tee;adortl;vclib;ibxpress;dbxcds;dbexpress;DbxCommonDriver;IndyCore;IndySystem;IndyProtocols;VclSmp;vclie;webdsnap;xmlrtl;inet;inetdbbde;inetdbxpress;RemObjects_BPDX_D11;RemObjects_RODX_D11;RemObjects_Indy_D11;RemObjects_Synapse_D11;RemObjects_WebBroker_D11;DataAbstract_Core_D11;DataAbstract_DBXDriver_D11;DataAbstract_IDE_D11;DataAbstract_Scripting_D11;DataAbstract_SDACDriver_D11;sdac105;dac105;DataAbstract_SQLiteDriver_D11;cxEditorsD10;cxLibraryD10;dxThemeD10;cxDataD10;cxExtEditorsD10;cxGridD10;cxPageControlD10;cxSchedulerD10;cxTreeListD10;cxVerticalGridD10;dxBarD10;dxComnD10;dxBarDBNavD10;dxBarExtDBItemsD10;dxBarExtItemsD10;dxDockingD10;dxLayoutControlD10;dxNavBarD10;dxPSCoreD10;dxsbD10;dxPScxCommonD10;dxPSLnksD10;vclshlctrls;dxPScxExtCommonD10;dxPScxGridLnkD10;dxPScxPCProdD10;dxPScxScheduler2LnkD10;dxPScxTLLnkD10;dxPSdxLCLnkD10;dxPsPrVwAdvD10;pckMD5;pckUCDataConnector;pckUserControl_RT;PluginSDK_D10R;PNG_D10;PngComponentsD10;tb2k_d11;SpTBXLib_d11;JclVcl;Jcl;JvXPCtrlsD11R;JvCoreD11R;JvSystemD11R;JvStdCtrlsD11R;JvAppFrmD11R;JvBandsD11R;JvDBD11R;JvDlgsD11R;JvBDED11R;JvCmpD11R;JvCryptD11R;JvCtrlsD11R;JvCustomD11R;JvDockingD11R;JvDotNetCtrlsD11R;JvEDID11R;JvGlobusD11R;JvHMID11R;JvInterpreterD11R;JvJansD11R;JvManagedThreadsD11R;JvMMD11R;JvNetD11R;JvPageCompsD11R;JvPluginD11R;JvPrintPreviewD11R;JvRuntimeDesignD11R;JvTimeFrameworkD11R;JvUIBD11R;JvValidatorsD11R;JvWizardD11R;pckUCADOConn;pckUCBDEConn;pckUCIBXConn;pckUCMidasConn;cxExportD10;GUISDK_D11R;ccpackD11;JSDialog100;fsTee11;fs11;frx11;frxADO11;frxBDE11;frxDB11;frxDBX11;frxe11;frxIBX11;frxTee11;fsADO11;fsBDE11;fsDB11;fsIBX11;websnap;soaprtl;IntrawebDB_90_100;Intraweb_90_100</DCC_UsePackage>
|
||||
</PropertyGroup>
|
||||
<PropertyGroup Condition=" '$(Configuration)|$(Platform)' == 'Release|AnyCPU' ">
|
||||
<Version>7.0</Version>
|
||||
<DCC_DebugInformation>False</DCC_DebugInformation>
|
||||
<DCC_LocalDebugSymbols>False</DCC_LocalDebugSymbols>
|
||||
<DCC_SymbolReferenceInfo>0</DCC_SymbolReferenceInfo>
|
||||
<DCC_MapFile>3</DCC_MapFile>
|
||||
<DCC_ExeOutput>..\..\Output\Release\Servidor</DCC_ExeOutput>
|
||||
<DCC_Define>RELEASE</DCC_Define>
|
||||
</PropertyGroup>
|
||||
<PropertyGroup Condition=" '$(Configuration)|$(Platform)' == 'Debug|AnyCPU' ">
|
||||
<Version>7.0</Version>
|
||||
<DCC_MapFile>3</DCC_MapFile>
|
||||
<DCC_ExeOutput>..\..\Output\Debug\Servidor</DCC_ExeOutput>
|
||||
<DCC_Define>DEBUG;</DCC_Define>
|
||||
<DCC_GenerateStackFrames>True</DCC_GenerateStackFrames>
|
||||
<DCC_DebugInfoInExe>True</DCC_DebugInfoInExe>
|
||||
<DCC_DebugVN>True</DCC_DebugVN>
|
||||
<DCC_UnitSearchPath>$(BDS)\Lib\Debug\Indy10;$(BDS)\lib\Debug</DCC_UnitSearchPath>
|
||||
<DCC_ResourcePath>$(BDS)\Lib\Debug\Indy10;$(BDS)\lib\Debug</DCC_ResourcePath>
|
||||
<DCC_ObjPath>$(BDS)\Lib\Debug\Indy10;$(BDS)\lib\Debug</DCC_ObjPath>
|
||||
<DCC_IncludePath>$(BDS)\Lib\Debug\Indy10;$(BDS)\lib\Debug</DCC_IncludePath>
|
||||
</PropertyGroup>
|
||||
<ProjectExtensions>
|
||||
<Borland.Personality>Delphi.Personality</Borland.Personality>
|
||||
<Borland.ProjectType/>
|
||||
<BorlandProject>
|
||||
<BorlandProject><Delphi.Personality><Parameters><Parameters Name="UseLauncher">False</Parameters><Parameters Name="LoadAllSymbols">True</Parameters><Parameters Name="LoadUnspecifiedSymbols">False</Parameters><Parameters Name="RunParams">/standalone</Parameters></Parameters><VersionInfo><VersionInfo Name="IncludeVerInfo">True</VersionInfo><VersionInfo Name="AutoIncBuild">False</VersionInfo><VersionInfo Name="MajorVer">1</VersionInfo><VersionInfo Name="MinorVer">0</VersionInfo><VersionInfo Name="Release">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>
|
||||
</ProjectExtensions>
|
||||
<Import Project="$(MSBuildBinPath)\Borland.Delphi.Targets"/>
|
||||
<ItemGroup>
|
||||
<DelphiCompile Include="FactuGES_Server.dpr">
|
||||
<MainSource>MainSource</MainSource>
|
||||
</DelphiCompile>
|
||||
<DCCReference Include="..\ApplicationBase\Empresas\Model\schEmpresasClient_Intf.pas"/>
|
||||
<DCCReference Include="..\ApplicationBase\Empresas\Model\schEmpresasServer_Intf.pas"/>
|
||||
<DCCReference Include="..\ApplicationBase\Empresas\Model\uBizEmpresasServer.pas"/>
|
||||
<DCCReference Include="..\ApplicationBase\Empresas\Servidor\srvEmpresas_Impl.pas">
|
||||
<Form>srvEmpresas</Form>
|
||||
<DesignClass>TDARemoteService</DesignClass>
|
||||
</DCCReference>
|
||||
<DCCReference Include="..\ApplicationBase\ProvinciasPoblaciones\Servidor\srvProvinciasPoblaciones_Impl.pas">
|
||||
<Form>srvProvinciasPoblaciones_Impl</Form>
|
||||
<DesignClass>TDataModule</DesignClass>
|
||||
</DCCReference>
|
||||
<DCCReference Include="..\ApplicationBase\Usuarios\Model\schUsuariosClient_Intf.pas"/>
|
||||
<DCCReference Include="..\ApplicationBase\Usuarios\Model\schUsuariosServer_Intf.pas"/>
|
||||
<DCCReference Include="..\ApplicationBase\Usuarios\Servidor\srvUsuarios_Impl.pas">
|
||||
<Form>srvUsuarios</Form>
|
||||
<DesignClass>TDataAbstractService</DesignClass>
|
||||
</DCCReference>
|
||||
<DCCReference Include="..\Base\schBase_Intf.pas"/>
|
||||
<DCCReference Include="..\Base\Utiles\uSistemaFunc.pas"/>
|
||||
<DCCReference Include="..\Base\Utiles\uStringsUtils.pas"/>
|
||||
<DCCReference Include="..\Modulos\Albaranes de cliente\Model\schAlbaranesClienteClient_Intf.pas"/>
|
||||
<DCCReference Include="..\Modulos\Albaranes de cliente\Model\schAlbaranesClienteServer_Intf.pas"/>
|
||||
<DCCReference Include="..\Modulos\Albaranes de cliente\Model\uBizAlbaranClienteServer.pas"/>
|
||||
<DCCReference Include="..\Modulos\Albaranes de cliente\Reports\uRptAlbaranesCliente_Server.pas">
|
||||
<Form>RptAlbaranesCliente</Form>
|
||||
<DesignClass>TDataModule</DesignClass>
|
||||
</DCCReference>
|
||||
<DCCReference Include="..\Modulos\Albaranes de cliente\Reports\uRptWordAlbaranCliente.pas">
|
||||
<Form>RptWordAlbaranCliente</Form>
|
||||
<DesignClass>TDataModule</DesignClass>
|
||||
</DCCReference>
|
||||
<DCCReference Include="..\Modulos\Albaranes de cliente\Servidor\srvAlbaranesCliente_Impl.pas">
|
||||
<Form>srvAlbaranesCliente</Form>
|
||||
<DesignClass>TDataAbstractService</DesignClass>
|
||||
</DCCReference>
|
||||
<DCCReference Include="..\Modulos\Albaranes de proveedor\Model\schAlbaranesProveedorClient_Intf.pas"/>
|
||||
<DCCReference Include="..\Modulos\Albaranes de proveedor\Model\schAlbaranesProveedorServer_Intf.pas"/>
|
||||
<DCCReference Include="..\Modulos\Albaranes de proveedor\Model\uBizAlbaranProveedorServer.PAS"/>
|
||||
<DCCReference Include="..\Modulos\Albaranes de proveedor\Reports\uRptAlbaranesProveedor_Server.pas">
|
||||
<Form>RptAlbaranesProveedor</Form>
|
||||
<DesignClass>TDataModule</DesignClass>
|
||||
</DCCReference>
|
||||
<DCCReference Include="..\Modulos\Albaranes de proveedor\Reports\uRptWordAlbaranProveedor.pas">
|
||||
<Form>RptWordAlbaranProveedor</Form>
|
||||
<DesignClass>TDataModule</DesignClass>
|
||||
</DCCReference>
|
||||
<DCCReference Include="..\Modulos\Albaranes de proveedor\Servidor\srvAlbaranesProveedor_Impl.pas">
|
||||
<Form>srvAlbaranesProveedor</Form>
|
||||
<DesignClass>TDataAbstractService</DesignClass>
|
||||
</DCCReference>
|
||||
<DCCReference Include="..\Modulos\Almacenes\Model\schAlmacenesClient_Intf.pas"/>
|
||||
<DCCReference Include="..\Modulos\Almacenes\Model\schAlmacenesServer_Intf.pas"/>
|
||||
<DCCReference Include="..\Modulos\Almacenes\Servidor\srvAlmacenes_Impl.pas">
|
||||
<Form>srvAlmacenes</Form>
|
||||
<DesignClass>TDARemoteService</DesignClass>
|
||||
</DCCReference>
|
||||
<DCCReference Include="..\Modulos\Articulos\Model\schArticulosClient_Intf.pas"/>
|
||||
<DCCReference Include="..\Modulos\Articulos\Model\schArticulosServer_Intf.pas"/>
|
||||
<DCCReference Include="..\Modulos\Articulos\Model\uBizArticulosServer.pas"/>
|
||||
<DCCReference Include="..\Modulos\Articulos\Servidor\srvArticulos_Impl.pas">
|
||||
<Form>srvArticulos</Form>
|
||||
<DesignClass>TDARemoteService</DesignClass>
|
||||
</DCCReference>
|
||||
<DCCReference Include="..\Modulos\Contactos\Model\schContactosClient_Intf.pas"/>
|
||||
<DCCReference Include="..\Modulos\Contactos\Model\schContactosServer_Intf.pas"/>
|
||||
<DCCReference Include="..\Modulos\Contactos\Model\uBizClientesServer.pas"/>
|
||||
<DCCReference Include="..\Modulos\Contactos\Model\uBizContactosServer.pas"/>
|
||||
<DCCReference Include="..\Modulos\Contactos\Model\uBizEmpleadosServer.pas"/>
|
||||
<DCCReference Include="..\Modulos\Contactos\Model\uBizProveedoresServer.pas"/>
|
||||
<DCCReference Include="..\Modulos\Contactos\Model\uBizVendedoresServer.pas"/>
|
||||
<DCCReference Include="..\Modulos\Contactos\Reports\uRptEtiquetasContacto_Server.pas">
|
||||
<Form>RptEtiquetasContacto</Form>
|
||||
<DesignClass>TDataModule</DesignClass>
|
||||
</DCCReference>
|
||||
<DCCReference Include="..\Modulos\Contactos\Reports\uRptFichasEmpleado_Server.pas">
|
||||
<Form>RptFichasEmpleado</Form>
|
||||
<DesignClass>TDataModule</DesignClass>
|
||||
</DCCReference>
|
||||
<DCCReference Include="..\Modulos\Contactos\Servidor\srvContactos_Impl.pas">
|
||||
<Form>srvContactos</Form>
|
||||
<DesignClass>TDARemoteService</DesignClass>
|
||||
</DCCReference>
|
||||
<DCCReference Include="..\Modulos\Fabricantes\Model\schFabricantesClient_Intf.pas"/>
|
||||
<DCCReference Include="..\Modulos\Fabricantes\Model\schFabricantesServer_Intf.pas"/>
|
||||
<DCCReference Include="..\Modulos\Fabricantes\Servidor\srvFabricantes_Impl.pas">
|
||||
<Form>srvFabricantes</Form>
|
||||
<DesignClass>TDataAbstractService</DesignClass>
|
||||
</DCCReference>
|
||||
<DCCReference Include="..\Modulos\Facturas de cliente\Model\schFacturasClienteClient_Intf.pas"/>
|
||||
<DCCReference Include="..\Modulos\Facturas de cliente\Model\schFacturasClienteServer_Intf.pas"/>
|
||||
<DCCReference Include="..\Modulos\Facturas de cliente\Model\uBizFacturasClienteServer.pas"/>
|
||||
<DCCReference Include="..\Modulos\Facturas de cliente\Reports\uRptFacturasCliente_Server.pas">
|
||||
<Form>RptFacturasCliente</Form>
|
||||
<DesignClass>TDataModule</DesignClass>
|
||||
</DCCReference>
|
||||
<DCCReference Include="..\Modulos\Facturas de cliente\Reports\uRptWordFacturaCliente.pas">
|
||||
<Form>RptWordFacturaCliente</Form>
|
||||
<DesignClass>TDataModule</DesignClass>
|
||||
</DCCReference>
|
||||
<DCCReference Include="..\Modulos\Facturas de cliente\Servidor\srvFacturasCliente_Impl.pas">
|
||||
<Form>srvFacturasCliente</Form>
|
||||
<DesignClass>TDataAbstractService</DesignClass>
|
||||
</DCCReference>
|
||||
<DCCReference Include="..\Modulos\Facturas de proveedor\Model\schFacturasProveedorClient_Intf.pas"/>
|
||||
<DCCReference Include="..\Modulos\Facturas de proveedor\Model\schFacturasProveedorServer_Intf.pas"/>
|
||||
<DCCReference Include="..\Modulos\Facturas de proveedor\Model\uBizFacturasProveedorServer.pas"/>
|
||||
<DCCReference Include="..\Modulos\Facturas de proveedor\Reports\uRptFacturasProveedor_Server.pas">
|
||||
<Form>RptFacturasProveedor</Form>
|
||||
<DesignClass>TDataModule</DesignClass>
|
||||
</DCCReference>
|
||||
<DCCReference Include="..\Modulos\Facturas de proveedor\Servidor\srvFacturasProveedor_Impl.pas">
|
||||
<Form>srvFacturasProveedor</Form>
|
||||
<DesignClass>TDataAbstractService</DesignClass>
|
||||
</DCCReference>
|
||||
<DCCReference Include="..\Modulos\Familias\Model\schFamiliasClient_Intf.pas"/>
|
||||
<DCCReference Include="..\Modulos\Familias\Model\schFamiliasServer_Intf.pas"/>
|
||||
<DCCReference Include="..\Modulos\Familias\Servidor\srvFamilias_Impl.pas">
|
||||
<Form>srvFamilias</Form>
|
||||
<DesignClass>TDataAbstractService</DesignClass>
|
||||
</DCCReference>
|
||||
<DCCReference Include="..\Modulos\Formas de pago\Model\schFormasPagoClient_Intf.pas"/>
|
||||
<DCCReference Include="..\Modulos\Formas de pago\Model\schFormasPagoServer_Intf.pas"/>
|
||||
<DCCReference Include="..\Modulos\Formas de pago\Servidor\srvFormasPago_Impl.pas">
|
||||
<Form>srvFormasPago</Form>
|
||||
<DesignClass>TDataAbstractService</DesignClass>
|
||||
</DCCReference>
|
||||
<DCCReference Include="..\Modulos\Gestion de documentos\Servidor\srvGestorDocumentos_Impl.pas">
|
||||
<Form>srvGestorDocumentos</Form>
|
||||
<DesignClass>TDataAbstractService</DesignClass>
|
||||
</DCCReference>
|
||||
<DCCReference Include="..\Modulos\Gestor de informes\Servidor\srvGestorInformes_Impl.pas">
|
||||
<Form>srvGestorInformes</Form>
|
||||
<DesignClass>TDataAbstractService</DesignClass>
|
||||
</DCCReference>
|
||||
<DCCReference Include="..\Modulos\Historico de movimientos\Model\schHistoricoMovimientosClient_Intf.pas"/>
|
||||
<DCCReference Include="..\Modulos\Historico de movimientos\Model\schHistoricoMovimientosServer_Intf.pas"/>
|
||||
<DCCReference Include="..\Modulos\Historico de movimientos\Servidor\srvHistoricoMovimientos_Impl.pas">
|
||||
<Form>srvHistoricoMovimientos</Form>
|
||||
<DesignClass>TDataAbstractService</DesignClass>
|
||||
</DCCReference>
|
||||
<DCCReference Include="..\Modulos\Inventario\Model\schInventarioClient_Intf.pas"/>
|
||||
<DCCReference Include="..\Modulos\Inventario\Model\schInventarioServer_Intf.pas"/>
|
||||
<DCCReference Include="..\Modulos\Inventario\Servidor\srvInventario_Impl.pas">
|
||||
<Form>srvInventario</Form>
|
||||
<DesignClass>TDataAbstractService</DesignClass>
|
||||
</DCCReference>
|
||||
<DCCReference Include="..\Modulos\Obras\Model\schObrasClient_Intf.pas"/>
|
||||
<DCCReference Include="..\Modulos\Obras\Model\schObrasServer_Intf.pas"/>
|
||||
<DCCReference Include="..\Modulos\Obras\Model\uBizObrasServer.pas"/>
|
||||
<DCCReference Include="..\Modulos\Obras\Servidor\srvObras_Impl.pas">
|
||||
<Form>srvObras</Form>
|
||||
<DesignClass>TDataAbstractService</DesignClass>
|
||||
</DCCReference>
|
||||
<DCCReference Include="..\Modulos\Pedidos a proveedor\Model\schPedidosProveedorClient_Intf.pas"/>
|
||||
<DCCReference Include="..\Modulos\Pedidos a proveedor\Model\schPedidosProveedorServer_Intf.pas"/>
|
||||
<DCCReference Include="..\Modulos\Pedidos a proveedor\Model\uBizPedidosProveedorServer.pas"/>
|
||||
<DCCReference Include="..\Modulos\Pedidos a proveedor\Reports\uRptPedidosProveedor_Server.pas">
|
||||
<Form>RptPedidosProveedor</Form>
|
||||
<DesignClass>TDataModule</DesignClass>
|
||||
</DCCReference>
|
||||
<DCCReference Include="..\Modulos\Pedidos a proveedor\Reports\uRptWordPedidoProveedor.pas">
|
||||
<Form>RptWordPedidoProveedor</Form>
|
||||
<DesignClass>TDataModule</DesignClass>
|
||||
</DCCReference>
|
||||
<DCCReference Include="..\Modulos\Pedidos a proveedor\Servidor\srvPedidosProveedor_Impl.pas">
|
||||
<Form>srvPedidosProveedor</Form>
|
||||
<DesignClass>TDataAbstractService</DesignClass>
|
||||
</DCCReference>
|
||||
<DCCReference Include="..\Modulos\Pedidos de cliente\Model\schPedidosClienteClient_Intf.pas"/>
|
||||
<DCCReference Include="..\Modulos\Pedidos de cliente\Model\schPedidosClienteServer_Intf.pas"/>
|
||||
<DCCReference Include="..\Modulos\Pedidos de cliente\Model\uBizPedidosClienteServer.pas"/>
|
||||
<DCCReference Include="..\Modulos\Pedidos de cliente\Servidor\srvPedidosCliente_Impl.pas">
|
||||
<Form>srvPedidosCliente</Form>
|
||||
<DesignClass>TDataAbstractService</DesignClass>
|
||||
</DCCReference>
|
||||
<DCCReference Include="..\Modulos\Presupuestos de cliente\Model\schPresupuestosClienteClient_Intf.pas"/>
|
||||
<DCCReference Include="..\Modulos\Presupuestos de cliente\Model\schPresupuestosClienteServer_Intf.pas"/>
|
||||
<DCCReference Include="..\Modulos\Presupuestos de cliente\Model\uBizPresupuestosClienteServer.pas"/>
|
||||
<DCCReference Include="..\Modulos\Presupuestos de cliente\Reports\uRptPresupuestosCliente_Server.pas">
|
||||
<Form>RptPresupuestosCliente</Form>
|
||||
<DesignClass>TDataModule</DesignClass>
|
||||
</DCCReference>
|
||||
<DCCReference Include="..\Modulos\Presupuestos de cliente\Reports\uRptWordCertificadoTrabajo_Server.pas">
|
||||
<Form>RptWordCertificadoTrabajo</Form>
|
||||
<DesignClass>TDataModule</DesignClass>
|
||||
</DCCReference>
|
||||
<DCCReference Include="..\Modulos\Presupuestos de cliente\Reports\uRptWordPresupuestoCliente.pas">
|
||||
<Form>RptWordPresupuestoCliente</Form>
|
||||
<DesignClass>TDataModule</DesignClass>
|
||||
</DCCReference>
|
||||
<DCCReference Include="..\Modulos\Presupuestos de cliente\Servidor\srvPresupuestosCliente_Impl.pas">
|
||||
<Form>srvPresupuestosCliente</Form>
|
||||
<DesignClass>TDataAbstractService</DesignClass>
|
||||
</DCCReference>
|
||||
<DCCReference Include="..\Modulos\Recibos de cliente\Model\schRecibosClienteClient_Intf.pas"/>
|
||||
<DCCReference Include="..\Modulos\Recibos de cliente\Model\schRecibosClienteServer_Intf.pas"/>
|
||||
<DCCReference Include="..\Modulos\Recibos de cliente\Reports\uRptRecibosCliente_Server.pas">
|
||||
<Form>RptRecibosCliente</Form>
|
||||
<DesignClass>TDataModule</DesignClass>
|
||||
</DCCReference>
|
||||
<DCCReference Include="..\Modulos\Recibos de cliente\Servidor\srvRecibosCliente_Impl.pas">
|
||||
<Form>srvRecibosCliente</Form>
|
||||
<DesignClass>TDataAbstractService</DesignClass>
|
||||
</DCCReference>
|
||||
<DCCReference Include="..\Modulos\Recibos de proveedor\Model\schRecibosProveedorClient_Intf.pas"/>
|
||||
<DCCReference Include="..\Modulos\Recibos de proveedor\Model\schRecibosProveedorServer_Intf.pas"/>
|
||||
<DCCReference Include="..\Modulos\Recibos de proveedor\Reports\uRptRecibosProveedor_Server.pas">
|
||||
<Form>RptRecibosProveedor</Form>
|
||||
<DesignClass>TDataModule</DesignClass>
|
||||
</DCCReference>
|
||||
<DCCReference Include="..\Modulos\Recibos de proveedor\Servidor\srvRecibosProveedor_Impl.pas">
|
||||
<Form>srvRecibosProveedor</Form>
|
||||
<DesignClass>TDataAbstractService</DesignClass>
|
||||
</DCCReference>
|
||||
<DCCReference Include="..\Modulos\Referencias\Model\schReferenciasClient_Intf.pas"/>
|
||||
<DCCReference Include="..\Modulos\Referencias\Model\schReferenciasServer_Intf.pas"/>
|
||||
<DCCReference Include="..\Modulos\Referencias\Servidor\srvReferencias_Impl.pas">
|
||||
<Form>srvReferencias</Form>
|
||||
<DesignClass>TDataAbstractService</DesignClass>
|
||||
</DCCReference>
|
||||
<DCCReference Include="..\Modulos\Remesas de cliente\Model\schRemesasClienteClient_Intf.pas"/>
|
||||
<DCCReference Include="..\Modulos\Remesas de cliente\Model\schRemesasClienteServer_Intf.pas"/>
|
||||
<DCCReference Include="..\Modulos\Remesas de cliente\Model\uBizRemesasClienteServer.pas"/>
|
||||
<DCCReference Include="..\Modulos\Remesas de cliente\Reports\uRptRemesasCliente_Server.pas">
|
||||
<Form>RptRemesasCliente</Form>
|
||||
<DesignClass>TDataModule</DesignClass>
|
||||
</DCCReference>
|
||||
<DCCReference Include="..\Modulos\Remesas de cliente\Servidor\srvRemesasCliente_Impl.pas">
|
||||
<Form>srvRemesasCliente</Form>
|
||||
<DesignClass>TDataAbstractService</DesignClass>
|
||||
</DCCReference>
|
||||
<DCCReference Include="..\Modulos\Remesas de proveedor\Model\schRemesasProveedorClient_Intf.pas"/>
|
||||
<DCCReference Include="..\Modulos\Remesas de proveedor\Model\schRemesasProveedorServer_Intf.pas"/>
|
||||
<DCCReference Include="..\Modulos\Remesas de proveedor\Model\uBizRemesasProveedorServer.pas"/>
|
||||
<DCCReference Include="..\Modulos\Remesas de proveedor\Servidor\srvRemesasProveedor_Impl.pas">
|
||||
<Form>srvRemesasProveedor</Form>
|
||||
<DesignClass>TDataAbstractService</DesignClass>
|
||||
</DCCReference>
|
||||
<DCCReference Include="..\Modulos\Tipos de IVA\Model\schTiposIVAClient_Intf.pas"/>
|
||||
<DCCReference Include="..\Modulos\Tipos de IVA\Model\schTiposIVAServer_Intf.pas"/>
|
||||
<DCCReference Include="..\Modulos\Tipos de IVA\Servidor\srvTiposIVA_Impl.pas">
|
||||
<Form>srvTiposIVA</Form>
|
||||
<DesignClass>TDataAbstractService</DesignClass>
|
||||
</DCCReference>
|
||||
<DCCReference Include="..\Modulos\Unidades de medida\Model\schUnidadesMedidaClient_Intf.pas"/>
|
||||
<DCCReference Include="..\Modulos\Unidades de medida\Model\schUnidadesMedidaServer_Intf.pas"/>
|
||||
<DCCReference Include="..\Modulos\Unidades de medida\Servidor\srvUnidadesMedida_Impl.pas">
|
||||
<Form>srvUnidadesMedida</Form>
|
||||
<DesignClass>TDataAbstractService</DesignClass>
|
||||
</DCCReference>
|
||||
<DCCReference Include="..\Servicios\FactuGES_Intf.pas"/>
|
||||
<DCCReference Include="..\Servicios\FactuGES_Invk.pas"/>
|
||||
<DCCReference Include="Configuracion\srvConfiguracion_Impl.pas">
|
||||
<Form>srvConfiguracion</Form>
|
||||
<DesignClass>TDataAbstractService</DesignClass>
|
||||
</DCCReference>
|
||||
<DCCReference Include="Configuracion\uConexionBD.pas">
|
||||
<Form>frConexionBD</Form>
|
||||
<DesignClass>TFrame</DesignClass>
|
||||
</DCCReference>
|
||||
<DCCReference Include="Configuracion\uConfGeneral.pas">
|
||||
<Form>frConfGeneral</Form>
|
||||
<DesignClass>TFrame</DesignClass>
|
||||
</DCCReference>
|
||||
<DCCReference Include="Configuracion\uConfiguracion.pas">
|
||||
<Form>fConfiguracion</Form>
|
||||
<DesignClass>TForm</DesignClass>
|
||||
</DCCReference>
|
||||
<DCCReference Include="Configuracion\uFrameConfiguracion.pas">
|
||||
<Form>FrameConfiguracion</Form>
|
||||
<DesignClass>TFrame</DesignClass>
|
||||
</DCCReference>
|
||||
<DCCReference Include="srvLogin_Impl.pas">
|
||||
<Form>srvLogin</Form>
|
||||
<DesignClass>TDARemoteService</DesignClass>
|
||||
</DCCReference>
|
||||
<DCCReference Include="uAcercaDe.pas">
|
||||
<Form>fAcercaDe</Form>
|
||||
</DCCReference>
|
||||
<DCCReference Include="uDataModuleServer.pas">
|
||||
<Form>dmServer</Form>
|
||||
<DesignClass>TDataModule</DesignClass>
|
||||
</DCCReference>
|
||||
<DCCReference Include="uServerMainForm.pas">
|
||||
<Form>fServerForm</Form>
|
||||
</DCCReference>
|
||||
<DCCReference Include="Utiles\AHWord97.pas"/>
|
||||
<DCCReference Include="Utiles\MidasSpeedFix.pas"/>
|
||||
<DCCReference Include="Utiles\RegExpr.pas"/>
|
||||
<DCCReference Include="Utiles\uBusinessUtils.pas"/>
|
||||
<DCCReference Include="Utiles\uDatabaseUtils.pas"/>
|
||||
<DCCReference Include="Utiles\uReferenciasUtils.pas"/>
|
||||
<DCCReference Include="Utiles\uRestriccionesUsuarioUtils.pas"/>
|
||||
<DCCReference Include="Utiles\uSchemaUtilsServer.pas"/>
|
||||
<DCCReference Include="Utiles\uServerAppUtils.pas"/>
|
||||
<DCCReference Include="Utiles\uSesionesUtils.pas"/>
|
||||
</ItemGroup>
|
||||
<PropertyGroup>
|
||||
<ProjectGuid>{ebdcd25d-40d7-4146-91ec-a0ea4aa1dcd1}</ProjectGuid>
|
||||
<MainSource>FactuGES_Server.dpr</MainSource>
|
||||
<Configuration Condition=" '$(Configuration)' == '' ">Debug</Configuration>
|
||||
<Platform Condition=" '$(Platform)' == '' ">AnyCPU</Platform>
|
||||
<DCC_DCCCompiler>DCC32</DCC_DCCCompiler>
|
||||
<DCC_DependencyCheckOutputName>..\..\Output\Debug\Servidor\FactuGES_Server.exe</DCC_DependencyCheckOutputName>
|
||||
<DCC_UsePackage>vcl;rtl;vclx;vclactnband;dbrtl;vcldb;vcldbx;bdertl;dsnap;dsnapcon;teeUI;teedb;tee;adortl;vclib;ibxpress;dbxcds;dbexpress;DbxCommonDriver;IndyCore;IndySystem;IndyProtocols;VclSmp;vclie;webdsnap;xmlrtl;inet;inetdbbde;inetdbxpress;RemObjects_BPDX_D11;RemObjects_RODX_D11;RemObjects_Indy_D11;RemObjects_Synapse_D11;RemObjects_WebBroker_D11;DataAbstract_Core_D11;DataAbstract_DBXDriver_D11;DataAbstract_IDE_D11;DataAbstract_Scripting_D11;DataAbstract_SDACDriver_D11;sdac105;dac105;DataAbstract_SQLiteDriver_D11;cxEditorsD10;cxLibraryD10;dxThemeD10;cxDataD10;cxExtEditorsD10;cxGridD10;cxPageControlD10;cxSchedulerD10;cxTreeListD10;cxVerticalGridD10;dxBarD10;dxComnD10;dxBarDBNavD10;dxBarExtDBItemsD10;dxBarExtItemsD10;dxDockingD10;dxLayoutControlD10;dxNavBarD10;dxPSCoreD10;dxsbD10;dxPScxCommonD10;dxPSLnksD10;vclshlctrls;dxPScxExtCommonD10;dxPScxGridLnkD10;dxPScxPCProdD10;dxPScxScheduler2LnkD10;dxPScxTLLnkD10;dxPSdxLCLnkD10;dxPsPrVwAdvD10;pckMD5;pckUCDataConnector;pckUserControl_RT;PluginSDK_D10R;PNG_D10;PngComponentsD10;tb2k_d11;SpTBXLib_d11;JclVcl;Jcl;JvXPCtrlsD11R;JvCoreD11R;JvSystemD11R;JvStdCtrlsD11R;JvAppFrmD11R;JvBandsD11R;JvDBD11R;JvDlgsD11R;JvBDED11R;JvCmpD11R;JvCryptD11R;JvCtrlsD11R;JvCustomD11R;JvDockingD11R;JvDotNetCtrlsD11R;JvEDID11R;JvGlobusD11R;JvHMID11R;JvInterpreterD11R;JvJansD11R;JvManagedThreadsD11R;JvMMD11R;JvNetD11R;JvPageCompsD11R;JvPluginD11R;JvPrintPreviewD11R;JvRuntimeDesignD11R;JvTimeFrameworkD11R;JvUIBD11R;JvValidatorsD11R;JvWizardD11R;pckUCADOConn;pckUCBDEConn;pckUCIBXConn;pckUCMidasConn;cxExportD10;GUISDK_D11R;ccpackD11;JSDialog100;fsTee11;fs11;frx11;frxADO11;frxBDE11;frxDB11;frxDBX11;frxe11;frxIBX11;frxTee11;fsADO11;fsBDE11;fsDB11;fsIBX11;websnap;soaprtl;IntrawebDB_90_100;Intraweb_90_100</DCC_UsePackage>
|
||||
</PropertyGroup>
|
||||
<PropertyGroup Condition=" '$(Configuration)|$(Platform)' == 'Release|AnyCPU' ">
|
||||
<Version>7.0</Version>
|
||||
<DCC_DebugInformation>False</DCC_DebugInformation>
|
||||
<DCC_LocalDebugSymbols>False</DCC_LocalDebugSymbols>
|
||||
<DCC_SymbolReferenceInfo>0</DCC_SymbolReferenceInfo>
|
||||
<DCC_MapFile>3</DCC_MapFile>
|
||||
<DCC_ExeOutput>..\..\Output\Release\Servidor</DCC_ExeOutput>
|
||||
<DCC_Define>RELEASE</DCC_Define>
|
||||
</PropertyGroup>
|
||||
<PropertyGroup Condition=" '$(Configuration)|$(Platform)' == 'Debug|AnyCPU' ">
|
||||
<Version>7.0</Version>
|
||||
<DCC_MapFile>3</DCC_MapFile>
|
||||
<DCC_ExeOutput>..\..\Output\Debug\Servidor</DCC_ExeOutput>
|
||||
<DCC_Define>DEBUG;</DCC_Define>
|
||||
<DCC_GenerateStackFrames>True</DCC_GenerateStackFrames>
|
||||
<DCC_DebugInfoInExe>True</DCC_DebugInfoInExe>
|
||||
<DCC_DebugVN>True</DCC_DebugVN>
|
||||
<DCC_UnitSearchPath>$(BDS)\Lib\Debug\Indy10;$(BDS)\lib\Debug</DCC_UnitSearchPath>
|
||||
<DCC_ResourcePath>$(BDS)\Lib\Debug\Indy10;$(BDS)\lib\Debug</DCC_ResourcePath>
|
||||
<DCC_ObjPath>$(BDS)\Lib\Debug\Indy10;$(BDS)\lib\Debug</DCC_ObjPath>
|
||||
<DCC_IncludePath>$(BDS)\Lib\Debug\Indy10;$(BDS)\lib\Debug</DCC_IncludePath>
|
||||
</PropertyGroup>
|
||||
<ProjectExtensions>
|
||||
<Borland.Personality>Delphi.Personality</Borland.Personality>
|
||||
<Borland.ProjectType />
|
||||
<BorlandProject>
|
||||
<BorlandProject><Delphi.Personality><Parameters><Parameters Name="UseLauncher">False</Parameters><Parameters Name="LoadAllSymbols">True</Parameters><Parameters Name="LoadUnspecifiedSymbols">False</Parameters><Parameters Name="RunParams">/standalone</Parameters></Parameters><VersionInfo><VersionInfo Name="IncludeVerInfo">True</VersionInfo><VersionInfo Name="AutoIncBuild">False</VersionInfo><VersionInfo Name="MajorVer">1</VersionInfo><VersionInfo Name="MinorVer">0</VersionInfo><VersionInfo Name="Release">2</VersionInfo><VersionInfo Name="Build">0</VersionInfo><VersionInfo Name="Debug">False</VersionInfo><VersionInfo Name="PreRelease">False</VersionInfo><VersionInfo Name="Special">False</VersionInfo><VersionInfo Name="Private">False</VersionInfo><VersionInfo Name="DLL">False</VersionInfo><VersionInfo Name="Locale">3082</VersionInfo><VersionInfo Name="CodePage">1252</VersionInfo></VersionInfo><VersionInfoKeys><VersionInfoKeys Name="CompanyName">Rodax Software S.L.</VersionInfoKeys><VersionInfoKeys Name="FileDescription"></VersionInfoKeys><VersionInfoKeys Name="FileVersion">1.0.2.0</VersionInfoKeys><VersionInfoKeys Name="InternalName">FactuGES Servidor</VersionInfoKeys><VersionInfoKeys Name="LegalCopyright"></VersionInfoKeys><VersionInfoKeys Name="LegalTrademarks"></VersionInfoKeys><VersionInfoKeys Name="OriginalFilename"></VersionInfoKeys><VersionInfoKeys Name="ProductName">FactuGES Servidor</VersionInfoKeys><VersionInfoKeys Name="ProductVersion">1.0.2.0</VersionInfoKeys><VersionInfoKeys Name="Comments"></VersionInfoKeys><VersionInfoKeys Name="CompileDate">jueves, 18 de febrero de 2010 12:17</VersionInfoKeys></VersionInfoKeys><Excluded_Packages></Excluded_Packages><Source><Source Name="MainSource">FactuGES_Server.dpr</Source></Source></Delphi.Personality></BorlandProject></BorlandProject>
|
||||
</ProjectExtensions>
|
||||
<Import Project="$(MSBuildBinPath)\Borland.Delphi.Targets" />
|
||||
<ItemGroup>
|
||||
<DelphiCompile Include="FactuGES_Server.dpr">
|
||||
<MainSource>MainSource</MainSource>
|
||||
</DelphiCompile>
|
||||
<DCCReference Include="..\ApplicationBase\Empresas\Model\schEmpresasClient_Intf.pas" />
|
||||
<DCCReference Include="..\ApplicationBase\Empresas\Model\schEmpresasServer_Intf.pas" />
|
||||
<DCCReference Include="..\ApplicationBase\Empresas\Model\uBizEmpresasServer.pas" />
|
||||
<DCCReference Include="..\ApplicationBase\Empresas\Servidor\srvEmpresas_Impl.pas">
|
||||
<Form>srvEmpresas</Form>
|
||||
<DesignClass>TDARemoteService</DesignClass>
|
||||
</DCCReference>
|
||||
<DCCReference Include="..\ApplicationBase\ProvinciasPoblaciones\Servidor\srvProvinciasPoblaciones_Impl.pas">
|
||||
<Form>srvProvinciasPoblaciones_Impl</Form>
|
||||
<DesignClass>TDataModule</DesignClass>
|
||||
</DCCReference>
|
||||
<DCCReference Include="..\ApplicationBase\Usuarios\Model\schUsuariosClient_Intf.pas" />
|
||||
<DCCReference Include="..\ApplicationBase\Usuarios\Model\schUsuariosServer_Intf.pas" />
|
||||
<DCCReference Include="..\ApplicationBase\Usuarios\Servidor\srvUsuarios_Impl.pas">
|
||||
<Form>srvUsuarios</Form>
|
||||
<DesignClass>TDataAbstractService</DesignClass>
|
||||
</DCCReference>
|
||||
<DCCReference Include="..\Base\schBase_Intf.pas" />
|
||||
<DCCReference Include="..\Base\Utiles\uSistemaFunc.pas" />
|
||||
<DCCReference Include="..\Base\Utiles\uStringsUtils.pas" />
|
||||
<DCCReference Include="..\Modulos\Albaranes de cliente\Model\schAlbaranesClienteClient_Intf.pas" />
|
||||
<DCCReference Include="..\Modulos\Albaranes de cliente\Model\schAlbaranesClienteServer_Intf.pas" />
|
||||
<DCCReference Include="..\Modulos\Albaranes de cliente\Model\uBizAlbaranClienteServer.pas" />
|
||||
<DCCReference Include="..\Modulos\Albaranes de cliente\Reports\uRptAlbaranesCliente_Server.pas">
|
||||
<Form>RptAlbaranesCliente</Form>
|
||||
<DesignClass>TDataModule</DesignClass>
|
||||
</DCCReference>
|
||||
<DCCReference Include="..\Modulos\Albaranes de cliente\Reports\uRptWordAlbaranCliente.pas">
|
||||
<Form>RptWordAlbaranCliente</Form>
|
||||
<DesignClass>TDataModule</DesignClass>
|
||||
</DCCReference>
|
||||
<DCCReference Include="..\Modulos\Albaranes de cliente\Servidor\srvAlbaranesCliente_Impl.pas">
|
||||
<Form>srvAlbaranesCliente</Form>
|
||||
<DesignClass>TDataAbstractService</DesignClass>
|
||||
</DCCReference>
|
||||
<DCCReference Include="..\Modulos\Albaranes de proveedor\Model\schAlbaranesProveedorClient_Intf.pas" />
|
||||
<DCCReference Include="..\Modulos\Albaranes de proveedor\Model\schAlbaranesProveedorServer_Intf.pas" />
|
||||
<DCCReference Include="..\Modulos\Albaranes de proveedor\Model\uBizAlbaranProveedorServer.PAS" />
|
||||
<DCCReference Include="..\Modulos\Albaranes de proveedor\Reports\uRptAlbaranesProveedor_Server.pas">
|
||||
<Form>RptAlbaranesProveedor</Form>
|
||||
<DesignClass>TDataModule</DesignClass>
|
||||
</DCCReference>
|
||||
<DCCReference Include="..\Modulos\Albaranes de proveedor\Reports\uRptWordAlbaranProveedor.pas">
|
||||
<Form>RptWordAlbaranProveedor</Form>
|
||||
<DesignClass>TDataModule</DesignClass>
|
||||
</DCCReference>
|
||||
<DCCReference Include="..\Modulos\Albaranes de proveedor\Servidor\srvAlbaranesProveedor_Impl.pas">
|
||||
<Form>srvAlbaranesProveedor</Form>
|
||||
<DesignClass>TDataAbstractService</DesignClass>
|
||||
</DCCReference>
|
||||
<DCCReference Include="..\Modulos\Almacenes\Model\schAlmacenesClient_Intf.pas" />
|
||||
<DCCReference Include="..\Modulos\Almacenes\Model\schAlmacenesServer_Intf.pas" />
|
||||
<DCCReference Include="..\Modulos\Almacenes\Servidor\srvAlmacenes_Impl.pas">
|
||||
<Form>srvAlmacenes</Form>
|
||||
<DesignClass>TDARemoteService</DesignClass>
|
||||
</DCCReference>
|
||||
<DCCReference Include="..\Modulos\Articulos\Model\schArticulosClient_Intf.pas" />
|
||||
<DCCReference Include="..\Modulos\Articulos\Model\schArticulosServer_Intf.pas" />
|
||||
<DCCReference Include="..\Modulos\Articulos\Model\uBizArticulosServer.pas" />
|
||||
<DCCReference Include="..\Modulos\Articulos\Servidor\srvArticulos_Impl.pas">
|
||||
<Form>srvArticulos</Form>
|
||||
<DesignClass>TDARemoteService</DesignClass>
|
||||
</DCCReference>
|
||||
<DCCReference Include="..\Modulos\Contactos\Model\schContactosClient_Intf.pas" />
|
||||
<DCCReference Include="..\Modulos\Contactos\Model\schContactosServer_Intf.pas" />
|
||||
<DCCReference Include="..\Modulos\Contactos\Model\uBizClientesServer.pas" />
|
||||
<DCCReference Include="..\Modulos\Contactos\Model\uBizContactosServer.pas" />
|
||||
<DCCReference Include="..\Modulos\Contactos\Model\uBizEmpleadosServer.pas" />
|
||||
<DCCReference Include="..\Modulos\Contactos\Model\uBizProveedoresServer.pas" />
|
||||
<DCCReference Include="..\Modulos\Contactos\Model\uBizVendedoresServer.pas" />
|
||||
<DCCReference Include="..\Modulos\Contactos\Reports\uRptEtiquetasContacto_Server.pas">
|
||||
<Form>RptEtiquetasContacto</Form>
|
||||
<DesignClass>TDataModule</DesignClass>
|
||||
</DCCReference>
|
||||
<DCCReference Include="..\Modulos\Contactos\Reports\uRptFichasEmpleado_Server.pas">
|
||||
<Form>RptFichasEmpleado</Form>
|
||||
<DesignClass>TDataModule</DesignClass>
|
||||
</DCCReference>
|
||||
<DCCReference Include="..\Modulos\Contactos\Servidor\srvContactos_Impl.pas">
|
||||
<Form>srvContactos</Form>
|
||||
<DesignClass>TDARemoteService</DesignClass>
|
||||
</DCCReference>
|
||||
<DCCReference Include="..\Modulos\Fabricantes\Model\schFabricantesClient_Intf.pas" />
|
||||
<DCCReference Include="..\Modulos\Fabricantes\Model\schFabricantesServer_Intf.pas" />
|
||||
<DCCReference Include="..\Modulos\Fabricantes\Servidor\srvFabricantes_Impl.pas">
|
||||
<Form>srvFabricantes</Form>
|
||||
<DesignClass>TDataAbstractService</DesignClass>
|
||||
</DCCReference>
|
||||
<DCCReference Include="..\Modulos\Facturas de cliente\Model\schFacturasClienteClient_Intf.pas" />
|
||||
<DCCReference Include="..\Modulos\Facturas de cliente\Model\schFacturasClienteServer_Intf.pas" />
|
||||
<DCCReference Include="..\Modulos\Facturas de cliente\Model\uBizFacturasClienteServer.pas" />
|
||||
<DCCReference Include="..\Modulos\Facturas de cliente\Reports\uRptFacturasCliente_Server.pas">
|
||||
<Form>RptFacturasCliente</Form>
|
||||
<DesignClass>TDataModule</DesignClass>
|
||||
</DCCReference>
|
||||
<DCCReference Include="..\Modulos\Facturas de cliente\Reports\uRptWordFacturaCliente.pas">
|
||||
<Form>RptWordFacturaCliente</Form>
|
||||
<DesignClass>TDataModule</DesignClass>
|
||||
</DCCReference>
|
||||
<DCCReference Include="..\Modulos\Facturas de cliente\Servidor\srvFacturasCliente_Impl.pas">
|
||||
<Form>srvFacturasCliente</Form>
|
||||
<DesignClass>TDataAbstractService</DesignClass>
|
||||
</DCCReference>
|
||||
<DCCReference Include="..\Modulos\Facturas de proveedor\Model\schFacturasProveedorClient_Intf.pas" />
|
||||
<DCCReference Include="..\Modulos\Facturas de proveedor\Model\schFacturasProveedorServer_Intf.pas" />
|
||||
<DCCReference Include="..\Modulos\Facturas de proveedor\Model\uBizFacturasProveedorServer.pas" />
|
||||
<DCCReference Include="..\Modulos\Facturas de proveedor\Reports\uRptFacturasProveedor_Server.pas">
|
||||
<Form>RptFacturasProveedor</Form>
|
||||
<DesignClass>TDataModule</DesignClass>
|
||||
</DCCReference>
|
||||
<DCCReference Include="..\Modulos\Facturas de proveedor\Servidor\srvFacturasProveedor_Impl.pas">
|
||||
<Form>srvFacturasProveedor</Form>
|
||||
<DesignClass>TDataAbstractService</DesignClass>
|
||||
</DCCReference>
|
||||
<DCCReference Include="..\Modulos\Familias\Model\schFamiliasClient_Intf.pas" />
|
||||
<DCCReference Include="..\Modulos\Familias\Model\schFamiliasServer_Intf.pas" />
|
||||
<DCCReference Include="..\Modulos\Familias\Servidor\srvFamilias_Impl.pas">
|
||||
<Form>srvFamilias</Form>
|
||||
<DesignClass>TDataAbstractService</DesignClass>
|
||||
</DCCReference>
|
||||
<DCCReference Include="..\Modulos\Formas de pago\Model\schFormasPagoClient_Intf.pas" />
|
||||
<DCCReference Include="..\Modulos\Formas de pago\Model\schFormasPagoServer_Intf.pas" />
|
||||
<DCCReference Include="..\Modulos\Formas de pago\Servidor\srvFormasPago_Impl.pas">
|
||||
<Form>srvFormasPago</Form>
|
||||
<DesignClass>TDataAbstractService</DesignClass>
|
||||
</DCCReference>
|
||||
<DCCReference Include="..\Modulos\Gestion de documentos\Servidor\srvGestorDocumentos_Impl.pas">
|
||||
<Form>srvGestorDocumentos</Form>
|
||||
<DesignClass>TDataAbstractService</DesignClass>
|
||||
</DCCReference>
|
||||
<DCCReference Include="..\Modulos\Gestor de informes\Servidor\srvGestorInformes_Impl.pas">
|
||||
<Form>srvGestorInformes</Form>
|
||||
<DesignClass>TDataAbstractService</DesignClass>
|
||||
</DCCReference>
|
||||
<DCCReference Include="..\Modulos\Historico de movimientos\Model\schHistoricoMovimientosClient_Intf.pas" />
|
||||
<DCCReference Include="..\Modulos\Historico de movimientos\Model\schHistoricoMovimientosServer_Intf.pas" />
|
||||
<DCCReference Include="..\Modulos\Historico de movimientos\Servidor\srvHistoricoMovimientos_Impl.pas">
|
||||
<Form>srvHistoricoMovimientos</Form>
|
||||
<DesignClass>TDataAbstractService</DesignClass>
|
||||
</DCCReference>
|
||||
<DCCReference Include="..\Modulos\Inventario\Model\schInventarioClient_Intf.pas" />
|
||||
<DCCReference Include="..\Modulos\Inventario\Model\schInventarioServer_Intf.pas" />
|
||||
<DCCReference Include="..\Modulos\Inventario\Servidor\srvInventario_Impl.pas">
|
||||
<Form>srvInventario</Form>
|
||||
<DesignClass>TDataAbstractService</DesignClass>
|
||||
</DCCReference>
|
||||
<DCCReference Include="..\Modulos\Obras\Model\schObrasClient_Intf.pas" />
|
||||
<DCCReference Include="..\Modulos\Obras\Model\schObrasServer_Intf.pas" />
|
||||
<DCCReference Include="..\Modulos\Obras\Model\uBizObrasServer.pas" />
|
||||
<DCCReference Include="..\Modulos\Obras\Servidor\srvObras_Impl.pas">
|
||||
<Form>srvObras</Form>
|
||||
<DesignClass>TDataAbstractService</DesignClass>
|
||||
</DCCReference>
|
||||
<DCCReference Include="..\Modulos\Pedidos a proveedor\Model\schPedidosProveedorClient_Intf.pas" />
|
||||
<DCCReference Include="..\Modulos\Pedidos a proveedor\Model\schPedidosProveedorServer_Intf.pas" />
|
||||
<DCCReference Include="..\Modulos\Pedidos a proveedor\Model\uBizPedidosProveedorServer.pas" />
|
||||
<DCCReference Include="..\Modulos\Pedidos a proveedor\Reports\uRptPedidosProveedor_Server.pas">
|
||||
<Form>RptPedidosProveedor</Form>
|
||||
<DesignClass>TDataModule</DesignClass>
|
||||
</DCCReference>
|
||||
<DCCReference Include="..\Modulos\Pedidos a proveedor\Reports\uRptWordPedidoProveedor.pas">
|
||||
<Form>RptWordPedidoProveedor</Form>
|
||||
<DesignClass>TDataModule</DesignClass>
|
||||
</DCCReference>
|
||||
<DCCReference Include="..\Modulos\Pedidos a proveedor\Servidor\srvPedidosProveedor_Impl.pas">
|
||||
<Form>srvPedidosProveedor</Form>
|
||||
<DesignClass>TDataAbstractService</DesignClass>
|
||||
</DCCReference>
|
||||
<DCCReference Include="..\Modulos\Pedidos de cliente\Model\schPedidosClienteClient_Intf.pas" />
|
||||
<DCCReference Include="..\Modulos\Pedidos de cliente\Model\schPedidosClienteServer_Intf.pas" />
|
||||
<DCCReference Include="..\Modulos\Pedidos de cliente\Model\uBizPedidosClienteServer.pas" />
|
||||
<DCCReference Include="..\Modulos\Pedidos de cliente\Servidor\srvPedidosCliente_Impl.pas">
|
||||
<Form>srvPedidosCliente</Form>
|
||||
<DesignClass>TDataAbstractService</DesignClass>
|
||||
</DCCReference>
|
||||
<DCCReference Include="..\Modulos\Presupuestos de cliente\Model\schPresupuestosClienteClient_Intf.pas" />
|
||||
<DCCReference Include="..\Modulos\Presupuestos de cliente\Model\schPresupuestosClienteServer_Intf.pas" />
|
||||
<DCCReference Include="..\Modulos\Presupuestos de cliente\Model\uBizPresupuestosClienteServer.pas" />
|
||||
<DCCReference Include="..\Modulos\Presupuestos de cliente\Reports\uRptPresupuestosCliente_Server.pas">
|
||||
<Form>RptPresupuestosCliente</Form>
|
||||
<DesignClass>TDataModule</DesignClass>
|
||||
</DCCReference>
|
||||
<DCCReference Include="..\Modulos\Presupuestos de cliente\Reports\uRptWordCertificadoTrabajo_Server.pas">
|
||||
<Form>RptWordCertificadoTrabajo</Form>
|
||||
<DesignClass>TDataModule</DesignClass>
|
||||
</DCCReference>
|
||||
<DCCReference Include="..\Modulos\Presupuestos de cliente\Reports\uRptWordPresupuestoCliente.pas">
|
||||
<Form>RptWordPresupuestoCliente</Form>
|
||||
<DesignClass>TDataModule</DesignClass>
|
||||
</DCCReference>
|
||||
<DCCReference Include="..\Modulos\Presupuestos de cliente\Servidor\srvPresupuestosCliente_Impl.pas">
|
||||
<Form>srvPresupuestosCliente</Form>
|
||||
<DesignClass>TDataAbstractService</DesignClass>
|
||||
</DCCReference>
|
||||
<DCCReference Include="..\Modulos\Recibos de cliente\Model\schRecibosClienteClient_Intf.pas" />
|
||||
<DCCReference Include="..\Modulos\Recibos de cliente\Model\schRecibosClienteServer_Intf.pas" />
|
||||
<DCCReference Include="..\Modulos\Recibos de cliente\Reports\uRptRecibosCliente_Server.pas">
|
||||
<Form>RptRecibosCliente</Form>
|
||||
<DesignClass>TDataModule</DesignClass>
|
||||
</DCCReference>
|
||||
<DCCReference Include="..\Modulos\Recibos de cliente\Servidor\srvRecibosCliente_Impl.pas">
|
||||
<Form>srvRecibosCliente</Form>
|
||||
<DesignClass>TDataAbstractService</DesignClass>
|
||||
</DCCReference>
|
||||
<DCCReference Include="..\Modulos\Recibos de proveedor\Model\schRecibosProveedorClient_Intf.pas" />
|
||||
<DCCReference Include="..\Modulos\Recibos de proveedor\Model\schRecibosProveedorServer_Intf.pas" />
|
||||
<DCCReference Include="..\Modulos\Recibos de proveedor\Reports\uRptRecibosProveedor_Server.pas">
|
||||
<Form>RptRecibosProveedor</Form>
|
||||
<DesignClass>TDataModule</DesignClass>
|
||||
</DCCReference>
|
||||
<DCCReference Include="..\Modulos\Recibos de proveedor\Servidor\srvRecibosProveedor_Impl.pas">
|
||||
<Form>srvRecibosProveedor</Form>
|
||||
<DesignClass>TDataAbstractService</DesignClass>
|
||||
</DCCReference>
|
||||
<DCCReference Include="..\Modulos\Referencias\Model\schReferenciasClient_Intf.pas" />
|
||||
<DCCReference Include="..\Modulos\Referencias\Model\schReferenciasServer_Intf.pas" />
|
||||
<DCCReference Include="..\Modulos\Referencias\Servidor\srvReferencias_Impl.pas">
|
||||
<Form>srvReferencias</Form>
|
||||
<DesignClass>TDataAbstractService</DesignClass>
|
||||
</DCCReference>
|
||||
<DCCReference Include="..\Modulos\Remesas de cliente\Model\schRemesasClienteClient_Intf.pas" />
|
||||
<DCCReference Include="..\Modulos\Remesas de cliente\Model\schRemesasClienteServer_Intf.pas" />
|
||||
<DCCReference Include="..\Modulos\Remesas de cliente\Model\uBizRemesasClienteServer.pas" />
|
||||
<DCCReference Include="..\Modulos\Remesas de cliente\Reports\uRptRemesasCliente_Server.pas">
|
||||
<Form>RptRemesasCliente</Form>
|
||||
<DesignClass>TDataModule</DesignClass>
|
||||
</DCCReference>
|
||||
<DCCReference Include="..\Modulos\Remesas de cliente\Servidor\srvRemesasCliente_Impl.pas">
|
||||
<Form>srvRemesasCliente</Form>
|
||||
<DesignClass>TDataAbstractService</DesignClass>
|
||||
</DCCReference>
|
||||
<DCCReference Include="..\Modulos\Remesas de proveedor\Model\schRemesasProveedorClient_Intf.pas" />
|
||||
<DCCReference Include="..\Modulos\Remesas de proveedor\Model\schRemesasProveedorServer_Intf.pas" />
|
||||
<DCCReference Include="..\Modulos\Remesas de proveedor\Model\uBizRemesasProveedorServer.pas" />
|
||||
<DCCReference Include="..\Modulos\Remesas de proveedor\Servidor\srvRemesasProveedor_Impl.pas">
|
||||
<Form>srvRemesasProveedor</Form>
|
||||
<DesignClass>TDataAbstractService</DesignClass>
|
||||
</DCCReference>
|
||||
<DCCReference Include="..\Modulos\Tipos de IVA\Model\schTiposIVAClient_Intf.pas" />
|
||||
<DCCReference Include="..\Modulos\Tipos de IVA\Model\schTiposIVAServer_Intf.pas" />
|
||||
<DCCReference Include="..\Modulos\Tipos de IVA\Servidor\srvTiposIVA_Impl.pas">
|
||||
<Form>srvTiposIVA</Form>
|
||||
<DesignClass>TDataAbstractService</DesignClass>
|
||||
</DCCReference>
|
||||
<DCCReference Include="..\Modulos\Unidades de medida\Model\schUnidadesMedidaClient_Intf.pas" />
|
||||
<DCCReference Include="..\Modulos\Unidades de medida\Model\schUnidadesMedidaServer_Intf.pas" />
|
||||
<DCCReference Include="..\Modulos\Unidades de medida\Servidor\srvUnidadesMedida_Impl.pas">
|
||||
<Form>srvUnidadesMedida</Form>
|
||||
<DesignClass>TDataAbstractService</DesignClass>
|
||||
</DCCReference>
|
||||
<DCCReference Include="..\Servicios\FactuGES_Intf.pas" />
|
||||
<DCCReference Include="..\Servicios\FactuGES_Invk.pas" />
|
||||
<DCCReference Include="Configuracion\srvConfiguracion_Impl.pas">
|
||||
<Form>srvConfiguracion</Form>
|
||||
<DesignClass>TDataAbstractService</DesignClass>
|
||||
</DCCReference>
|
||||
<DCCReference Include="Configuracion\uConexionBD.pas">
|
||||
<Form>frConexionBD</Form>
|
||||
<DesignClass>TFrame</DesignClass>
|
||||
</DCCReference>
|
||||
<DCCReference Include="Configuracion\uConfGeneral.pas">
|
||||
<Form>frConfGeneral</Form>
|
||||
<DesignClass>TFrame</DesignClass>
|
||||
</DCCReference>
|
||||
<DCCReference Include="Configuracion\uConfiguracion.pas">
|
||||
<Form>fConfiguracion</Form>
|
||||
<DesignClass>TForm</DesignClass>
|
||||
</DCCReference>
|
||||
<DCCReference Include="Configuracion\uFrameConfiguracion.pas">
|
||||
<Form>FrameConfiguracion</Form>
|
||||
<DesignClass>TFrame</DesignClass>
|
||||
</DCCReference>
|
||||
<DCCReference Include="srvLogin_Impl.pas">
|
||||
<Form>srvLogin</Form>
|
||||
<DesignClass>TDARemoteService</DesignClass>
|
||||
</DCCReference>
|
||||
<DCCReference Include="uAcercaDe.pas">
|
||||
<Form>fAcercaDe</Form>
|
||||
</DCCReference>
|
||||
<DCCReference Include="uDataModuleServer.pas">
|
||||
<Form>dmServer</Form>
|
||||
<DesignClass>TDataModule</DesignClass>
|
||||
</DCCReference>
|
||||
<DCCReference Include="uServerMainForm.pas">
|
||||
<Form>fServerForm</Form>
|
||||
</DCCReference>
|
||||
<DCCReference Include="Utiles\AHWord97.pas" />
|
||||
<DCCReference Include="Utiles\MidasSpeedFix.pas" />
|
||||
<DCCReference Include="Utiles\RegExpr.pas" />
|
||||
<DCCReference Include="Utiles\uBusinessUtils.pas" />
|
||||
<DCCReference Include="Utiles\uDatabaseUtils.pas" />
|
||||
<DCCReference Include="Utiles\uReferenciasUtils.pas" />
|
||||
<DCCReference Include="Utiles\uRestriccionesUsuarioUtils.pas" />
|
||||
<DCCReference Include="Utiles\uSchemaUtilsServer.pas" />
|
||||
<DCCReference Include="Utiles\uServerAppUtils.pas" />
|
||||
<DCCReference Include="Utiles\uSesionesUtils.pas" />
|
||||
</ItemGroup>
|
||||
</Project>
|
||||
<!-- EurekaLog First Line
|
||||
[Exception Log]
|
||||
|
||||
@ -1,7 +1,7 @@
|
||||
MAINICON ICON "C:\Codigo Noviseda\Resources\Iconos\Servidor.ico"
|
||||
1 VERSIONINFO
|
||||
FILEVERSION 1,0,1,0
|
||||
PRODUCTVERSION 1,0,1,0
|
||||
FILEVERSION 1,0,2,0
|
||||
PRODUCTVERSION 1,0,2,0
|
||||
FILEFLAGSMASK 0x3FL
|
||||
FILEFLAGS 0x00L
|
||||
FILEOS 0x40004L
|
||||
@ -13,11 +13,11 @@ BEGIN
|
||||
BLOCK "0C0A04E4"
|
||||
BEGIN
|
||||
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 "ProductName", "FactuGES Servidor\0"
|
||||
VALUE "ProductVersion", "1.0.1.0\0"
|
||||
VALUE "CompileDate", "martes, 16 de febrero de 2010 16:34\0"
|
||||
VALUE "ProductVersion", "1.0.2.0\0"
|
||||
VALUE "CompileDate", "jueves, 04 de marzo de 2010 12:31\0"
|
||||
END
|
||||
END
|
||||
BLOCK "VarFileInfo"
|
||||
|
||||
Reference in New Issue
Block a user