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"> <DelphiCompile Include="Base.dpk">
<MainSource>MainSource</MainSource> <MainSource>MainSource</MainSource>
</DelphiCompile> </DelphiCompile>
<DCCReference Include="..\Modulos\Facturas de cliente\adortl.dcp" /> <DCCReference Include="..\Modulos\Presupuestos de cliente\Views\adortl.dcp" />
<DCCReference Include="..\Modulos\Facturas de cliente\cxDataD11.dcp" /> <DCCReference Include="..\Modulos\Presupuestos de cliente\Views\cxDataD11.dcp" />
<DCCReference Include="..\Modulos\Facturas de cliente\cxEditorsD11.dcp" /> <DCCReference Include="..\Modulos\Presupuestos de cliente\Views\cxEditorsD11.dcp" />
<DCCReference Include="..\Modulos\Facturas de cliente\cxExportD11.dcp" /> <DCCReference Include="..\Modulos\Presupuestos de cliente\Views\cxExportD11.dcp" />
<DCCReference Include="..\Modulos\Facturas de cliente\cxExtEditorsD11.dcp" /> <DCCReference Include="..\Modulos\Presupuestos de cliente\Views\cxExtEditorsD11.dcp" />
<DCCReference Include="..\Modulos\Facturas de cliente\cxGridD11.dcp" /> <DCCReference Include="..\Modulos\Presupuestos de cliente\Views\cxGridD11.dcp" />
<DCCReference Include="..\Modulos\Facturas de cliente\cxIntl6D11.dcp" /> <DCCReference Include="..\Modulos\Presupuestos de cliente\Views\cxIntl6D11.dcp" />
<DCCReference Include="..\Modulos\Facturas de cliente\cxIntlPrintSys3D11.dcp" /> <DCCReference Include="..\Modulos\Presupuestos de cliente\Views\cxIntlPrintSys3D11.dcp" />
<DCCReference Include="..\Modulos\Facturas de cliente\cxLibraryD11.dcp" /> <DCCReference Include="..\Modulos\Presupuestos de cliente\Views\cxLibraryD11.dcp" />
<DCCReference Include="..\Modulos\Facturas de cliente\cxPageControlD11.dcp" /> <DCCReference Include="..\Modulos\Presupuestos de cliente\Views\cxPageControlD11.dcp" />
<DCCReference Include="..\Modulos\Facturas de cliente\DataAbstract_Core_D11.dcp" /> <DCCReference Include="..\Modulos\Presupuestos de cliente\Views\DataAbstract_Core_D11.dcp" />
<DCCReference Include="..\Modulos\Facturas de cliente\dbrtl.dcp" /> <DCCReference Include="..\Modulos\Presupuestos de cliente\Views\dbrtl.dcp" />
<DCCReference Include="..\Modulos\Facturas de cliente\dclIndyCore.dcp" /> <DCCReference Include="..\Modulos\Presupuestos de cliente\Views\dclIndyCore.dcp" />
<DCCReference Include="..\Modulos\Facturas de cliente\designide.dcp" /> <DCCReference Include="..\Modulos\Presupuestos de cliente\Views\designide.dcp" />
<DCCReference Include="..\Modulos\Facturas de cliente\dsnap.dcp" /> <DCCReference Include="..\Modulos\Presupuestos de cliente\Views\dsnap.dcp" />
<DCCReference Include="..\Modulos\Facturas de cliente\dxGDIPlusD11.dcp" /> <DCCReference Include="..\Modulos\Presupuestos de cliente\Views\dxGDIPlusD11.dcp" />
<DCCReference Include="..\Modulos\Facturas de cliente\dxPSCoreD11.dcp" /> <DCCReference Include="..\Modulos\Presupuestos de cliente\Views\dxPSCoreD11.dcp" />
<DCCReference Include="..\Modulos\Facturas de cliente\dxThemeD11.dcp" /> <DCCReference Include="..\Modulos\Presupuestos de cliente\Views\dxThemeD11.dcp" />
<DCCReference Include="..\Modulos\Facturas de cliente\GUISDK_D11R.dcp" /> <DCCReference Include="..\Modulos\Presupuestos de cliente\Views\GUISDK_D11R.dcp" />
<DCCReference Include="..\Modulos\Facturas de cliente\IndyCore.dcp" /> <DCCReference Include="..\Modulos\Presupuestos de cliente\Views\IndyCore.dcp" />
<DCCReference Include="..\Modulos\Facturas de cliente\IndyProtocols.dcp" /> <DCCReference Include="..\Modulos\Presupuestos de cliente\Views\IndyProtocols.dcp" />
<DCCReference Include="..\Modulos\Facturas de cliente\IndySystem.dcp" /> <DCCReference Include="..\Modulos\Presupuestos de cliente\Views\IndySystem.dcp" />
<DCCReference Include="..\Modulos\Facturas de cliente\Jcl.dcp" /> <DCCReference Include="..\Modulos\Presupuestos de cliente\Views\Jcl.dcp" />
<DCCReference Include="..\Modulos\Facturas de cliente\JclVcl.dcp" /> <DCCReference Include="..\Modulos\Presupuestos de cliente\Views\JclVcl.dcp" />
<DCCReference Include="..\Modulos\Facturas de cliente\JSDialog100.dcp" /> <DCCReference Include="..\Modulos\Presupuestos de cliente\Views\JSDialog100.dcp" />
<DCCReference Include="..\Modulos\Facturas de cliente\JvCmpD11R.dcp" /> <DCCReference Include="..\Modulos\Presupuestos de cliente\Views\JvCmpD11R.dcp" />
<DCCReference Include="..\Modulos\Facturas de cliente\JvCoreD11R.dcp" /> <DCCReference Include="..\Modulos\Presupuestos de cliente\Views\JvCoreD11R.dcp" />
<DCCReference Include="..\Modulos\Facturas de cliente\JvCtrlsD11R.dcp" /> <DCCReference Include="..\Modulos\Presupuestos de cliente\Views\JvCtrlsD11R.dcp" />
<DCCReference Include="..\Modulos\Facturas de cliente\JvDlgsD11R.dcp" /> <DCCReference Include="..\Modulos\Presupuestos de cliente\Views\JvDlgsD11R.dcp" />
<DCCReference Include="..\Modulos\Facturas de cliente\JvMMD11R.dcp" /> <DCCReference Include="..\Modulos\Presupuestos de cliente\Views\JvMMD11R.dcp" />
<DCCReference Include="..\Modulos\Facturas de cliente\JvNetD11R.dcp" /> <DCCReference Include="..\Modulos\Presupuestos de cliente\Views\JvNetD11R.dcp" />
<DCCReference Include="..\Modulos\Facturas de cliente\JvPageCompsD11R.dcp" /> <DCCReference Include="..\Modulos\Presupuestos de cliente\Views\JvPageCompsD11R.dcp" />
<DCCReference Include="..\Modulos\Facturas de cliente\JvStdCtrlsD11R.dcp" /> <DCCReference Include="..\Modulos\Presupuestos de cliente\Views\JvStdCtrlsD11R.dcp" />
<DCCReference Include="..\Modulos\Facturas de cliente\JvSystemD11R.dcp" /> <DCCReference Include="..\Modulos\Presupuestos de cliente\Views\JvSystemD11R.dcp" />
<DCCReference Include="..\Modulos\Facturas de cliente\pckMD5.dcp" /> <DCCReference Include="..\Modulos\Presupuestos de cliente\Views\pckMD5.dcp" />
<DCCReference Include="..\Modulos\Facturas de cliente\pckUCDataConnector.dcp" /> <DCCReference Include="..\Modulos\Presupuestos de cliente\Views\pckUCDataConnector.dcp" />
<DCCReference Include="..\Modulos\Facturas de cliente\pckUserControl_RT.dcp" /> <DCCReference Include="..\Modulos\Presupuestos de cliente\Views\pckUserControl_RT.dcp" />
<DCCReference Include="..\Modulos\Facturas de cliente\PngComponentsD10.dcp" /> <DCCReference Include="..\Modulos\Presupuestos de cliente\Views\PngComponentsD10.dcp" />
<DCCReference Include="..\Modulos\Facturas de cliente\PNG_D10.dcp" /> <DCCReference Include="..\Modulos\Presupuestos de cliente\Views\PNG_D10.dcp" />
<DCCReference Include="..\Modulos\Facturas de cliente\RemObjects_Core_D11.dcp" /> <DCCReference Include="..\Modulos\Presupuestos de cliente\Views\RemObjects_Core_D11.dcp" />
<DCCReference Include="..\Modulos\Facturas de cliente\RemObjects_Indy_D11.dcp" /> <DCCReference Include="..\Modulos\Presupuestos de cliente\Views\RemObjects_Indy_D11.dcp" />
<DCCReference Include="..\Modulos\Facturas de cliente\rtl.dcp" /> <DCCReference Include="..\Modulos\Presupuestos de cliente\Views\rtl.dcp" />
<DCCReference Include="..\Modulos\Facturas de cliente\TB2k_D10.dcp" /> <DCCReference Include="..\Modulos\Presupuestos de cliente\Views\TB2k_D10.dcp" />
<DCCReference Include="..\Modulos\Facturas de cliente\tbx_d10.dcp" /> <DCCReference Include="..\Modulos\Presupuestos de cliente\Views\tbx_d10.dcp" />
<DCCReference Include="..\Modulos\Facturas de cliente\vcl.dcp" /> <DCCReference Include="..\Modulos\Presupuestos de cliente\Views\vcl.dcp" />
<DCCReference Include="..\Modulos\Facturas de cliente\vclactnband.dcp" /> <DCCReference Include="..\Modulos\Presupuestos de cliente\Views\vclactnband.dcp" />
<DCCReference Include="..\Modulos\Facturas de cliente\vcldb.dcp" /> <DCCReference Include="..\Modulos\Presupuestos de cliente\Views\vcldb.dcp" />
<DCCReference Include="..\Modulos\Facturas de cliente\vcljpg.dcp" /> <DCCReference Include="..\Modulos\Presupuestos de cliente\Views\vcljpg.dcp" />
<DCCReference Include="..\Modulos\Facturas de cliente\VclSmp.dcp" /> <DCCReference Include="..\Modulos\Presupuestos de cliente\Views\VclSmp.dcp" />
<DCCReference Include="..\Modulos\Facturas de cliente\vclx.dcp" /> <DCCReference Include="..\Modulos\Presupuestos de cliente\Views\vclx.dcp" />
<DCCReference Include="..\Modulos\Facturas de cliente\xmlrtl.dcp" /> <DCCReference Include="..\Modulos\Presupuestos de cliente\Views\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">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> </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 2,1,9,0 FILEVERSION 2,2,0,0
PRODUCTVERSION 2,1,9,0 PRODUCTVERSION 2,2,0,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", "2.1.9.0\0" VALUE "FileVersion", "2.2.0.0\0"
VALUE "InternalName", "FactuGES\0" VALUE "InternalName", "FactuGES\0"
VALUE "ProductName", "FactuGES\0" VALUE "ProductName", "FactuGES\0"
VALUE "ProductVersion", "2.1.9.0\0" VALUE "ProductVersion", "2.2.0.0\0"
END END
END END
BLOCK "VarFileInfo" 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; function DarListaAnosPresupuestos: TStringList;
procedure FiltrarAno(APresupuesto: IBizPresupuestoCliente; ADynWhereDataTable: WideString; const Ano: String); procedure FiltrarAno(APresupuesto: IBizPresupuestoCliente; ADynWhereDataTable: WideString; const Ano: String);
end; end;
TPresupuestosClienteController = class(TControllerBase, IPresupuestosClienteController) TPresupuestosClienteController = class(TControllerBase, IPresupuestosClienteController)
@ -158,6 +159,7 @@ type
function DarListaAnosPresupuestos: TStringList; function DarListaAnosPresupuestos: TStringList;
procedure FiltrarAno(APresupuesto: IBizPresupuestoCliente; ADynWhereDataTable: WideString; const Ano: String); procedure FiltrarAno(APresupuesto: IBizPresupuestoCliente; ADynWhereDataTable: WideString; const Ano: String);
end; end;
implementation implementation

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

@ -284,38 +284,37 @@ begin
if BookmarkExists('NombreClienteFirma') then if BookmarkExists('NombreClienteFirma') then
ReplaceBookmark('NombreClienteFirma', FieldByName('NOMBRE').AsString); ReplaceBookmark('NombreClienteFirma', FieldByName('NOMBRE').AsString);
//Solo para la empresa de tecsitel se debe elegir uno u otra firma if (FVerSello = 1) then
//esto es un poco parche pero bueno
if (tbl_Cabecera.FieldByName('ID_EMPRESA').AsInteger = 1) then
begin begin
if (FVerSello = 1) then if BookmarkExists('Firma2') then
begin ReplaceBookmark('Firma2', '');
if BookmarkExists('Firma2') then
ReplaceBookmark('Firma2', '')
end
else
begin
if BookmarkExists('Firma1') then
ReplaceBookmark('Firma1', '');
end;
if (tbl_Cabecera.FieldByName('CERTIFICADO_ISO').AsInteger <> 1) then if BookmarkExists('Firma3') then
begin ReplaceBookmark('Firma3', '');
if BookmarkExists('ISO1') then end
ReplaceBookmark('ISO1', ''); else if (FVerSello = 2) then
if BookmarkExists('ISO2') then begin
ReplaceBookmark('ISO2', ''); if BookmarkExists('Firma1') then
end; 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; end;
//Solo para la empresa de azacan y musaeda se debe elegir uno u otra firma if (tbl_Cabecera.FieldByName('CERTIFICADO_ISO').AsInteger <> 1) then
//esto es un poco parche pero bueno
if (tbl_Cabecera.FieldByName('ID_EMPRESA').AsInteger = 3) or (tbl_Cabecera.FieldByName('ID_EMPRESA').AsInteger = 4) then
begin begin
if (FVerSello = 1) then if BookmarkExists('ISO1') then
ReplaceBookmark('Firma2', '') ReplaceBookmark('ISO1', '');
else if BookmarkExists('ISO2') then
ReplaceBookmark('Firma1', ''); ReplaceBookmark('ISO2', '');
end; end;
if not EsCadenaVacia(FieldByName('MEMORIA').AsString) then 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}, uDialogListaPresupuestosEnvioEMail in 'uDialogListaPresupuestosEnvioEMail.pas' {fDialogListaPresupuestosEnvioEMail},
uDialogOpcionesImpresionPresupuestosCliente in 'uDialogOpcionesImpresionPresupuestosCliente.pas' {fDialogOpcionesImpresionPresupuestosCliente}, uDialogOpcionesImpresionPresupuestosCliente in 'uDialogOpcionesImpresionPresupuestosCliente.pas' {fDialogOpcionesImpresionPresupuestosCliente},
uDialogOpcionesImpresionPresupuestosClienteAzacan in 'uDialogOpcionesImpresionPresupuestosClienteAzacan.pas' {fDialogOpcionesImpresionPresupuestosClienteAzacan}, uDialogOpcionesImpresionPresupuestosClienteAzacan in 'uDialogOpcionesImpresionPresupuestosClienteAzacan.pas' {fDialogOpcionesImpresionPresupuestosClienteAzacan},
uDialogOpcionesImpresionPresupuestosClienteMusaeda in 'uDialogOpcionesImpresionPresupuestosClienteMusaeda.pas' {fDialogOpcionesImpresionPresupuestosClienteMusaeda}; uDialogOpcionesImpresionPresupuestosClienteMusaeda in 'uDialogOpcionesImpresionPresupuestosClienteMusaeda.pas' {fDialogOpcionesImpresionPresupuestosClienteMusaeda},
uDialogOpcionesImpresionPresupuestosClienteCristalCleaner in 'uDialogOpcionesImpresionPresupuestosClienteCristalCleaner.pas' {fDialogOpcionesImpresionPresupuestosClienteCristalCleaner};
end. end.

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

@ -80,7 +80,12 @@
<DCCReference Include="uDialogOpcionesImpresionPresupuestosClienteAzacan.pas"> <DCCReference Include="uDialogOpcionesImpresionPresupuestosClienteAzacan.pas">
<Form>fDialogOpcionesImpresionPresupuestosClienteAzacan</Form> <Form>fDialogOpcionesImpresionPresupuestosClienteAzacan</Form>
</DCCReference> </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"> <DCCReference Include="uEditorElegirArticulosPresupuestoCliente.pas">
<Form>fEditorElegirArticulosPresupuestoCliente</Form> <Form>fEditorElegirArticulosPresupuestoCliente</Form>
<DesignClass>TfEditorElegirArticulosPedidoCliente</DesignClass> <DesignClass>TfEditorElegirArticulosPedidoCliente</DesignClass>

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

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

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

@ -21,12 +21,19 @@ type
FVerSello: Integer; FVerSello: Integer;
end; end;
function elegirFirmaDocumento(var AVerSello: Integer): Boolean;
function ElegirOpcionesImpresionPresupuestoCliente(var AVerSello : Integer): Boolean; function ElegirOpcionesImpresionPresupuestoCliente(var AVerSello : Integer): Boolean;
implementation implementation
{$R *.dfm} {$R *.dfm}
uses
uFactuGES_App,
uDialogOpcionesImpresionPresupuestosClienteAzacan,
uDialogOpcionesImpresionPresupuestosClienteMusaeda,
uDialogOpcionesImpresionPresupuestosClienteCristalCleaner;
function ElegirOpcionesImpresionPresupuestoCliente(var AVerSello : Integer): Boolean; function ElegirOpcionesImpresionPresupuestoCliente(var AVerSello : Integer): Boolean;
var var
AEditor : TfDialogOpcionesImpresionPresupuestosCliente; AEditor : TfDialogOpcionesImpresionPresupuestosCliente;
@ -78,4 +85,31 @@ begin
actAceptar.Execute; actAceptar.Execute;
end; 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. 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) TfDialogOpcionesImpresionPresupuestosClienteAzacan = class(TfDialogBase)
Image1: TImage; Image1: TImage;
Image2: TImage; Image2: TImage;
Label1: TLabel;
Label3: TLabel;
Label4: TLabel;
Image3: TImage;
procedure actAceptarExecute(Sender: TObject); procedure actAceptarExecute(Sender: TObject);
procedure actCancelarExecute(Sender: TObject); procedure actCancelarExecute(Sender: TObject);
procedure Image1DblClick(Sender: TObject); procedure Image1DblClick(Sender: TObject);
procedure FormCreate(Sender: TObject); procedure FormCreate(Sender: TObject);
procedure Image2DblClick(Sender: TObject); procedure Image2DblClick(Sender: TObject);
procedure Image3DblClick(Sender: TObject);
private private
FVerSello: Integer; FVerSello: Integer;
end; end;
@ -77,4 +82,12 @@ begin
actAceptar.Execute; actAceptar.Execute;
end; end;
procedure TfDialogOpcionesImpresionPresupuestosClienteAzacan.Image3DblClick(
Sender: TObject);
begin
inherited;
FVerSello := 3;
actAceptar.Execute;
end;
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 object pagContenido: TTabSheet
Caption = 'Contenido' Caption = 'Contenido'
ImageIndex = 1 ImageIndex = 1
ExplicitLeft = 0
ExplicitTop = 0
ExplicitWidth = 0
ExplicitHeight = 0
inline frViewDetallesPresupuestoCliente1: TfrViewDetallesPresupuestoCliente inline frViewDetallesPresupuestoCliente1: TfrViewDetallesPresupuestoCliente
Left = 0 Left = 0
Top = 0 Top = 0
@ -268,41 +264,44 @@ inherited fEditorPresupuestoCliente: TfEditorPresupuestoCliente
ExplicitTop = 22 ExplicitTop = 22
end end
inherited ToolButton12: TToolButton inherited ToolButton12: TToolButton
Left = 586 Left = 0
Top = 22 Top = 22
ExplicitLeft = 586 Wrap = True
ExplicitLeft = 0
ExplicitTop = 22 ExplicitTop = 22
ExplicitHeight = 27
end end
inherited ToolButton9: TToolButton inherited ToolButton9: TToolButton
Left = 594 Left = 0
Top = 22 Top = 49
ExplicitLeft = 594 ExplicitLeft = 0
ExplicitTop = 22 ExplicitTop = 49
end end
inherited ToolButton10: TToolButton inherited ToolButton10: TToolButton
Left = 739 Left = 145
Top = 22 Top = 49
ExplicitLeft = 739 ExplicitLeft = 145
ExplicitTop = 22 ExplicitTop = 49
end end
inherited ToolButton11: TToolButton inherited ToolButton11: TToolButton
Left = 864 Left = 270
Top = 22 Top = 49
ExplicitLeft = 864 ExplicitLeft = 270
ExplicitTop = 22 ExplicitTop = 49
end end
end end
inherited cxGrid: TcxGrid inherited cxGrid: TcxGrid
Top = 72 Top = 99
Width = 750 Width = 750
Height = 266 Height = 239
ExplicitTop = 77 ExplicitTop = 77
ExplicitWidth = 750 ExplicitWidth = 750
ExplicitHeight = 239 ExplicitHeight = 239
end end
inherited TBXDock1: TTBXDock inherited TBXDock1: TTBXDock
Top = 46 Top = 73
Width = 750 Width = 750
ExplicitTop = 46
ExplicitWidth = 750 ExplicitWidth = 750
inherited TBXToolbar1: TTBXToolbar inherited TBXToolbar1: TTBXToolbar
ExplicitWidth = 750 ExplicitWidth = 750
@ -323,10 +322,6 @@ inherited fEditorPresupuestoCliente: TfEditorPresupuestoCliente
Caption = 'Portada' Caption = 'Portada'
ImageIndex = 3 ImageIndex = 3
OnShow = pagPortadaShow OnShow = pagPortadaShow
ExplicitLeft = 0
ExplicitTop = 0
ExplicitWidth = 0
ExplicitHeight = 0
object Panel1: TPanel object Panel1: TPanel
Left = 0 Left = 0
Top = 0 Top = 0
@ -459,10 +454,6 @@ inherited fEditorPresupuestoCliente: TfEditorPresupuestoCliente
Caption = 'Memoria' Caption = 'Memoria'
ImageIndex = 4 ImageIndex = 4
OnShow = pagMemoriaShow OnShow = pagMemoriaShow
ExplicitLeft = 0
ExplicitTop = 0
ExplicitWidth = 0
ExplicitHeight = 0
object Panel2: TPanel object Panel2: TPanel
Left = 0 Left = 0
Top = 0 Top = 0
@ -765,10 +756,6 @@ inherited fEditorPresupuestoCliente: TfEditorPresupuestoCliente
object pagInicidencias: TTabSheet object pagInicidencias: TTabSheet
Caption = 'Incidencias' Caption = 'Incidencias'
ImageIndex = 2 ImageIndex = 2
ExplicitLeft = 0
ExplicitTop = 0
ExplicitWidth = 0
ExplicitHeight = 0
inline frViewIncidenciasCli: TfrViewIncidencias inline frViewIncidenciasCli: TfrViewIncidencias
Left = 0 Left = 0
Top = 0 Top = 0
@ -1103,7 +1090,6 @@ inherited fEditorPresupuestoCliente: TfEditorPresupuestoCliente
ExplicitLeft = 21 ExplicitLeft = 21
ExplicitTop = 29 ExplicitTop = 29
ExplicitWidth = 277 ExplicitWidth = 277
ExplicitHeight = 0
Width = 277 Width = 277
end end
inherited eDescripcionBonificacion: TcxDBTextEdit inherited eDescripcionBonificacion: TcxDBTextEdit

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

@ -110,8 +110,7 @@ implementation
uses uses
uViewDatosYSeleccionCliente, uDataModuleUsuarios, uClientesController, uViewDatosYSeleccionCliente, uDataModuleUsuarios, uClientesController,
uBizDireccionesContacto, uDialogUtils, uFactuGES_App, uDataTableUtils, uBizDireccionesContacto, uDialogUtils, uFactuGES_App, uDataTableUtils,
uDialogOpcionesImpresionPresupuestosCliente, uDialogOpcionesImpresionPresupuestosClienteAzacan, uDialogOpcionesImpresionPresupuestosCliente;
uDialogOpcionesImpresionPresupuestosClienteMusaeda;
{$R *.dfm} {$R *.dfm}
@ -306,17 +305,7 @@ var
bPrevisualizar: Boolean; bPrevisualizar: Boolean;
begin begin
inherited; inherited;
bPrevisualizar := True; bPrevisualizar := elegirFirmaDocumento(AVerSello);
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 bPrevisualizar and Assigned(FPresupuesto) then if bPrevisualizar and Assigned(FPresupuesto) then
if not Modified then if not Modified then
@ -384,22 +373,7 @@ var
bPrevisualizar: Boolean; bPrevisualizar: Boolean;
begin begin
inherited; inherited;
bPrevisualizar := True; bPrevisualizar := elegirFirmaDocumento(AVerSello);
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);
if bPrevisualizar and Assigned(FPresupuesto) then if bPrevisualizar and Assigned(FPresupuesto) then
if not Modified 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' Caption = 'Lista de presupuestos de cliente'
ClientWidth = 805 ClientWidth = 805
ExplicitWidth = 813 ExplicitWidth = 813
ExplicitHeight = 240
PixelsPerInch = 96 PixelsPerInch = 96
TextHeight = 13 TextHeight = 13
inherited JvNavPanelHeader: TJvNavPanelHeader inherited JvNavPanelHeader: TJvNavPanelHeader

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

@ -235,23 +235,8 @@ var
begin begin
inherited; inherited;
//Preguntamos si desea que en los presupuestos se vea el Sello de Paco u Oscar, if not elegirFirmaDocumento(AVerSello) then
//solo para empresa Tecsitel exit;
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 ViewGrid.NumSeleccionados = 1 then if ViewGrid.NumSeleccionados = 1 then
FController.GenerarEmailPresupuesto(FPresupuestos, AVerSello) FController.GenerarEmailPresupuesto(FPresupuestos, AVerSello)
@ -555,20 +540,7 @@ begin
else else
APresupuestos := Presupuestos; APresupuestos := Presupuestos;
if (AppFactuGES.EmpresaActiva.ID = 1) then bPrevisualizar:= elegirFirmaDocumento(AVerSello);
//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);
if bPrevisualizar and Assigned(APresupuestos) then if bPrevisualizar and Assigned(APresupuestos) then
FController.Print(APresupuestos, AllItems, AVerSello); FController.Print(APresupuestos, AllItems, AVerSello);
@ -642,20 +614,7 @@ begin
else else
APresupuestos := Presupuestos; APresupuestos := Presupuestos;
if (AppFactuGES.EmpresaActiva.ID = 1) then bPrevisualizar:= elegirFirmaDocumento(AVerSello);
//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);
if bPrevisualizar and Assigned(APresupuestos) then if bPrevisualizar and Assigned(APresupuestos) then
FController.Preview(APresupuestos, AllItems, AVerSello); 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 if not Assigned(Controller) then
raise Exception.Create('No se ha asignado el controlador necesario'); raise Exception.Create('No se ha asignado el controlador necesario');
if (AppFactuGES.EmpresaActiva.ID = 1) then bPrevisualizar:= elegirFirmaDocumento(AVerSello);
//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);
if bPrevisualizar then if bPrevisualizar then
for I := 0 to ListaID.Count - 1 do 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.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">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 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 2,1,9,0 FILEVERSION 2,2,0,0
PRODUCTVERSION 2,1,9,0 PRODUCTVERSION 2,2,0,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", "2.1.9.0\0" VALUE "FileVersion", "2.2.0.0\0"
VALUE "ProductName", "FactuGES Servidor\0" VALUE "ProductName", "FactuGES Servidor\0"
VALUE "ProductVersion", "2.1.9.0\0" VALUE "ProductVersion", "2.2.0.0\0"
VALUE "CompileDate", "jueves, 22 de febrero de 2018 11:44\0" VALUE "CompileDate", "miércoles, 18 de abril de 2018 12:52\0"
END END
END END
BLOCK "VarFileInfo" BLOCK "VarFileInfo"