Ventana de seleccion visulaizar precios detalles y totales en contratos cliente
git-svn-id: https://192.168.0.254/svn/Proyectos.AbetoDesign_FactuGES/trunk@74 93f398dd-4eb6-7a46-baf6-13f46f578da2
This commit is contained in:
parent
312fc06023
commit
c24261bc13
BIN
Build/Build.fbl6
BIN
Build/Build.fbl6
Binary file not shown.
@ -51,7 +51,7 @@
|
||||
<Borland.Personality>Delphi.Personality</Borland.Personality>
|
||||
<Borland.ProjectType>VCLApplication</Borland.ProjectType>
|
||||
<BorlandProject>
|
||||
<BorlandProject><Delphi.Personality><Parameters><Parameters Name="UseLauncher">False</Parameters><Parameters Name="LoadAllSymbols">True</Parameters><Parameters Name="LoadUnspecifiedSymbols">False</Parameters></Parameters><Language><Language Name="RootDir">C:\Archivos de programa\Borland\Delphi7\Bin\</Language></Language><VersionInfo><VersionInfo Name="IncludeVerInfo">True</VersionInfo><VersionInfo Name="AutoIncBuild">False</VersionInfo><VersionInfo Name="MajorVer">2</VersionInfo><VersionInfo Name="MinorVer">5</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.5.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.5.9.0</VersionInfoKeys><VersionInfoKeys Name="Comments"></VersionInfoKeys></VersionInfoKeys><Excluded_Packages>
|
||||
<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">6</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.6.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.6.0.0</VersionInfoKeys><VersionInfoKeys Name="Comments"></VersionInfoKeys></VersionInfoKeys><Excluded_Packages>
|
||||
|
||||
<Excluded_Packages Name="C:\Documents and Settings\All Users\Documentos\RAD Studio\5.0\Bpl\dxPScxScheduler2LnkD11.bpl">File C:\Documents and Settings\All Users\Documentos\RAD Studio\5.0\Bpl\dxPScxScheduler2LnkD11.bpl not found</Excluded_Packages>
|
||||
</Excluded_Packages><Source><Source Name="MainSource">FactuGES.dpr</Source></Source></Delphi.Personality><ModelSupport>False</ModelSupport></BorlandProject></BorlandProject>
|
||||
|
||||
Binary file not shown.
Binary file not shown.
File diff suppressed because one or more lines are too long
File diff suppressed because one or more lines are too long
File diff suppressed because one or more lines are too long
File diff suppressed because one or more lines are too long
File diff suppressed because one or more lines are too long
File diff suppressed because one or more lines are too long
File diff suppressed because one or more lines are too long
File diff suppressed because one or more lines are too long
@ -54,8 +54,12 @@ type
|
||||
function EsModificable(AContrato : IBizContratoCliente): Boolean;
|
||||
function EsEliminable(AContrato : IBizContratoCliente): Boolean;
|
||||
|
||||
procedure Preview(AContrato : IBizContratoCliente; AllItems: Boolean = false; VerLogotipo: Boolean = true);
|
||||
procedure Print(AContrato : IBizContratoCliente; AllItems: Boolean = false; VerLogotipo: Boolean = true);
|
||||
procedure Preview(AContrato : IBizContratoCliente; AllItems: Boolean = false; VerLogotipo: Boolean = true;
|
||||
const VerImprimirPrecios: Boolean = False; const VerImprimirTotales: Boolean = False; const VerImprimirRefProveedor: Boolean = False;
|
||||
const VerImprimirObservaciones: Boolean = False; const VerImprimirIncidencias: Boolean = False);
|
||||
procedure Print(AContrato : IBizContratoCliente; AllItems: Boolean = false; VerLogotipo: Boolean = true;
|
||||
const VerImprimirPrecios: Boolean = False; const VerImprimirTotales: Boolean = False; const VerImprimirRefProveedor: Boolean = False;
|
||||
const VerImprimirObservaciones: Boolean = False; const VerImprimirIncidencias: Boolean = False);
|
||||
procedure EnviarContratoPorEMail(AContrato : IBizContratoCliente);
|
||||
function CambiarSituacion(AContrato : IBizContratoCliente; Situacion: String; FechaDecision: TDateTime; AllItems: Boolean = false): Boolean;
|
||||
|
||||
@ -126,8 +130,12 @@ type
|
||||
function EsModificable(AContrato : IBizContratoCliente): Boolean;
|
||||
function EsEliminable(AContrato : IBizContratoCliente): Boolean;
|
||||
|
||||
procedure Preview(AContrato : IBizContratoCliente; AllItems: Boolean = false; VerLogotipo: Boolean = true);
|
||||
procedure Print(AContrato : IBizContratoCliente; AllItems: Boolean = false; VerLogotipo: Boolean = true);
|
||||
procedure Preview(AContrato : IBizContratoCliente; AllItems: Boolean = false; VerLogotipo: Boolean = true;
|
||||
const VerImprimirPrecios: Boolean = False; const VerImprimirTotales: Boolean = False; const VerImprimirRefProveedor: Boolean = False;
|
||||
const VerImprimirObservaciones: Boolean = False; const VerImprimirIncidencias: Boolean = False);
|
||||
procedure Print(AContrato : IBizContratoCliente; AllItems: Boolean = false; VerLogotipo: Boolean = true;
|
||||
const VerImprimirPrecios: Boolean = False; const VerImprimirTotales: Boolean = False; const VerImprimirRefProveedor: Boolean = False;
|
||||
const VerImprimirObservaciones: Boolean = False; const VerImprimirIncidencias: Boolean = False);
|
||||
procedure EnviarContratoPorEMail(AContrato : IBizContratoCliente);
|
||||
function CambiarSituacion(AContrato : IBizContratoCliente; Situacion: String; FechaDecision: TDateTime; AllItems: Boolean = false): Boolean;
|
||||
|
||||
@ -979,7 +987,9 @@ begin
|
||||
Result := AContrato;
|
||||
end;
|
||||
|
||||
procedure TContratosClienteController.Preview(AContrato: IBizContratoCliente; AllItems: Boolean = false; VerLogotipo: Boolean = true);
|
||||
procedure TContratosClienteController.Preview(AContrato: IBizContratoCliente; AllItems: Boolean = false; VerLogotipo: Boolean = true;
|
||||
const VerImprimirPrecios: Boolean = False; const VerImprimirTotales: Boolean = False; const VerImprimirRefProveedor: Boolean = False;
|
||||
const VerImprimirObservaciones: Boolean = False; const VerImprimirIncidencias: Boolean = False);
|
||||
var
|
||||
AReportController : IContratosClienteReportController;
|
||||
ID_Contratos: TIntegerList;
|
||||
@ -1005,14 +1015,16 @@ begin
|
||||
else
|
||||
ID_Contratos.Add(AContrato.ID);
|
||||
|
||||
AReportController.Preview(ID_Contratos, VerLogotipo);
|
||||
AReportController.Preview(ID_Contratos, VerLogotipo, VerImprimirPrecios, VerImprimirTotales);
|
||||
finally
|
||||
AReportController := NIL;
|
||||
FreeAndNil(ID_Contratos);
|
||||
end;
|
||||
end;
|
||||
|
||||
procedure TContratosClienteController.Print(AContrato: IBizContratoCliente; AllItems: Boolean = false; VerLogotipo: Boolean = true);
|
||||
procedure TContratosClienteController.Print(AContrato: IBizContratoCliente; AllItems: Boolean = false; VerLogotipo: Boolean = true;
|
||||
const VerImprimirPrecios: Boolean = False; const VerImprimirTotales: Boolean = False; const VerImprimirRefProveedor: Boolean = False;
|
||||
const VerImprimirObservaciones: Boolean = False; const VerImprimirIncidencias: Boolean = False);
|
||||
var
|
||||
AReportController : IContratosClienteReportController;
|
||||
ID_Contratos: TIntegerList;
|
||||
@ -1037,7 +1049,7 @@ begin
|
||||
else
|
||||
ID_Contratos.Add(AContrato.ID);
|
||||
|
||||
AReportController.Print(ID_Contratos, VerLogotipo);
|
||||
AReportController.Print(ID_Contratos, VerLogotipo, VerImprimirPrecios, VerImprimirTotales);
|
||||
|
||||
finally
|
||||
AReportController := NIL;
|
||||
|
||||
@ -10,8 +10,12 @@ uses
|
||||
type
|
||||
IContratosClienteReportController = interface(IControllerBase)
|
||||
['{FEF47B69-26A3-462A-AF6D-4B2073D4F9DC}']
|
||||
procedure Preview(const AListaID : TIntegerList; const VerLogotipo: Boolean);
|
||||
procedure Print(const AListaID : TIntegerList; const VerLogotipo: Boolean);
|
||||
procedure Preview(const AListaID : TIntegerList; const VerLogotipo: Boolean;
|
||||
const VerImprimirPrecios: Boolean = False; const VerImprimirTotales: Boolean = False; const VerImprimirRefProveedor: Boolean = False;
|
||||
const VerImprimirObservaciones: Boolean = False; const VerImprimirIncidencias: Boolean = False);
|
||||
procedure Print(const AListaID : TIntegerList; const VerLogotipo: Boolean;
|
||||
const VerImprimirPrecios: Boolean = False; const VerImprimirTotales: Boolean = False; const VerImprimirRefProveedor: Boolean = False;
|
||||
const VerImprimirObservaciones: Boolean = False; const VerImprimirIncidencias: Boolean = False);
|
||||
function ExportToPDF(const AID: Integer; const AFileName : String = ''): Boolean;
|
||||
end;
|
||||
|
||||
@ -23,8 +27,12 @@ type
|
||||
constructor Create; override;
|
||||
destructor Destroy; override;
|
||||
|
||||
procedure Preview(const AListaID : TIntegerList; const VerLogotipo: Boolean);
|
||||
procedure Print(const AListaID : TIntegerList; const VerLogotipo: Boolean);
|
||||
procedure Preview(const AListaID : TIntegerList; const VerLogotipo: Boolean;
|
||||
const VerImprimirPrecios: Boolean = False; const VerImprimirTotales: Boolean = False; const VerImprimirRefProveedor: Boolean = False;
|
||||
const VerImprimirObservaciones: Boolean = False; const VerImprimirIncidencias: Boolean = False);
|
||||
procedure Print(const AListaID : TIntegerList; const VerLogotipo: Boolean;
|
||||
const VerImprimirPrecios: Boolean = False; const VerImprimirTotales: Boolean = False; const VerImprimirRefProveedor: Boolean = False;
|
||||
const VerImprimirObservaciones: Boolean = False; const VerImprimirIncidencias: Boolean = False);
|
||||
function ExportToPDF(const AID: Integer; const AFileName : String = ''): Boolean;
|
||||
end;
|
||||
|
||||
@ -83,7 +91,9 @@ begin
|
||||
}
|
||||
end;
|
||||
|
||||
procedure TContratosClienteReportController.Preview(const AListaID : TIntegerList; const VerLogotipo: Boolean);
|
||||
procedure TContratosClienteReportController.Preview(const AListaID : TIntegerList; const VerLogotipo: Boolean;
|
||||
const VerImprimirPrecios: Boolean = False; const VerImprimirTotales: Boolean = False; const VerImprimirRefProveedor: Boolean = False;
|
||||
const VerImprimirObservaciones: Boolean = False; const VerImprimirIncidencias: Boolean = False);
|
||||
var
|
||||
AStream: Binary;
|
||||
AEditor : IEditorContratosClientePreview;
|
||||
@ -92,7 +102,7 @@ begin
|
||||
|
||||
ShowHourglassCursor;
|
||||
try
|
||||
AStream := FDataModule.GetRptContratos(AListaID, VerLogotipo);
|
||||
AStream := FDataModule.GetRptContratos(AListaID, VerLogotipo, VerImprimirPrecios, VerImprimirTotales);
|
||||
try
|
||||
CreateEditor('EditorContratosClientePreview', IEditorContratosClientePreview, AEditor);
|
||||
if Assigned(AEditor) then
|
||||
@ -116,7 +126,9 @@ begin
|
||||
end;
|
||||
end;
|
||||
|
||||
procedure TContratosClienteReportController.Print(const AListaID : TIntegerList; const VerLogotipo: Boolean);
|
||||
procedure TContratosClienteReportController.Print(const AListaID : TIntegerList; const VerLogotipo: Boolean;
|
||||
const VerImprimirPrecios: Boolean = False; const VerImprimirTotales: Boolean = False; const VerImprimirRefProveedor: Boolean = False;
|
||||
const VerImprimirObservaciones: Boolean = False; const VerImprimirIncidencias: Boolean = False);
|
||||
var
|
||||
AStream: Binary;
|
||||
AEditor : IEditorContratosClientePreview;
|
||||
@ -125,7 +137,7 @@ begin
|
||||
|
||||
ShowHourglassCursor;
|
||||
try
|
||||
AStream := FDataModule.GetRptContratos(AListaID, VerLogotipo);
|
||||
AStream := FDataModule.GetRptContratos(AListaID, VerLogotipo, VerImprimirPrecios, VerImprimirTotales);
|
||||
try
|
||||
CreateEditor('EditorContratosClientePreview', IEditorContratosClientePreview, AEditor);
|
||||
if Assigned(AEditor) then
|
||||
|
||||
@ -45,8 +45,12 @@ type
|
||||
function NewItem : IBizContratoCliente;
|
||||
|
||||
// Report
|
||||
function GetRptContratos(const AListaID: TIntegerList; const VerLogotipo: Boolean): Binary;
|
||||
function GetRptPDFContrato(const AID: Integer; const VerLogotipo: Boolean): Binary;
|
||||
function GetRptContratos(const AListaID: TIntegerList; const VerLogotipo: Boolean;
|
||||
const VerImprimirPrecios: Boolean = False; const VerImprimirTotales: Boolean = False; const VerImprimirRefProveedor: Boolean = False;
|
||||
const VerImprimirObservaciones: Boolean = False; const VerImprimirIncidencias: Boolean = False): Binary;
|
||||
function GetRptPDFContrato(const AID: Integer; const VerLogotipo: Boolean;
|
||||
const VerImprimirPrecios: Boolean = False; const VerImprimirTotales: Boolean = False; const VerImprimirRefProveedor: Boolean = False;
|
||||
const VerImprimirObservaciones: Boolean = False; const VerImprimirIncidencias: Boolean = False): Binary;
|
||||
|
||||
function GetAnosItems : TStringList;
|
||||
function GetContratosClienteBeneficios : IBizContratosClienteBeneficios;
|
||||
@ -73,26 +77,30 @@ begin
|
||||
RORemoteService.Message := dmConexion.Message;
|
||||
end;
|
||||
|
||||
function TDataModuleContratosCliente.GetRptPDFContrato(const AID: Integer; const VerLogotipo: Boolean): Binary;
|
||||
function TDataModuleContratosCliente.GetRptPDFContrato(const AID: Integer; const VerLogotipo: Boolean;
|
||||
const VerImprimirPrecios: Boolean = False; const VerImprimirTotales: Boolean = False; const VerImprimirRefProveedor: Boolean = False;
|
||||
const VerImprimirObservaciones: Boolean = False; const VerImprimirIncidencias: Boolean = False): Binary;
|
||||
var
|
||||
AParam : TIntegerArray;
|
||||
begin
|
||||
AParam := TIntegerArray.Create;
|
||||
try
|
||||
AParam.Add(AID);
|
||||
Result := (RORemoteService as IsrvContratosCliente).GenerarInformeEnPDF(AParam, AppFactuGES.EmpresaActiva.RAZON_SOCIAL, VerLogotipo)
|
||||
Result := (RORemoteService as IsrvContratosCliente).GenerarInformeEnPDF(AParam, AppFactuGES.EmpresaActiva.RAZON_SOCIAL, VerLogotipo, VerImprimirPrecios, VerImprimirTotales)
|
||||
finally
|
||||
FreeANDNIL(AParam)
|
||||
end;
|
||||
end;
|
||||
|
||||
function TDataModuleContratosCliente.GetRptContratos(const AListaID: TIntegerList; const VerLogotipo: Boolean): Binary;
|
||||
function TDataModuleContratosCliente.GetRptContratos(const AListaID: TIntegerList; const VerLogotipo: Boolean;
|
||||
const VerImprimirPrecios: Boolean = False; const VerImprimirTotales: Boolean = False; const VerImprimirRefProveedor: Boolean = False;
|
||||
const VerImprimirObservaciones: Boolean = False; const VerImprimirIncidencias: Boolean = False): Binary;
|
||||
var
|
||||
AParam : TIntegerArray;
|
||||
begin
|
||||
AParam := AListaID.ToIntegerArray;
|
||||
try
|
||||
Result := (RORemoteService as IsrvContratosCliente).GenerarInforme(AParam, AppFactuGES.EmpresaActiva.RAZON_SOCIAL, VerLogotipo)
|
||||
Result := (RORemoteService as IsrvContratosCliente).GenerarInforme(AParam, AppFactuGES.EmpresaActiva.RAZON_SOCIAL, VerLogotipo, VerImprimirPrecios, VerImprimirTotales)
|
||||
finally
|
||||
FreeANDNIL(AParam)
|
||||
end;
|
||||
|
||||
@ -8,8 +8,12 @@ uses
|
||||
type
|
||||
IDataModuleContratosClienteReport = interface
|
||||
['{6AB7469B-842A-413E-AF33-9506477A9666}']
|
||||
function GetRptContratos(const AListaID: TIntegerList; const VerLogotipo: Boolean): Binary;
|
||||
function GetRptPDFContrato(const AID: Integer; const VerLogotipo: Boolean): Binary;
|
||||
function GetRptContratos(const AListaID: TIntegerList; const VerLogotipo: Boolean;
|
||||
const VerImprimirPrecios: Boolean = False; const VerImprimirTotales: Boolean = False; const VerImprimirRefProveedor: Boolean = False;
|
||||
const VerImprimirObservaciones: Boolean = False; const VerImprimirIncidencias: Boolean = False): Binary;
|
||||
function GetRptPDFContrato(const AID: Integer; const VerLogotipo: Boolean;
|
||||
const VerImprimirPrecios: Boolean = False; const VerImprimirTotales: Boolean = False; const VerImprimirRefProveedor: Boolean = False;
|
||||
const VerImprimirObservaciones: Boolean = False; const VerImprimirIncidencias: Boolean = False): Binary;
|
||||
end;
|
||||
|
||||
implementation
|
||||
|
||||
@ -84,6 +84,8 @@ type
|
||||
FDesglosado : Boolean;
|
||||
FVerLogotipo : Boolean;
|
||||
FNombreEmpresa: String;
|
||||
FVerPrecios: Boolean;
|
||||
FVerTotales: Boolean;
|
||||
|
||||
procedure _GenerarContrato(const AID : Integer);
|
||||
|
||||
@ -94,8 +96,10 @@ type
|
||||
procedure IniciarParametrosInforme;
|
||||
procedure RecuperarNombresClientes;
|
||||
public
|
||||
function GenerarContrato(const ListaID : TIntegerArray; const NombreEmpresa: AnsiString; const VerLogotipo: Boolean = True): Binary;
|
||||
function GenerarContratoEnPDF(const ListaID : TIntegerArray; const NombreEmpresa: AnsiString; const VerLogotipo: Boolean = True): Binary;
|
||||
function GenerarContrato(const ListaID : TIntegerArray; const NombreEmpresa: AnsiString;
|
||||
const VerLogotipo: Boolean = True; const VerPrecios: Boolean = True; const VerTotales: Boolean = True): Binary;
|
||||
function GenerarContratoEnPDF(const ListaID : TIntegerArray; const NombreEmpresa: AnsiString;
|
||||
const VerLogotipo: Boolean = True; const VerPrecios: Boolean = True; const VerTotales: Boolean = True): Binary;
|
||||
function GenerarInformeListadoContratos(const IdEmpresa: Integer; const FechaInicio: Variant; const FechaFin: Variant; const ListaIDClientes: TIntegerArray; const Desglosado: Boolean; const ImporteMinimo: Currency): Binary;
|
||||
end;
|
||||
|
||||
@ -143,7 +147,8 @@ begin
|
||||
end;
|
||||
end;
|
||||
|
||||
function TRptContratosCliente.GenerarContratoEnPDF(const ListaID: TIntegerArray; const NombreEmpresa: AnsiString; const VerLogotipo: Boolean = True): Binary;
|
||||
function TRptContratosCliente.GenerarContratoEnPDF(const ListaID: TIntegerArray; const NombreEmpresa: AnsiString;
|
||||
const VerLogotipo: Boolean = True; const VerPrecios: Boolean = True; const VerTotales: Boolean = True): Binary;
|
||||
var
|
||||
i: Integer;
|
||||
begin
|
||||
@ -152,6 +157,8 @@ begin
|
||||
//Inicializamos parametros
|
||||
FVerLogotipo := VerLogotipo;
|
||||
FNombreEmpresa := NombreEmpresa;
|
||||
FVerPrecios := VerPrecios;
|
||||
FVerTotales := VerTotales;
|
||||
|
||||
//Vamos generando todos y cada uno de los Contratos recibidos
|
||||
for i := 0 to ListaID.Count - 1 do
|
||||
@ -484,7 +491,8 @@ begin
|
||||
end;
|
||||
end;
|
||||
|
||||
function TRptContratosCliente.GenerarContrato(const ListaID: TIntegerArray; const NombreEmpresa: AnsiString; const VerLogotipo: Boolean = True): Binary;
|
||||
function TRptContratosCliente.GenerarContrato(const ListaID: TIntegerArray; const NombreEmpresa: AnsiString;
|
||||
const VerLogotipo: Boolean = True; const VerPrecios: Boolean = True; const VerTotales: Boolean = True): Binary;
|
||||
var
|
||||
i: Integer;
|
||||
begin
|
||||
@ -493,6 +501,8 @@ begin
|
||||
//Inicializamos parametros
|
||||
FVerLogotipo := VerLogotipo;
|
||||
FNombreEmpresa := NombreEmpresa;
|
||||
FVerPrecios := VerPrecios;
|
||||
FVerTotales := VerTotales;
|
||||
|
||||
//Vamos generando todos y cada uno de los Contratos recibidos
|
||||
for i := 0 to ListaID.Count - 1 do
|
||||
@ -549,7 +559,9 @@ begin
|
||||
|
||||
frxReport.LoadFromFile(AInforme, True);
|
||||
frxReport.Variables.Variables['VerLogotipo'] := FVerLogotipo;
|
||||
frxReport.Variables.Variables['NombreEmpresa'] := ''''+FNombreEmpresa+'''';
|
||||
frxReport.Variables.Variables['NombreEmpresa'] := ''''+FNombreEmpresa+'''';
|
||||
frxReport.Variables.Variables['VerPrecios'] := FVerPrecios;
|
||||
frxReport.Variables.Variables['VerTotales'] := FVerTotales;
|
||||
frxReport.AddFunction('function PONERJUSTIFICACIONCOMPLETA(ARTFText : String): String', 'User Function','');
|
||||
frxReport.ReportOptions.Name := 'Contrato ' + tbl_Cabecera.FieldByName('REFERENCIA').AsString;
|
||||
frxReport.PrepareReport(False);
|
||||
|
||||
@ -33,8 +33,8 @@ type
|
||||
procedure DARemoteServiceCreate(Sender: TObject);
|
||||
protected
|
||||
{ IsrvContratosCliente methods }
|
||||
function GenerarInforme(const ListaID: TIntegerArray; const NombreEmpresa: AnsiString; const VerLogotipo: Boolean): Binary;
|
||||
function GenerarInformeEnPDF(const ListaID: TIntegerArray; const NombreEmpresa: AnsiString; const VerLogotipo: Boolean): Binary;
|
||||
function GenerarInforme(const ListaID: TIntegerArray; const NombreEmpresa: AnsiString; const VerLogotipo: Boolean; const VerPrecios: Boolean; const VerTotales: Boolean): Binary;
|
||||
function GenerarInformeEnPDF(const ListaID: TIntegerArray; const NombreEmpresa: AnsiString; const VerLogotipo: Boolean; const VerPrecios: Boolean; const VerTotales: Boolean): Binary;
|
||||
|
||||
end;
|
||||
|
||||
@ -78,25 +78,27 @@ begin
|
||||
ConnectionName := dmServer.ConnectionName;
|
||||
end;
|
||||
|
||||
function TsrvContratosCliente.GenerarInforme(const ListaID: TIntegerArray; const NombreEmpresa: AnsiString; const VerLogotipo: Boolean): Binary;
|
||||
function TsrvContratosCliente.GenerarInforme(const ListaID: TIntegerArray; const NombreEmpresa: AnsiString;
|
||||
const VerLogotipo: Boolean; const VerPrecios: Boolean; const VerTotales: Boolean): Binary;
|
||||
var
|
||||
AReportGenerator : TRptContratosCliente;
|
||||
begin
|
||||
AReportGenerator := TRptContratosCliente.Create(nil);
|
||||
try
|
||||
Result := AReportGenerator.GenerarContrato(ListaID, NombreEmpresa, VerLogotipo);
|
||||
Result := AReportGenerator.GenerarContrato(ListaID, NombreEmpresa, VerLogotipo, VerPrecios, VerTotales);
|
||||
finally
|
||||
FreeAndNIL(AReportGenerator);
|
||||
end;
|
||||
end;
|
||||
|
||||
function TsrvContratosCliente.GenerarInformeEnPDF(const ListaID: TIntegerArray; const NombreEmpresa: AnsiString; const VerLogotipo: Boolean): Binary;
|
||||
function TsrvContratosCliente.GenerarInformeEnPDF(const ListaID: TIntegerArray; const NombreEmpresa: AnsiString;
|
||||
const VerLogotipo: Boolean; const VerPrecios: Boolean; const VerTotales: Boolean): Binary;
|
||||
var
|
||||
AReportGenerator : TRptContratosCliente;
|
||||
begin
|
||||
AReportGenerator := TRptContratosCliente.Create(nil);
|
||||
try
|
||||
Result := AReportGenerator.GenerarContratoEnPDF(ListaID, NombreEmpresa, VerLogotipo);
|
||||
Result := AReportGenerator.GenerarContratoEnPDF(ListaID, NombreEmpresa, VerLogotipo, VerPrecios, VerTotales);
|
||||
finally
|
||||
FreeAndNIL(AReportGenerator);
|
||||
end;
|
||||
|
||||
@ -92,6 +92,7 @@ contains
|
||||
uViewDocumentosContratoCliente in 'uViewDocumentosContratoCliente.pas' {frViewDocumentosContratoCliente: TFrame},
|
||||
uViewDatosYSeleccionClienteContrato in 'uViewDatosYSeleccionClienteContrato.pas' {frViewDatosYSeleccionClienteContrato: TFrame},
|
||||
uViewContratosClienteBeneficios in 'uViewContratosClienteBeneficios.pas' {frViewContratosClienteBeneficios: TFrame},
|
||||
uEditorContratosClienteBeneficios in 'uEditorContratosClienteBeneficios.pas' {fEditorContratosClienteBeneficios: TFrame};
|
||||
uEditorContratosClienteBeneficios in 'uEditorContratosClienteBeneficios.pas' {fEditorContratosClienteBeneficios: TFrame},
|
||||
uDialogOpcionesImpresionContratosCliente in 'uDialogOpcionesImpresionContratosCliente.pas' {fDialogOpcionesImpresionContratosCliente: Tform};
|
||||
|
||||
end.
|
||||
|
||||
@ -49,58 +49,55 @@
|
||||
<DelphiCompile Include="ContratosCliente_view.dpk">
|
||||
<MainSource>MainSource</MainSource>
|
||||
</DelphiCompile>
|
||||
<DCCReference Include="..\..\Lib\adortl.dcp" />
|
||||
<DCCReference Include="..\..\Lib\Articulos_view.dcp" />
|
||||
<DCCReference Include="..\..\Lib\Base.dcp" />
|
||||
<DCCReference Include="..\..\Lib\ConCli_AlbCli_relation.dcp" />
|
||||
<DCCReference Include="..\..\Lib\ConCli_FacCli_relation.dcp" />
|
||||
<DCCReference Include="..\..\Lib\ContratosCliente_controller.dcp" />
|
||||
<DCCReference Include="..\..\Lib\ContratosCliente_model.dcp" />
|
||||
<DCCReference Include="..\..\Lib\cxDataD11.dcp" />
|
||||
<DCCReference Include="..\..\Lib\cxEditorsD11.dcp" />
|
||||
<DCCReference Include="..\..\Lib\cxExportD11.dcp" />
|
||||
<DCCReference Include="..\..\Lib\cxExtEditorsD11.dcp" />
|
||||
<DCCReference Include="..\..\Lib\cxGridD11.dcp" />
|
||||
<DCCReference Include="..\..\Lib\cxLibraryD11.dcp" />
|
||||
<DCCReference Include="..\..\Lib\cxPageControlD11.dcp" />
|
||||
<DCCReference Include="..\..\Lib\DataAbstract_Core_D11.dcp" />
|
||||
<DCCReference Include="..\..\Lib\dbrtl.dcp" />
|
||||
<DCCReference Include="..\..\Lib\dclcxLibraryD11.dcp" />
|
||||
<DCCReference Include="..\..\Lib\dcldxCoreD11.dcp" />
|
||||
<DCCReference Include="..\..\Lib\designide.dcp" />
|
||||
<DCCReference Include="..\..\Lib\dsnap.dcp" />
|
||||
<DCCReference Include="..\..\Lib\dxComnD11.dcp" />
|
||||
<DCCReference Include="..\..\Lib\dxCoreD11.dcp" />
|
||||
<DCCReference Include="..\..\Lib\dxGDIPlusD11.dcp" />
|
||||
<DCCReference Include="..\..\Lib\dxLayoutControlD11.dcp" />
|
||||
<DCCReference Include="..\..\Lib\dxPSCoreD11.dcp" />
|
||||
<DCCReference Include="..\..\Lib\dxPScxCommonD11.dcp" />
|
||||
<DCCReference Include="..\..\Lib\dxPScxGrid6LnkD11.dcp" />
|
||||
<DCCReference Include="..\..\Lib\dxPSLnksD11.dcp" />
|
||||
<DCCReference Include="..\..\Lib\dxThemeD11.dcp" />
|
||||
<DCCReference Include="..\..\Lib\GestorInformes_controller.dcp" />
|
||||
<DCCReference Include="..\..\Lib\GUIBase.dcp" />
|
||||
<DCCReference Include="..\..\Lib\GUISDK_D11R.dcp" />
|
||||
<DCCReference Include="..\..\Lib\Jcl.dcp" />
|
||||
<DCCReference Include="..\..\Lib\JclVcl.dcp" />
|
||||
<DCCReference Include="..\..\Lib\JvCoreD11R.dcp" />
|
||||
<DCCReference Include="..\..\Lib\JvPageCompsD11R.dcp" />
|
||||
<DCCReference Include="..\..\Lib\JvStdCtrlsD11R.dcp" />
|
||||
<DCCReference Include="..\..\Lib\JvSystemD11R.dcp" />
|
||||
<DCCReference Include="..\..\Lib\PngComponentsD10.dcp" />
|
||||
<DCCReference Include="..\..\Lib\PNG_D10.dcp" />
|
||||
<DCCReference Include="..\..\Lib\RemObjects_Core_D11.dcp" />
|
||||
<DCCReference Include="..\..\Lib\rtl.dcp" />
|
||||
<DCCReference Include="..\..\Lib\tb2k_d10.dcp" />
|
||||
<DCCReference Include="..\..\Lib\tbx_d10.dcp" />
|
||||
<DCCReference Include="..\..\Lib\vcl.dcp" />
|
||||
<DCCReference Include="..\..\Lib\vclactnband.dcp" />
|
||||
<DCCReference Include="..\..\Lib\vcldb.dcp" />
|
||||
<DCCReference Include="..\..\Lib\vcljpg.dcp" />
|
||||
<DCCReference Include="..\..\Lib\vclshlctrls.dcp" />
|
||||
<DCCReference Include="..\..\Lib\vclx.dcp" />
|
||||
<DCCReference Include="..\..\Lib\xmlrtl.dcp" />
|
||||
<DCCReference Include="adortl.dcp" />
|
||||
<DCCReference Include="Articulos_view.dcp" />
|
||||
<DCCReference Include="Base.dcp" />
|
||||
<DCCReference Include="ConCli_AlbCli_relation.dcp" />
|
||||
<DCCReference Include="ConCli_FacCli_relation.dcp" />
|
||||
<DCCReference Include="ContratosCliente_controller.dcp" />
|
||||
<DCCReference Include="ContratosCliente_model.dcp" />
|
||||
<DCCReference Include="cxDataD11.dcp" />
|
||||
<DCCReference Include="cxEditorsD11.dcp" />
|
||||
<DCCReference Include="cxExportD11.dcp" />
|
||||
<DCCReference Include="cxExtEditorsD11.dcp" />
|
||||
<DCCReference Include="cxGridD11.dcp" />
|
||||
<DCCReference Include="cxLibraryD11.dcp" />
|
||||
<DCCReference Include="cxPageControlD11.dcp" />
|
||||
<DCCReference Include="DataAbstract_Core_D11.dcp" />
|
||||
<DCCReference Include="dbrtl.dcp" />
|
||||
<DCCReference Include="dclcxLibraryD11.dcp" />
|
||||
<DCCReference Include="dcldxCoreD11.dcp" />
|
||||
<DCCReference Include="designide.dcp" />
|
||||
<DCCReference Include="dsnap.dcp" />
|
||||
<DCCReference Include="dxComnD11.dcp" />
|
||||
<DCCReference Include="dxCoreD11.dcp" />
|
||||
<DCCReference Include="dxGDIPlusD11.dcp" />
|
||||
<DCCReference Include="dxLayoutControlD11.dcp" />
|
||||
<DCCReference Include="dxPSCoreD11.dcp" />
|
||||
<DCCReference Include="dxPScxCommonD11.dcp" />
|
||||
<DCCReference Include="dxPScxGrid6LnkD11.dcp" />
|
||||
<DCCReference Include="dxPSLnksD11.dcp" />
|
||||
<DCCReference Include="dxThemeD11.dcp" />
|
||||
<DCCReference Include="GestorInformes_controller.dcp" />
|
||||
<DCCReference Include="GUIBase.dcp" />
|
||||
<DCCReference Include="GUISDK_D11R.dcp" />
|
||||
<DCCReference Include="Jcl.dcp" />
|
||||
<DCCReference Include="JclVcl.dcp" />
|
||||
<DCCReference Include="JvCoreD11R.dcp" />
|
||||
<DCCReference Include="JvPageCompsD11R.dcp" />
|
||||
<DCCReference Include="JvStdCtrlsD11R.dcp" />
|
||||
<DCCReference Include="JvSystemD11R.dcp" />
|
||||
<DCCReference Include="PngComponentsD10.dcp" />
|
||||
<DCCReference Include="PNG_D10.dcp" />
|
||||
<DCCReference Include="RemObjects_Core_D11.dcp" />
|
||||
<DCCReference Include="rtl.dcp" />
|
||||
<DCCReference Include="tb2k_d10.dcp" />
|
||||
<DCCReference Include="tbx_d10.dcp" />
|
||||
<DCCReference Include="uContratosClienteViewRegister.pas" />
|
||||
<DCCReference Include="uDialogOpcionesImpresionContratosCliente.pas">
|
||||
<Form>fDialogOpcionesImpresionContratosCliente</Form>
|
||||
<DesignClass>T</DesignClass>
|
||||
</DCCReference>
|
||||
<DCCReference Include="uEditorContratoCliente.pas">
|
||||
<Form>fEditorPresupuestoCliente</Form>
|
||||
<DesignClass>TfEditorPedidoCliente</DesignClass>
|
||||
@ -157,6 +154,13 @@
|
||||
<Form>frViewElegirArticulosContratosCliente</Form>
|
||||
<DesignClass>TFrame</DesignClass>
|
||||
</DCCReference>
|
||||
<DCCReference Include="vcl.dcp" />
|
||||
<DCCReference Include="vclactnband.dcp" />
|
||||
<DCCReference Include="vcldb.dcp" />
|
||||
<DCCReference Include="vcljpg.dcp" />
|
||||
<DCCReference Include="vclshlctrls.dcp" />
|
||||
<DCCReference Include="vclx.dcp" />
|
||||
<DCCReference Include="xmlrtl.dcp" />
|
||||
</ItemGroup>
|
||||
</Project>
|
||||
<!-- EurekaLog First Line
|
||||
|
||||
@ -0,0 +1,130 @@
|
||||
inherited fDialogOpcionesImpresionContratosCliente: TfDialogOpcionesImpresionContratosCliente
|
||||
Caption = 'Opciones para el contrato de cliente'
|
||||
ClientHeight = 262
|
||||
ClientWidth = 393
|
||||
ExplicitWidth = 399
|
||||
ExplicitHeight = 298
|
||||
PixelsPerInch = 96
|
||||
TextHeight = 13
|
||||
inherited Bevel2: TBevel
|
||||
Width = 393
|
||||
ExplicitWidth = 393
|
||||
end
|
||||
inherited Bevel3: TBevel
|
||||
Top = 218
|
||||
Width = 393
|
||||
ExplicitTop = 195
|
||||
ExplicitWidth = 393
|
||||
end
|
||||
inherited pnlBotones: TPanel
|
||||
Top = 220
|
||||
Width = 393
|
||||
ExplicitTop = 220
|
||||
ExplicitWidth = 393
|
||||
inherited btnAceptar: TButton
|
||||
Left = 229
|
||||
ExplicitLeft = 229
|
||||
end
|
||||
inherited btnCancelar: TButton
|
||||
Left = 308
|
||||
ExplicitLeft = 308
|
||||
end
|
||||
end
|
||||
inherited pnlHeader: TPanel
|
||||
Width = 393
|
||||
ExplicitWidth = 393
|
||||
inherited lblTitle: TLabel
|
||||
Width = 343
|
||||
Caption = 'Indique las siguiente opciones para el contrato de cliente:'
|
||||
ExplicitWidth = 325
|
||||
end
|
||||
inherited lblComments: TLabel
|
||||
Width = 318
|
||||
Height = 27
|
||||
Visible = False
|
||||
end
|
||||
end
|
||||
inherited pnlCuerpo: TPanel
|
||||
Width = 393
|
||||
Height = 152
|
||||
ExplicitWidth = 393
|
||||
ExplicitHeight = 152
|
||||
object cbVerPrecios: TCheckBox
|
||||
AlignWithMargins = True
|
||||
Left = 50
|
||||
Top = 29
|
||||
Width = 415
|
||||
Height = 17
|
||||
Caption = 'Mostrar los precios en los conceptos'
|
||||
Checked = True
|
||||
State = cbChecked
|
||||
TabOrder = 0
|
||||
end
|
||||
object cbVerRefProveedor: TCheckBox
|
||||
AlignWithMargins = True
|
||||
Left = 50
|
||||
Top = 121
|
||||
Width = 441
|
||||
Height = 17
|
||||
Caption = 'Mostrar las referencias de proveedor de los conceptos'
|
||||
Checked = True
|
||||
State = cbChecked
|
||||
TabOrder = 1
|
||||
Visible = False
|
||||
end
|
||||
object cbVerIncidencias: TCheckBox
|
||||
AlignWithMargins = True
|
||||
Left = 50
|
||||
Top = 75
|
||||
Width = 441
|
||||
Height = 17
|
||||
Caption = 'Mostrar las incidencias del albar'#225'n'
|
||||
Checked = True
|
||||
State = cbChecked
|
||||
TabOrder = 2
|
||||
Visible = False
|
||||
end
|
||||
object cbVerObservaciones: TCheckBox
|
||||
AlignWithMargins = True
|
||||
Left = 50
|
||||
Top = 98
|
||||
Width = 441
|
||||
Height = 17
|
||||
Caption = 'Mostrar las observaciones del albar'#225'n'
|
||||
Checked = True
|
||||
State = cbChecked
|
||||
TabOrder = 3
|
||||
Visible = False
|
||||
end
|
||||
object cbVerLogotipo: TCheckBox
|
||||
AlignWithMargins = True
|
||||
Left = 50
|
||||
Top = 6
|
||||
Width = 415
|
||||
Height = 17
|
||||
Caption = 'Mostrar logotipo'
|
||||
Checked = True
|
||||
State = cbChecked
|
||||
TabOrder = 4
|
||||
end
|
||||
object cbVerTotales: TCheckBox
|
||||
AlignWithMargins = True
|
||||
Left = 50
|
||||
Top = 52
|
||||
Width = 415
|
||||
Height = 17
|
||||
Caption = 'Mostrar importes totales'
|
||||
Checked = True
|
||||
State = cbChecked
|
||||
TabOrder = 5
|
||||
end
|
||||
end
|
||||
inherited ActionListDialog: TActionList
|
||||
inherited actAceptar: TAction
|
||||
OnExecute = actAceptarExecute
|
||||
end
|
||||
inherited actCancelar: TAction
|
||||
OnExecute = actCancelarExecute
|
||||
end
|
||||
end
|
||||
end
|
||||
@ -0,0 +1,68 @@
|
||||
unit uDialogOpcionesImpresionContratosCliente;
|
||||
|
||||
interface
|
||||
|
||||
uses
|
||||
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
|
||||
Dialogs, uDialogBase, ActnList, StdCtrls, ExtCtrls;
|
||||
|
||||
type
|
||||
TfDialogOpcionesImpresionContratosCliente = class(TfDialogBase)
|
||||
cbVerPrecios: TCheckBox;
|
||||
cbVerRefProveedor: TCheckBox;
|
||||
cbVerIncidencias: TCheckBox;
|
||||
cbVerObservaciones: TCheckBox;
|
||||
cbVerLogotipo: TCheckBox;
|
||||
cbVerTotales: TCheckBox;
|
||||
procedure actAceptarExecute(Sender: TObject);
|
||||
procedure actCancelarExecute(Sender: TObject);
|
||||
end;
|
||||
|
||||
function ElegirOpcionesImpresionContratoCliente(var AVerLogotipo: Boolean; var AVerPrecios : Boolean; var AVerTotales : Boolean; var AVerRefProveedor : Boolean; var AVerObservaciones : Boolean; var AVerIncidencias : Boolean): Boolean;
|
||||
|
||||
implementation
|
||||
|
||||
{$R *.dfm}
|
||||
|
||||
function ElegirOpcionesImpresionContratoCliente(var AVerLogotipo: Boolean; var AVerPrecios : Boolean; var AVerTotales : Boolean; var AVerRefProveedor : Boolean; var AVerObservaciones : Boolean; var AVerIncidencias : Boolean): Boolean;
|
||||
var
|
||||
AEditor : TfDialogOpcionesImpresionContratosCliente;
|
||||
begin
|
||||
AEditor := TfDialogOpcionesImpresionContratosCliente.Create(NIL);
|
||||
try
|
||||
AEditor.cbVerLogotipo.Checked := AVerLogotipo;
|
||||
AEditor.cbVerPrecios.Checked := AVerPrecios;
|
||||
AEditor.cbVerTotales.Checked := AVerTotales;
|
||||
AEditor.cbVerRefProveedor.Checked := AVerRefProveedor;
|
||||
AEditor.cbVerObservaciones.Checked := AVerObservaciones;
|
||||
AEditor.cbVerIncidencias.Checked := AVerIncidencias;
|
||||
|
||||
|
||||
Result := (AEditor.ShowModal = mrOk);
|
||||
if Result then
|
||||
begin
|
||||
AVerLogotipo := AEditor.cbVerLogotipo.Checked;
|
||||
AVerPrecios := AEditor.cbVerPrecios.Checked;
|
||||
AVerTotales := AEditor.cbVerTotales.Checked;
|
||||
AVerRefProveedor := AEditor.cbVerRefProveedor.Checked;
|
||||
AVerObservaciones := AEditor.cbVerObservaciones.Checked;
|
||||
AVerIncidencias := AEditor.cbVerIncidencias.Checked;
|
||||
end;
|
||||
finally
|
||||
AEditor.Release;
|
||||
end;
|
||||
end;
|
||||
|
||||
procedure TfDialogOpcionesImpresionContratosCliente.actAceptarExecute(Sender: TObject);
|
||||
begin
|
||||
inherited;
|
||||
ModalResult := mrOk
|
||||
end;
|
||||
|
||||
procedure TfDialogOpcionesImpresionContratosCliente.actCancelarExecute(Sender: TObject);
|
||||
begin
|
||||
inherited;
|
||||
ModalResult := mrCancel;
|
||||
end;
|
||||
|
||||
end.
|
||||
@ -6,7 +6,7 @@ inherited fEditorContratoCliente: TfEditorContratoCliente
|
||||
ClientWidth = 845
|
||||
OnClose = CustomEditorClose
|
||||
ExplicitWidth = 853
|
||||
ExplicitHeight = 629
|
||||
ExplicitHeight = 633
|
||||
PixelsPerInch = 96
|
||||
TextHeight = 13
|
||||
inherited JvNavPanelHeader: TJvNavPanelHeader
|
||||
@ -129,7 +129,7 @@ inherited fEditorContratoCliente: TfEditorContratoCliente
|
||||
Width = 845
|
||||
ExplicitWidth = 845
|
||||
inherited tbxMain: TTBXToolbar
|
||||
ExplicitWidth = 488
|
||||
ExplicitWidth = 551
|
||||
inherited TBXItem2: TTBXItem
|
||||
Visible = False
|
||||
end
|
||||
@ -173,12 +173,12 @@ inherited fEditorContratoCliente: TfEditorContratoCliente
|
||||
end
|
||||
inherited pgPaginas: TPageControl
|
||||
Width = 839
|
||||
Height = 270
|
||||
Height = 267
|
||||
ActivePage = pagContenido
|
||||
TabOrder = 1
|
||||
OnChanging = pgPaginasChanging
|
||||
ExplicitWidth = 839
|
||||
ExplicitHeight = 270
|
||||
ExplicitHeight = 267
|
||||
inherited pagGeneral: TTabSheet
|
||||
ExplicitLeft = 4
|
||||
ExplicitTop = 24
|
||||
@ -192,7 +192,7 @@ inherited fEditorContratoCliente: TfEditorContratoCliente
|
||||
Left = 0
|
||||
Top = 0
|
||||
Width = 831
|
||||
Height = 242
|
||||
Height = 239
|
||||
Align = alClient
|
||||
BiDiMode = bdLeftToRight
|
||||
Font.Charset = DEFAULT_CHARSET
|
||||
@ -205,91 +205,62 @@ inherited fEditorContratoCliente: TfEditorContratoCliente
|
||||
TabOrder = 0
|
||||
ReadOnly = False
|
||||
ExplicitWidth = 831
|
||||
ExplicitHeight = 242
|
||||
ExplicitHeight = 239
|
||||
inherited ToolBar1: TToolBar
|
||||
Width = 831
|
||||
Height = 24
|
||||
ExplicitWidth = 831
|
||||
ExplicitHeight = 24
|
||||
inherited ToolButton14: TToolButton
|
||||
Wrap = False
|
||||
end
|
||||
inherited FontName: TJvFontComboBox
|
||||
Left = 368
|
||||
Top = 0
|
||||
ExplicitLeft = 368
|
||||
ExplicitTop = 0
|
||||
end
|
||||
inherited ToolButton13: TToolButton [6]
|
||||
Left = 513
|
||||
Top = 0
|
||||
ExplicitLeft = 513
|
||||
ExplicitTop = 0
|
||||
end
|
||||
inherited ToolButton6: TToolButton [7]
|
||||
Left = 521
|
||||
Top = 0
|
||||
ExplicitLeft = 521
|
||||
ExplicitTop = 0
|
||||
end
|
||||
inherited ToolButton7: TToolButton [8]
|
||||
Left = 555
|
||||
Top = 0
|
||||
ExplicitLeft = 555
|
||||
ExplicitTop = 0
|
||||
end
|
||||
inherited ToolButton8: TToolButton [9]
|
||||
Left = 589
|
||||
Top = 0
|
||||
ExplicitLeft = 589
|
||||
ExplicitTop = 0
|
||||
end
|
||||
inherited ToolButton12: TToolButton [10]
|
||||
Left = 623
|
||||
Top = 0
|
||||
ExplicitLeft = 623
|
||||
ExplicitTop = 0
|
||||
end
|
||||
inherited ToolButton9: TToolButton [11]
|
||||
Left = 631
|
||||
Top = 0
|
||||
ExplicitLeft = 631
|
||||
ExplicitTop = 0
|
||||
end
|
||||
inherited ToolButton10: TToolButton [12]
|
||||
Left = 665
|
||||
Top = 0
|
||||
ExplicitLeft = 665
|
||||
ExplicitTop = 0
|
||||
end
|
||||
inherited ToolButton11: TToolButton [13]
|
||||
Left = 699
|
||||
Top = 0
|
||||
ExplicitLeft = 699
|
||||
ExplicitTop = 0
|
||||
end
|
||||
inherited FontSize: TEdit [14]
|
||||
Left = 733
|
||||
Top = 0
|
||||
inherited FontSize: TEdit [5]
|
||||
Left = 0
|
||||
Width = 90
|
||||
ExplicitLeft = 733
|
||||
ExplicitTop = 0
|
||||
ExplicitLeft = 0
|
||||
ExplicitWidth = 90
|
||||
end
|
||||
inherited UpDown1: TUpDown [15]
|
||||
Left = 823
|
||||
Top = 0
|
||||
ExplicitLeft = 823
|
||||
ExplicitTop = 0
|
||||
inherited UpDown1: TUpDown [6]
|
||||
Left = 90
|
||||
ExplicitLeft = 90
|
||||
end
|
||||
inherited FontName: TJvFontComboBox [7]
|
||||
Left = 107
|
||||
ExplicitLeft = 107
|
||||
end
|
||||
inherited ToolButton13: TToolButton
|
||||
Left = 252
|
||||
ExplicitLeft = 252
|
||||
end
|
||||
inherited ToolButton6: TToolButton
|
||||
Left = 260
|
||||
ExplicitLeft = 260
|
||||
end
|
||||
inherited ToolButton7: TToolButton
|
||||
Left = 294
|
||||
ExplicitLeft = 294
|
||||
end
|
||||
inherited ToolButton8: TToolButton
|
||||
Left = 328
|
||||
ExplicitLeft = 328
|
||||
end
|
||||
inherited ToolButton12: TToolButton
|
||||
Left = 362
|
||||
ExplicitLeft = 362
|
||||
end
|
||||
inherited ToolButton9: TToolButton
|
||||
Left = 370
|
||||
ExplicitLeft = 370
|
||||
end
|
||||
inherited ToolButton10: TToolButton
|
||||
Left = 404
|
||||
ExplicitLeft = 404
|
||||
end
|
||||
inherited ToolButton11: TToolButton
|
||||
Left = 438
|
||||
ExplicitLeft = 438
|
||||
end
|
||||
end
|
||||
inherited cxGrid: TcxGrid
|
||||
Top = 50
|
||||
Width = 831
|
||||
Height = 192
|
||||
ExplicitTop = 50
|
||||
Height = 167
|
||||
ExplicitWidth = 831
|
||||
ExplicitHeight = 192
|
||||
ExplicitHeight = 167
|
||||
inherited cxGridView: TcxGridDBTableView
|
||||
inherited cxGridViewPROPIEDAD: TcxGridDBColumn
|
||||
IsCaptionAssigned = True
|
||||
@ -297,12 +268,10 @@ inherited fEditorContratoCliente: TfEditorContratoCliente
|
||||
end
|
||||
end
|
||||
inherited TBXDock1: TTBXDock
|
||||
Top = 24
|
||||
Width = 831
|
||||
ExplicitTop = 24
|
||||
ExplicitWidth = 831
|
||||
inherited TBXToolbar1: TTBXToolbar
|
||||
ExplicitWidth = 665
|
||||
ExplicitWidth = 753
|
||||
end
|
||||
end
|
||||
inherited cxLookupComboBox1: TcxLookupComboBox
|
||||
@ -323,7 +292,7 @@ inherited fEditorContratoCliente: TfEditorContratoCliente
|
||||
Left = 0
|
||||
Top = 0
|
||||
Width = 831
|
||||
Height = 242
|
||||
Height = 239
|
||||
Align = alClient
|
||||
Font.Charset = DEFAULT_CHARSET
|
||||
Font.Color = clWindowText
|
||||
@ -334,7 +303,7 @@ inherited fEditorContratoCliente: TfEditorContratoCliente
|
||||
TabOrder = 0
|
||||
ReadOnly = False
|
||||
ExplicitWidth = 831
|
||||
ExplicitHeight = 242
|
||||
ExplicitHeight = 239
|
||||
inherited pnlSup: TPanel
|
||||
Width = 831
|
||||
ExplicitWidth = 831
|
||||
@ -344,13 +313,13 @@ inherited fEditorContratoCliente: TfEditorContratoCliente
|
||||
end
|
||||
inherited GroupBox1: TGroupBox
|
||||
Width = 831
|
||||
Height = 214
|
||||
Height = 211
|
||||
ExplicitWidth = 831
|
||||
ExplicitHeight = 214
|
||||
inherited eIncidencias: TcxDBMemo
|
||||
ExplicitWidth = 827
|
||||
ExplicitHeight = 197
|
||||
Height = 197
|
||||
ExplicitHeight = 194
|
||||
Height = 194
|
||||
Width = 827
|
||||
end
|
||||
end
|
||||
@ -363,7 +332,7 @@ inherited fEditorContratoCliente: TfEditorContratoCliente
|
||||
Left = 0
|
||||
Top = 0
|
||||
Width = 831
|
||||
Height = 242
|
||||
Height = 239
|
||||
Align = alClient
|
||||
Font.Charset = DEFAULT_CHARSET
|
||||
Font.Color = clWindowText
|
||||
@ -374,14 +343,14 @@ inherited fEditorContratoCliente: TfEditorContratoCliente
|
||||
TabOrder = 0
|
||||
ReadOnly = False
|
||||
ExplicitWidth = 831
|
||||
ExplicitHeight = 242
|
||||
ExplicitHeight = 239
|
||||
inherited TBXDock: TTBXDock
|
||||
Width = 831
|
||||
ExplicitWidth = 834
|
||||
end
|
||||
inherited ListView1: TListView
|
||||
Width = 831
|
||||
Height = 219
|
||||
Height = 213
|
||||
ExplicitWidth = 834
|
||||
ExplicitHeight = 300
|
||||
end
|
||||
|
||||
@ -103,6 +103,7 @@ implementation
|
||||
|
||||
uses
|
||||
uViewDatosYSeleccionCliente, uDataModuleUsuarios, uClientesController,
|
||||
uDialogOpcionesImpresionContratosCliente,
|
||||
uBizDireccionesContacto, uDialogUtils, uFactuGES_App, uDataTableUtils;
|
||||
|
||||
{$R *.dfm}
|
||||
@ -285,15 +286,25 @@ end;
|
||||
|
||||
procedure TfEditorContratoCliente.ImprimirInterno;
|
||||
var
|
||||
AVerLogotipo: Boolean;
|
||||
FVerLogotipo: Boolean;
|
||||
FImprimirPrecios : Boolean;
|
||||
FImprimirTotales : Boolean;
|
||||
FImprimirRefProveedor : Boolean;
|
||||
FImprimirObservaciones: Boolean;
|
||||
FImprimirIncidencias: Boolean;
|
||||
|
||||
begin
|
||||
inherited;
|
||||
AVerLogotipo := True;
|
||||
FVerLogotipo := True;
|
||||
FImprimirPrecios := False;
|
||||
FImprimirTotales := True;
|
||||
FImprimirRefProveedor := False;
|
||||
FImprimirObservaciones := False;
|
||||
FImprimirIncidencias := False;
|
||||
|
||||
if not Modified then
|
||||
begin
|
||||
AVerLogotipo := (Application.MessageBox('¿Desea imprimir el documento con logotipo?', 'Atención', MB_YESNO) = IDYES);
|
||||
FController.Print(FContrato, False, AVerLogotipo);
|
||||
end;
|
||||
if ElegirOpcionesImpresionContratoCliente(FVerLogotipo, FImprimirPrecios, FImprimirTotales, FImprimirRefProveedor, FImprimirObservaciones, FImprimirIncidencias) then
|
||||
FController.Print(FContrato, False, FVerLogotipo, FImprimirPrecios, FImprimirTotales, FImprimirRefProveedor, FImprimirObservaciones, FImprimirIncidencias);
|
||||
end;
|
||||
|
||||
procedure TfEditorContratoCliente.OnClienteChanged(Sender: TObject);
|
||||
@ -351,16 +362,26 @@ end;
|
||||
|
||||
procedure TfEditorContratoCliente.PrevisualizarInterno;
|
||||
var
|
||||
AVerLogotipo: Boolean;
|
||||
FVerLogotipo: Boolean;
|
||||
FImprimirPrecios : Boolean;
|
||||
FImprimirTotales : Boolean;
|
||||
FImprimirRefProveedor : Boolean;
|
||||
FImprimirObservaciones: Boolean;
|
||||
FImprimirIncidencias: Boolean;
|
||||
|
||||
|
||||
begin
|
||||
inherited;
|
||||
AVerLogotipo := True;
|
||||
FVerLogotipo := True;
|
||||
FImprimirPrecios := False;
|
||||
FImprimirTotales := True;
|
||||
FImprimirRefProveedor := False;
|
||||
FImprimirObservaciones := False;
|
||||
FImprimirIncidencias := False;
|
||||
|
||||
if not Modified then
|
||||
begin
|
||||
AVerLogotipo := (Application.MessageBox('¿Desea previsualizar el documento con logotipo?', 'Atención', MB_YESNO) = IDYES);
|
||||
FController.Preview(FContrato, False, AVerLogotipo);
|
||||
end;
|
||||
if ElegirOpcionesImpresionContratoCliente(FVerLogotipo, FImprimirPrecios, FImprimirTotales, FImprimirRefProveedor, FImprimirObservaciones, FImprimirIncidencias) then
|
||||
FController.Preview(FContrato, False, FVerLogotipo, FImprimirPrecios, FImprimirTotales, FImprimirRefProveedor, FImprimirObservaciones, FImprimirIncidencias);
|
||||
end;
|
||||
|
||||
{procedure TfEditorContratoCliente.RecalcularPortePorUnidad;
|
||||
|
||||
@ -2,6 +2,7 @@ inherited fEditorContratosCliente: TfEditorContratosCliente
|
||||
Caption = 'Lista de contratos de cliente'
|
||||
ClientWidth = 805
|
||||
ExplicitWidth = 813
|
||||
ExplicitHeight = 482
|
||||
PixelsPerInch = 96
|
||||
TextHeight = 13
|
||||
inherited JvNavPanelHeader: TJvNavPanelHeader
|
||||
@ -124,7 +125,7 @@ inherited fEditorContratosCliente: TfEditorContratosCliente
|
||||
Width = 805
|
||||
ExplicitWidth = 805
|
||||
inherited tbxMain: TTBXToolbar
|
||||
ExplicitWidth = 632
|
||||
ExplicitWidth = 711
|
||||
object TBXSubmenuItem3: TTBXSubmenuItem [0]
|
||||
Caption = 'Nuevo'
|
||||
DisplayMode = nbdmImageAndText
|
||||
@ -159,7 +160,7 @@ inherited fEditorContratosCliente: TfEditorContratosCliente
|
||||
end
|
||||
end
|
||||
inherited tbxFiltro: TTBXToolbar
|
||||
ExplicitWidth = 431
|
||||
ExplicitWidth = 454
|
||||
inherited lblAno: TTBXLabelItem
|
||||
Visible = True
|
||||
end
|
||||
@ -192,11 +193,11 @@ inherited fEditorContratosCliente: TfEditorContratosCliente
|
||||
end
|
||||
end
|
||||
inherited TBXTMain2: TTBXToolbar
|
||||
Left = 431
|
||||
Left = 454
|
||||
DockPos = 343
|
||||
Visible = True
|
||||
ExplicitLeft = 431
|
||||
ExplicitWidth = 374
|
||||
ExplicitLeft = 454
|
||||
ExplicitWidth = 351
|
||||
object TBXSeparatorItem18: TTBXSeparatorItem
|
||||
end
|
||||
object TBXItem40: TTBXItem
|
||||
|
||||
@ -102,7 +102,7 @@ uses
|
||||
uDataModuleContratosCliente, uDataModuleUsuarios, uFactuGES_App,
|
||||
uEditorBase, uEditorDBBase, uDialogUtils, Dialogs,
|
||||
uDBSelectionListUtils, uGridUtils, uGenerarFacturasCliUtils,
|
||||
uGenerarAlbaranesCliUtils,
|
||||
uGenerarAlbaranesCliUtils, uDialogOpcionesImpresionContratosCliente,
|
||||
|
||||
|
||||
|
||||
@ -476,12 +476,24 @@ var
|
||||
Respuesta : Integer;
|
||||
AContratos: IBizContratoCliente;
|
||||
AllItems: Boolean;
|
||||
AVerLogotipo: Boolean;
|
||||
FVerLogotipo: Boolean;
|
||||
FImprimirPrecios : Boolean;
|
||||
FImprimirTotales : Boolean;
|
||||
FImprimirRefProveedor : Boolean;
|
||||
FImprimirObservaciones: Boolean;
|
||||
FImprimirIncidencias: Boolean;
|
||||
|
||||
|
||||
begin
|
||||
AContratos := Nil;
|
||||
AllItems := False;
|
||||
AVerLogotipo := True;
|
||||
FVerLogotipo := True;
|
||||
FImprimirPrecios := False;
|
||||
FImprimirTotales := True;
|
||||
FImprimirRefProveedor := False;
|
||||
FImprimirObservaciones := False;
|
||||
FImprimirIncidencias := False;
|
||||
|
||||
|
||||
if MultiSelect and Assigned(ViewGrid) then
|
||||
AllItems := (ViewGrid.NumSeleccionados > 1);
|
||||
@ -509,8 +521,8 @@ begin
|
||||
|
||||
if Assigned(AContratos) then
|
||||
begin
|
||||
AVerLogotipo := (Application.MessageBox('¿Desea imprimir el/los documento/s con logotipo?', 'Atención', MB_YESNO) = IDYES);
|
||||
FController.Print(AContratos, AllItems, AVerLogotipo);
|
||||
if ElegirOpcionesImpresionContratoCliente(FVerLogotipo, FImprimirPrecios, FImprimirTotales, FImprimirRefProveedor, FImprimirObservaciones, FImprimirIncidencias) then
|
||||
FController.Print(AContratos, AllItems, FVerLogotipo, FImprimirPrecios, FImprimirTotales, FImprimirRefProveedor, FImprimirObservaciones, FImprimirIncidencias);
|
||||
end;
|
||||
end;
|
||||
end;
|
||||
@ -555,12 +567,24 @@ var
|
||||
Respuesta : Integer;
|
||||
AContratos: IBizContratoCliente;
|
||||
AllItems: Boolean;
|
||||
AVerLogotipo: Boolean;
|
||||
FVerLogotipo: Boolean;
|
||||
FImprimirPrecios : Boolean;
|
||||
FImprimirTotales : Boolean;
|
||||
FImprimirRefProveedor : Boolean;
|
||||
FImprimirObservaciones: Boolean;
|
||||
FImprimirIncidencias: Boolean;
|
||||
|
||||
|
||||
begin
|
||||
AContratos := Nil;
|
||||
AllItems := False;
|
||||
AVerLogotipo := True;
|
||||
FVerLogotipo := True;
|
||||
FImprimirPrecios := False;
|
||||
FImprimirTotales := True;
|
||||
FImprimirRefProveedor := False;
|
||||
FImprimirObservaciones := False;
|
||||
FImprimirIncidencias := False;
|
||||
|
||||
|
||||
if MultiSelect and Assigned(ViewGrid) then
|
||||
AllItems := (ViewGrid.NumSeleccionados > 1);
|
||||
@ -588,8 +612,8 @@ begin
|
||||
|
||||
if Assigned(AContratos) then
|
||||
begin
|
||||
AVerLogotipo := (Application.MessageBox('¿Desea previsualizar el/los documento/s con logotipo?', 'Atención', MB_YESNO) = IDYES);
|
||||
FController.Preview(AContratos, AllItems, AVerLogotipo);
|
||||
if ElegirOpcionesImpresionContratoCliente(FVerLogotipo, FImprimirPrecios, FImprimirTotales, FImprimirRefProveedor, FImprimirObservaciones, FImprimirIncidencias) then
|
||||
FController.Preview(AContratos, AllItems, FVerLogotipo, FImprimirPrecios, FImprimirTotales, FImprimirRefProveedor, FImprimirObservaciones, FImprimirIncidencias);
|
||||
end;
|
||||
end;
|
||||
end;
|
||||
|
||||
@ -395,17 +395,17 @@ inherited DataModuleFacturasProveedor: TDataModuleFacturasProveedor
|
||||
Size = 255
|
||||
DictionaryEntry = 'FacturasProveedor_Detalles_REFERENCIA'
|
||||
end
|
||||
item
|
||||
Name = 'REFERENCIA_PROVEEDOR'
|
||||
DataType = datString
|
||||
Size = 255
|
||||
DictionaryEntry = 'FacturasProveedor_Detalles_REFERENCIA_PROVEEDOR'
|
||||
end
|
||||
item
|
||||
Name = 'VALORADO'
|
||||
DataType = datSmallInt
|
||||
DisplayLabel = #191'Valorado?'
|
||||
DictionaryEntry = 'FacturasProveedor_Detalles_VALORADO'
|
||||
end
|
||||
item
|
||||
Name = 'REFERENCIA_PROVEEDOR'
|
||||
DataType = datString
|
||||
Size = 255
|
||||
DictionaryEntry = 'FacturasProveedor_Detalles_REFERENCIA_PROVEEDOR'
|
||||
end>
|
||||
Params = <>
|
||||
MasterMappingMode = mmWhere
|
||||
|
||||
@ -131,15 +131,6 @@
|
||||
<Target Name="FacturasProveedor_data:Make">
|
||||
<MSBuild Projects="Data\FacturasProveedor_data.dproj" Targets="Make" />
|
||||
</Target>
|
||||
<Target Name="FacturasProveedor_controller">
|
||||
<MSBuild Projects="Controller\FacturasProveedor_controller.dproj" Targets="" />
|
||||
</Target>
|
||||
<Target Name="FacturasProveedor_controller:Clean">
|
||||
<MSBuild Projects="Controller\FacturasProveedor_controller.dproj" Targets="Clean" />
|
||||
</Target>
|
||||
<Target Name="FacturasProveedor_controller:Make">
|
||||
<MSBuild Projects="Controller\FacturasProveedor_controller.dproj" Targets="Make" />
|
||||
</Target>
|
||||
<Target Name="FacturasProveedor_view">
|
||||
<MSBuild Projects="Views\FacturasProveedor_view.dproj" Targets="" />
|
||||
</Target>
|
||||
@ -149,6 +140,15 @@
|
||||
<Target Name="FacturasProveedor_view:Make">
|
||||
<MSBuild Projects="Views\FacturasProveedor_view.dproj" Targets="Make" />
|
||||
</Target>
|
||||
<Target Name="FacturasProveedor_controller">
|
||||
<MSBuild Projects="Controller\FacturasProveedor_controller.dproj" Targets="" />
|
||||
</Target>
|
||||
<Target Name="FacturasProveedor_controller:Clean">
|
||||
<MSBuild Projects="Controller\FacturasProveedor_controller.dproj" Targets="Clean" />
|
||||
</Target>
|
||||
<Target Name="FacturasProveedor_controller:Make">
|
||||
<MSBuild Projects="Controller\FacturasProveedor_controller.dproj" Targets="Make" />
|
||||
</Target>
|
||||
<Target Name="FacturasProveedor_plugin">
|
||||
<MSBuild Projects="Plugin\FacturasProveedor_plugin.dproj" Targets="" />
|
||||
</Target>
|
||||
@ -222,13 +222,13 @@
|
||||
<MSBuild Projects="..\Contactos\Data\Contactos_data.dproj" Targets="Make" />
|
||||
</Target>
|
||||
<Target Name="Build">
|
||||
<CallTarget Targets="Base;GUIBase;ApplicationBase;Contactos_view;Articulos_controller;Articulos_view;PedidosProveedor_controller;AlbaranesProveedor_controller;RecibosProveedor_controller;FacturasProveedor_model;FacturasProveedor_data;FacturasProveedor_controller;FacturasProveedor_view;FacturasProveedor_plugin;FactuGES;FactuGES_Server;Contabilidad_view;Contabilidad_controller;Contactos_model;Contactos_controller;Contactos_data" />
|
||||
<CallTarget Targets="Base;GUIBase;ApplicationBase;Contactos_view;Articulos_controller;Articulos_view;PedidosProveedor_controller;AlbaranesProveedor_controller;RecibosProveedor_controller;FacturasProveedor_model;FacturasProveedor_data;FacturasProveedor_view;FacturasProveedor_controller;FacturasProveedor_plugin;FactuGES;FactuGES_Server;Contabilidad_view;Contabilidad_controller;Contactos_model;Contactos_controller;Contactos_data" />
|
||||
</Target>
|
||||
<Target Name="Clean">
|
||||
<CallTarget Targets="Base:Clean;GUIBase:Clean;ApplicationBase:Clean;Contactos_view:Clean;Articulos_controller:Clean;Articulos_view:Clean;PedidosProveedor_controller:Clean;AlbaranesProveedor_controller:Clean;RecibosProveedor_controller:Clean;FacturasProveedor_model:Clean;FacturasProveedor_data:Clean;FacturasProveedor_controller:Clean;FacturasProveedor_view:Clean;FacturasProveedor_plugin:Clean;FactuGES:Clean;FactuGES_Server:Clean;Contabilidad_view:Clean;Contabilidad_controller:Clean;Contactos_model:Clean;Contactos_controller:Clean;Contactos_data:Clean" />
|
||||
<CallTarget Targets="Base:Clean;GUIBase:Clean;ApplicationBase:Clean;Contactos_view:Clean;Articulos_controller:Clean;Articulos_view:Clean;PedidosProveedor_controller:Clean;AlbaranesProveedor_controller:Clean;RecibosProveedor_controller:Clean;FacturasProveedor_model:Clean;FacturasProveedor_data:Clean;FacturasProveedor_view:Clean;FacturasProveedor_controller:Clean;FacturasProveedor_plugin:Clean;FactuGES:Clean;FactuGES_Server:Clean;Contabilidad_view:Clean;Contabilidad_controller:Clean;Contactos_model:Clean;Contactos_controller:Clean;Contactos_data:Clean" />
|
||||
</Target>
|
||||
<Target Name="Make">
|
||||
<CallTarget Targets="Base:Make;GUIBase:Make;ApplicationBase:Make;Contactos_view:Make;Articulos_controller:Make;Articulos_view:Make;PedidosProveedor_controller:Make;AlbaranesProveedor_controller:Make;RecibosProveedor_controller:Make;FacturasProveedor_model:Make;FacturasProveedor_data:Make;FacturasProveedor_controller:Make;FacturasProveedor_view:Make;FacturasProveedor_plugin:Make;FactuGES:Make;FactuGES_Server:Make;Contabilidad_view:Make;Contabilidad_controller:Make;Contactos_model:Make;Contactos_controller:Make;Contactos_data:Make" />
|
||||
<CallTarget Targets="Base:Make;GUIBase:Make;ApplicationBase:Make;Contactos_view:Make;Articulos_controller:Make;Articulos_view:Make;PedidosProveedor_controller:Make;AlbaranesProveedor_controller:Make;RecibosProveedor_controller:Make;FacturasProveedor_model:Make;FacturasProveedor_data:Make;FacturasProveedor_view:Make;FacturasProveedor_controller:Make;FacturasProveedor_plugin:Make;FactuGES:Make;FactuGES_Server:Make;Contabilidad_view:Make;Contabilidad_controller:Make;Contactos_model:Make;Contactos_controller:Make;Contactos_data:Make" />
|
||||
</Target>
|
||||
<Import Condition="Exists('$(MSBuildBinPath)\Borland.Group.Targets')" Project="$(MSBuildBinPath)\Borland.Group.Targets" />
|
||||
</Project>
|
||||
@ -307,7 +307,7 @@ begin
|
||||
ID_TIPO_IVA := AppFactuGES.EmpresaActiva.ID_TIPO_IVA;
|
||||
|
||||
RE := 0;
|
||||
// SITUACION := CTE_PENDIENTE;
|
||||
SITUACION := CTE_PENDIENTE;
|
||||
ID_TIENDA := AppFactuGES.TiendaActiva.ID;
|
||||
TIENDA := AppFactuGES.TiendaActiva.NOMBRE;
|
||||
|
||||
|
||||
@ -20,7 +20,7 @@ implementation
|
||||
{$R *.dfm}
|
||||
|
||||
uses
|
||||
uDialogUtils, uBizDetallesContratoCliente, uBizDetallesAlbaranCliente,
|
||||
uFactuGES_App, uDialogUtils, uBizDetallesContratoCliente, uBizDetallesAlbaranCliente,
|
||||
uContratosClienteController, uAlbaranesClienteController, uClientesController,
|
||||
uDetallesAlbaranClienteController, uControllerDetallesBase,
|
||||
uBizContactos, schContratosClienteClient_Intf,
|
||||
@ -205,6 +205,10 @@ begin
|
||||
end;
|
||||
}
|
||||
AuxAlbaran := AAlbaranesClienteController.Nuevo;
|
||||
AuxAlbaran.ID_EMPRESA := AppFactuGES.EmpresaActiva.ID;
|
||||
AuxAlbaran.ID_TIENDA := AppFactuGES.TiendaActiva.ID;
|
||||
AuxAlbaran.TIENDA := AppFactuGES.TiendaActiva.NOMBRE;
|
||||
|
||||
CopiarContratoAAlbaran(AContrato, AuxAlbaran);
|
||||
CopiarDetallesAAlbaran(AContrato, AuxAlbaran, AContrato.Detalles);
|
||||
|
||||
|
||||
@ -70,7 +70,6 @@ begin
|
||||
AFactura.IVA := AContrato.IVA;
|
||||
AFactura.IMPORTE_IVA := AContrato.IMPORTE_IVA;
|
||||
AFactura.IMPORTE_TOTAL := AContrato.IMPORTE_TOTAL;
|
||||
AFactura.ID_TIENDA := AppFactuGES.TiendaActiva.ID;
|
||||
// AFactura.ID_VENDEDOR := AContrato.ID_VENDEDOR;
|
||||
AFactura.RECARGO_EQUIVALENCIA := AContrato.RECARGO_EQUIVALENCIA;
|
||||
AFactura.RE := AContrato.RE;
|
||||
@ -197,6 +196,10 @@ begin
|
||||
|
||||
try
|
||||
AFactura := AFacturasClienteController.Nuevo;
|
||||
AFactura.ID_EMPRESA := AppFactuGES.EmpresaActiva.ID;
|
||||
AFactura.ID_TIENDA := AppFactuGES.TiendaActiva.ID;
|
||||
AFactura.TIENDA := AppFactuGES.TiendaActiva.NOMBRE;
|
||||
|
||||
CopiarContratoAFactura(AContrato, AFactura);
|
||||
CopiarDetallesAFactura(AContrato, AFactura, AContrato.Detalles);
|
||||
|
||||
|
||||
@ -117,7 +117,6 @@ begin
|
||||
AContrato.IVA := APresupuesto.IVA;
|
||||
AContrato.IMPORTE_IVA := APresupuesto.IMPORTE_IVA;
|
||||
AContrato.IMPORTE_TOTAL := APresupuesto.IMPORTE_TOTAL;
|
||||
AContrato.ID_TIENDA := APresupuesto.ID_TIENDA;
|
||||
AContrato.ID_VENDEDOR := APresupuesto.ID_VENDEDOR;
|
||||
AContrato.RECARGO_EQUIVALENCIA := APresupuesto.RECARGO_EQUIVALENCIA;
|
||||
AContrato.RE := APresupuesto.RE;
|
||||
@ -253,6 +252,9 @@ begin
|
||||
try
|
||||
AContrato := AContratosClienteController.Nuevo;
|
||||
AContrato.ID_EMPRESA := AppFactuGES.EmpresaActiva.ID;
|
||||
AContrato.ID_TIENDA := AppFactuGES.TiendaActiva.ID;
|
||||
AContrato.TIENDA := AppFactuGES.TiendaActiva.NOMBRE;
|
||||
|
||||
CopiarPresupuestoAContrato(APresupuesto, AContrato);
|
||||
CopiarDetallesAContrato(APresupuesto, AContrato, APresupuesto.Detalles);
|
||||
|
||||
|
||||
@ -937,6 +937,10 @@
|
||||
</Parameter>
|
||||
<Parameter Name="VerLogotipo" DataType="Boolean" Flag="In" >
|
||||
</Parameter>
|
||||
<Parameter Name="VerPrecios" DataType="Boolean" Flag="In" >
|
||||
</Parameter>
|
||||
<Parameter Name="VerTotales" DataType="Boolean" Flag="In" >
|
||||
</Parameter>
|
||||
</Parameters>
|
||||
</Operation>
|
||||
<Operation Name="GenerarInformeEnPDF" UID="{BFA4B911-5DE4-44DF-BB65-1A37D64AF78E}">
|
||||
@ -949,6 +953,10 @@
|
||||
</Parameter>
|
||||
<Parameter Name="VerLogotipo" DataType="Boolean" Flag="In" >
|
||||
</Parameter>
|
||||
<Parameter Name="VerPrecios" DataType="Boolean" Flag="In" >
|
||||
</Parameter>
|
||||
<Parameter Name="VerTotales" DataType="Boolean" Flag="In" >
|
||||
</Parameter>
|
||||
</Parameters>
|
||||
</Operation>
|
||||
</Operations>
|
||||
|
||||
@ -859,8 +859,10 @@ type
|
||||
{ IsrvContratosCliente }
|
||||
IsrvContratosCliente = interface(IDataAbstractService)
|
||||
['{ADBF1627-F507-4A0F-818E-38BAE28579B6}']
|
||||
function GenerarInforme(const ListaID: TIntegerArray; const NombreEmpresa: AnsiString; const VerLogotipo: Boolean): Binary;
|
||||
function GenerarInformeEnPDF(const ListaID: TIntegerArray; const NombreEmpresa: AnsiString; const VerLogotipo: Boolean): Binary;
|
||||
function GenerarInforme(const ListaID: TIntegerArray; const NombreEmpresa: AnsiString; const VerLogotipo: Boolean; const VerPrecios: Boolean;
|
||||
const VerTotales: Boolean): Binary;
|
||||
function GenerarInformeEnPDF(const ListaID: TIntegerArray; const NombreEmpresa: AnsiString; const VerLogotipo: Boolean; const VerPrecios: Boolean;
|
||||
const VerTotales: Boolean): Binary;
|
||||
end;
|
||||
|
||||
{ CosrvContratosCliente }
|
||||
@ -873,8 +875,10 @@ type
|
||||
protected
|
||||
function __GetInterfaceName:string; override;
|
||||
|
||||
function GenerarInforme(const ListaID: TIntegerArray; const NombreEmpresa: AnsiString; const VerLogotipo: Boolean): Binary;
|
||||
function GenerarInformeEnPDF(const ListaID: TIntegerArray; const NombreEmpresa: AnsiString; const VerLogotipo: Boolean): Binary;
|
||||
function GenerarInforme(const ListaID: TIntegerArray; const NombreEmpresa: AnsiString; const VerLogotipo: Boolean; const VerPrecios: Boolean;
|
||||
const VerTotales: Boolean): Binary;
|
||||
function GenerarInformeEnPDF(const ListaID: TIntegerArray; const NombreEmpresa: AnsiString; const VerLogotipo: Boolean; const VerPrecios: Boolean;
|
||||
const VerTotales: Boolean): Binary;
|
||||
end;
|
||||
|
||||
{ IsrvSubfamilias }
|
||||
@ -2786,7 +2790,8 @@ begin
|
||||
result := 'srvContratosCliente';
|
||||
end;
|
||||
|
||||
function TsrvContratosCliente_Proxy.GenerarInforme(const ListaID: TIntegerArray; const NombreEmpresa: AnsiString; const VerLogotipo: Boolean): Binary;
|
||||
function TsrvContratosCliente_Proxy.GenerarInforme(const ListaID: TIntegerArray; const NombreEmpresa: AnsiString; const VerLogotipo: Boolean; const VerPrecios: Boolean;
|
||||
const VerTotales: Boolean): Binary;
|
||||
begin
|
||||
try
|
||||
result := nil;
|
||||
@ -2794,6 +2799,8 @@ begin
|
||||
__Message.Write('ListaID', TypeInfo(FactuGES_Intf.TIntegerArray), ListaID, []);
|
||||
__Message.Write('NombreEmpresa', TypeInfo(AnsiString), NombreEmpresa, []);
|
||||
__Message.Write('VerLogotipo', TypeInfo(Boolean), VerLogotipo, []);
|
||||
__Message.Write('VerPrecios', TypeInfo(Boolean), VerPrecios, []);
|
||||
__Message.Write('VerTotales', TypeInfo(Boolean), VerTotales, []);
|
||||
__Message.Finalize;
|
||||
|
||||
__TransportChannel.Dispatch(__Message);
|
||||
@ -2805,7 +2812,8 @@ begin
|
||||
end
|
||||
end;
|
||||
|
||||
function TsrvContratosCliente_Proxy.GenerarInformeEnPDF(const ListaID: TIntegerArray; const NombreEmpresa: AnsiString; const VerLogotipo: Boolean): Binary;
|
||||
function TsrvContratosCliente_Proxy.GenerarInformeEnPDF(const ListaID: TIntegerArray; const NombreEmpresa: AnsiString; const VerLogotipo: Boolean; const VerPrecios: Boolean;
|
||||
const VerTotales: Boolean): Binary;
|
||||
begin
|
||||
try
|
||||
result := nil;
|
||||
@ -2813,6 +2821,8 @@ begin
|
||||
__Message.Write('ListaID', TypeInfo(FactuGES_Intf.TIntegerArray), ListaID, []);
|
||||
__Message.Write('NombreEmpresa', TypeInfo(AnsiString), NombreEmpresa, []);
|
||||
__Message.Write('VerLogotipo', TypeInfo(Boolean), VerLogotipo, []);
|
||||
__Message.Write('VerPrecios', TypeInfo(Boolean), VerPrecios, []);
|
||||
__Message.Write('VerTotales', TypeInfo(Boolean), VerTotales, []);
|
||||
__Message.Finalize;
|
||||
|
||||
__TransportChannel.Dispatch(__Message);
|
||||
|
||||
@ -2276,11 +2276,14 @@ begin
|
||||
end;
|
||||
|
||||
procedure TsrvContratosCliente_Invoker.Invoke_GenerarInforme(const __Instance:IInterface; const __Message:IROMessage; const __Transport:IROTransport; out __oResponseOptions:TROResponseOptions);
|
||||
{ function GenerarInforme(const ListaID: TIntegerArray; const NombreEmpresa: AnsiString; const VerLogotipo: Boolean): Binary; }
|
||||
{ function GenerarInforme(const ListaID: TIntegerArray; const NombreEmpresa: AnsiString; const VerLogotipo: Boolean; const VerPrecios: Boolean;
|
||||
const VerTotales: Boolean): Binary; }
|
||||
var
|
||||
ListaID: FactuGES_Intf.TIntegerArray;
|
||||
NombreEmpresa: AnsiString;
|
||||
VerLogotipo: Boolean;
|
||||
VerPrecios: Boolean;
|
||||
VerTotales: Boolean;
|
||||
lResult: Binary;
|
||||
__lObjectDisposer: TROObjectDisposer;
|
||||
begin
|
||||
@ -2290,8 +2293,10 @@ begin
|
||||
__Message.Read('ListaID', TypeInfo(FactuGES_Intf.TIntegerArray), ListaID, []);
|
||||
__Message.Read('NombreEmpresa', TypeInfo(AnsiString), NombreEmpresa, []);
|
||||
__Message.Read('VerLogotipo', TypeInfo(Boolean), VerLogotipo, []);
|
||||
__Message.Read('VerPrecios', TypeInfo(Boolean), VerPrecios, []);
|
||||
__Message.Read('VerTotales', TypeInfo(Boolean), VerTotales, []);
|
||||
|
||||
lResult := (__Instance as IsrvContratosCliente).GenerarInforme(ListaID, NombreEmpresa, VerLogotipo);
|
||||
lResult := (__Instance as IsrvContratosCliente).GenerarInforme(ListaID, NombreEmpresa, VerLogotipo, VerPrecios, VerTotales);
|
||||
|
||||
__Message.InitializeResponseMessage(__Transport, 'FactuGES', 'srvContratosCliente', 'GenerarInformeResponse');
|
||||
__Message.Write('Result', TypeInfo(Binary), lResult, []);
|
||||
@ -2310,11 +2315,14 @@ begin
|
||||
end;
|
||||
|
||||
procedure TsrvContratosCliente_Invoker.Invoke_GenerarInformeEnPDF(const __Instance:IInterface; const __Message:IROMessage; const __Transport:IROTransport; out __oResponseOptions:TROResponseOptions);
|
||||
{ function GenerarInformeEnPDF(const ListaID: TIntegerArray; const NombreEmpresa: AnsiString; const VerLogotipo: Boolean): Binary; }
|
||||
{ function GenerarInformeEnPDF(const ListaID: TIntegerArray; const NombreEmpresa: AnsiString; const VerLogotipo: Boolean; const VerPrecios: Boolean;
|
||||
const VerTotales: Boolean): Binary; }
|
||||
var
|
||||
ListaID: FactuGES_Intf.TIntegerArray;
|
||||
NombreEmpresa: AnsiString;
|
||||
VerLogotipo: Boolean;
|
||||
VerPrecios: Boolean;
|
||||
VerTotales: Boolean;
|
||||
lResult: Binary;
|
||||
__lObjectDisposer: TROObjectDisposer;
|
||||
begin
|
||||
@ -2324,8 +2332,10 @@ begin
|
||||
__Message.Read('ListaID', TypeInfo(FactuGES_Intf.TIntegerArray), ListaID, []);
|
||||
__Message.Read('NombreEmpresa', TypeInfo(AnsiString), NombreEmpresa, []);
|
||||
__Message.Read('VerLogotipo', TypeInfo(Boolean), VerLogotipo, []);
|
||||
__Message.Read('VerPrecios', TypeInfo(Boolean), VerPrecios, []);
|
||||
__Message.Read('VerTotales', TypeInfo(Boolean), VerTotales, []);
|
||||
|
||||
lResult := (__Instance as IsrvContratosCliente).GenerarInformeEnPDF(ListaID, NombreEmpresa, VerLogotipo);
|
||||
lResult := (__Instance as IsrvContratosCliente).GenerarInformeEnPDF(ListaID, NombreEmpresa, VerLogotipo, VerPrecios, VerTotales);
|
||||
|
||||
__Message.InitializeResponseMessage(__Transport, 'FactuGES', 'srvContratosCliente', 'GenerarInformeEnPDFResponse');
|
||||
__Message.Write('Result', TypeInfo(Binary), lResult, []);
|
||||
|
||||
Binary file not shown.
@ -28,7 +28,7 @@
|
||||
<Borland.Personality>Delphi.Personality</Borland.Personality>
|
||||
<Borland.ProjectType/>
|
||||
<BorlandProject>
|
||||
<BorlandProject><Delphi.Personality><Parameters><Parameters Name="UseLauncher">False</Parameters><Parameters Name="LoadAllSymbols">True</Parameters><Parameters Name="LoadUnspecifiedSymbols">False</Parameters></Parameters><VersionInfo><VersionInfo Name="IncludeVerInfo">True</VersionInfo><VersionInfo Name="AutoIncBuild">False</VersionInfo><VersionInfo Name="MajorVer">2</VersionInfo><VersionInfo Name="MinorVer">5</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.5.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.5.9.0</VersionInfoKeys><VersionInfoKeys Name="Comments"></VersionInfoKeys><VersionInfoKeys Name="CompileDate">lunes, 03 de junio de 2013 12:33</VersionInfoKeys></VersionInfoKeys><Excluded_Packages>
|
||||
<BorlandProject><Delphi.Personality><Parameters><Parameters Name="UseLauncher">False</Parameters><Parameters Name="LoadAllSymbols">True</Parameters><Parameters Name="LoadUnspecifiedSymbols">False</Parameters></Parameters><VersionInfo><VersionInfo Name="IncludeVerInfo">True</VersionInfo><VersionInfo Name="AutoIncBuild">False</VersionInfo><VersionInfo Name="MajorVer">2</VersionInfo><VersionInfo Name="MinorVer">6</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.6.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.6.0.0</VersionInfoKeys><VersionInfoKeys Name="Comments"></VersionInfoKeys><VersionInfoKeys Name="CompileDate">jueves, 13 de junio de 2013 17:17</VersionInfoKeys></VersionInfoKeys><Excluded_Packages>
|
||||
<Excluded_Packages Name="C:\Documents and Settings\All Users\Documentos\RAD Studio\5.0\Bpl\dxPScxScheduler2LnkD11.bpl">File C:\Documents and Settings\All Users\Documentos\RAD Studio\5.0\Bpl\dxPScxScheduler2LnkD11.bpl not found</Excluded_Packages>
|
||||
</Excluded_Packages><Source><Source Name="MainSource">FactuGES_Server.dpr</Source></Source></Delphi.Personality></BorlandProject></BorlandProject>
|
||||
</ProjectExtensions>
|
||||
|
||||
Binary file not shown.
Loading…
Reference in New Issue
Block a user