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_CLIENTE TIPO_ID,
REFERENCIA VARCHAR(255),
REFERENCIA_AUX VARCHAR(255),
FECHA_PRESUPUESTO DATE,
FECHA_DECISION DATE,
SITUACION VARCHAR(255),
@ -2209,6 +2210,7 @@ CREATE VIEW V_PRESUPUESTOS_CLIENTE(
FECHA_PRESUPUESTO,
FECHA_DECISION,
REFERENCIA,
REFERENCIA_AUX,
SITUACION,
ID_CLIENTE,
NIF_CIF,
@ -2239,6 +2241,7 @@ SELECT
PRESUPUESTOS_CLIENTE.FECHA_PRESUPUESTO,
PRESUPUESTOS_CLIENTE.FECHA_DECISION,
PRESUPUESTOS_CLIENTE.REFERENCIA,
PRESUPUESTOS_CLIENTE.REFERENCIA_AUX,
PRESUPUESTOS_CLIENTE.SITUACION,
PRESUPUESTOS_CLIENTE.ID_CLIENTE,
V_CLIENTES.NIF_CIF,

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

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

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

@ -39,7 +39,7 @@ contains
uBizDetallesPresupuestoCliente in 'uBizDetallesPresupuestoCliente.pas',
uBizPresupuestosCliente in 'uBizPresupuestosCliente.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.

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

@ -52,25 +52,25 @@
<DelphiCompile Include="PresupuestosCliente_model.dpk">
<MainSource>MainSource</MainSource>
</DelphiCompile>
<DCCReference Include="..\adortl.dcp" />
<DCCReference Include="..\Base.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="adortl.dcp" />
<DCCReference Include="Base.dcp" />
<DCCReference Include="Contactos_model.dcp" />
<DCCReference Include="Data\uIDataModulePresupuestosCliente.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="schPresupuestosClienteServer_Intf.pas" />
<DCCReference Include="uBizDetallesPresupuestoCliente.pas" />
<DCCReference Include="uBizPresupuestosCliente.pas" />
<DCCReference Include="vcl.dcp" />
<DCCReference Include="vcldb.dcp" />
</ItemGroup>
</Project>
<!-- EurekaLog First Line
[Exception Log]
EurekaLog Version=6006
EurekaLog Version=6011
Activate=1
Activate Handle=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
Feel free to change them to something more human readable
but make sure they are unique in the context of your application }
RID_PresupuestosCliente = '{07B92F91-B78B-48C3-A022-A9DFF963F681}';
RID_PresupuestosCliente_Detalles = '{52E490B1-0AFF-4BBA-BA6A-CF8B547AFC33}';
RID_PresupuestosCliente = '{94236A84-1D4D-4C03-8863-F1A5ABC6DE7E}';
RID_PresupuestosCliente_Detalles = '{9FAA114D-94F9-4451-89F0-067F52ED606D}';
{ Data table names }
nme_PresupuestosCliente = 'PresupuestosCliente';
@ -22,6 +22,7 @@ const
fld_PresupuestosClienteFECHA_PRESUPUESTO = 'FECHA_PRESUPUESTO';
fld_PresupuestosClienteFECHA_DECISION = 'FECHA_DECISION';
fld_PresupuestosClienteREFERENCIA = 'REFERENCIA';
fld_PresupuestosClienteREFERENCIA_AUX = 'REFERENCIA_AUX';
fld_PresupuestosClienteSITUACION = 'SITUACION';
fld_PresupuestosClienteID_CLIENTE = 'ID_CLIENTE';
fld_PresupuestosClienteNIF_CIF = 'NIF_CIF';
@ -52,29 +53,30 @@ const
idx_PresupuestosClienteFECHA_PRESUPUESTO = 2;
idx_PresupuestosClienteFECHA_DECISION = 3;
idx_PresupuestosClienteREFERENCIA = 4;
idx_PresupuestosClienteSITUACION = 5;
idx_PresupuestosClienteID_CLIENTE = 6;
idx_PresupuestosClienteNIF_CIF = 7;
idx_PresupuestosClienteNOMBRE = 8;
idx_PresupuestosClienteREFERENCIA_CLIENTE = 9;
idx_PresupuestosClienteCLIENTE_FINAL = 10;
idx_PresupuestosClientePORTADA = 11;
idx_PresupuestosClienteMEMORIA = 12;
idx_PresupuestosClienteOBSERVACIONES = 13;
idx_PresupuestosClienteINCIDENCIAS = 14;
idx_PresupuestosClienteINCIDENCIAS_ACTIVAS = 15;
idx_PresupuestosClienteFECHA_ALTA = 16;
idx_PresupuestosClienteFECHA_MODIFICACION = 17;
idx_PresupuestosClienteUSUARIO = 18;
idx_PresupuestosClienteIMPORTE_NETO = 19;
idx_PresupuestosClienteIMPORTE_PORTE = 20;
idx_PresupuestosClienteDESCUENTO = 21;
idx_PresupuestosClienteIMPORTE_DESCUENTO = 22;
idx_PresupuestosClienteBASE_IMPONIBLE = 23;
idx_PresupuestosClienteIVA = 24;
idx_PresupuestosClienteIMPORTE_IVA = 25;
idx_PresupuestosClienteIMPORTE_TOTAL = 26;
idx_PresupuestosClienteID_FORMA_PAGO = 27;
idx_PresupuestosClienteREFERENCIA_AUX = 5;
idx_PresupuestosClienteSITUACION = 6;
idx_PresupuestosClienteID_CLIENTE = 7;
idx_PresupuestosClienteNIF_CIF = 8;
idx_PresupuestosClienteNOMBRE = 9;
idx_PresupuestosClienteREFERENCIA_CLIENTE = 10;
idx_PresupuestosClienteCLIENTE_FINAL = 11;
idx_PresupuestosClientePORTADA = 12;
idx_PresupuestosClienteMEMORIA = 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_PresupuestosClienteIVA = 25;
idx_PresupuestosClienteIMPORTE_IVA = 26;
idx_PresupuestosClienteIMPORTE_TOTAL = 27;
idx_PresupuestosClienteID_FORMA_PAGO = 28;
{ PresupuestosCliente_Detalles fields }
fld_PresupuestosCliente_DetallesID = 'ID';
@ -111,7 +113,7 @@ const
type
{ IPresupuestosCliente }
IPresupuestosCliente = interface(IDAStronglyTypedDataTable)
['{89129FA5-5437-4FC5-A5F5-C5B6D0E115B1}']
['{79249950-0D0F-48D8-8C75-C6FA49610190}']
{ Property getters and setters }
function GetIDValue: Integer;
procedure SetIDValue(const aValue: Integer);
@ -133,6 +135,10 @@ type
procedure SetREFERENCIAValue(const aValue: String);
function GetREFERENCIAIsNull: 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;
procedure SetSITUACIONValue(const aValue: String);
function GetSITUACIONIsNull: Boolean;
@ -234,6 +240,8 @@ type
property FECHA_DECISIONIsNull: Boolean read GetFECHA_DECISIONIsNull write SetFECHA_DECISIONIsNull;
property REFERENCIA: String read GetREFERENCIAValue write SetREFERENCIAValue;
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 SITUACIONIsNull: Boolean read GetSITUACIONIsNull write SetSITUACIONIsNull;
property ID_CLIENTE: Integer read GetID_CLIENTEValue write SetID_CLIENTEValue;
@ -315,6 +323,10 @@ type
procedure SetREFERENCIAValue(const aValue: String); virtual;
function GetREFERENCIAIsNull: 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;
procedure SetSITUACIONValue(const aValue: String); virtual;
function GetSITUACIONIsNull: Boolean; virtual;
@ -415,6 +427,8 @@ type
property FECHA_DECISIONIsNull: Boolean read GetFECHA_DECISIONIsNull write SetFECHA_DECISIONIsNull;
property REFERENCIA: String read GetREFERENCIAValue write SetREFERENCIAValue;
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 SITUACIONIsNull: Boolean read GetSITUACIONIsNull write SetSITUACIONIsNull;
property ID_CLIENTE: Integer read GetID_CLIENTEValue write SetID_CLIENTEValue;
@ -470,7 +484,7 @@ type
{ IPresupuestosCliente_Detalles }
IPresupuestosCliente_Detalles = interface(IDAStronglyTypedDataTable)
['{5037407C-23C9-4C3D-A12B-66E966AAEB3A}']
['{E028BA0A-DF1D-4E68-BAA8-5FE7F1E053F4}']
{ Property getters and setters }
function GetIDValue: Integer;
procedure SetIDValue(const aValue: Integer);
@ -817,6 +831,27 @@ begin
DataTable.Fields[idx_PresupuestosClienteREFERENCIA].AsVariant := Null;
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;
begin
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
Feel free to change them to something more human readable
but make sure they are unique in the context of your application }
RID_PresupuestosClienteDelta = '{33FBE0A4-6909-4581-81D2-E8717839296B}';
RID_PresupuestosCliente_DetallesDelta = '{F84CCA1D-138D-4516-818D-EE1757D249B1}';
RID_PresupuestosClienteDelta = '{29052B55-642A-49D3-B556-B60088C1133B}';
RID_PresupuestosCliente_DetallesDelta = '{5223CE51-3EA9-4F61-BA3B-6D7B6718C52C}';
type
{ IPresupuestosClienteDelta }
IPresupuestosClienteDelta = interface(IPresupuestosCliente)
['{33FBE0A4-6909-4581-81D2-E8717839296B}']
['{29052B55-642A-49D3-B556-B60088C1133B}']
{ Property getters and setters }
function GetOldIDValue : Integer;
function GetOldID_EMPRESAValue : Integer;
function GetOldFECHA_PRESUPUESTOValue : DateTime;
function GetOldFECHA_DECISIONValue : DateTime;
function GetOldREFERENCIAValue : String;
function GetOldREFERENCIA_AUXValue : String;
function GetOldSITUACIONValue : String;
function GetOldID_CLIENTEValue : Integer;
function GetOldNIF_CIFValue : String;
@ -52,6 +53,7 @@ type
property OldFECHA_PRESUPUESTO : DateTime read GetOldFECHA_PRESUPUESTOValue;
property OldFECHA_DECISION : DateTime read GetOldFECHA_DECISIONValue;
property OldREFERENCIA : String read GetOldREFERENCIAValue;
property OldREFERENCIA_AUX : String read GetOldREFERENCIA_AUXValue;
property OldSITUACION : String read GetOldSITUACIONValue;
property OldID_CLIENTE : Integer read GetOldID_CLIENTEValue;
property OldNIF_CIF : String read GetOldNIF_CIFValue;
@ -120,6 +122,12 @@ type
function GetOldREFERENCIAIsNull: Boolean; virtual;
procedure SetREFERENCIAValue(const aValue: String); 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 GetSITUACIONIsNull: Boolean; virtual;
function GetOldSITUACIONValue: String; virtual;
@ -276,6 +284,10 @@ type
property REFERENCIAIsNull : Boolean read GetREFERENCIAIsNull write SetREFERENCIAIsNull;
property OldREFERENCIA : String read GetOldREFERENCIAValue;
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 SITUACIONIsNull : Boolean read GetSITUACIONIsNull write SetSITUACIONIsNull;
property OldSITUACION : String read GetOldSITUACIONValue;
@ -377,7 +389,7 @@ type
{ IPresupuestosCliente_DetallesDelta }
IPresupuestosCliente_DetallesDelta = interface(IPresupuestosCliente_Detalles)
['{F84CCA1D-138D-4516-818D-EE1757D249B1}']
['{5223CE51-3EA9-4F61-BA3B-6D7B6718C52C}']
{ Property getters and setters }
function GetOldIDValue : Integer;
function GetOldID_PRESUPUESTOValue : Integer;
@ -774,6 +786,37 @@ begin
BusinessProcessor.CurrentChange.NewValueByName[fld_PresupuestosClienteREFERENCIA] := Null;
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;
begin
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
DatasetField = 'ID_FORMA_PAGO'
TableField = 'ID_FORMA_PAGO'
end
item
DatasetField = 'REFERENCIA_AUX'
TableField = 'REFERENCIA_AUX'
end>
end>
Name = 'PresupuestosCliente'
@ -165,6 +169,11 @@ object srvPresupuestosCliente: TsrvPresupuestosCliente
Size = 255
DictionaryEntry = 'PresupuestosCliente_REFERENCIA'
end
item
Name = 'REFERENCIA_AUX'
DataType = datString
Size = 255
end
item
Name = 'SITUACION'
DataType = datString
@ -456,8 +465,6 @@ object srvPresupuestosCliente: TsrvPresupuestosCliente
Params = <
item
Name = 'ID'
DataType = datAutoInc
GeneratorName = 'GEN_PRESUPUESTOS_CLI_ID'
Value = ''
end
item
@ -476,6 +483,10 @@ object srvPresupuestosCliente: TsrvPresupuestosCliente
Name = 'REFERENCIA'
Value = ''
end
item
Name = 'REFERENCIA_AUX'
Value = ''
end
item
Name = 'SITUACION'
Value = ''
@ -567,19 +578,19 @@ object srvPresupuestosCliente: TsrvPresupuestosCliente
TargetTable = 'PRESUPUESTOS_CLIENTE'
SQL =
'INSERT'#10' INTO PRESUPUESTOS_CLIENTE'#10' (ID, ID_EMPRESA, FECHA_PR' +
'ESUPUESTO, FECHA_DECISION, REFERENCIA,'#10' SITUACION, ID_CLIENT' +
'E, REFERENCIA_CLIENTE,'#10' CLIENTE_FINAL, PORTADA, MEMORIA, OBS' +
'ERVACIONES, INCIDENCIAS, '#10' INCIDENCIAS_ACTIVAS, FECHA_ALTA, ' +
'FECHA_MODIFICACION, '#10' USUARIO, IMPORTE_NETO, IMPORTE_PORTE, ' +
'DESCUENTO, IMPORTE_DESCUENTO, '#10' BASE_IMPONIBLE, IVA, IMPORTE' +
'_IVA, IMPORTE_TOTAL, ID_FORMA_PAGO)'#10' VALUES'#10' (:ID, :ID_EMPRE' +
'SA, :FECHA_PRESUPUESTO, :FECHA_DECISION, :REFERENCIA,'#10' :SITU' +
'ACION, :ID_CLIENTE, :REFERENCIA_CLIENTE,'#10' :CLIENTE_FINAL, :P' +
'ORTADA, :MEMORIA, :OBSERVACIONES, '#10' :INCIDENCIAS, :INCIDENCI' +
'AS_ACTIVAS, :FECHA_ALTA, :FECHA_MODIFICACION, '#10' :USUARIO, :I' +
'MPORTE_NETO, :IMPORTE_PORTE, :DESCUENTO, '#10' :IMPORTE_DESCUENT' +
'O, :BASE_IMPONIBLE, :IVA, :IMPORTE_IVA, '#10' :IMPORTE_TOTAL, :I' +
'D_FORMA_PAGO)'#10
'ESUPUESTO, FECHA_DECISION, REFERENCIA,'#10' REFERENCIA_AUX, SITU' +
'ACION, ID_CLIENTE, REFERENCIA_CLIENTE,'#10' CLIENTE_FINAL, PORTA' +
'DA, MEMORIA, OBSERVACIONES, INCIDENCIAS, '#10' INCIDENCIAS_ACTIV' +
'AS, FECHA_ALTA, FECHA_MODIFICACION, '#10' USUARIO, IMPORTE_NETO,' +
' IMPORTE_PORTE, DESCUENTO, IMPORTE_DESCUENTO, '#10' BASE_IMPONIB' +
'LE, IVA, IMPORTE_IVA, IMPORTE_TOTAL, ID_FORMA_PAGO)'#10' VALUES'#10' ' +
' (:ID, :ID_EMPRESA, :FECHA_PRESUPUESTO, :FECHA_DECISION, :REFERE' +
'NCIA,'#10' :REFERENCIA_AUX, :SITUACION, :ID_CLIENTE, :REFERENCIA' +
'_CLIENTE,'#10' :CLIENTE_FINAL, :PORTADA, :MEMORIA, :OBSERVACIONE' +
'S, '#10' :INCIDENCIAS, :INCIDENCIAS_ACTIVAS, :FECHA_ALTA, :FECHA' +
'_MODIFICACION, '#10' :USUARIO, :IMPORTE_NETO, :IMPORTE_PORTE, :D' +
'ESCUENTO, '#10' :IMPORTE_DESCUENTO, :BASE_IMPONIBLE, :IVA, :IMPO' +
'RTE_IVA, '#10' :IMPORTE_TOTAL, :ID_FORMA_PAGO)'#10
StatementType = stSQL
ColumnMappings = <>
end>
@ -609,8 +620,6 @@ object srvPresupuestosCliente: TsrvPresupuestosCliente
Params = <
item
Name = 'ID'
DataType = datAutoInc
GeneratorName = 'GEN_PRESUPUESTOS_CLI_ID'
Value = ''
end
item
@ -629,6 +638,10 @@ object srvPresupuestosCliente: TsrvPresupuestosCliente
Name = 'REFERENCIA'
Value = ''
end
item
Name = 'REFERENCIA_AUX'
Value = ''
end
item
Name = 'SITUACION'
Value = ''
@ -726,18 +739,19 @@ object srvPresupuestosCliente: TsrvPresupuestosCliente
'UPDATE PRESUPUESTOS_CLIENTE'#10' SET '#10' ID = :ID,'#10' ID_EMPRESA ' +
'= :ID_EMPRESA, '#10' FECHA_PRESUPUESTO = :FECHA_PRESUPUESTO, '#10' ' +
' FECHA_DECISION = :FECHA_DECISION, '#10' REFERENCIA = :REFERENCIA' +
', '#10' SITUACION = :SITUACION, '#10' ID_CLIENTE = :ID_CLIENTE, '#10' ' +
' REFERENCIA_CLIENTE = :REFERENCIA_CLIENTE,'#10' CLIENTE_FINAL =' +
' :CLIENTE_FINAL, '#10' PORTADA = :PORTADA, '#10' MEMORIA = :MEMORI' +
'A, '#10' OBSERVACIONES = :OBSERVACIONES, '#10' INCIDENCIAS = :INCI' +
'DENCIAS, '#10' INCIDENCIAS_ACTIVAS = :INCIDENCIAS_ACTIVAS, '#10' F' +
'ECHA_ALTA = :FECHA_ALTA, '#10' FECHA_MODIFICACION = :FECHA_MODIFI' +
'CACION, '#10' USUARIO = :USUARIO, '#10' IMPORTE_NETO = :IMPORTE_NE' +
'TO, '#10' IMPORTE_PORTE = :IMPORTE_PORTE, '#10' DESCUENTO = :DESCU' +
'ENTO, '#10' IMPORTE_DESCUENTO = :IMPORTE_DESCUENTO, '#10' BASE_IMP' +
'ONIBLE = :BASE_IMPONIBLE, '#10' IVA = :IVA, '#10' IMPORTE_IVA = :I' +
'MPORTE_IVA, '#10' IMPORTE_TOTAL = :IMPORTE_TOTAL, '#10' ID_FORMA_P' +
'AGO = :ID_FORMA_PAGO'#10' WHERE'#10' (ID = :OLD_ID)'#10
', '#10' REFERENCIA_AUX = :REFERENCIA_AUX,'#10' SITUACION = :SITUAC' +
'ION, '#10' ID_CLIENTE = :ID_CLIENTE, '#10' REFERENCIA_CLIENTE = :R' +
'EFERENCIA_CLIENTE,'#10' CLIENTE_FINAL = :CLIENTE_FINAL, '#10' PORT' +
'ADA = :PORTADA, '#10' MEMORIA = :MEMORIA, '#10' OBSERVACIONES = :O' +
'BSERVACIONES, '#10' INCIDENCIAS = :INCIDENCIAS, '#10' INCIDENCIAS_' +
'ACTIVAS = :INCIDENCIAS_ACTIVAS, '#10' FECHA_ALTA = :FECHA_ALTA, '#10 +
' FECHA_MODIFICACION = :FECHA_MODIFICACION, '#10' USUARIO = :US' +
'UARIO, '#10' IMPORTE_NETO = :IMPORTE_NETO, '#10' IMPORTE_PORTE = :' +
'IMPORTE_PORTE, '#10' DESCUENTO = :DESCUENTO, '#10' IMPORTE_DESCUEN' +
'TO = :IMPORTE_DESCUENTO, '#10' BASE_IMPONIBLE = :BASE_IMPONIBLE, ' +
#10' IVA = :IVA, '#10' IMPORTE_IVA = :IMPORTE_IVA, '#10' IMPORTE_T' +
'OTAL = :IMPORTE_TOTAL, '#10' ID_FORMA_PAGO = :ID_FORMA_PAGO'#10' WHE' +
'RE'#10' (ID = :OLD_ID)'#10
StatementType = stSQL
ColumnMappings = <>
end>

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

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

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

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

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

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