Version 3.6.1, se mete en albaranes de cliente trabajos de instalador
git-svn-id: https://192.168.0.254/svn/Proyectos.Acana_FactuGES2/trunk@686 f4e31baf-9722-1c47-927c-6f952f962d4b
This commit is contained in:
parent
482f6d8fb6
commit
f115865f81
@ -44,6 +44,13 @@
|
||||
<Borland.ProjectType>Package</Borland.ProjectType>
|
||||
<BorlandProject>
|
||||
<BorlandProject><Delphi.Personality><Parameters><Parameters Name="UseLauncher">False</Parameters><Parameters Name="LoadAllSymbols">True</Parameters><Parameters Name="LoadUnspecifiedSymbols">False</Parameters></Parameters><Package_Options><Package_Options Name="PackageDescription">Libreria base de FactuGES</Package_Options><Package_Options Name="ImplicitBuild">False</Package_Options><Package_Options Name="DesigntimeOnly">False</Package_Options><Package_Options Name="RuntimeOnly">False</Package_Options></Package_Options><VersionInfo><VersionInfo Name="IncludeVerInfo">True</VersionInfo><VersionInfo Name="AutoIncBuild">False</VersionInfo><VersionInfo Name="MajorVer">1</VersionInfo><VersionInfo Name="MinorVer">0</VersionInfo><VersionInfo Name="Release">0</VersionInfo><VersionInfo Name="Build">0</VersionInfo><VersionInfo Name="Debug">False</VersionInfo><VersionInfo Name="PreRelease">False</VersionInfo><VersionInfo Name="Special">False</VersionInfo><VersionInfo Name="Private">False</VersionInfo><VersionInfo Name="DLL">False</VersionInfo><VersionInfo Name="Locale">3082</VersionInfo><VersionInfo Name="CodePage">1252</VersionInfo></VersionInfo><VersionInfoKeys><VersionInfoKeys Name="CompanyName"></VersionInfoKeys><VersionInfoKeys Name="FileDescription"></VersionInfoKeys><VersionInfoKeys Name="FileVersion">1.0.0.0</VersionInfoKeys><VersionInfoKeys Name="InternalName"></VersionInfoKeys><VersionInfoKeys Name="LegalCopyright"></VersionInfoKeys><VersionInfoKeys Name="LegalTrademarks"></VersionInfoKeys><VersionInfoKeys Name="OriginalFilename"></VersionInfoKeys><VersionInfoKeys Name="ProductName"></VersionInfoKeys><VersionInfoKeys Name="ProductVersion">1.0.0.0</VersionInfoKeys></VersionInfoKeys><Excluded_Packages>
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
<Excluded_Packages Name="$(BDS)\Bin\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\dclsoap100.bpl">CodeGear SOAP Components</Excluded_Packages>
|
||||
@ -58,55 +65,55 @@
|
||||
<DelphiCompile Include="Base.dpk">
|
||||
<MainSource>MainSource</MainSource>
|
||||
</DelphiCompile>
|
||||
<DCCReference Include="..\Modulos\Contactos\adortl.dcp" />
|
||||
<DCCReference Include="..\Modulos\Contactos\cxDataD11.dcp" />
|
||||
<DCCReference Include="..\Modulos\Contactos\cxEditorsD11.dcp" />
|
||||
<DCCReference Include="..\Modulos\Contactos\cxExtEditorsD11.dcp" />
|
||||
<DCCReference Include="..\Modulos\Contactos\cxGridD11.dcp" />
|
||||
<DCCReference Include="..\Modulos\Contactos\cxLibraryD11.dcp" />
|
||||
<DCCReference Include="..\Modulos\Contactos\cxPageControlD11.dcp" />
|
||||
<DCCReference Include="..\Modulos\Contactos\DataAbstract_Core_D11.dcp" />
|
||||
<DCCReference Include="..\Modulos\Contactos\dbrtl.dcp" />
|
||||
<DCCReference Include="..\Modulos\Contactos\dclIndyCore.dcp" />
|
||||
<DCCReference Include="..\Modulos\Contactos\designide.dcp" />
|
||||
<DCCReference Include="..\Modulos\Contactos\dsnap.dcp" />
|
||||
<DCCReference Include="..\Modulos\Contactos\dxCoreD11.dcp" />
|
||||
<DCCReference Include="..\Modulos\Contactos\dxGDIPlusD11.dcp" />
|
||||
<DCCReference Include="..\Modulos\Contactos\dxPSCoreD11.dcp" />
|
||||
<DCCReference Include="..\Modulos\Contactos\dxThemeD11.dcp" />
|
||||
<DCCReference Include="..\Modulos\Contactos\GUISDK_D11R.dcp" />
|
||||
<DCCReference Include="..\Modulos\Contactos\IndyCore.dcp" />
|
||||
<DCCReference Include="..\Modulos\Contactos\IndyProtocols.dcp" />
|
||||
<DCCReference Include="..\Modulos\Contactos\IndySystem.dcp" />
|
||||
<DCCReference Include="..\Modulos\Contactos\Jcl.dcp" />
|
||||
<DCCReference Include="..\Modulos\Contactos\JclVcl.dcp" />
|
||||
<DCCReference Include="..\Modulos\Contactos\JSDialog100.dcp" />
|
||||
<DCCReference Include="..\Modulos\Contactos\JvCmpD11R.dcp" />
|
||||
<DCCReference Include="..\Modulos\Contactos\JvCoreD11R.dcp" />
|
||||
<DCCReference Include="..\Modulos\Contactos\JvCtrlsD11R.dcp" />
|
||||
<DCCReference Include="..\Modulos\Contactos\JvDlgsD11R.dcp" />
|
||||
<DCCReference Include="..\Modulos\Contactos\JvMMD11R.dcp" />
|
||||
<DCCReference Include="..\Modulos\Contactos\JvNetD11R.dcp" />
|
||||
<DCCReference Include="..\Modulos\Contactos\JvPageCompsD11R.dcp" />
|
||||
<DCCReference Include="..\Modulos\Contactos\JvStdCtrlsD11R.dcp" />
|
||||
<DCCReference Include="..\Modulos\Contactos\JvSystemD11R.dcp" />
|
||||
<DCCReference Include="..\Modulos\Contactos\pckMD5.dcp" />
|
||||
<DCCReference Include="..\Modulos\Contactos\pckUCDataConnector.dcp" />
|
||||
<DCCReference Include="..\Modulos\Contactos\pckUserControl_RT.dcp" />
|
||||
<DCCReference Include="..\Modulos\Contactos\PluginSDK_D11R.dcp" />
|
||||
<DCCReference Include="..\Modulos\Contactos\PngComponentsD10.dcp" />
|
||||
<DCCReference Include="..\Modulos\Contactos\PNG_D10.dcp" />
|
||||
<DCCReference Include="..\Modulos\Contactos\RemObjects_Core_D11.dcp" />
|
||||
<DCCReference Include="..\Modulos\Contactos\rtl.dcp" />
|
||||
<DCCReference Include="..\Modulos\Contactos\TB2k_D10.dcp" />
|
||||
<DCCReference Include="..\Modulos\Contactos\tbx_d10.dcp" />
|
||||
<DCCReference Include="..\Modulos\Contactos\vcl.dcp" />
|
||||
<DCCReference Include="..\Modulos\Contactos\vclactnband.dcp" />
|
||||
<DCCReference Include="..\Modulos\Contactos\vcldb.dcp" />
|
||||
<DCCReference Include="..\Modulos\Contactos\vcljpg.dcp" />
|
||||
<DCCReference Include="..\Modulos\Contactos\VclSmp.dcp" />
|
||||
<DCCReference Include="..\Modulos\Contactos\vclx.dcp" />
|
||||
<DCCReference Include="..\Modulos\Contactos\xmlrtl.dcp" />
|
||||
<DCCReference Include="..\Modulos\Albaranes de cliente\adortl.dcp" />
|
||||
<DCCReference Include="..\Modulos\Albaranes de cliente\cxDataD11.dcp" />
|
||||
<DCCReference Include="..\Modulos\Albaranes de cliente\cxEditorsD11.dcp" />
|
||||
<DCCReference Include="..\Modulos\Albaranes de cliente\cxExtEditorsD11.dcp" />
|
||||
<DCCReference Include="..\Modulos\Albaranes de cliente\cxGridD11.dcp" />
|
||||
<DCCReference Include="..\Modulos\Albaranes de cliente\cxLibraryD11.dcp" />
|
||||
<DCCReference Include="..\Modulos\Albaranes de cliente\cxPageControlD11.dcp" />
|
||||
<DCCReference Include="..\Modulos\Albaranes de cliente\DataAbstract_Core_D11.dcp" />
|
||||
<DCCReference Include="..\Modulos\Albaranes de cliente\dbrtl.dcp" />
|
||||
<DCCReference Include="..\Modulos\Albaranes de cliente\dclIndyCore.dcp" />
|
||||
<DCCReference Include="..\Modulos\Albaranes de cliente\designide.dcp" />
|
||||
<DCCReference Include="..\Modulos\Albaranes de cliente\dsnap.dcp" />
|
||||
<DCCReference Include="..\Modulos\Albaranes de cliente\dxCoreD11.dcp" />
|
||||
<DCCReference Include="..\Modulos\Albaranes de cliente\dxGDIPlusD11.dcp" />
|
||||
<DCCReference Include="..\Modulos\Albaranes de cliente\dxPSCoreD11.dcp" />
|
||||
<DCCReference Include="..\Modulos\Albaranes de cliente\dxThemeD11.dcp" />
|
||||
<DCCReference Include="..\Modulos\Albaranes de cliente\GUISDK_D11R.dcp" />
|
||||
<DCCReference Include="..\Modulos\Albaranes de cliente\IndyCore.dcp" />
|
||||
<DCCReference Include="..\Modulos\Albaranes de cliente\IndyProtocols.dcp" />
|
||||
<DCCReference Include="..\Modulos\Albaranes de cliente\IndySystem.dcp" />
|
||||
<DCCReference Include="..\Modulos\Albaranes de cliente\Jcl.dcp" />
|
||||
<DCCReference Include="..\Modulos\Albaranes de cliente\JclVcl.dcp" />
|
||||
<DCCReference Include="..\Modulos\Albaranes de cliente\JSDialog100.dcp" />
|
||||
<DCCReference Include="..\Modulos\Albaranes de cliente\JvCmpD11R.dcp" />
|
||||
<DCCReference Include="..\Modulos\Albaranes de cliente\JvCoreD11R.dcp" />
|
||||
<DCCReference Include="..\Modulos\Albaranes de cliente\JvCtrlsD11R.dcp" />
|
||||
<DCCReference Include="..\Modulos\Albaranes de cliente\JvDlgsD11R.dcp" />
|
||||
<DCCReference Include="..\Modulos\Albaranes de cliente\JvMMD11R.dcp" />
|
||||
<DCCReference Include="..\Modulos\Albaranes de cliente\JvNetD11R.dcp" />
|
||||
<DCCReference Include="..\Modulos\Albaranes de cliente\JvPageCompsD11R.dcp" />
|
||||
<DCCReference Include="..\Modulos\Albaranes de cliente\JvStdCtrlsD11R.dcp" />
|
||||
<DCCReference Include="..\Modulos\Albaranes de cliente\JvSystemD11R.dcp" />
|
||||
<DCCReference Include="..\Modulos\Albaranes de cliente\pckMD5.dcp" />
|
||||
<DCCReference Include="..\Modulos\Albaranes de cliente\pckUCDataConnector.dcp" />
|
||||
<DCCReference Include="..\Modulos\Albaranes de cliente\pckUserControl_RT.dcp" />
|
||||
<DCCReference Include="..\Modulos\Albaranes de cliente\PluginSDK_D11R.dcp" />
|
||||
<DCCReference Include="..\Modulos\Albaranes de cliente\PngComponentsD10.dcp" />
|
||||
<DCCReference Include="..\Modulos\Albaranes de cliente\PNG_D10.dcp" />
|
||||
<DCCReference Include="..\Modulos\Albaranes de cliente\RemObjects_Core_D11.dcp" />
|
||||
<DCCReference Include="..\Modulos\Albaranes de cliente\rtl.dcp" />
|
||||
<DCCReference Include="..\Modulos\Albaranes de cliente\TB2k_D10.dcp" />
|
||||
<DCCReference Include="..\Modulos\Albaranes de cliente\tbx_d10.dcp" />
|
||||
<DCCReference Include="..\Modulos\Albaranes de cliente\vcl.dcp" />
|
||||
<DCCReference Include="..\Modulos\Albaranes de cliente\vclactnband.dcp" />
|
||||
<DCCReference Include="..\Modulos\Albaranes de cliente\vcldb.dcp" />
|
||||
<DCCReference Include="..\Modulos\Albaranes de cliente\vcljpg.dcp" />
|
||||
<DCCReference Include="..\Modulos\Albaranes de cliente\VclSmp.dcp" />
|
||||
<DCCReference Include="..\Modulos\Albaranes de cliente\vclx.dcp" />
|
||||
<DCCReference Include="..\Modulos\Albaranes de cliente\xmlrtl.dcp" />
|
||||
<DCCReference Include="..\Servicios\FactuGES_Intf.pas" />
|
||||
<DCCReference Include="Conexion\uConfigurarConexion.pas">
|
||||
<Form>fConfigurarConexion</Form>
|
||||
|
||||
@ -52,7 +52,8 @@
|
||||
<Borland.Personality>Delphi.Personality</Borland.Personality>
|
||||
<Borland.ProjectType>VCLApplication</Borland.ProjectType>
|
||||
<BorlandProject>
|
||||
<BorlandProject><Delphi.Personality><Parameters><Parameters Name="UseLauncher">False</Parameters><Parameters Name="LoadAllSymbols">True</Parameters><Parameters Name="LoadUnspecifiedSymbols">False</Parameters></Parameters><Language><Language Name="RootDir">C:\Archivos de programa\Borland\Delphi7\Bin\</Language></Language><VersionInfo><VersionInfo Name="IncludeVerInfo">True</VersionInfo><VersionInfo Name="AutoIncBuild">False</VersionInfo><VersionInfo Name="MajorVer">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><Source><Source Name="MainSource">FactuGES.dpr</Source></Source></Delphi.Personality><ModelSupport>False</ModelSupport></BorlandProject></BorlandProject>
|
||||
|
||||
@ -1,7 +1,7 @@
|
||||
MAINICON ICON "C:\Codigo Acana\Resources\Iconos\Factuges.ico"
|
||||
1 VERSIONINFO
|
||||
FILEVERSION 3,4,0,0
|
||||
PRODUCTVERSION 3,4,0,0
|
||||
FILEVERSION 3,6,1,0
|
||||
PRODUCTVERSION 3,6,1,0
|
||||
FILEFLAGSMASK 0x3FL
|
||||
FILEFLAGS 0x00L
|
||||
FILEOS 0x40004L
|
||||
@ -13,10 +13,10 @@ BEGIN
|
||||
BLOCK "0C0A04E4"
|
||||
BEGIN
|
||||
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 "ProductName", "FactuGES\0"
|
||||
VALUE "ProductVersion", "3.4.0.0\0"
|
||||
VALUE "ProductVersion", "3.6.1.0\0"
|
||||
END
|
||||
END
|
||||
BLOCK "VarFileInfo"
|
||||
|
||||
Binary file not shown.
@ -58,34 +58,34 @@
|
||||
<DelphiCompile Include="GUIBase.dpk">
|
||||
<MainSource>MainSource</MainSource>
|
||||
</DelphiCompile>
|
||||
<DCCReference Include="C:\Documents and Settings\Usuario\Base.dcp" />
|
||||
<DCCReference Include="C:\Documents and Settings\Usuario\ccpackD11.dcp" />
|
||||
<DCCReference Include="C:\Documents and Settings\Usuario\cxDataD11.dcp" />
|
||||
<DCCReference Include="C:\Documents and Settings\Usuario\cxEditorsD11.dcp" />
|
||||
<DCCReference Include="C:\Documents and Settings\Usuario\cxExportD11.dcp" />
|
||||
<DCCReference Include="C:\Documents and Settings\Usuario\cxLibraryD11.dcp" />
|
||||
<DCCReference Include="C:\Documents and Settings\Usuario\dbrtl.dcp" />
|
||||
<DCCReference Include="C:\Documents and Settings\Usuario\dxGDIPlusD11.dcp" />
|
||||
<DCCReference Include="C:\Documents and Settings\Usuario\dxLayoutControlD11.dcp" />
|
||||
<DCCReference Include="C:\Documents and Settings\Usuario\dxPScxCommonD11.dcp" />
|
||||
<DCCReference Include="C:\Documents and Settings\Usuario\dxPScxGrid6LnkD11.dcp" />
|
||||
<DCCReference Include="C:\Documents and Settings\Usuario\dxThemeD11.dcp" />
|
||||
<DCCReference Include="C:\Documents and Settings\Usuario\frx11.dcp" />
|
||||
<DCCReference Include="C:\Documents and Settings\Usuario\frxe11.dcp" />
|
||||
<DCCReference Include="C:\Documents and Settings\Usuario\fs11.dcp" />
|
||||
<DCCReference Include="C:\Documents and Settings\Usuario\JvAppFrmD11R.dcp" />
|
||||
<DCCReference Include="C:\Documents and Settings\Usuario\JvCtrlsD11R.dcp" />
|
||||
<DCCReference Include="C:\Documents and Settings\Usuario\JvGlobusD11R.dcp" />
|
||||
<DCCReference Include="C:\Documents and Settings\Usuario\PngComponentsD10.dcp" />
|
||||
<DCCReference Include="C:\Documents and Settings\Usuario\PNG_D10.dcp" />
|
||||
<DCCReference Include="C:\Documents and Settings\Usuario\rtl.dcp" />
|
||||
<DCCReference Include="C:\Documents and Settings\Usuario\tb2k_d10.dcp" />
|
||||
<DCCReference Include="C:\Documents and Settings\Usuario\tbx_d10.dcp" />
|
||||
<DCCReference Include="C:\Documents and Settings\Usuario\vcl.dcp" />
|
||||
<DCCReference Include="C:\Documents and Settings\Usuario\vclactnband.dcp" />
|
||||
<DCCReference Include="C:\Documents and Settings\Usuario\vcldb.dcp" />
|
||||
<DCCReference Include="C:\Documents and Settings\Usuario\vcljpg.dcp" />
|
||||
<DCCReference Include="C:\Documents and Settings\Usuario\vclx.dcp" />
|
||||
<DCCReference Include="..\Modulos\Albaranes de cliente\Base.dcp" />
|
||||
<DCCReference Include="..\Modulos\Albaranes de cliente\ccpackD11.dcp" />
|
||||
<DCCReference Include="..\Modulos\Albaranes de cliente\cxDataD11.dcp" />
|
||||
<DCCReference Include="..\Modulos\Albaranes de cliente\cxEditorsD11.dcp" />
|
||||
<DCCReference Include="..\Modulos\Albaranes de cliente\cxExportD11.dcp" />
|
||||
<DCCReference Include="..\Modulos\Albaranes de cliente\cxLibraryD11.dcp" />
|
||||
<DCCReference Include="..\Modulos\Albaranes de cliente\dbrtl.dcp" />
|
||||
<DCCReference Include="..\Modulos\Albaranes de cliente\dxGDIPlusD11.dcp" />
|
||||
<DCCReference Include="..\Modulos\Albaranes de cliente\dxLayoutControlD11.dcp" />
|
||||
<DCCReference Include="..\Modulos\Albaranes de cliente\dxPScxCommonD11.dcp" />
|
||||
<DCCReference Include="..\Modulos\Albaranes de cliente\dxPScxGrid6LnkD11.dcp" />
|
||||
<DCCReference Include="..\Modulos\Albaranes de cliente\dxThemeD11.dcp" />
|
||||
<DCCReference Include="..\Modulos\Albaranes de cliente\frx11.dcp" />
|
||||
<DCCReference Include="..\Modulos\Albaranes de cliente\frxe11.dcp" />
|
||||
<DCCReference Include="..\Modulos\Albaranes de cliente\fs11.dcp" />
|
||||
<DCCReference Include="..\Modulos\Albaranes de cliente\JvAppFrmD11R.dcp" />
|
||||
<DCCReference Include="..\Modulos\Albaranes de cliente\JvCtrlsD11R.dcp" />
|
||||
<DCCReference Include="..\Modulos\Albaranes de cliente\JvGlobusD11R.dcp" />
|
||||
<DCCReference Include="..\Modulos\Albaranes de cliente\PngComponentsD10.dcp" />
|
||||
<DCCReference Include="..\Modulos\Albaranes de cliente\PNG_D10.dcp" />
|
||||
<DCCReference Include="..\Modulos\Albaranes de cliente\rtl.dcp" />
|
||||
<DCCReference Include="..\Modulos\Albaranes de cliente\tb2k_d10.dcp" />
|
||||
<DCCReference Include="..\Modulos\Albaranes de cliente\tbx_d10.dcp" />
|
||||
<DCCReference Include="..\Modulos\Albaranes de cliente\vcl.dcp" />
|
||||
<DCCReference Include="..\Modulos\Albaranes de cliente\vclactnband.dcp" />
|
||||
<DCCReference Include="..\Modulos\Albaranes de cliente\vcldb.dcp" />
|
||||
<DCCReference Include="..\Modulos\Albaranes de cliente\vcljpg.dcp" />
|
||||
<DCCReference Include="..\Modulos\Albaranes de cliente\vclx.dcp" />
|
||||
<DCCReference Include="uDialogBase.pas">
|
||||
<Form>fDialogBase</Form>
|
||||
</DCCReference>
|
||||
|
||||
@ -5,7 +5,7 @@ inherited fEditorDBBase: TfEditorDBBase
|
||||
ClientHeight = 454
|
||||
ClientWidth = 646
|
||||
ExplicitWidth = 654
|
||||
ExplicitHeight = 488
|
||||
ExplicitHeight = 492
|
||||
PixelsPerInch = 96
|
||||
TextHeight = 13
|
||||
inherited JvNavPanelHeader: TJvNavPanelHeader
|
||||
|
||||
@ -83,8 +83,6 @@ inherited fEditorDBItem: TfEditorDBItem
|
||||
ActivePage = pagGeneral
|
||||
Align = alClient
|
||||
TabOrder = 2
|
||||
ExplicitTop = 118
|
||||
ExplicitHeight = 319
|
||||
object pagGeneral: TTabSheet
|
||||
Caption = 'General'
|
||||
ExplicitLeft = 0
|
||||
@ -105,7 +103,6 @@ inherited fEditorDBItem: TfEditorDBItem
|
||||
ParentBackground = False
|
||||
TabOrder = 4
|
||||
VerticalAlignment = taAlignTop
|
||||
ExplicitTop = 85
|
||||
object lbComentario: TLabel
|
||||
AlignWithMargins = True
|
||||
Left = 6
|
||||
|
||||
@ -104,7 +104,7 @@ inherited fEditorGridBase: TfEditorGridBase
|
||||
Caption = 'Filtrar:'
|
||||
end
|
||||
object tbxEditFiltro: TTBXEditItem
|
||||
EditWidth = 200
|
||||
EditWidth = 125
|
||||
ImageIndex = 10
|
||||
EditorFontSettings.Italic = tsTrue
|
||||
ExtendedAccept = True
|
||||
@ -112,6 +112,17 @@ inherited fEditorGridBase: TfEditorGridBase
|
||||
ShowImage = True
|
||||
OnChange = tbxEditFiltroChange
|
||||
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
|
||||
Action = actQuitarFiltro
|
||||
end
|
||||
@ -168,7 +179,7 @@ inherited fEditorGridBase: TfEditorGridBase
|
||||
end
|
||||
end
|
||||
object TBXTMain2: TTBXToolbar
|
||||
Left = 337
|
||||
Left = 334
|
||||
Top = 49
|
||||
Caption = 'tbxMain'
|
||||
ChevronHint = 'M'#225's botones|'
|
||||
|
||||
@ -67,7 +67,9 @@ type
|
||||
lblAno: TTBXLabelItem;
|
||||
cbxListaAnos: TTBXComboBoxItem;
|
||||
sepAno: TTBXSeparatorItem;
|
||||
tbxEditFiltro2: TTBXEditItem;
|
||||
procedure tbxEditFiltroChange(Sender: TObject; const Text: String);
|
||||
procedure tbxEditFiltro2Change(Sender: TObject; const Text: string);
|
||||
procedure FormShow(Sender: TObject);
|
||||
procedure actQuitarFiltroExecute(Sender: TObject);
|
||||
procedure actDuplicarUpdate(Sender: TObject);
|
||||
@ -81,6 +83,7 @@ type
|
||||
procedure CustomEditorDestroy(Sender: TObject);
|
||||
procedure actExportarExcelExecute(Sender: TObject);
|
||||
procedure actExportarExcelUpdate(Sender: TObject);
|
||||
|
||||
protected
|
||||
FListaAnos: TStringList;
|
||||
FViewGrid : IViewGridBase;
|
||||
@ -224,6 +227,18 @@ begin
|
||||
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);
|
||||
begin
|
||||
if Assigned(ViewGrid) then
|
||||
@ -244,7 +259,7 @@ begin
|
||||
ViewGrid.RestoreFromIniFile;
|
||||
end;
|
||||
|
||||
cbxListaAnos.ItemIndex := 0;
|
||||
cbxListaAnos.ItemIndex := 0;
|
||||
end;
|
||||
|
||||
procedure TfEditorGridBase.actEliminarUpdate(Sender: TObject);
|
||||
@ -281,6 +296,7 @@ begin
|
||||
if ViewGrid.ViewFiltros.VerFiltros then
|
||||
begin
|
||||
tbxEditFiltro.Visible := False;
|
||||
tbxEditFiltro2.Visible := False;
|
||||
TBXItem7.Visible := False;
|
||||
end
|
||||
else
|
||||
@ -288,6 +304,12 @@ begin
|
||||
tbxEditFiltro.Text := '';
|
||||
tbxEditFiltro.Visible := True;
|
||||
TBXItem7.Visible := True;
|
||||
|
||||
if (tbxEditFiltro2.Enabled) then
|
||||
begin
|
||||
tbxEditFiltro2.Text := '';
|
||||
tbxEditFiltro2.Visible := True;
|
||||
end;
|
||||
end;
|
||||
end;
|
||||
|
||||
@ -326,6 +348,8 @@ begin
|
||||
begin
|
||||
tbxEditFiltro.Text := '';
|
||||
ViewGrid.Filter := '';
|
||||
tbxEditFiltro2.Text := '';
|
||||
ViewGrid.Filter2 := '';
|
||||
end;
|
||||
end;
|
||||
|
||||
|
||||
@ -1,9 +1,9 @@
|
||||
inherited frViewFiltroBase: TfrViewFiltroBase
|
||||
Width = 565
|
||||
Height = 102
|
||||
Width = 671
|
||||
Height = 105
|
||||
Visible = False
|
||||
ExplicitWidth = 565
|
||||
ExplicitHeight = 102
|
||||
ExplicitWidth = 671
|
||||
ExplicitHeight = 105
|
||||
object TBXDockablePanel1: TTBXDockablePanel
|
||||
Left = 0
|
||||
Top = 0
|
||||
@ -22,8 +22,8 @@ inherited frViewFiltroBase: TfrViewFiltroBase
|
||||
object dxLayoutControl1: TdxLayoutControl
|
||||
Left = 0
|
||||
Top = 0
|
||||
Width = 565
|
||||
Height = 68
|
||||
Width = 671
|
||||
Height = 70
|
||||
Align = alTop
|
||||
ParentBackground = True
|
||||
TabOrder = 0
|
||||
@ -49,7 +49,7 @@ inherited frViewFiltroBase: TfrViewFiltroBase
|
||||
StyleHot.LookAndFeel.NativeStyle = True
|
||||
StyleHot.LookAndFeel.SkinName = ''
|
||||
TabOrder = 0
|
||||
Width = 273
|
||||
Width = 250
|
||||
end
|
||||
object edtFechaIniFiltro: TcxDateEdit
|
||||
Left = 87
|
||||
@ -72,11 +72,11 @@ inherited frViewFiltroBase: TfrViewFiltroBase
|
||||
StyleHot.LookAndFeel.Kind = lfStandard
|
||||
StyleHot.LookAndFeel.NativeStyle = True
|
||||
StyleHot.LookAndFeel.SkinName = ''
|
||||
TabOrder = 1
|
||||
Width = 121
|
||||
TabOrder = 2
|
||||
Width = 250
|
||||
end
|
||||
object edtFechaFinFiltro: TcxDateEdit
|
||||
Left = 350
|
||||
Left = 386
|
||||
Top = 37
|
||||
Properties.OnChange = OnCamposFiltroChange
|
||||
Style.BorderColor = clWindowFrame
|
||||
@ -96,17 +96,54 @@ inherited frViewFiltroBase: TfrViewFiltroBase
|
||||
StyleHot.LookAndFeel.Kind = lfStandard
|
||||
StyleHot.LookAndFeel.NativeStyle = True
|
||||
StyleHot.LookAndFeel.SkinName = ''
|
||||
TabOrder = 2
|
||||
Width = 121
|
||||
TabOrder = 3
|
||||
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
|
||||
object dxLayoutControl1Group_Root: TdxLayoutGroup
|
||||
ShowCaption = False
|
||||
Hidden = True
|
||||
ShowBorder = False
|
||||
object dxLayoutControl1Item1: TdxLayoutItem
|
||||
Caption = 'Que contenga:'
|
||||
Control = txtFiltroTodo
|
||||
ControlOptions.ShowBorder = False
|
||||
object dxLayoutControl1Group2: TdxLayoutGroup
|
||||
ShowCaption = False
|
||||
Hidden = True
|
||||
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
|
||||
object dxLayoutControl1Group1: TdxLayoutGroup
|
||||
ShowCaption = False
|
||||
@ -132,8 +169,8 @@ inherited frViewFiltroBase: TfrViewFiltroBase
|
||||
end
|
||||
object TBXAlignmentPanel1: TTBXAlignmentPanel
|
||||
Left = 0
|
||||
Top = 68
|
||||
Width = 565
|
||||
Top = 70
|
||||
Width = 671
|
||||
Height = 30
|
||||
Margins.Left = 10
|
||||
Align = alTop
|
||||
@ -141,7 +178,7 @@ inherited frViewFiltroBase: TfrViewFiltroBase
|
||||
object tbxBotones: TTBXToolbar
|
||||
Left = 10
|
||||
Top = 0
|
||||
Width = 555
|
||||
Width = 661
|
||||
Height = 30
|
||||
Align = alTop
|
||||
AutoResize = False
|
||||
|
||||
@ -24,6 +24,10 @@ type
|
||||
function GetTexto: String;
|
||||
procedure SetTexto(const Value: String);
|
||||
property Texto: String read GetTexto write SetTexto;
|
||||
|
||||
function GetTexto2: String;
|
||||
procedure SetTexto2(const Value: String);
|
||||
property Texto2: String read GetTexto2 write SetTexto2;
|
||||
end;
|
||||
|
||||
TfrViewFiltroBase = class(TfrViewBase, IViewFiltroBase)
|
||||
@ -44,6 +48,9 @@ type
|
||||
tbxBotones: TTBXToolbar;
|
||||
TBXItem2: TTBXItem;
|
||||
TBXAlignmentPanel1: TTBXAlignmentPanel;
|
||||
dxLayoutControl1Item4: TdxLayoutItem;
|
||||
txtFiltroTodo2: TcxTextEdit;
|
||||
dxLayoutControl1Group2: TdxLayoutGroup;
|
||||
procedure OnCamposFiltroChange(Sender: TObject);
|
||||
procedure actQuitarFiltroExecute(Sender: TObject);
|
||||
|
||||
@ -56,6 +63,8 @@ type
|
||||
procedure SetVerFiltros(const Value: Boolean);
|
||||
function GetTexto: String;
|
||||
procedure SetTexto(const Value: String);
|
||||
function GetTexto2: String;
|
||||
procedure SetTexto2(const Value: String);
|
||||
|
||||
protected
|
||||
procedure LimpiarCampos; virtual;
|
||||
@ -67,6 +76,7 @@ type
|
||||
property OnFiltrosChange: TNotifyEvent read GetFiltrosChange write SetFiltrosChange;
|
||||
property VerFiltros: Boolean read GetVerFiltros write SetVerFiltros;
|
||||
property Texto: String read GetTexto write SetTexto;
|
||||
property Texto2: String read GetTexto2 write SetTexto2;
|
||||
end;
|
||||
|
||||
implementation
|
||||
@ -106,6 +116,7 @@ end;
|
||||
procedure TfrViewFiltroBase.LimpiarCampos;
|
||||
begin
|
||||
txtFiltroTodo.Clear;
|
||||
txtFiltroTodo2.Clear;
|
||||
edtFechaIniFiltro.Clear;
|
||||
edtFechaFinFiltro.Clear;
|
||||
end;
|
||||
@ -144,9 +155,19 @@ begin
|
||||
Result := txtFiltroTodo.Text;
|
||||
end;
|
||||
|
||||
function TfrViewFiltroBase.GetTexto2: String;
|
||||
begin
|
||||
Result := txtFiltroTodo2.Text;
|
||||
end;
|
||||
|
||||
procedure TfrViewFiltroBase.SetTexto(const Value: String);
|
||||
begin
|
||||
txtFiltroTodo.Text := Value;
|
||||
end;
|
||||
|
||||
procedure TfrViewFiltroBase.SetTexto2(const Value: String);
|
||||
begin
|
||||
txtFiltroTodo2.Text := Value;
|
||||
end;
|
||||
|
||||
end.
|
||||
|
||||
@ -9,6 +9,12 @@ inherited frViewGrid: TfrViewGrid
|
||||
Width = 554
|
||||
Height = 466
|
||||
Align = alClient
|
||||
Font.Charset = DEFAULT_CHARSET
|
||||
Font.Color = clWindowText
|
||||
Font.Height = -11
|
||||
Font.Name = 'Tahoma'
|
||||
Font.Style = []
|
||||
ParentFont = False
|
||||
TabOrder = 0
|
||||
LookAndFeel.Kind = lfOffice11
|
||||
LookAndFeel.NativeStyle = True
|
||||
@ -35,6 +41,7 @@ inherited frViewGrid: TfrViewGrid
|
||||
OptionsView.NoDataToDisplayInfoText = '<No hay datos a visualizar>'
|
||||
OptionsView.CellAutoHeight = True
|
||||
OptionsView.ColumnAutoWidth = True
|
||||
OptionsView.DataRowHeight = 22
|
||||
OptionsView.Footer = True
|
||||
OptionsView.GridLineColor = cl3DLight
|
||||
OptionsView.GridLines = glHorizontal
|
||||
@ -45,10 +52,11 @@ inherited frViewGrid: TfrViewGrid
|
||||
object cxGridViewICONO: TcxGridDBColumn
|
||||
Caption = 'Icono'
|
||||
OnCustomDrawCell = cxGridViewICONOCustomDrawCell
|
||||
BestFitMaxWidth = 18
|
||||
MinWidth = 18
|
||||
BestFitMaxWidth = 22
|
||||
MinWidth = 22
|
||||
Options.HorzSizing = False
|
||||
Options.Sorting = False
|
||||
Width = 18
|
||||
Width = 22
|
||||
OnCustomDrawHeader = cxGridViewICONOCustomDrawHeader
|
||||
end
|
||||
end
|
||||
@ -72,6 +80,7 @@ inherited frViewGrid: TfrViewGrid
|
||||
Visible = False
|
||||
ReadOnly = False
|
||||
ExplicitWidth = 554
|
||||
ExplicitHeight = 102
|
||||
inherited TBXDockablePanel1: TTBXDockablePanel
|
||||
ExplicitWidth = 554
|
||||
ExplicitHeight = 102
|
||||
@ -79,18 +88,47 @@ inherited frViewGrid: TfrViewGrid
|
||||
Width = 554
|
||||
ExplicitWidth = 554
|
||||
inherited txtFiltroTodo: TcxTextEdit
|
||||
ExplicitWidth = 457
|
||||
Width = 457
|
||||
Style.LookAndFeel.SkinName = ''
|
||||
StyleDisabled.LookAndFeel.SkinName = ''
|
||||
StyleFocused.LookAndFeel.SkinName = ''
|
||||
StyleHot.LookAndFeel.SkinName = ''
|
||||
ExplicitWidth = 250
|
||||
Width = 250
|
||||
end
|
||||
inherited edtFechaIniFiltro: TcxDateEdit
|
||||
ExplicitWidth = 240
|
||||
Width = 240
|
||||
Style.LookAndFeel.SkinName = ''
|
||||
StyleDisabled.LookAndFeel.SkinName = ''
|
||||
StyleFocused.LookAndFeel.SkinName = ''
|
||||
StyleHot.LookAndFeel.SkinName = ''
|
||||
ExplicitWidth = 250
|
||||
Width = 250
|
||||
end
|
||||
inherited edtFechaFinFiltro: TcxDateEdit
|
||||
Left = 344
|
||||
ExplicitLeft = 344
|
||||
ExplicitWidth = 200
|
||||
Width = 200
|
||||
Left = 321
|
||||
Style.LookAndFeel.SkinName = ''
|
||||
StyleDisabled.LookAndFeel.SkinName = ''
|
||||
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
|
||||
inherited TBXAlignmentPanel1: TTBXAlignmentPanel
|
||||
@ -162,7 +200,7 @@ inherited frViewGrid: TfrViewGrid
|
||||
PrinterPage.ScaleMode = smFit
|
||||
PrinterPage._dxMeasurementUnits_ = 0
|
||||
PrinterPage._dxLastMU_ = 2
|
||||
ReportDocument.CreationDate = 42772.762583020830000000
|
||||
ReportDocument.CreationDate = 44649.770773101850000000
|
||||
StyleManager = dmBase.dxPrintStyleManager1
|
||||
OptionsCards.Shadow.Depth = 0
|
||||
OptionsExpanding.ExpandGroupRows = True
|
||||
|
||||
@ -65,6 +65,10 @@ type
|
||||
function GetFilter: string;
|
||||
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;
|
||||
property Filtered : Boolean read GetFiltered;
|
||||
|
||||
@ -87,9 +91,11 @@ type
|
||||
private
|
||||
FViewFiltros: IViewFiltroBase;
|
||||
FFilter: string;
|
||||
FFilter2: string;
|
||||
FOnFilterChanged : TNotifyEvent;
|
||||
FGridStatus : TcxGridStatus;
|
||||
procedure BestFitAllColumns;
|
||||
|
||||
protected
|
||||
FOnDblClick: TNotifyEvent;
|
||||
FPopupMenu: TPopupMenu;
|
||||
@ -105,13 +111,16 @@ type
|
||||
function getNumSeleccionados: Integer;
|
||||
|
||||
procedure SetFilter(const Value: string); virtual;
|
||||
procedure SetFilter2(const Value: string); virtual;
|
||||
procedure RefrescarFiltro;
|
||||
function GetFilter: string; virtual;
|
||||
function GetFilter2: string; virtual;
|
||||
function GetFiltered: Boolean; virtual;
|
||||
procedure FiltrarGrid(TextoFiltro : String); virtual;
|
||||
function GetViewFiltros: IViewFiltroBase;
|
||||
procedure SetViewFiltros(const Value: IViewFiltroBase); virtual;
|
||||
procedure FilterChanged(Sender : TObject); virtual;
|
||||
procedure FiltrarGrid(TextoFiltro1, TextoFiltro2: String); overload; virtual;
|
||||
procedure FiltrarGrid(TextoFiltro : String); overload; virtual;
|
||||
|
||||
public
|
||||
constructor Create(AOwner: TComponent); override;
|
||||
@ -142,12 +151,14 @@ type
|
||||
procedure RestoreFromRegistry (const Path : String); virtual;
|
||||
|
||||
procedure RestoreFromIniFile;
|
||||
procedure ConfigView; virtual;
|
||||
procedure StoreToIniFile;
|
||||
|
||||
{function Locate(const AItemIndex: Integer; const AValue: String;
|
||||
const APartialCompare: Boolean = False) : Boolean;}
|
||||
|
||||
property Filter: string read GetFilter write SetFilter;
|
||||
property Filter2: string read GetFilter2 write SetFilter2;
|
||||
property Filtered : Boolean read GetFiltered;
|
||||
|
||||
procedure AnadirOtrosFiltros; virtual;
|
||||
@ -187,7 +198,6 @@ begin
|
||||
_FocusedView.BeginUpdate;
|
||||
|
||||
try
|
||||
AsignarAnchosPrefijadosAColumnas(_FocusedView);
|
||||
for i := 0 to _FocusedView.VisibleColumnCount-1 do
|
||||
begin
|
||||
_FocusedView.VisibleColumns[i].ApplyBestFit;
|
||||
@ -215,6 +225,11 @@ begin
|
||||
//
|
||||
end;
|
||||
|
||||
procedure TfrViewGridBase.ConfigView;
|
||||
begin
|
||||
//
|
||||
end;
|
||||
|
||||
procedure TfrViewGridBase.ContraerTodo;
|
||||
begin
|
||||
if Assigned(_FocusedView) then
|
||||
@ -225,6 +240,7 @@ constructor TfrViewGridBase.Create(AOwner: TComponent);
|
||||
begin
|
||||
inherited;
|
||||
FFilter := '';
|
||||
FFilter2 := '';
|
||||
FOnFilterChanged := FilterChanged;
|
||||
FPopupMenu := nil;
|
||||
FOnDblClick := nil;
|
||||
@ -261,6 +277,11 @@ begin
|
||||
Result := FFilter;
|
||||
end;
|
||||
|
||||
function TfrViewGridBase.GetFilter2: string;
|
||||
begin
|
||||
Result := FFilter2;
|
||||
end;
|
||||
|
||||
function TfrViewGridBase.GetFiltered: Boolean;
|
||||
begin
|
||||
//Los niveles de los grid no se consideran filtros
|
||||
@ -333,7 +354,10 @@ procedure TfrViewGridBase.RefrescarFiltro;
|
||||
begin
|
||||
//De esta forma obligaremos a que se creen nuevamente todos los filtros, cuando llamemos a este metodo
|
||||
if Assigned(ViewFiltros) then
|
||||
begin
|
||||
Filter := ViewFiltros.Texto;
|
||||
Filter2 := ViewFiltros.Texto2;
|
||||
end;
|
||||
end;
|
||||
|
||||
procedure TfrViewGridBase.RestoreFromIniFile;
|
||||
@ -343,9 +367,8 @@ begin
|
||||
inherited;
|
||||
if Assigned(_FocusedView) then
|
||||
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;
|
||||
|
||||
if not DirectoryExists(AIniFile) then
|
||||
@ -353,14 +376,14 @@ begin
|
||||
|
||||
_FocusedView.RestoreFromIniFile(AIniFile + 'grid.xml', True, False, []);
|
||||
end;
|
||||
|
||||
ConfigView;
|
||||
end;
|
||||
|
||||
procedure TfrViewGridBase.RestoreFromRegistry(const Path: String);
|
||||
begin
|
||||
if Assigned(_FocusedView) then
|
||||
begin
|
||||
_FocusedView.RestoreFromRegistry(Path + '\\GridSettings\\' + Self.Name, False, False, [], Self.Name);
|
||||
end;
|
||||
end;
|
||||
|
||||
procedure TfrViewGridBase.RestoreGridStatus;
|
||||
@ -391,7 +414,24 @@ begin
|
||||
if Assigned(ViewFiltros) then
|
||||
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
|
||||
AnadirOtrosFiltros;
|
||||
@ -445,13 +485,14 @@ begin
|
||||
if Assigned(_FocusedView) then
|
||||
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;
|
||||
|
||||
if not DirectoryExists(AIniFile) then
|
||||
ForceDirectories(AIniFile);
|
||||
|
||||
_FocusedView.StoreToIniFile(AIniFile + 'grid.xml', False, []);
|
||||
// _FocusedView.StoreToRegistry(Path + '\\GridSettings\\' + Self.Name, False, [], Self.Name);
|
||||
end;
|
||||
end;
|
||||
|
||||
@ -459,12 +500,57 @@ procedure TfrViewGridBase.StoreToRegistry(const Path: String);
|
||||
begin
|
||||
inherited;
|
||||
if Assigned(_FocusedView) then
|
||||
begin
|
||||
_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;
|
||||
|
||||
procedure TfrViewGridBase.FiltrarGrid(TextoFiltro : String);
|
||||
|
||||
procedure TfrViewGridBase.FiltrarGrid(TextoFiltro: String);
|
||||
var
|
||||
Columna: TcxGridDBColumn;
|
||||
i: Integer;
|
||||
@ -494,8 +580,8 @@ begin
|
||||
EndUpdate;
|
||||
end;
|
||||
end;
|
||||
end;
|
||||
|
||||
end;
|
||||
|
||||
procedure TfrViewGridBase.FilterChanged(Sender: TObject);
|
||||
begin
|
||||
|
||||
82
Source/Informes/1/InfFacturaCliente_proforma.fr3
Normal file
82
Source/Informes/1/InfFacturaCliente_proforma.fr3
Normal file
File diff suppressed because one or more lines are too long
File diff suppressed because one or more lines are too long
119
Source/Informes/5/InfContratoCliente.fr3
Normal file
119
Source/Informes/5/InfContratoCliente.fr3
Normal file
File diff suppressed because one or more lines are too long
File diff suppressed because one or more lines are too long
82
Source/Informes/5/InfFacturaCliente_proforma.fr3
Normal file
82
Source/Informes/5/InfFacturaCliente_proforma.fr3
Normal file
File diff suppressed because one or more lines are too long
43
Source/Informes/5/InfPedidoProveedor.fr3
Normal file
43
Source/Informes/5/InfPedidoProveedor.fr3
Normal file
File diff suppressed because one or more lines are too long
89
Source/Informes/5/InfPresupuestoCliente.fr3
Normal file
89
Source/Informes/5/InfPresupuestoCliente.fr3
Normal file
File diff suppressed because one or more lines are too long
65
Source/Informes/5/InformeListadoFacturasRecibosCliente.fr3
Normal file
65
Source/Informes/5/InformeListadoFacturasRecibosCliente.fr3
Normal file
File diff suppressed because one or more lines are too long
File diff suppressed because one or more lines are too long
File diff suppressed because one or more lines are too long
File diff suppressed because one or more lines are too long
File diff suppressed because one or more lines are too long
65
Source/Informes/InformeListadoFacturasRecibosCliente.fr3
Normal file
65
Source/Informes/InformeListadoFacturasRecibosCliente.fr3
Normal file
File diff suppressed because one or more lines are too long
@ -11,8 +11,10 @@
|
||||
<Projects Include="..\..\Servidor\FactuGES_Server.dproj" />
|
||||
<Projects Include="..\Articulos\Views\Articulos_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="..\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 - Facturas de cliente\ConCli_FacCli_relation.dproj" />
|
||||
<Projects Include="Controller\AlbaranesCliente_controller.dproj" />
|
||||
@ -171,14 +173,32 @@
|
||||
<Target Name="PresupuestosCliente_view:Make">
|
||||
<MSBuild Projects="..\Presupuestos de cliente\Views\PresupuestosCliente_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="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">
|
||||
<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 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 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>
|
||||
<Import Condition="Exists('$(MSBuildBinPath)\Borland.Group.Targets')" Project="$(MSBuildBinPath)\Borland.Group.Targets" />
|
||||
</Project>
|
||||
@ -42,8 +42,8 @@ type
|
||||
function ExtraerSeleccionados(AAlbaran: IBizAlbaranCliente) : IBizAlbaranCliente;
|
||||
function ElegirAlbaranes(AAlbaran: IBizAlbaranCliente; AMensaje: String; AMultiSelect: Boolean): IBizAlbaranCliente;
|
||||
|
||||
procedure Preview(AAlbaran : IBizAlbaranCliente; AllItems: Boolean = false; const VerPrecios: Boolean = True);
|
||||
procedure Print(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; const VerTrabajos: Boolean = True; const VerIncidencias: Boolean = True);
|
||||
procedure EtiquetasPreview(AAlbaran : IBizAlbaranCliente; Const withRefCliente: Boolean);
|
||||
procedure EtiquetasPrint(AAlbaran : IBizAlbaranCliente; Const withRefCliente: Boolean);
|
||||
|
||||
@ -136,8 +136,8 @@ type
|
||||
DoPost: Boolean = True) : Boolean;
|
||||
|
||||
procedure EnviarAlbaranPorEMail(AAlbaran : IBizAlbaranCliente);
|
||||
procedure Preview(AAlbaran : IBizAlbaranCliente; AllItems: Boolean = false; const VerPrecios: Boolean = True);
|
||||
procedure Print(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; const VerTrabajos: Boolean = True; const VerIncidencias: Boolean = True);
|
||||
procedure EtiquetasPreview(AAlbaran : IBizAlbaranCliente; Const withRefCliente: Boolean);
|
||||
procedure EtiquetasPrint(AAlbaran : IBizAlbaranCliente; Const withRefCliente: Boolean);
|
||||
|
||||
@ -1003,7 +1003,7 @@ begin
|
||||
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
|
||||
AReportController : IAlbaranesClienteReportController;
|
||||
ID_Albaranes: TIntegerList;
|
||||
@ -1031,7 +1031,7 @@ begin
|
||||
else
|
||||
ID_Albaranes.Add(AAlbaran.ID);
|
||||
|
||||
AReportController.Preview(ID_Albaranes, VerPrecios);
|
||||
AReportController.Preview(ID_Albaranes, VerPrecios, VerTrabajos, VerIncidencias);
|
||||
|
||||
finally
|
||||
AReportController := NIL;
|
||||
@ -1039,7 +1039,7 @@ begin
|
||||
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
|
||||
AReportController : IAlbaranesClienteReportController;
|
||||
ID_Albaranes: TIntegerList;
|
||||
@ -1065,7 +1065,7 @@ begin
|
||||
else
|
||||
ID_Albaranes.Add(AAlbaran.ID);
|
||||
|
||||
AReportController.Print(ID_Albaranes, VerPrecios);
|
||||
AReportController.Print(ID_Albaranes, VerPrecios, VerTrabajos, VerIncidencias);
|
||||
|
||||
finally
|
||||
AReportController := NIL;
|
||||
|
||||
@ -10,8 +10,8 @@ uses
|
||||
type
|
||||
IAlbaranesClienteReportController = interface(IControllerBase)
|
||||
['{4BCC7A93-3322-494C-A3FA-118F4B62CB15}']
|
||||
procedure Preview(const AListaID : TIntegerList; const VerPrecios: Boolean);
|
||||
procedure Print(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; const VerTrabajos: Boolean = True; const VerIncidencias: Boolean = True);
|
||||
procedure EtiquetasPreview(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;
|
||||
@ -26,8 +26,8 @@ type
|
||||
constructor Create; override;
|
||||
destructor Destroy; override;
|
||||
|
||||
procedure Preview(const AListaID : TIntegerList; const VerPrecios: Boolean);
|
||||
procedure Print(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; const VerTrabajos: Boolean = True; const VerIncidencias: Boolean = True);
|
||||
procedure EtiquetasPreview(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;
|
||||
@ -135,14 +135,14 @@ begin
|
||||
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
|
||||
AStream: Binary;
|
||||
AEditor : IEditorAlbaranesClientePreview;
|
||||
begin
|
||||
AEditor := NIL;
|
||||
|
||||
AStream := FDataModule.GetRptAlbaranes(AListaID, VerPrecios);
|
||||
AStream := FDataModule.GetRptAlbaranes(AListaID, VerPrecios, VerTrabajos, VerIncidencias);
|
||||
try
|
||||
CreateEditor('EditorAlbaranesClientePreview', IEditorAlbaranesClientePreview, AEditor);
|
||||
if Assigned(AEditor) then
|
||||
@ -163,7 +163,7 @@ begin
|
||||
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
|
||||
AStream: Binary;
|
||||
AEditor : IEditorAlbaranesClientePreview;
|
||||
@ -172,7 +172,7 @@ begin
|
||||
|
||||
ShowHourglassCursor;
|
||||
try
|
||||
AStream := FDataModule.GetRptAlbaranes(AListaID, VerPrecios);
|
||||
AStream := FDataModule.GetRptAlbaranes(AListaID, VerPrecios, VerTrabajos, VerIncidencias);
|
||||
try
|
||||
CreateEditor('EditorAlbaranesClientePreview', IEditorAlbaranesClientePreview, AEditor);
|
||||
if Assigned(AEditor) then
|
||||
|
||||
@ -26,11 +26,6 @@ inherited DataModuleAlbaranesCliente: TDataModuleAlbaranesCliente
|
||||
object tbl_AlbaranesCliente: TDAMemDataTable
|
||||
RemoteUpdatesOptions = []
|
||||
Fields = <
|
||||
item
|
||||
Name = 'ID_CONTRATO'
|
||||
DataType = datInteger
|
||||
DictionaryEntry = 'AlbaranesCliente_ID_CONTRATO'
|
||||
end
|
||||
item
|
||||
Name = 'ID'
|
||||
DataType = datAutoInc
|
||||
@ -117,6 +112,11 @@ inherited DataModuleAlbaranesCliente: TDataModuleAlbaranesCliente
|
||||
DisplayLabel = 'Ref. pedido cliente'
|
||||
DictionaryEntry = 'AlbaranesCliente_REF_PEDIDO'
|
||||
end
|
||||
item
|
||||
Name = 'ID_CONTRATO'
|
||||
DataType = datInteger
|
||||
DictionaryEntry = 'AlbaranesCliente_ID_CONTRATO'
|
||||
end
|
||||
item
|
||||
Name = 'REF_CONTRATO'
|
||||
DataType = datString
|
||||
@ -334,8 +334,11 @@ inherited DataModuleAlbaranesCliente: TDataModuleAlbaranesCliente
|
||||
DataType = datString
|
||||
Size = 255
|
||||
DisplayLabel = 'Otros nombres'
|
||||
ServerAutoRefresh = True
|
||||
DictionaryEntry = 'AlbaranesCliente_LISTA_NOMBRES'
|
||||
end
|
||||
item
|
||||
Name = 'TRABAJOS_INSTALADOR'
|
||||
DataType = datMemo
|
||||
end>
|
||||
Params = <>
|
||||
StreamingOptions = [soDisableEventsWhileStreaming]
|
||||
|
||||
@ -37,9 +37,9 @@ type
|
||||
function NewItem : IBizAlbaranCliente;
|
||||
|
||||
// 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 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;
|
||||
|
||||
implementation
|
||||
@ -63,26 +63,26 @@ begin
|
||||
RORemoteService.Message := dmConexion.Message;
|
||||
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
|
||||
AParam : TIntegerArray;
|
||||
begin
|
||||
AParam := ListaID.ToIntegerArray;
|
||||
try
|
||||
Result := (RORemoteService as IsrvAlbaranesCliente).GenerarInforme(AParam, VerPrecios);
|
||||
Result := (RORemoteService as IsrvAlbaranesCliente).GenerarInforme(AParam, VerPrecios, VerTrabajos, VerIncidencias);
|
||||
finally
|
||||
FreeAndNil(AParam);
|
||||
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
|
||||
AParam : TIntegerArray;
|
||||
begin
|
||||
AParam := TIntegerArray.Create;
|
||||
try
|
||||
AParam.Add(AID);
|
||||
Result := (RORemoteService as IsrvAlbaranesCliente).GenerarInforme(AParam, VerPrecios);
|
||||
Result := (RORemoteService as IsrvAlbaranesCliente).GenerarInforme(AParam, VerPrecios, VerTrabajos, VerIncidencias);
|
||||
finally
|
||||
FreeAndNil(AParam);
|
||||
end;
|
||||
|
||||
@ -7,10 +7,10 @@ uses
|
||||
|
||||
type
|
||||
IDataModuleAlbaranesClienteReport = interface
|
||||
['{42C55204-5AB9-403E-8385-1A62B02D8234}']
|
||||
function GetRptAlbaranes(const ListaID: TIntegerList; const VerPrecios: Boolean = False): Binary;
|
||||
['{32A52EC9-90F6-4934-9001-015A2579746D}']
|
||||
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 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;
|
||||
|
||||
implementation
|
||||
|
||||
@ -9,9 +9,9 @@ const
|
||||
{ Data table rules ids
|
||||
Feel free to change them to something more human readable
|
||||
but make sure they are unique in the context of your application }
|
||||
RID_ListaAnosAlbaranes = '{3BF46A2A-B09F-4966-80AC-36B91AB3F410}';
|
||||
RID_AlbaranesCliente = '{37A96813-FF20-4C48-8043-08624BDF1EEC}';
|
||||
RID_AlbaranesCliente_Detalles = '{7A054D7B-816E-40D3-8810-00601F96937D}';
|
||||
RID_ListaAnosAlbaranes = '{CA15E0DE-DB21-4659-83E8-7C52F61A8D18}';
|
||||
RID_AlbaranesCliente = '{55652CC2-5F41-4D4A-9D92-2D1EEB9F4B17}';
|
||||
RID_AlbaranesCliente_Detalles = '{9A85B300-2DDE-41DD-A4C9-2B6CE2B26FCB}';
|
||||
|
||||
{ Data table names }
|
||||
nme_ListaAnosAlbaranes = 'ListaAnosAlbaranes';
|
||||
@ -25,7 +25,6 @@ const
|
||||
idx_ListaAnosAlbaranesANO = 0;
|
||||
|
||||
{ AlbaranesCliente fields }
|
||||
fld_AlbaranesClienteID_CONTRATO = 'ID_CONTRATO';
|
||||
fld_AlbaranesClienteID = 'ID';
|
||||
fld_AlbaranesClienteID_EMPRESA = 'ID_EMPRESA';
|
||||
fld_AlbaranesClienteID_CLIENTE = 'ID_CLIENTE';
|
||||
@ -39,6 +38,7 @@ const
|
||||
fld_AlbaranesClienteNOMBRE_ALMACEN = 'NOMBRE_ALMACEN';
|
||||
fld_AlbaranesClienteID_PEDIDO = 'ID_PEDIDO';
|
||||
fld_AlbaranesClienteREF_PEDIDO = 'REF_PEDIDO';
|
||||
fld_AlbaranesClienteID_CONTRATO = 'ID_CONTRATO';
|
||||
fld_AlbaranesClienteREF_CONTRATO = 'REF_CONTRATO';
|
||||
fld_AlbaranesClienteID_FACTURA = 'ID_FACTURA';
|
||||
fld_AlbaranesClienteREF_FACTURA = 'REF_FACTURA';
|
||||
@ -72,22 +72,23 @@ const
|
||||
fld_AlbaranesClienteID_TIENDA = 'ID_TIENDA';
|
||||
fld_AlbaranesClienteTIENDA = 'TIENDA';
|
||||
fld_AlbaranesClienteLISTA_NOMBRES = 'LISTA_NOMBRES';
|
||||
fld_AlbaranesClienteTRABAJOS_INSTALADOR = 'TRABAJOS_INSTALADOR';
|
||||
|
||||
{ AlbaranesCliente field indexes }
|
||||
idx_AlbaranesClienteID_CONTRATO = 0;
|
||||
idx_AlbaranesClienteID = 1;
|
||||
idx_AlbaranesClienteID_EMPRESA = 2;
|
||||
idx_AlbaranesClienteID_CLIENTE = 3;
|
||||
idx_AlbaranesClienteNOMBRE = 4;
|
||||
idx_AlbaranesClienteFECHA_ALBARAN = 5;
|
||||
idx_AlbaranesClienteREFERENCIA = 6;
|
||||
idx_AlbaranesClienteREFERENCIA_CLIENTE = 7;
|
||||
idx_AlbaranesClienteTIPO = 8;
|
||||
idx_AlbaranesClienteSITUACION = 9;
|
||||
idx_AlbaranesClienteID_ALMACEN = 10;
|
||||
idx_AlbaranesClienteNOMBRE_ALMACEN = 11;
|
||||
idx_AlbaranesClienteID_PEDIDO = 12;
|
||||
idx_AlbaranesClienteREF_PEDIDO = 13;
|
||||
idx_AlbaranesClienteID = 0;
|
||||
idx_AlbaranesClienteID_EMPRESA = 1;
|
||||
idx_AlbaranesClienteID_CLIENTE = 2;
|
||||
idx_AlbaranesClienteNOMBRE = 3;
|
||||
idx_AlbaranesClienteFECHA_ALBARAN = 4;
|
||||
idx_AlbaranesClienteREFERENCIA = 5;
|
||||
idx_AlbaranesClienteREFERENCIA_CLIENTE = 6;
|
||||
idx_AlbaranesClienteTIPO = 7;
|
||||
idx_AlbaranesClienteSITUACION = 8;
|
||||
idx_AlbaranesClienteID_ALMACEN = 9;
|
||||
idx_AlbaranesClienteNOMBRE_ALMACEN = 10;
|
||||
idx_AlbaranesClienteID_PEDIDO = 11;
|
||||
idx_AlbaranesClienteREF_PEDIDO = 12;
|
||||
idx_AlbaranesClienteID_CONTRATO = 13;
|
||||
idx_AlbaranesClienteREF_CONTRATO = 14;
|
||||
idx_AlbaranesClienteID_FACTURA = 15;
|
||||
idx_AlbaranesClienteREF_FACTURA = 16;
|
||||
@ -121,6 +122,7 @@ const
|
||||
idx_AlbaranesClienteID_TIENDA = 44;
|
||||
idx_AlbaranesClienteTIENDA = 45;
|
||||
idx_AlbaranesClienteLISTA_NOMBRES = 46;
|
||||
idx_AlbaranesClienteTRABAJOS_INSTALADOR = 47;
|
||||
|
||||
{ AlbaranesCliente_Detalles fields }
|
||||
fld_AlbaranesCliente_DetallesID = 'ID';
|
||||
@ -157,7 +159,7 @@ const
|
||||
type
|
||||
{ IListaAnosAlbaranes }
|
||||
IListaAnosAlbaranes = interface(IDAStronglyTypedDataTable)
|
||||
['{0C7CD8C2-CB8B-4224-863B-760D2E239D64}']
|
||||
['{E097AA9E-0150-4FA4-809F-DC5C880C8D0B}']
|
||||
{ Property getters and setters }
|
||||
function GetANOValue: String;
|
||||
procedure SetANOValue(const aValue: String);
|
||||
@ -192,12 +194,8 @@ type
|
||||
|
||||
{ IAlbaranesCliente }
|
||||
IAlbaranesCliente = interface(IDAStronglyTypedDataTable)
|
||||
['{D3E1233E-BD17-40E1-B5B2-C8241F7BFF04}']
|
||||
['{8921A06D-B147-4332-8F91-A9346F234DDA}']
|
||||
{ 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;
|
||||
procedure SetIDValue(const aValue: Integer);
|
||||
function GetIDIsNull: Boolean;
|
||||
@ -250,6 +248,10 @@ type
|
||||
procedure SetREF_PEDIDOValue(const aValue: String);
|
||||
function GetREF_PEDIDOIsNull: 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;
|
||||
procedure SetREF_CONTRATOValue(const aValue: String);
|
||||
function GetREF_CONTRATOIsNull: Boolean;
|
||||
@ -380,11 +382,12 @@ type
|
||||
procedure SetLISTA_NOMBRESValue(const aValue: String);
|
||||
function GetLISTA_NOMBRESIsNull: Boolean;
|
||||
procedure SetLISTA_NOMBRESIsNull(const aValue: Boolean);
|
||||
function GetTRABAJOS_INSTALADORValue: IROStrings;
|
||||
function GetTRABAJOS_INSTALADORIsNull: Boolean;
|
||||
procedure SetTRABAJOS_INSTALADORIsNull(const aValue: Boolean);
|
||||
|
||||
|
||||
{ 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 IDIsNull: Boolean read GetIDIsNull write SetIDIsNull;
|
||||
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 REF_PEDIDO: String read GetREF_PEDIDOValue write SetREF_PEDIDOValue;
|
||||
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_CONTRATOIsNull: Boolean read GetREF_CONTRATOIsNull write SetREF_CONTRATOIsNull;
|
||||
property ID_FACTURA: Integer read GetID_FACTURAValue write SetID_FACTURAValue;
|
||||
@ -477,6 +482,8 @@ type
|
||||
property TIENDAIsNull: Boolean read GetTIENDAIsNull write SetTIENDAIsNull;
|
||||
property LISTA_NOMBRES: String read GetLISTA_NOMBRESValue write SetLISTA_NOMBRESValue;
|
||||
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;
|
||||
|
||||
{ TAlbaranesClienteDataTableRules }
|
||||
@ -484,14 +491,12 @@ type
|
||||
private
|
||||
f_OBSERVACIONES: IROStrings;
|
||||
f_INCIDENCIAS: IROStrings;
|
||||
f_TRABAJOS_INSTALADOR: IROStrings;
|
||||
procedure OBSERVACIONES_OnChange(Sender: TObject);
|
||||
procedure INCIDENCIAS_OnChange(Sender: TObject);
|
||||
procedure TRABAJOS_INSTALADOR_OnChange(Sender: TObject);
|
||||
protected
|
||||
{ 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;
|
||||
procedure SetIDValue(const aValue: Integer); virtual;
|
||||
function GetIDIsNull: Boolean; virtual;
|
||||
@ -544,6 +549,10 @@ type
|
||||
procedure SetREF_PEDIDOValue(const aValue: String); virtual;
|
||||
function GetREF_PEDIDOIsNull: 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;
|
||||
procedure SetREF_CONTRATOValue(const aValue: String); virtual;
|
||||
function GetREF_CONTRATOIsNull: Boolean; virtual;
|
||||
@ -674,10 +683,11 @@ type
|
||||
procedure SetLISTA_NOMBRESValue(const aValue: String); virtual;
|
||||
function GetLISTA_NOMBRESIsNull: 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 }
|
||||
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 IDIsNull: Boolean read GetIDIsNull write SetIDIsNull;
|
||||
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 REF_PEDIDO: String read GetREF_PEDIDOValue write SetREF_PEDIDOValue;
|
||||
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_CONTRATOIsNull: Boolean read GetREF_CONTRATOIsNull write SetREF_CONTRATOIsNull;
|
||||
property ID_FACTURA: Integer read GetID_FACTURAValue write SetID_FACTURAValue;
|
||||
@ -770,6 +782,8 @@ type
|
||||
property TIENDAIsNull: Boolean read GetTIENDAIsNull write SetTIENDAIsNull;
|
||||
property LISTA_NOMBRES: String read GetLISTA_NOMBRESValue write SetLISTA_NOMBRESValue;
|
||||
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
|
||||
constructor Create(aDataTable: TDADataTable); override;
|
||||
@ -779,7 +793,7 @@ type
|
||||
|
||||
{ IAlbaranesCliente_Detalles }
|
||||
IAlbaranesCliente_Detalles = interface(IDAStronglyTypedDataTable)
|
||||
['{A6C61208-F037-4EFA-BBBF-1DBC79AF7C44}']
|
||||
['{C938586B-A47D-4769-A2B5-BC2C6EDDD33E}']
|
||||
{ Property getters and setters }
|
||||
function GetIDValue: Integer;
|
||||
procedure SetIDValue(const aValue: Integer);
|
||||
@ -1019,6 +1033,10 @@ begin
|
||||
StrList := TStringList.Create;
|
||||
StrList.OnChange := INCIDENCIAS_OnChange;
|
||||
f_INCIDENCIAS := NewROStrings(StrList,True);
|
||||
|
||||
StrList := TStringList.Create;
|
||||
StrList.OnChange := TRABAJOS_INSTALADOR_OnChange;
|
||||
f_TRABAJOS_INSTALADOR := NewROStrings(StrList,True);
|
||||
end;
|
||||
|
||||
destructor TAlbaranesClienteDataTableRules.Destroy;
|
||||
@ -1036,25 +1054,9 @@ begin
|
||||
if DataTable.Editing then DataTable.Fields[idx_AlbaranesClienteINCIDENCIAS].AsVariant := TStringList(Sender).Text;
|
||||
end;
|
||||
|
||||
function TAlbaranesClienteDataTableRules.GetID_CONTRATOValue: Integer;
|
||||
procedure TAlbaranesClienteDataTableRules.TRABAJOS_INSTALADOR_OnChange(Sender: TObject);
|
||||
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;
|
||||
if DataTable.Editing then DataTable.Fields[idx_AlbaranesClienteTRABAJOS_INSTALADOR].AsVariant := TStringList(Sender).Text;
|
||||
end;
|
||||
|
||||
function TAlbaranesClienteDataTableRules.GetIDValue: Integer;
|
||||
@ -1330,6 +1332,27 @@ begin
|
||||
DataTable.Fields[idx_AlbaranesClienteREF_PEDIDO].AsVariant := Null;
|
||||
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;
|
||||
begin
|
||||
result := DataTable.Fields[idx_AlbaranesClienteREF_CONTRATO].AsString;
|
||||
@ -2015,6 +2038,23 @@ begin
|
||||
DataTable.Fields[idx_AlbaranesClienteLISTA_NOMBRES].AsVariant := Null;
|
||||
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 }
|
||||
constructor TAlbaranesCliente_DetallesDataTableRules.Create(aDataTable: TDADataTable);
|
||||
|
||||
@ -9,14 +9,14 @@ const
|
||||
{ Delta rules ids
|
||||
Feel free to change them to something more human readable
|
||||
but make sure they are unique in the context of your application }
|
||||
RID_ListaAnosAlbaranesDelta = '{8B568226-36B4-4CDC-BE4C-BD51DA29AEAF}';
|
||||
RID_AlbaranesClienteDelta = '{2EAD0C36-219E-47BB-8D37-78BD32D11744}';
|
||||
RID_AlbaranesCliente_DetallesDelta = '{2ACFBDE5-B171-408C-A739-A72B52566077}';
|
||||
RID_ListaAnosAlbaranesDelta = '{DFB4AC32-D884-4D04-9605-AAC314909FCD}';
|
||||
RID_AlbaranesClienteDelta = '{46FAFC4B-C587-47EE-BF0E-3039F1F746DC}';
|
||||
RID_AlbaranesCliente_DetallesDelta = '{D4709917-AA42-498A-AB7B-304623533C8F}';
|
||||
|
||||
type
|
||||
{ IListaAnosAlbaranesDelta }
|
||||
IListaAnosAlbaranesDelta = interface(IListaAnosAlbaranes)
|
||||
['{8B568226-36B4-4CDC-BE4C-BD51DA29AEAF}']
|
||||
['{DFB4AC32-D884-4D04-9605-AAC314909FCD}']
|
||||
{ Property getters and setters }
|
||||
function GetOldANOValue : String;
|
||||
|
||||
@ -50,9 +50,8 @@ type
|
||||
|
||||
{ IAlbaranesClienteDelta }
|
||||
IAlbaranesClienteDelta = interface(IAlbaranesCliente)
|
||||
['{2EAD0C36-219E-47BB-8D37-78BD32D11744}']
|
||||
['{46FAFC4B-C587-47EE-BF0E-3039F1F746DC}']
|
||||
{ Property getters and setters }
|
||||
function GetOldID_CONTRATOValue : Integer;
|
||||
function GetOldIDValue : Integer;
|
||||
function GetOldID_EMPRESAValue : Integer;
|
||||
function GetOldID_CLIENTEValue : Integer;
|
||||
@ -66,6 +65,7 @@ type
|
||||
function GetOldNOMBRE_ALMACENValue : String;
|
||||
function GetOldID_PEDIDOValue : Integer;
|
||||
function GetOldREF_PEDIDOValue : String;
|
||||
function GetOldID_CONTRATOValue : Integer;
|
||||
function GetOldREF_CONTRATOValue : String;
|
||||
function GetOldID_FACTURAValue : Integer;
|
||||
function GetOldREF_FACTURAValue : String;
|
||||
@ -99,9 +99,9 @@ type
|
||||
function GetOldID_TIENDAValue : Integer;
|
||||
function GetOldTIENDAValue : String;
|
||||
function GetOldLISTA_NOMBRESValue : String;
|
||||
function GetOldTRABAJOS_INSTALADORValue : IROStrings;
|
||||
|
||||
{ Properties }
|
||||
property OldID_CONTRATO : Integer read GetOldID_CONTRATOValue;
|
||||
property OldID : Integer read GetOldIDValue;
|
||||
property OldID_EMPRESA : Integer read GetOldID_EMPRESAValue;
|
||||
property OldID_CLIENTE : Integer read GetOldID_CLIENTEValue;
|
||||
@ -115,6 +115,7 @@ type
|
||||
property OldNOMBRE_ALMACEN : String read GetOldNOMBRE_ALMACENValue;
|
||||
property OldID_PEDIDO : Integer read GetOldID_PEDIDOValue;
|
||||
property OldREF_PEDIDO : String read GetOldREF_PEDIDOValue;
|
||||
property OldID_CONTRATO : Integer read GetOldID_CONTRATOValue;
|
||||
property OldREF_CONTRATO : String read GetOldREF_CONTRATOValue;
|
||||
property OldID_FACTURA : Integer read GetOldID_FACTURAValue;
|
||||
property OldREF_FACTURA : String read GetOldREF_FACTURAValue;
|
||||
@ -148,6 +149,7 @@ type
|
||||
property OldID_TIENDA : Integer read GetOldID_TIENDAValue;
|
||||
property OldTIENDA : String read GetOldTIENDAValue;
|
||||
property OldLISTA_NOMBRES : String read GetOldLISTA_NOMBRESValue;
|
||||
property OldTRABAJOS_INSTALADOR : IROStrings read GetOldTRABAJOS_INSTALADORValue;
|
||||
end;
|
||||
|
||||
{ TAlbaranesClienteBusinessProcessorRules }
|
||||
@ -155,16 +157,12 @@ type
|
||||
private
|
||||
f_OBSERVACIONES: IROStrings;
|
||||
f_INCIDENCIAS: IROStrings;
|
||||
f_TRABAJOS_INSTALADOR: IROStrings;
|
||||
procedure OBSERVACIONES_OnChange(Sender: TObject);
|
||||
procedure INCIDENCIAS_OnChange(Sender: TObject);
|
||||
procedure TRABAJOS_INSTALADOR_OnChange(Sender: TObject);
|
||||
protected
|
||||
{ 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 GetIDIsNull: Boolean; virtual;
|
||||
function GetOldIDValue: Integer; virtual;
|
||||
@ -243,6 +241,12 @@ type
|
||||
function GetOldREF_PEDIDOIsNull: Boolean; virtual;
|
||||
procedure SetREF_PEDIDOValue(const aValue: String); 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_CONTRATOIsNull: Boolean; virtual;
|
||||
function GetOldREF_CONTRATOValue: String; virtual;
|
||||
@ -439,12 +443,13 @@ type
|
||||
function GetOldLISTA_NOMBRESIsNull: Boolean; virtual;
|
||||
procedure SetLISTA_NOMBRESValue(const aValue: String); 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 }
|
||||
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 IDIsNull : Boolean read GetIDIsNull write SetIDIsNull;
|
||||
property OldID : Integer read GetOldIDValue;
|
||||
@ -497,6 +502,10 @@ type
|
||||
property REF_PEDIDOIsNull : Boolean read GetREF_PEDIDOIsNull write SetREF_PEDIDOIsNull;
|
||||
property OldREF_PEDIDO : String read GetOldREF_PEDIDOValue;
|
||||
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_CONTRATOIsNull : Boolean read GetREF_CONTRATOIsNull write SetREF_CONTRATOIsNull;
|
||||
property OldREF_CONTRATO : String read GetOldREF_CONTRATOValue;
|
||||
@ -629,6 +638,10 @@ type
|
||||
property LISTA_NOMBRESIsNull : Boolean read GetLISTA_NOMBRESIsNull write SetLISTA_NOMBRESIsNull;
|
||||
property OldLISTA_NOMBRES : String read GetOldLISTA_NOMBRESValue;
|
||||
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
|
||||
constructor Create(aBusinessProcessor: TDABusinessProcessor); override;
|
||||
@ -638,7 +651,7 @@ type
|
||||
|
||||
{ IAlbaranesCliente_DetallesDelta }
|
||||
IAlbaranesCliente_DetallesDelta = interface(IAlbaranesCliente_Detalles)
|
||||
['{2ACFBDE5-B171-408C-A739-A72B52566077}']
|
||||
['{D4709917-AA42-498A-AB7B-304623533C8F}']
|
||||
{ Property getters and setters }
|
||||
function GetOldIDValue : Integer;
|
||||
function GetOldID_ALBARANValue : Integer;
|
||||
@ -888,6 +901,10 @@ begin
|
||||
StrList := TStringList.Create;
|
||||
StrList.OnChange := INCIDENCIAS_OnChange;
|
||||
f_INCIDENCIAS := NewROStrings(StrList,True);
|
||||
|
||||
StrList := TStringList.Create;
|
||||
StrList.OnChange := TRABAJOS_INSTALADOR_OnChange;
|
||||
f_TRABAJOS_INSTALADOR := NewROStrings(StrList,True);
|
||||
end;
|
||||
|
||||
destructor TAlbaranesClienteBusinessProcessorRules.Destroy;
|
||||
@ -905,35 +922,9 @@ begin
|
||||
BusinessProcessor.CurrentChange.NewValueByName[fld_AlbaranesClienteINCIDENCIAS] := TStringList(Sender).Text;
|
||||
end;
|
||||
|
||||
function TAlbaranesClienteBusinessProcessorRules.GetID_CONTRATOValue: Integer;
|
||||
procedure TAlbaranesClienteBusinessProcessorRules.TRABAJOS_INSTALADOR_OnChange(Sender: TObject);
|
||||
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;
|
||||
BusinessProcessor.CurrentChange.NewValueByName[fld_AlbaranesClienteTRABAJOS_INSTALADOR] := TStringList(Sender).Text;
|
||||
end;
|
||||
|
||||
function TAlbaranesClienteBusinessProcessorRules.GetIDValue: Integer;
|
||||
@ -1339,6 +1330,37 @@ begin
|
||||
BusinessProcessor.CurrentChange.NewValueByName[fld_AlbaranesClienteREF_PEDIDO] := Null;
|
||||
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;
|
||||
begin
|
||||
result := BusinessProcessor.CurrentChange.NewValueByName[fld_AlbaranesClienteREF_CONTRATO];
|
||||
@ -2356,6 +2378,34 @@ begin
|
||||
BusinessProcessor.CurrentChange.NewValueByName[fld_AlbaranesClienteLISTA_NOMBRES] := Null;
|
||||
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 }
|
||||
constructor TAlbaranesCliente_DetallesBusinessProcessorRules.Create(aBusinessProcessor: TDABusinessProcessor);
|
||||
|
||||
@ -164,6 +164,14 @@ object RptAlbaranesCliente: TRptAlbaranesCliente
|
||||
Name = 'PAGINA_WEB_EMPRESA'
|
||||
DataType = datString
|
||||
Size = 255
|
||||
end
|
||||
item
|
||||
Name = 'INCIDENCIAS'
|
||||
DataType = datMemo
|
||||
end
|
||||
item
|
||||
Name = 'TRABAJOS_INSTALADOR'
|
||||
DataType = datMemo
|
||||
end>
|
||||
Params = <
|
||||
item
|
||||
@ -319,12 +327,13 @@ object RptAlbaranesCliente: TRptAlbaranesCliente
|
||||
'RESAS.PROVINCIA AS PROVINCIA_EMPRESA,'#10' EMPRESAS.TELEFONO_1 AS T' +
|
||||
'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 +
|
||||
' EMPRESAS.PAGINA_WEB AS PAGINA_WEB_EMPRESA'#10'FROM'#10' ALBARANES_CLI' +
|
||||
'ENTE'#10' INNER JOIN EMPRESAS ON (EMPRESAS.ID = ALBARANES_CLIENTE.I' +
|
||||
'D_EMPRESA)'#10' INNER JOIN CONTACTOS ON (CONTACTOS.ID = ALBARANES_C' +
|
||||
'LIENTE.ID_CLIENTE)'#10' LEFT OUTER JOIN CONTACTOS_DIRECCIONES ON (C' +
|
||||
'ONTACTOS_DIRECCIONES.ID = ALBARANES_CLIENTE.ID_DIRECCION)'#10'WHERE ' +
|
||||
'ALBARANES_CLIENTE.ID = :ID'#10
|
||||
' EMPRESAS.PAGINA_WEB AS PAGINA_WEB_EMPRESA,'#10' ALBARANES_CLIENTE' +
|
||||
'.INCIDENCIAS,'#10' ALBARANES_CLIENTE.TRABAJOS_INSTALADOR'#10'FROM'#10' ALB' +
|
||||
'ARANES_CLIENTE'#10' INNER JOIN EMPRESAS ON (EMPRESAS.ID = ALBARANES' +
|
||||
'_CLIENTE.ID_EMPRESA)'#10' INNER JOIN CONTACTOS ON (CONTACTOS.ID = A' +
|
||||
'LBARANES_CLIENTE.ID_CLIENTE)'#10' LEFT OUTER JOIN CONTACTOS_DIRECCI' +
|
||||
'ONES ON (CONTACTOS_DIRECCIONES.ID = ALBARANES_CLIENTE.ID_DIRECCI' +
|
||||
'ON)'#10'WHERE ALBARANES_CLIENTE.ID = :ID'#10
|
||||
StatementType = stSQL
|
||||
ColumnMappings = <
|
||||
item
|
||||
@ -452,6 +461,14 @@ object RptAlbaranesCliente: TRptAlbaranesCliente
|
||||
DatasetField = 'MOVIL'
|
||||
TableField = '<unknown>'
|
||||
SQLOrigin = 'MOVIL'
|
||||
end
|
||||
item
|
||||
DatasetField = 'INCIDENCIAS'
|
||||
TableField = 'INCIDENCIAS'
|
||||
end
|
||||
item
|
||||
DatasetField = 'TRABAJOS_INSTALADOR'
|
||||
TableField = 'TRABAJOS_INSTALADOR'
|
||||
end>
|
||||
end>
|
||||
Name = 'Informe_Cabecera'
|
||||
@ -602,6 +619,14 @@ object RptAlbaranesCliente: TRptAlbaranesCliente
|
||||
Name = 'PAGINA_WEB_EMPRESA'
|
||||
DataType = datString
|
||||
Size = 255
|
||||
end
|
||||
item
|
||||
Name = 'INCIDENCIAS'
|
||||
DataType = datMemo
|
||||
end
|
||||
item
|
||||
Name = 'TRABAJOS_INSTALADOR'
|
||||
DataType = datMemo
|
||||
end>
|
||||
end
|
||||
item
|
||||
@ -1075,7 +1100,7 @@ object RptAlbaranesCliente: TRptAlbaranesCliente
|
||||
PrintOptions.Printer = 'Default'
|
||||
PrintOptions.PrintOnSheet = 0
|
||||
ReportOptions.CreateDate = 37871.995398692100000000
|
||||
ReportOptions.LastChange = 42583.535851493060000000
|
||||
ReportOptions.LastChange = 44795.515802407400000000
|
||||
ReportOptions.VersionBuild = '1'
|
||||
ReportOptions.VersionMajor = '12'
|
||||
ReportOptions.VersionMinor = '13'
|
||||
|
||||
@ -37,11 +37,13 @@ type
|
||||
private
|
||||
FConnection: IDAConnection;
|
||||
FVerPrecios: Boolean;
|
||||
FVerTrabajos: Boolean;
|
||||
FVerIncidencias: Boolean;
|
||||
//Genera cada uno de los albaranes a imprimir
|
||||
procedure _GenerarAlbaran(const ID: Integer);
|
||||
public
|
||||
function GenerarAlbaran(const ListaID : TIntegerArray; const VerPrecios: Boolean): Binary;
|
||||
function GenerarAlbaranEnPDF(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; const VerTrabajos: Boolean; const VerIncidencias: Boolean): Binary;
|
||||
function GenerarEtiquetas(const AID : Integer; withRefCliente: Boolean): Binary;
|
||||
end;
|
||||
|
||||
@ -73,13 +75,15 @@ begin
|
||||
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
|
||||
i: Integer;
|
||||
begin
|
||||
Result := Binary.Create;
|
||||
//Inicializamos parametros
|
||||
FVerPrecios := VerPrecios;
|
||||
FVerTrabajos := VerTrabajos;
|
||||
FVerIncidencias := VerIncidencias;
|
||||
|
||||
//Vamos generando todos y cada uno de los presupuestos recibidos
|
||||
for i := 0 to ListaID.Count - 1 do
|
||||
@ -88,13 +92,15 @@ begin
|
||||
frxReport.PreviewPages.SaveToStream(Result);
|
||||
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
|
||||
i: Integer;
|
||||
begin
|
||||
Result := Binary.Create;
|
||||
//Inicializamos parametros
|
||||
FVerPrecios := VerPrecios;
|
||||
FVerTrabajos := VerTrabajos;
|
||||
FVerIncidencias := VerIncidencias;
|
||||
|
||||
//Vamos generando todos y cada uno de los presupuestos recibidos
|
||||
for i := 0 to ListaID.Count - 1 do
|
||||
@ -125,7 +131,9 @@ begin
|
||||
raise Exception.Create (('Error Servidor: _GenerarAlbaran, no encuentra informe' + rptInfAlbaran));
|
||||
|
||||
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.PrepareReport(False);
|
||||
finally
|
||||
|
||||
@ -235,15 +235,14 @@ object srvAlbaranesCliente: TsrvAlbaranesCliente
|
||||
item
|
||||
DatasetField = 'LISTA_NOMBRES'
|
||||
TableField = 'LISTA_NOMBRES'
|
||||
end
|
||||
item
|
||||
DatasetField = 'TRABAJOS_INSTALADOR'
|
||||
TableField = 'TRABAJOS_INSTALADOR'
|
||||
end>
|
||||
end>
|
||||
Name = 'AlbaranesCliente'
|
||||
Fields = <
|
||||
item
|
||||
Name = 'ID_CONTRATO'
|
||||
DataType = datInteger
|
||||
DictionaryEntry = 'AlbaranesCliente_ID_CONTRATO'
|
||||
end
|
||||
item
|
||||
Name = 'ID'
|
||||
DataType = datAutoInc
|
||||
@ -321,6 +320,11 @@ object srvAlbaranesCliente: TsrvAlbaranesCliente
|
||||
Size = 255
|
||||
DictionaryEntry = 'AlbaranesCliente_REF_PEDIDO'
|
||||
end
|
||||
item
|
||||
Name = 'ID_CONTRATO'
|
||||
DataType = datInteger
|
||||
DictionaryEntry = 'AlbaranesCliente_ID_CONTRATO'
|
||||
end
|
||||
item
|
||||
Name = 'REF_CONTRATO'
|
||||
DataType = datString
|
||||
@ -504,6 +508,10 @@ object srvAlbaranesCliente: TsrvAlbaranesCliente
|
||||
DataType = datString
|
||||
Size = 255
|
||||
DictionaryEntry = 'AlbaranesCliente_LISTA_NOMBRES'
|
||||
end
|
||||
item
|
||||
Name = 'TRABAJOS_INSTALADOR'
|
||||
DataType = datMemo
|
||||
end>
|
||||
end
|
||||
item
|
||||
@ -718,12 +726,12 @@ object srvAlbaranesCliente: TsrvAlbaranesCliente
|
||||
Value = ''
|
||||
end
|
||||
item
|
||||
Name = 'ID_CONTRATO'
|
||||
Name = 'ID_FACTURA'
|
||||
DataType = datInteger
|
||||
Value = ''
|
||||
end
|
||||
item
|
||||
Name = 'ID_FACTURA'
|
||||
Name = 'ID_CONTRATO'
|
||||
DataType = datInteger
|
||||
Value = ''
|
||||
end
|
||||
@ -859,6 +867,11 @@ object srvAlbaranesCliente: TsrvAlbaranesCliente
|
||||
Name = 'ID_TIENDA'
|
||||
DataType = datInteger
|
||||
Value = ''
|
||||
end
|
||||
item
|
||||
Name = 'TRABAJOS_INSTALADOR'
|
||||
DataType = datMemo
|
||||
Value = ''
|
||||
end>
|
||||
Statements = <
|
||||
item
|
||||
@ -874,16 +887,17 @@ object srvAlbaranesCliente: TsrvAlbaranesCliente
|
||||
'E_DESCUENTO,'#10' BASE_IMPONIBLE, IVA, IMPORTE_IVA, IMPORTE_TOTA' +
|
||||
'L, OBSERVACIONES, '#10' INCIDENCIAS, INCIDENCIAS_ACTIVAS, FECHA_' +
|
||||
'ALTA,'#10' USUARIO, ID_FORMA_PAGO, FECHA_PREVISTA_ENVIO, FECHA_E' +
|
||||
'NVIO, '#10' FECHA_RECEPCION, ID_TIENDA)'#10' VALUES'#10' (:ID, :ID_E' +
|
||||
'MPRESA, :ID_CLIENTE, :FECHA_ALBARAN, :TIPO, :REFERENCIA,'#10' :R' +
|
||||
'EFERENCIA_CLIENTE, :ID_ALMACEN, :ID_PEDIDO, :ID_FACTURA, :ID_CON' +
|
||||
'TRATO, :ID_DIRECCION,'#10' :CALLE, :CODIGO_POSTAL, :POBLACION, :' +
|
||||
'PROVINCIA, :PERSONA_CONTACTO,'#10' :TELEFONO, :MOVIL, :IMPORTE_N' +
|
||||
'ETO, :IMPORTE_PORTE, :DESCUENTO, :IMPORTE_DESCUENTO,'#10' :BASE_' +
|
||||
'IMPONIBLE, :IVA, :IMPORTE_IVA, :IMPORTE_TOTAL, :OBSERVACIONES,'#10' ' +
|
||||
' :INCIDENCIAS, :INCIDENCIAS_ACTIVAS, CURRENT_TIMESTAMP,'#10' ' +
|
||||
':USUARIO, :ID_FORMA_PAGO, :FECHA_PREVISTA_ENVIO, :FECHA_ENVIO, :' +
|
||||
'FECHA_RECEPCION,'#10' :ID_TIENDA)'#10' '#10' '#10#10
|
||||
'NVIO, '#10' FECHA_RECEPCION, ID_TIENDA, TRABAJOS_INSTALADOR)'#10' V' +
|
||||
'ALUES'#10' (:ID, :ID_EMPRESA, :ID_CLIENTE, :FECHA_ALBARAN, :TIPO,' +
|
||||
' :REFERENCIA,'#10' :REFERENCIA_CLIENTE, :ID_ALMACEN, :ID_PEDIDO,' +
|
||||
' :ID_FACTURA, :ID_CONTRATO, :ID_DIRECCION,'#10' :CALLE, :CODIGO_' +
|
||||
'POSTAL, :POBLACION, :PROVINCIA, :PERSONA_CONTACTO,'#10' :TELEFON' +
|
||||
'O, :MOVIL, :IMPORTE_NETO, :IMPORTE_PORTE, :DESCUENTO, :IMPORTE_D' +
|
||||
'ESCUENTO,'#10' :BASE_IMPONIBLE, :IVA, :IMPORTE_IVA, :IMPORTE_TOT' +
|
||||
'AL, :OBSERVACIONES,'#10' :INCIDENCIAS, :INCIDENCIAS_ACTIVAS, CUR' +
|
||||
'RENT_TIMESTAMP,'#10' :USUARIO, :ID_FORMA_PAGO, :FECHA_PREVISTA_E' +
|
||||
'NVIO, :FECHA_ENVIO, :FECHA_RECEPCION,'#10' :ID_TIENDA, :TRABAJOS' +
|
||||
'_INSTALADOR)'#10' '#10' '#10#10
|
||||
StatementType = stSQL
|
||||
ColumnMappings = <>
|
||||
end>
|
||||
@ -908,11 +922,6 @@ object srvAlbaranesCliente: TsrvAlbaranesCliente
|
||||
end
|
||||
item
|
||||
Params = <
|
||||
item
|
||||
Name = 'ID_CONTRATO'
|
||||
DataType = datInteger
|
||||
Value = ''
|
||||
end
|
||||
item
|
||||
Name = 'ID_EMPRESA'
|
||||
DataType = datInteger
|
||||
@ -961,6 +970,11 @@ object srvAlbaranesCliente: TsrvAlbaranesCliente
|
||||
DataType = datInteger
|
||||
Value = ''
|
||||
end
|
||||
item
|
||||
Name = 'ID_CONTRATO'
|
||||
DataType = datInteger
|
||||
Value = ''
|
||||
end
|
||||
item
|
||||
Name = 'ID_DIRECCION'
|
||||
DataType = datInteger
|
||||
@ -1094,6 +1108,11 @@ object srvAlbaranesCliente: TsrvAlbaranesCliente
|
||||
DataType = datInteger
|
||||
Value = ''
|
||||
end
|
||||
item
|
||||
Name = 'TRABAJOS_INSTALADOR'
|
||||
DataType = datMemo
|
||||
Value = ''
|
||||
end
|
||||
item
|
||||
Name = 'OLD_ID'
|
||||
Value = ''
|
||||
@ -1123,7 +1142,8 @@ object srvAlbaranesCliente: TsrvAlbaranesCliente
|
||||
'SUARIO = :USUARIO, '#10' ID_FORMA_PAGO = :ID_FORMA_PAGO, '#10' FEC' +
|
||||
'HA_PREVISTA_ENVIO = :FECHA_PREVISTA_ENVIO, '#10' FECHA_ENVIO = :F' +
|
||||
'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
|
||||
ColumnMappings = <>
|
||||
end>
|
||||
|
||||
@ -32,7 +32,7 @@ type
|
||||
procedure DARemoteServiceCreate(Sender: TObject);
|
||||
protected
|
||||
{ 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;
|
||||
end;
|
||||
|
||||
@ -81,13 +81,13 @@ begin
|
||||
ConnectionName := dmServer.ConnectionName;
|
||||
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
|
||||
AReportGenerator : TRptAlbaranesCliente;
|
||||
begin
|
||||
AReportGenerator := TRptAlbaranesCliente.Create(nil);
|
||||
try
|
||||
Result := AReportGenerator.GenerarAlbaran(ListaID, VerPrecios);
|
||||
Result := AReportGenerator.GenerarAlbaran(ListaID, VerPrecios, VerTrabajos, VerIncidencias);
|
||||
finally
|
||||
FreeAndNIL(AReportGenerator);
|
||||
end;
|
||||
|
||||
@ -34,7 +34,9 @@ requires
|
||||
Almacenes_controller,
|
||||
AlbCli_FacCli_relation,
|
||||
ContratosCliente_controller,
|
||||
ConCli_AlbCli_relation;
|
||||
ConCli_AlbCli_relation,
|
||||
rtl,
|
||||
vcl;
|
||||
|
||||
contains
|
||||
uAlbaranesClienteViewRegister in 'uAlbaranesClienteViewRegister.pas',
|
||||
@ -52,6 +54,7 @@ contains
|
||||
uViewAlbaranesDevCliente in 'uViewAlbaranesDevCliente.pas' {frViewAlbaranesDevCliente: TCustomView},
|
||||
uEditorAlbaranDevCliente in 'uEditorAlbaranDevCliente.pas' {fEditorAlbaranDevCliente: TCustomEditor},
|
||||
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.
|
||||
|
||||
@ -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\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>
|
||||
@ -66,17 +70,22 @@
|
||||
<DelphiCompile Include="AlbaranesCliente_view.dpk">
|
||||
<MainSource>MainSource</MainSource>
|
||||
</DelphiCompile>
|
||||
<DCCReference Include="..\..\Lib\AlbaranesCliente_controller.dcp" />
|
||||
<DCCReference Include="..\..\Lib\AlbaranesCliente_model.dcp" />
|
||||
<DCCReference Include="..\..\Lib\AlbCli_FacCli_relation.dcp" />
|
||||
<DCCReference Include="..\..\Lib\Almacenes_controller.dcp" />
|
||||
<DCCReference Include="..\..\Lib\ApplicationBase.dcp" />
|
||||
<DCCReference Include="..\..\Lib\Articulos_view.dcp" />
|
||||
<DCCReference Include="..\..\Lib\Base.dcp" />
|
||||
<DCCReference Include="..\..\Lib\ConCli_AlbCli_relation.dcp" />
|
||||
<DCCReference Include="..\..\Lib\ContratosCliente_controller.dcp" />
|
||||
<DCCReference Include="..\..\Lib\GUIBase.dcp" />
|
||||
<DCCReference Include="AlbaranesCliente_controller.dcp" />
|
||||
<DCCReference Include="AlbaranesCliente_model.dcp" />
|
||||
<DCCReference Include="AlbCli_FacCli_relation.dcp" />
|
||||
<DCCReference Include="Almacenes_controller.dcp" />
|
||||
<DCCReference Include="ApplicationBase.dcp" />
|
||||
<DCCReference Include="Articulos_view.dcp" />
|
||||
<DCCReference Include="Base.dcp" />
|
||||
<DCCReference Include="ConCli_AlbCli_relation.dcp" />
|
||||
<DCCReference Include="ContratosCliente_controller.dcp" />
|
||||
<DCCReference Include="GUIBase.dcp" />
|
||||
<DCCReference Include="rtl.dcp" />
|
||||
<DCCReference Include="uAlbaranesClienteViewRegister.pas" />
|
||||
<DCCReference Include="uDialogOpcionesImpresionAlbaranesCliente.pas">
|
||||
<Form>fDialogOpcionesImpresionAlbaranesCliente</Form>
|
||||
<DesignClass>TfEditorElegirArticulosAlbaranCliente</DesignClass>
|
||||
</DCCReference>
|
||||
<DCCReference Include="uEditorAlbaranCliente.pas">
|
||||
<Form>fEditorAlbaranCliente</Form>
|
||||
<DesignClass>TfEditorAlbaranCliente</DesignClass>
|
||||
@ -137,6 +146,7 @@
|
||||
<Form>frViewElegirArticulosAlbaranesCliente</Form>
|
||||
<DesignClass>TFrame</DesignClass>
|
||||
</DCCReference>
|
||||
<DCCReference Include="vcl.dcp" />
|
||||
</ItemGroup>
|
||||
</Project>
|
||||
<!-- EurekaLog First Line
|
||||
|
||||
@ -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
|
||||
@ -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.
|
||||
@ -12,6 +12,7 @@ inherited fEditorAlbaranCliente: TfEditorAlbaranCliente
|
||||
inherited JvNavPanelHeader: TJvNavPanelHeader
|
||||
Width = 765
|
||||
Caption = 'Nuevo albar'#225'n de cliente'
|
||||
ExplicitTop = 49
|
||||
ExplicitWidth = 765
|
||||
inherited Image1: TImage
|
||||
Left = 738
|
||||
@ -129,7 +130,7 @@ inherited fEditorAlbaranCliente: TfEditorAlbaranCliente
|
||||
Width = 765
|
||||
ExplicitWidth = 765
|
||||
inherited tbxMain: TTBXToolbar
|
||||
ExplicitWidth = 634
|
||||
ExplicitWidth = 488
|
||||
inherited TBXItem2: TTBXItem
|
||||
Visible = False
|
||||
end
|
||||
@ -156,16 +157,17 @@ inherited fEditorAlbaranCliente: TfEditorAlbaranCliente
|
||||
end
|
||||
inherited pgPaginas: TPageControl
|
||||
Width = 759
|
||||
Height = 367
|
||||
Height = 376
|
||||
ActivePage = Trabajos
|
||||
TabOrder = 1
|
||||
OnChanging = pgPaginasChanging
|
||||
ExplicitWidth = 759
|
||||
ExplicitHeight = 367
|
||||
ExplicitHeight = 376
|
||||
inherited pagGeneral: TTabSheet
|
||||
ExplicitLeft = 4
|
||||
ExplicitTop = 24
|
||||
ExplicitWidth = 751
|
||||
ExplicitHeight = 339
|
||||
ExplicitHeight = 348
|
||||
end
|
||||
object pagContenido: TTabSheet
|
||||
Caption = 'Contenido'
|
||||
@ -174,7 +176,7 @@ inherited fEditorAlbaranCliente: TfEditorAlbaranCliente
|
||||
Left = 0
|
||||
Top = 0
|
||||
Width = 751
|
||||
Height = 339
|
||||
Height = 348
|
||||
Align = alClient
|
||||
BiDiMode = bdLeftToRight
|
||||
Font.Charset = DEFAULT_CHARSET
|
||||
@ -187,72 +189,57 @@ inherited fEditorAlbaranCliente: TfEditorAlbaranCliente
|
||||
TabOrder = 0
|
||||
ReadOnly = False
|
||||
ExplicitWidth = 751
|
||||
ExplicitHeight = 339
|
||||
ExplicitHeight = 348
|
||||
inherited ToolBar1: TToolBar
|
||||
Width = 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
|
||||
inherited cxGrid: TcxGrid
|
||||
Width = 751
|
||||
Height = 264
|
||||
ExplicitTop = 75
|
||||
Height = 276
|
||||
ExplicitWidth = 751
|
||||
ExplicitHeight = 264
|
||||
ExplicitHeight = 276
|
||||
end
|
||||
inherited TBXDock1: TTBXDock
|
||||
Width = 751
|
||||
ExplicitTop = 46
|
||||
ExplicitWidth = 751
|
||||
inherited TBXToolbar1: TTBXToolbar
|
||||
ExplicitWidth = 731
|
||||
ExplicitWidth = 548
|
||||
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
|
||||
Caption = 'Incidencias'
|
||||
ImageIndex = 2
|
||||
ImageIndex = 4
|
||||
inline frViewIncidenciasCli: TfrViewIncidencias
|
||||
Left = 0
|
||||
Top = 0
|
||||
Width = 751
|
||||
Height = 339
|
||||
Height = 348
|
||||
Align = alClient
|
||||
Font.Charset = DEFAULT_CHARSET
|
||||
Font.Color = clWindowText
|
||||
@ -263,7 +250,7 @@ inherited fEditorAlbaranCliente: TfEditorAlbaranCliente
|
||||
TabOrder = 0
|
||||
ReadOnly = False
|
||||
ExplicitWidth = 751
|
||||
ExplicitHeight = 339
|
||||
ExplicitHeight = 348
|
||||
inherited pnlSup: TPanel
|
||||
Width = 751
|
||||
ExplicitWidth = 751
|
||||
@ -273,13 +260,13 @@ inherited fEditorAlbaranCliente: TfEditorAlbaranCliente
|
||||
end
|
||||
inherited GroupBox1: TGroupBox
|
||||
Width = 751
|
||||
Height = 311
|
||||
Height = 320
|
||||
ExplicitWidth = 751
|
||||
ExplicitHeight = 311
|
||||
ExplicitHeight = 320
|
||||
inherited eIncidencias: TcxDBMemo
|
||||
ExplicitWidth = 747
|
||||
ExplicitHeight = 294
|
||||
Height = 294
|
||||
ExplicitHeight = 303
|
||||
Height = 303
|
||||
Width = 747
|
||||
end
|
||||
end
|
||||
@ -311,20 +298,20 @@ inherited fEditorAlbaranCliente: TfEditorAlbaranCliente
|
||||
ExplicitWidth = 765
|
||||
ExplicitHeight = 78
|
||||
inherited Bevel3: TBevel
|
||||
Left = 366
|
||||
Left = 368
|
||||
Top = 11
|
||||
Width = 7
|
||||
Height = 54
|
||||
ExplicitLeft = 366
|
||||
ExplicitLeft = 368
|
||||
ExplicitTop = 11
|
||||
ExplicitWidth = 7
|
||||
ExplicitHeight = 54
|
||||
end
|
||||
inherited Bevel4: TBevel
|
||||
Left = 482
|
||||
Left = 484
|
||||
Top = 53
|
||||
Width = 210
|
||||
ExplicitLeft = 482
|
||||
ExplicitLeft = 484
|
||||
ExplicitTop = 53
|
||||
ExplicitWidth = 210
|
||||
end
|
||||
@ -338,20 +325,20 @@ inherited fEditorAlbaranCliente: TfEditorAlbaranCliente
|
||||
Width = 188
|
||||
end
|
||||
inherited ImporteIVA: TcxDBCurrencyEdit
|
||||
Left = 553
|
||||
Left = 555
|
||||
Top = 88
|
||||
DataBinding.DataField = ''
|
||||
Style.IsFontAssigned = True
|
||||
ExplicitLeft = 553
|
||||
ExplicitLeft = 555
|
||||
ExplicitTop = 88
|
||||
ExplicitWidth = 182
|
||||
Width = 182
|
||||
end
|
||||
inherited ImporteTotal: TcxDBCurrencyEdit
|
||||
Left = 483
|
||||
Left = 485
|
||||
Top = 142
|
||||
Style.IsFontAssigned = True
|
||||
ExplicitLeft = 483
|
||||
ExplicitLeft = 485
|
||||
ExplicitTop = 142
|
||||
ExplicitWidth = 252
|
||||
Width = 252
|
||||
@ -364,36 +351,36 @@ inherited fEditorAlbaranCliente: TfEditorAlbaranCliente
|
||||
ExplicitTop = 38
|
||||
end
|
||||
inherited edtIVA: TcxDBSpinEdit
|
||||
Left = 482
|
||||
Left = 484
|
||||
Top = 88
|
||||
DataBinding.DataField = ''
|
||||
Style.IsFontAssigned = True
|
||||
ExplicitLeft = 482
|
||||
ExplicitLeft = 484
|
||||
ExplicitTop = 88
|
||||
end
|
||||
inherited ImporteBase: TcxDBCurrencyEdit
|
||||
Left = 482
|
||||
Left = 484
|
||||
Top = 11
|
||||
Style.IsFontAssigned = True
|
||||
ExplicitLeft = 482
|
||||
ExplicitLeft = 484
|
||||
ExplicitTop = 11
|
||||
ExplicitWidth = 253
|
||||
Width = 253
|
||||
end
|
||||
inherited edtRE: TcxDBSpinEdit
|
||||
Left = 482
|
||||
Left = 484
|
||||
Top = 115
|
||||
DataBinding.DataField = ''
|
||||
Style.IsFontAssigned = True
|
||||
ExplicitLeft = 482
|
||||
ExplicitLeft = 484
|
||||
ExplicitTop = 115
|
||||
end
|
||||
inherited ImporteRE: TcxDBCurrencyEdit
|
||||
Left = 553
|
||||
Left = 555
|
||||
Top = 115
|
||||
DataBinding.DataField = ''
|
||||
Style.IsFontAssigned = True
|
||||
ExplicitLeft = 553
|
||||
ExplicitLeft = 555
|
||||
ExplicitTop = 115
|
||||
ExplicitWidth = 182
|
||||
Width = 182
|
||||
@ -427,9 +414,9 @@ inherited fEditorAlbaranCliente: TfEditorAlbaranCliente
|
||||
Width = 121
|
||||
end
|
||||
inherited bTiposIVA: TButton
|
||||
Left = 218
|
||||
Left = 220
|
||||
Top = 92
|
||||
ExplicitLeft = 218
|
||||
ExplicitLeft = 220
|
||||
ExplicitTop = 92
|
||||
end
|
||||
inherited cbRecargoEquivalencia: TcxDBCheckBox
|
||||
|
||||
@ -24,6 +24,8 @@ type
|
||||
dxLayoutOfficeLookAndFeel1: TdxLayoutOfficeLookAndFeel;
|
||||
frViewDetallesAlbaranCliente1: TfrViewDetallesAlbaranCliente;
|
||||
frViewTotales1: TfrViewTotales;
|
||||
Trabajos: TTabSheet;
|
||||
eTrabajos: TcxDBMemo;
|
||||
|
||||
procedure FormShow(Sender: TObject);
|
||||
procedure CustomEditorClose(Sender: TObject; var Action: TCloseAction);
|
||||
@ -79,7 +81,7 @@ implementation
|
||||
uses
|
||||
uViewDatosYSeleccionCliente, uDataModuleUsuarios, uClientesController,
|
||||
uBizDireccionesContacto, schAlbaranesClienteClient_Intf, uDialogUtils,
|
||||
uEditorDBBase, uDataTableUtils, uFactuGES_App;
|
||||
uEditorDBBase, uDataTableUtils, uFactuGES_App, uDialogOpcionesImpresionAlbaranesCliente;
|
||||
|
||||
{$R *.dfm}
|
||||
|
||||
@ -223,9 +225,19 @@ begin
|
||||
end;
|
||||
|
||||
procedure TfEditorAlbaranCliente.ImprimirInterno;
|
||||
var
|
||||
VerPrecios: Boolean;
|
||||
VerTrabajos: Boolean;
|
||||
VerIncidencias: Boolean;
|
||||
|
||||
begin
|
||||
inherited;
|
||||
FController.Print(FAlbaran);
|
||||
VerPrecios := True;
|
||||
VerTrabajos := True;
|
||||
VerIncidencias := True;
|
||||
|
||||
if ElegirOpcionesImpresionAlbaranCliente(VerPrecios, VerTrabajos, VerIncidencias) then
|
||||
FController.Print(FAlbaran, False, VerPrecios, VerTrabajos, VerIncidencias);
|
||||
end;
|
||||
|
||||
procedure TfEditorAlbaranCliente.OnClienteChanged(Sender: TObject);
|
||||
@ -306,9 +318,19 @@ begin
|
||||
end;
|
||||
|
||||
procedure TfEditorAlbaranCliente.PrevisualizarInterno;
|
||||
var
|
||||
VerPrecios: Boolean;
|
||||
VerTrabajos: Boolean;
|
||||
VerIncidencias: Boolean;
|
||||
|
||||
begin
|
||||
inherited;
|
||||
FController.Preview(FAlbaran);
|
||||
VerPrecios := True;
|
||||
VerTrabajos := True;
|
||||
VerIncidencias := True;
|
||||
|
||||
if ElegirOpcionesImpresionAlbaranCliente(VerPrecios, VerTrabajos, VerIncidencias) then
|
||||
FController.Preview(FAlbaran, False, VerPrecios, VerTrabajos, VerIncidencias);
|
||||
end;
|
||||
|
||||
procedure TfEditorAlbaranCliente.RecalcularPortePorUnidad;
|
||||
|
||||
@ -129,7 +129,7 @@ inherited fEditorAlbaranesCliente: TfEditorAlbaranesCliente
|
||||
end
|
||||
end
|
||||
inherited tbxFiltro: TTBXToolbar
|
||||
ExplicitWidth = 431
|
||||
ExplicitWidth = 356
|
||||
inherited lblAno: TTBXLabelItem
|
||||
Visible = True
|
||||
end
|
||||
@ -144,9 +144,9 @@ inherited fEditorAlbaranesCliente: TfEditorAlbaranesCliente
|
||||
ExplicitWidth = 583
|
||||
end
|
||||
inherited TBXTMain2: TTBXToolbar
|
||||
Left = 431
|
||||
Left = 356
|
||||
Visible = True
|
||||
ExplicitLeft = 431
|
||||
ExplicitLeft = 356
|
||||
ExplicitWidth = 129
|
||||
object TBXItem42: TTBXItem
|
||||
Action = actEnviar
|
||||
|
||||
@ -86,7 +86,7 @@ uses
|
||||
uDataModuleAlbaranesCliente, uDataModuleUsuarios, uFactuGES_App,
|
||||
uDialogUtils, schAlbaranesClienteClient_Intf, uGenerarFacturasCliAlbCliUtils,
|
||||
uGenerarAlbaranesCliUtils,
|
||||
uEditorBase,
|
||||
uEditorBase, uDialogOpcionesImpresionAlbaranesCliente,
|
||||
cxCustomData, uGridUtils, uDBSelectionListUtils;
|
||||
|
||||
{$R *.dfm}
|
||||
@ -381,10 +381,16 @@ var
|
||||
Respuesta : Integer;
|
||||
AAlbaranes: IBizAlbaranCliente;
|
||||
AllItems: Boolean;
|
||||
VerPrecios: Boolean;
|
||||
VerTrabajos: Boolean;
|
||||
VerIncidencias: Boolean;
|
||||
|
||||
begin
|
||||
AAlbaranes := Nil;
|
||||
AllItems := False;
|
||||
VerPrecios := True;
|
||||
VerTrabajos := True;
|
||||
VerIncidencias := True;
|
||||
|
||||
if MultiSelect and Assigned(ViewGrid) then
|
||||
AllItems := (ViewGrid.NumSeleccionados > 1);
|
||||
@ -411,7 +417,8 @@ begin
|
||||
AAlbaranes := Albaranes;
|
||||
|
||||
if Assigned(AAlbaranes) then
|
||||
FController.Print(AAlbaranes, AllItems);
|
||||
if ElegirOpcionesImpresionAlbaranCliente(VerPrecios, VerTrabajos, VerIncidencias) then
|
||||
FController.Print(AAlbaranes, AllItems, VerPrecios, VerTrabajos, VerIncidencias);
|
||||
end;
|
||||
end;
|
||||
end;
|
||||
@ -477,9 +484,16 @@ var
|
||||
Respuesta : Integer;
|
||||
AAlbaranes: IBizAlbaranCliente;
|
||||
AllItems: Boolean;
|
||||
VerPrecios: Boolean;
|
||||
VerTrabajos: Boolean;
|
||||
VerIncidencias: Boolean;
|
||||
|
||||
begin
|
||||
AAlbaranes := Nil;
|
||||
AllItems := False;
|
||||
VerPrecios := True;
|
||||
VerTrabajos := True;
|
||||
VerIncidencias := True;
|
||||
|
||||
if MultiSelect and Assigned(ViewGrid) then
|
||||
AllItems := (ViewGrid.NumSeleccionados > 1);
|
||||
@ -506,10 +520,8 @@ begin
|
||||
AAlbaranes := Albaranes;
|
||||
|
||||
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
|
||||
FController.Preview(AAlbaranes, AllItems)
|
||||
else
|
||||
FController.Preview(AAlbaranes, AllItems, False);
|
||||
if ElegirOpcionesImpresionAlbaranCliente(VerPrecios, VerTrabajos, VerIncidencias) then
|
||||
FController.Preview(AAlbaranes, AllItems, VerPrecios, VerTrabajos, VerIncidencias);
|
||||
end;
|
||||
end;
|
||||
end;
|
||||
|
||||
@ -58,7 +58,8 @@ requires
|
||||
GUISDK_D11R,
|
||||
designide,
|
||||
xmlrtl,
|
||||
vclactnband;
|
||||
vclactnband,
|
||||
GestorInformes_controller;
|
||||
|
||||
contains
|
||||
uContactosViewRegister in 'uContactosViewRegister.pas',
|
||||
|
||||
@ -47,40 +47,41 @@
|
||||
<DelphiCompile Include="Contactos_view.dpk">
|
||||
<MainSource>MainSource</MainSource>
|
||||
</DelphiCompile>
|
||||
<DCCReference Include="..\..\Albaranes de proveedor\adortl.dcp" />
|
||||
<DCCReference Include="..\..\Albaranes de proveedor\ApplicationBase.dcp" />
|
||||
<DCCReference Include="..\..\Albaranes de proveedor\Base.dcp" />
|
||||
<DCCReference Include="..\..\Albaranes de proveedor\bdertl.dcp" />
|
||||
<DCCReference Include="..\..\Albaranes de proveedor\Contactos_controller.dcp" />
|
||||
<DCCReference Include="..\..\Albaranes de proveedor\Contactos_model.dcp" />
|
||||
<DCCReference Include="..\..\Albaranes de proveedor\cxDataD11.dcp" />
|
||||
<DCCReference Include="..\..\Albaranes de proveedor\cxEditorsD11.dcp" />
|
||||
<DCCReference Include="..\..\Albaranes de proveedor\cxLibraryD11.dcp" />
|
||||
<DCCReference Include="..\..\Albaranes de proveedor\DataAbstract_Core_D11.dcp" />
|
||||
<DCCReference Include="..\..\Albaranes de proveedor\dbrtl.dcp" />
|
||||
<DCCReference Include="..\..\Albaranes de proveedor\designide.dcp" />
|
||||
<DCCReference Include="..\..\Albaranes de proveedor\dsnap.dcp" />
|
||||
<DCCReference Include="..\..\Albaranes de proveedor\dxGDIPlusD11.dcp" />
|
||||
<DCCReference Include="..\..\Albaranes de proveedor\dxThemeD11.dcp" />
|
||||
<DCCReference Include="..\..\Albaranes de proveedor\FormasPago_controller.dcp" />
|
||||
<DCCReference Include="..\..\Albaranes de proveedor\FormasPago_model.dcp" />
|
||||
<DCCReference Include="..\..\Albaranes de proveedor\GUIBase.dcp" />
|
||||
<DCCReference Include="..\..\Albaranes de proveedor\GUISDK_D11R.dcp" />
|
||||
<DCCReference Include="..\..\Albaranes de proveedor\Jcl.dcp" />
|
||||
<DCCReference Include="..\..\Albaranes de proveedor\JclVcl.dcp" />
|
||||
<DCCReference Include="..\..\Albaranes de proveedor\JvCoreD11R.dcp" />
|
||||
<DCCReference Include="..\..\Albaranes de proveedor\JvGlobusD11R.dcp" />
|
||||
<DCCReference Include="..\..\Albaranes de proveedor\JvSystemD11R.dcp" />
|
||||
<DCCReference Include="..\..\Albaranes de proveedor\RemObjects_Core_D11.dcp" />
|
||||
<DCCReference Include="..\..\Albaranes de proveedor\rtl.dcp" />
|
||||
<DCCReference Include="..\..\Albaranes de proveedor\TiposIVA_controller.dcp" />
|
||||
<DCCReference Include="..\..\Albaranes de proveedor\TiposIVA_model.dcp" />
|
||||
<DCCReference Include="..\..\Albaranes de proveedor\vcl.dcp" />
|
||||
<DCCReference Include="..\..\Albaranes de proveedor\vclactnband.dcp" />
|
||||
<DCCReference Include="..\..\Albaranes de proveedor\vcldb.dcp" />
|
||||
<DCCReference Include="..\..\Albaranes de proveedor\vcljpg.dcp" />
|
||||
<DCCReference Include="..\..\Albaranes de proveedor\vclx.dcp" />
|
||||
<DCCReference Include="..\..\Albaranes de proveedor\xmlrtl.dcp" />
|
||||
<DCCReference Include="..\..\Contratos de cliente\adortl.dcp" />
|
||||
<DCCReference Include="..\..\Contratos de cliente\ApplicationBase.dcp" />
|
||||
<DCCReference Include="..\..\Contratos de cliente\Base.dcp" />
|
||||
<DCCReference Include="..\..\Contratos de cliente\bdertl.dcp" />
|
||||
<DCCReference Include="..\..\Contratos de cliente\Contactos_controller.dcp" />
|
||||
<DCCReference Include="..\..\Contratos de cliente\Contactos_model.dcp" />
|
||||
<DCCReference Include="..\..\Contratos de cliente\cxDataD11.dcp" />
|
||||
<DCCReference Include="..\..\Contratos de cliente\cxEditorsD11.dcp" />
|
||||
<DCCReference Include="..\..\Contratos de cliente\cxLibraryD11.dcp" />
|
||||
<DCCReference Include="..\..\Contratos de cliente\DataAbstract_Core_D11.dcp" />
|
||||
<DCCReference Include="..\..\Contratos de cliente\dbrtl.dcp" />
|
||||
<DCCReference Include="..\..\Contratos de cliente\designide.dcp" />
|
||||
<DCCReference Include="..\..\Contratos de cliente\dsnap.dcp" />
|
||||
<DCCReference Include="..\..\Contratos de cliente\dxGDIPlusD11.dcp" />
|
||||
<DCCReference Include="..\..\Contratos de cliente\dxThemeD11.dcp" />
|
||||
<DCCReference Include="..\..\Contratos de cliente\FormasPago_controller.dcp" />
|
||||
<DCCReference Include="..\..\Contratos de cliente\FormasPago_model.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\JvGlobusD11R.dcp" />
|
||||
<DCCReference Include="..\..\Contratos de cliente\JvSystemD11R.dcp" />
|
||||
<DCCReference Include="..\..\Contratos de cliente\RemObjects_Core_D11.dcp" />
|
||||
<DCCReference Include="..\..\Contratos de cliente\rtl.dcp" />
|
||||
<DCCReference Include="..\..\Contratos de cliente\TiposIVA_controller.dcp" />
|
||||
<DCCReference Include="..\..\Contratos de cliente\TiposIVA_model.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="uContactosViewRegister.pas" />
|
||||
<DCCReference Include="uEditorCliente.pas">
|
||||
<Form>fEditorCliente</Form>
|
||||
|
||||
@ -52,11 +52,20 @@ inherited fEditorClientes: TfEditorClientes
|
||||
Width = 786
|
||||
ExplicitWidth = 786
|
||||
inherited tbxMain: TTBXToolbar
|
||||
ExplicitWidth = 775
|
||||
ExplicitWidth = 632
|
||||
end
|
||||
inherited tbxMenu: TTBXToolbar
|
||||
ExplicitWidth = 786
|
||||
end
|
||||
inherited TBXTMain2: TTBXToolbar
|
||||
Left = 200
|
||||
DockPos = 200
|
||||
ExplicitLeft = 200
|
||||
object TBXItem38: TTBXItem
|
||||
Action = actInformes
|
||||
DisplayMode = nbdmImageAndText
|
||||
end
|
||||
end
|
||||
end
|
||||
inherited StatusBar: TJvStatusBar
|
||||
Top = 500
|
||||
@ -129,6 +138,16 @@ inherited fEditorClientes: TfEditorClientes
|
||||
ExplicitWidth = 121
|
||||
Width = 121
|
||||
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
|
||||
inherited TBXAlignmentPanel1: TTBXAlignmentPanel
|
||||
Width = 786
|
||||
@ -180,6 +199,13 @@ inherited fEditorClientes: TfEditorClientes
|
||||
ImageIndex = 23
|
||||
OnExecute = actGruposClienteExecute
|
||||
end
|
||||
object actInformes: TAction
|
||||
Caption = 'Informes'
|
||||
Enabled = False
|
||||
ImageIndex = 24
|
||||
Visible = False
|
||||
OnExecute = actInformesExecute
|
||||
end
|
||||
end
|
||||
inherited SmallImages: TPngImageList [5]
|
||||
PngImages = <
|
||||
@ -1937,6 +1963,10 @@ inherited fEditorClientes: TfEditorClientes
|
||||
'Previsulalizar lista de clientes seleccionados (SOLO DATOS CONTA' +
|
||||
'CTO)'
|
||||
Value = 300
|
||||
end
|
||||
item
|
||||
Caption = 'Listado facturas/cobros de cliente seleccionado'
|
||||
Value = 400
|
||||
end>
|
||||
ButtonBar.Buttons = [cbCancel]
|
||||
MainIcon = tdiCustom
|
||||
@ -2252,6 +2282,10 @@ inherited fEditorClientes: TfEditorClientes
|
||||
item
|
||||
Caption = 'Imprimir lista de clientes seleccionados (SOLO DATOS CONTACTO)'
|
||||
Value = 300
|
||||
end
|
||||
item
|
||||
Caption = 'Listado facturas/cobros de cliente seleccionado'
|
||||
Value = 400
|
||||
end>
|
||||
ButtonBar.Buttons = [cbCancel]
|
||||
MainIcon = tdiCustom
|
||||
@ -2490,4 +2524,310 @@ inherited fEditorClientes: TfEditorClientes
|
||||
Left = 328
|
||||
Top = 144
|
||||
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
|
||||
|
||||
@ -21,10 +21,14 @@ type
|
||||
actGruposCliente: TAction;
|
||||
JsListaContactosNoEliminados: TJSDialog;
|
||||
frViewClientes1: TfrViewClientes;
|
||||
actInformes: TAction;
|
||||
TBXItem38: TTBXItem;
|
||||
JSInformesDialog: TJSDialog;
|
||||
procedure actGruposClienteExecute(Sender: TObject);
|
||||
procedure actInformesExecute(Sender: TObject);
|
||||
protected
|
||||
procedure ImprimirInterno; override;
|
||||
procedure PrevisualizarInterno; override;
|
||||
procedure PrevisualizarInterno; override;
|
||||
procedure EliminarInterno; override;
|
||||
public
|
||||
constructor Create(AOwner: TComponent); override;
|
||||
@ -36,7 +40,7 @@ implementation
|
||||
uses
|
||||
uGridUtils, uDataModuleContactos, uDMBase, uEditorGridBase, uBizContactos,
|
||||
uDBSelectionListUtils, uDataModuleUsuarios, uDialogUtils, uFactuGES_App,
|
||||
uGruposClienteController, uBizGruposCliente, uClientesController;
|
||||
uGruposClienteController, uBizGruposCliente, uClientesController, uGestorInformesController;
|
||||
|
||||
{$R *.dfm}
|
||||
|
||||
@ -59,6 +63,33 @@ begin
|
||||
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);
|
||||
begin
|
||||
inherited;
|
||||
@ -118,7 +149,9 @@ procedure TfEditorClientes.ImprimirInterno;
|
||||
var
|
||||
Respuesta : Integer;
|
||||
AClientes: IBizCliente;
|
||||
AGestorInformesController : IGestorInformesController;
|
||||
AllItems: Boolean;
|
||||
|
||||
begin
|
||||
AClientes := Nil;
|
||||
AllItems := False;
|
||||
@ -150,6 +183,27 @@ begin
|
||||
if Assigned(AClientes) then
|
||||
(FController as IClientesController).PrintInformeEtiquetas(AClientes, AllItems);
|
||||
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;
|
||||
@ -167,7 +221,9 @@ procedure TfEditorClientes.PrevisualizarInterno;
|
||||
var
|
||||
Respuesta : Integer;
|
||||
AClientes: IBizCliente;
|
||||
AGestorInformesController : IGestorInformesController;
|
||||
AllItems: Boolean;
|
||||
|
||||
begin
|
||||
AClientes := Nil;
|
||||
AllItems := False;
|
||||
@ -211,7 +267,14 @@ begin
|
||||
if Assigned(AClientes) then
|
||||
(FController as IClientesController).PreviewInformeListaDatosContacto(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;
|
||||
|
||||
@ -10,8 +10,11 @@ inherited fEditorContactos: TfEditorContactos
|
||||
Caption = 'Lista de contactos'
|
||||
end
|
||||
inherited TBXDock: TTBXDock
|
||||
inherited tbxMain: TTBXToolbar
|
||||
ExplicitWidth = 543
|
||||
end
|
||||
inherited tbxFiltro: TTBXToolbar
|
||||
ExplicitWidth = 269
|
||||
ExplicitWidth = 194
|
||||
inherited tbxEditFiltro: TTBXEditItem
|
||||
EditOptions = [tboUseEditWhenVertical]
|
||||
end
|
||||
@ -19,10 +22,6 @@ inherited fEditorContactos: TfEditorContactos
|
||||
Visible = False
|
||||
end
|
||||
end
|
||||
inherited TBXTMain2: TTBXToolbar
|
||||
Left = 334
|
||||
ExplicitLeft = 334
|
||||
end
|
||||
end
|
||||
inherited EditorActionList: TActionList
|
||||
inherited actPrevisualizar: TAction
|
||||
|
||||
@ -16,6 +16,8 @@
|
||||
<Projects Include="..\Contactos\Data\Contactos_data.dproj" />
|
||||
<Projects Include="..\Contactos\Model\Contactos_model.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\Plugin\FacturasProveedor_plugin.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\Views\PedidosProveedor_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 - Facturas de cliente\ConCli_FacCli_relation.dproj" />
|
||||
<Projects Include="..\Relaciones\Contratos de cliente - Pedidos de proveedor\ConCli_PedProv_relation.dproj" />
|
||||
@ -291,14 +294,41 @@
|
||||
<Target Name="PedidosProveedor_model:Make">
|
||||
<MSBuild Projects="..\Pedidos a proveedor\Model\PedidosProveedor_model.dproj" Targets="Make" />
|
||||
</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">
|
||||
<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 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 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>
|
||||
<Import Condition="Exists('$(MSBuildBinPath)\Borland.Group.Targets')" Project="$(MSBuildBinPath)\Borland.Group.Targets" />
|
||||
</Project>
|
||||
@ -126,7 +126,7 @@ inherited fEditorContratosCliente: TfEditorContratosCliente
|
||||
Width = 1119
|
||||
ExplicitWidth = 1119
|
||||
inherited tbxMain: TTBXToolbar
|
||||
ExplicitWidth = 1031
|
||||
ExplicitWidth = 888
|
||||
object TBXSubmenuItem3: TTBXSubmenuItem [0]
|
||||
Caption = 'Nuevo'
|
||||
DisplayMode = nbdmImageAndText
|
||||
@ -169,7 +169,7 @@ inherited fEditorContratosCliente: TfEditorContratosCliente
|
||||
end
|
||||
end
|
||||
inherited tbxFiltro: TTBXToolbar
|
||||
ExplicitWidth = 431
|
||||
ExplicitWidth = 481
|
||||
inherited lblAno: TTBXLabelItem
|
||||
Visible = True
|
||||
end
|
||||
@ -179,6 +179,10 @@ inherited fEditorContratosCliente: TfEditorContratosCliente
|
||||
inherited sepAno: TTBXSeparatorItem
|
||||
Visible = True
|
||||
end
|
||||
inherited tbxEditFiltro2: TTBXEditItem
|
||||
Enabled = True
|
||||
Visible = True
|
||||
end
|
||||
end
|
||||
inherited tbxMenu: TTBXToolbar
|
||||
ExplicitWidth = 1119
|
||||
@ -202,11 +206,14 @@ inherited fEditorContratosCliente: TfEditorContratosCliente
|
||||
end
|
||||
end
|
||||
inherited TBXTMain2: TTBXToolbar
|
||||
Left = 431
|
||||
DockPos = 343
|
||||
Left = 481
|
||||
DockPos = 487
|
||||
Visible = True
|
||||
ExplicitLeft = 431
|
||||
ExplicitWidth = 687
|
||||
ExplicitLeft = 481
|
||||
ExplicitWidth = 638
|
||||
object TBXItem46: TTBXItem
|
||||
Action = actInformes
|
||||
end
|
||||
object TBXSeparatorItem18: TTBXSeparatorItem
|
||||
end
|
||||
object TBXItem44: TTBXItem
|
||||
@ -229,9 +236,6 @@ inherited fEditorContratosCliente: TfEditorContratosCliente
|
||||
end
|
||||
object TBXSeparatorItem19: TTBXSeparatorItem
|
||||
end
|
||||
object TBXItem46: TTBXItem
|
||||
Action = actInformes
|
||||
end
|
||||
object TBXItem42: TTBXItem
|
||||
Action = actListadoBeneficios
|
||||
DisplayMode = nbdmImageAndText
|
||||
@ -2484,6 +2488,10 @@ inherited fEditorContratosCliente: TfEditorContratosCliente
|
||||
item
|
||||
Caption = 'Previsualizar la lista de contratos actual'
|
||||
Value = 200
|
||||
end
|
||||
item
|
||||
Caption = 'Listado facturas/cobros de cliente seleccionado'
|
||||
Value = 300
|
||||
end>
|
||||
ButtonBar.Buttons = [cbCancel]
|
||||
MainIcon = tdiCustom
|
||||
@ -2795,6 +2803,10 @@ inherited fEditorContratosCliente: TfEditorContratosCliente
|
||||
item
|
||||
Caption = 'Imprimir la lista de contratos actual'
|
||||
Value = 200
|
||||
end
|
||||
item
|
||||
Caption = 'Listado facturas/cobros de cliente seleccionado'
|
||||
Value = 300
|
||||
end>
|
||||
ButtonBar.Buttons = [cbCancel]
|
||||
MainIcon = tdiCustom
|
||||
|
||||
@ -561,6 +561,7 @@ procedure TfEditorContratosCliente.ImprimirInterno;
|
||||
var
|
||||
Respuesta : Integer;
|
||||
AContratos: IBizContratoCliente;
|
||||
AGestorInformesController : IGestorInformesController;
|
||||
AllItems: Boolean;
|
||||
begin
|
||||
AContratos := Nil;
|
||||
@ -593,6 +594,14 @@ begin
|
||||
if Assigned(AContratos) then
|
||||
FController.Print(AContratos, AllItems);
|
||||
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;
|
||||
@ -634,6 +643,7 @@ procedure TfEditorContratosCliente.PrevisualizarInterno;
|
||||
var
|
||||
Respuesta : Integer;
|
||||
AContratos: IBizContratoCliente;
|
||||
AGestorInformesController : IGestorInformesController;
|
||||
AllItems: Boolean;
|
||||
begin
|
||||
AContratos := Nil;
|
||||
@ -666,6 +676,14 @@ begin
|
||||
if Assigned(AContratos) then
|
||||
FController.Preview(AContratos, AllItems);
|
||||
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;
|
||||
|
||||
@ -19,6 +19,26 @@ inherited frViewContratosCliente: TfrViewContratosCliente
|
||||
Kind = skSum
|
||||
Position = spFooter
|
||||
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>
|
||||
DataController.Summary.FooterSummaryItems = <
|
||||
item
|
||||
@ -30,6 +50,16 @@ inherited frViewContratosCliente: TfrViewContratosCliente
|
||||
Format = ',0.00 '#8364';-,0.00 '#8364
|
||||
Kind = skSum
|
||||
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>
|
||||
OptionsView.GroupFooters = gfVisibleWhenExpanded
|
||||
object cxGridViewINCIDENCIASACTIVAS: TcxGridDBColumn
|
||||
@ -116,6 +146,22 @@ inherited frViewContratosCliente: TfrViewContratosCliente
|
||||
DataBinding.FieldName = 'PROVINCIA'
|
||||
Visible = False
|
||||
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
|
||||
Caption = 'Importe total'
|
||||
DataBinding.FieldName = 'IMPORTE_TOTAL'
|
||||
@ -130,7 +176,7 @@ inherited frViewContratosCliente: TfrViewContratosCliente
|
||||
Caption = 'Vendedor'
|
||||
DataBinding.FieldName = 'VENDEDOR'
|
||||
PropertiesClassName = 'TcxTextEditProperties'
|
||||
Properties.Alignment.Horz = taRightJustify
|
||||
Properties.Alignment.Horz = taLeftJustify
|
||||
end
|
||||
object cxGridViewLISTA_NOMBRES: TcxGridDBColumn
|
||||
Caption = 'Otros nombres'
|
||||
@ -160,26 +206,43 @@ inherited frViewContratosCliente: TfrViewContratosCliente
|
||||
StyleDisabled.LookAndFeel.SkinName = ''
|
||||
StyleFocused.LookAndFeel.SkinName = ''
|
||||
StyleHot.LookAndFeel.SkinName = ''
|
||||
ExplicitWidth = 806
|
||||
Width = 806
|
||||
ExplicitWidth = 250
|
||||
Width = 250
|
||||
end
|
||||
inherited edtFechaIniFiltro: TcxDateEdit
|
||||
Style.LookAndFeel.SkinName = ''
|
||||
StyleDisabled.LookAndFeel.SkinName = ''
|
||||
StyleFocused.LookAndFeel.SkinName = ''
|
||||
StyleHot.LookAndFeel.SkinName = ''
|
||||
ExplicitWidth = 285
|
||||
Width = 285
|
||||
ExplicitWidth = 250
|
||||
Width = 250
|
||||
end
|
||||
inherited edtFechaFinFiltro: TcxDateEdit
|
||||
Left = 389
|
||||
Left = 515
|
||||
Style.LookAndFeel.SkinName = ''
|
||||
StyleDisabled.LookAndFeel.SkinName = ''
|
||||
StyleFocused.LookAndFeel.SkinName = ''
|
||||
StyleHot.LookAndFeel.SkinName = ''
|
||||
ExplicitLeft = 389
|
||||
ExplicitWidth = 504
|
||||
Width = 504
|
||||
ExplicitLeft = 515
|
||||
ExplicitWidth = 250
|
||||
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
|
||||
inherited TBXAlignmentPanel1: TTBXAlignmentPanel
|
||||
@ -191,14 +254,6 @@ inherited frViewContratosCliente: TfrViewContratosCliente
|
||||
end
|
||||
end
|
||||
end
|
||||
inherited dxLayoutLookAndFeelList1: TdxLayoutLookAndFeelList
|
||||
Left = 56
|
||||
end
|
||||
inherited ActionList1: TActionList
|
||||
inherited actQuitarFiltro: TAction
|
||||
OnExecute = frViewFiltroBase1actQuitarFiltroExecute
|
||||
end
|
||||
end
|
||||
end
|
||||
inherited pnlAgrupaciones: TTBXDockablePanel
|
||||
Top = 499
|
||||
|
||||
@ -47,6 +47,8 @@ type
|
||||
cxGridViewVENDEDOR: TcxGridDBColumn;
|
||||
cxGridViewColumn1: TcxGridDBColumn;
|
||||
cxGridViewLISTA_NOMBRES: TcxGridDBColumn;
|
||||
cxGridViewBASE_IMPONIBLE: TcxGridDBColumn;
|
||||
cxGridViewIMPORTE_IVA: TcxGridDBColumn;
|
||||
procedure cxGridActiveTabChanged(Sender: TcxCustomGrid; ALevel:
|
||||
TcxGridLevel);
|
||||
procedure cxGridViewStylesGetContentStyle(Sender: TcxCustomGridTableView;
|
||||
|
||||
@ -669,6 +669,110 @@ object RptFacturasCliente: TRptFacturasCliente
|
||||
DataType = datCurrency
|
||||
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
|
||||
Params = <
|
||||
item
|
||||
@ -1491,7 +1595,7 @@ object RptFacturasCliente: TRptFacturasCliente
|
||||
PrintOptions.Printer = 'Por defecto'
|
||||
PrintOptions.PrintOnSheet = 0
|
||||
ReportOptions.CreateDate = 37800.807714351900000000
|
||||
ReportOptions.LastChange = 42143.652865393500000000
|
||||
ReportOptions.LastChange = 44648.779153101900000000
|
||||
ScriptLanguage = 'PascalScript'
|
||||
ShowProgress = False
|
||||
StoreInDFM = False
|
||||
@ -1716,4 +1820,76 @@ object RptFacturasCliente: TRptFacturasCliente
|
||||
Left = 256
|
||||
Top = 344
|
||||
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
|
||||
|
||||
@ -38,6 +38,9 @@ type
|
||||
frxDBInformeListadoFacturasResumen: TfrxDBDataset;
|
||||
frxPDFExport1: TfrxPDFExport;
|
||||
schReport: TDASchema;
|
||||
frxDBInformeListadoRecibos: TfrxDBDataset;
|
||||
DADSInformeListadoRecibos: TDADataSource;
|
||||
tbl_InformeListadoRecibos: TDAMemDataTable;
|
||||
procedure DataModuleCreate(Sender: TObject);
|
||||
procedure DataModuleDestroy(Sender: TObject);
|
||||
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 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 GenerarInformeListadoFacturasRecibos(const IdEmpresa: Integer; const ListaIDClientes: TIntegerArray; const Desglosado: Boolean; const FechaInicio, FechaFin: Variant): Binary;
|
||||
end;
|
||||
|
||||
implementation
|
||||
@ -75,7 +79,7 @@ implementation
|
||||
|
||||
uses
|
||||
uSistemaFunc, StrUtils, uROServer, DataAbstract4_Intf,
|
||||
uDataModuleServer, schFacturasClienteClient_Intf;
|
||||
uDataModuleServer, schFacturasClienteClient_Intf, schRecibosClienteClient_Intf;
|
||||
|
||||
const
|
||||
rptFacturaCliente = 'InfFacturaCliente.fr3';
|
||||
@ -86,6 +90,8 @@ const
|
||||
rptInformeListadoFacturasClienteDesglosado = 'InformeListadoFacturasClienteDesglosado.fr3';
|
||||
rptInformeListadoFactuasClientePendiente = 'InformeListadoFacturasClientePendientes.fr3';
|
||||
rptInformeListadoFactuasClientePendienteDesglosado = 'InformeListadoFacturasClientePendientesDesglosado.fr3';
|
||||
rptInformeListadoFacturasRecibosCliente = 'InformeListadoFacturasRecibosCliente.fr3';
|
||||
rptInformeListadoFacturasRecibosClienteDesglosado = 'InformeListadoFacturasRecibosClienteDesglosado.fr3';
|
||||
|
||||
ds_InformeListadoFacturasResumen = 'ListadoFacturasResumen';
|
||||
|
||||
@ -338,6 +344,59 @@ begin
|
||||
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;
|
||||
var
|
||||
ATextos : TStringList;
|
||||
@ -409,16 +468,37 @@ begin
|
||||
if not VarIsNull(FFechaInicio)
|
||||
and not VarIsNull(FFechaFin) then
|
||||
begin
|
||||
with ATabla.DynamicWhere do
|
||||
begin
|
||||
// (FECHA_INICIO between FECHA_FIN)
|
||||
Condicion := NewBinaryExpression(NewField('', fld_FacturasClienteFECHA_FACTURA), NewConstant(FFechaInicio, datDateTime), dboGreaterOrEqual);
|
||||
Condicion := NewBinaryExpression(NewBinaryExpression(NewField('', fld_FacturasClienteFECHA_FACTURA), NewConstant(FFechaFin, datDateTime), dboLessOrEqual), Condicion, dboAnd);
|
||||
if IsEmpty then
|
||||
Expression := Condicion
|
||||
else
|
||||
Expression := NewBinaryExpression(Expression, Condicion, dboAnd);
|
||||
end;
|
||||
//Solo aplicamos where si existe el campo (ya que en recibos no existe)
|
||||
if Assigned(ATabla.FindField(fld_FacturasClienteFECHA_FACTURA)) then
|
||||
with ATabla.DynamicWhere do
|
||||
begin
|
||||
// (FECHA_INICIO between FECHA_FIN)
|
||||
Condicion := NewBinaryExpression(NewField('', fld_FacturasClienteFECHA_FACTURA), NewConstant(FFechaInicio, datDateTime), dboGreaterOrEqual);
|
||||
Condicion := NewBinaryExpression(NewBinaryExpression(NewField('', fld_FacturasClienteFECHA_FACTURA), NewConstant(FFechaFin, datDateTime), dboLessOrEqual), Condicion, dboAnd);
|
||||
if IsEmpty then
|
||||
Expression := Condicion
|
||||
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;
|
||||
|
||||
// Filtrar el informe por fechas de vencimiento
|
||||
|
||||
@ -65,7 +65,7 @@ inherited fEditorFacturasCliente: TfEditorFacturasCliente
|
||||
end
|
||||
end
|
||||
inherited tbxFiltro: TTBXToolbar
|
||||
ExplicitWidth = 431
|
||||
ExplicitWidth = 356
|
||||
inherited lblAno: TTBXLabelItem
|
||||
Visible = True
|
||||
end
|
||||
@ -80,10 +80,10 @@ inherited fEditorFacturasCliente: TfEditorFacturasCliente
|
||||
ExplicitWidth = 640
|
||||
end
|
||||
inherited TBXTMain2: TTBXToolbar
|
||||
Left = 431
|
||||
Left = 356
|
||||
Visible = True
|
||||
ExplicitLeft = 431
|
||||
ExplicitWidth = 194
|
||||
ExplicitLeft = 356
|
||||
ExplicitWidth = 211
|
||||
object TBXItem42: TTBXItem
|
||||
Action = actCambiarSituacion
|
||||
DisplayMode = nbdmImageAndText
|
||||
@ -226,6 +226,16 @@ inherited fEditorFacturasCliente: TfEditorFacturasCliente
|
||||
ExplicitWidth = 263
|
||||
Width = 263
|
||||
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
|
||||
inherited TBXAlignmentPanel1: TTBXAlignmentPanel
|
||||
Width = 640
|
||||
@ -308,6 +318,7 @@ inherited fEditorFacturasCliente: TfEditorFacturasCliente
|
||||
object actCambiarSituacion: TAction
|
||||
Category = 'Archivo'
|
||||
Caption = 'Cambio de situaci'#243'n'
|
||||
ImageIndex = 27
|
||||
OnExecute = actCambiarSituacionExecute
|
||||
end
|
||||
object actNuevaProforma: TAction
|
||||
@ -1088,6 +1099,25 @@ inherited fEditorFacturasCliente: TfEditorFacturasCliente
|
||||
AE426082}
|
||||
Name = 'PngImage26'
|
||||
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>
|
||||
Left = 395
|
||||
Bitmap = {}
|
||||
@ -2612,6 +2642,10 @@ inherited fEditorFacturasCliente: TfEditorFacturasCliente
|
||||
item
|
||||
Caption = 'Previsualizar la lista de facturas actual'
|
||||
Value = 200
|
||||
end
|
||||
item
|
||||
Caption = 'Listado facturas/cobros de cliente seleccionado'
|
||||
Value = 300
|
||||
end>
|
||||
ButtonBar.Buttons = [cbCancel]
|
||||
MainIcon = tdiCustom
|
||||
@ -2923,6 +2957,10 @@ inherited fEditorFacturasCliente: TfEditorFacturasCliente
|
||||
item
|
||||
Caption = 'Imprimir la lista de facturas actual'
|
||||
Value = 200
|
||||
end
|
||||
item
|
||||
Caption = 'Listado facturas/cobros de cliente seleccionado'
|
||||
Value = 300
|
||||
end>
|
||||
ButtonBar.Buttons = [cbCancel]
|
||||
MainIcon = tdiCustom
|
||||
@ -3862,6 +3900,10 @@ inherited fEditorFacturasCliente: TfEditorFacturasCliente
|
||||
item
|
||||
Caption = 'Listado de facturas'
|
||||
Value = 300
|
||||
end
|
||||
item
|
||||
Caption = 'Listado facturas/cobros de cliente seleccionado'
|
||||
Value = 400
|
||||
end>
|
||||
ButtonBar.Buttons = [cbCancel]
|
||||
MainIcon = tdiCustom
|
||||
|
||||
@ -218,6 +218,9 @@ begin
|
||||
300 : begin // Listado de facturas de cliente
|
||||
AGestorInformesController.VerInformeListadoFacturasCli;
|
||||
end;
|
||||
400: begin // Listado de facturas/cobros de cliente
|
||||
AGestorInformesController.VerInformeListadoFacturasRecibosCli(Facturas.ID_CLIENTE);
|
||||
end;
|
||||
end;
|
||||
end;
|
||||
|
||||
@ -420,6 +423,7 @@ procedure TfEditorFacturasCliente.ImprimirInterno;
|
||||
var
|
||||
Respuesta : Integer;
|
||||
AFacturas: IBizFacturaCliente;
|
||||
AGestorInformesController : IGestorInformesController;
|
||||
AllItems: Boolean;
|
||||
begin
|
||||
AFacturas := Nil;
|
||||
@ -452,6 +456,14 @@ begin
|
||||
if Assigned(AFacturas) then
|
||||
FController.Print(AFacturas, AllItems);
|
||||
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;
|
||||
@ -527,6 +539,7 @@ procedure TfEditorFacturasCliente.PrevisualizarInterno;
|
||||
var
|
||||
Respuesta : Integer;
|
||||
AFacturas: IBizFacturaCliente;
|
||||
AGestorInformesController : IGestorInformesController;
|
||||
AllItems: Boolean;
|
||||
begin
|
||||
AFacturas := Nil;
|
||||
@ -559,6 +572,14 @@ begin
|
||||
if Assigned(AFacturas) then
|
||||
FController.Preview(AFacturas, AllItems);
|
||||
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;
|
||||
|
||||
@ -1372,7 +1372,8 @@ begin
|
||||
ARecibos.IMPORTE := AFactura.IMPORTE_TOTAL * (AFormaPago.Plazos.PORCENTAJE / 100);
|
||||
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);
|
||||
|
||||
if (AFormaPago.Plazos.RecordCount < 1) and (not AFormaPago.ID_SUBCUENTAIsNull) then
|
||||
|
||||
@ -31,8 +31,6 @@ object fEditorFormaPago: TfEditorFormaPago
|
||||
Align = alClient
|
||||
TabOrder = 0
|
||||
TabStop = False
|
||||
ExplicitWidth = 412
|
||||
ExplicitHeight = 515
|
||||
object Bevel4: TBevel
|
||||
Left = 10
|
||||
Top = 329
|
||||
|
||||
@ -162,6 +162,9 @@ end;
|
||||
|
||||
procedure TfEditorFormaPago.actAnadirExecute(Sender: TObject);
|
||||
begin
|
||||
if Assigned(FFormaPago) and (FFormaPago.State = dsInsert) then
|
||||
FController.Guardar(FFormaPago);
|
||||
|
||||
FPlazos.Append;
|
||||
end;
|
||||
|
||||
|
||||
@ -43,6 +43,9 @@ contains
|
||||
uIEditorInformeFacturasProveedorReport in 'View\uIEditorInformeFacturasProveedorReport.pas',
|
||||
uIEditorInformePresupuestosReport in 'View\uIEditorInformePresupuestosReport.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.
|
||||
|
||||
@ -47,6 +47,7 @@
|
||||
<DCCReference Include="View\uIEditorInformeFacturasClienteReport.pas" />
|
||||
<DCCReference Include="View\uIEditorInformeFacturasProveedorPendientesReport.pas" />
|
||||
<DCCReference Include="View\uIEditorInformeFacturasProveedorReport.pas" />
|
||||
<DCCReference Include="View\uIEditorInformeFacturasRecibosClienteReport.pas" />
|
||||
<DCCReference Include="View\uIEditorInformeIVAClientesReport.pas" />
|
||||
<DCCReference Include="View\uIEditorInformeIVAProveedoresReport.pas" />
|
||||
<DCCReference Include="View\uIEditorInformePedidosReport.pas" />
|
||||
@ -55,11 +56,13 @@
|
||||
<DCCReference Include="View\uIEditorInformeRecibosCliPendientesReport.pas" />
|
||||
<DCCReference Include="View\uIEditorInformeRecibosProveedorReport.pas" />
|
||||
<DCCReference Include="View\uIEditorInformeRecibosProvPendientesReport.pas" />
|
||||
<DCCReference Include="View\uIViewFiltroClientes.pas" />
|
||||
<DCCReference Include="View\uIViewParametrosInforme.pas" />
|
||||
</ItemGroup>
|
||||
</Project>
|
||||
<!-- EurekaLog First Line
|
||||
[Exception Log]
|
||||
EurekaLog Version=6011
|
||||
EurekaLog Version=6006
|
||||
Activate=0
|
||||
Activate Handle=1
|
||||
Save Log File=1
|
||||
|
||||
@ -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.
|
||||
@ -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.
|
||||
@ -0,0 +1,15 @@
|
||||
unit uIViewParametrosInforme;
|
||||
|
||||
interface
|
||||
|
||||
uses
|
||||
uViewBase;
|
||||
|
||||
type
|
||||
IViewParametrosInforme = interface(IViewBase)
|
||||
['{2578FF9E-F084-4603-81D8-32450E3865B7}']
|
||||
end;
|
||||
|
||||
implementation
|
||||
|
||||
end.
|
||||
@ -22,6 +22,7 @@ type
|
||||
procedure VerInformeIVAClientes;
|
||||
procedure VerInformeListadoFacturasCli;
|
||||
procedure VerInformeListadoFacturasCliPendientes;
|
||||
procedure VerInformeListadoFacturasRecibosCli(const ID_CLIENTE: Integer);
|
||||
|
||||
//MODULO RECIBOS DE CLIENTE
|
||||
procedure VerInformeListadoRecibosCliPendientes;
|
||||
@ -68,6 +69,7 @@ type
|
||||
procedure VerInformeIVAClientes;
|
||||
procedure VerInformeListadoFacturasCli;
|
||||
procedure VerInformeListadoFacturasCliPendientes;
|
||||
procedure VerInformeListadoFacturasRecibosCli(const ID_CLIENTE: Integer);
|
||||
|
||||
//MODULO RECIBOS DE CLIENTE
|
||||
procedure VerInformeListadoRecibosCliPendientes;
|
||||
@ -98,7 +100,7 @@ uses
|
||||
uIEditorInformeIVAProveedoresReport, uIEditorInformeFacturasProveedorReport,
|
||||
uIEditorInformeFacturasProveedorPendientesReport, uIEditorInformeRecibosProveedorReport,
|
||||
uIEditorInformeRecibosProvPendientesReport,
|
||||
uIEditorInformePedidosReport;
|
||||
uIEditorInformePedidosReport, uIEditorInformeFacturasRecibosClienteReport;
|
||||
|
||||
|
||||
{procedure CopiarArticulosPedido(AOrigen: IBizDetallesPedidoCliente;
|
||||
@ -411,6 +413,30 @@ begin
|
||||
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;
|
||||
var
|
||||
AStream: Binary;
|
||||
|
||||
@ -10,12 +10,12 @@ inherited DataModuleGestorInformes: TDataModuleGestorInformes
|
||||
Top = 16
|
||||
end
|
||||
object rda_GestorInformes: TDARemoteDataAdapter
|
||||
DataStreamer = Bin2DataStreamer
|
||||
GetSchemaCall.RemoteService = RORemoteService
|
||||
GetDataCall.RemoteService = RORemoteService
|
||||
UpdateDataCall.RemoteService = RORemoteService
|
||||
GetScriptsCall.RemoteService = RORemoteService
|
||||
RemoteService = RORemoteService
|
||||
DataStreamer = Bin2DataStreamer
|
||||
Left = 43
|
||||
Top = 135
|
||||
end
|
||||
@ -47,8 +47,6 @@ inherited DataModuleGestorInformes: TDataModuleGestorInformes
|
||||
end>
|
||||
StreamingOptions = [soDisableEventsWhileStreaming]
|
||||
RemoteDataAdapter = rda_GestorInformes
|
||||
DetailOptions = [dtCascadeOpenClose, dtCascadeApplyUpdates, dtAutoFetch, dtCascadeDelete, dtCascadeUpdate, dtDisableLogOfCascadeDeletes, dtDisableLogOfCascadeUpdates, dtIncludeInAllInOneFetch]
|
||||
MasterOptions = [moCascadeOpenClose, moCascadeApplyUpdates, moCascadeDelete, moCascadeUpdate, moDisableLogOfCascadeDeletes, moDisableLogOfCascadeUpdates]
|
||||
LogicalName = 'DirectoryData'
|
||||
IndexDefs = <>
|
||||
Left = 184
|
||||
|
||||
@ -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 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 GenerarInformeListadoFacturasRecibosCli(const IdEmpresa: Integer; const ListaIDClientes: TIntegerArray; const Desglosado: Boolean; const FechaInicio: Variant; const FechaFin: Variant): Binary;
|
||||
|
||||
//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;
|
||||
@ -127,6 +128,16 @@ begin
|
||||
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(
|
||||
const IdEmpresa: Integer; const FechaInicio, FechaFin: Variant;
|
||||
const ListaIDClientes: TIntegerArray; const Desglosado: Boolean;
|
||||
|
||||
@ -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 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 GenerarInformeListadoFacturasRecibosCli(const IdEmpresa: Integer; const ListaIDClientes: TIntegerArray; const Desglosado: Boolean; const FechaInicio: Variant; const FechaFin: Variant): Binary;
|
||||
|
||||
//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;
|
||||
|
||||
@ -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 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 GenerarInformeListadoFacturasRecibosCli(const IdEmpresa: Integer; const ListadoIDClientes: TIntegerArray; const Desglosado: Boolean; const FechaInicio: Variant;
|
||||
const FechaFin: Variant): Binary;
|
||||
|
||||
//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;
|
||||
@ -248,6 +250,20 @@ begin
|
||||
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(
|
||||
const IdEmpresa: Integer; const FechaInicio, FechaFin: Variant;
|
||||
const ListaIDClientes: TIntegerArray; const Desglosado: Boolean;
|
||||
|
||||
@ -31,7 +31,39 @@ requires
|
||||
Contactos_view,
|
||||
GestorInformes_controller,
|
||||
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
|
||||
uGestorInformesViewRegister in 'uGestorInformesViewRegister.pas',
|
||||
@ -50,6 +82,7 @@ contains
|
||||
uEditorInformeRecibosProvPendientesReport in 'uEditorInformeRecibosProvPendientesReport.pas' {fEditorInformeRecibosProvPendientesReport: TForm},
|
||||
uEditorInformeFacturasProveedorPendientesReport in 'uEditorInformeFacturasProveedorPendientesReport.pas' {fEditorInformeFacturasProveedorPendientesReport: 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.
|
||||
|
||||
@ -38,13 +38,45 @@
|
||||
<DelphiCompile Include="GestorInformes_view.dpk">
|
||||
<MainSource>MainSource</MainSource>
|
||||
</DelphiCompile>
|
||||
<DCCReference Include="..\..\Facturas de cliente\ApplicationBase.dcp" />
|
||||
<DCCReference Include="..\..\Facturas de cliente\Base.dcp" />
|
||||
<DCCReference Include="..\..\Facturas de cliente\Contactos_controller.dcp" />
|
||||
<DCCReference Include="..\..\Facturas de cliente\Contactos_model.dcp" />
|
||||
<DCCReference Include="..\..\Facturas de cliente\Contactos_view.dcp" />
|
||||
<DCCReference Include="..\..\Facturas de cliente\GestorInformes_controller.dcp" />
|
||||
<DCCReference Include="..\..\Facturas de cliente\GUIBase.dcp" />
|
||||
<DCCReference Include="..\..\Contratos de cliente\ApplicationBase.dcp" />
|
||||
<DCCReference Include="..\..\Contratos de cliente\Base.dcp" />
|
||||
<DCCReference Include="..\..\Contratos de cliente\bdertl.dcp" />
|
||||
<DCCReference Include="..\..\Contratos de cliente\Contactos_controller.dcp" />
|
||||
<DCCReference Include="..\..\Contratos de cliente\Contactos_model.dcp" />
|
||||
<DCCReference Include="..\..\Contratos de cliente\Contactos_view.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">
|
||||
<Form>fEditorInformeBase</Form>
|
||||
<DesignClass>TForm</DesignClass>
|
||||
@ -65,6 +97,10 @@
|
||||
<Form>fEditorInformeFacturasProveedorReport</Form>
|
||||
<DesignClass>TForm</DesignClass>
|
||||
</DCCReference>
|
||||
<DCCReference Include="uEditorInformeFacturasRecibosClienteReport.pas">
|
||||
<Form>fEditorInformeFacturasRecibosClienteReport</Form>
|
||||
<DesignClass>TForm</DesignClass>
|
||||
</DCCReference>
|
||||
<DCCReference Include="uEditorInformeIVAClientesReport.pas">
|
||||
<Form>fEditorInformeIVAClientesReport</Form>
|
||||
<DesignClass>TForm</DesignClass>
|
||||
|
||||
@ -30,16 +30,18 @@ inherited fEditorInformeBase: TfEditorInformeBase
|
||||
end
|
||||
object TBXMultiDockIzquierdo: TTBXMultiDock [3]
|
||||
Left = 0
|
||||
Top = 116
|
||||
Top = 102
|
||||
Width = 7
|
||||
Height = 506
|
||||
Height = 520
|
||||
Position = dpLeft
|
||||
ExplicitTop = 116
|
||||
ExplicitHeight = 506
|
||||
end
|
||||
object TBXMultiDockDerecho: TTBXMultiDock [4]
|
||||
Left = 447
|
||||
Top = 116
|
||||
Top = 102
|
||||
Width = 340
|
||||
Height = 506
|
||||
Height = 520
|
||||
Position = dpRight
|
||||
object pnlParametros: TTBXDockablePanel
|
||||
Left = 0
|
||||
@ -60,16 +62,16 @@ inherited fEditorInformeBase: TfEditorInformeBase
|
||||
Left = 0
|
||||
Top = 0
|
||||
Width = 336
|
||||
Height = 467
|
||||
Height = 482
|
||||
Align = alClient
|
||||
TabOrder = 0
|
||||
TabStop = False
|
||||
AutoContentSizes = [acsWidth, acsHeight]
|
||||
LookAndFeel = dxLayoutOfficeLookAndFeel1
|
||||
ExplicitHeight = 105
|
||||
ExplicitHeight = 106
|
||||
object TBXButton1: TTBXButton
|
||||
Left = 11
|
||||
Top = 432
|
||||
Top = 447
|
||||
Width = 121
|
||||
Height = 24
|
||||
Action = actRefrescar
|
||||
|
||||
@ -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
|
||||
@ -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.
|
||||
@ -10,7 +10,7 @@ implementation
|
||||
uses
|
||||
uEditorRegistryUtils,
|
||||
uEditorInformeIVAClientesReport, uEditorInformeFacturasClienteReport, uEditorInformeFacturasClientePendientesReport,
|
||||
uEditorInformeRecibosClienteReport, uEditorInformeRecibosCliPendientesReport,
|
||||
uEditorInformeRecibosClienteReport, uEditorInformeRecibosCliPendientesReport, uEditorInformeFacturasRecibosClienteReport,
|
||||
uEditorInformePresupuestosReport,
|
||||
|
||||
uEditorInformeIVAProveedoresReport, uEditorInformeFacturasProveedorReport, uEditorInformeFacturasProveedorPendientesReport,
|
||||
@ -21,6 +21,7 @@ begin
|
||||
EditorRegistry.RegisterClass(TfEditorInformePresupuestosReport, 'EditorInformePresupuestosReport');
|
||||
EditorRegistry.RegisterClass(TfEditorInformeIVAClientesReport, 'EditorInformeIVAClientesReport');
|
||||
EditorRegistry.RegisterClass(TfEditorInformeFacturasClienteReport, 'EditorInformeFacturasClienteReport');
|
||||
EditorRegistry.RegisterClass(TfEditorInformeFacturasRecibosClienteReport, 'EditorInformeFacturasRecibosClienteReport');
|
||||
EditorRegistry.RegisterClass(TfEditorInformeFacturasClientePendientesReport, 'EditorInformeFacturasClientePendientesReport');
|
||||
EditorRegistry.RegisterClass(TfEditorInformeRecibosClienteReport, 'EditorInformeRecibosClienteReport');
|
||||
EditorRegistry.RegisterClass(TfEditorInformeRecibosCliPendientesReport, 'EditorInformeRecibosCliPendientesReport');
|
||||
|
||||
@ -6,13 +6,9 @@ uses
|
||||
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
|
||||
Dialogs, uViewBase, cxControls, cxContainer, cxEdit, cxTextEdit, cxDBEdit,
|
||||
StdCtrls, Buttons, TBXDkPanels, uViewParametrosInforme, uBizContactos,
|
||||
uClientesController, dxLayoutControl, dxLayoutLookAndFeels;
|
||||
uClientesController, dxLayoutControl, dxLayoutLookAndFeels, uIViewFiltroClientes;
|
||||
|
||||
type
|
||||
IViewFiltroClientes = interface(IViewParametrosInforme)
|
||||
['{129906DA-8E64-4312-8095-A04F8007CF7F}']
|
||||
end;
|
||||
|
||||
TfrViewFiltroClientes = class(TfrViewParametrosInforme, IViewFiltroClientes)
|
||||
rbTodosClientes: TRadioButton;
|
||||
rbUnCliente: TRadioButton;
|
||||
@ -36,9 +32,14 @@ type
|
||||
procedure CustomViewDestroy(Sender: TObject);
|
||||
private
|
||||
FCliente : IBizCliente;
|
||||
FClientesController : IClientesController;
|
||||
FClientesController : IClientesController;
|
||||
function getIdCliente: Integer;
|
||||
procedure setIdCliente(const IdCliente:Integer);
|
||||
|
||||
public
|
||||
property IdCliente : Integer read getIdCliente write setIdCliente;
|
||||
property Cliente : IBizCliente read FCliente;
|
||||
|
||||
end;
|
||||
|
||||
implementation
|
||||
@ -77,6 +78,11 @@ begin
|
||||
FClientesController := NIL;
|
||||
end;
|
||||
|
||||
function TfrViewFiltroClientes.getIdCliente: Integer;
|
||||
begin
|
||||
Result := FCliente.ID;
|
||||
end;
|
||||
|
||||
procedure TfrViewFiltroClientes.rbTodosClientesClick(Sender: TObject);
|
||||
begin
|
||||
if rbTodosClientes.Checked then
|
||||
@ -101,4 +107,17 @@ begin
|
||||
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.
|
||||
|
||||
@ -12,6 +12,7 @@ inherited fEditorPresupuestoCliente: TfEditorPresupuestoCliente
|
||||
inherited JvNavPanelHeader: TJvNavPanelHeader
|
||||
Width = 848
|
||||
Caption = 'Nuevo presupuesto de cliente'
|
||||
ExplicitTop = 49
|
||||
ExplicitWidth = 848
|
||||
inherited Image1: TImage
|
||||
Left = 821
|
||||
@ -129,7 +130,7 @@ inherited fEditorPresupuestoCliente: TfEditorPresupuestoCliente
|
||||
Width = 848
|
||||
ExplicitWidth = 848
|
||||
inherited tbxMain: TTBXToolbar
|
||||
ExplicitWidth = 634
|
||||
ExplicitWidth = 488
|
||||
inherited TBXItem2: TTBXItem
|
||||
Visible = False
|
||||
end
|
||||
@ -176,17 +177,16 @@ inherited fEditorPresupuestoCliente: TfEditorPresupuestoCliente
|
||||
end
|
||||
inherited pgPaginas: TPageControl
|
||||
Width = 842
|
||||
Height = 433
|
||||
ActivePage = pagDocumentos
|
||||
Height = 442
|
||||
TabOrder = 1
|
||||
OnChanging = pgPaginasChanging
|
||||
ExplicitWidth = 842
|
||||
ExplicitHeight = 433
|
||||
ExplicitHeight = 442
|
||||
inherited pagGeneral: TTabSheet
|
||||
ExplicitLeft = 4
|
||||
ExplicitTop = 24
|
||||
ExplicitWidth = 834
|
||||
ExplicitHeight = 289
|
||||
ExplicitHeight = 414
|
||||
end
|
||||
object pagContenido: TTabSheet
|
||||
Caption = 'Contenido'
|
||||
@ -195,7 +195,7 @@ inherited fEditorPresupuestoCliente: TfEditorPresupuestoCliente
|
||||
Left = 0
|
||||
Top = 0
|
||||
Width = 834
|
||||
Height = 405
|
||||
Height = 414
|
||||
Align = alClient
|
||||
BiDiMode = bdLeftToRight
|
||||
Font.Charset = DEFAULT_CHARSET
|
||||
@ -208,7 +208,7 @@ inherited fEditorPresupuestoCliente: TfEditorPresupuestoCliente
|
||||
TabOrder = 0
|
||||
ReadOnly = False
|
||||
ExplicitWidth = 834
|
||||
ExplicitHeight = 405
|
||||
ExplicitHeight = 414
|
||||
inherited ToolBar1: TToolBar
|
||||
Width = 834
|
||||
Height = 24
|
||||
@ -293,12 +293,12 @@ inherited fEditorPresupuestoCliente: TfEditorPresupuestoCliente
|
||||
end
|
||||
end
|
||||
inherited cxGrid: TcxGrid
|
||||
Top = 53
|
||||
Top = 50
|
||||
Width = 834
|
||||
Height = 352
|
||||
ExplicitTop = 53
|
||||
Height = 364
|
||||
ExplicitTop = 50
|
||||
ExplicitWidth = 834
|
||||
ExplicitHeight = 352
|
||||
ExplicitHeight = 364
|
||||
end
|
||||
inherited TBXDock1: TTBXDock
|
||||
Top = 24
|
||||
@ -306,7 +306,7 @@ inherited fEditorPresupuestoCliente: TfEditorPresupuestoCliente
|
||||
ExplicitTop = 24
|
||||
ExplicitWidth = 834
|
||||
inherited TBXToolbar1: TTBXToolbar
|
||||
ExplicitWidth = 834
|
||||
ExplicitWidth = 665
|
||||
end
|
||||
end
|
||||
inherited cxLookupComboBox1: TcxLookupComboBox
|
||||
@ -327,7 +327,7 @@ inherited fEditorPresupuestoCliente: TfEditorPresupuestoCliente
|
||||
Left = 0
|
||||
Top = 0
|
||||
Width = 834
|
||||
Height = 405
|
||||
Height = 414
|
||||
Align = alClient
|
||||
TabOrder = 0
|
||||
TabStop = False
|
||||
@ -374,7 +374,7 @@ inherited fEditorPresupuestoCliente: TfEditorPresupuestoCliente
|
||||
Left = 0
|
||||
Top = 0
|
||||
Width = 834
|
||||
Height = 405
|
||||
Height = 414
|
||||
Align = alClient
|
||||
Font.Charset = DEFAULT_CHARSET
|
||||
Font.Color = clWindowText
|
||||
@ -385,7 +385,7 @@ inherited fEditorPresupuestoCliente: TfEditorPresupuestoCliente
|
||||
TabOrder = 0
|
||||
ReadOnly = False
|
||||
ExplicitWidth = 834
|
||||
ExplicitHeight = 405
|
||||
ExplicitHeight = 414
|
||||
inherited pnlSup: TPanel
|
||||
Width = 834
|
||||
ExplicitWidth = 834
|
||||
@ -395,13 +395,13 @@ inherited fEditorPresupuestoCliente: TfEditorPresupuestoCliente
|
||||
end
|
||||
inherited GroupBox1: TGroupBox
|
||||
Width = 834
|
||||
Height = 377
|
||||
Height = 386
|
||||
ExplicitWidth = 834
|
||||
ExplicitHeight = 377
|
||||
ExplicitHeight = 386
|
||||
inherited eIncidencias: TcxDBMemo
|
||||
ExplicitWidth = 830
|
||||
ExplicitHeight = 360
|
||||
Height = 360
|
||||
ExplicitHeight = 369
|
||||
Height = 369
|
||||
Width = 830
|
||||
end
|
||||
end
|
||||
@ -415,7 +415,7 @@ inherited fEditorPresupuestoCliente: TfEditorPresupuestoCliente
|
||||
Left = 0
|
||||
Top = 0
|
||||
Width = 834
|
||||
Height = 405
|
||||
Height = 414
|
||||
Align = alClient
|
||||
Font.Charset = DEFAULT_CHARSET
|
||||
Font.Color = clWindowText
|
||||
@ -426,17 +426,16 @@ inherited fEditorPresupuestoCliente: TfEditorPresupuestoCliente
|
||||
TabOrder = 0
|
||||
ReadOnly = False
|
||||
ExplicitWidth = 834
|
||||
ExplicitHeight = 405
|
||||
ExplicitHeight = 414
|
||||
inherited TBXDock: TTBXDock
|
||||
Width = 834
|
||||
ExplicitWidth = 834
|
||||
end
|
||||
inherited ListView1: TListView
|
||||
Width = 834
|
||||
Height = 376
|
||||
ExplicitTop = 29
|
||||
Height = 391
|
||||
ExplicitWidth = 834
|
||||
ExplicitHeight = 376
|
||||
ExplicitHeight = 391
|
||||
end
|
||||
inherited EditorActionList: TActionList
|
||||
Left = 8
|
||||
|
||||
@ -121,8 +121,9 @@ uses
|
||||
procedure TfEditorPresupuestoCliente.actEliminarUpdate(Sender: TObject);
|
||||
begin
|
||||
inherited;
|
||||
if (Sender as TAction).Enabled then
|
||||
(Sender as TAction).Enabled := (FPresupuesto.SITUACION = SITUACION_PRESUPUESTO_PENDIENTE);
|
||||
// if (Sender as TAction).Enabled then
|
||||
// (Sender as TAction).Enabled := (FPresupuesto.SITUACION = SITUACION_PRESUPUESTO_PENDIENTE);
|
||||
(Sender as TAction).Enabled := False;
|
||||
end;
|
||||
|
||||
procedure TfEditorPresupuestoCliente.actEnviarPorEMailExecute(Sender: TObject);
|
||||
|
||||
@ -2,6 +2,7 @@ inherited fEditorPresupuestosCliente: TfEditorPresupuestosCliente
|
||||
Caption = 'Lista de presupuestos de cliente'
|
||||
ClientWidth = 805
|
||||
ExplicitWidth = 813
|
||||
ExplicitHeight = 478
|
||||
PixelsPerInch = 96
|
||||
TextHeight = 13
|
||||
inherited JvNavPanelHeader: TJvNavPanelHeader
|
||||
@ -124,7 +125,7 @@ inherited fEditorPresupuestosCliente: TfEditorPresupuestosCliente
|
||||
Width = 805
|
||||
ExplicitWidth = 805
|
||||
inherited tbxMain: TTBXToolbar
|
||||
ExplicitWidth = 805
|
||||
ExplicitWidth = 751
|
||||
object TBXSubmenuItem3: TTBXSubmenuItem [0]
|
||||
Caption = 'Nuevo'
|
||||
DisplayMode = nbdmImageAndText
|
||||
@ -160,7 +161,7 @@ inherited fEditorPresupuestosCliente: TfEditorPresupuestosCliente
|
||||
end
|
||||
end
|
||||
inherited tbxFiltro: TTBXToolbar
|
||||
ExplicitWidth = 431
|
||||
ExplicitWidth = 481
|
||||
inherited lblAno: TTBXLabelItem
|
||||
Visible = True
|
||||
end
|
||||
@ -170,6 +171,10 @@ inherited fEditorPresupuestosCliente: TfEditorPresupuestosCliente
|
||||
inherited sepAno: TTBXSeparatorItem
|
||||
Visible = True
|
||||
end
|
||||
inherited tbxEditFiltro2: TTBXEditItem
|
||||
Enabled = True
|
||||
Visible = True
|
||||
end
|
||||
end
|
||||
inherited tbxMenu: TTBXToolbar
|
||||
ExplicitWidth = 805
|
||||
@ -193,10 +198,10 @@ inherited fEditorPresupuestosCliente: TfEditorPresupuestosCliente
|
||||
end
|
||||
end
|
||||
inherited TBXTMain2: TTBXToolbar
|
||||
Left = 431
|
||||
Left = 481
|
||||
DockPos = 343
|
||||
Visible = True
|
||||
ExplicitLeft = 431
|
||||
ExplicitLeft = 481
|
||||
ExplicitWidth = 252
|
||||
object TBXItem43: TTBXItem
|
||||
Action = actAceptar
|
||||
|
||||
@ -21,6 +21,18 @@ inherited frViewPresupuestosCliente: TfrViewPresupuestosCliente
|
||||
Kind = skSum
|
||||
Position = spFooter
|
||||
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>
|
||||
DataController.Summary.FooterSummaryItems = <
|
||||
item
|
||||
@ -32,6 +44,16 @@ inherited frViewPresupuestosCliente: TfrViewPresupuestosCliente
|
||||
Format = ',0.00 '#8364';-,0.00 '#8364
|
||||
Kind = skSum
|
||||
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>
|
||||
OptionsCustomize.ColumnHidingOnGrouping = False
|
||||
OptionsView.GroupFooters = gfAlwaysVisible
|
||||
@ -108,6 +130,22 @@ inherited frViewPresupuestosCliente: TfrViewPresupuestosCliente
|
||||
DataBinding.FieldName = 'NOMBRE'
|
||||
Width = 271
|
||||
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
|
||||
Caption = 'Importe total'
|
||||
DataBinding.FieldName = 'IMPORTE_TOTAL'
|
||||
@ -134,8 +172,7 @@ inherited frViewPresupuestosCliente: TfrViewPresupuestosCliente
|
||||
Caption = 'Vendedor'
|
||||
DataBinding.FieldName = 'VENDEDOR'
|
||||
PropertiesClassName = 'TcxTextEditProperties'
|
||||
Properties.Alignment.Horz = taRightJustify
|
||||
HeaderAlignmentHorz = taRightJustify
|
||||
Properties.Alignment.Horz = taLeftJustify
|
||||
end
|
||||
end
|
||||
inherited cxGridLevel: TcxGridLevel
|
||||
@ -164,26 +201,43 @@ inherited frViewPresupuestosCliente: TfrViewPresupuestosCliente
|
||||
StyleDisabled.LookAndFeel.SkinName = ''
|
||||
StyleFocused.LookAndFeel.SkinName = ''
|
||||
StyleHot.LookAndFeel.SkinName = ''
|
||||
ExplicitWidth = 806
|
||||
Width = 806
|
||||
ExplicitWidth = 250
|
||||
Width = 250
|
||||
end
|
||||
inherited edtFechaIniFiltro: TcxDateEdit
|
||||
Style.LookAndFeel.SkinName = ''
|
||||
StyleDisabled.LookAndFeel.SkinName = ''
|
||||
StyleFocused.LookAndFeel.SkinName = ''
|
||||
StyleHot.LookAndFeel.SkinName = ''
|
||||
ExplicitWidth = 285
|
||||
Width = 285
|
||||
ExplicitWidth = 250
|
||||
Width = 250
|
||||
end
|
||||
inherited edtFechaFinFiltro: TcxDateEdit
|
||||
Left = 389
|
||||
Left = 515
|
||||
Style.LookAndFeel.SkinName = ''
|
||||
StyleDisabled.LookAndFeel.SkinName = ''
|
||||
StyleFocused.LookAndFeel.SkinName = ''
|
||||
StyleHot.LookAndFeel.SkinName = ''
|
||||
ExplicitLeft = 389
|
||||
ExplicitWidth = 504
|
||||
Width = 504
|
||||
ExplicitLeft = 515
|
||||
ExplicitWidth = 250
|
||||
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
|
||||
inherited TBXAlignmentPanel1: TTBXAlignmentPanel
|
||||
@ -195,14 +249,6 @@ inherited frViewPresupuestosCliente: TfrViewPresupuestosCliente
|
||||
end
|
||||
end
|
||||
end
|
||||
inherited dxLayoutLookAndFeelList1: TdxLayoutLookAndFeelList
|
||||
Left = 56
|
||||
end
|
||||
inherited ActionList1: TActionList
|
||||
inherited actQuitarFiltro: TAction
|
||||
OnExecute = frViewFiltroBase1actQuitarFiltroExecute
|
||||
end
|
||||
end
|
||||
end
|
||||
inherited pnlAgrupaciones: TTBXDockablePanel
|
||||
Top = 499
|
||||
|
||||
@ -49,6 +49,8 @@ type
|
||||
cxGridViewColumn1: TcxGridDBColumn;
|
||||
cxGridViewLISTA_NOMBRES: TcxGridDBColumn;
|
||||
cxGridViewVENDEDOR: TcxGridDBColumn;
|
||||
cxGridViewBASE_IMPONIBLE: TcxGridDBColumn;
|
||||
cxGridViewIMPORTE_IVA: TcxGridDBColumn;
|
||||
procedure cxGridActiveTabChanged(Sender: TcxCustomGrid; ALevel:
|
||||
TcxGridLevel);
|
||||
procedure cxGridViewStylesGetContentStyle(Sender: TcxCustomGridTableView;
|
||||
@ -73,7 +75,6 @@ type
|
||||
procedure OnFiltroListaPropertiesInitPopup(Sender: TObject);
|
||||
procedure CustomViewDestroy(Sender: TObject);
|
||||
procedure CustomViewShow(Sender: TObject);
|
||||
procedure frViewFiltroBase1actQuitarFiltroExecute(Sender: TObject);
|
||||
|
||||
private
|
||||
//Filtros relativos a la vista
|
||||
@ -305,12 +306,6 @@ begin
|
||||
end;
|
||||
end;
|
||||
|
||||
procedure TfrViewPresupuestosCliente.frViewFiltroBase1actQuitarFiltroExecute(Sender: TObject);
|
||||
begin
|
||||
frViewFiltroBase1.txtFiltroTodo.Clear;
|
||||
// frViewFiltroBase1.eLista.Clear;
|
||||
end;
|
||||
|
||||
procedure TfrViewPresupuestosCliente.OnFiltroListaPropertiesChange(Sender: TObject);
|
||||
begin
|
||||
inherited;
|
||||
|
||||
@ -41,10 +41,10 @@ inherited fEditorRecibosCliente: TfEditorRecibosCliente
|
||||
Width = 645
|
||||
ExplicitWidth = 645
|
||||
inherited tbxMain: TTBXToolbar
|
||||
ExplicitWidth = 645
|
||||
ExplicitWidth = 561
|
||||
end
|
||||
inherited tbxFiltro: TTBXToolbar
|
||||
ExplicitWidth = 431
|
||||
ExplicitWidth = 356
|
||||
inherited lblAno: TTBXLabelItem
|
||||
Visible = True
|
||||
end
|
||||
@ -59,9 +59,9 @@ inherited fEditorRecibosCliente: TfEditorRecibosCliente
|
||||
ExplicitWidth = 645
|
||||
end
|
||||
inherited TBXTMain2: TTBXToolbar
|
||||
Left = 431
|
||||
Left = 356
|
||||
Visible = True
|
||||
ExplicitLeft = 431
|
||||
ExplicitLeft = 356
|
||||
ExplicitWidth = 66
|
||||
object TBXItem38: TTBXItem
|
||||
Action = actInformes
|
||||
@ -161,6 +161,14 @@ inherited fEditorRecibosCliente: TfEditorRecibosCliente
|
||||
ExplicitWidth = 295
|
||||
Width = 295
|
||||
end
|
||||
inherited txtFiltroTodo2: TcxTextEdit
|
||||
Style.LookAndFeel.SkinName = ''
|
||||
StyleDisabled.LookAndFeel.SkinName = ''
|
||||
StyleFocused.LookAndFeel.SkinName = ''
|
||||
StyleHot.LookAndFeel.SkinName = ''
|
||||
ExplicitWidth = 250
|
||||
Width = 250
|
||||
end
|
||||
end
|
||||
inherited TBXAlignmentPanel1: TTBXAlignmentPanel
|
||||
Width = 645
|
||||
@ -1633,6 +1641,10 @@ inherited fEditorRecibosCliente: TfEditorRecibosCliente
|
||||
item
|
||||
Caption = 'Previsualizar la lista de recibos actual'
|
||||
Value = 200
|
||||
end
|
||||
item
|
||||
Caption = 'Listado facturas/cobros de cliente seleccionado'
|
||||
Value = 300
|
||||
end>
|
||||
ButtonBar.Buttons = [cbCancel]
|
||||
MainIcon = tdiCustom
|
||||
@ -1944,6 +1956,10 @@ inherited fEditorRecibosCliente: TfEditorRecibosCliente
|
||||
item
|
||||
Caption = 'Imprimir la lista de recibos actual'
|
||||
Value = 200
|
||||
end
|
||||
item
|
||||
Caption = 'Listado facturas/cobros de cliente seleccionado'
|
||||
Value = 300
|
||||
end>
|
||||
ButtonBar.Buttons = [cbCancel]
|
||||
MainIcon = tdiCustom
|
||||
@ -2255,6 +2271,10 @@ inherited fEditorRecibosCliente: TfEditorRecibosCliente
|
||||
item
|
||||
Caption = 'Listado de recibos'
|
||||
Value = 200
|
||||
end
|
||||
item
|
||||
Caption = 'Listado facturas/cobros de cliente seleccionado'
|
||||
Value = 300
|
||||
end>
|
||||
ButtonBar.Buttons = [cbCancel]
|
||||
MainIcon = tdiCustom
|
||||
|
||||
@ -117,6 +117,9 @@ begin
|
||||
200 : begin // Listado de recibos de cliente
|
||||
AGestorInformesController.VerInformeListadoRecibosCliente;
|
||||
end;
|
||||
300: begin // Listado de facturas/cobros de cliente
|
||||
AGestorInformesController.VerInformeListadoFacturasRecibosCli(RecibosCliente.ID_CLIENTE);
|
||||
end;
|
||||
end;
|
||||
end;
|
||||
|
||||
@ -223,6 +226,7 @@ procedure TfEditorRecibosCliente.ImprimirInterno;
|
||||
var
|
||||
Respuesta : Integer;
|
||||
ARecibosCliente: IBizRecibosCliente;
|
||||
AGestorInformesController : IGestorInformesController;
|
||||
AllItems: Boolean;
|
||||
begin
|
||||
ARecibosCliente := Nil;
|
||||
@ -255,6 +259,14 @@ begin
|
||||
if Assigned(ARecibosCliente) then
|
||||
FController.Preview(ARecibosCliente, AllItems);
|
||||
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;
|
||||
@ -295,6 +307,7 @@ procedure TfEditorRecibosCliente.PrevisualizarInterno;
|
||||
var
|
||||
Respuesta : Integer;
|
||||
ARecibosCliente: IBizRecibosCliente;
|
||||
AGestorInformesController : IGestorInformesController;
|
||||
AllItems: Boolean;
|
||||
begin
|
||||
ARecibosCliente := Nil;
|
||||
@ -327,6 +340,14 @@ begin
|
||||
if Assigned(ARecibosCliente) then
|
||||
FController.Preview(ARecibosCliente, AllItems);
|
||||
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;
|
||||
|
||||
@ -392,6 +392,10 @@
|
||||
</Parameter>
|
||||
<Parameter Name="VerPrecios" DataType="Boolean" Flag="In" >
|
||||
</Parameter>
|
||||
<Parameter Name="VerTrabajos" DataType="Boolean" Flag="In" >
|
||||
</Parameter>
|
||||
<Parameter Name="VerIncidencias" DataType="Boolean" Flag="In" >
|
||||
</Parameter>
|
||||
</Parameters>
|
||||
</Operation>
|
||||
<Operation Name="GenerarInformeEtiquetas" UID="{260CD213-F125-422B-9BD1-401729460DF0}">
|
||||
@ -901,6 +905,22 @@
|
||||
</Parameter>
|
||||
</Parameters>
|
||||
</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>
|
||||
</Interface>
|
||||
</Interfaces>
|
||||
|
||||
@ -598,7 +598,7 @@ type
|
||||
{ IsrvAlbaranesCliente }
|
||||
IsrvAlbaranesCliente = interface(IDataAbstractService)
|
||||
['{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;
|
||||
end;
|
||||
|
||||
@ -612,7 +612,7 @@ type
|
||||
protected
|
||||
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;
|
||||
end;
|
||||
|
||||
@ -820,6 +820,8 @@ type
|
||||
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;
|
||||
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;
|
||||
|
||||
{ CosrvGestorInformes }
|
||||
@ -854,6 +856,8 @@ type
|
||||
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;
|
||||
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;
|
||||
|
||||
{ IsrvContratosCliente }
|
||||
@ -1992,13 +1996,15 @@ begin
|
||||
result := 'srvAlbaranesCliente';
|
||||
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
|
||||
try
|
||||
result := nil;
|
||||
__Message.InitializeRequestMessage(__TransportChannel, 'FactuGES', __InterfaceName, 'GenerarInforme');
|
||||
__Message.Write('ListaID', TypeInfo(FactuGES_Intf.TIntegerArray), ListaID, []);
|
||||
__Message.Write('VerPrecios', TypeInfo(Boolean), VerPrecios, []);
|
||||
__Message.Write('VerTrabajos', TypeInfo(Boolean), VerTrabajos, []);
|
||||
__Message.Write('VerIncidencias', TypeInfo(Boolean), VerIncidencias, []);
|
||||
__Message.Finalize;
|
||||
|
||||
__TransportChannel.Dispatch(__Message);
|
||||
@ -2762,6 +2768,28 @@ begin
|
||||
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 }
|
||||
|
||||
class function CosrvContratosCliente.Create(const aMessage: IROMessage; aTransportChannel: IROTransportChannel): IsrvContratosCliente;
|
||||
|
||||
@ -317,6 +317,7 @@ type
|
||||
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_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;
|
||||
|
||||
TsrvContratosCliente_Invoker = class(TDataAbstractService_Invoker)
|
||||
@ -1172,10 +1173,12 @@ begin
|
||||
end;
|
||||
|
||||
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
|
||||
ListaID: FactuGES_Intf.TIntegerArray;
|
||||
VerPrecios: Boolean;
|
||||
VerTrabajos: Boolean;
|
||||
VerIncidencias: Boolean;
|
||||
lResult: Binary;
|
||||
__lObjectDisposer: TROObjectDisposer;
|
||||
begin
|
||||
@ -1184,8 +1187,10 @@ begin
|
||||
try
|
||||
__Message.Read('ListaID', TypeInfo(FactuGES_Intf.TIntegerArray), ListaID, []);
|
||||
__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.Write('Result', TypeInfo(Binary), lResult, []);
|
||||
@ -2276,6 +2281,45 @@ begin
|
||||
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 }
|
||||
|
||||
constructor TsrvContratosCliente_Invoker.Create;
|
||||
|
||||
Binary file not shown.
@ -37,7 +37,6 @@ uses
|
||||
uBizVendedoresServer in '..\Modulos\Contactos\Model\uBizVendedoresServer.pas',
|
||||
schTiposIVAServer_Intf in '..\Modulos\Tipos de IVA\Model\schTiposIVAServer_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},
|
||||
uBizPresupuestosClienteServer in '..\Modulos\Presupuestos de cliente\Model\uBizPresupuestosClienteServer.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},
|
||||
schContactosClient_Intf in '..\Modulos\Contactos\Model\schContactosClient_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',
|
||||
schRecibosClienteServer_Intf in '..\Modulos\Recibos de cliente\Model\schRecibosClienteServer_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',
|
||||
schPresupuestosClienteServer_Intf in '..\Modulos\Presupuestos de cliente\Model\schPresupuestosClienteServer_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 ..\Servicios\RODLFile.res}
|
||||
|
||||
@ -28,7 +28,7 @@
|
||||
<Borland.Personality>Delphi.Personality</Borland.Personality>
|
||||
<Borland.ProjectType/>
|
||||
<BorlandProject>
|
||||
<BorlandProject><Delphi.Personality><Parameters><Parameters Name="UseLauncher">False</Parameters><Parameters Name="LoadAllSymbols">True</Parameters><Parameters Name="LoadUnspecifiedSymbols">False</Parameters></Parameters><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><Source><Source Name="MainSource">FactuGES_Server.dpr</Source></Source></Delphi.Personality></BorlandProject></BorlandProject>
|
||||
</ProjectExtensions>
|
||||
|
||||
@ -1,7 +1,7 @@
|
||||
MAINICON ICON "C:\Codigo Acana\Resources\Iconos\Servidor.ico"
|
||||
1 VERSIONINFO
|
||||
FILEVERSION 3,4,0,0
|
||||
PRODUCTVERSION 3,4,0,0
|
||||
FILEVERSION 3,6,1,0
|
||||
PRODUCTVERSION 3,6,1,0
|
||||
FILEFLAGSMASK 0x3FL
|
||||
FILEFLAGS 0x00L
|
||||
FILEOS 0x40004L
|
||||
@ -13,10 +13,10 @@ BEGIN
|
||||
BLOCK "0C0A04E4"
|
||||
BEGIN
|
||||
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 "ProductVersion", "3.4.0.0\0"
|
||||
VALUE "CompileDate", "domingo, 06 de febrero de 2022 22:43\0"
|
||||
VALUE "ProductVersion", "3.6.1.0\0"
|
||||
VALUE "CompileDate", "martes, 23 de agosto de 2022 12:45\0"
|
||||
END
|
||||
END
|
||||
BLOCK "VarFileInfo"
|
||||
|
||||
Binary file not shown.
Loading…
Reference in New Issue
Block a user