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

Se adaptan los presupuestos para que puedan meter bonificaciones como en el preograma antiguo.

Browse Source 
git-svn-id: https://192.168.0.254/svn/Proyectos.Tecsitel_FactuGES2/trunk@764 0c75b7a4-871f-7646-8a2f-f78d34cc349f
This commit is contained in:
roberto 2008-11-11 18:58:30 +00:00
parent 6a6749ba04
commit f2972e8e64
1 changed files with 23 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -62,6 +62,8 @@ type
procedure EnviarPresupuestoPorEMail(APresupuesto : IBizPresupuestoCliente);
function GenerarCertificados(APresupuesto : IBizPresupuestoCliente; AllItems: Boolean = false): Boolean;
function CambiarSituacion(APresupuesto : IBizPresupuestoCliente; Situacion: String; FechaDecision: TDateTime; AllItems: Boolean = false): Boolean;
procedure BorrarBonificacion(APresupuesto : IBizPresupuestoCliente);
end;
TPresupuestosClienteController = class(TControllerBase, IPresupuestosClienteController)
@ -134,6 +136,8 @@ type
function GenerarCertificados(APresupuesto : IBizPresupuestoCliente; AllItems: Boolean = false): Boolean;
procedure EnviarPresupuestoPorEMail(APresupuesto : IBizPresupuestoCliente);
function CambiarSituacion(APresupuesto : IBizPresupuestoCliente; Situacion: String; FechaDecision: TDateTime; AllItems: Boolean = false): Boolean;
procedure BorrarBonificacion(APresupuesto : IBizPresupuestoCliente);
end;
implementation
@ -191,6 +195,25 @@ begin
FDataModule := TDataModulePresupuestosCliente.Create(Nil);
end;
procedure TPresupuestosClienteController.BorrarBonificacion(APresupuesto: IBizPresupuestoCliente);
var
EnEdicion: Boolean;
begin
if Assigned(APresupuesto) then
begin
EnEdicion := APresupuesto.DataTable.Editing;
if not EnEdicion then
APresupuesto.DataTable.Edit;
APresupuesto.DESCRIPCION_BONIFICACIONIsNull := True;
APresupuesto.IMPORTE_BONIFICACIONIsNull := True;
APresupuesto.DataTable.Post;
if EnEdicion then
APresupuesto.DataTable.Edit;
end;
end;
function TPresupuestosClienteController.Buscar(const ID: Integer): IBizPresupuestoCliente;
begin
Result := FDataModule.GetItem(ID);