Tecistel/Tecsitel_FactuGES2
0
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Versión 1.9.7

Browse Source 
git-svn-id: https://192.168.0.254/svn/Proyectos.Tecsitel_FactuGES2/trunk@1069 0c75b7a4-871f-7646-8a2f-f78d34cc349f
This commit is contained in:
roberto 2013-02-25 11:37:27 +00:00
parent 4e4da081a4
commit 407224517e
19 changed files with 715 additions and 471 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
Build/Installer.fbpInf
View File

@ -6,7 +6,7 @@
<propertysets/> <propertysets/>
<variables> <variables>
<project_path> <project_path>
<![CDATA[C:\Codigo Tecsitel]]> <![CDATA[C:\Codigo tecsitel]]>
</project_path> </project_path>
</variables> </variables>
<properties> <properties>
@ -14,8 +14,8 @@
<Notes> <Notes>
<![CDATA[]]> <![CDATA[]]>
</Notes> </Notes>
<LastBuildRun>00:00:00</LastBuildRun> <LastBuildRun>00:00:44</LastBuildRun>
<LastBuildStart>30/12/1899</LastBuildStart> <LastBuildStart>06/02/2013 11:10:03</LastBuildStart>
<LastBuildState>True</LastBuildState> <LastBuildState>True</LastBuildState>
</properties> </properties>
</project> </project>

BIN
Build/Installer.fbz6
View File

Binary file not shown.

102
Source/Base/Base.dproj
View File

@ -54,57 +54,57 @@
<DelphiCompile Include="Base.dpk"> <DelphiCompile Include="Base.dpk">
<MainSource>MainSource</MainSource> <MainSource>MainSource</MainSource>
</DelphiCompile> </DelphiCompile>
<DCCReference Include="..\Modulos\Facturas de cliente\adortl.dcp" /> <DCCReference Include="..\..\Resources\Logotipos Tecsitel\adortl.dcp" />
<DCCReference Include="..\Modulos\Facturas de cliente\cxDataD11.dcp" /> <DCCReference Include="..\..\Resources\Logotipos Tecsitel\cxDataD11.dcp" />
<DCCReference Include="..\Modulos\Facturas de cliente\cxEditorsD11.dcp" /> <DCCReference Include="..\..\Resources\Logotipos Tecsitel\cxEditorsD11.dcp" />
<DCCReference Include="..\Modulos\Facturas de cliente\cxExportD11.dcp" /> <DCCReference Include="..\..\Resources\Logotipos Tecsitel\cxExportD11.dcp" />
<DCCReference Include="..\Modulos\Facturas de cliente\cxExtEditorsD11.dcp" /> <DCCReference Include="..\..\Resources\Logotipos Tecsitel\cxExtEditorsD11.dcp" />
<DCCReference Include="..\Modulos\Facturas de cliente\cxGridD11.dcp" /> <DCCReference Include="..\..\Resources\Logotipos Tecsitel\cxGridD11.dcp" />
<DCCReference Include="..\Modulos\Facturas de cliente\cxIntl6D11.dcp" /> <DCCReference Include="..\..\Resources\Logotipos Tecsitel\cxIntl6D11.dcp" />
<DCCReference Include="..\Modulos\Facturas de cliente\cxIntlPrintSys3D11.dcp" /> <DCCReference Include="..\..\Resources\Logotipos Tecsitel\cxIntlPrintSys3D11.dcp" />
<DCCReference Include="..\Modulos\Facturas de cliente\cxLibraryD11.dcp" /> <DCCReference Include="..\..\Resources\Logotipos Tecsitel\cxLibraryD11.dcp" />
<DCCReference Include="..\Modulos\Facturas de cliente\cxPageControlD11.dcp" /> <DCCReference Include="..\..\Resources\Logotipos Tecsitel\cxPageControlD11.dcp" />
<DCCReference Include="..\Modulos\Facturas de cliente\DataAbstract_Core_D11.dcp" /> <DCCReference Include="..\..\Resources\Logotipos Tecsitel\DataAbstract_Core_D11.dcp" />
<DCCReference Include="..\Modulos\Facturas de cliente\dbrtl.dcp" /> <DCCReference Include="..\..\Resources\Logotipos Tecsitel\dbrtl.dcp" />
<DCCReference Include="..\Modulos\Facturas de cliente\dclIndyCore.dcp" /> <DCCReference Include="..\..\Resources\Logotipos Tecsitel\dclIndyCore.dcp" />
<DCCReference Include="..\Modulos\Facturas de cliente\designide.dcp" /> <DCCReference Include="..\..\Resources\Logotipos Tecsitel\designide.dcp" />
<DCCReference Include="..\Modulos\Facturas de cliente\dsnap.dcp" /> <DCCReference Include="..\..\Resources\Logotipos Tecsitel\dsnap.dcp" />
<DCCReference Include="..\Modulos\Facturas de cliente\dxGDIPlusD11.dcp" /> <DCCReference Include="..\..\Resources\Logotipos Tecsitel\dxGDIPlusD11.dcp" />
<DCCReference Include="..\Modulos\Facturas de cliente\dxPSCoreD11.dcp" /> <DCCReference Include="..\..\Resources\Logotipos Tecsitel\dxPSCoreD11.dcp" />
<DCCReference Include="..\Modulos\Facturas de cliente\dxThemeD11.dcp" /> <DCCReference Include="..\..\Resources\Logotipos Tecsitel\dxThemeD11.dcp" />
<DCCReference Include="..\Modulos\Facturas de cliente\GUISDK_D11R.dcp" /> <DCCReference Include="..\..\Resources\Logotipos Tecsitel\GUISDK_D11R.dcp" />
<DCCReference Include="..\Modulos\Facturas de cliente\IndyCore.dcp" /> <DCCReference Include="..\..\Resources\Logotipos Tecsitel\IndyCore.dcp" />
<DCCReference Include="..\Modulos\Facturas de cliente\IndyProtocols.dcp" /> <DCCReference Include="..\..\Resources\Logotipos Tecsitel\IndyProtocols.dcp" />
<DCCReference Include="..\Modulos\Facturas de cliente\IndySystem.dcp" /> <DCCReference Include="..\..\Resources\Logotipos Tecsitel\IndySystem.dcp" />
<DCCReference Include="..\Modulos\Facturas de cliente\Jcl.dcp" /> <DCCReference Include="..\..\Resources\Logotipos Tecsitel\Jcl.dcp" />
<DCCReference Include="..\Modulos\Facturas de cliente\JclVcl.dcp" /> <DCCReference Include="..\..\Resources\Logotipos Tecsitel\JclVcl.dcp" />
<DCCReference Include="..\Modulos\Facturas de cliente\JSDialog100.dcp" /> <DCCReference Include="..\..\Resources\Logotipos Tecsitel\JSDialog100.dcp" />
<DCCReference Include="..\Modulos\Facturas de cliente\JvCmpD11R.dcp" /> <DCCReference Include="..\..\Resources\Logotipos Tecsitel\JvCmpD11R.dcp" />
<DCCReference Include="..\Modulos\Facturas de cliente\JvCoreD11R.dcp" /> <DCCReference Include="..\..\Resources\Logotipos Tecsitel\JvCoreD11R.dcp" />
<DCCReference Include="..\Modulos\Facturas de cliente\JvCtrlsD11R.dcp" /> <DCCReference Include="..\..\Resources\Logotipos Tecsitel\JvCtrlsD11R.dcp" />
<DCCReference Include="..\Modulos\Facturas de cliente\JvDlgsD11R.dcp" /> <DCCReference Include="..\..\Resources\Logotipos Tecsitel\JvDlgsD11R.dcp" />
<DCCReference Include="..\Modulos\Facturas de cliente\JvMMD11R.dcp" /> <DCCReference Include="..\..\Resources\Logotipos Tecsitel\JvMMD11R.dcp" />
<DCCReference Include="..\Modulos\Facturas de cliente\JvNetD11R.dcp" /> <DCCReference Include="..\..\Resources\Logotipos Tecsitel\JvNetD11R.dcp" />
<DCCReference Include="..\Modulos\Facturas de cliente\JvPageCompsD11R.dcp" /> <DCCReference Include="..\..\Resources\Logotipos Tecsitel\JvPageCompsD11R.dcp" />
<DCCReference Include="..\Modulos\Facturas de cliente\JvStdCtrlsD11R.dcp" /> <DCCReference Include="..\..\Resources\Logotipos Tecsitel\JvStdCtrlsD11R.dcp" />
<DCCReference Include="..\Modulos\Facturas de cliente\JvSystemD11R.dcp" /> <DCCReference Include="..\..\Resources\Logotipos Tecsitel\JvSystemD11R.dcp" />
<DCCReference Include="..\Modulos\Facturas de cliente\pckMD5.dcp" /> <DCCReference Include="..\..\Resources\Logotipos Tecsitel\pckMD5.dcp" />
<DCCReference Include="..\Modulos\Facturas de cliente\pckUCDataConnector.dcp" /> <DCCReference Include="..\..\Resources\Logotipos Tecsitel\pckUCDataConnector.dcp" />
<DCCReference Include="..\Modulos\Facturas de cliente\pckUserControl_RT.dcp" /> <DCCReference Include="..\..\Resources\Logotipos Tecsitel\pckUserControl_RT.dcp" />
<DCCReference Include="..\Modulos\Facturas de cliente\PngComponentsD10.dcp" /> <DCCReference Include="..\..\Resources\Logotipos Tecsitel\PngComponentsD10.dcp" />
<DCCReference Include="..\Modulos\Facturas de cliente\PNG_D10.dcp" /> <DCCReference Include="..\..\Resources\Logotipos Tecsitel\PNG_D10.dcp" />
<DCCReference Include="..\Modulos\Facturas de cliente\RemObjects_Core_D11.dcp" /> <DCCReference Include="..\..\Resources\Logotipos Tecsitel\RemObjects_Core_D11.dcp" />
<DCCReference Include="..\Modulos\Facturas de cliente\RemObjects_Indy_D11.dcp" /> <DCCReference Include="..\..\Resources\Logotipos Tecsitel\RemObjects_Indy_D11.dcp" />
<DCCReference Include="..\Modulos\Facturas de cliente\rtl.dcp" /> <DCCReference Include="..\..\Resources\Logotipos Tecsitel\rtl.dcp" />
<DCCReference Include="..\Modulos\Facturas de cliente\TB2k_D10.dcp" /> <DCCReference Include="..\..\Resources\Logotipos Tecsitel\TB2k_D10.dcp" />
<DCCReference Include="..\Modulos\Facturas de cliente\tbx_d10.dcp" /> <DCCReference Include="..\..\Resources\Logotipos Tecsitel\tbx_d10.dcp" />
<DCCReference Include="..\Modulos\Facturas de cliente\vcl.dcp" /> <DCCReference Include="..\..\Resources\Logotipos Tecsitel\vcl.dcp" />
<DCCReference Include="..\Modulos\Facturas de cliente\vclactnband.dcp" /> <DCCReference Include="..\..\Resources\Logotipos Tecsitel\vclactnband.dcp" />
<DCCReference Include="..\Modulos\Facturas de cliente\vcldb.dcp" /> <DCCReference Include="..\..\Resources\Logotipos Tecsitel\vcldb.dcp" />
<DCCReference Include="..\Modulos\Facturas de cliente\vcljpg.dcp" /> <DCCReference Include="..\..\Resources\Logotipos Tecsitel\vcljpg.dcp" />
<DCCReference Include="..\Modulos\Facturas de cliente\VclSmp.dcp" /> <DCCReference Include="..\..\Resources\Logotipos Tecsitel\VclSmp.dcp" />
<DCCReference Include="..\Modulos\Facturas de cliente\vclx.dcp" /> <DCCReference Include="..\..\Resources\Logotipos Tecsitel\vclx.dcp" />
<DCCReference Include="..\Modulos\Facturas de cliente\xmlrtl.dcp" /> <DCCReference Include="..\..\Resources\Logotipos Tecsitel\xmlrtl.dcp" />
<DCCReference Include="..\Servicios\FactuGES_Intf.pas" /> <DCCReference Include="..\Servicios\FactuGES_Intf.pas" />
<DCCReference Include="Conexion\uConfigurarConexion.pas"> <DCCReference Include="Conexion\uConfigurarConexion.pas">
<Form>fConfigurarConexion</Form> <Form>fConfigurarConexion</Form>

2
Source/Cliente/FactuGES.dproj
View File

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

8
Source/Cliente/FactuGES.rc
View File

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

BIN
Source/Cliente/FactuGES.res
View File

Binary file not shown.

28
Source/Informes/3/InfFacturaCliente.fr3
View File

File diff suppressed because one or more lines are too long

20
Source/Informes/3/InfPresupuestoCliente.fr3
View File

File diff suppressed because one or more lines are too long

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

File diff suppressed because one or more lines are too long

9
Source/Modulos/Presupuestos de cliente/Reports/uRptWordPresupuestoCliente.pas
View File

@ -116,6 +116,7 @@ begin
FWordApp.SaveActiveDocAs(FNombreFichero); FWordApp.SaveActiveDocAs(FNombreFichero);
try try
if (tbl_Cabecera.FieldByName('ID_EMPRESA').AsInteger <> 3) then
if not RellenarPortada then if not RellenarPortada then
RaiseError('Se producido un error al generar la portada del informe en MS Word.'); RaiseError('Se producido un error al generar la portada del informe en MS Word.');
@ -309,6 +310,8 @@ begin
FWordApp.InsertFile(NombreFichero, 'Notas'); FWordApp.InsertFile(NombreFichero, 'Notas');
SysUtils.DeleteFile(NombreFichero); SysUtils.DeleteFile(NombreFichero);
if (tbl_Cabecera.FieldByName('ID_EMPRESA').AsInteger <> 3) then
begin
ReplaceBookmark('NombreEmpresaPortada', tbl_Empresa.FieldByName('NOMBRE').AsString); ReplaceBookmark('NombreEmpresaPortada', tbl_Empresa.FieldByName('NOMBRE').AsString);
ReplaceBookmark('DireccionEmpresaPortada', ReplaceBookmark('DireccionEmpresaPortada',
Format('%s. %s %s', [tbl_Empresa.FieldByName('CALLE').AsString, Format('%s. %s %s', [tbl_Empresa.FieldByName('CALLE').AsString,
@ -316,6 +319,7 @@ begin
ReplaceBookmark('TelefonoEmpresaPortada', tbl_Empresa.FieldByName('TELEFONO_1').AsString); ReplaceBookmark('TelefonoEmpresaPortada', tbl_Empresa.FieldByName('TELEFONO_1').AsString);
ReplaceBookmark('FaxEmpresaPortada', tbl_Empresa.FieldByName('FAX').AsString); ReplaceBookmark('FaxEmpresaPortada', tbl_Empresa.FieldByName('FAX').AsString);
ReplaceBookmark('CorreoEmpresaPortada', tbl_Empresa.FieldByName('EMAIL_1').AsString); ReplaceBookmark('CorreoEmpresaPortada', tbl_Empresa.FieldByName('EMAIL_1').AsString);
end;
ReplaceBookmark('NombreEmpresa', tbl_Empresa.FieldByName('NOMBRE').AsString); ReplaceBookmark('NombreEmpresa', tbl_Empresa.FieldByName('NOMBRE').AsString);
ReplaceBookmark('CifEmpresa', tbl_Empresa.FieldByName('NIF_CIF').AsString); ReplaceBookmark('CifEmpresa', tbl_Empresa.FieldByName('NIF_CIF').AsString);
@ -323,10 +327,13 @@ begin
Format('%s. %s %s', [tbl_Empresa.FieldByName('CALLE').AsString, Format('%s. %s %s', [tbl_Empresa.FieldByName('CALLE').AsString,
tbl_Empresa.FieldByName('CODIGO_POSTAL').AsString, tbl_Empresa.FieldByName('POBLACION').AsString])); tbl_Empresa.FieldByName('CODIGO_POSTAL').AsString, tbl_Empresa.FieldByName('POBLACION').AsString]));
ReplaceBookmark('TelefonoEmpresa', tbl_Empresa.FieldByName('TELEFONO_1').AsString); ReplaceBookmark('TelefonoEmpresa', tbl_Empresa.FieldByName('TELEFONO_1').AsString);
if (tbl_Cabecera.FieldByName('ID_EMPRESA').AsInteger <> 3) then
begin
ReplaceBookmark('FaxEmpresa', tbl_Empresa.FieldByName('FAX').AsString); ReplaceBookmark('FaxEmpresa', tbl_Empresa.FieldByName('FAX').AsString);
ReplaceBookmark('CorreoEmpresa', tbl_Empresa.FieldByName('EMAIL_1').AsString); ReplaceBookmark('CorreoEmpresa', tbl_Empresa.FieldByName('EMAIL_1').AsString);
ReplaceBookmark('NombreEmpresaFirma', tbl_Empresa.FieldByName('NOMBRE').AsString); ReplaceBookmark('NombreEmpresaFirma', tbl_Empresa.FieldByName('NOMBRE').AsString);
end;
end; end;
Result := True; Result := True;

213
Source/Modulos/Recibos de cliente/Reports/uRptRecibosCliente_Server.dfm
View File

@ -207,8 +207,6 @@ object RptRecibosCliente: TRptRecibosCliente
RemoteFetchEnabled = False RemoteFetchEnabled = False
LocalSchema = schReport LocalSchema = schReport
LocalDataStreamer = Bin2DataStreamer LocalDataStreamer = Bin2DataStreamer
DetailOptions = [dtCascadeOpenClose, dtCascadeApplyUpdates, dtAutoFetch, dtCascadeDelete, dtCascadeUpdate, dtDisableLogOfCascadeDeletes, dtDisableLogOfCascadeUpdates, dtIncludeInAllInOneFetch]
MasterOptions = [moCascadeOpenClose, moCascadeApplyUpdates, moCascadeDelete, moCascadeUpdate, moDisableLogOfCascadeDeletes, moDisableLogOfCascadeUpdates]
LogicalName = 'Informe_Cabecera' LogicalName = 'Informe_Cabecera'
IndexDefs = <> IndexDefs = <>
Left = 264 Left = 264
@ -1179,7 +1177,7 @@ object RptRecibosCliente: TRptRecibosCliente
Top = 158 Top = 158
end end
object frxReport: TfrxReport object frxReport: TfrxReport
Version = '4.3' Version = '4.7.71'
DotMatrixReport = False DotMatrixReport = False
EngineOptions.DoublePass = True EngineOptions.DoublePass = True
IniFile = '\Software\Fast Reports' IniFile = '\Software\Fast Reports'
@ -1187,17 +1185,67 @@ object RptRecibosCliente: TRptRecibosCliente
PreviewOptions.Zoom = 1.000000000000000000 PreviewOptions.Zoom = 1.000000000000000000
PrintOptions.Printer = 'Por defecto' PrintOptions.Printer = 'Por defecto'
PrintOptions.PrintOnSheet = 0 PrintOptions.PrintOnSheet = 0
ReportOptions.CreateDate = 37800.807714351900000000 ReportOptions.CreateDate = 39065.872423495400000000
ReportOptions.LastChange = 39840.717636527780000000 ReportOptions.LastChange = 41330.513803576390000000
ScriptLanguage = 'PascalScript' ScriptLanguage = 'PascalScript'
ScriptText.Strings = ( ScriptText.Strings = (
'procedure frxReportOnStartReport(Sender: TfrxComponent);' ''
'procedure DatosEmpresaOnBeforePrint(Sender: TfrxComponent);'
'var'
' Cadena: String;'
'begin' 'begin'
' Set('#39'Pagina'#39', 0);' '{ DatosEmpresa.Lines.Clear;'
' Set('#39'TotalPaginas'#39', 0); ' ' if (<frxDBCabecera."TELEFONO_1_EMPRESA"> <> '#39#39') then'
' Cadena := '#39'TLF: '#39' + <frxDBCabecera."TELEFONO_1_EMPRESA">;'
' if (<frxDBCabecera."FAX_EMPRESA"> <> '#39#39') then'
' Cadena := Cadena + '#39' FAX: '#39' + <frxDBCabecera."FAX_EMPRESA' +
'">;'
' DatosEmpresa.Lines.Add(Cadena);'
'}'
'end;' 'end;'
'' ''
'procedure Band1OnBeforePrint(Sender: TfrxComponent);' 'procedure NombreEmpresaOnBeforePrint(Sender: TfrxComponent);'
'begin'
'{ NombreEmpresa.Lines.Clear;'
' NombreEmpresa.Lines.Add(<frxDBCabecera."NOMBRE_EMPRESA">);'
'}'
'end;'
''
'procedure DireccionEnvioOnBeforePrint(Sender: TfrxComponent);'
'var'
' ACadena : String;'
'begin'
'{ ACadena := '#39#39';'
' DireccionEnvio.Lines.Clear;'
' if (<frxDBCabecera."REFERENCIA_CLIENTE"> <> '#39#39') then'
' ACadena := <frxDBCabecera."REFERENCIA_CLIENTE">;'
''
' if (<frxDBCabecera."PERSONA_CONTACTO"> <> '#39#39') then'
' ACadena := ACadena + '#39' '#39' + <frxDBCabecera."PERSONA_CONTACT' +
'O">;'
''
' DireccionEnvio.Lines.Add(ACadena);'
' ACadena := '#39#39';'
' DireccionEnvio.Lines.Add(<frxDBCabecera."CALLE">);'
' if (<frxDBCabecera."CODIGO_POSTAL"> <> '#39#39') then'
' ACadena := <frxDBCabecera."CODIGO_POSTAL"> + '#39' '#39';'
' if (<frxDBCabecera."POBLACION"> <> '#39#39') then'
' ACadena := ACadena + <frxDBCabecera."CODIGO_POSTAL">;'
''
' if (ACadena <> '#39#39') then'
' DireccionEnvio.Lines.Add(ACadena);'
''
' if (<frxDBCabecera."PROVINCIA"> <> '#39#39') then'
' DireccionEnvio.Lines.Add(<frxDBCabecera."PROVINCIA">);'
''
' if (<frxDBCabecera."TELEFONO"> <> '#39#39') then'
' DireccionEnvio.Lines.Add(<frxDBCabecera."TELEFONO">);'
'}'
'end;'
''
'procedure PageHeader1OnBeforePrint(Sender: TfrxComponent);'
'begin' 'begin'
' if not Engine.FinalPass then' ' if not Engine.FinalPass then'
' Set('#39'TotalPaginas'#39', (<TotalPaginas> + 1));' ' Set('#39'TotalPaginas'#39', (<TotalPaginas> + 1));'
@ -1206,26 +1254,137 @@ object RptRecibosCliente: TRptRecibosCliente
' Set('#39'Pagina'#39', (<Pagina> + 1)); ' ' Set('#39'Pagina'#39', (<Pagina> + 1)); '
'end;' 'end;'
'' ''
'procedure mContinuaOnBeforePrint(Sender: TfrxComponent);' 'procedure frxReportOnStartReport(Sender: TfrxComponent);'
'begin' 'begin'
' if Engine.FinalPass then' ' Set('#39'Pagina'#39', 0);'
' Set('#39'TotalPaginas'#39', 0);'
' Set('#39'Capitulo'#39', 0);'
' Set('#39'NumCapitulos'#39', 0); '
'end;'
''
'procedure Memo4OnBeforePrint(Sender: TfrxComponent);'
'begin' 'begin'
' if (Length(<frxDBCabecera."OBSERVACIONES">) = 0) then'
' Memo4.Visible := False; '
'end;'
''
'procedure Memo22OnBeforePrint(Sender: TfrxComponent);'
'begin'
' if (<frxDBCabecera."DESCUENTO"> = 0) then'
' begin '
' Subtotal.Text := '#39'Base imponible:'#39';'
' BaseImponible.Text := '#39'Importe total:'#39'; '
' BaseImponible.Font.Style := fsBold;'
''
' //A la vez que salta este salta la asignacion de pagina por ' + ' ImpBaseImponible.Text := FormatFloat('#39'#,##0.00 '#8364#39', <frxDBCa' +
'lo que no coincide nunca si no suponemos +1 ' + 'becera."IMPORTE_TOTAL">);'
' ' + ' ImpBaseImponible.Font.Style := fsBold; '
' ' + ' '
' Descuento.Text := (FormatFloat('#39'#,##0.00 %'#39', <frxDBCabecera' +
'."IVA">) + '#39' IVA:'#39');'
' ImpDescuento.Text := FormatFloat('#39'#,##0.00 '#8364#39', <frxDBCabec' +
'era."IMPORTE_IVA">);'
'// Memo11.Color := $00CCFFCC;'
''
' if (<frxDBCabecera."IMPORTE_RETENCION"> > 0) then'
' begin '
' BaseImponible.Text := '#39'Total certificaci'#243'n:'#39';'
' IVA.Text := FormatFloat('#39'#,##0.00 %'#39',<frxDBCabecera."RET' +
'ENCION">) + '#39' Retenci'#243'n:'#39'; '
' ImpIVA.Text := FormatFloat('#39'-#,##0.00 '#8364#39',<frxDBCabecera.' +
'"IMPORTE_RETENCION">);'
' ImporteTotal.Text := '#39'TOTAL FACTURA'#39'; ' +
' ' + ' ' +
' ' ' '
' if ((<Pagina> + 1) = <TotalPaginas>) then'
' begin ' ' ImpImporteTotal.Text := FormatFloat('#39'#,##0.00 '#8364#39', (<frxD' +
' mContinua.Visible := True;' 'BCabecera."IMPORTE_TOTAL"> - <frxDBCabecera."IMPORTE_RETENCION">' +
')); '
' end ' ' end '
' else' ' else'
' begin' ' begin'
' mContinua.Visible := False;' ' IVA.Visible := False;'
' ImpIVA.Visible := False;'
' ImporteTotal.Visible := False;'
' ImpImporteTotal.Visible := False;'
'// Memo16.Visible := False; '
'// Memo17.Visible := False;'
' end;'
' end'
' else'
' begin '
' if (<frxDBCabecera."IMPORTE_RETENCION"> > 0) then'
' begin'
' ImporteTotal.Text := '#39'Total certificaci'#243'n:'#39'; '
' Retencion.Visible := True;'
' ImpRetencion.Visible := True;'
'// LinRetencion.Visible := True; '
' TotalFacturaRet.Visible := True;'
' ImpTotalFacturaRet.Visible := True;'
'// LinImporteTotalFacturaRet.Visible := True; '
' end'
' end ' ' end '
'end;' 'end;'
''
'procedure Memo39OnBeforePrint(Sender: TfrxComponent);'
'begin'
' Memo25.Clear; '
' if (<frxDBCabecera."TIPO"> = '#39'F'#39') then'
' Memo25.Text := '#39'FACTURA'#39' ' +
' '
' else'
' Memo25.Text := '#39'ABONO'#39'; '
'end;'
''
'procedure Picture4OnBeforePrint(Sender: TfrxComponent);'
'begin'
' if (<VerSello> = 1) then'
' Picture4.Visible := True'
' else'
' Picture4.Visible := False; '
'end;'
''
'procedure eCopiaOnBeforePrint(Sender: TfrxComponent);'
'begin'
' if (<VerCopia> = 1) then'
' eCopia.Visible := True'
' else'
' eCopia.Visible := False; '
'end;'
''
'procedure frxDBDetallesCANTIDADOnBeforePrint(Sender: TfrxCompone' +
'nt);'
'var '
' ACantidad: String; '
' AIndice: Integer;'
' AText : String; '
'begin'
' frxDBDetallesCANTIDAD.Memo.Clear; '
' ACantidad := FloatToStr(<frxDBDetalles."CANTIDAD">);'
' if ACantidad = '#39'0'#39' then'
' AText := '#39#39
' else begin '
' AIndice := Pos('#39','#39', ACantidad);'
' if AIndice > 0 then ' +
' '
' AText := '#39'[FormatFloat('#39#39'#,##0.00'#39#39',<frxDBDetalles."' +
'CANTIDAD">)] [frxDBDetalles."UNIDAD_MEDIDA"]'#39
' else '
' AText := '#39'[FormatFloat('#39#39'#,##0.##'#39#39',<frxDBDetalles."' +
'CANTIDAD">)] [frxDBDetalles."UNIDAD_MEDIDA"]'#39'; '
' end; '
' frxDBDetallesCANTIDAD.Memo.Add(AText);'
'end;' 'end;'
'' ''
'begin' 'begin'
@ -1241,6 +1400,7 @@ object RptRecibosCliente: TRptRecibosCliente
UserName = 'frxDBCabecera' UserName = 'frxDBCabecera'
CloseDataSource = False CloseDataSource = False
DataSource = DADataCabecera DataSource = DADataCabecera
BCDToCurrency = False
Left = 264 Left = 264
Top = 16 Top = 16
end end
@ -1254,6 +1414,7 @@ object RptRecibosCliente: TRptRecibosCliente
UserName = 'frxDBCompensados' UserName = 'frxDBCompensados'
CloseDataSource = False CloseDataSource = False
DataSource = DADataCompensados DataSource = DADataCompensados
BCDToCurrency = False
Left = 360 Left = 360
Top = 16 Top = 16
end end
@ -1286,8 +1447,6 @@ object RptRecibosCliente: TRptRecibosCliente
RemoteFetchEnabled = False RemoteFetchEnabled = False
LocalSchema = schReport LocalSchema = schReport
LocalDataStreamer = Bin2DataStreamer LocalDataStreamer = Bin2DataStreamer
DetailOptions = [dtCascadeOpenClose, dtCascadeApplyUpdates, dtAutoFetch, dtCascadeDelete, dtCascadeUpdate, dtDisableLogOfCascadeDeletes, dtDisableLogOfCascadeUpdates, dtIncludeInAllInOneFetch]
MasterOptions = [moCascadeOpenClose, moCascadeApplyUpdates, moCascadeDelete, moCascadeUpdate, moDisableLogOfCascadeDeletes, moDisableLogOfCascadeUpdates]
LogicalName = 'Informe_Compensados' LogicalName = 'Informe_Compensados'
IndexDefs = <> IndexDefs = <>
Left = 360 Left = 360
@ -1351,8 +1510,6 @@ object RptRecibosCliente: TRptRecibosCliente
RemoteFetchEnabled = False RemoteFetchEnabled = False
LocalSchema = schReport LocalSchema = schReport
LocalDataStreamer = Bin2DataStreamer LocalDataStreamer = Bin2DataStreamer
DetailOptions = [dtCascadeOpenClose, dtCascadeApplyUpdates, dtAutoFetch, dtCascadeDelete, dtCascadeUpdate, dtDisableLogOfCascadeDeletes, dtDisableLogOfCascadeUpdates, dtIncludeInAllInOneFetch]
MasterOptions = [moCascadeOpenClose, moCascadeApplyUpdates, moCascadeDelete, moCascadeUpdate, moDisableLogOfCascadeDeletes, moDisableLogOfCascadeUpdates]
LogicalName = 'InformeListadoRecibos' LogicalName = 'InformeListadoRecibos'
IndexDefs = <> IndexDefs = <>
Left = 496 Left = 496
@ -1368,6 +1525,7 @@ object RptRecibosCliente: TRptRecibosCliente
UserName = 'frxDBInformeListadoRecibos' UserName = 'frxDBInformeListadoRecibos'
CloseDataSource = False CloseDataSource = False
DataSource = DADSInformeListadoRecibos DataSource = DADSInformeListadoRecibos
BCDToCurrency = False
Left = 496 Left = 496
Top = 16 Top = 16
end end
@ -1379,6 +1537,7 @@ object RptRecibosCliente: TRptRecibosCliente
UserName = 'frxDBInformeListadoRecibosResumen' UserName = 'frxDBInformeListadoRecibosResumen'
CloseDataSource = False CloseDataSource = False
DataSource = DADSInformeListadoRecibosResumen DataSource = DADSInformeListadoRecibosResumen
BCDToCurrency = False
Left = 504 Left = 504
Top = 192 Top = 192
end end
@ -1396,8 +1555,6 @@ object RptRecibosCliente: TRptRecibosCliente
LogChanges = False LogChanges = False
StreamingOptions = [soDisableEventsWhileStreaming] StreamingOptions = [soDisableEventsWhileStreaming]
RemoteFetchEnabled = False RemoteFetchEnabled = False
DetailOptions = [dtCascadeOpenClose, dtCascadeApplyUpdates, dtAutoFetch, dtCascadeDelete, dtCascadeUpdate, dtDisableLogOfCascadeDeletes, dtDisableLogOfCascadeUpdates, dtIncludeInAllInOneFetch]
MasterOptions = [moCascadeOpenClose, moCascadeApplyUpdates, moCascadeDelete, moCascadeUpdate, moDisableLogOfCascadeDeletes, moDisableLogOfCascadeUpdates]
IndexDefs = <> IndexDefs = <>
Left = 504 Left = 504
Top = 304 Top = 304
@ -1406,6 +1563,7 @@ object RptRecibosCliente: TRptRecibosCliente
UserName = 'frxDBInformeListadoRecibosPendientes' UserName = 'frxDBInformeListadoRecibosPendientes'
CloseDataSource = False CloseDataSource = False
DataSource = DADSInformeListadoRecibosPendientes DataSource = DADSInformeListadoRecibosPendientes
BCDToCurrency = False
Left = 704 Left = 704
Top = 16 Top = 16
end end
@ -1482,8 +1640,6 @@ object RptRecibosCliente: TRptRecibosCliente
RemoteFetchEnabled = False RemoteFetchEnabled = False
LocalSchema = schReport LocalSchema = schReport
LocalDataStreamer = Bin2DataStreamer LocalDataStreamer = Bin2DataStreamer
DetailOptions = [dtCascadeOpenClose, dtCascadeApplyUpdates, dtAutoFetch, dtCascadeDelete, dtCascadeUpdate, dtDisableLogOfCascadeDeletes, dtDisableLogOfCascadeUpdates, dtIncludeInAllInOneFetch]
MasterOptions = [moCascadeOpenClose, moCascadeApplyUpdates, moCascadeDelete, moCascadeUpdate, moDisableLogOfCascadeDeletes, moDisableLogOfCascadeUpdates]
LogicalName = 'InformeListadoRecibosPendientes' LogicalName = 'InformeListadoRecibosPendientes'
IndexDefs = <> IndexDefs = <>
Left = 704 Left = 704
@ -1493,6 +1649,7 @@ object RptRecibosCliente: TRptRecibosCliente
UserName = 'frxDBInformeListadoRecibosPendResumen' UserName = 'frxDBInformeListadoRecibosPendResumen'
CloseDataSource = False CloseDataSource = False
DataSource = DADSInformeListadoRecibosPendResumen DataSource = DADSInformeListadoRecibosPendResumen
BCDToCurrency = False
Left = 704 Left = 704
Top = 192 Top = 192
end end
@ -1510,8 +1667,6 @@ object RptRecibosCliente: TRptRecibosCliente
LogChanges = False LogChanges = False
StreamingOptions = [soDisableEventsWhileStreaming] StreamingOptions = [soDisableEventsWhileStreaming]
RemoteFetchEnabled = False RemoteFetchEnabled = False
DetailOptions = [dtCascadeOpenClose, dtCascadeApplyUpdates, dtAutoFetch, dtCascadeDelete, dtCascadeUpdate, dtDisableLogOfCascadeDeletes, dtDisableLogOfCascadeUpdates, dtIncludeInAllInOneFetch]
MasterOptions = [moCascadeOpenClose, moCascadeApplyUpdates, moCascadeDelete, moCascadeUpdate, moDisableLogOfCascadeDeletes, moDisableLogOfCascadeUpdates]
IndexDefs = <> IndexDefs = <>
Left = 704 Left = 704
Top = 304 Top = 304

2
Source/Modulos/Remesas de cliente/Views/uEditorRemesasCliente.dfm
View File

@ -45,7 +45,7 @@ inherited fEditorRemesasCliente: TfEditorRemesasCliente
Width = 785 Width = 785
ExplicitWidth = 785 ExplicitWidth = 785
inherited tbxMain: TTBXToolbar inherited tbxMain: TTBXToolbar
ExplicitWidth = 785 ExplicitWidth = 704
object TBXSeparatorItem17: TTBXSeparatorItem [12] object TBXSeparatorItem17: TTBXSeparatorItem [12]
end end
end end

6
Source/Modulos/Remesas de cliente/Views/uEditorRemesasCliente.pas
View File

@ -111,6 +111,8 @@ begin
if not ViewGrid.esSeleccionCeldaDatos then if not ViewGrid.esSeleccionCeldaDatos then
inherited inherited
else else
inherited;
{
begin begin
Respuesta := JsImprimirDialog.Execute; Respuesta := JsImprimirDialog.Execute;
if Respuesta <> IDCANCEL then if Respuesta <> IDCANCEL then
@ -134,6 +136,7 @@ begin
end; end;
end; end;
end; end;
}
end; end;
function TfEditorRemesasCliente.GetController: IRemesasClienteController; function TfEditorRemesasCliente.GetController: IRemesasClienteController;
@ -185,6 +188,8 @@ begin
if not ViewGrid.esSeleccionCeldaDatos then if not ViewGrid.esSeleccionCeldaDatos then
inherited inherited
else else
inherited;
{
begin begin
Respuesta := JsPrevisualizarDialog.Execute; Respuesta := JsPrevisualizarDialog.Execute;
if Respuesta <> IDCANCEL then if Respuesta <> IDCANCEL then
@ -208,6 +213,7 @@ begin
end; end;
end; end;
end; end;
}
end; end;
procedure TfEditorRemesasCliente.RefrescarInterno; procedure TfEditorRemesasCliente.RefrescarInterno;

2
Source/Modulos/Remesas de proveedor/Views/uEditorRemesasProveedor.dfm
View File

@ -43,7 +43,7 @@ inherited fEditorRemesasProveedor: TfEditorRemesasProveedor
Width = 820 Width = 820
ExplicitWidth = 820 ExplicitWidth = 820
inherited tbxMain: TTBXToolbar inherited tbxMain: TTBXToolbar
ExplicitWidth = 809 ExplicitWidth = 704
object TBXSeparatorItem17: TTBXSeparatorItem [12] object TBXSeparatorItem17: TTBXSeparatorItem [12]
end end
end end

6
Source/Modulos/Remesas de proveedor/Views/uEditorRemesasProveedor.pas
View File

@ -111,6 +111,8 @@ begin
if not ViewGrid.esSeleccionCeldaDatos then if not ViewGrid.esSeleccionCeldaDatos then
inherited inherited
else else
inherited;
{
begin begin
Respuesta := JsImprimirDialog.Execute; Respuesta := JsImprimirDialog.Execute;
if Respuesta <> IDCANCEL then if Respuesta <> IDCANCEL then
@ -134,6 +136,7 @@ begin
end; end;
end; end;
end; end;
}
end; end;
function TfEditorRemesasProveedor.GetController: IRemesasProveedorController; function TfEditorRemesasProveedor.GetController: IRemesasProveedorController;
@ -185,6 +188,8 @@ begin
if not ViewGrid.esSeleccionCeldaDatos then if not ViewGrid.esSeleccionCeldaDatos then
inherited inherited
else else
inherited;
{
begin begin
Respuesta := JsPrevisualizarDialog.Execute; Respuesta := JsPrevisualizarDialog.Execute;
if Respuesta <> IDCANCEL then if Respuesta <> IDCANCEL then
@ -208,6 +213,7 @@ begin
end; end;
end; end;
end; end;
}
end; end;
procedure TfEditorRemesasProveedor.RefrescarInterno; procedure TfEditorRemesasProveedor.RefrescarInterno;

BIN
Source/Servidor/FactuGES_Server.RES
View File

Binary file not shown.

5
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>
@ -35,7 +35,8 @@
<Borland.Personality>Delphi.Personality</Borland.Personality> <Borland.Personality>Delphi.Personality</Borland.Personality>
<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 Name="RunParams">/standalone</Parameters></Parameters><VersionInfo><VersionInfo Name="IncludeVerInfo">True</VersionInfo><VersionInfo Name="AutoIncBuild">False</VersionInfo><VersionInfo Name="MajorVer">1</VersionInfo><VersionInfo Name="MinorVer">9</VersionInfo><VersionInfo Name="Release">4</VersionInfo><VersionInfo Name="Build">0</VersionInfo><VersionInfo Name="Debug">False</VersionInfo><VersionInfo Name="PreRelease">False</VersionInfo><VersionInfo Name="Special">False</VersionInfo><VersionInfo Name="Private">False</VersionInfo><VersionInfo Name="DLL">False</VersionInfo><VersionInfo Name="Locale">3082</VersionInfo><VersionInfo Name="CodePage">1252</VersionInfo></VersionInfo><VersionInfoKeys><VersionInfoKeys Name="CompanyName"></VersionInfoKeys><VersionInfoKeys Name="FileDescription"></VersionInfoKeys><VersionInfoKeys Name="FileVersion">1.9.4.0</VersionInfoKeys><VersionInfoKeys Name="InternalName"></VersionInfoKeys><VersionInfoKeys Name="LegalCopyright"></VersionInfoKeys><VersionInfoKeys Name="LegalTrademarks"></VersionInfoKeys><VersionInfoKeys Name="OriginalFilename"></VersionInfoKeys><VersionInfoKeys Name="ProductName"></VersionInfoKeys><VersionInfoKeys Name="ProductVersion">1.9.4.0</VersionInfoKeys><VersionInfoKeys Name="Comments"></VersionInfoKeys><VersionInfoKeys Name="CompileDate">martes, 22 de noviembre de 2011 10:27</VersionInfoKeys></VersionInfoKeys><Excluded_Packages> <BorlandProject><Delphi.Personality><Parameters><Parameters Name="UseLauncher">False</Parameters><Parameters Name="LoadAllSymbols">True</Parameters><Parameters Name="LoadUnspecifiedSymbols">False</Parameters><Parameters Name="RunParams">/standalone</Parameters></Parameters><VersionInfo><VersionInfo Name="IncludeVerInfo">True</VersionInfo><VersionInfo Name="AutoIncBuild">False</VersionInfo><VersionInfo Name="MajorVer">1</VersionInfo><VersionInfo Name="MinorVer">9</VersionInfo><VersionInfo Name="Release">7</VersionInfo><VersionInfo Name="Build">0</VersionInfo><VersionInfo Name="Debug">False</VersionInfo><VersionInfo Name="PreRelease">False</VersionInfo><VersionInfo Name="Special">False</VersionInfo><VersionInfo Name="Private">False</VersionInfo><VersionInfo Name="DLL">False</VersionInfo><VersionInfo Name="Locale">3082</VersionInfo><VersionInfo Name="CodePage">1252</VersionInfo></VersionInfo><VersionInfoKeys><VersionInfoKeys Name="CompanyName"></VersionInfoKeys><VersionInfoKeys Name="FileDescription"></VersionInfoKeys><VersionInfoKeys Name="FileVersion">1.9.7.0</VersionInfoKeys><VersionInfoKeys Name="InternalName"></VersionInfoKeys><VersionInfoKeys Name="LegalCopyright"></VersionInfoKeys><VersionInfoKeys Name="LegalTrademarks"></VersionInfoKeys><VersionInfoKeys Name="OriginalFilename"></VersionInfoKeys><VersionInfoKeys Name="ProductName"></VersionInfoKeys><VersionInfoKeys Name="ProductVersion">1.9.7.0</VersionInfoKeys><VersionInfoKeys Name="Comments"></VersionInfoKeys><VersionInfoKeys Name="CompileDate">lunes, 25 de febrero de 2013 12:25</VersionInfoKeys></VersionInfoKeys><Excluded_Packages>
<Excluded_Packages Name="C:\Documents and Settings\All Users\Documentos\RAD Studio\5.0\Bpl\dxPSCoreD11.bpl">ExpressPrinting System by Developer Express Inc.</Excluded_Packages> <Excluded_Packages Name="C:\Documents and Settings\All Users\Documentos\RAD Studio\5.0\Bpl\dxPSCoreD11.bpl">ExpressPrinting System by Developer Express Inc.</Excluded_Packages>
</Excluded_Packages><Source><Source Name="MainSource">FactuGES_Server.dpr</Source></Source></Delphi.Personality></BorlandProject></BorlandProject> </Excluded_Packages><Source><Source Name="MainSource">FactuGES_Server.dpr</Source></Source></Delphi.Personality></BorlandProject></BorlandProject>
</ProjectExtensions> </ProjectExtensions>

10
Source/Servidor/FactuGES_Server.rc
View File

@ -1,7 +1,7 @@
MAINICON ICON "C:\Codigo tecsitel\Resources\Iconos\Servidor.ico" MAINICON ICON "C:\Codigo tecsitel\Resources\Iconos\Servidor.ico"
1 VERSIONINFO 1 VERSIONINFO
FILEVERSION 1,9,4,0 FILEVERSION 1,9,6,0
PRODUCTVERSION 1,9,4,0 PRODUCTVERSION 1,9,6,0
FILEFLAGSMASK 0x3FL FILEFLAGSMASK 0x3FL
FILEFLAGS 0x00L FILEFLAGS 0x00L
FILEOS 0x40004L FILEOS 0x40004L
@ -12,9 +12,9 @@ BEGIN
BEGIN BEGIN
BLOCK "0C0A04E4" BLOCK "0C0A04E4"
BEGIN BEGIN
VALUE "FileVersion", "1.9.4.0\0" VALUE "FileVersion", "1.9.6.0\0"
VALUE "ProductVersion", "1.9.4.0\0" VALUE "ProductVersion", "1.9.6.0\0"
VALUE "CompileDate", "martes, 15 de enero de 2013 17:53\0" VALUE "CompileDate", "lunes, 25 de febrero de 2013 12:25\0"
END END
END END
BLOCK "VarFileInfo" BLOCK "VarFileInfo"

4
Source/Servidor/uDataModuleServer.dfm
View File

@ -40,8 +40,8 @@ object dmServer: TdmServer
Name = 'IBX' Name = 'IBX'
ConnectionString = ConnectionString =
'IBX?Server=localhost;Database=C:\Codigo Tecsitel\Output\Debug\Da' + 'IBX?Server=localhost;Database=C:\Codigo Tecsitel\Output\Debug\Da' +
'tabase\FACTUGES2.FDB;UserID=sysdba;Password=masterkey;Dialect=3;' + 'tabase\FACTUGES.FDB;UserID=sysdba;Password=masterkey;Dialect=3;C' +
'Charset=ISO8859_1;' 'harset=ISO8859_1;'
ConnectionType = 'Interbase' ConnectionType = 'Interbase'
Default = True Default = True
end> end>