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

Version 2.2.0

Browse Source 
Cambio aplicacióna 3 firmas, se incluyen nuevos sellos

git-svn-id: https://192.168.0.254/svn/Proyectos.Tecsitel_FactuGES2/trunk@1162 0c75b7a4-871f-7646-8a2f-f78d34cc349f
This commit is contained in:
roberto 2018-04-18 14:48:17 +00:00
parent 620b493c41
commit a6ddebacdf
42 changed files with 10689 additions and 4469 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

BIN
Resources/Firmas Tecsitel/sello-azacan-david.jpg Normal file
View File

Binary file not shown.
Side by Side

After

Width:  |  Height:  |  Size: 56 KiB

BIN
Resources/Firmas Tecsitel/sello-azacan-jl-arroyo.jpg Normal file
View File

Binary file not shown.
Side by Side

After

Width:  |  Height:  |  Size: 48 KiB

BIN
Resources/Firmas Tecsitel/sello-azacan-oscar.jpg Normal file
View File

Binary file not shown.
Side by Side

After

Width:  |  Height:  |  Size: 41 KiB

BIN
Resources/Firmas Tecsitel/sello-azacan-poblados.jpg Normal file
View File

Binary file not shown.
Side by Side

After

Width:  |  Height:  |  Size: 28 KiB

BIN
Resources/Firmas Tecsitel/sello-crcl-david.jpg Normal file
View File

Binary file not shown.
Side by Side

After

Width:  |  Height:  |  Size: 66 KiB

BIN
Resources/Firmas Tecsitel/sello-crcl-jl-arroyo.jpg Normal file
View File

Binary file not shown.
Side by Side

After

Width:  |  Height:  |  Size: 57 KiB

BIN
Resources/Firmas Tecsitel/sello-crcl-oscar.jpg Normal file
View File

Binary file not shown.
Side by Side

After

Width:  |  Height:  |  Size: 51 KiB

BIN
Resources/Firmas Tecsitel/sello-crcl.jpg Normal file
View File

Binary file not shown.
Side by Side

After

Width:  |  Height:  |  Size: 41 KiB

102
Source/Base/Base.dproj
View File

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

2
Source/Cliente/FactuGES.dproj
View File

@ -53,7 +53,7 @@
<Borland.Personality>Delphi.Personality</Borland.Personality>
<Borland.ProjectType>VCLApplication</Borland.ProjectType>
<BorlandProject>
<BorlandProject><Delphi.Personality><Parameters><Parameters Name="UseLauncher">False</Parameters><Parameters Name="LoadAllSymbols">True</Parameters><Parameters Name="LoadUnspecifiedSymbols">False</Parameters></Parameters><Language><Language Name="RootDir">C:\Archivos de programa\Borland\Delphi7\Bin\</Language></Language><VersionInfo><VersionInfo Name="IncludeVerInfo">True</VersionInfo><VersionInfo Name="AutoIncBuild">False</VersionInfo><VersionInfo Name="MajorVer">2</VersionInfo><VersionInfo Name="MinorVer">1</VersionInfo><VersionInfo Name="Release">9</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.1.9.0</VersionInfoKeys><VersionInfoKeys Name="InternalName">FactuGES</VersionInfoKeys><VersionInfoKeys Name="LegalCopyright"></VersionInfoKeys><VersionInfoKeys Name="LegalTrademarks"></VersionInfoKeys><VersionInfoKeys Name="OriginalFilename"></VersionInfoKeys><VersionInfoKeys Name="ProductName">FactuGES</VersionInfoKeys><VersionInfoKeys Name="ProductVersion">2.1.9.0</VersionInfoKeys><VersionInfoKeys Name="Comments"></VersionInfoKeys></VersionInfoKeys><Excluded_Packages></Excluded_Packages><Source><Source Name="MainSource">FactuGES.dpr</Source></Source></Delphi.Personality><ModelSupport>False</ModelSupport></BorlandProject></BorlandProject>
<BorlandProject><Delphi.Personality><Parameters><Parameters Name="UseLauncher">False</Parameters><Parameters Name="LoadAllSymbols">True</Parameters><Parameters Name="LoadUnspecifiedSymbols">False</Parameters></Parameters><Language><Language Name="RootDir">C:\Archivos de programa\Borland\Delphi7\Bin\</Language></Language><VersionInfo><VersionInfo Name="IncludeVerInfo">True</VersionInfo><VersionInfo Name="AutoIncBuild">False</VersionInfo><VersionInfo Name="MajorVer">2</VersionInfo><VersionInfo Name="MinorVer">2</VersionInfo><VersionInfo Name="Release">0</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.2.0.0</VersionInfoKeys><VersionInfoKeys Name="InternalName">FactuGES</VersionInfoKeys><VersionInfoKeys Name="LegalCopyright"></VersionInfoKeys><VersionInfoKeys Name="LegalTrademarks"></VersionInfoKeys><VersionInfoKeys Name="OriginalFilename"></VersionInfoKeys><VersionInfoKeys Name="ProductName">FactuGES</VersionInfoKeys><VersionInfoKeys Name="ProductVersion">2.2.0.0</VersionInfoKeys><VersionInfoKeys Name="Comments"></VersionInfoKeys></VersionInfoKeys><Excluded_Packages></Excluded_Packages><Source><Source Name="MainSource">FactuGES.dpr</Source></Source></Delphi.Personality><ModelSupport>False</ModelSupport></BorlandProject></BorlandProject>
</ProjectExtensions>
<Import Project="$(MSBuildBinPath)\Borland.Delphi.Targets" />
<ItemGroup>

8
Source/Cliente/FactuGES.rc
View File

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

BIN
Source/Cliente/FactuGES.res
View File

Binary file not shown.

BIN
Source/Informes/3/FacturaCliente.rdx
View File

Binary file not shown.

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

File diff suppressed because one or more lines are too long

4
Source/Informes/3/InfPedidoProveedor.fr3
View File

File diff suppressed because one or more lines are too long

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

File diff suppressed because one or more lines are too long

BIN
Source/Informes/3/PedidoProveedor.rdx
View File

Binary file not shown.

BIN
Source/Informes/3/Presupuesto.rdx
View File

Binary file not shown.

BIN
Source/Informes/5/FacturaCliente.rdx
View File

Binary file not shown.

6
Source/Informes/5/InfFacturaCliente.fr3
View File

File diff suppressed because one or more lines are too long

4
Source/Informes/5/InfPedidoProveedor.fr3
View File

File diff suppressed because one or more lines are too long

11
Source/Informes/5/InfPresupuestoCliente.fr3
View File

File diff suppressed because one or more lines are too long

BIN
Source/Informes/5/PedidoProveedor.rdx
View File

Binary file not shown.

BIN
Source/Informes/5/Presupuesto.rdx
View File

Binary file not shown.

2
Source/Modulos/Presupuestos de cliente/Controller/uPresupuestosClienteController.pas
View File

@ -74,6 +74,7 @@ type
function DarListaAnosPresupuestos: TStringList;
procedure FiltrarAno(APresupuesto: IBizPresupuestoCliente; ADynWhereDataTable: WideString; const Ano: String);
end;
TPresupuestosClienteController = class(TControllerBase, IPresupuestosClienteController)
@ -158,6 +159,7 @@ type
function DarListaAnosPresupuestos: TStringList;
procedure FiltrarAno(APresupuesto: IBizPresupuestoCliente; ADynWhereDataTable: WideString; const Ano: String);
end;
implementation

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

@ -284,38 +284,37 @@ begin
if BookmarkExists('NombreClienteFirma') then
ReplaceBookmark('NombreClienteFirma', FieldByName('NOMBRE').AsString);
//Solo para la empresa de tecsitel se debe elegir uno u otra firma
//esto es un poco parche pero bueno
if (tbl_Cabecera.FieldByName('ID_EMPRESA').AsInteger = 1) then
if (FVerSello = 1) then
begin
if (FVerSello = 1) then
begin
if BookmarkExists('Firma2') then
ReplaceBookmark('Firma2', '')
end
else
begin
if BookmarkExists('Firma1') then
ReplaceBookmark('Firma1', '');
end;
if BookmarkExists('Firma2') then
ReplaceBookmark('Firma2', '');
if (tbl_Cabecera.FieldByName('CERTIFICADO_ISO').AsInteger <> 1) then
begin
if BookmarkExists('ISO1') then
ReplaceBookmark('ISO1', '');
if BookmarkExists('ISO2') then
ReplaceBookmark('ISO2', '');
end;
if BookmarkExists('Firma3') then
ReplaceBookmark('Firma3', '');
end
else if (FVerSello = 2) then
begin
if BookmarkExists('Firma1') then
ReplaceBookmark('Firma1', '');
if BookmarkExists('Firma3') then
ReplaceBookmark('Firma3', '');
end
else if (FVerSello = 3) then
begin
if BookmarkExists('Firma1') then
ReplaceBookmark('Firma1', '');
if BookmarkExists('Firma2') then
ReplaceBookmark('Firma2', '');
end;
//Solo para la empresa de azacan y musaeda se debe elegir uno u otra firma
//esto es un poco parche pero bueno
if (tbl_Cabecera.FieldByName('ID_EMPRESA').AsInteger = 3) or (tbl_Cabecera.FieldByName('ID_EMPRESA').AsInteger = 4) then
if (tbl_Cabecera.FieldByName('CERTIFICADO_ISO').AsInteger <> 1) then
begin
if (FVerSello = 1) then
ReplaceBookmark('Firma2', '')
else
ReplaceBookmark('Firma1', '');
if BookmarkExists('ISO1') then
ReplaceBookmark('ISO1', '');
if BookmarkExists('ISO2') then
ReplaceBookmark('ISO2', '');
end;
if not EsCadenaVacia(FieldByName('MEMORIA').AsString) then

3
Source/Modulos/Presupuestos de cliente/Views/PresupuestosCliente_view.dpk
View File

@ -72,6 +72,7 @@ contains
uDialogListaPresupuestosEnvioEMail in 'uDialogListaPresupuestosEnvioEMail.pas' {fDialogListaPresupuestosEnvioEMail},
uDialogOpcionesImpresionPresupuestosCliente in 'uDialogOpcionesImpresionPresupuestosCliente.pas' {fDialogOpcionesImpresionPresupuestosCliente},
uDialogOpcionesImpresionPresupuestosClienteAzacan in 'uDialogOpcionesImpresionPresupuestosClienteAzacan.pas' {fDialogOpcionesImpresionPresupuestosClienteAzacan},
uDialogOpcionesImpresionPresupuestosClienteMusaeda in 'uDialogOpcionesImpresionPresupuestosClienteMusaeda.pas' {fDialogOpcionesImpresionPresupuestosClienteMusaeda};
uDialogOpcionesImpresionPresupuestosClienteMusaeda in 'uDialogOpcionesImpresionPresupuestosClienteMusaeda.pas' {fDialogOpcionesImpresionPresupuestosClienteMusaeda},
uDialogOpcionesImpresionPresupuestosClienteCristalCleaner in 'uDialogOpcionesImpresionPresupuestosClienteCristalCleaner.pas' {fDialogOpcionesImpresionPresupuestosClienteCristalCleaner};
end.

7
Source/Modulos/Presupuestos de cliente/Views/PresupuestosCliente_view.dproj
View File

@ -80,7 +80,12 @@
<DCCReference Include="uDialogOpcionesImpresionPresupuestosClienteAzacan.pas">
<Form>fDialogOpcionesImpresionPresupuestosClienteAzacan</Form>
</DCCReference>
<DCCReference Include="uDialogOpcionesImpresionPresupuestosClienteMusaeda.pas" />
<DCCReference Include="uDialogOpcionesImpresionPresupuestosClienteCristalCleaner.pas">
<Form>fDialogOpcionesImpresionPresupuestosClienteCristalCleane</Form>
</DCCReference>
<DCCReference Include="uDialogOpcionesImpresionPresupuestosClienteMusaeda.pas">
<Form>fDialogOpcionesImpresionPresupuestosClienteMusaeda</Form>
</DCCReference>
<DCCReference Include="uEditorElegirArticulosPresupuestoCliente.pas">
<Form>fEditorElegirArticulosPresupuestoCliente</Form>
<DesignClass>TfEditorElegirArticulosPedidoCliente</DesignClass>

19
Source/Modulos/Presupuestos de cliente/Views/uDialogOpcionesImpresionPresupuestosCliente.dfm
View File

@ -22,8 +22,8 @@ inherited fDialogOpcionesImpresionPresupuestosCliente: TfDialogOpcionesImpresion
inherited pnlBotones: TPanel
Top = 274
Width = 527
ExplicitTop = 215
ExplicitWidth = 429
ExplicitTop = 274
ExplicitWidth = 527
inherited btnAceptar: TButton
Left = 344
Top = 6
@ -40,24 +40,23 @@ inherited fDialogOpcionesImpresionPresupuestosCliente: TfDialogOpcionesImpresion
inherited pnlHeader: TPanel
Width = 527
Height = 41
ExplicitWidth = 429
ExplicitWidth = 527
ExplicitHeight = 41
inherited lblInstruccion: TLabel
Width = 477
Height = 26
Margins.Bottom = 10
Caption =
'Indique si desea logotipo de ISO y que sello desea para el presu' +
'puesto de cliente:'
WordWrap = True
ExplicitWidth = 326
ExplicitHeight = 26
ExplicitWidth = 458
end
inherited Label2: TLabel
Top = 44
Top = 31
Width = 452
Height = 2
Visible = False
ExplicitTop = 44
ExplicitTop = 31
end
end
inherited pnlCuerpo: TPanel
@ -65,8 +64,8 @@ inherited fDialogOpcionesImpresionPresupuestosCliente: TfDialogOpcionesImpresion
Width = 527
Height = 229
ExplicitTop = 43
ExplicitWidth = 429
ExplicitHeight = 170
ExplicitWidth = 527
ExplicitHeight = 229
object Image1: TImage
Left = 25
Top = 17

36
Source/Modulos/Presupuestos de cliente/Views/uDialogOpcionesImpresionPresupuestosCliente.pas
View File

@ -21,12 +21,19 @@ type
FVerSello: Integer;
end;
function elegirFirmaDocumento(var AVerSello: Integer): Boolean;
function ElegirOpcionesImpresionPresupuestoCliente(var AVerSello : Integer): Boolean;
implementation
{$R *.dfm}
uses
uFactuGES_App,
uDialogOpcionesImpresionPresupuestosClienteAzacan,
uDialogOpcionesImpresionPresupuestosClienteMusaeda,
uDialogOpcionesImpresionPresupuestosClienteCristalCleaner;
function ElegirOpcionesImpresionPresupuestoCliente(var AVerSello : Integer): Boolean;
var
AEditor : TfDialogOpcionesImpresionPresupuestosCliente;
@ -78,4 +85,31 @@ begin
actAceptar.Execute;
end;
function elegirFirmaDocumento(var AVerSello: Integer): Boolean;
begin
Result := True;
if (AppFactuGES.EmpresaActiva.ID = 1) then
//Preguntamos si desea que en los presupuestos se vea el Sello de Paco u Oscar,
//solo para empresa Tecsitel
Result := ElegirOpcionesImpresionPresupuestoCliente(AVerSello);
if (AppFactuGES.EmpresaActiva.ID = 3) then
//Preguntamos si desea que en los presupuestos se vea el Sello de Oscar, José Luís y David,
//solo para empresa Azacan
Result := ElegirOpcionesImpresionPresupuestoClienteAzacan(AVerSello);
if (AppFactuGES.EmpresaActiva.ID = 4) then
//Preguntamos si desea que en los presupuestos se vea el Sello de Oscar o David,
//solo para empresa Musaeda
Result := ElegirOpcionesImpresionPresupuestoClienteMusaeda(AVerSello);
if (AppFactuGES.EmpresaActiva.ID = 5) then
//Preguntamos si desea que en los presupuestos se vea el Sello de Oscar, José Luís o David,
//solo para empresa CRISTAL CLEANER
Result := ElegirOpcionesImpresionPresupuestoClienteCristalCleaner(AVerSello);
end;
end.

8917
Source/Modulos/Presupuestos de cliente/Views/uDialogOpcionesImpresionPresupuestosClienteAzacan.dfm
View File

File diff suppressed because it is too large Load Diff

13
Source/Modulos/Presupuestos de cliente/Views/uDialogOpcionesImpresionPresupuestosClienteAzacan.pas
View File

@ -10,11 +10,16 @@ type
TfDialogOpcionesImpresionPresupuestosClienteAzacan = class(TfDialogBase)
Image1: TImage;
Image2: TImage;
Label1: TLabel;
Label3: TLabel;
Label4: TLabel;
Image3: TImage;
procedure actAceptarExecute(Sender: TObject);
procedure actCancelarExecute(Sender: TObject);
procedure Image1DblClick(Sender: TObject);
procedure FormCreate(Sender: TObject);
procedure Image2DblClick(Sender: TObject);
procedure Image3DblClick(Sender: TObject);
private
FVerSello: Integer;
end;
@ -77,4 +82,12 @@ begin
actAceptar.Execute;
end;
procedure TfDialogOpcionesImpresionPresupuestosClienteAzacan.Image3DblClick(
Sender: TObject);
begin
inherited;
FVerSello := 3;
actAceptar.Execute;
end;
end.

5702
Source/Modulos/Presupuestos de cliente/Views/uDialogOpcionesImpresionPresupuestosClienteCristalCleaner.dfm Normal file
View File

File diff suppressed because it is too large Load Diff

93
Source/Modulos/Presupuestos de cliente/Views/uDialogOpcionesImpresionPresupuestosClienteCristalCleaner.pas Normal file
View File

@ -0,0 +1,93 @@
unit uDialogOpcionesImpresionPresupuestosClienteCristalCleaner;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, uDialogBase, ActnList, StdCtrls, ExtCtrls, jpeg, dxGDIPlusClasses;
type
TfDialogOpcionesImpresionPresupuestosClienteCristalCleaner = class(TfDialogBase)
Image1: TImage;
Image2: TImage;
Label1: TLabel;
Label3: TLabel;
Label4: TLabel;
Image3: TImage;
procedure actAceptarExecute(Sender: TObject);
procedure actCancelarExecute(Sender: TObject);
procedure Image1DblClick(Sender: TObject);
procedure FormCreate(Sender: TObject);
procedure Image2DblClick(Sender: TObject);
procedure Image3DblClick(Sender: TObject);
private
FVerSello: Integer;
end;
function ElegirOpcionesImpresionPresupuestoClienteCristalCleaner(var AVerSello : Integer): Boolean;
implementation
{$R *.dfm}
function ElegirOpcionesImpresionPresupuestoClienteCristalCleaner(var AVerSello : Integer): Boolean;
var
AEditor : TfDialogOpcionesImpresionPresupuestosClienteCristalCleaner;
begin
AEditor := TfDialogOpcionesImpresionPresupuestosClienteCristalCleaner.Create(NIL);
try
Result := (AEditor.ShowModal = mrOk);
if Result then
begin
AVerSello := AEditor.FVerSello;
end;
finally
AEditor.Release;
end;
end;
procedure TfDialogOpcionesImpresionPresupuestosClienteCristalCleaner.actAceptarExecute(Sender: TObject);
begin
inherited;
ModalResult := mrOk
end;
procedure TfDialogOpcionesImpresionPresupuestosClienteCristalCleaner.actCancelarExecute(Sender: TObject);
begin
inherited;
ModalResult := mrCancel;
end;
procedure TfDialogOpcionesImpresionPresupuestosClienteCristalCleaner.FormCreate(
Sender: TObject);
begin
inherited;
FVerSello := 1;
end;
procedure TfDialogOpcionesImpresionPresupuestosClienteCristalCleaner.Image1DblClick(
Sender: TObject);
begin
inherited;
FVerSello := 1;
actAceptar.Execute;
end;
procedure TfDialogOpcionesImpresionPresupuestosClienteCristalCleaner.Image2DblClick(
Sender: TObject);
begin
inherited;
FVerSello := 2;
actAceptar.Execute;
end;
procedure TfDialogOpcionesImpresionPresupuestosClienteCristalCleaner.Image3DblClick(
Sender: TObject);
begin
inherited;
FVerSello := 3;
actAceptar.Execute;
end;
end.

54
Source/Modulos/Presupuestos de cliente/Views/uEditorPresupuestoCliente.dfm
View File

@ -185,10 +185,6 @@ inherited fEditorPresupuestoCliente: TfEditorPresupuestoCliente
object pagContenido: TTabSheet
Caption = 'Contenido'
ImageIndex = 1
ExplicitLeft = 0
ExplicitTop = 0
ExplicitWidth = 0
ExplicitHeight = 0
inline frViewDetallesPresupuestoCliente1: TfrViewDetallesPresupuestoCliente
Left = 0
Top = 0
@ -268,41 +264,44 @@ inherited fEditorPresupuestoCliente: TfEditorPresupuestoCliente
ExplicitTop = 22
end
inherited ToolButton12: TToolButton
Left = 586
Left = 0
Top = 22
ExplicitLeft = 586
Wrap = True
ExplicitLeft = 0
ExplicitTop = 22
ExplicitHeight = 27
end
inherited ToolButton9: TToolButton
Left = 594
Top = 22
ExplicitLeft = 594
ExplicitTop = 22
Left = 0
Top = 49
ExplicitLeft = 0
ExplicitTop = 49
end
inherited ToolButton10: TToolButton
Left = 739
Top = 22
ExplicitLeft = 739
ExplicitTop = 22
Left = 145
Top = 49
ExplicitLeft = 145
ExplicitTop = 49
end
inherited ToolButton11: TToolButton
Left = 864
Top = 22
ExplicitLeft = 864
ExplicitTop = 22
Left = 270
Top = 49
ExplicitLeft = 270
ExplicitTop = 49
end
end
inherited cxGrid: TcxGrid
Top = 72
Top = 99
Width = 750
Height = 266
Height = 239
ExplicitTop = 77
ExplicitWidth = 750
ExplicitHeight = 239
end
inherited TBXDock1: TTBXDock
Top = 46
Top = 73
Width = 750
ExplicitTop = 46
ExplicitWidth = 750
inherited TBXToolbar1: TTBXToolbar
ExplicitWidth = 750
@ -323,10 +322,6 @@ inherited fEditorPresupuestoCliente: TfEditorPresupuestoCliente
Caption = 'Portada'
ImageIndex = 3
OnShow = pagPortadaShow
ExplicitLeft = 0
ExplicitTop = 0
ExplicitWidth = 0
ExplicitHeight = 0
object Panel1: TPanel
Left = 0
Top = 0
@ -459,10 +454,6 @@ inherited fEditorPresupuestoCliente: TfEditorPresupuestoCliente
Caption = 'Memoria'
ImageIndex = 4
OnShow = pagMemoriaShow
ExplicitLeft = 0
ExplicitTop = 0
ExplicitWidth = 0
ExplicitHeight = 0
object Panel2: TPanel
Left = 0
Top = 0
@ -765,10 +756,6 @@ inherited fEditorPresupuestoCliente: TfEditorPresupuestoCliente
object pagInicidencias: TTabSheet
Caption = 'Incidencias'
ImageIndex = 2
ExplicitLeft = 0
ExplicitTop = 0
ExplicitWidth = 0
ExplicitHeight = 0
inline frViewIncidenciasCli: TfrViewIncidencias
Left = 0
Top = 0
@ -1103,7 +1090,6 @@ inherited fEditorPresupuestoCliente: TfEditorPresupuestoCliente
ExplicitLeft = 21
ExplicitTop = 29
ExplicitWidth = 277
ExplicitHeight = 0
Width = 277
end
inherited eDescripcionBonificacion: TcxDBTextEdit

32
Source/Modulos/Presupuestos de cliente/Views/uEditorPresupuestoCliente.pas
View File

@ -110,8 +110,7 @@ implementation
uses
uViewDatosYSeleccionCliente, uDataModuleUsuarios, uClientesController,
uBizDireccionesContacto, uDialogUtils, uFactuGES_App, uDataTableUtils,
uDialogOpcionesImpresionPresupuestosCliente, uDialogOpcionesImpresionPresupuestosClienteAzacan,
uDialogOpcionesImpresionPresupuestosClienteMusaeda;
uDialogOpcionesImpresionPresupuestosCliente;
{$R *.dfm}
@ -306,17 +305,7 @@ var
bPrevisualizar: Boolean;
begin
inherited;
bPrevisualizar := True;
if (AppFactuGES.EmpresaActiva.ID = 1) then
//Preguntamos si desea que en los presupuestos se vea el Sello de Paco u Oscar,
//solo para empresa Tecsitel
bPrevisualizar := ElegirOpcionesImpresionPresupuestoCliente(AVerSello);
if (AppFactuGES.EmpresaActiva.ID = 3) then
//Preguntamos si desea que en los presupuestos se vea el Sello de Oscar o David,
//solo para empresa Azacan
bPrevisualizar := ElegirOpcionesImpresionPresupuestoClienteAzacan(AVerSello);
bPrevisualizar := elegirFirmaDocumento(AVerSello);
if bPrevisualizar and Assigned(FPresupuesto) then
if not Modified then
@ -384,22 +373,7 @@ var
bPrevisualizar: Boolean;
begin
inherited;
bPrevisualizar := True;
if (AppFactuGES.EmpresaActiva.ID = 1) then
//Preguntamos si desea que en los presupuestos se vea el Sello de Paco u Oscar,
//solo para empresa Tecsitel
bPrevisualizar := ElegirOpcionesImpresionPresupuestoCliente(AVerSello);
if (AppFactuGES.EmpresaActiva.ID = 3) then
//Preguntamos si desea que en los presupuestos se vea el Sello de Oscar o David,
//solo para empresa Azacan
bPrevisualizar := ElegirOpcionesImpresionPresupuestoClienteAzacan(AVerSello);
if (AppFactuGES.EmpresaActiva.ID = 4) then
//Preguntamos si desea que en los presupuestos se vea el Sello de Oscar o David,
//solo para empresa Musaeda
bPrevisualizar := ElegirOpcionesImpresionPresupuestoClienteMusaeda(AVerSello);
bPrevisualizar := elegirFirmaDocumento(AVerSello);
if bPrevisualizar and Assigned(FPresupuesto) then
if not Modified then

1
Source/Modulos/Presupuestos de cliente/Views/uEditorPresupuestosCliente.dfm
View File

@ -2,6 +2,7 @@ inherited fEditorPresupuestosCliente: TfEditorPresupuestosCliente
Caption = 'Lista de presupuestos de cliente'
ClientWidth = 805
ExplicitWidth = 813
ExplicitHeight = 240
PixelsPerInch = 96
TextHeight = 13
inherited JvNavPanelHeader: TJvNavPanelHeader

49
Source/Modulos/Presupuestos de cliente/Views/uEditorPresupuestosCliente.pas
View File

@ -235,23 +235,8 @@ var
begin
inherited;
//Preguntamos si desea que en los presupuestos se vea el Sello de Paco u Oscar,
//solo para empresa Tecsitel
if (AppFactuGES.EmpresaActiva.ID = 1) then
if not ElegirOpcionesImpresionPresupuestoCliente(AVerSello) then
exit;
//Preguntamos si desea que en los presupuestos se vea el Sello de Oscar o David,
//solo para empresa Azacan
if (AppFactuGES.EmpresaActiva.ID = 3) then
if not ElegirOpcionesImpresionPresupuestoClienteAzacan(AVerSello) then
exit;
//Preguntamos si desea que en los presupuestos se vea el Sello de Oscar o David,
//solo para empresa Musaeda
if (AppFactuGES.EmpresaActiva.ID = 4) then
if not ElegirOpcionesImpresionPresupuestoClienteMusaeda(AVerSello) then
exit;
if not elegirFirmaDocumento(AVerSello) then
exit;
if ViewGrid.NumSeleccionados = 1 then
FController.GenerarEmailPresupuesto(FPresupuestos, AVerSello)
@ -555,20 +540,7 @@ begin
else
APresupuestos := Presupuestos;
if (AppFactuGES.EmpresaActiva.ID = 1) then
//Preguntamos si desea que en los presupuestos se vea el Sello de Paco u Oscar,
//solo para empresa Tecsitel
bPrevisualizar := ElegirOpcionesImpresionPresupuestoCliente(AVerSello);
if (AppFactuGES.EmpresaActiva.ID = 3) then
//Preguntamos si desea que en los presupuestos se vea el Sello de Oscar o David,
//solo para empresa Azacan
bPrevisualizar := ElegirOpcionesImpresionPresupuestoClienteAzacan(AVerSello);
if (AppFactuGES.EmpresaActiva.ID = 4) then
//Preguntamos si desea que en los presupuestos se vea el Sello de Oscar o David,
//solo para empresa Musaeda
bPrevisualizar := ElegirOpcionesImpresionPresupuestoClienteMusaeda(AVerSello);
bPrevisualizar:= elegirFirmaDocumento(AVerSello);
if bPrevisualizar and Assigned(APresupuestos) then
FController.Print(APresupuestos, AllItems, AVerSello);
@ -642,20 +614,7 @@ begin
else
APresupuestos := Presupuestos;
if (AppFactuGES.EmpresaActiva.ID = 1) then
//Preguntamos si desea que en los presupuestos se vea el Sello de Paco u Oscar,
//solo para empresa Tecsitel
bPrevisualizar := ElegirOpcionesImpresionPresupuestoCliente(AVerSello);
if (AppFactuGES.EmpresaActiva.ID = 3) then
//Preguntamos si desea que en los presupuestos se vea el Sello de Oscar o David,
//solo para empresa Azacan
bPrevisualizar := ElegirOpcionesImpresionPresupuestoClienteAzacan(AVerSello);
if (AppFactuGES.EmpresaActiva.ID = 4) then
//Preguntamos si desea que en los presupuestos se vea el Sello de Oscar o David,
//solo para empresa Musaeda
bPrevisualizar := ElegirOpcionesImpresionPresupuestoClienteMusaeda(AVerSello);
bPrevisualizar:= elegirFirmaDocumento(AVerSello);
if bPrevisualizar and Assigned(APresupuestos) then
FController.Preview(APresupuestos, AllItems, AVerSello);

15
Source/Modulos/Presupuestos de cliente/Views/uEditorPresupuestosClienteReport.pas
View File

@ -42,20 +42,7 @@ begin
if not Assigned(Controller) then
raise Exception.Create('No se ha asignado el controlador necesario');
if (AppFactuGES.EmpresaActiva.ID = 1) then
//Preguntamos si desea que en los presupuestos se vea el Sello de Paco u Oscar,
//solo para empresa Tecsitel
bPrevisualizar := ElegirOpcionesImpresionPresupuestoCliente(AVerSello);
if (AppFactuGES.EmpresaActiva.ID = 3) then
//Preguntamos si desea que en los presupuestos se vea el Sello de Oscar o David,
//solo para empresa Azacan
bPrevisualizar := ElegirOpcionesImpresionPresupuestoClienteAzacan(AVerSello);
if (AppFactuGES.EmpresaActiva.ID = 4) then
//Preguntamos si desea que en los presupuestos se vea el Sello de Oscar o David,
//solo para empresa Muesaeda
bPrevisualizar := ElegirOpcionesImpresionPresupuestoClienteMusaeda(AVerSello);
bPrevisualizar:= elegirFirmaDocumento(AVerSello);
if bPrevisualizar then
for I := 0 to ListaID.Count - 1 do

BIN
Source/Servidor/FactuGES_Server.RES
View File

Binary file not shown.

2
Source/Servidor/FactuGES_Server.dproj
View File

@ -35,7 +35,7 @@
<Borland.Personality>Delphi.Personality</Borland.Personality>
<Borland.ProjectType/>
<BorlandProject>
<BorlandProject><Delphi.Personality><Parameters><Parameters Name="UseLauncher">False</Parameters><Parameters Name="LoadAllSymbols">True</Parameters><Parameters Name="LoadUnspecifiedSymbols">False</Parameters><Parameters Name="RunParams">/standalone</Parameters></Parameters><VersionInfo><VersionInfo Name="IncludeVerInfo">True</VersionInfo><VersionInfo Name="AutoIncBuild">False</VersionInfo><VersionInfo Name="MajorVer">2</VersionInfo><VersionInfo Name="MinorVer">1</VersionInfo><VersionInfo Name="Release">9</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.1.9.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.1.9.0</VersionInfoKeys><VersionInfoKeys Name="Comments"></VersionInfoKeys><VersionInfoKeys Name="CompileDate">miércoles, 31 de enero de 2018 15:23</VersionInfoKeys></VersionInfoKeys><Excluded_Packages>
<BorlandProject><Delphi.Personality><Parameters><Parameters Name="UseLauncher">False</Parameters><Parameters Name="LoadAllSymbols">True</Parameters><Parameters Name="LoadUnspecifiedSymbols">False</Parameters><Parameters Name="RunParams">/standalone</Parameters></Parameters><VersionInfo><VersionInfo Name="IncludeVerInfo">True</VersionInfo><VersionInfo Name="AutoIncBuild">False</VersionInfo><VersionInfo Name="MajorVer">2</VersionInfo><VersionInfo Name="MinorVer">2</VersionInfo><VersionInfo Name="Release">0</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.2.0.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.2.0.0</VersionInfoKeys><VersionInfoKeys Name="Comments"></VersionInfoKeys><VersionInfoKeys Name="CompileDate">jueves, 22 de febrero de 2018 11:44</VersionInfoKeys></VersionInfoKeys><Excluded_Packages>
<Excluded_Packages Name="C:\Documents and Settings\All Users\Documentos\RAD Studio\5.0\Bpl\dxPSCoreD11.bpl">ExpressPrinting System by Developer Express Inc.</Excluded_Packages>
</Excluded_Packages><Source><Source Name="MainSource">FactuGES_Server.dpr</Source></Source></Delphi.Personality></BorlandProject></BorlandProject>
</ProjectExtensions>

10
Source/Servidor/FactuGES_Server.rc
View File

@ -1,7 +1,7 @@
MAINICON ICON "C:\Codigo tecsitel\Resources\Iconos\Servidor.ico"
1 VERSIONINFO
FILEVERSION 2,1,9,0
PRODUCTVERSION 2,1,9,0
FILEVERSION 2,2,0,0
PRODUCTVERSION 2,2,0,0
FILEFLAGSMASK 0x3FL
FILEFLAGS 0x00L
FILEOS 0x40004L
@ -13,10 +13,10 @@ BEGIN
BLOCK "0C0A04E4"
BEGIN
VALUE "CompanyName", "Rodax Software S.L.\0"
VALUE "FileVersion", "2.1.9.0\0"
VALUE "FileVersion", "2.2.0.0\0"
VALUE "ProductName", "FactuGES Servidor\0"
VALUE "ProductVersion", "2.1.9.0\0"
VALUE "CompileDate", "jueves, 22 de febrero de 2018 11:44\0"
VALUE "ProductVersion", "2.2.0.0\0"
VALUE "CompileDate", "miércoles, 18 de abril de 2018 12:52\0"
END
END
BLOCK "VarFileInfo"