roberto
b5d7cc2ae6
Peticiones relacionadas Tareas #868: Imprimir con el presupuesto los ficheros de imágenes adjuntos Tareas #894: al hacer los presupuestos y contratos en vez de que salgan las propiedades que salgan los articulos Tareas #911: Error al pasar un presupuesto a contrato no me copia las propiedades Tareas #912: Establecer condiciones para cada tipo de presupuesto, configurables por ellos y que salgan en los contratos si estan rellenas Tareas #913: En las lineas de detalles de presupuestos y contratos y no hay propiedad seleccionada que me deje texto libre con intros git-svn-id: https://192.168.0.254/svn/Proyectos.Acana_FactuGES2/trunk@565 f4e31baf-9722-1c47-927c-6f952f962d4b
73 lines
2.4 KiB
ObjectPascal
73 lines
2.4 KiB
ObjectPascal
unit uViewConfiguracionDocVarios;
|
|
|
|
interface
|
|
|
|
uses
|
|
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
|
|
Dialogs, uViewConfiguracionBase, cxControls, cxContainer, cxEdit, cxTextEdit, cxMemo,
|
|
cxRichEdit, uViewBase, JvExControls, JvGradientHeaderPanel, StdCtrls, ExtCtrls,
|
|
ComCtrls;
|
|
|
|
type
|
|
TfrViewConfiguracionDocVarios = class(TfrViewConfiguracionBase)
|
|
PageControl1: TPageControl;
|
|
pagNotas: TTabSheet;
|
|
pagCondiciones: TTabSheet;
|
|
Label1: TLabel;
|
|
Label2: TLabel;
|
|
Label4: TLabel;
|
|
ePlazosEntrega: TMemo;
|
|
eFormaPago: TMemo;
|
|
eObservaciones: TMemo;
|
|
eCondiciones: TcxRichEdit;
|
|
public
|
|
class function GetViewClass : TClass; override;
|
|
class function DarEtiqueta : String; override;
|
|
procedure CargarValores; override;
|
|
procedure GuardarValores; override;
|
|
end;
|
|
|
|
var
|
|
frViewConfiguracionDocVarios: TfrViewConfiguracionDocVarios;
|
|
|
|
implementation
|
|
{$R *.dfm}
|
|
{ TfrViewConfiguracionDocVARIOS }
|
|
|
|
uses uFactuGES_App, uConfiguracionController, uPresupuestosClienteController;
|
|
|
|
procedure TfrViewConfiguracionDocVarios.CargarValores;
|
|
begin
|
|
inherited;
|
|
eFormaPago.Lines.Clear;
|
|
eFormaPago.Text := AppFactuGES.Configuracion.GetSettingAsString(teBD,CTE_FORMA_PAGO_VARIOS);
|
|
ePlazosEntrega.Lines.Clear;
|
|
ePlazosEntrega.Text := AppFactuGES.Configuracion.GetSettingAsString(teBD,CTE_PLAZOS_ENTREGA_VARIOS);
|
|
eObservaciones.Lines.Clear;
|
|
eObservaciones.Text := AppFactuGES.Configuracion.GetSettingAsString(teBD,CTE_OBSERVACIONES_VARIOS);
|
|
eCondiciones.Lines.Clear;
|
|
eCondiciones.Text := AppFactuGES.Configuracion.GetSettingAsString(teBD,CTE_CONDICIONES_VARIOS);
|
|
end;
|
|
|
|
class function TfrViewConfiguracionDocVarios.DarEtiqueta: String;
|
|
begin
|
|
Result := 'Documentos varios';
|
|
end;
|
|
|
|
class function TfrViewConfiguracionDocVarios.GetViewClass: TClass;
|
|
begin
|
|
Result := TfrViewConfiguracionDocVARIOS;
|
|
end;
|
|
|
|
procedure TfrViewConfiguracionDocVarios.GuardarValores;
|
|
begin
|
|
inherited;
|
|
AppFactuGES.Configuracion.SetSettingAsString(teBD, CTE_FORMA_PAGO_VARIOS, eFormaPago.Text);
|
|
AppFactuGES.Configuracion.SetSettingAsString(teBD, CTE_PLAZOS_ENTREGA_VARIOS, ePlazosEntrega.Text);
|
|
AppFactuGES.Configuracion.SetSettingAsString(teBD, CTE_OBSERVACIONES_VARIOS, eObservaciones.Text);
|
|
AppFactuGES.Configuracion.SetSettingAsString(teBD, CTE_CONDICIONES_VARIOS, eCondiciones.Text);
|
|
end;
|
|
|
|
|
|
end.
|