LuisLeon_FactuGES2/Source/Modulos/Albaranes de proveedor/Model/uBizAlbaranesProveedor.pas

unit uBizAlbaranesProveedor;

interface

uses
  Classes, uDADataTable, uDAInterfaces,
  schAlbaranesProveedorClient_Intf, uDBSelectionListUtils,
  uBizContactos, uBizDetallesAlbaranProveedor;

const
  BIZ_CLIENT_ALBARAN_PROVEEDOR = 'Client.AlbaranProveedor';

  CTE_TIPO_ALBARAN = 'A';
  CTE_TIPO_ALBARAN_DEV = 'D';

  SITUACION_ALBARAN_PENDIENTE = 'PENDIENTE';
  SITUACION_ALBARAN_REALIZADO = 'REALIZADO';    

type
  IBizAlbaranProveedor = interface(IAlbaranesProveedor)
  ['{8042AD9C-08B1-4236-B0EA-F11C4942DFE4}']

    procedure SetProveedor(AValue : IBizProveedor);
    function GetProveedor : IBizProveedor;
    property Proveedor : IBizProveedor read GetProveedor write SetProveedor;

    procedure SetClienteFinal(AValue : IBizCliente);
    function GetClienteFinal : IBizCliente;
    property ClienteFinal : IBizCliente read GetClienteFinal write SetClienteFinal;

    // Esta propidad es para que el controlador pueda acceder directamente
    // a la propiedad Proveedor
    procedure _SetProveedor(AValue : IBizProveedor);
    function _GetProveedor : IBizProveedor;
    property _Proveedor : IBizProveedor read _GetProveedor write _SetProveedor;

    // Esta propidad es para que el controlador pueda acceder directamente
    // a la propiedad Cliente Final
    procedure _SetClienteFinal(AValue : IBizCliente);
    function _GetCLienteFinal : IBizCLiente;
    property _ClienteFinal : IBizCliente read _GetClienteFinal write _SetClienteFinal;

    function GetDetalles: IBizDetallesAlbaranProveedor;
    procedure SetDetalles(Value: IBizDetallesAlbaranProveedor);
    property Detalles: IBizDetallesAlbaranProveedor read GetDetalles write SetDetalles;

    function EsNuevo : Boolean;
  end;

  TBizAlbaranProveedor = class(TAlbaranesProveedorDataTableRules, IBizAlbaranProveedor, ISeleccionable)
  private
    procedure CalcularBaseImponible;
    procedure CalcularIVA;
    procedure CalcularRE;
    procedure AsignarTipoIVA (IDTipoIVA : Integer);    

  protected
    FSeleccionableInterface : ISeleccionable;
    FProveedor : IBizProveedor;
    FClienteFinal : IBizCliente;
    FDetalles : IBizDetallesAlbaranProveedor;
    FDetallesLink : TDADataSource;

    procedure SetProveedor(AValue : IBizProveedor);
    function GetProveedor : IBizProveedor;

    procedure _SetProveedor(AValue : IBizProveedor);
    function _GetProveedor : IBizProveedor;

    procedure SetClienteFinal(AValue : IBizCliente);
    function GetClienteFinal : IBizCliente;

    procedure _SetClienteFinal(AValue : IBizCliente);
    function _GetCLienteFinal : IBizCLiente;

    function GetDetalles: IBizDetallesAlbaranProveedor;
    procedure SetDetalles(Value: IBizDetallesAlbaranProveedor);

    procedure SetFECHA_ALBARANValue(const aValue: TDateTime); override;
    procedure SetID_PEDIDOValue(const aValue: Integer); override;
    procedure SetID_ALMACENValue(const aValue: Integer); override;
    procedure SetID_FACTURAValue(const aValue: Integer); override;
    procedure SetID_FORMA_PAGOValue(const aValue: Integer); override;
//    procedure SetID_ALBARANValue(const aValue: Integer); override;

    procedure IMPORTE_NETOOnChange(Sender: TDACustomField);
    procedure IMPORTE_PORTEOnChange(Sender: TDACustomField);
    procedure DESCUENTOOnChange(Sender: TDACustomField);
    procedure IVAOnChange(Sender: TDACustomField);
    procedure REOnChange(Sender: TDACustomField);    
    procedure RECARGO_EQUIVALENCIAOnChange(Sender: TDACustomField);
    procedure ID_TIPO_IVAOnChange(Sender: TDACustomField);

    procedure OnNewRecord(Sender: TDADataTable); override;
    procedure IniciarValoresAlbaranNuevo;

  public
    procedure CalcularImporteTotal;
    function EsNuevo : Boolean;
    property Proveedor : IBizProveedor read GetProveedor write SetProveedor;
    property _Proveedor : IBizProveedor read _GetProveedor write _SetProveedor;

    property _ClienteFinal : IBizCliente read _GetClienteFinal write _SetClienteFinal;
    property ClienteFinal : IBizCliente read GetClienteFinal write SetClienteFinal;

    property Detalles: IBizDetallesAlbaranProveedor read GetDetalles write SetDetalles;

    property SeleccionableInterface : ISeleccionable read FSeleccionableInterface
    write FSeleccionableInterface implements ISeleccionable;

    constructor Create(aDataTable: TDADataTable); override;
    destructor Destroy; override;
  end;

implementation

uses
  SysUtils, Variants, uDataModuleConfiguracion, uDataModuleUsuarios,
  uDataTableUtils, DateUtils, uDateUtils, DB, uFactuGES_App, uBizInventario,
  uTiposIVAController, uBizTiposIVA;

{ TBizAlbaranProveedor }

procedure TBizAlbaranProveedor.AsignarTipoIVA(IDTipoIVA: Integer);
var
  ATiposIVAController : ITiposIVAController;
  ATipoIVA : IBizTipoIVA;
begin
  inherited;

  ATiposIVAController := TTiposIVAController.Create;
  try
    ATipoIVA := ATiposIVAController.Buscar(IDTipoIVA);
    ATipoIVA.DataTable.Active := True;
    if Assigned(ATipoIVA) then
    begin
      Edit;
      IVA := ATipoIVA.IVA;
      if (RECARGO_EQUIVALENCIA = 1) then
        RE := ATipoIVA.RE
      else
        RE := 0;
    end;
  finally
    ATiposIVAController := NIL;
  end;
end;

procedure TBizAlbaranProveedor.CalcularBaseImponible;
begin
  if not Self.DataTable.Editing then
    Edit;
  IMPORTE_DESCUENTO := IMPORTE_NETO * (DESCUENTO/100);
  BASE_IMPONIBLE := IMPORTE_NETO - IMPORTE_DESCUENTO; //+ IMPORTE_PORTE; ya no se tiene en cuenta porque se desglosa por art<72>culo
end;

procedure TBizAlbaranProveedor.CalcularImporteTotal;
begin
  DataTable.DisableControls;
  DataTable.Fields.FieldEventsDisabled := True;
  try
    CalcularBaseImponible;
    CalcularIVA;
    CalcularRE;

    if not Self.DataTable.Editing then
      Edit;
    IMPORTE_TOTAL := BASE_IMPONIBLE + IMPORTE_IVA + IMPORTE_RE;
  finally
    DataTable.Fields.FieldEventsDisabled := False;
    DataTable.EnableControls;
  end;
end;

procedure TBizAlbaranProveedor.CalcularIVA;
begin
  if not Self.DataTable.Editing then
    Edit;
  IMPORTE_IVA := (IVA / 100) * (BASE_IMPONIBLE);
end;

procedure TBizAlbaranProveedor.CalcularRE;
begin
  if not Self.DataTable.Editing then
    Edit;
  IMPORTE_RE := (RE / 100) * (BASE_IMPONIBLE);
end;

constructor TBizAlbaranProveedor.Create(aDataTable: TDADataTable);
begin
  inherited;
  FProveedor := Nil;
  FClienteFinal := Nil;  

  with DataTable do
  begin
    FieldByName(fld_AlbaranesProveedorID_TIPO_IVA).OnChange := ID_TIPO_IVAOnChange;
    FieldByName(fld_AlbaranesProveedorRECARGO_EQUIVALENCIA).OnChange := RECARGO_EQUIVALENCIAOnChange;

    FieldByName(fld_AlbaranesProveedorIMPORTE_NETO).OnChange := IMPORTE_NETOOnChange;
    FieldByName(fld_AlbaranesProveedorIMPORTE_PORTE).OnChange := IMPORTE_PORTEOnChange;
    FieldByName(fld_AlbaranesProveedorDESCUENTO).OnChange := DESCUENTOOnChange;
    FieldByName(fld_AlbaranesProveedorIVA).OnChange := IVAOnChange;
    FieldByName(fld_AlbaranesProveedorRE).OnChange := REOnChange;
  end;

  FDetallesLink := TDADataSource.Create(NIL);
  FDetallesLink.DataTable := aDataTable;
  
  FSeleccionableInterface := TSeleccionable.Create(aDataTable);
end;

procedure TBizAlbaranProveedor.DESCUENTOOnChange(Sender: TDACustomField);
begin
  CalcularImporteTotal;
end;

destructor TBizAlbaranProveedor.Destroy;
begin
  FProveedor := NIL;
  FClienteFinal := NIL;  
  FDetalles := NIL;
  FDetallesLink.Free;
  
  FSeleccionableInterface := NIL;
  inherited;
end;

function TBizAlbaranProveedor.EsNuevo: Boolean;
begin
  Result := (ID < 0);
end;

function TBizAlbaranProveedor.GetProveedor: IBizProveedor;
begin
  Result := FProveedor;
end;

procedure TBizAlbaranProveedor.ID_TIPO_IVAOnChange(Sender: TDACustomField);
begin
  AsignarTipoIVA(ID_TIPO_IVA);
end;

procedure TBizAlbaranProveedor.IMPORTE_NETOOnChange(Sender: TDACustomField);
begin
  CalcularImporteTotal;
end;

procedure TBizAlbaranProveedor.IMPORTE_PORTEOnChange(Sender: TDACustomField);
begin
  CalcularImporteTotal;
end;

procedure TBizAlbaranProveedor.IniciarValoresAlbaranNuevo;
begin
  ID_EMPRESA := AppFactuGES.EmpresaActiva.ID;
  USUARIO := AppFactuGES.UsuarioActivo.UserName;
  FECHA_ALBARAN := DateOf(Date);
  INCIDENCIAS_ACTIVAS := 0;
  TIPO := CTE_TIPO_ALBARAN;
  TIPO_ALMACEN := CTE_INV_ALMACEN;
  ID_ALMACEN := AppFactuGES.EmpresaActiva.ID_ALMACEN;
  ID_TIPO_IVA := AppFactuGES.EmpresaActiva.ID_TIPO_IVA;
end;

procedure TBizAlbaranProveedor.IVAOnChange(Sender: TDACustomField);
begin
  CalcularImporteTotal;
end;

function TBizAlbaranProveedor.GetClienteFinal: IBizCliente;
begin
  Result := FClienteFinal;
end;

function TBizAlbaranProveedor.GetDetalles: IBizDetallesAlbaranProveedor;
begin
  Result := FDetalles;
end;

procedure TBizAlbaranProveedor.OnNewRecord(Sender: TDADataTable);
begin
  inherited;
  ID := GetRecNo; // -1, -2, -3...
  IniciarValoresAlbaranNuevo;
end;

procedure TBizAlbaranProveedor.RECARGO_EQUIVALENCIAOnChange(Sender: TDACustomField);
begin
  AsignarTipoIVA(ID_TIPO_IVA);
end;

procedure TBizAlbaranProveedor.REOnChange(Sender: TDACustomField);
begin
  CalcularImporteTotal;
end;

procedure TBizAlbaranProveedor.SetProveedor(AValue: IBizProveedor);
var
  bEnEdicion : Boolean;
begin
  FProveedor := AValue;

  if Assigned(FProveedor) then
  begin
    if not FProveedor.DataTable.Active then
      FProveedor.DataTable.Active := True;

    if ID_PROVEEDOR <> FProveedor.ID then
    begin
      bEnEdicion := (DataTable.State in dsEditModes);
      if not bEnEdicion then
         DataTable.Edit;

      ID_PROVEEDOR := FProveedor.ID;

      if FProveedor.ID_TIPO_IVA > 0 then
         ID_TIPO_IVA := FProveedor.ID_TIPO_IVA;

      DataTable.Post;  //Muy importante ya que es necesario hacer un post de la cabecera antes de a<>adir detalles
                       //si se quita el id de la cabecera y los detalles se desincroniza
      if bEnEdicion then
         DataTable.Edit;
    end;
  end;
end;

function TBizAlbaranProveedor._GetCLienteFinal: IBizCLiente;
begin
  Result := FClienteFinal;
end;

function TBizAlbaranProveedor._GetProveedor: IBizProveedor;
begin
  Result := FProveedor;
end;

procedure TBizAlbaranProveedor._SetClienteFinal(AValue: IBizCliente);
begin
  FClienteFinal := AValue;
end;

procedure TBizAlbaranProveedor._SetProveedor(AValue: IBizProveedor);
begin
  FProveedor := AValue;
end;

procedure TBizAlbaranProveedor.SetClienteFinal(AValue: IBizCliente);
var
  bEnEdicion : Boolean;
begin
  FClienteFinal := AValue;

  if Assigned(FClienteFinal) then
  begin
    if not FClienteFinal.DataTable.Active then
       FClienteFinal.DataTable.Active := True;

//    if Self.ID_CLIENTE_FINAL <> FClienteFinal.ID then
//    begin
      bEnEdicion := (DataTable.State in dsEditModes);
      if not bEnEdicion then
         DataTable.Edit;

      Self.ID_CLIENTE_FINAL := FClienteFinal.ID;

    Self.CALLE := FClienteFinal.CALLE;
    Self.POBLACION := FClienteFinal.POBLACION;
    Self.POBLACION := FClienteFinal.POBLACION;
    Self.PROVINCIA := FClienteFinal.PROVINCIA;
    Self.CODIGO_POSTAL := FClienteFinal.CODIGO_POSTAL;
    Self.PERSONA_CONTACTO := FClienteFinal.PERSONA_CONTACTO;
    Self.TELEFONO := FClienteFinal.TELEFONO_1;


      DataTable.Post;  //Muy importante ya que es necesario hacer un post de la cabecera antes de a<>adir detalles
                       //si se quita el id de la cabecera y los detalles se desincroniza
      if bEnEdicion then
         DataTable.Edit;
//    end;
  end;
end;

procedure TBizAlbaranProveedor.SetDetalles(Value: IBizDetallesAlbaranProveedor);
begin
  FDetalles := Value;
  EnlazarMaestroDetalle(FDetallesLink, FDetalles);
end;

procedure TBizAlbaranProveedor.SetFECHA_ALBARANValue(const aValue: TDateTime);
begin
  if EsFechaVacia(aValue) then
    SetFieldNull(DataTable, fld_AlbaranesProveedorFECHA_ALBARAN)
  else
    inherited;
end;

{
procedure TBizAlbaranProveedor.SetID_ALBARANValue(const aValue: Integer);
begin
  if (aValue = 0) then
    SetFieldNull(DataTable, fld_AlbaranesProveedorID_ALBARAN)
  else
    inherited;
end;
}

procedure TBizAlbaranProveedor.SetID_ALMACENValue(const aValue: Integer);
begin
  if (aValue = 0) then
    SetFieldNull(DataTable, fld_AlbaranesProveedorID_ALMACEN)
  else
    inherited;
end;

procedure TBizAlbaranProveedor.SetID_FACTURAValue(const aValue: Integer);
begin
  if (aValue = 0) then
    SetFieldNull(DataTable, fld_AlbaranesProveedorID_FACTURA)
  else
    inherited;
end;

procedure TBizAlbaranProveedor.SetID_FORMA_PAGOValue(const aValue: Integer);
begin
  if (aValue = 0) then
    SetFieldNull(DataTable, fld_AlbaranesProveedorID_FORMA_PAGO)
  else
    inherited;
end;

procedure TBizAlbaranProveedor.SetID_PEDIDOValue(const aValue: Integer);
begin
  if (aValue = 0) then
    SetFieldNull(DataTable, fld_AlbaranesProveedorID_PEDIDO)
  else
    inherited;
end;

initialization
  RegisterDataTableRules(BIZ_CLIENT_ALBARAN_PROVEEDOR, TBizAlbaranProveedor);

finalization

end.