Acana_Interiorismo/FactuGES2
2
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Version 3.6.1, se mete en albaranes de cliente trabajos de instalador

Browse Source 
git-svn-id: https://192.168.0.254/svn/Proyectos.Acana_FactuGES2/trunk@686 f4e31baf-9722-1c47-927c-6f952f962d4b
This commit is contained in:
roberto 2022-08-25 08:03:35 +00:00
parent 482f6d8fb6
commit f115865f81
95 changed files with 3439 additions and 699 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

105
Source/Base/Base.dproj
View File

@ -44,6 +44,13 @@
<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\dclintraweb_90_100.bpl">VCL for the Web Design Package for CodeGear RAD Studio</Excluded_Packages> <Excluded_Packages Name="$(BDS)\Bin\dclintraweb_90_100.bpl">VCL for the Web Design Package for CodeGear RAD Studio</Excluded_Packages>
<Excluded_Packages Name="$(BDS)\bin\dclwebsnap100.bpl">CodeGear WebSnap Components</Excluded_Packages> <Excluded_Packages Name="$(BDS)\bin\dclwebsnap100.bpl">CodeGear WebSnap Components</Excluded_Packages>
<Excluded_Packages Name="$(BDS)\bin\dclsoap100.bpl">CodeGear SOAP Components</Excluded_Packages> <Excluded_Packages Name="$(BDS)\bin\dclsoap100.bpl">CodeGear SOAP Components</Excluded_Packages>
@ -58,55 +65,55 @@
<DelphiCompile Include="Base.dpk"> <DelphiCompile Include="Base.dpk">
<MainSource>MainSource</MainSource> <MainSource>MainSource</MainSource>
</DelphiCompile> </DelphiCompile>
<DCCReference Include="..\Modulos\Contactos\adortl.dcp" /> <DCCReference Include="..\Modulos\Albaranes de cliente\adortl.dcp" />
<DCCReference Include="..\Modulos\Contactos\cxDataD11.dcp" /> <DCCReference Include="..\Modulos\Albaranes de cliente\cxDataD11.dcp" />
<DCCReference Include="..\Modulos\Contactos\cxEditorsD11.dcp" /> <DCCReference Include="..\Modulos\Albaranes de cliente\cxEditorsD11.dcp" />
<DCCReference Include="..\Modulos\Contactos\cxExtEditorsD11.dcp" /> <DCCReference Include="..\Modulos\Albaranes de cliente\cxExtEditorsD11.dcp" />
<DCCReference Include="..\Modulos\Contactos\cxGridD11.dcp" /> <DCCReference Include="..\Modulos\Albaranes de cliente\cxGridD11.dcp" />
<DCCReference Include="..\Modulos\Contactos\cxLibraryD11.dcp" /> <DCCReference Include="..\Modulos\Albaranes de cliente\cxLibraryD11.dcp" />
<DCCReference Include="..\Modulos\Contactos\cxPageControlD11.dcp" /> <DCCReference Include="..\Modulos\Albaranes de cliente\cxPageControlD11.dcp" />
<DCCReference Include="..\Modulos\Contactos\DataAbstract_Core_D11.dcp" /> <DCCReference Include="..\Modulos\Albaranes de cliente\DataAbstract_Core_D11.dcp" />
<DCCReference Include="..\Modulos\Contactos\dbrtl.dcp" /> <DCCReference Include="..\Modulos\Albaranes de cliente\dbrtl.dcp" />
<DCCReference Include="..\Modulos\Contactos\dclIndyCore.dcp" /> <DCCReference Include="..\Modulos\Albaranes de cliente\dclIndyCore.dcp" />
<DCCReference Include="..\Modulos\Contactos\designide.dcp" /> <DCCReference Include="..\Modulos\Albaranes de cliente\designide.dcp" />
<DCCReference Include="..\Modulos\Contactos\dsnap.dcp" /> <DCCReference Include="..\Modulos\Albaranes de cliente\dsnap.dcp" />
<DCCReference Include="..\Modulos\Contactos\dxCoreD11.dcp" /> <DCCReference Include="..\Modulos\Albaranes de cliente\dxCoreD11.dcp" />
<DCCReference Include="..\Modulos\Contactos\dxGDIPlusD11.dcp" /> <DCCReference Include="..\Modulos\Albaranes de cliente\dxGDIPlusD11.dcp" />
<DCCReference Include="..\Modulos\Contactos\dxPSCoreD11.dcp" /> <DCCReference Include="..\Modulos\Albaranes de cliente\dxPSCoreD11.dcp" />
<DCCReference Include="..\Modulos\Contactos\dxThemeD11.dcp" /> <DCCReference Include="..\Modulos\Albaranes de cliente\dxThemeD11.dcp" />
<DCCReference Include="..\Modulos\Contactos\GUISDK_D11R.dcp" /> <DCCReference Include="..\Modulos\Albaranes de cliente\GUISDK_D11R.dcp" />
<DCCReference Include="..\Modulos\Contactos\IndyCore.dcp" /> <DCCReference Include="..\Modulos\Albaranes de cliente\IndyCore.dcp" />
<DCCReference Include="..\Modulos\Contactos\IndyProtocols.dcp" /> <DCCReference Include="..\Modulos\Albaranes de cliente\IndyProtocols.dcp" />
<DCCReference Include="..\Modulos\Contactos\IndySystem.dcp" /> <DCCReference Include="..\Modulos\Albaranes de cliente\IndySystem.dcp" />
<DCCReference Include="..\Modulos\Contactos\Jcl.dcp" /> <DCCReference Include="..\Modulos\Albaranes de cliente\Jcl.dcp" />
<DCCReference Include="..\Modulos\Contactos\JclVcl.dcp" /> <DCCReference Include="..\Modulos\Albaranes de cliente\JclVcl.dcp" />
<DCCReference Include="..\Modulos\Contactos\JSDialog100.dcp" /> <DCCReference Include="..\Modulos\Albaranes de cliente\JSDialog100.dcp" />
<DCCReference Include="..\Modulos\Contactos\JvCmpD11R.dcp" /> <DCCReference Include="..\Modulos\Albaranes de cliente\JvCmpD11R.dcp" />
<DCCReference Include="..\Modulos\Contactos\JvCoreD11R.dcp" /> <DCCReference Include="..\Modulos\Albaranes de cliente\JvCoreD11R.dcp" />
<DCCReference Include="..\Modulos\Contactos\JvCtrlsD11R.dcp" /> <DCCReference Include="..\Modulos\Albaranes de cliente\JvCtrlsD11R.dcp" />
<DCCReference Include="..\Modulos\Contactos\JvDlgsD11R.dcp" /> <DCCReference Include="..\Modulos\Albaranes de cliente\JvDlgsD11R.dcp" />
<DCCReference Include="..\Modulos\Contactos\JvMMD11R.dcp" /> <DCCReference Include="..\Modulos\Albaranes de cliente\JvMMD11R.dcp" />
<DCCReference Include="..\Modulos\Contactos\JvNetD11R.dcp" /> <DCCReference Include="..\Modulos\Albaranes de cliente\JvNetD11R.dcp" />
<DCCReference Include="..\Modulos\Contactos\JvPageCompsD11R.dcp" /> <DCCReference Include="..\Modulos\Albaranes de cliente\JvPageCompsD11R.dcp" />
<DCCReference Include="..\Modulos\Contactos\JvStdCtrlsD11R.dcp" /> <DCCReference Include="..\Modulos\Albaranes de cliente\JvStdCtrlsD11R.dcp" />
<DCCReference Include="..\Modulos\Contactos\JvSystemD11R.dcp" /> <DCCReference Include="..\Modulos\Albaranes de cliente\JvSystemD11R.dcp" />
<DCCReference Include="..\Modulos\Contactos\pckMD5.dcp" /> <DCCReference Include="..\Modulos\Albaranes de cliente\pckMD5.dcp" />
<DCCReference Include="..\Modulos\Contactos\pckUCDataConnector.dcp" /> <DCCReference Include="..\Modulos\Albaranes de cliente\pckUCDataConnector.dcp" />
<DCCReference Include="..\Modulos\Contactos\pckUserControl_RT.dcp" /> <DCCReference Include="..\Modulos\Albaranes de cliente\pckUserControl_RT.dcp" />
<DCCReference Include="..\Modulos\Contactos\PluginSDK_D11R.dcp" /> <DCCReference Include="..\Modulos\Albaranes de cliente\PluginSDK_D11R.dcp" />
<DCCReference Include="..\Modulos\Contactos\PngComponentsD10.dcp" /> <DCCReference Include="..\Modulos\Albaranes de cliente\PngComponentsD10.dcp" />
<DCCReference Include="..\Modulos\Contactos\PNG_D10.dcp" /> <DCCReference Include="..\Modulos\Albaranes de cliente\PNG_D10.dcp" />
<DCCReference Include="..\Modulos\Contactos\RemObjects_Core_D11.dcp" /> <DCCReference Include="..\Modulos\Albaranes de cliente\RemObjects_Core_D11.dcp" />
<DCCReference Include="..\Modulos\Contactos\rtl.dcp" /> <DCCReference Include="..\Modulos\Albaranes de cliente\rtl.dcp" />
<DCCReference Include="..\Modulos\Contactos\TB2k_D10.dcp" /> <DCCReference Include="..\Modulos\Albaranes de cliente\TB2k_D10.dcp" />
<DCCReference Include="..\Modulos\Contactos\tbx_d10.dcp" /> <DCCReference Include="..\Modulos\Albaranes de cliente\tbx_d10.dcp" />
<DCCReference Include="..\Modulos\Contactos\vcl.dcp" /> <DCCReference Include="..\Modulos\Albaranes de cliente\vcl.dcp" />
<DCCReference Include="..\Modulos\Contactos\vclactnband.dcp" /> <DCCReference Include="..\Modulos\Albaranes de cliente\vclactnband.dcp" />
<DCCReference Include="..\Modulos\Contactos\vcldb.dcp" /> <DCCReference Include="..\Modulos\Albaranes de cliente\vcldb.dcp" />
<DCCReference Include="..\Modulos\Contactos\vcljpg.dcp" /> <DCCReference Include="..\Modulos\Albaranes de cliente\vcljpg.dcp" />
<DCCReference Include="..\Modulos\Contactos\VclSmp.dcp" /> <DCCReference Include="..\Modulos\Albaranes de cliente\VclSmp.dcp" />
<DCCReference Include="..\Modulos\Contactos\vclx.dcp" /> <DCCReference Include="..\Modulos\Albaranes de cliente\vclx.dcp" />
<DCCReference Include="..\Modulos\Contactos\xmlrtl.dcp" /> <DCCReference Include="..\Modulos\Albaranes de cliente\xmlrtl.dcp" />
<DCCReference Include="..\Servicios\FactuGES_Intf.pas" /> <DCCReference Include="..\Servicios\FactuGES_Intf.pas" />
<DCCReference Include="Conexion\uConfigurarConexion.pas"> <DCCReference Include="Conexion\uConfigurarConexion.pas">
<Form>fConfigurarConexion</Form> <Form>fConfigurarConexion</Form>

3
Source/Cliente/FactuGES.dproj
View File

@ -52,7 +52,8 @@
<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">3</VersionInfo><VersionInfo Name="MinorVer">4</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">Rodax Software S.L.</VersionInfoKeys><VersionInfoKeys Name="FileDescription"></VersionInfoKeys><VersionInfoKeys Name="FileVersion">3.4.0.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">3.4.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><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">3</VersionInfo><VersionInfo Name="MinorVer">6</VersionInfo><VersionInfo Name="Release">1</VersionInfo><VersionInfo Name="Build">0</VersionInfo><VersionInfo Name="Debug">False</VersionInfo><VersionInfo Name="PreRelease">False</VersionInfo><VersionInfo Name="Special">False</VersionInfo><VersionInfo Name="Private">False</VersionInfo><VersionInfo Name="DLL">False</VersionInfo><VersionInfo Name="Locale">3082</VersionInfo><VersionInfo Name="CodePage">1252</VersionInfo></VersionInfo><VersionInfoKeys><VersionInfoKeys Name="CompanyName">Rodax Software S.L.</VersionInfoKeys><VersionInfoKeys Name="FileDescription"></VersionInfoKeys><VersionInfoKeys Name="FileVersion">3.6.1.0</VersionInfoKeys><VersionInfoKeys Name="InternalName">FactuGES</VersionInfoKeys><VersionInfoKeys Name="LegalCopyright"></VersionInfoKeys><VersionInfoKeys Name="LegalTrademarks"></VersionInfoKeys><VersionInfoKeys Name="OriginalFilename"></VersionInfoKeys><VersionInfoKeys Name="ProductName">FactuGES</VersionInfoKeys><VersionInfoKeys Name="ProductVersion">3.6.1.0</VersionInfoKeys><VersionInfoKeys Name="Comments"></VersionInfoKeys></VersionInfoKeys><Excluded_Packages>
<Excluded_Packages Name="C:\Documents and Settings\All Users\Documentos\RAD Studio\5.0\Bpl\dxPScxScheduler2LnkD11.bpl">File C:\Documents and Settings\All Users\Documentos\RAD Studio\5.0\Bpl\dxPScxScheduler2LnkD11.bpl not found</Excluded_Packages> <Excluded_Packages Name="C:\Documents and Settings\All Users\Documentos\RAD Studio\5.0\Bpl\dxPScxScheduler2LnkD11.bpl">File C:\Documents and Settings\All Users\Documentos\RAD Studio\5.0\Bpl\dxPScxScheduler2LnkD11.bpl not found</Excluded_Packages>
</Excluded_Packages><Source><Source Name="MainSource">FactuGES.dpr</Source></Source></Delphi.Personality><ModelSupport>False</ModelSupport></BorlandProject></BorlandProject> </Excluded_Packages><Source><Source Name="MainSource">FactuGES.dpr</Source></Source></Delphi.Personality><ModelSupport>False</ModelSupport></BorlandProject></BorlandProject>

8
Source/Cliente/FactuGES.rc
View File

@ -1,7 +1,7 @@
MAINICON ICON "C:\Codigo Acana\Resources\Iconos\Factuges.ico" MAINICON ICON "C:\Codigo Acana\Resources\Iconos\Factuges.ico"
1 VERSIONINFO 1 VERSIONINFO
FILEVERSION 3,4,0,0 FILEVERSION 3,6,1,0
PRODUCTVERSION 3,4,0,0 PRODUCTVERSION 3,6,1,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", "3.4.0.0\0" VALUE "FileVersion", "3.6.1.0\0"
VALUE "InternalName", "FactuGES\0" VALUE "InternalName", "FactuGES\0"
VALUE "ProductName", "FactuGES\0" VALUE "ProductName", "FactuGES\0"
VALUE "ProductVersion", "3.4.0.0\0" VALUE "ProductVersion", "3.6.1.0\0"
END END
END END
BLOCK "VarFileInfo" BLOCK "VarFileInfo"

BIN
Source/Cliente/FactuGES.res
View File

Binary file not shown.

56
Source/GUIBase/GUIBase.dproj
View File

@ -58,34 +58,34 @@
<DelphiCompile Include="GUIBase.dpk"> <DelphiCompile Include="GUIBase.dpk">
<MainSource>MainSource</MainSource> <MainSource>MainSource</MainSource>
</DelphiCompile> </DelphiCompile>
<DCCReference Include="C:\Documents and Settings\Usuario\Base.dcp" /> <DCCReference Include="..\Modulos\Albaranes de cliente\Base.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\ccpackD11.dcp" /> <DCCReference Include="..\Modulos\Albaranes de cliente\ccpackD11.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\cxDataD11.dcp" /> <DCCReference Include="..\Modulos\Albaranes de cliente\cxDataD11.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\cxEditorsD11.dcp" /> <DCCReference Include="..\Modulos\Albaranes de cliente\cxEditorsD11.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\cxExportD11.dcp" /> <DCCReference Include="..\Modulos\Albaranes de cliente\cxExportD11.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\cxLibraryD11.dcp" /> <DCCReference Include="..\Modulos\Albaranes de cliente\cxLibraryD11.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\dbrtl.dcp" /> <DCCReference Include="..\Modulos\Albaranes de cliente\dbrtl.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\dxGDIPlusD11.dcp" /> <DCCReference Include="..\Modulos\Albaranes de cliente\dxGDIPlusD11.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\dxLayoutControlD11.dcp" /> <DCCReference Include="..\Modulos\Albaranes de cliente\dxLayoutControlD11.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\dxPScxCommonD11.dcp" /> <DCCReference Include="..\Modulos\Albaranes de cliente\dxPScxCommonD11.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\dxPScxGrid6LnkD11.dcp" /> <DCCReference Include="..\Modulos\Albaranes de cliente\dxPScxGrid6LnkD11.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\dxThemeD11.dcp" /> <DCCReference Include="..\Modulos\Albaranes de cliente\dxThemeD11.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\frx11.dcp" /> <DCCReference Include="..\Modulos\Albaranes de cliente\frx11.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\frxe11.dcp" /> <DCCReference Include="..\Modulos\Albaranes de cliente\frxe11.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\fs11.dcp" /> <DCCReference Include="..\Modulos\Albaranes de cliente\fs11.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\JvAppFrmD11R.dcp" /> <DCCReference Include="..\Modulos\Albaranes de cliente\JvAppFrmD11R.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\JvCtrlsD11R.dcp" /> <DCCReference Include="..\Modulos\Albaranes de cliente\JvCtrlsD11R.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\JvGlobusD11R.dcp" /> <DCCReference Include="..\Modulos\Albaranes de cliente\JvGlobusD11R.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\PngComponentsD10.dcp" /> <DCCReference Include="..\Modulos\Albaranes de cliente\PngComponentsD10.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\PNG_D10.dcp" /> <DCCReference Include="..\Modulos\Albaranes de cliente\PNG_D10.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\rtl.dcp" /> <DCCReference Include="..\Modulos\Albaranes de cliente\rtl.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\tb2k_d10.dcp" /> <DCCReference Include="..\Modulos\Albaranes de cliente\tb2k_d10.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\tbx_d10.dcp" /> <DCCReference Include="..\Modulos\Albaranes de cliente\tbx_d10.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\vcl.dcp" /> <DCCReference Include="..\Modulos\Albaranes de cliente\vcl.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\vclactnband.dcp" /> <DCCReference Include="..\Modulos\Albaranes de cliente\vclactnband.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\vcldb.dcp" /> <DCCReference Include="..\Modulos\Albaranes de cliente\vcldb.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\vcljpg.dcp" /> <DCCReference Include="..\Modulos\Albaranes de cliente\vcljpg.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\vclx.dcp" /> <DCCReference Include="..\Modulos\Albaranes de cliente\vclx.dcp" />
<DCCReference Include="uDialogBase.pas"> <DCCReference Include="uDialogBase.pas">
<Form>fDialogBase</Form> <Form>fDialogBase</Form>
</DCCReference> </DCCReference>

2
Source/GUIBase/uEditorDBBase.dfm
View File

@ -5,7 +5,7 @@ inherited fEditorDBBase: TfEditorDBBase
ClientHeight = 454 ClientHeight = 454
ClientWidth = 646 ClientWidth = 646
ExplicitWidth = 654 ExplicitWidth = 654
ExplicitHeight = 488 ExplicitHeight = 492
PixelsPerInch = 96 PixelsPerInch = 96
TextHeight = 13 TextHeight = 13
inherited JvNavPanelHeader: TJvNavPanelHeader inherited JvNavPanelHeader: TJvNavPanelHeader

3
Source/GUIBase/uEditorDBItem.dfm
View File

@ -83,8 +83,6 @@ inherited fEditorDBItem: TfEditorDBItem
ActivePage = pagGeneral ActivePage = pagGeneral
Align = alClient Align = alClient
TabOrder = 2 TabOrder = 2
ExplicitTop = 118
ExplicitHeight = 319
object pagGeneral: TTabSheet object pagGeneral: TTabSheet
Caption = 'General' Caption = 'General'
ExplicitLeft = 0 ExplicitLeft = 0
@ -105,7 +103,6 @@ inherited fEditorDBItem: TfEditorDBItem
ParentBackground = False ParentBackground = False
TabOrder = 4 TabOrder = 4
VerticalAlignment = taAlignTop VerticalAlignment = taAlignTop
ExplicitTop = 85
object lbComentario: TLabel object lbComentario: TLabel
AlignWithMargins = True AlignWithMargins = True
Left = 6 Left = 6

15
Source/GUIBase/uEditorGridBase.dfm
View File

@ -104,7 +104,7 @@ inherited fEditorGridBase: TfEditorGridBase
Caption = 'Filtrar:' Caption = 'Filtrar:'
end end
object tbxEditFiltro: TTBXEditItem object tbxEditFiltro: TTBXEditItem
EditWidth = 200 EditWidth = 125
ImageIndex = 10 ImageIndex = 10
EditorFontSettings.Italic = tsTrue EditorFontSettings.Italic = tsTrue
ExtendedAccept = True ExtendedAccept = True
@ -112,6 +112,17 @@ inherited fEditorGridBase: TfEditorGridBase
ShowImage = True ShowImage = True
OnChange = tbxEditFiltroChange OnChange = tbxEditFiltroChange
end end
object tbxEditFiltro2: TTBXEditItem
EditWidth = 125
Enabled = False
ImageIndex = 10
Visible = False
EditorFontSettings.Italic = tsTrue
ExtendedAccept = True
Images = SmallImages
ShowImage = True
OnChange = tbxEditFiltro2Change
end
object TBXItem34: TTBXItem object TBXItem34: TTBXItem
Action = actQuitarFiltro Action = actQuitarFiltro
end end
@ -168,7 +179,7 @@ inherited fEditorGridBase: TfEditorGridBase
end end
end end
object TBXTMain2: TTBXToolbar object TBXTMain2: TTBXToolbar
Left = 337 Left = 334
Top = 49 Top = 49
Caption = 'tbxMain' Caption = 'tbxMain'
ChevronHint = 'M'#225's botones|' ChevronHint = 'M'#225's botones|'

26
Source/GUIBase/uEditorGridBase.pas
View File

@ -67,7 +67,9 @@ type
lblAno: TTBXLabelItem; lblAno: TTBXLabelItem;
cbxListaAnos: TTBXComboBoxItem; cbxListaAnos: TTBXComboBoxItem;
sepAno: TTBXSeparatorItem; sepAno: TTBXSeparatorItem;
tbxEditFiltro2: TTBXEditItem;
procedure tbxEditFiltroChange(Sender: TObject; const Text: String); procedure tbxEditFiltroChange(Sender: TObject; const Text: String);
procedure tbxEditFiltro2Change(Sender: TObject; const Text: string);
procedure FormShow(Sender: TObject); procedure FormShow(Sender: TObject);
procedure actQuitarFiltroExecute(Sender: TObject); procedure actQuitarFiltroExecute(Sender: TObject);
procedure actDuplicarUpdate(Sender: TObject); procedure actDuplicarUpdate(Sender: TObject);
@ -81,6 +83,7 @@ type
procedure CustomEditorDestroy(Sender: TObject); procedure CustomEditorDestroy(Sender: TObject);
procedure actExportarExcelExecute(Sender: TObject); procedure actExportarExcelExecute(Sender: TObject);
procedure actExportarExcelUpdate(Sender: TObject); procedure actExportarExcelUpdate(Sender: TObject);
protected protected
FListaAnos: TStringList; FListaAnos: TStringList;
FViewGrid : IViewGridBase; FViewGrid : IViewGridBase;
@ -224,6 +227,18 @@ begin
end; end;
end; end;
procedure TfEditorGridBase.tbxEditFiltro2Change(Sender: TObject;
const Text: string);
begin
if Assigned(ViewGrid) then
begin
if Length(Text) > 0 then
ViewGrid.Filter2 := Text
else
actQuitarFiltro.Execute;
end;
end;
procedure TfEditorGridBase.tbxEditFiltroChange(Sender: TObject; const Text: String); procedure TfEditorGridBase.tbxEditFiltroChange(Sender: TObject; const Text: String);
begin begin
if Assigned(ViewGrid) then if Assigned(ViewGrid) then
@ -244,7 +259,7 @@ begin
ViewGrid.RestoreFromIniFile; ViewGrid.RestoreFromIniFile;
end; end;
cbxListaAnos.ItemIndex := 0; cbxListaAnos.ItemIndex := 0;
end; end;
procedure TfEditorGridBase.actEliminarUpdate(Sender: TObject); procedure TfEditorGridBase.actEliminarUpdate(Sender: TObject);
@ -281,6 +296,7 @@ begin
if ViewGrid.ViewFiltros.VerFiltros then if ViewGrid.ViewFiltros.VerFiltros then
begin begin
tbxEditFiltro.Visible := False; tbxEditFiltro.Visible := False;
tbxEditFiltro2.Visible := False;
TBXItem7.Visible := False; TBXItem7.Visible := False;
end end
else else
@ -288,6 +304,12 @@ begin
tbxEditFiltro.Text := ''; tbxEditFiltro.Text := '';
tbxEditFiltro.Visible := True; tbxEditFiltro.Visible := True;
TBXItem7.Visible := True; TBXItem7.Visible := True;
if (tbxEditFiltro2.Enabled) then
begin
tbxEditFiltro2.Text := '';
tbxEditFiltro2.Visible := True;
end;
end; end;
end; end;
@ -326,6 +348,8 @@ begin
begin begin
tbxEditFiltro.Text := ''; tbxEditFiltro.Text := '';
ViewGrid.Filter := ''; ViewGrid.Filter := '';
tbxEditFiltro2.Text := '';
ViewGrid.Filter2 := '';
end; end;
end; end;

75
Source/GUIBase/uViewFiltroBase.dfm
View File

@ -1,9 +1,9 @@
inherited frViewFiltroBase: TfrViewFiltroBase inherited frViewFiltroBase: TfrViewFiltroBase
Width = 565 Width = 671
Height = 102 Height = 105
Visible = False Visible = False
ExplicitWidth = 565 ExplicitWidth = 671
ExplicitHeight = 102 ExplicitHeight = 105
object TBXDockablePanel1: TTBXDockablePanel object TBXDockablePanel1: TTBXDockablePanel
Left = 0 Left = 0
Top = 0 Top = 0
@ -22,8 +22,8 @@ inherited frViewFiltroBase: TfrViewFiltroBase
object dxLayoutControl1: TdxLayoutControl object dxLayoutControl1: TdxLayoutControl
Left = 0 Left = 0
Top = 0 Top = 0
Width = 565 Width = 671
Height = 68 Height = 70
Align = alTop Align = alTop
ParentBackground = True ParentBackground = True
TabOrder = 0 TabOrder = 0
@ -49,7 +49,7 @@ inherited frViewFiltroBase: TfrViewFiltroBase
StyleHot.LookAndFeel.NativeStyle = True StyleHot.LookAndFeel.NativeStyle = True
StyleHot.LookAndFeel.SkinName = '' StyleHot.LookAndFeel.SkinName = ''
TabOrder = 0 TabOrder = 0
Width = 273 Width = 250
end end
object edtFechaIniFiltro: TcxDateEdit object edtFechaIniFiltro: TcxDateEdit
Left = 87 Left = 87
@ -72,11 +72,11 @@ inherited frViewFiltroBase: TfrViewFiltroBase
StyleHot.LookAndFeel.Kind = lfStandard StyleHot.LookAndFeel.Kind = lfStandard
StyleHot.LookAndFeel.NativeStyle = True StyleHot.LookAndFeel.NativeStyle = True
StyleHot.LookAndFeel.SkinName = '' StyleHot.LookAndFeel.SkinName = ''
TabOrder = 1 TabOrder = 2
Width = 121 Width = 250
end end
object edtFechaFinFiltro: TcxDateEdit object edtFechaFinFiltro: TcxDateEdit
Left = 350 Left = 386
Top = 37 Top = 37
Properties.OnChange = OnCamposFiltroChange Properties.OnChange = OnCamposFiltroChange
Style.BorderColor = clWindowFrame Style.BorderColor = clWindowFrame
@ -96,17 +96,54 @@ inherited frViewFiltroBase: TfrViewFiltroBase
StyleHot.LookAndFeel.Kind = lfStandard StyleHot.LookAndFeel.Kind = lfStandard
StyleHot.LookAndFeel.NativeStyle = True StyleHot.LookAndFeel.NativeStyle = True
StyleHot.LookAndFeel.SkinName = '' StyleHot.LookAndFeel.SkinName = ''
TabOrder = 2 TabOrder = 3
Width = 121 Width = 250
end
object txtFiltroTodo2: TcxTextEdit
Left = 386
Top = 10
Properties.OnChange = OnCamposFiltroChange
Style.BorderColor = clWindowFrame
Style.BorderStyle = ebs3D
Style.HotTrack = False
Style.LookAndFeel.Kind = lfStandard
Style.LookAndFeel.NativeStyle = True
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.Kind = lfStandard
StyleDisabled.LookAndFeel.NativeStyle = True
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.Kind = lfStandard
StyleFocused.LookAndFeel.NativeStyle = True
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.Kind = lfStandard
StyleHot.LookAndFeel.NativeStyle = True
StyleHot.LookAndFeel.SkinName = ''
TabOrder = 1
Width = 250
end end
object dxLayoutControl1Group_Root: TdxLayoutGroup object dxLayoutControl1Group_Root: TdxLayoutGroup
ShowCaption = False ShowCaption = False
Hidden = True Hidden = True
ShowBorder = False ShowBorder = False
object dxLayoutControl1Item1: TdxLayoutItem object dxLayoutControl1Group2: TdxLayoutGroup
Caption = 'Que contenga:' ShowCaption = False
Control = txtFiltroTodo Hidden = True
ControlOptions.ShowBorder = False LayoutDirection = ldHorizontal
ShowBorder = False
object dxLayoutControl1Item1: TdxLayoutItem
AutoAligns = [aaVertical]
AlignHorz = ahClient
Caption = 'Que contenga:'
Control = txtFiltroTodo
ControlOptions.ShowBorder = False
end
object dxLayoutControl1Item4: TdxLayoutItem
AutoAligns = [aaVertical]
AlignHorz = ahClient
Caption = 'y'
Control = txtFiltroTodo2
ControlOptions.ShowBorder = False
end
end end
object dxLayoutControl1Group1: TdxLayoutGroup object dxLayoutControl1Group1: TdxLayoutGroup
ShowCaption = False ShowCaption = False
@ -132,8 +169,8 @@ inherited frViewFiltroBase: TfrViewFiltroBase
end end
object TBXAlignmentPanel1: TTBXAlignmentPanel object TBXAlignmentPanel1: TTBXAlignmentPanel
Left = 0 Left = 0
Top = 68 Top = 70
Width = 565 Width = 671
Height = 30 Height = 30
Margins.Left = 10 Margins.Left = 10
Align = alTop Align = alTop
@ -141,7 +178,7 @@ inherited frViewFiltroBase: TfrViewFiltroBase
object tbxBotones: TTBXToolbar object tbxBotones: TTBXToolbar
Left = 10 Left = 10
Top = 0 Top = 0
Width = 555 Width = 661
Height = 30 Height = 30
Align = alTop Align = alTop
AutoResize = False AutoResize = False

21
Source/GUIBase/uViewFiltroBase.pas
View File

@ -24,6 +24,10 @@ type
function GetTexto: String; function GetTexto: String;
procedure SetTexto(const Value: String); procedure SetTexto(const Value: String);
property Texto: String read GetTexto write SetTexto; property Texto: String read GetTexto write SetTexto;
function GetTexto2: String;
procedure SetTexto2(const Value: String);
property Texto2: String read GetTexto2 write SetTexto2;
end; end;
TfrViewFiltroBase = class(TfrViewBase, IViewFiltroBase) TfrViewFiltroBase = class(TfrViewBase, IViewFiltroBase)
@ -44,6 +48,9 @@ type
tbxBotones: TTBXToolbar; tbxBotones: TTBXToolbar;
TBXItem2: TTBXItem; TBXItem2: TTBXItem;
TBXAlignmentPanel1: TTBXAlignmentPanel; TBXAlignmentPanel1: TTBXAlignmentPanel;
dxLayoutControl1Item4: TdxLayoutItem;
txtFiltroTodo2: TcxTextEdit;
dxLayoutControl1Group2: TdxLayoutGroup;
procedure OnCamposFiltroChange(Sender: TObject); procedure OnCamposFiltroChange(Sender: TObject);
procedure actQuitarFiltroExecute(Sender: TObject); procedure actQuitarFiltroExecute(Sender: TObject);
@ -56,6 +63,8 @@ type
procedure SetVerFiltros(const Value: Boolean); procedure SetVerFiltros(const Value: Boolean);
function GetTexto: String; function GetTexto: String;
procedure SetTexto(const Value: String); procedure SetTexto(const Value: String);
function GetTexto2: String;
procedure SetTexto2(const Value: String);
protected protected
procedure LimpiarCampos; virtual; procedure LimpiarCampos; virtual;
@ -67,6 +76,7 @@ type
property OnFiltrosChange: TNotifyEvent read GetFiltrosChange write SetFiltrosChange; property OnFiltrosChange: TNotifyEvent read GetFiltrosChange write SetFiltrosChange;
property VerFiltros: Boolean read GetVerFiltros write SetVerFiltros; property VerFiltros: Boolean read GetVerFiltros write SetVerFiltros;
property Texto: String read GetTexto write SetTexto; property Texto: String read GetTexto write SetTexto;
property Texto2: String read GetTexto2 write SetTexto2;
end; end;
implementation implementation
@ -106,6 +116,7 @@ end;
procedure TfrViewFiltroBase.LimpiarCampos; procedure TfrViewFiltroBase.LimpiarCampos;
begin begin
txtFiltroTodo.Clear; txtFiltroTodo.Clear;
txtFiltroTodo2.Clear;
edtFechaIniFiltro.Clear; edtFechaIniFiltro.Clear;
edtFechaFinFiltro.Clear; edtFechaFinFiltro.Clear;
end; end;
@ -144,9 +155,19 @@ begin
Result := txtFiltroTodo.Text; Result := txtFiltroTodo.Text;
end; end;
function TfrViewFiltroBase.GetTexto2: String;
begin
Result := txtFiltroTodo2.Text;
end;
procedure TfrViewFiltroBase.SetTexto(const Value: String); procedure TfrViewFiltroBase.SetTexto(const Value: String);
begin begin
txtFiltroTodo.Text := Value; txtFiltroTodo.Text := Value;
end; end;
procedure TfrViewFiltroBase.SetTexto2(const Value: String);
begin
txtFiltroTodo2.Text := Value;
end;
end. end.

62
Source/GUIBase/uViewGrid.dfm
View File

@ -9,6 +9,12 @@ inherited frViewGrid: TfrViewGrid
Width = 554 Width = 554
Height = 466 Height = 466
Align = alClient Align = alClient
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'Tahoma'
Font.Style = []
ParentFont = False
TabOrder = 0 TabOrder = 0
LookAndFeel.Kind = lfOffice11 LookAndFeel.Kind = lfOffice11
LookAndFeel.NativeStyle = True LookAndFeel.NativeStyle = True
@ -35,6 +41,7 @@ inherited frViewGrid: TfrViewGrid
OptionsView.NoDataToDisplayInfoText = '<No hay datos a visualizar>' OptionsView.NoDataToDisplayInfoText = '<No hay datos a visualizar>'
OptionsView.CellAutoHeight = True OptionsView.CellAutoHeight = True
OptionsView.ColumnAutoWidth = True OptionsView.ColumnAutoWidth = True
OptionsView.DataRowHeight = 22
OptionsView.Footer = True OptionsView.Footer = True
OptionsView.GridLineColor = cl3DLight OptionsView.GridLineColor = cl3DLight
OptionsView.GridLines = glHorizontal OptionsView.GridLines = glHorizontal
@ -45,10 +52,11 @@ inherited frViewGrid: TfrViewGrid
object cxGridViewICONO: TcxGridDBColumn object cxGridViewICONO: TcxGridDBColumn
Caption = 'Icono' Caption = 'Icono'
OnCustomDrawCell = cxGridViewICONOCustomDrawCell OnCustomDrawCell = cxGridViewICONOCustomDrawCell
BestFitMaxWidth = 18 BestFitMaxWidth = 22
MinWidth = 18 MinWidth = 22
Options.HorzSizing = False
Options.Sorting = False Options.Sorting = False
Width = 18 Width = 22
OnCustomDrawHeader = cxGridViewICONOCustomDrawHeader OnCustomDrawHeader = cxGridViewICONOCustomDrawHeader
end end
end end
@ -72,6 +80,7 @@ inherited frViewGrid: TfrViewGrid
Visible = False Visible = False
ReadOnly = False ReadOnly = False
ExplicitWidth = 554 ExplicitWidth = 554
ExplicitHeight = 102
inherited TBXDockablePanel1: TTBXDockablePanel inherited TBXDockablePanel1: TTBXDockablePanel
ExplicitWidth = 554 ExplicitWidth = 554
ExplicitHeight = 102 ExplicitHeight = 102
@ -79,18 +88,47 @@ inherited frViewGrid: TfrViewGrid
Width = 554 Width = 554
ExplicitWidth = 554 ExplicitWidth = 554
inherited txtFiltroTodo: TcxTextEdit inherited txtFiltroTodo: TcxTextEdit
ExplicitWidth = 457 Style.LookAndFeel.SkinName = ''
Width = 457 StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitWidth = 250
Width = 250
end end
inherited edtFechaIniFiltro: TcxDateEdit inherited edtFechaIniFiltro: TcxDateEdit
ExplicitWidth = 240 Style.LookAndFeel.SkinName = ''
Width = 240 StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitWidth = 250
Width = 250
end end
inherited edtFechaFinFiltro: TcxDateEdit inherited edtFechaFinFiltro: TcxDateEdit
Left = 344 Left = 321
ExplicitLeft = 344 Style.LookAndFeel.SkinName = ''
ExplicitWidth = 200 StyleDisabled.LookAndFeel.SkinName = ''
Width = 200 StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitLeft = 321
ExplicitWidth = 250
Width = 250
end
inherited txtFiltroTodo2: TcxTextEdit
Left = 321
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitLeft = 321
ExplicitWidth = 250
Width = 250
end
inherited dxLayoutControl1Group_Root: TdxLayoutGroup
inherited dxLayoutControl1Group2: TdxLayoutGroup
inherited dxLayoutControl1Item4: TdxLayoutItem
Visible = False
end
end
end end
end end
inherited TBXAlignmentPanel1: TTBXAlignmentPanel inherited TBXAlignmentPanel1: TTBXAlignmentPanel
@ -162,7 +200,7 @@ inherited frViewGrid: TfrViewGrid
PrinterPage.ScaleMode = smFit PrinterPage.ScaleMode = smFit
PrinterPage._dxMeasurementUnits_ = 0 PrinterPage._dxMeasurementUnits_ = 0
PrinterPage._dxLastMU_ = 2 PrinterPage._dxLastMU_ = 2
ReportDocument.CreationDate = 42772.762583020830000000 ReportDocument.CreationDate = 44649.770773101850000000
StyleManager = dmBase.dxPrintStyleManager1 StyleManager = dmBase.dxPrintStyleManager1
OptionsCards.Shadow.Depth = 0 OptionsCards.Shadow.Depth = 0
OptionsExpanding.ExpandGroupRows = True OptionsExpanding.ExpandGroupRows = True

108
Source/GUIBase/uViewGridBase.pas
View File

@ -65,6 +65,10 @@ type
function GetFilter: string; function GetFilter: string;
property Filter: string read GetFilter write SetFilter; property Filter: string read GetFilter write SetFilter;
procedure SetFilter2(const Value: string);
function GetFilter2: string;
property Filter2: string read GetFilter2 write SetFilter2;
function GetFiltered: Boolean; function GetFiltered: Boolean;
property Filtered : Boolean read GetFiltered; property Filtered : Boolean read GetFiltered;
@ -87,9 +91,11 @@ type
private private
FViewFiltros: IViewFiltroBase; FViewFiltros: IViewFiltroBase;
FFilter: string; FFilter: string;
FFilter2: string;
FOnFilterChanged : TNotifyEvent; FOnFilterChanged : TNotifyEvent;
FGridStatus : TcxGridStatus; FGridStatus : TcxGridStatus;
procedure BestFitAllColumns; procedure BestFitAllColumns;
protected protected
FOnDblClick: TNotifyEvent; FOnDblClick: TNotifyEvent;
FPopupMenu: TPopupMenu; FPopupMenu: TPopupMenu;
@ -105,13 +111,16 @@ type
function getNumSeleccionados: Integer; function getNumSeleccionados: Integer;
procedure SetFilter(const Value: string); virtual; procedure SetFilter(const Value: string); virtual;
procedure SetFilter2(const Value: string); virtual;
procedure RefrescarFiltro; procedure RefrescarFiltro;
function GetFilter: string; virtual; function GetFilter: string; virtual;
function GetFilter2: string; virtual;
function GetFiltered: Boolean; virtual; function GetFiltered: Boolean; virtual;
procedure FiltrarGrid(TextoFiltro : String); virtual;
function GetViewFiltros: IViewFiltroBase; function GetViewFiltros: IViewFiltroBase;
procedure SetViewFiltros(const Value: IViewFiltroBase); virtual; procedure SetViewFiltros(const Value: IViewFiltroBase); virtual;
procedure FilterChanged(Sender : TObject); virtual; procedure FilterChanged(Sender : TObject); virtual;
procedure FiltrarGrid(TextoFiltro1, TextoFiltro2: String); overload; virtual;
procedure FiltrarGrid(TextoFiltro : String); overload; virtual;
public public
constructor Create(AOwner: TComponent); override; constructor Create(AOwner: TComponent); override;
@ -142,12 +151,14 @@ type
procedure RestoreFromRegistry (const Path : String); virtual; procedure RestoreFromRegistry (const Path : String); virtual;
procedure RestoreFromIniFile; procedure RestoreFromIniFile;
procedure ConfigView; virtual;
procedure StoreToIniFile; procedure StoreToIniFile;
{function Locate(const AItemIndex: Integer; const AValue: String; {function Locate(const AItemIndex: Integer; const AValue: String;
const APartialCompare: Boolean = False) : Boolean;} const APartialCompare: Boolean = False) : Boolean;}
property Filter: string read GetFilter write SetFilter; property Filter: string read GetFilter write SetFilter;
property Filter2: string read GetFilter2 write SetFilter2;
property Filtered : Boolean read GetFiltered; property Filtered : Boolean read GetFiltered;
procedure AnadirOtrosFiltros; virtual; procedure AnadirOtrosFiltros; virtual;
@ -187,7 +198,6 @@ begin
_FocusedView.BeginUpdate; _FocusedView.BeginUpdate;
try try
AsignarAnchosPrefijadosAColumnas(_FocusedView);
for i := 0 to _FocusedView.VisibleColumnCount-1 do for i := 0 to _FocusedView.VisibleColumnCount-1 do
begin begin
_FocusedView.VisibleColumns[i].ApplyBestFit; _FocusedView.VisibleColumns[i].ApplyBestFit;
@ -215,6 +225,11 @@ begin
// //
end; end;
procedure TfrViewGridBase.ConfigView;
begin
//
end;
procedure TfrViewGridBase.ContraerTodo; procedure TfrViewGridBase.ContraerTodo;
begin begin
if Assigned(_FocusedView) then if Assigned(_FocusedView) then
@ -225,6 +240,7 @@ constructor TfrViewGridBase.Create(AOwner: TComponent);
begin begin
inherited; inherited;
FFilter := ''; FFilter := '';
FFilter2 := '';
FOnFilterChanged := FilterChanged; FOnFilterChanged := FilterChanged;
FPopupMenu := nil; FPopupMenu := nil;
FOnDblClick := nil; FOnDblClick := nil;
@ -261,6 +277,11 @@ begin
Result := FFilter; Result := FFilter;
end; end;
function TfrViewGridBase.GetFilter2: string;
begin
Result := FFilter2;
end;
function TfrViewGridBase.GetFiltered: Boolean; function TfrViewGridBase.GetFiltered: Boolean;
begin begin
//Los niveles de los grid no se consideran filtros //Los niveles de los grid no se consideran filtros
@ -333,7 +354,10 @@ procedure TfrViewGridBase.RefrescarFiltro;
begin begin
//De esta forma obligaremos a que se creen nuevamente todos los filtros, cuando llamemos a este metodo //De esta forma obligaremos a que se creen nuevamente todos los filtros, cuando llamemos a este metodo
if Assigned(ViewFiltros) then if Assigned(ViewFiltros) then
begin
Filter := ViewFiltros.Texto; Filter := ViewFiltros.Texto;
Filter2 := ViewFiltros.Texto2;
end;
end; end;
procedure TfrViewGridBase.RestoreFromIniFile; procedure TfrViewGridBase.RestoreFromIniFile;
@ -343,9 +367,8 @@ begin
inherited; inherited;
if Assigned(_FocusedView) then if Assigned(_FocusedView) then
begin begin
// AjustarAncho; <- No activar porque pisa los anchos que ha puesto el usuario.
AIniFile := GetSpecialFolderPath(CSIDL_APPDATA); //[Current Users]\Application Data AIniFile := GetSpecialFolderPath(CSIDL_APPDATA); //[All Users]\Application Data
AIniFile := AIniFile + PathDelim + 'Rodax Software' + PathDelim + GetAppName + PathDelim; AIniFile := AIniFile + PathDelim + 'Rodax Software' + PathDelim + GetAppName + PathDelim;
if not DirectoryExists(AIniFile) then if not DirectoryExists(AIniFile) then
@ -353,14 +376,14 @@ begin
_FocusedView.RestoreFromIniFile(AIniFile + 'grid.xml', True, False, []); _FocusedView.RestoreFromIniFile(AIniFile + 'grid.xml', True, False, []);
end; end;
ConfigView;
end; end;
procedure TfrViewGridBase.RestoreFromRegistry(const Path: String); procedure TfrViewGridBase.RestoreFromRegistry(const Path: String);
begin begin
if Assigned(_FocusedView) then if Assigned(_FocusedView) then
begin
_FocusedView.RestoreFromRegistry(Path + '\\GridSettings\\' + Self.Name, False, False, [], Self.Name); _FocusedView.RestoreFromRegistry(Path + '\\GridSettings\\' + Self.Name, False, False, [], Self.Name);
end;
end; end;
procedure TfrViewGridBase.RestoreGridStatus; procedure TfrViewGridBase.RestoreGridStatus;
@ -391,7 +414,24 @@ begin
if Assigned(ViewFiltros) then if Assigned(ViewFiltros) then
ViewFiltros.Texto := FFilter; ViewFiltros.Texto := FFilter;
FiltrarGrid(FFilter); FiltrarGrid(FFilter, FFilter2);
//Obliga a generar todos los filtros de las vista hija
AnadirOtrosFiltros;
if Assigned(FOnFilterChanged) then
FOnFilterChanged(Self);
end;
procedure TfrViewGridBase.SetFilter2(const Value: string);
begin
FFilter2 := Value;
//Así tendremos el mismo valor en el filtro simple que en el filtro en detalle
if Assigned(ViewFiltros) then
ViewFiltros.Texto2 := FFilter2;
FiltrarGrid(FFilter, FFilter2);
//Obliga a generar todos los filtros de las vista hija //Obliga a generar todos los filtros de las vista hija
AnadirOtrosFiltros; AnadirOtrosFiltros;
@ -445,13 +485,14 @@ begin
if Assigned(_FocusedView) then if Assigned(_FocusedView) then
begin begin
AIniFile := GetSpecialFolderPath(CSIDL_APPDATA); //[Current Users]\Application Data AIniFile := GetSpecialFolderPath(CSIDL_APPDATA); //[All Users]\Application Data
AIniFile := AIniFile + PathDelim + 'Rodax Software' + PathDelim + GetAppName + PathDelim; AIniFile := AIniFile + PathDelim + 'Rodax Software' + PathDelim + GetAppName + PathDelim;
if not DirectoryExists(AIniFile) then if not DirectoryExists(AIniFile) then
ForceDirectories(AIniFile); ForceDirectories(AIniFile);
_FocusedView.StoreToIniFile(AIniFile + 'grid.xml', False, []); _FocusedView.StoreToIniFile(AIniFile + 'grid.xml', False, []);
// _FocusedView.StoreToRegistry(Path + '\\GridSettings\\' + Self.Name, False, [], Self.Name);
end; end;
end; end;
@ -459,12 +500,57 @@ procedure TfrViewGridBase.StoreToRegistry(const Path: String);
begin begin
inherited; inherited;
if Assigned(_FocusedView) then if Assigned(_FocusedView) then
begin
_FocusedView.StoreToRegistry(Path + '\\GridSettings\\' + Self.Name, False, [], Self.Name); _FocusedView.StoreToRegistry(Path + '\\GridSettings\\' + Self.Name, False, [], Self.Name);
end;
procedure TfrViewGridBase.FiltrarGrid(TextoFiltro1, TextoFiltro2 : String);
var
Columna: TcxGridDBColumn;
i: Integer;
AItemList: TcxFilterCriteriaItemList;
begin
with _FocusedView.DataController.Filter do
begin
BeginUpdate;
try
Options := [fcoCaseInsensitive, fcoSoftCompare];
Root.Clear;
if Length(TextoFiltro1) > 0 then
begin
AItemList := Root.AddItemList(fboAnd);
AItemList.BoolOperatorKind := fboOr;
for i:=0 to (_FocusedView as TcxGridDBTableView).ColumnCount - 1 do
begin
Columna := (_FocusedView as TcxGridDBTableView).Columns[i];
if (Length(Columna.Caption) > 0) and (Columna.Caption <> 'RecID') then
AItemList.AddItem(Columna, foLike, '%'+TextoFiltro1+'%', IntToStr(i));
end;
end;
if Length(TextoFiltro2) > 0 then
begin
AItemList := Root.AddItemList(fboAnd);
AItemList.BoolOperatorKind := fboOr;
for i:=0 to (_FocusedView as TcxGridDBTableView).ColumnCount - 1 do
begin
Columna := (_FocusedView as TcxGridDBTableView).Columns[i];
if (Length(Columna.Caption) > 0) and (Columna.Caption <> 'RecID') then
AItemList.AddItem(Columna, foLike, '%'+TextoFiltro2+'%', IntToStr(i));
end;
end;
if ((Length(TextoFiltro1) > 0) or (Length(TextoFiltro2) > 0)) then
Active := True
else
Active := False;
finally
EndUpdate;
end;
end; end;
end; end;
procedure TfrViewGridBase.FiltrarGrid(TextoFiltro : String);
procedure TfrViewGridBase.FiltrarGrid(TextoFiltro: String);
var var
Columna: TcxGridDBColumn; Columna: TcxGridDBColumn;
i: Integer; i: Integer;
@ -494,8 +580,8 @@ begin
EndUpdate; EndUpdate;
end; end;
end; end;
end;
end;
procedure TfrViewGridBase.FilterChanged(Sender: TObject); procedure TfrViewGridBase.FilterChanged(Sender: TObject);
begin begin

82
Source/Informes/1/InfFacturaCliente_proforma.fr3 Normal file
View File

File diff suppressed because one or more lines are too long

88
Source/Informes/5/InfAlbaranCliente.fr3
View File

File diff suppressed because one or more lines are too long

119
Source/Informes/5/InfContratoCliente.fr3 Normal file
View File

File diff suppressed because one or more lines are too long

8
Source/Informes/5/InfFacturaCliente.fr3
View File

File diff suppressed because one or more lines are too long

82
Source/Informes/5/InfFacturaCliente_proforma.fr3 Normal file
View File

File diff suppressed because one or more lines are too long

43
Source/Informes/5/InfPedidoProveedor.fr3 Normal file
View File

File diff suppressed because one or more lines are too long

89
Source/Informes/5/InfPresupuestoCliente.fr3 Normal file
View File

File diff suppressed because one or more lines are too long

65
Source/Informes/5/InformeListadoFacturasRecibosCliente.fr3 Normal file
View File

File diff suppressed because one or more lines are too long

102
Source/Informes/6/InfPresupuestoCliente.fr3
View File

File diff suppressed because one or more lines are too long

16
Source/Informes/InfContratoCliente.fr3
View File

File diff suppressed because one or more lines are too long

17
Source/Informes/InfPedidoProveedor.fr3
View File

File diff suppressed because one or more lines are too long

8
Source/Informes/InfPresupuestoCliente.fr3
View File

File diff suppressed because one or more lines are too long

65
Source/Informes/InformeListadoFacturasRecibosCliente.fr3 Normal file
View File

File diff suppressed because one or more lines are too long

26
Source/Modulos/Albaranes de cliente/AlbaranesCliente_Group.groupproj
View File

@ -11,8 +11,10 @@
<Projects Include="..\..\Servidor\FactuGES_Server.dproj" /> <Projects Include="..\..\Servidor\FactuGES_Server.dproj" />
<Projects Include="..\Articulos\Views\Articulos_view.dproj" /> <Projects Include="..\Articulos\Views\Articulos_view.dproj" />
<Projects Include="..\Contactos\Views\Contactos_view.dproj" /> <Projects Include="..\Contactos\Views\Contactos_view.dproj" />
<Projects Include="..\Facturas de cliente\Controller\FacturasCliente_controller.dproj" />
<Projects Include="..\Facturas de cliente\Views\FacturasCliente_view.dproj" /> <Projects Include="..\Facturas de cliente\Views\FacturasCliente_view.dproj" />
<Projects Include="..\Presupuestos de cliente\Views\PresupuestosCliente_view.dproj" /> <Projects Include="..\Presupuestos de cliente\Views\PresupuestosCliente_view.dproj" />
<Projects Include="..\Relaciones\Albaranes de cliente - Facturas de cliente\AlbCli_FacCli_relation.dproj" />
<Projects Include="..\Relaciones\Contratos de cliente - Albaranes de cliente\ConCli_AlbCli_relation.dproj" /> <Projects Include="..\Relaciones\Contratos de cliente - Albaranes de cliente\ConCli_AlbCli_relation.dproj" />
<Projects Include="..\Relaciones\Contratos de cliente - Facturas de cliente\ConCli_FacCli_relation.dproj" /> <Projects Include="..\Relaciones\Contratos de cliente - Facturas de cliente\ConCli_FacCli_relation.dproj" />
<Projects Include="Controller\AlbaranesCliente_controller.dproj" /> <Projects Include="Controller\AlbaranesCliente_controller.dproj" />
@ -171,14 +173,32 @@
<Target Name="PresupuestosCliente_view:Make"> <Target Name="PresupuestosCliente_view:Make">
<MSBuild Projects="..\Presupuestos de cliente\Views\PresupuestosCliente_view.dproj" Targets="Make" /> <MSBuild Projects="..\Presupuestos de cliente\Views\PresupuestosCliente_view.dproj" Targets="Make" />
</Target> </Target>
<Target Name="FacturasCliente_controller">
<MSBuild Projects="..\Facturas de cliente\Controller\FacturasCliente_controller.dproj" Targets="" />
</Target>
<Target Name="FacturasCliente_controller:Clean">
<MSBuild Projects="..\Facturas de cliente\Controller\FacturasCliente_controller.dproj" Targets="Clean" />
</Target>
<Target Name="FacturasCliente_controller:Make">
<MSBuild Projects="..\Facturas de cliente\Controller\FacturasCliente_controller.dproj" Targets="Make" />
</Target>
<Target Name="AlbCli_FacCli_relation">
<MSBuild Projects="..\Relaciones\Albaranes de cliente - Facturas de cliente\AlbCli_FacCli_relation.dproj" Targets="" />
</Target>
<Target Name="AlbCli_FacCli_relation:Clean">
<MSBuild Projects="..\Relaciones\Albaranes de cliente - Facturas de cliente\AlbCli_FacCli_relation.dproj" Targets="Clean" />
</Target>
<Target Name="AlbCli_FacCli_relation:Make">
<MSBuild Projects="..\Relaciones\Albaranes de cliente - Facturas de cliente\AlbCli_FacCli_relation.dproj" Targets="Make" />
</Target>
<Target Name="Build"> <Target Name="Build">
<CallTarget Targets="Base;GUIBase;ApplicationBase;Contactos_view;Articulos_view;AlbaranesCliente_model;AlbaranesCliente_data;AlbaranesCliente_controller;ConCli_AlbCli_relation;ConCli_FacCli_relation;AlbaranesCliente_view;AlbaranesCliente_plugin;FactuGES;FactuGES_Server;FacturasCliente_view;PresupuestosCliente_view" /> <CallTarget Targets="Base;GUIBase;ApplicationBase;Contactos_view;Articulos_view;AlbaranesCliente_model;AlbaranesCliente_data;AlbaranesCliente_controller;ConCli_AlbCli_relation;ConCli_FacCli_relation;AlbaranesCliente_view;AlbaranesCliente_plugin;FactuGES;FactuGES_Server;FacturasCliente_view;PresupuestosCliente_view;FacturasCliente_controller;AlbCli_FacCli_relation" />
</Target> </Target>
<Target Name="Clean"> <Target Name="Clean">
<CallTarget Targets="Base:Clean;GUIBase:Clean;ApplicationBase:Clean;Contactos_view:Clean;Articulos_view:Clean;AlbaranesCliente_model:Clean;AlbaranesCliente_data:Clean;AlbaranesCliente_controller:Clean;ConCli_AlbCli_relation:Clean;ConCli_FacCli_relation:Clean;AlbaranesCliente_view:Clean;AlbaranesCliente_plugin:Clean;FactuGES:Clean;FactuGES_Server:Clean;FacturasCliente_view:Clean;PresupuestosCliente_view:Clean" /> <CallTarget Targets="Base:Clean;GUIBase:Clean;ApplicationBase:Clean;Contactos_view:Clean;Articulos_view:Clean;AlbaranesCliente_model:Clean;AlbaranesCliente_data:Clean;AlbaranesCliente_controller:Clean;ConCli_AlbCli_relation:Clean;ConCli_FacCli_relation:Clean;AlbaranesCliente_view:Clean;AlbaranesCliente_plugin:Clean;FactuGES:Clean;FactuGES_Server:Clean;FacturasCliente_view:Clean;PresupuestosCliente_view:Clean;FacturasCliente_controller:Clean;AlbCli_FacCli_relation:Clean" />
</Target> </Target>
<Target Name="Make"> <Target Name="Make">
<CallTarget Targets="Base:Make;GUIBase:Make;ApplicationBase:Make;Contactos_view:Make;Articulos_view:Make;AlbaranesCliente_model:Make;AlbaranesCliente_data:Make;AlbaranesCliente_controller:Make;ConCli_AlbCli_relation:Make;ConCli_FacCli_relation:Make;AlbaranesCliente_view:Make;AlbaranesCliente_plugin:Make;FactuGES:Make;FactuGES_Server:Make;FacturasCliente_view:Make;PresupuestosCliente_view:Make" /> <CallTarget Targets="Base:Make;GUIBase:Make;ApplicationBase:Make;Contactos_view:Make;Articulos_view:Make;AlbaranesCliente_model:Make;AlbaranesCliente_data:Make;AlbaranesCliente_controller:Make;ConCli_AlbCli_relation:Make;ConCli_FacCli_relation:Make;AlbaranesCliente_view:Make;AlbaranesCliente_plugin:Make;FactuGES:Make;FactuGES_Server:Make;FacturasCliente_view:Make;PresupuestosCliente_view:Make;FacturasCliente_controller:Make;AlbCli_FacCli_relation: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>

16
Source/Modulos/Albaranes de cliente/Controller/uAlbaranesClienteController.pas
View File

@ -42,8 +42,8 @@ type
function ExtraerSeleccionados(AAlbaran: IBizAlbaranCliente) : IBizAlbaranCliente; function ExtraerSeleccionados(AAlbaran: IBizAlbaranCliente) : IBizAlbaranCliente;
function ElegirAlbaranes(AAlbaran: IBizAlbaranCliente; AMensaje: String; AMultiSelect: Boolean): IBizAlbaranCliente; function ElegirAlbaranes(AAlbaran: IBizAlbaranCliente; AMensaje: String; AMultiSelect: Boolean): IBizAlbaranCliente;
procedure Preview(AAlbaran : IBizAlbaranCliente; AllItems: Boolean = false; const VerPrecios: Boolean = True); procedure Preview(AAlbaran : IBizAlbaranCliente; AllItems: Boolean = false; const VerPrecios: Boolean = True; const VerTrabajos: Boolean = True; const VerIncidencias: Boolean = True);
procedure Print(AAlbaran : IBizAlbaranCliente; AllItems: Boolean = false; const VerPrecios: Boolean = True); procedure Print(AAlbaran : IBizAlbaranCliente; AllItems: Boolean = false; const VerPrecios: Boolean = True; const VerTrabajos: Boolean = True; const VerIncidencias: Boolean = True);
procedure EtiquetasPreview(AAlbaran : IBizAlbaranCliente; Const withRefCliente: Boolean); procedure EtiquetasPreview(AAlbaran : IBizAlbaranCliente; Const withRefCliente: Boolean);
procedure EtiquetasPrint(AAlbaran : IBizAlbaranCliente; Const withRefCliente: Boolean); procedure EtiquetasPrint(AAlbaran : IBizAlbaranCliente; Const withRefCliente: Boolean);
@ -136,8 +136,8 @@ type
DoPost: Boolean = True) : Boolean; DoPost: Boolean = True) : Boolean;
procedure EnviarAlbaranPorEMail(AAlbaran : IBizAlbaranCliente); procedure EnviarAlbaranPorEMail(AAlbaran : IBizAlbaranCliente);
procedure Preview(AAlbaran : IBizAlbaranCliente; AllItems: Boolean = false; const VerPrecios: Boolean = True); procedure Preview(AAlbaran : IBizAlbaranCliente; AllItems: Boolean = false; const VerPrecios: Boolean = True; const VerTrabajos: Boolean = True; const VerIncidencias: Boolean = True);
procedure Print(AAlbaran : IBizAlbaranCliente; AllItems: Boolean = false; const VerPrecios: Boolean = True); procedure Print(AAlbaran : IBizAlbaranCliente; AllItems: Boolean = false; const VerPrecios: Boolean = True; const VerTrabajos: Boolean = True; const VerIncidencias: Boolean = True);
procedure EtiquetasPreview(AAlbaran : IBizAlbaranCliente; Const withRefCliente: Boolean); procedure EtiquetasPreview(AAlbaran : IBizAlbaranCliente; Const withRefCliente: Boolean);
procedure EtiquetasPrint(AAlbaran : IBizAlbaranCliente; Const withRefCliente: Boolean); procedure EtiquetasPrint(AAlbaran : IBizAlbaranCliente; Const withRefCliente: Boolean);
@ -1003,7 +1003,7 @@ begin
end; end;
end; end;
procedure TAlbaranesClienteController.Preview(AAlbaran: IBizAlbaranCliente; AllItems: Boolean = false; const VerPrecios: Boolean = True); procedure TAlbaranesClienteController.Preview(AAlbaran: IBizAlbaranCliente; AllItems: Boolean = false; const VerPrecios: Boolean = True; const VerTrabajos: Boolean = True; const VerIncidencias: Boolean = True);
var var
AReportController : IAlbaranesClienteReportController; AReportController : IAlbaranesClienteReportController;
ID_Albaranes: TIntegerList; ID_Albaranes: TIntegerList;
@ -1031,7 +1031,7 @@ begin
else else
ID_Albaranes.Add(AAlbaran.ID); ID_Albaranes.Add(AAlbaran.ID);
AReportController.Preview(ID_Albaranes, VerPrecios); AReportController.Preview(ID_Albaranes, VerPrecios, VerTrabajos, VerIncidencias);
finally finally
AReportController := NIL; AReportController := NIL;
@ -1039,7 +1039,7 @@ begin
end; end;
end; end;
procedure TAlbaranesClienteController.Print(AAlbaran: IBizAlbaranCliente; AllItems: Boolean = false; const VerPrecios: Boolean = True); procedure TAlbaranesClienteController.Print(AAlbaran: IBizAlbaranCliente; AllItems: Boolean = false; const VerPrecios: Boolean = True; const VerTrabajos: Boolean = True; const VerIncidencias: Boolean = True);
var var
AReportController : IAlbaranesClienteReportController; AReportController : IAlbaranesClienteReportController;
ID_Albaranes: TIntegerList; ID_Albaranes: TIntegerList;
@ -1065,7 +1065,7 @@ begin
else else
ID_Albaranes.Add(AAlbaran.ID); ID_Albaranes.Add(AAlbaran.ID);
AReportController.Print(ID_Albaranes, VerPrecios); AReportController.Print(ID_Albaranes, VerPrecios, VerTrabajos, VerIncidencias);
finally finally
AReportController := NIL; AReportController := NIL;

16
Source/Modulos/Albaranes de cliente/Controller/uAlbaranesClienteReportController.pas
View File

@ -10,8 +10,8 @@ uses
type type
IAlbaranesClienteReportController = interface(IControllerBase) IAlbaranesClienteReportController = interface(IControllerBase)
['{4BCC7A93-3322-494C-A3FA-118F4B62CB15}'] ['{4BCC7A93-3322-494C-A3FA-118F4B62CB15}']
procedure Preview(const AListaID : TIntegerList; const VerPrecios: Boolean); procedure Preview(const AListaID : TIntegerList; const VerPrecios: Boolean; const VerTrabajos: Boolean = True; const VerIncidencias: Boolean = True);
procedure Print(const AListaID : TIntegerList; const VerPrecios: Boolean); procedure Print(const AListaID : TIntegerList; const VerPrecios: Boolean; const VerTrabajos: Boolean = True; const VerIncidencias: Boolean = True);
procedure EtiquetasPreview(const AID : integer; Const withRefCliente: Boolean); procedure EtiquetasPreview(const AID : integer; Const withRefCliente: Boolean);
procedure EtiquetasPrint(const AID : integer; Const withRefCliente: Boolean); procedure EtiquetasPrint(const AID : integer; Const withRefCliente: Boolean);
function ExportToPDF(const AID: Integer; const AFileName : String = ''; const VerPrecios: Boolean = True): Boolean; function ExportToPDF(const AID: Integer; const AFileName : String = ''; const VerPrecios: Boolean = True): Boolean;
@ -26,8 +26,8 @@ type
constructor Create; override; constructor Create; override;
destructor Destroy; override; destructor Destroy; override;
procedure Preview(const AListaID : TIntegerList; const VerPrecios: Boolean); procedure Preview(const AListaID : TIntegerList; const VerPrecios: Boolean; const VerTrabajos: Boolean = True; const VerIncidencias: Boolean = True);
procedure Print(const AListaID : TIntegerList; const VerPrecios: Boolean); procedure Print(const AListaID : TIntegerList; const VerPrecios: Boolean; const VerTrabajos: Boolean = True; const VerIncidencias: Boolean = True);
procedure EtiquetasPreview(const AID : integer; Const withRefCliente: Boolean); procedure EtiquetasPreview(const AID : integer; Const withRefCliente: Boolean);
procedure EtiquetasPrint(const AID : integer; Const withRefCliente: Boolean); procedure EtiquetasPrint(const AID : integer; Const withRefCliente: Boolean);
function ExportToPDF(const AID: Integer; const AFileName : String = ''; const VerPrecios: Boolean = True): Boolean; function ExportToPDF(const AID: Integer; const AFileName : String = ''; const VerPrecios: Boolean = True): Boolean;
@ -135,14 +135,14 @@ begin
end; end;
end; end;
procedure TAlbaranesClienteReportController.Preview(const AListaID : TIntegerList; const VerPrecios: Boolean); procedure TAlbaranesClienteReportController.Preview(const AListaID : TIntegerList; const VerPrecios: Boolean; const VerTrabajos: Boolean = True; const VerIncidencias: Boolean = True);
var var
AStream: Binary; AStream: Binary;
AEditor : IEditorAlbaranesClientePreview; AEditor : IEditorAlbaranesClientePreview;
begin begin
AEditor := NIL; AEditor := NIL;
AStream := FDataModule.GetRptAlbaranes(AListaID, VerPrecios); AStream := FDataModule.GetRptAlbaranes(AListaID, VerPrecios, VerTrabajos, VerIncidencias);
try try
CreateEditor('EditorAlbaranesClientePreview', IEditorAlbaranesClientePreview, AEditor); CreateEditor('EditorAlbaranesClientePreview', IEditorAlbaranesClientePreview, AEditor);
if Assigned(AEditor) then if Assigned(AEditor) then
@ -163,7 +163,7 @@ begin
end; end;
end; end;
procedure TAlbaranesClienteReportController.Print(const AListaID : TIntegerList; const VerPrecios: Boolean); procedure TAlbaranesClienteReportController.Print(const AListaID : TIntegerList; const VerPrecios: Boolean; const VerTrabajos: Boolean = True; const VerIncidencias: Boolean = True);
var var
AStream: Binary; AStream: Binary;
AEditor : IEditorAlbaranesClientePreview; AEditor : IEditorAlbaranesClientePreview;
@ -172,7 +172,7 @@ begin
ShowHourglassCursor; ShowHourglassCursor;
try try
AStream := FDataModule.GetRptAlbaranes(AListaID, VerPrecios); AStream := FDataModule.GetRptAlbaranes(AListaID, VerPrecios, VerTrabajos, VerIncidencias);
try try
CreateEditor('EditorAlbaranesClientePreview', IEditorAlbaranesClientePreview, AEditor); CreateEditor('EditorAlbaranesClientePreview', IEditorAlbaranesClientePreview, AEditor);
if Assigned(AEditor) then if Assigned(AEditor) then

15
Source/Modulos/Albaranes de cliente/Data/uDataModuleAlbaranesCliente.dfm
View File

@ -26,11 +26,6 @@ inherited DataModuleAlbaranesCliente: TDataModuleAlbaranesCliente
object tbl_AlbaranesCliente: TDAMemDataTable object tbl_AlbaranesCliente: TDAMemDataTable
RemoteUpdatesOptions = [] RemoteUpdatesOptions = []
Fields = < Fields = <
item
Name = 'ID_CONTRATO'
DataType = datInteger
DictionaryEntry = 'AlbaranesCliente_ID_CONTRATO'
end
item item
Name = 'ID' Name = 'ID'
DataType = datAutoInc DataType = datAutoInc
@ -117,6 +112,11 @@ inherited DataModuleAlbaranesCliente: TDataModuleAlbaranesCliente
DisplayLabel = 'Ref. pedido cliente' DisplayLabel = 'Ref. pedido cliente'
DictionaryEntry = 'AlbaranesCliente_REF_PEDIDO' DictionaryEntry = 'AlbaranesCliente_REF_PEDIDO'
end end
item
Name = 'ID_CONTRATO'
DataType = datInteger
DictionaryEntry = 'AlbaranesCliente_ID_CONTRATO'
end
item item
Name = 'REF_CONTRATO' Name = 'REF_CONTRATO'
DataType = datString DataType = datString
@ -334,8 +334,11 @@ inherited DataModuleAlbaranesCliente: TDataModuleAlbaranesCliente
DataType = datString DataType = datString
Size = 255 Size = 255
DisplayLabel = 'Otros nombres' DisplayLabel = 'Otros nombres'
ServerAutoRefresh = True
DictionaryEntry = 'AlbaranesCliente_LISTA_NOMBRES' DictionaryEntry = 'AlbaranesCliente_LISTA_NOMBRES'
end
item
Name = 'TRABAJOS_INSTALADOR'
DataType = datMemo
end> end>
Params = <> Params = <>
StreamingOptions = [soDisableEventsWhileStreaming] StreamingOptions = [soDisableEventsWhileStreaming]

12
Source/Modulos/Albaranes de cliente/Data/uDataModuleAlbaranesCliente.pas
View File

@ -37,9 +37,9 @@ type
function NewItem : IBizAlbaranCliente; function NewItem : IBizAlbaranCliente;
// Report // Report
function GetRptAlbaranes(const ListaID: TIntegerList; const VerPrecios: Boolean = False): Binary; function GetRptAlbaranes(const ListaID: TIntegerList; const VerPrecios: Boolean = False; const VerTrabajos: Boolean = False; const VerIncidencias: Boolean = False): Binary;
function GetEtiquetas(const AID: Integer; withRefCliente: Boolean): Binary; function GetEtiquetas(const AID: Integer; withRefCliente: Boolean): Binary;
function GetRptPDFAlbaran(const AID: Integer; const VerPrecios: Boolean = False): Binary; function GetRptPDFAlbaran(const AID: Integer; const VerPrecios: Boolean = False; const VerTrabajos: Boolean = False; const VerIncidencias: Boolean = False): Binary;
end; end;
implementation implementation
@ -63,26 +63,26 @@ begin
RORemoteService.Message := dmConexion.Message; RORemoteService.Message := dmConexion.Message;
end; end;
function TDataModuleAlbaranesCliente.GetRptAlbaranes(const ListaID: TIntegerList; const VerPrecios: Boolean = False): Binary; function TDataModuleAlbaranesCliente.GetRptAlbaranes(const ListaID: TIntegerList; const VerPrecios: Boolean = False; const VerTrabajos: Boolean = False; const VerIncidencias: Boolean = False): Binary;
var var
AParam : TIntegerArray; AParam : TIntegerArray;
begin begin
AParam := ListaID.ToIntegerArray; AParam := ListaID.ToIntegerArray;
try try
Result := (RORemoteService as IsrvAlbaranesCliente).GenerarInforme(AParam, VerPrecios); Result := (RORemoteService as IsrvAlbaranesCliente).GenerarInforme(AParam, VerPrecios, VerTrabajos, VerIncidencias);
finally finally
FreeAndNil(AParam); FreeAndNil(AParam);
end; end;
end; end;
function TDataModuleAlbaranesCliente.GetRptPDFAlbaran(const AID: Integer; const VerPrecios: Boolean = False): Binary; function TDataModuleAlbaranesCliente.GetRptPDFAlbaran(const AID: Integer; const VerPrecios, VerTrabajos, VerIncidencias: Boolean): Binary;
var var
AParam : TIntegerArray; AParam : TIntegerArray;
begin begin
AParam := TIntegerArray.Create; AParam := TIntegerArray.Create;
try try
AParam.Add(AID); AParam.Add(AID);
Result := (RORemoteService as IsrvAlbaranesCliente).GenerarInforme(AParam, VerPrecios); Result := (RORemoteService as IsrvAlbaranesCliente).GenerarInforme(AParam, VerPrecios, VerTrabajos, VerIncidencias);
finally finally
FreeAndNil(AParam); FreeAndNil(AParam);
end; end;

6
Source/Modulos/Albaranes de cliente/Model/Data/uIDataModuleAlbaranesClienteReport.pas
View File

@ -7,10 +7,10 @@ uses
type type
IDataModuleAlbaranesClienteReport = interface IDataModuleAlbaranesClienteReport = interface
['{42C55204-5AB9-403E-8385-1A62B02D8234}'] ['{32A52EC9-90F6-4934-9001-015A2579746D}']
function GetRptAlbaranes(const ListaID: TIntegerList; const VerPrecios: Boolean = False): Binary; function GetRptAlbaranes(const ListaID: TIntegerList; const VerPrecios: Boolean = False; const VerTrabajos: Boolean = False; const VerIncidencias: Boolean = False): Binary;
function GetEtiquetas(const AID: Integer; withRefCliente: Boolean): Binary; function GetEtiquetas(const AID: Integer; withRefCliente: Boolean): Binary;
function GetRptPDFAlbaran(const AID: Integer; const VerPrecios: Boolean = False): Binary; function GetRptPDFAlbaran(const AID: Integer; const VerPrecios: Boolean = False; const VerTrabajos: Boolean = False; const VerIncidencias: Boolean = False): Binary;
end; end;
implementation implementation

142
Source/Modulos/Albaranes de cliente/Model/schAlbaranesClienteClient_Intf.pas
View File

@ -9,9 +9,9 @@ const
{ Data table rules ids { Data table rules ids
Feel free to change them to something more human readable Feel free to change them to something more human readable
but make sure they are unique in the context of your application } but make sure they are unique in the context of your application }
RID_ListaAnosAlbaranes = '{3BF46A2A-B09F-4966-80AC-36B91AB3F410}'; RID_ListaAnosAlbaranes = '{CA15E0DE-DB21-4659-83E8-7C52F61A8D18}';
RID_AlbaranesCliente = '{37A96813-FF20-4C48-8043-08624BDF1EEC}'; RID_AlbaranesCliente = '{55652CC2-5F41-4D4A-9D92-2D1EEB9F4B17}';
RID_AlbaranesCliente_Detalles = '{7A054D7B-816E-40D3-8810-00601F96937D}'; RID_AlbaranesCliente_Detalles = '{9A85B300-2DDE-41DD-A4C9-2B6CE2B26FCB}';
{ Data table names } { Data table names }
nme_ListaAnosAlbaranes = 'ListaAnosAlbaranes'; nme_ListaAnosAlbaranes = 'ListaAnosAlbaranes';
@ -25,7 +25,6 @@ const
idx_ListaAnosAlbaranesANO = 0; idx_ListaAnosAlbaranesANO = 0;
{ AlbaranesCliente fields } { AlbaranesCliente fields }
fld_AlbaranesClienteID_CONTRATO = 'ID_CONTRATO';
fld_AlbaranesClienteID = 'ID'; fld_AlbaranesClienteID = 'ID';
fld_AlbaranesClienteID_EMPRESA = 'ID_EMPRESA'; fld_AlbaranesClienteID_EMPRESA = 'ID_EMPRESA';
fld_AlbaranesClienteID_CLIENTE = 'ID_CLIENTE'; fld_AlbaranesClienteID_CLIENTE = 'ID_CLIENTE';
@ -39,6 +38,7 @@ const
fld_AlbaranesClienteNOMBRE_ALMACEN = 'NOMBRE_ALMACEN'; fld_AlbaranesClienteNOMBRE_ALMACEN = 'NOMBRE_ALMACEN';
fld_AlbaranesClienteID_PEDIDO = 'ID_PEDIDO'; fld_AlbaranesClienteID_PEDIDO = 'ID_PEDIDO';
fld_AlbaranesClienteREF_PEDIDO = 'REF_PEDIDO'; fld_AlbaranesClienteREF_PEDIDO = 'REF_PEDIDO';
fld_AlbaranesClienteID_CONTRATO = 'ID_CONTRATO';
fld_AlbaranesClienteREF_CONTRATO = 'REF_CONTRATO'; fld_AlbaranesClienteREF_CONTRATO = 'REF_CONTRATO';
fld_AlbaranesClienteID_FACTURA = 'ID_FACTURA'; fld_AlbaranesClienteID_FACTURA = 'ID_FACTURA';
fld_AlbaranesClienteREF_FACTURA = 'REF_FACTURA'; fld_AlbaranesClienteREF_FACTURA = 'REF_FACTURA';
@ -72,22 +72,23 @@ const
fld_AlbaranesClienteID_TIENDA = 'ID_TIENDA'; fld_AlbaranesClienteID_TIENDA = 'ID_TIENDA';
fld_AlbaranesClienteTIENDA = 'TIENDA'; fld_AlbaranesClienteTIENDA = 'TIENDA';
fld_AlbaranesClienteLISTA_NOMBRES = 'LISTA_NOMBRES'; fld_AlbaranesClienteLISTA_NOMBRES = 'LISTA_NOMBRES';
fld_AlbaranesClienteTRABAJOS_INSTALADOR = 'TRABAJOS_INSTALADOR';
{ AlbaranesCliente field indexes } { AlbaranesCliente field indexes }
idx_AlbaranesClienteID_CONTRATO = 0; idx_AlbaranesClienteID = 0;
idx_AlbaranesClienteID = 1; idx_AlbaranesClienteID_EMPRESA = 1;
idx_AlbaranesClienteID_EMPRESA = 2; idx_AlbaranesClienteID_CLIENTE = 2;
idx_AlbaranesClienteID_CLIENTE = 3; idx_AlbaranesClienteNOMBRE = 3;
idx_AlbaranesClienteNOMBRE = 4; idx_AlbaranesClienteFECHA_ALBARAN = 4;
idx_AlbaranesClienteFECHA_ALBARAN = 5; idx_AlbaranesClienteREFERENCIA = 5;
idx_AlbaranesClienteREFERENCIA = 6; idx_AlbaranesClienteREFERENCIA_CLIENTE = 6;
idx_AlbaranesClienteREFERENCIA_CLIENTE = 7; idx_AlbaranesClienteTIPO = 7;
idx_AlbaranesClienteTIPO = 8; idx_AlbaranesClienteSITUACION = 8;
idx_AlbaranesClienteSITUACION = 9; idx_AlbaranesClienteID_ALMACEN = 9;
idx_AlbaranesClienteID_ALMACEN = 10; idx_AlbaranesClienteNOMBRE_ALMACEN = 10;
idx_AlbaranesClienteNOMBRE_ALMACEN = 11; idx_AlbaranesClienteID_PEDIDO = 11;
idx_AlbaranesClienteID_PEDIDO = 12; idx_AlbaranesClienteREF_PEDIDO = 12;
idx_AlbaranesClienteREF_PEDIDO = 13; idx_AlbaranesClienteID_CONTRATO = 13;
idx_AlbaranesClienteREF_CONTRATO = 14; idx_AlbaranesClienteREF_CONTRATO = 14;
idx_AlbaranesClienteID_FACTURA = 15; idx_AlbaranesClienteID_FACTURA = 15;
idx_AlbaranesClienteREF_FACTURA = 16; idx_AlbaranesClienteREF_FACTURA = 16;
@ -121,6 +122,7 @@ const
idx_AlbaranesClienteID_TIENDA = 44; idx_AlbaranesClienteID_TIENDA = 44;
idx_AlbaranesClienteTIENDA = 45; idx_AlbaranesClienteTIENDA = 45;
idx_AlbaranesClienteLISTA_NOMBRES = 46; idx_AlbaranesClienteLISTA_NOMBRES = 46;
idx_AlbaranesClienteTRABAJOS_INSTALADOR = 47;
{ AlbaranesCliente_Detalles fields } { AlbaranesCliente_Detalles fields }
fld_AlbaranesCliente_DetallesID = 'ID'; fld_AlbaranesCliente_DetallesID = 'ID';
@ -157,7 +159,7 @@ const
type type
{ IListaAnosAlbaranes } { IListaAnosAlbaranes }
IListaAnosAlbaranes = interface(IDAStronglyTypedDataTable) IListaAnosAlbaranes = interface(IDAStronglyTypedDataTable)
['{0C7CD8C2-CB8B-4224-863B-760D2E239D64}'] ['{E097AA9E-0150-4FA4-809F-DC5C880C8D0B}']
{ Property getters and setters } { Property getters and setters }
function GetANOValue: String; function GetANOValue: String;
procedure SetANOValue(const aValue: String); procedure SetANOValue(const aValue: String);
@ -192,12 +194,8 @@ type
{ IAlbaranesCliente } { IAlbaranesCliente }
IAlbaranesCliente = interface(IDAStronglyTypedDataTable) IAlbaranesCliente = interface(IDAStronglyTypedDataTable)
['{D3E1233E-BD17-40E1-B5B2-C8241F7BFF04}'] ['{8921A06D-B147-4332-8F91-A9346F234DDA}']
{ Property getters and setters } { Property getters and setters }
function GetID_CONTRATOValue: Integer;
procedure SetID_CONTRATOValue(const aValue: Integer);
function GetID_CONTRATOIsNull: Boolean;
procedure SetID_CONTRATOIsNull(const aValue: Boolean);
function GetIDValue: Integer; function GetIDValue: Integer;
procedure SetIDValue(const aValue: Integer); procedure SetIDValue(const aValue: Integer);
function GetIDIsNull: Boolean; function GetIDIsNull: Boolean;
@ -250,6 +248,10 @@ type
procedure SetREF_PEDIDOValue(const aValue: String); procedure SetREF_PEDIDOValue(const aValue: String);
function GetREF_PEDIDOIsNull: Boolean; function GetREF_PEDIDOIsNull: Boolean;
procedure SetREF_PEDIDOIsNull(const aValue: Boolean); procedure SetREF_PEDIDOIsNull(const aValue: Boolean);
function GetID_CONTRATOValue: Integer;
procedure SetID_CONTRATOValue(const aValue: Integer);
function GetID_CONTRATOIsNull: Boolean;
procedure SetID_CONTRATOIsNull(const aValue: Boolean);
function GetREF_CONTRATOValue: String; function GetREF_CONTRATOValue: String;
procedure SetREF_CONTRATOValue(const aValue: String); procedure SetREF_CONTRATOValue(const aValue: String);
function GetREF_CONTRATOIsNull: Boolean; function GetREF_CONTRATOIsNull: Boolean;
@ -380,11 +382,12 @@ type
procedure SetLISTA_NOMBRESValue(const aValue: String); procedure SetLISTA_NOMBRESValue(const aValue: String);
function GetLISTA_NOMBRESIsNull: Boolean; function GetLISTA_NOMBRESIsNull: Boolean;
procedure SetLISTA_NOMBRESIsNull(const aValue: Boolean); procedure SetLISTA_NOMBRESIsNull(const aValue: Boolean);
function GetTRABAJOS_INSTALADORValue: IROStrings;
function GetTRABAJOS_INSTALADORIsNull: Boolean;
procedure SetTRABAJOS_INSTALADORIsNull(const aValue: Boolean);
{ Properties } { Properties }
property ID_CONTRATO: Integer read GetID_CONTRATOValue write SetID_CONTRATOValue;
property ID_CONTRATOIsNull: Boolean read GetID_CONTRATOIsNull write SetID_CONTRATOIsNull;
property ID: Integer read GetIDValue write SetIDValue; property ID: Integer read GetIDValue write SetIDValue;
property IDIsNull: Boolean read GetIDIsNull write SetIDIsNull; property IDIsNull: Boolean read GetIDIsNull write SetIDIsNull;
property ID_EMPRESA: Integer read GetID_EMPRESAValue write SetID_EMPRESAValue; property ID_EMPRESA: Integer read GetID_EMPRESAValue write SetID_EMPRESAValue;
@ -411,6 +414,8 @@ type
property ID_PEDIDOIsNull: Boolean read GetID_PEDIDOIsNull write SetID_PEDIDOIsNull; property ID_PEDIDOIsNull: Boolean read GetID_PEDIDOIsNull write SetID_PEDIDOIsNull;
property REF_PEDIDO: String read GetREF_PEDIDOValue write SetREF_PEDIDOValue; property REF_PEDIDO: String read GetREF_PEDIDOValue write SetREF_PEDIDOValue;
property REF_PEDIDOIsNull: Boolean read GetREF_PEDIDOIsNull write SetREF_PEDIDOIsNull; property REF_PEDIDOIsNull: Boolean read GetREF_PEDIDOIsNull write SetREF_PEDIDOIsNull;
property ID_CONTRATO: Integer read GetID_CONTRATOValue write SetID_CONTRATOValue;
property ID_CONTRATOIsNull: Boolean read GetID_CONTRATOIsNull write SetID_CONTRATOIsNull;
property REF_CONTRATO: String read GetREF_CONTRATOValue write SetREF_CONTRATOValue; property REF_CONTRATO: String read GetREF_CONTRATOValue write SetREF_CONTRATOValue;
property REF_CONTRATOIsNull: Boolean read GetREF_CONTRATOIsNull write SetREF_CONTRATOIsNull; property REF_CONTRATOIsNull: Boolean read GetREF_CONTRATOIsNull write SetREF_CONTRATOIsNull;
property ID_FACTURA: Integer read GetID_FACTURAValue write SetID_FACTURAValue; property ID_FACTURA: Integer read GetID_FACTURAValue write SetID_FACTURAValue;
@ -477,6 +482,8 @@ type
property TIENDAIsNull: Boolean read GetTIENDAIsNull write SetTIENDAIsNull; property TIENDAIsNull: Boolean read GetTIENDAIsNull write SetTIENDAIsNull;
property LISTA_NOMBRES: String read GetLISTA_NOMBRESValue write SetLISTA_NOMBRESValue; property LISTA_NOMBRES: String read GetLISTA_NOMBRESValue write SetLISTA_NOMBRESValue;
property LISTA_NOMBRESIsNull: Boolean read GetLISTA_NOMBRESIsNull write SetLISTA_NOMBRESIsNull; property LISTA_NOMBRESIsNull: Boolean read GetLISTA_NOMBRESIsNull write SetLISTA_NOMBRESIsNull;
property TRABAJOS_INSTALADOR: IROStrings read GetTRABAJOS_INSTALADORValue;
property TRABAJOS_INSTALADORIsNull: Boolean read GetTRABAJOS_INSTALADORIsNull write SetTRABAJOS_INSTALADORIsNull;
end; end;
{ TAlbaranesClienteDataTableRules } { TAlbaranesClienteDataTableRules }
@ -484,14 +491,12 @@ type
private private
f_OBSERVACIONES: IROStrings; f_OBSERVACIONES: IROStrings;
f_INCIDENCIAS: IROStrings; f_INCIDENCIAS: IROStrings;
f_TRABAJOS_INSTALADOR: IROStrings;
procedure OBSERVACIONES_OnChange(Sender: TObject); procedure OBSERVACIONES_OnChange(Sender: TObject);
procedure INCIDENCIAS_OnChange(Sender: TObject); procedure INCIDENCIAS_OnChange(Sender: TObject);
procedure TRABAJOS_INSTALADOR_OnChange(Sender: TObject);
protected protected
{ Property getters and setters } { Property getters and setters }
function GetID_CONTRATOValue: Integer; virtual;
procedure SetID_CONTRATOValue(const aValue: Integer); virtual;
function GetID_CONTRATOIsNull: Boolean; virtual;
procedure SetID_CONTRATOIsNull(const aValue: Boolean); virtual;
function GetIDValue: Integer; virtual; function GetIDValue: Integer; virtual;
procedure SetIDValue(const aValue: Integer); virtual; procedure SetIDValue(const aValue: Integer); virtual;
function GetIDIsNull: Boolean; virtual; function GetIDIsNull: Boolean; virtual;
@ -544,6 +549,10 @@ type
procedure SetREF_PEDIDOValue(const aValue: String); virtual; procedure SetREF_PEDIDOValue(const aValue: String); virtual;
function GetREF_PEDIDOIsNull: Boolean; virtual; function GetREF_PEDIDOIsNull: Boolean; virtual;
procedure SetREF_PEDIDOIsNull(const aValue: Boolean); virtual; procedure SetREF_PEDIDOIsNull(const aValue: Boolean); virtual;
function GetID_CONTRATOValue: Integer; virtual;
procedure SetID_CONTRATOValue(const aValue: Integer); virtual;
function GetID_CONTRATOIsNull: Boolean; virtual;
procedure SetID_CONTRATOIsNull(const aValue: Boolean); virtual;
function GetREF_CONTRATOValue: String; virtual; function GetREF_CONTRATOValue: String; virtual;
procedure SetREF_CONTRATOValue(const aValue: String); virtual; procedure SetREF_CONTRATOValue(const aValue: String); virtual;
function GetREF_CONTRATOIsNull: Boolean; virtual; function GetREF_CONTRATOIsNull: Boolean; virtual;
@ -674,10 +683,11 @@ type
procedure SetLISTA_NOMBRESValue(const aValue: String); virtual; procedure SetLISTA_NOMBRESValue(const aValue: String); virtual;
function GetLISTA_NOMBRESIsNull: Boolean; virtual; function GetLISTA_NOMBRESIsNull: Boolean; virtual;
procedure SetLISTA_NOMBRESIsNull(const aValue: Boolean); virtual; procedure SetLISTA_NOMBRESIsNull(const aValue: Boolean); virtual;
function GetTRABAJOS_INSTALADORValue: IROStrings; virtual;
function GetTRABAJOS_INSTALADORIsNull: Boolean; virtual;
procedure SetTRABAJOS_INSTALADORIsNull(const aValue: Boolean); virtual;
{ Properties } { Properties }
property ID_CONTRATO: Integer read GetID_CONTRATOValue write SetID_CONTRATOValue;
property ID_CONTRATOIsNull: Boolean read GetID_CONTRATOIsNull write SetID_CONTRATOIsNull;
property ID: Integer read GetIDValue write SetIDValue; property ID: Integer read GetIDValue write SetIDValue;
property IDIsNull: Boolean read GetIDIsNull write SetIDIsNull; property IDIsNull: Boolean read GetIDIsNull write SetIDIsNull;
property ID_EMPRESA: Integer read GetID_EMPRESAValue write SetID_EMPRESAValue; property ID_EMPRESA: Integer read GetID_EMPRESAValue write SetID_EMPRESAValue;
@ -704,6 +714,8 @@ type
property ID_PEDIDOIsNull: Boolean read GetID_PEDIDOIsNull write SetID_PEDIDOIsNull; property ID_PEDIDOIsNull: Boolean read GetID_PEDIDOIsNull write SetID_PEDIDOIsNull;
property REF_PEDIDO: String read GetREF_PEDIDOValue write SetREF_PEDIDOValue; property REF_PEDIDO: String read GetREF_PEDIDOValue write SetREF_PEDIDOValue;
property REF_PEDIDOIsNull: Boolean read GetREF_PEDIDOIsNull write SetREF_PEDIDOIsNull; property REF_PEDIDOIsNull: Boolean read GetREF_PEDIDOIsNull write SetREF_PEDIDOIsNull;
property ID_CONTRATO: Integer read GetID_CONTRATOValue write SetID_CONTRATOValue;
property ID_CONTRATOIsNull: Boolean read GetID_CONTRATOIsNull write SetID_CONTRATOIsNull;
property REF_CONTRATO: String read GetREF_CONTRATOValue write SetREF_CONTRATOValue; property REF_CONTRATO: String read GetREF_CONTRATOValue write SetREF_CONTRATOValue;
property REF_CONTRATOIsNull: Boolean read GetREF_CONTRATOIsNull write SetREF_CONTRATOIsNull; property REF_CONTRATOIsNull: Boolean read GetREF_CONTRATOIsNull write SetREF_CONTRATOIsNull;
property ID_FACTURA: Integer read GetID_FACTURAValue write SetID_FACTURAValue; property ID_FACTURA: Integer read GetID_FACTURAValue write SetID_FACTURAValue;
@ -770,6 +782,8 @@ type
property TIENDAIsNull: Boolean read GetTIENDAIsNull write SetTIENDAIsNull; property TIENDAIsNull: Boolean read GetTIENDAIsNull write SetTIENDAIsNull;
property LISTA_NOMBRES: String read GetLISTA_NOMBRESValue write SetLISTA_NOMBRESValue; property LISTA_NOMBRES: String read GetLISTA_NOMBRESValue write SetLISTA_NOMBRESValue;
property LISTA_NOMBRESIsNull: Boolean read GetLISTA_NOMBRESIsNull write SetLISTA_NOMBRESIsNull; property LISTA_NOMBRESIsNull: Boolean read GetLISTA_NOMBRESIsNull write SetLISTA_NOMBRESIsNull;
property TRABAJOS_INSTALADOR: IROStrings read GetTRABAJOS_INSTALADORValue;
property TRABAJOS_INSTALADORIsNull: Boolean read GetTRABAJOS_INSTALADORIsNull write SetTRABAJOS_INSTALADORIsNull;
public public
constructor Create(aDataTable: TDADataTable); override; constructor Create(aDataTable: TDADataTable); override;
@ -779,7 +793,7 @@ type
{ IAlbaranesCliente_Detalles } { IAlbaranesCliente_Detalles }
IAlbaranesCliente_Detalles = interface(IDAStronglyTypedDataTable) IAlbaranesCliente_Detalles = interface(IDAStronglyTypedDataTable)
['{A6C61208-F037-4EFA-BBBF-1DBC79AF7C44}'] ['{C938586B-A47D-4769-A2B5-BC2C6EDDD33E}']
{ Property getters and setters } { Property getters and setters }
function GetIDValue: Integer; function GetIDValue: Integer;
procedure SetIDValue(const aValue: Integer); procedure SetIDValue(const aValue: Integer);
@ -1019,6 +1033,10 @@ begin
StrList := TStringList.Create; StrList := TStringList.Create;
StrList.OnChange := INCIDENCIAS_OnChange; StrList.OnChange := INCIDENCIAS_OnChange;
f_INCIDENCIAS := NewROStrings(StrList,True); f_INCIDENCIAS := NewROStrings(StrList,True);
StrList := TStringList.Create;
StrList.OnChange := TRABAJOS_INSTALADOR_OnChange;
f_TRABAJOS_INSTALADOR := NewROStrings(StrList,True);
end; end;
destructor TAlbaranesClienteDataTableRules.Destroy; destructor TAlbaranesClienteDataTableRules.Destroy;
@ -1036,25 +1054,9 @@ begin
if DataTable.Editing then DataTable.Fields[idx_AlbaranesClienteINCIDENCIAS].AsVariant := TStringList(Sender).Text; if DataTable.Editing then DataTable.Fields[idx_AlbaranesClienteINCIDENCIAS].AsVariant := TStringList(Sender).Text;
end; end;
function TAlbaranesClienteDataTableRules.GetID_CONTRATOValue: Integer; procedure TAlbaranesClienteDataTableRules.TRABAJOS_INSTALADOR_OnChange(Sender: TObject);
begin begin
result := DataTable.Fields[idx_AlbaranesClienteID_CONTRATO].AsInteger; if DataTable.Editing then DataTable.Fields[idx_AlbaranesClienteTRABAJOS_INSTALADOR].AsVariant := TStringList(Sender).Text;
end;
procedure TAlbaranesClienteDataTableRules.SetID_CONTRATOValue(const aValue: Integer);
begin
DataTable.Fields[idx_AlbaranesClienteID_CONTRATO].AsInteger := aValue;
end;
function TAlbaranesClienteDataTableRules.GetID_CONTRATOIsNull: boolean;
begin
result := DataTable.Fields[idx_AlbaranesClienteID_CONTRATO].IsNull;
end;
procedure TAlbaranesClienteDataTableRules.SetID_CONTRATOIsNull(const aValue: Boolean);
begin
if aValue then
DataTable.Fields[idx_AlbaranesClienteID_CONTRATO].AsVariant := Null;
end; end;
function TAlbaranesClienteDataTableRules.GetIDValue: Integer; function TAlbaranesClienteDataTableRules.GetIDValue: Integer;
@ -1330,6 +1332,27 @@ begin
DataTable.Fields[idx_AlbaranesClienteREF_PEDIDO].AsVariant := Null; DataTable.Fields[idx_AlbaranesClienteREF_PEDIDO].AsVariant := Null;
end; end;
function TAlbaranesClienteDataTableRules.GetID_CONTRATOValue: Integer;
begin
result := DataTable.Fields[idx_AlbaranesClienteID_CONTRATO].AsInteger;
end;
procedure TAlbaranesClienteDataTableRules.SetID_CONTRATOValue(const aValue: Integer);
begin
DataTable.Fields[idx_AlbaranesClienteID_CONTRATO].AsInteger := aValue;
end;
function TAlbaranesClienteDataTableRules.GetID_CONTRATOIsNull: boolean;
begin
result := DataTable.Fields[idx_AlbaranesClienteID_CONTRATO].IsNull;
end;
procedure TAlbaranesClienteDataTableRules.SetID_CONTRATOIsNull(const aValue: Boolean);
begin
if aValue then
DataTable.Fields[idx_AlbaranesClienteID_CONTRATO].AsVariant := Null;
end;
function TAlbaranesClienteDataTableRules.GetREF_CONTRATOValue: String; function TAlbaranesClienteDataTableRules.GetREF_CONTRATOValue: String;
begin begin
result := DataTable.Fields[idx_AlbaranesClienteREF_CONTRATO].AsString; result := DataTable.Fields[idx_AlbaranesClienteREF_CONTRATO].AsString;
@ -2015,6 +2038,23 @@ begin
DataTable.Fields[idx_AlbaranesClienteLISTA_NOMBRES].AsVariant := Null; DataTable.Fields[idx_AlbaranesClienteLISTA_NOMBRES].AsVariant := Null;
end; end;
function TAlbaranesClienteDataTableRules.GetTRABAJOS_INSTALADORValue: IROStrings;
begin
result := f_TRABAJOS_INSTALADOR;
result.Text := DataTable.Fields[idx_AlbaranesClienteTRABAJOS_INSTALADOR].AsString;
end;
function TAlbaranesClienteDataTableRules.GetTRABAJOS_INSTALADORIsNull: boolean;
begin
result := DataTable.Fields[idx_AlbaranesClienteTRABAJOS_INSTALADOR].IsNull;
end;
procedure TAlbaranesClienteDataTableRules.SetTRABAJOS_INSTALADORIsNull(const aValue: Boolean);
begin
if aValue then
DataTable.Fields[idx_AlbaranesClienteTRABAJOS_INSTALADOR].AsVariant := Null;
end;
{ TAlbaranesCliente_DetallesDataTableRules } { TAlbaranesCliente_DetallesDataTableRules }
constructor TAlbaranesCliente_DetallesDataTableRules.Create(aDataTable: TDADataTable); constructor TAlbaranesCliente_DetallesDataTableRules.Create(aDataTable: TDADataTable);

142
Source/Modulos/Albaranes de cliente/Model/schAlbaranesClienteServer_Intf.pas
View File

@ -9,14 +9,14 @@ const
{ Delta rules ids { Delta rules ids
Feel free to change them to something more human readable Feel free to change them to something more human readable
but make sure they are unique in the context of your application } but make sure they are unique in the context of your application }
RID_ListaAnosAlbaranesDelta = '{8B568226-36B4-4CDC-BE4C-BD51DA29AEAF}'; RID_ListaAnosAlbaranesDelta = '{DFB4AC32-D884-4D04-9605-AAC314909FCD}';
RID_AlbaranesClienteDelta = '{2EAD0C36-219E-47BB-8D37-78BD32D11744}'; RID_AlbaranesClienteDelta = '{46FAFC4B-C587-47EE-BF0E-3039F1F746DC}';
RID_AlbaranesCliente_DetallesDelta = '{2ACFBDE5-B171-408C-A739-A72B52566077}'; RID_AlbaranesCliente_DetallesDelta = '{D4709917-AA42-498A-AB7B-304623533C8F}';
type type
{ IListaAnosAlbaranesDelta } { IListaAnosAlbaranesDelta }
IListaAnosAlbaranesDelta = interface(IListaAnosAlbaranes) IListaAnosAlbaranesDelta = interface(IListaAnosAlbaranes)
['{8B568226-36B4-4CDC-BE4C-BD51DA29AEAF}'] ['{DFB4AC32-D884-4D04-9605-AAC314909FCD}']
{ Property getters and setters } { Property getters and setters }
function GetOldANOValue : String; function GetOldANOValue : String;
@ -50,9 +50,8 @@ type
{ IAlbaranesClienteDelta } { IAlbaranesClienteDelta }
IAlbaranesClienteDelta = interface(IAlbaranesCliente) IAlbaranesClienteDelta = interface(IAlbaranesCliente)
['{2EAD0C36-219E-47BB-8D37-78BD32D11744}'] ['{46FAFC4B-C587-47EE-BF0E-3039F1F746DC}']
{ Property getters and setters } { Property getters and setters }
function GetOldID_CONTRATOValue : Integer;
function GetOldIDValue : Integer; function GetOldIDValue : Integer;
function GetOldID_EMPRESAValue : Integer; function GetOldID_EMPRESAValue : Integer;
function GetOldID_CLIENTEValue : Integer; function GetOldID_CLIENTEValue : Integer;
@ -66,6 +65,7 @@ type
function GetOldNOMBRE_ALMACENValue : String; function GetOldNOMBRE_ALMACENValue : String;
function GetOldID_PEDIDOValue : Integer; function GetOldID_PEDIDOValue : Integer;
function GetOldREF_PEDIDOValue : String; function GetOldREF_PEDIDOValue : String;
function GetOldID_CONTRATOValue : Integer;
function GetOldREF_CONTRATOValue : String; function GetOldREF_CONTRATOValue : String;
function GetOldID_FACTURAValue : Integer; function GetOldID_FACTURAValue : Integer;
function GetOldREF_FACTURAValue : String; function GetOldREF_FACTURAValue : String;
@ -99,9 +99,9 @@ type
function GetOldID_TIENDAValue : Integer; function GetOldID_TIENDAValue : Integer;
function GetOldTIENDAValue : String; function GetOldTIENDAValue : String;
function GetOldLISTA_NOMBRESValue : String; function GetOldLISTA_NOMBRESValue : String;
function GetOldTRABAJOS_INSTALADORValue : IROStrings;
{ Properties } { Properties }
property OldID_CONTRATO : Integer read GetOldID_CONTRATOValue;
property OldID : Integer read GetOldIDValue; property OldID : Integer read GetOldIDValue;
property OldID_EMPRESA : Integer read GetOldID_EMPRESAValue; property OldID_EMPRESA : Integer read GetOldID_EMPRESAValue;
property OldID_CLIENTE : Integer read GetOldID_CLIENTEValue; property OldID_CLIENTE : Integer read GetOldID_CLIENTEValue;
@ -115,6 +115,7 @@ type
property OldNOMBRE_ALMACEN : String read GetOldNOMBRE_ALMACENValue; property OldNOMBRE_ALMACEN : String read GetOldNOMBRE_ALMACENValue;
property OldID_PEDIDO : Integer read GetOldID_PEDIDOValue; property OldID_PEDIDO : Integer read GetOldID_PEDIDOValue;
property OldREF_PEDIDO : String read GetOldREF_PEDIDOValue; property OldREF_PEDIDO : String read GetOldREF_PEDIDOValue;
property OldID_CONTRATO : Integer read GetOldID_CONTRATOValue;
property OldREF_CONTRATO : String read GetOldREF_CONTRATOValue; property OldREF_CONTRATO : String read GetOldREF_CONTRATOValue;
property OldID_FACTURA : Integer read GetOldID_FACTURAValue; property OldID_FACTURA : Integer read GetOldID_FACTURAValue;
property OldREF_FACTURA : String read GetOldREF_FACTURAValue; property OldREF_FACTURA : String read GetOldREF_FACTURAValue;
@ -148,6 +149,7 @@ type
property OldID_TIENDA : Integer read GetOldID_TIENDAValue; property OldID_TIENDA : Integer read GetOldID_TIENDAValue;
property OldTIENDA : String read GetOldTIENDAValue; property OldTIENDA : String read GetOldTIENDAValue;
property OldLISTA_NOMBRES : String read GetOldLISTA_NOMBRESValue; property OldLISTA_NOMBRES : String read GetOldLISTA_NOMBRESValue;
property OldTRABAJOS_INSTALADOR : IROStrings read GetOldTRABAJOS_INSTALADORValue;
end; end;
{ TAlbaranesClienteBusinessProcessorRules } { TAlbaranesClienteBusinessProcessorRules }
@ -155,16 +157,12 @@ type
private private
f_OBSERVACIONES: IROStrings; f_OBSERVACIONES: IROStrings;
f_INCIDENCIAS: IROStrings; f_INCIDENCIAS: IROStrings;
f_TRABAJOS_INSTALADOR: IROStrings;
procedure OBSERVACIONES_OnChange(Sender: TObject); procedure OBSERVACIONES_OnChange(Sender: TObject);
procedure INCIDENCIAS_OnChange(Sender: TObject); procedure INCIDENCIAS_OnChange(Sender: TObject);
procedure TRABAJOS_INSTALADOR_OnChange(Sender: TObject);
protected protected
{ Property getters and setters } { Property getters and setters }
function GetID_CONTRATOValue: Integer; virtual;
function GetID_CONTRATOIsNull: Boolean; virtual;
function GetOldID_CONTRATOValue: Integer; virtual;
function GetOldID_CONTRATOIsNull: Boolean; virtual;
procedure SetID_CONTRATOValue(const aValue: Integer); virtual;
procedure SetID_CONTRATOIsNull(const aValue: Boolean); virtual;
function GetIDValue: Integer; virtual; function GetIDValue: Integer; virtual;
function GetIDIsNull: Boolean; virtual; function GetIDIsNull: Boolean; virtual;
function GetOldIDValue: Integer; virtual; function GetOldIDValue: Integer; virtual;
@ -243,6 +241,12 @@ type
function GetOldREF_PEDIDOIsNull: Boolean; virtual; function GetOldREF_PEDIDOIsNull: Boolean; virtual;
procedure SetREF_PEDIDOValue(const aValue: String); virtual; procedure SetREF_PEDIDOValue(const aValue: String); virtual;
procedure SetREF_PEDIDOIsNull(const aValue: Boolean); virtual; procedure SetREF_PEDIDOIsNull(const aValue: Boolean); virtual;
function GetID_CONTRATOValue: Integer; virtual;
function GetID_CONTRATOIsNull: Boolean; virtual;
function GetOldID_CONTRATOValue: Integer; virtual;
function GetOldID_CONTRATOIsNull: Boolean; virtual;
procedure SetID_CONTRATOValue(const aValue: Integer); virtual;
procedure SetID_CONTRATOIsNull(const aValue: Boolean); virtual;
function GetREF_CONTRATOValue: String; virtual; function GetREF_CONTRATOValue: String; virtual;
function GetREF_CONTRATOIsNull: Boolean; virtual; function GetREF_CONTRATOIsNull: Boolean; virtual;
function GetOldREF_CONTRATOValue: String; virtual; function GetOldREF_CONTRATOValue: String; virtual;
@ -439,12 +443,13 @@ type
function GetOldLISTA_NOMBRESIsNull: Boolean; virtual; function GetOldLISTA_NOMBRESIsNull: Boolean; virtual;
procedure SetLISTA_NOMBRESValue(const aValue: String); virtual; procedure SetLISTA_NOMBRESValue(const aValue: String); virtual;
procedure SetLISTA_NOMBRESIsNull(const aValue: Boolean); virtual; procedure SetLISTA_NOMBRESIsNull(const aValue: Boolean); virtual;
function GetTRABAJOS_INSTALADORValue: IROStrings; virtual;
function GetTRABAJOS_INSTALADORIsNull: Boolean; virtual;
function GetOldTRABAJOS_INSTALADORValue: IROStrings; virtual;
function GetOldTRABAJOS_INSTALADORIsNull: Boolean; virtual;
procedure SetTRABAJOS_INSTALADORIsNull(const aValue: Boolean); virtual;
{ Properties } { Properties }
property ID_CONTRATO : Integer read GetID_CONTRATOValue write SetID_CONTRATOValue;
property ID_CONTRATOIsNull : Boolean read GetID_CONTRATOIsNull write SetID_CONTRATOIsNull;
property OldID_CONTRATO : Integer read GetOldID_CONTRATOValue;
property OldID_CONTRATOIsNull : Boolean read GetOldID_CONTRATOIsNull;
property ID : Integer read GetIDValue write SetIDValue; property ID : Integer read GetIDValue write SetIDValue;
property IDIsNull : Boolean read GetIDIsNull write SetIDIsNull; property IDIsNull : Boolean read GetIDIsNull write SetIDIsNull;
property OldID : Integer read GetOldIDValue; property OldID : Integer read GetOldIDValue;
@ -497,6 +502,10 @@ type
property REF_PEDIDOIsNull : Boolean read GetREF_PEDIDOIsNull write SetREF_PEDIDOIsNull; property REF_PEDIDOIsNull : Boolean read GetREF_PEDIDOIsNull write SetREF_PEDIDOIsNull;
property OldREF_PEDIDO : String read GetOldREF_PEDIDOValue; property OldREF_PEDIDO : String read GetOldREF_PEDIDOValue;
property OldREF_PEDIDOIsNull : Boolean read GetOldREF_PEDIDOIsNull; property OldREF_PEDIDOIsNull : Boolean read GetOldREF_PEDIDOIsNull;
property ID_CONTRATO : Integer read GetID_CONTRATOValue write SetID_CONTRATOValue;
property ID_CONTRATOIsNull : Boolean read GetID_CONTRATOIsNull write SetID_CONTRATOIsNull;
property OldID_CONTRATO : Integer read GetOldID_CONTRATOValue;
property OldID_CONTRATOIsNull : Boolean read GetOldID_CONTRATOIsNull;
property REF_CONTRATO : String read GetREF_CONTRATOValue write SetREF_CONTRATOValue; property REF_CONTRATO : String read GetREF_CONTRATOValue write SetREF_CONTRATOValue;
property REF_CONTRATOIsNull : Boolean read GetREF_CONTRATOIsNull write SetREF_CONTRATOIsNull; property REF_CONTRATOIsNull : Boolean read GetREF_CONTRATOIsNull write SetREF_CONTRATOIsNull;
property OldREF_CONTRATO : String read GetOldREF_CONTRATOValue; property OldREF_CONTRATO : String read GetOldREF_CONTRATOValue;
@ -629,6 +638,10 @@ type
property LISTA_NOMBRESIsNull : Boolean read GetLISTA_NOMBRESIsNull write SetLISTA_NOMBRESIsNull; property LISTA_NOMBRESIsNull : Boolean read GetLISTA_NOMBRESIsNull write SetLISTA_NOMBRESIsNull;
property OldLISTA_NOMBRES : String read GetOldLISTA_NOMBRESValue; property OldLISTA_NOMBRES : String read GetOldLISTA_NOMBRESValue;
property OldLISTA_NOMBRESIsNull : Boolean read GetOldLISTA_NOMBRESIsNull; property OldLISTA_NOMBRESIsNull : Boolean read GetOldLISTA_NOMBRESIsNull;
property TRABAJOS_INSTALADOR : IROStrings read GetTRABAJOS_INSTALADORValue;
property TRABAJOS_INSTALADORIsNull : Boolean read GetTRABAJOS_INSTALADORIsNull write SetTRABAJOS_INSTALADORIsNull;
property OldTRABAJOS_INSTALADOR : IROStrings read GetOldTRABAJOS_INSTALADORValue;
property OldTRABAJOS_INSTALADORIsNull : Boolean read GetOldTRABAJOS_INSTALADORIsNull;
public public
constructor Create(aBusinessProcessor: TDABusinessProcessor); override; constructor Create(aBusinessProcessor: TDABusinessProcessor); override;
@ -638,7 +651,7 @@ type
{ IAlbaranesCliente_DetallesDelta } { IAlbaranesCliente_DetallesDelta }
IAlbaranesCliente_DetallesDelta = interface(IAlbaranesCliente_Detalles) IAlbaranesCliente_DetallesDelta = interface(IAlbaranesCliente_Detalles)
['{2ACFBDE5-B171-408C-A739-A72B52566077}'] ['{D4709917-AA42-498A-AB7B-304623533C8F}']
{ Property getters and setters } { Property getters and setters }
function GetOldIDValue : Integer; function GetOldIDValue : Integer;
function GetOldID_ALBARANValue : Integer; function GetOldID_ALBARANValue : Integer;
@ -888,6 +901,10 @@ begin
StrList := TStringList.Create; StrList := TStringList.Create;
StrList.OnChange := INCIDENCIAS_OnChange; StrList.OnChange := INCIDENCIAS_OnChange;
f_INCIDENCIAS := NewROStrings(StrList,True); f_INCIDENCIAS := NewROStrings(StrList,True);
StrList := TStringList.Create;
StrList.OnChange := TRABAJOS_INSTALADOR_OnChange;
f_TRABAJOS_INSTALADOR := NewROStrings(StrList,True);
end; end;
destructor TAlbaranesClienteBusinessProcessorRules.Destroy; destructor TAlbaranesClienteBusinessProcessorRules.Destroy;
@ -905,35 +922,9 @@ begin
BusinessProcessor.CurrentChange.NewValueByName[fld_AlbaranesClienteINCIDENCIAS] := TStringList(Sender).Text; BusinessProcessor.CurrentChange.NewValueByName[fld_AlbaranesClienteINCIDENCIAS] := TStringList(Sender).Text;
end; end;
function TAlbaranesClienteBusinessProcessorRules.GetID_CONTRATOValue: Integer; procedure TAlbaranesClienteBusinessProcessorRules.TRABAJOS_INSTALADOR_OnChange(Sender: TObject);
begin begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_AlbaranesClienteID_CONTRATO]; BusinessProcessor.CurrentChange.NewValueByName[fld_AlbaranesClienteTRABAJOS_INSTALADOR] := TStringList(Sender).Text;
end;
function TAlbaranesClienteBusinessProcessorRules.GetID_CONTRATOIsNull: Boolean;
begin
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_AlbaranesClienteID_CONTRATO]);
end;
function TAlbaranesClienteBusinessProcessorRules.GetOldID_CONTRATOValue: Integer;
begin
result := BusinessProcessor.CurrentChange.OldValueByName[fld_AlbaranesClienteID_CONTRATO];
end;
function TAlbaranesClienteBusinessProcessorRules.GetOldID_CONTRATOIsNull: Boolean;
begin
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_AlbaranesClienteID_CONTRATO]);
end;
procedure TAlbaranesClienteBusinessProcessorRules.SetID_CONTRATOValue(const aValue: Integer);
begin
BusinessProcessor.CurrentChange.NewValueByName[fld_AlbaranesClienteID_CONTRATO] := aValue;
end;
procedure TAlbaranesClienteBusinessProcessorRules.SetID_CONTRATOIsNull(const aValue: Boolean);
begin
if aValue then
BusinessProcessor.CurrentChange.NewValueByName[fld_AlbaranesClienteID_CONTRATO] := Null;
end; end;
function TAlbaranesClienteBusinessProcessorRules.GetIDValue: Integer; function TAlbaranesClienteBusinessProcessorRules.GetIDValue: Integer;
@ -1339,6 +1330,37 @@ begin
BusinessProcessor.CurrentChange.NewValueByName[fld_AlbaranesClienteREF_PEDIDO] := Null; BusinessProcessor.CurrentChange.NewValueByName[fld_AlbaranesClienteREF_PEDIDO] := Null;
end; end;
function TAlbaranesClienteBusinessProcessorRules.GetID_CONTRATOValue: Integer;
begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_AlbaranesClienteID_CONTRATO];
end;
function TAlbaranesClienteBusinessProcessorRules.GetID_CONTRATOIsNull: Boolean;
begin
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_AlbaranesClienteID_CONTRATO]);
end;
function TAlbaranesClienteBusinessProcessorRules.GetOldID_CONTRATOValue: Integer;
begin
result := BusinessProcessor.CurrentChange.OldValueByName[fld_AlbaranesClienteID_CONTRATO];
end;
function TAlbaranesClienteBusinessProcessorRules.GetOldID_CONTRATOIsNull: Boolean;
begin
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_AlbaranesClienteID_CONTRATO]);
end;
procedure TAlbaranesClienteBusinessProcessorRules.SetID_CONTRATOValue(const aValue: Integer);
begin
BusinessProcessor.CurrentChange.NewValueByName[fld_AlbaranesClienteID_CONTRATO] := aValue;
end;
procedure TAlbaranesClienteBusinessProcessorRules.SetID_CONTRATOIsNull(const aValue: Boolean);
begin
if aValue then
BusinessProcessor.CurrentChange.NewValueByName[fld_AlbaranesClienteID_CONTRATO] := Null;
end;
function TAlbaranesClienteBusinessProcessorRules.GetREF_CONTRATOValue: String; function TAlbaranesClienteBusinessProcessorRules.GetREF_CONTRATOValue: String;
begin begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_AlbaranesClienteREF_CONTRATO]; result := BusinessProcessor.CurrentChange.NewValueByName[fld_AlbaranesClienteREF_CONTRATO];
@ -2356,6 +2378,34 @@ begin
BusinessProcessor.CurrentChange.NewValueByName[fld_AlbaranesClienteLISTA_NOMBRES] := Null; BusinessProcessor.CurrentChange.NewValueByName[fld_AlbaranesClienteLISTA_NOMBRES] := Null;
end; end;
function TAlbaranesClienteBusinessProcessorRules.GetTRABAJOS_INSTALADORValue: IROStrings;
begin
result := f_TRABAJOS_INSTALADOR;
result.Text := BusinessProcessor.CurrentChange.NewValueByName[fld_AlbaranesClienteTRABAJOS_INSTALADOR];
end;
function TAlbaranesClienteBusinessProcessorRules.GetTRABAJOS_INSTALADORIsNull: Boolean;
begin
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_AlbaranesClienteTRABAJOS_INSTALADOR]);
end;
function TAlbaranesClienteBusinessProcessorRules.GetOldTRABAJOS_INSTALADORValue: IROStrings;
begin
result := NewROStrings();
result.Text := BusinessProcessor.CurrentChange.OldValueByName[fld_AlbaranesClienteTRABAJOS_INSTALADOR];
end;
function TAlbaranesClienteBusinessProcessorRules.GetOldTRABAJOS_INSTALADORIsNull: Boolean;
begin
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_AlbaranesClienteTRABAJOS_INSTALADOR]);
end;
procedure TAlbaranesClienteBusinessProcessorRules.SetTRABAJOS_INSTALADORIsNull(const aValue: Boolean);
begin
if aValue then
BusinessProcessor.CurrentChange.NewValueByName[fld_AlbaranesClienteTRABAJOS_INSTALADOR] := Null;
end;
{ TAlbaranesCliente_DetallesBusinessProcessorRules } { TAlbaranesCliente_DetallesBusinessProcessorRules }
constructor TAlbaranesCliente_DetallesBusinessProcessorRules.Create(aBusinessProcessor: TDABusinessProcessor); constructor TAlbaranesCliente_DetallesBusinessProcessorRules.Create(aBusinessProcessor: TDABusinessProcessor);

39
Source/Modulos/Albaranes de cliente/Reports/uRptAlbaranesCliente_Server.dfm
View File

@ -164,6 +164,14 @@ object RptAlbaranesCliente: TRptAlbaranesCliente
Name = 'PAGINA_WEB_EMPRESA' Name = 'PAGINA_WEB_EMPRESA'
DataType = datString DataType = datString
Size = 255 Size = 255
end
item
Name = 'INCIDENCIAS'
DataType = datMemo
end
item
Name = 'TRABAJOS_INSTALADOR'
DataType = datMemo
end> end>
Params = < Params = <
item item
@ -319,12 +327,13 @@ object RptAlbaranesCliente: TRptAlbaranesCliente
'RESAS.PROVINCIA AS PROVINCIA_EMPRESA,'#10' EMPRESAS.TELEFONO_1 AS T' + 'RESAS.PROVINCIA AS PROVINCIA_EMPRESA,'#10' EMPRESAS.TELEFONO_1 AS T' +
'ELEFONO_1_EMPRESA,'#10' EMPRESAS.FAX AS FAX_EMPRESA,'#10' EMPRESAS.MOV' + 'ELEFONO_1_EMPRESA,'#10' EMPRESAS.FAX AS FAX_EMPRESA,'#10' EMPRESAS.MOV' +
'IL_1 AS MOVIL_1_EMPRESA,'#10' EMPRESAS.EMAIL_1 AS EMAIL_1_EMPRESA,'#10 + 'IL_1 AS MOVIL_1_EMPRESA,'#10' EMPRESAS.EMAIL_1 AS EMAIL_1_EMPRESA,'#10 +
' EMPRESAS.PAGINA_WEB AS PAGINA_WEB_EMPRESA'#10'FROM'#10' ALBARANES_CLI' + ' EMPRESAS.PAGINA_WEB AS PAGINA_WEB_EMPRESA,'#10' ALBARANES_CLIENTE' +
'ENTE'#10' INNER JOIN EMPRESAS ON (EMPRESAS.ID = ALBARANES_CLIENTE.I' + '.INCIDENCIAS,'#10' ALBARANES_CLIENTE.TRABAJOS_INSTALADOR'#10'FROM'#10' ALB' +
'D_EMPRESA)'#10' INNER JOIN CONTACTOS ON (CONTACTOS.ID = ALBARANES_C' + 'ARANES_CLIENTE'#10' INNER JOIN EMPRESAS ON (EMPRESAS.ID = ALBARANES' +
'LIENTE.ID_CLIENTE)'#10' LEFT OUTER JOIN CONTACTOS_DIRECCIONES ON (C' + '_CLIENTE.ID_EMPRESA)'#10' INNER JOIN CONTACTOS ON (CONTACTOS.ID = A' +
'ONTACTOS_DIRECCIONES.ID = ALBARANES_CLIENTE.ID_DIRECCION)'#10'WHERE ' + 'LBARANES_CLIENTE.ID_CLIENTE)'#10' LEFT OUTER JOIN CONTACTOS_DIRECCI' +
'ALBARANES_CLIENTE.ID = :ID'#10 'ONES ON (CONTACTOS_DIRECCIONES.ID = ALBARANES_CLIENTE.ID_DIRECCI' +
'ON)'#10'WHERE ALBARANES_CLIENTE.ID = :ID'#10
StatementType = stSQL StatementType = stSQL
ColumnMappings = < ColumnMappings = <
item item
@ -452,6 +461,14 @@ object RptAlbaranesCliente: TRptAlbaranesCliente
DatasetField = 'MOVIL' DatasetField = 'MOVIL'
TableField = '<unknown>' TableField = '<unknown>'
SQLOrigin = 'MOVIL' SQLOrigin = 'MOVIL'
end
item
DatasetField = 'INCIDENCIAS'
TableField = 'INCIDENCIAS'
end
item
DatasetField = 'TRABAJOS_INSTALADOR'
TableField = 'TRABAJOS_INSTALADOR'
end> end>
end> end>
Name = 'Informe_Cabecera' Name = 'Informe_Cabecera'
@ -602,6 +619,14 @@ object RptAlbaranesCliente: TRptAlbaranesCliente
Name = 'PAGINA_WEB_EMPRESA' Name = 'PAGINA_WEB_EMPRESA'
DataType = datString DataType = datString
Size = 255 Size = 255
end
item
Name = 'INCIDENCIAS'
DataType = datMemo
end
item
Name = 'TRABAJOS_INSTALADOR'
DataType = datMemo
end> end>
end end
item item
@ -1075,7 +1100,7 @@ object RptAlbaranesCliente: TRptAlbaranesCliente
PrintOptions.Printer = 'Default' PrintOptions.Printer = 'Default'
PrintOptions.PrintOnSheet = 0 PrintOptions.PrintOnSheet = 0
ReportOptions.CreateDate = 37871.995398692100000000 ReportOptions.CreateDate = 37871.995398692100000000
ReportOptions.LastChange = 42583.535851493060000000 ReportOptions.LastChange = 44795.515802407400000000
ReportOptions.VersionBuild = '1' ReportOptions.VersionBuild = '1'
ReportOptions.VersionMajor = '12' ReportOptions.VersionMajor = '12'
ReportOptions.VersionMinor = '13' ReportOptions.VersionMinor = '13'

18
Source/Modulos/Albaranes de cliente/Reports/uRptAlbaranesCliente_Server.pas
View File

@ -37,11 +37,13 @@ type
private private
FConnection: IDAConnection; FConnection: IDAConnection;
FVerPrecios: Boolean; FVerPrecios: Boolean;
FVerTrabajos: Boolean;
FVerIncidencias: Boolean;
//Genera cada uno de los albaranes a imprimir //Genera cada uno de los albaranes a imprimir
procedure _GenerarAlbaran(const ID: Integer); procedure _GenerarAlbaran(const ID: Integer);
public public
function GenerarAlbaran(const ListaID : TIntegerArray; const VerPrecios: Boolean): Binary; function GenerarAlbaran(const ListaID : TIntegerArray; const VerPrecios: Boolean; const VerTrabajos: Boolean; const VerIncidencias: Boolean): Binary;
function GenerarAlbaranEnPDF(const ListaID : TIntegerArray; const VerPrecios: Boolean): Binary; function GenerarAlbaranEnPDF(const ListaID : TIntegerArray; const VerPrecios: Boolean; const VerTrabajos: Boolean; const VerIncidencias: Boolean): Binary;
function GenerarEtiquetas(const AID : Integer; withRefCliente: Boolean): Binary; function GenerarEtiquetas(const AID : Integer; withRefCliente: Boolean): Binary;
end; end;
@ -73,13 +75,15 @@ begin
end; end;
function TRptAlbaranesCliente.GenerarAlbaran(const ListaID : TIntegerArray; const VerPrecios: Boolean): Binary; function TRptAlbaranesCliente.GenerarAlbaran(const ListaID : TIntegerArray; const VerPrecios: Boolean; const VerTrabajos: Boolean; const VerIncidencias: Boolean): Binary;
var var
i: Integer; i: Integer;
begin begin
Result := Binary.Create; Result := Binary.Create;
//Inicializamos parametros //Inicializamos parametros
FVerPrecios := VerPrecios; FVerPrecios := VerPrecios;
FVerTrabajos := VerTrabajos;
FVerIncidencias := VerIncidencias;
//Vamos generando todos y cada uno de los presupuestos recibidos //Vamos generando todos y cada uno de los presupuestos recibidos
for i := 0 to ListaID.Count - 1 do for i := 0 to ListaID.Count - 1 do
@ -88,13 +92,15 @@ begin
frxReport.PreviewPages.SaveToStream(Result); frxReport.PreviewPages.SaveToStream(Result);
end; end;
function TRptAlbaranesCliente.GenerarAlbaranEnPDF(const ListaID: TIntegerArray; const VerPrecios: Boolean): Binary; function TRptAlbaranesCliente.GenerarAlbaranEnPDF(const ListaID: TIntegerArray; const VerPrecios: Boolean; const VerTrabajos: Boolean; const VerIncidencias: Boolean): Binary;
var var
i: Integer; i: Integer;
begin begin
Result := Binary.Create; Result := Binary.Create;
//Inicializamos parametros //Inicializamos parametros
FVerPrecios := VerPrecios; FVerPrecios := VerPrecios;
FVerTrabajos := VerTrabajos;
FVerIncidencias := VerIncidencias;
//Vamos generando todos y cada uno de los presupuestos recibidos //Vamos generando todos y cada uno de los presupuestos recibidos
for i := 0 to ListaID.Count - 1 do for i := 0 to ListaID.Count - 1 do
@ -125,7 +131,9 @@ begin
raise Exception.Create (('Error Servidor: _GenerarAlbaran, no encuentra informe' + rptInfAlbaran)); raise Exception.Create (('Error Servidor: _GenerarAlbaran, no encuentra informe' + rptInfAlbaran));
frxReport.LoadFromFile(AInforme, True); frxReport.LoadFromFile(AInforme, True);
frxReport.Variables.Variables['VerPrecios'] := FVerPrecios; frxReport.Variables.Variables['VerPrecios'] := FVerPrecios;
frxReport.Variables.Variables['VerTrabajos'] := FVerTrabajos;
frxReport.Variables.Variables['VerIncidencias'] := FVerIncidencias;
frxReport.ReportOptions.Name := 'Albarán de cliente ' + tbl_Cabecera.FieldByName('REFERENCIA').AsString; frxReport.ReportOptions.Name := 'Albarán de cliente ' + tbl_Cabecera.FieldByName('REFERENCIA').AsString;
frxReport.PrepareReport(False); frxReport.PrepareReport(False);
finally finally

66
Source/Modulos/Albaranes de cliente/Servidor/srvAlbaranesCliente_Impl.dfm
View File

@ -235,15 +235,14 @@ object srvAlbaranesCliente: TsrvAlbaranesCliente
item item
DatasetField = 'LISTA_NOMBRES' DatasetField = 'LISTA_NOMBRES'
TableField = 'LISTA_NOMBRES' TableField = 'LISTA_NOMBRES'
end
item
DatasetField = 'TRABAJOS_INSTALADOR'
TableField = 'TRABAJOS_INSTALADOR'
end> end>
end> end>
Name = 'AlbaranesCliente' Name = 'AlbaranesCliente'
Fields = < Fields = <
item
Name = 'ID_CONTRATO'
DataType = datInteger
DictionaryEntry = 'AlbaranesCliente_ID_CONTRATO'
end
item item
Name = 'ID' Name = 'ID'
DataType = datAutoInc DataType = datAutoInc
@ -321,6 +320,11 @@ object srvAlbaranesCliente: TsrvAlbaranesCliente
Size = 255 Size = 255
DictionaryEntry = 'AlbaranesCliente_REF_PEDIDO' DictionaryEntry = 'AlbaranesCliente_REF_PEDIDO'
end end
item
Name = 'ID_CONTRATO'
DataType = datInteger
DictionaryEntry = 'AlbaranesCliente_ID_CONTRATO'
end
item item
Name = 'REF_CONTRATO' Name = 'REF_CONTRATO'
DataType = datString DataType = datString
@ -504,6 +508,10 @@ object srvAlbaranesCliente: TsrvAlbaranesCliente
DataType = datString DataType = datString
Size = 255 Size = 255
DictionaryEntry = 'AlbaranesCliente_LISTA_NOMBRES' DictionaryEntry = 'AlbaranesCliente_LISTA_NOMBRES'
end
item
Name = 'TRABAJOS_INSTALADOR'
DataType = datMemo
end> end>
end end
item item
@ -718,12 +726,12 @@ object srvAlbaranesCliente: TsrvAlbaranesCliente
Value = '' Value = ''
end end
item item
Name = 'ID_CONTRATO' Name = 'ID_FACTURA'
DataType = datInteger DataType = datInteger
Value = '' Value = ''
end end
item item
Name = 'ID_FACTURA' Name = 'ID_CONTRATO'
DataType = datInteger DataType = datInteger
Value = '' Value = ''
end end
@ -859,6 +867,11 @@ object srvAlbaranesCliente: TsrvAlbaranesCliente
Name = 'ID_TIENDA' Name = 'ID_TIENDA'
DataType = datInteger DataType = datInteger
Value = '' Value = ''
end
item
Name = 'TRABAJOS_INSTALADOR'
DataType = datMemo
Value = ''
end> end>
Statements = < Statements = <
item item
@ -874,16 +887,17 @@ object srvAlbaranesCliente: TsrvAlbaranesCliente
'E_DESCUENTO,'#10' BASE_IMPONIBLE, IVA, IMPORTE_IVA, IMPORTE_TOTA' + 'E_DESCUENTO,'#10' BASE_IMPONIBLE, IVA, IMPORTE_IVA, IMPORTE_TOTA' +
'L, OBSERVACIONES, '#10' INCIDENCIAS, INCIDENCIAS_ACTIVAS, FECHA_' + 'L, OBSERVACIONES, '#10' INCIDENCIAS, INCIDENCIAS_ACTIVAS, FECHA_' +
'ALTA,'#10' USUARIO, ID_FORMA_PAGO, FECHA_PREVISTA_ENVIO, FECHA_E' + 'ALTA,'#10' USUARIO, ID_FORMA_PAGO, FECHA_PREVISTA_ENVIO, FECHA_E' +
'NVIO, '#10' FECHA_RECEPCION, ID_TIENDA)'#10' VALUES'#10' (:ID, :ID_E' + 'NVIO, '#10' FECHA_RECEPCION, ID_TIENDA, TRABAJOS_INSTALADOR)'#10' V' +
'MPRESA, :ID_CLIENTE, :FECHA_ALBARAN, :TIPO, :REFERENCIA,'#10' :R' + 'ALUES'#10' (:ID, :ID_EMPRESA, :ID_CLIENTE, :FECHA_ALBARAN, :TIPO,' +
'EFERENCIA_CLIENTE, :ID_ALMACEN, :ID_PEDIDO, :ID_FACTURA, :ID_CON' + ' :REFERENCIA,'#10' :REFERENCIA_CLIENTE, :ID_ALMACEN, :ID_PEDIDO,' +
'TRATO, :ID_DIRECCION,'#10' :CALLE, :CODIGO_POSTAL, :POBLACION, :' + ' :ID_FACTURA, :ID_CONTRATO, :ID_DIRECCION,'#10' :CALLE, :CODIGO_' +
'PROVINCIA, :PERSONA_CONTACTO,'#10' :TELEFONO, :MOVIL, :IMPORTE_N' + 'POSTAL, :POBLACION, :PROVINCIA, :PERSONA_CONTACTO,'#10' :TELEFON' +
'ETO, :IMPORTE_PORTE, :DESCUENTO, :IMPORTE_DESCUENTO,'#10' :BASE_' + 'O, :MOVIL, :IMPORTE_NETO, :IMPORTE_PORTE, :DESCUENTO, :IMPORTE_D' +
'IMPONIBLE, :IVA, :IMPORTE_IVA, :IMPORTE_TOTAL, :OBSERVACIONES,'#10' ' + 'ESCUENTO,'#10' :BASE_IMPONIBLE, :IVA, :IMPORTE_IVA, :IMPORTE_TOT' +
' :INCIDENCIAS, :INCIDENCIAS_ACTIVAS, CURRENT_TIMESTAMP,'#10' ' + 'AL, :OBSERVACIONES,'#10' :INCIDENCIAS, :INCIDENCIAS_ACTIVAS, CUR' +
':USUARIO, :ID_FORMA_PAGO, :FECHA_PREVISTA_ENVIO, :FECHA_ENVIO, :' + 'RENT_TIMESTAMP,'#10' :USUARIO, :ID_FORMA_PAGO, :FECHA_PREVISTA_E' +
'FECHA_RECEPCION,'#10' :ID_TIENDA)'#10' '#10' '#10#10 'NVIO, :FECHA_ENVIO, :FECHA_RECEPCION,'#10' :ID_TIENDA, :TRABAJOS' +
'_INSTALADOR)'#10' '#10' '#10#10
StatementType = stSQL StatementType = stSQL
ColumnMappings = <> ColumnMappings = <>
end> end>
@ -908,11 +922,6 @@ object srvAlbaranesCliente: TsrvAlbaranesCliente
end end
item item
Params = < Params = <
item
Name = 'ID_CONTRATO'
DataType = datInteger
Value = ''
end
item item
Name = 'ID_EMPRESA' Name = 'ID_EMPRESA'
DataType = datInteger DataType = datInteger
@ -961,6 +970,11 @@ object srvAlbaranesCliente: TsrvAlbaranesCliente
DataType = datInteger DataType = datInteger
Value = '' Value = ''
end end
item
Name = 'ID_CONTRATO'
DataType = datInteger
Value = ''
end
item item
Name = 'ID_DIRECCION' Name = 'ID_DIRECCION'
DataType = datInteger DataType = datInteger
@ -1094,6 +1108,11 @@ object srvAlbaranesCliente: TsrvAlbaranesCliente
DataType = datInteger DataType = datInteger
Value = '' Value = ''
end end
item
Name = 'TRABAJOS_INSTALADOR'
DataType = datMemo
Value = ''
end
item item
Name = 'OLD_ID' Name = 'OLD_ID'
Value = '' Value = ''
@ -1123,7 +1142,8 @@ object srvAlbaranesCliente: TsrvAlbaranesCliente
'SUARIO = :USUARIO, '#10' ID_FORMA_PAGO = :ID_FORMA_PAGO, '#10' FEC' + 'SUARIO = :USUARIO, '#10' ID_FORMA_PAGO = :ID_FORMA_PAGO, '#10' FEC' +
'HA_PREVISTA_ENVIO = :FECHA_PREVISTA_ENVIO, '#10' FECHA_ENVIO = :F' + 'HA_PREVISTA_ENVIO = :FECHA_PREVISTA_ENVIO, '#10' FECHA_ENVIO = :F' +
'ECHA_ENVIO, '#10' FECHA_RECEPCION = :FECHA_RECEPCION,'#10' ID_TIEN' + 'ECHA_ENVIO, '#10' FECHA_RECEPCION = :FECHA_RECEPCION,'#10' ID_TIEN' +
'DA = :ID_TIENDA'#10' WHERE'#10' (ID = :OLD_ID)'#10 'DA = :ID_TIENDA,'#10' TRABAJOS_INSTALADOR = :TRABAJOS_INSTALADOR'#10 +
' WHERE'#10' (ID = :OLD_ID)'#10
StatementType = stSQL StatementType = stSQL
ColumnMappings = <> ColumnMappings = <>
end> end>

6
Source/Modulos/Albaranes de cliente/Servidor/srvAlbaranesCliente_Impl.pas
View File

@ -32,7 +32,7 @@ type
procedure DARemoteServiceCreate(Sender: TObject); procedure DARemoteServiceCreate(Sender: TObject);
protected protected
{ IsrvAlbaranesCliente methods } { IsrvAlbaranesCliente methods }
function GenerarInforme(const ListaID: TIntegerArray; const VerPrecios: Boolean): Binary; function GenerarInforme(const ListaID: TIntegerArray; const VerPrecios: Boolean; const VerTrabajos: Boolean; const VerIncidencias: Boolean): Binary;
function GenerarInformeEtiquetas(const ID: Integer; const withRefCliente: Boolean): Binary; function GenerarInformeEtiquetas(const ID: Integer; const withRefCliente: Boolean): Binary;
end; end;
@ -81,13 +81,13 @@ begin
ConnectionName := dmServer.ConnectionName; ConnectionName := dmServer.ConnectionName;
end; end;
function TsrvAlbaranesCliente.GenerarInforme(const ListaID: TIntegerArray; const VerPrecios: Boolean): Binary; function TsrvAlbaranesCliente.GenerarInforme(const ListaID: TIntegerArray; const VerPrecios: Boolean; const VerTrabajos: Boolean; const VerIncidencias: Boolean): Binary;
var var
AReportGenerator : TRptAlbaranesCliente; AReportGenerator : TRptAlbaranesCliente;
begin begin
AReportGenerator := TRptAlbaranesCliente.Create(nil); AReportGenerator := TRptAlbaranesCliente.Create(nil);
try try
Result := AReportGenerator.GenerarAlbaran(ListaID, VerPrecios); Result := AReportGenerator.GenerarAlbaran(ListaID, VerPrecios, VerTrabajos, VerIncidencias);
finally finally
FreeAndNIL(AReportGenerator); FreeAndNIL(AReportGenerator);
end; end;

7
Source/Modulos/Albaranes de cliente/Views/AlbaranesCliente_view.dpk
View File

@ -34,7 +34,9 @@ requires
Almacenes_controller, Almacenes_controller,
AlbCli_FacCli_relation, AlbCli_FacCli_relation,
ContratosCliente_controller, ContratosCliente_controller,
ConCli_AlbCli_relation; ConCli_AlbCli_relation,
rtl,
vcl;
contains contains
uAlbaranesClienteViewRegister in 'uAlbaranesClienteViewRegister.pas', uAlbaranesClienteViewRegister in 'uAlbaranesClienteViewRegister.pas',
@ -52,6 +54,7 @@ contains
uViewAlbaranesDevCliente in 'uViewAlbaranesDevCliente.pas' {frViewAlbaranesDevCliente: TCustomView}, uViewAlbaranesDevCliente in 'uViewAlbaranesDevCliente.pas' {frViewAlbaranesDevCliente: TCustomView},
uEditorAlbaranDevCliente in 'uEditorAlbaranDevCliente.pas' {fEditorAlbaranDevCliente: TCustomEditor}, uEditorAlbaranDevCliente in 'uEditorAlbaranDevCliente.pas' {fEditorAlbaranDevCliente: TCustomEditor},
uViewAlbaranDevCliente in 'uViewAlbaranDevCliente.pas' {frViewAlbaranDevCliente: TCustomView}, uViewAlbaranDevCliente in 'uViewAlbaranDevCliente.pas' {frViewAlbaranDevCliente: TCustomView},
uViewDatosYSeleccionClienteAlbaran in 'uViewDatosYSeleccionClienteAlbaran.pas' {frViewDatosYSeleccionClienteAlbaran: TCustomView}; uViewDatosYSeleccionClienteAlbaran in 'uViewDatosYSeleccionClienteAlbaran.pas' {frViewDatosYSeleccionClienteAlbaran: TCustomView},
uDialogOpcionesImpresionAlbaranesCliente in 'uDialogOpcionesImpresionAlbaranesCliente.pas' {fDialogOpcionesImpresionAlbaranesCliente: TfDialogOpcionesImpresionAlbaranesCliente};
end. end.

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

@ -55,6 +55,10 @@
<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>
@ -66,17 +70,22 @@
<DelphiCompile Include="AlbaranesCliente_view.dpk"> <DelphiCompile Include="AlbaranesCliente_view.dpk">
<MainSource>MainSource</MainSource> <MainSource>MainSource</MainSource>
</DelphiCompile> </DelphiCompile>
<DCCReference Include="..\..\Lib\AlbaranesCliente_controller.dcp" /> <DCCReference Include="AlbaranesCliente_controller.dcp" />
<DCCReference Include="..\..\Lib\AlbaranesCliente_model.dcp" /> <DCCReference Include="AlbaranesCliente_model.dcp" />
<DCCReference Include="..\..\Lib\AlbCli_FacCli_relation.dcp" /> <DCCReference Include="AlbCli_FacCli_relation.dcp" />
<DCCReference Include="..\..\Lib\Almacenes_controller.dcp" /> <DCCReference Include="Almacenes_controller.dcp" />
<DCCReference Include="..\..\Lib\ApplicationBase.dcp" /> <DCCReference Include="ApplicationBase.dcp" />
<DCCReference Include="..\..\Lib\Articulos_view.dcp" /> <DCCReference Include="Articulos_view.dcp" />
<DCCReference Include="..\..\Lib\Base.dcp" /> <DCCReference Include="Base.dcp" />
<DCCReference Include="..\..\Lib\ConCli_AlbCli_relation.dcp" /> <DCCReference Include="ConCli_AlbCli_relation.dcp" />
<DCCReference Include="..\..\Lib\ContratosCliente_controller.dcp" /> <DCCReference Include="ContratosCliente_controller.dcp" />
<DCCReference Include="..\..\Lib\GUIBase.dcp" /> <DCCReference Include="GUIBase.dcp" />
<DCCReference Include="rtl.dcp" />
<DCCReference Include="uAlbaranesClienteViewRegister.pas" /> <DCCReference Include="uAlbaranesClienteViewRegister.pas" />
<DCCReference Include="uDialogOpcionesImpresionAlbaranesCliente.pas">
<Form>fDialogOpcionesImpresionAlbaranesCliente</Form>
<DesignClass>TfEditorElegirArticulosAlbaranCliente</DesignClass>
</DCCReference>
<DCCReference Include="uEditorAlbaranCliente.pas"> <DCCReference Include="uEditorAlbaranCliente.pas">
<Form>fEditorAlbaranCliente</Form> <Form>fEditorAlbaranCliente</Form>
<DesignClass>TfEditorAlbaranCliente</DesignClass> <DesignClass>TfEditorAlbaranCliente</DesignClass>
@ -137,6 +146,7 @@
<Form>frViewElegirArticulosAlbaranesCliente</Form> <Form>frViewElegirArticulosAlbaranesCliente</Form>
<DesignClass>TFrame</DesignClass> <DesignClass>TFrame</DesignClass>
</DCCReference> </DCCReference>
<DCCReference Include="vcl.dcp" />
</ItemGroup> </ItemGroup>
</Project> </Project>
<!-- EurekaLog First Line <!-- EurekaLog First Line

94
Source/Modulos/Albaranes de cliente/Views/uDialogOpcionesImpresionAlbaranesCliente.dfm Normal file
View File

@ -0,0 +1,94 @@
inherited fDialogOpcionesImpresionAlbaranesCliente: TfDialogOpcionesImpresionAlbaranesCliente
Caption = 'Opciones para el albar'#225'n de cliente'
ClientHeight = 237
ClientWidth = 393
ExplicitWidth = 399
ExplicitHeight = 269
PixelsPerInch = 96
TextHeight = 13
inherited Bevel2: TBevel
Width = 393
ExplicitWidth = 393
end
inherited Bevel3: TBevel
Top = 193
Width = 393
ExplicitTop = 195
ExplicitWidth = 393
end
inherited pnlBotones: TPanel
Top = 195
Width = 393
ExplicitTop = 195
ExplicitWidth = 393
inherited btnAceptar: TButton
Left = 229
ExplicitLeft = 229
end
inherited btnCancelar: TButton
Left = 308
ExplicitLeft = 308
end
end
inherited pnlHeader: TPanel
Width = 393
ExplicitWidth = 393
inherited lblTitle: TLabel
Width = 343
Caption = 'Indique las siguiente opciones para el albar'#225'n de cliente:'
ExplicitWidth = 319
end
inherited lblComments: TLabel
Width = 318
Height = 27
Visible = False
end
end
inherited pnlCuerpo: TPanel
Width = 393
Height = 127
ExplicitWidth = 393
ExplicitHeight = 127
object cbVerPrecios: TCheckBox
AlignWithMargins = True
Left = 50
Top = 29
Width = 415
Height = 17
Caption = 'Mostrar los precios'
Checked = True
State = cbChecked
TabOrder = 0
end
object cbVerIncidencias: TCheckBox
AlignWithMargins = True
Left = 50
Top = 75
Width = 441
Height = 17
Caption = 'Mostrar las incidencias del albar'#225'n'
Checked = True
State = cbChecked
TabOrder = 1
end
object cbVerTrabajos: TCheckBox
AlignWithMargins = True
Left = 50
Top = 52
Width = 441
Height = 17
Caption = 'Mostrar los trabajos del instalador'
Checked = True
State = cbChecked
TabOrder = 2
end
end
inherited ActionListDialog: TActionList
inherited actAceptar: TAction
OnExecute = actAceptarExecute
end
inherited actCancelar: TAction
OnExecute = actCancelarExecute
end
end
end

59
Source/Modulos/Albaranes de cliente/Views/uDialogOpcionesImpresionAlbaranesCliente.pas Normal file
View File

@ -0,0 +1,59 @@
unit uDialogOpcionesImpresionAlbaranesCliente;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, uDialogBase, ActnList, StdCtrls, ExtCtrls;
type
TfDialogOpcionesImpresionAlbaranesCliente = class(TfDialogBase)
cbVerPrecios: TCheckBox;
cbVerIncidencias: TCheckBox;
cbVerTrabajos: TCheckBox;
procedure actAceptarExecute(Sender: TObject);
procedure actCancelarExecute(Sender: TObject);
end;
function ElegirOpcionesImpresionAlbaranCliente(var AVerPrecios : Boolean; var AVerTrabajos : Boolean; var AVerIncidencias : Boolean): Boolean;
implementation
{$R *.dfm}
function ElegirOpcionesImpresionAlbaranCliente(var AVerPrecios : Boolean; var AVerTrabajos : Boolean; var AVerIncidencias : Boolean): Boolean;
var
AEditor : TfDialogOpcionesImpresionAlbaranesCliente;
begin
AEditor := TfDialogOpcionesImpresionAlbaranesCliente.Create(NIL);
try
AEditor.cbVerPrecios.Checked := AVerPrecios;
AEditor.cbVerTrabajos.Checked := AVerTrabajos;
AEditor.cbVerIncidencias.Checked := AVerIncidencias;
Result := (AEditor.ShowModal = mrOk);
if Result then
begin
AVerPrecios := AEditor.cbVerPrecios.Checked;
AVerTrabajos := AEditor.cbVerTrabajos.Checked;
AVerIncidencias := AEditor.cbVerIncidencias.Checked;
end;
finally
AEditor.Release;
end;
end;
procedure TfDialogOpcionesImpresionAlbaranesCliente.actAceptarExecute(Sender: TObject);
begin
inherited;
ModalResult := mrOk
end;
procedure TfDialogOpcionesImpresionAlbaranesCliente.actCancelarExecute(Sender: TObject);
begin
inherited;
ModalResult := mrCancel;
end;
end.

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

@ -12,6 +12,7 @@ inherited fEditorAlbaranCliente: TfEditorAlbaranCliente
inherited JvNavPanelHeader: TJvNavPanelHeader inherited JvNavPanelHeader: TJvNavPanelHeader
Width = 765 Width = 765
Caption = 'Nuevo albar'#225'n de cliente' Caption = 'Nuevo albar'#225'n de cliente'
ExplicitTop = 49
ExplicitWidth = 765 ExplicitWidth = 765
inherited Image1: TImage inherited Image1: TImage
Left = 738 Left = 738
@ -129,7 +130,7 @@ inherited fEditorAlbaranCliente: TfEditorAlbaranCliente
Width = 765 Width = 765
ExplicitWidth = 765 ExplicitWidth = 765
inherited tbxMain: TTBXToolbar inherited tbxMain: TTBXToolbar
ExplicitWidth = 634 ExplicitWidth = 488
inherited TBXItem2: TTBXItem inherited TBXItem2: TTBXItem
Visible = False Visible = False
end end
@ -156,16 +157,17 @@ inherited fEditorAlbaranCliente: TfEditorAlbaranCliente
end end
inherited pgPaginas: TPageControl inherited pgPaginas: TPageControl
Width = 759 Width = 759
Height = 367 Height = 376
ActivePage = Trabajos
TabOrder = 1 TabOrder = 1
OnChanging = pgPaginasChanging OnChanging = pgPaginasChanging
ExplicitWidth = 759 ExplicitWidth = 759
ExplicitHeight = 367 ExplicitHeight = 376
inherited pagGeneral: TTabSheet inherited pagGeneral: TTabSheet
ExplicitLeft = 4 ExplicitLeft = 4
ExplicitTop = 24 ExplicitTop = 24
ExplicitWidth = 751 ExplicitWidth = 751
ExplicitHeight = 339 ExplicitHeight = 348
end end
object pagContenido: TTabSheet object pagContenido: TTabSheet
Caption = 'Contenido' Caption = 'Contenido'
@ -174,7 +176,7 @@ inherited fEditorAlbaranCliente: TfEditorAlbaranCliente
Left = 0 Left = 0
Top = 0 Top = 0
Width = 751 Width = 751
Height = 339 Height = 348
Align = alClient Align = alClient
BiDiMode = bdLeftToRight BiDiMode = bdLeftToRight
Font.Charset = DEFAULT_CHARSET Font.Charset = DEFAULT_CHARSET
@ -187,72 +189,57 @@ inherited fEditorAlbaranCliente: TfEditorAlbaranCliente
TabOrder = 0 TabOrder = 0
ReadOnly = False ReadOnly = False
ExplicitWidth = 751 ExplicitWidth = 751
ExplicitHeight = 339 ExplicitHeight = 348
inherited ToolBar1: TToolBar inherited ToolBar1: TToolBar
Width = 751 Width = 751
ExplicitWidth = 751 ExplicitWidth = 751
inherited UpDown1: TUpDown
Left = 241
ExplicitLeft = 241
end
inherited ToolButton13: TToolButton
Left = 258
ExplicitLeft = 258
end
inherited ToolButton6: TToolButton
Left = 266
ExplicitLeft = 266
end
inherited ToolButton7: TToolButton
Left = 300
ExplicitLeft = 300
end
inherited ToolButton8: TToolButton
Left = 334
ExplicitLeft = 334
end
inherited ToolButton12: TToolButton
Left = 368
ExplicitLeft = 368
end
inherited ToolButton9: TToolButton
Left = 376
ExplicitLeft = 376
end
inherited ToolButton10: TToolButton
Left = 410
ExplicitLeft = 410
end
inherited ToolButton11: TToolButton
Left = 444
ExplicitLeft = 444
end
end end
inherited cxGrid: TcxGrid inherited cxGrid: TcxGrid
Width = 751 Width = 751
Height = 264 Height = 276
ExplicitTop = 75
ExplicitWidth = 751 ExplicitWidth = 751
ExplicitHeight = 264 ExplicitHeight = 276
end end
inherited TBXDock1: TTBXDock inherited TBXDock1: TTBXDock
Width = 751 Width = 751
ExplicitTop = 46
ExplicitWidth = 751 ExplicitWidth = 751
inherited TBXToolbar1: TTBXToolbar inherited TBXToolbar1: TTBXToolbar
ExplicitWidth = 731 ExplicitWidth = 548
end end
end end
end end
end end
object Trabajos: TTabSheet
Caption = 'Trabajos instalador'
ImageIndex = 3
object eTrabajos: TcxDBMemo
Left = 0
Top = 0
Align = alClient
DataBinding.DataField = 'TRABAJOS_INSTALADOR'
DataBinding.DataSource = frViewIncidenciasCli.DADataSource
Properties.ScrollBars = ssVertical
Style.LookAndFeel.Kind = lfStandard
Style.LookAndFeel.NativeStyle = True
StyleDisabled.LookAndFeel.Kind = lfStandard
StyleDisabled.LookAndFeel.NativeStyle = True
StyleFocused.LookAndFeel.Kind = lfStandard
StyleFocused.LookAndFeel.NativeStyle = True
StyleHot.LookAndFeel.Kind = lfStandard
StyleHot.LookAndFeel.NativeStyle = True
TabOrder = 0
Height = 348
Width = 751
end
end
object pagInicidencias: TTabSheet object pagInicidencias: TTabSheet
Caption = 'Incidencias' Caption = 'Incidencias'
ImageIndex = 2 ImageIndex = 4
inline frViewIncidenciasCli: TfrViewIncidencias inline frViewIncidenciasCli: TfrViewIncidencias
Left = 0 Left = 0
Top = 0 Top = 0
Width = 751 Width = 751
Height = 339 Height = 348
Align = alClient Align = alClient
Font.Charset = DEFAULT_CHARSET Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText Font.Color = clWindowText
@ -263,7 +250,7 @@ inherited fEditorAlbaranCliente: TfEditorAlbaranCliente
TabOrder = 0 TabOrder = 0
ReadOnly = False ReadOnly = False
ExplicitWidth = 751 ExplicitWidth = 751
ExplicitHeight = 339 ExplicitHeight = 348
inherited pnlSup: TPanel inherited pnlSup: TPanel
Width = 751 Width = 751
ExplicitWidth = 751 ExplicitWidth = 751
@ -273,13 +260,13 @@ inherited fEditorAlbaranCliente: TfEditorAlbaranCliente
end end
inherited GroupBox1: TGroupBox inherited GroupBox1: TGroupBox
Width = 751 Width = 751
Height = 311 Height = 320
ExplicitWidth = 751 ExplicitWidth = 751
ExplicitHeight = 311 ExplicitHeight = 320
inherited eIncidencias: TcxDBMemo inherited eIncidencias: TcxDBMemo
ExplicitWidth = 747 ExplicitWidth = 747
ExplicitHeight = 294 ExplicitHeight = 303
Height = 294 Height = 303
Width = 747 Width = 747
end end
end end
@ -311,20 +298,20 @@ inherited fEditorAlbaranCliente: TfEditorAlbaranCliente
ExplicitWidth = 765 ExplicitWidth = 765
ExplicitHeight = 78 ExplicitHeight = 78
inherited Bevel3: TBevel inherited Bevel3: TBevel
Left = 366 Left = 368
Top = 11 Top = 11
Width = 7 Width = 7
Height = 54 Height = 54
ExplicitLeft = 366 ExplicitLeft = 368
ExplicitTop = 11 ExplicitTop = 11
ExplicitWidth = 7 ExplicitWidth = 7
ExplicitHeight = 54 ExplicitHeight = 54
end end
inherited Bevel4: TBevel inherited Bevel4: TBevel
Left = 482 Left = 484
Top = 53 Top = 53
Width = 210 Width = 210
ExplicitLeft = 482 ExplicitLeft = 484
ExplicitTop = 53 ExplicitTop = 53
ExplicitWidth = 210 ExplicitWidth = 210
end end
@ -338,20 +325,20 @@ inherited fEditorAlbaranCliente: TfEditorAlbaranCliente
Width = 188 Width = 188
end end
inherited ImporteIVA: TcxDBCurrencyEdit inherited ImporteIVA: TcxDBCurrencyEdit
Left = 553 Left = 555
Top = 88 Top = 88
DataBinding.DataField = '' DataBinding.DataField = ''
Style.IsFontAssigned = True Style.IsFontAssigned = True
ExplicitLeft = 553 ExplicitLeft = 555
ExplicitTop = 88 ExplicitTop = 88
ExplicitWidth = 182 ExplicitWidth = 182
Width = 182 Width = 182
end end
inherited ImporteTotal: TcxDBCurrencyEdit inherited ImporteTotal: TcxDBCurrencyEdit
Left = 483 Left = 485
Top = 142 Top = 142
Style.IsFontAssigned = True Style.IsFontAssigned = True
ExplicitLeft = 483 ExplicitLeft = 485
ExplicitTop = 142 ExplicitTop = 142
ExplicitWidth = 252 ExplicitWidth = 252
Width = 252 Width = 252
@ -364,36 +351,36 @@ inherited fEditorAlbaranCliente: TfEditorAlbaranCliente
ExplicitTop = 38 ExplicitTop = 38
end end
inherited edtIVA: TcxDBSpinEdit inherited edtIVA: TcxDBSpinEdit
Left = 482 Left = 484
Top = 88 Top = 88
DataBinding.DataField = '' DataBinding.DataField = ''
Style.IsFontAssigned = True Style.IsFontAssigned = True
ExplicitLeft = 482 ExplicitLeft = 484
ExplicitTop = 88 ExplicitTop = 88
end end
inherited ImporteBase: TcxDBCurrencyEdit inherited ImporteBase: TcxDBCurrencyEdit
Left = 482 Left = 484
Top = 11 Top = 11
Style.IsFontAssigned = True Style.IsFontAssigned = True
ExplicitLeft = 482 ExplicitLeft = 484
ExplicitTop = 11 ExplicitTop = 11
ExplicitWidth = 253 ExplicitWidth = 253
Width = 253 Width = 253
end end
inherited edtRE: TcxDBSpinEdit inherited edtRE: TcxDBSpinEdit
Left = 482 Left = 484
Top = 115 Top = 115
DataBinding.DataField = '' DataBinding.DataField = ''
Style.IsFontAssigned = True Style.IsFontAssigned = True
ExplicitLeft = 482 ExplicitLeft = 484
ExplicitTop = 115 ExplicitTop = 115
end end
inherited ImporteRE: TcxDBCurrencyEdit inherited ImporteRE: TcxDBCurrencyEdit
Left = 553 Left = 555
Top = 115 Top = 115
DataBinding.DataField = '' DataBinding.DataField = ''
Style.IsFontAssigned = True Style.IsFontAssigned = True
ExplicitLeft = 553 ExplicitLeft = 555
ExplicitTop = 115 ExplicitTop = 115
ExplicitWidth = 182 ExplicitWidth = 182
Width = 182 Width = 182
@ -427,9 +414,9 @@ inherited fEditorAlbaranCliente: TfEditorAlbaranCliente
Width = 121 Width = 121
end end
inherited bTiposIVA: TButton inherited bTiposIVA: TButton
Left = 218 Left = 220
Top = 92 Top = 92
ExplicitLeft = 218 ExplicitLeft = 220
ExplicitTop = 92 ExplicitTop = 92
end end
inherited cbRecargoEquivalencia: TcxDBCheckBox inherited cbRecargoEquivalencia: TcxDBCheckBox

28
Source/Modulos/Albaranes de cliente/Views/uEditorAlbaranCliente.pas
View File

@ -24,6 +24,8 @@ type
dxLayoutOfficeLookAndFeel1: TdxLayoutOfficeLookAndFeel; dxLayoutOfficeLookAndFeel1: TdxLayoutOfficeLookAndFeel;
frViewDetallesAlbaranCliente1: TfrViewDetallesAlbaranCliente; frViewDetallesAlbaranCliente1: TfrViewDetallesAlbaranCliente;
frViewTotales1: TfrViewTotales; frViewTotales1: TfrViewTotales;
Trabajos: TTabSheet;
eTrabajos: TcxDBMemo;
procedure FormShow(Sender: TObject); procedure FormShow(Sender: TObject);
procedure CustomEditorClose(Sender: TObject; var Action: TCloseAction); procedure CustomEditorClose(Sender: TObject; var Action: TCloseAction);
@ -79,7 +81,7 @@ implementation
uses uses
uViewDatosYSeleccionCliente, uDataModuleUsuarios, uClientesController, uViewDatosYSeleccionCliente, uDataModuleUsuarios, uClientesController,
uBizDireccionesContacto, schAlbaranesClienteClient_Intf, uDialogUtils, uBizDireccionesContacto, schAlbaranesClienteClient_Intf, uDialogUtils,
uEditorDBBase, uDataTableUtils, uFactuGES_App; uEditorDBBase, uDataTableUtils, uFactuGES_App, uDialogOpcionesImpresionAlbaranesCliente;
{$R *.dfm} {$R *.dfm}
@ -223,9 +225,19 @@ begin
end; end;
procedure TfEditorAlbaranCliente.ImprimirInterno; procedure TfEditorAlbaranCliente.ImprimirInterno;
var
VerPrecios: Boolean;
VerTrabajos: Boolean;
VerIncidencias: Boolean;
begin begin
inherited; inherited;
FController.Print(FAlbaran); VerPrecios := True;
VerTrabajos := True;
VerIncidencias := True;
if ElegirOpcionesImpresionAlbaranCliente(VerPrecios, VerTrabajos, VerIncidencias) then
FController.Print(FAlbaran, False, VerPrecios, VerTrabajos, VerIncidencias);
end; end;
procedure TfEditorAlbaranCliente.OnClienteChanged(Sender: TObject); procedure TfEditorAlbaranCliente.OnClienteChanged(Sender: TObject);
@ -306,9 +318,19 @@ begin
end; end;
procedure TfEditorAlbaranCliente.PrevisualizarInterno; procedure TfEditorAlbaranCliente.PrevisualizarInterno;
var
VerPrecios: Boolean;
VerTrabajos: Boolean;
VerIncidencias: Boolean;
begin begin
inherited; inherited;
FController.Preview(FAlbaran); VerPrecios := True;
VerTrabajos := True;
VerIncidencias := True;
if ElegirOpcionesImpresionAlbaranCliente(VerPrecios, VerTrabajos, VerIncidencias) then
FController.Preview(FAlbaran, False, VerPrecios, VerTrabajos, VerIncidencias);
end; end;
procedure TfEditorAlbaranCliente.RecalcularPortePorUnidad; procedure TfEditorAlbaranCliente.RecalcularPortePorUnidad;

6
Source/Modulos/Albaranes de cliente/Views/uEditorAlbaranesCliente.dfm
View File

@ -129,7 +129,7 @@ inherited fEditorAlbaranesCliente: TfEditorAlbaranesCliente
end end
end end
inherited tbxFiltro: TTBXToolbar inherited tbxFiltro: TTBXToolbar
ExplicitWidth = 431 ExplicitWidth = 356
inherited lblAno: TTBXLabelItem inherited lblAno: TTBXLabelItem
Visible = True Visible = True
end end
@ -144,9 +144,9 @@ inherited fEditorAlbaranesCliente: TfEditorAlbaranesCliente
ExplicitWidth = 583 ExplicitWidth = 583
end end
inherited TBXTMain2: TTBXToolbar inherited TBXTMain2: TTBXToolbar
Left = 431 Left = 356
Visible = True Visible = True
ExplicitLeft = 431 ExplicitLeft = 356
ExplicitWidth = 129 ExplicitWidth = 129
object TBXItem42: TTBXItem object TBXItem42: TTBXItem
Action = actEnviar Action = actEnviar

24
Source/Modulos/Albaranes de cliente/Views/uEditorAlbaranesCliente.pas
View File

@ -86,7 +86,7 @@ uses
uDataModuleAlbaranesCliente, uDataModuleUsuarios, uFactuGES_App, uDataModuleAlbaranesCliente, uDataModuleUsuarios, uFactuGES_App,
uDialogUtils, schAlbaranesClienteClient_Intf, uGenerarFacturasCliAlbCliUtils, uDialogUtils, schAlbaranesClienteClient_Intf, uGenerarFacturasCliAlbCliUtils,
uGenerarAlbaranesCliUtils, uGenerarAlbaranesCliUtils,
uEditorBase, uEditorBase, uDialogOpcionesImpresionAlbaranesCliente,
cxCustomData, uGridUtils, uDBSelectionListUtils; cxCustomData, uGridUtils, uDBSelectionListUtils;
{$R *.dfm} {$R *.dfm}
@ -381,10 +381,16 @@ var
Respuesta : Integer; Respuesta : Integer;
AAlbaranes: IBizAlbaranCliente; AAlbaranes: IBizAlbaranCliente;
AllItems: Boolean; AllItems: Boolean;
VerPrecios: Boolean;
VerTrabajos: Boolean;
VerIncidencias: Boolean;
begin begin
AAlbaranes := Nil; AAlbaranes := Nil;
AllItems := False; AllItems := False;
VerPrecios := True;
VerTrabajos := True;
VerIncidencias := True;
if MultiSelect and Assigned(ViewGrid) then if MultiSelect and Assigned(ViewGrid) then
AllItems := (ViewGrid.NumSeleccionados > 1); AllItems := (ViewGrid.NumSeleccionados > 1);
@ -411,7 +417,8 @@ begin
AAlbaranes := Albaranes; AAlbaranes := Albaranes;
if Assigned(AAlbaranes) then if Assigned(AAlbaranes) then
FController.Print(AAlbaranes, AllItems); if ElegirOpcionesImpresionAlbaranCliente(VerPrecios, VerTrabajos, VerIncidencias) then
FController.Print(AAlbaranes, AllItems, VerPrecios, VerTrabajos, VerIncidencias);
end; end;
end; end;
end; end;
@ -477,9 +484,16 @@ var
Respuesta : Integer; Respuesta : Integer;
AAlbaranes: IBizAlbaranCliente; AAlbaranes: IBizAlbaranCliente;
AllItems: Boolean; AllItems: Boolean;
VerPrecios: Boolean;
VerTrabajos: Boolean;
VerIncidencias: Boolean;
begin begin
AAlbaranes := Nil; AAlbaranes := Nil;
AllItems := False; AllItems := False;
VerPrecios := True;
VerTrabajos := True;
VerIncidencias := True;
if MultiSelect and Assigned(ViewGrid) then if MultiSelect and Assigned(ViewGrid) then
AllItems := (ViewGrid.NumSeleccionados > 1); AllItems := (ViewGrid.NumSeleccionados > 1);
@ -506,10 +520,8 @@ begin
AAlbaranes := Albaranes; AAlbaranes := Albaranes;
if Assigned(AAlbaranes) then if Assigned(AAlbaranes) then
if (Application.MessageBox('¿Desea ver los precios en el\los albaran\es de cliente seleccionados?', 'Atención', MB_YESNO) = IDYES) then if ElegirOpcionesImpresionAlbaranCliente(VerPrecios, VerTrabajos, VerIncidencias) then
FController.Preview(AAlbaranes, AllItems) FController.Preview(AAlbaranes, AllItems, VerPrecios, VerTrabajos, VerIncidencias);
else
FController.Preview(AAlbaranes, AllItems, False);
end; end;
end; end;
end; end;

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

@ -58,7 +58,8 @@ requires
GUISDK_D11R, GUISDK_D11R,
designide, designide,
xmlrtl, xmlrtl,
vclactnband; vclactnband,
GestorInformes_controller;
contains contains
uContactosViewRegister in 'uContactosViewRegister.pas', uContactosViewRegister in 'uContactosViewRegister.pas',

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

@ -47,40 +47,41 @@
<DelphiCompile Include="Contactos_view.dpk"> <DelphiCompile Include="Contactos_view.dpk">
<MainSource>MainSource</MainSource> <MainSource>MainSource</MainSource>
</DelphiCompile> </DelphiCompile>
<DCCReference Include="..\..\Albaranes de proveedor\adortl.dcp" /> <DCCReference Include="..\..\Contratos de cliente\adortl.dcp" />
<DCCReference Include="..\..\Albaranes de proveedor\ApplicationBase.dcp" /> <DCCReference Include="..\..\Contratos de cliente\ApplicationBase.dcp" />
<DCCReference Include="..\..\Albaranes de proveedor\Base.dcp" /> <DCCReference Include="..\..\Contratos de cliente\Base.dcp" />
<DCCReference Include="..\..\Albaranes de proveedor\bdertl.dcp" /> <DCCReference Include="..\..\Contratos de cliente\bdertl.dcp" />
<DCCReference Include="..\..\Albaranes de proveedor\Contactos_controller.dcp" /> <DCCReference Include="..\..\Contratos de cliente\Contactos_controller.dcp" />
<DCCReference Include="..\..\Albaranes de proveedor\Contactos_model.dcp" /> <DCCReference Include="..\..\Contratos de cliente\Contactos_model.dcp" />
<DCCReference Include="..\..\Albaranes de proveedor\cxDataD11.dcp" /> <DCCReference Include="..\..\Contratos de cliente\cxDataD11.dcp" />
<DCCReference Include="..\..\Albaranes de proveedor\cxEditorsD11.dcp" /> <DCCReference Include="..\..\Contratos de cliente\cxEditorsD11.dcp" />
<DCCReference Include="..\..\Albaranes de proveedor\cxLibraryD11.dcp" /> <DCCReference Include="..\..\Contratos de cliente\cxLibraryD11.dcp" />
<DCCReference Include="..\..\Albaranes de proveedor\DataAbstract_Core_D11.dcp" /> <DCCReference Include="..\..\Contratos de cliente\DataAbstract_Core_D11.dcp" />
<DCCReference Include="..\..\Albaranes de proveedor\dbrtl.dcp" /> <DCCReference Include="..\..\Contratos de cliente\dbrtl.dcp" />
<DCCReference Include="..\..\Albaranes de proveedor\designide.dcp" /> <DCCReference Include="..\..\Contratos de cliente\designide.dcp" />
<DCCReference Include="..\..\Albaranes de proveedor\dsnap.dcp" /> <DCCReference Include="..\..\Contratos de cliente\dsnap.dcp" />
<DCCReference Include="..\..\Albaranes de proveedor\dxGDIPlusD11.dcp" /> <DCCReference Include="..\..\Contratos de cliente\dxGDIPlusD11.dcp" />
<DCCReference Include="..\..\Albaranes de proveedor\dxThemeD11.dcp" /> <DCCReference Include="..\..\Contratos de cliente\dxThemeD11.dcp" />
<DCCReference Include="..\..\Albaranes de proveedor\FormasPago_controller.dcp" /> <DCCReference Include="..\..\Contratos de cliente\FormasPago_controller.dcp" />
<DCCReference Include="..\..\Albaranes de proveedor\FormasPago_model.dcp" /> <DCCReference Include="..\..\Contratos de cliente\FormasPago_model.dcp" />
<DCCReference Include="..\..\Albaranes de proveedor\GUIBase.dcp" /> <DCCReference Include="..\..\Contratos de cliente\GestorInformes_controller.dcp" />
<DCCReference Include="..\..\Albaranes de proveedor\GUISDK_D11R.dcp" /> <DCCReference Include="..\..\Contratos de cliente\GUIBase.dcp" />
<DCCReference Include="..\..\Albaranes de proveedor\Jcl.dcp" /> <DCCReference Include="..\..\Contratos de cliente\GUISDK_D11R.dcp" />
<DCCReference Include="..\..\Albaranes de proveedor\JclVcl.dcp" /> <DCCReference Include="..\..\Contratos de cliente\Jcl.dcp" />
<DCCReference Include="..\..\Albaranes de proveedor\JvCoreD11R.dcp" /> <DCCReference Include="..\..\Contratos de cliente\JclVcl.dcp" />
<DCCReference Include="..\..\Albaranes de proveedor\JvGlobusD11R.dcp" /> <DCCReference Include="..\..\Contratos de cliente\JvCoreD11R.dcp" />
<DCCReference Include="..\..\Albaranes de proveedor\JvSystemD11R.dcp" /> <DCCReference Include="..\..\Contratos de cliente\JvGlobusD11R.dcp" />
<DCCReference Include="..\..\Albaranes de proveedor\RemObjects_Core_D11.dcp" /> <DCCReference Include="..\..\Contratos de cliente\JvSystemD11R.dcp" />
<DCCReference Include="..\..\Albaranes de proveedor\rtl.dcp" /> <DCCReference Include="..\..\Contratos de cliente\RemObjects_Core_D11.dcp" />
<DCCReference Include="..\..\Albaranes de proveedor\TiposIVA_controller.dcp" /> <DCCReference Include="..\..\Contratos de cliente\rtl.dcp" />
<DCCReference Include="..\..\Albaranes de proveedor\TiposIVA_model.dcp" /> <DCCReference Include="..\..\Contratos de cliente\TiposIVA_controller.dcp" />
<DCCReference Include="..\..\Albaranes de proveedor\vcl.dcp" /> <DCCReference Include="..\..\Contratos de cliente\TiposIVA_model.dcp" />
<DCCReference Include="..\..\Albaranes de proveedor\vclactnband.dcp" /> <DCCReference Include="..\..\Contratos de cliente\vcl.dcp" />
<DCCReference Include="..\..\Albaranes de proveedor\vcldb.dcp" /> <DCCReference Include="..\..\Contratos de cliente\vclactnband.dcp" />
<DCCReference Include="..\..\Albaranes de proveedor\vcljpg.dcp" /> <DCCReference Include="..\..\Contratos de cliente\vcldb.dcp" />
<DCCReference Include="..\..\Albaranes de proveedor\vclx.dcp" /> <DCCReference Include="..\..\Contratos de cliente\vcljpg.dcp" />
<DCCReference Include="..\..\Albaranes de proveedor\xmlrtl.dcp" /> <DCCReference Include="..\..\Contratos de cliente\vclx.dcp" />
<DCCReference Include="..\..\Contratos de cliente\xmlrtl.dcp" />
<DCCReference Include="uContactosViewRegister.pas" /> <DCCReference Include="uContactosViewRegister.pas" />
<DCCReference Include="uEditorCliente.pas"> <DCCReference Include="uEditorCliente.pas">
<Form>fEditorCliente</Form> <Form>fEditorCliente</Form>

342
Source/Modulos/Contactos/Views/uEditorClientes.dfm
View File

@ -52,11 +52,20 @@ inherited fEditorClientes: TfEditorClientes
Width = 786 Width = 786
ExplicitWidth = 786 ExplicitWidth = 786
inherited tbxMain: TTBXToolbar inherited tbxMain: TTBXToolbar
ExplicitWidth = 775 ExplicitWidth = 632
end end
inherited tbxMenu: TTBXToolbar inherited tbxMenu: TTBXToolbar
ExplicitWidth = 786 ExplicitWidth = 786
end end
inherited TBXTMain2: TTBXToolbar
Left = 200
DockPos = 200
ExplicitLeft = 200
object TBXItem38: TTBXItem
Action = actInformes
DisplayMode = nbdmImageAndText
end
end
end end
inherited StatusBar: TJvStatusBar inherited StatusBar: TJvStatusBar
Top = 500 Top = 500
@ -129,6 +138,16 @@ inherited fEditorClientes: TfEditorClientes
ExplicitWidth = 121 ExplicitWidth = 121
Width = 121 Width = 121
end end
inherited txtFiltroTodo2: TcxTextEdit
Left = 522
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitLeft = 522
ExplicitWidth = 275
Width = 275
end
end end
inherited TBXAlignmentPanel1: TTBXAlignmentPanel inherited TBXAlignmentPanel1: TTBXAlignmentPanel
Width = 786 Width = 786
@ -180,6 +199,13 @@ inherited fEditorClientes: TfEditorClientes
ImageIndex = 23 ImageIndex = 23
OnExecute = actGruposClienteExecute OnExecute = actGruposClienteExecute
end end
object actInformes: TAction
Caption = 'Informes'
Enabled = False
ImageIndex = 24
Visible = False
OnExecute = actInformesExecute
end
end end
inherited SmallImages: TPngImageList [5] inherited SmallImages: TPngImageList [5]
PngImages = < PngImages = <
@ -1937,6 +1963,10 @@ inherited fEditorClientes: TfEditorClientes
'Previsulalizar lista de clientes seleccionados (SOLO DATOS CONTA' + 'Previsulalizar lista de clientes seleccionados (SOLO DATOS CONTA' +
'CTO)' 'CTO)'
Value = 300 Value = 300
end
item
Caption = 'Listado facturas/cobros de cliente seleccionado'
Value = 400
end> end>
ButtonBar.Buttons = [cbCancel] ButtonBar.Buttons = [cbCancel]
MainIcon = tdiCustom MainIcon = tdiCustom
@ -2252,6 +2282,10 @@ inherited fEditorClientes: TfEditorClientes
item item
Caption = 'Imprimir lista de clientes seleccionados (SOLO DATOS CONTACTO)' Caption = 'Imprimir lista de clientes seleccionados (SOLO DATOS CONTACTO)'
Value = 300 Value = 300
end
item
Caption = 'Listado facturas/cobros de cliente seleccionado'
Value = 400
end> end>
ButtonBar.Buttons = [cbCancel] ButtonBar.Buttons = [cbCancel]
MainIcon = tdiCustom MainIcon = tdiCustom
@ -2490,4 +2524,310 @@ inherited fEditorClientes: TfEditorClientes
Left = 328 Left = 328
Top = 144 Top = 144
end end
object JSInformesDialog: TJSDialog
Content.Strings = (
'Seleccione el informe que desea realizar')
DialogOptions = [doCommandLinks, doModal]
Glyph.Data = {
0A54504E474F626A65637489504E470D0A1A0A0000000D494844520000001C00
00001C0806000000720DDF940000000970485973000017120000171201679FD2
520000000467414D410000B18E7CFB5193000003104944415478DAAD96FB4B14
5114C7CFE463DC1E606444BFF54424D3DC55CA52B1CCD7165A219905054182FD
1452FD5810FD100406610A669A998FC4F5BDB6266265DAB60F5DD15E58FE03B2
3F99D29ABBA7B9779C71C61D9D6177CFCE70CFDCB97B3EF7DCF3BD33C38082FD
B502B2B300CC656020048688A24F036233A0671F40D43160BA87BF62AEEE1010
60D7AE293AD8B835815E9B625C80DC8F1E88D4A7C1E8C1FB8F9FD6C3C44035B3
21500A65F6D700FE2EA580A5EC551F4A50359316B31D76EFDC0EE5F72A645045
A067AE0623074B8140891108F1057064CC0D556053DF173812B707E6DCF332A8
225080D201DB4AF99BF335B4D502F371415BCC364833C4C29F458F0C2A031281
081734AB0B3C88403C1E6E3E2E7960F6A8FFD27A7D3EF07A11DA2C76C84A8D87
A57FCB32E8B8A54A4C8C21B59365C9015996EF2240B6634DF435B51460A46D1F
70C093AA46BF09C980C12CA914E6F371ADD707EF1DB3B0B0B8006EB79B8EA96B
EA5106121851245129118FD8BFA2DC5C53C6BAF5EBBBBA97C2D64EC064195B1F
286C76E956A0EA5C51AEB4764A9929F5750D5A9581D2274B9B651C0BA2F514A8
6F28E36B70AD9A4253EF97A9AA55B0CEBA87D03B645B3F43C1DE589C58186D10
81150FCAC57B11E161B04517099BB953C78643141B01BA28EEE4DAB0B04DE2B8
CA460B9C399902E661BB3AB0F5AD038BF30CD4D7E7DD14815A61023027DD00EF
469C1A80FD1C307F1578FD4A81E665945AD68924181A9D5007B6F4DBF1527E32
F5C9D3632351F8F549AEE916B14EAA039BCD362C31A6040D23E7887D4A03B0CF
86C5C6641A24BB7646D3F2D51A77F8C1BCDCFFC79CD3EAC0D7BD56AE86294165
4660CB5C6B737DD3062CCA31D00069E76E05241862CF1EDD05E7D40F756063CF
673C7F5A4F679A59541EF03E4C8C3B0893DF67D481AFBAC7B0F05412CD30EBE2
ED80F7617CEC0198FEF94B1BF06C6622AD4B4EC99D80F7A1666043D7281A3312
FD84C20B8417C3AA789405239826E0CBCE4F98979E10344C33B0BE630473D312
82866906D6993E62F6F1C3F45D160A5305BE68FF8095CF5B4302134CFE1185EA
1FB8A1B4FF4FE32FF6FADB8B5E0000000049454E44AE426082}
Instruction.Text = 'Nuevo informe'
Instruction.Glyph.Data = {
0A54504E474F626A65637489504E470D0A1A0A0000000D494844520000001C00
00001C0806000000720DDF940000000970485973000017120000171201679FD2
520000000467414D410000B18E7CFB5193000003104944415478DAAD96FB4B14
5114C7CFE463DC1E606444BFF54424D3DC55CA52B1CCD7165A219905054182FD
1452FD5810FD100406610A669A998FC4F5BDB6266265DAB60F5DD15E58FE03B2
3F99D29ABBA7B9779C71C61D9D6177CFCE70CFDCB97B3EF7DCF3BD33C38082FD
B502B2B300CC656020048688A24F036233A0671F40D43160BA87BF62AEEE1010
60D7AE293AD8B835815E9B625C80DC8F1E88D4A7C1E8C1FB8F9FD6C3C44035B3
21500A65F6D700FE2EA580A5EC551F4A50359316B31D76EFDC0EE5F72A645045
A067AE0623074B8140891108F1057064CC0D556053DF173812B707E6DCF332A8
225080D201DB4AF99BF335B4D502F371415BCC364833C4C29F458F0C2A031281
081734AB0B3C88403C1E6E3E2E7960F6A8FFD27A7D3EF07A11DA2C76C84A8D87
A57FCB32E8B8A54A4C8C21B59365C9015996EF2240B6634DF435B51460A46D1F
70C093AA46BF09C980C12CA914E6F371ADD707EF1DB3B0B0B8006EB79B8EA96B
EA5106121851245129118FD8BFA2DC5C53C6BAF5EBBBBA97C2D64EC064195B1F
286C76E956A0EA5C51AEB4764A9929F5750D5A9581D2274B9B651C0BA2F514A8
6F28E36B70AD9A4253EF97A9AA55B0CEBA87D03B645B3F43C1DE589C58186D10
81150FCAC57B11E161B04517099BB953C78643141B01BA28EEE4DAB0B04DE2B8
CA460B9C399902E661BB3AB0F5AD038BF30CD4D7E7DD14815A61023027DD00EF
469C1A80FD1C307F1578FD4A81E665945AD68924181A9D5007B6F4DBF1527E32
F5C9D3632351F8F549AEE916B14EAA039BCD362C31A6040D23E7887D4A03B0CF
86C5C6641A24BB7646D3F2D51A77F8C1BCDCFFC79CD3EAC0D7BD56AE86294165
4660CB5C6B737DD3062CCA31D00069E76E05241862CF1EDD05E7D40F756063CF
673C7F5A4F679A59541EF03E4C8C3B0893DF67D481AFBAC7B0F05412CD30EBE2
ED80F7617CEC0198FEF94B1BF06C6622AD4B4EC99D80F7A1666043D7281A3312
FD84C20B8417C3AA789405239826E0CBCE4F98979E10344C33B0BE630473D312
82866906D6993E62F6F1C3F45D160A5305BE68FF8095CF5B4302134CFE1185EA
1FB8A1B4FF4FE32FF6FADB8B5E0000000049454E44AE426082}
Instruction.Icon = tdiCustom
CustomButtons = <
item
Caption = 'Listado facturas/cobros del cliente seleccionado'
Value = 400
end>
ButtonBar.Buttons = [cbCancel]
MainIcon = tdiCustom
Title = 'FactuGES'
Position = dpMainFormCenter
Icon.Data = {
0000010003002020100001000400E8020000360000002020000001000800A808
00001E0300002020000001002000A8100000C60B000028000000200000004000
0000010004000000000000020000000000000000000000000000000000000000
000000008000008000000080800080000000800080008080000080808000C0C0
C0000000FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF000000
0000000000000000000000000000000008777777777777777777777700000000
0877767777677776777767760000000008F88888888888888888888700000000
08F8FF8F8F888888888888860000000008FF8F8F88F8F8888888888C00000000
08F88888F8888888888888860000000008F8688878E8888E88E8788700000000
08F8688888F8F8FFFFFF88760000000008FF4888888F8FFFFFFF788700000000
08F8676767677677677658E50000000008FF8888888887878787888700000000
08FF8887887E8888888888860000000008FFE8E8E788C8E8FF8F8F8600000000
08FFF8F8F8F8FF8F88F8F8870000000008FFFFFF8FF8F8F8F88F888600000000
0FF8477878787878788788860000000008FF68888888F8FF8F8F788700000000
08B7588888FF8FFFFFFF78860000083008BB47887776777777776F86000000B7
8B9B73BB88788787E87878870000008BB8B9BB78888888EFF8F8FF8600000087
B8BB8B888E8E8E88FFF8F886000000088BBB888FFFFFFFFFF8F877770000B9BB
B8FFBB9B9BFFFFFFF87466460000BBB9BB8FBBBBB8FFFFFFF88F888700000008
B8BB88888FFFFFFFF88F8F7700000008BBBBBB8FFFFFFFFFFF8887700000007B
B7B98BB8FFFFFFFFF8887700000000B78B9B87B888F88F88F8877000000007B0
08BB883B78888788787700000000000000B9000000000000000000000000FFFF
FFFFF800000FF800000FF800000FF800000FF800000FF800000FF800000FF800
000FF800000FF800000FF800000FF800000FF800000FF800000FF800000FF800
000FF800000FF800000F9800000FC000000FC000000FC000000FE000000F0000
000F0000000FE000000FE000001FC000003FC000007F980000FFFCFFFFFF2800
0000200000004000000001000800000000000004000000000000000000000001
00000001000000000000694731007C5D49007E604C0081635000826451008567
540085685500886B5900896D5B008A6E5D008B705F008E715F008B7260008C72
61008E74640084766C00957A6900977D6D00887B72009A8171009D8272009C84
76009D8778009F897B00A28A7900A08B7D00A18C7E00E1B06E00E1B67D003E7A
970073A0A5007AA2B70074AFBD007BB2BB003CAACE0028A5DB0020ADDF000D9A
E500209EE3000DA6E2001AA4EF0000A6FF000CABFE0009ACFE0010A4F10015AC
FA0000B5FB0000B0FD000CB6FC0000BFF90000BAFD0004BAFD0009BBFB0013B6
F40015BFFA001CBDFB0026B7FD00589EC50040A4CD0040ABCC0050A2C7005DAE
C00060A3C20062A4C60060B7CB006AB0CD007BB6C80077BAC80061BADD0044AD
E50000C3F80007C6FB0000CAF80000CFFB0000D4F90026C8FA0026CDF8002BCC
F90039C4FB0039C2FC0039CAFA003FCFFB0024D6F80030D2F80039D5F80000F8
F8001FF8F8002CF6F8003EF4F8005AC6DC0070CDDF0052C0E40054C9E3004DCE
FA005FC7FF004FD2FB004DD9F8005FD9FB006ED3E70063CDFE0060D1FB0060D8
F90060DDF80046F8F90056F0F8005FFAFA0073E3F80073E4F90073EEF80060F1
F800958A84009A918C0081999500A68F8200AD968500A3968C00AE988900AD9A
8D00B19A8B00AF9C9000B09E9200B59F9200B7A29300B2A19600B5A19400B7A4
9700BDA79700B4A39800B1A59D00B4A79F00BAA69800BCA79900B4A89F00BCA8
9900BAA89C00BDAA9D00BEAC9E0083ADBD00B5A9A100BDABA000BEADA100BFAF
A500A0BABE00C0AB9E00C1AC9E00C6AE9F00E2B98100E4BA8300E4BB8400E5BC
8500E1BD8E00E3BF9000C0ADA000C2B0A300C2B1A500C4B2A600C1B2A800C3B5
AB00C8B4A800CCB9AD00CEBCB100D0BEB200D1BFB400E4C19300E5C29400E6C4
9600E8C69900D0C9A300CFC1B800D2C1B600D3C3B800D5C4B900D6C6BC00D8C6
BC00D6C8BE00DAC9BF00ECD3B000EDD4B200EFD6B500E7D1B800E7D3BD00F0D8
B6008CB7C40080BEC70097C3C70099C3C900ABD7CF00AFD9DD0086E3F90086E7
F90086ECF8009EE5FB0090E8F900ACEDFC00BCEAFD00BCF1FB00BFF1FD00D7C9
C000D9CAC100DCCBC200DACCC200DDCCC300DACCC400DDCEC400DED0C600DED1
C900DED3CC00DFD4CD00E1D1C900E2D5CD00F0DCC200E3D8D200E5D9D200E2DA
D500E6DBD400E5DCD500E8DDD600E6DDD800E9DFD900E6E0DB00EAE0DA00EAE2
DD00ECE3DE00EBE4DE00ECE4DE00F3E7D900C6E1EF00C9EFFD00D7F6FD00DFF3
FF00DFFEFE00EBE7E300EDE6E100EFE7E400EEE8E400F0EAE600F2EDE900F2EE
EC00F4EFEC00F5F0EE00F9F4ED00E7FAFD00EBF8FF00F6F2F000F7F4F100F8F4
F200F9F7F500FAF8F600FBF9F900FCFBFA00FCFCFB00FEFEFE00000000000000
0000000000000000000000000000000000000000000000000000000000000000
00000000000000000000007D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D
0D0D0000000000000000009C9C19191919191919191919191919191919191919
1903000000000000000000ABDECBCBC7C7AFABABABABAAA3A2A2A0A0A0A0A0A0
8607000000000000000000ABECEAE9DEDEDEDED7D5D2D2D2CBCBCBCBB0CBB0CB
9007000000000000000000ABEDECEAE9DEDEDBD7D7D5D2D2D2CDCDCBB0B0B0B0
9007000000000000000000AFEDE9A9CFD2CFD2CDCBCBCBB0B0ABACA3A3A3A3B0
9007000000000000000000AFF0D5017783838386868686869099909999907BB0
9007000000000000000000B0F4D501A0B0CBD2D5DEECEDF7FAFAFAFAFAF77BAA
9007000000000000000000CBF4DC01A0B0B0B0D2D5DBEAEDF7FAFAFAFAF47BB0
9007000000000000000000CBF8DC010404070604090909090D0D110D110D02A3
9007000000000000000000CBFAED9E9E9E9C999E8C8C8C868683837E7D7D7ACB
9007000000000000000000CBFAF1A7A7A6A6A6A69898989898B5DBDBD5D5D2D2
9907000000000000000000CDFAF796969696961D961D931D1DB4DEDBD7D5D5D2
9C07000000000000000000CFFAFAFAFAF8F7F0F0EDEDEDECE9E9DEDEDED7D5D5
9907000000000000000000CDFAFAEAF0EDEDECEAEAE9DEDEDBDCD5D5D5D5D2D5
9C07000000000000000000D2FAEC01737D7D7B7D7D7B7D7B7D7B7B7B7D7B7DD2
9907000000000000000000CFFAEC019EABB0CBD2D5DCDEECEDF4F4F4F4EA7BD2
9C07000000000000000000B9524601A0B0B0CBB5D5DEEAEDF7FAFAFAFAF47DD5
9C070000000000213F0000B83226010C3F5C1F111214141616191B1B1B1807D2
9C07000000000000253D8A5B322D711E2860BA7E7E7A7E797A797979767676D5
9E0700000000000041375E662F2B65314EBBB6B6B6B6B4B4B1E2F4EDEDEDECEA
9C070000000000008F5D66663232394EC1A81C1C1C1C1C1C1CD3F7F4EDDED7D5
9C0700000000000000B7BE6E5758BEBDE4E6E6F3FAFAFAFAFAFAF7F4D5928675
7304000000002A2A2A2A4A6AFAE7562F2A2A2A5FFAFAFAFAFAFAF8D577010101
0101000000004747472F4A59C5E7564A32474766FAFAFAFAFAFAFADCA0D2CFB0
A20C00000000000000436C6958686D6BC2C5C5E7FAFAFAFAFAFAFADEAADEDBCB
1470000000000000004551534A4A5250C0E7FAFAFAFAFAFAFAFAFADEAAD7B514
700000000000000042384C54472B613550C3FAFAFAFAFAFAFAFAFADEA1B0196F
000000000000000024234463322EBC5A3664E3ECE9E9E9E9E9E9E9CF90731300
000000000000003A3C00002232298B8B3E3B207E8B7E8B7E827E817E74100000
0000000000000000000000003227000000000000000000000000000000000000
000000000000FFFFFFFFF800000FF800000FF800000FF800000FF800000FF800
000FF800000FF800000FF800000FF800000FF800000FF800000FF800000FF800
000FF800000FF800000FF800000FF800000F9800000FC000000FC000000FC000
000FE000000F0000000F0000000FE000000FE000001FC000003FC000007F9800
00FFFCFFFFFF2800000020000000400000000100200000000000801000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000007067
5F70AA9382E570513CE3735540E3735540E3735540E3735540E3735540E37355
40E3735540E3735540E3735540E3735540E3735540E3735540E3735540E37355
40E3735540E3735540E3735540E3735540E3735540E3735540E372533EE5BAAB
A070000000000000000000000000000000000000000000000000000000005E54
4C7FCAB7ABFFC5B5AAFFA18877FFA28A78FFA28A79FFA28A79FFA28A79FFA28A
79FFA28A79FFA28A79FFA28A79FFA28A79FFA28A79FFA28A79FFA28A79FFA28A
79FFA28A79FFA28A79FFA28A79FFA28A79FFA28A79FFA58D7CFF7A5B46FFB2A1
967F000000000000000000000000000000000000000000000000000000006055
4D7ED7C6BBFFEDE4E0FFD9CCC4FFD9CCC4FFD9CBC3FFD8CAC1FFD7C9BFFFD6C7
BDFFD5C6BBFFD4C4BAFFD3C3B8FFD2C1B7FFD1C0B5FFD0BEB3FFCFBDB2FFCEBC
B0FFCEBBAFFFCEBBAFFFCEBBAFFFCEBBAFFFCEBCB0FFBEAA9CFF82644FFFB2A1
967E000000000000000000000000000000000000000000000000000000006056
4D7ED7C8BCFFF2EBE8FFEFE9E5FFEEE7E2FFECE5E0FFEBE2DEFFEAE0DBFFE9DE
D8FFE7DBD4FFE5D9D1FFE3D7CFFFE2D4CCFFE1D2C9FFDFD0C7FFDDCDC4FFDCCB
C2FFDBC9BFFFDBC9BFFFDBC9BFFFDBC9BFFFDCCAC1FFC1AC9FFF81634FFFB2A1
967E000000000000000000000000000000000000000000000000000000006155
4E7ED8C9BDFFF3EDE9FFF1EAE6FFF0E9E6FFEEE6E1FFECE4DFFFEBE2DDFFEAE0
DAFFE9DED7FFE7DBD4FFE5D9D1FFE3D7CFFFE2D4CCFFE1D2C9FFDFD0C7FFDDCD
C4FFDCCBC2FFDBC9BFFFDBC9BFFFDBC9BFFFDCCAC0FFC1AC9FFF81634FFFB2A1
967E000000000000000000000000000000000000000000000000000000006157
4E7ED9C9BFFFF4EFEDFFEFE8E3FFD0C2B9FFDFD5CEFFE0D5CEFFE0D4CCFFDED3
CBFFDDD1C8FFDCCFC6FFDACCC4FFD9CBC1FFD8C9BFFFD7C7BDFFD6C5BBFFD5C4
B9FFD3C2B7FFD2C0B5FFD2BFB4FFD2BFB4FFDAC8BEFFC1AC9FFF81634FFFB2A1
967E000000000000000000000000000000000000000000000000000000006256
4F7EDACCC0FFF5F2EFFFE5DDD9FF5C3821FFB0998AFFB8A394FFB8A394FFB9A3
94FFB8A495FFB9A597FFB9A698FFBAA698FFBBA799FFBBA89AFFBBA89BFFBCA8
9BFFBCA89BFFBCA89BFFBBA89AFFB49E8FFFD8C6BBFFC1AC9FFF81634FFFB2A1
967E000000000000000000000000000000000000000000000000000000006256
4F7EDBCBC1FFF8F4F3FFE7E0DBFF5F3C24FFD0BDB2FFDCCBC1FFDDCCC3FFE2D2
CBFFE7DBD4FFEDE2DEFFF0E8E6FFF5F0EDFFF9F7F4FFFDFDFDFFFFFFFFFFFFFF
FFFFFFFFFFFFFFFFFFFFFAF8F7FFB39D8DFFD8C6BBFFC1AC9FFF81634FFFB2A1
967E000000000000000000000000000000000000000000000000000000006256
4F7EDCCEC3FFFAF6F5FFE9E2DDFF5F3C24FFD2BFB5FFDFCDC4FFDECCC3FFE0CE
C6FFE4D4CDFFE9DDD6FFEFE4E0FFF1EAE8FFF7F1EFFFFBF8F6FFFFFEFFFFFFFF
FFFFFFFFFFFFFFFFFFFFFCFBFAFFB5A090FFD9C7BEFFC1AD9FFF81634FFFB2A1
967E000000000000000000000000000000000000000000000000000000006257
4F7EDDCFC4FFFCF9F9FFE9E4E0FF5F3A23FF7C5D49FF7F5F4CFF7E5F4CFF7E60
4DFF7F614DFF816350FF826552FF836654FF846856FF856A57FF866B59FF876C
5BFF876D5BFF876D5BFF866B59FF72523DFFD5C3B9FFC1AFA1FF81634FFFB2A1
967E000000000000000000000000000000000000000000000000000000006357
507EDECFC6FFFCFCFBFFF4F1F0FFC3B6AEFFC3B5ADFFC1B4ACFFC0B3AAFFBFB1
A9FFBEB0A6FFBDAEA5FFBDACA3FFBCABA2FFBBAAA0FFBAA99FFFB8A69AFFB8A4
98FFB6A396FFB5A194FFB49F93FFB39D90FFDCCDC4FFC2AEA1FF81634FFFB2A1
967E000000000000000000000000000000000000000000000000000000006357
507EDFD2C7FFFEFEFDFFF9F5EFFFE8C696FFE9C799FFE8C697FFE7C596FFE7C4
95FFE6C394FFE5C293FFE4C091FFE4C090FFE3BF8FFFE2BD8CFFE9D5BFFFEBE1
DCFFEADFD8FFE7DCD5FFE5DAD3FFE4D8D0FFE3D4CCFFC2AFA2FF81634FFFB2A1
967E000000000000000000000000000000000000000000000000000000006458
517EE0D3C8FFFFFFFFFFFAF5EFFFE3B77CFFE4B97FFFE2B87EFFE3B77DFFE2B7
7CFFE2B67BFFE1B57AFFE1B479FFE0B478FFE0B377FFDFB174FFE6D0B7FFEBE1
DCFFE8DFD9FFE8DDD6FFE6D9D2FFE3D8D1FFE4D7CFFFC3AFA2FF81634FFFB2A1
967E000000000000000000000000000000000000000000000000000000006458
517EE1D2C9FFFFFFFFFFFEFEFDFFFEFFFFFFFCFDFEFFFBFBFBFFF9F7F8FFF8F5
F6FFF7F3F2FFF5F1F0FFF4EFEEFFF1EDEBFFF0EBE9FFEEE9E6FFEDE6E2FFECE3
DEFFEBE1DBFFE9DFD9FFE8DDD6FFE6DAD3FFE5D9D2FFC3B0A3FF81634FFFB2A1
967E000000000000000000000000000000000000000000000000000000006459
517EE1D4CAFFFFFFFFFFFDFDFCFFEEEBE8FFF5F2F0FFF4F0EFFFF3EFECFFF2ED
EAFFF1EBE8FFEEE9E5FFEFE7E3FFECE5E1FFEAE4DEFFEAE1DCFFE8E0DAFFE7DE
D8FFE6DDD6FFE5DBD4FFE4D8D1FFE2D6CEFFE6DBD4FFC3B1A4FF81634EFFB2A1
967E000000000000000000000000000000000000000000000000000000006559
527EE2D4CAFFFFFFFFFFF0ECEAFF5B361EFFAB9383FFB39D8EFFB39D8DFFB39D
8DFFB29D8DFFB29C8DFFB29C8CFFB29C8CFFB29C8CFFB29C8CFFB29C8CFFB29C
8CFFB29C8CFFB29C8CFFB29C8DFFB39D8EFFE3D8D0FFC4B1A4FF81634EFFB2A1
967E000000000000000000000000000000000000000000000000000000006559
527EE5D4CAFFFFFFFFFFF7F0EBFF5F3B24FFCCB8ADFFD7C5BAFFD9C7BDFFDCCC
C3FFE1D4CCFFE5DAD4FFE8E0DBFFEDE5E1FFF1EBE9FFF5F2EFFFF7F5F3FFF8F6
F4FFF8F5F4FFF8F6F4FFF1EEEAFFB29C8DFFE6DAD3FFC4B2A5FF81634EFFB2A1
967E00000000000000000000000000000000000000000000000000000000685A
527E9AC6C9FF35CFFEFF3DAEEBFF663E24FFD2BFB4FFE0CBBFFFE0C9BDFFE1CD
C4FFE4D5CDFFE9DED7FFEEE5E0FFF2EBE8FFF6F2F0FFFCF8F8FFFFFFFEFFFFFF
FFFFFFFFFFFFFFFFFFFFFCFAF9FFB49E8FFFE7DED7FFC5B3A6FF81634EFFB2A1
967E00000000000000000000000000000000007792910072A7A3001E33366957
4C7C86C1C8FF00BFFBFF079AEBFF6A3E23FF926D57FF5FA3C8FF4AC1E8FF6C9C
A2FF917260FF927767FF947A69FF957C6CFF977E6FFF998171FF9A8374FF9B85
76FF9C8678FF9C8678FF998274FF7D5E49FFE3D9D4FFC5B3A7FF81634EFFB2A1
967E00000000000000000000000000000000005A6F7000A9E5E40075AEAE5C90
A5BD75D0E0FF00BFFAFF0CA3F4FF8A9A91FF3C7492FF03A4E4FF4AD5FFFF98C4
CBFFB3A196FFB1A197FFB0A096FFB09F95FFAF9D92FFAF9C91FFAD9A8EFFAC99
8CFFAB988AFFAB9789FFAA9688FFA99386FFE8E0DAFFC5B4A7FF81634EFFB2A1
967E00000000000000000000000000000000000000002DA5BFC110C2FFFF4DD0
FDFF64DBF9FF00B3FAFF09A8FEFF68D7FFFF04B5FFFF24CCFBFFAFD8CEFFF7DA
B8FFF3DBBBFFF3DBBAFFF2D9B9FFF1D8B7FFF0D7B4FFEED5B2FFF6EADDFFF9F6
F4FFF7F3F1FFF5F1EEFFF5EFECFFF4EDEAFFF1EBE7FFC6B4A8FF81634EFFB2A1
967E00000000000000000000000000000000000000005F8A909142C7E4E960DE
F8FF64D7FAFF00B6FDFF00B8FDFF21B2FDFF1ECCF7FF93EBFCFFD2C69BFFE1AB
63FFDFAC66FFDFAC66FFDFAC66FFDFAC66FFDFAC66FFDEA961FFEFDBC0FFF8F6
F5FFF6F2F0FFF3EDEBFFECE2DCFFE9DFD9FFE5DBD6FFC2B1A4FF81634FFFB2A1
967E000000000000000000000000000E171A000E171A00040B145994A4A990EB
FCFF61F1F7FF13FAF7FF23F9F7FF93EDF7FF8CE5F8FFD5F2FDFFE9F8FFFFE7F8
FFFFF0FCFFFFFFFFFFFFFFFFFFFFFFFFFFFFFEFFFFFFFDFEFFFFFAFAF9FFF9F7
F5FFF7F2F0FFE8DFD8FFC7AE9FFFBEA998FFAF9888FFB09A8AFF7F604DFFB2A1
967E00000000000000000000000000AAFFFF00AAFFFF00AAFFFF00A4FFFF00CD
FAFF5DFCF9FFFFFFFFFFEEFEFEFF00FBF7FF00AAFEFF00A1FFFF00A1FFFF00A0
FFFF56C3FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFCFDFBFFFCFBFAFFFBFA
F8FFE6DDD6FFAA9180FF5D3922FF603D26FF613E27FF613E28FF634029FFB4A3
987E00000000000000000000000000CAFFFF00CAFFFF00CBFFFF00B0FFFF00CD
FBFF38F5F7FFC3EFFAFFF0FFFEFF00FAF7FF00C8F7FF00C2F7FF00C2F7FF00C1
F7FF57D7FAFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFEFEFEFFFDFDFCFFFCFC
FBFFE7DED8FFCCB9ACFFE6DBD5FFE2D7D0FFDCCFC5FFD7C5BBFF8E705DFFB4A2
9680000000000000000000000000002E383C002E383C00252F364C99B0B57DE8
FBFF59F1F7FF25F7F7FF41FAF8FF7CEEF7FF77E4F7FFB5EFFCFFC6F2FDFFC3F2
FDFFD9F6FCFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFDFEFEFFFEFE
FEFFE9E1DAFFCEBCAFFFF1E9E3FFEADFD8FFE4D5CCFF9D816FFF3A291F868985
831C00000000000000000000000000000000000000004E7073774AB0DADC37C9
FBFF22D5F7FF00D3F9FF02C3FBFF37D5F7FF34BEFCFFA2E6FAFFECFBFDFFFFFF
FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFEFF
FFFFEAE2DCFFCDBBADFFEADFD8FFE3D5CBFF9F8271FF3E2D2386050100200000
000000000000000000000000000000000000000000003E9CC4C219C0FFFF23C9
FCFF30D3F8FF00BEF8FF06A8FEFF4FDCF8FF00B8FCFF32C2FBFFC0EBFCFFFFFF
FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
FFFFEAE3DEFFCDB9ABFFDDCEC4FFA58979FF3E2C1F8F0905041B000000000000
000000000000000000000000000000000000003451510099DDDB0091C0C35DAD
BCCF76D7E9FF00BEF9FF10A9FBFFBDDEDEFF5AC8DDFF0AB5F7FF62CEFFFFCBE4
F1FFF1E7E0FFEFE7E1FFEEE6E1FFEEE6E1FFEEE6E0FFEDE6E0FFEDE5E0FFEEE6
E1FFE1D4CCFFC5AE9FFFA68D7FF53E2718A10402000E00000000000000000000
0000000000000000000000000000000000000075B7AF0099C7C500323E425442
3B5C6BA8B1DA00C1FCFF0EA1F3F8A98E80C0AB9081C12698B1C10088C4C14C85
A3C1A18D80C19E8D81C19E8B81C19D8C80C19B8C7FC19B8A7FC19C897FC19A89
7EC19B8B7EC1897769C2432B1BAC000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
00000045565A00C5FFFF0094E6E2000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000FFFFFFFFF0000007F0000007F0000007F000
0007F0000007F0000007F0000007F0000007F0000007F0000007F0000007F000
0007F0000007F0000007F0000007F0000007F0000007F0000007800000078000
0007C0000007C000000700000007000000070000000700000007C000000FC000
001F8000003F800000FFF8FFFFFF}
Width = 450
Left = 408
Top = 80
end
end end

69
Source/Modulos/Contactos/Views/uEditorClientes.pas
View File

@ -21,10 +21,14 @@ type
actGruposCliente: TAction; actGruposCliente: TAction;
JsListaContactosNoEliminados: TJSDialog; JsListaContactosNoEliminados: TJSDialog;
frViewClientes1: TfrViewClientes; frViewClientes1: TfrViewClientes;
actInformes: TAction;
TBXItem38: TTBXItem;
JSInformesDialog: TJSDialog;
procedure actGruposClienteExecute(Sender: TObject); procedure actGruposClienteExecute(Sender: TObject);
procedure actInformesExecute(Sender: TObject);
protected protected
procedure ImprimirInterno; override; procedure ImprimirInterno; override;
procedure PrevisualizarInterno; override; procedure PrevisualizarInterno; override;
procedure EliminarInterno; override; procedure EliminarInterno; override;
public public
constructor Create(AOwner: TComponent); override; constructor Create(AOwner: TComponent); override;
@ -36,7 +40,7 @@ implementation
uses uses
uGridUtils, uDataModuleContactos, uDMBase, uEditorGridBase, uBizContactos, uGridUtils, uDataModuleContactos, uDMBase, uEditorGridBase, uBizContactos,
uDBSelectionListUtils, uDataModuleUsuarios, uDialogUtils, uFactuGES_App, uDBSelectionListUtils, uDataModuleUsuarios, uDialogUtils, uFactuGES_App,
uGruposClienteController, uBizGruposCliente, uClientesController; uGruposClienteController, uBizGruposCliente, uClientesController, uGestorInformesController;
{$R *.dfm} {$R *.dfm}
@ -59,6 +63,33 @@ begin
end; end;
end; end;
procedure TfEditorClientes.actInformesExecute(Sender: TObject);
var
Respuesta : Integer;
AGestorInformesController : IGestorInformesController;
begin
{
AGestorInformesController := TGestorInformesController.Create;
try
Respuesta := JsInformesDialog.Execute;
if Respuesta <> IDCANCEL then
begin
case JsInformesDialog.CustomButtonResult of
400 : begin // Listado de facturas de cliente
AGestorInformesController.VerInformeListadoFacturasRecibosCli(Contactos.ID);
end;
end;
end;
finally
AGestorInformesController := NIL;
end;
}
end;
constructor TfEditorClientes.Create(AOwner: TComponent); constructor TfEditorClientes.Create(AOwner: TComponent);
begin begin
inherited; inherited;
@ -118,7 +149,9 @@ procedure TfEditorClientes.ImprimirInterno;
var var
Respuesta : Integer; Respuesta : Integer;
AClientes: IBizCliente; AClientes: IBizCliente;
AGestorInformesController : IGestorInformesController;
AllItems: Boolean; AllItems: Boolean;
begin begin
AClientes := Nil; AClientes := Nil;
AllItems := False; AllItems := False;
@ -150,6 +183,27 @@ begin
if Assigned(AClientes) then if Assigned(AClientes) then
(FController as IClientesController).PrintInformeEtiquetas(AClientes, AllItems); (FController as IClientesController).PrintInformeEtiquetas(AClientes, AllItems);
end; end;
300 : begin // Elemento Seleccionado
if AllItems then
begin
SeleccionarFilasDesdeGrid(ViewGrid._FocusedView, (Contactos as ISeleccionable).SelectedRecords);
AClientes := (Controller as IClientesController).ExtraerSeleccionados(Contactos) as IBizCliente;
end
else
AClientes := (Contactos as IBizCliente);
if Assigned(AClientes) then
(FController as IClientesController).PrintInformeListaDatosContacto(AClientes, AllItems);
end;
400: begin // Listado de facturas/cobros de cliente
AGestorInformesController := TGestorInformesController.Create;
try
AGestorInformesController.VerInformeListadoFacturasRecibosCli(Contactos.ID);
finally
AGestorInformesController := NIL;
end;
end;
end; end;
end; end;
end; end;
@ -167,7 +221,9 @@ procedure TfEditorClientes.PrevisualizarInterno;
var var
Respuesta : Integer; Respuesta : Integer;
AClientes: IBizCliente; AClientes: IBizCliente;
AGestorInformesController : IGestorInformesController;
AllItems: Boolean; AllItems: Boolean;
begin begin
AClientes := Nil; AClientes := Nil;
AllItems := False; AllItems := False;
@ -211,7 +267,14 @@ begin
if Assigned(AClientes) then if Assigned(AClientes) then
(FController as IClientesController).PreviewInformeListaDatosContacto(AClientes, AllItems); (FController as IClientesController).PreviewInformeListaDatosContacto(AClientes, AllItems);
end; end;
400: begin // Listado de facturas/cobros de cliente
AGestorInformesController := TGestorInformesController.Create;
try
AGestorInformesController.VerInformeListadoFacturasRecibosCli(Contactos.ID);
finally
AGestorInformesController := NIL;
end;
end;
end; end;
end; end;
end; end;

9
Source/Modulos/Contactos/Views/uEditorContactos.dfm
View File

@ -10,8 +10,11 @@ inherited fEditorContactos: TfEditorContactos
Caption = 'Lista de contactos' Caption = 'Lista de contactos'
end end
inherited TBXDock: TTBXDock inherited TBXDock: TTBXDock
inherited tbxMain: TTBXToolbar
ExplicitWidth = 543
end
inherited tbxFiltro: TTBXToolbar inherited tbxFiltro: TTBXToolbar
ExplicitWidth = 269 ExplicitWidth = 194
inherited tbxEditFiltro: TTBXEditItem inherited tbxEditFiltro: TTBXEditItem
EditOptions = [tboUseEditWhenVertical] EditOptions = [tboUseEditWhenVertical]
end end
@ -19,10 +22,6 @@ inherited fEditorContactos: TfEditorContactos
Visible = False Visible = False
end end
end end
inherited TBXTMain2: TTBXToolbar
Left = 334
ExplicitLeft = 334
end
end end
inherited EditorActionList: TActionList inherited EditorActionList: TActionList
inherited actPrevisualizar: TAction inherited actPrevisualizar: TAction

36
Source/Modulos/Contratos de cliente/ContratosCliente_Group.groupproj
View File

@ -16,6 +16,8 @@
<Projects Include="..\Contactos\Data\Contactos_data.dproj" /> <Projects Include="..\Contactos\Data\Contactos_data.dproj" />
<Projects Include="..\Contactos\Model\Contactos_model.dproj" /> <Projects Include="..\Contactos\Model\Contactos_model.dproj" />
<Projects Include="..\Contactos\Views\Contactos_view.dproj" /> <Projects Include="..\Contactos\Views\Contactos_view.dproj" />
<Projects Include="..\Facturas de cliente\Controller\FacturasCliente_controller.dproj" />
<Projects Include="..\Facturas de cliente\Views\FacturasCliente_view.dproj" />
<Projects Include="..\Facturas de proveedor\Controller\FacturasProveedor_controller.dproj" /> <Projects Include="..\Facturas de proveedor\Controller\FacturasProveedor_controller.dproj" />
<Projects Include="..\Facturas de proveedor\Plugin\FacturasProveedor_plugin.dproj" /> <Projects Include="..\Facturas de proveedor\Plugin\FacturasProveedor_plugin.dproj" />
<Projects Include="..\Pedidos a proveedor\Controller\PedidosProveedor_controller.dproj" /> <Projects Include="..\Pedidos a proveedor\Controller\PedidosProveedor_controller.dproj" />
@ -23,6 +25,7 @@
<Projects Include="..\Pedidos a proveedor\Plugin\PedidosProveedor_plugin.dproj" /> <Projects Include="..\Pedidos a proveedor\Plugin\PedidosProveedor_plugin.dproj" />
<Projects Include="..\Pedidos a proveedor\Views\PedidosProveedor_view.dproj" /> <Projects Include="..\Pedidos a proveedor\Views\PedidosProveedor_view.dproj" />
<Projects Include="..\Presupuestos de cliente\Views\PresupuestosCliente_view.dproj" /> <Projects Include="..\Presupuestos de cliente\Views\PresupuestosCliente_view.dproj" />
<Projects Include="..\Recibos de cliente\Views\RecibosCliente_view.dproj" />
<Projects Include="..\Relaciones\Contratos de cliente - Albaranes de cliente\ConCli_AlbCli_relation.dproj" /> <Projects Include="..\Relaciones\Contratos de cliente - Albaranes de cliente\ConCli_AlbCli_relation.dproj" />
<Projects Include="..\Relaciones\Contratos de cliente - Facturas de cliente\ConCli_FacCli_relation.dproj" /> <Projects Include="..\Relaciones\Contratos de cliente - Facturas de cliente\ConCli_FacCli_relation.dproj" />
<Projects Include="..\Relaciones\Contratos de cliente - Pedidos de proveedor\ConCli_PedProv_relation.dproj" /> <Projects Include="..\Relaciones\Contratos de cliente - Pedidos de proveedor\ConCli_PedProv_relation.dproj" />
@ -291,14 +294,41 @@
<Target Name="PedidosProveedor_model:Make"> <Target Name="PedidosProveedor_model:Make">
<MSBuild Projects="..\Pedidos a proveedor\Model\PedidosProveedor_model.dproj" Targets="Make" /> <MSBuild Projects="..\Pedidos a proveedor\Model\PedidosProveedor_model.dproj" Targets="Make" />
</Target> </Target>
<Target Name="FacturasCliente_view">
<MSBuild Projects="..\Facturas de cliente\Views\FacturasCliente_view.dproj" Targets="" />
</Target>
<Target Name="FacturasCliente_view:Clean">
<MSBuild Projects="..\Facturas de cliente\Views\FacturasCliente_view.dproj" Targets="Clean" />
</Target>
<Target Name="FacturasCliente_view:Make">
<MSBuild Projects="..\Facturas de cliente\Views\FacturasCliente_view.dproj" Targets="Make" />
</Target>
<Target Name="FacturasCliente_controller">
<MSBuild Projects="..\Facturas de cliente\Controller\FacturasCliente_controller.dproj" Targets="" />
</Target>
<Target Name="FacturasCliente_controller:Clean">
<MSBuild Projects="..\Facturas de cliente\Controller\FacturasCliente_controller.dproj" Targets="Clean" />
</Target>
<Target Name="FacturasCliente_controller:Make">
<MSBuild Projects="..\Facturas de cliente\Controller\FacturasCliente_controller.dproj" Targets="Make" />
</Target>
<Target Name="RecibosCliente_view">
<MSBuild Projects="..\Recibos de cliente\Views\RecibosCliente_view.dproj" Targets="" />
</Target>
<Target Name="RecibosCliente_view:Clean">
<MSBuild Projects="..\Recibos de cliente\Views\RecibosCliente_view.dproj" Targets="Clean" />
</Target>
<Target Name="RecibosCliente_view:Make">
<MSBuild Projects="..\Recibos de cliente\Views\RecibosCliente_view.dproj" Targets="Make" />
</Target>
<Target Name="Build"> <Target Name="Build">
<CallTarget Targets="Base;GUIBase;ApplicationBase;Contactos_model;Contactos_data;Contactos_controller;Contactos_view;Articulos_data;Articulos_controller;Articulos_view;ContratosCliente_model;ContratosCliente_data;ContratosCliente_controller;ConCli_AlbCli_relation;ConCli_FacCli_relation;PreCli_ConCli_relation;ConCli_PedProv_relation;ContratosCliente_view;ContratosCliente_plugin;FactuGES;FactuGES_Server;PresupuestosCliente_view;PedidosProveedor_controller;PedidosProveedor_view;PedidosProveedor_plugin;FacturasProveedor_controller;FacturasProveedor_plugin;PedidosProveedor_model" /> <CallTarget Targets="Base;GUIBase;ApplicationBase;Contactos_model;Contactos_data;Contactos_controller;Contactos_view;Articulos_data;Articulos_controller;Articulos_view;ContratosCliente_model;ContratosCliente_data;ContratosCliente_controller;ConCli_AlbCli_relation;ConCli_FacCli_relation;PreCli_ConCli_relation;ConCli_PedProv_relation;ContratosCliente_view;ContratosCliente_plugin;FactuGES;FactuGES_Server;PresupuestosCliente_view;PedidosProveedor_controller;PedidosProveedor_view;PedidosProveedor_plugin;FacturasProveedor_controller;FacturasProveedor_plugin;PedidosProveedor_model;FacturasCliente_view;FacturasCliente_controller;RecibosCliente_view" />
</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;Articulos_data:Clean;Articulos_controller:Clean;Articulos_view:Clean;ContratosCliente_model:Clean;ContratosCliente_data:Clean;ContratosCliente_controller:Clean;ConCli_AlbCli_relation:Clean;ConCli_FacCli_relation:Clean;PreCli_ConCli_relation:Clean;ConCli_PedProv_relation:Clean;ContratosCliente_view:Clean;ContratosCliente_plugin:Clean;FactuGES:Clean;FactuGES_Server:Clean;PresupuestosCliente_view:Clean;PedidosProveedor_controller:Clean;PedidosProveedor_view:Clean;PedidosProveedor_plugin:Clean;FacturasProveedor_controller:Clean;FacturasProveedor_plugin:Clean;PedidosProveedor_model:Clean" /> <CallTarget Targets="Base:Clean;GUIBase:Clean;ApplicationBase:Clean;Contactos_model:Clean;Contactos_data:Clean;Contactos_controller:Clean;Contactos_view:Clean;Articulos_data:Clean;Articulos_controller:Clean;Articulos_view:Clean;ContratosCliente_model:Clean;ContratosCliente_data:Clean;ContratosCliente_controller:Clean;ConCli_AlbCli_relation:Clean;ConCli_FacCli_relation:Clean;PreCli_ConCli_relation:Clean;ConCli_PedProv_relation:Clean;ContratosCliente_view:Clean;ContratosCliente_plugin:Clean;FactuGES:Clean;FactuGES_Server:Clean;PresupuestosCliente_view:Clean;PedidosProveedor_controller:Clean;PedidosProveedor_view:Clean;PedidosProveedor_plugin:Clean;FacturasProveedor_controller:Clean;FacturasProveedor_plugin:Clean;PedidosProveedor_model:Clean;FacturasCliente_view:Clean;FacturasCliente_controller:Clean;RecibosCliente_view: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;Articulos_data:Make;Articulos_controller:Make;Articulos_view:Make;ContratosCliente_model:Make;ContratosCliente_data:Make;ContratosCliente_controller:Make;ConCli_AlbCli_relation:Make;ConCli_FacCli_relation:Make;PreCli_ConCli_relation:Make;ConCli_PedProv_relation:Make;ContratosCliente_view:Make;ContratosCliente_plugin:Make;FactuGES:Make;FactuGES_Server:Make;PresupuestosCliente_view:Make;PedidosProveedor_controller:Make;PedidosProveedor_view:Make;PedidosProveedor_plugin:Make;FacturasProveedor_controller:Make;FacturasProveedor_plugin:Make;PedidosProveedor_model:Make" /> <CallTarget Targets="Base:Make;GUIBase:Make;ApplicationBase:Make;Contactos_model:Make;Contactos_data:Make;Contactos_controller:Make;Contactos_view:Make;Articulos_data:Make;Articulos_controller:Make;Articulos_view:Make;ContratosCliente_model:Make;ContratosCliente_data:Make;ContratosCliente_controller:Make;ConCli_AlbCli_relation:Make;ConCli_FacCli_relation:Make;PreCli_ConCli_relation:Make;ConCli_PedProv_relation:Make;ContratosCliente_view:Make;ContratosCliente_plugin:Make;FactuGES:Make;FactuGES_Server:Make;PresupuestosCliente_view:Make;PedidosProveedor_controller:Make;PedidosProveedor_view:Make;PedidosProveedor_plugin:Make;FacturasProveedor_controller:Make;FacturasProveedor_plugin:Make;PedidosProveedor_model:Make;FacturasCliente_view:Make;FacturasCliente_controller:Make;RecibosCliente_view:Make" />
</Target> </Target>
<Import Condition="Exists('$(MSBuildBinPath)\Borland.Group.Targets')" Project="$(MSBuildBinPath)\Borland.Group.Targets" /> <Import Condition="Exists('$(MSBuildBinPath)\Borland.Group.Targets')" Project="$(MSBuildBinPath)\Borland.Group.Targets" />
</Project> </Project>

30
Source/Modulos/Contratos de cliente/Views/uEditorContratosCliente.dfm
View File

@ -126,7 +126,7 @@ inherited fEditorContratosCliente: TfEditorContratosCliente
Width = 1119 Width = 1119
ExplicitWidth = 1119 ExplicitWidth = 1119
inherited tbxMain: TTBXToolbar inherited tbxMain: TTBXToolbar
ExplicitWidth = 1031 ExplicitWidth = 888
object TBXSubmenuItem3: TTBXSubmenuItem [0] object TBXSubmenuItem3: TTBXSubmenuItem [0]
Caption = 'Nuevo' Caption = 'Nuevo'
DisplayMode = nbdmImageAndText DisplayMode = nbdmImageAndText
@ -169,7 +169,7 @@ inherited fEditorContratosCliente: TfEditorContratosCliente
end end
end end
inherited tbxFiltro: TTBXToolbar inherited tbxFiltro: TTBXToolbar
ExplicitWidth = 431 ExplicitWidth = 481
inherited lblAno: TTBXLabelItem inherited lblAno: TTBXLabelItem
Visible = True Visible = True
end end
@ -179,6 +179,10 @@ inherited fEditorContratosCliente: TfEditorContratosCliente
inherited sepAno: TTBXSeparatorItem inherited sepAno: TTBXSeparatorItem
Visible = True Visible = True
end end
inherited tbxEditFiltro2: TTBXEditItem
Enabled = True
Visible = True
end
end end
inherited tbxMenu: TTBXToolbar inherited tbxMenu: TTBXToolbar
ExplicitWidth = 1119 ExplicitWidth = 1119
@ -202,11 +206,14 @@ inherited fEditorContratosCliente: TfEditorContratosCliente
end end
end end
inherited TBXTMain2: TTBXToolbar inherited TBXTMain2: TTBXToolbar
Left = 431 Left = 481
DockPos = 343 DockPos = 487
Visible = True Visible = True
ExplicitLeft = 431 ExplicitLeft = 481
ExplicitWidth = 687 ExplicitWidth = 638
object TBXItem46: TTBXItem
Action = actInformes
end
object TBXSeparatorItem18: TTBXSeparatorItem object TBXSeparatorItem18: TTBXSeparatorItem
end end
object TBXItem44: TTBXItem object TBXItem44: TTBXItem
@ -229,9 +236,6 @@ inherited fEditorContratosCliente: TfEditorContratosCliente
end end
object TBXSeparatorItem19: TTBXSeparatorItem object TBXSeparatorItem19: TTBXSeparatorItem
end end
object TBXItem46: TTBXItem
Action = actInformes
end
object TBXItem42: TTBXItem object TBXItem42: TTBXItem
Action = actListadoBeneficios Action = actListadoBeneficios
DisplayMode = nbdmImageAndText DisplayMode = nbdmImageAndText
@ -2484,6 +2488,10 @@ inherited fEditorContratosCliente: TfEditorContratosCliente
item item
Caption = 'Previsualizar la lista de contratos actual' Caption = 'Previsualizar la lista de contratos actual'
Value = 200 Value = 200
end
item
Caption = 'Listado facturas/cobros de cliente seleccionado'
Value = 300
end> end>
ButtonBar.Buttons = [cbCancel] ButtonBar.Buttons = [cbCancel]
MainIcon = tdiCustom MainIcon = tdiCustom
@ -2795,6 +2803,10 @@ inherited fEditorContratosCliente: TfEditorContratosCliente
item item
Caption = 'Imprimir la lista de contratos actual' Caption = 'Imprimir la lista de contratos actual'
Value = 200 Value = 200
end
item
Caption = 'Listado facturas/cobros de cliente seleccionado'
Value = 300
end> end>
ButtonBar.Buttons = [cbCancel] ButtonBar.Buttons = [cbCancel]
MainIcon = tdiCustom MainIcon = tdiCustom

18
Source/Modulos/Contratos de cliente/Views/uEditorContratosCliente.pas
View File

@ -561,6 +561,7 @@ procedure TfEditorContratosCliente.ImprimirInterno;
var var
Respuesta : Integer; Respuesta : Integer;
AContratos: IBizContratoCliente; AContratos: IBizContratoCliente;
AGestorInformesController : IGestorInformesController;
AllItems: Boolean; AllItems: Boolean;
begin begin
AContratos := Nil; AContratos := Nil;
@ -593,6 +594,14 @@ begin
if Assigned(AContratos) then if Assigned(AContratos) then
FController.Print(AContratos, AllItems); FController.Print(AContratos, AllItems);
end; end;
300: begin // Listado de facturas/cobros de cliente
AGestorInformesController := TGestorInformesController.Create;
try
AGestorInformesController.VerInformeListadoFacturasRecibosCli(Contratos.ID_CLIENTE);
finally
AGestorInformesController := NIL;
end;
end;
end; end;
end; end;
end; end;
@ -634,6 +643,7 @@ procedure TfEditorContratosCliente.PrevisualizarInterno;
var var
Respuesta : Integer; Respuesta : Integer;
AContratos: IBizContratoCliente; AContratos: IBizContratoCliente;
AGestorInformesController : IGestorInformesController;
AllItems: Boolean; AllItems: Boolean;
begin begin
AContratos := Nil; AContratos := Nil;
@ -666,6 +676,14 @@ begin
if Assigned(AContratos) then if Assigned(AContratos) then
FController.Preview(AContratos, AllItems); FController.Preview(AContratos, AllItems);
end; end;
300: begin // Listado de facturas/cobros de cliente
AGestorInformesController := TGestorInformesController.Create;
try
AGestorInformesController.VerInformeListadoFacturasRecibosCli(Contratos.ID_CLIENTE);
finally
AGestorInformesController := NIL;
end;
end;
end; end;
end; end;
end; end;

89
Source/Modulos/Contratos de cliente/Views/uViewContratosCliente.dfm
View File

@ -19,6 +19,26 @@ inherited frViewContratosCliente: TfrViewContratosCliente
Kind = skSum Kind = skSum
Position = spFooter Position = spFooter
Column = cxGridViewIMPORTE_TOTAL Column = cxGridViewIMPORTE_TOTAL
end
item
Format = ',0.00 '#8364';-,0.00 '#8364
Kind = skSum
Position = spFooter
Column = cxGridViewBASE_IMPONIBLE
end
item
Format = ',0.00 '#8364';-,0.00 '#8364
Kind = skSum
Position = spFooter
Column = cxGridViewIMPORTE_IVA
end
item
Format = ',0.00 '#8364';-,0.00 '#8364
Column = cxGridViewBASE_IMPONIBLE
end
item
Format = ',0.00 '#8364';-,0.00 '#8364
Column = cxGridViewIMPORTE_IVA
end> end>
DataController.Summary.FooterSummaryItems = < DataController.Summary.FooterSummaryItems = <
item item
@ -30,6 +50,16 @@ inherited frViewContratosCliente: TfrViewContratosCliente
Format = ',0.00 '#8364';-,0.00 '#8364 Format = ',0.00 '#8364';-,0.00 '#8364
Kind = skSum Kind = skSum
Column = cxGridViewIMPORTE_TOTAL Column = cxGridViewIMPORTE_TOTAL
end
item
Format = ',0.00 '#8364';-,0.00 '#8364
Kind = skSum
Column = cxGridViewBASE_IMPONIBLE
end
item
Format = ',0.00 '#8364';-,0.00 '#8364
Kind = skSum
Column = cxGridViewIMPORTE_IVA
end> end>
OptionsView.GroupFooters = gfVisibleWhenExpanded OptionsView.GroupFooters = gfVisibleWhenExpanded
object cxGridViewINCIDENCIASACTIVAS: TcxGridDBColumn object cxGridViewINCIDENCIASACTIVAS: TcxGridDBColumn
@ -116,6 +146,22 @@ inherited frViewContratosCliente: TfrViewContratosCliente
DataBinding.FieldName = 'PROVINCIA' DataBinding.FieldName = 'PROVINCIA'
Visible = False Visible = False
end end
object cxGridViewBASE_IMPONIBLE: TcxGridDBColumn
DataBinding.FieldName = 'BASE_IMPONIBLE'
PropertiesClassName = 'TcxCurrencyEditProperties'
Properties.Alignment.Horz = taRightJustify
FooterAlignmentHorz = taRightJustify
GroupSummaryAlignment = taRightJustify
HeaderAlignmentHorz = taRightJustify
end
object cxGridViewIMPORTE_IVA: TcxGridDBColumn
DataBinding.FieldName = 'IMPORTE_IVA'
PropertiesClassName = 'TcxCurrencyEditProperties'
Properties.Alignment.Horz = taRightJustify
FooterAlignmentHorz = taRightJustify
GroupSummaryAlignment = taRightJustify
HeaderAlignmentHorz = taRightJustify
end
object cxGridViewIMPORTE_TOTAL: TcxGridDBColumn object cxGridViewIMPORTE_TOTAL: TcxGridDBColumn
Caption = 'Importe total' Caption = 'Importe total'
DataBinding.FieldName = 'IMPORTE_TOTAL' DataBinding.FieldName = 'IMPORTE_TOTAL'
@ -130,7 +176,7 @@ inherited frViewContratosCliente: TfrViewContratosCliente
Caption = 'Vendedor' Caption = 'Vendedor'
DataBinding.FieldName = 'VENDEDOR' DataBinding.FieldName = 'VENDEDOR'
PropertiesClassName = 'TcxTextEditProperties' PropertiesClassName = 'TcxTextEditProperties'
Properties.Alignment.Horz = taRightJustify Properties.Alignment.Horz = taLeftJustify
end end
object cxGridViewLISTA_NOMBRES: TcxGridDBColumn object cxGridViewLISTA_NOMBRES: TcxGridDBColumn
Caption = 'Otros nombres' Caption = 'Otros nombres'
@ -160,26 +206,43 @@ inherited frViewContratosCliente: TfrViewContratosCliente
StyleDisabled.LookAndFeel.SkinName = '' StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = '' StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = '' StyleHot.LookAndFeel.SkinName = ''
ExplicitWidth = 806 ExplicitWidth = 250
Width = 806 Width = 250
end end
inherited edtFechaIniFiltro: TcxDateEdit inherited edtFechaIniFiltro: TcxDateEdit
Style.LookAndFeel.SkinName = '' Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = '' StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = '' StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = '' StyleHot.LookAndFeel.SkinName = ''
ExplicitWidth = 285 ExplicitWidth = 250
Width = 285 Width = 250
end end
inherited edtFechaFinFiltro: TcxDateEdit inherited edtFechaFinFiltro: TcxDateEdit
Left = 389 Left = 515
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 = 389 ExplicitLeft = 515
ExplicitWidth = 504 ExplicitWidth = 250
Width = 504 Width = 250
end
inherited txtFiltroTodo2: TcxTextEdit
Left = 515
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitLeft = 515
ExplicitWidth = 250
Width = 250
end
inherited dxLayoutControl1Group_Root: TdxLayoutGroup
inherited dxLayoutControl1Group2: TdxLayoutGroup
inherited dxLayoutControl1Item4: TdxLayoutItem
Visible = True
end
end
end end
end end
inherited TBXAlignmentPanel1: TTBXAlignmentPanel inherited TBXAlignmentPanel1: TTBXAlignmentPanel
@ -191,14 +254,6 @@ inherited frViewContratosCliente: TfrViewContratosCliente
end end
end end
end end
inherited dxLayoutLookAndFeelList1: TdxLayoutLookAndFeelList
Left = 56
end
inherited ActionList1: TActionList
inherited actQuitarFiltro: TAction
OnExecute = frViewFiltroBase1actQuitarFiltroExecute
end
end
end end
inherited pnlAgrupaciones: TTBXDockablePanel inherited pnlAgrupaciones: TTBXDockablePanel
Top = 499 Top = 499

2
Source/Modulos/Contratos de cliente/Views/uViewContratosCliente.pas
View File

@ -47,6 +47,8 @@ type
cxGridViewVENDEDOR: TcxGridDBColumn; cxGridViewVENDEDOR: TcxGridDBColumn;
cxGridViewColumn1: TcxGridDBColumn; cxGridViewColumn1: TcxGridDBColumn;
cxGridViewLISTA_NOMBRES: TcxGridDBColumn; cxGridViewLISTA_NOMBRES: TcxGridDBColumn;
cxGridViewBASE_IMPONIBLE: TcxGridDBColumn;
cxGridViewIMPORTE_IVA: TcxGridDBColumn;
procedure cxGridActiveTabChanged(Sender: TcxCustomGrid; ALevel: procedure cxGridActiveTabChanged(Sender: TcxCustomGrid; ALevel:
TcxGridLevel); TcxGridLevel);
procedure cxGridViewStylesGetContentStyle(Sender: TcxCustomGridTableView; procedure cxGridViewStylesGetContentStyle(Sender: TcxCustomGridTableView;

178
Source/Modulos/Facturas de cliente/Reports/uRptFacturasCliente_Server.dfm
View File

@ -669,6 +669,110 @@ object RptFacturasCliente: TRptFacturasCliente
DataType = datCurrency DataType = datCurrency
end> end>
end end
item
Params = <>
Statements = <
item
Connection = 'IBX'
ConnectionType = 'Interbase'
Default = True
Name = 'IBX'
SQL =
'select ID_EMPRESA,'#10'REFERENCIA, ID_CLIENTE, NOMBRE_CLIENTE, SITU' +
'ACION, NIF_CIF, FECHA_EMISION, FECHA_VENCIMIENTO, IMPORTE_TOTAL,' +
' case when SITUACION = '#39'COBRADO'#39' THEN IMPORTE_TOTAL ELSE 0 end a' +
's IMPORTE_COBRADO'#10#10'from V_RECIBOS_cliente'#10'where {where}'#10'order by' +
' FECHA_EMISION, NOMBRE_CLIENTE'#10
StatementType = stSQL
ColumnMappings = <
item
DatasetField = 'ID_EMPRESA'
TableField = 'ID_EMPRESA'
end
item
DatasetField = 'REFERENCIA'
TableField = 'REFERENCIA'
end
item
DatasetField = 'ID_CLIENTE'
TableField = 'ID_CLIENTE'
end
item
DatasetField = 'NOMBRE_CLIENTE'
TableField = 'NOMBRE_CLIENTE'
end
item
DatasetField = 'SITUACION'
TableField = 'SITUACION'
end
item
DatasetField = 'NIF_CIF'
TableField = 'NIF_CIF'
end
item
DatasetField = 'FECHA_EMISION'
TableField = 'FECHA_EMISION'
end
item
DatasetField = 'FECHA_VENCIMIENTO'
TableField = 'FECHA_VENCIMIENTO'
end
item
DatasetField = 'IMPORTE_TOTAL'
TableField = 'IMPORTE_TOTAL'
end
item
DatasetField = 'IMPORTE_COBRADO'
TableField = 'IMPORTE_COBRADO'
end>
end>
Name = 'ListadoRecibos'
Fields = <
item
Name = 'ID_EMPRESA'
DataType = datInteger
end
item
Name = 'REFERENCIA'
DataType = datString
Size = 255
end
item
Name = 'ID_CLIENTE'
DataType = datInteger
end
item
Name = 'NOMBRE_CLIENTE'
DataType = datString
Size = 255
end
item
Name = 'SITUACION'
DataType = datString
Size = 9
end
item
Name = 'NIF_CIF'
DataType = datString
Size = 15
end
item
Name = 'FECHA_EMISION'
DataType = datDateTime
end
item
Name = 'FECHA_VENCIMIENTO'
DataType = datDateTime
end
item
Name = 'IMPORTE_TOTAL'
DataType = datCurrency
end
item
Name = 'IMPORTE_COBRADO'
DataType = datCurrency
end>
end
item item
Params = < Params = <
item item
@ -1491,7 +1595,7 @@ object RptFacturasCliente: TRptFacturasCliente
PrintOptions.Printer = 'Por defecto' PrintOptions.Printer = 'Por defecto'
PrintOptions.PrintOnSheet = 0 PrintOptions.PrintOnSheet = 0
ReportOptions.CreateDate = 37800.807714351900000000 ReportOptions.CreateDate = 37800.807714351900000000
ReportOptions.LastChange = 42143.652865393500000000 ReportOptions.LastChange = 44648.779153101900000000
ScriptLanguage = 'PascalScript' ScriptLanguage = 'PascalScript'
ShowProgress = False ShowProgress = False
StoreInDFM = False StoreInDFM = False
@ -1716,4 +1820,76 @@ object RptFacturasCliente: TRptFacturasCliente
Left = 256 Left = 256
Top = 344 Top = 344
end end
object frxDBInformeListadoRecibos: TfrxDBDataset
UserName = 'frxDBInformeListadoRecibos'
CloseDataSource = True
DataSource = DADSInformeListadoRecibos
BCDToCurrency = False
Left = 736
Top = 24
end
object DADSInformeListadoRecibos: TDADataSource
DataSet = tbl_InformeListadoRecibos.Dataset
DataTable = tbl_InformeListadoRecibos
Left = 736
Top = 72
end
object tbl_InformeListadoRecibos: TDAMemDataTable
RemoteUpdatesOptions = []
Fields = <
item
Name = 'ID_EMPRESA'
DataType = datInteger
end
item
Name = 'REFERENCIA'
DataType = datString
Size = 255
end
item
Name = 'ID_CLIENTE'
DataType = datInteger
end
item
Name = 'NOMBRE_CLIENTE'
DataType = datString
Size = 255
end
item
Name = 'SITUACION'
DataType = datString
Size = 9
end
item
Name = 'NIF_CIF'
DataType = datString
Size = 15
end
item
Name = 'FECHA_EMISION'
DataType = datDateTime
end
item
Name = 'FECHA_VENCIMIENTO'
DataType = datDateTime
end
item
Name = 'IMPORTE_TOTAL'
DataType = datCurrency
end
item
Name = 'IMPORTE_COBRADO'
DataType = datCurrency
end>
Params = <>
LogChanges = False
StreamingOptions = [soDisableEventsWhileStreaming]
RemoteFetchEnabled = False
LocalSchema = schReport
LocalDataStreamer = Bin2DataStreamer
LogicalName = 'ListadoRecibos'
IndexDefs = <>
Left = 736
Top = 128
end
end end

102
Source/Modulos/Facturas de cliente/Reports/uRptFacturasCliente_Server.pas
View File

@ -38,6 +38,9 @@ type
frxDBInformeListadoFacturasResumen: TfrxDBDataset; frxDBInformeListadoFacturasResumen: TfrxDBDataset;
frxPDFExport1: TfrxPDFExport; frxPDFExport1: TfrxPDFExport;
schReport: TDASchema; schReport: TDASchema;
frxDBInformeListadoRecibos: TfrxDBDataset;
DADSInformeListadoRecibos: TDADataSource;
tbl_InformeListadoRecibos: TDAMemDataTable;
procedure DataModuleCreate(Sender: TObject); procedure DataModuleCreate(Sender: TObject);
procedure DataModuleDestroy(Sender: TObject); procedure DataModuleDestroy(Sender: TObject);
private private
@ -67,6 +70,7 @@ type
function GenerarInformeIVA(const IdEmpresa: Integer; const FechaInicio: Variant; const FechaFin: Variant; const ListaIDClientes: TIntegerArray; const Desglosado: Boolean; const ImporteMinimo: Currency): Binary; function GenerarInformeIVA(const IdEmpresa: Integer; const FechaInicio: Variant; const FechaFin: Variant; const ListaIDClientes: TIntegerArray; const Desglosado: Boolean; const ImporteMinimo: Currency): Binary;
function GenerarInformeListadoFacturas(const IdEmpresa: Integer; const FechaInicio: Variant; const FechaFin: Variant; const ListaIDClientes: TIntegerArray; const Desglosado: Boolean; const ImporteMinimo: Currency): Binary; function GenerarInformeListadoFacturas(const IdEmpresa: Integer; const FechaInicio: Variant; const FechaFin: Variant; const ListaIDClientes: TIntegerArray; const Desglosado: Boolean; const ImporteMinimo: Currency): Binary;
function GenerarInformeListadoFacturasPendientes(const IdEmpresa: Integer; const FechaInicio: Variant; const FechaFin: Variant; const ListaIDClientes: TIntegerArray; const Desglosado: Boolean; const ImporteMinimo: Currency): Binary; function GenerarInformeListadoFacturasPendientes(const IdEmpresa: Integer; const FechaInicio: Variant; const FechaFin: Variant; const ListaIDClientes: TIntegerArray; const Desglosado: Boolean; const ImporteMinimo: Currency): Binary;
function GenerarInformeListadoFacturasRecibos(const IdEmpresa: Integer; const ListaIDClientes: TIntegerArray; const Desglosado: Boolean; const FechaInicio, FechaFin: Variant): Binary;
end; end;
implementation implementation
@ -75,7 +79,7 @@ implementation
uses uses
uSistemaFunc, StrUtils, uROServer, DataAbstract4_Intf, uSistemaFunc, StrUtils, uROServer, DataAbstract4_Intf,
uDataModuleServer, schFacturasClienteClient_Intf; uDataModuleServer, schFacturasClienteClient_Intf, schRecibosClienteClient_Intf;
const const
rptFacturaCliente = 'InfFacturaCliente.fr3'; rptFacturaCliente = 'InfFacturaCliente.fr3';
@ -86,6 +90,8 @@ const
rptInformeListadoFacturasClienteDesglosado = 'InformeListadoFacturasClienteDesglosado.fr3'; rptInformeListadoFacturasClienteDesglosado = 'InformeListadoFacturasClienteDesglosado.fr3';
rptInformeListadoFactuasClientePendiente = 'InformeListadoFacturasClientePendientes.fr3'; rptInformeListadoFactuasClientePendiente = 'InformeListadoFacturasClientePendientes.fr3';
rptInformeListadoFactuasClientePendienteDesglosado = 'InformeListadoFacturasClientePendientesDesglosado.fr3'; rptInformeListadoFactuasClientePendienteDesglosado = 'InformeListadoFacturasClientePendientesDesglosado.fr3';
rptInformeListadoFacturasRecibosCliente = 'InformeListadoFacturasRecibosCliente.fr3';
rptInformeListadoFacturasRecibosClienteDesglosado = 'InformeListadoFacturasRecibosClienteDesglosado.fr3';
ds_InformeListadoFacturasResumen = 'ListadoFacturasResumen'; ds_InformeListadoFacturasResumen = 'ListadoFacturasResumen';
@ -338,6 +344,59 @@ begin
end; end;
end; end;
function TRptFacturasCliente.GenerarInformeListadoFacturasRecibos(
const IdEmpresa: Integer; const ListaIDClientes: TIntegerArray;
const Desglosado: Boolean; const FechaInicio, FechaFin: Variant): Binary;
var
ATipoInforme: String;
AStream: TMemoryStream;
dsMaster: IDADataset;
Condicion: TDAWhereExpression;
begin
FConnection.BeginTransaction; //<--- Creo que no va a hacer falta. "PUES SI ES NECESARIO"
AStream := TMemoryStream.Create;
try
//Inicializamos parametros
FIdEmpresa := IdEmpresa;
FFechaInicio := FechaInicio;
FFechaFin := FechaFin;
if Assigned(FListaIDClientes) then
FListaIDClientes.Free;
FListaIDClientes := ListaIDClientes;
//Se prepara la tabla del listado general del informe
if tbl_InformeListadoFacturas.Active then
tbl_InformeListadoFacturas.Active := False;
PrepararTablaInforme(tbl_InformeListadoFacturas);
//Se prepara la tabla del listado general del informe
if tbl_InformeListadoRecibos.Active then
tbl_InformeListadoRecibos.Active := False;
PrepararTablaInforme(tbl_InformeListadoRecibos);
//DESGLOSADO POR CLIENTE EN ESTE INFORME NO SE DESGLOSARÁ POR CLIENTE
FDesglosado := Desglosado;
if FDesglosado then
ATipoInforme := rptInformeListadoFacturasRecibosClienteDesglosado
else
ATipoInforme := rptInformeListadoFacturasRecibosCliente;
//Finalmente se abren las tablas del informe
tbl_InformeListadoFacturas.Active := True;
tbl_InformeListadoRecibos.Active := True;
Result := _GenerarInforme(ATipoInforme);
finally
AStream.Free;
dsMaster := Nil;
FConnection.RollbackTransaction; //<--- Creo que no va a hacer falta. "PUES SI ES NECESARIO"
end;
end;
procedure TRptFacturasCliente.IniciarParametrosInforme; procedure TRptFacturasCliente.IniciarParametrosInforme;
var var
ATextos : TStringList; ATextos : TStringList;
@ -409,16 +468,37 @@ begin
if not VarIsNull(FFechaInicio) if not VarIsNull(FFechaInicio)
and not VarIsNull(FFechaFin) then and not VarIsNull(FFechaFin) then
begin begin
with ATabla.DynamicWhere do //Solo aplicamos where si existe el campo (ya que en recibos no existe)
begin if Assigned(ATabla.FindField(fld_FacturasClienteFECHA_FACTURA)) then
// (FECHA_INICIO between FECHA_FIN) with ATabla.DynamicWhere do
Condicion := NewBinaryExpression(NewField('', fld_FacturasClienteFECHA_FACTURA), NewConstant(FFechaInicio, datDateTime), dboGreaterOrEqual); begin
Condicion := NewBinaryExpression(NewBinaryExpression(NewField('', fld_FacturasClienteFECHA_FACTURA), NewConstant(FFechaFin, datDateTime), dboLessOrEqual), Condicion, dboAnd); // (FECHA_INICIO between FECHA_FIN)
if IsEmpty then Condicion := NewBinaryExpression(NewField('', fld_FacturasClienteFECHA_FACTURA), NewConstant(FFechaInicio, datDateTime), dboGreaterOrEqual);
Expression := Condicion Condicion := NewBinaryExpression(NewBinaryExpression(NewField('', fld_FacturasClienteFECHA_FACTURA), NewConstant(FFechaFin, datDateTime), dboLessOrEqual), Condicion, dboAnd);
else if IsEmpty then
Expression := NewBinaryExpression(Expression, Condicion, dboAnd); Expression := Condicion
end; else
Expression := NewBinaryExpression(Expression, Condicion, dboAnd);
end;
end;
// Filtrar el informe por fechas
if not VarIsNull(FFechaInicio)
and not VarIsNull(FFechaFin) then
begin
//Solo aplicamos where si existe el campo (ya que en facturas no existe)
if Assigned(ATabla.FindField(fld_RecibosClienteFECHA_EMISION)) then
with ATabla.DynamicWhere do
begin
// (FECHA_INICIO between FECHA_FIN)
Condicion := NewBinaryExpression(NewField('', fld_RecibosClienteFECHA_EMISION), NewConstant(FFechaInicio, datDateTime), dboGreaterOrEqual);
Condicion := NewBinaryExpression(NewBinaryExpression(NewField('', fld_RecibosClienteFECHA_EMISION), NewConstant(FFechaFin, datDateTime), dboLessOrEqual), Condicion, dboAnd);
if IsEmpty then
Expression := Condicion
else
Expression := NewBinaryExpression(Condicion, Expression, dboAnd);
end;
end; end;
// Filtrar el informe por fechas de vencimiento // Filtrar el informe por fechas de vencimiento

50
Source/Modulos/Facturas de cliente/Views/uEditorFacturasCliente.dfm
View File

@ -65,7 +65,7 @@ inherited fEditorFacturasCliente: TfEditorFacturasCliente
end end
end end
inherited tbxFiltro: TTBXToolbar inherited tbxFiltro: TTBXToolbar
ExplicitWidth = 431 ExplicitWidth = 356
inherited lblAno: TTBXLabelItem inherited lblAno: TTBXLabelItem
Visible = True Visible = True
end end
@ -80,10 +80,10 @@ inherited fEditorFacturasCliente: TfEditorFacturasCliente
ExplicitWidth = 640 ExplicitWidth = 640
end end
inherited TBXTMain2: TTBXToolbar inherited TBXTMain2: TTBXToolbar
Left = 431 Left = 356
Visible = True Visible = True
ExplicitLeft = 431 ExplicitLeft = 356
ExplicitWidth = 194 ExplicitWidth = 211
object TBXItem42: TTBXItem object TBXItem42: TTBXItem
Action = actCambiarSituacion Action = actCambiarSituacion
DisplayMode = nbdmImageAndText DisplayMode = nbdmImageAndText
@ -226,6 +226,16 @@ inherited fEditorFacturasCliente: TfEditorFacturasCliente
ExplicitWidth = 263 ExplicitWidth = 263
Width = 263 Width = 263
end end
inherited txtFiltroTodo2: TcxTextEdit
Left = 459
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitLeft = 459
ExplicitWidth = 250
Width = 250
end
end end
inherited TBXAlignmentPanel1: TTBXAlignmentPanel inherited TBXAlignmentPanel1: TTBXAlignmentPanel
Width = 640 Width = 640
@ -308,6 +318,7 @@ inherited fEditorFacturasCliente: TfEditorFacturasCliente
object actCambiarSituacion: TAction object actCambiarSituacion: TAction
Category = 'Archivo' Category = 'Archivo'
Caption = 'Cambio de situaci'#243'n' Caption = 'Cambio de situaci'#243'n'
ImageIndex = 27
OnExecute = actCambiarSituacionExecute OnExecute = actCambiarSituacionExecute
end end
object actNuevaProforma: TAction object actNuevaProforma: TAction
@ -1088,6 +1099,25 @@ inherited fEditorFacturasCliente: TfEditorFacturasCliente
AE426082} AE426082}
Name = 'PngImage26' Name = 'PngImage26'
Background = clWindow Background = clWindow
end
item
PngImage.Data = {
89504E470D0A1A0A0000000D49484452000000100000001008060000001FF3FF
61000000097048597300000B3A00000B3A01647F570D0000015D4944415478DA
63FCFFFF3F030830323232C0C0CEB58DCA2F6E6CBDF3FEF129B818C30F061490
3FFF3F58032336032E9C58FD9F8B47904155DB192EF6FFD72B867F9F2F31FCB9
E3CA3063061E0380B6DBB373F01CB076CD66606165C7AAB96001923E6403809A
9979F925FEC8299B32482B18E2D40C16C7614032D08039164EA97017810CF875
5E1CAC196F18EC5AD7C40F74FA073DB36006411179B8E6FF3F5F32FCBEA687A2
196B18000D681797D6AAD06008852B64D5BA0434E4251833000DFBFBA2087718
2CEF76FFFFE1E119865F5FDF81F9B993706BC61906D0589056D7D07F2223CE8D
53332103DAC5C4A52B749438706AC6170BECACAC6C3FF4547918F8397FE3D48C
3F1A79F9E7982A7F66F8FBBA16A7669C061CDB35E1BF9CAA1D83C84B23BC9AB1
1A008C466BA0F38F5888D632CC9AF907AF66AC065C383AF73FC7B7150C3B97ED
21A819AB0137CE2CFBBF776E2643CE8C4F0435231B00004A4C11F0D3652A8300
00000049454E44AE426082}
Name = 'PngImage27'
Background = clWindow
end> end>
Left = 395 Left = 395
Bitmap = {} Bitmap = {}
@ -2612,6 +2642,10 @@ inherited fEditorFacturasCliente: TfEditorFacturasCliente
item item
Caption = 'Previsualizar la lista de facturas actual' Caption = 'Previsualizar la lista de facturas actual'
Value = 200 Value = 200
end
item
Caption = 'Listado facturas/cobros de cliente seleccionado'
Value = 300
end> end>
ButtonBar.Buttons = [cbCancel] ButtonBar.Buttons = [cbCancel]
MainIcon = tdiCustom MainIcon = tdiCustom
@ -2923,6 +2957,10 @@ inherited fEditorFacturasCliente: TfEditorFacturasCliente
item item
Caption = 'Imprimir la lista de facturas actual' Caption = 'Imprimir la lista de facturas actual'
Value = 200 Value = 200
end
item
Caption = 'Listado facturas/cobros de cliente seleccionado'
Value = 300
end> end>
ButtonBar.Buttons = [cbCancel] ButtonBar.Buttons = [cbCancel]
MainIcon = tdiCustom MainIcon = tdiCustom
@ -3862,6 +3900,10 @@ inherited fEditorFacturasCliente: TfEditorFacturasCliente
item item
Caption = 'Listado de facturas' Caption = 'Listado de facturas'
Value = 300 Value = 300
end
item
Caption = 'Listado facturas/cobros de cliente seleccionado'
Value = 400
end> end>
ButtonBar.Buttons = [cbCancel] ButtonBar.Buttons = [cbCancel]
MainIcon = tdiCustom MainIcon = tdiCustom

21
Source/Modulos/Facturas de cliente/Views/uEditorFacturasCliente.pas
View File

@ -218,6 +218,9 @@ begin
300 : begin // Listado de facturas de cliente 300 : begin // Listado de facturas de cliente
AGestorInformesController.VerInformeListadoFacturasCli; AGestorInformesController.VerInformeListadoFacturasCli;
end; end;
400: begin // Listado de facturas/cobros de cliente
AGestorInformesController.VerInformeListadoFacturasRecibosCli(Facturas.ID_CLIENTE);
end;
end; end;
end; end;
@ -420,6 +423,7 @@ procedure TfEditorFacturasCliente.ImprimirInterno;
var var
Respuesta : Integer; Respuesta : Integer;
AFacturas: IBizFacturaCliente; AFacturas: IBizFacturaCliente;
AGestorInformesController : IGestorInformesController;
AllItems: Boolean; AllItems: Boolean;
begin begin
AFacturas := Nil; AFacturas := Nil;
@ -452,6 +456,14 @@ begin
if Assigned(AFacturas) then if Assigned(AFacturas) then
FController.Print(AFacturas, AllItems); FController.Print(AFacturas, AllItems);
end; end;
300: begin // Listado de facturas/cobros de cliente
AGestorInformesController := TGestorInformesController.Create;
try
AGestorInformesController.VerInformeListadoFacturasRecibosCli(Facturas.ID_CLIENTE);
finally
AGestorInformesController := NIL;
end;
end;
end; end;
end; end;
end; end;
@ -527,6 +539,7 @@ procedure TfEditorFacturasCliente.PrevisualizarInterno;
var var
Respuesta : Integer; Respuesta : Integer;
AFacturas: IBizFacturaCliente; AFacturas: IBizFacturaCliente;
AGestorInformesController : IGestorInformesController;
AllItems: Boolean; AllItems: Boolean;
begin begin
AFacturas := Nil; AFacturas := Nil;
@ -559,6 +572,14 @@ begin
if Assigned(AFacturas) then if Assigned(AFacturas) then
FController.Preview(AFacturas, AllItems); FController.Preview(AFacturas, AllItems);
end; end;
300: begin // Listado de facturas/cobros de cliente
AGestorInformesController := TGestorInformesController.Create;
try
AGestorInformesController.VerInformeListadoFacturasRecibosCli(Facturas.ID_CLIENTE);
finally
AGestorInformesController := NIL;
end;
end;
end; end;
end; end;
end; end;

3
Source/Modulos/Facturas de proveedor/Controller/uFacturasProveedorController.pas
View File

@ -1372,7 +1372,8 @@ begin
ARecibos.IMPORTE := AFactura.IMPORTE_TOTAL * (AFormaPago.Plazos.PORCENTAJE / 100); ARecibos.IMPORTE := AFactura.IMPORTE_TOTAL * (AFormaPago.Plazos.PORCENTAJE / 100);
end; end;
ARecibos.DESCRIPCION := 'Pago de factura ' + AFactura.REFERENCIA + ': son ' + CifraToLetras(ARecibos.IMPORTE); // ARecibos.DESCRIPCION := 'Pago de factura ' + AFactura.REFERENCIA + ': son ' + CifraToLetras(ARecibos.IMPORTE);
ARecibos.DESCRIPCION := 'Pago de factura ' + AFactura.REFERENCIA + ' - ' + ARecibos.NOMBRE + ' - Ref. ' + AFactura.REFERENCIA_PROVEEDOR + ': son '+ CifraToLetras(ARecibos.IMPORTE);
ARecibosProveedorController.Guardar(ARecibos); ARecibosProveedorController.Guardar(ARecibos);
if (AFormaPago.Plazos.RecordCount < 1) and (not AFormaPago.ID_SUBCUENTAIsNull) then if (AFormaPago.Plazos.RecordCount < 1) and (not AFormaPago.ID_SUBCUENTAIsNull) then

2
Source/Modulos/Formas de pago/Views/uEditorFormaPago.dfm
View File

@ -31,8 +31,6 @@ object fEditorFormaPago: TfEditorFormaPago
Align = alClient Align = alClient
TabOrder = 0 TabOrder = 0
TabStop = False TabStop = False
ExplicitWidth = 412
ExplicitHeight = 515
object Bevel4: TBevel object Bevel4: TBevel
Left = 10 Left = 10
Top = 329 Top = 329

3
Source/Modulos/Formas de pago/Views/uEditorFormaPago.pas
View File

@ -162,6 +162,9 @@ end;
procedure TfEditorFormaPago.actAnadirExecute(Sender: TObject); procedure TfEditorFormaPago.actAnadirExecute(Sender: TObject);
begin begin
if Assigned(FFormaPago) and (FFormaPago.State = dsInsert) then
FController.Guardar(FFormaPago);
FPlazos.Append; FPlazos.Append;
end; end;

5
Source/Modulos/Gestor de informes/Controller/GestorInformes_controller.dpk
View File

@ -43,6 +43,9 @@ contains
uIEditorInformeFacturasProveedorReport in 'View\uIEditorInformeFacturasProveedorReport.pas', uIEditorInformeFacturasProveedorReport in 'View\uIEditorInformeFacturasProveedorReport.pas',
uIEditorInformePresupuestosReport in 'View\uIEditorInformePresupuestosReport.pas', uIEditorInformePresupuestosReport in 'View\uIEditorInformePresupuestosReport.pas',
uIEditorInformeRecibosProveedorReport in 'View\uIEditorInformeRecibosProveedorReport.pas', uIEditorInformeRecibosProveedorReport in 'View\uIEditorInformeRecibosProveedorReport.pas',
uIEditorInformePedidosReport in 'View\uIEditorInformePedidosReport.pas'; uIEditorInformePedidosReport in 'View\uIEditorInformePedidosReport.pas',
uIEditorInformeFacturasRecibosClienteReport in 'View\uIEditorInformeFacturasRecibosClienteReport.pas',
uIViewFiltroClientes in 'View\uIViewFiltroClientes.pas',
uIViewParametrosInforme in 'View\uIViewParametrosInforme.pas';
end. end.

5
Source/Modulos/Gestor de informes/Controller/GestorInformes_controller.dproj
View File

@ -47,6 +47,7 @@
<DCCReference Include="View\uIEditorInformeFacturasClienteReport.pas" /> <DCCReference Include="View\uIEditorInformeFacturasClienteReport.pas" />
<DCCReference Include="View\uIEditorInformeFacturasProveedorPendientesReport.pas" /> <DCCReference Include="View\uIEditorInformeFacturasProveedorPendientesReport.pas" />
<DCCReference Include="View\uIEditorInformeFacturasProveedorReport.pas" /> <DCCReference Include="View\uIEditorInformeFacturasProveedorReport.pas" />
<DCCReference Include="View\uIEditorInformeFacturasRecibosClienteReport.pas" />
<DCCReference Include="View\uIEditorInformeIVAClientesReport.pas" /> <DCCReference Include="View\uIEditorInformeIVAClientesReport.pas" />
<DCCReference Include="View\uIEditorInformeIVAProveedoresReport.pas" /> <DCCReference Include="View\uIEditorInformeIVAProveedoresReport.pas" />
<DCCReference Include="View\uIEditorInformePedidosReport.pas" /> <DCCReference Include="View\uIEditorInformePedidosReport.pas" />
@ -55,11 +56,13 @@
<DCCReference Include="View\uIEditorInformeRecibosCliPendientesReport.pas" /> <DCCReference Include="View\uIEditorInformeRecibosCliPendientesReport.pas" />
<DCCReference Include="View\uIEditorInformeRecibosProveedorReport.pas" /> <DCCReference Include="View\uIEditorInformeRecibosProveedorReport.pas" />
<DCCReference Include="View\uIEditorInformeRecibosProvPendientesReport.pas" /> <DCCReference Include="View\uIEditorInformeRecibosProvPendientesReport.pas" />
<DCCReference Include="View\uIViewFiltroClientes.pas" />
<DCCReference Include="View\uIViewParametrosInforme.pas" />
</ItemGroup> </ItemGroup>
</Project> </Project>
<!-- EurekaLog First Line <!-- EurekaLog First Line
[Exception Log] [Exception Log]
EurekaLog Version=6011 EurekaLog Version=6006
Activate=0 Activate=0
Activate Handle=1 Activate Handle=1
Save Log File=1 Save Log File=1

27
Source/Modulos/Gestor de informes/Controller/View/uIEditorInformeFacturasRecibosClienteReport.pas Normal file
View File

@ -0,0 +1,27 @@
unit uIEditorInformeFacturasRecibosClienteReport;
interface
uses
FactuGES_Intf, uIEditorInformeBase, uIViewFiltroClientes;
type
IEditorInformeFacturasRecibosClienteReport = interface(IEditorInformeBase)
['{7FC75108-B0FC-410D-B575-96128C936F13}']
function GetListaIDClientes: TIntegerArray;
function GetDesglosadoCliente: Boolean;
function getViewFiltroCliente: IViewFiltroClientes;
function GetFechaFin: Variant;
function GetFechaInicio: Variant;
property ListaIDClientes: TIntegerArray read GetListaIDClientes;
property DesglosadoCliente: Boolean read GetDesglosadoCliente;
property viewFiltroCliente: IViewFiltroClientes read getViewFiltroCliente;
property FechaInicio: Variant read GetFechaInicio;
property FechaFin: Variant read GetFechaFin;
end;
implementation
end.

18
Source/Modulos/Gestor de informes/Controller/View/uIViewFiltroClientes.pas Normal file
View File

@ -0,0 +1,18 @@
unit uIViewFiltroClientes;
interface
uses
uIViewParametrosInforme;
type
IViewFiltroClientes = interface(IViewParametrosInforme)
['{E132C9DB-4E92-4F79-AC1C-8827C7FCF8DA}']
procedure setIdCliente(const IdCliente:Integer);
function getIdCliente: Integer;
property IdCliente : Integer read getIdCliente write setIdCliente;
end;
implementation
end.

15
Source/Modulos/Gestor de informes/Controller/View/uIViewParametrosInforme.pas Normal file
View File

@ -0,0 +1,15 @@
unit uIViewParametrosInforme;
interface
uses
uViewBase;
type
IViewParametrosInforme = interface(IViewBase)
['{2578FF9E-F084-4603-81D8-32450E3865B7}']
end;
implementation
end.

28
Source/Modulos/Gestor de informes/Controller/uGestorInformesController.pas
View File

@ -22,6 +22,7 @@ type
procedure VerInformeIVAClientes; procedure VerInformeIVAClientes;
procedure VerInformeListadoFacturasCli; procedure VerInformeListadoFacturasCli;
procedure VerInformeListadoFacturasCliPendientes; procedure VerInformeListadoFacturasCliPendientes;
procedure VerInformeListadoFacturasRecibosCli(const ID_CLIENTE: Integer);
//MODULO RECIBOS DE CLIENTE //MODULO RECIBOS DE CLIENTE
procedure VerInformeListadoRecibosCliPendientes; procedure VerInformeListadoRecibosCliPendientes;
@ -68,6 +69,7 @@ type
procedure VerInformeIVAClientes; procedure VerInformeIVAClientes;
procedure VerInformeListadoFacturasCli; procedure VerInformeListadoFacturasCli;
procedure VerInformeListadoFacturasCliPendientes; procedure VerInformeListadoFacturasCliPendientes;
procedure VerInformeListadoFacturasRecibosCli(const ID_CLIENTE: Integer);
//MODULO RECIBOS DE CLIENTE //MODULO RECIBOS DE CLIENTE
procedure VerInformeListadoRecibosCliPendientes; procedure VerInformeListadoRecibosCliPendientes;
@ -98,7 +100,7 @@ uses
uIEditorInformeIVAProveedoresReport, uIEditorInformeFacturasProveedorReport, uIEditorInformeIVAProveedoresReport, uIEditorInformeFacturasProveedorReport,
uIEditorInformeFacturasProveedorPendientesReport, uIEditorInformeRecibosProveedorReport, uIEditorInformeFacturasProveedorPendientesReport, uIEditorInformeRecibosProveedorReport,
uIEditorInformeRecibosProvPendientesReport, uIEditorInformeRecibosProvPendientesReport,
uIEditorInformePedidosReport; uIEditorInformePedidosReport, uIEditorInformeFacturasRecibosClienteReport;
{procedure CopiarArticulosPedido(AOrigen: IBizDetallesPedidoCliente; {procedure CopiarArticulosPedido(AOrigen: IBizDetallesPedidoCliente;
@ -411,6 +413,30 @@ begin
end; end;
end; end;
procedure TGestorInformesController.VerInformeListadoFacturasRecibosCli(const ID_CLIENTE: Integer);
var
AStream: Binary;
AEditor : IEditorInformeFacturasRecibosClienteReport;
begin
AEditor := NIL;
CreateEditor('EditorInformeFacturasRecibosClienteReport', IEditorInformeFacturasRecibosClienteReport, AEditor);
if Assigned(AEditor) then
try
AEditor.Controller := Self;
AEditor.Title := 'Listado de facturas/recibos de cliente';
AEditor.viewFiltroCliente.IdCliente := ID_CLIENTE;
AStream := FDataModule.GenerarInformeListadoFacturasRecibosCli(AppFactuGES.EmpresaActiva.ID, AEditor.ListaIDClientes,
AEditor.DesglosadoCliente, AEditor.FechaInicio, AEditor.FechaFin);
AEditor.LoadFromStream(AStream);
AEditor.Preview;
finally
AEditor.Release;
AEditor := Nil;
FreeAndNil(AStream);
end;
end;
procedure TGestorInformesController.VerInformeListadoPresupuestos; procedure TGestorInformesController.VerInformeListadoPresupuestos;
var var
AStream: Binary; AStream: Binary;

4
Source/Modulos/Gestor de informes/Data/uDataModuleGestorInformes.dfm
View File

@ -10,12 +10,12 @@ inherited DataModuleGestorInformes: TDataModuleGestorInformes
Top = 16 Top = 16
end end
object rda_GestorInformes: TDARemoteDataAdapter object rda_GestorInformes: TDARemoteDataAdapter
DataStreamer = Bin2DataStreamer
GetSchemaCall.RemoteService = RORemoteService GetSchemaCall.RemoteService = RORemoteService
GetDataCall.RemoteService = RORemoteService GetDataCall.RemoteService = RORemoteService
UpdateDataCall.RemoteService = RORemoteService UpdateDataCall.RemoteService = RORemoteService
GetScriptsCall.RemoteService = RORemoteService GetScriptsCall.RemoteService = RORemoteService
RemoteService = RORemoteService RemoteService = RORemoteService
DataStreamer = Bin2DataStreamer
Left = 43 Left = 43
Top = 135 Top = 135
end end
@ -47,8 +47,6 @@ inherited DataModuleGestorInformes: TDataModuleGestorInformes
end> end>
StreamingOptions = [soDisableEventsWhileStreaming] StreamingOptions = [soDisableEventsWhileStreaming]
RemoteDataAdapter = rda_GestorInformes RemoteDataAdapter = rda_GestorInformes
DetailOptions = [dtCascadeOpenClose, dtCascadeApplyUpdates, dtAutoFetch, dtCascadeDelete, dtCascadeUpdate, dtDisableLogOfCascadeDeletes, dtDisableLogOfCascadeUpdates, dtIncludeInAllInOneFetch]
MasterOptions = [moCascadeOpenClose, moCascadeApplyUpdates, moCascadeDelete, moCascadeUpdate, moDisableLogOfCascadeDeletes, moDisableLogOfCascadeUpdates]
LogicalName = 'DirectoryData' LogicalName = 'DirectoryData'
IndexDefs = <> IndexDefs = <>
Left = 184 Left = 184

11
Source/Modulos/Gestor de informes/Data/uDataModuleGestorInformes.pas
View File

@ -29,6 +29,7 @@ type
function GenerarInformeIVAClientes(const IdEmpresa: Integer; const FechaInicio: Variant; const FechaFin: Variant; const ListaIDClientes: TIntegerArray; const Desglosado: Boolean; const ImporteMinimo: Currency): Binary; function GenerarInformeIVAClientes(const IdEmpresa: Integer; const FechaInicio: Variant; const FechaFin: Variant; const ListaIDClientes: TIntegerArray; const Desglosado: Boolean; const ImporteMinimo: Currency): Binary;
function GenerarInformeListadoFacturasCli(const IdEmpresa: Integer; const FechaInicio: Variant; const FechaFin: Variant; const ListaIDClientes: TIntegerArray; const Desglosado: Boolean; const ImporteMinimo: Currency): Binary; function GenerarInformeListadoFacturasCli(const IdEmpresa: Integer; const FechaInicio: Variant; const FechaFin: Variant; const ListaIDClientes: TIntegerArray; const Desglosado: Boolean; const ImporteMinimo: Currency): Binary;
function GenerarInformeListadoFacturasCliPendientes(const IdEmpresa: Integer; const FechaInicio: Variant; const FechaFin: Variant; const ListaIDClientes: TIntegerArray; const Desglosado: Boolean; const ImporteMinimo: Currency): Binary; function GenerarInformeListadoFacturasCliPendientes(const IdEmpresa: Integer; const FechaInicio: Variant; const FechaFin: Variant; const ListaIDClientes: TIntegerArray; const Desglosado: Boolean; const ImporteMinimo: Currency): Binary;
function GenerarInformeListadoFacturasRecibosCli(const IdEmpresa: Integer; const ListaIDClientes: TIntegerArray; const Desglosado: Boolean; const FechaInicio: Variant; const FechaFin: Variant): Binary;
//MODULO RECIBOS DE CLIENTE //MODULO RECIBOS DE CLIENTE
function GenerarInformeListadoRecibosCliPendientes(const IdEmpresa: Integer; const FechaInicio: Variant; const FechaFin: Variant; const FechaVenInicio: Variant; const FechaVenFin: Variant; const ListaIDClientes: TIntegerArray; const Desglosado: Boolean; const ImporteMinimo: Currency): Binary; function GenerarInformeListadoRecibosCliPendientes(const IdEmpresa: Integer; const FechaInicio: Variant; const FechaFin: Variant; const FechaVenInicio: Variant; const FechaVenFin: Variant; const ListaIDClientes: TIntegerArray; const Desglosado: Boolean; const ImporteMinimo: Currency): Binary;
@ -127,6 +128,16 @@ begin
end; end;
end; end;
function TDataModuleGestorInformes.GenerarInformeListadoFacturasRecibosCli(
const IdEmpresa: Integer; const ListaIDClientes: TIntegerArray;
const Desglosado: Boolean; const FechaInicio, FechaFin: Variant): Binary;
begin
try
Result := (RORemoteService as IsrvGestorInformes).GenerarInformeListadoFacturasRecibosCli(IdEmpresa, ListaIdClientes, Desglosado, FechaInicio, FechaFin);
finally
end;
end;
function TDataModuleGestorInformes.GenerarInformeListadoPresupuestos( function TDataModuleGestorInformes.GenerarInformeListadoPresupuestos(
const IdEmpresa: Integer; const FechaInicio, FechaFin: Variant; const IdEmpresa: Integer; const FechaInicio, FechaFin: Variant;
const ListaIDClientes: TIntegerArray; const Desglosado: Boolean; const ListaIDClientes: TIntegerArray; const Desglosado: Boolean;

1
Source/Modulos/Gestor de informes/Model/Data/uIDataModuleGestorInformes.pas
View File

@ -18,6 +18,7 @@ type
function GenerarInformeIVAClientes(const IdEmpresa: Integer; const FechaInicio: Variant; const FechaFin: Variant; const ListaIDClientes: TIntegerArray; const Desglosado: Boolean; const ImporteMinimo: Currency): Binary; function GenerarInformeIVAClientes(const IdEmpresa: Integer; const FechaInicio: Variant; const FechaFin: Variant; const ListaIDClientes: TIntegerArray; const Desglosado: Boolean; const ImporteMinimo: Currency): Binary;
function GenerarInformeListadoFacturasCli(const IdEmpresa: Integer; const FechaInicio: Variant; const FechaFin: Variant; const ListaIDClientes: TIntegerArray; const Desglosado: Boolean; const ImporteMinimo: Currency): Binary; function GenerarInformeListadoFacturasCli(const IdEmpresa: Integer; const FechaInicio: Variant; const FechaFin: Variant; const ListaIDClientes: TIntegerArray; const Desglosado: Boolean; const ImporteMinimo: Currency): Binary;
function GenerarInformeListadoFacturasCliPendientes(const IdEmpresa: Integer; const FechaInicio: Variant; const FechaFin: Variant; const ListaIDClientes: TIntegerArray; const Desglosado: Boolean; const ImporteMinimo: Currency): Binary; function GenerarInformeListadoFacturasCliPendientes(const IdEmpresa: Integer; const FechaInicio: Variant; const FechaFin: Variant; const ListaIDClientes: TIntegerArray; const Desglosado: Boolean; const ImporteMinimo: Currency): Binary;
function GenerarInformeListadoFacturasRecibosCli(const IdEmpresa: Integer; const ListaIDClientes: TIntegerArray; const Desglosado: Boolean; const FechaInicio: Variant; const FechaFin: Variant): Binary;
//MODULO RECIBOS DE CLIENTE //MODULO RECIBOS DE CLIENTE
function GenerarInformeListadoRecibosCliPendientes(const IdEmpresa: Integer; const FechaInicio: Variant; const FechaFin: Variant; const FechaVenInicio: Variant; const FechaVenFin: Variant; const ListaIDClientes: TIntegerArray; const Desglosado: Boolean; const ImporteMinimo: Currency): Binary; function GenerarInformeListadoRecibosCliPendientes(const IdEmpresa: Integer; const FechaInicio: Variant; const FechaFin: Variant; const FechaVenInicio: Variant; const FechaVenFin: Variant; const ListaIDClientes: TIntegerArray; const Desglosado: Boolean; const ImporteMinimo: Currency): Binary;

16
Source/Modulos/Gestor de informes/Servidor/srvGestorInformes_Impl.pas
View File

@ -52,6 +52,8 @@ type
function GenerarInformeIVAClientes(const IdEmpresa: Integer; const FechaInicio: Variant; const FechaFin: Variant; const ListaIDClientes: TIntegerArray; const Desglosado: Boolean; const ImporteMinimo: Currency): Binary; function GenerarInformeIVAClientes(const IdEmpresa: Integer; const FechaInicio: Variant; const FechaFin: Variant; const ListaIDClientes: TIntegerArray; const Desglosado: Boolean; const ImporteMinimo: Currency): Binary;
function GenerarInformeListadoFacturasCli(const IdEmpresa: Integer; const FechaInicio: Variant; const FechaFin: Variant; const ListaIDClientes: TIntegerArray; const Desglosado: Boolean; const ImporteMinimo: Currency): Binary; function GenerarInformeListadoFacturasCli(const IdEmpresa: Integer; const FechaInicio: Variant; const FechaFin: Variant; const ListaIDClientes: TIntegerArray; const Desglosado: Boolean; const ImporteMinimo: Currency): Binary;
function GenerarInformeListadoFacturasCliPendientes(const IdEmpresa: Integer; const FechaInicio: Variant; const FechaFin: Variant; const ListaIDClientes: TIntegerArray; const Desglosado: Boolean; const ImporteMinimo: Currency): Binary; function GenerarInformeListadoFacturasCliPendientes(const IdEmpresa: Integer; const FechaInicio: Variant; const FechaFin: Variant; const ListaIDClientes: TIntegerArray; const Desglosado: Boolean; const ImporteMinimo: Currency): Binary;
function GenerarInformeListadoFacturasRecibosCli(const IdEmpresa: Integer; const ListadoIDClientes: TIntegerArray; const Desglosado: Boolean; const FechaInicio: Variant;
const FechaFin: Variant): Binary;
//MODULO RECIBOS CLIENTE //MODULO RECIBOS CLIENTE
function GenerarInformeListadoRecibosCliente(const IdEmpresa: Integer; const FechaInicio: Variant; const FechaFin: Variant; const FechaVenInicio: Variant; const FechaVenFin: Variant; const ListaIDClientes: TIntegerArray; const Desglosado: Boolean; const ImporteMinimo: Currency): Binary; function GenerarInformeListadoRecibosCliente(const IdEmpresa: Integer; const FechaInicio: Variant; const FechaFin: Variant; const FechaVenInicio: Variant; const FechaVenFin: Variant; const ListaIDClientes: TIntegerArray; const Desglosado: Boolean; const ImporteMinimo: Currency): Binary;
@ -248,6 +250,20 @@ begin
end; end;
end; end;
function TsrvGestorInformes.GenerarInformeListadoFacturasRecibosCli(
const IdEmpresa: Integer; const ListadoIDClientes: TIntegerArray;
const Desglosado: Boolean; const FechaInicio, FechaFin: Variant): Binary;
var
AReportGenerator : TRptFacturasCliente;
begin
AReportGenerator := TRptFacturasCliente.Create(nil);
try
Result := AReportGenerator.GenerarInformeListadoFacturasRecibos(IdEmpresa, ListadoIDClientes, Desglosado, FechaInicio, FechaFin);
finally
FreeAndNIL(AReportGenerator);
end;
end;
function TsrvGestorInformes.GenerarInformeListadoPresupuestos( function TsrvGestorInformes.GenerarInformeListadoPresupuestos(
const IdEmpresa: Integer; const FechaInicio, FechaFin: Variant; const IdEmpresa: Integer; const FechaInicio, FechaFin: Variant;
const ListaIDClientes: TIntegerArray; const Desglosado: Boolean; const ListaIDClientes: TIntegerArray; const Desglosado: Boolean;

37
Source/Modulos/Gestor de informes/Views/GestorInformes_view.dpk
View File

@ -31,7 +31,39 @@ requires
Contactos_view, Contactos_view,
GestorInformes_controller, GestorInformes_controller,
Contactos_model, Contactos_model,
Contactos_controller; Contactos_controller,
rtl,
vcl,
PNG_D10,
PngComponentsD10,
vclactnband,
vclx,
tb2k_d10,
tbx_d10,
JvStdCtrlsD11R,
vcljpg,
JclVcl,
Jcl,
JvCoreD11R,
vcldb,
dbrtl,
JvSystemD11R,
JvPageCompsD11R,
frx11,
fs11,
fqb110,
bdertl,
frxe11,
RemObjects_Core_D11,
GUISDK_D11R,
designide,
xmlrtl,
cxLibraryD11,
dxThemeD11,
dxGDIPlusD11,
dxCoreD11,
dxLayoutControlD11,
dxComnD11;
contains contains
uGestorInformesViewRegister in 'uGestorInformesViewRegister.pas', uGestorInformesViewRegister in 'uGestorInformesViewRegister.pas',
@ -50,6 +82,7 @@ contains
uEditorInformeRecibosProvPendientesReport in 'uEditorInformeRecibosProvPendientesReport.pas' {fEditorInformeRecibosProvPendientesReport: TForm}, uEditorInformeRecibosProvPendientesReport in 'uEditorInformeRecibosProvPendientesReport.pas' {fEditorInformeRecibosProvPendientesReport: TForm},
uEditorInformeFacturasProveedorPendientesReport in 'uEditorInformeFacturasProveedorPendientesReport.pas' {fEditorInformeFacturasProveedorPendientesReport: TForm}, uEditorInformeFacturasProveedorPendientesReport in 'uEditorInformeFacturasProveedorPendientesReport.pas' {fEditorInformeFacturasProveedorPendientesReport: TForm},
uEditorInformeFacturasProveedorReport in 'uEditorInformeFacturasProveedorReport.pas' {fEditorInformeFacturasProveedorReport: TForm}, uEditorInformeFacturasProveedorReport in 'uEditorInformeFacturasProveedorReport.pas' {fEditorInformeFacturasProveedorReport: TForm},
uEditorInformeRecibosProveedorReport in 'uEditorInformeRecibosProveedorReport.pas' {fEditorInformeRecibosProveedorReport: TForm}; uEditorInformeRecibosProveedorReport in 'uEditorInformeRecibosProveedorReport.pas' {fEditorInformeRecibosProveedorReport: TForm},
uEditorInformeFacturasRecibosClienteReport in 'uEditorInformeFacturasRecibosClienteReport.pas' {fEditorInformeFacturasRecibosClienteReport: TForm};
end. end.

50
Source/Modulos/Gestor de informes/Views/GestorInformes_view.dproj
View File

@ -38,13 +38,45 @@
<DelphiCompile Include="GestorInformes_view.dpk"> <DelphiCompile Include="GestorInformes_view.dpk">
<MainSource>MainSource</MainSource> <MainSource>MainSource</MainSource>
</DelphiCompile> </DelphiCompile>
<DCCReference Include="..\..\Facturas de cliente\ApplicationBase.dcp" /> <DCCReference Include="..\..\Contratos de cliente\ApplicationBase.dcp" />
<DCCReference Include="..\..\Facturas de cliente\Base.dcp" /> <DCCReference Include="..\..\Contratos de cliente\Base.dcp" />
<DCCReference Include="..\..\Facturas de cliente\Contactos_controller.dcp" /> <DCCReference Include="..\..\Contratos de cliente\bdertl.dcp" />
<DCCReference Include="..\..\Facturas de cliente\Contactos_model.dcp" /> <DCCReference Include="..\..\Contratos de cliente\Contactos_controller.dcp" />
<DCCReference Include="..\..\Facturas de cliente\Contactos_view.dcp" /> <DCCReference Include="..\..\Contratos de cliente\Contactos_model.dcp" />
<DCCReference Include="..\..\Facturas de cliente\GestorInformes_controller.dcp" /> <DCCReference Include="..\..\Contratos de cliente\Contactos_view.dcp" />
<DCCReference Include="..\..\Facturas de cliente\GUIBase.dcp" /> <DCCReference Include="..\..\Contratos de cliente\cxLibraryD11.dcp" />
<DCCReference Include="..\..\Contratos de cliente\dbrtl.dcp" />
<DCCReference Include="..\..\Contratos de cliente\designide.dcp" />
<DCCReference Include="..\..\Contratos de cliente\dxComnD11.dcp" />
<DCCReference Include="..\..\Contratos de cliente\dxCoreD11.dcp" />
<DCCReference Include="..\..\Contratos de cliente\dxGDIPlusD11.dcp" />
<DCCReference Include="..\..\Contratos de cliente\dxLayoutControlD11.dcp" />
<DCCReference Include="..\..\Contratos de cliente\dxThemeD11.dcp" />
<DCCReference Include="..\..\Contratos de cliente\fqb110.dcp" />
<DCCReference Include="..\..\Contratos de cliente\frx11.dcp" />
<DCCReference Include="..\..\Contratos de cliente\frxe11.dcp" />
<DCCReference Include="..\..\Contratos de cliente\fs11.dcp" />
<DCCReference Include="..\..\Contratos de cliente\GestorInformes_controller.dcp" />
<DCCReference Include="..\..\Contratos de cliente\GUIBase.dcp" />
<DCCReference Include="..\..\Contratos de cliente\GUISDK_D11R.dcp" />
<DCCReference Include="..\..\Contratos de cliente\Jcl.dcp" />
<DCCReference Include="..\..\Contratos de cliente\JclVcl.dcp" />
<DCCReference Include="..\..\Contratos de cliente\JvCoreD11R.dcp" />
<DCCReference Include="..\..\Contratos de cliente\JvPageCompsD11R.dcp" />
<DCCReference Include="..\..\Contratos de cliente\JvStdCtrlsD11R.dcp" />
<DCCReference Include="..\..\Contratos de cliente\JvSystemD11R.dcp" />
<DCCReference Include="..\..\Contratos de cliente\PngComponentsD10.dcp" />
<DCCReference Include="..\..\Contratos de cliente\PNG_D10.dcp" />
<DCCReference Include="..\..\Contratos de cliente\RemObjects_Core_D11.dcp" />
<DCCReference Include="..\..\Contratos de cliente\rtl.dcp" />
<DCCReference Include="..\..\Contratos de cliente\tb2k_d10.dcp" />
<DCCReference Include="..\..\Contratos de cliente\tbx_d10.dcp" />
<DCCReference Include="..\..\Contratos de cliente\vcl.dcp" />
<DCCReference Include="..\..\Contratos de cliente\vclactnband.dcp" />
<DCCReference Include="..\..\Contratos de cliente\vcldb.dcp" />
<DCCReference Include="..\..\Contratos de cliente\vcljpg.dcp" />
<DCCReference Include="..\..\Contratos de cliente\vclx.dcp" />
<DCCReference Include="..\..\Contratos de cliente\xmlrtl.dcp" />
<DCCReference Include="uEditorInformeBase.pas"> <DCCReference Include="uEditorInformeBase.pas">
<Form>fEditorInformeBase</Form> <Form>fEditorInformeBase</Form>
<DesignClass>TForm</DesignClass> <DesignClass>TForm</DesignClass>
@ -65,6 +97,10 @@
<Form>fEditorInformeFacturasProveedorReport</Form> <Form>fEditorInformeFacturasProveedorReport</Form>
<DesignClass>TForm</DesignClass> <DesignClass>TForm</DesignClass>
</DCCReference> </DCCReference>
<DCCReference Include="uEditorInformeFacturasRecibosClienteReport.pas">
<Form>fEditorInformeFacturasRecibosClienteReport</Form>
<DesignClass>TForm</DesignClass>
</DCCReference>
<DCCReference Include="uEditorInformeIVAClientesReport.pas"> <DCCReference Include="uEditorInformeIVAClientesReport.pas">
<Form>fEditorInformeIVAClientesReport</Form> <Form>fEditorInformeIVAClientesReport</Form>
<DesignClass>TForm</DesignClass> <DesignClass>TForm</DesignClass>

16
Source/Modulos/Gestor de informes/Views/uEditorInformeBase.dfm
View File

@ -30,16 +30,18 @@ inherited fEditorInformeBase: TfEditorInformeBase
end end
object TBXMultiDockIzquierdo: TTBXMultiDock [3] object TBXMultiDockIzquierdo: TTBXMultiDock [3]
Left = 0 Left = 0
Top = 116 Top = 102
Width = 7 Width = 7
Height = 506 Height = 520
Position = dpLeft Position = dpLeft
ExplicitTop = 116
ExplicitHeight = 506
end end
object TBXMultiDockDerecho: TTBXMultiDock [4] object TBXMultiDockDerecho: TTBXMultiDock [4]
Left = 447 Left = 447
Top = 116 Top = 102
Width = 340 Width = 340
Height = 506 Height = 520
Position = dpRight Position = dpRight
object pnlParametros: TTBXDockablePanel object pnlParametros: TTBXDockablePanel
Left = 0 Left = 0
@ -60,16 +62,16 @@ inherited fEditorInformeBase: TfEditorInformeBase
Left = 0 Left = 0
Top = 0 Top = 0
Width = 336 Width = 336
Height = 467 Height = 482
Align = alClient Align = alClient
TabOrder = 0 TabOrder = 0
TabStop = False TabStop = False
AutoContentSizes = [acsWidth, acsHeight] AutoContentSizes = [acsWidth, acsHeight]
LookAndFeel = dxLayoutOfficeLookAndFeel1 LookAndFeel = dxLayoutOfficeLookAndFeel1
ExplicitHeight = 105 ExplicitHeight = 106
object TBXButton1: TTBXButton object TBXButton1: TTBXButton
Left = 11 Left = 11
Top = 432 Top = 447
Width = 121 Width = 121
Height = 24 Height = 24
Action = actRefrescar Action = actRefrescar

217
Source/Modulos/Gestor de informes/Views/uEditorInformeFacturasRecibosClienteReport.dfm Normal file
View File

@ -0,0 +1,217 @@
inherited fEditorInformeFacturasRecibosClienteReport: TfEditorInformeFacturasRecibosClienteReport
Caption = 'fEditorInformeFacturasRecibosClienteReport'
ClientHeight = 655
ClientWidth = 895
ExplicitWidth = 903
ExplicitHeight = 689
PixelsPerInch = 96
TextHeight = 13
inherited JvNavPanelHeader: TJvNavPanelHeader
Width = 895
ExplicitTop = 75
ExplicitWidth = 895
inherited Image1: TImage
Left = 868
ExplicitLeft = 868
end
end
inherited TBXDock: TTBXDock
Width = 895
ExplicitWidth = 895
inherited tbxMenu: TTBXToolbar
ExplicitWidth = 895
end
inherited TBXToolbar1: TTBXToolbar
ExplicitWidth = 591
object TBXItem58: TTBXItem [0]
Action = actRefrescar
DisplayMode = nbdmImageAndText
Images = SmallImages
end
end
end
inherited StatusBar: TJvStatusBar
Top = 636
Width = 895
ExplicitTop = 636
ExplicitWidth = 895
end
inherited TBXMultiDockIzquierdo: TTBXMultiDock
Height = 534
ExplicitTop = 102
ExplicitHeight = 534
end
inherited TBXMultiDockDerecho: TTBXMultiDock
Left = 625
Width = 270
Height = 534
ExplicitLeft = 625
ExplicitWidth = 270
ExplicitHeight = 534
inherited pnlParametros: TTBXDockablePanel
DockedWidth = 266
DockPos = 0
ExplicitWidth = 270
ExplicitHeight = 518
inline frViewPeriodoFechas1: TfrViewPeriodoFechas [0]
Left = 0
Top = 0
Width = 266
Height = 250
Align = alTop
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'Tahoma'
Font.Style = []
ParentFont = False
TabOrder = 2
ReadOnly = False
ExplicitWidth = 266
ExplicitHeight = 250
inherited dxLayoutControl1: TdxLayoutControl
Width = 266
Height = 250
ExplicitWidth = 266
ExplicitHeight = 250
inherited edtFechaIni: TcxDateEdit
ExplicitWidth = 360
Width = 360
end
inherited edtFechaFin: TcxDateEdit
ExplicitWidth = 362
Width = 362
end
inherited cbPeriodo: TcxComboBox
ExplicitWidth = 429
Width = 429
end
inherited edtFechaVenIni: TcxDateEdit
ExplicitWidth = 529
Width = 529
end
inherited edtFechaVenFin: TcxDateEdit
ExplicitWidth = 531
Width = 531
end
inherited cbPeriodo2: TcxComboBox
ExplicitWidth = 598
Width = 598
end
end
end
inherited dxLayoutControl1: TdxLayoutControl
Top = 507
Width = 266
Height = 9
ExplicitTop = 507
ExplicitWidth = 266
ExplicitHeight = 9
inherited TBXButton1: TTBXButton
AlignWithMargins = True
Top = 17
Width = 182
Height = 37
Margins.Left = 8
Margins.Top = 8
Margins.Right = 8
Margins.Bottom = 8
Align = alTop
ExplicitTop = 17
ExplicitWidth = 182
ExplicitHeight = 37
end
end
inline frViewFiltroImportes1: TfrViewFiltroImportes
Left = 0
Top = 250
Width = 266
Height = 77
Align = alTop
AutoSize = True
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'Tahoma'
Font.Style = []
ParentFont = False
TabOrder = 1
Visible = False
ReadOnly = False
ExplicitTop = 250
ExplicitWidth = 266
ExplicitHeight = 77
inherited dxLayoutControl1: TdxLayoutControl
Width = 266
Height = 77
ExplicitWidth = 266
ExplicitHeight = 77
inherited cbxDesglosado: TCheckBox
Width = 298
ParentColor = False
ExplicitWidth = 298
end
inherited eImporte: TcxSpinEdit
ExplicitWidth = 142
Width = 142
end
end
end
inline frViewFiltroClientes1: TfrViewFiltroClientes
Left = 0
Top = 327
Width = 266
Height = 180
Align = alTop
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'Tahoma'
Font.Style = []
ParentFont = False
TabOrder = 3
ReadOnly = False
ExplicitTop = 327
ExplicitWidth = 266
ExplicitHeight = 180
inherited dxLayoutControl1: TdxLayoutControl
Width = 266
Height = 180
ExplicitWidth = 266
ExplicitHeight = 180
inherited rbTodosClientes: TRadioButton
Width = 355
Checked = False
ParentColor = False
TabStop = False
ExplicitWidth = 355
end
inherited cbxDesglosado: TCheckBox
Width = 338
ParentColor = False
ExplicitWidth = 338
end
inherited rbUnCliente: TRadioButton
Width = 355
Checked = True
ParentColor = False
TabStop = True
ExplicitWidth = 355
end
inherited edtCliente: TcxTextEdit
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitWidth = 141
Width = 141
end
inherited bElegirCliente: TBitBtn
Width = 108
ExplicitWidth = 108
end
end
end
end
end
end

150
Source/Modulos/Gestor de informes/Views/uEditorInformeFacturasRecibosClienteReport.pas Normal file
View File

@ -0,0 +1,150 @@
unit uEditorInformeFacturasRecibosClienteReport;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, uEditorPreview, frxExportText, frxExportRTF, frxExportMail,
frxExportXLS, frxExportImage, frxExportPDF, frxClass, frxDCtrl, frxGradient,
frxChBox, frxCross, frxRich, frxOLE, frxBarcode, JvAppStorage,
JvAppRegistryStorage, JvComponentBase, JvFormPlacement, ImgList, PngImageList,
StdActns, ActnList, ComCtrls, JvExComCtrls, JvStatusBar, TB2ExtItems,
TBXExtItems, TBX, TB2Item, TB2Dock, TB2Toolbar, pngimage, ExtCtrls,
JvExControls, JvNavigationPane, uCustomView,
uViewBase, uViewPeriodoFechas,
uViewFiltroClientes, dxLayoutControl, cxControls, uViewFiltroImportes,
FactuGES_Intf, TBXDkPanels, uEditorInformeBase, uIViewFiltroClientes,
uIEditorInformeBase, uViewParametrosInforme, uIEditorInformeFacturasRecibosClienteReport,
dxLayoutLookAndFeels, frxExportCSV;
type
TfEditorInformeFacturasRecibosClienteReport = class(TfEditorInformeBase, IEditorInformeFacturasRecibosClienteReport)
TBXItem58: TTBXItem;
frViewPeriodoFechas1: TfrViewPeriodoFechas;
frViewFiltroImportes1: TfrViewFiltroImportes;
frViewFiltroClientes1: TfrViewFiltroClientes;
procedure actRefrescarExecute(Sender: TObject);
procedure FormShow(Sender: TObject);
private
FListaIDClientes: TIntegerArray;
function GetFechaFin: Variant;
function GetFechaInicio: Variant;
function GetListaIDClientes: TIntegerArray;
function GetImporteMinimo: Currency;
function GetDesglosadoCliente: Boolean;
function GetViewFiltroCliente: IViewFiltroClientes;
procedure RefrescarInforme;
public
property FechaInicio: Variant read GetFechaInicio;
property FechaFin: Variant read GetFechaFin;
property ListaIDClientes: TIntegerArray read GetListaIDClientes;
property DesglosadoCliente: Boolean read GetDesglosadoCliente;
property ImporteMinimo: Currency read GetImporteMinimo;
property viewFiltroCliente: IViewFiltroClientes read GetViewFiltroCliente;
constructor Create(AOwner: TComponent); override;
destructor Destroy; override;
end;
implementation
{$R *.dfm}
uses uROTypes, DateUtils, uGestorInformesController, uFactuGES_App;
{ TfEditorGestorInformesReport }
procedure TfEditorInformeFacturasRecibosClienteReport.actRefrescarExecute(Sender: TObject);
begin
inherited;
RefrescarInforme;
end;
constructor TfEditorInformeFacturasRecibosClienteReport.Create(AOwner: TComponent);
begin
inherited;
FListaIDClientes := TIntegerArray.Create;
end;
destructor TfEditorInformeFacturasRecibosClienteReport.Destroy;
begin
FListaIDClientes.Free;
inherited;
end;
procedure TfEditorInformeFacturasRecibosClienteReport.FormShow(Sender: TObject);
begin
inherited;
frViewPeriodoFechas1.EsteAno(TFecha);
RefrescarInforme;
end;
function TfEditorInformeFacturasRecibosClienteReport.GetDesglosadoCliente: Boolean;
begin
if frViewFiltroImportes1.cbxDesglosado.Enabled then
Result := frViewFiltroClientes1.cbxDesglosado.Checked
else
Result := False;
end;
function TfEditorInformeFacturasRecibosClienteReport.GetFechaFin: Variant;
begin
Result := frViewPeriodoFechas1.edtFechaFin.EditValue;
//Esto es para quitar la hora del timestamp para que luego no me redondee al dia siguiente
if not VarIsNull(Result) then
Result := DateOf(frViewPeriodoFechas1.edtFechaFin.Date);
end;
function TfEditorInformeFacturasRecibosClienteReport.GetFechaInicio: Variant;
begin
Result := frViewPeriodoFechas1.edtFechaIni.EditValue;
end;
function TfEditorInformeFacturasRecibosClienteReport.GetImporteMinimo: Currency;
begin
if frViewFiltroImportes1.eImporte.Enabled then
Result := frViewFiltroImportes1.eImporte.Value
else
Result := 0;
end;
function TfEditorInformeFacturasRecibosClienteReport.GetListaIDClientes: TIntegerArray;
begin
FListaIDClientes.Clear;
if Assigned(frViewFiltroClientes1.Cliente) then
FListaIDClientes.Add(frViewFiltroClientes1.Cliente.ID);
Result := FListaIDClientes;
end;
function TfEditorInformeFacturasRecibosClienteReport.getViewFiltroCliente: IViewFiltroClientes;
begin
Result := (frViewFiltroClientes1 as IViewFiltroClientes);
end;
procedure TfEditorInformeFacturasRecibosClienteReport.RefrescarInforme;
var
AStream: Binary;
begin
ShowHourglassCursor;
try
AStream := (Controller as IGestorInformesController).DataModule.GenerarInformeListadoFacturasRecibosCli(
AppFactuGES.EmpresaActiva.ID,
ListaIDClientes,
DesglosadoCliente,
FechaInicio,
FechaFin);
LoadFromStream(AStream);
Report.ShowPreparedReport;
finally
FreeAndNil(AStream);
HideHourglassCursor;
end;
end;
end.

3
Source/Modulos/Gestor de informes/Views/uGestorInformesViewRegister.pas
View File

@ -10,7 +10,7 @@ implementation
uses uses
uEditorRegistryUtils, uEditorRegistryUtils,
uEditorInformeIVAClientesReport, uEditorInformeFacturasClienteReport, uEditorInformeFacturasClientePendientesReport, uEditorInformeIVAClientesReport, uEditorInformeFacturasClienteReport, uEditorInformeFacturasClientePendientesReport,
uEditorInformeRecibosClienteReport, uEditorInformeRecibosCliPendientesReport, uEditorInformeRecibosClienteReport, uEditorInformeRecibosCliPendientesReport, uEditorInformeFacturasRecibosClienteReport,
uEditorInformePresupuestosReport, uEditorInformePresupuestosReport,
uEditorInformeIVAProveedoresReport, uEditorInformeFacturasProveedorReport, uEditorInformeFacturasProveedorPendientesReport, uEditorInformeIVAProveedoresReport, uEditorInformeFacturasProveedorReport, uEditorInformeFacturasProveedorPendientesReport,
@ -21,6 +21,7 @@ begin
EditorRegistry.RegisterClass(TfEditorInformePresupuestosReport, 'EditorInformePresupuestosReport'); EditorRegistry.RegisterClass(TfEditorInformePresupuestosReport, 'EditorInformePresupuestosReport');
EditorRegistry.RegisterClass(TfEditorInformeIVAClientesReport, 'EditorInformeIVAClientesReport'); EditorRegistry.RegisterClass(TfEditorInformeIVAClientesReport, 'EditorInformeIVAClientesReport');
EditorRegistry.RegisterClass(TfEditorInformeFacturasClienteReport, 'EditorInformeFacturasClienteReport'); EditorRegistry.RegisterClass(TfEditorInformeFacturasClienteReport, 'EditorInformeFacturasClienteReport');
EditorRegistry.RegisterClass(TfEditorInformeFacturasRecibosClienteReport, 'EditorInformeFacturasRecibosClienteReport');
EditorRegistry.RegisterClass(TfEditorInformeFacturasClientePendientesReport, 'EditorInformeFacturasClientePendientesReport'); EditorRegistry.RegisterClass(TfEditorInformeFacturasClientePendientesReport, 'EditorInformeFacturasClientePendientesReport');
EditorRegistry.RegisterClass(TfEditorInformeRecibosClienteReport, 'EditorInformeRecibosClienteReport'); EditorRegistry.RegisterClass(TfEditorInformeRecibosClienteReport, 'EditorInformeRecibosClienteReport');
EditorRegistry.RegisterClass(TfEditorInformeRecibosCliPendientesReport, 'EditorInformeRecibosCliPendientesReport'); EditorRegistry.RegisterClass(TfEditorInformeRecibosCliPendientesReport, 'EditorInformeRecibosCliPendientesReport');

31
Source/Modulos/Gestor de informes/Views/uViewFiltroClientes.pas
View File

@ -6,13 +6,9 @@ uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, uViewBase, cxControls, cxContainer, cxEdit, cxTextEdit, cxDBEdit, Dialogs, uViewBase, cxControls, cxContainer, cxEdit, cxTextEdit, cxDBEdit,
StdCtrls, Buttons, TBXDkPanels, uViewParametrosInforme, uBizContactos, StdCtrls, Buttons, TBXDkPanels, uViewParametrosInforme, uBizContactos,
uClientesController, dxLayoutControl, dxLayoutLookAndFeels; uClientesController, dxLayoutControl, dxLayoutLookAndFeels, uIViewFiltroClientes;
type type
IViewFiltroClientes = interface(IViewParametrosInforme)
['{129906DA-8E64-4312-8095-A04F8007CF7F}']
end;
TfrViewFiltroClientes = class(TfrViewParametrosInforme, IViewFiltroClientes) TfrViewFiltroClientes = class(TfrViewParametrosInforme, IViewFiltroClientes)
rbTodosClientes: TRadioButton; rbTodosClientes: TRadioButton;
rbUnCliente: TRadioButton; rbUnCliente: TRadioButton;
@ -36,9 +32,14 @@ type
procedure CustomViewDestroy(Sender: TObject); procedure CustomViewDestroy(Sender: TObject);
private private
FCliente : IBizCliente; FCliente : IBizCliente;
FClientesController : IClientesController; FClientesController : IClientesController;
function getIdCliente: Integer;
procedure setIdCliente(const IdCliente:Integer);
public public
property IdCliente : Integer read getIdCliente write setIdCliente;
property Cliente : IBizCliente read FCliente; property Cliente : IBizCliente read FCliente;
end; end;
implementation implementation
@ -77,6 +78,11 @@ begin
FClientesController := NIL; FClientesController := NIL;
end; end;
function TfrViewFiltroClientes.getIdCliente: Integer;
begin
Result := FCliente.ID;
end;
procedure TfrViewFiltroClientes.rbTodosClientesClick(Sender: TObject); procedure TfrViewFiltroClientes.rbTodosClientesClick(Sender: TObject);
begin begin
if rbTodosClientes.Checked then if rbTodosClientes.Checked then
@ -101,4 +107,17 @@ begin
end; end;
end; end;
procedure TfrViewFiltroClientes.setIdCliente(const IdCliente: Integer);
begin
if not Assigned(FClientesController) then
FClientesController := TClientesController.Create;
FCliente := IBizCliente(FClientesController.Buscar(IdCliente));
if Assigned(FCliente) then
begin
FCliente.Open;
edtCliente.Text := FCliente.NOMBRE;
end;
end;
end. end.

47
Source/Modulos/Presupuestos de cliente/Views/uEditorPresupuestoCliente.dfm
View File

@ -12,6 +12,7 @@ inherited fEditorPresupuestoCliente: TfEditorPresupuestoCliente
inherited JvNavPanelHeader: TJvNavPanelHeader inherited JvNavPanelHeader: TJvNavPanelHeader
Width = 848 Width = 848
Caption = 'Nuevo presupuesto de cliente' Caption = 'Nuevo presupuesto de cliente'
ExplicitTop = 49
ExplicitWidth = 848 ExplicitWidth = 848
inherited Image1: TImage inherited Image1: TImage
Left = 821 Left = 821
@ -129,7 +130,7 @@ inherited fEditorPresupuestoCliente: TfEditorPresupuestoCliente
Width = 848 Width = 848
ExplicitWidth = 848 ExplicitWidth = 848
inherited tbxMain: TTBXToolbar inherited tbxMain: TTBXToolbar
ExplicitWidth = 634 ExplicitWidth = 488
inherited TBXItem2: TTBXItem inherited TBXItem2: TTBXItem
Visible = False Visible = False
end end
@ -176,17 +177,16 @@ inherited fEditorPresupuestoCliente: TfEditorPresupuestoCliente
end end
inherited pgPaginas: TPageControl inherited pgPaginas: TPageControl
Width = 842 Width = 842
Height = 433 Height = 442
ActivePage = pagDocumentos
TabOrder = 1 TabOrder = 1
OnChanging = pgPaginasChanging OnChanging = pgPaginasChanging
ExplicitWidth = 842 ExplicitWidth = 842
ExplicitHeight = 433 ExplicitHeight = 442
inherited pagGeneral: TTabSheet inherited pagGeneral: TTabSheet
ExplicitLeft = 4 ExplicitLeft = 4
ExplicitTop = 24 ExplicitTop = 24
ExplicitWidth = 834 ExplicitWidth = 834
ExplicitHeight = 289 ExplicitHeight = 414
end end
object pagContenido: TTabSheet object pagContenido: TTabSheet
Caption = 'Contenido' Caption = 'Contenido'
@ -195,7 +195,7 @@ inherited fEditorPresupuestoCliente: TfEditorPresupuestoCliente
Left = 0 Left = 0
Top = 0 Top = 0
Width = 834 Width = 834
Height = 405 Height = 414
Align = alClient Align = alClient
BiDiMode = bdLeftToRight BiDiMode = bdLeftToRight
Font.Charset = DEFAULT_CHARSET Font.Charset = DEFAULT_CHARSET
@ -208,7 +208,7 @@ inherited fEditorPresupuestoCliente: TfEditorPresupuestoCliente
TabOrder = 0 TabOrder = 0
ReadOnly = False ReadOnly = False
ExplicitWidth = 834 ExplicitWidth = 834
ExplicitHeight = 405 ExplicitHeight = 414
inherited ToolBar1: TToolBar inherited ToolBar1: TToolBar
Width = 834 Width = 834
Height = 24 Height = 24
@ -293,12 +293,12 @@ inherited fEditorPresupuestoCliente: TfEditorPresupuestoCliente
end end
end end
inherited cxGrid: TcxGrid inherited cxGrid: TcxGrid
Top = 53 Top = 50
Width = 834 Width = 834
Height = 352 Height = 364
ExplicitTop = 53 ExplicitTop = 50
ExplicitWidth = 834 ExplicitWidth = 834
ExplicitHeight = 352 ExplicitHeight = 364
end end
inherited TBXDock1: TTBXDock inherited TBXDock1: TTBXDock
Top = 24 Top = 24
@ -306,7 +306,7 @@ inherited fEditorPresupuestoCliente: TfEditorPresupuestoCliente
ExplicitTop = 24 ExplicitTop = 24
ExplicitWidth = 834 ExplicitWidth = 834
inherited TBXToolbar1: TTBXToolbar inherited TBXToolbar1: TTBXToolbar
ExplicitWidth = 834 ExplicitWidth = 665
end end
end end
inherited cxLookupComboBox1: TcxLookupComboBox inherited cxLookupComboBox1: TcxLookupComboBox
@ -327,7 +327,7 @@ inherited fEditorPresupuestoCliente: TfEditorPresupuestoCliente
Left = 0 Left = 0
Top = 0 Top = 0
Width = 834 Width = 834
Height = 405 Height = 414
Align = alClient Align = alClient
TabOrder = 0 TabOrder = 0
TabStop = False TabStop = False
@ -374,7 +374,7 @@ inherited fEditorPresupuestoCliente: TfEditorPresupuestoCliente
Left = 0 Left = 0
Top = 0 Top = 0
Width = 834 Width = 834
Height = 405 Height = 414
Align = alClient Align = alClient
Font.Charset = DEFAULT_CHARSET Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText Font.Color = clWindowText
@ -385,7 +385,7 @@ inherited fEditorPresupuestoCliente: TfEditorPresupuestoCliente
TabOrder = 0 TabOrder = 0
ReadOnly = False ReadOnly = False
ExplicitWidth = 834 ExplicitWidth = 834
ExplicitHeight = 405 ExplicitHeight = 414
inherited pnlSup: TPanel inherited pnlSup: TPanel
Width = 834 Width = 834
ExplicitWidth = 834 ExplicitWidth = 834
@ -395,13 +395,13 @@ inherited fEditorPresupuestoCliente: TfEditorPresupuestoCliente
end end
inherited GroupBox1: TGroupBox inherited GroupBox1: TGroupBox
Width = 834 Width = 834
Height = 377 Height = 386
ExplicitWidth = 834 ExplicitWidth = 834
ExplicitHeight = 377 ExplicitHeight = 386
inherited eIncidencias: TcxDBMemo inherited eIncidencias: TcxDBMemo
ExplicitWidth = 830 ExplicitWidth = 830
ExplicitHeight = 360 ExplicitHeight = 369
Height = 360 Height = 369
Width = 830 Width = 830
end end
end end
@ -415,7 +415,7 @@ inherited fEditorPresupuestoCliente: TfEditorPresupuestoCliente
Left = 0 Left = 0
Top = 0 Top = 0
Width = 834 Width = 834
Height = 405 Height = 414
Align = alClient Align = alClient
Font.Charset = DEFAULT_CHARSET Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText Font.Color = clWindowText
@ -426,17 +426,16 @@ inherited fEditorPresupuestoCliente: TfEditorPresupuestoCliente
TabOrder = 0 TabOrder = 0
ReadOnly = False ReadOnly = False
ExplicitWidth = 834 ExplicitWidth = 834
ExplicitHeight = 405 ExplicitHeight = 414
inherited TBXDock: TTBXDock inherited TBXDock: TTBXDock
Width = 834 Width = 834
ExplicitWidth = 834 ExplicitWidth = 834
end end
inherited ListView1: TListView inherited ListView1: TListView
Width = 834 Width = 834
Height = 376 Height = 391
ExplicitTop = 29
ExplicitWidth = 834 ExplicitWidth = 834
ExplicitHeight = 376 ExplicitHeight = 391
end end
inherited EditorActionList: TActionList inherited EditorActionList: TActionList
Left = 8 Left = 8

5
Source/Modulos/Presupuestos de cliente/Views/uEditorPresupuestoCliente.pas
View File

@ -121,8 +121,9 @@ uses
procedure TfEditorPresupuestoCliente.actEliminarUpdate(Sender: TObject); procedure TfEditorPresupuestoCliente.actEliminarUpdate(Sender: TObject);
begin begin
inherited; inherited;
if (Sender as TAction).Enabled then // if (Sender as TAction).Enabled then
(Sender as TAction).Enabled := (FPresupuesto.SITUACION = SITUACION_PRESUPUESTO_PENDIENTE); // (Sender as TAction).Enabled := (FPresupuesto.SITUACION = SITUACION_PRESUPUESTO_PENDIENTE);
(Sender as TAction).Enabled := False;
end; end;
procedure TfEditorPresupuestoCliente.actEnviarPorEMailExecute(Sender: TObject); procedure TfEditorPresupuestoCliente.actEnviarPorEMailExecute(Sender: TObject);

13
Source/Modulos/Presupuestos de cliente/Views/uEditorPresupuestosCliente.dfm
View File

@ -2,6 +2,7 @@ inherited fEditorPresupuestosCliente: TfEditorPresupuestosCliente
Caption = 'Lista de presupuestos de cliente' Caption = 'Lista de presupuestos de cliente'
ClientWidth = 805 ClientWidth = 805
ExplicitWidth = 813 ExplicitWidth = 813
ExplicitHeight = 478
PixelsPerInch = 96 PixelsPerInch = 96
TextHeight = 13 TextHeight = 13
inherited JvNavPanelHeader: TJvNavPanelHeader inherited JvNavPanelHeader: TJvNavPanelHeader
@ -124,7 +125,7 @@ inherited fEditorPresupuestosCliente: TfEditorPresupuestosCliente
Width = 805 Width = 805
ExplicitWidth = 805 ExplicitWidth = 805
inherited tbxMain: TTBXToolbar inherited tbxMain: TTBXToolbar
ExplicitWidth = 805 ExplicitWidth = 751
object TBXSubmenuItem3: TTBXSubmenuItem [0] object TBXSubmenuItem3: TTBXSubmenuItem [0]
Caption = 'Nuevo' Caption = 'Nuevo'
DisplayMode = nbdmImageAndText DisplayMode = nbdmImageAndText
@ -160,7 +161,7 @@ inherited fEditorPresupuestosCliente: TfEditorPresupuestosCliente
end end
end end
inherited tbxFiltro: TTBXToolbar inherited tbxFiltro: TTBXToolbar
ExplicitWidth = 431 ExplicitWidth = 481
inherited lblAno: TTBXLabelItem inherited lblAno: TTBXLabelItem
Visible = True Visible = True
end end
@ -170,6 +171,10 @@ inherited fEditorPresupuestosCliente: TfEditorPresupuestosCliente
inherited sepAno: TTBXSeparatorItem inherited sepAno: TTBXSeparatorItem
Visible = True Visible = True
end end
inherited tbxEditFiltro2: TTBXEditItem
Enabled = True
Visible = True
end
end end
inherited tbxMenu: TTBXToolbar inherited tbxMenu: TTBXToolbar
ExplicitWidth = 805 ExplicitWidth = 805
@ -193,10 +198,10 @@ inherited fEditorPresupuestosCliente: TfEditorPresupuestosCliente
end end
end end
inherited TBXTMain2: TTBXToolbar inherited TBXTMain2: TTBXToolbar
Left = 431 Left = 481
DockPos = 343 DockPos = 343
Visible = True Visible = True
ExplicitLeft = 431 ExplicitLeft = 481
ExplicitWidth = 252 ExplicitWidth = 252
object TBXItem43: TTBXItem object TBXItem43: TTBXItem
Action = actAceptar Action = actAceptar

82
Source/Modulos/Presupuestos de cliente/Views/uViewPresupuestosCliente.dfm
View File

@ -21,6 +21,18 @@ inherited frViewPresupuestosCliente: TfrViewPresupuestosCliente
Kind = skSum Kind = skSum
Position = spFooter Position = spFooter
Column = cxGridViewIMPORTE_TOTAL Column = cxGridViewIMPORTE_TOTAL
end
item
Format = ',0.00 '#8364';-,0.00 '#8364
Kind = skSum
Position = spFooter
Column = cxGridViewBASE_IMPONIBLE
end
item
Format = ',0.00 '#8364';-,0.00 '#8364
Kind = skSum
Position = spFooter
Column = cxGridViewIMPORTE_IVA
end> end>
DataController.Summary.FooterSummaryItems = < DataController.Summary.FooterSummaryItems = <
item item
@ -32,6 +44,16 @@ inherited frViewPresupuestosCliente: TfrViewPresupuestosCliente
Format = ',0.00 '#8364';-,0.00 '#8364 Format = ',0.00 '#8364';-,0.00 '#8364
Kind = skSum Kind = skSum
Column = cxGridViewIMPORTE_TOTAL Column = cxGridViewIMPORTE_TOTAL
end
item
Format = ',0.00 '#8364';-,0.00 '#8364
Kind = skSum
Column = cxGridViewBASE_IMPONIBLE
end
item
Format = ',0.00 '#8364';-,0.00 '#8364
Kind = skSum
Column = cxGridViewIMPORTE_IVA
end> end>
OptionsCustomize.ColumnHidingOnGrouping = False OptionsCustomize.ColumnHidingOnGrouping = False
OptionsView.GroupFooters = gfAlwaysVisible OptionsView.GroupFooters = gfAlwaysVisible
@ -108,6 +130,22 @@ inherited frViewPresupuestosCliente: TfrViewPresupuestosCliente
DataBinding.FieldName = 'NOMBRE' DataBinding.FieldName = 'NOMBRE'
Width = 271 Width = 271
end end
object cxGridViewBASE_IMPONIBLE: TcxGridDBColumn
DataBinding.FieldName = 'BASE_IMPONIBLE'
PropertiesClassName = 'TcxCurrencyEditProperties'
Properties.Alignment.Horz = taRightJustify
FooterAlignmentHorz = taRightJustify
GroupSummaryAlignment = taRightJustify
HeaderAlignmentHorz = taRightJustify
end
object cxGridViewIMPORTE_IVA: TcxGridDBColumn
DataBinding.FieldName = 'IMPORTE_IVA'
PropertiesClassName = 'TcxCurrencyEditProperties'
Properties.Alignment.Horz = taRightJustify
FooterAlignmentHorz = taRightJustify
GroupSummaryAlignment = taRightJustify
HeaderAlignmentHorz = taRightJustify
end
object cxGridViewIMPORTE_TOTAL: TcxGridDBColumn object cxGridViewIMPORTE_TOTAL: TcxGridDBColumn
Caption = 'Importe total' Caption = 'Importe total'
DataBinding.FieldName = 'IMPORTE_TOTAL' DataBinding.FieldName = 'IMPORTE_TOTAL'
@ -134,8 +172,7 @@ inherited frViewPresupuestosCliente: TfrViewPresupuestosCliente
Caption = 'Vendedor' Caption = 'Vendedor'
DataBinding.FieldName = 'VENDEDOR' DataBinding.FieldName = 'VENDEDOR'
PropertiesClassName = 'TcxTextEditProperties' PropertiesClassName = 'TcxTextEditProperties'
Properties.Alignment.Horz = taRightJustify Properties.Alignment.Horz = taLeftJustify
HeaderAlignmentHorz = taRightJustify
end end
end end
inherited cxGridLevel: TcxGridLevel inherited cxGridLevel: TcxGridLevel
@ -164,26 +201,43 @@ inherited frViewPresupuestosCliente: TfrViewPresupuestosCliente
StyleDisabled.LookAndFeel.SkinName = '' StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = '' StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = '' StyleHot.LookAndFeel.SkinName = ''
ExplicitWidth = 806 ExplicitWidth = 250
Width = 806 Width = 250
end end
inherited edtFechaIniFiltro: TcxDateEdit inherited edtFechaIniFiltro: TcxDateEdit
Style.LookAndFeel.SkinName = '' Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = '' StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = '' StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = '' StyleHot.LookAndFeel.SkinName = ''
ExplicitWidth = 285 ExplicitWidth = 250
Width = 285 Width = 250
end end
inherited edtFechaFinFiltro: TcxDateEdit inherited edtFechaFinFiltro: TcxDateEdit
Left = 389 Left = 515
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 = 389 ExplicitLeft = 515
ExplicitWidth = 504 ExplicitWidth = 250
Width = 504 Width = 250
end
inherited txtFiltroTodo2: TcxTextEdit
Left = 515
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitLeft = 515
ExplicitWidth = 250
Width = 250
end
inherited dxLayoutControl1Group_Root: TdxLayoutGroup
inherited dxLayoutControl1Group2: TdxLayoutGroup
inherited dxLayoutControl1Item4: TdxLayoutItem
Visible = True
end
end
end end
end end
inherited TBXAlignmentPanel1: TTBXAlignmentPanel inherited TBXAlignmentPanel1: TTBXAlignmentPanel
@ -195,14 +249,6 @@ inherited frViewPresupuestosCliente: TfrViewPresupuestosCliente
end end
end end
end end
inherited dxLayoutLookAndFeelList1: TdxLayoutLookAndFeelList
Left = 56
end
inherited ActionList1: TActionList
inherited actQuitarFiltro: TAction
OnExecute = frViewFiltroBase1actQuitarFiltroExecute
end
end
end end
inherited pnlAgrupaciones: TTBXDockablePanel inherited pnlAgrupaciones: TTBXDockablePanel
Top = 499 Top = 499

9
Source/Modulos/Presupuestos de cliente/Views/uViewPresupuestosCliente.pas
View File

@ -49,6 +49,8 @@ type
cxGridViewColumn1: TcxGridDBColumn; cxGridViewColumn1: TcxGridDBColumn;
cxGridViewLISTA_NOMBRES: TcxGridDBColumn; cxGridViewLISTA_NOMBRES: TcxGridDBColumn;
cxGridViewVENDEDOR: TcxGridDBColumn; cxGridViewVENDEDOR: TcxGridDBColumn;
cxGridViewBASE_IMPONIBLE: TcxGridDBColumn;
cxGridViewIMPORTE_IVA: TcxGridDBColumn;
procedure cxGridActiveTabChanged(Sender: TcxCustomGrid; ALevel: procedure cxGridActiveTabChanged(Sender: TcxCustomGrid; ALevel:
TcxGridLevel); TcxGridLevel);
procedure cxGridViewStylesGetContentStyle(Sender: TcxCustomGridTableView; procedure cxGridViewStylesGetContentStyle(Sender: TcxCustomGridTableView;
@ -73,7 +75,6 @@ type
procedure OnFiltroListaPropertiesInitPopup(Sender: TObject); procedure OnFiltroListaPropertiesInitPopup(Sender: TObject);
procedure CustomViewDestroy(Sender: TObject); procedure CustomViewDestroy(Sender: TObject);
procedure CustomViewShow(Sender: TObject); procedure CustomViewShow(Sender: TObject);
procedure frViewFiltroBase1actQuitarFiltroExecute(Sender: TObject);
private private
//Filtros relativos a la vista //Filtros relativos a la vista
@ -305,12 +306,6 @@ begin
end; end;
end; end;
procedure TfrViewPresupuestosCliente.frViewFiltroBase1actQuitarFiltroExecute(Sender: TObject);
begin
frViewFiltroBase1.txtFiltroTodo.Clear;
// frViewFiltroBase1.eLista.Clear;
end;
procedure TfrViewPresupuestosCliente.OnFiltroListaPropertiesChange(Sender: TObject); procedure TfrViewPresupuestosCliente.OnFiltroListaPropertiesChange(Sender: TObject);
begin begin
inherited; inherited;

28
Source/Modulos/Recibos de cliente/Views/uEditorRecibosCliente.dfm
View File

@ -41,10 +41,10 @@ inherited fEditorRecibosCliente: TfEditorRecibosCliente
Width = 645 Width = 645
ExplicitWidth = 645 ExplicitWidth = 645
inherited tbxMain: TTBXToolbar inherited tbxMain: TTBXToolbar
ExplicitWidth = 645 ExplicitWidth = 561
end end
inherited tbxFiltro: TTBXToolbar inherited tbxFiltro: TTBXToolbar
ExplicitWidth = 431 ExplicitWidth = 356
inherited lblAno: TTBXLabelItem inherited lblAno: TTBXLabelItem
Visible = True Visible = True
end end
@ -59,9 +59,9 @@ inherited fEditorRecibosCliente: TfEditorRecibosCliente
ExplicitWidth = 645 ExplicitWidth = 645
end end
inherited TBXTMain2: TTBXToolbar inherited TBXTMain2: TTBXToolbar
Left = 431 Left = 356
Visible = True Visible = True
ExplicitLeft = 431 ExplicitLeft = 356
ExplicitWidth = 66 ExplicitWidth = 66
object TBXItem38: TTBXItem object TBXItem38: TTBXItem
Action = actInformes Action = actInformes
@ -161,6 +161,14 @@ inherited fEditorRecibosCliente: TfEditorRecibosCliente
ExplicitWidth = 295 ExplicitWidth = 295
Width = 295 Width = 295
end end
inherited txtFiltroTodo2: TcxTextEdit
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitWidth = 250
Width = 250
end
end end
inherited TBXAlignmentPanel1: TTBXAlignmentPanel inherited TBXAlignmentPanel1: TTBXAlignmentPanel
Width = 645 Width = 645
@ -1633,6 +1641,10 @@ inherited fEditorRecibosCliente: TfEditorRecibosCliente
item item
Caption = 'Previsualizar la lista de recibos actual' Caption = 'Previsualizar la lista de recibos actual'
Value = 200 Value = 200
end
item
Caption = 'Listado facturas/cobros de cliente seleccionado'
Value = 300
end> end>
ButtonBar.Buttons = [cbCancel] ButtonBar.Buttons = [cbCancel]
MainIcon = tdiCustom MainIcon = tdiCustom
@ -1944,6 +1956,10 @@ inherited fEditorRecibosCliente: TfEditorRecibosCliente
item item
Caption = 'Imprimir la lista de recibos actual' Caption = 'Imprimir la lista de recibos actual'
Value = 200 Value = 200
end
item
Caption = 'Listado facturas/cobros de cliente seleccionado'
Value = 300
end> end>
ButtonBar.Buttons = [cbCancel] ButtonBar.Buttons = [cbCancel]
MainIcon = tdiCustom MainIcon = tdiCustom
@ -2255,6 +2271,10 @@ inherited fEditorRecibosCliente: TfEditorRecibosCliente
item item
Caption = 'Listado de recibos' Caption = 'Listado de recibos'
Value = 200 Value = 200
end
item
Caption = 'Listado facturas/cobros de cliente seleccionado'
Value = 300
end> end>
ButtonBar.Buttons = [cbCancel] ButtonBar.Buttons = [cbCancel]
MainIcon = tdiCustom MainIcon = tdiCustom

21
Source/Modulos/Recibos de cliente/Views/uEditorRecibosCliente.pas
View File

@ -117,6 +117,9 @@ begin
200 : begin // Listado de recibos de cliente 200 : begin // Listado de recibos de cliente
AGestorInformesController.VerInformeListadoRecibosCliente; AGestorInformesController.VerInformeListadoRecibosCliente;
end; end;
300: begin // Listado de facturas/cobros de cliente
AGestorInformesController.VerInformeListadoFacturasRecibosCli(RecibosCliente.ID_CLIENTE);
end;
end; end;
end; end;
@ -223,6 +226,7 @@ procedure TfEditorRecibosCliente.ImprimirInterno;
var var
Respuesta : Integer; Respuesta : Integer;
ARecibosCliente: IBizRecibosCliente; ARecibosCliente: IBizRecibosCliente;
AGestorInformesController : IGestorInformesController;
AllItems: Boolean; AllItems: Boolean;
begin begin
ARecibosCliente := Nil; ARecibosCliente := Nil;
@ -255,6 +259,14 @@ begin
if Assigned(ARecibosCliente) then if Assigned(ARecibosCliente) then
FController.Preview(ARecibosCliente, AllItems); FController.Preview(ARecibosCliente, AllItems);
end; end;
300: begin // Listado de facturas/cobros de cliente
AGestorInformesController := TGestorInformesController.Create;
try
AGestorInformesController.VerInformeListadoFacturasRecibosCli(RecibosCliente.ID_CLIENTE);
finally
AGestorInformesController := NIL;
end;
end;
end; end;
end; end;
end; end;
@ -295,6 +307,7 @@ procedure TfEditorRecibosCliente.PrevisualizarInterno;
var var
Respuesta : Integer; Respuesta : Integer;
ARecibosCliente: IBizRecibosCliente; ARecibosCliente: IBizRecibosCliente;
AGestorInformesController : IGestorInformesController;
AllItems: Boolean; AllItems: Boolean;
begin begin
ARecibosCliente := Nil; ARecibosCliente := Nil;
@ -327,6 +340,14 @@ begin
if Assigned(ARecibosCliente) then if Assigned(ARecibosCliente) then
FController.Preview(ARecibosCliente, AllItems); FController.Preview(ARecibosCliente, AllItems);
end; end;
300: begin // Listado de facturas/cobros de cliente
AGestorInformesController := TGestorInformesController.Create;
try
AGestorInformesController.VerInformeListadoFacturasRecibosCli(RecibosCliente.ID_CLIENTE);
finally
AGestorInformesController := NIL;
end;
end;
end; end;
end; end;
end; end;

20
Source/Servicios/FactuGES.RODL
View File

@ -392,6 +392,10 @@
</Parameter> </Parameter>
<Parameter Name="VerPrecios" DataType="Boolean" Flag="In" > <Parameter Name="VerPrecios" DataType="Boolean" Flag="In" >
</Parameter> </Parameter>
<Parameter Name="VerTrabajos" DataType="Boolean" Flag="In" >
</Parameter>
<Parameter Name="VerIncidencias" DataType="Boolean" Flag="In" >
</Parameter>
</Parameters> </Parameters>
</Operation> </Operation>
<Operation Name="GenerarInformeEtiquetas" UID="{260CD213-F125-422B-9BD1-401729460DF0}"> <Operation Name="GenerarInformeEtiquetas" UID="{260CD213-F125-422B-9BD1-401729460DF0}">
@ -901,6 +905,22 @@
</Parameter> </Parameter>
</Parameters> </Parameters>
</Operation> </Operation>
<Operation Name="GenerarInformeListadoFacturasRecibosCli" UID="{2952DC95-AD6C-406B-93D2-EB3F07830F45}">
<Parameters>
<Parameter Name="Result" DataType="Binary" Flag="Result">
</Parameter>
<Parameter Name="IdEmpresa" DataType="Integer" Flag="In" >
</Parameter>
<Parameter Name="ListadoIDClientes" DataType="TIntegerArray" Flag="In" >
</Parameter>
<Parameter Name="Desglosado" DataType="Boolean" Flag="In" >
</Parameter>
<Parameter Name="FechaInicio" DataType="Variant" Flag="In" >
</Parameter>
<Parameter Name="FechaFin" DataType="Variant" Flag="In" >
</Parameter>
</Parameters>
</Operation>
</Operations> </Operations>
</Interface> </Interface>
</Interfaces> </Interfaces>

34
Source/Servicios/FactuGES_Intf.pas
View File

@ -598,7 +598,7 @@ type
{ IsrvAlbaranesCliente } { IsrvAlbaranesCliente }
IsrvAlbaranesCliente = interface(IDataAbstractService) IsrvAlbaranesCliente = interface(IDataAbstractService)
['{6E910718-9AB0-47BB-9875-B0DE66A68D7A}'] ['{6E910718-9AB0-47BB-9875-B0DE66A68D7A}']
function GenerarInforme(const ListaID: TIntegerArray; const VerPrecios: Boolean): Binary; function GenerarInforme(const ListaID: TIntegerArray; const VerPrecios: Boolean; const VerTrabajos: Boolean; const VerIncidencias: Boolean): Binary;
function GenerarInformeEtiquetas(const ID: Integer; const withRefCliente: Boolean): Binary; function GenerarInformeEtiquetas(const ID: Integer; const withRefCliente: Boolean): Binary;
end; end;
@ -612,7 +612,7 @@ type
protected protected
function __GetInterfaceName:string; override; function __GetInterfaceName:string; override;
function GenerarInforme(const ListaID: TIntegerArray; const VerPrecios: Boolean): Binary; function GenerarInforme(const ListaID: TIntegerArray; const VerPrecios: Boolean; const VerTrabajos: Boolean; const VerIncidencias: Boolean): Binary;
function GenerarInformeEtiquetas(const ID: Integer; const withRefCliente: Boolean): Binary; function GenerarInformeEtiquetas(const ID: Integer; const withRefCliente: Boolean): Binary;
end; end;
@ -820,6 +820,8 @@ type
const FechaVenFin: Variant; const ListaIDProveedores: TIntegerArray; const Desglosado: Boolean; const ImporteMinimo: Currency): Binary; const FechaVenFin: Variant; const ListaIDProveedores: TIntegerArray; const Desglosado: Boolean; const ImporteMinimo: Currency): Binary;
function GenerarInformeListadoPresupuestos(const IdEmpresa: Integer; const FechaInicio: Variant; const FechaFin: Variant; const ListaIDClientes: TIntegerArray; function GenerarInformeListadoPresupuestos(const IdEmpresa: Integer; const FechaInicio: Variant; const FechaFin: Variant; const ListaIDClientes: TIntegerArray;
const Desglosado: Boolean; const ImporteMinimo: Currency): Binary; const Desglosado: Boolean; const ImporteMinimo: Currency): Binary;
function GenerarInformeListadoFacturasRecibosCli(const IdEmpresa: Integer; const ListadoIDClientes: TIntegerArray; const Desglosado: Boolean; const FechaInicio: Variant;
const FechaFin: Variant): Binary;
end; end;
{ CosrvGestorInformes } { CosrvGestorInformes }
@ -854,6 +856,8 @@ type
const FechaVenFin: Variant; const ListaIDProveedores: TIntegerArray; const Desglosado: Boolean; const ImporteMinimo: Currency): Binary; const FechaVenFin: Variant; const ListaIDProveedores: TIntegerArray; const Desglosado: Boolean; const ImporteMinimo: Currency): Binary;
function GenerarInformeListadoPresupuestos(const IdEmpresa: Integer; const FechaInicio: Variant; const FechaFin: Variant; const ListaIDClientes: TIntegerArray; function GenerarInformeListadoPresupuestos(const IdEmpresa: Integer; const FechaInicio: Variant; const FechaFin: Variant; const ListaIDClientes: TIntegerArray;
const Desglosado: Boolean; const ImporteMinimo: Currency): Binary; const Desglosado: Boolean; const ImporteMinimo: Currency): Binary;
function GenerarInformeListadoFacturasRecibosCli(const IdEmpresa: Integer; const ListadoIDClientes: TIntegerArray; const Desglosado: Boolean; const FechaInicio: Variant;
const FechaFin: Variant): Binary;
end; end;
{ IsrvContratosCliente } { IsrvContratosCliente }
@ -1992,13 +1996,15 @@ begin
result := 'srvAlbaranesCliente'; result := 'srvAlbaranesCliente';
end; end;
function TsrvAlbaranesCliente_Proxy.GenerarInforme(const ListaID: TIntegerArray; const VerPrecios: Boolean): Binary; function TsrvAlbaranesCliente_Proxy.GenerarInforme(const ListaID: TIntegerArray; const VerPrecios: Boolean; const VerTrabajos: Boolean; const VerIncidencias: Boolean): Binary;
begin begin
try try
result := nil; result := nil;
__Message.InitializeRequestMessage(__TransportChannel, 'FactuGES', __InterfaceName, 'GenerarInforme'); __Message.InitializeRequestMessage(__TransportChannel, 'FactuGES', __InterfaceName, 'GenerarInforme');
__Message.Write('ListaID', TypeInfo(FactuGES_Intf.TIntegerArray), ListaID, []); __Message.Write('ListaID', TypeInfo(FactuGES_Intf.TIntegerArray), ListaID, []);
__Message.Write('VerPrecios', TypeInfo(Boolean), VerPrecios, []); __Message.Write('VerPrecios', TypeInfo(Boolean), VerPrecios, []);
__Message.Write('VerTrabajos', TypeInfo(Boolean), VerTrabajos, []);
__Message.Write('VerIncidencias', TypeInfo(Boolean), VerIncidencias, []);
__Message.Finalize; __Message.Finalize;
__TransportChannel.Dispatch(__Message); __TransportChannel.Dispatch(__Message);
@ -2762,6 +2768,28 @@ begin
end end
end; end;
function TsrvGestorInformes_Proxy.GenerarInformeListadoFacturasRecibosCli(const IdEmpresa: Integer; const ListadoIDClientes: TIntegerArray; const Desglosado: Boolean; const FechaInicio: Variant;
const FechaFin: Variant): Binary;
begin
try
result := nil;
__Message.InitializeRequestMessage(__TransportChannel, 'FactuGES', __InterfaceName, 'GenerarInformeListadoFacturasRecibosCli');
__Message.Write('IdEmpresa', TypeInfo(Integer), IdEmpresa, []);
__Message.Write('ListadoIDClientes', TypeInfo(FactuGES_Intf.TIntegerArray), ListadoIDClientes, []);
__Message.Write('Desglosado', TypeInfo(Boolean), Desglosado, []);
__Message.Write('FechaInicio', TypeInfo(Variant), FechaInicio, []);
__Message.Write('FechaFin', TypeInfo(Variant), FechaFin, []);
__Message.Finalize;
__TransportChannel.Dispatch(__Message);
__Message.Read('Result', TypeInfo(Binary), result, []);
finally
__Message.UnsetAttributes(__TransportChannel);
__Message.FreeStream;
end
end;
{ CosrvContratosCliente } { CosrvContratosCliente }
class function CosrvContratosCliente.Create(const aMessage: IROMessage; aTransportChannel: IROTransportChannel): IsrvContratosCliente; class function CosrvContratosCliente.Create(const aMessage: IROMessage; aTransportChannel: IROTransportChannel): IsrvContratosCliente;

48
Source/Servicios/FactuGES_Invk.pas
View File

@ -317,6 +317,7 @@ type
procedure Invoke_GenerarInformeListadoRecibosCliPendientes(const __Instance:IInterface; const __Message:IROMessage; const __Transport:IROTransport; out __oResponseOptions:TROResponseOptions); procedure Invoke_GenerarInformeListadoRecibosCliPendientes(const __Instance:IInterface; const __Message:IROMessage; const __Transport:IROTransport; out __oResponseOptions:TROResponseOptions);
procedure Invoke_GenerarInformeListadoRecibosProvPendientes(const __Instance:IInterface; const __Message:IROMessage; const __Transport:IROTransport; out __oResponseOptions:TROResponseOptions); procedure Invoke_GenerarInformeListadoRecibosProvPendientes(const __Instance:IInterface; const __Message:IROMessage; const __Transport:IROTransport; out __oResponseOptions:TROResponseOptions);
procedure Invoke_GenerarInformeListadoPresupuestos(const __Instance:IInterface; const __Message:IROMessage; const __Transport:IROTransport; out __oResponseOptions:TROResponseOptions); procedure Invoke_GenerarInformeListadoPresupuestos(const __Instance:IInterface; const __Message:IROMessage; const __Transport:IROTransport; out __oResponseOptions:TROResponseOptions);
procedure Invoke_GenerarInformeListadoFacturasRecibosCli(const __Instance:IInterface; const __Message:IROMessage; const __Transport:IROTransport; out __oResponseOptions:TROResponseOptions);
end; end;
TsrvContratosCliente_Invoker = class(TDataAbstractService_Invoker) TsrvContratosCliente_Invoker = class(TDataAbstractService_Invoker)
@ -1172,10 +1173,12 @@ begin
end; end;
procedure TsrvAlbaranesCliente_Invoker.Invoke_GenerarInforme(const __Instance:IInterface; const __Message:IROMessage; const __Transport:IROTransport; out __oResponseOptions:TROResponseOptions); procedure TsrvAlbaranesCliente_Invoker.Invoke_GenerarInforme(const __Instance:IInterface; const __Message:IROMessage; const __Transport:IROTransport; out __oResponseOptions:TROResponseOptions);
{ function GenerarInforme(const ListaID: TIntegerArray; const VerPrecios: Boolean): Binary; } { function GenerarInforme(const ListaID: TIntegerArray; const VerPrecios: Boolean; const VerTrabajos: Boolean; const VerIncidencias: Boolean): Binary; }
var var
ListaID: FactuGES_Intf.TIntegerArray; ListaID: FactuGES_Intf.TIntegerArray;
VerPrecios: Boolean; VerPrecios: Boolean;
VerTrabajos: Boolean;
VerIncidencias: Boolean;
lResult: Binary; lResult: Binary;
__lObjectDisposer: TROObjectDisposer; __lObjectDisposer: TROObjectDisposer;
begin begin
@ -1184,8 +1187,10 @@ begin
try try
__Message.Read('ListaID', TypeInfo(FactuGES_Intf.TIntegerArray), ListaID, []); __Message.Read('ListaID', TypeInfo(FactuGES_Intf.TIntegerArray), ListaID, []);
__Message.Read('VerPrecios', TypeInfo(Boolean), VerPrecios, []); __Message.Read('VerPrecios', TypeInfo(Boolean), VerPrecios, []);
__Message.Read('VerTrabajos', TypeInfo(Boolean), VerTrabajos, []);
__Message.Read('VerIncidencias', TypeInfo(Boolean), VerIncidencias, []);
lResult := (__Instance as IsrvAlbaranesCliente).GenerarInforme(ListaID, VerPrecios); lResult := (__Instance as IsrvAlbaranesCliente).GenerarInforme(ListaID, VerPrecios, VerTrabajos, VerIncidencias);
__Message.InitializeResponseMessage(__Transport, 'FactuGES', 'srvAlbaranesCliente', 'GenerarInformeResponse'); __Message.InitializeResponseMessage(__Transport, 'FactuGES', 'srvAlbaranesCliente', 'GenerarInformeResponse');
__Message.Write('Result', TypeInfo(Binary), lResult, []); __Message.Write('Result', TypeInfo(Binary), lResult, []);
@ -2276,6 +2281,45 @@ begin
end; end;
end; end;
procedure TsrvGestorInformes_Invoker.Invoke_GenerarInformeListadoFacturasRecibosCli(const __Instance:IInterface; const __Message:IROMessage; const __Transport:IROTransport; out __oResponseOptions:TROResponseOptions);
{ function GenerarInformeListadoFacturasRecibosCli(const IdEmpresa: Integer; const ListadoIDClientes: TIntegerArray; const Desglosado: Boolean; const FechaInicio: Variant;
const FechaFin: Variant): Binary; }
var
IdEmpresa: Integer;
ListadoIDClientes: FactuGES_Intf.TIntegerArray;
Desglosado: Boolean;
FechaInicio: Variant;
FechaFin: Variant;
lResult: Binary;
__lObjectDisposer: TROObjectDisposer;
begin
ListadoIDClientes := nil;
lResult := nil;
try
__Message.Read('IdEmpresa', TypeInfo(Integer), IdEmpresa, []);
__Message.Read('ListadoIDClientes', TypeInfo(FactuGES_Intf.TIntegerArray), ListadoIDClientes, []);
__Message.Read('Desglosado', TypeInfo(Boolean), Desglosado, []);
__Message.Read('FechaInicio', TypeInfo(Variant), FechaInicio, []);
__Message.Read('FechaFin', TypeInfo(Variant), FechaFin, []);
lResult := (__Instance as IsrvGestorInformes).GenerarInformeListadoFacturasRecibosCli(IdEmpresa, ListadoIDClientes, Desglosado, FechaInicio, FechaFin);
__Message.InitializeResponseMessage(__Transport, 'FactuGES', 'srvGestorInformes', 'GenerarInformeListadoFacturasRecibosCliResponse');
__Message.Write('Result', TypeInfo(Binary), lResult, []);
__Message.Finalize;
__Message.UnsetAttributes(__Transport);
finally
__lObjectDisposer := TROObjectDisposer.Create(__Instance);
try
__lObjectDisposer.Add(ListadoIDClientes);
__lObjectDisposer.Add(lResult);
finally
__lObjectDisposer.Free();
end;
end;
end;
{ TsrvContratosCliente_Invoker } { TsrvContratosCliente_Invoker }
constructor TsrvContratosCliente_Invoker.Create; constructor TsrvContratosCliente_Invoker.Create;

BIN
Source/Servicios/RODLFile.res
View File

Binary file not shown.

8
Source/Servidor/FactuGES_Server.dpr
View File

@ -37,7 +37,6 @@ uses
uBizVendedoresServer in '..\Modulos\Contactos\Model\uBizVendedoresServer.pas', uBizVendedoresServer in '..\Modulos\Contactos\Model\uBizVendedoresServer.pas',
schTiposIVAServer_Intf in '..\Modulos\Tipos de IVA\Model\schTiposIVAServer_Intf.pas', schTiposIVAServer_Intf in '..\Modulos\Tipos de IVA\Model\schTiposIVAServer_Intf.pas',
schTiposIVAClient_Intf in '..\Modulos\Tipos de IVA\Model\schTiposIVAClient_Intf.pas', schTiposIVAClient_Intf in '..\Modulos\Tipos de IVA\Model\schTiposIVAClient_Intf.pas',
schBase_Intf in '..\Base\schBase_Intf.pas',
srvPresupuestosCliente_Impl in '..\Modulos\Presupuestos de cliente\Servidor\srvPresupuestosCliente_Impl.pas' {srvPresupuestosCliente: TDataAbstractService}, srvPresupuestosCliente_Impl in '..\Modulos\Presupuestos de cliente\Servidor\srvPresupuestosCliente_Impl.pas' {srvPresupuestosCliente: TDataAbstractService},
uBizPresupuestosClienteServer in '..\Modulos\Presupuestos de cliente\Model\uBizPresupuestosClienteServer.pas', uBizPresupuestosClienteServer in '..\Modulos\Presupuestos de cliente\Model\uBizPresupuestosClienteServer.pas',
srvArticulos_Impl in '..\Modulos\Articulos\Servidor\srvArticulos_Impl.pas', srvArticulos_Impl in '..\Modulos\Articulos\Servidor\srvArticulos_Impl.pas',
@ -113,8 +112,6 @@ uses
uRptPedidosProveedor_Server in '..\Modulos\Pedidos a proveedor\Reports\uRptPedidosProveedor_Server.pas' {RptPedidosProveedor: TDataModule}, uRptPedidosProveedor_Server in '..\Modulos\Pedidos a proveedor\Reports\uRptPedidosProveedor_Server.pas' {RptPedidosProveedor: TDataModule},
schContactosClient_Intf in '..\Modulos\Contactos\Model\schContactosClient_Intf.pas', schContactosClient_Intf in '..\Modulos\Contactos\Model\schContactosClient_Intf.pas',
schContactosServer_Intf in '..\Modulos\Contactos\Model\schContactosServer_Intf.pas', schContactosServer_Intf in '..\Modulos\Contactos\Model\schContactosServer_Intf.pas',
schAlbaranesClienteClient_Intf in '..\Modulos\Albaranes de cliente\Model\schAlbaranesClienteClient_Intf.pas',
schAlbaranesClienteServer_Intf in '..\Modulos\Albaranes de cliente\Model\schAlbaranesClienteServer_Intf.pas',
schRecibosClienteClient_Intf in '..\Modulos\Recibos de cliente\Model\schRecibosClienteClient_Intf.pas', schRecibosClienteClient_Intf in '..\Modulos\Recibos de cliente\Model\schRecibosClienteClient_Intf.pas',
schRecibosClienteServer_Intf in '..\Modulos\Recibos de cliente\Model\schRecibosClienteServer_Intf.pas', schRecibosClienteServer_Intf in '..\Modulos\Recibos de cliente\Model\schRecibosClienteServer_Intf.pas',
schRecibosProveedorClient_Intf in '..\Modulos\Recibos de proveedor\Model\schRecibosProveedorClient_Intf.pas', schRecibosProveedorClient_Intf in '..\Modulos\Recibos de proveedor\Model\schRecibosProveedorClient_Intf.pas',
@ -138,7 +135,10 @@ uses
schPresupuestosClienteClient_Intf in '..\Modulos\Presupuestos de cliente\Model\schPresupuestosClienteClient_Intf.pas', schPresupuestosClienteClient_Intf in '..\Modulos\Presupuestos de cliente\Model\schPresupuestosClienteClient_Intf.pas',
schPresupuestosClienteServer_Intf in '..\Modulos\Presupuestos de cliente\Model\schPresupuestosClienteServer_Intf.pas', schPresupuestosClienteServer_Intf in '..\Modulos\Presupuestos de cliente\Model\schPresupuestosClienteServer_Intf.pas',
schContratosClienteClient_Intf in '..\Modulos\Contratos de cliente\Model\schContratosClienteClient_Intf.pas', schContratosClienteClient_Intf in '..\Modulos\Contratos de cliente\Model\schContratosClienteClient_Intf.pas',
schContratosClienteServer_Intf in '..\Modulos\Contratos de cliente\Model\schContratosClienteServer_Intf.pas'; schContratosClienteServer_Intf in '..\Modulos\Contratos de cliente\Model\schContratosClienteServer_Intf.pas',
schBase_Intf in '..\Base\schBase_Intf.pas',
schAlbaranesClienteClient_Intf in '..\Modulos\Albaranes de cliente\Model\schAlbaranesClienteClient_Intf.pas',
schAlbaranesClienteServer_Intf in '..\Modulos\Albaranes de cliente\Model\schAlbaranesClienteServer_Intf.pas';
{$R *.res} {$R *.res}
{$R ..\Servicios\RODLFile.res} {$R ..\Servicios\RODLFile.res}

2
Source/Servidor/FactuGES_Server.dproj
View File

@ -28,7 +28,7 @@
<Borland.Personality>Delphi.Personality</Borland.Personality> <Borland.Personality>Delphi.Personality</Borland.Personality>
<Borland.ProjectType/> <Borland.ProjectType/>
<BorlandProject> <BorlandProject>
<BorlandProject><Delphi.Personality><Parameters><Parameters Name="UseLauncher">False</Parameters><Parameters Name="LoadAllSymbols">True</Parameters><Parameters Name="LoadUnspecifiedSymbols">False</Parameters></Parameters><VersionInfo><VersionInfo Name="IncludeVerInfo">True</VersionInfo><VersionInfo Name="AutoIncBuild">False</VersionInfo><VersionInfo Name="MajorVer">3</VersionInfo><VersionInfo Name="MinorVer">4</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">Rodax Software S.L.</VersionInfoKeys><VersionInfoKeys Name="FileDescription"></VersionInfoKeys><VersionInfoKeys Name="FileVersion">3.4.0.0</VersionInfoKeys><VersionInfoKeys Name="InternalName"></VersionInfoKeys><VersionInfoKeys Name="LegalCopyright"></VersionInfoKeys><VersionInfoKeys Name="LegalTrademarks"></VersionInfoKeys><VersionInfoKeys Name="OriginalFilename"></VersionInfoKeys><VersionInfoKeys Name="ProductName">FactuGES (Servidor)</VersionInfoKeys><VersionInfoKeys Name="ProductVersion">3.4.0.0</VersionInfoKeys><VersionInfoKeys Name="Comments"></VersionInfoKeys><VersionInfoKeys Name="CompileDate">domingo, 23 de enero de 2022 17:34</VersionInfoKeys></VersionInfoKeys><Excluded_Packages> <BorlandProject><Delphi.Personality><Parameters><Parameters Name="UseLauncher">False</Parameters><Parameters Name="LoadAllSymbols">True</Parameters><Parameters Name="LoadUnspecifiedSymbols">False</Parameters></Parameters><VersionInfo><VersionInfo Name="IncludeVerInfo">True</VersionInfo><VersionInfo Name="AutoIncBuild">False</VersionInfo><VersionInfo Name="MajorVer">3</VersionInfo><VersionInfo Name="MinorVer">6</VersionInfo><VersionInfo Name="Release">1</VersionInfo><VersionInfo Name="Build">0</VersionInfo><VersionInfo Name="Debug">False</VersionInfo><VersionInfo Name="PreRelease">False</VersionInfo><VersionInfo Name="Special">False</VersionInfo><VersionInfo Name="Private">False</VersionInfo><VersionInfo Name="DLL">False</VersionInfo><VersionInfo Name="Locale">3082</VersionInfo><VersionInfo Name="CodePage">1252</VersionInfo></VersionInfo><VersionInfoKeys><VersionInfoKeys Name="CompanyName">Rodax Software S.L.</VersionInfoKeys><VersionInfoKeys Name="FileDescription"></VersionInfoKeys><VersionInfoKeys Name="FileVersion">3.6.1.0</VersionInfoKeys><VersionInfoKeys Name="InternalName"></VersionInfoKeys><VersionInfoKeys Name="LegalCopyright"></VersionInfoKeys><VersionInfoKeys Name="LegalTrademarks"></VersionInfoKeys><VersionInfoKeys Name="OriginalFilename"></VersionInfoKeys><VersionInfoKeys Name="ProductName">FactuGES (Servidor)</VersionInfoKeys><VersionInfoKeys Name="ProductVersion">3.6.1.0</VersionInfoKeys><VersionInfoKeys Name="Comments"></VersionInfoKeys><VersionInfoKeys Name="CompileDate">viernes, 24 de junio de 2022 12:51</VersionInfoKeys></VersionInfoKeys><Excluded_Packages>
<Excluded_Packages Name="C:\Documents and Settings\All Users\Documentos\RAD Studio\5.0\Bpl\dxPScxScheduler2LnkD11.bpl">File C:\Documents and Settings\All Users\Documentos\RAD Studio\5.0\Bpl\dxPScxScheduler2LnkD11.bpl not found</Excluded_Packages> <Excluded_Packages Name="C:\Documents and Settings\All Users\Documentos\RAD Studio\5.0\Bpl\dxPScxScheduler2LnkD11.bpl">File C:\Documents and Settings\All Users\Documentos\RAD Studio\5.0\Bpl\dxPScxScheduler2LnkD11.bpl not found</Excluded_Packages>
</Excluded_Packages><Source><Source Name="MainSource">FactuGES_Server.dpr</Source></Source></Delphi.Personality></BorlandProject></BorlandProject> </Excluded_Packages><Source><Source Name="MainSource">FactuGES_Server.dpr</Source></Source></Delphi.Personality></BorlandProject></BorlandProject>
</ProjectExtensions> </ProjectExtensions>

10
Source/Servidor/FactuGES_Server.rc
View File

@ -1,7 +1,7 @@
MAINICON ICON "C:\Codigo Acana\Resources\Iconos\Servidor.ico" MAINICON ICON "C:\Codigo Acana\Resources\Iconos\Servidor.ico"
1 VERSIONINFO 1 VERSIONINFO
FILEVERSION 3,4,0,0 FILEVERSION 3,6,1,0
PRODUCTVERSION 3,4,0,0 PRODUCTVERSION 3,6,1,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", "3.4.0.0\0" VALUE "FileVersion", "3.6.1.0\0"
VALUE "ProductName", "FactuGES (Servidor)\0" VALUE "ProductName", "FactuGES (Servidor)\0"
VALUE "ProductVersion", "3.4.0.0\0" VALUE "ProductVersion", "3.6.1.0\0"
VALUE "CompileDate", "domingo, 06 de febrero de 2022 22:43\0" VALUE "CompileDate", "martes, 23 de agosto de 2022 12:45\0"
END END
END END
BLOCK "VarFileInfo" BLOCK "VarFileInfo"

BIN
Source/Servidor/FactuGES_Server.res
View File

Binary file not shown.