Cambios varios informes y logica recibos
git-svn-id: https://192.168.0.254/svn/Proyectos.AbetoDesign_FactuGES/trunk@66 93f398dd-4eb6-7a46-baf6-13f46f578da2
This commit is contained in:
parent
ea1d9fefd2
commit
4c225af7d5
@ -58,55 +58,55 @@
|
||||
<DelphiCompile Include="Base.dpk">
|
||||
<MainSource>MainSource</MainSource>
|
||||
</DelphiCompile>
|
||||
<DCCReference Include="..\Modulos\Referencias\adortl.dcp" />
|
||||
<DCCReference Include="..\Modulos\Referencias\cxDataD11.dcp" />
|
||||
<DCCReference Include="..\Modulos\Referencias\cxEditorsD11.dcp" />
|
||||
<DCCReference Include="..\Modulos\Referencias\cxExtEditorsD11.dcp" />
|
||||
<DCCReference Include="..\Modulos\Referencias\cxGridD11.dcp" />
|
||||
<DCCReference Include="..\Modulos\Referencias\cxLibraryD11.dcp" />
|
||||
<DCCReference Include="..\Modulos\Referencias\cxPageControlD11.dcp" />
|
||||
<DCCReference Include="..\Modulos\Referencias\DataAbstract_Core_D11.dcp" />
|
||||
<DCCReference Include="..\Modulos\Referencias\dbrtl.dcp" />
|
||||
<DCCReference Include="..\Modulos\Referencias\dclIndyCore.dcp" />
|
||||
<DCCReference Include="..\Modulos\Referencias\designide.dcp" />
|
||||
<DCCReference Include="..\Modulos\Referencias\dsnap.dcp" />
|
||||
<DCCReference Include="..\Modulos\Referencias\dxGDIPlusD11.dcp" />
|
||||
<DCCReference Include="..\Modulos\Referencias\dxPSCoreD11.dcp" />
|
||||
<DCCReference Include="..\Modulos\Referencias\dxThemeD11.dcp" />
|
||||
<DCCReference Include="..\Modulos\Referencias\GUISDK_D11R.dcp" />
|
||||
<DCCReference Include="..\Modulos\Referencias\IndyCore.dcp" />
|
||||
<DCCReference Include="..\Modulos\Referencias\IndyProtocols.dcp" />
|
||||
<DCCReference Include="..\Modulos\Referencias\IndySystem.dcp" />
|
||||
<DCCReference Include="..\Modulos\Referencias\Jcl.dcp" />
|
||||
<DCCReference Include="..\Modulos\Referencias\JclVcl.dcp" />
|
||||
<DCCReference Include="..\Modulos\Referencias\JSDialog100.dcp" />
|
||||
<DCCReference Include="..\Modulos\Referencias\JvCmpD11R.dcp" />
|
||||
<DCCReference Include="..\Modulos\Referencias\JvCoreD11R.dcp" />
|
||||
<DCCReference Include="..\Modulos\Referencias\JvCtrlsD11R.dcp" />
|
||||
<DCCReference Include="..\Modulos\Referencias\JvDlgsD11R.dcp" />
|
||||
<DCCReference Include="..\Modulos\Referencias\JvMMD11R.dcp" />
|
||||
<DCCReference Include="..\Modulos\Referencias\JvNetD11R.dcp" />
|
||||
<DCCReference Include="..\Modulos\Referencias\JvPageCompsD11R.dcp" />
|
||||
<DCCReference Include="..\Modulos\Referencias\JvStdCtrlsD11R.dcp" />
|
||||
<DCCReference Include="..\Modulos\Referencias\JvSystemD11R.dcp" />
|
||||
<DCCReference Include="..\Modulos\Referencias\pckMD5.dcp" />
|
||||
<DCCReference Include="..\Modulos\Referencias\pckUCDataConnector.dcp" />
|
||||
<DCCReference Include="..\Modulos\Referencias\pckUserControl_RT.dcp" />
|
||||
<DCCReference Include="..\Modulos\Referencias\PluginSDK_D11R.dcp" />
|
||||
<DCCReference Include="..\Modulos\Referencias\PngComponentsD10.dcp" />
|
||||
<DCCReference Include="..\Modulos\Referencias\PNG_D10.dcp" />
|
||||
<DCCReference Include="..\Modulos\Referencias\RemObjects_Core_D11.dcp" />
|
||||
<DCCReference Include="..\Modulos\Referencias\rtl.dcp" />
|
||||
<DCCReference Include="..\Modulos\Referencias\TB2k_D10.dcp" />
|
||||
<DCCReference Include="..\Modulos\Referencias\tbx_d10.dcp" />
|
||||
<DCCReference Include="..\Modulos\Referencias\vcl.dcp" />
|
||||
<DCCReference Include="..\Modulos\Referencias\vclactnband.dcp" />
|
||||
<DCCReference Include="..\Modulos\Referencias\vcldb.dcp" />
|
||||
<DCCReference Include="..\Modulos\Referencias\vcljpg.dcp" />
|
||||
<DCCReference Include="..\Modulos\Referencias\VclSmp.dcp" />
|
||||
<DCCReference Include="..\Modulos\Referencias\vclx.dcp" />
|
||||
<DCCReference Include="..\Modulos\Referencias\xmlrtl.dcp" />
|
||||
<DCCReference Include="..\Servicios\FactuGES_Intf.pas" />
|
||||
<DCCReference Include="C:\Documents and Settings\Usuario\adortl.dcp" />
|
||||
<DCCReference Include="C:\Documents and Settings\Usuario\cxDataD11.dcp" />
|
||||
<DCCReference Include="C:\Documents and Settings\Usuario\cxEditorsD11.dcp" />
|
||||
<DCCReference Include="C:\Documents and Settings\Usuario\cxExtEditorsD11.dcp" />
|
||||
<DCCReference Include="C:\Documents and Settings\Usuario\cxGridD11.dcp" />
|
||||
<DCCReference Include="C:\Documents and Settings\Usuario\cxLibraryD11.dcp" />
|
||||
<DCCReference Include="C:\Documents and Settings\Usuario\cxPageControlD11.dcp" />
|
||||
<DCCReference Include="C:\Documents and Settings\Usuario\DataAbstract_Core_D11.dcp" />
|
||||
<DCCReference Include="C:\Documents and Settings\Usuario\dbrtl.dcp" />
|
||||
<DCCReference Include="C:\Documents and Settings\Usuario\dclIndyCore.dcp" />
|
||||
<DCCReference Include="C:\Documents and Settings\Usuario\designide.dcp" />
|
||||
<DCCReference Include="C:\Documents and Settings\Usuario\dsnap.dcp" />
|
||||
<DCCReference Include="C:\Documents and Settings\Usuario\dxGDIPlusD11.dcp" />
|
||||
<DCCReference Include="C:\Documents and Settings\Usuario\dxPSCoreD11.dcp" />
|
||||
<DCCReference Include="C:\Documents and Settings\Usuario\dxThemeD11.dcp" />
|
||||
<DCCReference Include="C:\Documents and Settings\Usuario\GUISDK_D11R.dcp" />
|
||||
<DCCReference Include="C:\Documents and Settings\Usuario\IndyCore.dcp" />
|
||||
<DCCReference Include="C:\Documents and Settings\Usuario\IndyProtocols.dcp" />
|
||||
<DCCReference Include="C:\Documents and Settings\Usuario\IndySystem.dcp" />
|
||||
<DCCReference Include="C:\Documents and Settings\Usuario\Jcl.dcp" />
|
||||
<DCCReference Include="C:\Documents and Settings\Usuario\JclVcl.dcp" />
|
||||
<DCCReference Include="C:\Documents and Settings\Usuario\JSDialog100.dcp" />
|
||||
<DCCReference Include="C:\Documents and Settings\Usuario\JvCmpD11R.dcp" />
|
||||
<DCCReference Include="C:\Documents and Settings\Usuario\JvCoreD11R.dcp" />
|
||||
<DCCReference Include="C:\Documents and Settings\Usuario\JvCtrlsD11R.dcp" />
|
||||
<DCCReference Include="C:\Documents and Settings\Usuario\JvDlgsD11R.dcp" />
|
||||
<DCCReference Include="C:\Documents and Settings\Usuario\JvMMD11R.dcp" />
|
||||
<DCCReference Include="C:\Documents and Settings\Usuario\JvNetD11R.dcp" />
|
||||
<DCCReference Include="C:\Documents and Settings\Usuario\JvPageCompsD11R.dcp" />
|
||||
<DCCReference Include="C:\Documents and Settings\Usuario\JvStdCtrlsD11R.dcp" />
|
||||
<DCCReference Include="C:\Documents and Settings\Usuario\JvSystemD11R.dcp" />
|
||||
<DCCReference Include="C:\Documents and Settings\Usuario\pckMD5.dcp" />
|
||||
<DCCReference Include="C:\Documents and Settings\Usuario\pckUCDataConnector.dcp" />
|
||||
<DCCReference Include="C:\Documents and Settings\Usuario\pckUserControl_RT.dcp" />
|
||||
<DCCReference Include="C:\Documents and Settings\Usuario\PluginSDK_D11R.dcp" />
|
||||
<DCCReference Include="C:\Documents and Settings\Usuario\PngComponentsD10.dcp" />
|
||||
<DCCReference Include="C:\Documents and Settings\Usuario\PNG_D10.dcp" />
|
||||
<DCCReference Include="C:\Documents and Settings\Usuario\RemObjects_Core_D11.dcp" />
|
||||
<DCCReference Include="C:\Documents and Settings\Usuario\rtl.dcp" />
|
||||
<DCCReference Include="C:\Documents and Settings\Usuario\TB2k_D10.dcp" />
|
||||
<DCCReference Include="C:\Documents and Settings\Usuario\tbx_d10.dcp" />
|
||||
<DCCReference Include="C:\Documents and Settings\Usuario\vcl.dcp" />
|
||||
<DCCReference Include="C:\Documents and Settings\Usuario\vclactnband.dcp" />
|
||||
<DCCReference Include="C:\Documents and Settings\Usuario\vcldb.dcp" />
|
||||
<DCCReference Include="C:\Documents and Settings\Usuario\vcljpg.dcp" />
|
||||
<DCCReference Include="C:\Documents and Settings\Usuario\VclSmp.dcp" />
|
||||
<DCCReference Include="C:\Documents and Settings\Usuario\vclx.dcp" />
|
||||
<DCCReference Include="C:\Documents and Settings\Usuario\xmlrtl.dcp" />
|
||||
<DCCReference Include="Conexion\uConfigurarConexion.pas">
|
||||
<Form>fConfigurarConexion</Form>
|
||||
<DesignClass>TForm</DesignClass>
|
||||
|
||||
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
@ -1,5 +1,5 @@
|
||||
<?xml version="1.0" encoding="utf-8"?>
|
||||
<TfrxReport Version="4.8.11" 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="40886,5809417824" ScriptLanguage="PascalScript" ScriptText.Text="procedure frxReportOnStartReport(Sender: TfrxComponent); begin Set('Pagina', 0); Set('TotalPaginas', 0); end; procedure Band1OnBeforePrint(Sender: TfrxComponent); begin if not Engine.FinalPass then Set('TotalPaginas', (<TotalPaginas> + 1)); if Engine.FinalPass then Set('Pagina', (<Pagina> + 1)); end; procedure mContinuaOnBeforePrint(Sender: TfrxComponent); begin if Engine.FinalPass then begin //A la vez que salta este salta la asignacion de pagina por lo que no coincide nunca si no suponemos +1 if ((<Pagina> + 1) = <TotalPaginas>) then begin mContinua.Visible := True; end else begin mContinua.Visible := False; end end; end; begin end." ShowProgress="False" StoreInDFM="False" OnStartReport="frxReportOnStartReport" PropData="044C65667403A90003546F70021008446174617365747301010C4E00000020446174615365743D226672784442496E666F726D654C69737461646F52656369626F732220446174615365744E616D653D226672784442496E666F726D654C69737461646F52656369626F73220000095661726961626C657301010C13000000204E616D653D2220506167696E6163696F6E2200010C0E000000204E616D653D22506167696E612200010C14000000204E616D653D22546F74616C506167696E61732200010C11000000204E616D653D2220506572696F646F732200010C31000000204E616D653D224665636861496E6963696F222056616C75653D22262336303B4665636861496E6963696F262336323B2200010C10000000204E616D653D22466563686146696E2200010C17000000204E616D653D22546578746F506172616D6574726F73220000055374796C650100">
|
||||
<TfrxReport Version="4.8.11" 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="41421,678599294" ScriptLanguage="PascalScript" ScriptText.Text="procedure frxReportOnStartReport(Sender: TfrxComponent); begin Set('Pagina', 0); Set('TotalPaginas', 0); end; procedure Band1OnBeforePrint(Sender: TfrxComponent); begin if not Engine.FinalPass then Set('TotalPaginas', (<TotalPaginas> + 1)); if Engine.FinalPass then Set('Pagina', (<Pagina> + 1)); end; procedure mContinuaOnBeforePrint(Sender: TfrxComponent); begin if Engine.FinalPass then begin //A la vez que salta este salta la asignacion de pagina por lo que no coincide nunca si no suponemos +1 if ((<Pagina> + 1) = <TotalPaginas>) then begin mContinua.Visible := True; end else begin mContinua.Visible := False; end end; end; begin end." ShowProgress="False" StoreInDFM="False" OnStartReport="frxReportOnStartReport" PropData="044C65667403A90003546F70021008446174617365747301010C4E00000020446174615365743D226672784442496E666F726D654C69737461646F52656369626F732220446174615365744E616D653D226672784442496E666F726D654C69737461646F52656369626F73220000095661726961626C657301010C13000000204E616D653D2220506167696E6163696F6E2200010C0E000000204E616D653D22506167696E612200010C14000000204E616D653D22546F74616C506167696E61732200010C11000000204E616D653D2220506572696F646F732200010C31000000204E616D653D224665636861496E6963696F222056616C75653D22262336303B4665636861496E6963696F262336323B2200010C10000000204E616D653D22466563686146696E2200010C17000000204E616D653D22546578746F506172616D6574726F73220000055374796C650100">
|
||||
<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">
|
||||
@ -17,24 +17,26 @@
|
||||
</TfrxPageFooter>
|
||||
<TfrxGroupHeader Name="" Height="40" Left="0" Restrictions="2" Top="212" Width="1009,13451" Condition="frxDBInformeListadoRecibos."MES"" ReprintOnNewPage="True">
|
||||
<TfrxMemoView Name="Memo27" Left="0" Top="25" Width="108,78" Height="15" ShowHint="False" Color="13556733" 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" Align="baLeft" Left="296,45718" Top="25" Width="454,34" Height="15" ShowHint="False" Color="13556733" 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" Align="baLeft" Left="750,79718" Top="25" Width="122" Height="15" ShowHint="False" Color="13556733" 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" Align="baLeft" Left="201,45718" Top="25" Width="95" Height="15" ShowHint="False" Color="13556733" 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="871,77953" Top="25" Width="136,06299213" Height="15" ShowHint="False" Color="13556733" 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="Memo28" Align="baLeft" Left="456,45718" Top="25" Width="295" Height="15" ShowHint="False" Color="13556733" 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" Align="baLeft" Left="751,45718" Top="25" Width="122" Height="15" ShowHint="False" Color="13556733" 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="201,45718" Top="25" Width="95" Height="15" ShowHint="False" Color="13556733" 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="873,45718" Top="25" Width="135" Height="15" ShowHint="False" Color="13556733" 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" Align="baLeft" Left="108,78" Top="25" Width="92,67718" Height="15" ShowHint="False" Color="13556733" 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,77953" 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."TITULO"]"/>
|
||||
<TfrxMemoView Name="Memo3" Align="baLeft" Left="296,45718" Top="25" Width="160" Height="15" ShowHint="False" Color="13556733" 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="Cuenta"/>
|
||||
</TfrxGroupHeader>
|
||||
<TfrxMasterData Name="DatosMaestros1" Height="17,007874015748" Left="0" Top="272" Width="1009,13451" Columns="1" ColumnWidth="200" ColumnGap="20" DataSet="frxDBInformeListadoRecibos" DataSetName="frxDBInformeListadoRecibos" RowCount="0">
|
||||
<TfrxMemoView Name="Memo29" Align="baLeft" Left="201,3784252" Top="0" Width="94,86614173" 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=" [frxDBInformeListadoRecibos."FECHA_VENCIMIENTO"]"/>
|
||||
<TfrxMemoView Name="Memo1" Align="baLeft" Left="296,24456693" Top="0" Width="454,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."NOMBRE_CLIENTE"]"/>
|
||||
<TfrxMemoView Name="Memo20" Align="baLeft" Left="750,58456693" Top="0" Width="122" 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."SITUACION"]"/>
|
||||
<TfrxMasterData Name="DatosMaestros1" Height="17,00787402" Left="0" Top="272" Width="1009,13451" Columns="1" ColumnWidth="200" ColumnGap="20" DataSet="frxDBInformeListadoRecibos" DataSetName="frxDBInformeListadoRecibos" RowCount="0">
|
||||
<TfrxMemoView Name="Memo29" Left="201,3784252" Top="0" Width="94,86614173" 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=" [frxDBInformeListadoRecibos."FECHA_VENCIMIENTO"]"/>
|
||||
<TfrxMemoView Name="Memo1" Align="baLeft" Left="456,24456693" Top="0" Width="295" 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."NOMBRE_CLIENTE"] "/>
|
||||
<TfrxMemoView Name="Memo20" Align="baLeft" Left="751,24456693" Top="0" Width="122" 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."SITUACION"]"/>
|
||||
<TfrxMemoView Name="Memo21" Align="baLeft" Left="108,78" Top="0" Width="92,5984252" 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=" [frxDBInformeListadoRecibos."FECHA_EMISION"]"/>
|
||||
<TfrxMemoView Name="Memo18" Left="0" Top="0" Width="108,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."REFERENCIA"]"/>
|
||||
<TfrxMemoView Name="Memo31" Left="871,55905512" Top="0" Width="136,21759" 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."IMPORTE_TOTAL"]"/>
|
||||
<TfrxMemoView Name="Memo31" Align="baLeft" Left="873,24456693" Top="0" Width="135" 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."IMPORTE_TOTAL"]"/>
|
||||
<TfrxMemoView Name="Memo10" Align="baLeft" Left="296,24456693" Top="0" Width="160" 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=" [frxDBInformeListadoRecibos."CUENTA_CLIENTE"]"/>
|
||||
</TfrxMasterData>
|
||||
<TfrxGroupFooter Name="" Height="20,78740402" Left="0" Top="309" Width="1009,13451">
|
||||
<TfrxMemoView Name="Memo6" Left="871,55905512" Top="0,37774772" Width="136,57483" Height="16" ShowHint="False" StretchMode="smMaxHeight" Color="13556733" 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(<frxDBInformeListadoRecibos."IMPORTE_TOTAL">,DatosMaestros1)]"/>
|
||||
<TfrxMemoView Name="Memo53" Left="0" Top="0,37774772" Width="871,55905512" Height="16" ShowHint="False" StretchMode="smMaxHeight" Color="13556733" 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."TITULO"]:"/>
|
||||
<TfrxMemoView Name="Memo6" Align="baLeft" Left="873" Top="0,37774772" Width="135" Height="16" ShowHint="False" StretchMode="smMaxHeight" Color="13556733" 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(<frxDBInformeListadoRecibos."IMPORTE_TOTAL">,DatosMaestros1)]"/>
|
||||
<TfrxMemoView Name="Memo53" Left="0" Top="0,37774772" Width="873" Height="16" ShowHint="False" StretchMode="smMaxHeight" Color="13556733" 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."TITULO"]:"/>
|
||||
</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=""/>
|
||||
</TfrxReportPage>
|
||||
|
||||
@ -1,5 +1,5 @@
|
||||
<?xml version="1.0" encoding="utf-8"?>
|
||||
<TfrxReport Version="4.8.11" 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="40886,5817666088" ScriptLanguage="PascalScript" ScriptText.Text="procedure frxReportOnStartReport(Sender: TfrxComponent); begin Set('Pagina', 0); Set('TotalPaginas', 0); end; procedure Band1OnBeforePrint(Sender: TfrxComponent); begin if not Engine.FinalPass then Set('TotalPaginas', (<TotalPaginas> + 1)); if Engine.FinalPass then Set('Pagina', (<Pagina> + 1)); end; procedure mContinuaOnBeforePrint(Sender: TfrxComponent); begin if Engine.FinalPass then begin //A la vez que salta este salta la asignacion de pagina por lo que no coincide nunca si no suponemos +1 if ((<Pagina> + 1) = <TotalPaginas>) then begin mContinua.Visible := True; end else begin mContinua.Visible := False; end end; end; begin end." ShowProgress="False" StoreInDFM="False" OnStartReport="frxReportOnStartReport" PropData="044C65667403A90003546F70021008446174617365747301010C4E00000020446174615365743D226672784442496E666F726D654C69737461646F52656369626F732220446174615365744E616D653D226672784442496E666F726D654C69737461646F52656369626F73220000095661726961626C657301010C13000000204E616D653D2220506167696E6163696F6E2200010C0E000000204E616D653D22506167696E612200010C14000000204E616D653D22546F74616C506167696E61732200010C11000000204E616D653D2220506572696F646F732200010C31000000204E616D653D224665636861496E6963696F222056616C75653D22262336303B4665636861496E6963696F262336323B2200010C10000000204E616D653D22466563686146696E2200010C17000000204E616D653D22546578746F506172616D6574726F73220000055374796C650100">
|
||||
<TfrxReport Version="4.8.11" 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="41421,6811674653" ScriptLanguage="PascalScript" ScriptText.Text="procedure frxReportOnStartReport(Sender: TfrxComponent); begin Set('Pagina', 0); Set('TotalPaginas', 0); end; procedure Band1OnBeforePrint(Sender: TfrxComponent); begin if not Engine.FinalPass then Set('TotalPaginas', (<TotalPaginas> + 1)); if Engine.FinalPass then Set('Pagina', (<Pagina> + 1)); end; procedure mContinuaOnBeforePrint(Sender: TfrxComponent); begin if Engine.FinalPass then begin //A la vez que salta este salta la asignacion de pagina por lo que no coincide nunca si no suponemos +1 if ((<Pagina> + 1) = <TotalPaginas>) then begin mContinua.Visible := True; end else begin mContinua.Visible := False; end end; end; begin end." ShowProgress="False" StoreInDFM="False" OnStartReport="frxReportOnStartReport" PropData="044C65667403A90003546F70021008446174617365747301010C4E00000020446174615365743D226672784442496E666F726D654C69737461646F52656369626F732220446174615365744E616D653D226672784442496E666F726D654C69737461646F52656369626F73220000095661726961626C657301010C13000000204E616D653D2220506167696E6163696F6E2200010C0E000000204E616D653D22506167696E612200010C14000000204E616D653D22546F74616C506167696E61732200010C11000000204E616D653D2220506572696F646F732200010C31000000204E616D653D224665636861496E6963696F222056616C75653D22262336303B4665636861496E6963696F262336323B2200010C10000000204E616D653D22466563686146696E2200010C17000000204E616D653D22546578746F506172616D6574726F73220000055374796C650100">
|
||||
<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">
|
||||
@ -17,24 +17,26 @@
|
||||
</TfrxPageFooter>
|
||||
<TfrxGroupHeader Name="" Height="40" Left="0" Restrictions="2" Top="255" Width="1009,13451" Condition="frxDBInformeListadoRecibos."NOMBRE_CLIENTE"" ReprintOnNewPage="True">
|
||||
<TfrxMemoView Name="Memo27" Left="0" Top="25" Width="108,78" Height="15" ShowHint="False" Color="13556733" 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" Align="baLeft" Left="296,45718" Top="25" Width="454,34" Height="15" ShowHint="False" Color="13556733" 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" Align="baLeft" Left="750,79718" Top="25" Width="122" Height="15" ShowHint="False" Color="13556733" 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="Memo28" Align="baLeft" Left="456,45718" Top="25" Width="295" Height="15" ShowHint="False" Color="13556733" 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" Align="baLeft" Left="751,45718" Top="25" Width="122" Height="15" ShowHint="False" Color="13556733" 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" Align="baLeft" Left="201,45718" Top="25" Width="95" Height="15" ShowHint="False" Color="13556733" 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="871,77953" Top="25" Width="136,06299213" Height="15" ShowHint="False" Color="13556733" 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="Memo52" Align="baLeft" Left="873,45718" Top="25" Width="135" Height="15" ShowHint="False" Color="13556733" 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" Align="baLeft" Left="108,78" Top="25" Width="92,67718" Height="15" ShowHint="False" Color="13556733" 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,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="[frxDBInformeListadoRecibos."NOMBRE_CLIENTE"]"/>
|
||||
<TfrxMemoView Name="Memo3" Align="baLeft" Left="296,45718" Top="25" Width="160" Height="15" ShowHint="False" Color="13556733" 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="Cuenta"/>
|
||||
</TfrxGroupHeader>
|
||||
<TfrxMasterData Name="DatosMaestros1" Height="17,007874015748" Left="0" Top="315" Width="1009,13451" Columns="1" ColumnWidth="200" ColumnGap="20" DataSet="frxDBInformeListadoRecibos" DataSetName="frxDBInformeListadoRecibos" RowCount="0">
|
||||
<TfrxMasterData Name="DatosMaestros1" Height="17,00787402" Left="0" Top="315" Width="1009,13451" Columns="1" ColumnWidth="200" ColumnGap="20" DataSet="frxDBInformeListadoRecibos" DataSetName="frxDBInformeListadoRecibos" RowCount="0">
|
||||
<TfrxMemoView Name="Memo29" Align="baLeft" Left="201,3784252" Top="0" Width="94,86614173" 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=" [frxDBInformeListadoRecibos."FECHA_VENCIMIENTO"]"/>
|
||||
<TfrxMemoView Name="Memo1" Align="baLeft" Left="296,24456693" Top="0" Width="454,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."NOMBRE_CLIENTE"]"/>
|
||||
<TfrxMemoView Name="Memo20" Align="baLeft" Left="750,58456693" Top="0" Width="122" 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."SITUACION"]"/>
|
||||
<TfrxMemoView Name="Memo1" Align="baLeft" Left="456,24456693" Top="0" Width="295" 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."NOMBRE_CLIENTE"]"/>
|
||||
<TfrxMemoView Name="Memo20" Align="baLeft" Left="751,24456693" Top="0" Width="122" 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."SITUACION"]"/>
|
||||
<TfrxMemoView Name="Memo21" Align="baLeft" Left="108,78" Top="0" Width="92,5984252" 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."FECHA_EMISION"]"/>
|
||||
<TfrxMemoView Name="Memo18" Left="0" Top="0" Width="108,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."REFERENCIA"]"/>
|
||||
<TfrxMemoView Name="Memo31" Left="871,55905512" Top="0" Width="136,21759" 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="[frxDBInformeListadoRecibos."IMPORTE_TOTAL"]"/>
|
||||
<TfrxMemoView Name="Memo31" Align="baLeft" Left="873,24456693" Top="0" Width="135" 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."IMPORTE_TOTAL"]"/>
|
||||
<TfrxMemoView Name="Memo11" Align="baLeft" Left="296,24456693" Top="0" Width="160" 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=" [frxDBInformeListadoRecibos."CUENTA_CLIENTE"]"/>
|
||||
</TfrxMasterData>
|
||||
<TfrxGroupFooter Name="" Height="20,78740402" Left="0" Top="352" Width="1009,13451">
|
||||
<TfrxMemoView Name="Memo6" Left="871,55905512" Top="0,37774772" Width="136,57483" Height="16" ShowHint="False" StretchMode="smMaxHeight" Color="13556733" 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(<frxDBInformeListadoRecibos."IMPORTE_TOTAL">,DatosMaestros1)]"/>
|
||||
<TfrxMemoView Name="Memo53" Left="0" Top="0,37774772" Width="871,55905512" Height="16" ShowHint="False" StretchMode="smMaxHeight" Color="13556733" 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."TITULO"]:"/>
|
||||
<TfrxMemoView Name="Memo6" Align="baLeft" Left="873" Top="0,37774772" Width="135" Height="16" ShowHint="False" StretchMode="smMaxHeight" Color="13556733" 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(<frxDBInformeListadoRecibos."IMPORTE_TOTAL">,DatosMaestros1)]"/>
|
||||
<TfrxMemoView Name="Memo53" Left="0" Top="0,37774772" Width="873" Height="16" ShowHint="False" StretchMode="smMaxHeight" Color="13556733" 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."TITULO"]:"/>
|
||||
</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="22,67718" Left="0" Top="212" Width="1009,13451" Condition="frxDBInformeListadoRecibos."MES"">
|
||||
|
||||
@ -387,7 +387,6 @@ inherited frViewClienteDatosComerciales: TfrViewClienteDatosComerciales
|
||||
AutoAligns = [aaVertical]
|
||||
AlignHorz = ahClient
|
||||
Caption = 'Datos para facturaci'#243'n'
|
||||
Visible = False
|
||||
object dxLayoutControl1Item6: TdxLayoutItem
|
||||
AutoAligns = [aaVertical]
|
||||
AlignHorz = ahClient
|
||||
|
||||
@ -84,7 +84,7 @@ begin
|
||||
|
||||
GetClassFactory('srvReferencias').CreateInstance(AClientID, Intf);
|
||||
AReferenciasService := Intf as IsrvReferencias;
|
||||
Result := AReferenciasService.DarNuevaReferencia(ACodigoReferencia, -1, ID_TIENDA)
|
||||
Result := AReferenciasService.DarNuevaReferencia(ACodigoReferencia, ID_EMPRESA, ID_TIENDA)
|
||||
end;
|
||||
|
||||
function TBizContratosClienteServer.IncrementarReferencia: Boolean;
|
||||
@ -99,7 +99,7 @@ begin
|
||||
|
||||
GetClassFactory('srvReferencias').CreateInstance(AClientID, Intf);
|
||||
AReferenciasService := Intf as IsrvReferencias;
|
||||
Result := AReferenciasService.IncrementarValorReferencia(ACodigoReferencia, Self.REFERENCIA, -1, ID_TIENDA)
|
||||
Result := AReferenciasService.IncrementarValorReferencia(ACodigoReferencia, Self.REFERENCIA, ID_EMPRESA, ID_TIENDA)
|
||||
end;
|
||||
|
||||
initialization
|
||||
|
||||
@ -66,7 +66,6 @@ object fEditorFormaPago: TfEditorFormaPago
|
||||
Font.Name = 'MS Sans Serif'
|
||||
Font.Style = [fsBold]
|
||||
ParentFont = False
|
||||
Visible = False
|
||||
end
|
||||
object Bevel3: TBevel
|
||||
Left = 113
|
||||
@ -74,7 +73,6 @@ object fEditorFormaPago: TfEditorFormaPago
|
||||
Width = 272
|
||||
Height = 10
|
||||
Shape = bsBottomLine
|
||||
Visible = False
|
||||
end
|
||||
object Bevel4: TBevel
|
||||
Left = 8
|
||||
@ -134,7 +132,6 @@ object fEditorFormaPago: TfEditorFormaPago
|
||||
Height = 23
|
||||
Action = actAnadir
|
||||
TabOrder = 2
|
||||
Visible = False
|
||||
end
|
||||
object bEliminar: TButton
|
||||
Left = 290
|
||||
@ -143,7 +140,6 @@ object fEditorFormaPago: TfEditorFormaPago
|
||||
Height = 23
|
||||
Action = actEliminar
|
||||
TabOrder = 3
|
||||
Visible = False
|
||||
end
|
||||
object ListaFormasPago: TcxGrid
|
||||
Left = 32
|
||||
@ -151,7 +147,6 @@ object fEditorFormaPago: TfEditorFormaPago
|
||||
Width = 252
|
||||
Height = 150
|
||||
TabOrder = 1
|
||||
Visible = False
|
||||
LookAndFeel.Kind = lfStandard
|
||||
LookAndFeel.NativeStyle = True
|
||||
object ListaFormasPagoDBTableView1: TcxGridDBTableView
|
||||
|
||||
@ -155,7 +155,7 @@ procedure TfEditorFormaPago.actAceptarExecute(Sender: TObject);
|
||||
begin
|
||||
if (ListaFormasPago.ActiveView.DataController.RecordCount = 0) then
|
||||
if (ShowConfirmMessage('Forma de pago sin plazos', 'No ha indicado plazos de pago para esta forma de pago por lo tanto no se podrán generarar los recibos correspondientes.' + #10#13 + '¿Desea continuar guardando la forma de pago?') = IDNO) then
|
||||
Exit;
|
||||
Exit;
|
||||
|
||||
if FController.Guardar(FFormaPago) then
|
||||
actCerrar.Execute;
|
||||
|
||||
@ -84,7 +84,7 @@ begin
|
||||
|
||||
GetClassFactory('srvReferencias').CreateInstance(AClientID, Intf);
|
||||
AReferenciasService := Intf as IsrvReferencias;
|
||||
Result := AReferenciasService.DarNuevaReferencia(ACodigoReferencia, -1, ID_TIENDA)
|
||||
Result := AReferenciasService.DarNuevaReferencia(ACodigoReferencia, ID_EMPRESA, ID_TIENDA)
|
||||
end;
|
||||
|
||||
function TBizPresupuestosClienteServer.IncrementarReferencia: Boolean;
|
||||
@ -99,7 +99,7 @@ begin
|
||||
|
||||
GetClassFactory('srvReferencias').CreateInstance(AClientID, Intf);
|
||||
AReferenciasService := Intf as IsrvReferencias;
|
||||
Result := AReferenciasService.IncrementarValorReferencia(ACodigoReferencia, Self.REFERENCIA, -1, ID_TIENDA)
|
||||
Result := AReferenciasService.IncrementarValorReferencia(ACodigoReferencia, Self.REFERENCIA, ID_EMPRESA, ID_TIENDA)
|
||||
end;
|
||||
|
||||
initialization
|
||||
|
||||
@ -272,8 +272,10 @@ object RptRecibosCliente: TRptRecibosCliente
|
||||
'CIEMBRE - '#39' || extract (year from fecha_vencimiento)'#10'end as TITU' +
|
||||
'LO,'#10'REFERENCIA, ID_CLIENTE, NOMBRE_CLIENTE, SITUACION, NIF_CIF ' +
|
||||
'as NIF_CIF_CLIENTE, fecha_vencimiento, FECHA_EMISION,'#10'IMPORTE_TO' +
|
||||
'TAL'#10#10'from V_recibos_cliente'#10'where {where}'#10'order by ANO, MES, NOM' +
|
||||
'BRE_CLIENTE'#10
|
||||
'TAL, COALESCE(ENTIDAD_CLIENTE || '#39'-'#39' || SUCURSAL_CLIENTE || '#39'-'#39' ' +
|
||||
'|| DC_CLIENTE || '#39'-'#39' || CUENTA_CLIENTE,'#39'SIN DATOS'#39') as CUENTA_CL' +
|
||||
'IENTE'#10#10'from V_recibos_cliente'#10'where {where}'#10'order by ANO, MES, N' +
|
||||
'OMBRE_CLIENTE'#10
|
||||
StatementType = stSQL
|
||||
ColumnMappings = <
|
||||
item
|
||||
@ -323,6 +325,10 @@ object RptRecibosCliente: TRptRecibosCliente
|
||||
item
|
||||
DatasetField = 'ANO'
|
||||
TableField = 'ANO'
|
||||
end
|
||||
item
|
||||
DatasetField = 'CUENTA_CLIENTE'
|
||||
TableField = 'CUENTA_CLIENTE'
|
||||
end>
|
||||
end>
|
||||
Name = 'InformeListadoRecibos'
|
||||
@ -379,6 +385,11 @@ object RptRecibosCliente: TRptRecibosCliente
|
||||
item
|
||||
Name = 'IMPORTE_TOTAL'
|
||||
DataType = datCurrency
|
||||
end
|
||||
item
|
||||
Name = 'CUENTA_CLIENTE'
|
||||
DataType = datString
|
||||
Size = 63
|
||||
end>
|
||||
end
|
||||
item
|
||||
@ -913,21 +924,15 @@ object RptRecibosCliente: TRptRecibosCliente
|
||||
EngineOptions.DoublePass = True
|
||||
IniFile = '\Software\Fast Reports'
|
||||
PreviewOptions.Buttons = [pbPrint, pbLoad, pbSave, pbExport, pbZoom, pbFind, pbOutline, pbPageSetup, pbTools, pbEdit, pbNavigator, pbExportQuick]
|
||||
PreviewOptions.OutlineWidth = 180
|
||||
PreviewOptions.Zoom = 1.000000000000000000
|
||||
PrintOptions.Printer = 'Default'
|
||||
PrintOptions.Printer = 'Por defecto'
|
||||
PrintOptions.PrintOnSheet = 0
|
||||
ReportOptions.CreateDate = 37871.995398692100000000
|
||||
ReportOptions.Description.Strings = (
|
||||
'Demonstrates how to create simple list report.')
|
||||
ReportOptions.LastChange = 39638.693800335650000000
|
||||
ReportOptions.VersionBuild = '1'
|
||||
ReportOptions.VersionMajor = '12'
|
||||
ReportOptions.VersionMinor = '13'
|
||||
ReportOptions.VersionRelease = '1'
|
||||
ReportOptions.CreateDate = 37800.807714351900000000
|
||||
ReportOptions.LastChange = 41421.674181423610000000
|
||||
ScriptLanguage = 'PascalScript'
|
||||
ShowProgress = False
|
||||
StoreInDFM = False
|
||||
OnStartReport = 'frxReportOnStartReport'
|
||||
Left = 169
|
||||
Top = 16
|
||||
end
|
||||
@ -998,6 +1003,10 @@ object RptRecibosCliente: TRptRecibosCliente
|
||||
Name = 'ID_EMPRESA'
|
||||
DataType = datInteger
|
||||
end
|
||||
item
|
||||
Name = 'ANO'
|
||||
DataType = datSmallInt
|
||||
end
|
||||
item
|
||||
Name = 'MES'
|
||||
DataType = datSmallInt
|
||||
@ -1042,6 +1051,11 @@ object RptRecibosCliente: TRptRecibosCliente
|
||||
item
|
||||
Name = 'IMPORTE_TOTAL'
|
||||
DataType = datCurrency
|
||||
end
|
||||
item
|
||||
Name = 'CUENTA_CLIENTE'
|
||||
DataType = datString
|
||||
Size = 63
|
||||
end>
|
||||
Params = <>
|
||||
LogChanges = False
|
||||
|
||||
@ -30,7 +30,6 @@
|
||||
<BorlandProject>
|
||||
<BorlandProject><Delphi.Personality><Parameters><Parameters Name="UseLauncher">False</Parameters><Parameters Name="LoadAllSymbols">True</Parameters><Parameters Name="LoadUnspecifiedSymbols">False</Parameters></Parameters><VersionInfo><VersionInfo Name="IncludeVerInfo">True</VersionInfo><VersionInfo Name="AutoIncBuild">False</VersionInfo><VersionInfo Name="MajorVer">2</VersionInfo><VersionInfo Name="MinorVer">5</VersionInfo><VersionInfo Name="Release">8</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.5.8.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.5.8.0</VersionInfoKeys><VersionInfoKeys Name="Comments"></VersionInfoKeys><VersionInfoKeys Name="CompileDate">lunes, 20 de mayo de 2013 10:48</VersionInfoKeys></VersionInfoKeys><Excluded_Packages>
|
||||
|
||||
|
||||
<Excluded_Packages Name="C:\Documents and Settings\All Users\Documentos\RAD Studio\5.0\Bpl\dxPScxScheduler2LnkD11.bpl">File C:\Documents and Settings\All Users\Documentos\RAD Studio\5.0\Bpl\dxPScxScheduler2LnkD11.bpl not found</Excluded_Packages>
|
||||
</Excluded_Packages><Source><Source Name="MainSource">FactuGES_Server.dpr</Source></Source></Delphi.Personality></BorlandProject></BorlandProject>
|
||||
</ProjectExtensions>
|
||||
|
||||
Loading…
Reference in New Issue
Block a user