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

- Añadir sucursales a clientes

Browse Source 
git-svn-id: https://192.168.0.254/svn/Proyectos.LuisLeon_FactuGES2/trunk@208 b2cfbe5a-eba1-4a0c-8b32-7feea0a119f2
This commit is contained in:
David Arranz 2014-01-16 16:01:50 +00:00
parent ee01cfbe7a
commit 7d924f3419
48 changed files with 6106 additions and 710 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
Build/Build.fbpInf
View File

@ -14,8 +14,8 @@
<Notes>
<![CDATA[]]>
</Notes>
<LastBuildRun>00:00:13</LastBuildRun>
<LastBuildStart>12/12/2013 10:39:51</LastBuildStart>
<LastBuildState>False</LastBuildState>
<LastBuildRun>00:00:01</LastBuildRun>
<LastBuildStart>14/01/2014 15:34:24</LastBuildStart>
<LastBuildState>True</LastBuildState>
</properties>
</project>

BIN
Build/Build.fbz6
View File

Binary file not shown.

6
Build/Installer.fbpInf
View File

@ -14,8 +14,8 @@
<Notes>
<![CDATA[]]>
</Notes>
<LastBuildRun>00:00:00</LastBuildRun>
<LastBuildStart>30/12/1899</LastBuildStart>
<LastBuildState>True</LastBuildState>
<LastBuildRun>00:02:38</LastBuildRun>
<LastBuildStart>13/12/2013 16:54:53</LastBuildStart>
<LastBuildState>False</LastBuildState>
</properties>
</project>

BIN
Build/Installer.fbz6
View File

Binary file not shown.

13
Database/scripts/factuges.sql
View File

@ -511,7 +511,8 @@ CREATE TABLE CLIENTES_DATOS (
VENCIMIENTO_FACTURAS_3 SMALLINT,
FELICITACION TIPO_BOOLEANO,
TIPO_CLIENTE VARCHAR(255) COLLATE ES_ES,
SEPA TIPO_BOOLEANO DEFAULT 0 NOT NULL
SEPA TIPO_BOOLEANO DEFAULT 0 NOT NULL,
ID_CENTRAL TIPO_ID
);
CREATE TABLE CLIENTES_DTOS_PROVEEDORES (
@ -1999,7 +2000,8 @@ CREATE VIEW V_CLIENTES(
DESCUENTO,
FELICITACION,
TIPO_CLIENTE,
SEPA)
SEPA,
ID_CENTRAL)
AS
SELECT
V_CONTACTOS.ID,
@ -2045,15 +2047,16 @@ SELECT
CLIENTES_DATOS.DESCUENTO,
CLIENTES_DATOS.FELICITACION,
CLIENTES_DATOS.TIPO_CLIENTE,
CLIENTES_DATOS.SEPA
CLIENTES_DATOS.SEPA,
CLIENTES_DATOS.ID_CENTRAL
FROM
V_CONTACTOS
LEFT OUTER JOIN CLIENTES_DATOS ON (V_CONTACTOS.ID = CLIENTES_DATOS.ID_CLIENTE)
LEFT OUTER JOIN CONTACTOS ON (CLIENTES_DATOS.ID_AGENTE = CONTACTOS.ID)
WHERE
V_CONTACTOS.ID_CATEGORIA = 1
;
V_CONTACTOS.ID_CATEGORIA = 1;
CREATE VIEW V_AGENTES(
ID,
ID_CATEGORIA,

8
Source/ApplicationBase/ApplicationBase.dproj
View File

@ -55,10 +55,10 @@
<DelphiCompile Include="ApplicationBase.dpk">
<MainSource>MainSource</MainSource>
</DelphiCompile>
<DCCReference Include="..\Modulos\Contactos\Base.dcp" />
<DCCReference Include="..\Modulos\Contactos\GUIBase.dcp" />
<DCCReference Include="..\Modulos\Contactos\JvJansD11R.dcp" />
<DCCReference Include="..\Modulos\Contactos\PluginSDK_D11R.dcp" />
<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="Empresas\Controller\uDatosBancariosEmpresaController.pas" />
<DCCReference Include="Empresas\Controller\uEmpresasController.pas" />
<DCCReference Include="Empresas\Controller\View\uIEditorDatosBancarioEmpresa.pas" />

8
Source/Base/Base.dproj
View File

@ -45,14 +45,6 @@
<Borland.ProjectType>Package</Borland.ProjectType>
<BorlandProject>
<BorlandProject><Delphi.Personality><Parameters><Parameters Name="UseLauncher">False</Parameters><Parameters Name="LoadAllSymbols">True</Parameters><Parameters Name="LoadUnspecifiedSymbols">False</Parameters></Parameters><Package_Options><Package_Options Name="PackageDescription">Libreria base de FactuGES</Package_Options><Package_Options Name="ImplicitBuild">False</Package_Options><Package_Options Name="DesigntimeOnly">False</Package_Options><Package_Options Name="RuntimeOnly">False</Package_Options></Package_Options><VersionInfo><VersionInfo Name="IncludeVerInfo">True</VersionInfo><VersionInfo Name="AutoIncBuild">False</VersionInfo><VersionInfo Name="MajorVer">1</VersionInfo><VersionInfo Name="MinorVer">0</VersionInfo><VersionInfo Name="Release">0</VersionInfo><VersionInfo Name="Build">0</VersionInfo><VersionInfo Name="Debug">False</VersionInfo><VersionInfo Name="PreRelease">False</VersionInfo><VersionInfo Name="Special">False</VersionInfo><VersionInfo Name="Private">False</VersionInfo><VersionInfo Name="DLL">False</VersionInfo><VersionInfo Name="Locale">3082</VersionInfo><VersionInfo Name="CodePage">1252</VersionInfo></VersionInfo><VersionInfoKeys><VersionInfoKeys Name="CompanyName"></VersionInfoKeys><VersionInfoKeys Name="FileDescription"></VersionInfoKeys><VersionInfoKeys Name="FileVersion">1.0.0.0</VersionInfoKeys><VersionInfoKeys Name="InternalName"></VersionInfoKeys><VersionInfoKeys Name="LegalCopyright"></VersionInfoKeys><VersionInfoKeys Name="LegalTrademarks"></VersionInfoKeys><VersionInfoKeys Name="OriginalFilename"></VersionInfoKeys><VersionInfoKeys Name="ProductName"></VersionInfoKeys><VersionInfoKeys Name="ProductVersion">1.0.0.0</VersionInfoKeys></VersionInfoKeys><Excluded_Packages>
<Excluded_Packages Name="$(BDS)\bin\dcloffice2k100.bpl">Microsoft Office 2000 Sample Automation Server Wrapper Components</Excluded_Packages>
<Excluded_Packages Name="$(BDS)\bin\dclofficexp100.bpl">Microsoft Office XP Sample Automation Server Wrapper Components</Excluded_Packages>
</Excluded_Packages><Source><Source Name="MainSource">Base.dpk</Source></Source></Delphi.Personality></BorlandProject></BorlandProject>

2
Source/Cliente/FactuGES.dproj
View File

@ -53,7 +53,7 @@
<Borland.Personality>Delphi.Personality</Borland.Personality>
<Borland.ProjectType>VCLApplication</Borland.ProjectType>
<BorlandProject>
<BorlandProject><Delphi.Personality><Parameters><Parameters Name="UseLauncher">False</Parameters><Parameters Name="LoadAllSymbols">True</Parameters><Parameters Name="LoadUnspecifiedSymbols">False</Parameters></Parameters><Language><Language Name="RootDir">C:\Archivos de programa\Borland\Delphi7\Bin\</Language></Language><VersionInfo><VersionInfo Name="IncludeVerInfo">True</VersionInfo><VersionInfo Name="AutoIncBuild">False</VersionInfo><VersionInfo Name="MajorVer">4</VersionInfo><VersionInfo Name="MinorVer">3</VersionInfo><VersionInfo Name="Release">4</VersionInfo><VersionInfo Name="Build">0</VersionInfo><VersionInfo Name="Debug">False</VersionInfo><VersionInfo Name="PreRelease">False</VersionInfo><VersionInfo Name="Special">False</VersionInfo><VersionInfo Name="Private">False</VersionInfo><VersionInfo Name="DLL">False</VersionInfo><VersionInfo Name="Locale">3082</VersionInfo><VersionInfo Name="CodePage">1252</VersionInfo></VersionInfo><VersionInfoKeys><VersionInfoKeys Name="CompanyName">Rodax Software S.L.</VersionInfoKeys><VersionInfoKeys Name="FileDescription"></VersionInfoKeys><VersionInfoKeys Name="FileVersion">4.3.4.0</VersionInfoKeys><VersionInfoKeys Name="InternalName">FactuGES</VersionInfoKeys><VersionInfoKeys Name="LegalCopyright"></VersionInfoKeys><VersionInfoKeys Name="LegalTrademarks"></VersionInfoKeys><VersionInfoKeys Name="OriginalFilename"></VersionInfoKeys><VersionInfoKeys Name="ProductName">FactuGES</VersionInfoKeys><VersionInfoKeys Name="ProductVersion">4.3.4.0</VersionInfoKeys><VersionInfoKeys Name="Comments"></VersionInfoKeys></VersionInfoKeys><Excluded_Packages></Excluded_Packages><Source><Source Name="MainSource">FactuGES.dpr</Source></Source></Delphi.Personality><ModelSupport>False</ModelSupport></BorlandProject></BorlandProject>
<BorlandProject><Delphi.Personality><Parameters><Parameters Name="UseLauncher">False</Parameters><Parameters Name="LoadAllSymbols">True</Parameters><Parameters Name="LoadUnspecifiedSymbols">False</Parameters></Parameters><Language><Language Name="RootDir">C:\Archivos de programa\Borland\Delphi7\Bin\</Language></Language><VersionInfo><VersionInfo Name="IncludeVerInfo">True</VersionInfo><VersionInfo Name="AutoIncBuild">False</VersionInfo><VersionInfo Name="MajorVer">4</VersionInfo><VersionInfo Name="MinorVer">3</VersionInfo><VersionInfo Name="Release">5</VersionInfo><VersionInfo Name="Build">0</VersionInfo><VersionInfo Name="Debug">False</VersionInfo><VersionInfo Name="PreRelease">False</VersionInfo><VersionInfo Name="Special">False</VersionInfo><VersionInfo Name="Private">False</VersionInfo><VersionInfo Name="DLL">False</VersionInfo><VersionInfo Name="Locale">3082</VersionInfo><VersionInfo Name="CodePage">1252</VersionInfo></VersionInfo><VersionInfoKeys><VersionInfoKeys Name="CompanyName">Rodax Software S.L.</VersionInfoKeys><VersionInfoKeys Name="FileDescription"></VersionInfoKeys><VersionInfoKeys Name="FileVersion">4.3.5.0</VersionInfoKeys><VersionInfoKeys Name="InternalName">FactuGES</VersionInfoKeys><VersionInfoKeys Name="LegalCopyright"></VersionInfoKeys><VersionInfoKeys Name="LegalTrademarks"></VersionInfoKeys><VersionInfoKeys Name="OriginalFilename"></VersionInfoKeys><VersionInfoKeys Name="ProductName">FactuGES</VersionInfoKeys><VersionInfoKeys Name="ProductVersion">4.3.5.0</VersionInfoKeys><VersionInfoKeys Name="Comments"></VersionInfoKeys></VersionInfoKeys><Excluded_Packages></Excluded_Packages><Source><Source Name="MainSource">FactuGES.dpr</Source></Source></Delphi.Personality><ModelSupport>False</ModelSupport></BorlandProject></BorlandProject>
</ProjectExtensions>
<Import Project="$(MSBuildBinPath)\Borland.Delphi.Targets" />
<ItemGroup>

8
Source/Cliente/FactuGES.rc
View File

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

BIN
Source/Cliente/FactuGES.res
View File

Binary file not shown.

48
Source/GUIBase/GUIBase.dproj
View File

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

46
Source/Modulos/Albaranes de cliente/Views/AlbaranesCliente_view.dproj
View File

@ -43,10 +43,6 @@
<Borland.ProjectType>Package</Borland.ProjectType>
<BorlandProject>
<BorlandProject><Delphi.Personality><Parameters><Parameters Name="UseLauncher">False</Parameters><Parameters Name="LoadAllSymbols">True</Parameters><Parameters Name="LoadUnspecifiedSymbols">False</Parameters></Parameters><Package_Options><Package_Options Name="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">File c:\archivos de programa\borland\delphi10\Bin\dclIntraweb_80_100.bpl not found</Excluded_Packages>
<Excluded_Packages Name="c:\archivos de programa\borland\delphi10\Bin\dclnet100.bpl">File c:\archivos de programa\borland\delphi10\Bin\dclnet100.bpl not found</Excluded_Packages>
<Excluded_Packages Name="c:\archivos de programa\borland\delphi10\Bin\dclsoap100.bpl">File c:\archivos de programa\borland\delphi10\Bin\dclsoap100.bpl not found</Excluded_Packages>
@ -58,27 +54,29 @@
<DelphiCompile Include="AlbaranesCliente_view.dpk">
<MainSource>MainSource</MainSource>
</DelphiCompile>
<DCCReference Include="AlbaranesCliente_controller.dcp" />
<DCCReference Include="AlbaranesCliente_model.dcp" />
<DCCReference Include="AlbCli_FacCli_relation.dcp" />
<DCCReference Include="Almacenes_controller.dcp" />
<DCCReference Include="ApplicationBase.dcp" />
<DCCReference Include="Articulos_view.dcp" />
<DCCReference Include="Base.dcp" />
<DCCReference Include="cxLibraryD11.dcp" />
<DCCReference Include="dxCoreD11.dcp" />
<DCCReference Include="dxGDIPlusD11.dcp" />
<DCCReference Include="dxThemeD11.dcp" />
<DCCReference Include="FacturasCliente_controller.dcp" />
<DCCReference Include="FacturasCliente_model.dcp" />
<DCCReference Include="GUIBase.dcp" />
<DCCReference Include="Inventario_controller.dcp" />
<DCCReference Include="PedidosCliente_controller.dcp" />
<DCCReference Include="PedidosCliente_model.dcp" />
<DCCReference Include="rtl.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\AlbCli_FacCli_relation.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\Almacenes_controller.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\ApplicationBase.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\Articulos_view.dcp" />
<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\dxCoreD11.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\dxGDIPlusD11.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\GUIBase.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\Inventario_controller.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\rtl.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\vcl.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\vclx.dcp" />
<DCCReference Include="uAlbaranesClienteViewRegister.pas" />
<DCCReference Include="uDialogListaAlbaranesClienteEnvioEMail.pas">
<Form>fruDialogListaAlbaranesClienteEnvioEMail</Form>
<Form>frDialogListaAlbaranesClienteEnvioEMail</Form>
<DesignClass>T</DesignClass>
</DCCReference>
<DCCReference Include="uDialogOpcionesImpresionAlbaranesCliente.pas">
@ -145,8 +143,6 @@
<Form>frViewElegirArticulosAlbaranesCliente</Form>
<DesignClass>TFrame</DesignClass>
</DCCReference>
<DCCReference Include="vcl.dcp" />
<DCCReference Include="vclx.dcp" />
</ItemGroup>
</Project>
<!-- EurekaLog First Line

5
Source/Modulos/Albaranes de cliente/Views/uEditorAlbaranCliente.dfm
View File

@ -165,7 +165,6 @@ inherited fEditorAlbaranCliente: TfEditorAlbaranCliente
inherited pgPaginas: TPageControl
Width = 759
Height = 406
ActivePage = pagContenido
TabOrder = 1
OnChanging = pgPaginasChanging
ExplicitWidth = 759
@ -227,10 +226,10 @@ inherited fEditorAlbaranCliente: TfEditorAlbaranCliente
inherited FontSize: TEdit
Left = 544
Top = 0
Width = 170
Width = 186
ExplicitLeft = 544
ExplicitTop = 0
ExplicitWidth = 170
ExplicitWidth = 186
end
inherited ToolButton13: TToolButton [7]
Left = 0

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

@ -98,24 +98,6 @@
<Target Name="Contactos_plugin:Make">
<MSBuild Projects="Plugin\Contactos_plugin.dproj" Targets="Make" />
</Target>
<Target Name="FactuGES">
<MSBuild Projects="..\..\Cliente\FactuGES.dproj" Targets="" />
</Target>
<Target Name="FactuGES:Clean">
<MSBuild Projects="..\..\Cliente\FactuGES.dproj" Targets="Clean" />
</Target>
<Target Name="FactuGES:Make">
<MSBuild Projects="..\..\Cliente\FactuGES.dproj" Targets="Make" />
</Target>
<Target Name="FactuGES_Server">
<MSBuild Projects="..\..\Servidor\FactuGES_Server.dproj" Targets="" />
</Target>
<Target Name="FactuGES_Server:Clean">
<MSBuild Projects="..\..\Servidor\FactuGES_Server.dproj" Targets="Clean" />
</Target>
<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>
@ -161,14 +143,32 @@
<Target Name="AlbaranesCliente_controller:Make">
<MSBuild Projects="..\Albaranes de cliente\Controller\AlbaranesCliente_controller.dproj" Targets="Make" />
</Target>
<Target Name="FactuGES">
<MSBuild Projects="..\..\Cliente\FactuGES.dproj" Targets="" />
</Target>
<Target Name="FactuGES:Clean">
<MSBuild Projects="..\..\Cliente\FactuGES.dproj" Targets="Clean" />
</Target>
<Target Name="FactuGES:Make">
<MSBuild Projects="..\..\Cliente\FactuGES.dproj" Targets="Make" />
</Target>
<Target Name="FactuGES_Server">
<MSBuild Projects="..\..\Servidor\FactuGES_Server.dproj" Targets="" />
</Target>
<Target Name="FactuGES_Server:Clean">
<MSBuild Projects="..\..\Servidor\FactuGES_Server.dproj" Targets="Clean" />
</Target>
<Target Name="FactuGES_Server:Make">
<MSBuild Projects="..\..\Servidor\FactuGES_Server.dproj" Targets="Make" />
</Target>
<Target Name="Build">
<CallTarget Targets="Base;GUIBase;ApplicationBase;Contactos_model;Contactos_data;Contactos_controller;Contactos_view;Contactos_plugin;FactuGES;FactuGES_Server;AlbaranesCliente_view;Obras_view;Articulos_controller;Articulos_view;AlbaranesCliente_controller" />
<CallTarget Targets="Base;GUIBase;ApplicationBase;Contactos_model;Contactos_data;Contactos_controller;Contactos_view;Contactos_plugin;AlbaranesCliente_view;Obras_view;Articulos_controller;Articulos_view;AlbaranesCliente_controller;FactuGES;FactuGES_Server" />
</Target>
<Target Name="Clean">
<CallTarget Targets="Base:Clean;GUIBase:Clean;ApplicationBase:Clean;Contactos_model:Clean;Contactos_data:Clean;Contactos_controller:Clean;Contactos_view:Clean;Contactos_plugin:Clean;FactuGES:Clean;FactuGES_Server:Clean;AlbaranesCliente_view:Clean;Obras_view:Clean;Articulos_controller:Clean;Articulos_view:Clean;AlbaranesCliente_controller:Clean" />
<CallTarget Targets="Base:Clean;GUIBase:Clean;ApplicationBase:Clean;Contactos_model:Clean;Contactos_data:Clean;Contactos_controller:Clean;Contactos_view:Clean;Contactos_plugin:Clean;AlbaranesCliente_view:Clean;Obras_view:Clean;Articulos_controller:Clean;Articulos_view:Clean;AlbaranesCliente_controller:Clean;FactuGES:Clean;FactuGES_Server:Clean" />
</Target>
<Target Name="Make">
<CallTarget Targets="Base:Make;GUIBase:Make;ApplicationBase:Make;Contactos_model:Make;Contactos_data:Make;Contactos_controller:Make;Contactos_view:Make;Contactos_plugin:Make;FactuGES:Make;FactuGES_Server:Make;AlbaranesCliente_view:Make;Obras_view:Make;Articulos_controller:Make;Articulos_view:Make;AlbaranesCliente_controller:Make" />
<CallTarget Targets="Base:Make;GUIBase:Make;ApplicationBase:Make;Contactos_model:Make;Contactos_data:Make;Contactos_controller:Make;Contactos_view:Make;Contactos_plugin:Make;AlbaranesCliente_view:Make;Obras_view:Make;Articulos_controller:Make;Articulos_view:Make;AlbaranesCliente_controller:Make;FactuGES:Make;FactuGES_Server:Make" />
</Target>
<Import Condition="Exists('$(MSBuildBinPath)\Borland.Group.Targets')" Project="$(MSBuildBinPath)\Borland.Group.Targets" />
</Project>

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

@ -53,30 +53,30 @@
<DelphiCompile Include="Contactos_controller.dpk">
<MainSource>MainSource</MainSource>
</DelphiCompile>
<DCCReference Include="..\..\..\Servidor\adortl.dcp" />
<DCCReference Include="..\..\..\Servidor\ApplicationBase.dcp" />
<DCCReference Include="..\..\..\Servidor\Base.dcp" />
<DCCReference Include="..\..\..\Servidor\ccpackD11.dcp" />
<DCCReference Include="..\..\..\Servidor\cfpack_d11.dcp" />
<DCCReference Include="..\..\..\Servidor\Contactos_data.dcp" />
<DCCReference Include="..\..\..\Servidor\Contactos_model.dcp" />
<DCCReference Include="..\..\..\Servidor\cxLibraryD11.dcp" />
<DCCReference Include="..\..\..\Servidor\DataAbstract_Core_D11.dcp" />
<DCCReference Include="..\..\..\Servidor\dbrtl.dcp" />
<DCCReference Include="..\..\..\Servidor\designide.dcp" />
<DCCReference Include="..\..\..\Servidor\dsnap.dcp" />
<DCCReference Include="..\..\..\Servidor\dxCoreD11.dcp" />
<DCCReference Include="..\..\..\Servidor\dxGDIPlusD11.dcp" />
<DCCReference Include="..\..\..\Servidor\dxThemeD11.dcp" />
<DCCReference Include="..\..\..\Servidor\GUIBase.dcp" />
<DCCReference Include="..\..\..\Servidor\GUISDK_D11R.dcp" />
<DCCReference Include="..\..\..\Servidor\RemObjects_Core_D11.dcp" />
<DCCReference Include="..\..\..\Servidor\rtl.dcp" />
<DCCReference Include="..\..\..\Servidor\vcl.dcp" />
<DCCReference Include="..\..\..\Servidor\vclactnband.dcp" />
<DCCReference Include="..\..\..\Servidor\vcldb.dcp" />
<DCCReference Include="..\..\..\Servidor\vclx.dcp" />
<DCCReference Include="..\..\..\Servidor\xmlrtl.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\adortl.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\ApplicationBase.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\Base.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\ccpackD11.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\cfpack_d11.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\Contactos_data.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\Contactos_model.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\cxLibraryD11.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\dxCoreD11.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\dxGDIPlusD11.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\dxThemeD11.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\GUIBase.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\GUISDK_D11R.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\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\vclx.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\xmlrtl.dcp" />
<DCCReference Include="uAgentesController.pas" />
<DCCReference Include="uClientesController.pas" />
<DCCReference Include="uContactosController.pas" />

BIN
Source/Modulos/Contactos/Controller/Contactos_controller.identcache
View File

Binary file not shown.

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

@ -14,6 +14,7 @@ type
function BuscarTodosTiendaWeb: IBizCliente;
function BuscarEtiquetadosFelicitacion: IBizCliente;
function TieneDatosBancarios(ACliente: IBizCliente) : Boolean;
function TieneClienteCentral(ACliente: IBizCliente) : Boolean;
function ElegirDireccionEntrega(ACliente: IBizCliente; AMensaje: String): IBizDireccionesContacto;
function EsEliminable(ACliente: IBizContacto): Boolean;
function Eliminar(ACliente: IBizContacto; AllItems: Boolean = false): Boolean; overload;
@ -57,6 +58,7 @@ type
procedure VerFacturasDeCliente(ACliente : IBizCliente);
procedure VerRecibosDeCliente(ACliente : IBizCliente);
function DarListaCuentasBancarias(const IdCliente: Integer): TStringList;
function TieneClienteCentral(ACliente: IBizCliente) : Boolean;
end;
implementation
@ -86,6 +88,7 @@ function TClientesController.BuscarTodos: IBizContacto;
begin
Result := (FDataModule as IDataModuleClientes).GetItems;
FiltrarEmpresa(Result);
FiltrarEmpresa((Result as IBizCliente).Sucursales);
end;
function TClientesController.BuscarTodosTiendaWeb: IBizCliente;
@ -158,8 +161,8 @@ begin
if Assigned(AEditor) then
begin
try
AEditor.Contactos := AContactos;
AEditor.Controller := Self;
AEditor.Contactos := AContactos;
AEditor.MultiSelect := AMultiSelect;
AEditor.Mensaje := AMensaje;
if IsPositiveResult(AEditor.ShowModal) then
@ -357,6 +360,18 @@ begin
end;
end;
function TClientesController.TieneClienteCentral(
ACliente: IBizCliente): Boolean;
begin
if not Assigned(ACliente) then
raise Exception.Create ('Cliente no asignado (TieneClienteCentral)');
if not ACliente.DataTable.Active then
ACliente.DataTable.Active := True;
Result := not ACliente.ID_CENTRALIsNull;
end;
function TClientesController.TieneDatosBancarios(
ACliente: IBizCliente): Boolean;
begin
@ -427,8 +442,8 @@ begin
CreateEditor('EditorCliente', IEditorCliente, AEditor);
if Assigned(AEditor) then
try
AEditor.Contacto := AContacto;
AEditor.Controller := Self;
AEditor.Contacto := AContacto;
AEditor.ShowModal;
finally
AEditor.Release;

2
Source/Modulos/Contactos/Controller/uProveedoresController.pas
View File

@ -157,8 +157,8 @@ begin
CreateEditor('EditorElegirProveedores', IEditorElegirProveedores, AEditor);
if Assigned(AEditor) then
try
AEditor.Contactos := AContactos;
AEditor.Controller := Self;
AEditor.Contactos := AContactos;
AEditor.MultiSelect := AMultiSelect;
AEditor.Mensaje := AMensaje;
if IsPositiveResult(AEditor.ShowModal) then

34
Source/Modulos/Contactos/Data/Contactos_data.dproj
View File

@ -49,23 +49,23 @@
<DelphiCompile Include="Contactos_data.dpk">
<MainSource>MainSource</MainSource>
</DelphiCompile>
<DCCReference Include="..\Views\adortl.dcp" />
<DCCReference Include="..\Views\ApplicationBase.dcp" />
<DCCReference Include="..\Views\Base.dcp" />
<DCCReference Include="..\Views\Contactos_model.dcp" />
<DCCReference Include="..\Views\cxLibraryD11.dcp" />
<DCCReference Include="..\Views\DataAbstract_Core_D11.dcp" />
<DCCReference Include="..\Views\dbrtl.dcp" />
<DCCReference Include="..\Views\dsnap.dcp" />
<DCCReference Include="..\Views\dxCoreD11.dcp" />
<DCCReference Include="..\Views\dxGDIPlusD11.dcp" />
<DCCReference Include="..\Views\dxThemeD11.dcp" />
<DCCReference Include="..\Views\GUIBase.dcp" />
<DCCReference Include="..\Views\RemObjects_Core_D11.dcp" />
<DCCReference Include="..\Views\rtl.dcp" />
<DCCReference Include="..\Views\vcl.dcp" />
<DCCReference Include="..\Views\vcldb.dcp" />
<DCCReference Include="..\Views\vclx.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\adortl.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\ApplicationBase.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\Base.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\Contactos_model.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\cxLibraryD11.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\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\dxThemeD11.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\GUIBase.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\vcl.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\vcldb.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\vclx.dcp" />
<DCCReference Include="uDataModuleAgentes.pas">
<Form>DataModuleAgentes</Form>
<DesignClass>TDAClientDataModule</DesignClass>

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

@ -1,5 +1,5 @@
inherited DataModuleClientes: TDataModuleClientes
Height = 398
Height = 470
Width = 636
inherited rda_Contactos: TDARemoteDataAdapter
Top = 79
@ -23,8 +23,14 @@ inherited DataModuleClientes: TDataModuleClientes
DataSet = tbl_PersonalContacto.Dataset
Left = 440
end
inherited tbl_ListaAnosObjetivosAlb: TDAMemDataTable
Left = 184
Top = 336
end
inherited ds_ListaAnosObjetivosAlb: TDADataSource
DataSet = tbl_ListaAnosObjetivosAlb.Dataset
Left = 184
Top = 288
end
object tbl_Clientes: TDAMemDataTable
RemoteUpdatesOptions = []
@ -290,6 +296,10 @@ inherited DataModuleClientes: TDataModuleClientes
item
Name = 'SEPA'
DataType = datSmallInt
end
item
Name = 'ID_CENTRAL'
DataType = datInteger
end>
Params = <>
StreamingOptions = [soDisableEventsWhileStreaming]
@ -507,4 +517,315 @@ inherited DataModuleClientes: TDataModuleClientes
Left = 560
Top = 32
end
object tbl_ClientesSucursales: TDAMemDataTable
RemoteUpdatesOptions = []
Fields = <
item
Name = 'ID'
DataType = datInteger
InPrimaryKey = True
end
item
Name = 'ID_CATEGORIA'
DataType = datInteger
DisplayLabel = 'Contactos_ID_CATEGORIA'
DictionaryEntry = 'Contactos_ID_CATEGORIA'
end
item
Name = 'NIF_CIF'
DataType = datString
Size = 15
DisplayLabel = 'NIF/CIF'
DictionaryEntry = 'Contactos_NIF_CIF'
end
item
Name = 'NOMBRE'
DataType = datString
Size = 255
DisplayLabel = 'Nombre'
DictionaryEntry = 'Contactos_NOMBRE'
end
item
Name = 'PERSONA_CONTACTO'
DataType = datString
Size = 255
DisplayLabel = 'Persona de contacto'
DictionaryEntry = 'Contactos_PERSONA_CONTACTO'
end
item
Name = 'CALLE'
DataType = datString
Size = 255
DisplayLabel = 'Direcci'#243'n'
DictionaryEntry = 'Contactos_CALLE'
end
item
Name = 'POBLACION'
DataType = datString
Size = 255
DisplayLabel = 'Poblaci'#243'n'
DictionaryEntry = 'Contactos_POBLACION'
end
item
Name = 'PROVINCIA'
DataType = datString
Size = 255
DisplayLabel = 'Provincia'
DictionaryEntry = 'Contactos_PROVINCIA'
end
item
Name = 'CODIGO_POSTAL'
DataType = datString
Size = 10
DisplayLabel = 'C'#243'digo postal'
DictionaryEntry = 'Contactos_CODIGO_POSTAL'
end
item
Name = 'TELEFONO_1'
DataType = datString
Size = 25
DisplayLabel = 'Tlf. trabajo'
DictionaryEntry = 'Contactos_TELEFONO_1'
end
item
Name = 'TELEFONO_2'
DataType = datString
Size = 25
DisplayLabel = 'Tlf. particular'
DictionaryEntry = 'Contactos_TELEFONO_2'
end
item
Name = 'MOVIL_1'
DataType = datString
Size = 25
DisplayLabel = 'M'#243'vil'
DictionaryEntry = 'Contactos_MOVIL_1'
end
item
Name = 'MOVIL_2'
DataType = datString
Size = 25
DisplayLabel = 'M'#243'vil 2'
DictionaryEntry = 'Contactos_MOVIL_2'
end
item
Name = 'FAX'
DataType = datString
Size = 25
DisplayLabel = 'Fax'
DictionaryEntry = 'Contactos_FAX'
end
item
Name = 'EMAIL_1'
DataType = datString
Size = 255
DisplayLabel = 'E-mail trabajo'
DictionaryEntry = 'Contactos_EMAIL_1'
end
item
Name = 'EMAIL_2'
DataType = datString
Size = 255
DisplayLabel = 'E-mail particular'
DictionaryEntry = 'Contactos_EMAIL_2'
end
item
Name = 'PAGINA_WEB'
DataType = datString
Size = 255
DisplayLabel = 'Web'
DictionaryEntry = 'Contactos_PAGINA_WEB'
end
item
Name = 'NOTAS'
DataType = datMemo
BlobType = dabtMemo
DisplayLabel = 'Observaciones'
DictionaryEntry = 'Contactos_NOTAS'
end
item
Name = 'FECHA_ALTA'
DataType = datDateTime
DisplayLabel = 'Clientes_FECHA_ALTA'
DictionaryEntry = 'Clientes_FECHA_ALTA'
end
item
Name = 'FECHA_MODIFICACION'
DataType = datDateTime
DisplayLabel = 'Clientes_FECHA_MODIFICACION'
DictionaryEntry = 'Clientes_FECHA_MODIFICACION'
end
item
Name = 'USUARIO'
DataType = datString
Size = 20
DisplayLabel = 'Usuario'
DictionaryEntry = 'Contactos_USUARIO'
end
item
Name = 'ID_EMPRESA'
DataType = datInteger
DictionaryEntry = 'Contactos_ID_EMPRESA'
end
item
Name = 'REFERENCIA'
DataType = datString
Size = 255
ServerAutoRefresh = True
DictionaryEntry = 'Clientes_REFERENCIA'
end
item
Name = 'ID_AGENTE'
DataType = datInteger
DictionaryEntry = 'Clientes_ID_AGENTE'
end
item
Name = 'GRUPO_CLIENTE'
DataType = datString
Size = 255
DisplayLabel = 'Grupo de cliente'
DictionaryEntry = 'Clientes_GRUPO_CLIENTE'
end
item
Name = 'NOMBRE_COMERCIAL'
DataType = datString
Size = 255
DisplayLabel = 'Nombre comercial'
DictionaryEntry = 'Clientes_NOMBRE_COMERCIAL'
end
item
Name = 'VENCIMIENTO_FACTURAS_1'
DataType = datSmallInt
DisplayLabel = 'Clientes_VENCIMIENTO_FACTURAS_1'
DictionaryEntry = 'Clientes_VENCIMIENTO_FACTURAS_1'
end
item
Name = 'VENCIMIENTO_FACTURAS_2'
DataType = datSmallInt
DisplayLabel = 'Clientes_VENCIMIENTO_FACTURAS_2'
DictionaryEntry = 'Clientes_VENCIMIENTO_FACTURAS_2'
end
item
Name = 'VENCIMIENTO_FACTURAS_3'
DataType = datSmallInt
DisplayLabel = 'Clientes_VENCIMIENTO_FACTURAS_3'
DictionaryEntry = 'Clientes_VENCIMIENTO_FACTURAS_3'
end
item
Name = 'BLOQUEADO'
DataType = datSmallInt
DisplayLabel = #191'Bloqueado?'
DictionaryEntry = 'Clientes_BLOQUEADO'
end
item
Name = 'AGENTE'
DataType = datString
Size = 255
DisplayLabel = 'Clientes_AGENTE'
DictionaryEntry = 'Clientes_AGENTE'
end
item
Name = 'RAPEL'
DataType = datSmallInt
DisplayLabel = 'Clientes_RAPEL'
DictionaryEntry = 'Clientes_RAPEL'
end
item
Name = 'EMAIL_ADMINISTRACION'
DataType = datString
Size = 255
DisplayLabel = 'Clientes_EMAIL_ADMINISTRACION'
DictionaryEntry = 'Clientes_EMAIL_ADMINISTRACION'
end
item
Name = 'REGIMEN_IVA'
DataType = datString
Size = 255
DisplayLabel = 'R'#233'gimen de IVA'
DictionaryEntry = 'Clientes_REGIMEN_IVA'
end
item
Name = 'MOTIVO_BLOQUEO'
DataType = datString
Size = 255
DisplayLabel = 'Motivo del bloqueo'
DictionaryEntry = 'Clientes_MOTIVO_BLOQUEO'
end
item
Name = 'RECARGO_EQUIVALENCIA'
DataType = datInteger
DisplayLabel = 'Rec. equiv.'
DictionaryEntry = 'Clientes_RECARGO_EQUIVALENCIA'
end
item
Name = 'ID_TIPO_IVA'
DataType = datInteger
DictionaryEntry = 'Clientes_ID_TIPO_IVA'
end
item
Name = 'ID_FORMA_PAGO'
DataType = datInteger
DictionaryEntry = 'Clientes_ID_FORMA_PAGO'
end
item
Name = 'TIENDA_WEB'
DataType = datSmallInt
DictionaryEntry = 'Clientes_TIENDA_WEB'
end
item
Name = 'CODIGO_ASIGNADO'
DataType = datString
Size = 255
DisplayLabel = 'Clientes_CODIGO_ASIGNADO'
DictionaryEntry = 'Clientes_CODIGO_ASIGNADO'
end
item
Name = 'DESCUENTO'
DataType = datFloat
DisplayLabel = 'Clientes_DESCUENTO'
DictionaryEntry = 'Clientes_DESCUENTO'
end
item
Name = 'FELICITACION'
DataType = datSmallInt
DisplayLabel = #191'Felicitaci'#243'n?'
DictionaryEntry = 'Clientes_FELICITACION'
end
item
Name = 'TIPO_CLIENTE'
DataType = datString
Size = 255
DisplayLabel = 'Clientes_TIPO_CLIENTE'
DictionaryEntry = 'Clientes_TIPO_CLIENTE'
end
item
Name = 'SEPA'
DataType = datSmallInt
DisplayLabel = 'Clientes_SEPA'
DictionaryEntry = 'Clientes_SEPA'
end
item
Name = 'ID_CENTRAL'
DataType = datInteger
DictionaryEntry = 'Clientes_ID_CENTRAL'
end>
Params = <>
MasterMappingMode = mmWhere
StreamingOptions = [soDisableEventsWhileStreaming]
RemoteDataAdapter = rda_Contactos
LocalDataStreamer = Bin2DataStreamer
MasterSource = ds_Clientes
MasterFields = 'ID'
DetailFields = 'ID_CENTRAL'
LogicalName = 'ClientesSucursales'
IndexDefs = <>
Left = 296
Top = 288
end
object dsClientesSucursales: TDADataSource
DataSet = tbl_ClientesSucursales.Dataset
DataTable = tbl_ClientesSucursales
Left = 296
Top = 352
end
end

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

@ -26,8 +26,11 @@ type
ds_ClientesDescuentosArticulos: TDADataSource;
tbl_TiposCliente: TDAMemDataTable;
ds_TiposCliente: TDADataSource;
tbl_ClientesSucursales: TDAMemDataTable;
dsClientesSucursales: TDADataSource;
protected
function _GetDescuentos: IBizClienteDescuentos;
function _GetSucursales: IBizCliente;
function _GetDescuentosArticulos: IBizClienteDescuentosArticulos;
public
function GetItem(const ID : Integer) : IBizCliente;
@ -103,6 +106,7 @@ begin
Descuentos := _GetDescuentos;
DescuentosArt := _GetDescuentosArticulos;
Personal := _GetPersonal;
Sucursales := _GetSucursales;
end;
Result := (AContacto as IBizCliente);
@ -211,4 +215,23 @@ begin
end;
end;
function TDataModuleClientes._GetSucursales: IBizCliente;
var
ASucursales : TDAMemDataTable;
begin
ShowHourglassCursor;
try
ASucursales := CloneDataTable(tbl_ClientesSucursales);
with ASucursales do
begin
BusinessRulesID := BIZ_CLIENT_CLIENTE;
DetailOptions := DetailOptions -
[dtDisableLogOfCascadeDeletes, dtDisableLogOfCascadeUpdates];
end;
Result := (ASucursales as IBizCliente);
finally
HideHourglassCursor;
end;
end;
end.

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

@ -50,10 +50,17 @@
<MainSource>MainSource</MainSource>
</DelphiCompile>
<DCCReference Include="..\Utiles\uRegimenIVAUtils.pas" />
<DCCReference Include="adortl.dcp" />
<DCCReference Include="ApplicationBase.dcp" />
<DCCReference Include="Base.dcp" />
<DCCReference Include="DataAbstract_Core_D11.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\adortl.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\ApplicationBase.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\Base.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\dsnap.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\GUIBase.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\vcl.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\vcldb.dcp" />
<DCCReference Include="Data\uIDataModuleAgentes.pas" />
<DCCReference Include="Data\uIDataModuleClientes.pas" />
<DCCReference Include="Data\uIDataModuleContactos.pas" />
@ -61,11 +68,6 @@
<DCCReference Include="Data\uIDataModuleEtiquetasContactosReport.pas" />
<DCCReference Include="Data\uIDataModuleFichasEmpleadoReport.pas" />
<DCCReference Include="Data\uIDataModuleProveedores.pas" />
<DCCReference Include="dbrtl.dcp" />
<DCCReference Include="dsnap.dcp" />
<DCCReference Include="GUIBase.dcp" />
<DCCReference Include="RemObjects_Core_D11.dcp" />
<DCCReference Include="rtl.dcp" />
<DCCReference Include="schContactosClient_Intf.pas" />
<DCCReference Include="schContactosServer_Intf.pas" />
<DCCReference Include="uBizAgentesComisiones.pas" />
@ -81,8 +83,6 @@
<DCCReference Include="uBizGruposEmpleado.pas" />
<DCCReference Include="uBizGruposProveedor.pas" />
<DCCReference Include="uBizTiposCliente.pas" />
<DCCReference Include="vcl.dcp" />
<DCCReference Include="vcldb.dcp" />
</ItemGroup>
</Project>
<!-- EurekaLog First Line

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

File diff suppressed because it is too large Load Diff

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

File diff suppressed because it is too large Load Diff

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

@ -15,8 +15,6 @@ type
end;
TBizClienteDescuentos = class(TClientesDescuentosDataTableRules, IBizClienteDescuentos)
private
ContIdAux: Integer;
protected
procedure BeforeInsert(Sender: TDADataTable); override;
end;

11
Source/Modulos/Contactos/Model/uBizClientesServer.pas
View File

@ -3,7 +3,7 @@ unit uBizClientesServer;
interface
uses
schContactosServer_Intf, uDAInterfaces, uDADelta,
schContactosServer_Intf, uDAInterfaces, uDADelta, SysUtils,
uDADataTable, uDABusinessProcessor, uBizContactosServer;
const
@ -20,10 +20,11 @@ type
procedure Delete_Datos_Contacto(aChange: TDADeltaChange); override;
end;
implementation
uses
uDataModuleServer, uDAClasses,
uDataModuleServer, uDAClasses, Dialogs,
schContactosClient_Intf, uBusinessUtils;
const
@ -101,7 +102,8 @@ begin
ParamByName('FELICITACION').Value := aChange.NewValueByName[fld_ClientesFELICITACION];
ParamByName('EMAIL_ADMINISTRACION').Value := aChange.NewValueByName[fld_ClientesEMAIL_ADMINISTRACION];
ParamByName('TIPO_CLIENTE').Value := aChange.NewValueByName[fld_ClientesTIPO_CLIENTE];
ParamByName('SEPA').Value := aChange.NewValueByName[fld_ClientesSEPA];
ParamByName('SEPA').Value := aChange.NewValueByName[fld_ClientesSEPA];
ParamByName('ID_CENTRAL').Value := aChange.NewValueByName[fld_ClientesID_CENTRAL];
Execute;
end;
finally
@ -147,7 +149,8 @@ begin
ParamByName('FELICITACION').Value := aChange.NewValueByName[fld_ClientesFELICITACION];
ParamByName('EMAIL_ADMINISTRACION').Value := aChange.NewValueByName[fld_ClientesEMAIL_ADMINISTRACION];
ParamByName('TIPO_CLIENTE').Value := aChange.NewValueByName[fld_ClientesTIPO_CLIENTE];
ParamByName('SEPA').Value := aChange.NewValueByName[fld_ClientesSEPA];
ParamByName('SEPA').Value := aChange.NewValueByName[fld_ClientesSEPA];
ParamByName('ID_CENTRAL').Value := aChange.NewValueByName[fld_ClientesID_CENTRAL];
Execute;
end;
finally

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

@ -77,6 +77,12 @@ type
function GetSEPAValue: Integer;
procedure SetSEPAValue(const aValue: Integer);
function GetID_CENTRALValue: Integer;
procedure SetID_CENTRALValue(const aValue: Integer);
function GetID_CENTRALIsNull: Boolean;
procedure SetID_CENTRALIsNull(const aValue: Boolean);
function GetMOTIVO_BLOQUEOValue: String;
procedure SetMOTIVO_BLOQUEOValue(const aValue: String);
@ -112,6 +118,12 @@ type
function GetEMAIL_ADMINISTRACIONValue: String;
procedure SetEMAIL_ADMINISTRACIONValue(const aValue: String);
procedure SetSucursales(AValue : IBizCliente);
function GetSucursales : IBizCliente;
property Sucursales : IBizCliente read GetSucursales
write SetSucursales;
property GRUPO_CLIENTE: String read GetGRUPO_CLIENTEValue write SetGRUPO_CLIENTEValue;
property TIPO_CLIENTE: String read GetTIPO_CLIENTEValue write SetTIPO_CLIENTEValue;
property NOMBRE_COMERCIAL: String read GetNOMBRE_COMERCIALValue write SetNOMBRE_COMERCIALValue;
@ -129,6 +141,8 @@ type
property DESCUENTO: Double read GetDESCUENTOValue write SetDESCUENTOValue;
property FELICITACION: Integer read GetFELICITACIONValue write SetFELICITACIONValue;
property EMAIL_ADMINISTRACION: String read GetEMAIL_ADMINISTRACIONValue write SetEMAIL_ADMINISTRACIONValue;
property ID_CENTRAL: Integer read GetID_CENTRALValue write SetID_CENTRALValue;
property ID_CENTRALIsNull: Boolean read GetID_CENTRALIsNull write SetID_CENTRALIsNull;
end;
IBizProveedor = interface (IBizContacto)
@ -309,6 +323,9 @@ type
FDescuentos : IBizClienteDescuentos;
FDescuentosLink : TDADataSource;
FSucursales : IBizCliente;
FSucursalesLink : TDADataSource;
FDescuentosArt : IBizClienteDescuentosArticulos;
FDescuentosArtLink : TDADataSource;
@ -369,12 +386,22 @@ type
function GetEMAIL_ADMINISTRACIONValue: String;
procedure SetEMAIL_ADMINISTRACIONValue(const aValue: String);
function GetID_CENTRALValue: Integer;
procedure SetID_CENTRALValue(const aValue: Integer);
function GetID_CENTRALIsNull: Boolean;
procedure SetID_CENTRALIsNull(const aValue: Boolean);
procedure SetSucursales(AValue : IBizCliente);
function GetSucursales : IBizCliente;
published
public
procedure IniciarValoresContactoNuevo; override;
constructor Create(aDataTable: TDADataTable); override;
destructor Destroy; override;
property Descuentos: IBizClienteDescuentos read GetDescuentos write SetDescuentos;
property DescuentosArt: IBizClienteDescuentosArticulos read GetDescuentosArt write SetDescuentosArt;
property DescuentosArt: IBizClienteDescuentosArticulos read GetDescuentosArt write SetDescuentosArt;
property GRUPO_CLIENTE: String read GetGRUPO_CLIENTEValue write SetGRUPO_CLIENTEValue;
property TIPO_CLIENTE: String read GetTIPO_CLIENTEValue write SetTIPO_CLIENTEValue;
property NOMBRE_COMERCIAL: String read GetNOMBRE_COMERCIALValue write SetNOMBRE_COMERCIALValue;
@ -392,6 +419,11 @@ type
property DESCUENTO: Double read GetDESCUENTOValue write SetDESCUENTOValue;
property FELICITACION: Integer read GetFELICITACIONValue write SetFELICITACIONValue;
property EMAIL_ADMINISTRACION: String read GetEMAIL_ADMINISTRACIONValue write SetEMAIL_ADMINISTRACIONValue;
property ID_CENTRAL: Integer read GetID_CENTRALValue write SetID_CENTRALValue;
property ID_CENTRALIsNull: Boolean read GetID_CENTRALIsNull write SetID_CENTRALIsNull;
property Sucursales : IBizCliente read GetSucursales write SetSucursales;
end;
@ -647,14 +679,23 @@ begin
FDescuentosArt := NIL;
FDescuentosArtLink := TDADataSource.Create(NIL);
FDescuentosArtLink.DataTable := aDataTable;
FSucursales := NIL;
FSucursalesLink := TDADataSource.Create(NIL);
FSucursalesLink.DataTable := aDataTable;
end;
destructor TBizCliente.Destroy;
begin
FDescuentos := NIL;
FreeAndNIL(FDescuentosLink);
FDescuentosArt := NIL;
FreeAndNIL(FDescuentosArtLink);
FSucursales := NIL;
FreeAndNIL(FSucursalesLink);
inherited;
end;
@ -693,6 +734,16 @@ begin
result := DataTable.Fields[idx_ClientesGRUPO_CLIENTE].AsString;
end;
function TBizCliente.GetID_CENTRALIsNull: Boolean;
begin
result := DataTable.Fields[idx_ClientesID_CENTRAL].IsNull;
end;
function TBizCliente.GetID_CENTRALValue: Integer;
begin
result := DataTable.Fields[idx_ClientesID_CENTRAL].AsInteger;
end;
function TBizCliente.GetID_FORMA_PAGOValue: Integer;
begin
result := DataTable.Fields[idx_ClientesID_FORMA_PAGO].AsInteger;
@ -750,6 +801,17 @@ begin
DataTable.Fields[idx_ClientesGRUPO_CLIENTE].AsString := aValue;
end;
procedure TBizCliente.SetID_CENTRALIsNull(const aValue: Boolean);
begin
if aValue then
DataTable.Fields[idx_ClientesID_CENTRAL].AsVariant := Null;
end;
procedure TBizCliente.SetID_CENTRALValue(const aValue: Integer);
begin
DataTable.Fields[idx_ClientesID_CENTRAL].AsInteger := aValue;
end;
procedure TBizCliente.SetID_FORMA_PAGOValue(const aValue: Integer);
begin
DataTable.Fields[idx_ClientesID_FORMA_PAGO].AsInteger := aValue;
@ -785,6 +847,11 @@ begin
result := DataTable.Fields[idx_ClientesSEPA].AsInteger;
end;
function TBizCliente.GetSucursales: IBizCliente;
begin
result := FSucursales;
end;
function TBizCliente.GetTIENDA_WEBValue: Integer;
begin
result := DataTable.Fields[idx_ClientesTIENDA_WEB].AsInteger;
@ -825,6 +892,12 @@ begin
DataTable.Fields[idx_ClientesSEPA].AsInteger := aValue;
end;
procedure TBizCliente.SetSucursales(AValue: IBizCliente);
begin
FSucursales := AValue;
EnlazarMaestroDetalle(FSucursalesLink, FSucursales);
end;
procedure TBizCliente.SetTIENDA_WEBValue(const aValue: Integer);
begin
DataTable.Fields[idx_ClientesTIENDA_WEB].AsInteger := aValue;

5
Source/Modulos/Contactos/Plugin/Contactos_plugin.dproj
View File

@ -41,7 +41,7 @@
<Borland.Personality>Delphi.Personality</Borland.Personality>
<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="ImplicitBuild">True</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">Contactos_plugin.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">Contactos_plugin.dpk</Source></Source></Delphi.Personality></BorlandProject></BorlandProject>
</ProjectExtensions>
<Import Project="$(MSBuildBinPath)\Borland.Delphi.Targets" />
<ItemGroup>
@ -58,12 +58,13 @@
<DCCReference Include="C:\Documents and Settings\Usuario\vcl.dcp" />
<DCCReference Include="uPluginContactos.pas">
<Form>PluginContactos</Form>
<DesignClass>TDataModule</DesignClass>
</DCCReference>
</ItemGroup>
</Project>
<!-- EurekaLog First Line
[Exception Log]
EurekaLog Version=6006
EurekaLog Version=6011
Activate=1
Activate Handle=1
Save Log File=1

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

@ -7,7 +7,7 @@ object srvContactos: TsrvContactos
ExportedDataTables = <>
BeforeAcquireConnection = DataAbstractServiceBeforeAcquireConnection
Height = 347
Width = 444
Width = 696
object schContactos: TDASchema
ConnectionManager = dmServer.ConnectionManager
DataDictionary = DataDictionary
@ -589,6 +589,10 @@ object srvContactos: TsrvContactos
item
DatasetField = 'SEPA'
TableField = 'SEPA'
end
item
DatasetField = 'ID_CENTRAL'
TableField = 'ID_CENTRAL'
end>
end>
Name = 'Clientes'
@ -705,10 +709,12 @@ object srvContactos: TsrvContactos
item
Name = 'FECHA_ALTA'
DataType = datDateTime
DictionaryEntry = 'Clientes_FECHA_ALTA'
end
item
Name = 'FECHA_MODIFICACION'
DataType = datDateTime
DictionaryEntry = 'Clientes_FECHA_MODIFICACION'
end
item
Name = 'USUARIO'
@ -731,6 +737,7 @@ object srvContactos: TsrvContactos
item
Name = 'ID_AGENTE'
DataType = datInteger
DictionaryEntry = 'Clientes_ID_AGENTE'
end
item
Name = 'GRUPO_CLIENTE'
@ -747,14 +754,17 @@ object srvContactos: TsrvContactos
item
Name = 'VENCIMIENTO_FACTURAS_1'
DataType = datSmallInt
DictionaryEntry = 'Clientes_VENCIMIENTO_FACTURAS_1'
end
item
Name = 'VENCIMIENTO_FACTURAS_2'
DataType = datSmallInt
DictionaryEntry = 'Clientes_VENCIMIENTO_FACTURAS_2'
end
item
Name = 'VENCIMIENTO_FACTURAS_3'
DataType = datSmallInt
DictionaryEntry = 'Clientes_VENCIMIENTO_FACTURAS_3'
end
item
Name = 'BLOQUEADO'
@ -765,15 +775,18 @@ object srvContactos: TsrvContactos
Name = 'AGENTE'
DataType = datString
Size = 255
DictionaryEntry = 'Clientes_AGENTE'
end
item
Name = 'RAPEL'
DataType = datSmallInt
DictionaryEntry = 'Clientes_RAPEL'
end
item
Name = 'EMAIL_ADMINISTRACION'
DataType = datString
Size = 255
DictionaryEntry = 'Clientes_EMAIL_ADMINISTRACION'
end
item
Name = 'REGIMEN_IVA'
@ -811,10 +824,12 @@ object srvContactos: TsrvContactos
Name = 'CODIGO_ASIGNADO'
DataType = datString
Size = 255
DictionaryEntry = 'Clientes_CODIGO_ASIGNADO'
end
item
Name = 'DESCUENTO'
DataType = datFloat
DictionaryEntry = 'Clientes_DESCUENTO'
end
item
Name = 'FELICITACION'
@ -825,10 +840,17 @@ object srvContactos: TsrvContactos
Name = 'TIPO_CLIENTE'
DataType = datString
Size = 255
DictionaryEntry = 'Clientes_TIPO_CLIENTE'
end
item
Name = 'SEPA'
DataType = datSmallInt
DictionaryEntry = 'Clientes_SEPA'
end
item
Name = 'ID_CENTRAL'
DataType = datInteger
DictionaryEntry = 'Clientes_ID_CENTRAL'
end>
end
item
@ -1725,6 +1747,12 @@ object srvContactos: TsrvContactos
DataType = datDateTime
end>
end
item
Params = <>
Statements = <>
Name = 'Dataset'
Fields = <>
end
item
Params = <>
Statements = <
@ -2938,6 +2966,450 @@ object srvContactos: TsrvContactos
Size = 255
DictionaryEntry = 'TiposCliente_DESCRIPCION'
end>
end
item
Params = <>
Statements = <
item
Connection = 'IBX'
TargetTable = 'V_CLIENTES'
StatementType = stAutoSQL
ColumnMappings = <
item
DatasetField = 'ID'
TableField = 'ID'
end
item
DatasetField = 'ID_CATEGORIA'
TableField = 'ID_CATEGORIA'
end
item
DatasetField = 'NIF_CIF'
TableField = 'NIF_CIF'
end
item
DatasetField = 'NOMBRE'
TableField = 'NOMBRE'
end
item
DatasetField = 'PERSONA_CONTACTO'
TableField = 'PERSONA_CONTACTO'
end
item
DatasetField = 'CALLE'
TableField = 'CALLE'
end
item
DatasetField = 'POBLACION'
TableField = 'POBLACION'
end
item
DatasetField = 'PROVINCIA'
TableField = 'PROVINCIA'
end
item
DatasetField = 'CODIGO_POSTAL'
TableField = 'CODIGO_POSTAL'
end
item
DatasetField = 'TELEFONO_1'
TableField = 'TELEFONO_1'
end
item
DatasetField = 'TELEFONO_2'
TableField = 'TELEFONO_2'
end
item
DatasetField = 'MOVIL_1'
TableField = 'MOVIL_1'
end
item
DatasetField = 'MOVIL_2'
TableField = 'MOVIL_2'
end
item
DatasetField = 'FAX'
TableField = 'FAX'
end
item
DatasetField = 'EMAIL_1'
TableField = 'EMAIL_1'
end
item
DatasetField = 'EMAIL_2'
TableField = 'EMAIL_2'
end
item
DatasetField = 'PAGINA_WEB'
TableField = 'PAGINA_WEB'
end
item
DatasetField = 'NOTAS'
TableField = 'NOTAS'
end
item
DatasetField = 'FECHA_ALTA'
TableField = 'FECHA_ALTA'
end
item
DatasetField = 'FECHA_MODIFICACION'
TableField = 'FECHA_MODIFICACION'
end
item
DatasetField = 'USUARIO'
TableField = 'USUARIO'
end
item
DatasetField = 'ID_EMPRESA'
TableField = 'ID_EMPRESA'
end
item
DatasetField = 'REFERENCIA'
TableField = 'REFERENCIA'
end
item
DatasetField = 'GRUPO_CLIENTE'
TableField = 'GRUPO_CLIENTE'
end
item
DatasetField = 'NOMBRE_COMERCIAL'
TableField = 'NOMBRE_COMERCIAL'
end
item
DatasetField = 'BLOQUEADO'
TableField = 'BLOQUEADO'
end
item
DatasetField = 'REGIMEN_IVA'
TableField = 'REGIMEN_IVA'
end
item
DatasetField = 'MOTIVO_BLOQUEO'
TableField = 'MOTIVO_BLOQUEO'
end
item
DatasetField = 'RECARGO_EQUIVALENCIA'
TableField = 'RECARGO_EQUIVALENCIA'
end
item
DatasetField = 'ID_TIPO_IVA'
TableField = 'ID_TIPO_IVA'
end
item
DatasetField = 'ID_FORMA_PAGO'
TableField = 'ID_FORMA_PAGO'
end
item
DatasetField = 'TIENDA_WEB'
TableField = 'TIENDA_WEB'
end
item
DatasetField = 'CODIGO_ASIGNADO'
TableField = 'CODIGO_ASIGNADO'
end
item
DatasetField = 'DESCUENTO'
TableField = 'DESCUENTO'
end
item
DatasetField = 'VENCIMIENTO_FACTURAS_1'
TableField = 'VENCIMIENTO_FACTURAS_1'
end
item
DatasetField = 'VENCIMIENTO_FACTURAS_2'
TableField = 'VENCIMIENTO_FACTURAS_2'
end
item
DatasetField = 'VENCIMIENTO_FACTURAS_3'
TableField = 'VENCIMIENTO_FACTURAS_3'
end
item
DatasetField = 'FELICITACION'
TableField = 'FELICITACION'
end
item
DatasetField = 'ID_AGENTE'
TableField = 'ID_AGENTE'
end
item
DatasetField = 'AGENTE'
TableField = 'AGENTE'
end
item
DatasetField = 'RAPEL'
TableField = 'RAPEL'
end
item
DatasetField = 'EMAIL_ADMINISTRACION'
TableField = 'EMAIL_ADMINISTRACION'
end
item
DatasetField = 'TIPO_CLIENTE'
TableField = 'TIPO_CLIENTE'
end
item
DatasetField = 'SEPA'
TableField = 'SEPA'
end
item
DatasetField = 'ID_CENTRAL'
TableField = 'ID_CENTRAL'
end>
end>
Name = 'ClientesSucursales'
Fields = <
item
Name = 'ID'
DataType = datInteger
InPrimaryKey = True
end
item
Name = 'ID_CATEGORIA'
DataType = datInteger
DictionaryEntry = 'Contactos_ID_CATEGORIA'
end
item
Name = 'NIF_CIF'
DataType = datString
Size = 15
DictionaryEntry = 'Contactos_NIF_CIF'
end
item
Name = 'NOMBRE'
DataType = datString
Size = 255
DictionaryEntry = 'Contactos_NOMBRE'
end
item
Name = 'PERSONA_CONTACTO'
DataType = datString
Size = 255
DictionaryEntry = 'Contactos_PERSONA_CONTACTO'
end
item
Name = 'CALLE'
DataType = datString
Size = 255
DictionaryEntry = 'Contactos_CALLE'
end
item
Name = 'POBLACION'
DataType = datString
Size = 255
DictionaryEntry = 'Contactos_POBLACION'
end
item
Name = 'PROVINCIA'
DataType = datString
Size = 255
DictionaryEntry = 'Contactos_PROVINCIA'
end
item
Name = 'CODIGO_POSTAL'
DataType = datString
Size = 10
DictionaryEntry = 'Contactos_CODIGO_POSTAL'
end
item
Name = 'TELEFONO_1'
DataType = datString
Size = 25
DictionaryEntry = 'Contactos_TELEFONO_1'
end
item
Name = 'TELEFONO_2'
DataType = datString
Size = 25
DictionaryEntry = 'Contactos_TELEFONO_2'
end
item
Name = 'MOVIL_1'
DataType = datString
Size = 25
DictionaryEntry = 'Contactos_MOVIL_1'
end
item
Name = 'MOVIL_2'
DataType = datString
Size = 25
DictionaryEntry = 'Contactos_MOVIL_2'
end
item
Name = 'FAX'
DataType = datString
Size = 25
DictionaryEntry = 'Contactos_FAX'
end
item
Name = 'EMAIL_1'
DataType = datString
Size = 255
DictionaryEntry = 'Contactos_EMAIL_1'
end
item
Name = 'EMAIL_2'
DataType = datString
Size = 255
DictionaryEntry = 'Contactos_EMAIL_2'
end
item
Name = 'PAGINA_WEB'
DataType = datString
Size = 255
DictionaryEntry = 'Contactos_PAGINA_WEB'
end
item
Name = 'NOTAS'
DataType = datMemo
BlobType = dabtMemo
DictionaryEntry = 'Contactos_NOTAS'
end
item
Name = 'FECHA_ALTA'
DataType = datDateTime
DictionaryEntry = 'Clientes_FECHA_ALTA'
end
item
Name = 'FECHA_MODIFICACION'
DataType = datDateTime
DictionaryEntry = 'Clientes_FECHA_MODIFICACION'
end
item
Name = 'USUARIO'
DataType = datString
Size = 20
DictionaryEntry = 'Contactos_USUARIO'
end
item
Name = 'ID_EMPRESA'
DataType = datInteger
DictionaryEntry = 'Contactos_ID_EMPRESA'
end
item
Name = 'REFERENCIA'
DataType = datString
Size = 255
ServerAutoRefresh = True
DictionaryEntry = 'Clientes_REFERENCIA'
end
item
Name = 'ID_AGENTE'
DataType = datInteger
DictionaryEntry = 'Clientes_ID_AGENTE'
end
item
Name = 'GRUPO_CLIENTE'
DataType = datString
Size = 255
DictionaryEntry = 'Clientes_GRUPO_CLIENTE'
end
item
Name = 'NOMBRE_COMERCIAL'
DataType = datString
Size = 255
DictionaryEntry = 'Clientes_NOMBRE_COMERCIAL'
end
item
Name = 'VENCIMIENTO_FACTURAS_1'
DataType = datSmallInt
DictionaryEntry = 'Clientes_VENCIMIENTO_FACTURAS_1'
end
item
Name = 'VENCIMIENTO_FACTURAS_2'
DataType = datSmallInt
DictionaryEntry = 'Clientes_VENCIMIENTO_FACTURAS_2'
end
item
Name = 'VENCIMIENTO_FACTURAS_3'
DataType = datSmallInt
DictionaryEntry = 'Clientes_VENCIMIENTO_FACTURAS_3'
end
item
Name = 'BLOQUEADO'
DataType = datSmallInt
DictionaryEntry = 'Clientes_BLOQUEADO'
end
item
Name = 'AGENTE'
DataType = datString
Size = 255
DictionaryEntry = 'Clientes_AGENTE'
end
item
Name = 'RAPEL'
DataType = datSmallInt
DictionaryEntry = 'Clientes_RAPEL'
end
item
Name = 'EMAIL_ADMINISTRACION'
DataType = datString
Size = 255
DictionaryEntry = 'Clientes_EMAIL_ADMINISTRACION'
end
item
Name = 'REGIMEN_IVA'
DataType = datString
Size = 255
DictionaryEntry = 'Clientes_REGIMEN_IVA'
end
item
Name = 'MOTIVO_BLOQUEO'
DataType = datString
Size = 255
DictionaryEntry = 'Clientes_MOTIVO_BLOQUEO'
end
item
Name = 'RECARGO_EQUIVALENCIA'
DataType = datInteger
DictionaryEntry = 'Clientes_RECARGO_EQUIVALENCIA'
end
item
Name = 'ID_TIPO_IVA'
DataType = datInteger
DictionaryEntry = 'Clientes_ID_TIPO_IVA'
end
item
Name = 'ID_FORMA_PAGO'
DataType = datInteger
DictionaryEntry = 'Clientes_ID_FORMA_PAGO'
end
item
Name = 'TIENDA_WEB'
DataType = datSmallInt
DictionaryEntry = 'Clientes_TIENDA_WEB'
end
item
Name = 'CODIGO_ASIGNADO'
DataType = datString
Size = 255
DictionaryEntry = 'Clientes_CODIGO_ASIGNADO'
end
item
Name = 'DESCUENTO'
DataType = datFloat
DictionaryEntry = 'Clientes_DESCUENTO'
end
item
Name = 'FELICITACION'
DataType = datSmallInt
DictionaryEntry = 'Clientes_FELICITACION'
end
item
Name = 'TIPO_CLIENTE'
DataType = datString
Size = 255
DictionaryEntry = 'Clientes_TIPO_CLIENTE'
end
item
Name = 'SEPA'
DataType = datSmallInt
DictionaryEntry = 'Clientes_SEPA'
end
item
Name = 'ID_CENTRAL'
DataType = datInteger
DictionaryEntry = 'Clientes_ID_CENTRAL'
end>
end>
JoinDataTables = <>
UnionDataTables = <>
@ -3611,6 +4083,11 @@ object srvContactos: TsrvContactos
end
item
Params = <
item
Name = 'ID_CENTRAL'
DataType = datInteger
Value = ''
end
item
Name = 'ID_CLIENTE'
DataType = datInteger
@ -3733,13 +4210,14 @@ object srvContactos: TsrvContactos
'UEO, REGIMEN_IVA, ID_TIPO_IVA, ID_FORMA_PAGO,'#10' TIENDA_WEB, C' +
'ODIGO_ASIGNADO, DESCUENTO, RAPEL, ID_AGENTE, EMAIL_ADMINISTRACIO' +
'N,'#10' VENCIMIENTO_FACTURAS_1, VENCIMIENTO_FACTURAS_2, VENCIMIE' +
'NTO_FACTURAS_3,'#10' FELICITACION, TIPO_CLIENTE, SEPA)'#10' VALUES'#10 +
' (:ID_CLIENTE, :GRUPO_CLIENTE, :RECARGO_EQUIVALENCIA, :NOMBRE' +
'_COMERCIAL,'#10' :BLOQUEADO, :MOTIVO_BLOQUEO, :REGIMEN_IVA, :ID_' +
'TIPO_IVA, :ID_FORMA_PAGO,'#10' :TIENDA_WEB, :CODIGO_ASIGNADO, :D' +
'ESCUENTO, :RAPEL, :ID_AGENTE, :EMAIL_ADMINISTRACION,'#10' :VENCI' +
'MIENTO_FACTURAS_1, :VENCIMIENTO_FACTURAS_2, :VENCIMIENTO_FACTURA' +
'S_3,'#10' :FELICITACION, :TIPO_CLIENTE, :SEPA)'#10' '#10#10
'NTO_FACTURAS_3,'#10' FELICITACION, TIPO_CLIENTE, SEPA, ID_CENTRA' +
'L)'#10' VALUES'#10' (:ID_CLIENTE, :GRUPO_CLIENTE, :RECARGO_EQUIVALEN' +
'CIA, :NOMBRE_COMERCIAL,'#10' :BLOQUEADO, :MOTIVO_BLOQUEO, :REGIM' +
'EN_IVA, :ID_TIPO_IVA, :ID_FORMA_PAGO,'#10' :TIENDA_WEB, :CODIGO_' +
'ASIGNADO, :DESCUENTO, :RAPEL, :ID_AGENTE, :EMAIL_ADMINISTRACION,' +
#10' :VENCIMIENTO_FACTURAS_1, :VENCIMIENTO_FACTURAS_2, :VENCIMI' +
'ENTO_FACTURAS_3,'#10' :FELICITACION, :TIPO_CLIENTE, :SEPA, :ID_C' +
'ENTRAL)'#10' '#10#10
StatementType = stSQL
ColumnMappings = <>
end>
@ -3767,6 +4245,11 @@ object srvContactos: TsrvContactos
end
item
Params = <
item
Name = 'ID_CENTRAL'
DataType = datInteger
Value = ''
end
item
Name = 'ID_CLIENTE'
DataType = datInteger
@ -3900,8 +4383,8 @@ object srvContactos: TsrvContactos
' = :VENCIMIENTO_FACTURAS_1,'#10' VENCIMIENTO_FACTURAS_2 = :VENCIM' +
'IENTO_FACTURAS_2,'#10' VENCIMIENTO_FACTURAS_3 = :VENCIMIENTO_FACT' +
'URAS_3,'#10' FELICITACION = :FELICITACION,'#10' TIPO_CLIENTE = :TI' +
'PO_CLIENTE,'#10' SEPA = :SEPA'#10' WHERE'#10' (ID_CLIENTE = :OLD_ID_C' +
'LIENTE)'#10
'PO_CLIENTE,'#10' SEPA = :SEPA,'#10' ID_CENTRAL = :ID_CENTRAL'#10' WHE' +
'RE'#10' (ID_CLIENTE = :OLD_ID_CLIENTE)'#10
StatementType = stSQL
ColumnMappings = <>
end>
@ -5032,6 +5515,50 @@ object srvContactos: TsrvContactos
end>
Name = 'Update_AgentesDatos'
end
item
Params = <
item
Name = 'ID_CENTRAL'
DataType = datInteger
Value = ''
end
item
Name = 'ID'
DataType = datInteger
Value = ''
end>
Statements = <
item
Connection = 'IBX'
Default = True
SQL =
'UPDATE CLIENTES_DATOS SET'#10'ID_CENTRAL = :ID_CENTRAL'#10'WHERE ID_CLIE' +
'NTE = :ID'#10#10
StatementType = stSQL
ColumnMappings = <>
end>
Name = 'Update_ClientesSucursales'
end
item
Params = <
item
Name = 'OLD_ID'
DataType = datInteger
Value = ''
ParamType = daptInput
end>
Statements = <
item
Connection = 'IBX'
Default = True
SQL =
'UPDATE CLIENTES_DATOS SET'#10'ID_CENTRAL = NULL'#10'WHERE ID_CLIENTE = :' +
'OLD_ID'#10#10
StatementType = stSQL
ColumnMappings = <>
end>
Name = 'Delete_ClientesSucursales'
end
item
Params = <
item
@ -5503,6 +6030,14 @@ object srvContactos: TsrvContactos
DetailFields = 'ID_CONTACTO'
RelationshipType = rtForeignKey
end
item
Name = 'FK_Sucursales_Clientes'
MasterDatasetName = 'Clientes'
MasterFields = 'ID'
DetailDatasetName = 'ClientesSucursales'
DetailFields = 'ID_CENTRAL'
RelationshipType = rtForeignKey
end
item
Name = 'FK_DatosBancarios_Proveedores'
MasterDatasetName = 'Proveedores'
@ -6440,6 +6975,58 @@ object srvContactos: TsrvContactos
DataType = datString
Size = 255
DisplayLabel = 'C'#243'digo SWIFT/BIC'
end
item
Name = 'Clientes_ID_CENTRAL'
DataType = datInteger
DisplayLabel = 'ID_CENTRAL'
end
item
Name = 'Clientes_FECHA_ALTA'
DataType = datDateTime
end
item
Name = 'Clientes_FECHA_MODIFICACION'
DataType = datDateTime
end
item
Name = 'Clientes_VENCIMIENTO_FACTURAS_1'
DataType = datSmallInt
end
item
Name = 'Clientes_VENCIMIENTO_FACTURAS_2'
DataType = datSmallInt
end
item
Name = 'Clientes_VENCIMIENTO_FACTURAS_3'
DataType = datSmallInt
end
item
Name = 'Clientes_RAPEL'
DataType = datSmallInt
end
item
Name = 'Clientes_EMAIL_ADMINISTRACION'
DataType = datString
Size = 255
end
item
Name = 'Clientes_CODIGO_ASIGNADO'
DataType = datString
Size = 255
end
item
Name = 'Clientes_DESCUENTO'
DataType = datFloat
end
item
Name = 'Clientes_TIPO_CLIENTE'
DataType = datString
Size = 255
end
item
Name = 'Clientes_SEPA'
DataType = datSmallInt
end>
Left = 126
Top = 14
@ -6587,8 +7174,8 @@ object srvContactos: TsrvContactos
ReferencedDataset = 'Agentes_Objetivos_albaranes'
ProcessorOptions = [poPrepareCommands]
UpdateMode = updWhereKeyOnly
Left = 48
Top = 287
Left = 112
Top = 263
end
object bpAgentesObjetivosFac: TDABusinessProcessor
Schema = schContactos
@ -6598,7 +7185,19 @@ object srvContactos: TsrvContactos
ReferencedDataset = 'Agentes_Objetivos_facturas'
ProcessorOptions = [poPrepareCommands]
UpdateMode = updWhereKeyOnly
Left = 176
Top = 287
Left = 224
Top = 263
end
object bpClientesSucursales: TDABusinessProcessor
Schema = schContactos
InsertCommandName = 'Update_ClientesSucursales'
DeleteCommandName = 'Delete_ClientesSucursales'
UpdateCommandName = 'Update_ClientesSucursales'
RefreshDatasetName = 'ClientesSucursales'
ReferencedDataset = 'ClientesSucursales'
ProcessorOptions = [poPrepareCommands, poIgnoreRowsAffected]
UpdateMode = updWhereKeyOnly
Left = 456
Top = 15
end
end

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

@ -37,6 +37,7 @@ type
bpClientesDescuentosArt: TDABusinessProcessor;
bpAgentesObjetivosAlb: TDABusinessProcessor;
bpAgentesObjetivosFac: TDABusinessProcessor;
bpClientesSucursales: TDABusinessProcessor;
schContactos: TDASchema;
DataDictionary: TDADataDictionary;
procedure DARemoteServiceBeforeGetDatasetData(const Dataset: IDADataset;

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

@ -134,6 +134,8 @@ contains
uEditorElegirAgentes in 'uEditorElegirAgentes.pas' {fEditorElegirAgentes: TCustomEditor},
uViewAgenteObjetivosAlbaranes in 'uViewAgenteObjetivosAlbaranes.pas' {frViewAgenteObjetivosAlbaranes: TFrame},
uViewAgenteObjetivosFacturas in 'uViewAgenteObjetivosFacturas.pas' {frViewAgenteObjetivosFacturas: TFrame},
uEditorTiposCliente in 'uEditorTiposCliente.pas' {fEditorTiposCliente: TCustomEditor};
uEditorTiposCliente in 'uEditorTiposCliente.pas' {fEditorTiposCliente: TCustomEditor},
uViewDatosYSeleccionCentral in 'uViewDatosYSeleccionCentral.pas' {frViewDatosYSeleccionCentral: TCustomView},
uViewSucursalesContacto in 'uViewSucursalesContacto.pas' {frViewSucursalesContacto: TFrame};
end.

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

@ -49,65 +49,58 @@
<DelphiCompile Include="Contactos_view.dpk">
<MainSource>MainSource</MainSource>
</DelphiCompile>
<DCCReference Include="..\..\..\..\Resources\Iconos\Contactos\16x16\adortl.dcp" />
<DCCReference Include="..\..\..\..\Resources\Iconos\Contactos\16x16\ApplicationBase.dcp" />
<DCCReference Include="..\..\..\..\Resources\Iconos\Contactos\16x16\Articulos_controller.dcp" />
<DCCReference Include="..\..\..\..\Resources\Iconos\Contactos\16x16\Base.dcp" />
<DCCReference Include="..\..\..\..\Resources\Iconos\Contactos\16x16\bdertl.dcp" />
<DCCReference Include="..\..\..\..\Resources\Iconos\Contactos\16x16\ccpackD11.dcp" />
<DCCReference Include="..\..\..\..\Resources\Iconos\Contactos\16x16\cfpack_d11.dcp" />
<DCCReference Include="..\..\..\..\Resources\Iconos\Contactos\16x16\Contactos_controller.dcp" />
<DCCReference Include="..\..\..\..\Resources\Iconos\Contactos\16x16\Contactos_model.dcp" />
<DCCReference Include="..\..\..\..\Resources\Iconos\Contactos\16x16\cxDataD11.dcp" />
<DCCReference Include="..\..\..\..\Resources\Iconos\Contactos\16x16\cxEditorsD11.dcp" />
<DCCReference Include="..\..\..\..\Resources\Iconos\Contactos\16x16\cxExportD11.dcp" />
<DCCReference Include="..\..\..\..\Resources\Iconos\Contactos\16x16\cxExtEditorsD11.dcp" />
<DCCReference Include="..\..\..\..\Resources\Iconos\Contactos\16x16\cxGridD11.dcp" />
<DCCReference Include="..\..\..\..\Resources\Iconos\Contactos\16x16\cxLibraryD11.dcp" />
<DCCReference Include="..\..\..\..\Resources\Iconos\Contactos\16x16\cxPageControlD11.dcp" />
<DCCReference Include="..\..\..\..\Resources\Iconos\Contactos\16x16\DataAbstract_Core_D11.dcp" />
<DCCReference Include="..\..\..\..\Resources\Iconos\Contactos\16x16\dbrtl.dcp" />
<DCCReference Include="..\..\..\..\Resources\Iconos\Contactos\16x16\dclcxLibraryD11.dcp" />
<DCCReference Include="..\..\..\..\Resources\Iconos\Contactos\16x16\designide.dcp" />
<DCCReference Include="..\..\..\..\Resources\Iconos\Contactos\16x16\dsnap.dcp" />
<DCCReference Include="..\..\..\..\Resources\Iconos\Contactos\16x16\dxComnD11.dcp" />
<DCCReference Include="..\..\..\..\Resources\Iconos\Contactos\16x16\dxCoreD11.dcp" />
<DCCReference Include="..\..\..\..\Resources\Iconos\Contactos\16x16\dxGDIPlusD11.dcp" />
<DCCReference Include="..\..\..\..\Resources\Iconos\Contactos\16x16\dxLayoutControlD11.dcp" />
<DCCReference Include="..\..\..\..\Resources\Iconos\Contactos\16x16\dxPSCoreD11.dcp" />
<DCCReference Include="..\..\..\..\Resources\Iconos\Contactos\16x16\dxPScxCommonD11.dcp" />
<DCCReference Include="..\..\..\..\Resources\Iconos\Contactos\16x16\dxPScxGrid6LnkD11.dcp" />
<DCCReference Include="..\..\..\..\Resources\Iconos\Contactos\16x16\dxPSLnksD11.dcp" />
<DCCReference Include="..\..\..\..\Resources\Iconos\Contactos\16x16\dxThemeD11.dcp" />
<DCCReference Include="..\..\..\..\Resources\Iconos\Contactos\16x16\FormasPago_controller.dcp" />
<DCCReference Include="..\..\..\..\Resources\Iconos\Contactos\16x16\FormasPago_model.dcp" />
<DCCReference Include="..\..\..\..\Resources\Iconos\Contactos\16x16\GUIBase.dcp" />
<DCCReference Include="..\..\..\..\Resources\Iconos\Contactos\16x16\GUISDK_D11R.dcp" />
<DCCReference Include="..\..\..\..\Resources\Iconos\Contactos\16x16\Jcl.dcp" />
<DCCReference Include="..\..\..\..\Resources\Iconos\Contactos\16x16\JclVcl.dcp" />
<DCCReference Include="..\..\..\..\Resources\Iconos\Contactos\16x16\JSDialog100.dcp" />
<DCCReference Include="..\..\..\..\Resources\Iconos\Contactos\16x16\JvAppFrmD11R.dcp" />
<DCCReference Include="..\..\..\..\Resources\Iconos\Contactos\16x16\JvCoreD11R.dcp" />
<DCCReference Include="..\..\..\..\Resources\Iconos\Contactos\16x16\JvCtrlsD11R.dcp" />
<DCCReference Include="..\..\..\..\Resources\Iconos\Contactos\16x16\JvGlobusD11R.dcp" />
<DCCReference Include="..\..\..\..\Resources\Iconos\Contactos\16x16\JvPageCompsD11R.dcp" />
<DCCReference Include="..\..\..\..\Resources\Iconos\Contactos\16x16\JvStdCtrlsD11R.dcp" />
<DCCReference Include="..\..\..\..\Resources\Iconos\Contactos\16x16\JvSystemD11R.dcp" />
<DCCReference Include="..\..\..\..\Resources\Iconos\Contactos\16x16\PngComponentsD10.dcp" />
<DCCReference Include="..\..\..\..\Resources\Iconos\Contactos\16x16\PNG_D10.dcp" />
<DCCReference Include="..\..\..\..\Resources\Iconos\Contactos\16x16\RemObjects_Core_D11.dcp" />
<DCCReference Include="..\..\..\..\Resources\Iconos\Contactos\16x16\rtl.dcp" />
<DCCReference Include="..\..\..\..\Resources\Iconos\Contactos\16x16\tb2k_d10.dcp" />
<DCCReference Include="..\..\..\..\Resources\Iconos\Contactos\16x16\tbx_d10.dcp" />
<DCCReference Include="..\..\..\..\Resources\Iconos\Contactos\16x16\TiposIVA_controller.dcp" />
<DCCReference Include="..\..\..\..\Resources\Iconos\Contactos\16x16\TiposIVA_model.dcp" />
<DCCReference Include="..\..\..\..\Resources\Iconos\Contactos\16x16\vcl.dcp" />
<DCCReference Include="..\..\..\..\Resources\Iconos\Contactos\16x16\vclactnband.dcp" />
<DCCReference Include="..\..\..\..\Resources\Iconos\Contactos\16x16\vcldb.dcp" />
<DCCReference Include="..\..\..\..\Resources\Iconos\Contactos\16x16\vcljpg.dcp" />
<DCCReference Include="..\..\..\..\Resources\Iconos\Contactos\16x16\vclshlctrls.dcp" />
<DCCReference Include="..\..\..\..\Resources\Iconos\Contactos\16x16\vclx.dcp" />
<DCCReference Include="..\..\..\..\Resources\Iconos\Contactos\16x16\xmlrtl.dcp" />
<DCCReference Include="adortl.dcp" />
<DCCReference Include="ApplicationBase.dcp" />
<DCCReference Include="Articulos_controller.dcp" />
<DCCReference Include="Base.dcp" />
<DCCReference Include="bdertl.dcp" />
<DCCReference Include="ccpackD11.dcp" />
<DCCReference Include="cfpack_d11.dcp" />
<DCCReference Include="Contactos_controller.dcp" />
<DCCReference Include="Contactos_model.dcp" />
<DCCReference Include="cxDataD11.dcp" />
<DCCReference Include="cxEditorsD11.dcp" />
<DCCReference Include="cxExportD11.dcp" />
<DCCReference Include="cxExtEditorsD11.dcp" />
<DCCReference Include="cxGridD11.dcp" />
<DCCReference Include="cxLibraryD11.dcp" />
<DCCReference Include="cxPageControlD11.dcp" />
<DCCReference Include="DataAbstract_Core_D11.dcp" />
<DCCReference Include="dbrtl.dcp" />
<DCCReference Include="dclcxLibraryD11.dcp" />
<DCCReference Include="designide.dcp" />
<DCCReference Include="dsnap.dcp" />
<DCCReference Include="dxComnD11.dcp" />
<DCCReference Include="dxCoreD11.dcp" />
<DCCReference Include="dxGDIPlusD11.dcp" />
<DCCReference Include="dxLayoutControlD11.dcp" />
<DCCReference Include="dxPSCoreD11.dcp" />
<DCCReference Include="dxPScxCommonD11.dcp" />
<DCCReference Include="dxPScxGrid6LnkD11.dcp" />
<DCCReference Include="dxPSLnksD11.dcp" />
<DCCReference Include="dxThemeD11.dcp" />
<DCCReference Include="FormasPago_controller.dcp" />
<DCCReference Include="FormasPago_model.dcp" />
<DCCReference Include="GUIBase.dcp" />
<DCCReference Include="GUISDK_D11R.dcp" />
<DCCReference Include="Jcl.dcp" />
<DCCReference Include="JclVcl.dcp" />
<DCCReference Include="JSDialog100.dcp" />
<DCCReference Include="JvAppFrmD11R.dcp" />
<DCCReference Include="JvCoreD11R.dcp" />
<DCCReference Include="JvCtrlsD11R.dcp" />
<DCCReference Include="JvGlobusD11R.dcp" />
<DCCReference Include="JvPageCompsD11R.dcp" />
<DCCReference Include="JvStdCtrlsD11R.dcp" />
<DCCReference Include="JvSystemD11R.dcp" />
<DCCReference Include="PngComponentsD10.dcp" />
<DCCReference Include="PNG_D10.dcp" />
<DCCReference Include="RemObjects_Core_D11.dcp" />
<DCCReference Include="rtl.dcp" />
<DCCReference Include="tb2k_d10.dcp" />
<DCCReference Include="tbx_d10.dcp" />
<DCCReference Include="TiposIVA_controller.dcp" />
<DCCReference Include="TiposIVA_model.dcp" />
<DCCReference Include="uContactosViewRegister.pas" />
<DCCReference Include="uEditorAgente.pas">
<Form>fEditorAgente</Form>
@ -260,6 +253,10 @@
<Form>frViewContactos</Form>
<DesignClass>TCustomView</DesignClass>
</DCCReference>
<DCCReference Include="uViewDatosYSeleccionCentral.pas">
<Form>frViewDatosYSeleccionCentral</Form>
<DesignClass>TCustomView</DesignClass>
</DCCReference>
<DCCReference Include="uViewDatosYSeleccionCliente.pas">
<Form>frViewDatosYSeleccionCliente</Form>
<DesignClass>TFrame</DesignClass>
@ -300,6 +297,17 @@
<Form>frViewProveedores</Form>
<DesignClass>TCustomView</DesignClass>
</DCCReference>
<DCCReference Include="uViewSucursalesContacto.pas">
<Form>frViewSucursalesContact</Form>
<DesignClass>TFrame</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

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

Binary file not shown.

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

@ -126,10 +126,12 @@ inherited fEditorCliente: TfEditorCliente
inherited pgPaginas: TPageControl
Width = 864
Height = 614
ActivePage = pagDescuentos
ActivePage = tabSucursales
ExplicitWidth = 864
ExplicitHeight = 614
inherited pagGeneral: TTabSheet
ExplicitLeft = 0
ExplicitTop = 0
ExplicitWidth = 856
ExplicitHeight = 586
inline frViewCliente1: TfrViewCliente
@ -173,20 +175,16 @@ inherited fEditorCliente: TfEditorCliente
ExplicitTop = 162
end
inherited Label1: TLabel
Left = 484
Left = 586
Top = 418
Width = 269
ExplicitLeft = 484
ExplicitLeft = 586
ExplicitTop = 418
ExplicitWidth = 269
end
inherited Label2: TLabel
Left = 484
Left = 586
Top = 321
Width = 271
ExplicitLeft = 484
ExplicitLeft = 586
ExplicitTop = 321
ExplicitWidth = 271
end
inherited PngSpeedButton4: TPngSpeedButton
Left = 794
@ -195,22 +193,22 @@ inherited fEditorCliente: TfEditorCliente
ExplicitTop = 366
end
inherited eCalle: TcxDBTextEdit
Top = 382
Top = 451
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitTop = 382
ExplicitTop = 451
ExplicitWidth = 246
Width = 246
end
inherited cbProvincia: TcxDBComboBox
Top = 409
Top = 478
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitTop = 409
ExplicitTop = 478
ExplicitWidth = 145
Width = 145
end
@ -225,12 +223,12 @@ inherited fEditorCliente: TfEditorCliente
Width = 246
end
inherited cbClienteBloqueado: TcxDBCheckBox
Top = 304
Top = 373
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitTop = 304
ExplicitTop = 373
ExplicitWidth = 356
Width = 356
end
@ -245,12 +243,12 @@ inherited fEditorCliente: TfEditorCliente
Width = 246
end
inherited eBloqueo: TcxDBTextEdit
Top = 331
Top = 400
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitTop = 331
ExplicitTop = 400
ExplicitWidth = 246
Width = 246
end
@ -265,40 +263,39 @@ inherited fEditorCliente: TfEditorCliente
Width = 246
end
inherited cbPoblacion: TcxDBComboBox
Top = 436
Top = 505
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitTop = 436
ExplicitTop = 505
ExplicitWidth = 246
Width = 246
end
inherited eCodigoPostal: TcxDBTextEdit
Left = 391
Top = 409
Left = 493
Top = 478
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitLeft = 391
ExplicitTop = 409
ExplicitLeft = 493
ExplicitTop = 478
end
inherited cbFelicitacion: TcxDBCheckBox
Left = 484
Left = 586
Top = 270
ExplicitLeft = 484
ExplicitLeft = 586
ExplicitTop = 270
ExplicitWidth = 370
Width = 370
end
inherited cxDBCheckBox1: TcxDBCheckBox
Left = 484
Left = 586
Top = 463
ExplicitLeft = 484
ExplicitLeft = 586
ExplicitTop = 463
ExplicitWidth = 274
Width = 274
ExplicitWidth = 219
ExplicitHeight = 34
Width = 219
end
inherited cbRapel: TcxDBCheckBox
Top = 192
@ -307,142 +304,70 @@ inherited fEditorCliente: TfEditorCliente
Width = 308
end
inherited eMailAdministracion: TcxDBHyperLinkEdit
Left = 596
Left = 698
Top = 366
Properties.Prefix = 'mailto:'
ExplicitLeft = 596
ExplicitLeft = 698
ExplicitTop = 366
ExplicitWidth = 133
Width = 133
end
inherited eObservaciones: TcxDBMemo
Top = 514
Top = 583
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitTop = 514
ExplicitTop = 583
ExplicitWidth = 656
ExplicitHeight = 87
Height = 87
Width = 656
end
inherited eTlfParticular: TcxDBTextEdit
Left = 596
Top = 57
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitLeft = 596
ExplicitTop = 57
ExplicitWidth = 177
Width = 177
end
inherited eTlfTrabajo: TcxDBTextEdit
Left = 596
Top = 30
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitLeft = 596
ExplicitTop = 30
ExplicitWidth = 177
Width = 177
end
inherited eTlfMovil: TcxDBTextEdit
Left = 596
Top = 84
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitLeft = 596
ExplicitTop = 84
ExplicitWidth = 177
Width = 177
end
inherited eFax: TcxDBTextEdit
Left = 596
Top = 111
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitLeft = 596
ExplicitTop = 111
ExplicitWidth = 177
Width = 177
end
inherited eNombre: TcxDBTextEdit
Top = 57
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitTop = 57
ExplicitWidth = 246
Width = 246
end
inherited cbTipoCliente: TcxDBComboBox
Top = 165
ExplicitTop = 165
ExplicitWidth = 332
Width = 332
end
inherited eNIFCIF: TcxDBTextEdit
Left = 247
Top = 30
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitLeft = 247
ExplicitTop = 30
ExplicitWidth = 162
Width = 162
end
inherited eMailTrabajo: TcxDBHyperLinkEdit
Left = 596
Top = 162
Properties.Prefix = 'mailto:'
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitLeft = 596
ExplicitTop = 162
ExplicitWidth = 148
Width = 148
end
inherited eMailParticular: TcxDBHyperLinkEdit
Left = 596
Top = 190
Properties.Prefix = 'mailto:'
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitLeft = 596
ExplicitTop = 190
ExplicitWidth = 148
Width = 148
end
inherited cbSEPA: TcxDBCheckBox
Top = 219
ExplicitTop = 219
Left = 274
Top = 192
ExplicitLeft = 274
ExplicitTop = 192
ExplicitWidth = 481
Width = 481
end
inherited frViewDatosYSeleccionCentral1: TfrViewDatosYSeleccionCentral
Top = 243
ExplicitTop = 243
inherited dxLayoutControl1: TdxLayoutControl
inherited edtlNombre: TcxDBTextEdit
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
end
inherited edtNIFCIF: TcxDBTextEdit
Left = 446
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitLeft = 446
end
end
inherited Panel1: TPanel
ExplicitWidth = 548
inherited bVerFicha: TBitBtn
Visible = False
end
end
end
inherited ePaginaWeb: TcxDBHyperLinkEdit
Left = 596
Left = 698
Top = 217
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitLeft = 596
ExplicitLeft = 698
ExplicitTop = 217
ExplicitWidth = 148
Width = 148
@ -458,15 +383,111 @@ inherited fEditorCliente: TfEditorCliente
Width = 31
end
inherited ePersonaContacto: TcxDBTextEdit
Top = 463
Top = 532
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitTop = 463
ExplicitTop = 532
ExplicitWidth = 246
Width = 246
end
inherited eNIFCIF: TcxDBTextEdit
Left = 289
Top = 30
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitLeft = 289
ExplicitTop = 30
ExplicitWidth = 162
Width = 162
end
inherited eMailTrabajo: TcxDBHyperLinkEdit
Left = 698
Top = 162
Properties.Prefix = 'mailto:'
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitLeft = 698
ExplicitTop = 162
ExplicitWidth = 148
Width = 148
end
inherited eMailParticular: TcxDBHyperLinkEdit
Left = 698
Top = 190
Properties.Prefix = 'mailto:'
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitLeft = 698
ExplicitTop = 190
ExplicitWidth = 148
Width = 148
end
inherited eTlfMovil: TcxDBTextEdit
Left = 698
Top = 84
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitLeft = 698
ExplicitTop = 84
ExplicitWidth = 177
Width = 177
end
inherited eFax: TcxDBTextEdit
Left = 698
Top = 111
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitLeft = 698
ExplicitTop = 111
ExplicitWidth = 177
Width = 177
end
inherited eNombre: TcxDBTextEdit
Top = 57
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitTop = 57
ExplicitWidth = 246
Width = 246
end
inherited eTlfParticular: TcxDBTextEdit
Left = 698
Top = 57
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitLeft = 698
ExplicitTop = 57
ExplicitWidth = 177
Width = 177
end
inherited eTlfTrabajo: TcxDBTextEdit
Left = 698
Top = 30
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitLeft = 698
ExplicitTop = 30
ExplicitWidth = 177
Width = 177
end
end
inherited dsContacto: TDADataSource
Left = 24
@ -484,23 +505,17 @@ inherited fEditorCliente: TfEditorCliente
inherited dxLayoutControl1: TdxLayoutControl
Width = 856
ExplicitWidth = 856
inherited eEntidad: TcxDBTextEdit
ExplicitWidth = 114
Width = 114
end
inherited eSucursal: TcxDBTextEdit
Left = 528
ExplicitLeft = 528
ExplicitWidth = 112
Width = 112
Left = 334
ExplicitLeft = 334
end
inherited eCuenta: TcxDBTextEdit
ExplicitWidth = 194
Width = 194
Left = 614
ExplicitLeft = 614
end
inherited eTitular: TcxDBTextEdit
ExplicitWidth = 194
Width = 194
inherited eDC: TcxDBTextEdit
Left = 493
ExplicitLeft = 493
end
end
end
@ -538,9 +553,7 @@ inherited fEditorCliente: TfEditorCliente
end
inherited Bevel1: TBevel
Top = 138
Width = 263
ExplicitTop = 138
ExplicitWidth = 263
end
inherited eDiasVencimiento1: TcxDBSpinEdit
Left = 647
@ -635,8 +648,6 @@ inherited fEditorCliente: TfEditorCliente
inherited eAgente: TcxDBLookupComboBox
Top = 176
ExplicitTop = 176
ExplicitWidth = 216
Width = 216
end
end
end
@ -675,6 +686,18 @@ inherited fEditorCliente: TfEditorCliente
inherited ToolBar1: TToolBar
Width = 856
ExplicitWidth = 856
inherited ToolButton1: TToolButton
ExplicitWidth = 113
end
inherited ToolButton4: TToolButton
ExplicitWidth = 113
end
inherited ToolButton2: TToolButton
ExplicitWidth = 113
end
inherited ToolButton7: TToolButton
ExplicitWidth = 113
end
end
end
end
@ -707,6 +730,18 @@ inherited fEditorCliente: TfEditorCliente
inherited ToolBar1: TToolBar
Width = 856
ExplicitWidth = 856
inherited ToolButton1: TToolButton
ExplicitWidth = 113
end
inherited ToolButton4: TToolButton
ExplicitWidth = 113
end
inherited ToolButton2: TToolButton
ExplicitWidth = 113
end
inherited ToolButton7: TToolButton
ExplicitWidth = 113
end
end
end
inline frViewClienteDescuentosArticulos1: TfrViewClienteDescuentosArticulos
@ -735,6 +770,18 @@ inherited fEditorCliente: TfEditorCliente
inherited ToolBar1: TToolBar
Width = 856
ExplicitWidth = 856
inherited ToolButton1: TToolButton
ExplicitWidth = 113
end
inherited ToolButton4: TToolButton
ExplicitWidth = 113
end
inherited ToolButton2: TToolButton
ExplicitWidth = 113
end
inherited ToolButton7: TToolButton
ExplicitWidth = 113
end
end
end
end
@ -771,6 +818,49 @@ inherited fEditorCliente: TfEditorCliente
end
end
end
object tabSucursales: TTabSheet
Caption = 'Sucursales'
ImageIndex = 6
inline frViewSucursalesContacto1: TfrViewSucursalesContacto
Left = 0
Top = 0
Width = 856
Height = 586
Align = alClient
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'Tahoma'
Font.Style = []
ParentFont = False
TabOrder = 0
ReadOnly = False
ExplicitWidth = 856
ExplicitHeight = 586
inherited cxGrid: TcxGrid
Width = 856
Height = 561
ExplicitWidth = 856
ExplicitHeight = 561
end
inherited ToolBar1: TToolBar
Width = 856
ExplicitWidth = 856
inherited ToolButton1: TToolButton
ExplicitWidth = 113
end
inherited ToolButton4: TToolButton
ExplicitWidth = 113
end
inherited ToolButton2: TToolButton
ExplicitWidth = 113
end
inherited ToolButton7: TToolButton
ExplicitWidth = 113
end
end
end
end
end
inherited StatusBar: TJvStatusBar
Top = 696

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

@ -16,7 +16,7 @@ uses
uViewContactoDatosBancarios, dxLayoutLookAndFeels,
uViewClienteDatosComerciales, uDAInterfaces, uViewContactoListaDatosBancarios,
uViewPersonalContacto, cxControls, cxContainer, cxEdit, cxLabel,
uViewClienteDescuentosArticulos;
uViewClienteDescuentosArticulos, uViewSucursalesContacto;
type
TfEditorCliente = class(TfEditorContacto, IEditorCliente)
@ -49,6 +49,8 @@ type
frViewClienteDescuentosArticulos1: TfrViewClienteDescuentosArticulos;
actTiposCliente: TAction;
TBXItem42: TTBXItem;
tabSucursales: TTabSheet;
frViewSucursalesContacto1: TfrViewSucursalesContacto;
procedure FormShow(Sender: TObject);
procedure actGruposClienteExecute(Sender: TObject);
procedure actDocumentosFacturasExecute(Sender: TObject);
@ -174,12 +176,20 @@ begin
frViewClienteDescuentos1.dsDetalles.DataTable := (Contacto as IBizCliente).Descuentos.DataTable;
frViewClienteDescuentosArticulos1.dsDetalles.DataTable := (Contacto as IBizCliente).DescuentosArt.DataTable;
frViewClienteDatosComerciales1.Contacto := Contacto;
frViewSucursalesContacto1.Central := (Contacto as IBizCliente);
if Assigned((FContacto as IBizCliente).Sucursales) then
frViewSucursalesContacto1.dsDetalles.DataTable := (FContacto as IBizCliente).Sucursales.DataTable
else
frViewSucursalesContacto1.dsDetalles.DataTable := NIL;
end
else begin
frViewDireccionesEntrega1.dsDetalles.DataTable := NIL;
frViewClienteDescuentos1.dsDetalles.DataTable := NIL;
frViewClienteDescuentosArticulos1.dsDetalles.DataTable := NIL;
frViewClienteDatosComerciales1.Contacto := NIL;
frViewCliente1.frViewDatosYSeleccionCentral1.ID_Cliente := Null;
end;
end;

18
Source/Modulos/Contactos/Views/uEditorContacto.dfm
View File

@ -110,19 +110,33 @@ inherited fEditorContacto: TfEditorContacto
Width = 114
end
inherited eSucursal: TcxDBTextEdit
Left = 403
ExplicitLeft = 403
Left = 258
ExplicitLeft = 258
ExplicitWidth = 112
Width = 112
end
inherited eCuenta: TcxDBTextEdit
Left = 471
ExplicitLeft = 471
ExplicitWidth = 194
Width = 194
end
inherited eDC: TcxDBTextEdit
Left = 350
ExplicitLeft = 350
end
inherited eTitular: TcxDBTextEdit
ExplicitWidth = 194
Width = 194
end
inherited eSWIFT: TcxDBTextEdit
ExplicitWidth = 348
Width = 348
end
inherited eIBAN: TcxDBTextEdit
ExplicitWidth = 348
Width = 348
end
end
end
end

455
Source/Modulos/Contactos/Views/uViewCliente.dfm
View File

@ -1,29 +1,29 @@
inherited frViewCliente: TfrViewCliente
Width = 958
Width = 951
Height = 698
OnCreate = CustomViewCreate
OnDestroy = CustomViewDestroy
ExplicitWidth = 958
ExplicitWidth = 951
ExplicitHeight = 698
inherited dxLayoutControlContacto: TdxLayoutControl
Width = 958
Width = 951
Height = 698
ExplicitWidth = 958
ExplicitWidth = 951
ExplicitHeight = 698
inherited PngSpeedButton1: TPngSpeedButton
Left = 913
ExplicitLeft = 913
Left = 906
ExplicitLeft = 906
end
inherited PngSpeedButton2: TPngSpeedButton
Left = 913
ExplicitLeft = 913
Left = 906
ExplicitLeft = 906
end
inherited PngSpeedButton3: TPngSpeedButton
Left = 913
ExplicitLeft = 913
Left = 906
ExplicitLeft = 906
end
object Label1: TLabel [3]
Left = 552
Left = 531
Top = 440
Width = 269
Height = 39
@ -34,7 +34,7 @@ inherited frViewCliente: TfrViewCliente
WordWrap = True
end
object Label2: TLabel [4]
Left = 552
Left = 531
Top = 337
Width = 271
Height = 39
@ -46,7 +46,7 @@ inherited frViewCliente: TfrViewCliente
WordWrap = True
end
object PngSpeedButton4: TPngSpeedButton [5]
Left = 913
Left = 906
Top = 382
Width = 23
Height = 22
@ -72,27 +72,27 @@ inherited frViewCliente: TfrViewCliente
end
inherited eCalle: TcxDBTextEdit
Left = 132
Top = 404
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
TabOrder = 11
ExplicitLeft = 132
ExplicitTop = 404
ExplicitWidth = 260
Width = 260
end
inherited cbProvincia: TcxDBComboBox
Left = 132
Top = 431
Top = 467
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
TabOrder = 12
ExplicitLeft = 132
ExplicitTop = 431
ExplicitTop = 467
ExplicitWidth = 260
Width = 260
end
inherited cbProvincia: TcxDBComboBox
Left = 132
Top = 494
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
TabOrder = 13
ExplicitLeft = 132
ExplicitTop = 494
ExplicitWidth = 159
Width = 159
end
@ -118,7 +118,7 @@ inherited frViewCliente: TfrViewCliente
end
object cbClienteBloqueado: TcxDBCheckBox [9]
Left = 22
Top = 320
Top = 383
Action = actBloqueoCliente
DataBinding.DataField = 'BLOQUEADO'
DataBinding.DataSource = dsContacto
@ -137,7 +137,7 @@ inherited frViewCliente: TfrViewCliente
StyleFocused.LookAndFeel.NativeStyle = True
StyleHot.LookAndFeel.Kind = lfStandard
StyleHot.LookAndFeel.NativeStyle = True
TabOrder = 9
TabOrder = 10
Width = 370
end
object cbGrupoCliente: TcxDBComboBox [10]
@ -166,7 +166,7 @@ inherited frViewCliente: TfrViewCliente
end
object eBloqueo: TcxDBTextEdit [11]
Left = 132
Top = 347
Top = 410
DataBinding.DataField = 'MOTIVO_BLOQUEO'
DataBinding.DataSource = dsContacto
Style.BorderColor = clWindowFrame
@ -180,8 +180,8 @@ inherited frViewCliente: TfrViewCliente
StyleFocused.LookAndFeel.NativeStyle = True
StyleHot.LookAndFeel.Kind = lfStandard
StyleHot.LookAndFeel.NativeStyle = True
TabOrder = 10
Width = 260
TabOrder = 11
Width = 197
end
object eCodigoAsignado: TcxDBTextEdit [12]
Left = 132
@ -205,30 +205,30 @@ inherited frViewCliente: TfrViewCliente
end
inherited cbPoblacion: TcxDBComboBox
Left = 132
Top = 458
Top = 521
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
TabOrder = 15
ExplicitLeft = 132
ExplicitTop = 521
ExplicitWidth = 260
Width = 260
end
inherited eCodigoPostal: TcxDBTextEdit
Left = 436
Top = 494
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
TabOrder = 14
ExplicitLeft = 132
ExplicitTop = 458
ExplicitWidth = 260
Width = 260
end
inherited eCodigoPostal: TcxDBTextEdit
Left = 457
Top = 431
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
TabOrder = 13
ExplicitLeft = 457
ExplicitTop = 431
ExplicitLeft = 436
ExplicitTop = 494
end
object cbFelicitacion: TcxDBCheckBox [15]
Left = 552
Left = 531
Top = 280
Caption = 'Mandar felicitaci'#243'n navide'#241'a a este cliente'
DataBinding.DataField = 'FELICITACION'
@ -248,11 +248,11 @@ inherited frViewCliente: TfrViewCliente
StyleFocused.LookAndFeel.NativeStyle = True
StyleHot.LookAndFeel.Kind = lfStandard
StyleHot.LookAndFeel.NativeStyle = True
TabOrder = 23
TabOrder = 24
Width = 370
end
object cxDBCheckBox1: TcxDBCheckBox [16]
Left = 552
Left = 531
Top = 485
Caption = 'Permitir el acceso de este cliente a la tienda web'
DataBinding.DataField = 'TIENDA_WEB'
@ -273,11 +273,11 @@ inherited frViewCliente: TfrViewCliente
StyleFocused.LookAndFeel.NativeStyle = True
StyleHot.LookAndFeel.Kind = lfStandard
StyleHot.LookAndFeel.NativeStyle = True
TabOrder = 25
Width = 274
TabOrder = 26
Width = 266
end
object cbRapel: TcxDBCheckBox [17]
Left = 22
Left = 132
Top = 190
Caption = 'Este cliente tiene rapel'
DataBinding.DataField = 'RAPEL'
@ -299,10 +299,10 @@ inherited frViewCliente: TfrViewCliente
StyleHot.LookAndFeel.NativeStyle = True
TabOrder = 7
OnClick = actBloqueoClienteExecute
Width = 308
Width = 148
end
object eMailAdministracion: TcxDBHyperLinkEdit [18]
Left = 664
Left = 643
Top = 382
DataBinding.DataField = 'EMAIL_ADMINISTRACION'
DataBinding.DataSource = dsContacto
@ -320,112 +320,23 @@ inherited frViewCliente: TfrViewCliente
StyleFocused.LookAndFeel.NativeStyle = True
StyleHot.LookAndFeel.Kind = lfStandard
StyleHot.LookAndFeel.NativeStyle = True
TabOrder = 24
TabOrder = 25
Width = 133
end
inherited eObservaciones: TcxDBMemo
Top = 542
Top = 605
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
TabOrder = 26
ExplicitTop = 542
TabOrder = 27
ExplicitTop = 605
ExplicitWidth = 733
ExplicitHeight = 69
Height = 69
Width = 733
end
inherited eTlfParticular: TcxDBTextEdit
Left = 664
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
TabOrder = 17
ExplicitLeft = 664
ExplicitWidth = 238
Width = 238
end
inherited eTlfTrabajo: TcxDBTextEdit
Left = 664
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
TabOrder = 16
ExplicitLeft = 664
ExplicitWidth = 238
Width = 238
end
inherited eTlfMovil: TcxDBTextEdit
Left = 664
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
TabOrder = 18
ExplicitLeft = 664
ExplicitWidth = 238
Width = 238
end
inherited eFax: TcxDBTextEdit
Left = 664
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
TabOrder = 19
ExplicitLeft = 664
ExplicitWidth = 238
Width = 238
end
inherited eNombre: TcxDBTextEdit
Left = 132
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitLeft = 132
ExplicitWidth = 260
Width = 260
end
inherited eNIFCIF: TcxDBTextEdit
Left = 373
Properties.OnValidate = eNIFCIFPropertiesValidate
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitLeft = 373
ExplicitWidth = 91
Width = 91
end
inherited eMailTrabajo: TcxDBHyperLinkEdit
Left = 664
Properties.Prefix = 'mailto:'
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
TabOrder = 20
ExplicitLeft = 664
ExplicitWidth = 209
Width = 209
end
inherited eMailParticular: TcxDBHyperLinkEdit
Left = 664
Properties.Prefix = 'mailto:'
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
TabOrder = 21
ExplicitLeft = 664
ExplicitWidth = 209
Width = 209
end
object cbTipoCliente: TcxDBComboBox [28]
object cbTipoCliente: TcxDBComboBox [20]
Left = 132
Top = 163
DataBinding.DataField = 'TIPO_CLIENTE'
@ -449,42 +360,9 @@ inherited frViewCliente: TfrViewCliente
TabOrder = 6
Width = 332
end
inherited ePaginaWeb: TcxDBHyperLinkEdit
Left = 664
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
TabOrder = 22
ExplicitLeft = 664
ExplicitWidth = 209
Width = 209
end
inherited eReferencia: TcxDBTextEdit
Left = 132
Enabled = True
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitLeft = 132
end
inherited ePersonaContacto: TcxDBTextEdit
Left = 132
Top = 485
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
TabOrder = 15
ExplicitLeft = 132
ExplicitTop = 485
ExplicitWidth = 260
Width = 260
end
object cbSEPA: TcxDBCheckBox [32]
Left = 22
Top = 217
object cbSEPA: TcxDBCheckBox [21]
Left = 306
Top = 190
Action = actBloqueoCliente
Caption = 'Este cliente ha aceptado SEPA'
DataBinding.DataField = 'SEPA'
@ -505,7 +383,173 @@ inherited frViewCliente: TfrViewCliente
StyleHot.LookAndFeel.Kind = lfStandard
StyleHot.LookAndFeel.NativeStyle = True
TabOrder = 8
Width = 481
Width = 181
end
inline frViewDatosYSeleccionCentral1: TfrViewDatosYSeleccionCentral [22]
Left = 22
Top = 247
Width = 235
Height = 100
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'Tahoma'
Font.Style = []
ParentFont = False
TabOrder = 9
ReadOnly = False
ExplicitLeft = 22
ExplicitTop = 247
ExplicitWidth = 235
ExplicitHeight = 100
inherited dxLayoutControl1: TdxLayoutControl
Width = 235
Height = 65
ExplicitWidth = 235
ExplicitHeight = 65
inherited edtlNombre: TcxDBTextEdit
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitWidth = 591
Width = 591
end
inherited edtNIFCIF: TcxDBTextEdit
Left = 389
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitLeft = 389
end
end
inherited Panel1: TPanel
Width = 235
ExplicitWidth = 235
end
end
inherited ePaginaWeb: TcxDBHyperLinkEdit [23]
Left = 643
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
TabOrder = 23
ExplicitLeft = 643
ExplicitWidth = 209
Width = 209
end
inherited eReferencia: TcxDBTextEdit [24]
Left = 132
Enabled = True
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitLeft = 132
end
inherited ePersonaContacto: TcxDBTextEdit [25]
Left = 132
Top = 548
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
TabOrder = 16
ExplicitLeft = 132
ExplicitTop = 548
ExplicitWidth = 260
Width = 260
end
inherited eNIFCIF: TcxDBTextEdit [26]
Left = 360
Properties.OnValidate = eNIFCIFPropertiesValidate
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitLeft = 360
ExplicitWidth = 91
Width = 91
end
inherited eMailTrabajo: TcxDBHyperLinkEdit [27]
Left = 643
Properties.Prefix = 'mailto:'
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
TabOrder = 21
ExplicitLeft = 643
ExplicitWidth = 209
Width = 209
end
inherited eMailParticular: TcxDBHyperLinkEdit [28]
Left = 643
Properties.Prefix = 'mailto:'
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
TabOrder = 22
ExplicitLeft = 643
ExplicitWidth = 209
Width = 209
end
inherited eTlfMovil: TcxDBTextEdit [29]
Left = 643
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
TabOrder = 19
ExplicitLeft = 643
ExplicitWidth = 238
Width = 238
end
inherited eFax: TcxDBTextEdit [30]
Left = 643
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
TabOrder = 20
ExplicitLeft = 643
ExplicitWidth = 238
Width = 238
end
inherited eNombre: TcxDBTextEdit [31]
Left = 132
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitLeft = 132
ExplicitWidth = 260
Width = 260
end
inherited eTlfParticular: TcxDBTextEdit [32]
Left = 643
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
TabOrder = 18
ExplicitLeft = 643
ExplicitWidth = 238
Width = 238
end
inherited eTlfTrabajo: TcxDBTextEdit [33]
Left = 643
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
TabOrder = 17
ExplicitLeft = 643
ExplicitWidth = 238
Width = 238
end
inherited dxLayoutControlContactoGroup_Root: TdxLayoutGroup
AutoAligns = [aaHorizontal]
@ -536,19 +580,38 @@ inherited frViewCliente: TfrViewCliente
Control = cbTipoCliente
ControlOptions.ShowBorder = False
end
object dxLayoutControlContactoItem29: TdxLayoutItem
Caption = 'New Item'
object dxLayoutControlContactoGroup17: TdxLayoutGroup
ShowCaption = False
Control = cbRapel
ControlOptions.ShowBorder = False
Hidden = True
LayoutDirection = ldHorizontal
ShowBorder = False
object dxLayoutControlContactoItem29: TdxLayoutItem
AutoAligns = [aaVertical]
AlignHorz = ahClient
Caption = ' '
Control = cbRapel
ControlOptions.ShowBorder = False
end
object dxLayoutControlContactoItem31: TdxLayoutItem
AutoAligns = [aaVertical]
AlignHorz = ahClient
ShowCaption = False
Control = cbSEPA
ControlOptions.ShowBorder = False
end
end
object dxLayoutControlContactoItem31: TdxLayoutItem
ShowCaption = False
Control = cbSEPA
end
object dxLayoutControlContactoGroup19: TdxLayoutGroup [1]
AutoAligns = [aaVertical]
AlignHorz = ahClient
Caption = 'Sucursal principal'
object dxLayoutControlContactoItem32: TdxLayoutItem
Control = frViewDatosYSeleccionCentral1
ControlOptions.AutoColor = True
ControlOptions.ShowBorder = False
end
end
object dxLayoutControlContactoGroup18: TdxLayoutGroup [1]
object dxLayoutControlContactoGroup18: TdxLayoutGroup [2]
Caption = 'Bloqueo'
object dxLayoutControlContactoItem26: TdxLayoutItem
AutoAligns = [aaVertical]

32
Source/Modulos/Contactos/Views/uViewCliente.pas
View File

@ -11,7 +11,8 @@ uses
dxLayoutControl, cxMemo, cxHyperLinkEdit, ImgList, ActnList, Buttons,
PngSpeedButton, PngImageList, cxGraphics, cxMaskEdit, cxDropDownEdit,
cxLookupEdit, cxDBLookupEdit, cxDBLookupComboBox, uGruposClienteController,
uTiposClienteController, cxCheckBox, cxSpinEdit, Grids, DBGrids, uDAInterfaces;
uTiposClienteController, cxCheckBox, cxSpinEdit, Grids, DBGrids, uDAInterfaces,
uViewDatosYSeleccionClienteBase, uViewDatosYSeleccionCentral;
type
IViewCliente = interface(IViewContacto)
@ -48,6 +49,10 @@ type
cbTipoCliente: TcxDBComboBox;
dxLayoutControlContactoItem31: TdxLayoutItem;
cbSEPA: TcxDBCheckBox;
dxLayoutControlContactoGroup17: TdxLayoutGroup;
dxLayoutControlContactoGroup19: TdxLayoutGroup;
dxLayoutControlContactoItem32: TdxLayoutItem;
frViewDatosYSeleccionCentral1: TfrViewDatosYSeleccionCentral;
procedure cbGrupoClientePropertiesInitPopup(Sender: TObject);
procedure cbGrupoClientePropertiesValidate(Sender: TObject;
@ -65,6 +70,7 @@ type
procedure cbTipoClientePropertiesInitPopup(Sender: TObject);
procedure cbTipoClientePropertiesValidate(Sender: TObject;
var DisplayValue: Variant; var ErrorText: TCaption; var Error: Boolean);
procedure OnCentralChanged(Sender: TObject);
protected
FGrupoController: IGruposClienteController;
FTipoController: ITiposClienteController;
@ -222,11 +228,35 @@ begin
Application.MessageBox('El NIF/CIF introducido no es correcto', 'Atención', MB_OK);
end;
procedure TfrViewCliente.OnCentralChanged(Sender: TObject);
begin
if Assigned(FContacto) then
begin
FContacto.Edit;
(FContacto as IBizCliente).ID_CENTRAL := frViewDatosYSeleccionCentral1.ID_Cliente;
end;
end;
procedure TfrViewCliente.SetContacto(const Value: IBizContacto);
var
ACentral : IBizContacto;
begin
inherited;
if Assigned(FContacto) then
begin
eBloqueo.Enabled := cbClienteBloqueado.Checked;
if not (FContacto as IBizCliente).ID_CENTRALIsNull then
begin
ACentral := FController.Buscar((FContacto as IBizCliente).ID_CENTRAL);
if Assigned(ACentral) then
begin
frViewDatosYSeleccionCentral1.Cliente := (ACentral as IBizCliente);
end;
end;
frViewDatosYSeleccionCentral1.OnClienteChanged := OnCentralChanged;
end;
end;
end.

120
Source/Modulos/Contactos/Views/uViewDatosYSeleccionCentral.dfm Normal file
View File

@ -0,0 +1,120 @@
inherited frViewDatosYSeleccionCentral: TfrViewDatosYSeleccionCentral
Width = 410
Height = 80
ExplicitWidth = 410
ExplicitHeight = 80
inherited dxLayoutControl1: TdxLayoutControl
Width = 410
Height = 45
ExplicitTop = 35
ExplicitWidth = 410
ExplicitHeight = 45
DesignSize = (
410
45)
object edtlNombre: TcxDBTextEdit [0]
Left = 56
Top = 10
Anchors = [akLeft, akTop, akRight]
AutoSize = False
DataBinding.DataField = 'NOMBRE'
DataBinding.DataSource = dsCliente
Enabled = False
ParentFont = False
Properties.ReadOnly = True
Properties.UseLeftAlignmentOnEditing = False
Style.BorderColor = clWindowFrame
Style.BorderStyle = ebs3D
Style.HotTrack = False
Style.LookAndFeel.NativeStyle = True
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.NativeStyle = True
StyleDisabled.LookAndFeel.SkinName = ''
StyleDisabled.TextColor = clWindowText
StyleFocused.LookAndFeel.NativeStyle = True
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.NativeStyle = True
StyleHot.LookAndFeel.SkinName = ''
TabOrder = 0
Height = 21
Width = 591
end
object edtNIFCIF: TcxDBTextEdit [1]
Left = 320
Top = 10
Anchors = [akLeft, akTop, akRight]
AutoSize = False
DataBinding.DataField = 'NIF_CIF'
DataBinding.DataSource = dsCliente
Enabled = False
ParentFont = False
Properties.ReadOnly = True
Properties.UseLeftAlignmentOnEditing = False
Style.BorderColor = clWindowFrame
Style.BorderStyle = ebs3D
Style.HotTrack = False
Style.LookAndFeel.NativeStyle = True
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.NativeStyle = True
StyleDisabled.LookAndFeel.SkinName = ''
StyleDisabled.TextColor = clWindowText
StyleFocused.LookAndFeel.NativeStyle = True
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.NativeStyle = True
StyleHot.LookAndFeel.SkinName = ''
TabOrder = 1
Height = 21
Width = 80
end
inherited dxLayoutControl1Group_Root: TdxLayoutGroup
LayoutDirection = ldHorizontal
object dxLayoutControl1Item1: TdxLayoutItem
AutoAligns = [aaVertical]
AlignHorz = ahClient
Caption = 'Nombre:'
Control = edtlNombre
ControlOptions.ShowBorder = False
end
object dxLayoutControl1Item2: TdxLayoutItem
AutoAligns = [aaVertical]
AlignHorz = ahRight
Caption = 'NIF/CIF:'
Control = edtNIFCIF
ControlOptions.ShowBorder = False
end
end
end
inherited Panel1: TPanel
Width = 410
ExplicitTop = 0
ExplicitWidth = 410
inherited bvSeparador: TBevel
Visible = False
end
inherited bElegirCliente: TBitBtn
ExplicitLeft = 4
ExplicitTop = 4
end
inherited bNuevoCliente: TBitBtn
ExplicitLeft = 266
ExplicitTop = 4
end
inherited bVerFicha: TBitBtn
ExplicitLeft = 121
ExplicitTop = 4
end
end
inherited dsCliente: TDADataSource
Top = 32
end
inherited ActionList1: TActionList
Top = 32
inherited actAnadirContacto: TAction
Enabled = False
Visible = False
end
end
inherited PngImageList: TPngImageList
Top = 32
end
end

27
Source/Modulos/Contactos/Views/uViewDatosYSeleccionCentral.pas Normal file
View File

@ -0,0 +1,27 @@
unit uViewDatosYSeleccionCentral;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, uViewDatosYSeleccionClienteBase, ImgList, PngImageList, ActnList, DB,
uDAInterfaces, uDADataTable, StdCtrls, Buttons, ExtCtrls, dxLayoutControl,
cxControls, cxContainer, cxEdit, cxTextEdit, cxDBEdit;
type
TfrViewDatosYSeleccionCentral = class(TfrViewDatosYSeleccionClienteBase)
dxLayoutControl1Item1: TdxLayoutItem;
edtlNombre: TcxDBTextEdit;
dxLayoutControl1Item2: TdxLayoutItem;
edtNIFCIF: TcxDBTextEdit;
private
{ Private declarations }
public
{ Public declarations }
end;
implementation
{$R *.dfm}
end.

22
Source/Modulos/Contactos/Views/uViewDatosYSeleccionCliente.dfm
View File

@ -1,13 +1,13 @@
inherited frViewDatosYSeleccionCliente: TfrViewDatosYSeleccionCliente
Width = 350
Height = 212
ExplicitWidth = 350
ExplicitHeight = 212
Width = 665
Height = 271
ExplicitWidth = 665
ExplicitHeight = 271
object dxLayoutControl1: TdxLayoutControl
Left = 0
Top = 0
Width = 350
Height = 212
Width = 665
Height = 271
Margins.Left = 0
Margins.Top = 0
Margins.Right = 0
@ -17,9 +17,11 @@ inherited frViewDatosYSeleccionCliente: TfrViewDatosYSeleccionCliente
TabOrder = 0
TabStop = False
AutoContentSizes = [acsWidth, acsHeight]
ExplicitWidth = 350
ExplicitHeight = 212
DesignSize = (
350
212)
665
271)
object edtlNombre: TcxDBTextEdit
Left = 64
Top = 41
@ -156,7 +158,7 @@ inherited frViewDatosYSeleccionCliente: TfrViewDatosYSeleccionCliente
Width = 327
end
object edtCodigoPostal: TcxDBTextEdit
Left = 258
Left = 573
Top = 122
Anchors = [akLeft, akTop, akRight]
AutoSize = False
@ -271,7 +273,7 @@ inherited frViewDatosYSeleccionCliente: TfrViewDatosYSeleccionCliente
FF00FF00FF00006000000060000000600000FF00FF00FF00FF00}
end
object Button3: TBitBtn
Left = 148
Left = 463
Top = 176
Width = 192
Height = 25

4
Source/Modulos/Contactos/Views/uViewDatosYSeleccionClienteBase.pas
View File

@ -73,14 +73,14 @@ type
FCliente : IBizCliente;
FDireccion : IBizDireccionesContacto;
FPersonaContacto : IBizContactoPersonal;
function GetCliente: IBizCliente; virtual;
procedure SetCliente(Value: IBizCliente); virtual;
function GetOnClienteChanged : TNotifyEvent;
procedure SetOnClienteChanged (const Value : TNotifyEvent);
procedure SetReadOnly(Value: Boolean); override;
function GetID_Cliente: integer; virtual;
procedure SetID_Cliente(const Value: integer); virtual;
procedure SetID_Cliente(const Value: integer); virtual;
procedure InicializarMensajes; virtual;
public

76
Source/Modulos/Contactos/Views/uViewSucursalesContacto.dfm Normal file
View File

@ -0,0 +1,76 @@
inherited frViewSucursalesContacto: TfrViewSucursalesContacto
Width = 583
Height = 464
OnCreate = CustomViewCreate
OnDestroy = CustomViewDestroy
ExplicitWidth = 583
ExplicitHeight = 464
inherited cxGrid: TcxGrid
Width = 583
Height = 439
ExplicitWidth = 583
ExplicitHeight = 439
inherited cxGridView: TcxGridDBTableView
OnDblClick = cxGridViewDblClick
OptionsData.Appending = False
OptionsData.Deleting = False
OptionsData.DeletingConfirmation = False
OptionsData.Editing = False
OptionsData.Inserting = False
object cxGridViewREFERENCIA: TcxGridDBColumn
Caption = 'Referencia'
DataBinding.FieldName = 'REFERENCIA'
end
object cxGridViewNIFCIF: TcxGridDBColumn
Caption = 'NIF / CIF'
DataBinding.FieldName = 'NIFCIF'
end
object cxGridViewNOMBRE: TcxGridDBColumn
Caption = 'Nombre'
DataBinding.FieldName = 'NOMBRE'
PropertiesClassName = 'TcxTextEditProperties'
Width = 64
end
object cxGridViewTELEFONO: TcxGridDBColumn
Caption = 'Tel'#233'fono'
DataBinding.FieldName = 'TELEFONO_1'
PropertiesClassName = 'TcxTextEditProperties'
Width = 64
end
object cxGridViewMOVIL: TcxGridDBColumn
Caption = 'M'#243'vil'
DataBinding.FieldName = 'MOVIL_1'
PropertiesClassName = 'TcxTextEditProperties'
Width = 64
end
object cxGridViewFAX: TcxGridDBColumn
Caption = 'Fax'
DataBinding.FieldName = 'FAX_1'
PropertiesClassName = 'TcxTextEditProperties'
Width = 64
end
object cxGridViewEMAIL: TcxGridDBColumn
Caption = 'E-Mail'
DataBinding.FieldName = 'EMAIL_1'
PropertiesClassName = 'TcxTextEditProperties'
Width = 64
end
end
end
inherited ToolBar1: TToolBar
Width = 583
ExplicitWidth = 583
inherited ToolButton1: TToolButton
ExplicitWidth = 62
end
inherited ToolButton4: TToolButton
ExplicitWidth = 74
end
inherited ToolButton2: TToolButton
ExplicitWidth = 67
end
inherited ToolButton7: TToolButton
ExplicitWidth = 117
end
end
end

115
Source/Modulos/Contactos/Views/uViewSucursalesContacto.pas Normal file
View File

@ -0,0 +1,115 @@
unit uViewSucursalesContacto;
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, uClientesController,
uDAInterfaces, StdCtrls, uBizContactos;
type
TfrViewSucursalesContacto = class(TfrViewDetallesGenerico)
cxGridViewNOMBRE: TcxGridDBColumn;
cxGridViewTELEFONO: TcxGridDBColumn;
cxGridViewMOVIL: TcxGridDBColumn;
cxGridViewFAX: TcxGridDBColumn;
cxGridViewEMAIL: TcxGridDBColumn;
cxGridViewNIFCIF: TcxGridDBColumn;
cxGridViewREFERENCIA: TcxGridDBColumn;
procedure cxGridViewDblClick(Sender: TObject);
procedure actEliminarExecute(Sender: TObject);
procedure CustomViewCreate(Sender: TObject);
procedure CustomViewDestroy(Sender: TObject);
private
FCentral : IBizCliente;
FClientesController : IClientesController;
function GetCentral: IBizCliente;
procedure SetCentral(const Value: IBizCliente);
protected
procedure AnadirInterno; override;
procedure ModificarInterno; override;
public
property Central : IBizCliente read GetCentral write SetCentral;
end;
implementation
{$R *.dfm}
uses
uDialogUtils;
procedure TfrViewSucursalesContacto.actEliminarExecute(Sender: TObject);
begin
if (ShowConfirmMessage('Eliminar una sucursal', '¿Desea quitar esta sucursal?') = IDYES) then
inherited;
end;
procedure TfrViewSucursalesContacto.AnadirInterno;
var
ACliente : IBizCliente;
i : integer;
begin
inherited;
ACliente := (FClientesController.ElegirContacto(FClientesController.BuscarTodos, '', False) as IBizCliente);
if Assigned(ACliente) then
begin
dsDetalles.DataTable.Insert;
try
for i := 0 to dsDetalles.DataTable.Fields.Count - 1 do
dsDetalles.DataTable.Fields[i].Value := ACliente.DataTable.FieldByName(dsDetalles.DataTable.Fields[i].Name).Value;
dsDetalles.DataTable.FieldByName('ID_CENTRAL').Value := FCentral.ID;
finally
dsDetalles.DataTable.Post;
end;
end;
ACliente := Nil;
end;
procedure TfrViewSucursalesContacto.CustomViewCreate(Sender: TObject);
begin
inherited;
FCentral := NIL;
FClientesController := TClientesController.Create;
end;
procedure TfrViewSucursalesContacto.CustomViewDestroy(Sender: TObject);
begin
inherited;
FClientesController := NIL;
end;
procedure TfrViewSucursalesContacto.cxGridViewDblClick(Sender: TObject);
begin
inherited;
actModificar.Execute;
end;
function TfrViewSucursalesContacto.GetCentral: IBizCliente;
begin
result := FCentral;
end;
procedure TfrViewSucursalesContacto.ModificarInterno;
var
ACliente : IBizContacto;
begin
inherited;
ACliente := FClientesController.Buscar(cxGridViewID.DataBinding.Field.Value);
if Assigned(ACliente) then
FClientesController.Ver(ACliente);
end;
procedure TfrViewSucursalesContacto.SetCentral(const Value: IBizCliente);
begin
FCentral := Value;
end;
end.

71
Source/Modulos/Obras/Views/Obras_view.dproj
View File

@ -37,14 +37,69 @@
<DelphiCompile Include="Obras_view.dpk">
<MainSource>MainSource</MainSource>
</DelphiCompile>
<DCCReference Include="..\ApplicationBase.dcp" />
<DCCReference Include="..\Base.dcp" />
<DCCReference Include="..\Contactos_controller.dcp" />
<DCCReference Include="..\Contactos_model.dcp" />
<DCCReference Include="..\Contactos_view.dcp" />
<DCCReference Include="..\GUIBase.dcp" />
<DCCReference Include="..\Obras_controller.dcp" />
<DCCReference Include="..\Obras_model.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\ApplicationBase.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\Base.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\Contactos_controller.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\Contactos_model.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\Contactos_view.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\GUIBase.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\Obras_controller.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\Obras_model.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\PedidosProveedor_controller.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\PedidosProveedor_model.dcp" />
<DCCReference Include="uEditorEjecucionObra.pas">
<Form>fEditorEjecucionObra</Form>
<DesignClass>TfEditorEjecucionObra</DesignClass>
</DCCReference>
<DCCReference Include="uEditorFechaCierreObra.pas">
<Form>fEditorFechaCierreObra</Form>
<DesignClass>TForm</DesignClass>
</DCCReference>
<DCCReference Include="uEditorListaObras.pas">
<Form>fEditorListaObras</Form>
<DesignClass>TfListaObras</DesignClass>
</DCCReference>
<DCCReference Include="uEditorObra.pas">
<Form>fEditorObra</Form>
<DesignClass>TfEditorObra</DesignClass>
</DCCReference>
<DCCReference Include="uEditorObras.pas">
<Form>fEditorObras</Form>
<DesignClass>TfEditorObras</DesignClass>
</DCCReference>
<DCCReference Include="uObrasViewRegister.pas" />
<DCCReference Include="uViewClienteAsociadoObra.pas">
<Form>frViewClienteAsociadoObra</Form>
<DesignClass>TFrame</DesignClass>
</DCCReference>
<DCCReference Include="uViewEjecucionObra.pas">
<Form>frViewEjecucionObra</Form>
<DesignClass>TFrame</DesignClass>
</DCCReference>
<DCCReference Include="uViewListaEjecucionesObra.pas">
<Form>frViewListaEjecucionesObra</Form>
<DesignClass>TFrame</DesignClass>
</DCCReference>
<DCCReference Include="uViewListaPedidosProvObra.pas">
<Form>frViewListaPedidosProvObra</Form>
<DesignClass>TFrame</DesignClass>
</DCCReference>
<DCCReference Include="uViewListaPresupuestosObra.pas">
<Form>frViewListaPresupuestosObra</Form>
<DesignClass>TFrame</DesignClass>
</DCCReference>
<DCCReference Include="uViewObra.pas">
<Form>frViewObra</Form>
<DesignClass>TFrame</DesignClass>
</DCCReference>
<DCCReference Include="uViewObras.pas">
<Form>frViewObras</Form>
<DesignClass>TFrame</DesignClass>
</DCCReference>
<DCCReference Include="uViewSubcontrataObra.pas">
<Form>frViewSubcontrataObra</Form>
<DesignClass>TFrame</DesignClass>
</DCCReference>
</ItemGroup>
</Project>
<!-- EurekaLog First Line

BIN
Source/Servidor/FactuGES_Server.RES
View File

Binary file not shown.

6
Source/Servidor/FactuGES_Server.dpr
View File

@ -164,11 +164,11 @@ uses
schEmpresasServer_Intf in '..\ApplicationBase\Empresas\Model\schEmpresasServer_Intf.pas',
srvFacturasProforma_Impl in '..\Modulos\Facturas proforma\Servidor\srvFacturasProforma_Impl.pas' {srvFacturasProforma: TDataAbstractService},
uBizFacturasProformaServer in '..\Modulos\Facturas proforma\Model\uBizFacturasProformaServer.pas',
schContactosClient_Intf in '..\Modulos\Contactos\Model\schContactosClient_Intf.pas',
schContactosServer_Intf in '..\Modulos\Contactos\Model\schContactosServer_Intf.pas',
uRptFacturasProforma_Server in '..\Modulos\Facturas proforma\Reports\uRptFacturasProforma_Server.pas' {RptFacturasProforma: TDataModule},
schFacturasProformaClient_Intf in '..\Modulos\Facturas proforma\Model\schFacturasProformaClient_Intf.pas',
schFacturasProformaServer_Intf in '..\Modulos\Facturas proforma\Model\schFacturasProformaServer_Intf.pas';
schFacturasProformaServer_Intf in '..\Modulos\Facturas proforma\Model\schFacturasProformaServer_Intf.pas',
schContactosClient_Intf in '..\Modulos\Contactos\Model\schContactosClient_Intf.pas',
schContactosServer_Intf in '..\Modulos\Contactos\Model\schContactosServer_Intf.pas';
{$R *.res}
{$R ..\Servicios\RODLFile.res}

2
Source/Servidor/FactuGES_Server.rc
View File

@ -14,7 +14,7 @@ BEGIN
BEGIN
VALUE "FileVersion", "4.3.4.0\0"
VALUE "ProductVersion", "4.3.4.0\0"
VALUE "CompileDate", "martes, 14 de enero de 2014 13:08\0"
VALUE "CompileDate", "miércoles, 15 de enero de 2014 15:44\0"
END
END
BLOCK "VarFileInfo"