Acana_Interiorismo/FactuGES2
2
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Se revisa la version con las dos nuevas empresas para que coja bien la tienda

Browse Source 
git-svn-id: https://192.168.0.254/svn/Proyectos.Acana_FactuGES2/trunk@579 f4e31baf-9722-1c47-927c-6f952f962d4b
This commit is contained in:
roberto 2013-07-22 09:38:30 +00:00
parent ecda5c3a8d
commit cd5b8f18b7
31 changed files with 1048 additions and 422 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
Source/ApplicationBase/Empresas/Servidor/srvEmpresas_Impl.dfm
View File

@ -21,7 +21,7 @@ object srvEmpresas: TsrvEmpresas
Connection = 'IBX' Connection = 'IBX'
ConnectionType = 'Interbase' ConnectionType = 'Interbase'
Default = True Default = True
TargetTable = 'EMPRESAS_TIENDAS' TargetTable = 'V_EMPRESAS_TIENDAS'
Name = 'IBX' Name = 'IBX'
StatementType = stAutoSQL StatementType = stAutoSQL
ColumnMappings = < ColumnMappings = <

96
Source/Base/Base.dproj
View File

@ -58,55 +58,55 @@
<DelphiCompile Include="Base.dpk"> <DelphiCompile Include="Base.dpk">
<MainSource>MainSource</MainSource> <MainSource>MainSource</MainSource>
</DelphiCompile> </DelphiCompile>
<DCCReference Include="..\Modulos\Articulos\adortl.dcp" />
<DCCReference Include="..\Modulos\Articulos\cxDataD11.dcp" />
<DCCReference Include="..\Modulos\Articulos\cxEditorsD11.dcp" />
<DCCReference Include="..\Modulos\Articulos\cxExtEditorsD11.dcp" />
<DCCReference Include="..\Modulos\Articulos\cxGridD11.dcp" />
<DCCReference Include="..\Modulos\Articulos\cxLibraryD11.dcp" />
<DCCReference Include="..\Modulos\Articulos\cxPageControlD11.dcp" />
<DCCReference Include="..\Modulos\Articulos\DataAbstract_Core_D11.dcp" />
<DCCReference Include="..\Modulos\Articulos\dbrtl.dcp" />
<DCCReference Include="..\Modulos\Articulos\dclIndyCore.dcp" />
<DCCReference Include="..\Modulos\Articulos\designide.dcp" />
<DCCReference Include="..\Modulos\Articulos\dsnap.dcp" />
<DCCReference Include="..\Modulos\Articulos\dxGDIPlusD11.dcp" />
<DCCReference Include="..\Modulos\Articulos\dxPSCoreD11.dcp" />
<DCCReference Include="..\Modulos\Articulos\dxThemeD11.dcp" />
<DCCReference Include="..\Modulos\Articulos\GUISDK_D11R.dcp" />
<DCCReference Include="..\Modulos\Articulos\IndyCore.dcp" />
<DCCReference Include="..\Modulos\Articulos\IndyProtocols.dcp" />
<DCCReference Include="..\Modulos\Articulos\IndySystem.dcp" />
<DCCReference Include="..\Modulos\Articulos\Jcl.dcp" />
<DCCReference Include="..\Modulos\Articulos\JclVcl.dcp" />
<DCCReference Include="..\Modulos\Articulos\JSDialog100.dcp" />
<DCCReference Include="..\Modulos\Articulos\JvCmpD11R.dcp" />
<DCCReference Include="..\Modulos\Articulos\JvCoreD11R.dcp" />
<DCCReference Include="..\Modulos\Articulos\JvCtrlsD11R.dcp" />
<DCCReference Include="..\Modulos\Articulos\JvDlgsD11R.dcp" />
<DCCReference Include="..\Modulos\Articulos\JvMMD11R.dcp" />
<DCCReference Include="..\Modulos\Articulos\JvNetD11R.dcp" />
<DCCReference Include="..\Modulos\Articulos\JvPageCompsD11R.dcp" />
<DCCReference Include="..\Modulos\Articulos\JvStdCtrlsD11R.dcp" />
<DCCReference Include="..\Modulos\Articulos\JvSystemD11R.dcp" />
<DCCReference Include="..\Modulos\Articulos\pckMD5.dcp" />
<DCCReference Include="..\Modulos\Articulos\pckUCDataConnector.dcp" />
<DCCReference Include="..\Modulos\Articulos\pckUserControl_RT.dcp" />
<DCCReference Include="..\Modulos\Articulos\PluginSDK_D11R.dcp" />
<DCCReference Include="..\Modulos\Articulos\PngComponentsD10.dcp" />
<DCCReference Include="..\Modulos\Articulos\PNG_D10.dcp" />
<DCCReference Include="..\Modulos\Articulos\RemObjects_Core_D11.dcp" />
<DCCReference Include="..\Modulos\Articulos\rtl.dcp" />
<DCCReference Include="..\Modulos\Articulos\TB2k_D10.dcp" />
<DCCReference Include="..\Modulos\Articulos\tbx_d10.dcp" />
<DCCReference Include="..\Modulos\Articulos\vcl.dcp" />
<DCCReference Include="..\Modulos\Articulos\vclactnband.dcp" />
<DCCReference Include="..\Modulos\Articulos\vcldb.dcp" />
<DCCReference Include="..\Modulos\Articulos\vcljpg.dcp" />
<DCCReference Include="..\Modulos\Articulos\VclSmp.dcp" />
<DCCReference Include="..\Modulos\Articulos\vclx.dcp" />
<DCCReference Include="..\Modulos\Articulos\xmlrtl.dcp" />
<DCCReference Include="..\Servicios\FactuGES_Intf.pas" /> <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"> <DCCReference Include="Conexion\uConfigurarConexion.pas">
<Form>fConfigurarConexion</Form> <Form>fConfigurarConexion</Form>
<DesignClass>TForm</DesignClass> <DesignClass>TForm</DesignClass>

BIN
Source/Base/Base.res
View File

Binary file not shown.

82
Source/Informes/3/3/InfFacturaCliente.fr3 Normal file
View File

File diff suppressed because one or more lines are too long

46
Source/Informes/3/InfAlbaranCliente.fr3 Normal file
View File

File diff suppressed because one or more lines are too long

63
Source/Informes/3/InfComision.fr3 Normal file
View File

@ -0,0 +1,63 @@
<?xml version="1.0" encoding="utf-8"?>
<TfrxReport Version="4.3" DotMatrixReport="False" EngineOptions.DoublePass="True" IniFile="\Software\Fast Reports" PreviewOptions.Buttons="4095" PreviewOptions.Zoom="1" PrintOptions.Printer="Default" PrintOptions.PrintOnSheet="0" ReportOptions.CreateDate="39589,7948251157" ReportOptions.Description.Text="" ReportOptions.LastChange="39590,5636514352" ScriptLanguage="PascalScript" ScriptText.Text="procedure frxReportOnStartReport(Sender: TfrxComponent);&#13;&#10;begin&#13;&#10; Set('Pagina', 0);&#13;&#10; Set('TotalPaginas', 0);&#13;&#10;end;&#13;&#10; &#13;&#10;procedure PageHeader1OnBeforePrint(Sender: TfrxComponent);&#13;&#10;begin&#13;&#10; if not Engine.FinalPass then&#13;&#10; Set('TotalPaginas', (&#60;TotalPaginas&#62; + 1));&#13;&#10;&#13;&#10; if Engine.FinalPass then&#13;&#10; Set('Pagina', (&#60;Pagina&#62; + 1));&#13;&#10;end;&#13;&#10;&#13;&#10;procedure Header1OnBeforePrint(Sender: TfrxComponent);&#13;&#10;begin&#13;&#10; if Engine.FinalPass then&#13;&#10; ColumnHeader1.Visible := False;&#13;&#10;end;&#13;&#10;&#13;&#10;begin&#13;&#10;&#13;&#10;end." ShowProgress="False" StoreInDFM="False" OnStartReport="frxReportOnStartReport" PropData="044C65667403A90003546F70021008446174617365747301010C3400000020446174615365743D22667278444243616265636572612220446174615365744E616D653D22667278444243616265636572612200010C3600000020446174615365743D226672784442446574616C6C6573312220446174615365744E616D653D226672784442446574616C6C6573312200010C3600000020446174615365743D226672784442446574616C6C6573322220446174615365744E616D653D226672784442446574616C6C657332220000095661726961626C657301010C13000000204E616D653D2220506167696E6163696F6E2200010C0E000000204E616D653D22506167696E612200010C14000000204E616D653D22546F74616C506167696E6173220000055374796C650100">
<TfrxDataPage Name="Data" Height="1000" Left="0" Top="0" Width="1000"/>
<TfrxReportPage Name="Page1" PaperWidth="210" PaperHeight="297" PaperSize="9" LeftMargin="10" RightMargin="10" TopMargin="10" BottomMargin="10" ColumnWidth="0" ColumnPositions.Text="" HGuides.Text="" VGuides.Text="">
<TfrxMasterData Name="MasterData1" Height="28" Left="0" Top="312" Width="718,1107" ColumnWidth="0" ColumnGap="0" DataSet="frxDBDetalles1" DataSetName="frxDBDetalles1" RowCount="0" Stretched="True">
<TfrxMemoView Name="Memo14" Left="0" Top="0" Width="718,15" Height="26,45669291" DisplayFormat.DecimalSeparator="," Font.Charset="0" Font.Color="1310975" Font.Height="-12" Font.Name="Tahoma" Font.Style="1" Frame.Typ="15" HAlign="haCenter" ParentFont="False" VAlign="vaCenter" Text=""/>
<TfrxMemoView Name="Memo29" Left="4" Top="3" Width="104" Height="16" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="0" Font.Height="-13" Font.Name="Arial" Font.Style="0" ParentFont="False" Text="[frxDBDetalles1.&#34;REFERENCIA&#34;]"/>
<TfrxMemoView Name="Memo30" Left="615" Top="3" Width="100" Height="16" DisplayFormat.DecimalSeparator="," DisplayFormat.FormatStr="#,0.00 € " DisplayFormat.Kind="fkNumeric" Font.Charset="1" Font.Color="0" Font.Height="-13" Font.Name="Arial" Font.Style="0" HAlign="haRight" ParentFont="False" Text="[frxDBDetalles1.&#34;BASE_IMPONIBLE&#34;]"/>
<TfrxMemoView Name="Memo2" Left="117" Top="3" Width="84" Height="16" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="0" Font.Height="-13" Font.Name="Arial" Font.Style="0" ParentFont="False" Text="[frxDBDetalles1.&#34;FECHA_FACTURA&#34;]"/>
<TfrxMemoView Name="Memo3" Left="213" Top="3" Width="388" Height="16" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="0" Font.Height="-13" Font.Name="Arial" Font.Style="0" ParentFont="False" Text="[frxDBDetalles1.&#34;NOMBRE&#34;]"/>
<TfrxLineView Name="LineaCorta0" Left="110" Top="0" Width="0" Height="26" Frame.Typ="1"/>
<TfrxLineView Name="Line1" Left="204" Top="0" Width="0" Height="26" Frame.Typ="1"/>
<TfrxLineView Name="Line2" Left="610" Top="0" Width="0" Height="26" Frame.Typ="1"/>
</TfrxMasterData>
<TfrxPageFooter Name="PageFooter1" Height="20" Left="0" Top="688" Width="718,1107">
<TfrxMemoView Name="Memo1" Left="642,5201" Top="0" Width="75,5906" Height="18,89765" HAlign="haRight" Text="[Page#]"/>
</TfrxPageFooter>
<TfrxPageHeader Name="PageHeader1" Height="176" Left="0" Top="16" Width="718,1107" OnBeforePrint="PageHeader1OnBeforePrint">
<TfrxMemoView Name="Memo15" Left="348" Top="4" Width="366,39394" Height="28,25201" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="11053757" Font.Height="-27" Font.Name="Tahoma" Font.Style="1" Frame.Color="14211288" HAlign="haCenter" ParentFont="False" VAlign="vaCenter" Text="Comisiones de vendedores"/>
<TfrxMemoView Name="Memo5" Left="88" Top="46" Width="200" Height="20" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="0" Font.Height="-13" Font.Name="Tahoma" Font.Style="0" ParentFont="False" Text="[frxDBCabecera.&#34;REFERENCIA&#34;]"/>
<TfrxMemoView Name="Memo18" Left="14" Top="11" Width="68,47248" Height="18,89765" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="0" Font.Height="-13" Font.Name="Tahoma" Font.Style="0" ParentFont="False" Text="Empresa:"/>
<TfrxMemoView Name="Memo7" Left="81,25201" Top="11" Width="253,63791" Height="18,89765" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="0" Font.Height="-13" Font.Name="Tahoma" Font.Style="1" ParentFont="False" Text="Empresa"/>
<TfrxMemoView Name="Memo6" Left="12" Top="46" Width="76,47248" Height="18,89765" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="0" Font.Height="-13" Font.Name="Tahoma" Font.Style="0" ParentFont="False" Text="Referencia:"/>
<TfrxMemoView Name="Memo9" Left="12" Top="104" Width="76,47248" Height="18,89765" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="0" Font.Height="-13" Font.Name="Tahoma" Font.Style="0" ParentFont="False" Text="Página nº:"/>
<TfrxMemoView Name="Memo10" Left="88,25201" Top="104" Width="181,63791" Height="18,89765" Font.Charset="1" Font.Color="0" Font.Height="-13" Font.Name="Tahoma" Font.Style="0" ParentFont="False" Text="[&#60;Pagina&#62;] / [&#60;TotalPaginas&#62;]"/>
<TfrxMemoView Name="Memo8" Left="88" Top="66" Width="200" Height="20" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="0" Font.Height="-13" Font.Name="Tahoma" Font.Style="0" ParentFont="False" Text="[frxDBCabecera.&#34;FECHA&#34;]"/>
<TfrxMemoView Name="Memo11" Left="12" Top="66" Width="76,47248" Height="18,89765" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="0" Font.Height="-13" Font.Name="Tahoma" Font.Style="0" ParentFont="False" Text="Fecha:"/>
<TfrxMemoView Name="Memo12" Left="88" Top="84" Width="628" Height="20" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="0" Font.Height="-13" Font.Name="Tahoma" Font.Style="0" ParentFont="False" Text="[frxDBCabecera.&#34;DESCRIPCION&#34;]"/>
<TfrxMemoView Name="Memo13" Left="12" Top="84" Width="76,47248" Height="18,89765" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="0" Font.Height="-13" Font.Name="Tahoma" Font.Style="0" ParentFont="False" Text="Descripción:"/>
<TfrxMemoView Name="Memo27" Left="0" Top="138,92981" Width="714,15" Height="32" DisplayFormat.DecimalSeparator="," Font.Charset="0" Font.Color="1310975" Font.Height="-15" Font.Name="Tahoma" Font.Style="1" ParentFont="False" VAlign="vaCenter" Text="Facturas asociadas a la liquidación "/>
</TfrxPageHeader>
<TfrxGroupHeader Name="GroupHeader2" Height="0" Left="0" Top="292" Width="718,1107" Condition="frxDBDetalles1.&#34;ID_COMISION_LIQUIDADA&#34;"/>
<TfrxGroupFooter Name="GroupFooter2" Height="26,45669291" Left="0" Top="360" Width="718,1107">
<TfrxMemoView Name="Memo19" Left="0" Top="0" Width="719" Height="26,45669291" Color="14672103" DisplayFormat.DecimalSeparator="," Font.Charset="0" Font.Color="1310975" Font.Height="-12" Font.Name="Tahoma" Font.Style="1" Frame.Typ="15" HAlign="haCenter" ParentFont="False" VAlign="vaCenter" Text=""/>
<TfrxMemoView Name="Memo20" Left="140" Top="3" Width="576" Height="16" DisplayFormat.DecimalSeparator="," DisplayFormat.FormatStr="#,0.00 € " DisplayFormat.Kind="fkNumeric" Font.Charset="1" Font.Color="1310975" Font.Height="-13" Font.Name="Tahoma" Font.Style="1" HAlign="haRight" ParentFont="False" Text="Importe total de facturas: [SUM(&#60;frxDBDetalles1.&#34;BASE_IMPONIBLE&#34;&#62;,MasterData1)]"/>
</TfrxGroupFooter>
<TfrxMasterData Name="MasterData2" Height="26,47" Left="0" Top="532" Width="718,1107" ColumnWidth="0" ColumnGap="0" DataSet="frxDBDetalles2" DataSetName="frxDBDetalles2" RowCount="0">
<TfrxMemoView Name="Memo34" Left="0" Top="0" Width="718,15" Height="26,45669291" DisplayFormat.DecimalSeparator="," Font.Charset="0" Font.Color="1310975" Font.Height="-12" Font.Name="Tahoma" Font.Style="1" Frame.Typ="15" HAlign="haCenter" ParentFont="False" VAlign="vaCenter" Text=""/>
<TfrxMemoView Name="Memo4" Left="4" Top="5" Width="476" Height="16" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="0" Font.Height="-13" Font.Name="Arial" Font.Style="0" ParentFont="False" Text="[frxDBDetalles2.&#34;NOMBRE&#34;]"/>
<TfrxMemoView Name="Memo24" Left="505" Top="4" Width="60" Height="16" DisplayFormat.DecimalSeparator="," DisplayFormat.FormatStr="#,0.00 %" DisplayFormat.Kind="fkNumeric" Font.Charset="1" Font.Color="0" Font.Height="-13" Font.Name="Arial" Font.Style="0" HAlign="haRight" ParentFont="False" Text="[frxDBDetalles2.&#34;COMISION&#34;]"/>
<TfrxMemoView Name="Memo25" Left="588" Top="4" Width="128" Height="16" DisplayFormat.DecimalSeparator="," DisplayFormat.FormatStr="#,0.00 € " DisplayFormat.Kind="fkNumeric" Font.Charset="1" Font.Color="0" Font.Height="-13" Font.Name="Arial" Font.Style="0" HAlign="haRight" ParentFont="False" Text="[frxDBDetalles2.&#34;IMPORTE_TOTAL&#34;]"/>
<TfrxLineView Name="Line3" Left="486" Top="0" Width="0" Height="26" Frame.Typ="1"/>
<TfrxLineView Name="Line4" Left="580" Top="0" Width="0" Height="26" Frame.Typ="1"/>
</TfrxMasterData>
<TfrxGroupHeader Name="GroupHeader3" Height="0" Left="0" Top="512" Width="718,1107" Condition="frxDBDetalles2.&#34;ID_COMISION&#34;"/>
<TfrxGroupFooter Name="GroupFooter3" Height="48" Left="0" Top="580" Width="718,1107">
<TfrxMemoView Name="Memo26" Left="0" Top="0" Width="719" Height="26,45669291" Color="14672103" DisplayFormat.DecimalSeparator="," Font.Charset="0" Font.Color="1310975" Font.Height="-12" Font.Name="Tahoma" Font.Style="1" Frame.Typ="15" HAlign="haCenter" ParentFont="False" VAlign="vaCenter" Text=""/>
<TfrxMemoView Name="Memo31" Left="140" Top="4" Width="576" Height="16" DisplayFormat.DecimalSeparator="," DisplayFormat.FormatStr="#,0.00 € " DisplayFormat.Kind="fkNumeric" Font.Charset="1" Font.Color="1310975" Font.Height="-13" Font.Name="Tahoma" Font.Style="1" HAlign="haRight" ParentFont="False" Text="Importe total de comisiones: [SUM(&#60;frxDBDetalles2.&#34;IMPORTE_TOTAL&#34;&#62;,MasterData2)]"/>
</TfrxGroupFooter>
<TfrxColumnHeader Name="ColumnHeader1" Height="20" Left="0" Top="212" Width="718,1107">
<TfrxMemoView Name="Memo28" Align="baBottom" Left="0" Top="0" Width="110,15" Height="20" Color="14672103" DisplayFormat.DecimalSeparator="," Font.Charset="0" Font.Color="1310975" Font.Height="-12" Font.Name="Tahoma" Font.Style="1" Frame.Typ="15" HAlign="haCenter" ParentFont="False" VAlign="vaCenter" Text="Ref. factura"/>
<TfrxMemoView Name="Memo17" Align="baBottom" Left="610" Top="0" Width="108" Height="20" Color="14672103" DisplayFormat.DecimalSeparator="," Font.Charset="0" Font.Color="1310975" Font.Height="-12" Font.Name="Tahoma" Font.Style="1" Frame.Typ="15" HAlign="haRight" ParentFont="False" VAlign="vaCenter" Text="Base imponible"/>
<TfrxMemoView Name="Memo16" Align="baBottom" Left="110" Top="0" Width="94,15" Height="20" Color="14672103" DisplayFormat.DecimalSeparator="," Font.Charset="0" Font.Color="1310975" Font.Height="-12" Font.Name="Tahoma" Font.Style="1" Frame.Typ="15" HAlign="haCenter" ParentFont="False" VAlign="vaCenter" Text="Fecha"/>
<TfrxMemoView Name="Memo33" Align="baBottom" Left="204" Top="0" Width="406,15" Height="20" Color="14672103" DisplayFormat.DecimalSeparator="," Font.Charset="0" Font.Color="1310975" Font.Height="-12" Font.Name="Tahoma" Font.Style="1" Frame.Typ="15" HAlign="haCenter" ParentFont="False" VAlign="vaCenter" Text="Razón social"/>
</TfrxColumnHeader>
<TfrxHeader Name="Header1" Height="84" Left="0" Top="408" Width="718,1107" OnBeforePrint="Header1OnBeforePrint">
<TfrxMemoView Name="Memo21" Align="baBottom" Left="0" Top="64" Width="486,15" Height="20" Color="14672103" DisplayFormat.DecimalSeparator="," Font.Charset="0" Font.Color="1310975" Font.Height="-12" Font.Name="Tahoma" Font.Style="1" Frame.Typ="15" HAlign="haCenter" ParentFont="False" VAlign="vaCenter" Text="Vendedor"/>
<TfrxMemoView Name="Memo22" Align="baBottom" Left="486" Top="64" Width="94,15" Height="20" Color="14672103" DisplayFormat.DecimalSeparator="," Font.Charset="0" Font.Color="1310975" Font.Height="-12" Font.Name="Tahoma" Font.Style="1" Frame.Typ="15" HAlign="haCenter" ParentFont="False" VAlign="vaCenter" Text="Comisión"/>
<TfrxMemoView Name="Memo23" Align="baBottom" Left="580" Top="64" Width="138,15" Height="20" Color="14672103" DisplayFormat.DecimalSeparator="," Font.Charset="0" Font.Color="1310975" Font.Height="-12" Font.Name="Tahoma" Font.Style="1" Frame.Typ="15" HAlign="haRight" ParentFont="False" VAlign="vaCenter" Text="Importe total"/>
<TfrxMemoView Name="Memo32" Left="0" Top="30" Width="714,15" Height="32" DisplayFormat.DecimalSeparator="," Font.Charset="0" Font.Color="1310975" Font.Height="-15" Font.Name="Tahoma" Font.Style="1" ParentFont="False" VAlign="vaCenter" Text="Vendedores asociados a la liquidación "/>
</TfrxHeader>
</TfrxReportPage>
</TfrxReport>

70
Source/Informes/3/InfFacturaCliente.fr3 Normal file
View File

File diff suppressed because one or more lines are too long

84
Source/Informes/3/InfReciboCliente.fr3 Normal file
View File

File diff suppressed because one or more lines are too long

44
Source/Informes/4/InfAlbaranCliente.fr3 Normal file
View File

File diff suppressed because one or more lines are too long

63
Source/Informes/4/InfComision.fr3 Normal file
View File

@ -0,0 +1,63 @@
<?xml version="1.0" encoding="utf-8"?>
<TfrxReport Version="4.3" DotMatrixReport="False" EngineOptions.DoublePass="True" IniFile="\Software\Fast Reports" PreviewOptions.Buttons="4095" PreviewOptions.Zoom="1" PrintOptions.Printer="Default" PrintOptions.PrintOnSheet="0" ReportOptions.CreateDate="39589,7948251157" ReportOptions.Description.Text="" ReportOptions.LastChange="39590,5636514352" ScriptLanguage="PascalScript" ScriptText.Text="procedure frxReportOnStartReport(Sender: TfrxComponent);&#13;&#10;begin&#13;&#10; Set('Pagina', 0);&#13;&#10; Set('TotalPaginas', 0);&#13;&#10;end;&#13;&#10; &#13;&#10;procedure PageHeader1OnBeforePrint(Sender: TfrxComponent);&#13;&#10;begin&#13;&#10; if not Engine.FinalPass then&#13;&#10; Set('TotalPaginas', (&#60;TotalPaginas&#62; + 1));&#13;&#10;&#13;&#10; if Engine.FinalPass then&#13;&#10; Set('Pagina', (&#60;Pagina&#62; + 1));&#13;&#10;end;&#13;&#10;&#13;&#10;procedure Header1OnBeforePrint(Sender: TfrxComponent);&#13;&#10;begin&#13;&#10; if Engine.FinalPass then&#13;&#10; ColumnHeader1.Visible := False;&#13;&#10;end;&#13;&#10;&#13;&#10;begin&#13;&#10;&#13;&#10;end." ShowProgress="False" StoreInDFM="False" OnStartReport="frxReportOnStartReport" PropData="044C65667403A90003546F70021008446174617365747301010C3400000020446174615365743D22667278444243616265636572612220446174615365744E616D653D22667278444243616265636572612200010C3600000020446174615365743D226672784442446574616C6C6573312220446174615365744E616D653D226672784442446574616C6C6573312200010C3600000020446174615365743D226672784442446574616C6C6573322220446174615365744E616D653D226672784442446574616C6C657332220000095661726961626C657301010C13000000204E616D653D2220506167696E6163696F6E2200010C0E000000204E616D653D22506167696E612200010C14000000204E616D653D22546F74616C506167696E6173220000055374796C650100">
<TfrxDataPage Name="Data" Height="1000" Left="0" Top="0" Width="1000"/>
<TfrxReportPage Name="Page1" PaperWidth="210" PaperHeight="297" PaperSize="9" LeftMargin="10" RightMargin="10" TopMargin="10" BottomMargin="10" ColumnWidth="0" ColumnPositions.Text="" HGuides.Text="" VGuides.Text="">
<TfrxMasterData Name="MasterData1" Height="28" Left="0" Top="312" Width="718,1107" ColumnWidth="0" ColumnGap="0" DataSet="frxDBDetalles1" DataSetName="frxDBDetalles1" RowCount="0" Stretched="True">
<TfrxMemoView Name="Memo14" Left="0" Top="0" Width="718,15" Height="26,45669291" DisplayFormat.DecimalSeparator="," Font.Charset="0" Font.Color="1310975" Font.Height="-12" Font.Name="Tahoma" Font.Style="1" Frame.Typ="15" HAlign="haCenter" ParentFont="False" VAlign="vaCenter" Text=""/>
<TfrxMemoView Name="Memo29" Left="4" Top="3" Width="104" Height="16" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="0" Font.Height="-13" Font.Name="Arial" Font.Style="0" ParentFont="False" Text="[frxDBDetalles1.&#34;REFERENCIA&#34;]"/>
<TfrxMemoView Name="Memo30" Left="615" Top="3" Width="100" Height="16" DisplayFormat.DecimalSeparator="," DisplayFormat.FormatStr="#,0.00 € " DisplayFormat.Kind="fkNumeric" Font.Charset="1" Font.Color="0" Font.Height="-13" Font.Name="Arial" Font.Style="0" HAlign="haRight" ParentFont="False" Text="[frxDBDetalles1.&#34;BASE_IMPONIBLE&#34;]"/>
<TfrxMemoView Name="Memo2" Left="117" Top="3" Width="84" Height="16" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="0" Font.Height="-13" Font.Name="Arial" Font.Style="0" ParentFont="False" Text="[frxDBDetalles1.&#34;FECHA_FACTURA&#34;]"/>
<TfrxMemoView Name="Memo3" Left="213" Top="3" Width="388" Height="16" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="0" Font.Height="-13" Font.Name="Arial" Font.Style="0" ParentFont="False" Text="[frxDBDetalles1.&#34;NOMBRE&#34;]"/>
<TfrxLineView Name="LineaCorta0" Left="110" Top="0" Width="0" Height="26" Frame.Typ="1"/>
<TfrxLineView Name="Line1" Left="204" Top="0" Width="0" Height="26" Frame.Typ="1"/>
<TfrxLineView Name="Line2" Left="610" Top="0" Width="0" Height="26" Frame.Typ="1"/>
</TfrxMasterData>
<TfrxPageFooter Name="PageFooter1" Height="20" Left="0" Top="688" Width="718,1107">
<TfrxMemoView Name="Memo1" Left="642,5201" Top="0" Width="75,5906" Height="18,89765" HAlign="haRight" Text="[Page#]"/>
</TfrxPageFooter>
<TfrxPageHeader Name="PageHeader1" Height="176" Left="0" Top="16" Width="718,1107" OnBeforePrint="PageHeader1OnBeforePrint">
<TfrxMemoView Name="Memo15" Left="348" Top="4" Width="366,39394" Height="28,25201" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="11053757" Font.Height="-27" Font.Name="Tahoma" Font.Style="1" Frame.Color="14211288" HAlign="haCenter" ParentFont="False" VAlign="vaCenter" Text="Comisiones de vendedores"/>
<TfrxMemoView Name="Memo5" Left="88" Top="46" Width="200" Height="20" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="0" Font.Height="-13" Font.Name="Tahoma" Font.Style="0" ParentFont="False" Text="[frxDBCabecera.&#34;REFERENCIA&#34;]"/>
<TfrxMemoView Name="Memo18" Left="14" Top="11" Width="68,47248" Height="18,89765" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="0" Font.Height="-13" Font.Name="Tahoma" Font.Style="0" ParentFont="False" Text="Empresa:"/>
<TfrxMemoView Name="Memo7" Left="81,25201" Top="11" Width="253,63791" Height="18,89765" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="0" Font.Height="-13" Font.Name="Tahoma" Font.Style="1" ParentFont="False" Text="Empresa"/>
<TfrxMemoView Name="Memo6" Left="12" Top="46" Width="76,47248" Height="18,89765" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="0" Font.Height="-13" Font.Name="Tahoma" Font.Style="0" ParentFont="False" Text="Referencia:"/>
<TfrxMemoView Name="Memo9" Left="12" Top="104" Width="76,47248" Height="18,89765" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="0" Font.Height="-13" Font.Name="Tahoma" Font.Style="0" ParentFont="False" Text="Página nº:"/>
<TfrxMemoView Name="Memo10" Left="88,25201" Top="104" Width="181,63791" Height="18,89765" Font.Charset="1" Font.Color="0" Font.Height="-13" Font.Name="Tahoma" Font.Style="0" ParentFont="False" Text="[&#60;Pagina&#62;] / [&#60;TotalPaginas&#62;]"/>
<TfrxMemoView Name="Memo8" Left="88" Top="66" Width="200" Height="20" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="0" Font.Height="-13" Font.Name="Tahoma" Font.Style="0" ParentFont="False" Text="[frxDBCabecera.&#34;FECHA&#34;]"/>
<TfrxMemoView Name="Memo11" Left="12" Top="66" Width="76,47248" Height="18,89765" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="0" Font.Height="-13" Font.Name="Tahoma" Font.Style="0" ParentFont="False" Text="Fecha:"/>
<TfrxMemoView Name="Memo12" Left="88" Top="84" Width="628" Height="20" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="0" Font.Height="-13" Font.Name="Tahoma" Font.Style="0" ParentFont="False" Text="[frxDBCabecera.&#34;DESCRIPCION&#34;]"/>
<TfrxMemoView Name="Memo13" Left="12" Top="84" Width="76,47248" Height="18,89765" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="0" Font.Height="-13" Font.Name="Tahoma" Font.Style="0" ParentFont="False" Text="Descripción:"/>
<TfrxMemoView Name="Memo27" Left="0" Top="138,92981" Width="714,15" Height="32" DisplayFormat.DecimalSeparator="," Font.Charset="0" Font.Color="1310975" Font.Height="-15" Font.Name="Tahoma" Font.Style="1" ParentFont="False" VAlign="vaCenter" Text="Facturas asociadas a la liquidación "/>
</TfrxPageHeader>
<TfrxGroupHeader Name="GroupHeader2" Height="0" Left="0" Top="292" Width="718,1107" Condition="frxDBDetalles1.&#34;ID_COMISION_LIQUIDADA&#34;"/>
<TfrxGroupFooter Name="GroupFooter2" Height="26,45669291" Left="0" Top="360" Width="718,1107">
<TfrxMemoView Name="Memo19" Left="0" Top="0" Width="719" Height="26,45669291" Color="14672103" DisplayFormat.DecimalSeparator="," Font.Charset="0" Font.Color="1310975" Font.Height="-12" Font.Name="Tahoma" Font.Style="1" Frame.Typ="15" HAlign="haCenter" ParentFont="False" VAlign="vaCenter" Text=""/>
<TfrxMemoView Name="Memo20" Left="140" Top="3" Width="576" Height="16" DisplayFormat.DecimalSeparator="," DisplayFormat.FormatStr="#,0.00 € " DisplayFormat.Kind="fkNumeric" Font.Charset="1" Font.Color="1310975" Font.Height="-13" Font.Name="Tahoma" Font.Style="1" HAlign="haRight" ParentFont="False" Text="Importe total de facturas: [SUM(&#60;frxDBDetalles1.&#34;BASE_IMPONIBLE&#34;&#62;,MasterData1)]"/>
</TfrxGroupFooter>
<TfrxMasterData Name="MasterData2" Height="26,47" Left="0" Top="532" Width="718,1107" ColumnWidth="0" ColumnGap="0" DataSet="frxDBDetalles2" DataSetName="frxDBDetalles2" RowCount="0">
<TfrxMemoView Name="Memo34" Left="0" Top="0" Width="718,15" Height="26,45669291" DisplayFormat.DecimalSeparator="," Font.Charset="0" Font.Color="1310975" Font.Height="-12" Font.Name="Tahoma" Font.Style="1" Frame.Typ="15" HAlign="haCenter" ParentFont="False" VAlign="vaCenter" Text=""/>
<TfrxMemoView Name="Memo4" Left="4" Top="5" Width="476" Height="16" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="0" Font.Height="-13" Font.Name="Arial" Font.Style="0" ParentFont="False" Text="[frxDBDetalles2.&#34;NOMBRE&#34;]"/>
<TfrxMemoView Name="Memo24" Left="505" Top="4" Width="60" Height="16" DisplayFormat.DecimalSeparator="," DisplayFormat.FormatStr="#,0.00 %" DisplayFormat.Kind="fkNumeric" Font.Charset="1" Font.Color="0" Font.Height="-13" Font.Name="Arial" Font.Style="0" HAlign="haRight" ParentFont="False" Text="[frxDBDetalles2.&#34;COMISION&#34;]"/>
<TfrxMemoView Name="Memo25" Left="588" Top="4" Width="128" Height="16" DisplayFormat.DecimalSeparator="," DisplayFormat.FormatStr="#,0.00 € " DisplayFormat.Kind="fkNumeric" Font.Charset="1" Font.Color="0" Font.Height="-13" Font.Name="Arial" Font.Style="0" HAlign="haRight" ParentFont="False" Text="[frxDBDetalles2.&#34;IMPORTE_TOTAL&#34;]"/>
<TfrxLineView Name="Line3" Left="486" Top="0" Width="0" Height="26" Frame.Typ="1"/>
<TfrxLineView Name="Line4" Left="580" Top="0" Width="0" Height="26" Frame.Typ="1"/>
</TfrxMasterData>
<TfrxGroupHeader Name="GroupHeader3" Height="0" Left="0" Top="512" Width="718,1107" Condition="frxDBDetalles2.&#34;ID_COMISION&#34;"/>
<TfrxGroupFooter Name="GroupFooter3" Height="48" Left="0" Top="580" Width="718,1107">
<TfrxMemoView Name="Memo26" Left="0" Top="0" Width="719" Height="26,45669291" Color="14672103" DisplayFormat.DecimalSeparator="," Font.Charset="0" Font.Color="1310975" Font.Height="-12" Font.Name="Tahoma" Font.Style="1" Frame.Typ="15" HAlign="haCenter" ParentFont="False" VAlign="vaCenter" Text=""/>
<TfrxMemoView Name="Memo31" Left="140" Top="4" Width="576" Height="16" DisplayFormat.DecimalSeparator="," DisplayFormat.FormatStr="#,0.00 € " DisplayFormat.Kind="fkNumeric" Font.Charset="1" Font.Color="1310975" Font.Height="-13" Font.Name="Tahoma" Font.Style="1" HAlign="haRight" ParentFont="False" Text="Importe total de comisiones: [SUM(&#60;frxDBDetalles2.&#34;IMPORTE_TOTAL&#34;&#62;,MasterData2)]"/>
</TfrxGroupFooter>
<TfrxColumnHeader Name="ColumnHeader1" Height="20" Left="0" Top="212" Width="718,1107">
<TfrxMemoView Name="Memo28" Align="baBottom" Left="0" Top="0" Width="110,15" Height="20" Color="14672103" DisplayFormat.DecimalSeparator="," Font.Charset="0" Font.Color="1310975" Font.Height="-12" Font.Name="Tahoma" Font.Style="1" Frame.Typ="15" HAlign="haCenter" ParentFont="False" VAlign="vaCenter" Text="Ref. factura"/>
<TfrxMemoView Name="Memo17" Align="baBottom" Left="610" Top="0" Width="108" Height="20" Color="14672103" DisplayFormat.DecimalSeparator="," Font.Charset="0" Font.Color="1310975" Font.Height="-12" Font.Name="Tahoma" Font.Style="1" Frame.Typ="15" HAlign="haRight" ParentFont="False" VAlign="vaCenter" Text="Base imponible"/>
<TfrxMemoView Name="Memo16" Align="baBottom" Left="110" Top="0" Width="94,15" Height="20" Color="14672103" DisplayFormat.DecimalSeparator="," Font.Charset="0" Font.Color="1310975" Font.Height="-12" Font.Name="Tahoma" Font.Style="1" Frame.Typ="15" HAlign="haCenter" ParentFont="False" VAlign="vaCenter" Text="Fecha"/>
<TfrxMemoView Name="Memo33" Align="baBottom" Left="204" Top="0" Width="406,15" Height="20" Color="14672103" DisplayFormat.DecimalSeparator="," Font.Charset="0" Font.Color="1310975" Font.Height="-12" Font.Name="Tahoma" Font.Style="1" Frame.Typ="15" HAlign="haCenter" ParentFont="False" VAlign="vaCenter" Text="Razón social"/>
</TfrxColumnHeader>
<TfrxHeader Name="Header1" Height="84" Left="0" Top="408" Width="718,1107" OnBeforePrint="Header1OnBeforePrint">
<TfrxMemoView Name="Memo21" Align="baBottom" Left="0" Top="64" Width="486,15" Height="20" Color="14672103" DisplayFormat.DecimalSeparator="," Font.Charset="0" Font.Color="1310975" Font.Height="-12" Font.Name="Tahoma" Font.Style="1" Frame.Typ="15" HAlign="haCenter" ParentFont="False" VAlign="vaCenter" Text="Vendedor"/>
<TfrxMemoView Name="Memo22" Align="baBottom" Left="486" Top="64" Width="94,15" Height="20" Color="14672103" DisplayFormat.DecimalSeparator="," Font.Charset="0" Font.Color="1310975" Font.Height="-12" Font.Name="Tahoma" Font.Style="1" Frame.Typ="15" HAlign="haCenter" ParentFont="False" VAlign="vaCenter" Text="Comisión"/>
<TfrxMemoView Name="Memo23" Align="baBottom" Left="580" Top="64" Width="138,15" Height="20" Color="14672103" DisplayFormat.DecimalSeparator="," Font.Charset="0" Font.Color="1310975" Font.Height="-12" Font.Name="Tahoma" Font.Style="1" Frame.Typ="15" HAlign="haRight" ParentFont="False" VAlign="vaCenter" Text="Importe total"/>
<TfrxMemoView Name="Memo32" Left="0" Top="30" Width="714,15" Height="32" DisplayFormat.DecimalSeparator="," Font.Charset="0" Font.Color="1310975" Font.Height="-15" Font.Name="Tahoma" Font.Style="1" ParentFont="False" VAlign="vaCenter" Text="Vendedores asociados a la liquidación "/>
</TfrxHeader>
</TfrxReportPage>
</TfrxReport>

78
Source/Informes/4/InfFacturaCliente.fr3 Normal file
View File

File diff suppressed because one or more lines are too long

74
Source/Informes/4/InfReciboCliente.fr3 Normal file
View File

File diff suppressed because one or more lines are too long

22
Source/Informes/InfContratoCliente.fr3
View File

File diff suppressed because one or more lines are too long

23
Source/Modulos/Albaranes de cliente/Views/uViewAlbaranCliente.dfm
View File

@ -102,10 +102,22 @@ inherited frViewAlbaranCliente: TfrViewAlbaranCliente
Height = 221 Height = 221
ExplicitWidth = 442 ExplicitWidth = 442
ExplicitHeight = 221 ExplicitHeight = 221
inherited edtlNombre: TcxDBTextEdit
ExplicitWidth = 224
Width = 224
end
inherited edtNIFCIF: TcxDBTextEdit
ExplicitWidth = 103
Width = 103
end
inherited bVerFichaCliente: TBitBtn inherited bVerFichaCliente: TBitBtn
Left = 160 Left = 160
ExplicitLeft = 160 ExplicitLeft = 160
end end
inherited edtDireccion: TcxMemo
ExplicitWidth = 437
Width = 437
end
inherited bElegirDireccion: TButton inherited bElegirDireccion: TButton
Left = 329 Left = 329
ExplicitLeft = 329 ExplicitLeft = 329
@ -117,6 +129,8 @@ inherited frViewAlbaranCliente: TfrViewAlbaranCliente
inherited edtReferencia: TcxDBTextEdit inherited edtReferencia: TcxDBTextEdit
Left = 242 Left = 242
ExplicitLeft = 242 ExplicitLeft = 242
ExplicitWidth = 103
Width = 103
end end
end end
inherited ActionList1: TActionList inherited ActionList1: TActionList
@ -677,6 +691,7 @@ inherited frViewAlbaranCliente: TfrViewAlbaranCliente
end end
object dxLayoutControl1Group17: TdxLayoutGroup object dxLayoutControl1Group17: TdxLayoutGroup
Caption = 'El albar'#225'n pertenece a la tienda' Caption = 'El albar'#225'n pertenece a la tienda'
Visible = False
object dxLayoutControl1Item17: TdxLayoutItem object dxLayoutControl1Item17: TdxLayoutItem
Caption = 'New Item' Caption = 'New Item'
ShowCaption = False ShowCaption = False
@ -832,14 +847,6 @@ inherited frViewAlbaranCliente: TfrViewAlbaranCliente
end end
end end
end end
object cxDBTextEdit1: TcxDBTextEdit
Left = 176
Top = 236
DataBinding.DataField = 'REF_CONTRATO'
DataBinding.DataSource = DADataSource
TabOrder = 1
Width = 297
end
object DADataSource: TDADataSource object DADataSource: TDADataSource
Left = 48 Left = 48
end end

1
Source/Modulos/Albaranes de cliente/Views/uViewAlbaranCliente.pas
View File

@ -109,7 +109,6 @@ type
Button2: TButton; Button2: TButton;
dxLayoutControl1Group16: TdxLayoutGroup; dxLayoutControl1Group16: TdxLayoutGroup;
actVerContratoCli: TAction; actVerContratoCli: TAction;
cxDBTextEdit1: TcxDBTextEdit;
procedure CustomViewCreate(Sender: TObject); procedure CustomViewCreate(Sender: TObject);
procedure CustomViewDestroy(Sender: TObject); procedure CustomViewDestroy(Sender: TObject);
procedure actVerPedidoCliExecute(Sender: TObject); procedure actVerPedidoCliExecute(Sender: TObject);

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

@ -63,6 +63,8 @@ inherited frViewAlbaranesCliente: TfrViewAlbaranesCliente
object cxGridViewTIENDA: TcxGridDBColumn object cxGridViewTIENDA: TcxGridDBColumn
Caption = 'Tienda' Caption = 'Tienda'
DataBinding.FieldName = 'TIENDA' DataBinding.FieldName = 'TIENDA'
Visible = False
VisibleForCustomization = False
end end
object cxGridViewREFERENCIA: TcxGridDBColumn object cxGridViewREFERENCIA: TcxGridDBColumn
DataBinding.FieldName = 'REFERENCIA' DataBinding.FieldName = 'REFERENCIA'
@ -202,15 +204,27 @@ inherited frViewAlbaranesCliente: TfrViewAlbaranesCliente
Width = 596 Width = 596
ExplicitWidth = 596 ExplicitWidth = 596
inherited txtFiltroTodo: TcxTextEdit inherited txtFiltroTodo: TcxTextEdit
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitWidth = 499 ExplicitWidth = 499
Width = 499 Width = 499
end end
inherited edtFechaIniFiltro: TcxDateEdit inherited edtFechaIniFiltro: TcxDateEdit
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitWidth = 147 ExplicitWidth = 147
Width = 147 Width = 147
end end
inherited edtFechaFinFiltro: TcxDateEdit inherited edtFechaFinFiltro: TcxDateEdit
Left = 251 Left = 251
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitLeft = 251 ExplicitLeft = 251
ExplicitWidth = 335 ExplicitWidth = 335
Width = 335 Width = 335

12
Source/Modulos/Contabilidad/Servidor/srvContabilidad_Impl.dfm
View File

@ -458,10 +458,11 @@ object srvContabilidad: TsrvContabilidad
Connection = 'IBX' Connection = 'IBX'
ConnectionType = 'Interbase' ConnectionType = 'Interbase'
Default = True Default = True
TargetTable = 'V_EMPRESAS_TIENDAS'
Name = 'IBX' Name = 'IBX'
SQL = SQL =
'select CODIGO_CONTABLE'#10'from empresas_tiendas'#10'where ID_EMPRESA = ' + 'select CODIGO_CONTABLE'#10'from V_empresas_tiendas'#10'where ID_EMPRESA ' +
':ID_EMPRESA'#10'and ID = :ID_TIENDA'#10 '= :ID_EMPRESA'#10'and ID = :ID_TIENDA'#10
StatementType = stSQL StatementType = stSQL
ColumnMappings = < ColumnMappings = <
item item
@ -520,7 +521,10 @@ object srvContabilidad: TsrvContabilidad
item item
Name = 'ID_CONTACTO' Name = 'ID_CONTACTO'
Value = '' Value = ''
ParamType = daptInput end
item
Name = 'ID_EJERCICIO'
Value = ''
end> end>
Statements = < Statements = <
item item
@ -530,7 +534,7 @@ object srvContabilidad: TsrvContabilidad
Name = 'IBX' Name = 'IBX'
SQL = SQL =
'select COUNT(ID)'#10'from CONT_SUBCUENTAS'#10'where ID_CONTACTO = :ID_CO' + 'select COUNT(ID)'#10'from CONT_SUBCUENTAS'#10'where ID_CONTACTO = :ID_CO' +
'NTACTO'#10'and {where}'#10#10#10 'NTACTO'#10'and ID_EJERCICIO = :ID_EJERCICIO'#10#10#10
StatementType = stSQL StatementType = stSQL
ColumnMappings = < ColumnMappings = <
item item

14
Source/Modulos/Contabilidad/Servidor/srvContabilidad_Impl.pas
View File

@ -324,27 +324,15 @@ function TsrvContabilidad.TieneCuentaAsociada(const ID_CONTACTO: Integer; const
var var
AConn : IDAConnection; AConn : IDAConnection;
dsData: IDADataset; dsData: IDADataset;
AWhere : TDAWhereExpression;
begin begin
Result := False; Result := False;
AConn := dmServer.ConnectionManager.NewConnection(dmServer.ConnectionManager.GetDefaultConnectionName); AConn := dmServer.ConnectionManager.NewConnection(dmServer.ConnectionManager.GetDefaultConnectionName);
{ Construir la expresión del Where a partir de los parámetros
que se han recibido.
}
with TDAWhereBuilder.Create do with TDAWhereBuilder.Create do
try try
AWhere := NewBinaryExpression(NewField('', 'ID_EJERCICIO'), NewConstant(darEjercicioActivo(ID_EMPRESA), datInteger), dboEqual);
finally
Free;
end;
try try
try dsData := schContabilidad.NewDataset(AConn, 'ExisteSubCuenta', ['ID_CONTACTO','ID_EJERCICIO'], [ID_CONTACTO, darEjercicioActivo(ID_EMPRESA)]);
dsData := schContabilidad.NewDataset(AConn, 'ExisteSubCuenta', ['ID_CONTACTO'], [ID_CONTACTO]);
dsData.DynamicWhere.Expression := AWhere;
dsData.Active := True; dsData.Active := True;
Result := (dsData.FieldValues[0] > 0); Result := (dsData.FieldValues[0] > 0);
AConn.CommitTransaction; AConn.CommitTransaction;

6
Source/Modulos/Contactos/Model/uBizClientesServer.pas
View File

@ -83,15 +83,13 @@ begin
dsData := ASchema.NewDataset(ACurrentConn, 'DarEmpresasContacto', ['ID_CONTACTO'], [AIDCliente]); dsData := ASchema.NewDataset(ACurrentConn, 'DarEmpresasContacto', ['ID_CONTACTO'], [AIDCliente]);
dsData.Active := True; dsData.Active := True;
if not AContabilidadService.TieneCuentaAsociada(AIDCliente, dsData.FieldValues[0]) then //Por cada una de las empresas que tiene asociadas el contacto se añade una subcuenta en su ejercicio activo, si no la tiene
begin
//Por cada ino de las empresas que tiene asociadas el contacto se añade una subcuenta en su ejercicio activo
while not dsData.EOF do while not dsData.EOF do
begin begin
if not AContabilidadService.TieneCuentaAsociada(AIDCliente, dsData.FieldValues[0]) then
AContabilidadService.AnadirSubCuentaCliente(AIDCliente, AIDTienda, dsData.FieldValues[0], ANombre); AContabilidadService.AnadirSubCuentaCliente(AIDCliente, AIDTienda, dsData.FieldValues[0], ANombre);
dsData.Next; dsData.Next;
end; end;
end;
finally finally
dsData := NIL; dsData := NIL;

6
Source/Modulos/Contactos/Model/uBizProveedoresServer.pas
View File

@ -82,15 +82,13 @@ begin
dsData := ASchema.NewDataset(ACurrentConn, 'DarEmpresasContacto', ['ID_CONTACTO'], [AIDProveedor]); dsData := ASchema.NewDataset(ACurrentConn, 'DarEmpresasContacto', ['ID_CONTACTO'], [AIDProveedor]);
dsData.Active := True; dsData.Active := True;
if not AContabilidadService.TieneCuentaAsociada(AIDProveedor, dsData.FieldValues[0]) then //Por cada una de las empresas que tiene asociadas el contacto se añade una subcuenta en su ejercicio activo, en el caso de no tener
begin
//Por cada ino de las empresas que tiene asociadas el contacto se añade una subcuenta en su ejercicio activo
while not dsData.EOF do while not dsData.EOF do
begin begin
if not AContabilidadService.TieneCuentaAsociada(AIDProveedor, dsData.FieldValues[0]) then
AContabilidadService.AnadirSubCuentaProveedor(AIDProveedor, bEsAcreedor, dsData.FieldValues[0], ANombre); AContabilidadService.AnadirSubCuentaProveedor(AIDProveedor, bEsAcreedor, dsData.FieldValues[0], ANombre);
dsData.Next; dsData.Next;
end; end;
end;
finally finally
dsData := NIL; dsData := NIL;

2
Source/Modulos/Contactos/Views/uEditorCliente.dfm
View File

@ -368,7 +368,7 @@ inherited fEditorCliente: TfEditorCliente
ExplicitWidth = 521 ExplicitWidth = 521
inherited memObservaciones: TcxDBMemo inherited memObservaciones: TcxDBMemo
DataBinding.DataSource = frViewCliente1.dsContacto DataBinding.DataSource = frViewCliente1.dsContacto
ExplicitWidth = 821 ExplicitWidth = 521
Width = 521 Width = 521
end end
end end

1
Source/Modulos/Facturas de cliente/Views/uViewFacturaCliente.dfm
View File

@ -359,6 +359,7 @@ inherited frViewFacturaCliente: TfrViewFacturaCliente
object dxLayoutControl1Group4: TdxLayoutGroup object dxLayoutControl1Group4: TdxLayoutGroup
AutoAligns = [aaVertical] AutoAligns = [aaVertical]
Caption = 'La factura pertenece a la tienda' Caption = 'La factura pertenece a la tienda'
Visible = False
object dxLayoutControl1Item3: TdxLayoutItem object dxLayoutControl1Item3: TdxLayoutItem
Caption = 'New Item' Caption = 'New Item'
ShowCaption = False ShowCaption = False

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

@ -37,6 +37,8 @@ inherited frViewFacturasCliente: TfrViewFacturasCliente
object cxGridViewTIENDA: TcxGridDBColumn object cxGridViewTIENDA: TcxGridDBColumn
Caption = 'Tienda' Caption = 'Tienda'
DataBinding.FieldName = 'TIENDA' DataBinding.FieldName = 'TIENDA'
Visible = False
VisibleForCustomization = False
end end
object cxGridViewREFERENCIA: TcxGridDBColumn object cxGridViewREFERENCIA: TcxGridDBColumn
DataBinding.FieldName = 'REFERENCIA' DataBinding.FieldName = 'REFERENCIA'

24
Source/Modulos/Facturas de proveedor/Views/uViewFacturaProveedor.dfm
View File

@ -1,6 +1,6 @@
inherited frViewFacturaProveedor: TfrViewFacturaProveedor inherited frViewFacturaProveedor: TfrViewFacturaProveedor
Width = 758 Width = 451
Height = 521 Height = 304
Align = alClient Align = alClient
OnCreate = CustomViewCreate OnCreate = CustomViewCreate
OnDestroy = CustomViewDestroy OnDestroy = CustomViewDestroy
@ -9,19 +9,17 @@ inherited frViewFacturaProveedor: TfrViewFacturaProveedor
object dxLayoutControl1: TdxLayoutControl object dxLayoutControl1: TdxLayoutControl
Left = 0 Left = 0
Top = 0 Top = 0
Width = 758 Width = 451
Height = 521 Height = 304
Align = alClient Align = alClient
ParentBackground = True ParentBackground = True
TabOrder = 0 TabOrder = 0
TabStop = False TabStop = False
AutoContentSizes = [acsWidth, acsHeight] AutoContentSizes = [acsWidth, acsHeight]
LookAndFeel = dxLayoutOfficeLookAndFeel1 LookAndFeel = dxLayoutOfficeLookAndFeel1
ExplicitWidth = 451
ExplicitHeight = 304
DesignSize = ( DesignSize = (
758 451
521) 304)
object eReferencia: TcxDBTextEdit object eReferencia: TcxDBTextEdit
Left = 124 Left = 124
Top = 30 Top = 30
@ -97,7 +95,7 @@ inherited frViewFacturaProveedor: TfrViewFacturaProveedor
Width = 169 Width = 169
end end
object bFormasPago: TButton object bFormasPago: TButton
Left = 264 Left = 150
Top = 135 Top = 135
Width = 132 Width = 132
Height = 23 Height = 23
@ -173,7 +171,7 @@ inherited frViewFacturaProveedor: TfrViewFacturaProveedor
Width = 158 Width = 158
end end
inline frViewProveedorFactura1: TfrViewProveedorFactura inline frViewProveedorFactura1: TfrViewProveedorFactura
Left = 424 Left = 310
Top = 30 Top = 30
Width = 312 Width = 312
Height = 260 Height = 260
@ -185,7 +183,7 @@ inherited frViewFacturaProveedor: TfrViewFacturaProveedor
ParentFont = False ParentFont = False
TabOrder = 7 TabOrder = 7
ReadOnly = False ReadOnly = False
ExplicitLeft = 424 ExplicitLeft = 310
ExplicitTop = 30 ExplicitTop = 30
ExplicitWidth = 312 ExplicitWidth = 312
ExplicitHeight = 260 ExplicitHeight = 260
@ -245,9 +243,12 @@ inherited frViewFacturaProveedor: TfrViewFacturaProveedor
ReadOnly = False ReadOnly = False
ExplicitLeft = 22 ExplicitLeft = 22
ExplicitTop = 320 ExplicitTop = 320
ExplicitHeight = 228
inherited memObservaciones: TcxDBMemo inherited memObservaciones: TcxDBMemo
DataBinding.DataField = 'OBSERVACIONES' DataBinding.DataField = 'OBSERVACIONES'
DataBinding.DataSource = DADataSource DataBinding.DataSource = DADataSource
ExplicitHeight = 228
Height = 228
end end
end end
object dxLayoutControl1Group_Root: TdxLayoutGroup object dxLayoutControl1Group_Root: TdxLayoutGroup
@ -314,6 +315,7 @@ inherited frViewFacturaProveedor: TfrViewFacturaProveedor
end end
object dxLayoutControl1Group4: TdxLayoutGroup object dxLayoutControl1Group4: TdxLayoutGroup
Caption = 'La factura pertenece a la tienda' Caption = 'La factura pertenece a la tienda'
Visible = False
object dxLayoutControl1Item7: TdxLayoutItem object dxLayoutControl1Item7: TdxLayoutItem
Control = frViewTienda1 Control = frViewTienda1
ControlOptions.AutoColor = True ControlOptions.AutoColor = True

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

@ -74,6 +74,8 @@ inherited frViewFacturasProveedor: TfrViewFacturasProveedor
object cxGridViewTIENDA: TcxGridDBColumn object cxGridViewTIENDA: TcxGridDBColumn
Caption = 'Tienda' Caption = 'Tienda'
DataBinding.FieldName = 'TIENDA' DataBinding.FieldName = 'TIENDA'
Visible = False
VisibleForCustomization = False
end end
object cxGridViewREFERENCIA: TcxGridDBColumn object cxGridViewREFERENCIA: TcxGridDBColumn
DataBinding.FieldName = 'REFERENCIA' DataBinding.FieldName = 'REFERENCIA'

2
Source/Modulos/Recibos de cliente/Views/uViewReciboCliente.dfm
View File

@ -14,7 +14,6 @@ inherited frViewReciboCliente: TfrViewReciboCliente
TabStop = False TabStop = False
AutoContentSizes = [acsWidth, acsHeight] AutoContentSizes = [acsWidth, acsHeight]
LookAndFeel = dxLayoutOfficeLookAndFeel1 LookAndFeel = dxLayoutOfficeLookAndFeel1
ExplicitHeight = 509
DesignSize = ( DesignSize = (
925 925
471) 471)
@ -565,6 +564,7 @@ inherited frViewReciboCliente: TfrViewReciboCliente
end end
object dxLayoutControl1Group5: TdxLayoutGroup object dxLayoutControl1Group5: TdxLayoutGroup
Caption = 'El recibo pertenece a la tienda' Caption = 'El recibo pertenece a la tienda'
Visible = False
object dxLayoutControl1Item18: TdxLayoutItem object dxLayoutControl1Item18: TdxLayoutItem
Caption = 'Tienda:' Caption = 'Tienda:'
Control = frViewTienda1 Control = frViewTienda1

36
Source/Modulos/Recibos de cliente/Views/uViewRecibosCliente.dfm
View File

@ -8,8 +8,8 @@ inherited frViewRecibosCliente: TfrViewRecibosCliente
Height = 317 Height = 317
RootLevelOptions.DetailTabsPosition = dtpTop RootLevelOptions.DetailTabsPosition = dtpTop
OnActiveTabChanged = cxGridActiveTabChanged OnActiveTabChanged = cxGridActiveTabChanged
ExplicitWidth = 531 ExplicitWidth = 686
ExplicitHeight = 259 ExplicitHeight = 317
inherited cxGridView: TcxGridDBTableView inherited cxGridView: TcxGridDBTableView
DataController.KeyFieldNames = 'ID' DataController.KeyFieldNames = 'ID'
DataController.Options = [dcoAnsiSort, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoGroupsAlwaysExpanded] DataController.Options = [dcoAnsiSort, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoGroupsAlwaysExpanded]
@ -58,7 +58,9 @@ inherited frViewRecibosCliente: TfrViewRecibosCliente
object cxGridViewTIENDA: TcxGridDBColumn object cxGridViewTIENDA: TcxGridDBColumn
Caption = 'Tienda' Caption = 'Tienda'
DataBinding.FieldName = 'TIENDA' DataBinding.FieldName = 'TIENDA'
Visible = False
BestFitMaxWidth = 60 BestFitMaxWidth = 60
VisibleForCustomization = False
end end
object cxGridViewID_RECIBO_COMPENSADO: TcxGridDBColumn object cxGridViewID_RECIBO_COMPENSADO: TcxGridDBColumn
Caption = 'Compensado' Caption = 'Compensado'
@ -214,22 +216,34 @@ inherited frViewRecibosCliente: TfrViewRecibosCliente
end end
inherited frViewFiltroBase1: TfrViewFiltroBase inherited frViewFiltroBase1: TfrViewFiltroBase
Width = 686 Width = 686
ExplicitWidth = 531 ExplicitWidth = 686
inherited TBXDockablePanel1: TTBXDockablePanel inherited TBXDockablePanel1: TTBXDockablePanel
ExplicitWidth = 531 ExplicitWidth = 686
inherited dxLayoutControl1: TdxLayoutControl inherited dxLayoutControl1: TdxLayoutControl
Width = 686 Width = 686
ExplicitWidth = 531 ExplicitWidth = 686
inherited txtFiltroTodo: TcxTextEdit inherited txtFiltroTodo: TcxTextEdit
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitWidth = 434 ExplicitWidth = 434
Width = 434 Width = 434
end end
inherited edtFechaIniFiltro: TcxDateEdit inherited edtFechaIniFiltro: TcxDateEdit
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitWidth = 183 ExplicitWidth = 183
Width = 183 Width = 183
end end
inherited edtFechaFinFiltro: TcxDateEdit inherited edtFechaFinFiltro: TcxDateEdit
Left = 367 Left = 367
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitLeft = 367 ExplicitLeft = 367
ExplicitWidth = 234 ExplicitWidth = 234
Width = 234 Width = 234
@ -237,10 +251,10 @@ inherited frViewRecibosCliente: TfrViewRecibosCliente
end end
inherited TBXAlignmentPanel1: TTBXAlignmentPanel inherited TBXAlignmentPanel1: TTBXAlignmentPanel
Width = 686 Width = 686
ExplicitWidth = 531 ExplicitWidth = 686
inherited tbxBotones: TTBXToolbar inherited tbxBotones: TTBXToolbar
Width = 676 Width = 676
ExplicitWidth = 521 ExplicitWidth = 676
end end
end end
end end
@ -248,14 +262,14 @@ inherited frViewRecibosCliente: TfrViewRecibosCliente
inherited pnlAgrupaciones: TTBXDockablePanel inherited pnlAgrupaciones: TTBXDockablePanel
Top = 419 Top = 419
Visible = True Visible = True
ExplicitTop = 361 ExplicitTop = 419
ExplicitWidth = 531 ExplicitWidth = 686
inherited TBXAlignmentPanel1: TTBXAlignmentPanel inherited TBXAlignmentPanel1: TTBXAlignmentPanel
Width = 686 Width = 686
ExplicitWidth = 531 ExplicitWidth = 686
inherited TBXToolbar1: TTBXToolbar inherited TBXToolbar1: TTBXToolbar
Width = 676 Width = 676
ExplicitWidth = 521 ExplicitWidth = 676
object TBXSeparatorItem1: TTBXSeparatorItem object TBXSeparatorItem1: TTBXSeparatorItem
end end
object TBXItem2: TTBXItem object TBXItem2: TTBXItem

2
Source/Modulos/Recibos de proveedor/Views/uViewReciboProveedor.dfm
View File

@ -14,7 +14,6 @@ inherited frViewReciboProveedor: TfrViewReciboProveedor
TabStop = False TabStop = False
AutoContentSizes = [acsWidth, acsHeight] AutoContentSizes = [acsWidth, acsHeight]
LookAndFeel = dxLayoutOfficeLookAndFeel1 LookAndFeel = dxLayoutOfficeLookAndFeel1
ExplicitWidth = 811
DesignSize = ( DesignSize = (
858 858
524) 524)
@ -627,6 +626,7 @@ inherited frViewReciboProveedor: TfrViewReciboProveedor
end end
object dxLayoutControl1Group3: TdxLayoutGroup object dxLayoutControl1Group3: TdxLayoutGroup
Caption = 'El recibo pertenece a la tienda' Caption = 'El recibo pertenece a la tienda'
Visible = False
object dxLayoutControl1Item17: TdxLayoutItem object dxLayoutControl1Item17: TdxLayoutItem
Caption = 'Tienda:' Caption = 'Tienda:'
Control = frViewTienda1 Control = frViewTienda1

9
Source/Servidor/FactuGES_Server.dproj
View File

@ -1,4 +1,4 @@
<?xml version="1.0" encoding="utf-8"?> <?xml version="1.0" encoding="utf-8"?>
<Project xmlns="http://schemas.microsoft.com/developer/msbuild/2003"> <Project xmlns="http://schemas.microsoft.com/developer/msbuild/2003">
<PropertyGroup> <PropertyGroup>
<ProjectGuid>{ebdcd25d-40d7-4146-91ec-a0ea4aa1dcd1}</ProjectGuid> <ProjectGuid>{ebdcd25d-40d7-4146-91ec-a0ea4aa1dcd1}</ProjectGuid>
@ -29,13 +29,6 @@
<Borland.ProjectType/> <Borland.ProjectType/>
<BorlandProject> <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">3</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.3.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.3.0</VersionInfoKeys><VersionInfoKeys Name="Comments"></VersionInfoKeys><VersionInfoKeys Name="CompileDate">viernes, 17 de mayo de 2013 12:12</VersionInfoKeys></VersionInfoKeys><Excluded_Packages> <BorlandProject><Delphi.Personality><Parameters><Parameters Name="UseLauncher">False</Parameters><Parameters Name="LoadAllSymbols">True</Parameters><Parameters Name="LoadUnspecifiedSymbols">False</Parameters></Parameters><VersionInfo><VersionInfo Name="IncludeVerInfo">True</VersionInfo><VersionInfo Name="AutoIncBuild">False</VersionInfo><VersionInfo Name="MajorVer">2</VersionInfo><VersionInfo Name="MinorVer">5</VersionInfo><VersionInfo Name="Release">3</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.3.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.3.0</VersionInfoKeys><VersionInfoKeys Name="Comments"></VersionInfoKeys><VersionInfoKeys Name="CompileDate">viernes, 17 de mayo de 2013 12:12</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 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> </Excluded_Packages><Source><Source Name="MainSource">FactuGES_Server.dpr</Source></Source></Delphi.Personality></BorlandProject></BorlandProject>
</ProjectExtensions> </ProjectExtensions>

2
Source/Servidor/FactuGES_Server.rc
View File

@ -16,7 +16,7 @@ BEGIN
VALUE "FileVersion", "2.5.3.0\0" VALUE "FileVersion", "2.5.3.0\0"
VALUE "ProductName", "FactuGES (Servidor)\0" VALUE "ProductName", "FactuGES (Servidor)\0"
VALUE "ProductVersion", "2.5.3.0\0" VALUE "ProductVersion", "2.5.3.0\0"
VALUE "CompileDate", "jueves, 23 de mayo de 2013 18:30\0" VALUE "CompileDate", "jueves, 11 de julio de 2013 16:49\0"
END END
END END
BLOCK "VarFileInfo" BLOCK "VarFileInfo"

BIN
Source/Servidor/FactuGES_Server.res
View File

Binary file not shown.