Poder establecer presupuestos no valorados para que no se imprima la baseimponible y demás.

git-svn-id: https://192.168.0.254/svn/Proyectos.Acana_FactuGES2/trunk@471 f4e31baf-9722-1c47-927c-6f952f962d4b
This commit is contained in:
roberto 2009-11-24 12:23:14 +00:00
parent 50affd14ae
commit f7561e63da
20 changed files with 849 additions and 500 deletions

View File

@ -1244,7 +1244,8 @@ CREATE TABLE PRESUPUESTOS_CLIENTE (
RECARGO_EQUIVALENCIA TIPO_BOOLEANO,
RE TIPO_PORCENTAJE,
IMPORTE_RE TIPO_IMPORTE,
ID_CONTRATO TIPO_ID
ID_CONTRATO TIPO_ID ,
NO_VALORADO TIPO_BOOLEANO
);
CREATE TABLE PRESUPUESTOS_CLIENTE_DETALLES (
@ -3635,7 +3636,8 @@ CREATE VIEW V_PRESUPUESTOS_CLIENTE(
ID_VENDEDOR,
VENDEDOR,
ID_CONTRATO,
REF_CONTRATO)
REF_CONTRATO,
NO_VALORADO)
AS
SELECT
PRESUPUESTOS_CLIENTE.ID,
@ -3677,7 +3679,8 @@ SELECT
PRESUPUESTOS_CLIENTE.ID_VENDEDOR,
CONTACTOS2.NOMBRE AS VENDEDOR,
PRESUPUESTOS_CLIENTE.ID_CONTRATO,
CONTRATOS_CLIENTE.REFERENCIA
CONTRATOS_CLIENTE.REFERENCIA,
PRESUPUESTOS_CLIENTE.NO_VALORADO
FROM
PRESUPUESTOS_CLIENTE

View File

@ -58,34 +58,34 @@
<DelphiCompile Include="GUIBase.dpk">
<MainSource>MainSource</MainSource>
</DelphiCompile>
<DCCReference Include="..\Modulos\Comisiones\Base.dcp" />
<DCCReference Include="..\Modulos\Comisiones\ccpackD11.dcp" />
<DCCReference Include="..\Modulos\Comisiones\cxDataD11.dcp" />
<DCCReference Include="..\Modulos\Comisiones\cxEditorsD11.dcp" />
<DCCReference Include="..\Modulos\Comisiones\cxExportD11.dcp" />
<DCCReference Include="..\Modulos\Comisiones\cxLibraryD11.dcp" />
<DCCReference Include="..\Modulos\Comisiones\dbrtl.dcp" />
<DCCReference Include="..\Modulos\Comisiones\dxGDIPlusD11.dcp" />
<DCCReference Include="..\Modulos\Comisiones\dxLayoutControlD11.dcp" />
<DCCReference Include="..\Modulos\Comisiones\dxPScxCommonD11.dcp" />
<DCCReference Include="..\Modulos\Comisiones\dxPScxGrid6LnkD11.dcp" />
<DCCReference Include="..\Modulos\Comisiones\dxThemeD11.dcp" />
<DCCReference Include="..\Modulos\Comisiones\frx11.dcp" />
<DCCReference Include="..\Modulos\Comisiones\frxe11.dcp" />
<DCCReference Include="..\Modulos\Comisiones\fs11.dcp" />
<DCCReference Include="..\Modulos\Comisiones\JvAppFrmD11R.dcp" />
<DCCReference Include="..\Modulos\Comisiones\JvCtrlsD11R.dcp" />
<DCCReference Include="..\Modulos\Comisiones\JvGlobusD11R.dcp" />
<DCCReference Include="..\Modulos\Comisiones\PngComponentsD10.dcp" />
<DCCReference Include="..\Modulos\Comisiones\PNG_D10.dcp" />
<DCCReference Include="..\Modulos\Comisiones\rtl.dcp" />
<DCCReference Include="..\Modulos\Comisiones\tb2k_d10.dcp" />
<DCCReference Include="..\Modulos\Comisiones\tbx_d10.dcp" />
<DCCReference Include="..\Modulos\Comisiones\vcl.dcp" />
<DCCReference Include="..\Modulos\Comisiones\vclactnband.dcp" />
<DCCReference Include="..\Modulos\Comisiones\vcldb.dcp" />
<DCCReference Include="..\Modulos\Comisiones\vcljpg.dcp" />
<DCCReference Include="..\Modulos\Comisiones\vclx.dcp" />
<DCCReference Include="..\Modulos\Presupuestos de cliente\Views\Base.dcp" />
<DCCReference Include="..\Modulos\Presupuestos de cliente\Views\ccpackD11.dcp" />
<DCCReference Include="..\Modulos\Presupuestos de cliente\Views\cxDataD11.dcp" />
<DCCReference Include="..\Modulos\Presupuestos de cliente\Views\cxEditorsD11.dcp" />
<DCCReference Include="..\Modulos\Presupuestos de cliente\Views\cxExportD11.dcp" />
<DCCReference Include="..\Modulos\Presupuestos de cliente\Views\cxLibraryD11.dcp" />
<DCCReference Include="..\Modulos\Presupuestos de cliente\Views\dbrtl.dcp" />
<DCCReference Include="..\Modulos\Presupuestos de cliente\Views\dxGDIPlusD11.dcp" />
<DCCReference Include="..\Modulos\Presupuestos de cliente\Views\dxLayoutControlD11.dcp" />
<DCCReference Include="..\Modulos\Presupuestos de cliente\Views\dxPScxCommonD11.dcp" />
<DCCReference Include="..\Modulos\Presupuestos de cliente\Views\dxPScxGrid6LnkD11.dcp" />
<DCCReference Include="..\Modulos\Presupuestos de cliente\Views\dxThemeD11.dcp" />
<DCCReference Include="..\Modulos\Presupuestos de cliente\Views\frx11.dcp" />
<DCCReference Include="..\Modulos\Presupuestos de cliente\Views\frxe11.dcp" />
<DCCReference Include="..\Modulos\Presupuestos de cliente\Views\fs11.dcp" />
<DCCReference Include="..\Modulos\Presupuestos de cliente\Views\JvAppFrmD11R.dcp" />
<DCCReference Include="..\Modulos\Presupuestos de cliente\Views\JvCtrlsD11R.dcp" />
<DCCReference Include="..\Modulos\Presupuestos de cliente\Views\JvGlobusD11R.dcp" />
<DCCReference Include="..\Modulos\Presupuestos de cliente\Views\PngComponentsD10.dcp" />
<DCCReference Include="..\Modulos\Presupuestos de cliente\Views\PNG_D10.dcp" />
<DCCReference Include="..\Modulos\Presupuestos de cliente\Views\rtl.dcp" />
<DCCReference Include="..\Modulos\Presupuestos de cliente\Views\tb2k_d10.dcp" />
<DCCReference Include="..\Modulos\Presupuestos de cliente\Views\tbx_d10.dcp" />
<DCCReference Include="..\Modulos\Presupuestos de cliente\Views\vcl.dcp" />
<DCCReference Include="..\Modulos\Presupuestos de cliente\Views\vclactnband.dcp" />
<DCCReference Include="..\Modulos\Presupuestos de cliente\Views\vcldb.dcp" />
<DCCReference Include="..\Modulos\Presupuestos de cliente\Views\vcljpg.dcp" />
<DCCReference Include="..\Modulos\Presupuestos de cliente\Views\vclx.dcp" />
<DCCReference Include="uDialogBase.pas">
<Form>fDialogBase</Form>
</DCCReference>

View File

@ -85,6 +85,10 @@ inherited fEditorDBItem: TfEditorDBItem
TabOrder = 2
object pagGeneral: TTabSheet
Caption = 'General'
ExplicitLeft = 0
ExplicitTop = 0
ExplicitWidth = 0
ExplicitHeight = 0
end
end
object PnlComentario: TPanel [4]
@ -103,14 +107,12 @@ inherited fEditorDBItem: TfEditorDBItem
AlignWithMargins = True
Left = 6
Top = 4
Width = 640
Height = 25
Width = 55
Height = 13
Margins.Left = 5
Align = alClient
Caption = 'Comentario'
WordWrap = True
ExplicitWidth = 55
ExplicitHeight = 13
end
end
inherited EditorActionList: TActionList

File diff suppressed because one or more lines are too long

View File

@ -244,6 +244,10 @@ inherited DataModulePresupuestosCliente: TDataModulePresupuestosCliente
Name = 'REF_CONTRATO'
DataType = datString
Size = 255
end
item
Name = 'NO_VALORADO'
DataType = datSmallInt
end>
Params = <>
StreamingOptions = [soDisableEventsWhileStreaming]

View File

@ -3,18 +3,18 @@ unit schPresupuestosClienteClient_Intf;
interface
uses
Classes, DB, schBase_Intf, SysUtils, uROClasses, uDAInterfaces, uDADataTable, FmtBCD, uROXMLIntf;
Classes, DB, SysUtils, uROClasses, uDAInterfaces, uDADataTable, FmtBCD, uROXMLIntf;
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 = '{8F678C89-C84C-491D-88A8-3FA8AA200B7B}';
RID_Propiedades = '{CB86B7AA-E200-4D33-9831-736BBCCD1145}';
RID_ListaAnosPresupuestos = '{953D58F9-E500-46FB-A447-9E4FDB1653E5}';
RID_PresupuestosCliente = '{CAB2C1BC-02C2-4740-BC0E-C80FC7CA0D43}';
RID_CapitulosPresupuesto = '{7BF1E379-4B80-487C-AD64-9DC12F8E4293}';
RID_PresupuestosCliente_Detalles = '{51C04670-8D87-4DFA-8D34-2E8CC96C11AA}';
RID_Valores = '{8A248C45-9A96-4FD6-8BF5-F5DD87468FB0}';
RID_Propiedades = '{62BED4E0-B77C-4391-AC72-1330D1BDDF91}';
RID_ListaAnosPresupuestos = '{18983DA7-37EA-4FE3-9B68-494C2FEDAC97}';
RID_PresupuestosCliente = '{B2A0846C-F3BD-4FE6-A1EB-66480B11C8AE}';
RID_CapitulosPresupuesto = '{CF0AEF82-06DB-47B4-80B2-004C9807E6CA}';
RID_PresupuestosCliente_Detalles = '{4A1E8272-F885-46E3-A4C9-DD07E86A2A49}';
{ Data table names }
nme_Valores = 'Valores';
@ -90,6 +90,7 @@ const
fld_PresupuestosClienteVENDEDOR = 'VENDEDOR';
fld_PresupuestosClienteID_CONTRATO = 'ID_CONTRATO';
fld_PresupuestosClienteREF_CONTRATO = 'REF_CONTRATO';
fld_PresupuestosClienteNO_VALORADO = 'NO_VALORADO';
{ PresupuestosCliente field indexes }
idx_PresupuestosClienteID = 0;
@ -131,6 +132,7 @@ const
idx_PresupuestosClienteVENDEDOR = 36;
idx_PresupuestosClienteID_CONTRATO = 37;
idx_PresupuestosClienteREF_CONTRATO = 38;
idx_PresupuestosClienteNO_VALORADO = 39;
{ CapitulosPresupuesto fields }
fld_CapitulosPresupuestoID = 'ID';
@ -185,7 +187,7 @@ const
type
{ IValores }
IValores = interface(IDAStronglyTypedDataTable)
['{97D666A4-0354-4F3D-8A26-AE1C181A52D0}']
['{FD357A67-C729-46D0-A93B-092D32EF7BD9}']
{ Property getters and setters }
function GetIDValue: Integer;
procedure SetIDValue(const aValue: Integer);
@ -211,7 +213,7 @@ type
end;
{ TValoresDataTableRules }
TValoresDataTableRules = class(TIntfObjectDADataTableRules, IValores)
TValoresDataTableRules = class(TDADataTableRules, IValores)
private
protected
{ Property getters and setters }
@ -244,7 +246,7 @@ type
{ IPropiedades }
IPropiedades = interface(IDAStronglyTypedDataTable)
['{3238E30E-57F0-4C9C-8951-66CCCC70EB77}']
['{55925E9A-70DD-4907-9775-D84ED9DDDC6E}']
{ Property getters and setters }
function GetIDValue: Integer;
procedure SetIDValue(const aValue: Integer);
@ -270,7 +272,7 @@ type
end;
{ TPropiedadesDataTableRules }
TPropiedadesDataTableRules = class(TIntfObjectDADataTableRules, IPropiedades)
TPropiedadesDataTableRules = class(TDADataTableRules, IPropiedades)
private
protected
{ Property getters and setters }
@ -303,7 +305,7 @@ type
{ IListaAnosPresupuestos }
IListaAnosPresupuestos = interface(IDAStronglyTypedDataTable)
['{6AFE2837-CEC0-4DBC-B594-53220DD34736}']
['{D0535709-D00F-4249-9347-0DC816C84FA6}']
{ Property getters and setters }
function GetANOValue: String;
procedure SetANOValue(const aValue: String);
@ -317,7 +319,7 @@ type
end;
{ TListaAnosPresupuestosDataTableRules }
TListaAnosPresupuestosDataTableRules = class(TIntfObjectDADataTableRules, IListaAnosPresupuestos)
TListaAnosPresupuestosDataTableRules = class(TDADataTableRules, IListaAnosPresupuestos)
private
protected
{ Property getters and setters }
@ -338,7 +340,7 @@ type
{ IPresupuestosCliente }
IPresupuestosCliente = interface(IDAStronglyTypedDataTable)
['{6A36C4B0-590E-4B26-8142-7699225805F6}']
['{32E7F691-CD44-4414-B5CF-F20AE6652BBC}']
{ Property getters and setters }
function GetIDValue: Integer;
procedure SetIDValue(const aValue: Integer);
@ -492,6 +494,10 @@ type
procedure SetREF_CONTRATOValue(const aValue: String);
function GetREF_CONTRATOIsNull: Boolean;
procedure SetREF_CONTRATOIsNull(const aValue: Boolean);
function GetNO_VALORADOValue: SmallInt;
procedure SetNO_VALORADOValue(const aValue: SmallInt);
function GetNO_VALORADOIsNull: Boolean;
procedure SetNO_VALORADOIsNull(const aValue: Boolean);
{ Properties }
@ -573,10 +579,12 @@ type
property ID_CONTRATOIsNull: Boolean read GetID_CONTRATOIsNull write SetID_CONTRATOIsNull;
property REF_CONTRATO: String read GetREF_CONTRATOValue write SetREF_CONTRATOValue;
property REF_CONTRATOIsNull: Boolean read GetREF_CONTRATOIsNull write SetREF_CONTRATOIsNull;
property NO_VALORADO: SmallInt read GetNO_VALORADOValue write SetNO_VALORADOValue;
property NO_VALORADOIsNull: Boolean read GetNO_VALORADOIsNull write SetNO_VALORADOIsNull;
end;
{ TPresupuestosClienteDataTableRules }
TPresupuestosClienteDataTableRules = class(TIntfObjectDADataTableRules, IPresupuestosCliente)
TPresupuestosClienteDataTableRules = class(TDADataTableRules, IPresupuestosCliente)
private
f_FORMA_PAGO: IROStrings;
f_PLAZO_ENTREGA: IROStrings;
@ -740,6 +748,10 @@ type
procedure SetREF_CONTRATOValue(const aValue: String); virtual;
function GetREF_CONTRATOIsNull: Boolean; virtual;
procedure SetREF_CONTRATOIsNull(const aValue: Boolean); virtual;
function GetNO_VALORADOValue: SmallInt; virtual;
procedure SetNO_VALORADOValue(const aValue: SmallInt); virtual;
function GetNO_VALORADOIsNull: Boolean; virtual;
procedure SetNO_VALORADOIsNull(const aValue: Boolean); virtual;
{ Properties }
property ID: Integer read GetIDValue write SetIDValue;
@ -820,6 +832,8 @@ type
property ID_CONTRATOIsNull: Boolean read GetID_CONTRATOIsNull write SetID_CONTRATOIsNull;
property REF_CONTRATO: String read GetREF_CONTRATOValue write SetREF_CONTRATOValue;
property REF_CONTRATOIsNull: Boolean read GetREF_CONTRATOIsNull write SetREF_CONTRATOIsNull;
property NO_VALORADO: SmallInt read GetNO_VALORADOValue write SetNO_VALORADOValue;
property NO_VALORADOIsNull: Boolean read GetNO_VALORADOIsNull write SetNO_VALORADOIsNull;
public
constructor Create(aDataTable: TDADataTable); override;
@ -829,7 +843,7 @@ type
{ ICapitulosPresupuesto }
ICapitulosPresupuesto = interface(IDAStronglyTypedDataTable)
['{27538BB0-5AAB-4F43-B48F-7B2E90A73045}']
['{35FC48F2-F977-48FE-A35F-249F1DC30A17}']
{ Property getters and setters }
function GetIDValue: Integer;
procedure SetIDValue(const aValue: Integer);
@ -873,7 +887,7 @@ type
end;
{ TCapitulosPresupuestoDataTableRules }
TCapitulosPresupuestoDataTableRules = class(TIntfObjectDADataTableRules, ICapitulosPresupuesto)
TCapitulosPresupuestoDataTableRules = class(TDADataTableRules, ICapitulosPresupuesto)
private
protected
{ Property getters and setters }
@ -924,7 +938,7 @@ type
{ IPresupuestosCliente_Detalles }
IPresupuestosCliente_Detalles = interface(IDAStronglyTypedDataTable)
['{A5BF3AF5-328E-4F20-8716-0B3844EF7FB5}']
['{7825A33D-23E9-4C85-BF64-35EE17100CE7}']
{ Property getters and setters }
function GetIDValue: Integer;
procedure SetIDValue(const aValue: Integer);
@ -1022,7 +1036,7 @@ type
end;
{ TPresupuestosCliente_DetallesDataTableRules }
TPresupuestosCliente_DetallesDataTableRules = class(TIntfObjectDADataTableRules, IPresupuestosCliente_Detalles)
TPresupuestosCliente_DetallesDataTableRules = class(TDADataTableRules, IPresupuestosCliente_Detalles)
private
protected
{ Property getters and setters }
@ -2164,6 +2178,27 @@ begin
DataTable.Fields[idx_PresupuestosClienteREF_CONTRATO].AsVariant := Null;
end;
function TPresupuestosClienteDataTableRules.GetNO_VALORADOValue: SmallInt;
begin
result := DataTable.Fields[idx_PresupuestosClienteNO_VALORADO].AsSmallInt;
end;
procedure TPresupuestosClienteDataTableRules.SetNO_VALORADOValue(const aValue: SmallInt);
begin
DataTable.Fields[idx_PresupuestosClienteNO_VALORADO].AsSmallInt := aValue;
end;
function TPresupuestosClienteDataTableRules.GetNO_VALORADOIsNull: boolean;
begin
result := DataTable.Fields[idx_PresupuestosClienteNO_VALORADO].IsNull;
end;
procedure TPresupuestosClienteDataTableRules.SetNO_VALORADOIsNull(const aValue: Boolean);
begin
if aValue then
DataTable.Fields[idx_PresupuestosClienteNO_VALORADO].AsVariant := Null;
end;
{ TCapitulosPresupuestoDataTableRules }
constructor TCapitulosPresupuestoDataTableRules.Create(aDataTable: TDADataTable);

View File

@ -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 = '{3304418B-9CEC-4A8E-B46C-B11D0D8F7FB2}';
RID_PropiedadesDelta = '{48FC4878-0972-4697-A1C1-41764D19B4AF}';
RID_ListaAnosPresupuestosDelta = '{F5D7132D-0FCF-47CE-867B-8BA530302FAC}';
RID_PresupuestosClienteDelta = '{7D8F5258-4284-4AA6-BFE7-C03DF174BCC8}';
RID_CapitulosPresupuestoDelta = '{9EA18AF5-5763-4D4D-A195-9152C1058813}';
RID_PresupuestosCliente_DetallesDelta = '{639409C3-40C2-4E80-B232-CC22EBA51DDE}';
RID_ValoresDelta = '{AA9644B7-EC9A-4EA2-8298-3CBC27486E70}';
RID_PropiedadesDelta = '{0EE5CE01-3C2D-4773-AD08-35637A0B76B9}';
RID_ListaAnosPresupuestosDelta = '{2FDFADE5-C92C-417B-AB90-536690A1FAB5}';
RID_PresupuestosClienteDelta = '{2E46BBAA-A0AD-4649-BA55-DF504B40D213}';
RID_CapitulosPresupuestoDelta = '{F15B79D8-0929-4D08-9E3F-3F4FBB9EBD5B}';
RID_PresupuestosCliente_DetallesDelta = '{0D7528AC-6393-4480-868F-8D6CA59F06F4}';
type
{ IValoresDelta }
IValoresDelta = interface(IValores)
['{3304418B-9CEC-4A8E-B46C-B11D0D8F7FB2}']
['{AA9644B7-EC9A-4EA2-8298-3CBC27486E70}']
{ Property getters and setters }
function GetOldIDValue : Integer;
function GetOldID_PROPIEDADValue : Integer;
@ -77,7 +77,7 @@ type
{ IPropiedadesDelta }
IPropiedadesDelta = interface(IPropiedades)
['{48FC4878-0972-4697-A1C1-41764D19B4AF}']
['{0EE5CE01-3C2D-4773-AD08-35637A0B76B9}']
{ Property getters and setters }
function GetOldIDValue : Integer;
function GetOldDESCRIPCIONValue : String;
@ -135,7 +135,7 @@ type
{ IListaAnosPresupuestosDelta }
IListaAnosPresupuestosDelta = interface(IListaAnosPresupuestos)
['{F5D7132D-0FCF-47CE-867B-8BA530302FAC}']
['{2FDFADE5-C92C-417B-AB90-536690A1FAB5}']
{ Property getters and setters }
function GetOldANOValue : String;
@ -169,7 +169,7 @@ type
{ IPresupuestosClienteDelta }
IPresupuestosClienteDelta = interface(IPresupuestosCliente)
['{7D8F5258-4284-4AA6-BFE7-C03DF174BCC8}']
['{2E46BBAA-A0AD-4649-BA55-DF504B40D213}']
{ Property getters and setters }
function GetOldIDValue : Integer;
function GetOldID_EMPRESAValue : Integer;
@ -210,6 +210,7 @@ type
function GetOldVENDEDORValue : String;
function GetOldID_CONTRATOValue : Integer;
function GetOldREF_CONTRATOValue : String;
function GetOldNO_VALORADOValue : SmallInt;
{ Properties }
property OldID : Integer read GetOldIDValue;
@ -251,6 +252,7 @@ type
property OldVENDEDOR : String read GetOldVENDEDORValue;
property OldID_CONTRATO : Integer read GetOldID_CONTRATOValue;
property OldREF_CONTRATO : String read GetOldREF_CONTRATOValue;
property OldNO_VALORADO : SmallInt read GetOldNO_VALORADOValue;
end;
{ TPresupuestosClienteBusinessProcessorRules }
@ -496,6 +498,12 @@ type
function GetOldREF_CONTRATOIsNull: Boolean; virtual;
procedure SetREF_CONTRATOValue(const aValue: String); virtual;
procedure SetREF_CONTRATOIsNull(const aValue: Boolean); virtual;
function GetNO_VALORADOValue: SmallInt; virtual;
function GetNO_VALORADOIsNull: Boolean; virtual;
function GetOldNO_VALORADOValue: SmallInt; virtual;
function GetOldNO_VALORADOIsNull: Boolean; virtual;
procedure SetNO_VALORADOValue(const aValue: SmallInt); virtual;
procedure SetNO_VALORADOIsNull(const aValue: Boolean); virtual;
{ Properties }
property ID : Integer read GetIDValue write SetIDValue;
@ -654,6 +662,10 @@ type
property REF_CONTRATOIsNull : Boolean read GetREF_CONTRATOIsNull write SetREF_CONTRATOIsNull;
property OldREF_CONTRATO : String read GetOldREF_CONTRATOValue;
property OldREF_CONTRATOIsNull : Boolean read GetOldREF_CONTRATOIsNull;
property NO_VALORADO : SmallInt read GetNO_VALORADOValue write SetNO_VALORADOValue;
property NO_VALORADOIsNull : Boolean read GetNO_VALORADOIsNull write SetNO_VALORADOIsNull;
property OldNO_VALORADO : SmallInt read GetOldNO_VALORADOValue;
property OldNO_VALORADOIsNull : Boolean read GetOldNO_VALORADOIsNull;
public
constructor Create(aBusinessProcessor: TDABusinessProcessor); override;
@ -663,7 +675,7 @@ type
{ ICapitulosPresupuestoDelta }
ICapitulosPresupuestoDelta = interface(ICapitulosPresupuesto)
['{9EA18AF5-5763-4D4D-A195-9152C1058813}']
['{F15B79D8-0929-4D08-9E3F-3F4FBB9EBD5B}']
{ Property getters and setters }
function GetOldIDValue : Integer;
function GetOldPOSICIONValue : Integer;
@ -757,7 +769,7 @@ type
{ IPresupuestosCliente_DetallesDelta }
IPresupuestosCliente_DetallesDelta = interface(IPresupuestosCliente_Detalles)
['{639409C3-40C2-4E80-B232-CC22EBA51DDE}']
['{0D7528AC-6393-4480-868F-8D6CA59F06F4}']
{ Property getters and setters }
function GetOldIDValue : Integer;
function GetOldID_PRESUPUESTOValue : Integer;
@ -2461,6 +2473,37 @@ begin
BusinessProcessor.CurrentChange.NewValueByName[fld_PresupuestosClienteREF_CONTRATO] := Null;
end;
function TPresupuestosClienteBusinessProcessorRules.GetNO_VALORADOValue: SmallInt;
begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_PresupuestosClienteNO_VALORADO];
end;
function TPresupuestosClienteBusinessProcessorRules.GetNO_VALORADOIsNull: Boolean;
begin
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_PresupuestosClienteNO_VALORADO]);
end;
function TPresupuestosClienteBusinessProcessorRules.GetOldNO_VALORADOValue: SmallInt;
begin
result := BusinessProcessor.CurrentChange.OldValueByName[fld_PresupuestosClienteNO_VALORADO];
end;
function TPresupuestosClienteBusinessProcessorRules.GetOldNO_VALORADOIsNull: Boolean;
begin
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_PresupuestosClienteNO_VALORADO]);
end;
procedure TPresupuestosClienteBusinessProcessorRules.SetNO_VALORADOValue(const aValue: SmallInt);
begin
BusinessProcessor.CurrentChange.NewValueByName[fld_PresupuestosClienteNO_VALORADO] := aValue;
end;
procedure TPresupuestosClienteBusinessProcessorRules.SetNO_VALORADOIsNull(const aValue: Boolean);
begin
if aValue then
BusinessProcessor.CurrentChange.NewValueByName[fld_PresupuestosClienteNO_VALORADO] := Null;
end;
{ TCapitulosPresupuestoBusinessProcessorRules }
constructor TCapitulosPresupuestoBusinessProcessorRules.Create(aBusinessProcessor: TDABusinessProcessor);

View File

@ -265,7 +265,8 @@ begin
FECHA_PRESUPUESTO := DateOf(Date);
FECHA_VIGENCIA := IncMonth(Date, AppFactuGES.EmpresaActiva.VALIDEZ_PRESUPUESTOS);
NO_VALORADO := 0;
INCIDENCIAS_ACTIVAS := 0;
RE := 0;
REFERENCIA := '';

View File

@ -217,21 +217,20 @@ object RptPresupuestosCliente: TRptPresupuestosCliente
'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#10' V_PRESUPUESTOS_CLIENTE.PERSONA_CONTACTO,'#10' ' +
' V_PRESUPUESTOS_CLIENTE.VENDEDOR'#10'FROM'#10' V_PRESUPUESTOS_CLIEN' +
'TE'#10' INNER JOIN CONTACTOS ON (CONTACTOS.ID = V_PRESUPUESTOS_CL' +
'IENTE.ID_CLIENTE)'#10' LEFT OUTER JOIN CONTACTOS_DIRECCIONES ON (' +
'CONTACTOS_DIRECCIONES.ID = V_PRESUPUESTOS_CLIENTE.ID_DIRECCION)'#10 +
'WHERE'#10' V_PRESUPUESTOS_CLIENTE.ID = :ID'#10
'NTE,'#10' V_PRESUPUESTOS_CLIENTE.NOMBRE, CONTACTOS.TELEFONO_1, CO' +
'NTACTOS.MOVIL_1,'#10' V_PRESUPUESTOS_CLIENTE.IMPORTE_IVA, V_PRESU' +
'PUESTOS_CLIENTE.IMPORTE_TOTAL,'#10' COALESCE(CONTACTOS_DIRECCIONE' +
'S.CALLE, CONTACTOS.CALLE) AS CALLE,'#10' COALESCE(CONTACTOS_DIREC' +
'CIONES.POBLACION, CONTACTOS.POBLACION) AS POBLACION,'#10' COALESC' +
'E(CONTACTOS_DIRECCIONES.PROVINCIA, CONTACTOS.PROVINCIA) AS PROVI' +
'NCIA,'#10' COALESCE(CONTACTOS_DIRECCIONES.CODIGO_POSTAL, CONTACTO' +
'S.CODIGO_POSTAL) AS CODIGO_POSTAL,'#10' V_PRESUPUESTOS_CLIENTE.PE' +
'RSONA_CONTACTO,'#10' V_PRESUPUESTOS_CLIENTE.VENDEDOR, V_PRESUPUES' +
'TOS_CLIENTE.NO_VALORADO'#10'FROM'#10' V_PRESUPUESTOS_CLIENTE'#10' INNE' +
'R JOIN CONTACTOS ON (CONTACTOS.ID = V_PRESUPUESTOS_CLIENTE.ID_CL' +
'IENTE)'#10' LEFT OUTER JOIN CONTACTOS_DIRECCIONES ON (CONTACTOS_D' +
'IRECCIONES.ID = V_PRESUPUESTOS_CLIENTE.ID_DIRECCION)'#10'WHERE'#10' V' +
'_PRESUPUESTOS_CLIENTE.ID = :ID'#10
StatementType = stSQL
ColumnMappings = <
item
@ -351,12 +350,16 @@ object RptPresupuestosCliente: TRptPresupuestosCliente
TableField = 'VENDEDOR'
end
item
DatasetField = 'TELEFONO'
TableField = 'TELEFONO'
DatasetField = 'TELEFONO_1'
TableField = 'TELEFONO_1'
end
item
DatasetField = 'MOVIL'
TableField = 'MOVIL'
DatasetField = 'MOVIL_1'
TableField = 'MOVIL_1'
end
item
DatasetField = 'NO_VALORADO'
TableField = 'NO_VALORADO'
end>
end>
Name = 'Informe_Cabecera'
@ -451,6 +454,16 @@ object RptPresupuestosCliente: TRptPresupuestosCliente
DataType = datString
Size = 255
end
item
Name = 'TELEFONO_1'
DataType = datString
Size = 25
end
item
Name = 'MOVIL_1'
DataType = datString
Size = 25
end
item
Name = 'IMPORTE_IVA'
DataType = datCurrency
@ -479,16 +492,6 @@ object RptPresupuestosCliente: TRptPresupuestosCliente
DataType = datString
Size = 10
end
item
Name = 'TELEFONO'
DataType = datString
Size = 25
end
item
Name = 'MOVIL'
DataType = datString
Size = 25
end
item
Name = 'PERSONA_CONTACTO'
DataType = datString
@ -498,6 +501,10 @@ object RptPresupuestosCliente: TRptPresupuestosCliente
Name = 'VENDEDOR'
DataType = datString
Size = 255
end
item
Name = 'NO_VALORADO'
DataType = datSmallInt
end>
ReadOnly = True
end
@ -859,7 +866,7 @@ object RptPresupuestosCliente: TRptPresupuestosCliente
PrintOptions.Printer = 'Por defecto'
PrintOptions.PrintOnSheet = 0
ReportOptions.CreateDate = 39065.872423495400000000
ReportOptions.LastChange = 40141.433941921300000000
ReportOptions.LastChange = 40122.745990115700000000
ScriptLanguage = 'PascalScript'
ShowProgress = False
StoreInDFM = False
@ -1024,6 +1031,10 @@ object RptPresupuestosCliente: TRptPresupuestosCliente
Name = 'VENDEDOR'
DataType = datString
Size = 255
end
item
Name = 'NO_VALORADO'
DataType = datSmallInt
end>
Params = <
item

View File

@ -291,6 +291,10 @@ object srvPresupuestosCliente: TsrvPresupuestosCliente
item
DatasetField = 'REF_CONTRATO'
TableField = 'REF_CONTRATO'
end
item
DatasetField = 'NO_VALORADO'
TableField = 'NO_VALORADO'
end>
end>
Name = 'PresupuestosCliente'
@ -488,6 +492,10 @@ object srvPresupuestosCliente: TsrvPresupuestosCliente
Name = 'REF_CONTRATO'
DataType = datString
Size = 255
end
item
Name = 'NO_VALORADO'
DataType = datSmallInt
end>
end
item
@ -879,6 +887,11 @@ object srvPresupuestosCliente: TsrvPresupuestosCliente
Name = 'ID_CONTRATO'
DataType = datInteger
Value = ''
end
item
Name = 'NO_VALORADO'
DataType = datSmallInt
Value = ''
end>
Statements = <
item
@ -893,16 +906,16 @@ object srvPresupuestosCliente: TsrvPresupuestosCliente
', FECHA_ALTA, USUARIO, IMPORTE_NETO, IMPORTE_PORTE,'#10' DESCUEN' +
'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)'#10' VALUE' +
'S'#10' (:ID,'#10' :FECHA_PRESUPUESTO, :FECHA_VIGENCIA, :FECHA_DEC' +
'ISION, :REFERENCIA,'#10' :SITUACION, :ID_CLIENTE, :ID_DIRECCION,' +
' :PERSONA_CONTACTO,'#10' :FORMA_PAGO, :PLAZO_ENTREGA, :OBSERVACI' +
'ONES, :INCIDENCIAS,'#10' :INCIDENCIAS_ACTIVAS, CURRENT_TIMESTAMP' +
', :USUARIO, :IMPORTE_NETO, :IMPORTE_PORTE,'#10' :DESCUENTO, :IMP' +
'ORTE_DESCUENTO, :BASE_IMPONIBLE, :ID_TIPO_IVA, :IVA, :IMPORTE_IV' +
'A,'#10' :RE, :IMPORTE_RE, :RECARGO_EQUIVALENCIA, :IMPORTE_TOTAL,' +
' :ID_FORMA_PAGO, :ID_TIENDA, :ID_VENDEDOR,'#10' :ID_CONTRATO)'#10' ' +
' '#10#10#10#10#10
'ID_FORMA_PAGO, ID_TIENDA, ID_VENDEDOR,'#10' ID_CONTRATO, NO_VALO' +
'RADO)'#10' VALUES'#10' (:ID,'#10' :FECHA_PRESUPUESTO, :FECHA_VIGENCI' +
'A, :FECHA_DECISION, :REFERENCIA,'#10' :SITUACION, :ID_CLIENTE, :' +
'ID_DIRECCION, :PERSONA_CONTACTO,'#10' :FORMA_PAGO, :PLAZO_ENTREG' +
'A, :OBSERVACIONES, :INCIDENCIAS,'#10' :INCIDENCIAS_ACTIVAS, CURR' +
'ENT_TIMESTAMP, :USUARIO, :IMPORTE_NETO, :IMPORTE_PORTE,'#10' :DE' +
'SCUENTO, :IMPORTE_DESCUENTO, :BASE_IMPONIBLE, :ID_TIPO_IVA, :IVA' +
', :IMPORTE_IVA,'#10' :RE, :IMPORTE_RE, :RECARGO_EQUIVALENCIA, :I' +
'MPORTE_TOTAL, :ID_FORMA_PAGO, :ID_TIENDA, :ID_VENDEDOR,'#10' :ID' +
'_CONTRATO, :NO_VALORADO)'#10' '#10#10#10#10#10
StatementType = stSQL
ColumnMappings = <>
end>
@ -1074,6 +1087,11 @@ object srvPresupuestosCliente: TsrvPresupuestosCliente
DataType = datInteger
Value = ''
end
item
Name = 'NO_VALORADO'
DataType = datSmallInt
Value = ''
end
item
Name = 'OLD_ID'
Value = ''
@ -1099,8 +1117,8 @@ object srvPresupuestosCliente: TsrvPresupuestosCliente
'IBLE, '#10' ID_TIPO_IVA = :ID_TIPO_IVA,'#10' IVA = :IVA, '#10' IMPO' +
'RTE_IVA = :IMPORTE_IVA, '#10' IMPORTE_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' W' +
'HERE'#10' (ID = :OLD_ID)'#10#10
' ID_VENDEDOR = :ID_VENDEDOR,'#10' ID_CONTRATO = :ID_CONTRATO,'#10' ' +
' NO_VALORADO = :NO_VALORADO'#10' WHERE'#10' (ID = :OLD_ID)'#10#10
StatementType = stSQL
ColumnMappings = <>
end>

View File

@ -47,7 +47,9 @@ requires
vcljpg,
dxLayoutControlD11,
dxComnD11,
PreCli_ConCli_relation;
PreCli_ConCli_relation,
dxCoreD11,
vclx;
contains
uPresupuestosClienteViewRegister in 'uPresupuestosClienteViewRegister.pas',
@ -64,6 +66,7 @@ contains
uViewDocumentosPresupuestoCliente in 'uViewDocumentosPresupuestoCliente.pas' {frViewDocumentosPresupuestoCliente: TFrame},
uViewDatosYSeleccionClientePresupuesto in 'uViewDatosYSeleccionClientePresupuesto.pas' {frViewDatosYSeleccionClientePresupuesto: TFrame},
uEditorAsignarDescuento in 'uEditorAsignarDescuento.pas' {fEditorAsignarDescuento},
uEditorFechaDecisionPresupuesto in 'uEditorFechaDecisionPresupuesto.pas' {fEditorFechaDecisionPresupuesto};
uEditorFechaDecisionPresupuesto in 'uEditorFechaDecisionPresupuesto.pas' {fEditorFechaDecisionPresupuesto},
uViewTotalesPresupuesto in 'uViewTotalesPresupuesto.pas' {frViewTotalesPresupuesto: TFrame};
end.

View File

@ -49,29 +49,27 @@
<DelphiCompile Include="PresupuestosCliente_view.dpk">
<MainSource>MainSource</MainSource>
</DelphiCompile>
<DCCReference Include="C:\Documents and Settings\Usuario\adortl.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\Articulos_view.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\Base.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\cxDataD11.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\cxEditorsD11.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\cxLibraryD11.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\DataAbstract_Core_D11.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\dbrtl.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\dsnap.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\dxComnD11.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\dxGDIPlusD11.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\dxLayoutControlD11.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\dxThemeD11.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\GestorInformes_controller.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\GUIBase.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\PreCli_ConCli_relation.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\PresupuestosCliente_controller.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\PresupuestosCliente_model.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\RemObjects_Core_D11.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\rtl.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\vcl.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\vcldb.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\vcljpg.dcp" />
<DCCReference Include="adortl.dcp" />
<DCCReference Include="Articulos_view.dcp" />
<DCCReference Include="Base.dcp" />
<DCCReference Include="cxDataD11.dcp" />
<DCCReference Include="cxEditorsD11.dcp" />
<DCCReference Include="cxLibraryD11.dcp" />
<DCCReference Include="DataAbstract_Core_D11.dcp" />
<DCCReference Include="dbrtl.dcp" />
<DCCReference Include="dsnap.dcp" />
<DCCReference Include="dxComnD11.dcp" />
<DCCReference Include="dxCoreD11.dcp" />
<DCCReference Include="dxGDIPlusD11.dcp" />
<DCCReference Include="dxLayoutControlD11.dcp" />
<DCCReference Include="dxThemeD11.dcp" />
<DCCReference Include="GestorInformes_controller.dcp" />
<DCCReference Include="GUIBase.dcp" />
<DCCReference Include="PreCli_ConCli_relation.dcp" />
<DCCReference Include="PresupuestosCliente_controller.dcp" />
<DCCReference Include="PresupuestosCliente_model.dcp" />
<DCCReference Include="RemObjects_Core_D11.dcp" />
<DCCReference Include="rtl.dcp" />
<DCCReference Include="uEditorAsignarDescuento.pas">
<Form>fEditorAsignarDescuento</Form>
</DCCReference>
@ -127,6 +125,14 @@
<Form>frViewPresupuestosCliente</Form>
<DesignClass>TFrame</DesignClass>
</DCCReference>
<DCCReference Include="uViewTotalesPresupuesto.pas">
<Form>frViewTotalesPresupuesto</Form>
<DesignClass>TFrame</DesignClass>
</DCCReference>
<DCCReference Include="vcl.dcp" />
<DCCReference Include="vcldb.dcp" />
<DCCReference Include="vcljpg.dcp" />
<DCCReference Include="vclx.dcp" />
</ItemGroup>
</Project>
<!-- EurekaLog First Line

View File

@ -170,21 +170,20 @@ inherited fEditorPresupuestoCliente: TfEditorPresupuestoCliente
end
end
inherited StatusBar: TJvStatusBar
Top = 657
Top = 429
Width = 848
Panels = <
item
Width = 200
end>
ExplicitTop = 657
ExplicitTop = 429
ExplicitWidth = 848
end
inherited pgPaginas: TPageControl
Width = 842
Height = 351
Height = 317
TabOrder = 1
OnChanging = pgPaginasChanging
ExplicitTop = 109
ExplicitWidth = 842
ExplicitHeight = 351
inherited pagGeneral: TTabSheet
@ -196,11 +195,12 @@ inherited fEditorPresupuestoCliente: TfEditorPresupuestoCliente
object pagContenido: TTabSheet
Caption = 'Contenido'
ImageIndex = 1
ExplicitHeight = 323
inline frViewDetallesPresupuestoCliente1: TfrViewDetallesPresupuestoCliente
Left = 0
Top = 0
Width = 834
Height = 323
Height = 289
Align = alClient
BiDiMode = bdLeftToRight
Font.Charset = DEFAULT_CHARSET
@ -294,7 +294,7 @@ inherited fEditorPresupuestoCliente: TfEditorPresupuestoCliente
inherited cxGrid: TcxGrid
Top = 50
Width = 834
Height = 273
Height = 239
ExplicitTop = 50
ExplicitWidth = 834
ExplicitHeight = 273
@ -319,11 +319,12 @@ inherited fEditorPresupuestoCliente: TfEditorPresupuestoCliente
object pagInicidencias: TTabSheet
Caption = 'Incidencias'
ImageIndex = 2
ExplicitHeight = 323
inline frViewIncidenciasCli: TfrViewIncidencias
Left = 0
Top = 0
Width = 834
Height = 323
Height = 289
Align = alClient
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
@ -344,13 +345,13 @@ inherited fEditorPresupuestoCliente: TfEditorPresupuestoCliente
end
inherited GroupBox1: TGroupBox
Width = 834
Height = 295
Height = 261
ExplicitWidth = 834
ExplicitHeight = 295
ExplicitHeight = 261
inherited eIncidencias: TcxDBMemo
ExplicitWidth = 830
ExplicitHeight = 278
Height = 278
ExplicitHeight = 244
Height = 244
Width = 830
end
end
@ -359,11 +360,12 @@ inherited fEditorPresupuestoCliente: TfEditorPresupuestoCliente
object pagDocumentos: TTabSheet
Caption = 'Documentos'
ImageIndex = 5
ExplicitHeight = 323
inline frViewDocumentosPresupuestoCliente1: TfrViewDocumentosPresupuestoCliente
Left = 0
Top = 0
Width = 834
Height = 323
Height = 289
Align = alClient
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
@ -381,7 +383,7 @@ inherited fEditorPresupuestoCliente: TfEditorPresupuestoCliente
end
inherited ListView1: TListView
Width = 834
Height = 300
Height = 266
ExplicitWidth = 834
ExplicitHeight = 300
end
@ -400,11 +402,11 @@ inherited fEditorPresupuestoCliente: TfEditorPresupuestoCliente
Height = 25
end
end
inline frViewTotales1: TfrViewTotales [5]
inline frViewTotales1: TfrViewTotalesPresupuesto [5]
Left = 0
Top = 463
Top = 448
Width = 848
Height = 194
Height = 228
Align = alBottom
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
@ -414,21 +416,23 @@ inherited fEditorPresupuestoCliente: TfEditorPresupuestoCliente
ParentFont = False
TabOrder = 5
ReadOnly = False
ExplicitTop = 463
ExplicitTop = 448
ExplicitWidth = 848
ExplicitHeight = 194
ExplicitHeight = 228
inherited dxLayoutControl1: TdxLayoutControl
Width = 848
ExplicitWidth = 848
inherited Bevel3: TBevel
Left = 461
Left = 417
Height = 122
ExplicitLeft = 461
ExplicitLeft = 417
ExplicitHeight = 122
end
inherited Bevel4: TBevel
Left = 573
ExplicitLeft = 573
Left = 529
Width = 210
ExplicitLeft = 529
ExplicitWidth = 210
end
inherited ImporteDto: TcxDBCurrencyEdit
Style.LookAndFeel.SkinName = ''
@ -436,24 +440,30 @@ inherited fEditorPresupuestoCliente: TfEditorPresupuestoCliente
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitWidth = 93
Width = 93
end
inherited ImporteIVA: TcxDBCurrencyEdit
Left = 644
Left = 600
Style.LookAndFeel.SkinName = ''
Style.IsFontAssigned = True
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitLeft = 644
ExplicitLeft = 600
ExplicitWidth = 137
Width = 137
end
inherited ImporteTotal: TcxDBCurrencyEdit
Left = 574
Left = 530
Style.LookAndFeel.SkinName = ''
Style.IsFontAssigned = True
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitLeft = 574
ExplicitLeft = 530
ExplicitWidth = 137
Width = 137
end
inherited edtDescuento: TcxDBSpinEdit
Style.LookAndFeel.SkinName = ''
@ -463,40 +473,44 @@ inherited fEditorPresupuestoCliente: TfEditorPresupuestoCliente
StyleHot.LookAndFeel.SkinName = ''
end
inherited edtIVA: TcxDBSpinEdit
Left = 573
Left = 529
Style.LookAndFeel.SkinName = ''
Style.IsFontAssigned = True
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitLeft = 573
ExplicitLeft = 529
end
inherited ImporteBase: TcxDBCurrencyEdit
Left = 573
Left = 529
Style.LookAndFeel.SkinName = ''
Style.IsFontAssigned = True
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitLeft = 573
ExplicitLeft = 529
ExplicitWidth = 92
Width = 92
end
inherited edtRE: TcxDBSpinEdit
Left = 573
Left = 529
Style.LookAndFeel.SkinName = ''
Style.IsFontAssigned = True
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitLeft = 573
ExplicitLeft = 529
end
inherited ImporteRE: TcxDBCurrencyEdit
Left = 644
Left = 600
Style.LookAndFeel.SkinName = ''
Style.IsFontAssigned = True
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitLeft = 644
ExplicitLeft = 600
ExplicitWidth = 56
Width = 56
end
inherited eImporteNeto: TcxDBCurrencyEdit
Style.LookAndFeel.SkinName = ''
@ -504,6 +518,8 @@ inherited fEditorPresupuestoCliente: TfEditorPresupuestoCliente
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitWidth = 147
Width = 147
end
inherited ePorte: TcxDBCurrencyEdit
Style.LookAndFeel.SkinName = ''
@ -511,48 +527,38 @@ inherited fEditorPresupuestoCliente: TfEditorPresupuestoCliente
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitWidth = 147
Width = 147
end
inherited eIVA: TcxDBLookupComboBox
Properties.OnValidate = frViewTotales1eIVAPropertiesValidate
Style.Color = clInfoBk
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitWidth = 81
Width = 81
end
inherited bTiposIVA: TButton
Left = 313
OnClick = frViewTotales1bTiposIVAClick
ExplicitLeft = 313
Left = 269
ExplicitLeft = 269
end
inherited cbRecargoEquivalencia: TcxDBCheckBox
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitWidth = 219
Width = 219
end
inherited dxLayoutControl1Group_Root: TdxLayoutGroup
inherited dxLayoutControl1Group1: TdxLayoutGroup
inherited dxLayoutControl1Group2: TdxLayoutGroup
inherited dxLayoutControl1Group7: TdxLayoutGroup
inherited dxLayoutControl1Group10: TdxLayoutGroup
Visible = False
end
inherited dxLayoutControl1Item9: TdxLayoutItem
Visible = False
end
end
end
inherited dxLayoutControl1Group5: TdxLayoutGroup
inherited dxLayoutControl1Group3: TdxLayoutGroup
inherited dxLayoutControl1Group8: TdxLayoutGroup
inherited dxLayoutControl1Item7: TdxLayoutItem
Visible = True
end
end
end
end
end
inherited cbValorado: TcxDBCheckBox
Left = 436
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitLeft = 436
ExplicitWidth = 207
Width = 207
end
end
end

View File

@ -19,7 +19,7 @@ uses
uDAInterfaces, cxRichEdit, cxDBRichEdit, JvGIF, cxPC,
uViewDocumentos,
uViewDocumentosPresupuestoCliente, uViewDatosYSeleccionClientePresupuesto,
cxLabel, uBizTiposIVA, uTiposIVAController;
cxLabel, uBizTiposIVA, uTiposIVAController, uViewTotalesPresupuesto;
type
TfEditorPresupuestoCliente = class(TfEditorDBItem, IEditorPresupuestoCliente)
@ -37,8 +37,8 @@ type
TBXItem35: TTBXItem;
pagDocumentos: TTabSheet;
frViewDocumentosPresupuestoCliente1: TfrViewDocumentosPresupuestoCliente;
frViewTotales1: TfrViewTotales;
frViewDetallesPresupuestoCliente1: TfrViewDetallesPresupuestoCliente;
frViewTotales1: TfrViewTotalesPresupuesto;
procedure FormShow(Sender: TObject);
procedure CustomEditorClose(Sender: TObject; var Action: TCloseAction);

View File

@ -0,0 +1,184 @@
inherited frViewTotalesPresupuesto: TfrViewTotalesPresupuesto
Width = 728
Height = 247
ExplicitWidth = 714
ExplicitHeight = 247
inherited dxLayoutControl1: TdxLayoutControl
Width = 728
Height = 209
ExplicitWidth = 451
ExplicitHeight = 209
inherited Bevel3: TBevel
Left = 380
ExplicitLeft = 380
end
inherited Bevel4: TBevel
Left = 492
Top = 86
ExplicitLeft = 492
ExplicitTop = 86
end
inherited ImporteDto: TcxDBCurrencyEdit
Style.LookAndFeel.SkinName = ''
Style.IsFontAssigned = True
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
end
inherited ImporteIVA: TcxDBCurrencyEdit
Left = 563
Top = 106
Style.LookAndFeel.SkinName = ''
Style.IsFontAssigned = True
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
TabOrder = 10
ExplicitLeft = 563
ExplicitTop = 106
end
inherited ImporteTotal: TcxDBCurrencyEdit
Left = 493
Top = 160
Style.LookAndFeel.SkinName = ''
Style.IsFontAssigned = True
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
TabOrder = 13
ExplicitLeft = 493
ExplicitTop = 160
end
inherited edtDescuento: TcxDBSpinEdit
Style.LookAndFeel.SkinName = ''
Style.IsFontAssigned = True
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
end
inherited edtIVA: TcxDBSpinEdit
Left = 492
Top = 106
Style.LookAndFeel.SkinName = ''
Style.IsFontAssigned = True
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
TabOrder = 9
ExplicitLeft = 492
ExplicitTop = 106
end
inherited ImporteBase: TcxDBCurrencyEdit
Left = 492
Style.LookAndFeel.SkinName = ''
Style.IsFontAssigned = True
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitLeft = 492
end
inherited edtRE: TcxDBSpinEdit
Left = 492
Top = 133
Style.LookAndFeel.SkinName = ''
Style.IsFontAssigned = True
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
TabOrder = 11
ExplicitLeft = 492
ExplicitTop = 133
end
inherited ImporteRE: TcxDBCurrencyEdit
Left = 563
Top = 133
Style.LookAndFeel.SkinName = ''
Style.IsFontAssigned = True
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
TabOrder = 12
ExplicitLeft = 563
ExplicitTop = 133
end
inherited eImporteNeto: TcxDBCurrencyEdit
Style.LookAndFeel.SkinName = ''
Style.IsFontAssigned = True
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
end
inherited ePorte: TcxDBCurrencyEdit
Style.LookAndFeel.SkinName = ''
Style.IsFontAssigned = True
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
end
inherited eIVA: TcxDBLookupComboBox
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
end
inherited bTiposIVA: TButton
Left = 232
ExplicitLeft = 232
end
inherited cbRecargoEquivalencia: TcxDBCheckBox
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
end
object cbValorado: TcxDBCheckBox [15]
Left = 399
Top = 55
Caption = ' Presupuesto no valorado'
DataBinding.DataField = 'NO_VALORADO'
DataBinding.DataSource = DADataSource
Properties.DisplayChecked = '1'
Properties.DisplayUnchecked = '0'
Properties.ImmediatePost = True
Properties.NullStyle = nssUnchecked
Properties.ValueChecked = 1
Properties.ValueUnchecked = 0
Style.BorderColor = clWindowFrame
Style.BorderStyle = ebs3D
Style.HotTrack = False
Style.LookAndFeel.Kind = lfStandard
Style.LookAndFeel.NativeStyle = True
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.Kind = lfStandard
StyleDisabled.LookAndFeel.NativeStyle = True
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.Kind = lfStandard
StyleFocused.LookAndFeel.NativeStyle = True
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.Kind = lfStandard
StyleHot.LookAndFeel.NativeStyle = True
StyleHot.LookAndFeel.SkinName = ''
TabOrder = 8
Width = 207
end
inherited dxLayoutControl1Group_Root: TdxLayoutGroup
inherited dxLayoutControl1Group1: TdxLayoutGroup
inherited dxLayoutControl1Group5: TdxLayoutGroup
inherited dxLayoutControl1Group3: TdxLayoutGroup
inherited dxLayoutControl1Group11: TdxLayoutGroup
object cxValorado: TdxLayoutItem [1]
ShowCaption = False
Control = cbValorado
ControlOptions.ShowBorder = False
end
inherited dxLayoutControl1Item14: TdxLayoutItem
Offsets.Bottom = 0
Offsets.Top = 4
end
end
end
end
end
end
end
end

View File

@ -0,0 +1,29 @@
unit uViewTotalesPresupuesto;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, uViewTotales, cxGraphics, dxLayoutLookAndFeels, DB, uDAInterfaces,
uDADataTable, dxLayoutControl, cxCheckBox, cxDBEdit, StdCtrls, cxDropDownEdit,
cxLookupEdit, cxDBLookupEdit, cxDBLookupComboBox, cxMaskEdit, cxSpinEdit,
cxContainer, cxEdit, cxTextEdit, cxCurrencyEdit, ExtCtrls, cxControls;
type
TfrViewTotalesPresupuesto = class(TfrViewTotales)
cxValorado: TdxLayoutItem;
cbValorado: TcxDBCheckBox;
private
{ Private declarations }
public
{ Public declarations }
end;
var
frViewTotalesPresupuesto: TfrViewTotalesPresupuesto;
implementation
{$R *.dfm}
end.

Binary file not shown.

View File

@ -131,12 +131,12 @@ uses
srvContratosCliente_Impl in '..\Modulos\Contratos de cliente\Servidor\srvContratosCliente_Impl.pas' {srvContratosCliente: TDataAbstractService},
uBizContratosClienteServer in '..\Modulos\Contratos de cliente\Model\uBizContratosClienteServer.pas',
uRptContratosCliente_Server in '..\Modulos\Contratos de cliente\Reports\uRptContratosCliente_Server.pas' {RptContratosCliente},
schPresupuestosClienteClient_Intf in '..\Modulos\Presupuestos de cliente\Model\schPresupuestosClienteClient_Intf.pas',
schPresupuestosClienteServer_Intf in '..\Modulos\Presupuestos de cliente\Model\schPresupuestosClienteServer_Intf.pas',
schContratosClienteClient_Intf in '..\Modulos\Contratos de cliente\Model\schContratosClienteClient_Intf.pas',
schContratosClienteServer_Intf in '..\Modulos\Contratos de cliente\Model\schContratosClienteServer_Intf.pas',
schFacturasClienteClient_Intf in '..\Modulos\Facturas de cliente\Model\schFacturasClienteClient_Intf.pas',
schFacturasClienteServer_Intf in '..\Modulos\Facturas de cliente\Model\schFacturasClienteServer_Intf.pas';
schFacturasClienteServer_Intf in '..\Modulos\Facturas de cliente\Model\schFacturasClienteServer_Intf.pas',
schPresupuestosClienteClient_Intf in '..\Modulos\Presupuestos de cliente\Model\schPresupuestosClienteClient_Intf.pas',
schPresupuestosClienteServer_Intf in '..\Modulos\Presupuestos de cliente\Model\schPresupuestosClienteServer_Intf.pas';
{$R *.res}
{$R ..\Servicios\RODLFile.res}

View File

@ -1,296 +1,299 @@
<?xml version="1.0" encoding="utf-8"?>
<?xml version="1.0" encoding="utf-8"?>
<Project xmlns="http://schemas.microsoft.com/developer/msbuild/2003">
<PropertyGroup>
<ProjectGuid>{ebdcd25d-40d7-4146-91ec-a0ea4aa1dcd1}</ProjectGuid>
<MainSource>FactuGES_Server.dpr</MainSource>
<Configuration Condition=" '$(Configuration)' == '' ">Debug</Configuration>
<Platform Condition=" '$(Platform)' == '' ">AnyCPU</Platform>
<DCC_DCCCompiler>DCC32</DCC_DCCCompiler>
<DCC_DependencyCheckOutputName>..\..\Output\Debug\Servidor\FactuGES_Server.exe</DCC_DependencyCheckOutputName>
</PropertyGroup>
<PropertyGroup Condition=" '$(Configuration)|$(Platform)' == 'Release|AnyCPU' ">
<Version>7.0</Version>
<DCC_DebugInformation>False</DCC_DebugInformation>
<DCC_LocalDebugSymbols>False</DCC_LocalDebugSymbols>
<DCC_SymbolReferenceInfo>0</DCC_SymbolReferenceInfo>
<DCC_MapFile>3</DCC_MapFile>
<DCC_ExeOutput>..\..\Output\Release\Servidor</DCC_ExeOutput>
<DCC_Define>RELEASE</DCC_Define>
</PropertyGroup>
<PropertyGroup Condition=" '$(Configuration)|$(Platform)' == 'Debug|AnyCPU' ">
<Version>7.0</Version>
<DCC_MapFile>3</DCC_MapFile>
<DCC_ExeOutput>..\..\Output\Debug\Servidor</DCC_ExeOutput>
<DCC_Define>DEBUG;</DCC_Define>
<DCC_GenerateStackFrames>True</DCC_GenerateStackFrames>
</PropertyGroup>
<ProjectExtensions>
<Borland.Personality>Delphi.Personality</Borland.Personality>
<Borland.ProjectType/>
<BorlandProject>
<BorlandProject><Delphi.Personality><Parameters><Parameters Name="UseLauncher">False</Parameters><Parameters Name="LoadAllSymbols">True</Parameters><Parameters Name="LoadUnspecifiedSymbols">False</Parameters></Parameters><VersionInfo><VersionInfo Name="IncludeVerInfo">True</VersionInfo><VersionInfo Name="AutoIncBuild">False</VersionInfo><VersionInfo Name="MajorVer">2</VersionInfo><VersionInfo Name="MinorVer">3</VersionInfo><VersionInfo Name="Release">9</VersionInfo><VersionInfo Name="Build">0</VersionInfo><VersionInfo Name="Debug">False</VersionInfo><VersionInfo Name="PreRelease">False</VersionInfo><VersionInfo Name="Special">False</VersionInfo><VersionInfo Name="Private">False</VersionInfo><VersionInfo Name="DLL">False</VersionInfo><VersionInfo Name="Locale">3082</VersionInfo><VersionInfo Name="CodePage">1252</VersionInfo></VersionInfo><VersionInfoKeys><VersionInfoKeys Name="CompanyName">Rodax Software S.L.</VersionInfoKeys><VersionInfoKeys Name="FileDescription"></VersionInfoKeys><VersionInfoKeys Name="FileVersion">2.3.9.0</VersionInfoKeys><VersionInfoKeys Name="InternalName"></VersionInfoKeys><VersionInfoKeys Name="LegalCopyright"></VersionInfoKeys><VersionInfoKeys Name="LegalTrademarks"></VersionInfoKeys><VersionInfoKeys Name="OriginalFilename"></VersionInfoKeys><VersionInfoKeys Name="ProductName">FactuGES (Servidor)</VersionInfoKeys><VersionInfoKeys Name="ProductVersion">2.3.9.0</VersionInfoKeys><VersionInfoKeys Name="Comments"></VersionInfoKeys><VersionInfoKeys Name="CompileDate">jueves, 19 de noviembre de 2009 20:26</VersionInfoKeys></VersionInfoKeys><Excluded_Packages>
<Excluded_Packages Name="C:\Documents and Settings\All Users\Documentos\RAD Studio\5.0\Bpl\cxLibraryD11.bpl">Express Cross Platform Library by Developer Express Inc.</Excluded_Packages>
<Excluded_Packages Name="C:\Documents and Settings\All Users\Documentos\RAD Studio\5.0\Bpl\dxPSCoreD11.bpl">ExpressPrinting System by Developer Express Inc.</Excluded_Packages>
<Excluded_Packages Name="C:\Documents and Settings\All Users\Documentos\RAD Studio\5.0\Bpl\DataAbstract_SDACDriver_D11.bpl">RemObjects Data Abstract - CoreLabs SDAC Driver</Excluded_Packages>
</Excluded_Packages><Source><Source Name="MainSource">FactuGES_Server.dpr</Source></Source></Delphi.Personality></BorlandProject></BorlandProject>
</ProjectExtensions>
<Import Project="$(MSBuildBinPath)\Borland.Delphi.Targets"/>
<ItemGroup>
<DelphiCompile Include="FactuGES_Server.dpr">
<MainSource>MainSource</MainSource>
</DelphiCompile>
<DCCReference Include="..\ApplicationBase\Ejercicios\Model\schEjerciciosClient_Intf.pas"/>
<DCCReference Include="..\ApplicationBase\Ejercicios\Model\schEjerciciosServer_Intf.pas"/>
<DCCReference Include="..\ApplicationBase\Ejercicios\Model\uBizEjerciciosServer.pas"/>
<DCCReference Include="..\ApplicationBase\Ejercicios\Servidor\srvEjercicios_Impl.pas">
<Form>srvEjercicios</Form>
<DesignClass>TDataAbstractService</DesignClass>
</DCCReference>
<DCCReference Include="..\ApplicationBase\Empresas\Model\schEmpresasClient_Intf.pas"/>
<DCCReference Include="..\ApplicationBase\Empresas\Model\schEmpresasServer_Intf.pas"/>
<DCCReference Include="..\ApplicationBase\Empresas\Servidor\srvEmpresas_Impl.pas">
<Form>srvEmpresas</Form>
<DesignClass>TDARemoteService</DesignClass>
</DCCReference>
<DCCReference Include="..\ApplicationBase\ProvinciasPoblaciones\Servidor\srvProvinciasPoblaciones_Impl.pas">
<Form>srvProvinciasPoblaciones</Form>
<DesignClass>TRORemoteDataModule</DesignClass>
</DCCReference>
<DCCReference Include="..\ApplicationBase\Usuarios\Model\schUsuariosClient_Intf.pas"/>
<DCCReference Include="..\ApplicationBase\Usuarios\Model\schUsuariosServer_Intf.pas"/>
<DCCReference Include="..\ApplicationBase\Usuarios\Servidor\srvUsuarios_Impl.pas"/>
<DCCReference Include="..\Base\schBase_Intf.pas"/>
<DCCReference Include="..\Base\Utiles\uSistemaFunc.pas"/>
<DCCReference Include="..\Base\Utiles\uStringsUtils.pas"/>
<DCCReference Include="..\Modulos\Albaranes de cliente\Model\schAlbaranesClienteClient_Intf.pas"/>
<DCCReference Include="..\Modulos\Albaranes de cliente\Model\schAlbaranesClienteServer_Intf.pas"/>
<DCCReference Include="..\Modulos\Albaranes de cliente\Model\uBizAlbaranClienteServer.pas"/>
<DCCReference Include="..\Modulos\Albaranes de cliente\Reports\uRptAlbaranesCliente_Server.pas"/>
<DCCReference Include="..\Modulos\Albaranes de cliente\Servidor\srvAlbaranesCliente_Impl.pas">
<Form>srvAlbaranesCliente</Form>
<DesignClass>TDataAbstractService</DesignClass>
</DCCReference>
<DCCReference Include="..\Modulos\Albaranes de proveedor\Model\schAlbaranesProveedorClient_Intf.pas"/>
<DCCReference Include="..\Modulos\Albaranes de proveedor\Model\schAlbaranesProveedorServer_Intf.pas"/>
<DCCReference Include="..\Modulos\Albaranes de proveedor\Model\uBizAlbaranProveedorServer.PAS"/>
<DCCReference Include="..\Modulos\Albaranes de proveedor\Servidor\srvAlbaranesProveedor_Impl.pas">
<Form>srvAlbaranesProveedor</Form>
<DesignClass>TDataAbstractService</DesignClass>
</DCCReference>
<DCCReference Include="..\Modulos\Almacenes\Model\schAlmacenesClient_Intf.pas"/>
<DCCReference Include="..\Modulos\Almacenes\Model\schAlmacenesServer_Intf.pas"/>
<DCCReference Include="..\Modulos\Almacenes\Servidor\srvAlmacenes_Impl.pas">
<Form>srvAlmacenes</Form>
<DesignClass>TDARemoteService</DesignClass>
</DCCReference>
<DCCReference Include="..\Modulos\Articulos\Model\schArticulosClient_Intf.pas"/>
<DCCReference Include="..\Modulos\Articulos\Model\schArticulosServer_Intf.pas"/>
<DCCReference Include="..\Modulos\Articulos\Servidor\srvArticulos_Impl.pas"/>
<DCCReference Include="..\Modulos\Comisiones\Model\schComisionesClient_Intf.pas"/>
<DCCReference Include="..\Modulos\Comisiones\Model\schComisionesServer_Intf.pas"/>
<DCCReference Include="..\Modulos\Comisiones\Model\uBizComisionesServer.pas"/>
<DCCReference Include="..\Modulos\Comisiones\Reports\uRptComisiones_Server.pas">
<Form>RptComisiones</Form>
<DesignClass>TDataModule</DesignClass>
</DCCReference>
<DCCReference Include="..\Modulos\Comisiones\Servidor\srvComisiones_Impl.pas">
<Form>srvComisiones</Form>
<DesignClass>TDataAbstractService</DesignClass>
</DCCReference>
<DCCReference Include="..\Modulos\Contabilidad\Model\schContabilidadClient_Intf.pas"/>
<DCCReference Include="..\Modulos\Contabilidad\Model\schContabilidadServer_Intf.pas"/>
<DCCReference Include="..\Modulos\Contabilidad\Model\uBizAsientosServer.pas"/>
<DCCReference Include="..\Modulos\Contabilidad\Servidor\srvContabilidad_Impl.pas">
<Form>srvContabilidad</Form>
<DesignClass>TDataAbstractService</DesignClass>
</DCCReference>
<DCCReference Include="..\Modulos\Contactos\Model\schContactosClient_Intf.pas"/>
<DCCReference Include="..\Modulos\Contactos\Model\schContactosServer_Intf.pas"/>
<DCCReference Include="..\Modulos\Contactos\Model\uBizClientesServer.pas"/>
<DCCReference Include="..\Modulos\Contactos\Model\uBizContactosServer.pas"/>
<DCCReference Include="..\Modulos\Contactos\Model\uBizProveedoresServer.pas"/>
<DCCReference Include="..\Modulos\Contactos\Model\uBizVendedoresServer.pas"/>
<DCCReference Include="..\Modulos\Contactos\Reports\uRptEtiquetasContacto_Server.pas">
<Form>RptEtiquetasContacto</Form>
<DesignClass>TDataModule</DesignClass>
</DCCReference>
<DCCReference Include="..\Modulos\Contactos\Servidor\srvContactos_Impl.pas">
<Form>srvContactos</Form>
<DesignClass>TDARemoteService</DesignClass>
</DCCReference>
<DCCReference Include="..\Modulos\Contratos de cliente\Model\schContratosClienteClient_Intf.pas"/>
<DCCReference Include="..\Modulos\Contratos de cliente\Model\schContratosClienteServer_Intf.pas"/>
<DCCReference Include="..\Modulos\Contratos de cliente\Model\uBizContratosClienteServer.pas"/>
<DCCReference Include="..\Modulos\Contratos de cliente\Reports\uRptContratosCliente_Server.pas">
<Form>RptContratosCliente</Form>
</DCCReference>
<DCCReference Include="..\Modulos\Contratos de cliente\Servidor\srvContratosCliente_Impl.pas">
<Form>srvContratosCliente</Form>
<DesignClass>TDataAbstractService</DesignClass>
</DCCReference>
<DCCReference Include="..\Modulos\Facturas de cliente\Model\schFacturasClienteClient_Intf.pas"/>
<DCCReference Include="..\Modulos\Facturas de cliente\Model\schFacturasClienteServer_Intf.pas"/>
<DCCReference Include="..\Modulos\Facturas de cliente\Model\uBizFacturasClienteServer.pas"/>
<DCCReference Include="..\Modulos\Facturas de cliente\Reports\uRptFacturasCliente_Server.pas">
<Form>RptFacturasCliente</Form>
<DesignClass>TDataModule</DesignClass>
</DCCReference>
<DCCReference Include="..\Modulos\Facturas de cliente\Servidor\srvFacturasCliente_Impl.pas">
<Form>srvFacturasCliente</Form>
<DesignClass>TDataAbstractService</DesignClass>
</DCCReference>
<DCCReference Include="..\Modulos\Facturas de proveedor\Model\schFacturasProveedorClient_Intf.pas"/>
<DCCReference Include="..\Modulos\Facturas de proveedor\Model\schFacturasProveedorServer_Intf.pas"/>
<DCCReference Include="..\Modulos\Facturas de proveedor\Model\uBizFacturasProveedorServer.pas"/>
<DCCReference Include="..\Modulos\Facturas de proveedor\Reports\uRptFacturasProveedor_Server.pas">
<Form>RptFacturasProveedor</Form>
<DesignClass>TDataModule</DesignClass>
</DCCReference>
<DCCReference Include="..\Modulos\Facturas de proveedor\Servidor\srvFacturasProveedor_Impl.pas">
<Form>srvFacturasProveedor</Form>
<DesignClass>TDataAbstractService</DesignClass>
</DCCReference>
<DCCReference Include="..\Modulos\Familias\Model\schFamiliasClient_Intf.pas"/>
<DCCReference Include="..\Modulos\Familias\Model\schFamiliasServer_Intf.pas"/>
<DCCReference Include="..\Modulos\Familias\Servidor\srvFamilias_Impl.pas"/>
<DCCReference Include="..\Modulos\Formas de pago\Model\schFormasPagoClient_Intf.pas"/>
<DCCReference Include="..\Modulos\Formas de pago\Model\schFormasPagoServer_Intf.pas"/>
<DCCReference Include="..\Modulos\Formas de pago\Servidor\srvFormasPago_Impl.pas"/>
<DCCReference Include="..\Modulos\Gestion de documentos\Servidor\srvGestorDocumentos_Impl.pas">
<Form>srvGestorDocumentos</Form>
<DesignClass>TDataAbstractService</DesignClass>
</DCCReference>
<DCCReference Include="..\Modulos\Gestor de informes\Servidor\srvGestorInformes_Impl.pas">
<Form>srvGestorInformes</Form>
<DesignClass>TDataAbstractService</DesignClass>
</DCCReference>
<DCCReference Include="..\Modulos\Historico de movimientos\Model\schHistoricoMovimientosClient_Intf.pas"/>
<DCCReference Include="..\Modulos\Historico de movimientos\Model\schHistoricoMovimientosServer_Intf.pas"/>
<DCCReference Include="..\Modulos\Historico de movimientos\Servidor\srvHistoricoMovimientos_Impl.pas">
<Form>srvHistoricoMovimientos</Form>
<DesignClass>TDataAbstractService</DesignClass>
</DCCReference>
<DCCReference Include="..\Modulos\Inventario\Model\schInventarioClient_Intf.pas"/>
<DCCReference Include="..\Modulos\Inventario\Model\schInventarioServer_Intf.pas"/>
<DCCReference Include="..\Modulos\Inventario\Servidor\srvInventario_Impl.pas">
<Form>srvInventario</Form>
<DesignClass>TDataAbstractService</DesignClass>
</DCCReference>
<DCCReference Include="..\Modulos\Pedidos a proveedor\Model\schPedidosProveedorClient_Intf.pas"/>
<DCCReference Include="..\Modulos\Pedidos a proveedor\Model\schPedidosProveedorServer_Intf.pas"/>
<DCCReference Include="..\Modulos\Pedidos a proveedor\Model\uBizPedidosProveedorServer.pas"/>
<DCCReference Include="..\Modulos\Pedidos a proveedor\Servidor\srvPedidosProveedor_Impl.pas">
<Form>srvPedidosProveedor</Form>
<DesignClass>TDataAbstractService</DesignClass>
</DCCReference>
<DCCReference Include="..\Modulos\Presupuestos de cliente\Model\schPresupuestosClienteClient_Intf.pas"/>
<DCCReference Include="..\Modulos\Presupuestos de cliente\Model\schPresupuestosClienteServer_Intf.pas"/>
<DCCReference Include="..\Modulos\Presupuestos de cliente\Model\uBizPresupuestosClienteServer.pas"/>
<DCCReference Include="..\Modulos\Presupuestos de cliente\Reports\uRptPresupuestosCliente_Server.pas">
<Form>RptPresupuestosCliente</Form>
</DCCReference>
<DCCReference Include="..\Modulos\Presupuestos de cliente\Servidor\srvPresupuestosCliente_Impl.pas">
<Form>srvPresupuestosCliente</Form>
<DesignClass>TDataAbstractService</DesignClass>
</DCCReference>
<DCCReference Include="..\Modulos\Recibos de cliente\Model\schRecibosClienteClient_Intf.pas"/>
<DCCReference Include="..\Modulos\Recibos de cliente\Model\schRecibosClienteServer_Intf.pas"/>
<DCCReference Include="..\Modulos\Recibos de cliente\Model\uBizPagosClienteServer.pas"/>
<DCCReference Include="..\Modulos\Recibos de cliente\Model\uBizRecibosClienteServer.pas"/>
<DCCReference Include="..\Modulos\Recibos de cliente\Reports\uRptRecibosCliente_Server.pas">
<Form>RptRecibosCliente</Form>
<DesignClass>TDataModule</DesignClass>
</DCCReference>
<DCCReference Include="..\Modulos\Recibos de cliente\Servidor\srvRecibosCliente_Impl.pas">
<Form>srvRecibosCliente</Form>
<DesignClass>TDataAbstractService</DesignClass>
</DCCReference>
<DCCReference Include="..\Modulos\Recibos de proveedor\Model\schRecibosProveedorClient_Intf.pas"/>
<DCCReference Include="..\Modulos\Recibos de proveedor\Model\schRecibosProveedorServer_Intf.pas"/>
<DCCReference Include="..\Modulos\Recibos de proveedor\Model\uBizPagosProveedorServer.pas"/>
<DCCReference Include="..\Modulos\Recibos de proveedor\Model\uBizRecibosProveedorServer.pas"/>
<DCCReference Include="..\Modulos\Recibos de proveedor\Reports\uRptRecibosProveedor_Server.pas">
<Form>RptRecibosProveedor</Form>
<DesignClass>TDataModule</DesignClass>
</DCCReference>
<DCCReference Include="..\Modulos\Recibos de proveedor\Servidor\srvRecibosProveedor_Impl.pas">
<Form>srvRecibosProveedor</Form>
<DesignClass>TDataAbstractService</DesignClass>
</DCCReference>
<DCCReference Include="..\Modulos\Referencias\Model\schReferenciasClient_Intf.pas"/>
<DCCReference Include="..\Modulos\Referencias\Model\schReferenciasServer_Intf.pas"/>
<DCCReference Include="..\Modulos\Referencias\Servidor\srvReferencias_Impl.pas">
<Form>srvReferencias</Form>
<DesignClass>TDataAbstractService</DesignClass>
</DCCReference>
<DCCReference Include="..\Modulos\Remesas de cliente\Model\schRemesasClienteClient_Intf.pas"/>
<DCCReference Include="..\Modulos\Remesas de cliente\Model\schRemesasClienteServer_Intf.pas"/>
<DCCReference Include="..\Modulos\Remesas de cliente\Model\uBizRemesasClienteServer.pas"/>
<DCCReference Include="..\Modulos\Remesas de cliente\Servidor\srvRemesasCliente_Impl.pas">
<Form>srvRemesasCliente</Form>
<DesignClass>TDataAbstractService</DesignClass>
</DCCReference>
<DCCReference Include="..\Modulos\Remesas de proveedor\Model\schRemesasProveedorClient_Intf.pas"/>
<DCCReference Include="..\Modulos\Remesas de proveedor\Model\schRemesasProveedorServer_Intf.pas"/>
<DCCReference Include="..\Modulos\Remesas de proveedor\Model\uBizRemesasProveedorServer.pas"/>
<DCCReference Include="..\Modulos\Remesas de proveedor\Servidor\srvRemesasProveedor_Impl.pas">
<Form>srvRemesasProveedor</Form>
<DesignClass>TDataAbstractService</DesignClass>
</DCCReference>
<DCCReference Include="..\Modulos\Tipos de IVA\Model\schTiposIVAClient_Intf.pas"/>
<DCCReference Include="..\Modulos\Tipos de IVA\Model\schTiposIVAServer_Intf.pas"/>
<DCCReference Include="..\Modulos\Tipos de IVA\Servidor\srvTiposIVA_Impl.pas"/>
<DCCReference Include="..\Modulos\Unidades de medida\Model\schUnidadesMedidaClient_Intf.pas"/>
<DCCReference Include="..\Modulos\Unidades de medida\Model\schUnidadesMedidaServer_Intf.pas"/>
<DCCReference Include="..\Modulos\Unidades de medida\Servidor\srvUnidadesMedida_Impl.pas">
<Form>srvUnidadesMedida</Form>
<DesignClass>TDataAbstractService</DesignClass>
</DCCReference>
<DCCReference Include="..\Servicios\FactuGES_Intf.pas"/>
<DCCReference Include="..\Servicios\FactuGES_Invk.pas"/>
<DCCReference Include="Configuracion\srvConfiguracion_Impl.pas">
<Form>srvConfiguracion</Form>
<DesignClass>TDataAbstractService</DesignClass>
</DCCReference>
<DCCReference Include="Configuracion\uConexionBD.pas">
<Form>frConexionBD</Form>
<DesignClass>TFrame</DesignClass>
</DCCReference>
<DCCReference Include="Configuracion\uConfGeneral.pas">
<Form>frConfGeneral</Form>
<DesignClass>TFrame</DesignClass>
</DCCReference>
<DCCReference Include="Configuracion\uConfiguracion.pas">
<Form>fConfiguracion</Form>
<DesignClass>TForm</DesignClass>
</DCCReference>
<DCCReference Include="Configuracion\uFrameConfiguracion.pas">
<Form>FrameConfiguracion</Form>
<DesignClass>TFrame</DesignClass>
</DCCReference>
<DCCReference Include="srvLogin_Impl.pas">
<Form>srvLogin</Form>
<DesignClass>TDARemoteService</DesignClass>
</DCCReference>
<DCCReference Include="uAcercaDe.pas">
<Form>fAcercaDe</Form>
</DCCReference>
<DCCReference Include="uDataModuleServer.pas">
<Form>dmServer</Form>
<DesignClass>TDataModule</DesignClass>
</DCCReference>
<DCCReference Include="uServerMainForm.pas">
<Form>fServerForm</Form>
</DCCReference>
<DCCReference Include="Utiles\RegExpr.pas"/>
<DCCReference Include="Utiles\uBusinessUtils.pas"/>
<DCCReference Include="Utiles\uDatabaseUtils.pas"/>
<DCCReference Include="Utiles\uReferenciasUtils.pas"/>
<DCCReference Include="Utiles\uRestriccionesUsuarioUtils.pas"/>
<DCCReference Include="Utiles\uSchemaUtilsServer.pas"/>
<DCCReference Include="Utiles\uServerAppUtils.pas"/>
<DCCReference Include="Utiles\uSesionesUtils.pas"/>
</ItemGroup>
<PropertyGroup>
<ProjectGuid>{ebdcd25d-40d7-4146-91ec-a0ea4aa1dcd1}</ProjectGuid>
<MainSource>FactuGES_Server.dpr</MainSource>
<Configuration Condition=" '$(Configuration)' == '' ">Debug</Configuration>
<Platform Condition=" '$(Platform)' == '' ">AnyCPU</Platform>
<DCC_DCCCompiler>DCC32</DCC_DCCCompiler>
<DCC_DependencyCheckOutputName>..\..\Output\Debug\Servidor\FactuGES_Server.exe</DCC_DependencyCheckOutputName>
</PropertyGroup>
<PropertyGroup Condition=" '$(Configuration)|$(Platform)' == 'Release|AnyCPU' ">
<Version>7.0</Version>
<DCC_DebugInformation>False</DCC_DebugInformation>
<DCC_LocalDebugSymbols>False</DCC_LocalDebugSymbols>
<DCC_SymbolReferenceInfo>0</DCC_SymbolReferenceInfo>
<DCC_MapFile>3</DCC_MapFile>
<DCC_ExeOutput>..\..\Output\Release\Servidor</DCC_ExeOutput>
<DCC_Define>RELEASE</DCC_Define>
</PropertyGroup>
<PropertyGroup Condition=" '$(Configuration)|$(Platform)' == 'Debug|AnyCPU' ">
<Version>7.0</Version>
<DCC_MapFile>3</DCC_MapFile>
<DCC_ExeOutput>..\..\Output\Debug\Servidor</DCC_ExeOutput>
<DCC_Define>DEBUG;</DCC_Define>
<DCC_GenerateStackFrames>True</DCC_GenerateStackFrames>
</PropertyGroup>
<ProjectExtensions>
<Borland.Personality>Delphi.Personality</Borland.Personality>
<Borland.ProjectType />
<BorlandProject>
<BorlandProject><Delphi.Personality><Parameters><Parameters Name="UseLauncher">False</Parameters><Parameters Name="LoadAllSymbols">True</Parameters><Parameters Name="LoadUnspecifiedSymbols">False</Parameters></Parameters><VersionInfo><VersionInfo Name="IncludeVerInfo">True</VersionInfo><VersionInfo Name="AutoIncBuild">False</VersionInfo><VersionInfo Name="MajorVer">2</VersionInfo><VersionInfo Name="MinorVer">3</VersionInfo><VersionInfo Name="Release">9</VersionInfo><VersionInfo Name="Build">0</VersionInfo><VersionInfo Name="Debug">False</VersionInfo><VersionInfo Name="PreRelease">False</VersionInfo><VersionInfo Name="Special">False</VersionInfo><VersionInfo Name="Private">False</VersionInfo><VersionInfo Name="DLL">False</VersionInfo><VersionInfo Name="Locale">3082</VersionInfo><VersionInfo Name="CodePage">1252</VersionInfo></VersionInfo><VersionInfoKeys><VersionInfoKeys Name="CompanyName">Rodax Software S.L.</VersionInfoKeys><VersionInfoKeys Name="FileDescription"></VersionInfoKeys><VersionInfoKeys Name="FileVersion">2.3.9.0</VersionInfoKeys><VersionInfoKeys Name="InternalName"></VersionInfoKeys><VersionInfoKeys Name="LegalCopyright"></VersionInfoKeys><VersionInfoKeys Name="LegalTrademarks"></VersionInfoKeys><VersionInfoKeys Name="OriginalFilename"></VersionInfoKeys><VersionInfoKeys Name="ProductName">FactuGES (Servidor)</VersionInfoKeys><VersionInfoKeys Name="ProductVersion">2.3.9.0</VersionInfoKeys><VersionInfoKeys Name="Comments"></VersionInfoKeys><VersionInfoKeys Name="CompileDate">jueves, 19 de noviembre de 2009 20:26</VersionInfoKeys></VersionInfoKeys><Excluded_Packages>
<Excluded_Packages Name="C:\Documents and Settings\All Users\Documentos\RAD Studio\5.0\Bpl\cxLibraryD11.bpl">Express Cross Platform Library by Developer Express Inc.</Excluded_Packages>
<Excluded_Packages Name="C:\Documents and Settings\All Users\Documentos\RAD Studio\5.0\Bpl\dxPSCoreD11.bpl">ExpressPrinting System by Developer Express Inc.</Excluded_Packages>
<Excluded_Packages Name="C:\Documents and Settings\All Users\Documentos\RAD Studio\5.0\Bpl\DataAbstract_SDACDriver_D11.bpl">RemObjects Data Abstract - CoreLabs SDAC Driver</Excluded_Packages>
</Excluded_Packages><Source><Source Name="MainSource">FactuGES_Server.dpr</Source></Source></Delphi.Personality></BorlandProject></BorlandProject>
</ProjectExtensions>
<Import Project="$(MSBuildBinPath)\Borland.Delphi.Targets" />
<ItemGroup>
<DelphiCompile Include="FactuGES_Server.dpr">
<MainSource>MainSource</MainSource>
</DelphiCompile>
<DCCReference Include="..\ApplicationBase\Ejercicios\Model\schEjerciciosClient_Intf.pas" />
<DCCReference Include="..\ApplicationBase\Ejercicios\Model\schEjerciciosServer_Intf.pas" />
<DCCReference Include="..\ApplicationBase\Ejercicios\Model\uBizEjerciciosServer.pas" />
<DCCReference Include="..\ApplicationBase\Ejercicios\Servidor\srvEjercicios_Impl.pas">
<Form>srvEjercicios</Form>
<DesignClass>TDataAbstractService</DesignClass>
</DCCReference>
<DCCReference Include="..\ApplicationBase\Empresas\Model\schEmpresasClient_Intf.pas" />
<DCCReference Include="..\ApplicationBase\Empresas\Model\schEmpresasServer_Intf.pas" />
<DCCReference Include="..\ApplicationBase\Empresas\Servidor\srvEmpresas_Impl.pas">
<Form>srvEmpresas</Form>
<DesignClass>TDARemoteService</DesignClass>
</DCCReference>
<DCCReference Include="..\ApplicationBase\ProvinciasPoblaciones\Servidor\srvProvinciasPoblaciones_Impl.pas">
<Form>srvProvinciasPoblaciones</Form>
<DesignClass>TRORemoteDataModule</DesignClass>
</DCCReference>
<DCCReference Include="..\ApplicationBase\Usuarios\Model\schUsuariosClient_Intf.pas" />
<DCCReference Include="..\ApplicationBase\Usuarios\Model\schUsuariosServer_Intf.pas" />
<DCCReference Include="..\ApplicationBase\Usuarios\Servidor\srvUsuarios_Impl.pas" />
<DCCReference Include="..\Base\schBase_Intf.pas" />
<DCCReference Include="..\Base\Utiles\uSistemaFunc.pas" />
<DCCReference Include="..\Base\Utiles\uStringsUtils.pas" />
<DCCReference Include="..\Modulos\Albaranes de cliente\Model\schAlbaranesClienteClient_Intf.pas" />
<DCCReference Include="..\Modulos\Albaranes de cliente\Model\schAlbaranesClienteServer_Intf.pas" />
<DCCReference Include="..\Modulos\Albaranes de cliente\Model\uBizAlbaranClienteServer.pas" />
<DCCReference Include="..\Modulos\Albaranes de cliente\Reports\uRptAlbaranesCliente_Server.pas" />
<DCCReference Include="..\Modulos\Albaranes de cliente\Servidor\srvAlbaranesCliente_Impl.pas">
<Form>srvAlbaranesCliente</Form>
<DesignClass>TDataAbstractService</DesignClass>
</DCCReference>
<DCCReference Include="..\Modulos\Albaranes de proveedor\Model\schAlbaranesProveedorClient_Intf.pas" />
<DCCReference Include="..\Modulos\Albaranes de proveedor\Model\schAlbaranesProveedorServer_Intf.pas" />
<DCCReference Include="..\Modulos\Albaranes de proveedor\Model\uBizAlbaranProveedorServer.PAS" />
<DCCReference Include="..\Modulos\Albaranes de proveedor\Servidor\srvAlbaranesProveedor_Impl.pas">
<Form>srvAlbaranesProveedor</Form>
<DesignClass>TDataAbstractService</DesignClass>
</DCCReference>
<DCCReference Include="..\Modulos\Almacenes\Model\schAlmacenesClient_Intf.pas" />
<DCCReference Include="..\Modulos\Almacenes\Model\schAlmacenesServer_Intf.pas" />
<DCCReference Include="..\Modulos\Almacenes\Servidor\srvAlmacenes_Impl.pas">
<Form>srvAlmacenes</Form>
<DesignClass>TDARemoteService</DesignClass>
</DCCReference>
<DCCReference Include="..\Modulos\Articulos\Model\schArticulosClient_Intf.pas" />
<DCCReference Include="..\Modulos\Articulos\Model\schArticulosServer_Intf.pas" />
<DCCReference Include="..\Modulos\Articulos\Servidor\srvArticulos_Impl.pas" />
<DCCReference Include="..\Modulos\Comisiones\Model\schComisionesClient_Intf.pas" />
<DCCReference Include="..\Modulos\Comisiones\Model\schComisionesServer_Intf.pas" />
<DCCReference Include="..\Modulos\Comisiones\Model\uBizComisionesServer.pas" />
<DCCReference Include="..\Modulos\Comisiones\Reports\uRptComisiones_Server.pas">
<Form>RptComisiones</Form>
<DesignClass>TDataModule</DesignClass>
</DCCReference>
<DCCReference Include="..\Modulos\Comisiones\Servidor\srvComisiones_Impl.pas">
<Form>srvComisiones</Form>
<DesignClass>TDataAbstractService</DesignClass>
</DCCReference>
<DCCReference Include="..\Modulos\Contabilidad\Model\schContabilidadClient_Intf.pas" />
<DCCReference Include="..\Modulos\Contabilidad\Model\schContabilidadServer_Intf.pas" />
<DCCReference Include="..\Modulos\Contabilidad\Model\uBizAsientosServer.pas" />
<DCCReference Include="..\Modulos\Contabilidad\Servidor\srvContabilidad_Impl.pas">
<Form>srvContabilidad</Form>
<DesignClass>TDataAbstractService</DesignClass>
</DCCReference>
<DCCReference Include="..\Modulos\Contactos\Model\schContactosClient_Intf.pas" />
<DCCReference Include="..\Modulos\Contactos\Model\schContactosServer_Intf.pas" />
<DCCReference Include="..\Modulos\Contactos\Model\uBizClientesServer.pas" />
<DCCReference Include="..\Modulos\Contactos\Model\uBizContactosServer.pas" />
<DCCReference Include="..\Modulos\Contactos\Model\uBizProveedoresServer.pas" />
<DCCReference Include="..\Modulos\Contactos\Model\uBizVendedoresServer.pas" />
<DCCReference Include="..\Modulos\Contactos\Reports\uRptEtiquetasContacto_Server.pas">
<Form>RptEtiquetasContacto</Form>
<DesignClass>TDataModule</DesignClass>
</DCCReference>
<DCCReference Include="..\Modulos\Contactos\Servidor\srvContactos_Impl.pas">
<Form>srvContactos</Form>
<DesignClass>TDARemoteService</DesignClass>
</DCCReference>
<DCCReference Include="..\Modulos\Contratos de cliente\Model\schContratosClienteClient_Intf.pas" />
<DCCReference Include="..\Modulos\Contratos de cliente\Model\schContratosClienteServer_Intf.pas" />
<DCCReference Include="..\Modulos\Contratos de cliente\Model\uBizContratosClienteServer.pas" />
<DCCReference Include="..\Modulos\Contratos de cliente\Reports\uRptContratosCliente_Server.pas">
<Form>RptContratosCliente</Form>
</DCCReference>
<DCCReference Include="..\Modulos\Contratos de cliente\Servidor\srvContratosCliente_Impl.pas">
<Form>srvContratosCliente</Form>
<DesignClass>TDataAbstractService</DesignClass>
</DCCReference>
<DCCReference Include="..\Modulos\Facturas de cliente\Model\schFacturasClienteClient_Intf.pas" />
<DCCReference Include="..\Modulos\Facturas de cliente\Model\schFacturasClienteServer_Intf.pas" />
<DCCReference Include="..\Modulos\Facturas de cliente\Model\uBizFacturasClienteServer.pas" />
<DCCReference Include="..\Modulos\Facturas de cliente\Reports\uRptFacturasCliente_Server.pas">
<Form>RptFacturasCliente</Form>
<DesignClass>TDataModule</DesignClass>
</DCCReference>
<DCCReference Include="..\Modulos\Facturas de cliente\Servidor\srvFacturasCliente_Impl.pas">
<Form>srvFacturasCliente</Form>
<DesignClass>TDataAbstractService</DesignClass>
</DCCReference>
<DCCReference Include="..\Modulos\Facturas de proveedor\Model\schFacturasProveedorClient_Intf.pas" />
<DCCReference Include="..\Modulos\Facturas de proveedor\Model\schFacturasProveedorServer_Intf.pas" />
<DCCReference Include="..\Modulos\Facturas de proveedor\Model\uBizFacturasProveedorServer.pas" />
<DCCReference Include="..\Modulos\Facturas de proveedor\Reports\uRptFacturasProveedor_Server.pas">
<Form>RptFacturasProveedor</Form>
<DesignClass>TDataModule</DesignClass>
</DCCReference>
<DCCReference Include="..\Modulos\Facturas de proveedor\Servidor\srvFacturasProveedor_Impl.pas">
<Form>srvFacturasProveedor</Form>
<DesignClass>TDataAbstractService</DesignClass>
</DCCReference>
<DCCReference Include="..\Modulos\Familias\Model\schFamiliasClient_Intf.pas" />
<DCCReference Include="..\Modulos\Familias\Model\schFamiliasServer_Intf.pas" />
<DCCReference Include="..\Modulos\Familias\Servidor\srvFamilias_Impl.pas" />
<DCCReference Include="..\Modulos\Formas de pago\Model\schFormasPagoClient_Intf.pas" />
<DCCReference Include="..\Modulos\Formas de pago\Model\schFormasPagoServer_Intf.pas" />
<DCCReference Include="..\Modulos\Formas de pago\Servidor\srvFormasPago_Impl.pas" />
<DCCReference Include="..\Modulos\Gestion de documentos\Servidor\srvGestorDocumentos_Impl.pas">
<Form>srvGestorDocumentos</Form>
<DesignClass>TDataAbstractService</DesignClass>
</DCCReference>
<DCCReference Include="..\Modulos\Gestor de informes\Servidor\srvGestorInformes_Impl.pas">
<Form>srvGestorInformes</Form>
<DesignClass>TDataAbstractService</DesignClass>
</DCCReference>
<DCCReference Include="..\Modulos\Historico de movimientos\Model\schHistoricoMovimientosClient_Intf.pas" />
<DCCReference Include="..\Modulos\Historico de movimientos\Model\schHistoricoMovimientosServer_Intf.pas" />
<DCCReference Include="..\Modulos\Historico de movimientos\Servidor\srvHistoricoMovimientos_Impl.pas">
<Form>srvHistoricoMovimientos</Form>
<DesignClass>TDataAbstractService</DesignClass>
</DCCReference>
<DCCReference Include="..\Modulos\Inventario\Model\schInventarioClient_Intf.pas" />
<DCCReference Include="..\Modulos\Inventario\Model\schInventarioServer_Intf.pas" />
<DCCReference Include="..\Modulos\Inventario\Servidor\srvInventario_Impl.pas">
<Form>srvInventario</Form>
<DesignClass>TDataAbstractService</DesignClass>
</DCCReference>
<DCCReference Include="..\Modulos\Pedidos a proveedor\Model\schPedidosProveedorClient_Intf.pas" />
<DCCReference Include="..\Modulos\Pedidos a proveedor\Model\schPedidosProveedorServer_Intf.pas" />
<DCCReference Include="..\Modulos\Pedidos a proveedor\Model\uBizPedidosProveedorServer.pas" />
<DCCReference Include="..\Modulos\Pedidos a proveedor\Servidor\srvPedidosProveedor_Impl.pas">
<Form>srvPedidosProveedor</Form>
<DesignClass>TDataAbstractService</DesignClass>
</DCCReference>
<DCCReference Include="..\Modulos\Presupuestos de cliente\Model\schPresupuestosClienteClient_Intf.pas" />
<DCCReference Include="..\Modulos\Presupuestos de cliente\Model\schPresupuestosClienteServer_Intf.pas" />
<DCCReference Include="..\Modulos\Presupuestos de cliente\Model\uBizPresupuestosClienteServer.pas" />
<DCCReference Include="..\Modulos\Presupuestos de cliente\Reports\uRptPresupuestosCliente_Server.pas">
<Form>RptPresupuestosCliente</Form>
</DCCReference>
<DCCReference Include="..\Modulos\Presupuestos de cliente\Servidor\srvPresupuestosCliente_Impl.pas">
<Form>srvPresupuestosCliente</Form>
<DesignClass>TDataAbstractService</DesignClass>
</DCCReference>
<DCCReference Include="..\Modulos\Recibos de cliente\Model\schRecibosClienteClient_Intf.pas" />
<DCCReference Include="..\Modulos\Recibos de cliente\Model\schRecibosClienteServer_Intf.pas" />
<DCCReference Include="..\Modulos\Recibos de cliente\Model\uBizPagosClienteServer.pas" />
<DCCReference Include="..\Modulos\Recibos de cliente\Model\uBizRecibosClienteServer.pas" />
<DCCReference Include="..\Modulos\Recibos de cliente\Reports\uRptRecibosCliente_Server.pas">
<Form>RptRecibosCliente</Form>
<DesignClass>TDataModule</DesignClass>
</DCCReference>
<DCCReference Include="..\Modulos\Recibos de cliente\Servidor\srvRecibosCliente_Impl.pas">
<Form>srvRecibosCliente</Form>
<DesignClass>TDataAbstractService</DesignClass>
</DCCReference>
<DCCReference Include="..\Modulos\Recibos de proveedor\Model\schRecibosProveedorClient_Intf.pas" />
<DCCReference Include="..\Modulos\Recibos de proveedor\Model\schRecibosProveedorServer_Intf.pas" />
<DCCReference Include="..\Modulos\Recibos de proveedor\Model\uBizPagosProveedorServer.pas" />
<DCCReference Include="..\Modulos\Recibos de proveedor\Model\uBizRecibosProveedorServer.pas" />
<DCCReference Include="..\Modulos\Recibos de proveedor\Reports\uRptRecibosProveedor_Server.pas">
<Form>RptRecibosProveedor</Form>
<DesignClass>TDataModule</DesignClass>
</DCCReference>
<DCCReference Include="..\Modulos\Recibos de proveedor\Servidor\srvRecibosProveedor_Impl.pas">
<Form>srvRecibosProveedor</Form>
<DesignClass>TDataAbstractService</DesignClass>
</DCCReference>
<DCCReference Include="..\Modulos\Referencias\Model\schReferenciasClient_Intf.pas" />
<DCCReference Include="..\Modulos\Referencias\Model\schReferenciasServer_Intf.pas" />
<DCCReference Include="..\Modulos\Referencias\Servidor\srvReferencias_Impl.pas">
<Form>srvReferencias</Form>
<DesignClass>TDataAbstractService</DesignClass>
</DCCReference>
<DCCReference Include="..\Modulos\Remesas de cliente\Model\schRemesasClienteClient_Intf.pas" />
<DCCReference Include="..\Modulos\Remesas de cliente\Model\schRemesasClienteServer_Intf.pas" />
<DCCReference Include="..\Modulos\Remesas de cliente\Model\uBizRemesasClienteServer.pas" />
<DCCReference Include="..\Modulos\Remesas de cliente\Servidor\srvRemesasCliente_Impl.pas">
<Form>srvRemesasCliente</Form>
<DesignClass>TDataAbstractService</DesignClass>
</DCCReference>
<DCCReference Include="..\Modulos\Remesas de proveedor\Model\schRemesasProveedorClient_Intf.pas" />
<DCCReference Include="..\Modulos\Remesas de proveedor\Model\schRemesasProveedorServer_Intf.pas" />
<DCCReference Include="..\Modulos\Remesas de proveedor\Model\uBizRemesasProveedorServer.pas" />
<DCCReference Include="..\Modulos\Remesas de proveedor\Servidor\srvRemesasProveedor_Impl.pas">
<Form>srvRemesasProveedor</Form>
<DesignClass>TDataAbstractService</DesignClass>
</DCCReference>
<DCCReference Include="..\Modulos\Tipos de IVA\Model\schTiposIVAClient_Intf.pas" />
<DCCReference Include="..\Modulos\Tipos de IVA\Model\schTiposIVAServer_Intf.pas" />
<DCCReference Include="..\Modulos\Tipos de IVA\Servidor\srvTiposIVA_Impl.pas" />
<DCCReference Include="..\Modulos\Unidades de medida\Model\schUnidadesMedidaClient_Intf.pas" />
<DCCReference Include="..\Modulos\Unidades de medida\Model\schUnidadesMedidaServer_Intf.pas" />
<DCCReference Include="..\Modulos\Unidades de medida\Servidor\srvUnidadesMedida_Impl.pas">
<Form>srvUnidadesMedida</Form>
<DesignClass>TDataAbstractService</DesignClass>
</DCCReference>
<DCCReference Include="..\Servicios\FactuGES_Intf.pas" />
<DCCReference Include="..\Servicios\FactuGES_Invk.pas" />
<DCCReference Include="Configuracion\srvConfiguracion_Impl.pas">
<Form>srvConfiguracion</Form>
<DesignClass>TDataAbstractService</DesignClass>
</DCCReference>
<DCCReference Include="Configuracion\uConexionBD.pas">
<Form>frConexionBD</Form>
<DesignClass>TFrame</DesignClass>
</DCCReference>
<DCCReference Include="Configuracion\uConfGeneral.pas">
<Form>frConfGeneral</Form>
<DesignClass>TFrame</DesignClass>
</DCCReference>
<DCCReference Include="Configuracion\uConfiguracion.pas">
<Form>fConfiguracion</Form>
<DesignClass>TForm</DesignClass>
</DCCReference>
<DCCReference Include="Configuracion\uFrameConfiguracion.pas">
<Form>FrameConfiguracion</Form>
<DesignClass>TFrame</DesignClass>
</DCCReference>
<DCCReference Include="srvLogin_Impl.pas">
<Form>srvLogin</Form>
<DesignClass>TDARemoteService</DesignClass>
</DCCReference>
<DCCReference Include="uAcercaDe.pas">
<Form>fAcercaDe</Form>
</DCCReference>
<DCCReference Include="uDataModuleServer.pas">
<Form>dmServer</Form>
<DesignClass>TDataModule</DesignClass>
</DCCReference>
<DCCReference Include="uServerMainForm.pas">
<Form>fServerForm</Form>
</DCCReference>
<DCCReference Include="Utiles\RegExpr.pas" />
<DCCReference Include="Utiles\uBusinessUtils.pas" />
<DCCReference Include="Utiles\uDatabaseUtils.pas" />
<DCCReference Include="Utiles\uReferenciasUtils.pas" />
<DCCReference Include="Utiles\uRestriccionesUsuarioUtils.pas" />
<DCCReference Include="Utiles\uSchemaUtilsServer.pas" />
<DCCReference Include="Utiles\uServerAppUtils.pas" />
<DCCReference Include="Utiles\uSesionesUtils.pas" />
</ItemGroup>
</Project>
<!-- EurekaLog First Line
[Exception Log]

View File

@ -16,7 +16,7 @@ BEGIN
VALUE "FileVersion", "2.3.9.0\0"
VALUE "ProductName", "FactuGES (Servidor)\0"
VALUE "ProductVersion", "2.3.9.0\0"
VALUE "CompileDate", "martes, 24 de noviembre de 2009 10:31\0"
VALUE "CompileDate", "martes, 24 de noviembre de 2009 12:45\0"
END
END
BLOCK "VarFileInfo"