roberto
cf06afcd3d
git-svn-id: https://192.168.0.254/svn/Proyectos.AlonsoYSal_FactuGES/trunk@25 9a1d36f3-7752-2d40-8ccb-50eb49674c68
132 lines
4.2 KiB
ObjectPascal
132 lines
4.2 KiB
ObjectPascal
unit uViewFacturaProveedor;
|
|
|
|
interface
|
|
|
|
uses
|
|
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
|
|
Dialogs, uViewBase, DB, uDADataTable, uCustomView,
|
|
uViewDatosYSeleccionContacto, uViewDatosFacturaProveedor,
|
|
uViewObservaciones, uViewFormaPago, AppEvnts, uBizFacturasProveedor,
|
|
cxControls, cxContainer, cxEdit, cxTextEdit, cxDBEdit;
|
|
|
|
type
|
|
IViewFacturaProveedor = interface(IViewBase)
|
|
['{B3E29576-9318-4EA7-B778-AFDA6CA3A716}']
|
|
function GetFacturaProveedor: IBizFacturasProveedor;
|
|
procedure SetFacturaProveedor(const Value: IBizFacturasProveedor);
|
|
property FacturaProveedor: IBizFacturasProveedor read GetFacturaProveedor
|
|
write SetFacturaProveedor;
|
|
end;
|
|
|
|
TfrViewFacturaProveedor = class(TfrViewBase, IViewFacturaProveedor)
|
|
DADataSource: TDADataSource;
|
|
frViewDatosYSeleccionContacto1: TfrViewDatosYSeleccionContacto;
|
|
frViewObservaciones1: TfrViewObservaciones;
|
|
frViewFormaPago1: TfrViewFormaPago;
|
|
frViewDatosFacturaProveedor1: TfrViewDatosFacturaProveedor;
|
|
procedure frViewDatosYSeleccionContacto1actElegirContactoExecute(
|
|
Sender: TObject);
|
|
procedure frViewDatosYSeleccionContacto1actAnadirContactoExecute(
|
|
Sender: TObject);
|
|
procedure frViewDatosYSeleccionContacto1actVerContactoExecute(
|
|
Sender: TObject);
|
|
procedure frViewDatosYSeleccionContacto1edtlNombrePropertiesEditValueChanged(
|
|
Sender: TObject);
|
|
private
|
|
FFacturaProveedor : IBizFacturasProveedor;
|
|
procedure OnContactoChanged (Sender : TObject);
|
|
protected
|
|
function GetFacturaProveedor: IBizFacturasProveedor;
|
|
procedure SetFacturaProveedor(const Value: IBizFacturasProveedor);
|
|
public
|
|
property FacturaProveedor: IBizFacturasProveedor read GetFacturaProveedor
|
|
write SetFacturaProveedor;
|
|
end;
|
|
|
|
var
|
|
frViewFacturaProveedor: TfrViewFacturaProveedor;
|
|
|
|
implementation
|
|
|
|
uses uBizContacto, uExceptions, uDataModuleContactos;
|
|
|
|
{$R *.dfm}
|
|
|
|
{ TfrViewFacturaProveedor }
|
|
|
|
function TfrViewFacturaProveedor.GetFacturaProveedor: IBizFacturasProveedor;
|
|
begin
|
|
Result := FFacturaProveedor;
|
|
end;
|
|
|
|
procedure TfrViewFacturaProveedor.OnContactoChanged(Sender: TObject);
|
|
begin
|
|
FFacturaProveedor.Proveedor := (frViewDatosYSeleccionContacto1.Contacto as IBizProveedor);
|
|
end;
|
|
|
|
procedure TfrViewFacturaProveedor.SetFacturaProveedor(
|
|
const Value: IBizFacturasProveedor);
|
|
begin
|
|
FFacturaProveedor := Value;
|
|
if Assigned(FFacturaProveedor) then
|
|
DADataSource.DataTable := FFacturaProveedor.DataTable
|
|
else
|
|
DADataSource.DataTable := NIL;
|
|
|
|
frViewDatosFacturaProveedor1.DADataSource.DataTable := DADataSource.DataTable;
|
|
frViewObservaciones1.DADataSource.DataTable := DADataSource.DataTable;
|
|
frViewFormaPago1.DADataSource.DataTable := DADataSource.DataTable;
|
|
|
|
frViewDatosYSeleccionContacto1.Contacto := FFacturaProveedor.Proveedor;
|
|
frViewDatosYSeleccionContacto1.OnContactoChanged := OnContactoChanged;
|
|
|
|
// frViewPresupuestoFactura1.FacturaProveedor := FFacturaProveedor;
|
|
end;
|
|
|
|
procedure TfrViewFacturaProveedor.frViewDatosYSeleccionContacto1actElegirContactoExecute(
|
|
Sender: TObject);
|
|
begin
|
|
inherited;
|
|
frViewDatosYSeleccionContacto1.actElegirContactoExecute(Sender);
|
|
|
|
end;
|
|
|
|
procedure TfrViewFacturaProveedor.frViewDatosYSeleccionContacto1actAnadirContactoExecute(
|
|
Sender: TObject);
|
|
begin
|
|
inherited;
|
|
frViewDatosYSeleccionContacto1.actAnadirContactoExecute(Sender);
|
|
|
|
end;
|
|
|
|
procedure TfrViewFacturaProveedor.frViewDatosYSeleccionContacto1actVerContactoExecute(
|
|
Sender: TObject);
|
|
var
|
|
AContacto : IBizProveedor;
|
|
begin
|
|
inherited;
|
|
AContacto := dmContactos.GetProveedor(FFacturaProveedor.CODIGOPROVEEDOR);
|
|
try
|
|
if Assigned(AContacto) then
|
|
begin
|
|
AContacto.DataTable.Open;
|
|
if (AContacto.DataTable.RecordCount = 0) or (AContacto.BAJA_LOGICA = 1) then
|
|
ShowMessage('La ficha ha sido eliminada de programa.')
|
|
else
|
|
AContacto.Show;
|
|
end;
|
|
finally
|
|
AContacto := NIL;
|
|
end;
|
|
end;
|
|
|
|
procedure TfrViewFacturaProveedor.frViewDatosYSeleccionContacto1edtlNombrePropertiesEditValueChanged(
|
|
Sender: TObject);
|
|
begin
|
|
inherited;
|
|
with (Sender as TcxDBTextEdit) do
|
|
Enabled := (FFacturaProveedor.CODIGOPROVEEDOR <> 0)
|
|
end;
|
|
|
|
end.
|