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

Subida de objetivos de agente funcionando sobre facturas de cliente

Browse Source 
git-svn-id: https://192.168.0.254/svn/Proyectos.LuisLeon_FactuGES2/trunk@151 b2cfbe5a-eba1-4a0c-8b32-7feea0a119f2
This commit is contained in:
roberto 2012-02-13 18:26:36 +00:00
parent 2c9ef7e0be
commit 507b9f15a6
22 changed files with 1505 additions and 506 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

104
Source/Base/Base.dproj
View File

@ -54,58 +54,58 @@
<DelphiCompile Include="Base.dpk"> <DelphiCompile Include="Base.dpk">
<MainSource>MainSource</MainSource> <MainSource>MainSource</MainSource>
</DelphiCompile> </DelphiCompile>
<DCCReference Include="..\Modulos\Gestor de informes\adortl.dcp" /> <DCCReference Include="..\Modulos\Gestor de informes\Views\adortl.dcp" />
<DCCReference Include="..\Modulos\Gestor de informes\cxDataD11.dcp" /> <DCCReference Include="..\Modulos\Gestor de informes\Views\cxDataD11.dcp" />
<DCCReference Include="..\Modulos\Gestor de informes\cxEditorsD11.dcp" /> <DCCReference Include="..\Modulos\Gestor de informes\Views\cxEditorsD11.dcp" />
<DCCReference Include="..\Modulos\Gestor de informes\cxExportD11.dcp" /> <DCCReference Include="..\Modulos\Gestor de informes\Views\cxExportD11.dcp" />
<DCCReference Include="..\Modulos\Gestor de informes\cxExtEditorsD11.dcp" /> <DCCReference Include="..\Modulos\Gestor de informes\Views\cxExtEditorsD11.dcp" />
<DCCReference Include="..\Modulos\Gestor de informes\cxGridD11.dcp" /> <DCCReference Include="..\Modulos\Gestor de informes\Views\cxGridD11.dcp" />
<DCCReference Include="..\Modulos\Gestor de informes\cxIntl6D11.dcp" /> <DCCReference Include="..\Modulos\Gestor de informes\Views\cxIntl6D11.dcp" />
<DCCReference Include="..\Modulos\Gestor de informes\cxIntlPrintSys3D11.dcp" /> <DCCReference Include="..\Modulos\Gestor de informes\Views\cxIntlPrintSys3D11.dcp" />
<DCCReference Include="..\Modulos\Gestor de informes\cxLibraryD11.dcp" /> <DCCReference Include="..\Modulos\Gestor de informes\Views\cxLibraryD11.dcp" />
<DCCReference Include="..\Modulos\Gestor de informes\cxPageControlD11.dcp" /> <DCCReference Include="..\Modulos\Gestor de informes\Views\cxPageControlD11.dcp" />
<DCCReference Include="..\Modulos\Gestor de informes\DataAbstract_Core_D11.dcp" /> <DCCReference Include="..\Modulos\Gestor de informes\Views\DataAbstract_Core_D11.dcp" />
<DCCReference Include="..\Modulos\Gestor de informes\dbrtl.dcp" /> <DCCReference Include="..\Modulos\Gestor de informes\Views\dbrtl.dcp" />
<DCCReference Include="..\Modulos\Gestor de informes\dclIndyCore.dcp" /> <DCCReference Include="..\Modulos\Gestor de informes\Views\dclIndyCore.dcp" />
<DCCReference Include="..\Modulos\Gestor de informes\designide.dcp" /> <DCCReference Include="..\Modulos\Gestor de informes\Views\designide.dcp" />
<DCCReference Include="..\Modulos\Gestor de informes\dsnap.dcp" /> <DCCReference Include="..\Modulos\Gestor de informes\Views\dsnap.dcp" />
<DCCReference Include="..\Modulos\Gestor de informes\dxCoreD11.dcp" /> <DCCReference Include="..\Modulos\Gestor de informes\Views\dxCoreD11.dcp" />
<DCCReference Include="..\Modulos\Gestor de informes\dxGDIPlusD11.dcp" /> <DCCReference Include="..\Modulos\Gestor de informes\Views\dxGDIPlusD11.dcp" />
<DCCReference Include="..\Modulos\Gestor de informes\dxPSCoreD11.dcp" /> <DCCReference Include="..\Modulos\Gestor de informes\Views\dxPSCoreD11.dcp" />
<DCCReference Include="..\Modulos\Gestor de informes\dxThemeD11.dcp" /> <DCCReference Include="..\Modulos\Gestor de informes\Views\dxThemeD11.dcp" />
<DCCReference Include="..\Modulos\Gestor de informes\GUISDK_D11R.dcp" /> <DCCReference Include="..\Modulos\Gestor de informes\Views\GUISDK_D11R.dcp" />
<DCCReference Include="..\Modulos\Gestor de informes\IndyCore.dcp" /> <DCCReference Include="..\Modulos\Gestor de informes\Views\IndyCore.dcp" />
<DCCReference Include="..\Modulos\Gestor de informes\IndyProtocols.dcp" /> <DCCReference Include="..\Modulos\Gestor de informes\Views\IndyProtocols.dcp" />
<DCCReference Include="..\Modulos\Gestor de informes\IndySystem.dcp" /> <DCCReference Include="..\Modulos\Gestor de informes\Views\IndySystem.dcp" />
<DCCReference Include="..\Modulos\Gestor de informes\Jcl.dcp" /> <DCCReference Include="..\Modulos\Gestor de informes\Views\Jcl.dcp" />
<DCCReference Include="..\Modulos\Gestor de informes\JclVcl.dcp" /> <DCCReference Include="..\Modulos\Gestor de informes\Views\JclVcl.dcp" />
<DCCReference Include="..\Modulos\Gestor de informes\JSDialog100.dcp" /> <DCCReference Include="..\Modulos\Gestor de informes\Views\JSDialog100.dcp" />
<DCCReference Include="..\Modulos\Gestor de informes\JvCmpD11R.dcp" /> <DCCReference Include="..\Modulos\Gestor de informes\Views\JvCmpD11R.dcp" />
<DCCReference Include="..\Modulos\Gestor de informes\JvCoreD11R.dcp" /> <DCCReference Include="..\Modulos\Gestor de informes\Views\JvCoreD11R.dcp" />
<DCCReference Include="..\Modulos\Gestor de informes\JvCtrlsD11R.dcp" /> <DCCReference Include="..\Modulos\Gestor de informes\Views\JvCtrlsD11R.dcp" />
<DCCReference Include="..\Modulos\Gestor de informes\JvDlgsD11R.dcp" /> <DCCReference Include="..\Modulos\Gestor de informes\Views\JvDlgsD11R.dcp" />
<DCCReference Include="..\Modulos\Gestor de informes\JvMMD11R.dcp" /> <DCCReference Include="..\Modulos\Gestor de informes\Views\JvMMD11R.dcp" />
<DCCReference Include="..\Modulos\Gestor de informes\JvNetD11R.dcp" /> <DCCReference Include="..\Modulos\Gestor de informes\Views\JvNetD11R.dcp" />
<DCCReference Include="..\Modulos\Gestor de informes\JvPageCompsD11R.dcp" /> <DCCReference Include="..\Modulos\Gestor de informes\Views\JvPageCompsD11R.dcp" />
<DCCReference Include="..\Modulos\Gestor de informes\JvStdCtrlsD11R.dcp" /> <DCCReference Include="..\Modulos\Gestor de informes\Views\JvStdCtrlsD11R.dcp" />
<DCCReference Include="..\Modulos\Gestor de informes\JvSystemD11R.dcp" /> <DCCReference Include="..\Modulos\Gestor de informes\Views\JvSystemD11R.dcp" />
<DCCReference Include="..\Modulos\Gestor de informes\pckMD5.dcp" /> <DCCReference Include="..\Modulos\Gestor de informes\Views\pckMD5.dcp" />
<DCCReference Include="..\Modulos\Gestor de informes\pckUCDataConnector.dcp" /> <DCCReference Include="..\Modulos\Gestor de informes\Views\pckUCDataConnector.dcp" />
<DCCReference Include="..\Modulos\Gestor de informes\pckUserControl_RT.dcp" /> <DCCReference Include="..\Modulos\Gestor de informes\Views\pckUserControl_RT.dcp" />
<DCCReference Include="..\Modulos\Gestor de informes\PngComponentsD10.dcp" /> <DCCReference Include="..\Modulos\Gestor de informes\Views\PngComponentsD10.dcp" />
<DCCReference Include="..\Modulos\Gestor de informes\PNG_D10.dcp" /> <DCCReference Include="..\Modulos\Gestor de informes\Views\PNG_D10.dcp" />
<DCCReference Include="..\Modulos\Gestor de informes\RemObjects_Core_D11.dcp" /> <DCCReference Include="..\Modulos\Gestor de informes\Views\RemObjects_Core_D11.dcp" />
<DCCReference Include="..\Modulos\Gestor de informes\RemObjects_Indy_D11.dcp" /> <DCCReference Include="..\Modulos\Gestor de informes\Views\RemObjects_Indy_D11.dcp" />
<DCCReference Include="..\Modulos\Gestor de informes\rtl.dcp" /> <DCCReference Include="..\Modulos\Gestor de informes\Views\rtl.dcp" />
<DCCReference Include="..\Modulos\Gestor de informes\TB2k_D10.dcp" /> <DCCReference Include="..\Modulos\Gestor de informes\Views\TB2k_D10.dcp" />
<DCCReference Include="..\Modulos\Gestor de informes\tbx_d10.dcp" /> <DCCReference Include="..\Modulos\Gestor de informes\Views\tbx_d10.dcp" />
<DCCReference Include="..\Modulos\Gestor de informes\vcl.dcp" /> <DCCReference Include="..\Modulos\Gestor de informes\Views\vcl.dcp" />
<DCCReference Include="..\Modulos\Gestor de informes\vclactnband.dcp" /> <DCCReference Include="..\Modulos\Gestor de informes\Views\vclactnband.dcp" />
<DCCReference Include="..\Modulos\Gestor de informes\vcldb.dcp" /> <DCCReference Include="..\Modulos\Gestor de informes\Views\vcldb.dcp" />
<DCCReference Include="..\Modulos\Gestor de informes\vcljpg.dcp" /> <DCCReference Include="..\Modulos\Gestor de informes\Views\vcljpg.dcp" />
<DCCReference Include="..\Modulos\Gestor de informes\VclSmp.dcp" /> <DCCReference Include="..\Modulos\Gestor de informes\Views\VclSmp.dcp" />
<DCCReference Include="..\Modulos\Gestor de informes\vclx.dcp" /> <DCCReference Include="..\Modulos\Gestor de informes\Views\vclx.dcp" />
<DCCReference Include="..\Modulos\Gestor de informes\xmlrtl.dcp" /> <DCCReference Include="..\Modulos\Gestor de informes\Views\xmlrtl.dcp" />
<DCCReference Include="..\Modulos\Impresiones\Data\uDataModuleImpresiones.pas"> <DCCReference Include="..\Modulos\Impresiones\Data\uDataModuleImpresiones.pas">
<Form>DataModuleImpresiones</Form> <Form>DataModuleImpresiones</Form>
<DesignClass>TDataModule</DesignClass> <DesignClass>TDataModule</DesignClass>

8
Source/Cliente/FactuGES.rc
View File

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

12
Source/Informes/1/InformeObjetivosAgentesAlbaranes.fr3
View File

@ -1,5 +1,5 @@
<?xml version="1.0" encoding="utf-8"?> <?xml version="1.0" encoding="utf-8"?>
<TfrxReport Version="4.7.71" DotMatrixReport="False" EngineOptions.DoublePass="True" IniFile="\Software\Fast Reports" PreviewOptions.Buttons="4095" PreviewOptions.Zoom="1" PrintOptions.Printer="Por defecto" PrintOptions.PrintOnSheet="0" ReportOptions.CreateDate="37800,8077143519" ReportOptions.Description.Text="" ReportOptions.LastChange="40942,6681015741" ScriptLanguage="PascalScript" ScriptText.Text="procedure mContinuaOnBeforePrint(Sender: TfrxComponent);&#13;&#10;begin&#13;&#10; if Engine.FinalPass then&#13;&#10; begin&#13;&#10; if (&#60;Page#&#62; = &#60;TotalPages#&#62;) then&#13;&#10; begin &#13;&#10; mContinua.Visible := False;&#13;&#10; end &#13;&#10; else&#13;&#10; begin &#13;&#10; mContinua.Visible := True;&#13;&#10; end &#13;&#10; end; &#13;&#10;end;&#13;&#10;&#13;&#10;begin&#13;&#10;&#13;&#10;end." ShowProgress="False" StoreInDFM="False" OnStartReport="frxReportOnStartReport" PropData="044C65667403910003546F70021008446174617365747301010C4400000020446174615365743D226672784442496E666F726D654F626A657469766F732220446174615365744E616D653D226672784442496E666F726D654F626A657469766F73220000095661726961626C657301010C13000000204E616D653D2220506172616D6574726F732200010C17000000204E616D653D22546578746F506172616D6574726F73220000055374796C650100"> <TfrxReport Version="4.7.71" DotMatrixReport="False" EngineOptions.DoublePass="True" IniFile="\Software\Fast Reports" PreviewOptions.Buttons="4095" PreviewOptions.Zoom="1" PrintOptions.Printer="Por defecto" PrintOptions.PrintOnSheet="0" ReportOptions.CreateDate="37800,8077143519" ReportOptions.Description.Text="" ReportOptions.LastChange="40952,7636454282" ScriptLanguage="PascalScript" ScriptText.Text="procedure mContinuaOnBeforePrint(Sender: TfrxComponent);&#13;&#10;begin&#13;&#10; if Engine.FinalPass then&#13;&#10; begin&#13;&#10; if (&#60;Page#&#62; = &#60;TotalPages#&#62;) then&#13;&#10; begin &#13;&#10; mContinua.Visible := False;&#13;&#10; end &#13;&#10; else&#13;&#10; begin &#13;&#10; mContinua.Visible := True;&#13;&#10; end &#13;&#10; end; &#13;&#10;end;&#13;&#10;&#13;&#10;begin&#13;&#10;&#13;&#10;end." ShowProgress="False" StoreInDFM="False" OnStartReport="frxReportOnStartReport" PropData="044C65667403910003546F70021008446174617365747301010C4400000020446174615365743D226672784442496E666F726D654F626A657469766F732220446174615365744E616D653D226672784442496E666F726D654F626A657469766F73220000095661726961626C657301010C13000000204E616D653D2220506172616D6574726F732200010C17000000204E616D653D22546578746F506172616D6574726F73220000055374796C650100">
<TfrxDataPage Name="Data" Height="1000" Left="0" Top="0" Width="1000"/> <TfrxDataPage Name="Data" Height="1000" Left="0" Top="0" Width="1000"/>
<TfrxReportPage Name="Page1" Orientation="poLandscape" PaperWidth="297" PaperHeight="210" PaperSize="9" LeftMargin="15" RightMargin="15" TopMargin="15" BottomMargin="20" ColumnWidth="0" ColumnPositions.Text="" HGuides.Text="" VGuides.Text=""> <TfrxReportPage Name="Page1" Orientation="poLandscape" PaperWidth="297" PaperHeight="210" PaperSize="9" LeftMargin="15" RightMargin="15" TopMargin="15" BottomMargin="20" ColumnWidth="0" ColumnPositions.Text="" HGuides.Text="" VGuides.Text="">
<TfrxPageHeader Name="Band1" Height="104,10235" Left="0" Top="16" Width="1009,13451" OnBeforePrint="Band1OnBeforePrint"> <TfrxPageHeader Name="Band1" Height="104,10235" Left="0" Top="16" Width="1009,13451" OnBeforePrint="Band1OnBeforePrint">
@ -32,8 +32,8 @@
<TfrxMemoView Name="Memo20" Align="baLeft" Left="298" Top="0" Width="100" Height="17,00787402" ShowHint="False" StretchMode="smMaxHeight" Color="-16777194" DisplayFormat.DecimalSeparator="," DisplayFormat.FormatStr="%2.2m" DisplayFormat.Kind="fkNumeric" Font.Charset="1" Font.Color="16384" Font.Height="-12" Font.Name="Tahoma" Font.Style="0" Frame.Typ="15" HAlign="haRight" HideZeros="True" ParentFont="False" Text="[frxDBInformeObjetivos.&#34;IMPORTE_OBJETIVO&#34;]"/> <TfrxMemoView Name="Memo20" Align="baLeft" Left="298" Top="0" Width="100" Height="17,00787402" ShowHint="False" StretchMode="smMaxHeight" Color="-16777194" DisplayFormat.DecimalSeparator="," DisplayFormat.FormatStr="%2.2m" DisplayFormat.Kind="fkNumeric" Font.Charset="1" Font.Color="16384" Font.Height="-12" Font.Name="Tahoma" Font.Style="0" Frame.Typ="15" HAlign="haRight" HideZeros="True" ParentFont="False" Text="[frxDBInformeObjetivos.&#34;IMPORTE_OBJETIVO&#34;]"/>
<TfrxMemoView Name="Memo21" Align="baLeft" Left="103" Top="0" Width="50" Height="17,00787402" ShowHint="False" StretchMode="smMaxHeight" DisplayFormat.DecimalSeparator="," DisplayFormat.FormatStr="%g" DisplayFormat.Kind="fkNumeric" Font.Charset="1" Font.Color="16384" Font.Height="-12" Font.Name="Tahoma" Font.Style="0" Frame.Typ="15" HAlign="haCenter" HideZeros="True" ParentFont="False" Text="[frxDBInformeObjetivos.&#34;ALTAS_CLIENTE&#34;]"/> <TfrxMemoView Name="Memo21" Align="baLeft" Left="103" Top="0" Width="50" Height="17,00787402" ShowHint="False" StretchMode="smMaxHeight" DisplayFormat.DecimalSeparator="," DisplayFormat.FormatStr="%g" DisplayFormat.Kind="fkNumeric" Font.Charset="1" Font.Color="16384" Font.Height="-12" Font.Name="Tahoma" Font.Style="0" Frame.Typ="15" HAlign="haCenter" HideZeros="True" ParentFont="False" Text="[frxDBInformeObjetivos.&#34;ALTAS_CLIENTE&#34;]"/>
<TfrxMemoView Name="Memo18" Align="baLeft" Left="0" Top="0" Width="103" Height="17,00787402" ShowHint="False" StretchMode="smMaxHeight" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="16384" Font.Height="-12" Font.Name="Tahoma" Font.Style="0" Frame.Typ="15" ParentFont="False" Text="[frxDBInformeObjetivos.&#34;DESCRIPCION&#34;]"/> <TfrxMemoView Name="Memo18" Align="baLeft" Left="0" Top="0" Width="103" Height="17,00787402" ShowHint="False" StretchMode="smMaxHeight" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="16384" Font.Height="-12" Font.Name="Tahoma" Font.Style="0" Frame.Typ="15" ParentFont="False" Text="[frxDBInformeObjetivos.&#34;DESCRIPCION&#34;]"/>
<TfrxMemoView Name="Memo29" Align="baLeft" Left="398" Top="0" Width="100" Height="17,00787402" ShowHint="False" StretchMode="smMaxHeight" DisplayFormat.DecimalSeparator="," DisplayFormat.FormatStr="%g" DisplayFormat.Kind="fkNumeric" Font.Charset="1" Font.Color="16384" Font.Height="-12" Font.Name="Tahoma" Font.Style="0" Frame.Typ="15" HAlign="haCenter" ParentFont="False" Text="[frxDBInformeObjetivos.&#34;CANTIDAD_CONSEGUIDA&#34;] / [frxDBInformeObjetivos.&#34;CANTIDAD_DEVUELTA&#34;]"/> <TfrxMemoView Name="Memo29" Align="baLeft" Left="398" Top="0" Width="100" Height="17,00787402" ShowHint="False" StretchMode="smMaxHeight" DisplayFormat.DecimalSeparator="," DisplayFormat.FormatStr="%g" DisplayFormat.Kind="fkNumeric" Font.Charset="1" Font.Color="16384" Font.Height="-12" Font.Name="Tahoma" Font.Style="0" Frame.Typ="15" HAlign="haCenter" ParentFont="False" Text="[frxDBInformeObjetivos.&#34;CANTIDAD_CONSEGUIDA&#34;] / [frxDBInformeObjetivos.&#34;CANTIDAD_DEVUELTA&#34;] = [frxDBInformeObjetivos.&#34;CANTIDAD_TOTAL_CONSEGUIDA&#34;]"/>
<TfrxMemoView Name="Memo30" Align="baLeft" Left="498" Top="0" Width="100" Height="17,00787402" ShowHint="False" StretchMode="smMaxHeight" DisplayFormat.DecimalSeparator="," DisplayFormat.FormatStr="%2.2m" DisplayFormat.Kind="fkNumeric" Font.Charset="1" Font.Color="16384" Font.Height="-12" Font.Name="Tahoma" Font.Style="0" Frame.Typ="15" HAlign="haRight" HideZeros="True" ParentFont="False" Text="[frxDBInformeObjetivos.&#34;IMPORTE_CONSEGUIDO&#34;]"/> <TfrxMemoView Name="Memo30" Align="baLeft" Left="498" Top="0" Width="100" Height="17,00787402" ShowHint="False" StretchMode="smMaxHeight" DisplayFormat.DecimalSeparator="," DisplayFormat.FormatStr="%2.2m" DisplayFormat.Kind="fkNumeric" Font.Charset="1" Font.Color="16384" Font.Height="-12" Font.Name="Tahoma" Font.Style="0" Frame.Typ="15" HAlign="haRight" HideZeros="True" ParentFont="False" Text="[frxDBInformeObjetivos.&#34;IMPORTE_TOTAL_CONSEGUIDO&#34;]"/>
<TfrxMemoView Name="Memo31" Left="598" Top="0" Width="95" Height="17,00787402" ShowHint="False" StretchMode="smMaxHeight" Color="-16777194" DisplayFormat.DecimalSeparator="," DisplayFormat.FormatStr="%g" DisplayFormat.Kind="fkNumeric" Font.Charset="1" Font.Color="16384" Font.Height="-12" Font.Name="Tahoma" Font.Style="0" Frame.Typ="15" HAlign="haCenter" HideZeros="True" ParentFont="False" Text="[frxDBInformeObjetivos.&#34;CANTIDAD_RESULTADO&#34;]"/> <TfrxMemoView Name="Memo31" Left="598" Top="0" Width="95" Height="17,00787402" ShowHint="False" StretchMode="smMaxHeight" Color="-16777194" DisplayFormat.DecimalSeparator="," DisplayFormat.FormatStr="%g" DisplayFormat.Kind="fkNumeric" Font.Charset="1" Font.Color="16384" Font.Height="-12" Font.Name="Tahoma" Font.Style="0" Frame.Typ="15" HAlign="haCenter" HideZeros="True" ParentFont="False" Text="[frxDBInformeObjetivos.&#34;CANTIDAD_RESULTADO&#34;]"/>
<TfrxMemoView Name="Memo5" Align="baLeft" Left="153" Top="0" Width="65" Height="17,00787402" ShowHint="False" StretchMode="smMaxHeight" DisplayFormat.DecimalSeparator="," DisplayFormat.FormatStr="%g" DisplayFormat.Kind="fkNumeric" Font.Charset="1" Font.Color="16384" Font.Height="-12" Font.Name="Tahoma" Font.Style="0" Frame.Typ="15" HAlign="haCenter" HideZeros="True" ParentFont="False" Text="[frxDBInformeObjetivos.&#34;CLIENTES_TOTALES&#34;]"/> <TfrxMemoView Name="Memo5" Align="baLeft" Left="153" Top="0" Width="65" Height="17,00787402" ShowHint="False" StretchMode="smMaxHeight" DisplayFormat.DecimalSeparator="," DisplayFormat.FormatStr="%g" DisplayFormat.Kind="fkNumeric" Font.Charset="1" Font.Color="16384" Font.Height="-12" Font.Name="Tahoma" Font.Style="0" Frame.Typ="15" HAlign="haCenter" HideZeros="True" ParentFont="False" Text="[frxDBInformeObjetivos.&#34;CLIENTES_TOTALES&#34;]"/>
<TfrxMemoView Name="Memo12" Left="693" Top="0" Width="105" Height="17,00787402" ShowHint="False" StretchMode="smMaxHeight" Color="-16777194" DisplayFormat.DecimalSeparator="," DisplayFormat.FormatStr="%2.2m" DisplayFormat.Kind="fkNumeric" Font.Charset="1" Font.Color="16384" Font.Height="-12" Font.Name="Tahoma" Font.Style="0" Frame.Typ="15" HAlign="haRight" HideZeros="True" ParentFont="False" Text="[frxDBInformeObjetivos.&#34;IMPORTE_RESULTADO&#34;]"/> <TfrxMemoView Name="Memo12" Left="693" Top="0" Width="105" Height="17,00787402" ShowHint="False" StretchMode="smMaxHeight" Color="-16777194" DisplayFormat.DecimalSeparator="," DisplayFormat.FormatStr="%2.2m" DisplayFormat.Kind="fkNumeric" Font.Charset="1" Font.Color="16384" Font.Height="-12" Font.Name="Tahoma" Font.Style="0" Frame.Typ="15" HAlign="haRight" HideZeros="True" ParentFont="False" Text="[frxDBInformeObjetivos.&#34;IMPORTE_RESULTADO&#34;]"/>
@ -45,12 +45,12 @@
<TfrxMemoView Name="Memo6" Align="baLeft" Left="903" Top="0" Width="105" Height="16" ShowHint="False" StretchMode="smMaxHeight" Color="13095676" DisplayFormat.DecimalSeparator="," DisplayFormat.FormatStr="%2.2m" DisplayFormat.Kind="fkNumeric" Font.Charset="1" Font.Color="0" Font.Height="-11" Font.Name="Tahoma" Font.Style="1" Frame.Typ="15" HAlign="haRight" ParentFont="False" VAlign="vaCenter" Text="[SUM(&#60;frxDBInformeObjetivos.&#34;IMPORTE_MEDIO_CLIENTE&#34;&#62;,DatosMaestros1)]"/> <TfrxMemoView Name="Memo6" Align="baLeft" Left="903" Top="0" Width="105" Height="16" ShowHint="False" StretchMode="smMaxHeight" Color="13095676" DisplayFormat.DecimalSeparator="," DisplayFormat.FormatStr="%2.2m" DisplayFormat.Kind="fkNumeric" Font.Charset="1" Font.Color="0" Font.Height="-11" Font.Name="Tahoma" Font.Style="1" Frame.Typ="15" HAlign="haRight" ParentFont="False" VAlign="vaCenter" Text="[SUM(&#60;frxDBInformeObjetivos.&#34;IMPORTE_MEDIO_CLIENTE&#34;&#62;,DatosMaestros1)]"/>
<TfrxMemoView Name="Memo14" Align="baLeft" Left="798" Top="0" Width="105" Height="16" ShowHint="False" StretchMode="smMaxHeight" Color="13095676" DisplayFormat.DecimalSeparator="," DisplayFormat.FormatStr="%2.2m" DisplayFormat.Kind="fkNumeric" Font.Charset="1" Font.Color="0" Font.Height="-11" Font.Name="Tahoma" Font.Style="1" Frame.Typ="15" HAlign="haRight" ParentFont="False" VAlign="vaCenter" Text="[SUM(&#60;frxDBInformeObjetivos.&#34;IMPORTE_MEDIO_UNIDAD&#34;&#62;,DatosMaestros1)]"/> <TfrxMemoView Name="Memo14" Align="baLeft" Left="798" Top="0" Width="105" Height="16" ShowHint="False" StretchMode="smMaxHeight" Color="13095676" DisplayFormat.DecimalSeparator="," DisplayFormat.FormatStr="%2.2m" DisplayFormat.Kind="fkNumeric" Font.Charset="1" Font.Color="0" Font.Height="-11" Font.Name="Tahoma" Font.Style="1" Frame.Typ="15" HAlign="haRight" ParentFont="False" VAlign="vaCenter" Text="[SUM(&#60;frxDBInformeObjetivos.&#34;IMPORTE_MEDIO_UNIDAD&#34;&#62;,DatosMaestros1)]"/>
<TfrxMemoView Name="Memo15" Align="baLeft" Left="693" Top="0" Width="105" Height="16" ShowHint="False" StretchMode="smMaxHeight" Color="13095676" DisplayFormat.DecimalSeparator="," DisplayFormat.FormatStr="%2.2m" DisplayFormat.Kind="fkNumeric" Font.Charset="1" Font.Color="0" Font.Height="-11" Font.Name="Tahoma" Font.Style="1" Frame.Typ="15" HAlign="haRight" HideZeros="True" ParentFont="False" VAlign="vaCenter" Text="[SUM(&#60;frxDBInformeObjetivos.&#34;IMPORTE_RESULTADO&#34;&#62;,DatosMaestros1)]"/> <TfrxMemoView Name="Memo15" Align="baLeft" Left="693" Top="0" Width="105" Height="16" ShowHint="False" StretchMode="smMaxHeight" Color="13095676" DisplayFormat.DecimalSeparator="," DisplayFormat.FormatStr="%2.2m" DisplayFormat.Kind="fkNumeric" Font.Charset="1" Font.Color="0" Font.Height="-11" Font.Name="Tahoma" Font.Style="1" Frame.Typ="15" HAlign="haRight" HideZeros="True" ParentFont="False" VAlign="vaCenter" Text="[SUM(&#60;frxDBInformeObjetivos.&#34;IMPORTE_RESULTADO&#34;&#62;,DatosMaestros1)]"/>
<TfrxMemoView Name="Memo2" Align="baLeft" Left="103" Top="0" Width="50" Height="16" ShowHint="False" StretchMode="smMaxHeight" Color="13095676" DisplayFormat.DecimalSeparator="," DisplayFormat.FormatStr="%g" DisplayFormat.Kind="fkNumeric" Font.Charset="1" Font.Color="0" Font.Height="-11" Font.Name="Tahoma" Font.Style="1" Frame.Typ="15" HAlign="haCenter" ParentFont="False" VAlign="vaCenter" Text="[SUM(&#60;frxDBInformeObjetivos.&#34;ALTAS_CLIENTE&#34;&#62;,DatosMaestros1)]"/> <TfrxMemoView Name="Memo2" Align="baLeft" Left="103" Top="0" Width="50" Height="16" ShowHint="False" StretchMode="smMaxHeight" Color="13095676" DisplayFormat.DecimalSeparator="," DisplayFormat.FormatStr="%g" DisplayFormat.Kind="fkNumeric" Font.Charset="1" Font.Color="0" Font.Height="-11" Font.Name="Tahoma" Font.Style="1" Frame.Typ="15" HAlign="haCenter" HideZeros="True" ParentFont="False" VAlign="vaCenter" Text="[SUM(&#60;frxDBInformeObjetivos.&#34;ALTAS_CLIENTE&#34;&#62;,DatosMaestros1)]"/>
<TfrxMemoView Name="Memo17" Align="baLeft" Left="153" Top="0" Width="65" Height="16" ShowHint="False" StretchMode="smMaxHeight" Color="13095676" DisplayFormat.DecimalSeparator="," DisplayFormat.FormatStr="%g" DisplayFormat.Kind="fkNumeric" Font.Charset="1" Font.Color="0" Font.Height="-11" Font.Name="Tahoma" Font.Style="1" Frame.Typ="15" HAlign="haCenter" ParentFont="False" VAlign="vaCenter" Text=""/> <TfrxMemoView Name="Memo17" Align="baLeft" Left="153" Top="0" Width="65" Height="16" ShowHint="False" StretchMode="smMaxHeight" Color="13095676" DisplayFormat.DecimalSeparator="," DisplayFormat.FormatStr="%g" DisplayFormat.Kind="fkNumeric" Font.Charset="1" Font.Color="0" Font.Height="-11" Font.Name="Tahoma" Font.Style="1" Frame.Typ="15" HAlign="haCenter" ParentFont="False" VAlign="vaCenter" Text=""/>
<TfrxMemoView Name="Memo19" Align="baLeft" Left="218" Top="0" Width="80" Height="16" ShowHint="False" StretchMode="smMaxHeight" Color="13095676" DisplayFormat.DecimalSeparator="," DisplayFormat.FormatStr="%g" DisplayFormat.Kind="fkNumeric" Font.Charset="1" Font.Color="0" Font.Height="-11" Font.Name="Tahoma" Font.Style="1" Frame.Typ="15" HAlign="haCenter" HideZeros="True" ParentFont="False" VAlign="vaCenter" Text="[SUM(&#60;frxDBInformeObjetivos.&#34;CANTIDAD_OBJETIVO&#34;&#62;,DatosMaestros1)]"/> <TfrxMemoView Name="Memo19" Align="baLeft" Left="218" Top="0" Width="80" Height="16" ShowHint="False" StretchMode="smMaxHeight" Color="13095676" DisplayFormat.DecimalSeparator="," DisplayFormat.FormatStr="%g" DisplayFormat.Kind="fkNumeric" Font.Charset="1" Font.Color="0" Font.Height="-11" Font.Name="Tahoma" Font.Style="1" Frame.Typ="15" HAlign="haCenter" HideZeros="True" ParentFont="False" VAlign="vaCenter" Text="[SUM(&#60;frxDBInformeObjetivos.&#34;CANTIDAD_OBJETIVO&#34;&#62;,DatosMaestros1)]"/>
<TfrxMemoView Name="Memo22" Align="baLeft" Left="398" Top="0" Width="100" Height="16" ShowHint="False" StretchMode="smMaxHeight" Color="13095676" DisplayFormat.DecimalSeparator="," DisplayFormat.FormatStr="%g" DisplayFormat.Kind="fkNumeric" Font.Charset="1" Font.Color="0" Font.Height="-11" Font.Name="Tahoma" Font.Style="1" Frame.Typ="15" HAlign="haCenter" ParentFont="False" VAlign="vaCenter" Text="[SUM(&#60;frxDBInformeObjetivos.&#34;CANTIDAD_CONSEGUIDA&#34;&#62;,DatosMaestros1)] / [SUM(&#60;frxDBInformeObjetivos.&#34;CANTIDAD_DEVUELTA&#34;&#62;,DatosMaestros1)]"/> <TfrxMemoView Name="Memo22" Align="baLeft" Left="398" Top="0" Width="100" Height="16" ShowHint="False" StretchMode="smMaxHeight" Color="13095676" DisplayFormat.DecimalSeparator="," DisplayFormat.FormatStr="%g" DisplayFormat.Kind="fkNumeric" Font.Charset="1" Font.Color="0" Font.Height="-11" Font.Name="Tahoma" Font.Style="1" Frame.Typ="15" HAlign="haCenter" ParentFont="False" VAlign="vaCenter" Text="[SUM(&#60;frxDBInformeObjetivos.&#34;CANTIDAD_CONSEGUIDA&#34;&#62;,DatosMaestros1)] / [SUM(&#60;frxDBInformeObjetivos.&#34;CANTIDAD_DEVUELTA&#34;&#62;,DatosMaestros1)] = [SUM(&#60;frxDBInformeObjetivos.&#34;CANTIDAD_TOTAL_CONSEGUIDA&#34;&#62;,DatosMaestros1)]"/>
<TfrxMemoView Name="Memo23" Align="baLeft" Left="298" Top="0" Width="100" Height="16" ShowHint="False" StretchMode="smMaxHeight" Color="13095676" DisplayFormat.DecimalSeparator="," DisplayFormat.FormatStr="%2.2m" DisplayFormat.Kind="fkNumeric" Font.Charset="1" Font.Color="0" Font.Height="-11" Font.Name="Tahoma" Font.Style="1" Frame.Typ="15" HAlign="haRight" HideZeros="True" ParentFont="False" VAlign="vaCenter" Text="[SUM(&#60;frxDBInformeObjetivos.&#34;IMPORTE_OBJETIVO&#34;&#62;,DatosMaestros1)]"/> <TfrxMemoView Name="Memo23" Align="baLeft" Left="298" Top="0" Width="100" Height="16" ShowHint="False" StretchMode="smMaxHeight" Color="13095676" DisplayFormat.DecimalSeparator="," DisplayFormat.FormatStr="%2.2m" DisplayFormat.Kind="fkNumeric" Font.Charset="1" Font.Color="0" Font.Height="-11" Font.Name="Tahoma" Font.Style="1" Frame.Typ="15" HAlign="haRight" HideZeros="True" ParentFont="False" VAlign="vaCenter" Text="[SUM(&#60;frxDBInformeObjetivos.&#34;IMPORTE_OBJETIVO&#34;&#62;,DatosMaestros1)]"/>
<TfrxMemoView Name="Memo24" Align="baLeft" Left="498" Top="0" Width="100" Height="16" ShowHint="False" StretchMode="smMaxHeight" Color="13095676" DisplayFormat.DecimalSeparator="," DisplayFormat.FormatStr="%2.2m" DisplayFormat.Kind="fkNumeric" Font.Charset="1" Font.Color="0" Font.Height="-11" Font.Name="Tahoma" Font.Style="1" Frame.Typ="15" HAlign="haRight" HideZeros="True" ParentFont="False" VAlign="vaCenter" Text="[SUM(&#60;frxDBInformeObjetivos.&#34;IMPORTE_CONSEGUIDO&#34;&#62;,DatosMaestros1)]"/> <TfrxMemoView Name="Memo24" Align="baLeft" Left="498" Top="0" Width="100" Height="16" ShowHint="False" StretchMode="smMaxHeight" Color="13095676" DisplayFormat.DecimalSeparator="," DisplayFormat.FormatStr="%2.2m" DisplayFormat.Kind="fkNumeric" Font.Charset="1" Font.Color="0" Font.Height="-11" Font.Name="Tahoma" Font.Style="1" Frame.Typ="15" HAlign="haRight" HideZeros="True" ParentFont="False" VAlign="vaCenter" Text="[SUM(&#60;frxDBInformeObjetivos.&#34;IMPORTE_TOTAL_CONSEGUIDO&#34;&#62;,DatosMaestros1)]"/>
<TfrxMemoView Name="Memo25" Align="baLeft" Left="598" Top="0" Width="95" Height="16" ShowHint="False" StretchMode="smMaxHeight" Color="13095676" DisplayFormat.DecimalSeparator="," DisplayFormat.FormatStr="%g" DisplayFormat.Kind="fkNumeric" Font.Charset="1" Font.Color="0" Font.Height="-11" Font.Name="Tahoma" Font.Style="1" Frame.Typ="15" HAlign="haCenter" HideZeros="True" ParentFont="False" VAlign="vaCenter" Text="[SUM(&#60;frxDBInformeObjetivos.&#34;CANTIDAD_RESULTADO&#34;&#62;,DatosMaestros1)]"/> <TfrxMemoView Name="Memo25" Align="baLeft" Left="598" Top="0" Width="95" Height="16" ShowHint="False" StretchMode="smMaxHeight" Color="13095676" DisplayFormat.DecimalSeparator="," DisplayFormat.FormatStr="%g" DisplayFormat.Kind="fkNumeric" Font.Charset="1" Font.Color="0" Font.Height="-11" Font.Name="Tahoma" Font.Style="1" Frame.Typ="15" HAlign="haCenter" HideZeros="True" ParentFont="False" VAlign="vaCenter" Text="[SUM(&#60;frxDBInformeObjetivos.&#34;CANTIDAD_RESULTADO&#34;&#62;,DatosMaestros1)]"/>
</TfrxGroupFooter> </TfrxGroupFooter>
</TfrxReportPage> </TfrxReportPage>

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

@ -484,124 +484,6 @@ object RptAlbaranesCliente: TRptAlbaranesCliente
DataType = datCurrency DataType = datCurrency
end> end>
end end
item
Params = <>
Statements = <
item
ConnectionType = 'Interbase'
Default = True
Name = 'IBX'
SQL =
'select A.ID_EMPRESA, A.ID_AGENTE,'#10' A.ANO,'#10' A.MES,'#10' AO.C' +
'ANTIDAD_OBJETIVO,'#10' AO.IMPORTE_OBJETIVO,'#10' A.CANTIDAD_CONSEG' +
'UIDA,'#10' A.CANTIDAD_DEVUELTA,'#10' A.IMPORTE_CONSEGUIDO,'#10' A.I' +
'MPORTE_DEVUELTO,'#10' (A.CANTIDAD_CONSEGUIDA - AO.CANTIDAD_OBJETI' +
'VO) as CANTIDAD_RESULTADO,'#10' (A.IMPORTE_CONSEGUIDO - AO.IMPORT' +
'E_OBJETIVO) as IMPORTE_RESULTADO'#10#10#10'from v_inf_objetivos_albarane' +
's A'#10'left join V_INF_OBJETIVOS_ALB_AGENTES AO on ((AO.id_agente =' +
' A.id_agente) and (AO.ano = A.ANO) and (AO.mes = A.MES))'#10#10#10
StatementType = stSQL
ColumnMappings = <
item
DatasetField = 'ID_EMPRESA'
TableField = 'ID_EMPRESA'
end
item
DatasetField = 'ID_AGENTE'
TableField = 'ID_AGENTE'
end
item
DatasetField = 'ANO'
TableField = 'ANO'
end
item
DatasetField = 'MES'
TableField = 'MES'
end
item
DatasetField = 'CANTIDAD_OBJETIVO'
TableField = 'CANTIDAD_OBJETIVO'
end
item
DatasetField = 'IMPORTE_OBJETIVO'
TableField = 'IMPORTE_OBJETIVO'
end
item
DatasetField = 'CANTIDAD_CONSEGUIDA'
TableField = 'CANTIDAD_CONSEGUIDA'
end
item
DatasetField = 'CANTIDAD_DEVUELTA'
TableField = 'CANTIDAD_DEVUELTA'
end
item
DatasetField = 'IMPORTE_CONSEGUIDO'
TableField = 'IMPORTE_CONSEGUIDO'
end
item
DatasetField = 'IMPORTE_DEVUELTO'
TableField = 'IMPORTE_DEVUELTO'
end
item
DatasetField = 'CANTIDAD_RESULTADO'
TableField = 'CANTIDAD_RESULTADO'
end
item
DatasetField = 'IMPORTE_RESULTADO'
TableField = 'IMPORTE_RESULTADO'
end>
end>
Name = 'Informe_Objetivos_Albaranes'
Fields = <
item
Name = 'ID_EMPRESA'
DataType = datInteger
end
item
Name = 'ID_AGENTE'
DataType = datInteger
end
item
Name = 'ANO'
DataType = datSmallInt
end
item
Name = 'MES'
DataType = datSmallInt
end
item
Name = 'CANTIDAD_OBJETIVO'
DataType = datInteger
end
item
Name = 'IMPORTE_OBJETIVO'
DataType = datCurrency
end
item
Name = 'CANTIDAD_CONSEGUIDA'
DataType = datCurrency
end
item
Name = 'CANTIDAD_DEVUELTA'
DataType = datCurrency
end
item
Name = 'IMPORTE_CONSEGUIDO'
DataType = datCurrency
end
item
Name = 'IMPORTE_DEVUELTO'
DataType = datCurrency
end
item
Name = 'CANTIDAD_RESULTADO'
DataType = datCurrency
end
item
Name = 'IMPORTE_RESULTADO'
DataType = datCurrency
end>
end
item item
Params = < Params = <
item item
@ -619,47 +501,64 @@ object RptAlbaranesCliente: TRptAlbaranesCliente
Default = True Default = True
Name = 'IBX' Name = 'IBX'
SQL = SQL =
'select SEN.ID_AGENTE, C.NOMBRE as AGENTE, ANO, MES,'#10' P.descri' + 'select SEN.ID_AGENTE, COALESCE(C.NOMBRE, '#39'SIN ASIGNAR'#39') as AGENT' +
'pcion,'#10#10' coalesce(CLIENTES_TOTALES.NUM_CLIENTES_TOTALES, 0) a' + 'E, ANO, MES,'#10' P.descripcion,'#10#10' coalesce(CLIENTES_TOTALES.N' +
's CLIENTES_TOTALES,'#10#10' sum(ALTAS_CLIENTE) as ALTAS_CLIENTE,'#10#10' ' + 'UM_CLIENTES_TOTALES, 0) as CLIENTES_TOTALES,'#10#10' sum(ALTAS_CLIE' +
' sum(CANTIDAD_OBJETIVO) as CANTIDAD_OBJETIVO, sum(IMPORTE_OBJE' + 'NTE) as ALTAS_CLIENTE,'#10#10' sum(CANTIDAD_OBJETIVO) as CANTIDAD_O' +
'TIVO) as IMPORTE_OBJETIVO,'#10#10' sum(CANTIDAD_CONSEGUIDA) as CANT' + 'BJETIVO, sum(IMPORTE_OBJETIVO) as IMPORTE_OBJETIVO,'#10#10' sum(CAN' +
'IDAD_CONSEGUIDA, sum(CANTIDAD_DEVUELTA) as CANTIDAD_DEVUELTA,'#10' ' + 'TIDAD_CONSEGUIDA) as CANTIDAD_CONSEGUIDA, sum(CANTIDAD_DEVUELTA)' +
' sum(IMPORTE_CONSEGUIDO) as IMPORTE_CONSEGUIDO, sum(IMPORTE_DEV' + ' as CANTIDAD_DEVUELTA, sum(CANTIDAD_TOTAL_CONSEGUIDA) as CANTIDA' +
'UELTO) as IMPORTE_DEVUELTO,'#10#10' (sum(CANTIDAD_CONSEGUIDA) - sum' + 'D_TOTAL_CONSEGUIDA,'#10' sum(IMPORTE_CONSEGUIDO) as IMPORTE_CONSE' +
'(CANTIDAD_OBJETIVO)) as CANTIDAD_RESULTADO,'#10' (sum(IMPORTE_CON' + 'GUIDO, sum(IMPORTE_DEVUELTO) as IMPORTE_DEVUELTO, sum(IMPORTE_TO' +
'SEGUIDO) - sum(IMPORTE_OBJETIVO)) as IMPORTE_RESULTADO,'#10' case' + 'TAL_CONSEGUIDO) as IMPORTE_TOTAL_CONSEGUIDO,'#10#10' (sum(CANTIDAD_' +
' when (sum(IMPORTE_CONSEGUIDO) > 0) then (sum(IMPORTE_CONSEGUIDO' + 'TOTAL_CONSEGUIDA) - sum(CANTIDAD_OBJETIVO)) as CANTIDAD_RESULTAD' +
')/sum(CANTIDAD_CONSEGUIDA))'#10' else 0'#10' end as IMPORTE_MEDIO_' + 'O,'#10' (sum(IMPORTE_TOTAL_CONSEGUIDO) - sum(IMPORTE_OBJETIVO)) a' +
'UNIDAD,'#10#10' case when (sum(IMPORTE_CONSEGUIDO) > 0) then (sum(I' + 's IMPORTE_RESULTADO,'#10#10' case when (sum(CANTIDAD_TOTAL_CONSEGUI' +
'MPORTE_CONSEGUIDO)/coalesce(CLIENTES_TOTALES.NUM_CLIENTES_TOTALE' + 'DA) <> 0) then (sum(IMPORTE_TOTAL_CONSEGUIDO)/sum(CANTIDAD_TOTAL' +
'S, 0))'#10' else 0'#10' end as IMPORTE_MEDIO_CLIENTE'#10#10'from'#10'('#10'selec' + '_CONSEGUIDA))'#10' else 0'#10' end as IMPORTE_MEDIO_UNIDAD,'#10#10' c' +
't AO.ID_AGENTE, AO.ANO, AO.MES,'#10'0 as ALTAS_CLIENTE,'#10'sum(AO.CANTI' + 'ase when (coalesce(CLIENTES_TOTALES.NUM_CLIENTES_TOTALES, 0) <> ' +
'DAD_OBJETIVO) as CANTIDAD_OBJETIVO, sum(AO.IMPORTE_OBJETIVO) as ' + '0) then (sum(IMPORTE_TOTAL_CONSEGUIDO)/coalesce(CLIENTES_TOTALES' +
'IMPORTE_OBJETIVO,'#10'0 as CANTIDAD_CONSEGUIDA, 0 as CANTIDAD_DEVUEL' + '.NUM_CLIENTES_TOTALES, 0))'#10' else 0'#10' end as IMPORTE_MEDIO_C' +
'TA, 0 as IMPORTE_CONSEGUIDO, 0 as IMPORTE_DEVUELTO'#10'from V_INF_OB' + 'LIENTE'#10#10#10'from'#10'('#10'select AO.ID_AGENTE, AO.ANO, AO.MES,'#10'0 as ALTAS_' +
'JETIVOS_ALB_AGENTES AO'#10'left join contactos C on (C.ID = AO.ID_AG' + 'CLIENTE,'#10'sum(AO.CANTIDAD_OBJETIVO) as CANTIDAD_OBJETIVO, sum(AO.' +
'ENTE)'#10'where (AO.ANO = :ANO1)'#10'group by 1,2,3'#10#10'UNION ALL'#10#10'select I' + 'IMPORTE_OBJETIVO) as IMPORTE_OBJETIVO,'#10'0 as CANTIDAD_CONSEGUIDA,' +
'D_AGENTE, ANO, MES,'#10'0 as ALTAS_CLIENTE,'#10'0 as CANTIDAD_OBJETIVO, ' + ' 0 as CANTIDAD_DEVUELTA, 0 as CANTIDAD_TOTAL_CONSEGUIDA, 0 as IM' +
'0 as IMPORTE_OBJETIVO,'#10'sum(CANTIDAD_CONSEGUIDA) as CANTIDAD_CONS' + 'PORTE_CONSEGUIDO, 0 as IMPORTE_DEVUELTO, 0 as IMPORTE_TOTAL_CONS' +
'EGUIDA, sum(CANTIDAD_DEVUELTA) as CANTIDAD_DEVUELTA, sum(IMPORTE' + 'EGUIDO'#10'from V_INF_OBJETIVOS_ALB_AGENTES AO'#10'left join contactos C' +
'_CONSEGUIDO) as IMPORTE_CONSEGUIDO, sum(IMPORTE_DEVUELTO) as IMP' + ' on (C.ID = AO.ID_AGENTE)'#10'where (AO.ANO = :ANO1)'#10'group by 1,2,3'#10 +
'ORTE_DEVUELTO'#10'from v_inf_objetivos_albaranes'#10'where ((v_inf_objet' + #10'UNION ALL'#10#10'select ID_AGENTE, ANO, MES,'#10'0 as ALTAS_CLIENTE,'#10'0 as' +
'ivos_albaranes.id_empresa = :ID_EMPRESA) and (v_inf_objetivos_al' + ' CANTIDAD_OBJETIVO, 0 as IMPORTE_OBJETIVO,'#10'sum(CANTIDAD_CONSEGUI' +
'baranes.ANO = :ANO1))'#10'group by 1,2,3'#10#10'UNION ALL'#10#10'select ID_AGENT' + 'DA) as CANTIDAD_CONSEGUIDA, sum(CANTIDAD_DEVUELTA) as CANTIDAD_D' +
'E, ANO, MES,'#10'count(ID_CLIENTE) as ALTAS_CLIENTE,'#10'0 as CANTIDAD_O' + 'EVUELTA, (sum(CANTIDAD_CONSEGUIDA) + sum(CANTIDAD_DEVUELTA)) as ' +
'BJETIVO, 0 as IMPORTE_OBJETIVO,'#10'0 as CANTIDAD_CONSEGUIDA, 0 as C' + 'CANTIDAD_TOTAL_CONSEGUIDA,'#10'sum(IMPORTE_CONSEGUIDO) as IMPORTE_CO' +
'ANTIDAD_DEVUELTA, 0 as IMPORTE_CONSEGUIDO, 0 as IMPORTE_DEVUELTO' + 'NSEGUIDO, sum(IMPORTE_DEVUELTO) as IMPORTE_DEVUELTO, (sum(IMPORT' +
#10'from v_inf_obj_clientes_agentes'#10'where (ANO = :ANO1)'#10'group by 1,' + 'E_CONSEGUIDO) + sum(IMPORTE_DEVUELTO)) as IMPORTE_TOTAL_CONSEGUI' +
'2,3'#10') SEN'#10#10'left join periodos_aux P on ((P.periodo = '#39'MENSUAL'#39') ' + 'DO'#10'from v_inf_objetivos_albaranes'#10'where ((v_inf_objetivos_albara' +
'and (P.valor = MES))'#10'left join contactos C on (C.ID = SEN.ID_AGE' + 'nes.id_empresa = :ID_EMPRESA) and (v_inf_objetivos_albaranes.ANO' +
'NTE)'#10#10'left join'#10'('#10'select coalesce(ID_AGENTE, -1) as ID_AGENTE, c' + ' = :ANO1))'#10'group by 1,2,3'#10#10'UNION ALL'#10#10'select ID_AGENTE, ANO, MES' +
'ount(ID_CLIENTE) as NUM_CLIENTES_TOTALES'#10'from clientes_datos'#10'gro' + ','#10'count(ID_CLIENTE) as ALTAS_CLIENTE,'#10'0 as CANTIDAD_OBJETIVO, 0 ' +
'up by 1'#10') CLIENTES_TOTALES on (CLIENTES_TOTALES.ID_AGENTE = SEN.' + 'as IMPORTE_OBJETIVO,'#10'0 as CANTIDAD_CONSEGUIDA, 0 as CANTIDAD_DEV' +
'id_Agente)'#10#10'where {where}'#10'group by 1,2,3,4,5,6'#10'order by 1,2,3,4,' + 'UELTA, 0 as CANTIDAD_TOTAL_CONSEGUIDA, 0 as IMPORTE_CONSEGUIDO, ' +
'5,6'#10#10#10#10 '0 as IMPORTE_DEVUELTO, 0 as IMPORTE_TOTAL_CONSEGUIDO'#10'from v_inf_' +
'obj_clientes_agentes'#10'where (ANO = :ANO1)'#10'group by 1,2,3'#10') SEN'#10#10'l' +
'eft join periodos_aux P on ((P.periodo = '#39'MENSUAL'#39') and (P.valor' +
' = MES))'#10'left join contactos C on (C.ID = SEN.ID_AGENTE)'#10'left jo' +
'in agentes_datos on (agentes_datos.id_agente = SEN.ID_AGENTE)'#10#10'l' +
'eft join'#10'('#10'select coalesce(ID_AGENTE, -1) as ID_AGENTE, count(ID' +
'_CLIENTE) as NUM_CLIENTES_TOTALES'#10'from clientes_datos'#10'group by 1' +
#10') CLIENTES_TOTALES on (CLIENTES_TOTALES.ID_AGENTE = SEN.id_Agen' +
'te)'#10#10'where agentes_datos.FECHA_BAJA is null'#10'and {where}'#10'group by' +
' 1,2,3,4,5,6'#10'order by 1,2,3,4,5,6'#10#10#10#10
StatementType = stSQL StatementType = stSQL
ColumnMappings = < ColumnMappings = <
item
DatasetField = 'ID_AGENTE'
TableField = 'ID_AGENTE'
end
item
DatasetField = 'AGENTE'
TableField = 'AGENTE'
end
item item
DatasetField = 'ANO' DatasetField = 'ANO'
TableField = 'ANO' TableField = 'ANO'
@ -672,6 +571,14 @@ object RptAlbaranesCliente: TRptAlbaranesCliente
DatasetField = 'DESCRIPCION' DatasetField = 'DESCRIPCION'
TableField = 'DESCRIPCION' TableField = 'DESCRIPCION'
end end
item
DatasetField = 'CLIENTES_TOTALES'
TableField = 'CLIENTES_TOTALES'
end
item
DatasetField = 'ALTAS_CLIENTE'
TableField = 'ALTAS_CLIENTE'
end
item item
DatasetField = 'CANTIDAD_OBJETIVO' DatasetField = 'CANTIDAD_OBJETIVO'
TableField = 'CANTIDAD_OBJETIVO' TableField = 'CANTIDAD_OBJETIVO'
@ -704,18 +611,6 @@ object RptAlbaranesCliente: TRptAlbaranesCliente
DatasetField = 'IMPORTE_RESULTADO' DatasetField = 'IMPORTE_RESULTADO'
TableField = 'IMPORTE_RESULTADO' TableField = 'IMPORTE_RESULTADO'
end end
item
DatasetField = 'ID_AGENTE'
TableField = 'ID_AGENTE'
end
item
DatasetField = 'ALTAS_CLIENTE'
TableField = 'ALTAS_CLIENTE'
end
item
DatasetField = 'CLIENTES_TOTALES'
TableField = 'CLIENTES_TOTALES'
end
item item
DatasetField = 'IMPORTE_MEDIO_UNIDAD' DatasetField = 'IMPORTE_MEDIO_UNIDAD'
TableField = 'IMPORTE_MEDIO_UNIDAD' TableField = 'IMPORTE_MEDIO_UNIDAD'
@ -725,8 +620,12 @@ object RptAlbaranesCliente: TRptAlbaranesCliente
TableField = 'IMPORTE_MEDIO_CLIENTE' TableField = 'IMPORTE_MEDIO_CLIENTE'
end end
item item
DatasetField = 'AGENTE' DatasetField = 'CANTIDAD_TOTAL_CONSEGUIDA'
TableField = 'AGENTE' TableField = 'CANTIDAD_TOTAL_CONSEGUIDA'
end
item
DatasetField = 'IMPORTE_TOTAL_CONSEGUIDO'
TableField = 'IMPORTE_TOTAL_CONSEGUIDO'
end> end>
end> end>
Name = 'InformeListadoObjetivosMensual' Name = 'InformeListadoObjetivosMensual'
@ -777,6 +676,10 @@ object RptAlbaranesCliente: TRptAlbaranesCliente
Name = 'CANTIDAD_DEVUELTA' Name = 'CANTIDAD_DEVUELTA'
DataType = datCurrency DataType = datCurrency
end end
item
Name = 'CANTIDAD_TOTAL_CONSEGUIDA'
DataType = datCurrency
end
item item
Name = 'IMPORTE_CONSEGUIDO' Name = 'IMPORTE_CONSEGUIDO'
DataType = datCurrency DataType = datCurrency
@ -785,6 +688,10 @@ object RptAlbaranesCliente: TRptAlbaranesCliente
Name = 'IMPORTE_DEVUELTO' Name = 'IMPORTE_DEVUELTO'
DataType = datCurrency DataType = datCurrency
end end
item
Name = 'IMPORTE_TOTAL_CONSEGUIDO'
DataType = datCurrency
end
item item
Name = 'CANTIDAD_RESULTADO' Name = 'CANTIDAD_RESULTADO'
DataType = datCurrency DataType = datCurrency
@ -2131,51 +2038,85 @@ object RptAlbaranesCliente: TRptAlbaranesCliente
ConnectionType = 'Interbase' ConnectionType = 'Interbase'
Default = True Default = True
SQL = SQL =
'select SEN.ID_AGENTE, C.NOMBRE as AGENTE, ANO, TRIMESTRE,'#10' P.' + 'select SEN.ID_AGENTE, COALESCE(C.NOMBRE, '#39'SIN ASIGNAR'#39') as AGENT' +
'descripcion,'#10#10' coalesce(CLIENTES_TOTALES.NUM_CLIENTES_TOTALES' + 'E, ANO, TRIMESTRE,'#10' P.descripcion,'#10#10' coalesce(CLIENTES_TOT' +
', 0) as CLIENTES_TOTALES,'#10#10' sum(ALTAS_CLIENTE) as ALTAS_CLIEN' + 'ALES.NUM_CLIENTES_TOTALES, 0) as CLIENTES_TOTALES,'#10#10' sum(ALTA' +
'TE,'#10#10' sum(CANTIDAD_OBJETIVO) as CANTIDAD_OBJETIVO, sum(IMPORT' + 'S_CLIENTE) as ALTAS_CLIENTE,'#10#10' sum(CANTIDAD_OBJETIVO) as CANT' +
'E_OBJETIVO) as IMPORTE_OBJETIVO,'#10#10' sum(CANTIDAD_CONSEGUIDA) a' + 'IDAD_OBJETIVO, sum(IMPORTE_OBJETIVO) as IMPORTE_OBJETIVO,'#10#10' s' +
's CANTIDAD_CONSEGUIDA, sum(CANTIDAD_DEVUELTA) as CANTIDAD_DEVUEL' + 'um(CANTIDAD_CONSEGUIDA) as CANTIDAD_CONSEGUIDA, sum(CANTIDAD_DEV' +
'TA,'#10' sum(IMPORTE_CONSEGUIDO) as IMPORTE_CONSEGUIDO, sum(IMPOR' + 'UELTA) as CANTIDAD_DEVUELTA, sum(CANTIDAD_TOTAL_CONSEGUIDA) as C' +
'TE_DEVUELTO) as IMPORTE_DEVUELTO,'#10#10' (sum(CANTIDAD_CONSEGUIDA)' + 'ANTIDAD_TOTAL_CONSEGUIDA,'#10' sum(IMPORTE_CONSEGUIDO) as IMPORTE' +
' - sum(CANTIDAD_OBJETIVO)) as CANTIDAD_RESULTADO,'#10' (sum(IMPOR' + '_CONSEGUIDO, sum(IMPORTE_DEVUELTO) as IMPORTE_DEVUELTO, sum(IMPO' +
'TE_CONSEGUIDO) - sum(IMPORTE_OBJETIVO)) as IMPORTE_RESULTADO,'#10' ' + 'RTE_TOTAL_CONSEGUIDO) as IMPORTE_TOTAL_CONSEGUIDO,'#10#10' (sum(CAN' +
' case when (sum(IMPORTE_CONSEGUIDO) > 0) then (sum(IMPORTE_CONS' + 'TIDAD_TOTAL_CONSEGUIDA) - sum(CANTIDAD_OBJETIVO)) as CANTIDAD_RE' +
'EGUIDO)/sum(CANTIDAD_CONSEGUIDA))'#10' else 0'#10' end as IMPORTE_' + 'SULTADO,'#10' (sum(IMPORTE_TOTAL_CONSEGUIDO) - sum(IMPORTE_OBJETI' +
'MEDIO_UNIDAD,'#10#10' case when (sum(IMPORTE_CONSEGUIDO) > 0) then ' + 'VO)) as IMPORTE_RESULTADO,'#10#10' case when (sum(CANTIDAD_TOTAL_CO' +
'(sum(IMPORTE_CONSEGUIDO)/coalesce(CLIENTES_TOTALES.NUM_CLIENTES_' + 'NSEGUIDA) <> 0) then (sum(IMPORTE_TOTAL_CONSEGUIDO)/sum(CANTIDAD' +
'TOTALES, 0))'#10' else 0'#10' end as IMPORTE_MEDIO_CLIENTE'#10#10'from'#10'(' + '_TOTAL_CONSEGUIDA))'#10' else 0'#10' end as IMPORTE_MEDIO_UNIDAD,'#10 +
#10'select AO.ID_AGENTE, AO.ANO, AO.TRIMESTRE,'#10'0 as ALTAS_CLIENTE,'#10 + #10' case when (coalesce(CLIENTES_TOTALES.NUM_CLIENTES_TOTALES, ' +
'sum(AO.CANTIDAD_OBJETIVO) as CANTIDAD_OBJETIVO, sum(AO.IMPORTE_O' + '0) <> 0) then (sum(IMPORTE_TOTAL_CONSEGUIDO)/coalesce(CLIENTES_T' +
'BJETIVO) as IMPORTE_OBJETIVO,'#10'0 as CANTIDAD_CONSEGUIDA, 0 as CAN' + 'OTALES.NUM_CLIENTES_TOTALES, 0))'#10' else 0'#10' end as IMPORTE_M' +
'TIDAD_DEVUELTA, 0 as IMPORTE_CONSEGUIDO, 0 as IMPORTE_DEVUELTO'#10'f' + 'EDIO_CLIENTE'#10#10#10'from'#10'('#10'select AO.ID_AGENTE, AO.ANO, AO.TRIMESTRE,' +
'rom V_INF_OBJETIVOS_ALB_AGENTES AO'#10'left join contactos C on (C.I' + #10'0 as ALTAS_CLIENTE,'#10'sum(AO.CANTIDAD_OBJETIVO) as CANTIDAD_OBJET' +
'D = AO.ID_AGENTE)'#10'where (AO.ANO = :ANO1)'#10'group by 1,2,3'#10#10'UNION A' + 'IVO, sum(AO.IMPORTE_OBJETIVO) as IMPORTE_OBJETIVO,'#10'0 as CANTIDAD' +
'LL'#10#10'select ID_AGENTE, ANO, TRIMESTRE,'#10'0 as ALTAS_CLIENTE,'#10'0 as C' + '_CONSEGUIDA, 0 as CANTIDAD_DEVUELTA, 0 as CANTIDAD_TOTAL_CONSEGU' +
'ANTIDAD_OBJETIVO, 0 as IMPORTE_OBJETIVO,'#10'sum(CANTIDAD_CONSEGUIDA' + 'IDA, 0 as IMPORTE_CONSEGUIDO, 0 as IMPORTE_DEVUELTO, 0 as IMPORT' +
') as CANTIDAD_CONSEGUIDA, sum(CANTIDAD_DEVUELTA) as CANTIDAD_DEV' + 'E_TOTAL_CONSEGUIDO'#10'from V_INF_OBJETIVOS_ALB_AGENTES AO'#10'left join' +
'UELTA, sum(IMPORTE_CONSEGUIDO) as IMPORTE_CONSEGUIDO, sum(IMPORT' + ' contactos C on (C.ID = AO.ID_AGENTE)'#10'where (AO.ANO = :ANO1)'#10'gro' +
'E_DEVUELTO) as IMPORTE_DEVUELTO'#10'from v_inf_objetivos_albaranes'#10'w' + 'up by 1,2,3'#10#10'UNION ALL'#10#10'select ID_AGENTE, ANO, TRIMESTRE,'#10'0 as A' +
'here ((v_inf_objetivos_albaranes.id_empresa = :ID_EMPRESA) and (' + 'LTAS_CLIENTE,'#10'0 as CANTIDAD_OBJETIVO, 0 as IMPORTE_OBJETIVO,'#10'sum' +
'v_inf_objetivos_albaranes.ANO = :ANO1))'#10'group by 1,2,3'#10#10'UNION AL' + '(CANTIDAD_CONSEGUIDA) as CANTIDAD_CONSEGUIDA, sum(CANTIDAD_DEVUE' +
'L'#10#10'select ID_AGENTE, ANO, TRIMESTRE,'#10'count(ID_CLIENTE) as ALTAS_' + 'LTA) as CANTIDAD_DEVUELTA, (sum(CANTIDAD_CONSEGUIDA) + sum(CANTI' +
'CLIENTE,'#10'0 as CANTIDAD_OBJETIVO, 0 as IMPORTE_OBJETIVO,'#10'0 as CAN' + 'DAD_DEVUELTA)) as CANTIDAD_TOTAL_CONSEGUIDA,'#10'sum(IMPORTE_CONSEGU' +
'TIDAD_CONSEGUIDA, 0 as CANTIDAD_DEVUELTA, 0 as IMPORTE_CONSEGUID' + 'IDO) as IMPORTE_CONSEGUIDO, sum(IMPORTE_DEVUELTO) as IMPORTE_DEV' +
'O, 0 as IMPORTE_DEVUELTO'#10'from v_inf_obj_clientes_agentes'#10'where (' + 'UELTO, (sum(IMPORTE_CONSEGUIDO) + sum(IMPORTE_DEVUELTO)) as IMPO' +
'ANO = :ANO1)'#10'group by 1,2,3'#10') SEN'#10#10'left join periodos_aux P on (' + 'RTE_TOTAL_CONSEGUIDO'#10'from v_inf_objetivos_albaranes'#10'where ((v_in' +
'(P.periodo = '#39'TRIMESTRAL'#39') and (P.valor = TRIMESTRE))'#10'left join ' + 'f_objetivos_albaranes.id_empresa = :ID_EMPRESA) and (v_inf_objet' +
'contactos C on (C.ID = SEN.ID_AGENTE)'#10#10'left join'#10'('#10'select coales' + 'ivos_albaranes.ANO = :ANO1))'#10'group by 1,2,3'#10#10'UNION ALL'#10#10'select I' +
'ce(ID_AGENTE, -1) as ID_AGENTE, count(ID_CLIENTE) as NUM_CLIENTE' + 'D_AGENTE, ANO, TRIMESTRE,'#10'count(ID_CLIENTE) as ALTAS_CLIENTE,'#10'0 ' +
'S_TOTALES'#10'from clientes_datos'#10'group by 1'#10') CLIENTES_TOTALES on (' + 'as CANTIDAD_OBJETIVO, 0 as IMPORTE_OBJETIVO,'#10'0 as CANTIDAD_CONSE' +
'CLIENTES_TOTALES.ID_AGENTE = SEN.id_Agente)'#10#10'where {where}'#10'group' + 'GUIDA, 0 as CANTIDAD_DEVUELTA, 0 as CANTIDAD_TOTAL_CONSEGUIDA, 0' +
' by 1,2,3,4,5,6'#10'order by 1,2,3,4,5,6'#10#10#10#10 ' as IMPORTE_CONSEGUIDO, 0 as IMPORTE_DEVUELTO, 0 as IMPORTE_TOTA' +
'L_CONSEGUIDO'#10'from v_inf_obj_clientes_agentes'#10'where (ANO = :ANO1)' +
#10'group by 1,2,3'#10') SEN'#10#10'left join periodos_aux P on ((P.periodo =' +
' '#39'TRIMESTRAL'#39') and (P.valor = TRIMESTRE))'#10'left join contactos C ' +
'on (C.ID = SEN.ID_AGENTE)'#10'left join agentes_datos on (agentes_da' +
'tos.id_agente = SEN.ID_AGENTE)'#10#10'left join'#10'('#10'select coalesce(ID_A' +
'GENTE, -1) as ID_AGENTE, count(ID_CLIENTE) as NUM_CLIENTES_TOTAL' +
'ES'#10'from clientes_datos'#10'group by 1'#10') CLIENTES_TOTALES on (CLIENTE' +
'S_TOTALES.ID_AGENTE = SEN.id_Agente)'#10#10'where agentes_datos.FECHA_' +
'BAJA is null'#10'and {where}'#10'group by 1,2,3,4,5,6'#10'order by 1,2,3,4,5' +
',6'#10#10#10#10#10#10#10#10#10
StatementType = stSQL StatementType = stSQL
ColumnMappings = < ColumnMappings = <
item
DatasetField = 'ID_AGENTE'
TableField = 'ID_AGENTE'
end
item
DatasetField = 'AGENTE'
TableField = 'AGENTE'
end
item item
DatasetField = 'ANO' DatasetField = 'ANO'
TableField = 'ANO' TableField = 'ANO'
end end
item
DatasetField = 'TRIMESTRE'
TableField = 'TRIMESTRE'
end
item
DatasetField = 'DESCRIPCION'
TableField = 'DESCRIPCION'
end
item
DatasetField = 'CLIENTES_TOTALES'
TableField = 'CLIENTES_TOTALES'
end
item
DatasetField = 'ALTAS_CLIENTE'
TableField = 'ALTAS_CLIENTE'
end
item item
DatasetField = 'CANTIDAD_OBJETIVO' DatasetField = 'CANTIDAD_OBJETIVO'
TableField = 'CANTIDAD_OBJETIVO' TableField = 'CANTIDAD_OBJETIVO'
@ -2208,30 +2149,6 @@ object RptAlbaranesCliente: TRptAlbaranesCliente
DatasetField = 'IMPORTE_RESULTADO' DatasetField = 'IMPORTE_RESULTADO'
TableField = 'IMPORTE_RESULTADO' TableField = 'IMPORTE_RESULTADO'
end end
item
DatasetField = 'DESCRIPCION'
TableField = 'DESCRIPCION'
end
item
DatasetField = 'TRIMESTRE'
TableField = 'TRIMESTRE'
end
item
DatasetField = 'AGENTE'
TableField = 'AGENTE'
end
item
DatasetField = 'ID_AGENTE'
TableField = 'ID_AGENTE'
end
item
DatasetField = 'ALTAS_CLIENTE'
TableField = 'ALTAS_CLIENTE'
end
item
DatasetField = 'CLIENTES_TOTALES'
TableField = 'CLIENTES_TOTALES'
end
item item
DatasetField = 'IMPORTE_MEDIO_UNIDAD' DatasetField = 'IMPORTE_MEDIO_UNIDAD'
TableField = 'IMPORTE_MEDIO_UNIDAD' TableField = 'IMPORTE_MEDIO_UNIDAD'
@ -2239,6 +2156,14 @@ object RptAlbaranesCliente: TRptAlbaranesCliente
item item
DatasetField = 'IMPORTE_MEDIO_CLIENTE' DatasetField = 'IMPORTE_MEDIO_CLIENTE'
TableField = 'IMPORTE_MEDIO_CLIENTE' TableField = 'IMPORTE_MEDIO_CLIENTE'
end
item
DatasetField = 'CANTIDAD_TOTAL_CONSEGUIDA'
TableField = 'CANTIDAD_TOTAL_CONSEGUIDA'
end
item
DatasetField = 'IMPORTE_TOTAL_CONSEGUIDO'
TableField = 'IMPORTE_TOTAL_CONSEGUIDO'
end> end>
end> end>
Name = 'InformeListadoObjetivosTrimestral' Name = 'InformeListadoObjetivosTrimestral'
@ -2289,6 +2214,10 @@ object RptAlbaranesCliente: TRptAlbaranesCliente
Name = 'CANTIDAD_DEVUELTA' Name = 'CANTIDAD_DEVUELTA'
DataType = datCurrency DataType = datCurrency
end end
item
Name = 'CANTIDAD_TOTAL_CONSEGUIDA'
DataType = datCurrency
end
item item
Name = 'IMPORTE_CONSEGUIDO' Name = 'IMPORTE_CONSEGUIDO'
DataType = datCurrency DataType = datCurrency
@ -2297,6 +2226,10 @@ object RptAlbaranesCliente: TRptAlbaranesCliente
Name = 'IMPORTE_DEVUELTO' Name = 'IMPORTE_DEVUELTO'
DataType = datCurrency DataType = datCurrency
end end
item
Name = 'IMPORTE_TOTAL_CONSEGUIDO'
DataType = datCurrency
end
item item
Name = 'CANTIDAD_RESULTADO' Name = 'CANTIDAD_RESULTADO'
DataType = datCurrency DataType = datCurrency
@ -2330,51 +2263,85 @@ object RptAlbaranesCliente: TRptAlbaranesCliente
ConnectionType = 'Interbase' ConnectionType = 'Interbase'
Default = True Default = True
SQL = SQL =
'select SEN.ID_AGENTE, C.NOMBRE as AGENTE, ANO, SEMESTRE,'#10' P.d' + 'select SEN.ID_AGENTE, COALESCE(C.NOMBRE, '#39'SIN ASIGNAR'#39') as AGENT' +
'escripcion,'#10#10' coalesce(CLIENTES_TOTALES.NUM_CLIENTES_TOTALES,' + 'E, ANO, SEMESTRE,'#10' P.descripcion,'#10#10' coalesce(CLIENTES_TOTA' +
' 0) as CLIENTES_TOTALES,'#10#10' sum(ALTAS_CLIENTE) as ALTAS_CLIENT' + 'LES.NUM_CLIENTES_TOTALES, 0) as CLIENTES_TOTALES,'#10#10' sum(ALTAS' +
'E,'#10#10' sum(CANTIDAD_OBJETIVO) as CANTIDAD_OBJETIVO, sum(IMPORTE' + '_CLIENTE) as ALTAS_CLIENTE,'#10#10' sum(CANTIDAD_OBJETIVO) as CANTI' +
'_OBJETIVO) as IMPORTE_OBJETIVO,'#10#10' sum(CANTIDAD_CONSEGUIDA) as' + 'DAD_OBJETIVO, sum(IMPORTE_OBJETIVO) as IMPORTE_OBJETIVO,'#10#10' su' +
' CANTIDAD_CONSEGUIDA, sum(CANTIDAD_DEVUELTA) as CANTIDAD_DEVUELT' + 'm(CANTIDAD_CONSEGUIDA) as CANTIDAD_CONSEGUIDA, sum(CANTIDAD_DEVU' +
'A,'#10' sum(IMPORTE_CONSEGUIDO) as IMPORTE_CONSEGUIDO, sum(IMPORT' + 'ELTA) as CANTIDAD_DEVUELTA, sum(CANTIDAD_TOTAL_CONSEGUIDA) as CA' +
'E_DEVUELTO) as IMPORTE_DEVUELTO,'#10#10' (sum(CANTIDAD_CONSEGUIDA) ' + 'NTIDAD_TOTAL_CONSEGUIDA,'#10' sum(IMPORTE_CONSEGUIDO) as IMPORTE_' +
'- sum(CANTIDAD_OBJETIVO)) as CANTIDAD_RESULTADO,'#10' (sum(IMPORT' + 'CONSEGUIDO, sum(IMPORTE_DEVUELTO) as IMPORTE_DEVUELTO, sum(IMPOR' +
'E_CONSEGUIDO) - sum(IMPORTE_OBJETIVO)) as IMPORTE_RESULTADO,'#10' ' + 'TE_TOTAL_CONSEGUIDO) as IMPORTE_TOTAL_CONSEGUIDO,'#10#10' (sum(CANT' +
' case when (sum(IMPORTE_CONSEGUIDO) > 0) then (sum(IMPORTE_CONSE' + 'IDAD_TOTAL_CONSEGUIDA) - sum(CANTIDAD_OBJETIVO)) as CANTIDAD_RES' +
'GUIDO)/sum(CANTIDAD_CONSEGUIDA))'#10' else 0'#10' end as IMPORTE_M' + 'ULTADO,'#10' (sum(IMPORTE_TOTAL_CONSEGUIDO) - sum(IMPORTE_OBJETIV' +
'EDIO_UNIDAD,'#10#10' case when (sum(IMPORTE_CONSEGUIDO) > 0) then (' + 'O)) as IMPORTE_RESULTADO,'#10#10' case when (sum(CANTIDAD_TOTAL_CON' +
'sum(IMPORTE_CONSEGUIDO)/coalesce(CLIENTES_TOTALES.NUM_CLIENTES_T' + 'SEGUIDA) <> 0) then (sum(IMPORTE_TOTAL_CONSEGUIDO)/sum(CANTIDAD_' +
'OTALES, 0))'#10' else 0'#10' end as IMPORTE_MEDIO_CLIENTE'#10#10'from'#10'('#10 + 'TOTAL_CONSEGUIDA))'#10' else 0'#10' end as IMPORTE_MEDIO_UNIDAD,'#10#10 +
'select AO.ID_AGENTE, AO.ANO, AO.SEMESTRE,'#10'0 as ALTAS_CLIENTE,'#10'su' + ' case when (coalesce(CLIENTES_TOTALES.NUM_CLIENTES_TOTALES, 0' +
'm(AO.CANTIDAD_OBJETIVO) as CANTIDAD_OBJETIVO, sum(AO.IMPORTE_OBJ' + ') <> 0) then (sum(IMPORTE_TOTAL_CONSEGUIDO)/coalesce(CLIENTES_TO' +
'ETIVO) as IMPORTE_OBJETIVO,'#10'0 as CANTIDAD_CONSEGUIDA, 0 as CANTI' + 'TALES.NUM_CLIENTES_TOTALES, 0))'#10' else 0'#10' end as IMPORTE_ME' +
'DAD_DEVUELTA, 0 as IMPORTE_CONSEGUIDO, 0 as IMPORTE_DEVUELTO'#10'fro' + 'DIO_CLIENTE'#10#10#10'from'#10'('#10'select AO.ID_AGENTE, AO.ANO, AO.SEMESTRE,'#10'0' +
'm V_INF_OBJETIVOS_ALB_AGENTES AO'#10'left join contactos C on (C.ID ' + ' as ALTAS_CLIENTE,'#10'sum(AO.CANTIDAD_OBJETIVO) as CANTIDAD_OBJETIV' +
'= AO.ID_AGENTE)'#10'where (AO.ANO = :ANO1)'#10'group by 1,2,3'#10#10'UNION ALL' + 'O, sum(AO.IMPORTE_OBJETIVO) as IMPORTE_OBJETIVO,'#10'0 as CANTIDAD_C' +
#10#10'select ID_AGENTE, ANO, SEMESTRE,'#10'0 as ALTAS_CLIENTE,'#10'0 as CANT' + 'ONSEGUIDA, 0 as CANTIDAD_DEVUELTA, 0 as CANTIDAD_TOTAL_CONSEGUID' +
'IDAD_OBJETIVO, 0 as IMPORTE_OBJETIVO,'#10'sum(CANTIDAD_CONSEGUIDA) a' + 'A, 0 as IMPORTE_CONSEGUIDO, 0 as IMPORTE_DEVUELTO, 0 as IMPORTE_' +
's CANTIDAD_CONSEGUIDA, sum(CANTIDAD_DEVUELTA) as CANTIDAD_DEVUEL' + 'TOTAL_CONSEGUIDO'#10'from V_INF_OBJETIVOS_ALB_AGENTES AO'#10'left join c' +
'TA, sum(IMPORTE_CONSEGUIDO) as IMPORTE_CONSEGUIDO, sum(IMPORTE_D' + 'ontactos C on (C.ID = AO.ID_AGENTE)'#10'where (AO.ANO = :ANO1)'#10'group' +
'EVUELTO) as IMPORTE_DEVUELTO'#10'from v_inf_objetivos_albaranes'#10'wher' + ' by 1,2,3'#10#10'UNION ALL'#10#10'select ID_AGENTE, ANO, SEMESTRE,'#10'0 as ALTA' +
'e ((v_inf_objetivos_albaranes.id_empresa = :ID_EMPRESA) and (v_i' + 'S_CLIENTE,'#10'0 as CANTIDAD_OBJETIVO, 0 as IMPORTE_OBJETIVO,'#10'sum(CA' +
'nf_objetivos_albaranes.ANO = :ANO1))'#10'group by 1,2,3'#10#10'UNION ALL'#10#10 + 'NTIDAD_CONSEGUIDA) as CANTIDAD_CONSEGUIDA, sum(CANTIDAD_DEVUELTA' +
'select ID_AGENTE, ANO, SEMESTRE,'#10'count(ID_CLIENTE) as ALTAS_CLIE' + ') as CANTIDAD_DEVUELTA, (sum(CANTIDAD_CONSEGUIDA) + sum(CANTIDAD' +
'NTE,'#10'0 as CANTIDAD_OBJETIVO, 0 as IMPORTE_OBJETIVO,'#10'0 as CANTIDA' + '_DEVUELTA)) as CANTIDAD_TOTAL_CONSEGUIDA,'#10'sum(IMPORTE_CONSEGUIDO' +
'D_CONSEGUIDA, 0 as CANTIDAD_DEVUELTA, 0 as IMPORTE_CONSEGUIDO, 0' + ') as IMPORTE_CONSEGUIDO, sum(IMPORTE_DEVUELTO) as IMPORTE_DEVUEL' +
' as IMPORTE_DEVUELTO'#10'from v_inf_obj_clientes_agentes'#10'where (ANO ' + 'TO, (sum(IMPORTE_CONSEGUIDO) + sum(IMPORTE_DEVUELTO)) as IMPORTE' +
'= :ANO1)'#10'group by 1,2,3'#10') SEN'#10#10'left join periodos_aux P on ((P.p' + '_TOTAL_CONSEGUIDO'#10'from v_inf_objetivos_albaranes'#10'where ((v_inf_o' +
'eriodo = '#39'SEMESTRAL'#39') and (P.valor = SEMESTRE))'#10'left join contac' + 'bjetivos_albaranes.id_empresa = :ID_EMPRESA) and (v_inf_objetivo' +
'tos C on (C.ID = SEN.ID_AGENTE)'#10#10'left join'#10'('#10'select coalesce(ID_' + 's_albaranes.ANO = :ANO1))'#10'group by 1,2,3'#10#10'UNION ALL'#10#10'select ID_A' +
'AGENTE, -1) as ID_AGENTE, count(ID_CLIENTE) as NUM_CLIENTES_TOTA' + 'GENTE, ANO, SEMESTRE,'#10'count(ID_CLIENTE) as ALTAS_CLIENTE,'#10'0 as C' +
'LES'#10'from clientes_datos'#10'group by 1'#10') CLIENTES_TOTALES on (CLIENT' + 'ANTIDAD_OBJETIVO, 0 as IMPORTE_OBJETIVO,'#10'0 as CANTIDAD_CONSEGUID' +
'ES_TOTALES.ID_AGENTE = SEN.id_Agente)'#10#10'where {where}'#10'group by 1,' + 'A, 0 as CANTIDAD_DEVUELTA, 0 as CANTIDAD_TOTAL_CONSEGUIDA, 0 as ' +
'2,3,4,5,6'#10'order by 1,2,3,4,5,6'#10#10#10#10 'IMPORTE_CONSEGUIDO, 0 as IMPORTE_DEVUELTO, 0 as IMPORTE_TOTAL_CO' +
'NSEGUIDO'#10'from v_inf_obj_clientes_agentes'#10'where (ANO = :ANO1)'#10'gro' +
'up by 1,2,3'#10') SEN'#10#10'left join periodos_aux P on ((P.periodo = '#39'SE' +
'MESTRAL'#39') and (P.valor = SEMESTRE))'#10'left join contactos C on (C.' +
'ID = SEN.ID_AGENTE)'#10'left join agentes_datos on (agentes_datos.id' +
'_agente = SEN.ID_AGENTE)'#10#10'left join'#10'('#10'select coalesce(ID_AGENTE,' +
' -1) as ID_AGENTE, count(ID_CLIENTE) as NUM_CLIENTES_TOTALES'#10'fro' +
'm clientes_datos'#10'group by 1'#10') CLIENTES_TOTALES on (CLIENTES_TOTA' +
'LES.ID_AGENTE = SEN.id_Agente)'#10#10'where agentes_datos.FECHA_BAJA i' +
's null'#10'and {where}'#10'group by 1,2,3,4,5,6'#10'order by 1,2,3,4,5,6'#10#10#10#10 +
#10#10#10#10#10
StatementType = stSQL StatementType = stSQL
ColumnMappings = < ColumnMappings = <
item
DatasetField = 'ID_AGENTE'
TableField = 'ID_AGENTE'
end
item
DatasetField = 'AGENTE'
TableField = 'AGENTE'
end
item item
DatasetField = 'ANO' DatasetField = 'ANO'
TableField = 'ANO' TableField = 'ANO'
end end
item
DatasetField = 'SEMESTRE'
TableField = 'SEMESTRE'
end
item
DatasetField = 'DESCRIPCION'
TableField = 'DESCRIPCION'
end
item
DatasetField = 'CLIENTES_TOTALES'
TableField = 'CLIENTES_TOTALES'
end
item
DatasetField = 'ALTAS_CLIENTE'
TableField = 'ALTAS_CLIENTE'
end
item item
DatasetField = 'CANTIDAD_OBJETIVO' DatasetField = 'CANTIDAD_OBJETIVO'
TableField = 'CANTIDAD_OBJETIVO' TableField = 'CANTIDAD_OBJETIVO'
@ -2407,26 +2374,6 @@ object RptAlbaranesCliente: TRptAlbaranesCliente
DatasetField = 'IMPORTE_RESULTADO' DatasetField = 'IMPORTE_RESULTADO'
TableField = 'IMPORTE_RESULTADO' TableField = 'IMPORTE_RESULTADO'
end end
item
DatasetField = 'DESCRIPCION'
TableField = 'DESCRIPCION'
end
item
DatasetField = 'AGENTE'
TableField = 'AGENTE'
end
item
DatasetField = 'ID_AGENTE'
TableField = 'ID_AGENTE'
end
item
DatasetField = 'ALTAS_CLIENTE'
TableField = 'ALTAS_CLIENTE'
end
item
DatasetField = 'CLIENTES_TOTALES'
TableField = 'CLIENTES_TOTALES'
end
item item
DatasetField = 'IMPORTE_MEDIO_UNIDAD' DatasetField = 'IMPORTE_MEDIO_UNIDAD'
TableField = 'IMPORTE_MEDIO_UNIDAD' TableField = 'IMPORTE_MEDIO_UNIDAD'
@ -2436,8 +2383,12 @@ object RptAlbaranesCliente: TRptAlbaranesCliente
TableField = 'IMPORTE_MEDIO_CLIENTE' TableField = 'IMPORTE_MEDIO_CLIENTE'
end end
item item
DatasetField = 'SEMESTRE' DatasetField = 'CANTIDAD_TOTAL_CONSEGUIDA'
TableField = 'SEMESTRE' TableField = 'CANTIDAD_TOTAL_CONSEGUIDA'
end
item
DatasetField = 'IMPORTE_TOTAL_CONSEGUIDO'
TableField = 'IMPORTE_TOTAL_CONSEGUIDO'
end> end>
end> end>
Name = 'InformeListadoObjetivosSemestral' Name = 'InformeListadoObjetivosSemestral'
@ -2488,6 +2439,10 @@ object RptAlbaranesCliente: TRptAlbaranesCliente
Name = 'CANTIDAD_DEVUELTA' Name = 'CANTIDAD_DEVUELTA'
DataType = datCurrency DataType = datCurrency
end end
item
Name = 'CANTIDAD_TOTAL_CONSEGUIDA'
DataType = datCurrency
end
item item
Name = 'IMPORTE_CONSEGUIDO' Name = 'IMPORTE_CONSEGUIDO'
DataType = datCurrency DataType = datCurrency
@ -2496,6 +2451,10 @@ object RptAlbaranesCliente: TRptAlbaranesCliente
Name = 'IMPORTE_DEVUELTO' Name = 'IMPORTE_DEVUELTO'
DataType = datCurrency DataType = datCurrency
end end
item
Name = 'IMPORTE_TOTAL_CONSEGUIDO'
DataType = datCurrency
end
item item
Name = 'CANTIDAD_RESULTADO' Name = 'CANTIDAD_RESULTADO'
DataType = datCurrency DataType = datCurrency
@ -2532,7 +2491,7 @@ object RptAlbaranesCliente: TRptAlbaranesCliente
PrintOptions.Printer = 'Por defecto' PrintOptions.Printer = 'Por defecto'
PrintOptions.PrintOnSheet = 0 PrintOptions.PrintOnSheet = 0
ReportOptions.CreateDate = 37800.807714351900000000 ReportOptions.CreateDate = 37800.807714351900000000
ReportOptions.LastChange = 40935.658182025470000000 ReportOptions.LastChange = 40952.717896423610000000
ScriptLanguage = 'PascalScript' ScriptLanguage = 'PascalScript'
ScriptText.Strings = ( ScriptText.Strings = (
'procedure mContinuaOnBeforePrint(Sender: TfrxComponent);' 'procedure mContinuaOnBeforePrint(Sender: TfrxComponent);'
@ -3793,6 +3752,10 @@ object RptAlbaranesCliente: TRptAlbaranesCliente
Name = 'CANTIDAD_DEVUELTA' Name = 'CANTIDAD_DEVUELTA'
DataType = datCurrency DataType = datCurrency
end end
item
Name = 'CANTIDAD_TOTAL_CONSEGUIDA'
DataType = datCurrency
end
item item
Name = 'IMPORTE_CONSEGUIDO' Name = 'IMPORTE_CONSEGUIDO'
DataType = datCurrency DataType = datCurrency
@ -3801,6 +3764,10 @@ object RptAlbaranesCliente: TRptAlbaranesCliente
Name = 'IMPORTE_DEVUELTO' Name = 'IMPORTE_DEVUELTO'
DataType = datCurrency DataType = datCurrency
end end
item
Name = 'IMPORTE_TOTAL_CONSEGUIDO'
DataType = datCurrency
end
item item
Name = 'CANTIDAD_RESULTADO' Name = 'CANTIDAD_RESULTADO'
DataType = datCurrency DataType = datCurrency
@ -3885,6 +3852,10 @@ object RptAlbaranesCliente: TRptAlbaranesCliente
Name = 'CANTIDAD_DEVUELTA' Name = 'CANTIDAD_DEVUELTA'
DataType = datCurrency DataType = datCurrency
end end
item
Name = 'CANTIDAD_TOTAL_CONSEGUIDA'
DataType = datCurrency
end
item item
Name = 'IMPORTE_CONSEGUIDO' Name = 'IMPORTE_CONSEGUIDO'
DataType = datCurrency DataType = datCurrency
@ -3893,6 +3864,10 @@ object RptAlbaranesCliente: TRptAlbaranesCliente
Name = 'IMPORTE_DEVUELTO' Name = 'IMPORTE_DEVUELTO'
DataType = datCurrency DataType = datCurrency
end end
item
Name = 'IMPORTE_TOTAL_CONSEGUIDO'
DataType = datCurrency
end
item item
Name = 'CANTIDAD_RESULTADO' Name = 'CANTIDAD_RESULTADO'
DataType = datCurrency DataType = datCurrency
@ -3977,6 +3952,10 @@ object RptAlbaranesCliente: TRptAlbaranesCliente
Name = 'CANTIDAD_DEVUELTA' Name = 'CANTIDAD_DEVUELTA'
DataType = datCurrency DataType = datCurrency
end end
item
Name = 'CANTIDAD_TOTAL_CONSEGUIDA'
DataType = datCurrency
end
item item
Name = 'IMPORTE_CONSEGUIDO' Name = 'IMPORTE_CONSEGUIDO'
DataType = datCurrency DataType = datCurrency
@ -3985,6 +3964,10 @@ object RptAlbaranesCliente: TRptAlbaranesCliente
Name = 'IMPORTE_DEVUELTO' Name = 'IMPORTE_DEVUELTO'
DataType = datCurrency DataType = datCurrency
end end
item
Name = 'IMPORTE_TOTAL_CONSEGUIDO'
DataType = datCurrency
end
item item
Name = 'CANTIDAD_RESULTADO' Name = 'CANTIDAD_RESULTADO'
DataType = datCurrency DataType = datCurrency

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

@ -375,11 +375,6 @@ begin
else else
PrepararTablaInformeObjetivos(tbl_InformeObjetivosSemestral); PrepararTablaInformeObjetivos(tbl_InformeObjetivosSemestral);
//Se preparan las tablas del listado resumen del informe
// PrepararTablaResumenInformeGrafComp(tbl_InformeListadoClientesMayorAlbaranadoResumen);
// PrepararTablaResumenInformeGrafComp(tbl_InformeListadoClientesMayorIncidenciasResumen);
// PrepararTablaResumenInformeGrafComp(tbl_InformeListadoClientesMayorOrdenesDevResumen);
Result := Binary.Create; Result := Binary.Create;
AInforme := DarRutaFichero(DarRutaInformes, rptInformeObjetivosAgentesAlbaranes, IntTostr(FIdEmpresa)); AInforme := DarRutaFichero(DarRutaInformes, rptInformeObjetivosAgentesAlbaranes, IntTostr(FIdEmpresa));
@ -462,7 +457,7 @@ begin
begin begin
// (ID_AGENTE = ID) // (ID_AGENTE = ID)
Condicion := NewBinaryExpression(NewField('OBJETIVOS', 'ID_AGENTE'), NewConstant(FListaIDAgentes.Items[i], datInteger), dboEqual); Condicion := NewBinaryExpression(NewField('SEN', 'ID_AGENTE'), NewConstant(FListaIDAgentes.Items[i], datInteger), dboEqual);
if IsEmpty then if IsEmpty then
Expression := Condicion Expression := Condicion
else else
@ -471,7 +466,6 @@ begin
end; end;
end; end;
DADSInformeObjetivos.DataTable := ATabla; DADSInformeObjetivos.DataTable := ATabla;
ATabla.ParamByName('ID_EMPRESA').AsInteger := FIdEmpresa; ATabla.ParamByName('ID_EMPRESA').AsInteger := FIdEmpresa;
ATabla.ParamByName('ANO1').AsVariant := FAno1; ATabla.ParamByName('ANO1').AsVariant := FAno1;

37
Source/Modulos/Contactos/Views/uEditorAgente.dfm
View File

@ -132,7 +132,7 @@ inherited fEditorAgente: TfEditorAgente
inherited pgPaginas: TPageControl inherited pgPaginas: TPageControl
Width = 864 Width = 864
Height = 614 Height = 614
ActivePage = ObjetivosFacturas ActivePage = ObjetivosAlbaranes
ExplicitWidth = 864 ExplicitWidth = 864
ExplicitHeight = 614 ExplicitHeight = 614
inherited pagGeneral: TTabSheet inherited pagGeneral: TTabSheet
@ -366,18 +366,6 @@ inherited fEditorAgente: TfEditorAgente
inherited ToolBar1: TToolBar inherited ToolBar1: TToolBar
Width = 856 Width = 856
ExplicitWidth = 856 ExplicitWidth = 856
inherited ToolButton1: TToolButton
ExplicitWidth = 113
end
inherited ToolButton4: TToolButton
ExplicitWidth = 113
end
inherited ToolButton2: TToolButton
ExplicitWidth = 113
end
inherited ToolButton7: TToolButton
ExplicitWidth = 113
end
end end
end end
end end
@ -415,7 +403,7 @@ inherited fEditorAgente: TfEditorAgente
end end
end end
object ObjetivosAlbaranes: TTabSheet object ObjetivosAlbaranes: TTabSheet
Caption = 'Objetivos Albaranes' Caption = 'Objetivos'
ImageIndex = 4 ImageIndex = 4
inline frViewAgenteObjetivosAlbaranes1: TfrViewAgenteObjetivosAlbaranes inline frViewAgenteObjetivosAlbaranes1: TfrViewAgenteObjetivosAlbaranes
Left = 0 Left = 0
@ -459,18 +447,6 @@ inherited fEditorAgente: TfEditorAgente
inherited ToolBar1: TToolBar inherited ToolBar1: TToolBar
Width = 856 Width = 856
ExplicitWidth = 856 ExplicitWidth = 856
inherited ToolButton1: TToolButton
ExplicitWidth = 113
end
inherited ToolButton4: TToolButton
ExplicitWidth = 113
end
inherited ToolButton2: TToolButton
ExplicitWidth = 113
end
inherited ToolButton7: TToolButton
ExplicitWidth = 113
end
end end
inherited tbxFiltro: TTBXToolbar inherited tbxFiltro: TTBXToolbar
Width = 856 Width = 856
@ -481,6 +457,7 @@ inherited fEditorAgente: TfEditorAgente
object ObjetivosFacturas: TTabSheet object ObjetivosFacturas: TTabSheet
Caption = 'Objetivos Facturas' Caption = 'Objetivos Facturas'
ImageIndex = 5 ImageIndex = 5
TabVisible = False
inline frViewAgenteObjetivosFacturas1: TfrViewAgenteObjetivosFacturas inline frViewAgenteObjetivosFacturas1: TfrViewAgenteObjetivosFacturas
Left = 0 Left = 0
Top = 0 Top = 0
@ -495,11 +472,13 @@ inherited fEditorAgente: TfEditorAgente
ParentFont = False ParentFont = False
TabOrder = 0 TabOrder = 0
ReadOnly = False ReadOnly = False
ExplicitLeft = 353 ExplicitWidth = 856
ExplicitTop = 229 ExplicitHeight = 586
inherited cxGrid: TcxGrid inherited cxGrid: TcxGrid
Width = 856 Width = 856
Height = 540 Height = 540
ExplicitWidth = 856
ExplicitHeight = 540
inherited cxGridView: TcxGridDBTableView inherited cxGridView: TcxGridDBTableView
DataController.Summary.DefaultGroupSummaryItems = < DataController.Summary.DefaultGroupSummaryItems = <
item item
@ -521,9 +500,11 @@ inherited fEditorAgente: TfEditorAgente
end end
inherited ToolBar1: TToolBar inherited ToolBar1: TToolBar
Width = 856 Width = 856
ExplicitWidth = 856
end end
inherited tbxFiltro: TTBXToolbar inherited tbxFiltro: TTBXToolbar
Width = 856 Width = 856
ExplicitWidth = 856
end end
end end
end end

8
Source/Modulos/Contactos/Views/uViewAgenteObjetivosAlbaranes.pas
View File

@ -43,7 +43,7 @@ type
implementation implementation
{$R *.dfm} {$R *.dfm}
uses schContactosClient_Intf; uses schContactosClient_Intf, DateUtils;
{ TfrViewAgenteObjetivosAlbaranes } { TfrViewAgenteObjetivosAlbaranes }
@ -58,10 +58,14 @@ begin
end; end;
procedure TfrViewAgenteObjetivosAlbaranes.CustomViewShow(Sender: TObject); procedure TfrViewAgenteObjetivosAlbaranes.CustomViewShow(Sender: TObject);
var
i: Integer;
Ano: String;
begin begin
Ano := IntToStr(YearOf(Date));
cbxListaAnos.OnChange := OnListaAnosChange; //OJO SIEMPRE ANTES DEL INHERITED cbxListaAnos.OnChange := OnListaAnosChange; //OJO SIEMPRE ANTES DEL INHERITED
inherited; inherited;
cbxListaAnos.ItemIndex := 0; cbxListaAnos.ItemIndex := FListaAnos.IndexOfName(Ano);
end; end;
function TfrViewAgenteObjetivosAlbaranes.GetController: IAgentesController; function TfrViewAgenteObjetivosAlbaranes.GetController: IAgentesController;

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

File diff suppressed because it is too large Load Diff

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

@ -106,10 +106,12 @@ type
tbl_InformeListadoBeneficiosGrafCompSemestral: TDAMemDataTable; tbl_InformeListadoBeneficiosGrafCompSemestral: TDAMemDataTable;
tbl_InformeListadoBeneficiosGrafCompTrimestral: TDAMemDataTable; tbl_InformeListadoBeneficiosGrafCompTrimestral: TDAMemDataTable;
tbl_InformeListadoBeneficiosGrafCompMensual: TDAMemDataTable; tbl_InformeListadoBeneficiosGrafCompMensual: TDAMemDataTable;
schReport: TDASchema;
tbl_InformeObjetivos: TDAMemDataTable;
DADSInformeObjetivos: TDADataSource; DADSInformeObjetivos: TDADataSource;
frxDBInformeObjetivos: TfrxDBDataset; frxDBInformeObjetivos: TfrxDBDataset;
tbl_InformeObjetivosMensual: TDAMemDataTable;
tbl_InformeObjetivosTrimestral: TDAMemDataTable;
tbl_InformeObjetivosSemestral: TDAMemDataTable;
schReport: TDASchema;
procedure DataModuleCreate(Sender: TObject); procedure DataModuleCreate(Sender: TObject);
procedure DataModuleDestroy(Sender: TObject); procedure DataModuleDestroy(Sender: TObject);
procedure frxReportGetValue(const VarName: string; var Value: Variant); procedure frxReportGetValue(const VarName: string; var Value: Variant);
@ -125,6 +127,8 @@ type
FIntervalo: Variant; FIntervalo: Variant;
FListaIDClientes: TIntegerArray; FListaIDClientes: TIntegerArray;
FListaNombresClientes : TStringList; FListaNombresClientes : TStringList;
FListaIDAgentes: TIntegerArray;
FListaNombresAgentes : TStringList;
FImporteMinimo: Currency; FImporteMinimo: Currency;
FDesglosado : Boolean; FDesglosado : Boolean;
FShowLogotipo: Boolean; FShowLogotipo: Boolean;
@ -137,9 +141,11 @@ type
procedure PrepararTablaResumenInforme(ATabla: IDADataset); procedure PrepararTablaResumenInforme(ATabla: IDADataset);
procedure PrepararTablaInformeGrafComp(ATabla: TDAMemDataTable); procedure PrepararTablaInformeGrafComp(ATabla: TDAMemDataTable);
procedure PrepararTablaResumenInformeGrafComp(ATabla: TDAMemDataTable); procedure PrepararTablaResumenInformeGrafComp(ATabla: TDAMemDataTable);
procedure PrepararTablaInformeObjetivos(ATabla: TDAMemDataTable);
function _GenerarInforme(const TipoInforme: String): Binary; function _GenerarInforme(const TipoInforme: String): Binary;
procedure IniciarParametrosInforme; procedure IniciarParametrosInforme;
procedure RecuperarNombresClientes; procedure RecuperarNombresClientes;
procedure RecuperarNombresAgentes;
public public
function GenerarFactura(const ListaID : TIntegerArray; const VerSello: Boolean = True; const VerCopia: Boolean = True): Binary; function GenerarFactura(const ListaID : TIntegerArray; const VerSello: Boolean = True; const VerCopia: Boolean = True): Binary;
function GenerarFacturaEnPDF(const ListaID : TIntegerArray; const VerSello: Boolean = True): Binary; function GenerarFacturaEnPDF(const ListaID : TIntegerArray; const VerSello: Boolean = True): Binary;
@ -148,6 +154,7 @@ type
function GenerarInformeListadoFacturasPendientes(const IdEmpresa: Integer; const FechaInicio: Variant; const FechaFin: Variant; const FechaVenInicio: Variant; const FechaVenFin: Variant; const ListaIDClientes: TIntegerArray; const Desglosado: Boolean; const ImporteMinimo: Currency): Binary; function GenerarInformeListadoFacturasPendientes(const IdEmpresa: Integer; const FechaInicio: Variant; const FechaFin: Variant; const FechaVenInicio: Variant; const FechaVenFin: Variant; const ListaIDClientes: TIntegerArray; const Desglosado: Boolean; const ImporteMinimo: Currency): Binary;
function GenerarInformeFacturasGrafComp(const IdEmpresa: Integer; const Intervalo: Variant; const Ano1: Variant; const Ano2: Variant; const ListaIDClientes: TIntegerArray; const TopN: Integer): Binary; function GenerarInformeFacturasGrafComp(const IdEmpresa: Integer; const Intervalo: Variant; const Ano1: Variant; const Ano2: Variant; const ListaIDClientes: TIntegerArray; const TopN: Integer): Binary;
function GenerarInformeBeneficiosGrafComp(const IdEmpresa: Integer; const Intervalo: Variant; const Ano1: Variant; const Ano2: Variant; const Serie: Variant): Binary; function GenerarInformeBeneficiosGrafComp(const IdEmpresa: Integer; const Intervalo: Variant; const Ano1: Variant; const Ano2: Variant; const Serie: Variant): Binary;
function GenerarInformeObjetivosAgentesFacturas(const IdEmpresa: Integer; const Intervalo: Variant; const Ano1: Variant; const Ano2: Variant; const ListaIDAgentes: TIntegerArray; const TopN: Integer): Binary;
end; end;
implementation implementation
@ -167,7 +174,8 @@ const
rptInformeListadoFactuasClientePendiente = 'InformeListadoFacturasClientePendientes.fr3'; rptInformeListadoFactuasClientePendiente = 'InformeListadoFacturasClientePendientes.fr3';
rptInformeListadoFactuasClientePendienteDesglosado = 'InformeListadoFacturasClientePendientesDesglosado.fr3'; rptInformeListadoFactuasClientePendienteDesglosado = 'InformeListadoFacturasClientePendientesDesglosado.fr3';
rptInformeListadoFacturasClienteGrafComp = 'InformeListadoFacturasClienteGrafComp.fr3'; rptInformeListadoFacturasClienteGrafComp = 'InformeListadoFacturasClienteGrafComp.fr3';
rptInformeListadoBeneficiosGrafComp = 'InformeListadoBeneficiosGrafComp.fr3'; rptInformeListadoBeneficiosGrafComp = 'InformeListadoBeneficiosGrafComp.fr3';
rptInformeObjetivosAgentesFacturas = 'InformeObjetivosAgentesFacturas.fr3';
{ Dataset names for schReport } { Dataset names for schReport }
ds_InformeListadoFacturasResumen = 'InformeListadoFacturasResumen'; ds_InformeListadoFacturasResumen = 'InformeListadoFacturasResumen';
@ -526,6 +534,55 @@ begin
end; end;
end; end;
function TRptFacturasCliente.GenerarInformeObjetivosAgentesFacturas(
const IdEmpresa: Integer; const Intervalo, Ano1, Ano2: Variant;
const ListaIDAgentes: TIntegerArray; const TopN: Integer): Binary;
var
AStream: TMemoryStream;
AInforme: Variant;
begin
FConnection.BeginTransaction; //<--- Creo que no va a hacer falta. "PUES SI ES NECESARIO"
AStream := TMemoryStream.Create;
try
//Inicializamos parametros
FIdEmpresa := IdEmpresa;
FAno1 := Ano1;
FIntervalo := Intervalo;
FFechaVenInicio := Null;
FFechaVenFin := Null;
if Assigned(FListaIDAgentes) then
FListaIDClientes.Free;
FListaIDAgentes := ListaIDAgentes;
//Preparamos la tabla correspondiente y la abrimos para el informe
if (FIntervalo = CTE_MENSUAL) then
PrepararTablaInformeObjetivos(tbl_InformeObjetivosMensual)
else if (FIntervalo = CTE_TRIMESTRAL) then
PrepararTablaInformeObjetivos(tbl_InformeObjetivosTrimestral)
else
PrepararTablaInformeObjetivos(tbl_InformeObjetivosSemestral);
Result := Binary.Create;
AInforme := DarRutaFichero(DarRutaInformes, rptInformeObjetivosAgentesFacturas, IntTostr(FIdEmpresa));
if VarIsNull(AInforme) then
raise Exception.Create (('Error Servidor: GenerarInformeObjetivosAgentesFacturas, no encuentra informe ' + rptInformeObjetivosAgentesFacturas));
frxReport.LoadFromFile(AInforme, True);
IniciarParametrosInforme;
frxReport.PrepareReport(False);
frxReport.PreviewPages.SaveToStream(Result);
finally
AStream.Free;
FConnection.RollbackTransaction; //<--- Creo que no va a hacer falta. "PUES SI ES NECESARIO"
end;
end;
procedure TRptFacturasCliente.IniciarParametrosInforme; procedure TRptFacturasCliente.IniciarParametrosInforme;
var var
ATextos : TStringList; ATextos : TStringList;
@ -567,6 +624,29 @@ begin
ACadena := ACadena + ' (desglosados)' ACadena := ACadena + ' (desglosados)'
end; end;
if not VarIsNull(FAno1) then
begin
ACadena := 'Año: ' + FAno1;
ATextos.Add(ACadena);
end;
if Assigned(FListaIDAgentes) and (FListaIDAgentes.Count > 0) then
begin
ACadena := 'Agente: ';
RecuperarNombresAgentes;
ACadena := ACadena + FListaNombresAgentes.Text;
end
else begin
ACadena := 'Todos los agentes';
// if FDesglosado then
ACadena := ACadena + ' (desglosados)'
end;
ATextos.Add(ACadena);
ACadena := '';
ATextos.Add(ACadena); ATextos.Add(ACadena);
ACadena := ''; ACadena := '';
@ -672,6 +752,40 @@ begin
ATabla.Active := True; ATabla.Active := True;
end; end;
procedure TRptFacturasCliente.PrepararTablaInformeObjetivos(
ATabla: TDAMemDataTable);
var
Condicion: TDAWhereExpression;
i: Integer;
begin
if ATabla.Active then
ATabla.Active := False;
// Filtrar el informe por agente
if Assigned(FListaIDAgentes) then
begin
with ATabla.DynamicWhere do
begin
for i := 0 to FListaIDAgentes.Count - 1 do
begin
// (ID_AGENTE = ID)
Condicion := NewBinaryExpression(NewField('SEN', 'ID_AGENTE'), NewConstant(FListaIDAgentes.Items[i], datInteger), dboEqual);
if IsEmpty then
Expression := Condicion
else
Expression := NewBinaryExpression(Expression, Condicion, dboAnd);
end;
end;
end;
DADSInformeObjetivos.DataTable := ATabla;
ATabla.ParamByName('ID_EMPRESA').AsInteger := FIdEmpresa;
ATabla.ParamByName('ANO1').AsVariant := FAno1;
ATabla.Active := True;
end;
procedure TRptFacturasCliente.PrepararTablaResumenInforme(ATabla: IDADataset); procedure TRptFacturasCliente.PrepararTablaResumenInforme(ATabla: IDADataset);
var var
i: Integer; i: Integer;
@ -733,6 +847,96 @@ begin
ATabla.Active := True; ATabla.Active := True;
end; end;
procedure TRptFacturasCliente.RecuperarNombresAgentes;
var
AContactosService : IsrvContactos;
Intf : IInterface;
AClientID : TGUID;
ATableNameArray: StringArray;
ATableRequestInfoArray: TableRequestInfoArray;
ATableRequestInfo: TableRequestInfoV5;
AStream: TMemoryStream;
ADataTable: TDAMemDataTable;
i: Integer;
AWhereBuilder : TDAWhereBuilder;
ACondicion : TDAWhereExpression;
begin
CreateGUID(AClientID);
GetClassFactory('srvContactos').CreateInstance(AClientID, Intf);
if Assigned(Intf) then
begin
AContactosService := Intf as IsrvContactos;
ATableNameArray := StringArray.Create;
ATableRequestInfoArray := TableRequestInfoArray.Create;
AWhereBuilder := TDAWhereBuilder.Create;
try
ATableNameArray.Add('Agentes');
ATableRequestInfo := TableRequestInfoV5.Create;
with ATableRequestInfo do
begin
IncludeSchema := True;
MaxRecords := -1;
UserFilter := '';
AWhereBuilder.Clear;
with AWhereBuilder do
for i := 0 to FListaIDAgentes.Count - 1 do
begin
ACondicion := NewBinaryExpression(
NewBinaryExpression(NewField('', 'ID'), NewConstant(FListaIDAgentes[i], datInteger), dboEqual),
NewBinaryExpression(NewField('', 'ID_EMPRESA'), NewConstant(FIdEmpresa, datInteger), dboEqual),
dboAnd);
if not AWhereBuilder.IsEmpty then
Expression := NewBinaryExpression(Expression, ACondicion, dboOr)
else
Expression := ACondicion;
end;
WhereClause := AWhereBuilder.ExpressionToXmlNode(AWhereBuilder.Expression);
end;
try
ATableRequestInfoArray.Add(ATableRequestInfo);
AStream := AContactosService.GetData(ATableNameArray, ATableRequestInfoArray);
if Assigned(AStream) then
begin
ADataTable := TDAMemDataTable.Create(nil);
try
ADataTable.Name := 'Agentes';
ADataTable.LocalDataStreamer := Bin2DataStreamer;
ADataTable.RemoteFetchEnabled := False;
Bin2DataStreamer.ReadDataset(AStream, ADataTable, True);
ADataTable.Open;
FListaNombresAgentes.Clear;
for i := 0 to ADataTable.RecordCount - 1 do
begin
FListaNombresAgentes.Add(ADataTable.FieldByName('NOMBRE').AsString);
ADataTable.Next;
end;
finally
FreeANDNil(ADataTable);
end;
end;
except
on e: Exception do
dmServer.EscribirLog(e.Message);
end;
finally
FreeANDNIL(ATableRequestInfoArray);
FreeANDNIL(ATableNameArray);
FreeANDNIL(AWhereBuilder);
end;
end;
end;
procedure TRptFacturasCliente.RecuperarNombresClientes; procedure TRptFacturasCliente.RecuperarNombresClientes;
var var
AContactosService : IsrvContactos; AContactosService : IsrvContactos;

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

@ -736,8 +736,29 @@ begin
end; end;
procedure TGestorInformesController.VerInformeObjetivosFacturas; procedure TGestorInformesController.VerInformeObjetivosFacturas;
var
AStream: Binary;
AEditor : IEditorInformeObjetivosFacturasReport;
begin begin
// AEditor := NIL;
ShowHourglassCursor;
CreateEditor('EditorInformeObjetivosFacturasReport', IEditorInformeObjetivosFacturasReport, AEditor);
if Assigned(AEditor) then
try
AEditor.Controller := Self;
AEditor.Title := 'Informe comparativo de objetivos de agentes de facturas';
AStream := FDataModule.GenerarInformeObjetivosAgentesFacturas(AppFactuGES.EmpresaActiva.ID,
AEditor.Intervalo, AEditor.Ano1, AEditor.Ano2, AEditor.ListaIDAgentes, AEditor.NTop);
AEditor.LoadFromStream(AStream);
AEditor.Preview;
finally
AEditor.Release;
AEditor := Nil;
HideHourglassCursor;
FreeAndNil(AStream);
end;
end; end;
{ {

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

@ -38,6 +38,7 @@ type
function GenerarInformeFacturasCliGrafComp(const IdEmpresa: Integer; const Intervalo: Variant; const Ano1: Variant; const Ano2: Variant; const ListaIDClientes: TIntegerArray; Const NTop: Variant): Binary; function GenerarInformeFacturasCliGrafComp(const IdEmpresa: Integer; const Intervalo: Variant; const Ano1: Variant; const Ano2: Variant; const ListaIDClientes: TIntegerArray; Const NTop: Variant): Binary;
function DarListaAnosFacturasCli: TStringList; function DarListaAnosFacturasCli: TStringList;
function GenerarInformeBeneficiosGrafComp(const IdEmpresa: Integer; const Intervalo: Variant; const Ano1: Variant; const Ano2: Variant; const Serie: Variant): Binary; function GenerarInformeBeneficiosGrafComp(const IdEmpresa: Integer; const Intervalo: Variant; const Ano1: Variant; const Ano2: Variant; const Serie: Variant): Binary;
function GenerarInformeObjetivosAgentesFacturas(const IdEmpresa: Integer; const Intervalo: Variant; const Ano1: Variant; const Ano2: Variant; const ListaIDAgentes: TIntegerArray; Const NTop: Variant): Binary;
//MODULO RECIBOS DE CLIENTE //MODULO RECIBOS DE CLIENTE
function GenerarInformeListadoRecibosCliPendientes(const IdEmpresa: Integer; const FechaInicio: Variant; const FechaFin: Variant; const FechaVenInicio: Variant; const FechaVenFin: Variant; const ListaIDClientes: TIntegerArray; const Desglosado: Boolean; const ImporteMinimo: Currency): Binary; function GenerarInformeListadoRecibosCliPendientes(const IdEmpresa: Integer; const FechaInicio: Variant; const FechaFin: Variant; const FechaVenInicio: Variant; const FechaVenFin: Variant; const ListaIDClientes: TIntegerArray; const Desglosado: Boolean; const ImporteMinimo: Currency): Binary;
@ -323,6 +324,13 @@ begin
Result := (RORemoteService as IsrvGestorInformes).GenerarInformeObjetivosAgentesAlbaranes(IdEmpresa, Intervalo, Ano1, Ano2, ListaIdAgentes, NTop); Result := (RORemoteService as IsrvGestorInformes).GenerarInformeObjetivosAgentesAlbaranes(IdEmpresa, Intervalo, Ano1, Ano2, ListaIdAgentes, NTop);
end; end;
function TDataModuleGestorInformes.GenerarInformeObjetivosAgentesFacturas(
const IdEmpresa: Integer; const Intervalo, Ano1, Ano2: Variant;
const ListaIDAgentes: TIntegerArray; const NTop: Variant): Binary;
begin
Result := (RORemoteService as IsrvGestorInformes).GenerarInformeObjetivosAgentesFacturas(IdEmpresa, Intervalo, Ano1, Ano2, ListaIdAgentes, NTop);
end;
procedure TDataModuleGestorInformes.getInforme; procedure TDataModuleGestorInformes.getInforme;
begin begin
tbl_DirectoryData.close; tbl_DirectoryData.close;

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

@ -26,7 +26,8 @@ type
function GenerarInformeListadoFacturasCliPendientes(const IdEmpresa: Integer; const FechaInicio: Variant; const FechaFin: Variant; const FechaVenInicio: Variant; const FechaVenFin: Variant; const ListaIDClientes: TIntegerArray; const Desglosado: Boolean; const ImporteMinimo: Currency): Binary; function GenerarInformeListadoFacturasCliPendientes(const IdEmpresa: Integer; const FechaInicio: Variant; const FechaFin: Variant; const FechaVenInicio: Variant; const FechaVenFin: Variant; const ListaIDClientes: TIntegerArray; const Desglosado: Boolean; const ImporteMinimo: Currency): Binary;
function GenerarInformeFacturasCliGrafComp(const IdEmpresa: Integer; const Intervalo: Variant; const Ano1: Variant; const Ano2: Variant; const ListaIDClientes: TIntegerArray; Const NTop: Variant): Binary; function GenerarInformeFacturasCliGrafComp(const IdEmpresa: Integer; const Intervalo: Variant; const Ano1: Variant; const Ano2: Variant; const ListaIDClientes: TIntegerArray; Const NTop: Variant): Binary;
function DarListaAnosFacturasCli: TStringList; function DarListaAnosFacturasCli: TStringList;
function GenerarInformeBeneficiosGrafComp(const IdEmpresa: Integer; const Intervalo: Variant; const Ano1: Variant; const Ano2: Variant; const Serie: Variant): Binary; function GenerarInformeBeneficiosGrafComp(const IdEmpresa: Integer; const Intervalo: Variant; const Ano1: Variant; const Ano2: Variant; const Serie: Variant): Binary;
function GenerarInformeObjetivosAgentesFacturas(const IdEmpresa: Integer; const Intervalo: Variant; const Ano1: Variant; const Ano2: Variant; const ListaIDAgentes: TIntegerArray; Const NTop: Variant): Binary;
//MODULO RECIBOS DE CLIENTE //MODULO RECIBOS DE CLIENTE
function GenerarInformeListadoRecibosCliPendientes(const IdEmpresa: Integer; const FechaInicio: Variant; const FechaFin: Variant; const FechaVenInicio: Variant; const FechaVenFin: Variant; const ListaIDClientes: TIntegerArray; const Desglosado: Boolean; const ImporteMinimo: Currency): Binary; function GenerarInformeListadoRecibosCliPendientes(const IdEmpresa: Integer; const FechaInicio: Variant; const FechaFin: Variant; const FechaVenInicio: Variant; const FechaVenFin: Variant; const ListaIDClientes: TIntegerArray; const Desglosado: Boolean; const ImporteMinimo: Currency): Binary;

7
Source/Modulos/Gestor de informes/Plugin/uPluginGestorInformes.dfm
View File

@ -155,8 +155,9 @@ object PluginGestorInformes: TPluginGestorInformes
end end
object actInformeObjetivosFacturas: TAction object actInformeObjetivosFacturas: TAction
Category = 'Agentes' Category = 'Agentes'
Caption = 'Informe objetivos de agente en albaranes' Caption = 'Informe objetivos de agente en facturas'
ImageIndex = 0 ImageIndex = 0
OnExecute = actInformeObjetivosFacturasExecute
end end
end end
object MainMenu: TMainMenu object MainMenu: TMainMenu
@ -241,6 +242,10 @@ object PluginGestorInformes: TPluginGestorInformes
Tag = 190 Tag = 190
Action = actInformeObjetivosAlbaranes Action = actInformeObjetivosAlbaranes
end end
object Informeobjetivosdeagenteenalbaranes1: TMenuItem
Tag = 200
Action = actInformeObjetivosFacturas
end
end end
end end
object SmallImages: TPngImageList object SmallImages: TPngImageList

8
Source/Modulos/Gestor de informes/Plugin/uPluginGestorInformes.pas
View File

@ -53,6 +53,7 @@ type
actInformeObjetivosAlbaranes: TAction; actInformeObjetivosAlbaranes: TAction;
actInformeObjetivos1: TMenuItem; actInformeObjetivos1: TMenuItem;
actInformeObjetivosFacturas: TAction; actInformeObjetivosFacturas: TAction;
Informeobjetivosdeagenteenalbaranes1: TMenuItem;
procedure actInformeFacturasClienteExecute(Sender: TObject); procedure actInformeFacturasClienteExecute(Sender: TObject);
procedure actInformeFacturasClientePendientesExecute(Sender: TObject); procedure actInformeFacturasClientePendientesExecute(Sender: TObject);
procedure actInformeFacturasClienteIVAExecute(Sender: TObject); procedure actInformeFacturasClienteIVAExecute(Sender: TObject);
@ -68,6 +69,7 @@ type
procedure actInformeBeneficiosGrafCompExecute(Sender: TObject); procedure actInformeBeneficiosGrafCompExecute(Sender: TObject);
procedure actInformeAlbaranesClienteGrafCompExecute(Sender: TObject); procedure actInformeAlbaranesClienteGrafCompExecute(Sender: TObject);
procedure actInformeObjetivosAlbaranesExecute(Sender: TObject); procedure actInformeObjetivosAlbaranesExecute(Sender: TObject);
procedure actInformeObjetivosFacturasExecute(Sender: TObject);
private private
FController : IGestorInformesController; FController : IGestorInformesController;
public public
@ -156,6 +158,12 @@ begin
FController.VerInformeObjetivosAlbaranes; FController.VerInformeObjetivosAlbaranes;
end; end;
procedure TPluginGestorInformes.actInformeObjetivosFacturasExecute(
Sender: TObject);
begin
FController.VerInformeObjetivosFacturas;
end;
procedure TPluginGestorInformes.actInformeRecibosClienteExecute( procedure TPluginGestorInformes.actInformeRecibosClienteExecute(
Sender: TObject); Sender: TObject);
begin begin

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

@ -393,8 +393,15 @@ end;
function TsrvGestorInformes.GenerarInformeObjetivosAgentesFacturas( function TsrvGestorInformes.GenerarInformeObjetivosAgentesFacturas(
const IdEmpresa: Integer; const Intervalo, Ano1, Ano2: Variant; const IdEmpresa: Integer; const Intervalo, Ano1, Ano2: Variant;
const ListaIDAgentes: TIntegerArray; const TopN: Integer): Binary; const ListaIDAgentes: TIntegerArray; const TopN: Integer): Binary;
var
AReportGenerator : TRptFacturasCliente;
begin begin
// AReportGenerator := TRptFacturasCliente.Create(nil);
try
Result := AReportGenerator.GenerarInformeObjetivosAgentesFacturas(IdEmpresa, Intervalo, Ano1, Ano2, ListaIDAgentes, TopN);
finally
FreeAndNIL(AReportGenerator);
end;
end; end;
initialization initialization

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

@ -94,8 +94,8 @@ contains
uEditorInformeFacturasProveedorReportGrafComp in 'uEditorInformeFacturasProveedorReportGrafComp.pas' {fEditorInformeFacturasProveedorReportGrafComp: TForm}, uEditorInformeFacturasProveedorReportGrafComp in 'uEditorInformeFacturasProveedorReportGrafComp.pas' {fEditorInformeFacturasProveedorReportGrafComp: TForm},
uEditorInformeBeneficiosReportGrafComp in 'uEditorInformeBeneficiosReportGrafComp.pas' {fEditorInformeBeneficiosReportGrafComp: TForm}, uEditorInformeBeneficiosReportGrafComp in 'uEditorInformeBeneficiosReportGrafComp.pas' {fEditorInformeBeneficiosReportGrafComp: TForm},
uEditorInformeAlbaranesClienteReportGrafComp in 'uEditorInformeAlbaranesClienteReportGrafComp.pas' {fEditorInformeAlbaranesClienteReportGrafComp: TForm}, uEditorInformeAlbaranesClienteReportGrafComp in 'uEditorInformeAlbaranesClienteReportGrafComp.pas' {fEditorInformeAlbaranesClienteReportGrafComp: TForm},
uEditorInformeObjetivosFacturasReport in 'uEditorInformeObjetivosFacturasReport.pas' {fEditorInformeObjetivosFacturasReport: TForm},
uEditorInformeObjetivosAlbaranesReport in 'uEditorInformeObjetivosAlbaranesReport.pas' {fEditorInformeObjetivosAlbaranesReport: TForm}, uEditorInformeObjetivosAlbaranesReport in 'uEditorInformeObjetivosAlbaranesReport.pas' {fEditorInformeObjetivosAlbaranesReport: TForm},
uViewFiltroAgentes in 'uViewFiltroAgentes.pas' {frViewFiltroAgentes: TFrame}; uViewFiltroAgentes in 'uViewFiltroAgentes.pas' {frViewFiltroAgentes: TFrame},
uEditorInformeObjetivosFacturasReport in 'uEditorInformeObjetivosFacturasReport.pas' {fEditorInformeObjetivosFacturasReport: TForm};
end. end.

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

@ -124,7 +124,7 @@
<DesignClass>TForm</DesignClass> <DesignClass>TForm</DesignClass>
</DCCReference> </DCCReference>
<DCCReference Include="uEditorInformeObjetivosFacturasReport.pas"> <DCCReference Include="uEditorInformeObjetivosFacturasReport.pas">
<Form>fEditorInformeObjetivosFacturasReport</Form> <Form>fEditorInformeObjetivosFacturaReport</Form>
<DesignClass>TForm</DesignClass> <DesignClass>TForm</DesignClass>
</DCCReference> </DCCReference>
<DCCReference Include="uEditorInformePedidosReport.pas"> <DCCReference Include="uEditorInformePedidosReport.pas">
@ -153,7 +153,7 @@
</DCCReference> </DCCReference>
<DCCReference Include="uGestorInformesViewRegister.pas" /> <DCCReference Include="uGestorInformesViewRegister.pas" />
<DCCReference Include="uViewFiltroAgentes.pas"> <DCCReference Include="uViewFiltroAgentes.pas">
<Form>frViewIntervaloComparativo</Form> <Form>frViewFiltroAgentes</Form>
<DesignClass>TFrame</DesignClass> <DesignClass>TFrame</DesignClass>
</DCCReference> </DCCReference>
<DCCReference Include="uViewFiltroClientes.pas"> <DCCReference Include="uViewFiltroClientes.pas">

3
Source/Modulos/Gestor de informes/Views/uEditorInformeObjetivosAlbaranesReport.dfm
View File

@ -186,8 +186,7 @@ inherited fEditorInformeObjetivosAlbaranesReport: TfEditorInformeObjetivosAlbara
ParentFont = False ParentFont = False
TabOrder = 2 TabOrder = 2
ReadOnly = False ReadOnly = False
ExplicitLeft = -1 ExplicitTop = 313
ExplicitTop = 318
ExplicitWidth = 188 ExplicitWidth = 188
inherited TBXLabel2: TTBXLabel inherited TBXLabel2: TTBXLabel
Width = 188 Width = 188

13
Source/Modulos/Gestor de informes/Views/uEditorInformeObjetivosFacturasReport.dfm
View File

@ -123,6 +123,7 @@ inherited fEditorInformeObjetivosFacturasReport: TfEditorInformeObjetivosFactura
end end
inherited TBXAlignmentPanel1: TTBXAlignmentPanel inherited TBXAlignmentPanel1: TTBXAlignmentPanel
Width = 182 Width = 182
Visible = False
ExplicitWidth = 182 ExplicitWidth = 182
inherited Label1: TLabel inherited Label1: TLabel
Width = 172 Width = 172
@ -139,6 +140,7 @@ inherited fEditorInformeObjetivosFacturasReport: TfEditorInformeObjetivosFactura
inherited TBXAlignmentPanel4: TTBXAlignmentPanel inherited TBXAlignmentPanel4: TTBXAlignmentPanel
Top = 224 Top = 224
Width = 182 Width = 182
Visible = False
ExplicitTop = 224 ExplicitTop = 224
ExplicitWidth = 182 ExplicitWidth = 182
inherited Label2: TLabel inherited Label2: TLabel
@ -148,6 +150,7 @@ inherited fEditorInformeObjetivosFacturasReport: TfEditorInformeObjetivosFactura
inherited TBXAlignmentPanel5: TTBXAlignmentPanel inherited TBXAlignmentPanel5: TTBXAlignmentPanel
Top = 176 Top = 176
Width = 182 Width = 182
Visible = False
ExplicitTop = 176 ExplicitTop = 176
ExplicitWidth = 182 ExplicitWidth = 182
inherited Label4: TLabel inherited Label4: TLabel
@ -169,7 +172,7 @@ inherited fEditorInformeObjetivosFacturasReport: TfEditorInformeObjetivosFactura
end end
end end
end end
inline frViewFiltroClientes1: TfrViewFiltroClientes inline frViewFiltroAgentes1: TfrViewFiltroAgentes
Left = 0 Left = 0
Top = 313 Top = 313
Width = 188 Width = 188
@ -182,7 +185,6 @@ inherited fEditorInformeObjetivosFacturasReport: TfEditorInformeObjetivosFactura
Font.Style = [] Font.Style = []
ParentFont = False ParentFont = False
TabOrder = 2 TabOrder = 2
Visible = False
ReadOnly = False ReadOnly = False
ExplicitTop = 313 ExplicitTop = 313
ExplicitWidth = 188 ExplicitWidth = 188
@ -190,11 +192,14 @@ inherited fEditorInformeObjetivosFacturasReport: TfEditorInformeObjetivosFactura
Width = 188 Width = 188
ExplicitWidth = 188 ExplicitWidth = 188
end end
inherited bElegirCliente: TBitBtn inherited bElegirAgente: TBitBtn
Width = 119 Width = 119
ExplicitWidth = 119 ExplicitWidth = 119
end end
inherited edtCliente: TcxTextEdit inherited cbxDesglosado: TCheckBox
Visible = False
end
inherited edtAgente: TcxTextEdit
Style.LookAndFeel.SkinName = '' Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = '' StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = '' StyleFocused.LookAndFeel.SkinName = ''

37
Source/Modulos/Gestor de informes/Views/uEditorInformeObjetivosFacturasReport.pas
View File

@ -14,24 +14,24 @@ uses
uViewBase, uViewPeriodoFechas, uControllerBase, uViewBase, uViewPeriodoFechas, uControllerBase,
dxLayoutControl, cxControls, uViewFiltroImportes, dxLayoutControl, cxControls, uViewFiltroImportes,
FactuGES_Intf, TBXDkPanels, uEditorInformeBase, FactuGES_Intf, TBXDkPanels, uEditorInformeBase,
uIEditorInformeBase, uViewParametrosInforme, uIEditorInformeAlbaranesClienteReportGrafComp, uIEditorInformeBase, uViewParametrosInforme, uIEditorInformeObjetivosFacturasReport,
uViewIntervaloComparativo, uViewFiltroClientes; uViewIntervaloComparativo, uViewFiltroClientes, uViewFiltroAgentes;
type type
TfEditorInformeObjetivosFacturasReport = class(TfEditorInformeBase, IEditorInformeAlbaranesClienteReportGrafComp) TfEditorInformeObjetivosFacturasReport = class(TfEditorInformeBase, IEditorInformeObjetivosFacturasReport)
TBXItem58: TTBXItem; TBXItem58: TTBXItem;
frViewIntervaloComparativo1: TfrViewIntervaloComparativo; frViewIntervaloComparativo1: TfrViewIntervaloComparativo;
frViewFiltroClientes1: TfrViewFiltroClientes; frViewFiltroAgentes1: TfrViewFiltroAgentes;
procedure actRefrescarExecute(Sender: TObject); procedure actRefrescarExecute(Sender: TObject);
procedure FormShow(Sender: TObject); procedure FormShow(Sender: TObject);
private private
FListaIDClientes: TIntegerArray; FListaIDAgentes: TIntegerArray;
function GetIntervalo: Variant; function GetIntervalo: Variant;
function GetAno1: Variant; function GetAno1: Variant;
function GetAno2: Variant; function GetAno2: Variant;
function GetSerie: variant; function GetSerie: variant;
function GetListaIDClientes: TIntegerArray; function GetListaIDAgentes: TIntegerArray;
function GetNTop: Variant; function GetNTop: Variant;
procedure RefrescarInforme; procedure RefrescarInforme;
@ -43,9 +43,9 @@ type
property Intervalo: Variant read GetIntervalo; property Intervalo: Variant read GetIntervalo;
property Ano1: Variant read GetAno1; property Ano1: Variant read GetAno1;
property Ano2: Variant read GetAno2; property Ano2: Variant read GetAno2;
property ListaIDClientes: TIntegerArray read GetListaIDClientes; property ListaIDAgentes: TIntegerArray read GetListaIDAgentes;
property NTop: Variant read GetNTop; property NTop: Variant read GetNTop;
property Serie: Variant read GetSerie; property Serie: Variant read GetSerie;
constructor Create(AOwner: TComponent); override; constructor Create(AOwner: TComponent); override;
destructor Destroy; override; destructor Destroy; override;
@ -69,12 +69,12 @@ end;
constructor TfEditorInformeObjetivosFacturasReport.Create(AOwner: TComponent); constructor TfEditorInformeObjetivosFacturasReport.Create(AOwner: TComponent);
begin begin
inherited; inherited;
FListaIDClientes := TIntegerArray.Create; FListaIDAgentes := TIntegerArray.Create;
end; end;
destructor TfEditorInformeObjetivosFacturasReport.Destroy; destructor TfEditorInformeObjetivosFacturasReport.Destroy;
begin begin
FListaIDClientes.Free; FListaIDAgentes.Free;
inherited; inherited;
end; end;
@ -99,13 +99,13 @@ begin
Result := frViewIntervaloComparativo1.cbAno2.EditValue; Result := frViewIntervaloComparativo1.cbAno2.EditValue;
end; end;
function TfEditorInformeObjetivosFacturasReport.GetListaIDClientes: TIntegerArray; function TfEditorInformeObjetivosFacturasReport.GetListaIDAgentes: TIntegerArray;
begin begin
FListaIDClientes.Clear; FListaIDAgentes.Clear;
if Assigned(frViewFiltroClientes1.Cliente) then if Assigned(frViewFiltroAgentes1.Agente) then
FListaIDClientes.Add(frViewFiltroClientes1.Cliente.ID); FListaIDAgentes.Add(frViewFiltroAgentes1.Agente.ID);
Result := FListaIDClientes; Result := FListaIDAgentes;
end; end;
function TfEditorInformeObjetivosFacturasReport.GetNTop: Variant; function TfEditorInformeObjetivosFacturasReport.GetNTop: Variant;
@ -125,14 +125,13 @@ begin
ShowHourglassCursor; ShowHourglassCursor;
try try
AStream := (Controller as IGestorInformesController).DataModule.GenerarInformeAlbaranesCliGrafComp( AStream := (Controller as IGestorInformesController).DataModule.GenerarInformeObjetivosAgentesAlbaranes(
AppFactuGES.EmpresaActiva.ID, AppFactuGES.EmpresaActiva.ID,
Intervalo, Intervalo,
Ano1, Ano1,
Ano2, Ano2,
ListaIDClientes, ListaIDAgentes,
NTop, NTop);
Serie);
LoadFromStream(AStream); LoadFromStream(AStream);
Report.ShowPreparedReport; Report.ShowPreparedReport;

1
Source/Servidor/FactuGES_Server.dproj
View File

@ -38,6 +38,7 @@
<BorlandProject><Delphi.Personality><Parameters><Parameters Name="UseLauncher">False</Parameters><Parameters Name="LoadAllSymbols">True</Parameters><Parameters Name="LoadUnspecifiedSymbols">False</Parameters><Parameters Name="RunParams">/standalone</Parameters></Parameters><VersionInfo><VersionInfo Name="IncludeVerInfo">True</VersionInfo><VersionInfo Name="AutoIncBuild">False</VersionInfo><VersionInfo Name="MajorVer">4</VersionInfo><VersionInfo Name="MinorVer">2</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"></VersionInfoKeys><VersionInfoKeys Name="FileDescription"></VersionInfoKeys><VersionInfoKeys Name="FileVersion">4.2.1.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">4.2.1.0</VersionInfoKeys><VersionInfoKeys Name="Comments"></VersionInfoKeys><VersionInfoKeys Name="CompileDate">martes, 31 de enero de 2012 10:21</VersionInfoKeys></VersionInfoKeys><Excluded_Packages> <BorlandProject><Delphi.Personality><Parameters><Parameters Name="UseLauncher">False</Parameters><Parameters Name="LoadAllSymbols">True</Parameters><Parameters Name="LoadUnspecifiedSymbols">False</Parameters><Parameters Name="RunParams">/standalone</Parameters></Parameters><VersionInfo><VersionInfo Name="IncludeVerInfo">True</VersionInfo><VersionInfo Name="AutoIncBuild">False</VersionInfo><VersionInfo Name="MajorVer">4</VersionInfo><VersionInfo Name="MinorVer">2</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"></VersionInfoKeys><VersionInfoKeys Name="FileDescription"></VersionInfoKeys><VersionInfoKeys Name="FileVersion">4.2.1.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">4.2.1.0</VersionInfoKeys><VersionInfoKeys Name="Comments"></VersionInfoKeys><VersionInfoKeys Name="CompileDate">martes, 31 de enero de 2012 10:21</VersionInfoKeys></VersionInfoKeys><Excluded_Packages>
<Excluded_Packages Name="C:\Documents and Settings\All Users\Documentos\RAD Studio\5.0\Bpl\dxPSCoreD11.bpl">ExpressPrinting System by Developer Express Inc.</Excluded_Packages> <Excluded_Packages Name="C:\Documents and Settings\All Users\Documentos\RAD Studio\5.0\Bpl\dxPSCoreD11.bpl">ExpressPrinting System by Developer Express Inc.</Excluded_Packages>
</Excluded_Packages><Source><Source Name="MainSource">FactuGES_Server.dpr</Source></Source></Delphi.Personality><ModelSupport>False</ModelSupport></BorlandProject></BorlandProject> </Excluded_Packages><Source><Source Name="MainSource">FactuGES_Server.dpr</Source></Source></Delphi.Personality><ModelSupport>False</ModelSupport></BorlandProject></BorlandProject>
</ProjectExtensions> </ProjectExtensions>

10
Source/Servidor/FactuGES_Server.rc
View File

@ -1,7 +1,7 @@
MAINICON ICON "C:\Codigo\Resources\Iconos\Servidor.ico" MAINICON ICON "C:\Codigo\Resources\Iconos\Servidor.ico"
1 VERSIONINFO 1 VERSIONINFO
FILEVERSION 4,1,9,0 FILEVERSION 4,2,1,0
PRODUCTVERSION 4,1,9,0 PRODUCTVERSION 4,2,1,0
FILEFLAGSMASK 0x3FL FILEFLAGSMASK 0x3FL
FILEFLAGS 0x00L FILEFLAGS 0x00L
FILEOS 0x40004L FILEOS 0x40004L
@ -12,9 +12,9 @@ BEGIN
BEGIN BEGIN
BLOCK "0C0A04E4" BLOCK "0C0A04E4"
BEGIN BEGIN
VALUE "FileVersion", "4.1.9.0\0" VALUE "FileVersion", "4.2.1.0\0"
VALUE "ProductVersion", "4.1.9.0\0" VALUE "ProductVersion", "4.2.1.0\0"
VALUE "CompileDate", "lunes, 31 de octubre de 2011 11:24\0" VALUE "CompileDate", "viernes, 03 de febrero de 2012 10:41\0"
END END
END END
BLOCK "VarFileInfo" BLOCK "VarFileInfo"