Tarea #1309 -> Repasar el informe de recibos de proveedor pendientes para que salga el importe restante a pagar

git-svn-id: https://192.168.0.254/svn/Proyectos.Tecsitel_FactuGES2/trunk@1094 0c75b7a4-871f-7646-8a2f-f78d34cc349f
This commit is contained in:
David Arranz 2014-01-28 17:16:00 +00:00
parent 7a7c787556
commit 562f7cf4f7
14 changed files with 277 additions and 260 deletions

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

View File

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

Binary file not shown.

File diff suppressed because one or more lines are too long

File diff suppressed because one or more lines are too long

File diff suppressed because one or more lines are too long

File diff suppressed because one or more lines are too long

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="37800,8077143519" ReportOptions.Description.Text="" ReportOptions.LastChange="41563,8059616088" 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="044C65667403910003546F70021008446174617365747301010C3300000020446174615365744E616D653D226672784442496E666F726D654C69737461646F52656369626F7350656E6469656E7465732200010C3400000020446174615365744E616D653D226672784442496E666F726D654C69737461646F52656369626F7350656E64526573756D656E220000095661726961626C657301010C13000000204E616D653D2220506172616D6574726F732200010C17000000204E616D653D22546578746F506172616D6574726F73220000055374796C650100">
<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="41667,7028463657" 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">
@ -13,34 +13,34 @@
<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="-16777211" 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="Memo27" Left="0" Top="25" Width="94,77953" Height="15" ShowHint="False" Color="-16777211" 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º recibo"/>
<TfrxMemoView Name="Memo28" Left="248,77953" Top="25" Width="250" Height="15" ShowHint="False" Color="-16777211" 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="918,77953" Top="25" Width="90" Height="15" ShowHint="False" Color="-16777211" 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="-16777211" 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" Align="baLeft" Left="798,77953" Top="25" Width="120" Height="15" ShowHint="False" Color="-16777211" 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="-16777211" 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="Memo50" Left="174,77953" Top="25" Width="74" Height="15" ShowHint="False" Color="-16777211" 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" Align="baLeft" Left="798,77953" Top="25" Width="120" Height="15" ShowHint="False" Color="-16777211" 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 pendiente"/>
<TfrxMemoView Name="Memo8" Left="94,77953" Top="25" Width="80" Height="15" ShowHint="False" Color="-16777211" 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="-16777211" 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="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_VENCIMIENTO&#34;]"/>
<TfrxMemoView Name="Memo29" Left="174,78" Top="0" Width="74" 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="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_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="[frxDBInformeListadoRecibosPendientes.&#34;REFERENCIA&#34;]"/>
<TfrxMemoView Name="Memo21" Left="94,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="Memo18" Left="0" Top="0" Width="94,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" 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" Width="120" Height="16" ShowHint="False" StretchMode="smMaxHeight" Color="-16777211" 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" Width="799" Height="16" ShowHint="False" StretchMode="smMaxHeight" Color="-16777211" 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="Memo53" Left="0" Top="0" Width="799" Height="16" ShowHint="False" StretchMode="smMaxHeight" Color="-16777211" 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="TOTALES [frxDBInformeListadoRecibosPendientes.&#34;TITULO&#34;]:"/>
<TfrxMemoView Name="Memo9" Left="919" Top="0" Width="90" Height="16" ShowHint="False" StretchMode="smMaxHeight" Color="-16777211" 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="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 [frxDBInformeListadoRecibosPendResumen.&#34;TITULO&#34;]"/>
<TfrxMemoView Name="Memo16" Left="0" Top="30" Width="495" Height="15" ShowHint="False" Color="-16777211" 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="-16777211" 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="Memo15" Left="495" Top="30" Width="108" Height="15" ShowHint="False" Color="-16777211" 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 pendiente"/>
</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;]"/>

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="37800,8077143519" ReportOptions.Description.Text="" ReportOptions.LastChange="41563,8061088079" 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="044C65667403910003546F70021008446174617365747301010C3300000020446174615365744E616D653D226672784442496E666F726D654C69737461646F52656369626F7350656E6469656E7465732200010C3400000020446174615365744E616D653D226672784442496E666F726D654C69737461646F52656369626F7350656E64526573756D656E220000095661726961626C657301010C13000000204E616D653D2220506172616D6574726F732200010C17000000204E616D653D22546578746F506172616D6574726F73220000055374796C650100">
<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="41667,7022672338" 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">
@ -13,33 +13,33 @@
<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="-16777211" 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="Memo27" Left="0" Top="25" Width="96,77953" Height="15" ShowHint="False" Color="-16777211" 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º recibo"/>
<TfrxMemoView Name="Memo28" Left="248,77953" Top="25" Width="250" Height="15" ShowHint="False" Color="-16777211" 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="918,77953" Top="25" Width="90" Height="15" ShowHint="False" Color="-16777211" 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="-16777211" 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" Align="baLeft" Left="798,77953" Top="25" Width="120" Height="15" ShowHint="False" Color="-16777211" 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="-16777211" 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="Memo50" Left="176,77953" Top="25" Width="72" Height="15" ShowHint="False" Color="-16777211" 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" Align="baLeft" Left="798,77953" Top="25" Width="120" Height="15" ShowHint="False" Color="-16777211" 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 pendiente"/>
<TfrxMemoView Name="Memo8" Left="96,77953" Top="25" Width="80" Height="15" ShowHint="False" Color="-16777211" 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="-16777211" 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="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_VENCIMIENTO&#34;]"/>
<TfrxMemoView Name="Memo29" Left="176,78" Top="0" Width="72" 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="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_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="[frxDBInformeListadoRecibosPendientes.&#34;REFERENCIA&#34;]"/>
<TfrxMemoView Name="Memo21" Left="96,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="Memo18" Left="0" Top="0" Width="96,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" 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" Width="120" Height="16" ShowHint="False" StretchMode="smMaxHeight" Color="-16777211" 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" Width="799" Height="16" ShowHint="False" StretchMode="smMaxHeight" Color="-16777211" 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="Memo53" Left="0" Top="0" Width="799" Height="16" ShowHint="False" StretchMode="smMaxHeight" Color="-16777211" 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="TOTALES [frxDBInformeListadoRecibosPendientes.&#34;TITULO&#34;]:"/>
<TfrxMemoView Name="Memo9" Left="919" Top="0" Width="90" Height="16" ShowHint="False" StretchMode="smMaxHeight" Color="-16777211" 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="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 [frxDBInformeListadoRecibosPendResumen.&#34;TITULO&#34;]"/>
<TfrxMemoView Name="Memo16" Left="0" Top="30" Width="495" Height="15" ShowHint="False" Color="-16777211" 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="-16777211" 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="Memo15" Left="495" Top="30" Width="108" Height="15" ShowHint="False" Color="-16777211" 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 pendiente"/>
</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;]"/>

View File

@ -422,34 +422,39 @@ object RptFacturasProveedor: TRptFacturasProveedor
Connection = 'IBX'
TargetTable = 'V_FACTURAS_PROVEEDOR'
SQL =
'select ID_EMPRESA,'#10'extract (year from fecha_vencimiento) as ANO,' +
#10'extract (month from fecha_vencimiento) as MES,'#10'case'#10'when extrac' +
't (month from fecha_vencimiento) = 1 then '#39'ENERO - '#39' || extract ' +
'(year from fecha_vencimiento)'#10'when extract (month from fecha_ven' +
'cimiento) = 2 then '#39'FEBRERO - '#39' || extract (year from fecha_venc' +
'imiento)'#10'when extract (month from fecha_vencimiento) = 3 then '#39'M' +
'ARZO - '#39' || extract (year from fecha_vencimiento)'#10'when extract (' +
'month from fecha_vencimiento) = 4 then '#39'ABRIL - '#39' || extract (ye' +
'ar from fecha_vencimiento)'#10'when extract (month from fecha_vencim' +
'iento) = 5 then '#39'MAYO - '#39' || extract (year from fecha_vencimient' +
'o)'#10'when extract (month from fecha_vencimiento) = 6 then '#39'JUNIO -' +
' '#39' || extract (year from fecha_vencimiento)'#10'when extract (month ' +
'from fecha_vencimiento) = 7 then '#39'JULIO - '#39' || extract (year fro' +
'm fecha_vencimiento)'#10'when extract (month from fecha_vencimiento)' +
' = 8 then '#39'AGOSTO - '#39' || extract (year from fecha_vencimiento)'#10'w' +
'hen extract (month from fecha_vencimiento) = 9 then '#39'SEPTIEMBRE ' +
'- '#39' || extract (year from fecha_vencimiento)'#10'when extract (month' +
' from fecha_vencimiento) = 10 then '#39'OCTUBRE - '#39' || extract (year' +
' from fecha_vencimiento)'#10'when extract (month from fecha_vencimie' +
'nto) = 11 then '#39'NOVIEMBRE - '#39' || extract (year from fecha_vencim' +
'iento)'#10'when extract (month from fecha_vencimiento) = 12 then '#39'DI' +
'CIEMBRE - '#39' || extract (year from fecha_vencimiento)'#10'end as TITU' +
'LO,'#10'REFERENCIA, ID_PROVEEDOR, NOMBRE, SITUACION, NIF_CIF, FECHA' +
'_FACTURA, FECHA_RECEPCION, FECHA_VENCIMIENTO, BASE_IMPONIBLE, IM' +
'PORTE_IVA, IMPORTE_TOTAL,'#10'case'#10'when strlen(DATOS_BANCARIOS) = 0 ' +
'then '#39'Sin cuenta bancaria'#39#10'else DATOS_BANCARIOS'#10'end as DATOS_BAN' +
'CARIOS'#10#10#10'from V_facturas_proveedor'#10'where {where}'#10'order by ANO, M' +
'ES, fecha_vencimiento, DATOS_BANCARIOS, NOMBRE'#10#10
'select FAC.ID_EMPRESA,'#10'extract (year from FAC.FECHA_VENCIMIENTO)' +
' as ANO,'#10'extract (month from FAC.FECHA_VENCIMIENTO) as MES,'#10'case' +
#10'when extract (month from FAC.FECHA_VENCIMIENTO) = 1 then '#39'ENERO' +
' - '#39' || extract (year from FAC.FECHA_VENCIMIENTO)'#10'when extract (' +
'month from FAC.FECHA_VENCIMIENTO) = 2 then '#39'FEBRERO - '#39' || extra' +
'ct (year from FAC.FECHA_VENCIMIENTO)'#10'when extract (month from FA' +
'C.FECHA_VENCIMIENTO) = 3 then '#39'MARZO - '#39' || extract (year from F' +
'AC.FECHA_VENCIMIENTO)'#10'when extract (month from FAC.FECHA_VENCIMI' +
'ENTO) = 4 then '#39'ABRIL - '#39' || extract (year from FAC.FECHA_VENCIM' +
'IENTO)'#10'when extract (month from FAC.FECHA_VENCIMIENTO) = 5 then ' +
#39'MAYO - '#39' || extract (year from FAC.FECHA_VENCIMIENTO)'#10'when extr' +
'act (month from FAC.FECHA_VENCIMIENTO) = 6 then '#39'JUNIO - '#39' || ex' +
'tract (year from FAC.FECHA_VENCIMIENTO)'#10'when extract (month from' +
' FAC.FECHA_VENCIMIENTO) = 7 then '#39'JULIO - '#39' || extract (year fro' +
'm FAC.FECHA_VENCIMIENTO)'#10'when extract (month from FAC.FECHA_VENC' +
'IMIENTO) = 8 then '#39'AGOSTO - '#39' || extract (year from FAC.FECHA_VE' +
'NCIMIENTO)'#10'when extract (month from FAC.FECHA_VENCIMIENTO) = 9 t' +
'hen '#39'SEPTIEMBRE - '#39' || extract (year from FAC.FECHA_VENCIMIENTO)' +
#10'when extract (month from FAC.FECHA_VENCIMIENTO) = 10 then '#39'OCTU' +
'BRE - '#39' || extract (year from FAC.FECHA_VENCIMIENTO)'#10'when extrac' +
't (month from FAC.FECHA_VENCIMIENTO) = 11 then '#39'NOVIEMBRE - '#39' ||' +
' extract (year from FAC.FECHA_VENCIMIENTO)'#10'when extract (month f' +
'rom FAC.FECHA_VENCIMIENTO) = 12 then '#39'DICIEMBRE - '#39' || extract (' +
'year from FAC.FECHA_VENCIMIENTO)'#10'end as TITULO,'#10'FAC.REFERENCIA, ' +
'FAC.ID_PROVEEDOR, FAC.NOMBRE, FAC.SITUACION, FAC.NIF_CIF, FAC.FE' +
'CHA_FACTURA,'#10'FAC.FECHA_RECEPCION, FAC.FECHA_VENCIMIENTO, FAC.BAS' +
'E_IMPONIBLE, FAC.IMPORTE_IVA, FAC.IMPORTE_TOTAL AS IMPORTE_TOTAL' +
'_FACTURA, REC.IMPORTE_TOTAL,'#10'case'#10'when strlen(FAC.DATOS_BANCARIO' +
'S) = 0 then '#39'Sin cuenta bancaria'#39#10'else FAC.DATOS_BANCARIOS'#10'end a' +
's DATOS_BANCARIOS'#10#10#10'from V_FACTURAS_PROVEEDOR FAC LEFT OUTER JOI' +
'N V_REC_FAC_PRO_IMPORTES REC ON (REC.ID_FACTURA = FAC.ID)'#10#10'where' +
' {where}'#10#10'order by ANO, MES, FAC.FECHA_VENCIMIENTO, DATOS_BANCAR' +
'IOS, FAC.NOMBRE'#10#10
StatementType = stSQL
ColumnMappings = <
item
@ -518,6 +523,11 @@ object RptFacturasProveedor: TRptFacturasProveedor
item
DatasetField = 'FECHA_RECEPCION'
TableField = 'FECHA_RECEPCION'
end
item
DatasetField = 'IMPORTE_TOTAL_FACTURA'
TableField = '<unknown>'
SQLOrigin = 'IMPORTE_TOTAL_FACTURA'
end>
end>
Name = 'InformeListadoFacturasPendientes'
@ -583,6 +593,10 @@ object RptFacturasProveedor: TRptFacturasProveedor
Name = 'IMPORTE_IVA'
DataType = datCurrency
end
item
Name = 'IMPORTE_TOTAL_FACTURA'
DataType = datCurrency
end
item
Name = 'IMPORTE_TOTAL'
DataType = datCurrency
@ -757,32 +771,36 @@ object RptFacturasProveedor: TRptFacturasProveedor
Connection = 'IBX'
Default = True
SQL =
'select ID_EMPRESA,'#10'extract (year from fecha_vencimiento) as ANO,' +
#10'extract (month from fecha_vencimiento) as MES,'#10'case'#10'when extrac' +
't (month from fecha_vencimiento) = 1 then '#39'ENERO - '#39' || extract ' +
'(year from fecha_vencimiento)'#10'when extract (month from fecha_ven' +
'cimiento) = 2 then '#39'FEBRERO - '#39' || extract (year from fecha_venc' +
'imiento)'#10'when extract (month from fecha_vencimiento) = 3 then '#39'M' +
'ARZO - '#39' || extract (year from fecha_vencimiento)'#10'when extract (' +
'month from fecha_vencimiento) = 4 then '#39'ABRIL - '#39' || extract (ye' +
'ar from fecha_vencimiento)'#10'when extract (month from fecha_vencim' +
'iento) = 5 then '#39'MAYO - '#39' || extract (year from fecha_vencimient' +
'o)'#10'when extract (month from fecha_vencimiento) = 6 then '#39'JUNIO -' +
' '#39' || extract (year from fecha_vencimiento)'#10'when extract (month ' +
'from fecha_vencimiento) = 7 then '#39'JULIO - '#39' || extract (year fro' +
'm fecha_vencimiento)'#10'when extract (month from fecha_vencimiento)' +
' = 8 then '#39'AGOSTO - '#39' || extract (year from fecha_vencimiento)'#10'w' +
'hen extract (month from fecha_vencimiento) = 9 then '#39'SEPTIEMBRE ' +
'- '#39' || extract (year from fecha_vencimiento)'#10'when extract (month' +
' from fecha_vencimiento) = 10 then '#39'OCTUBRE - '#39' || extract (year' +
' from fecha_vencimiento)'#10'when extract (month from fecha_vencimie' +
'nto) = 11 then '#39'NOVIEMBRE - '#39' || extract (year from fecha_vencim' +
'iento)'#10'when extract (month from fecha_vencimiento) = 12 then '#39'DI' +
'CIEMBRE - '#39' || extract (year from fecha_vencimiento)'#10'end as TITU' +
'LO,'#10'case'#10'when strlen(DATOS_BANCARIOS) = 0 then '#39'Sin cuenta banca' +
'ria'#39#10'else DATOS_BANCARIOS'#10'end as DATOS_BANCARIOS,'#10'sum(IMPORTE_TO' +
'TAL) as importe_total'#10#10'from V_facturas_proveedor'#10#10'group by 1,2,3' +
',4,5'#10'order by 1,2,3,4,5'#10#10#10
'select FAC.ID_EMPRESA,'#10'extract (year from FAC.FECHA_VENCIMIENTO)' +
' as ANO,'#10'extract (month from FAC.FECHA_VENCIMIENTO) as MES,'#10'case' +
#10'when extract (month from FAC.FECHA_VENCIMIENTO) = 1 then '#39'ENERO' +
' - '#39' || extract (year from FAC.FECHA_VENCIMIENTO)'#10'when extract (' +
'month from FAC.FECHA_VENCIMIENTO) = 2 then '#39'FEBRERO - '#39' || extra' +
'ct (year from FAC.FECHA_VENCIMIENTO)'#10'when extract (month from FA' +
'C.FECHA_VENCIMIENTO) = 3 then '#39'MARZO - '#39' || extract (year from F' +
'AC.FECHA_VENCIMIENTO)'#10'when extract (month from FAC.FECHA_VENCIMI' +
'ENTO) = 4 then '#39'ABRIL - '#39' || extract (year from FAC.FECHA_VENCIM' +
'IENTO)'#10'when extract (month from FAC.FECHA_VENCIMIENTO) = 5 then ' +
#39'MAYO - '#39' || extract (year from FAC.FECHA_VENCIMIENTO)'#10'when extr' +
'act (month from FAC.FECHA_VENCIMIENTO) = 6 then '#39'JUNIO - '#39' || ex' +
'tract (year from FAC.FECHA_VENCIMIENTO)'#10'when extract (month from' +
' FAC.FECHA_VENCIMIENTO) = 7 then '#39'JULIO - '#39' || extract (year fro' +
'm FAC.FECHA_VENCIMIENTO)'#10'when extract (month from FAC.FECHA_VENC' +
'IMIENTO) = 8 then '#39'AGOSTO - '#39' || extract (year from FAC.FECHA_VE' +
'NCIMIENTO)'#10'when extract (month from FAC.FECHA_VENCIMIENTO) = 9 t' +
'hen '#39'SEPTIEMBRE - '#39' || extract (year from FAC.FECHA_VENCIMIENTO)' +
#10'when extract (month from FAC.FECHA_VENCIMIENTO) = 10 then '#39'OCTU' +
'BRE - '#39' || extract (year from FAC.FECHA_VENCIMIENTO)'#10'when extrac' +
't (month from FAC.FECHA_VENCIMIENTO) = 11 then '#39'NOVIEMBRE - '#39' ||' +
' extract (year from FAC.FECHA_VENCIMIENTO)'#10'when extract (month f' +
'rom FAC.FECHA_VENCIMIENTO) = 12 then '#39'DICIEMBRE - '#39' || extract (' +
'year from FAC.FECHA_VENCIMIENTO)'#10'end as TITULO,'#10'case'#10'when strlen' +
'(FAC.DATOS_BANCARIOS) = 0 then '#39'Sin cuenta bancaria'#39#10'else FAC.DA' +
'TOS_BANCARIOS'#10'end as DATOS_BANCARIOS,'#10'sum(FAC.IMPORTE_TOTAL) as ' +
'IMPORTE_TOTAL,'#10'sum(REC.IMPORTE_TOTAL) as IMPORTE_RECIBOS'#10#10'from V' +
'_FACTURAS_PROVEEDOR FAC LEFT OUTER JOIN V_REC_FAC_PRO_IMPORTES R' +
'EC ON (REC.ID_FACTURA = FAC.ID)'#10#10'where {where}'#10#10'group by 1,2,3,4' +
',5'#10'order by 1,2,3,4,5'#10#10#10
StatementType = stSQL
ColumnMappings = <
item
@ -808,6 +826,10 @@ object RptFacturasProveedor: TRptFacturasProveedor
item
DatasetField = 'IMPORTE_TOTAL'
TableField = 'IMPORTE_TOTAL'
end
item
DatasetField = 'IMPORTE_RECIBOS'
TableField = 'IMPORTE_RECIBOS'
end>
end>
Name = 'InformeListadoFacturasPendientesResumen'
@ -834,6 +856,10 @@ object RptFacturasProveedor: TRptFacturasProveedor
DataType = datString
Size = 255
end
item
Name = 'IMPORTE_RECIBOS'
DataType = datCurrency
end
item
Name = 'IMPORTE_TOTAL'
DataType = datCurrency
@ -1693,7 +1719,7 @@ object RptFacturasProveedor: TRptFacturasProveedor
PrintOptions.Printer = 'Por defecto'
PrintOptions.PrintOnSheet = 0
ReportOptions.CreateDate = 37800.807714351900000000
ReportOptions.LastChange = 40751.452820069450000000
ReportOptions.LastChange = 39841.512201423600000000
ScriptLanguage = 'PascalScript'
ScriptText.Strings = (
'procedure mContinuaOnBeforePrint(Sender: TfrxComponent);'
@ -1711,6 +1737,24 @@ object RptFacturasProveedor: TRptFacturasProveedor
' end; '
'end;'
''
'procedure Memo5OnBeforePrint(Sender: TfrxComponent);'
'var'
' ACadena : String; ' +
' '
'begin'
' ACadena := <frxDBInformeListadoRecibosPendientes."DATOS_BANCA' +
'RIOS">; '
' if Pos('#39'N'#186' de cuenta: '#39', ACadena) > 0 then'
' begin'
' Delete(ACadena, 1, 14);'
' Memo5.Lines.Text := '#39' '#39' + ACadena; ' +
' '
' end; '
'end;'
''
'procedure Memo11OnBeforePrint(Sender: TfrxComponent);'
'var'
@ -1718,31 +1762,13 @@ object RptFacturasProveedor: TRptFacturasProveedor
' '
'begin'
' ACadena := <frxDBInformeListadoFacturasPendResumen."DATOS_BAN' +
'CARIOS">; '
' if Pos('#39'N'#186' de cuenta: '#39', ACadena) > 0 then'
' begin'
' Delete(ACadena, 1, 14);'
' Memo11.Lines.Text := '#39' '#39' + ACadena; ' +
' '
' end;'
'end;'
''
'procedure Memo10OnBeforePrint(Sender: TfrxComponent);'
'var'
' ACadena : String; ' +
' '
'begin'
' ACadena := <frxDBInformeListadoFacturasPendientes."DATOS_BANC' +
' ACadena := <frxDBInformeListadoRecibosPendResumen."DATOS_BANC' +
'ARIOS">; '
' if Pos('#39'N'#186' de cuenta: '#39', ACadena) > 0 then'
' begin'
' Delete(ACadena, 1, 14);'
' Memo10.Lines.Text := '#39' '#39' + ACadena; ' +
' Memo11.Lines.Text := '#39' '#39' + ACadena; ' +
' '
' end;'
'end;'

View File

@ -311,7 +311,6 @@ function TRptFacturasProveedor.GenerarInformeListadoFacturasPendientes(
const ListaIDProveedores: TIntegerArray; const Desglosado: Boolean;
const ImporteMinimo: Currency): Binary;
var
Condicion: TDAWhereExpression;
ATipoInforme: String;
AStream: TMemoryStream;
dsMaster: IDADataset;
@ -342,15 +341,7 @@ begin
PrepararTablaInforme(tbl_InformeListadoFacturasPendientes);
// Filtrar el informe por situacion
with tbl_InformeListadoFacturasPendientes.DynamicWhere do
begin
// (SITUACION >= PAGADA)
Condicion := NewBinaryExpression(NewField('', fld_FacturasProveedorSITUACION), NewConstant('PAGADA', datString), dboNotEqual);
if IsEmpty then
Expression := Condicion
else
Expression := NewBinaryExpression(Expression, Condicion, dboAnd);
end;
tbl_InformeListadoFacturasPendientes.Where.AddText(' (FAC.SITUACION <> ''PAGADA'') AND (REC.SITUACION <> ''PAGADO'') ');
//Se prepara la tabla del listado resumen del informe
if tbl_InformeListadoFacturasPendResumen.Active then
@ -360,7 +351,7 @@ begin
PrepararTablaResumenInforme(dsMaster);
// Filtrar el informe por situacion
dsMaster.Where.AddText(' AND (SITUACION <> ''PAGADA'')');
dsMaster.Where.AddText(' AND (FAC.SITUACION <> ''PAGADA'') AND (REC.SITUACION <> ''PAGADO'') ');
//Esto se hace para rellenar la tabla del datamodule que usa el informe.
dsMaster.Open;

Binary file not shown.

View File

@ -35,7 +35,7 @@
<Borland.Personality>Delphi.Personality</Borland.Personality>
<Borland.ProjectType/>
<BorlandProject>
<BorlandProject><Delphi.Personality><Parameters><Parameters Name="UseLauncher">False</Parameters><Parameters Name="LoadAllSymbols">True</Parameters><Parameters Name="LoadUnspecifiedSymbols">False</Parameters><Parameters Name="RunParams">/standalone</Parameters></Parameters><VersionInfo><VersionInfo Name="IncludeVerInfo">True</VersionInfo><VersionInfo Name="AutoIncBuild">False</VersionInfo><VersionInfo Name="MajorVer">2</VersionInfo><VersionInfo Name="MinorVer">0</VersionInfo><VersionInfo Name="Release">4</VersionInfo><VersionInfo Name="Build">0</VersionInfo><VersionInfo Name="Debug">False</VersionInfo><VersionInfo Name="PreRelease">False</VersionInfo><VersionInfo Name="Special">False</VersionInfo><VersionInfo Name="Private">False</VersionInfo><VersionInfo Name="DLL">False</VersionInfo><VersionInfo Name="Locale">3082</VersionInfo><VersionInfo Name="CodePage">1252</VersionInfo></VersionInfo><VersionInfoKeys><VersionInfoKeys Name="CompanyName">Rodax Software S.L.</VersionInfoKeys><VersionInfoKeys Name="FileDescription"></VersionInfoKeys><VersionInfoKeys Name="FileVersion">2.0.4.0</VersionInfoKeys><VersionInfoKeys Name="InternalName"></VersionInfoKeys><VersionInfoKeys Name="LegalCopyright"></VersionInfoKeys><VersionInfoKeys Name="LegalTrademarks"></VersionInfoKeys><VersionInfoKeys Name="OriginalFilename"></VersionInfoKeys><VersionInfoKeys Name="ProductName">FactuGES Servidor</VersionInfoKeys><VersionInfoKeys Name="ProductVersion">2.0.4.0</VersionInfoKeys><VersionInfoKeys Name="Comments"></VersionInfoKeys><VersionInfoKeys Name="CompileDate">jueves, 23 de enero de 2014 18:39</VersionInfoKeys></VersionInfoKeys><Excluded_Packages>
<BorlandProject><Delphi.Personality><Parameters><Parameters Name="UseLauncher">False</Parameters><Parameters Name="LoadAllSymbols">True</Parameters><Parameters Name="LoadUnspecifiedSymbols">False</Parameters><Parameters Name="RunParams">/standalone</Parameters></Parameters><VersionInfo><VersionInfo Name="IncludeVerInfo">True</VersionInfo><VersionInfo Name="AutoIncBuild">False</VersionInfo><VersionInfo Name="MajorVer">2</VersionInfo><VersionInfo Name="MinorVer">0</VersionInfo><VersionInfo Name="Release">5</VersionInfo><VersionInfo Name="Build">0</VersionInfo><VersionInfo Name="Debug">False</VersionInfo><VersionInfo Name="PreRelease">False</VersionInfo><VersionInfo Name="Special">False</VersionInfo><VersionInfo Name="Private">False</VersionInfo><VersionInfo Name="DLL">False</VersionInfo><VersionInfo Name="Locale">3082</VersionInfo><VersionInfo Name="CodePage">1252</VersionInfo></VersionInfo><VersionInfoKeys><VersionInfoKeys Name="CompanyName">Rodax Software S.L.</VersionInfoKeys><VersionInfoKeys Name="FileDescription"></VersionInfoKeys><VersionInfoKeys Name="FileVersion">2.0.5.0</VersionInfoKeys><VersionInfoKeys Name="InternalName"></VersionInfoKeys><VersionInfoKeys Name="LegalCopyright"></VersionInfoKeys><VersionInfoKeys Name="LegalTrademarks"></VersionInfoKeys><VersionInfoKeys Name="OriginalFilename"></VersionInfoKeys><VersionInfoKeys Name="ProductName">FactuGES Servidor</VersionInfoKeys><VersionInfoKeys Name="ProductVersion">2.0.5.0</VersionInfoKeys><VersionInfoKeys Name="Comments"></VersionInfoKeys><VersionInfoKeys Name="CompileDate">viernes, 24 de enero de 2014 18:50</VersionInfoKeys></VersionInfoKeys><Excluded_Packages>
<Excluded_Packages Name="C:\Documents and Settings\All Users\Documentos\RAD Studio\5.0\Bpl\dxPSCoreD11.bpl">ExpressPrinting System by Developer Express Inc.</Excluded_Packages>
</Excluded_Packages><Source><Source Name="MainSource">FactuGES_Server.dpr</Source></Source></Delphi.Personality></BorlandProject></BorlandProject>
</ProjectExtensions>

View File

@ -1,7 +1,7 @@
MAINICON ICON "C:\Codigo Tecsitel\Resources\Iconos\Servidor.ico"
1 VERSIONINFO
FILEVERSION 2,0,4,0
PRODUCTVERSION 2,0,4,0
FILEVERSION 2,0,5,0
PRODUCTVERSION 2,0,5,0
FILEFLAGSMASK 0x3FL
FILEFLAGS 0x00L
FILEOS 0x40004L
@ -13,10 +13,10 @@ BEGIN
BLOCK "0C0A04E4"
BEGIN
VALUE "CompanyName", "Rodax Software S.L.\0"
VALUE "FileVersion", "2.0.4.0\0"
VALUE "FileVersion", "2.0.5.0\0"
VALUE "ProductName", "FactuGES Servidor\0"
VALUE "ProductVersion", "2.0.4.0\0"
VALUE "CompileDate", "viernes, 24 de enero de 2014 18:50\0"
VALUE "ProductVersion", "2.0.5.0\0"
VALUE "CompileDate", "martes, 28 de enero de 2014 17:51\0"
END
END
BLOCK "VarFileInfo"