Tecistel/Tecsitel_FactuGES2
0
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Presupuestos: campo complementario a referencia para poner modificaciones (1, 2, etc).

Browse Source 
git-svn-id: https://192.168.0.254/svn/Proyectos.Tecsitel_FactuGES2/trunk@277 0c75b7a4-871f-7646-8a2f-f78d34cc349f
This commit is contained in:
David Arranz 2008-02-18 16:24:18 +00:00
parent 295dcd02f6
commit 3dd7a69bdb
10 changed files with 311 additions and 183 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
Database/scripts/factuges.sql
View File

@ -926,6 +926,7 @@ CREATE TABLE PRESUPUESTOS_CLIENTE (
ID_EMPRESA TIPO_ID, ID_EMPRESA TIPO_ID,
ID_CLIENTE TIPO_ID, ID_CLIENTE TIPO_ID,
REFERENCIA VARCHAR(255), REFERENCIA VARCHAR(255),
REFERENCIA_AUX VARCHAR(255),
FECHA_PRESUPUESTO DATE, FECHA_PRESUPUESTO DATE,
FECHA_DECISION DATE, FECHA_DECISION DATE,
SITUACION VARCHAR(255), SITUACION VARCHAR(255),
@ -2209,6 +2210,7 @@ CREATE VIEW V_PRESUPUESTOS_CLIENTE(
FECHA_PRESUPUESTO, FECHA_PRESUPUESTO,
FECHA_DECISION, FECHA_DECISION,
REFERENCIA, REFERENCIA,
REFERENCIA_AUX,
SITUACION, SITUACION,
ID_CLIENTE, ID_CLIENTE,
NIF_CIF, NIF_CIF,
@ -2239,6 +2241,7 @@ SELECT
PRESUPUESTOS_CLIENTE.FECHA_PRESUPUESTO, PRESUPUESTOS_CLIENTE.FECHA_PRESUPUESTO,
PRESUPUESTOS_CLIENTE.FECHA_DECISION, PRESUPUESTOS_CLIENTE.FECHA_DECISION,
PRESUPUESTOS_CLIENTE.REFERENCIA, PRESUPUESTOS_CLIENTE.REFERENCIA,
PRESUPUESTOS_CLIENTE.REFERENCIA_AUX,
PRESUPUESTOS_CLIENTE.SITUACION, PRESUPUESTOS_CLIENTE.SITUACION,
PRESUPUESTOS_CLIENTE.ID_CLIENTE, PRESUPUESTOS_CLIENTE.ID_CLIENTE,
V_CLIENTES.NIF_CIF, V_CLIENTES.NIF_CIF,

5
Source/Modulos/Presupuestos de cliente/Data/uDataModulePresupuestosCliente.dfm
View File

@ -59,6 +59,11 @@ inherited DataModulePresupuestosCliente: TDataModulePresupuestosCliente
DisplayLabel = 'Referencia' DisplayLabel = 'Referencia'
DictionaryEntry = 'PresupuestosCliente_REFERENCIA' DictionaryEntry = 'PresupuestosCliente_REFERENCIA'
end end
item
Name = 'REFERENCIA_AUX'
DataType = datString
Size = 255
end
item item
Name = 'SITUACION' Name = 'SITUACION'
DataType = datString DataType = datString

4
Source/Modulos/Presupuestos de cliente/Model/PresupuestosCliente_model.dpk
View File

@ -39,7 +39,7 @@ contains
uBizDetallesPresupuestoCliente in 'uBizDetallesPresupuestoCliente.pas', uBizDetallesPresupuestoCliente in 'uBizDetallesPresupuestoCliente.pas',
uBizPresupuestosCliente in 'uBizPresupuestosCliente.pas', uBizPresupuestosCliente in 'uBizPresupuestosCliente.pas',
uIDataModulePresupuestosClienteReport in 'Data\uIDataModulePresupuestosClienteReport.pas', uIDataModulePresupuestosClienteReport in 'Data\uIDataModulePresupuestosClienteReport.pas',
schPresupuestosClienteServer_Intf in 'schPresupuestosClienteServer_Intf.pas', schPresupuestosClienteClient_Intf in 'schPresupuestosClienteClient_Intf.pas',
schPresupuestosClienteClient_Intf in 'schPresupuestosClienteClient_Intf.pas'; schPresupuestosClienteServer_Intf in 'schPresupuestosClienteServer_Intf.pas';
end. end.

18
Source/Modulos/Presupuestos de cliente/Model/PresupuestosCliente_model.dproj
View File

@ -52,25 +52,25 @@
<DelphiCompile Include="PresupuestosCliente_model.dpk"> <DelphiCompile Include="PresupuestosCliente_model.dpk">
<MainSource>MainSource</MainSource> <MainSource>MainSource</MainSource>
</DelphiCompile> </DelphiCompile>
<DCCReference Include="..\adortl.dcp" /> <DCCReference Include="adortl.dcp" />
<DCCReference Include="..\Base.dcp" /> <DCCReference Include="Base.dcp" />
<DCCReference Include="..\Contactos_model.dcp" /> <DCCReference Include="Contactos_model.dcp" />
<DCCReference Include="..\dbrtl.dcp" />
<DCCReference Include="..\dsnap.dcp" />
<DCCReference Include="..\rtl.dcp" />
<DCCReference Include="..\vcl.dcp" />
<DCCReference Include="..\vcldb.dcp" />
<DCCReference Include="Data\uIDataModulePresupuestosCliente.pas" /> <DCCReference Include="Data\uIDataModulePresupuestosCliente.pas" />
<DCCReference Include="Data\uIDataModulePresupuestosClienteReport.pas" /> <DCCReference Include="Data\uIDataModulePresupuestosClienteReport.pas" />
<DCCReference Include="dbrtl.dcp" />
<DCCReference Include="dsnap.dcp" />
<DCCReference Include="rtl.dcp" />
<DCCReference Include="schPresupuestosClienteClient_Intf.pas" /> <DCCReference Include="schPresupuestosClienteClient_Intf.pas" />
<DCCReference Include="schPresupuestosClienteServer_Intf.pas" /> <DCCReference Include="schPresupuestosClienteServer_Intf.pas" />
<DCCReference Include="uBizDetallesPresupuestoCliente.pas" /> <DCCReference Include="uBizDetallesPresupuestoCliente.pas" />
<DCCReference Include="uBizPresupuestosCliente.pas" /> <DCCReference Include="uBizPresupuestosCliente.pas" />
<DCCReference Include="vcl.dcp" />
<DCCReference Include="vcldb.dcp" />
</ItemGroup> </ItemGroup>
</Project> </Project>
<!-- EurekaLog First Line <!-- EurekaLog First Line
[Exception Log] [Exception Log]
EurekaLog Version=6006 EurekaLog Version=6011
Activate=1 Activate=1
Activate Handle=1 Activate Handle=1
Save Log File=1 Save Log File=1

89
Source/Modulos/Presupuestos de cliente/Model/schPresupuestosClienteClient_Intf.pas
View File

@ -9,8 +9,8 @@ const
{ Data table rules ids { Data table rules ids
Feel free to change them to something more human readable Feel free to change them to something more human readable
but make sure they are unique in the context of your application } but make sure they are unique in the context of your application }
RID_PresupuestosCliente = '{07B92F91-B78B-48C3-A022-A9DFF963F681}'; RID_PresupuestosCliente = '{94236A84-1D4D-4C03-8863-F1A5ABC6DE7E}';
RID_PresupuestosCliente_Detalles = '{52E490B1-0AFF-4BBA-BA6A-CF8B547AFC33}'; RID_PresupuestosCliente_Detalles = '{9FAA114D-94F9-4451-89F0-067F52ED606D}';
{ Data table names } { Data table names }
nme_PresupuestosCliente = 'PresupuestosCliente'; nme_PresupuestosCliente = 'PresupuestosCliente';
@ -22,6 +22,7 @@ const
fld_PresupuestosClienteFECHA_PRESUPUESTO = 'FECHA_PRESUPUESTO'; fld_PresupuestosClienteFECHA_PRESUPUESTO = 'FECHA_PRESUPUESTO';
fld_PresupuestosClienteFECHA_DECISION = 'FECHA_DECISION'; fld_PresupuestosClienteFECHA_DECISION = 'FECHA_DECISION';
fld_PresupuestosClienteREFERENCIA = 'REFERENCIA'; fld_PresupuestosClienteREFERENCIA = 'REFERENCIA';
fld_PresupuestosClienteREFERENCIA_AUX = 'REFERENCIA_AUX';
fld_PresupuestosClienteSITUACION = 'SITUACION'; fld_PresupuestosClienteSITUACION = 'SITUACION';
fld_PresupuestosClienteID_CLIENTE = 'ID_CLIENTE'; fld_PresupuestosClienteID_CLIENTE = 'ID_CLIENTE';
fld_PresupuestosClienteNIF_CIF = 'NIF_CIF'; fld_PresupuestosClienteNIF_CIF = 'NIF_CIF';
@ -52,29 +53,30 @@ const
idx_PresupuestosClienteFECHA_PRESUPUESTO = 2; idx_PresupuestosClienteFECHA_PRESUPUESTO = 2;
idx_PresupuestosClienteFECHA_DECISION = 3; idx_PresupuestosClienteFECHA_DECISION = 3;
idx_PresupuestosClienteREFERENCIA = 4; idx_PresupuestosClienteREFERENCIA = 4;
idx_PresupuestosClienteSITUACION = 5; idx_PresupuestosClienteREFERENCIA_AUX = 5;
idx_PresupuestosClienteID_CLIENTE = 6; idx_PresupuestosClienteSITUACION = 6;
idx_PresupuestosClienteNIF_CIF = 7; idx_PresupuestosClienteID_CLIENTE = 7;
idx_PresupuestosClienteNOMBRE = 8; idx_PresupuestosClienteNIF_CIF = 8;
idx_PresupuestosClienteREFERENCIA_CLIENTE = 9; idx_PresupuestosClienteNOMBRE = 9;
idx_PresupuestosClienteCLIENTE_FINAL = 10; idx_PresupuestosClienteREFERENCIA_CLIENTE = 10;
idx_PresupuestosClientePORTADA = 11; idx_PresupuestosClienteCLIENTE_FINAL = 11;
idx_PresupuestosClienteMEMORIA = 12; idx_PresupuestosClientePORTADA = 12;
idx_PresupuestosClienteOBSERVACIONES = 13; idx_PresupuestosClienteMEMORIA = 13;
idx_PresupuestosClienteINCIDENCIAS = 14; idx_PresupuestosClienteOBSERVACIONES = 14;
idx_PresupuestosClienteINCIDENCIAS_ACTIVAS = 15; idx_PresupuestosClienteINCIDENCIAS = 15;
idx_PresupuestosClienteFECHA_ALTA = 16; idx_PresupuestosClienteINCIDENCIAS_ACTIVAS = 16;
idx_PresupuestosClienteFECHA_MODIFICACION = 17; idx_PresupuestosClienteFECHA_ALTA = 17;
idx_PresupuestosClienteUSUARIO = 18; idx_PresupuestosClienteFECHA_MODIFICACION = 18;
idx_PresupuestosClienteIMPORTE_NETO = 19; idx_PresupuestosClienteUSUARIO = 19;
idx_PresupuestosClienteIMPORTE_PORTE = 20; idx_PresupuestosClienteIMPORTE_NETO = 20;
idx_PresupuestosClienteDESCUENTO = 21; idx_PresupuestosClienteIMPORTE_PORTE = 21;
idx_PresupuestosClienteIMPORTE_DESCUENTO = 22; idx_PresupuestosClienteDESCUENTO = 22;
idx_PresupuestosClienteBASE_IMPONIBLE = 23; idx_PresupuestosClienteIMPORTE_DESCUENTO = 23;
idx_PresupuestosClienteIVA = 24; idx_PresupuestosClienteBASE_IMPONIBLE = 24;
idx_PresupuestosClienteIMPORTE_IVA = 25; idx_PresupuestosClienteIVA = 25;
idx_PresupuestosClienteIMPORTE_TOTAL = 26; idx_PresupuestosClienteIMPORTE_IVA = 26;
idx_PresupuestosClienteID_FORMA_PAGO = 27; idx_PresupuestosClienteIMPORTE_TOTAL = 27;
idx_PresupuestosClienteID_FORMA_PAGO = 28;
{ PresupuestosCliente_Detalles fields } { PresupuestosCliente_Detalles fields }
fld_PresupuestosCliente_DetallesID = 'ID'; fld_PresupuestosCliente_DetallesID = 'ID';
@ -111,7 +113,7 @@ const
type type
{ IPresupuestosCliente } { IPresupuestosCliente }
IPresupuestosCliente = interface(IDAStronglyTypedDataTable) IPresupuestosCliente = interface(IDAStronglyTypedDataTable)
['{89129FA5-5437-4FC5-A5F5-C5B6D0E115B1}'] ['{79249950-0D0F-48D8-8C75-C6FA49610190}']
{ Property getters and setters } { Property getters and setters }
function GetIDValue: Integer; function GetIDValue: Integer;
procedure SetIDValue(const aValue: Integer); procedure SetIDValue(const aValue: Integer);
@ -133,6 +135,10 @@ type
procedure SetREFERENCIAValue(const aValue: String); procedure SetREFERENCIAValue(const aValue: String);
function GetREFERENCIAIsNull: Boolean; function GetREFERENCIAIsNull: Boolean;
procedure SetREFERENCIAIsNull(const aValue: Boolean); procedure SetREFERENCIAIsNull(const aValue: Boolean);
function GetREFERENCIA_AUXValue: String;
procedure SetREFERENCIA_AUXValue(const aValue: String);
function GetREFERENCIA_AUXIsNull: Boolean;
procedure SetREFERENCIA_AUXIsNull(const aValue: Boolean);
function GetSITUACIONValue: String; function GetSITUACIONValue: String;
procedure SetSITUACIONValue(const aValue: String); procedure SetSITUACIONValue(const aValue: String);
function GetSITUACIONIsNull: Boolean; function GetSITUACIONIsNull: Boolean;
@ -234,6 +240,8 @@ type
property FECHA_DECISIONIsNull: Boolean read GetFECHA_DECISIONIsNull write SetFECHA_DECISIONIsNull; property FECHA_DECISIONIsNull: Boolean read GetFECHA_DECISIONIsNull write SetFECHA_DECISIONIsNull;
property REFERENCIA: String read GetREFERENCIAValue write SetREFERENCIAValue; property REFERENCIA: String read GetREFERENCIAValue write SetREFERENCIAValue;
property REFERENCIAIsNull: Boolean read GetREFERENCIAIsNull write SetREFERENCIAIsNull; property REFERENCIAIsNull: Boolean read GetREFERENCIAIsNull write SetREFERENCIAIsNull;
property REFERENCIA_AUX: String read GetREFERENCIA_AUXValue write SetREFERENCIA_AUXValue;
property REFERENCIA_AUXIsNull: Boolean read GetREFERENCIA_AUXIsNull write SetREFERENCIA_AUXIsNull;
property SITUACION: String read GetSITUACIONValue write SetSITUACIONValue; property SITUACION: String read GetSITUACIONValue write SetSITUACIONValue;
property SITUACIONIsNull: Boolean read GetSITUACIONIsNull write SetSITUACIONIsNull; property SITUACIONIsNull: Boolean read GetSITUACIONIsNull write SetSITUACIONIsNull;
property ID_CLIENTE: Integer read GetID_CLIENTEValue write SetID_CLIENTEValue; property ID_CLIENTE: Integer read GetID_CLIENTEValue write SetID_CLIENTEValue;
@ -315,6 +323,10 @@ type
procedure SetREFERENCIAValue(const aValue: String); virtual; procedure SetREFERENCIAValue(const aValue: String); virtual;
function GetREFERENCIAIsNull: Boolean; virtual; function GetREFERENCIAIsNull: Boolean; virtual;
procedure SetREFERENCIAIsNull(const aValue: Boolean); virtual; procedure SetREFERENCIAIsNull(const aValue: Boolean); virtual;
function GetREFERENCIA_AUXValue: String; virtual;
procedure SetREFERENCIA_AUXValue(const aValue: String); virtual;
function GetREFERENCIA_AUXIsNull: Boolean; virtual;
procedure SetREFERENCIA_AUXIsNull(const aValue: Boolean); virtual;
function GetSITUACIONValue: String; virtual; function GetSITUACIONValue: String; virtual;
procedure SetSITUACIONValue(const aValue: String); virtual; procedure SetSITUACIONValue(const aValue: String); virtual;
function GetSITUACIONIsNull: Boolean; virtual; function GetSITUACIONIsNull: Boolean; virtual;
@ -415,6 +427,8 @@ type
property FECHA_DECISIONIsNull: Boolean read GetFECHA_DECISIONIsNull write SetFECHA_DECISIONIsNull; property FECHA_DECISIONIsNull: Boolean read GetFECHA_DECISIONIsNull write SetFECHA_DECISIONIsNull;
property REFERENCIA: String read GetREFERENCIAValue write SetREFERENCIAValue; property REFERENCIA: String read GetREFERENCIAValue write SetREFERENCIAValue;
property REFERENCIAIsNull: Boolean read GetREFERENCIAIsNull write SetREFERENCIAIsNull; property REFERENCIAIsNull: Boolean read GetREFERENCIAIsNull write SetREFERENCIAIsNull;
property REFERENCIA_AUX: String read GetREFERENCIA_AUXValue write SetREFERENCIA_AUXValue;
property REFERENCIA_AUXIsNull: Boolean read GetREFERENCIA_AUXIsNull write SetREFERENCIA_AUXIsNull;
property SITUACION: String read GetSITUACIONValue write SetSITUACIONValue; property SITUACION: String read GetSITUACIONValue write SetSITUACIONValue;
property SITUACIONIsNull: Boolean read GetSITUACIONIsNull write SetSITUACIONIsNull; property SITUACIONIsNull: Boolean read GetSITUACIONIsNull write SetSITUACIONIsNull;
property ID_CLIENTE: Integer read GetID_CLIENTEValue write SetID_CLIENTEValue; property ID_CLIENTE: Integer read GetID_CLIENTEValue write SetID_CLIENTEValue;
@ -470,7 +484,7 @@ type
{ IPresupuestosCliente_Detalles } { IPresupuestosCliente_Detalles }
IPresupuestosCliente_Detalles = interface(IDAStronglyTypedDataTable) IPresupuestosCliente_Detalles = interface(IDAStronglyTypedDataTable)
['{5037407C-23C9-4C3D-A12B-66E966AAEB3A}'] ['{E028BA0A-DF1D-4E68-BAA8-5FE7F1E053F4}']
{ Property getters and setters } { Property getters and setters }
function GetIDValue: Integer; function GetIDValue: Integer;
procedure SetIDValue(const aValue: Integer); procedure SetIDValue(const aValue: Integer);
@ -817,6 +831,27 @@ begin
DataTable.Fields[idx_PresupuestosClienteREFERENCIA].AsVariant := Null; DataTable.Fields[idx_PresupuestosClienteREFERENCIA].AsVariant := Null;
end; end;
function TPresupuestosClienteDataTableRules.GetREFERENCIA_AUXValue: String;
begin
result := DataTable.Fields[idx_PresupuestosClienteREFERENCIA_AUX].AsString;
end;
procedure TPresupuestosClienteDataTableRules.SetREFERENCIA_AUXValue(const aValue: String);
begin
DataTable.Fields[idx_PresupuestosClienteREFERENCIA_AUX].AsString := aValue;
end;
function TPresupuestosClienteDataTableRules.GetREFERENCIA_AUXIsNull: boolean;
begin
result := DataTable.Fields[idx_PresupuestosClienteREFERENCIA_AUX].IsNull;
end;
procedure TPresupuestosClienteDataTableRules.SetREFERENCIA_AUXIsNull(const aValue: Boolean);
begin
if aValue then
DataTable.Fields[idx_PresupuestosClienteREFERENCIA_AUX].AsVariant := Null;
end;
function TPresupuestosClienteDataTableRules.GetSITUACIONValue: String; function TPresupuestosClienteDataTableRules.GetSITUACIONValue: String;
begin begin
result := DataTable.Fields[idx_PresupuestosClienteSITUACION].AsString; result := DataTable.Fields[idx_PresupuestosClienteSITUACION].AsString;

51
Source/Modulos/Presupuestos de cliente/Model/schPresupuestosClienteServer_Intf.pas
View File

@ -9,19 +9,20 @@ const
{ Delta rules ids { Delta rules ids
Feel free to change them to something more human readable Feel free to change them to something more human readable
but make sure they are unique in the context of your application } but make sure they are unique in the context of your application }
RID_PresupuestosClienteDelta = '{33FBE0A4-6909-4581-81D2-E8717839296B}'; RID_PresupuestosClienteDelta = '{29052B55-642A-49D3-B556-B60088C1133B}';
RID_PresupuestosCliente_DetallesDelta = '{F84CCA1D-138D-4516-818D-EE1757D249B1}'; RID_PresupuestosCliente_DetallesDelta = '{5223CE51-3EA9-4F61-BA3B-6D7B6718C52C}';
type type
{ IPresupuestosClienteDelta } { IPresupuestosClienteDelta }
IPresupuestosClienteDelta = interface(IPresupuestosCliente) IPresupuestosClienteDelta = interface(IPresupuestosCliente)
['{33FBE0A4-6909-4581-81D2-E8717839296B}'] ['{29052B55-642A-49D3-B556-B60088C1133B}']
{ Property getters and setters } { Property getters and setters }
function GetOldIDValue : Integer; function GetOldIDValue : Integer;
function GetOldID_EMPRESAValue : Integer; function GetOldID_EMPRESAValue : Integer;
function GetOldFECHA_PRESUPUESTOValue : DateTime; function GetOldFECHA_PRESUPUESTOValue : DateTime;
function GetOldFECHA_DECISIONValue : DateTime; function GetOldFECHA_DECISIONValue : DateTime;
function GetOldREFERENCIAValue : String; function GetOldREFERENCIAValue : String;
function GetOldREFERENCIA_AUXValue : String;
function GetOldSITUACIONValue : String; function GetOldSITUACIONValue : String;
function GetOldID_CLIENTEValue : Integer; function GetOldID_CLIENTEValue : Integer;
function GetOldNIF_CIFValue : String; function GetOldNIF_CIFValue : String;
@ -52,6 +53,7 @@ type
property OldFECHA_PRESUPUESTO : DateTime read GetOldFECHA_PRESUPUESTOValue; property OldFECHA_PRESUPUESTO : DateTime read GetOldFECHA_PRESUPUESTOValue;
property OldFECHA_DECISION : DateTime read GetOldFECHA_DECISIONValue; property OldFECHA_DECISION : DateTime read GetOldFECHA_DECISIONValue;
property OldREFERENCIA : String read GetOldREFERENCIAValue; property OldREFERENCIA : String read GetOldREFERENCIAValue;
property OldREFERENCIA_AUX : String read GetOldREFERENCIA_AUXValue;
property OldSITUACION : String read GetOldSITUACIONValue; property OldSITUACION : String read GetOldSITUACIONValue;
property OldID_CLIENTE : Integer read GetOldID_CLIENTEValue; property OldID_CLIENTE : Integer read GetOldID_CLIENTEValue;
property OldNIF_CIF : String read GetOldNIF_CIFValue; property OldNIF_CIF : String read GetOldNIF_CIFValue;
@ -120,6 +122,12 @@ type
function GetOldREFERENCIAIsNull: Boolean; virtual; function GetOldREFERENCIAIsNull: Boolean; virtual;
procedure SetREFERENCIAValue(const aValue: String); virtual; procedure SetREFERENCIAValue(const aValue: String); virtual;
procedure SetREFERENCIAIsNull(const aValue: Boolean); virtual; procedure SetREFERENCIAIsNull(const aValue: Boolean); virtual;
function GetREFERENCIA_AUXValue: String; virtual;
function GetREFERENCIA_AUXIsNull: Boolean; virtual;
function GetOldREFERENCIA_AUXValue: String; virtual;
function GetOldREFERENCIA_AUXIsNull: Boolean; virtual;
procedure SetREFERENCIA_AUXValue(const aValue: String); virtual;
procedure SetREFERENCIA_AUXIsNull(const aValue: Boolean); virtual;
function GetSITUACIONValue: String; virtual; function GetSITUACIONValue: String; virtual;
function GetSITUACIONIsNull: Boolean; virtual; function GetSITUACIONIsNull: Boolean; virtual;
function GetOldSITUACIONValue: String; virtual; function GetOldSITUACIONValue: String; virtual;
@ -276,6 +284,10 @@ type
property REFERENCIAIsNull : Boolean read GetREFERENCIAIsNull write SetREFERENCIAIsNull; property REFERENCIAIsNull : Boolean read GetREFERENCIAIsNull write SetREFERENCIAIsNull;
property OldREFERENCIA : String read GetOldREFERENCIAValue; property OldREFERENCIA : String read GetOldREFERENCIAValue;
property OldREFERENCIAIsNull : Boolean read GetOldREFERENCIAIsNull; property OldREFERENCIAIsNull : Boolean read GetOldREFERENCIAIsNull;
property REFERENCIA_AUX : String read GetREFERENCIA_AUXValue write SetREFERENCIA_AUXValue;
property REFERENCIA_AUXIsNull : Boolean read GetREFERENCIA_AUXIsNull write SetREFERENCIA_AUXIsNull;
property OldREFERENCIA_AUX : String read GetOldREFERENCIA_AUXValue;
property OldREFERENCIA_AUXIsNull : Boolean read GetOldREFERENCIA_AUXIsNull;
property SITUACION : String read GetSITUACIONValue write SetSITUACIONValue; property SITUACION : String read GetSITUACIONValue write SetSITUACIONValue;
property SITUACIONIsNull : Boolean read GetSITUACIONIsNull write SetSITUACIONIsNull; property SITUACIONIsNull : Boolean read GetSITUACIONIsNull write SetSITUACIONIsNull;
property OldSITUACION : String read GetOldSITUACIONValue; property OldSITUACION : String read GetOldSITUACIONValue;
@ -377,7 +389,7 @@ type
{ IPresupuestosCliente_DetallesDelta } { IPresupuestosCliente_DetallesDelta }
IPresupuestosCliente_DetallesDelta = interface(IPresupuestosCliente_Detalles) IPresupuestosCliente_DetallesDelta = interface(IPresupuestosCliente_Detalles)
['{F84CCA1D-138D-4516-818D-EE1757D249B1}'] ['{5223CE51-3EA9-4F61-BA3B-6D7B6718C52C}']
{ Property getters and setters } { Property getters and setters }
function GetOldIDValue : Integer; function GetOldIDValue : Integer;
function GetOldID_PRESUPUESTOValue : Integer; function GetOldID_PRESUPUESTOValue : Integer;
@ -774,6 +786,37 @@ begin
BusinessProcessor.CurrentChange.NewValueByName[fld_PresupuestosClienteREFERENCIA] := Null; BusinessProcessor.CurrentChange.NewValueByName[fld_PresupuestosClienteREFERENCIA] := Null;
end; end;
function TPresupuestosClienteBusinessProcessorRules.GetREFERENCIA_AUXValue: String;
begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_PresupuestosClienteREFERENCIA_AUX];
end;
function TPresupuestosClienteBusinessProcessorRules.GetREFERENCIA_AUXIsNull: Boolean;
begin
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_PresupuestosClienteREFERENCIA_AUX]);
end;
function TPresupuestosClienteBusinessProcessorRules.GetOldREFERENCIA_AUXValue: String;
begin
result := BusinessProcessor.CurrentChange.OldValueByName[fld_PresupuestosClienteREFERENCIA_AUX];
end;
function TPresupuestosClienteBusinessProcessorRules.GetOldREFERENCIA_AUXIsNull: Boolean;
begin
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_PresupuestosClienteREFERENCIA_AUX]);
end;
procedure TPresupuestosClienteBusinessProcessorRules.SetREFERENCIA_AUXValue(const aValue: String);
begin
BusinessProcessor.CurrentChange.NewValueByName[fld_PresupuestosClienteREFERENCIA_AUX] := aValue;
end;
procedure TPresupuestosClienteBusinessProcessorRules.SetREFERENCIA_AUXIsNull(const aValue: Boolean);
begin
if aValue then
BusinessProcessor.CurrentChange.NewValueByName[fld_PresupuestosClienteREFERENCIA_AUX] := Null;
end;
function TPresupuestosClienteBusinessProcessorRules.GetSITUACIONValue: String; function TPresupuestosClienteBusinessProcessorRules.GetSITUACIONValue: String;
begin begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_PresupuestosClienteSITUACION]; result := BusinessProcessor.CurrentChange.NewValueByName[fld_PresupuestosClienteSITUACION];

72
Source/Modulos/Presupuestos de cliente/Servidor/srvPresupuestosCliente_Impl.dfm
View File

@ -132,6 +132,10 @@ object srvPresupuestosCliente: TsrvPresupuestosCliente
item item
DatasetField = 'ID_FORMA_PAGO' DatasetField = 'ID_FORMA_PAGO'
TableField = 'ID_FORMA_PAGO' TableField = 'ID_FORMA_PAGO'
end
item
DatasetField = 'REFERENCIA_AUX'
TableField = 'REFERENCIA_AUX'
end> end>
end> end>
Name = 'PresupuestosCliente' Name = 'PresupuestosCliente'
@ -165,6 +169,11 @@ object srvPresupuestosCliente: TsrvPresupuestosCliente
Size = 255 Size = 255
DictionaryEntry = 'PresupuestosCliente_REFERENCIA' DictionaryEntry = 'PresupuestosCliente_REFERENCIA'
end end
item
Name = 'REFERENCIA_AUX'
DataType = datString
Size = 255
end
item item
Name = 'SITUACION' Name = 'SITUACION'
DataType = datString DataType = datString
@ -456,8 +465,6 @@ object srvPresupuestosCliente: TsrvPresupuestosCliente
Params = < Params = <
item item
Name = 'ID' Name = 'ID'
DataType = datAutoInc
GeneratorName = 'GEN_PRESUPUESTOS_CLI_ID'
Value = '' Value = ''
end end
item item
@ -476,6 +483,10 @@ object srvPresupuestosCliente: TsrvPresupuestosCliente
Name = 'REFERENCIA' Name = 'REFERENCIA'
Value = '' Value = ''
end end
item
Name = 'REFERENCIA_AUX'
Value = ''
end
item item
Name = 'SITUACION' Name = 'SITUACION'
Value = '' Value = ''
@ -567,19 +578,19 @@ object srvPresupuestosCliente: TsrvPresupuestosCliente
TargetTable = 'PRESUPUESTOS_CLIENTE' TargetTable = 'PRESUPUESTOS_CLIENTE'
SQL = SQL =
'INSERT'#10' INTO PRESUPUESTOS_CLIENTE'#10' (ID, ID_EMPRESA, FECHA_PR' + 'INSERT'#10' INTO PRESUPUESTOS_CLIENTE'#10' (ID, ID_EMPRESA, FECHA_PR' +
'ESUPUESTO, FECHA_DECISION, REFERENCIA,'#10' SITUACION, ID_CLIENT' + 'ESUPUESTO, FECHA_DECISION, REFERENCIA,'#10' REFERENCIA_AUX, SITU' +
'E, REFERENCIA_CLIENTE,'#10' CLIENTE_FINAL, PORTADA, MEMORIA, OBS' + 'ACION, ID_CLIENTE, REFERENCIA_CLIENTE,'#10' CLIENTE_FINAL, PORTA' +
'ERVACIONES, INCIDENCIAS, '#10' INCIDENCIAS_ACTIVAS, FECHA_ALTA, ' + 'DA, MEMORIA, OBSERVACIONES, INCIDENCIAS, '#10' INCIDENCIAS_ACTIV' +
'FECHA_MODIFICACION, '#10' USUARIO, IMPORTE_NETO, IMPORTE_PORTE, ' + 'AS, FECHA_ALTA, FECHA_MODIFICACION, '#10' USUARIO, IMPORTE_NETO,' +
'DESCUENTO, IMPORTE_DESCUENTO, '#10' BASE_IMPONIBLE, IVA, IMPORTE' + ' IMPORTE_PORTE, DESCUENTO, IMPORTE_DESCUENTO, '#10' BASE_IMPONIB' +
'_IVA, IMPORTE_TOTAL, ID_FORMA_PAGO)'#10' VALUES'#10' (:ID, :ID_EMPRE' + 'LE, IVA, IMPORTE_IVA, IMPORTE_TOTAL, ID_FORMA_PAGO)'#10' VALUES'#10' ' +
'SA, :FECHA_PRESUPUESTO, :FECHA_DECISION, :REFERENCIA,'#10' :SITU' + ' (:ID, :ID_EMPRESA, :FECHA_PRESUPUESTO, :FECHA_DECISION, :REFERE' +
'ACION, :ID_CLIENTE, :REFERENCIA_CLIENTE,'#10' :CLIENTE_FINAL, :P' + 'NCIA,'#10' :REFERENCIA_AUX, :SITUACION, :ID_CLIENTE, :REFERENCIA' +
'ORTADA, :MEMORIA, :OBSERVACIONES, '#10' :INCIDENCIAS, :INCIDENCI' + '_CLIENTE,'#10' :CLIENTE_FINAL, :PORTADA, :MEMORIA, :OBSERVACIONE' +
'AS_ACTIVAS, :FECHA_ALTA, :FECHA_MODIFICACION, '#10' :USUARIO, :I' + 'S, '#10' :INCIDENCIAS, :INCIDENCIAS_ACTIVAS, :FECHA_ALTA, :FECHA' +
'MPORTE_NETO, :IMPORTE_PORTE, :DESCUENTO, '#10' :IMPORTE_DESCUENT' + '_MODIFICACION, '#10' :USUARIO, :IMPORTE_NETO, :IMPORTE_PORTE, :D' +
'O, :BASE_IMPONIBLE, :IVA, :IMPORTE_IVA, '#10' :IMPORTE_TOTAL, :I' + 'ESCUENTO, '#10' :IMPORTE_DESCUENTO, :BASE_IMPONIBLE, :IVA, :IMPO' +
'D_FORMA_PAGO)'#10 'RTE_IVA, '#10' :IMPORTE_TOTAL, :ID_FORMA_PAGO)'#10
StatementType = stSQL StatementType = stSQL
ColumnMappings = <> ColumnMappings = <>
end> end>
@ -609,8 +620,6 @@ object srvPresupuestosCliente: TsrvPresupuestosCliente
Params = < Params = <
item item
Name = 'ID' Name = 'ID'
DataType = datAutoInc
GeneratorName = 'GEN_PRESUPUESTOS_CLI_ID'
Value = '' Value = ''
end end
item item
@ -629,6 +638,10 @@ object srvPresupuestosCliente: TsrvPresupuestosCliente
Name = 'REFERENCIA' Name = 'REFERENCIA'
Value = '' Value = ''
end end
item
Name = 'REFERENCIA_AUX'
Value = ''
end
item item
Name = 'SITUACION' Name = 'SITUACION'
Value = '' Value = ''
@ -726,18 +739,19 @@ object srvPresupuestosCliente: TsrvPresupuestosCliente
'UPDATE PRESUPUESTOS_CLIENTE'#10' SET '#10' ID = :ID,'#10' ID_EMPRESA ' + 'UPDATE PRESUPUESTOS_CLIENTE'#10' SET '#10' ID = :ID,'#10' ID_EMPRESA ' +
'= :ID_EMPRESA, '#10' FECHA_PRESUPUESTO = :FECHA_PRESUPUESTO, '#10' ' + '= :ID_EMPRESA, '#10' FECHA_PRESUPUESTO = :FECHA_PRESUPUESTO, '#10' ' +
' FECHA_DECISION = :FECHA_DECISION, '#10' REFERENCIA = :REFERENCIA' + ' FECHA_DECISION = :FECHA_DECISION, '#10' REFERENCIA = :REFERENCIA' +
', '#10' SITUACION = :SITUACION, '#10' ID_CLIENTE = :ID_CLIENTE, '#10' ' + ', '#10' REFERENCIA_AUX = :REFERENCIA_AUX,'#10' SITUACION = :SITUAC' +
' REFERENCIA_CLIENTE = :REFERENCIA_CLIENTE,'#10' CLIENTE_FINAL =' + 'ION, '#10' ID_CLIENTE = :ID_CLIENTE, '#10' REFERENCIA_CLIENTE = :R' +
' :CLIENTE_FINAL, '#10' PORTADA = :PORTADA, '#10' MEMORIA = :MEMORI' + 'EFERENCIA_CLIENTE,'#10' CLIENTE_FINAL = :CLIENTE_FINAL, '#10' PORT' +
'A, '#10' OBSERVACIONES = :OBSERVACIONES, '#10' INCIDENCIAS = :INCI' + 'ADA = :PORTADA, '#10' MEMORIA = :MEMORIA, '#10' OBSERVACIONES = :O' +
'DENCIAS, '#10' INCIDENCIAS_ACTIVAS = :INCIDENCIAS_ACTIVAS, '#10' F' + 'BSERVACIONES, '#10' INCIDENCIAS = :INCIDENCIAS, '#10' INCIDENCIAS_' +
'ECHA_ALTA = :FECHA_ALTA, '#10' FECHA_MODIFICACION = :FECHA_MODIFI' + 'ACTIVAS = :INCIDENCIAS_ACTIVAS, '#10' FECHA_ALTA = :FECHA_ALTA, '#10 +
'CACION, '#10' USUARIO = :USUARIO, '#10' IMPORTE_NETO = :IMPORTE_NE' + ' FECHA_MODIFICACION = :FECHA_MODIFICACION, '#10' USUARIO = :US' +
'TO, '#10' IMPORTE_PORTE = :IMPORTE_PORTE, '#10' DESCUENTO = :DESCU' + 'UARIO, '#10' IMPORTE_NETO = :IMPORTE_NETO, '#10' IMPORTE_PORTE = :' +
'ENTO, '#10' IMPORTE_DESCUENTO = :IMPORTE_DESCUENTO, '#10' BASE_IMP' + 'IMPORTE_PORTE, '#10' DESCUENTO = :DESCUENTO, '#10' IMPORTE_DESCUEN' +
'ONIBLE = :BASE_IMPONIBLE, '#10' IVA = :IVA, '#10' IMPORTE_IVA = :I' + 'TO = :IMPORTE_DESCUENTO, '#10' BASE_IMPONIBLE = :BASE_IMPONIBLE, ' +
'MPORTE_IVA, '#10' IMPORTE_TOTAL = :IMPORTE_TOTAL, '#10' ID_FORMA_P' + #10' IVA = :IVA, '#10' IMPORTE_IVA = :IMPORTE_IVA, '#10' IMPORTE_T' +
'AGO = :ID_FORMA_PAGO'#10' WHERE'#10' (ID = :OLD_ID)'#10 'OTAL = :IMPORTE_TOTAL, '#10' ID_FORMA_PAGO = :ID_FORMA_PAGO'#10' WHE' +
'RE'#10' (ID = :OLD_ID)'#10
StatementType = stSQL StatementType = stSQL
ColumnMappings = <> ColumnMappings = <>
end> end>

166
Source/Modulos/Presupuestos de cliente/Views/uEditorPresupuestoCliente.dfm
View File

@ -147,7 +147,6 @@ inherited fEditorPresupuestoCliente: TfEditorPresupuestoCliente
inherited pgPaginas: TPageControl inherited pgPaginas: TPageControl
Width = 743 Width = 743
Height = 414 Height = 414
ActivePage = pagContenido
TabOrder = 1 TabOrder = 1
OnChange = pgPaginasChange OnChange = pgPaginasChange
ExplicitWidth = 743 ExplicitWidth = 743
@ -161,10 +160,6 @@ inherited fEditorPresupuestoCliente: TfEditorPresupuestoCliente
object pagContenido: TTabSheet object pagContenido: TTabSheet
Caption = 'Contenido' Caption = 'Contenido'
ImageIndex = 1 ImageIndex = 1
ExplicitLeft = 0
ExplicitTop = 0
ExplicitWidth = 0
ExplicitHeight = 0
inline frViewDetallesPresupuestoCliente1: TfrViewDetallesPresupuestoCliente inline frViewDetallesPresupuestoCliente1: TfrViewDetallesPresupuestoCliente
Left = 0 Left = 0
Top = 0 Top = 0
@ -185,104 +180,107 @@ inherited fEditorPresupuestoCliente: TfEditorPresupuestoCliente
ExplicitHeight = 386 ExplicitHeight = 386
inherited ToolBar1: TToolBar inherited ToolBar1: TToolBar
Width = 735 Width = 735
Height = 78 Height = 51
ExplicitWidth = 735 ExplicitWidth = 735
ExplicitHeight = 78 ExplicitHeight = 51
inherited ToolButton4: TToolButton [1] inherited ToolButton3: TToolButton
Left = 109
Top = 0
ExplicitLeft = 109
ExplicitTop = 0
end
inherited ToolButton14: TToolButton [2]
Left = 165
Top = 0
ExplicitLeft = 165
end
inherited FontName: TJvFontComboBox [3]
Left = 230
Top = 0
ExplicitLeft = 230
ExplicitTop = 0
end
inherited FontSize: TEdit [4]
Left = 375
Top = 0
ExplicitLeft = 375
ExplicitTop = 0
end
inherited UpDown1: TUpDown [5]
Left = 417
Top = 0
ExplicitLeft = 417
ExplicitTop = 0
end
inherited ToolButton13: TToolButton [6]
end
inherited ToolButton2: TToolButton [7]
end
inherited ToolButton6: TToolButton [8]
Left = 114
Top = 27
Wrap = False Wrap = False
ExplicitLeft = 114
ExplicitTop = 27
end end
inherited ToolButton7: TToolButton [9] inherited ToolButton4: TToolButton
Left = 180 Left = 278
Top = 27 Top = 0
Wrap = False ExplicitLeft = 278
ExplicitLeft = 180 ExplicitTop = 0
ExplicitTop = 27
end end
inherited ToolButton8: TToolButton [10] inherited ToolButton14: TToolButton [4]
Left = 247 Left = 334
Top = 27 Top = 0
ExplicitLeft = 247 ExplicitLeft = 334
ExplicitTop = 27 ExplicitTop = 0
end end
inherited ToolButton12: TToolButton [11] inherited FontName: TJvFontComboBox [5]
Left = 399
Top = 0
ExplicitLeft = 399
ExplicitTop = 0
end
inherited FontSize: TEdit
Left = 544
Top = 0
Width = 57
ExplicitLeft = 544
ExplicitTop = 0
ExplicitWidth = 57
end
inherited ToolButton13: TToolButton [7]
Left = 0 Left = 0
Top = 27 Top = 0
Wrap = True Wrap = True
ExplicitLeft = 0 ExplicitLeft = 0
ExplicitTop = 27 ExplicitTop = 0
ExplicitHeight = 27 ExplicitHeight = 27
end end
inherited ToolButton9: TToolButton [12] inherited UpDown1: TUpDown [8]
Left = 0 Left = 0
Top = 54 Top = 27
ExplicitLeft = 0 ExplicitLeft = 0
ExplicitTop = 54 ExplicitTop = 27
end end
inherited ToolButton10: TToolButton [13] inherited ToolButton6: TToolButton [9]
Left = 145 Left = 17
Top = 54 Top = 27
ExplicitLeft = 145 ExplicitLeft = 17
ExplicitTop = 54 ExplicitTop = 27
end end
inherited ToolButton3: TToolButton [14] inherited ToolButton7: TToolButton [10]
Left = 270 Left = 83
Top = 54 Top = 27
ExplicitLeft = 270 ExplicitLeft = 83
ExplicitTop = 27
end
inherited ToolButton8: TToolButton [11]
Left = 150
Top = 27
ExplicitLeft = 150
ExplicitTop = 27
end
inherited ToolButton12: TToolButton [12]
Left = 233
Top = 27
Wrap = False
ExplicitLeft = 233
ExplicitTop = 27
ExplicitHeight = 22
end
inherited ToolButton9: TToolButton [13]
Left = 241
Top = 27
ExplicitLeft = 241
ExplicitTop = 27
end
inherited ToolButton10: TToolButton [14]
Left = 386
Top = 27
ExplicitLeft = 386
ExplicitTop = 27
end end
inherited ToolButton11: TToolButton [15] inherited ToolButton11: TToolButton [15]
Left = 325 Left = 511
Top = 54 Top = 27
ExplicitLeft = 325 ExplicitLeft = 511
ExplicitTop = 54 ExplicitTop = 27
end end
end end
inherited cxGrid: TcxGrid inherited cxGrid: TcxGrid
Top = 104 Top = 77
Width = 735 Width = 735
Height = 282 Height = 309
ExplicitTop = 77 ExplicitTop = 77
ExplicitWidth = 735 ExplicitWidth = 735
ExplicitHeight = 309 ExplicitHeight = 309
end end
inherited TBXDock1: TTBXDock inherited TBXDock1: TTBXDock
Top = 78 Top = 51
Width = 735 Width = 735
ExplicitTop = 51 ExplicitTop = 51
ExplicitWidth = 735 ExplicitWidth = 735
@ -295,10 +293,6 @@ inherited fEditorPresupuestoCliente: TfEditorPresupuestoCliente
object pagPortada: TTabSheet object pagPortada: TTabSheet
Caption = 'Portada' Caption = 'Portada'
ImageIndex = 3 ImageIndex = 3
ExplicitLeft = 0
ExplicitTop = 0
ExplicitWidth = 0
ExplicitHeight = 0
object Panel1: TPanel object Panel1: TPanel
Left = 0 Left = 0
Top = 0 Top = 0
@ -430,10 +424,6 @@ inherited fEditorPresupuestoCliente: TfEditorPresupuestoCliente
object pagMemoria: TTabSheet object pagMemoria: TTabSheet
Caption = 'Memoria' Caption = 'Memoria'
ImageIndex = 4 ImageIndex = 4
ExplicitLeft = 0
ExplicitTop = 0
ExplicitWidth = 0
ExplicitHeight = 0
object Panel2: TPanel object Panel2: TPanel
Left = 0 Left = 0
Top = 0 Top = 0
@ -736,10 +726,6 @@ inherited fEditorPresupuestoCliente: TfEditorPresupuestoCliente
object pagInicidencias: TTabSheet object pagInicidencias: TTabSheet
Caption = 'Incidencias' Caption = 'Incidencias'
ImageIndex = 2 ImageIndex = 2
ExplicitLeft = 0
ExplicitTop = 0
ExplicitWidth = 0
ExplicitHeight = 0
inline frViewIncidenciasCli: TfrViewIncidencias inline frViewIncidenciasCli: TfrViewIncidencias
Left = 0 Left = 0
Top = 0 Top = 0

83
Source/Modulos/Presupuestos de cliente/Views/uViewPresupuestoCliente.dfm
View File

@ -37,7 +37,7 @@ inherited frViewPresupuestoCliente: TfrViewPresupuestoCliente
StyleDisabled.LookAndFeel.NativeStyle = True StyleDisabled.LookAndFeel.NativeStyle = True
StyleFocused.LookAndFeel.NativeStyle = True StyleFocused.LookAndFeel.NativeStyle = True
StyleHot.LookAndFeel.NativeStyle = True StyleHot.LookAndFeel.NativeStyle = True
TabOrder = 2 TabOrder = 3
Width = 119 Width = 119
end end
object memObservaciones: TcxDBMemo object memObservaciones: TcxDBMemo
@ -58,7 +58,7 @@ inherited frViewPresupuestoCliente: TfrViewPresupuestoCliente
StyleFocused.LookAndFeel.NativeStyle = True StyleFocused.LookAndFeel.NativeStyle = True
StyleHot.LookAndFeel.Kind = lfStandard StyleHot.LookAndFeel.Kind = lfStandard
StyleHot.LookAndFeel.NativeStyle = True StyleHot.LookAndFeel.NativeStyle = True
TabOrder = 9 TabOrder = 10
Height = 253 Height = 253
Width = 186 Width = 186
end end
@ -69,7 +69,7 @@ inherited frViewPresupuestoCliente: TfrViewPresupuestoCliente
DataBinding.DataField = 'REFERENCIA' DataBinding.DataField = 'REFERENCIA'
DataBinding.DataSource = DADataSource DataBinding.DataSource = DADataSource
Enabled = False Enabled = False
Properties.ReadOnly = False Properties.ReadOnly = True
Properties.ValidateOnEnter = True Properties.ValidateOnEnter = True
Style.BorderColor = clWindowFrame Style.BorderColor = clWindowFrame
Style.BorderStyle = ebs3D Style.BorderStyle = ebs3D
@ -86,10 +86,10 @@ inherited frViewPresupuestoCliente: TfrViewPresupuestoCliente
StyleHot.LookAndFeel.Kind = lfStandard StyleHot.LookAndFeel.Kind = lfStandard
StyleHot.LookAndFeel.NativeStyle = True StyleHot.LookAndFeel.NativeStyle = True
TabOrder = 0 TabOrder = 0
Width = 143 Width = 122
end end
inline frViewClientePresupuesto: TfrViewDatosYSeleccionCliente inline frViewClientePresupuesto: TfrViewDatosYSeleccionCliente
Left = 393 Left = 403
Top = 28 Top = 28
Width = 350 Width = 350
Height = 212 Height = 212
@ -99,9 +99,9 @@ inherited frViewPresupuestoCliente: TfrViewPresupuestoCliente
Font.Name = 'Tahoma' Font.Name = 'Tahoma'
Font.Style = [] Font.Style = []
ParentFont = False ParentFont = False
TabOrder = 8 TabOrder = 9
ReadOnly = False ReadOnly = False
ExplicitLeft = 393 ExplicitLeft = 403
ExplicitTop = 28 ExplicitTop = 28
inherited dxLayoutControl1: TdxLayoutControl inherited dxLayoutControl1: TdxLayoutControl
inherited edtlNombre: TcxDBTextEdit inherited edtlNombre: TcxDBTextEdit
@ -125,12 +125,12 @@ inherited frViewPresupuestoCliente: TfrViewPresupuestoCliente
Width = 327 Width = 327
end end
inherited edtCodigoPostal: TcxDBTextEdit inherited edtCodigoPostal: TcxDBTextEdit
Left = 259 Left = 249
ExplicitLeft = 259 ExplicitLeft = 249
end end
inherited Button3: TBitBtn inherited Button3: TBitBtn
Left = 149 Left = 139
ExplicitLeft = 149 ExplicitLeft = 139
end end
end end
inherited DADataSource: TDADataSource inherited DADataSource: TDADataSource
@ -170,16 +170,16 @@ inherited frViewPresupuestoCliente: TfrViewPresupuestoCliente
StyleFocused.LookAndFeel.NativeStyle = True StyleFocused.LookAndFeel.NativeStyle = True
StyleHot.LookAndFeel.Kind = lfStandard StyleHot.LookAndFeel.Kind = lfStandard
StyleHot.LookAndFeel.NativeStyle = True StyleHot.LookAndFeel.NativeStyle = True
TabOrder = 6 TabOrder = 7
Width = 101 Width = 101
end end
object bFormasPago: TButton object bFormasPago: TButton
Left = 231 Left = 241
Top = 190 Top = 190
Width = 132 Width = 132
Height = 21 Height = 21
Caption = 'Ver las formas de pago...' Caption = 'Ver las formas de pago...'
TabOrder = 7 TabOrder = 8
OnClick = bFormasPagoClick OnClick = bFormasPagoClick
end end
object edtFechaDecision: TcxDBDateEdit object edtFechaDecision: TcxDBDateEdit
@ -201,7 +201,7 @@ inherited frViewPresupuestoCliente: TfrViewPresupuestoCliente
StyleDisabled.LookAndFeel.NativeStyle = True StyleDisabled.LookAndFeel.NativeStyle = True
StyleFocused.LookAndFeel.NativeStyle = True StyleFocused.LookAndFeel.NativeStyle = True
StyleHot.LookAndFeel.NativeStyle = True StyleHot.LookAndFeel.NativeStyle = True
TabOrder = 3 TabOrder = 4
Width = 216 Width = 216
end end
object eRefCliente: TcxDBTextEdit object eRefCliente: TcxDBTextEdit
@ -226,7 +226,7 @@ inherited frViewPresupuestoCliente: TfrViewPresupuestoCliente
StyleFocused.LookAndFeel.NativeStyle = True StyleFocused.LookAndFeel.NativeStyle = True
StyleHot.LookAndFeel.Kind = lfStandard StyleHot.LookAndFeel.Kind = lfStandard
StyleHot.LookAndFeel.NativeStyle = True StyleHot.LookAndFeel.NativeStyle = True
TabOrder = 1 TabOrder = 2
Width = 216 Width = 216
end end
object edtClienteFinal: TcxDBTextEdit object edtClienteFinal: TcxDBTextEdit
@ -251,7 +251,7 @@ inherited frViewPresupuestoCliente: TfrViewPresupuestoCliente
StyleFocused.LookAndFeel.NativeStyle = True StyleFocused.LookAndFeel.NativeStyle = True
StyleHot.LookAndFeel.Kind = lfStandard StyleHot.LookAndFeel.Kind = lfStandard
StyleHot.LookAndFeel.NativeStyle = True StyleHot.LookAndFeel.NativeStyle = True
TabOrder = 5 TabOrder = 6
Width = 227 Width = 227
end end
object cbSituacion: TcxDBImageComboBox object cbSituacion: TcxDBImageComboBox
@ -278,9 +278,34 @@ inherited frViewPresupuestoCliente: TfrViewPresupuestoCliente
StyleDisabled.LookAndFeel.NativeStyle = True StyleDisabled.LookAndFeel.NativeStyle = True
StyleFocused.LookAndFeel.NativeStyle = True StyleFocused.LookAndFeel.NativeStyle = True
StyleHot.LookAndFeel.NativeStyle = True StyleHot.LookAndFeel.NativeStyle = True
TabOrder = 4 TabOrder = 5
Width = 121 Width = 121
end end
object eReferenciaAux: TcxDBTextEdit
Left = 245
Top = 28
Anchors = [akLeft, akTop, akRight]
DataBinding.DataField = 'REFERENCIA_AUX'
DataBinding.DataSource = DADataSource
Properties.ReadOnly = False
Properties.ValidateOnEnter = True
Style.BorderColor = clWindowFrame
Style.BorderStyle = ebs3D
Style.Color = clWindow
Style.HotTrack = False
Style.LookAndFeel.Kind = lfStandard
Style.LookAndFeel.NativeStyle = True
StyleDisabled.Color = clMenuBar
StyleDisabled.LookAndFeel.Kind = lfStandard
StyleDisabled.LookAndFeel.NativeStyle = True
StyleDisabled.TextColor = clWindowText
StyleFocused.LookAndFeel.Kind = lfStandard
StyleFocused.LookAndFeel.NativeStyle = True
StyleHot.LookAndFeel.Kind = lfStandard
StyleHot.LookAndFeel.NativeStyle = True
TabOrder = 1
Width = 132
end
object dxLayoutControl1Group_Root: TdxLayoutGroup object dxLayoutControl1Group_Root: TdxLayoutGroup
ShowCaption = False ShowCaption = False
Hidden = True Hidden = True
@ -294,10 +319,24 @@ inherited frViewPresupuestoCliente: TfrViewPresupuestoCliente
AutoAligns = [] AutoAligns = []
AlignHorz = ahClient AlignHorz = ahClient
Caption = 'Datos del presupuesto' Caption = 'Datos del presupuesto'
object dxLayoutControl1Item3: TdxLayoutItem object dxLayoutControl1Group3: TdxLayoutGroup
Caption = 'Referencia:' ShowCaption = False
Control = eReferencia Hidden = True
ControlOptions.ShowBorder = False LayoutDirection = ldHorizontal
ShowBorder = False
object dxLayoutControl1Item3: TdxLayoutItem
AutoAligns = [aaVertical]
AlignHorz = ahClient
Caption = 'Referencia:'
Control = eReferencia
ControlOptions.ShowBorder = False
end
object dxLayoutControl1Item9: TdxLayoutItem
AutoAligns = [aaVertical]
AlignHorz = ahClient
Control = eReferenciaAux
ControlOptions.ShowBorder = False
end
end end
object dxLayoutControl1Item15: TdxLayoutItem object dxLayoutControl1Item15: TdxLayoutItem
Caption = 'Ref. cliente:' Caption = 'Ref. cliente:'

3
Source/Modulos/Presupuestos de cliente/Views/uViewPresupuestoCliente.pas
View File

@ -58,6 +58,9 @@ type
edtClienteFinal: TcxDBTextEdit; edtClienteFinal: TcxDBTextEdit;
cbSituacion: TcxDBImageComboBox; cbSituacion: TcxDBImageComboBox;
dxLayoutControl1Item10: TdxLayoutItem; dxLayoutControl1Item10: TdxLayoutItem;
dxLayoutControl1Item9: TdxLayoutItem;
eReferenciaAux: TcxDBTextEdit;
dxLayoutControl1Group3: TdxLayoutGroup;
procedure CustomViewCreate(Sender: TObject); procedure CustomViewCreate(Sender: TObject);
procedure CustomViewDestroy(Sender: TObject); procedure CustomViewDestroy(Sender: TObject);
procedure actElegirDireccionExecute(Sender: TObject); procedure actElegirDireccionExecute(Sender: TObject);