limpieza
git-svn-id: https://192.168.0.254/svn/Proyectos.Noviseda_FactuGES2/trunk@107 f33bb606-9f5c-448d-9c99-757f00063c96
This commit is contained in:
parent
42fc97b1a9
commit
fb07b2bf83
@ -1,387 +0,0 @@
|
||||
unit uEditorAlbaranCliente;
|
||||
|
||||
interface
|
||||
|
||||
uses
|
||||
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
|
||||
uEditorDBItem, DB, uDADataTable, JvAppStorage,
|
||||
JvAppRegistryStorage, JvComponent, JvFormPlacement, ImgList,
|
||||
PngImageList, StdActns, ActnList, ComCtrls, TBX, TB2Item, TB2Dock,
|
||||
TB2Toolbar, ExtCtrls, JvExControls, JvNavigationPane,
|
||||
uCustomView, uViewBase, JvComponentBase,
|
||||
StdCtrls, pngimage, AppEvnts, cxControls, cxContainer, cxEdit, cxTextEdit, cxMemo, cxDBEdit,
|
||||
uViewIncidencias, uAlbaranesClienteController, uViewDetallesBase, uViewDetallesAlbaranCliente,
|
||||
dxLayoutLookAndFeels, JvExComCtrls, JvStatusBar, uViewTotales,
|
||||
uIEditorAlbaranCliente, uBizAlbaranesCliente, uViewAlbaranCliente,
|
||||
uViewDetallesDTO, uViewDetallesArticulos, uDAInterfaces,
|
||||
uViewDetallesArticulosParaVenta, cxLabel;
|
||||
|
||||
type
|
||||
TfEditorAlbaranCliente = class(TfEditorDBItem, IEditorAlbaranCliente)
|
||||
pagContenido: TTabSheet;
|
||||
pagInicidencias: TTabSheet;
|
||||
frViewIncidenciasCli: TfrViewIncidencias;
|
||||
dxLayoutLookAndFeelList1: TdxLayoutLookAndFeelList;
|
||||
dxLayoutOfficeLookAndFeel1: TdxLayoutOfficeLookAndFeel;
|
||||
frViewDetallesAlbaranCliente1: TfrViewDetallesAlbaranCliente;
|
||||
frViewTotales1: TfrViewTotales;
|
||||
actEnviarEMail: TAction;
|
||||
TBXSubmenuItem2: TTBXSubmenuItem;
|
||||
TBXItem7: TTBXItem;
|
||||
TBXItem33: TTBXItem;
|
||||
TBXSeparatorItem6: TTBXSeparatorItem;
|
||||
|
||||
procedure FormShow(Sender: TObject);
|
||||
procedure CustomEditorClose(Sender: TObject; var Action: TCloseAction);
|
||||
procedure pgPaginasChanging(Sender: TObject; var AllowChange: Boolean);
|
||||
procedure frViewTotales1ePortePropertiesValidate(Sender: TObject;
|
||||
var DisplayValue: Variant; var ErrorText: TCaption; var Error: Boolean);
|
||||
procedure frViewTotales1edtDescuentoPropertiesValidate(Sender: TObject;
|
||||
var DisplayValue: Variant; var ErrorText: TCaption; var Error: Boolean);
|
||||
procedure frViewTotales1edtIVAPropertiesValidate(Sender: TObject;
|
||||
var DisplayValue: Variant; var ErrorText: TCaption; var Error: Boolean);
|
||||
procedure actEnviarEMailExecute(Sender: TObject);
|
||||
procedure actEnviarEMailUpdate(Sender: TObject);
|
||||
private
|
||||
procedure RecalcularPortePorUnidad;
|
||||
|
||||
protected
|
||||
FAlbaran: IBizAlbaranCliente;
|
||||
FViewAlbaran: IViewAlbaranCliente;
|
||||
FController : IAlbaranesClienteController;
|
||||
|
||||
function GetController : IAlbaranesClienteController;
|
||||
procedure SetController (const Value : IAlbaranesClienteController); virtual;
|
||||
|
||||
function GetAlbaran: IBizAlbaranCliente;
|
||||
procedure SetAlbaran(const Value: IBizAlbaranCliente); virtual;
|
||||
|
||||
function GetViewAlbaran: IViewAlbaranCliente;
|
||||
procedure SetViewAlbaran(const Value: IViewAlbaranCliente);
|
||||
|
||||
procedure PrevisualizarInterno; override;
|
||||
procedure ImprimirInterno; override;
|
||||
procedure GuardarInterno; override;
|
||||
procedure EliminarInterno; override;
|
||||
|
||||
property ViewAlbaran: IViewAlbaranCliente read GetViewAlbaran write SetViewAlbaran;
|
||||
|
||||
procedure OnClienteChanged(Sender : TObject);
|
||||
|
||||
//Si queremos crear otra vista para el editor heredado solo tendriamos que
|
||||
//sobreescribir este metodo
|
||||
procedure AsignarVista; virtual;
|
||||
|
||||
public
|
||||
procedure PonerTitulos(const ATitulo: string = ''); override;
|
||||
property Controller : IAlbaranesClienteController read GetController write SetController;
|
||||
property Albaran: IBizAlbaranCliente read GetAlbaran write SetAlbaran;
|
||||
constructor Create(AOwner: TComponent); override;
|
||||
destructor Destroy; override;
|
||||
end;
|
||||
|
||||
implementation
|
||||
|
||||
uses
|
||||
uViewDatosYSeleccionCliente, uDataModuleUsuarios, uClientesController,
|
||||
uBizDireccionesContacto, schAlbaranesClienteClient_Intf, uDialogUtils,
|
||||
uEditorDBBase, uDataTableUtils, uFactuGES_App;
|
||||
|
||||
{$R *.dfm}
|
||||
|
||||
{ TfEditorAlbaranCliente }
|
||||
|
||||
{
|
||||
**************************** TfEditorAlbaranCliente ****************************
|
||||
}
|
||||
procedure TfEditorAlbaranCliente.actEnviarEMailExecute(Sender: TObject);
|
||||
begin
|
||||
inherited;
|
||||
FController.EnviarAlbaranPorEMail(FAlbaran);
|
||||
end;
|
||||
|
||||
procedure TfEditorAlbaranCliente.actEnviarEMailUpdate(Sender: TObject);
|
||||
begin
|
||||
inherited;
|
||||
(Sender as TAction).Enabled := HayDatos;
|
||||
end;
|
||||
|
||||
procedure TfEditorAlbaranCliente.AsignarVista;
|
||||
var
|
||||
AViewAlbaranCliente: TfrViewAlbaranCliente;
|
||||
begin
|
||||
AViewAlbaranCliente := TfrViewAlbaranCliente.create(Self);
|
||||
with AViewAlbaranCliente do
|
||||
begin
|
||||
Parent := pagGeneral;
|
||||
Align := alClient;
|
||||
dxLayoutControl1.LookAndFeel := dxLayoutOfficeLookAndFeel1;
|
||||
end;
|
||||
ViewAlbaran := AViewAlbaranCliente;
|
||||
end;
|
||||
|
||||
constructor TfEditorAlbaranCliente.Create(AOwner: TComponent);
|
||||
begin
|
||||
inherited;
|
||||
pgPaginas.ActivePageIndex := 0;
|
||||
|
||||
AsignarVista;
|
||||
end;
|
||||
|
||||
procedure TfEditorAlbaranCliente.CustomEditorClose(Sender: TObject;
|
||||
var Action: TCloseAction);
|
||||
begin
|
||||
inherited;
|
||||
FViewAlbaran := NIL;
|
||||
FAlbaran := NIL;
|
||||
end;
|
||||
|
||||
destructor TfEditorAlbaranCliente.Destroy;
|
||||
begin
|
||||
// Utilizar mejor OnClose;
|
||||
inherited;
|
||||
end;
|
||||
|
||||
procedure TfEditorAlbaranCliente.EliminarInterno;
|
||||
begin
|
||||
if (ShowConfirmMessage('¿Desea borrar este albarán de cliente?', '') = IDYES) then
|
||||
begin
|
||||
FController.Eliminar(FAlbaran);
|
||||
inherited
|
||||
end
|
||||
end;
|
||||
|
||||
procedure TfEditorAlbaranCliente.FormShow(Sender: TObject);
|
||||
begin
|
||||
inherited;
|
||||
|
||||
if not Assigned(FViewAlbaran) then
|
||||
raise Exception.Create('No hay ninguna vista asignada');
|
||||
|
||||
if not Assigned(Albaran) then
|
||||
raise Exception.Create('No hay ningún Albaran asignado');
|
||||
|
||||
Albaran.DataTable.Active := True;
|
||||
pgPaginas.ActivePage := pagGeneral;
|
||||
end;
|
||||
|
||||
procedure TfEditorAlbaranCliente.frViewTotales1edtDescuentoPropertiesValidate(
|
||||
Sender: TObject; var DisplayValue: Variant; var ErrorText: TCaption;
|
||||
var Error: Boolean);
|
||||
begin
|
||||
inherited;
|
||||
FAlbaran.DESCUENTO := DisplayValue;
|
||||
end;
|
||||
|
||||
procedure TfEditorAlbaranCliente.frViewTotales1edtIVAPropertiesValidate(
|
||||
Sender: TObject; var DisplayValue: Variant; var ErrorText: TCaption;
|
||||
var Error: Boolean);
|
||||
begin
|
||||
inherited;
|
||||
FAlbaran.IVA := DisplayValue;
|
||||
end;
|
||||
|
||||
procedure TfEditorAlbaranCliente.frViewTotales1ePortePropertiesValidate(
|
||||
Sender: TObject; var DisplayValue: Variant; var ErrorText: TCaption;
|
||||
var Error: Boolean);
|
||||
begin
|
||||
inherited;
|
||||
if (not VarIsNull(DisplayValue)) and (Length(DisplayValue) > 0) then
|
||||
FAlbaran.IMPORTE_PORTE := DisplayValue
|
||||
else
|
||||
FAlbaran.IMPORTE_PORTE := 0;
|
||||
|
||||
// RecalcularPortePorUnidad; En los documentos de cliente no se desglosa el porte por articulo
|
||||
end;
|
||||
|
||||
function TfEditorAlbaranCliente.GetController: IAlbaranesClienteController;
|
||||
begin
|
||||
Result := FController;
|
||||
end;
|
||||
|
||||
function TfEditorAlbaranCliente.GetAlbaran: IBizAlbaranCliente;
|
||||
begin
|
||||
Result := FAlbaran;
|
||||
end;
|
||||
|
||||
function TfEditorAlbaranCliente.GetViewAlbaran: IViewAlbaranCliente;
|
||||
begin
|
||||
Result := FViewAlbaran;
|
||||
end;
|
||||
|
||||
procedure TfEditorAlbaranCliente.GuardarInterno;
|
||||
var
|
||||
bEsNuevo : Boolean;
|
||||
begin
|
||||
inherited;
|
||||
|
||||
ShowHourglassCursor;
|
||||
// frViewDetallesPedidoCliente1.SaveGridStatus;
|
||||
frViewDetallesAlbaranCliente1.BeginUpdate;
|
||||
try
|
||||
bEsNuevo := FAlbaran.EsNuevo;
|
||||
FController.Guardar(FAlbaran);
|
||||
finally
|
||||
frViewDetallesAlbaranCliente1.EndUpdate;
|
||||
// frViewDetallesPedidoCliente1.RestoreGridStatus;
|
||||
HideHourglassCursor;
|
||||
end;
|
||||
if bEsNuevo then
|
||||
if FAlbaran.TIPO = CTE_TIPO_ALBARAN then
|
||||
ShowInfoMessage('El albarán se ha dado de alta con el código ' + FAlbaran.REFERENCIA)
|
||||
else
|
||||
ShowInfoMessage('La orden de devolución se ha dado de alta con el código ' + FAlbaran.REFERENCIA);
|
||||
Modified := False;
|
||||
end;
|
||||
|
||||
procedure TfEditorAlbaranCliente.ImprimirInterno;
|
||||
begin
|
||||
inherited;
|
||||
FController.Print(FAlbaran);
|
||||
end;
|
||||
|
||||
procedure TfEditorAlbaranCliente.OnClienteChanged(Sender: TObject);
|
||||
var
|
||||
ADireccion : IBizDireccionesContacto;
|
||||
begin
|
||||
if Assigned(FAlbaran) then
|
||||
begin
|
||||
FAlbaran.Cliente := ViewAlbaran.ViewClienteAlbaran.Cliente;
|
||||
|
||||
// Avisar si no hay datos bancarios
|
||||
{if not AClientesController.TieneDatosBancarios(FAlbaran.Cliente) then
|
||||
ShowWarningMessage('Este cliente no tiene datos bancarios en su ficha');}
|
||||
|
||||
// Elegir la dirección de envio
|
||||
{ case FAlbaran.Cliente.Direcciones.RecordCount of
|
||||
0 : begin
|
||||
ADireccion := NIL;
|
||||
//ShowWarningMessage('Este cliente no tiene ninguna dirección de envío en su ficha');
|
||||
end;
|
||||
1 : begin
|
||||
ADireccion := FAlbaran.Cliente.Direcciones;
|
||||
end
|
||||
end;
|
||||
|
||||
// Si hay dirección de envio, copiarla al albarán y poner el coste del porte
|
||||
if Assigned(ADireccion) then
|
||||
begin
|
||||
try
|
||||
FAlbaran.Edit;
|
||||
FAlbaran.IMPORTE_PORTE := ADireccion.PORTE;
|
||||
FController.CopiarDireccionEnvio(ADireccion, FAlbaran);
|
||||
finally
|
||||
ADireccion := NIL;
|
||||
end;
|
||||
end
|
||||
else begin
|
||||
FController.QuitarDireccionEnvio(FAlbaran);
|
||||
FAlbaran.Edit;
|
||||
FAlbaran.IMPORTE_PORTE := 0;
|
||||
end;
|
||||
}
|
||||
// Si el pedido tiene detalles hay que mirar si los descuentos
|
||||
// para los artículos hay que cambiarlos.
|
||||
if (FAlbaran.Detalles.RecordCount > 0) then
|
||||
FController.DetallesController.ActualizarDetalles(FAlbaran.Detalles, FAlbaran.Cliente);
|
||||
end;
|
||||
end;
|
||||
|
||||
procedure TfEditorAlbaranCliente.pgPaginasChanging(Sender: TObject; var AllowChange: Boolean);
|
||||
begin
|
||||
inherited;
|
||||
if (not Assigned(FAlbaran)) or (FAlbaran.ID_CLIENTE = 0) then
|
||||
begin
|
||||
ShowWarningMessage('Antes de introducir conceptos debe elegir un cliente para este albarán');
|
||||
AllowChange := False;
|
||||
end;
|
||||
end;
|
||||
|
||||
procedure TfEditorAlbaranCliente.PonerTitulos(const ATitulo: string);
|
||||
var
|
||||
FTitulo : String;
|
||||
begin
|
||||
FTitulo := ATitulo;
|
||||
if (FTitulo = '') and Assigned(FAlbaran) then
|
||||
begin
|
||||
if FAlbaran.EsNuevo then
|
||||
FTitulo := 'Nuevo albarán de cliente'
|
||||
else
|
||||
FTitulo := 'Albarán de cliente' + ' - ' + FAlbaran.Cliente.Nombre + ' - ' + FAlbaran.SITUACION;
|
||||
end;
|
||||
|
||||
inherited PonerTitulos(FTitulo);
|
||||
|
||||
FTitulo := FTitulo + ' (' + AppFactuGES.EmpresaActiva.NOMBRE + ')';
|
||||
Self.Caption := FTitulo;
|
||||
end;
|
||||
|
||||
procedure TfEditorAlbaranCliente.PrevisualizarInterno;
|
||||
begin
|
||||
inherited;
|
||||
FController.Preview(FAlbaran);
|
||||
end;
|
||||
|
||||
procedure TfEditorAlbaranCliente.RecalcularPortePorUnidad;
|
||||
begin
|
||||
//Esta lógica se llamará en el editor porque es para facilitar el rellenado de informació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(FAlbaran.IMPORTE_PORTE, FAlbaran.Detalles)
|
||||
end;
|
||||
|
||||
procedure TfEditorAlbaranCliente.SetController(const Value: IAlbaranesClienteController);
|
||||
begin
|
||||
FController := Value;
|
||||
|
||||
if Assigned(FController) then
|
||||
frViewDetallesAlbaranCliente1.Controller := Controller.DetallesController;
|
||||
end;
|
||||
|
||||
procedure TfEditorAlbaranCliente.SetAlbaran(const Value: IBizAlbaranCliente);
|
||||
begin
|
||||
FAlbaran := Value;
|
||||
|
||||
if Assigned(FAlbaran) then
|
||||
begin
|
||||
dsDataTable.DataTable := FAlbaran.DataTable;
|
||||
frViewIncidenciasCli.DADataSource.DataTable := dsDataTable.DataTable;
|
||||
frViewTotales1.DADataSource.DataTable := dsDataTable.DataTable;
|
||||
|
||||
if Assigned(FViewAlbaran) then
|
||||
begin
|
||||
ViewAlbaran.ViewClienteAlbaran.OnClienteChanged := NIL;
|
||||
try
|
||||
FViewAlbaran.Albaran := FAlbaran;
|
||||
frViewDetallesAlbaranCliente1.Detalles := FAlbaran.Detalles;
|
||||
frViewDetallesAlbaranCliente1.Albaran := FAlbaran; //Para poder sacar los descuento del articulos segun el cliente seleccionado
|
||||
finally
|
||||
ViewAlbaran.ViewClienteAlbaran.OnClienteChanged := OnClienteChanged;
|
||||
end;
|
||||
end;
|
||||
end
|
||||
else begin
|
||||
dsDataTable.DataTable := NIL;
|
||||
frViewIncidenciasCli.DADataSource.DataTable := NIL;
|
||||
frViewTotales1.DADataSource.DataTable := NIL;
|
||||
|
||||
if Assigned(FViewAlbaran) then
|
||||
begin
|
||||
FViewAlbaran.Albaran := NIL;
|
||||
ViewAlbaran.ViewClienteAlbaran.OnClienteChanged := NIL;
|
||||
frViewDetallesAlbaranCliente1.Detalles := NIL;
|
||||
frViewDetallesAlbaranCliente1.Albaran := NIL;
|
||||
end;
|
||||
end;
|
||||
end;
|
||||
|
||||
procedure TfEditorAlbaranCliente.SetViewAlbaran(const Value: IViewAlbaranCliente);
|
||||
begin
|
||||
FViewAlbaran := Value;
|
||||
|
||||
if Assigned(FViewAlbaran) and Assigned(Albaran) then
|
||||
FViewAlbaran.Albaran := Albaran;
|
||||
end;
|
||||
|
||||
end.
|
||||
@ -1,330 +0,0 @@
|
||||
unit uEditorAlbaranProveedor;
|
||||
|
||||
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, JvComponentBase,
|
||||
StdCtrls, pngimage, AppEvnts, cxControls, cxContainer, cxEdit, cxTextEdit, cxMemo, cxDBEdit,
|
||||
uViewIncidencias,
|
||||
uAlbaranesProveedorController,
|
||||
uViewDetallesBase, uViewDetallesAlbaranProveedor,
|
||||
dxLayoutLookAndFeels, JvExComCtrls, JvStatusBar, uViewTotales,
|
||||
uIEditorAlbaranProveedor, uBizAlbaranesProveedor, uViewAlbaranProveedor,
|
||||
uViewDetallesDTO, uViewDetallesArticulos, uDAInterfaces, cxLabel;
|
||||
|
||||
type
|
||||
TfEditorAlbaranProveedor = class(TfEditorDBItem, IEditorAlbaranProveedor)
|
||||
pagContenido: TTabSheet;
|
||||
pagInicidencias: TTabSheet;
|
||||
frViewIncidenciasCli: TfrViewIncidencias;
|
||||
dxLayoutLookAndFeelList1: TdxLayoutLookAndFeelList;
|
||||
dxLayoutOfficeLookAndFeel1: TdxLayoutOfficeLookAndFeel;
|
||||
frViewDetallesAlbaranProveedor1: TfrViewDetallesAlbaranProveedor;
|
||||
frViewTotales1: TfrViewTotales;
|
||||
|
||||
procedure FormShow(Sender: TObject);
|
||||
procedure CustomEditorClose(Sender: TObject; var Action: TCloseAction);
|
||||
procedure pgPaginasChanging(Sender: TObject; var AllowChange: Boolean);
|
||||
procedure frViewTotales1edtDescuentoPropertiesValidate(Sender: TObject;
|
||||
var DisplayValue: Variant; var ErrorText: TCaption; var Error: Boolean);
|
||||
procedure frViewTotales1edtIVAPropertiesValidate(Sender: TObject;
|
||||
var DisplayValue: Variant; var ErrorText: TCaption; var Error: Boolean);
|
||||
procedure frViewTotales1ePortePropertiesValidate(Sender: TObject;
|
||||
var DisplayValue: Variant; var ErrorText: TCaption; var Error: Boolean);
|
||||
|
||||
// procedure frViewDatosYSeleccionContactoedtlNombrePropertiesChange(Sender: TObject);
|
||||
private
|
||||
procedure RecalcularPortePorUnidad;
|
||||
|
||||
protected
|
||||
FAlbaran: IBizAlbaranProveedor;
|
||||
FViewAlbaran: IViewAlbaranProveedor;
|
||||
FController : IAlbaranesProveedorController;
|
||||
|
||||
function GetController : IAlbaranesProveedorController;
|
||||
procedure SetController (const Value : IAlbaranesProveedorController); virtual;
|
||||
|
||||
function GetAlbaran: IBizAlbaranProveedor;
|
||||
procedure SetAlbaran(const Value: IBizAlbaranProveedor); virtual;
|
||||
|
||||
function GetViewAlbaran: IViewAlbaranProveedor;
|
||||
procedure SetViewAlbaran(const Value: IViewAlbaranProveedor);
|
||||
|
||||
procedure GuardarInterno; override;
|
||||
procedure EliminarInterno; override;
|
||||
procedure PrevisualizarInterno; override;
|
||||
procedure ImprimirInterno; override;
|
||||
|
||||
property ViewAlbaran: IViewAlbaranProveedor read GetViewAlbaran write SetViewAlbaran;
|
||||
|
||||
procedure OnProveedorChanged(Sender : TObject);
|
||||
|
||||
//Si queremos crear otra vista para el editor heredado solo tendriamos que
|
||||
//sobreescribir este metodo
|
||||
procedure AsignarVista; virtual;
|
||||
|
||||
public
|
||||
procedure PonerTitulos(const ATitulo: string = ''); override;
|
||||
property Controller : IAlbaranesProveedorController read GetController write SetController;
|
||||
property Albaran: IBizAlbaranProveedor read GetAlbaran write SetAlbaran;
|
||||
constructor Create(AOwner: TComponent); override;
|
||||
destructor Destroy; override;
|
||||
end;
|
||||
|
||||
implementation
|
||||
|
||||
uses
|
||||
uViewDatosYSeleccionProveedor, uDataModuleUsuarios, uProveedoresController,
|
||||
uBizDireccionesContacto, uDialogUtils, uDataTableUtils, uFactuGES_App;
|
||||
|
||||
{$R *.dfm}
|
||||
|
||||
{ TfEditorAlbaranProveedor }
|
||||
|
||||
{
|
||||
**************************** TfEditorAlbaranProveedor ****************************
|
||||
}
|
||||
procedure TfEditorAlbaranProveedor.AsignarVista;
|
||||
var
|
||||
AViewAlbaranProveedor: TfrViewAlbaranProveedor;
|
||||
|
||||
begin
|
||||
AViewAlbaranProveedor := TfrViewAlbaranProveedor.create(Self);
|
||||
with AViewAlbaranProveedor do
|
||||
begin
|
||||
Parent := pagGeneral;
|
||||
Align := alClient;
|
||||
dxLayoutControl1.LookAndFeel := dxLayoutOfficeLookAndFeel1;
|
||||
end;
|
||||
ViewAlbaran := AViewAlbaranProveedor;
|
||||
end;
|
||||
|
||||
constructor TfEditorAlbaranProveedor.Create(AOwner: TComponent);
|
||||
begin
|
||||
inherited;
|
||||
AsignarVista;
|
||||
pgPaginas.ActivePageIndex := 0;
|
||||
end;
|
||||
|
||||
procedure TfEditorAlbaranProveedor.CustomEditorClose(Sender: TObject;
|
||||
var Action: TCloseAction);
|
||||
begin
|
||||
inherited;
|
||||
FViewAlbaran := NIL;
|
||||
FAlbaran := NIL;
|
||||
end;
|
||||
|
||||
destructor TfEditorAlbaranProveedor.Destroy;
|
||||
begin
|
||||
// Utilizar mejor OnClose;
|
||||
inherited;
|
||||
end;
|
||||
|
||||
procedure TfEditorAlbaranProveedor.EliminarInterno;
|
||||
begin
|
||||
if (Application.MessageBox('¿Desea borrar este albarán de proveedor?', 'Atención', MB_YESNO) = IDYES) then
|
||||
begin
|
||||
FController.Eliminar(FAlbaran);
|
||||
inherited
|
||||
end
|
||||
end;
|
||||
|
||||
procedure TfEditorAlbaranProveedor.FormShow(Sender: TObject);
|
||||
begin
|
||||
inherited;
|
||||
|
||||
if not Assigned(FViewAlbaran) then
|
||||
raise Exception.Create('No hay ninguna vista asignada');
|
||||
|
||||
if not Assigned(Albaran) then
|
||||
raise Exception.Create('No hay ningún Albaran asignado');
|
||||
|
||||
Albaran.DataTable.Active := True;
|
||||
pgPaginas.ActivePage := pagGeneral;
|
||||
end;
|
||||
|
||||
procedure TfEditorAlbaranProveedor.frViewTotales1edtDescuentoPropertiesValidate(
|
||||
Sender: TObject; var DisplayValue: Variant; var ErrorText: TCaption;
|
||||
var Error: Boolean);
|
||||
begin
|
||||
inherited;
|
||||
FAlbaran.DESCUENTO := DisplayValue;
|
||||
end;
|
||||
|
||||
procedure TfEditorAlbaranProveedor.frViewTotales1edtIVAPropertiesValidate(
|
||||
Sender: TObject; var DisplayValue: Variant; var ErrorText: TCaption;
|
||||
var Error: Boolean);
|
||||
begin
|
||||
inherited;
|
||||
FAlbaran.IVA := DisplayValue;
|
||||
end;
|
||||
|
||||
procedure TfEditorAlbaranProveedor.frViewTotales1ePortePropertiesValidate(
|
||||
Sender: TObject; var DisplayValue: Variant; var ErrorText: TCaption;
|
||||
var Error: Boolean);
|
||||
begin
|
||||
inherited;
|
||||
if (not VarIsNull(DisplayValue)) and (length(DisplayValue) > 0) then
|
||||
FAlbaran.IMPORTE_PORTE := DisplayValue
|
||||
else
|
||||
FAlbaran.IMPORTE_PORTE := 0;
|
||||
|
||||
RecalcularPortePorUnidad;
|
||||
end;
|
||||
|
||||
function TfEditorAlbaranProveedor.GetController: IAlbaranesProveedorController;
|
||||
begin
|
||||
Result := FController;
|
||||
end;
|
||||
|
||||
function TfEditorAlbaranProveedor.GetAlbaran: IBizAlbaranProveedor;
|
||||
begin
|
||||
Result := FAlbaran;
|
||||
end;
|
||||
|
||||
function TfEditorAlbaranProveedor.GetViewAlbaran: IViewAlbaranProveedor;
|
||||
begin
|
||||
Result := FViewAlbaran;
|
||||
end;
|
||||
|
||||
procedure TfEditorAlbaranProveedor.GuardarInterno;
|
||||
var
|
||||
bEsNuevo : Boolean;
|
||||
begin
|
||||
inherited;
|
||||
|
||||
ShowHourglassCursor;
|
||||
// frViewDetallesAlbaranProveedor1.SaveGridStatus;
|
||||
frViewDetallesAlbaranProveedor1.BeginUpdate;
|
||||
try
|
||||
bEsNuevo := FAlbaran.EsNuevo;
|
||||
FController.Guardar(FAlbaran);
|
||||
finally
|
||||
frViewDetallesAlbaranProveedor1.EndUpdate;
|
||||
// frViewDetallesAlbaranProveedor1.RestoreGridStatus;
|
||||
HideHourglassCursor;
|
||||
end;
|
||||
if bEsNuevo then
|
||||
ShowInfoMessage('El albarán se ha dado de alta con el código ' + FAlbaran.REFERENCIA);
|
||||
|
||||
Modified := False;
|
||||
end;
|
||||
|
||||
procedure TfEditorAlbaranProveedor.ImprimirInterno;
|
||||
var
|
||||
AllItems: Boolean;
|
||||
begin
|
||||
inherited;
|
||||
AllItems := False;
|
||||
FController.Print(FAlbaran, AllItems);
|
||||
end;
|
||||
|
||||
procedure TfEditorAlbaranProveedor.OnProveedorChanged(Sender: TObject);
|
||||
begin
|
||||
if Assigned(FAlbaran) then
|
||||
begin
|
||||
FAlbaran.Proveedor := ViewAlbaran.ViewProveedorAlbaran.Proveedor;
|
||||
|
||||
// Si el pedido tiene detalles hay que mirar si los descuentos
|
||||
// para los artículos hay que cambiarlos.
|
||||
if (FAlbaran.Detalles.RecordCount > 0) then
|
||||
begin
|
||||
FController.DetallesController.ActualizarDetalles(FAlbaran.Detalles, FAlbaran.Proveedor);
|
||||
end;
|
||||
end;
|
||||
end;
|
||||
|
||||
procedure TfEditorAlbaranProveedor.pgPaginasChanging(Sender: TObject; var AllowChange: Boolean);
|
||||
begin
|
||||
inherited;
|
||||
if (not Assigned(FAlbaran))
|
||||
or (FAlbaran.ID_PROVEEDOR = 0) then
|
||||
begin
|
||||
ShowWarningMessage('Antes de introducir conceptos debe elegir un proveedor para este albarán');
|
||||
AllowChange := False;
|
||||
end;
|
||||
end;
|
||||
|
||||
procedure TfEditorAlbaranProveedor.PonerTitulos(const ATitulo: string);
|
||||
var
|
||||
FTitulo : String;
|
||||
begin
|
||||
FTitulo := ATitulo;
|
||||
if (FTitulo = '') and Assigned(FAlbaran) then
|
||||
begin
|
||||
if FAlbaran.EsNuevo then
|
||||
FTitulo := 'Nuevo albarán de proveedor'
|
||||
else
|
||||
FTitulo := 'Albarán de proveedor' + ' - ' + FAlbaran.Proveedor.Nombre
|
||||
end;
|
||||
|
||||
inherited PonerTitulos(FTitulo);
|
||||
Self.Caption := FTitulo + ' (' + AppFactuGES.EmpresaActiva.NOMBRE + ')';
|
||||
end;
|
||||
|
||||
procedure TfEditorAlbaranProveedor.PrevisualizarInterno;
|
||||
var
|
||||
AllItems: Boolean;
|
||||
begin
|
||||
inherited;
|
||||
AllItems := False;
|
||||
FController.Preview(FAlbaran, AllItems);
|
||||
end;
|
||||
|
||||
procedure TfEditorAlbaranProveedor.RecalcularPortePorUnidad;
|
||||
begin
|
||||
//Esta lógica se llamará en el editor porque es para facilitar el rellenado de informació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(FAlbaran.IMPORTE_PORTE, FAlbaran.Detalles)
|
||||
end;
|
||||
|
||||
procedure TfEditorAlbaranProveedor.SetController(const Value: IAlbaranesProveedorController);
|
||||
begin
|
||||
FController := Value;
|
||||
|
||||
if Assigned(FController) then
|
||||
begin
|
||||
frViewDetallesAlbaranProveedor1.Controller := Controller.DetallesController;
|
||||
end;
|
||||
end;
|
||||
|
||||
procedure TfEditorAlbaranProveedor.SetAlbaran(const Value: IBizAlbaranProveedor);
|
||||
begin
|
||||
FAlbaran := Value;
|
||||
|
||||
if Assigned(FAlbaran) then
|
||||
begin
|
||||
dsDataTable.DataTable := FAlbaran.DataTable;
|
||||
frViewTotales1.DADataSource.DataTable := dsDataTable.DataTable;
|
||||
frViewIncidenciasCli.DADataSource.DataTable := dsDataTable.DataTable;
|
||||
|
||||
if Assigned(FViewAlbaran) then
|
||||
begin
|
||||
ViewAlbaran.ViewProveedorAlbaran.OnProveedorChanged := NIL;
|
||||
try
|
||||
FViewAlbaran.Albaran := FAlbaran;
|
||||
frViewDetallesAlbaranProveedor1.Detalles := FAlbaran.Detalles;
|
||||
frViewDetallesAlbaranProveedor1.Albaran := FAlbaran; //Para poder sacar los descuento del articulos segun el proveedor seleccionado
|
||||
finally
|
||||
ViewAlbaran.ViewProveedorAlbaran.OnProveedorChanged := OnProveedorChanged;
|
||||
end;
|
||||
end;
|
||||
end;
|
||||
end;
|
||||
|
||||
procedure TfEditorAlbaranProveedor.SetViewAlbaran(const Value: IViewAlbaranProveedor);
|
||||
begin
|
||||
FViewAlbaran := Value;
|
||||
|
||||
if Assigned(FViewAlbaran) and Assigned(Albaran) then
|
||||
FViewAlbaran.Albaran := Albaran;
|
||||
end;
|
||||
|
||||
end.
|
||||
@ -1,350 +0,0 @@
|
||||
unit uEditorPedidoProveedor;
|
||||
|
||||
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,
|
||||
uViewPedidoProveedor, uCustomView, uViewBase, JvComponentBase,
|
||||
StdCtrls, pngimage, AppEvnts, cxControls, cxContainer, cxEdit, cxTextEdit, cxMemo, cxDBEdit,
|
||||
uViewIncidencias,
|
||||
uBizPedidosProveedor, uIEditorPedidoProveedor, uPedidosProveedorController,
|
||||
uViewDetallesBase, uViewDetallesPedidoProveedor,
|
||||
dxLayoutLookAndFeels, JvExComCtrls, JvStatusBar, uViewTotales,
|
||||
uViewDetallesDTO, uViewDetallesArticulos, uDAInterfaces, cxLabel;
|
||||
|
||||
type
|
||||
TfEditorPedidoProveedor = class(TfEditorDBItem, IEditorPedidoProveedor)
|
||||
pagContenido: TTabSheet;
|
||||
pagInicidencias: TTabSheet;
|
||||
frViewIncidenciasProv: TfrViewIncidencias;
|
||||
frViewDetallesPedidoProveedor1: TfrViewDetallesPedidoProveedor;
|
||||
dxLayoutLookAndFeelList1: TdxLayoutLookAndFeelList;
|
||||
dxLayoutOfficeLookAndFeel1: TdxLayoutOfficeLookAndFeel;
|
||||
frViewTotales1: TfrViewTotales;
|
||||
TBXSubmenuItem2: TTBXSubmenuItem;
|
||||
TBXItem7: TTBXItem;
|
||||
actEnviarEMail: TAction;
|
||||
TBXSeparatorItem6: TTBXSeparatorItem;
|
||||
TBXItem33: TTBXItem;
|
||||
|
||||
procedure FormShow(Sender: TObject);
|
||||
procedure CustomEditorClose(Sender: TObject; var Action: TCloseAction);
|
||||
procedure pgPaginasChanging(Sender: TObject; var AllowChange: Boolean);
|
||||
procedure frViewTotales1ePortePropertiesValidate(Sender: TObject;
|
||||
var DisplayValue: Variant; var ErrorText: TCaption; var Error: Boolean);
|
||||
procedure actEnviarEMailUpdate(Sender: TObject);
|
||||
procedure actEnviarEMailExecute(Sender: TObject);
|
||||
private
|
||||
procedure RecalcularPortePorUnidad;
|
||||
|
||||
protected
|
||||
FPedido: IBizPedidoProveedor;
|
||||
FViewPedido: IViewPedidoProveedor;
|
||||
FController : IPedidosProveedorController;
|
||||
|
||||
function GetController : IPedidosProveedorController;
|
||||
procedure SetController (const Value : IPedidosProveedorController); virtual;
|
||||
|
||||
function GetPedido: IBizPedidoProveedor;
|
||||
procedure SetPedido(const Value: IBizPedidoProveedor); virtual;
|
||||
|
||||
function GetViewPedido: IViewPedidoProveedor;
|
||||
procedure SetViewPedido(const Value: IViewPedidoProveedor);
|
||||
|
||||
procedure GuardarInterno; override;
|
||||
procedure EliminarInterno; override;
|
||||
procedure PrevisualizarInterno; override;
|
||||
procedure ImprimirInterno; override;
|
||||
|
||||
procedure OnProveedorChanged(Sender : TObject);
|
||||
function PuedoImprimir: Boolean; override;
|
||||
|
||||
//Si queremos crear otra vista para el editor heredado solo tendriamos que
|
||||
//sobreescribir este metodo
|
||||
procedure AsignarVista; virtual;
|
||||
|
||||
property ViewPedido: IViewPedidoProveedor read GetViewPedido write SetViewPedido;
|
||||
|
||||
public
|
||||
procedure PonerTitulos(const ATitulo: string = ''); override;
|
||||
property Controller : IPedidosProveedorController read GetController write SetController;
|
||||
property Pedido: IBizPedidoProveedor read GetPedido write SetPedido;
|
||||
constructor Create(AOwner: TComponent); override;
|
||||
destructor Destroy; override;
|
||||
end;
|
||||
|
||||
implementation
|
||||
|
||||
uses
|
||||
uViewDatosYSeleccionProveedor, uDataModuleUsuarios, uGridStatusUtils, uDialogUtils,
|
||||
uFactuGES_App, uDialogOpcionesImpresionPedidosProveedor;
|
||||
|
||||
{$R *.dfm}
|
||||
|
||||
{ TfEditorPedidoProveedor }
|
||||
|
||||
{
|
||||
**************************** TfEditorPedidoProveedor ****************************
|
||||
}
|
||||
|
||||
procedure TfEditorPedidoProveedor.actEnviarEMailExecute(Sender: TObject);
|
||||
begin
|
||||
inherited;
|
||||
FController.EnviarPedidoPorEMail(Pedido);
|
||||
end;
|
||||
|
||||
procedure TfEditorPedidoProveedor.actEnviarEMailUpdate(Sender: TObject);
|
||||
begin
|
||||
inherited;
|
||||
(Sender as TAction).Enabled := HayDatos;
|
||||
end;
|
||||
|
||||
procedure TfEditorPedidoProveedor.AsignarVista;
|
||||
var
|
||||
AViewPedidoProveedor: TfrViewPedidoProveedor;
|
||||
|
||||
begin
|
||||
AViewPedidoProveedor := TfrViewPedidoProveedor.Create(Self);
|
||||
with AViewPedidoProveedor do
|
||||
begin
|
||||
Parent := pagGeneral;
|
||||
Align := alClient;
|
||||
dxLayoutControl1.LookAndFeel := dxLayoutOfficeLookAndFeel1;
|
||||
end;
|
||||
ViewPedido := AViewPedidoProveedor;
|
||||
end;
|
||||
|
||||
constructor TfEditorPedidoProveedor.Create(AOwner: TComponent);
|
||||
begin
|
||||
inherited;
|
||||
pgPaginas.ActivePageIndex := 0;
|
||||
|
||||
AsignarVista;
|
||||
end;
|
||||
|
||||
procedure TfEditorPedidoProveedor.CustomEditorClose(Sender: TObject;
|
||||
var Action: TCloseAction);
|
||||
begin
|
||||
inherited;
|
||||
FViewPedido := NIL;
|
||||
FPedido := NIL;
|
||||
end;
|
||||
|
||||
destructor TfEditorPedidoProveedor.Destroy;
|
||||
begin
|
||||
// Utilizar mejor OnClose;
|
||||
inherited;
|
||||
end;
|
||||
|
||||
procedure TfEditorPedidoProveedor.EliminarInterno;
|
||||
begin
|
||||
if (Application.MessageBox('¿Desea borrar este pedido a proveedor?', 'Atención', MB_YESNO) = IDYES) then
|
||||
begin
|
||||
FController.Eliminar(FPedido);
|
||||
inherited
|
||||
end
|
||||
end;
|
||||
|
||||
procedure TfEditorPedidoProveedor.FormShow(Sender: TObject);
|
||||
begin
|
||||
inherited;
|
||||
|
||||
if not Assigned(FViewPedido) then
|
||||
raise Exception.Create('No hay ninguna vista asignada');
|
||||
|
||||
if not Assigned(Pedido) then
|
||||
raise Exception.Create('No hay ningún pedido asignado');
|
||||
|
||||
Pedido.DataTable.Active := True;
|
||||
pgPaginas.ActivePage := pagGeneral;
|
||||
end;
|
||||
|
||||
procedure TfEditorPedidoProveedor.frViewTotales1ePortePropertiesValidate(
|
||||
Sender: TObject; var DisplayValue: Variant; var ErrorText: TCaption;
|
||||
var Error: Boolean);
|
||||
begin
|
||||
inherited;
|
||||
if (not VarIsNull(DisplayValue)) and (length(DisplayValue) > 0) then
|
||||
FPedido.IMPORTE_PORTE := DisplayValue
|
||||
else
|
||||
FPedido.IMPORTE_PORTE := 0;
|
||||
|
||||
RecalcularPortePorUnidad;
|
||||
end;
|
||||
|
||||
function TfEditorPedidoProveedor.GetController: IPedidosProveedorController;
|
||||
begin
|
||||
Result := FController;
|
||||
end;
|
||||
|
||||
function TfEditorPedidoProveedor.GetPedido: IBizPedidoProveedor;
|
||||
begin
|
||||
Result := FPedido;
|
||||
end;
|
||||
|
||||
function TfEditorPedidoProveedor.GetViewPedido: IViewPedidoProveedor;
|
||||
begin
|
||||
Result := FViewPedido;
|
||||
end;
|
||||
|
||||
procedure TfEditorPedidoProveedor.GuardarInterno;
|
||||
var
|
||||
bEsNuevo : Boolean;
|
||||
begin
|
||||
inherited;
|
||||
|
||||
ShowHourglassCursor;
|
||||
// frViewDetallesPedidoProveedor1.SaveGridStatus; // Para guardar estado del grid
|
||||
frViewDetallesPedidoProveedor1.BeginUpdate; // Para que no se mueva el foco
|
||||
try
|
||||
bEsNuevo := FPedido.EsNuevo;
|
||||
FController.Guardar(FPedido);
|
||||
finally
|
||||
frViewDetallesPedidoProveedor1.EndUpdate;
|
||||
// frViewDetallesPedidoProveedor1.RestoreGridStatus;
|
||||
HideHourglassCursor;
|
||||
end;
|
||||
|
||||
if bEsNuevo then
|
||||
ShowInfoMessage('El pedido se ha dado de alta con el código ' + FPedido.REFERENCIA);
|
||||
|
||||
Modified := False;
|
||||
end;
|
||||
|
||||
procedure TfEditorPedidoProveedor.ImprimirInterno;
|
||||
var
|
||||
AllItems: Boolean;
|
||||
FImprimirPrecios : Boolean;
|
||||
FImprimirRefProveedor : Boolean;
|
||||
begin
|
||||
inherited;
|
||||
AllItems := False;
|
||||
FImprimirPrecios := True;
|
||||
FImprimirRefProveedor := True;
|
||||
|
||||
if ElegirOpcionesImpresionPedidoProveedor(FImprimirPrecios, FImprimirRefProveedor) then
|
||||
FController.Print(FPedido, AllItems, FImprimirPrecios, FImprimirRefProveedor);
|
||||
end;
|
||||
|
||||
function TfEditorPedidoProveedor.PuedoImprimir: Boolean;
|
||||
begin
|
||||
Result := inherited PuedoImprimir and (not Pedido.Cliente.IDIsNull);
|
||||
end;
|
||||
|
||||
procedure TfEditorPedidoProveedor.OnProveedorChanged(Sender: TObject);
|
||||
begin
|
||||
if Assigned(FPedido) then
|
||||
begin
|
||||
FPedido.Proveedor := ViewPedido.ViewProveedorPedido.Proveedor;
|
||||
|
||||
// Si el pedido tiene detalles hay que mirar si los descuentos y otros campos
|
||||
// para los artículos hay que cambiarlos.
|
||||
if (FPedido.Detalles.RecordCount > 0) then
|
||||
FController.DetallesController.ActualizarDetalles(FPedido.Detalles, FPedido.Proveedor);
|
||||
end;
|
||||
end;
|
||||
|
||||
procedure TfEditorPedidoProveedor.pgPaginasChanging(Sender: TObject; var AllowChange: Boolean);
|
||||
begin
|
||||
inherited;
|
||||
if (not Assigned(FPedido))
|
||||
or (FPedido.ID_PROVEEDOR = 0) then
|
||||
begin
|
||||
ShowWarningMessage('Antes de introducir conceptos debe elegir un proveedor para este pedido');
|
||||
AllowChange := False;
|
||||
end;
|
||||
end;
|
||||
|
||||
procedure TfEditorPedidoProveedor.PonerTitulos(const ATitulo: string);
|
||||
var
|
||||
FTitulo : String;
|
||||
begin
|
||||
FTitulo := ATitulo;
|
||||
if (FTitulo = '') and Assigned(FPedido) then
|
||||
begin
|
||||
if FPedido.EsNuevo then
|
||||
FTitulo := 'Nuevo pedido a proveedor'
|
||||
else
|
||||
FTitulo := 'Pedido a proveedor' + ' - ' + FPedido.Proveedor.Nombre + ' - (' + FPedido.SITUACION + ')';
|
||||
end;
|
||||
|
||||
inherited PonerTitulos(FTitulo);
|
||||
|
||||
Self.Caption := FTitulo + ' (' + AppFactuGES.EmpresaActiva.NOMBRE + ')';
|
||||
end;
|
||||
|
||||
procedure TfEditorPedidoProveedor.PrevisualizarInterno;
|
||||
var
|
||||
AllItems: Boolean;
|
||||
FImprimirPrecios : Boolean;
|
||||
FImprimirRefProveedor : Boolean;
|
||||
begin
|
||||
inherited;
|
||||
AllItems := False;
|
||||
FImprimirPrecios := True;
|
||||
FImprimirRefProveedor := True;
|
||||
|
||||
if ElegirOpcionesImpresionPedidoProveedor(FImprimirPrecios, FImprimirRefProveedor) then
|
||||
FController.Preview(FPedido, AllItems, FImprimirPrecios, FImprimirRefProveedor);
|
||||
end;
|
||||
|
||||
procedure TfEditorPedidoProveedor.RecalcularPortePorUnidad;
|
||||
begin
|
||||
//Esta lógica se llamará en el editor porque es para facilitar el rellenado de informació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(FPedido.IMPORTE_PORTE, FPedido.Detalles)
|
||||
end;
|
||||
|
||||
procedure TfEditorPedidoProveedor.SetController(const Value: IPedidosProveedorController);
|
||||
begin
|
||||
FController := Value;
|
||||
|
||||
if Assigned(FController) then
|
||||
begin
|
||||
if Assigned(FViewPedido) then
|
||||
FViewPedido.Controller := Controller;
|
||||
|
||||
frViewDetallesPedidoProveedor1.Controller := Controller.DetallesController;
|
||||
end;
|
||||
end;
|
||||
|
||||
procedure TfEditorPedidoProveedor.SetPedido(const Value: IBizPedidoProveedor);
|
||||
begin
|
||||
FPedido := Value;
|
||||
|
||||
if Assigned(FPedido) then
|
||||
begin
|
||||
dsDataTable.DataTable := FPedido.DataTable;
|
||||
frViewTotales1.DADataSource.DataTable := dsDataTable.DataTable;
|
||||
frViewIncidenciasProv.DADataSource.DataTable := dsDataTable.DataTable;
|
||||
|
||||
if Assigned(FViewPedido) then
|
||||
begin
|
||||
ViewPedido.ViewProveedorPedido.OnProveedorChanged := NIL;
|
||||
try
|
||||
FViewPedido.Pedido := FPedido;
|
||||
frViewDetallesPedidoProveedor1.Detalles := FPedido.Detalles;
|
||||
frViewDetallesPedidoProveedor1.Pedido := FPedido; //Para poder sacar los articulos del proveedor seleccionado
|
||||
finally
|
||||
ViewPedido.ViewProveedorPedido.OnProveedorChanged := OnProveedorChanged;
|
||||
end;
|
||||
end;
|
||||
end;
|
||||
end;
|
||||
|
||||
procedure TfEditorPedidoProveedor.SetViewPedido(const Value: IViewPedidoProveedor);
|
||||
begin
|
||||
FViewPedido := Value;
|
||||
|
||||
if Assigned(FViewPedido) and Assigned(Pedido) then
|
||||
FViewPedido.Pedido := Pedido;
|
||||
end;
|
||||
|
||||
end.
|
||||
|
||||
@ -1,612 +0,0 @@
|
||||
object DataModulePedidosCliente: TDataModulePedidosCliente
|
||||
Left = 0
|
||||
Top = 0
|
||||
ClientHeight = 362
|
||||
ClientWidth = 805
|
||||
Color = clBtnFace
|
||||
Font.Charset = DEFAULT_CHARSET
|
||||
Font.Color = clWindowText
|
||||
Font.Height = -11
|
||||
Font.Name = 'Tahoma'
|
||||
Font.Style = []
|
||||
OldCreateOrder = True
|
||||
OnCreate = DAClientDataModuleCreate
|
||||
PixelsPerInch = 96
|
||||
TextHeight = 13
|
||||
object RORemoteService: TRORemoteService
|
||||
Message = dmConexion.ROMessage
|
||||
Channel = dmConexion.ROChannel
|
||||
ServiceName = 'srvPedidosCliente'
|
||||
Left = 40
|
||||
Top = 24
|
||||
end
|
||||
object tbl_PedidosCliente: TDAMemDataTable
|
||||
RemoteUpdatesOptions = []
|
||||
Fields = <
|
||||
item
|
||||
Name = 'ID'
|
||||
DataType = datAutoInc
|
||||
GeneratorName = 'GEN_PEDIDOS_CLI_ID'
|
||||
DictionaryEntry = 'PedidosCliente_ID'
|
||||
InPrimaryKey = True
|
||||
end
|
||||
item
|
||||
Name = 'ID_EMPRESA'
|
||||
DataType = datInteger
|
||||
DictionaryEntry = 'PedidosCliente_ID_EMPRESA'
|
||||
end
|
||||
item
|
||||
Name = 'ID_CLIENTE'
|
||||
DataType = datInteger
|
||||
DictionaryEntry = 'PedidosCliente_ID_CLIENTE'
|
||||
end
|
||||
item
|
||||
Name = 'NOMBRE'
|
||||
DataType = datString
|
||||
Size = 255
|
||||
DisplayLabel = 'Nombre del cliente'
|
||||
DictionaryEntry = 'PedidosCliente_NOMBRE'
|
||||
end
|
||||
item
|
||||
Name = 'REFERENCIA'
|
||||
DataType = datString
|
||||
Size = 255
|
||||
DisplayLabel = 'Referencia'
|
||||
DictionaryEntry = 'PedidosCliente_REFERENCIA'
|
||||
end
|
||||
item
|
||||
Name = 'REFERENCIA_CLIENTE'
|
||||
DataType = datString
|
||||
Size = 255
|
||||
DisplayLabel = 'PedidosCliente_REFERENCIA_CLIENTE'
|
||||
DictionaryEntry = 'PedidosCliente_REFERENCIA_CLIENTE'
|
||||
end
|
||||
item
|
||||
Name = 'SITUACION'
|
||||
DataType = datString
|
||||
Size = 255
|
||||
DisplayLabel = 'Situaci'#243'n'
|
||||
DictionaryEntry = 'PedidosCliente_SITUACION'
|
||||
end
|
||||
item
|
||||
Name = 'FECHA_PEDIDO'
|
||||
DataType = datDateTime
|
||||
DisplayLabel = 'Fecha pedido'
|
||||
DictionaryEntry = 'PedidosCliente_FECHA_PEDIDO'
|
||||
end
|
||||
item
|
||||
Name = 'ID_DIRECCION'
|
||||
DataType = datInteger
|
||||
DisplayLabel = 'PedidosCliente_ID_DIRECCION'
|
||||
DictionaryEntry = 'PedidosCliente_ID_DIRECCION'
|
||||
end
|
||||
item
|
||||
Name = 'CALLE'
|
||||
DataType = datString
|
||||
Size = 255
|
||||
DisplayLabel = 'Calle'
|
||||
DictionaryEntry = 'PedidosCliente_CALLE'
|
||||
end
|
||||
item
|
||||
Name = 'CODIGO_POSTAL'
|
||||
DataType = datString
|
||||
Size = 10
|
||||
DisplayLabel = 'C'#243'd. postal'
|
||||
DictionaryEntry = 'PedidosCliente_CODIGO_POSTAL'
|
||||
end
|
||||
item
|
||||
Name = 'POBLACION'
|
||||
DataType = datString
|
||||
Size = 255
|
||||
DisplayLabel = 'Poblaci'#243'n'
|
||||
DictionaryEntry = 'PedidosCliente_POBLACION'
|
||||
end
|
||||
item
|
||||
Name = 'PROVINCIA'
|
||||
DataType = datString
|
||||
Size = 255
|
||||
DisplayLabel = 'Provincia'
|
||||
DictionaryEntry = 'PedidosCliente_PROVINCIA'
|
||||
end
|
||||
item
|
||||
Name = 'PERSONA_CONTACTO'
|
||||
DataType = datString
|
||||
Size = 255
|
||||
DisplayLabel = 'Persona de contacto'
|
||||
DictionaryEntry = 'PedidosCliente_PERSONA_CONTACTO'
|
||||
end
|
||||
item
|
||||
Name = 'TELEFONO'
|
||||
DataType = datString
|
||||
Size = 25
|
||||
DisplayLabel = 'Tel'#233'fono'
|
||||
DictionaryEntry = 'PedidosCliente_TELEFONO'
|
||||
end
|
||||
item
|
||||
Name = 'OBSERVACIONES'
|
||||
DataType = datMemo
|
||||
DisplayLabel = 'Observaciones'
|
||||
DictionaryEntry = 'PedidosCliente_OBSERVACIONES'
|
||||
end
|
||||
item
|
||||
Name = 'INCIDENCIAS'
|
||||
DataType = datMemo
|
||||
DictionaryEntry = 'PedidosCliente_INCIDENCIAS'
|
||||
end
|
||||
item
|
||||
Name = 'INCIDENCIAS_ACTIVAS'
|
||||
DataType = datInteger
|
||||
DictionaryEntry = 'PedidosCliente_INCIDENCIAS_ACTIVAS'
|
||||
end
|
||||
item
|
||||
Name = 'FECHA_ALTA'
|
||||
DataType = datDateTime
|
||||
DictionaryEntry = 'PedidosCliente_FECHA_ALTA'
|
||||
end
|
||||
item
|
||||
Name = 'FECHA_MODIFICACION'
|
||||
DataType = datDateTime
|
||||
DictionaryEntry = 'PedidosCliente_FECHA_MODIFICACION'
|
||||
end
|
||||
item
|
||||
Name = 'USUARIO'
|
||||
DataType = datString
|
||||
Size = 20
|
||||
DictionaryEntry = 'PedidosCliente_USUARIO'
|
||||
end
|
||||
item
|
||||
Name = 'IMPORTE_NETO'
|
||||
DataType = datCurrency
|
||||
DisplayLabel = 'Importe neto'
|
||||
Alignment = taRightJustify
|
||||
DictionaryEntry = 'PedidosCliente_IMPORTE_NETO'
|
||||
end
|
||||
item
|
||||
Name = 'IMPORTE_PORTE'
|
||||
DataType = datCurrency
|
||||
DisplayLabel = 'Importe del porte'
|
||||
Alignment = taRightJustify
|
||||
DictionaryEntry = 'PedidosCliente_IMPORTE_PORTE'
|
||||
end
|
||||
item
|
||||
Name = 'DESCUENTO'
|
||||
DataType = datFloat
|
||||
DisplayLabel = 'Descuento'
|
||||
DisplayFormat = ',0.00 %;-,0.00 %'
|
||||
Alignment = taRightJustify
|
||||
DictionaryEntry = 'PedidosCliente_DESCUENTO'
|
||||
end
|
||||
item
|
||||
Name = 'IMPORTE_DESCUENTO'
|
||||
DataType = datCurrency
|
||||
DisplayLabel = 'Importe dto.'
|
||||
Alignment = taRightJustify
|
||||
DictionaryEntry = 'PedidosCliente_IMPORTE_DESCUENTO'
|
||||
end
|
||||
item
|
||||
Name = 'DESCUENTO2'
|
||||
DataType = datFloat
|
||||
DictionaryEntry = 'PedidosCliente_DESCUENTO2'
|
||||
end
|
||||
item
|
||||
Name = 'IMPORTE_DESCUENTO2'
|
||||
DataType = datCurrency
|
||||
DecimalPrecision = 11
|
||||
DecimalScale = 2
|
||||
DictionaryEntry = 'PedidosCliente_IMPORTE_DESCUENTO2'
|
||||
end
|
||||
item
|
||||
Name = 'BASE_IMPONIBLE'
|
||||
DataType = datCurrency
|
||||
DisplayLabel = 'Base imponible'
|
||||
Alignment = taRightJustify
|
||||
DictionaryEntry = 'PedidosCliente_BASE_IMPONIBLE'
|
||||
end
|
||||
item
|
||||
Name = 'IVA'
|
||||
DataType = datFloat
|
||||
DisplayFormat = ',0.00 %;-,0.00 %'
|
||||
Alignment = taRightJustify
|
||||
DictionaryEntry = 'PedidosCliente_IVA'
|
||||
end
|
||||
item
|
||||
Name = 'IMPORTE_IVA'
|
||||
DataType = datCurrency
|
||||
DisplayLabel = 'Importe IVA'
|
||||
Alignment = taRightJustify
|
||||
DictionaryEntry = 'PedidosCliente_IMPORTE_IVA'
|
||||
end
|
||||
item
|
||||
Name = 'IMPORTE_TOTAL'
|
||||
DataType = datCurrency
|
||||
DisplayLabel = 'Importe total'
|
||||
Alignment = taRightJustify
|
||||
DictionaryEntry = 'PedidosCliente_IMPORTE_TOTAL'
|
||||
end
|
||||
item
|
||||
Name = 'ID_FORMA_PAGO'
|
||||
DataType = datInteger
|
||||
DictionaryEntry = 'PedidosCliente_ID_FORMA_PAGO'
|
||||
end
|
||||
item
|
||||
Name = 'FORMA_PAGO'
|
||||
DataType = datString
|
||||
Size = 255
|
||||
DisplayLabel = 'PedidosCliente_FORMA_PAGO'
|
||||
DictionaryEntry = 'PedidosCliente_FORMA_PAGO'
|
||||
end
|
||||
item
|
||||
Name = 'REF_TIENDA_WEB'
|
||||
DataType = datInteger
|
||||
DictionaryEntry = 'PedidosCliente_REF_TIENDA_WEB'
|
||||
end
|
||||
item
|
||||
Name = 'FECHA_PREVISTA_ENVIO'
|
||||
DataType = datDateTime
|
||||
DisplayLabel = 'Fecha de entrega prevista'
|
||||
DictionaryEntry = 'PedidosCliente_FECHA_PREVISTA_ENVIO'
|
||||
end
|
||||
item
|
||||
Name = 'DATOS_BANCARIOS'
|
||||
DataType = datString
|
||||
Size = 255
|
||||
DisplayLabel = 'PedidosCliente_DATOS_BANCARIOS'
|
||||
DictionaryEntry = 'PedidosCliente_DATOS_BANCARIOS'
|
||||
end>
|
||||
Params = <>
|
||||
StreamingOptions = [soDisableEventsWhileStreaming]
|
||||
RemoteDataAdapter = rda_PedidosCliente
|
||||
LogicalName = 'PedidosCliente'
|
||||
IndexDefs = <>
|
||||
Left = 208
|
||||
Top = 104
|
||||
end
|
||||
object ds_PedidosCliente: TDADataSource
|
||||
DataSet = tbl_PedidosCliente.Dataset
|
||||
DataTable = tbl_PedidosCliente
|
||||
Left = 208
|
||||
Top = 48
|
||||
end
|
||||
object tbl_PedidosCliente_Detalles: TDAMemDataTable
|
||||
RemoteUpdatesOptions = []
|
||||
Fields = <
|
||||
item
|
||||
Name = 'ID'
|
||||
DataType = datAutoInc
|
||||
GeneratorName = 'GEN_PEDIDOS_CLI_DETALLES_ID'
|
||||
Required = True
|
||||
DictionaryEntry = 'PedidosCliente_Detalles_ID'
|
||||
InPrimaryKey = True
|
||||
end
|
||||
item
|
||||
Name = 'ID_PEDIDO'
|
||||
DataType = datInteger
|
||||
DictionaryEntry = 'PedidosCliente_Detalles_ID_PEDIDO'
|
||||
end
|
||||
item
|
||||
Name = 'POSICION'
|
||||
DataType = datInteger
|
||||
DictionaryEntry = 'POSICIONCONCEPTO'
|
||||
end
|
||||
item
|
||||
Name = 'TIPO_DETALLE'
|
||||
DataType = datString
|
||||
Size = 10
|
||||
DictionaryEntry = 'PedidosCliente_Detalles_TIPO_DETALLE'
|
||||
end
|
||||
item
|
||||
Name = 'ID_ARTICULO'
|
||||
DataType = datInteger
|
||||
DictionaryEntry = 'PedidosCliente_Detalles_ID_ARTICULO'
|
||||
end
|
||||
item
|
||||
Name = 'REFERENCIA'
|
||||
DataType = datString
|
||||
Size = 255
|
||||
DisplayLabel = 'Referencia'
|
||||
DictionaryEntry = 'PedidosCliente_Detalles_REFERENCIA'
|
||||
end
|
||||
item
|
||||
Name = 'REFERENCIA_PROVEEDOR'
|
||||
DataType = datString
|
||||
Size = 255
|
||||
DisplayLabel = 'Ref. proveedor'
|
||||
DictionaryEntry = 'PedidosCliente_Detalles_REFERENCIA_PROVEEDOR'
|
||||
end
|
||||
item
|
||||
Name = 'CONCEPTO'
|
||||
DataType = datString
|
||||
Size = 2000
|
||||
DictionaryEntry = 'PedidosCliente_Detalles_CONCEPTO'
|
||||
end
|
||||
item
|
||||
Name = 'CANTIDAD'
|
||||
DataType = datFloat
|
||||
DisplayLabel = 'PedidosCliente_Detalles_CANTIDAD'
|
||||
Alignment = taRightJustify
|
||||
DictionaryEntry = 'PedidosCliente_Detalles_CANTIDAD'
|
||||
end
|
||||
item
|
||||
Name = 'IMPORTE_UNIDAD'
|
||||
DataType = datCurrency
|
||||
DisplayLabel = 'Importe unidad'
|
||||
Alignment = taRightJustify
|
||||
DictionaryEntry = 'PedidosCliente_Detalles_IMPORTE_UNIDAD'
|
||||
end
|
||||
item
|
||||
Name = 'UNIDAD_MEDIDA'
|
||||
DataType = datString
|
||||
DisplayLabel = 'PedidosCliente_Detalles_UNIDAD_MEDIDA'
|
||||
DictionaryEntry = 'PedidosCliente_Detalles_UNIDAD_MEDIDA'
|
||||
end
|
||||
item
|
||||
Name = 'DESCUENTO'
|
||||
DataType = datFloat
|
||||
DisplayLabel = 'Descuento'
|
||||
DisplayFormat = ',0.00 %;-,0.00 %'
|
||||
Alignment = taRightJustify
|
||||
DictionaryEntry = 'PedidosCliente_Detalles_DESCUENTO'
|
||||
end
|
||||
item
|
||||
Name = 'IMPORTE_PORTE'
|
||||
DataType = datCurrency
|
||||
DisplayLabel = 'Importe porte'
|
||||
Alignment = taRightJustify
|
||||
DictionaryEntry = 'PedidosCliente_Detalles_IMPORTE_PORTE'
|
||||
end
|
||||
item
|
||||
Name = 'IMPORTE_TOTAL'
|
||||
DataType = datCurrency
|
||||
DisplayLabel = 'Importe total'
|
||||
Alignment = taRightJustify
|
||||
DictionaryEntry = 'PedidosCliente_Detalles_IMPORTE_TOTAL'
|
||||
end
|
||||
item
|
||||
Name = 'VISIBLE'
|
||||
DataType = datInteger
|
||||
DictionaryEntry = 'PedidosCliente_Detalles_VISIBLE'
|
||||
end>
|
||||
Params = <>
|
||||
MasterMappingMode = mmWhere
|
||||
MasterParamsMappings.Strings = (
|
||||
'ID_PEDIDO=ID')
|
||||
StreamingOptions = [soDisableEventsWhileStreaming]
|
||||
RemoteDataAdapter = rda_PedidosCliente
|
||||
MasterSource = ds_PedidosCliente
|
||||
MasterFields = 'ID'
|
||||
DetailFields = 'ID_PEDIDO'
|
||||
LogicalName = 'PedidosCliente_Detalles'
|
||||
IndexDefs = <>
|
||||
Left = 329
|
||||
Top = 104
|
||||
end
|
||||
object ds_PedidosCliente_Detalles: TDADataSource
|
||||
DataSet = tbl_PedidosCliente_Detalles.Dataset
|
||||
DataTable = tbl_PedidosCliente_Detalles
|
||||
Left = 329
|
||||
Top = 48
|
||||
end
|
||||
object tbl_PedidoCliente_Articulos_Pendientes: TDAMemDataTable
|
||||
RemoteUpdatesOptions = []
|
||||
Fields = <
|
||||
item
|
||||
Name = 'ID_ARTICULO'
|
||||
DataType = datInteger
|
||||
DictionaryEntry = 'PedidoCliente_Articulos_Pendientes_ID_ARTICULO'
|
||||
InPrimaryKey = True
|
||||
end
|
||||
item
|
||||
Name = 'CANTIDAD_PED'
|
||||
DataType = datInteger
|
||||
DisplayLabel = 'Cantidad en pedido'
|
||||
Alignment = taRightJustify
|
||||
DictionaryEntry = 'PedidoCliente_Articulos_Pendientes_CANTIDAD_PED'
|
||||
end
|
||||
item
|
||||
Name = 'CANTIDAD_ALB'
|
||||
DataType = datInteger
|
||||
DisplayLabel = 'Cantidad en albaranes'
|
||||
Alignment = taRightJustify
|
||||
DictionaryEntry = 'PedidoCliente_Articulos_Pendientes_CANTIDAD_ALB'
|
||||
end
|
||||
item
|
||||
Name = 'CANTIDAD_PENDIENTE'
|
||||
DataType = datInteger
|
||||
DisplayLabel = 'Cantidad pendiente'
|
||||
Alignment = taRightJustify
|
||||
DictionaryEntry = 'PedidoCliente_Articulos_Pendientes_CANTIDAD_PENDIENTE'
|
||||
end>
|
||||
Params = <
|
||||
item
|
||||
Name = 'ID_PEDIDO'
|
||||
DataType = datInteger
|
||||
Value = ''
|
||||
ParamType = daptInput
|
||||
end>
|
||||
MasterMappingMode = mmDataRequest
|
||||
StreamingOptions = [soDisableEventsWhileStreaming]
|
||||
LogicalName = 'PedidoCliente_Articulos_Pendientes'
|
||||
IndexDefs = <>
|
||||
Left = 208
|
||||
Top = 192
|
||||
end
|
||||
object ds_PedidoCliente_Articulos_Pendientes: TDADataSource
|
||||
DataSet = tbl_PedidoCliente_Articulos_Pendientes.Dataset
|
||||
DataTable = tbl_PedidoCliente_Articulos_Pendientes
|
||||
Left = 208
|
||||
Top = 256
|
||||
end
|
||||
object tbl_PedidoCliente_ArticulosPendientesPedirAProv: TDAMemDataTable
|
||||
RemoteUpdatesOptions = []
|
||||
Fields = <
|
||||
item
|
||||
Name = 'ID_PEDIDO'
|
||||
DataType = datAutoInc
|
||||
DictionaryEntry = 'DarArticulosPendientesPedirAProv_ID_PEDIDO'
|
||||
end
|
||||
item
|
||||
Name = 'ID_ARTICULO'
|
||||
DataType = datInteger
|
||||
DictionaryEntry = 'DarArticulosPendientesPedirAProv_ID_ARTICULO'
|
||||
end
|
||||
item
|
||||
Name = 'CANT_PEDIDA_CLIENTE'
|
||||
DataType = datInteger
|
||||
DisplayLabel = 'Cant. pedida por cliente'
|
||||
DictionaryEntry = 'DarArticulosPendientesPedirAProv_CANT_PEDIDA_CLIENTE'
|
||||
end
|
||||
item
|
||||
Name = 'ID_PROVEEDOR'
|
||||
DataType = datInteger
|
||||
DictionaryEntry = 'DarArticulosPendientesPedirAProv_ID_PROVEEDOR'
|
||||
end
|
||||
item
|
||||
Name = 'CANT_PEDIDA_PROVEEDOR'
|
||||
DataType = datInteger
|
||||
DisplayLabel = 'Cant. pedida a proveedor'
|
||||
DictionaryEntry = 'DarArticulosPendientesPedirAProv_CANT_PEDIDA_PROVEEDOR'
|
||||
end
|
||||
item
|
||||
Name = 'CANT_PENDIENTE_PEDIR'
|
||||
DataType = datInteger
|
||||
DisplayLabel = 'Cant. pendiente pedir'
|
||||
DictionaryEntry = 'DarArticulosPendientesPedirAProv_CANT_PENDIENTE_PEDIR'
|
||||
end>
|
||||
Params = <
|
||||
item
|
||||
Name = 'ID_PEDIDO'
|
||||
Value = ''
|
||||
ParamType = daptInput
|
||||
end>
|
||||
MasterMappingMode = mmDataRequest
|
||||
StreamingOptions = [soDisableEventsWhileStreaming]
|
||||
LogicalName = 'PedidoCliente_ArticulosPendientesPedirAProv'
|
||||
IndexDefs = <>
|
||||
Left = 440
|
||||
Top = 192
|
||||
end
|
||||
object ds_PedidoCliente_ArticulosPendientesPedirAProv: TDADataSource
|
||||
DataSet = tbl_PedidoCliente_ArticulosPendientesPedirAProv.Dataset
|
||||
DataTable = tbl_PedidoCliente_ArticulosPendientesPedirAProv
|
||||
Left = 440
|
||||
Top = 256
|
||||
end
|
||||
object tbl_ListaAnosPedidos: TDAMemDataTable
|
||||
RemoteUpdatesOptions = []
|
||||
Fields = <
|
||||
item
|
||||
Name = 'ANO'
|
||||
DataType = datString
|
||||
Size = 254
|
||||
end>
|
||||
Params = <>
|
||||
MasterMappingMode = mmDataRequest
|
||||
StreamingOptions = [soDisableEventsWhileStreaming]
|
||||
RemoteDataAdapter = rda_PedidosCliente
|
||||
LogicalName = 'ListaAnosPedidos'
|
||||
IndexDefs = <>
|
||||
Left = 632
|
||||
Top = 264
|
||||
end
|
||||
object ds_ListaAnosPedidos: TDADataSource
|
||||
DataSet = tbl_ListaAnosPedidos.Dataset
|
||||
DataTable = tbl_ListaAnosPedidos
|
||||
Left = 624
|
||||
Top = 200
|
||||
end
|
||||
object Bin2DataStreamer: TDABin2DataStreamer
|
||||
Left = 40
|
||||
Top = 76
|
||||
end
|
||||
object rda_PedidosCliente: TDARemoteDataAdapter
|
||||
GetSchemaCall.RemoteService = RORemoteService
|
||||
GetDataCall.RemoteService = RORemoteService
|
||||
UpdateDataCall.RemoteService = RORemoteService
|
||||
GetScriptsCall.RemoteService = RORemoteService
|
||||
RemoteService = RORemoteService
|
||||
DataStreamer = Bin2DataStreamer
|
||||
Left = 43
|
||||
Top = 143
|
||||
end
|
||||
object tbl_PedidosCliente_Detalle_Color: TDAMemDataTable
|
||||
RemoteUpdatesOptions = []
|
||||
Fields = <
|
||||
item
|
||||
Name = 'ID'
|
||||
DataType = datAutoInc
|
||||
GeneratorName = 'GEN_PEDIDOS_CLI_DETALLES_ID'
|
||||
Required = True
|
||||
DictionaryEntry = 'PedidosCliente_Detalles_ID'
|
||||
InPrimaryKey = True
|
||||
end
|
||||
item
|
||||
Name = 'ID_DETALLE'
|
||||
DataType = datInteger
|
||||
end
|
||||
item
|
||||
Name = 'COLOR1'
|
||||
DataType = datInteger
|
||||
end
|
||||
item
|
||||
Name = 'COLOR2'
|
||||
DataType = datInteger
|
||||
end
|
||||
item
|
||||
Name = 'COLOR3'
|
||||
DataType = datInteger
|
||||
end
|
||||
item
|
||||
Name = 'COLOR4'
|
||||
DataType = datInteger
|
||||
end
|
||||
item
|
||||
Name = 'COLOR5'
|
||||
DataType = datInteger
|
||||
end
|
||||
item
|
||||
Name = 'COLOR6'
|
||||
DataType = datInteger
|
||||
end
|
||||
item
|
||||
Name = 'COLOR7'
|
||||
DataType = datInteger
|
||||
end
|
||||
item
|
||||
Name = 'COLOR8'
|
||||
DataType = datInteger
|
||||
end
|
||||
item
|
||||
Name = 'COLOR9'
|
||||
DataType = datInteger
|
||||
end
|
||||
item
|
||||
Name = 'COLOR10'
|
||||
DataType = datInteger
|
||||
end
|
||||
item
|
||||
Name = 'COLOR11'
|
||||
DataType = datInteger
|
||||
end
|
||||
item
|
||||
Name = 'COLOR12'
|
||||
DataType = datInteger
|
||||
end>
|
||||
Params = <>
|
||||
MasterMappingMode = mmWhere
|
||||
StreamingOptions = [soDisableEventsWhileStreaming, soDisableFiltering]
|
||||
RemoteDataAdapter = rda_PedidosCliente
|
||||
MasterSource = ds_PedidosCliente_Detalles
|
||||
MasterFields = 'ID'
|
||||
DetailFields = 'ID_DETALLE'
|
||||
LogicalName = 'PedidosCliente_Detalle_Color'
|
||||
IndexDefs = <>
|
||||
Left = 472
|
||||
Top = 104
|
||||
end
|
||||
object ds_PedidosCliente_Detalle_Color: TDADataSource
|
||||
DataSet = tbl_PedidosCliente_Detalle_Color.Dataset
|
||||
DataTable = tbl_PedidosCliente_Detalle_Color
|
||||
Left = 472
|
||||
Top = 48
|
||||
end
|
||||
end
|
||||
@ -1,14 +0,0 @@
|
||||
/* VER180
|
||||
Generated by the Borland Delphi Pascal Compiler
|
||||
because -GD or --drc was supplied to the compiler.
|
||||
|
||||
This file contains compiler-generated resources that
|
||||
were bound to the executable.
|
||||
If this file is empty, then no compiler-generated
|
||||
resources were bound to the produced executable.
|
||||
*/
|
||||
|
||||
STRINGTABLE
|
||||
BEGIN
|
||||
END
|
||||
|
||||
@ -1,343 +0,0 @@
|
||||
unit uEditorRemesaProveedor;
|
||||
|
||||
interface
|
||||
|
||||
uses
|
||||
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
|
||||
Dialogs, uEditorDBItem, ToolWin, ComCtrls, JvExControls, JvComponent,
|
||||
uBizRemesasProveedor, JvNavigationPane, ActnList,
|
||||
uEditorBase, StdActns, TB2Dock, TB2Toolbar, TBX, ImgList, PngImageList,
|
||||
TB2Item, uEditorItem, DB, uDADataTable, uEditorDBBase, JvFormAutoSize,
|
||||
uDAScriptingProvider, uDACDSDataTable, StdCtrls, pngimage, ExtCtrls,
|
||||
TBXDkPanels, JvButton, AppEvnts, uCustomView, uViewBase,
|
||||
JvAppStorage, JvAppRegistryStorage, JvFormPlacement, JvComponentBase,
|
||||
cxCustomData,
|
||||
uViewRemesasProveedor, uIEditorRemesaProveedor, uRemesasProveedorController, JvExComCtrls,
|
||||
JvStatusBar, dxLayoutLookAndFeels, uViewGridBase, uViewGrid,
|
||||
uViewRecibosRemesaProveedor, uViewTotales, uViewDetallesGenerico,
|
||||
uViewRemesaProveedor, uDAInterfaces, cxControls, cxContainer, cxEdit, cxLabel;
|
||||
|
||||
type
|
||||
TfEditorRemesaProveedor = class(TfEditorDBItem, IEditorRemesaProveedor)
|
||||
dxLayoutLookAndFeelList1: TdxLayoutLookAndFeelList;
|
||||
dxLayoutOfficeLookAndFeel1: TdxLayoutOfficeLookAndFeel;
|
||||
frViewTotales1: TfrViewTotales;
|
||||
actVolcarDisco: TAction;
|
||||
TBXSubmenuItem2: TTBXSubmenuItem;
|
||||
TBXItem7: TTBXItem;
|
||||
TBXItem33: TTBXItem;
|
||||
TBXSeparatorItem6: TTBXSeparatorItem;
|
||||
frViewRecibosRemesaProveedor1: TfrViewRecibosRemesaProveedor;
|
||||
frViewRemesaProveedor1: TfrViewRemesaProveedor;
|
||||
procedure FormShow(Sender: TObject);
|
||||
procedure CustomEditorClose(Sender: TObject; var Action: TCloseAction);
|
||||
|
||||
procedure actAnadirRecibosExecute(Sender: TObject);
|
||||
procedure actEliminarReciboExecute(Sender: TObject);
|
||||
procedure JvFormStorageRestorePlacement(Sender: TObject);
|
||||
procedure JvFormStorageSavePlacement(Sender: TObject);
|
||||
procedure frViewRecibosRemesaProveedor1cxGridViewDataControllerSummaryAfterSummary(
|
||||
ASender: TcxDataSummary);
|
||||
procedure actVolcarDiscoUpdate(Sender: TObject);
|
||||
procedure actVolcarDiscoExecute(Sender: TObject);
|
||||
private
|
||||
procedure OnRecibosChanged(Sender: TObject);
|
||||
protected
|
||||
FController : IRemesasProveedorController;
|
||||
FRemesaProveedor: IBizRemesaProveedor;
|
||||
FViewRemesaProveedor : IViewRemesaProveedor;
|
||||
|
||||
function GetController : IRemesasProveedorController;
|
||||
procedure SetController (const Value : IRemesasProveedorController); virtual;
|
||||
function GetRemesaProveedor: IBizRemesaProveedor; virtual;
|
||||
procedure SetRemesaProveedor(const Value: IBizRemesaProveedor); virtual;
|
||||
function GetViewRemesaProveedor: IViewRemesaProveedor;
|
||||
procedure SetViewRemesaProveedor(const Value: IViewRemesaProveedor);
|
||||
property ViewRemesaProveedor: IViewRemesaProveedor read GetViewRemesaProveedor write SetViewRemesaProveedor;
|
||||
|
||||
procedure GuardarInterno; override;
|
||||
procedure EliminarInterno; override;
|
||||
procedure PrevisualizarInterno; override;
|
||||
procedure ImprimirInterno; override;
|
||||
procedure CerrarInterno; override;
|
||||
|
||||
procedure PonerTitulos(const ATitulo: string = ''); override;
|
||||
function GetModified: Boolean; override;
|
||||
|
||||
public
|
||||
property RemesaProveedor: IBizRemesaProveedor read GetRemesaProveedor write SetRemesaProveedor;
|
||||
constructor Create(AOwner: TComponent); override;
|
||||
destructor Destroy; override;
|
||||
end;
|
||||
|
||||
implementation
|
||||
|
||||
{$R *.dfm}
|
||||
|
||||
uses
|
||||
uDataTableUtils, uDataModuleUsuarios, uDialogUtils, uCustomEditor,
|
||||
uDataModuleRemesasProveedor, uDataModuleBase, uBizFamilias, uFamiliasController,
|
||||
uFactuGES_App;
|
||||
// uBancaElectronicaController;
|
||||
|
||||
{
|
||||
******************************* TfEditorRemesaProveedor *******************************
|
||||
}
|
||||
function TfEditorRemesaProveedor.GetRemesaProveedor: IBizRemesaProveedor;
|
||||
begin
|
||||
Result := FRemesaProveedor;
|
||||
end;
|
||||
|
||||
function TfEditorRemesaProveedor.GetController: IRemesasProveedorController;
|
||||
begin
|
||||
Result := FController;
|
||||
end;
|
||||
|
||||
function TfEditorRemesaProveedor.GetModified: Boolean;
|
||||
var
|
||||
bCambiado : Boolean;
|
||||
begin
|
||||
bCambiado := inherited GetModified;
|
||||
//Si no hay cambios miramos que no los halla en la lista de recibos
|
||||
if not bCambiado then
|
||||
bCambiado := frViewRecibosRemesaProveedor1.Modified;
|
||||
Result := bCambiado;
|
||||
end;
|
||||
|
||||
function TfEditorRemesaProveedor.GetViewRemesaProveedor: IViewRemesaProveedor;
|
||||
begin
|
||||
Result := FViewRemesaProveedor;
|
||||
end;
|
||||
|
||||
procedure TfEditorRemesaProveedor.GuardarInterno;
|
||||
var
|
||||
bEsNuevo : Boolean;
|
||||
begin
|
||||
inherited;
|
||||
|
||||
ShowHourglassCursor;
|
||||
frViewRecibosRemesaProveedor1.OnViewModified := Nil;
|
||||
//frViewDetallesFacturaProveedor1.SaveGridStatus; // Para guardar estado del grid
|
||||
// frViewDetallesFacturaProveedor1.BeginUpdate; // Para que no se mueva el foco
|
||||
try
|
||||
bEsNuevo := FRemesaProveedor.EsNuevo;
|
||||
FController.Guardar(FRemesaProveedor);
|
||||
|
||||
finally
|
||||
// frViewDetallesFacturaProveedor1.EndUpdate;
|
||||
// frViewDetallesFacturaProveedor1.RestoreGridStatus;
|
||||
HideHourglassCursor;
|
||||
end;
|
||||
|
||||
if bEsNuevo then
|
||||
ShowInfoMessage('La remesa de pago se ha dado de alta con el código ' + FRemesaProveedor.REFERENCIA);
|
||||
Modified := False;
|
||||
frViewRecibosRemesaProveedor1.Modified := False;
|
||||
frViewRecibosRemesaProveedor1.OnViewModified := OnRecibosChanged;
|
||||
end;
|
||||
|
||||
procedure TfEditorRemesaProveedor.ImprimirInterno;
|
||||
begin
|
||||
inherited;
|
||||
FController.Print(FRemesaProveedor);
|
||||
end;
|
||||
|
||||
procedure TfEditorRemesaProveedor.JvFormStorageRestorePlacement(Sender: TObject);
|
||||
begin
|
||||
inherited;
|
||||
//frViewRecibosRemesaProveedor1.RestoreFromRegistry(JvAppRegistryStorage.Root);
|
||||
end;
|
||||
|
||||
procedure TfEditorRemesaProveedor.JvFormStorageSavePlacement(Sender: TObject);
|
||||
begin
|
||||
inherited;
|
||||
//frViewRecibosRemesaProveedor1.StoreToRegistry(JvAppRegistryStorage.Root);
|
||||
end;
|
||||
|
||||
procedure TfEditorRemesaProveedor.OnRecibosChanged(Sender: TObject);
|
||||
begin
|
||||
ActualizarEstadoEditor;
|
||||
end;
|
||||
|
||||
procedure TfEditorRemesaProveedor.PonerTitulos(const ATitulo: string);
|
||||
var
|
||||
FTitulo : String;
|
||||
begin
|
||||
FTitulo := ATitulo;
|
||||
if (FTitulo = '') and Assigned(RemesaProveedor) then
|
||||
begin
|
||||
if RemesaProveedor.EsNuevo then
|
||||
FTitulo := 'Nueva remesa de pago'
|
||||
else
|
||||
FTitulo := 'Remesa de pago';
|
||||
end;
|
||||
|
||||
inherited PonerTitulos(FTitulo);
|
||||
|
||||
Self.Caption := FTitulo + ' (' + AppFactuGES.EmpresaActiva.NOMBRE + ')';
|
||||
end;
|
||||
|
||||
procedure TfEditorRemesaProveedor.PrevisualizarInterno;
|
||||
begin
|
||||
inherited;
|
||||
FController.Preview(FRemesaProveedor);
|
||||
end;
|
||||
|
||||
procedure TfEditorRemesaProveedor.SetRemesaProveedor(const Value: IBizRemesaProveedor);
|
||||
begin
|
||||
FRemesaProveedor := Value;
|
||||
if Assigned(FRemesaProveedor) then
|
||||
begin
|
||||
dsDataTable.DataTable := FRemesaProveedor.DataTable;
|
||||
frViewRecibosRemesaProveedor1.RemesaProveedor := FRemesaProveedor;
|
||||
frViewRecibosRemesaProveedor1.OnViewModified := OnRecibosChanged;
|
||||
end
|
||||
else
|
||||
begin
|
||||
dsDataTable.DataTable := Nil;
|
||||
frViewRecibosRemesaProveedor1.RemesaProveedor := Nil;
|
||||
frViewRecibosRemesaProveedor1.OnViewModified := Nil;
|
||||
end;
|
||||
|
||||
if Assigned(FViewRemesaProveedor) then
|
||||
FViewRemesaProveedor.RemesaProveedor := FRemesaProveedor;
|
||||
|
||||
frViewTotales1.DADataSource.DataTable := dsDataTable.DataTable;
|
||||
end;
|
||||
|
||||
procedure TfEditorRemesaProveedor.SetController(const Value: IRemesasProveedorController);
|
||||
begin
|
||||
FController := Value;
|
||||
if Assigned(FController) then
|
||||
begin
|
||||
(ViewRemesaProveedor as IViewRemesaProveedor).Controller := (FController as IRemesasProveedorController);
|
||||
frViewRecibosRemesaProveedor1.Controller := (FController as IRemesasProveedorController);
|
||||
end;
|
||||
end;
|
||||
|
||||
procedure TfEditorRemesaProveedor.SetViewRemesaProveedor(const Value: IViewRemesaProveedor);
|
||||
begin
|
||||
FViewRemesaProveedor := Value;
|
||||
|
||||
if Assigned(FViewRemesaProveedor) and Assigned(RemesaProveedor) then
|
||||
begin
|
||||
FViewRemesaProveedor.RemesaProveedor := RemesaProveedor;
|
||||
FViewRemesaProveedor.Controller := (FController as IRemesasProveedorController);
|
||||
end;
|
||||
end;
|
||||
|
||||
procedure TfEditorRemesaProveedor.FormShow(Sender: TObject);
|
||||
begin
|
||||
inherited;
|
||||
|
||||
if not Assigned(FViewRemesaProveedor) then
|
||||
raise Exception.Create('No hay ninguna vista asignada');
|
||||
|
||||
if not Assigned(RemesaProveedor) then
|
||||
raise Exception.Create('No hay ningún almacén asignado');
|
||||
|
||||
RemesaProveedor.DataTable.Active := True;
|
||||
|
||||
//Falla si lo hacemos por dfm
|
||||
frViewRecibosRemesaProveedor1.cxGridView.OptionsSelection.MultiSelect := False;
|
||||
end;
|
||||
|
||||
procedure TfEditorRemesaProveedor.frViewRecibosRemesaProveedor1cxGridViewDataControllerSummaryAfterSummary(ASender: TcxDataSummary);
|
||||
Var
|
||||
AImporteTotal: Currency;
|
||||
begin
|
||||
inherited;
|
||||
|
||||
if VarIsNull(ASender.FooterSummaryValues[0]) then
|
||||
AImporteTotal := 0
|
||||
else
|
||||
AImporteTotal := ASender.FooterSummaryValues[0];
|
||||
|
||||
if Assigned(RemesaProveedor) then
|
||||
begin
|
||||
if (RemesaProveedor.IMPORTE_TOTAL <> AImporteTotal) then
|
||||
begin
|
||||
if not RemesaProveedor.DataTable.Editing then
|
||||
begin
|
||||
RemesaProveedor.Edit;
|
||||
RemesaProveedor.IMPORTE_TOTAL := AImporteTotal;
|
||||
RemesaProveedor.Post;
|
||||
end;
|
||||
end;
|
||||
end;
|
||||
end;
|
||||
|
||||
destructor TfEditorRemesaProveedor.Destroy;
|
||||
begin
|
||||
// Utilizar mejor OnClose;
|
||||
inherited;
|
||||
end;
|
||||
|
||||
procedure TfEditorRemesaProveedor.actAnadirRecibosExecute(Sender: TObject);
|
||||
begin
|
||||
inherited;
|
||||
// HayCambios := FController.ElegirRecibosProveedor(RemesaProveedor) OR HayCambios;
|
||||
end;
|
||||
|
||||
procedure TfEditorRemesaProveedor.actEliminarReciboExecute(Sender: TObject);
|
||||
begin
|
||||
inherited;
|
||||
// FController.EliminarReciboProveedor(RemesaProveedor);
|
||||
// HayCambios := True;
|
||||
end;
|
||||
|
||||
procedure TfEditorRemesaProveedor.actVolcarDiscoExecute(Sender: TObject);
|
||||
//var
|
||||
// ABancaController : IBancaElectronicaController;
|
||||
begin
|
||||
{
|
||||
inherited;
|
||||
ABancaController := TBancaElectronicaController.Create;
|
||||
try
|
||||
ABancaController.GenerarFicheroNorma19(FRemesaProveedor.ID);
|
||||
finally
|
||||
ABancaController := NIL;
|
||||
end;
|
||||
}
|
||||
end;
|
||||
|
||||
procedure TfEditorRemesaProveedor.actVolcarDiscoUpdate(Sender: TObject);
|
||||
begin
|
||||
// (Sender as TAction).Enabled := HayDatos and (not FRemesaProveedor.EsNuevo);
|
||||
end;
|
||||
|
||||
procedure TfEditorRemesaProveedor.CerrarInterno;
|
||||
begin
|
||||
frViewRecibosRemesaProveedor1.OnViewModified := Nil;
|
||||
inherited;
|
||||
end;
|
||||
|
||||
constructor TfEditorRemesaProveedor.Create(AOwner: TComponent);
|
||||
begin
|
||||
inherited;
|
||||
pgPaginas.ActivePageIndex := 0;
|
||||
FViewRemesaProveedor := frViewRemesaProveedor1;
|
||||
end;
|
||||
|
||||
procedure TfEditorRemesaProveedor.CustomEditorClose(Sender: TObject;
|
||||
var Action: TCloseAction);
|
||||
begin
|
||||
inherited;
|
||||
dsDataTable.DataTable := NIL;
|
||||
FViewRemesaProveedor := NIL;
|
||||
FRemesaProveedor := NIL;
|
||||
end;
|
||||
|
||||
procedure TfEditorRemesaProveedor.EliminarInterno;
|
||||
begin
|
||||
if (Application.MessageBox('¿Desea borrar esta remesa de pago?', 'Atención', MB_YESNO) = IDYES) then
|
||||
begin
|
||||
inherited;
|
||||
if not FController.Eliminar(FRemesaProveedor) then
|
||||
actRefrescar.Execute;
|
||||
end;
|
||||
end;
|
||||
|
||||
end.
|
||||
|
||||
|
||||
Reference in New Issue
Block a user