david
b55dd9382c
git-svn-id: https://192.168.0.254/svn/Proyectos.Acana_FactuGES2/trunk@413 f4e31baf-9722-1c47-927c-6f952f962d4b
130 lines
3.5 KiB
ObjectPascal
130 lines
3.5 KiB
ObjectPascal
unit uEditorDBItem;
|
||
|
||
interface
|
||
|
||
uses
|
||
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
|
||
uEditorItem, ImgList, PngImageList, StdActns, ActnList, TBX,
|
||
TB2Item, TB2Dock, TB2Toolbar, ComCtrls, JvExControls, JvComponent,
|
||
JvNavigationPane, DB, uDADataTable, uEditorDBBase, JvFormAutoSize,
|
||
StdCtrls, uDAScriptingProvider, uDACDSDataTable, AppEvnts, uCustomView,
|
||
uViewBase, JvAppStorage, JvAppRegistryStorage, ExtCtrls, uDAInterfaces,
|
||
JvComponentBase, JvFormPlacement, JvExComCtrls, JvStatusBar, pngimage;
|
||
|
||
type
|
||
IEditorDBItem = interface(IEditorDBBase)
|
||
['{497AE4CE-D061-4F75-A29A-320F8565FF54}']
|
||
function GetComentario: Variant;
|
||
procedure SetComentario(const Value: Variant);
|
||
property Comentario: Variant read GetComentario write SetComentario;
|
||
end;
|
||
|
||
TfEditorDBItem = class(TfEditorDBBase, IEditorDBItem)
|
||
pgPaginas: TPageControl;
|
||
pagGeneral: TTabSheet;
|
||
imgStatus: TImage;
|
||
PnlComentario: TPanel;
|
||
lbComentario: TLabel;
|
||
|
||
protected
|
||
FComentario: Variant;
|
||
function GetComentario: Variant;
|
||
procedure SetComentario(const Value: Variant);
|
||
|
||
procedure EliminarInterno; override;
|
||
procedure PrevisualizarInterno; override;
|
||
procedure ImprimirInterno; override;
|
||
procedure ActualizarEstadoEditor; override;
|
||
|
||
public
|
||
property Comentario: Variant read GetComentario write SetComentario;
|
||
constructor Create(AOwner: TComponent); override;
|
||
end;
|
||
|
||
implementation
|
||
|
||
uses
|
||
uEditorBase, uDialogUtils;
|
||
|
||
{$R *.dfm}
|
||
|
||
procedure TfEditorDBItem.ActualizarEstadoEditor;
|
||
begin
|
||
inherited;
|
||
if HayDatos then
|
||
begin
|
||
if (Self.Modified) and (dsDataTable.DataTable.State <> dsInsert) then
|
||
begin
|
||
StatusBar.Panels[0].Text := ' Se han producido cambios';
|
||
imgStatus.Visible := True;
|
||
end
|
||
else begin
|
||
imgStatus.Visible := False;
|
||
StatusBar.Panels[0].Text := '';
|
||
end
|
||
end;
|
||
end;
|
||
|
||
constructor TfEditorDBItem.Create(AOwner: TComponent);
|
||
begin
|
||
inherited;
|
||
Comentario := Null;
|
||
end;
|
||
|
||
procedure TfEditorDBItem.EliminarInterno;
|
||
begin
|
||
inherited;
|
||
actCerrar.Execute;
|
||
end;
|
||
|
||
function TfEditorDBItem.GetComentario: Variant;
|
||
begin
|
||
Result := FComentario;
|
||
end;
|
||
|
||
procedure TfEditorDBItem.ImprimirInterno;
|
||
begin
|
||
inherited;
|
||
if Modified then
|
||
begin
|
||
if (ShowConfirmMessage('Se han producido cambios', 'Se han producido cambios y no se puede imprimir hasta que no se guarden.' + #10#13 +
|
||
'<27>Desea guardarlos ahora?') = IDYES) then
|
||
actGuardar.Execute
|
||
else
|
||
ShowInfoMessage('Recuerde guardar los cambios si quiere previsualizar o imprimir.');
|
||
end;
|
||
end;
|
||
|
||
procedure TfEditorDBItem.PrevisualizarInterno;
|
||
begin
|
||
inherited;
|
||
if Modified then
|
||
begin
|
||
if (ShowConfirmMessage('Se han producido cambios', 'Se han producido cambios y no se puede previsualizar hasta que no se guarden.' + #10#13 +
|
||
'<27>Desea guardarlos ahora?') = IDYES) then
|
||
actGuardar.Execute
|
||
else
|
||
ShowInfoMessage('Recuerde guardar los cambios si quiere previsualizar o imprimir.');
|
||
end;
|
||
end;
|
||
|
||
procedure TfEditorDBItem.SetComentario(const Value: Variant);
|
||
begin
|
||
FComentario := Value;
|
||
lbComentario.Caption := '';
|
||
lbComentario.Caption := VarToStr(FComentario);
|
||
|
||
if VarIsNull(FComentario) then
|
||
PnlComentario.Visible := False
|
||
else
|
||
PnlComentario.Visible := True;
|
||
end;
|
||
|
||
initialization
|
||
RegisterClass(TfEditorDBItem);
|
||
|
||
finalization
|
||
UnRegisterClass(TfEditorDBItem);
|
||
|
||
end.
|