roberto
43e5f77582
git-svn-id: https://192.168.0.254/svn/Proyectos.Tecsitel_FactuGES2/trunk@116 0c75b7a4-871f-7646-8a2f-f78d34cc349f
412 lines
14 KiB
ObjectPascal
412 lines
14 KiB
ObjectPascal
unit uEditorFacturaProveedor;
|
||
|
||
interface
|
||
|
||
uses
|
||
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
|
||
Dialogs, uEditorDBItem, DB, uDADataTable, JvAppStorage,
|
||
JvAppRegistryStorage, JvComponent, JvFormPlacement, ImgList,
|
||
PngImageList, StdActns, ActnList, ComCtrls, TBX, TB2Item, TB2Dock,
|
||
TB2Toolbar, ExtCtrls, JvExControls, JvNavigationPane,
|
||
uCustomView, uViewBase, uViewTotales,
|
||
StdCtrls, pngimage, AppEvnts, JvComponentBase,
|
||
uBizFacturasProveedor, uIEditorFacturaProveedor, uFacturasProveedorController, uViewDetallesBase,
|
||
dxLayoutLookAndFeels, JvExComCtrls, JvStatusBar,
|
||
uViewDetallesDTO, uViewDetallesArticulos, uTiposIVAController,
|
||
uViewDetallesFacturaProveedor, uViewFacturaProveedor, uDAInterfaces;
|
||
|
||
|
||
type
|
||
TfEditorFacturaProveedor = class(TfEditorDBItem, IEditorFacturaProveedor)
|
||
frViewTotales1: TfrViewTotales;
|
||
frViewFacturaProveedor1: TfrViewFacturaProveedor;
|
||
frViewDetallesFacturaProveedor1: TfrViewDetallesFacturaProveedor;
|
||
procedure FormShow(Sender: TObject);
|
||
procedure frViewProveedorFactura1edtlNombrePropertiesEditValueChanged(
|
||
Sender: TObject);
|
||
procedure dsDataTableDataChange(Sender: TObject; Field: TField);
|
||
procedure CustomEditorClose(Sender: TObject; var Action: TCloseAction);
|
||
procedure frViewProveedorFacturaedtlNombrePropertiesChange(Sender: TObject);
|
||
procedure pgPaginasChanging(Sender: TObject; var AllowChange: Boolean);
|
||
procedure frViewTotales1edtDescuentoPropertiesValidate(Sender: TObject;
|
||
var DisplayValue: Variant; var ErrorText: TCaption; var Error: Boolean);
|
||
procedure frViewTotales1bTiposIVAClick(Sender: TObject);
|
||
procedure frViewTotales1eIVAPropertiesValidate(Sender: TObject;
|
||
var DisplayValue: Variant; var ErrorText: TCaption; var Error: Boolean);
|
||
procedure frViewTotales1cbRecargoEquivalenciaPropertiesEditValueChanged(Sender: TObject);
|
||
procedure frViewTotales1ePortePropertiesValidate(Sender: TObject;
|
||
var DisplayValue: Variant; var ErrorText: TCaption; var Error: Boolean);
|
||
procedure frViewTotales1ePorteEditing(Sender: TObject; var CanEdit: Boolean);
|
||
private
|
||
procedure RecalcularPortePorUnidad;
|
||
|
||
protected
|
||
FController : IFacturasProveedorController;
|
||
FFactura: IBizFacturaProveedor;
|
||
FViewFactura: IViewFacturaProveedor;
|
||
FTiposIVAController : ITiposIVAController;
|
||
function GetController : IFacturasProveedorController;
|
||
procedure SetController (const Value : IFacturasProveedorController);
|
||
function GetFactura: IBizFacturaProveedor;
|
||
procedure SetFactura(const Value: IBizFacturaProveedor);
|
||
|
||
function GetViewFactura: IViewFacturaProveedor;
|
||
procedure SetViewFactura(const Value: IViewFacturaProveedor);
|
||
|
||
property ViewFacturaProveedor: IViewFacturaProveedor read GetViewFactura write SetViewFactura;
|
||
|
||
procedure OnProveedorChanged(Sender: TObject);
|
||
|
||
procedure GuardarInterno; override;
|
||
procedure EliminarInterno; override;
|
||
procedure ImprimirInterno; override;
|
||
procedure PrevisualizarInterno; override;
|
||
|
||
procedure PonerTitulos(const ATitulo: string = ''); override;
|
||
public
|
||
destructor Destroy; override;
|
||
property Controller : IFacturasProveedorController read GetController write SetController;
|
||
property Factura: IBizFacturaProveedor read GetFactura write SetFactura;
|
||
constructor Create(AOwner: TComponent); override;
|
||
end;
|
||
|
||
implementation
|
||
{$R *.dfm}
|
||
|
||
uses
|
||
cxDBEdit, uBizContactos, uDataModuleUsuarios, cxControls, uBizTiposIVA,
|
||
uDetallesFacturaProveedorController, uDialogUtils, uDataTableUtils;
|
||
// uGenerarAlbaranesProvFacProvUtils;
|
||
|
||
|
||
{ TfEditorFacturaProveedor }
|
||
|
||
{
|
||
**************************** TfEditorFacturaProveedor ****************************
|
||
}
|
||
constructor TfEditorFacturaProveedor.Create(AOwner: TComponent);
|
||
begin
|
||
inherited;
|
||
pgPaginas.ActivePageIndex := 0;
|
||
ViewFacturaProveedor := frViewFacturaProveedor1;
|
||
FTiposIVAController := TTiposIVAController.Create;
|
||
end;
|
||
|
||
procedure TfEditorFacturaProveedor.CustomEditorClose(Sender: TObject;
|
||
var Action: TCloseAction);
|
||
begin
|
||
inherited;
|
||
dsDataTable.DataTable := NIL;
|
||
frViewTotales1.DADataSource.DataTable := NIL;
|
||
|
||
FViewFactura := NIL;
|
||
FFactura := NIL;
|
||
end;
|
||
|
||
destructor TfEditorFacturaProveedor.Destroy;
|
||
begin
|
||
FTiposIVAController := NIL;
|
||
inherited;
|
||
end;
|
||
|
||
procedure TfEditorFacturaProveedor.dsDataTableDataChange(Sender: TObject;
|
||
Field: TField);
|
||
begin
|
||
inherited;
|
||
if Assigned(FFactura) and (not (FFactura.DataTable.Fetching) or
|
||
not (FFactura.DataTable.Opening) or not (FFactura.DataTable.Closing)) then
|
||
PonerTitulos;
|
||
end;
|
||
|
||
procedure TfEditorFacturaProveedor.EliminarInterno;
|
||
var
|
||
AMensaje : String;
|
||
begin
|
||
if FFactura.TIPO = CTE_TIPO_ABONO then
|
||
AMensaje := '<27>Desea borrar esta factura de proveedor?'
|
||
else
|
||
AMensaje := '<27>Desea borrar este abono de proveedor?';
|
||
|
||
if (Application.MessageBox(PChar(AMensaje), 'Atenci<63>n', MB_YESNO) = IDYES) then
|
||
begin
|
||
FController.Eliminar(Factura);
|
||
inherited;
|
||
end;
|
||
end;
|
||
|
||
procedure TfEditorFacturaProveedor.FormShow(Sender: TObject);
|
||
begin
|
||
inherited;
|
||
|
||
if not Assigned(FViewFactura) then
|
||
raise Exception.Create('No hay ninguna vista asignada');
|
||
|
||
if not Assigned(Factura) then
|
||
raise Exception.Create('No hay ninguna factura asignada');
|
||
|
||
Factura.DataTable.Active := True;
|
||
end;
|
||
|
||
procedure TfEditorFacturaProveedor.frViewProveedorFactura1edtlNombrePropertiesEditValueChanged(Sender: TObject);
|
||
begin
|
||
inherited;
|
||
with (Sender as TcxDBTextEdit) do
|
||
Enabled := (FFactura.ID <> 0)
|
||
end;
|
||
|
||
procedure TfEditorFacturaProveedor.frViewProveedorFacturaedtlNombrePropertiesChange(
|
||
Sender: TObject);
|
||
begin
|
||
inherited;
|
||
PonerTitulos;
|
||
end;
|
||
|
||
procedure TfEditorFacturaProveedor.frViewTotales1bTiposIVAClick(Sender: TObject);
|
||
begin
|
||
inherited;
|
||
FTiposIVAController.VerTodos((frViewTotales1.dsTiposIVA.DataTable) as IBizTipoIVA);
|
||
end;
|
||
|
||
procedure TfEditorFacturaProveedor.frViewTotales1cbRecargoEquivalenciaPropertiesEditValueChanged(
|
||
Sender: TObject);
|
||
begin
|
||
inherited;
|
||
{ if frViewTotales1.cbRecargoEquivalencia.Checked then
|
||
Factura.RECARGO_EQUIVALENCIA := 1
|
||
else
|
||
Factura.RECARGO_EQUIVALENCIA := 0;}
|
||
end;
|
||
|
||
procedure TfEditorFacturaProveedor.frViewTotales1edtDescuentoPropertiesValidate(
|
||
Sender: TObject; var DisplayValue: Variant; var ErrorText: TCaption;
|
||
var Error: Boolean);
|
||
begin
|
||
inherited;
|
||
Factura.DESCUENTO := DisplayValue;
|
||
end;
|
||
|
||
procedure TfEditorFacturaProveedor.frViewTotales1eIVAPropertiesValidate(
|
||
Sender: TObject; var DisplayValue: Variant; var ErrorText: TCaption;
|
||
var Error: Boolean);
|
||
begin
|
||
inherited;
|
||
Factura.Edit;
|
||
Factura.ID_TIPO_IVA := ((frViewTotales1.dsTiposIVA.DataTable) as IBizTipoIVA).ID;
|
||
end;
|
||
|
||
procedure TfEditorFacturaProveedor.frViewTotales1ePorteEditing(Sender: TObject; var CanEdit: Boolean);
|
||
begin
|
||
inherited;
|
||
if FFactura.TIPO = CTE_TIPO_ABONO then
|
||
CanEdit := False;
|
||
end;
|
||
|
||
procedure TfEditorFacturaProveedor.frViewTotales1ePortePropertiesValidate(
|
||
Sender: TObject; var DisplayValue: Variant; var ErrorText: TCaption;
|
||
var Error: Boolean);
|
||
begin
|
||
inherited;
|
||
if not VarIsNull(DisplayValue) then
|
||
FFactura.IMPORTE_PORTE := DisplayValue
|
||
else
|
||
FFactura.IMPORTE_PORTE := 0;
|
||
|
||
RecalcularPortePorUnidad;
|
||
end;
|
||
|
||
function TfEditorFacturaProveedor.GetController: IFacturasProveedorController;
|
||
begin
|
||
Result := FController;
|
||
end;
|
||
|
||
function TfEditorFacturaProveedor.GetFactura: IBizFacturaProveedor;
|
||
begin
|
||
Result := FFactura;
|
||
end;
|
||
|
||
function TfEditorFacturaProveedor.GetViewFactura: IViewFacturaProveedor;
|
||
begin
|
||
Result := FViewFactura;
|
||
end;
|
||
|
||
procedure TfEditorFacturaProveedor.GuardarInterno;
|
||
var
|
||
bEsNuevo : Boolean;
|
||
begin
|
||
inherited;
|
||
|
||
ShowHourglassCursor;
|
||
//frViewDetallesFacturaProveedor1.SaveGridStatus; // Para guardar estado del grid
|
||
frViewDetallesFacturaProveedor1.BeginUpdate; // Para que no se mueva el foco
|
||
try
|
||
bEsNuevo := FFactura.EsNuevo;
|
||
FController.Guardar(FFactura);
|
||
finally
|
||
frViewDetallesFacturaProveedor1.EndUpdate;
|
||
//frViewDetallesFacturaProveedor1.RestoreGridStatus;
|
||
HideHourglassCursor;
|
||
end;
|
||
|
||
if bEsNuevo then
|
||
begin
|
||
if FFactura.TIPO = CTE_TIPO_FACTURA then
|
||
ShowInfoMessage('La factura se ha dado de alta con el c<>digo ' + FFactura.REFERENCIA)
|
||
else
|
||
begin
|
||
ShowInfoMessage('El abono se ha dado de alta con el c<>digo ' + FFactura.REFERENCIA);
|
||
//Preguntamos is desea hacer una orden de devoluci<63>n asociada
|
||
if (Application.MessageBox('<27>Desea crear una orden de devoluci<63>n para el abono?', 'Atenci<63>n', MB_YESNO) = IDYES) then
|
||
// GenerarAlbaranProv(FFactura);
|
||
end;
|
||
end;
|
||
Modified := False;
|
||
end;
|
||
|
||
procedure TfEditorFacturaProveedor.ImprimirInterno;
|
||
begin
|
||
inherited;
|
||
FController.Print(FFactura);
|
||
end;
|
||
|
||
procedure TfEditorFacturaProveedor.OnProveedorChanged(Sender: TObject);
|
||
var
|
||
FDetallesController : IDetallesFacturaProveedorController;
|
||
begin
|
||
FFactura.Proveedor := frViewFacturaProveedor1.frViewProveedorFactura.Proveedor;
|
||
|
||
if not (FFactura.DataTable.State in dsEditModes) then
|
||
FFactura.DataTable.Edit;
|
||
|
||
// Actualizar IVA y RE a partir del tipo de IVA del proveedor.
|
||
Factura.IVA := ((frViewTotales1.dsTiposIVA.DataTable) as IBizTipoIVA).IVA;
|
||
// if FFactura.Proveedor.RECARGO_EQUIVALENCIA = 1 then
|
||
// Factura.RE := ((frViewTotales1.dsTiposIVA.DataTable) as IBizTipoIVA).RE
|
||
// else
|
||
// Factura.RE := 0;
|
||
|
||
// Si la factura tiene detalles hay que mirar si los descuentos y otros campos
|
||
// para los art<72>culos hay que cambiarlos.
|
||
if (FFactura.Detalles.RecordCount > 0) then
|
||
begin
|
||
FDetallesController := TDetallesFacturaProveedorController.Create;
|
||
try
|
||
FDetallesController.ActualizarDetalles(FFactura.Detalles, FFactura.Proveedor);
|
||
|
||
//En caso de ser un abono tambi<62>n debe cambiar el signo a los detalles
|
||
if (Factura.TIPO = CTE_TIPO_ABONO) then
|
||
Controller.DetallesController.CambiarSignoDetalles(FFactura.Detalles);
|
||
|
||
finally
|
||
FDetallesController := NIL;
|
||
end;
|
||
end;
|
||
end;
|
||
|
||
procedure TfEditorFacturaProveedor.pgPaginasChanging(Sender: TObject;
|
||
var AllowChange: Boolean);
|
||
var
|
||
AMensaje : String;
|
||
begin
|
||
inherited;
|
||
if (not Assigned(FFactura)) or (FFactura.ID_PROVEEDOR = ID_NULO) then
|
||
begin
|
||
if FFactura.TIPO = CTE_TIPO_FACTURA then
|
||
AMensaje := 'Antes debe elegir un proveedor para esta factura'
|
||
else
|
||
AMensaje := 'Antes debe elegir un proveedor para este abono';
|
||
ShowWarningMessage(AMensaje);
|
||
AllowChange := False;
|
||
end;
|
||
end;
|
||
|
||
procedure TfEditorFacturaProveedor.PonerTitulos(const ATitulo: string);
|
||
var
|
||
FTitulo : String;
|
||
begin
|
||
FTitulo := ATitulo;
|
||
if (FTitulo = '') and Assigned(Factura) then
|
||
begin
|
||
if Factura.EsNuevo then
|
||
if Factura.TIPO = CTE_TIPO_FACTURA then
|
||
FTitulo := 'Nueva factura de proveedor'
|
||
else
|
||
FTitulo := 'Nuevo abono de proveedor'
|
||
else
|
||
if Factura.TIPO = CTE_TIPO_FACTURA then
|
||
FTitulo := 'Factura de proveedor' + ' - ' + FFactura.Proveedor.Nombre
|
||
else
|
||
FTitulo := 'Abono de proveedor' + ' - ' + FFactura.Proveedor.Nombre
|
||
end;
|
||
|
||
inherited PonerTitulos(FTitulo);
|
||
|
||
Self.Caption := FTitulo + ' ('; // + dmUsuarios.EmpresaActual.NOMBRE + ')';
|
||
end;
|
||
|
||
procedure TfEditorFacturaProveedor.PrevisualizarInterno;
|
||
begin
|
||
inherited;
|
||
FController.Preview(FFactura);
|
||
end;
|
||
|
||
procedure TfEditorFacturaProveedor.RecalcularPortePorUnidad;
|
||
begin
|
||
//Esta l<>gica se llamar<61> en el editor porque es para facilitar el rellenado de informaci<63>n del documento
|
||
//no puede ir en la clase de negocio porque no es una l<>gica que tenga sentido fuera del editor.
|
||
if Assigned(Controller)
|
||
and Assigned(Controller.DetallesController) then
|
||
Controller.DetallesController.DesglosarPorteDetalles(FFactura.IMPORTE_PORTE, FFactura.Detalles)
|
||
end;
|
||
|
||
procedure TfEditorFacturaProveedor.SetController(const Value: IFacturasProveedorController);
|
||
begin
|
||
FController := Value;
|
||
|
||
if Assigned(FController) then
|
||
begin
|
||
frViewFacturaProveedor1.frViewProveedorFactura.Controller := Controller.ProveedorController;
|
||
frViewDetallesFacturaProveedor1.Controller := Controller.DetallesController;
|
||
end;
|
||
end;
|
||
|
||
procedure TfEditorFacturaProveedor.SetFactura(const Value: IBizFacturaProveedor);
|
||
begin
|
||
FFactura := Value;
|
||
|
||
if Assigned(FFactura) then
|
||
begin
|
||
dsDataTable.DataTable := FFactura.DataTable;
|
||
frViewTotales1.DADataSource.DataTable := FFactura.DataTable;
|
||
|
||
frViewTotales1.dsTiposIVA.DataTable := FTiposIVAController.BuscarTodos.DataTable;
|
||
frViewTotales1.dsTiposIVA.DataTable.Active := True;
|
||
|
||
if Assigned(FViewFactura) then
|
||
begin
|
||
frViewFacturaProveedor1.frViewProveedorFactura.Proveedor := FFactura.Proveedor;
|
||
frViewFacturaProveedor1.frViewProveedorFactura.OnProveedorChanged := OnProveedorChanged;
|
||
|
||
FViewFactura.Factura := FFactura;
|
||
frViewDetallesFacturaProveedor1.Detalles := FFactura.Detalles;
|
||
frViewDetallesFacturaProveedor1.Factura := FFactura; //Para poder sacar los descuento del articulos segun el proveedor seleccionado
|
||
end;
|
||
end
|
||
else begin
|
||
frViewFacturaProveedor1.frViewProveedorFactura.OnProveedorChanged := NIL;
|
||
frViewFacturaProveedor1.frViewProveedorFactura.Proveedor := NIL;
|
||
dsDataTable.DataTable := NIL;
|
||
frViewTotales1.DADataSource.DataTable := NIL;
|
||
frViewTotales1.dsTiposIVA.DataTable := NIL;
|
||
end
|
||
end;
|
||
|
||
procedure TfEditorFacturaProveedor.SetViewFactura(const Value: IViewFacturaProveedor);
|
||
begin
|
||
FViewFactura := Value;
|
||
|
||
if Assigned(FViewFactura) and Assigned(Factura) then
|
||
FViewFactura.Factura := Factura;
|
||
end;
|
||
|
||
end.
|