Archivado/Noviseda_FactuGES2
Archived
0
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Error #374 -> Arreglo en ficha de cantidades de colores para que no salga el texto en RTF

Browse Source 
git-svn-id: https://192.168.0.254/svn/Proyectos.Noviseda_FactuGES2/trunk@94 f33bb606-9f5c-448d-9c99-757f00063c96
This commit is contained in:
David Arranz 2010-02-12 10:40:07 +00:00
parent e8810258e5
commit f6028e4dd5
2 changed files with 29 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

14
Source/GUIBase/uEditorColores.dfm
View File

@ -46,6 +46,17 @@ inherited fEditorColores: TfEditorColores
Width = 692 Width = 692
Height = 27 Height = 27
end end
object RichEdit1: TRichEdit
Left = 50
Top = 26
Width = 699
Height = 31
BorderStyle = bsNone
Lines.Strings = (
'RichEdit1')
ReadOnly = True
TabOrder = 0
end
end end
inherited pnlCuerpo: TPanel inherited pnlCuerpo: TPanel
Width = 767 Width = 767
@ -420,7 +431,6 @@ inherited fEditorColores: TfEditorColores
end end
end end
inherited ActionList1: TActionList inherited ActionList1: TActionList
Left = 104
Top = 0 Top = 0
inherited actAceptar: TAction inherited actAceptar: TAction
OnExecute = actAceptarExecute OnExecute = actAceptarExecute
@ -430,6 +440,6 @@ inherited fEditorColores: TfEditorColores
end end
end end
object dsDataTable: TDADataSource object dsDataTable: TDADataSource
Left = 136 Left = 48
end end
end end

21
Source/GUIBase/uEditorColores.pas
View File

@ -6,7 +6,7 @@ uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, uDialogBase, ActnList, StdCtrls, ExtCtrls, cxGraphics, cxControls, Dialogs, uDialogBase, ActnList, StdCtrls, ExtCtrls, cxGraphics, cxControls,
cxLookAndFeels, cxLookAndFeelPainters, cxContainer, cxEdit, cxTextEdit, cxLookAndFeels, cxLookAndFeelPainters, cxContainer, cxEdit, cxTextEdit,
cxDBEdit, DB, uDAInterfaces, uDADataTable, JvExControls, JvEnterTab; cxDBEdit, DB, uDAInterfaces, uDADataTable, JvExControls, JvEnterTab, ComCtrls;
type type
TfEditorColores = class(TfDialogBase) TfEditorColores = class(TfDialogBase)
@ -36,8 +36,10 @@ type
Label12: TLabel; Label12: TLabel;
Label13: TLabel; Label13: TLabel;
JvEnterAsTab1: TJvEnterAsTab; JvEnterAsTab1: TJvEnterAsTab;
RichEdit1: TRichEdit;
procedure actAceptarExecute(Sender: TObject); procedure actAceptarExecute(Sender: TObject);
procedure actCancelarExecute(Sender: TObject); procedure actCancelarExecute(Sender: TObject);
procedure FormShow(Sender: TObject);
private private
FReferencia : String; FReferencia : String;
FDescripcion : String; FDescripcion : String;
@ -55,6 +57,9 @@ implementation
{$R *.dfm} {$R *.dfm}
uses
uStringsUtils;
{ TfEditorColores } { TfEditorColores }
procedure TfEditorColores.actAceptarExecute(Sender: TObject); procedure TfEditorColores.actAceptarExecute(Sender: TObject);
@ -69,6 +74,12 @@ begin
ModalResult := mrCancel; ModalResult := mrCancel;
end; end;
procedure TfEditorColores.FormShow(Sender: TObject);
begin
inherited;
PonerTituloArticulo;
end;
function TfEditorColores.GetTotal: Double; function TfEditorColores.GetTotal: Double;
var var
ATotal: Double; ATotal: Double;
@ -116,19 +127,21 @@ end;
procedure TfEditorColores.PonerTituloArticulo; procedure TfEditorColores.PonerTituloArticulo;
begin begin
Label2.Caption := FReferencia + ' ' + FDescripcion; lblInstruccion.Caption := 'Indique las cantidades por colores para el artículo';
if not EsCadenaVacia(FReferencia) then
lblInstruccion.Caption := lblInstruccion.Caption + ' de referencia ' + FReferencia;
RichEdit1.Text := FDescripcion;
end; end;
procedure TfEditorColores.SetDescripcion(const Value: String); procedure TfEditorColores.SetDescripcion(const Value: String);
begin begin
FDescripcion := Value; FDescripcion := Value;
PonerTituloArticulo;
end; end;
procedure TfEditorColores.SetReferencia(const Value: String); procedure TfEditorColores.SetReferencia(const Value: String);
begin begin
FReferencia := Value; FReferencia := Value;
PonerTituloArticulo;
end; end;
end. end.