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

Cambios en el calculo de precios del catalogo de articulos

Browse Source 
git-svn-id: https://192.168.0.254/svn/Proyectos.Tecsitel_FactuGES2/trunk@460 0c75b7a4-871f-7646-8a2f-f78d34cc349f
This commit is contained in:
roberto 2008-06-17 17:53:36 +00:00
parent d2ee676df7
commit 9f901c2937
36 changed files with 1935 additions and 656 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
Database/scripts/factuges.sql
View File

@ -592,7 +592,9 @@ CREATE TABLE EMPRESAS (
USUARIO TIPO_USUARIO, USUARIO TIPO_USUARIO,
LOGOTIPO TIPO_BINARIO, LOGOTIPO TIPO_BINARIO,
REGISTRO_MERCANTIL VARCHAR(255), REGISTRO_MERCANTIL VARCHAR(255),
IVA TIPO_PORCENTAJE IVA TIPO_PORCENTAJE,
PARAM_TIEMPO TIPO_IMPORTE,
PARAM_MARGEN TIPO_PORCENTAJE
); );

3
Database/scripts/factuges_sysdata.sql
View File

@ -35,7 +35,8 @@ INSERT INTO REFERENCIAS (ID, ID_EMPRESA, CODIGO, VALOR, DESCRIPCION) VALUES (10,
INSERT INTO REFERENCIAS (ID, ID_EMPRESA, CODIGO, VALOR, DESCRIPCION) VALUES (11, NULL, 'REF_CLIENTES', '0000000001', 'Ref. clientes'); INSERT INTO REFERENCIAS (ID, ID_EMPRESA, CODIGO, VALOR, DESCRIPCION) VALUES (11, NULL, 'REF_CLIENTES', '0000000001', 'Ref. clientes');
INSERT INTO REFERENCIAS (ID, ID_EMPRESA, CODIGO, VALOR, DESCRIPCION) VALUES (12, NULL, 'REF_PROVEEDORES', '0000000001', 'Ref. proveedores'); INSERT INTO REFERENCIAS (ID, ID_EMPRESA, CODIGO, VALOR, DESCRIPCION) VALUES (12, NULL, 'REF_PROVEEDORES', '0000000001', 'Ref. proveedores');
INSERT INTO REFERENCIAS (ID, ID_EMPRESA, CODIGO, VALOR, DESCRIPCION) VALUES (13, NULL, 'REF_EMPLEADOS', '00001', 'Ref. empleados'); INSERT INTO REFERENCIAS (ID, ID_EMPRESA, CODIGO, VALOR, DESCRIPCION) VALUES (13, NULL, 'REF_EMPLEADOS', '00001', 'Ref. empleados');
SET GENERATOR GEN_REFERENCIAS_ID TO 14; INSERT INTO REFERENCIAS (ID, ID_EMPRESA, CODIGO, VALOR, DESCRIPCION) VALUES (14, NULL, 'REF_ARTICULOS', '1', 'Ref. artículos');
SET GENERATOR GEN_REFERENCIAS_ID TO 15;
COMMIT WORK; COMMIT WORK;
INSERT INTO TIPOS_IVA (ID, REFERENCIA, DESCRIPCION, IVA, RE) VALUES (1, 'IVA16', 'IVA16', 16, 4); INSERT INTO TIPOS_IVA (ID, REFERENCIA, DESCRIPCION, IVA, RE) VALUES (1, 'IVA16', 'IVA16', 16, 4);

8
Source/ApplicationBase/Empresas/Data/uDataModuleEmpresas.dfm
View File

@ -184,6 +184,14 @@ inherited DataModuleEmpresas: TDataModuleEmpresas
Name = 'IVA' Name = 'IVA'
DataType = datFloat DataType = datFloat
DictionaryEntry = 'Empresas_IVA' DictionaryEntry = 'Empresas_IVA'
end
item
Name = 'PARAM_TIEMPO'
DataType = datCurrency
end
item
Name = 'PARAM_MARGEN'
DataType = datFloat
end> end>
Params = <> Params = <>
StreamingOptions = [soDisableEventsWhileStreaming] StreamingOptions = [soDisableEventsWhileStreaming]

78
Source/ApplicationBase/Empresas/Model/schEmpresasClient_Intf.pas
View File

@ -9,8 +9,8 @@ const
{ Data table rules ids { Data table rules ids
Feel free to change them to something more human readable Feel free to change them to something more human readable
but make sure they are unique in the context of your application } but make sure they are unique in the context of your application }
RID_Empresas = '{DCDDB872-8363-4FCC-A410-5E68BDE201BD}'; RID_Empresas = '{0818A25D-E23C-4CFF-82F0-313FD818251C}';
RID_EmpresasDatosBanco = '{B0ECED4B-40DD-4640-9DA0-5445ADEAB9E8}'; RID_EmpresasDatosBanco = '{3F6CB778-A561-495F-AA36-903B1F94E7B7}';
{ Data table names } { Data table names }
nme_Empresas = 'Empresas'; nme_Empresas = 'Empresas';
@ -40,6 +40,8 @@ const
fld_EmpresasLOGOTIPO = 'LOGOTIPO'; fld_EmpresasLOGOTIPO = 'LOGOTIPO';
fld_EmpresasREGISTRO_MERCANTIL = 'REGISTRO_MERCANTIL'; fld_EmpresasREGISTRO_MERCANTIL = 'REGISTRO_MERCANTIL';
fld_EmpresasIVA = 'IVA'; fld_EmpresasIVA = 'IVA';
fld_EmpresasPARAM_TIEMPO = 'PARAM_TIEMPO';
fld_EmpresasPARAM_MARGEN = 'PARAM_MARGEN';
{ Empresas field indexes } { Empresas field indexes }
idx_EmpresasID = 0; idx_EmpresasID = 0;
@ -65,6 +67,8 @@ const
idx_EmpresasLOGOTIPO = 20; idx_EmpresasLOGOTIPO = 20;
idx_EmpresasREGISTRO_MERCANTIL = 21; idx_EmpresasREGISTRO_MERCANTIL = 21;
idx_EmpresasIVA = 22; idx_EmpresasIVA = 22;
idx_EmpresasPARAM_TIEMPO = 23;
idx_EmpresasPARAM_MARGEN = 24;
{ EmpresasDatosBanco fields } { EmpresasDatosBanco fields }
fld_EmpresasDatosBancoID = 'ID'; fld_EmpresasDatosBancoID = 'ID';
@ -95,7 +99,7 @@ const
type type
{ IEmpresas } { IEmpresas }
IEmpresas = interface(IDAStronglyTypedDataTable) IEmpresas = interface(IDAStronglyTypedDataTable)
['{49EC618A-361D-45A6-8D6B-9F82E813B67D}'] ['{80F28C5F-7541-4940-8747-D39D8B8426D9}']
{ Property getters and setters } { Property getters and setters }
function GetIDValue: Integer; function GetIDValue: Integer;
procedure SetIDValue(const aValue: Integer); procedure SetIDValue(const aValue: Integer);
@ -187,6 +191,14 @@ type
procedure SetIVAValue(const aValue: Float); procedure SetIVAValue(const aValue: Float);
function GetIVAIsNull: Boolean; function GetIVAIsNull: Boolean;
procedure SetIVAIsNull(const aValue: Boolean); procedure SetIVAIsNull(const aValue: Boolean);
function GetPARAM_TIEMPOValue: Currency;
procedure SetPARAM_TIEMPOValue(const aValue: Currency);
function GetPARAM_TIEMPOIsNull: Boolean;
procedure SetPARAM_TIEMPOIsNull(const aValue: Boolean);
function GetPARAM_MARGENValue: Float;
procedure SetPARAM_MARGENValue(const aValue: Float);
function GetPARAM_MARGENIsNull: Boolean;
procedure SetPARAM_MARGENIsNull(const aValue: Boolean);
{ Properties } { Properties }
@ -236,6 +248,10 @@ type
property REGISTRO_MERCANTILIsNull: Boolean read GetREGISTRO_MERCANTILIsNull write SetREGISTRO_MERCANTILIsNull; property REGISTRO_MERCANTILIsNull: Boolean read GetREGISTRO_MERCANTILIsNull write SetREGISTRO_MERCANTILIsNull;
property IVA: Float read GetIVAValue write SetIVAValue; property IVA: Float read GetIVAValue write SetIVAValue;
property IVAIsNull: Boolean read GetIVAIsNull write SetIVAIsNull; property IVAIsNull: Boolean read GetIVAIsNull write SetIVAIsNull;
property PARAM_TIEMPO: Currency read GetPARAM_TIEMPOValue write SetPARAM_TIEMPOValue;
property PARAM_TIEMPOIsNull: Boolean read GetPARAM_TIEMPOIsNull write SetPARAM_TIEMPOIsNull;
property PARAM_MARGEN: Float read GetPARAM_MARGENValue write SetPARAM_MARGENValue;
property PARAM_MARGENIsNull: Boolean read GetPARAM_MARGENIsNull write SetPARAM_MARGENIsNull;
end; end;
{ TEmpresasDataTableRules } { TEmpresasDataTableRules }
@ -337,6 +353,14 @@ type
procedure SetIVAValue(const aValue: Float); virtual; procedure SetIVAValue(const aValue: Float); virtual;
function GetIVAIsNull: Boolean; virtual; function GetIVAIsNull: Boolean; virtual;
procedure SetIVAIsNull(const aValue: Boolean); virtual; procedure SetIVAIsNull(const aValue: Boolean); virtual;
function GetPARAM_TIEMPOValue: Currency; virtual;
procedure SetPARAM_TIEMPOValue(const aValue: Currency); virtual;
function GetPARAM_TIEMPOIsNull: Boolean; virtual;
procedure SetPARAM_TIEMPOIsNull(const aValue: Boolean); virtual;
function GetPARAM_MARGENValue: Float; virtual;
procedure SetPARAM_MARGENValue(const aValue: Float); virtual;
function GetPARAM_MARGENIsNull: Boolean; virtual;
procedure SetPARAM_MARGENIsNull(const aValue: Boolean); virtual;
{ Properties } { Properties }
property ID: Integer read GetIDValue write SetIDValue; property ID: Integer read GetIDValue write SetIDValue;
@ -385,6 +409,10 @@ type
property REGISTRO_MERCANTILIsNull: Boolean read GetREGISTRO_MERCANTILIsNull write SetREGISTRO_MERCANTILIsNull; property REGISTRO_MERCANTILIsNull: Boolean read GetREGISTRO_MERCANTILIsNull write SetREGISTRO_MERCANTILIsNull;
property IVA: Float read GetIVAValue write SetIVAValue; property IVA: Float read GetIVAValue write SetIVAValue;
property IVAIsNull: Boolean read GetIVAIsNull write SetIVAIsNull; property IVAIsNull: Boolean read GetIVAIsNull write SetIVAIsNull;
property PARAM_TIEMPO: Currency read GetPARAM_TIEMPOValue write SetPARAM_TIEMPOValue;
property PARAM_TIEMPOIsNull: Boolean read GetPARAM_TIEMPOIsNull write SetPARAM_TIEMPOIsNull;
property PARAM_MARGEN: Float read GetPARAM_MARGENValue write SetPARAM_MARGENValue;
property PARAM_MARGENIsNull: Boolean read GetPARAM_MARGENIsNull write SetPARAM_MARGENIsNull;
public public
constructor Create(aDataTable: TDADataTable); override; constructor Create(aDataTable: TDADataTable); override;
@ -394,7 +422,7 @@ type
{ IEmpresasDatosBanco } { IEmpresasDatosBanco }
IEmpresasDatosBanco = interface(IDAStronglyTypedDataTable) IEmpresasDatosBanco = interface(IDAStronglyTypedDataTable)
['{E4C2B666-DA61-4076-986F-3FD1FF179EC2}'] ['{2808E04A-4851-4816-ACAD-9B4B8357B765}']
{ Property getters and setters } { Property getters and setters }
function GetIDValue: Integer; function GetIDValue: Integer;
procedure SetIDValue(const aValue: Integer); procedure SetIDValue(const aValue: Integer);
@ -1062,6 +1090,48 @@ begin
DataTable.Fields[idx_EmpresasIVA].AsVariant := Null; DataTable.Fields[idx_EmpresasIVA].AsVariant := Null;
end; end;
function TEmpresasDataTableRules.GetPARAM_TIEMPOValue: Currency;
begin
result := DataTable.Fields[idx_EmpresasPARAM_TIEMPO].AsCurrency;
end;
procedure TEmpresasDataTableRules.SetPARAM_TIEMPOValue(const aValue: Currency);
begin
DataTable.Fields[idx_EmpresasPARAM_TIEMPO].AsCurrency := aValue;
end;
function TEmpresasDataTableRules.GetPARAM_TIEMPOIsNull: boolean;
begin
result := DataTable.Fields[idx_EmpresasPARAM_TIEMPO].IsNull;
end;
procedure TEmpresasDataTableRules.SetPARAM_TIEMPOIsNull(const aValue: Boolean);
begin
if aValue then
DataTable.Fields[idx_EmpresasPARAM_TIEMPO].AsVariant := Null;
end;
function TEmpresasDataTableRules.GetPARAM_MARGENValue: Float;
begin
result := DataTable.Fields[idx_EmpresasPARAM_MARGEN].AsFloat;
end;
procedure TEmpresasDataTableRules.SetPARAM_MARGENValue(const aValue: Float);
begin
DataTable.Fields[idx_EmpresasPARAM_MARGEN].AsFloat := aValue;
end;
function TEmpresasDataTableRules.GetPARAM_MARGENIsNull: boolean;
begin
result := DataTable.Fields[idx_EmpresasPARAM_MARGEN].IsNull;
end;
procedure TEmpresasDataTableRules.SetPARAM_MARGENIsNull(const aValue: Boolean);
begin
if aValue then
DataTable.Fields[idx_EmpresasPARAM_MARGEN].AsVariant := Null;
end;
{ TEmpresasDatosBancoDataTableRules } { TEmpresasDatosBancoDataTableRules }
constructor TEmpresasDatosBancoDataTableRules.Create(aDataTable: TDADataTable); constructor TEmpresasDatosBancoDataTableRules.Create(aDataTable: TDADataTable);

94
Source/ApplicationBase/Empresas/Model/schEmpresasServer_Intf.pas
View File

@ -9,13 +9,13 @@ const
{ Delta rules ids { Delta rules ids
Feel free to change them to something more human readable Feel free to change them to something more human readable
but make sure they are unique in the context of your application } but make sure they are unique in the context of your application }
RID_EmpresasDelta = '{13974051-7EC2-48D3-B7EB-67D4DE412283}'; RID_EmpresasDelta = '{39AC9440-BEDB-4468-8B08-49600891084A}';
RID_EmpresasDatosBancoDelta = '{132B47C7-B0BC-4144-8C00-810C7180BDA0}'; RID_EmpresasDatosBancoDelta = '{A084800E-091E-40AD-9B45-63974394595E}';
type type
{ IEmpresasDelta } { IEmpresasDelta }
IEmpresasDelta = interface(IEmpresas) IEmpresasDelta = interface(IEmpresas)
['{13974051-7EC2-48D3-B7EB-67D4DE412283}'] ['{39AC9440-BEDB-4468-8B08-49600891084A}']
{ Property getters and setters } { Property getters and setters }
function GetOldIDValue : Integer; function GetOldIDValue : Integer;
function GetOldNIF_CIFValue : String; function GetOldNIF_CIFValue : String;
@ -40,6 +40,8 @@ type
function GetOldLOGOTIPOValue : IROStream; function GetOldLOGOTIPOValue : IROStream;
function GetOldREGISTRO_MERCANTILValue : String; function GetOldREGISTRO_MERCANTILValue : String;
function GetOldIVAValue : Float; function GetOldIVAValue : Float;
function GetOldPARAM_TIEMPOValue : Currency;
function GetOldPARAM_MARGENValue : Float;
{ Properties } { Properties }
property OldID : Integer read GetOldIDValue; property OldID : Integer read GetOldIDValue;
@ -65,6 +67,8 @@ type
property OldLOGOTIPO : IROStream read GetOldLOGOTIPOValue; property OldLOGOTIPO : IROStream read GetOldLOGOTIPOValue;
property OldREGISTRO_MERCANTIL : String read GetOldREGISTRO_MERCANTILValue; property OldREGISTRO_MERCANTIL : String read GetOldREGISTRO_MERCANTILValue;
property OldIVA : Float read GetOldIVAValue; property OldIVA : Float read GetOldIVAValue;
property OldPARAM_TIEMPO : Currency read GetOldPARAM_TIEMPOValue;
property OldPARAM_MARGEN : Float read GetOldPARAM_MARGENValue;
end; end;
{ TEmpresasBusinessProcessorRules } { TEmpresasBusinessProcessorRules }
@ -212,6 +216,18 @@ type
function GetOldIVAIsNull: Boolean; virtual; function GetOldIVAIsNull: Boolean; virtual;
procedure SetIVAValue(const aValue: Float); virtual; procedure SetIVAValue(const aValue: Float); virtual;
procedure SetIVAIsNull(const aValue: Boolean); virtual; procedure SetIVAIsNull(const aValue: Boolean); virtual;
function GetPARAM_TIEMPOValue: Currency; virtual;
function GetPARAM_TIEMPOIsNull: Boolean; virtual;
function GetOldPARAM_TIEMPOValue: Currency; virtual;
function GetOldPARAM_TIEMPOIsNull: Boolean; virtual;
procedure SetPARAM_TIEMPOValue(const aValue: Currency); virtual;
procedure SetPARAM_TIEMPOIsNull(const aValue: Boolean); virtual;
function GetPARAM_MARGENValue: Float; virtual;
function GetPARAM_MARGENIsNull: Boolean; virtual;
function GetOldPARAM_MARGENValue: Float; virtual;
function GetOldPARAM_MARGENIsNull: Boolean; virtual;
procedure SetPARAM_MARGENValue(const aValue: Float); virtual;
procedure SetPARAM_MARGENIsNull(const aValue: Boolean); virtual;
{ Properties } { Properties }
property ID : Integer read GetIDValue write SetIDValue; property ID : Integer read GetIDValue write SetIDValue;
@ -306,6 +322,14 @@ type
property IVAIsNull : Boolean read GetIVAIsNull write SetIVAIsNull; property IVAIsNull : Boolean read GetIVAIsNull write SetIVAIsNull;
property OldIVA : Float read GetOldIVAValue; property OldIVA : Float read GetOldIVAValue;
property OldIVAIsNull : Boolean read GetOldIVAIsNull; property OldIVAIsNull : Boolean read GetOldIVAIsNull;
property PARAM_TIEMPO : Currency read GetPARAM_TIEMPOValue write SetPARAM_TIEMPOValue;
property PARAM_TIEMPOIsNull : Boolean read GetPARAM_TIEMPOIsNull write SetPARAM_TIEMPOIsNull;
property OldPARAM_TIEMPO : Currency read GetOldPARAM_TIEMPOValue;
property OldPARAM_TIEMPOIsNull : Boolean read GetOldPARAM_TIEMPOIsNull;
property PARAM_MARGEN : Float read GetPARAM_MARGENValue write SetPARAM_MARGENValue;
property PARAM_MARGENIsNull : Boolean read GetPARAM_MARGENIsNull write SetPARAM_MARGENIsNull;
property OldPARAM_MARGEN : Float read GetOldPARAM_MARGENValue;
property OldPARAM_MARGENIsNull : Boolean read GetOldPARAM_MARGENIsNull;
public public
constructor Create(aBusinessProcessor: TDABusinessProcessor); override; constructor Create(aBusinessProcessor: TDABusinessProcessor); override;
@ -315,7 +339,7 @@ type
{ IEmpresasDatosBancoDelta } { IEmpresasDatosBancoDelta }
IEmpresasDatosBancoDelta = interface(IEmpresasDatosBanco) IEmpresasDatosBancoDelta = interface(IEmpresasDatosBanco)
['{132B47C7-B0BC-4144-8C00-810C7180BDA0}'] ['{A084800E-091E-40AD-9B45-63974394595E}']
{ Property getters and setters } { Property getters and setters }
function GetOldIDValue : Integer; function GetOldIDValue : Integer;
function GetOldID_EMPRESAValue : Integer; function GetOldID_EMPRESAValue : Integer;
@ -1215,6 +1239,68 @@ begin
BusinessProcessor.CurrentChange.NewValueByName[fld_EmpresasIVA] := Null; BusinessProcessor.CurrentChange.NewValueByName[fld_EmpresasIVA] := Null;
end; end;
function TEmpresasBusinessProcessorRules.GetPARAM_TIEMPOValue: Currency;
begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_EmpresasPARAM_TIEMPO];
end;
function TEmpresasBusinessProcessorRules.GetPARAM_TIEMPOIsNull: Boolean;
begin
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_EmpresasPARAM_TIEMPO]);
end;
function TEmpresasBusinessProcessorRules.GetOldPARAM_TIEMPOValue: Currency;
begin
result := BusinessProcessor.CurrentChange.OldValueByName[fld_EmpresasPARAM_TIEMPO];
end;
function TEmpresasBusinessProcessorRules.GetOldPARAM_TIEMPOIsNull: Boolean;
begin
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_EmpresasPARAM_TIEMPO]);
end;
procedure TEmpresasBusinessProcessorRules.SetPARAM_TIEMPOValue(const aValue: Currency);
begin
BusinessProcessor.CurrentChange.NewValueByName[fld_EmpresasPARAM_TIEMPO] := aValue;
end;
procedure TEmpresasBusinessProcessorRules.SetPARAM_TIEMPOIsNull(const aValue: Boolean);
begin
if aValue then
BusinessProcessor.CurrentChange.NewValueByName[fld_EmpresasPARAM_TIEMPO] := Null;
end;
function TEmpresasBusinessProcessorRules.GetPARAM_MARGENValue: Float;
begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_EmpresasPARAM_MARGEN];
end;
function TEmpresasBusinessProcessorRules.GetPARAM_MARGENIsNull: Boolean;
begin
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_EmpresasPARAM_MARGEN]);
end;
function TEmpresasBusinessProcessorRules.GetOldPARAM_MARGENValue: Float;
begin
result := BusinessProcessor.CurrentChange.OldValueByName[fld_EmpresasPARAM_MARGEN];
end;
function TEmpresasBusinessProcessorRules.GetOldPARAM_MARGENIsNull: Boolean;
begin
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_EmpresasPARAM_MARGEN]);
end;
procedure TEmpresasBusinessProcessorRules.SetPARAM_MARGENValue(const aValue: Float);
begin
BusinessProcessor.CurrentChange.NewValueByName[fld_EmpresasPARAM_MARGEN] := aValue;
end;
procedure TEmpresasBusinessProcessorRules.SetPARAM_MARGENIsNull(const aValue: Boolean);
begin
if aValue then
BusinessProcessor.CurrentChange.NewValueByName[fld_EmpresasPARAM_MARGEN] := Null;
end;
{ TEmpresasDatosBancoBusinessProcessorRules } { TEmpresasDatosBancoBusinessProcessorRules }
constructor TEmpresasDatosBancoBusinessProcessorRules.Create(aBusinessProcessor: TDABusinessProcessor); constructor TEmpresasDatosBancoBusinessProcessorRules.Create(aBusinessProcessor: TDABusinessProcessor);

65
Source/ApplicationBase/Empresas/Model/uBizEmpresasServer.pas Normal file
View File

@ -0,0 +1,65 @@
unit uBizEmpresasServer;
interface
uses
uDAInterfaces, uDADelta, uDABusinessProcessor,
schEmpresasServer_Intf;
const
BIZ_SERVER_EMPRESAS = 'Server.Empresas';
type
TBizEmpresasServer = class(TEmpresasBusinessProcessorRules)
protected
procedure AfterProcessChange(Sender: TDABusinessProcessor; aChange: TDADeltaChange; Processed: Boolean;
var CanRemoveFromDelta: Boolean); override;
end;
implementation
uses
Variants, uDAClasses, srvReferencias_Impl, uBusinessUtils, uROClasses,
uDataModuleServer, schEmpresasClient_Intf, Dialogs;
{ TBizEmpresasServer }
procedure TBizEmpresasServer.AfterProcessChange(Sender: TDABusinessProcessor;
aChange: TDADeltaChange; Processed: Boolean; var CanRemoveFromDelta: Boolean);
var
AConn : IDAConnection;
begin
inherited;
{ Por defecto, mantenemos los deltas por si alguna tabla hija los necesita }
CanRemoveFromDelta := False;
case aChange.ChangeType of
ctInsert, ctUpdate: begin
if ((Sender.CurrentChange.OldValueByName[fld_EmpresasPARAM_TIEMPO] <> Sender.CurrentChange.NewValueByName[fld_EmpresasPARAM_TIEMPO])
or (Sender.CurrentChange.OldValueByName[fld_EmpresasPARAM_MARGEN] <> Sender.CurrentChange.NewValueByName[fld_EmpresasPARAM_MARGEN])) then
begin
try
//Recalculamos los PVP del catalogo
AConn := dmServer.ConnectionManager.NewConnection(dmServer.ConnectionManager.GetDefaultConnectionName);
AConn.BeginTransaction;
Sender.Schema.NewCommand(AConn, 'RecalcularPVPArticulos', ['ID_EMPRESA'], [Sender.CurrentChange.OldValueByName[fld_EmpresasID]]);
AConn.CommitTransaction;
except
AConn.RollbackTransaction;
RaiseError('RecalcularPVPArticulos');
end;
AConn:= Nil;
end;
end;
end;
end;
initialization
RegisterBusinessProcessorRules(BIZ_SERVER_EMPRESAS, TBizEmpresasServer);
end.

48
Source/ApplicationBase/Empresas/Servidor/srvEmpresas_Impl.dfm
View File

@ -117,6 +117,14 @@ object srvEmpresas: TsrvEmpresas
item item
DatasetField = 'IVA' DatasetField = 'IVA'
TableField = 'IVA' TableField = 'IVA'
end
item
DatasetField = 'PARAM_TIEMPO'
TableField = 'PARAM_TIEMPO'
end
item
DatasetField = 'PARAM_MARGEN'
TableField = 'PARAM_MARGEN'
end> end>
end> end>
Name = 'Empresas' Name = 'Empresas'
@ -256,6 +264,14 @@ object srvEmpresas: TsrvEmpresas
Name = 'IVA' Name = 'IVA'
DataType = datFloat DataType = datFloat
DictionaryEntry = 'Empresas_IVA' DictionaryEntry = 'Empresas_IVA'
end
item
Name = 'PARAM_TIEMPO'
DataType = datCurrency
end
item
Name = 'PARAM_MARGEN'
DataType = datFloat
end> end>
end end
item item
@ -383,7 +399,25 @@ object srvEmpresas: TsrvEmpresas
end> end>
JoinDataTables = <> JoinDataTables = <>
UnionDataTables = <> UnionDataTables = <>
Commands = <> Commands = <
item
Params = <
item
Name = 'id_empresa'
Value = ''
end>
Statements = <
item
Connection = 'IBX'
ConnectionType = 'Interbase'
Default = True
Name = 'IBX'
SQL = 'execute procedure PRO_ART_RECALCULAR_PVP :id_empresa'#10
StatementType = stSQL
ColumnMappings = <>
end>
Name = 'RecalcularPVPArticulos'
end>
RelationShips = < RelationShips = <
item item
Name = 'FK_EmpresasDatosBanco_Empresas' Name = 'FK_EmpresasDatosBanco_Empresas'
@ -639,12 +673,20 @@ object srvEmpresas: TsrvEmpresas
Top = 90 Top = 90
DiagramData = DiagramData =
'<Diagrams>'#13#10' <Diagram Name="New Diagram" Left="200" Top="200" W' + '<Diagrams>'#13#10' <Diagram Name="New Diagram" Left="200" Top="200" W' +
'idth="400" Height="300">'#13#10' <Entity Name="EmpresasDatosBanco" ' + 'idth="400" Height="300">'#13#10' <Entity Name="Empresas" Left="0,00' +
'Left="309,00" Top="0,00" />'#13#10' <Entity Name="Empresas" Left="0' + '" Top="1,00" />'#13#10' <Entity Name="EmpresasDatosBanco" Left="308' +
',00" Top="0,00" />'#13#10' </Diagram>'#13#10'</Diagrams>'#13#10 ',00" Top="0,00" />'#13#10' </Diagram>'#13#10'</Diagrams>'#13#10
end end
object DABin2DataStreamer: TDABin2DataStreamer object DABin2DataStreamer: TDABin2DataStreamer
Left = 48 Left = 48
Top = 88 Top = 88
end end
object bpEmpresas: TDABusinessProcessor
Schema = schEmpresas
ReferencedDataset = 'Empresas'
ProcessorOptions = [poAutoGenerateInsert, poAutoGenerateUpdate, poAutoGenerateDelete, poAutoGenerateRefreshDataset, poPrepareCommands]
UpdateMode = updWhereKeyOnly
Left = 264
Top = 24
end
end end

4
Source/ApplicationBase/Empresas/Servidor/srvEmpresas_Impl.pas
View File

@ -23,6 +23,7 @@ type
TsrvEmpresas = class(TDataAbstractService, IsrvEmpresas) TsrvEmpresas = class(TDataAbstractService, IsrvEmpresas)
Diagrams: TDADiagrams; Diagrams: TDADiagrams;
DABin2DataStreamer: TDABin2DataStreamer; DABin2DataStreamer: TDABin2DataStreamer;
bpEmpresas: TDABusinessProcessor;
schEmpresas: TDASchema; schEmpresas: TDASchema;
DataDictionary: TDADataDictionary; DataDictionary: TDADataDictionary;
procedure DARemoteServiceCreate(Sender: TObject); procedure DARemoteServiceCreate(Sender: TObject);
@ -45,7 +46,7 @@ uses
{Generated:} FactuGES_Invk, uDataModuleServer, uRORemoteDataModule, {Generated:} FactuGES_Invk, uDataModuleServer, uRORemoteDataModule,
uDatabaseUtils, Dialogs, Variants, uROStreamSerializer, uROBinaryHelpers, uDatabaseUtils, Dialogs, Variants, uROStreamSerializer, uROBinaryHelpers,
uSesionesUtils, schEmpresasClient_Intf, uUsersManager, uSesionesUtils, schEmpresasClient_Intf, uUsersManager,
uRestriccionesUsuarioUtils, uROClasses; uRestriccionesUsuarioUtils, uROClasses, uBizEmpresasServer;
procedure Create_srvEmpresas(out anInstance : IUnknown); procedure Create_srvEmpresas(out anInstance : IUnknown);
begin begin
@ -117,6 +118,7 @@ end;
procedure TsrvEmpresas.DARemoteServiceCreate(Sender: TObject); procedure TsrvEmpresas.DARemoteServiceCreate(Sender: TObject);
begin begin
SessionManager := dmServer.SessionManager; SessionManager := dmServer.SessionManager;
bpEmpresas.BusinessRulesID := BIZ_SERVER_EMPRESAS;
end; end;
procedure TsrvEmpresas.DataAbstractServiceBeforeAcquireConnection( procedure TsrvEmpresas.DataAbstractServiceBeforeAcquireConnection(

32
Source/ApplicationBase/Empresas/Views/uEditorEmpresa.dfm
View File

@ -119,28 +119,28 @@ inherited fEditorEmpresa: TfEditorEmpresa
ExplicitTop = 267 ExplicitTop = 267
end end
inherited eCalle: TcxDBTextEdit inherited eCalle: TcxDBTextEdit
Top = 189 Top = 240
ExplicitTop = 189 ExplicitTop = 240
ExplicitWidth = 234 ExplicitWidth = 234
Width = 234 Width = 234
end end
inherited eProvincia: TcxDBTextEdit inherited eProvincia: TcxDBTextEdit
Top = 243 Top = 294
ExplicitTop = 243 ExplicitTop = 294
ExplicitWidth = 234 ExplicitWidth = 234
Width = 234 Width = 234
end end
inherited ePoblacion: TcxDBTextEdit inherited ePoblacion: TcxDBTextEdit
Top = 216 Top = 267
ExplicitTop = 216 ExplicitTop = 267
ExplicitWidth = 99 ExplicitWidth = 99
Width = 99 Width = 99
end end
inherited eCodigoPostal: TcxDBTextEdit inherited eCodigoPostal: TcxDBTextEdit
Left = 286 Left = 286
Top = 216 Top = 267
ExplicitLeft = 286 ExplicitLeft = 286
ExplicitTop = 216 ExplicitTop = 267
end end
inherited ePaginaWeb: TcxDBTextEdit inherited ePaginaWeb: TcxDBTextEdit
Left = 474 Left = 474
@ -167,11 +167,11 @@ inherited fEditorEmpresa: TfEditorEmpresa
Width = 164 Width = 164
end end
inherited cxDBMemo1: TcxDBMemo inherited cxDBMemo1: TcxDBMemo
Top = 294 Top = 345
ExplicitTop = 294 ExplicitTop = 345
ExplicitWidth = 329 ExplicitWidth = 329
ExplicitHeight = 115 ExplicitHeight = 64
Height = 115 Height = 64
Width = 329 Width = 329
end end
inherited eTlfParticular: TcxDBTextEdit inherited eTlfParticular: TcxDBTextEdit
@ -238,6 +238,14 @@ inherited fEditorEmpresa: TfEditorEmpresa
Height = 142 Height = 142
Width = 230 Width = 230
end end
inherited eParamMargen: TcxDBSpinEdit
Top = 189
ExplicitTop = 189
end
inherited eParamTiempo: TcxDBCurrencyEdit
Top = 189
ExplicitTop = 189
end
end end
end end
end end

6
Source/ApplicationBase/Empresas/Views/uEditorEmpresa.pas
View File

@ -79,7 +79,11 @@ end;
procedure TfEditorEmpresa.GuardarInterno; procedure TfEditorEmpresa.GuardarInterno;
begin begin
inherited; inherited;
FController.Guardar(FEmpresa); if FController.Guardar(FEmpresa)
and frViewEmpresa1.bModificarCatalogo then
Application.MessageBox('Los precios del catálogo de artículos han sido modificados correctamente,'
+ #13 + #10 + 'con el nuevo margen de venta y precio minuto', 'Atención', MB_OK);
Modified := False; Modified := False;
end; end;

160
Source/ApplicationBase/Empresas/Views/uViewEmpresa.dfm
View File

@ -1,20 +1,20 @@
inherited frViewEmpresa: TfrViewEmpresa inherited frViewEmpresa: TfrViewEmpresa
Width = 590 Width = 734
Height = 385 Height = 442
ExplicitWidth = 590 ExplicitWidth = 734
ExplicitHeight = 385 ExplicitHeight = 442
object dxLayoutControl1: TdxLayoutControl object dxLayoutControl1: TdxLayoutControl
Left = 0 Left = 0
Top = 0 Top = 0
Width = 590 Width = 734
Height = 385 Height = 442
Align = alClient Align = alClient
ParentBackground = True ParentBackground = True
TabOrder = 0 TabOrder = 0
TabStop = False TabStop = False
AutoContentSizes = [acsWidth, acsHeight] AutoContentSizes = [acsWidth, acsHeight]
object PngSpeedButton1: TPngSpeedButton object PngSpeedButton1: TPngSpeedButton
Left = 545 Left = 689
Top = 305 Top = 305
Width = 23 Width = 23
Height = 22 Height = 22
@ -22,7 +22,7 @@ inherited frViewEmpresa: TfrViewEmpresa
PngOptions = [pngBlendOnDisabled, pngGrayscaleOnDisabled] PngOptions = [pngBlendOnDisabled, pngGrayscaleOnDisabled]
end end
object PngSpeedButton2: TPngSpeedButton object PngSpeedButton2: TPngSpeedButton
Left = 545 Left = 689
Top = 277 Top = 277
Width = 23 Width = 23
Height = 22 Height = 22
@ -31,7 +31,7 @@ inherited frViewEmpresa: TfrViewEmpresa
end end
object eCalle: TcxDBTextEdit object eCalle: TcxDBTextEdit
Left = 117 Left = 117
Top = 193 Top = 272
DataBinding.DataField = 'CALLE' DataBinding.DataField = 'CALLE'
DataBinding.DataSource = DADataSource DataBinding.DataSource = DADataSource
Style.BorderColor = clWindowFrame Style.BorderColor = clWindowFrame
@ -44,12 +44,12 @@ inherited frViewEmpresa: TfrViewEmpresa
StyleFocused.LookAndFeel.NativeStyle = True StyleFocused.LookAndFeel.NativeStyle = True
StyleHot.LookAndFeel.Kind = lfStandard StyleHot.LookAndFeel.Kind = lfStandard
StyleHot.LookAndFeel.NativeStyle = True StyleHot.LookAndFeel.NativeStyle = True
TabOrder = 4 TabOrder = 6
Width = 194 Width = 324
end end
object eProvincia: TcxDBTextEdit object eProvincia: TcxDBTextEdit
Left = 117 Left = 117
Top = 247 Top = 326
DataBinding.DataField = 'PROVINCIA' DataBinding.DataField = 'PROVINCIA'
DataBinding.DataSource = DADataSource DataBinding.DataSource = DADataSource
Style.BorderColor = clWindowFrame Style.BorderColor = clWindowFrame
@ -62,12 +62,12 @@ inherited frViewEmpresa: TfrViewEmpresa
StyleFocused.LookAndFeel.NativeStyle = True StyleFocused.LookAndFeel.NativeStyle = True
StyleHot.LookAndFeel.Kind = lfStandard StyleHot.LookAndFeel.Kind = lfStandard
StyleHot.LookAndFeel.NativeStyle = True StyleHot.LookAndFeel.NativeStyle = True
TabOrder = 7 TabOrder = 9
Width = 194 Width = 324
end end
object ePoblacion: TcxDBTextEdit object ePoblacion: TcxDBTextEdit
Left = 117 Left = 117
Top = 220 Top = 299
DataBinding.DataField = 'POBLACION' DataBinding.DataField = 'POBLACION'
DataBinding.DataSource = DADataSource DataBinding.DataSource = DADataSource
Style.BorderColor = clWindowFrame Style.BorderColor = clWindowFrame
@ -80,12 +80,12 @@ inherited frViewEmpresa: TfrViewEmpresa
StyleFocused.LookAndFeel.NativeStyle = True StyleFocused.LookAndFeel.NativeStyle = True
StyleHot.LookAndFeel.Kind = lfStandard StyleHot.LookAndFeel.Kind = lfStandard
StyleHot.LookAndFeel.NativeStyle = True StyleHot.LookAndFeel.NativeStyle = True
TabOrder = 5 TabOrder = 7
Width = 59 Width = 189
end end
object eCodigoPostal: TcxDBTextEdit object eCodigoPostal: TcxDBTextEdit
Left = 246 Left = 376
Top = 220 Top = 299
DataBinding.DataField = 'CODIGO_POSTAL' DataBinding.DataField = 'CODIGO_POSTAL'
DataBinding.DataSource = DADataSource DataBinding.DataSource = DADataSource
Style.BorderColor = clWindowFrame Style.BorderColor = clWindowFrame
@ -98,11 +98,11 @@ inherited frViewEmpresa: TfrViewEmpresa
StyleFocused.LookAndFeel.NativeStyle = True StyleFocused.LookAndFeel.NativeStyle = True
StyleHot.LookAndFeel.Kind = lfStandard StyleHot.LookAndFeel.Kind = lfStandard
StyleHot.LookAndFeel.NativeStyle = True StyleHot.LookAndFeel.NativeStyle = True
TabOrder = 6 TabOrder = 8
Width = 65 Width = 65
end end
object ePaginaWeb: TcxDBTextEdit object ePaginaWeb: TcxDBTextEdit
Left = 436 Left = 566
Top = 220 Top = 220
DataBinding.DataField = 'PAGINA_WEB' DataBinding.DataField = 'PAGINA_WEB'
DataBinding.DataSource = DADataSource DataBinding.DataSource = DADataSource
@ -116,11 +116,11 @@ inherited frViewEmpresa: TfrViewEmpresa
StyleFocused.LookAndFeel.NativeStyle = True StyleFocused.LookAndFeel.NativeStyle = True
StyleHot.LookAndFeel.Kind = lfStandard StyleHot.LookAndFeel.Kind = lfStandard
StyleHot.LookAndFeel.NativeStyle = True StyleHot.LookAndFeel.NativeStyle = True
TabOrder = 15 TabOrder = 17
Width = 132 Width = 146
end end
object eMailParticular: TcxDBTextEdit object eMailParticular: TcxDBTextEdit
Left = 436 Left = 566
Top = 193 Top = 193
DataBinding.DataField = 'EMAIL_2' DataBinding.DataField = 'EMAIL_2'
DataBinding.DataSource = DADataSource DataBinding.DataSource = DADataSource
@ -134,11 +134,11 @@ inherited frViewEmpresa: TfrViewEmpresa
StyleFocused.LookAndFeel.NativeStyle = True StyleFocused.LookAndFeel.NativeStyle = True
StyleHot.LookAndFeel.Kind = lfStandard StyleHot.LookAndFeel.Kind = lfStandard
StyleHot.LookAndFeel.NativeStyle = True StyleHot.LookAndFeel.NativeStyle = True
TabOrder = 14 TabOrder = 16
Width = 132 Width = 146
end end
object eMailTrabajo: TcxDBTextEdit object eMailTrabajo: TcxDBTextEdit
Left = 436 Left = 566
Top = 166 Top = 166
DataBinding.DataField = 'EMAIL_1' DataBinding.DataField = 'EMAIL_1'
DataBinding.DataSource = DADataSource DataBinding.DataSource = DADataSource
@ -152,12 +152,12 @@ inherited frViewEmpresa: TfrViewEmpresa
StyleFocused.LookAndFeel.NativeStyle = True StyleFocused.LookAndFeel.NativeStyle = True
StyleHot.LookAndFeel.Kind = lfStandard StyleHot.LookAndFeel.Kind = lfStandard
StyleHot.LookAndFeel.NativeStyle = True StyleHot.LookAndFeel.NativeStyle = True
TabOrder = 13 TabOrder = 15
Width = 132 Width = 146
end end
object cxDBMemo1: TcxDBMemo object cxDBMemo1: TcxDBMemo
Left = 22 Left = 22
Top = 304 Top = 383
DataBinding.DataField = 'NOTAS' DataBinding.DataField = 'NOTAS'
DataBinding.DataSource = DADataSource DataBinding.DataSource = DADataSource
Style.BorderColor = clWindowFrame Style.BorderColor = clWindowFrame
@ -170,12 +170,12 @@ inherited frViewEmpresa: TfrViewEmpresa
StyleFocused.LookAndFeel.NativeStyle = True StyleFocused.LookAndFeel.NativeStyle = True
StyleHot.LookAndFeel.Kind = lfStandard StyleHot.LookAndFeel.Kind = lfStandard
StyleHot.LookAndFeel.NativeStyle = True StyleHot.LookAndFeel.NativeStyle = True
TabOrder = 8 TabOrder = 10
Height = 59 Height = 29
Width = 289 Width = 419
end end
object eTlfParticular: TcxDBTextEdit object eTlfParticular: TcxDBTextEdit
Left = 436 Left = 566
Top = 55 Top = 55
DataBinding.DataField = 'TELEFONO_2' DataBinding.DataField = 'TELEFONO_2'
DataBinding.DataSource = DADataSource DataBinding.DataSource = DADataSource
@ -189,11 +189,11 @@ inherited frViewEmpresa: TfrViewEmpresa
StyleFocused.LookAndFeel.NativeStyle = True StyleFocused.LookAndFeel.NativeStyle = True
StyleHot.LookAndFeel.Kind = lfStandard StyleHot.LookAndFeel.Kind = lfStandard
StyleHot.LookAndFeel.NativeStyle = True StyleHot.LookAndFeel.NativeStyle = True
TabOrder = 10 TabOrder = 12
Width = 132 Width = 146
end end
object eTlfTrabajo: TcxDBTextEdit object eTlfTrabajo: TcxDBTextEdit
Left = 436 Left = 566
Top = 28 Top = 28
DataBinding.DataField = 'TELEFONO_1' DataBinding.DataField = 'TELEFONO_1'
DataBinding.DataSource = DADataSource DataBinding.DataSource = DADataSource
@ -207,11 +207,11 @@ inherited frViewEmpresa: TfrViewEmpresa
StyleFocused.LookAndFeel.NativeStyle = True StyleFocused.LookAndFeel.NativeStyle = True
StyleHot.LookAndFeel.Kind = lfStandard StyleHot.LookAndFeel.Kind = lfStandard
StyleHot.LookAndFeel.NativeStyle = True StyleHot.LookAndFeel.NativeStyle = True
TabOrder = 9 TabOrder = 11
Width = 132 Width = 146
end end
object eTlfMovil: TcxDBTextEdit object eTlfMovil: TcxDBTextEdit
Left = 436 Left = 566
Top = 82 Top = 82
DataBinding.DataField = 'MOVIL_1' DataBinding.DataField = 'MOVIL_1'
DataBinding.DataSource = DADataSource DataBinding.DataSource = DADataSource
@ -225,11 +225,11 @@ inherited frViewEmpresa: TfrViewEmpresa
StyleFocused.LookAndFeel.NativeStyle = True StyleFocused.LookAndFeel.NativeStyle = True
StyleHot.LookAndFeel.Kind = lfStandard StyleHot.LookAndFeel.Kind = lfStandard
StyleHot.LookAndFeel.NativeStyle = True StyleHot.LookAndFeel.NativeStyle = True
TabOrder = 11 TabOrder = 13
Width = 132 Width = 146
end end
object eFax: TcxDBTextEdit object eFax: TcxDBTextEdit
Left = 436 Left = 566
Top = 109 Top = 109
DataBinding.DataField = 'FAX' DataBinding.DataField = 'FAX'
DataBinding.DataSource = DADataSource DataBinding.DataSource = DADataSource
@ -243,8 +243,8 @@ inherited frViewEmpresa: TfrViewEmpresa
StyleFocused.LookAndFeel.NativeStyle = True StyleFocused.LookAndFeel.NativeStyle = True
StyleHot.LookAndFeel.Kind = lfStandard StyleHot.LookAndFeel.Kind = lfStandard
StyleHot.LookAndFeel.NativeStyle = True StyleHot.LookAndFeel.NativeStyle = True
TabOrder = 12 TabOrder = 14
Width = 132 Width = 146
end end
object eNombre: TcxDBTextEdit object eNombre: TcxDBTextEdit
Left = 117 Left = 117
@ -263,7 +263,7 @@ inherited frViewEmpresa: TfrViewEmpresa
StyleHot.LookAndFeel.Kind = lfStandard StyleHot.LookAndFeel.Kind = lfStandard
StyleHot.LookAndFeel.NativeStyle = True StyleHot.LookAndFeel.NativeStyle = True
TabOrder = 0 TabOrder = 0
Width = 194 Width = 324
end end
object eNIFCIF: TcxDBTextEdit object eNIFCIF: TcxDBTextEdit
Left = 117 Left = 117
@ -282,7 +282,7 @@ inherited frViewEmpresa: TfrViewEmpresa
StyleHot.LookAndFeel.Kind = lfStandard StyleHot.LookAndFeel.Kind = lfStandard
StyleHot.LookAndFeel.NativeStyle = True StyleHot.LookAndFeel.NativeStyle = True
TabOrder = 1 TabOrder = 1
Width = 194 Width = 324
end end
object memRegistroMercantil: TcxDBMemo object memRegistroMercantil: TcxDBMemo
Left = 117 Left = 117
@ -302,7 +302,7 @@ inherited frViewEmpresa: TfrViewEmpresa
StyleHot.LookAndFeel.NativeStyle = True StyleHot.LookAndFeel.NativeStyle = True
TabOrder = 2 TabOrder = 2
Height = 48 Height = 48
Width = 194 Width = 324
end end
object cxDBSpinEdit1: TcxDBSpinEdit object cxDBSpinEdit1: TcxDBSpinEdit
Left = 117 Left = 117
@ -325,7 +325,7 @@ inherited frViewEmpresa: TfrViewEmpresa
Width = 60 Width = 60
end end
object cxDBImage1: TcxDBImage object cxDBImage1: TcxDBImage
Left = 341 Left = 471
Top = 277 Top = 277
DataBinding.DataField = 'LOGOTIPO' DataBinding.DataField = 'LOGOTIPO'
DataBinding.DataSource = DADataSource DataBinding.DataSource = DADataSource
@ -337,9 +337,51 @@ inherited frViewEmpresa: TfrViewEmpresa
StyleDisabled.LookAndFeel.NativeStyle = True StyleDisabled.LookAndFeel.NativeStyle = True
StyleFocused.LookAndFeel.NativeStyle = True StyleFocused.LookAndFeel.NativeStyle = True
StyleHot.LookAndFeel.NativeStyle = True StyleHot.LookAndFeel.NativeStyle = True
TabOrder = 16 TabOrder = 18
Height = 86 Height = 143
Width = 198 Width = 212
end
object eParamMargen: TcxDBSpinEdit
Left = 117
Top = 215
DataBinding.DataField = 'PARAM_MARGEN'
DataBinding.DataSource = DADataSource
Properties.OnValidate = eParamMargenPropertiesValidate
Style.BorderColor = clWindowFrame
Style.BorderStyle = ebs3D
Style.HotTrack = False
Style.LookAndFeel.Kind = lfStandard
Style.LookAndFeel.NativeStyle = True
Style.ButtonStyle = bts3D
StyleDisabled.LookAndFeel.Kind = lfStandard
StyleDisabled.LookAndFeel.NativeStyle = True
StyleFocused.LookAndFeel.Kind = lfStandard
StyleFocused.LookAndFeel.NativeStyle = True
StyleHot.LookAndFeel.Kind = lfStandard
StyleHot.LookAndFeel.NativeStyle = True
TabOrder = 4
Width = 60
end
object eParamTiempo: TcxDBCurrencyEdit
Left = 240
Top = 215
DataBinding.DataField = 'PARAM_TIEMPO'
DataBinding.DataSource = DADataSource
Properties.Alignment.Horz = taRightJustify
Properties.OnValidate = eParamTiempoPropertiesValidate
Style.BorderColor = clWindowFrame
Style.BorderStyle = ebs3D
Style.HotTrack = False
Style.LookAndFeel.Kind = lfStandard
Style.LookAndFeel.NativeStyle = True
StyleDisabled.LookAndFeel.Kind = lfStandard
StyleDisabled.LookAndFeel.NativeStyle = True
StyleFocused.LookAndFeel.Kind = lfStandard
StyleFocused.LookAndFeel.NativeStyle = True
StyleHot.LookAndFeel.Kind = lfStandard
StyleHot.LookAndFeel.NativeStyle = True
TabOrder = 5
Width = 100
end end
object dxLayoutControl1Group_Root: TdxLayoutGroup object dxLayoutControl1Group_Root: TdxLayoutGroup
ShowCaption = False ShowCaption = False
@ -380,6 +422,20 @@ inherited frViewEmpresa: TfrViewEmpresa
ControlOptions.ShowBorder = False ControlOptions.ShowBorder = False
end end
end end
object dxLayoutControl1Group13: TdxLayoutGroup
Caption = 'Datos cat'#225'logo art'#237'culos'
LayoutDirection = ldHorizontal
object dxLayoutControl1Item18: TdxLayoutItem
Caption = 'Margen de venta:'
Control = eParamMargen
ControlOptions.ShowBorder = False
end
object dxLayoutControl1Item21: TdxLayoutItem
Caption = 'Precio min:'
Control = eParamTiempo
ControlOptions.ShowBorder = False
end
end
object dxLayoutControl1Group3: TdxLayoutGroup object dxLayoutControl1Group3: TdxLayoutGroup
AutoAligns = [aaHorizontal] AutoAligns = [aaHorizontal]
Caption = 'Direcci'#243'n' Caption = 'Direcci'#243'n'

35
Source/ApplicationBase/Empresas/Views/uViewEmpresa.pas
View File

@ -15,7 +15,7 @@ uses
dxSkinLondonLiquidSky, dxSkinMcSkin, dxSkinMoneyTwins, dxSkinOffice2007Black, dxSkinLondonLiquidSky, dxSkinMcSkin, dxSkinMoneyTwins, dxSkinOffice2007Black,
dxSkinOffice2007Blue, dxSkinOffice2007Green, dxSkinOffice2007Pink, dxSkinOffice2007Blue, dxSkinOffice2007Green, dxSkinOffice2007Pink,
dxSkinOffice2007Silver, dxSkinSilver, dxSkinStardust, dxSkinsDefaultPainters, dxSkinOffice2007Silver, dxSkinSilver, dxSkinStardust, dxSkinsDefaultPainters,
dxSkinValentine, dxSkinXmas2008Blue, dxSkinsdxLCPainter; dxSkinValentine, dxSkinXmas2008Blue, dxSkinsdxLCPainter, cxCurrencyEdit;
type type
IViewEmpresa = interface(IViewBase) IViewEmpresa = interface(IViewBase)
@ -84,16 +84,26 @@ type
PngSpeedButton2: TPngSpeedButton; PngSpeedButton2: TPngSpeedButton;
dxLayoutControl1Item20: TdxLayoutItem; dxLayoutControl1Item20: TdxLayoutItem;
dxLayoutControl1Group12: TdxLayoutGroup; dxLayoutControl1Group12: TdxLayoutGroup;
dxLayoutControl1Group13: TdxLayoutGroup;
dxLayoutControl1Item18: TdxLayoutItem;
eParamMargen: TcxDBSpinEdit;
dxLayoutControl1Item21: TdxLayoutItem;
eParamTiempo: TcxDBCurrencyEdit;
procedure actAnadirExecute(Sender: TObject); procedure actAnadirExecute(Sender: TObject);
procedure actEliminarExecute(Sender: TObject); procedure actEliminarExecute(Sender: TObject);
procedure actEliminarUpdate(Sender: TObject); procedure actEliminarUpdate(Sender: TObject);
procedure actAnadirUpdate(Sender: TObject); procedure actAnadirUpdate(Sender: TObject);
procedure eParamTiempoPropertiesValidate(Sender: TObject;
var DisplayValue: Variant; var ErrorText: TCaption; var Error: Boolean);
procedure eParamMargenPropertiesValidate(Sender: TObject;
var DisplayValue: Variant; var ErrorText: TCaption; var Error: Boolean);
private private
FEmpresa: IBizEmpresa; FEmpresa: IBizEmpresa;
protected protected
function GetEmpresa: IBizEmpresa; function GetEmpresa: IBizEmpresa;
procedure SetEmpresa(const Value: IBizEmpresa); procedure SetEmpresa(const Value: IBizEmpresa);
public public
bModificarCatalogo: Boolean;
constructor Create(AOwner : TComponent); override; constructor Create(AOwner : TComponent); override;
end; end;
@ -159,6 +169,29 @@ end;
constructor TfrViewEmpresa.Create(AOwner : TComponent); constructor TfrViewEmpresa.Create(AOwner : TComponent);
begin begin
inherited; inherited;
bModificarCatalogo := False;
end;
procedure TfrViewEmpresa.eParamMargenPropertiesValidate(Sender: TObject;
var DisplayValue: Variant; var ErrorText: TCaption; var Error: Boolean);
begin
inherited;
if (Application.MessageBox('Si modifica el margen de venta, se recalcularán los precios del catálogo de artículos, ¿Esta seguro que desea continuar?', 'Atención', MB_YESNO) = IDYES) then
bModificarCatalogo := True
else
DisplayValue := eParamTiempo.Value;
end;
procedure TfrViewEmpresa.eParamTiempoPropertiesValidate(Sender: TObject;
var DisplayValue: Variant; var ErrorText: TCaption; var Error: Boolean);
begin
inherited;
if (Application.MessageBox('Si modifica el precio minuto, se recalcularán los precios del catálogo de artículos, ¿Esta seguro que desea continuar?', 'Atención', MB_YESNO) = IDYES) then
bModificarCatalogo := True
else
DisplayValue := eParamTiempo.Value;
end; end;
function TfrViewEmpresa.GetEmpresa: IBizEmpresa; function TfrViewEmpresa.GetEmpresa: IBizEmpresa;

2
Source/Modulos/Albaranes de cliente/Controller/uDetallesAlbaranClienteController.pas
View File

@ -152,7 +152,7 @@ end;
procedure TDetallesAlbaranClienteController.RellenarImportes(ADetalles: IDAStronglyTypedDataTable; AArticulos: IBizArticulo); procedure TDetallesAlbaranClienteController.RellenarImportes(ADetalles: IDAStronglyTypedDataTable; AArticulos: IBizArticulo);
begin begin
if Assigned(AArticulos) then if Assigned(AArticulos) then
ADetalles.DataTable.FieldByName(CAMPO_IMPORTE_UNIDAD).AsVariant := AArticulos.PRECIO_PVP ADetalles.DataTable.FieldByName(CAMPO_IMPORTE_UNIDAD).AsVariant := AArticulos.PRECIO_PVP_TOTAL
else else
ADetalles.DataTable.FieldByName(CAMPO_IMPORTE_UNIDAD).AsVariant := Null; ADetalles.DataTable.FieldByName(CAMPO_IMPORTE_UNIDAD).AsVariant := Null;
end; end;

15
Source/Modulos/Albaranes de proveedor/Views/uViewElegirArticulosAlbaranesProveedor.dfm
View File

@ -1,18 +1,11 @@
inherited frViewElegirArticulosAlbaranesProveedor: TfrViewElegirArticulosAlbaranesProveedor inherited frViewElegirArticulosAlbaranesProveedor: TfrViewElegirArticulosAlbaranesProveedor
Height = 414 Height = 414
OnDestroy = CustomViewDestroy
ExplicitHeight = 414 ExplicitHeight = 414
inherited cxGrid: TcxGrid inherited cxGrid: TcxGrid
Height = 286 Height = 286
RootLevelOptions.DetailTabsPosition = dtpTop RootLevelOptions.DetailTabsPosition = dtpTop
OnActiveTabChanged = cxGridActiveTabChanged OnActiveTabChanged = cxGridActiveTabChanged
ExplicitHeight = 286 ExplicitHeight = 286
inherited cxGridView: TcxGridDBTableView
object cxGridViewID_PROVEEDOR: TcxGridDBColumn
DataBinding.FieldName = 'ID_PROVEEDOR'
Visible = False
end
end
object cxGridLevel1: TcxGridLevel object cxGridLevel1: TcxGridLevel
Caption = 'Otros proveedores' Caption = 'Otros proveedores'
end end
@ -20,10 +13,6 @@ inherited frViewElegirArticulosAlbaranesProveedor: TfrViewElegirArticulosAlbaran
inherited frViewFiltroBase1: TfrViewFiltroBase inherited frViewFiltroBase1: TfrViewFiltroBase
inherited TBXDockablePanel1: TTBXDockablePanel inherited TBXDockablePanel1: TTBXDockablePanel
inherited dxLayoutControl1: TdxLayoutControl inherited dxLayoutControl1: TdxLayoutControl
inherited txtFiltroTodo: TcxTextEdit
ExplicitWidth = 273
Width = 273
end
inherited edtFechaIniFiltro: TcxDateEdit inherited edtFechaIniFiltro: TcxDateEdit
ExplicitWidth = 121 ExplicitWidth = 121
Width = 121 Width = 121
@ -32,6 +21,10 @@ inherited frViewElegirArticulosAlbaranesProveedor: TfrViewElegirArticulosAlbaran
ExplicitWidth = 121 ExplicitWidth = 121
Width = 121 Width = 121
end end
inherited eLista: TcxComboBox
Left = 383
ExplicitLeft = 383
end
end end
end end
end end

9
Source/Modulos/Albaranes de proveedor/Views/uViewElegirArticulosAlbaranesProveedor.pas
View File

@ -12,7 +12,13 @@ uses
uDADataTable, cxGridLevel, cxGridCustomTableView, cxGridTableView, uDADataTable, cxGridLevel, cxGridCustomTableView, cxGridTableView,
cxGridDBTableView, cxClasses, cxControls, cxGridCustomView, cxGrid, uBizContactos, cxGridDBTableView, cxClasses, cxControls, cxGridCustomView, cxGrid, uBizContactos,
dxPgsDlg, ActnList, TB2Item, TBX, TB2Toolbar, TBXDkPanels, TB2Dock, dxPgsDlg, ActnList, TB2Item, TBX, TB2Toolbar, TBXDkPanels, TB2Dock,
uViewFiltroBase; uViewFiltroBase, dxSkinsCore, dxSkinBlack, dxSkinBlue, dxSkinCaramel,
dxSkinCoffee, dxSkinGlassOceans, dxSkiniMaginary, dxSkinLilian,
dxSkinLiquidSky, dxSkinLondonLiquidSky, dxSkinMcSkin, dxSkinMoneyTwins,
dxSkinOffice2007Black, dxSkinOffice2007Blue, dxSkinOffice2007Green,
dxSkinOffice2007Pink, dxSkinOffice2007Silver, dxSkinSilver, dxSkinStardust,
dxSkinsDefaultPainters, dxSkinValentine, dxSkinXmas2008Blue,
dxSkinscxPCPainter, uDAInterfaces;
type type
IViewElegirArticulosAlbaranesProveedor = interface(IViewArticulos) IViewElegirArticulosAlbaranesProveedor = interface(IViewArticulos)
@ -24,7 +30,6 @@ type
TfrViewElegirArticulosAlbaranesProveedor = class(TfrViewArticulos, IViewElegirArticulosAlbaranesProveedor) TfrViewElegirArticulosAlbaranesProveedor = class(TfrViewArticulos, IViewElegirArticulosAlbaranesProveedor)
cxGridLevel1: TcxGridLevel; cxGridLevel1: TcxGridLevel;
cxGridViewID_PROVEEDOR: TcxGridDBColumn;
procedure cxGridActiveTabChanged(Sender: TcxCustomGrid; procedure cxGridActiveTabChanged(Sender: TcxCustomGrid;
ALevel: TcxGridLevel); ALevel: TcxGridLevel);
procedure CustomViewDestroy(Sender: TObject); procedure CustomViewDestroy(Sender: TObject);

49
Source/Modulos/Articulos/Data/uDataModuleArticulos.dfm
View File

@ -165,21 +165,45 @@ inherited DataModuleArticulos: TDataModuleArticulos
DisplayLabel = 'Ref. fabricante' DisplayLabel = 'Ref. fabricante'
DictionaryEntry = 'Articulos_REFERENCIA_FABR' DictionaryEntry = 'Articulos_REFERENCIA_FABR'
end end
item
Name = 'PARAM_MARGEN'
DataType = datFloat
DisplayLabel = 'Margen'
DictionaryEntry = 'Articulos_PARAM_MARGEN'
end
item
Name = 'PRECIO_PVP_VENTA'
DataType = datCurrency
DisplayLabel = 'Precio PVP (Solo suministro)'
Alignment = taRightJustify
DictionaryEntry = 'Articulos_PRECIO_PVP_VENTA'
end
item item
Name = 'TIEMPO' Name = 'TIEMPO'
DataType = datInteger DataType = datInteger
DisplayLabel = 'Tiempo'
DictionaryEntry = 'Articulos_TIEMPO'
end end
item item
Name = 'PARAM_TIEMPO' Name = 'PARAM_TIEMPO'
DataType = datFloat DataType = datFloat
DisplayLabel = 'Precio min'
Alignment = taRightJustify
DictionaryEntry = 'Articulos_PARAM_TIEMPO'
end end
item item
Name = 'MANO_OBRA' Name = 'MANO_OBRA'
DataType = datCurrency DataType = datCurrency
DisplayLabel = 'Mano de obra'
Alignment = taRightJustify
DictionaryEntry = 'Articulos_MANO_OBRA'
end end
item item
Name = 'PRECIO_PVP' Name = 'PRECIO_PVP_TOTAL'
DataType = datCurrency DataType = datCurrency
DisplayLabel = 'Precio P.V.P (Total)'
Alignment = taRightJustify
DictionaryEntry = 'Articulos_PRECIO_PVP_TOTAL'
end> end>
Params = <> Params = <>
StreamingOptions = [soDisableEventsWhileStreaming] StreamingOptions = [soDisableEventsWhileStreaming]
@ -339,6 +363,16 @@ inherited DataModuleArticulos: TDataModuleArticulos
DisplayLabel = 'Ref. fabricante' DisplayLabel = 'Ref. fabricante'
DictionaryEntry = 'Articulos_REFERENCIA_FABR' DictionaryEntry = 'Articulos_REFERENCIA_FABR'
end end
item
Name = 'PARAM_MARGEN'
DataType = datFloat
end
item
Name = 'PRECIO_PVP_VENTA'
DataType = datCurrency
DisplayLabel = 'Precio P.V.P (Solo suministro)'
Alignment = taRightJustify
end
item item
Name = 'TIEMPO' Name = 'TIEMPO'
DataType = datInteger DataType = datInteger
@ -350,10 +384,14 @@ inherited DataModuleArticulos: TDataModuleArticulos
item item
Name = 'MANO_OBRA' Name = 'MANO_OBRA'
DataType = datCurrency DataType = datCurrency
DisplayLabel = 'Mano de obra'
Alignment = taRightJustify
end end
item item
Name = 'PRECIO_PVP' Name = 'PRECIO_PVP_TOTAL'
DataType = datCurrency DataType = datCurrency
DisplayLabel = 'Precio P.V.P. (Total)'
Alignment = taRightJustify
end> end>
Params = < Params = <
item item
@ -388,7 +426,12 @@ inherited DataModuleArticulos: TDataModuleArticulos
DataType = datString DataType = datString
Size = 255 Size = 255
end> end>
Params = <> Params = <
item
Name = 'ID_EMPRESA'
Value = ''
ParamType = daptInput
end>
StreamingOptions = [soDisableEventsWhileStreaming] StreamingOptions = [soDisableEventsWhileStreaming]
RemoteDataAdapter = rda_Articulos RemoteDataAdapter = rda_Articulos
DetailOptions = [dtCascadeOpenClose, dtCascadeApplyUpdates, dtAutoFetch, dtCascadeDelete, dtCascadeUpdate, dtDisableLogOfCascadeDeletes, dtDisableLogOfCascadeUpdates, dtIncludeInAllInOneFetch] DetailOptions = [dtCascadeOpenClose, dtCascadeApplyUpdates, dtAutoFetch, dtCascadeDelete, dtCascadeUpdate, dtDisableLogOfCascadeDeletes, dtDisableLogOfCascadeUpdates, dtIncludeInAllInOneFetch]

360
Source/Modulos/Articulos/Model/schArticulosClient_Intf.pas
View File

@ -9,13 +9,23 @@ const
{ Data table rules ids { Data table rules ids
Feel free to change them to something more human readable Feel free to change them to something more human readable
but make sure they are unique in the context of your application } but make sure they are unique in the context of your application }
RID_Articulos = '{7AF29D8D-9759-4857-A440-E0AE2002CA7F}'; RID_ProveedoresConArticulos = '{1DE48ADE-5F4F-434D-BF2F-10BA8A363F99}';
RID_ArticulosParaCliente = '{5FDF1300-DD2E-45E9-88DF-CA220201A815}'; RID_Articulos = '{E1F7E717-39B6-41AB-B4FA-1F106F20F8DA}';
RID_ArticulosParaCliente = '{E2144191-7CB6-4240-9B68-6CC883F80001}';
{ Data table names } { Data table names }
nme_ProveedoresConArticulos = 'ProveedoresConArticulos';
nme_Articulos = 'Articulos'; nme_Articulos = 'Articulos';
nme_ArticulosParaCliente = 'ArticulosParaCliente'; nme_ArticulosParaCliente = 'ArticulosParaCliente';
{ ProveedoresConArticulos fields }
fld_ProveedoresConArticulosID_PROVEEDOR = 'ID_PROVEEDOR';
fld_ProveedoresConArticulosNOMBRE = 'NOMBRE';
{ ProveedoresConArticulos field indexes }
idx_ProveedoresConArticulosID_PROVEEDOR = 0;
idx_ProveedoresConArticulosNOMBRE = 1;
{ Articulos fields } { Articulos fields }
fld_ArticulosID = 'ID'; fld_ArticulosID = 'ID';
fld_ArticulosID_EMPRESA = 'ID_EMPRESA'; fld_ArticulosID_EMPRESA = 'ID_EMPRESA';
@ -39,10 +49,12 @@ const
fld_ArticulosELIMINADO = 'ELIMINADO'; fld_ArticulosELIMINADO = 'ELIMINADO';
fld_ArticulosFABRICANTE = 'FABRICANTE'; fld_ArticulosFABRICANTE = 'FABRICANTE';
fld_ArticulosREFERENCIA_FABR = 'REFERENCIA_FABR'; fld_ArticulosREFERENCIA_FABR = 'REFERENCIA_FABR';
fld_ArticulosPARAM_MARGEN = 'PARAM_MARGEN';
fld_ArticulosPRECIO_PVP_VENTA = 'PRECIO_PVP_VENTA';
fld_ArticulosTIEMPO = 'TIEMPO'; fld_ArticulosTIEMPO = 'TIEMPO';
fld_ArticulosPARAM_TIEMPO = 'PARAM_TIEMPO'; fld_ArticulosPARAM_TIEMPO = 'PARAM_TIEMPO';
fld_ArticulosMANO_OBRA = 'MANO_OBRA'; fld_ArticulosMANO_OBRA = 'MANO_OBRA';
fld_ArticulosPRECIO_PVP = 'PRECIO_PVP'; fld_ArticulosPRECIO_PVP_TOTAL = 'PRECIO_PVP_TOTAL';
{ Articulos field indexes } { Articulos field indexes }
idx_ArticulosID = 0; idx_ArticulosID = 0;
@ -67,10 +79,12 @@ const
idx_ArticulosELIMINADO = 19; idx_ArticulosELIMINADO = 19;
idx_ArticulosFABRICANTE = 20; idx_ArticulosFABRICANTE = 20;
idx_ArticulosREFERENCIA_FABR = 21; idx_ArticulosREFERENCIA_FABR = 21;
idx_ArticulosTIEMPO = 22; idx_ArticulosPARAM_MARGEN = 22;
idx_ArticulosPARAM_TIEMPO = 23; idx_ArticulosPRECIO_PVP_VENTA = 23;
idx_ArticulosMANO_OBRA = 24; idx_ArticulosTIEMPO = 24;
idx_ArticulosPRECIO_PVP = 25; idx_ArticulosPARAM_TIEMPO = 25;
idx_ArticulosMANO_OBRA = 26;
idx_ArticulosPRECIO_PVP_TOTAL = 27;
{ ArticulosParaCliente fields } { ArticulosParaCliente fields }
fld_ArticulosParaClienteID = 'ID'; fld_ArticulosParaClienteID = 'ID';
@ -95,10 +109,12 @@ const
fld_ArticulosParaClienteELIMINADO = 'ELIMINADO'; fld_ArticulosParaClienteELIMINADO = 'ELIMINADO';
fld_ArticulosParaClienteFABRICANTE = 'FABRICANTE'; fld_ArticulosParaClienteFABRICANTE = 'FABRICANTE';
fld_ArticulosParaClienteREFERENCIA_FABR = 'REFERENCIA_FABR'; fld_ArticulosParaClienteREFERENCIA_FABR = 'REFERENCIA_FABR';
fld_ArticulosParaClientePARAM_MARGEN = 'PARAM_MARGEN';
fld_ArticulosParaClientePRECIO_PVP_VENTA = 'PRECIO_PVP_VENTA';
fld_ArticulosParaClienteTIEMPO = 'TIEMPO'; fld_ArticulosParaClienteTIEMPO = 'TIEMPO';
fld_ArticulosParaClientePARAM_TIEMPO = 'PARAM_TIEMPO'; fld_ArticulosParaClientePARAM_TIEMPO = 'PARAM_TIEMPO';
fld_ArticulosParaClienteMANO_OBRA = 'MANO_OBRA'; fld_ArticulosParaClienteMANO_OBRA = 'MANO_OBRA';
fld_ArticulosParaClientePRECIO_PVP = 'PRECIO_PVP'; fld_ArticulosParaClientePRECIO_PVP_TOTAL = 'PRECIO_PVP_TOTAL';
{ ArticulosParaCliente field indexes } { ArticulosParaCliente field indexes }
idx_ArticulosParaClienteID = 0; idx_ArticulosParaClienteID = 0;
@ -123,15 +139,64 @@ const
idx_ArticulosParaClienteELIMINADO = 19; idx_ArticulosParaClienteELIMINADO = 19;
idx_ArticulosParaClienteFABRICANTE = 20; idx_ArticulosParaClienteFABRICANTE = 20;
idx_ArticulosParaClienteREFERENCIA_FABR = 21; idx_ArticulosParaClienteREFERENCIA_FABR = 21;
idx_ArticulosParaClienteTIEMPO = 22; idx_ArticulosParaClientePARAM_MARGEN = 22;
idx_ArticulosParaClientePARAM_TIEMPO = 23; idx_ArticulosParaClientePRECIO_PVP_VENTA = 23;
idx_ArticulosParaClienteMANO_OBRA = 24; idx_ArticulosParaClienteTIEMPO = 24;
idx_ArticulosParaClientePRECIO_PVP = 25; idx_ArticulosParaClientePARAM_TIEMPO = 25;
idx_ArticulosParaClienteMANO_OBRA = 26;
idx_ArticulosParaClientePRECIO_PVP_TOTAL = 27;
type type
{ IProveedoresConArticulos }
IProveedoresConArticulos = interface(IDAStronglyTypedDataTable)
['{961767DC-ED33-4DEE-8A1D-B2721D001CA0}']
{ Property getters and setters }
function GetID_PROVEEDORValue: Integer;
procedure SetID_PROVEEDORValue(const aValue: Integer);
function GetID_PROVEEDORIsNull: Boolean;
procedure SetID_PROVEEDORIsNull(const aValue: Boolean);
function GetNOMBREValue: String;
procedure SetNOMBREValue(const aValue: String);
function GetNOMBREIsNull: Boolean;
procedure SetNOMBREIsNull(const aValue: Boolean);
{ Properties }
property ID_PROVEEDOR: Integer read GetID_PROVEEDORValue write SetID_PROVEEDORValue;
property ID_PROVEEDORIsNull: Boolean read GetID_PROVEEDORIsNull write SetID_PROVEEDORIsNull;
property NOMBRE: String read GetNOMBREValue write SetNOMBREValue;
property NOMBREIsNull: Boolean read GetNOMBREIsNull write SetNOMBREIsNull;
end;
{ TProveedoresConArticulosDataTableRules }
TProveedoresConArticulosDataTableRules = class(TIntfObjectDADataTableRules, IProveedoresConArticulos)
private
protected
{ Property getters and setters }
function GetID_PROVEEDORValue: Integer; virtual;
procedure SetID_PROVEEDORValue(const aValue: Integer); virtual;
function GetID_PROVEEDORIsNull: Boolean; virtual;
procedure SetID_PROVEEDORIsNull(const aValue: Boolean); virtual;
function GetNOMBREValue: String; virtual;
procedure SetNOMBREValue(const aValue: String); virtual;
function GetNOMBREIsNull: Boolean; virtual;
procedure SetNOMBREIsNull(const aValue: Boolean); virtual;
{ Properties }
property ID_PROVEEDOR: Integer read GetID_PROVEEDORValue write SetID_PROVEEDORValue;
property ID_PROVEEDORIsNull: Boolean read GetID_PROVEEDORIsNull write SetID_PROVEEDORIsNull;
property NOMBRE: String read GetNOMBREValue write SetNOMBREValue;
property NOMBREIsNull: Boolean read GetNOMBREIsNull write SetNOMBREIsNull;
public
constructor Create(aDataTable: TDADataTable); override;
destructor Destroy; override;
end;
{ IArticulos } { IArticulos }
IArticulos = interface(IDAStronglyTypedDataTable) IArticulos = interface(IDAStronglyTypedDataTable)
['{688FF0B4-9CA5-4C09-B82C-4D288BCF418F}'] ['{F7377A62-61F7-434E-B744-90DA0486BF14}']
{ Property getters and setters } { Property getters and setters }
function GetIDValue: Integer; function GetIDValue: Integer;
procedure SetIDValue(const aValue: Integer); procedure SetIDValue(const aValue: Integer);
@ -220,6 +285,14 @@ type
procedure SetREFERENCIA_FABRValue(const aValue: String); procedure SetREFERENCIA_FABRValue(const aValue: String);
function GetREFERENCIA_FABRIsNull: Boolean; function GetREFERENCIA_FABRIsNull: Boolean;
procedure SetREFERENCIA_FABRIsNull(const aValue: Boolean); procedure SetREFERENCIA_FABRIsNull(const aValue: Boolean);
function GetPARAM_MARGENValue: Float;
procedure SetPARAM_MARGENValue(const aValue: Float);
function GetPARAM_MARGENIsNull: Boolean;
procedure SetPARAM_MARGENIsNull(const aValue: Boolean);
function GetPRECIO_PVP_VENTAValue: Currency;
procedure SetPRECIO_PVP_VENTAValue(const aValue: Currency);
function GetPRECIO_PVP_VENTAIsNull: Boolean;
procedure SetPRECIO_PVP_VENTAIsNull(const aValue: Boolean);
function GetTIEMPOValue: Integer; function GetTIEMPOValue: Integer;
procedure SetTIEMPOValue(const aValue: Integer); procedure SetTIEMPOValue(const aValue: Integer);
function GetTIEMPOIsNull: Boolean; function GetTIEMPOIsNull: Boolean;
@ -232,10 +305,10 @@ type
procedure SetMANO_OBRAValue(const aValue: Currency); procedure SetMANO_OBRAValue(const aValue: Currency);
function GetMANO_OBRAIsNull: Boolean; function GetMANO_OBRAIsNull: Boolean;
procedure SetMANO_OBRAIsNull(const aValue: Boolean); procedure SetMANO_OBRAIsNull(const aValue: Boolean);
function GetPRECIO_PVPValue: Currency; function GetPRECIO_PVP_TOTALValue: Currency;
procedure SetPRECIO_PVPValue(const aValue: Currency); procedure SetPRECIO_PVP_TOTALValue(const aValue: Currency);
function GetPRECIO_PVPIsNull: Boolean; function GetPRECIO_PVP_TOTALIsNull: Boolean;
procedure SetPRECIO_PVPIsNull(const aValue: Boolean); procedure SetPRECIO_PVP_TOTALIsNull(const aValue: Boolean);
{ Properties } { Properties }
@ -283,14 +356,18 @@ type
property FABRICANTEIsNull: Boolean read GetFABRICANTEIsNull write SetFABRICANTEIsNull; property FABRICANTEIsNull: Boolean read GetFABRICANTEIsNull write SetFABRICANTEIsNull;
property REFERENCIA_FABR: String read GetREFERENCIA_FABRValue write SetREFERENCIA_FABRValue; property REFERENCIA_FABR: String read GetREFERENCIA_FABRValue write SetREFERENCIA_FABRValue;
property REFERENCIA_FABRIsNull: Boolean read GetREFERENCIA_FABRIsNull write SetREFERENCIA_FABRIsNull; property REFERENCIA_FABRIsNull: Boolean read GetREFERENCIA_FABRIsNull write SetREFERENCIA_FABRIsNull;
property PARAM_MARGEN: Float read GetPARAM_MARGENValue write SetPARAM_MARGENValue;
property PARAM_MARGENIsNull: Boolean read GetPARAM_MARGENIsNull write SetPARAM_MARGENIsNull;
property PRECIO_PVP_VENTA: Currency read GetPRECIO_PVP_VENTAValue write SetPRECIO_PVP_VENTAValue;
property PRECIO_PVP_VENTAIsNull: Boolean read GetPRECIO_PVP_VENTAIsNull write SetPRECIO_PVP_VENTAIsNull;
property TIEMPO: Integer read GetTIEMPOValue write SetTIEMPOValue; property TIEMPO: Integer read GetTIEMPOValue write SetTIEMPOValue;
property TIEMPOIsNull: Boolean read GetTIEMPOIsNull write SetTIEMPOIsNull; property TIEMPOIsNull: Boolean read GetTIEMPOIsNull write SetTIEMPOIsNull;
property PARAM_TIEMPO: Float read GetPARAM_TIEMPOValue write SetPARAM_TIEMPOValue; property PARAM_TIEMPO: Float read GetPARAM_TIEMPOValue write SetPARAM_TIEMPOValue;
property PARAM_TIEMPOIsNull: Boolean read GetPARAM_TIEMPOIsNull write SetPARAM_TIEMPOIsNull; property PARAM_TIEMPOIsNull: Boolean read GetPARAM_TIEMPOIsNull write SetPARAM_TIEMPOIsNull;
property MANO_OBRA: Currency read GetMANO_OBRAValue write SetMANO_OBRAValue; property MANO_OBRA: Currency read GetMANO_OBRAValue write SetMANO_OBRAValue;
property MANO_OBRAIsNull: Boolean read GetMANO_OBRAIsNull write SetMANO_OBRAIsNull; property MANO_OBRAIsNull: Boolean read GetMANO_OBRAIsNull write SetMANO_OBRAIsNull;
property PRECIO_PVP: Currency read GetPRECIO_PVPValue write SetPRECIO_PVPValue; property PRECIO_PVP_TOTAL: Currency read GetPRECIO_PVP_TOTALValue write SetPRECIO_PVP_TOTALValue;
property PRECIO_PVPIsNull: Boolean read GetPRECIO_PVPIsNull write SetPRECIO_PVPIsNull; property PRECIO_PVP_TOTALIsNull: Boolean read GetPRECIO_PVP_TOTALIsNull write SetPRECIO_PVP_TOTALIsNull;
end; end;
{ TArticulosDataTableRules } { TArticulosDataTableRules }
@ -387,6 +464,14 @@ type
procedure SetREFERENCIA_FABRValue(const aValue: String); virtual; procedure SetREFERENCIA_FABRValue(const aValue: String); virtual;
function GetREFERENCIA_FABRIsNull: Boolean; virtual; function GetREFERENCIA_FABRIsNull: Boolean; virtual;
procedure SetREFERENCIA_FABRIsNull(const aValue: Boolean); virtual; procedure SetREFERENCIA_FABRIsNull(const aValue: Boolean); virtual;
function GetPARAM_MARGENValue: Float; virtual;
procedure SetPARAM_MARGENValue(const aValue: Float); virtual;
function GetPARAM_MARGENIsNull: Boolean; virtual;
procedure SetPARAM_MARGENIsNull(const aValue: Boolean); virtual;
function GetPRECIO_PVP_VENTAValue: Currency; virtual;
procedure SetPRECIO_PVP_VENTAValue(const aValue: Currency); virtual;
function GetPRECIO_PVP_VENTAIsNull: Boolean; virtual;
procedure SetPRECIO_PVP_VENTAIsNull(const aValue: Boolean); virtual;
function GetTIEMPOValue: Integer; virtual; function GetTIEMPOValue: Integer; virtual;
procedure SetTIEMPOValue(const aValue: Integer); virtual; procedure SetTIEMPOValue(const aValue: Integer); virtual;
function GetTIEMPOIsNull: Boolean; virtual; function GetTIEMPOIsNull: Boolean; virtual;
@ -399,10 +484,10 @@ type
procedure SetMANO_OBRAValue(const aValue: Currency); virtual; procedure SetMANO_OBRAValue(const aValue: Currency); virtual;
function GetMANO_OBRAIsNull: Boolean; virtual; function GetMANO_OBRAIsNull: Boolean; virtual;
procedure SetMANO_OBRAIsNull(const aValue: Boolean); virtual; procedure SetMANO_OBRAIsNull(const aValue: Boolean); virtual;
function GetPRECIO_PVPValue: Currency; virtual; function GetPRECIO_PVP_TOTALValue: Currency; virtual;
procedure SetPRECIO_PVPValue(const aValue: Currency); virtual; procedure SetPRECIO_PVP_TOTALValue(const aValue: Currency); virtual;
function GetPRECIO_PVPIsNull: Boolean; virtual; function GetPRECIO_PVP_TOTALIsNull: Boolean; virtual;
procedure SetPRECIO_PVPIsNull(const aValue: Boolean); virtual; procedure SetPRECIO_PVP_TOTALIsNull(const aValue: Boolean); virtual;
{ Properties } { Properties }
property ID: Integer read GetIDValue write SetIDValue; property ID: Integer read GetIDValue write SetIDValue;
@ -449,14 +534,18 @@ type
property FABRICANTEIsNull: Boolean read GetFABRICANTEIsNull write SetFABRICANTEIsNull; property FABRICANTEIsNull: Boolean read GetFABRICANTEIsNull write SetFABRICANTEIsNull;
property REFERENCIA_FABR: String read GetREFERENCIA_FABRValue write SetREFERENCIA_FABRValue; property REFERENCIA_FABR: String read GetREFERENCIA_FABRValue write SetREFERENCIA_FABRValue;
property REFERENCIA_FABRIsNull: Boolean read GetREFERENCIA_FABRIsNull write SetREFERENCIA_FABRIsNull; property REFERENCIA_FABRIsNull: Boolean read GetREFERENCIA_FABRIsNull write SetREFERENCIA_FABRIsNull;
property PARAM_MARGEN: Float read GetPARAM_MARGENValue write SetPARAM_MARGENValue;
property PARAM_MARGENIsNull: Boolean read GetPARAM_MARGENIsNull write SetPARAM_MARGENIsNull;
property PRECIO_PVP_VENTA: Currency read GetPRECIO_PVP_VENTAValue write SetPRECIO_PVP_VENTAValue;
property PRECIO_PVP_VENTAIsNull: Boolean read GetPRECIO_PVP_VENTAIsNull write SetPRECIO_PVP_VENTAIsNull;
property TIEMPO: Integer read GetTIEMPOValue write SetTIEMPOValue; property TIEMPO: Integer read GetTIEMPOValue write SetTIEMPOValue;
property TIEMPOIsNull: Boolean read GetTIEMPOIsNull write SetTIEMPOIsNull; property TIEMPOIsNull: Boolean read GetTIEMPOIsNull write SetTIEMPOIsNull;
property PARAM_TIEMPO: Float read GetPARAM_TIEMPOValue write SetPARAM_TIEMPOValue; property PARAM_TIEMPO: Float read GetPARAM_TIEMPOValue write SetPARAM_TIEMPOValue;
property PARAM_TIEMPOIsNull: Boolean read GetPARAM_TIEMPOIsNull write SetPARAM_TIEMPOIsNull; property PARAM_TIEMPOIsNull: Boolean read GetPARAM_TIEMPOIsNull write SetPARAM_TIEMPOIsNull;
property MANO_OBRA: Currency read GetMANO_OBRAValue write SetMANO_OBRAValue; property MANO_OBRA: Currency read GetMANO_OBRAValue write SetMANO_OBRAValue;
property MANO_OBRAIsNull: Boolean read GetMANO_OBRAIsNull write SetMANO_OBRAIsNull; property MANO_OBRAIsNull: Boolean read GetMANO_OBRAIsNull write SetMANO_OBRAIsNull;
property PRECIO_PVP: Currency read GetPRECIO_PVPValue write SetPRECIO_PVPValue; property PRECIO_PVP_TOTAL: Currency read GetPRECIO_PVP_TOTALValue write SetPRECIO_PVP_TOTALValue;
property PRECIO_PVPIsNull: Boolean read GetPRECIO_PVPIsNull write SetPRECIO_PVPIsNull; property PRECIO_PVP_TOTALIsNull: Boolean read GetPRECIO_PVP_TOTALIsNull write SetPRECIO_PVP_TOTALIsNull;
public public
constructor Create(aDataTable: TDADataTable); override; constructor Create(aDataTable: TDADataTable); override;
@ -469,7 +558,7 @@ type
} }
{ IArticulosParaCliente } { IArticulosParaCliente }
IArticulosParaCliente = interface(IDAStronglyTypedDataTable) IArticulosParaCliente = interface(IDAStronglyTypedDataTable)
['{74039390-BC6A-4257-9DAC-63898C73E1A6}'] ['{03E9D501-0737-4B4E-B896-5EA92EF20A4E}']
{ Property getters and setters } { Property getters and setters }
function GetIDValue: Integer; function GetIDValue: Integer;
procedure SetIDValue(const aValue: Integer); procedure SetIDValue(const aValue: Integer);
@ -558,6 +647,14 @@ type
procedure SetREFERENCIA_FABRValue(const aValue: String); procedure SetREFERENCIA_FABRValue(const aValue: String);
function GetREFERENCIA_FABRIsNull: Boolean; function GetREFERENCIA_FABRIsNull: Boolean;
procedure SetREFERENCIA_FABRIsNull(const aValue: Boolean); procedure SetREFERENCIA_FABRIsNull(const aValue: Boolean);
function GetPARAM_MARGENValue: Float;
procedure SetPARAM_MARGENValue(const aValue: Float);
function GetPARAM_MARGENIsNull: Boolean;
procedure SetPARAM_MARGENIsNull(const aValue: Boolean);
function GetPRECIO_PVP_VENTAValue: Currency;
procedure SetPRECIO_PVP_VENTAValue(const aValue: Currency);
function GetPRECIO_PVP_VENTAIsNull: Boolean;
procedure SetPRECIO_PVP_VENTAIsNull(const aValue: Boolean);
function GetTIEMPOValue: Integer; function GetTIEMPOValue: Integer;
procedure SetTIEMPOValue(const aValue: Integer); procedure SetTIEMPOValue(const aValue: Integer);
function GetTIEMPOIsNull: Boolean; function GetTIEMPOIsNull: Boolean;
@ -570,10 +667,10 @@ type
procedure SetMANO_OBRAValue(const aValue: Currency); procedure SetMANO_OBRAValue(const aValue: Currency);
function GetMANO_OBRAIsNull: Boolean; function GetMANO_OBRAIsNull: Boolean;
procedure SetMANO_OBRAIsNull(const aValue: Boolean); procedure SetMANO_OBRAIsNull(const aValue: Boolean);
function GetPRECIO_PVPValue: Currency; function GetPRECIO_PVP_TOTALValue: Currency;
procedure SetPRECIO_PVPValue(const aValue: Currency); procedure SetPRECIO_PVP_TOTALValue(const aValue: Currency);
function GetPRECIO_PVPIsNull: Boolean; function GetPRECIO_PVP_TOTALIsNull: Boolean;
procedure SetPRECIO_PVPIsNull(const aValue: Boolean); procedure SetPRECIO_PVP_TOTALIsNull(const aValue: Boolean);
{ Properties } { Properties }
@ -621,14 +718,18 @@ type
property FABRICANTEIsNull: Boolean read GetFABRICANTEIsNull write SetFABRICANTEIsNull; property FABRICANTEIsNull: Boolean read GetFABRICANTEIsNull write SetFABRICANTEIsNull;
property REFERENCIA_FABR: String read GetREFERENCIA_FABRValue write SetREFERENCIA_FABRValue; property REFERENCIA_FABR: String read GetREFERENCIA_FABRValue write SetREFERENCIA_FABRValue;
property REFERENCIA_FABRIsNull: Boolean read GetREFERENCIA_FABRIsNull write SetREFERENCIA_FABRIsNull; property REFERENCIA_FABRIsNull: Boolean read GetREFERENCIA_FABRIsNull write SetREFERENCIA_FABRIsNull;
property PARAM_MARGEN: Float read GetPARAM_MARGENValue write SetPARAM_MARGENValue;
property PARAM_MARGENIsNull: Boolean read GetPARAM_MARGENIsNull write SetPARAM_MARGENIsNull;
property PRECIO_PVP_VENTA: Currency read GetPRECIO_PVP_VENTAValue write SetPRECIO_PVP_VENTAValue;
property PRECIO_PVP_VENTAIsNull: Boolean read GetPRECIO_PVP_VENTAIsNull write SetPRECIO_PVP_VENTAIsNull;
property TIEMPO: Integer read GetTIEMPOValue write SetTIEMPOValue; property TIEMPO: Integer read GetTIEMPOValue write SetTIEMPOValue;
property TIEMPOIsNull: Boolean read GetTIEMPOIsNull write SetTIEMPOIsNull; property TIEMPOIsNull: Boolean read GetTIEMPOIsNull write SetTIEMPOIsNull;
property PARAM_TIEMPO: Float read GetPARAM_TIEMPOValue write SetPARAM_TIEMPOValue; property PARAM_TIEMPO: Float read GetPARAM_TIEMPOValue write SetPARAM_TIEMPOValue;
property PARAM_TIEMPOIsNull: Boolean read GetPARAM_TIEMPOIsNull write SetPARAM_TIEMPOIsNull; property PARAM_TIEMPOIsNull: Boolean read GetPARAM_TIEMPOIsNull write SetPARAM_TIEMPOIsNull;
property MANO_OBRA: Currency read GetMANO_OBRAValue write SetMANO_OBRAValue; property MANO_OBRA: Currency read GetMANO_OBRAValue write SetMANO_OBRAValue;
property MANO_OBRAIsNull: Boolean read GetMANO_OBRAIsNull write SetMANO_OBRAIsNull; property MANO_OBRAIsNull: Boolean read GetMANO_OBRAIsNull write SetMANO_OBRAIsNull;
property PRECIO_PVP: Currency read GetPRECIO_PVPValue write SetPRECIO_PVPValue; property PRECIO_PVP_TOTAL: Currency read GetPRECIO_PVP_TOTALValue write SetPRECIO_PVP_TOTALValue;
property PRECIO_PVPIsNull: Boolean read GetPRECIO_PVPIsNull write SetPRECIO_PVPIsNull; property PRECIO_PVP_TOTALIsNull: Boolean read GetPRECIO_PVP_TOTALIsNull write SetPRECIO_PVP_TOTALIsNull;
end; end;
{ TArticulosParaClienteDataTableRules } { TArticulosParaClienteDataTableRules }
@ -725,6 +826,14 @@ type
procedure SetREFERENCIA_FABRValue(const aValue: String); virtual; procedure SetREFERENCIA_FABRValue(const aValue: String); virtual;
function GetREFERENCIA_FABRIsNull: Boolean; virtual; function GetREFERENCIA_FABRIsNull: Boolean; virtual;
procedure SetREFERENCIA_FABRIsNull(const aValue: Boolean); virtual; procedure SetREFERENCIA_FABRIsNull(const aValue: Boolean); virtual;
function GetPARAM_MARGENValue: Float; virtual;
procedure SetPARAM_MARGENValue(const aValue: Float); virtual;
function GetPARAM_MARGENIsNull: Boolean; virtual;
procedure SetPARAM_MARGENIsNull(const aValue: Boolean); virtual;
function GetPRECIO_PVP_VENTAValue: Currency; virtual;
procedure SetPRECIO_PVP_VENTAValue(const aValue: Currency); virtual;
function GetPRECIO_PVP_VENTAIsNull: Boolean; virtual;
procedure SetPRECIO_PVP_VENTAIsNull(const aValue: Boolean); virtual;
function GetTIEMPOValue: Integer; virtual; function GetTIEMPOValue: Integer; virtual;
procedure SetTIEMPOValue(const aValue: Integer); virtual; procedure SetTIEMPOValue(const aValue: Integer); virtual;
function GetTIEMPOIsNull: Boolean; virtual; function GetTIEMPOIsNull: Boolean; virtual;
@ -737,10 +846,10 @@ type
procedure SetMANO_OBRAValue(const aValue: Currency); virtual; procedure SetMANO_OBRAValue(const aValue: Currency); virtual;
function GetMANO_OBRAIsNull: Boolean; virtual; function GetMANO_OBRAIsNull: Boolean; virtual;
procedure SetMANO_OBRAIsNull(const aValue: Boolean); virtual; procedure SetMANO_OBRAIsNull(const aValue: Boolean); virtual;
function GetPRECIO_PVPValue: Currency; virtual; function GetPRECIO_PVP_TOTALValue: Currency; virtual;
procedure SetPRECIO_PVPValue(const aValue: Currency); virtual; procedure SetPRECIO_PVP_TOTALValue(const aValue: Currency); virtual;
function GetPRECIO_PVPIsNull: Boolean; virtual; function GetPRECIO_PVP_TOTALIsNull: Boolean; virtual;
procedure SetPRECIO_PVPIsNull(const aValue: Boolean); virtual; procedure SetPRECIO_PVP_TOTALIsNull(const aValue: Boolean); virtual;
{ Properties } { Properties }
property ID: Integer read GetIDValue write SetIDValue; property ID: Integer read GetIDValue write SetIDValue;
@ -787,14 +896,18 @@ type
property FABRICANTEIsNull: Boolean read GetFABRICANTEIsNull write SetFABRICANTEIsNull; property FABRICANTEIsNull: Boolean read GetFABRICANTEIsNull write SetFABRICANTEIsNull;
property REFERENCIA_FABR: String read GetREFERENCIA_FABRValue write SetREFERENCIA_FABRValue; property REFERENCIA_FABR: String read GetREFERENCIA_FABRValue write SetREFERENCIA_FABRValue;
property REFERENCIA_FABRIsNull: Boolean read GetREFERENCIA_FABRIsNull write SetREFERENCIA_FABRIsNull; property REFERENCIA_FABRIsNull: Boolean read GetREFERENCIA_FABRIsNull write SetREFERENCIA_FABRIsNull;
property PARAM_MARGEN: Float read GetPARAM_MARGENValue write SetPARAM_MARGENValue;
property PARAM_MARGENIsNull: Boolean read GetPARAM_MARGENIsNull write SetPARAM_MARGENIsNull;
property PRECIO_PVP_VENTA: Currency read GetPRECIO_PVP_VENTAValue write SetPRECIO_PVP_VENTAValue;
property PRECIO_PVP_VENTAIsNull: Boolean read GetPRECIO_PVP_VENTAIsNull write SetPRECIO_PVP_VENTAIsNull;
property TIEMPO: Integer read GetTIEMPOValue write SetTIEMPOValue; property TIEMPO: Integer read GetTIEMPOValue write SetTIEMPOValue;
property TIEMPOIsNull: Boolean read GetTIEMPOIsNull write SetTIEMPOIsNull; property TIEMPOIsNull: Boolean read GetTIEMPOIsNull write SetTIEMPOIsNull;
property PARAM_TIEMPO: Float read GetPARAM_TIEMPOValue write SetPARAM_TIEMPOValue; property PARAM_TIEMPO: Float read GetPARAM_TIEMPOValue write SetPARAM_TIEMPOValue;
property PARAM_TIEMPOIsNull: Boolean read GetPARAM_TIEMPOIsNull write SetPARAM_TIEMPOIsNull; property PARAM_TIEMPOIsNull: Boolean read GetPARAM_TIEMPOIsNull write SetPARAM_TIEMPOIsNull;
property MANO_OBRA: Currency read GetMANO_OBRAValue write SetMANO_OBRAValue; property MANO_OBRA: Currency read GetMANO_OBRAValue write SetMANO_OBRAValue;
property MANO_OBRAIsNull: Boolean read GetMANO_OBRAIsNull write SetMANO_OBRAIsNull; property MANO_OBRAIsNull: Boolean read GetMANO_OBRAIsNull write SetMANO_OBRAIsNull;
property PRECIO_PVP: Currency read GetPRECIO_PVPValue write SetPRECIO_PVPValue; property PRECIO_PVP_TOTAL: Currency read GetPRECIO_PVP_TOTALValue write SetPRECIO_PVP_TOTALValue;
property PRECIO_PVPIsNull: Boolean read GetPRECIO_PVPIsNull write SetPRECIO_PVPIsNull; property PRECIO_PVP_TOTALIsNull: Boolean read GetPRECIO_PVP_TOTALIsNull write SetPRECIO_PVP_TOTALIsNull;
public public
constructor Create(aDataTable: TDADataTable); override; constructor Create(aDataTable: TDADataTable); override;
@ -806,6 +919,60 @@ implementation
uses Variants, uROBinaryHelpers; uses Variants, uROBinaryHelpers;
{ TProveedoresConArticulosDataTableRules }
constructor TProveedoresConArticulosDataTableRules.Create(aDataTable: TDADataTable);
begin
inherited;
end;
destructor TProveedoresConArticulosDataTableRules.Destroy;
begin
inherited;
end;
function TProveedoresConArticulosDataTableRules.GetID_PROVEEDORValue: Integer;
begin
result := DataTable.Fields[idx_ProveedoresConArticulosID_PROVEEDOR].AsInteger;
end;
procedure TProveedoresConArticulosDataTableRules.SetID_PROVEEDORValue(const aValue: Integer);
begin
DataTable.Fields[idx_ProveedoresConArticulosID_PROVEEDOR].AsInteger := aValue;
end;
function TProveedoresConArticulosDataTableRules.GetID_PROVEEDORIsNull: boolean;
begin
result := DataTable.Fields[idx_ProveedoresConArticulosID_PROVEEDOR].IsNull;
end;
procedure TProveedoresConArticulosDataTableRules.SetID_PROVEEDORIsNull(const aValue: Boolean);
begin
if aValue then
DataTable.Fields[idx_ProveedoresConArticulosID_PROVEEDOR].AsVariant := Null;
end;
function TProveedoresConArticulosDataTableRules.GetNOMBREValue: String;
begin
result := DataTable.Fields[idx_ProveedoresConArticulosNOMBRE].AsString;
end;
procedure TProveedoresConArticulosDataTableRules.SetNOMBREValue(const aValue: String);
begin
DataTable.Fields[idx_ProveedoresConArticulosNOMBRE].AsString := aValue;
end;
function TProveedoresConArticulosDataTableRules.GetNOMBREIsNull: boolean;
begin
result := DataTable.Fields[idx_ProveedoresConArticulosNOMBRE].IsNull;
end;
procedure TProveedoresConArticulosDataTableRules.SetNOMBREIsNull(const aValue: Boolean);
begin
if aValue then
DataTable.Fields[idx_ProveedoresConArticulosNOMBRE].AsVariant := Null;
end;
{ TArticulosDataTableRules } { TArticulosDataTableRules }
constructor TArticulosDataTableRules.Create(aDataTable: TDADataTable); constructor TArticulosDataTableRules.Create(aDataTable: TDADataTable);
var var
@ -1290,6 +1457,48 @@ begin
DataTable.Fields[idx_ArticulosREFERENCIA_FABR].AsVariant := Null; DataTable.Fields[idx_ArticulosREFERENCIA_FABR].AsVariant := Null;
end; end;
function TArticulosDataTableRules.GetPARAM_MARGENValue: Float;
begin
result := DataTable.Fields[idx_ArticulosPARAM_MARGEN].AsFloat;
end;
procedure TArticulosDataTableRules.SetPARAM_MARGENValue(const aValue: Float);
begin
DataTable.Fields[idx_ArticulosPARAM_MARGEN].AsFloat := aValue;
end;
function TArticulosDataTableRules.GetPARAM_MARGENIsNull: boolean;
begin
result := DataTable.Fields[idx_ArticulosPARAM_MARGEN].IsNull;
end;
procedure TArticulosDataTableRules.SetPARAM_MARGENIsNull(const aValue: Boolean);
begin
if aValue then
DataTable.Fields[idx_ArticulosPARAM_MARGEN].AsVariant := Null;
end;
function TArticulosDataTableRules.GetPRECIO_PVP_VENTAValue: Currency;
begin
result := DataTable.Fields[idx_ArticulosPRECIO_PVP_VENTA].AsCurrency;
end;
procedure TArticulosDataTableRules.SetPRECIO_PVP_VENTAValue(const aValue: Currency);
begin
DataTable.Fields[idx_ArticulosPRECIO_PVP_VENTA].AsCurrency := aValue;
end;
function TArticulosDataTableRules.GetPRECIO_PVP_VENTAIsNull: boolean;
begin
result := DataTable.Fields[idx_ArticulosPRECIO_PVP_VENTA].IsNull;
end;
procedure TArticulosDataTableRules.SetPRECIO_PVP_VENTAIsNull(const aValue: Boolean);
begin
if aValue then
DataTable.Fields[idx_ArticulosPRECIO_PVP_VENTA].AsVariant := Null;
end;
function TArticulosDataTableRules.GetTIEMPOValue: Integer; function TArticulosDataTableRules.GetTIEMPOValue: Integer;
begin begin
result := DataTable.Fields[idx_ArticulosTIEMPO].AsInteger; result := DataTable.Fields[idx_ArticulosTIEMPO].AsInteger;
@ -1353,25 +1562,25 @@ begin
DataTable.Fields[idx_ArticulosMANO_OBRA].AsVariant := Null; DataTable.Fields[idx_ArticulosMANO_OBRA].AsVariant := Null;
end; end;
function TArticulosDataTableRules.GetPRECIO_PVPValue: Currency; function TArticulosDataTableRules.GetPRECIO_PVP_TOTALValue: Currency;
begin begin
result := DataTable.Fields[idx_ArticulosPRECIO_PVP].AsCurrency; result := DataTable.Fields[idx_ArticulosPRECIO_PVP_TOTAL].AsCurrency;
end; end;
procedure TArticulosDataTableRules.SetPRECIO_PVPValue(const aValue: Currency); procedure TArticulosDataTableRules.SetPRECIO_PVP_TOTALValue(const aValue: Currency);
begin begin
DataTable.Fields[idx_ArticulosPRECIO_PVP].AsCurrency := aValue; DataTable.Fields[idx_ArticulosPRECIO_PVP_TOTAL].AsCurrency := aValue;
end; end;
function TArticulosDataTableRules.GetPRECIO_PVPIsNull: boolean; function TArticulosDataTableRules.GetPRECIO_PVP_TOTALIsNull: boolean;
begin begin
result := DataTable.Fields[idx_ArticulosPRECIO_PVP].IsNull; result := DataTable.Fields[idx_ArticulosPRECIO_PVP_TOTAL].IsNull;
end; end;
procedure TArticulosDataTableRules.SetPRECIO_PVPIsNull(const aValue: Boolean); procedure TArticulosDataTableRules.SetPRECIO_PVP_TOTALIsNull(const aValue: Boolean);
begin begin
if aValue then if aValue then
DataTable.Fields[idx_ArticulosPRECIO_PVP].AsVariant := Null; DataTable.Fields[idx_ArticulosPRECIO_PVP_TOTAL].AsVariant := Null;
end; end;
@ -1859,6 +2068,48 @@ begin
DataTable.Fields[idx_ArticulosParaClienteREFERENCIA_FABR].AsVariant := Null; DataTable.Fields[idx_ArticulosParaClienteREFERENCIA_FABR].AsVariant := Null;
end; end;
function TArticulosParaClienteDataTableRules.GetPARAM_MARGENValue: Float;
begin
result := DataTable.Fields[idx_ArticulosParaClientePARAM_MARGEN].AsFloat;
end;
procedure TArticulosParaClienteDataTableRules.SetPARAM_MARGENValue(const aValue: Float);
begin
DataTable.Fields[idx_ArticulosParaClientePARAM_MARGEN].AsFloat := aValue;
end;
function TArticulosParaClienteDataTableRules.GetPARAM_MARGENIsNull: boolean;
begin
result := DataTable.Fields[idx_ArticulosParaClientePARAM_MARGEN].IsNull;
end;
procedure TArticulosParaClienteDataTableRules.SetPARAM_MARGENIsNull(const aValue: Boolean);
begin
if aValue then
DataTable.Fields[idx_ArticulosParaClientePARAM_MARGEN].AsVariant := Null;
end;
function TArticulosParaClienteDataTableRules.GetPRECIO_PVP_VENTAValue: Currency;
begin
result := DataTable.Fields[idx_ArticulosParaClientePRECIO_PVP_VENTA].AsCurrency;
end;
procedure TArticulosParaClienteDataTableRules.SetPRECIO_PVP_VENTAValue(const aValue: Currency);
begin
DataTable.Fields[idx_ArticulosParaClientePRECIO_PVP_VENTA].AsCurrency := aValue;
end;
function TArticulosParaClienteDataTableRules.GetPRECIO_PVP_VENTAIsNull: boolean;
begin
result := DataTable.Fields[idx_ArticulosParaClientePRECIO_PVP_VENTA].IsNull;
end;
procedure TArticulosParaClienteDataTableRules.SetPRECIO_PVP_VENTAIsNull(const aValue: Boolean);
begin
if aValue then
DataTable.Fields[idx_ArticulosParaClientePRECIO_PVP_VENTA].AsVariant := Null;
end;
function TArticulosParaClienteDataTableRules.GetTIEMPOValue: Integer; function TArticulosParaClienteDataTableRules.GetTIEMPOValue: Integer;
begin begin
result := DataTable.Fields[idx_ArticulosParaClienteTIEMPO].AsInteger; result := DataTable.Fields[idx_ArticulosParaClienteTIEMPO].AsInteger;
@ -1922,29 +2173,30 @@ begin
DataTable.Fields[idx_ArticulosParaClienteMANO_OBRA].AsVariant := Null; DataTable.Fields[idx_ArticulosParaClienteMANO_OBRA].AsVariant := Null;
end; end;
function TArticulosParaClienteDataTableRules.GetPRECIO_PVPValue: Currency; function TArticulosParaClienteDataTableRules.GetPRECIO_PVP_TOTALValue: Currency;
begin begin
result := DataTable.Fields[idx_ArticulosParaClientePRECIO_PVP].AsCurrency; result := DataTable.Fields[idx_ArticulosParaClientePRECIO_PVP_TOTAL].AsCurrency;
end; end;
procedure TArticulosParaClienteDataTableRules.SetPRECIO_PVPValue(const aValue: Currency); procedure TArticulosParaClienteDataTableRules.SetPRECIO_PVP_TOTALValue(const aValue: Currency);
begin begin
DataTable.Fields[idx_ArticulosParaClientePRECIO_PVP].AsCurrency := aValue; DataTable.Fields[idx_ArticulosParaClientePRECIO_PVP_TOTAL].AsCurrency := aValue;
end; end;
function TArticulosParaClienteDataTableRules.GetPRECIO_PVPIsNull: boolean; function TArticulosParaClienteDataTableRules.GetPRECIO_PVP_TOTALIsNull: boolean;
begin begin
result := DataTable.Fields[idx_ArticulosParaClientePRECIO_PVP].IsNull; result := DataTable.Fields[idx_ArticulosParaClientePRECIO_PVP_TOTAL].IsNull;
end; end;
procedure TArticulosParaClienteDataTableRules.SetPRECIO_PVPIsNull(const aValue: Boolean); procedure TArticulosParaClienteDataTableRules.SetPRECIO_PVP_TOTALIsNull(const aValue: Boolean);
begin begin
if aValue then if aValue then
DataTable.Fields[idx_ArticulosParaClientePRECIO_PVP].AsVariant := Null; DataTable.Fields[idx_ArticulosParaClientePRECIO_PVP_TOTAL].AsVariant := Null;
end; end;
initialization initialization
RegisterDataTableRules(RID_ProveedoresConArticulos, TProveedoresConArticulosDataTableRules);
RegisterDataTableRules(RID_Articulos, TArticulosDataTableRules); RegisterDataTableRules(RID_Articulos, TArticulosDataTableRules);
RegisterDataTableRules(RID_ArticulosParaCliente, TArticulosParaClienteDataTableRules); RegisterDataTableRules(RID_ArticulosParaCliente, TArticulosParaClienteDataTableRules);

398
Source/Modulos/Articulos/Model/schArticulosServer_Intf.pas
View File

@ -9,13 +9,60 @@ const
{ Delta rules ids { Delta rules ids
Feel free to change them to something more human readable Feel free to change them to something more human readable
but make sure they are unique in the context of your application } but make sure they are unique in the context of your application }
RID_ArticulosDelta = '{E90664CD-974B-4763-AFDF-9B682888F975}'; RID_ProveedoresConArticulosDelta = '{96362193-B4A6-41E4-9CCC-01C9A8F216EF}';
RID_ArticulosParaClienteDelta = '{20B7D734-5B3C-4B7E-9731-398937C0E081}'; RID_ArticulosDelta = '{604B3086-A8FE-47C3-A7A9-126527DF98FD}';
RID_ArticulosParaClienteDelta = '{A623F019-D2B3-4686-B1A6-DCA52882649B}';
type type
{ IProveedoresConArticulosDelta }
IProveedoresConArticulosDelta = interface(IProveedoresConArticulos)
['{96362193-B4A6-41E4-9CCC-01C9A8F216EF}']
{ Property getters and setters }
function GetOldID_PROVEEDORValue : Integer;
function GetOldNOMBREValue : String;
{ Properties }
property OldID_PROVEEDOR : Integer read GetOldID_PROVEEDORValue;
property OldNOMBRE : String read GetOldNOMBREValue;
end;
{ TProveedoresConArticulosBusinessProcessorRules }
TProveedoresConArticulosBusinessProcessorRules = class(TDABusinessProcessorRules, IProveedoresConArticulos, IProveedoresConArticulosDelta)
private
protected
{ Property getters and setters }
function GetID_PROVEEDORValue: Integer; virtual;
function GetID_PROVEEDORIsNull: Boolean; virtual;
function GetOldID_PROVEEDORValue: Integer; virtual;
function GetOldID_PROVEEDORIsNull: Boolean; virtual;
procedure SetID_PROVEEDORValue(const aValue: Integer); virtual;
procedure SetID_PROVEEDORIsNull(const aValue: Boolean); virtual;
function GetNOMBREValue: String; virtual;
function GetNOMBREIsNull: Boolean; virtual;
function GetOldNOMBREValue: String; virtual;
function GetOldNOMBREIsNull: Boolean; virtual;
procedure SetNOMBREValue(const aValue: String); virtual;
procedure SetNOMBREIsNull(const aValue: Boolean); virtual;
{ Properties }
property ID_PROVEEDOR : Integer read GetID_PROVEEDORValue write SetID_PROVEEDORValue;
property ID_PROVEEDORIsNull : Boolean read GetID_PROVEEDORIsNull write SetID_PROVEEDORIsNull;
property OldID_PROVEEDOR : Integer read GetOldID_PROVEEDORValue;
property OldID_PROVEEDORIsNull : Boolean read GetOldID_PROVEEDORIsNull;
property NOMBRE : String read GetNOMBREValue write SetNOMBREValue;
property NOMBREIsNull : Boolean read GetNOMBREIsNull write SetNOMBREIsNull;
property OldNOMBRE : String read GetOldNOMBREValue;
property OldNOMBREIsNull : Boolean read GetOldNOMBREIsNull;
public
constructor Create(aBusinessProcessor: TDABusinessProcessor); override;
destructor Destroy; override;
end;
{ IArticulosDelta } { IArticulosDelta }
IArticulosDelta = interface(IArticulos) IArticulosDelta = interface(IArticulos)
['{E90664CD-974B-4763-AFDF-9B682888F975}'] ['{604B3086-A8FE-47C3-A7A9-126527DF98FD}']
{ Property getters and setters } { Property getters and setters }
function GetOldIDValue : Integer; function GetOldIDValue : Integer;
function GetOldID_EMPRESAValue : Integer; function GetOldID_EMPRESAValue : Integer;
@ -39,10 +86,12 @@ type
function GetOldELIMINADOValue : SmallInt; function GetOldELIMINADOValue : SmallInt;
function GetOldFABRICANTEValue : String; function GetOldFABRICANTEValue : String;
function GetOldREFERENCIA_FABRValue : String; function GetOldREFERENCIA_FABRValue : String;
function GetOldPARAM_MARGENValue : Float;
function GetOldPRECIO_PVP_VENTAValue : Currency;
function GetOldTIEMPOValue : Integer; function GetOldTIEMPOValue : Integer;
function GetOldPARAM_TIEMPOValue : Float; function GetOldPARAM_TIEMPOValue : Float;
function GetOldMANO_OBRAValue : Currency; function GetOldMANO_OBRAValue : Currency;
function GetOldPRECIO_PVPValue : Currency; function GetOldPRECIO_PVP_TOTALValue : Currency;
{ Properties } { Properties }
property OldID : Integer read GetOldIDValue; property OldID : Integer read GetOldIDValue;
@ -67,10 +116,12 @@ type
property OldELIMINADO : SmallInt read GetOldELIMINADOValue; property OldELIMINADO : SmallInt read GetOldELIMINADOValue;
property OldFABRICANTE : String read GetOldFABRICANTEValue; property OldFABRICANTE : String read GetOldFABRICANTEValue;
property OldREFERENCIA_FABR : String read GetOldREFERENCIA_FABRValue; property OldREFERENCIA_FABR : String read GetOldREFERENCIA_FABRValue;
property OldPARAM_MARGEN : Float read GetOldPARAM_MARGENValue;
property OldPRECIO_PVP_VENTA : Currency read GetOldPRECIO_PVP_VENTAValue;
property OldTIEMPO : Integer read GetOldTIEMPOValue; property OldTIEMPO : Integer read GetOldTIEMPOValue;
property OldPARAM_TIEMPO : Float read GetOldPARAM_TIEMPOValue; property OldPARAM_TIEMPO : Float read GetOldPARAM_TIEMPOValue;
property OldMANO_OBRA : Currency read GetOldMANO_OBRAValue; property OldMANO_OBRA : Currency read GetOldMANO_OBRAValue;
property OldPRECIO_PVP : Currency read GetOldPRECIO_PVPValue; property OldPRECIO_PVP_TOTAL : Currency read GetOldPRECIO_PVP_TOTALValue;
end; end;
{ TArticulosBusinessProcessorRules } { TArticulosBusinessProcessorRules }
@ -211,6 +262,18 @@ type
function GetOldREFERENCIA_FABRIsNull: Boolean; virtual; function GetOldREFERENCIA_FABRIsNull: Boolean; virtual;
procedure SetREFERENCIA_FABRValue(const aValue: String); virtual; procedure SetREFERENCIA_FABRValue(const aValue: String); virtual;
procedure SetREFERENCIA_FABRIsNull(const aValue: Boolean); virtual; procedure SetREFERENCIA_FABRIsNull(const aValue: Boolean); virtual;
function GetPARAM_MARGENValue: Float; virtual;
function GetPARAM_MARGENIsNull: Boolean; virtual;
function GetOldPARAM_MARGENValue: Float; virtual;
function GetOldPARAM_MARGENIsNull: Boolean; virtual;
procedure SetPARAM_MARGENValue(const aValue: Float); virtual;
procedure SetPARAM_MARGENIsNull(const aValue: Boolean); virtual;
function GetPRECIO_PVP_VENTAValue: Currency; virtual;
function GetPRECIO_PVP_VENTAIsNull: Boolean; virtual;
function GetOldPRECIO_PVP_VENTAValue: Currency; virtual;
function GetOldPRECIO_PVP_VENTAIsNull: Boolean; virtual;
procedure SetPRECIO_PVP_VENTAValue(const aValue: Currency); virtual;
procedure SetPRECIO_PVP_VENTAIsNull(const aValue: Boolean); virtual;
function GetTIEMPOValue: Integer; virtual; function GetTIEMPOValue: Integer; virtual;
function GetTIEMPOIsNull: Boolean; virtual; function GetTIEMPOIsNull: Boolean; virtual;
function GetOldTIEMPOValue: Integer; virtual; function GetOldTIEMPOValue: Integer; virtual;
@ -229,12 +292,12 @@ type
function GetOldMANO_OBRAIsNull: Boolean; virtual; function GetOldMANO_OBRAIsNull: Boolean; virtual;
procedure SetMANO_OBRAValue(const aValue: Currency); virtual; procedure SetMANO_OBRAValue(const aValue: Currency); virtual;
procedure SetMANO_OBRAIsNull(const aValue: Boolean); virtual; procedure SetMANO_OBRAIsNull(const aValue: Boolean); virtual;
function GetPRECIO_PVPValue: Currency; virtual; function GetPRECIO_PVP_TOTALValue: Currency; virtual;
function GetPRECIO_PVPIsNull: Boolean; virtual; function GetPRECIO_PVP_TOTALIsNull: Boolean; virtual;
function GetOldPRECIO_PVPValue: Currency; virtual; function GetOldPRECIO_PVP_TOTALValue: Currency; virtual;
function GetOldPRECIO_PVPIsNull: Boolean; virtual; function GetOldPRECIO_PVP_TOTALIsNull: Boolean; virtual;
procedure SetPRECIO_PVPValue(const aValue: Currency); virtual; procedure SetPRECIO_PVP_TOTALValue(const aValue: Currency); virtual;
procedure SetPRECIO_PVPIsNull(const aValue: Boolean); virtual; procedure SetPRECIO_PVP_TOTALIsNull(const aValue: Boolean); virtual;
{ Properties } { Properties }
property ID : Integer read GetIDValue write SetIDValue; property ID : Integer read GetIDValue write SetIDValue;
@ -325,6 +388,14 @@ type
property REFERENCIA_FABRIsNull : Boolean read GetREFERENCIA_FABRIsNull write SetREFERENCIA_FABRIsNull; property REFERENCIA_FABRIsNull : Boolean read GetREFERENCIA_FABRIsNull write SetREFERENCIA_FABRIsNull;
property OldREFERENCIA_FABR : String read GetOldREFERENCIA_FABRValue; property OldREFERENCIA_FABR : String read GetOldREFERENCIA_FABRValue;
property OldREFERENCIA_FABRIsNull : Boolean read GetOldREFERENCIA_FABRIsNull; property OldREFERENCIA_FABRIsNull : Boolean read GetOldREFERENCIA_FABRIsNull;
property PARAM_MARGEN : Float read GetPARAM_MARGENValue write SetPARAM_MARGENValue;
property PARAM_MARGENIsNull : Boolean read GetPARAM_MARGENIsNull write SetPARAM_MARGENIsNull;
property OldPARAM_MARGEN : Float read GetOldPARAM_MARGENValue;
property OldPARAM_MARGENIsNull : Boolean read GetOldPARAM_MARGENIsNull;
property PRECIO_PVP_VENTA : Currency read GetPRECIO_PVP_VENTAValue write SetPRECIO_PVP_VENTAValue;
property PRECIO_PVP_VENTAIsNull : Boolean read GetPRECIO_PVP_VENTAIsNull write SetPRECIO_PVP_VENTAIsNull;
property OldPRECIO_PVP_VENTA : Currency read GetOldPRECIO_PVP_VENTAValue;
property OldPRECIO_PVP_VENTAIsNull : Boolean read GetOldPRECIO_PVP_VENTAIsNull;
property TIEMPO : Integer read GetTIEMPOValue write SetTIEMPOValue; property TIEMPO : Integer read GetTIEMPOValue write SetTIEMPOValue;
property TIEMPOIsNull : Boolean read GetTIEMPOIsNull write SetTIEMPOIsNull; property TIEMPOIsNull : Boolean read GetTIEMPOIsNull write SetTIEMPOIsNull;
property OldTIEMPO : Integer read GetOldTIEMPOValue; property OldTIEMPO : Integer read GetOldTIEMPOValue;
@ -337,10 +408,10 @@ type
property MANO_OBRAIsNull : Boolean read GetMANO_OBRAIsNull write SetMANO_OBRAIsNull; property MANO_OBRAIsNull : Boolean read GetMANO_OBRAIsNull write SetMANO_OBRAIsNull;
property OldMANO_OBRA : Currency read GetOldMANO_OBRAValue; property OldMANO_OBRA : Currency read GetOldMANO_OBRAValue;
property OldMANO_OBRAIsNull : Boolean read GetOldMANO_OBRAIsNull; property OldMANO_OBRAIsNull : Boolean read GetOldMANO_OBRAIsNull;
property PRECIO_PVP : Currency read GetPRECIO_PVPValue write SetPRECIO_PVPValue; property PRECIO_PVP_TOTAL : Currency read GetPRECIO_PVP_TOTALValue write SetPRECIO_PVP_TOTALValue;
property PRECIO_PVPIsNull : Boolean read GetPRECIO_PVPIsNull write SetPRECIO_PVPIsNull; property PRECIO_PVP_TOTALIsNull : Boolean read GetPRECIO_PVP_TOTALIsNull write SetPRECIO_PVP_TOTALIsNull;
property OldPRECIO_PVP : Currency read GetOldPRECIO_PVPValue; property OldPRECIO_PVP_TOTAL : Currency read GetOldPRECIO_PVP_TOTALValue;
property OldPRECIO_PVPIsNull : Boolean read GetOldPRECIO_PVPIsNull; property OldPRECIO_PVP_TOTALIsNull : Boolean read GetOldPRECIO_PVP_TOTALIsNull;
public public
constructor Create(aBusinessProcessor: TDABusinessProcessor); override; constructor Create(aBusinessProcessor: TDABusinessProcessor); override;
@ -350,7 +421,7 @@ type
{ IArticulosParaClienteDelta } { IArticulosParaClienteDelta }
IArticulosParaClienteDelta = interface(IArticulosParaCliente) IArticulosParaClienteDelta = interface(IArticulosParaCliente)
['{20B7D734-5B3C-4B7E-9731-398937C0E081}'] ['{A623F019-D2B3-4686-B1A6-DCA52882649B}']
{ Property getters and setters } { Property getters and setters }
function GetOldIDValue : Integer; function GetOldIDValue : Integer;
function GetOldID_EMPRESAValue : Integer; function GetOldID_EMPRESAValue : Integer;
@ -374,10 +445,12 @@ type
function GetOldELIMINADOValue : SmallInt; function GetOldELIMINADOValue : SmallInt;
function GetOldFABRICANTEValue : String; function GetOldFABRICANTEValue : String;
function GetOldREFERENCIA_FABRValue : String; function GetOldREFERENCIA_FABRValue : String;
function GetOldPARAM_MARGENValue : Float;
function GetOldPRECIO_PVP_VENTAValue : Currency;
function GetOldTIEMPOValue : Integer; function GetOldTIEMPOValue : Integer;
function GetOldPARAM_TIEMPOValue : Float; function GetOldPARAM_TIEMPOValue : Float;
function GetOldMANO_OBRAValue : Currency; function GetOldMANO_OBRAValue : Currency;
function GetOldPRECIO_PVPValue : Currency; function GetOldPRECIO_PVP_TOTALValue : Currency;
{ Properties } { Properties }
property OldID : Integer read GetOldIDValue; property OldID : Integer read GetOldIDValue;
@ -402,10 +475,12 @@ type
property OldELIMINADO : SmallInt read GetOldELIMINADOValue; property OldELIMINADO : SmallInt read GetOldELIMINADOValue;
property OldFABRICANTE : String read GetOldFABRICANTEValue; property OldFABRICANTE : String read GetOldFABRICANTEValue;
property OldREFERENCIA_FABR : String read GetOldREFERENCIA_FABRValue; property OldREFERENCIA_FABR : String read GetOldREFERENCIA_FABRValue;
property OldPARAM_MARGEN : Float read GetOldPARAM_MARGENValue;
property OldPRECIO_PVP_VENTA : Currency read GetOldPRECIO_PVP_VENTAValue;
property OldTIEMPO : Integer read GetOldTIEMPOValue; property OldTIEMPO : Integer read GetOldTIEMPOValue;
property OldPARAM_TIEMPO : Float read GetOldPARAM_TIEMPOValue; property OldPARAM_TIEMPO : Float read GetOldPARAM_TIEMPOValue;
property OldMANO_OBRA : Currency read GetOldMANO_OBRAValue; property OldMANO_OBRA : Currency read GetOldMANO_OBRAValue;
property OldPRECIO_PVP : Currency read GetOldPRECIO_PVPValue; property OldPRECIO_PVP_TOTAL : Currency read GetOldPRECIO_PVP_TOTALValue;
end; end;
{ TArticulosParaClienteBusinessProcessorRules } { TArticulosParaClienteBusinessProcessorRules }
@ -546,6 +621,18 @@ type
function GetOldREFERENCIA_FABRIsNull: Boolean; virtual; function GetOldREFERENCIA_FABRIsNull: Boolean; virtual;
procedure SetREFERENCIA_FABRValue(const aValue: String); virtual; procedure SetREFERENCIA_FABRValue(const aValue: String); virtual;
procedure SetREFERENCIA_FABRIsNull(const aValue: Boolean); virtual; procedure SetREFERENCIA_FABRIsNull(const aValue: Boolean); virtual;
function GetPARAM_MARGENValue: Float; virtual;
function GetPARAM_MARGENIsNull: Boolean; virtual;
function GetOldPARAM_MARGENValue: Float; virtual;
function GetOldPARAM_MARGENIsNull: Boolean; virtual;
procedure SetPARAM_MARGENValue(const aValue: Float); virtual;
procedure SetPARAM_MARGENIsNull(const aValue: Boolean); virtual;
function GetPRECIO_PVP_VENTAValue: Currency; virtual;
function GetPRECIO_PVP_VENTAIsNull: Boolean; virtual;
function GetOldPRECIO_PVP_VENTAValue: Currency; virtual;
function GetOldPRECIO_PVP_VENTAIsNull: Boolean; virtual;
procedure SetPRECIO_PVP_VENTAValue(const aValue: Currency); virtual;
procedure SetPRECIO_PVP_VENTAIsNull(const aValue: Boolean); virtual;
function GetTIEMPOValue: Integer; virtual; function GetTIEMPOValue: Integer; virtual;
function GetTIEMPOIsNull: Boolean; virtual; function GetTIEMPOIsNull: Boolean; virtual;
function GetOldTIEMPOValue: Integer; virtual; function GetOldTIEMPOValue: Integer; virtual;
@ -564,12 +651,12 @@ type
function GetOldMANO_OBRAIsNull: Boolean; virtual; function GetOldMANO_OBRAIsNull: Boolean; virtual;
procedure SetMANO_OBRAValue(const aValue: Currency); virtual; procedure SetMANO_OBRAValue(const aValue: Currency); virtual;
procedure SetMANO_OBRAIsNull(const aValue: Boolean); virtual; procedure SetMANO_OBRAIsNull(const aValue: Boolean); virtual;
function GetPRECIO_PVPValue: Currency; virtual; function GetPRECIO_PVP_TOTALValue: Currency; virtual;
function GetPRECIO_PVPIsNull: Boolean; virtual; function GetPRECIO_PVP_TOTALIsNull: Boolean; virtual;
function GetOldPRECIO_PVPValue: Currency; virtual; function GetOldPRECIO_PVP_TOTALValue: Currency; virtual;
function GetOldPRECIO_PVPIsNull: Boolean; virtual; function GetOldPRECIO_PVP_TOTALIsNull: Boolean; virtual;
procedure SetPRECIO_PVPValue(const aValue: Currency); virtual; procedure SetPRECIO_PVP_TOTALValue(const aValue: Currency); virtual;
procedure SetPRECIO_PVPIsNull(const aValue: Boolean); virtual; procedure SetPRECIO_PVP_TOTALIsNull(const aValue: Boolean); virtual;
{ Properties } { Properties }
property ID : Integer read GetIDValue write SetIDValue; property ID : Integer read GetIDValue write SetIDValue;
@ -660,6 +747,14 @@ type
property REFERENCIA_FABRIsNull : Boolean read GetREFERENCIA_FABRIsNull write SetREFERENCIA_FABRIsNull; property REFERENCIA_FABRIsNull : Boolean read GetREFERENCIA_FABRIsNull write SetREFERENCIA_FABRIsNull;
property OldREFERENCIA_FABR : String read GetOldREFERENCIA_FABRValue; property OldREFERENCIA_FABR : String read GetOldREFERENCIA_FABRValue;
property OldREFERENCIA_FABRIsNull : Boolean read GetOldREFERENCIA_FABRIsNull; property OldREFERENCIA_FABRIsNull : Boolean read GetOldREFERENCIA_FABRIsNull;
property PARAM_MARGEN : Float read GetPARAM_MARGENValue write SetPARAM_MARGENValue;
property PARAM_MARGENIsNull : Boolean read GetPARAM_MARGENIsNull write SetPARAM_MARGENIsNull;
property OldPARAM_MARGEN : Float read GetOldPARAM_MARGENValue;
property OldPARAM_MARGENIsNull : Boolean read GetOldPARAM_MARGENIsNull;
property PRECIO_PVP_VENTA : Currency read GetPRECIO_PVP_VENTAValue write SetPRECIO_PVP_VENTAValue;
property PRECIO_PVP_VENTAIsNull : Boolean read GetPRECIO_PVP_VENTAIsNull write SetPRECIO_PVP_VENTAIsNull;
property OldPRECIO_PVP_VENTA : Currency read GetOldPRECIO_PVP_VENTAValue;
property OldPRECIO_PVP_VENTAIsNull : Boolean read GetOldPRECIO_PVP_VENTAIsNull;
property TIEMPO : Integer read GetTIEMPOValue write SetTIEMPOValue; property TIEMPO : Integer read GetTIEMPOValue write SetTIEMPOValue;
property TIEMPOIsNull : Boolean read GetTIEMPOIsNull write SetTIEMPOIsNull; property TIEMPOIsNull : Boolean read GetTIEMPOIsNull write SetTIEMPOIsNull;
property OldTIEMPO : Integer read GetOldTIEMPOValue; property OldTIEMPO : Integer read GetOldTIEMPOValue;
@ -672,10 +767,10 @@ type
property MANO_OBRAIsNull : Boolean read GetMANO_OBRAIsNull write SetMANO_OBRAIsNull; property MANO_OBRAIsNull : Boolean read GetMANO_OBRAIsNull write SetMANO_OBRAIsNull;
property OldMANO_OBRA : Currency read GetOldMANO_OBRAValue; property OldMANO_OBRA : Currency read GetOldMANO_OBRAValue;
property OldMANO_OBRAIsNull : Boolean read GetOldMANO_OBRAIsNull; property OldMANO_OBRAIsNull : Boolean read GetOldMANO_OBRAIsNull;
property PRECIO_PVP : Currency read GetPRECIO_PVPValue write SetPRECIO_PVPValue; property PRECIO_PVP_TOTAL : Currency read GetPRECIO_PVP_TOTALValue write SetPRECIO_PVP_TOTALValue;
property PRECIO_PVPIsNull : Boolean read GetPRECIO_PVPIsNull write SetPRECIO_PVPIsNull; property PRECIO_PVP_TOTALIsNull : Boolean read GetPRECIO_PVP_TOTALIsNull write SetPRECIO_PVP_TOTALIsNull;
property OldPRECIO_PVP : Currency read GetOldPRECIO_PVPValue; property OldPRECIO_PVP_TOTAL : Currency read GetOldPRECIO_PVP_TOTALValue;
property OldPRECIO_PVPIsNull : Boolean read GetOldPRECIO_PVPIsNull; property OldPRECIO_PVP_TOTALIsNull : Boolean read GetOldPRECIO_PVP_TOTALIsNull;
public public
constructor Create(aBusinessProcessor: TDABusinessProcessor); override; constructor Create(aBusinessProcessor: TDABusinessProcessor); override;
@ -688,6 +783,80 @@ implementation
uses uses
Variants, uROBinaryHelpers, uDAInterfaces; Variants, uROBinaryHelpers, uDAInterfaces;
{ TProveedoresConArticulosBusinessProcessorRules }
constructor TProveedoresConArticulosBusinessProcessorRules.Create(aBusinessProcessor: TDABusinessProcessor);
begin
inherited;
end;
destructor TProveedoresConArticulosBusinessProcessorRules.Destroy;
begin
inherited;
end;
function TProveedoresConArticulosBusinessProcessorRules.GetID_PROVEEDORValue: Integer;
begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_ProveedoresConArticulosID_PROVEEDOR];
end;
function TProveedoresConArticulosBusinessProcessorRules.GetID_PROVEEDORIsNull: Boolean;
begin
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_ProveedoresConArticulosID_PROVEEDOR]);
end;
function TProveedoresConArticulosBusinessProcessorRules.GetOldID_PROVEEDORValue: Integer;
begin
result := BusinessProcessor.CurrentChange.OldValueByName[fld_ProveedoresConArticulosID_PROVEEDOR];
end;
function TProveedoresConArticulosBusinessProcessorRules.GetOldID_PROVEEDORIsNull: Boolean;
begin
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_ProveedoresConArticulosID_PROVEEDOR]);
end;
procedure TProveedoresConArticulosBusinessProcessorRules.SetID_PROVEEDORValue(const aValue: Integer);
begin
BusinessProcessor.CurrentChange.NewValueByName[fld_ProveedoresConArticulosID_PROVEEDOR] := aValue;
end;
procedure TProveedoresConArticulosBusinessProcessorRules.SetID_PROVEEDORIsNull(const aValue: Boolean);
begin
if aValue then
BusinessProcessor.CurrentChange.NewValueByName[fld_ProveedoresConArticulosID_PROVEEDOR] := Null;
end;
function TProveedoresConArticulosBusinessProcessorRules.GetNOMBREValue: String;
begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_ProveedoresConArticulosNOMBRE];
end;
function TProveedoresConArticulosBusinessProcessorRules.GetNOMBREIsNull: Boolean;
begin
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_ProveedoresConArticulosNOMBRE]);
end;
function TProveedoresConArticulosBusinessProcessorRules.GetOldNOMBREValue: String;
begin
result := BusinessProcessor.CurrentChange.OldValueByName[fld_ProveedoresConArticulosNOMBRE];
end;
function TProveedoresConArticulosBusinessProcessorRules.GetOldNOMBREIsNull: Boolean;
begin
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_ProveedoresConArticulosNOMBRE]);
end;
procedure TProveedoresConArticulosBusinessProcessorRules.SetNOMBREValue(const aValue: String);
begin
BusinessProcessor.CurrentChange.NewValueByName[fld_ProveedoresConArticulosNOMBRE] := aValue;
end;
procedure TProveedoresConArticulosBusinessProcessorRules.SetNOMBREIsNull(const aValue: Boolean);
begin
if aValue then
BusinessProcessor.CurrentChange.NewValueByName[fld_ProveedoresConArticulosNOMBRE] := Null;
end;
{ TArticulosBusinessProcessorRules } { TArticulosBusinessProcessorRules }
constructor TArticulosBusinessProcessorRules.Create(aBusinessProcessor: TDABusinessProcessor); constructor TArticulosBusinessProcessorRules.Create(aBusinessProcessor: TDABusinessProcessor);
var var
@ -1393,6 +1562,68 @@ begin
BusinessProcessor.CurrentChange.NewValueByName[fld_ArticulosREFERENCIA_FABR] := Null; BusinessProcessor.CurrentChange.NewValueByName[fld_ArticulosREFERENCIA_FABR] := Null;
end; end;
function TArticulosBusinessProcessorRules.GetPARAM_MARGENValue: Float;
begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_ArticulosPARAM_MARGEN];
end;
function TArticulosBusinessProcessorRules.GetPARAM_MARGENIsNull: Boolean;
begin
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_ArticulosPARAM_MARGEN]);
end;
function TArticulosBusinessProcessorRules.GetOldPARAM_MARGENValue: Float;
begin
result := BusinessProcessor.CurrentChange.OldValueByName[fld_ArticulosPARAM_MARGEN];
end;
function TArticulosBusinessProcessorRules.GetOldPARAM_MARGENIsNull: Boolean;
begin
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_ArticulosPARAM_MARGEN]);
end;
procedure TArticulosBusinessProcessorRules.SetPARAM_MARGENValue(const aValue: Float);
begin
BusinessProcessor.CurrentChange.NewValueByName[fld_ArticulosPARAM_MARGEN] := aValue;
end;
procedure TArticulosBusinessProcessorRules.SetPARAM_MARGENIsNull(const aValue: Boolean);
begin
if aValue then
BusinessProcessor.CurrentChange.NewValueByName[fld_ArticulosPARAM_MARGEN] := Null;
end;
function TArticulosBusinessProcessorRules.GetPRECIO_PVP_VENTAValue: Currency;
begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_ArticulosPRECIO_PVP_VENTA];
end;
function TArticulosBusinessProcessorRules.GetPRECIO_PVP_VENTAIsNull: Boolean;
begin
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_ArticulosPRECIO_PVP_VENTA]);
end;
function TArticulosBusinessProcessorRules.GetOldPRECIO_PVP_VENTAValue: Currency;
begin
result := BusinessProcessor.CurrentChange.OldValueByName[fld_ArticulosPRECIO_PVP_VENTA];
end;
function TArticulosBusinessProcessorRules.GetOldPRECIO_PVP_VENTAIsNull: Boolean;
begin
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_ArticulosPRECIO_PVP_VENTA]);
end;
procedure TArticulosBusinessProcessorRules.SetPRECIO_PVP_VENTAValue(const aValue: Currency);
begin
BusinessProcessor.CurrentChange.NewValueByName[fld_ArticulosPRECIO_PVP_VENTA] := aValue;
end;
procedure TArticulosBusinessProcessorRules.SetPRECIO_PVP_VENTAIsNull(const aValue: Boolean);
begin
if aValue then
BusinessProcessor.CurrentChange.NewValueByName[fld_ArticulosPRECIO_PVP_VENTA] := Null;
end;
function TArticulosBusinessProcessorRules.GetTIEMPOValue: Integer; function TArticulosBusinessProcessorRules.GetTIEMPOValue: Integer;
begin begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_ArticulosTIEMPO]; result := BusinessProcessor.CurrentChange.NewValueByName[fld_ArticulosTIEMPO];
@ -1486,35 +1717,35 @@ begin
BusinessProcessor.CurrentChange.NewValueByName[fld_ArticulosMANO_OBRA] := Null; BusinessProcessor.CurrentChange.NewValueByName[fld_ArticulosMANO_OBRA] := Null;
end; end;
function TArticulosBusinessProcessorRules.GetPRECIO_PVPValue: Currency; function TArticulosBusinessProcessorRules.GetPRECIO_PVP_TOTALValue: Currency;
begin begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_ArticulosPRECIO_PVP]; result := BusinessProcessor.CurrentChange.NewValueByName[fld_ArticulosPRECIO_PVP_TOTAL];
end; end;
function TArticulosBusinessProcessorRules.GetPRECIO_PVPIsNull: Boolean; function TArticulosBusinessProcessorRules.GetPRECIO_PVP_TOTALIsNull: Boolean;
begin begin
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_ArticulosPRECIO_PVP]); result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_ArticulosPRECIO_PVP_TOTAL]);
end; end;
function TArticulosBusinessProcessorRules.GetOldPRECIO_PVPValue: Currency; function TArticulosBusinessProcessorRules.GetOldPRECIO_PVP_TOTALValue: Currency;
begin begin
result := BusinessProcessor.CurrentChange.OldValueByName[fld_ArticulosPRECIO_PVP]; result := BusinessProcessor.CurrentChange.OldValueByName[fld_ArticulosPRECIO_PVP_TOTAL];
end; end;
function TArticulosBusinessProcessorRules.GetOldPRECIO_PVPIsNull: Boolean; function TArticulosBusinessProcessorRules.GetOldPRECIO_PVP_TOTALIsNull: Boolean;
begin begin
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_ArticulosPRECIO_PVP]); result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_ArticulosPRECIO_PVP_TOTAL]);
end; end;
procedure TArticulosBusinessProcessorRules.SetPRECIO_PVPValue(const aValue: Currency); procedure TArticulosBusinessProcessorRules.SetPRECIO_PVP_TOTALValue(const aValue: Currency);
begin begin
BusinessProcessor.CurrentChange.NewValueByName[fld_ArticulosPRECIO_PVP] := aValue; BusinessProcessor.CurrentChange.NewValueByName[fld_ArticulosPRECIO_PVP_TOTAL] := aValue;
end; end;
procedure TArticulosBusinessProcessorRules.SetPRECIO_PVPIsNull(const aValue: Boolean); procedure TArticulosBusinessProcessorRules.SetPRECIO_PVP_TOTALIsNull(const aValue: Boolean);
begin begin
if aValue then if aValue then
BusinessProcessor.CurrentChange.NewValueByName[fld_ArticulosPRECIO_PVP] := Null; BusinessProcessor.CurrentChange.NewValueByName[fld_ArticulosPRECIO_PVP_TOTAL] := Null;
end; end;
@ -2223,6 +2454,68 @@ begin
BusinessProcessor.CurrentChange.NewValueByName[fld_ArticulosParaClienteREFERENCIA_FABR] := Null; BusinessProcessor.CurrentChange.NewValueByName[fld_ArticulosParaClienteREFERENCIA_FABR] := Null;
end; end;
function TArticulosParaClienteBusinessProcessorRules.GetPARAM_MARGENValue: Float;
begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_ArticulosParaClientePARAM_MARGEN];
end;
function TArticulosParaClienteBusinessProcessorRules.GetPARAM_MARGENIsNull: Boolean;
begin
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_ArticulosParaClientePARAM_MARGEN]);
end;
function TArticulosParaClienteBusinessProcessorRules.GetOldPARAM_MARGENValue: Float;
begin
result := BusinessProcessor.CurrentChange.OldValueByName[fld_ArticulosParaClientePARAM_MARGEN];
end;
function TArticulosParaClienteBusinessProcessorRules.GetOldPARAM_MARGENIsNull: Boolean;
begin
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_ArticulosParaClientePARAM_MARGEN]);
end;
procedure TArticulosParaClienteBusinessProcessorRules.SetPARAM_MARGENValue(const aValue: Float);
begin
BusinessProcessor.CurrentChange.NewValueByName[fld_ArticulosParaClientePARAM_MARGEN] := aValue;
end;
procedure TArticulosParaClienteBusinessProcessorRules.SetPARAM_MARGENIsNull(const aValue: Boolean);
begin
if aValue then
BusinessProcessor.CurrentChange.NewValueByName[fld_ArticulosParaClientePARAM_MARGEN] := Null;
end;
function TArticulosParaClienteBusinessProcessorRules.GetPRECIO_PVP_VENTAValue: Currency;
begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_ArticulosParaClientePRECIO_PVP_VENTA];
end;
function TArticulosParaClienteBusinessProcessorRules.GetPRECIO_PVP_VENTAIsNull: Boolean;
begin
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_ArticulosParaClientePRECIO_PVP_VENTA]);
end;
function TArticulosParaClienteBusinessProcessorRules.GetOldPRECIO_PVP_VENTAValue: Currency;
begin
result := BusinessProcessor.CurrentChange.OldValueByName[fld_ArticulosParaClientePRECIO_PVP_VENTA];
end;
function TArticulosParaClienteBusinessProcessorRules.GetOldPRECIO_PVP_VENTAIsNull: Boolean;
begin
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_ArticulosParaClientePRECIO_PVP_VENTA]);
end;
procedure TArticulosParaClienteBusinessProcessorRules.SetPRECIO_PVP_VENTAValue(const aValue: Currency);
begin
BusinessProcessor.CurrentChange.NewValueByName[fld_ArticulosParaClientePRECIO_PVP_VENTA] := aValue;
end;
procedure TArticulosParaClienteBusinessProcessorRules.SetPRECIO_PVP_VENTAIsNull(const aValue: Boolean);
begin
if aValue then
BusinessProcessor.CurrentChange.NewValueByName[fld_ArticulosParaClientePRECIO_PVP_VENTA] := Null;
end;
function TArticulosParaClienteBusinessProcessorRules.GetTIEMPOValue: Integer; function TArticulosParaClienteBusinessProcessorRules.GetTIEMPOValue: Integer;
begin begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_ArticulosParaClienteTIEMPO]; result := BusinessProcessor.CurrentChange.NewValueByName[fld_ArticulosParaClienteTIEMPO];
@ -2316,39 +2609,40 @@ begin
BusinessProcessor.CurrentChange.NewValueByName[fld_ArticulosParaClienteMANO_OBRA] := Null; BusinessProcessor.CurrentChange.NewValueByName[fld_ArticulosParaClienteMANO_OBRA] := Null;
end; end;
function TArticulosParaClienteBusinessProcessorRules.GetPRECIO_PVPValue: Currency; function TArticulosParaClienteBusinessProcessorRules.GetPRECIO_PVP_TOTALValue: Currency;
begin begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_ArticulosParaClientePRECIO_PVP]; result := BusinessProcessor.CurrentChange.NewValueByName[fld_ArticulosParaClientePRECIO_PVP_TOTAL];
end; end;
function TArticulosParaClienteBusinessProcessorRules.GetPRECIO_PVPIsNull: Boolean; function TArticulosParaClienteBusinessProcessorRules.GetPRECIO_PVP_TOTALIsNull: Boolean;
begin begin
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_ArticulosParaClientePRECIO_PVP]); result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_ArticulosParaClientePRECIO_PVP_TOTAL]);
end; end;
function TArticulosParaClienteBusinessProcessorRules.GetOldPRECIO_PVPValue: Currency; function TArticulosParaClienteBusinessProcessorRules.GetOldPRECIO_PVP_TOTALValue: Currency;
begin begin
result := BusinessProcessor.CurrentChange.OldValueByName[fld_ArticulosParaClientePRECIO_PVP]; result := BusinessProcessor.CurrentChange.OldValueByName[fld_ArticulosParaClientePRECIO_PVP_TOTAL];
end; end;
function TArticulosParaClienteBusinessProcessorRules.GetOldPRECIO_PVPIsNull: Boolean; function TArticulosParaClienteBusinessProcessorRules.GetOldPRECIO_PVP_TOTALIsNull: Boolean;
begin begin
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_ArticulosParaClientePRECIO_PVP]); result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_ArticulosParaClientePRECIO_PVP_TOTAL]);
end; end;
procedure TArticulosParaClienteBusinessProcessorRules.SetPRECIO_PVPValue(const aValue: Currency); procedure TArticulosParaClienteBusinessProcessorRules.SetPRECIO_PVP_TOTALValue(const aValue: Currency);
begin begin
BusinessProcessor.CurrentChange.NewValueByName[fld_ArticulosParaClientePRECIO_PVP] := aValue; BusinessProcessor.CurrentChange.NewValueByName[fld_ArticulosParaClientePRECIO_PVP_TOTAL] := aValue;
end; end;
procedure TArticulosParaClienteBusinessProcessorRules.SetPRECIO_PVPIsNull(const aValue: Boolean); procedure TArticulosParaClienteBusinessProcessorRules.SetPRECIO_PVP_TOTALIsNull(const aValue: Boolean);
begin begin
if aValue then if aValue then
BusinessProcessor.CurrentChange.NewValueByName[fld_ArticulosParaClientePRECIO_PVP] := Null; BusinessProcessor.CurrentChange.NewValueByName[fld_ArticulosParaClientePRECIO_PVP_TOTAL] := Null;
end; end;
initialization initialization
RegisterBusinessProcessorRules(RID_ProveedoresConArticulosDelta, TProveedoresConArticulosBusinessProcessorRules);
RegisterBusinessProcessorRules(RID_ArticulosDelta, TArticulosBusinessProcessorRules); RegisterBusinessProcessorRules(RID_ArticulosDelta, TArticulosBusinessProcessorRules);
RegisterBusinessProcessorRules(RID_ArticulosParaClienteDelta, TArticulosParaClienteBusinessProcessorRules); RegisterBusinessProcessorRules(RID_ArticulosParaClienteDelta, TArticulosParaClienteBusinessProcessorRules);

BIN
Source/Modulos/Articulos/Model/uBizArticulos.pas
View File

Binary file not shown.

94
Source/Modulos/Articulos/Model/uBizArticulosServer.pas Normal file
View File

@ -0,0 +1,94 @@
unit uBizArticulosServer;
interface
uses
uDAInterfaces, uDADelta, uDABusinessProcessor,
schArticulosServer_Intf;
const
BIZ_SERVER_ARTICULOS = 'Server.Articulos';
type
TBizArticulosServer = class(TArticulosBusinessProcessorRules)
private
FReferenciaAutomatica : Boolean;
function DarReferencia : String;
function IncrementarReferencia : Boolean;
protected
procedure BeforeProcessDelta(Sender: TDABusinessProcessor; const aDelta: IDADelta); override;
procedure AfterProcessChange(Sender: TDABusinessProcessor; aChange: TDADeltaChange; Processed: Boolean;
var CanRemoveFromDelta: Boolean); override;
end;
implementation
uses
Variants, uDAClasses, srvReferencias_Impl, uBusinessUtils, uROClasses,
uDataModuleServer, schArticulosClient_Intf;
const
REF_ARTICULOS = 'REF_ARTICULOS';
{ TBizArticulosServer }
procedure TBizArticulosServer.AfterProcessChange(
Sender: TDABusinessProcessor; aChange: TDADeltaChange; Processed: Boolean;
var CanRemoveFromDelta: Boolean);
begin
inherited;
{ Por defecto, mantenemos los deltas por si alguna tabla hija los necesita }
CanRemoveFromDelta := False;
case aChange.ChangeType of
ctInsert, ctUpdate: begin
if FReferenciaAutomatica then
begin
IncrementarReferencia;
FReferenciaAutomatica := False;
end;
end;
end;
end;
procedure TBizArticulosServer.BeforeProcessDelta(
Sender: TDABusinessProcessor; const aDelta: IDADelta);
begin
FReferenciaAutomatica := False;
case Sender.CurrentChange.ChangeType of
ctInsert, ctUpdate: begin
//Si la referencia no ha sido asignada le asignamos una nosotros
if REFERENCIAIsNull or (Length(REFERENCIA) = 0) then
begin
FReferenciaAutomatica := True;
REFERENCIA := DarReferencia;
end;
end;
end;
end;
function TBizArticulosServer.DarReferencia: String;
begin
with TsrvReferencias.Create(NIL) do
try
Result := DarNuevaReferencia(REF_ARTICULOS)
finally
Free;
end;
end;
function TBizArticulosServer.IncrementarReferencia: Boolean;
begin
with TsrvReferencias.Create(NIL) do
try
Result := IncrementarValorReferencia(REF_ARTICULOS, Self.REFERENCIA, ID_EMPRESA)
finally
Free;
end;
end;
initialization
RegisterBusinessProcessorRules(BIZ_SERVER_ARTICULOS, TBizArticulosServer);
end.

172
Source/Modulos/Articulos/Servidor/srvArticulos_Impl.dfm
View File

@ -136,6 +136,40 @@ object srvArticulos: TsrvArticulos
DataType = datString DataType = datString
Size = 255 Size = 255
DisplayLabel = 'Ref. fabricante' DisplayLabel = 'Ref. fabricante'
end
item
Name = 'Articulos_PARAM_MARGEN'
DataType = datFloat
DisplayLabel = 'Margen'
end
item
Name = 'Articulos_PRECIO_PVP_VENTA'
DataType = datCurrency
DisplayLabel = 'Precio PVP (Solo suministro)'
Alignment = taRightJustify
end
item
Name = 'Articulos_TIEMPO'
DataType = datInteger
DisplayLabel = 'Tiempo'
end
item
Name = 'Articulos_PARAM_TIEMPO'
DataType = datFloat
DisplayLabel = 'Precio min'
Alignment = taRightJustify
end
item
Name = 'Articulos_MANO_OBRA'
DataType = datCurrency
DisplayLabel = 'Mano de obra'
Alignment = taRightJustify
end
item
Name = 'Articulos_PRECIO_PVP_TOTAL'
DataType = datCurrency
DisplayLabel = 'Precio P.V.P (Total)'
Alignment = taRightJustify
end> end>
Left = 150 Left = 150
Top = 22 Top = 22
@ -209,6 +243,10 @@ object srvArticulos: TsrvArticulos
DatasetField = 'DESCRIPCION' DatasetField = 'DESCRIPCION'
TableField = 'DESCRIPCION' TableField = 'DESCRIPCION'
end end
item
DatasetField = 'UNIDAD_MEDIDA'
TableField = 'UNIDAD_MEDIDA'
end
item item
DatasetField = 'FAMILIA' DatasetField = 'FAMILIA'
TableField = 'FAMILIA' TableField = 'FAMILIA'
@ -253,6 +291,10 @@ object srvArticulos: TsrvArticulos
DatasetField = 'PRECIO_NETO' DatasetField = 'PRECIO_NETO'
TableField = 'PRECIO_NETO' TableField = 'PRECIO_NETO'
end end
item
DatasetField = 'INVENTARIABLE'
TableField = 'INVENTARIABLE'
end
item item
DatasetField = 'ID_PROVEEDOR' DatasetField = 'ID_PROVEEDOR'
TableField = 'ID_PROVEEDOR' TableField = 'ID_PROVEEDOR'
@ -261,18 +303,10 @@ object srvArticulos: TsrvArticulos
DatasetField = 'NOMBRE_PROVEEDOR' DatasetField = 'NOMBRE_PROVEEDOR'
TableField = 'NOMBRE_PROVEEDOR' TableField = 'NOMBRE_PROVEEDOR'
end end
item
DatasetField = 'INVENTARIABLE'
TableField = 'INVENTARIABLE'
end
item item
DatasetField = 'ELIMINADO' DatasetField = 'ELIMINADO'
TableField = 'ELIMINADO' TableField = 'ELIMINADO'
end end
item
DatasetField = 'UNIDAD_MEDIDA'
TableField = 'UNIDAD_MEDIDA'
end
item item
DatasetField = 'FABRICANTE' DatasetField = 'FABRICANTE'
TableField = 'FABRICANTE' TableField = 'FABRICANTE'
@ -281,6 +315,14 @@ object srvArticulos: TsrvArticulos
DatasetField = 'REFERENCIA_FABR' DatasetField = 'REFERENCIA_FABR'
TableField = 'REFERENCIA_FABR' TableField = 'REFERENCIA_FABR'
end end
item
DatasetField = 'PARAM_MARGEN'
TableField = 'PARAM_MARGEN'
end
item
DatasetField = 'PRECIO_PVP_VENTA'
TableField = 'PRECIO_PVP_VENTA'
end
item item
DatasetField = 'TIEMPO' DatasetField = 'TIEMPO'
TableField = 'TIEMPO' TableField = 'TIEMPO'
@ -294,8 +336,8 @@ object srvArticulos: TsrvArticulos
TableField = 'MANO_OBRA' TableField = 'MANO_OBRA'
end end
item item
DatasetField = 'PRECIO_PVP' DatasetField = 'PRECIO_PVP_TOTAL'
TableField = 'PRECIO_PVP' TableField = 'PRECIO_PVP_TOTAL'
end> end>
end> end>
Name = 'Articulos' Name = 'Articulos'
@ -422,21 +464,35 @@ object srvArticulos: TsrvArticulos
Size = 255 Size = 255
DictionaryEntry = 'Articulos_REFERENCIA_FABR' DictionaryEntry = 'Articulos_REFERENCIA_FABR'
end end
item
Name = 'PARAM_MARGEN'
DataType = datFloat
DictionaryEntry = 'Articulos_PARAM_MARGEN'
end
item
Name = 'PRECIO_PVP_VENTA'
DataType = datCurrency
DictionaryEntry = 'Articulos_PRECIO_PVP_VENTA'
end
item item
Name = 'TIEMPO' Name = 'TIEMPO'
DataType = datInteger DataType = datInteger
DictionaryEntry = 'Articulos_TIEMPO'
end end
item item
Name = 'PARAM_TIEMPO' Name = 'PARAM_TIEMPO'
DataType = datFloat DataType = datFloat
DictionaryEntry = 'Articulos_PARAM_TIEMPO'
end end
item item
Name = 'MANO_OBRA' Name = 'MANO_OBRA'
DataType = datCurrency DataType = datCurrency
DictionaryEntry = 'Articulos_MANO_OBRA'
end end
item item
Name = 'PRECIO_PVP' Name = 'PRECIO_PVP_TOTAL'
DataType = datCurrency DataType = datCurrency
DictionaryEntry = 'Articulos_PRECIO_PVP_TOTAL'
end> end>
end end
item item
@ -460,12 +516,13 @@ object srvArticulos: TsrvArticulos
'ORES.DESCUENTO,'#10#9'V_ARTICULOS.PRECIO_NETO, V_ARTICULOS.INVENTARIA' + 'ORES.DESCUENTO,'#10#9'V_ARTICULOS.PRECIO_NETO, V_ARTICULOS.INVENTARIA' +
'BLE,'#10#9'V_ARTICULOS.ID_PROVEEDOR, V_ARTICULOS.NOMBRE_PROVEEDOR,'#10#9'V' + 'BLE,'#10#9'V_ARTICULOS.ID_PROVEEDOR, V_ARTICULOS.NOMBRE_PROVEEDOR,'#10#9'V' +
'_ARTICULOS.ELIMINADO, V_ARTICULOS.FABRICANTE, V_ARTICULOS.REFERE' + '_ARTICULOS.ELIMINADO, V_ARTICULOS.FABRICANTE, V_ARTICULOS.REFERE' +
'NCIA_FABR,'#10#9'V_ARTICULOS.TIEMPO, V_ARTICULOS.PARAM_TIEMPO, V_ARTI' + 'NCIA_FABR,'#10#9'V_ARTICULOS.PARAM_MARGEN, V_ARTICULOS.PRECIO_PVP_VEN' +
'CULOS.MANO_OBRA,'#10' V_ARTICULOS.PRECIO_PVP'#10' FROM'#10' V_ART' + 'TA, V_ARTICULOS.TIEMPO,'#10' V_ARTICULOS.PARAM_TIEMPO, V_ARTI' +
'ICULOS'#10' LEFT OUTER JOIN CLIENTES_DTOS_PROVEEDORES'#10#9'ON ((CLIENTE' + 'CULOS.MANO_OBRA, V_ARTICULOS.PRECIO_PVP_TOTAL'#10' FROM'#10' V_ARTIC' +
'S_DTOS_PROVEEDORES.ID_PROVEEDOR = V_ARTICULOS.ID_PROVEEDOR)'#10#9#9'AN' + 'ULOS'#10' LEFT OUTER JOIN CLIENTES_DTOS_PROVEEDORES'#10#9'ON ((CLIENTES_' +
'D (CLIENTES_DTOS_PROVEEDORES.ID_CLIENTE = :ID_CLIENTE))'#10' WHERE ' + 'DTOS_PROVEEDORES.ID_PROVEEDOR = V_ARTICULOS.ID_PROVEEDOR)'#10#9#9'AND ' +
'{Where}'#10 '(CLIENTES_DTOS_PROVEEDORES.ID_CLIENTE = :ID_CLIENTE))'#10' WHERE {W' +
'here}'#10
StatementType = stSQL StatementType = stSQL
ColumnMappings = < ColumnMappings = <
item item
@ -484,6 +541,10 @@ object srvArticulos: TsrvArticulos
DatasetField = 'DESCRIPCION' DatasetField = 'DESCRIPCION'
TableField = 'DESCRIPCION' TableField = 'DESCRIPCION'
end end
item
DatasetField = 'UNIDAD_MEDIDA'
TableField = 'UNIDAD_MEDIDA'
end
item item
DatasetField = 'FAMILIA' DatasetField = 'FAMILIA'
TableField = 'FAMILIA' TableField = 'FAMILIA'
@ -544,10 +605,6 @@ object srvArticulos: TsrvArticulos
DatasetField = 'ELIMINADO' DatasetField = 'ELIMINADO'
TableField = 'ELIMINADO' TableField = 'ELIMINADO'
end end
item
DatasetField = 'UNIDAD_MEDIDA'
TableField = 'UNIDAD_MEDIDA'
end
item item
DatasetField = 'FABRICANTE' DatasetField = 'FABRICANTE'
TableField = 'FABRICANTE' TableField = 'FABRICANTE'
@ -556,6 +613,14 @@ object srvArticulos: TsrvArticulos
DatasetField = 'REFERENCIA_FABR' DatasetField = 'REFERENCIA_FABR'
TableField = 'REFERENCIA_FABR' TableField = 'REFERENCIA_FABR'
end end
item
DatasetField = 'PARAM_MARGEN'
TableField = 'PARAM_MARGEN'
end
item
DatasetField = 'PRECIO_PVP_VENTA'
TableField = 'PRECIO_PVP_VENTA'
end
item item
DatasetField = 'TIEMPO' DatasetField = 'TIEMPO'
TableField = 'TIEMPO' TableField = 'TIEMPO'
@ -569,8 +634,8 @@ object srvArticulos: TsrvArticulos
TableField = 'MANO_OBRA' TableField = 'MANO_OBRA'
end end
item item
DatasetField = 'PRECIO_PVP' DatasetField = 'PRECIO_PVP_TOTAL'
TableField = 'PRECIO_PVP' TableField = 'PRECIO_PVP_TOTAL'
end> end>
end> end>
Name = 'ArticulosParaCliente' Name = 'ArticulosParaCliente'
@ -700,6 +765,16 @@ object srvArticulos: TsrvArticulos
Size = 255 Size = 255
DictionaryEntry = 'Articulos_REFERENCIA_FABR' DictionaryEntry = 'Articulos_REFERENCIA_FABR'
end end
item
Name = 'PARAM_MARGEN'
DataType = datFloat
end
item
Name = 'PRECIO_PVP_VENTA'
DataType = datCurrency
DisplayLabel = 'Precio P.V.P (Solo suministro)'
Alignment = taRightJustify
end
item item
Name = 'TIEMPO' Name = 'TIEMPO'
DataType = datInteger DataType = datInteger
@ -711,10 +786,14 @@ object srvArticulos: TsrvArticulos
item item
Name = 'MANO_OBRA' Name = 'MANO_OBRA'
DataType = datCurrency DataType = datCurrency
DisplayLabel = 'Mano de obra'
Alignment = taRightJustify
end end
item item
Name = 'PRECIO_PVP' Name = 'PRECIO_PVP_TOTAL'
DataType = datCurrency DataType = datCurrency
DisplayLabel = 'Precio P.V.P. (Total)'
Alignment = taRightJustify
end> end>
end> end>
JoinDataTables = <> JoinDataTables = <>
@ -808,6 +887,14 @@ object srvArticulos: TsrvArticulos
Name = 'REFERENCIA_FABR' Name = 'REFERENCIA_FABR'
Value = '' Value = ''
end end
item
Name = 'PARAM_MARGEN'
Value = ''
end
item
Name = 'PRECIO_PVP_VENTA'
Value = ''
end
item item
Name = 'TIEMPO' Name = 'TIEMPO'
Value = '' Value = ''
@ -821,7 +908,7 @@ object srvArticulos: TsrvArticulos
Value = '' Value = ''
end end
item item
Name = 'PRECIO_PVP' Name = 'PRECIO_PVP_TOTAL'
Value = '' Value = ''
end> end>
Statements = < Statements = <
@ -833,14 +920,15 @@ object srvArticulos: TsrvArticulos
'CION, UNIDAD_MEDIDA, FAMILIA, IMAGEN,'#10' COMISIONABLE, FECHA_A' + 'CION, UNIDAD_MEDIDA, FAMILIA, IMAGEN,'#10' COMISIONABLE, FECHA_A' +
'LTA, FECHA_MODIFICACION, USUARIO, '#10' PRECIO_COSTE, PRECIO_POR' + 'LTA, FECHA_MODIFICACION, USUARIO, '#10' PRECIO_COSTE, PRECIO_POR' +
'TE, DESCUENTO, ID_PROVEEDOR, '#10' PRECIO_NETO, REFERENCIA_PROV,' + 'TE, DESCUENTO, ID_PROVEEDOR, '#10' PRECIO_NETO, REFERENCIA_PROV,' +
' INVENTARIABLE, ELIMINADO, FABRICANTE,'#10' REFERENCIA_FABR, TIE' + ' INVENTARIABLE, ELIMINADO, FABRICANTE,'#10' REFERENCIA_FABR, PAR' +
'MPO, PARAM_TIEMPO, MANO_OBRA, PRECIO_PVP)'#10' VALUES'#10' (:ID, :ID' + 'AM_MARGEN, PRECIO_PVP_VENTA, TIEMPO, PARAM_TIEMPO,'#10' MANO_OBR' +
'_EMPRESA, :REFERENCIA, :DESCRIPCION, :UNIDAD_MEDIDA, :FAMILIA,'#10' ' + 'A, PRECIO_PVP_TOTAL)'#10' VALUES'#10' (:ID, :ID_EMPRESA, :REFERENCIA' +
' :IMAGEN, :COMISIONABLE, :FECHA_ALTA, :FECHA_MODIFICACION, '#10' ' + ', :DESCRIPCION, :UNIDAD_MEDIDA, :FAMILIA,'#10' :IMAGEN, :COMISIO' +
' :USUARIO, :PRECIO_COSTE, :PRECIO_PORTE, :DESCUENTO, '#10' :I' + 'NABLE, :FECHA_ALTA, :FECHA_MODIFICACION, '#10' :USUARIO, :PRECIO' +
'D_PROVEEDOR, :PRECIO_NETO, :REFERENCIA_PROV,'#10' :INVENTARIABLE' + '_COSTE, :PRECIO_PORTE, :DESCUENTO, '#10' :ID_PROVEEDOR, :PRECIO_' +
', :ELIMINADO, :FABRICANTE, :REFERENCIA_FABR, :TIEMPO, :PARAM_TIE' + 'NETO, :REFERENCIA_PROV,'#10' :INVENTARIABLE, :ELIMINADO, :FABRIC' +
'MPO,'#10' :MANO_OBRA, :PRECIO_PVP)'#10 'ANTE, :REFERENCIA_FABR, :PARAM_MARGEN,'#10' :PRECIO_PVP_VENTA, :' +
'TIEMPO, :PARAM_TIEMPO, :MANO_OBRA, :PRECIO_PVP_TOTAL)'#10
StatementType = stSQL StatementType = stSQL
ColumnMappings = <> ColumnMappings = <>
end> end>
@ -946,6 +1034,14 @@ object srvArticulos: TsrvArticulos
Name = 'REFERENCIA_FABR' Name = 'REFERENCIA_FABR'
Value = '' Value = ''
end end
item
Name = 'PARAM_MARGEN'
Value = ''
end
item
Name = 'PRECIO_PVP_VENTA'
Value = ''
end
item item
Name = 'TIEMPO' Name = 'TIEMPO'
Value = '' Value = ''
@ -959,7 +1055,7 @@ object srvArticulos: TsrvArticulos
Value = '' Value = ''
end end
item item
Name = 'PRECIO_PVP' Name = 'PRECIO_PVP_TOTAL'
Value = '' Value = ''
end end
item item
@ -981,9 +1077,11 @@ object srvArticulos: TsrvArticulos
'OVEEDOR = :ID_PROVEEDOR, '#10' PRECIO_NETO = :PRECIO_NETO,'#10' IN' + 'OVEEDOR = :ID_PROVEEDOR, '#10' PRECIO_NETO = :PRECIO_NETO,'#10' IN' +
'VENTARIABLE = :INVENTARIABLE,'#10' REFERENCIA_PROV = :REFERENCIA_' + 'VENTARIABLE = :INVENTARIABLE,'#10' REFERENCIA_PROV = :REFERENCIA_' +
'PROV,'#10' ELIMINADO = :ELIMINADO,'#10' FABRICANTE = :FABRICANTE,'#10 + 'PROV,'#10' ELIMINADO = :ELIMINADO,'#10' FABRICANTE = :FABRICANTE,'#10 +
' REFERENCIA_FABR = :REFERENCIA_FABR,'#10' TIEMPO = :TIEMPO,'#10' ' + ' REFERENCIA_FABR = :REFERENCIA_FABR,'#10' PARAM_MARGEN = :PARA' +
' PARAM_TIEMPO = :PARAM_TIEMPO,'#10' MANO_OBRA = :MANO_OBRA,'#10' ' + 'M_MARGEN,'#10' PRECIO_PVP_VENTA = :PRECIO_PVP_VENTA,'#10' TIEMPO =' +
'PRECIO_PVP = :PRECIO_PVP'#10' WHERE'#10' (ID = :OLD_ID)'#10 ' :TIEMPO,'#10' PARAM_TIEMPO = :PARAM_TIEMPO,'#10' MANO_OBRA = :MAN' +
'O_OBRA,'#10' PRECIO_PVP_TOTAL = :PRECIO_PVP_TOTAL'#10' WHERE'#10' (ID' +
' = :OLD_ID)'#10
StatementType = stSQL StatementType = stSQL
ColumnMappings = <> ColumnMappings = <>
end> end>

4
Source/Modulos/Articulos/Servidor/srvArticulos_Impl.pas
View File

@ -39,7 +39,8 @@ implementation
{$R *.dfm} {$R *.dfm}
uses uses
{Generated:} FactuGES_Invk, uDataModuleServer, Variants, uStringsUtils, {Generated:} FactuGES_Invk, uDataModuleServer, Variants, uStringsUtils,
uDatabaseUtils, schArticulosClient_Intf, uRestriccionesUsuarioUtils, dialogs; uDatabaseUtils, schArticulosClient_Intf, uRestriccionesUsuarioUtils, dialogs,
uBizArticulosServer;
procedure Create_srvArticulos(out anInstance : IUnknown); procedure Create_srvArticulos(out anInstance : IUnknown);
begin begin
@ -63,6 +64,7 @@ end;
procedure TsrvArticulos.DARemoteServiceCreate(Sender: TObject); procedure TsrvArticulos.DARemoteServiceCreate(Sender: TObject);
begin begin
SessionManager := dmServer.SessionManager; SessionManager := dmServer.SessionManager;
bpArticulos.BusinessRulesID := BIZ_SERVER_ARTICULOS;
end; end;
function TsrvArticulos.DarListaProveedoresConArticulos(Const IDEmpresa: Integer): Binary; function TsrvArticulos.DarListaProveedoresConArticulos(Const IDEmpresa: Integer): Binary;

291
Source/Modulos/Articulos/Views/uViewArticulo.dfm
View File

@ -1,6 +1,6 @@
inherited frViewArticulo: TfrViewArticulo inherited frViewArticulo: TfrViewArticulo
Width = 897 Width = 1042
Height = 427 Height = 510
Align = alClient Align = alClient
OnCreate = CustomViewCreate OnCreate = CustomViewCreate
OnDestroy = CustomViewDestroy OnDestroy = CustomViewDestroy
@ -10,20 +10,20 @@ inherited frViewArticulo: TfrViewArticulo
object dxLayoutControlArticulo: TdxLayoutControl object dxLayoutControlArticulo: TdxLayoutControl
Left = 0 Left = 0
Top = 0 Top = 0
Width = 897 Width = 1042
Height = 425 Height = 507
Align = alTop Align = alTop
ParentBackground = True ParentBackground = True
TabOrder = 0 TabOrder = 0
TabStop = False TabStop = False
AutoContentSizes = [acsWidth] AutoContentSizes = [acsWidth]
ExplicitWidth = 451 ExplicitWidth = 954
DesignSize = ( DesignSize = (
897 1042
425) 507)
object PngSpeedButton2: TPngSpeedButton object PngSpeedButton2: TPngSpeedButton
Left = 405 Left = 529
Top = 388 Top = 445
Width = 23 Width = 23
Height = 22 Height = 22
Action = actAnadir Action = actAnadir
@ -49,15 +49,15 @@ inherited frViewArticulo: TfrViewArticulo
PngOptions = [pngBlendOnDisabled, pngGrayscaleOnDisabled] PngOptions = [pngBlendOnDisabled, pngGrayscaleOnDisabled]
end end
object PngSpeedButton1: TPngSpeedButton object PngSpeedButton1: TPngSpeedButton
Left = 405 Left = 529
Top = 416 Top = 473
Width = 23 Width = 23
Height = 22 Height = 22
Action = actEliminar Action = actEliminar
PngOptions = [pngBlendOnDisabled, pngGrayscaleOnDisabled] PngOptions = [pngBlendOnDisabled, pngGrayscaleOnDisabled]
end end
object eReferencia: TcxDBTextEdit object eReferencia: TcxDBTextEdit
Left = 122 Left = 132
Top = 55 Top = 55
Anchors = [akLeft, akTop, akRight] Anchors = [akLeft, akTop, akRight]
DataBinding.DataField = 'REFERENCIA' DataBinding.DataField = 'REFERENCIA'
@ -75,10 +75,10 @@ inherited frViewArticulo: TfrViewArticulo
StyleHot.LookAndFeel.Kind = lfStandard StyleHot.LookAndFeel.Kind = lfStandard
StyleHot.LookAndFeel.NativeStyle = True StyleHot.LookAndFeel.NativeStyle = True
TabOrder = 1 TabOrder = 1
Width = 171 Width = 200
end end
object eDescripcion: TcxDBTextEdit object eDescripcion: TcxDBTextEdit
Left = 122 Left = 132
Top = 28 Top = 28
DataBinding.DataField = 'DESCRIPCION' DataBinding.DataField = 'DESCRIPCION'
DataBinding.DataSource = dsViewArticulo DataBinding.DataSource = dsViewArticulo
@ -95,10 +95,10 @@ inherited frViewArticulo: TfrViewArticulo
StyleHot.LookAndFeel.Kind = lfStandard StyleHot.LookAndFeel.Kind = lfStandard
StyleHot.LookAndFeel.NativeStyle = True StyleHot.LookAndFeel.NativeStyle = True
TabOrder = 0 TabOrder = 0
Width = 171 Width = 200
end end
object eNoComisionable: TcxDBCheckBox object eNoComisionable: TcxDBCheckBox
Left = 122 Left = 132
Top = 163 Top = 163
Caption = 'Art'#237'culo no comisionable' Caption = 'Art'#237'culo no comisionable'
DataBinding.DataField = 'COMISIONABLE' DataBinding.DataField = 'COMISIONABLE'
@ -119,11 +119,11 @@ inherited frViewArticulo: TfrViewArticulo
StyleHot.LookAndFeel.Kind = lfStandard StyleHot.LookAndFeel.Kind = lfStandard
StyleHot.LookAndFeel.NativeStyle = True StyleHot.LookAndFeel.NativeStyle = True
TabOrder = 5 TabOrder = 5
Width = 171 Width = 200
end end
object eImagen: TcxImage object eImagen: TcxImage
Left = 28 Left = 28
Top = 388 Top = 445
Properties.GraphicClassName = 'TJPEGImage' Properties.GraphicClassName = 'TJPEGImage'
Properties.ImmediatePost = True Properties.ImmediatePost = True
Properties.PopupMenuLayout.MenuItems = [] Properties.PopupMenuLayout.MenuItems = []
@ -139,12 +139,12 @@ inherited frViewArticulo: TfrViewArticulo
StyleFocused.LookAndFeel.NativeStyle = True StyleFocused.LookAndFeel.NativeStyle = True
StyleHot.LookAndFeel.Kind = lfStandard StyleHot.LookAndFeel.Kind = lfStandard
StyleHot.LookAndFeel.NativeStyle = True StyleHot.LookAndFeel.NativeStyle = True
TabOrder = 12 TabOrder = 14
Height = 98 Height = 98
Width = 236 Width = 200
end end
object cbFamilia: TcxDBComboBox object cbFamilia: TcxDBComboBox
Left = 122 Left = 132
Top = 82 Top = 82
DataBinding.DataField = 'FAMILIA' DataBinding.DataField = 'FAMILIA'
DataBinding.DataSource = dsViewArticulo DataBinding.DataSource = dsViewArticulo
@ -165,10 +165,10 @@ inherited frViewArticulo: TfrViewArticulo
StyleHot.LookAndFeel.Kind = lfStandard StyleHot.LookAndFeel.Kind = lfStandard
StyleHot.LookAndFeel.NativeStyle = True StyleHot.LookAndFeel.NativeStyle = True
TabOrder = 2 TabOrder = 2
Width = 171 Width = 200
end end
inline frViewDatosYSeleccionProveedor1: TfrViewDatosYSeleccionProveedor inline frViewDatosYSeleccionProveedor1: TfrViewDatosYSeleccionProveedor
Left = 458 Left = 582
Top = 28 Top = 28
Width = 167 Width = 167
Height = 202 Height = 202
@ -178,14 +178,14 @@ inherited frViewArticulo: TfrViewArticulo
Font.Name = 'Tahoma' Font.Name = 'Tahoma'
Font.Style = [] Font.Style = []
ParentFont = False ParentFont = False
TabOrder = 13 TabOrder = 15
ReadOnly = False ReadOnly = False
ExplicitLeft = 458 ExplicitLeft = 582
ExplicitTop = 28 ExplicitTop = 28
ExplicitWidth = 167 ExplicitWidth = 167
inherited dxLayoutControl1: TdxLayoutControl inherited dxLayoutControl1: TdxLayoutControl
Width = 167 Width = 167
ExplicitWidth = 526 ExplicitWidth = 167
inherited edtlNombre: TcxDBTextEdit inherited edtlNombre: TcxDBTextEdit
ExplicitWidth = 221 ExplicitWidth = 221
Width = 221 Width = 221
@ -207,17 +207,17 @@ inherited frViewArticulo: TfrViewArticulo
Width = 221 Width = 221
end end
inherited edtCodigoPostal: TcxDBTextEdit inherited edtCodigoPostal: TcxDBTextEdit
Left = 308 Left = 329
ExplicitLeft = 308 ExplicitLeft = 329
end end
inherited Button3: TBitBtn inherited Button3: TBitBtn
Left = 192 Left = 213
ExplicitLeft = 192 ExplicitLeft = 213
end end
end end
end end
object eReferenciaProv: TcxDBTextEdit object eReferenciaProv: TcxDBTextEdit
Left = 539 Left = 663
Top = 266 Top = 266
Anchors = [akLeft, akTop, akRight] Anchors = [akLeft, akTop, akRight]
DataBinding.DataField = 'REFERENCIA_PROV' DataBinding.DataField = 'REFERENCIA_PROV'
@ -230,11 +230,11 @@ inherited frViewArticulo: TfrViewArticulo
StyleDisabled.LookAndFeel.NativeStyle = True StyleDisabled.LookAndFeel.NativeStyle = True
StyleFocused.LookAndFeel.NativeStyle = True StyleFocused.LookAndFeel.NativeStyle = True
StyleHot.LookAndFeel.NativeStyle = True StyleHot.LookAndFeel.NativeStyle = True
TabOrder = 14 TabOrder = 16
Width = 86 Width = 86
end end
object ePrecioCoste: TcxDBCurrencyEdit object ePrecioCoste: TcxDBCurrencyEdit
Left = 539 Left = 663
Top = 293 Top = 293
DataBinding.DataField = 'PRECIO_COSTE' DataBinding.DataField = 'PRECIO_COSTE'
DataBinding.DataSource = dsViewArticulo DataBinding.DataSource = dsViewArticulo
@ -250,15 +250,17 @@ inherited frViewArticulo: TfrViewArticulo
StyleFocused.LookAndFeel.NativeStyle = True StyleFocused.LookAndFeel.NativeStyle = True
StyleHot.LookAndFeel.Kind = lfStandard StyleHot.LookAndFeel.Kind = lfStandard
StyleHot.LookAndFeel.NativeStyle = True StyleHot.LookAndFeel.NativeStyle = True
TabOrder = 15 TabOrder = 17
Width = 254 Width = 340
end end
object eDescuento: TcxDBSpinEdit object eDescuento: TcxDBSpinEdit
Left = 539 Left = 663
Top = 320 Top = 320
DataBinding.DataField = 'DESCUENTO' DataBinding.DataField = 'DESCUENTO'
DataBinding.DataSource = dsViewArticulo DataBinding.DataSource = dsViewArticulo
Properties.Alignment.Horz = taRightJustify Properties.Alignment.Horz = taRightJustify
Properties.AssignedValues.EditFormat = True
Properties.DisplayFormat = ',0.00 %;-,0.00 %'
Properties.ImmediatePost = True Properties.ImmediatePost = True
Properties.MaxValue = 100.000000000000000000 Properties.MaxValue = 100.000000000000000000
Style.BorderColor = clWindowFrame Style.BorderColor = clWindowFrame
@ -273,11 +275,11 @@ inherited frViewArticulo: TfrViewArticulo
StyleFocused.LookAndFeel.NativeStyle = True StyleFocused.LookAndFeel.NativeStyle = True
StyleHot.LookAndFeel.Kind = lfStandard StyleHot.LookAndFeel.Kind = lfStandard
StyleHot.LookAndFeel.NativeStyle = True StyleHot.LookAndFeel.NativeStyle = True
TabOrder = 16 TabOrder = 18
Width = 313 Width = 340
end end
object ePrecioNeto: TcxDBCurrencyEdit object ePrecioNeto: TcxDBCurrencyEdit
Left = 539 Left = 663
Top = 347 Top = 347
DataBinding.DataField = 'PRECIO_NETO' DataBinding.DataField = 'PRECIO_NETO'
DataBinding.DataSource = dsViewArticulo DataBinding.DataSource = dsViewArticulo
@ -298,11 +300,11 @@ inherited frViewArticulo: TfrViewArticulo
StyleFocused.TextColor = clWindowText StyleFocused.TextColor = clWindowText
StyleHot.LookAndFeel.Kind = lfStandard StyleHot.LookAndFeel.Kind = lfStandard
StyleHot.LookAndFeel.NativeStyle = True StyleHot.LookAndFeel.NativeStyle = True
TabOrder = 17 TabOrder = 19
Width = 86 Width = 340
end end
object ePrecioPorte: TcxDBCurrencyEdit object ePrecioPorte: TcxDBCurrencyEdit
Left = 539 Left = 663
Top = 374 Top = 374
DataBinding.DataField = 'PRECIO_PORTE' DataBinding.DataField = 'PRECIO_PORTE'
DataBinding.DataSource = dsViewArticulo DataBinding.DataSource = dsViewArticulo
@ -318,11 +320,11 @@ inherited frViewArticulo: TfrViewArticulo
StyleFocused.LookAndFeel.NativeStyle = True StyleFocused.LookAndFeel.NativeStyle = True
StyleHot.LookAndFeel.Kind = lfStandard StyleHot.LookAndFeel.Kind = lfStandard
StyleHot.LookAndFeel.NativeStyle = True StyleHot.LookAndFeel.NativeStyle = True
TabOrder = 18 TabOrder = 20
Width = 86 Width = 86
end end
object cbNoInventariable: TcxDBCheckBox object cbNoInventariable: TcxDBCheckBox
Left = 122 Left = 132
Top = 136 Top = 136
Caption = 'Art'#237'culo no inventariable' Caption = 'Art'#237'culo no inventariable'
DataBinding.DataField = 'INVENTARIABLE' DataBinding.DataField = 'INVENTARIABLE'
@ -343,10 +345,10 @@ inherited frViewArticulo: TfrViewArticulo
StyleHot.LookAndFeel.Kind = lfStandard StyleHot.LookAndFeel.Kind = lfStandard
StyleHot.LookAndFeel.NativeStyle = True StyleHot.LookAndFeel.NativeStyle = True
TabOrder = 4 TabOrder = 4
Width = 171 Width = 200
end end
object cbUnidadMedida: TcxDBComboBox object cbUnidadMedida: TcxDBComboBox
Left = 122 Left = 132
Top = 109 Top = 109
DataBinding.DataField = 'UNIDAD_MEDIDA' DataBinding.DataField = 'UNIDAD_MEDIDA'
DataBinding.DataSource = dsViewArticulo DataBinding.DataSource = dsViewArticulo
@ -367,11 +369,11 @@ inherited frViewArticulo: TfrViewArticulo
StyleHot.LookAndFeel.Kind = lfStandard StyleHot.LookAndFeel.Kind = lfStandard
StyleHot.LookAndFeel.NativeStyle = True StyleHot.LookAndFeel.NativeStyle = True
TabOrder = 3 TabOrder = 3
Width = 171 Width = 200
end end
object cbFabricante: TcxDBComboBox object cbFabricante: TcxDBComboBox
Left = 122 Left = 132
Top = 304 Top = 361
DataBinding.DataField = 'FABRICANTE' DataBinding.DataField = 'FABRICANTE'
DataBinding.DataSource = dsViewArticulo DataBinding.DataSource = dsViewArticulo
Properties.DropDownRows = 16 Properties.DropDownRows = 16
@ -390,12 +392,12 @@ inherited frViewArticulo: TfrViewArticulo
StyleFocused.LookAndFeel.NativeStyle = True StyleFocused.LookAndFeel.NativeStyle = True
StyleHot.LookAndFeel.Kind = lfStandard StyleHot.LookAndFeel.Kind = lfStandard
StyleHot.LookAndFeel.NativeStyle = True StyleHot.LookAndFeel.NativeStyle = True
TabOrder = 10 TabOrder = 12
Width = 171 Width = 200
end end
object eReferenciaFabr: TcxDBTextEdit object eReferenciaFabr: TcxDBTextEdit
Left = 122 Left = 132
Top = 331 Top = 388
Anchors = [akLeft, akTop, akRight] Anchors = [akLeft, akTop, akRight]
DataBinding.DataField = 'REFERENCIA_FABR' DataBinding.DataField = 'REFERENCIA_FABR'
DataBinding.DataSource = dsViewArticulo DataBinding.DataSource = dsViewArticulo
@ -412,35 +414,12 @@ inherited frViewArticulo: TfrViewArticulo
StyleFocused.LookAndFeel.NativeStyle = True StyleFocused.LookAndFeel.NativeStyle = True
StyleHot.LookAndFeel.Kind = lfStandard StyleHot.LookAndFeel.Kind = lfStandard
StyleHot.LookAndFeel.NativeStyle = True StyleHot.LookAndFeel.NativeStyle = True
TabOrder = 11 TabOrder = 13
Width = 171 Width = 171
end end
object eParamTiempo: TcxDBSpinEdit
Left = 322
Top = 220
DataBinding.DataField = 'PARAM_TIEMPO'
DataBinding.DataSource = dsViewArticulo
Properties.Alignment.Horz = taRightJustify
Properties.ImmediatePost = True
Properties.MaxValue = 100.000000000000000000
Style.BorderColor = clWindowFrame
Style.BorderStyle = ebs3D
Style.HotTrack = False
Style.LookAndFeel.Kind = lfStandard
Style.LookAndFeel.NativeStyle = True
Style.ButtonStyle = bts3D
StyleDisabled.LookAndFeel.Kind = lfStandard
StyleDisabled.LookAndFeel.NativeStyle = True
StyleFocused.LookAndFeel.Kind = lfStandard
StyleFocused.LookAndFeel.NativeStyle = True
StyleHot.LookAndFeel.Kind = lfStandard
StyleHot.LookAndFeel.NativeStyle = True
TabOrder = 8
Width = 100
end
object eTiempo: TcxDBSpinEdit object eTiempo: TcxDBSpinEdit
Left = 122 Left = 132
Top = 220 Top = 277
DataBinding.DataField = 'TIEMPO' DataBinding.DataField = 'TIEMPO'
DataBinding.DataSource = dsViewArticulo DataBinding.DataSource = dsViewArticulo
Properties.Alignment.Horz = taRightJustify Properties.Alignment.Horz = taRightJustify
@ -458,16 +437,69 @@ inherited frViewArticulo: TfrViewArticulo
StyleFocused.LookAndFeel.NativeStyle = True StyleFocused.LookAndFeel.NativeStyle = True
StyleHot.LookAndFeel.Kind = lfStandard StyleHot.LookAndFeel.Kind = lfStandard
StyleHot.LookAndFeel.NativeStyle = True StyleHot.LookAndFeel.NativeStyle = True
TabOrder = 6 TabOrder = 8
Width = 50 Width = 60
end end
object ePrecioPvp: TcxDBSpinEdit object ePrecioPvpTotal: TcxDBSpinEdit
Left = 322 Left = 132
Top = 247 Top = 304
DataBinding.DataField = 'PRECIO_PVP' DataBinding.DataField = 'PRECIO_PVP_TOTAL'
DataBinding.DataSource = dsViewArticulo DataBinding.DataSource = dsViewArticulo
Enabled = False Enabled = False
Properties.Alignment.Horz = taRightJustify Properties.Alignment.Horz = taRightJustify
Properties.EditFormat = ',0.00 '#8364';-,0.00 '#8364
Properties.ImmediatePost = True
Properties.MaxValue = 100.000000000000000000
Properties.SpinButtons.Visible = False
Style.BorderColor = clWindowFrame
Style.BorderStyle = ebs3D
Style.HotTrack = False
Style.LookAndFeel.Kind = lfStandard
Style.LookAndFeel.NativeStyle = True
Style.ButtonStyle = bts3D
StyleDisabled.LookAndFeel.Kind = lfStandard
StyleDisabled.LookAndFeel.NativeStyle = True
StyleFocused.LookAndFeel.Kind = lfStandard
StyleFocused.LookAndFeel.NativeStyle = True
StyleHot.LookAndFeel.Kind = lfStandard
StyleHot.LookAndFeel.NativeStyle = True
TabOrder = 11
Width = 420
end
object eManoObra: TcxDBSpinEdit
Left = 440
Top = 277
DataBinding.DataField = 'MANO_OBRA'
DataBinding.DataSource = dsViewArticulo
Enabled = False
Properties.Alignment.Horz = taRightJustify
Properties.DisplayFormat = ',0.00 '#8364';-,0.00 '#8364
Properties.ImmediatePost = True
Properties.MaxValue = 100.000000000000000000
Properties.SpinButtons.Visible = False
Style.BorderColor = clWindowFrame
Style.BorderStyle = ebs3D
Style.HotTrack = False
Style.LookAndFeel.Kind = lfStandard
Style.LookAndFeel.NativeStyle = True
Style.ButtonStyle = bts3D
StyleDisabled.LookAndFeel.Kind = lfStandard
StyleDisabled.LookAndFeel.NativeStyle = True
StyleFocused.LookAndFeel.Kind = lfStandard
StyleFocused.LookAndFeel.NativeStyle = True
StyleHot.LookAndFeel.Kind = lfStandard
StyleHot.LookAndFeel.NativeStyle = True
TabOrder = 10
Width = 100
end
object eParamMargen: TcxDBSpinEdit
Left = 132
Top = 220
DataBinding.DataField = 'PARAM_MARGEN'
DataBinding.DataSource = dsViewArticulo
Properties.Alignment.Horz = taRightJustify
Properties.AssignedValues.EditFormat = True
Properties.DisplayFormat = ',0.00 %;-,0.00 %'
Properties.ImmediatePost = True Properties.ImmediatePost = True
Properties.MaxValue = 100.000000000000000000 Properties.MaxValue = 100.000000000000000000
Style.BorderColor = clWindowFrame Style.BorderColor = clWindowFrame
@ -482,18 +514,20 @@ inherited frViewArticulo: TfrViewArticulo
StyleFocused.LookAndFeel.NativeStyle = True StyleFocused.LookAndFeel.NativeStyle = True
StyleHot.LookAndFeel.Kind = lfStandard StyleHot.LookAndFeel.Kind = lfStandard
StyleHot.LookAndFeel.NativeStyle = True StyleHot.LookAndFeel.NativeStyle = True
TabOrder = 9 TabOrder = 6
Width = 100 Width = 100
end end
object eManoObra: TcxDBSpinEdit object ePRECIO_PVP_VENTA: TcxDBSpinEdit
Left = 122 Left = 389
Top = 247 Top = 220
DataBinding.DataField = 'MANO_OBRA' DataBinding.DataField = 'PRECIO_PVP_VENTA'
DataBinding.DataSource = dsViewArticulo DataBinding.DataSource = dsViewArticulo
Enabled = False Enabled = False
Properties.Alignment.Horz = taRightJustify Properties.Alignment.Horz = taRightJustify
Properties.DisplayFormat = ',0.00 '#8364';-,0.00 '#8364
Properties.ImmediatePost = True Properties.ImmediatePost = True
Properties.MaxValue = 100.000000000000000000 Properties.MaxValue = 100.000000000000000000
Properties.SpinButtons.Visible = False
Style.BorderColor = clWindowFrame Style.BorderColor = clWindowFrame
Style.BorderStyle = ebs3D Style.BorderStyle = ebs3D
Style.HotTrack = False Style.HotTrack = False
@ -507,6 +541,26 @@ inherited frViewArticulo: TfrViewArticulo
StyleHot.LookAndFeel.Kind = lfStandard StyleHot.LookAndFeel.Kind = lfStandard
StyleHot.LookAndFeel.NativeStyle = True StyleHot.LookAndFeel.NativeStyle = True
TabOrder = 7 TabOrder = 7
Width = 163
end
object eParamTiempo: TcxDBCurrencyEdit
Left = 259
Top = 277
DataBinding.DataField = 'PARAM_TIEMPO'
DataBinding.DataSource = dsViewArticulo
Properties.Alignment.Horz = taRightJustify
Style.BorderColor = clWindowFrame
Style.BorderStyle = ebs3D
Style.HotTrack = False
Style.LookAndFeel.Kind = lfStandard
Style.LookAndFeel.NativeStyle = True
StyleDisabled.LookAndFeel.Kind = lfStandard
StyleDisabled.LookAndFeel.NativeStyle = True
StyleFocused.LookAndFeel.Kind = lfStandard
StyleFocused.LookAndFeel.NativeStyle = True
StyleHot.LookAndFeel.Kind = lfStandard
StyleHot.LookAndFeel.NativeStyle = True
TabOrder = 9
Width = 100 Width = 100
end end
object dxLayoutControlArticuloGroup_Root: TdxLayoutGroup object dxLayoutControlArticuloGroup_Root: TdxLayoutGroup
@ -522,7 +576,6 @@ inherited frViewArticulo: TfrViewArticulo
end end
object dxLayoutControlArticuloGroup14: TdxLayoutGroup object dxLayoutControlArticuloGroup14: TdxLayoutGroup
AutoAligns = [] AutoAligns = []
AlignHorz = ahClient
Caption = 'New Group' Caption = 'New Group'
ShowCaption = False ShowCaption = False
Hidden = True Hidden = True
@ -585,38 +638,53 @@ inherited frViewArticulo: TfrViewArticulo
end end
end end
end end
object dxLayoutControlArticuloGroup8: TdxLayoutGroup object dxLayoutControlArticuloGroup13: TdxLayoutGroup
Caption = 'C'#225'lculo precio PVP' Caption = 'Precio P.V.P (Solo suministro)'
LayoutDirection = ldHorizontal LayoutDirection = ldHorizontal
object dxLayoutControlArticuloGroup15: TdxLayoutGroup object dxLayoutControlArticuloItem22: TdxLayoutItem
Caption = 'Margen coste (%):'
Control = eParamMargen
ControlOptions.ShowBorder = False
end
object dxLayoutControlArticuloItem23: TdxLayoutItem
AutoAligns = [aaVertical]
AlignHorz = ahClient
Caption = 'Precio Venta (Solo suministro):'
Control = ePRECIO_PVP_VENTA
ControlOptions.ShowBorder = False
end
end
object dxLayoutControlArticuloGroup8: TdxLayoutGroup
AutoAligns = [aaVertical]
AlignHorz = ahClient
Caption = 'Precio P.V.P (Total)'
object dxLayoutControlArticuloGroup16: TdxLayoutGroup
ShowCaption = False ShowCaption = False
Hidden = True Hidden = True
LayoutDirection = ldHorizontal
ShowBorder = False ShowBorder = False
object dxLayoutControlArticuloItem13: TdxLayoutItem object dxLayoutControlArticuloItem13: TdxLayoutItem
Caption = 'Tiempo:' Caption = 'Tiempo min.:'
Control = eTiempo Control = eTiempo
ControlOptions.ShowBorder = False ControlOptions.ShowBorder = False
end end
object dxLayoutControlArticuloItem24: TdxLayoutItem
Caption = 'Precio min.:'
Control = eParamTiempo
ControlOptions.ShowBorder = False
end
object dxLayoutControlArticuloItem21: TdxLayoutItem object dxLayoutControlArticuloItem21: TdxLayoutItem
AutoAligns = [aaVertical]
AlignHorz = ahClient
Caption = 'Mano de obra:' Caption = 'Mano de obra:'
Control = eManoObra Control = eManoObra
ControlOptions.ShowBorder = False ControlOptions.ShowBorder = False
end end
end end
object dxLayoutControlArticuloGroup9: TdxLayoutGroup object dxLayoutControlArticuloItem20: TdxLayoutItem
ShowCaption = False Caption = 'Precio Venta (Total):'
Hidden = True Control = ePrecioPvpTotal
ShowBorder = False ControlOptions.ShowBorder = False
object dxLayoutControlArticuloItem12: TdxLayoutItem
Caption = 'Parametro tiempo:'
Control = eParamTiempo
ControlOptions.ShowBorder = False
end
object dxLayoutControlArticuloItem20: TdxLayoutItem
Caption = 'Precio PVP:'
Control = ePrecioPvp
ControlOptions.ShowBorder = False
end
end end
end end
object dxLayoutControlArticuloGroup10: TdxLayoutGroup object dxLayoutControlArticuloGroup10: TdxLayoutGroup
@ -691,7 +759,7 @@ inherited frViewArticulo: TfrViewArticulo
ControlOptions.ShowBorder = False ControlOptions.ShowBorder = False
end end
object dxLayoutControlArticuloItem16: TdxLayoutItem object dxLayoutControlArticuloItem16: TdxLayoutItem
Caption = 'Precio:' Caption = 'Precio material:'
Control = ePrecioCoste Control = ePrecioCoste
ControlOptions.ShowBorder = False ControlOptions.ShowBorder = False
end end
@ -701,12 +769,13 @@ inherited frViewArticulo: TfrViewArticulo
ControlOptions.ShowBorder = False ControlOptions.ShowBorder = False
end end
object dxLayoutControlArticuloItem18: TdxLayoutItem object dxLayoutControlArticuloItem18: TdxLayoutItem
Caption = 'Precio neto:' Caption = 'Precio coste:'
Control = ePrecioNeto Control = ePrecioNeto
ControlOptions.ShowBorder = False ControlOptions.ShowBorder = False
end end
object dxLayoutControlArticuloItem19: TdxLayoutItem object dxLayoutControlArticuloItem19: TdxLayoutItem
Caption = 'Coste de envio:' Caption = 'Coste de envio:'
Visible = False
Control = ePrecioPorte Control = ePrecioPorte
ControlOptions.ShowBorder = False ControlOptions.ShowBorder = False
end end

14
Source/Modulos/Articulos/Views/uViewArticulo.pas
View File

@ -85,16 +85,20 @@ type
dxLayoutControlArticuloGroup14: TdxLayoutGroup; dxLayoutControlArticuloGroup14: TdxLayoutGroup;
dxLayoutControlArticuloGroup7: TdxLayoutGroup; dxLayoutControlArticuloGroup7: TdxLayoutGroup;
dxLayoutControlArticuloGroup8: TdxLayoutGroup; dxLayoutControlArticuloGroup8: TdxLayoutGroup;
dxLayoutControlArticuloItem12: TdxLayoutItem;
eParamTiempo: TcxDBSpinEdit;
dxLayoutControlArticuloItem13: TdxLayoutItem; dxLayoutControlArticuloItem13: TdxLayoutItem;
eTiempo: TcxDBSpinEdit; eTiempo: TcxDBSpinEdit;
dxLayoutControlArticuloItem20: TdxLayoutItem; dxLayoutControlArticuloItem20: TdxLayoutItem;
ePrecioPvp: TcxDBSpinEdit; ePrecioPvpTotal: TcxDBSpinEdit;
dxLayoutControlArticuloItem21: TdxLayoutItem; dxLayoutControlArticuloItem21: TdxLayoutItem;
eManoObra: TcxDBSpinEdit; eManoObra: TcxDBSpinEdit;
dxLayoutControlArticuloGroup9: TdxLayoutGroup; dxLayoutControlArticuloItem22: TdxLayoutItem;
dxLayoutControlArticuloGroup15: TdxLayoutGroup; eParamMargen: TcxDBSpinEdit;
dxLayoutControlArticuloItem23: TdxLayoutItem;
ePRECIO_PVP_VENTA: TcxDBSpinEdit;
dxLayoutControlArticuloGroup16: TdxLayoutGroup;
dxLayoutControlArticuloGroup13: TdxLayoutGroup;
dxLayoutControlArticuloItem24: TdxLayoutItem;
eParamTiempo: TcxDBCurrencyEdit;
procedure actEliminarExecute(Sender: TObject); procedure actEliminarExecute(Sender: TObject);
procedure actAnadirExecute(Sender: TObject); procedure actAnadirExecute(Sender: TObject);
procedure cbFamiliaPropertiesInitPopup(Sender: TObject); procedure cbFamiliaPropertiesInitPopup(Sender: TObject);

45
Source/Modulos/Articulos/Views/uViewArticulos.dfm
View File

@ -128,7 +128,7 @@ inherited frViewArticulos: TfrViewArticulos
Width = 60 Width = 60
end end
object cxGridViewPRECIO_COSTE: TcxGridDBColumn object cxGridViewPRECIO_COSTE: TcxGridDBColumn
Caption = 'Precio coste' Caption = 'Precio material'
DataBinding.FieldName = 'PRECIO_COSTE' DataBinding.FieldName = 'PRECIO_COSTE'
PropertiesClassName = 'TcxCurrencyEditProperties' PropertiesClassName = 'TcxCurrencyEditProperties'
Properties.Alignment.Horz = taRightJustify Properties.Alignment.Horz = taRightJustify
@ -147,7 +147,7 @@ inherited frViewArticulos: TfrViewArticulos
HeaderAlignmentHorz = taRightJustify HeaderAlignmentHorz = taRightJustify
end end
object cxGridViewPRECIO_NETO: TcxGridDBColumn object cxGridViewPRECIO_NETO: TcxGridDBColumn
Caption = 'Precio neto' Caption = 'Precio coste'
DataBinding.FieldName = 'PRECIO_NETO' DataBinding.FieldName = 'PRECIO_NETO'
PropertiesClassName = 'TcxCurrencyEditProperties' PropertiesClassName = 'TcxCurrencyEditProperties'
Properties.Alignment.Horz = taRightJustify Properties.Alignment.Horz = taRightJustify
@ -160,13 +160,23 @@ inherited frViewArticulos: TfrViewArticulos
DataBinding.FieldName = 'PRECIO_PORTE' DataBinding.FieldName = 'PRECIO_PORTE'
PropertiesClassName = 'TcxCurrencyEditProperties' PropertiesClassName = 'TcxCurrencyEditProperties'
Properties.Alignment.Horz = taRightJustify Properties.Alignment.Horz = taRightJustify
Visible = False
BestFitMaxWidth = 60 BestFitMaxWidth = 60
FooterAlignmentHorz = taRightJustify FooterAlignmentHorz = taRightJustify
HeaderAlignmentHorz = taRightJustify HeaderAlignmentHorz = taRightJustify
VisibleForCustomization = False
end end
object cxGridViewPRECIO_PVP: TcxGridDBColumn object cxGridViewMARGEN: TcxGridDBColumn
Caption = 'Precio P.V.P' Caption = 'Margen'
DataBinding.FieldName = 'PRECIO_PVP' DataBinding.FieldName = 'PARAM_MARGEN'
PropertiesClassName = 'TcxSpinEditProperties'
Properties.Alignment.Horz = taRightJustify
Properties.DisplayFormat = ',0.00 %;-,0.00 %'
HeaderAlignmentHorz = taRightJustify
end
object cxGridViewPRECIO_PVP_VENTA: TcxGridDBColumn
Caption = 'Precio P.V.P (solo suministro)'
DataBinding.FieldName = 'PRECIO_PVP_VENTA'
PropertiesClassName = 'TcxCurrencyEditProperties' PropertiesClassName = 'TcxCurrencyEditProperties'
Properties.Alignment.Horz = taRightJustify Properties.Alignment.Horz = taRightJustify
GroupSummaryAlignment = taRightJustify GroupSummaryAlignment = taRightJustify
@ -177,6 +187,31 @@ inherited frViewArticulos: TfrViewArticulos
Visible = False Visible = False
VisibleForCustomization = False VisibleForCustomization = False
end end
object cxGridViewTIEMPO: TcxGridDBColumn
Caption = 'Tiempo min'
DataBinding.FieldName = 'TIEMPO'
PropertiesClassName = 'TcxSpinEditProperties'
Properties.Alignment.Horz = taRightJustify
HeaderAlignmentHorz = taRightJustify
end
object cxGridViewPARAM_TIEMPO: TcxGridDBColumn
DataBinding.FieldName = 'PARAM_TIEMPO'
PropertiesClassName = 'TcxCurrencyEditProperties'
Properties.Alignment.Horz = taRightJustify
HeaderAlignmentHorz = taRightJustify
end
object cxGridViewMANO_OBRA: TcxGridDBColumn
DataBinding.FieldName = 'MANO_OBRA'
PropertiesClassName = 'TcxCurrencyEditProperties'
Properties.Alignment.Horz = taRightJustify
HeaderAlignmentHorz = taRightJustify
end
object cxGridViewPRECIO_PVP_TOTAL: TcxGridDBColumn
DataBinding.FieldName = 'PRECIO_PVP_TOTAL'
PropertiesClassName = 'TcxCurrencyEditProperties'
Properties.Alignment.Horz = taRightJustify
HeaderAlignmentHorz = taRightJustify
end
end end
inherited cxGridLevel: TcxGridLevel inherited cxGridLevel: TcxGridLevel
Caption = 'Todos los proveedores' Caption = 'Todos los proveedores'

7
Source/Modulos/Articulos/Views/uViewArticulos.pas
View File

@ -52,8 +52,13 @@ type
TBXSeparatorItem3: TTBXSeparatorItem; TBXSeparatorItem3: TTBXSeparatorItem;
actFabricante: TAction; actFabricante: TAction;
cxGridViewREFERENCIA_FABR: TcxGridDBColumn; cxGridViewREFERENCIA_FABR: TcxGridDBColumn;
cxGridViewPRECIO_PVP: TcxGridDBColumn; cxGridViewPRECIO_PVP_VENTA: TcxGridDBColumn;
cxGridViewID_PROVEEDOR: TcxGridDBColumn; cxGridViewID_PROVEEDOR: TcxGridDBColumn;
cxGridViewMARGEN: TcxGridDBColumn;
cxGridViewPRECIO_PVP_TOTAL: TcxGridDBColumn;
cxGridViewTIEMPO: TcxGridDBColumn;
cxGridViewPARAM_TIEMPO: TcxGridDBColumn;
cxGridViewMANO_OBRA: TcxGridDBColumn;
procedure actProveedorExecute(Sender: TObject); procedure actProveedorExecute(Sender: TObject);
procedure actProveedorUpdate(Sender: TObject); procedure actProveedorUpdate(Sender: TObject);
procedure actFamiliaExecute(Sender: TObject); procedure actFamiliaExecute(Sender: TObject);

2
Source/Modulos/Facturas de cliente/Controller/uDetallesFacturaClienteController.pas
View File

@ -161,7 +161,7 @@ end;
procedure TDetallesFacturaClienteController.RellenarImportes(ADetalles: IDAStronglyTypedDataTable; AArticulos: IBizArticulo); procedure TDetallesFacturaClienteController.RellenarImportes(ADetalles: IDAStronglyTypedDataTable; AArticulos: IBizArticulo);
begin begin
if Assigned(AArticulos) then if Assigned(AArticulos) then
ADetalles.DataTable.FieldByName(CAMPO_IMPORTE_UNIDAD).AsVariant := AArticulos.PRECIO_PVP ADetalles.DataTable.FieldByName(CAMPO_IMPORTE_UNIDAD).AsVariant := AArticulos.PRECIO_PVP_TOTAL
else else
ADetalles.DataTable.FieldByName(CAMPO_IMPORTE_UNIDAD).AsVariant := Null; ADetalles.DataTable.FieldByName(CAMPO_IMPORTE_UNIDAD).AsVariant := Null;
end; end;

BIN
Source/Modulos/Obras/Controller/Obras_controller.res
View File

Binary file not shown.

BIN
Source/Modulos/Obras/Views/Obras_view.res
View File

Binary file not shown.

17
Source/Modulos/Pedidos a proveedor/Views/uViewElegirArticulosPedidosProveedor.dfm
View File

@ -1,7 +1,6 @@
inherited frViewElegirArticulosPedidosProveedor: TfrViewElegirArticulosPedidosProveedor inherited frViewElegirArticulosPedidosProveedor: TfrViewElegirArticulosPedidosProveedor
Width = 565 Width = 565
Height = 407 Height = 407
OnDestroy = CustomViewDestroy
ExplicitWidth = 565 ExplicitWidth = 565
ExplicitHeight = 407 ExplicitHeight = 407
inherited cxGrid: TcxGrid inherited cxGrid: TcxGrid
@ -11,12 +10,6 @@ inherited frViewElegirArticulosPedidosProveedor: TfrViewElegirArticulosPedidosPr
OnActiveTabChanged = cxGridActiveTabChanged OnActiveTabChanged = cxGridActiveTabChanged
ExplicitWidth = 565 ExplicitWidth = 565
ExplicitHeight = 279 ExplicitHeight = 279
inherited cxGridView: TcxGridDBTableView
object cxGridViewID_PROVEEDOR: TcxGridDBColumn
DataBinding.FieldName = 'ID_PROVEEDOR'
Visible = False
end
end
object cxGridLevel1: TcxGridLevel object cxGridLevel1: TcxGridLevel
Caption = 'Otros proveedores' Caption = 'Otros proveedores'
end end
@ -30,8 +23,8 @@ inherited frViewElegirArticulosPedidosProveedor: TfrViewElegirArticulosPedidosPr
Width = 565 Width = 565
ExplicitWidth = 565 ExplicitWidth = 565
inherited txtFiltroTodo: TcxTextEdit inherited txtFiltroTodo: TcxTextEdit
ExplicitWidth = 273 ExplicitWidth = 468
Width = 273 Width = 468
end end
inherited edtFechaIniFiltro: TcxDateEdit inherited edtFechaIniFiltro: TcxDateEdit
ExplicitWidth = 121 ExplicitWidth = 121
@ -41,11 +34,17 @@ inherited frViewElegirArticulosPedidosProveedor: TfrViewElegirArticulosPedidosPr
ExplicitWidth = 205 ExplicitWidth = 205
Width = 205 Width = 205
end end
inherited eLista: TcxComboBox
Left = 467
ExplicitLeft = 467
end
end end
inherited TBXAlignmentPanel1: TTBXAlignmentPanel inherited TBXAlignmentPanel1: TTBXAlignmentPanel
Width = 565 Width = 565
ExplicitWidth = 565
inherited tbxBotones: TTBXToolbar inherited tbxBotones: TTBXToolbar
Width = 555 Width = 555
ExplicitWidth = 555
end end
end end
end end

9
Source/Modulos/Pedidos a proveedor/Views/uViewElegirArticulosPedidosProveedor.pas
View File

@ -12,7 +12,13 @@ uses
uDADataTable, cxGridLevel, cxGridCustomTableView, cxGridTableView, uDADataTable, cxGridLevel, cxGridCustomTableView, cxGridTableView,
cxGridDBTableView, cxClasses, cxControls, cxGridCustomView, cxGrid, dxPgsDlg, cxGridDBTableView, cxClasses, cxControls, cxGridCustomView, cxGrid, dxPgsDlg,
ActnList, TB2Item, TBX, TB2Toolbar, TBXDkPanels, TB2Dock, uViewFiltroBase, ActnList, TB2Item, TBX, TB2Toolbar, TBXDkPanels, TB2Dock, uViewFiltroBase,
uBizContactos; uBizContactos, dxSkinsCore, dxSkinBlack, dxSkinBlue, dxSkinCaramel,
dxSkinCoffee, dxSkinGlassOceans, dxSkiniMaginary, dxSkinLilian,
dxSkinLiquidSky, dxSkinLondonLiquidSky, dxSkinMcSkin, dxSkinMoneyTwins,
dxSkinOffice2007Black, dxSkinOffice2007Blue, dxSkinOffice2007Green,
dxSkinOffice2007Pink, dxSkinOffice2007Silver, dxSkinSilver, dxSkinStardust,
dxSkinsDefaultPainters, dxSkinValentine, dxSkinXmas2008Blue,
dxSkinscxPCPainter, uDAInterfaces;
type type
IViewElegirArticulosPedidosProveedor = interface(IViewArticulos) IViewElegirArticulosPedidosProveedor = interface(IViewArticulos)
@ -24,7 +30,6 @@ type
TfrViewElegirArticulosPedidosProveedor = class(TfrViewArticulos, IViewElegirArticulosPedidosProveedor) TfrViewElegirArticulosPedidosProveedor = class(TfrViewArticulos, IViewElegirArticulosPedidosProveedor)
cxGridLevel1: TcxGridLevel; cxGridLevel1: TcxGridLevel;
cxGridViewID_PROVEEDOR: TcxGridDBColumn;
procedure cxGridActiveTabChanged(Sender: TcxCustomGrid; ALevel: TcxGridLevel); procedure cxGridActiveTabChanged(Sender: TcxCustomGrid; ALevel: TcxGridLevel);
procedure CustomViewDestroy(Sender: TObject); procedure CustomViewDestroy(Sender: TObject);

2
Source/Modulos/Presupuestos de cliente/Controller/uDetallesPresupuestoClienteController.pas
View File

@ -154,7 +154,7 @@ end;
procedure TDetallesPresupuestoClienteController.RellenarImportes(ADetalles: IDAStronglyTypedDataTable; AArticulos: IBizArticulo); procedure TDetallesPresupuestoClienteController.RellenarImportes(ADetalles: IDAStronglyTypedDataTable; AArticulos: IBizArticulo);
begin begin
if Assigned(AArticulos) then if Assigned(AArticulos) then
ADetalles.DataTable.FieldByName(CAMPO_IMPORTE_UNIDAD).AsVariant := AArticulos.PRECIO_PVP ADetalles.DataTable.FieldByName(CAMPO_IMPORTE_UNIDAD).AsVariant := AArticulos.PRECIO_PVP_TOTAL
else else
ADetalles.DataTable.FieldByName(CAMPO_IMPORTE_UNIDAD).AsVariant := Null; ADetalles.DataTable.FieldByName(CAMPO_IMPORTE_UNIDAD).AsVariant := Null;
end; end;

BIN
Source/Servidor/FactuGES_Server.RES
View File

Binary file not shown.

8
Source/Servidor/FactuGES_Server.dpr
View File

@ -100,8 +100,6 @@ uses
srvFabricantes_Impl in '..\Modulos\Fabricantes\Servidor\srvFabricantes_Impl.pas' {srvFabricantes: TDataAbstractService}, srvFabricantes_Impl in '..\Modulos\Fabricantes\Servidor\srvFabricantes_Impl.pas' {srvFabricantes: TDataAbstractService},
schFabricantesClient_Intf in '..\Modulos\Fabricantes\Model\schFabricantesClient_Intf.pas', schFabricantesClient_Intf in '..\Modulos\Fabricantes\Model\schFabricantesClient_Intf.pas',
schFabricantesServer_Intf in '..\Modulos\Fabricantes\Model\schFabricantesServer_Intf.pas', schFabricantesServer_Intf in '..\Modulos\Fabricantes\Model\schFabricantesServer_Intf.pas',
schArticulosClient_Intf in '..\Modulos\Articulos\Model\schArticulosClient_Intf.pas',
schArticulosServer_Intf in '..\Modulos\Articulos\Model\schArticulosServer_Intf.pas',
uRptPedidosProveedor_Server in '..\Modulos\Pedidos a proveedor\Reports\uRptPedidosProveedor_Server.pas' {RptPedidosProveedor: TDataModule}, uRptPedidosProveedor_Server in '..\Modulos\Pedidos a proveedor\Reports\uRptPedidosProveedor_Server.pas' {RptPedidosProveedor: TDataModule},
uRptWordPedidoProveedor in '..\Modulos\Pedidos a proveedor\Reports\uRptWordPedidoProveedor.pas' {RptWordPedidoProveedor: TDataModule}, uRptWordPedidoProveedor in '..\Modulos\Pedidos a proveedor\Reports\uRptWordPedidoProveedor.pas' {RptWordPedidoProveedor: TDataModule},
srvObras_Impl in '..\Modulos\Obras\Servidor\srvObras_Impl.pas', srvObras_Impl in '..\Modulos\Obras\Servidor\srvObras_Impl.pas',
@ -124,8 +122,12 @@ uses
schFacturasProveedorClient_Intf in '..\Modulos\Facturas de proveedor\Model\schFacturasProveedorClient_Intf.pas', schFacturasProveedorClient_Intf in '..\Modulos\Facturas de proveedor\Model\schFacturasProveedorClient_Intf.pas',
schFacturasProveedorServer_Intf in '..\Modulos\Facturas de proveedor\Model\schFacturasProveedorServer_Intf.pas', schFacturasProveedorServer_Intf in '..\Modulos\Facturas de proveedor\Model\schFacturasProveedorServer_Intf.pas',
srvProvinciasPoblaciones_Impl in '..\ApplicationBase\ProvinciasPoblaciones\Servidor\srvProvinciasPoblaciones_Impl.pas', srvProvinciasPoblaciones_Impl in '..\ApplicationBase\ProvinciasPoblaciones\Servidor\srvProvinciasPoblaciones_Impl.pas',
schArticulosClient_Intf in '..\Modulos\Articulos\Model\schArticulosClient_Intf.pas',
schArticulosServer_Intf in '..\Modulos\Articulos\Model\schArticulosServer_Intf.pas',
schEmpresasClient_Intf in '..\ApplicationBase\Empresas\Model\schEmpresasClient_Intf.pas', schEmpresasClient_Intf in '..\ApplicationBase\Empresas\Model\schEmpresasClient_Intf.pas',
schEmpresasServer_Intf in '..\ApplicationBase\Empresas\Model\schEmpresasServer_Intf.pas'; schEmpresasServer_Intf in '..\ApplicationBase\Empresas\Model\schEmpresasServer_Intf.pas',
uBizArticulosServer in '..\Modulos\Articulos\Model\uBizArticulosServer.pas',
uBizEmpresasServer in '..\ApplicationBase\Empresas\Model\uBizEmpresasServer.pas';
{$R *.res} {$R *.res}
{$R ..\Servicios\RODLFile.res} {$R ..\Servicios\RODLFile.res}

554
Source/Servidor/FactuGES_Server.dproj
View File

@ -1,280 +1,282 @@
<?xml version="1.0" encoding="utf-8"?> <?xml version="1.0" encoding="utf-8"?>
<Project xmlns="http://schemas.microsoft.com/developer/msbuild/2003"> <Project xmlns="http://schemas.microsoft.com/developer/msbuild/2003">
<PropertyGroup> <PropertyGroup>
<ProjectGuid>{ebdcd25d-40d7-4146-91ec-a0ea4aa1dcd1}</ProjectGuid> <ProjectGuid>{ebdcd25d-40d7-4146-91ec-a0ea4aa1dcd1}</ProjectGuid>
<MainSource>FactuGES_Server.dpr</MainSource> <MainSource>FactuGES_Server.dpr</MainSource>
<Configuration Condition=" '$(Configuration)' == '' ">Debug</Configuration> <Configuration Condition=" '$(Configuration)' == '' ">Debug</Configuration>
<Platform Condition=" '$(Platform)' == '' ">AnyCPU</Platform> <Platform Condition=" '$(Platform)' == '' ">AnyCPU</Platform>
<DCC_DCCCompiler>DCC32</DCC_DCCCompiler> <DCC_DCCCompiler>DCC32</DCC_DCCCompiler>
<DCC_DependencyCheckOutputName>..\..\Output\Debug\Servidor\FactuGES_Server.exe</DCC_DependencyCheckOutputName> <DCC_DependencyCheckOutputName>..\..\Output\Debug\Servidor\FactuGES_Server.exe</DCC_DependencyCheckOutputName>
<DCC_UsePackage>vcl;rtl;vclx;vclactnband;dbrtl;vcldb;vcldbx;bdertl;dsnap;dsnapcon;teeUI;teedb;tee;adortl;vclib;ibxpress;dbxcds;dbexpress;DbxCommonDriver;IndyCore;IndySystem;IndyProtocols;VclSmp;vclie;webdsnap;xmlrtl;inet;inetdbbde;inetdbxpress;RemObjects_BPDX_D11;RemObjects_RODX_D11;RemObjects_Indy_D11;RemObjects_Synapse_D11;RemObjects_WebBroker_D11;DataAbstract_Core_D11;DataAbstract_DBXDriver_D11;DataAbstract_IDE_D11;DataAbstract_Scripting_D11;DataAbstract_SDACDriver_D11;sdac105;dac105;DataAbstract_SQLiteDriver_D11;cxEditorsD10;cxLibraryD10;dxThemeD10;cxDataD10;cxExtEditorsD10;cxGridD10;cxPageControlD10;cxSchedulerD10;cxTreeListD10;cxVerticalGridD10;dxBarD10;dxComnD10;dxBarDBNavD10;dxBarExtDBItemsD10;dxBarExtItemsD10;dxDockingD10;dxLayoutControlD10;dxNavBarD10;dxPSCoreD10;dxsbD10;dxPScxCommonD10;dxPSLnksD10;vclshlctrls;dxPScxExtCommonD10;dxPScxGridLnkD10;dxPScxPCProdD10;dxPScxScheduler2LnkD10;dxPScxTLLnkD10;dxPSdxLCLnkD10;dxPsPrVwAdvD10;pckMD5;pckUCDataConnector;pckUserControl_RT;PluginSDK_D10R;PNG_D10;PngComponentsD10;tb2k_d10;tbx_d10;JclVcl;Jcl;JvXPCtrlsD11R;JvCoreD11R;JvSystemD11R;JvStdCtrlsD11R;JvAppFrmD11R;JvBandsD11R;JvDBD11R;JvDlgsD11R;JvBDED11R;JvCmpD11R;JvCryptD11R;JvCtrlsD11R;JvCustomD11R;JvDockingD11R;JvDotNetCtrlsD11R;JvEDID11R;JvGlobusD11R;JvHMID11R;JvInterpreterD11R;JvJansD11R;JvManagedThreadsD11R;JvMMD11R;JvNetD11R;JvPageCompsD11R;JvPluginD11R;JvPrintPreviewD11R;JvRuntimeDesignD11R;JvTimeFrameworkD11R;JvUIBD11R;JvValidatorsD11R;JvWizardD11R;pckUCADOConn;pckUCBDEConn;pckUCIBXConn;pckUCMidasConn;cxIntlPrintSys3D10;cxExportD10;cxIntl5D10;GUISDK_D11;ccpackD11;JSDialog100;fsTee11;fs11;frx11;frxADO11;frxBDE11;frxDB11;frxDBX11;frxe11;frxIBX11;frxTee11;fsADO11;fsBDE11;fsDB11;fsIBX11;websnap;soaprtl;IntrawebDB_90_100;Intraweb_90_100</DCC_UsePackage> <DCC_UsePackage>vcl;rtl;vclx;vclactnband;dbrtl;vcldb;vcldbx;bdertl;dsnap;dsnapcon;teeUI;teedb;tee;adortl;vclib;ibxpress;dbxcds;dbexpress;DbxCommonDriver;IndyCore;IndySystem;IndyProtocols;VclSmp;vclie;webdsnap;xmlrtl;inet;inetdbbde;inetdbxpress;RemObjects_BPDX_D11;RemObjects_RODX_D11;RemObjects_Indy_D11;RemObjects_Synapse_D11;RemObjects_WebBroker_D11;DataAbstract_Core_D11;DataAbstract_DBXDriver_D11;DataAbstract_IDE_D11;DataAbstract_Scripting_D11;DataAbstract_SDACDriver_D11;sdac105;dac105;DataAbstract_SQLiteDriver_D11;cxEditorsD10;cxLibraryD10;dxThemeD10;cxDataD10;cxExtEditorsD10;cxGridD10;cxPageControlD10;cxSchedulerD10;cxTreeListD10;cxVerticalGridD10;dxBarD10;dxComnD10;dxBarDBNavD10;dxBarExtDBItemsD10;dxBarExtItemsD10;dxDockingD10;dxLayoutControlD10;dxNavBarD10;dxPSCoreD10;dxsbD10;dxPScxCommonD10;dxPSLnksD10;vclshlctrls;dxPScxExtCommonD10;dxPScxGridLnkD10;dxPScxPCProdD10;dxPScxScheduler2LnkD10;dxPScxTLLnkD10;dxPSdxLCLnkD10;dxPsPrVwAdvD10;pckMD5;pckUCDataConnector;pckUserControl_RT;PluginSDK_D10R;PNG_D10;PngComponentsD10;tb2k_d10;tbx_d10;JclVcl;Jcl;JvXPCtrlsD11R;JvCoreD11R;JvSystemD11R;JvStdCtrlsD11R;JvAppFrmD11R;JvBandsD11R;JvDBD11R;JvDlgsD11R;JvBDED11R;JvCmpD11R;JvCryptD11R;JvCtrlsD11R;JvCustomD11R;JvDockingD11R;JvDotNetCtrlsD11R;JvEDID11R;JvGlobusD11R;JvHMID11R;JvInterpreterD11R;JvJansD11R;JvManagedThreadsD11R;JvMMD11R;JvNetD11R;JvPageCompsD11R;JvPluginD11R;JvPrintPreviewD11R;JvRuntimeDesignD11R;JvTimeFrameworkD11R;JvUIBD11R;JvValidatorsD11R;JvWizardD11R;pckUCADOConn;pckUCBDEConn;pckUCIBXConn;pckUCMidasConn;cxIntlPrintSys3D10;cxExportD10;cxIntl5D10;GUISDK_D11;ccpackD11;JSDialog100;fsTee11;fs11;frx11;frxADO11;frxBDE11;frxDB11;frxDBX11;frxe11;frxIBX11;frxTee11;fsADO11;fsBDE11;fsDB11;fsIBX11;websnap;soaprtl;IntrawebDB_90_100;Intraweb_90_100</DCC_UsePackage>
</PropertyGroup> </PropertyGroup>
<PropertyGroup Condition=" '$(Configuration)|$(Platform)' == 'Release|AnyCPU' "> <PropertyGroup Condition=" '$(Configuration)|$(Platform)' == 'Release|AnyCPU' ">
<Version>7.0</Version> <Version>7.0</Version>
<DCC_DebugInformation>False</DCC_DebugInformation> <DCC_DebugInformation>False</DCC_DebugInformation>
<DCC_LocalDebugSymbols>False</DCC_LocalDebugSymbols> <DCC_LocalDebugSymbols>False</DCC_LocalDebugSymbols>
<DCC_SymbolReferenceInfo>0</DCC_SymbolReferenceInfo> <DCC_SymbolReferenceInfo>0</DCC_SymbolReferenceInfo>
<DCC_MapFile>3</DCC_MapFile> <DCC_MapFile>3</DCC_MapFile>
<DCC_ExeOutput>..\..\Output\Release\Servidor</DCC_ExeOutput> <DCC_ExeOutput>..\..\Output\Release\Servidor</DCC_ExeOutput>
<DCC_Define>RELEASE</DCC_Define> <DCC_Define>RELEASE</DCC_Define>
</PropertyGroup> </PropertyGroup>
<PropertyGroup Condition=" '$(Configuration)|$(Platform)' == 'Debug|AnyCPU' "> <PropertyGroup Condition=" '$(Configuration)|$(Platform)' == 'Debug|AnyCPU' ">
<Version>7.0</Version> <Version>7.0</Version>
<DCC_MapFile>3</DCC_MapFile> <DCC_MapFile>3</DCC_MapFile>
<DCC_ExeOutput>..\..\Output\Debug\Servidor</DCC_ExeOutput> <DCC_ExeOutput>..\..\Output\Debug\Servidor</DCC_ExeOutput>
<DCC_Define>DEBUG;</DCC_Define> <DCC_Define>DEBUG;</DCC_Define>
<DCC_GenerateStackFrames>True</DCC_GenerateStackFrames> <DCC_GenerateStackFrames>True</DCC_GenerateStackFrames>
<DCC_DebugInfoInExe>True</DCC_DebugInfoInExe> <DCC_DebugInfoInExe>True</DCC_DebugInfoInExe>
<DCC_DebugVN>True</DCC_DebugVN> <DCC_DebugVN>True</DCC_DebugVN>
<DCC_UnitSearchPath>$(BDS)\lib\Debug;$(BDS)\Lib\Debug\Indy10</DCC_UnitSearchPath> <DCC_UnitSearchPath>$(BDS)\lib\Debug;$(BDS)\Lib\Debug\Indy10</DCC_UnitSearchPath>
<DCC_ResourcePath>$(BDS)\lib\Debug;$(BDS)\Lib\Debug\Indy10</DCC_ResourcePath> <DCC_ResourcePath>$(BDS)\lib\Debug;$(BDS)\Lib\Debug\Indy10</DCC_ResourcePath>
<DCC_ObjPath>$(BDS)\lib\Debug;$(BDS)\Lib\Debug\Indy10</DCC_ObjPath> <DCC_ObjPath>$(BDS)\lib\Debug;$(BDS)\Lib\Debug\Indy10</DCC_ObjPath>
<DCC_IncludePath>$(BDS)\lib\Debug;$(BDS)\Lib\Debug\Indy10</DCC_IncludePath> <DCC_IncludePath>$(BDS)\lib\Debug;$(BDS)\Lib\Debug\Indy10</DCC_IncludePath>
</PropertyGroup> </PropertyGroup>
<ProjectExtensions> <ProjectExtensions>
<Borland.Personality>Delphi.Personality</Borland.Personality> <Borland.Personality>Delphi.Personality</Borland.Personality>
<Borland.ProjectType/> <Borland.ProjectType />
<BorlandProject> <BorlandProject>
<BorlandProject><Delphi.Personality><Parameters><Parameters Name="UseLauncher">False</Parameters><Parameters Name="LoadAllSymbols">True</Parameters><Parameters Name="LoadUnspecifiedSymbols">False</Parameters><Parameters Name="RunParams">/standalone</Parameters></Parameters><VersionInfo><VersionInfo Name="IncludeVerInfo">True</VersionInfo><VersionInfo Name="AutoIncBuild">False</VersionInfo><VersionInfo Name="MajorVer">1</VersionInfo><VersionInfo Name="MinorVer">0</VersionInfo><VersionInfo Name="Release">8</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"></VersionInfoKeys><VersionInfoKeys Name="FileDescription"></VersionInfoKeys><VersionInfoKeys Name="FileVersion">1.0.8.0</VersionInfoKeys><VersionInfoKeys Name="InternalName"></VersionInfoKeys><VersionInfoKeys Name="LegalCopyright"></VersionInfoKeys><VersionInfoKeys Name="LegalTrademarks"></VersionInfoKeys><VersionInfoKeys Name="OriginalFilename"></VersionInfoKeys><VersionInfoKeys Name="ProductName"></VersionInfoKeys><VersionInfoKeys Name="ProductVersion">1.0.8.0</VersionInfoKeys><VersionInfoKeys Name="Comments"></VersionInfoKeys><VersionInfoKeys Name="CompileDate">jueves, 12 de junio de 2008 19:15</VersionInfoKeys></VersionInfoKeys><Excluded_Packages/><Source><Source Name="MainSource">FactuGES_Server.dpr</Source></Source></Delphi.Personality></BorlandProject></BorlandProject> <BorlandProject><Delphi.Personality><Parameters><Parameters Name="UseLauncher">False</Parameters><Parameters Name="LoadAllSymbols">True</Parameters><Parameters Name="LoadUnspecifiedSymbols">False</Parameters><Parameters Name="RunParams">/standalone</Parameters></Parameters><VersionInfo><VersionInfo Name="IncludeVerInfo">True</VersionInfo><VersionInfo Name="AutoIncBuild">False</VersionInfo><VersionInfo Name="MajorVer">1</VersionInfo><VersionInfo Name="MinorVer">0</VersionInfo><VersionInfo Name="Release">8</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"></VersionInfoKeys><VersionInfoKeys Name="FileDescription"></VersionInfoKeys><VersionInfoKeys Name="FileVersion">1.0.8.0</VersionInfoKeys><VersionInfoKeys Name="InternalName"></VersionInfoKeys><VersionInfoKeys Name="LegalCopyright"></VersionInfoKeys><VersionInfoKeys Name="LegalTrademarks"></VersionInfoKeys><VersionInfoKeys Name="OriginalFilename"></VersionInfoKeys><VersionInfoKeys Name="ProductName"></VersionInfoKeys><VersionInfoKeys Name="ProductVersion">1.0.8.0</VersionInfoKeys><VersionInfoKeys Name="Comments"></VersionInfoKeys><VersionInfoKeys Name="CompileDate">jueves, 12 de junio de 2008 19:15</VersionInfoKeys></VersionInfoKeys><Excluded_Packages /><Source><Source Name="MainSource">FactuGES_Server.dpr</Source></Source></Delphi.Personality></BorlandProject></BorlandProject>
</ProjectExtensions> </ProjectExtensions>
<Import Project="$(MSBuildBinPath)\Borland.Delphi.Targets"/> <Import Project="$(MSBuildBinPath)\Borland.Delphi.Targets" />
<ItemGroup> <ItemGroup>
<DelphiCompile Include="FactuGES_Server.dpr"> <DelphiCompile Include="FactuGES_Server.dpr">
<MainSource>MainSource</MainSource> <MainSource>MainSource</MainSource>
</DelphiCompile> </DelphiCompile>
<DCCReference Include="..\ApplicationBase\Empresas\Model\schEmpresasClient_Intf.pas"/> <DCCReference Include="..\ApplicationBase\Empresas\Model\schEmpresasClient_Intf.pas" />
<DCCReference Include="..\ApplicationBase\Empresas\Model\schEmpresasServer_Intf.pas"/> <DCCReference Include="..\ApplicationBase\Empresas\Model\schEmpresasServer_Intf.pas" />
<DCCReference Include="..\ApplicationBase\Empresas\Servidor\srvEmpresas_Impl.pas"> <DCCReference Include="..\ApplicationBase\Empresas\Model\uBizEmpresasServer.pas" />
<Form>srvEmpresas</Form> <DCCReference Include="..\ApplicationBase\Empresas\Servidor\srvEmpresas_Impl.pas">
<DesignClass>TDARemoteService</DesignClass> <Form>srvEmpresas</Form>
</DCCReference> <DesignClass>TDARemoteService</DesignClass>
<DCCReference Include="..\ApplicationBase\ProvinciasPoblaciones\Servidor\srvProvinciasPoblaciones_Impl.pas"/> </DCCReference>
<DCCReference Include="..\ApplicationBase\Usuarios\Model\schUsuariosClient_Intf.pas"/> <DCCReference Include="..\ApplicationBase\ProvinciasPoblaciones\Servidor\srvProvinciasPoblaciones_Impl.pas" />
<DCCReference Include="..\ApplicationBase\Usuarios\Model\schUsuariosServer_Intf.pas"/> <DCCReference Include="..\ApplicationBase\Usuarios\Model\schUsuariosClient_Intf.pas" />
<DCCReference Include="..\ApplicationBase\Usuarios\Servidor\srvUsuarios_Impl.pas"/> <DCCReference Include="..\ApplicationBase\Usuarios\Model\schUsuariosServer_Intf.pas" />
<DCCReference Include="..\Base\schBase_Intf.pas"/> <DCCReference Include="..\ApplicationBase\Usuarios\Servidor\srvUsuarios_Impl.pas" />
<DCCReference Include="..\Base\Utiles\uSistemaFunc.pas"/> <DCCReference Include="..\Base\schBase_Intf.pas" />
<DCCReference Include="..\Base\Utiles\uStringsUtils.pas"/> <DCCReference Include="..\Base\Utiles\uSistemaFunc.pas" />
<DCCReference Include="..\Modulos\Albaranes de cliente\Model\schAlbaranesClienteClient_Intf.pas"/> <DCCReference Include="..\Base\Utiles\uStringsUtils.pas" />
<DCCReference Include="..\Modulos\Albaranes de cliente\Model\schAlbaranesClienteServer_Intf.pas"/> <DCCReference Include="..\Modulos\Albaranes de cliente\Model\schAlbaranesClienteClient_Intf.pas" />
<DCCReference Include="..\Modulos\Albaranes de cliente\Model\uBizAlbaranClienteServer.pas"/> <DCCReference Include="..\Modulos\Albaranes de cliente\Model\schAlbaranesClienteServer_Intf.pas" />
<DCCReference Include="..\Modulos\Albaranes de cliente\Reports\uRptAlbaranesCliente_Server.pas"> <DCCReference Include="..\Modulos\Albaranes de cliente\Model\uBizAlbaranClienteServer.pas" />
<Form>RptAlbaranesCliente</Form> <DCCReference Include="..\Modulos\Albaranes de cliente\Reports\uRptAlbaranesCliente_Server.pas">
<DesignClass>TDataModule</DesignClass> <Form>RptAlbaranesCliente</Form>
</DCCReference> <DesignClass>TDataModule</DesignClass>
<DCCReference Include="..\Modulos\Albaranes de cliente\Reports\uRptWordAlbaranCliente.pas"> </DCCReference>
<Form>RptWordAlbaranCliente</Form> <DCCReference Include="..\Modulos\Albaranes de cliente\Reports\uRptWordAlbaranCliente.pas">
<DesignClass>TDataModule</DesignClass> <Form>RptWordAlbaranCliente</Form>
</DCCReference> <DesignClass>TDataModule</DesignClass>
<DCCReference Include="..\Modulos\Albaranes de cliente\Servidor\srvAlbaranesCliente_Impl.pas"> </DCCReference>
<Form>srvAlbaranesCliente</Form> <DCCReference Include="..\Modulos\Albaranes de cliente\Servidor\srvAlbaranesCliente_Impl.pas">
<DesignClass>TDataAbstractService</DesignClass> <Form>srvAlbaranesCliente</Form>
</DCCReference> <DesignClass>TDataAbstractService</DesignClass>
<DCCReference Include="..\Modulos\Albaranes de proveedor\Model\schAlbaranesProveedorClient_Intf.pas"/> </DCCReference>
<DCCReference Include="..\Modulos\Albaranes de proveedor\Model\schAlbaranesProveedorServer_Intf.pas"/> <DCCReference Include="..\Modulos\Albaranes de proveedor\Model\schAlbaranesProveedorClient_Intf.pas" />
<DCCReference Include="..\Modulos\Albaranes de proveedor\Model\uBizAlbaranProveedorServer.PAS"/> <DCCReference Include="..\Modulos\Albaranes de proveedor\Model\schAlbaranesProveedorServer_Intf.pas" />
<DCCReference Include="..\Modulos\Albaranes de proveedor\Servidor\srvAlbaranesProveedor_Impl.pas"> <DCCReference Include="..\Modulos\Albaranes de proveedor\Model\uBizAlbaranProveedorServer.PAS" />
<Form>srvAlbaranesProveedor</Form> <DCCReference Include="..\Modulos\Albaranes de proveedor\Servidor\srvAlbaranesProveedor_Impl.pas">
<DesignClass>TDataAbstractService</DesignClass> <Form>srvAlbaranesProveedor</Form>
</DCCReference> <DesignClass>TDataAbstractService</DesignClass>
<DCCReference Include="..\Modulos\Almacenes\Model\schAlmacenesClient_Intf.pas"/> </DCCReference>
<DCCReference Include="..\Modulos\Almacenes\Model\schAlmacenesServer_Intf.pas"/> <DCCReference Include="..\Modulos\Almacenes\Model\schAlmacenesClient_Intf.pas" />
<DCCReference Include="..\Modulos\Almacenes\Servidor\srvAlmacenes_Impl.pas"> <DCCReference Include="..\Modulos\Almacenes\Model\schAlmacenesServer_Intf.pas" />
<Form>srvAlmacenes</Form> <DCCReference Include="..\Modulos\Almacenes\Servidor\srvAlmacenes_Impl.pas">
<DesignClass>TDARemoteService</DesignClass> <Form>srvAlmacenes</Form>
</DCCReference> <DesignClass>TDARemoteService</DesignClass>
<DCCReference Include="..\Modulos\Articulos\Model\schArticulosClient_Intf.pas"/> </DCCReference>
<DCCReference Include="..\Modulos\Articulos\Model\schArticulosServer_Intf.pas"/> <DCCReference Include="..\Modulos\Articulos\Model\schArticulosClient_Intf.pas" />
<DCCReference Include="..\Modulos\Articulos\Servidor\srvArticulos_Impl.pas"/> <DCCReference Include="..\Modulos\Articulos\Model\schArticulosServer_Intf.pas" />
<DCCReference Include="..\Modulos\Contactos\Model\schContactosClient_Intf.pas"/> <DCCReference Include="..\Modulos\Articulos\Model\uBizArticulosServer.pas" />
<DCCReference Include="..\Modulos\Contactos\Model\schContactosServer_Intf.pas"/> <DCCReference Include="..\Modulos\Articulos\Servidor\srvArticulos_Impl.pas" />
<DCCReference Include="..\Modulos\Contactos\Model\uBizClientesServer.pas"/> <DCCReference Include="..\Modulos\Contactos\Model\schContactosClient_Intf.pas" />
<DCCReference Include="..\Modulos\Contactos\Model\uBizContactosServer.pas"/> <DCCReference Include="..\Modulos\Contactos\Model\schContactosServer_Intf.pas" />
<DCCReference Include="..\Modulos\Contactos\Model\uBizEmpleadosServer.pas"/> <DCCReference Include="..\Modulos\Contactos\Model\uBizClientesServer.pas" />
<DCCReference Include="..\Modulos\Contactos\Model\uBizProveedoresServer.pas"/> <DCCReference Include="..\Modulos\Contactos\Model\uBizContactosServer.pas" />
<DCCReference Include="..\Modulos\Contactos\Reports\uRptEtiquetasContacto_Server.pas"> <DCCReference Include="..\Modulos\Contactos\Model\uBizEmpleadosServer.pas" />
<Form>RptEtiquetasContacto</Form> <DCCReference Include="..\Modulos\Contactos\Model\uBizProveedoresServer.pas" />
<DesignClass>TDataModule</DesignClass> <DCCReference Include="..\Modulos\Contactos\Reports\uRptEtiquetasContacto_Server.pas">
</DCCReference> <Form>RptEtiquetasContacto</Form>
<DCCReference Include="..\Modulos\Contactos\Reports\uRptFichasEmpleado_Server.pas"> <DesignClass>TDataModule</DesignClass>
<Form>RptFichasEmpleado</Form> </DCCReference>
<DesignClass>TDataModule</DesignClass> <DCCReference Include="..\Modulos\Contactos\Reports\uRptFichasEmpleado_Server.pas">
</DCCReference> <Form>RptFichasEmpleado</Form>
<DCCReference Include="..\Modulos\Contactos\Servidor\srvContactos_Impl.pas"> <DesignClass>TDataModule</DesignClass>
<Form>srvContactos</Form> </DCCReference>
<DesignClass>TDARemoteService</DesignClass> <DCCReference Include="..\Modulos\Contactos\Servidor\srvContactos_Impl.pas">
</DCCReference> <Form>srvContactos</Form>
<DCCReference Include="..\Modulos\Fabricantes\Model\schFabricantesClient_Intf.pas"/> <DesignClass>TDARemoteService</DesignClass>
<DCCReference Include="..\Modulos\Fabricantes\Model\schFabricantesServer_Intf.pas"/> </DCCReference>
<DCCReference Include="..\Modulos\Fabricantes\Servidor\srvFabricantes_Impl.pas"> <DCCReference Include="..\Modulos\Fabricantes\Model\schFabricantesClient_Intf.pas" />
<Form>srvFabricantes</Form> <DCCReference Include="..\Modulos\Fabricantes\Model\schFabricantesServer_Intf.pas" />
<DesignClass>TDataAbstractService</DesignClass> <DCCReference Include="..\Modulos\Fabricantes\Servidor\srvFabricantes_Impl.pas">
</DCCReference> <Form>srvFabricantes</Form>
<DCCReference Include="..\Modulos\Facturas de cliente\Model\schFacturasClienteClient_Intf.pas"/> <DesignClass>TDataAbstractService</DesignClass>
<DCCReference Include="..\Modulos\Facturas de cliente\Model\schFacturasClienteServer_Intf.pas"/> </DCCReference>
<DCCReference Include="..\Modulos\Facturas de cliente\Model\uBizFacturasClienteServer.pas"/> <DCCReference Include="..\Modulos\Facturas de cliente\Model\schFacturasClienteClient_Intf.pas" />
<DCCReference Include="..\Modulos\Facturas de cliente\Reports\uRptFacturasCliente_Server.pas"> <DCCReference Include="..\Modulos\Facturas de cliente\Model\schFacturasClienteServer_Intf.pas" />
<Form>RptFacturasCliente</Form> <DCCReference Include="..\Modulos\Facturas de cliente\Model\uBizFacturasClienteServer.pas" />
<DesignClass>TDataModule</DesignClass> <DCCReference Include="..\Modulos\Facturas de cliente\Reports\uRptFacturasCliente_Server.pas">
</DCCReference> <Form>RptFacturasCliente</Form>
<DCCReference Include="..\Modulos\Facturas de cliente\Reports\uRptWordFacturaCliente.pas"> <DesignClass>TDataModule</DesignClass>
<Form>RptWordFacturaCliente</Form> </DCCReference>
<DesignClass>TDataModule</DesignClass> <DCCReference Include="..\Modulos\Facturas de cliente\Reports\uRptWordFacturaCliente.pas">
</DCCReference> <Form>RptWordFacturaCliente</Form>
<DCCReference Include="..\Modulos\Facturas de cliente\Servidor\srvFacturasCliente_Impl.pas"> <DesignClass>TDataModule</DesignClass>
<Form>srvFacturasCliente</Form> </DCCReference>
<DesignClass>TDataAbstractService</DesignClass> <DCCReference Include="..\Modulos\Facturas de cliente\Servidor\srvFacturasCliente_Impl.pas">
</DCCReference> <Form>srvFacturasCliente</Form>
<DCCReference Include="..\Modulos\Facturas de proveedor\Model\schFacturasProveedorClient_Intf.pas"/> <DesignClass>TDataAbstractService</DesignClass>
<DCCReference Include="..\Modulos\Facturas de proveedor\Model\schFacturasProveedorServer_Intf.pas"/> </DCCReference>
<DCCReference Include="..\Modulos\Facturas de proveedor\Model\uBizFacturasProveedorServer.pas"/> <DCCReference Include="..\Modulos\Facturas de proveedor\Model\schFacturasProveedorClient_Intf.pas" />
<DCCReference Include="..\Modulos\Facturas de proveedor\Servidor\srvFacturasProveedor_Impl.pas"> <DCCReference Include="..\Modulos\Facturas de proveedor\Model\schFacturasProveedorServer_Intf.pas" />
<Form>srvFacturasProveedor</Form> <DCCReference Include="..\Modulos\Facturas de proveedor\Model\uBizFacturasProveedorServer.pas" />
<DesignClass>TDataAbstractService</DesignClass> <DCCReference Include="..\Modulos\Facturas de proveedor\Servidor\srvFacturasProveedor_Impl.pas">
</DCCReference> <Form>srvFacturasProveedor</Form>
<DCCReference Include="..\Modulos\Familias\Model\schFamiliasClient_Intf.pas"/> <DesignClass>TDataAbstractService</DesignClass>
<DCCReference Include="..\Modulos\Familias\Model\schFamiliasServer_Intf.pas"/> </DCCReference>
<DCCReference Include="..\Modulos\Familias\Servidor\srvFamilias_Impl.pas"/> <DCCReference Include="..\Modulos\Familias\Model\schFamiliasClient_Intf.pas" />
<DCCReference Include="..\Modulos\Formas de pago\Model\schFormasPagoClient_Intf.pas"/> <DCCReference Include="..\Modulos\Familias\Model\schFamiliasServer_Intf.pas" />
<DCCReference Include="..\Modulos\Formas de pago\Model\schFormasPagoServer_Intf.pas"/> <DCCReference Include="..\Modulos\Familias\Servidor\srvFamilias_Impl.pas" />
<DCCReference Include="..\Modulos\Formas de pago\Servidor\srvFormasPago_Impl.pas"/> <DCCReference Include="..\Modulos\Formas de pago\Model\schFormasPagoClient_Intf.pas" />
<DCCReference Include="..\Modulos\Formas de pago\Servidor\srvUnidadesMedida_Impl.pas"/> <DCCReference Include="..\Modulos\Formas de pago\Model\schFormasPagoServer_Intf.pas" />
<DCCReference Include="..\Modulos\Historico de movimientos\Model\schHistoricoMovimientosClient_Intf.pas"/> <DCCReference Include="..\Modulos\Formas de pago\Servidor\srvFormasPago_Impl.pas" />
<DCCReference Include="..\Modulos\Historico de movimientos\Model\schHistoricoMovimientosServer_Intf.pas"/> <DCCReference Include="..\Modulos\Formas de pago\Servidor\srvUnidadesMedida_Impl.pas" />
<DCCReference Include="..\Modulos\Historico de movimientos\Servidor\srvHistoricoMovimientos_Impl.pas"> <DCCReference Include="..\Modulos\Historico de movimientos\Model\schHistoricoMovimientosClient_Intf.pas" />
<Form>srvHistoricoMovimientos</Form> <DCCReference Include="..\Modulos\Historico de movimientos\Model\schHistoricoMovimientosServer_Intf.pas" />
<DesignClass>TDataAbstractService</DesignClass> <DCCReference Include="..\Modulos\Historico de movimientos\Servidor\srvHistoricoMovimientos_Impl.pas">
</DCCReference> <Form>srvHistoricoMovimientos</Form>
<DCCReference Include="..\Modulos\Inventario\Model\schInventarioClient_Intf.pas"/> <DesignClass>TDataAbstractService</DesignClass>
<DCCReference Include="..\Modulos\Inventario\Model\schInventarioServer_Intf.pas"/> </DCCReference>
<DCCReference Include="..\Modulos\Inventario\Servidor\srvInventario_Impl.pas"> <DCCReference Include="..\Modulos\Inventario\Model\schInventarioClient_Intf.pas" />
<Form>srvInventario</Form> <DCCReference Include="..\Modulos\Inventario\Model\schInventarioServer_Intf.pas" />
<DesignClass>TDataAbstractService</DesignClass> <DCCReference Include="..\Modulos\Inventario\Servidor\srvInventario_Impl.pas">
</DCCReference> <Form>srvInventario</Form>
<DCCReference Include="..\Modulos\Obras\Model\schObrasClient_Intf.pas"/> <DesignClass>TDataAbstractService</DesignClass>
<DCCReference Include="..\Modulos\Obras\Model\schObrasServer_Intf.pas"/> </DCCReference>
<DCCReference Include="..\Modulos\Obras\Model\uBizObrasServer.pas"/> <DCCReference Include="..\Modulos\Obras\Model\schObrasClient_Intf.pas" />
<DCCReference Include="..\Modulos\Obras\Servidor\srvObras_Impl.pas"/> <DCCReference Include="..\Modulos\Obras\Model\schObrasServer_Intf.pas" />
<DCCReference Include="..\Modulos\Pedidos a proveedor\Model\schPedidosProveedorClient_Intf.pas"/> <DCCReference Include="..\Modulos\Obras\Model\uBizObrasServer.pas" />
<DCCReference Include="..\Modulos\Pedidos a proveedor\Model\schPedidosProveedorServer_Intf.pas"/> <DCCReference Include="..\Modulos\Obras\Servidor\srvObras_Impl.pas" />
<DCCReference Include="..\Modulos\Pedidos a proveedor\Model\uBizPedidosProveedorServer.pas"/> <DCCReference Include="..\Modulos\Pedidos a proveedor\Model\schPedidosProveedorClient_Intf.pas" />
<DCCReference Include="..\Modulos\Pedidos a proveedor\Reports\uRptPedidosProveedor_Server.pas"> <DCCReference Include="..\Modulos\Pedidos a proveedor\Model\schPedidosProveedorServer_Intf.pas" />
<Form>RptPedidosProveedor</Form> <DCCReference Include="..\Modulos\Pedidos a proveedor\Model\uBizPedidosProveedorServer.pas" />
<DesignClass>TDataModule</DesignClass> <DCCReference Include="..\Modulos\Pedidos a proveedor\Reports\uRptPedidosProveedor_Server.pas">
</DCCReference> <Form>RptPedidosProveedor</Form>
<DCCReference Include="..\Modulos\Pedidos a proveedor\Reports\uRptWordPedidoProveedor.pas"> <DesignClass>TDataModule</DesignClass>
<Form>RptWordPedidoProveedor</Form> </DCCReference>
<DesignClass>TDataModule</DesignClass> <DCCReference Include="..\Modulos\Pedidos a proveedor\Reports\uRptWordPedidoProveedor.pas">
</DCCReference> <Form>RptWordPedidoProveedor</Form>
<DCCReference Include="..\Modulos\Pedidos a proveedor\Servidor\srvPedidosProveedor_Impl.pas"> <DesignClass>TDataModule</DesignClass>
<Form>srvPedidosProveedor</Form> </DCCReference>
<DesignClass>TDataAbstractService</DesignClass> <DCCReference Include="..\Modulos\Pedidos a proveedor\Servidor\srvPedidosProveedor_Impl.pas">
</DCCReference> <Form>srvPedidosProveedor</Form>
<DCCReference Include="..\Modulos\Presupuestos de cliente\Model\schPresupuestosClienteClient_Intf.pas"/> <DesignClass>TDataAbstractService</DesignClass>
<DCCReference Include="..\Modulos\Presupuestos de cliente\Model\schPresupuestosClienteServer_Intf.pas"/> </DCCReference>
<DCCReference Include="..\Modulos\Presupuestos de cliente\Model\uBizPresupuestosClienteServer.pas"/> <DCCReference Include="..\Modulos\Presupuestos de cliente\Model\schPresupuestosClienteClient_Intf.pas" />
<DCCReference Include="..\Modulos\Presupuestos de cliente\Reports\uRptPresupuestosCliente_Server.pas"> <DCCReference Include="..\Modulos\Presupuestos de cliente\Model\schPresupuestosClienteServer_Intf.pas" />
<Form>RptPresupuestosCliente</Form> <DCCReference Include="..\Modulos\Presupuestos de cliente\Model\uBizPresupuestosClienteServer.pas" />
</DCCReference> <DCCReference Include="..\Modulos\Presupuestos de cliente\Reports\uRptPresupuestosCliente_Server.pas">
<DCCReference Include="..\Modulos\Presupuestos de cliente\Reports\uRptWordPresupuestoCliente.pas"> <Form>RptPresupuestosCliente</Form>
<Form>RptWordPresupuestoCliente</Form> </DCCReference>
<DesignClass>TDataModule</DesignClass> <DCCReference Include="..\Modulos\Presupuestos de cliente\Reports\uRptWordPresupuestoCliente.pas">
</DCCReference> <Form>RptWordPresupuestoCliente</Form>
<DCCReference Include="..\Modulos\Presupuestos de cliente\Servidor\srvPresupuestosCliente_Impl.pas"> <DesignClass>TDataModule</DesignClass>
<Form>srvPresupuestosCliente</Form> </DCCReference>
<DesignClass>TDataAbstractService</DesignClass> <DCCReference Include="..\Modulos\Presupuestos de cliente\Servidor\srvPresupuestosCliente_Impl.pas">
</DCCReference> <Form>srvPresupuestosCliente</Form>
<DCCReference Include="..\Modulos\Recibos de cliente\Model\schRecibosClienteClient_Intf.pas"/> <DesignClass>TDataAbstractService</DesignClass>
<DCCReference Include="..\Modulos\Recibos de cliente\Model\schRecibosClienteServer_Intf.pas"/> </DCCReference>
<DCCReference Include="..\Modulos\Recibos de cliente\Reports\uRptRecibosCliente_Server.pas"> <DCCReference Include="..\Modulos\Recibos de cliente\Model\schRecibosClienteClient_Intf.pas" />
<Form>RptRecibosCliente</Form> <DCCReference Include="..\Modulos\Recibos de cliente\Model\schRecibosClienteServer_Intf.pas" />
<DesignClass>TDataModule</DesignClass> <DCCReference Include="..\Modulos\Recibos de cliente\Reports\uRptRecibosCliente_Server.pas">
</DCCReference> <Form>RptRecibosCliente</Form>
<DCCReference Include="..\Modulos\Recibos de cliente\Servidor\srvRecibosCliente_Impl.pas"> <DesignClass>TDataModule</DesignClass>
<Form>srvRecibosCliente</Form> </DCCReference>
<DesignClass>TDataAbstractService</DesignClass> <DCCReference Include="..\Modulos\Recibos de cliente\Servidor\srvRecibosCliente_Impl.pas">
</DCCReference> <Form>srvRecibosCliente</Form>
<DCCReference Include="..\Modulos\Recibos de proveedor\Model\schRecibosProveedorClient_Intf.pas"/> <DesignClass>TDataAbstractService</DesignClass>
<DCCReference Include="..\Modulos\Recibos de proveedor\Model\schRecibosProveedorServer_Intf.pas"/> </DCCReference>
<DCCReference Include="..\Modulos\Recibos de proveedor\Servidor\srvRecibosProveedor_Impl.pas"> <DCCReference Include="..\Modulos\Recibos de proveedor\Model\schRecibosProveedorClient_Intf.pas" />
<Form>srvRecibosProveedor</Form> <DCCReference Include="..\Modulos\Recibos de proveedor\Model\schRecibosProveedorServer_Intf.pas" />
<DesignClass>TDataAbstractService</DesignClass> <DCCReference Include="..\Modulos\Recibos de proveedor\Servidor\srvRecibosProveedor_Impl.pas">
</DCCReference> <Form>srvRecibosProveedor</Form>
<DCCReference Include="..\Modulos\Referencias\Model\schReferenciasClient_Intf.pas"/> <DesignClass>TDataAbstractService</DesignClass>
<DCCReference Include="..\Modulos\Referencias\Model\schReferenciasServer_Intf.pas"/> </DCCReference>
<DCCReference Include="..\Modulos\Referencias\Servidor\srvReferencias_Impl.pas"> <DCCReference Include="..\Modulos\Referencias\Model\schReferenciasClient_Intf.pas" />
<Form>srvReferencias</Form> <DCCReference Include="..\Modulos\Referencias\Model\schReferenciasServer_Intf.pas" />
<DesignClass>TDataAbstractService</DesignClass> <DCCReference Include="..\Modulos\Referencias\Servidor\srvReferencias_Impl.pas">
</DCCReference> <Form>srvReferencias</Form>
<DCCReference Include="..\Modulos\Remesas de cliente\Model\schRemesasClienteClient_Intf.pas"/> <DesignClass>TDataAbstractService</DesignClass>
<DCCReference Include="..\Modulos\Remesas de cliente\Model\schRemesasClienteServer_Intf.pas"/> </DCCReference>
<DCCReference Include="..\Modulos\Remesas de cliente\Model\uBizRemesasClienteServer.pas"/> <DCCReference Include="..\Modulos\Remesas de cliente\Model\schRemesasClienteClient_Intf.pas" />
<DCCReference Include="..\Modulos\Remesas de cliente\Servidor\srvRemesasCliente_Impl.pas"> <DCCReference Include="..\Modulos\Remesas de cliente\Model\schRemesasClienteServer_Intf.pas" />
<Form>srvRemesasCliente</Form> <DCCReference Include="..\Modulos\Remesas de cliente\Model\uBizRemesasClienteServer.pas" />
<DesignClass>TDataAbstractService</DesignClass> <DCCReference Include="..\Modulos\Remesas de cliente\Servidor\srvRemesasCliente_Impl.pas">
</DCCReference> <Form>srvRemesasCliente</Form>
<DCCReference Include="..\Modulos\Remesas de proveedor\Model\schRemesasProveedorClient_Intf.pas"/> <DesignClass>TDataAbstractService</DesignClass>
<DCCReference Include="..\Modulos\Remesas de proveedor\Model\schRemesasProveedorServer_Intf.pas"/> </DCCReference>
<DCCReference Include="..\Modulos\Remesas de proveedor\Model\uBizRemesasProveedorServer.pas"/> <DCCReference Include="..\Modulos\Remesas de proveedor\Model\schRemesasProveedorClient_Intf.pas" />
<DCCReference Include="..\Modulos\Remesas de proveedor\Servidor\srvRemesasProveedor_Impl.pas"> <DCCReference Include="..\Modulos\Remesas de proveedor\Model\schRemesasProveedorServer_Intf.pas" />
<Form>srvRemesasProveedor</Form> <DCCReference Include="..\Modulos\Remesas de proveedor\Model\uBizRemesasProveedorServer.pas" />
<DesignClass>TDataAbstractService</DesignClass> <DCCReference Include="..\Modulos\Remesas de proveedor\Servidor\srvRemesasProveedor_Impl.pas">
</DCCReference> <Form>srvRemesasProveedor</Form>
<DCCReference Include="..\Modulos\Tipos de IVA\Model\schTiposIVAClient_Intf.pas"/> <DesignClass>TDataAbstractService</DesignClass>
<DCCReference Include="..\Modulos\Tipos de IVA\Model\schTiposIVAServer_Intf.pas"/> </DCCReference>
<DCCReference Include="..\Modulos\Tipos de IVA\Servidor\srvTiposIVA_Impl.pas"/> <DCCReference Include="..\Modulos\Tipos de IVA\Model\schTiposIVAClient_Intf.pas" />
<DCCReference Include="..\Modulos\Unidades de medida\Model\schUnidadesMedidaClient_Intf.pas"/> <DCCReference Include="..\Modulos\Tipos de IVA\Model\schTiposIVAServer_Intf.pas" />
<DCCReference Include="..\Modulos\Unidades de medida\Model\schUnidadesMedidaServer_Intf.pas"/> <DCCReference Include="..\Modulos\Tipos de IVA\Servidor\srvTiposIVA_Impl.pas" />
<DCCReference Include="..\Modulos\Unidades de medida\Servidor\srvUnidadesMedida_Impl.pas"> <DCCReference Include="..\Modulos\Unidades de medida\Model\schUnidadesMedidaClient_Intf.pas" />
<Form>srvUnidadesMedida</Form> <DCCReference Include="..\Modulos\Unidades de medida\Model\schUnidadesMedidaServer_Intf.pas" />
<DesignClass>TDataAbstractService</DesignClass> <DCCReference Include="..\Modulos\Unidades de medida\Servidor\srvUnidadesMedida_Impl.pas">
</DCCReference> <Form>srvUnidadesMedida</Form>
<DCCReference Include="..\Servicios\FactuGES_Intf.pas"/> <DesignClass>TDataAbstractService</DesignClass>
<DCCReference Include="..\Servicios\FactuGES_Invk.pas"/> </DCCReference>
<DCCReference Include="Configuracion\srvConfiguracion_Impl.pas"> <DCCReference Include="..\Servicios\FactuGES_Intf.pas" />
<Form>srvConfiguracion</Form> <DCCReference Include="..\Servicios\FactuGES_Invk.pas" />
<DesignClass>TDataAbstractService</DesignClass> <DCCReference Include="Configuracion\srvConfiguracion_Impl.pas">
</DCCReference> <Form>srvConfiguracion</Form>
<DCCReference Include="Configuracion\uConexionBD.pas"> <DesignClass>TDataAbstractService</DesignClass>
<Form>frConexionBD</Form> </DCCReference>
<DesignClass>TFrame</DesignClass> <DCCReference Include="Configuracion\uConexionBD.pas">
</DCCReference> <Form>frConexionBD</Form>
<DCCReference Include="Configuracion\uConfGeneral.pas"> <DesignClass>TFrame</DesignClass>
<Form>frConfGeneral</Form> </DCCReference>
<DesignClass>TFrame</DesignClass> <DCCReference Include="Configuracion\uConfGeneral.pas">
</DCCReference> <Form>frConfGeneral</Form>
<DCCReference Include="Configuracion\uConfiguracion.pas"> <DesignClass>TFrame</DesignClass>
<Form>fConfiguracion</Form> </DCCReference>
<DesignClass>TForm</DesignClass> <DCCReference Include="Configuracion\uConfiguracion.pas">
</DCCReference> <Form>fConfiguracion</Form>
<DCCReference Include="Configuracion\uFrameConfiguracion.pas"> <DesignClass>TForm</DesignClass>
<Form>FrameConfiguracion</Form> </DCCReference>
<DesignClass>TFrame</DesignClass> <DCCReference Include="Configuracion\uFrameConfiguracion.pas">
</DCCReference> <Form>FrameConfiguracion</Form>
<DCCReference Include="srvLogin_Impl.pas"> <DesignClass>TFrame</DesignClass>
<Form>srvLogin</Form> </DCCReference>
<DesignClass>TDARemoteService</DesignClass> <DCCReference Include="srvLogin_Impl.pas">
</DCCReference> <Form>srvLogin</Form>
<DCCReference Include="uAcercaDe.pas"> <DesignClass>TDARemoteService</DesignClass>
<Form>fAcercaDe</Form> </DCCReference>
</DCCReference> <DCCReference Include="uAcercaDe.pas">
<DCCReference Include="uDataModuleServer.pas"> <Form>fAcercaDe</Form>
<Form>dmServer</Form> </DCCReference>
<DesignClass>TDataModule</DesignClass> <DCCReference Include="uDataModuleServer.pas">
</DCCReference> <Form>dmServer</Form>
<DCCReference Include="uServerMainForm.pas"> <DesignClass>TDataModule</DesignClass>
<Form>fServerForm</Form> </DCCReference>
</DCCReference> <DCCReference Include="uServerMainForm.pas">
<DCCReference Include="Utiles\AHWord97.pas"/> <Form>fServerForm</Form>
<DCCReference Include="Utiles\RegExpr.pas"/> </DCCReference>
<DCCReference Include="Utiles\uBusinessUtils.pas"/> <DCCReference Include="Utiles\AHWord97.pas" />
<DCCReference Include="Utiles\uDatabaseUtils.pas"/> <DCCReference Include="Utiles\RegExpr.pas" />
<DCCReference Include="Utiles\uReferenciasUtils.pas"/> <DCCReference Include="Utiles\uBusinessUtils.pas" />
<DCCReference Include="Utiles\uRestriccionesUsuarioUtils.pas"/> <DCCReference Include="Utiles\uDatabaseUtils.pas" />
<DCCReference Include="Utiles\uSchemaUtilsServer.pas"/> <DCCReference Include="Utiles\uReferenciasUtils.pas" />
<DCCReference Include="Utiles\uServerAppUtils.pas"/> <DCCReference Include="Utiles\uRestriccionesUsuarioUtils.pas" />
<DCCReference Include="Utiles\uSesionesUtils.pas"/> <DCCReference Include="Utiles\uSchemaUtilsServer.pas" />
</ItemGroup> <DCCReference Include="Utiles\uServerAppUtils.pas" />
<DCCReference Include="Utiles\uSesionesUtils.pas" />
</ItemGroup>
</Project> </Project>
<!-- EurekaLog First Line <!-- EurekaLog First Line
[Exception Log] [Exception Log]

2
Source/Servidor/FactuGES_Server.rc
View File

@ -14,7 +14,7 @@ BEGIN
BEGIN BEGIN
VALUE "FileVersion", "1.0.8.0\0" VALUE "FileVersion", "1.0.8.0\0"
VALUE "ProductVersion", "1.0.8.0\0" VALUE "ProductVersion", "1.0.8.0\0"
VALUE "CompileDate", "viernes, 13 de junio de 2008 10:34\0" VALUE "CompileDate", "martes, 17 de junio de 2008 17:06\0"
END END
END END
BLOCK "VarFileInfo" BLOCK "VarFileInfo"