david
4bf5f893b4
- Creación de las tablas para provincias y poblaciones - Añadir varios artículos a la vez en pedidos y albaranes de proveedor. git-svn-id: https://192.168.0.254/svn/Proyectos.Tecsitel_FactuGES2/trunk@435 0c75b7a4-871f-7646-8a2f-f78d34cc349f
92 lines
3.8 KiB
ObjectPascal
92 lines
3.8 KiB
ObjectPascal
unit uViewDetallesAlbaranCliente;
|
|
|
|
interface
|
|
|
|
uses
|
|
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
|
|
Dialogs, cxStyles, cxCustomData, cxGraphics, cxFilter,
|
|
cxData, cxDataStorage, cxEdit, DB, cxDBData, ImgList, PngImageList,
|
|
uDADataTable, ActnList, ComCtrls, ToolWin, cxGridLevel, cxClasses, cxControls,
|
|
cxGridCustomView, cxGridCustomTableView, cxGridTableView, cxGridDBTableView,
|
|
cxGrid, cxImageComboBox, cxTextEdit, cxMaskEdit, cxCheckBox, cxCurrencyEdit,
|
|
Grids, DBGrids, StdCtrls, ExtCtrls, cxRichEdit, ExtActns, StdActns,
|
|
JvExStdCtrls, JvCombobox, JvColorCombo, TB2Item, TBX, TB2Dock, TB2Toolbar,
|
|
uControllerDetallesArticulos, uBizAlbaranesCliente, cxDropDownEdit,
|
|
cxCalendar, cxDBEdit, dxLayoutControl, cxContainer, cxLookupEdit,
|
|
cxDBLookupEdit, cxDBLookupComboBox, uDAInterfaces, cxButtonEdit,
|
|
uViewDetallesArticulos, dxSkinsCore, dxSkinBlack, dxSkinBlue, dxSkinCaramel,
|
|
dxSkinCoffee, dxSkinGlassOceans, dxSkiniMaginary, dxSkinLilian,
|
|
dxSkinLiquidSky, dxSkinLondonLiquidSky, dxSkinMcSkin, dxSkinMoneyTwins,
|
|
dxSkinOffice2007Black, dxSkinOffice2007Blue, dxSkinOffice2007Green,
|
|
dxSkinOffice2007Pink, dxSkinOffice2007Silver, dxSkinSilver, dxSkinStardust,
|
|
dxSkinsDefaultPainters, dxSkinValentine, dxSkinXmas2008Blue,
|
|
dxSkinscxPCPainter, Menus, cxGridCustomPopupMenu, cxGridPopupMenu;
|
|
|
|
type
|
|
IViewDetallesAlbaranCliente = interface(IViewDetallesArticulos)
|
|
['{9326E1A0-BD5E-4BE1-BB3B-6A52C3394118}']
|
|
function GetAlbaran: IBizAlbaranCliente;
|
|
procedure SetAlbaran(const Value: IBizAlbaranCliente);
|
|
property Albaran: IBizAlbaranCliente read GetAlbaran write SetAlbaran;
|
|
end;
|
|
|
|
TfrViewDetallesAlbaranCliente = class(TfrViewDetallesArticulos, IViewDetallesAlbaranCliente)
|
|
N2: TMenuItem;
|
|
Aadirartculos1: TMenuItem;
|
|
TBXItem18: TTBXItem;
|
|
protected
|
|
FAlbaran: IBizAlbaranCliente;
|
|
function GetAlbaran: IBizAlbaranCliente;
|
|
procedure SetAlbaran(const Value: IBizAlbaranCliente);
|
|
|
|
procedure AnadirArticulosInterno; override;
|
|
procedure RellenarArticulosInterno; override;
|
|
function AnadirArticulo(pReferencia: String; TipoReferencia: TEnumReferencia): Boolean; override;
|
|
|
|
public
|
|
property Albaran: IBizAlbaranCliente read GetAlbaran write SetAlbaran;
|
|
end;
|
|
|
|
implementation
|
|
{$R *.dfm}
|
|
|
|
uses uDetallesAlbaranClienteController, uViewDetallesBase;
|
|
|
|
{ TfrViewDetallesAlbaranProveedor }
|
|
|
|
function TfrViewDetallesAlbaranCliente.AnadirArticulo(pReferencia: String; TipoReferencia: TEnumReferencia): Boolean;
|
|
begin
|
|
if (Albaran.TIPO = CTE_TIPO_ALBARAN_DEV) then
|
|
Result := (Controller as IDetallesAlbaranClienteController).AnadirArticulo(Detalles, pReferencia, TipoReferencia, Albaran.Cliente.ID, -1)
|
|
else
|
|
Result := (Controller as IDetallesAlbaranClienteController).AnadirArticulo(Detalles, pReferencia, TipoReferencia, Albaran.Cliente.ID);
|
|
end;
|
|
|
|
procedure TfrViewDetallesAlbaranCliente.AnadirArticulosInterno;
|
|
begin
|
|
if (Albaran.TIPO = CTE_TIPO_ALBARAN_DEV) then
|
|
(Controller as IDetallesAlbaranClienteController).AnadirArticulos(Detalles, Albaran.Cliente, true, -1)
|
|
else
|
|
(Controller as IDetallesAlbaranClienteController).AnadirArticulos(Detalles, Albaran.Cliente);
|
|
end;
|
|
|
|
function TfrViewDetallesAlbaranCliente.GetAlbaran: IBizAlbaranCliente;
|
|
begin
|
|
Result := FAlbaran;
|
|
end;
|
|
|
|
procedure TfrViewDetallesAlbaranCliente.RellenarArticulosInterno;
|
|
begin
|
|
if (Albaran.TIPO = CTE_TIPO_ALBARAN_DEV) then
|
|
(Controller as IDetallesAlbaranClienteController).AnadirArticulos(Detalles, Albaran.Cliente, False, -1)
|
|
else
|
|
(Controller as IDetallesAlbaranClienteController).AnadirArticulos(Detalles, Albaran.Cliente, False);
|
|
end;
|
|
|
|
procedure TfrViewDetallesAlbaranCliente.SetAlbaran(const Value: IBizAlbaranCliente);
|
|
begin
|
|
FAlbaran := Value;
|
|
end;
|
|
|
|
end.
|