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

#405: No deja meter decimales en el aumento general de presupuestos, albaranes

Browse Source 
#414: Poder elegir el sello de paco u oscar en presupuesto de cliente de la empresa tecsitel

Version 1.8.3


git-svn-id: https://192.168.0.254/svn/Proyectos.Tecsitel_FactuGES2/trunk@1011 0c75b7a4-871f-7646-8a2f-f78d34cc349f
This commit is contained in:
roberto 2010-07-12 18:03:50 +00:00
parent 17531b78bd
commit 40eccae05b
34 changed files with 2706 additions and 192 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

BIN
Resources/Firmas Tecsitel/Fima Tecsitel2.jpg Normal file
View File

Binary file not shown.
Side by Side

After

Width:  |  Height:  |  Size: 24 KiB

BIN
Resources/Firmas Tecsitel/Fima Tecsitel2.png Normal file
View File

Binary file not shown.
Side by Side

After

Width:  |  Height:  |  Size: 34 KiB

6
Source/Base/Base.dproj
View File

@ -45,6 +45,12 @@
<Borland.ProjectType>Package</Borland.ProjectType> <Borland.ProjectType>Package</Borland.ProjectType>
<BorlandProject> <BorlandProject>
<BorlandProject><Delphi.Personality><Parameters><Parameters Name="UseLauncher">False</Parameters><Parameters Name="LoadAllSymbols">True</Parameters><Parameters Name="LoadUnspecifiedSymbols">False</Parameters></Parameters><Package_Options><Package_Options Name="PackageDescription">Libreria base de FactuGES</Package_Options><Package_Options Name="ImplicitBuild">False</Package_Options><Package_Options Name="DesigntimeOnly">False</Package_Options><Package_Options Name="RuntimeOnly">False</Package_Options></Package_Options><VersionInfo><VersionInfo Name="IncludeVerInfo">True</VersionInfo><VersionInfo Name="AutoIncBuild">False</VersionInfo><VersionInfo Name="MajorVer">1</VersionInfo><VersionInfo Name="MinorVer">0</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"></VersionInfoKeys><VersionInfoKeys Name="FileDescription"></VersionInfoKeys><VersionInfoKeys Name="FileVersion">1.0.0.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.0.0.0</VersionInfoKeys></VersionInfoKeys><Excluded_Packages> <BorlandProject><Delphi.Personality><Parameters><Parameters Name="UseLauncher">False</Parameters><Parameters Name="LoadAllSymbols">True</Parameters><Parameters Name="LoadUnspecifiedSymbols">False</Parameters></Parameters><Package_Options><Package_Options Name="PackageDescription">Libreria base de FactuGES</Package_Options><Package_Options Name="ImplicitBuild">False</Package_Options><Package_Options Name="DesigntimeOnly">False</Package_Options><Package_Options Name="RuntimeOnly">False</Package_Options></Package_Options><VersionInfo><VersionInfo Name="IncludeVerInfo">True</VersionInfo><VersionInfo Name="AutoIncBuild">False</VersionInfo><VersionInfo Name="MajorVer">1</VersionInfo><VersionInfo Name="MinorVer">0</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"></VersionInfoKeys><VersionInfoKeys Name="FileDescription"></VersionInfoKeys><VersionInfoKeys Name="FileVersion">1.0.0.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.0.0.0</VersionInfoKeys></VersionInfoKeys><Excluded_Packages>
<Excluded_Packages Name="$(BDS)\bin\dcloffice2k100.bpl">Microsoft Office 2000 Sample Automation Server Wrapper Components</Excluded_Packages> <Excluded_Packages Name="$(BDS)\bin\dcloffice2k100.bpl">Microsoft Office 2000 Sample Automation Server Wrapper Components</Excluded_Packages>
<Excluded_Packages Name="$(BDS)\bin\dclofficexp100.bpl">Microsoft Office XP Sample Automation Server Wrapper Components</Excluded_Packages> <Excluded_Packages Name="$(BDS)\bin\dclofficexp100.bpl">Microsoft Office XP Sample Automation Server Wrapper Components</Excluded_Packages>
</Excluded_Packages><Source><Source Name="MainSource">Base.dpk</Source></Source></Delphi.Personality></BorlandProject></BorlandProject> </Excluded_Packages><Source><Source Name="MainSource">Base.dpk</Source></Source></Delphi.Personality></BorlandProject></BorlandProject>

BIN
Source/Base/Base.res
View File

Binary file not shown.

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">8</VersionInfo><VersionInfo Name="Release">2</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.8.2.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.8.2.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">8</VersionInfo><VersionInfo Name="Release">3</VersionInfo><VersionInfo Name="Build">0</VersionInfo><VersionInfo Name="Debug">False</VersionInfo><VersionInfo Name="PreRelease">False</VersionInfo><VersionInfo Name="Special">False</VersionInfo><VersionInfo Name="Private">False</VersionInfo><VersionInfo Name="DLL">False</VersionInfo><VersionInfo Name="Locale">3082</VersionInfo><VersionInfo Name="CodePage">1252</VersionInfo></VersionInfo><VersionInfoKeys><VersionInfoKeys Name="CompanyName">Rodax Software S.L.</VersionInfoKeys><VersionInfoKeys Name="FileDescription"></VersionInfoKeys><VersionInfoKeys Name="FileVersion">1.8.3.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.8.3.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>

BIN
Source/Cliente/FactuGES.res
View File

Binary file not shown.

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

File diff suppressed because one or more lines are too long

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

Binary file not shown.

4
Source/Modulos/Facturas de cliente/Views/uFacturasClienteViewRegister.pas
View File

@ -10,7 +10,7 @@ implementation
uses uses
uEditorRegistryUtils, uEditorFacturasCliente, uEditorFacturaCliente, uEditorRegistryUtils, uEditorFacturasCliente, uEditorFacturaCliente,
uEditorFacturasClienteReport, uEditorElegirArticulosFacturaCliente, uEditorFacturasClienteReport, uEditorElegirArticulosFacturaCliente,
uEditorElegirFacturasCliente; uEditorElegirFacturasCliente, uDialogOpcionesImpresionFacturasCliente;
procedure RegisterViews; procedure RegisterViews;
begin begin
@ -19,6 +19,7 @@ begin
EditorRegistry.RegisterClass(TfEditorElegirArticulosFacturaCliente, 'EditorElegirArticulosFacturaCliente'); EditorRegistry.RegisterClass(TfEditorElegirArticulosFacturaCliente, 'EditorElegirArticulosFacturaCliente');
EditorRegistry.RegisterClass(TfEditorElegirFacturasCliente, 'EditorElegirFacturasCliente'); EditorRegistry.RegisterClass(TfEditorElegirFacturasCliente, 'EditorElegirFacturasCliente');
EditorRegistry.RegisterClass(TfEditorFacturasClientePreview, 'EditorFacturasClientePreview'); EditorRegistry.RegisterClass(TfEditorFacturasClientePreview, 'EditorFacturasClientePreview');
EditorRegistry.RegisterClass(TfDialogOpcionesImpresionFacturasCliente, 'DialogOpcionesImpresionFacturasCliente');
end; end;
procedure UnregisterViews; procedure UnregisterViews;
@ -28,6 +29,7 @@ begin
EditorRegistry.UnRegisterClass(TfEditorElegirArticulosFacturaCliente); EditorRegistry.UnRegisterClass(TfEditorElegirArticulosFacturaCliente);
EditorRegistry.UnRegisterClass(TfEditorElegirFacturasCliente); EditorRegistry.UnRegisterClass(TfEditorElegirFacturasCliente);
EditorRegistry.UnRegisterClass(TfEditorFacturasClientePreview); EditorRegistry.UnRegisterClass(TfEditorFacturasClientePreview);
EditorRegistry.UnRegisterClass(TfDialogOpcionesImpresionFacturasCliente);
end; end;
end. end.

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

@ -57,8 +57,8 @@ type
function EsModificable(APresupuesto : IBizPresupuestoCliente): Boolean; function EsModificable(APresupuesto : IBizPresupuestoCliente): Boolean;
function EsEliminable(APresupuesto : IBizPresupuestoCliente): Boolean; function EsEliminable(APresupuesto : IBizPresupuestoCliente): Boolean;
procedure Preview(APresupuesto : IBizPresupuestoCliente; AllItems: Boolean = false); procedure Preview(APresupuesto : IBizPresupuestoCliente; AllItems: Boolean = false; Const AVerSello: Integer = 1);
procedure Print(APresupuesto : IBizPresupuestoCliente; AllItems: Boolean = false); procedure Print(APresupuesto : IBizPresupuestoCliente; AllItems: Boolean = false; Const AVerSello: Integer = 1);
function GenerarCertificados(APresupuesto : IBizPresupuestoCliente; AllItems: Boolean = false): Boolean; function GenerarCertificados(APresupuesto : IBizPresupuestoCliente; AllItems: Boolean = false): Boolean;
function CambiarSituacion(APresupuesto : IBizPresupuestoCliente; Situacion: String; FechaDecision: TDateTime; AllItems: Boolean = false): Boolean; function CambiarSituacion(APresupuesto : IBizPresupuestoCliente; Situacion: String; FechaDecision: TDateTime; AllItems: Boolean = false): Boolean;
@ -140,8 +140,8 @@ type
function EsModificable(APresupuesto : IBizPresupuestoCliente): Boolean; function EsModificable(APresupuesto : IBizPresupuestoCliente): Boolean;
function EsEliminable(APresupuesto : IBizPresupuestoCliente): Boolean; function EsEliminable(APresupuesto : IBizPresupuestoCliente): Boolean;
procedure Preview(APresupuesto : IBizPresupuestoCliente; AllItems: Boolean = false); procedure Preview(APresupuesto : IBizPresupuestoCliente; AllItems: Boolean = false; Const AVerSello: Integer = 1);
procedure Print(APresupuesto : IBizPresupuestoCliente; AllItems: Boolean = false); procedure Print(APresupuesto : IBizPresupuestoCliente; AllItems: Boolean = false; Const AVerSello: Integer = 1);
function GenerarCertificados(APresupuesto : IBizPresupuestoCliente; AllItems: Boolean = false): Boolean; function GenerarCertificados(APresupuesto : IBizPresupuestoCliente; AllItems: Boolean = false): Boolean;
function CambiarSituacion(APresupuesto : IBizPresupuestoCliente; Situacion: String; FechaDecision: TDateTime; AllItems: Boolean = false): Boolean; function CambiarSituacion(APresupuesto : IBizPresupuestoCliente; Situacion: String; FechaDecision: TDateTime; AllItems: Boolean = false): Boolean;
@ -1049,7 +1049,7 @@ begin
} }
end; end;
procedure TPresupuestosClienteController.Preview(APresupuesto: IBizPresupuestoCliente; AllItems: Boolean = false); procedure TPresupuestosClienteController.Preview(APresupuesto: IBizPresupuestoCliente; AllItems: Boolean = false; Const AVerSello: Integer = 1);
var var
AReportController : IPresupuestosClienteReportController; AReportController : IPresupuestosClienteReportController;
ID_Presupuestos: TIntegerList; ID_Presupuestos: TIntegerList;
@ -1075,14 +1075,14 @@ begin
else else
ID_Presupuestos.Add(APresupuesto.ID); ID_Presupuestos.Add(APresupuesto.ID);
AReportController.Preview(ID_Presupuestos); AReportController.Preview(ID_Presupuestos, AVerSello);
finally finally
AReportController := NIL; AReportController := NIL;
FreeAndNil(ID_Presupuestos); FreeAndNil(ID_Presupuestos);
end; end;
end; end;
procedure TPresupuestosClienteController.Print(APresupuesto: IBizPresupuestoCliente; AllItems: Boolean = false); procedure TPresupuestosClienteController.Print(APresupuesto: IBizPresupuestoCliente; AllItems: Boolean = false; Const AVerSello: Integer= 1);
var var
AReportController : IPresupuestosClienteReportController; AReportController : IPresupuestosClienteReportController;
ID_Presupuestos: TIntegerList; ID_Presupuestos: TIntegerList;
@ -1107,7 +1107,7 @@ begin
else else
ID_Presupuestos.Add(APresupuesto.ID); ID_Presupuestos.Add(APresupuesto.ID);
AReportController.Print(ID_Presupuestos); AReportController.Print(ID_Presupuestos, AVerSello);
finally finally
AReportController := NIL; AReportController := NIL;

33
Source/Modulos/Presupuestos de cliente/Controller/uPresupuestosClienteReportController.pas
View File

@ -10,10 +10,10 @@ uses
type type
IPresupuestosClienteReportController = interface(IControllerBase) IPresupuestosClienteReportController = interface(IControllerBase)
['{41AE4B36-6114-4DDE-8BCF-288AA0E12449}'] ['{41AE4B36-6114-4DDE-8BCF-288AA0E12449}']
procedure Preview(const AListaID : TIntegerList); procedure Preview(const AListaID : TIntegerList; Const AVerSello: Integer);
procedure Print(const AListaID : TIntegerList); procedure Print(const AListaID : TIntegerList; Const AVerSello: Integer);
function ExportToWord(const AID: Integer; const AFileName : String = ''): Boolean; function ExportToWord(const AID: Integer; const AFileName : String = ''; Const AVerSello: Integer=1): Boolean;
function ExportToPDF(const AID: Integer; const AFileName : String = ''): Boolean; function ExportToPDF(const AID: Integer; const AFileName : String = ''; Const AVerSello: Integer=1): Boolean;
function GenerarCertificados(const AID: Integer; const AFileName : String): Boolean; function GenerarCertificados(const AID: Integer; const AFileName : String): Boolean;
end; end;
@ -25,10 +25,10 @@ type
constructor Create; override; constructor Create; override;
destructor Destroy; override; destructor Destroy; override;
procedure Preview(const AListaID : TIntegerList); procedure Preview(const AListaID : TIntegerList; Const AVerSello: Integer);
procedure Print(const AListaID : TIntegerList); procedure Print(const AListaID : TIntegerList; Const AVerSello: Integer);
function ExportToWord(const AID: Integer; const AFileName : String = ''): Boolean; function ExportToWord(const AID: Integer; const AFileName : String = ''; Const AVerSello: Integer=1): Boolean;
function ExportToPDF(const AID: Integer; const AFileName : String = ''): Boolean; function ExportToPDF(const AID: Integer; const AFileName : String = ''; Const AVerSello: Integer=1): Boolean;
function GenerarCertificados(const AID: Integer; const AFileName : String): Boolean; function GenerarCertificados(const AID: Integer; const AFileName : String): Boolean;
end; end;
@ -61,8 +61,7 @@ begin
inherited; inherited;
end; end;
function TPresupuestosClienteReportController.ExportToPDF(const AID: Integer; function TPresupuestosClienteReportController.ExportToPDF(const AID: Integer; const AFileName: String; Const AVerSello: Integer): Boolean;
const AFileName: String): Boolean;
var var
AStream: Binary; AStream: Binary;
begin begin
@ -72,7 +71,7 @@ begin
ShowHourglassCursor; ShowHourglassCursor;
try try
AStream := FDataModule.GetRptPDFPresupuesto(AID); AStream := FDataModule.GetRptPDFPresupuesto(AID, AVerSello);
try try
AStream.SaveToFile(AFileName); AStream.SaveToFile(AFileName);
Result := True; Result := True;
@ -84,7 +83,7 @@ begin
end; end;
end; end;
function TPresupuestosClienteReportController.ExportToWord(const AID: Integer; const AFileName : String) : Boolean; function TPresupuestosClienteReportController.ExportToWord(const AID: Integer; const AFileName : String; Const AVerSello: Integer) : Boolean;
var var
AStream: Binary; AStream: Binary;
AFile : String; AFile : String;
@ -96,7 +95,7 @@ begin
ShowHourglassCursor; ShowHourglassCursor;
try try
AStream := FDataModule.GetRptWordPresupuesto(AID); AStream := FDataModule.GetRptWordPresupuesto(AID, AVerSello);
try try
AStream.SaveToFile(AFile); AStream.SaveToFile(AFile);
Result := True; Result := True;
@ -134,7 +133,7 @@ begin
end; end;
end; end;
procedure TPresupuestosClienteReportController.Preview(const AListaID : TIntegerList); procedure TPresupuestosClienteReportController.Preview(const AListaID : TIntegerList; Const AVerSello: Integer);
var var
AStream: Binary; AStream: Binary;
AEditor : IEditorPresupuestosClientePreview; AEditor : IEditorPresupuestosClientePreview;
@ -143,7 +142,7 @@ begin
ShowHourglassCursor; ShowHourglassCursor;
try try
AStream := FDataModule.GetRptPresupuestos(AListaID); AStream := FDataModule.GetRptPresupuestos(AListaID, AVerSello);
try try
CreateEditor('EditorPresupuestosClientePreview', IEditorPresupuestosClientePreview, AEditor); CreateEditor('EditorPresupuestosClientePreview', IEditorPresupuestosClientePreview, AEditor);
if Assigned(AEditor) then if Assigned(AEditor) then
@ -167,7 +166,7 @@ begin
end; end;
end; end;
procedure TPresupuestosClienteReportController.Print(const AListaID : TIntegerList); procedure TPresupuestosClienteReportController.Print(const AListaID : TIntegerList; Const AVerSello: Integer);
var var
AStream: Binary; AStream: Binary;
AEditor : IEditorPresupuestosClientePreview; AEditor : IEditorPresupuestosClientePreview;
@ -176,7 +175,7 @@ begin
ShowHourglassCursor; ShowHourglassCursor;
try try
AStream := FDataModule.GetRptPresupuestos(AListaID); AStream := FDataModule.GetRptPresupuestos(AListaID, AVerSello);
try try
CreateEditor('EditorPresupuestosClientePreview', IEditorPresupuestosClientePreview, AEditor); CreateEditor('EditorPresupuestosClientePreview', IEditorPresupuestosClientePreview, AEditor);
if Assigned(AEditor) then if Assigned(AEditor) then

8
Source/Modulos/Presupuestos de cliente/Data/uDataModulePresupuestosCliente.dfm
View File

@ -14,12 +14,12 @@ inherited DataModulePresupuestosCliente: TDataModulePresupuestosCliente
Top = 84 Top = 84
end end
object rda_PresupuestosCliente: TDARemoteDataAdapter object rda_PresupuestosCliente: TDARemoteDataAdapter
DataStreamer = Bin2DataStreamer
GetSchemaCall.RemoteService = RORemoteService GetSchemaCall.RemoteService = RORemoteService
GetDataCall.RemoteService = RORemoteService GetDataCall.RemoteService = RORemoteService
UpdateDataCall.RemoteService = RORemoteService UpdateDataCall.RemoteService = RORemoteService
GetScriptsCall.RemoteService = RORemoteService GetScriptsCall.RemoteService = RORemoteService
RemoteService = RORemoteService RemoteService = RORemoteService
DataStreamer = Bin2DataStreamer
Left = 59 Left = 59
Top = 151 Top = 151
end end
@ -246,8 +246,6 @@ inherited DataModulePresupuestosCliente: TDataModulePresupuestosCliente
Params = <> Params = <>
StreamingOptions = [soDisableEventsWhileStreaming] StreamingOptions = [soDisableEventsWhileStreaming]
RemoteDataAdapter = rda_PresupuestosCliente RemoteDataAdapter = rda_PresupuestosCliente
DetailOptions = [dtCascadeOpenClose, dtCascadeApplyUpdates, dtAutoFetch, dtCascadeDelete, dtCascadeUpdate, dtDisableLogOfCascadeDeletes, dtDisableLogOfCascadeUpdates, dtIncludeInAllInOneFetch]
MasterOptions = [moCascadeOpenClose, moCascadeApplyUpdates, moCascadeDelete, moCascadeUpdate, moDisableLogOfCascadeDeletes, moDisableLogOfCascadeUpdates]
LogicalName = 'PresupuestosCliente' LogicalName = 'PresupuestosCliente'
IndexDefs = <> IndexDefs = <>
Left = 248 Left = 248
@ -368,8 +366,6 @@ inherited DataModulePresupuestosCliente: TDataModulePresupuestosCliente
MasterSource = ds_PresupuestosCliente MasterSource = ds_PresupuestosCliente
MasterFields = 'ID' MasterFields = 'ID'
DetailFields = 'ID_PRESUPUESTO' DetailFields = 'ID_PRESUPUESTO'
DetailOptions = [dtCascadeOpenClose, dtCascadeApplyUpdates, dtAutoFetch, dtCascadeDelete, dtCascadeUpdate, dtDisableLogOfCascadeDeletes, dtDisableLogOfCascadeUpdates, dtIncludeInAllInOneFetch]
MasterOptions = [moCascadeOpenClose, moCascadeApplyUpdates, moCascadeDelete, moCascadeUpdate, moDisableLogOfCascadeDeletes, moDisableLogOfCascadeUpdates]
LogicalName = 'PresupuestosCliente_Detalles' LogicalName = 'PresupuestosCliente_Detalles'
IndexDefs = <> IndexDefs = <>
Left = 464 Left = 464
@ -399,8 +395,6 @@ inherited DataModulePresupuestosCliente: TDataModulePresupuestosCliente
Params = <> Params = <>
StreamingOptions = [soDisableEventsWhileStreaming] StreamingOptions = [soDisableEventsWhileStreaming]
RemoteDataAdapter = rda_PresupuestosCliente RemoteDataAdapter = rda_PresupuestosCliente
DetailOptions = [dtCascadeOpenClose, dtCascadeApplyUpdates, dtAutoFetch, dtCascadeDelete, dtCascadeUpdate, dtDisableLogOfCascadeDeletes, dtDisableLogOfCascadeUpdates, dtIncludeInAllInOneFetch]
MasterOptions = [moCascadeOpenClose, moCascadeApplyUpdates, moCascadeDelete, moCascadeUpdate, moDisableLogOfCascadeDeletes, moDisableLogOfCascadeUpdates]
LogicalName = 'ListaAnosPresupuestos' LogicalName = 'ListaAnosPresupuestos'
IndexDefs = <> IndexDefs = <>
Left = 248 Left = 248

20
Source/Modulos/Presupuestos de cliente/Data/uDataModulePresupuestosCliente.pas
View File

@ -41,10 +41,10 @@ type
function NewItem : IBizPresupuestoCliente; function NewItem : IBizPresupuestoCliente;
// Report // Report
function GetRptPresupuestos(const AListaID: TIntegerList): Binary; function GetRptPresupuestos(const AListaID: TIntegerList; Const AVerSello: Integer): Binary;
function GetRptWordPresupuesto(const AID: Integer): Binary; function GetRptWordPresupuesto(const AID: Integer; Const AVerSello: Integer): Binary;
function GetRptWordCertificadoTrabajos(const AID: Integer): Binary; function GetRptWordCertificadoTrabajos(const AID: Integer): Binary;
function GetRptPDFPresupuesto(const AID: Integer): Binary; function GetRptPDFPresupuesto(const AID: Integer; Const AVerSello: Integer): Binary;
function GetAnosItems : TStringList; function GetAnosItems : TStringList;
end; end;
@ -70,27 +70,26 @@ begin
RORemoteService.Message := dmConexion.Message; RORemoteService.Message := dmConexion.Message;
end; end;
function TDataModulePresupuestosCliente.GetRptPDFPresupuesto( function TDataModulePresupuestosCliente.GetRptPDFPresupuesto(const AID: Integer; Const AVerSello: Integer): Binary;
const AID: Integer): Binary;
var var
AParam : TIntegerArray; AParam : TIntegerArray;
begin begin
AParam := TIntegerArray.Create; AParam := TIntegerArray.Create;
try try
AParam.Add(AID); AParam.Add(AID);
Result := (RORemoteService as IsrvPresupuestosCliente).GenerarInformeEnPDF(AParam) Result := (RORemoteService as IsrvPresupuestosCliente).GenerarInformeEnPDF(AParam, AVerSello)
finally finally
FreeANDNIL(AParam) FreeANDNIL(AParam)
end; end;
end; end;
function TDataModulePresupuestosCliente.GetRptPresupuestos(const AListaID: TIntegerList): Binary; function TDataModulePresupuestosCliente.GetRptPresupuestos(const AListaID: TIntegerList; Const AVerSello: Integer): Binary;
var var
AParam : TIntegerArray; AParam : TIntegerArray;
begin begin
AParam := AListaID.ToIntegerArray; AParam := AListaID.ToIntegerArray;
try try
Result := (RORemoteService as IsrvPresupuestosCliente).GenerarInforme(AParam) Result := (RORemoteService as IsrvPresupuestosCliente).GenerarInforme(AParam, AVerSello)
finally finally
FreeANDNIL(AParam) FreeANDNIL(AParam)
end; end;
@ -102,10 +101,9 @@ begin
Result := (RORemoteService as IsrvPresupuestosCliente).GenerarCertificadoTrabajosEnWord(AID) Result := (RORemoteService as IsrvPresupuestosCliente).GenerarCertificadoTrabajosEnWord(AID)
end; end;
function TDataModulePresupuestosCliente.GetRptWordPresupuesto( function TDataModulePresupuestosCliente.GetRptWordPresupuesto(const AID: Integer; Const AVerSello: Integer): Binary;
const AID: Integer): Binary;
begin begin
Result := (RORemoteService as IsrvPresupuestosCliente).GenerarInformeEnWord(AID) Result := (RORemoteService as IsrvPresupuestosCliente).GenerarInformeEnWord(AID, AVerSello)
end; end;
function TDataModulePresupuestosCliente.NewItem: IBizPresupuestoCliente; function TDataModulePresupuestosCliente.NewItem: IBizPresupuestoCliente;

6
Source/Modulos/Presupuestos de cliente/Model/Data/uIDataModulePresupuestosClienteReport.pas
View File

@ -8,10 +8,10 @@ uses
type type
IDataModulePresupuestosClienteReport = interface IDataModulePresupuestosClienteReport = interface
['{70CEBB06-376F-4363-B80F-DDA4324E0F85}'] ['{70CEBB06-376F-4363-B80F-DDA4324E0F85}']
function GetRptPresupuestos(const AListaID: TIntegerList): Binary; function GetRptPresupuestos(const AListaID: TIntegerList; Const AVerSello: Integer): Binary;
function GetRptWordPresupuesto(const AID: Integer): Binary; function GetRptWordPresupuesto(const AID: Integer; Const AVerSello: Integer): Binary;
function GetRptWordCertificadoTrabajos(const AID: Integer): Binary; function GetRptWordCertificadoTrabajos(const AID: Integer): Binary;
function GetRptPDFPresupuesto(const AID: Integer): Binary; function GetRptPDFPresupuesto(const AID: Integer; Const AVerSello: Integer): Binary;
end; end;
implementation implementation

19
Source/Modulos/Presupuestos de cliente/Reports/uRptPresupuestosCliente_Server.pas
View File

@ -96,7 +96,7 @@ type
FImporteMinimo: Currency; FImporteMinimo: Currency;
FDesglosado : Boolean; FDesglosado : Boolean;
procedure _GenerarPresupuesto(const AID : Integer); procedure _GenerarPresupuesto(const AID : Integer; const VerSello: Integer);
procedure PrepararTablaInforme(ATabla: TDAMemDataTable); procedure PrepararTablaInforme(ATabla: TDAMemDataTable);
procedure PrepararTablaResumenInforme(ATabla: IDADataset); procedure PrepararTablaResumenInforme(ATabla: IDADataset);
@ -105,8 +105,8 @@ type
procedure IniciarParametrosInforme; procedure IniciarParametrosInforme;
procedure RecuperarNombresClientes; procedure RecuperarNombresClientes;
public public
function GenerarPresupuesto(const ListaID : TIntegerArray): Binary; function GenerarPresupuesto(const ListaID : TIntegerArray; const VerSello: Integer): Binary;
function GenerarPresupuestoEnPDF(const ListaID : TIntegerArray): Binary; function GenerarPresupuestoEnPDF(const ListaID : TIntegerArray; const VerSello: Integer): Binary;
function GenerarInformeListadoPresupuestos(const IdEmpresa: Integer; const FechaInicio: Variant; const FechaFin: Variant; const ListaIDClientes: TIntegerArray; const Desglosado: Boolean; const ImporteMinimo: Currency): Binary; function GenerarInformeListadoPresupuestos(const IdEmpresa: Integer; const FechaInicio: Variant; const FechaFin: Variant; const ListaIDClientes: TIntegerArray; const Desglosado: Boolean; const ImporteMinimo: Currency): Binary;
end; end;
@ -157,7 +157,7 @@ begin
end; end;
end; end;
function TRptPresupuestosCliente.GenerarPresupuestoEnPDF(const ListaID: TIntegerArray): Binary; function TRptPresupuestosCliente.GenerarPresupuestoEnPDF(const ListaID: TIntegerArray; const VerSello: Integer): Binary;
var var
i: Integer; i: Integer;
begin begin
@ -165,7 +165,7 @@ begin
try try
//Vamos generando todos y cada uno de los presupuestos recibidos //Vamos generando todos y cada uno de los presupuestos recibidos
for i := 0 to ListaID.Count - 1 do for i := 0 to ListaID.Count - 1 do
_GenerarPresupuesto(ListaID.Items[i]); _GenerarPresupuesto(ListaID.Items[i], VerSello);
frxPDFExport1.Stream := Result; frxPDFExport1.Stream := Result;
frxReport.Export(frxPDFExport1) frxReport.Export(frxPDFExport1)
@ -494,7 +494,7 @@ begin
end; end;
end; end;
function TRptPresupuestosCliente.GenerarPresupuesto(const ListaID: TIntegerArray): Binary; function TRptPresupuestosCliente.GenerarPresupuesto(const ListaID: TIntegerArray; const VerSello: Integer): Binary;
var var
i: Integer; i: Integer;
begin begin
@ -502,7 +502,7 @@ begin
try try
//Vamos generando todos y cada uno de los presupuestos recibidos //Vamos generando todos y cada uno de los presupuestos recibidos
for i := 0 to ListaID.Count - 1 do for i := 0 to ListaID.Count - 1 do
_GenerarPresupuesto(ListaID.Items[i]); _GenerarPresupuesto(ListaID.Items[i], VerSello);
frxReport.PreviewPages.SaveToStream(Result); frxReport.PreviewPages.SaveToStream(Result);
finally finally
@ -526,7 +526,7 @@ begin
frxReport.PreviewPages.SaveToStream(Result); frxReport.PreviewPages.SaveToStream(Result);
end; end;
procedure TRptPresupuestosCliente._GenerarPresupuesto(const AID: Integer); procedure TRptPresupuestosCliente._GenerarPresupuesto(const AID: Integer; const VerSello: Integer);
var var
AInforme: Variant; AInforme: Variant;
begin begin
@ -555,6 +555,9 @@ begin
raise Exception.Create (('Error Servidor: _GenerarPresupuesto, no encuentra informe ' + rptInforme)); raise Exception.Create (('Error Servidor: _GenerarPresupuesto, no encuentra informe ' + rptInforme));
frxReport.LoadFromFile(AInforme, True); frxReport.LoadFromFile(AInforme, True);
frxReport.Variables.Variables['VerSello'] := IntToStr(VerSello);
frxReport.AddFunction('function PONERJUSTIFICACIONCOMPLETA(ARTFText : String): String', 'User Function',''); frxReport.AddFunction('function PONERJUSTIFICACIONCOMPLETA(ARTFText : String): String', 'User Function','');
frxReport.PrepareReport(False); frxReport.PrepareReport(False);
finally finally

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

@ -37,6 +37,7 @@ type
FCodigoPresupuesto : string; FCodigoPresupuesto : string;
FNombreFichero : String; FNombreFichero : String;
ListaCapitulos : array[1..1000] of TCapitulo; ListaCapitulos : array[1..1000] of TCapitulo;
FVerSello: Integer;
procedure InsertarConceptos(Tabla : Table); procedure InsertarConceptos(Tabla : Table);
function Generar : Boolean; function Generar : Boolean;
function RellenarPortada : boolean; virtual; function RellenarPortada : boolean; virtual;
@ -47,7 +48,7 @@ type
public public
constructor Create (AOwner : TComponent); override; constructor Create (AOwner : TComponent); override;
destructor Destroy; override; destructor Destroy; override;
function Exportar(Codigo, Fichero : String): Boolean; function Exportar(Codigo, Fichero : String; const VerSello: Integer): Boolean;
end; end;
@ -69,6 +70,7 @@ begin
FDocumento := NIL; FDocumento := NIL;
FImportes := True; FImportes := True;
FNumCapitulos := 0; FNumCapitulos := 0;
FVerSello:= 1;
end; end;
procedure TRptWordPresupuestoCliente.DataModuleCreate(Sender: TObject); procedure TRptWordPresupuestoCliente.DataModuleCreate(Sender: TObject);
@ -86,13 +88,14 @@ begin
inherited; inherited;
end; end;
function TRptWordPresupuestoCliente.Exportar(Codigo, Fichero: String): Boolean; function TRptWordPresupuestoCliente.Exportar(Codigo, Fichero: String; const VerSello: Integer): Boolean;
begin begin
if EsCadenaVacia(Fichero) then if EsCadenaVacia(Fichero) then
RaiseError('Falta indicar el fichero donde se exportará el listado.'); RaiseError('Falta indicar el fichero donde se exportará el listado.');
FNombreFichero := Fichero; FNombreFichero := Fichero;
FCodigoPresupuesto := Codigo; FCodigoPresupuesto := Codigo;
FVerSello := VerSello;
_GenerarPresupuesto(Codigo); _GenerarPresupuesto(Codigo);
Result := True; Result := True;
end; end;
@ -265,6 +268,16 @@ begin
ReplaceBookmark('ContactoClienteCab', FieldByName('PERSONA_CONTACTO').AsString); ReplaceBookmark('ContactoClienteCab', FieldByName('PERSONA_CONTACTO').AsString);
ReplaceBookmark('NombreClienteFirma', FieldByName('NOMBRE').AsString); 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
begin
if (FVerSello = 1) then
ReplaceBookmark('Firma2', '')
else
ReplaceBookmark('Firma1', '');
end;
if not EsCadenaVacia(FieldByName('MEMORIA').AsString) then if not EsCadenaVacia(FieldByName('MEMORIA').AsString) then
begin begin
Texto := FieldByName('MEMORIA').AsString; Texto := FieldByName('MEMORIA').AsString;

19
Source/Modulos/Presupuestos de cliente/Servidor/srvPresupuestosCliente_Impl.pas
View File

@ -33,9 +33,9 @@ type
procedure DARemoteServiceCreate(Sender: TObject); procedure DARemoteServiceCreate(Sender: TObject);
protected protected
{ IsrvPresupuestosCliente methods } { IsrvPresupuestosCliente methods }
function GenerarInforme(const ListaID: TIntegerArray): Binary; function GenerarInforme(const ListaID: TIntegerArray; const VerSello: Integer): Binary;
function GenerarInformeEnWord(const ID: Integer): Binary; function GenerarInformeEnWord(const ID: Integer; const VerSello: Integer): Binary;
function GenerarInformeEnPDF(const ListaID: TIntegerArray): Binary; function GenerarInformeEnPDF(const ListaID: TIntegerArray; const VerSello: Integer): Binary;
function GenerarCertificadoTrabajosEnWord(const ID: Integer): Binary; function GenerarCertificadoTrabajosEnWord(const ID: Integer): Binary;
end; end;
@ -101,32 +101,31 @@ begin
end; end;
end; end;
function TsrvPresupuestosCliente.GenerarInforme(const ListaID: TIntegerArray): Binary; function TsrvPresupuestosCliente.GenerarInforme(const ListaID: TIntegerArray; const VerSello: Integer): Binary;
var var
AReportGenerator : TRptPresupuestosCliente; AReportGenerator : TRptPresupuestosCliente;
begin begin
AReportGenerator := TRptPresupuestosCliente.Create(nil); AReportGenerator := TRptPresupuestosCliente.Create(nil);
try try
Result := AReportGenerator.GenerarPresupuesto(ListaID); Result := AReportGenerator.GenerarPresupuesto(ListaID, VerSello);
finally finally
FreeAndNIL(AReportGenerator); FreeAndNIL(AReportGenerator);
end; end;
end; end;
function TsrvPresupuestosCliente.GenerarInformeEnPDF( function TsrvPresupuestosCliente.GenerarInformeEnPDF(const ListaID: TIntegerArray; const VerSello: Integer): Binary;
const ListaID: TIntegerArray): Binary;
var var
AReportGenerator : TRptPresupuestosCliente; AReportGenerator : TRptPresupuestosCliente;
begin begin
AReportGenerator := TRptPresupuestosCliente.Create(nil); AReportGenerator := TRptPresupuestosCliente.Create(nil);
try try
Result := AReportGenerator.GenerarPresupuestoEnPDF(ListaID); Result := AReportGenerator.GenerarPresupuestoEnPDF(ListaID, VerSello);
finally finally
FreeAndNIL(AReportGenerator); FreeAndNIL(AReportGenerator);
end; end;
end; end;
function TsrvPresupuestosCliente.GenerarInformeEnWord(const ID: Integer): Binary; function TsrvPresupuestosCliente.GenerarInformeEnWord(const ID: Integer; const VerSello: Integer): Binary;
var var
AReportGenerator : TRptWordPresupuestoCliente; AReportGenerator : TRptWordPresupuestoCliente;
AFicheroTMP : TFileName; AFicheroTMP : TFileName;
@ -136,7 +135,7 @@ begin
AReportGenerator := TRptWordPresupuestoCliente.Create(nil); AReportGenerator := TRptWordPresupuestoCliente.Create(nil);
try try
try try
if AReportGenerator.Exportar(IntToStr(ID), AFicheroTMP) then if AReportGenerator.Exportar(IntToStr(ID), AFicheroTMP, VerSello) then
begin begin
Result := Binary.Create; Result := Binary.Create;
Result.LoadFromFile(AFicheroTMP); Result.LoadFromFile(AFicheroTMP);

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

@ -69,6 +69,7 @@ contains
uViewDatosYSeleccionClientePresupuesto in 'uViewDatosYSeleccionClientePresupuesto.pas' {frViewDatosYSeleccionClientePresupuesto: TFrame}, uViewDatosYSeleccionClientePresupuesto in 'uViewDatosYSeleccionClientePresupuesto.pas' {frViewDatosYSeleccionClientePresupuesto: TFrame},
uViewTotalesPresupuesto in 'uViewTotalesPresupuesto.pas' {frViewTotalesPresupuesto: TFrame}, uViewTotalesPresupuesto in 'uViewTotalesPresupuesto.pas' {frViewTotalesPresupuesto: TFrame},
uEditorVariarPrecios in 'uEditorVariarPrecios.pas' {fEditorVariarPrecios}, uEditorVariarPrecios in 'uEditorVariarPrecios.pas' {fEditorVariarPrecios},
uDialogListaPresupuestosEnvioEMail in 'uDialogListaPresupuestosEnvioEMail.pas' {fDialogListaPresupuestosEnvioEMail}; uDialogListaPresupuestosEnvioEMail in 'uDialogListaPresupuestosEnvioEMail.pas' {fDialogListaPresupuestosEnvioEMail},
uDialogOpcionesImpresionPresupuestosCliente in 'uDialogOpcionesImpresionPresupuestosCliente.pas' {fDialogOpcionesImpresionPresupuestosCliente};
end. end.

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

@ -72,8 +72,9 @@
<DCCReference Include="RemObjects_Core_D11.dcp" /> <DCCReference Include="RemObjects_Core_D11.dcp" />
<DCCReference Include="rtl.dcp" /> <DCCReference Include="rtl.dcp" />
<DCCReference Include="uDialogListaPresupuestosEnvioEMail.pas"> <DCCReference Include="uDialogListaPresupuestosEnvioEMail.pas">
<Form>fEditorVariarPrecios</Form> <Form>fDialogListaPresupuestosEnvioEMail</Form>
</DCCReference> </DCCReference>
<DCCReference Include="uDialogOpcionesImpresionPresupuestosCliente.pas" />
<DCCReference Include="uEditorElegirArticulosPresupuestoCliente.pas"> <DCCReference Include="uEditorElegirArticulosPresupuestoCliente.pas">
<Form>fEditorElegirArticulosPresupuestoCliente</Form> <Form>fEditorElegirArticulosPresupuestoCliente</Form>
<DesignClass>TfEditorElegirArticulosPedidoCliente</DesignClass> <DesignClass>TfEditorElegirArticulosPedidoCliente</DesignClass>

BIN
Source/Modulos/Presupuestos de cliente/Views/PresupuestosCliente_view.res
View File

Binary file not shown.

2326
Source/Modulos/Presupuestos de cliente/Views/uDialogOpcionesImpresionPresupuestosCliente.dfm Normal file
View File

File diff suppressed because it is too large Load Diff

81
Source/Modulos/Presupuestos de cliente/Views/uDialogOpcionesImpresionPresupuestosCliente.pas Normal file
View File

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

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

@ -183,6 +183,10 @@ 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
@ -212,77 +216,82 @@ inherited fEditorPresupuestoCliente: TfEditorPresupuestoCliente
inherited ToolButton4: TToolButton inherited ToolButton4: TToolButton
Left = 278 Left = 278
Top = 0 Top = 0
Wrap = True
ExplicitLeft = 278 ExplicitLeft = 278
ExplicitTop = 0 ExplicitTop = 0
end end
inherited FontName: TJvFontComboBox inherited ToolButton14: TToolButton
Left = 334
Top = 0
ExplicitLeft = 334
ExplicitTop = 0
end
inherited FontSize: TEdit [5]
Left = 479
Top = 0
Width = 200
ExplicitLeft = 479
ExplicitTop = 0
ExplicitWidth = 200
end
inherited ToolButton14: TToolButton [6]
Left = 679
Top = 0
Wrap = True
ExplicitLeft = 679
end
inherited UpDown1: TUpDown
Left = 0 Left = 0
Wrap = False
ExplicitLeft = 0 ExplicitLeft = 0
end end
inherited FontName: TJvFontComboBox
Left = 65
Top = 22
ExplicitLeft = 65
ExplicitTop = 22
end
inherited FontSize: TEdit
Left = 210
Top = 22
Width = 200
ExplicitLeft = 210
ExplicitTop = 22
ExplicitWidth = 200
end
inherited UpDown1: TUpDown
Left = 410
Top = 22
ExplicitLeft = 410
ExplicitTop = 22
end
inherited ToolButton13: TToolButton inherited ToolButton13: TToolButton
Left = 17 Left = 427
ExplicitLeft = 17
end
inherited ToolButton6: TToolButton [9]
Left = 25
Top = 22 Top = 22
ExplicitLeft = 25 ExplicitLeft = 427
ExplicitTop = 22 ExplicitTop = 22
end end
inherited ToolButton7: TToolButton [10] inherited ToolButton6: TToolButton
Left = 91 Left = 435
Top = 22 Top = 22
Wrap = False ExplicitLeft = 435
ExplicitLeft = 91
ExplicitTop = 22 ExplicitTop = 22
end end
inherited ToolButton8: TToolButton [11] inherited ToolButton7: TToolButton
Left = 158 Left = 501
Top = 22 Top = 22
ExplicitLeft = 158 ExplicitLeft = 501
ExplicitTop = 22 ExplicitTop = 22
end end
inherited ToolButton12: TToolButton [12] inherited ToolButton8: TToolButton
Left = 241 Left = 568
Wrap = False
ExplicitLeft = 241
ExplicitHeight = 22
end
inherited ToolButton9: TToolButton [13]
Left = 249
Top = 22 Top = 22
ExplicitLeft = 249 ExplicitLeft = 568
ExplicitTop = 22 ExplicitTop = 22
end end
inherited ToolButton10: TToolButton [14] inherited ToolButton12: TToolButton
Left = 394 Left = 651
Top = 22 Top = 22
ExplicitLeft = 394 ExplicitLeft = 651
ExplicitTop = 22 ExplicitTop = 22
end end
inherited ToolButton11: TToolButton [15] inherited ToolButton9: TToolButton
Left = 519 Left = 659
ExplicitLeft = 519 Top = 22
ExplicitLeft = 659
ExplicitTop = 22
end
inherited ToolButton10: TToolButton
Left = 804
Top = 22
ExplicitLeft = 804
ExplicitTop = 22
end
inherited ToolButton11: TToolButton
Left = 929
Top = 22
ExplicitLeft = 929
ExplicitTop = 22
end end
end end
inherited cxGrid: TcxGrid inherited cxGrid: TcxGrid
@ -316,6 +325,10 @@ inherited fEditorPresupuestoCliente: TfEditorPresupuestoCliente
object pagPortada: TTabSheet object pagPortada: TTabSheet
Caption = 'Portada' Caption = 'Portada'
ImageIndex = 3 ImageIndex = 3
ExplicitLeft = 0
ExplicitTop = 0
ExplicitWidth = 0
ExplicitHeight = 0
object Panel1: TPanel object Panel1: TPanel
Left = 0 Left = 0
Top = 0 Top = 0
@ -448,6 +461,10 @@ inherited fEditorPresupuestoCliente: TfEditorPresupuestoCliente
object pagMemoria: TTabSheet object pagMemoria: TTabSheet
Caption = 'Memoria' Caption = 'Memoria'
ImageIndex = 4 ImageIndex = 4
ExplicitLeft = 0
ExplicitTop = 0
ExplicitWidth = 0
ExplicitHeight = 0
object Panel2: TPanel object Panel2: TPanel
Left = 0 Left = 0
Top = 0 Top = 0
@ -751,6 +768,10 @@ 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
@ -854,28 +875,28 @@ inherited fEditorPresupuestoCliente: TfEditorPresupuestoCliente
ExplicitWidth = 764 ExplicitWidth = 764
ExplicitHeight = 125 ExplicitHeight = 125
inherited Bevel3: TBevel inherited Bevel3: TBevel
Left = 385 Left = 358
Top = 80 Top = 80
Height = 75 Height = 75
ExplicitLeft = 385 ExplicitLeft = 358
ExplicitTop = 80 ExplicitTop = 80
ExplicitHeight = 75 ExplicitHeight = 75
end end
inherited Bevel4: TBevel inherited Bevel4: TBevel
Left = 497 Left = 470
Top = 122 Top = 122
Width = 147 Width = 192
ExplicitLeft = 497 ExplicitLeft = 470
ExplicitTop = 122 ExplicitTop = 122
ExplicitWidth = 147 ExplicitWidth = 192
end end
inherited Bevel1: TBevel inherited Bevel1: TBevel
Left = 497 Left = 470
Top = 238 Top = 238
Width = 147 Width = 73
ExplicitLeft = 497 ExplicitLeft = 470
ExplicitTop = 238 ExplicitTop = 238
ExplicitWidth = 147 ExplicitWidth = 73
end end
inherited Bevel2: TBevel inherited Bevel2: TBevel
Left = 130 Left = 130
@ -899,27 +920,27 @@ inherited fEditorPresupuestoCliente: TfEditorPresupuestoCliente
Width = 87 Width = 87
end end
inherited ImporteIVA: TcxDBCurrencyEdit inherited ImporteIVA: TcxDBCurrencyEdit
Left = 568 Left = 541
Top = 157 Top = 157
Style.LookAndFeel.SkinName = '' Style.LookAndFeel.SkinName = ''
Style.IsFontAssigned = True Style.IsFontAssigned = True
StyleDisabled.LookAndFeel.SkinName = '' StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = '' StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = '' StyleHot.LookAndFeel.SkinName = ''
ExplicitLeft = 568 ExplicitLeft = 541
ExplicitTop = 157 ExplicitTop = 157
ExplicitWidth = 20 ExplicitWidth = 20
Width = 20 Width = 20
end end
inherited ImporteTotal: TcxDBCurrencyEdit inherited ImporteTotal: TcxDBCurrencyEdit
Left = 498 Left = 471
Top = 211 Top = 211
Style.LookAndFeel.SkinName = '' Style.LookAndFeel.SkinName = ''
Style.IsFontAssigned = True Style.IsFontAssigned = True
StyleDisabled.LookAndFeel.SkinName = '' StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = '' StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = '' StyleHot.LookAndFeel.SkinName = ''
ExplicitLeft = 498 ExplicitLeft = 471
ExplicitTop = 211 ExplicitTop = 211
ExplicitWidth = 90 ExplicitWidth = 90
Width = 90 Width = 90
@ -936,49 +957,49 @@ inherited fEditorPresupuestoCliente: TfEditorPresupuestoCliente
ExplicitTop = 107 ExplicitTop = 107
end end
inherited edtIVA: TcxDBSpinEdit inherited edtIVA: TcxDBSpinEdit
Left = 497 Left = 470
Top = 157 Top = 157
Style.LookAndFeel.SkinName = '' Style.LookAndFeel.SkinName = ''
Style.IsFontAssigned = True Style.IsFontAssigned = True
StyleDisabled.LookAndFeel.SkinName = '' StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = '' StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = '' StyleHot.LookAndFeel.SkinName = ''
ExplicitLeft = 497 ExplicitLeft = 470
ExplicitTop = 157 ExplicitTop = 157
end end
inherited ImporteBase: TcxDBCurrencyEdit inherited ImporteBase: TcxDBCurrencyEdit
Left = 497 Left = 470
Top = 80 Top = 80
Style.LookAndFeel.SkinName = '' Style.LookAndFeel.SkinName = ''
Style.IsFontAssigned = True Style.IsFontAssigned = True
StyleDisabled.LookAndFeel.SkinName = '' StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = '' StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = '' StyleHot.LookAndFeel.SkinName = ''
ExplicitLeft = 497 ExplicitLeft = 470
ExplicitTop = 80 ExplicitTop = 80
ExplicitWidth = 91 ExplicitWidth = 91
Width = 91 Width = 91
end end
inherited edtRE: TcxDBSpinEdit inherited edtRE: TcxDBSpinEdit
Left = 497 Left = 470
Top = 184 Top = 184
Style.LookAndFeel.SkinName = '' Style.LookAndFeel.SkinName = ''
Style.IsFontAssigned = True Style.IsFontAssigned = True
StyleDisabled.LookAndFeel.SkinName = '' StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = '' StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = '' StyleHot.LookAndFeel.SkinName = ''
ExplicitLeft = 497 ExplicitLeft = 470
ExplicitTop = 184 ExplicitTop = 184
end end
inherited ImporteRE: TcxDBCurrencyEdit inherited ImporteRE: TcxDBCurrencyEdit
Left = 568 Left = 541
Top = 184 Top = 184
Style.LookAndFeel.SkinName = '' Style.LookAndFeel.SkinName = ''
Style.IsFontAssigned = True Style.IsFontAssigned = True
StyleDisabled.LookAndFeel.SkinName = '' StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = '' StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = '' StyleHot.LookAndFeel.SkinName = ''
ExplicitLeft = 568 ExplicitLeft = 541
ExplicitTop = 184 ExplicitTop = 184
ExplicitWidth = 20 ExplicitWidth = 20
Width = 20 Width = 20
@ -1022,9 +1043,9 @@ inherited fEditorPresupuestoCliente: TfEditorPresupuestoCliente
Width = 20 Width = 20
end end
inherited bTiposIVA: TButton inherited bTiposIVA: TButton
Left = 237 Left = 210
Top = 161 Top = 161
ExplicitLeft = 237 ExplicitLeft = 210
ExplicitTop = 161 ExplicitTop = 161
end end
inherited cbRecargoEquivalencia: TcxDBCheckBox inherited cbRecargoEquivalencia: TcxDBCheckBox
@ -1040,25 +1061,25 @@ inherited fEditorPresupuestoCliente: TfEditorPresupuestoCliente
Width = 158 Width = 158
end end
inherited edtRetencion: TcxDBSpinEdit inherited edtRetencion: TcxDBSpinEdit
Left = 497 Left = 470
Top = 258 Top = 258
Style.LookAndFeel.SkinName = '' Style.LookAndFeel.SkinName = ''
Style.IsFontAssigned = True Style.IsFontAssigned = True
StyleDisabled.LookAndFeel.SkinName = '' StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = '' StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = '' StyleHot.LookAndFeel.SkinName = ''
ExplicitLeft = 497 ExplicitLeft = 470
ExplicitTop = 258 ExplicitTop = 258
end end
inherited edtImporteRetencion: TcxDBCurrencyEdit inherited edtImporteRetencion: TcxDBCurrencyEdit
Left = 568 Left = 541
Top = 258 Top = 258
Style.LookAndFeel.SkinName = '' Style.LookAndFeel.SkinName = ''
Style.IsFontAssigned = True Style.IsFontAssigned = True
StyleDisabled.LookAndFeel.SkinName = '' StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = '' StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = '' StyleHot.LookAndFeel.SkinName = ''
ExplicitLeft = 568 ExplicitLeft = 541
ExplicitTop = 258 ExplicitTop = 258
ExplicitWidth = 20 ExplicitWidth = 20
Width = 20 Width = 20
@ -1085,6 +1106,7 @@ 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
@ -1096,6 +1118,8 @@ inherited fEditorPresupuestoCliente: TfEditorPresupuestoCliente
StyleHot.LookAndFeel.SkinName = '' StyleHot.LookAndFeel.SkinName = ''
ExplicitLeft = 367 ExplicitLeft = 367
ExplicitTop = 29 ExplicitTop = 29
ExplicitWidth = 325
Width = 325
end end
inherited eImporteBonificacion: TcxDBCurrencyEdit inherited eImporteBonificacion: TcxDBCurrencyEdit
Left = 449 Left = 449

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

@ -107,7 +107,8 @@ implementation
uses uses
uViewDatosYSeleccionCliente, uDataModuleUsuarios, uClientesController, uViewDatosYSeleccionCliente, uDataModuleUsuarios, uClientesController,
uBizDireccionesContacto, uDialogUtils, uFactuGES_App, uDataTableUtils; uBizDireccionesContacto, uDialogUtils, uFactuGES_App, uDataTableUtils,
uDialogOpcionesImpresionPresupuestosCliente;
{$R *.dfm} {$R *.dfm}
@ -296,10 +297,21 @@ begin
end; end;
procedure TfEditorPresupuestoCliente.ImprimirInterno; procedure TfEditorPresupuestoCliente.ImprimirInterno;
var
AVerSello: Integer;
bPrevisualizar: Boolean;
begin begin
inherited; inherited;
if not Modified then bPrevisualizar := True;
FController.Print(FPresupuesto);
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 bPrevisualizar and Assigned(FPresupuesto) then
if not Modified then
FController.Print(FPresupuesto, False, AVerSello);
end; end;
procedure TfEditorPresupuestoCliente.OnClienteChanged(Sender: TObject); procedure TfEditorPresupuestoCliente.OnClienteChanged(Sender: TObject);
@ -346,10 +358,21 @@ begin
end; end;
procedure TfEditorPresupuestoCliente.PrevisualizarInterno; procedure TfEditorPresupuestoCliente.PrevisualizarInterno;
var
AVerSello: Integer;
bPrevisualizar: Boolean;
begin begin
inherited; inherited;
if not Modified then bPrevisualizar := True;
FController.Preview(FPresupuesto);
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 bPrevisualizar and Assigned(FPresupuesto) then
if not Modified then
FController.Preview(FPresupuesto, False, AVerSello);
end; end;
function TfEditorPresupuestoCliente.PuedoEnviar: Boolean; function TfEditorPresupuestoCliente.PuedoEnviar: Boolean;

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

@ -2,7 +2,6 @@ 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

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

@ -99,7 +99,7 @@ implementation
uses uses
uDataModulePresupuestosCliente, uDataModuleUsuarios, uFactuGES_App, uDataModulePresupuestosCliente, uDataModuleUsuarios, uFactuGES_App,
uEditorBase, uEditorDBBase, uDialogUtils, Dialogs, uEditorBase, uEditorDBBase, uDialogUtils, Dialogs,
uDBSelectionListUtils, uGridStatusUtils, uDBSelectionListUtils, uGridStatusUtils, uDialogOpcionesImpresionPresupuestosCliente,
uGenerarFacturasCliPreCliUtils, uEditorFechaDecision, uGenerarFacturasCliPreCliUtils, uEditorFechaDecision,
// uBizAlbaranesCliente, uAlbaranesClienteController, // uBizAlbaranesCliente, uAlbaranesClienteController,
// uFacturasClienteController, uBizFacturasCliente, // uFacturasClienteController, uBizFacturasCliente,
@ -490,9 +490,12 @@ var
Respuesta : Integer; Respuesta : Integer;
APresupuestos: IBizPresupuestoCliente; APresupuestos: IBizPresupuestoCliente;
AllItems: Boolean; AllItems: Boolean;
AVerSello: Integer;
bPrevisualizar: Boolean;
begin begin
APresupuestos := Nil; APresupuestos := Nil;
AllItems := False; AllItems := False;
bPrevisualizar := True;
if MultiSelect and Assigned(ViewGrid) then if MultiSelect and Assigned(ViewGrid) then
AllItems := (ViewGrid.NumSeleccionados > 1); AllItems := (ViewGrid.NumSeleccionados > 1);
@ -518,8 +521,13 @@ begin
else else
APresupuestos := Presupuestos; APresupuestos := Presupuestos;
if Assigned(APresupuestos) then if (AppFactuGES.EmpresaActiva.ID = 1) then
FController.Print(APresupuestos, AllItems); //Preguntamos si desea que en los presupuestos se vea el Sello de Paco u Oscar,
//solo para empresa Tecsitel
bPrevisualizar := ElegirOpcionesImpresionPresupuestoCliente(AVerSello);
if bPrevisualizar and Assigned(APresupuestos) then
FController.Print(APresupuestos, AllItems, AVerSello);
end; end;
end; end;
end; end;
@ -559,9 +567,12 @@ var
Respuesta : Integer; Respuesta : Integer;
APresupuestos: IBizPresupuestoCliente; APresupuestos: IBizPresupuestoCliente;
AllItems: Boolean; AllItems: Boolean;
AVerSello: Integer;
bPrevisualizar: Boolean;
begin begin
APresupuestos := Nil; APresupuestos := Nil;
AllItems := False; AllItems := False;
bPrevisualizar := True;
if MultiSelect and Assigned(ViewGrid) then if MultiSelect and Assigned(ViewGrid) then
AllItems := (ViewGrid.NumSeleccionados > 1); AllItems := (ViewGrid.NumSeleccionados > 1);
@ -587,8 +598,13 @@ begin
else else
APresupuestos := Presupuestos; APresupuestos := Presupuestos;
if Assigned(APresupuestos) then if (AppFactuGES.EmpresaActiva.ID = 1) then
FController.Preview(APresupuestos, AllItems); //Preguntamos si desea que en los presupuestos se vea el Sello de Paco u Oscar,
//solo para empresa Tecsitel
bPrevisualizar := ElegirOpcionesImpresionPresupuestoCliente(AVerSello);
if bPrevisualizar and Assigned(APresupuestos) then
FController.Preview(APresupuestos, AllItems, AVerSello);
end; end;
end; end;
end; end;

2
Source/Modulos/Presupuestos de cliente/Views/uEditorPresupuestosClienteReport.dfm
View File

@ -1,7 +1,5 @@
inherited fEditorPresupuestosClientePreview: TfEditorPresupuestosClientePreview inherited fEditorPresupuestosClientePreview: TfEditorPresupuestosClientePreview
Caption = 'Previsualizar el pedidos proveedor' Caption = 'Previsualizar el pedidos proveedor'
ExplicitWidth = 320
ExplicitHeight = 240
PixelsPerInch = 96 PixelsPerInch = 96
TextHeight = 13 TextHeight = 13
inherited JvNavPanelHeader: TJvNavPanelHeader inherited JvNavPanelHeader: TJvNavPanelHeader

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

@ -24,20 +24,31 @@ implementation
{$R *.dfm} {$R *.dfm}
uses uses
uPresupuestosClienteReportController, uIntegerListUtils, uDialogUtils; uPresupuestosClienteReportController, uIntegerListUtils, uDialogUtils,
uFactuGES_App, uDialogOpcionesImpresionPresupuestosCliente;
procedure TfEditorPresupuestosClientePreview.actExportarRTFExecute( procedure TfEditorPresupuestosClientePreview.actExportarRTFExecute(Sender: TObject);
Sender: TObject);
var var
I: Integer; I: Integer;
AVerSello: Integer;
bPrevisualizar: Boolean;
begin begin
bPrevisualizar := True;
// inherited; <- No llamar al padre // inherited; <- No llamar al padre
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');
for I := 0 to ListaID.Count - 1 do if (AppFactuGES.EmpresaActiva.ID = 1) then
if (Controller as IPresupuestosClienteReportController).ExportToWord(ListaID[I]) then //Preguntamos si desea que en los presupuestos se vea el Sello de Paco u Oscar,
ShowInfoMessage('El presupuesto se ha exportado correctamente.'); //solo para empresa Tecsitel
bPrevisualizar := ElegirOpcionesImpresionPresupuestoCliente(AVerSello);
if bPrevisualizar then
for I := 0 to ListaID.Count - 1 do
if (Controller as IPresupuestosClienteReportController).ExportToWord(ListaID[I], '', AVerSello) then
ShowInfoMessage('El presupuesto se ha exportado correctamente.');
end; end;
end. end.

6
Source/Servicios/FactuGES.RODL
View File

@ -302,6 +302,8 @@
</Parameter> </Parameter>
<Parameter Name="ListaID" DataType="TIntegerArray" Flag="In" > <Parameter Name="ListaID" DataType="TIntegerArray" Flag="In" >
</Parameter> </Parameter>
<Parameter Name="VerSello" DataType="Integer" Flag="In" >
</Parameter>
</Parameters> </Parameters>
</Operation> </Operation>
<Operation Name="GenerarInformeEnWord" UID="{7C3C767B-41AC-42EC-925D-ECAE03BD8F58}"> <Operation Name="GenerarInformeEnWord" UID="{7C3C767B-41AC-42EC-925D-ECAE03BD8F58}">
@ -310,6 +312,8 @@
</Parameter> </Parameter>
<Parameter Name="ID" DataType="Integer" Flag="In" > <Parameter Name="ID" DataType="Integer" Flag="In" >
</Parameter> </Parameter>
<Parameter Name="VerSello" DataType="Integer" Flag="In" >
</Parameter>
</Parameters> </Parameters>
</Operation> </Operation>
<Operation Name="GenerarCertificadoTrabajosEnWord" UID="{F96E1E6B-131C-4F1F-BF2A-3E7B0B6ABF09}"> <Operation Name="GenerarCertificadoTrabajosEnWord" UID="{F96E1E6B-131C-4F1F-BF2A-3E7B0B6ABF09}">
@ -326,6 +330,8 @@
</Parameter> </Parameter>
<Parameter Name="ListaID" DataType="TIntegerArray" Flag="In" > <Parameter Name="ListaID" DataType="TIntegerArray" Flag="In" >
</Parameter> </Parameter>
<Parameter Name="VerSello" DataType="Integer" Flag="In" >
</Parameter>
</Parameters> </Parameters>
</Operation> </Operation>
</Operations> </Operations>

21
Source/Servicios/FactuGES_Intf.pas
View File

@ -542,10 +542,10 @@ type
{ IsrvPresupuestosCliente } { IsrvPresupuestosCliente }
IsrvPresupuestosCliente = interface(IDataAbstractService) IsrvPresupuestosCliente = interface(IDataAbstractService)
['{8A06D5A7-8461-4F6E-8A8B-EC49C84C45D1}'] ['{8A06D5A7-8461-4F6E-8A8B-EC49C84C45D1}']
function GenerarInforme(const ListaID: TIntegerArray): Binary; function GenerarInforme(const ListaID: TIntegerArray; const VerSello: Integer): Binary;
function GenerarInformeEnWord(const ID: Integer): Binary; function GenerarInformeEnWord(const ID: Integer; const VerSello: Integer): Binary;
function GenerarCertificadoTrabajosEnWord(const ID: Integer): Binary; function GenerarCertificadoTrabajosEnWord(const ID: Integer): Binary;
function GenerarInformeEnPDF(const ListaID: TIntegerArray): Binary; function GenerarInformeEnPDF(const ListaID: TIntegerArray; const VerSello: Integer): Binary;
end; end;
{ CosrvPresupuestosCliente } { CosrvPresupuestosCliente }
@ -558,10 +558,10 @@ type
protected protected
function __GetInterfaceName:string; override; function __GetInterfaceName:string; override;
function GenerarInforme(const ListaID: TIntegerArray): Binary; function GenerarInforme(const ListaID: TIntegerArray; const VerSello: Integer): Binary;
function GenerarInformeEnWord(const ID: Integer): Binary; function GenerarInformeEnWord(const ID: Integer; const VerSello: Integer): Binary;
function GenerarCertificadoTrabajosEnWord(const ID: Integer): Binary; function GenerarCertificadoTrabajosEnWord(const ID: Integer): Binary;
function GenerarInformeEnPDF(const ListaID: TIntegerArray): Binary; function GenerarInformeEnPDF(const ListaID: TIntegerArray; const VerSello: Integer): Binary;
end; end;
{ IsrvPedidosProveedor } { IsrvPedidosProveedor }
@ -1757,12 +1757,13 @@ begin
result := 'srvPresupuestosCliente'; result := 'srvPresupuestosCliente';
end; end;
function TsrvPresupuestosCliente_Proxy.GenerarInforme(const ListaID: TIntegerArray): Binary; function TsrvPresupuestosCliente_Proxy.GenerarInforme(const ListaID: TIntegerArray; const VerSello: Integer): Binary;
begin begin
try try
result := nil; result := nil;
__Message.InitializeRequestMessage(__TransportChannel, 'FactuGES', __InterfaceName, 'GenerarInforme'); __Message.InitializeRequestMessage(__TransportChannel, 'FactuGES', __InterfaceName, 'GenerarInforme');
__Message.Write('ListaID', TypeInfo(FactuGES_Intf.TIntegerArray), ListaID, []); __Message.Write('ListaID', TypeInfo(FactuGES_Intf.TIntegerArray), ListaID, []);
__Message.Write('VerSello', TypeInfo(Integer), VerSello, []);
__Message.Finalize; __Message.Finalize;
__TransportChannel.Dispatch(__Message); __TransportChannel.Dispatch(__Message);
@ -1774,12 +1775,13 @@ begin
end end
end; end;
function TsrvPresupuestosCliente_Proxy.GenerarInformeEnWord(const ID: Integer): Binary; function TsrvPresupuestosCliente_Proxy.GenerarInformeEnWord(const ID: Integer; const VerSello: Integer): Binary;
begin begin
try try
result := nil; result := nil;
__Message.InitializeRequestMessage(__TransportChannel, 'FactuGES', __InterfaceName, 'GenerarInformeEnWord'); __Message.InitializeRequestMessage(__TransportChannel, 'FactuGES', __InterfaceName, 'GenerarInformeEnWord');
__Message.Write('ID', TypeInfo(Integer), ID, []); __Message.Write('ID', TypeInfo(Integer), ID, []);
__Message.Write('VerSello', TypeInfo(Integer), VerSello, []);
__Message.Finalize; __Message.Finalize;
__TransportChannel.Dispatch(__Message); __TransportChannel.Dispatch(__Message);
@ -1808,12 +1810,13 @@ begin
end end
end; end;
function TsrvPresupuestosCliente_Proxy.GenerarInformeEnPDF(const ListaID: TIntegerArray): Binary; function TsrvPresupuestosCliente_Proxy.GenerarInformeEnPDF(const ListaID: TIntegerArray; const VerSello: Integer): Binary;
begin begin
try try
result := nil; result := nil;
__Message.InitializeRequestMessage(__TransportChannel, 'FactuGES', __InterfaceName, 'GenerarInformeEnPDF'); __Message.InitializeRequestMessage(__TransportChannel, 'FactuGES', __InterfaceName, 'GenerarInformeEnPDF');
__Message.Write('ListaID', TypeInfo(FactuGES_Intf.TIntegerArray), ListaID, []); __Message.Write('ListaID', TypeInfo(FactuGES_Intf.TIntegerArray), ListaID, []);
__Message.Write('VerSello', TypeInfo(Integer), VerSello, []);
__Message.Finalize; __Message.Finalize;
__TransportChannel.Dispatch(__Message); __TransportChannel.Dispatch(__Message);

18
Source/Servicios/FactuGES_Invk.pas
View File

@ -903,9 +903,10 @@ begin
end; end;
procedure TsrvPresupuestosCliente_Invoker.Invoke_GenerarInforme(const __Instance:IInterface; const __Message:IROMessage; const __Transport:IROTransport; out __oResponseOptions:TROResponseOptions); procedure TsrvPresupuestosCliente_Invoker.Invoke_GenerarInforme(const __Instance:IInterface; const __Message:IROMessage; const __Transport:IROTransport; out __oResponseOptions:TROResponseOptions);
{ function GenerarInforme(const ListaID: TIntegerArray): Binary; } { function GenerarInforme(const ListaID: TIntegerArray; const VerSello: Integer): Binary; }
var var
ListaID: FactuGES_Intf.TIntegerArray; ListaID: FactuGES_Intf.TIntegerArray;
VerSello: Integer;
lResult: Binary; lResult: Binary;
__lObjectDisposer: TROObjectDisposer; __lObjectDisposer: TROObjectDisposer;
begin begin
@ -913,8 +914,9 @@ begin
lResult := nil; lResult := nil;
try try
__Message.Read('ListaID', TypeInfo(FactuGES_Intf.TIntegerArray), ListaID, []); __Message.Read('ListaID', TypeInfo(FactuGES_Intf.TIntegerArray), ListaID, []);
__Message.Read('VerSello', TypeInfo(Integer), VerSello, []);
lResult := (__Instance as IsrvPresupuestosCliente).GenerarInforme(ListaID); lResult := (__Instance as IsrvPresupuestosCliente).GenerarInforme(ListaID, VerSello);
__Message.InitializeResponseMessage(__Transport, 'FactuGES', 'srvPresupuestosCliente', 'GenerarInformeResponse'); __Message.InitializeResponseMessage(__Transport, 'FactuGES', 'srvPresupuestosCliente', 'GenerarInformeResponse');
__Message.Write('Result', TypeInfo(Binary), lResult, []); __Message.Write('Result', TypeInfo(Binary), lResult, []);
@ -933,17 +935,19 @@ begin
end; end;
procedure TsrvPresupuestosCliente_Invoker.Invoke_GenerarInformeEnWord(const __Instance:IInterface; const __Message:IROMessage; const __Transport:IROTransport; out __oResponseOptions:TROResponseOptions); procedure TsrvPresupuestosCliente_Invoker.Invoke_GenerarInformeEnWord(const __Instance:IInterface; const __Message:IROMessage; const __Transport:IROTransport; out __oResponseOptions:TROResponseOptions);
{ function GenerarInformeEnWord(const ID: Integer): Binary; } { function GenerarInformeEnWord(const ID: Integer; const VerSello: Integer): Binary; }
var var
ID: Integer; ID: Integer;
VerSello: Integer;
lResult: Binary; lResult: Binary;
__lObjectDisposer: TROObjectDisposer; __lObjectDisposer: TROObjectDisposer;
begin begin
lResult := nil; lResult := nil;
try try
__Message.Read('ID', TypeInfo(Integer), ID, []); __Message.Read('ID', TypeInfo(Integer), ID, []);
__Message.Read('VerSello', TypeInfo(Integer), VerSello, []);
lResult := (__Instance as IsrvPresupuestosCliente).GenerarInformeEnWord(ID); lResult := (__Instance as IsrvPresupuestosCliente).GenerarInformeEnWord(ID, VerSello);
__Message.InitializeResponseMessage(__Transport, 'FactuGES', 'srvPresupuestosCliente', 'GenerarInformeEnWordResponse'); __Message.InitializeResponseMessage(__Transport, 'FactuGES', 'srvPresupuestosCliente', 'GenerarInformeEnWordResponse');
__Message.Write('Result', TypeInfo(Binary), lResult, []); __Message.Write('Result', TypeInfo(Binary), lResult, []);
@ -989,9 +993,10 @@ begin
end; end;
procedure TsrvPresupuestosCliente_Invoker.Invoke_GenerarInformeEnPDF(const __Instance:IInterface; const __Message:IROMessage; const __Transport:IROTransport; out __oResponseOptions:TROResponseOptions); procedure TsrvPresupuestosCliente_Invoker.Invoke_GenerarInformeEnPDF(const __Instance:IInterface; const __Message:IROMessage; const __Transport:IROTransport; out __oResponseOptions:TROResponseOptions);
{ function GenerarInformeEnPDF(const ListaID: TIntegerArray): Binary; } { function GenerarInformeEnPDF(const ListaID: TIntegerArray; const VerSello: Integer): Binary; }
var var
ListaID: FactuGES_Intf.TIntegerArray; ListaID: FactuGES_Intf.TIntegerArray;
VerSello: Integer;
lResult: Binary; lResult: Binary;
__lObjectDisposer: TROObjectDisposer; __lObjectDisposer: TROObjectDisposer;
begin begin
@ -999,8 +1004,9 @@ begin
lResult := nil; lResult := nil;
try try
__Message.Read('ListaID', TypeInfo(FactuGES_Intf.TIntegerArray), ListaID, []); __Message.Read('ListaID', TypeInfo(FactuGES_Intf.TIntegerArray), ListaID, []);
__Message.Read('VerSello', TypeInfo(Integer), VerSello, []);
lResult := (__Instance as IsrvPresupuestosCliente).GenerarInformeEnPDF(ListaID); lResult := (__Instance as IsrvPresupuestosCliente).GenerarInformeEnPDF(ListaID, VerSello);
__Message.InitializeResponseMessage(__Transport, 'FactuGES', 'srvPresupuestosCliente', 'GenerarInformeEnPDFResponse'); __Message.InitializeResponseMessage(__Transport, 'FactuGES', 'srvPresupuestosCliente', 'GenerarInformeEnPDFResponse');
__Message.Write('Result', TypeInfo(Binary), lResult, []); __Message.Write('Result', TypeInfo(Binary), lResult, []);

BIN
Source/Servicios/RODLFILE.res
View File

Binary file not shown.

BIN
Source/Servidor/FactuGES_Server.RES
View File

Binary file not shown.

6
Source/Servidor/FactuGES_Server.dproj
View File

@ -35,7 +35,11 @@
<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">8</VersionInfo><VersionInfo Name="Release">2</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.8.2.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.8.2.0</VersionInfoKeys><VersionInfoKeys Name="Comments"></VersionInfoKeys><VersionInfoKeys Name="CompileDate">jueves, 24 de junio de 2010 13:44</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">8</VersionInfo><VersionInfo Name="Release">3</VersionInfo><VersionInfo Name="Build">0</VersionInfo><VersionInfo Name="Debug">False</VersionInfo><VersionInfo Name="PreRelease">False</VersionInfo><VersionInfo Name="Special">False</VersionInfo><VersionInfo Name="Private">False</VersionInfo><VersionInfo Name="DLL">False</VersionInfo><VersionInfo Name="Locale">3082</VersionInfo><VersionInfo Name="CodePage">1252</VersionInfo></VersionInfo><VersionInfoKeys><VersionInfoKeys Name="CompanyName"></VersionInfoKeys><VersionInfoKeys Name="FileDescription"></VersionInfoKeys><VersionInfoKeys Name="FileVersion">1.8.3.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.8.3.0</VersionInfoKeys><VersionInfoKeys Name="Comments"></VersionInfoKeys><VersionInfoKeys Name="CompileDate">jueves, 24 de junio de 2010 13: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>