roberto
80e2878fd5
git-svn-id: https://192.168.0.254/svn/Proyectos.AbetoDesign_FactuGES/trunk@158 93f398dd-4eb6-7a46-baf6-13f46f578da2
108 lines
4.6 KiB
ObjectPascal
108 lines
4.6 KiB
ObjectPascal
unit uViewConfiguracionDocArmario;
|
|
|
|
interface
|
|
|
|
uses
|
|
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
|
|
Dialogs, uViewConfiguracionBase, cxControls, cxContainer, cxEdit, cxTextEdit, cxMemo,
|
|
cxRichEdit, uViewBase, JvExControls, JvGradientHeaderPanel, StdCtrls, ExtCtrls,
|
|
ComCtrls, uCustomView, uViewDetallesBase, uViewDetallesDTO,
|
|
uViewDetallesArticulos, uViewConfiguracionCapitulo, cxGraphics, cxMaskEdit,
|
|
cxDropDownEdit, cxLookupEdit, cxDBLookupEdit, cxDBLookupComboBox, DB,
|
|
uDAInterfaces, uDADataTable, uFormasPagoController, uBizFormasPago;
|
|
|
|
type
|
|
TfrViewConfiguracionDocArmario = class(TfrViewConfiguracionBase)
|
|
Paginas: TPageControl;
|
|
pagNotas: TTabSheet;
|
|
Label1: TLabel;
|
|
Label2: TLabel;
|
|
Label4: TLabel;
|
|
ePlazosEntrega: TMemo;
|
|
eFormaPago: TMemo;
|
|
eObservaciones: TMemo;
|
|
pagCapituloFrente: TTabSheet;
|
|
frViewConfiguracionCapituloFrente: TfrViewConfiguracionCapitulo;
|
|
pagCapituloInterior: TTabSheet;
|
|
frViewConfiguracionCapituloInterior: TfrViewConfiguracionCapitulo;
|
|
pagCondiciones: TTabSheet;
|
|
eCondiciones: TcxRichEdit;
|
|
dsFormaPago: TDADataSource;
|
|
cbFormaPago: TcxLookupComboBox;
|
|
protected
|
|
FFormasPago : IBizFormaPago;
|
|
FFormasPagoController : IFormasPagoController;
|
|
|
|
public
|
|
class function GetViewClass : TClass; override;
|
|
class function DarEtiqueta : String; override;
|
|
procedure CargarValores; override;
|
|
procedure GuardarValores; override;
|
|
end;
|
|
|
|
var
|
|
frViewConfiguracionDocArmario: TfrViewConfiguracionDocArmario;
|
|
|
|
implementation
|
|
{$R *.dfm}
|
|
{ TfrViewConfiguracionDocARMARIO }
|
|
|
|
uses uFactuGES_App, uTypesConstConfiguration, uPresupuestosClienteController,
|
|
uBizPresupuestosCliente, uBizDetallesPresupuestoCliente, uDetallesPresupuestoClienteController;
|
|
|
|
procedure TfrViewConfiguracionDocArmario.CargarValores;
|
|
begin
|
|
inherited;
|
|
JvGradientHeaderPanel1.LabelCaption := JvGradientHeaderPanel1.LabelCaption + AppFactuGES.EmpresaActiva.NOMBRE;
|
|
|
|
FFormasPago := Nil;
|
|
FFormasPagoController := TFormasPagoController.Create;
|
|
FFormasPago := FFormasPagoController.BuscarTodos;
|
|
dsFormaPago.DataTable := FFormasPago.DataTable;
|
|
dsFormaPago.DataTable.Active := True;
|
|
|
|
ePlazosEntrega.Lines.Clear;
|
|
ePlazosEntrega.Text := AppFactuGES.Configuracion.GetSettingAsString(teBD,CTE_PLAZOS_ENTREGA_ARMARIO, AppFactuGES.EmpresaActiva.ID);
|
|
eObservaciones.Lines.Clear;
|
|
eObservaciones.Text := AppFactuGES.Configuracion.GetSettingAsString(teBD,CTE_OBSERVACIONES_ARMARIO, AppFactuGES.EmpresaActiva.ID);
|
|
eCondiciones.Lines.Clear;
|
|
eCondiciones.Text := AppFactuGES.Configuracion.GetSettingAsString(teBD,CTE_CONDICIONES_ARMARIO, AppFactuGES.EmpresaActiva.ID);
|
|
|
|
cbFormaPago.EditValue := AppFactuGES.Configuracion.GetSettingAsString(teBD,CTE_FORMA_PAGO_ARMARIO, AppFactuGES.EmpresaActiva.ID);
|
|
// eFormaPago.Lines.Clear;
|
|
// eFormaPago.Text := AppFactuGES.Configuracion.GetSettingAsString(teBD,CTE_FORMA_PAGO_ARMARIO);
|
|
|
|
frViewConfiguracionCapituloFrente.Controller := TDetallesPresupuestoClienteController.Create;
|
|
frViewConfiguracionCapituloFrente.Detalles := (frViewConfiguracionCapituloFrente.Controller as IDetallesPresupuestoClienteController).BuscarCapitulo(TIPO_CAPITULO_AF);
|
|
|
|
frViewConfiguracionCapituloInterior.Controller := TDetallesPresupuestoClienteController.Create;
|
|
frViewConfiguracionCapituloInterior.Detalles := (frViewConfiguracionCapituloInterior.Controller as IDetallesPresupuestoClienteController).BuscarCapitulo(TIPO_CAPITULO_AI);
|
|
|
|
end;
|
|
|
|
class function TfrViewConfiguracionDocArmario.DarEtiqueta: String;
|
|
begin
|
|
Result := 'Documentos armario';
|
|
end;
|
|
|
|
class function TfrViewConfiguracionDocArmario.GetViewClass: TClass;
|
|
begin
|
|
Result := TfrViewConfiguracionDocARMARIO;
|
|
end;
|
|
|
|
procedure TfrViewConfiguracionDocArmario.GuardarValores;
|
|
begin
|
|
inherited;
|
|
// AppFactuGES.Configuracion.SetSettingAsString(teBD, CTE_FORMA_PAGO_ARMARIO, eFormaPago.Text);
|
|
AppFactuGES.Configuracion.SetSettingAsString(teBD, CTE_FORMA_PAGO_ARMARIO, AppFactuGES.EmpresaActiva.ID, cbFormaPago.EditValue);
|
|
AppFactuGES.Configuracion.SetSettingAsString(teBD, CTE_PLAZOS_ENTREGA_ARMARIO, AppFactuGES.EmpresaActiva.ID, ePlazosEntrega.Text);
|
|
AppFactuGES.Configuracion.SetSettingAsString(teBD, CTE_OBSERVACIONES_ARMARIO, AppFactuGES.EmpresaActiva.ID, eObservaciones.Text);
|
|
AppFactuGES.Configuracion.SetSettingAsString(teBD, CTE_CONDICIONES_ARMARIO, AppFactuGES.EmpresaActiva.ID, eCondiciones.Text);
|
|
|
|
frViewConfiguracionCapituloFrente.Detalles.DataTable.ApplyUpdates;
|
|
frViewConfiguracionCapituloInterior.Detalles.DataTable.ApplyUpdates;
|
|
end;
|
|
|
|
|
|
end.
|