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> <Notes>
<![CDATA[]]> <![CDATA[]]>
</Notes> </Notes>
<LastBuildRun>00:00:13</LastBuildRun> <LastBuildRun>00:00:01</LastBuildRun>
<LastBuildStart>12/12/2013 10:39:51</LastBuildStart> <LastBuildStart>14/01/2014 15:34:24</LastBuildStart>
<LastBuildState>False</LastBuildState> <LastBuildState>True</LastBuildState>
</properties> </properties>
</project> </project>

BIN
Build/Build.fbz6
View File

Binary file not shown.

6
Build/Installer.fbpInf
View File

@ -14,8 +14,8 @@
<Notes> <Notes>
<![CDATA[]]> <![CDATA[]]>
</Notes> </Notes>
<LastBuildRun>00:00:00</LastBuildRun> <LastBuildRun>00:02:38</LastBuildRun>
<LastBuildStart>30/12/1899</LastBuildStart> <LastBuildStart>13/12/2013 16:54:53</LastBuildStart>
<LastBuildState>True</LastBuildState> <LastBuildState>False</LastBuildState>
</properties> </properties>
</project> </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, VENCIMIENTO_FACTURAS_3 SMALLINT,
FELICITACION TIPO_BOOLEANO, FELICITACION TIPO_BOOLEANO,
TIPO_CLIENTE VARCHAR(255) COLLATE ES_ES, 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 ( CREATE TABLE CLIENTES_DTOS_PROVEEDORES (
@ -1999,7 +2000,8 @@ CREATE VIEW V_CLIENTES(
DESCUENTO, DESCUENTO,
FELICITACION, FELICITACION,
TIPO_CLIENTE, TIPO_CLIENTE,
SEPA) SEPA,
ID_CENTRAL)
AS AS
SELECT SELECT
V_CONTACTOS.ID, V_CONTACTOS.ID,
@ -2045,14 +2047,15 @@ SELECT
CLIENTES_DATOS.DESCUENTO, CLIENTES_DATOS.DESCUENTO,
CLIENTES_DATOS.FELICITACION, CLIENTES_DATOS.FELICITACION,
CLIENTES_DATOS.TIPO_CLIENTE, CLIENTES_DATOS.TIPO_CLIENTE,
CLIENTES_DATOS.SEPA CLIENTES_DATOS.SEPA,
CLIENTES_DATOS.ID_CENTRAL
FROM FROM
V_CONTACTOS V_CONTACTOS
LEFT OUTER JOIN CLIENTES_DATOS ON (V_CONTACTOS.ID = CLIENTES_DATOS.ID_CLIENTE) LEFT OUTER JOIN CLIENTES_DATOS ON (V_CONTACTOS.ID = CLIENTES_DATOS.ID_CLIENTE)
LEFT OUTER JOIN CONTACTOS ON (CLIENTES_DATOS.ID_AGENTE = CONTACTOS.ID) LEFT OUTER JOIN CONTACTOS ON (CLIENTES_DATOS.ID_AGENTE = CONTACTOS.ID)
WHERE WHERE
V_CONTACTOS.ID_CATEGORIA = 1 V_CONTACTOS.ID_CATEGORIA = 1;
;
CREATE VIEW V_AGENTES( CREATE VIEW V_AGENTES(
ID, ID,

8
Source/ApplicationBase/ApplicationBase.dproj
View File

@ -55,10 +55,10 @@
<DelphiCompile Include="ApplicationBase.dpk"> <DelphiCompile Include="ApplicationBase.dpk">
<MainSource>MainSource</MainSource> <MainSource>MainSource</MainSource>
</DelphiCompile> </DelphiCompile>
<DCCReference Include="..\Modulos\Contactos\Base.dcp" /> <DCCReference Include="C:\Documents and Settings\Usuario\Base.dcp" />
<DCCReference Include="..\Modulos\Contactos\GUIBase.dcp" /> <DCCReference Include="C:\Documents and Settings\Usuario\GUIBase.dcp" />
<DCCReference Include="..\Modulos\Contactos\JvJansD11R.dcp" /> <DCCReference Include="C:\Documents and Settings\Usuario\JvJansD11R.dcp" />
<DCCReference Include="..\Modulos\Contactos\PluginSDK_D11R.dcp" /> <DCCReference Include="C:\Documents and Settings\Usuario\PluginSDK_D11R.dcp" />
<DCCReference Include="Empresas\Controller\uDatosBancariosEmpresaController.pas" /> <DCCReference Include="Empresas\Controller\uDatosBancariosEmpresaController.pas" />
<DCCReference Include="Empresas\Controller\uEmpresasController.pas" /> <DCCReference Include="Empresas\Controller\uEmpresasController.pas" />
<DCCReference Include="Empresas\Controller\View\uIEditorDatosBancarioEmpresa.pas" /> <DCCReference Include="Empresas\Controller\View\uIEditorDatosBancarioEmpresa.pas" />

8
Source/Base/Base.dproj
View File

@ -45,14 +45,6 @@
<Borland.ProjectType>Package</Borland.ProjectType> <Borland.ProjectType>Package</Borland.ProjectType>
<BorlandProject> <BorlandProject>
<BorlandProject><Delphi.Personality><Parameters><Parameters Name="UseLauncher">False</Parameters><Parameters Name="LoadAllSymbols">True</Parameters><Parameters Name="LoadUnspecifiedSymbols">False</Parameters></Parameters><Package_Options><Package_Options Name="PackageDescription">Libreria base de FactuGES</Package_Options><Package_Options Name="ImplicitBuild">False</Package_Options><Package_Options Name="DesigntimeOnly">False</Package_Options><Package_Options Name="RuntimeOnly">False</Package_Options></Package_Options><VersionInfo><VersionInfo Name="IncludeVerInfo">True</VersionInfo><VersionInfo Name="AutoIncBuild">False</VersionInfo><VersionInfo Name="MajorVer">1</VersionInfo><VersionInfo Name="MinorVer">0</VersionInfo><VersionInfo Name="Release">0</VersionInfo><VersionInfo Name="Build">0</VersionInfo><VersionInfo Name="Debug">False</VersionInfo><VersionInfo Name="PreRelease">False</VersionInfo><VersionInfo Name="Special">False</VersionInfo><VersionInfo Name="Private">False</VersionInfo><VersionInfo Name="DLL">False</VersionInfo><VersionInfo Name="Locale">3082</VersionInfo><VersionInfo Name="CodePage">1252</VersionInfo></VersionInfo><VersionInfoKeys><VersionInfoKeys Name="CompanyName"></VersionInfoKeys><VersionInfoKeys Name="FileDescription"></VersionInfoKeys><VersionInfoKeys Name="FileVersion">1.0.0.0</VersionInfoKeys><VersionInfoKeys Name="InternalName"></VersionInfoKeys><VersionInfoKeys Name="LegalCopyright"></VersionInfoKeys><VersionInfoKeys Name="LegalTrademarks"></VersionInfoKeys><VersionInfoKeys Name="OriginalFilename"></VersionInfoKeys><VersionInfoKeys Name="ProductName"></VersionInfoKeys><VersionInfoKeys Name="ProductVersion">1.0.0.0</VersionInfoKeys></VersionInfoKeys><Excluded_Packages> <BorlandProject><Delphi.Personality><Parameters><Parameters Name="UseLauncher">False</Parameters><Parameters Name="LoadAllSymbols">True</Parameters><Parameters Name="LoadUnspecifiedSymbols">False</Parameters></Parameters><Package_Options><Package_Options Name="PackageDescription">Libreria base de FactuGES</Package_Options><Package_Options Name="ImplicitBuild">False</Package_Options><Package_Options Name="DesigntimeOnly">False</Package_Options><Package_Options Name="RuntimeOnly">False</Package_Options></Package_Options><VersionInfo><VersionInfo Name="IncludeVerInfo">True</VersionInfo><VersionInfo Name="AutoIncBuild">False</VersionInfo><VersionInfo Name="MajorVer">1</VersionInfo><VersionInfo Name="MinorVer">0</VersionInfo><VersionInfo Name="Release">0</VersionInfo><VersionInfo Name="Build">0</VersionInfo><VersionInfo Name="Debug">False</VersionInfo><VersionInfo Name="PreRelease">False</VersionInfo><VersionInfo Name="Special">False</VersionInfo><VersionInfo Name="Private">False</VersionInfo><VersionInfo Name="DLL">False</VersionInfo><VersionInfo Name="Locale">3082</VersionInfo><VersionInfo Name="CodePage">1252</VersionInfo></VersionInfo><VersionInfoKeys><VersionInfoKeys Name="CompanyName"></VersionInfoKeys><VersionInfoKeys Name="FileDescription"></VersionInfoKeys><VersionInfoKeys Name="FileVersion">1.0.0.0</VersionInfoKeys><VersionInfoKeys Name="InternalName"></VersionInfoKeys><VersionInfoKeys Name="LegalCopyright"></VersionInfoKeys><VersionInfoKeys Name="LegalTrademarks"></VersionInfoKeys><VersionInfoKeys Name="OriginalFilename"></VersionInfoKeys><VersionInfoKeys Name="ProductName"></VersionInfoKeys><VersionInfoKeys Name="ProductVersion">1.0.0.0</VersionInfoKeys></VersionInfoKeys><Excluded_Packages>
<Excluded_Packages Name="$(BDS)\bin\dcloffice2k100.bpl">Microsoft Office 2000 Sample Automation Server Wrapper Components</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 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> </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.Personality>Delphi.Personality</Borland.Personality>
<Borland.ProjectType>VCLApplication</Borland.ProjectType> <Borland.ProjectType>VCLApplication</Borland.ProjectType>
<BorlandProject> <BorlandProject>
<BorlandProject><Delphi.Personality><Parameters><Parameters Name="UseLauncher">False</Parameters><Parameters Name="LoadAllSymbols">True</Parameters><Parameters Name="LoadUnspecifiedSymbols">False</Parameters></Parameters><Language><Language Name="RootDir">C:\Archivos de programa\Borland\Delphi7\Bin\</Language></Language><VersionInfo><VersionInfo Name="IncludeVerInfo">True</VersionInfo><VersionInfo Name="AutoIncBuild">False</VersionInfo><VersionInfo Name="MajorVer">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> </ProjectExtensions>
<Import Project="$(MSBuildBinPath)\Borland.Delphi.Targets" /> <Import Project="$(MSBuildBinPath)\Borland.Delphi.Targets" />
<ItemGroup> <ItemGroup>

8
Source/Cliente/FactuGES.rc
View File

@ -1,7 +1,7 @@
MAINICON ICON "C:\Codigo\Resources\Iconos\Factuges.ico" MAINICON ICON "C:\Codigo\Resources\Iconos\Factuges.ico"
1 VERSIONINFO 1 VERSIONINFO
FILEVERSION 4,3,4,0 FILEVERSION 4,3,5,0
PRODUCTVERSION 4,3,4,0 PRODUCTVERSION 4,3,5,0
FILEFLAGSMASK 0x3FL FILEFLAGSMASK 0x3FL
FILEFLAGS 0x00L FILEFLAGS 0x00L
FILEOS 0x40004L FILEOS 0x40004L
@ -13,10 +13,10 @@ BEGIN
BLOCK "0C0A04E4" BLOCK "0C0A04E4"
BEGIN BEGIN
VALUE "CompanyName", "Rodax Software S.L.\0" VALUE "CompanyName", "Rodax Software S.L.\0"
VALUE "FileVersion", "4.3.4.0\0" VALUE "FileVersion", "4.3.5.0\0"
VALUE "InternalName", "FactuGES\0" VALUE "InternalName", "FactuGES\0"
VALUE "ProductName", "FactuGES\0" VALUE "ProductName", "FactuGES\0"
VALUE "ProductVersion", "4.3.4.0\0" VALUE "ProductVersion", "4.3.5.0\0"
END END
END END
BLOCK "VarFileInfo" 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"> <DelphiCompile Include="GUIBase.dpk">
<MainSource>MainSource</MainSource> <MainSource>MainSource</MainSource>
</DelphiCompile> </DelphiCompile>
<DCCReference Include="..\Modulos\Pedidos de cliente\Base.dcp" /> <DCCReference Include="C:\Documents and Settings\Usuario\Base.dcp" />
<DCCReference Include="..\Modulos\Pedidos de cliente\cxLibraryD11.dcp" /> <DCCReference Include="C:\Documents and Settings\Usuario\cxLibraryD11.dcp" />
<DCCReference Include="..\Modulos\Pedidos de cliente\cxTreeListD11.dcp" /> <DCCReference Include="C:\Documents and Settings\Usuario\cxTreeListD11.dcp" />
<DCCReference Include="..\Modulos\Pedidos de cliente\dbrtl.dcp" /> <DCCReference Include="C:\Documents and Settings\Usuario\dbrtl.dcp" />
<DCCReference Include="..\Modulos\Pedidos de cliente\dxBarD11.dcp" /> <DCCReference Include="C:\Documents and Settings\Usuario\dxBarD11.dcp" />
<DCCReference Include="..\Modulos\Pedidos de cliente\dxBarExtItemsD11.dcp" /> <DCCReference Include="C:\Documents and Settings\Usuario\dxBarExtItemsD11.dcp" />
<DCCReference Include="..\Modulos\Pedidos de cliente\dxComnD11.dcp" /> <DCCReference Include="C:\Documents and Settings\Usuario\dxComnD11.dcp" />
<DCCReference Include="..\Modulos\Pedidos de cliente\dxGDIPlusD11.dcp" /> <DCCReference Include="C:\Documents and Settings\Usuario\dxGDIPlusD11.dcp" />
<DCCReference Include="..\Modulos\Pedidos de cliente\dxLayoutControlD11.dcp" /> <DCCReference Include="C:\Documents and Settings\Usuario\dxLayoutControlD11.dcp" />
<DCCReference Include="..\Modulos\Pedidos de cliente\dxPSCoreD11.dcp" /> <DCCReference Include="C:\Documents and Settings\Usuario\dxPSCoreD11.dcp" />
<DCCReference Include="..\Modulos\Pedidos de cliente\dxPScxCommonD11.dcp" /> <DCCReference Include="C:\Documents and Settings\Usuario\dxPScxCommonD11.dcp" />
<DCCReference Include="..\Modulos\Pedidos de cliente\dxPScxGrid6LnkD11.dcp" /> <DCCReference Include="C:\Documents and Settings\Usuario\dxPScxGrid6LnkD11.dcp" />
<DCCReference Include="..\Modulos\Pedidos de cliente\dxPsPrVwAdvD11.dcp" /> <DCCReference Include="C:\Documents and Settings\Usuario\dxPsPrVwAdvD11.dcp" />
<DCCReference Include="..\Modulos\Pedidos de cliente\dxThemeD11.dcp" /> <DCCReference Include="C:\Documents and Settings\Usuario\dxThemeD11.dcp" />
<DCCReference Include="..\Modulos\Pedidos de cliente\frx11.dcp" /> <DCCReference Include="C:\Documents and Settings\Usuario\frx11.dcp" />
<DCCReference Include="..\Modulos\Pedidos de cliente\frxe11.dcp" /> <DCCReference Include="C:\Documents and Settings\Usuario\frxe11.dcp" />
<DCCReference Include="..\Modulos\Pedidos de cliente\fs11.dcp" /> <DCCReference Include="C:\Documents and Settings\Usuario\fs11.dcp" />
<DCCReference Include="..\Modulos\Pedidos de cliente\JvAppFrmD11R.dcp" /> <DCCReference Include="C:\Documents and Settings\Usuario\JvAppFrmD11R.dcp" />
<DCCReference Include="..\Modulos\Pedidos de cliente\JvCtrlsD11R.dcp" /> <DCCReference Include="C:\Documents and Settings\Usuario\JvCtrlsD11R.dcp" />
<DCCReference Include="..\Modulos\Pedidos de cliente\rtl.dcp" /> <DCCReference Include="C:\Documents and Settings\Usuario\rtl.dcp" />
<DCCReference Include="..\Modulos\Pedidos de cliente\vcl.dcp" /> <DCCReference Include="C:\Documents and Settings\Usuario\vcl.dcp" />
<DCCReference Include="..\Modulos\Pedidos de cliente\vcldb.dcp" /> <DCCReference Include="C:\Documents and Settings\Usuario\vcldb.dcp" />
<DCCReference Include="..\Modulos\Pedidos de cliente\vcljpg.dcp" /> <DCCReference Include="C:\Documents and Settings\Usuario\vcljpg.dcp" />
<DCCReference Include="..\Modulos\Pedidos de cliente\vclx.dcp" /> <DCCReference Include="C:\Documents and Settings\Usuario\vclx.dcp" />
<DCCReference Include="uDialogBase.pas"> <DCCReference Include="uDialogBase.pas">
<Form>fDialogBase</Form> <Form>fDialogBase</Form>
</DCCReference> </DCCReference>

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

@ -43,10 +43,6 @@
<Borland.ProjectType>Package</Borland.ProjectType> <Borland.ProjectType>Package</Borland.ProjectType>
<BorlandProject> <BorlandProject>
<BorlandProject><Delphi.Personality><Parameters><Parameters Name="UseLauncher">False</Parameters><Parameters Name="LoadAllSymbols">True</Parameters><Parameters Name="LoadUnspecifiedSymbols">False</Parameters></Parameters><Package_Options><Package_Options Name="ImplicitBuild">False</Package_Options><Package_Options Name="DesigntimeOnly">False</Package_Options><Package_Options Name="RuntimeOnly">False</Package_Options></Package_Options><VersionInfo><VersionInfo Name="IncludeVerInfo">True</VersionInfo><VersionInfo Name="AutoIncBuild">False</VersionInfo><VersionInfo Name="MajorVer">1</VersionInfo><VersionInfo Name="MinorVer">0</VersionInfo><VersionInfo Name="Release">0</VersionInfo><VersionInfo Name="Build">0</VersionInfo><VersionInfo Name="Debug">False</VersionInfo><VersionInfo Name="PreRelease">False</VersionInfo><VersionInfo Name="Special">False</VersionInfo><VersionInfo Name="Private">False</VersionInfo><VersionInfo Name="DLL">False</VersionInfo><VersionInfo Name="Locale">3082</VersionInfo><VersionInfo Name="CodePage">1252</VersionInfo></VersionInfo><VersionInfoKeys><VersionInfoKeys Name="CompanyName"></VersionInfoKeys><VersionInfoKeys Name="FileDescription"></VersionInfoKeys><VersionInfoKeys Name="FileVersion">1.0.0.0</VersionInfoKeys><VersionInfoKeys Name="InternalName"></VersionInfoKeys><VersionInfoKeys Name="LegalCopyright"></VersionInfoKeys><VersionInfoKeys Name="LegalTrademarks"></VersionInfoKeys><VersionInfoKeys Name="OriginalFilename"></VersionInfoKeys><VersionInfoKeys Name="ProductName"></VersionInfoKeys><VersionInfoKeys Name="ProductVersion">1.0.0.0</VersionInfoKeys><VersionInfoKeys Name="Comments"></VersionInfoKeys></VersionInfoKeys><Excluded_Packages> <BorlandProject><Delphi.Personality><Parameters><Parameters Name="UseLauncher">False</Parameters><Parameters Name="LoadAllSymbols">True</Parameters><Parameters Name="LoadUnspecifiedSymbols">False</Parameters></Parameters><Package_Options><Package_Options Name="ImplicitBuild">False</Package_Options><Package_Options Name="DesigntimeOnly">False</Package_Options><Package_Options Name="RuntimeOnly">False</Package_Options></Package_Options><VersionInfo><VersionInfo Name="IncludeVerInfo">True</VersionInfo><VersionInfo Name="AutoIncBuild">False</VersionInfo><VersionInfo Name="MajorVer">1</VersionInfo><VersionInfo Name="MinorVer">0</VersionInfo><VersionInfo Name="Release">0</VersionInfo><VersionInfo Name="Build">0</VersionInfo><VersionInfo Name="Debug">False</VersionInfo><VersionInfo Name="PreRelease">False</VersionInfo><VersionInfo Name="Special">False</VersionInfo><VersionInfo Name="Private">False</VersionInfo><VersionInfo Name="DLL">False</VersionInfo><VersionInfo Name="Locale">3082</VersionInfo><VersionInfo Name="CodePage">1252</VersionInfo></VersionInfo><VersionInfoKeys><VersionInfoKeys Name="CompanyName"></VersionInfoKeys><VersionInfoKeys Name="FileDescription"></VersionInfoKeys><VersionInfoKeys Name="FileVersion">1.0.0.0</VersionInfoKeys><VersionInfoKeys Name="InternalName"></VersionInfoKeys><VersionInfoKeys Name="LegalCopyright"></VersionInfoKeys><VersionInfoKeys Name="LegalTrademarks"></VersionInfoKeys><VersionInfoKeys Name="OriginalFilename"></VersionInfoKeys><VersionInfoKeys Name="ProductName"></VersionInfoKeys><VersionInfoKeys Name="ProductVersion">1.0.0.0</VersionInfoKeys><VersionInfoKeys Name="Comments"></VersionInfoKeys></VersionInfoKeys><Excluded_Packages>
<Excluded_Packages Name="c:\archivos de programa\borland\delphi10\Bin\dclIntraweb_80_100.bpl">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\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\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> <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"> <DelphiCompile Include="AlbaranesCliente_view.dpk">
<MainSource>MainSource</MainSource> <MainSource>MainSource</MainSource>
</DelphiCompile> </DelphiCompile>
<DCCReference Include="AlbaranesCliente_controller.dcp" /> <DCCReference Include="C:\Documents and Settings\Usuario\AlbaranesCliente_controller.dcp" />
<DCCReference Include="AlbaranesCliente_model.dcp" /> <DCCReference Include="C:\Documents and Settings\Usuario\AlbaranesCliente_model.dcp" />
<DCCReference Include="AlbCli_FacCli_relation.dcp" /> <DCCReference Include="C:\Documents and Settings\Usuario\AlbCli_FacCli_relation.dcp" />
<DCCReference Include="Almacenes_controller.dcp" /> <DCCReference Include="C:\Documents and Settings\Usuario\Almacenes_controller.dcp" />
<DCCReference Include="ApplicationBase.dcp" /> <DCCReference Include="C:\Documents and Settings\Usuario\ApplicationBase.dcp" />
<DCCReference Include="Articulos_view.dcp" /> <DCCReference Include="C:\Documents and Settings\Usuario\Articulos_view.dcp" />
<DCCReference Include="Base.dcp" /> <DCCReference Include="C:\Documents and Settings\Usuario\Base.dcp" />
<DCCReference Include="cxLibraryD11.dcp" /> <DCCReference Include="C:\Documents and Settings\Usuario\cxLibraryD11.dcp" />
<DCCReference Include="dxCoreD11.dcp" /> <DCCReference Include="C:\Documents and Settings\Usuario\dxCoreD11.dcp" />
<DCCReference Include="dxGDIPlusD11.dcp" /> <DCCReference Include="C:\Documents and Settings\Usuario\dxGDIPlusD11.dcp" />
<DCCReference Include="dxThemeD11.dcp" /> <DCCReference Include="C:\Documents and Settings\Usuario\dxThemeD11.dcp" />
<DCCReference Include="FacturasCliente_controller.dcp" /> <DCCReference Include="C:\Documents and Settings\Usuario\FacturasCliente_controller.dcp" />
<DCCReference Include="FacturasCliente_model.dcp" /> <DCCReference Include="C:\Documents and Settings\Usuario\FacturasCliente_model.dcp" />
<DCCReference Include="GUIBase.dcp" /> <DCCReference Include="C:\Documents and Settings\Usuario\GUIBase.dcp" />
<DCCReference Include="Inventario_controller.dcp" /> <DCCReference Include="C:\Documents and Settings\Usuario\Inventario_controller.dcp" />
<DCCReference Include="PedidosCliente_controller.dcp" /> <DCCReference Include="C:\Documents and Settings\Usuario\PedidosCliente_controller.dcp" />
<DCCReference Include="PedidosCliente_model.dcp" /> <DCCReference Include="C:\Documents and Settings\Usuario\PedidosCliente_model.dcp" />
<DCCReference Include="rtl.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="uAlbaranesClienteViewRegister.pas" />
<DCCReference Include="uDialogListaAlbaranesClienteEnvioEMail.pas"> <DCCReference Include="uDialogListaAlbaranesClienteEnvioEMail.pas">
<Form>fruDialogListaAlbaranesClienteEnvioEMail</Form> <Form>frDialogListaAlbaranesClienteEnvioEMail</Form>
<DesignClass>T</DesignClass> <DesignClass>T</DesignClass>
</DCCReference> </DCCReference>
<DCCReference Include="uDialogOpcionesImpresionAlbaranesCliente.pas"> <DCCReference Include="uDialogOpcionesImpresionAlbaranesCliente.pas">
@ -145,8 +143,6 @@
<Form>frViewElegirArticulosAlbaranesCliente</Form> <Form>frViewElegirArticulosAlbaranesCliente</Form>
<DesignClass>TFrame</DesignClass> <DesignClass>TFrame</DesignClass>
</DCCReference> </DCCReference>
<DCCReference Include="vcl.dcp" />
<DCCReference Include="vclx.dcp" />
</ItemGroup> </ItemGroup>
</Project> </Project>
<!-- EurekaLog First Line <!-- EurekaLog First Line

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

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

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

@ -98,24 +98,6 @@
<Target Name="Contactos_plugin:Make"> <Target Name="Contactos_plugin:Make">
<MSBuild Projects="Plugin\Contactos_plugin.dproj" Targets="Make" /> <MSBuild Projects="Plugin\Contactos_plugin.dproj" Targets="Make" />
</Target> </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"> <Target Name="AlbaranesCliente_view">
<MSBuild Projects="..\Albaranes de cliente\Views\AlbaranesCliente_view.dproj" Targets="" /> <MSBuild Projects="..\Albaranes de cliente\Views\AlbaranesCliente_view.dproj" Targets="" />
</Target> </Target>
@ -161,14 +143,32 @@
<Target Name="AlbaranesCliente_controller:Make"> <Target Name="AlbaranesCliente_controller:Make">
<MSBuild Projects="..\Albaranes de cliente\Controller\AlbaranesCliente_controller.dproj" Targets="Make" /> <MSBuild Projects="..\Albaranes de cliente\Controller\AlbaranesCliente_controller.dproj" Targets="Make" />
</Target> </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"> <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>
<Target Name="Clean"> <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>
<Target Name="Make"> <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> </Target>
<Import Condition="Exists('$(MSBuildBinPath)\Borland.Group.Targets')" Project="$(MSBuildBinPath)\Borland.Group.Targets" /> <Import Condition="Exists('$(MSBuildBinPath)\Borland.Group.Targets')" Project="$(MSBuildBinPath)\Borland.Group.Targets" />
</Project> </Project>

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

@ -53,30 +53,30 @@
<DelphiCompile Include="Contactos_controller.dpk"> <DelphiCompile Include="Contactos_controller.dpk">
<MainSource>MainSource</MainSource> <MainSource>MainSource</MainSource>
</DelphiCompile> </DelphiCompile>
<DCCReference Include="..\..\..\Servidor\adortl.dcp" /> <DCCReference Include="C:\Documents and Settings\Usuario\adortl.dcp" />
<DCCReference Include="..\..\..\Servidor\ApplicationBase.dcp" /> <DCCReference Include="C:\Documents and Settings\Usuario\ApplicationBase.dcp" />
<DCCReference Include="..\..\..\Servidor\Base.dcp" /> <DCCReference Include="C:\Documents and Settings\Usuario\Base.dcp" />
<DCCReference Include="..\..\..\Servidor\ccpackD11.dcp" /> <DCCReference Include="C:\Documents and Settings\Usuario\ccpackD11.dcp" />
<DCCReference Include="..\..\..\Servidor\cfpack_d11.dcp" /> <DCCReference Include="C:\Documents and Settings\Usuario\cfpack_d11.dcp" />
<DCCReference Include="..\..\..\Servidor\Contactos_data.dcp" /> <DCCReference Include="C:\Documents and Settings\Usuario\Contactos_data.dcp" />
<DCCReference Include="..\..\..\Servidor\Contactos_model.dcp" /> <DCCReference Include="C:\Documents and Settings\Usuario\Contactos_model.dcp" />
<DCCReference Include="..\..\..\Servidor\cxLibraryD11.dcp" /> <DCCReference Include="C:\Documents and Settings\Usuario\cxLibraryD11.dcp" />
<DCCReference Include="..\..\..\Servidor\DataAbstract_Core_D11.dcp" /> <DCCReference Include="C:\Documents and Settings\Usuario\DataAbstract_Core_D11.dcp" />
<DCCReference Include="..\..\..\Servidor\dbrtl.dcp" /> <DCCReference Include="C:\Documents and Settings\Usuario\dbrtl.dcp" />
<DCCReference Include="..\..\..\Servidor\designide.dcp" /> <DCCReference Include="C:\Documents and Settings\Usuario\designide.dcp" />
<DCCReference Include="..\..\..\Servidor\dsnap.dcp" /> <DCCReference Include="C:\Documents and Settings\Usuario\dsnap.dcp" />
<DCCReference Include="..\..\..\Servidor\dxCoreD11.dcp" /> <DCCReference Include="C:\Documents and Settings\Usuario\dxCoreD11.dcp" />
<DCCReference Include="..\..\..\Servidor\dxGDIPlusD11.dcp" /> <DCCReference Include="C:\Documents and Settings\Usuario\dxGDIPlusD11.dcp" />
<DCCReference Include="..\..\..\Servidor\dxThemeD11.dcp" /> <DCCReference Include="C:\Documents and Settings\Usuario\dxThemeD11.dcp" />
<DCCReference Include="..\..\..\Servidor\GUIBase.dcp" /> <DCCReference Include="C:\Documents and Settings\Usuario\GUIBase.dcp" />
<DCCReference Include="..\..\..\Servidor\GUISDK_D11R.dcp" /> <DCCReference Include="C:\Documents and Settings\Usuario\GUISDK_D11R.dcp" />
<DCCReference Include="..\..\..\Servidor\RemObjects_Core_D11.dcp" /> <DCCReference Include="C:\Documents and Settings\Usuario\RemObjects_Core_D11.dcp" />
<DCCReference Include="..\..\..\Servidor\rtl.dcp" /> <DCCReference Include="C:\Documents and Settings\Usuario\rtl.dcp" />
<DCCReference Include="..\..\..\Servidor\vcl.dcp" /> <DCCReference Include="C:\Documents and Settings\Usuario\vcl.dcp" />
<DCCReference Include="..\..\..\Servidor\vclactnband.dcp" /> <DCCReference Include="C:\Documents and Settings\Usuario\vclactnband.dcp" />
<DCCReference Include="..\..\..\Servidor\vcldb.dcp" /> <DCCReference Include="C:\Documents and Settings\Usuario\vcldb.dcp" />
<DCCReference Include="..\..\..\Servidor\vclx.dcp" /> <DCCReference Include="C:\Documents and Settings\Usuario\vclx.dcp" />
<DCCReference Include="..\..\..\Servidor\xmlrtl.dcp" /> <DCCReference Include="C:\Documents and Settings\Usuario\xmlrtl.dcp" />
<DCCReference Include="uAgentesController.pas" /> <DCCReference Include="uAgentesController.pas" />
<DCCReference Include="uClientesController.pas" /> <DCCReference Include="uClientesController.pas" />
<DCCReference Include="uContactosController.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 BuscarTodosTiendaWeb: IBizCliente;
function BuscarEtiquetadosFelicitacion: IBizCliente; function BuscarEtiquetadosFelicitacion: IBizCliente;
function TieneDatosBancarios(ACliente: IBizCliente) : Boolean; function TieneDatosBancarios(ACliente: IBizCliente) : Boolean;
function TieneClienteCentral(ACliente: IBizCliente) : Boolean;
function ElegirDireccionEntrega(ACliente: IBizCliente; AMensaje: String): IBizDireccionesContacto; function ElegirDireccionEntrega(ACliente: IBizCliente; AMensaje: String): IBizDireccionesContacto;
function EsEliminable(ACliente: IBizContacto): Boolean; function EsEliminable(ACliente: IBizContacto): Boolean;
function Eliminar(ACliente: IBizContacto; AllItems: Boolean = false): Boolean; overload; function Eliminar(ACliente: IBizContacto; AllItems: Boolean = false): Boolean; overload;
@ -57,6 +58,7 @@ type
procedure VerFacturasDeCliente(ACliente : IBizCliente); procedure VerFacturasDeCliente(ACliente : IBizCliente);
procedure VerRecibosDeCliente(ACliente : IBizCliente); procedure VerRecibosDeCliente(ACliente : IBizCliente);
function DarListaCuentasBancarias(const IdCliente: Integer): TStringList; function DarListaCuentasBancarias(const IdCliente: Integer): TStringList;
function TieneClienteCentral(ACliente: IBizCliente) : Boolean;
end; end;
implementation implementation
@ -86,6 +88,7 @@ function TClientesController.BuscarTodos: IBizContacto;
begin begin
Result := (FDataModule as IDataModuleClientes).GetItems; Result := (FDataModule as IDataModuleClientes).GetItems;
FiltrarEmpresa(Result); FiltrarEmpresa(Result);
FiltrarEmpresa((Result as IBizCliente).Sucursales);
end; end;
function TClientesController.BuscarTodosTiendaWeb: IBizCliente; function TClientesController.BuscarTodosTiendaWeb: IBizCliente;
@ -158,8 +161,8 @@ begin
if Assigned(AEditor) then if Assigned(AEditor) then
begin begin
try try
AEditor.Contactos := AContactos;
AEditor.Controller := Self; AEditor.Controller := Self;
AEditor.Contactos := AContactos;
AEditor.MultiSelect := AMultiSelect; AEditor.MultiSelect := AMultiSelect;
AEditor.Mensaje := AMensaje; AEditor.Mensaje := AMensaje;
if IsPositiveResult(AEditor.ShowModal) then if IsPositiveResult(AEditor.ShowModal) then
@ -357,6 +360,18 @@ begin
end; end;
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( function TClientesController.TieneDatosBancarios(
ACliente: IBizCliente): Boolean; ACliente: IBizCliente): Boolean;
begin begin
@ -427,8 +442,8 @@ begin
CreateEditor('EditorCliente', IEditorCliente, AEditor); CreateEditor('EditorCliente', IEditorCliente, AEditor);
if Assigned(AEditor) then if Assigned(AEditor) then
try try
AEditor.Contacto := AContacto;
AEditor.Controller := Self; AEditor.Controller := Self;
AEditor.Contacto := AContacto;
AEditor.ShowModal; AEditor.ShowModal;
finally finally
AEditor.Release; AEditor.Release;

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

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

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

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

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

@ -1,5 +1,5 @@
inherited DataModuleClientes: TDataModuleClientes inherited DataModuleClientes: TDataModuleClientes
Height = 398 Height = 470
Width = 636 Width = 636
inherited rda_Contactos: TDARemoteDataAdapter inherited rda_Contactos: TDARemoteDataAdapter
Top = 79 Top = 79
@ -23,8 +23,14 @@ inherited DataModuleClientes: TDataModuleClientes
DataSet = tbl_PersonalContacto.Dataset DataSet = tbl_PersonalContacto.Dataset
Left = 440 Left = 440
end end
inherited tbl_ListaAnosObjetivosAlb: TDAMemDataTable
Left = 184
Top = 336
end
inherited ds_ListaAnosObjetivosAlb: TDADataSource inherited ds_ListaAnosObjetivosAlb: TDADataSource
DataSet = tbl_ListaAnosObjetivosAlb.Dataset DataSet = tbl_ListaAnosObjetivosAlb.Dataset
Left = 184
Top = 288
end end
object tbl_Clientes: TDAMemDataTable object tbl_Clientes: TDAMemDataTable
RemoteUpdatesOptions = [] RemoteUpdatesOptions = []
@ -290,6 +296,10 @@ inherited DataModuleClientes: TDataModuleClientes
item item
Name = 'SEPA' Name = 'SEPA'
DataType = datSmallInt DataType = datSmallInt
end
item
Name = 'ID_CENTRAL'
DataType = datInteger
end> end>
Params = <> Params = <>
StreamingOptions = [soDisableEventsWhileStreaming] StreamingOptions = [soDisableEventsWhileStreaming]
@ -507,4 +517,315 @@ inherited DataModuleClientes: TDataModuleClientes
Left = 560 Left = 560
Top = 32 Top = 32
end 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 end

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

@ -26,8 +26,11 @@ type
ds_ClientesDescuentosArticulos: TDADataSource; ds_ClientesDescuentosArticulos: TDADataSource;
tbl_TiposCliente: TDAMemDataTable; tbl_TiposCliente: TDAMemDataTable;
ds_TiposCliente: TDADataSource; ds_TiposCliente: TDADataSource;
tbl_ClientesSucursales: TDAMemDataTable;
dsClientesSucursales: TDADataSource;
protected protected
function _GetDescuentos: IBizClienteDescuentos; function _GetDescuentos: IBizClienteDescuentos;
function _GetSucursales: IBizCliente;
function _GetDescuentosArticulos: IBizClienteDescuentosArticulos; function _GetDescuentosArticulos: IBizClienteDescuentosArticulos;
public public
function GetItem(const ID : Integer) : IBizCliente; function GetItem(const ID : Integer) : IBizCliente;
@ -103,6 +106,7 @@ begin
Descuentos := _GetDescuentos; Descuentos := _GetDescuentos;
DescuentosArt := _GetDescuentosArticulos; DescuentosArt := _GetDescuentosArticulos;
Personal := _GetPersonal; Personal := _GetPersonal;
Sucursales := _GetSucursales;
end; end;
Result := (AContacto as IBizCliente); Result := (AContacto as IBizCliente);
@ -211,4 +215,23 @@ begin
end; end;
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. end.

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

@ -50,10 +50,17 @@
<MainSource>MainSource</MainSource> <MainSource>MainSource</MainSource>
</DelphiCompile> </DelphiCompile>
<DCCReference Include="..\Utiles\uRegimenIVAUtils.pas" /> <DCCReference Include="..\Utiles\uRegimenIVAUtils.pas" />
<DCCReference Include="adortl.dcp" /> <DCCReference Include="C:\Documents and Settings\Usuario\adortl.dcp" />
<DCCReference Include="ApplicationBase.dcp" /> <DCCReference Include="C:\Documents and Settings\Usuario\ApplicationBase.dcp" />
<DCCReference Include="Base.dcp" /> <DCCReference Include="C:\Documents and Settings\Usuario\Base.dcp" />
<DCCReference Include="DataAbstract_Core_D11.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\uIDataModuleAgentes.pas" />
<DCCReference Include="Data\uIDataModuleClientes.pas" /> <DCCReference Include="Data\uIDataModuleClientes.pas" />
<DCCReference Include="Data\uIDataModuleContactos.pas" /> <DCCReference Include="Data\uIDataModuleContactos.pas" />
@ -61,11 +68,6 @@
<DCCReference Include="Data\uIDataModuleEtiquetasContactosReport.pas" /> <DCCReference Include="Data\uIDataModuleEtiquetasContactosReport.pas" />
<DCCReference Include="Data\uIDataModuleFichasEmpleadoReport.pas" /> <DCCReference Include="Data\uIDataModuleFichasEmpleadoReport.pas" />
<DCCReference Include="Data\uIDataModuleProveedores.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="schContactosClient_Intf.pas" />
<DCCReference Include="schContactosServer_Intf.pas" /> <DCCReference Include="schContactosServer_Intf.pas" />
<DCCReference Include="uBizAgentesComisiones.pas" /> <DCCReference Include="uBizAgentesComisiones.pas" />
@ -81,8 +83,6 @@
<DCCReference Include="uBizGruposEmpleado.pas" /> <DCCReference Include="uBizGruposEmpleado.pas" />
<DCCReference Include="uBizGruposProveedor.pas" /> <DCCReference Include="uBizGruposProveedor.pas" />
<DCCReference Include="uBizTiposCliente.pas" /> <DCCReference Include="uBizTiposCliente.pas" />
<DCCReference Include="vcl.dcp" />
<DCCReference Include="vcldb.dcp" />
</ItemGroup> </ItemGroup>
</Project> </Project>
<!-- EurekaLog First Line <!-- 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; end;
TBizClienteDescuentos = class(TClientesDescuentosDataTableRules, IBizClienteDescuentos) TBizClienteDescuentos = class(TClientesDescuentosDataTableRules, IBizClienteDescuentos)
private
ContIdAux: Integer;
protected protected
procedure BeforeInsert(Sender: TDADataTable); override; procedure BeforeInsert(Sender: TDADataTable); override;
end; end;

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

@ -3,7 +3,7 @@ unit uBizClientesServer;
interface interface
uses uses
schContactosServer_Intf, uDAInterfaces, uDADelta, schContactosServer_Intf, uDAInterfaces, uDADelta, SysUtils,
uDADataTable, uDABusinessProcessor, uBizContactosServer; uDADataTable, uDABusinessProcessor, uBizContactosServer;
const const
@ -20,10 +20,11 @@ type
procedure Delete_Datos_Contacto(aChange: TDADeltaChange); override; procedure Delete_Datos_Contacto(aChange: TDADeltaChange); override;
end; end;
implementation implementation
uses uses
uDataModuleServer, uDAClasses, uDataModuleServer, uDAClasses, Dialogs,
schContactosClient_Intf, uBusinessUtils; schContactosClient_Intf, uBusinessUtils;
const const
@ -102,6 +103,7 @@ begin
ParamByName('EMAIL_ADMINISTRACION').Value := aChange.NewValueByName[fld_ClientesEMAIL_ADMINISTRACION]; ParamByName('EMAIL_ADMINISTRACION').Value := aChange.NewValueByName[fld_ClientesEMAIL_ADMINISTRACION];
ParamByName('TIPO_CLIENTE').Value := aChange.NewValueByName[fld_ClientesTIPO_CLIENTE]; 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; Execute;
end; end;
finally finally
@ -148,6 +150,7 @@ begin
ParamByName('EMAIL_ADMINISTRACION').Value := aChange.NewValueByName[fld_ClientesEMAIL_ADMINISTRACION]; ParamByName('EMAIL_ADMINISTRACION').Value := aChange.NewValueByName[fld_ClientesEMAIL_ADMINISTRACION];
ParamByName('TIPO_CLIENTE').Value := aChange.NewValueByName[fld_ClientesTIPO_CLIENTE]; 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; Execute;
end; end;
finally finally

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

@ -77,6 +77,12 @@ type
function GetSEPAValue: Integer; function GetSEPAValue: Integer;
procedure SetSEPAValue(const aValue: 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; function GetMOTIVO_BLOQUEOValue: String;
procedure SetMOTIVO_BLOQUEOValue(const aValue: String); procedure SetMOTIVO_BLOQUEOValue(const aValue: String);
@ -112,6 +118,12 @@ type
function GetEMAIL_ADMINISTRACIONValue: String; function GetEMAIL_ADMINISTRACIONValue: String;
procedure SetEMAIL_ADMINISTRACIONValue(const aValue: 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 GRUPO_CLIENTE: String read GetGRUPO_CLIENTEValue write SetGRUPO_CLIENTEValue;
property TIPO_CLIENTE: String read GetTIPO_CLIENTEValue write SetTIPO_CLIENTEValue; property TIPO_CLIENTE: String read GetTIPO_CLIENTEValue write SetTIPO_CLIENTEValue;
property NOMBRE_COMERCIAL: String read GetNOMBRE_COMERCIALValue write SetNOMBRE_COMERCIALValue; property NOMBRE_COMERCIAL: String read GetNOMBRE_COMERCIALValue write SetNOMBRE_COMERCIALValue;
@ -129,6 +141,8 @@ type
property DESCUENTO: Double read GetDESCUENTOValue write SetDESCUENTOValue; property DESCUENTO: Double read GetDESCUENTOValue write SetDESCUENTOValue;
property FELICITACION: Integer read GetFELICITACIONValue write SetFELICITACIONValue; property FELICITACION: Integer read GetFELICITACIONValue write SetFELICITACIONValue;
property EMAIL_ADMINISTRACION: String read GetEMAIL_ADMINISTRACIONValue write SetEMAIL_ADMINISTRACIONValue; 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; end;
IBizProveedor = interface (IBizContacto) IBizProveedor = interface (IBizContacto)
@ -309,6 +323,9 @@ type
FDescuentos : IBizClienteDescuentos; FDescuentos : IBizClienteDescuentos;
FDescuentosLink : TDADataSource; FDescuentosLink : TDADataSource;
FSucursales : IBizCliente;
FSucursalesLink : TDADataSource;
FDescuentosArt : IBizClienteDescuentosArticulos; FDescuentosArt : IBizClienteDescuentosArticulos;
FDescuentosArtLink : TDADataSource; FDescuentosArtLink : TDADataSource;
@ -369,6 +386,16 @@ type
function GetEMAIL_ADMINISTRACIONValue: String; function GetEMAIL_ADMINISTRACIONValue: String;
procedure SetEMAIL_ADMINISTRACIONValue(const aValue: 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 public
procedure IniciarValoresContactoNuevo; override; procedure IniciarValoresContactoNuevo; override;
constructor Create(aDataTable: TDADataTable); override; constructor Create(aDataTable: TDADataTable); override;
@ -392,6 +419,11 @@ type
property DESCUENTO: Double read GetDESCUENTOValue write SetDESCUENTOValue; property DESCUENTO: Double read GetDESCUENTOValue write SetDESCUENTOValue;
property FELICITACION: Integer read GetFELICITACIONValue write SetFELICITACIONValue; property FELICITACION: Integer read GetFELICITACIONValue write SetFELICITACIONValue;
property EMAIL_ADMINISTRACION: String read GetEMAIL_ADMINISTRACIONValue write SetEMAIL_ADMINISTRACIONValue; 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; end;
@ -647,14 +679,23 @@ begin
FDescuentosArt := NIL; FDescuentosArt := NIL;
FDescuentosArtLink := TDADataSource.Create(NIL); FDescuentosArtLink := TDADataSource.Create(NIL);
FDescuentosArtLink.DataTable := aDataTable; FDescuentosArtLink.DataTable := aDataTable;
FSucursales := NIL;
FSucursalesLink := TDADataSource.Create(NIL);
FSucursalesLink.DataTable := aDataTable;
end; end;
destructor TBizCliente.Destroy; destructor TBizCliente.Destroy;
begin begin
FDescuentos := NIL; FDescuentos := NIL;
FreeAndNIL(FDescuentosLink); FreeAndNIL(FDescuentosLink);
FDescuentosArt := NIL; FDescuentosArt := NIL;
FreeAndNIL(FDescuentosArtLink); FreeAndNIL(FDescuentosArtLink);
FSucursales := NIL;
FreeAndNIL(FSucursalesLink);
inherited; inherited;
end; end;
@ -693,6 +734,16 @@ begin
result := DataTable.Fields[idx_ClientesGRUPO_CLIENTE].AsString; result := DataTable.Fields[idx_ClientesGRUPO_CLIENTE].AsString;
end; 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; function TBizCliente.GetID_FORMA_PAGOValue: Integer;
begin begin
result := DataTable.Fields[idx_ClientesID_FORMA_PAGO].AsInteger; result := DataTable.Fields[idx_ClientesID_FORMA_PAGO].AsInteger;
@ -750,6 +801,17 @@ begin
DataTable.Fields[idx_ClientesGRUPO_CLIENTE].AsString := aValue; DataTable.Fields[idx_ClientesGRUPO_CLIENTE].AsString := aValue;
end; 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); procedure TBizCliente.SetID_FORMA_PAGOValue(const aValue: Integer);
begin begin
DataTable.Fields[idx_ClientesID_FORMA_PAGO].AsInteger := aValue; DataTable.Fields[idx_ClientesID_FORMA_PAGO].AsInteger := aValue;
@ -785,6 +847,11 @@ begin
result := DataTable.Fields[idx_ClientesSEPA].AsInteger; result := DataTable.Fields[idx_ClientesSEPA].AsInteger;
end; end;
function TBizCliente.GetSucursales: IBizCliente;
begin
result := FSucursales;
end;
function TBizCliente.GetTIENDA_WEBValue: Integer; function TBizCliente.GetTIENDA_WEBValue: Integer;
begin begin
result := DataTable.Fields[idx_ClientesTIENDA_WEB].AsInteger; result := DataTable.Fields[idx_ClientesTIENDA_WEB].AsInteger;
@ -825,6 +892,12 @@ begin
DataTable.Fields[idx_ClientesSEPA].AsInteger := aValue; DataTable.Fields[idx_ClientesSEPA].AsInteger := aValue;
end; end;
procedure TBizCliente.SetSucursales(AValue: IBizCliente);
begin
FSucursales := AValue;
EnlazarMaestroDetalle(FSucursalesLink, FSucursales);
end;
procedure TBizCliente.SetTIENDA_WEBValue(const aValue: Integer); procedure TBizCliente.SetTIENDA_WEBValue(const aValue: Integer);
begin begin
DataTable.Fields[idx_ClientesTIENDA_WEB].AsInteger := aValue; 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.Personality>Delphi.Personality</Borland.Personality>
<Borland.ProjectType>Package</Borland.ProjectType> <Borland.ProjectType>Package</Borland.ProjectType>
<BorlandProject> <BorlandProject>
<BorlandProject><Delphi.Personality><Parameters><Parameters Name="UseLauncher">False</Parameters><Parameters Name="LoadAllSymbols">True</Parameters><Parameters Name="LoadUnspecifiedSymbols">False</Parameters></Parameters><Package_Options><Package_Options Name="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> </ProjectExtensions>
<Import Project="$(MSBuildBinPath)\Borland.Delphi.Targets" /> <Import Project="$(MSBuildBinPath)\Borland.Delphi.Targets" />
<ItemGroup> <ItemGroup>
@ -58,12 +58,13 @@
<DCCReference Include="C:\Documents and Settings\Usuario\vcl.dcp" /> <DCCReference Include="C:\Documents and Settings\Usuario\vcl.dcp" />
<DCCReference Include="uPluginContactos.pas"> <DCCReference Include="uPluginContactos.pas">
<Form>PluginContactos</Form> <Form>PluginContactos</Form>
<DesignClass>TDataModule</DesignClass>
</DCCReference> </DCCReference>
</ItemGroup> </ItemGroup>
</Project> </Project>
<!-- EurekaLog First Line <!-- EurekaLog First Line
[Exception Log] [Exception Log]
EurekaLog Version=6006 EurekaLog Version=6011
Activate=1 Activate=1
Activate Handle=1 Activate Handle=1
Save Log File=1 Save Log File=1

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

@ -7,7 +7,7 @@ object srvContactos: TsrvContactos
ExportedDataTables = <> ExportedDataTables = <>
BeforeAcquireConnection = DataAbstractServiceBeforeAcquireConnection BeforeAcquireConnection = DataAbstractServiceBeforeAcquireConnection
Height = 347 Height = 347
Width = 444 Width = 696
object schContactos: TDASchema object schContactos: TDASchema
ConnectionManager = dmServer.ConnectionManager ConnectionManager = dmServer.ConnectionManager
DataDictionary = DataDictionary DataDictionary = DataDictionary
@ -589,6 +589,10 @@ object srvContactos: TsrvContactos
item item
DatasetField = 'SEPA' DatasetField = 'SEPA'
TableField = 'SEPA' TableField = 'SEPA'
end
item
DatasetField = 'ID_CENTRAL'
TableField = 'ID_CENTRAL'
end> end>
end> end>
Name = 'Clientes' Name = 'Clientes'
@ -705,10 +709,12 @@ object srvContactos: TsrvContactos
item item
Name = 'FECHA_ALTA' Name = 'FECHA_ALTA'
DataType = datDateTime DataType = datDateTime
DictionaryEntry = 'Clientes_FECHA_ALTA'
end end
item item
Name = 'FECHA_MODIFICACION' Name = 'FECHA_MODIFICACION'
DataType = datDateTime DataType = datDateTime
DictionaryEntry = 'Clientes_FECHA_MODIFICACION'
end end
item item
Name = 'USUARIO' Name = 'USUARIO'
@ -731,6 +737,7 @@ object srvContactos: TsrvContactos
item item
Name = 'ID_AGENTE' Name = 'ID_AGENTE'
DataType = datInteger DataType = datInteger
DictionaryEntry = 'Clientes_ID_AGENTE'
end end
item item
Name = 'GRUPO_CLIENTE' Name = 'GRUPO_CLIENTE'
@ -747,14 +754,17 @@ object srvContactos: TsrvContactos
item item
Name = 'VENCIMIENTO_FACTURAS_1' Name = 'VENCIMIENTO_FACTURAS_1'
DataType = datSmallInt DataType = datSmallInt
DictionaryEntry = 'Clientes_VENCIMIENTO_FACTURAS_1'
end end
item item
Name = 'VENCIMIENTO_FACTURAS_2' Name = 'VENCIMIENTO_FACTURAS_2'
DataType = datSmallInt DataType = datSmallInt
DictionaryEntry = 'Clientes_VENCIMIENTO_FACTURAS_2'
end end
item item
Name = 'VENCIMIENTO_FACTURAS_3' Name = 'VENCIMIENTO_FACTURAS_3'
DataType = datSmallInt DataType = datSmallInt
DictionaryEntry = 'Clientes_VENCIMIENTO_FACTURAS_3'
end end
item item
Name = 'BLOQUEADO' Name = 'BLOQUEADO'
@ -765,15 +775,18 @@ object srvContactos: TsrvContactos
Name = 'AGENTE' Name = 'AGENTE'
DataType = datString DataType = datString
Size = 255 Size = 255
DictionaryEntry = 'Clientes_AGENTE'
end end
item item
Name = 'RAPEL' Name = 'RAPEL'
DataType = datSmallInt DataType = datSmallInt
DictionaryEntry = 'Clientes_RAPEL'
end end
item item
Name = 'EMAIL_ADMINISTRACION' Name = 'EMAIL_ADMINISTRACION'
DataType = datString DataType = datString
Size = 255 Size = 255
DictionaryEntry = 'Clientes_EMAIL_ADMINISTRACION'
end end
item item
Name = 'REGIMEN_IVA' Name = 'REGIMEN_IVA'
@ -811,10 +824,12 @@ object srvContactos: TsrvContactos
Name = 'CODIGO_ASIGNADO' Name = 'CODIGO_ASIGNADO'
DataType = datString DataType = datString
Size = 255 Size = 255
DictionaryEntry = 'Clientes_CODIGO_ASIGNADO'
end end
item item
Name = 'DESCUENTO' Name = 'DESCUENTO'
DataType = datFloat DataType = datFloat
DictionaryEntry = 'Clientes_DESCUENTO'
end end
item item
Name = 'FELICITACION' Name = 'FELICITACION'
@ -825,10 +840,17 @@ object srvContactos: TsrvContactos
Name = 'TIPO_CLIENTE' Name = 'TIPO_CLIENTE'
DataType = datString DataType = datString
Size = 255 Size = 255
DictionaryEntry = 'Clientes_TIPO_CLIENTE'
end end
item item
Name = 'SEPA' Name = 'SEPA'
DataType = datSmallInt DataType = datSmallInt
DictionaryEntry = 'Clientes_SEPA'
end
item
Name = 'ID_CENTRAL'
DataType = datInteger
DictionaryEntry = 'Clientes_ID_CENTRAL'
end> end>
end end
item item
@ -1725,6 +1747,12 @@ object srvContactos: TsrvContactos
DataType = datDateTime DataType = datDateTime
end> end>
end end
item
Params = <>
Statements = <>
Name = 'Dataset'
Fields = <>
end
item item
Params = <> Params = <>
Statements = < Statements = <
@ -2938,6 +2966,450 @@ object srvContactos: TsrvContactos
Size = 255 Size = 255
DictionaryEntry = 'TiposCliente_DESCRIPCION' DictionaryEntry = 'TiposCliente_DESCRIPCION'
end> 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> end>
JoinDataTables = <> JoinDataTables = <>
UnionDataTables = <> UnionDataTables = <>
@ -3611,6 +4083,11 @@ object srvContactos: TsrvContactos
end end
item item
Params = < Params = <
item
Name = 'ID_CENTRAL'
DataType = datInteger
Value = ''
end
item item
Name = 'ID_CLIENTE' Name = 'ID_CLIENTE'
DataType = datInteger DataType = datInteger
@ -3733,13 +4210,14 @@ object srvContactos: TsrvContactos
'UEO, REGIMEN_IVA, ID_TIPO_IVA, ID_FORMA_PAGO,'#10' TIENDA_WEB, C' + 'UEO, REGIMEN_IVA, ID_TIPO_IVA, ID_FORMA_PAGO,'#10' TIENDA_WEB, C' +
'ODIGO_ASIGNADO, DESCUENTO, RAPEL, ID_AGENTE, EMAIL_ADMINISTRACIO' + 'ODIGO_ASIGNADO, DESCUENTO, RAPEL, ID_AGENTE, EMAIL_ADMINISTRACIO' +
'N,'#10' VENCIMIENTO_FACTURAS_1, VENCIMIENTO_FACTURAS_2, VENCIMIE' + 'N,'#10' VENCIMIENTO_FACTURAS_1, VENCIMIENTO_FACTURAS_2, VENCIMIE' +
'NTO_FACTURAS_3,'#10' FELICITACION, TIPO_CLIENTE, SEPA)'#10' VALUES'#10 + 'NTO_FACTURAS_3,'#10' FELICITACION, TIPO_CLIENTE, SEPA, ID_CENTRA' +
' (:ID_CLIENTE, :GRUPO_CLIENTE, :RECARGO_EQUIVALENCIA, :NOMBRE' + 'L)'#10' VALUES'#10' (:ID_CLIENTE, :GRUPO_CLIENTE, :RECARGO_EQUIVALEN' +
'_COMERCIAL,'#10' :BLOQUEADO, :MOTIVO_BLOQUEO, :REGIMEN_IVA, :ID_' + 'CIA, :NOMBRE_COMERCIAL,'#10' :BLOQUEADO, :MOTIVO_BLOQUEO, :REGIM' +
'TIPO_IVA, :ID_FORMA_PAGO,'#10' :TIENDA_WEB, :CODIGO_ASIGNADO, :D' + 'EN_IVA, :ID_TIPO_IVA, :ID_FORMA_PAGO,'#10' :TIENDA_WEB, :CODIGO_' +
'ESCUENTO, :RAPEL, :ID_AGENTE, :EMAIL_ADMINISTRACION,'#10' :VENCI' + 'ASIGNADO, :DESCUENTO, :RAPEL, :ID_AGENTE, :EMAIL_ADMINISTRACION,' +
'MIENTO_FACTURAS_1, :VENCIMIENTO_FACTURAS_2, :VENCIMIENTO_FACTURA' + #10' :VENCIMIENTO_FACTURAS_1, :VENCIMIENTO_FACTURAS_2, :VENCIMI' +
'S_3,'#10' :FELICITACION, :TIPO_CLIENTE, :SEPA)'#10' '#10#10 'ENTO_FACTURAS_3,'#10' :FELICITACION, :TIPO_CLIENTE, :SEPA, :ID_C' +
'ENTRAL)'#10' '#10#10
StatementType = stSQL StatementType = stSQL
ColumnMappings = <> ColumnMappings = <>
end> end>
@ -3767,6 +4245,11 @@ object srvContactos: TsrvContactos
end end
item item
Params = < Params = <
item
Name = 'ID_CENTRAL'
DataType = datInteger
Value = ''
end
item item
Name = 'ID_CLIENTE' Name = 'ID_CLIENTE'
DataType = datInteger DataType = datInteger
@ -3900,8 +4383,8 @@ object srvContactos: TsrvContactos
' = :VENCIMIENTO_FACTURAS_1,'#10' VENCIMIENTO_FACTURAS_2 = :VENCIM' + ' = :VENCIMIENTO_FACTURAS_1,'#10' VENCIMIENTO_FACTURAS_2 = :VENCIM' +
'IENTO_FACTURAS_2,'#10' VENCIMIENTO_FACTURAS_3 = :VENCIMIENTO_FACT' + 'IENTO_FACTURAS_2,'#10' VENCIMIENTO_FACTURAS_3 = :VENCIMIENTO_FACT' +
'URAS_3,'#10' FELICITACION = :FELICITACION,'#10' TIPO_CLIENTE = :TI' + 'URAS_3,'#10' FELICITACION = :FELICITACION,'#10' TIPO_CLIENTE = :TI' +
'PO_CLIENTE,'#10' SEPA = :SEPA'#10' WHERE'#10' (ID_CLIENTE = :OLD_ID_C' + 'PO_CLIENTE,'#10' SEPA = :SEPA,'#10' ID_CENTRAL = :ID_CENTRAL'#10' WHE' +
'LIENTE)'#10 'RE'#10' (ID_CLIENTE = :OLD_ID_CLIENTE)'#10
StatementType = stSQL StatementType = stSQL
ColumnMappings = <> ColumnMappings = <>
end> end>
@ -5032,6 +5515,50 @@ object srvContactos: TsrvContactos
end> end>
Name = 'Update_AgentesDatos' Name = 'Update_AgentesDatos'
end 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 item
Params = < Params = <
item item
@ -5503,6 +6030,14 @@ object srvContactos: TsrvContactos
DetailFields = 'ID_CONTACTO' DetailFields = 'ID_CONTACTO'
RelationshipType = rtForeignKey RelationshipType = rtForeignKey
end end
item
Name = 'FK_Sucursales_Clientes'
MasterDatasetName = 'Clientes'
MasterFields = 'ID'
DetailDatasetName = 'ClientesSucursales'
DetailFields = 'ID_CENTRAL'
RelationshipType = rtForeignKey
end
item item
Name = 'FK_DatosBancarios_Proveedores' Name = 'FK_DatosBancarios_Proveedores'
MasterDatasetName = 'Proveedores' MasterDatasetName = 'Proveedores'
@ -6440,6 +6975,58 @@ object srvContactos: TsrvContactos
DataType = datString DataType = datString
Size = 255 Size = 255
DisplayLabel = 'C'#243'digo SWIFT/BIC' 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> end>
Left = 126 Left = 126
Top = 14 Top = 14
@ -6587,8 +7174,8 @@ object srvContactos: TsrvContactos
ReferencedDataset = 'Agentes_Objetivos_albaranes' ReferencedDataset = 'Agentes_Objetivos_albaranes'
ProcessorOptions = [poPrepareCommands] ProcessorOptions = [poPrepareCommands]
UpdateMode = updWhereKeyOnly UpdateMode = updWhereKeyOnly
Left = 48 Left = 112
Top = 287 Top = 263
end end
object bpAgentesObjetivosFac: TDABusinessProcessor object bpAgentesObjetivosFac: TDABusinessProcessor
Schema = schContactos Schema = schContactos
@ -6598,7 +7185,19 @@ object srvContactos: TsrvContactos
ReferencedDataset = 'Agentes_Objetivos_facturas' ReferencedDataset = 'Agentes_Objetivos_facturas'
ProcessorOptions = [poPrepareCommands] ProcessorOptions = [poPrepareCommands]
UpdateMode = updWhereKeyOnly UpdateMode = updWhereKeyOnly
Left = 176 Left = 224
Top = 287 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
end end

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

@ -37,6 +37,7 @@ type
bpClientesDescuentosArt: TDABusinessProcessor; bpClientesDescuentosArt: TDABusinessProcessor;
bpAgentesObjetivosAlb: TDABusinessProcessor; bpAgentesObjetivosAlb: TDABusinessProcessor;
bpAgentesObjetivosFac: TDABusinessProcessor; bpAgentesObjetivosFac: TDABusinessProcessor;
bpClientesSucursales: TDABusinessProcessor;
schContactos: TDASchema; schContactos: TDASchema;
DataDictionary: TDADataDictionary; DataDictionary: TDADataDictionary;
procedure DARemoteServiceBeforeGetDatasetData(const Dataset: IDADataset; 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}, uEditorElegirAgentes in 'uEditorElegirAgentes.pas' {fEditorElegirAgentes: TCustomEditor},
uViewAgenteObjetivosAlbaranes in 'uViewAgenteObjetivosAlbaranes.pas' {frViewAgenteObjetivosAlbaranes: TFrame}, uViewAgenteObjetivosAlbaranes in 'uViewAgenteObjetivosAlbaranes.pas' {frViewAgenteObjetivosAlbaranes: TFrame},
uViewAgenteObjetivosFacturas in 'uViewAgenteObjetivosFacturas.pas' {frViewAgenteObjetivosFacturas: 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. end.

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

@ -49,65 +49,58 @@
<DelphiCompile Include="Contactos_view.dpk"> <DelphiCompile Include="Contactos_view.dpk">
<MainSource>MainSource</MainSource> <MainSource>MainSource</MainSource>
</DelphiCompile> </DelphiCompile>
<DCCReference Include="..\..\..\..\Resources\Iconos\Contactos\16x16\adortl.dcp" /> <DCCReference Include="adortl.dcp" />
<DCCReference Include="..\..\..\..\Resources\Iconos\Contactos\16x16\ApplicationBase.dcp" /> <DCCReference Include="ApplicationBase.dcp" />
<DCCReference Include="..\..\..\..\Resources\Iconos\Contactos\16x16\Articulos_controller.dcp" /> <DCCReference Include="Articulos_controller.dcp" />
<DCCReference Include="..\..\..\..\Resources\Iconos\Contactos\16x16\Base.dcp" /> <DCCReference Include="Base.dcp" />
<DCCReference Include="..\..\..\..\Resources\Iconos\Contactos\16x16\bdertl.dcp" /> <DCCReference Include="bdertl.dcp" />
<DCCReference Include="..\..\..\..\Resources\Iconos\Contactos\16x16\ccpackD11.dcp" /> <DCCReference Include="ccpackD11.dcp" />
<DCCReference Include="..\..\..\..\Resources\Iconos\Contactos\16x16\cfpack_d11.dcp" /> <DCCReference Include="cfpack_d11.dcp" />
<DCCReference Include="..\..\..\..\Resources\Iconos\Contactos\16x16\Contactos_controller.dcp" /> <DCCReference Include="Contactos_controller.dcp" />
<DCCReference Include="..\..\..\..\Resources\Iconos\Contactos\16x16\Contactos_model.dcp" /> <DCCReference Include="Contactos_model.dcp" />
<DCCReference Include="..\..\..\..\Resources\Iconos\Contactos\16x16\cxDataD11.dcp" /> <DCCReference Include="cxDataD11.dcp" />
<DCCReference Include="..\..\..\..\Resources\Iconos\Contactos\16x16\cxEditorsD11.dcp" /> <DCCReference Include="cxEditorsD11.dcp" />
<DCCReference Include="..\..\..\..\Resources\Iconos\Contactos\16x16\cxExportD11.dcp" /> <DCCReference Include="cxExportD11.dcp" />
<DCCReference Include="..\..\..\..\Resources\Iconos\Contactos\16x16\cxExtEditorsD11.dcp" /> <DCCReference Include="cxExtEditorsD11.dcp" />
<DCCReference Include="..\..\..\..\Resources\Iconos\Contactos\16x16\cxGridD11.dcp" /> <DCCReference Include="cxGridD11.dcp" />
<DCCReference Include="..\..\..\..\Resources\Iconos\Contactos\16x16\cxLibraryD11.dcp" /> <DCCReference Include="cxLibraryD11.dcp" />
<DCCReference Include="..\..\..\..\Resources\Iconos\Contactos\16x16\cxPageControlD11.dcp" /> <DCCReference Include="cxPageControlD11.dcp" />
<DCCReference Include="..\..\..\..\Resources\Iconos\Contactos\16x16\DataAbstract_Core_D11.dcp" /> <DCCReference Include="DataAbstract_Core_D11.dcp" />
<DCCReference Include="..\..\..\..\Resources\Iconos\Contactos\16x16\dbrtl.dcp" /> <DCCReference Include="dbrtl.dcp" />
<DCCReference Include="..\..\..\..\Resources\Iconos\Contactos\16x16\dclcxLibraryD11.dcp" /> <DCCReference Include="dclcxLibraryD11.dcp" />
<DCCReference Include="..\..\..\..\Resources\Iconos\Contactos\16x16\designide.dcp" /> <DCCReference Include="designide.dcp" />
<DCCReference Include="..\..\..\..\Resources\Iconos\Contactos\16x16\dsnap.dcp" /> <DCCReference Include="dsnap.dcp" />
<DCCReference Include="..\..\..\..\Resources\Iconos\Contactos\16x16\dxComnD11.dcp" /> <DCCReference Include="dxComnD11.dcp" />
<DCCReference Include="..\..\..\..\Resources\Iconos\Contactos\16x16\dxCoreD11.dcp" /> <DCCReference Include="dxCoreD11.dcp" />
<DCCReference Include="..\..\..\..\Resources\Iconos\Contactos\16x16\dxGDIPlusD11.dcp" /> <DCCReference Include="dxGDIPlusD11.dcp" />
<DCCReference Include="..\..\..\..\Resources\Iconos\Contactos\16x16\dxLayoutControlD11.dcp" /> <DCCReference Include="dxLayoutControlD11.dcp" />
<DCCReference Include="..\..\..\..\Resources\Iconos\Contactos\16x16\dxPSCoreD11.dcp" /> <DCCReference Include="dxPSCoreD11.dcp" />
<DCCReference Include="..\..\..\..\Resources\Iconos\Contactos\16x16\dxPScxCommonD11.dcp" /> <DCCReference Include="dxPScxCommonD11.dcp" />
<DCCReference Include="..\..\..\..\Resources\Iconos\Contactos\16x16\dxPScxGrid6LnkD11.dcp" /> <DCCReference Include="dxPScxGrid6LnkD11.dcp" />
<DCCReference Include="..\..\..\..\Resources\Iconos\Contactos\16x16\dxPSLnksD11.dcp" /> <DCCReference Include="dxPSLnksD11.dcp" />
<DCCReference Include="..\..\..\..\Resources\Iconos\Contactos\16x16\dxThemeD11.dcp" /> <DCCReference Include="dxThemeD11.dcp" />
<DCCReference Include="..\..\..\..\Resources\Iconos\Contactos\16x16\FormasPago_controller.dcp" /> <DCCReference Include="FormasPago_controller.dcp" />
<DCCReference Include="..\..\..\..\Resources\Iconos\Contactos\16x16\FormasPago_model.dcp" /> <DCCReference Include="FormasPago_model.dcp" />
<DCCReference Include="..\..\..\..\Resources\Iconos\Contactos\16x16\GUIBase.dcp" /> <DCCReference Include="GUIBase.dcp" />
<DCCReference Include="..\..\..\..\Resources\Iconos\Contactos\16x16\GUISDK_D11R.dcp" /> <DCCReference Include="GUISDK_D11R.dcp" />
<DCCReference Include="..\..\..\..\Resources\Iconos\Contactos\16x16\Jcl.dcp" /> <DCCReference Include="Jcl.dcp" />
<DCCReference Include="..\..\..\..\Resources\Iconos\Contactos\16x16\JclVcl.dcp" /> <DCCReference Include="JclVcl.dcp" />
<DCCReference Include="..\..\..\..\Resources\Iconos\Contactos\16x16\JSDialog100.dcp" /> <DCCReference Include="JSDialog100.dcp" />
<DCCReference Include="..\..\..\..\Resources\Iconos\Contactos\16x16\JvAppFrmD11R.dcp" /> <DCCReference Include="JvAppFrmD11R.dcp" />
<DCCReference Include="..\..\..\..\Resources\Iconos\Contactos\16x16\JvCoreD11R.dcp" /> <DCCReference Include="JvCoreD11R.dcp" />
<DCCReference Include="..\..\..\..\Resources\Iconos\Contactos\16x16\JvCtrlsD11R.dcp" /> <DCCReference Include="JvCtrlsD11R.dcp" />
<DCCReference Include="..\..\..\..\Resources\Iconos\Contactos\16x16\JvGlobusD11R.dcp" /> <DCCReference Include="JvGlobusD11R.dcp" />
<DCCReference Include="..\..\..\..\Resources\Iconos\Contactos\16x16\JvPageCompsD11R.dcp" /> <DCCReference Include="JvPageCompsD11R.dcp" />
<DCCReference Include="..\..\..\..\Resources\Iconos\Contactos\16x16\JvStdCtrlsD11R.dcp" /> <DCCReference Include="JvStdCtrlsD11R.dcp" />
<DCCReference Include="..\..\..\..\Resources\Iconos\Contactos\16x16\JvSystemD11R.dcp" /> <DCCReference Include="JvSystemD11R.dcp" />
<DCCReference Include="..\..\..\..\Resources\Iconos\Contactos\16x16\PngComponentsD10.dcp" /> <DCCReference Include="PngComponentsD10.dcp" />
<DCCReference Include="..\..\..\..\Resources\Iconos\Contactos\16x16\PNG_D10.dcp" /> <DCCReference Include="PNG_D10.dcp" />
<DCCReference Include="..\..\..\..\Resources\Iconos\Contactos\16x16\RemObjects_Core_D11.dcp" /> <DCCReference Include="RemObjects_Core_D11.dcp" />
<DCCReference Include="..\..\..\..\Resources\Iconos\Contactos\16x16\rtl.dcp" /> <DCCReference Include="rtl.dcp" />
<DCCReference Include="..\..\..\..\Resources\Iconos\Contactos\16x16\tb2k_d10.dcp" /> <DCCReference Include="tb2k_d10.dcp" />
<DCCReference Include="..\..\..\..\Resources\Iconos\Contactos\16x16\tbx_d10.dcp" /> <DCCReference Include="tbx_d10.dcp" />
<DCCReference Include="..\..\..\..\Resources\Iconos\Contactos\16x16\TiposIVA_controller.dcp" /> <DCCReference Include="TiposIVA_controller.dcp" />
<DCCReference Include="..\..\..\..\Resources\Iconos\Contactos\16x16\TiposIVA_model.dcp" /> <DCCReference Include="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="uContactosViewRegister.pas" /> <DCCReference Include="uContactosViewRegister.pas" />
<DCCReference Include="uEditorAgente.pas"> <DCCReference Include="uEditorAgente.pas">
<Form>fEditorAgente</Form> <Form>fEditorAgente</Form>
@ -260,6 +253,10 @@
<Form>frViewContactos</Form> <Form>frViewContactos</Form>
<DesignClass>TCustomView</DesignClass> <DesignClass>TCustomView</DesignClass>
</DCCReference> </DCCReference>
<DCCReference Include="uViewDatosYSeleccionCentral.pas">
<Form>frViewDatosYSeleccionCentral</Form>
<DesignClass>TCustomView</DesignClass>
</DCCReference>
<DCCReference Include="uViewDatosYSeleccionCliente.pas"> <DCCReference Include="uViewDatosYSeleccionCliente.pas">
<Form>frViewDatosYSeleccionCliente</Form> <Form>frViewDatosYSeleccionCliente</Form>
<DesignClass>TFrame</DesignClass> <DesignClass>TFrame</DesignClass>
@ -300,6 +297,17 @@
<Form>frViewProveedores</Form> <Form>frViewProveedores</Form>
<DesignClass>TCustomView</DesignClass> <DesignClass>TCustomView</DesignClass>
</DCCReference> </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> </ItemGroup>
</Project> </Project>
<!-- EurekaLog First Line <!-- 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 inherited pgPaginas: TPageControl
Width = 864 Width = 864
Height = 614 Height = 614
ActivePage = pagDescuentos ActivePage = tabSucursales
ExplicitWidth = 864 ExplicitWidth = 864
ExplicitHeight = 614 ExplicitHeight = 614
inherited pagGeneral: TTabSheet inherited pagGeneral: TTabSheet
ExplicitLeft = 0
ExplicitTop = 0
ExplicitWidth = 856 ExplicitWidth = 856
ExplicitHeight = 586 ExplicitHeight = 586
inline frViewCliente1: TfrViewCliente inline frViewCliente1: TfrViewCliente
@ -173,20 +175,16 @@ inherited fEditorCliente: TfEditorCliente
ExplicitTop = 162 ExplicitTop = 162
end end
inherited Label1: TLabel inherited Label1: TLabel
Left = 484 Left = 586
Top = 418 Top = 418
Width = 269 ExplicitLeft = 586
ExplicitLeft = 484
ExplicitTop = 418 ExplicitTop = 418
ExplicitWidth = 269
end end
inherited Label2: TLabel inherited Label2: TLabel
Left = 484 Left = 586
Top = 321 Top = 321
Width = 271 ExplicitLeft = 586
ExplicitLeft = 484
ExplicitTop = 321 ExplicitTop = 321
ExplicitWidth = 271
end end
inherited PngSpeedButton4: TPngSpeedButton inherited PngSpeedButton4: TPngSpeedButton
Left = 794 Left = 794
@ -195,22 +193,22 @@ inherited fEditorCliente: TfEditorCliente
ExplicitTop = 366 ExplicitTop = 366
end end
inherited eCalle: TcxDBTextEdit inherited eCalle: TcxDBTextEdit
Top = 382 Top = 451
Style.LookAndFeel.SkinName = '' Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = '' StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = '' StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = '' StyleHot.LookAndFeel.SkinName = ''
ExplicitTop = 382 ExplicitTop = 451
ExplicitWidth = 246 ExplicitWidth = 246
Width = 246 Width = 246
end end
inherited cbProvincia: TcxDBComboBox inherited cbProvincia: TcxDBComboBox
Top = 409 Top = 478
Style.LookAndFeel.SkinName = '' Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = '' StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = '' StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = '' StyleHot.LookAndFeel.SkinName = ''
ExplicitTop = 409 ExplicitTop = 478
ExplicitWidth = 145 ExplicitWidth = 145
Width = 145 Width = 145
end end
@ -225,12 +223,12 @@ inherited fEditorCliente: TfEditorCliente
Width = 246 Width = 246
end end
inherited cbClienteBloqueado: TcxDBCheckBox inherited cbClienteBloqueado: TcxDBCheckBox
Top = 304 Top = 373
Style.LookAndFeel.SkinName = '' Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = '' StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = '' StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = '' StyleHot.LookAndFeel.SkinName = ''
ExplicitTop = 304 ExplicitTop = 373
ExplicitWidth = 356 ExplicitWidth = 356
Width = 356 Width = 356
end end
@ -245,12 +243,12 @@ inherited fEditorCliente: TfEditorCliente
Width = 246 Width = 246
end end
inherited eBloqueo: TcxDBTextEdit inherited eBloqueo: TcxDBTextEdit
Top = 331 Top = 400
Style.LookAndFeel.SkinName = '' Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = '' StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = '' StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = '' StyleHot.LookAndFeel.SkinName = ''
ExplicitTop = 331 ExplicitTop = 400
ExplicitWidth = 246 ExplicitWidth = 246
Width = 246 Width = 246
end end
@ -265,40 +263,39 @@ inherited fEditorCliente: TfEditorCliente
Width = 246 Width = 246
end end
inherited cbPoblacion: TcxDBComboBox inherited cbPoblacion: TcxDBComboBox
Top = 436 Top = 505
Style.LookAndFeel.SkinName = '' Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = '' StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = '' StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = '' StyleHot.LookAndFeel.SkinName = ''
ExplicitTop = 436 ExplicitTop = 505
ExplicitWidth = 246 ExplicitWidth = 246
Width = 246 Width = 246
end end
inherited eCodigoPostal: TcxDBTextEdit inherited eCodigoPostal: TcxDBTextEdit
Left = 391 Left = 493
Top = 409 Top = 478
Style.LookAndFeel.SkinName = '' Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = '' StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = '' StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = '' StyleHot.LookAndFeel.SkinName = ''
ExplicitLeft = 391 ExplicitLeft = 493
ExplicitTop = 409 ExplicitTop = 478
end end
inherited cbFelicitacion: TcxDBCheckBox inherited cbFelicitacion: TcxDBCheckBox
Left = 484 Left = 586
Top = 270 Top = 270
ExplicitLeft = 484 ExplicitLeft = 586
ExplicitTop = 270 ExplicitTop = 270
ExplicitWidth = 370
Width = 370
end end
inherited cxDBCheckBox1: TcxDBCheckBox inherited cxDBCheckBox1: TcxDBCheckBox
Left = 484 Left = 586
Top = 463 Top = 463
ExplicitLeft = 484 ExplicitLeft = 586
ExplicitTop = 463 ExplicitTop = 463
ExplicitWidth = 274 ExplicitWidth = 219
Width = 274 ExplicitHeight = 34
Width = 219
end end
inherited cbRapel: TcxDBCheckBox inherited cbRapel: TcxDBCheckBox
Top = 192 Top = 192
@ -307,142 +304,70 @@ inherited fEditorCliente: TfEditorCliente
Width = 308 Width = 308
end end
inherited eMailAdministracion: TcxDBHyperLinkEdit inherited eMailAdministracion: TcxDBHyperLinkEdit
Left = 596 Left = 698
Top = 366 Top = 366
Properties.Prefix = 'mailto:' Properties.Prefix = 'mailto:'
ExplicitLeft = 596 ExplicitLeft = 698
ExplicitTop = 366 ExplicitTop = 366
ExplicitWidth = 133
Width = 133
end end
inherited eObservaciones: TcxDBMemo inherited eObservaciones: TcxDBMemo
Top = 514 Top = 583
Style.LookAndFeel.SkinName = '' Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = '' StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = '' StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = '' StyleHot.LookAndFeel.SkinName = ''
ExplicitTop = 514 ExplicitTop = 583
ExplicitWidth = 656 ExplicitWidth = 656
ExplicitHeight = 87 ExplicitHeight = 87
Height = 87 Height = 87
Width = 656 Width = 656
end 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 inherited cbTipoCliente: TcxDBComboBox
Top = 165 Top = 165
ExplicitTop = 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 end
inherited cbSEPA: TcxDBCheckBox inherited cbSEPA: TcxDBCheckBox
Top = 219 Left = 274
ExplicitTop = 219 Top = 192
ExplicitLeft = 274
ExplicitTop = 192
ExplicitWidth = 481 ExplicitWidth = 481
Width = 481 Width = 481
end 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 inherited ePaginaWeb: TcxDBHyperLinkEdit
Left = 596 Left = 698
Top = 217 Top = 217
Style.LookAndFeel.SkinName = '' Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = '' StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = '' StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = '' StyleHot.LookAndFeel.SkinName = ''
ExplicitLeft = 596 ExplicitLeft = 698
ExplicitTop = 217 ExplicitTop = 217
ExplicitWidth = 148 ExplicitWidth = 148
Width = 148 Width = 148
@ -458,15 +383,111 @@ inherited fEditorCliente: TfEditorCliente
Width = 31 Width = 31
end end
inherited ePersonaContacto: TcxDBTextEdit inherited ePersonaContacto: TcxDBTextEdit
Top = 463 Top = 532
Style.LookAndFeel.SkinName = '' Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = '' StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = '' StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = '' StyleHot.LookAndFeel.SkinName = ''
ExplicitTop = 463 ExplicitTop = 532
ExplicitWidth = 246 ExplicitWidth = 246
Width = 246 Width = 246
end 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 end
inherited dsContacto: TDADataSource inherited dsContacto: TDADataSource
Left = 24 Left = 24
@ -484,23 +505,17 @@ inherited fEditorCliente: TfEditorCliente
inherited dxLayoutControl1: TdxLayoutControl inherited dxLayoutControl1: TdxLayoutControl
Width = 856 Width = 856
ExplicitWidth = 856 ExplicitWidth = 856
inherited eEntidad: TcxDBTextEdit
ExplicitWidth = 114
Width = 114
end
inherited eSucursal: TcxDBTextEdit inherited eSucursal: TcxDBTextEdit
Left = 528 Left = 334
ExplicitLeft = 528 ExplicitLeft = 334
ExplicitWidth = 112
Width = 112
end end
inherited eCuenta: TcxDBTextEdit inherited eCuenta: TcxDBTextEdit
ExplicitWidth = 194 Left = 614
Width = 194 ExplicitLeft = 614
end end
inherited eTitular: TcxDBTextEdit inherited eDC: TcxDBTextEdit
ExplicitWidth = 194 Left = 493
Width = 194 ExplicitLeft = 493
end end
end end
end end
@ -538,9 +553,7 @@ inherited fEditorCliente: TfEditorCliente
end end
inherited Bevel1: TBevel inherited Bevel1: TBevel
Top = 138 Top = 138
Width = 263
ExplicitTop = 138 ExplicitTop = 138
ExplicitWidth = 263
end end
inherited eDiasVencimiento1: TcxDBSpinEdit inherited eDiasVencimiento1: TcxDBSpinEdit
Left = 647 Left = 647
@ -635,8 +648,6 @@ inherited fEditorCliente: TfEditorCliente
inherited eAgente: TcxDBLookupComboBox inherited eAgente: TcxDBLookupComboBox
Top = 176 Top = 176
ExplicitTop = 176 ExplicitTop = 176
ExplicitWidth = 216
Width = 216
end end
end end
end end
@ -675,6 +686,18 @@ inherited fEditorCliente: TfEditorCliente
inherited ToolBar1: TToolBar inherited ToolBar1: TToolBar
Width = 856 Width = 856
ExplicitWidth = 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
end end
@ -707,6 +730,18 @@ inherited fEditorCliente: TfEditorCliente
inherited ToolBar1: TToolBar inherited ToolBar1: TToolBar
Width = 856 Width = 856
ExplicitWidth = 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
inline frViewClienteDescuentosArticulos1: TfrViewClienteDescuentosArticulos inline frViewClienteDescuentosArticulos1: TfrViewClienteDescuentosArticulos
@ -735,6 +770,18 @@ inherited fEditorCliente: TfEditorCliente
inherited ToolBar1: TToolBar inherited ToolBar1: TToolBar
Width = 856 Width = 856
ExplicitWidth = 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
end end
@ -771,6 +818,49 @@ inherited fEditorCliente: TfEditorCliente
end end
end 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 end
inherited StatusBar: TJvStatusBar inherited StatusBar: TJvStatusBar
Top = 696 Top = 696

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

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

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

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

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

@ -1,29 +1,29 @@
inherited frViewCliente: TfrViewCliente inherited frViewCliente: TfrViewCliente
Width = 958 Width = 951
Height = 698 Height = 698
OnCreate = CustomViewCreate OnCreate = CustomViewCreate
OnDestroy = CustomViewDestroy OnDestroy = CustomViewDestroy
ExplicitWidth = 958 ExplicitWidth = 951
ExplicitHeight = 698 ExplicitHeight = 698
inherited dxLayoutControlContacto: TdxLayoutControl inherited dxLayoutControlContacto: TdxLayoutControl
Width = 958 Width = 951
Height = 698 Height = 698
ExplicitWidth = 958 ExplicitWidth = 951
ExplicitHeight = 698 ExplicitHeight = 698
inherited PngSpeedButton1: TPngSpeedButton inherited PngSpeedButton1: TPngSpeedButton
Left = 913 Left = 906
ExplicitLeft = 913 ExplicitLeft = 906
end end
inherited PngSpeedButton2: TPngSpeedButton inherited PngSpeedButton2: TPngSpeedButton
Left = 913 Left = 906
ExplicitLeft = 913 ExplicitLeft = 906
end end
inherited PngSpeedButton3: TPngSpeedButton inherited PngSpeedButton3: TPngSpeedButton
Left = 913 Left = 906
ExplicitLeft = 913 ExplicitLeft = 906
end end
object Label1: TLabel [3] object Label1: TLabel [3]
Left = 552 Left = 531
Top = 440 Top = 440
Width = 269 Width = 269
Height = 39 Height = 39
@ -34,7 +34,7 @@ inherited frViewCliente: TfrViewCliente
WordWrap = True WordWrap = True
end end
object Label2: TLabel [4] object Label2: TLabel [4]
Left = 552 Left = 531
Top = 337 Top = 337
Width = 271 Width = 271
Height = 39 Height = 39
@ -46,7 +46,7 @@ inherited frViewCliente: TfrViewCliente
WordWrap = True WordWrap = True
end end
object PngSpeedButton4: TPngSpeedButton [5] object PngSpeedButton4: TPngSpeedButton [5]
Left = 913 Left = 906
Top = 382 Top = 382
Width = 23 Width = 23
Height = 22 Height = 22
@ -72,27 +72,27 @@ inherited frViewCliente: TfrViewCliente
end end
inherited eCalle: TcxDBTextEdit inherited eCalle: TcxDBTextEdit
Left = 132 Left = 132
Top = 404 Top = 467
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
Style.LookAndFeel.SkinName = '' Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = '' StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = '' StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = '' StyleHot.LookAndFeel.SkinName = ''
TabOrder = 12 TabOrder = 12
ExplicitLeft = 132 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 ExplicitWidth = 159
Width = 159 Width = 159
end end
@ -118,7 +118,7 @@ inherited frViewCliente: TfrViewCliente
end end
object cbClienteBloqueado: TcxDBCheckBox [9] object cbClienteBloqueado: TcxDBCheckBox [9]
Left = 22 Left = 22
Top = 320 Top = 383
Action = actBloqueoCliente Action = actBloqueoCliente
DataBinding.DataField = 'BLOQUEADO' DataBinding.DataField = 'BLOQUEADO'
DataBinding.DataSource = dsContacto DataBinding.DataSource = dsContacto
@ -137,7 +137,7 @@ inherited frViewCliente: TfrViewCliente
StyleFocused.LookAndFeel.NativeStyle = True StyleFocused.LookAndFeel.NativeStyle = True
StyleHot.LookAndFeel.Kind = lfStandard StyleHot.LookAndFeel.Kind = lfStandard
StyleHot.LookAndFeel.NativeStyle = True StyleHot.LookAndFeel.NativeStyle = True
TabOrder = 9 TabOrder = 10
Width = 370 Width = 370
end end
object cbGrupoCliente: TcxDBComboBox [10] object cbGrupoCliente: TcxDBComboBox [10]
@ -166,7 +166,7 @@ inherited frViewCliente: TfrViewCliente
end end
object eBloqueo: TcxDBTextEdit [11] object eBloqueo: TcxDBTextEdit [11]
Left = 132 Left = 132
Top = 347 Top = 410
DataBinding.DataField = 'MOTIVO_BLOQUEO' DataBinding.DataField = 'MOTIVO_BLOQUEO'
DataBinding.DataSource = dsContacto DataBinding.DataSource = dsContacto
Style.BorderColor = clWindowFrame Style.BorderColor = clWindowFrame
@ -180,8 +180,8 @@ inherited frViewCliente: TfrViewCliente
StyleFocused.LookAndFeel.NativeStyle = True StyleFocused.LookAndFeel.NativeStyle = True
StyleHot.LookAndFeel.Kind = lfStandard StyleHot.LookAndFeel.Kind = lfStandard
StyleHot.LookAndFeel.NativeStyle = True StyleHot.LookAndFeel.NativeStyle = True
TabOrder = 10 TabOrder = 11
Width = 260 Width = 197
end end
object eCodigoAsignado: TcxDBTextEdit [12] object eCodigoAsignado: TcxDBTextEdit [12]
Left = 132 Left = 132
@ -205,30 +205,30 @@ inherited frViewCliente: TfrViewCliente
end end
inherited cbPoblacion: TcxDBComboBox inherited cbPoblacion: TcxDBComboBox
Left = 132 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 = '' Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = '' StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = '' StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = '' StyleHot.LookAndFeel.SkinName = ''
TabOrder = 14 TabOrder = 14
ExplicitLeft = 132 ExplicitLeft = 436
ExplicitTop = 458 ExplicitTop = 494
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
end end
object cbFelicitacion: TcxDBCheckBox [15] object cbFelicitacion: TcxDBCheckBox [15]
Left = 552 Left = 531
Top = 280 Top = 280
Caption = 'Mandar felicitaci'#243'n navide'#241'a a este cliente' Caption = 'Mandar felicitaci'#243'n navide'#241'a a este cliente'
DataBinding.DataField = 'FELICITACION' DataBinding.DataField = 'FELICITACION'
@ -248,11 +248,11 @@ inherited frViewCliente: TfrViewCliente
StyleFocused.LookAndFeel.NativeStyle = True StyleFocused.LookAndFeel.NativeStyle = True
StyleHot.LookAndFeel.Kind = lfStandard StyleHot.LookAndFeel.Kind = lfStandard
StyleHot.LookAndFeel.NativeStyle = True StyleHot.LookAndFeel.NativeStyle = True
TabOrder = 23 TabOrder = 24
Width = 370 Width = 370
end end
object cxDBCheckBox1: TcxDBCheckBox [16] object cxDBCheckBox1: TcxDBCheckBox [16]
Left = 552 Left = 531
Top = 485 Top = 485
Caption = 'Permitir el acceso de este cliente a la tienda web' Caption = 'Permitir el acceso de este cliente a la tienda web'
DataBinding.DataField = 'TIENDA_WEB' DataBinding.DataField = 'TIENDA_WEB'
@ -273,11 +273,11 @@ inherited frViewCliente: TfrViewCliente
StyleFocused.LookAndFeel.NativeStyle = True StyleFocused.LookAndFeel.NativeStyle = True
StyleHot.LookAndFeel.Kind = lfStandard StyleHot.LookAndFeel.Kind = lfStandard
StyleHot.LookAndFeel.NativeStyle = True StyleHot.LookAndFeel.NativeStyle = True
TabOrder = 25 TabOrder = 26
Width = 274 Width = 266
end end
object cbRapel: TcxDBCheckBox [17] object cbRapel: TcxDBCheckBox [17]
Left = 22 Left = 132
Top = 190 Top = 190
Caption = 'Este cliente tiene rapel' Caption = 'Este cliente tiene rapel'
DataBinding.DataField = 'RAPEL' DataBinding.DataField = 'RAPEL'
@ -299,10 +299,10 @@ inherited frViewCliente: TfrViewCliente
StyleHot.LookAndFeel.NativeStyle = True StyleHot.LookAndFeel.NativeStyle = True
TabOrder = 7 TabOrder = 7
OnClick = actBloqueoClienteExecute OnClick = actBloqueoClienteExecute
Width = 308 Width = 148
end end
object eMailAdministracion: TcxDBHyperLinkEdit [18] object eMailAdministracion: TcxDBHyperLinkEdit [18]
Left = 664 Left = 643
Top = 382 Top = 382
DataBinding.DataField = 'EMAIL_ADMINISTRACION' DataBinding.DataField = 'EMAIL_ADMINISTRACION'
DataBinding.DataSource = dsContacto DataBinding.DataSource = dsContacto
@ -320,112 +320,23 @@ inherited frViewCliente: TfrViewCliente
StyleFocused.LookAndFeel.NativeStyle = True StyleFocused.LookAndFeel.NativeStyle = True
StyleHot.LookAndFeel.Kind = lfStandard StyleHot.LookAndFeel.Kind = lfStandard
StyleHot.LookAndFeel.NativeStyle = True StyleHot.LookAndFeel.NativeStyle = True
TabOrder = 24 TabOrder = 25
Width = 133 Width = 133
end end
inherited eObservaciones: TcxDBMemo inherited eObservaciones: TcxDBMemo
Top = 542 Top = 605
Style.LookAndFeel.SkinName = '' Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = '' StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = '' StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = '' StyleHot.LookAndFeel.SkinName = ''
TabOrder = 26 TabOrder = 27
ExplicitTop = 542 ExplicitTop = 605
ExplicitWidth = 733 ExplicitWidth = 733
ExplicitHeight = 69 ExplicitHeight = 69
Height = 69 Height = 69
Width = 733 Width = 733
end end
inherited eTlfParticular: TcxDBTextEdit object cbTipoCliente: TcxDBComboBox [20]
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]
Left = 132 Left = 132
Top = 163 Top = 163
DataBinding.DataField = 'TIPO_CLIENTE' DataBinding.DataField = 'TIPO_CLIENTE'
@ -449,42 +360,9 @@ inherited frViewCliente: TfrViewCliente
TabOrder = 6 TabOrder = 6
Width = 332 Width = 332
end end
inherited ePaginaWeb: TcxDBHyperLinkEdit object cbSEPA: TcxDBCheckBox [21]
Left = 664 Left = 306
Style.LookAndFeel.SkinName = '' Top = 190
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
Action = actBloqueoCliente Action = actBloqueoCliente
Caption = 'Este cliente ha aceptado SEPA' Caption = 'Este cliente ha aceptado SEPA'
DataBinding.DataField = 'SEPA' DataBinding.DataField = 'SEPA'
@ -505,7 +383,173 @@ inherited frViewCliente: TfrViewCliente
StyleHot.LookAndFeel.Kind = lfStandard StyleHot.LookAndFeel.Kind = lfStandard
StyleHot.LookAndFeel.NativeStyle = True StyleHot.LookAndFeel.NativeStyle = True
TabOrder = 8 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 end
inherited dxLayoutControlContactoGroup_Root: TdxLayoutGroup inherited dxLayoutControlContactoGroup_Root: TdxLayoutGroup
AutoAligns = [aaHorizontal] AutoAligns = [aaHorizontal]
@ -536,19 +580,38 @@ inherited frViewCliente: TfrViewCliente
Control = cbTipoCliente Control = cbTipoCliente
ControlOptions.ShowBorder = False ControlOptions.ShowBorder = False
end end
object dxLayoutControlContactoItem29: TdxLayoutItem object dxLayoutControlContactoGroup17: TdxLayoutGroup
Caption = 'New Item'
ShowCaption = False ShowCaption = False
Control = cbRapel Hidden = True
ControlOptions.ShowBorder = False 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 end
object dxLayoutControlContactoItem31: TdxLayoutItem end
ShowCaption = False object dxLayoutControlContactoGroup19: TdxLayoutGroup [1]
Control = cbSEPA AutoAligns = [aaVertical]
AlignHorz = ahClient
Caption = 'Sucursal principal'
object dxLayoutControlContactoItem32: TdxLayoutItem
Control = frViewDatosYSeleccionCentral1
ControlOptions.AutoColor = True
ControlOptions.ShowBorder = False ControlOptions.ShowBorder = False
end end
end end
object dxLayoutControlContactoGroup18: TdxLayoutGroup [1] object dxLayoutControlContactoGroup18: TdxLayoutGroup [2]
Caption = 'Bloqueo' Caption = 'Bloqueo'
object dxLayoutControlContactoItem26: TdxLayoutItem object dxLayoutControlContactoItem26: TdxLayoutItem
AutoAligns = [aaVertical] AutoAligns = [aaVertical]

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

@ -11,7 +11,8 @@ uses
dxLayoutControl, cxMemo, cxHyperLinkEdit, ImgList, ActnList, Buttons, dxLayoutControl, cxMemo, cxHyperLinkEdit, ImgList, ActnList, Buttons,
PngSpeedButton, PngImageList, cxGraphics, cxMaskEdit, cxDropDownEdit, PngSpeedButton, PngImageList, cxGraphics, cxMaskEdit, cxDropDownEdit,
cxLookupEdit, cxDBLookupEdit, cxDBLookupComboBox, uGruposClienteController, cxLookupEdit, cxDBLookupEdit, cxDBLookupComboBox, uGruposClienteController,
uTiposClienteController, cxCheckBox, cxSpinEdit, Grids, DBGrids, uDAInterfaces; uTiposClienteController, cxCheckBox, cxSpinEdit, Grids, DBGrids, uDAInterfaces,
uViewDatosYSeleccionClienteBase, uViewDatosYSeleccionCentral;
type type
IViewCliente = interface(IViewContacto) IViewCliente = interface(IViewContacto)
@ -48,6 +49,10 @@ type
cbTipoCliente: TcxDBComboBox; cbTipoCliente: TcxDBComboBox;
dxLayoutControlContactoItem31: TdxLayoutItem; dxLayoutControlContactoItem31: TdxLayoutItem;
cbSEPA: TcxDBCheckBox; cbSEPA: TcxDBCheckBox;
dxLayoutControlContactoGroup17: TdxLayoutGroup;
dxLayoutControlContactoGroup19: TdxLayoutGroup;
dxLayoutControlContactoItem32: TdxLayoutItem;
frViewDatosYSeleccionCentral1: TfrViewDatosYSeleccionCentral;
procedure cbGrupoClientePropertiesInitPopup(Sender: TObject); procedure cbGrupoClientePropertiesInitPopup(Sender: TObject);
procedure cbGrupoClientePropertiesValidate(Sender: TObject; procedure cbGrupoClientePropertiesValidate(Sender: TObject;
@ -65,6 +70,7 @@ type
procedure cbTipoClientePropertiesInitPopup(Sender: TObject); procedure cbTipoClientePropertiesInitPopup(Sender: TObject);
procedure cbTipoClientePropertiesValidate(Sender: TObject; procedure cbTipoClientePropertiesValidate(Sender: TObject;
var DisplayValue: Variant; var ErrorText: TCaption; var Error: Boolean); var DisplayValue: Variant; var ErrorText: TCaption; var Error: Boolean);
procedure OnCentralChanged(Sender: TObject);
protected protected
FGrupoController: IGruposClienteController; FGrupoController: IGruposClienteController;
FTipoController: ITiposClienteController; FTipoController: ITiposClienteController;
@ -222,11 +228,35 @@ begin
Application.MessageBox('El NIF/CIF introducido no es correcto', 'Atención', MB_OK); Application.MessageBox('El NIF/CIF introducido no es correcto', 'Atención', MB_OK);
end; 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); procedure TfrViewCliente.SetContacto(const Value: IBizContacto);
var
ACentral : IBizContacto;
begin begin
inherited; inherited;
if Assigned(FContacto) then if Assigned(FContacto) then
begin
eBloqueo.Enabled := cbClienteBloqueado.Checked; 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;
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 inherited frViewDatosYSeleccionCliente: TfrViewDatosYSeleccionCliente
Width = 350 Width = 665
Height = 212 Height = 271
ExplicitWidth = 350 ExplicitWidth = 665
ExplicitHeight = 212 ExplicitHeight = 271
object dxLayoutControl1: TdxLayoutControl object dxLayoutControl1: TdxLayoutControl
Left = 0 Left = 0
Top = 0 Top = 0
Width = 350 Width = 665
Height = 212 Height = 271
Margins.Left = 0 Margins.Left = 0
Margins.Top = 0 Margins.Top = 0
Margins.Right = 0 Margins.Right = 0
@ -17,9 +17,11 @@ inherited frViewDatosYSeleccionCliente: TfrViewDatosYSeleccionCliente
TabOrder = 0 TabOrder = 0
TabStop = False TabStop = False
AutoContentSizes = [acsWidth, acsHeight] AutoContentSizes = [acsWidth, acsHeight]
ExplicitWidth = 350
ExplicitHeight = 212
DesignSize = ( DesignSize = (
350 665
212) 271)
object edtlNombre: TcxDBTextEdit object edtlNombre: TcxDBTextEdit
Left = 64 Left = 64
Top = 41 Top = 41
@ -156,7 +158,7 @@ inherited frViewDatosYSeleccionCliente: TfrViewDatosYSeleccionCliente
Width = 327 Width = 327
end end
object edtCodigoPostal: TcxDBTextEdit object edtCodigoPostal: TcxDBTextEdit
Left = 258 Left = 573
Top = 122 Top = 122
Anchors = [akLeft, akTop, akRight] Anchors = [akLeft, akTop, akRight]
AutoSize = False AutoSize = False
@ -271,7 +273,7 @@ inherited frViewDatosYSeleccionCliente: TfrViewDatosYSeleccionCliente
FF00FF00FF00006000000060000000600000FF00FF00FF00FF00} FF00FF00FF00006000000060000000600000FF00FF00FF00FF00}
end end
object Button3: TBitBtn object Button3: TBitBtn
Left = 148 Left = 463
Top = 176 Top = 176
Width = 192 Width = 192
Height = 25 Height = 25

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

@ -80,7 +80,7 @@ type
procedure SetOnClienteChanged (const Value : TNotifyEvent); procedure SetOnClienteChanged (const Value : TNotifyEvent);
procedure SetReadOnly(Value: Boolean); override; procedure SetReadOnly(Value: Boolean); override;
function GetID_Cliente: integer; virtual; function GetID_Cliente: integer; virtual;
procedure SetID_Cliente(const Value: integer); virtual; procedure SetID_Cliente(const Value: integer); virtual;
procedure InicializarMensajes; virtual; procedure InicializarMensajes; virtual;
public 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"> <DelphiCompile Include="Obras_view.dpk">
<MainSource>MainSource</MainSource> <MainSource>MainSource</MainSource>
</DelphiCompile> </DelphiCompile>
<DCCReference Include="..\ApplicationBase.dcp" /> <DCCReference Include="C:\Documents and Settings\Usuario\ApplicationBase.dcp" />
<DCCReference Include="..\Base.dcp" /> <DCCReference Include="C:\Documents and Settings\Usuario\Base.dcp" />
<DCCReference Include="..\Contactos_controller.dcp" /> <DCCReference Include="C:\Documents and Settings\Usuario\Contactos_controller.dcp" />
<DCCReference Include="..\Contactos_model.dcp" /> <DCCReference Include="C:\Documents and Settings\Usuario\Contactos_model.dcp" />
<DCCReference Include="..\Contactos_view.dcp" /> <DCCReference Include="C:\Documents and Settings\Usuario\Contactos_view.dcp" />
<DCCReference Include="..\GUIBase.dcp" /> <DCCReference Include="C:\Documents and Settings\Usuario\GUIBase.dcp" />
<DCCReference Include="..\Obras_controller.dcp" /> <DCCReference Include="C:\Documents and Settings\Usuario\Obras_controller.dcp" />
<DCCReference Include="..\Obras_model.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> </ItemGroup>
</Project> </Project>
<!-- EurekaLog First Line <!-- 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', schEmpresasServer_Intf in '..\ApplicationBase\Empresas\Model\schEmpresasServer_Intf.pas',
srvFacturasProforma_Impl in '..\Modulos\Facturas proforma\Servidor\srvFacturasProforma_Impl.pas' {srvFacturasProforma: TDataAbstractService}, srvFacturasProforma_Impl in '..\Modulos\Facturas proforma\Servidor\srvFacturasProforma_Impl.pas' {srvFacturasProforma: TDataAbstractService},
uBizFacturasProformaServer in '..\Modulos\Facturas proforma\Model\uBizFacturasProformaServer.pas', 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}, uRptFacturasProforma_Server in '..\Modulos\Facturas proforma\Reports\uRptFacturasProforma_Server.pas' {RptFacturasProforma: TDataModule},
schFacturasProformaClient_Intf in '..\Modulos\Facturas proforma\Model\schFacturasProformaClient_Intf.pas', 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 *.res}
{$R ..\Servicios\RODLFile.res} {$R ..\Servicios\RODLFile.res}

2
Source/Servidor/FactuGES_Server.rc
View File

@ -14,7 +14,7 @@ BEGIN
BEGIN BEGIN
VALUE "FileVersion", "4.3.4.0\0" VALUE "FileVersion", "4.3.4.0\0"
VALUE "ProductVersion", "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
END END
BLOCK "VarFileInfo" BLOCK "VarFileInfo"