Tarea #1280 -> En los presupuesto, añadir un campo de CALIDADES
Tarea #1228 -> Poder añadir en contratos una hoja de calidades similar a la de condiciones pero con posibilidad de adaptarlo segun proveedor git-svn-id: https://192.168.0.254/svn/Proyectos.Acana_FactuGES2/trunk@581 f4e31baf-9722-1c47-927c-6f952f962d4b
This commit is contained in:
parent
b390fe6db1
commit
6fb16b25d3
File diff suppressed because it is too large
Load Diff
@ -1,19 +1,24 @@
|
||||
inherited frViewConfiguracionGeneral: TfrViewConfiguracionGeneral
|
||||
Width = 910
|
||||
Height = 433
|
||||
inherited Panel1: TPanel
|
||||
Width = 424
|
||||
Width = 900
|
||||
ExplicitWidth = 424
|
||||
inherited Label3: TLabel
|
||||
Width = 888
|
||||
Caption = 'Apariencia'
|
||||
ExplicitWidth = 63
|
||||
end
|
||||
end
|
||||
inherited JvGradientHeaderPanel1: TJvGradientHeaderPanel
|
||||
Width = 434
|
||||
Width = 910
|
||||
ExplicitWidth = 434
|
||||
end
|
||||
object Panel2: TPanel
|
||||
AlignWithMargins = True
|
||||
Left = 5
|
||||
Top = 142
|
||||
Width = 424
|
||||
Width = 900
|
||||
Height = 22
|
||||
Margins.Left = 5
|
||||
Margins.Top = 0
|
||||
@ -37,10 +42,11 @@ inherited frViewConfiguracionGeneral: TfrViewConfiguracionGeneral
|
||||
ParentBackground = False
|
||||
ParentFont = False
|
||||
TabOrder = 2
|
||||
ExplicitWidth = 424
|
||||
object Label2: TLabel
|
||||
Left = 6
|
||||
Top = 4
|
||||
Width = 412
|
||||
Width = 888
|
||||
Height = 14
|
||||
Align = alTop
|
||||
Caption = 'Seguridad'
|
||||
@ -51,7 +57,7 @@ inherited frViewConfiguracionGeneral: TfrViewConfiguracionGeneral
|
||||
AlignWithMargins = True
|
||||
Left = 5
|
||||
Top = 68
|
||||
Width = 424
|
||||
Width = 900
|
||||
Height = 74
|
||||
Margins.Left = 5
|
||||
Margins.Top = 0
|
||||
@ -61,6 +67,7 @@ inherited frViewConfiguracionGeneral: TfrViewConfiguracionGeneral
|
||||
BevelOuter = bvNone
|
||||
ParentColor = True
|
||||
TabOrder = 3
|
||||
ExplicitWidth = 424
|
||||
object Label1: TLabel
|
||||
Left = 17
|
||||
Top = 14
|
||||
@ -92,7 +99,7 @@ inherited frViewConfiguracionGeneral: TfrViewConfiguracionGeneral
|
||||
AlignWithMargins = True
|
||||
Left = 5
|
||||
Top = 164
|
||||
Width = 424
|
||||
Width = 900
|
||||
Height = 72
|
||||
Margins.Left = 5
|
||||
Margins.Top = 0
|
||||
@ -102,6 +109,7 @@ inherited frViewConfiguracionGeneral: TfrViewConfiguracionGeneral
|
||||
BevelOuter = bvNone
|
||||
ParentColor = True
|
||||
TabOrder = 4
|
||||
ExplicitWidth = 424
|
||||
object Label4: TLabel
|
||||
Left = 17
|
||||
Top = 43
|
||||
@ -140,7 +148,7 @@ inherited frViewConfiguracionGeneral: TfrViewConfiguracionGeneral
|
||||
AlignWithMargins = True
|
||||
Left = 5
|
||||
Top = 236
|
||||
Width = 424
|
||||
Width = 900
|
||||
Height = 22
|
||||
Margins.Left = 5
|
||||
Margins.Top = 0
|
||||
@ -164,10 +172,11 @@ inherited frViewConfiguracionGeneral: TfrViewConfiguracionGeneral
|
||||
ParentBackground = False
|
||||
ParentFont = False
|
||||
TabOrder = 5
|
||||
ExplicitWidth = 424
|
||||
object Label5: TLabel
|
||||
Left = 6
|
||||
Top = 4
|
||||
Width = 412
|
||||
Width = 888
|
||||
Height = 14
|
||||
Align = alTop
|
||||
Caption = 'Usuarios'
|
||||
@ -178,7 +187,7 @@ inherited frViewConfiguracionGeneral: TfrViewConfiguracionGeneral
|
||||
AlignWithMargins = True
|
||||
Left = 5
|
||||
Top = 258
|
||||
Width = 424
|
||||
Width = 900
|
||||
Height = 72
|
||||
Margins.Left = 5
|
||||
Margins.Top = 0
|
||||
@ -188,6 +197,7 @@ inherited frViewConfiguracionGeneral: TfrViewConfiguracionGeneral
|
||||
BevelOuter = bvNone
|
||||
ParentColor = True
|
||||
TabOrder = 6
|
||||
ExplicitWidth = 424
|
||||
object lblLongMinPass: TLabel
|
||||
Left = 17
|
||||
Top = 43
|
||||
|
||||
@ -38,9 +38,11 @@ type
|
||||
function GetFormaPagoDocumentos: String;
|
||||
function GetObservacionesDocumentos: String;
|
||||
function GetCondicionesDocumentos: String;
|
||||
function GetCalidadesDocumentos: String;
|
||||
procedure SetFormaPagoDocumentos(const Value: String);
|
||||
procedure SetObservacionesDocumentos(const Value: String);
|
||||
procedure SetCondicionesDocumentos(const Value: String);
|
||||
procedure SetCalidadesDocumentos(const Value: String);
|
||||
|
||||
function GetLoadModulesEvent : TAppFactuGES_Event;
|
||||
procedure SetLoadModulesEvent (ALoadModulesEvent : TAppFactuGES_Event);
|
||||
@ -87,6 +89,7 @@ type
|
||||
property FormaPagoDocumentos : String read GetFormaPagoDocumentos write SetFormaPagoDocumentos;
|
||||
property ObservacionesDocumentos : String read GetObservacionesDocumentos write SetObservacionesDocumentos;
|
||||
property CondicionesDocumentos : String read GetCondicionesDocumentos write SetCondicionesDocumentos;
|
||||
property CalidadesDocumentos : String read GetCalidadesDocumentos write SetCalidadesDocumentos;
|
||||
end;
|
||||
|
||||
|
||||
@ -100,7 +103,8 @@ type
|
||||
FConfiguracionController : IConfiguracionController;
|
||||
FFormaPagoDocumentos: String;
|
||||
FObservacionesDocumentos: String;
|
||||
FcondicionesDocumentos: String;
|
||||
FCondicionesDocumentos: String;
|
||||
FCalidadesDocumentos: String;
|
||||
|
||||
FAppSplashForm : IAppSplashForm;
|
||||
FHostManager : THostManager;
|
||||
@ -145,6 +149,8 @@ type
|
||||
procedure AfterLoadModule(Sender: TObject; AModuleInfo: TModuleInfo);
|
||||
procedure RegisterModule(AModuleInfo : TModuleInfo);
|
||||
procedure BuscarTiendaPorDefecto;
|
||||
function GetCalidadesDocumentos: String;
|
||||
procedure SetCalidadesDocumentos(const Value: String);
|
||||
|
||||
protected
|
||||
procedure DoMainForm;
|
||||
@ -189,6 +195,7 @@ type
|
||||
property FormaPagoDocumentos : String read GetFormaPagoDocumentos write SetFormaPagoDocumentos;
|
||||
property ObservacionesDocumentos : String read GetObservacionesDocumentos write SetObservacionesDocumentos;
|
||||
property CondicionesDocumentos : String read GetCondicionesDocumentos write SetCondicionesDocumentos;
|
||||
property CalidadesDocumentos : String read GetCalidadesDocumentos write SetCalidadesDocumentos;
|
||||
end;
|
||||
|
||||
var
|
||||
@ -374,6 +381,11 @@ begin
|
||||
Result := uAppInfoUtils.GetAppVersion;
|
||||
end;
|
||||
|
||||
function TAppFactuGES.GetCalidadesDocumentos: String;
|
||||
begin
|
||||
Result := FCalidadesDocumentos;
|
||||
end;
|
||||
|
||||
function TAppFactuGES.GetCondicionesDocumentos: String;
|
||||
begin
|
||||
Result := FCondicionesDocumentos;
|
||||
@ -553,6 +565,11 @@ begin
|
||||
FAppSplashForm := AAppSplashForm;
|
||||
end;
|
||||
|
||||
procedure TAppFactuGES.SetCalidadesDocumentos(const Value: String);
|
||||
begin
|
||||
FCalidadesDocumentos := Value;
|
||||
end;
|
||||
|
||||
procedure TAppFactuGES.SetCondicionesDocumentos(const Value: String);
|
||||
begin
|
||||
FCondicionesDocumentos:= Value;
|
||||
|
||||
File diff suppressed because one or more lines are too long
File diff suppressed because one or more lines are too long
@ -757,6 +757,7 @@ begin
|
||||
AContrato.PLAZO_ENTREGA.Add(AppFactuGES.Configuracion.GetSettingAsString(teBD, CTE_PLAZOS_ENTREGA_COCINA));
|
||||
AContrato.OBSERVACIONES.Add(AppFactuGES.Configuracion.GetSettingAsString(teBD, CTE_OBSERVACIONES_COCINA));
|
||||
AContrato.CONDICIONES.Add(AppFactuGES.Configuracion.GetSettingAsString(teBD, CTE_CONDICIONES_COCINA));
|
||||
AContrato.CALIDADES.Add(AppFactuGES.Configuracion.GetSettingAsString(teBD, CTE_CALIDADES_COCINA));
|
||||
(Self.DetallesController as IDetallesContratoClienteController).AnadirCapitulo(TIPO_CAPITULO_C, 'MUEBLES DE COCINA ', False, AContrato.Detalles);
|
||||
(Self.DetallesController as IDetallesContratoClienteController).AnadirCapitulo(TIPO_CAPITULO_V, 'IMPORTES ', True, AContrato.Detalles);
|
||||
(Self.DetallesController as IDetallesContratoClienteController).AnadirCapitulo(TIPO_CAPITULO_V, 'AUMENTO POR ', False, AContrato.Detalles);
|
||||
@ -768,6 +769,7 @@ begin
|
||||
AContrato.PLAZO_ENTREGA.Add(AppFactuGES.Configuracion.GetSettingAsString(teBD, CTE_PLAZOS_ENTREGA_ARMARIO));
|
||||
AContrato.OBSERVACIONES.Add(AppFactuGES.Configuracion.GetSettingAsString(teBD, CTE_OBSERVACIONES_ARMARIO));
|
||||
AContrato.CONDICIONES.Add(AppFactuGES.Configuracion.GetSettingAsString(teBD, CTE_CONDICIONES_ARMARIO));
|
||||
AContrato.CALIDADES.Add(AppFactuGES.Configuracion.GetSettingAsString(teBD, CTE_CALIDADES_ARMARIO));
|
||||
(Self.DetallesController as IDetallesContratoClienteController).AnadirCapitulo(TIPO_CAPITULO_AF, 'FRENTE DE ARMARIO Nº ', False, AContrato.Detalles);
|
||||
(Self.DetallesController as IDetallesContratoClienteController).AnadirCapitulo(TIPO_CAPITULO_AI, 'INTERIOR DE ARMARIO Nº ', False, AContrato.Detalles);
|
||||
end;
|
||||
@ -778,6 +780,7 @@ begin
|
||||
AContrato.PLAZO_ENTREGA.Add(AppFactuGES.Configuracion.GetSettingAsString(teBD, CTE_PLAZOS_ENTREGA_BANO));
|
||||
AContrato.OBSERVACIONES.Add(AppFactuGES.Configuracion.GetSettingAsString(teBD, CTE_OBSERVACIONES_BANO));
|
||||
AContrato.CONDICIONES.Add(AppFactuGES.Configuracion.GetSettingAsString(teBD, CTE_CONDICIONES_BANO));
|
||||
AContrato.CALIDADES.Add(AppFactuGES.Configuracion.GetSettingAsString(teBD, CTE_CALIDADES_BANO));
|
||||
(Self.DetallesController as IDetallesContratoClienteController).AnadirCapitulo(TIPO_CAPITULO_B, 'MUEBLE DE BAÑO Nº ', False, AContrato.Detalles);
|
||||
(Self.DetallesController as IDetallesContratoClienteController).AnadirCapitulo(TIPO_CAPITULO_V, 'IMPORTES ', True, AContrato.Detalles);
|
||||
end;
|
||||
@ -788,6 +791,7 @@ begin
|
||||
AContrato.PLAZO_ENTREGA.Add(AppFactuGES.Configuracion.GetSettingAsString(teBD, CTE_PLAZOS_ENTREGA_ELECTRODOMESTICO));
|
||||
AContrato.OBSERVACIONES.Add(AppFactuGES.Configuracion.GetSettingAsString(teBD, CTE_OBSERVACIONES_ELECTRODOMESTICO));
|
||||
AContrato.CONDICIONES.Add(AppFactuGES.Configuracion.GetSettingAsString(teBD, CTE_CONDICIONES_ELECTRODOMESTICO));
|
||||
AContrato.CALIDADES.Add(AppFactuGES.Configuracion.GetSettingAsString(teBD, CTE_CALIDADES_ELECTRODOMESTICO));
|
||||
(Self.DetallesController as IDetallesContratoClienteController).AnadirCapitulo(TIPO_CAPITULO_E, 'ELECTRODOMÉSTICOS ', False, AContrato.Detalles);
|
||||
end;
|
||||
teObra:
|
||||
@ -797,6 +801,7 @@ begin
|
||||
AContrato.PLAZO_ENTREGA.Add(AppFactuGES.Configuracion.GetSettingAsString(teBD, CTE_PLAZOS_ENTREGA_OBRA));
|
||||
AContrato.OBSERVACIONES.Add(AppFactuGES.Configuracion.GetSettingAsString(teBD, CTE_OBSERVACIONES_OBRA));
|
||||
AContrato.CONDICIONES.Add(AppFactuGES.Configuracion.GetSettingAsString(teBD, CTE_CONDICIONES_OBRA));
|
||||
AContrato.CALIDADES.Add(AppFactuGES.Configuracion.GetSettingAsString(teBD, CTE_CALIDADES_OBRA));
|
||||
(Self.DetallesController as IDetallesContratoClienteController).AnadirCapitulo(TIPO_CAPITULO_O, 'OBRA ', False, AContrato.Detalles);
|
||||
end;
|
||||
teVarios:
|
||||
@ -805,7 +810,8 @@ begin
|
||||
AContrato.FORMA_PAGO.Add(AppFactuGES.Configuracion.GetSettingAsString(teBD, CTE_FORMA_PAGO_VARIOS));
|
||||
AContrato.PLAZO_ENTREGA.Add(AppFactuGES.Configuracion.GetSettingAsString(teBD, CTE_PLAZOS_ENTREGA_VARIOS));
|
||||
AContrato.OBSERVACIONES.Add(AppFactuGES.Configuracion.GetSettingAsString(teBD, CTE_OBSERVACIONES_VARIOS));
|
||||
AContrato.CONDICIONES.Add(AppFactuGES.Configuracion.GetSettingAsString(teBD, CTE_CONDICIONES_VARIOS));
|
||||
AContrato.CONDICIONES.Add(AppFactuGES.Configuracion.GetSettingAsString(teBD, CTE_CONDICIONES_VARIOS));
|
||||
AContrato.CALIDADES.Add(AppFactuGES.Configuracion.GetSettingAsString(teBD, CTE_CALIDADES_VARIOS));
|
||||
(Self.DetallesController as IDetallesContratoClienteController).AnadirCapitulo(TIPO_CAPITULO_V, 'VARIOS ', False, AContrato.Detalles);
|
||||
end;
|
||||
end;
|
||||
|
||||
@ -324,6 +324,14 @@ inherited DataModuleContratosCliente: TDataModuleContratosCliente
|
||||
item
|
||||
Name = 'CONDICIONES'
|
||||
DataType = datMemo
|
||||
DisplayLabel = 'ContratosCliente_CONDICIONES'
|
||||
DictionaryEntry = 'ContratosCliente_CONDICIONES'
|
||||
end
|
||||
item
|
||||
Name = 'CALIDADES'
|
||||
DataType = datMemo
|
||||
DisplayLabel = 'Calidades'
|
||||
DictionaryEntry = 'ContratosCliente_CALIDADES'
|
||||
end>
|
||||
Params = <>
|
||||
StreamingOptions = [soDisableEventsWhileStreaming]
|
||||
|
||||
@ -9,13 +9,13 @@ const
|
||||
{ Data table rules ids
|
||||
Feel free to change them to something more human readable
|
||||
but make sure they are unique in the context of your application }
|
||||
RID_Valores = '{2A7F5B24-C4EF-4CAC-84A7-B08B15EF9800}';
|
||||
RID_Propiedades = '{F8E7B5B9-507C-4C56-B5E9-8E608B097D89}';
|
||||
RID_ListaAnosContratos = '{1395AD65-A076-4E6B-A38B-E97DD7EF440F}';
|
||||
RID_ContratosClienteBeneficios = '{AAE37D7A-37D3-4EBD-A74C-351C6F2C5266}';
|
||||
RID_ContratosCliente = '{8C594040-2BE6-4C03-9027-A3D0DAC74C82}';
|
||||
RID_TiposCapitulos = '{8276E8DA-EDAA-4FBF-9109-A96A2234CE9E}';
|
||||
RID_ContratosCliente_Detalles = '{2D7606E6-A13A-49D4-9520-8C7C1156CBD7}';
|
||||
RID_Valores = '{F0526200-C062-476D-80A3-1CC74B381BC7}';
|
||||
RID_Propiedades = '{761E7D92-ACCC-487C-B663-31B34E278F2C}';
|
||||
RID_ListaAnosContratos = '{EFA96A9D-E452-46F5-92D2-6301FA044EB5}';
|
||||
RID_ContratosClienteBeneficios = '{70EF0F8A-3021-466B-8D83-EEFC14E93578}';
|
||||
RID_ContratosCliente = '{5474C56D-8D15-4BBF-A918-B09541C5DD87}';
|
||||
RID_TiposCapitulos = '{E013587B-70DE-493C-A82F-1436745706BE}';
|
||||
RID_ContratosCliente_Detalles = '{C8845677-3FB0-4456-90DE-C5B5447BB721}';
|
||||
|
||||
{ Data table names }
|
||||
nme_Valores = 'Valores';
|
||||
@ -125,6 +125,7 @@ const
|
||||
fld_ContratosClientePERSONA_CONTACTO = 'PERSONA_CONTACTO';
|
||||
fld_ContratosClienteTIPO_CONTRATO = 'TIPO_CONTRATO';
|
||||
fld_ContratosClienteCONDICIONES = 'CONDICIONES';
|
||||
fld_ContratosClienteCALIDADES = 'CALIDADES';
|
||||
|
||||
{ ContratosCliente field indexes }
|
||||
idx_ContratosClienteID = 0;
|
||||
@ -173,6 +174,7 @@ const
|
||||
idx_ContratosClientePERSONA_CONTACTO = 43;
|
||||
idx_ContratosClienteTIPO_CONTRATO = 44;
|
||||
idx_ContratosClienteCONDICIONES = 45;
|
||||
idx_ContratosClienteCALIDADES = 46;
|
||||
|
||||
{ TiposCapitulos fields }
|
||||
fld_TiposCapitulosID = 'ID';
|
||||
@ -231,7 +233,7 @@ const
|
||||
type
|
||||
{ IValores }
|
||||
IValores = interface(IDAStronglyTypedDataTable)
|
||||
['{AA391BD6-AAF3-4DD2-B075-AE2234E80A89}']
|
||||
['{F961655F-A527-46B5-8498-A63C87148DBD}']
|
||||
{ Property getters and setters }
|
||||
function GetIDValue: Integer;
|
||||
procedure SetIDValue(const aValue: Integer);
|
||||
@ -290,7 +292,7 @@ type
|
||||
|
||||
{ IPropiedades }
|
||||
IPropiedades = interface(IDAStronglyTypedDataTable)
|
||||
['{23AECADA-9691-4879-8682-B6E356F94740}']
|
||||
['{C8EA9375-DC1B-4883-AA5D-337B12C8CB03}']
|
||||
{ Property getters and setters }
|
||||
function GetIDValue: Integer;
|
||||
procedure SetIDValue(const aValue: Integer);
|
||||
@ -349,7 +351,7 @@ type
|
||||
|
||||
{ IListaAnosContratos }
|
||||
IListaAnosContratos = interface(IDAStronglyTypedDataTable)
|
||||
['{7301B623-1E33-4C34-B008-C34BF12FA616}']
|
||||
['{477D5EE0-90BB-4992-A681-D55DE22F223F}']
|
||||
{ Property getters and setters }
|
||||
function GetANOValue: String;
|
||||
procedure SetANOValue(const aValue: String);
|
||||
@ -384,7 +386,7 @@ type
|
||||
|
||||
{ IContratosClienteBeneficios }
|
||||
IContratosClienteBeneficios = interface(IDAStronglyTypedDataTable)
|
||||
['{23C65272-1CFD-4C99-9E4E-6F50BEAD3B7C}']
|
||||
['{C1AD6AEE-9535-4AAD-84EC-C4F26774FDD5}']
|
||||
{ Property getters and setters }
|
||||
function GetIDValue: Integer;
|
||||
procedure SetIDValue(const aValue: Integer);
|
||||
@ -539,7 +541,7 @@ type
|
||||
|
||||
{ IContratosCliente }
|
||||
IContratosCliente = interface(IDAStronglyTypedDataTable)
|
||||
['{9AD6CC3E-D998-47A8-AADB-E4FD52CEDDFF}']
|
||||
['{04D661CB-EC6C-49CD-BD55-5A14CCA1E63C}']
|
||||
{ Property getters and setters }
|
||||
function GetIDValue: Integer;
|
||||
procedure SetIDValue(const aValue: Integer);
|
||||
@ -720,6 +722,9 @@ type
|
||||
function GetCONDICIONESValue: IROStrings;
|
||||
function GetCONDICIONESIsNull: Boolean;
|
||||
procedure SetCONDICIONESIsNull(const aValue: Boolean);
|
||||
function GetCALIDADESValue: IROStrings;
|
||||
function GetCALIDADESIsNull: Boolean;
|
||||
procedure SetCALIDADESIsNull(const aValue: Boolean);
|
||||
|
||||
|
||||
{ Properties }
|
||||
@ -815,6 +820,8 @@ type
|
||||
property TIPO_CONTRATOIsNull: Boolean read GetTIPO_CONTRATOIsNull write SetTIPO_CONTRATOIsNull;
|
||||
property CONDICIONES: IROStrings read GetCONDICIONESValue;
|
||||
property CONDICIONESIsNull: Boolean read GetCONDICIONESIsNull write SetCONDICIONESIsNull;
|
||||
property CALIDADES: IROStrings read GetCALIDADESValue;
|
||||
property CALIDADESIsNull: Boolean read GetCALIDADESIsNull write SetCALIDADESIsNull;
|
||||
end;
|
||||
|
||||
{ TContratosClienteDataTableRules }
|
||||
@ -825,11 +832,13 @@ type
|
||||
f_OBSERVACIONES: IROStrings;
|
||||
f_INCIDENCIAS: IROStrings;
|
||||
f_CONDICIONES: IROStrings;
|
||||
f_CALIDADES: IROStrings;
|
||||
procedure FORMA_PAGO_OnChange(Sender: TObject);
|
||||
procedure PLAZO_ENTREGA_OnChange(Sender: TObject);
|
||||
procedure OBSERVACIONES_OnChange(Sender: TObject);
|
||||
procedure INCIDENCIAS_OnChange(Sender: TObject);
|
||||
procedure CONDICIONES_OnChange(Sender: TObject);
|
||||
procedure CALIDADES_OnChange(Sender: TObject);
|
||||
protected
|
||||
{ Property getters and setters }
|
||||
function GetIDValue: Integer; virtual;
|
||||
@ -1011,6 +1020,9 @@ type
|
||||
function GetCONDICIONESValue: IROStrings; virtual;
|
||||
function GetCONDICIONESIsNull: Boolean; virtual;
|
||||
procedure SetCONDICIONESIsNull(const aValue: Boolean); virtual;
|
||||
function GetCALIDADESValue: IROStrings; virtual;
|
||||
function GetCALIDADESIsNull: Boolean; virtual;
|
||||
procedure SetCALIDADESIsNull(const aValue: Boolean); virtual;
|
||||
|
||||
{ Properties }
|
||||
property ID: Integer read GetIDValue write SetIDValue;
|
||||
@ -1105,6 +1117,8 @@ type
|
||||
property TIPO_CONTRATOIsNull: Boolean read GetTIPO_CONTRATOIsNull write SetTIPO_CONTRATOIsNull;
|
||||
property CONDICIONES: IROStrings read GetCONDICIONESValue;
|
||||
property CONDICIONESIsNull: Boolean read GetCONDICIONESIsNull write SetCONDICIONESIsNull;
|
||||
property CALIDADES: IROStrings read GetCALIDADESValue;
|
||||
property CALIDADESIsNull: Boolean read GetCALIDADESIsNull write SetCALIDADESIsNull;
|
||||
|
||||
public
|
||||
constructor Create(aDataTable: TDADataTable); override;
|
||||
@ -1117,7 +1131,7 @@ type
|
||||
}
|
||||
{ ITiposCapitulos }
|
||||
ITiposCapitulos = interface(IDAStronglyTypedDataTable)
|
||||
['{BFABE088-8874-4BDE-BA13-A4037F709389}']
|
||||
['{2ECBA155-63C8-4E4A-ABFA-0447AF922692}']
|
||||
{ Property getters and setters }
|
||||
function GetIDValue: Integer;
|
||||
procedure SetIDValue(const aValue: Integer);
|
||||
@ -1212,7 +1226,7 @@ type
|
||||
|
||||
{ IContratosCliente_Detalles }
|
||||
IContratosCliente_Detalles = interface(IDAStronglyTypedDataTable)
|
||||
['{5A701D96-0AC5-47D4-BCBC-9A1A4B8622B2}']
|
||||
['{C6C57E6F-5A54-4337-88B0-B74807CF03CD}']
|
||||
{ Property getters and setters }
|
||||
function GetIDValue: Integer;
|
||||
procedure SetIDValue(const aValue: Integer);
|
||||
@ -1893,6 +1907,10 @@ begin
|
||||
StrList := TStringList.Create;
|
||||
StrList.OnChange := CONDICIONES_OnChange;
|
||||
f_CONDICIONES := NewROStrings(StrList,True);
|
||||
|
||||
StrList := TStringList.Create;
|
||||
StrList.OnChange := CALIDADES_OnChange;
|
||||
f_CALIDADES := NewROStrings(StrList,True);
|
||||
end;
|
||||
|
||||
destructor TContratosClienteDataTableRules.Destroy;
|
||||
@ -1925,6 +1943,11 @@ begin
|
||||
if DataTable.Editing then DataTable.Fields[idx_ContratosClienteCONDICIONES].AsVariant := TStringList(Sender).Text;
|
||||
end;
|
||||
|
||||
procedure TContratosClienteDataTableRules.CALIDADES_OnChange(Sender: TObject);
|
||||
begin
|
||||
if DataTable.Editing then DataTable.Fields[idx_ContratosClienteCALIDADES].AsVariant := TStringList(Sender).Text;
|
||||
end;
|
||||
|
||||
function TContratosClienteDataTableRules.GetIDValue: Integer;
|
||||
begin
|
||||
result := DataTable.Fields[idx_ContratosClienteID].AsInteger;
|
||||
@ -2871,6 +2894,23 @@ begin
|
||||
DataTable.Fields[idx_ContratosClienteCONDICIONES].AsVariant := Null;
|
||||
end;
|
||||
|
||||
function TContratosClienteDataTableRules.GetCALIDADESValue: IROStrings;
|
||||
begin
|
||||
result := f_CALIDADES;
|
||||
result.Text := DataTable.Fields[idx_ContratosClienteCALIDADES].AsString;
|
||||
end;
|
||||
|
||||
function TContratosClienteDataTableRules.GetCALIDADESIsNull: boolean;
|
||||
begin
|
||||
result := DataTable.Fields[idx_ContratosClienteCALIDADES].IsNull;
|
||||
end;
|
||||
|
||||
procedure TContratosClienteDataTableRules.SetCALIDADESIsNull(const aValue: Boolean);
|
||||
begin
|
||||
if aValue then
|
||||
DataTable.Fields[idx_ContratosClienteCALIDADES].AsVariant := Null;
|
||||
end;
|
||||
|
||||
|
||||
{ TTiposCapitulosDataTableRules }
|
||||
constructor TTiposCapitulosDataTableRules.Create(aDataTable: TDADataTable);
|
||||
|
||||
@ -9,18 +9,18 @@ const
|
||||
{ Delta rules ids
|
||||
Feel free to change them to something more human readable
|
||||
but make sure they are unique in the context of your application }
|
||||
RID_ValoresDelta = '{BFD88912-FE88-468F-A484-70A3F0D4F4B1}';
|
||||
RID_PropiedadesDelta = '{41AC59EC-C092-48C0-9692-4DDFDD4DD96A}';
|
||||
RID_ListaAnosContratosDelta = '{207FEB34-67B0-49C5-9A68-B112947AEE94}';
|
||||
RID_ContratosClienteBeneficiosDelta = '{C9D17A9C-E90A-4A84-AC1B-7DDCC9E2E3C7}';
|
||||
RID_ContratosClienteDelta = '{22B8C14E-C907-45A6-8069-CA587DA68F0B}';
|
||||
RID_TiposCapitulosDelta = '{F59CAC54-3765-45A0-AF74-D39B5ABDF12B}';
|
||||
RID_ContratosCliente_DetallesDelta = '{C6E1AC80-D8CD-4971-AC82-3636D2C206D1}';
|
||||
RID_ValoresDelta = '{38C40949-A51A-4309-80CD-2D42A1603624}';
|
||||
RID_PropiedadesDelta = '{38B2F017-BDA0-45D7-8FE6-20FBA829A97B}';
|
||||
RID_ListaAnosContratosDelta = '{7874DD16-167E-457B-BD65-4AE8A24EDBF3}';
|
||||
RID_ContratosClienteBeneficiosDelta = '{586FA3E2-5AB1-4D49-89D1-09EA9581E6FA}';
|
||||
RID_ContratosClienteDelta = '{526FC8D5-7105-4C5C-9956-342BEB9C9C12}';
|
||||
RID_TiposCapitulosDelta = '{3CF19FFB-79CB-4BEB-AB92-BFAC26395C7E}';
|
||||
RID_ContratosCliente_DetallesDelta = '{7F0E3428-95C8-47D6-8D41-D2FF2C661C75}';
|
||||
|
||||
type
|
||||
{ IValoresDelta }
|
||||
IValoresDelta = interface(IValores)
|
||||
['{BFD88912-FE88-468F-A484-70A3F0D4F4B1}']
|
||||
['{38C40949-A51A-4309-80CD-2D42A1603624}']
|
||||
{ Property getters and setters }
|
||||
function GetOldIDValue : Integer;
|
||||
function GetOldID_PROPIEDADValue : Integer;
|
||||
@ -78,7 +78,7 @@ type
|
||||
|
||||
{ IPropiedadesDelta }
|
||||
IPropiedadesDelta = interface(IPropiedades)
|
||||
['{41AC59EC-C092-48C0-9692-4DDFDD4DD96A}']
|
||||
['{38B2F017-BDA0-45D7-8FE6-20FBA829A97B}']
|
||||
{ Property getters and setters }
|
||||
function GetOldIDValue : Integer;
|
||||
function GetOldDESCRIPCIONValue : String;
|
||||
@ -136,7 +136,7 @@ type
|
||||
|
||||
{ IListaAnosContratosDelta }
|
||||
IListaAnosContratosDelta = interface(IListaAnosContratos)
|
||||
['{207FEB34-67B0-49C5-9A68-B112947AEE94}']
|
||||
['{7874DD16-167E-457B-BD65-4AE8A24EDBF3}']
|
||||
{ Property getters and setters }
|
||||
function GetOldANOValue : String;
|
||||
|
||||
@ -170,7 +170,7 @@ type
|
||||
|
||||
{ IContratosClienteBeneficiosDelta }
|
||||
IContratosClienteBeneficiosDelta = interface(IContratosClienteBeneficios)
|
||||
['{C9D17A9C-E90A-4A84-AC1B-7DDCC9E2E3C7}']
|
||||
['{586FA3E2-5AB1-4D49-89D1-09EA9581E6FA}']
|
||||
{ Property getters and setters }
|
||||
function GetOldIDValue : Integer;
|
||||
function GetOldREFERENCIAValue : String;
|
||||
@ -324,7 +324,7 @@ type
|
||||
|
||||
{ IContratosClienteDelta }
|
||||
IContratosClienteDelta = interface(IContratosCliente)
|
||||
['{22B8C14E-C907-45A6-8069-CA587DA68F0B}']
|
||||
['{526FC8D5-7105-4C5C-9956-342BEB9C9C12}']
|
||||
{ Property getters and setters }
|
||||
function GetOldIDValue : Integer;
|
||||
function GetOldID_EMPRESAValue : Integer;
|
||||
@ -372,6 +372,7 @@ type
|
||||
function GetOldPERSONA_CONTACTOValue : String;
|
||||
function GetOldTIPO_CONTRATOValue : String;
|
||||
function GetOldCONDICIONESValue : IROStrings;
|
||||
function GetOldCALIDADESValue : IROStrings;
|
||||
|
||||
{ Properties }
|
||||
property OldID : Integer read GetOldIDValue;
|
||||
@ -420,6 +421,7 @@ type
|
||||
property OldPERSONA_CONTACTO : String read GetOldPERSONA_CONTACTOValue;
|
||||
property OldTIPO_CONTRATO : String read GetOldTIPO_CONTRATOValue;
|
||||
property OldCONDICIONES : IROStrings read GetOldCONDICIONESValue;
|
||||
property OldCALIDADES : IROStrings read GetOldCALIDADESValue;
|
||||
end;
|
||||
|
||||
{ TContratosClienteBusinessProcessorRules }
|
||||
@ -430,11 +432,13 @@ type
|
||||
f_OBSERVACIONES: IROStrings;
|
||||
f_INCIDENCIAS: IROStrings;
|
||||
f_CONDICIONES: IROStrings;
|
||||
f_CALIDADES: IROStrings;
|
||||
procedure FORMA_PAGO_OnChange(Sender: TObject);
|
||||
procedure PLAZO_ENTREGA_OnChange(Sender: TObject);
|
||||
procedure OBSERVACIONES_OnChange(Sender: TObject);
|
||||
procedure INCIDENCIAS_OnChange(Sender: TObject);
|
||||
procedure CONDICIONES_OnChange(Sender: TObject);
|
||||
procedure CALIDADES_OnChange(Sender: TObject);
|
||||
protected
|
||||
{ Property getters and setters }
|
||||
function GetIDValue: Integer; virtual;
|
||||
@ -708,6 +712,11 @@ type
|
||||
function GetOldCONDICIONESValue: IROStrings; virtual;
|
||||
function GetOldCONDICIONESIsNull: Boolean; virtual;
|
||||
procedure SetCONDICIONESIsNull(const aValue: Boolean); virtual;
|
||||
function GetCALIDADESValue: IROStrings; virtual;
|
||||
function GetCALIDADESIsNull: Boolean; virtual;
|
||||
function GetOldCALIDADESValue: IROStrings; virtual;
|
||||
function GetOldCALIDADESIsNull: Boolean; virtual;
|
||||
procedure SetCALIDADESIsNull(const aValue: Boolean); virtual;
|
||||
|
||||
{ Properties }
|
||||
property ID : Integer read GetIDValue write SetIDValue;
|
||||
@ -894,6 +903,10 @@ type
|
||||
property CONDICIONESIsNull : Boolean read GetCONDICIONESIsNull write SetCONDICIONESIsNull;
|
||||
property OldCONDICIONES : IROStrings read GetOldCONDICIONESValue;
|
||||
property OldCONDICIONESIsNull : Boolean read GetOldCONDICIONESIsNull;
|
||||
property CALIDADES : IROStrings read GetCALIDADESValue;
|
||||
property CALIDADESIsNull : Boolean read GetCALIDADESIsNull write SetCALIDADESIsNull;
|
||||
property OldCALIDADES : IROStrings read GetOldCALIDADESValue;
|
||||
property OldCALIDADESIsNull : Boolean read GetOldCALIDADESIsNull;
|
||||
|
||||
public
|
||||
constructor Create(aBusinessProcessor: TDABusinessProcessor); override;
|
||||
@ -903,7 +916,7 @@ type
|
||||
|
||||
{ ITiposCapitulosDelta }
|
||||
ITiposCapitulosDelta = interface(ITiposCapitulos)
|
||||
['{F59CAC54-3765-45A0-AF74-D39B5ABDF12B}']
|
||||
['{3CF19FFB-79CB-4BEB-AB92-BFAC26395C7E}']
|
||||
{ Property getters and setters }
|
||||
function GetOldIDValue : Integer;
|
||||
function GetOldPOSICIONValue : Integer;
|
||||
@ -997,7 +1010,7 @@ type
|
||||
|
||||
{ IContratosCliente_DetallesDelta }
|
||||
IContratosCliente_DetallesDelta = interface(IContratosCliente_Detalles)
|
||||
['{C6E1AC80-D8CD-4971-AC82-3636D2C206D1}']
|
||||
['{7F0E3428-95C8-47D6-8D41-D2FF2C661C75}']
|
||||
{ Property getters and setters }
|
||||
function GetOldIDValue : Integer;
|
||||
function GetOldID_CONTRATOValue : Integer;
|
||||
@ -1858,6 +1871,10 @@ begin
|
||||
StrList := TStringList.Create;
|
||||
StrList.OnChange := CONDICIONES_OnChange;
|
||||
f_CONDICIONES := NewROStrings(StrList,True);
|
||||
|
||||
StrList := TStringList.Create;
|
||||
StrList.OnChange := CALIDADES_OnChange;
|
||||
f_CALIDADES := NewROStrings(StrList,True);
|
||||
end;
|
||||
|
||||
destructor TContratosClienteBusinessProcessorRules.Destroy;
|
||||
@ -1890,6 +1907,11 @@ begin
|
||||
BusinessProcessor.CurrentChange.NewValueByName[fld_ContratosClienteCONDICIONES] := TStringList(Sender).Text;
|
||||
end;
|
||||
|
||||
procedure TContratosClienteBusinessProcessorRules.CALIDADES_OnChange(Sender: TObject);
|
||||
begin
|
||||
BusinessProcessor.CurrentChange.NewValueByName[fld_ContratosClienteCALIDADES] := TStringList(Sender).Text;
|
||||
end;
|
||||
|
||||
function TContratosClienteBusinessProcessorRules.GetIDValue: Integer;
|
||||
begin
|
||||
result := BusinessProcessor.CurrentChange.NewValueByName[fld_ContratosClienteID];
|
||||
@ -3301,6 +3323,34 @@ begin
|
||||
BusinessProcessor.CurrentChange.NewValueByName[fld_ContratosClienteCONDICIONES] := Null;
|
||||
end;
|
||||
|
||||
function TContratosClienteBusinessProcessorRules.GetCALIDADESValue: IROStrings;
|
||||
begin
|
||||
result := f_CALIDADES;
|
||||
result.Text := BusinessProcessor.CurrentChange.NewValueByName[fld_ContratosClienteCALIDADES];
|
||||
end;
|
||||
|
||||
function TContratosClienteBusinessProcessorRules.GetCALIDADESIsNull: Boolean;
|
||||
begin
|
||||
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_ContratosClienteCALIDADES]);
|
||||
end;
|
||||
|
||||
function TContratosClienteBusinessProcessorRules.GetOldCALIDADESValue: IROStrings;
|
||||
begin
|
||||
result := NewROStrings();
|
||||
result.Text := BusinessProcessor.CurrentChange.OldValueByName[fld_ContratosClienteCALIDADES];
|
||||
end;
|
||||
|
||||
function TContratosClienteBusinessProcessorRules.GetOldCALIDADESIsNull: Boolean;
|
||||
begin
|
||||
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_ContratosClienteCALIDADES]);
|
||||
end;
|
||||
|
||||
procedure TContratosClienteBusinessProcessorRules.SetCALIDADESIsNull(const aValue: Boolean);
|
||||
begin
|
||||
if aValue then
|
||||
BusinessProcessor.CurrentChange.NewValueByName[fld_ContratosClienteCALIDADES] := Null;
|
||||
end;
|
||||
|
||||
|
||||
{ TTiposCapitulosBusinessProcessorRules }
|
||||
constructor TTiposCapitulosBusinessProcessorRules.Create(aBusinessProcessor: TDABusinessProcessor);
|
||||
|
||||
@ -191,21 +191,21 @@ object RptContratosCliente: TRptContratosCliente
|
||||
'A,'#10' V_CONTRATOS_CLIENTE.FECHA_CONTRATO,'#10' V_CONTRATOS_CLIEN' +
|
||||
'TE.REFERENCIA,'#10#10' V_CONTRATOS_CLIENTE.FORMA_PAGO,'#10' V_CONTRA' +
|
||||
'TOS_CLIENTE.PLAZO_ENTREGA,'#10' V_CONTRATOS_CLIENTE.OBSERVACIONES' +
|
||||
','#10#10' V_CONTRATOS_CLIENTE.IMPORTE_NETO, V_CONTRATOS_CLIENTE.IMP' +
|
||||
'ORTE_PORTE,'#10' V_CONTRATOS_CLIENTE.DESCUENTO, V_CONTRATOS_CLIEN' +
|
||||
'TE.IMPORTE_DESCUENTO,'#10' V_CONTRATOS_CLIENTE.BASE_IMPONIBLE, V_' +
|
||||
'CONTRATOS_CLIENTE.IVA,'#10' V_CONTRATOS_CLIENTE.RE, V_CONTRATOS_C' +
|
||||
'LIENTE.IMPORTE_RE,'#10' V_CONTRATOS_CLIENTE.ID_CLIENTE,'#10' V_CON' +
|
||||
'TRATOS_CLIENTE.REF_CLIENTE,'#10' V_CONTRATOS_CLIENTE.NIF_CIF,'#10' ' +
|
||||
' V_CONTRATOS_CLIENTE.NOMBRE,'#10' V_CONTRATOS_CLIENTE.CALLE,'#10' ' +
|
||||
'V_CONTRATOS_CLIENTE.POBLACION,'#10' V_CONTRATOS_CLIENTE.PROVINCIA' +
|
||||
','#10' V_CONTRATOS_CLIENTE.CODIGO_POSTAL,'#10' V_CONTRATOS_CLIENTE' +
|
||||
'.TELEFONO,'#10' V_CONTRATOS_CLIENTE.MOVIL,'#10' V_CONTRATOS_CLIENT' +
|
||||
'E.IMPORTE_IVA, V_CONTRATOS_CLIENTE.IMPORTE_TOTAL,'#10' V_CONTRATO' +
|
||||
'S_CLIENTE.PERSONA_CONTACTO,'#10' V_CONTRATOS_CLIENTE.VENDEDOR,'#10' ' +
|
||||
' V_CONTRATOS_CLIENTE.TIPO_CONTRATO,'#10' V_CONTRATOS_CLIENTE.CON' +
|
||||
'DICIONES'#10'FROM'#10' V_CONTRATOS_CLIENTE'#10'WHERE'#10' V_CONTRATOS_CLIE' +
|
||||
'NTE.ID = :ID'#10
|
||||
','#10' V_CONTRATOS_CLIENTE.CALIDADES,'#10#10' V_CONTRATOS_CLIENTE.IM' +
|
||||
'PORTE_NETO, V_CONTRATOS_CLIENTE.IMPORTE_PORTE,'#10' V_CONTRATOS_C' +
|
||||
'LIENTE.DESCUENTO, V_CONTRATOS_CLIENTE.IMPORTE_DESCUENTO,'#10' V_C' +
|
||||
'ONTRATOS_CLIENTE.BASE_IMPONIBLE, V_CONTRATOS_CLIENTE.IVA,'#10' V_' +
|
||||
'CONTRATOS_CLIENTE.RE, V_CONTRATOS_CLIENTE.IMPORTE_RE,'#10' V_CONT' +
|
||||
'RATOS_CLIENTE.ID_CLIENTE,'#10' V_CONTRATOS_CLIENTE.REF_CLIENTE,'#10' ' +
|
||||
' V_CONTRATOS_CLIENTE.NIF_CIF,'#10' V_CONTRATOS_CLIENTE.NOMBRE,'#10 +
|
||||
' V_CONTRATOS_CLIENTE.CALLE,'#10' V_CONTRATOS_CLIENTE.POBLACION' +
|
||||
','#10' V_CONTRATOS_CLIENTE.PROVINCIA,'#10' V_CONTRATOS_CLIENTE.COD' +
|
||||
'IGO_POSTAL,'#10' V_CONTRATOS_CLIENTE.TELEFONO,'#10' V_CONTRATOS_CL' +
|
||||
'IENTE.MOVIL,'#10' V_CONTRATOS_CLIENTE.IMPORTE_IVA, V_CONTRATOS_CL' +
|
||||
'IENTE.IMPORTE_TOTAL,'#10' V_CONTRATOS_CLIENTE.PERSONA_CONTACTO,'#10' ' +
|
||||
' V_CONTRATOS_CLIENTE.VENDEDOR,'#10' V_CONTRATOS_CLIENTE.TIPO_CO' +
|
||||
'NTRATO,'#10' V_CONTRATOS_CLIENTE.CONDICIONES'#10'FROM'#10' V_CONTRATOS' +
|
||||
'_CLIENTE'#10'WHERE'#10' V_CONTRATOS_CLIENTE.ID = :ID'#10
|
||||
StatementType = stSQL
|
||||
ColumnMappings = <
|
||||
item
|
||||
@ -331,10 +331,18 @@ object RptContratosCliente: TRptContratosCliente
|
||||
item
|
||||
DatasetField = 'CONDICIONES'
|
||||
TableField = 'CONDICIONES'
|
||||
end
|
||||
item
|
||||
DatasetField = 'CALIDADES'
|
||||
TableField = 'CALIDADES'
|
||||
end>
|
||||
end>
|
||||
Name = 'Informe_Cabecera'
|
||||
Fields = <
|
||||
item
|
||||
Name = 'CALIDADES'
|
||||
DataType = datMemo
|
||||
end
|
||||
item
|
||||
Name = 'ID'
|
||||
DataType = datInteger
|
||||
@ -1017,7 +1025,7 @@ object RptContratosCliente: TRptContratosCliente
|
||||
PrintOptions.Printer = 'Por defecto'
|
||||
PrintOptions.PrintOnSheet = 0
|
||||
ReportOptions.CreateDate = 39065.872423495400000000
|
||||
ReportOptions.LastChange = 41513.574229155090000000
|
||||
ReportOptions.LastChange = 41590.494716782410000000
|
||||
ScriptLanguage = 'PascalScript'
|
||||
ShowProgress = False
|
||||
StoreInDFM = False
|
||||
|
||||
@ -430,6 +430,10 @@ object srvContratosCliente: TsrvContratosCliente
|
||||
item
|
||||
DatasetField = 'CONDICIONES'
|
||||
TableField = 'CONDICIONES'
|
||||
end
|
||||
item
|
||||
DatasetField = 'CALIDADES'
|
||||
TableField = 'CALIDADES'
|
||||
end>
|
||||
end>
|
||||
Name = 'ContratosCliente'
|
||||
@ -686,6 +690,12 @@ object srvContratosCliente: TsrvContratosCliente
|
||||
item
|
||||
Name = 'CONDICIONES'
|
||||
DataType = datMemo
|
||||
DictionaryEntry = 'ContratosCliente_CONDICIONES'
|
||||
end
|
||||
item
|
||||
Name = 'CALIDADES'
|
||||
DataType = datMemo
|
||||
DictionaryEntry = 'ContratosCliente_CALIDADES'
|
||||
end>
|
||||
end
|
||||
item
|
||||
@ -936,6 +946,11 @@ object srvContratosCliente: TsrvContratosCliente
|
||||
Commands = <
|
||||
item
|
||||
Params = <
|
||||
item
|
||||
Name = 'CALIDADES'
|
||||
DataType = datMemo
|
||||
Value = ''
|
||||
end
|
||||
item
|
||||
Name = 'ID'
|
||||
DataType = datAutoInc
|
||||
@ -1154,16 +1169,17 @@ object srvContratosCliente: TsrvContratosCliente
|
||||
'MPORTE_DESCUENTO,'#10' BASE_IMPONIBLE, ID_TIPO_IVA, IVA, IMPORTE' +
|
||||
'_IVA,'#10' IMPORTE_TOTAL, ID_FORMA_PAGO, ID_TIENDA, ID_VENDEDOR,' +
|
||||
' PERSONA_CONTACTO,'#10' RE, IMPORTE_RE, RECARGO_EQUIVALENCIA, TE' +
|
||||
'LEFONO, MOVIL, TIPO_CONTRATO, CONDICIONES)'#10' VALUES'#10' (:ID, :I' +
|
||||
'D_CLIENTE, :NIF_CIF, :NOMBRE, :ID_DIRECCION, :CALLE, :POBLACION,' +
|
||||
' :PROVINCIA,'#10' :CODIGO_POSTAL, :REFERENCIA, :FECHA_CONTRATO, ' +
|
||||
':SITUACION, :FORMA_PAGO,'#10' :PLAZO_ENTREGA, :OBSERVACIONES, :I' +
|
||||
'NCIDENCIAS, :INCIDENCIAS_ACTIVAS, CURRENT_TIMESTAMP,'#10' :USUAR' +
|
||||
'IO, :IMPORTE_NETO, :IMPORTE_PORTE, :DESCUENTO, :IMPORTE_DESCUENT' +
|
||||
'O,'#10' :BASE_IMPONIBLE, :ID_TIPO_IVA, :IVA, :IMPORTE_IVA, :IMPO' +
|
||||
'RTE_TOTAL, :ID_FORMA_PAGO,'#10' :ID_TIENDA, :ID_VENDEDOR, :PERSO' +
|
||||
'NA_CONTACTO, :RE, :IMPORTE_RE, :RECARGO_EQUIVALENCIA,'#10' :TELE' +
|
||||
'FONO, :MOVIL, :TIPO_CONTRATO, :CONDICIONES)'#10#10
|
||||
'LEFONO, MOVIL, TIPO_CONTRATO, CONDICIONES,'#10' CALIDADES)'#10' VAL' +
|
||||
'UES'#10' (:ID, :ID_CLIENTE, :NIF_CIF, :NOMBRE, :ID_DIRECCION, :CA' +
|
||||
'LLE, :POBLACION, :PROVINCIA,'#10' :CODIGO_POSTAL, :REFERENCIA, :' +
|
||||
'FECHA_CONTRATO, :SITUACION, :FORMA_PAGO,'#10' :PLAZO_ENTREGA, :O' +
|
||||
'BSERVACIONES, :INCIDENCIAS, :INCIDENCIAS_ACTIVAS, CURRENT_TIMEST' +
|
||||
'AMP,'#10' :USUARIO, :IMPORTE_NETO, :IMPORTE_PORTE, :DESCUENTO, :' +
|
||||
'IMPORTE_DESCUENTO,'#10' :BASE_IMPONIBLE, :ID_TIPO_IVA, :IVA, :IM' +
|
||||
'PORTE_IVA, :IMPORTE_TOTAL, :ID_FORMA_PAGO,'#10' :ID_TIENDA, :ID_' +
|
||||
'VENDEDOR, :PERSONA_CONTACTO, :RE, :IMPORTE_RE, :RECARGO_EQUIVALE' +
|
||||
'NCIA,'#10' :TELEFONO, :MOVIL, :TIPO_CONTRATO, :CONDICIONES, :CAL' +
|
||||
'IDADES)'#10#10
|
||||
StatementType = stSQL
|
||||
ColumnMappings = <>
|
||||
end>
|
||||
@ -1189,6 +1205,11 @@ object srvContratosCliente: TsrvContratosCliente
|
||||
end
|
||||
item
|
||||
Params = <
|
||||
item
|
||||
Name = 'CALIDADES'
|
||||
DataType = datMemo
|
||||
Value = ''
|
||||
end
|
||||
item
|
||||
Name = 'ID'
|
||||
DataType = datAutoInc
|
||||
@ -1421,8 +1442,8 @@ object srvContratosCliente: TsrvContratosCliente
|
||||
'TO = :PERSONA_CONTACTO,'#10' RE = :RE,'#10' IMPORTE_RE = :IMPORTE_' +
|
||||
'RE,'#10' RECARGO_EQUIVALENCIA = :RECARGO_EQUIVALENCIA,'#10' TELEFO' +
|
||||
'NO = :TELEFONO,'#10' MOVIL = :MOVIL,'#10' TIPO_CONTRATO = :TIPO_CO' +
|
||||
'NTRATO,'#10' CONDICIONES = :CONDICIONES'#10' WHERE'#10' (ID = :OLD_ID' +
|
||||
')'#10#10
|
||||
'NTRATO,'#10' CONDICIONES = :CONDICIONES,'#10' CALIDADES = :CALIDAD' +
|
||||
'ES'#10' WHERE'#10' (ID = :OLD_ID)'#10#10
|
||||
StatementType = stSQL
|
||||
ColumnMappings = <>
|
||||
end>
|
||||
@ -2058,6 +2079,15 @@ object srvContratosCliente: TsrvContratosCliente
|
||||
DataType = datString
|
||||
Size = 255
|
||||
DisplayLabel = 'Tipo'
|
||||
end
|
||||
item
|
||||
Name = 'ContratosCliente_CALIDADES'
|
||||
DataType = datMemo
|
||||
DisplayLabel = 'Calidades'
|
||||
end
|
||||
item
|
||||
Name = 'ContratosCliente_CONDICIONES'
|
||||
DataType = datMemo
|
||||
end>
|
||||
Left = 48
|
||||
Top = 152
|
||||
|
||||
@ -174,7 +174,7 @@ inherited fEditorContratoCliente: TfEditorContratoCliente
|
||||
inherited pgPaginas: TPageControl
|
||||
Width = 866
|
||||
Height = 308
|
||||
ActivePage = pagCondiciones
|
||||
ActivePage = pagCalidades
|
||||
TabOrder = 1
|
||||
OnChanging = pgPaginasChanging
|
||||
ExplicitWidth = 866
|
||||
@ -235,57 +235,57 @@ inherited fEditorContratoCliente: TfEditorContratoCliente
|
||||
ExplicitWidth = 90
|
||||
end
|
||||
inherited UpDown1: TUpDown
|
||||
Left = 603
|
||||
Left = 619
|
||||
Top = 0
|
||||
ExplicitLeft = 603
|
||||
ExplicitLeft = 619
|
||||
ExplicitTop = 0
|
||||
end
|
||||
inherited ToolButton13: TToolButton
|
||||
Left = 620
|
||||
Left = 636
|
||||
Top = 0
|
||||
ExplicitLeft = 620
|
||||
ExplicitLeft = 636
|
||||
ExplicitTop = 0
|
||||
end
|
||||
inherited ToolButton6: TToolButton
|
||||
Left = 628
|
||||
Left = 644
|
||||
Top = 0
|
||||
ExplicitLeft = 628
|
||||
ExplicitLeft = 644
|
||||
ExplicitTop = 0
|
||||
end
|
||||
inherited ToolButton7: TToolButton
|
||||
Left = 662
|
||||
Left = 678
|
||||
Top = 0
|
||||
ExplicitLeft = 662
|
||||
ExplicitLeft = 678
|
||||
ExplicitTop = 0
|
||||
end
|
||||
inherited ToolButton8: TToolButton
|
||||
Left = 696
|
||||
Left = 712
|
||||
Top = 0
|
||||
ExplicitLeft = 696
|
||||
ExplicitLeft = 712
|
||||
ExplicitTop = 0
|
||||
end
|
||||
inherited ToolButton12: TToolButton
|
||||
Left = 730
|
||||
Left = 746
|
||||
Top = 0
|
||||
ExplicitLeft = 730
|
||||
ExplicitLeft = 746
|
||||
ExplicitTop = 0
|
||||
end
|
||||
inherited ToolButton9: TToolButton
|
||||
Left = 738
|
||||
Left = 754
|
||||
Top = 0
|
||||
ExplicitLeft = 738
|
||||
ExplicitLeft = 754
|
||||
ExplicitTop = 0
|
||||
end
|
||||
inherited ToolButton10: TToolButton
|
||||
Left = 772
|
||||
Left = 788
|
||||
Top = 0
|
||||
ExplicitLeft = 772
|
||||
ExplicitLeft = 788
|
||||
ExplicitTop = 0
|
||||
end
|
||||
inherited ToolButton11: TToolButton
|
||||
Left = 806
|
||||
Left = 822
|
||||
Top = 0
|
||||
ExplicitLeft = 806
|
||||
ExplicitLeft = 822
|
||||
ExplicitTop = 0
|
||||
end
|
||||
end
|
||||
@ -303,7 +303,7 @@ inherited fEditorContratoCliente: TfEditorContratoCliente
|
||||
ExplicitTop = 24
|
||||
ExplicitWidth = 858
|
||||
inherited TBXToolbar1: TTBXToolbar
|
||||
ExplicitWidth = 665
|
||||
ExplicitWidth = 663
|
||||
end
|
||||
end
|
||||
inherited cxLookupComboBox1: TcxLookupComboBox
|
||||
@ -317,6 +317,51 @@ inherited fEditorContratoCliente: TfEditorContratoCliente
|
||||
end
|
||||
end
|
||||
end
|
||||
object pagCalidades: TTabSheet
|
||||
Caption = 'Calidades'
|
||||
ImageIndex = 5
|
||||
object dxLayoutControl2: TdxLayoutControl
|
||||
Left = 0
|
||||
Top = 0
|
||||
Width = 858
|
||||
Height = 280
|
||||
Align = alClient
|
||||
TabOrder = 0
|
||||
TabStop = False
|
||||
AutoContentSizes = [acsWidth, acsHeight]
|
||||
object memCalidades: TcxDBMemo
|
||||
Left = 10
|
||||
Top = 10
|
||||
Align = alClient
|
||||
DataBinding.DataField = 'CALIDADES'
|
||||
DataBinding.DataSource = dsDataTable
|
||||
Properties.ScrollBars = ssVertical
|
||||
Style.BorderColor = clWindowFrame
|
||||
Style.BorderStyle = ebs3D
|
||||
Style.HotTrack = False
|
||||
Style.LookAndFeel.Kind = lfStandard
|
||||
Style.LookAndFeel.NativeStyle = True
|
||||
StyleDisabled.LookAndFeel.Kind = lfStandard
|
||||
StyleDisabled.LookAndFeel.NativeStyle = True
|
||||
StyleFocused.LookAndFeel.Kind = lfStandard
|
||||
StyleFocused.LookAndFeel.NativeStyle = True
|
||||
StyleHot.LookAndFeel.Kind = lfStandard
|
||||
StyleHot.LookAndFeel.NativeStyle = True
|
||||
TabOrder = 0
|
||||
Height = 247
|
||||
Width = 799
|
||||
end
|
||||
object dxLayoutGroup1: TdxLayoutGroup
|
||||
ShowCaption = False
|
||||
Hidden = True
|
||||
ShowBorder = False
|
||||
object dxLayoutItem1: TdxLayoutItem
|
||||
Control = memCalidades
|
||||
ControlOptions.ShowBorder = False
|
||||
end
|
||||
end
|
||||
end
|
||||
end
|
||||
object pagCondiciones: TTabSheet
|
||||
Caption = 'Condiciones'
|
||||
ImageIndex = 4
|
||||
|
||||
@ -42,6 +42,11 @@ type
|
||||
dxLayoutControl1: TdxLayoutControl;
|
||||
dxLayoutControl1Item1: TdxLayoutItem;
|
||||
memCondiciones: TcxDBMemo;
|
||||
pagCalidades: TTabSheet;
|
||||
dxLayoutControl2: TdxLayoutControl;
|
||||
memCalidades: TcxDBMemo;
|
||||
dxLayoutGroup1: TdxLayoutGroup;
|
||||
dxLayoutItem1: TdxLayoutItem;
|
||||
|
||||
procedure FormShow(Sender: TObject);
|
||||
procedure CustomEditorClose(Sender: TObject; var Action: TCloseAction);
|
||||
|
||||
@ -23,31 +23,37 @@ const
|
||||
CTE_PLAZOS_ENTREGA_COCINA = 'PLAZOS_ENTREGA_COCINA';
|
||||
CTE_OBSERVACIONES_COCINA = 'OBSERVACIONES_COCINA';
|
||||
CTE_CONDICIONES_COCINA = 'CONDICIONES_COCINA';
|
||||
CTE_CALIDADES_COCINA = 'CALIDADES_COCINA';
|
||||
|
||||
CTE_FORMA_PAGO_ARMARIO = 'FORMA_PAGO_ARMARIO';
|
||||
CTE_PLAZOS_ENTREGA_ARMARIO = 'PLAZOS_ENTREGA_ARMARIO';
|
||||
CTE_OBSERVACIONES_ARMARIO = 'OBSERVACIONES_ARMARIO';
|
||||
CTE_CONDICIONES_ARMARIO = 'CONDICIONES_ARMARIO';
|
||||
CTE_CALIDADES_ARMARIO = 'CALIDADES_ARMARIO';
|
||||
|
||||
CTE_FORMA_PAGO_BANO = 'FORMA_PAGO_BANO';
|
||||
CTE_PLAZOS_ENTREGA_BANO = 'PLAZOS_ENTREGA_BANO';
|
||||
CTE_OBSERVACIONES_BANO = 'OBSERVACIONES_BANO';
|
||||
CTE_CONDICIONES_BANO = 'CONDICIONES_BANO';
|
||||
CTE_CALIDADES_BANO = 'CALIDADES_BANO';
|
||||
|
||||
CTE_FORMA_PAGO_ELECTRODOMESTICO = 'FORMA_PAGO_ELECTRODOMESTICO';
|
||||
CTE_PLAZOS_ENTREGA_ELECTRODOMESTICO = 'PLAZOS_ENTREGA_ELECTRODOMESTICO';
|
||||
CTE_OBSERVACIONES_ELECTRODOMESTICO = 'OBSERVACIONES_ELECTRODOMESTICO';
|
||||
CTE_CONDICIONES_ELECTRODOMESTICO = 'CONDICIONES_ELECTRODOMESTICO';
|
||||
CTE_CALIDADES_ELECTRODOMESTICO = 'CALIDADES_ELECTRODOMESTICO';
|
||||
|
||||
CTE_FORMA_PAGO_VARIOS = 'FORMA_PAGO_VARIOS';
|
||||
CTE_PLAZOS_ENTREGA_VARIOS = 'PLAZOS_ENTREGA_VARIOS';
|
||||
CTE_OBSERVACIONES_VARIOS = 'OBSERVACIONES_VARIOS';
|
||||
CTE_CONDICIONES_VARIOS = 'CONDICIONES_VARIOS';
|
||||
CTE_CALIDADES_VARIOS = 'CALIDADES_VARIOS';
|
||||
|
||||
CTE_FORMA_PAGO_OBRA = 'FORMA_PAGO_OBRA';
|
||||
CTE_PLAZOS_ENTREGA_OBRA = 'PLAZOS_ENTREGA_OBRA';
|
||||
CTE_OBSERVACIONES_OBRA = 'OBSERVACIONES_OBRA';
|
||||
CTE_CONDICIONES_OBRA = 'CONDICIONES_OBRA';
|
||||
CTE_CALIDADES_OBRA = 'CALIDADES_OBRA';
|
||||
|
||||
type
|
||||
TEnumTiposPresupuesto = (teCocina, teArmario, teBano, teElectrodomestico, teObra, teVarios);
|
||||
@ -895,6 +901,7 @@ begin
|
||||
APresupuesto.FORMA_PAGO.Add(AppFactuGES.Configuracion.GetSettingAsString(teBD, CTE_FORMA_PAGO_COCINA));
|
||||
APresupuesto.PLAZO_ENTREGA.Add(AppFactuGES.Configuracion.GetSettingAsString(teBD, CTE_PLAZOS_ENTREGA_COCINA));
|
||||
APresupuesto.OBSERVACIONES.Add(AppFactuGES.Configuracion.GetSettingAsString(teBD, CTE_OBSERVACIONES_COCINA));
|
||||
APresupuesto.CALIDADES.Add(AppFactuGES.Configuracion.GetSettingAsString(teBD, CTE_CALIDADES_COCINA));
|
||||
(Self.DetallesController as IDetallesPresupuestoClienteController).AnadirCapitulo(TIPO_CAPITULO_C_VACIO, 'MUEBLES DE COCINA ', False, APresupuesto.Detalles);
|
||||
(Self.DetallesController as IDetallesPresupuestoClienteController).AnadirCapitulo(TIPO_CAPITULO_V, 'IMPORTES ', True, APresupuesto.Detalles);
|
||||
(Self.DetallesController as IDetallesPresupuestoClienteController).AnadirCapitulo(TIPO_CAPITULO_V, 'AUMENTO POR ', False, APresupuesto.Detalles);
|
||||
@ -905,6 +912,7 @@ begin
|
||||
APresupuesto.FORMA_PAGO.Add(AppFactuGES.Configuracion.GetSettingAsString(teBD, CTE_FORMA_PAGO_ARMARIO));
|
||||
APresupuesto.PLAZO_ENTREGA.Add(AppFactuGES.Configuracion.GetSettingAsString(teBD, CTE_PLAZOS_ENTREGA_ARMARIO));
|
||||
APresupuesto.OBSERVACIONES.Add(AppFactuGES.Configuracion.GetSettingAsString(teBD, CTE_OBSERVACIONES_ARMARIO));
|
||||
APresupuesto.CALIDADES.Add(AppFactuGES.Configuracion.GetSettingAsString(teBD, CTE_CALIDADES_ARMARIO));
|
||||
(Self.DetallesController as IDetallesPresupuestoClienteController).AnadirCapitulo(TIPO_CAPITULO_AF, 'FRENTE DE ARMARIO Nº ', False, APresupuesto.Detalles);
|
||||
(Self.DetallesController as IDetallesPresupuestoClienteController).AnadirCapitulo(TIPO_CAPITULO_AI, 'INTERIOR DE ARMARIO Nº ', False, APresupuesto.Detalles);
|
||||
end;
|
||||
@ -914,6 +922,7 @@ begin
|
||||
APresupuesto.FORMA_PAGO.Add(AppFactuGES.Configuracion.GetSettingAsString(teBD, CTE_FORMA_PAGO_BANO));
|
||||
APresupuesto.PLAZO_ENTREGA.Add(AppFactuGES.Configuracion.GetSettingAsString(teBD, CTE_PLAZOS_ENTREGA_BANO));
|
||||
APresupuesto.OBSERVACIONES.Add(AppFactuGES.Configuracion.GetSettingAsString(teBD, CTE_OBSERVACIONES_BANO));
|
||||
APresupuesto.CALIDADES.Add(AppFactuGES.Configuracion.GetSettingAsString(teBD, CTE_CALIDADES_BANO));
|
||||
(Self.DetallesController as IDetallesPresupuestoClienteController).AnadirCapitulo(TIPO_CAPITULO_B, 'MUEBLE DE BAÑO Nº ', False, APresupuesto.Detalles);
|
||||
(Self.DetallesController as IDetallesPresupuestoClienteController).AnadirCapitulo(TIPO_CAPITULO_V, 'IMPORTES ', True, APresupuesto.Detalles);
|
||||
end;
|
||||
@ -923,6 +932,7 @@ begin
|
||||
APresupuesto.FORMA_PAGO.Add(AppFactuGES.Configuracion.GetSettingAsString(teBD, CTE_FORMA_PAGO_ELECTRODOMESTICO));
|
||||
APresupuesto.PLAZO_ENTREGA.Add(AppFactuGES.Configuracion.GetSettingAsString(teBD, CTE_PLAZOS_ENTREGA_ELECTRODOMESTICO));
|
||||
APresupuesto.OBSERVACIONES.Add(AppFactuGES.Configuracion.GetSettingAsString(teBD, CTE_OBSERVACIONES_ELECTRODOMESTICO));
|
||||
APresupuesto.CALIDADES.Add(AppFactuGES.Configuracion.GetSettingAsString(teBD, CTE_CALIDADES_ELECTRODOMESTICO));
|
||||
(Self.DetallesController as IDetallesPresupuestoClienteController).AnadirCapitulo(TIPO_CAPITULO_E, 'ELECTRODOMÉSTICOS ', False, APresupuesto.Detalles);
|
||||
end;
|
||||
teObra:
|
||||
@ -931,6 +941,7 @@ begin
|
||||
APresupuesto.FORMA_PAGO.Add(AppFactuGES.Configuracion.GetSettingAsString(teBD, CTE_FORMA_PAGO_OBRA));
|
||||
APresupuesto.PLAZO_ENTREGA.Add(AppFactuGES.Configuracion.GetSettingAsString(teBD, CTE_PLAZOS_ENTREGA_OBRA));
|
||||
APresupuesto.OBSERVACIONES.Add(AppFactuGES.Configuracion.GetSettingAsString(teBD, CTE_OBSERVACIONES_OBRA));
|
||||
APresupuesto.CALIDADES.Add(AppFactuGES.Configuracion.GetSettingAsString(teBD, CTE_CALIDADES_OBRA));
|
||||
(Self.DetallesController as IDetallesPresupuestoClienteController).AnadirCapitulo(TIPO_CAPITULO_O, 'OBRA ', False, APresupuesto.Detalles);
|
||||
end;
|
||||
teVarios:
|
||||
@ -939,6 +950,7 @@ begin
|
||||
APresupuesto.FORMA_PAGO.Add(AppFactuGES.Configuracion.GetSettingAsString(teBD, CTE_FORMA_PAGO_VARIOS));
|
||||
APresupuesto.PLAZO_ENTREGA.Add(AppFactuGES.Configuracion.GetSettingAsString(teBD, CTE_PLAZOS_ENTREGA_VARIOS));
|
||||
APresupuesto.OBSERVACIONES.Add(AppFactuGES.Configuracion.GetSettingAsString(teBD, CTE_OBSERVACIONES_VARIOS));
|
||||
APresupuesto.CALIDADES.Add(AppFactuGES.Configuracion.GetSettingAsString(teBD, CTE_CALIDADES_VARIOS));
|
||||
(Self.DetallesController as IDetallesPresupuestoClienteController).AnadirCapitulo(TIPO_CAPITULO_V, 'VARIOS ', False, APresupuesto.Detalles);
|
||||
end;
|
||||
end;
|
||||
|
||||
@ -26,6 +26,11 @@ inherited DataModulePresupuestosCliente: TDataModulePresupuestosCliente
|
||||
object tbl_PresupuestosCliente: TDAMemDataTable
|
||||
RemoteUpdatesOptions = []
|
||||
Fields = <
|
||||
item
|
||||
Name = 'CALIDADES'
|
||||
DataType = datMemo
|
||||
DisplayLabel = 'Calidades'
|
||||
end
|
||||
item
|
||||
Name = 'ID'
|
||||
DataType = datAutoInc
|
||||
@ -49,6 +54,8 @@ inherited DataModulePresupuestosCliente: TDataModulePresupuestosCliente
|
||||
item
|
||||
Name = 'FECHA_VIGENCIA'
|
||||
DataType = datDateTime
|
||||
DisplayLabel = 'PresupuestosCliente_FECHA_VIGENCIA'
|
||||
DictionaryEntry = 'PresupuestosCliente_FECHA_VIGENCIA'
|
||||
end
|
||||
item
|
||||
Name = 'FECHA_DECISION'
|
||||
@ -78,6 +85,8 @@ inherited DataModulePresupuestosCliente: TDataModulePresupuestosCliente
|
||||
item
|
||||
Name = 'ID_DIRECCION'
|
||||
DataType = datInteger
|
||||
DisplayLabel = 'PresupuestosCliente_ID_DIRECCION'
|
||||
DictionaryEntry = 'PresupuestosCliente_ID_DIRECCION'
|
||||
end
|
||||
item
|
||||
Name = 'NIF_CIF'
|
||||
@ -99,14 +108,20 @@ inherited DataModulePresupuestosCliente: TDataModulePresupuestosCliente
|
||||
Name = 'PERSONA_CONTACTO'
|
||||
DataType = datString
|
||||
Size = 255
|
||||
DisplayLabel = 'Persona de contacto'
|
||||
DictionaryEntry = 'PresupuestosCliente_PERSONA_CONTACTO'
|
||||
end
|
||||
item
|
||||
Name = 'FORMA_PAGO'
|
||||
DataType = datMemo
|
||||
DisplayLabel = 'PresupuestosCliente_FORMA_PAGO'
|
||||
DictionaryEntry = 'PresupuestosCliente_FORMA_PAGO'
|
||||
end
|
||||
item
|
||||
Name = 'PLAZO_ENTREGA'
|
||||
DataType = datMemo
|
||||
DisplayLabel = 'PresupuestosCliente_PLAZO_ENTREGA'
|
||||
DictionaryEntry = 'PresupuestosCliente_PLAZO_ENTREGA'
|
||||
end
|
||||
item
|
||||
Name = 'OBSERVACIONES'
|
||||
@ -179,6 +194,8 @@ inherited DataModulePresupuestosCliente: TDataModulePresupuestosCliente
|
||||
item
|
||||
Name = 'ID_TIPO_IVA'
|
||||
DataType = datInteger
|
||||
DisplayLabel = 'PresupuestosCliente_ID_TIPO_IVA'
|
||||
DictionaryEntry = 'PresupuestosCliente_ID_TIPO_IVA'
|
||||
end
|
||||
item
|
||||
Name = 'IVA'
|
||||
@ -197,14 +214,20 @@ inherited DataModulePresupuestosCliente: TDataModulePresupuestosCliente
|
||||
item
|
||||
Name = 'RE'
|
||||
DataType = datFloat
|
||||
DisplayLabel = 'PresupuestosCliente_RE'
|
||||
DictionaryEntry = 'PresupuestosCliente_RE'
|
||||
end
|
||||
item
|
||||
Name = 'IMPORTE_RE'
|
||||
DataType = datCurrency
|
||||
DisplayLabel = 'PresupuestosCliente_IMPORTE_RE'
|
||||
DictionaryEntry = 'PresupuestosCliente_IMPORTE_RE'
|
||||
end
|
||||
item
|
||||
Name = 'RECARGO_EQUIVALENCIA'
|
||||
DataType = datSmallInt
|
||||
DisplayLabel = 'PresupuestosCliente_RECARGO_EQUIVALENCIA'
|
||||
DictionaryEntry = 'PresupuestosCliente_RECARGO_EQUIVALENCIA'
|
||||
end
|
||||
item
|
||||
Name = 'IMPORTE_TOTAL'
|
||||
@ -221,33 +244,47 @@ inherited DataModulePresupuestosCliente: TDataModulePresupuestosCliente
|
||||
item
|
||||
Name = 'ID_TIENDA'
|
||||
DataType = datInteger
|
||||
DisplayLabel = 'PresupuestosCliente_ID_TIENDA'
|
||||
DictionaryEntry = 'PresupuestosCliente_ID_TIENDA'
|
||||
end
|
||||
item
|
||||
Name = 'TIENDA'
|
||||
DataType = datString
|
||||
Size = 255
|
||||
DisplayLabel = 'PresupuestosCliente_TIENDA'
|
||||
DictionaryEntry = 'PresupuestosCliente_TIENDA'
|
||||
end
|
||||
item
|
||||
Name = 'ID_VENDEDOR'
|
||||
DataType = datInteger
|
||||
DisplayLabel = 'PresupuestosCliente_ID_VENDEDOR'
|
||||
DictionaryEntry = 'PresupuestosCliente_ID_VENDEDOR'
|
||||
end
|
||||
item
|
||||
Name = 'VENDEDOR'
|
||||
DataType = datString
|
||||
Size = 255
|
||||
DisplayLabel = 'PresupuestosCliente_VENDEDOR'
|
||||
DictionaryEntry = 'PresupuestosCliente_VENDEDOR'
|
||||
end
|
||||
item
|
||||
Name = 'ID_CONTRATO'
|
||||
DataType = datInteger
|
||||
DisplayLabel = 'PresupuestosCliente_ID_CONTRATO'
|
||||
DictionaryEntry = 'PresupuestosCliente_ID_CONTRATO'
|
||||
end
|
||||
item
|
||||
Name = 'REF_CONTRATO'
|
||||
DataType = datString
|
||||
Size = 255
|
||||
DisplayLabel = 'PresupuestosCliente_REF_CONTRATO'
|
||||
DictionaryEntry = 'PresupuestosCliente_REF_CONTRATO'
|
||||
end
|
||||
item
|
||||
Name = 'NO_VALORADO'
|
||||
DataType = datSmallInt
|
||||
DisplayLabel = 'PresupuestosCliente_NO_VALORADO'
|
||||
DictionaryEntry = 'PresupuestosCliente_NO_VALORADO'
|
||||
end
|
||||
item
|
||||
Name = 'TIPO_PRESUPUESTO'
|
||||
|
||||
@ -9,12 +9,12 @@ const
|
||||
{ Data table rules ids
|
||||
Feel free to change them to something more human readable
|
||||
but make sure they are unique in the context of your application }
|
||||
RID_Valores = '{01240DD5-A0EB-453D-82E2-811190BCCCB0}';
|
||||
RID_Propiedades = '{84FE1A88-2F78-4428-8BE5-AB6823809F69}';
|
||||
RID_ListaAnosPresupuestos = '{F179C1AE-48C3-4E76-87FB-6BB6AA0B9953}';
|
||||
RID_PresupuestosCliente = '{7C99E973-7D22-467E-B0D2-232A872F4AD0}';
|
||||
RID_CapitulosPresupuesto = '{96502DDF-3960-4105-B99D-D1F12570194E}';
|
||||
RID_PresupuestosCliente_Detalles = '{E263EC66-1B4A-4341-B7EF-18026268971D}';
|
||||
RID_Valores = '{F595E737-38D5-4136-AFD4-5757F25F6EF8}';
|
||||
RID_Propiedades = '{CBC06F9E-0133-4EF7-8E2D-58220BA8DDA9}';
|
||||
RID_ListaAnosPresupuestos = '{D786DD19-6B5D-423D-B297-0C4013A9C199}';
|
||||
RID_PresupuestosCliente = '{34EA2D75-66D0-4D4C-8E5E-44EBF0D67C55}';
|
||||
RID_CapitulosPresupuesto = '{1F64878E-DBCB-4B12-929A-DBD3F2E99119}';
|
||||
RID_PresupuestosCliente_Detalles = '{11B0814E-C750-4649-A479-C9C5FB17ABA4}';
|
||||
|
||||
{ Data table names }
|
||||
nme_Valores = 'Valores';
|
||||
@ -57,6 +57,7 @@ const
|
||||
idx_ListaAnosPresupuestosANO = 0;
|
||||
|
||||
{ PresupuestosCliente fields }
|
||||
fld_PresupuestosClienteCALIDADES = 'CALIDADES';
|
||||
fld_PresupuestosClienteID = 'ID';
|
||||
fld_PresupuestosClienteID_EMPRESA = 'ID_EMPRESA';
|
||||
fld_PresupuestosClienteFECHA_PRESUPUESTO = 'FECHA_PRESUPUESTO';
|
||||
@ -100,47 +101,48 @@ const
|
||||
fld_PresupuestosClienteTIPO_PRESUPUESTO = 'TIPO_PRESUPUESTO';
|
||||
|
||||
{ PresupuestosCliente field indexes }
|
||||
idx_PresupuestosClienteID = 0;
|
||||
idx_PresupuestosClienteID_EMPRESA = 1;
|
||||
idx_PresupuestosClienteFECHA_PRESUPUESTO = 2;
|
||||
idx_PresupuestosClienteFECHA_VIGENCIA = 3;
|
||||
idx_PresupuestosClienteFECHA_DECISION = 4;
|
||||
idx_PresupuestosClienteREFERENCIA = 5;
|
||||
idx_PresupuestosClienteSITUACION = 6;
|
||||
idx_PresupuestosClienteID_CLIENTE = 7;
|
||||
idx_PresupuestosClienteID_DIRECCION = 8;
|
||||
idx_PresupuestosClienteNIF_CIF = 9;
|
||||
idx_PresupuestosClienteNOMBRE = 10;
|
||||
idx_PresupuestosClientePERSONA_CONTACTO = 11;
|
||||
idx_PresupuestosClienteFORMA_PAGO = 12;
|
||||
idx_PresupuestosClientePLAZO_ENTREGA = 13;
|
||||
idx_PresupuestosClienteOBSERVACIONES = 14;
|
||||
idx_PresupuestosClienteINCIDENCIAS = 15;
|
||||
idx_PresupuestosClienteINCIDENCIAS_ACTIVAS = 16;
|
||||
idx_PresupuestosClienteFECHA_ALTA = 17;
|
||||
idx_PresupuestosClienteFECHA_MODIFICACION = 18;
|
||||
idx_PresupuestosClienteUSUARIO = 19;
|
||||
idx_PresupuestosClienteIMPORTE_NETO = 20;
|
||||
idx_PresupuestosClienteIMPORTE_PORTE = 21;
|
||||
idx_PresupuestosClienteDESCUENTO = 22;
|
||||
idx_PresupuestosClienteIMPORTE_DESCUENTO = 23;
|
||||
idx_PresupuestosClienteBASE_IMPONIBLE = 24;
|
||||
idx_PresupuestosClienteID_TIPO_IVA = 25;
|
||||
idx_PresupuestosClienteIVA = 26;
|
||||
idx_PresupuestosClienteIMPORTE_IVA = 27;
|
||||
idx_PresupuestosClienteRE = 28;
|
||||
idx_PresupuestosClienteIMPORTE_RE = 29;
|
||||
idx_PresupuestosClienteRECARGO_EQUIVALENCIA = 30;
|
||||
idx_PresupuestosClienteIMPORTE_TOTAL = 31;
|
||||
idx_PresupuestosClienteID_FORMA_PAGO = 32;
|
||||
idx_PresupuestosClienteID_TIENDA = 33;
|
||||
idx_PresupuestosClienteTIENDA = 34;
|
||||
idx_PresupuestosClienteID_VENDEDOR = 35;
|
||||
idx_PresupuestosClienteVENDEDOR = 36;
|
||||
idx_PresupuestosClienteID_CONTRATO = 37;
|
||||
idx_PresupuestosClienteREF_CONTRATO = 38;
|
||||
idx_PresupuestosClienteNO_VALORADO = 39;
|
||||
idx_PresupuestosClienteTIPO_PRESUPUESTO = 40;
|
||||
idx_PresupuestosClienteCALIDADES = 0;
|
||||
idx_PresupuestosClienteID = 1;
|
||||
idx_PresupuestosClienteID_EMPRESA = 2;
|
||||
idx_PresupuestosClienteFECHA_PRESUPUESTO = 3;
|
||||
idx_PresupuestosClienteFECHA_VIGENCIA = 4;
|
||||
idx_PresupuestosClienteFECHA_DECISION = 5;
|
||||
idx_PresupuestosClienteREFERENCIA = 6;
|
||||
idx_PresupuestosClienteSITUACION = 7;
|
||||
idx_PresupuestosClienteID_CLIENTE = 8;
|
||||
idx_PresupuestosClienteID_DIRECCION = 9;
|
||||
idx_PresupuestosClienteNIF_CIF = 10;
|
||||
idx_PresupuestosClienteNOMBRE = 11;
|
||||
idx_PresupuestosClientePERSONA_CONTACTO = 12;
|
||||
idx_PresupuestosClienteFORMA_PAGO = 13;
|
||||
idx_PresupuestosClientePLAZO_ENTREGA = 14;
|
||||
idx_PresupuestosClienteOBSERVACIONES = 15;
|
||||
idx_PresupuestosClienteINCIDENCIAS = 16;
|
||||
idx_PresupuestosClienteINCIDENCIAS_ACTIVAS = 17;
|
||||
idx_PresupuestosClienteFECHA_ALTA = 18;
|
||||
idx_PresupuestosClienteFECHA_MODIFICACION = 19;
|
||||
idx_PresupuestosClienteUSUARIO = 20;
|
||||
idx_PresupuestosClienteIMPORTE_NETO = 21;
|
||||
idx_PresupuestosClienteIMPORTE_PORTE = 22;
|
||||
idx_PresupuestosClienteDESCUENTO = 23;
|
||||
idx_PresupuestosClienteIMPORTE_DESCUENTO = 24;
|
||||
idx_PresupuestosClienteBASE_IMPONIBLE = 25;
|
||||
idx_PresupuestosClienteID_TIPO_IVA = 26;
|
||||
idx_PresupuestosClienteIVA = 27;
|
||||
idx_PresupuestosClienteIMPORTE_IVA = 28;
|
||||
idx_PresupuestosClienteRE = 29;
|
||||
idx_PresupuestosClienteIMPORTE_RE = 30;
|
||||
idx_PresupuestosClienteRECARGO_EQUIVALENCIA = 31;
|
||||
idx_PresupuestosClienteIMPORTE_TOTAL = 32;
|
||||
idx_PresupuestosClienteID_FORMA_PAGO = 33;
|
||||
idx_PresupuestosClienteID_TIENDA = 34;
|
||||
idx_PresupuestosClienteTIENDA = 35;
|
||||
idx_PresupuestosClienteID_VENDEDOR = 36;
|
||||
idx_PresupuestosClienteVENDEDOR = 37;
|
||||
idx_PresupuestosClienteID_CONTRATO = 38;
|
||||
idx_PresupuestosClienteREF_CONTRATO = 39;
|
||||
idx_PresupuestosClienteNO_VALORADO = 40;
|
||||
idx_PresupuestosClienteTIPO_PRESUPUESTO = 41;
|
||||
|
||||
{ CapitulosPresupuesto fields }
|
||||
fld_CapitulosPresupuestoID = 'ID';
|
||||
@ -209,7 +211,7 @@ const
|
||||
type
|
||||
{ IValores }
|
||||
IValores = interface(IDAStronglyTypedDataTable)
|
||||
['{C10745AB-25B0-4C44-B0F9-6FB4D71D3575}']
|
||||
['{6AAE0E7B-A1FC-4518-BCAB-ED352C578B1B}']
|
||||
{ Property getters and setters }
|
||||
function GetIDValue: Integer;
|
||||
procedure SetIDValue(const aValue: Integer);
|
||||
@ -316,7 +318,7 @@ type
|
||||
|
||||
{ IPropiedades }
|
||||
IPropiedades = interface(IDAStronglyTypedDataTable)
|
||||
['{58959861-2906-481E-9128-89F3C54D24D4}']
|
||||
['{D8C6A56F-07F3-41B3-8C4A-8907BD2C6CD7}']
|
||||
{ Property getters and setters }
|
||||
function GetIDValue: Integer;
|
||||
procedure SetIDValue(const aValue: Integer);
|
||||
@ -363,7 +365,7 @@ type
|
||||
|
||||
{ IListaAnosPresupuestos }
|
||||
IListaAnosPresupuestos = interface(IDAStronglyTypedDataTable)
|
||||
['{8C8359FD-8B9C-40FB-AAA7-F99D251D6EBA}']
|
||||
['{71555714-D8E6-431C-8612-6110C535E9E9}']
|
||||
{ Property getters and setters }
|
||||
function GetANOValue: String;
|
||||
procedure SetANOValue(const aValue: String);
|
||||
@ -398,8 +400,11 @@ type
|
||||
|
||||
{ IPresupuestosCliente }
|
||||
IPresupuestosCliente = interface(IDAStronglyTypedDataTable)
|
||||
['{24023A22-7BF2-416E-AD04-A496E6F9E4C1}']
|
||||
['{49DE2369-0531-479D-98D6-A1B1FFA0D767}']
|
||||
{ Property getters and setters }
|
||||
function GetCALIDADESValue: IROStrings;
|
||||
function GetCALIDADESIsNull: Boolean;
|
||||
procedure SetCALIDADESIsNull(const aValue: Boolean);
|
||||
function GetIDValue: Integer;
|
||||
procedure SetIDValue(const aValue: Integer);
|
||||
function GetIDIsNull: Boolean;
|
||||
@ -563,6 +568,8 @@ type
|
||||
|
||||
|
||||
{ Properties }
|
||||
property CALIDADES: IROStrings read GetCALIDADESValue;
|
||||
property CALIDADESIsNull: Boolean read GetCALIDADESIsNull write SetCALIDADESIsNull;
|
||||
property ID: Integer read GetIDValue write SetIDValue;
|
||||
property IDIsNull: Boolean read GetIDIsNull write SetIDIsNull;
|
||||
property ID_EMPRESA: Integer read GetID_EMPRESAValue write SetID_EMPRESAValue;
|
||||
@ -650,16 +657,21 @@ type
|
||||
{ TPresupuestosClienteDataTableRules }
|
||||
TPresupuestosClienteDataTableRules = class(TIntfObjectDADataTableRules, IPresupuestosCliente)
|
||||
private
|
||||
f_CALIDADES: IROStrings;
|
||||
f_FORMA_PAGO: IROStrings;
|
||||
f_PLAZO_ENTREGA: IROStrings;
|
||||
f_OBSERVACIONES: IROStrings;
|
||||
f_INCIDENCIAS: IROStrings;
|
||||
procedure CALIDADES_OnChange(Sender: TObject);
|
||||
procedure FORMA_PAGO_OnChange(Sender: TObject);
|
||||
procedure PLAZO_ENTREGA_OnChange(Sender: TObject);
|
||||
procedure OBSERVACIONES_OnChange(Sender: TObject);
|
||||
procedure INCIDENCIAS_OnChange(Sender: TObject);
|
||||
protected
|
||||
{ Property getters and setters }
|
||||
function GetCALIDADESValue: IROStrings; virtual;
|
||||
function GetCALIDADESIsNull: Boolean; virtual;
|
||||
procedure SetCALIDADESIsNull(const aValue: Boolean); virtual;
|
||||
function GetIDValue: Integer; virtual;
|
||||
procedure SetIDValue(const aValue: Integer); virtual;
|
||||
function GetIDIsNull: Boolean; virtual;
|
||||
@ -822,6 +834,8 @@ type
|
||||
procedure SetTIPO_PRESUPUESTOIsNull(const aValue: Boolean); virtual;
|
||||
|
||||
{ Properties }
|
||||
property CALIDADES: IROStrings read GetCALIDADESValue;
|
||||
property CALIDADESIsNull: Boolean read GetCALIDADESIsNull write SetCALIDADESIsNull;
|
||||
property ID: Integer read GetIDValue write SetIDValue;
|
||||
property IDIsNull: Boolean read GetIDIsNull write SetIDIsNull;
|
||||
property ID_EMPRESA: Integer read GetID_EMPRESAValue write SetID_EMPRESAValue;
|
||||
@ -913,7 +927,7 @@ type
|
||||
|
||||
{ ICapitulosPresupuesto }
|
||||
ICapitulosPresupuesto = interface(IDAStronglyTypedDataTable)
|
||||
['{CC4491CC-4270-451B-9120-A6DBEF668324}']
|
||||
['{B7A20983-4BA3-4219-A117-B437AAC6979E}']
|
||||
{ Property getters and setters }
|
||||
function GetIDValue: Integer;
|
||||
procedure SetIDValue(const aValue: Integer);
|
||||
@ -1068,7 +1082,7 @@ type
|
||||
|
||||
{ IPresupuestosCliente_Detalles }
|
||||
IPresupuestosCliente_Detalles = interface(IDAStronglyTypedDataTable)
|
||||
['{A94CE8DD-1625-4372-8F27-2F2D25DB2912}']
|
||||
['{DD320F0F-A644-47A2-AC0F-58C2D86FC696}']
|
||||
{ Property getters and setters }
|
||||
function GetIDValue: Integer;
|
||||
procedure SetIDValue(const aValue: Integer);
|
||||
@ -1550,6 +1564,10 @@ var
|
||||
begin
|
||||
inherited;
|
||||
|
||||
StrList := TStringList.Create;
|
||||
StrList.OnChange := CALIDADES_OnChange;
|
||||
f_CALIDADES := NewROStrings(StrList,True);
|
||||
|
||||
StrList := TStringList.Create;
|
||||
StrList.OnChange := FORMA_PAGO_OnChange;
|
||||
f_FORMA_PAGO := NewROStrings(StrList,True);
|
||||
@ -1572,6 +1590,11 @@ begin
|
||||
inherited;
|
||||
end;
|
||||
|
||||
procedure TPresupuestosClienteDataTableRules.CALIDADES_OnChange(Sender: TObject);
|
||||
begin
|
||||
if DataTable.Editing then DataTable.Fields[idx_PresupuestosClienteCALIDADES].AsVariant := TStringList(Sender).Text;
|
||||
end;
|
||||
|
||||
procedure TPresupuestosClienteDataTableRules.FORMA_PAGO_OnChange(Sender: TObject);
|
||||
begin
|
||||
if DataTable.Editing then DataTable.Fields[idx_PresupuestosClienteFORMA_PAGO].AsVariant := TStringList(Sender).Text;
|
||||
@ -1592,6 +1615,23 @@ begin
|
||||
if DataTable.Editing then DataTable.Fields[idx_PresupuestosClienteINCIDENCIAS].AsVariant := TStringList(Sender).Text;
|
||||
end;
|
||||
|
||||
function TPresupuestosClienteDataTableRules.GetCALIDADESValue: IROStrings;
|
||||
begin
|
||||
result := f_CALIDADES;
|
||||
result.Text := DataTable.Fields[idx_PresupuestosClienteCALIDADES].AsString;
|
||||
end;
|
||||
|
||||
function TPresupuestosClienteDataTableRules.GetCALIDADESIsNull: boolean;
|
||||
begin
|
||||
result := DataTable.Fields[idx_PresupuestosClienteCALIDADES].IsNull;
|
||||
end;
|
||||
|
||||
procedure TPresupuestosClienteDataTableRules.SetCALIDADESIsNull(const aValue: Boolean);
|
||||
begin
|
||||
if aValue then
|
||||
DataTable.Fields[idx_PresupuestosClienteCALIDADES].AsVariant := Null;
|
||||
end;
|
||||
|
||||
function TPresupuestosClienteDataTableRules.GetIDValue: Integer;
|
||||
begin
|
||||
result := DataTable.Fields[idx_PresupuestosClienteID].AsInteger;
|
||||
|
||||
@ -9,17 +9,17 @@ const
|
||||
{ Delta rules ids
|
||||
Feel free to change them to something more human readable
|
||||
but make sure they are unique in the context of your application }
|
||||
RID_ValoresDelta = '{416F5769-AE40-4A91-AC03-BAEE67591266}';
|
||||
RID_PropiedadesDelta = '{79C29CFD-CEB2-4958-A514-0F08DFA587C1}';
|
||||
RID_ListaAnosPresupuestosDelta = '{5AD64A70-834D-4211-B4E2-CF197FBED98B}';
|
||||
RID_PresupuestosClienteDelta = '{A9E95F7E-9B12-460D-A255-24BBF1AA5E58}';
|
||||
RID_CapitulosPresupuestoDelta = '{793834E6-6B3C-4618-99AF-A6629F835A46}';
|
||||
RID_PresupuestosCliente_DetallesDelta = '{625AFBDA-44C7-4EE0-B18E-3803CFAC970C}';
|
||||
RID_ValoresDelta = '{2B3EF096-6069-48F1-9372-FE2E3B086A6A}';
|
||||
RID_PropiedadesDelta = '{EA2F95CA-4260-4E0E-B470-E62AB00CCACC}';
|
||||
RID_ListaAnosPresupuestosDelta = '{843FE025-D441-4A64-9BA6-7CE3C254BFD2}';
|
||||
RID_PresupuestosClienteDelta = '{42FD0DC8-EB18-4B9C-AD03-82664BA0BCDA}';
|
||||
RID_CapitulosPresupuestoDelta = '{875DBE7F-AAE9-4CD9-8C77-566DDDC99AD3}';
|
||||
RID_PresupuestosCliente_DetallesDelta = '{D4644817-86F3-4A5E-B5D0-69ABAC6EC6FE}';
|
||||
|
||||
type
|
||||
{ IValoresDelta }
|
||||
IValoresDelta = interface(IValores)
|
||||
['{416F5769-AE40-4A91-AC03-BAEE67591266}']
|
||||
['{2B3EF096-6069-48F1-9372-FE2E3B086A6A}']
|
||||
{ Property getters and setters }
|
||||
function GetOldIDValue : Integer;
|
||||
function GetOldID_EMPRESAValue : Integer;
|
||||
@ -125,7 +125,7 @@ type
|
||||
|
||||
{ IPropiedadesDelta }
|
||||
IPropiedadesDelta = interface(IPropiedades)
|
||||
['{79C29CFD-CEB2-4958-A514-0F08DFA587C1}']
|
||||
['{EA2F95CA-4260-4E0E-B470-E62AB00CCACC}']
|
||||
{ Property getters and setters }
|
||||
function GetOldIDValue : Integer;
|
||||
function GetOldDESCRIPCIONValue : String;
|
||||
@ -171,7 +171,7 @@ type
|
||||
|
||||
{ IListaAnosPresupuestosDelta }
|
||||
IListaAnosPresupuestosDelta = interface(IListaAnosPresupuestos)
|
||||
['{5AD64A70-834D-4211-B4E2-CF197FBED98B}']
|
||||
['{843FE025-D441-4A64-9BA6-7CE3C254BFD2}']
|
||||
{ Property getters and setters }
|
||||
function GetOldANOValue : String;
|
||||
|
||||
@ -205,8 +205,9 @@ type
|
||||
|
||||
{ IPresupuestosClienteDelta }
|
||||
IPresupuestosClienteDelta = interface(IPresupuestosCliente)
|
||||
['{A9E95F7E-9B12-460D-A255-24BBF1AA5E58}']
|
||||
['{42FD0DC8-EB18-4B9C-AD03-82664BA0BCDA}']
|
||||
{ Property getters and setters }
|
||||
function GetOldCALIDADESValue : IROStrings;
|
||||
function GetOldIDValue : Integer;
|
||||
function GetOldID_EMPRESAValue : Integer;
|
||||
function GetOldFECHA_PRESUPUESTOValue : DateTime;
|
||||
@ -250,6 +251,7 @@ type
|
||||
function GetOldTIPO_PRESUPUESTOValue : String;
|
||||
|
||||
{ Properties }
|
||||
property OldCALIDADES : IROStrings read GetOldCALIDADESValue;
|
||||
property OldID : Integer read GetOldIDValue;
|
||||
property OldID_EMPRESA : Integer read GetOldID_EMPRESAValue;
|
||||
property OldFECHA_PRESUPUESTO : DateTime read GetOldFECHA_PRESUPUESTOValue;
|
||||
@ -296,16 +298,23 @@ type
|
||||
{ TPresupuestosClienteBusinessProcessorRules }
|
||||
TPresupuestosClienteBusinessProcessorRules = class(TDABusinessProcessorRules, IPresupuestosCliente, IPresupuestosClienteDelta)
|
||||
private
|
||||
f_CALIDADES: IROStrings;
|
||||
f_FORMA_PAGO: IROStrings;
|
||||
f_PLAZO_ENTREGA: IROStrings;
|
||||
f_OBSERVACIONES: IROStrings;
|
||||
f_INCIDENCIAS: IROStrings;
|
||||
procedure CALIDADES_OnChange(Sender: TObject);
|
||||
procedure FORMA_PAGO_OnChange(Sender: TObject);
|
||||
procedure PLAZO_ENTREGA_OnChange(Sender: TObject);
|
||||
procedure OBSERVACIONES_OnChange(Sender: TObject);
|
||||
procedure INCIDENCIAS_OnChange(Sender: TObject);
|
||||
protected
|
||||
{ Property getters and setters }
|
||||
function GetCALIDADESValue: IROStrings; virtual;
|
||||
function GetCALIDADESIsNull: Boolean; virtual;
|
||||
function GetOldCALIDADESValue: IROStrings; virtual;
|
||||
function GetOldCALIDADESIsNull: Boolean; virtual;
|
||||
procedure SetCALIDADESIsNull(const aValue: Boolean); virtual;
|
||||
function GetIDValue: Integer; virtual;
|
||||
function GetIDIsNull: Boolean; virtual;
|
||||
function GetOldIDValue: Integer; virtual;
|
||||
@ -550,6 +559,10 @@ type
|
||||
procedure SetTIPO_PRESUPUESTOIsNull(const aValue: Boolean); virtual;
|
||||
|
||||
{ Properties }
|
||||
property CALIDADES : IROStrings read GetCALIDADESValue;
|
||||
property CALIDADESIsNull : Boolean read GetCALIDADESIsNull write SetCALIDADESIsNull;
|
||||
property OldCALIDADES : IROStrings read GetOldCALIDADESValue;
|
||||
property OldCALIDADESIsNull : Boolean read GetOldCALIDADESIsNull;
|
||||
property ID : Integer read GetIDValue write SetIDValue;
|
||||
property IDIsNull : Boolean read GetIDIsNull write SetIDIsNull;
|
||||
property OldID : Integer read GetOldIDValue;
|
||||
@ -723,7 +736,7 @@ type
|
||||
|
||||
{ ICapitulosPresupuestoDelta }
|
||||
ICapitulosPresupuestoDelta = interface(ICapitulosPresupuesto)
|
||||
['{793834E6-6B3C-4618-99AF-A6629F835A46}']
|
||||
['{875DBE7F-AAE9-4CD9-8C77-566DDDC99AD3}']
|
||||
{ Property getters and setters }
|
||||
function GetOldIDValue : Integer;
|
||||
function GetOldPOSICIONValue : Integer;
|
||||
@ -877,7 +890,7 @@ type
|
||||
|
||||
{ IPresupuestosCliente_DetallesDelta }
|
||||
IPresupuestosCliente_DetallesDelta = interface(IPresupuestosCliente_Detalles)
|
||||
['{625AFBDA-44C7-4EE0-B18E-3803CFAC970C}']
|
||||
['{D4644817-86F3-4A5E-B5D0-69ABAC6EC6FE}']
|
||||
{ Property getters and setters }
|
||||
function GetOldIDValue : Integer;
|
||||
function GetOldID_PRESUPUESTOValue : Integer;
|
||||
@ -1459,6 +1472,10 @@ var
|
||||
begin
|
||||
inherited;
|
||||
|
||||
StrList := TStringList.Create;
|
||||
StrList.OnChange := CALIDADES_OnChange;
|
||||
f_CALIDADES := NewROStrings(StrList,True);
|
||||
|
||||
StrList := TStringList.Create;
|
||||
StrList.OnChange := FORMA_PAGO_OnChange;
|
||||
f_FORMA_PAGO := NewROStrings(StrList,True);
|
||||
@ -1481,6 +1498,11 @@ begin
|
||||
inherited;
|
||||
end;
|
||||
|
||||
procedure TPresupuestosClienteBusinessProcessorRules.CALIDADES_OnChange(Sender: TObject);
|
||||
begin
|
||||
BusinessProcessor.CurrentChange.NewValueByName[fld_PresupuestosClienteCALIDADES] := TStringList(Sender).Text;
|
||||
end;
|
||||
|
||||
procedure TPresupuestosClienteBusinessProcessorRules.FORMA_PAGO_OnChange(Sender: TObject);
|
||||
begin
|
||||
BusinessProcessor.CurrentChange.NewValueByName[fld_PresupuestosClienteFORMA_PAGO] := TStringList(Sender).Text;
|
||||
@ -1501,6 +1523,34 @@ begin
|
||||
BusinessProcessor.CurrentChange.NewValueByName[fld_PresupuestosClienteINCIDENCIAS] := TStringList(Sender).Text;
|
||||
end;
|
||||
|
||||
function TPresupuestosClienteBusinessProcessorRules.GetCALIDADESValue: IROStrings;
|
||||
begin
|
||||
result := f_CALIDADES;
|
||||
result.Text := BusinessProcessor.CurrentChange.NewValueByName[fld_PresupuestosClienteCALIDADES];
|
||||
end;
|
||||
|
||||
function TPresupuestosClienteBusinessProcessorRules.GetCALIDADESIsNull: Boolean;
|
||||
begin
|
||||
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_PresupuestosClienteCALIDADES]);
|
||||
end;
|
||||
|
||||
function TPresupuestosClienteBusinessProcessorRules.GetOldCALIDADESValue: IROStrings;
|
||||
begin
|
||||
result := NewROStrings();
|
||||
result.Text := BusinessProcessor.CurrentChange.OldValueByName[fld_PresupuestosClienteCALIDADES];
|
||||
end;
|
||||
|
||||
function TPresupuestosClienteBusinessProcessorRules.GetOldCALIDADESIsNull: Boolean;
|
||||
begin
|
||||
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_PresupuestosClienteCALIDADES]);
|
||||
end;
|
||||
|
||||
procedure TPresupuestosClienteBusinessProcessorRules.SetCALIDADESIsNull(const aValue: Boolean);
|
||||
begin
|
||||
if aValue then
|
||||
BusinessProcessor.CurrentChange.NewValueByName[fld_PresupuestosClienteCALIDADES] := Null;
|
||||
end;
|
||||
|
||||
function TPresupuestosClienteBusinessProcessorRules.GetIDValue: Integer;
|
||||
begin
|
||||
result := BusinessProcessor.CurrentChange.NewValueByName[fld_PresupuestosClienteID];
|
||||
|
||||
@ -277,6 +277,8 @@ begin
|
||||
|
||||
Self.DataTable.FieldByName(fld_PresupuestosClienteFORMA_PAGO).AsString := AppFactuGES.FormaPagoDocumentos;
|
||||
Self.DataTable.FieldByName(fld_PresupuestosClienteOBSERVACIONES).AsString := AppFactuGES.ObservacionesDocumentos;
|
||||
Self.DataTable.FieldByName(fld_PresupuestosClienteCALIDADES).AsString := AppFactuGES.CalidadesDocumentos;
|
||||
|
||||
|
||||
AsignarVendedor;
|
||||
end;
|
||||
|
||||
@ -210,29 +210,29 @@ object RptPresupuestosCliente: TRptPresupuestosCliente
|
||||
'ESTOS_CLIENTE.FECHA_VIGENCIA,'#10' V_PRESUPUESTOS_CLIENTE.FECHA_D' +
|
||||
'ECISION,'#10' V_PRESUPUESTOS_CLIENTE.REFERENCIA,'#10#10' V_PRESUPUES' +
|
||||
'TOS_CLIENTE.FORMA_PAGO,'#10' V_PRESUPUESTOS_CLIENTE.PLAZO_ENTREGA' +
|
||||
','#10' V_PRESUPUESTOS_CLIENTE.OBSERVACIONES,'#10#10' V_PRESUPUESTOS_' +
|
||||
'CLIENTE.IMPORTE_NETO, V_PRESUPUESTOS_CLIENTE.IMPORTE_PORTE,'#10' ' +
|
||||
'V_PRESUPUESTOS_CLIENTE.DESCUENTO, V_PRESUPUESTOS_CLIENTE.IMPORTE' +
|
||||
'_DESCUENTO,'#10' V_PRESUPUESTOS_CLIENTE.BASE_IMPONIBLE, V_PRESUPU' +
|
||||
'ESTOS_CLIENTE.IVA,'#10' V_PRESUPUESTOS_CLIENTE.RE, V_PRESUPUESTOS' +
|
||||
'_CLIENTE.IMPORTE_RE,'#10' V_PRESUPUESTOS_CLIENTE.ID_CLIENTE,'#10' ' +
|
||||
'V_PRESUPUESTOS_CLIENTE.NIF_CIF, CONTACTOS.REFERENCIA as REF_CLIE' +
|
||||
'NTE,'#10' V_PRESUPUESTOS_CLIENTE.NOMBRE,'#10' V_PRESUPUESTOS_CLIEN' +
|
||||
'TE.IMPORTE_IVA, V_PRESUPUESTOS_CLIENTE.IMPORTE_TOTAL,'#10' COALES' +
|
||||
'CE(CONTACTOS_DIRECCIONES.CALLE, CONTACTOS.CALLE) AS CALLE,'#10' C' +
|
||||
'OALESCE(CONTACTOS_DIRECCIONES.POBLACION, CONTACTOS.POBLACION) AS' +
|
||||
' POBLACION,'#10' COALESCE(CONTACTOS_DIRECCIONES.PROVINCIA, CONTAC' +
|
||||
'TOS.PROVINCIA) AS PROVINCIA,'#10' COALESCE(CONTACTOS_DIRECCIONES.' +
|
||||
'CODIGO_POSTAL, CONTACTOS.CODIGO_POSTAL) AS CODIGO_POSTAL,'#10' CO' +
|
||||
'ALESCE(CONTACTOS_DIRECCIONES.TELEFONO, CONTACTOS.TELEFONO_1) AS ' +
|
||||
'TELEFONO,'#10' COALESCE(CONTACTOS_DIRECCIONES.MOVIL, CONTACTOS.MO' +
|
||||
'VIL_1) AS MOVIL,'#10' V_PRESUPUESTOS_CLIENTE.PERSONA_CONTACTO,'#10' ' +
|
||||
' V_PRESUPUESTOS_CLIENTE.VENDEDOR, V_PRESUPUESTOS_CLIENTE.NO_VAL' +
|
||||
'ORADO'#10'FROM'#10' V_PRESUPUESTOS_CLIENTE'#10' INNER JOIN CONTACTOS O' +
|
||||
'N (CONTACTOS.ID = V_PRESUPUESTOS_CLIENTE.ID_CLIENTE)'#10' LEFT OU' +
|
||||
'TER JOIN CONTACTOS_DIRECCIONES ON (CONTACTOS_DIRECCIONES.ID = V_' +
|
||||
'PRESUPUESTOS_CLIENTE.ID_DIRECCION)'#10'WHERE'#10' V_PRESUPUESTOS_CLIE' +
|
||||
'NTE.ID = :ID'#10
|
||||
','#10' V_PRESUPUESTOS_CLIENTE.OBSERVACIONES,'#10' V_PRESUPUESTOS_C' +
|
||||
'LIENTE.CALIDADES,'#10#10' V_PRESUPUESTOS_CLIENTE.IMPORTE_NETO, V_PR' +
|
||||
'ESUPUESTOS_CLIENTE.IMPORTE_PORTE,'#10' V_PRESUPUESTOS_CLIENTE.DES' +
|
||||
'CUENTO, V_PRESUPUESTOS_CLIENTE.IMPORTE_DESCUENTO,'#10' V_PRESUPUE' +
|
||||
'STOS_CLIENTE.BASE_IMPONIBLE, V_PRESUPUESTOS_CLIENTE.IVA,'#10' V_P' +
|
||||
'RESUPUESTOS_CLIENTE.RE, V_PRESUPUESTOS_CLIENTE.IMPORTE_RE,'#10' V' +
|
||||
'_PRESUPUESTOS_CLIENTE.ID_CLIENTE,'#10' V_PRESUPUESTOS_CLIENTE.NIF' +
|
||||
'_CIF, CONTACTOS.REFERENCIA as REF_CLIENTE,'#10' V_PRESUPUESTOS_CL' +
|
||||
'IENTE.NOMBRE,'#10' V_PRESUPUESTOS_CLIENTE.IMPORTE_IVA, V_PRESUPUE' +
|
||||
'STOS_CLIENTE.IMPORTE_TOTAL,'#10' COALESCE(CONTACTOS_DIRECCIONES.C' +
|
||||
'ALLE, CONTACTOS.CALLE) AS CALLE,'#10' COALESCE(CONTACTOS_DIRECCIO' +
|
||||
'NES.POBLACION, CONTACTOS.POBLACION) AS POBLACION,'#10' COALESCE(C' +
|
||||
'ONTACTOS_DIRECCIONES.PROVINCIA, CONTACTOS.PROVINCIA) AS PROVINCI' +
|
||||
'A,'#10' COALESCE(CONTACTOS_DIRECCIONES.CODIGO_POSTAL, CONTACTOS.C' +
|
||||
'ODIGO_POSTAL) AS CODIGO_POSTAL,'#10' COALESCE(CONTACTOS_DIRECCION' +
|
||||
'ES.TELEFONO, CONTACTOS.TELEFONO_1) AS TELEFONO,'#10' COALESCE(CON' +
|
||||
'TACTOS_DIRECCIONES.MOVIL, CONTACTOS.MOVIL_1) AS MOVIL,'#10' V_PRE' +
|
||||
'SUPUESTOS_CLIENTE.PERSONA_CONTACTO,'#10' V_PRESUPUESTOS_CLIENTE.V' +
|
||||
'ENDEDOR, V_PRESUPUESTOS_CLIENTE.NO_VALORADO'#10'FROM'#10' V_PRESUPUES' +
|
||||
'TOS_CLIENTE'#10' INNER JOIN CONTACTOS ON (CONTACTOS.ID = V_PRESUP' +
|
||||
'UESTOS_CLIENTE.ID_CLIENTE)'#10' LEFT OUTER JOIN CONTACTOS_DIRECCI' +
|
||||
'ONES ON (CONTACTOS_DIRECCIONES.ID = V_PRESUPUESTOS_CLIENTE.ID_DI' +
|
||||
'RECCION)'#10'WHERE'#10' V_PRESUPUESTOS_CLIENTE.ID = :ID'#10
|
||||
StatementType = stSQL
|
||||
ColumnMappings = <
|
||||
item
|
||||
@ -362,6 +362,10 @@ object RptPresupuestosCliente: TRptPresupuestosCliente
|
||||
item
|
||||
DatasetField = 'MOVIL'
|
||||
TableField = 'MOVIL'
|
||||
end
|
||||
item
|
||||
DatasetField = 'CALIDADES'
|
||||
TableField = 'CALIDADES'
|
||||
end>
|
||||
end>
|
||||
Name = 'Informe_Cabecera'
|
||||
@ -401,6 +405,10 @@ object RptPresupuestosCliente: TRptPresupuestosCliente
|
||||
Name = 'PLAZO_ENTREGA'
|
||||
DataType = datMemo
|
||||
end
|
||||
item
|
||||
Name = 'CALIDADES'
|
||||
DataType = datMemo
|
||||
end
|
||||
item
|
||||
Name = 'OBSERVACIONES'
|
||||
DataType = datMemo
|
||||
@ -876,7 +884,7 @@ object RptPresupuestosCliente: TRptPresupuestosCliente
|
||||
PrintOptions.Printer = 'Por defecto'
|
||||
PrintOptions.PrintOnSheet = 0
|
||||
ReportOptions.CreateDate = 39065.872423495400000000
|
||||
ReportOptions.LastChange = 41156.501393946760000000
|
||||
ReportOptions.LastChange = 41589.784037662040000000
|
||||
ScriptLanguage = 'PascalScript'
|
||||
ShowProgress = False
|
||||
StoreInDFM = False
|
||||
@ -1063,7 +1071,8 @@ object RptPresupuestosCliente: TRptPresupuestosCliente
|
||||
Top = 128
|
||||
end
|
||||
object IBDatabase1: TIBDatabase
|
||||
DatabaseName = 'C:\Codigo Tecsitel\Output\Debug\Database\FACTUGES_PRODUCCION.FDB'
|
||||
Connected = True
|
||||
DatabaseName = 'C:\Codigo Acana\Output\Debug\Database\FACTUGES.FDB'
|
||||
Params.Strings = (
|
||||
'user_name=sysdba'
|
||||
'password=masterkey'
|
||||
@ -1074,6 +1083,7 @@ object RptPresupuestosCliente: TRptPresupuestosCliente
|
||||
Top = 296
|
||||
end
|
||||
object IBTransaction1: TIBTransaction
|
||||
Active = True
|
||||
Left = 48
|
||||
Top = 352
|
||||
end
|
||||
|
||||
@ -328,10 +328,19 @@ object srvPresupuestosCliente: TsrvPresupuestosCliente
|
||||
item
|
||||
DatasetField = 'TIPO_PRESUPUESTO'
|
||||
TableField = 'TIPO_PRESUPUESTO'
|
||||
end
|
||||
item
|
||||
DatasetField = 'CALIDADES'
|
||||
TableField = 'CALIDADES'
|
||||
end>
|
||||
end>
|
||||
Name = 'PresupuestosCliente'
|
||||
Fields = <
|
||||
item
|
||||
Name = 'CALIDADES'
|
||||
DataType = datMemo
|
||||
DisplayLabel = 'Calidades'
|
||||
end
|
||||
item
|
||||
Name = 'ID'
|
||||
DataType = datAutoInc
|
||||
@ -353,6 +362,7 @@ object srvPresupuestosCliente: TsrvPresupuestosCliente
|
||||
item
|
||||
Name = 'FECHA_VIGENCIA'
|
||||
DataType = datDateTime
|
||||
DictionaryEntry = 'PresupuestosCliente_FECHA_VIGENCIA'
|
||||
end
|
||||
item
|
||||
Name = 'FECHA_DECISION'
|
||||
@ -379,6 +389,7 @@ object srvPresupuestosCliente: TsrvPresupuestosCliente
|
||||
item
|
||||
Name = 'ID_DIRECCION'
|
||||
DataType = datInteger
|
||||
DictionaryEntry = 'PresupuestosCliente_ID_DIRECCION'
|
||||
end
|
||||
item
|
||||
Name = 'NIF_CIF'
|
||||
@ -398,14 +409,17 @@ object srvPresupuestosCliente: TsrvPresupuestosCliente
|
||||
Name = 'PERSONA_CONTACTO'
|
||||
DataType = datString
|
||||
Size = 255
|
||||
DictionaryEntry = 'PresupuestosCliente_PERSONA_CONTACTO'
|
||||
end
|
||||
item
|
||||
Name = 'FORMA_PAGO'
|
||||
DataType = datMemo
|
||||
DictionaryEntry = 'PresupuestosCliente_FORMA_PAGO'
|
||||
end
|
||||
item
|
||||
Name = 'PLAZO_ENTREGA'
|
||||
DataType = datMemo
|
||||
DictionaryEntry = 'PresupuestosCliente_PLAZO_ENTREGA'
|
||||
end
|
||||
item
|
||||
Name = 'OBSERVACIONES'
|
||||
@ -466,6 +480,7 @@ object srvPresupuestosCliente: TsrvPresupuestosCliente
|
||||
item
|
||||
Name = 'ID_TIPO_IVA'
|
||||
DataType = datInteger
|
||||
DictionaryEntry = 'PresupuestosCliente_ID_TIPO_IVA'
|
||||
end
|
||||
item
|
||||
Name = 'IVA'
|
||||
@ -480,14 +495,17 @@ object srvPresupuestosCliente: TsrvPresupuestosCliente
|
||||
item
|
||||
Name = 'RE'
|
||||
DataType = datFloat
|
||||
DictionaryEntry = 'PresupuestosCliente_RE'
|
||||
end
|
||||
item
|
||||
Name = 'IMPORTE_RE'
|
||||
DataType = datCurrency
|
||||
DictionaryEntry = 'PresupuestosCliente_IMPORTE_RE'
|
||||
end
|
||||
item
|
||||
Name = 'RECARGO_EQUIVALENCIA'
|
||||
DataType = datSmallInt
|
||||
DictionaryEntry = 'PresupuestosCliente_RECARGO_EQUIVALENCIA'
|
||||
end
|
||||
item
|
||||
Name = 'IMPORTE_TOTAL'
|
||||
@ -502,33 +520,40 @@ object srvPresupuestosCliente: TsrvPresupuestosCliente
|
||||
item
|
||||
Name = 'ID_TIENDA'
|
||||
DataType = datInteger
|
||||
DictionaryEntry = 'PresupuestosCliente_ID_TIENDA'
|
||||
end
|
||||
item
|
||||
Name = 'TIENDA'
|
||||
DataType = datString
|
||||
Size = 255
|
||||
DictionaryEntry = 'PresupuestosCliente_TIENDA'
|
||||
end
|
||||
item
|
||||
Name = 'ID_VENDEDOR'
|
||||
DataType = datInteger
|
||||
DictionaryEntry = 'PresupuestosCliente_ID_VENDEDOR'
|
||||
end
|
||||
item
|
||||
Name = 'VENDEDOR'
|
||||
DataType = datString
|
||||
Size = 255
|
||||
DictionaryEntry = 'PresupuestosCliente_VENDEDOR'
|
||||
end
|
||||
item
|
||||
Name = 'ID_CONTRATO'
|
||||
DataType = datInteger
|
||||
DictionaryEntry = 'PresupuestosCliente_ID_CONTRATO'
|
||||
end
|
||||
item
|
||||
Name = 'REF_CONTRATO'
|
||||
DataType = datString
|
||||
Size = 255
|
||||
DictionaryEntry = 'PresupuestosCliente_REF_CONTRATO'
|
||||
end
|
||||
item
|
||||
Name = 'NO_VALORADO'
|
||||
DataType = datSmallInt
|
||||
DictionaryEntry = 'PresupuestosCliente_NO_VALORADO'
|
||||
end
|
||||
item
|
||||
Name = 'TIPO_PRESUPUESTO'
|
||||
@ -850,6 +875,11 @@ object srvPresupuestosCliente: TsrvPresupuestosCliente
|
||||
Commands = <
|
||||
item
|
||||
Params = <
|
||||
item
|
||||
Name = 'CALIDADES'
|
||||
DataType = datMemo
|
||||
Value = ''
|
||||
end
|
||||
item
|
||||
Name = 'TIPO_PRESUPUESTO'
|
||||
DataType = datString
|
||||
@ -1035,16 +1065,16 @@ object srvPresupuestosCliente: TsrvPresupuestosCliente
|
||||
'TO, IMPORTE_DESCUENTO, BASE_IMPONIBLE, ID_TIPO_IVA, IVA, IMPORTE' +
|
||||
'_IVA,'#10' RE, IMPORTE_RE, RECARGO_EQUIVALENCIA, IMPORTE_TOTAL, ' +
|
||||
'ID_FORMA_PAGO, ID_TIENDA, ID_VENDEDOR,'#10' ID_CONTRATO, NO_VALO' +
|
||||
'RADO, TIPO_PRESUPUESTO)'#10' VALUES'#10' (:ID,'#10' :FECHA_PRESUPUES' +
|
||||
'TO, :FECHA_VIGENCIA, :FECHA_DECISION, :REFERENCIA,'#10' :SITUACI' +
|
||||
'ON, :ID_CLIENTE, :ID_DIRECCION, :PERSONA_CONTACTO,'#10' :FORMA_P' +
|
||||
'AGO, :PLAZO_ENTREGA, :OBSERVACIONES, :INCIDENCIAS,'#10' :INCIDEN' +
|
||||
'CIAS_ACTIVAS, CURRENT_TIMESTAMP, :USUARIO, :IMPORTE_NETO, :IMPOR' +
|
||||
'TE_PORTE,'#10' :DESCUENTO, :IMPORTE_DESCUENTO, :BASE_IMPONIBLE, ' +
|
||||
':ID_TIPO_IVA, :IVA, :IMPORTE_IVA,'#10' :RE, :IMPORTE_RE, :RECARG' +
|
||||
'O_EQUIVALENCIA, :IMPORTE_TOTAL, :ID_FORMA_PAGO, :ID_TIENDA, :ID_' +
|
||||
'VENDEDOR,'#10' :ID_CONTRATO, :NO_VALORADO, :TIPO_PRESUPUESTO)'#10' ' +
|
||||
' '#10#10#10#10#10
|
||||
'RADO, TIPO_PRESUPUESTO, CALIDADES)'#10' VALUES'#10' (:ID,'#10' :FECH' +
|
||||
'A_PRESUPUESTO, :FECHA_VIGENCIA, :FECHA_DECISION, :REFERENCIA,'#10' ' +
|
||||
' :SITUACION, :ID_CLIENTE, :ID_DIRECCION, :PERSONA_CONTACTO,'#10' ' +
|
||||
' :FORMA_PAGO, :PLAZO_ENTREGA, :OBSERVACIONES, :INCIDENCIAS,'#10' ' +
|
||||
' :INCIDENCIAS_ACTIVAS, CURRENT_TIMESTAMP, :USUARIO, :IMPORTE_N' +
|
||||
'ETO, :IMPORTE_PORTE,'#10' :DESCUENTO, :IMPORTE_DESCUENTO, :BASE_' +
|
||||
'IMPONIBLE, :ID_TIPO_IVA, :IVA, :IMPORTE_IVA,'#10' :RE, :IMPORTE_' +
|
||||
'RE, :RECARGO_EQUIVALENCIA, :IMPORTE_TOTAL, :ID_FORMA_PAGO, :ID_T' +
|
||||
'IENDA, :ID_VENDEDOR,'#10' :ID_CONTRATO, :NO_VALORADO, :TIPO_PRES' +
|
||||
'UPUESTO, :CALIDADES)'#10' '#10#10#10#10#10
|
||||
StatementType = stSQL
|
||||
ColumnMappings = <>
|
||||
end>
|
||||
@ -1072,6 +1102,11 @@ object srvPresupuestosCliente: TsrvPresupuestosCliente
|
||||
end
|
||||
item
|
||||
Params = <
|
||||
item
|
||||
Name = 'CALIDADES'
|
||||
DataType = datMemo
|
||||
Value = ''
|
||||
end
|
||||
item
|
||||
Name = 'TIPO_PRESUPUESTO'
|
||||
DataType = datString
|
||||
@ -1270,8 +1305,8 @@ object srvPresupuestosCliente: TsrvPresupuestosCliente
|
||||
'TE_TOTAL = :IMPORTE_TOTAL, '#10' ID_FORMA_PAGO = :ID_FORMA_PAGO,'#10 +
|
||||
' ID_TIENDA = :ID_TIENDA,'#10' ID_VENDEDOR = :ID_VENDEDOR,'#10' ' +
|
||||
'ID_CONTRATO = :ID_CONTRATO,'#10' NO_VALORADO = :NO_VALORADO,'#10' ' +
|
||||
'TIPO_PRESUPUESTO = :TIPO_PRESUPUESTO'#10' WHERE'#10' (ID = :OLD_ID)'#10 +
|
||||
#10
|
||||
'TIPO_PRESUPUESTO = :TIPO_PRESUPUESTO,'#10' CALIDADES = :CALIDADES' +
|
||||
#10' WHERE'#10' (ID = :OLD_ID)'#10#10
|
||||
StatementType = stSQL
|
||||
ColumnMappings = <>
|
||||
end>
|
||||
@ -2015,6 +2050,75 @@ object srvPresupuestosCliente: TsrvPresupuestosCliente
|
||||
Name = 'PresupuestosCliente_Detalles_VISIBLE2'
|
||||
DataType = datInteger
|
||||
DisplayLabel = #191'Visible?'
|
||||
end
|
||||
item
|
||||
Name = 'PresupuestosCliente_CALIDADES'
|
||||
DataType = datMemo
|
||||
BlobType = dabtBlob
|
||||
DisplayLabel = 'Calidades'
|
||||
end
|
||||
item
|
||||
Name = 'PresupuestosCliente_FECHA_VIGENCIA'
|
||||
DataType = datDateTime
|
||||
end
|
||||
item
|
||||
Name = 'PresupuestosCliente_ID_DIRECCION'
|
||||
DataType = datInteger
|
||||
end
|
||||
item
|
||||
Name = 'PresupuestosCliente_FORMA_PAGO'
|
||||
DataType = datMemo
|
||||
end
|
||||
item
|
||||
Name = 'PresupuestosCliente_PLAZO_ENTREGA'
|
||||
DataType = datMemo
|
||||
end
|
||||
item
|
||||
Name = 'PresupuestosCliente_ID_TIPO_IVA'
|
||||
DataType = datInteger
|
||||
end
|
||||
item
|
||||
Name = 'PresupuestosCliente_RE'
|
||||
DataType = datFloat
|
||||
end
|
||||
item
|
||||
Name = 'PresupuestosCliente_IMPORTE_RE'
|
||||
DataType = datCurrency
|
||||
end
|
||||
item
|
||||
Name = 'PresupuestosCliente_RECARGO_EQUIVALENCIA'
|
||||
DataType = datSmallInt
|
||||
end
|
||||
item
|
||||
Name = 'PresupuestosCliente_ID_TIENDA'
|
||||
DataType = datInteger
|
||||
end
|
||||
item
|
||||
Name = 'PresupuestosCliente_TIENDA'
|
||||
DataType = datString
|
||||
Size = 255
|
||||
end
|
||||
item
|
||||
Name = 'PresupuestosCliente_ID_VENDEDOR'
|
||||
DataType = datInteger
|
||||
end
|
||||
item
|
||||
Name = 'PresupuestosCliente_VENDEDOR'
|
||||
DataType = datString
|
||||
Size = 255
|
||||
end
|
||||
item
|
||||
Name = 'PresupuestosCliente_ID_CONTRATO'
|
||||
DataType = datInteger
|
||||
end
|
||||
item
|
||||
Name = 'PresupuestosCliente_REF_CONTRATO'
|
||||
DataType = datString
|
||||
Size = 255
|
||||
end
|
||||
item
|
||||
Name = 'PresupuestosCliente_NO_VALORADO'
|
||||
DataType = datSmallInt
|
||||
end>
|
||||
Left = 48
|
||||
Top = 152
|
||||
|
||||
@ -2,11 +2,11 @@ inherited fEditorPresupuestoCliente: TfEditorPresupuestoCliente
|
||||
Left = 332
|
||||
Top = 147
|
||||
Caption = 'Nuevo presupuesto de cliente'
|
||||
ClientHeight = 676
|
||||
ClientHeight = 801
|
||||
ClientWidth = 848
|
||||
OnClose = CustomEditorClose
|
||||
ExplicitWidth = 856
|
||||
ExplicitHeight = 710
|
||||
ExplicitHeight = 835
|
||||
PixelsPerInch = 96
|
||||
TextHeight = 13
|
||||
inherited JvNavPanelHeader: TJvNavPanelHeader
|
||||
@ -165,7 +165,7 @@ inherited fEditorPresupuestoCliente: TfEditorPresupuestoCliente
|
||||
end
|
||||
end
|
||||
inherited StatusBar: TJvStatusBar
|
||||
Top = 657
|
||||
Top = 782
|
||||
Width = 848
|
||||
Panels = <
|
||||
item
|
||||
@ -176,8 +176,8 @@ inherited fEditorPresupuestoCliente: TfEditorPresupuestoCliente
|
||||
end
|
||||
inherited pgPaginas: TPageControl
|
||||
Width = 842
|
||||
Height = 317
|
||||
ActivePage = pagContenido
|
||||
Height = 442
|
||||
ActivePage = pagCalidades
|
||||
TabOrder = 1
|
||||
OnChanging = pgPaginasChanging
|
||||
ExplicitWidth = 842
|
||||
@ -191,11 +191,12 @@ inherited fEditorPresupuestoCliente: TfEditorPresupuestoCliente
|
||||
object pagContenido: TTabSheet
|
||||
Caption = 'Contenido'
|
||||
ImageIndex = 1
|
||||
ExplicitHeight = 289
|
||||
inline frViewDetallesPresupuestoCliente1: TfrViewDetallesPresupuestoCliente
|
||||
Left = 0
|
||||
Top = 0
|
||||
Width = 834
|
||||
Height = 289
|
||||
Height = 414
|
||||
Align = alClient
|
||||
BiDiMode = bdLeftToRight
|
||||
Font.Charset = DEFAULT_CHARSET
|
||||
@ -213,30 +214,21 @@ inherited fEditorPresupuestoCliente: TfEditorPresupuestoCliente
|
||||
Width = 834
|
||||
Height = 24
|
||||
ExplicitWidth = 834
|
||||
inherited ToolButton14: TToolButton [1]
|
||||
Left = 109
|
||||
Top = 0
|
||||
Enabled = True
|
||||
ExplicitLeft = 109
|
||||
ExplicitTop = 0
|
||||
end
|
||||
inherited ToolButton2: TToolButton [2]
|
||||
Left = 143
|
||||
end
|
||||
inherited FontName: TJvFontComboBox [3]
|
||||
Left = 257
|
||||
Top = 0
|
||||
ExplicitLeft = 257
|
||||
ExplicitTop = 0
|
||||
end
|
||||
inherited ToolButton3: TToolButton [4]
|
||||
Left = 402
|
||||
ExplicitLeft = 402
|
||||
end
|
||||
inherited ToolButton4: TToolButton [5]
|
||||
Left = 457
|
||||
ExplicitHeight = 24
|
||||
inherited ToolButton4: TToolButton
|
||||
Wrap = False
|
||||
ExplicitLeft = 457
|
||||
end
|
||||
inherited ToolButton14: TToolButton
|
||||
Left = 334
|
||||
Top = 0
|
||||
ExplicitLeft = 334
|
||||
ExplicitTop = 0
|
||||
end
|
||||
inherited FontName: TJvFontComboBox
|
||||
Left = 368
|
||||
Top = 0
|
||||
ExplicitLeft = 368
|
||||
ExplicitTop = 0
|
||||
end
|
||||
inherited FontSize: TEdit
|
||||
Left = 513
|
||||
@ -247,77 +239,78 @@ inherited fEditorPresupuestoCliente: TfEditorPresupuestoCliente
|
||||
ExplicitWidth = 58
|
||||
end
|
||||
inherited UpDown1: TUpDown
|
||||
Left = 571
|
||||
Left = 587
|
||||
Top = 0
|
||||
ExplicitLeft = 571
|
||||
ExplicitLeft = 587
|
||||
ExplicitTop = 0
|
||||
end
|
||||
inherited ToolButton13: TToolButton
|
||||
Left = 588
|
||||
Left = 604
|
||||
Top = 0
|
||||
ExplicitLeft = 588
|
||||
ExplicitLeft = 604
|
||||
ExplicitTop = 0
|
||||
end
|
||||
inherited ToolButton6: TToolButton
|
||||
Left = 596
|
||||
Left = 612
|
||||
Top = 0
|
||||
ExplicitLeft = 596
|
||||
ExplicitLeft = 612
|
||||
ExplicitTop = 0
|
||||
end
|
||||
inherited ToolButton7: TToolButton
|
||||
Left = 630
|
||||
Left = 646
|
||||
Top = 0
|
||||
ExplicitLeft = 630
|
||||
ExplicitLeft = 646
|
||||
ExplicitTop = 0
|
||||
end
|
||||
inherited ToolButton8: TToolButton
|
||||
Left = 664
|
||||
Left = 680
|
||||
Top = 0
|
||||
ExplicitLeft = 664
|
||||
ExplicitLeft = 680
|
||||
ExplicitTop = 0
|
||||
end
|
||||
inherited ToolButton12: TToolButton
|
||||
Left = 698
|
||||
Left = 714
|
||||
Top = 0
|
||||
ExplicitLeft = 698
|
||||
ExplicitLeft = 714
|
||||
ExplicitTop = 0
|
||||
end
|
||||
inherited ToolButton9: TToolButton
|
||||
Left = 706
|
||||
Left = 722
|
||||
Top = 0
|
||||
ExplicitLeft = 706
|
||||
ExplicitLeft = 722
|
||||
ExplicitTop = 0
|
||||
end
|
||||
inherited ToolButton10: TToolButton
|
||||
Left = 740
|
||||
Left = 756
|
||||
Top = 0
|
||||
ExplicitLeft = 740
|
||||
ExplicitLeft = 756
|
||||
ExplicitTop = 0
|
||||
end
|
||||
inherited ToolButton11: TToolButton
|
||||
Left = 774
|
||||
Left = 790
|
||||
Top = 0
|
||||
ExplicitLeft = 774
|
||||
ExplicitLeft = 790
|
||||
ExplicitTop = 0
|
||||
end
|
||||
end
|
||||
inherited cxGrid: TcxGrid
|
||||
Top = 50
|
||||
Width = 834
|
||||
Height = 239
|
||||
Height = 364
|
||||
ExplicitTop = 50
|
||||
ExplicitWidth = 834
|
||||
ExplicitHeight = 239
|
||||
end
|
||||
inherited TBXDock1: TTBXDock
|
||||
Top = 24
|
||||
Width = 834
|
||||
ExplicitTop = 24
|
||||
ExplicitWidth = 834
|
||||
inherited TBXToolbar1: TTBXToolbar
|
||||
ExplicitWidth = 663
|
||||
end
|
||||
end
|
||||
inherited cxLookupComboBox1: TcxLookupComboBox
|
||||
Properties.OnCloseUp = nil
|
||||
Style.IsFontAssigned = True
|
||||
end
|
||||
inherited cxRichEdit1: TcxRichEdit
|
||||
@ -328,14 +321,64 @@ inherited fEditorPresupuestoCliente: TfEditorPresupuestoCliente
|
||||
end
|
||||
end
|
||||
end
|
||||
object pagCalidades: TTabSheet
|
||||
Caption = 'Calidades'
|
||||
ImageIndex = 4
|
||||
ExplicitHeight = 289
|
||||
object dxLayoutControl1: TdxLayoutControl
|
||||
Left = 0
|
||||
Top = 0
|
||||
Width = 834
|
||||
Height = 414
|
||||
Align = alClient
|
||||
TabOrder = 0
|
||||
TabStop = False
|
||||
AutoContentSizes = [acsWidth, acsHeight]
|
||||
ExplicitHeight = 289
|
||||
object memCalidades: TcxDBMemo
|
||||
Left = 10
|
||||
Top = 10
|
||||
Align = alClient
|
||||
DataBinding.DataField = 'CALIDADES'
|
||||
DataBinding.DataSource = dsDataTable
|
||||
Properties.ScrollBars = ssVertical
|
||||
Style.BorderColor = clWindowFrame
|
||||
Style.BorderStyle = ebs3D
|
||||
Style.HotTrack = False
|
||||
Style.LookAndFeel.Kind = lfStandard
|
||||
Style.LookAndFeel.NativeStyle = True
|
||||
StyleDisabled.LookAndFeel.Kind = lfStandard
|
||||
StyleDisabled.LookAndFeel.NativeStyle = True
|
||||
StyleFocused.LookAndFeel.Kind = lfStandard
|
||||
StyleFocused.LookAndFeel.NativeStyle = True
|
||||
StyleHot.LookAndFeel.Kind = lfStandard
|
||||
StyleHot.LookAndFeel.NativeStyle = True
|
||||
TabOrder = 0
|
||||
Height = 247
|
||||
Width = 799
|
||||
end
|
||||
object dxLayoutGroup1: TdxLayoutGroup
|
||||
ShowCaption = False
|
||||
Hidden = True
|
||||
ShowBorder = False
|
||||
object dxLayoutItem1: TdxLayoutItem
|
||||
AutoAligns = [aaHorizontal]
|
||||
AlignVert = avClient
|
||||
Control = memCalidades
|
||||
ControlOptions.ShowBorder = False
|
||||
end
|
||||
end
|
||||
end
|
||||
end
|
||||
object pagInicidencias: TTabSheet
|
||||
Caption = 'Incidencias'
|
||||
ImageIndex = 2
|
||||
ExplicitHeight = 289
|
||||
inline frViewIncidenciasCli: TfrViewIncidencias
|
||||
Left = 0
|
||||
Top = 0
|
||||
Width = 834
|
||||
Height = 289
|
||||
Height = 414
|
||||
Align = alClient
|
||||
Font.Charset = DEFAULT_CHARSET
|
||||
Font.Color = clWindowText
|
||||
@ -356,13 +399,13 @@ inherited fEditorPresupuestoCliente: TfEditorPresupuestoCliente
|
||||
end
|
||||
inherited GroupBox1: TGroupBox
|
||||
Width = 834
|
||||
Height = 261
|
||||
Height = 386
|
||||
ExplicitWidth = 834
|
||||
ExplicitHeight = 261
|
||||
inherited eIncidencias: TcxDBMemo
|
||||
ExplicitWidth = 830
|
||||
ExplicitHeight = 244
|
||||
Height = 244
|
||||
Height = 369
|
||||
Width = 830
|
||||
end
|
||||
end
|
||||
@ -371,11 +414,12 @@ inherited fEditorPresupuestoCliente: TfEditorPresupuestoCliente
|
||||
object pagDocumentos: TTabSheet
|
||||
Caption = 'Documentos'
|
||||
ImageIndex = 5
|
||||
ExplicitHeight = 289
|
||||
inline frViewDocumentosPresupuestoCliente1: TfrViewDocumentosPresupuestoCliente
|
||||
Left = 0
|
||||
Top = 0
|
||||
Width = 834
|
||||
Height = 289
|
||||
Height = 414
|
||||
Align = alClient
|
||||
Font.Charset = DEFAULT_CHARSET
|
||||
Font.Color = clWindowText
|
||||
@ -393,7 +437,7 @@ inherited fEditorPresupuestoCliente: TfEditorPresupuestoCliente
|
||||
end
|
||||
inherited ListView1: TListView
|
||||
Width = 834
|
||||
Height = 266
|
||||
Height = 391
|
||||
ExplicitWidth = 834
|
||||
ExplicitHeight = 266
|
||||
end
|
||||
@ -414,7 +458,7 @@ inherited fEditorPresupuestoCliente: TfEditorPresupuestoCliente
|
||||
end
|
||||
inline frViewTotales1: TfrViewTotalesPresupuesto [5]
|
||||
Left = 0
|
||||
Top = 429
|
||||
Top = 554
|
||||
Width = 848
|
||||
Height = 228
|
||||
Align = alBottom
|
||||
@ -434,16 +478,18 @@ inherited fEditorPresupuestoCliente: TfEditorPresupuestoCliente
|
||||
LookAndFeel = dxLayoutOfficeLookAndFeel1
|
||||
ExplicitWidth = 848
|
||||
inherited Bevel3: TBevel
|
||||
Left = 310
|
||||
Left = 352
|
||||
Top = 57
|
||||
ExplicitLeft = 310
|
||||
Height = 122
|
||||
ExplicitLeft = 352
|
||||
ExplicitTop = 57
|
||||
ExplicitHeight = 122
|
||||
end
|
||||
inherited Bevel4: TBevel
|
||||
Left = 422
|
||||
Left = 464
|
||||
Top = 88
|
||||
Width = 342
|
||||
ExplicitLeft = 422
|
||||
ExplicitLeft = 464
|
||||
ExplicitTop = 88
|
||||
ExplicitWidth = 342
|
||||
end
|
||||
@ -451,20 +497,26 @@ inherited fEditorPresupuestoCliente: TfEditorPresupuestoCliente
|
||||
Top = 84
|
||||
Style.IsFontAssigned = True
|
||||
ExplicitTop = 84
|
||||
ExplicitWidth = 93
|
||||
Width = 93
|
||||
end
|
||||
inherited ImporteIVA: TcxDBCurrencyEdit
|
||||
Left = 493
|
||||
Left = 535
|
||||
Top = 108
|
||||
Style.IsFontAssigned = True
|
||||
ExplicitLeft = 493
|
||||
ExplicitLeft = 535
|
||||
ExplicitTop = 108
|
||||
ExplicitWidth = 137
|
||||
Width = 137
|
||||
end
|
||||
inherited ImporteTotal: TcxDBCurrencyEdit
|
||||
Left = 423
|
||||
Left = 465
|
||||
Top = 162
|
||||
Style.IsFontAssigned = True
|
||||
ExplicitLeft = 423
|
||||
ExplicitLeft = 465
|
||||
ExplicitTop = 162
|
||||
ExplicitWidth = 137
|
||||
Width = 137
|
||||
end
|
||||
inherited edtDescuento: TcxDBSpinEdit
|
||||
Top = 84
|
||||
@ -472,57 +524,69 @@ inherited fEditorPresupuestoCliente: TfEditorPresupuestoCliente
|
||||
ExplicitTop = 84
|
||||
end
|
||||
inherited edtIVA: TcxDBSpinEdit
|
||||
Left = 422
|
||||
Left = 464
|
||||
Top = 108
|
||||
Style.IsFontAssigned = True
|
||||
ExplicitLeft = 422
|
||||
ExplicitLeft = 464
|
||||
ExplicitTop = 108
|
||||
end
|
||||
inherited ImporteBase: TcxDBCurrencyEdit
|
||||
Left = 422
|
||||
Left = 464
|
||||
Top = 57
|
||||
Style.IsFontAssigned = True
|
||||
ExplicitLeft = 422
|
||||
ExplicitLeft = 464
|
||||
ExplicitTop = 57
|
||||
ExplicitWidth = 92
|
||||
Width = 92
|
||||
end
|
||||
inherited edtRE: TcxDBSpinEdit
|
||||
Left = 422
|
||||
Left = 464
|
||||
Top = 135
|
||||
Style.IsFontAssigned = True
|
||||
ExplicitLeft = 422
|
||||
ExplicitLeft = 464
|
||||
ExplicitTop = 135
|
||||
end
|
||||
inherited ImporteRE: TcxDBCurrencyEdit
|
||||
Left = 493
|
||||
Left = 535
|
||||
Top = 135
|
||||
Style.IsFontAssigned = True
|
||||
ExplicitLeft = 493
|
||||
ExplicitLeft = 535
|
||||
ExplicitTop = 135
|
||||
ExplicitWidth = 56
|
||||
Width = 56
|
||||
end
|
||||
inherited eImporteNeto: TcxDBCurrencyEdit
|
||||
Top = 57
|
||||
Style.IsFontAssigned = True
|
||||
ExplicitTop = 57
|
||||
ExplicitWidth = 147
|
||||
Width = 147
|
||||
end
|
||||
inherited ePorte: TcxDBCurrencyEdit
|
||||
Top = 111
|
||||
Style.IsFontAssigned = True
|
||||
ExplicitTop = 111
|
||||
ExplicitWidth = 147
|
||||
Width = 147
|
||||
end
|
||||
inherited eIVA: TcxDBLookupComboBox
|
||||
Top = 138
|
||||
ExplicitTop = 138
|
||||
ExplicitWidth = 81
|
||||
Width = 81
|
||||
end
|
||||
inherited bTiposIVA: TButton
|
||||
Left = 162
|
||||
Left = 204
|
||||
Top = 138
|
||||
OnClick = frViewTotales1bTiposIVAClick
|
||||
ExplicitLeft = 162
|
||||
ExplicitLeft = 204
|
||||
ExplicitTop = 138
|
||||
end
|
||||
inherited cbRecargoEquivalencia: TcxDBCheckBox
|
||||
Top = 165
|
||||
ExplicitTop = 165
|
||||
ExplicitWidth = 219
|
||||
Width = 219
|
||||
end
|
||||
inherited cbValorado: TcxDBCheckBox
|
||||
Left = 11
|
||||
|
||||
@ -20,7 +20,7 @@ uses
|
||||
uViewDocumentos,
|
||||
uViewDocumentosPresupuestoCliente, uViewDatosYSeleccionClientePresupuesto,
|
||||
cxLabel, uBizTiposIVA, uTiposIVAController, uViewTotalesPresupuesto, DBCtrls,
|
||||
cxGraphics, cxMaskEdit, cxDropDownEdit;
|
||||
cxGraphics, cxMaskEdit, cxDropDownEdit, dxLayoutControl;
|
||||
|
||||
type
|
||||
TfEditorPresupuestoCliente = class(TfEditorDBItem, IEditorPresupuestoCliente)
|
||||
@ -39,6 +39,11 @@ type
|
||||
frViewDocumentosPresupuestoCliente1: TfrViewDocumentosPresupuestoCliente;
|
||||
frViewDetallesPresupuestoCliente1: TfrViewDetallesPresupuestoCliente;
|
||||
frViewTotales1: TfrViewTotalesPresupuesto;
|
||||
pagCalidades: TTabSheet;
|
||||
dxLayoutControl1: TdxLayoutControl;
|
||||
memCalidades: TcxDBMemo;
|
||||
dxLayoutGroup1: TdxLayoutGroup;
|
||||
dxLayoutItem1: TdxLayoutItem;
|
||||
|
||||
procedure FormShow(Sender: TObject);
|
||||
procedure CustomEditorClose(Sender: TObject; var Action: TCloseAction);
|
||||
|
||||
@ -1,33 +1,25 @@
|
||||
inherited frViewConfiguracionDocArmario: TfrViewConfiguracionDocArmario
|
||||
Width = 566
|
||||
Height = 494
|
||||
inherited Panel1: TPanel
|
||||
Width = 556
|
||||
TabOrder = 1
|
||||
inherited Label3: TLabel
|
||||
Width = 544
|
||||
Width = 429
|
||||
Visible = False
|
||||
end
|
||||
end
|
||||
inherited JvGradientHeaderPanel1: TJvGradientHeaderPanel
|
||||
Width = 566
|
||||
LabelCaption = 'Configuraci'#243'n de los documentos de armario'
|
||||
TabOrder = 0
|
||||
end
|
||||
object Paginas: TPageControl
|
||||
Left = 0
|
||||
Top = 68
|
||||
Width = 566
|
||||
Height = 426
|
||||
Width = 451
|
||||
Height = 236
|
||||
ActivePage = pagNotas
|
||||
Align = alClient
|
||||
TabOrder = 2
|
||||
ExplicitWidth = 451
|
||||
ExplicitHeight = 236
|
||||
object pagNotas: TTabSheet
|
||||
Caption = 'Notas'
|
||||
ExplicitWidth = 443
|
||||
ExplicitHeight = 208
|
||||
object Label1: TLabel
|
||||
Left = 11
|
||||
Top = 22
|
||||
@ -87,13 +79,11 @@ inherited frViewConfiguracionDocArmario: TfrViewConfiguracionDocArmario
|
||||
object pagCapituloFrente: TTabSheet
|
||||
Caption = 'Cap'#237'tulo frente'
|
||||
ImageIndex = 1
|
||||
ExplicitWidth = 443
|
||||
ExplicitHeight = 208
|
||||
inline frViewConfiguracionCapituloFrente: TfrViewConfiguracionCapitulo
|
||||
Left = 0
|
||||
Top = 0
|
||||
Width = 558
|
||||
Height = 398
|
||||
Width = 443
|
||||
Height = 208
|
||||
Align = alClient
|
||||
BiDiMode = bdLeftToRight
|
||||
Font.Charset = DEFAULT_CHARSET
|
||||
@ -108,58 +98,101 @@ inherited frViewConfiguracionDocArmario: TfrViewConfiguracionDocArmario
|
||||
ExplicitWidth = 443
|
||||
ExplicitHeight = 208
|
||||
inherited ToolBar1: TToolBar
|
||||
Width = 558
|
||||
Width = 443
|
||||
Height = 73
|
||||
ExplicitWidth = 443
|
||||
ExplicitHeight = 73
|
||||
inherited ToolButton3: TToolButton
|
||||
Wrap = True
|
||||
end
|
||||
inherited ToolButton4: TToolButton
|
||||
Left = 0
|
||||
Top = 22
|
||||
Wrap = False
|
||||
ExplicitLeft = 0
|
||||
ExplicitTop = 22
|
||||
end
|
||||
inherited ToolButton14: TToolButton
|
||||
Left = 56
|
||||
ExplicitLeft = 56
|
||||
end
|
||||
inherited FontName: TJvFontComboBox
|
||||
Left = 90
|
||||
ExplicitLeft = 90
|
||||
end
|
||||
inherited FontSize: TEdit
|
||||
Width = 58
|
||||
ExplicitWidth = 58
|
||||
Left = 235
|
||||
Width = 74
|
||||
ExplicitLeft = 235
|
||||
ExplicitWidth = 74
|
||||
end
|
||||
inherited UpDown1: TUpDown
|
||||
Left = 237
|
||||
ExplicitLeft = 237
|
||||
Left = 309
|
||||
ExplicitLeft = 309
|
||||
end
|
||||
inherited ToolButton13: TToolButton
|
||||
Left = 254
|
||||
ExplicitLeft = 254
|
||||
Left = 0
|
||||
Wrap = True
|
||||
ExplicitLeft = 0
|
||||
ExplicitHeight = 27
|
||||
end
|
||||
inherited ToolButton6: TToolButton
|
||||
Left = 262
|
||||
ExplicitLeft = 262
|
||||
Left = 0
|
||||
Top = 49
|
||||
ExplicitLeft = 0
|
||||
ExplicitTop = 49
|
||||
end
|
||||
inherited ToolButton7: TToolButton
|
||||
Left = 296
|
||||
ExplicitLeft = 296
|
||||
Left = 34
|
||||
Top = 49
|
||||
ExplicitLeft = 34
|
||||
ExplicitTop = 49
|
||||
end
|
||||
inherited ToolButton8: TToolButton
|
||||
Left = 330
|
||||
ExplicitLeft = 330
|
||||
Left = 68
|
||||
Top = 49
|
||||
ExplicitLeft = 68
|
||||
ExplicitTop = 49
|
||||
end
|
||||
inherited ToolButton12: TToolButton
|
||||
Left = 364
|
||||
ExplicitLeft = 364
|
||||
Left = 102
|
||||
Top = 49
|
||||
ExplicitLeft = 102
|
||||
ExplicitTop = 49
|
||||
end
|
||||
inherited ToolButton9: TToolButton
|
||||
Left = 372
|
||||
ExplicitLeft = 372
|
||||
Left = 110
|
||||
Top = 49
|
||||
ExplicitLeft = 110
|
||||
ExplicitTop = 49
|
||||
end
|
||||
inherited ToolButton10: TToolButton
|
||||
Left = 406
|
||||
ExplicitLeft = 406
|
||||
Left = 144
|
||||
Top = 49
|
||||
ExplicitLeft = 144
|
||||
ExplicitTop = 49
|
||||
end
|
||||
inherited ToolButton11: TToolButton
|
||||
Left = 440
|
||||
ExplicitLeft = 440
|
||||
Left = 178
|
||||
Top = 49
|
||||
ExplicitLeft = 178
|
||||
ExplicitTop = 49
|
||||
end
|
||||
end
|
||||
inherited cxGrid: TcxGrid
|
||||
Width = 558
|
||||
Height = 326
|
||||
Top = 99
|
||||
Width = 443
|
||||
Height = 109
|
||||
ExplicitWidth = 443
|
||||
ExplicitHeight = 136
|
||||
end
|
||||
inherited TBXDock1: TTBXDock
|
||||
Width = 558
|
||||
Top = 73
|
||||
Width = 443
|
||||
ExplicitWidth = 443
|
||||
inherited TBXToolbar1: TTBXToolbar
|
||||
ExplicitWidth = 443
|
||||
end
|
||||
end
|
||||
inherited cxLookupComboBox: TcxLookupComboBox
|
||||
Style.IsFontAssigned = True
|
||||
@ -169,13 +202,11 @@ inherited frViewConfiguracionDocArmario: TfrViewConfiguracionDocArmario
|
||||
object pagCapituloInterior: TTabSheet
|
||||
Caption = 'Cap'#237'tulo interior'
|
||||
ImageIndex = 2
|
||||
ExplicitWidth = 443
|
||||
ExplicitHeight = 208
|
||||
inline frViewConfiguracionCapituloInterior: TfrViewConfiguracionCapitulo
|
||||
Left = 0
|
||||
Top = 0
|
||||
Width = 558
|
||||
Height = 398
|
||||
Width = 443
|
||||
Height = 208
|
||||
Align = alClient
|
||||
BiDiMode = bdLeftToRight
|
||||
Font.Charset = DEFAULT_CHARSET
|
||||
@ -190,69 +221,105 @@ inherited frViewConfiguracionDocArmario: TfrViewConfiguracionDocArmario
|
||||
ExplicitWidth = 443
|
||||
ExplicitHeight = 208
|
||||
inherited ToolBar1: TToolBar
|
||||
Width = 558
|
||||
Width = 443
|
||||
ExplicitWidth = 443
|
||||
inherited ToolButton4: TToolButton
|
||||
Wrap = False
|
||||
end
|
||||
inherited ToolButton14: TToolButton
|
||||
Left = 334
|
||||
Top = 0
|
||||
Wrap = True
|
||||
ExplicitLeft = 334
|
||||
ExplicitTop = 0
|
||||
end
|
||||
inherited FontName: TJvFontComboBox
|
||||
Left = 0
|
||||
ExplicitLeft = 0
|
||||
end
|
||||
inherited FontSize: TEdit
|
||||
Left = 145
|
||||
Width = 58
|
||||
ExplicitLeft = 145
|
||||
ExplicitWidth = 58
|
||||
end
|
||||
inherited UpDown1: TUpDown
|
||||
Left = 237
|
||||
ExplicitLeft = 237
|
||||
Left = 203
|
||||
ExplicitLeft = 203
|
||||
end
|
||||
inherited ToolButton13: TToolButton
|
||||
Left = 254
|
||||
ExplicitLeft = 254
|
||||
Left = 220
|
||||
ExplicitLeft = 220
|
||||
end
|
||||
inherited ToolButton6: TToolButton
|
||||
Left = 228
|
||||
ExplicitLeft = 228
|
||||
end
|
||||
inherited ToolButton7: TToolButton
|
||||
Left = 262
|
||||
ExplicitLeft = 262
|
||||
end
|
||||
inherited ToolButton7: TToolButton
|
||||
inherited ToolButton8: TToolButton
|
||||
Left = 296
|
||||
ExplicitLeft = 296
|
||||
end
|
||||
inherited ToolButton8: TToolButton
|
||||
inherited ToolButton12: TToolButton
|
||||
Left = 330
|
||||
ExplicitLeft = 330
|
||||
end
|
||||
inherited ToolButton12: TToolButton
|
||||
Left = 364
|
||||
ExplicitLeft = 364
|
||||
end
|
||||
inherited ToolButton9: TToolButton
|
||||
Left = 338
|
||||
ExplicitLeft = 338
|
||||
end
|
||||
inherited ToolButton10: TToolButton
|
||||
Left = 372
|
||||
ExplicitLeft = 372
|
||||
end
|
||||
inherited ToolButton10: TToolButton
|
||||
inherited ToolButton11: TToolButton
|
||||
Left = 406
|
||||
ExplicitLeft = 406
|
||||
end
|
||||
inherited ToolButton11: TToolButton
|
||||
Left = 440
|
||||
ExplicitLeft = 440
|
||||
end
|
||||
end
|
||||
inherited cxGrid: TcxGrid
|
||||
Width = 558
|
||||
Height = 326
|
||||
Width = 443
|
||||
Height = 136
|
||||
ExplicitWidth = 443
|
||||
ExplicitHeight = 136
|
||||
end
|
||||
inherited TBXDock1: TTBXDock
|
||||
Width = 558
|
||||
Width = 443
|
||||
ExplicitWidth = 443
|
||||
inherited TBXToolbar1: TTBXToolbar
|
||||
ExplicitWidth = 443
|
||||
end
|
||||
end
|
||||
inherited cxLookupComboBox: TcxLookupComboBox
|
||||
Style.IsFontAssigned = True
|
||||
end
|
||||
end
|
||||
end
|
||||
object pagCalidades: TTabSheet
|
||||
Caption = 'Calidades'
|
||||
ImageIndex = 4
|
||||
object eCalidades: TcxRichEdit
|
||||
Left = 0
|
||||
Top = 0
|
||||
Align = alClient
|
||||
Properties.ScrollBars = ssVertical
|
||||
Lines.Strings = (
|
||||
'eCondiciones')
|
||||
TabOrder = 0
|
||||
Height = 208
|
||||
Width = 443
|
||||
end
|
||||
end
|
||||
object pagCondiciones: TTabSheet
|
||||
Caption = 'Condiciones'
|
||||
ImageIndex = 3
|
||||
ExplicitWidth = 443
|
||||
ExplicitHeight = 208
|
||||
ExplicitLeft = 0
|
||||
ExplicitTop = 0
|
||||
ExplicitWidth = 0
|
||||
ExplicitHeight = 0
|
||||
object eCondiciones: TcxRichEdit
|
||||
Left = 0
|
||||
Top = 0
|
||||
@ -261,10 +328,8 @@ inherited frViewConfiguracionDocArmario: TfrViewConfiguracionDocArmario
|
||||
Lines.Strings = (
|
||||
'eCondiciones')
|
||||
TabOrder = 0
|
||||
ExplicitWidth = 443
|
||||
ExplicitHeight = 208
|
||||
Height = 398
|
||||
Width = 558
|
||||
Height = 208
|
||||
Width = 443
|
||||
end
|
||||
end
|
||||
end
|
||||
|
||||
@ -25,6 +25,8 @@ type
|
||||
frViewConfiguracionCapituloInterior: TfrViewConfiguracionCapitulo;
|
||||
pagCondiciones: TTabSheet;
|
||||
eCondiciones: TcxRichEdit;
|
||||
pagCalidades: TTabSheet;
|
||||
eCalidades: TcxRichEdit;
|
||||
public
|
||||
class function GetViewClass : TClass; override;
|
||||
class function DarEtiqueta : String; override;
|
||||
@ -51,6 +53,10 @@ begin
|
||||
ePlazosEntrega.Text := AppFactuGES.Configuracion.GetSettingAsString(teBD,CTE_PLAZOS_ENTREGA_ARMARIO);
|
||||
eObservaciones.Lines.Clear;
|
||||
eObservaciones.Text := AppFactuGES.Configuracion.GetSettingAsString(teBD,CTE_OBSERVACIONES_ARMARIO);
|
||||
|
||||
eCalidades.Lines.Clear;
|
||||
eCalidades.Text := AppFactuGES.Configuracion.GetSettingAsString(teBD,CTE_CALIDADES_ARMARIO);
|
||||
|
||||
eCondiciones.Lines.Clear;
|
||||
eCondiciones.Text := AppFactuGES.Configuracion.GetSettingAsString(teBD,CTE_CONDICIONES_ARMARIO);
|
||||
|
||||
@ -79,6 +85,7 @@ begin
|
||||
AppFactuGES.Configuracion.SetSettingAsString(teBD, CTE_PLAZOS_ENTREGA_ARMARIO, ePlazosEntrega.Text);
|
||||
AppFactuGES.Configuracion.SetSettingAsString(teBD, CTE_OBSERVACIONES_ARMARIO, eObservaciones.Text);
|
||||
AppFactuGES.Configuracion.SetSettingAsString(teBD, CTE_CONDICIONES_ARMARIO, eCondiciones.Text);
|
||||
AppFactuGES.Configuracion.SetSettingAsString(teBD, CTE_CALIDADES_ARMARIO, eCalidades.Text);
|
||||
|
||||
frViewConfiguracionCapituloFrente.Detalles.DataTable.ApplyUpdates;
|
||||
frViewConfiguracionCapituloInterior.Detalles.DataTable.ApplyUpdates;
|
||||
|
||||
@ -1,33 +1,28 @@
|
||||
inherited frViewConfiguracionDocBANO: TfrViewConfiguracionDocBANO
|
||||
Width = 554
|
||||
Height = 486
|
||||
inherited Panel1: TPanel
|
||||
Width = 544
|
||||
TabOrder = 1
|
||||
inherited Label3: TLabel
|
||||
Width = 532
|
||||
Width = 429
|
||||
Visible = False
|
||||
ExplicitLeft = 10
|
||||
ExplicitTop = 5
|
||||
ExplicitWidth = 429
|
||||
end
|
||||
end
|
||||
inherited JvGradientHeaderPanel1: TJvGradientHeaderPanel
|
||||
Width = 554
|
||||
LabelCaption = 'Configuraci'#243'n de los documentos de ba'#241'o'
|
||||
TabOrder = 0
|
||||
end
|
||||
object paginas: TPageControl
|
||||
Left = 0
|
||||
Top = 68
|
||||
Width = 554
|
||||
Height = 418
|
||||
Width = 451
|
||||
Height = 236
|
||||
ActivePage = pagNotas
|
||||
Align = alClient
|
||||
TabOrder = 2
|
||||
ExplicitWidth = 451
|
||||
ExplicitHeight = 236
|
||||
object pagNotas: TTabSheet
|
||||
Caption = 'Notas'
|
||||
ExplicitWidth = 443
|
||||
ExplicitHeight = 208
|
||||
object Label1: TLabel
|
||||
Left = 11
|
||||
Top = 16
|
||||
@ -83,13 +78,11 @@ inherited frViewConfiguracionDocBANO: TfrViewConfiguracionDocBANO
|
||||
object pagCapitulo: TTabSheet
|
||||
Caption = 'Cap'#237'tulo'
|
||||
ImageIndex = 1
|
||||
ExplicitWidth = 443
|
||||
ExplicitHeight = 208
|
||||
inline frViewConfiguracionCapitulo: TfrViewConfiguracionCapitulo
|
||||
Left = 0
|
||||
Top = 0
|
||||
Width = 546
|
||||
Height = 390
|
||||
Width = 443
|
||||
Height = 208
|
||||
Align = alClient
|
||||
BiDiMode = bdLeftToRight
|
||||
Font.Charset = DEFAULT_CHARSET
|
||||
@ -104,69 +97,129 @@ inherited frViewConfiguracionDocBANO: TfrViewConfiguracionDocBANO
|
||||
ExplicitWidth = 443
|
||||
ExplicitHeight = 208
|
||||
inherited ToolBar1: TToolBar
|
||||
Width = 546
|
||||
Width = 443
|
||||
Height = 73
|
||||
ExplicitWidth = 443
|
||||
ExplicitHeight = 73
|
||||
inherited ToolButton3: TToolButton
|
||||
Wrap = True
|
||||
end
|
||||
inherited ToolButton4: TToolButton
|
||||
Left = 0
|
||||
Top = 22
|
||||
Wrap = False
|
||||
ExplicitLeft = 0
|
||||
ExplicitTop = 22
|
||||
end
|
||||
inherited ToolButton14: TToolButton
|
||||
Left = 56
|
||||
ExplicitLeft = 56
|
||||
end
|
||||
inherited FontName: TJvFontComboBox
|
||||
Left = 90
|
||||
ExplicitLeft = 90
|
||||
end
|
||||
inherited FontSize: TEdit
|
||||
Width = 58
|
||||
ExplicitWidth = 58
|
||||
Left = 235
|
||||
Width = 90
|
||||
ExplicitLeft = 235
|
||||
ExplicitWidth = 90
|
||||
end
|
||||
inherited UpDown1: TUpDown
|
||||
Left = 237
|
||||
ExplicitLeft = 237
|
||||
inherited ToolButton13: TToolButton [7]
|
||||
Left = 0
|
||||
Wrap = True
|
||||
ExplicitLeft = 0
|
||||
ExplicitHeight = 27
|
||||
end
|
||||
inherited ToolButton13: TToolButton
|
||||
Left = 254
|
||||
ExplicitLeft = 254
|
||||
inherited UpDown1: TUpDown [8]
|
||||
Left = 0
|
||||
Top = 49
|
||||
ExplicitLeft = 0
|
||||
ExplicitTop = 49
|
||||
end
|
||||
inherited ToolButton6: TToolButton
|
||||
Left = 262
|
||||
ExplicitLeft = 262
|
||||
Left = 17
|
||||
Top = 49
|
||||
ExplicitLeft = 17
|
||||
ExplicitTop = 49
|
||||
end
|
||||
inherited ToolButton7: TToolButton
|
||||
Left = 296
|
||||
ExplicitLeft = 296
|
||||
Left = 51
|
||||
Top = 49
|
||||
ExplicitLeft = 51
|
||||
ExplicitTop = 49
|
||||
end
|
||||
inherited ToolButton8: TToolButton
|
||||
Left = 330
|
||||
ExplicitLeft = 330
|
||||
Left = 85
|
||||
Top = 49
|
||||
ExplicitLeft = 85
|
||||
ExplicitTop = 49
|
||||
end
|
||||
inherited ToolButton12: TToolButton
|
||||
Left = 364
|
||||
ExplicitLeft = 364
|
||||
Left = 119
|
||||
Top = 49
|
||||
ExplicitLeft = 119
|
||||
ExplicitTop = 49
|
||||
end
|
||||
inherited ToolButton9: TToolButton
|
||||
Left = 372
|
||||
ExplicitLeft = 372
|
||||
Left = 127
|
||||
Top = 49
|
||||
ExplicitLeft = 127
|
||||
ExplicitTop = 49
|
||||
end
|
||||
inherited ToolButton10: TToolButton
|
||||
Left = 406
|
||||
ExplicitLeft = 406
|
||||
Left = 161
|
||||
Top = 49
|
||||
ExplicitLeft = 161
|
||||
ExplicitTop = 49
|
||||
end
|
||||
inherited ToolButton11: TToolButton
|
||||
Left = 440
|
||||
ExplicitLeft = 440
|
||||
Left = 195
|
||||
Top = 49
|
||||
ExplicitLeft = 195
|
||||
ExplicitTop = 49
|
||||
end
|
||||
end
|
||||
inherited cxGrid: TcxGrid
|
||||
Width = 546
|
||||
Height = 318
|
||||
Top = 99
|
||||
Width = 443
|
||||
Height = 109
|
||||
ExplicitTop = 99
|
||||
ExplicitWidth = 443
|
||||
ExplicitHeight = 136
|
||||
ExplicitHeight = 109
|
||||
end
|
||||
inherited TBXDock1: TTBXDock
|
||||
Width = 546
|
||||
Top = 73
|
||||
Width = 443
|
||||
ExplicitTop = 73
|
||||
ExplicitWidth = 443
|
||||
inherited TBXToolbar1: TTBXToolbar
|
||||
ExplicitWidth = 443
|
||||
end
|
||||
end
|
||||
inherited cxLookupComboBox: TcxLookupComboBox
|
||||
Style.IsFontAssigned = True
|
||||
end
|
||||
end
|
||||
end
|
||||
object pagCalidades: TTabSheet
|
||||
Caption = 'Calidades'
|
||||
ImageIndex = 3
|
||||
object eCalidades: TcxRichEdit
|
||||
Left = 0
|
||||
Top = 0
|
||||
Align = alClient
|
||||
Properties.ScrollBars = ssVertical
|
||||
Lines.Strings = (
|
||||
'eCondiciones')
|
||||
TabOrder = 0
|
||||
Height = 208
|
||||
Width = 443
|
||||
end
|
||||
end
|
||||
object pagCondiciones: TTabSheet
|
||||
Caption = 'Condiciones'
|
||||
ImageIndex = 2
|
||||
ExplicitWidth = 443
|
||||
ExplicitHeight = 208
|
||||
object eCondiciones: TcxRichEdit
|
||||
Left = 0
|
||||
Top = 0
|
||||
@ -175,9 +228,8 @@ inherited frViewConfiguracionDocBANO: TfrViewConfiguracionDocBANO
|
||||
Lines.Strings = (
|
||||
'eCondiciones')
|
||||
TabOrder = 0
|
||||
ExplicitLeft = 1
|
||||
Height = 390
|
||||
Width = 546
|
||||
Height = 208
|
||||
Width = 443
|
||||
end
|
||||
end
|
||||
end
|
||||
|
||||
@ -23,6 +23,8 @@ type
|
||||
frViewConfiguracionCapitulo: TfrViewConfiguracionCapitulo;
|
||||
pagCondiciones: TTabSheet;
|
||||
eCondiciones: TcxRichEdit;
|
||||
pagCalidades: TTabSheet;
|
||||
eCalidades: TcxRichEdit;
|
||||
public
|
||||
class function GetViewClass : TClass; override;
|
||||
class function DarEtiqueta : String; override;
|
||||
@ -49,6 +51,10 @@ begin
|
||||
ePlazosEntrega.Text := AppFactuGES.Configuracion.GetSettingAsString(teBD,CTE_PLAZOS_ENTREGA_BANO);
|
||||
eObservaciones.Lines.Clear;
|
||||
eObservaciones.Text := AppFactuGES.Configuracion.GetSettingAsString(teBD,CTE_OBSERVACIONES_BANO);
|
||||
|
||||
eCalidades.Lines.Clear;
|
||||
eCalidades.Text := AppFactuGES.Configuracion.GetSettingAsString(teBD,CTE_CALIDADES_BANO);
|
||||
|
||||
eCondiciones.Lines.Clear;
|
||||
eCondiciones.Text := AppFactuGES.Configuracion.GetSettingAsString(teBD,CTE_CONDICIONES_BANO);
|
||||
|
||||
@ -73,6 +79,7 @@ begin
|
||||
AppFactuGES.Configuracion.SetSettingAsString(teBD, CTE_PLAZOS_ENTREGA_BANO, ePlazosEntrega.Text);
|
||||
AppFactuGES.Configuracion.SetSettingAsString(teBD, CTE_OBSERVACIONES_BANO, eObservaciones.Text);
|
||||
AppFactuGES.Configuracion.SetSettingAsString(teBD, CTE_CONDICIONES_BANO, eCondiciones.Text);
|
||||
AppFactuGES.Configuracion.SetSettingAsString(teBD, CTE_CALIDADES_BANO, eCalidades.Text);
|
||||
|
||||
frViewConfiguracionCapitulo.Detalles.DataTable.ApplyUpdates;
|
||||
end;
|
||||
|
||||
@ -1,33 +1,25 @@
|
||||
inherited frViewConfiguracionDocCocina: TfrViewConfiguracionDocCocina
|
||||
Width = 561
|
||||
Height = 490
|
||||
inherited Panel1: TPanel
|
||||
Width = 551
|
||||
TabOrder = 1
|
||||
inherited Label3: TLabel
|
||||
Width = 539
|
||||
Width = 429
|
||||
Visible = False
|
||||
end
|
||||
end
|
||||
inherited JvGradientHeaderPanel1: TJvGradientHeaderPanel
|
||||
Width = 561
|
||||
LabelCaption = 'Configuraci'#243'n de los documentos de cocina'
|
||||
TabOrder = 0
|
||||
end
|
||||
object Paginas: TPageControl
|
||||
Left = 0
|
||||
Top = 68
|
||||
Width = 561
|
||||
Height = 422
|
||||
Width = 451
|
||||
Height = 236
|
||||
ActivePage = pagNotas
|
||||
Align = alClient
|
||||
TabOrder = 2
|
||||
ExplicitWidth = 684
|
||||
ExplicitHeight = 540
|
||||
object pagNotas: TTabSheet
|
||||
Caption = 'Notas'
|
||||
ExplicitWidth = 676
|
||||
ExplicitHeight = 512
|
||||
object Label1: TLabel
|
||||
Left = 11
|
||||
Top = 23
|
||||
@ -83,13 +75,11 @@ inherited frViewConfiguracionDocCocina: TfrViewConfiguracionDocCocina
|
||||
object pagCapitulo: TTabSheet
|
||||
Caption = 'Cap'#237'tulo'
|
||||
ImageIndex = 1
|
||||
ExplicitWidth = 443
|
||||
ExplicitHeight = 208
|
||||
inline frViewConfiguracionCapitulo: TfrViewConfiguracionCapitulo
|
||||
Left = 0
|
||||
Top = 0
|
||||
Width = 553
|
||||
Height = 394
|
||||
Width = 443
|
||||
Height = 208
|
||||
Align = alClient
|
||||
BiDiMode = bdLeftToRight
|
||||
Font.Charset = DEFAULT_CHARSET
|
||||
@ -104,69 +94,131 @@ inherited frViewConfiguracionDocCocina: TfrViewConfiguracionDocCocina
|
||||
ExplicitWidth = 443
|
||||
ExplicitHeight = 208
|
||||
inherited ToolBar1: TToolBar
|
||||
Width = 553
|
||||
Width = 443
|
||||
Height = 73
|
||||
ExplicitWidth = 443
|
||||
ExplicitHeight = 73
|
||||
inherited ToolButton3: TToolButton
|
||||
Wrap = True
|
||||
end
|
||||
inherited ToolButton4: TToolButton
|
||||
Left = 0
|
||||
Top = 22
|
||||
Wrap = False
|
||||
ExplicitLeft = 0
|
||||
ExplicitTop = 22
|
||||
end
|
||||
inherited ToolButton14: TToolButton
|
||||
Left = 56
|
||||
ExplicitLeft = 56
|
||||
end
|
||||
inherited FontName: TJvFontComboBox
|
||||
Left = 90
|
||||
ExplicitLeft = 90
|
||||
end
|
||||
inherited FontSize: TEdit
|
||||
Width = 58
|
||||
ExplicitWidth = 58
|
||||
Left = 235
|
||||
Width = 74
|
||||
ExplicitLeft = 235
|
||||
ExplicitWidth = 74
|
||||
end
|
||||
inherited UpDown1: TUpDown
|
||||
Left = 237
|
||||
ExplicitLeft = 237
|
||||
Left = 309
|
||||
ExplicitLeft = 309
|
||||
end
|
||||
inherited ToolButton13: TToolButton
|
||||
Left = 254
|
||||
ExplicitLeft = 254
|
||||
Left = 0
|
||||
Wrap = True
|
||||
ExplicitLeft = 0
|
||||
ExplicitHeight = 27
|
||||
end
|
||||
inherited ToolButton6: TToolButton
|
||||
Left = 262
|
||||
ExplicitLeft = 262
|
||||
Left = 0
|
||||
Top = 49
|
||||
ExplicitLeft = 0
|
||||
ExplicitTop = 49
|
||||
end
|
||||
inherited ToolButton7: TToolButton
|
||||
Left = 296
|
||||
ExplicitLeft = 296
|
||||
Left = 34
|
||||
Top = 49
|
||||
ExplicitLeft = 34
|
||||
ExplicitTop = 49
|
||||
end
|
||||
inherited ToolButton8: TToolButton
|
||||
Left = 330
|
||||
ExplicitLeft = 330
|
||||
Left = 68
|
||||
Top = 49
|
||||
ExplicitLeft = 68
|
||||
ExplicitTop = 49
|
||||
end
|
||||
inherited ToolButton12: TToolButton
|
||||
Left = 364
|
||||
ExplicitLeft = 364
|
||||
Left = 102
|
||||
Top = 49
|
||||
ExplicitLeft = 102
|
||||
ExplicitTop = 49
|
||||
end
|
||||
inherited ToolButton9: TToolButton
|
||||
Left = 372
|
||||
ExplicitLeft = 372
|
||||
Left = 110
|
||||
Top = 49
|
||||
ExplicitLeft = 110
|
||||
ExplicitTop = 49
|
||||
end
|
||||
inherited ToolButton10: TToolButton
|
||||
Left = 406
|
||||
ExplicitLeft = 406
|
||||
Left = 144
|
||||
Top = 49
|
||||
ExplicitLeft = 144
|
||||
ExplicitTop = 49
|
||||
end
|
||||
inherited ToolButton11: TToolButton
|
||||
Left = 440
|
||||
ExplicitLeft = 440
|
||||
Left = 178
|
||||
Top = 49
|
||||
ExplicitLeft = 178
|
||||
ExplicitTop = 49
|
||||
end
|
||||
end
|
||||
inherited cxGrid: TcxGrid
|
||||
Width = 553
|
||||
Height = 322
|
||||
Top = 99
|
||||
Width = 443
|
||||
Height = 109
|
||||
ExplicitTop = 99
|
||||
ExplicitWidth = 443
|
||||
ExplicitHeight = 136
|
||||
ExplicitHeight = 109
|
||||
end
|
||||
inherited TBXDock1: TTBXDock
|
||||
Width = 553
|
||||
Top = 73
|
||||
Width = 443
|
||||
ExplicitTop = 73
|
||||
ExplicitWidth = 443
|
||||
inherited TBXToolbar1: TTBXToolbar
|
||||
ExplicitWidth = 443
|
||||
end
|
||||
end
|
||||
inherited cxLookupComboBox: TcxLookupComboBox
|
||||
Style.IsFontAssigned = True
|
||||
end
|
||||
end
|
||||
end
|
||||
object pagCalidades: TTabSheet
|
||||
Caption = 'Calidades'
|
||||
ImageIndex = 3
|
||||
object eCalidades: TcxRichEdit
|
||||
Left = 0
|
||||
Top = 0
|
||||
Align = alClient
|
||||
Properties.ScrollBars = ssVertical
|
||||
Lines.Strings = (
|
||||
'eCondiciones')
|
||||
TabOrder = 0
|
||||
Height = 208
|
||||
Width = 443
|
||||
end
|
||||
end
|
||||
object pagCondiciones: TTabSheet
|
||||
Caption = 'Condiciones contrato'
|
||||
ImageIndex = 2
|
||||
ExplicitWidth = 676
|
||||
ExplicitHeight = 512
|
||||
ExplicitLeft = 0
|
||||
ExplicitTop = 0
|
||||
ExplicitWidth = 0
|
||||
ExplicitHeight = 0
|
||||
object eCondiciones: TcxRichEdit
|
||||
Left = 0
|
||||
Top = 0
|
||||
@ -175,12 +227,8 @@ inherited frViewConfiguracionDocCocina: TfrViewConfiguracionDocCocina
|
||||
Lines.Strings = (
|
||||
'eCondiciones')
|
||||
TabOrder = 0
|
||||
ExplicitLeft = 11
|
||||
ExplicitTop = 392
|
||||
ExplicitWidth = 529
|
||||
ExplicitHeight = 57
|
||||
Height = 394
|
||||
Width = 553
|
||||
Height = 208
|
||||
Width = 443
|
||||
end
|
||||
end
|
||||
end
|
||||
|
||||
@ -23,6 +23,8 @@ type
|
||||
frViewConfiguracionCapitulo: TfrViewConfiguracionCapitulo;
|
||||
pagCondiciones: TTabSheet;
|
||||
eCondiciones: TcxRichEdit;
|
||||
pagCalidades: TTabSheet;
|
||||
eCalidades: TcxRichEdit;
|
||||
public
|
||||
class function GetViewClass : TClass; override;
|
||||
class function DarEtiqueta : String; override;
|
||||
@ -46,6 +48,10 @@ begin
|
||||
ePlazosEntrega.Text := AppFactuGES.Configuracion.GetSettingAsString(teBD,CTE_PLAZOS_ENTREGA_COCINA);
|
||||
eObservaciones.Lines.Clear;
|
||||
eObservaciones.Text := AppFactuGES.Configuracion.GetSettingAsString(teBD,CTE_OBSERVACIONES_COCINA);
|
||||
|
||||
eCalidades.Lines.Clear;
|
||||
eCalidades.Text := AppFactuGES.Configuracion.GetSettingAsString(teBD,CTE_CALIDADES_COCINA);
|
||||
|
||||
eCondiciones.Lines.Clear;
|
||||
eCondiciones.Text := AppFactuGES.Configuracion.GetSettingAsString(teBD,CTE_CONDICIONES_COCINA);
|
||||
|
||||
@ -70,6 +76,7 @@ begin
|
||||
AppFactuGES.Configuracion.SetSettingAsString(teBD, CTE_PLAZOS_ENTREGA_COCINA, ePlazosEntrega.Text);
|
||||
AppFactuGES.Configuracion.SetSettingAsString(teBD, CTE_OBSERVACIONES_COCINA, eObservaciones.Text);
|
||||
AppFactuGES.Configuracion.SetSettingAsString(teBD, CTE_CONDICIONES_COCINA, eCondiciones.Text);
|
||||
AppFactuGES.Configuracion.SetSettingAsString(teBD, CTE_CALIDADES_COCINA, eCalidades.Text);
|
||||
|
||||
frViewConfiguracionCapitulo.Detalles.DataTable.ApplyUpdates;
|
||||
end;
|
||||
|
||||
@ -1,33 +1,26 @@
|
||||
inherited frViewConfiguracionDocElectrodomestico: TfrViewConfiguracionDocElectrodomestico
|
||||
Width = 554
|
||||
Height = 492
|
||||
inherited Panel1: TPanel
|
||||
Width = 544
|
||||
TabOrder = 1
|
||||
Visible = False
|
||||
inherited Label3: TLabel
|
||||
Width = 532
|
||||
Width = 429
|
||||
Visible = False
|
||||
end
|
||||
end
|
||||
inherited JvGradientHeaderPanel1: TJvGradientHeaderPanel
|
||||
Width = 554
|
||||
LabelCaption = 'Configuraci'#243'n de los documentos de electrodom'#233'sticos'
|
||||
TabOrder = 0
|
||||
end
|
||||
object Paginas: TPageControl
|
||||
Left = 0
|
||||
Top = 68
|
||||
Width = 554
|
||||
Height = 424
|
||||
Width = 451
|
||||
Height = 236
|
||||
ActivePage = pagNotas
|
||||
Align = alClient
|
||||
TabOrder = 2
|
||||
ExplicitWidth = 612
|
||||
ExplicitHeight = 526
|
||||
object pagNotas: TTabSheet
|
||||
Caption = 'Notas'
|
||||
ExplicitWidth = 443
|
||||
ExplicitHeight = 208
|
||||
object Label1: TLabel
|
||||
Left = 11
|
||||
Top = 20
|
||||
@ -83,13 +76,11 @@ inherited frViewConfiguracionDocElectrodomestico: TfrViewConfiguracionDocElectro
|
||||
object pagCapitulo: TTabSheet
|
||||
Caption = 'Cap'#237'tulo'
|
||||
ImageIndex = 1
|
||||
ExplicitWidth = 443
|
||||
ExplicitHeight = 208
|
||||
inline frViewConfiguracionCapitulo: TfrViewConfiguracionCapitulo
|
||||
Left = 0
|
||||
Top = 0
|
||||
Width = 546
|
||||
Height = 396
|
||||
Width = 443
|
||||
Height = 208
|
||||
Align = alClient
|
||||
BiDiMode = bdLeftToRight
|
||||
Font.Charset = DEFAULT_CHARSET
|
||||
@ -104,69 +95,129 @@ inherited frViewConfiguracionDocElectrodomestico: TfrViewConfiguracionDocElectro
|
||||
ExplicitWidth = 443
|
||||
ExplicitHeight = 208
|
||||
inherited ToolBar1: TToolBar
|
||||
Width = 546
|
||||
Width = 443
|
||||
Height = 73
|
||||
ExplicitWidth = 443
|
||||
ExplicitHeight = 73
|
||||
inherited ToolButton3: TToolButton
|
||||
Wrap = True
|
||||
end
|
||||
inherited ToolButton4: TToolButton
|
||||
Left = 0
|
||||
Top = 22
|
||||
Wrap = False
|
||||
ExplicitLeft = 0
|
||||
ExplicitTop = 22
|
||||
end
|
||||
inherited ToolButton14: TToolButton
|
||||
Left = 56
|
||||
ExplicitLeft = 56
|
||||
end
|
||||
inherited FontName: TJvFontComboBox
|
||||
Left = 90
|
||||
ExplicitLeft = 90
|
||||
end
|
||||
inherited FontSize: TEdit
|
||||
Width = 58
|
||||
ExplicitWidth = 58
|
||||
Left = 235
|
||||
Width = 90
|
||||
ExplicitLeft = 235
|
||||
ExplicitWidth = 90
|
||||
end
|
||||
inherited UpDown1: TUpDown
|
||||
Left = 237
|
||||
ExplicitLeft = 237
|
||||
inherited ToolButton13: TToolButton [7]
|
||||
Left = 0
|
||||
Wrap = True
|
||||
ExplicitLeft = 0
|
||||
ExplicitHeight = 27
|
||||
end
|
||||
inherited ToolButton13: TToolButton
|
||||
Left = 254
|
||||
ExplicitLeft = 254
|
||||
inherited UpDown1: TUpDown [8]
|
||||
Left = 0
|
||||
Top = 49
|
||||
ExplicitLeft = 0
|
||||
ExplicitTop = 49
|
||||
end
|
||||
inherited ToolButton6: TToolButton
|
||||
Left = 262
|
||||
ExplicitLeft = 262
|
||||
Left = 17
|
||||
Top = 49
|
||||
ExplicitLeft = 17
|
||||
ExplicitTop = 49
|
||||
end
|
||||
inherited ToolButton7: TToolButton
|
||||
Left = 296
|
||||
ExplicitLeft = 296
|
||||
Left = 51
|
||||
Top = 49
|
||||
ExplicitLeft = 51
|
||||
ExplicitTop = 49
|
||||
end
|
||||
inherited ToolButton8: TToolButton
|
||||
Left = 330
|
||||
ExplicitLeft = 330
|
||||
Left = 85
|
||||
Top = 49
|
||||
ExplicitLeft = 85
|
||||
ExplicitTop = 49
|
||||
end
|
||||
inherited ToolButton12: TToolButton
|
||||
Left = 364
|
||||
ExplicitLeft = 364
|
||||
Left = 119
|
||||
Top = 49
|
||||
ExplicitLeft = 119
|
||||
ExplicitTop = 49
|
||||
end
|
||||
inherited ToolButton9: TToolButton
|
||||
Left = 372
|
||||
ExplicitLeft = 372
|
||||
Left = 127
|
||||
Top = 49
|
||||
ExplicitLeft = 127
|
||||
ExplicitTop = 49
|
||||
end
|
||||
inherited ToolButton10: TToolButton
|
||||
Left = 406
|
||||
ExplicitLeft = 406
|
||||
Left = 161
|
||||
Top = 49
|
||||
ExplicitLeft = 161
|
||||
ExplicitTop = 49
|
||||
end
|
||||
inherited ToolButton11: TToolButton
|
||||
Left = 440
|
||||
ExplicitLeft = 440
|
||||
Left = 195
|
||||
Top = 49
|
||||
ExplicitLeft = 195
|
||||
ExplicitTop = 49
|
||||
end
|
||||
end
|
||||
inherited cxGrid: TcxGrid
|
||||
Width = 546
|
||||
Height = 324
|
||||
Top = 99
|
||||
Width = 443
|
||||
Height = 109
|
||||
ExplicitTop = 99
|
||||
ExplicitWidth = 443
|
||||
ExplicitHeight = 136
|
||||
ExplicitHeight = 109
|
||||
end
|
||||
inherited TBXDock1: TTBXDock
|
||||
Width = 546
|
||||
Top = 73
|
||||
Width = 443
|
||||
ExplicitTop = 73
|
||||
ExplicitWidth = 443
|
||||
inherited TBXToolbar1: TTBXToolbar
|
||||
ExplicitWidth = 443
|
||||
end
|
||||
end
|
||||
inherited cxLookupComboBox: TcxLookupComboBox
|
||||
Style.IsFontAssigned = True
|
||||
end
|
||||
end
|
||||
end
|
||||
object pagCalidades: TTabSheet
|
||||
Caption = 'Calidades'
|
||||
ImageIndex = 3
|
||||
object eCalidades: TcxRichEdit
|
||||
Left = 0
|
||||
Top = 0
|
||||
Align = alClient
|
||||
Properties.ScrollBars = ssVertical
|
||||
Lines.Strings = (
|
||||
'eCondiciones')
|
||||
TabOrder = 0
|
||||
Height = 208
|
||||
Width = 443
|
||||
end
|
||||
end
|
||||
object pagCondiciones: TTabSheet
|
||||
Caption = 'Condiciones'
|
||||
ImageIndex = 2
|
||||
ExplicitWidth = 443
|
||||
ExplicitHeight = 208
|
||||
object eCondiciones: TcxRichEdit
|
||||
Left = 0
|
||||
Top = 0
|
||||
@ -175,10 +226,8 @@ inherited frViewConfiguracionDocElectrodomestico: TfrViewConfiguracionDocElectro
|
||||
Lines.Strings = (
|
||||
'eCondiciones')
|
||||
TabOrder = 0
|
||||
ExplicitWidth = 443
|
||||
ExplicitHeight = 208
|
||||
Height = 396
|
||||
Width = 546
|
||||
Height = 208
|
||||
Width = 443
|
||||
end
|
||||
end
|
||||
end
|
||||
|
||||
@ -23,6 +23,8 @@ type
|
||||
frViewConfiguracionCapitulo: TfrViewConfiguracionCapitulo;
|
||||
pagCondiciones: TTabSheet;
|
||||
eCondiciones: TcxRichEdit;
|
||||
pagCalidades: TTabSheet;
|
||||
eCalidades: TcxRichEdit;
|
||||
public
|
||||
class function GetViewClass : TClass; override;
|
||||
class function DarEtiqueta : String; override;
|
||||
@ -49,6 +51,10 @@ begin
|
||||
ePlazosEntrega.Text := AppFactuGES.Configuracion.GetSettingAsString(teBD,CTE_PLAZOS_ENTREGA_ELECTRODOMESTICO);
|
||||
eObservaciones.Lines.Clear;
|
||||
eObservaciones.Text := AppFactuGES.Configuracion.GetSettingAsString(teBD,CTE_OBSERVACIONES_ELECTRODOMESTICO);
|
||||
|
||||
eCalidades.Lines.Clear;
|
||||
eCalidades.Text := AppFactuGES.Configuracion.GetSettingAsString(teBD,CTE_CALIDADES_ELECTRODOMESTICO);
|
||||
|
||||
eCondiciones.Lines.Clear;
|
||||
eCondiciones.Text := AppFactuGES.Configuracion.GetSettingAsString(teBD,CTE_CONDICIONES_ELECTRODOMESTICO);
|
||||
|
||||
@ -73,6 +79,7 @@ begin
|
||||
AppFactuGES.Configuracion.SetSettingAsString(teBD, CTE_PLAZOS_ENTREGA_ELECTRODOMESTICO, ePlazosEntrega.Text);
|
||||
AppFactuGES.Configuracion.SetSettingAsString(teBD, CTE_OBSERVACIONES_ELECTRODOMESTICO, eObservaciones.Text);
|
||||
AppFactuGES.Configuracion.SetSettingAsString(teBD, CTE_CONDICIONES_ELECTRODOMESTICO, eCondiciones.Text);
|
||||
AppFactuGES.Configuracion.SetSettingAsString(teBD, CTE_CALIDADES_ELECTRODOMESTICO, eCalidades.Text);
|
||||
|
||||
frViewConfiguracionCapitulo.Detalles.DataTable.ApplyUpdates;
|
||||
end;
|
||||
|
||||
@ -1,32 +1,25 @@
|
||||
inherited frViewConfiguracionDocObra: TfrViewConfiguracionDocObra
|
||||
Width = 557
|
||||
Height = 489
|
||||
inherited Panel1: TPanel
|
||||
Width = 547
|
||||
TabOrder = 1
|
||||
Visible = False
|
||||
inherited Label3: TLabel
|
||||
Width = 535
|
||||
Width = 429
|
||||
end
|
||||
end
|
||||
inherited JvGradientHeaderPanel1: TJvGradientHeaderPanel
|
||||
Width = 557
|
||||
LabelCaption = 'Configuraci'#243'n de los documentos de obra'
|
||||
TabOrder = 0
|
||||
end
|
||||
object paginas: TPageControl
|
||||
Left = 0
|
||||
Top = 68
|
||||
Width = 557
|
||||
Height = 421
|
||||
Width = 451
|
||||
Height = 236
|
||||
ActivePage = pagNotas
|
||||
Align = alClient
|
||||
TabOrder = 2
|
||||
ExplicitWidth = 451
|
||||
ExplicitHeight = 236
|
||||
object pagNotas: TTabSheet
|
||||
Caption = 'Notas'
|
||||
ExplicitWidth = 443
|
||||
ExplicitHeight = 208
|
||||
object Label1: TLabel
|
||||
Left = 11
|
||||
Top = 20
|
||||
@ -82,13 +75,11 @@ inherited frViewConfiguracionDocObra: TfrViewConfiguracionDocObra
|
||||
object pagCapitulo: TTabSheet
|
||||
Caption = 'Cap'#237'tulo'
|
||||
ImageIndex = 1
|
||||
ExplicitWidth = 443
|
||||
ExplicitHeight = 208
|
||||
inline frViewConfiguracionCapitulo: TfrViewConfiguracionCapitulo
|
||||
Left = 0
|
||||
Top = 0
|
||||
Width = 549
|
||||
Height = 393
|
||||
Width = 443
|
||||
Height = 208
|
||||
Align = alClient
|
||||
BiDiMode = bdLeftToRight
|
||||
Font.Charset = DEFAULT_CHARSET
|
||||
@ -103,69 +94,129 @@ inherited frViewConfiguracionDocObra: TfrViewConfiguracionDocObra
|
||||
ExplicitWidth = 443
|
||||
ExplicitHeight = 208
|
||||
inherited ToolBar1: TToolBar
|
||||
Width = 549
|
||||
Width = 443
|
||||
Height = 73
|
||||
ExplicitWidth = 443
|
||||
ExplicitHeight = 73
|
||||
inherited ToolButton3: TToolButton
|
||||
Wrap = True
|
||||
end
|
||||
inherited ToolButton4: TToolButton
|
||||
Left = 0
|
||||
Top = 22
|
||||
Wrap = False
|
||||
ExplicitLeft = 0
|
||||
ExplicitTop = 22
|
||||
end
|
||||
inherited ToolButton14: TToolButton
|
||||
Left = 56
|
||||
ExplicitLeft = 56
|
||||
end
|
||||
inherited FontName: TJvFontComboBox
|
||||
Left = 90
|
||||
ExplicitLeft = 90
|
||||
end
|
||||
inherited FontSize: TEdit
|
||||
Width = 58
|
||||
ExplicitWidth = 58
|
||||
Left = 235
|
||||
Width = 90
|
||||
ExplicitLeft = 235
|
||||
ExplicitWidth = 90
|
||||
end
|
||||
inherited UpDown1: TUpDown
|
||||
Left = 237
|
||||
ExplicitLeft = 237
|
||||
inherited ToolButton13: TToolButton [7]
|
||||
Left = 0
|
||||
Wrap = True
|
||||
ExplicitLeft = 0
|
||||
ExplicitHeight = 27
|
||||
end
|
||||
inherited ToolButton13: TToolButton
|
||||
Left = 254
|
||||
ExplicitLeft = 254
|
||||
inherited UpDown1: TUpDown [8]
|
||||
Left = 0
|
||||
Top = 49
|
||||
ExplicitLeft = 0
|
||||
ExplicitTop = 49
|
||||
end
|
||||
inherited ToolButton6: TToolButton
|
||||
Left = 262
|
||||
ExplicitLeft = 262
|
||||
Left = 17
|
||||
Top = 49
|
||||
ExplicitLeft = 17
|
||||
ExplicitTop = 49
|
||||
end
|
||||
inherited ToolButton7: TToolButton
|
||||
Left = 296
|
||||
ExplicitLeft = 296
|
||||
Left = 51
|
||||
Top = 49
|
||||
ExplicitLeft = 51
|
||||
ExplicitTop = 49
|
||||
end
|
||||
inherited ToolButton8: TToolButton
|
||||
Left = 330
|
||||
ExplicitLeft = 330
|
||||
Left = 85
|
||||
Top = 49
|
||||
ExplicitLeft = 85
|
||||
ExplicitTop = 49
|
||||
end
|
||||
inherited ToolButton12: TToolButton
|
||||
Left = 364
|
||||
ExplicitLeft = 364
|
||||
Left = 119
|
||||
Top = 49
|
||||
ExplicitLeft = 119
|
||||
ExplicitTop = 49
|
||||
end
|
||||
inherited ToolButton9: TToolButton
|
||||
Left = 372
|
||||
ExplicitLeft = 372
|
||||
Left = 127
|
||||
Top = 49
|
||||
ExplicitLeft = 127
|
||||
ExplicitTop = 49
|
||||
end
|
||||
inherited ToolButton10: TToolButton
|
||||
Left = 406
|
||||
ExplicitLeft = 406
|
||||
Left = 161
|
||||
Top = 49
|
||||
ExplicitLeft = 161
|
||||
ExplicitTop = 49
|
||||
end
|
||||
inherited ToolButton11: TToolButton
|
||||
Left = 440
|
||||
ExplicitLeft = 440
|
||||
Left = 195
|
||||
Top = 49
|
||||
ExplicitLeft = 195
|
||||
ExplicitTop = 49
|
||||
end
|
||||
end
|
||||
inherited cxGrid: TcxGrid
|
||||
Width = 549
|
||||
Height = 321
|
||||
Top = 99
|
||||
Width = 443
|
||||
Height = 109
|
||||
ExplicitTop = 99
|
||||
ExplicitWidth = 443
|
||||
ExplicitHeight = 136
|
||||
ExplicitHeight = 109
|
||||
end
|
||||
inherited TBXDock1: TTBXDock
|
||||
Width = 549
|
||||
Top = 73
|
||||
Width = 443
|
||||
ExplicitTop = 73
|
||||
ExplicitWidth = 443
|
||||
inherited TBXToolbar1: TTBXToolbar
|
||||
ExplicitWidth = 443
|
||||
end
|
||||
end
|
||||
inherited cxLookupComboBox: TcxLookupComboBox
|
||||
Style.IsFontAssigned = True
|
||||
end
|
||||
end
|
||||
end
|
||||
object pagCalidades: TTabSheet
|
||||
Caption = 'Calidades'
|
||||
ImageIndex = 3
|
||||
object eCalidades: TcxRichEdit
|
||||
Left = 0
|
||||
Top = 0
|
||||
Align = alClient
|
||||
Properties.ScrollBars = ssVertical
|
||||
Lines.Strings = (
|
||||
'eCondiciones')
|
||||
TabOrder = 0
|
||||
Height = 208
|
||||
Width = 443
|
||||
end
|
||||
end
|
||||
object pagCondiciones: TTabSheet
|
||||
Caption = 'Condiciones'
|
||||
ImageIndex = 2
|
||||
ExplicitWidth = 443
|
||||
ExplicitHeight = 208
|
||||
object eCondiciones: TcxRichEdit
|
||||
Left = 0
|
||||
Top = 0
|
||||
@ -174,10 +225,8 @@ inherited frViewConfiguracionDocObra: TfrViewConfiguracionDocObra
|
||||
Lines.Strings = (
|
||||
'eCondiciones')
|
||||
TabOrder = 0
|
||||
ExplicitWidth = 443
|
||||
ExplicitHeight = 208
|
||||
Height = 393
|
||||
Width = 549
|
||||
Height = 208
|
||||
Width = 443
|
||||
end
|
||||
end
|
||||
end
|
||||
|
||||
@ -23,6 +23,8 @@ type
|
||||
frViewConfiguracionCapitulo: TfrViewConfiguracionCapitulo;
|
||||
pagCondiciones: TTabSheet;
|
||||
eCondiciones: TcxRichEdit;
|
||||
pagCalidades: TTabSheet;
|
||||
eCalidades: TcxRichEdit;
|
||||
public
|
||||
class function GetViewClass : TClass; override;
|
||||
class function DarEtiqueta : String; override;
|
||||
@ -49,6 +51,10 @@ begin
|
||||
ePlazosEntrega.Text := AppFactuGES.Configuracion.GetSettingAsString(teBD,CTE_PLAZOS_ENTREGA_OBRA);
|
||||
eObservaciones.Lines.Clear;
|
||||
eObservaciones.Text := AppFactuGES.Configuracion.GetSettingAsString(teBD,CTE_OBSERVACIONES_OBRA);
|
||||
|
||||
eCalidades.Lines.Clear;
|
||||
eCalidades.Text := AppFactuGES.Configuracion.GetSettingAsString(teBD,CTE_CALIDADES_OBRA);
|
||||
|
||||
eCondiciones.Lines.Clear;
|
||||
eCondiciones.Text := AppFactuGES.Configuracion.GetSettingAsString(teBD,CTE_CONDICIONES_OBRA);
|
||||
|
||||
@ -73,6 +79,7 @@ begin
|
||||
AppFactuGES.Configuracion.SetSettingAsString(teBD, CTE_PLAZOS_ENTREGA_OBRA, ePlazosEntrega.Text);
|
||||
AppFactuGES.Configuracion.SetSettingAsString(teBD, CTE_OBSERVACIONES_OBRA, eObservaciones.Text);
|
||||
AppFactuGES.Configuracion.SetSettingAsString(teBD, CTE_CONDICIONES_OBRA, eCondiciones.Text);
|
||||
AppFactuGES.Configuracion.SetSettingAsString(teBD, CTE_CALIDADES_OBRA, eCalidades.Text);
|
||||
|
||||
frViewConfiguracionCapitulo.Detalles.DataTable.ApplyUpdates;
|
||||
end;
|
||||
|
||||
@ -1,36 +1,25 @@
|
||||
inherited frViewConfiguracionDocVarios: TfrViewConfiguracionDocVarios
|
||||
Width = 567
|
||||
Height = 499
|
||||
ExplicitWidth = 898
|
||||
ExplicitHeight = 591
|
||||
inherited Panel1: TPanel
|
||||
Width = 557
|
||||
TabOrder = 1
|
||||
ExplicitWidth = 530
|
||||
Visible = False
|
||||
inherited Label3: TLabel
|
||||
Width = 545
|
||||
Width = 429
|
||||
end
|
||||
end
|
||||
inherited JvGradientHeaderPanel1: TJvGradientHeaderPanel
|
||||
Width = 567
|
||||
LabelCaption = 'Configuraci'#243'n de los documentos de varios'
|
||||
TabOrder = 0
|
||||
ExplicitWidth = 540
|
||||
end
|
||||
object PageControl1: TPageControl
|
||||
Left = 0
|
||||
Top = 68
|
||||
Width = 567
|
||||
Height = 431
|
||||
ActivePage = pagNotas
|
||||
Width = 451
|
||||
Height = 236
|
||||
ActivePage = pagCalidades
|
||||
Align = alClient
|
||||
TabOrder = 2
|
||||
ExplicitWidth = 898
|
||||
ExplicitHeight = 523
|
||||
object pagNotas: TTabSheet
|
||||
Caption = 'Notas'
|
||||
ExplicitWidth = 890
|
||||
ExplicitHeight = 495
|
||||
object Label1: TLabel
|
||||
Left = 11
|
||||
Top = 13
|
||||
@ -83,11 +72,24 @@ inherited frViewConfiguracionDocVarios: TfrViewConfiguracionDocVarios
|
||||
TabOrder = 2
|
||||
end
|
||||
end
|
||||
object pagCalidades: TTabSheet
|
||||
Caption = 'Calidades'
|
||||
ImageIndex = 2
|
||||
object eCalidades: TcxRichEdit
|
||||
Left = 0
|
||||
Top = 0
|
||||
Align = alClient
|
||||
Properties.ScrollBars = ssVertical
|
||||
Lines.Strings = (
|
||||
'eCondiciones')
|
||||
TabOrder = 0
|
||||
Height = 208
|
||||
Width = 443
|
||||
end
|
||||
end
|
||||
object pagCondiciones: TTabSheet
|
||||
Caption = 'Condiciones'
|
||||
ImageIndex = 1
|
||||
ExplicitWidth = 890
|
||||
ExplicitHeight = 495
|
||||
object eCondiciones: TcxRichEdit
|
||||
Left = 0
|
||||
Top = 0
|
||||
@ -96,12 +98,8 @@ inherited frViewConfiguracionDocVarios: TfrViewConfiguracionDocVarios
|
||||
Lines.Strings = (
|
||||
'eCondiciones')
|
||||
TabOrder = 0
|
||||
ExplicitLeft = 11
|
||||
ExplicitTop = 372
|
||||
ExplicitWidth = 529
|
||||
ExplicitHeight = 57
|
||||
Height = 403
|
||||
Width = 559
|
||||
Height = 208
|
||||
Width = 443
|
||||
end
|
||||
end
|
||||
end
|
||||
|
||||
@ -20,6 +20,8 @@ type
|
||||
eFormaPago: TMemo;
|
||||
eObservaciones: TMemo;
|
||||
eCondiciones: TcxRichEdit;
|
||||
pagCalidades: TTabSheet;
|
||||
eCalidades: TcxRichEdit;
|
||||
public
|
||||
class function GetViewClass : TClass; override;
|
||||
class function DarEtiqueta : String; override;
|
||||
@ -45,6 +47,10 @@ begin
|
||||
ePlazosEntrega.Text := AppFactuGES.Configuracion.GetSettingAsString(teBD,CTE_PLAZOS_ENTREGA_VARIOS);
|
||||
eObservaciones.Lines.Clear;
|
||||
eObservaciones.Text := AppFactuGES.Configuracion.GetSettingAsString(teBD,CTE_OBSERVACIONES_VARIOS);
|
||||
|
||||
eCalidades.Lines.Clear;
|
||||
eCalidades.Text := AppFactuGES.Configuracion.GetSettingAsString(teBD,CTE_CALIDADES_VARIOS);
|
||||
|
||||
eCondiciones.Lines.Clear;
|
||||
eCondiciones.Text := AppFactuGES.Configuracion.GetSettingAsString(teBD,CTE_CONDICIONES_VARIOS);
|
||||
end;
|
||||
@ -66,6 +72,7 @@ begin
|
||||
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);
|
||||
AppFactuGES.Configuracion.SetSettingAsString(teBD, CTE_CALIDADES_VARIOS, eCalidades.Text);
|
||||
end;
|
||||
|
||||
|
||||
|
||||
@ -108,6 +108,7 @@ begin
|
||||
AContrato.PERSONA_CONTACTO := APresupuesto.PERSONA_CONTACTO;
|
||||
AContrato.DataTable.FieldByName(fld_ContratosClientePLAZO_ENTREGA).AsVariant := APresupuesto.DataTable.FieldByName(fld_PresupuestosClientePLAZO_ENTREGA).AsVariant;
|
||||
AContrato.DataTable.FieldByName(fld_ContratosClienteOBSERVACIONES).AsVariant := APresupuesto.DataTable.FieldByName(fld_PresupuestosClienteOBSERVACIONES).AsVariant;
|
||||
AContrato.DataTable.FieldByName(fld_ContratosClienteCALIDADES).AsVariant := APresupuesto.DataTable.FieldByName(fld_PresupuestosClienteCALIDADES).AsVariant;
|
||||
AContrato.IMPORTE_NETO := APresupuesto.IMPORTE_NETO;
|
||||
AContrato.IMPORTE_PORTE := APresupuesto.IMPORTE_PORTE;
|
||||
AContrato.DESCUENTO := APresupuesto.DESCUENTO;
|
||||
|
||||
@ -16,7 +16,7 @@ BEGIN
|
||||
VALUE "FileVersion", "2.5.5.0\0"
|
||||
VALUE "ProductName", "FactuGES (Servidor)\0"
|
||||
VALUE "ProductVersion", "2.5.5.0\0"
|
||||
VALUE "CompileDate", "martes, 27 de agosto de 2013 13:55\0"
|
||||
VALUE "CompileDate", "martes, 12 de noviembre de 2013 17:33\0"
|
||||
END
|
||||
END
|
||||
BLOCK "VarFileInfo"
|
||||
|
||||
Binary file not shown.
Loading…
Reference in New Issue
Block a user