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

Compare commits

base: Archivado:2e6eb75f05975e3303d9e525a0dfbe92c1434a93
Branches Tags
Archivado:master
...
compare: Archivado:f0c13e19efbf07b92fa232f9b3810c925eb63393
Branches Tags
Archivado:master

10 Commits
2e6eb75f05 ... f0c13e19ef

Author SHA1 Message Date
roberto
f0c13e19ef git-svn-id: https://192.168.0.254/svn/Proyectos.LuisLeon_FactuGES2/trunk@263 b2cfbe5a-eba1-4a0c-8b32-7feea0a119f2 2017-09-26 14:31:41 +00:00
roberto
7a81d6a122 Se solicita presupuesto para luisleonrepresentaciones 
git-svn-id: https://192.168.0.254/svn/Proyectos.LuisLeon_FactuGES2/trunk@262 b2cfbe5a-eba1-4a0c-8b32-7feea0a119f2
 2017-09-26 14:15:39 +00:00
roberto
f087881450 Se redondean a dos cifras la suma acumulada de los detalles para soluciónar el descuadre de centimos cuando son 4 cifras 
git-svn-id: https://192.168.0.254/svn/Proyectos.LuisLeon_FactuGES2/trunk@261 b2cfbe5a-eba1-4a0c-8b32-7feea0a119f2
 2017-09-25 11:01:12 +00:00
roberto
85fc7faa6c git-svn-id: https://192.168.0.254/svn/Proyectos.LuisLeon_FactuGES2/trunk@259 b2cfbe5a-eba1-4a0c-8b32-7feea0a119f2 2017-05-12 09:36:01 +00:00
david
a01273651c SEPA -> Arreglo de la generación de ficheros SEPA XML para el Banco Santander. 
git-svn-id: https://192.168.0.254/svn/Proyectos.LuisLeon_FactuGES2/trunk@258 b2cfbe5a-eba1-4a0c-8b32-7feea0a119f2
 2016-10-18 15:33:09 +00:00
roberto
de6aae9e49 Se cambia descripcion del campo fecha de los filtros para detallar que es fecha de vencimiento 
git-svn-id: https://192.168.0.254/svn/Proyectos.LuisLeon_FactuGES2/trunk@257 b2cfbe5a-eba1-4a0c-8b32-7feea0a119f2
 2016-06-15 11:49:07 +00:00
roberto
da3224cbeb Cambio en el criterio de filtro por fechas solicitado por luisleon 
git-svn-id: https://192.168.0.254/svn/Proyectos.LuisLeon_FactuGES2/trunk@256 b2cfbe5a-eba1-4a0c-8b32-7feea0a119f2
 2016-06-14 17:06:59 +00:00
roberto
476f2691ce Version 4.4.8 
Peticiones relacionadas Tareas #1430: Al generar un pedido de cliente a partir de varios presupuestos que me ordene por fecha y referencia
Tareas #1431: Poder establecer en pedidos de cliente otras direcciones campos telefono y persona de contacto
Tareas #1432: meter nombre comercial en lista de presupuesto, pedidos, albaranes, facturas...

git-svn-id: https://192.168.0.254/svn/Proyectos.LuisLeon_FactuGES2/trunk@254 b2cfbe5a-eba1-4a0c-8b32-7feea0a119f2
 2016-04-28 17:20:39 +00:00
roberto
bb9c9bda12 Nueva empresa Keiblair igual que la otra 
git-svn-id: https://192.168.0.254/svn/Proyectos.LuisLeon_FactuGES2/trunk@253 b2cfbe5a-eba1-4a0c-8b32-7feea0a119f2
 2016-04-14 16:33:08 +00:00
roberto
db6987e021 git-svn-id: https://192.168.0.254/svn/Proyectos.LuisLeon_FactuGES2/trunk@252 b2cfbe5a-eba1-4a0c-8b32-7feea0a119f2 2016-04-14 16:10:51 +00:00
120 changed files with 4236 additions and 734 deletions
Show Stats Expand all files Collapse all files

BIN
Resources/logo-luisleon-solo.jpg Normal file
View File

Binary file not shown.
Side by Side

After

Width:  |  Height:  |  Size: 12 KiB

104
Source/Base/Base.dproj
View File

@ -58,6 +58,58 @@
<Form>DataModuleImpresiones</Form>
<DesignClass>TDataModule</DesignClass>
</DCCReference>
<DCCReference Include="..\Modulos\Presupuestos de cliente\adortl.dcp" />
<DCCReference Include="..\Modulos\Presupuestos de cliente\cxDataD11.dcp" />
<DCCReference Include="..\Modulos\Presupuestos de cliente\cxEditorsD11.dcp" />
<DCCReference Include="..\Modulos\Presupuestos de cliente\cxExportD11.dcp" />
<DCCReference Include="..\Modulos\Presupuestos de cliente\cxExtEditorsD11.dcp" />
<DCCReference Include="..\Modulos\Presupuestos de cliente\cxGridD11.dcp" />
<DCCReference Include="..\Modulos\Presupuestos de cliente\cxIntl6D11.dcp" />
<DCCReference Include="..\Modulos\Presupuestos de cliente\cxIntlPrintSys3D11.dcp" />
<DCCReference Include="..\Modulos\Presupuestos de cliente\cxLibraryD11.dcp" />
<DCCReference Include="..\Modulos\Presupuestos de cliente\cxPageControlD11.dcp" />
<DCCReference Include="..\Modulos\Presupuestos de cliente\DataAbstract_Core_D11.dcp" />
<DCCReference Include="..\Modulos\Presupuestos de cliente\dbrtl.dcp" />
<DCCReference Include="..\Modulos\Presupuestos de cliente\dclIndyCore.dcp" />
<DCCReference Include="..\Modulos\Presupuestos de cliente\designide.dcp" />
<DCCReference Include="..\Modulos\Presupuestos de cliente\dsnap.dcp" />
<DCCReference Include="..\Modulos\Presupuestos de cliente\dxCoreD11.dcp" />
<DCCReference Include="..\Modulos\Presupuestos de cliente\dxGDIPlusD11.dcp" />
<DCCReference Include="..\Modulos\Presupuestos de cliente\dxPSCoreD11.dcp" />
<DCCReference Include="..\Modulos\Presupuestos de cliente\dxThemeD11.dcp" />
<DCCReference Include="..\Modulos\Presupuestos de cliente\GUISDK_D11R.dcp" />
<DCCReference Include="..\Modulos\Presupuestos de cliente\IndyCore.dcp" />
<DCCReference Include="..\Modulos\Presupuestos de cliente\IndyProtocols.dcp" />
<DCCReference Include="..\Modulos\Presupuestos de cliente\IndySystem.dcp" />
<DCCReference Include="..\Modulos\Presupuestos de cliente\Jcl.dcp" />
<DCCReference Include="..\Modulos\Presupuestos de cliente\JclVcl.dcp" />
<DCCReference Include="..\Modulos\Presupuestos de cliente\JSDialog100.dcp" />
<DCCReference Include="..\Modulos\Presupuestos de cliente\JvCmpD11R.dcp" />
<DCCReference Include="..\Modulos\Presupuestos de cliente\JvCoreD11R.dcp" />
<DCCReference Include="..\Modulos\Presupuestos de cliente\JvCtrlsD11R.dcp" />
<DCCReference Include="..\Modulos\Presupuestos de cliente\JvDlgsD11R.dcp" />
<DCCReference Include="..\Modulos\Presupuestos de cliente\JvMMD11R.dcp" />
<DCCReference Include="..\Modulos\Presupuestos de cliente\JvNetD11R.dcp" />
<DCCReference Include="..\Modulos\Presupuestos de cliente\JvPageCompsD11R.dcp" />
<DCCReference Include="..\Modulos\Presupuestos de cliente\JvStdCtrlsD11R.dcp" />
<DCCReference Include="..\Modulos\Presupuestos de cliente\JvSystemD11R.dcp" />
<DCCReference Include="..\Modulos\Presupuestos de cliente\pckMD5.dcp" />
<DCCReference Include="..\Modulos\Presupuestos de cliente\pckUCDataConnector.dcp" />
<DCCReference Include="..\Modulos\Presupuestos de cliente\pckUserControl_RT.dcp" />
<DCCReference Include="..\Modulos\Presupuestos de cliente\PngComponentsD10.dcp" />
<DCCReference Include="..\Modulos\Presupuestos de cliente\PNG_D10.dcp" />
<DCCReference Include="..\Modulos\Presupuestos de cliente\RemObjects_Core_D11.dcp" />
<DCCReference Include="..\Modulos\Presupuestos de cliente\RemObjects_Indy_D11.dcp" />
<DCCReference Include="..\Modulos\Presupuestos de cliente\rtl.dcp" />
<DCCReference Include="..\Modulos\Presupuestos de cliente\TB2k_D10.dcp" />
<DCCReference Include="..\Modulos\Presupuestos de cliente\tbx_d10.dcp" />
<DCCReference Include="..\Modulos\Presupuestos de cliente\vcl.dcp" />
<DCCReference Include="..\Modulos\Presupuestos de cliente\vclactnband.dcp" />
<DCCReference Include="..\Modulos\Presupuestos de cliente\vcldb.dcp" />
<DCCReference Include="..\Modulos\Presupuestos de cliente\vcljpg.dcp" />
<DCCReference Include="..\Modulos\Presupuestos de cliente\VclSmp.dcp" />
<DCCReference Include="..\Modulos\Presupuestos de cliente\vclx.dcp" />
<DCCReference Include="..\Modulos\Presupuestos de cliente\xmlrtl.dcp" />
<DCCReference Include="..\Modulos\Registro de correos\Data\uDataModuleRegistroCorreos.pas">
<Form>DataModuleRegistroCorreos</Form>
<DesignClass>TDataModule</DesignClass>
@ -86,59 +138,14 @@
<Form>dmBase</Form>
<DesignClass>TDataModule</DesignClass>
</DCCReference>
<DCCReference Include="Utiles\adortl.dcp" />
<DCCReference Include="Utiles\ClassRegistry\uClassRegistryUtils.pas" />
<DCCReference Include="Utiles\ClassRegistry\uEditorRegistryUtils.pas" />
<DCCReference Include="Utiles\ClassRegistry\uInformeRegistryUtils.pas" />
<DCCReference Include="Utiles\ClassRegistry\uViewRegistryUtils.pas" />
<DCCReference Include="Utiles\ClipboardUtils.pas" />
<DCCReference Include="Utiles\Ctltortf.pas" />
<DCCReference Include="Utiles\cxDataD11.dcp" />
<DCCReference Include="Utiles\cxEditorsD11.dcp" />
<DCCReference Include="Utiles\cxExportD11.dcp" />
<DCCReference Include="Utiles\cxExtEditorsD11.dcp" />
<DCCReference Include="Utiles\cxGridD11.dcp" />
<DCCReference Include="Utiles\cxIntl6D11.dcp" />
<DCCReference Include="Utiles\cxIntlPrintSys3D11.dcp" />
<DCCReference Include="Utiles\cxLibraryD11.dcp" />
<DCCReference Include="Utiles\cxPageControlD11.dcp" />
<DCCReference Include="Utiles\DataAbstract_Core_D11.dcp" />
<DCCReference Include="Utiles\dbrtl.dcp" />
<DCCReference Include="Utiles\dclIndyCore.dcp" />
<DCCReference Include="Utiles\designide.dcp" />
<DCCReference Include="Utiles\dsnap.dcp" />
<DCCReference Include="Utiles\dxCoreD11.dcp" />
<DCCReference Include="Utiles\dxGDIPlusD11.dcp" />
<DCCReference Include="Utiles\dxPSCoreD11.dcp" />
<DCCReference Include="Utiles\dxThemeD11.dcp" />
<DCCReference Include="Utiles\GUISDK_D11R.dcp" />
<DCCReference Include="Utiles\IndyCore.dcp" />
<DCCReference Include="Utiles\IndyProtocols.dcp" />
<DCCReference Include="Utiles\IndySystem.dcp" />
<DCCReference Include="Utiles\Jcl.dcp" />
<DCCReference Include="Utiles\JclVcl.dcp" />
<DCCReference Include="Utiles\JSDialog100.dcp" />
<DCCReference Include="Utiles\JvCmpD11R.dcp" />
<DCCReference Include="Utiles\JvCoreD11R.dcp" />
<DCCReference Include="Utiles\JvCtrlsD11R.dcp" />
<DCCReference Include="Utiles\JvDlgsD11R.dcp" />
<DCCReference Include="Utiles\JvMMD11R.dcp" />
<DCCReference Include="Utiles\JvNetD11R.dcp" />
<DCCReference Include="Utiles\JvPageCompsD11R.dcp" />
<DCCReference Include="Utiles\JvStdCtrlsD11R.dcp" />
<DCCReference Include="Utiles\JvSystemD11R.dcp" />
<DCCReference Include="Utiles\MidasSpeedFix.pas" />
<DCCReference Include="Utiles\pckMD5.dcp" />
<DCCReference Include="Utiles\pckUCDataConnector.dcp" />
<DCCReference Include="Utiles\pckUserControl_RT.dcp" />
<DCCReference Include="Utiles\PngComponentsD10.dcp" />
<DCCReference Include="Utiles\PNG_D10.dcp" />
<DCCReference Include="Utiles\RegExpr.pas" />
<DCCReference Include="Utiles\RemObjects_Core_D11.dcp" />
<DCCReference Include="Utiles\RemObjects_Indy_D11.dcp" />
<DCCReference Include="Utiles\rtl.dcp" />
<DCCReference Include="Utiles\TB2k_D10.dcp" />
<DCCReference Include="Utiles\tbx_d10.dcp" />
<DCCReference Include="Utiles\TIBAN\IBAN.pas" />
<DCCReference Include="Utiles\TIBAN\IBANMetrics.pas" />
<DCCReference Include="Utiles\uAppInfoUtils.pas" />
@ -163,13 +170,6 @@
<DCCReference Include="Utiles\uSistemaFunc.pas" />
<DCCReference Include="Utiles\uStringsUtils.pas" />
<DCCReference Include="Utiles\uValidacionUtils.pas" />
<DCCReference Include="Utiles\vcl.dcp" />
<DCCReference Include="Utiles\vclactnband.dcp" />
<DCCReference Include="Utiles\vcldb.dcp" />
<DCCReference Include="Utiles\vcljpg.dcp" />
<DCCReference Include="Utiles\VclSmp.dcp" />
<DCCReference Include="Utiles\vclx.dcp" />
<DCCReference Include="Utiles\xmlrtl.dcp" />
</ItemGroup>
</Project>
<!-- EurekaLog First Line

8
Source/Base/Controladores/uControllerDetallesBase.pas
View File

@ -103,7 +103,7 @@ implementation
{ TControllerDetallesBase }
uses
cxControls, SysUtils, DB, uDAInterfaces, Dialogs;
cxControls, SysUtils, DB, uDAInterfaces, Dialogs, uNumUtils;
procedure TControllerDetallesBase.ActualizarTotales(ADataTable: IDAStronglyTypedDataTable);
@ -291,9 +291,11 @@ procedure TControllerDetallesBase.CalculoDetalleConcepto(DataTable: TDADataTable
begin
with DataTable do
begin
ImporteAcumulado := ImporteAcumulado + FieldByName(CAMPO_IMPORTE_TOTAL).AsFloat;
ImporteAcumulado := ImporteAcumulado + RoundCurrency(FieldByName(CAMPO_IMPORTE_TOTAL).AsCurrency);
// ImporteAcumulado := ImporteAcumulado + FieldByName(CAMPO_IMPORTE_TOTAL).AsFloat;
if not Opcional then
ImporteTotal := ImporteTotal + FieldByName(CAMPO_IMPORTE_TOTAL).AsFloat;
ImporteTotal := ImporteTotal + RoundCurrency(FieldByName(CAMPO_IMPORTE_TOTAL).AsCurrency);
// ImporteTotal := ImporteTotal + FieldByName(CAMPO_IMPORTE_TOTAL).AsFloat;
end;
end;

2
Source/Cliente/FactuGES.dproj
View File

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

8
Source/Cliente/FactuGES.rc
View File

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

BIN
Source/Cliente/FactuGES.res
View File

Binary file not shown.

66
Source/Informes/1/InfPresupuestoCliente.fr3 Normal file
View File

File diff suppressed because one or more lines are too long

57
Source/Informes/6/InfPedidoCliente.fr3
View File

File diff suppressed because one or more lines are too long

38
Source/Informes/6/en/InfPedidoCliente.fr3
View File

File diff suppressed because one or more lines are too long

4
Source/Informes/6/en/InfPresupuestoCliente.fr3
View File

@ -1,5 +1,5 @@
<?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="39065,8724234954" ReportOptions.Description.Text="" ReportOptions.LastChange="42255,716466331" ScriptLanguage="PascalScript" ScriptText.Text="&#13;&#10;procedure DireccionEnvioOnBeforePrint(Sender: TfrxComponent);&#13;&#10;var&#13;&#10; ACadena : String;&#13;&#10;begin&#13;&#10; ACadena := '';&#13;&#10; DireccionEnvio.Lines.Clear;&#13;&#10; if (&#60;frxDBCabecera.&#34;REFERENCIA_CLIENTE&#34;&#62; &#60;&#62; '') then&#13;&#10; ACadena := &#60;frxDBCabecera.&#34;REFERENCIA_CLIENTE&#34;&#62;;&#13;&#10;&#13;&#10; if (&#60;frxDBCabecera.&#34;PERSONA_CONTACTO&#34;&#62; &#60;&#62; '') then&#13;&#10; ACadena := ACadena + ' ' + &#60;frxDBCabecera.&#34;PERSONA_CONTACTO&#34;&#62;;&#13;&#10;&#13;&#10; DireccionEnvio.Lines.Add(ACadena);&#13;&#10; ACadena := '';&#13;&#10; DireccionEnvio.Lines.Add(&#60;frxDBCabecera.&#34;CALLE&#34;&#62;);&#13;&#10; if (&#60;frxDBCabecera.&#34;CODIGO_POSTAL&#34;&#62; &#60;&#62; '') then&#13;&#10; ACadena := &#60;frxDBCabecera.&#34;CODIGO_POSTAL&#34;&#62; + ' ';&#13;&#10; if (&#60;frxDBCabecera.&#34;POBLACION&#34;&#62; &#60;&#62; '') then&#13;&#10; ACadena := ACadena + &#60;frxDBCabecera.&#34;POBLACION&#34;&#62;;&#13;&#10;&#13;&#10; if (ACadena &#60;&#62; '') then&#13;&#10; DireccionEnvio.Lines.Add(ACadena);&#13;&#10;&#13;&#10; if (&#60;frxDBCabecera.&#34;PROVINCIA&#34;&#62; &#60;&#62; '') then&#13;&#10; DireccionEnvio.Lines.Add(&#60;frxDBCabecera.&#34;PROVINCIA&#34;&#62;);&#13;&#10;end;&#13;&#10;&#13;&#10;procedure PageHeader1OnBeforePrint(Sender: TfrxComponent);&#13;&#10;begin&#13;&#10; if not Engine.FinalPass then&#13;&#10; Set('TotalPaginas', (&#60;TotalPaginas&#62; + 1));&#13;&#10;&#13;&#10; if Engine.FinalPass then&#13;&#10; Set('Pagina', (&#60;Pagina&#62; + 1));&#13;&#10;end;&#13;&#10;&#13;&#10;procedure frxReportOnStartReport(Sender: TfrxComponent);&#13;&#10;begin&#13;&#10; Set('Pagina', 0);&#13;&#10; Set('TotalPaginas', 0);&#13;&#10;end;&#13;&#10;&#13;&#10;procedure eImporteUnidadOnBeforePrint(Sender: TfrxComponent);&#13;&#10;begin&#13;&#10;{ &#13;&#10; if &#60;ImprimirPrecio&#62; then&#13;&#10; begin &#13;&#10; eImporteUnidad.Visible := True; &#13;&#10; lImporteUnidad.Visible := True; &#13;&#10; eImporteTotal.Visible := True; &#13;&#10; lImporteTotal.Visible := True; &#13;&#10; ImporteUnidad.Visible := True; &#13;&#10; ImporteTotal.Visible := True; &#13;&#10; end&#13;&#10; else&#13;&#10; begin &#13;&#10; eImporteUnidad.Visible := False; &#13;&#10; lImporteUnidad.Visible := False; &#13;&#10; eImporteTotal.Visible := False; &#13;&#10; lImporteTotal.Visible := False; &#13;&#10; ImporteUnidad.Visible := False; &#13;&#10; ImporteTotal.Visible := False;&#13;&#10; eConcepto.Width := eConcepto.Width + ImporteTotal.Width + ImporteUnidad.Width;&#13;&#10; Concepto.Width :=eConcepto.Width - 10; &#13;&#10; end&#13;&#10;} &#13;&#10;end;&#13;&#10;&#13;&#10;procedure Overlay1OnBeforePrint(Sender: TfrxComponent);&#13;&#10;begin&#13;&#10;{ &#13;&#10; if &#60;ShowLogotipo&#62; then&#13;&#10; begin&#13;&#10; Overlay1.Visible := True; &#13;&#10; end&#13;&#10; else&#13;&#10; begin &#13;&#10; Overlay1.Visible := False; &#13;&#10; end&#13;&#10; } &#13;&#10;end;&#13;&#10;&#13;&#10;begin&#13;&#10;&#13;&#10;end." ShowProgress="False" StoreInDFM="False" OnStartReport="frxReportOnStartReport" PropData="044C65667403910003546F70021008446174617365747301010C3400000020446174615365743D22667278444243616265636572612220446174615365744E616D653D22667278444243616265636572612200010C3400000020446174615365743D226672784442446574616C6C65732220446174615365744E616D653D226672784442446574616C6C6573220000095661726961626C657301010C13000000204E616D653D2220506167696E6163696F6E2200010C0E000000204E616D653D22506167696E612200010C14000000204E616D653D22546F74616C506167696E61732200010C10000000204E616D653D2220496E666F726D652200010C16000000204E616D653D22496D7072696D697250726563696F2200010C1C000000204E616D653D22496D7072696D697252656650726F766565646F722200010C14000000204E616D653D2253686F774C6F676F7469706F220000055374796C650100">
<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="39065,8724234954" ReportOptions.Description.Text="" ReportOptions.LastChange="42867,4552709375" ScriptLanguage="PascalScript" ScriptText.Text="&#13;&#10;procedure DireccionEnvioOnBeforePrint(Sender: TfrxComponent);&#13;&#10;var&#13;&#10; ACadena : String;&#13;&#10;begin&#13;&#10; ACadena := '';&#13;&#10; DireccionEnvio.Lines.Clear;&#13;&#10; if (&#60;frxDBCabecera.&#34;REFERENCIA_CLIENTE&#34;&#62; &#60;&#62; '') then&#13;&#10; ACadena := &#60;frxDBCabecera.&#34;REFERENCIA_CLIENTE&#34;&#62;;&#13;&#10;&#13;&#10; if (&#60;frxDBCabecera.&#34;PERSONA_CONTACTO&#34;&#62; &#60;&#62; '') then&#13;&#10; ACadena := ACadena + ' ' + &#60;frxDBCabecera.&#34;PERSONA_CONTACTO&#34;&#62;;&#13;&#10;&#13;&#10; DireccionEnvio.Lines.Add(ACadena);&#13;&#10; ACadena := '';&#13;&#10; DireccionEnvio.Lines.Add(&#60;frxDBCabecera.&#34;CALLE&#34;&#62;);&#13;&#10; if (&#60;frxDBCabecera.&#34;CODIGO_POSTAL&#34;&#62; &#60;&#62; '') then&#13;&#10; ACadena := &#60;frxDBCabecera.&#34;CODIGO_POSTAL&#34;&#62; + ' ';&#13;&#10; if (&#60;frxDBCabecera.&#34;POBLACION&#34;&#62; &#60;&#62; '') then&#13;&#10; ACadena := ACadena + &#60;frxDBCabecera.&#34;POBLACION&#34;&#62;;&#13;&#10;&#13;&#10; if (ACadena &#60;&#62; '') then&#13;&#10; DireccionEnvio.Lines.Add(ACadena);&#13;&#10;&#13;&#10; if (&#60;frxDBCabecera.&#34;PROVINCIA&#34;&#62; &#60;&#62; '') then&#13;&#10; DireccionEnvio.Lines.Add(&#60;frxDBCabecera.&#34;PROVINCIA&#34;&#62;);&#13;&#10;end;&#13;&#10;&#13;&#10;procedure PageHeader1OnBeforePrint(Sender: TfrxComponent);&#13;&#10;begin&#13;&#10; if not Engine.FinalPass then&#13;&#10; Set('TotalPaginas', (&#60;TotalPaginas&#62; + 1));&#13;&#10;&#13;&#10; if Engine.FinalPass then&#13;&#10; Set('Pagina', (&#60;Pagina&#62; + 1));&#13;&#10;end;&#13;&#10;&#13;&#10;procedure frxReportOnStartReport(Sender: TfrxComponent);&#13;&#10;begin&#13;&#10; Set('Pagina', 0);&#13;&#10; Set('TotalPaginas', 0);&#13;&#10;end;&#13;&#10;&#13;&#10;procedure eImporteUnidadOnBeforePrint(Sender: TfrxComponent);&#13;&#10;begin&#13;&#10;{ &#13;&#10; if &#60;ImprimirPrecio&#62; then&#13;&#10; begin &#13;&#10; eImporteUnidad.Visible := True; &#13;&#10; lImporteUnidad.Visible := True; &#13;&#10; eImporteTotal.Visible := True; &#13;&#10; lImporteTotal.Visible := True; &#13;&#10; ImporteUnidad.Visible := True; &#13;&#10; ImporteTotal.Visible := True; &#13;&#10; end&#13;&#10; else&#13;&#10; begin &#13;&#10; eImporteUnidad.Visible := False; &#13;&#10; lImporteUnidad.Visible := False; &#13;&#10; eImporteTotal.Visible := False; &#13;&#10; lImporteTotal.Visible := False; &#13;&#10; ImporteUnidad.Visible := False; &#13;&#10; ImporteTotal.Visible := False;&#13;&#10; eConcepto.Width := eConcepto.Width + ImporteTotal.Width + ImporteUnidad.Width;&#13;&#10; Concepto.Width :=eConcepto.Width - 10; &#13;&#10; end&#13;&#10;} &#13;&#10;end;&#13;&#10;&#13;&#10;procedure Overlay1OnBeforePrint(Sender: TfrxComponent);&#13;&#10;begin&#13;&#10;{ &#13;&#10; if &#60;ShowLogotipo&#62; then&#13;&#10; begin&#13;&#10; Overlay1.Visible := True; &#13;&#10; end&#13;&#10; else&#13;&#10; begin &#13;&#10; Overlay1.Visible := False; &#13;&#10; end&#13;&#10; } &#13;&#10;end;&#13;&#10;&#13;&#10;begin&#13;&#10;&#13;&#10;end." ShowProgress="False" StoreInDFM="False" OnStartReport="frxReportOnStartReport" PropData="044C65667403890003546F70021008446174617365747301010C3400000020446174615365743D22667278444243616265636572612220446174615365744E616D653D22667278444243616265636572612200010C3400000020446174615365743D226672784442446574616C6C65732220446174615365744E616D653D226672784442446574616C6C6573220000095661726961626C657301010C13000000204E616D653D2220506167696E6163696F6E2200010C0E000000204E616D653D22506167696E612200010C14000000204E616D653D22546F74616C506167696E61732200010C10000000204E616D653D2220496E666F726D652200010C16000000204E616D653D22496D7072696D697250726563696F2200010C1C000000204E616D653D22496D7072696D697252656650726F766565646F722200010C14000000204E616D653D2253686F774C6F676F7469706F220000055374796C650100">
<TfrxDataPage Name="Data" Height="1000" Left="0" Top="0" Width="1000"/>
<TfrxReportPage Name="Page1" PaperWidth="215,00041667" PaperHeight="297,00008333" PaperSize="256" LeftMargin="10,00125" RightMargin="10,00125" TopMargin="10,00125" BottomMargin="10,00125" ColumnWidth="0" ColumnPositions.Text="" LargeDesignHeight="True" HGuides.Text="" VGuides.Text="">
<TfrxMasterData Name="MasterData1" Height="21" Left="0" Top="376" Width="737,000475991765" ColumnWidth="0" ColumnGap="0" DataSet="frxDBDetalles" DataSetName="frxDBDetalles" RowCount="0" Stretched="True">
@ -9,7 +9,7 @@
<TfrxMemoView Name="ImporteTotal" Left="651" Top="1,5" Width="83,03148874" Height="18" ShowHint="False" StretchMode="smMaxHeight" DataSet="frxDBDetalles" DataSetName="frxDBDetalles" DisplayFormat.DecimalSeparator="," DisplayFormat.FormatStr="£ %2.2n" DisplayFormat.Kind="fkNumeric" Font.Charset="0" Font.Color="-16777208" Font.Height="-11" Font.Name="Tahoma" Font.Style="0" GapY="3" HAlign="haRight" HideZeros="True" LineSpacing="4" ParentFont="False" Text="[frxDBDetalles.&#34;IMPORTE_TOTAL&#34;]"/>
<TfrxMemoView Name="Concepto" Left="110" Top="1,5" Width="275" Height="18" ShowHint="False" StretchMode="smMaxHeight" Font.Charset="1" Font.Color="0" Font.Height="-11" Font.Name="Tahoma" Font.Style="0" ParentFont="False" Text="[frxDBDetalles.&#34;CONCEPTO&#34;]"/>
<TfrxMemoView Name="Memo6" Left="449" Top="1" Width="67,03148874" Height="18" ShowHint="False" StretchMode="smMaxHeight" DataSet="frxDBDetalles" DataSetName="frxDBDetalles" DisplayFormat.DecimalSeparator="," DisplayFormat.FormatStr="£ %2.2n" DisplayFormat.Kind="fkNumeric" Font.Charset="0" Font.Color="-16777208" Font.Height="-11" Font.Name="Tahoma" Font.Style="0" GapY="3" HAlign="haRight" HideZeros="True" LineSpacing="4" ParentFont="False" Text="[frxDBDetalles.&#34;IMPORTE_UNIDAD&#34;]"/>
<TfrxMemoView Name="Memo17" Left="524" Top="1" Width="44" Height="18" ShowHint="False" StretchMode="smMaxHeight" DataSet="frxDBDetalles" DataSetName="frxDBDetalles" DisplayFormat.DecimalSeparator="," DisplayFormat.FormatStr="#,0.00 %" DisplayFormat.Kind="fkNumeric" Font.Charset="0" Font.Color="-16777208" Font.Height="-11" Font.Name="Tahoma" Font.Style="0" GapY="3" HAlign="haRight" HideZeros="True" LineSpacing="4" ParentFont="False" Text="[frxDBDetalles.&#34;DESCUENTO&#34;]"/>
<TfrxMemoView Name="Memo17" Left="521" Top="1" Width="54" Height="18" ShowHint="False" StretchMode="smMaxHeight" DataSet="frxDBDetalles" DataSetName="frxDBDetalles" DisplayFormat.DecimalSeparator="," DisplayFormat.FormatStr="#,0.00 %" DisplayFormat.Kind="fkNumeric" Font.Charset="0" Font.Color="-16777208" Font.Height="-11" Font.Name="Tahoma" Font.Style="0" GapY="3" HAlign="haRight" HideZeros="True" LineSpacing="4" ParentFont="False" Text="[frxDBDetalles.&#34;DESCUENTO&#34;]"/>
</TfrxMasterData>
<TfrxPageFooter Name="PageFooter1" Font.Charset="1" Font.Color="0" Font.Height="-7" Font.Name="Arial" Font.Style="0" Height="140" Left="0" ParentFont="False" Top="1599" Width="737,000475991765">
<TfrxMemoView Name="Memo24" Left="239" Top="24" Width="497" Height="16" ShowHint="False" Font.Charset="1" Font.Color="0" Font.Height="-12" Font.Name="Tahoma" Font.Style="1" HAlign="haRight" ParentFont="False" VAlign="vaCenter" Text="Prices without tax"/>

64
Source/Informes/9/InfAlbaranCliente.fr3 Normal file
View File

File diff suppressed because one or more lines are too long

67
Source/Informes/9/InfAlbaranProveedor.fr3 Normal file
View File

File diff suppressed because one or more lines are too long

51
Source/Informes/9/InfComisiones.fr3 Normal file
View File

File diff suppressed because one or more lines are too long

57
Source/Informes/9/InfComisionesDesglosado.fr3 Normal file
View File

File diff suppressed because one or more lines are too long

72
Source/Informes/9/InfFacturaCliente.fr3 Normal file
View File

File diff suppressed because one or more lines are too long

67
Source/Informes/9/InfFacturaProforma.fr3 Normal file
View File

File diff suppressed because one or more lines are too long

75
Source/Informes/9/InfFacturaProveedor.fr3 Normal file
View File

File diff suppressed because one or more lines are too long

51
Source/Informes/9/InfPedidoCliente.fr3 Normal file
View File

File diff suppressed because one or more lines are too long

46
Source/Informes/9/InfPedidoProveedor.fr3 Normal file
View File

@ -0,0 +1,46 @@
<?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="39065,8724234954" ReportOptions.Description.Text="" ReportOptions.LastChange="41735,7807395949" ScriptLanguage="PascalScript" ScriptText.Text="&#13;&#10;procedure DatosEmpresaOnBeforePrint(Sender: TfrxComponent);&#13;&#10;var&#13;&#10; Cadena: String;&#13;&#10;begin&#13;&#10; DatosEmpresa.Lines.Clear;&#13;&#10; if (&#60;frxDBCabecera.&#34;TELEFONO_1_EMPRESA&#34;&#62; &#60;&#62; '') then&#13;&#10; Cadena := 'TLF: ' + &#60;frxDBCabecera.&#34;TELEFONO_1_EMPRESA&#34;&#62;;&#13;&#10; if (&#60;frxDBCabecera.&#34;FAX_EMPRESA&#34;&#62; &#60;&#62; '') then&#13;&#10; Cadena := Cadena + ' FAX: ' + &#60;frxDBCabecera.&#34;FAX_EMPRESA&#34;&#62;;&#13;&#10; DatosEmpresa.Lines.Add(Cadena);&#13;&#10;end;&#13;&#10;&#13;&#10;procedure NombreEmpresaOnBeforePrint(Sender: TfrxComponent);&#13;&#10;begin&#13;&#10; NombreEmpresa.Lines.Clear;&#13;&#10; NombreEmpresa.Lines.Add(&#60;frxDBCabecera.&#34;NOMBRE_EMPRESA&#34;&#62;);&#13;&#10;end;&#13;&#10;&#13;&#10;procedure DireccionEnvioOnBeforePrint(Sender: TfrxComponent);&#13;&#10;var&#13;&#10; ACadena : String;&#13;&#10;begin&#13;&#10; ACadena := '';&#13;&#10; DireccionEnvio.Lines.Clear;&#13;&#10;&#13;&#10; if (&#60;frxDBCabecera.&#34;NOMBRE_ALMACEN&#34;&#62; &#60;&#62; '') then&#13;&#10; DireccionEnvio.Lines.Add(&#60;frxDBCabecera.&#34;NOMBRE_ALMACEN&#34;&#62;);&#13;&#10;&#13;&#10; if (&#60;frxDBCabecera.&#34;PERSONA_CONTACTO&#34;&#62; &#60;&#62; '') then&#13;&#10; DireccionEnvio.Lines.Add(&#60;frxDBCabecera.&#34;PERSONA_CONTACTO&#34;&#62;);&#13;&#10;&#13;&#10; DireccionEnvio.Lines.Add(&#60;frxDBCabecera.&#34;CALLE&#34;&#62;);&#13;&#10;&#13;&#10; if (&#60;frxDBCabecera.&#34;CODIGO_POSTAL&#34;&#62; &#60;&#62; '') then&#13;&#10; ACadena := &#60;frxDBCabecera.&#34;CODIGO_POSTAL&#34;&#62; + ' ';&#13;&#10; if (&#60;frxDBCabecera.&#34;POBLACION&#34;&#62; &#60;&#62; '') then&#13;&#10; ACadena := ACadena + &#60;frxDBCabecera.&#34;POBLACION&#34;&#62;;&#13;&#10;&#13;&#10; if (ACadena &#60;&#62; '') then&#13;&#10; DireccionEnvio.Lines.Add(ACadena);&#13;&#10;&#13;&#10; if (&#60;frxDBCabecera.&#34;PROVINCIA&#34;&#62; &#60;&#62; '') then&#13;&#10; DireccionEnvio.Lines.Add(&#60;frxDBCabecera.&#34;PROVINCIA&#34;&#62;);&#13;&#10;&#13;&#10; if (&#60;frxDBCabecera.&#34;TELEFONO&#34;&#62; &#60;&#62; '') then&#13;&#10; DireccionEnvio.Lines.Add(&#60;frxDBCabecera.&#34;TELEFONO&#34;&#62;);&#13;&#10;end;&#13;&#10;&#13;&#10;procedure PageHeader1OnBeforePrint(Sender: TfrxComponent);&#13;&#10;begin&#13;&#10; if not Engine.FinalPass then&#13;&#10; Set('TotalPaginas', (&#60;TotalPaginas&#62; + 1));&#13;&#10;&#13;&#10; if Engine.FinalPass then&#13;&#10; Set('Pagina', (&#60;Pagina&#62; + 1));&#13;&#10;end;&#13;&#10;&#13;&#10;procedure frxReportOnStartReport(Sender: TfrxComponent);&#13;&#10;begin&#13;&#10; Set('Pagina', 0);&#13;&#10; Set('TotalPaginas', 0);&#13;&#10;end;&#13;&#10;&#13;&#10;procedure eImporteUnidadOnBeforePrint(Sender: TfrxComponent);&#13;&#10;begin&#13;&#10; if &#60;ImprimirPrecio&#62; then&#13;&#10; begin &#13;&#10; eImporteUnidad.Visible := True; &#13;&#10; lImporteUnidad.Visible := True; &#13;&#10; eImporteTotal.Visible := True; &#13;&#10; lImporteTotal.Visible := True; &#13;&#10; ImporteUnidad.Visible := True; &#13;&#10; ImporteTotal.Visible := True; &#13;&#10; end&#13;&#10; else&#13;&#10; begin &#13;&#10; eImporteUnidad.Visible := False; &#13;&#10; lImporteUnidad.Visible := False; &#13;&#10; eImporteTotal.Visible := False; &#13;&#10; lImporteTotal.Visible := False; &#13;&#10; ImporteUnidad.Visible := False; &#13;&#10; ImporteTotal.Visible := False;&#13;&#10; eConcepto.Width := eConcepto.Width + eImporteTotal.Width + eImporteUnidad.Width;&#13;&#10; Concepto.Width :=eConcepto.Width - 10; &#13;&#10; end&#13;&#10;end;&#13;&#10;&#13;&#10;begin&#13;&#10;&#13;&#10;end." ShowProgress="False" StoreInDFM="False" OnStartReport="frxReportOnStartReport" PropData="044C65667403890003546F70021008446174617365747301010C3400000020446174615365743D22667278444243616265636572612220446174615365744E616D653D22667278444243616265636572612200010C3400000020446174615365743D226672784442446574616C6C65732220446174615365744E616D653D226672784442446574616C6C6573220000095661726961626C657301010C13000000204E616D653D2220506167696E6163696F6E2200010C14000000204E616D653D22546F74616C506167696E61732200010C0E000000204E616D653D22506167696E612200010C16000000204E616D653D22496D7072696D697250726563696F2200010C1C000000204E616D653D22496D7072696D697252656650726F766565646F722200010C14000000204E616D653D2253686F776C6F676F7469706F220000055374796C650100">
<TfrxDataPage Name="Data" Height="1000" Left="0" Top="0" Width="1000"/>
<TfrxReportPage Name="Page1" PaperWidth="210" PaperHeight="297" PaperSize="9" LeftMargin="10" RightMargin="10" TopMargin="10" BottomMargin="10" ColumnWidth="0" ColumnPositions.Text="" HGuides.Text="" VGuides.Text="">
<TfrxMasterData Name="MasterData1" Height="24" Left="0" Top="308" Width="718,1107" ColumnWidth="0" ColumnGap="0" DataSet="frxDBDetalles" DataSetName="frxDBDetalles" RowCount="0" Stretched="True">
<TfrxRichView Name="Concepto" ShiftMode="smWhenOverlapped" Left="181,5" Top="1,5" Width="318,5436" Height="18" ShowHint="False" StretchMode="smMaxHeight" DataField="CONCEPTO" DataSet="frxDBDetalles" DataSetName="frxDBDetalles" GapX="2" GapY="3" Wysiwyg="False" PropData="0852696368456469740A6C0000007B5C727466315C616E73695C616E7369637067313235325C64656666305C6465666C616E67333038327B5C666F6E7474626C7B5C66305C666E696C205461686F6D613B7D7D0D0A5C766965776B696E64345C7563315C706172645C66305C667331365C7061720D0A7D0D0A00"/>
<TfrxMemoView Name="MemoCampo2" Left="121" Top="1,5" Width="56,03148874" Height="18" ShowHint="False" StretchMode="smMaxHeight" DataSet="frxDBDetalles" DataSetName="frxDBDetalles" DisplayFormat.DecimalSeparator="," DisplayFormat.FormatStr="%g" DisplayFormat.Kind="fkNumeric" Font.Charset="0" Font.Color="-16777208" Font.Height="-12" Font.Name="Tahoma" Font.Style="0" GapY="3" HAlign="haRight" HideZeros="True" LineSpacing="4" ParentFont="False" Style="Concepto normal" Text="[frxDBDetalles.&#34;CANTIDAD&#34;]"/>
<TfrxMemoView Name="Memo14" Left="1" Top="1,5" Width="117" Height="18" ShowHint="False" StretchMode="smMaxHeight" DataSet="frxDBDetalles" DataSetName="frxDBDetalles" DisplayFormat.DecimalSeparator="," DisplayFormat.FormatStr="#0 " DisplayFormat.Kind="fkNumeric" Font.Charset="0" Font.Color="-16777208" Font.Height="-12" Font.Name="Tahoma" Font.Style="0" GapY="3" HAlign="haRight" HideZeros="True" LineSpacing="4" ParentFont="False" Style="Concepto normal" Text="[frxDBDetalles.&#34;REFERENCIA_PROVEEDOR&#34;] "/>
<TfrxMemoView Name="ImporteUnidad" Left="504" Top="2" Width="96,03148874" Height="18" ShowHint="False" StretchMode="smMaxHeight" DataSet="frxDBDetalles" DataSetName="frxDBDetalles" DisplayFormat.DecimalSeparator="," DisplayFormat.FormatStr="%2.2m" DisplayFormat.Kind="fkNumeric" Font.Charset="0" Font.Color="-16777208" Font.Height="-12" Font.Name="Tahoma" Font.Style="0" GapY="3" HAlign="haRight" HideZeros="True" LineSpacing="4" ParentFont="False" Style="Concepto normal" Text="[frxDBDetalles.&#34;IMPORTE_UNIDAD&#34;]"/>
<TfrxMemoView Name="ImporteTotal" Left="606" Top="2" Width="109,03148874" Height="18" ShowHint="False" StretchMode="smMaxHeight" DataSet="frxDBDetalles" DataSetName="frxDBDetalles" DisplayFormat.DecimalSeparator="," DisplayFormat.FormatStr="%2.2m" DisplayFormat.Kind="fkNumeric" Font.Charset="0" Font.Color="-16777208" Font.Height="-12" Font.Name="Tahoma" Font.Style="0" GapY="3" HAlign="haRight" HideZeros="True" LineSpacing="4" ParentFont="False" Style="Concepto normal" Text="[frxDBDetalles.&#34;IMPORTE_TOTAL&#34;]"/>
</TfrxMasterData>
<TfrxPageFooter Name="PageFooter1" Height="72,87953" Left="0" Top="392" Width="718,1107">
<TfrxLineView Name="Line4" Align="baCenter" Left="-0,94465" Top="0" Width="720" Height="0" ShowHint="False" Frame.Typ="4"/>
</TfrxPageFooter>
<TfrxPageHeader Name="PageHeader1" Height="232,44096685" Left="0" Top="16" Width="718,1107" OnBeforePrint="PageHeader1OnBeforePrint">
<TfrxMemoView Name="eConcepto" Align="baLeft" Left="179,25726667" Top="206,94094" Width="322,7" Height="26,45669291" ShowHint="False" Color="16777215" Font.Charset="0" Font.Color="-16777208" Font.Height="-12" Font.Name="Tahoma" Font.Style="1" Frame.Color="8421504" Frame.Typ="15" HAlign="haCenter" ParentFont="False" VAlign="vaCenter" Text="Concepto"/>
<TfrxMemoView Name="Memo8" Align="baLeft" Left="120" Top="206,94094" Width="59,25726667" Height="26,45669291" ShowHint="False" Color="16777215" Font.Charset="0" Font.Color="-16777208" Font.Height="-12" Font.Name="Tahoma" Font.Style="1" Frame.Color="8421504" Frame.Typ="15" HAlign="haCenter" ParentFont="False" VAlign="vaCenter" Text="Cantidad"/>
<TfrxMemoView Name="Memo13" Left="0" Top="206,94094" Width="120" Height="26,45669291" ShowHint="False" Color="16777215" Font.Charset="0" Font.Color="-16777208" Font.Height="-12" Font.Name="Tahoma" Font.Style="1" Frame.Color="8421504" Frame.Typ="15" HAlign="haCenter" ParentFont="False" VAlign="vaCenter" Text="Referencia"/>
<TfrxShapeView Name="Shape2" Left="357,60637" Top="72,22047" Width="360,69295" Height="122,95671" ShowHint="False" Color="16777215" Frame.Color="8421504"/>
<TfrxMemoView Name="NombreEmpresa" Left="0" Top="4,22047" Width="414,07885" Height="26,89765" OnBeforePrint="NombreEmpresaOnBeforePrint" ShowHint="False" Font.Charset="1" Font.Color="8421504" Font.Height="-19" Font.Name="Tahoma" Font.Style="1" ParentFont="False" Text=""/>
<TfrxMemoView Name="Memo7" Left="362,61441" Top="79,81107" Width="68,69295" Height="18,89765" ShowHint="False" Font.Charset="1" Font.Color="0" Font.Height="-12" Font.Name="Tahoma" Font.Style="1" ParentFont="False" Text="Página nº:"/>
<TfrxMemoView Name="Memo12" Left="438,86642" Top="79,81107" Width="278,58287" Height="18,89765" ShowHint="False" Font.Charset="1" Font.Color="0" Font.Height="-12" Font.Name="Tahoma" Font.Style="1" ParentFont="False" Text="[&#60;Pagina&#62;] / [&#60;TotalPaginas&#62;]"/>
<TfrxShapeView Name="Shape1" Left="0" Top="72,22047" Width="357,92125984" Height="122,96062016" ShowHint="False" Color="16777215" Frame.Color="8421504"/>
<TfrxMemoView Name="Memo10" Left="3,68491" Top="76,22047" Width="349,29159" Height="17,60637" ShowHint="False" DataSet="frxDBCabecera" DataSetName="frxDBCabecera" Font.Charset="1" Font.Color="0" Font.Height="-12" Font.Name="Tahoma" Font.Style="1" ParentFont="False" Text="DIRECCIÓN DESTINO:"/>
<TfrxMemoView Name="DatosEmpresa" Left="0" Top="36,22047" Width="414,07885" Height="26,89765" OnBeforePrint="DatosEmpresaOnBeforePrint" ShowHint="False" Font.Charset="1" Font.Color="8421504" Font.Height="-16" Font.Name="Tahoma" Font.Style="1" ParentFont="False" Text=""/>
<TfrxMemoView Name="Memo5" Left="362,61441" Top="101,35436" Width="98,92919" Height="18,67718" ShowHint="False" DataSet="frxDBCabecera" DataSetName="frxDBCabecera" Font.Charset="1" Font.Color="0" Font.Height="-12" Font.Name="Tahoma" Font.Style="1" ParentFont="False" Text="Nº pedido:"/>
<TfrxMemoView Name="Memo4" Left="362,61441" Top="130,89765" Width="72,47248" Height="18,67718" ShowHint="False" DataSet="frxDBCabecera" DataSetName="frxDBCabecera" Font.Charset="1" Font.Color="0" Font.Height="-12" Font.Name="Tahoma" Font.Style="1" ParentFont="False" Text="Proveedor:"/>
<TfrxMemoView Name="Memo11" Left="435,08689" Top="130,89765" Width="279,11812" Height="18,67718" ShowHint="False" DataSet="frxDBCabecera" DataSetName="frxDBCabecera" Font.Charset="1" Font.Color="0" Font.Height="-12" Font.Name="Tahoma" Font.Style="1" ParentFont="False" Text="[frxDBCabecera.&#34;NOMBRE&#34;]"/>
<TfrxMemoView Name="Memo3" Left="438,86642" Top="101,57483" Width="78,80303" Height="18,67718" ShowHint="False" DataSet="frxDBCabecera" DataSetName="frxDBCabecera" Font.Charset="1" Font.Color="0" Font.Height="-12" Font.Name="Tahoma" Font.Style="1" ParentFont="False" Text="[frxDBCabecera.&#34;REFERENCIA&#34;]"/>
<TfrxMemoView Name="DireccionEnvio" Left="4" Top="100,22047" Width="347,46475" Height="87,40483" OnBeforePrint="DireccionEnvioOnBeforePrint" ShowHint="False" StretchMode="smActualHeight" DataSet="frxDBCabecera" DataSetName="frxDBCabecera" Font.Charset="1" Font.Color="0" Font.Height="-12" Font.Name="Tahoma" Font.Style="0" ParentFont="False" Text=""/>
<TfrxLineView Name="Line1" Left="718,5" Top="206,36222913" Width="0" Height="768,8947" ShowHint="False" Frame.Typ="1"/>
<TfrxLineView Name="Line2" Left="0" Top="206,36222913" Width="0" Height="768,8947" ShowHint="False" Frame.Typ="1"/>
<TfrxLineView Name="Line3" Align="baLeft" Left="120" Top="206,36222913" Width="0" Height="768,8947" ShowHint="False" Frame.Typ="1"/>
<TfrxLineView Name="Line5" Align="baLeft" Left="179,25726667" Top="206,36222913" Width="0" Height="768,8947" ShowHint="False" Frame.Typ="1"/>
<TfrxMemoView Name="Memo2" Left="365,92115" Top="18,89765" Width="347,93723" Height="38,89765" ShowHint="False" Font.Charset="1" Font.Color="8421504" Font.Height="-29" Font.Name="Tahoma" Font.Style="1" HAlign="haRight" ParentFont="False" Text="PEDIDO A PROVEEDOR"/>
<TfrxMemoView Name="Memo1" Left="521,57514" Top="102,04731" Width="46,01577" Height="18,67718" ShowHint="False" DataSet="frxDBCabecera" DataSetName="frxDBCabecera" Font.Charset="1" Font.Color="0" Font.Height="-12" Font.Name="Tahoma" Font.Style="1" ParentFont="False" Text="Fecha:"/>
<TfrxMemoView Name="Memo6" Left="570,70903" Top="102,04731" Width="143,05504" Height="18,67718" ShowHint="False" DataSet="frxDBCabecera" DataSetName="frxDBCabecera" Font.Charset="1" Font.Color="0" Font.Height="-12" Font.Name="Tahoma" Font.Style="1" HideZeros="True" ParentFont="False" Text="[frxDBCabecera.&#34;FECHA_PEDIDO&#34;]"/>
<TfrxMemoView Name="Memo9" Left="362,83488" Top="154,96073" Width="30,89765" Height="18,67718" ShowHint="False" DataSet="frxDBCabecera" DataSetName="frxDBCabecera" Font.Charset="1" Font.Color="0" Font.Height="-12" Font.Name="Tahoma" Font.Style="1" ParentFont="False" Text="Fax:"/>
<TfrxMemoView Name="Memo15" Left="396,85065" Top="154,96073" Width="316,91342" Height="18,67718" ShowHint="False" DataSet="frxDBCabecera" DataSetName="frxDBCabecera" Font.Charset="1" Font.Color="0" Font.Height="-12" Font.Name="Tahoma" Font.Style="1" ParentFont="False" Text="[frxDBCabecera.&#34;FAX&#34;]"/>
<TfrxMemoView Name="eImporteUnidad" Left="502" Top="207" Width="101,25726667" Height="26,45669291" OnBeforePrint="eImporteUnidadOnBeforePrint" ShowHint="False" Color="16777215" Font.Charset="0" Font.Color="-16777208" Font.Height="-12" Font.Name="Tahoma" Font.Style="1" Frame.Color="8421504" Frame.Typ="15" HAlign="haCenter" ParentFont="False" VAlign="vaCenter" Text="Importe coste"/>
<TfrxMemoView Name="eImporteTotal" Left="603" Top="207" Width="115,25726667" Height="26,45669291" ShowHint="False" Color="16777215" Font.Charset="0" Font.Color="-16777208" Font.Height="-12" Font.Name="Tahoma" Font.Style="1" Frame.Color="8421504" Frame.Typ="15" HAlign="haCenter" ParentFont="False" VAlign="vaCenter" Text="Importe total"/>
<TfrxLineView Name="lImporteUnidad" Left="502" Top="207" Width="0" Height="768,8947" ShowHint="False" Frame.Typ="1"/>
<TfrxLineView Name="lImporteTotal" Left="603" Top="207" Width="0" Height="768,8947" ShowHint="False" Frame.Typ="1"/>
</TfrxPageHeader>
</TfrxReportPage>
</TfrxReport>

64
Source/Informes/9/InfPresupuestoCliente.fr3 Normal file
View File

File diff suppressed because one or more lines are too long

90
Source/Informes/9/InfReciboCliente.fr3 Normal file
View File

File diff suppressed because one or more lines are too long

56
Source/Informes/9/InfRemesaCliente.fr3 Normal file
View File

@ -0,0 +1,56 @@
<?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.OutlineWidth="180" PreviewOptions.Zoom="1" PrintOptions.Printer="Default" PrintOptions.PrintOnSheet="0" ReportOptions.CreateDate="37871,9953986921" ReportOptions.Description.Text="" ReportOptions.LastChange="41474,7333670139" ReportOptions.VersionBuild="1" ReportOptions.VersionMajor="12" ReportOptions.VersionMinor="13" ReportOptions.VersionRelease="1" ScriptLanguage="PascalScript" ScriptText.Text="procedure ReportSummary1OnBeforePrint(Sender: TfrxComponent);&#13;&#10;begin&#13;&#10;// Engine.CurY := Engine.CurY + Engine.FreeSpace - ReportSummary1.Height;&#13;&#10;end;&#13;&#10;&#13;&#10;procedure DatosEmpresaOnBeforePrint(Sender: TfrxComponent);&#13;&#10;var&#13;&#10; Cadena: String;&#13;&#10;begin&#13;&#10; DatosEmpresa.Lines.Clear;&#13;&#10; DatosEmpresa.Lines.Add(&#60;frxDBCabecera.&#34;RAZON_SOCIAL&#34;&#62;);&#13;&#10; DatosEmpresa.Lines.Add(&#60;frxDBCabecera.&#34;CALLE_EMPRESA&#34;&#62;);&#13;&#10;&#13;&#10; Cadena := '';&#13;&#10; if (&#60;frxDBCabecera.&#34;TELEFONO_1&#34;&#62; &#60;&#62; '') then&#13;&#10; Cadena := 'TLF: ' + &#60;frxDBCabecera.&#34;TELEFONO_1&#34;&#62;;&#13;&#10; if (&#60;frxDBCabecera.&#34;FAX&#34;&#62; &#60;&#62; '') then&#13;&#10; Cadena := Cadena + ' FAX: ' + &#60;frxDBCabecera.&#34;FAX&#34;&#62;;&#13;&#10; DatosEmpresa.Lines.Add(Cadena);&#13;&#10;&#13;&#10; Cadena := '';&#13;&#10; if (&#60;frxDBCabecera.&#34;CODIGO_POSTAL_EMPRESA&#34;&#62; &#60;&#62; '') then&#13;&#10; Cadena := &#60;frxDBCabecera.&#34;CODIGO_POSTAL_EMPRESA&#34;&#62;;&#13;&#10; if (&#60;frxDBCabecera.&#34;POBLACION_EMPRESA&#34;&#62; &#60;&#62; '') then&#13;&#10; Cadena := Cadena + ' ' + &#60;frxDBCabecera.&#34;POBLACION_EMPRESA&#34;&#62;;&#13;&#10; if (&#60;frxDBCabecera.&#34;PROVINCIA_EMPRESA&#34;&#62; &#60;&#62; '') then&#13;&#10; Cadena := Cadena + ' - ' + &#60;frxDBCabecera.&#34;PROVINCIA_EMPRESA&#34;&#62;;&#13;&#10; DatosEmpresa.Lines.Add(Cadena);&#13;&#10;end;&#13;&#10;&#13;&#10;procedure Band2OnBeforePrint(Sender: TfrxComponent);&#13;&#10;begin&#13;&#10; if not Engine.FinalPass then&#13;&#10; Set('TotalPaginas', (&#60;TotalPaginas&#62; + 1));&#13;&#10;&#13;&#10; if Engine.FinalPass then&#13;&#10; Set('Pagina', (&#60;Pagina&#62; + 1));&#13;&#10;end;&#13;&#10;&#13;&#10;procedure frxReportOnStartReport(Sender: TfrxComponent);&#13;&#10;begin&#13;&#10; Set('Pagina', 0);&#13;&#10; Set('TotalPaginas', 0);&#13;&#10;end;&#13;&#10;&#13;&#10;procedure PageFooter1OnBeforePrint(Sender: TfrxComponent);&#13;&#10;begin&#13;&#10; if Engine.FinalPass&#13;&#10; and (&#60;TotalPaginas&#62; = &#60;Pagina&#62;)then&#13;&#10; begin&#13;&#10; eTotal.Visible := True;&#13;&#10; vTotal.Visible := True;&#13;&#10; Cuadro.Visible := True;&#13;&#10; end&#13;&#10; else&#13;&#10; begin&#13;&#10; eTotal.Visible := False;&#13;&#10; vTotal.Visible := False;&#13;&#10; Cuadro.Visible := False;&#13;&#10; end;&#13;&#10;end;&#13;&#10;&#13;&#10;begin&#13;&#10;&#13;&#10;end." ShowProgress="False" StoreInDFM="False" OnStartReport="frxReportOnStartReport" PropData="044C65667403910003546F70021008446174617365747301010C3400000020446174615365743D22667278444243616265636572612220446174615365744E616D653D22667278444243616265636572612200010C3400000020446174615365743D226672784442446574616C6C65732220446174615365744E616D653D226672784442446574616C6C6573220000095661726961626C657301010C13000000204E616D653D2220506167696E6163696F6E2200010C0E000000204E616D653D22506167696E612200010C14000000204E616D653D22546F74616C506167696E6173220000055374796C6501010C85000000204E616D653D22436F6E636570746F206E6F726D616C2220436F6C6F723D223533363837303931312220466F6E742E436861727365743D22302220466F6E742E436F6C6F723D222D31363737373230382220466F6E742E4865696768743D222D31322220466F6E742E4E616D653D225461686F6D612220466F6E742E5374796C653D22302200010C87000000204E616D653D22436F6E636570746F20737562746F74616C2220436F6C6F723D223533363837303931312220466F6E742E436861727365743D22302220466F6E742E436F6C6F723D222D31363737373230382220466F6E742E4865696768743D222D31322220466F6E742E4E616D653D225461686F6D612220466F6E742E5374796C653D22312200010C97000000204E616D653D22436162656365726120646520636F6C756D6E612220436F6C6F723D2231353739303332302220466F6E742E436861727365743D22302220466F6E742E436F6C6F723D222D31363737373230382220466F6E742E4865696768743D222D31322220466F6E742E4E616D653D225461686F6D612220466F6E742E5374796C653D223122204672616D652E5479703D2231352200010C85000000204E616D653D22436F6E636570746F20746974756C6F2220436F6C6F723D223533363837303931312220466F6E742E436861727365743D22302220466F6E742E436F6C6F723D222D31363737373230382220466F6E742E4865696768743D222D31332220466F6E742E4E616D653D225461686F6D612220466F6E742E5374796C653D2231220000">
<TfrxDataPage Name="Data" Height="1000" Left="0" Top="0" Width="1000"/>
<TfrxReportPage Name="Page1" Font.Charset="1" Font.Color="0" Font.Height="-13" Font.Name="Arial" Font.Style="1" PaperWidth="210" PaperHeight="297" PaperSize="9" LeftMargin="10" RightMargin="10" TopMargin="10" BottomMargin="10" Columns="1" ColumnWidth="210" ColumnPositions.Text="0" HGuides.Text="" VGuides.Text="">
<TfrxPageHeader Name="Band2" Height="258,70866142" Left="0" Top="16" Width="718,1107" OnBeforePrint="Band2OnBeforePrint">
<TfrxMemoView Name="Memo23" Left="3,77953" Top="228,5671" Width="92,22047" Height="26,45669291" ShowHint="False" Color="16777215" Font.Charset="0" Font.Color="-16777208" Font.Height="-12" Font.Name="Tahoma" Font.Style="1" Frame.Color="8421504" Frame.Typ="12" HAlign="haCenter" ParentFont="False" VAlign="vaCenter" Text="Ref. recibo"/>
<TfrxMemoView Name="Memo24" Left="564,69326" Top="228,5671" Width="153,41744" Height="26,45669291" ShowHint="False" Color="16777215" Font.Charset="0" Font.Color="-16777208" Font.Height="-12" Font.Name="Tahoma" Font.Style="1" Frame.Color="8421504" Frame.Typ="12" HAlign="haRight" ParentFont="False" VAlign="vaCenter" Text="Importe "/>
<TfrxPictureView Name="Picture1" Left="7,77953" Top="20,22047" Width="160,03598" Height="80,03154" OnBeforePrint="Picture1OnBeforePrint" ShowHint="False" DataField="LOGOTIPO" DataSet="frxDBCabecera" DataSetName="frxDBCabecera" HightQuality="False"/>
<TfrxMemoView Name="DatosEmpresa" Left="166,92919" Top="17,35436" Width="221,41744" Height="80,69295" OnBeforePrint="DatosEmpresaOnBeforePrint" ShowHint="False" Font.Charset="1" Font.Color="0" Font.Height="-11" Font.Name="Tahoma" Font.Style="0" ParentFont="False" Text=""/>
<TfrxShapeView Name="Shape1" Left="7,55906" Top="113,3859" Width="257,00804" Height="94,48825" ShowHint="False" Color="16777215" Frame.Color="8421504" Shape="skRoundRectangle"/>
<TfrxShapeView Name="Shape2" Left="325,48052" Top="113,3859" Width="393,07112" Height="94,48825" ShowHint="False" Color="16777215" Frame.Color="8421504" Shape="skRoundRectangle"/>
<TfrxMemoView Name="Memo16" Left="15,11812" Top="116,94496" Width="65,13389" Height="18,89765" ShowHint="False" Font.Charset="1" Font.Color="0" Font.Height="-12" Font.Name="Arial" Font.Style="0" ParentFont="False" Text="Nº remesa:"/>
<TfrxMemoView Name="Memo17" Left="15,11812" Top="162,29932" Width="45,35436" Height="18,89765" ShowHint="False" Font.Charset="1" Font.Color="0" Font.Height="-12" Font.Name="Arial" Font.Style="0" ParentFont="False" Text="Fecha:"/>
<TfrxMemoView Name="Memo18" Left="15,11812" Top="184,9765" Width="60,47248" Height="18,89765" ShowHint="False" Font.Charset="1" Font.Color="0" Font.Height="-12" Font.Name="Arial" Font.Style="0" ParentFont="False" Text="Página nº:"/>
<TfrxMemoView Name="Memo3" Left="211,8859" Top="229,5671" Width="241,0671" Height="26,45669291" ShowHint="False" Color="16777215" Font.Charset="0" Font.Color="-16777208" Font.Height="-12" Font.Name="Tahoma" Font.Style="1" Frame.Color="8421504" Frame.Typ="12" HAlign="haCenter" ParentFont="False" VAlign="vaCenter" Text="Cliente"/>
<TfrxMemoView Name="Memo4" Left="453,953" Top="228,5671" Width="110,74026" Height="26,45669291" ShowHint="False" Color="16777215" Font.Charset="0" Font.Color="-16777208" Font.Height="-12" Font.Name="Tahoma" Font.Style="1" Frame.Color="8421504" Frame.Typ="12" HAlign="haCenter" ParentFont="False" VAlign="vaCenter" Text="NIF / CIF"/>
<TfrxMemoView Name="Memo5" Left="80,03154" Top="116,94496" Width="176,9765" Height="18,89765" ShowHint="False" DataSet="frxDBCabecera" DataSetName="frxDBCabecera" Text="[frxDBCabecera.&#34;REFERENCIA&#34;]"/>
<TfrxMemoView Name="Memo6" Left="60,25201" Top="162,29932" Width="196,75603" Height="18,89765" ShowHint="False" DataSet="frxDBCabecera" DataSetName="frxDBCabecera" Text="[frxDBCabecera.&#34;FECHA_REMESA&#34;]"/>
<TfrxMemoView Name="Memo7" Left="75,37013" Top="184,9765" Width="181,63791" Height="18,89765" ShowHint="False" Text="[&#60;Pagina&#62;] / [&#60;TotalPaginas&#62;]"/>
<TfrxMemoView Name="Memo15" Left="396,1577" Top="18,89765" Width="314,39394" Height="64,25201" ShowHint="False" Font.Charset="1" Font.Color="12632256" Font.Height="-48" Font.Name="Tahoma" Font.Style="1" Frame.Color="14211288" HAlign="haCenter" ParentFont="False" VAlign="vaCenter" Text="REMESA"/>
<TfrxMemoView Name="Memo8" Left="95,82158333" Top="228,66141732" Width="115,89765" Height="26,45669291" ShowHint="False" Color="16777215" Font.Charset="0" Font.Color="-16777208" Font.Height="-12" Font.Name="Tahoma" Font.Style="1" Frame.Color="8421504" Frame.Typ="12" HAlign="haCenter" ParentFont="False" VAlign="vaCenter" Text="Vencimiento"/>
<TfrxMemoView Name="Memo22" Left="15,11812" Top="139,84261" Width="68,91342" Height="18,89765" ShowHint="False" Font.Charset="1" Font.Color="0" Font.Height="-12" Font.Name="Arial" Font.Style="0" ParentFont="False" Text="Descripción:"/>
<TfrxMemoView Name="Memo25" Left="87,5906" Top="139,84261" Width="169,41744" Height="18,89765" ShowHint="False" DataSet="frxDBCabecera" DataSetName="frxDBCabecera" Text="[frxDBCabecera.&#34;DESCRIPCION&#34;]"/>
<TfrxMemoView Name="Memo19" Left="336,37817" Top="139,84261" Width="42,45671" Height="18,89765" ShowHint="False" Font.Charset="1" Font.Color="0" Font.Height="-12" Font.Name="Arial" Font.Style="0" ParentFont="False" Text="Titular:"/>
<TfrxMemoView Name="Memo26" Left="382,39394" Top="139,84261" Width="331,93723" Height="18,89765" ShowHint="False" DataSet="frxDBCabecera" DataSetName="frxDBCabecera" Text="[frxDBCabecera.&#34;TITULAR&#34;]"/>
<TfrxMemoView Name="Memo27" Left="336,37817" Top="117,16543" Width="176,9765" Height="18,89765" ShowHint="False" DataSet="frxDBCabecera" DataSetName="frxDBCabecera" Font.Charset="1" Font.Color="0" Font.Height="-13" Font.Name="Arial" Font.Style="0" ParentFont="False" Text="Datos de la cuenta"/>
<TfrxMemoView Name="Memo28" Left="336,37817" Top="162,51979" Width="75,5906" Height="18,89765" ShowHint="False" Font.Charset="1" Font.Color="0" Font.Height="-12" Font.Name="Arial" Font.Style="0" ParentFont="False" Text="Cód. entidad:"/>
<TfrxMemoView Name="Memo29" Left="415,52783" Top="162,51979" Width="53,13389" Height="18,89765" ShowHint="False" DataSet="frxDBCabecera" DataSetName="frxDBCabecera" Text="[frxDBCabecera.&#34;ENTIDAD&#34;]"/>
<TfrxMemoView Name="Memo30" Left="472,44125" Top="162,51979" Width="83,14966" Height="18,89765" ShowHint="False" Font.Charset="1" Font.Color="0" Font.Height="-12" Font.Name="Arial" Font.Style="0" ParentFont="False" Text="Cód. sucursal:"/>
<TfrxMemoView Name="Memo31" Left="559,14997" Top="162,51979" Width="147,62214" Height="18,89765" ShowHint="False" DataSet="frxDBCabecera" DataSetName="frxDBCabecera" Text="[frxDBCabecera.&#34;SUCURSAL&#34;]"/>
<TfrxMemoView Name="Memo32" Left="336,37817" Top="185,19697" Width="26,45671" Height="18,89765" ShowHint="False" Font.Charset="1" Font.Color="0" Font.Height="-12" Font.Name="Arial" Font.Style="0" ParentFont="False" Text="DC:"/>
<TfrxMemoView Name="Memo33" Left="366,39394" Top="185,19697" Width="34,23624" Height="18,89765" ShowHint="False" DataSet="frxDBCabecera" DataSetName="frxDBCabecera" Text="[frxDBCabecera.&#34;DC&#34;]"/>
<TfrxMemoView Name="Memo34" Left="472,44125" Top="185,19697" Width="83,14966" Height="18,89765" ShowHint="False" Font.Charset="1" Font.Color="0" Font.Height="-12" Font.Name="Arial" Font.Style="0" ParentFont="False" Text="Cód. cuenta:"/>
<TfrxMemoView Name="Memo37" Left="559,14997" Top="185,19697" Width="147,62214" Height="18,89765" ShowHint="False" DataSet="frxDBCabecera" DataSetName="frxDBCabecera" Text="[frxDBCabecera.&#34;CUENTA&#34;]"/>
<TfrxLineView Name="Line2" Left="4" Top="229,54" Width="0" Height="774,803149606299" ShowHint="False" Frame.Color="8421504" Frame.Typ="1"/>
<TfrxLineView Name="Line5" Left="95,92146" Top="229,54" Width="0" Height="774,803149606299" ShowHint="False" Frame.Color="8421504" Frame.Typ="1"/>
<TfrxLineView Name="Line4" Left="453,9094" Top="229,54" Width="0" Height="774,803149606299" ShowHint="False" Frame.Color="8421504" Frame.Typ="1"/>
<TfrxLineView Name="Line3" Left="564,28346457" Top="229,54" Width="0" Height="774,803149606299" ShowHint="False" Frame.Color="8421504" Frame.Typ="1"/>
<TfrxLineView Name="Line1" Left="718" Top="229,54" Width="0" Height="774,803149606299" ShowHint="False" Frame.Color="8421504" Frame.Typ="1"/>
<TfrxLineView Name="Line9" Left="211,62461333" Top="229,54" Width="0" Height="774,803149606299" ShowHint="False" Frame.Color="8421504" Frame.Typ="1"/>
</TfrxPageHeader>
<TfrxMasterData Name="BandaDetalles" Height="19,11812" Left="0" Top="335" Width="718,1107" AllowSplit="True" Columns="1" ColumnWidth="200" ColumnGap="20" DataSet="frxDBDetalles" DataSetName="frxDBDetalles" RowCount="0" Stretched="True">
<TfrxMemoView Name="MemPrecio" Left="460,40153087" Top="2" Width="101,56298724" Height="15,11811024" ShowHint="False" StretchMode="smMaxHeight" DataSet="frxDBDetalles" DataSetName="frxDBDetalles" DisplayFormat.DecimalSeparator="," Font.Charset="0" Font.Color="-16777208" Font.Height="-11" Font.Name="Tahoma" Font.Style="0" GapX="3" GapY="3" HideZeros="True" LineSpacing="4" ParentFont="False" Text="[frxDBDetalles.&#34;NIF_CIF_CLIENTE&#34;]"/>
<TfrxMemoView Name="MemImpTotal" Left="566,36216811" Top="2" Width="147,16535189" Height="15,11811024" ShowHint="False" StretchMode="smMaxHeight" DataSet="frxDBDetalles" DataSetName="frxDBDetalles" DisplayFormat.DecimalSeparator="," DisplayFormat.FormatStr="#,0.00 € " DisplayFormat.Kind="fkNumeric" Font.Charset="0" Font.Color="-16777208" Font.Height="-11" Font.Name="Tahoma" Font.Style="0" GapX="3" GapY="3" HAlign="haRight" LineSpacing="4" ParentFont="False" Text="[frxDBDetalles.&#34;IMPORTE_TOTAL&#34;]"/>
<TfrxMemoView Name="MemCantidad" Left="218,46837457" Top="2" Width="229,44892874" Height="15,11811024" ShowHint="False" StretchMode="smMaxHeight" DataSet="frxDBDetalles" DataSetName="frxDBDetalles" DisplayFormat.DecimalSeparator="," DisplayFormat.FormatStr="#0 " DisplayFormat.Kind="fkNumeric" Font.Charset="0" Font.Color="-16777208" Font.Height="-11" Font.Name="Tahoma" Font.Style="0" GapX="3" GapY="3" HideZeros="True" LineSpacing="4" ParentFont="False" Text="[frxDBDetalles.&#34;NOMBRE_CLIENTE&#34;]"/>
<TfrxMemoView Name="Memo21" Left="99,22449" Top="2" Width="110,89765" Height="15,11812" ShowHint="False" DataSet="frxDBDetalles" DataSetName="frxDBDetalles" Font.Charset="1" Font.Color="0" Font.Height="-11" Font.Name="Tahoma" Font.Style="0" ParentFont="False" Text="[frxDBDetalles.&#34;FECHA_VENCIMIENTO&#34;]"/>
<TfrxMemoView Name="Memo2" Left="6,18491" Top="2" Width="84" Height="15,11812" ShowHint="False" DataSet="frxDBDetalles" DataSetName="frxDBDetalles" Font.Charset="1" Font.Color="0" Font.Height="-11" Font.Name="Tahoma" Font.Style="0" ParentFont="False" Text="[frxDBDetalles.&#34;REFERENCIA&#34;]"/>
</TfrxMasterData>
<TfrxPageFooter Name="PageFooter1" Height="42,70866142" Left="0" Top="414" Width="718,1107" OnBeforePrint="PageFooter1OnBeforePrint">
<TfrxShapeView Name="Cuadro" Left="3,77953" Top="0" Width="714,708661417323" Height="28,88188" ShowHint="False" Color="16777215" Frame.Color="8421504"/>
<TfrxMemoView Name="vtotal" Left="566,9295" Top="3,77953000000002" Width="147,87415" Height="22,89765" ShowHint="False" DataSet="frxDBCabecera" DataSetName="frxDBCabecera" DisplayFormat.DecimalSeparator="," DisplayFormat.FormatStr="#,0.00 €" DisplayFormat.Kind="fkNumeric" Font.Charset="1" Font.Color="0" Font.Height="-13" Font.Name="Tahoma" Font.Style="1" HAlign="haRight" ParentFont="False" VAlign="vaCenter" Text="[frxDBCabecera.&#34;IMPORTE_TOTAL&#34;]"/>
<TfrxMemoView Name="etotal" Left="430,86642" Top="6,67718000000002" Width="132" Height="16" ShowHint="False" Font.Charset="1" Font.Color="0" Font.Height="-13" Font.Name="Tahoma" Font.Style="1" HAlign="haRight" ParentFont="False" VAlign="vaCenter" Text="Total remesa:"/>
<TfrxLineView Name="Linea" Left="3,77953" Top="0" Width="714,330708661417" Height="0" ShowHint="False" Frame.Typ="4"/>
</TfrxPageFooter>
</TfrxReportPage>
</TfrxReport>

65
Source/Informes/9/InfRemesaProveedor.fr3 Normal file
View File

@ -0,0 +1,65 @@
<?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.OutlineWidth="180" PreviewOptions.Zoom="1" PrintOptions.Printer="Default" PrintOptions.PrintOnSheet="0" ReportOptions.CreateDate="37871,9953986921" ReportOptions.Description.Text="" ReportOptions.LastChange="40672,5961464931" ReportOptions.VersionBuild="1" ReportOptions.VersionMajor="12" ReportOptions.VersionMinor="13" ReportOptions.VersionRelease="1" ScriptLanguage="PascalScript" ScriptText.Text="&#13;&#10;&#13;&#10;procedure DatosEmpresaOnBeforePrint(Sender: TfrxComponent);&#13;&#10;var&#13;&#10; Cadena: String;&#13;&#10;begin&#13;&#10; DatosEmpresa.Lines.Clear;&#13;&#10; DatosEmpresa.Lines.Add(&#60;frxDBCabecera.&#34;RAZON_SOCIAL&#34;&#62;);&#13;&#10; DatosEmpresa.Lines.Add(&#60;frxDBCabecera.&#34;CALLE_EMPRESA&#34;&#62;);&#13;&#10;&#13;&#10; Cadena := '';&#13;&#10; if (&#60;frxDBCabecera.&#34;TELEFONO_1&#34;&#62; &#60;&#62; '') then&#13;&#10; Cadena := 'TLF: ' + &#60;frxDBCabecera.&#34;TELEFONO_1&#34;&#62;;&#13;&#10; if (&#60;frxDBCabecera.&#34;FAX&#34;&#62; &#60;&#62; '') then&#13;&#10; Cadena := Cadena + ' FAX: ' + &#60;frxDBCabecera.&#34;FAX&#34;&#62;;&#13;&#10; DatosEmpresa.Lines.Add(Cadena);&#13;&#10;&#13;&#10; Cadena := '';&#13;&#10; if (&#60;frxDBCabecera.&#34;CODIGO_POSTAL_EMPRESA&#34;&#62; &#60;&#62; '') then&#13;&#10; Cadena := &#60;frxDBCabecera.&#34;CODIGO_POSTAL_EMPRESA&#34;&#62;;&#13;&#10; if (&#60;frxDBCabecera.&#34;POBLACION_EMPRESA&#34;&#62; &#60;&#62; '') then&#13;&#10; Cadena := Cadena + ' ' + &#60;frxDBCabecera.&#34;POBLACION_EMPRESA&#34;&#62;;&#13;&#10; if (&#60;frxDBCabecera.&#34;PROVINCIA_EMPRESA&#34;&#62; &#60;&#62; '') then&#13;&#10; Cadena := Cadena + ' - ' + &#60;frxDBCabecera.&#34;PROVINCIA_EMPRESA&#34;&#62;;&#13;&#10; DatosEmpresa.Lines.Add(Cadena);&#13;&#10;end;&#13;&#10;&#13;&#10;procedure Band2OnBeforePrint(Sender: TfrxComponent);&#13;&#10;begin&#13;&#10; if not Engine.FinalPass then&#13;&#10; Set('TotalPaginas', (&#60;TotalPaginas&#62; + 1));&#13;&#10;&#13;&#10; if Engine.FinalPass then&#13;&#10; Set('Pagina', (&#60;Pagina&#62; + 1));&#13;&#10;end;&#13;&#10;&#13;&#10;procedure frxReportOnStartReport(Sender: TfrxComponent);&#13;&#10;begin&#13;&#10; Set('Pagina', 0);&#13;&#10; Set('TotalPaginas', 0);&#13;&#10;end;&#13;&#10;&#13;&#10;procedure PageFooter1OnBeforePrint(Sender: TfrxComponent);&#13;&#10;begin&#13;&#10; if Engine.FinalPass&#13;&#10; and (&#60;TotalPaginas&#62; = &#60;Pagina&#62;) then&#13;&#10; begin&#13;&#10; Cuadro.Visible := True;&#13;&#10; eTotal.Visible := True;&#13;&#10; vTotal.Visible := True;&#13;&#10; end&#13;&#10; else&#13;&#10; begin&#13;&#10; Cuadro.Visible := False;&#13;&#10; eTotal.Visible := False;&#13;&#10; vTotal.Visible := False;&#13;&#10; end;&#13;&#10;end;&#13;&#10;&#13;&#10;begin&#13;&#10;&#13;&#10;end." ShowProgress="False" StoreInDFM="False" OnStartReport="frxReportOnStartReport" PropData="044C65667403A90003546F70021008446174617365747301010C3400000020446174615365743D22667278444243616265636572612220446174615365744E616D653D22667278444243616265636572612200010C3400000020446174615365743D226672784442446574616C6C65732220446174615365744E616D653D226672784442446574616C6C6573220000095661726961626C657301010C13000000204E616D653D2220506167696E6163696F6E2200010C0E000000204E616D653D22506167696E612200010C14000000204E616D653D22546F74616C506167696E6173220000055374796C6501010C85000000204E616D653D22436F6E636570746F206E6F726D616C2220436F6C6F723D223533363837303931312220466F6E742E436861727365743D22302220466F6E742E436F6C6F723D222D31363737373230382220466F6E742E4865696768743D222D31322220466F6E742E4E616D653D225461686F6D612220466F6E742E5374796C653D22302200010C87000000204E616D653D22436F6E636570746F20737562746F74616C2220436F6C6F723D223533363837303931312220466F6E742E436861727365743D22302220466F6E742E436F6C6F723D222D31363737373230382220466F6E742E4865696768743D222D31322220466F6E742E4E616D653D225461686F6D612220466F6E742E5374796C653D22312200010C97000000204E616D653D22436162656365726120646520636F6C756D6E612220436F6C6F723D2231353739303332302220466F6E742E436861727365743D22302220466F6E742E436F6C6F723D222D31363737373230382220466F6E742E4865696768743D222D31322220466F6E742E4E616D653D225461686F6D612220466F6E742E5374796C653D223122204672616D652E5479703D2231352200010C85000000204E616D653D22436F6E636570746F20746974756C6F2220436F6C6F723D223533363837303931312220466F6E742E436861727365743D22302220466F6E742E436F6C6F723D222D31363737373230382220466F6E742E4865696768743D222D31332220466F6E742E4E616D653D225461686F6D612220466F6E742E5374796C653D2231220000">
<TfrxDataPage Name="Data" Height="1000" Left="0" Top="0" Width="1000"/>
<TfrxReportPage Name="Page1" Font.Charset="1" Font.Color="0" Font.Height="-13" Font.Name="Arial" Font.Style="1" Orientation="poLandscape" PaperWidth="297" PaperHeight="210" PaperSize="9" LeftMargin="10" RightMargin="10" TopMargin="10" BottomMargin="10" Columns="1" ColumnWidth="210" ColumnPositions.Text="0" PrintOnPreviousPage="True" HGuides.Text="" VGuides.Text="">
<TfrxPageHeader Name="Band2" Height="258,70866142" Left="0" Top="16" Width="1046,92981" OnBeforePrint="Band2OnBeforePrint">
<TfrxMemoView Name="Memo23" Left="3,77953" Top="228,5671" Width="80,88188" Height="26,45669291" ShowHint="False" Color="16777215" Font.Charset="0" Font.Color="-16777208" Font.Height="-12" Font.Name="Tahoma" Font.Style="1" Frame.Color="8421504" Frame.Typ="12" HAlign="haCenter" ParentFont="False" VAlign="vaCenter" Text="Ref. recibo"/>
<TfrxMemoView Name="Memo24" Left="887,95856667" Top="228,5671" Width="158,97124333" Height="26,45669291" ShowHint="False" Color="16777215" Font.Charset="0" Font.Color="-16777208" Font.Height="-12" Font.Name="Tahoma" Font.Style="1" Frame.Color="8421504" Frame.Typ="12" HAlign="haRight" ParentFont="False" VAlign="vaCenter" Text="Importe "/>
<TfrxPictureView Name="Picture1" Left="7,77953" Top="20,22047" Width="160,03598" Height="80,03154" OnBeforePrint="Picture1OnBeforePrint" ShowHint="False" DataField="LOGOTIPO" DataSet="frxDBCabecera" DataSetName="frxDBCabecera" HightQuality="False"/>
<TfrxMemoView Name="DatosEmpresa" Left="166,92919" Top="17,35436" Width="221,41744" Height="80,69295" OnBeforePrint="DatosEmpresaOnBeforePrint" ShowHint="False" Font.Charset="1" Font.Color="0" Font.Height="-11" Font.Name="Tahoma" Font.Style="0" ParentFont="False" Text=""/>
<TfrxShapeView Name="Shape1" Left="7,55906" Top="113,3859" Width="257,00804" Height="94,48825" ShowHint="False" Color="16777215" Frame.Color="8421504" Shape="skRoundRectangle"/>
<TfrxShapeView Name="Shape2" Left="639,181510000002" Top="113,3859" Width="393,07112" Height="94,48825" ShowHint="False" Color="16777215" Frame.Color="8421504" Shape="skRoundRectangle"/>
<TfrxMemoView Name="Memo16" Left="15,11812" Top="116,94496" Width="65,13389" Height="18,89765" ShowHint="False" Font.Charset="1" Font.Color="0" Font.Height="-12" Font.Name="Arial" Font.Style="0" ParentFont="False" Text="Nº remesa:"/>
<TfrxMemoView Name="Memo17" Left="15,11812" Top="162,29932" Width="45,35436" Height="18,89765" ShowHint="False" Font.Charset="1" Font.Color="0" Font.Height="-12" Font.Name="Arial" Font.Style="0" ParentFont="False" Text="Fecha:"/>
<TfrxMemoView Name="Memo18" Left="15,11812" Top="184,9765" Width="60,47248" Height="18,89765" ShowHint="False" Font.Charset="1" Font.Color="0" Font.Height="-12" Font.Name="Arial" Font.Style="0" ParentFont="False" Text="Página nº:"/>
<TfrxMemoView Name="Memo3" Left="303,59462" Top="228,5671" Width="225,94898" Height="26,45669291" ShowHint="False" Color="16777215" Font.Charset="0" Font.Color="-16777208" Font.Height="-12" Font.Name="Tahoma" Font.Style="1" Frame.Color="8421504" Frame.Typ="12" HAlign="haCenter" ParentFont="False" VAlign="vaCenter" Text="Proveedor"/>
<TfrxMemoView Name="Memo4" Left="530,21026667" Top="228,5671" Width="133,41744" Height="26,45669291" ShowHint="False" Color="16777215" Font.Charset="0" Font.Color="-16777208" Font.Height="-12" Font.Name="Tahoma" Font.Style="1" Frame.Color="8421504" Frame.Typ="12" HAlign="haCenter" ParentFont="False" VAlign="vaCenter" Text="NIF / CIF"/>
<TfrxMemoView Name="Memo5" Left="80,03154" Top="116,94496" Width="176,9765" Height="18,89765" ShowHint="False" DataSet="frxDBCabecera" DataSetName="frxDBCabecera" Text="[frxDBCabecera.&#34;REFERENCIA&#34;]"/>
<TfrxMemoView Name="Memo6" Left="60,25201" Top="162,29932" Width="196,75603" Height="18,89765" ShowHint="False" DataSet="frxDBCabecera" DataSetName="frxDBCabecera" Text="[frxDBCabecera.&#34;FECHA_REMESA&#34;]"/>
<TfrxMemoView Name="Memo7" Left="75,37013" Top="184,9765" Width="181,63791" Height="18,89765" ShowHint="False" Text="[&#60;Pagina&#62;] / [&#60;TotalPaginas&#62;]"/>
<TfrxLineView Name="Line1" Left="1046,81911" Top="229,54" Width="0" Height="459,212598425197" ShowHint="False" Frame.Color="8421504" Frame.Typ="1"/>
<TfrxMemoView Name="Memo15" Left="464,18924" Top="18,89765" Width="567,62245" Height="64,25201" ShowHint="False" Font.Charset="1" Font.Color="12632256" Font.Height="-48" Font.Name="Tahoma" Font.Style="1" Frame.Color="14211288" HAlign="haCenter" ParentFont="False" VAlign="vaCenter" Text="REMESA"/>
<TfrxLineView Name="Line2" Left="4" Top="229,54" Width="0" Height="459,212598425197" ShowHint="False" Frame.Color="8421504" Frame.Typ="1"/>
<TfrxLineView Name="Line5" Left="84,58287" Top="228,20666667" Width="0" Height="459,212598425197" ShowHint="False" Frame.Color="8421504" Frame.Typ="1"/>
<TfrxLineView Name="Line4" Left="530,16666667" Top="229,54" Width="0" Height="459,212598425197" ShowHint="False" Frame.Color="8421504" Frame.Typ="1"/>
<TfrxMemoView Name="Memo8" Left="195,86889333" Top="228,66141732" Width="107,33859" Height="26,45669291" ShowHint="False" Color="16777215" Font.Charset="0" Font.Color="-16777208" Font.Height="-12" Font.Name="Tahoma" Font.Style="1" Frame.Color="8421504" Frame.Typ="12" HAlign="haCenter" ParentFont="False" VAlign="vaCenter" Text="Vencimiento"/>
<TfrxLineView Name="Line9" Left="304" Top="228,43568333" Width="0" Height="459,212598425197" ShowHint="False" Frame.Color="8421504" Frame.Typ="1"/>
<TfrxMemoView Name="Memo22" Left="15,11812" Top="139,84261" Width="68,91342" Height="18,89765" ShowHint="False" Font.Charset="1" Font.Color="0" Font.Height="-12" Font.Name="Arial" Font.Style="0" ParentFont="False" Text="Descripción:"/>
<TfrxMemoView Name="Memo25" Left="87,5906" Top="139,84261" Width="169,41744" Height="18,89765" ShowHint="False" DataSet="frxDBCabecera" DataSetName="frxDBCabecera" Text="[frxDBCabecera.&#34;DESCRIPCION&#34;]"/>
<TfrxMemoView Name="Memo19" Left="650,079160000002" Top="139,84261" Width="42,45671" Height="18,89765" ShowHint="False" Font.Charset="1" Font.Color="0" Font.Height="-12" Font.Name="Arial" Font.Style="0" ParentFont="False" Text="Titular:"/>
<TfrxMemoView Name="Memo26" Left="696,094930000002" Top="139,84261" Width="331,93723" Height="18,89765" ShowHint="False" DataSet="frxDBCabecera" DataSetName="frxDBCabecera" Text="[frxDBCabecera.&#34;TITULAR&#34;]"/>
<TfrxMemoView Name="Memo27" Left="650,079160000002" Top="117,16543" Width="176,9765" Height="18,89765" ShowHint="False" DataSet="frxDBCabecera" DataSetName="frxDBCabecera" Font.Charset="1" Font.Color="0" Font.Height="-13" Font.Name="Arial" Font.Style="0" ParentFont="False" Text="Datos de la cuenta"/>
<TfrxMemoView Name="Memo28" Left="650,079160000002" Top="162,51979" Width="75,5906" Height="18,89765" ShowHint="False" Font.Charset="1" Font.Color="0" Font.Height="-12" Font.Name="Arial" Font.Style="0" ParentFont="False" Text="Cód. entidad:"/>
<TfrxMemoView Name="Memo29" Left="729,228820000002" Top="162,51979" Width="53,13389" Height="18,89765" ShowHint="False" DataSet="frxDBCabecera" DataSetName="frxDBCabecera" Text="[frxDBCabecera.&#34;ENTIDAD&#34;]"/>
<TfrxMemoView Name="Memo30" Left="786,142240000002" Top="162,51979" Width="83,14966" Height="18,89765" ShowHint="False" Font.Charset="1" Font.Color="0" Font.Height="-12" Font.Name="Arial" Font.Style="0" ParentFont="False" Text="Cód. sucursal:"/>
<TfrxMemoView Name="Memo31" Left="872,850960000002" Top="162,51979" Width="147,62214" Height="18,89765" ShowHint="False" DataSet="frxDBCabecera" DataSetName="frxDBCabecera" Text="[frxDBCabecera.&#34;SUCURSAL&#34;]"/>
<TfrxMemoView Name="Memo32" Left="650,079160000002" Top="185,19697" Width="26,45671" Height="18,89765" ShowHint="False" Font.Charset="1" Font.Color="0" Font.Height="-12" Font.Name="Arial" Font.Style="0" ParentFont="False" Text="DC:"/>
<TfrxMemoView Name="Memo33" Left="680,094930000002" Top="185,19697" Width="34,23624" Height="18,89765" ShowHint="False" DataSet="frxDBCabecera" DataSetName="frxDBCabecera" Text="[frxDBCabecera.&#34;DC&#34;]"/>
<TfrxMemoView Name="Memo34" Left="786,142240000002" Top="185,19697" Width="83,14966" Height="18,89765" ShowHint="False" Font.Charset="1" Font.Color="0" Font.Height="-12" Font.Name="Arial" Font.Style="0" ParentFont="False" Text="Cód. cuenta:"/>
<TfrxMemoView Name="Memo37" Left="872,850960000002" Top="185,19697" Width="147,62214" Height="18,89765" ShowHint="False" DataSet="frxDBCabecera" DataSetName="frxDBCabecera" Text="[frxDBCabecera.&#34;CUENTA&#34;]"/>
<TfrxMemoView Name="Memo11" Left="663,41775" Top="228,10513333" Width="224,12616" Height="27,2125984251969" ShowHint="False" Color="16777215" Font.Charset="0" Font.Color="-16777208" Font.Height="-12" Font.Name="Tahoma" Font.Style="1" Frame.Color="8421504" Frame.Typ="12" HAlign="haCenter" ParentFont="False" VAlign="vaCenter" Text="Número de cuenta"/>
<TfrxLineView Name="Line7" Left="888,18955" Top="228,7718" Width="0" Height="459,212598425197" ShowHint="False" Frame.Color="8421504" Frame.Typ="1"/>
<TfrxMemoView Name="Memo36" Left="86,26252333" Top="228,66141732" Width="111,11812" Height="26,45669291" ShowHint="False" Color="16777215" Font.Charset="0" Font.Color="-16777208" Font.Height="-12" Font.Name="Tahoma" Font.Style="1" Frame.Color="8421504" Frame.Typ="12" HAlign="haCenter" ParentFont="False" VAlign="vaCenter" Text="Ref. factura prov."/>
<TfrxLineView Name="Line8" Left="195,78478667" Top="229,10235" Width="0" Height="459,212598425197" ShowHint="False" Frame.Color="8421504" Frame.Typ="1"/>
<TfrxLineView Name="Line3" Left="664,55124457" Top="228,87333333" Width="0" Height="459,212598425197" ShowHint="False" Frame.Color="8421504" Frame.Typ="1"/>
</TfrxPageHeader>
<TfrxMasterData Name="BandaDetalles" Height="19,11812" Left="0" Top="335" Width="1046,92981" AllowSplit="True" Columns="1" ColumnWidth="200" ColumnGap="20" DataSet="frxDBDetalles" DataSetName="frxDBDetalles" RowCount="0" Stretched="True">
<TfrxMemoView Name="MemPrecio" Left="548,6640542" Top="2,66666667" Width="109,12204724" Height="15,11811024" ShowHint="False" StretchMode="smMaxHeight" DataSet="frxDBDetalles" DataSetName="frxDBDetalles" DisplayFormat.DecimalSeparator="," Font.Charset="0" Font.Color="-16777208" Font.Height="-11" Font.Name="Tahoma" Font.Style="0" GapX="3" GapY="3" HideZeros="True" LineSpacing="4" ParentFont="False" Text="[frxDBDetalles.&#34;NIF_CIF_PROVEEDOR&#34;]"/>
<TfrxMemoView Name="MemImpTotal" Left="895,18127811" Top="2" Width="147,16535189" Height="15,11811024" ShowHint="False" StretchMode="smMaxHeight" DataSet="frxDBDetalles" DataSetName="frxDBDetalles" DisplayFormat.DecimalSeparator="," DisplayFormat.FormatStr="#,0.00 € " DisplayFormat.Kind="fkNumeric" Font.Charset="0" Font.Color="-16777208" Font.Height="-11" Font.Name="Tahoma" Font.Style="0" GapX="3" GapY="3" HAlign="haRight" LineSpacing="4" ParentFont="False" Text="[frxDBDetalles.&#34;IMPORTE_TOTAL&#34;]"/>
<TfrxMemoView Name="MemCantidad" Left="310,5104279" Top="2" Width="214,33080874" Height="15,11811024" ShowHint="False" StretchMode="smMaxHeight" DataSet="frxDBDetalles" DataSetName="frxDBDetalles" DisplayFormat.DecimalSeparator="," DisplayFormat.FormatStr="#0 " DisplayFormat.Kind="fkNumeric" Font.Charset="0" Font.Color="-16777208" Font.Height="-11" Font.Name="Tahoma" Font.Style="0" GapX="3" GapY="3" HideZeros="True" LineSpacing="4" ParentFont="False" Text="[frxDBDetalles.&#34;NOMBRE_PROVEEDOR&#34;]"/>
<TfrxMemoView Name="Memo21" Left="213,94372333" Top="2" Width="84,44094" Height="15,11812" ShowHint="False" DataSet="frxDBDetalles" DataSetName="frxDBDetalles" Font.Charset="1" Font.Color="0" Font.Height="-11" Font.Name="Tahoma" Font.Style="0" ParentFont="False" Text="[frxDBDetalles.&#34;FECHA_VENCIMIENTO&#34;]"/>
<TfrxMemoView Name="Memo2" Left="9,96444" Top="2" Width="61,32282" Height="15,11812" ShowHint="False" DataSet="frxDBDetalles" DataSetName="frxDBDetalles" Font.Charset="1" Font.Color="0" Font.Height="-11" Font.Name="Tahoma" Font.Style="0" ParentFont="False" Text="[frxDBDetalles.&#34;REFERENCIA&#34;]"/>
<TfrxMemoView Name="Memo12" Left="696,10018667" Top="2,44619667000001" Width="29,75191724" Height="15,11811024" ShowHint="False" StretchMode="smMaxHeight" DataSet="frxDBDetalles" DataSetName="frxDBDetalles" DisplayFormat.DecimalSeparator="," Font.Charset="0" Font.Color="-16777208" Font.Height="-11" Font.Name="Tahoma" Font.Style="0" GapX="3" GapY="3" HideZeros="True" LineSpacing="4" ParentFont="False" Text="[frxDBDetalles.&#34;ENTIDAD_PROVEEDOR&#34;]"/>
<TfrxMemoView Name="Memo14" Left="731,89548667" Top="2,66666666999998" Width="29,75191724" Height="15,11811024" ShowHint="False" StretchMode="smMaxHeight" DataSet="frxDBDetalles" DataSetName="frxDBDetalles" DisplayFormat.DecimalSeparator="," DisplayFormat.FormatStr="#,0.00 € " Font.Charset="0" Font.Color="-16777208" Font.Height="-11" Font.Name="Tahoma" Font.Style="0" GapX="3" GapY="3" HideZeros="True" LineSpacing="4" ParentFont="False" Text="[frxDBDetalles.&#34;SUCURSAL_PROVEEDOR&#34;]"/>
<TfrxMemoView Name="Memo20" Left="766,79839333" Top="2,66666665999998" Width="18,41332724" Height="15,11811024" ShowHint="False" StretchMode="smMaxHeight" DataSet="frxDBDetalles" DataSetName="frxDBDetalles" DisplayFormat.DecimalSeparator="," DisplayFormat.FormatStr="#,0.00 € " Font.Charset="0" Font.Color="-16777208" Font.Height="-11" Font.Name="Tahoma" Font.Style="0" GapX="3" GapY="3" HideZeros="True" LineSpacing="4" ParentFont="False" Text="[frxDBDetalles.&#34;DC_PROVEEDOR&#34;]"/>
<TfrxMemoView Name="Memo35" Left="789,92177" Top="2,66666666999998" Width="82,66533724" Height="15,11811024" ShowHint="False" StretchMode="smMaxHeight" DataSet="frxDBDetalles" DataSetName="frxDBDetalles" DisplayFormat.DecimalSeparator="," DisplayFormat.FormatStr="#,0.00 € " Font.Charset="0" Font.Color="-16777208" Font.Height="-11" Font.Name="Tahoma" Font.Style="0" GapX="3" GapY="3" HideZeros="True" LineSpacing="4" ParentFont="False" Text="[frxDBDetalles.&#34;CUENTA_PROVEEDOR&#34;]"/>
<TfrxMemoView Name="Memo39" Left="88,92919" Top="2" Width="106,67718" Height="15,11812" ShowHint="False" DataSet="frxDBDetalles" DataSetName="frxDBDetalles" Font.Charset="1" Font.Color="0" Font.Height="-11" Font.Name="Tahoma" Font.Style="0" ParentFont="False" Text="[frxDBDetalles.&#34;REFERENCIA_FACTURA_PROV&#34;]"/>
</TfrxMasterData>
<TfrxPageFooter Name="PageFooter1" Height="30,23624" Left="0" Top="414" Width="1046,92981" OnBeforePrint="PageFooter1OnBeforePrint">
<TfrxShapeView Name="Cuadro" Left="3,77953" Top="0" Width="1042,81911" Height="28,88188" ShowHint="False" Color="16777215" Frame.Color="8421504"/>
<TfrxMemoView Name="vTotal" Left="923,93723" Top="1,10235" Width="117,63791" Height="22,89765" ShowHint="False" DataSet="frxDBCabecera" DataSetName="frxDBCabecera" DisplayFormat.DecimalSeparator="," DisplayFormat.FormatStr="#,0.00 €" DisplayFormat.Kind="fkNumeric" Font.Charset="1" Font.Color="0" Font.Height="-13" Font.Name="Tahoma" Font.Style="1" HAlign="haRight" ParentFont="False" VAlign="vaCenter" Text="[frxDBCabecera.&#34;IMPORTE_TOTAL&#34;]"/>
<TfrxMemoView Name="eTotal" Left="784,09462" Top="7,77953000000002" Width="132" Height="16" ShowHint="False" Font.Charset="1" Font.Color="0" Font.Height="-13" Font.Name="Tahoma" Font.Style="1" HAlign="haRight" ParentFont="False" VAlign="vaCenter" Text="Total remesa:"/>
<TfrxLineView Name="Line6" Left="3,77953" Top="0" Width="1043,14960629921" Height="0" ShowHint="False" Frame.Typ="4"/>
</TfrxPageFooter>
</TfrxReportPage>
</TfrxReport>

61
Source/Informes/9/InformeIVAClientes.fr3 Normal file
View File

@ -0,0 +1,61 @@
<?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="40617,5330429051" 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="044C65667403910003546F70021008446174617365747301010C5000000020446174615365743D226672784442496E666F726D654C69737461646F46616374757261732220446174615365744E616D653D226672784442496E666F726D654C69737461646F46616374757261732200010C5E00000020446174615365743D226672784442496E666F726D654C69737461646F4661637475726173526573756D656E2220446174615365744E616D653D226672784442496E666F726D654C69737461646F4661637475726173526573756D656E220000095661726961626C657301010C13000000204E616D653D2220506172616D6574726F732200010C17000000204E616D653D22546578746F506172616D6574726F73220000055374796C650100">
<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="">
<TfrxPageHeader Name="Band1" Height="136,10235" Left="0" Top="16" Width="1009,13451" OnBeforePrint="Band1OnBeforePrint">
<TfrxPictureView Name="Logotipo" Left="0" Top="37,10235" Width="80" Height="88" ShowHint="False" HightQuality="False"/>
<TfrxMemoView Name="DatosEmpresa" Left="80" Top="37,10235" Width="232" Height="88" ShowHint="False" StretchMode="smMaxHeight" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="0" Font.Height="-11" Font.Name="Tahoma" Font.Style="0" ParentFont="False" Text=""/>
<TfrxLineView Name="Line1" Align="baLeft" Left="0" Top="129,10235" Width="312" Height="0" ShowHint="False" Frame.Color="32768" Frame.Typ="4" Frame.Width="4"/>
<TfrxShapeView Name="Shape5" Left="511" Top="3" Width="495" Height="129" ShowHint="False" Color="13434828" Shape="skRoundRectangle"/>
<TfrxMemoView Name="NombreCliente" Left="519,85807" Top="12" Width="478" Height="19" ShowHint="False" StretchMode="smMaxHeight" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="0" Font.Height="-13" Font.Name="Tahoma" Font.Style="1" HAlign="haRight" ParentFont="False" Text="LISTADO DE IVA DE FACTURAS DE CLIENTE"/>
<TfrxMemoView Name="Memo3" Left="519,85807" Top="33,89765" Width="478" Height="91" ShowHint="False" StretchMode="smMaxHeight" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="0" Font.Height="-12" Font.Name="Tahoma" Font.Style="0" HAlign="haRight" ParentFont="False" Text="Fecha del listado: [&#60;Date&#62;] - Página [Page#] de [TotalPages#]&#13;&#10;[TextoParametros]"/>
</TfrxPageHeader>
<TfrxPageFooter Name="" Height="23,77953" Left="0" Top="552" Width="1009,13451" PrintOnLastPage="False">
<TfrxMemoView Name="mContinua" Left="925,98485" Top="4,77953" Width="81,08714" Height="16,77953" OnBeforePrint="mContinuaOnBeforePrint" ShowHint="False" StretchMode="smMaxHeight" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="16384" Font.Height="-12" Font.Name="Tahoma" Font.Style="0" HAlign="haRight" ParentFont="False" Text="Continúa ..."/>
</TfrxPageFooter>
<TfrxGroupHeader Name="" Height="40" Left="0" Restrictions="2" Top="212" Width="1009,13451" Condition="frxDBInformeListadoFacturas.&#34;MES&#34;" ReprintOnNewPage="True">
<TfrxMemoView Name="Memo27" Left="0" Top="25" Width="88,77953" Height="15" ShowHint="False" Color="13434828" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="0" Font.Height="-11" Font.Name="Tahoma" Font.Style="1" Frame.Typ="15" ParentFont="False" VAlign="vaCenter" Text="Nº factura"/>
<TfrxMemoView Name="Memo28" Left="88,77953" Top="25" Width="463,7480315" Height="15" ShowHint="False" Color="13434828" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="0" Font.Height="-11" Font.Name="Tahoma" Font.Style="1" Frame.Typ="15" ParentFont="False" VAlign="vaCenter" Text="Cliente"/>
<TfrxMemoView Name="Memo49" Left="552,5275615" Top="25" Width="81,33859" Height="15" ShowHint="False" Color="13434828" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="0" Font.Height="-11" Font.Name="Tahoma" Font.Style="1" Frame.Typ="15" ParentFont="False" VAlign="vaCenter" Text="NIF/CIF"/>
<TfrxMemoView Name="Memo50" Left="726,5433315" Top="25" Width="95" Height="15" ShowHint="False" Color="13434828" DisplayFormat.DecimalSeparator="," 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="Base imponible"/>
<TfrxMemoView Name="Memo51" Left="821,5433315" Top="25" Width="95" Height="15" ShowHint="False" Color="13434828" DisplayFormat.DecimalSeparator="," 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="Importe IVA"/>
<TfrxMemoView Name="Memo52" Left="916,78742599" Top="25" Width="95" Height="15" ShowHint="False" Color="13434828" DisplayFormat.DecimalSeparator="," 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="Importe total"/>
<TfrxMemoView Name="Memo8" Left="633,8661515" Top="25" Width="92,67718" Height="15" ShowHint="False" Color="13434828" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="0" Font.Height="-11" Font.Name="Tahoma" Font.Style="1" Frame.Typ="15" ParentFont="False" VAlign="vaCenter" Text="Fecha"/>
<TfrxMemoView Name="Memo7" Left="0" Top="3,77953" Width="485,37013" Height="13" ShowHint="False" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="16384" Font.Height="-12" Font.Name="Tahoma" Font.Style="1" Frame.Color="8421504" ParentFont="False" Text="[frxDBInformeListadoFacturas.&#34;TITULO&#34;]"/>
</TfrxGroupHeader>
<TfrxMasterData Name="DatosMaestros1" Height="17,00787402" Left="0" Top="272" Width="1009,13451" Columns="1" ColumnWidth="200" ColumnGap="20" DataSet="frxDBInformeListadoFacturas" DataSetName="frxDBInformeListadoFacturas" RowCount="0" Stretched="True">
<TfrxMemoView Name="Memo18" Left="0" Top="0" Width="88,78" 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=" [frxDBInformeListadoFacturas.&#34;REFERENCIA&#34;]"/>
<TfrxMemoView Name="Memo4" Left="88,78" Top="0" Width="463,75" 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=" [frxDBInformeListadoFacturas.&#34;NOMBRE&#34;]"/>
<TfrxMemoView Name="Memo20" Left="552,53" Top="0" Width="81,34" 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=" [frxDBInformeListadoFacturas.&#34;NIF_CIF&#34;]"/>
<TfrxMemoView Name="Memo21" Left="633,87" Top="0" Width="92,68" 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=" [frxDBInformeListadoFacturas.&#34;FECHA_FACTURA&#34;]"/>
<TfrxMemoView Name="Memo29" Left="726,55" Top="0" Width="95" 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" ParentFont="False" Text="[frxDBInformeListadoFacturas.&#34;BASE_IMPONIBLE&#34;]"/>
<TfrxMemoView Name="Memo30" Left="821,55" Top="0" Width="95" 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" ParentFont="False" Text="[frxDBInformeListadoFacturas.&#34;IMPORTE_IVA&#34;]"/>
<TfrxMemoView Name="Memo31" Left="916,55" Top="0" Width="95" 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" ParentFont="False" Text="[frxDBInformeListadoFacturas.&#34;IMPORTE_TOTAL&#34;]"/>
</TfrxMasterData>
<TfrxGroupFooter Name="" Height="16" Left="0" Top="309" Width="1009,13451">
<TfrxMemoView Name="Memo6" Left="916" Top="0,37774772" Width="95" Height="16" ShowHint="False" StretchMode="smMaxHeight" Color="13434828" DisplayFormat.DecimalSeparator="," DisplayFormat.FormatStr="#,0.00 €" 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;frxDBInformeListadoFacturas.&#34;IMPORTE_TOTAL&#34;&#62;,DatosMaestros1)]"/>
<TfrxMemoView Name="Memo14" Left="821" Top="0,37774772" Width="95" Height="16" ShowHint="False" StretchMode="smMaxHeight" Color="13434828" DisplayFormat.DecimalSeparator="," DisplayFormat.FormatStr="#,0.00 €" 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;frxDBInformeListadoFacturas.&#34;IMPORTE_IVA&#34;&#62;,DatosMaestros1)]"/>
<TfrxMemoView Name="Memo15" Left="726" Top="0,37774772" Width="95" Height="16" ShowHint="False" StretchMode="smMaxHeight" Color="13434828" DisplayFormat.DecimalSeparator="," DisplayFormat.FormatStr="#,0.00 €" 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;frxDBInformeListadoFacturas.&#34;BASE_IMPONIBLE&#34;&#62;,DatosMaestros1)]"/>
<TfrxMemoView Name="Memo53" Left="0" Top="0,37774772" Width="726" Height="16" ShowHint="False" StretchMode="smMaxHeight" Color="13434828" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="0" Font.Height="-11" Font.Name="Tahoma" Font.Style="1" Frame.Typ="13" HAlign="haRight" ParentFont="False" VAlign="vaCenter" Text="TOTALES [frxDBInformeListadoFacturas.&#34;TITULO&#34;]:"/>
</TfrxGroupFooter>
<TfrxHeader Name="Header1" Height="75" Left="0" Top="345" Width="1009,13451">
<TfrxMemoView Name="Memo13" Left="0" Top="60" Width="383,62987" Height="15" ShowHint="False" Color="13434828" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="0" Font.Height="-11" Font.Name="Tahoma" Font.Style="1" Frame.Typ="15" ParentFont="False" VAlign="vaCenter" Text="Resumen por meses de facturas de cliente"/>
<TfrxMemoView Name="Memo16" Left="383,62987" Top="60" Width="95" Height="15" ShowHint="False" Color="13434828" DisplayFormat.DecimalSeparator="," 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="Base imponible"/>
<TfrxMemoView Name="Memo17" Left="478,62987" Top="60" Width="95" Height="15" ShowHint="False" Color="13434828" DisplayFormat.DecimalSeparator="," 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="Importe IVA"/>
<TfrxMemoView Name="Memo22" Left="573,62987" Top="60" Width="95" Height="15" ShowHint="False" Color="13434828" DisplayFormat.DecimalSeparator="," 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="Importe total"/>
<TfrxMemoView Name="Memo23" Left="0" Top="26" Width="485,37013" Height="15,11811024" ShowHint="False" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="16384" Font.Height="-12" Font.Name="Tahoma" Font.Style="1" Frame.Color="8421504" ParentFont="False" Text="Resumen por meses de las facturas de cliente"/>
</TfrxHeader>
<TfrxReportSummary Name="ReportSummary1" Height="15" Left="0" Top="517" Width="1009,13451">
<TfrxMemoView Name="Memo24" Align="baLeft" Left="0" Top="0" Width="383,62987" Height="15" ShowHint="False" Color="13434828" DisplayFormat.DecimalSeparator="," 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="Total: "/>
<TfrxMemoView Name="Memo25" Align="baLeft" Left="383,62987" Top="0" Width="95" Height="15" ShowHint="False" Color="13434828" 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;frxDBInformeListadoFacturasResumen.&#34;BASE_IMPONIBLE&#34;&#62;,DatosMaestros2)]"/>
<TfrxMemoView Name="Memo26" Align="baLeft" Left="478,62987" Top="0" Width="95" Height="15" ShowHint="False" Color="13434828" 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;frxDBInformeListadoFacturasResumen.&#34;IMPORTE_IVA&#34;&#62;,DatosMaestros2)]"/>
<TfrxMemoView Name="Memo32" Align="baLeft" Left="573,62987" Top="0" Width="95" Height="15" ShowHint="False" Color="13434828" 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;frxDBInformeListadoFacturasResumen.&#34;IMPORTE_TOTAL&#34;&#62;,DatosMaestros2)]"/>
</TfrxReportSummary>
<TfrxMasterData Name="DatosMaestros2" Height="17" Left="0" Top="440" Width="1009,13451" ColumnWidth="0" ColumnGap="0" DataSet="frxDBInformeListadoFacturasResumen" DataSetName="frxDBInformeListadoFacturasResumen" RowCount="0">
<TfrxMemoView Name="Memo9" Left="0" Top="0" Width="383,63" Height="17,00787402" ShowHint="False" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="16384" Font.Height="-12" Font.Name="Tahoma" Font.Style="1" Frame.Typ="15" ParentFont="False" Text="[frxDBInformeListadoFacturasResumen.&#34;TITULO&#34;]"/>
<TfrxMemoView Name="Memo10" Left="383,63" Top="0" Width="95" 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" ParentFont="False" Text="[frxDBInformeListadoFacturasResumen.&#34;BASE_IMPONIBLE&#34;]"/>
<TfrxMemoView Name="Memo11" Left="478,63" Top="0" Width="95" 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" ParentFont="False" Text="[frxDBInformeListadoFacturasResumen.&#34;IMPORTE_IVA&#34;]"/>
<TfrxMemoView Name="Memo12" Left="573,63" Top="0" Width="95" 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" ParentFont="False" Text="[frxDBInformeListadoFacturasResumen.&#34;IMPORTE_TOTAL&#34;]"/>
</TfrxMasterData>
</TfrxReportPage>
</TfrxReport>

65
Source/Informes/9/InformeIVAClientesDesglosado.fr3 Normal file
View File

@ -0,0 +1,65 @@
<?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="40617,5332226505" 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="044C65667403910003546F70021008446174617365747301010C5000000020446174615365743D226672784442496E666F726D654C69737461646F46616374757261732220446174615365744E616D653D226672784442496E666F726D654C69737461646F46616374757261732200010C5E00000020446174615365743D226672784442496E666F726D654C69737461646F4661637475726173526573756D656E2220446174615365744E616D653D226672784442496E666F726D654C69737461646F4661637475726173526573756D656E220000095661726961626C657301010C13000000204E616D653D2220506172616D6574726F732200010C17000000204E616D653D22546578746F506172616D6574726F73220000055374796C650100">
<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="">
<TfrxPageHeader Name="Band1" Height="136,10235" Left="0" Top="16" Width="1009,13451" OnBeforePrint="Band1OnBeforePrint">
<TfrxPictureView Name="Logotipo" Left="0" Top="37,10235" Width="80" Height="88" ShowHint="False" HightQuality="False"/>
<TfrxMemoView Name="DatosEmpresa" Left="81" Top="37,10235" Width="232" Height="88" ShowHint="False" StretchMode="smMaxHeight" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="0" Font.Height="-11" Font.Name="Tahoma" Font.Style="0" ParentFont="False" Text=""/>
<TfrxLineView Name="Line1" Align="baLeft" Left="0" Top="129,10235" Width="312" Height="0" ShowHint="False" Frame.Color="32768" Frame.Typ="4" Frame.Width="4"/>
<TfrxShapeView Name="Shape5" Left="512" Top="3" Width="495" Height="129" ShowHint="False" Color="13434828" Shape="skRoundRectangle"/>
<TfrxMemoView Name="NombreCliente" Left="520,85807" Top="12" Width="478" Height="19" ShowHint="False" StretchMode="smMaxHeight" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="0" Font.Height="-13" Font.Name="Tahoma" Font.Style="1" HAlign="haRight" ParentFont="False" Text="LISTADO DE IVA DE FACTURAS DE CLIENTE"/>
<TfrxMemoView Name="Memo3" Left="520,85807" Top="33,89765" Width="478" Height="91" ShowHint="False" StretchMode="smMaxHeight" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="0" Font.Height="-12" Font.Name="Tahoma" Font.Style="0" HAlign="haRight" ParentFont="False" Text="Fecha del listado: [&#60;Date&#62;] - Página [Page#] de [TotalPages#]&#13;&#10;[TextoParametros]"/>
</TfrxPageHeader>
<TfrxPageFooter Name="" Height="23,77953" Left="0" Top="637" Width="1009,13451" PrintOnLastPage="False">
<TfrxMemoView Name="mContinua" Left="925,98485" Top="4,77953" Width="81,08714" Height="16,77953" OnBeforePrint="mContinuaOnBeforePrint" ShowHint="False" StretchMode="smMaxHeight" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="16384" Font.Height="-12" Font.Name="Tahoma" Font.Style="0" HAlign="haRight" ParentFont="False" Text="Continúa ..."/>
</TfrxPageFooter>
<TfrxGroupHeader Name="" Height="40" Left="0" Restrictions="2" Top="257" Width="1009,13451" Condition="frxDBInformeListadoFacturas.&#34;NOMBRE&#34;" ReprintOnNewPage="True">
<TfrxMemoView Name="Memo27" Left="0" Top="25" Width="88,77953" Height="15" ShowHint="False" Color="13434828" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="0" Font.Height="-11" Font.Name="Tahoma" Font.Style="1" Frame.Typ="15" ParentFont="False" VAlign="vaCenter" Text="Nº factura"/>
<TfrxMemoView Name="Memo28" Left="88,77953" Top="25" Width="463,7480315" Height="15" ShowHint="False" Color="13434828" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="0" Font.Height="-11" Font.Name="Tahoma" Font.Style="1" Frame.Typ="15" ParentFont="False" VAlign="vaCenter" Text="Cliente"/>
<TfrxMemoView Name="Memo49" Left="552,5275615" Top="25" Width="81,33859" Height="15" ShowHint="False" Color="13434828" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="0" Font.Height="-11" Font.Name="Tahoma" Font.Style="1" Frame.Typ="15" ParentFont="False" VAlign="vaCenter" Text="NIF/CIF"/>
<TfrxMemoView Name="Memo50" Left="726,5433315" Top="25" Width="95" Height="15" ShowHint="False" Color="13434828" DisplayFormat.DecimalSeparator="," 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="Base imponible"/>
<TfrxMemoView Name="Memo51" Left="821,5433315" Top="25" Width="95" Height="15" ShowHint="False" Color="13434828" DisplayFormat.DecimalSeparator="," 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="Importe IVA"/>
<TfrxMemoView Name="Memo52" Left="916,78742599" Top="25" Width="95" Height="15" ShowHint="False" Color="13434828" DisplayFormat.DecimalSeparator="," 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="Importe total"/>
<TfrxMemoView Name="Memo8" Left="633,8661515" Top="25" Width="92,67718" Height="15" ShowHint="False" Color="13434828" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="0" Font.Height="-11" Font.Name="Tahoma" Font.Style="1" Frame.Typ="15" ParentFont="False" VAlign="vaCenter" Text="Fecha"/>
<TfrxMemoView Name="Memo7" Left="0" Top="2,77953" Width="485,37013" Height="15" ShowHint="False" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="16384" Font.Height="-12" Font.Name="Tahoma" Font.Style="1" Frame.Color="8421504" ParentFont="False" Text="[frxDBInformeListadoFacturas.&#34;NOMBRE&#34;]"/>
</TfrxGroupHeader>
<TfrxMasterData Name="DatosMaestros1" Height="17,00787402" Left="0" Top="317" Width="1009,13451" Columns="1" ColumnWidth="200" ColumnGap="20" DataSet="frxDBInformeListadoFacturas" DataSetName="frxDBInformeListadoFacturas" RowCount="0" Stretched="True">
<TfrxMemoView Name="Memo18" Left="0" Top="0" Width="88,78" 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=" [frxDBInformeListadoFacturas.&#34;REFERENCIA&#34;]"/>
<TfrxMemoView Name="Memo4" Left="88,78" Top="0" Width="463,75" 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=" [frxDBInformeListadoFacturas.&#34;NOMBRE&#34;]"/>
<TfrxMemoView Name="Memo20" Left="552,53" Top="0" Width="81,34" 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=" [frxDBInformeListadoFacturas.&#34;NIF_CIF&#34;]"/>
<TfrxMemoView Name="Memo21" Left="633,87" Top="0" Width="92,68" 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=" [frxDBInformeListadoFacturas.&#34;FECHA_FACTURA&#34;]"/>
<TfrxMemoView Name="Memo29" Left="726,55" Top="0" Width="95" 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" ParentFont="False" Text="[frxDBInformeListadoFacturas.&#34;BASE_IMPONIBLE&#34;]"/>
<TfrxMemoView Name="Memo30" Left="821,55" Top="0" Width="95" 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" ParentFont="False" Text="[frxDBInformeListadoFacturas.&#34;IMPORTE_IVA&#34;]"/>
<TfrxMemoView Name="Memo31" Left="916,55" Top="0" Width="95" 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" ParentFont="False" Text="[frxDBInformeListadoFacturas.&#34;IMPORTE_TOTAL&#34;]"/>
</TfrxMasterData>
<TfrxGroupFooter Name="" Height="16" Left="0" Top="354" Width="1009,13451">
<TfrxMemoView Name="Memo6" Left="916" Top="0,37774772" Width="95" Height="16" ShowHint="False" StretchMode="smMaxHeight" Color="13434828" DisplayFormat.DecimalSeparator="," DisplayFormat.FormatStr="#,0.00 €" 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;frxDBInformeListadoFacturas.&#34;IMPORTE_TOTAL&#34;&#62;,DatosMaestros1)]"/>
<TfrxMemoView Name="Memo14" Left="821" Top="0,37774772" Width="95" Height="16" ShowHint="False" StretchMode="smMaxHeight" Color="13434828" DisplayFormat.DecimalSeparator="," DisplayFormat.FormatStr="#,0.00 €" 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;frxDBInformeListadoFacturas.&#34;IMPORTE_IVA&#34;&#62;,DatosMaestros1)]"/>
<TfrxMemoView Name="Memo15" Left="726" Top="0,37774772" Width="95" Height="16" ShowHint="False" StretchMode="smMaxHeight" Color="13434828" DisplayFormat.DecimalSeparator="," DisplayFormat.FormatStr="#,0.00 €" 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;frxDBInformeListadoFacturas.&#34;BASE_IMPONIBLE&#34;&#62;,DatosMaestros1)]"/>
<TfrxMemoView Name="Memo53" Left="0" Top="0,37774772" Width="726" Height="16" ShowHint="False" StretchMode="smMaxHeight" Color="13434828" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="0" Font.Height="-11" Font.Name="Tahoma" Font.Style="1" Frame.Typ="13" HAlign="haRight" ParentFont="False" VAlign="vaCenter" Text="TOTALES [frxDBInformeListadoFacturas.&#34;TITULO&#34;]:"/>
</TfrxGroupFooter>
<TfrxHeader Name="Header1" Height="75" Left="0" Top="430" Width="1009,13451">
<TfrxMemoView Name="Memo13" Left="0" Top="60" Width="383,62987" Height="15" ShowHint="False" Color="13434828" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="0" Font.Height="-11" Font.Name="Tahoma" Font.Style="1" Frame.Typ="15" ParentFont="False" VAlign="vaCenter" Text="Resumen por meses de facturas de cliente"/>
<TfrxMemoView Name="Memo16" Left="383,62987" Top="60" Width="95" Height="15" ShowHint="False" Color="13434828" DisplayFormat.DecimalSeparator="," 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="Base imponible"/>
<TfrxMemoView Name="Memo17" Left="478,62987" Top="60" Width="95" Height="15" ShowHint="False" Color="13434828" DisplayFormat.DecimalSeparator="," 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="Importe IVA"/>
<TfrxMemoView Name="Memo22" Left="573,62987" Top="60" Width="95" Height="15" ShowHint="False" Color="13434828" DisplayFormat.DecimalSeparator="," 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="Importe total"/>
<TfrxMemoView Name="Memo23" Left="0" Top="26" Width="485,37013" Height="15,11811024" ShowHint="False" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="16384" Font.Height="-12" Font.Name="Tahoma" Font.Style="1" Frame.Color="8421504" ParentFont="False" Text="Resumen por meses de las facturas de cliente"/>
</TfrxHeader>
<TfrxReportSummary Name="ReportSummary1" Height="15" Left="0" Top="602" Width="1009,13451">
<TfrxMemoView Name="Memo24" Align="baLeft" Left="0" Top="0" Width="383,62987" Height="15" ShowHint="False" Color="13434828" DisplayFormat.DecimalSeparator="," 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="Total: "/>
<TfrxMemoView Name="Memo25" Align="baLeft" Left="383,62987" Top="0" Width="95" Height="15" ShowHint="False" Color="13434828" 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;frxDBInformeListadoFacturasResumen.&#34;BASE_IMPONIBLE&#34;&#62;,DatosMaestros2)]"/>
<TfrxMemoView Name="Memo26" Align="baLeft" Left="478,62987" Top="0" Width="95" Height="15" ShowHint="False" Color="13434828" 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;frxDBInformeListadoFacturasResumen.&#34;IMPORTE_IVA&#34;&#62;,DatosMaestros2)]"/>
<TfrxMemoView Name="Memo32" Align="baLeft" Left="573,62987" Top="0" Width="95" Height="15" ShowHint="False" Color="13434828" 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;frxDBInformeListadoFacturasResumen.&#34;IMPORTE_TOTAL&#34;&#62;,DatosMaestros2)]"/>
</TfrxReportSummary>
<TfrxMasterData Name="DatosMaestros2" Height="17" Left="0" Top="525" Width="1009,13451" ColumnWidth="0" ColumnGap="0" DataSet="frxDBInformeListadoFacturasResumen" DataSetName="frxDBInformeListadoFacturasResumen" RowCount="0">
<TfrxMemoView Name="Memo9" Left="0" Top="0" Width="383,63" Height="17,00787402" ShowHint="False" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="16384" Font.Height="-12" Font.Name="Tahoma" Font.Style="1" Frame.Typ="15" ParentFont="False" Text="[frxDBInformeListadoFacturasResumen.&#34;TITULO&#34;]"/>
<TfrxMemoView Name="Memo10" Left="383,63" Top="0" Width="95" 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" ParentFont="False" Text="[frxDBInformeListadoFacturasResumen.&#34;BASE_IMPONIBLE&#34;]"/>
<TfrxMemoView Name="Memo11" Left="478,63" Top="0" Width="95" 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" ParentFont="False" Text="[frxDBInformeListadoFacturasResumen.&#34;IMPORTE_IVA&#34;]"/>
<TfrxMemoView Name="Memo12" Left="573,63" Top="0" Width="95" 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" ParentFont="False" Text="[frxDBInformeListadoFacturasResumen.&#34;IMPORTE_TOTAL&#34;]"/>
</TfrxMasterData>
<TfrxGroupHeader Name="GroupHeader1" Height="25" Left="0" Top="212" Width="1009,13451" Condition="frxDBInformeListadoFacturas.&#34;MES&#34;">
<TfrxMemoView Name="Memo1" Left="0" Top="4" Width="485,37013" Height="18" ShowHint="False" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="16384" Font.Height="-12" Font.Name="Tahoma" Font.Style="1" Frame.Color="8421504" ParentFont="False" Text="[frxDBInformeListadoFacturas.&#34;TITULO&#34;]"/>
</TfrxGroupHeader>
<TfrxGroupFooter Name="GroupFooter1" Height="20" Left="0" Top="390" Width="1009,13451"/>
</TfrxReportPage>
</TfrxReport>

62
Source/Informes/9/InformeIVAProveedores.fr3 Normal file
View File

@ -0,0 +1,62 @@
<?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="40617,5334004051" 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="044C65667403910003546F70021008446174617365747301010C5000000020446174615365743D226672784442496E666F726D654C69737461646F46616374757261732220446174615365744E616D653D226672784442496E666F726D654C69737461646F46616374757261732200010C5E00000020446174615365743D226672784442496E666F726D654C69737461646F4661637475726173526573756D656E2220446174615365744E616D653D226672784442496E666F726D654C69737461646F4661637475726173526573756D656E220000095661726961626C657301010C13000000204E616D653D2220506172616D6574726F732200010C35000000204E616D653D22546578746F506172616D6574726F73222056616C75653D22262336303B4665636861496E6963696F262336323B220000055374796C650100">
<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="">
<TfrxPageHeader Name="Band1" Height="136,10235" Left="0" Top="16" Width="1009,13451" OnBeforePrint="Band1OnBeforePrint">
<TfrxShapeView Name="Shape5" Left="511,02381" Top="26,10235" Width="495" Height="99" ShowHint="False" Color="13434828" Shape="skRoundRectangle"/>
<TfrxPictureView Name="Logotipo" Left="0" Top="37,10235" Width="80" Height="88" ShowHint="False" HightQuality="False"/>
<TfrxMemoView Name="DatosEmpresa" Left="80" Top="37,10235" Width="232" Height="88" ShowHint="False" StretchMode="smMaxHeight" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="0" Font.Height="-11" Font.Name="Tahoma" Font.Style="0" ParentFont="False" Text=""/>
<TfrxMemoView Name="NombreCliente" Left="517,32282" Top="33,10235" Width="481,45671" Height="20" ShowHint="False" StretchMode="smMaxHeight" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="0" Font.Height="-13" Font.Name="Tahoma" Font.Style="1" HAlign="haRight" ParentFont="False" Text="LISTADO DE IVA DE FACTURAS DE PROVEEDOR"/>
<TfrxLineView Name="Line1" Align="baLeft" Left="0" Top="129,10235" Width="312" Height="0" ShowHint="False" Frame.Color="32768" Frame.Typ="4" Frame.Width="4"/>
<TfrxMemoView Name="Memo3" Left="516" Top="59" Width="483" Height="57" ShowHint="False" StretchMode="smMaxHeight" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="0" Font.Height="-12" Font.Name="Tahoma" Font.Style="0" HAlign="haRight" ParentFont="False" Text="Fecha del listado: [&#60;Date&#62;] - Página [Page#] de [TotalPages#]&#13;&#10;[TextoParametros]"/>
</TfrxPageHeader>
<TfrxPageFooter Name="" Height="23,77953" Left="0" Top="558" Width="1009,13451" PrintOnLastPage="False">
<TfrxMemoView Name="mContinua" Left="925,98485" Top="4,77953" Width="81,08714" Height="16,77953" OnBeforePrint="mContinuaOnBeforePrint" ShowHint="False" StretchMode="smMaxHeight" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="16384" Font.Height="-12" Font.Name="Tahoma" Font.Style="0" HAlign="haRight" ParentFont="False" Text="Continúa ..."/>
</TfrxPageFooter>
<TfrxGroupHeader Name="" Height="40" Left="0" Restrictions="2" Top="212" Width="1009,13451" Condition="frxDBInformeListadoFacturas.&#34;MES&#34;" ReprintOnNewPage="True">
<TfrxMemoView Name="Memo27" Left="0" Top="25" Width="88,77953" Height="15" ShowHint="False" Color="13434828" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="0" Font.Height="-11" Font.Name="Tahoma" Font.Style="1" Frame.Typ="15" ParentFont="False" VAlign="vaCenter" Text="Nº factura"/>
<TfrxMemoView Name="Memo28" Left="87" Top="25" Width="463,7480315" Height="15" ShowHint="False" Color="13434828" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="0" Font.Height="-11" Font.Name="Tahoma" Font.Style="1" Frame.Typ="15" ParentFont="False" VAlign="vaCenter" Text="Proveedor"/>
<TfrxMemoView Name="Memo49" Left="550,677165354331" Top="25" Width="81,33859" Height="15" ShowHint="False" Color="13434828" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="0" Font.Height="-11" Font.Name="Tahoma" Font.Style="1" Frame.Typ="15" ParentFont="False" VAlign="vaCenter" Text="NIF/CIF"/>
<TfrxMemoView Name="Memo50" Left="724" Top="25" Width="95" Height="15" ShowHint="False" Color="13434828" DisplayFormat.DecimalSeparator="," 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="Base imponible"/>
<TfrxMemoView Name="Memo51" Left="818,57483" Top="25" Width="95,244094488189" Height="15" ShowHint="False" Color="13434828" DisplayFormat.DecimalSeparator="," 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="Importe IVA"/>
<TfrxMemoView Name="Memo52" Left="914,267716535433" Top="25" Width="94,1102362204724" Height="15" ShowHint="False" Color="13434828" DisplayFormat.DecimalSeparator="," 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="Importe total"/>
<TfrxMemoView Name="Memo8" Left="632" Top="25" Width="92,67718" Height="15" ShowHint="False" Color="13434828" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="0" Font.Height="-11" Font.Name="Tahoma" Font.Style="1" Frame.Typ="15" ParentFont="False" VAlign="vaCenter" Text="Fecha"/>
<TfrxMemoView Name="Memo7" Left="0" Top="3,77953" Width="485,37013" Height="13" ShowHint="False" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="16384" Font.Height="-12" Font.Name="Tahoma" Font.Style="1" Frame.Color="8421504" ParentFont="False" Text="[frxDBInformeListadoFacturas.&#34;TITULO&#34;]"/>
</TfrxGroupHeader>
<TfrxMasterData Name="DatosMaestros1" Height="17,00787402" Left="0" Top="272" Width="1009,13451" Columns="1" ColumnWidth="200" ColumnGap="20" DataSet="frxDBInformeListadoFacturas" DataSetName="frxDBInformeListadoFacturas" RowCount="0">
<TfrxMemoView Name="Memo18" Left="0" Top="0" Width="86,95698" Height="17,007874015748" 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=" [frxDBInformeListadoFacturas.&#34;REFERENCIA&#34;]"/>
<TfrxMemoView Name="Memo4" Left="86,70872" Top="0" Width="464,25545" Height="17,007874015748" 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=" [frxDBInformeListadoFacturas.&#34;NOMBRE&#34;]"/>
<TfrxMemoView Name="Memo20" Left="550,81138" Top="0" Width="81,25984252" Height="17,007874015748" 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=" [frxDBInformeListadoFacturas.&#34;NIF_CIF&#34;]"/>
<TfrxMemoView Name="Memo21" Left="631,93700787" Top="0" Width="92,5984252" Height="17,007874015748" 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=" [frxDBInformeListadoFacturas.&#34;FECHA_FACTURA&#34;]"/>
<TfrxMemoView Name="Memo29" Left="724,53543307" Top="0" Width="94,48818898" Height="17,007874015748" 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" ParentFont="False" Text="[frxDBInformeListadoFacturas.&#34;BASE_IMPONIBLE&#34;]"/>
<TfrxMemoView Name="Memo30" Left="818,64566929" Top="0" Width="95,24409449" Height="17,007874015748" 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" ParentFont="False" Text="[frxDBInformeListadoFacturas.&#34;IMPORTE_IVA&#34;]"/>
<TfrxMemoView Name="Memo31" Left="913,86501" Top="0" Width="94,64276" Height="17,007874015748" 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" ParentFont="False" Text="[frxDBInformeListadoFacturas.&#34;IMPORTE_TOTAL&#34;]"/>
</TfrxMasterData>
<TfrxGroupFooter Name="" Height="20,78740402" Left="0" Top="309" Width="1009,13451">
<TfrxMemoView Name="Memo6" Left="914,11812" Top="0,37774772" Width="94,488188976378" Height="16" ShowHint="False" StretchMode="smMaxHeight" Color="13434828" DisplayFormat.DecimalSeparator="," DisplayFormat.FormatStr="#,0.00 €" 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;frxDBInformeListadoFacturas.&#34;IMPORTE_TOTAL&#34;&#62;,DatosMaestros1)]"/>
<TfrxMemoView Name="Memo14" Left="816,22936" Top="0,37774772" Width="97,8897637795276" Height="16" ShowHint="False" StretchMode="smMaxHeight" Color="13434828" DisplayFormat.DecimalSeparator="," DisplayFormat.FormatStr="#,0.00 €" 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;frxDBInformeListadoFacturas.&#34;IMPORTE_IVA&#34;&#62;,DatosMaestros1)]"/>
<TfrxMemoView Name="Memo15" Left="724,35436" Top="0,37774772" Width="94,488188976378" Height="16" ShowHint="False" StretchMode="smMaxHeight" Color="13434828" DisplayFormat.DecimalSeparator="," DisplayFormat.FormatStr="#,0.00 €" 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;frxDBInformeListadoFacturas.&#34;BASE_IMPONIBLE&#34;&#62;,DatosMaestros1)]"/>
<TfrxMemoView Name="Memo53" Left="0" Top="0,37774772" Width="724,57139" Height="16" ShowHint="False" StretchMode="smMaxHeight" Color="13434828" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="0" Font.Height="-11" Font.Name="Tahoma" Font.Style="1" Frame.Typ="13" HAlign="haRight" ParentFont="False" VAlign="vaCenter" Text="TOTALES [frxDBInformeListadoFacturas.&#34;TITULO&#34;]:"/>
</TfrxGroupFooter>
<TfrxMemoView Name="Memo2" Align="baRight" Left="938,13451" Top="651" Width="71" Height="13" OnBeforePrint="Memo2OnBeforePrint" ShowHint="False" StretchMode="smMaxHeight" Font.Charset="1" Font.Color="0" Font.Height="-9" Font.Name="Tahoma" Font.Style="0" HAlign="haRight" ParentFont="False" VAlign="vaCenter" Text=""/>
<TfrxHeader Name="Header1" Height="75,59" Left="0" Top="350" Width="1009,13451">
<TfrxMemoView Name="Memo1" Left="0" Top="32" Width="485,37013" Height="15,11811024" ShowHint="False" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="16384" Font.Height="-12" Font.Name="Tahoma" Font.Style="1" Frame.Color="8421504" ParentFont="False" Text="Resumen por meses de las facturas de proveedor"/>
<TfrxMemoView Name="Memo13" Align="baBottom" Left="0" Top="60,59" Width="383,62987" Height="15" ShowHint="False" Color="13434828" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="0" Font.Height="-11" Font.Name="Tahoma" Font.Style="1" Frame.Typ="15" ParentFont="False" VAlign="vaCenter" Text="Resumen por meses de facturas de proveedor"/>
<TfrxMemoView Name="Memo16" Align="baBottom" Left="383,62987" Top="60,59" Width="95" Height="15" ShowHint="False" Color="13434828" DisplayFormat.DecimalSeparator="," 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="Base imponible"/>
<TfrxMemoView Name="Memo17" Align="baBottom" Left="478,62987" Top="60,59" Width="95" Height="15" ShowHint="False" Color="13434828" DisplayFormat.DecimalSeparator="," 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="Importe IVA"/>
<TfrxMemoView Name="Memo22" Align="baBottom" Left="573,62987" Top="60,59" Width="94,48818898" Height="15" ShowHint="False" Color="13434828" DisplayFormat.DecimalSeparator="," 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="Importe total"/>
</TfrxHeader>
<TfrxMasterData Name="DatosMaestros2" Height="17,01" Left="0" Top="446" Width="1009,13451" ColumnWidth="0" ColumnGap="0" DataSet="frxDBInformeListadoFacturasResumen" DataSetName="frxDBInformeListadoFacturasResumen" RowCount="0" Stretched="True">
<TfrxMemoView Name="Memo10" Left="383,63" Top="0,00212598" Width="95" 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" ParentFont="False" Text="[frxDBInformeListadoFacturasResumen.&#34;BASE_IMPONIBLE&#34;]"/>
<TfrxMemoView Name="Memo11" Left="478,63" Top="0,00212598" Width="95" 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" ParentFont="False" Text="[frxDBInformeListadoFacturasResumen.&#34;IMPORTE_IVA&#34;]"/>
<TfrxMemoView Name="Memo12" Left="573,63" Top="0,00212598" Width="94,49" 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" ParentFont="False" Text="[frxDBInformeListadoFacturasResumen.&#34;IMPORTE_TOTAL&#34;]"/>
<TfrxMemoView Name="Memo9" Left="0" Top="0,00212598" Width="383,63" Height="17,00787402" ShowHint="False" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="16384" Font.Height="-12" Font.Name="Tahoma" Font.Style="1" Frame.Color="8421504" Frame.Typ="15" ParentFont="False" Text="[frxDBInformeListadoFacturasResumen.&#34;TITULO&#34;]"/>
</TfrxMasterData>
<TfrxReportSummary Name="ReportSummary1" Height="15,01" Left="0" Top="523" Width="1009,13451">
<TfrxMemoView Name="Memo24" Left="0" Top="0,41775" Width="383,62987" Height="15" ShowHint="False" Color="13434828" DisplayFormat.DecimalSeparator="," 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="Total: "/>
<TfrxMemoView Name="Memo25" Left="383,62987" Top="0,41775" Width="95" Height="15" ShowHint="False" Color="13434828" 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;frxDBInformeListadoFacturasResumen.&#34;BASE_IMPONIBLE&#34;&#62;,DatosMaestros2)]"/>
<TfrxMemoView Name="Memo26" Left="478,62987" Top="0,41775" Width="95" Height="15" ShowHint="False" Color="13434828" 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;frxDBInformeListadoFacturasResumen.&#34;IMPORTE_IVA&#34;&#62;,DatosMaestros2)]"/>
<TfrxMemoView Name="Memo32" Left="573,62987" Top="0,41775" Width="94,48818898" Height="15" ShowHint="False" Color="13434828" 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;frxDBInformeListadoFacturasResumen.&#34;IMPORTE_TOTAL&#34;&#62;,DatosMaestros2)]"/>
</TfrxReportSummary>
</TfrxReportPage>
</TfrxReport>

66
Source/Informes/9/InformeIVAProveedoresDesglosado.fr3 Normal file
View File

@ -0,0 +1,66 @@
<?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="40617,5337473958" 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="044C65667403910003546F70021008446174617365747301010C5000000020446174615365743D226672784442496E666F726D654C69737461646F46616374757261732220446174615365744E616D653D226672784442496E666F726D654C69737461646F46616374757261732200010C5E00000020446174615365743D226672784442496E666F726D654C69737461646F4661637475726173526573756D656E2220446174615365744E616D653D226672784442496E666F726D654C69737461646F4661637475726173526573756D656E220000095661726961626C657301010C13000000204E616D653D2220506167696E6163696F6E2200010C0E000000204E616D653D22506167696E612200010C14000000204E616D653D22546F74616C506167696E61732200010C11000000204E616D653D2220506572696F646F732200010C31000000204E616D653D224665636861496E6963696F222056616C75653D22262336303B4665636861496E6963696F262336323B2200010C10000000204E616D653D22466563686146696E220000055374796C650100">
<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="">
<TfrxPageHeader Name="Band1" Height="136,10235" Left="0" Top="16" Width="1009,13451" OnBeforePrint="Band1OnBeforePrint">
<TfrxPictureView Name="Logotipo" Left="0" Top="37,10235" Width="80" Height="88" ShowHint="False" HightQuality="False"/>
<TfrxMemoView Name="DatosEmpresa" Left="80" Top="37,10235" Width="232" Height="88" ShowHint="False" StretchMode="smMaxHeight" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="0" Font.Height="-11" Font.Name="Tahoma" Font.Style="0" ParentFont="False" Text=""/>
<TfrxLineView Name="Line1" Align="baLeft" Left="0" Top="129,10235" Width="312" Height="0" ShowHint="False" Frame.Color="32768" Frame.Typ="4" Frame.Width="4"/>
<TfrxShapeView Name="Shape5" Left="513" Top="25" Width="495" Height="99" ShowHint="False" Color="13434828" Shape="skRoundRectangle"/>
<TfrxMemoView Name="NombreCliente" Left="519,29901" Top="32" Width="481,45671" Height="20" ShowHint="False" StretchMode="smMaxHeight" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="0" Font.Height="-13" Font.Name="Tahoma" Font.Style="1" HAlign="haRight" ParentFont="False" Text="LISTADO DE IVA DE FACTURAS DE PROVEEDOR"/>
<TfrxMemoView Name="Memo3" Left="517,97619" Top="57,89765" Width="483" Height="57" ShowHint="False" StretchMode="smMaxHeight" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="0" Font.Height="-12" Font.Name="Tahoma" Font.Style="0" HAlign="haRight" ParentFont="False" Text="Fecha del listado: [&#60;Date&#62;] - Página [Page#] de [TotalPages#]&#13;&#10;[TextoParametros]"/>
</TfrxPageHeader>
<TfrxPageFooter Name="" Height="23,77953" Left="0" Top="638" Width="1009,13451" PrintOnLastPage="False">
<TfrxMemoView Name="mContinua" Left="925,98485" Top="4,77953" Width="81,08714" Height="16,77953" OnBeforePrint="mContinuaOnBeforePrint" ShowHint="False" StretchMode="smMaxHeight" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="16384" Font.Height="-12" Font.Name="Tahoma" Font.Style="0" HAlign="haRight" ParentFont="False" Text="Continúa ..."/>
<TfrxMemoView Name="Memo2" Align="baRight" Left="938,13451" Top="13" Width="71" Height="13" OnBeforePrint="Memo2OnBeforePrint" ShowHint="False" StretchMode="smMaxHeight" Font.Charset="1" Font.Color="0" Font.Height="-9" Font.Name="Tahoma" Font.Style="0" HAlign="haRight" ParentFont="False" VAlign="vaCenter" Text=""/>
</TfrxPageFooter>
<TfrxGroupHeader Name="" Height="40" Left="0" Restrictions="2" Top="252" Width="1009,13451" Condition="frxDBInformeListadoFacturas.&#34;NOMBRE&#34;" ReprintOnNewPage="True">
<TfrxMemoView Name="Memo27" Left="0" Top="25" Width="88,77953" Height="15" ShowHint="False" Color="13434828" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="0" Font.Height="-11" Font.Name="Tahoma" Font.Style="1" Frame.Typ="15" ParentFont="False" VAlign="vaCenter" Text="Nº factura"/>
<TfrxMemoView Name="Memo28" Left="87" Top="25" Width="463,7480315" Height="15" ShowHint="False" Color="13434828" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="0" Font.Height="-11" Font.Name="Tahoma" Font.Style="1" Frame.Typ="15" ParentFont="False" VAlign="vaCenter" Text="Proveedor"/>
<TfrxMemoView Name="Memo49" Left="550,677165354331" Top="25" Width="81,33859" Height="15" ShowHint="False" Color="13434828" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="0" Font.Height="-11" Font.Name="Tahoma" Font.Style="1" Frame.Typ="15" ParentFont="False" VAlign="vaCenter" Text="NIF/CIF"/>
<TfrxMemoView Name="Memo50" Left="724" Top="25" Width="95" Height="15" ShowHint="False" Color="13434828" DisplayFormat.DecimalSeparator="," 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="Base imponible"/>
<TfrxMemoView Name="Memo51" Left="818,57483" Top="25" Width="95,244094488189" Height="15" ShowHint="False" Color="13434828" DisplayFormat.DecimalSeparator="," 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="Importe IVA"/>
<TfrxMemoView Name="Memo52" Left="914,267716535433" Top="25" Width="94,1102362204724" Height="15" ShowHint="False" Color="13434828" DisplayFormat.DecimalSeparator="," 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="Importe total"/>
<TfrxMemoView Name="Memo8" Left="632" Top="25" Width="92,67718" Height="15" ShowHint="False" Color="13434828" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="0" Font.Height="-11" Font.Name="Tahoma" Font.Style="1" Frame.Typ="15" ParentFont="False" VAlign="vaCenter" Text="Fecha"/>
<TfrxMemoView Name="Memo7" Left="0" Top="3,77953" Width="485,37013" Height="13" ShowHint="False" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="16384" Font.Height="-12" Font.Name="Tahoma" Font.Style="1" Frame.Color="8421504" ParentFont="False" Text="[frxDBInformeListadoFacturas.&#34;NOMBRE&#34;]"/>
</TfrxGroupHeader>
<TfrxMasterData Name="DatosMaestros1" Height="17,00787402" Left="0" Top="312" Width="1009,13451" Columns="1" ColumnWidth="200" ColumnGap="20" DataSet="frxDBInformeListadoFacturas" DataSetName="frxDBInformeListadoFacturas" RowCount="0">
<TfrxMemoView Name="Memo18" Left="0" Top="0" Width="86,95698" Height="17,007874015748" 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=" [frxDBInformeListadoFacturas.&#34;REFERENCIA&#34;]"/>
<TfrxMemoView Name="Memo4" Left="86,70872" Top="0" Width="464,25545" Height="17,007874015748" 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=" [frxDBInformeListadoFacturas.&#34;NOMBRE&#34;]"/>
<TfrxMemoView Name="Memo20" Left="550,81138" Top="0" Width="81,25984252" Height="17,007874015748" 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=" [frxDBInformeListadoFacturas.&#34;NIF_CIF&#34;]"/>
<TfrxMemoView Name="Memo21" Left="631,93700787" Top="0" Width="92,5984252" Height="17,007874015748" 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=" [frxDBInformeListadoFacturas.&#34;FECHA_FACTURA&#34;]"/>
<TfrxMemoView Name="Memo29" Left="724,53543307" Top="0" Width="94,48818898" Height="17,007874015748" 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" ParentFont="False" Text="[frxDBInformeListadoFacturas.&#34;BASE_IMPONIBLE&#34;]"/>
<TfrxMemoView Name="Memo30" Left="818,64566929" Top="0" Width="95,24409449" Height="17,007874015748" 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" ParentFont="False" Text="[frxDBInformeListadoFacturas.&#34;IMPORTE_IVA&#34;]"/>
<TfrxMemoView Name="Memo31" Left="913,86501" Top="0" Width="94,64276" Height="17,007874015748" 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" ParentFont="False" Text="[frxDBInformeListadoFacturas.&#34;IMPORTE_TOTAL&#34;]"/>
</TfrxMasterData>
<TfrxGroupFooter Name="" Height="20,78740402" Left="0" Top="349" Width="1009,13451">
<TfrxMemoView Name="Memo6" Left="914,11812" Top="0,37774772" Width="94,488188976378" Height="16" ShowHint="False" StretchMode="smMaxHeight" Color="13434828" DisplayFormat.DecimalSeparator="," DisplayFormat.FormatStr="#,0.00 €" 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;frxDBInformeListadoFacturas.&#34;IMPORTE_TOTAL&#34;&#62;,DatosMaestros1)]"/>
<TfrxMemoView Name="Memo14" Left="816,22936" Top="0,37774772" Width="97,8897637795276" Height="16" ShowHint="False" StretchMode="smMaxHeight" Color="13434828" DisplayFormat.DecimalSeparator="," DisplayFormat.FormatStr="#,0.00 €" 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;frxDBInformeListadoFacturas.&#34;IMPORTE_IVA&#34;&#62;,DatosMaestros1)]"/>
<TfrxMemoView Name="Memo15" Left="724,35436" Top="0,37774772" Width="94,488188976378" Height="16" ShowHint="False" StretchMode="smMaxHeight" Color="13434828" DisplayFormat.DecimalSeparator="," DisplayFormat.FormatStr="#,0.00 €" 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;frxDBInformeListadoFacturas.&#34;BASE_IMPONIBLE&#34;&#62;,DatosMaestros1)]"/>
<TfrxMemoView Name="Memo53" Left="0" Top="0,37774772" Width="724,57139" Height="16" ShowHint="False" StretchMode="smMaxHeight" Color="13434828" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="0" Font.Height="-11" Font.Name="Tahoma" Font.Style="1" Frame.Typ="13" HAlign="haRight" ParentFont="False" VAlign="vaCenter" Text="TOTALES [frxDBInformeListadoFacturas.&#34;TITULO&#34;]:"/>
</TfrxGroupFooter>
<TfrxHeader Name="Header1" Height="75,59" Left="0" Top="430" Width="1009,13451">
<TfrxMemoView Name="Memo1" Left="0" Top="32" Width="485,37013" Height="15,11811024" ShowHint="False" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="16384" Font.Height="-12" Font.Name="Tahoma" Font.Style="1" Frame.Color="8421504" ParentFont="False" Text="Resumen por meses de las facturas de proveedor"/>
<TfrxMemoView Name="Memo13" Align="baBottom" Left="0" Top="60,59" Width="383,62987" Height="15" ShowHint="False" Color="13434828" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="0" Font.Height="-11" Font.Name="Tahoma" Font.Style="1" Frame.Typ="15" ParentFont="False" VAlign="vaCenter" Text="Resumen por meses de facturas de proveedor"/>
<TfrxMemoView Name="Memo16" Align="baBottom" Left="383,62987" Top="60,59" Width="95" Height="15" ShowHint="False" Color="13434828" DisplayFormat.DecimalSeparator="," 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="Base imponible"/>
<TfrxMemoView Name="Memo17" Align="baBottom" Left="478,62987" Top="60,59" Width="95" Height="15" ShowHint="False" Color="13434828" DisplayFormat.DecimalSeparator="," 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="Importe IVA"/>
<TfrxMemoView Name="Memo22" Align="baBottom" Left="573,62987" Top="60,59" Width="94,48818898" Height="15" ShowHint="False" Color="13434828" DisplayFormat.DecimalSeparator="," 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="Importe total"/>
</TfrxHeader>
<TfrxMasterData Name="DatosMaestros2" Height="17,01" Left="0" Top="526" Width="1009,13451" ColumnWidth="0" ColumnGap="0" DataSet="frxDBInformeListadoFacturasResumen" DataSetName="frxDBInformeListadoFacturasResumen" RowCount="0" Stretched="True">
<TfrxMemoView Name="Memo10" Left="383,63" Top="0,00212597999999997" Width="95" 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" ParentFont="False" Text="[frxDBInformeListadoFacturasResumen.&#34;BASE_IMPONIBLE&#34;]"/>
<TfrxMemoView Name="Memo11" Left="478,63" Top="0,00212597999999997" Width="95" 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" ParentFont="False" Text="[frxDBInformeListadoFacturasResumen.&#34;IMPORTE_IVA&#34;]"/>
<TfrxMemoView Name="Memo12" Left="573,63" Top="0,00212597999999997" Width="94,49" 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" ParentFont="False" Text="[frxDBInformeListadoFacturasResumen.&#34;IMPORTE_TOTAL&#34;]"/>
<TfrxMemoView Name="Memo9" Left="0" Top="0,00212597999999997" Width="383,63" Height="17,00787402" ShowHint="False" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="16384" Font.Height="-12" Font.Name="Tahoma" Font.Style="1" Frame.Color="8421504" Frame.Typ="15" ParentFont="False" Text="[frxDBInformeListadoFacturasResumen.&#34;TITULO&#34;]"/>
</TfrxMasterData>
<TfrxReportSummary Name="ReportSummary1" Height="15,01" Left="0" Top="603" Width="1009,13451">
<TfrxMemoView Name="Memo24" Left="0" Top="0,41775" Width="383,62987" Height="15" ShowHint="False" Color="13434828" DisplayFormat.DecimalSeparator="," 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="Total: "/>
<TfrxMemoView Name="Memo25" Left="383,62987" Top="0,41775" Width="95" Height="15" ShowHint="False" Color="13434828" 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;frxDBInformeListadoFacturasResumen.&#34;BASE_IMPONIBLE&#34;&#62;,DatosMaestros2)]"/>
<TfrxMemoView Name="Memo26" Left="478,62987" Top="0,41775" Width="95" Height="15" ShowHint="False" Color="13434828" 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;frxDBInformeListadoFacturasResumen.&#34;IMPORTE_IVA&#34;&#62;,DatosMaestros2)]"/>
<TfrxMemoView Name="Memo32" Left="573,62987" Top="0,41775" Width="94,48818898" Height="15" ShowHint="False" Color="13434828" 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;frxDBInformeListadoFacturasResumen.&#34;IMPORTE_TOTAL&#34;&#62;,DatosMaestros2)]"/>
</TfrxReportSummary>
<TfrxGroupHeader Name="GroupHeader1" Height="20" Left="0" Top="212" Width="1009,13451" Condition="frxDBInformeListadoFacturas.&#34;MES&#34;">
<TfrxMemoView Name="Memo5" Left="0" Top="3" Width="485,37013" Height="13" ShowHint="False" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="16384" Font.Height="-12" Font.Name="Tahoma" Font.Style="1" Frame.Color="8421504" ParentFont="False" Text="[frxDBInformeListadoFacturas.&#34;TITULO&#34;]"/>
</TfrxGroupHeader>
<TfrxGroupFooter Name="GroupFooter1" Height="20" Left="0" Top="390" Width="1009,13451"/>
</TfrxReportPage>
</TfrxReport>

152
Source/Informes/9/InformeListadoAlbaranesClienteGrafComp.fr3 Normal file
View File

File diff suppressed because one or more lines are too long

70
Source/Informes/9/InformeListadoBeneficiosGrafComp.fr3 Normal file
View File

File diff suppressed because one or more lines are too long

63
Source/Informes/9/InformeListadoFacturasCliente.fr3 Normal file
View File

@ -0,0 +1,63 @@
<?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="40585,5403353472" 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="044C65667403990003546F70021008446174617365747301010C5000000020446174615365743D226672784442496E666F726D654C69737461646F46616374757261732220446174615365744E616D653D226672784442496E666F726D654C69737461646F46616374757261732200010C5E00000020446174615365743D226672784442496E666F726D654C69737461646F4661637475726173526573756D656E2220446174615365744E616D653D226672784442496E666F726D654C69737461646F4661637475726173526573756D656E220000095661726961626C657301010C13000000204E616D653D2220506172616D6574726F732200010C17000000204E616D653D22546578746F506172616D6574726F73220000055374796C650100">
<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="">
<TfrxPageHeader Name="Band1" Height="136,10235" Left="0" Top="16" Width="1009,13451" OnBeforePrint="Band1OnBeforePrint">
<TfrxPictureView Name="Logotipo" Left="0" Top="37,10235" Width="80" Height="88" ShowHint="False" HightQuality="False"/>
<TfrxMemoView Name="DatosEmpresa" Left="80" Top="37,10235" Width="232" Height="88" ShowHint="False" StretchMode="smMaxHeight" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="0" Font.Height="-11" Font.Name="Tahoma" Font.Style="0" ParentFont="False" Text=""/>
<TfrxLineView Name="Line1" Align="baLeft" Left="0" Top="129,10235" Width="312" Height="0" ShowHint="False" Frame.Color="32768" Frame.Typ="4" Frame.Width="4"/>
<TfrxShapeView Name="Shape5" Left="512" Top="4" Width="495" Height="129" ShowHint="False" Color="13434828" Shape="skRoundRectangle"/>
<TfrxMemoView Name="NombreCliente" Left="520,85807" Top="13" Width="478" Height="19" ShowHint="False" StretchMode="smMaxHeight" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="0" Font.Height="-13" Font.Name="Tahoma" Font.Style="1" HAlign="haRight" ParentFont="False" Text="LISTADO DE FACTURAS DE CLIENTE"/>
<TfrxMemoView Name="Memo3" Left="520,85807" Top="34,89765" Width="478" Height="91" ShowHint="False" StretchMode="smMaxHeight" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="0" Font.Height="-12" Font.Name="Tahoma" Font.Style="0" HAlign="haRight" ParentFont="False" Text="Fecha del listado: [&#60;Date&#62;] - Página [Page#] de [TotalPages#]&#13;&#10;[TextoParametros]"/>
</TfrxPageHeader>
<TfrxPageFooter Name="" Height="23,77953" Left="0" Top="552" Width="1009,13451" PrintOnLastPage="False">
<TfrxMemoView Name="mContinua" Left="925,98485" Top="4,77953" Width="81,08714" Height="16,77953" OnBeforePrint="mContinuaOnBeforePrint" ShowHint="False" StretchMode="smMaxHeight" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="16384" Font.Height="-12" Font.Name="Tahoma" Font.Style="0" HAlign="haRight" ParentFont="False" Text="Continúa ..."/>
</TfrxPageFooter>
<TfrxGroupHeader Name="" Height="40" Left="0" Restrictions="2" Top="212" Width="1009,13451" Condition="frxDBInformeListadoFacturas.&#34;MES&#34;" ReprintOnNewPage="True">
<TfrxMemoView Name="Memo27" Left="0" Top="25" Width="88,77953" Height="15" ShowHint="False" Color="13434828" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="0" Font.Height="-11" Font.Name="Tahoma" Font.Style="1" Frame.Typ="15" ParentFont="False" VAlign="vaCenter" Text="Nº factura"/>
<TfrxMemoView Name="Memo28" Left="258,85827016" Top="25" Width="387,18893" Height="15" ShowHint="False" Color="13434828" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="0" Font.Height="-11" Font.Name="Tahoma" Font.Style="1" Frame.Typ="15" ParentFont="False" VAlign="vaCenter" Text="Cliente"/>
<TfrxMemoView Name="Memo49" Left="646,04720016" Top="25" Width="81,33859" Height="15" ShowHint="False" Color="13434828" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="0" Font.Height="-11" Font.Name="Tahoma" Font.Style="1" Frame.Typ="15" ParentFont="False" VAlign="vaCenter" Text="Situación"/>
<TfrxMemoView Name="Memo50" Left="727,38579016" Top="25" Width="95" Height="15" ShowHint="False" Color="13434828" DisplayFormat.DecimalSeparator="," 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="Base imponible"/>
<TfrxMemoView Name="Memo51" Left="822,38579016" Top="25" Width="95" Height="15" ShowHint="False" Color="13434828" DisplayFormat.DecimalSeparator="," 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="Importe IVA"/>
<TfrxMemoView Name="Memo52" Left="917,38579016" Top="25" Width="95" Height="15" ShowHint="False" Color="13434828" DisplayFormat.DecimalSeparator="," 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="Importe total"/>
<TfrxMemoView Name="Memo8" Left="88,77953" Top="25" Width="85,03937008" Height="15" ShowHint="False" Color="13434828" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="0" Font.Height="-11" Font.Name="Tahoma" Font.Style="1" Frame.Typ="15" ParentFont="False" VAlign="vaCenter" Text="Fecha"/>
<TfrxMemoView Name="Memo7" Left="0" Top="2,77953" Width="485,37013" Height="15,11811024" ShowHint="False" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="16384" Font.Height="-12" Font.Name="Tahoma" Font.Style="1" Frame.Color="8421504" ParentFont="False" Text="[frxDBInformeListadoFacturas.&#34;TITULO&#34;]"/>
<TfrxMemoView Name="Memo1" Left="173,81890008" Top="25" Width="85,03937008" Height="15" ShowHint="False" Color="13434828" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="0" Font.Height="-11" Font.Name="Tahoma" Font.Style="1" Frame.Typ="15" ParentFont="False" VAlign="vaCenter" Text="Fecha vto."/>
</TfrxGroupHeader>
<TfrxMasterData Name="DatosMaestros1" Height="17,00787402" Left="0" Top="272" Width="1009,13451" Columns="1" ColumnWidth="200" ColumnGap="20" DataSet="frxDBInformeListadoFacturas" DataSetName="frxDBInformeListadoFacturas" RowCount="0" Stretched="True">
<TfrxMemoView Name="Memo4" Left="258,8587304" Top="0" Width="387,19" 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=" [frxDBInformeListadoFacturas.&#34;NOMBRE&#34;]"/>
<TfrxMemoView Name="Memo20" Left="646,0487304" Top="0" Width="81,34" 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=" [frxDBInformeListadoFacturas.&#34;SITUACION&#34;]"/>
<TfrxMemoView Name="Memo21" Left="88,78" Top="0" Width="85,0393652" 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=" [frxDBInformeListadoFacturas.&#34;FECHA_FACTURA&#34;]"/>
<TfrxMemoView Name="Memo18" Left="0" Top="0" Width="88,78" 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=" [frxDBInformeListadoFacturas.&#34;REFERENCIA&#34;]"/>
<TfrxMemoView Name="Memo29" Left="727,3887304" Top="0" Width="95" 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" ParentFont="False" Text="[frxDBInformeListadoFacturas.&#34;BASE_IMPONIBLE&#34;]"/>
<TfrxMemoView Name="Memo30" Left="822,3887304" Top="0" Width="95" 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" ParentFont="False" Text="[frxDBInformeListadoFacturas.&#34;IMPORTE_IVA&#34;]"/>
<TfrxMemoView Name="Memo31" Left="917,3887304" Top="0" Width="95" 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" ParentFont="False" Text="[frxDBInformeListadoFacturas.&#34;IMPORTE_TOTAL&#34;]"/>
<TfrxMemoView Name="Memo5" Left="173,8193652" Top="0" Width="85,0393652" 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=" [frxDBInformeListadoFacturas.&#34;FECHA_VENCIMIENTO&#34;]"/>
</TfrxMasterData>
<TfrxGroupFooter Name="" Height="16" Left="0" Top="309" Width="1009,13451">
<TfrxMemoView Name="Memo53" Left="0" Top="0,37774772" Width="727" Height="16" ShowHint="False" StretchMode="smMaxHeight" Color="13434828" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="0" Font.Height="-11" Font.Name="Tahoma" Font.Style="1" Frame.Typ="13" HAlign="haRight" ParentFont="False" VAlign="vaCenter" Text="TOTALES [frxDBInformeListadoFacturas.&#34;TITULO&#34;]:"/>
<TfrxMemoView Name="Memo6" Left="917" Top="0,37774772" Width="95" Height="16" ShowHint="False" StretchMode="smMaxHeight" Color="13434828" DisplayFormat.DecimalSeparator="," DisplayFormat.FormatStr="#,0.00 €" 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;frxDBInformeListadoFacturas.&#34;IMPORTE_TOTAL&#34;&#62;,DatosMaestros1)]"/>
<TfrxMemoView Name="Memo14" Left="822" Top="0,37774772" Width="95" Height="16" ShowHint="False" StretchMode="smMaxHeight" Color="13434828" DisplayFormat.DecimalSeparator="," DisplayFormat.FormatStr="#,0.00 €" 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;frxDBInformeListadoFacturas.&#34;IMPORTE_IVA&#34;&#62;,DatosMaestros1)]"/>
<TfrxMemoView Name="Memo15" Left="727" Top="0,37774772" Width="95" Height="16" ShowHint="False" StretchMode="smMaxHeight" Color="13434828" DisplayFormat.DecimalSeparator="," DisplayFormat.FormatStr="#,0.00 €" 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;frxDBInformeListadoFacturas.&#34;BASE_IMPONIBLE&#34;&#62;,DatosMaestros1)]"/>
</TfrxGroupFooter>
<TfrxHeader Name="Header1" Height="75" Left="0" Top="345" Width="1009,13451">
<TfrxMemoView Name="Memo13" Left="0" Top="60" Width="383,62987" Height="15" ShowHint="False" Color="13434828" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="0" Font.Height="-11" Font.Name="Tahoma" Font.Style="1" Frame.Typ="15" ParentFont="False" VAlign="vaCenter" Text="Resumen por meses de facturas de cliente"/>
<TfrxMemoView Name="Memo16" Left="383,62987" Top="60" Width="95" Height="15" ShowHint="False" Color="13434828" DisplayFormat.DecimalSeparator="," 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="Base imponible"/>
<TfrxMemoView Name="Memo17" Left="478,62987" Top="60" Width="95" Height="15" ShowHint="False" Color="13434828" DisplayFormat.DecimalSeparator="," 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="Importe IVA"/>
<TfrxMemoView Name="Memo22" Left="573,62987" Top="60" Width="95" Height="15" ShowHint="False" Color="13434828" DisplayFormat.DecimalSeparator="," 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="Importe total"/>
<TfrxMemoView Name="Memo23" Left="0" Top="24" Width="485,37013" Height="15,11811024" ShowHint="False" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="16384" Font.Height="-12" Font.Name="Tahoma" Font.Style="1" Frame.Color="8421504" ParentFont="False" Text="Resumen por meses de las facturas de cliente"/>
</TfrxHeader>
<TfrxReportSummary Name="ReportSummary1" Height="15" Left="0" Top="517" Width="1009,13451">
<TfrxMemoView Name="Memo24" Align="baLeft" Left="0" Top="0" Width="383,62987" Height="15" ShowHint="False" Color="13434828" DisplayFormat.DecimalSeparator="," 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="Total: "/>
<TfrxMemoView Name="Memo25" Align="baLeft" Left="383,62987" Top="0" Width="95" Height="15" ShowHint="False" Color="13434828" 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;frxDBInformeListadoFacturasResumen.&#34;BASE_IMPONIBLE&#34;&#62;,DatosMaestros2)]"/>
<TfrxMemoView Name="Memo26" Align="baLeft" Left="478,62987" Top="0" Width="95" Height="15" ShowHint="False" Color="13434828" 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;frxDBInformeListadoFacturasResumen.&#34;IMPORTE_IVA&#34;&#62;,DatosMaestros2)]"/>
<TfrxMemoView Name="Memo32" Align="baLeft" Left="573,62987" Top="0" Width="95" Height="15" ShowHint="False" Color="13434828" 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;frxDBInformeListadoFacturasResumen.&#34;IMPORTE_TOTAL&#34;&#62;,DatosMaestros2)]"/>
</TfrxReportSummary>
<TfrxMasterData Name="DatosMaestros2" Height="17" Left="0" Top="440" Width="1009,13451" ColumnWidth="0" ColumnGap="0" DataSet="frxDBInformeListadoFacturasResumen" DataSetName="frxDBInformeListadoFacturasResumen" RowCount="0">
<TfrxMemoView Name="Memo9" Align="baLeft" Left="0" Top="0" Width="383,63" Height="17,00787402" ShowHint="False" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="16384" Font.Height="-12" Font.Name="Tahoma" Font.Style="1" Frame.Typ="15" ParentFont="False" Text="[frxDBInformeListadoFacturasResumen.&#34;TITULO&#34;]"/>
<TfrxMemoView Name="Memo10" Align="baLeft" Left="383,63" Top="0" Width="95" 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" ParentFont="False" Text="[frxDBInformeListadoFacturasResumen.&#34;BASE_IMPONIBLE&#34;]"/>
<TfrxMemoView Name="Memo11" Align="baLeft" Left="478,63" Top="0" Width="95" 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" ParentFont="False" Text="[frxDBInformeListadoFacturasResumen.&#34;IMPORTE_IVA&#34;]"/>
<TfrxMemoView Name="Memo12" Align="baLeft" Left="573,63" Top="0" Width="95" 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" ParentFont="False" Text="[frxDBInformeListadoFacturasResumen.&#34;IMPORTE_TOTAL&#34;]"/>
</TfrxMasterData>
</TfrxReportPage>
</TfrxReport>

67
Source/Informes/9/InformeListadoFacturasClienteDesglosado.fr3 Normal file
View File

@ -0,0 +1,67 @@
<?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="40585,5404587963" ScriptLanguage="PascalScript" ScriptText.Text="&#13;&#10;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="044C65667403990003546F70021008446174617365747301010C5000000020446174615365743D226672784442496E666F726D654C69737461646F46616374757261732220446174615365744E616D653D226672784442496E666F726D654C69737461646F46616374757261732200010C5E00000020446174615365743D226672784442496E666F726D654C69737461646F4661637475726173526573756D656E2220446174615365744E616D653D226672784442496E666F726D654C69737461646F4661637475726173526573756D656E220000095661726961626C657301010C13000000204E616D653D2220506172616D6574726F732200010C17000000204E616D653D22546578746F506172616D6574726F73220000055374796C650100">
<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="">
<TfrxPageHeader Name="Band1" Height="136,10235" Left="0" Top="16" Width="1009,13451" OnBeforePrint="Band1OnBeforePrint">
<TfrxPictureView Name="Logotipo" Left="0" Top="37,10235" Width="80" Height="88" ShowHint="False" HightQuality="False"/>
<TfrxMemoView Name="DatosEmpresa" Left="80" Top="37,10235" Width="232" Height="88" ShowHint="False" StretchMode="smMaxHeight" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="0" Font.Height="-11" Font.Name="Tahoma" Font.Style="0" ParentFont="False" Text=""/>
<TfrxLineView Name="Line1" Align="baLeft" Left="0" Top="129,10235" Width="312" Height="0" ShowHint="False" Frame.Color="32768" Frame.Typ="4" Frame.Width="4"/>
<TfrxShapeView Name="Shape5" Left="513" Top="5" Width="495" Height="129" ShowHint="False" Color="13434828" Shape="skRoundRectangle"/>
<TfrxMemoView Name="NombreCliente" Left="521,85807" Top="14" Width="478" Height="19" ShowHint="False" StretchMode="smMaxHeight" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="0" Font.Height="-13" Font.Name="Tahoma" Font.Style="1" HAlign="haRight" ParentFont="False" Text="LISTADO DE FACTURAS DE CLIENTE"/>
<TfrxMemoView Name="Memo3" Left="521,85807" Top="35,89765" Width="478" Height="91" ShowHint="False" StretchMode="smMaxHeight" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="0" Font.Height="-12" Font.Name="Tahoma" Font.Style="0" HAlign="haRight" ParentFont="False" Text="Fecha del listado: [&#60;Date&#62;] - Página [Page#] de [TotalPages#]&#13;&#10;[TextoParametros]"/>
</TfrxPageHeader>
<TfrxPageFooter Name="" Height="23,77953" Left="0" Top="632" Width="1009,13451" PrintOnLastPage="False">
<TfrxMemoView Name="mContinua" Left="925,98485" Top="4,77953" Width="81,08714" Height="16,77953" OnBeforePrint="mContinuaOnBeforePrint" ShowHint="False" StretchMode="smMaxHeight" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="16384" Font.Height="-12" Font.Name="Tahoma" Font.Style="0" HAlign="haRight" ParentFont="False" Text="Continúa ..."/>
</TfrxPageFooter>
<TfrxGroupHeader Name="" Height="40" Left="0" Restrictions="2" Top="252" Width="1009,13451" Condition="frxDBInformeListadoFacturas.&#34;NOMBRE&#34;" ReprintOnNewPage="True">
<TfrxMemoView Name="Memo27" Left="0" Top="25" Width="88,77953" Height="15" ShowHint="False" Color="13434828" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="0" Font.Height="-11" Font.Name="Tahoma" Font.Style="1" Frame.Typ="15" ParentFont="False" VAlign="vaCenter" Text="Nº factura"/>
<TfrxMemoView Name="Memo28" Left="258,85827016" Top="25" Width="387,18893" Height="15" ShowHint="False" Color="13434828" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="0" Font.Height="-11" Font.Name="Tahoma" Font.Style="1" Frame.Typ="15" ParentFont="False" VAlign="vaCenter" Text="Cliente"/>
<TfrxMemoView Name="Memo49" Left="646,04720016" Top="25" Width="81,33859" Height="15" ShowHint="False" Color="13434828" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="0" Font.Height="-11" Font.Name="Tahoma" Font.Style="1" Frame.Typ="15" ParentFont="False" VAlign="vaCenter" Text="Situación"/>
<TfrxMemoView Name="Memo50" Left="727,38579016" Top="25" Width="95" Height="15" ShowHint="False" Color="13434828" DisplayFormat.DecimalSeparator="," 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="Base imponible"/>
<TfrxMemoView Name="Memo51" Left="822,38579016" Top="25" Width="95" Height="15" ShowHint="False" Color="13434828" DisplayFormat.DecimalSeparator="," 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="Importe IVA"/>
<TfrxMemoView Name="Memo52" Left="917,38579016" Top="25" Width="95" Height="15" ShowHint="False" Color="13434828" DisplayFormat.DecimalSeparator="," 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="Importe total"/>
<TfrxMemoView Name="Memo8" Left="88,77953" Top="25" Width="85,03937008" Height="15" ShowHint="False" Color="13434828" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="0" Font.Height="-11" Font.Name="Tahoma" Font.Style="1" Frame.Typ="15" ParentFont="False" VAlign="vaCenter" Text="Fecha"/>
<TfrxMemoView Name="Memo7" Left="0" Top="2,77953" Width="485,37013" Height="15,11811024" ShowHint="False" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="16384" Font.Height="-12" Font.Name="Tahoma" Font.Style="1" Frame.Color="8421504" ParentFont="False" Text="[frxDBInformeListadoFacturas.&#34;NOMBRE&#34;]"/>
<TfrxMemoView Name="Memo1" Left="173,81890008" Top="25" Width="85,03937008" Height="15" ShowHint="False" Color="13434828" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="0" Font.Height="-11" Font.Name="Tahoma" Font.Style="1" Frame.Typ="15" ParentFont="False" VAlign="vaCenter" Text="Fecha vto."/>
</TfrxGroupHeader>
<TfrxMasterData Name="DatosMaestros1" Height="17,00787402" Left="0" Top="312" Width="1009,13451" Columns="1" ColumnWidth="200" ColumnGap="20" DataSet="frxDBInformeListadoFacturas" DataSetName="frxDBInformeListadoFacturas" RowCount="0" Stretched="True">
<TfrxMemoView Name="Memo4" Left="258,8587304" Top="0" Width="387,19" 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=" [frxDBInformeListadoFacturas.&#34;NOMBRE&#34;]"/>
<TfrxMemoView Name="Memo20" Left="646,0487304" Top="0" Width="81,34" 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=" [frxDBInformeListadoFacturas.&#34;SITUACION&#34;]"/>
<TfrxMemoView Name="Memo21" Left="88,78" Top="0" Width="85,0393652" 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=" [frxDBInformeListadoFacturas.&#34;FECHA_FACTURA&#34;]"/>
<TfrxMemoView Name="Memo18" Left="0" Top="0" Width="88,78" 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=" [frxDBInformeListadoFacturas.&#34;REFERENCIA&#34;]"/>
<TfrxMemoView Name="Memo29" Left="727,3887304" Top="0" Width="95" 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" ParentFont="False" Text="[frxDBInformeListadoFacturas.&#34;BASE_IMPONIBLE&#34;]"/>
<TfrxMemoView Name="Memo30" Left="822,3887304" Top="0" Width="95" 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" ParentFont="False" Text="[frxDBInformeListadoFacturas.&#34;IMPORTE_IVA&#34;]"/>
<TfrxMemoView Name="Memo31" Left="917,3887304" Top="0" Width="95" 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" ParentFont="False" Text="[frxDBInformeListadoFacturas.&#34;IMPORTE_TOTAL&#34;]"/>
<TfrxMemoView Name="Memo5" Left="173,8193652" Top="0" Width="85,0393652" 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=" [frxDBInformeListadoFacturas.&#34;FECHA_VENCIMIENTO&#34;]"/>
</TfrxMasterData>
<TfrxGroupFooter Name="" Height="16" Left="0" Top="349" Width="1009,13451">
<TfrxMemoView Name="Memo53" Left="0" Top="0,37774772" Width="727" Height="16" ShowHint="False" StretchMode="smMaxHeight" Color="13434828" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="0" Font.Height="-11" Font.Name="Tahoma" Font.Style="1" Frame.Typ="13" HAlign="haRight" ParentFont="False" VAlign="vaCenter" Text="TOTALES [frxDBInformeListadoFacturas.&#34;TITULO&#34;]:"/>
<TfrxMemoView Name="Memo6" Left="917" Top="0,37774772" Width="95" Height="16" ShowHint="False" StretchMode="smMaxHeight" Color="13434828" DisplayFormat.DecimalSeparator="," DisplayFormat.FormatStr="#,0.00 €" 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;frxDBInformeListadoFacturas.&#34;IMPORTE_TOTAL&#34;&#62;,DatosMaestros1)]"/>
<TfrxMemoView Name="Memo14" Left="822" Top="0,37774772" Width="95" Height="16" ShowHint="False" StretchMode="smMaxHeight" Color="13434828" DisplayFormat.DecimalSeparator="," DisplayFormat.FormatStr="#,0.00 €" 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;frxDBInformeListadoFacturas.&#34;IMPORTE_IVA&#34;&#62;,DatosMaestros1)]"/>
<TfrxMemoView Name="Memo15" Left="727" Top="0,37774772" Width="95" Height="16" ShowHint="False" StretchMode="smMaxHeight" Color="13434828" DisplayFormat.DecimalSeparator="," DisplayFormat.FormatStr="#,0.00 €" 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;frxDBInformeListadoFacturas.&#34;BASE_IMPONIBLE&#34;&#62;,DatosMaestros1)]"/>
</TfrxGroupFooter>
<TfrxHeader Name="Header1" Height="75" Left="0" Top="425" Width="1009,13451">
<TfrxMemoView Name="Memo13" Left="0" Top="60" Width="383,62987" Height="15" ShowHint="False" Color="13434828" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="0" Font.Height="-11" Font.Name="Tahoma" Font.Style="1" Frame.Typ="15" ParentFont="False" VAlign="vaCenter" Text="Resumen por meses de facturas de cliente"/>
<TfrxMemoView Name="Memo16" Left="383,62987" Top="60" Width="95" Height="15" ShowHint="False" Color="13434828" DisplayFormat.DecimalSeparator="," 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="Base imponible"/>
<TfrxMemoView Name="Memo17" Left="478,62987" Top="60" Width="95" Height="15" ShowHint="False" Color="13434828" DisplayFormat.DecimalSeparator="," 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="Importe IVA"/>
<TfrxMemoView Name="Memo22" Left="573,62987" Top="60" Width="95" Height="15" ShowHint="False" Color="13434828" DisplayFormat.DecimalSeparator="," 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="Importe total"/>
<TfrxMemoView Name="Memo23" Left="0" Top="24" Width="485,37013" Height="15,11811024" ShowHint="False" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="16384" Font.Height="-12" Font.Name="Tahoma" Font.Style="1" Frame.Color="8421504" ParentFont="False" Text="Resumen por meses de las facturas de cliente"/>
</TfrxHeader>
<TfrxReportSummary Name="ReportSummary1" Height="15" Left="0" Top="597" Width="1009,13451">
<TfrxMemoView Name="Memo24" Align="baLeft" Left="0" Top="0" Width="383,62987" Height="15" ShowHint="False" Color="13434828" DisplayFormat.DecimalSeparator="," 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="Total: "/>
<TfrxMemoView Name="Memo25" Align="baLeft" Left="383,62987" Top="0" Width="95" Height="15" ShowHint="False" Color="13434828" 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;frxDBInformeListadoFacturasResumen.&#34;BASE_IMPONIBLE&#34;&#62;,DatosMaestros2)]"/>
<TfrxMemoView Name="Memo26" Align="baLeft" Left="478,62987" Top="0" Width="95" Height="15" ShowHint="False" Color="13434828" 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;frxDBInformeListadoFacturasResumen.&#34;IMPORTE_IVA&#34;&#62;,DatosMaestros2)]"/>
<TfrxMemoView Name="Memo32" Align="baLeft" Left="573,62987" Top="0" Width="95" Height="15" ShowHint="False" Color="13434828" 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;frxDBInformeListadoFacturasResumen.&#34;IMPORTE_TOTAL&#34;&#62;,DatosMaestros2)]"/>
</TfrxReportSummary>
<TfrxMasterData Name="DatosMaestros2" Height="17" Left="0" Top="520" Width="1009,13451" ColumnWidth="0" ColumnGap="0" DataSet="frxDBInformeListadoFacturasResumen" DataSetName="frxDBInformeListadoFacturasResumen" RowCount="0">
<TfrxMemoView Name="Memo9" Align="baLeft" Left="0" Top="0" Width="383,63" Height="17,00787402" ShowHint="False" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="16384" Font.Height="-12" Font.Name="Tahoma" Font.Style="1" Frame.Typ="15" ParentFont="False" Text="[frxDBInformeListadoFacturasResumen.&#34;TITULO&#34;]"/>
<TfrxMemoView Name="Memo10" Align="baLeft" Left="383,63" Top="0" Width="95" 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" ParentFont="False" Text="[frxDBInformeListadoFacturasResumen.&#34;BASE_IMPONIBLE&#34;]"/>
<TfrxMemoView Name="Memo11" Align="baLeft" Left="478,63" Top="0" Width="95" 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" ParentFont="False" Text="[frxDBInformeListadoFacturasResumen.&#34;IMPORTE_IVA&#34;]"/>
<TfrxMemoView Name="Memo12" Align="baLeft" Left="573,63" Top="0" Width="95" 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" ParentFont="False" Text="[frxDBInformeListadoFacturasResumen.&#34;IMPORTE_TOTAL&#34;]"/>
</TfrxMasterData>
<TfrxGroupHeader Name="GroupHeader1" Height="20" Left="0" Top="212" Width="1009,13451" Condition="frxDBInformeListadoFacturas.&#34;MES&#34;">
<TfrxMemoView Name="Memo33" Left="-1" Top="2" Width="485,37013" Height="15,11811024" ShowHint="False" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="16384" Font.Height="-12" Font.Name="Tahoma" Font.Style="1" Frame.Color="8421504" ParentFont="False" Text="[frxDBInformeListadoFacturas.&#34;TITULO&#34;]"/>
</TfrxGroupHeader>
<TfrxGroupFooter Name="GroupFooter1" Height="20" Left="0" Top="385" Width="1009,13451"/>
</TfrxReportPage>
</TfrxReport>

84
Source/Informes/9/InformeListadoFacturasClienteGrafComp.fr3 Normal file
View File

File diff suppressed because one or more lines are too long

39
Source/Informes/9/InformeListadoFacturasClientePendientes.fr3 Normal file
View File

@ -0,0 +1,39 @@
<?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="40585,5406489468" ScriptLanguage="PascalScript" ScriptText.Text="&#13;&#10;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="044C65667403990003546F70021008446174617365747301010C6400000020446174615365743D226672784442496E666F726D654C69737461646F466163747572617350656E6469656E7465732220446174615365744E616D653D226672784442496E666F726D654C69737461646F466163747572617350656E6469656E746573220000095661726961626C657301010C13000000204E616D653D2220506172616D6574726F732200010C17000000204E616D653D22546578746F506172616D6574726F73220000055374796C650100">
<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="">
<TfrxPageHeader Name="Band1" Height="136,10235" Left="0" Top="16" Width="1009,13451" OnBeforePrint="Band1OnBeforePrint">
<TfrxPictureView Name="Logotipo" Left="0" Top="37,10235" Width="80" Height="88" ShowHint="False" HightQuality="False"/>
<TfrxMemoView Name="DatosEmpresa" Left="80" Top="37,10235" Width="232" Height="88" ShowHint="False" StretchMode="smMaxHeight" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="0" Font.Height="-11" Font.Name="Tahoma" Font.Style="0" ParentFont="False" Text=""/>
<TfrxLineView Name="Line1" Align="baLeft" Left="0" Top="129,10235" Width="312" Height="0" ShowHint="False" Frame.Color="32768" Frame.Typ="4" Frame.Width="4"/>
<TfrxShapeView Name="Shape5" Left="513" Top="5" Width="495" Height="129" ShowHint="False" Color="13434828" Shape="skRoundRectangle"/>
<TfrxMemoView Name="NombreCliente" Left="521,85807" Top="14" Width="478" Height="19" ShowHint="False" StretchMode="smMaxHeight" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="0" Font.Height="-13" Font.Name="Tahoma" Font.Style="1" HAlign="haRight" ParentFont="False" Text="LISTADO DE FACTURAS DE CLIENTE PENDIENTES"/>
<TfrxMemoView Name="Memo3" Left="521,85807" Top="35,89765" Width="478" Height="91" ShowHint="False" StretchMode="smMaxHeight" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="0" Font.Height="-12" Font.Name="Tahoma" Font.Style="0" HAlign="haRight" ParentFont="False" Text="Fecha del listado: [&#60;Date&#62;] - Página [Page#] de [TotalPages#]&#13;&#10;[TextoParametros]"/>
</TfrxPageHeader>
<TfrxPageFooter Name="" Height="23,77953" Left="0" Top="390" Width="1009,13451" PrintOnLastPage="False">
<TfrxMemoView Name="mContinua" Left="925,98485" Top="4,77953" Width="81,08714" Height="16,77953" OnBeforePrint="mContinuaOnBeforePrint" ShowHint="False" StretchMode="smMaxHeight" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="16384" Font.Height="-12" Font.Name="Tahoma" Font.Style="0" HAlign="haRight" ParentFont="False" Text="Continúa ..."/>
</TfrxPageFooter>
<TfrxGroupHeader Name="" Height="40" Left="0" Restrictions="2" Top="212" Width="1009,13451" Condition="frxDBInformeListadoFacturasPendientes.&#34;MES&#34;" ReprintOnNewPage="True">
<TfrxMemoView Name="Memo52" Left="718,58611229" Top="25" Width="154,9" Height="15" ShowHint="False" Color="13434828" DisplayFormat.DecimalSeparator="," 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="Importe total"/>
<TfrxMemoView Name="Memo27" Left="0" Top="25" Width="135,69639" Height="15" ShowHint="False" Color="13434828" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="0" Font.Height="-11" Font.Name="Tahoma" Font.Style="1" Frame.Typ="15" ParentFont="False" VAlign="vaCenter" Text="Nº factura"/>
<TfrxMemoView Name="Memo28" Left="305,77513016" Top="25" Width="412,81098213" Height="15" ShowHint="False" Color="13434828" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="0" Font.Height="-11" Font.Name="Tahoma" Font.Style="1" Frame.Typ="15" ParentFont="False" VAlign="vaCenter" Text="Cliente"/>
<TfrxMemoView Name="Memo49" Left="873,48611229" Top="25" Width="135,5" Height="15" ShowHint="False" Color="13434828" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="0" Font.Height="-11" Font.Name="Tahoma" Font.Style="1" Frame.Typ="15" ParentFont="False" VAlign="vaCenter" Text="Situación"/>
<TfrxMemoView Name="Memo8" Left="135,69639" Top="25" Width="85,03937008" Height="15" ShowHint="False" Color="13434828" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="0" Font.Height="-11" Font.Name="Tahoma" Font.Style="1" Frame.Typ="15" ParentFont="False" VAlign="vaCenter" Text="Fecha"/>
<TfrxMemoView Name="Memo7" Left="0" Top="2,77953" Width="485,37013" Height="15,11811024" ShowHint="False" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="16384" Font.Height="-12" Font.Name="Tahoma" Font.Style="1" Frame.Color="8421504" ParentFont="False" Text="[frxDBInformeListadoFacturasPendientes.&#34;TITULO&#34;]"/>
<TfrxMemoView Name="Memo1" Left="220,73576008" Top="24,67718" Width="85,03937008" Height="15" ShowHint="False" Color="13434828" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="0" Font.Height="-11" Font.Name="Tahoma" Font.Style="1" Frame.Typ="15" ParentFont="False" VAlign="vaCenter" Text="Fecha vto."/>
</TfrxGroupHeader>
<TfrxMasterData Name="DatosMaestros1" Height="17,00787402" Left="0" Top="272" Width="1009,13451" Columns="1" ColumnWidth="200" ColumnGap="20" DataSet="frxDBInformeListadoFacturasPendientes" DataSetName="frxDBInformeListadoFacturasPendientes" RowCount="0" Stretched="True">
<TfrxMemoView Name="Memo31" Left="718,59" Top="0" Width="154,9" 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" ParentFont="False" Text="[frxDBInformeListadoFacturasPendientes.&#34;IMPORTE_TOTAL&#34;] "/>
<TfrxMemoView Name="Memo4" Left="305,78" Top="0" Width="412,81" 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=" [frxDBInformeListadoFacturasPendientes.&#34;NOMBRE&#34;]"/>
<TfrxMemoView Name="Memo20" Left="873,49" Top="0" Width="135,5" 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=" [frxDBInformeListadoFacturasPendientes.&#34;SITUACION&#34;]"/>
<TfrxMemoView Name="Memo21" Left="135,7" Top="0" Width="85,04" 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=" [frxDBInformeListadoFacturasPendientes.&#34;FECHA_FACTURA&#34;]"/>
<TfrxMemoView Name="Memo18" Left="0" Top="0" Width="135,7" 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=" [frxDBInformeListadoFacturasPendientes.&#34;REFERENCIA&#34;]"/>
<TfrxMemoView Name="Memo5" Left="220,74" Top="0" Width="85,04" 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=" [frxDBInformeListadoFacturasPendientes.&#34;FECHA_VENCIMIENTO&#34;]"/>
</TfrxMasterData>
<TfrxGroupFooter Name="" Height="20,78740402" Left="0" Top="309" Width="1009,13451">
<TfrxMemoView Name="Memo6" Left="718,08687" Top="0,37774772" Width="154,9" Height="16" ShowHint="False" StretchMode="smMaxHeight" Color="13434828" DisplayFormat.DecimalSeparator="," DisplayFormat.FormatStr="#,0.00 €" 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;frxDBInformeListadoFacturasPendientes.&#34;IMPORTE_TOTAL&#34;&#62;,DatosMaestros1)] "/>
<TfrxMemoView Name="Memo14" Left="872,98687" Top="0,37774772" Width="135,5" Height="16" ShowHint="False" StretchMode="smMaxHeight" Color="13434828" DisplayFormat.DecimalSeparator="," DisplayFormat.FormatStr="#,0.00 €" 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=""/>
<TfrxMemoView Name="Memo53" Left="0" Top="0,37774772" Width="717,73228346" Height="16" ShowHint="False" StretchMode="smMaxHeight" Color="13434828" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="0" Font.Height="-11" Font.Name="Tahoma" Font.Style="1" Frame.Typ="13" HAlign="haRight" ParentFont="False" VAlign="vaCenter" Text="TOTALES [frxDBInformeListadoFacturasPendientes.&#34;TITULO&#34;]:"/>
</TfrxGroupFooter>
</TfrxReportPage>
</TfrxReport>

43
Source/Informes/9/InformeListadoFacturasClientePendientesDesglosado.fr3 Normal file
View File

@ -0,0 +1,43 @@
<?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="40585,5407772801" 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="044C65667403990003546F70021008446174617365747301010C6400000020446174615365743D226672784442496E666F726D654C69737461646F466163747572617350656E6469656E7465732220446174615365744E616D653D226672784442496E666F726D654C69737461646F466163747572617350656E6469656E746573220000095661726961626C657301010C13000000204E616D653D2220506172616D6574726F732200010C17000000204E616D653D22546578746F506172616D6574726F73220000055374796C650100">
<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="">
<TfrxPageHeader Name="Band1" Height="136,10235" Left="0" Top="16" Width="1009,13451" OnBeforePrint="Band1OnBeforePrint">
<TfrxPictureView Name="Logotipo" Left="0" Top="37,10235" Width="80" Height="88" ShowHint="False" HightQuality="False"/>
<TfrxMemoView Name="DatosEmpresa" Left="80" Top="37,10235" Width="232" Height="88" ShowHint="False" StretchMode="smMaxHeight" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="0" Font.Height="-11" Font.Name="Tahoma" Font.Style="0" ParentFont="False" Text=""/>
<TfrxLineView Name="Line1" Align="baLeft" Left="0" Top="129,10235" Width="312" Height="0" ShowHint="False" Frame.Color="32768" Frame.Typ="4" Frame.Width="4"/>
<TfrxShapeView Name="Shape5" Left="512" Top="4" Width="495" Height="129" ShowHint="False" Color="13434828" Shape="skRoundRectangle"/>
<TfrxMemoView Name="NombreCliente" Left="520,85807" Top="13" Width="478" Height="19" ShowHint="False" StretchMode="smMaxHeight" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="0" Font.Height="-13" Font.Name="Tahoma" Font.Style="1" HAlign="haRight" ParentFont="False" Text="LISTADO DE FACTURAS DE CLIENTE PENDIENTES"/>
<TfrxMemoView Name="Memo3" Left="520,85807" Top="34,89765" Width="478" Height="91" ShowHint="False" StretchMode="smMaxHeight" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="0" Font.Height="-12" Font.Name="Tahoma" Font.Style="0" HAlign="haRight" ParentFont="False" Text="Fecha del listado: [&#60;Date&#62;] - Página [Page#] de [TotalPages#]&#13;&#10;[TextoParametros]"/>
</TfrxPageHeader>
<TfrxPageFooter Name="" Height="23,77953" Left="0" Top="470" Width="1009,13451" PrintOnLastPage="False">
<TfrxMemoView Name="mContinua" Left="925,98485" Top="4,77953" Width="81,08714" Height="16,77953" OnBeforePrint="mContinuaOnBeforePrint" ShowHint="False" StretchMode="smMaxHeight" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="16384" Font.Height="-12" Font.Name="Tahoma" Font.Style="0" HAlign="haRight" ParentFont="False" Text="Continúa ..."/>
</TfrxPageFooter>
<TfrxGroupHeader Name="" Height="40" Left="0" Restrictions="2" Top="252" Width="1009,13451" Condition="frxDBInformeListadoFacturasPendientes.&#34;NOMBRE&#34;" ReprintOnNewPage="True">
<TfrxMemoView Name="Memo52" Left="718,58611229" Top="25" Width="154,9" Height="15" ShowHint="False" Color="13434828" DisplayFormat.DecimalSeparator="," 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="Importe total"/>
<TfrxMemoView Name="Memo27" Left="0" Top="25" Width="135,69639" Height="15" ShowHint="False" Color="13434828" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="0" Font.Height="-11" Font.Name="Tahoma" Font.Style="1" Frame.Typ="15" ParentFont="False" VAlign="vaCenter" Text="Nº factura"/>
<TfrxMemoView Name="Memo28" Left="305,77513016" Top="25" Width="412,81098213" Height="15" ShowHint="False" Color="13434828" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="0" Font.Height="-11" Font.Name="Tahoma" Font.Style="1" Frame.Typ="15" ParentFont="False" VAlign="vaCenter" Text="Cliente"/>
<TfrxMemoView Name="Memo49" Left="873,48611229" Top="25" Width="135,5" Height="15" ShowHint="False" Color="13434828" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="0" Font.Height="-11" Font.Name="Tahoma" Font.Style="1" Frame.Typ="15" ParentFont="False" VAlign="vaCenter" Text="Situación"/>
<TfrxMemoView Name="Memo8" Left="135,69639" Top="25" Width="85,03937008" Height="15" ShowHint="False" Color="13434828" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="0" Font.Height="-11" Font.Name="Tahoma" Font.Style="1" Frame.Typ="15" ParentFont="False" VAlign="vaCenter" Text="Fecha"/>
<TfrxMemoView Name="Memo7" Left="0" Top="2,77953" Width="485,37013" Height="15,11811024" ShowHint="False" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="16384" Font.Height="-12" Font.Name="Tahoma" Font.Style="1" Frame.Color="8421504" ParentFont="False" Text="[frxDBInformeListadoFacturasPendientes.&#34;NOMBRE&#34;]"/>
<TfrxMemoView Name="Memo1" Left="220,73576008" Top="25" Width="85,03937008" Height="15" ShowHint="False" Color="13434828" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="0" Font.Height="-11" Font.Name="Tahoma" Font.Style="1" Frame.Typ="15" ParentFont="False" VAlign="vaCenter" Text="Fecha vto."/>
</TfrxGroupHeader>
<TfrxMasterData Name="DatosMaestros1" Height="17,00787402" Left="0" Top="312" Width="1009,13451" Columns="1" ColumnWidth="200" ColumnGap="20" DataSet="frxDBInformeListadoFacturasPendientes" DataSetName="frxDBInformeListadoFacturasPendientes" RowCount="0" Stretched="True">
<TfrxMemoView Name="Memo31" Left="718,59" Top="0" Width="154,9" 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" ParentFont="False" Text="[frxDBInformeListadoFacturasPendientes.&#34;IMPORTE_TOTAL&#34;] "/>
<TfrxMemoView Name="Memo4" Left="305,78" Top="0" Width="412,81" 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=" [frxDBInformeListadoFacturasPendientes.&#34;NOMBRE&#34;]"/>
<TfrxMemoView Name="Memo20" Left="873,49" Top="0" Width="135,5" 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=" [frxDBInformeListadoFacturasPendientes.&#34;SITUACION&#34;]"/>
<TfrxMemoView Name="Memo21" Left="135,7" Top="0" Width="85,04" 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=" [frxDBInformeListadoFacturasPendientes.&#34;FECHA_FACTURA&#34;]"/>
<TfrxMemoView Name="Memo18" Left="0" Top="0" Width="135,7" 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=" [frxDBInformeListadoFacturasPendientes.&#34;REFERENCIA&#34;]"/>
<TfrxMemoView Name="Memo5" Left="220,74" Top="0" Width="85,04" 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=" [frxDBInformeListadoFacturasPendientes.&#34;FECHA_VENCIMIENTO&#34;]"/>
</TfrxMasterData>
<TfrxGroupFooter Name="" Height="20,78740402" Left="0" Top="349" Width="1009,13451">
<TfrxMemoView Name="Memo6" Left="718,08687" Top="0,37774772" Width="154,9" Height="16" ShowHint="False" StretchMode="smMaxHeight" Color="13434828" DisplayFormat.DecimalSeparator="," DisplayFormat.FormatStr="#,0.00 €" 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;frxDBInformeListadoFacturasPendientes.&#34;IMPORTE_TOTAL&#34;&#62;,DatosMaestros1)] "/>
<TfrxMemoView Name="Memo14" Left="872,98687" Top="0,37774772" Width="135,5" Height="16" ShowHint="False" StretchMode="smMaxHeight" Color="13434828" DisplayFormat.DecimalSeparator="," DisplayFormat.FormatStr="#,0.00 €" 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=""/>
<TfrxMemoView Name="Memo53" Left="0" Top="0,37774772" Width="717,73228346" Height="16" ShowHint="False" StretchMode="smMaxHeight" Color="13434828" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="0" Font.Height="-11" Font.Name="Tahoma" Font.Style="1" Frame.Typ="13" HAlign="haRight" ParentFont="False" VAlign="vaCenter" Text="TOTALES [frxDBInformeListadoFacturasPendientes.&#34;TITULO&#34;]:"/>
</TfrxGroupFooter>
<TfrxGroupHeader Name="GroupHeader1" Height="20" Left="0" Top="212" Width="1009,13451" Condition="frxDBInformeListadoFacturasPendientes.&#34;MES&#34;">
<TfrxMemoView Name="Memo9" Left="0" Top="2" Width="485,37013" Height="15,11811024" ShowHint="False" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="16384" Font.Height="-12" Font.Name="Tahoma" Font.Style="1" Frame.Color="8421504" ParentFont="False" Text="[frxDBInformeListadoFacturasPendientes.&#34;TITULO&#34;]"/>
</TfrxGroupHeader>
<TfrxGroupFooter Name="GroupFooter1" Height="20" Left="0" Top="390" Width="1009,13451"/>
</TfrxReportPage>
</TfrxReport>

63
Source/Informes/9/InformeListadoFacturasProveedor.fr3 Normal file
View File

@ -0,0 +1,63 @@
<?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="40585,5409764699" 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="044C65667403990003546F70021008446174617365747301010C5000000020446174615365743D226672784442496E666F726D654C69737461646F46616374757261732220446174615365744E616D653D226672784442496E666F726D654C69737461646F46616374757261732200010C5E00000020446174615365743D226672784442496E666F726D654C69737461646F4661637475726173526573756D656E2220446174615365744E616D653D226672784442496E666F726D654C69737461646F4661637475726173526573756D656E220000095661726961626C657301010C13000000204E616D653D2220506172616D6574726F732200010C35000000204E616D653D22546578746F506172616D6574726F73222056616C75653D22262336303B4665636861496E6963696F262336323B220000055374796C650100">
<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="">
<TfrxPageHeader Name="Band1" Height="136,10235" Left="0" Top="16" Width="1009,13451" OnBeforePrint="Band1OnBeforePrint">
<TfrxLineView Name="Line1" Align="baLeft" Left="0" Top="129,10235" Width="312" Height="0" ShowHint="False" Frame.Color="32768" Frame.Typ="4" Frame.Width="4"/>
<TfrxShapeView Name="Shape5" Left="541" Top="8" Width="465" Height="122" ShowHint="False" Color="13434828" Frame.Width="0,1" Shape="skRoundRectangle"/>
<TfrxMemoView Name="NombreCliente" Left="544,85807" Top="13" Width="452" Height="16,88188" ShowHint="False" StretchMode="smMaxHeight" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="0" Font.Height="-13" Font.Name="Tahoma" Font.Style="1" HAlign="haRight" ParentFont="False" Text="LISTADO DE FACTURAS DE PROVEEDOR"/>
<TfrxMemoView Name="Memo3" Left="544,85807" Top="33" Width="452" Height="91" ShowHint="False" StretchMode="smMaxHeight" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="0" Font.Height="-12" Font.Name="Tahoma" Font.Style="0" HAlign="haRight" ParentFont="False" Text="Fecha del listado: [&#60;Date&#62;] - Página [Page#] de [TotalPages#]&#13;&#10;[TextoParametros]"/>
<TfrxPictureView Name="Logotipo" Left="0" Top="34" Width="80" Height="88" ShowHint="False" HightQuality="False"/>
<TfrxMemoView Name="DatosEmpresa" Left="80" Top="34" Width="232" Height="88" ShowHint="False" StretchMode="smMaxHeight" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="0" Font.Height="-11" Font.Name="Tahoma" Font.Style="0" ParentFont="False" Text=""/>
</TfrxPageHeader>
<TfrxPageFooter Name="" Height="23,77953" Left="0" Top="596" Width="1009,13451" PrintOnLastPage="False">
<TfrxMemoView Name="mContinua" Left="925,98485" Top="4,77953000000002" Width="81,08714" Height="16,77953" OnBeforePrint="mContinuaOnBeforePrint" ShowHint="False" StretchMode="smMaxHeight" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="16384" Font.Height="-12" Font.Name="Tahoma" Font.Style="0" HAlign="haRight" ParentFont="False" Text="Continúa ..."/>
</TfrxPageFooter>
<TfrxGroupHeader Name="" Height="40" Left="0" Restrictions="2" Top="212" Width="1009,13451" Condition="frxDBInformeListadoFacturas.&#34;MES&#34;" ReprintOnNewPage="True">
<TfrxMemoView Name="Memo27" Left="0" Top="25" Width="88,77953" Height="15" ShowHint="False" Color="13434828" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="0" Font.Height="-11" Font.Name="Tahoma" Font.Style="1" Frame.Typ="15" ParentFont="False" VAlign="vaCenter" Text="Nº factura"/>
<TfrxMemoView Name="Memo28" Left="256,92919" Top="25" Width="387,4094" Height="15" ShowHint="False" Color="13434828" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="0" Font.Height="-11" Font.Name="Tahoma" Font.Style="1" Frame.Typ="15" ParentFont="False" VAlign="vaCenter" Text=" Proveedor"/>
<TfrxMemoView Name="Memo49" Left="644" Top="25" Width="81,33859" Height="15" ShowHint="False" Color="13434828" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="0" Font.Height="-11" Font.Name="Tahoma" Font.Style="1" Frame.Typ="15" ParentFont="False" VAlign="vaCenter" Text="Situación"/>
<TfrxMemoView Name="Memo50" Left="724" Top="25" Width="95" Height="15" ShowHint="False" Color="13434828" DisplayFormat.DecimalSeparator="," 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="Base imponible"/>
<TfrxMemoView Name="Memo51" Left="818,57483" Top="25" Width="95" Height="15" ShowHint="False" Color="13434828" DisplayFormat.DecimalSeparator="," 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="Importe IVA"/>
<TfrxMemoView Name="Memo52" Left="913,35436" Top="25" Width="94,48818898" Height="15" ShowHint="False" Color="13434828" DisplayFormat.DecimalSeparator="," 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="Importe total"/>
<TfrxMemoView Name="Memo8" Left="88" Top="25" Width="85,03937008" Height="15" ShowHint="False" Color="13434828" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="0" Font.Height="-11" Font.Name="Tahoma" Font.Style="1" Frame.Typ="15" ParentFont="False" VAlign="vaCenter" Text="Fecha"/>
<TfrxMemoView Name="Memo7" Left="0" Top="2,77952999999999" Width="485,37013" Height="15,11811024" ShowHint="False" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="16384" Font.Height="-12" Font.Name="Tahoma" Font.Style="1" Frame.Color="8421504" ParentFont="False" Text="[frxDBInformeListadoFacturas.&#34;TITULO&#34;]"/>
<TfrxMemoView Name="Memo1" Left="172,85838" Top="25" Width="85,03937008" Height="15" ShowHint="False" Color="13434828" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="0" Font.Height="-11" Font.Name="Tahoma" Font.Style="1" Frame.Typ="15" ParentFont="False" VAlign="vaCenter" Text="Fecha vto."/>
</TfrxGroupHeader>
<TfrxMasterData Name="DatosMaestros1" Height="17,00787402" Left="0" Top="272" Width="1009,13451" Columns="1" ColumnWidth="200" ColumnGap="20" DataSet="frxDBInformeListadoFacturas" DataSetName="frxDBInformeListadoFacturas" RowCount="0">
<TfrxMemoView Name="Memo4" Left="257,59060732" Top="0" Width="386,8188415" 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="14" ParentFont="False" Text=" [frxDBInformeListadoFacturas.&#34;NOMBRE&#34;]"/>
<TfrxMemoView Name="Memo20" Left="644,40944882" Top="0" Width="79,748031496063" 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="[frxDBInformeListadoFacturas.&#34;SITUACION&#34;]"/>
<TfrxMemoView Name="Memo21" Left="88,06299213" Top="0" Width="85,0393652" 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=" [frxDBInformeListadoFacturas.&#34;FECHA_FACTURA&#34;]"/>
<TfrxMemoView Name="Memo18" Left="0" Top="0" Width="88,0629921259843" 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=" [frxDBInformeListadoFacturas.&#34;REFERENCIA&#34;]"/>
<TfrxMemoView Name="Memo29" Left="724,15748031" Top="0" Width="94,48818898" 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" ParentFont="False" Text="[frxDBInformeListadoFacturas.&#34;BASE_IMPONIBLE&#34;]"/>
<TfrxMemoView Name="Memo30" Left="818,26771654" Top="0" Width="95,24409449" 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" ParentFont="False" Text="[frxDBInformeListadoFacturas.&#34;IMPORTE_IVA&#34;]"/>
<TfrxMemoView Name="Memo31" Left="912,75590551" Top="0" Width="94,64276" 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="14" HAlign="haRight" ParentFont="False" Text="[frxDBInformeListadoFacturas.&#34;IMPORTE_TOTAL&#34;]"/>
<TfrxMemoView Name="Memo5" Left="172,85838" Top="0" Width="85,0393652" 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" HideZeros="True" ParentFont="False" Text=" [frxDBInformeListadoFacturas.&#34;FECHA_VENCIMIENTO&#34;]"/>
</TfrxMasterData>
<TfrxGroupFooter Name="" Height="20,78740402" Left="0" Top="309" Width="1009,13451">
<TfrxMemoView Name="Memo53" Left="0" Top="0,377747720000002" Width="723,77952756" Height="16" ShowHint="False" StretchMode="smMaxHeight" Color="13434828" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="0" Font.Height="-11" Font.Name="Tahoma" Font.Style="1" Frame.Typ="13" HAlign="haRight" ParentFont="False" VAlign="vaCenter" Text="TOTALES [frxDBInformeListadoFacturas.&#34;TITULO&#34;]:"/>
<TfrxMemoView Name="Memo6" Left="913,51181102" Top="0,377747720000002" Width="94,48818898" Height="16" ShowHint="False" StretchMode="smMaxHeight" Color="13434828" DisplayFormat.DecimalSeparator="," DisplayFormat.FormatStr="#,0.00 €" 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;frxDBInformeListadoFacturas.&#34;IMPORTE_TOTAL&#34;&#62;,DatosMaestros1)]"/>
<TfrxMemoView Name="Memo14" Left="817,13385827" Top="0,377747720000002" Width="96,3779527559055" Height="16" ShowHint="False" StretchMode="smMaxHeight" Color="13434828" DisplayFormat.DecimalSeparator="," DisplayFormat.FormatStr="#,0.00 €" 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;frxDBInformeListadoFacturas.&#34;IMPORTE_IVA&#34;&#62;,DatosMaestros1)]"/>
<TfrxMemoView Name="Memo15" Left="724,15748031" Top="0,377747720000002" Width="94,1102362204724" Height="16" ShowHint="False" StretchMode="smMaxHeight" Color="13434828" DisplayFormat.DecimalSeparator="," DisplayFormat.FormatStr="#,0.00 €" 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;frxDBInformeListadoFacturas.&#34;BASE_IMPONIBLE&#34;&#62;,DatosMaestros1)]"/>
</TfrxGroupFooter>
<TfrxMasterData Name="DatosMaestros2" Height="17,00787402" Left="0" Top="446" Width="1009,13451" ColumnWidth="0" ColumnGap="0" DataSet="frxDBInformeListadoFacturasResumen" DataSetName="frxDBInformeListadoFacturasResumen" RowCount="0">
<TfrxMemoView Name="Memo9" Left="0" Top="0" Width="381,63" Height="17,00787402" ShowHint="False" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="16384" Font.Height="-12" Font.Name="Tahoma" Font.Style="1" Frame.Typ="13" ParentFont="False" Text="[frxDBInformeListadoFacturasResumen.&#34;TITULO&#34;]"/>
<TfrxMemoView Name="Memo10" Left="381,65368" Top="0" Width="94,48818898" 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" ParentFont="False" Text="[frxDBInformeListadoFacturasResumen.&#34;BASE_IMPONIBLE&#34;]"/>
<TfrxMemoView Name="Memo11" Left="476,3624" Top="0" Width="95,24409449" 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" ParentFont="False" Text="[frxDBInformeListadoFacturasResumen.&#34;IMPORTE_IVA&#34;]"/>
<TfrxMemoView Name="Memo12" Left="571,09" Top="0" Width="94,49" 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" ParentFont="False" Text="[frxDBInformeListadoFacturasResumen.&#34;IMPORTE_TOTAL&#34;]"/>
</TfrxMasterData>
<TfrxHeader Name="Header1" Height="75,59055118" Left="0" Top="350" Width="1009,13451">
<TfrxMemoView Name="Memo13" Align="baBottom" Left="0" Top="60,59055118" Width="381,62987" Height="15" ShowHint="False" Color="13434828" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="0" Font.Height="-11" Font.Name="Tahoma" Font.Style="1" Frame.Typ="15" ParentFont="False" VAlign="vaCenter" Text="Resumen por meses de facturas de proveedor"/>
<TfrxMemoView Name="Memo16" Align="baBottom" Left="381,73253" Top="60,59055118" Width="95" Height="15" ShowHint="False" Color="13434828" DisplayFormat.DecimalSeparator="," 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="Base imponible"/>
<TfrxMemoView Name="Memo17" Align="baBottom" Left="476,30736" Top="60,59055118" Width="95" Height="15" ShowHint="False" Color="13434828" DisplayFormat.DecimalSeparator="," 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="Importe IVA"/>
<TfrxMemoView Name="Memo22" Align="baBottom" Left="571,08689" Top="60,59055118" Width="94,48818898" Height="15" ShowHint="False" Color="13434828" DisplayFormat.DecimalSeparator="," 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="Importe total"/>
<TfrxMemoView Name="Memo23" Left="0" Top="30,23624" Width="485,37013" Height="15,11811024" ShowHint="False" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="16384" Font.Height="-12" Font.Name="Tahoma" Font.Style="1" Frame.Color="8421504" ParentFont="False" Text="Resumen por meses de las facturas de proveedor"/>
</TfrxHeader>
<TfrxReportSummary Name="ReportSummary1" Height="52,91342" Left="0" Top="523" Width="1009,13451">
<TfrxMemoView Name="Memo24" Left="0" Top="0,118119999999976" Width="383,62987" Height="15" ShowHint="False" Color="13434828" DisplayFormat.DecimalSeparator="," 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="Total: "/>
<TfrxMemoView Name="Memo25" Left="381,73253" Top="0,118119999999976" Width="95" Height="15" ShowHint="False" Color="13434828" 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;frxDBInformeListadoFacturasResumen.&#34;BASE_IMPONIBLE&#34;&#62;,DatosMaestros2)]"/>
<TfrxMemoView Name="Memo26" Left="476,30736" Top="0,118119999999976" Width="95" Height="15" ShowHint="False" Color="13434828" 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;frxDBInformeListadoFacturasResumen.&#34;IMPORTE_IVA&#34;&#62;,DatosMaestros2)]"/>
<TfrxMemoView Name="Memo32" Left="571,08689" Top="0,118119999999976" Width="94,48818898" Height="15" ShowHint="False" Color="13434828" 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;frxDBInformeListadoFacturasResumen.&#34;IMPORTE_TOTAL&#34;&#62;,DatosMaestros2)]"/>
</TfrxReportSummary>
</TfrxReportPage>
</TfrxReport>

70
Source/Informes/9/InformeListadoFacturasProveedorDesglosado.fr3 Normal file
View File

@ -0,0 +1,70 @@
<?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="40585,5411662616" ScriptLanguage="PascalScript" ScriptText.Text="procedure frxReportOnStartReport(Sender: TfrxComponent);&#13;&#10;begin&#13;&#10; Set('Pagina', 0);&#13;&#10; Set('TotalPaginas', 0); &#13;&#10;end;&#13;&#10;&#13;&#10;procedure Band1OnBeforePrint(Sender: TfrxComponent);&#13;&#10;begin&#13;&#10; if not Engine.FinalPass then&#13;&#10; Set('TotalPaginas', (&#60;TotalPaginas&#62; + 1));&#13;&#10;&#13;&#10; if Engine.FinalPass then&#13;&#10; Set('Pagina', (&#60;Pagina&#62; + 1)); &#13;&#10;end;&#13;&#10;&#13;&#10;procedure mContinuaOnBeforePrint(Sender: TfrxComponent);&#13;&#10;begin&#13;&#10; if Engine.FinalPass then&#13;&#10; begin&#13;&#10; //A la vez que salta este salta la asignacion de pagina por lo que no coincide nunca si no suponemos +1 &#13;&#10; if ((&#60;Pagina&#62; + 1) = &#60;TotalPaginas&#62;) then&#13;&#10; begin &#13;&#10; mContinua.Visible := True;&#13;&#10; end &#13;&#10; else&#13;&#10; begin &#13;&#10; mContinua.Visible := False;&#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="044C65667403990003546F70021008446174617365747301010C5000000020446174615365743D226672784442496E666F726D654C69737461646F46616374757261732220446174615365744E616D653D226672784442496E666F726D654C69737461646F46616374757261732200010C5E00000020446174615365743D226672784442496E666F726D654C69737461646F4661637475726173526573756D656E2220446174615365744E616D653D226672784442496E666F726D654C69737461646F4661637475726173526573756D656E220000095661726961626C657301010C13000000204E616D653D2220506167696E6163696F6E2200010C0E000000204E616D653D22506167696E612200010C14000000204E616D653D22546F74616C506167696E61732200010C11000000204E616D653D2220506572696F646F732200010C31000000204E616D653D224665636861496E6963696F222056616C75653D22262336303B4665636861496E6963696F262336323B2200010C10000000204E616D653D22466563686146696E220000055374796C650100">
<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="">
<TfrxPageHeader Name="Band1" Height="136,10235" Left="0" Top="16" Width="1009,13451" OnBeforePrint="Band1OnBeforePrint">
<TfrxShapeView Name="Shape5" Left="468,14193" Top="37,10235" Width="495" Height="99" ShowHint="False" Color="13434828" Shape="skRoundRectangle"/>
<TfrxPictureView Name="Logotipo" Left="0" Top="37,10235" Width="80" Height="88" ShowHint="False" HightQuality="False"/>
<TfrxMemoView Name="DatosEmpresa" Left="80" Top="37,10235" Width="232" Height="88" ShowHint="False" StretchMode="smMaxHeight" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="0" Font.Height="-11" Font.Name="Tahoma" Font.Style="0" ParentFont="False" Text=""/>
<TfrxMemoView Name="NombreCliente" Left="474" Top="44,10235" Width="481" Height="32" ShowHint="False" StretchMode="smMaxHeight" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="0" Font.Height="-13" Font.Name="Tahoma" Font.Style="1" HAlign="haRight" ParentFont="False" Text="LISTADO DE FACTURAS DE PROVEEDOR"/>
<TfrxMemoView Name="CabParametros" Left="475" Top="96,10235" Width="481" Height="16" ShowHint="False" StretchMode="smMaxHeight" DisplayFormat.DecimalSeparator="," DisplayFormat.FormatStr="dd/mm/yyyy" DisplayFormat.Kind="fkDateTime" Font.Charset="1" Font.Color="0" Font.Height="-12" Font.Name="Tahoma" Font.Style="0" Frame.Width="0,100000001490116" HAlign="haRight" ParentFont="False" Text="Desde [&#60;FechaInicio&#62;] hasta [&#60;FechaFin&#62;]"/>
<TfrxMemoView Name="Memo3" Left="475" Top="78,10235" Width="479" Height="16" ShowHint="False" StretchMode="smMaxHeight" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="0" Font.Height="-12" Font.Name="Tahoma" Font.Style="0" HAlign="haRight" ParentFont="False" Text="Fecha del listado: [&#60;Date&#62;]"/>
<TfrxLineView Name="Line1" Align="baLeft" Left="0" Top="129,10235" Width="312" Height="0" ShowHint="False" Frame.Color="32768" Frame.Typ="4" Frame.Width="4"/>
<TfrxMemoView Name="Memo19" Left="473,63822" Top="113,3859" Width="481,85034" Height="17,00787402" ShowHint="False" DataSet="frxDBCabecera" DataSetName="frxDBCabecera" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="0" Font.Height="-12" Font.Name="Tahoma" Font.Style="0" Frame.Color="13056" HAlign="haRight" ParentFont="False" Text="Página [&#60;Pagina&#62;] de [&#60;TotalPaginas&#62;]"/>
</TfrxPageHeader>
<TfrxPageFooter Name="" Height="23,77953" Left="0" Top="674" Width="1009,13451" PrintOnLastPage="False">
<TfrxMemoView Name="mContinua" Left="925,98485" Top="4,77953" Width="81,08714" Height="16,77953" OnBeforePrint="mContinuaOnBeforePrint" ShowHint="False" StretchMode="smMaxHeight" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="16384" Font.Height="-12" Font.Name="Tahoma" Font.Style="0" HAlign="haRight" ParentFont="False" Text="Continúa ..."/>
</TfrxPageFooter>
<TfrxGroupHeader Name="" Height="40" Left="0" Restrictions="2" Top="255" Width="1009,13451" Condition="frxDBInformeListadoFacturas.&#34;NOMBRE&#34;" ReprintOnNewPage="True">
<TfrxMemoView Name="Memo27" Left="0" Top="25" Width="88,77953" Height="15" ShowHint="False" Color="13434828" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="0" Font.Height="-11" Font.Name="Tahoma" Font.Style="1" Frame.Typ="15" ParentFont="False" VAlign="vaCenter" Text="Nº factura"/>
<TfrxMemoView Name="Memo28" Left="258,48825" Top="25" Width="385,85034" Height="15" ShowHint="False" Color="13434828" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="0" Font.Height="-11" Font.Name="Tahoma" Font.Style="1" Frame.Typ="15" ParentFont="False" VAlign="vaCenter" Text="Proveedor"/>
<TfrxMemoView Name="Memo49" Left="644" Top="25" Width="81,33859" Height="15" ShowHint="False" Color="13434828" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="0" Font.Height="-11" Font.Name="Tahoma" Font.Style="1" Frame.Typ="15" ParentFont="False" VAlign="vaCenter" Text="Situación"/>
<TfrxMemoView Name="Memo50" Left="724" Top="25" Width="95" Height="15" ShowHint="False" Color="13434828" DisplayFormat.DecimalSeparator="," 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="Base imponible"/>
<TfrxMemoView Name="Memo51" Left="818,57483" Top="25" Width="95" Height="15" ShowHint="False" Color="13434828" DisplayFormat.DecimalSeparator="," 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="Importe IVA"/>
<TfrxMemoView Name="Memo52" Left="913,35436" Top="25" Width="94,488188976378" Height="15" ShowHint="False" Color="13434828" DisplayFormat.DecimalSeparator="," 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="Importe total"/>
<TfrxMemoView Name="Memo8" Left="88" Top="25" Width="85,03937008" Height="15" ShowHint="False" Color="13434828" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="0" Font.Height="-11" Font.Name="Tahoma" Font.Style="1" Frame.Typ="15" ParentFont="False" VAlign="vaCenter" Text="Fecha"/>
<TfrxMemoView Name="Memo7" Left="15,11812" Top="2,77953" Width="485,37013" Height="15,11811024" ShowHint="False" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="16384" Font.Height="-12" Font.Name="Tahoma" Font.Style="1" Frame.Color="8421504" ParentFont="False" Text="[frxDBInformeListadoFacturas.&#34;NOMBRE&#34;]"/>
<TfrxMemoView Name="Memo1" Left="172,63791" Top="24,67718" Width="85,03937008" Height="15" ShowHint="False" Color="13434828" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="0" Font.Height="-11" Font.Name="Tahoma" Font.Style="1" Frame.Typ="15" ParentFont="False" VAlign="vaCenter" Text="Fecha vto."/>
</TfrxGroupHeader>
<TfrxMasterData Name="DatosMaestros1" Height="17,00787402" Left="0" Top="315" Width="1009,13451" Columns="1" ColumnWidth="200" ColumnGap="20" DataSet="frxDBInformeListadoFacturas" DataSetName="frxDBInformeListadoFacturas" RowCount="0">
<TfrxMemoView Name="Memo4" Left="258,14966732" Top="0" Width="386,2597815" 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=" [frxDBInformeListadoFacturas.&#34;NOMBRE&#34;]"/>
<TfrxMemoView Name="Memo20" Left="644,40944882" Top="0" Width="79,748031496063" 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="[frxDBInformeListadoFacturas.&#34;SITUACION&#34;]"/>
<TfrxMemoView Name="Memo21" Left="88,06299213" Top="0" Width="85,0393652" 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=" [frxDBInformeListadoFacturas.&#34;FECHA_FACTURA&#34;]"/>
<TfrxMemoView Name="Memo18" Left="0" Top="0" Width="88,0629921259843" 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=" [frxDBInformeListadoFacturas.&#34;REFERENCIA&#34;]"/>
<TfrxMemoView Name="Memo29" Left="724,15748031" Top="0" Width="94,488188976378" 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" ParentFont="False" Text="[frxDBInformeListadoFacturas.&#34;BASE_IMPONIBLE&#34;]"/>
<TfrxMemoView Name="Memo30" Left="818,26771654" Top="0" Width="95,244094488189" 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" ParentFont="False" Text="[frxDBInformeListadoFacturas.&#34;IMPORTE_IVA&#34;]"/>
<TfrxMemoView Name="Memo31" Left="912,755905511811" Top="0" Width="94,64276" 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" ParentFont="False" Text="[frxDBInformeListadoFacturas.&#34;IMPORTE_TOTAL&#34;]"/>
<TfrxMemoView Name="Memo5" Left="172,85838" Top="0" Width="85,0393652" 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=" [frxDBInformeListadoFacturas.&#34;FECHA_VENCIMIENTO&#34;]"/>
</TfrxMasterData>
<TfrxGroupFooter Name="" Height="20,78740402" Left="0" Top="352" Width="1009,13451">
<TfrxMemoView Name="Memo53" Left="0" Top="0,37774772" Width="723,77952756" Height="16" ShowHint="False" StretchMode="smMaxHeight" Color="13434828" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="0" Font.Height="-11" Font.Name="Tahoma" Font.Style="1" Frame.Typ="13" HAlign="haRight" ParentFont="False" VAlign="vaCenter" Text="TOTALES [frxDBInformeListadoFacturas.&#34;TITULO&#34;]:"/>
<TfrxMemoView Name="Memo6" Left="913,511811023622" Top="0,37774772" Width="94,48818898" Height="16" ShowHint="False" StretchMode="smMaxHeight" Color="13434828" DisplayFormat.DecimalSeparator="," DisplayFormat.FormatStr="#,0.00 €" 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;frxDBInformeListadoFacturas.&#34;IMPORTE_TOTAL&#34;&#62;,DatosMaestros1)]"/>
<TfrxMemoView Name="Memo14" Left="817,13385827" Top="0,37774772" Width="96,3779527559055" Height="16" ShowHint="False" StretchMode="smMaxHeight" Color="13434828" DisplayFormat.DecimalSeparator="," DisplayFormat.FormatStr="#,0.00 €" 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;frxDBInformeListadoFacturas.&#34;IMPORTE_IVA&#34;&#62;,DatosMaestros1)]"/>
<TfrxMemoView Name="Memo15" Left="724,15748031" Top="0,37774772" Width="94,1102362204724" Height="16" ShowHint="False" StretchMode="smMaxHeight" Color="13434828" DisplayFormat.DecimalSeparator="," DisplayFormat.FormatStr="#,0.00 €" 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;frxDBInformeListadoFacturas.&#34;BASE_IMPONIBLE&#34;&#62;,DatosMaestros1)]"/>
</TfrxGroupFooter>
<TfrxHeader Name="Header1" Height="75,59055118" Left="0" Top="428" Width="1009,13451">
<TfrxMemoView Name="Memo13" Align="baBottom" Left="0" Top="60,59055118" Width="383,62987" Height="15" ShowHint="False" Color="13434828" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="0" Font.Height="-11" Font.Name="Tahoma" Font.Style="1" Frame.Typ="15" ParentFont="False" VAlign="vaCenter" Text="Resumen por meses de facturas de proveedor"/>
<TfrxMemoView Name="Memo16" Align="baBottom" Left="381,73253" Top="60,59055118" Width="95" Height="15" ShowHint="False" Color="13434828" DisplayFormat.DecimalSeparator="," 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="Base imponible"/>
<TfrxMemoView Name="Memo17" Align="baBottom" Left="476,30736" Top="60,59055118" Width="95" Height="15" ShowHint="False" Color="13434828" DisplayFormat.DecimalSeparator="," 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="Importe IVA"/>
<TfrxMemoView Name="Memo22" Align="baBottom" Left="571,08689" Top="60,59055118" Width="94,48818898" Height="15" ShowHint="False" Color="13434828" DisplayFormat.DecimalSeparator="," 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="Importe total"/>
<TfrxMemoView Name="Memo23" Left="7,55906" Top="26,45671" Width="485,37013" Height="15,11811024" ShowHint="False" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="16384" Font.Height="-12" Font.Name="Tahoma" Font.Style="1" Frame.Color="8421504" ParentFont="False" Text="Resumen por meses de las facturas de proveedor"/>
</TfrxHeader>
<TfrxMasterData Name="DatosMaestros2" Height="17,007874015748" Left="0" Top="524" Width="1009,13451" ColumnWidth="0" ColumnGap="0" DataSet="frxDBInformeListadoFacturasResumen" DataSetName="frxDBInformeListadoFacturasResumen" RowCount="0">
<TfrxMemoView Name="Memo9" Left="0" Top="0" Width="382,32282" Height="17,00787402" ShowHint="False" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="16384" Font.Height="-12" Font.Name="Tahoma" Font.Style="1" Frame.Color="8421504" Frame.Typ="15" ParentFont="False" Text="[frxDBInformeListadoFacturasResumen.&#34;TITULO&#34;]"/>
<TfrxMemoView Name="Memo10" Left="381,65368" Top="0" Width="94,48818898" 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" ParentFont="False" Text="[frxDBInformeListadoFacturasResumen.&#34;BASE_IMPONIBLE&#34;]"/>
<TfrxMemoView Name="Memo11" Left="476,3624" Top="0" Width="95,24409449" 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" ParentFont="False" Text="[frxDBInformeListadoFacturasResumen.&#34;IMPORTE_IVA&#34;]"/>
<TfrxMemoView Name="Memo12" Left="571,63018" Top="0" Width="94,64276" 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" ParentFont="False" Text="[frxDBInformeListadoFacturasResumen.&#34;IMPORTE_TOTAL&#34;]"/>
</TfrxMasterData>
<TfrxReportSummary Name="ReportSummary1" Height="52,9133858267717" Left="0" Top="601" Width="1009,13451">
<TfrxMemoView Name="Memo2" Align="baRight" Left="938,13451" Top="16,03896" Width="71" Height="13" OnBeforePrint="Memo2OnBeforePrint" ShowHint="False" StretchMode="smMaxHeight" Font.Charset="1" Font.Color="0" Font.Height="-9" Font.Name="Tahoma" Font.Style="0" HAlign="haRight" ParentFont="False" VAlign="vaCenter" Text=""/>
<TfrxMemoView Name="Memo24" Left="0" Top="0" Width="383,62987" Height="15" ShowHint="False" Color="13434828" DisplayFormat.DecimalSeparator="," 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="Total: "/>
<TfrxMemoView Name="Memo26" Left="476,30736" Top="0" Width="95" Height="15" ShowHint="False" Color="13434828" 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;frxDBInformeListadoFacturasResumen.&#34;IMPORTE_IVA&#34;&#62;,DatosMaestros2)]"/>
<TfrxMemoView Name="Memo32" Left="571,08689" Top="0" Width="94,48818898" Height="15" ShowHint="False" Color="13434828" 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;frxDBInformeListadoFacturasResumen.&#34;IMPORTE_TOTAL&#34;&#62;,DatosMaestros2)]"/>
<TfrxMemoView Name="Memo25" Left="381,73253" Top="0" Width="95" Height="15" ShowHint="False" Color="13434828" 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;frxDBInformeListadoFacturasResumen.&#34;BASE_IMPONIBLE&#34;&#62;,DatosMaestros2)]"/>
</TfrxReportSummary>
<TfrxGroupHeader Name="GroupHeader1" Height="22,67718" Left="0" Top="212" Width="1009,13451" Condition="frxDBInformeListadoFacturas.&#34;MES&#34;">
<TfrxMemoView Name="Memo33" Left="7,55906" Top="3,77953" Width="485,37013" Height="15,11811024" ShowHint="False" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="16384" Font.Height="-12" Font.Name="Tahoma" Font.Style="1" Frame.Color="8421504" ParentFont="False" Text="[frxDBInformeListadoFacturas.&#34;TITULO&#34;]"/>
</TfrxGroupHeader>
<TfrxGroupFooter Name="GroupFooter1" Height="15,11812" Left="0" Top="393" Width="1009,13451"/>
</TfrxReportPage>
</TfrxReport>

71
Source/Informes/9/InformeListadoFacturasProveedorGrafComp.fr3 Normal file
View File

File diff suppressed because one or more lines are too long

55
Source/Informes/9/InformeListadoFacturasProveedorPendientes.fr3 Normal file
View File

@ -0,0 +1,55 @@
<?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="40585,5413202546" 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;procedure Memo10OnBeforePrint(Sender: TfrxComponent);&#13;&#10;var&#13;&#10; ACadena : String; &#13;&#10;begin&#13;&#10; ACadena := &#60;frxDBInformeListadoFacturasPendientes.&#34;DATOS_BANCARIOS&#34;&#62;; &#13;&#10; if Pos('Nº de cuenta: ', ACadena) &#62; 0 then&#13;&#10; begin&#13;&#10; Delete(ACadena, 1, 14);&#13;&#10; Memo10.Lines.Text := ' ' + ACadena; &#13;&#10; end;&#13;&#10;end; &#13;&#10;&#13;&#10;procedure Memo11OnBeforePrint(Sender: TfrxComponent);&#13;&#10;var&#13;&#10; ACadena : String; &#13;&#10;begin&#13;&#10; ACadena := &#60;frxDBInformeListadoFacturasPendResumen.&#34;DATOS_BANCARIOS&#34;&#62;; &#13;&#10; if Pos('Nº de cuenta: ', ACadena) &#62; 0 then&#13;&#10; begin&#13;&#10; Delete(ACadena, 1, 14);&#13;&#10; Memo11.Lines.Text := ' ' + ACadena; &#13;&#10; end;&#13;&#10;end;&#13;&#10;&#13;&#10;begin&#13;&#10;&#13;&#10;end." ShowProgress="False" StoreInDFM="False" OnStartReport="frxReportOnStartReport" PropData="044C65667403990003546F70021008446174617365747301010C6400000020446174615365743D226672784442496E666F726D654C69737461646F466163747572617350656E6469656E7465732220446174615365744E616D653D226672784442496E666F726D654C69737461646F466163747572617350656E6469656E7465732200010C6600000020446174615365743D226672784442496E666F726D654C69737461646F466163747572617350656E64526573756D656E2220446174615365744E616D653D226672784442496E666F726D654C69737461646F466163747572617350656E64526573756D656E220000095661726961626C657301010C13000000204E616D653D2220506167696E6163696F6E2200010C0E000000204E616D653D22506167696E612200010C14000000204E616D653D22546F74616C506167696E61732200010C13000000204E616D653D2220506172616D6574726F732200010C17000000204E616D653D22546578746F506172616D6574726F73220000055374796C650100">
<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="">
<TfrxPageHeader Name="Band1" Height="151,1" Left="0" Top="16" Width="1009,13451" OnBeforePrint="Band1OnBeforePrint">
<TfrxShapeView Name="Shape5" Left="544" Top="14,1" Width="465" Height="122" ShowHint="False" Color="13434828" Shape="skRoundRectangle"/>
<TfrxPictureView Name="Logotipo" Left="0" Top="37,10235" Width="80" Height="88" ShowHint="False" HightQuality="False"/>
<TfrxMemoView Name="DatosEmpresa" Left="80" Top="37,10235" Width="232" Height="88" ShowHint="False" StretchMode="smMaxHeight" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="0" Font.Height="-11" Font.Name="Tahoma" Font.Style="0" ParentFont="False" Text=""/>
<TfrxMemoView Name="NombreCliente" Left="554" Top="20,10235" Width="447" Height="17" ShowHint="False" StretchMode="smMaxHeight" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="0" Font.Height="-13" Font.Name="Tahoma" Font.Style="1" HAlign="haRight" ParentFont="False" Text="LISTADO DE FACTURAS DE PROVEEDOR PENDIENTES"/>
<TfrxLineView Name="Line1" Align="baLeft" Left="0" Top="129,10235" Width="312" Height="0" ShowHint="False" Frame.Color="32768" Frame.Typ="4" Frame.Width="4"/>
<TfrxMemoView Name="Memo3" Left="550" Top="40" Width="452" Height="91" ShowHint="False" StretchMode="smMaxHeight" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="0" Font.Height="-12" Font.Name="Tahoma" Font.Style="0" HAlign="haRight" ParentFont="False" Text="Fecha del listado: [&#60;Date&#62;] - Página [Page#] de [TotalPages#]&#13;&#10;[TextoParametros]"/>
</TfrxPageHeader>
<TfrxPageFooter Name="" Height="23,77953" Left="0" Top="544" Width="1009,13451" PrintOnLastPage="False">
<TfrxMemoView Name="mContinua" Left="925,98485" Top="4,77953" Width="81,08714" Height="16,77953" OnBeforePrint="mContinuaOnBeforePrint" ShowHint="False" StretchMode="smMaxHeight" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="16384" Font.Height="-12" Font.Name="Tahoma" Font.Style="0" HAlign="haRight" ParentFont="False" Text="Continúa ..."/>
<TfrxMemoView Name="Memo2" Align="baRight" Left="938,13451" Top="5" Width="71" Height="13" OnBeforePrint="Memo2OnBeforePrint" ShowHint="False" StretchMode="smMaxHeight" Font.Charset="1" Font.Color="0" Font.Height="-9" Font.Name="Tahoma" Font.Style="0" HAlign="haRight" ParentFont="False" VAlign="vaCenter" Text=""/>
</TfrxPageFooter>
<TfrxGroupHeader Name="" Height="40" Left="0" Restrictions="2" Top="227" Width="1009,13451" Condition="frxDBInformeListadoFacturasPendientes.&#34;MES&#34;" ReprintOnNewPage="True">
<TfrxMemoView Name="Memo52" Left="837,79506079" Top="25" Width="100" Height="15" ShowHint="False" Color="13434828" DisplayFormat.DecimalSeparator="," 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="Importe total"/>
<TfrxMemoView Name="Memo27" Left="0" Top="25" Width="97,88976378" Height="15" ShowHint="False" Color="13434828" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="0" Font.Height="-11" Font.Name="Tahoma" Font.Style="1" Frame.Typ="15" ParentFont="False" VAlign="vaCenter" Text="Nº factura"/>
<TfrxMemoView Name="Memo28" Left="247,96850394" Top="25" Width="250" Height="15" ShowHint="False" Color="13434828" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="0" Font.Height="-11" Font.Name="Tahoma" Font.Style="1" Frame.Typ="15" ParentFont="False" VAlign="vaCenter" Text="Proveedor"/>
<TfrxMemoView Name="Memo49" Left="937,9997852" Top="25" Width="70" Height="15" ShowHint="False" Color="13434828" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="0" Font.Height="-11" Font.Name="Tahoma" Font.Style="1" Frame.Typ="15" ParentFont="False" VAlign="vaCenter" Text="Situación"/>
<TfrxMemoView Name="Memo8" Left="97,88976378" Top="25" Width="75" Height="15" ShowHint="False" Color="13434828" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="0" Font.Height="-11" Font.Name="Tahoma" Font.Style="1" Frame.Typ="15" ParentFont="False" VAlign="vaCenter" Text="Fecha"/>
<TfrxMemoView Name="Memo7" Left="0" Top="2,77953" Width="485,37013" Height="15,11811024" ShowHint="False" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="16384" Font.Height="-12" Font.Name="Tahoma" Font.Style="1" Frame.Color="8421504" ParentFont="False" Text="[frxDBInformeListadoFacturasPendientes.&#34;TITULO&#34;]"/>
<TfrxMemoView Name="Memo1" Left="172,92913386" Top="25" Width="75" Height="15" ShowHint="False" Color="13434828" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="0" Font.Height="-11" Font.Name="Tahoma" Font.Style="1" Frame.Typ="15" ParentFont="False" VAlign="vaCenter" Text="Fecha vto."/>
<TfrxMemoView Name="Memo9" Left="497,33070866" Top="25" Width="340,5" Height="15" ShowHint="False" Color="13434828" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="0" Font.Height="-11" Font.Name="Tahoma" Font.Style="1" Frame.Typ="15" ParentFont="False" VAlign="vaCenter" Text="Domiciliación"/>
</TfrxGroupHeader>
<TfrxMasterData Name="DatosMaestros1" Height="17,00787402" Left="0" Top="287" Width="1009,13451" Columns="1" ColumnWidth="200" ColumnGap="20" DataSet="frxDBInformeListadoFacturasPendientes" DataSetName="frxDBInformeListadoFacturasPendientes" RowCount="0" Stretched="True">
<TfrxMemoView Name="Memo31" Align="baBottom" Left="837,85150599" 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" ParentFont="False" Text="[frxDBInformeListadoFacturasPendientes.&#34;IMPORTE_TOTAL&#34;] "/>
<TfrxMemoView Name="Memo4" Align="baBottom" Left="247,97" Top="0" Width="250" 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="13" ParentFont="False" Text=" [frxDBInformeListadoFacturasPendientes.&#34;NOMBRE&#34;]"/>
<TfrxMemoView Name="Memo20" Align="baBottom" Left="938" Top="0" Width="70" Height="17,00787402" ShowHint="False" StretchMode="smMaxHeight" Color="16777215" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="16384" Font.Height="-12" Font.Name="Tahoma" Font.Style="0" Frame.Typ="15" ParentFont="False" Text="[frxDBInformeListadoFacturasPendientes.&#34;SITUACION&#34;]"/>
<TfrxMemoView Name="Memo21" Align="baBottom" Left="97,92913386" Top="0" Width="75" 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="13" ParentFont="False" Text=" [frxDBInformeListadoFacturasPendientes.&#34;FECHA_FACTURA&#34;]"/>
<TfrxMemoView Name="Memo18" Align="baBottom" Left="0" Top="0" Width="97,92913386" 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=" [frxDBInformeListadoFacturasPendientes.&#34;REFERENCIA&#34;]"/>
<TfrxMemoView Name="Memo5" Align="baBottom" Left="173,52143386" Top="0" Width="75" 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="13" ParentFont="False" Text=" [frxDBInformeListadoFacturasPendientes.&#34;FECHA_VENCIMIENTO&#34;]"/>
<TfrxMemoView Name="Memo10" Align="baBottom" Left="497,33" Top="0" Width="340,5" Height="17,00787402" OnBeforePrint="Memo10OnBeforePrint" ShowHint="False" StretchMode="smActualHeight" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="16384" Font.Height="-12" Font.Name="Tahoma" Font.Style="0" Frame.Typ="15" ParentFont="False" Text=" [frxDBInformeListadoFacturasPendientes.&#34;DATOS_BANCARIOS&#34;]"/>
</TfrxMasterData>
<TfrxGroupFooter Name="" Height="20,78740402" Left="0" Top="324" Width="1009,13451">
<TfrxMemoView Name="Memo53" Left="0" Top="0,37774772" Width="837,33865346" Height="16" ShowHint="False" StretchMode="smMaxHeight" Color="13434828" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="0" Font.Height="-11" Font.Name="Tahoma" Font.Style="1" Frame.Typ="13" HAlign="haRight" ParentFont="False" VAlign="vaCenter" Text="TOTALES [frxDBInformeListadoFacturasPendientes.&#34;TITULO&#34;]:"/>
<TfrxMemoView Name="Memo6" Left="837,35465" Top="0,37774772" Width="100" Height="16" ShowHint="False" StretchMode="smMaxHeight" Color="13434828" DisplayFormat.DecimalSeparator="," DisplayFormat.FormatStr="#,0.00 €" DisplayFormat.Kind="fkNumeric" Font.Charset="1" Font.Color="0" Font.Height="-11" Font.Name="Tahoma" Font.Style="1" Frame.Typ="13" HAlign="haRight" ParentFont="False" VAlign="vaCenter" Text="[SUM(&#60;frxDBInformeListadoFacturasPendientes.&#34;IMPORTE_TOTAL&#34;&#62;,DatosMaestros1)] "/>
<TfrxMemoView Name="Memo14" Left="938" Top="0,37774772" Width="70" Height="16" ShowHint="False" StretchMode="smMaxHeight" Color="13434828" DisplayFormat.DecimalSeparator="," DisplayFormat.FormatStr="#,0.00 €" 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=""/>
</TfrxGroupFooter>
<TfrxMasterData Name="DatosMaestros2" Height="17" Left="0" Top="430" Width="1009,13451" ColumnWidth="0" ColumnGap="0" DataSet="frxDBInformeListadoFacturasPendResumen" DataSetName="frxDBInformeListadoFacturasPendResumen" RowCount="0" Stretched="True">
<TfrxMemoView Name="Memo11" Left="0" Top="0" Width="495" Height="17,00787402" OnBeforePrint="Memo11OnBeforePrint" 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=" [frxDBInformeListadoFacturasPendResumen.&#34;DATOS_BANCARIOS&#34;]"/>
<TfrxMemoView Name="Memo12" Align="baLeft" Left="495" Top="0" Width="108,34" 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" ParentFont="False" Text="[frxDBInformeListadoFacturasPendResumen.&#34;IMPORTE_TOTAL&#34;] "/>
</TfrxMasterData>
<TfrxGroupHeader Name="GroupHeader1" Height="45,35" Left="0" Top="365" Width="1009,13451" Condition="frxDBInformeListadoFacturasPendResumen.&#34;MES&#34;">
<TfrxMemoView Name="Memo13" Left="0" Top="8" Width="485,37013" Height="15,11811024" ShowHint="False" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="16384" Font.Height="-12" Font.Name="Tahoma" Font.Style="1" Frame.Color="8421504" ParentFont="False" Text="RESUMEN POR DOMICILIACIÓN [frxDBInformeListadoFacturasPendResumen.&#34;TITULO&#34;]"/>
<TfrxMemoView Name="Memo16" Align="baBottom" Left="0" Top="30,35" Width="495" Height="15" ShowHint="False" Color="13434828" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="0" Font.Height="-11" Font.Name="Tahoma" Font.Style="1" Frame.Typ="15" ParentFont="False" VAlign="vaCenter" Text="Banco"/>
<TfrxMemoView Name="Memo15" Align="baBottom" Left="495" Top="30,35" Width="108,33859" Height="15" ShowHint="False" Color="13434828" DisplayFormat.DecimalSeparator="," 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="Importe total"/>
</TfrxGroupHeader>
<TfrxGroupFooter Name="GroupFooter1" Height="17" Left="0" Top="467" Width="1009,13451">
<TfrxMemoView Name="Memo22" Left="0" Top="0" Width="495" Height="16" ShowHint="False" StretchMode="smMaxHeight" Color="13434828" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="0" Font.Height="-11" Font.Name="Tahoma" Font.Style="1" Frame.Typ="13" HAlign="haRight" ParentFont="False" VAlign="vaCenter" Text="TOTALES [frxDBInformeListadoFacturasPendResumen.&#34;TITULO&#34;]:"/>
<TfrxMemoView Name="Memo17" Align="baLeft" Left="495" Top="0" Width="108,24408228" Height="16" ShowHint="False" StretchMode="smMaxHeight" Color="13434828" DisplayFormat.DecimalSeparator="," DisplayFormat.FormatStr="#,0.00 €" 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;frxDBInformeListadoFacturasPendResumen.&#34;IMPORTE_TOTAL&#34;&#62;,DatosMaestros2)] "/>
</TfrxGroupFooter>
</TfrxReportPage>
</TfrxReport>

59
Source/Informes/9/InformeListadoFacturasProveedorPendientesDesglosado.fr3 Normal file
View File

@ -0,0 +1,59 @@
<?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="40585,5414832755" 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;procedure Memo10OnBeforePrint(Sender: TfrxComponent);&#13;&#10;var&#13;&#10; ACadena : String; &#13;&#10;begin&#13;&#10; ACadena := &#60;frxDBInformeListadoFacturasPendientes.&#34;DATOS_BANCARIOS&#34;&#62;; &#13;&#10; if Pos('Nº de cuenta: ', ACadena) &#62; 0 then&#13;&#10; begin&#13;&#10; Delete(ACadena, 1, 14);&#13;&#10; Memo10.Lines.Text := ' ' + ACadena; &#13;&#10; end;&#13;&#10;end;&#13;&#10;&#13;&#10;procedure Memo11OnBeforePrint(Sender: TfrxComponent);&#13;&#10;var&#13;&#10; ACadena : String; &#13;&#10;begin&#13;&#10; ACadena := &#60;frxDBInformeListadoFacturasPendResumen.&#34;DATOS_BANCARIOS&#34;&#62;; &#13;&#10; if Pos('Nº de cuenta: ', ACadena) &#62; 0 then&#13;&#10; begin&#13;&#10; Delete(ACadena, 1, 14);&#13;&#10; Memo11.Lines.Text := ' ' + ACadena; &#13;&#10; end;&#13;&#10;end;&#13;&#10;&#13;&#10;begin&#13;&#10;&#13;&#10;end." ShowProgress="False" StoreInDFM="False" OnStartReport="frxReportOnStartReport" PropData="044C65667403990003546F70021008446174617365747301010C6400000020446174615365743D226672784442496E666F726D654C69737461646F466163747572617350656E6469656E7465732220446174615365744E616D653D226672784442496E666F726D654C69737461646F466163747572617350656E6469656E7465732200010C6600000020446174615365743D226672784442496E666F726D654C69737461646F466163747572617350656E64526573756D656E2220446174615365744E616D653D226672784442496E666F726D654C69737461646F466163747572617350656E64526573756D656E220000095661726961626C657301010C13000000204E616D653D2220506167696E6163696F6E2200010C0E000000204E616D653D22506167696E612200010C14000000204E616D653D22546F74616C506167696E61732200010C11000000204E616D653D2220506572696F646F732200010C31000000204E616D653D224665636861496E6963696F222056616C75653D22262336303B4665636861496E6963696F262336323B2200010C10000000204E616D653D22466563686146696E220000055374796C650100">
<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="">
<TfrxPageHeader Name="Band1" Height="136,10235" Left="0" Top="16" Width="1009,13451" OnBeforePrint="Band1OnBeforePrint">
<TfrxPictureView Name="Logotipo" Left="0" Top="37,10235" Width="80" Height="88" ShowHint="False" HightQuality="False"/>
<TfrxMemoView Name="DatosEmpresa" Left="80" Top="37,10235" Width="232" Height="88" ShowHint="False" StretchMode="smMaxHeight" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="0" Font.Height="-11" Font.Name="Tahoma" Font.Style="0" ParentFont="False" Text=""/>
<TfrxLineView Name="Line1" Align="baLeft" Left="0" Top="129,10235" Width="312" Height="0" ShowHint="False" Frame.Color="32768" Frame.Typ="4" Frame.Width="4"/>
<TfrxShapeView Name="Shape5" Left="544" Top="9" Width="465" Height="122" ShowHint="False" Color="13434828" Frame.Width="0,1" Shape="skRoundRectangle"/>
<TfrxMemoView Name="NombreCliente" Left="547,85807" Top="14" Width="452" Height="16,88188" ShowHint="False" StretchMode="smMaxHeight" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="0" Font.Height="-13" Font.Name="Tahoma" Font.Style="1" HAlign="haRight" ParentFont="False" Text="LISTADO DE FACTURAS DE PROVEEDOR PENDIENTES"/>
<TfrxMemoView Name="Memo3" Left="547,85807" Top="34" Width="452" Height="91" ShowHint="False" StretchMode="smMaxHeight" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="0" Font.Height="-12" Font.Name="Tahoma" Font.Style="0" HAlign="haRight" ParentFont="False" Text="Fecha del listado: [&#60;Date&#62;] - Página [Page#] de [TotalPages#]&#13;&#10;[TextoParametros]"/>
</TfrxPageHeader>
<TfrxPageFooter Name="" Height="23,77953" Left="0" Top="609" Width="1009,13451" PrintOnLastPage="False">
<TfrxMemoView Name="mContinua" Left="925,98485" Top="4,77953" Width="81,08714" Height="16,77953" OnBeforePrint="mContinuaOnBeforePrint" ShowHint="False" StretchMode="smMaxHeight" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="16384" Font.Height="-12" Font.Name="Tahoma" Font.Style="0" HAlign="haRight" ParentFont="False" Text="Continúa ..."/>
<TfrxMemoView Name="Memo2" Align="baRight" Left="938,13451" Top="5" Width="71" Height="13" OnBeforePrint="Memo2OnBeforePrint" ShowHint="False" StretchMode="smMaxHeight" Font.Charset="1" Font.Color="0" Font.Height="-9" Font.Name="Tahoma" Font.Style="0" HAlign="haRight" ParentFont="False" VAlign="vaCenter" Text=""/>
</TfrxPageFooter>
<TfrxGroupHeader Name="" Height="40" Left="0" Restrictions="2" Top="252" Width="1009,13451" Condition="frxDBInformeListadoFacturasPendientes.&#34;NOMBRE&#34;" ReprintOnNewPage="True">
<TfrxMemoView Name="Memo52" Align="baLeft" Left="838,38976378" Top="25" Width="100" Height="15" ShowHint="False" Color="13434828" DisplayFormat.DecimalSeparator="," 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="Importe total"/>
<TfrxMemoView Name="Memo27" Align="baLeft" Left="0" Top="25" Width="97,88976378" Height="15" ShowHint="False" Color="13434828" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="0" Font.Height="-11" Font.Name="Tahoma" Font.Style="1" Frame.Typ="15" ParentFont="False" VAlign="vaCenter" Text="Nº factura"/>
<TfrxMemoView Name="Memo28" Align="baLeft" Left="247,88976378" Top="25" Width="250" Height="15" ShowHint="False" Color="13434828" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="0" Font.Height="-11" Font.Name="Tahoma" Font.Style="1" Frame.Typ="15" ParentFont="False" VAlign="vaCenter" Text="Proveedor"/>
<TfrxMemoView Name="Memo49" Align="baLeft" Left="938,38976378" Top="25" Width="70" Height="15" ShowHint="False" Color="13434828" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="0" Font.Height="-11" Font.Name="Tahoma" Font.Style="1" Frame.Typ="15" ParentFont="False" VAlign="vaCenter" Text="Situación"/>
<TfrxMemoView Name="Memo8" Align="baLeft" Left="97,88976378" Top="25" Width="75" Height="15" ShowHint="False" Color="13434828" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="0" Font.Height="-11" Font.Name="Tahoma" Font.Style="1" Frame.Typ="15" ParentFont="False" VAlign="vaCenter" Text="Fecha"/>
<TfrxMemoView Name="Memo7" Left="0" Top="2,77953" Width="485,37013" Height="15,11811024" ShowHint="False" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="16384" Font.Height="-12" Font.Name="Tahoma" Font.Style="1" Frame.Color="8421504" ParentFont="False" Text="[frxDBInformeListadoFacturasPendientes.&#34;NOMBRE&#34;]"/>
<TfrxMemoView Name="Memo1" Align="baLeft" Left="172,88976378" Top="25" Width="75" Height="15" ShowHint="False" Color="13434828" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="0" Font.Height="-11" Font.Name="Tahoma" Font.Style="1" Frame.Typ="15" ParentFont="False" VAlign="vaCenter" Text="Fecha vto."/>
<TfrxMemoView Name="Memo9" Align="baLeft" Left="497,88976378" Top="25" Width="340,5" Height="15" ShowHint="False" Color="13434828" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="0" Font.Height="-11" Font.Name="Tahoma" Font.Style="1" Frame.Typ="15" ParentFont="False" VAlign="vaCenter" Text="Domiciliación"/>
</TfrxGroupHeader>
<TfrxMasterData Name="DatosMaestros1" Height="17,00787402" Left="0" Top="312" Width="1009,13451" Columns="1" ColumnWidth="200" ColumnGap="20" DataSet="frxDBInformeListadoFacturasPendientes" DataSetName="frxDBInformeListadoFacturasPendientes" RowCount="0" Stretched="True">
<TfrxMemoView Name="Memo31" Align="baLeft" Left="838,42913386" 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" ParentFont="False" Text="[frxDBInformeListadoFacturasPendientes.&#34;IMPORTE_TOTAL&#34;] "/>
<TfrxMemoView Name="Memo4" Align="baLeft" Left="247,92913386" Top="0" Width="250" 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=" [frxDBInformeListadoFacturasPendientes.&#34;NOMBRE&#34;]"/>
<TfrxMemoView Name="Memo20" Align="baLeft" Left="938,42913386" Top="0" Width="70" 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="[frxDBInformeListadoFacturasPendientes.&#34;SITUACION&#34;]"/>
<TfrxMemoView Name="Memo21" Align="baLeft" Left="97,92913386" Top="0" Width="75" 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=" [frxDBInformeListadoFacturasPendientes.&#34;FECHA_FACTURA&#34;]"/>
<TfrxMemoView Name="Memo18" Align="baLeft" Left="0" Top="0" Width="97,92913386" 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=" [frxDBInformeListadoFacturasPendientes.&#34;REFERENCIA&#34;]"/>
<TfrxMemoView Name="Memo5" Align="baLeft" Left="172,92913386" Top="0" Width="75" 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=" [frxDBInformeListadoFacturasPendientes.&#34;FECHA_VENCIMIENTO&#34;]"/>
<TfrxMemoView Name="Memo10" Align="baLeft" Left="497,92913386" Top="0" Width="340,5" Height="17,00787402" OnBeforePrint="Memo10OnBeforePrint" ShowHint="False" StretchMode="smActualHeight" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="16384" Font.Height="-12" Font.Name="Tahoma" Font.Style="0" Frame.Typ="15" ParentFont="False" Text=" [frxDBInformeListadoFacturasPendientes.&#34;DATOS_BANCARIOS&#34;]"/>
</TfrxMasterData>
<TfrxGroupFooter Name="" Height="20,78740402" Left="0" Top="349" Width="1009,13451">
<TfrxMemoView Name="Memo53" Left="0" Top="0,37774772" Width="837,33865346" Height="16" ShowHint="False" StretchMode="smMaxHeight" Color="13434828" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="0" Font.Height="-11" Font.Name="Tahoma" Font.Style="1" Frame.Typ="13" HAlign="haRight" ParentFont="False" VAlign="vaCenter" Text="TOTALES [frxDBInformeListadoFacturasPendientes.&#34;TITULO&#34;]:"/>
<TfrxMemoView Name="Memo6" Left="838,35465" Top="0,37774772" Width="100" Height="16" ShowHint="False" StretchMode="smMaxHeight" Color="13434828" DisplayFormat.DecimalSeparator="," DisplayFormat.FormatStr="#,0.00 €" 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;frxDBInformeListadoFacturasPendientes.&#34;IMPORTE_TOTAL&#34;&#62;,DatosMaestros1)] "/>
<TfrxMemoView Name="Memo14" Left="938,5197485" Top="0,37774772" Width="70" Height="16" ShowHint="False" StretchMode="smMaxHeight" Color="13434828" DisplayFormat.DecimalSeparator="," DisplayFormat.FormatStr="#,0.00 €" 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=""/>
</TfrxGroupFooter>
<TfrxMasterData Name="DatosMaestros2" Height="17" Left="0" Top="495" Width="1009,13451" ColumnWidth="0" ColumnGap="0" DataSet="frxDBInformeListadoFacturasPendResumen" DataSetName="frxDBInformeListadoFacturasPendResumen" RowCount="0" Stretched="True">
<TfrxMemoView Name="Memo11" Left="0" Top="0" Width="495" Height="17,00787402" OnBeforePrint="Memo11OnBeforePrint" 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=" [frxDBInformeListadoFacturasPendResumen.&#34;DATOS_BANCARIOS&#34;]"/>
<TfrxMemoView Name="Memo12" Align="baLeft" Left="495" Top="0" Width="108,34" 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" ParentFont="False" Text="[frxDBInformeListadoFacturasPendResumen.&#34;IMPORTE_TOTAL&#34;] "/>
</TfrxMasterData>
<TfrxGroupHeader Name="GroupHeader1" Height="45,35" Left="0" Top="430" Width="1009,13451" Condition="frxDBInformeListadoFacturasPendResumen.&#34;MES&#34;">
<TfrxMemoView Name="Memo13" Left="0" Top="8" Width="837,37013" Height="15,11811024" ShowHint="False" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="16384" Font.Height="-12" Font.Name="Tahoma" Font.Style="1" Frame.Color="8421504" ParentFont="False" Text="RESUMEN POR DOMICILIACIÓN [frxDBInformeListadoFacturasPendResumen.&#34;TITULO&#34;]"/>
<TfrxMemoView Name="Memo16" Align="baBottom" Left="0" Top="30,35" Width="495" Height="15" ShowHint="False" Color="13434828" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="0" Font.Height="-11" Font.Name="Tahoma" Font.Style="1" Frame.Typ="15" ParentFont="False" VAlign="vaCenter" Text="Banco"/>
<TfrxMemoView Name="Memo15" Align="baBottom" Left="495" Top="30,35" Width="108,33859" Height="15" ShowHint="False" Color="13434828" DisplayFormat.DecimalSeparator="," 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="Importe total"/>
</TfrxGroupHeader>
<TfrxGroupFooter Name="GroupFooter1" Height="17" Left="0" Top="532" Width="1009,13451">
<TfrxMemoView Name="Memo22" Left="0" Top="0" Width="495" Height="16" ShowHint="False" StretchMode="smMaxHeight" Color="13434828" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="0" Font.Height="-11" Font.Name="Tahoma" Font.Style="1" Frame.Typ="13" HAlign="haRight" ParentFont="False" VAlign="vaCenter" Text="TOTALES [frxDBInformeListadoFacturasPendResumen.&#34;TITULO&#34;]:"/>
<TfrxMemoView Name="Memo17" Align="baLeft" Left="495" Top="0" Width="108,24408228" Height="16" ShowHint="False" StretchMode="smMaxHeight" Color="13434828" DisplayFormat.DecimalSeparator="," DisplayFormat.FormatStr="#,0.00 €" 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;frxDBInformeListadoFacturasPendResumen.&#34;IMPORTE_TOTAL&#34;&#62;,DatosMaestros2)] "/>
</TfrxGroupFooter>
<TfrxGroupHeader Name="GroupHeader2" Height="20" Left="0" Top="212" Width="1009,13451" Condition="frxDBInformeListadoFacturasPendientes.&#34;MES&#34;">
<TfrxMemoView Name="Memo23" Left="0" Top="1" Width="485,37013" Height="15,11811024" ShowHint="False" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="16384" Font.Height="-12" Font.Name="Tahoma" Font.Style="1" Frame.Color="8421504" ParentFont="False" Text="[frxDBInformeListadoFacturasPendientes.&#34;TITULO&#34;]"/>
</TfrxGroupHeader>
<TfrxGroupFooter Name="GroupFooter2" Height="20" Left="0" Top="390" Width="1009,13451"/>
</TfrxReportPage>
</TfrxReport>

53
Source/Informes/9/InformeListadoPedidos.fr3 Normal file
View File

@ -0,0 +1,53 @@
<?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="40585,5416385301" 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="044C65667403990003546F70021008446174617365747301010C2900000020446174615365744E616D653D226672784442496E666F726D654C69737461646F50656469646F732200010C3000000020446174615365744E616D653D226672784442496E666F726D654C69737461646F50656469646F73526573756D656E220000095661726961626C657301010C13000000204E616D653D2220506172616D6574726F732200010C17000000204E616D653D22546578746F506172616D6574726F73220000055374796C650100">
<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="">
<TfrxPageHeader Name="Band1" Height="136,10235" Left="0" Top="16" Width="1009,13451" OnBeforePrint="Band1OnBeforePrint">
<TfrxPictureView Name="Logotipo" Left="0" Top="37,10235" Width="80" Height="88" ShowHint="False" HightQuality="False"/>
<TfrxMemoView Name="DatosEmpresa" Left="80" Top="37,10235" Width="232" Height="88" ShowHint="False" StretchMode="smMaxHeight" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="0" Font.Height="-11" Font.Name="Tahoma" Font.Style="0" ParentFont="False" Text=""/>
<TfrxLineView Name="Line1" Align="baLeft" Left="0" Top="129,10235" Width="312" Height="0" ShowHint="False" Frame.Color="32768" Frame.Typ="4" Frame.Width="4"/>
<TfrxShapeView Name="Shape5" Left="542" Top="9" Width="465" Height="122" ShowHint="False" Color="13434828" Frame.Width="0,1" Shape="skRoundRectangle"/>
<TfrxMemoView Name="NombreCliente" Left="545,85807" Top="14" Width="452" Height="16,88188" ShowHint="False" StretchMode="smMaxHeight" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="0" Font.Height="-13" Font.Name="Tahoma" Font.Style="1" HAlign="haRight" ParentFont="False" Text="LISTADO DE PEDIDOS A PROVEEDOR"/>
<TfrxMemoView Name="Memo3" Left="545,85807" Top="34" Width="452" Height="91" ShowHint="False" StretchMode="smMaxHeight" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="0" Font.Height="-12" Font.Name="Tahoma" Font.Style="0" HAlign="haRight" ParentFont="False" Text="Fecha del listado: [&#60;Date&#62;] - Página [Page#] de [TotalPages#]&#13;&#10;[TextoParametros]"/>
</TfrxPageHeader>
<TfrxPageFooter Name="" Height="23,77953" Left="0" Top="552" Width="1009,13451" PrintOnLastPage="False">
<TfrxMemoView Name="mContinua" Left="925,98485" Top="4,77953" Width="81,08714" Height="16,77953" OnBeforePrint="mContinuaOnBeforePrint" ShowHint="False" StretchMode="smMaxHeight" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="16384" Font.Height="-12" Font.Name="Tahoma" Font.Style="0" HAlign="haRight" ParentFont="False" Text="Continúa ..."/>
</TfrxPageFooter>
<TfrxGroupHeader Name="" Height="40" Left="0" Restrictions="2" Top="212" Width="1009,13451" Condition="frxDBInformeListadoPedidos.&#34;MES&#34;" ReprintOnNewPage="True">
<TfrxMemoView Name="Memo27" Left="0" Top="25" Width="88,77953" Height="15" ShowHint="False" Color="13434828" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="0" Font.Height="-11" Font.Name="Tahoma" Font.Style="1" Frame.Typ="15" ParentFont="False" VAlign="vaCenter" Text="Nº pedido"/>
<TfrxMemoView Name="Memo28" Left="181,45671" Top="25" Width="464,33859" Height="15" ShowHint="False" Color="13434828" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="0" Font.Height="-11" Font.Name="Tahoma" Font.Style="1" Frame.Typ="15" ParentFont="False" VAlign="vaCenter" Text="Proveedor"/>
<TfrxMemoView Name="Memo49" Left="645,7953" Top="25" Width="81,33859" Height="15" ShowHint="False" Color="13434828" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="0" Font.Height="-11" Font.Name="Tahoma" Font.Style="1" Frame.Typ="15" ParentFont="False" VAlign="vaCenter" Text="Situación"/>
<TfrxMemoView Name="Memo50" Left="727,13389" Top="25" Width="95" Height="15" ShowHint="False" Color="13434828" DisplayFormat.DecimalSeparator="," 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="Emisión"/>
<TfrxMemoView Name="Memo51" Left="822,13389" Top="25" Width="95" Height="15" ShowHint="False" Color="13434828" DisplayFormat.DecimalSeparator="," 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="Recepción"/>
<TfrxMemoView Name="Memo52" Left="917,13389" Top="25" Width="95" Height="15" ShowHint="False" Color="13434828" DisplayFormat.DecimalSeparator="," 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="Importe total"/>
<TfrxMemoView Name="Memo8" Left="88,77953" Top="25" Width="92,67718" Height="15" ShowHint="False" Color="13434828" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="0" Font.Height="-11" Font.Name="Tahoma" Font.Style="1" Frame.Typ="15" ParentFont="False" VAlign="vaCenter" Text="Fecha"/>
<TfrxMemoView Name="Memo7" Left="0" Top="2,77953" Width="485,37013" Height="15,11811024" ShowHint="False" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="16384" Font.Height="-12" Font.Name="Tahoma" Font.Style="1" Frame.Color="8421504" ParentFont="False" Text="[frxDBInformeListadoPedidos.&#34;TITULO&#34;]"/>
</TfrxGroupHeader>
<TfrxMasterData Name="DatosMaestros1" Height="17,00787402" Left="0" Top="272" Width="1009,13451" Columns="1" ColumnWidth="200" ColumnGap="20" DataSetName="frxDBInformeListadoPedidos" RowCount="0" Stretched="True">
<TfrxMemoView Name="Memo4" Left="181,46" Top="0" Width="464,34" 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=" [frxDBInformeListadoPedidos.&#34;NOMBRE&#34;]"/>
<TfrxMemoView Name="Memo20" Left="645,8" Top="0" Width="81,34" 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="[frxDBInformeListadoPedidos.&#34;SITUACION&#34;]"/>
<TfrxMemoView Name="Memo21" Left="88,78" Top="0" Width="92,68" 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=" [frxDBInformeListadoPedidos.&#34;FECHA_PEDIDO&#34;]"/>
<TfrxMemoView Name="Memo18" Left="0" Top="0" Width="88,78" 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=" [frxDBInformeListadoPedidos.&#34;REFERENCIA&#34;]"/>
<TfrxMemoView Name="Memo29" Left="727,14" Top="0" Width="95" Height="17,00787402" ShowHint="False" StretchMode="smMaxHeight" DisplayFormat.DecimalSeparator="," DisplayFormat.FormatStr="%2.2m" 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="[frxDBInformeListadoPedidos.&#34;FECHA_CONFIRMACION&#34;]"/>
<TfrxMemoView Name="Memo30" Left="822,14" Top="0" Width="95" Height="17,00787402" ShowHint="False" StretchMode="smMaxHeight" DisplayFormat.DecimalSeparator="," DisplayFormat.FormatStr="dd.mm.yyyy" 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="[frxDBInformeListadoPedidos.&#34;FECHA_ENTREGA&#34;]"/>
<TfrxMemoView Name="Memo31" Left="917,14" Top="0" Width="95" 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" ParentFont="False" Text="[frxDBInformeListadoPedidos.&#34;IMPORTE_TOTAL&#34;]"/>
</TfrxMasterData>
<TfrxGroupFooter Name="" Height="16" Left="0" Top="309" Width="1009,13451">
<TfrxMemoView Name="Memo53" Left="0" Top="0,37774772" Width="917" Height="16" ShowHint="False" StretchMode="smMaxHeight" Color="13434828" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="0" Font.Height="-11" Font.Name="Tahoma" Font.Style="1" Frame.Typ="13" HAlign="haRight" ParentFont="False" VAlign="vaCenter" Text="TOTALES [frxDBInformeListadoPedidos.&#34;TITULO&#34;]:"/>
<TfrxMemoView Name="Memo6" Left="917" Top="0,37774772" Width="95" Height="16" ShowHint="False" StretchMode="smMaxHeight" Color="13434828" DisplayFormat.DecimalSeparator="," DisplayFormat.FormatStr="#,0.00 €" 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;frxDBInformeListadoPedidos.&#34;IMPORTE_TOTAL&#34;&#62;,DatosMaestros1)]"/>
</TfrxGroupFooter>
<TfrxHeader Name="Header1" Height="75" Left="0" Top="345" Width="1009,13451">
<TfrxMemoView Name="Memo13" Left="0" Top="60" Width="383,62987" Height="15" ShowHint="False" Color="13434828" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="0" Font.Height="-11" Font.Name="Tahoma" Font.Style="1" Frame.Typ="15" ParentFont="False" VAlign="vaCenter" Text="Resumen por meses de los pedidos de proveedor"/>
<TfrxMemoView Name="Memo22" Left="383,62987" Top="60" Width="120" Height="15" ShowHint="False" Color="13434828" DisplayFormat.DecimalSeparator="," 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="Importe total"/>
<TfrxMemoView Name="Memo23" Left="0" Top="30" Width="485,37013" Height="15,11811024" ShowHint="False" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="16384" Font.Height="-12" Font.Name="Tahoma" Font.Style="1" Frame.Color="8421504" ParentFont="False" Text="Resumen por meses de los pedidos de proveedor"/>
</TfrxHeader>
<TfrxReportSummary Name="ReportSummary1" Height="15" Left="0" Top="517" Width="1009,13451">
<TfrxMemoView Name="Memo24" Left="0" Top="0" Width="383,62987" Height="15" ShowHint="False" Color="13434828" DisplayFormat.DecimalSeparator="," 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="Total: "/>
<TfrxMemoView Name="Memo32" Left="383,62987" Top="0" Width="120" Height="15" ShowHint="False" Color="13434828" 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;frxDBInformeListadoPedidosResumen.&#34;IMPORTE_TOTAL&#34;&#62;,DatosMaestros2)]"/>
</TfrxReportSummary>
<TfrxMasterData Name="DatosMaestros2" Height="17" Left="0" Top="440" Width="1009,13451" ColumnWidth="0" ColumnGap="0" DataSetName="frxDBInformeListadoPedidosResumen" RowCount="0">
<TfrxMemoView Name="Memo9" Left="0" Top="0" Width="383,63" Height="17,00787402" ShowHint="False" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="16384" Font.Height="-12" Font.Name="Tahoma" Font.Style="1" Frame.Color="8421504" Frame.Typ="15" ParentFont="False" Text=" [frxDBInformeListadoPedidosResumen.&#34;TITULO&#34;]"/>
<TfrxMemoView Name="Memo12" Left="383,63" Top="0" Width="120" 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" ParentFont="False" Text="[frxDBInformeListadoPedidosResumen.&#34;IMPORTE_TOTAL&#34;]"/>
</TfrxMasterData>
</TfrxReportPage>
</TfrxReport>

57
Source/Informes/9/InformeListadoPedidosDesglosado.fr3 Normal file
View File

@ -0,0 +1,57 @@
<?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="40585,5417628819" 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="044C65667403990003546F70021008446174617365747301010C2900000020446174615365744E616D653D226672784442496E666F726D654C69737461646F50656469646F732200010C3000000020446174615365744E616D653D226672784442496E666F726D654C69737461646F50656469646F73526573756D656E220000095661726961626C657301010C13000000204E616D653D2220506172616D6574726F732200010C17000000204E616D653D22546578746F506172616D6574726F73220000055374796C650100">
<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="">
<TfrxPageHeader Name="Band1" Height="136,10235" Left="0" Top="16" Width="1009,13451" OnBeforePrint="Band1OnBeforePrint">
<TfrxPictureView Name="Logotipo" Left="0" Top="37,10235" Width="80" Height="88" ShowHint="False" HightQuality="False"/>
<TfrxMemoView Name="DatosEmpresa" Left="80" Top="37,10235" Width="232" Height="88" ShowHint="False" StretchMode="smMaxHeight" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="0" Font.Height="-11" Font.Name="Tahoma" Font.Style="0" ParentFont="False" Text=""/>
<TfrxLineView Name="Line1" Align="baLeft" Left="0" Top="129,10235" Width="312" Height="0" ShowHint="False" Frame.Color="32768" Frame.Typ="4" Frame.Width="4"/>
<TfrxShapeView Name="Shape5" Left="543" Top="10" Width="465" Height="122" ShowHint="False" Color="13434828" Frame.Width="0,1" Shape="skRoundRectangle"/>
<TfrxMemoView Name="NombreCliente" Left="546,85807" Top="15" Width="452" Height="16,88188" ShowHint="False" StretchMode="smMaxHeight" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="0" Font.Height="-13" Font.Name="Tahoma" Font.Style="1" HAlign="haRight" ParentFont="False" Text="LISTADO DE PEDIDOS A PROVEEDOR"/>
<TfrxMemoView Name="Memo3" Left="546,85807" Top="35" Width="452" Height="91" ShowHint="False" StretchMode="smMaxHeight" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="0" Font.Height="-12" Font.Name="Tahoma" Font.Style="0" HAlign="haRight" ParentFont="False" Text="Fecha del listado: [&#60;Date&#62;] - Página [Page#] de [TotalPages#]&#13;&#10;[TextoParametros]"/>
</TfrxPageHeader>
<TfrxPageFooter Name="" Height="23,77953" Left="0" Top="632" Width="1009,13451" PrintOnLastPage="False">
<TfrxMemoView Name="mContinua" Left="925,98485" Top="4,77953" Width="81,08714" Height="16,77953" OnBeforePrint="mContinuaOnBeforePrint" ShowHint="False" StretchMode="smMaxHeight" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="16384" Font.Height="-12" Font.Name="Tahoma" Font.Style="0" HAlign="haRight" ParentFont="False" Text="Continúa ..."/>
</TfrxPageFooter>
<TfrxGroupHeader Name="" Height="40" Left="0" Restrictions="2" Top="252" Width="1009,13451" Condition="frxDBInformeListadoPedidos.&#34;NOMBRE&#34;" ReprintOnNewPage="True">
<TfrxMemoView Name="Memo27" Left="0" Top="25" Width="88,77953" Height="15" ShowHint="False" Color="13434828" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="0" Font.Height="-11" Font.Name="Tahoma" Font.Style="1" Frame.Typ="15" ParentFont="False" VAlign="vaCenter" Text="Nº pedido"/>
<TfrxMemoView Name="Memo28" Left="181,45671" Top="25" Width="464,33859" Height="15" ShowHint="False" Color="13434828" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="0" Font.Height="-11" Font.Name="Tahoma" Font.Style="1" Frame.Typ="15" ParentFont="False" VAlign="vaCenter" Text="Proveedor"/>
<TfrxMemoView Name="Memo49" Left="645,7953" Top="25" Width="81,33859" Height="15" ShowHint="False" Color="13434828" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="0" Font.Height="-11" Font.Name="Tahoma" Font.Style="1" Frame.Typ="15" ParentFont="False" VAlign="vaCenter" Text="Situación"/>
<TfrxMemoView Name="Memo50" Left="727,13389" Top="25" Width="95" Height="15" ShowHint="False" Color="13434828" DisplayFormat.DecimalSeparator="," 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="Emisión"/>
<TfrxMemoView Name="Memo51" Left="822,13389" Top="25" Width="95" Height="15" ShowHint="False" Color="13434828" DisplayFormat.DecimalSeparator="," 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="Recepción"/>
<TfrxMemoView Name="Memo52" Left="917,13389" Top="25" Width="95" Height="15" ShowHint="False" Color="13434828" DisplayFormat.DecimalSeparator="," 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="Importe total"/>
<TfrxMemoView Name="Memo8" Left="88,77953" Top="25" Width="92,67718" Height="15" ShowHint="False" Color="13434828" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="0" Font.Height="-11" Font.Name="Tahoma" Font.Style="1" Frame.Typ="15" ParentFont="False" VAlign="vaCenter" Text="Fecha"/>
<TfrxMemoView Name="Memo7" Left="0" Top="2,77953" Width="485,37013" Height="15,11811024" ShowHint="False" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="16384" Font.Height="-12" Font.Name="Tahoma" Font.Style="1" Frame.Color="8421504" ParentFont="False" Text="[frxDBInformeListadoPedidos.&#34;NOMBRE&#34;]"/>
</TfrxGroupHeader>
<TfrxMasterData Name="DatosMaestros1" Height="17,00787402" Left="0" Top="312" Width="1009,13451" Columns="1" ColumnWidth="200" ColumnGap="20" DataSetName="frxDBInformeListadoPedidos" RowCount="0" Stretched="True">
<TfrxMemoView Name="Memo4" Left="181,46" Top="0" Width="464,34" 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=" [frxDBInformeListadoPedidos.&#34;NOMBRE&#34;]"/>
<TfrxMemoView Name="Memo20" Left="645,8" Top="0" Width="81,34" 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="[frxDBInformeListadoPedidos.&#34;SITUACION&#34;]"/>
<TfrxMemoView Name="Memo21" Left="88,78" Top="0" Width="92,68" 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=" [frxDBInformeListadoPedidos.&#34;FECHA_PEDIDO&#34;]"/>
<TfrxMemoView Name="Memo18" Left="0" Top="0" Width="88,78" 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=" [frxDBInformeListadoPedidos.&#34;REFERENCIA&#34;]"/>
<TfrxMemoView Name="Memo29" Left="727,14" Top="0" Width="95" Height="17,00787402" ShowHint="False" StretchMode="smMaxHeight" DisplayFormat.DecimalSeparator="," DisplayFormat.FormatStr="%2.2m" 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="[frxDBInformeListadoPedidos.&#34;FECHA_CONFIRMACION&#34;]"/>
<TfrxMemoView Name="Memo30" Left="822,14" Top="0" Width="95" Height="17,00787402" ShowHint="False" StretchMode="smMaxHeight" DisplayFormat.DecimalSeparator="," DisplayFormat.FormatStr="dd.mm.yyyy" 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="[frxDBInformeListadoPedidos.&#34;FECHA_ENTREGA&#34;]"/>
<TfrxMemoView Name="Memo31" Left="917,14" Top="0" Width="95" 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" ParentFont="False" Text="[frxDBInformeListadoPedidos.&#34;IMPORTE_TOTAL&#34;]"/>
</TfrxMasterData>
<TfrxGroupFooter Name="" Height="16" Left="0" Top="349" Width="1009,13451">
<TfrxMemoView Name="Memo53" Left="0" Top="0,37774772" Width="917" Height="16" ShowHint="False" StretchMode="smMaxHeight" Color="13434828" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="0" Font.Height="-11" Font.Name="Tahoma" Font.Style="1" Frame.Typ="13" HAlign="haRight" ParentFont="False" VAlign="vaCenter" Text="TOTALES [frxDBInformeListadoPedidos.&#34;TITULO&#34;]:"/>
<TfrxMemoView Name="Memo6" Left="917" Top="0,37774772" Width="95" Height="16" ShowHint="False" StretchMode="smMaxHeight" Color="13434828" DisplayFormat.DecimalSeparator="," DisplayFormat.FormatStr="#,0.00 €" 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;frxDBInformeListadoPedidos.&#34;IMPORTE_TOTAL&#34;&#62;,DatosMaestros1)]"/>
</TfrxGroupFooter>
<TfrxHeader Name="Header1" Height="75" Left="0" Top="425" Width="1009,13451">
<TfrxMemoView Name="Memo13" Left="0" Top="60" Width="383,62987" Height="15" ShowHint="False" Color="13434828" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="0" Font.Height="-11" Font.Name="Tahoma" Font.Style="1" Frame.Typ="15" ParentFont="False" VAlign="vaCenter" Text="Resumen por meses de los pedidos de proveedor"/>
<TfrxMemoView Name="Memo22" Left="383,62987" Top="60" Width="120" Height="15" ShowHint="False" Color="13434828" DisplayFormat.DecimalSeparator="," 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="Importe total"/>
<TfrxMemoView Name="Memo23" Left="0" Top="30" Width="485,37013" Height="15,11811024" ShowHint="False" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="16384" Font.Height="-12" Font.Name="Tahoma" Font.Style="1" Frame.Color="8421504" ParentFont="False" Text="Resumen por meses de los pedidos de proveedor"/>
</TfrxHeader>
<TfrxReportSummary Name="ReportSummary1" Height="15" Left="0" Top="597" Width="1009,13451">
<TfrxMemoView Name="Memo24" Left="0" Top="0" Width="383,62987" Height="15" ShowHint="False" Color="13434828" DisplayFormat.DecimalSeparator="," 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="Total: "/>
<TfrxMemoView Name="Memo32" Left="383,62987" Top="0" Width="120" Height="15" ShowHint="False" Color="13434828" 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;frxDBInformeListadoPedidosResumen.&#34;IMPORTE_TOTAL&#34;&#62;,DatosMaestros2)]"/>
</TfrxReportSummary>
<TfrxMasterData Name="DatosMaestros2" Height="17" Left="0" Top="520" Width="1009,13451" ColumnWidth="0" ColumnGap="0" DataSetName="frxDBInformeListadoPedidosResumen" RowCount="0">
<TfrxMemoView Name="Memo9" Left="0" Top="0" Width="383,63" Height="17,00787402" ShowHint="False" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="16384" Font.Height="-12" Font.Name="Tahoma" Font.Style="1" Frame.Color="8421504" Frame.Typ="15" ParentFont="False" Text=" [frxDBInformeListadoPedidosResumen.&#34;TITULO&#34;]"/>
<TfrxMemoView Name="Memo12" Left="383,63" Top="0" Width="120" 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" ParentFont="False" Text="[frxDBInformeListadoPedidosResumen.&#34;IMPORTE_TOTAL&#34;]"/>
</TfrxMasterData>
<TfrxGroupHeader Name="GroupHeader1" Height="20" Left="0" Top="212" Width="1009,13451" Condition="frxDBInformeListadoPedidos.&#34;MES&#34;">
<TfrxMemoView Name="Memo1" Left="0" Top="3" Width="485,37013" Height="15,11811024" ShowHint="False" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="16384" Font.Height="-12" Font.Name="Tahoma" Font.Style="1" Frame.Color="8421504" ParentFont="False" Text="[frxDBInformeListadoPedidos.&#34;TITULO&#34;]"/>
</TfrxGroupHeader>
<TfrxGroupFooter Name="GroupFooter1" Height="20" Left="0" Top="385" Width="1009,13451"/>
</TfrxReportPage>
</TfrxReport>

53
Source/Informes/9/InformeListadoPresupuestos.fr3 Normal file
View File

@ -0,0 +1,53 @@
<?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="40585,5422165509" 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="044C65667403990003546F70021008446174617365747301010C2E00000020446174615365744E616D653D226672784442496E666F726D654C69737461646F507265737570756573746F732200010C3500000020446174615365744E616D653D226672784442496E666F726D654C69737461646F507265737570756573746F73526573756D656E220000095661726961626C657301010C13000000204E616D653D2220506167696E6163696F6E2200010C0E000000204E616D653D22506167696E612200010C14000000204E616D653D22546F74616C506167696E61732200010C11000000204E616D653D2220506572696F646F732200010C31000000204E616D653D224665636861496E6963696F222056616C75653D22262336303B4665636861496E6963696F262336323B2200010C10000000204E616D653D22466563686146696E220000055374796C650100">
<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="">
<TfrxPageHeader Name="Band1" Height="136,10235" Left="0" Top="16" Width="1009,13451" OnBeforePrint="Band1OnBeforePrint">
<TfrxPictureView Name="Logotipo" Left="0" Top="37,10235" Width="80" Height="88" ShowHint="False" HightQuality="False"/>
<TfrxMemoView Name="DatosEmpresa" Left="80" Top="37,10235" Width="232" Height="88" ShowHint="False" StretchMode="smMaxHeight" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="0" Font.Height="-11" Font.Name="Tahoma" Font.Style="0" ParentFont="False" Text=""/>
<TfrxLineView Name="Line1" Align="baLeft" Left="0" Top="129,10235" Width="312" Height="0" ShowHint="False" Frame.Color="32768" Frame.Typ="4" Frame.Width="4"/>
<TfrxShapeView Name="Shape5" Left="512" Top="7" Width="495" Height="125" ShowHint="False" Color="13434828" Shape="skRoundRectangle"/>
<TfrxMemoView Name="NombreCliente" Left="518,85807" Top="14" Width="480" Height="20" ShowHint="False" StretchMode="smMaxHeight" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="0" Font.Height="-13" Font.Name="Tahoma" Font.Style="1" HAlign="haRight" ParentFont="False" Text="LISTADO DE PRESUPUESTOS DE CLIENTE"/>
<TfrxMemoView Name="Memo3" Left="517,85807" Top="35,89765" Width="481" Height="91" ShowHint="False" StretchMode="smMaxHeight" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="0" Font.Height="-12" Font.Name="Tahoma" Font.Style="0" HAlign="haRight" ParentFont="False" Text="Fecha del listado: [&#60;Date&#62;] - Página [Page#] de [TotalPages#]&#13;&#10;[TextoParametros]"/>
</TfrxPageHeader>
<TfrxPageFooter Name="" Height="23,77953" Left="0" Top="552" Width="1009,13451" PrintOnLastPage="False">
<TfrxMemoView Name="mContinua" Left="925,98485" Top="4,77953" Width="81,08714" Height="16,77953" OnBeforePrint="mContinuaOnBeforePrint" ShowHint="False" StretchMode="smMaxHeight" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="16384" Font.Height="-12" Font.Name="Tahoma" Font.Style="0" HAlign="haRight" ParentFont="False" Text="Continúa ..."/>
</TfrxPageFooter>
<TfrxGroupHeader Name="" Height="40" Left="0" Restrictions="2" Top="212" Width="1009,13451" Condition="frxDBInformeListadoPresupuestos.&#34;MES&#34;" ReprintOnNewPage="True">
<TfrxMemoView Name="Memo27" Left="0" Top="25" Width="88,77953" Height="15" ShowHint="False" Color="13434828" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="0" Font.Height="-11" Font.Name="Tahoma" Font.Style="1" Frame.Typ="15" ParentFont="False" VAlign="vaCenter" Text="Nº presupuesto"/>
<TfrxMemoView Name="Memo28" Left="181,45671" Top="25" Width="464,33859" Height="15" ShowHint="False" Color="13434828" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="0" Font.Height="-11" Font.Name="Tahoma" Font.Style="1" Frame.Typ="15" ParentFont="False" VAlign="vaCenter" Text="Cliente"/>
<TfrxMemoView Name="Memo49" Left="645,7953" Top="25" Width="81,33859" Height="15" ShowHint="False" Color="13434828" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="0" Font.Height="-11" Font.Name="Tahoma" Font.Style="1" Frame.Typ="15" ParentFont="False" VAlign="vaCenter" Text="Situación"/>
<TfrxMemoView Name="Memo50" Left="727,13389" Top="25" Width="95" Height="15" ShowHint="False" Color="13434828" DisplayFormat.DecimalSeparator="," 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="Fecha decisión"/>
<TfrxMemoView Name="Memo51" Left="822,13389" Top="25" Width="95" Height="15" ShowHint="False" Color="13434828" DisplayFormat.DecimalSeparator="," 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="Nº factura"/>
<TfrxMemoView Name="Memo52" Left="917,13389" Top="25" Width="95" Height="15" ShowHint="False" Color="13434828" DisplayFormat.DecimalSeparator="," 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="Importe total"/>
<TfrxMemoView Name="Memo8" Left="88,77953" Top="25" Width="92,67718" Height="15" ShowHint="False" Color="13434828" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="0" Font.Height="-11" Font.Name="Tahoma" Font.Style="1" Frame.Typ="15" ParentFont="False" VAlign="vaCenter" Text="Fecha"/>
<TfrxMemoView Name="Memo7" Left="0" Top="2,77953" Width="485,37013" Height="15,11811024" ShowHint="False" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="16384" Font.Height="-12" Font.Name="Tahoma" Font.Style="1" Frame.Color="8421504" ParentFont="False" Text="[frxDBInformeListadoPresupuestos.&#34;TITULO&#34;]"/>
</TfrxGroupHeader>
<TfrxMasterData Name="DatosMaestros1" Height="17" Left="0" Top="272" Width="1009,13451" Columns="1" ColumnWidth="200" ColumnGap="20" DataSetName="frxDBInformeListadoPresupuestos" RowCount="0" Stretched="True">
<TfrxMemoView Name="Memo4" Align="baLeft" Left="181,46" Top="0" Width="464,34" 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=" [frxDBInformeListadoPresupuestos.&#34;NOMBRE&#34;]"/>
<TfrxMemoView Name="Memo20" Align="baLeft" Left="645,8" Top="0" Width="81,34" 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="[frxDBInformeListadoPresupuestos.&#34;SITUACION&#34;]"/>
<TfrxMemoView Name="Memo21" Align="baLeft" Left="88,78" Top="0" Width="92,68" 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=" [frxDBInformeListadoPresupuestos.&#34;FECHA_PRESUPUESTO&#34;]"/>
<TfrxMemoView Name="Memo18" Align="baLeft" Left="0" Top="0" Width="88,78" 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="[frxDBInformeListadoPresupuestos.&#34;REFERENCIA&#34;]"/>
<TfrxMemoView Name="Memo29" Align="baLeft" Left="727,14" Top="0" Width="95" Height="17,00787402" ShowHint="False" StretchMode="smMaxHeight" DisplayFormat.DecimalSeparator="," DisplayFormat.FormatStr="%2.2m" 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="[frxDBInformeListadoPresupuestos.&#34;FECHA_DECISION&#34;]"/>
<TfrxMemoView Name="Memo30" Align="baLeft" Left="822,14" Top="0" Width="95" 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" ParentFont="False" Text="[frxDBInformeListadoPresupuestos.&#34;FACTURA&#34;]"/>
<TfrxMemoView Name="Memo31" Align="baLeft" Left="917,14" Top="0" Width="95" 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" ParentFont="False" Text="[frxDBInformeListadoPresupuestos.&#34;IMPORTE_TOTAL&#34;]"/>
</TfrxMasterData>
<TfrxGroupFooter Name="" Height="16" Left="0" Top="309" Width="1009,13451">
<TfrxMemoView Name="Memo53" Left="0" Top="0,37774772" Width="917" Height="16" ShowHint="False" StretchMode="smMaxHeight" Color="13434828" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="0" Font.Height="-11" Font.Name="Tahoma" Font.Style="1" Frame.Typ="13" HAlign="haRight" ParentFont="False" VAlign="vaCenter" Text="TOTALES [frxDBInformeListadoPresupuestos.&#34;TITULO&#34;]:"/>
<TfrxMemoView Name="Memo6" Left="917" Top="0,37774772" Width="95" Height="16" ShowHint="False" StretchMode="smMaxHeight" Color="13434828" DisplayFormat.DecimalSeparator="," DisplayFormat.FormatStr="#,0.00 €" 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;frxDBInformeListadoPresupuestos.&#34;IMPORTE_TOTAL&#34;&#62;,DatosMaestros1)]"/>
</TfrxGroupFooter>
<TfrxHeader Name="Header1" Height="75" Left="0" Top="345" Width="1009,13451">
<TfrxMemoView Name="Memo13" Left="0" Top="60" Width="383,62987" Height="15" ShowHint="False" Color="13434828" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="0" Font.Height="-11" Font.Name="Tahoma" Font.Style="1" Frame.Typ="15" ParentFont="False" VAlign="vaCenter" Text="Resumen por meses de los presupuestos de cliente"/>
<TfrxMemoView Name="Memo22" Left="383,62987" Top="60" Width="120" Height="15" ShowHint="False" Color="13434828" DisplayFormat.DecimalSeparator="," 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="Importe total"/>
<TfrxMemoView Name="Memo23" Left="0" Top="32" Width="485,37013" Height="15,11811024" ShowHint="False" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="16384" Font.Height="-12" Font.Name="Tahoma" Font.Style="1" Frame.Color="8421504" ParentFont="False" Text="Resumen por meses de los presupuestos de cliente"/>
</TfrxHeader>
<TfrxReportSummary Name="ReportSummary1" Height="15" Left="0" Top="517" Width="1009,13451">
<TfrxMemoView Name="Memo24" Left="0" Top="0" Width="383,62987" Height="15" ShowHint="False" Color="13434828" DisplayFormat.DecimalSeparator="," 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="Total: "/>
<TfrxMemoView Name="Memo32" Left="383,62987" Top="0" Width="120" Height="15" ShowHint="False" Color="13434828" 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;frxDBInformeListadoPresupuestosResumen.&#34;IMPORTE_TOTAL&#34;&#62;,DatosMaestros2)]"/>
</TfrxReportSummary>
<TfrxMasterData Name="DatosMaestros2" Height="17" Left="0" Top="440" Width="1009,13451" ColumnWidth="0" ColumnGap="0" DataSetName="frxDBInformeListadoPresupuestosResumen" RowCount="0">
<TfrxMemoView Name="Memo9" Left="0" Top="0" Width="383,63" Height="17,00787402" ShowHint="False" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="16384" Font.Height="-12" Font.Name="Tahoma" Font.Style="1" Frame.Color="8421504" Frame.Typ="15" ParentFont="False" Text=" [frxDBInformeListadoPresupuestosResumen.&#34;TITULO&#34;]"/>
<TfrxMemoView Name="Memo12" Left="383,63" Top="0" Width="120" 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" ParentFont="False" Text="[frxDBInformeListadoPresupuestosResumen.&#34;IMPORTE_TOTAL&#34;]"/>
</TfrxMasterData>
</TfrxReportPage>
</TfrxReport>

57
Source/Informes/9/InformeListadoPresupuestosDesglosado.fr3 Normal file
View File

@ -0,0 +1,57 @@
<?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="40585,5441031829" 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="044C65667403990003546F70021008446174617365747301010C2E00000020446174615365744E616D653D226672784442496E666F726D654C69737461646F507265737570756573746F732200010C3500000020446174615365744E616D653D226672784442496E666F726D654C69737461646F507265737570756573746F73526573756D656E220000095661726961626C657301010C13000000204E616D653D2220506167696E6163696F6E2200010C0E000000204E616D653D22506167696E612200010C14000000204E616D653D22546F74616C506167696E61732200010C11000000204E616D653D2220506572696F646F732200010C31000000204E616D653D224665636861496E6963696F222056616C75653D22262336303B4665636861496E6963696F262336323B2200010C10000000204E616D653D22466563686146696E220000055374796C650100">
<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="">
<TfrxPageHeader Name="Band1" Height="136,10235" Left="0" Top="16" Width="1009,13451" OnBeforePrint="Band1OnBeforePrint">
<TfrxPictureView Name="Logotipo" Left="0" Top="37,10235" Width="80" Height="88" ShowHint="False" HightQuality="False"/>
<TfrxMemoView Name="DatosEmpresa" Left="80" Top="37,10235" Width="232" Height="88" ShowHint="False" StretchMode="smMaxHeight" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="0" Font.Height="-11" Font.Name="Tahoma" Font.Style="0" ParentFont="False" Text=""/>
<TfrxLineView Name="Line1" Align="baLeft" Left="0" Top="129,10235" Width="312" Height="0" ShowHint="False" Frame.Color="32768" Frame.Typ="4" Frame.Width="4"/>
<TfrxShapeView Name="Shape5" Left="513" Top="7" Width="495" Height="125" ShowHint="False" Color="13434828" Shape="skRoundRectangle"/>
<TfrxMemoView Name="NombreCliente" Left="519,85807" Top="14" Width="480" Height="20" ShowHint="False" StretchMode="smMaxHeight" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="0" Font.Height="-13" Font.Name="Tahoma" Font.Style="1" HAlign="haRight" ParentFont="False" Text="LISTADO DE PRESUPUESTOS DE CLIENTE"/>
<TfrxMemoView Name="Memo3" Left="518,85807" Top="35,89765" Width="481" Height="91" ShowHint="False" StretchMode="smMaxHeight" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="0" Font.Height="-12" Font.Name="Tahoma" Font.Style="0" HAlign="haRight" ParentFont="False" Text="Fecha del listado: [&#60;Date&#62;] - Página [Page#] de [TotalPages#]&#13;&#10;[TextoParametros]"/>
</TfrxPageHeader>
<TfrxPageFooter Name="" Height="23,77953" Left="0" Top="632" Width="1009,13451" PrintOnLastPage="False">
<TfrxMemoView Name="mContinua" Left="925,98485" Top="4,77953" Width="81,08714" Height="16,77953" OnBeforePrint="mContinuaOnBeforePrint" ShowHint="False" StretchMode="smMaxHeight" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="16384" Font.Height="-12" Font.Name="Tahoma" Font.Style="0" HAlign="haRight" ParentFont="False" Text="Continúa ..."/>
</TfrxPageFooter>
<TfrxGroupHeader Name="" Height="40" Left="0" Restrictions="2" Top="252" Width="1009,13451" Condition="frxDBInformeListadoPresupuestos.&#34;NOMBRE&#34;" ReprintOnNewPage="True">
<TfrxMemoView Name="Memo27" Left="0" Top="25" Width="88,77953" Height="15" ShowHint="False" Color="13434828" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="0" Font.Height="-11" Font.Name="Tahoma" Font.Style="1" Frame.Typ="15" ParentFont="False" VAlign="vaCenter" Text="Nº presupuesto"/>
<TfrxMemoView Name="Memo28" Left="181,45671" Top="25" Width="464,33859" Height="15" ShowHint="False" Color="13434828" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="0" Font.Height="-11" Font.Name="Tahoma" Font.Style="1" Frame.Typ="15" ParentFont="False" VAlign="vaCenter" Text="Cliente"/>
<TfrxMemoView Name="Memo49" Left="645,7953" Top="25" Width="81,33859" Height="15" ShowHint="False" Color="13434828" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="0" Font.Height="-11" Font.Name="Tahoma" Font.Style="1" Frame.Typ="15" ParentFont="False" VAlign="vaCenter" Text="Situación"/>
<TfrxMemoView Name="Memo50" Left="727,13389" Top="25" Width="95" Height="15" ShowHint="False" Color="13434828" DisplayFormat.DecimalSeparator="," 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="Fecha decisión"/>
<TfrxMemoView Name="Memo51" Left="822,13389" Top="25" Width="95" Height="15" ShowHint="False" Color="13434828" DisplayFormat.DecimalSeparator="," 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="Nº factura"/>
<TfrxMemoView Name="Memo52" Left="917,13389" Top="25" Width="95" Height="15" ShowHint="False" Color="13434828" DisplayFormat.DecimalSeparator="," 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="Importe total"/>
<TfrxMemoView Name="Memo8" Left="88,77953" Top="25" Width="92,67718" Height="15" ShowHint="False" Color="13434828" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="0" Font.Height="-11" Font.Name="Tahoma" Font.Style="1" Frame.Typ="15" ParentFont="False" VAlign="vaCenter" Text="Fecha"/>
<TfrxMemoView Name="Memo7" Left="0" Top="2,77953" Width="485,37013" Height="15,11811024" ShowHint="False" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="16384" Font.Height="-12" Font.Name="Tahoma" Font.Style="1" Frame.Color="8421504" ParentFont="False" Text="[frxDBInformeListadoPresupuestos.&#34;NOMBRE&#34;]"/>
</TfrxGroupHeader>
<TfrxMasterData Name="DatosMaestros1" Height="17" Left="0" Top="312" Width="1009,13451" Columns="1" ColumnWidth="200" ColumnGap="20" DataSetName="frxDBInformeListadoPresupuestos" RowCount="0" Stretched="True">
<TfrxMemoView Name="Memo4" Align="baLeft" Left="181,46" Top="0" Width="464,34" 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=" [frxDBInformeListadoPresupuestos.&#34;NOMBRE&#34;]"/>
<TfrxMemoView Name="Memo20" Align="baLeft" Left="645,8" Top="0" Width="81,34" 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="[frxDBInformeListadoPresupuestos.&#34;SITUACION&#34;]"/>
<TfrxMemoView Name="Memo21" Align="baLeft" Left="88,78" Top="0" Width="92,68" 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=" [frxDBInformeListadoPresupuestos.&#34;FECHA_PRESUPUESTO&#34;]"/>
<TfrxMemoView Name="Memo18" Align="baLeft" Left="0" Top="0" Width="88,78" 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="[frxDBInformeListadoPresupuestos.&#34;REFERENCIA&#34;]"/>
<TfrxMemoView Name="Memo29" Align="baLeft" Left="727,14" Top="0" Width="95" Height="17,00787402" ShowHint="False" StretchMode="smMaxHeight" DisplayFormat.DecimalSeparator="," DisplayFormat.FormatStr="%2.2m" 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="[frxDBInformeListadoPresupuestos.&#34;FECHA_DECISION&#34;]"/>
<TfrxMemoView Name="Memo30" Align="baLeft" Left="822,14" Top="0" Width="95" 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" ParentFont="False" Text="[frxDBInformeListadoPresupuestos.&#34;FACTURA&#34;]"/>
<TfrxMemoView Name="Memo31" Align="baLeft" Left="917,14" Top="0" Width="95" 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" ParentFont="False" Text="[frxDBInformeListadoPresupuestos.&#34;IMPORTE_TOTAL&#34;]"/>
</TfrxMasterData>
<TfrxGroupFooter Name="" Height="16" Left="0" Top="349" Width="1009,13451">
<TfrxMemoView Name="Memo53" Left="0" Top="0,37774772" Width="917" Height="16" ShowHint="False" StretchMode="smMaxHeight" Color="13434828" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="0" Font.Height="-11" Font.Name="Tahoma" Font.Style="1" Frame.Typ="13" HAlign="haRight" ParentFont="False" VAlign="vaCenter" Text="TOTALES [frxDBInformeListadoPresupuestos.&#34;TITULO&#34;]:"/>
<TfrxMemoView Name="Memo6" Left="917" Top="0,37774772" Width="95" Height="16" ShowHint="False" StretchMode="smMaxHeight" Color="13434828" DisplayFormat.DecimalSeparator="," DisplayFormat.FormatStr="#,0.00 €" 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;frxDBInformeListadoPresupuestos.&#34;IMPORTE_TOTAL&#34;&#62;,DatosMaestros1)]"/>
</TfrxGroupFooter>
<TfrxHeader Name="Header1" Height="75" Left="0" Top="425" Width="1009,13451">
<TfrxMemoView Name="Memo13" Left="0" Top="60" Width="383,62987" Height="15" ShowHint="False" Color="13434828" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="0" Font.Height="-11" Font.Name="Tahoma" Font.Style="1" Frame.Typ="15" ParentFont="False" VAlign="vaCenter" Text="Resumen por meses de los presupuestos de cliente"/>
<TfrxMemoView Name="Memo22" Left="383,62987" Top="60" Width="120" Height="15" ShowHint="False" Color="13434828" DisplayFormat.DecimalSeparator="," 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="Importe total"/>
<TfrxMemoView Name="Memo23" Left="0" Top="32" Width="485,37013" Height="15,11811024" ShowHint="False" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="16384" Font.Height="-12" Font.Name="Tahoma" Font.Style="1" Frame.Color="8421504" ParentFont="False" Text="Resumen por meses de los presupuestos de cliente"/>
</TfrxHeader>
<TfrxReportSummary Name="ReportSummary1" Height="15" Left="0" Top="597" Width="1009,13451">
<TfrxMemoView Name="Memo24" Left="0" Top="0" Width="383,62987" Height="15" ShowHint="False" Color="13434828" DisplayFormat.DecimalSeparator="," 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="Total: "/>
<TfrxMemoView Name="Memo32" Left="383,62987" Top="0" Width="120" Height="15" ShowHint="False" Color="13434828" 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;frxDBInformeListadoPresupuestosResumen.&#34;IMPORTE_TOTAL&#34;&#62;,DatosMaestros2)]"/>
</TfrxReportSummary>
<TfrxMasterData Name="DatosMaestros2" Height="17" Left="0" Top="520" Width="1009,13451" ColumnWidth="0" ColumnGap="0" DataSetName="frxDBInformeListadoPresupuestosResumen" RowCount="0">
<TfrxMemoView Name="Memo9" Left="0" Top="0" Width="383,63" Height="17,00787402" ShowHint="False" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="16384" Font.Height="-12" Font.Name="Tahoma" Font.Style="1" Frame.Color="8421504" Frame.Typ="15" ParentFont="False" Text=" [frxDBInformeListadoPresupuestosResumen.&#34;TITULO&#34;]"/>
<TfrxMemoView Name="Memo12" Left="383,63" Top="0" Width="120" 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" ParentFont="False" Text="[frxDBInformeListadoPresupuestosResumen.&#34;IMPORTE_TOTAL&#34;]"/>
</TfrxMasterData>
<TfrxGroupHeader Name="GroupHeader1" Height="20" Left="0" Top="212" Width="1009,13451" Condition="frxDBInformeListadoPresupuestos.&#34;MES&#34;">
<TfrxMemoView Name="Memo1" Left="0" Top="1" Width="485,37013" Height="15,11811024" ShowHint="False" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="16384" Font.Height="-12" Font.Name="Tahoma" Font.Style="1" Frame.Color="8421504" ParentFont="False" Text="[frxDBInformeListadoPresupuestos.&#34;TITULO&#34;]"/>
</TfrxGroupHeader>
<TfrxGroupFooter Name="GroupFooter1" Height="20" Left="0" Top="385" Width="1009,13451"/>
</TfrxReportPage>
</TfrxReport>

55
Source/Informes/9/InformeListadoRecibosCliPendientes.fr3 Normal file
View File

@ -0,0 +1,55 @@
<?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="40585,5445097917" 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="044C65667403990003546F70021008446174617365747301010C3300000020446174615365744E616D653D226672784442496E666F726D654C69737461646F52656369626F7350656E6469656E7465732200010C3400000020446174615365744E616D653D226672784442496E666F726D654C69737461646F52656369626F7350656E64526573756D656E220000095661726961626C657301010C13000000204E616D653D2220506167696E6163696F6E2200010C0E000000204E616D653D22506167696E612200010C14000000204E616D653D22546F74616C506167696E61732200010C11000000204E616D653D2220506572696F646F732200010C31000000204E616D653D224665636861496E6963696F222056616C75653D22262336303B4665636861496E6963696F262336323B2200010C10000000204E616D653D22466563686146696E220000055374796C650100">
<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="">
<TfrxPageHeader Name="Band1" Height="136,10235" Left="0" Top="16" Width="1009,13451" OnBeforePrint="Band1OnBeforePrint">
<TfrxShapeView Name="Shape5" Left="512,90569" Top="1,10235" Width="495" Height="135" ShowHint="False" Color="13434828" Shape="skRoundRectangle"/>
<TfrxPictureView Name="Logotipo" Left="0" Top="37,10235" Width="80" Height="88" ShowHint="False" HightQuality="False"/>
<TfrxMemoView Name="DatosEmpresa" Left="80" Top="37,10235" Width="232" Height="88" ShowHint="False" StretchMode="smMaxHeight" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="0" Font.Height="-11" Font.Name="Tahoma" Font.Style="0" ParentFont="False" Text=""/>
<TfrxMemoView Name="NombreCliente" Left="515,98423" Top="4,10235" Width="484,01577" Height="24" ShowHint="False" StretchMode="smMaxHeight" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="0" Font.Height="-13" Font.Name="Tahoma" Font.Style="1" HAlign="haRight" ParentFont="False" Text="LISTADO DE RECIBOS DE CLIENTE PENDIENTES"/>
<TfrxMemoView Name="Memo3" Left="517" Top="28,10235" Width="482" Height="101" ShowHint="False" StretchMode="smMaxHeight" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="0" Font.Height="-12" Font.Name="Tahoma" Font.Style="0" HAlign="haRight" ParentFont="False" Text="Fecha del listado: [&#60;Date&#62;] - Página [Page#] de [TotalPages#]&#13;&#10;[TextoParametros]"/>
<TfrxLineView Name="Line1" Align="baLeft" Left="0" Top="129,10235" Width="312" Height="0" ShowHint="False" Frame.Color="32768" Frame.Typ="4" Frame.Width="4"/>
</TfrxPageHeader>
<TfrxPageFooter Name="" Height="23,77953" Left="0" Top="523" Width="1009,13451" PrintOnLastPage="False">
<TfrxMemoView Name="mContinua" Left="925,98485" Top="4,77953000000002" Width="81,08714" Height="16,77953" OnBeforePrint="mContinuaOnBeforePrint" ShowHint="False" StretchMode="smMaxHeight" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="16384" Font.Height="-12" Font.Name="Tahoma" Font.Style="0" HAlign="haRight" ParentFont="False" Text="Continúa ..."/>
</TfrxPageFooter>
<TfrxGroupHeader Name="" Height="40" Left="0" Restrictions="2" Top="212" Width="1009,13451" Condition="frxDBInformeListadoRecibosPendientes.&#34;MES&#34;" ReprintOnNewPage="True">
<TfrxMemoView Name="Memo27" Left="0" Top="25" Width="92" Height="15" ShowHint="False" Color="13434828" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="0" Font.Height="-11" Font.Name="Tahoma" Font.Style="1" Frame.Typ="15" ParentFont="False" VAlign="vaCenter" Text="Nº factura"/>
<TfrxMemoView Name="Memo28" Left="252" Top="25" Width="250" Height="15" ShowHint="False" Color="13434828" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="0" Font.Height="-11" Font.Name="Tahoma" Font.Style="1" Frame.Typ="15" ParentFont="False" VAlign="vaCenter" Text="Cliente"/>
<TfrxMemoView Name="Memo49" Left="919,13451" Top="25" Width="90" Height="15" ShowHint="False" Color="13434828" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="0" Font.Height="-11" Font.Name="Tahoma" Font.Style="1" Frame.Typ="15" ParentFont="False" VAlign="vaCenter" Text="Situación"/>
<TfrxMemoView Name="Memo50" Left="172" Top="25" Width="80" Height="15" ShowHint="False" Color="13434828" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="0" Font.Height="-11" Font.Name="Tahoma" Font.Style="1" Frame.Typ="15" ParentFont="False" VAlign="vaCenter" Text="Fecha vto."/>
<TfrxMemoView Name="Memo52" Left="799,13451" Top="25" Width="120" Height="15" ShowHint="False" Color="13434828" DisplayFormat.DecimalSeparator="," 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="Importe total"/>
<TfrxMemoView Name="Memo8" Left="92" Top="25" Width="80" Height="15" ShowHint="False" Color="13434828" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="0" Font.Height="-11" Font.Name="Tahoma" Font.Style="1" Frame.Typ="15" ParentFont="False" VAlign="vaCenter" Text="Fecha emisión"/>
<TfrxMemoView Name="Memo7" Left="7,55906" Top="2,77952999999999" Width="485,37013" Height="15,11811024" ShowHint="False" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="16384" Font.Height="-12" Font.Name="Tahoma" Font.Style="1" Frame.Color="8421504" ParentFont="False" Text="[frxDBInformeListadoRecibosPendientes.&#34;TITULO&#34;]"/>
<TfrxMemoView Name="Memo4" Left="502" Top="25" Width="300" Height="15" ShowHint="False" Color="13434828" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="0" Font.Height="-11" Font.Name="Tahoma" Font.Style="1" Frame.Typ="15" ParentFont="False" VAlign="vaCenter" Text="Domiciliación"/>
</TfrxGroupHeader>
<TfrxMasterData Name="DatosMaestros1" Height="17,00787402" Left="0" Top="272" Width="1009,13451" Columns="1" ColumnWidth="200" ColumnGap="20" DataSetName="frxDBInformeListadoRecibosPendientes" RowCount="0" Stretched="True">
<TfrxMemoView Name="Memo29" Left="172" Top="0" Width="80" 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=" [frxDBInformeListadoRecibosPendientes.&#34;FECHA_VENCIMIENTO&#34;]"/>
<TfrxMemoView Name="Memo1" Left="252" Top="0" Width="250" 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=" [frxDBInformeListadoRecibosPendientes.&#34;NOMBRE_CLIENTE&#34;]"/>
<TfrxMemoView Name="Memo20" Left="919,13451" Top="0" Width="90" 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=" [frxDBInformeListadoRecibosPendientes.&#34;SITUACION&#34;]"/>
<TfrxMemoView Name="Memo21" Left="92" Top="0" Width="80" 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=" [frxDBInformeListadoRecibosPendientes.&#34;FECHA_EMISION&#34;]"/>
<TfrxMemoView Name="Memo18" Left="0" Top="0" Width="92" 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="[frxDBInformeListadoRecibosPendientes.&#34;REFERENCIA&#34;]"/>
<TfrxMemoView Name="Memo31" Left="802" Top="0" Width="118" 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" ParentFont="False" Text="[frxDBInformeListadoRecibosPendientes.&#34;IMPORTE_TOTAL&#34;] "/>
<TfrxMemoView Name="Memo5" Left="502" Top="0" Width="300" 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="[frxDBInformeListadoRecibosPendientes.&#34;DATOS_BANCARIOS&#34;]"/>
</TfrxMasterData>
<TfrxGroupFooter Name="" Height="16" Left="0" Top="309" Width="1009,13451">
<TfrxMemoView Name="Memo6" Left="801,55905512" Top="0,377747720000002" Width="118" Height="16" ShowHint="False" StretchMode="smMaxHeight" Color="13434828" DisplayFormat.DecimalSeparator="," DisplayFormat.FormatStr="#,0.00 €" 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;frxDBInformeListadoRecibosPendientes.&#34;IMPORTE_TOTAL&#34;&#62;,DatosMaestros1)]"/>
<TfrxMemoView Name="Memo53" Left="0" Top="0,377747720000002" Width="801,55905512" Height="16" ShowHint="False" StretchMode="smMaxHeight" Color="13434828" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="0" Font.Height="-11" Font.Name="Tahoma" Font.Style="1" Frame.Typ="13" HAlign="haRight" ParentFont="False" VAlign="vaCenter" Text="TOTALES [frxDBInformeListadoRecibosPendientes.&#34;TITULO&#34;]:"/>
<TfrxMemoView Name="Memo9" Align="baLeft" Left="919,55905512" Top="0" Width="90" Height="16" ShowHint="False" StretchMode="smMaxHeight" Color="13434828" DisplayFormat.DecimalSeparator="," DisplayFormat.FormatStr="#,0.00 €" 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=""/>
</TfrxGroupFooter>
<TfrxMemoView Name="Memo2" Align="baRight" Left="938,13451" Top="651" Width="71" Height="13" OnBeforePrint="Memo2OnBeforePrint" ShowHint="False" StretchMode="smMaxHeight" Font.Charset="1" Font.Color="0" Font.Height="-9" Font.Name="Tahoma" Font.Style="0" HAlign="haRight" ParentFont="False" VAlign="vaCenter" Text=""/>
<TfrxGroupHeader Name="GroupHeader1" Height="45" Left="0" Top="345" Width="1009,13451" Condition="frxDBInformeListadoRecibosPendResumen.&#34;MES&#34;">
<TfrxMemoView Name="Memo13" Left="2" Top="9" Width="485,37013" Height="15,11811024" ShowHint="False" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="16384" Font.Height="-12" Font.Name="Tahoma" Font.Style="1" Frame.Color="8421504" ParentFont="False" Text="RESUMEN POR DOMICILIACIÓN [frxDBInformeListadoRecibosPendResumen.&#34;TITULO&#34;]"/>
<TfrxMemoView Name="Memo16" Left="0" Top="30" Width="495" Height="15" ShowHint="False" Color="13434828" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="0" Font.Height="-11" Font.Name="Tahoma" Font.Style="1" Frame.Typ="15" ParentFont="False" VAlign="vaCenter" Text="Domiciliación"/>
<TfrxMemoView Name="Memo15" Left="495" Top="30" Width="108" Height="15" ShowHint="False" Color="13434828" DisplayFormat.DecimalSeparator="," 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="Importe total"/>
</TfrxGroupHeader>
<TfrxMasterData Name="DAtosMaestros2" Height="17" Left="0" Top="410" Width="1009,13451" ColumnWidth="0" ColumnGap="0" DataSetName="frxDBInformeListadoRecibosPendResumen" RowCount="0" Stretched="True">
<TfrxMemoView Name="Memo11" Left="0" Top="0" Width="495" Height="17,00787402" OnBeforePrint="Memo11OnBeforePrint" 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="[frxDBInformeListadoRecibosPendResumen.&#34;DATOS_BANCARIOS&#34;]"/>
<TfrxMemoView Name="Memo12" Left="495" Top="0" Width="108" 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" ParentFont="False" Text="[frxDBInformeListadoRecibosPendResumen.&#34;IMPORTE_TOTAL&#34;] "/>
</TfrxMasterData>
<TfrxGroupFooter Name="GroupFooter1" Height="16" Left="0" Top="447" Width="1009,13451">
<TfrxMemoView Name="Memo22" Left="0" Top="0" Width="495" Height="16" ShowHint="False" StretchMode="smMaxHeight" Color="13434828" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="0" Font.Height="-11" Font.Name="Tahoma" Font.Style="1" Frame.Typ="13" HAlign="haRight" ParentFont="False" VAlign="vaCenter" Text="TOTALES [frxDBInformeListadoRecibosPendResumen.&#34;TITULO&#34;]:"/>
<TfrxMemoView Name="Memo17" Left="495" Top="0" Width="108" Height="16" ShowHint="False" StretchMode="smMaxHeight" Color="13434828" DisplayFormat.DecimalSeparator="," DisplayFormat.FormatStr="#,0.00 €" 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;frxDBInformeListadoRecibosPendResumen.&#34;IMPORTE_TOTAL&#34;&#62;,DatosMaestros2)] "/>
</TfrxGroupFooter>
</TfrxReportPage>
</TfrxReport>

59
Source/Informes/9/InformeListadoRecibosCliPendientesDesglosado.fr3 Normal file
View File

@ -0,0 +1,59 @@
<?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="40585,5446336343" 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="044C65667403990003546F70021008446174617365747301010C3300000020446174615365744E616D653D226672784442496E666F726D654C69737461646F52656369626F7350656E6469656E7465732200010C3400000020446174615365744E616D653D226672784442496E666F726D654C69737461646F52656369626F7350656E64526573756D656E220000095661726961626C657301010C13000000204E616D653D2220506167696E6163696F6E2200010C0E000000204E616D653D22506167696E612200010C14000000204E616D653D22546F74616C506167696E61732200010C11000000204E616D653D2220506572696F646F732200010C31000000204E616D653D224665636861496E6963696F222056616C75653D22262336303B4665636861496E6963696F262336323B2200010C10000000204E616D653D22466563686146696E220000055374796C650100">
<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="">
<TfrxPageHeader Name="Band1" Height="136,10235" Left="0" Top="16" Width="1009,13451" OnBeforePrint="Band1OnBeforePrint">
<TfrxShapeView Name="Shape5" Left="512,90569" Top="1,10235" Width="495" Height="135" ShowHint="False" Color="13434828" Shape="skRoundRectangle"/>
<TfrxPictureView Name="Logotipo" Left="0" Top="37,10235" Width="80" Height="88" ShowHint="False" HightQuality="False"/>
<TfrxMemoView Name="DatosEmpresa" Left="80" Top="37,10235" Width="232" Height="88" ShowHint="False" StretchMode="smMaxHeight" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="0" Font.Height="-11" Font.Name="Tahoma" Font.Style="0" ParentFont="False" Text=""/>
<TfrxMemoView Name="NombreCliente" Left="515,98423" Top="4,10235" Width="484,01577" Height="24" ShowHint="False" StretchMode="smMaxHeight" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="0" Font.Height="-13" Font.Name="Tahoma" Font.Style="1" HAlign="haRight" ParentFont="False" Text="LISTADO DE RECIBOS DE CLIENTE PENDIENTES"/>
<TfrxMemoView Name="Memo3" Left="517" Top="29,10235" Width="482" Height="103" ShowHint="False" StretchMode="smMaxHeight" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="0" Font.Height="-12" Font.Name="Tahoma" Font.Style="0" HAlign="haRight" ParentFont="False" Text="Fecha del listado: [&#60;Date&#62;] - Página [Page#] de [TotalPages#]&#13;&#10;[TextoParametros]"/>
<TfrxLineView Name="Line1" Align="baLeft" Left="0" Top="129,10235" Width="312" Height="0" ShowHint="False" Frame.Color="32768" Frame.Typ="4" Frame.Width="4"/>
</TfrxPageHeader>
<TfrxPageFooter Name="" Height="23,77953" Left="0" Top="603" Width="1009,13451" PrintOnLastPage="False">
<TfrxMemoView Name="mContinua" Left="925,98485" Top="4,77953000000002" Width="81,08714" Height="16,77953" OnBeforePrint="mContinuaOnBeforePrint" ShowHint="False" StretchMode="smMaxHeight" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="16384" Font.Height="-12" Font.Name="Tahoma" Font.Style="0" HAlign="haRight" ParentFont="False" Text="Continúa ..."/>
</TfrxPageFooter>
<TfrxGroupHeader Name="" Height="40" Left="0" Restrictions="2" Top="252" Width="1009,13451" Condition="frxDBInformeListadoRecibosPendientes.&#34;NOMBRE_CLIENTE&#34;" ReprintOnNewPage="True">
<TfrxMemoView Name="Memo27" Left="0" Top="25" Width="92" Height="15" ShowHint="False" Color="13434828" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="0" Font.Height="-11" Font.Name="Tahoma" Font.Style="1" Frame.Typ="15" ParentFont="False" VAlign="vaCenter" Text="Nº factura"/>
<TfrxMemoView Name="Memo28" Left="252" Top="25" Width="250" Height="15" ShowHint="False" Color="13434828" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="0" Font.Height="-11" Font.Name="Tahoma" Font.Style="1" Frame.Typ="15" ParentFont="False" VAlign="vaCenter" Text="Cliente"/>
<TfrxMemoView Name="Memo49" Left="919,13451" Top="25" Width="90" Height="15" ShowHint="False" Color="13434828" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="0" Font.Height="-11" Font.Name="Tahoma" Font.Style="1" Frame.Typ="15" ParentFont="False" VAlign="vaCenter" Text="Situación"/>
<TfrxMemoView Name="Memo50" Left="172" Top="25" Width="80" Height="15" ShowHint="False" Color="13434828" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="0" Font.Height="-11" Font.Name="Tahoma" Font.Style="1" Frame.Typ="15" ParentFont="False" VAlign="vaCenter" Text="Fecha vto."/>
<TfrxMemoView Name="Memo52" Left="799,13451" Top="25" Width="120" Height="15" ShowHint="False" Color="13434828" DisplayFormat.DecimalSeparator="," 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="Importe total"/>
<TfrxMemoView Name="Memo8" Left="92" Top="25" Width="80" Height="15" ShowHint="False" Color="13434828" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="0" Font.Height="-11" Font.Name="Tahoma" Font.Style="1" Frame.Typ="15" ParentFont="False" VAlign="vaCenter" Text="Fecha emisión"/>
<TfrxMemoView Name="Memo7" Left="7,55906" Top="2,77952999999999" Width="485,37013" Height="15,11811024" ShowHint="False" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="16384" Font.Height="-12" Font.Name="Tahoma" Font.Style="1" Frame.Color="8421504" ParentFont="False" Text="[frxDBInformeListadoRecibosPendientes.&#34;NOMBRE_CLIENTE&#34;]"/>
<TfrxMemoView Name="Memo4" Left="502" Top="25" Width="300" Height="15" ShowHint="False" Color="13434828" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="0" Font.Height="-11" Font.Name="Tahoma" Font.Style="1" Frame.Typ="15" ParentFont="False" VAlign="vaCenter" Text="Domiciliación"/>
</TfrxGroupHeader>
<TfrxMasterData Name="DatosMaestros1" Height="17" Left="0" Top="312" Width="1009,13451" Columns="1" ColumnWidth="200" ColumnGap="20" DataSetName="frxDBInformeListadoRecibosPendientes" RowCount="0" Stretched="True">
<TfrxMemoView Name="Memo29" Left="172" Top="0" Width="80" 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=" [frxDBInformeListadoRecibosPendientes.&#34;FECHA_VENCIMIENTO&#34;]"/>
<TfrxMemoView Name="Memo1" Left="252" Top="0" Width="250" 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=" [frxDBInformeListadoRecibosPendientes.&#34;NOMBRE_CLIENTE&#34;]"/>
<TfrxMemoView Name="Memo20" Left="919,13451" Top="0" Width="90" 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=" [frxDBInformeListadoRecibosPendientes.&#34;SITUACION&#34;]"/>
<TfrxMemoView Name="Memo21" Left="92" Top="0" Width="80" 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=" [frxDBInformeListadoRecibosPendientes.&#34;FECHA_EMISION&#34;]"/>
<TfrxMemoView Name="Memo18" Left="0" Top="0" Width="92" 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="[frxDBInformeListadoRecibosPendientes.&#34;REFERENCIA&#34;]"/>
<TfrxMemoView Name="Memo31" Left="802" Top="0" Width="118" 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" ParentFont="False" Text="[frxDBInformeListadoRecibosPendientes.&#34;IMPORTE_TOTAL&#34;] "/>
<TfrxMemoView Name="Memo5" Left="502" Top="0" Width="300" 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="[frxDBInformeListadoRecibosPendientes.&#34;DATOS_BANCARIOS&#34;]"/>
</TfrxMasterData>
<TfrxGroupFooter Name="" Height="16" Left="0" Top="349" Width="1009,13451">
<TfrxMemoView Name="Memo6" Left="801,55905512" Top="0,377747720000002" Width="118" Height="16" ShowHint="False" StretchMode="smMaxHeight" Color="13434828" DisplayFormat.DecimalSeparator="," DisplayFormat.FormatStr="#,0.00 €" 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;frxDBInformeListadoRecibosPendientes.&#34;IMPORTE_TOTAL&#34;&#62;,DatosMaestros1)]"/>
<TfrxMemoView Name="Memo53" Left="0" Top="0,377747720000002" Width="801,55905512" Height="16" ShowHint="False" StretchMode="smMaxHeight" Color="13434828" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="0" Font.Height="-11" Font.Name="Tahoma" Font.Style="1" Frame.Typ="13" HAlign="haRight" ParentFont="False" VAlign="vaCenter" Text="TOTALES [frxDBInformeListadoRecibosPendientes.&#34;TITULO&#34;]:"/>
<TfrxMemoView Name="Memo9" Align="baLeft" Left="919,55905512" Top="0" Width="90" Height="16" ShowHint="False" StretchMode="smMaxHeight" Color="13434828" DisplayFormat.DecimalSeparator="," DisplayFormat.FormatStr="#,0.00 €" 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=""/>
</TfrxGroupFooter>
<TfrxMemoView Name="Memo2" Align="baRight" Left="938,13451" Top="651" Width="71" Height="13" OnBeforePrint="Memo2OnBeforePrint" ShowHint="False" StretchMode="smMaxHeight" Font.Charset="1" Font.Color="0" Font.Height="-9" Font.Name="Tahoma" Font.Style="0" HAlign="haRight" ParentFont="False" VAlign="vaCenter" Text=""/>
<TfrxGroupHeader Name="GroupHeader1" Height="45" Left="0" Top="425" Width="1009,13451" Condition="frxDBInformeListadoRecibosPendResumen.&#34;MES&#34;">
<TfrxMemoView Name="Memo13" Left="2" Top="9" Width="485,37013" Height="15,11811024" ShowHint="False" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="16384" Font.Height="-12" Font.Name="Tahoma" Font.Style="1" Frame.Color="8421504" ParentFont="False" Text="RESUMEN POR DOMICILIACIÓN [frxDBInformeListadoRecibosPendResumen.&#34;TITULO&#34;]"/>
<TfrxMemoView Name="Memo16" Left="0" Top="30" Width="495" Height="15" ShowHint="False" Color="13434828" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="0" Font.Height="-11" Font.Name="Tahoma" Font.Style="1" Frame.Typ="15" ParentFont="False" VAlign="vaCenter" Text="Domiciliación"/>
<TfrxMemoView Name="Memo15" Left="495" Top="30" Width="108" Height="15" ShowHint="False" Color="13434828" DisplayFormat.DecimalSeparator="," 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="Importe total"/>
</TfrxGroupHeader>
<TfrxMasterData Name="DAtosMaestros2" Height="17" Left="0" Top="490" Width="1009,13451" ColumnWidth="0" ColumnGap="0" DataSetName="frxDBInformeListadoRecibosPendResumen" RowCount="0" Stretched="True">
<TfrxMemoView Name="Memo11" Left="0" Top="0" Width="495" Height="17,00787402" OnBeforePrint="Memo11OnBeforePrint" 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="[frxDBInformeListadoRecibosPendResumen.&#34;DATOS_BANCARIOS&#34;]"/>
<TfrxMemoView Name="Memo12" Left="495" Top="0" Width="108" 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" ParentFont="False" Text="[frxDBInformeListadoRecibosPendResumen.&#34;IMPORTE_TOTAL&#34;] "/>
</TfrxMasterData>
<TfrxGroupFooter Name="GroupFooter1" Height="16" Left="0" Top="527" Width="1009,13451">
<TfrxMemoView Name="Memo22" Left="0" Top="0" Width="495" Height="16" ShowHint="False" StretchMode="smMaxHeight" Color="13434828" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="0" Font.Height="-11" Font.Name="Tahoma" Font.Style="1" Frame.Typ="13" HAlign="haRight" ParentFont="False" VAlign="vaCenter" Text="TOTALES [frxDBInformeListadoRecibosPendResumen.&#34;TITULO&#34;]:"/>
<TfrxMemoView Name="Memo17" Left="495" Top="0" Width="108" Height="16" ShowHint="False" StretchMode="smMaxHeight" Color="13434828" DisplayFormat.DecimalSeparator="," DisplayFormat.FormatStr="#,0.00 €" 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;frxDBInformeListadoRecibosPendResumen.&#34;IMPORTE_TOTAL&#34;&#62;,DatosMaestros2)] "/>
</TfrxGroupFooter>
<TfrxGroupHeader Name="GroupHeader2" Height="20" Left="0" Top="212" Width="1009,13451" Condition="frxDBInformeListadoRecibosPendientes.&#34;MES&#34;">
<TfrxMemoView Name="Memo10" Left="1" Top="2" Width="485,37013" Height="15,11811024" ShowHint="False" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="16384" Font.Height="-12" Font.Name="Tahoma" Font.Style="1" Frame.Color="8421504" ParentFont="False" Text="[frxDBInformeListadoRecibosPendientes.&#34;TITULO&#34;]"/>
</TfrxGroupHeader>
<TfrxGroupFooter Name="GroupFooter2" Height="20" Left="0" Top="385" Width="1009,13451"/>
</TfrxReportPage>
</TfrxReport>

52
Source/Informes/9/InformeListadoRecibosCliente.fr3 Normal file
View File

@ -0,0 +1,52 @@
<?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="40585,5441908681" 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="044C65667403990003546F70021008446174617365747301010C2900000020446174615365744E616D653D226672784442496E666F726D654C69737461646F52656369626F732200010C3000000020446174615365744E616D653D226672784442496E666F726D654C69737461646F52656369626F73526573756D656E220000095661726961626C657301010C13000000204E616D653D2220506167696E6163696F6E2200010C0E000000204E616D653D22506167696E612200010C14000000204E616D653D22546F74616C506167696E61732200010C11000000204E616D653D2220506572696F646F732200010C31000000204E616D653D224665636861496E6963696F222056616C75653D22262336303B4665636861496E6963696F262336323B2200010C10000000204E616D653D22466563686146696E220000055374796C650100">
<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="">
<TfrxPageHeader Name="Band1" Height="136,10235" Left="0" Top="16" Width="1009,13451" OnBeforePrint="Band1OnBeforePrint">
<TfrxShapeView Name="Shape5" Left="513,14193" Top="1,10235" Width="495" Height="135" ShowHint="False" Color="13434828" Shape="skRoundRectangle"/>
<TfrxPictureView Name="Logotipo" Left="0" Top="37,10235" Width="80" Height="88" ShowHint="False" HightQuality="False"/>
<TfrxMemoView Name="DatosEmpresa" Left="80" Top="37,10235" Width="232" Height="88" ShowHint="False" StretchMode="smMaxHeight" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="0" Font.Height="-11" Font.Name="Tahoma" Font.Style="0" ParentFont="False" Text=""/>
<TfrxMemoView Name="NombreCliente" Left="519" Top="6,10235" Width="481" Height="27" ShowHint="False" StretchMode="smMaxHeight" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="0" Font.Height="-13" Font.Name="Tahoma" Font.Style="1" HAlign="haRight" ParentFont="False" Text="LISTADO DE RECIBOS DE CLIENTE"/>
<TfrxMemoView Name="Memo3" Left="518" Top="35,10235" Width="481" Height="94" ShowHint="False" StretchMode="smMaxHeight" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="0" Font.Height="-12" Font.Name="Tahoma" Font.Style="0" HAlign="haRight" ParentFont="False" Text="Fecha del listado: [&#60;Date&#62;] - Página [Page#] de [TotalPages#]&#13;&#10;[TextoParametros]"/>
<TfrxLineView Name="Line1" Align="baLeft" Left="0" Top="129,10235" Width="312" Height="0" ShowHint="False" Frame.Color="32768" Frame.Typ="4" Frame.Width="4"/>
</TfrxPageHeader>
<TfrxPageFooter Name="" Height="23,77953" Left="0" Top="552" Width="1009,13451" PrintOnLastPage="False">
<TfrxMemoView Name="mContinua" Left="925,98485" Top="4,77953000000002" Width="81,08714" Height="16,77953" OnBeforePrint="mContinuaOnBeforePrint" ShowHint="False" StretchMode="smMaxHeight" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="16384" Font.Height="-12" Font.Name="Tahoma" Font.Style="0" HAlign="haRight" ParentFont="False" Text="Continúa ..."/>
</TfrxPageFooter>
<TfrxGroupHeader Name="" Height="40" Left="0" Restrictions="2" Top="212" Width="1009,13451" Condition="frxDBInformeListadoRecibos.&#34;MES&#34;" ReprintOnNewPage="True">
<TfrxMemoView Name="Memo27" Left="0" Top="25" Width="90" Height="15" ShowHint="False" Color="13434828" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="0" Font.Height="-11" Font.Name="Tahoma" Font.Style="1" Frame.Typ="15" ParentFont="False" VAlign="vaCenter" Text="Nº factura"/>
<TfrxMemoView Name="Memo28" Left="276" Top="25" Width="464,33859" Height="15" ShowHint="False" Color="13434828" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="0" Font.Height="-11" Font.Name="Tahoma" Font.Style="1" Frame.Typ="15" ParentFont="False" VAlign="vaCenter" Text="Cliente"/>
<TfrxMemoView Name="Memo49" Left="740,7953" Top="25" Width="134,25201" Height="15" ShowHint="False" Color="13434828" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="0" Font.Height="-11" Font.Name="Tahoma" Font.Style="1" Frame.Typ="15" ParentFont="False" VAlign="vaCenter" Text="Situación"/>
<TfrxMemoView Name="Memo50" Left="181" Top="25" Width="95" Height="15" ShowHint="False" Color="13434828" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="0" Font.Height="-11" Font.Name="Tahoma" Font.Style="1" Frame.Typ="15" ParentFont="False" VAlign="vaCenter" Text="Fecha vto."/>
<TfrxMemoView Name="Memo52" Left="875,04731" Top="25" Width="136,06299213" Height="15" ShowHint="False" Color="13434828" DisplayFormat.DecimalSeparator="," 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="Importe total"/>
<TfrxMemoView Name="Memo8" Left="90" Top="25" Width="91" Height="15" ShowHint="False" Color="13434828" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="0" Font.Height="-11" Font.Name="Tahoma" Font.Style="1" Frame.Typ="15" ParentFont="False" VAlign="vaCenter" Text="Fecha emisión"/>
<TfrxMemoView Name="Memo7" Left="7,55906" Top="2,77952999999999" Width="485,37013" Height="15,1181102362205" ShowHint="False" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="16384" Font.Height="-12" Font.Name="Tahoma" Font.Style="1" Frame.Color="8421504" ParentFont="False" Text="[frxDBInformeListadoRecibos.&#34;TITULO&#34;]"/>
</TfrxGroupHeader>
<TfrxMasterData Name="DatosMaestros1" Height="17" Left="0" Top="272" Width="1009,13451" Columns="1" ColumnWidth="200" ColumnGap="20" DataSetName="frxDBInformeListadoRecibos" RowCount="0" Stretched="True">
<TfrxMemoView Name="Memo29" Left="181" Top="0" Width="95" 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=" [frxDBInformeListadoRecibos.&#34;FECHA_VENCIMIENTO&#34;]"/>
<TfrxMemoView Name="Memo1" Left="276" Top="0" Width="464,34" 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=" [frxDBInformeListadoRecibos.&#34;NOMBRE_CLIENTE&#34;]"/>
<TfrxMemoView Name="Memo20" Left="740,34" Top="0" Width="134,25" 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="[frxDBInformeListadoRecibos.&#34;SITUACION&#34;]"/>
<TfrxMemoView Name="Memo21" Left="90" Top="0" Width="91" 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=" [frxDBInformeListadoRecibos.&#34;FECHA_EMISION&#34;]"/>
<TfrxMemoView Name="Memo18" Left="0" Top="0" Width="90" 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="[frxDBInformeListadoRecibos.&#34;REFERENCIA&#34;]"/>
<TfrxMemoView Name="Memo31" Left="874,59" Top="0" Width="136,06" 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" ParentFont="False" Text="[frxDBInformeListadoRecibos.&#34;IMPORTE_TOTAL&#34;]"/>
</TfrxMasterData>
<TfrxGroupFooter Name="" Height="16" Left="0" Top="309" Width="1009,13451">
<TfrxMemoView Name="Memo6" Left="875" Top="0" Width="136,06" Height="16" ShowHint="False" StretchMode="smMaxHeight" Color="13434828" DisplayFormat.DecimalSeparator="," DisplayFormat.FormatStr="#,0.00 €" 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;frxDBInformeListadoRecibos.&#34;IMPORTE_TOTAL&#34;&#62;,DatosMaestros1)]"/>
<TfrxMemoView Name="Memo53" Left="0" Top="0" Width="875" Height="16" ShowHint="False" StretchMode="smMaxHeight" Color="13434828" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="0" Font.Height="-11" Font.Name="Tahoma" Font.Style="1" Frame.Typ="13" HAlign="haRight" ParentFont="False" VAlign="vaCenter" Text="TOTALES [frxDBInformeListadoRecibos.&#34;TITULO&#34;]:"/>
</TfrxGroupFooter>
<TfrxMemoView Name="Memo2" Align="baRight" Left="938,13451" Top="651" Width="71" Height="13" OnBeforePrint="Memo2OnBeforePrint" ShowHint="False" StretchMode="smMaxHeight" Font.Charset="1" Font.Color="0" Font.Height="-9" Font.Name="Tahoma" Font.Style="0" HAlign="haRight" ParentFont="False" VAlign="vaCenter" Text=""/>
<TfrxHeader Name="Header1" Height="75" Left="0" Top="345" Width="1009,13451">
<TfrxMemoView Name="Memo13" Left="0" Top="60" Width="383,62987" Height="15" ShowHint="False" Color="13434828" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="0" Font.Height="-11" Font.Name="Tahoma" Font.Style="1" Frame.Typ="15" ParentFont="False" VAlign="vaCenter" Text="Resumen por meses de los recibos de cliente"/>
<TfrxMemoView Name="Memo22" Left="383,62987" Top="60" Width="94,48818898" Height="15" ShowHint="False" Color="13434828" DisplayFormat.DecimalSeparator="," 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="Importe total"/>
<TfrxMemoView Name="Memo23" Left="7,55906" Top="28" Width="485,37013" Height="15,11811024" ShowHint="False" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="16384" Font.Height="-12" Font.Name="Tahoma" Font.Style="1" Frame.Color="8421504" ParentFont="False" Text="Resumen por meses de los recibos de cliente"/>
</TfrxHeader>
<TfrxReportSummary Name="ReportSummary1" Height="15" Left="0" Top="517" Width="1009,13451">
<TfrxMemoView Name="Memo24" Left="0" Top="0" Width="383,62987" Height="15" ShowHint="False" Color="13434828" DisplayFormat.DecimalSeparator="," 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="Total: "/>
<TfrxMemoView Name="Memo32" Left="383,62987" Top="0" Width="94,48818898" Height="15" ShowHint="False" Color="13434828" 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;frxDBInformeListadoRecibosResumen.&#34;IMPORTE_TOTAL&#34;&#62;,DatosMaestros2)]"/>
</TfrxReportSummary>
<TfrxMasterData Name="DatosMaestros2" Height="17" Left="0" Top="440" Width="1009,13451" ColumnWidth="0" ColumnGap="0" DataSetName="frxDBInformeListadoRecibosResumen" RowCount="0" Stretched="True">
<TfrxMemoView Name="Memo9" Left="0" Top="0" Width="383,63" Height="17,00787402" ShowHint="False" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="16384" Font.Height="-12" Font.Name="Tahoma" Font.Style="1" Frame.Color="8421504" Frame.Typ="15" ParentFont="False" Text="[frxDBInformeListadoRecibosResumen.&#34;TITULO&#34;]"/>
<TfrxMemoView Name="Memo12" Left="383,63" Top="0" Width="94,64276" 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" ParentFont="False" Text="[frxDBInformeListadoRecibosResumen.&#34;IMPORTE_TOTAL&#34;]"/>
</TfrxMasterData>
</TfrxReportPage>
</TfrxReport>

56
Source/Informes/9/InformeListadoRecibosClienteDesglosado.fr3 Normal file
View File

@ -0,0 +1,56 @@
<?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="40585,5443250116" 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="044C65667403990003546F70021008446174617365747301010C2900000020446174615365744E616D653D226672784442496E666F726D654C69737461646F52656369626F732200010C3000000020446174615365744E616D653D226672784442496E666F726D654C69737461646F52656369626F73526573756D656E220000095661726961626C657301010C13000000204E616D653D2220506172616D6574726F732200010C17000000204E616D653D22546578746F506172616D6574726F73220000055374796C650100">
<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="">
<TfrxPageHeader Name="Band1" Height="136,10235" Left="0" Top="16" Width="1009,13451" OnBeforePrint="Band1OnBeforePrint">
<TfrxShapeView Name="Shape5" Left="513,14193" Top="0,102350000000001" Width="495" Height="136" ShowHint="False" Color="13434828" Shape="skRoundRectangle"/>
<TfrxPictureView Name="Logotipo" Left="0" Top="37,10235" Width="80" Height="88" ShowHint="False" HightQuality="False"/>
<TfrxMemoView Name="DatosEmpresa" Left="80" Top="37,10235" Width="232" Height="88" ShowHint="False" StretchMode="smMaxHeight" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="0" Font.Height="-11" Font.Name="Tahoma" Font.Style="0" ParentFont="False" Text=""/>
<TfrxMemoView Name="NombreCliente" Left="519" Top="8,10235" Width="481" Height="25" ShowHint="False" StretchMode="smMaxHeight" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="0" Font.Height="-13" Font.Name="Tahoma" Font.Style="1" HAlign="haRight" ParentFont="False" Text="LISTADO DE RECIBOS DE CLIENTE"/>
<TfrxMemoView Name="Memo3" Left="518" Top="34,10235" Width="481" Height="94" ShowHint="False" StretchMode="smMaxHeight" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="0" Font.Height="-12" Font.Name="Tahoma" Font.Style="0" HAlign="haRight" ParentFont="False" Text="Fecha del listado: [&#60;Date&#62;] - Página [Page#] de [TotalPages#]&#13;&#10;[TextoParametros]"/>
<TfrxLineView Name="Line1" Align="baLeft" Left="0" Top="129,10235" Width="312" Height="0" ShowHint="False" Frame.Color="32768" Frame.Typ="4" Frame.Width="4"/>
</TfrxPageHeader>
<TfrxPageFooter Name="" Height="23,77953" Left="0" Top="632" Width="1009,13451" PrintOnLastPage="False">
<TfrxMemoView Name="mContinua" Left="925,98485" Top="4,77953000000002" Width="81,08714" Height="16,77953" OnBeforePrint="mContinuaOnBeforePrint" ShowHint="False" StretchMode="smMaxHeight" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="16384" Font.Height="-12" Font.Name="Tahoma" Font.Style="0" HAlign="haRight" ParentFont="False" Text="Continúa ..."/>
<TfrxMemoView Name="Memo2" Align="baRight" Left="938,13451" Top="19" Width="71" Height="13" OnBeforePrint="Memo2OnBeforePrint" ShowHint="False" StretchMode="smMaxHeight" Font.Charset="1" Font.Color="0" Font.Height="-9" Font.Name="Tahoma" Font.Style="0" HAlign="haRight" ParentFont="False" VAlign="vaCenter" Text=""/>
</TfrxPageFooter>
<TfrxGroupHeader Name="" Height="40" Left="0" Restrictions="2" Top="252" Width="1009,13451" Condition="frxDBInformeListadoRecibos.&#34;NOMBRE_CLIENTE&#34;" ReprintOnNewPage="True">
<TfrxMemoView Name="Memo27" Left="0" Top="25" Width="90" Height="15" ShowHint="False" Color="13434828" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="0" Font.Height="-11" Font.Name="Tahoma" Font.Style="1" Frame.Typ="15" ParentFont="False" VAlign="vaCenter" Text="Nº factura"/>
<TfrxMemoView Name="Memo28" Left="276" Top="25" Width="464,33859" Height="15" ShowHint="False" Color="13434828" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="0" Font.Height="-11" Font.Name="Tahoma" Font.Style="1" Frame.Typ="15" ParentFont="False" VAlign="vaCenter" Text="Cliente"/>
<TfrxMemoView Name="Memo49" Left="740,7953" Top="25" Width="134,25201" Height="15" ShowHint="False" Color="13434828" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="0" Font.Height="-11" Font.Name="Tahoma" Font.Style="1" Frame.Typ="15" ParentFont="False" VAlign="vaCenter" Text="Situación"/>
<TfrxMemoView Name="Memo50" Left="181" Top="25" Width="95" Height="15" ShowHint="False" Color="13434828" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="0" Font.Height="-11" Font.Name="Tahoma" Font.Style="1" Frame.Typ="15" ParentFont="False" VAlign="vaCenter" Text="Fecha vto."/>
<TfrxMemoView Name="Memo52" Left="875,04731" Top="25" Width="136,06299213" Height="15" ShowHint="False" Color="13434828" DisplayFormat.DecimalSeparator="," 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="Importe total"/>
<TfrxMemoView Name="Memo8" Left="90" Top="25" Width="91" Height="15" ShowHint="False" Color="13434828" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="0" Font.Height="-11" Font.Name="Tahoma" Font.Style="1" Frame.Typ="15" ParentFont="False" VAlign="vaCenter" Text="Fecha emisión"/>
<TfrxMemoView Name="Memo7" Left="7,55906" Top="2,77952999999999" Width="485,37013" Height="15,11811024" ShowHint="False" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="16384" Font.Height="-12" Font.Name="Tahoma" Font.Style="1" Frame.Color="8421504" ParentFont="False" Text="[frxDBInformeListadoRecibos.&#34;NOMBRE_CLIENTE&#34;]"/>
</TfrxGroupHeader>
<TfrxMasterData Name="DatosMaestros1" Height="17" Left="0" Top="312" Width="1009,13451" Columns="1" ColumnWidth="200" ColumnGap="20" DataSetName="frxDBInformeListadoRecibos" RowCount="0" Stretched="True">
<TfrxMemoView Name="Memo29" Left="181" Top="0" Width="95" 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=" [frxDBInformeListadoRecibos.&#34;FECHA_VENCIMIENTO&#34;]"/>
<TfrxMemoView Name="Memo1" Left="276" Top="0" Width="464,34" 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=" [frxDBInformeListadoRecibos.&#34;NOMBRE_CLIENTE&#34;]"/>
<TfrxMemoView Name="Memo20" Left="740,34" Top="0" Width="134,25" 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="[frxDBInformeListadoRecibos.&#34;SITUACION&#34;]"/>
<TfrxMemoView Name="Memo21" Left="90" Top="0" Width="91" 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=" [frxDBInformeListadoRecibos.&#34;FECHA_EMISION&#34;]"/>
<TfrxMemoView Name="Memo18" Left="0" Top="0" Width="90" 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="[frxDBInformeListadoRecibos.&#34;REFERENCIA&#34;]"/>
<TfrxMemoView Name="Memo31" Left="874,59" Top="0" Width="136,06" 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" ParentFont="False" Text="[frxDBInformeListadoRecibos.&#34;IMPORTE_TOTAL&#34;]"/>
</TfrxMasterData>
<TfrxGroupFooter Name="" Height="16" Left="0" Top="349" Width="1009,13451">
<TfrxMemoView Name="Memo6" Left="875" Top="0" Width="136,06" Height="16" ShowHint="False" StretchMode="smMaxHeight" Color="13434828" DisplayFormat.DecimalSeparator="," DisplayFormat.FormatStr="#,0.00 €" 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;frxDBInformeListadoRecibos.&#34;IMPORTE_TOTAL&#34;&#62;,DatosMaestros1)]"/>
<TfrxMemoView Name="Memo53" Left="0" Top="0" Width="875" Height="16" ShowHint="False" StretchMode="smMaxHeight" Color="13434828" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="0" Font.Height="-11" Font.Name="Tahoma" Font.Style="1" Frame.Typ="13" HAlign="haRight" ParentFont="False" VAlign="vaCenter" Text="TOTALES [frxDBInformeListadoRecibos.&#34;TITULO&#34;]:"/>
</TfrxGroupFooter>
<TfrxHeader Name="Header1" Height="75" Left="0" Top="425" Width="1009,13451">
<TfrxMemoView Name="Memo13" Left="0" Top="60" Width="383,62987" Height="15" ShowHint="False" Color="13434828" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="0" Font.Height="-11" Font.Name="Tahoma" Font.Style="1" Frame.Typ="15" ParentFont="False" VAlign="vaCenter" Text="Resumen por meses de los recibos de cliente"/>
<TfrxMemoView Name="Memo22" Left="383,62987" Top="60" Width="94,48818898" Height="15" ShowHint="False" Color="13434828" DisplayFormat.DecimalSeparator="," 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="Importe total"/>
<TfrxMemoView Name="Memo23" Left="7,55906" Top="28" Width="485,37013" Height="15,11811024" ShowHint="False" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="16384" Font.Height="-12" Font.Name="Tahoma" Font.Style="1" Frame.Color="8421504" ParentFont="False" Text="Resumen por meses de los recibos de cliente"/>
</TfrxHeader>
<TfrxReportSummary Name="ReportSummary1" Height="15" Left="0" Top="597" Width="1009,13451">
<TfrxMemoView Name="Memo24" Left="0" Top="0" Width="383,62987" Height="15" ShowHint="False" Color="13434828" DisplayFormat.DecimalSeparator="," 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="Total: "/>
<TfrxMemoView Name="Memo32" Left="383,62987" Top="0" Width="94,48818898" Height="15" ShowHint="False" Color="13434828" 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;frxDBInformeListadoRecibosResumen.&#34;IMPORTE_TOTAL&#34;&#62;,DatosMaestros2)]"/>
</TfrxReportSummary>
<TfrxMasterData Name="DatosMaestros2" Height="17" Left="0" Top="520" Width="1009,13451" ColumnWidth="0" ColumnGap="0" DataSetName="frxDBInformeListadoRecibosResumen" RowCount="0" Stretched="True">
<TfrxMemoView Name="Memo9" Left="0" Top="0" Width="383,63" Height="17,00787402" ShowHint="False" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="16384" Font.Height="-12" Font.Name="Tahoma" Font.Style="1" Frame.Color="8421504" Frame.Typ="15" ParentFont="False" Text="[frxDBInformeListadoRecibosResumen.&#34;TITULO&#34;]"/>
<TfrxMemoView Name="Memo12" Left="383,63" Top="0" Width="94,64276" 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" ParentFont="False" Text="[frxDBInformeListadoRecibosResumen.&#34;IMPORTE_TOTAL&#34;]"/>
</TfrxMasterData>
<TfrxGroupHeader Name="GroupHeader1" Height="20" Left="0" Top="212" Width="1009,13451" Condition="frxDBInformeListadoRecibos.&#34;MES&#34;">
<TfrxMemoView Name="Memo4" Left="2" Top="2" Width="485,37013" Height="15,11811024" ShowHint="False" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="16384" Font.Height="-12" Font.Name="Tahoma" Font.Style="1" Frame.Color="8421504" ParentFont="False" Text="[frxDBInformeListadoRecibos.&#34;TITULO&#34;]"/>
</TfrxGroupHeader>
<TfrxGroupFooter Name="GroupFooter1" Height="20" Left="0" Top="385" Width="1009,13451"/>
</TfrxReportPage>
</TfrxReport>

54
Source/Informes/9/InformeListadoRecibosProvPendientes.fr3 Normal file
View File

@ -0,0 +1,54 @@
<?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="40585,5451645833" 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;procedure Memo5OnBeforePrint(Sender: TfrxComponent);&#13;&#10;var&#13;&#10; ACadena : String; &#13;&#10;begin&#13;&#10; ACadena := &#60;frxDBInformeListadoRecibosPendientes.&#34;DATOS_BANCARIOS&#34;&#62;; &#13;&#10; if Pos('Nº de cuenta: ', ACadena) &#62; 0 then&#13;&#10; begin&#13;&#10; Delete(ACadena, 1, 14);&#13;&#10; Memo5.Lines.Text := ' ' + ACadena; &#13;&#10; end; &#13;&#10;end;&#13;&#10;&#13;&#10;procedure Memo11OnBeforePrint(Sender: TfrxComponent);&#13;&#10;var&#13;&#10; ACadena : String; &#13;&#10;begin&#13;&#10; ACadena := &#60;frxDBInformeListadoRecibosPendResumen.&#34;DATOS_BANCARIOS&#34;&#62;; &#13;&#10; if Pos('Nº de cuenta: ', ACadena) &#62; 0 then&#13;&#10; begin&#13;&#10; Delete(ACadena, 1, 14);&#13;&#10; Memo11.Lines.Text := ' ' + ACadena; &#13;&#10; end;&#13;&#10;end;&#13;&#10; &#13;&#10;begin&#13;&#10;&#13;&#10;end." ShowProgress="False" StoreInDFM="False" OnStartReport="frxReportOnStartReport" PropData="044C65667403990003546F70021008446174617365747301010C3300000020446174615365744E616D653D226672784442496E666F726D654C69737461646F52656369626F7350656E6469656E7465732200010C3400000020446174615365744E616D653D226672784442496E666F726D654C69737461646F52656369626F7350656E64526573756D656E220000095661726961626C657301010C13000000204E616D653D2220506172616D6574726F732200010C17000000204E616D653D22546578746F506172616D6574726F73220000055374796C650100">
<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="">
<TfrxPageHeader Name="Band1" Height="136,10235" Left="0" Top="16" Width="1009,13451" OnBeforePrint="Band1OnBeforePrint">
<TfrxPictureView Name="Logotipo" Left="0" Top="37,10235" Width="80" Height="88" ShowHint="False" HightQuality="False"/>
<TfrxMemoView Name="DatosEmpresa" Left="80" Top="37,10235" Width="232" Height="88" ShowHint="False" StretchMode="smMaxHeight" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="0" Font.Height="-11" Font.Name="Tahoma" Font.Style="0" ParentFont="False" Text=""/>
<TfrxLineView Name="Line1" Align="baLeft" Left="0" Top="129,10235" Width="312" Height="0" ShowHint="False" Frame.Color="32768" Frame.Typ="4" Frame.Width="4"/>
<TfrxShapeView Name="Shape5" Left="542" Top="10" Width="465" Height="122" ShowHint="False" Color="13434828" Frame.Width="0,1" Shape="skRoundRectangle"/>
<TfrxMemoView Name="NombreCliente" Left="545,85807" Top="15" Width="452" Height="16,88188" ShowHint="False" StretchMode="smMaxHeight" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="0" Font.Height="-13" Font.Name="Tahoma" Font.Style="1" HAlign="haRight" ParentFont="False" Text="LISTADO DE RECIBOS A PROVEEDOR PENDIENTES"/>
<TfrxMemoView Name="Memo3" Left="545,85807" Top="35" Width="452" Height="91" ShowHint="False" StretchMode="smMaxHeight" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="0" Font.Height="-12" Font.Name="Tahoma" Font.Style="0" HAlign="haRight" ParentFont="False" Text="Fecha del listado: [&#60;Date&#62;] - Página [Page#] de [TotalPages#]&#13;&#10;[TextoParametros]"/>
</TfrxPageHeader>
<TfrxPageFooter Name="" Height="23,77953" Left="0" Top="522" Width="1009,13451" PrintOnLastPage="False">
<TfrxMemoView Name="mContinua" Left="925,98485" Top="4,77953000000002" Width="81,08714" Height="16,77953" OnBeforePrint="mContinuaOnBeforePrint" ShowHint="False" StretchMode="smMaxHeight" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="16384" Font.Height="-12" Font.Name="Tahoma" Font.Style="0" HAlign="haRight" ParentFont="False" Text="Continúa ..."/>
</TfrxPageFooter>
<TfrxGroupHeader Name="" Height="40" Left="0" Restrictions="2" Top="212" Width="1009,13451" Condition="frxDBInformeListadoRecibosPendientes.&#34;MES&#34;" ReprintOnNewPage="True">
<TfrxMemoView Name="Memo27" Left="0" Top="25" Width="88,77953" Height="15" ShowHint="False" Color="13434828" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="0" Font.Height="-11" Font.Name="Tahoma" Font.Style="1" Frame.Typ="15" ParentFont="False" VAlign="vaCenter" Text="Nº factura"/>
<TfrxMemoView Name="Memo28" Left="248,77953" Top="25" Width="250" Height="15" ShowHint="False" Color="13434828" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="0" Font.Height="-11" Font.Name="Tahoma" Font.Style="1" Frame.Typ="15" ParentFont="False" VAlign="vaCenter" Text="Proveedor"/>
<TfrxMemoView Name="Memo49" Left="918,77953" Top="25" Width="90" Height="15" ShowHint="False" Color="13434828" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="0" Font.Height="-11" Font.Name="Tahoma" Font.Style="1" Frame.Typ="15" ParentFont="False" VAlign="vaCenter" Text="Situación"/>
<TfrxMemoView Name="Memo50" Left="168,77953" Top="25" Width="80" Height="15" ShowHint="False" Color="13434828" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="0" Font.Height="-11" Font.Name="Tahoma" Font.Style="1" Frame.Typ="15" ParentFont="False" VAlign="vaCenter" Text="Fecha vto."/>
<TfrxMemoView Name="Memo52" Left="798,77953" Top="25" Width="120" Height="15" ShowHint="False" Color="13434828" DisplayFormat.DecimalSeparator="," 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="Importe total"/>
<TfrxMemoView Name="Memo8" Left="88,77953" Top="25" Width="80" Height="15" ShowHint="False" Color="13434828" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="0" Font.Height="-11" Font.Name="Tahoma" Font.Style="1" Frame.Typ="15" ParentFont="False" VAlign="vaCenter" Text="Fecha emisión"/>
<TfrxMemoView Name="Memo7" Left="0" Top="2,77953" Width="485,37013" Height="15,11811024" ShowHint="False" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="16384" Font.Height="-12" Font.Name="Tahoma" Font.Style="1" Frame.Color="8421504" ParentFont="False" Text="[frxDBInformeListadoRecibosPendientes.&#34;TITULO&#34;]"/>
<TfrxMemoView Name="Memo4" Left="498,77953" Top="25" Width="300" Height="15" ShowHint="False" Color="13434828" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="0" Font.Height="-11" Font.Name="Tahoma" Font.Style="1" Frame.Typ="15" ParentFont="False" VAlign="vaCenter" Text="Domiciliación"/>
</TfrxGroupHeader>
<TfrxMasterData Name="DatosMaestros1" Height="17,00787402" Left="0" Top="272" Width="1009,13451" Columns="1" ColumnWidth="200" ColumnGap="20" DataSetName="frxDBInformeListadoRecibosPendientes" RowCount="0" Stretched="True">
<TfrxMemoView Name="Memo29" Left="168,78" Top="0" Width="80" 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=" [frxDBInformeListadoRecibosPendientes.&#34;FECHA_EMISION&#34;]"/>
<TfrxMemoView Name="Memo1" Left="248,78" Top="0" Width="250" 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=" [frxDBInformeListadoRecibosPendientes.&#34;NOMBRE_PROVEEDOR&#34;]"/>
<TfrxMemoView Name="Memo20" Left="918,78" Top="0" Width="90" 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="[frxDBInformeListadoRecibosPendientes.&#34;SITUACION&#34;]"/>
<TfrxMemoView Name="Memo21" Left="88,78" Top="0" Width="80" 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=" [frxDBInformeListadoRecibosPendientes.&#34;FECHA_VENCIMIENTO&#34;]"/>
<TfrxMemoView Name="Memo18" Left="0" Top="0" Width="88,78" 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="[frxDBInformeListadoRecibosPendientes.&#34;REFERENCIA&#34;]"/>
<TfrxMemoView Name="Memo31" Align="baLeft" Left="798,78" Top="0" Width="120" 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" ParentFont="False" Text="[frxDBInformeListadoRecibosPendientes.&#34;IMPORTE_TOTAL&#34;]"/>
<TfrxMemoView Name="Memo5" Left="498,78" Top="0" Width="300" Height="17,00787402" OnBeforePrint="Memo5OnBeforePrint" 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=" [frxDBInformeListadoRecibosPendientes.&#34;DATOS_BANCARIOS&#34;]"/>
</TfrxMasterData>
<TfrxGroupFooter Name="" Height="16" Left="0" Top="309" Width="1009,13451">
<TfrxMemoView Name="Memo6" Left="799" Top="0,377747720000002" Width="120" Height="16" ShowHint="False" StretchMode="smMaxHeight" Color="13434828" DisplayFormat.DecimalSeparator="," DisplayFormat.FormatStr="#,0.00 €" 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;frxDBInformeListadoRecibosPendientes.&#34;IMPORTE_TOTAL&#34;&#62;,DatosMaestros1)]"/>
<TfrxMemoView Name="Memo53" Left="0" Top="0,377747720000002" Width="799" Height="16" ShowHint="False" StretchMode="smMaxHeight" Color="13434828" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="0" Font.Height="-11" Font.Name="Tahoma" Font.Style="1" Frame.Typ="13" HAlign="haRight" ParentFont="False" VAlign="vaCenter" Text="TOTALES [frxDBInformeListadoRecibosPendientes.&#34;TITULO&#34;]:"/>
<TfrxMemoView Name="Memo9" Left="919" Top="0" Width="90" Height="16" ShowHint="False" StretchMode="smMaxHeight" Color="13434828" DisplayFormat.DecimalSeparator="," DisplayFormat.FormatStr="#,0.00 €" 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=""/>
</TfrxGroupFooter>
<TfrxGroupHeader Name="GroupHeader1" Height="45" Left="0" Top="345" Width="1009,13451" Condition="frxDBInformeListadoRecibosPendResumen.&#34;MES&#34;">
<TfrxMemoView Name="Memo13" Left="0" Top="5" Width="485,37013" Height="15,11811024" ShowHint="False" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="16384" Font.Height="-12" Font.Name="Tahoma" Font.Style="1" Frame.Color="8421504" ParentFont="False" Text="RESUMEN POR DOMICILIACIÓN [frxDBInformeListadoRecibosPendResumen.&#34;TITULO&#34;]"/>
<TfrxMemoView Name="Memo16" Left="0" Top="30" Width="495" Height="15" ShowHint="False" Color="13434828" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="0" Font.Height="-11" Font.Name="Tahoma" Font.Style="1" Frame.Typ="15" ParentFont="False" VAlign="vaCenter" Text="Domiciliación"/>
<TfrxMemoView Name="Memo15" Left="495" Top="30" Width="108" Height="15" ShowHint="False" Color="13434828" DisplayFormat.DecimalSeparator="," 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="Importe total"/>
</TfrxGroupHeader>
<TfrxMasterData Name="DatosMaestros2" Height="17" Left="0" Top="410" Width="1009,13451" ColumnWidth="0" ColumnGap="0" DataSetName="frxDBInformeListadoRecibosPendResumen" RowCount="0">
<TfrxMemoView Name="Memo11" Left="0" Top="0" Width="495" Height="17,00787402" OnBeforePrint="Memo11OnBeforePrint" 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="[frxDBInformeListadoRecibosPendResumen.&#34;DATOS_BANCARIOS&#34;]"/>
<TfrxMemoView Name="Memo12" Left="495" Top="0" Width="108" 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" ParentFont="False" Text="[frxDBInformeListadoRecibosPendResumen.&#34;IMPORTE_TOTAL&#34;] "/>
</TfrxMasterData>
<TfrxGroupFooter Name="GroupFooter1" Height="15" Left="0" Top="447" Width="1009,13451">
<TfrxMemoView Name="Memo22" Left="0" Top="0" Width="495" Height="16" ShowHint="False" StretchMode="smMaxHeight" Color="13434828" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="0" Font.Height="-11" Font.Name="Tahoma" Font.Style="1" Frame.Typ="13" HAlign="haRight" ParentFont="False" VAlign="vaCenter" Text="TOTALES [frxDBInformeListadoRecibosPendResumen.&#34;TITULO&#34;]:"/>
<TfrxMemoView Name="Memo17" Left="495" Top="0" Width="108" Height="16" ShowHint="False" StretchMode="smMaxHeight" Color="13434828" DisplayFormat.DecimalSeparator="," DisplayFormat.FormatStr="#,0.00 €" 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;frxDBInformeListadoRecibosPendResumen.&#34;IMPORTE_TOTAL&#34;&#62;,DatosMaestros2)] "/>
</TfrxGroupFooter>
</TfrxReportPage>
</TfrxReport>

58
Source/Informes/9/InformeListadoRecibosProvPendientesDesglosado.fr3 Normal file
View File

@ -0,0 +1,58 @@
<?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="40585,5453018056" 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;procedure Memo5OnBeforePrint(Sender: TfrxComponent);&#13;&#10;var&#13;&#10; ACadena : String; &#13;&#10;begin&#13;&#10; ACadena := &#60;frxDBInformeListadoRecibosPendientes.&#34;DATOS_BANCARIOS&#34;&#62;; &#13;&#10; if Pos('Nº de cuenta: ', ACadena) &#62; 0 then&#13;&#10; begin&#13;&#10; Delete(ACadena, 1, 14);&#13;&#10; Memo5.Lines.Text := ' ' + ACadena; &#13;&#10; end; &#13;&#10;end;&#13;&#10;&#13;&#10;procedure Memo11OnBeforePrint(Sender: TfrxComponent);&#13;&#10;var&#13;&#10; ACadena : String; &#13;&#10;begin&#13;&#10; ACadena := &#60;frxDBInformeListadoRecibosPendResumen.&#34;DATOS_BANCARIOS&#34;&#62;; &#13;&#10; if Pos('Nº de cuenta: ', ACadena) &#62; 0 then&#13;&#10; begin&#13;&#10; Delete(ACadena, 1, 14);&#13;&#10; Memo11.Lines.Text := ' ' + ACadena; &#13;&#10; end;&#13;&#10;end;&#13;&#10; &#13;&#10;begin&#13;&#10;&#13;&#10;end." ShowProgress="False" StoreInDFM="False" OnStartReport="frxReportOnStartReport" PropData="044C65667403990003546F70021008446174617365747301010C3300000020446174615365744E616D653D226672784442496E666F726D654C69737461646F52656369626F7350656E6469656E7465732200010C3400000020446174615365744E616D653D226672784442496E666F726D654C69737461646F52656369626F7350656E64526573756D656E220000095661726961626C657301010C13000000204E616D653D2220506172616D6574726F732200010C17000000204E616D653D22546578746F506172616D6574726F73220000055374796C650100">
<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="">
<TfrxPageHeader Name="Band1" Height="136,10235" Left="0" Top="16" Width="1009,13451" OnBeforePrint="Band1OnBeforePrint">
<TfrxPictureView Name="Logotipo" Left="0" Top="37,10235" Width="80" Height="88" ShowHint="False" HightQuality="False"/>
<TfrxMemoView Name="DatosEmpresa" Left="80" Top="37,10235" Width="232" Height="88" ShowHint="False" StretchMode="smMaxHeight" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="0" Font.Height="-11" Font.Name="Tahoma" Font.Style="0" ParentFont="False" Text=""/>
<TfrxLineView Name="Line1" Align="baLeft" Left="0" Top="129,10235" Width="312" Height="0" ShowHint="False" Frame.Color="32768" Frame.Typ="4" Frame.Width="4"/>
<TfrxShapeView Name="Shape5" Left="543" Top="10" Width="465" Height="122" ShowHint="False" Color="13434828" Frame.Width="0,1" Shape="skRoundRectangle"/>
<TfrxMemoView Name="NombreCliente" Left="546,85807" Top="15" Width="452" Height="16,88188" ShowHint="False" StretchMode="smMaxHeight" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="0" Font.Height="-13" Font.Name="Tahoma" Font.Style="1" HAlign="haRight" ParentFont="False" Text="LISTADO DE RECIBOS A PROVEEDOR PENDIENTES"/>
<TfrxMemoView Name="Memo3" Left="546,85807" Top="35" Width="452" Height="91" ShowHint="False" StretchMode="smMaxHeight" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="0" Font.Height="-12" Font.Name="Tahoma" Font.Style="0" HAlign="haRight" ParentFont="False" Text="Fecha del listado: [&#60;Date&#62;] - Página [Page#] de [TotalPages#]&#13;&#10;[TextoParametros]"/>
</TfrxPageHeader>
<TfrxPageFooter Name="" Height="23,77953" Left="0" Top="602" Width="1009,13451" PrintOnLastPage="False">
<TfrxMemoView Name="mContinua" Left="925,98485" Top="4,77953000000002" Width="81,08714" Height="16,77953" OnBeforePrint="mContinuaOnBeforePrint" ShowHint="False" StretchMode="smMaxHeight" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="16384" Font.Height="-12" Font.Name="Tahoma" Font.Style="0" HAlign="haRight" ParentFont="False" Text="Continúa ..."/>
</TfrxPageFooter>
<TfrxGroupHeader Name="" Height="40" Left="0" Restrictions="2" Top="252" Width="1009,13451" Condition="frxDBInformeListadoRecibosPendientes.&#34;NOMBRE_PROVEEDOR&#34;" ReprintOnNewPage="True">
<TfrxMemoView Name="Memo27" Left="0" Top="25" Width="88,77953" Height="15" ShowHint="False" Color="13434828" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="0" Font.Height="-11" Font.Name="Tahoma" Font.Style="1" Frame.Typ="15" ParentFont="False" VAlign="vaCenter" Text="Nº factura"/>
<TfrxMemoView Name="Memo28" Left="248,77953" Top="25" Width="250" Height="15" ShowHint="False" Color="13434828" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="0" Font.Height="-11" Font.Name="Tahoma" Font.Style="1" Frame.Typ="15" ParentFont="False" VAlign="vaCenter" Text="Proveedor"/>
<TfrxMemoView Name="Memo49" Left="918,77953" Top="25" Width="90" Height="15" ShowHint="False" Color="13434828" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="0" Font.Height="-11" Font.Name="Tahoma" Font.Style="1" Frame.Typ="15" ParentFont="False" VAlign="vaCenter" Text="Situación"/>
<TfrxMemoView Name="Memo50" Left="168,77953" Top="25" Width="80" Height="15" ShowHint="False" Color="13434828" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="0" Font.Height="-11" Font.Name="Tahoma" Font.Style="1" Frame.Typ="15" ParentFont="False" VAlign="vaCenter" Text="Fecha vto."/>
<TfrxMemoView Name="Memo52" Left="798,77953" Top="25" Width="120" Height="15" ShowHint="False" Color="13434828" DisplayFormat.DecimalSeparator="," 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="Importe total"/>
<TfrxMemoView Name="Memo8" Left="88,77953" Top="25" Width="80" Height="15" ShowHint="False" Color="13434828" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="0" Font.Height="-11" Font.Name="Tahoma" Font.Style="1" Frame.Typ="15" ParentFont="False" VAlign="vaCenter" Text="Fecha emisión"/>
<TfrxMemoView Name="Memo7" Left="0" Top="2,77953" Width="485,37013" Height="15,11811024" ShowHint="False" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="16384" Font.Height="-12" Font.Name="Tahoma" Font.Style="1" Frame.Color="8421504" ParentFont="False" Text="[frxDBInformeListadoRecibosPendientes.&#34;NOMBRE_PROVEEDOR&#34;]"/>
<TfrxMemoView Name="Memo4" Left="498,77953" Top="25" Width="300" Height="15" ShowHint="False" Color="13434828" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="0" Font.Height="-11" Font.Name="Tahoma" Font.Style="1" Frame.Typ="15" ParentFont="False" VAlign="vaCenter" Text="Domiciliación"/>
</TfrxGroupHeader>
<TfrxMasterData Name="DatosMaestros1" Height="17,00787402" Left="0" Top="312" Width="1009,13451" Columns="1" ColumnWidth="200" ColumnGap="20" DataSetName="frxDBInformeListadoRecibosPendientes" RowCount="0" Stretched="True">
<TfrxMemoView Name="Memo29" Left="168,78" Top="0" Width="80" 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=" [frxDBInformeListadoRecibosPendientes.&#34;FECHA_EMISION&#34;]"/>
<TfrxMemoView Name="Memo1" Left="248,78" Top="0" Width="250" 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=" [frxDBInformeListadoRecibosPendientes.&#34;NOMBRE_PROVEEDOR&#34;]"/>
<TfrxMemoView Name="Memo20" Left="918,78" Top="0" Width="90" 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="[frxDBInformeListadoRecibosPendientes.&#34;SITUACION&#34;]"/>
<TfrxMemoView Name="Memo21" Left="88,78" Top="0" Width="80" 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=" [frxDBInformeListadoRecibosPendientes.&#34;FECHA_VENCIMIENTO&#34;]"/>
<TfrxMemoView Name="Memo18" Left="0" Top="0" Width="88,78" 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="[frxDBInformeListadoRecibosPendientes.&#34;REFERENCIA&#34;]"/>
<TfrxMemoView Name="Memo31" Align="baLeft" Left="798,78" Top="0" Width="120" 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" ParentFont="False" Text="[frxDBInformeListadoRecibosPendientes.&#34;IMPORTE_TOTAL&#34;]"/>
<TfrxMemoView Name="Memo5" Left="498,78" Top="0" Width="300" Height="17,00787402" OnBeforePrint="Memo5OnBeforePrint" 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=" [frxDBInformeListadoRecibosPendientes.&#34;DATOS_BANCARIOS&#34;]"/>
</TfrxMasterData>
<TfrxGroupFooter Name="" Height="16" Left="0" Top="349" Width="1009,13451">
<TfrxMemoView Name="Memo6" Left="799" Top="0,377747720000002" Width="120" Height="16" ShowHint="False" StretchMode="smMaxHeight" Color="13434828" DisplayFormat.DecimalSeparator="," DisplayFormat.FormatStr="#,0.00 €" 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;frxDBInformeListadoRecibosPendientes.&#34;IMPORTE_TOTAL&#34;&#62;,DatosMaestros1)]"/>
<TfrxMemoView Name="Memo53" Left="0" Top="0,377747720000002" Width="799" Height="16" ShowHint="False" StretchMode="smMaxHeight" Color="13434828" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="0" Font.Height="-11" Font.Name="Tahoma" Font.Style="1" Frame.Typ="13" HAlign="haRight" ParentFont="False" VAlign="vaCenter" Text="TOTALES [frxDBInformeListadoRecibosPendientes.&#34;TITULO&#34;]:"/>
<TfrxMemoView Name="Memo9" Left="919" Top="0" Width="90" Height="16" ShowHint="False" StretchMode="smMaxHeight" Color="13434828" DisplayFormat.DecimalSeparator="," DisplayFormat.FormatStr="#,0.00 €" 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=""/>
</TfrxGroupFooter>
<TfrxGroupHeader Name="GroupHeader1" Height="45" Left="0" Top="425" Width="1009,13451" Condition="frxDBInformeListadoRecibosPendResumen.&#34;MES&#34;">
<TfrxMemoView Name="Memo13" Left="0" Top="5" Width="485,37013" Height="15,11811024" ShowHint="False" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="16384" Font.Height="-12" Font.Name="Tahoma" Font.Style="1" Frame.Color="8421504" ParentFont="False" Text="RESUMEN POR DOMICILIACIÓN [frxDBInformeListadoRecibosPendResumen.&#34;TITULO&#34;]"/>
<TfrxMemoView Name="Memo16" Left="0" Top="30" Width="495" Height="15" ShowHint="False" Color="13434828" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="0" Font.Height="-11" Font.Name="Tahoma" Font.Style="1" Frame.Typ="15" ParentFont="False" VAlign="vaCenter" Text="Domiciliación"/>
<TfrxMemoView Name="Memo15" Left="495" Top="30" Width="108" Height="15" ShowHint="False" Color="13434828" DisplayFormat.DecimalSeparator="," 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="Importe total"/>
</TfrxGroupHeader>
<TfrxMasterData Name="DatosMaestros2" Height="17" Left="0" Top="490" Width="1009,13451" ColumnWidth="0" ColumnGap="0" DataSetName="frxDBInformeListadoRecibosPendResumen" RowCount="0">
<TfrxMemoView Name="Memo11" Left="0" Top="0" Width="495" Height="17,00787402" OnBeforePrint="Memo11OnBeforePrint" 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="[frxDBInformeListadoRecibosPendResumen.&#34;DATOS_BANCARIOS&#34;]"/>
<TfrxMemoView Name="Memo12" Left="495" Top="0" Width="108" 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" ParentFont="False" Text="[frxDBInformeListadoRecibosPendResumen.&#34;IMPORTE_TOTAL&#34;] "/>
</TfrxMasterData>
<TfrxGroupFooter Name="GroupFooter1" Height="15" Left="0" Top="527" Width="1009,13451">
<TfrxMemoView Name="Memo22" Left="0" Top="0" Width="495" Height="16" ShowHint="False" StretchMode="smMaxHeight" Color="13434828" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="0" Font.Height="-11" Font.Name="Tahoma" Font.Style="1" Frame.Typ="13" HAlign="haRight" ParentFont="False" VAlign="vaCenter" Text="TOTALES [frxDBInformeListadoRecibosPendResumen.&#34;TITULO&#34;]:"/>
<TfrxMemoView Name="Memo17" Left="495" Top="0" Width="108" Height="16" ShowHint="False" StretchMode="smMaxHeight" Color="13434828" DisplayFormat.DecimalSeparator="," DisplayFormat.FormatStr="#,0.00 €" 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;frxDBInformeListadoRecibosPendResumen.&#34;IMPORTE_TOTAL&#34;&#62;,DatosMaestros2)] "/>
</TfrxGroupFooter>
<TfrxGroupHeader Name="GroupHeader2" Height="20" Left="0" Top="212" Width="1009,13451" Condition="frxDBInformeListadoRecibosPendientes.&#34;MES&#34;">
<TfrxMemoView Name="Memo10" Left="0" Top="1" Width="485,37013" Height="15,11811024" ShowHint="False" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="16384" Font.Height="-12" Font.Name="Tahoma" Font.Style="1" Frame.Color="8421504" ParentFont="False" Text="[frxDBInformeListadoRecibosPendientes.&#34;TITULO&#34;]"/>
</TfrxGroupHeader>
<TfrxGroupFooter Name="GroupFooter2" Height="20" Left="0" Top="385" Width="1009,13451"/>
</TfrxReportPage>
</TfrxReport>

51
Source/Informes/9/InformeListadoRecibosProveedor.fr3 Normal file
View File

@ -0,0 +1,51 @@
<?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="40585,5447901968" 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="044C65667403990003546F70021008446174617365747301010C2900000020446174615365744E616D653D226672784442496E666F726D654C69737461646F52656369626F732200010C3000000020446174615365744E616D653D226672784442496E666F726D654C69737461646F52656369626F73526573756D656E220000095661726961626C657301010C13000000204E616D653D2220506172616D6574726F732200010C17000000204E616D653D22546578746F506172616D6574726F73220000055374796C650100">
<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="">
<TfrxPageHeader Name="Band1" Height="136,10235" Left="0" Top="16" Width="1009,13451" OnBeforePrint="Band1OnBeforePrint">
<TfrxPictureView Name="Logotipo" Left="0" Top="37,10235" Width="80" Height="88" ShowHint="False" HightQuality="False"/>
<TfrxMemoView Name="DatosEmpresa" Left="80" Top="37,10235" Width="232" Height="88" ShowHint="False" StretchMode="smMaxHeight" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="0" Font.Height="-11" Font.Name="Tahoma" Font.Style="0" ParentFont="False" Text=""/>
<TfrxLineView Name="Line1" Align="baLeft" Left="0" Top="129,10235" Width="312" Height="0" ShowHint="False" Frame.Color="32768" Frame.Typ="4" Frame.Width="4"/>
<TfrxShapeView Name="Shape5" Left="543" Top="11" Width="465" Height="122" ShowHint="False" Color="13434828" Frame.Width="0,1" Shape="skRoundRectangle"/>
<TfrxMemoView Name="NombreCliente" Left="546,85807" Top="16" Width="452" Height="16,88188" ShowHint="False" StretchMode="smMaxHeight" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="0" Font.Height="-13" Font.Name="Tahoma" Font.Style="1" HAlign="haRight" ParentFont="False" Text="LISTADO DE RECIBOS A PROVEEDOR"/>
<TfrxMemoView Name="Memo3" Left="546,85807" Top="36" Width="452" Height="91" ShowHint="False" StretchMode="smMaxHeight" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="0" Font.Height="-12" Font.Name="Tahoma" Font.Style="0" HAlign="haRight" ParentFont="False" Text="Fecha del listado: [&#60;Date&#62;] - Página [Page#] de [TotalPages#]&#13;&#10;[TextoParametros]"/>
</TfrxPageHeader>
<TfrxPageFooter Name="" Height="23,77953" Left="0" Top="557" Width="1009,13451" PrintOnLastPage="False">
<TfrxMemoView Name="mContinua" Left="925,98485" Top="4,77953000000002" Width="81,08714" Height="16,77953" OnBeforePrint="mContinuaOnBeforePrint" ShowHint="False" StretchMode="smMaxHeight" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="16384" Font.Height="-12" Font.Name="Tahoma" Font.Style="0" HAlign="haRight" ParentFont="False" Text="Continúa ..."/>
</TfrxPageFooter>
<TfrxGroupHeader Name="" Height="40" Left="0" Restrictions="2" Top="212" Width="1009,13451" Condition="frxDBInformeListadoRecibos.&#34;MES&#34;" ReprintOnNewPage="True">
<TfrxMemoView Name="Memo27" Left="0" Top="25" Width="88,77953" Height="15" ShowHint="False" Color="13434828" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="0" Font.Height="-11" Font.Name="Tahoma" Font.Style="1" Frame.Typ="15" ParentFont="False" VAlign="vaCenter" Text="Nº factura"/>
<TfrxMemoView Name="Memo28" Left="276,45671" Top="25" Width="464,33859" Height="15" ShowHint="False" Color="13434828" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="0" Font.Height="-11" Font.Name="Tahoma" Font.Style="1" Frame.Typ="15" ParentFont="False" VAlign="vaCenter" Text="Proveedor"/>
<TfrxMemoView Name="Memo49" Left="740,7953" Top="25" Width="134,25201" Height="15" ShowHint="False" Color="13434828" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="0" Font.Height="-11" Font.Name="Tahoma" Font.Style="1" Frame.Typ="15" ParentFont="False" VAlign="vaCenter" Text="Situación"/>
<TfrxMemoView Name="Memo50" Left="181,45671" Top="25" Width="95" Height="15" ShowHint="False" Color="13434828" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="0" Font.Height="-11" Font.Name="Tahoma" Font.Style="1" Frame.Typ="15" ParentFont="False" VAlign="vaCenter" Text="Fecha vto."/>
<TfrxMemoView Name="Memo52" Left="875,04731" Top="25" Width="136,06299213" Height="15" ShowHint="False" Color="13434828" DisplayFormat.DecimalSeparator="," 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="Importe total"/>
<TfrxMemoView Name="Memo8" Left="89,77953" Top="25" Width="92,67718" Height="15" ShowHint="False" Color="13434828" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="0" Font.Height="-11" Font.Name="Tahoma" Font.Style="1" Frame.Typ="15" ParentFont="False" VAlign="vaCenter" Text="Fecha emisión"/>
<TfrxMemoView Name="Memo7" Left="-1" Top="3" Width="485,37013" Height="15,11811024" ShowHint="False" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="16384" Font.Height="-12" Font.Name="Tahoma" Font.Style="1" Frame.Color="8421504" ParentFont="False" Text="[frxDBInformeListadoRecibos.&#34;TITULO&#34;]"/>
</TfrxGroupHeader>
<TfrxMasterData Name="DatosMaestros1" Height="17,00787402" Left="0" Top="272" Width="1009,13451" Columns="1" ColumnWidth="200" ColumnGap="20" DataSetName="frxDBInformeListadoRecibos" RowCount="0" Stretched="True">
<TfrxMemoView Name="Memo20" Align="baLeft" Left="740,8" Top="0" Width="134,25" 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=" [frxDBInformeListadoRecibos.&#34;SITUACION&#34;]"/>
<TfrxMemoView Name="Memo29" Left="181,46" Top="0" Width="95" 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=" [frxDBInformeListadoRecibos.&#34;FECHA_VENCIMIENTO&#34;]"/>
<TfrxMemoView Name="Memo1" Left="276,46" Top="0" Width="464,34" 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=" [frxDBInformeListadoRecibos.&#34;NOMBRE_PROVEEDOR&#34;]"/>
<TfrxMemoView Name="Memo21" Left="88,78" Top="0" Width="92,68" 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=" [frxDBInformeListadoRecibos.&#34;FECHA_EMISION&#34;]"/>
<TfrxMemoView Name="Memo18" Left="0" Top="0" Width="88,78" 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="[frxDBInformeListadoRecibos.&#34;REFERENCIA&#34;]"/>
<TfrxMemoView Name="Memo31" Align="baLeft" Left="875,05" Top="0" Width="136,06" 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" ParentFont="False" Text="[frxDBInformeListadoRecibos.&#34;IMPORTE_TOTAL&#34;]"/>
</TfrxMasterData>
<TfrxGroupFooter Name="" Height="20,78740402" Left="0" Top="309" Width="1009,13451">
<TfrxMemoView Name="Memo6" Left="875" Top="0,377747720000002" Width="136,06" Height="16" ShowHint="False" StretchMode="smMaxHeight" Color="13434828" DisplayFormat.DecimalSeparator="," DisplayFormat.FormatStr="#,0.00 €" 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;frxDBInformeListadoRecibos.&#34;IMPORTE_TOTAL&#34;&#62;,DatosMaestros1)]"/>
<TfrxMemoView Name="Memo53" Left="0" Top="0,377747720000002" Width="875" Height="16" ShowHint="False" StretchMode="smMaxHeight" Color="13434828" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="0" Font.Height="-11" Font.Name="Tahoma" Font.Style="1" Frame.Typ="13" HAlign="haRight" ParentFont="False" VAlign="vaCenter" Text="TOTALES [frxDBInformeListadoRecibos.&#34;TITULO&#34;]:"/>
</TfrxGroupFooter>
<TfrxHeader Name="Header1" Height="75" Left="0" Top="350" Width="1009,13451">
<TfrxMemoView Name="Memo13" Left="0" Top="60" Width="383,62987" Height="15" ShowHint="False" Color="13434828" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="0" Font.Height="-11" Font.Name="Tahoma" Font.Style="1" Frame.Typ="15" ParentFont="False" VAlign="vaCenter" Text="Resumen por meses de los recibos de proveedor"/>
<TfrxMemoView Name="Memo22" Left="383,62987" Top="60" Width="94,48818898" Height="15" ShowHint="False" Color="13434828" DisplayFormat.DecimalSeparator="," 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="Importe total"/>
<TfrxMemoView Name="Memo23" Left="-1" Top="21" Width="485,37013" Height="15,11811024" ShowHint="False" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="16384" Font.Height="-12" Font.Name="Tahoma" Font.Style="1" Frame.Color="8421504" ParentFont="False" Text="Resumen por meses de los recibos de proveedor"/>
</TfrxHeader>
<TfrxReportSummary Name="ReportSummary1" Height="15" Left="0" Top="522" Width="1009,13451">
<TfrxMemoView Name="Memo24" Left="0" Top="0" Width="383,62987" Height="15" ShowHint="False" Color="13434828" DisplayFormat.DecimalSeparator="," 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="Total: "/>
<TfrxMemoView Name="Memo32" Left="383,62987" Top="0" Width="94,48818898" Height="15" ShowHint="False" Color="13434828" 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;frxDBInformeListadoRecibosResumen.&#34;IMPORTE_TOTAL&#34;&#62;,DatosMaestros2)]"/>
</TfrxReportSummary>
<TfrxMasterData Name="DatosMaestros2" Height="17" Left="0" Top="445" Width="1009,13451" ColumnWidth="0" ColumnGap="0" DataSetName="frxDBInformeListadoRecibosResumen" RowCount="0">
<TfrxMemoView Name="Memo9" Left="0" Top="0" Width="383,63" Height="17,00787402" ShowHint="False" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="16384" Font.Height="-12" Font.Name="Tahoma" Font.Style="1" Frame.Color="8421504" Frame.Typ="15" ParentFont="False" Text="[frxDBInformeListadoRecibosResumen.&#34;TITULO&#34;]"/>
<TfrxMemoView Name="Memo12" Left="383,63" Top="0" Width="94,64276" 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" ParentFont="False" Text="[frxDBInformeListadoRecibosResumen.&#34;IMPORTE_TOTAL&#34;]"/>
</TfrxMasterData>
</TfrxReportPage>
</TfrxReport>

55
Source/Informes/9/InformeListadoRecibosProveedorDesglosado.fr3 Normal file
View File

@ -0,0 +1,55 @@
<?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="40585,5450212269" 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="044C65667403990003546F70021008446174617365747301010C2900000020446174615365744E616D653D226672784442496E666F726D654C69737461646F52656369626F732200010C3000000020446174615365744E616D653D226672784442496E666F726D654C69737461646F52656369626F73526573756D656E220000095661726961626C657301010C13000000204E616D653D2220506172616D6574726F732200010C17000000204E616D653D22546578746F506172616D6574726F73220000055374796C650100">
<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="">
<TfrxPageHeader Name="Band1" Height="136,10235" Left="0" Top="16" Width="1009,13451" OnBeforePrint="Band1OnBeforePrint">
<TfrxPictureView Name="Logotipo" Left="0" Top="37,10235" Width="80" Height="88" ShowHint="False" HightQuality="False"/>
<TfrxMemoView Name="DatosEmpresa" Left="80" Top="37,10235" Width="232" Height="88" ShowHint="False" StretchMode="smMaxHeight" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="0" Font.Height="-11" Font.Name="Tahoma" Font.Style="0" ParentFont="False" Text=""/>
<TfrxLineView Name="Line1" Align="baLeft" Left="0" Top="129,10235" Width="312" Height="0" ShowHint="False" Frame.Color="32768" Frame.Typ="4" Frame.Width="4"/>
<TfrxShapeView Name="Shape5" Left="541" Top="9" Width="465" Height="122" ShowHint="False" Color="13434828" Frame.Width="0,1" Shape="skRoundRectangle"/>
<TfrxMemoView Name="NombreCliente" Left="544,85807" Top="14" Width="452" Height="16,88188" ShowHint="False" StretchMode="smMaxHeight" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="0" Font.Height="-13" Font.Name="Tahoma" Font.Style="1" HAlign="haRight" ParentFont="False" Text="LISTADO DE RECIBOS A PROVEEDOR"/>
<TfrxMemoView Name="Memo3" Left="544,85807" Top="34" Width="452" Height="91" ShowHint="False" StretchMode="smMaxHeight" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="0" Font.Height="-12" Font.Name="Tahoma" Font.Style="0" HAlign="haRight" ParentFont="False" Text="Fecha del listado: [&#60;Date&#62;] - Página [Page#] de [TotalPages#]&#13;&#10;[TextoParametros]"/>
</TfrxPageHeader>
<TfrxPageFooter Name="" Height="23,77953" Left="0" Top="637" Width="1009,13451" PrintOnLastPage="False">
<TfrxMemoView Name="mContinua" Left="925,98485" Top="4,77953000000002" Width="81,08714" Height="16,77953" OnBeforePrint="mContinuaOnBeforePrint" ShowHint="False" StretchMode="smMaxHeight" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="16384" Font.Height="-12" Font.Name="Tahoma" Font.Style="0" HAlign="haRight" ParentFont="False" Text="Continúa ..."/>
</TfrxPageFooter>
<TfrxGroupHeader Name="" Height="40" Left="0" Restrictions="2" Top="252" Width="1009,13451" Condition="frxDBInformeListadoRecibos.&#34;NOMBRE_PROVEEDOR&#34;" ReprintOnNewPage="True">
<TfrxMemoView Name="Memo27" Left="0" Top="25" Width="88,77953" Height="15" ShowHint="False" Color="13434828" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="0" Font.Height="-11" Font.Name="Tahoma" Font.Style="1" Frame.Typ="15" ParentFont="False" VAlign="vaCenter" Text="Nº factura"/>
<TfrxMemoView Name="Memo28" Left="276,45671" Top="25" Width="464,33859" Height="15" ShowHint="False" Color="13434828" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="0" Font.Height="-11" Font.Name="Tahoma" Font.Style="1" Frame.Typ="15" ParentFont="False" VAlign="vaCenter" Text="Proveedor"/>
<TfrxMemoView Name="Memo49" Left="740,7953" Top="25" Width="134,25201" Height="15" ShowHint="False" Color="13434828" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="0" Font.Height="-11" Font.Name="Tahoma" Font.Style="1" Frame.Typ="15" ParentFont="False" VAlign="vaCenter" Text="Situación"/>
<TfrxMemoView Name="Memo50" Left="181,45671" Top="25" Width="95" Height="15" ShowHint="False" Color="13434828" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="0" Font.Height="-11" Font.Name="Tahoma" Font.Style="1" Frame.Typ="15" ParentFont="False" VAlign="vaCenter" Text="Fecha vto."/>
<TfrxMemoView Name="Memo52" Left="875,04731" Top="25" Width="136,06299213" Height="15" ShowHint="False" Color="13434828" DisplayFormat.DecimalSeparator="," 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="Importe total"/>
<TfrxMemoView Name="Memo8" Left="88,77953" Top="25" Width="92,67718" Height="15" ShowHint="False" Color="13434828" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="0" Font.Height="-11" Font.Name="Tahoma" Font.Style="1" Frame.Typ="15" ParentFont="False" VAlign="vaCenter" Text="Fecha emisión"/>
<TfrxMemoView Name="Memo7" Left="7,55906" Top="2,77952999999999" Width="485,37013" Height="15,11811024" ShowHint="False" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="16384" Font.Height="-12" Font.Name="Tahoma" Font.Style="1" Frame.Color="8421504" ParentFont="False" Text="[frxDBInformeListadoRecibos.&#34;NOMBRE_PROVEEDOR&#34;]"/>
</TfrxGroupHeader>
<TfrxMasterData Name="DatosMaestros1" Height="17,00787402" Left="0" Top="312" Width="1009,13451" Columns="1" ColumnWidth="200" ColumnGap="20" DataSetName="frxDBInformeListadoRecibos" RowCount="0" Stretched="True">
<TfrxMemoView Name="Memo20" Align="baLeft" Left="740,8" Top="0" Width="134,25" 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=" [frxDBInformeListadoRecibos.&#34;SITUACION&#34;]"/>
<TfrxMemoView Name="Memo29" Left="181,46" Top="0" Width="95" 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=" [frxDBInformeListadoRecibos.&#34;FECHA_VENCIMIENTO&#34;]"/>
<TfrxMemoView Name="Memo1" Left="276,46" Top="0" Width="464,34" 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=" [frxDBInformeListadoRecibos.&#34;NOMBRE_PROVEEDOR&#34;]"/>
<TfrxMemoView Name="Memo21" Left="88,78" Top="0" Width="92,68" 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=" [frxDBInformeListadoRecibos.&#34;FECHA_EMISION&#34;]"/>
<TfrxMemoView Name="Memo18" Left="0" Top="0" Width="88,78" 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="[frxDBInformeListadoRecibos.&#34;REFERENCIA&#34;]"/>
<TfrxMemoView Name="Memo31" Align="baLeft" Left="875,05" Top="0" Width="136,06" 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" ParentFont="False" Text="[frxDBInformeListadoRecibos.&#34;IMPORTE_TOTAL&#34;]"/>
</TfrxMasterData>
<TfrxGroupFooter Name="" Height="20,78740402" Left="0" Top="349" Width="1009,13451">
<TfrxMemoView Name="Memo6" Left="875" Top="0,377747720000002" Width="136,06" Height="16" ShowHint="False" StretchMode="smMaxHeight" Color="13434828" DisplayFormat.DecimalSeparator="," DisplayFormat.FormatStr="#,0.00 €" 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;frxDBInformeListadoRecibos.&#34;IMPORTE_TOTAL&#34;&#62;,DatosMaestros1)]"/>
<TfrxMemoView Name="Memo53" Left="0" Top="0,377747720000002" Width="875" Height="16" ShowHint="False" StretchMode="smMaxHeight" Color="13434828" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="0" Font.Height="-11" Font.Name="Tahoma" Font.Style="1" Frame.Typ="13" HAlign="haRight" ParentFont="False" VAlign="vaCenter" Text="TOTALES [frxDBInformeListadoRecibos.&#34;TITULO&#34;]:"/>
</TfrxGroupFooter>
<TfrxHeader Name="Header1" Height="75" Left="0" Top="390" Width="1009,13451">
<TfrxMemoView Name="Memo13" Left="0" Top="60" Width="383,62987" Height="15" ShowHint="False" Color="13434828" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="0" Font.Height="-11" Font.Name="Tahoma" Font.Style="1" Frame.Typ="15" ParentFont="False" VAlign="vaCenter" Text="Resumen por meses de los recibos de proveedor"/>
<TfrxMemoView Name="Memo22" Left="383,62987" Top="60" Width="94,48818898" Height="15" ShowHint="False" Color="13434828" DisplayFormat.DecimalSeparator="," 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="Importe total"/>
<TfrxMemoView Name="Memo23" Left="0" Top="29" Width="485,37013" Height="15,11811024" ShowHint="False" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="16384" Font.Height="-12" Font.Name="Tahoma" Font.Style="1" Frame.Color="8421504" ParentFont="False" Text="Resumen por meses de los recibos de proveedor"/>
</TfrxHeader>
<TfrxReportSummary Name="ReportSummary1" Height="15" Left="0" Top="602" Width="1009,13451">
<TfrxMemoView Name="Memo24" Left="0" Top="0" Width="383,62987" Height="15" ShowHint="False" Color="13434828" DisplayFormat.DecimalSeparator="," 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="Total: "/>
<TfrxMemoView Name="Memo32" Left="383,62987" Top="0" Width="94,48818898" Height="15" ShowHint="False" Color="13434828" 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;frxDBInformeListadoRecibosResumen.&#34;IMPORTE_TOTAL&#34;&#62;,DatosMaestros2)]"/>
</TfrxReportSummary>
<TfrxMasterData Name="DatosMaestros2" Height="17" Left="0" Top="525" Width="1009,13451" ColumnWidth="0" ColumnGap="0" DataSetName="frxDBInformeListadoRecibosResumen" RowCount="0">
<TfrxMemoView Name="Memo9" Left="0" Top="0" Width="383,63" Height="17,00787402" ShowHint="False" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="16384" Font.Height="-12" Font.Name="Tahoma" Font.Style="1" Frame.Color="8421504" Frame.Typ="15" ParentFont="False" Text="[frxDBInformeListadoRecibosResumen.&#34;TITULO&#34;]"/>
<TfrxMemoView Name="Memo12" Left="383,63" Top="0" Width="94,64276" 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" ParentFont="False" Text="[frxDBInformeListadoRecibosResumen.&#34;IMPORTE_TOTAL&#34;]"/>
</TfrxMasterData>
<TfrxGroupHeader Name="GroupHeader1" Height="20" Left="0" Top="212" Width="1009,13451" Condition="frxDBInformeListadoRecibos.&#34;MES&#34;">
<TfrxMemoView Name="Memo4" Left="-1" Top="1" Width="485,37013" Height="15,11811024" ShowHint="False" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="16384" Font.Height="-12" Font.Name="Tahoma" Font.Style="1" Frame.Color="8421504" ParentFont="False" Text="[frxDBInformeListadoRecibos.&#34;TITULO&#34;]"/>
</TfrxGroupHeader>
<TfrxGroupFooter Name="GroupFooter1" Height="20" Left="0" Top="485" Width="1009,13451"/>
</TfrxReportPage>
</TfrxReport>

56
Source/Informes/9/InformeObjetivosAgentesAlbaranes.fr3 Normal file
View File

File diff suppressed because one or more lines are too long

56
Source/Informes/9/InformeObjetivosAgentesFacturas.fr3 Normal file
View File

File diff suppressed because one or more lines are too long

36
Source/Informes/InfEtiquetasAlbaranCliente.fr3
View File

File diff suppressed because one or more lines are too long

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

@ -331,6 +331,11 @@ inherited DataModuleAlbaranesCliente: TDataModuleAlbaranesCliente
Name = 'PAIS'
DataType = datString
Size = 255
end
item
Name = 'NOMBRE_COMERCIAL'
DataType = datString
Size = 255
end>
Params = <>
StreamingOptions = [soDisableEventsWhileStreaming]

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

@ -9,9 +9,9 @@ const
{ Data table rules ids
Feel free to change them to something more human readable
but make sure they are unique in the context of your application }
RID_ListaAnosAlbaranes = '{03DAEDC7-C84E-4A87-A22E-9DAD97D43FCF}';
RID_AlbaranesCliente = '{EE2C2D99-4B20-4384-BADD-AD7D67C97868}';
RID_AlbaranesCliente_Detalles = '{67AC6DA8-13FF-41B0-B4ED-91A0414CFA2D}';
RID_ListaAnosAlbaranes = '{034C47A7-9693-4782-B958-14F8CD312AFE}';
RID_AlbaranesCliente = '{934CDBA2-5C88-4AC4-912C-8894C6949CA7}';
RID_AlbaranesCliente_Detalles = '{92745445-63CF-41E4-9FEE-7216DE593332}';
{ Data table names }
nme_ListaAnosAlbaranes = 'ListaAnosAlbaranes';
@ -75,6 +75,7 @@ const
fld_AlbaranesClienteNUM_CORREOS = 'NUM_CORREOS';
fld_AlbaranesClienteBLOQUEADO = 'BLOQUEADO';
fld_AlbaranesClientePAIS = 'PAIS';
fld_AlbaranesClienteNOMBRE_COMERCIAL = 'NOMBRE_COMERCIAL';
{ AlbaranesCliente field indexes }
idx_AlbaranesClienteID = 0;
@ -127,6 +128,7 @@ const
idx_AlbaranesClienteNUM_CORREOS = 47;
idx_AlbaranesClienteBLOQUEADO = 48;
idx_AlbaranesClientePAIS = 49;
idx_AlbaranesClienteNOMBRE_COMERCIAL = 50;
{ AlbaranesCliente_Detalles fields }
fld_AlbaranesCliente_DetallesID = 'ID';
@ -167,7 +169,7 @@ const
type
{ IListaAnosAlbaranes }
IListaAnosAlbaranes = interface(IDAStronglyTypedDataTable)
['{8E4D7304-1E61-4D01-B63C-88061AE62045}']
['{D8A27304-5AE1-4543-A18A-299B47F16584}']
{ Property getters and setters }
function GetANOValue: String;
procedure SetANOValue(const aValue: String);
@ -202,7 +204,7 @@ type
{ IAlbaranesCliente }
IAlbaranesCliente = interface(IDAStronglyTypedDataTable)
['{BAF2587E-A293-4C76-9392-32A6DC8D09E9}']
['{EB356297-45DB-498B-A6B9-FBF107B4448A}']
{ Property getters and setters }
function GetIDValue: Integer;
procedure SetIDValue(const aValue: Integer);
@ -402,6 +404,10 @@ type
procedure SetPAISValue(const aValue: String);
function GetPAISIsNull: Boolean;
procedure SetPAISIsNull(const aValue: Boolean);
function GetNOMBRE_COMERCIALValue: String;
procedure SetNOMBRE_COMERCIALValue(const aValue: String);
function GetNOMBRE_COMERCIALIsNull: Boolean;
procedure SetNOMBRE_COMERCIALIsNull(const aValue: Boolean);
{ Properties }
@ -505,6 +511,8 @@ type
property BLOQUEADOIsNull: Boolean read GetBLOQUEADOIsNull write SetBLOQUEADOIsNull;
property PAIS: String read GetPAISValue write SetPAISValue;
property PAISIsNull: Boolean read GetPAISIsNull write SetPAISIsNull;
property NOMBRE_COMERCIAL: String read GetNOMBRE_COMERCIALValue write SetNOMBRE_COMERCIALValue;
property NOMBRE_COMERCIALIsNull: Boolean read GetNOMBRE_COMERCIALIsNull write SetNOMBRE_COMERCIALIsNull;
end;
{ TAlbaranesClienteDataTableRules }
@ -714,6 +722,10 @@ type
procedure SetPAISValue(const aValue: String); virtual;
function GetPAISIsNull: Boolean; virtual;
procedure SetPAISIsNull(const aValue: Boolean); virtual;
function GetNOMBRE_COMERCIALValue: String; virtual;
procedure SetNOMBRE_COMERCIALValue(const aValue: String); virtual;
function GetNOMBRE_COMERCIALIsNull: Boolean; virtual;
procedure SetNOMBRE_COMERCIALIsNull(const aValue: Boolean); virtual;
{ Properties }
property ID: Integer read GetIDValue write SetIDValue;
@ -816,6 +828,8 @@ type
property BLOQUEADOIsNull: Boolean read GetBLOQUEADOIsNull write SetBLOQUEADOIsNull;
property PAIS: String read GetPAISValue write SetPAISValue;
property PAISIsNull: Boolean read GetPAISIsNull write SetPAISIsNull;
property NOMBRE_COMERCIAL: String read GetNOMBRE_COMERCIALValue write SetNOMBRE_COMERCIALValue;
property NOMBRE_COMERCIALIsNull: Boolean read GetNOMBRE_COMERCIALIsNull write SetNOMBRE_COMERCIALIsNull;
public
constructor Create(aDataTable: TDADataTable); override;
@ -825,7 +839,7 @@ type
{ IAlbaranesCliente_Detalles }
IAlbaranesCliente_Detalles = interface(IDAStronglyTypedDataTable)
['{FD39F0DD-9D93-41C2-A10E-AE78DDB72EA0}']
['{433C3D4F-D610-48F2-86FA-0E601AEE7A41}']
{ Property getters and setters }
function GetIDValue: Integer;
procedure SetIDValue(const aValue: Integer);
@ -2148,6 +2162,27 @@ begin
DataTable.Fields[idx_AlbaranesClientePAIS].AsVariant := Null;
end;
function TAlbaranesClienteDataTableRules.GetNOMBRE_COMERCIALValue: String;
begin
result := DataTable.Fields[idx_AlbaranesClienteNOMBRE_COMERCIAL].AsString;
end;
procedure TAlbaranesClienteDataTableRules.SetNOMBRE_COMERCIALValue(const aValue: String);
begin
DataTable.Fields[idx_AlbaranesClienteNOMBRE_COMERCIAL].AsString := aValue;
end;
function TAlbaranesClienteDataTableRules.GetNOMBRE_COMERCIALIsNull: boolean;
begin
result := DataTable.Fields[idx_AlbaranesClienteNOMBRE_COMERCIAL].IsNull;
end;
procedure TAlbaranesClienteDataTableRules.SetNOMBRE_COMERCIALIsNull(const aValue: Boolean);
begin
if aValue then
DataTable.Fields[idx_AlbaranesClienteNOMBRE_COMERCIAL].AsVariant := Null;
end;
{ TAlbaranesCliente_DetallesDataTableRules }
constructor TAlbaranesCliente_DetallesDataTableRules.Create(aDataTable: TDADataTable);

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

@ -9,14 +9,14 @@ const
{ Delta rules ids
Feel free to change them to something more human readable
but make sure they are unique in the context of your application }
RID_ListaAnosAlbaranesDelta = '{716CDFC8-9A78-48CE-A9EA-9D18F891CB8E}';
RID_AlbaranesClienteDelta = '{C2C37F78-792A-4EB7-A9DA-2C2095DFDB6F}';
RID_AlbaranesCliente_DetallesDelta = '{F4ADE8A0-DE1F-41FF-96C0-F9E986830529}';
RID_ListaAnosAlbaranesDelta = '{1B3F6A95-0306-4C58-A2D5-E41F64C38109}';
RID_AlbaranesClienteDelta = '{7FD609D3-56BD-4C74-8C82-745539276DED}';
RID_AlbaranesCliente_DetallesDelta = '{974A0361-032C-4488-8E80-D7643A1EE7BF}';
type
{ IListaAnosAlbaranesDelta }
IListaAnosAlbaranesDelta = interface(IListaAnosAlbaranes)
['{716CDFC8-9A78-48CE-A9EA-9D18F891CB8E}']
['{1B3F6A95-0306-4C58-A2D5-E41F64C38109}']
{ Property getters and setters }
function GetOldANOValue : String;
@ -50,7 +50,7 @@ type
{ IAlbaranesClienteDelta }
IAlbaranesClienteDelta = interface(IAlbaranesCliente)
['{C2C37F78-792A-4EB7-A9DA-2C2095DFDB6F}']
['{7FD609D3-56BD-4C74-8C82-745539276DED}']
{ Property getters and setters }
function GetOldIDValue : Integer;
function GetOldID_EMPRESAValue : Integer;
@ -102,6 +102,7 @@ type
function GetOldNUM_CORREOSValue : SmallInt;
function GetOldBLOQUEADOValue : SmallInt;
function GetOldPAISValue : String;
function GetOldNOMBRE_COMERCIALValue : String;
{ Properties }
property OldID : Integer read GetOldIDValue;
@ -154,6 +155,7 @@ type
property OldNUM_CORREOS : SmallInt read GetOldNUM_CORREOSValue;
property OldBLOQUEADO : SmallInt read GetOldBLOQUEADOValue;
property OldPAIS : String read GetOldPAISValue;
property OldNOMBRE_COMERCIAL : String read GetOldNOMBRE_COMERCIALValue;
end;
{ TAlbaranesClienteBusinessProcessorRules }
@ -463,6 +465,12 @@ type
function GetOldPAISIsNull: Boolean; virtual;
procedure SetPAISValue(const aValue: String); virtual;
procedure SetPAISIsNull(const aValue: Boolean); virtual;
function GetNOMBRE_COMERCIALValue: String; virtual;
function GetNOMBRE_COMERCIALIsNull: Boolean; virtual;
function GetOldNOMBRE_COMERCIALValue: String; virtual;
function GetOldNOMBRE_COMERCIALIsNull: Boolean; virtual;
procedure SetNOMBRE_COMERCIALValue(const aValue: String); virtual;
procedure SetNOMBRE_COMERCIALIsNull(const aValue: Boolean); virtual;
{ Properties }
property ID : Integer read GetIDValue write SetIDValue;
@ -665,6 +673,10 @@ type
property PAISIsNull : Boolean read GetPAISIsNull write SetPAISIsNull;
property OldPAIS : String read GetOldPAISValue;
property OldPAISIsNull : Boolean read GetOldPAISIsNull;
property NOMBRE_COMERCIAL : String read GetNOMBRE_COMERCIALValue write SetNOMBRE_COMERCIALValue;
property NOMBRE_COMERCIALIsNull : Boolean read GetNOMBRE_COMERCIALIsNull write SetNOMBRE_COMERCIALIsNull;
property OldNOMBRE_COMERCIAL : String read GetOldNOMBRE_COMERCIALValue;
property OldNOMBRE_COMERCIALIsNull : Boolean read GetOldNOMBRE_COMERCIALIsNull;
public
constructor Create(aBusinessProcessor: TDABusinessProcessor); override;
@ -674,7 +686,7 @@ type
{ IAlbaranesCliente_DetallesDelta }
IAlbaranesCliente_DetallesDelta = interface(IAlbaranesCliente_Detalles)
['{F4ADE8A0-DE1F-41FF-96C0-F9E986830529}']
['{974A0361-032C-4488-8E80-D7643A1EE7BF}']
{ Property getters and setters }
function GetOldIDValue : Integer;
function GetOldID_ALBARANValue : Integer;
@ -2509,6 +2521,37 @@ begin
BusinessProcessor.CurrentChange.NewValueByName[fld_AlbaranesClientePAIS] := Null;
end;
function TAlbaranesClienteBusinessProcessorRules.GetNOMBRE_COMERCIALValue: String;
begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_AlbaranesClienteNOMBRE_COMERCIAL];
end;
function TAlbaranesClienteBusinessProcessorRules.GetNOMBRE_COMERCIALIsNull: Boolean;
begin
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_AlbaranesClienteNOMBRE_COMERCIAL]);
end;
function TAlbaranesClienteBusinessProcessorRules.GetOldNOMBRE_COMERCIALValue: String;
begin
result := BusinessProcessor.CurrentChange.OldValueByName[fld_AlbaranesClienteNOMBRE_COMERCIAL];
end;
function TAlbaranesClienteBusinessProcessorRules.GetOldNOMBRE_COMERCIALIsNull: Boolean;
begin
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_AlbaranesClienteNOMBRE_COMERCIAL]);
end;
procedure TAlbaranesClienteBusinessProcessorRules.SetNOMBRE_COMERCIALValue(const aValue: String);
begin
BusinessProcessor.CurrentChange.NewValueByName[fld_AlbaranesClienteNOMBRE_COMERCIAL] := aValue;
end;
procedure TAlbaranesClienteBusinessProcessorRules.SetNOMBRE_COMERCIALIsNull(const aValue: Boolean);
begin
if aValue then
BusinessProcessor.CurrentChange.NewValueByName[fld_AlbaranesClienteNOMBRE_COMERCIAL] := Null;
end;
{ TAlbaranesCliente_DetallesBusinessProcessorRules }
constructor TAlbaranesCliente_DetallesBusinessProcessorRules.Create(aBusinessProcessor: TDABusinessProcessor);

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

@ -247,6 +247,10 @@ object srvAlbaranesCliente: TsrvAlbaranesCliente
item
DatasetField = 'PAIS'
TableField = 'PAIS'
end
item
DatasetField = 'NOMBRE_COMERCIAL'
TableField = 'NOMBRE_COMERCIAL'
end>
end>
Name = 'AlbaranesCliente'
@ -519,6 +523,11 @@ object srvAlbaranesCliente: TsrvAlbaranesCliente
Name = 'PAIS'
DataType = datString
Size = 255
end
item
Name = 'NOMBRE_COMERCIAL'
DataType = datString
Size = 255
end>
end
item

4
Source/Modulos/Albaranes de cliente/Views/uViewAlbaranesCliente.dfm
View File

@ -120,6 +120,10 @@ inherited frViewAlbaranesCliente: TfrViewAlbaranesCliente
DataBinding.FieldName = 'NOMBRE'
Width = 119
end
object cxGridViewNOMBRE_COMERCIAL: TcxGridDBColumn
Caption = 'Nombre comercial'
DataBinding.FieldName = 'NOMBRE_COMERCIAL'
end
object cxGridViewAGENTE: TcxGridDBColumn
Caption = 'Agente'
DataBinding.FieldName = 'AGENTE'

9
Source/Modulos/Albaranes de cliente/Views/uViewAlbaranesCliente.pas
View File

@ -68,6 +68,7 @@ type
TBXSeparatorItem3: TTBXSeparatorItem;
TBXItem4: TTBXItem;
cxGridViewREF_CLIENTE: TcxGridDBColumn;
cxGridViewNOMBRE_COMERCIAL: TcxGridDBColumn;
procedure cxGridActiveTabChanged(Sender: TcxCustomGrid; ALevel:
TcxGridLevel);
procedure cxGridViewStylesGetContentStyle(Sender: TcxCustomGridTableView;
@ -193,12 +194,12 @@ begin
cxGridView.DataController.Filter.Options := [fcoCaseInsensitive, fcoSoftCompare];
FFiltro := AddFilterGrid(fboAnd);
Columna := (cxGridView as TcxGridDBTableView).GetColumnByFieldName('FECHA_PREVISTA_ENVIO');
FFiltro.AddItem(Columna, foBetween, varArrayOf([Fecha1, Fecha2]), VarToStr(Fecha1) + ' and ' + VarToStr(Fecha2));
// Columna := (cxGridView as TcxGridDBTableView).GetColumnByFieldName('FECHA_PREVISTA_ENVIO');
// FFiltro.AddItem(Columna, foBetween, varArrayOf([Fecha1, Fecha2]), VarToStr(Fecha1) + ' and ' + VarToStr(Fecha2));
// FFiltro.BoolOperatorKind := fboOr;
// Columna := (cxGridView as TcxGridDBTableView).GetColumnByFieldName('FECHA_ALBARAN');
// FFiltro.AddItem(Columna, foBetween, varArrayOf([Fecha1, Fecha2]), VarToStr(Fecha1) + ' and ' + VarToStr(Fecha2));
Columna := (cxGridView as TcxGridDBTableView).GetColumnByFieldName('FECHA_ALBARAN');
FFiltro.AddItem(Columna, foBetween, varArrayOf([Fecha1, Fecha2]), VarToStr(Fecha1) + ' and ' + VarToStr(Fecha2));
end;
end;

262
Source/Modulos/Albaranes de proveedor/Views/uEditorAlbaranProveedor.dfm
View File

@ -2,19 +2,19 @@ inherited fEditorAlbaranProveedor: TfEditorAlbaranProveedor
Left = 332
Top = 147
Caption = 'Nuevo albar'#225'n de proveedor'
ClientHeight = 619
ClientWidth = 765
ClientHeight = 662
ClientWidth = 778
OnClose = CustomEditorClose
ExplicitWidth = 773
ExplicitHeight = 653
ExplicitWidth = 786
ExplicitHeight = 696
PixelsPerInch = 96
TextHeight = 13
inherited JvNavPanelHeader: TJvNavPanelHeader
Width = 765
Width = 778
Caption = 'Nuevo albar'#225'n de proveedor'
ExplicitWidth = 765
inherited Image1: TImage
Left = 632
Left = 645
Picture.Data = {
0A54504E474F626A65637489504E470D0A1A0A0000000D494844520000001800
0000180806000000E0773DF80000000970485973000017120000171201679FD2
@ -125,14 +125,14 @@ inherited fEditorAlbaranProveedor: TfEditorAlbaranProveedor
ExplicitLeft = 735
end
inherited lblDesbloquear: TcxLabel
Left = 667
Left = 680
ExplicitLeft = 667
AnchorX = 712
AnchorX = 725
AnchorY = 14
end
end
inherited TBXDock: TTBXDock
Width = 765
Width = 778
ExplicitWidth = 765
inherited tbxMain: TTBXToolbar
ExplicitWidth = 488
@ -147,12 +147,12 @@ inherited fEditorAlbaranProveedor: TfEditorAlbaranProveedor
end
end
inherited tbxMenu: TTBXToolbar
ExplicitWidth = 765
ExplicitWidth = 778
end
end
inherited pgPaginas: TPageControl
Width = 759
Height = 382
Width = 772
Height = 425
TabOrder = 1
OnChanging = pgPaginasChanging
ExplicitWidth = 759
@ -166,15 +166,13 @@ inherited fEditorAlbaranProveedor: TfEditorAlbaranProveedor
object pagContenido: TTabSheet
Caption = 'Contenido'
ImageIndex = 1
ExplicitLeft = 0
ExplicitTop = 0
ExplicitWidth = 0
ExplicitHeight = 0
ExplicitWidth = 751
ExplicitHeight = 354
inline frViewDetallesAlbaranProveedor1: TfrViewDetallesAlbaranProveedor
Left = 0
Top = 0
Width = 751
Height = 354
Width = 764
Height = 397
Align = alClient
BiDiMode = bdLeftToRight
Font.Charset = DEFAULT_CHARSET
@ -189,7 +187,7 @@ inherited fEditorAlbaranProveedor: TfEditorAlbaranProveedor
ExplicitWidth = 751
ExplicitHeight = 354
inherited ToolBar1: TToolBar
Width = 751
Width = 764
Height = 51
ExplicitWidth = 751
ExplicitHeight = 51
@ -217,18 +215,12 @@ inherited fEditorAlbaranProveedor: TfEditorAlbaranProveedor
inherited FontSize: TEdit
Left = 544
Top = 0
Width = 170
Width = 186
ExplicitLeft = 544
ExplicitTop = 0
ExplicitWidth = 170
ExplicitWidth = 186
end
inherited UpDown1: TUpDown
Left = 714
Top = 0
ExplicitLeft = 714
ExplicitTop = 0
end
inherited ToolButton13: TToolButton
inherited ToolButton13: TToolButton [7]
Left = 0
Top = 0
Wrap = True
@ -236,61 +228,67 @@ inherited fEditorAlbaranProveedor: TfEditorAlbaranProveedor
ExplicitTop = 0
ExplicitHeight = 27
end
inherited ToolButton6: TToolButton [9]
inherited UpDown1: TUpDown [8]
Left = 0
Top = 27
ExplicitLeft = 0
ExplicitTop = 27
end
inherited ToolButton7: TToolButton [10]
Left = 66
inherited ToolButton6: TToolButton [9]
Left = 17
Top = 27
ExplicitLeft = 66
ExplicitLeft = 17
ExplicitTop = 27
end
inherited ToolButton7: TToolButton [10]
Left = 83
Top = 27
ExplicitLeft = 83
ExplicitTop = 27
end
inherited ToolButton8: TToolButton [11]
Left = 133
Left = 150
Top = 27
ExplicitLeft = 133
ExplicitLeft = 150
ExplicitTop = 27
end
inherited ToolButton12: TToolButton [12]
Left = 216
Left = 233
Top = 27
ExplicitLeft = 216
ExplicitLeft = 233
ExplicitTop = 27
ExplicitHeight = 22
end
inherited ToolButton9: TToolButton [13]
Left = 224
Left = 241
Top = 27
ExplicitLeft = 224
ExplicitLeft = 241
ExplicitTop = 27
end
inherited ToolButton10: TToolButton [14]
Left = 369
Left = 386
Top = 27
ExplicitLeft = 369
ExplicitLeft = 386
ExplicitTop = 27
end
inherited ToolButton11: TToolButton [15]
Left = 494
Left = 511
Top = 27
ExplicitLeft = 494
ExplicitLeft = 511
ExplicitTop = 27
end
end
inherited cxGrid: TcxGrid
Top = 77
Width = 751
Height = 277
Width = 764
Height = 320
ExplicitTop = 77
ExplicitWidth = 751
ExplicitHeight = 277
end
inherited TBXDock1: TTBXDock
Top = 51
Width = 751
Width = 764
ExplicitTop = 51
ExplicitWidth = 751
inherited TBXToolbar1: TTBXToolbar
@ -311,15 +309,13 @@ inherited fEditorAlbaranProveedor: TfEditorAlbaranProveedor
object pagInicidencias: TTabSheet
Caption = 'Incidencias'
ImageIndex = 2
ExplicitLeft = 0
ExplicitTop = 0
ExplicitWidth = 0
ExplicitHeight = 0
ExplicitWidth = 751
ExplicitHeight = 354
inline frViewIncidenciasCli: TfrViewIncidencias
Left = 0
Top = 0
Width = 751
Height = 354
Width = 764
Height = 397
Align = alClient
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
@ -332,30 +328,30 @@ inherited fEditorAlbaranProveedor: TfEditorAlbaranProveedor
ExplicitWidth = 751
ExplicitHeight = 354
inherited pnlSup: TPanel
Width = 751
Width = 764
ExplicitWidth = 751
inherited eIncidenciaActiva: TcxDBCheckBox
ExplicitHeight = 21
end
end
inherited GroupBox1: TGroupBox
Width = 751
Height = 326
Width = 764
Height = 369
ExplicitWidth = 751
ExplicitHeight = 326
inherited eIncidencias: TcxDBMemo
ExplicitWidth = 734
ExplicitHeight = 299
Height = 299
Width = 734
Height = 342
Width = 747
end
end
end
end
end
inherited StatusBar: TJvStatusBar
Top = 600
Width = 765
Top = 643
Width = 778
Panels = <
item
Width = 200
@ -365,8 +361,8 @@ inherited fEditorAlbaranProveedor: TfEditorAlbaranProveedor
end
inline frViewTotales1: TfrViewTotales [4]
Left = 0
Top = 464
Width = 765
Top = 507
Width = 778
Height = 136
Align = alBottom
Font.Charset = DEFAULT_CHARSET
@ -381,85 +377,85 @@ inherited fEditorAlbaranProveedor: TfEditorAlbaranProveedor
ExplicitWidth = 765
ExplicitHeight = 136
inherited dxLayoutControl1: TdxLayoutControl
Width = 765
Width = 778
Height = 136
LookAndFeel = dxLayoutOfficeLookAndFeel1
ExplicitWidth = 765
ExplicitHeight = 136
inherited Bevel3: TBevel
Left = 425
Top = 11
Left = 433
Top = -63
Height = 30
ExplicitLeft = 425
ExplicitTop = 11
ExplicitLeft = 433
ExplicitTop = -63
ExplicitHeight = 30
end
inherited Bevel4: TBevel
Left = 537
Top = 53
Left = 545
Top = -21
Width = 21
ExplicitLeft = 537
ExplicitTop = 53
ExplicitLeft = 545
ExplicitTop = -21
ExplicitWidth = 21
end
inherited Bevel1: TBevel
Left = 537
Top = 169
Left = 545
Top = 95
Width = 73
ExplicitLeft = 537
ExplicitTop = 169
ExplicitLeft = 545
ExplicitTop = 95
ExplicitWidth = 73
end
inherited Bevel2: TBevel
Left = 120
Top = 171
Top = 97
Width = 368
ExplicitLeft = 120
ExplicitTop = 171
ExplicitTop = 97
ExplicitWidth = 368
end
inherited ImporteDto: TcxDBCurrencyEdit
Left = 191
Top = 38
Top = -36
Style.LookAndFeel.SkinName = ''
Style.IsFontAssigned = True
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitLeft = 191
ExplicitTop = 38
ExplicitTop = -36
ExplicitWidth = 199
Width = 199
end
inherited ImporteIVA: TcxDBCurrencyEdit
Left = 608
Top = 88
Left = 616
Top = 14
Style.LookAndFeel.SkinName = ''
Style.IsFontAssigned = True
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitLeft = 608
ExplicitTop = 88
ExplicitLeft = 616
ExplicitTop = 14
ExplicitWidth = 192
Width = 192
end
inherited ImporteTotal: TcxDBCurrencyEdit
Left = 538
Top = 142
Left = 546
Top = 68
Style.LookAndFeel.SkinName = ''
Style.IsFontAssigned = True
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitLeft = 538
ExplicitTop = 142
ExplicitLeft = 546
ExplicitTop = 68
ExplicitWidth = 262
Width = 262
end
inherited edtDescuento: TcxDBSpinEdit
Left = 120
Top = 38
Top = -36
Properties.OnValidate = frViewTotales1edtDescuentoPropertiesValidate
Style.LookAndFeel.SkinName = ''
Style.IsFontAssigned = True
@ -467,73 +463,73 @@ inherited fEditorAlbaranProveedor: TfEditorAlbaranProveedor
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitLeft = 120
ExplicitTop = 38
ExplicitTop = -36
end
inherited edtIVA: TcxDBSpinEdit
Left = 537
Top = 88
Left = 545
Top = 14
Properties.OnValidate = frViewTotales1edtIVAPropertiesValidate
Style.LookAndFeel.SkinName = ''
Style.IsFontAssigned = True
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitLeft = 537
ExplicitTop = 88
ExplicitLeft = 545
ExplicitTop = 14
end
inherited ImporteBase: TcxDBCurrencyEdit
Left = 537
Top = 11
Left = 545
Top = -63
Style.LookAndFeel.SkinName = ''
Style.IsFontAssigned = True
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitLeft = 537
ExplicitTop = 11
ExplicitLeft = 545
ExplicitTop = -63
ExplicitWidth = 263
Width = 263
end
inherited edtRE: TcxDBSpinEdit
Left = 537
Top = 115
Left = 545
Top = 41
Style.LookAndFeel.SkinName = ''
Style.IsFontAssigned = True
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitLeft = 537
ExplicitTop = 115
ExplicitLeft = 545
ExplicitTop = 41
end
inherited ImporteRE: TcxDBCurrencyEdit
Left = 608
Top = 115
Left = 616
Top = 41
Style.LookAndFeel.SkinName = ''
Style.IsFontAssigned = True
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitLeft = 608
ExplicitTop = 115
ExplicitLeft = 616
ExplicitTop = 41
ExplicitWidth = 192
Width = 192
end
inherited eImporteNeto: TcxDBCurrencyEdit
Left = 120
Top = 11
Top = -63
Style.LookAndFeel.SkinName = ''
Style.IsFontAssigned = True
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitLeft = 120
ExplicitTop = 11
ExplicitTop = -63
ExplicitWidth = 270
Width = 270
end
inherited ePorte: TcxDBCurrencyEdit
Left = 120
Top = 65
Top = -9
Properties.OnValidate = frViewTotales1ePortePropertiesValidate
Style.LookAndFeel.SkinName = ''
Style.IsFontAssigned = True
@ -541,74 +537,74 @@ inherited fEditorAlbaranProveedor: TfEditorAlbaranProveedor
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitLeft = 120
ExplicitTop = 65
ExplicitTop = -9
ExplicitWidth = 270
Width = 270
end
inherited eIVA: TcxDBLookupComboBox
Left = 120
Top = 92
Top = 18
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitLeft = 120
ExplicitTop = 92
ExplicitTop = 18
ExplicitWidth = 132
Width = 132
end
inherited bTiposIVA: TButton
Left = 277
Top = 92
Left = 285
Top = 18
OnClick = frViewTotales1bTiposIVAClick
ExplicitLeft = 277
ExplicitTop = 92
ExplicitLeft = 285
ExplicitTop = 18
end
inherited cbRecargoEquivalencia: TcxDBCheckBox
Left = 120
Top = 119
Top = 45
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitLeft = 120
ExplicitTop = 119
ExplicitTop = 45
ExplicitWidth = 270
Width = 270
end
inherited edtRetencion: TcxDBSpinEdit
Left = 537
Top = 189
Left = 545
Top = 115
Style.LookAndFeel.SkinName = ''
Style.IsFontAssigned = True
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitLeft = 537
ExplicitTop = 189
ExplicitLeft = 545
ExplicitTop = 115
end
inherited edtImporteRetencion: TcxDBCurrencyEdit
Left = 608
Top = 189
Left = 616
Top = 115
Style.LookAndFeel.SkinName = ''
Style.IsFontAssigned = True
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitLeft = 608
ExplicitTop = 189
ExplicitLeft = 616
ExplicitTop = 115
ExplicitWidth = 180
Width = 180
end
inherited edtFechaRetencion: TcxDBDateEdit
Left = 120
Top = 191
Top = 117
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitLeft = 120
ExplicitTop = 191
ExplicitTop = 117
ExplicitWidth = 280
Width = 280
end
@ -617,10 +613,15 @@ inherited fEditorAlbaranProveedor: TfEditorAlbaranProveedor
ShowCaption = False
ShowBorder = False
inherited dxLayoutControl1Group2: TdxLayoutGroup
inherited dxLayoutControl1Item8: TdxLayoutItem
inherited dxLayoutControl1Group7: TdxLayoutGroup
inherited dxLayoutControl1Group10: TdxLayoutGroup
Visible = False
end
end
inherited dxLayoutControl1Group6: TdxLayoutGroup
Visible = False
end
inherited dxLayoutControl1Group7: TdxLayoutGroup
inherited dxLayoutControl1Item16: TdxLayoutItem
Visible = False
end
inherited dxLayoutControl1Item19: TdxLayoutItem
@ -635,11 +636,18 @@ inherited fEditorAlbaranProveedor: TfEditorAlbaranProveedor
inherited dxLayoutControl1Item14: TdxLayoutItem
Visible = False
end
inherited dxLayoutControl1Group9: TdxLayoutGroup
Visible = False
end
inherited dxLayoutControl1Group8: TdxLayoutGroup
Visible = False
inherited dxLayoutControl1Item7: TdxLayoutItem
Visible = True
end
end
inherited dxLayoutControl1Item3: TdxLayoutItem
Visible = False
end
inherited dxLayoutControl1Item10: TdxLayoutItem
Visible = False
end

12
Source/Modulos/Albaranes de proveedor/Views/uViewAlbaranesProveedor.dfm
View File

@ -18,7 +18,7 @@ inherited frViewAlbaranesProveedor: TfrViewAlbaranesProveedor
Format = ',0.00 '#8364';-,0.00 '#8364
Kind = skSum
Position = spFooter
Column = cxGridViewIMPORTE_TOTAL
Column = cxGridViewBASE_IMPONIBLE
end>
DataController.Summary.FooterSummaryItems = <
item
@ -33,7 +33,7 @@ inherited frViewAlbaranesProveedor: TfrViewAlbaranesProveedor
item
Format = ',0.00 '#8364';-,0.00 '#8364
Kind = skSum
Column = cxGridViewIMPORTE_TOTAL
Column = cxGridViewBASE_IMPONIBLE
end>
DataController.OnCompare = cxGridViewDataControllerCompare
OptionsView.GroupFooters = gfAlwaysVisible
@ -159,9 +159,9 @@ inherited frViewAlbaranesProveedor: TfrViewAlbaranesProveedor
HeaderAlignmentHorz = taRightJustify
Width = 52
end
object cxGridViewIMPORTE_TOTAL: TcxGridDBColumn
Caption = 'Importe total'
DataBinding.FieldName = 'IMPORTE_TOTAL'
object cxGridViewBASE_IMPONIBLE: TcxGridDBColumn
Caption = 'Base Imponible'
DataBinding.FieldName = 'BASE_IMPONIBLE'
PropertiesClassName = 'TcxCurrencyEditProperties'
Properties.Alignment.Horz = taRightJustify
FooterAlignmentHorz = taRightJustify
@ -225,6 +225,8 @@ inherited frViewAlbaranesProveedor: TfrViewAlbaranesProveedor
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitLeft = 447
ExplicitWidth = 215
Width = 215
end
end
inherited TBXAlignmentPanel1: TTBXAlignmentPanel

2
Source/Modulos/Albaranes de proveedor/Views/uViewAlbaranesProveedor.pas
View File

@ -37,7 +37,7 @@ type
cxGridViewNOMBRE_ALMACEN: TcxGridDBColumn;
cxGridViewREF_PED_PROVEEDOR: TcxGridDBColumn;
cxGridViewREF_FACTURA: TcxGridDBColumn;
cxGridViewIMPORTE_TOTAL: TcxGridDBColumn;
cxGridViewBASE_IMPONIBLE: TcxGridDBColumn;
actProveedor: TAction;
actAlmacen: TAction;
TBXItem2: TTBXItem;

1
Source/Modulos/Articulos/Views/uViewProveedorArticulo.dfm
View File

@ -97,6 +97,7 @@ inherited frViewProveedorArticulo: TfrViewProveedorArticulo
Top = 136
DataBinding.DataField = 'DESCUENTO'
Properties.Alignment.Horz = taRightJustify
Properties.DisplayFormat = '#,0.00%'
Properties.ImmediatePost = True
Properties.MaxValue = 100.000000000000000000
Style.BorderColor = clWindowFrame

2
Source/Modulos/Articulos/Views/uViewProveedorArticulo.pas
View File

@ -185,7 +185,7 @@ begin
DesactivarEventos;
try
eDescuento.DataBinding.DataSource.Edit;
eDescuento.DataBinding.Field.AsFloat := RoundTo(ADescuento, -2);
eDescuento.DataBinding.Field.AsFloat := ADescuento; //RoundTo(ADescuento, -2);
finally
ActivarEventos;
end;

1
Source/Modulos/Banca electronica/Controller/uBancaElectronicaController.pas
View File

@ -460,6 +460,7 @@ begin
Acreedor.Pais := 'ES';
Acreedor.Sufijo := AEmpresa.DatosBancarios.SUFIJO_ACREEDOR;
Acreedor.CuentaIBAN := AEmpresa.DatosBancarios.IBAN;
Acreedor.CodigoBIC := AEmpresa.DatosBancarios.SWIFT;
GenerarCabeceraAcreedor;

3
Source/Modulos/Banca electronica/Utiles/CVBNorma19SEPAXML.pas
View File

@ -30,6 +30,7 @@ type
Direccion3 : string;
Pais : string;
CuentaIBAN : string;
CodigoBIC : string;
Sufijo : string;
NIFCIF : string;
end;
@ -251,7 +252,7 @@ begin
FDDPayInfo.ReqdColltnDt := FechaCobro;
FDDPayInfo.CdtrNm := Acreedor.Nombre;
FDDPayInfo.CdtrAcct.IBAN := Acreedor.CuentaIBAN;
FDDPayInfo.CdtrAgt.BIC := '';
FDDPayInfo.CdtrAgt.BIC := Acreedor.CodigoBIC;
FDDPayInfo.CdtrAgt.OthrID := FIN_INSTN_NOTPROVIDED;
FDDPayInfo.CdtrSchmeIdIdPrvtIdOthrId := IdentificadorAcreedorSEPA();
FDDInit.AppendPmtInfEntry(FDDPayInfo);

11
Source/Modulos/Contactos/Controller/uAgentesController.pas
View File

@ -107,6 +107,13 @@ end;
function TAgentesController.Duplicar(AContacto: IBizContacto): IBizContacto;
begin
Result := inherited Duplicar(AContacto);
// if Assigned((Result as IBizAgente).ObjetivosAlbaranes) then
// DuplicarRegistros((AContacto as IBizAgente).ObjetivosAlbaranes.DataTable, (Result as IBizAgente).ObjetivosAlbaranes.DataTable, mdrTodos);
// if Assigned((Result as IBizAgente).ObjetivosFacturas) then
// DuplicarRegistros((AContacto as IBizAgente).ObjetivosFacturas.DataTable, (Result as IBizAgente).ObjetivosFacturas.DataTable, mdrTodos);
end;
function TAgentesController.ElegirContacto(AContactos: IBizContacto;
@ -202,8 +209,8 @@ function TAgentesController.Guardar(AContacto: IBizContacto): Boolean;
begin
if inherited Guardar(AContacto) then
begin
(AContacto as IBizAgente).ObjetivosAlbaranes.DataTable.Refresh;
(AContacto as IBizAgente).ObjetivosFacturas.DataTable.Refresh;
// (AContacto as IBizAgente).ObjetivosAlbaranes.DataTable.Refresh;
// (AContacto as IBizAgente).ObjetivosFacturas.DataTable.Refresh;
end;
end;

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

Binary file not shown.

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

@ -88,9 +88,9 @@ begin
IndiceCol := (Sender as TcxGridDBTableView).GetColumnByFieldName(fld_EmpleadosFECHA_BAJA).Index;
ASituacion := VarToStr(ARecord.DisplayTexts[IndiceCol]);
if Length(ASituacion) = 0 then
AStyle.TextColor := cxStyleActivos.TextColor
AStyle := cxStyleActivos
else
AStyle.TextColor := cxStyleInactivos.TextColor;
AStyle := cxStyleInactivos;
end;
end;

10
Source/Modulos/Facturas de cliente/Data/uDataModuleFacturasCliente.dfm
View File

@ -293,6 +293,16 @@ inherited DataModuleFacturasCliente: TDataModuleFacturasCliente
Name = 'PAIS'
DataType = datString
Size = 255
end
item
Name = 'NOMBRE_COMERCIAL'
DataType = datString
Size = 255
end
item
Name = 'NOMBRE_AGENTE'
DataType = datString
Size = 255
end>
Params = <>
StreamingOptions = [soDisableEventsWhileStreaming]

86
Source/Modulos/Facturas de cliente/Model/schFacturasClienteClient_Intf.pas
View File

@ -9,10 +9,10 @@ const
{ Data table rules ids
Feel free to change them to something more human readable
but make sure they are unique in the context of your application }
RID_ListaAnosFacturas = '{6464C43C-D41E-4702-BE3D-00E3AD993A8F}';
RID_FacturasCliente = '{A5D73F73-E266-432C-9410-3F993A3E9275}';
RID_FacturasCliente_Detalles = '{8FEC9095-3334-4400-9F3D-B3CF200B0AC9}';
RID_FacturasClienteDeAlbaran = '{D4867ECE-B4F0-491D-A7FE-FB2487A2FC0A}';
RID_ListaAnosFacturas = '{3B978089-46EE-45E5-B753-7FD013A73DC2}';
RID_FacturasCliente = '{EC537E6E-2DF3-4E4B-BAED-AAE2ECA9EBF2}';
RID_FacturasCliente_Detalles = '{3F1D33DC-E40C-4F7F-9D31-CFE4CDDD7555}';
RID_FacturasClienteDeAlbaran = '{CF8A313F-0925-4AD4-B850-DB7ADC3D1075}';
{ Data table names }
nme_ListaAnosFacturas = 'ListaAnosFacturas';
@ -72,6 +72,8 @@ const
fld_FacturasClienteNUM_CORREOS = 'NUM_CORREOS';
fld_FacturasClienteID_ALBARAN = 'ID_ALBARAN';
fld_FacturasClientePAIS = 'PAIS';
fld_FacturasClienteNOMBRE_COMERCIAL = 'NOMBRE_COMERCIAL';
fld_FacturasClienteNOMBRE_AGENTE = 'NOMBRE_AGENTE';
{ FacturasCliente field indexes }
idx_FacturasClienteID = 0;
@ -119,6 +121,8 @@ const
idx_FacturasClienteNUM_CORREOS = 42;
idx_FacturasClienteID_ALBARAN = 43;
idx_FacturasClientePAIS = 44;
idx_FacturasClienteNOMBRE_COMERCIAL = 45;
idx_FacturasClienteNOMBRE_AGENTE = 46;
{ FacturasCliente_Detalles fields }
fld_FacturasCliente_DetallesID = 'ID';
@ -249,7 +253,7 @@ const
type
{ IListaAnosFacturas }
IListaAnosFacturas = interface(IDAStronglyTypedDataTable)
['{C80A5F15-8C2B-44B8-ADE6-45178C1874DA}']
['{1B46D9B4-3797-4541-82F0-6574118C088E}']
{ Property getters and setters }
function GetANOValue: String;
procedure SetANOValue(const aValue: String);
@ -284,7 +288,7 @@ type
{ IFacturasCliente }
IFacturasCliente = interface(IDAStronglyTypedDataTable)
['{E362AA1E-2094-47CB-8BB6-DBA30D8FE86F}']
['{C1D52241-E925-4005-B0F6-9F6FE2937B2D}']
{ Property getters and setters }
function GetIDValue: Integer;
procedure SetIDValue(const aValue: Integer);
@ -465,6 +469,14 @@ type
procedure SetPAISValue(const aValue: String);
function GetPAISIsNull: Boolean;
procedure SetPAISIsNull(const aValue: Boolean);
function GetNOMBRE_COMERCIALValue: String;
procedure SetNOMBRE_COMERCIALValue(const aValue: String);
function GetNOMBRE_COMERCIALIsNull: Boolean;
procedure SetNOMBRE_COMERCIALIsNull(const aValue: Boolean);
function GetNOMBRE_AGENTEValue: String;
procedure SetNOMBRE_AGENTEValue(const aValue: String);
function GetNOMBRE_AGENTEIsNull: Boolean;
procedure SetNOMBRE_AGENTEIsNull(const aValue: Boolean);
{ Properties }
@ -558,6 +570,10 @@ type
property ID_ALBARANIsNull: Boolean read GetID_ALBARANIsNull write SetID_ALBARANIsNull;
property PAIS: String read GetPAISValue write SetPAISValue;
property PAISIsNull: Boolean read GetPAISIsNull write SetPAISIsNull;
property NOMBRE_COMERCIAL: String read GetNOMBRE_COMERCIALValue write SetNOMBRE_COMERCIALValue;
property NOMBRE_COMERCIALIsNull: Boolean read GetNOMBRE_COMERCIALIsNull write SetNOMBRE_COMERCIALIsNull;
property NOMBRE_AGENTE: String read GetNOMBRE_AGENTEValue write SetNOMBRE_AGENTEValue;
property NOMBRE_AGENTEIsNull: Boolean read GetNOMBRE_AGENTEIsNull write SetNOMBRE_AGENTEIsNull;
end;
{ TFacturasClienteDataTableRules }
@ -746,6 +762,14 @@ type
procedure SetPAISValue(const aValue: String); virtual;
function GetPAISIsNull: Boolean; virtual;
procedure SetPAISIsNull(const aValue: Boolean); virtual;
function GetNOMBRE_COMERCIALValue: String; virtual;
procedure SetNOMBRE_COMERCIALValue(const aValue: String); virtual;
function GetNOMBRE_COMERCIALIsNull: Boolean; virtual;
procedure SetNOMBRE_COMERCIALIsNull(const aValue: Boolean); virtual;
function GetNOMBRE_AGENTEValue: String; virtual;
procedure SetNOMBRE_AGENTEValue(const aValue: String); virtual;
function GetNOMBRE_AGENTEIsNull: Boolean; virtual;
procedure SetNOMBRE_AGENTEIsNull(const aValue: Boolean); virtual;
{ Properties }
property ID: Integer read GetIDValue write SetIDValue;
@ -838,6 +862,10 @@ type
property ID_ALBARANIsNull: Boolean read GetID_ALBARANIsNull write SetID_ALBARANIsNull;
property PAIS: String read GetPAISValue write SetPAISValue;
property PAISIsNull: Boolean read GetPAISIsNull write SetPAISIsNull;
property NOMBRE_COMERCIAL: String read GetNOMBRE_COMERCIALValue write SetNOMBRE_COMERCIALValue;
property NOMBRE_COMERCIALIsNull: Boolean read GetNOMBRE_COMERCIALIsNull write SetNOMBRE_COMERCIALIsNull;
property NOMBRE_AGENTE: String read GetNOMBRE_AGENTEValue write SetNOMBRE_AGENTEValue;
property NOMBRE_AGENTEIsNull: Boolean read GetNOMBRE_AGENTEIsNull write SetNOMBRE_AGENTEIsNull;
public
constructor Create(aDataTable: TDADataTable); override;
@ -847,7 +875,7 @@ type
{ IFacturasCliente_Detalles }
IFacturasCliente_Detalles = interface(IDAStronglyTypedDataTable)
['{8D90FFD2-DC7F-47B8-A135-95E518144895}']
['{9F17C201-9C4F-4DED-855A-23CECA074B2D}']
{ Property getters and setters }
function GetIDValue: Integer;
procedure SetIDValue(const aValue: Integer);
@ -1050,7 +1078,7 @@ type
{ IFacturasClienteDeAlbaran }
IFacturasClienteDeAlbaran = interface(IDAStronglyTypedDataTable)
['{5CCCE1E1-44D0-42EA-AB42-710BDEC93D50}']
['{37E2EB81-D03D-4D28-BDB1-53AF019A5989}']
{ Property getters and setters }
function GetIDValue: Integer;
procedure SetIDValue(const aValue: Integer);
@ -2599,6 +2627,48 @@ begin
DataTable.Fields[idx_FacturasClientePAIS].AsVariant := Null;
end;
function TFacturasClienteDataTableRules.GetNOMBRE_COMERCIALValue: String;
begin
result := DataTable.Fields[idx_FacturasClienteNOMBRE_COMERCIAL].AsString;
end;
procedure TFacturasClienteDataTableRules.SetNOMBRE_COMERCIALValue(const aValue: String);
begin
DataTable.Fields[idx_FacturasClienteNOMBRE_COMERCIAL].AsString := aValue;
end;
function TFacturasClienteDataTableRules.GetNOMBRE_COMERCIALIsNull: boolean;
begin
result := DataTable.Fields[idx_FacturasClienteNOMBRE_COMERCIAL].IsNull;
end;
procedure TFacturasClienteDataTableRules.SetNOMBRE_COMERCIALIsNull(const aValue: Boolean);
begin
if aValue then
DataTable.Fields[idx_FacturasClienteNOMBRE_COMERCIAL].AsVariant := Null;
end;
function TFacturasClienteDataTableRules.GetNOMBRE_AGENTEValue: String;
begin
result := DataTable.Fields[idx_FacturasClienteNOMBRE_AGENTE].AsString;
end;
procedure TFacturasClienteDataTableRules.SetNOMBRE_AGENTEValue(const aValue: String);
begin
DataTable.Fields[idx_FacturasClienteNOMBRE_AGENTE].AsString := aValue;
end;
function TFacturasClienteDataTableRules.GetNOMBRE_AGENTEIsNull: boolean;
begin
result := DataTable.Fields[idx_FacturasClienteNOMBRE_AGENTE].IsNull;
end;
procedure TFacturasClienteDataTableRules.SetNOMBRE_AGENTEIsNull(const aValue: Boolean);
begin
if aValue then
DataTable.Fields[idx_FacturasClienteNOMBRE_AGENTE].AsVariant := Null;
end;
{ TFacturasCliente_DetallesDataTableRules }
constructor TFacturasCliente_DetallesDataTableRules.Create(aDataTable: TDADataTable);

102
Source/Modulos/Facturas de cliente/Model/schFacturasClienteServer_Intf.pas
View File

@ -9,15 +9,15 @@ const
{ Delta rules ids
Feel free to change them to something more human readable
but make sure they are unique in the context of your application }
RID_ListaAnosFacturasDelta = '{2E8D1188-764C-466A-B408-068244CC9C98}';
RID_FacturasClienteDelta = '{94A24AA8-418C-491F-BF5F-ABD52B147760}';
RID_FacturasCliente_DetallesDelta = '{D846509F-6943-4DA5-82A6-BD02C2519385}';
RID_FacturasClienteDeAlbaranDelta = '{5943336E-2EF5-4713-B44A-ED5CD0466FE0}';
RID_ListaAnosFacturasDelta = '{B718E26C-623C-41F8-BFF3-3DAFCEAB064A}';
RID_FacturasClienteDelta = '{640B108D-0A95-4EE3-9C21-9C034ED5A0AD}';
RID_FacturasCliente_DetallesDelta = '{EBF40DCF-0538-4B75-BFFC-C28CDD13FC5F}';
RID_FacturasClienteDeAlbaranDelta = '{82174611-294F-4A44-9CC6-941D23135874}';
type
{ IListaAnosFacturasDelta }
IListaAnosFacturasDelta = interface(IListaAnosFacturas)
['{2E8D1188-764C-466A-B408-068244CC9C98}']
['{B718E26C-623C-41F8-BFF3-3DAFCEAB064A}']
{ Property getters and setters }
function GetOldANOValue : String;
@ -51,7 +51,7 @@ type
{ IFacturasClienteDelta }
IFacturasClienteDelta = interface(IFacturasCliente)
['{94A24AA8-418C-491F-BF5F-ABD52B147760}']
['{640B108D-0A95-4EE3-9C21-9C034ED5A0AD}']
{ Property getters and setters }
function GetOldIDValue : Integer;
function GetOldID_EMPRESAValue : Integer;
@ -98,6 +98,8 @@ type
function GetOldNUM_CORREOSValue : SmallInt;
function GetOldID_ALBARANValue : String;
function GetOldPAISValue : String;
function GetOldNOMBRE_COMERCIALValue : String;
function GetOldNOMBRE_AGENTEValue : String;
{ Properties }
property OldID : Integer read GetOldIDValue;
@ -145,6 +147,8 @@ type
property OldNUM_CORREOS : SmallInt read GetOldNUM_CORREOSValue;
property OldID_ALBARAN : String read GetOldID_ALBARANValue;
property OldPAIS : String read GetOldPAISValue;
property OldNOMBRE_COMERCIAL : String read GetOldNOMBRE_COMERCIALValue;
property OldNOMBRE_AGENTE : String read GetOldNOMBRE_AGENTEValue;
end;
{ TFacturasClienteBusinessProcessorRules }
@ -423,6 +427,18 @@ type
function GetOldPAISIsNull: Boolean; virtual;
procedure SetPAISValue(const aValue: String); virtual;
procedure SetPAISIsNull(const aValue: Boolean); virtual;
function GetNOMBRE_COMERCIALValue: String; virtual;
function GetNOMBRE_COMERCIALIsNull: Boolean; virtual;
function GetOldNOMBRE_COMERCIALValue: String; virtual;
function GetOldNOMBRE_COMERCIALIsNull: Boolean; virtual;
procedure SetNOMBRE_COMERCIALValue(const aValue: String); virtual;
procedure SetNOMBRE_COMERCIALIsNull(const aValue: Boolean); virtual;
function GetNOMBRE_AGENTEValue: String; virtual;
function GetNOMBRE_AGENTEIsNull: Boolean; virtual;
function GetOldNOMBRE_AGENTEValue: String; virtual;
function GetOldNOMBRE_AGENTEIsNull: Boolean; virtual;
procedure SetNOMBRE_AGENTEValue(const aValue: String); virtual;
procedure SetNOMBRE_AGENTEIsNull(const aValue: Boolean); virtual;
{ Properties }
property ID : Integer read GetIDValue write SetIDValue;
@ -605,6 +621,14 @@ type
property PAISIsNull : Boolean read GetPAISIsNull write SetPAISIsNull;
property OldPAIS : String read GetOldPAISValue;
property OldPAISIsNull : Boolean read GetOldPAISIsNull;
property NOMBRE_COMERCIAL : String read GetNOMBRE_COMERCIALValue write SetNOMBRE_COMERCIALValue;
property NOMBRE_COMERCIALIsNull : Boolean read GetNOMBRE_COMERCIALIsNull write SetNOMBRE_COMERCIALIsNull;
property OldNOMBRE_COMERCIAL : String read GetOldNOMBRE_COMERCIALValue;
property OldNOMBRE_COMERCIALIsNull : Boolean read GetOldNOMBRE_COMERCIALIsNull;
property NOMBRE_AGENTE : String read GetNOMBRE_AGENTEValue write SetNOMBRE_AGENTEValue;
property NOMBRE_AGENTEIsNull : Boolean read GetNOMBRE_AGENTEIsNull write SetNOMBRE_AGENTEIsNull;
property OldNOMBRE_AGENTE : String read GetOldNOMBRE_AGENTEValue;
property OldNOMBRE_AGENTEIsNull : Boolean read GetOldNOMBRE_AGENTEIsNull;
public
constructor Create(aBusinessProcessor: TDABusinessProcessor); override;
@ -614,7 +638,7 @@ type
{ IFacturasCliente_DetallesDelta }
IFacturasCliente_DetallesDelta = interface(IFacturasCliente_Detalles)
['{D846509F-6943-4DA5-82A6-BD02C2519385}']
['{EBF40DCF-0538-4B75-BFFC-C28CDD13FC5F}']
{ Property getters and setters }
function GetOldIDValue : Integer;
function GetOldID_FACTURAValue : Integer;
@ -816,7 +840,7 @@ type
{ IFacturasClienteDeAlbaranDelta }
IFacturasClienteDeAlbaranDelta = interface(IFacturasClienteDeAlbaran)
['{5943336E-2EF5-4713-B44A-ED5CD0466FE0}']
['{82174611-294F-4A44-9CC6-941D23135874}']
{ Property getters and setters }
function GetOldIDValue : Integer;
function GetOldID_EMPRESAValue : Integer;
@ -2827,6 +2851,68 @@ begin
BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasClientePAIS] := Null;
end;
function TFacturasClienteBusinessProcessorRules.GetNOMBRE_COMERCIALValue: String;
begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasClienteNOMBRE_COMERCIAL];
end;
function TFacturasClienteBusinessProcessorRules.GetNOMBRE_COMERCIALIsNull: Boolean;
begin
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasClienteNOMBRE_COMERCIAL]);
end;
function TFacturasClienteBusinessProcessorRules.GetOldNOMBRE_COMERCIALValue: String;
begin
result := BusinessProcessor.CurrentChange.OldValueByName[fld_FacturasClienteNOMBRE_COMERCIAL];
end;
function TFacturasClienteBusinessProcessorRules.GetOldNOMBRE_COMERCIALIsNull: Boolean;
begin
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_FacturasClienteNOMBRE_COMERCIAL]);
end;
procedure TFacturasClienteBusinessProcessorRules.SetNOMBRE_COMERCIALValue(const aValue: String);
begin
BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasClienteNOMBRE_COMERCIAL] := aValue;
end;
procedure TFacturasClienteBusinessProcessorRules.SetNOMBRE_COMERCIALIsNull(const aValue: Boolean);
begin
if aValue then
BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasClienteNOMBRE_COMERCIAL] := Null;
end;
function TFacturasClienteBusinessProcessorRules.GetNOMBRE_AGENTEValue: String;
begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasClienteNOMBRE_AGENTE];
end;
function TFacturasClienteBusinessProcessorRules.GetNOMBRE_AGENTEIsNull: Boolean;
begin
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasClienteNOMBRE_AGENTE]);
end;
function TFacturasClienteBusinessProcessorRules.GetOldNOMBRE_AGENTEValue: String;
begin
result := BusinessProcessor.CurrentChange.OldValueByName[fld_FacturasClienteNOMBRE_AGENTE];
end;
function TFacturasClienteBusinessProcessorRules.GetOldNOMBRE_AGENTEIsNull: Boolean;
begin
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_FacturasClienteNOMBRE_AGENTE]);
end;
procedure TFacturasClienteBusinessProcessorRules.SetNOMBRE_AGENTEValue(const aValue: String);
begin
BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasClienteNOMBRE_AGENTE] := aValue;
end;
procedure TFacturasClienteBusinessProcessorRules.SetNOMBRE_AGENTEIsNull(const aValue: Boolean);
begin
if aValue then
BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasClienteNOMBRE_AGENTE] := Null;
end;
{ TFacturasCliente_DetallesBusinessProcessorRules }
constructor TFacturasCliente_DetallesBusinessProcessorRules.Create(aBusinessProcessor: TDABusinessProcessor);

18
Source/Modulos/Facturas de cliente/Servidor/srvFacturasCliente_Impl.dfm
View File

@ -227,6 +227,14 @@ object srvFacturasCliente: TsrvFacturasCliente
item
DatasetField = 'PAIS'
TableField = 'PAIS'
end
item
DatasetField = 'NOMBRE_COMERCIAL'
TableField = 'NOMBRE_COMERCIAL'
end
item
DatasetField = 'NOMBRE_AGENTE'
TableField = 'NOMBRE_AGENTE'
end>
end>
Name = 'FacturasCliente'
@ -464,6 +472,16 @@ object srvFacturasCliente: TsrvFacturasCliente
Name = 'PAIS'
DataType = datString
Size = 255
end
item
Name = 'NOMBRE_COMERCIAL'
DataType = datString
Size = 255
end
item
Name = 'NOMBRE_AGENTE'
DataType = datString
Size = 255
end>
end
item

18
Source/Modulos/Facturas de cliente/Views/uViewFacturasCliente.dfm
View File

@ -104,6 +104,10 @@ inherited frViewFacturasCliente: TfrViewFacturasCliente
DataBinding.FieldName = 'NOMBRE'
Width = 181
end
object cxGridViewNOMBRE_COMERCIAL: TcxGridDBColumn
Caption = 'Nombre comercial'
DataBinding.FieldName = 'NOMBRE_COMERCIAL'
end
object cxGridViewCALLE: TcxGridDBColumn
DataBinding.FieldName = 'CALLE'
Visible = False
@ -189,6 +193,10 @@ inherited frViewFacturasCliente: TfrViewFacturasCliente
Caption = 'Pa'#237's'
DataBinding.FieldName = 'PAIS'
end
object cxGridViewAgente: TcxGridDBColumn
Caption = 'Agente'
DataBinding.FieldName = 'NOMBRE_AGENTE'
end
end
inherited cxGridLevel: TcxGridLevel
Caption = 'Todas'
@ -279,6 +287,11 @@ inherited frViewFacturasCliente: TfrViewFacturasCliente
object TBXItem2: TTBXItem
Action = actPais
end
object TBXSeparatorItem3: TTBXSeparatorItem
end
object TBXItem4: TTBXItem
Action = actAgente
end
end
end
end
@ -319,6 +332,11 @@ inherited frViewFacturasCliente: TfrViewFacturasCliente
OnExecute = actPaisExecute
OnUpdate = actPaisUpdate
end
object actAgente: TAction
Caption = 'Agente'
OnExecute = actAgenteExecute
OnUpdate = actAgenteUpdate
end
end
inherited GridPNGImageList: TPngImageList
PngImages = <

55
Source/Modulos/Facturas de cliente/Views/uViewFacturasCliente.pas
View File

@ -61,6 +61,11 @@ type
cxGridViewRE: TcxGridDBColumn;
cxGridViewIMPORTE_RE: TcxGridDBColumn;
cxGridViewPAIS: TcxGridDBColumn;
cxGridViewNOMBRE_COMERCIAL: TcxGridDBColumn;
cxGridViewAgente: TcxGridDBColumn;
actAgente: TAction;
TBXSeparatorItem3: TTBXSeparatorItem;
TBXItem4: TTBXItem;
procedure cxGridViewStylesGetContentStyle(Sender: TcxCustomGridTableView;
ARecord: TcxCustomGridRecord; AItem: TcxCustomGridTableItem;
out AStyle: TcxStyle);
@ -78,6 +83,8 @@ type
procedure cxGridViewNUM_CORREOSCustomDrawHeader(Sender: TcxGridTableView;
ACanvas: TcxCanvas; AViewInfo: TcxGridColumnHeaderViewInfo;
var ADone: Boolean);
procedure actAgenteExecute(Sender: TObject);
procedure actAgenteUpdate(Sender: TObject);
private
//Filtros relativos a la vista
@ -98,13 +105,33 @@ type
implementation
uses
uDataModuleFacturasCliente, DateUtils, uViewGridBase, uReferenciasUtils,
uDataModuleFacturasCliente, DateUtils, uViewGridBase, uReferenciasUtils, schFacturasClienteClient_Intf ,
cxVariants;
{$R *.dfm}
{ TfrViewFacturasCliente }
procedure TfrViewFacturasCliente.actAgenteExecute(Sender: TObject);
begin
if (cxGridViewAGENTE.GroupIndex < 0) then
begin
cxGridViewAGENTE.GroupIndex := cxGridView.GroupedColumnCount;
cxGridViewAGENTE.Visible := False;
end
else
begin
cxGridViewAGENTE.GroupIndex := -1;
cxGridViewAGENTE.Visible := True;
end;
end;
procedure TfrViewFacturasCliente.actAgenteUpdate(Sender: TObject);
begin
inherited;
(Sender as TAction).Checked := not (cxGridViewAGENTE.GroupIndex < 0);
end;
procedure TfrViewFacturasCliente.actClienteExecute(Sender: TObject);
begin
if (cxGridViewNOMBRE.GroupIndex < 0) then
@ -265,18 +292,22 @@ begin
if Assigned(ARecord) then
begin
IndiceCol := cxGridViewSITUACION.Index;
ASituacion := VarToStr(ARecord.DisplayTexts[IndiceCol]);
if (ASituacion = CTE_PAGADA) then
AStyle.TextColor := cxStylePagada.TextColor
else if (ASituacion = CTE_PENDIENTE) then
AStyle.TextColor := cxStylePendientes.TextColor
else if (ASituacion = CTE_PARCIAMENTE_PAGADA) then
AStyle.TextColor := cxStyleParciales.TextColor;
//ESTILO SITUACIONES
if Assigned((Sender as TcxGridDBTableView).GetColumnByFieldName(fld_FacturasClienteSITUACION)) then
begin
IndiceCol := (Sender as TcxGridDBTableView).GetColumnByFieldName(fld_FacturasClienteSITUACION).Index;
ASituacion := VarToStr(ARecord.DisplayTexts[IndiceCol]);
if (ASituacion = CTE_PAGADA) then
AStyle := cxStylePagada
else if (ASituacion = CTE_PENDIENTE) then
AStyle := cxStylePendientes
else if (ASituacion = CTE_PARCIAMENTE_PAGADA) then
AStyle := cxStyleParciales;
IndiceCol := cxGridViewIMPORTE_TOTAL.Index;
if (Pos('-', ARecord.DisplayTexts[IndiceCol]) > 0) then
AStyle.TextColor := cxStyleAbono.TextColor;
IndiceCol := (Sender as TcxGridDBTableView).GetColumnByFieldName(fld_FacturasClienteIMPORTE_TOTAL).Index;
if (Pos('-', ARecord.DisplayTexts[IndiceCol]) > 0) then
AStyle := cxStyleAbono;
end;
end;
end;

16
Source/Modulos/Facturas de proveedor/FacturasProveedor_Group.groupproj
View File

@ -27,7 +27,6 @@
<Projects Include="..\Relaciones\Albaranes de proveedor - Facturas de proveedor\AlbProv_FacProv_relation.dproj" />
<Projects Include="..\Relaciones\Pedidos de proveedor - Albaranes de proveedor\PedProv_AlbProv_relation.dproj" />
<Projects Include="..\Relaciones\Pedidos de proveedor - Facturas de proveedor\PedProv_FacProv_relation.dproj" />
<Projects Include="..\Relaciones\Presupuestos de cliente - Facturas de cliente\PreCli_FacCli_relation.dproj" />
<Projects Include="Controller\FacturasProveedor_controller.dproj" />
<Projects Include="Data\FacturasProveedor_data.dproj" />
<Projects Include="Model\FacturasProveedor_model.dproj" />
@ -238,15 +237,6 @@
<Target Name="FacturasCliente_view:Make">
<MSBuild Projects="..\Facturas de cliente\Views\FacturasCliente_view.dproj" Targets="Make" />
</Target>
<Target Name="PreCli_FacCli_relation">
<MSBuild Projects="..\Relaciones\Presupuestos de cliente - Facturas de cliente\PreCli_FacCli_relation.dproj" Targets="" />
</Target>
<Target Name="PreCli_FacCli_relation:Clean">
<MSBuild Projects="..\Relaciones\Presupuestos de cliente - Facturas de cliente\PreCli_FacCli_relation.dproj" Targets="Clean" />
</Target>
<Target Name="PreCli_FacCli_relation:Make">
<MSBuild Projects="..\Relaciones\Presupuestos de cliente - Facturas de cliente\PreCli_FacCli_relation.dproj" Targets="Make" />
</Target>
<Target Name="PedidosProveedor_data">
<MSBuild Projects="..\Pedidos a proveedor\Data\PedidosProveedor_data.dproj" Targets="" />
</Target>
@ -302,13 +292,13 @@
<MSBuild Projects="..\Recibos de proveedor\Controller\RecibosProveedor_controller.dproj" Targets="Make" />
</Target>
<Target Name="Build">
<CallTarget Targets="Base;GUIBase;ApplicationBase;Contactos_view;Articulos_view;FacturasProveedor_model;FacturasProveedor_data;FacturasProveedor_controller;AlbProv_FacProv_relation;PedProv_FacProv_relation;FacturasProveedor_view;FacturasProveedor_plugin;FactuGES;FactuGES_Server;AlbaranesProveedor_view;PedProv_AlbProv_relation;PedidosProveedor_view;PedidosProveedor_controller;AlbaranesProveedor_controller;Articulos_controller;AlbCli_FacCli_relation;FacturasCliente_view;PreCli_FacCli_relation;PedidosProveedor_data;Contactos_controller;GestorInformes_view;RecibosProveedor_model;RecibosProveedor_data;RecibosProveedor_controller" />
<CallTarget Targets="Base;GUIBase;ApplicationBase;Contactos_view;Articulos_view;FacturasProveedor_model;FacturasProveedor_data;FacturasProveedor_controller;AlbProv_FacProv_relation;PedProv_FacProv_relation;FacturasProveedor_view;FacturasProveedor_plugin;FactuGES;FactuGES_Server;AlbaranesProveedor_view;PedProv_AlbProv_relation;PedidosProveedor_view;PedidosProveedor_controller;AlbaranesProveedor_controller;Articulos_controller;AlbCli_FacCli_relation;FacturasCliente_view;PedidosProveedor_data;Contactos_controller;GestorInformes_view;RecibosProveedor_model;RecibosProveedor_data;RecibosProveedor_controller" />
</Target>
<Target Name="Clean">
<CallTarget Targets="Base:Clean;GUIBase:Clean;ApplicationBase:Clean;Contactos_view:Clean;Articulos_view:Clean;FacturasProveedor_model:Clean;FacturasProveedor_data:Clean;FacturasProveedor_controller:Clean;AlbProv_FacProv_relation:Clean;PedProv_FacProv_relation:Clean;FacturasProveedor_view:Clean;FacturasProveedor_plugin:Clean;FactuGES:Clean;FactuGES_Server:Clean;AlbaranesProveedor_view:Clean;PedProv_AlbProv_relation:Clean;PedidosProveedor_view:Clean;PedidosProveedor_controller:Clean;AlbaranesProveedor_controller:Clean;Articulos_controller:Clean;AlbCli_FacCli_relation:Clean;FacturasCliente_view:Clean;PreCli_FacCli_relation:Clean;PedidosProveedor_data:Clean;Contactos_controller:Clean;GestorInformes_view:Clean;RecibosProveedor_model:Clean;RecibosProveedor_data:Clean;RecibosProveedor_controller:Clean" />
<CallTarget Targets="Base:Clean;GUIBase:Clean;ApplicationBase:Clean;Contactos_view:Clean;Articulos_view:Clean;FacturasProveedor_model:Clean;FacturasProveedor_data:Clean;FacturasProveedor_controller:Clean;AlbProv_FacProv_relation:Clean;PedProv_FacProv_relation:Clean;FacturasProveedor_view:Clean;FacturasProveedor_plugin:Clean;FactuGES:Clean;FactuGES_Server:Clean;AlbaranesProveedor_view:Clean;PedProv_AlbProv_relation:Clean;PedidosProveedor_view:Clean;PedidosProveedor_controller:Clean;AlbaranesProveedor_controller:Clean;Articulos_controller:Clean;AlbCli_FacCli_relation:Clean;FacturasCliente_view:Clean;PedidosProveedor_data:Clean;Contactos_controller:Clean;GestorInformes_view:Clean;RecibosProveedor_model:Clean;RecibosProveedor_data:Clean;RecibosProveedor_controller:Clean" />
</Target>
<Target Name="Make">
<CallTarget Targets="Base:Make;GUIBase:Make;ApplicationBase:Make;Contactos_view:Make;Articulos_view:Make;FacturasProveedor_model:Make;FacturasProveedor_data:Make;FacturasProveedor_controller:Make;AlbProv_FacProv_relation:Make;PedProv_FacProv_relation:Make;FacturasProveedor_view:Make;FacturasProveedor_plugin:Make;FactuGES:Make;FactuGES_Server:Make;AlbaranesProveedor_view:Make;PedProv_AlbProv_relation:Make;PedidosProveedor_view:Make;PedidosProveedor_controller:Make;AlbaranesProveedor_controller:Make;Articulos_controller:Make;AlbCli_FacCli_relation:Make;FacturasCliente_view:Make;PreCli_FacCli_relation:Make;PedidosProveedor_data:Make;Contactos_controller:Make;GestorInformes_view:Make;RecibosProveedor_model:Make;RecibosProveedor_data:Make;RecibosProveedor_controller:Make" />
<CallTarget Targets="Base:Make;GUIBase:Make;ApplicationBase:Make;Contactos_view:Make;Articulos_view:Make;FacturasProveedor_model:Make;FacturasProveedor_data:Make;FacturasProveedor_controller:Make;AlbProv_FacProv_relation:Make;PedProv_FacProv_relation:Make;FacturasProveedor_view:Make;FacturasProveedor_plugin:Make;FactuGES:Make;FactuGES_Server:Make;AlbaranesProveedor_view:Make;PedProv_AlbProv_relation:Make;PedidosProveedor_view:Make;PedidosProveedor_controller:Make;AlbaranesProveedor_controller:Make;Articulos_controller:Make;AlbCli_FacCli_relation:Make;FacturasCliente_view:Make;PedidosProveedor_data:Make;Contactos_controller:Make;GestorInformes_view:Make;RecibosProveedor_model:Make;RecibosProveedor_data:Make;RecibosProveedor_controller:Make" />
</Target>
<Import Condition="Exists('$(MSBuildBinPath)\Borland.Group.Targets')" Project="$(MSBuildBinPath)\Borland.Group.Targets" />
</Project>

20
Source/Modulos/Facturas de proveedor/Model/schFacturasProveedorClient_Intf.pas
View File

@ -9,11 +9,11 @@ const
{ Data table rules ids
Feel free to change them to something more human readable
but make sure they are unique in the context of your application }
RID_ListaAnosFacturas = '{39EC9E1B-2911-46D1-ACA9-FA1EF6E51A75}';
RID_FacturasProveedor = '{694516CA-63EE-41E4-82BB-75782E314DC8}';
RID_FacturasProveedor_Detalles = '{16B3A1FB-A523-4336-B56A-60823DDE3E24}';
RID_FacturasProveedor_Pedidos = '{6A7C212A-59AC-4E29-95AD-ACC947BB7D9A}';
RID_FacturasProveedorDeAlbaran = '{EE202C16-34F4-4B4C-B6BB-EB811D237AB6}';
RID_ListaAnosFacturas = '{DE72C5AA-3A81-46F2-A596-E612C9A8E0DF}';
RID_FacturasProveedor = '{CCA571D8-A9AA-42CC-B352-B028348D8BCE}';
RID_FacturasProveedor_Detalles = '{DFCD3856-B73B-4594-9663-8EAFA99403F2}';
RID_FacturasProveedor_Pedidos = '{0D6A1D92-CEE3-480C-ACAF-F8E6BD8AD400}';
RID_FacturasProveedorDeAlbaran = '{CE90EB16-10A3-4E23-A1E1-2BD2C0281449}';
{ Data table names }
nme_ListaAnosFacturas = 'ListaAnosFacturas';
@ -237,7 +237,7 @@ const
type
{ IListaAnosFacturas }
IListaAnosFacturas = interface(IDAStronglyTypedDataTable)
['{83DE52CB-0D48-4AE6-B88A-7162486BBBA8}']
['{67A508CE-EAC3-4F10-8A21-C6AE7FC4A5B1}']
{ Property getters and setters }
function GetANOValue: String;
procedure SetANOValue(const aValue: String);
@ -272,7 +272,7 @@ type
{ IFacturasProveedor }
IFacturasProveedor = interface(IDAStronglyTypedDataTable)
['{AE58DD6C-AE26-4255-AE43-9D2D7B371A56}']
['{EBBDE259-AFF4-499A-A384-232A7B003087}']
{ Property getters and setters }
function GetIDValue: Integer;
procedure SetIDValue(const aValue: Integer);
@ -727,7 +727,7 @@ type
{ IFacturasProveedor_Detalles }
IFacturasProveedor_Detalles = interface(IDAStronglyTypedDataTable)
['{745A7B7E-1729-48B9-BF23-444482E23AB7}']
['{0EB649EC-EB49-4EDB-A5F8-F9224CA96190}']
{ Property getters and setters }
function GetIDValue: Integer;
procedure SetIDValue(const aValue: Integer);
@ -942,7 +942,7 @@ type
{ IFacturasProveedor_Pedidos }
IFacturasProveedor_Pedidos = interface(IDAStronglyTypedDataTable)
['{3836DA85-3066-4BC8-974B-04C2148275B8}']
['{B9E6740D-870F-4569-8F79-CA2B1E597A98}']
{ Property getters and setters }
function GetIDValue: Integer;
procedure SetIDValue(const aValue: Integer);
@ -1049,7 +1049,7 @@ type
{ IFacturasProveedorDeAlbaran }
IFacturasProveedorDeAlbaran = interface(IDAStronglyTypedDataTable)
['{62E0726A-2187-4779-956B-09258612C07A}']
['{04C6392D-0292-4E63-8735-340085D4B9AE}']
{ Property getters and setters }
function GetIDValue: Integer;
procedure SetIDValue(const aValue: Integer);

20
Source/Modulos/Facturas de proveedor/Model/schFacturasProveedorServer_Intf.pas
View File

@ -9,16 +9,16 @@ const
{ Delta rules ids
Feel free to change them to something more human readable
but make sure they are unique in the context of your application }
RID_ListaAnosFacturasDelta = '{D07287C5-EC7A-4659-B15A-6260065DCEEA}';
RID_FacturasProveedorDelta = '{745B5F49-A1E1-45BA-B8AE-0847024CEE5A}';
RID_FacturasProveedor_DetallesDelta = '{12331A1D-2031-4A48-B546-AC5F8B49D841}';
RID_FacturasProveedor_PedidosDelta = '{8EB730A8-ED88-46F8-96D9-C5DF0A86AFD9}';
RID_FacturasProveedorDeAlbaranDelta = '{804D2139-7836-4684-8A0B-E0D7E97E7F52}';
RID_ListaAnosFacturasDelta = '{907E16FE-0521-405C-A967-11989922E9D6}';
RID_FacturasProveedorDelta = '{1C45684B-EB3E-4CB6-BF48-C71FD3CB3219}';
RID_FacturasProveedor_DetallesDelta = '{9623AA50-5B1E-4752-B6BC-2ABB0044DD02}';
RID_FacturasProveedor_PedidosDelta = '{C59F83C5-F496-4D6B-AD34-8A6673017C3B}';
RID_FacturasProveedorDeAlbaranDelta = '{7793CA17-D13C-4B90-8243-B75F1DFA5BC2}';
type
{ IListaAnosFacturasDelta }
IListaAnosFacturasDelta = interface(IListaAnosFacturas)
['{D07287C5-EC7A-4659-B15A-6260065DCEEA}']
['{907E16FE-0521-405C-A967-11989922E9D6}']
{ Property getters and setters }
function GetOldANOValue : String;
@ -52,7 +52,7 @@ type
{ IFacturasProveedorDelta }
IFacturasProveedorDelta = interface(IFacturasProveedor)
['{745B5F49-A1E1-45BA-B8AE-0847024CEE5A}']
['{1C45684B-EB3E-4CB6-BF48-C71FD3CB3219}']
{ Property getters and setters }
function GetOldIDValue : Integer;
function GetOldID_EMPRESAValue : Integer;
@ -507,7 +507,7 @@ type
{ IFacturasProveedor_DetallesDelta }
IFacturasProveedor_DetallesDelta = interface(IFacturasProveedor_Detalles)
['{12331A1D-2031-4A48-B546-AC5F8B49D841}']
['{9623AA50-5B1E-4752-B6BC-2ABB0044DD02}']
{ Property getters and setters }
function GetOldIDValue : Integer;
function GetOldID_FACTURAValue : Integer;
@ -721,7 +721,7 @@ type
{ IFacturasProveedor_PedidosDelta }
IFacturasProveedor_PedidosDelta = interface(IFacturasProveedor_Pedidos)
['{8EB730A8-ED88-46F8-96D9-C5DF0A86AFD9}']
['{C59F83C5-F496-4D6B-AD34-8A6673017C3B}']
{ Property getters and setters }
function GetOldIDValue : Integer;
function GetOldID_FACTURAValue : Integer;
@ -827,7 +827,7 @@ type
{ IFacturasProveedorDeAlbaranDelta }
IFacturasProveedorDeAlbaranDelta = interface(IFacturasProveedorDeAlbaran)
['{804D2139-7836-4684-8A0B-E0D7E97E7F52}']
['{7793CA17-D13C-4B90-8243-B75F1DFA5BC2}']
{ Property getters and setters }
function GetOldIDValue : Integer;
function GetOldID_EMPRESAValue : Integer;

2
Source/Modulos/Facturas de proveedor/Views/uViewFacturasProveedor.dfm
View File

@ -233,8 +233,6 @@ inherited frViewFacturasProveedor: TfrViewFacturasProveedor
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitLeft = 388
ExplicitWidth = 215
Width = 215
end
end
inherited TBXAlignmentPanel1: TTBXAlignmentPanel

29
Source/Modulos/Facturas de proveedor/Views/uViewFacturasProveedor.pas
View File

@ -94,7 +94,7 @@ implementation
uses
uDataModuleFacturasProveedor, DateUtils, uViewGridBase, uReferenciasUtils,
cxVariants;
cxVariants, schFacturasProveedorClient_Intf;
{$R *.dfm}
@ -261,19 +261,22 @@ begin
if Assigned(ARecord) then
begin
//ESTILO SITUACIONES
if Assigned((Sender as TcxGridDBTableView).GetColumnByFieldName(fld_FacturasProveedorSITUACION)) then
begin
IndiceCol := (Sender as TcxGridDBTableView).GetColumnByFieldName(fld_FacturasProveedorSITUACION).Index;
ASituacion := VarToStr(ARecord.DisplayTexts[IndiceCol]);
if (ASituacion = CTE_PAGADA) then
AStyle := cxStylePagada
else if (ASituacion = CTE_PENDIENTE) then
AStyle := cxStylePendientes
else if (ASituacion = CTE_PARCIAMENTE_PAGADA) then
AStyle := cxStyleParciales;
IndiceCol := cxGridViewSITUACION.Index;
ASituacion := UPPERCASE(VarToStr(ARecord.DisplayTexts[IndiceCol]));
if (ASituacion = CTE_PAGADA) then
AStyle.TextColor := cxStylePagada.TextColor
else if (ASituacion = CTE_PENDIENTE) then
AStyle.TextColor := cxStylePendientes.TextColor
else if (ASituacion = CTE_PARCIAMENTE_PAGADA) then
AStyle.TextColor := cxStyleParciales.TextColor;
IndiceCol := cxGridViewIMPORTE_TOTAL.Index;
if (Pos('-', ARecord.DisplayTexts[IndiceCol]) > 0) then
AStyle.TextColor := cxStyleAbono.TextColor;
IndiceCol := (Sender as TcxGridDBTableView).GetColumnByFieldName(fld_FacturasProveedorIMPORTE_TOTAL).Index;
if (Pos('-', ARecord.DisplayTexts[IndiceCol]) > 0) then
AStyle := cxStyleAbono;
end;
end;
end;

25
Source/Modulos/Facturas proforma/Views/uViewFacturasProforma.pas
View File

@ -97,7 +97,7 @@ implementation
uses
uDataModuleFacturasProforma, DateUtils, uViewGridBase, uReferenciasUtils,
cxVariants;
cxVariants, schFacturasProformaClient_Intf;
{$R *.dfm}
@ -261,16 +261,21 @@ begin
if Assigned(ARecord) then
begin
IndiceCol := cxGridViewSITUACION.Index;
ASituacion := VarToStr(ARecord.DisplayTexts[IndiceCol]);
if (ASituacion = CTE_PAGADA) then
AStyle.TextColor := cxStylePagada.TextColor
else if (ASituacion = CTE_PENDIENTE) then
AStyle.TextColor := cxStylePendientes.TextColor;
//ESTILO SITUACIONES
if Assigned((Sender as TcxGridDBTableView).GetColumnByFieldName(fld_FacturasProformaSITUACION)) then
begin
IndiceCol := (Sender as TcxGridDBTableView).GetColumnByFieldName(fld_FacturasProformaSITUACION).Index;
IndiceCol := cxGridViewIMPORTE_TOTAL.Index;
if (Pos('-', ARecord.DisplayTexts[IndiceCol]) > 0) then
AStyle.TextColor := cxStyleAbono.TextColor;
ASituacion := VarToStr(ARecord.DisplayTexts[IndiceCol]);
if (ASituacion = CTE_PAGADA) then
AStyle := cxStylePagada
else if (ASituacion = CTE_PENDIENTE) then
AStyle := cxStylePendientes;
IndiceCol := (Sender as TcxGridDBTableView).GetColumnByFieldName(fld_FacturasProformaIMPORTE_TOTAL).Index;
if (Pos('-', ARecord.DisplayTexts[IndiceCol]) > 0) then
AStyle := cxStyleAbono;
end;
end;
end;

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

@ -61,7 +61,7 @@ object fEditorFormasPago: TfEditorFormasPago
end
object bAnadir: TButton
Left = 284
Top = 31
Top = 32
Width = 95
Height = 23
Action = actAnadir

16
Source/Modulos/Formas de pago/Views/uEditorFormasPago.pas
View File

@ -79,7 +79,7 @@ implementation
{ TfEditorFormasPago }
uses
uDialogUtils;
uDialogUtils, uFactuGES_App;
function TfEditorFormasPago.GetFormasPago: IBizFormaPago;
begin
@ -114,7 +114,8 @@ procedure TfEditorFormasPago.actEliminarUpdate(Sender: TObject);
begin
(Sender as TAction).Enabled := Assigned(FFormasPago) and
FFormasPago.DataTable.Active and
(FFormasPago.DataTable.RecordCount > 0);
(FFormasPago.DataTable.RecordCount > 0) and
(AppFactuGES.UsuarioActivo.ID_PERFIL = 11);
end;
procedure TfEditorFormasPago.actModificarExecute(Sender: TObject);
@ -126,7 +127,8 @@ procedure TfEditorFormasPago.actModificarUpdate(Sender: TObject);
begin
(Sender as TAction).Enabled := Assigned(FFormasPago) and
FFormasPago.DataTable.Active and
(FFormasPago.DataTable.RecordCount > 0);
(FFormasPago.DataTable.RecordCount > 0) and
(AppFactuGES.UsuarioActivo.ID_PERFIL = 11);
end;
constructor TfEditorFormasPago.Create(AOwner: TComponent);
@ -170,7 +172,8 @@ end;
procedure TfEditorFormasPago.actAnadirUpdate(Sender: TObject);
begin
(Sender as TAction).Enabled := Assigned(FFormasPago) and
FFormasPago.DataTable.Active;
FFormasPago.DataTable.Active and
(AppFactuGES.UsuarioActivo.ID_PERFIL = 11);
end;
procedure TfEditorFormasPago.FormShow(Sender: TObject);
@ -179,6 +182,11 @@ begin
FFormasPago.DataTable.Active := true;
ListaFormasPago.SetFocus;
if (AppFactuGES.UsuarioActivo.ID_PERFIL = 11) then
actAceptar.enabled:= True
else
actAceptar.enabled:= False;
end;
end.

3
Source/Modulos/Historico de movimientos/Views/uViewHistoricoMovimientos.dfm
View File

@ -146,6 +146,9 @@ inherited frViewHistoricoMovimientos: TfrViewHistoricoMovimientos
end
end
end
inherited pnlAgrupaciones: TTBXDockablePanel
ExplicitWidth = 128
end
inherited dxComponentPrinter: TdxComponentPrinter
Left = 400
Top = 160

3
Source/Modulos/Historico de movimientos/Views/uViewHistoricoMovimientos.pas
View File

@ -14,7 +14,8 @@ uses
cxImageComboBox, ImgList, PngImageList, cxTextEdit, Grids, DBGrids, cxDBLookupComboBox,
cxButtonEdit, cxGridCustomPopupMenu, cxGridPopupMenu, uViewGrid,
uBizHistoricoMovimientos, uBizAlmacenes, cxSpinEdit, uViewFiltroBase, TB2Item, TBX,
TB2Toolbar, TBXDkPanels, TB2Dock, dxPgsDlg, cxCurrencyEdit, uDAInterfaces;
TB2Toolbar, TBXDkPanels, TB2Dock, dxPgsDlg, cxCurrencyEdit, uDAInterfaces,
uCustomView, uViewBase;
type
IViewHistoricoMovimientos = interface(IViewGrid)

4
Source/Modulos/Inventario/Views/uViewInventario.pas
View File

@ -167,9 +167,9 @@ begin
IndiceCol := (Sender as TcxGridDBTableView).GetColumnByFieldName(fld_INVENTARIOSTOCK).Index;
AStock := ARecord.DisplayTexts[IndiceCol];
if (AStock < 0) then
AStyle.TextColor := cxStyleArticuloSinStock.TextColor
AStyle := cxStyleArticuloSinStock
else
AStyle.TextColor := cxStyleArticuloConStock.TextColor;
AStyle := cxStyleArticuloConStock;
end;
end;

367
Source/Modulos/Pedidos a proveedor/Views/uEditorPedidoProveedor.dfm
View File

@ -2,19 +2,20 @@ inherited fEditorPedidoProveedor: TfEditorPedidoProveedor
Left = 332
Top = 147
Caption = 'Nuevo pedido a proveedor'
ClientHeight = 678
ClientWidth = 879
ClientHeight = 686
ClientWidth = 885
OnClose = CustomEditorClose
ExplicitWidth = 887
ExplicitHeight = 712
ExplicitTop = -7
ExplicitWidth = 893
ExplicitHeight = 720
PixelsPerInch = 96
TextHeight = 13
inherited JvNavPanelHeader: TJvNavPanelHeader
Width = 879
Width = 885
Caption = 'Nuevo pedido a proveedor'
ExplicitWidth = 879
inherited Image1: TImage
Left = 852
Left = 858
Picture.Data = {
0A54504E474F626A65637489504E470D0A1A0A0000000D494844520000001800
0000180806000000E0773DF80000000970485973000017120000171201679FD2
@ -42,14 +43,14 @@ inherited fEditorPedidoProveedor: TfEditorPedidoProveedor
ExplicitLeft = 735
end
inherited lblDesbloquear: TcxLabel
Left = 754
Left = 760
ExplicitLeft = 754
AnchorX = 799
AnchorX = 805
AnchorY = 14
end
end
inherited TBXDock: TTBXDock
Width = 879
Width = 885
ExplicitWidth = 879
inherited tbxMain: TTBXToolbar
ExplicitWidth = 596
@ -69,7 +70,7 @@ inherited fEditorPedidoProveedor: TfEditorPedidoProveedor
end
end
inherited tbxMenu: TTBXToolbar
ExplicitWidth = 879
ExplicitWidth = 885
object TBXSubmenuItem2: TTBXSubmenuItem [4]
Caption = 'A&cciones'
object TBXItem7: TTBXItem
@ -79,31 +80,29 @@ inherited fEditorPedidoProveedor: TfEditorPedidoProveedor
end
end
inherited pgPaginas: TPageControl
Width = 873
Height = 528
Width = 879
Height = 527
ActivePage = pagContenido
TabOrder = 1
OnChanging = pgPaginasChanging
ExplicitWidth = 873
ExplicitHeight = 528
ExplicitWidth = 879
ExplicitHeight = 536
inherited pagGeneral: TTabSheet
ExplicitLeft = 4
ExplicitTop = 24
ExplicitWidth = 865
ExplicitHeight = 500
ExplicitWidth = 871
ExplicitHeight = 508
end
object pagContenido: TTabSheet
Caption = 'Contenido'
ImageIndex = 1
ExplicitLeft = 0
ExplicitTop = 0
ExplicitWidth = 0
ExplicitHeight = 0
ExplicitWidth = 865
ExplicitHeight = 500
inline frViewDetallesPedidoProveedor1: TfrViewDetallesPedidoProveedor
Left = 0
Top = 0
Width = 865
Height = 500
Width = 871
Height = 499
Align = alClient
BiDiMode = bdLeftToRight
Font.Charset = DEFAULT_CHARSET
@ -118,105 +117,108 @@ inherited fEditorPedidoProveedor: TfEditorPedidoProveedor
ExplicitWidth = 865
ExplicitHeight = 500
inherited ToolBar1: TToolBar
Width = 865
Height = 46
Width = 871
Height = 51
ExplicitWidth = 865
ExplicitHeight = 46
ExplicitHeight = 51
inherited ToolButton3: TToolButton
Wrap = False
end
inherited ToolButton4: TToolButton
Left = 278
Top = 0
Wrap = True
ExplicitLeft = 278
ExplicitTop = 0
end
inherited ToolButton14: TToolButton
Left = 0
Wrap = False
ExplicitLeft = 0
inherited ToolButton14: TToolButton [4]
Left = 334
Top = 0
ExplicitLeft = 334
ExplicitTop = 0
end
inherited FontName: TJvFontComboBox
Left = 65
Top = 22
ExplicitLeft = 65
ExplicitTop = 22
inherited FontName: TJvFontComboBox [5]
Left = 399
Top = 0
ExplicitLeft = 399
ExplicitTop = 0
end
inherited FontSize: TEdit
Left = 210
Top = 22
Left = 544
Top = 0
Width = 58
ExplicitLeft = 210
ExplicitTop = 22
ExplicitLeft = 544
ExplicitTop = 0
ExplicitWidth = 58
end
inherited UpDown1: TUpDown
Left = 268
Top = 22
ExplicitLeft = 268
ExplicitTop = 22
inherited ToolButton13: TToolButton [7]
Left = 0
Top = 0
Wrap = True
ExplicitLeft = 0
ExplicitTop = 0
ExplicitHeight = 27
end
inherited ToolButton13: TToolButton
Left = 285
Top = 22
ExplicitLeft = 285
ExplicitTop = 22
inherited UpDown1: TUpDown [8]
Left = 0
Top = 27
ExplicitLeft = 0
ExplicitTop = 27
end
inherited ToolButton6: TToolButton
Left = 293
Top = 22
ExplicitLeft = 293
ExplicitTop = 22
inherited ToolButton6: TToolButton [9]
Left = 17
Top = 27
ExplicitLeft = 17
ExplicitTop = 27
end
inherited ToolButton7: TToolButton
Left = 359
Top = 22
ExplicitLeft = 359
ExplicitTop = 22
inherited ToolButton7: TToolButton [10]
Left = 83
Top = 27
ExplicitLeft = 83
ExplicitTop = 27
end
inherited ToolButton8: TToolButton
Left = 426
Top = 22
ExplicitLeft = 426
ExplicitTop = 22
inherited ToolButton8: TToolButton [11]
Left = 150
Top = 27
ExplicitLeft = 150
ExplicitTop = 27
end
inherited ToolButton12: TToolButton
Left = 509
Top = 22
ExplicitLeft = 509
ExplicitTop = 22
inherited ToolButton12: TToolButton [12]
Left = 233
Top = 27
ExplicitLeft = 233
ExplicitTop = 27
ExplicitHeight = 22
end
inherited ToolButton9: TToolButton
Left = 517
Top = 22
ExplicitLeft = 517
ExplicitTop = 22
inherited ToolButton9: TToolButton [13]
Left = 241
Top = 27
ExplicitLeft = 241
ExplicitTop = 27
end
inherited ToolButton10: TToolButton
Left = 662
Top = 22
ExplicitLeft = 662
ExplicitTop = 22
inherited ToolButton10: TToolButton [14]
Left = 386
Top = 27
ExplicitLeft = 386
ExplicitTop = 27
end
inherited ToolButton11: TToolButton
Left = 787
Top = 22
ExplicitLeft = 787
ExplicitTop = 22
inherited ToolButton11: TToolButton [15]
Left = 511
Top = 27
ExplicitLeft = 511
ExplicitTop = 27
end
end
inherited cxGrid: TcxGrid
Top = 72
Width = 865
Height = 428
Top = 77
Width = 871
Height = 422
ExplicitTop = 77
ExplicitWidth = 865
ExplicitHeight = 423
end
inherited TBXDock1: TTBXDock
Top = 46
Width = 865
Top = 51
Width = 871
ExplicitTop = 51
ExplicitWidth = 865
inherited TBXToolbar1: TTBXToolbar
@ -237,15 +239,13 @@ inherited fEditorPedidoProveedor: TfEditorPedidoProveedor
object pagInicidencias: TTabSheet
Caption = 'Incidencias'
ImageIndex = 2
ExplicitLeft = 0
ExplicitTop = 0
ExplicitWidth = 0
ExplicitHeight = 0
ExplicitWidth = 865
ExplicitHeight = 500
inline frViewIncidenciasProv: TfrViewIncidencias
Left = 0
Top = 0
Width = 865
Height = 500
Width = 871
Height = 499
Align = alClient
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
@ -258,30 +258,30 @@ inherited fEditorPedidoProveedor: TfEditorPedidoProveedor
ExplicitWidth = 865
ExplicitHeight = 500
inherited pnlSup: TPanel
Width = 865
ExplicitWidth = 865
Width = 871
ExplicitWidth = 871
inherited eIncidenciaActiva: TcxDBCheckBox
ExplicitHeight = 21
end
end
inherited GroupBox1: TGroupBox
Width = 865
Height = 472
ExplicitWidth = 865
ExplicitHeight = 472
Width = 871
Height = 471
ExplicitWidth = 871
ExplicitHeight = 480
inherited eIncidencias: TcxDBMemo
ExplicitWidth = 848
ExplicitHeight = 445
Height = 445
Width = 848
ExplicitWidth = 854
ExplicitHeight = 453
Height = 444
Width = 854
end
end
end
end
end
inherited StatusBar: TJvStatusBar
Top = 659
Width = 879
Top = 667
Width = 885
Panels = <
item
Width = 200
@ -291,9 +291,9 @@ inherited fEditorPedidoProveedor: TfEditorPedidoProveedor
end
inline frViewTotales1: TfrViewTotales [4]
Left = 0
Top = 610
Width = 879
Height = 49
Top = 609
Width = 885
Height = 58
Align = alBottom
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
@ -303,124 +303,124 @@ inherited fEditorPedidoProveedor: TfEditorPedidoProveedor
ParentFont = False
TabOrder = 4
ReadOnly = False
ExplicitTop = 610
ExplicitWidth = 879
ExplicitHeight = 49
ExplicitTop = 609
ExplicitWidth = 885
ExplicitHeight = 58
inherited dxLayoutControl1: TdxLayoutControl
Width = 879
Height = 49
Width = 885
Height = 58
LookAndFeel = dxLayoutOfficeLookAndFeel1
ExplicitWidth = 879
ExplicitHeight = 49
inherited Bevel3: TBevel
Left = 458
Top = 11
Left = 462
Top = 1
Height = 30
ExplicitLeft = 458
ExplicitTop = 11
ExplicitLeft = 462
ExplicitTop = 1
ExplicitHeight = 30
end
inherited Bevel4: TBevel
Left = 570
Top = 53
Left = 574
Top = 43
Width = 21
ExplicitLeft = 570
ExplicitTop = 53
ExplicitLeft = 574
ExplicitTop = 43
ExplicitWidth = 21
end
inherited Bevel1: TBevel
Left = 570
Top = 169
Left = 574
Top = 159
Width = 73
ExplicitLeft = 570
ExplicitTop = 169
ExplicitLeft = 574
ExplicitTop = 159
ExplicitWidth = 73
end
inherited Bevel2: TBevel
Left = 120
Top = 171
Top = 161
Width = 368
ExplicitLeft = 120
ExplicitTop = 171
ExplicitTop = 161
ExplicitWidth = 368
end
inherited ImporteDto: TcxDBCurrencyEdit
Left = 191
Top = 38
Top = 28
Style.LookAndFeel.SkinName = ''
Style.IsFontAssigned = True
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitLeft = 191
ExplicitTop = 38
ExplicitTop = 28
ExplicitWidth = 253
Width = 253
end
inherited ImporteIVA: TcxDBCurrencyEdit
Left = 641
Top = 88
Left = 645
Top = 78
Style.LookAndFeel.SkinName = ''
Style.IsFontAssigned = True
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitLeft = 641
ExplicitTop = 88
ExplicitLeft = 645
ExplicitTop = 78
ExplicitWidth = 252
Width = 252
end
inherited ImporteTotal: TcxDBCurrencyEdit
Left = 571
Top = 142
Left = 575
Top = 132
Style.LookAndFeel.SkinName = ''
Style.IsFontAssigned = True
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitLeft = 571
ExplicitTop = 142
ExplicitLeft = 575
ExplicitTop = 132
ExplicitWidth = 322
Width = 322
end
inherited edtDescuento: TcxDBSpinEdit
Left = 120
Top = 38
Top = 28
Style.LookAndFeel.SkinName = ''
Style.IsFontAssigned = True
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitLeft = 120
ExplicitTop = 38
ExplicitTop = 28
end
inherited edtIVA: TcxDBSpinEdit
Left = 570
Top = 88
Left = 574
Top = 78
Style.LookAndFeel.SkinName = ''
Style.IsFontAssigned = True
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitLeft = 570
ExplicitTop = 88
ExplicitLeft = 574
ExplicitTop = 78
end
inherited ImporteBase: TcxDBCurrencyEdit
Left = 570
Top = 11
Left = 574
Top = 1
Style.LookAndFeel.SkinName = ''
Style.IsFontAssigned = True
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitLeft = 570
ExplicitTop = 11
ExplicitLeft = 574
ExplicitTop = 1
ExplicitWidth = 323
Width = 323
end
inherited edtRE: TcxDBSpinEdit
Left = 570
Top = 115
Left = 574
Top = 105
DataBinding.DataField = ''
DataBinding.DataSource = nil
Style.LookAndFeel.SkinName = ''
@ -428,12 +428,12 @@ inherited fEditorPedidoProveedor: TfEditorPedidoProveedor
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitLeft = 570
ExplicitTop = 115
ExplicitLeft = 574
ExplicitTop = 105
end
inherited ImporteRE: TcxDBCurrencyEdit
Left = 641
Top = 115
Left = 645
Top = 105
DataBinding.DataField = ''
DataBinding.DataSource = nil
Style.LookAndFeel.SkinName = ''
@ -441,27 +441,27 @@ inherited fEditorPedidoProveedor: TfEditorPedidoProveedor
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitLeft = 641
ExplicitTop = 115
ExplicitLeft = 645
ExplicitTop = 105
ExplicitWidth = 252
Width = 252
end
inherited eImporteNeto: TcxDBCurrencyEdit
Left = 120
Top = 11
Top = 1
Style.LookAndFeel.SkinName = ''
Style.IsFontAssigned = True
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitLeft = 120
ExplicitTop = 11
ExplicitTop = 1
ExplicitWidth = 324
Width = 324
end
inherited ePorte: TcxDBCurrencyEdit
Left = 120
Top = 65
Top = 55
Properties.OnValidate = frViewTotales1ePortePropertiesValidate
Style.LookAndFeel.SkinName = ''
Style.IsFontAssigned = True
@ -469,13 +469,13 @@ inherited fEditorPedidoProveedor: TfEditorPedidoProveedor
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitLeft = 120
ExplicitTop = 65
ExplicitTop = 55
ExplicitWidth = 324
Width = 324
end
inherited eIVA: TcxDBLookupComboBox
Left = 120
Top = 92
Top = 82
DataBinding.DataField = ''
DataBinding.DataSource = nil
Style.LookAndFeel.SkinName = ''
@ -483,62 +483,62 @@ inherited fEditorPedidoProveedor: TfEditorPedidoProveedor
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitLeft = 120
ExplicitTop = 92
ExplicitTop = 82
ExplicitWidth = 186
Width = 186
end
inherited bTiposIVA: TButton
Left = 310
Top = 92
ExplicitLeft = 310
ExplicitTop = 92
Left = 314
Top = 82
ExplicitLeft = 314
ExplicitTop = 82
end
inherited cbRecargoEquivalencia: TcxDBCheckBox
Left = 120
Top = 119
Top = 109
DataBinding.DataField = ''
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitLeft = 120
ExplicitTop = 119
ExplicitTop = 109
ExplicitWidth = 324
Width = 324
end
inherited edtRetencion: TcxDBSpinEdit
Left = 570
Top = 189
Left = 574
Top = 179
Style.LookAndFeel.SkinName = ''
Style.IsFontAssigned = True
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitLeft = 570
ExplicitTop = 189
ExplicitLeft = 574
ExplicitTop = 179
end
inherited edtImporteRetencion: TcxDBCurrencyEdit
Left = 641
Top = 189
Left = 645
Top = 179
Style.LookAndFeel.SkinName = ''
Style.IsFontAssigned = True
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitLeft = 641
ExplicitTop = 189
ExplicitLeft = 645
ExplicitTop = 179
ExplicitWidth = 180
Width = 180
end
inherited edtFechaRetencion: TcxDBDateEdit
Left = 120
Top = 191
Top = 181
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitLeft = 120
ExplicitTop = 191
ExplicitTop = 181
ExplicitWidth = 280
Width = 280
end
@ -547,9 +547,6 @@ inherited fEditorPedidoProveedor: TfEditorPedidoProveedor
ShowCaption = False
ShowBorder = False
inherited dxLayoutControl1Group2: TdxLayoutGroup
inherited dxLayoutControl1Item8: TdxLayoutItem
Visible = False
end
inherited dxLayoutControl1Group7: TdxLayoutGroup
inherited dxLayoutControl1Group10: TdxLayoutGroup
Visible = False
@ -567,9 +564,6 @@ inherited fEditorPedidoProveedor: TfEditorPedidoProveedor
end
inherited dxLayoutControl1Group5: TdxLayoutGroup
inherited dxLayoutControl1Group3: TdxLayoutGroup
inherited dxLayoutControl1Item12: TdxLayoutItem
Visible = False
end
inherited dxLayoutControl1Item14: TdxLayoutItem
Visible = False
end
@ -579,6 +573,9 @@ inherited fEditorPedidoProveedor: TfEditorPedidoProveedor
inherited dxLayoutControl1Group8: TdxLayoutGroup
Visible = False
end
inherited dxLayoutControl1Item3: TdxLayoutItem
Visible = False
end
inherited dxLayoutControl1Item10: TdxLayoutItem
Visible = False
end

12
Source/Modulos/Pedidos a proveedor/Views/uViewPedidosProveedor.dfm
View File

@ -18,7 +18,7 @@ inherited frViewPedidosProveedor: TfrViewPedidosProveedor
Format = ',0.00 '#8364';-,0.00 '#8364
Kind = skSum
Position = spFooter
Column = cxGridViewIMPORTE_TOTAL
Column = cxGridViewBASE_IMPONIBLE
end>
DataController.Summary.FooterSummaryItems = <
item
@ -29,7 +29,7 @@ inherited frViewPedidosProveedor: TfrViewPedidosProveedor
item
Format = ',0.00 '#8364';-,0.00 '#8364
Kind = skSum
Column = cxGridViewIMPORTE_TOTAL
Column = cxGridViewBASE_IMPONIBLE
end>
DataController.OnCompare = cxGridViewDataControllerCompare
OptionsView.GroupFooters = gfAlwaysVisible
@ -162,9 +162,9 @@ inherited frViewPedidosProveedor: TfrViewPedidosProveedor
Caption = 'Ref. Cliente'
DataBinding.FieldName = 'REFERENCIA_CLIENTE'
end
object cxGridViewIMPORTE_TOTAL: TcxGridDBColumn
Caption = 'Importe total'
DataBinding.FieldName = 'IMPORTE_TOTAL'
object cxGridViewBASE_IMPONIBLE: TcxGridDBColumn
Caption = 'Base Imponible'
DataBinding.FieldName = 'BASE_IMPONIBLE'
PropertiesClassName = 'TcxCurrencyEditProperties'
Properties.Alignment.Horz = taRightJustify
FooterAlignmentHorz = taRightJustify
@ -244,6 +244,8 @@ inherited frViewPedidosProveedor: TfrViewPedidosProveedor
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitLeft = 673
ExplicitWidth = 215
Width = 215
end
end
inherited TBXAlignmentPanel1: TTBXAlignmentPanel

23
Source/Modulos/Pedidos a proveedor/Views/uViewPedidosProveedor.pas
View File

@ -46,7 +46,7 @@ type
cxStylePendientes: TcxStyle;
cxStyleParciales: TcxStyle;
cxStyleRecibidos: TcxStyle;
cxGridViewIMPORTE_TOTAL: TcxGridDBColumn;
cxGridViewBASE_IMPONIBLE: TcxGridDBColumn;
actProveedor: TAction;
actAlmacen: TAction;
TBXItem2: TTBXItem;
@ -277,15 +277,20 @@ begin
inherited;
if Assigned(ARecord) then
begin
IndiceCol := (Sender as TcxGridDBTableView).GetColumnByFieldName(fld_PedidosProveedorSITUACION).Index;
ASituacion := UPPERCASE(VarToStr(ARecord.DisplayTexts[IndiceCol]));
//ESTILO SITUACIONES
if Assigned((Sender as TcxGridDBTableView).GetColumnByFieldName(fld_PedidosProveedorSITUACION)) then
begin
IndiceCol := (Sender as TcxGridDBTableView).GetColumnByFieldName(fld_PedidosProveedorSITUACION).Index;
if (ASituacion = SITUACION_PEDIDO_PENDIENTE) then
AStyle.TextColor := cxStylePendientes.TextColor
else if (ASituacion = SITUACION_PEDIDO_PARCIAL) then
AStyle.TextColor := cxStyleParciales.TextColor
else if (ASituacion = SITUACION_PEDIDO_RECIBIDO) then
AStyle.TextColor := cxStyleRecibidos.TextColor;
ASituacion := UPPERCASE(VarToStr(ARecord.DisplayTexts[IndiceCol]));
if (ASituacion = SITUACION_PEDIDO_PENDIENTE) then
AStyle := cxStylePendientes
else if (ASituacion = SITUACION_PEDIDO_PARCIAL) then
AStyle := cxStyleParciales
else if (ASituacion = SITUACION_PEDIDO_RECIBIDO) then
AStyle := cxStyleRecibidos;
end;
end;
end;

4
Source/Modulos/Pedidos de cliente/Data/PedidosCliente_data.dproj
View File

@ -49,8 +49,8 @@
<DelphiCompile Include="PedidosCliente_data.dpk">
<MainSource>MainSource</MainSource>
</DelphiCompile>
<DCCReference Include="..\..\Lib\Base.dcp" />
<DCCReference Include="..\..\Lib\PedidosCliente_model.dcp" />
<DCCReference Include="..\..\Facturas de cliente\Model\Base.dcp" />
<DCCReference Include="..\..\Facturas de cliente\Model\PedidosCliente_model.dcp" />
<DCCReference Include="uDataModulePedidosCliente.pas">
<Form>DataModulePedidosCliente</Form>
</DCCReference>

5
Source/Modulos/Pedidos de cliente/Data/uDataModulePedidosCliente.dfm
View File

@ -358,6 +358,11 @@ inherited DataModulePedidosCliente: TDataModulePedidosCliente
Name = 'AGENTE'
DataType = datString
Size = 255
end
item
Name = 'NOMBRE_COMERCIAL'
DataType = datString
Size = 255
end>
Params = <>
StreamingOptions = [soDisableEventsWhileStreaming]

63
Source/Modulos/Pedidos de cliente/Model/schPedidosClienteClient_Intf.pas
View File

@ -9,13 +9,13 @@ const
{ Data table rules ids
Feel free to change them to something more human readable
but make sure they are unique in the context of your application }
RID_ListaAnosPedidos = '{1F0D1CEA-72FF-45DF-9F29-B717FF5CE397}';
RID_PedidosProveedor = '{02DD8FC4-99BB-4B51-B89E-68253F4083B7}';
RID_PedidosCliente = '{86DA25A6-F592-4109-A0EC-AC01227830F7}';
RID_PedidosCliente_Detalles = '{C6F42BD9-08CD-46C4-A131-B65D54B2F57C}';
RID_PedidosCliente_Articulos_Pendientes = '{3CE21E24-8BD5-466E-9C75-A614D7520177}';
RID_PedidoCliente_ArticulosPendientesPedirAProv = '{5E9768A3-7561-45F9-BE05-7AD4F8C62367}';
RID_PedidoCliente_ArticulosPendientesPedirAProvNoArticulos = '{41259178-2A0A-428F-9413-F0F4DFDA2FE7}';
RID_ListaAnosPedidos = '{3F58FA10-3D74-4ED7-B6A1-FBCBE1A48F09}';
RID_PedidosProveedor = '{D548BA5A-2E8B-45DC-854D-BC20BC047395}';
RID_PedidosCliente = '{ACD76F7C-6014-4FCE-923B-099D03FDDE4F}';
RID_PedidosCliente_Detalles = '{91D0F594-B6DE-4C42-9094-AF1A8118F035}';
RID_PedidosCliente_Articulos_Pendientes = '{B278735F-651F-4523-AA58-10CDF013B32B}';
RID_PedidoCliente_ArticulosPendientesPedirAProv = '{58E57F41-F45A-4A06-AE6E-6DB0674C5A0D}';
RID_PedidoCliente_ArticulosPendientesPedirAProvNoArticulos = '{FA1D7A91-B856-46D0-84D2-8D2C6A9CBFBC}';
{ Data table names }
nme_ListaAnosPedidos = 'ListaAnosPedidos';
@ -84,6 +84,7 @@ const
fld_PedidosClienteREFERENCIA_FACTURA_PROFORMA = 'REFERENCIA_FACTURA_PROFORMA';
fld_PedidosClienteID_AGENTE = 'ID_AGENTE';
fld_PedidosClienteAGENTE = 'AGENTE';
fld_PedidosClienteNOMBRE_COMERCIAL = 'NOMBRE_COMERCIAL';
{ PedidosCliente field indexes }
idx_PedidosClienteID = 0;
@ -125,6 +126,7 @@ const
idx_PedidosClienteREFERENCIA_FACTURA_PROFORMA = 36;
idx_PedidosClienteID_AGENTE = 37;
idx_PedidosClienteAGENTE = 38;
idx_PedidosClienteNOMBRE_COMERCIAL = 39;
{ PedidosCliente_Detalles fields }
fld_PedidosCliente_DetallesID = 'ID';
@ -225,7 +227,7 @@ const
type
{ IListaAnosPedidos }
IListaAnosPedidos = interface(IDAStronglyTypedDataTable)
['{177EEA18-7C34-4A84-A140-DBF289C2117A}']
['{093AFBE6-AA0A-47A7-8C99-B05F511450D3}']
{ Property getters and setters }
function GetANOValue: String;
procedure SetANOValue(const aValue: String);
@ -260,7 +262,7 @@ type
{ IPedidosProveedor }
IPedidosProveedor = interface(IDAStronglyTypedDataTable)
['{AEE1E4F3-43E6-4860-8B0D-0BA958ECECAD}']
['{AF5205C8-4E28-4BFB-B62D-BC11657109C0}']
{ Property getters and setters }
function GetIDValue: Integer;
procedure SetIDValue(const aValue: Integer);
@ -331,7 +333,7 @@ type
{ IPedidosCliente }
IPedidosCliente = interface(IDAStronglyTypedDataTable)
['{DF1ECC19-1402-4CD6-97F9-CE8B308AADA6}']
['{ADE23B1B-9DA8-4C25-BBA3-0AD0FFC136FB}']
{ Property getters and setters }
function GetIDValue: Integer;
procedure SetIDValue(const aValue: Integer);
@ -487,6 +489,10 @@ type
procedure SetAGENTEValue(const aValue: String);
function GetAGENTEIsNull: Boolean;
procedure SetAGENTEIsNull(const aValue: Boolean);
function GetNOMBRE_COMERCIALValue: String;
procedure SetNOMBRE_COMERCIALValue(const aValue: String);
function GetNOMBRE_COMERCIALIsNull: Boolean;
procedure SetNOMBRE_COMERCIALIsNull(const aValue: Boolean);
{ Properties }
@ -568,6 +574,8 @@ type
property ID_AGENTEIsNull: Boolean read GetID_AGENTEIsNull write SetID_AGENTEIsNull;
property AGENTE: String read GetAGENTEValue write SetAGENTEValue;
property AGENTEIsNull: Boolean read GetAGENTEIsNull write SetAGENTEIsNull;
property NOMBRE_COMERCIAL: String read GetNOMBRE_COMERCIALValue write SetNOMBRE_COMERCIALValue;
property NOMBRE_COMERCIALIsNull: Boolean read GetNOMBRE_COMERCIALIsNull write SetNOMBRE_COMERCIALIsNull;
end;
{ TPedidosClienteDataTableRules }
@ -733,6 +741,10 @@ type
procedure SetAGENTEValue(const aValue: String); virtual;
function GetAGENTEIsNull: Boolean; virtual;
procedure SetAGENTEIsNull(const aValue: Boolean); virtual;
function GetNOMBRE_COMERCIALValue: String; virtual;
procedure SetNOMBRE_COMERCIALValue(const aValue: String); virtual;
function GetNOMBRE_COMERCIALIsNull: Boolean; virtual;
procedure SetNOMBRE_COMERCIALIsNull(const aValue: Boolean); virtual;
{ Properties }
property ID: Integer read GetIDValue write SetIDValue;
@ -813,6 +825,8 @@ type
property ID_AGENTEIsNull: Boolean read GetID_AGENTEIsNull write SetID_AGENTEIsNull;
property AGENTE: String read GetAGENTEValue write SetAGENTEValue;
property AGENTEIsNull: Boolean read GetAGENTEIsNull write SetAGENTEIsNull;
property NOMBRE_COMERCIAL: String read GetNOMBRE_COMERCIALValue write SetNOMBRE_COMERCIALValue;
property NOMBRE_COMERCIALIsNull: Boolean read GetNOMBRE_COMERCIALIsNull write SetNOMBRE_COMERCIALIsNull;
public
constructor Create(aDataTable: TDADataTable); override;
@ -822,7 +836,7 @@ type
{ IPedidosCliente_Detalles }
IPedidosCliente_Detalles = interface(IDAStronglyTypedDataTable)
['{6C0A0A95-C28F-4BEB-8D19-028D81B5E95C}']
['{DDEF5A65-A8C4-436E-A4DD-6E202D1AF4FF}']
{ Property getters and setters }
function GetIDValue: Integer;
procedure SetIDValue(const aValue: Integer);
@ -1013,7 +1027,7 @@ type
{ IPedidosCliente_Articulos_Pendientes }
IPedidosCliente_Articulos_Pendientes = interface(IDAStronglyTypedDataTable)
['{9F5240B2-878F-47ED-B6EB-1925918DD1F4}']
['{884573B7-04F2-4EE8-8F69-209321E6893D}']
{ Property getters and setters }
function GetID_ARTICULOValue: Integer;
procedure SetID_ARTICULOValue(const aValue: Integer);
@ -1084,7 +1098,7 @@ type
{ IPedidoCliente_ArticulosPendientesPedirAProv }
IPedidoCliente_ArticulosPendientesPedirAProv = interface(IDAStronglyTypedDataTable)
['{46D2A767-B41C-47B3-8678-EF4582DBA702}']
['{0DEEC0CD-48D0-452C-B857-03DC10C9F82A}']
{ Property getters and setters }
function GetID_PEDIDOValue: Integer;
procedure SetID_PEDIDOValue(const aValue: Integer);
@ -1239,7 +1253,7 @@ type
{ IPedidoCliente_ArticulosPendientesPedirAProvNoArticulos }
IPedidoCliente_ArticulosPendientesPedirAProvNoArticulos = interface(IDAStronglyTypedDataTable)
['{3E96988B-0D3B-44FC-9C12-AB89B024A7A3}']
['{A9B5F8AC-5E1F-410F-8DF3-CD84B01ECC81}']
{ Property getters and setters }
function GetID_PEDIDOValue: Integer;
procedure SetID_PEDIDOValue(const aValue: Integer);
@ -2367,6 +2381,27 @@ begin
DataTable.Fields[idx_PedidosClienteAGENTE].AsVariant := Null;
end;
function TPedidosClienteDataTableRules.GetNOMBRE_COMERCIALValue: String;
begin
result := DataTable.Fields[idx_PedidosClienteNOMBRE_COMERCIAL].AsString;
end;
procedure TPedidosClienteDataTableRules.SetNOMBRE_COMERCIALValue(const aValue: String);
begin
DataTable.Fields[idx_PedidosClienteNOMBRE_COMERCIAL].AsString := aValue;
end;
function TPedidosClienteDataTableRules.GetNOMBRE_COMERCIALIsNull: boolean;
begin
result := DataTable.Fields[idx_PedidosClienteNOMBRE_COMERCIAL].IsNull;
end;
procedure TPedidosClienteDataTableRules.SetNOMBRE_COMERCIALIsNull(const aValue: Boolean);
begin
if aValue then
DataTable.Fields[idx_PedidosClienteNOMBRE_COMERCIAL].AsVariant := Null;
end;
{ TPedidosCliente_DetallesDataTableRules }
constructor TPedidosCliente_DetallesDataTableRules.Create(aDataTable: TDADataTable);

71
Source/Modulos/Pedidos de cliente/Model/schPedidosClienteServer_Intf.pas
View File

@ -9,18 +9,18 @@ const
{ Delta rules ids
Feel free to change them to something more human readable
but make sure they are unique in the context of your application }
RID_ListaAnosPedidosDelta = '{9D5054B0-9042-4E8B-9A21-934C56BB7DE9}';
RID_PedidosProveedorDelta = '{EC16A954-9598-4583-AEE4-6C7E97EA7EB1}';
RID_PedidosClienteDelta = '{70F56B09-DB20-4AA9-A6B0-80E526A3FE87}';
RID_PedidosCliente_DetallesDelta = '{DA4E3B5A-4E9B-4C9A-BD97-BEDA56DA2DC3}';
RID_PedidosCliente_Articulos_PendientesDelta = '{EF9B7694-BF6A-4027-BA88-A4B4FBAEF511}';
RID_PedidoCliente_ArticulosPendientesPedirAProvDelta = '{52337014-8D82-4655-ACD4-ED5D9D795653}';
RID_PedidoCliente_ArticulosPendientesPedirAProvNoArticulosDelta = '{D8ED7E2F-6543-4240-8533-68681E2B0DFA}';
RID_ListaAnosPedidosDelta = '{74C73211-F355-4116-8822-1F8FC13F189F}';
RID_PedidosProveedorDelta = '{32E7A190-9EFA-49CA-9328-CA79C6376AFD}';
RID_PedidosClienteDelta = '{362066F1-7AF9-425E-B376-9A0B357D4281}';
RID_PedidosCliente_DetallesDelta = '{3A9EBA41-20D2-4610-8FB3-2DCE896D00D6}';
RID_PedidosCliente_Articulos_PendientesDelta = '{BBEB5B53-6BA9-4974-B487-1D7EDBC7EF1A}';
RID_PedidoCliente_ArticulosPendientesPedirAProvDelta = '{BF045EBA-51AD-4407-A060-E4801D3934C7}';
RID_PedidoCliente_ArticulosPendientesPedirAProvNoArticulosDelta = '{19708293-8478-4CD5-AECE-419EDB57E0E5}';
type
{ IListaAnosPedidosDelta }
IListaAnosPedidosDelta = interface(IListaAnosPedidos)
['{9D5054B0-9042-4E8B-9A21-934C56BB7DE9}']
['{74C73211-F355-4116-8822-1F8FC13F189F}']
{ Property getters and setters }
function GetOldANOValue : String;
@ -54,7 +54,7 @@ type
{ IPedidosProveedorDelta }
IPedidosProveedorDelta = interface(IPedidosProveedor)
['{EC16A954-9598-4583-AEE4-6C7E97EA7EB1}']
['{32E7A190-9EFA-49CA-9328-CA79C6376AFD}']
{ Property getters and setters }
function GetOldIDValue : Integer;
function GetOldREFERENCIAValue : String;
@ -124,7 +124,7 @@ type
{ IPedidosClienteDelta }
IPedidosClienteDelta = interface(IPedidosCliente)
['{70F56B09-DB20-4AA9-A6B0-80E526A3FE87}']
['{362066F1-7AF9-425E-B376-9A0B357D4281}']
{ Property getters and setters }
function GetOldIDValue : Integer;
function GetOldID_EMPRESAValue : Integer;
@ -165,6 +165,7 @@ type
function GetOldREFERENCIA_FACTURA_PROFORMAValue : String;
function GetOldID_AGENTEValue : Integer;
function GetOldAGENTEValue : String;
function GetOldNOMBRE_COMERCIALValue : String;
{ Properties }
property OldID : Integer read GetOldIDValue;
@ -206,6 +207,7 @@ type
property OldREFERENCIA_FACTURA_PROFORMA : String read GetOldREFERENCIA_FACTURA_PROFORMAValue;
property OldID_AGENTE : Integer read GetOldID_AGENTEValue;
property OldAGENTE : String read GetOldAGENTEValue;
property OldNOMBRE_COMERCIAL : String read GetOldNOMBRE_COMERCIALValue;
end;
{ TPedidosClienteBusinessProcessorRules }
@ -449,6 +451,12 @@ type
function GetOldAGENTEIsNull: Boolean; virtual;
procedure SetAGENTEValue(const aValue: String); virtual;
procedure SetAGENTEIsNull(const aValue: Boolean); virtual;
function GetNOMBRE_COMERCIALValue: String; virtual;
function GetNOMBRE_COMERCIALIsNull: Boolean; virtual;
function GetOldNOMBRE_COMERCIALValue: String; virtual;
function GetOldNOMBRE_COMERCIALIsNull: Boolean; virtual;
procedure SetNOMBRE_COMERCIALValue(const aValue: String); virtual;
procedure SetNOMBRE_COMERCIALIsNull(const aValue: Boolean); virtual;
{ Properties }
property ID : Integer read GetIDValue write SetIDValue;
@ -607,6 +615,10 @@ type
property AGENTEIsNull : Boolean read GetAGENTEIsNull write SetAGENTEIsNull;
property OldAGENTE : String read GetOldAGENTEValue;
property OldAGENTEIsNull : Boolean read GetOldAGENTEIsNull;
property NOMBRE_COMERCIAL : String read GetNOMBRE_COMERCIALValue write SetNOMBRE_COMERCIALValue;
property NOMBRE_COMERCIALIsNull : Boolean read GetNOMBRE_COMERCIALIsNull write SetNOMBRE_COMERCIALIsNull;
property OldNOMBRE_COMERCIAL : String read GetOldNOMBRE_COMERCIALValue;
property OldNOMBRE_COMERCIALIsNull : Boolean read GetOldNOMBRE_COMERCIALIsNull;
public
constructor Create(aBusinessProcessor: TDABusinessProcessor); override;
@ -616,7 +628,7 @@ type
{ IPedidosCliente_DetallesDelta }
IPedidosCliente_DetallesDelta = interface(IPedidosCliente_Detalles)
['{DA4E3B5A-4E9B-4C9A-BD97-BEDA56DA2DC3}']
['{3A9EBA41-20D2-4610-8FB3-2DCE896D00D6}']
{ Property getters and setters }
function GetOldIDValue : Integer;
function GetOldID_PEDIDOValue : Integer;
@ -806,7 +818,7 @@ type
{ IPedidosCliente_Articulos_PendientesDelta }
IPedidosCliente_Articulos_PendientesDelta = interface(IPedidosCliente_Articulos_Pendientes)
['{EF9B7694-BF6A-4027-BA88-A4B4FBAEF511}']
['{BBEB5B53-6BA9-4974-B487-1D7EDBC7EF1A}']
{ Property getters and setters }
function GetOldID_ARTICULOValue : Integer;
function GetOldCANTIDAD_PEDValue : Currency;
@ -876,7 +888,7 @@ type
{ IPedidoCliente_ArticulosPendientesPedirAProvDelta }
IPedidoCliente_ArticulosPendientesPedirAProvDelta = interface(IPedidoCliente_ArticulosPendientesPedirAProv)
['{52337014-8D82-4655-ACD4-ED5D9D795653}']
['{BF045EBA-51AD-4407-A060-E4801D3934C7}']
{ Property getters and setters }
function GetOldID_PEDIDOValue : Integer;
function GetOldPOSICIONValue : Integer;
@ -1030,7 +1042,7 @@ type
{ IPedidoCliente_ArticulosPendientesPedirAProvNoArticulosDelta }
IPedidoCliente_ArticulosPendientesPedirAProvNoArticulosDelta = interface(IPedidoCliente_ArticulosPendientesPedirAProvNoArticulos)
['{D8ED7E2F-6543-4240-8533-68681E2B0DFA}']
['{19708293-8478-4CD5-AECE-419EDB57E0E5}']
{ Property getters and setters }
function GetOldID_PEDIDOValue : Integer;
function GetOldPOSICIONValue : Integer;
@ -2600,6 +2612,37 @@ begin
BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosClienteAGENTE] := Null;
end;
function TPedidosClienteBusinessProcessorRules.GetNOMBRE_COMERCIALValue: String;
begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosClienteNOMBRE_COMERCIAL];
end;
function TPedidosClienteBusinessProcessorRules.GetNOMBRE_COMERCIALIsNull: Boolean;
begin
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosClienteNOMBRE_COMERCIAL]);
end;
function TPedidosClienteBusinessProcessorRules.GetOldNOMBRE_COMERCIALValue: String;
begin
result := BusinessProcessor.CurrentChange.OldValueByName[fld_PedidosClienteNOMBRE_COMERCIAL];
end;
function TPedidosClienteBusinessProcessorRules.GetOldNOMBRE_COMERCIALIsNull: Boolean;
begin
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_PedidosClienteNOMBRE_COMERCIAL]);
end;
procedure TPedidosClienteBusinessProcessorRules.SetNOMBRE_COMERCIALValue(const aValue: String);
begin
BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosClienteNOMBRE_COMERCIAL] := aValue;
end;
procedure TPedidosClienteBusinessProcessorRules.SetNOMBRE_COMERCIALIsNull(const aValue: Boolean);
begin
if aValue then
BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosClienteNOMBRE_COMERCIAL] := Null;
end;
{ TPedidosCliente_DetallesBusinessProcessorRules }
constructor TPedidosCliente_DetallesBusinessProcessorRules.Create(aBusinessProcessor: TDABusinessProcessor);

16
Source/Modulos/Pedidos de cliente/PedidosCliente_Group.groupproj
View File

@ -10,6 +10,7 @@
<Projects Include="..\..\GUIBase\GUIBase.dproj" />
<Projects Include="..\..\Servidor\FactuGES_Server.dproj" />
<Projects Include="..\Albaranes de cliente\Data\AlbaranesCliente_data.dproj" />
<Projects Include="..\Albaranes de cliente\Views\AlbaranesCliente_view.dproj" />
<Projects Include="..\Albaranes de proveedor\Controller\AlbaranesProveedor_controller.dproj" />
<Projects Include="..\Albaranes de proveedor\Data\AlbaranesProveedor_data.dproj" />
<Projects Include="..\Albaranes de proveedor\Views\AlbaranesProveedor_view.dproj" />
@ -431,14 +432,23 @@
<Target Name="PresupuestosCliente_view:Make">
<MSBuild Projects="..\Presupuestos de cliente\Views\PresupuestosCliente_view.dproj" Targets="Make" />
</Target>
<Target Name="AlbaranesCliente_view">
<MSBuild Projects="..\Albaranes de cliente\Views\AlbaranesCliente_view.dproj" Targets="" />
</Target>
<Target Name="AlbaranesCliente_view:Clean">
<MSBuild Projects="..\Albaranes de cliente\Views\AlbaranesCliente_view.dproj" Targets="Clean" />
</Target>
<Target Name="AlbaranesCliente_view:Make">
<MSBuild Projects="..\Albaranes de cliente\Views\AlbaranesCliente_view.dproj" Targets="Make" />
</Target>
<Target Name="Build">
<CallTarget Targets="Base;ApplicationBase;GUIBase;Contactos_model;Contactos_data;Contactos_controller;Contactos_view;Articulos_model;Articulos_data;Articulos_controller;Articulos_view;PedidosCliente_model;PedidosCliente_data;PedidosCliente_controller;AlbaranesProveedor_controller;Inventario_controller;PedProv_AlbProv_relation;PedCli_AlbCli_relation;PedCli_PedProv_relation;PedCli_FacProforma_relation;PreCli_PedCli_relation;FacturasProveedor_controller;PedidosCliente_view;PedidosCliente_plugin;AlbaranesProveedor_data;AlbaranesCliente_data;FactuGES;FactuGES_Server;Inventario_data;Inventario_view;AlbaranesProveedor_view;FacturasCliente_view;PedidosProveedor_model;PedidosProveedor_data;PedidosProveedor_controller;PedidosProveedor_plugin;ProcesoPresupuestosCliente_controller;ProcesoPresupuestosCliente_view;ProcesoPresupuestosCliente_plugin;FacturasProforma_data;PresupuestosCliente_controller;PresupuestosCliente_view" />
<CallTarget Targets="Base;ApplicationBase;GUIBase;Contactos_model;Contactos_data;Contactos_controller;Contactos_view;Articulos_model;Articulos_data;Articulos_controller;Articulos_view;PedidosCliente_model;PedidosCliente_data;PedidosCliente_controller;AlbaranesProveedor_controller;Inventario_controller;PedProv_AlbProv_relation;PedCli_AlbCli_relation;PedCli_PedProv_relation;PedCli_FacProforma_relation;PreCli_PedCli_relation;FacturasProveedor_controller;PedidosCliente_view;PedidosCliente_plugin;AlbaranesProveedor_data;AlbaranesCliente_data;FactuGES;FactuGES_Server;Inventario_data;Inventario_view;AlbaranesProveedor_view;FacturasCliente_view;PedidosProveedor_model;PedidosProveedor_data;PedidosProveedor_controller;PedidosProveedor_plugin;ProcesoPresupuestosCliente_controller;ProcesoPresupuestosCliente_view;ProcesoPresupuestosCliente_plugin;FacturasProforma_data;PresupuestosCliente_controller;PresupuestosCliente_view;AlbaranesCliente_view" />
</Target>
<Target Name="Clean">
<CallTarget Targets="Base:Clean;ApplicationBase:Clean;GUIBase:Clean;Contactos_model:Clean;Contactos_data:Clean;Contactos_controller:Clean;Contactos_view:Clean;Articulos_model:Clean;Articulos_data:Clean;Articulos_controller:Clean;Articulos_view:Clean;PedidosCliente_model:Clean;PedidosCliente_data:Clean;PedidosCliente_controller:Clean;AlbaranesProveedor_controller:Clean;Inventario_controller:Clean;PedProv_AlbProv_relation:Clean;PedCli_AlbCli_relation:Clean;PedCli_PedProv_relation:Clean;PedCli_FacProforma_relation:Clean;PreCli_PedCli_relation:Clean;FacturasProveedor_controller:Clean;PedidosCliente_view:Clean;PedidosCliente_plugin:Clean;AlbaranesProveedor_data:Clean;AlbaranesCliente_data:Clean;FactuGES:Clean;FactuGES_Server:Clean;Inventario_data:Clean;Inventario_view:Clean;AlbaranesProveedor_view:Clean;FacturasCliente_view:Clean;PedidosProveedor_model:Clean;PedidosProveedor_data:Clean;PedidosProveedor_controller:Clean;PedidosProveedor_plugin:Clean;ProcesoPresupuestosCliente_controller:Clean;ProcesoPresupuestosCliente_view:Clean;ProcesoPresupuestosCliente_plugin:Clean;FacturasProforma_data:Clean;PresupuestosCliente_controller:Clean;PresupuestosCliente_view:Clean" />
<CallTarget Targets="Base:Clean;ApplicationBase:Clean;GUIBase:Clean;Contactos_model:Clean;Contactos_data:Clean;Contactos_controller:Clean;Contactos_view:Clean;Articulos_model:Clean;Articulos_data:Clean;Articulos_controller:Clean;Articulos_view:Clean;PedidosCliente_model:Clean;PedidosCliente_data:Clean;PedidosCliente_controller:Clean;AlbaranesProveedor_controller:Clean;Inventario_controller:Clean;PedProv_AlbProv_relation:Clean;PedCli_AlbCli_relation:Clean;PedCli_PedProv_relation:Clean;PedCli_FacProforma_relation:Clean;PreCli_PedCli_relation:Clean;FacturasProveedor_controller:Clean;PedidosCliente_view:Clean;PedidosCliente_plugin:Clean;AlbaranesProveedor_data:Clean;AlbaranesCliente_data:Clean;FactuGES:Clean;FactuGES_Server:Clean;Inventario_data:Clean;Inventario_view:Clean;AlbaranesProveedor_view:Clean;FacturasCliente_view:Clean;PedidosProveedor_model:Clean;PedidosProveedor_data:Clean;PedidosProveedor_controller:Clean;PedidosProveedor_plugin:Clean;ProcesoPresupuestosCliente_controller:Clean;ProcesoPresupuestosCliente_view:Clean;ProcesoPresupuestosCliente_plugin:Clean;FacturasProforma_data:Clean;PresupuestosCliente_controller:Clean;PresupuestosCliente_view:Clean;AlbaranesCliente_view:Clean" />
</Target>
<Target Name="Make">
<CallTarget Targets="Base:Make;ApplicationBase:Make;GUIBase:Make;Contactos_model:Make;Contactos_data:Make;Contactos_controller:Make;Contactos_view:Make;Articulos_model:Make;Articulos_data:Make;Articulos_controller:Make;Articulos_view:Make;PedidosCliente_model:Make;PedidosCliente_data:Make;PedidosCliente_controller:Make;AlbaranesProveedor_controller:Make;Inventario_controller:Make;PedProv_AlbProv_relation:Make;PedCli_AlbCli_relation:Make;PedCli_PedProv_relation:Make;PedCli_FacProforma_relation:Make;PreCli_PedCli_relation:Make;FacturasProveedor_controller:Make;PedidosCliente_view:Make;PedidosCliente_plugin:Make;AlbaranesProveedor_data:Make;AlbaranesCliente_data:Make;FactuGES:Make;FactuGES_Server:Make;Inventario_data:Make;Inventario_view:Make;AlbaranesProveedor_view:Make;FacturasCliente_view:Make;PedidosProveedor_model:Make;PedidosProveedor_data:Make;PedidosProveedor_controller:Make;PedidosProveedor_plugin:Make;ProcesoPresupuestosCliente_controller:Make;ProcesoPresupuestosCliente_view:Make;ProcesoPresupuestosCliente_plugin:Make;FacturasProforma_data:Make;PresupuestosCliente_controller:Make;PresupuestosCliente_view:Make" />
<CallTarget Targets="Base:Make;ApplicationBase:Make;GUIBase:Make;Contactos_model:Make;Contactos_data:Make;Contactos_controller:Make;Contactos_view:Make;Articulos_model:Make;Articulos_data:Make;Articulos_controller:Make;Articulos_view:Make;PedidosCliente_model:Make;PedidosCliente_data:Make;PedidosCliente_controller:Make;AlbaranesProveedor_controller:Make;Inventario_controller:Make;PedProv_AlbProv_relation:Make;PedCli_AlbCli_relation:Make;PedCli_PedProv_relation:Make;PedCli_FacProforma_relation:Make;PreCli_PedCli_relation:Make;FacturasProveedor_controller:Make;PedidosCliente_view:Make;PedidosCliente_plugin:Make;AlbaranesProveedor_data:Make;AlbaranesCliente_data:Make;FactuGES:Make;FactuGES_Server:Make;Inventario_data:Make;Inventario_view:Make;AlbaranesProveedor_view:Make;FacturasCliente_view:Make;PedidosProveedor_model:Make;PedidosProveedor_data:Make;PedidosProveedor_controller:Make;PedidosProveedor_plugin:Make;ProcesoPresupuestosCliente_controller:Make;ProcesoPresupuestosCliente_view:Make;ProcesoPresupuestosCliente_plugin:Make;FacturasProforma_data:Make;PresupuestosCliente_controller:Make;PresupuestosCliente_view:Make;AlbaranesCliente_view:Make" />
</Target>
<Import Condition="Exists('$(MSBuildBinPath)\Borland.Group.Targets')" Project="$(MSBuildBinPath)\Borland.Group.Targets" />
</Project>

77
Source/Modulos/Pedidos de cliente/Reports/uRptPedidosCliente_Server.dfm
View File

@ -502,14 +502,14 @@ object RptPedidosCliente: TRptPedidosCliente
SQL =
'SELECT DET.ID, DET.ID_PEDIDO,'#10' DET.POSICION, DET.TIPO_DETA' +
'LLE,'#10' ARTICULOS.REFERENCIA, F_RTFTOTEXT(DET.CONCEPTO) as C' +
'ONCEPTO, DET.CANTIDAD,'#10' DET.IMPORTE_UNIDAD - (DET.IMPORTE_' +
'UNIDAD * (COALESCE(DET.DESCUENTO,0) / 100)) as IMPORTE_UNIDAD, D' +
'ET.IMPORTE_TOTAL,'#10' ARTICULOS.REFERENCIA_PROV as REFERENCIA' +
'_PROVEEDOR'#10'FROM PEDIDOS_CLIENTE_DETALLES DET'#10'LEFT OUTER JOIN ART' +
'ICULOS ON (DET.ID_ARTICULO = ARTICULOS.ID)'#10'LEFT JOIN PEDIDOS_CLI' +
'ENTE ON (PEDIDOS_CLIENTE.ID = DET.ID_PEDIDO)'#10#10'WHERE DET.ID_PEDID' +
'O = :ID_PEDIDO AND DET.VISIBLE = 1 AND {Where}'#10'ORDER BY DET.ID_P' +
'EDIDO, DET.POSICION;'#10#10#10#10#10
'ONCEPTO, DET.CANTIDAD, DET.IMPORTE_UNIDAD, DET.DESCUENTO,'#10' ' +
' DET.IMPORTE_UNIDAD - (DET.IMPORTE_UNIDAD * (COALESCE(DET.DESCUE' +
'NTO,0) / 100)) as IMPORTE_NETO, DET.IMPORTE_TOTAL,'#10' ARTICU' +
'LOS.REFERENCIA_PROV as REFERENCIA_PROVEEDOR'#10'FROM PEDIDOS_CLIENTE' +
'_DETALLES DET'#10'LEFT OUTER JOIN ARTICULOS ON (DET.ID_ARTICULO = AR' +
'TICULOS.ID)'#10'LEFT JOIN PEDIDOS_CLIENTE ON (PEDIDOS_CLIENTE.ID = D' +
'ET.ID_PEDIDO)'#10#10'WHERE DET.ID_PEDIDO = :ID_PEDIDO AND DET.VISIBLE ' +
'= 1 AND {Where}'#10'ORDER BY DET.ID_PEDIDO, DET.POSICION;'#10#10#10#10#10#10#10
StatementType = stSQL
ColumnMappings = <
item
@ -551,6 +551,14 @@ object RptPedidosCliente: TRptPedidosCliente
item
DatasetField = 'CONCEPTO'
TableField = 'CONCEPTO'
end
item
DatasetField = 'DESCUENTO'
TableField = 'DESCUENTO'
end
item
DatasetField = 'IMPORTE_NETO'
TableField = 'IMPORTE_NETO'
end>
end>
Name = 'Informe_Detalles'
@ -588,6 +596,14 @@ object RptPedidosCliente: TRptPedidosCliente
end
item
Name = 'IMPORTE_UNIDAD'
DataType = datCurrency
end
item
Name = 'DESCUENTO'
DataType = datFloat
end
item
Name = 'IMPORTE_NETO'
DataType = datFloat
end
item
@ -704,7 +720,7 @@ object RptPedidosCliente: TRptPedidosCliente
PrintOptions.Printer = 'Por defecto'
PrintOptions.PrintOnSheet = 0
ReportOptions.CreateDate = 39065.872423495400000000
ReportOptions.LastChange = 41807.715566319440000000
ReportOptions.LastChange = 42864.516198865740000000
ScriptLanguage = 'PascalScript'
ScriptText.Strings = (
''
@ -712,35 +728,34 @@ object RptPedidosCliente: TRptPedidosCliente
'var'
' ACadena : String;'
'begin'
' ACadena := '#39#39';'
' DireccionEnvio.Lines.Clear;'
' if (<frxDBCabecera."REFERENCIA_CLIENTE"> <> '#39#39') then'
' ACadena := <frxDBCabecera."REFERENCIA_CLIENTE">;'
''
' if (<frxDBCabecera."PERSONA_CONTACTO"> <> '#39#39') then'
' ACadena := ACadena + '#39' '#39' + <frxDBCabecera."PERSONA_CONTACT' +
'O">;'
''
' DireccionEnvio.Lines.Add(ACadena);'
' ACadena := '#39#39';'
' DireccionEnvio.Lines.Add(<frxDBCabecera."CALLE">);'
' ACadena := '#39#39'; '
' if (<frxDBCabecera."CODIGO_POSTAL"> <> '#39#39') then'
' ACadena := <frxDBCabecera."CODIGO_POSTAL"> + '#39' '#39';'
' if (<frxDBCabecera."POBLACION"> <> '#39#39') then'
' ACadena := ACadena + <frxDBCabecera."CODIGO_POSTAL">;'
''
' ACadena := ACadena + <frxDBCabecera."POBLACION">;'
' if (ACadena <> '#39#39') then'
' DireccionEnvio.Lines.Add(ACadena);'
''
' ACadena := '#39#39'; '
' if (<frxDBCabecera."PROVINCIA"> <> '#39#39') then'
' DireccionEnvio.Lines.Add(<frxDBCabecera."PROVINCIA">);'
''
' ACadena := <frxDBCabecera."PROVINCIA"> + '#39' '#39';'
' if (<frxDBCabecera."PAIS"> <> '#39#39') then'
' DireccionEnvio.Lines.Add(<frxDBCabecera."PAIS">);'
' ACadena := ACadena + <frxDBCabecera."PAIS">;'
' if (ACadena <> '#39#39') then'
' DireccionEnvio.Lines.Add(ACadena);'
' '
' ACadena := '#39#39';'
' if (<frxDBCabecera."PERSONA_CONTACTO"> <> '#39#39') then'
' ACadena := '#39'Persona de Contacto: '#39' + <frxDBCabecera."PERSO' +
'NA_CONTACTO">;'
' if (<frxDBCabecera."TELEFONO"> <> '#39#39') then'
' DireccionEnvio.Lines.Add(<frxDBCabecera."TELEFONO">);'
' ACadena := ACadena + '#39'('#39' + <frxDBCabecera."TELEFONO"> + '#39')'#39 +
';'
' if (ACadena <> '#39#39') then'
' DireccionEnvio.Lines.Add(ACadena);'
'end;'
''
'procedure PageHeader1OnBeforePrint(Sender: TfrxComponent);'
@ -1100,6 +1115,14 @@ object RptPedidosCliente: TRptPedidosCliente
end
item
Name = 'IMPORTE_UNIDAD'
DataType = datCurrency
end
item
Name = 'DESCUENTO'
DataType = datFloat
end
item
Name = 'IMPORTE_NETO'
DataType = datFloat
end
item

9
Source/Modulos/Pedidos de cliente/Servidor/srvPedidosCliente_Impl.dfm
View File

@ -254,6 +254,10 @@ object srvPedidosCliente: TsrvPedidosCliente
item
DatasetField = 'AGENTE'
TableField = 'AGENTE'
end
item
DatasetField = 'NOMBRE_COMERCIAL'
TableField = 'NOMBRE_COMERCIAL'
end>
end>
Name = 'PedidosCliente'
@ -466,6 +470,11 @@ object srvPedidosCliente: TsrvPedidosCliente
Name = 'AGENTE'
DataType = datString
Size = 255
end
item
Name = 'NOMBRE_COMERCIAL'
DataType = datString
Size = 255
end>
end
item

93
Source/Modulos/Pedidos de cliente/Views/uEditorDireccionEntregaPedidoCliente.dfm
View File

@ -3,8 +3,8 @@ object fEditorDireccionEntregaPedidoCliente: TfEditorDireccionEntregaPedidoClien
Top = 108
BorderStyle = bsDialog
Caption = 'Datos de la direcci'#243'n de entrega:'
ClientHeight = 189
ClientWidth = 453
ClientHeight = 262
ClientWidth = 586
Color = clBtnFace
ParentFont = True
OldCreateOrder = True
@ -14,15 +14,15 @@ object fEditorDireccionEntregaPedidoCliente: TfEditorDireccionEntregaPedidoClien
OnDestroy = FormDestroy
OnShow = FormShow
DesignSize = (
453
189)
586
262)
PixelsPerInch = 96
TextHeight = 13
object Bevel1: TBevel
Left = 8
Top = 14
Width = 349
Height = 163
Width = 482
Height = 243
Anchors = [akLeft, akTop, akRight]
Shape = bsFrame
end
@ -58,8 +58,32 @@ object fEditorDireccionEntregaPedidoCliente: TfEditorDireccionEntregaPedidoClien
AutoSize = False
Caption = 'Poblaci'#243'n:'
end
object Label5: TLabel
Left = 20
Top = 197
Width = 110
Height = 13
AutoSize = False
Caption = 'Persona Contacto:'
end
object Label6: TLabel
Left = 20
Top = 224
Width = 110
Height = 13
AutoSize = False
Caption = 'Tel'#233'fono:'
end
object Label7: TLabel
Left = 20
Top = 171
Width = 110
Height = 13
AutoSize = False
Caption = 'Pa'#237's:'
end
object OKBtn: TButton
Left = 370
Left = 503
Top = 13
Width = 75
Height = 25
@ -70,7 +94,7 @@ object fEditorDireccionEntregaPedidoCliente: TfEditorDireccionEntregaPedidoClien
TabOrder = 0
end
object CancelBtn: TButton
Left = 370
Left = 503
Top = 44
Width = 75
Height = 25
@ -83,7 +107,7 @@ object fEditorDireccionEntregaPedidoCliente: TfEditorDireccionEntregaPedidoClien
object eDireccion: TDBEdit
Left = 136
Top = 23
Width = 210
Width = 345
Height = 57
AutoSelect = False
AutoSize = False
@ -94,7 +118,7 @@ object fEditorDireccionEntregaPedidoCliente: TfEditorDireccionEntregaPedidoClien
object eCodigoPostal: TDBEdit
Left = 136
Top = 140
Width = 210
Width = 345
Height = 21
DataField = 'CODIGO_POSTAL'
DataSource = dsDireccion
@ -123,10 +147,10 @@ object fEditorDireccionEntregaPedidoCliente: TfEditorDireccionEntregaPedidoClien
StyleHot.LookAndFeel.Kind = lfStandard
StyleHot.LookAndFeel.NativeStyle = True
TabOrder = 4
Width = 210
Width = 345
end
object cbPoblacion: TcxDBComboBox
Left = 136
Left = 137
Top = 113
DataBinding.DataField = 'POBLACION'
DataBinding.DataSource = dsDireccion
@ -148,7 +172,50 @@ object fEditorDireccionEntregaPedidoCliente: TfEditorDireccionEntregaPedidoClien
StyleHot.LookAndFeel.Kind = lfStandard
StyleHot.LookAndFeel.NativeStyle = True
TabOrder = 5
Width = 210
Width = 345
end
object eTelefono: TDBEdit
Left = 136
Top = 221
Width = 345
Height = 21
DataField = 'TELEFONO'
DataSource = dsDireccion
TabOrder = 6
end
object ePersonaContacto: TDBEdit
Left = 136
Top = 194
Width = 345
Height = 21
DataField = 'PERSONA_CONTACTO'
DataSource = dsDireccion
TabOrder = 7
end
object cbPais: TcxDBComboBox
Left = 136
Top = 167
DataBinding.DataField = 'PAIS'
DataBinding.DataSource = dsDireccion
Properties.ImmediatePost = True
Properties.ImmediateUpdateText = True
Properties.PostPopupValueOnTab = True
Properties.OnInitPopup = cbPaisPropertiesInitPopup
Style.BorderColor = clWindowFrame
Style.BorderStyle = ebs3D
Style.HotTrack = False
Style.LookAndFeel.Kind = lfStandard
Style.LookAndFeel.NativeStyle = True
Style.ButtonStyle = bts3D
Style.PopupBorderStyle = epbsFrame3D
StyleDisabled.LookAndFeel.Kind = lfStandard
StyleDisabled.LookAndFeel.NativeStyle = True
StyleFocused.LookAndFeel.Kind = lfStandard
StyleFocused.LookAndFeel.NativeStyle = True
StyleHot.LookAndFeel.Kind = lfStandard
StyleHot.LookAndFeel.NativeStyle = True
TabOrder = 8
Width = 345
end
object dsDireccion: TDADataSource
Left = 16

54
Source/Modulos/Pedidos de cliente/Views/uEditorDireccionEntregaPedidoCliente.pas
View File

@ -22,6 +22,12 @@ type
cbProvincia: TcxDBComboBox;
Label2: TLabel;
cbPoblacion: TcxDBComboBox;
eTelefono: TDBEdit;
Label5: TLabel;
ePersonaContacto: TDBEdit;
Label6: TLabel;
cbPais: TcxDBComboBox;
Label7: TLabel;
procedure FormShow(Sender: TObject);
procedure FormClose(Sender: TObject; var Action: TCloseAction);
@ -29,18 +35,24 @@ type
procedure cbPoblacionPropertiesInitPopup(Sender: TObject);
procedure FormCreate(Sender: TObject);
procedure FormDestroy(Sender: TObject);
procedure cbPaisPropertiesInitPopup(Sender: TObject);
private
pDireccion: String;
pPoblacion: String;
pProvincia: String;
pPais: String;
FIDProvincia : Integer; //Almacenará la provincia que hay seleccionada para no cargar las poblaciones si no es necesario
pCodigoPostal: String;
pPersonaContacto: String;
pTelefono: String;
FProvincias : TStringList;
FPoblaciones : TStringList;
FPaises : TStringList;
FPedido : IBizPedidoCliente;
procedure CargarProvincias;
procedure CargarPoblaciones;
procedure CargarPaises;
function GetPedido: IBizPedidoCliente;
procedure SetPedido(const Value: IBizPedidoCliente);
public
@ -55,6 +67,30 @@ uses
{ TfEditorDireccionEntrega }
procedure TfEditorDireccionEntregaPedidoCliente.CargarPaises;
var
i : integer;
begin
with TProvinciasPoblacionesController.Create do
try
FPaises := DarListaPaises;
with cbPais.Properties.Items do
begin
BeginUpdate;
try
Clear;
for i := 0 to FPaises.Count - 1 do
Add(FPaises.Names[i]);
finally
EndUpdate;
end;
end;
finally
Free;
end;
end;
procedure TfEditorDireccionEntregaPedidoCliente.CargarPoblaciones;
var
i : integer;
@ -109,6 +145,18 @@ begin
end;
end;
procedure TfEditorDireccionEntregaPedidoCliente.cbPaisPropertiesInitPopup(
Sender: TObject);
begin
ShowHourglassCursor;
try
if not Assigned(FPaises) then
CargarPaises;
finally
HideHourglassCursor;
end;
end;
procedure TfEditorDireccionEntregaPedidoCliente.cbPoblacionPropertiesInitPopup(
Sender: TObject);
begin
@ -146,6 +194,9 @@ begin
cbPoblacion.DataBinding.Field.Value := pPoblacion;
cbProvincia.DataBinding.Field.Value := pProvincia;
eCodigoPostal.Field.Value := pCodigoPostal;
cbPais.DataBinding.Field.Value := pPais;
ePersonaContacto.Field.Value := pPersonaContacto;
eTelefono.Field.Value := pTelefono;
end;
end;
@ -172,6 +223,9 @@ begin
pPoblacion := cbPoblacion.Text;
pProvincia := cbProvincia.Text;
pCodigoPostal := eCodigoPostal.Text;
pPais := cbPais.Text;
pPersonaContacto := ePersonaContacto.Text;
pTelefono := eTelefono.Text;
end;
function TfEditorDireccionEntregaPedidoCliente.GetPedido: IBizPedidoCliente;

17
Source/Modulos/Pedidos de cliente/Views/uViewDireccionEntregaPedidoCli.dfm
View File

@ -1,27 +1,29 @@
inherited frViewDireccionEntregaPedidoCli: TfrViewDireccionEntregaPedidoCli
Width = 484
Height = 240
Height = 232
ExplicitWidth = 484
ExplicitHeight = 240
ExplicitHeight = 232
object dxLayoutControl1: TdxLayoutControl
Left = 0
Top = 0
Width = 484
Height = 240
Height = 232
Align = alClient
ParentBackground = True
TabOrder = 0
TabStop = False
AutoContentSizes = [acsWidth, acsHeight]
ExplicitHeight = 240
DesignSize = (
484
240)
232)
object Bevel1: TBevel
Left = 10
Top = 178
Top = 170
Width = 566
Height = 2
Shape = bsTopLine
Visible = False
end
object lblObra: TLabel
Left = 247
@ -86,7 +88,7 @@ inherited frViewDireccionEntregaPedidoCli: TfrViewDireccionEntregaPedidoCli
end
object bModificar: TBitBtn
Left = 346
Top = 142
Top = 134
Width = 128
Height = 25
Caption = 'Modificar la direcci'#243'n...'
@ -113,7 +115,7 @@ inherited frViewDireccionEntregaPedidoCli: TfrViewDireccionEntregaPedidoCli
end
object edtEntregarA: TcxDBTextEdit
Left = 10
Top = 209
Top = 201
DataBinding.DataField = 'PERSONA_CONTACTO'
DataBinding.DataSource = dsPedido
Properties.ReadOnly = True
@ -227,6 +229,7 @@ inherited frViewDireccionEntregaPedidoCli: TfrViewDireccionEntregaPedidoCli
object dxLayoutControl1Item7: TdxLayoutItem
Caption = 'Entregar este pedido a la persona de contacto:'
CaptionOptions.Layout = clTop
Visible = False
Control = edtEntregarA
ControlOptions.ShowBorder = False
end

Some files were not shown because too many files have changed in this diff Show More