Archivado/LuisLeon_FactuGES
Archived
0
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Artículos: poder elegir si incluir o no un artículo concreto en la tienda web.

Browse Source 
git-svn-id: https://192.168.0.254/svn/Proyectos.LuisLeon_FactuGES/trunk@244 c93665c3-c93d-084d-9b98-7d5f4a9c3376
This commit is contained in:
David Arranz 2008-06-11 10:43:56 +00:00
parent a561c77e14
commit 0959e49c7f
21 changed files with 2612 additions and 1442 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

BIN
Database/FACTUGES.FDB
View File

Binary file not shown.

15
Database/VISTAS.SQL
View File

@ -58,6 +58,7 @@ DROP VIEW V_PED_PROV_ART_SIN_ALBARAN;
DROP VIEW V_PEDIDOS_PROVEEDOR;
DROP VIEW V_PED_PROV_SITUACION;
DROP VIEW V_PED_PROV_PROCESO;
DROP VIEW V_PED_PROV_CON_ALBARANES;
DROP VIEW V_PED_PROV_PENDIENTES_PROCESO;
DROP VIEW V_PED_PROV_ARTICULOS;
@ -1521,6 +1522,16 @@ FROM V_PED_PROV_ARTICULOS
WHERE (V_PED_PROV_ARTICULOS.CANTIDAD_PEDIDA > V_PED_PROV_ARTICULOS.CANTIDAD_RECIBIDA)
;
CREATE VIEW V_PED_PROV_CON_ALBARANES(
ID_PEDIDO)
AS
SELECT distinct ID_PEDIDO
FROM (SELECT DISTINCT ALBARANES_PROVEEDOR_DETALLES.ID_PEDIDO, ALBARANES_PROVEEDOR_DETALLES.ID_ALBARAN
FROM ALBARANES_PROVEEDOR_DETALLES)
GROUP BY ID_PEDIDO
having COUNT(ID_ALBARAN) > 0;
;
CREATE VIEW V_PED_PROV_PROCESO(
ID_PEDIDO)
AS
@ -2394,7 +2405,7 @@ CREATE VIEW V_ARTICULOS(
INVENTARIABLE,
ID_PROVEEDOR,
NOMBRE_PROVEEDOR,
ELIMINADO)
ELIMINADO, TIENDA_WEB)
AS
SELECT ARTICULOS.ID, ARTICULOS.ID_EMPRESA, ARTICULOS.REFERENCIA, ARTICULOS.DESCRIPCION,
@ -2408,7 +2419,7 @@ SELECT ARTICULOS.ID, ARTICULOS.ID_EMPRESA, ARTICULOS.REFERENCIA, ARTICULOS.DESCR
ARTICULOS.INVENTARIABLE,
ARTICULOS.ID_PROVEEDOR,
CONTACTOS.NOMBRE AS NOMBRE_PROVEEDOR,
ARTICULOS.ELIMINADO
ARTICULOS.ELIMINADO, ARTICULOS.TIENDA_WEB
FROM ARTICULOS
LEFT OUTER JOIN CONTACTOS ON (CONTACTOS.ID = ARTICULOS.ID_PROVEEDOR)
WHERE (ARTICULOS.ELIMINADO = 0);

2310
Database/factuges.sql
View File

File diff suppressed because it is too large Load Diff

BIN
Source/Base/GUIBase/GUIBase.res
View File

Binary file not shown.

2
Source/Cliente/FactuGES.bdsproj
View File

@ -126,7 +126,7 @@
<Directories Name="SearchPath">..\Lib;..\Modulos\Lib</Directories>
<Directories Name="Packages">PluginSDK_D10R;GUISDK_D10;DataAbstract_D10;Base;GUIBase;Usuarios;Contactos_plugin;Empresas_plugin;Empresas_controller;Empresas_model;rtl</Directories>
<Directories Name="Conditionals">_VER6;</Directories>
<Directories Name="DebugSourceDirs"></Directories>
<Directories Name="DebugSourceDirs">C:\Codigo Luis Leon\Source\Modulos\Articulos\Model\</Directories>
<Directories Name="UsePackages">True</Directories>
</Directories>
<Parameters>

BIN
Source/Cliente/FactuGES.res
View File

Binary file not shown.

5
Source/Modulos/Articulos/Articulos_Group.bdsgroup
View File

@ -12,12 +12,15 @@
<Projects Name="Base.bpl">..\..\Base\Base.bdsproj</Projects>
<Projects Name="GUIBase.bpl">..\..\Base\GUIBase\GUIBase.bdsproj</Projects>
<Projects Name="Usuarios.bpl">..\..\Base\Usuarios\Usuarios.bdsproj</Projects>
<Projects Name="Contactos_view.bpl">..\Contactos\Views\Contactos_view.bdsproj</Projects>
<Projects Name="Articulos_model.bpl">Model\Articulos_model.bdsproj</Projects>
<Projects Name="Articulos_data.bpl">Data\Articulos_data.bdsproj</Projects>
<Projects Name="Articulos_controller.bpl">Controller\Articulos_controller.bdsproj</Projects>
<Projects Name="Articulos_view.bpl">Views\Articulos_view.bdsproj</Projects>
<Projects Name="Articulos_plugin.bpl">Plugin\Articulos_plugin.bdsproj</Projects>
<Projects Name="Targets">Base.bpl GUIBase.bpl Usuarios.bpl Articulos_model.bpl Articulos_data.bpl Articulos_controller.bpl Articulos_view.bpl Articulos_plugin.bpl</Projects>
<Projects Name="FactuGES.exe">..\..\Cliente\FactuGES.bdsproj</Projects>
<Projects Name="FactuGES_Server.exe">..\..\Servidor\FactuGES_Server.bdsproj</Projects>
<Projects Name="Targets">Base.bpl GUIBase.bpl Usuarios.bpl Contactos_view.bpl Articulos_model.bpl Articulos_data.bpl Articulos_controller.bpl Articulos_view.bpl Articulos_plugin.bpl FactuGES.exe FactuGES_Server.exe</Projects>
</Projects>
<Dependencies/>
</Default.Personality>

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

@ -23,57 +23,6 @@ object DataModuleArticulos: TDataModuleArticulos
Left = 48
Top = 80
end
object DADesigntimeCall1: TDADesigntimeCall
RemoteRequest.MethodName = 'Login'
RemoteRequest.Params = <
item
Name = 'Result'
ParamType = fResult
DataType = rtBoolean
end
item
Name = 'User'
ParamType = fIn
DataType = rtString
Value = 'Administrador'
end
item
Name = 'Password'
ParamType = fIn
DataType = rtString
Value = 'luisleon07'
end
item
Name = 'LoginInfo'
ParamType = fOut
DataType = rtUserDefined
UserClassName = 'TRdxLoginInfo'
end>
RemoteService = LoginRemoteService
Left = 48
Top = 160
end
object LoginRemoteService: TRORemoteService
ServiceName = 'srvLogin'
Message = ROBinMessage1
Channel = ROWinInetHTTPChannel1
Left = 48
Top = 216
end
object ROWinInetHTTPChannel1: TROWinInetHTTPChannel
ServerLocators = <>
DispatchOptions = []
ProbeServers = False
ProbeFrequency = 60000
UserAgent = 'RemObjects SDK'
TargetURL = 'http://localhost:8090/bin'
Left = 48
Top = 272
end
object ROBinMessage1: TROBinMessage
Left = 48
Top = 324
end
object tbl_Articulos: TDACDSDataTable
RemoteUpdatesOptions = []
Fields = <
@ -135,17 +84,6 @@ object DataModuleArticulos: TDataModuleArticulos
Lookup = False
LookupCache = False
end
item
Name = 'IMAGEN'
DataType = datBlob
BlobType = dabtUnknown
DisplayWidth = 0
Alignment = taLeftJustify
InPrimaryKey = False
Calculated = False
Lookup = False
LookupCache = False
end
item
Name = 'COMISIONABLE'
DataType = datInteger
@ -286,7 +224,19 @@ object DataModuleArticulos: TDataModuleArticulos
DataType = datInteger
BlobType = dabtUnknown
DisplayWidth = 0
DisplayLabel = '[New Field]'
DisplayLabel = 'Eliminado'
Alignment = taLeftJustify
InPrimaryKey = False
Calculated = False
Lookup = False
LookupCache = False
end
item
Name = 'TIENDA_WEB'
DataType = datInteger
BlobType = dabtUnknown
DisplayWidth = 0
DisplayLabel = #191'En tienda web?'
Alignment = taLeftJustify
InPrimaryKey = False
Calculated = False
@ -448,17 +398,6 @@ object DataModuleArticulos: TDataModuleArticulos
Lookup = False
LookupCache = False
end
item
Name = 'IMAGEN'
DataType = datBlob
BlobType = dabtUnknown
DisplayWidth = 0
Alignment = taLeftJustify
InPrimaryKey = False
Calculated = False
Lookup = False
LookupCache = False
end
item
Name = 'COMISIONABLE'
DataType = datInteger
@ -605,6 +544,18 @@ object DataModuleArticulos: TDataModuleArticulos
Calculated = False
Lookup = False
LookupCache = False
end
item
Name = 'TIENDA_WEB'
DataType = datInteger
BlobType = dabtUnknown
DisplayWidth = 0
DisplayLabel = #191'En tienda web?'
Alignment = taLeftJustify
InPrimaryKey = False
Calculated = False
Lookup = False
LookupCache = False
end>
Params = <
item
@ -706,4 +657,55 @@ object DataModuleArticulos: TDataModuleArticulos
Left = 392
Top = 40
end
object DADesigntimeCall1: TDADesigntimeCall
RemoteRequest.MethodName = 'Login'
RemoteRequest.Params = <
item
Name = 'Result'
ParamType = fResult
DataType = rtBoolean
end
item
Name = 'User'
ParamType = fIn
DataType = rtString
Value = 'Administrador'
end
item
Name = 'Password'
ParamType = fIn
DataType = rtString
Value = 'luisleon07'
end
item
Name = 'LoginInfo'
ParamType = fOut
DataType = rtUserDefined
UserClassName = 'TRdxLoginInfo'
end>
RemoteService = LoginRemoteService
Left = 48
Top = 160
end
object LoginRemoteService: TRORemoteService
ServiceName = 'srvLogin'
Message = ROBinMessage1
Channel = ROWinInetHTTPChannel1
Left = 48
Top = 216
end
object ROWinInetHTTPChannel1: TROWinInetHTTPChannel
ServerLocators = <>
DispatchOptions = []
ProbeServers = False
ProbeFrequency = 60000
UserAgent = 'RemObjects SDK'
TargetURL = 'http://localhost:8099/bin'
Left = 48
Top = 272
end
object ROBinMessage1: TROBinMessage
Left = 48
Top = 324
end
end

8
Source/Modulos/Articulos/Data/uDataModuleArticulos.pas
View File

@ -13,14 +13,14 @@ type
TDataModuleArticulos = class(TDAClientDataModule, IDataModuleArticulos)
RORemoteService: TRORemoteService;
DABinAdapter: TDABINAdapter;
DADesigntimeCall1: TDADesigntimeCall;
LoginRemoteService: TRORemoteService;
ROWinInetHTTPChannel1: TROWinInetHTTPChannel;
ROBinMessage1: TROBinMessage;
tbl_Articulos: TDACDSDataTable;
ds_Articulos: TDADataSource;
tbl_ArticulosParaCliente: TDACDSDataTable;
ds_ArticulosParaCliente: TDADataSource;
DADesigntimeCall1: TDADesigntimeCall;
LoginRemoteService: TRORemoteService;
ROWinInetHTTPChannel1: TROWinInetHTTPChannel;
ROBinMessage1: TROBinMessage;
procedure DAClientDataModuleCreate(Sender: TObject);
protected

2
Source/Modulos/Articulos/Model/Articulos_model.bdsproj
View File

@ -172,7 +172,7 @@
<VersionInfoKeys Name="Comments"></VersionInfoKeys>
</VersionInfoKeys>
</Delphi.Personality>
<!-- EurekaLog First Line
<!-- EurekaLog First Line
[Exception Log]
EurekaLog Version=519
Activate=0

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

@ -9,9 +9,9 @@ const
{ Data table rules ids
Feel free to change them to something more human readable
but make sure they are unique in the context of your application }
RID_Articulos = '{FE5A8941-5AAF-4531-80AF-EC65F31221AC}';
RID_Articulos_Refresh = '{2819FEBE-E004-4298-9C11-130B7606942C}';
RID_ArticulosParaCliente = '{01F0B629-43BE-4AA7-94DC-25BED34D3DE7}';
RID_Articulos = '{67A6E9A1-BD9E-4BDE-B085-2345937FF30E}';
RID_Articulos_Refresh = '{21FABDE6-850B-4AAB-8F39-6F0B27572F72}';
RID_ArticulosParaCliente = '{F39D6A45-36F6-4909-8D24-A6C840090679}';
{ Data table names }
nme_Articulos = 'Articulos';
@ -24,7 +24,6 @@ const
fld_ArticulosREFERENCIA = 'REFERENCIA';
fld_ArticulosDESCRIPCION = 'DESCRIPCION';
fld_ArticulosFAMILIA = 'FAMILIA';
fld_ArticulosIMAGEN = 'IMAGEN';
fld_ArticulosCOMISIONABLE = 'COMISIONABLE';
fld_ArticulosFECHA_ALTA = 'FECHA_ALTA';
fld_ArticulosFECHA_MODIFICACION = 'FECHA_MODIFICACION';
@ -38,6 +37,7 @@ const
fld_ArticulosID_PROVEEDOR = 'ID_PROVEEDOR';
fld_ArticulosNOMBRE_PROVEEDOR = 'NOMBRE_PROVEEDOR';
fld_ArticulosELIMINADO = 'ELIMINADO';
fld_ArticulosTIENDA_WEB = 'TIENDA_WEB';
{ Articulos field indexes }
idx_ArticulosID = 0;
@ -45,26 +45,31 @@ const
idx_ArticulosREFERENCIA = 2;
idx_ArticulosDESCRIPCION = 3;
idx_ArticulosFAMILIA = 4;
idx_ArticulosIMAGEN = 5;
idx_ArticulosCOMISIONABLE = 6;
idx_ArticulosFECHA_ALTA = 7;
idx_ArticulosFECHA_MODIFICACION = 8;
idx_ArticulosUSUARIO = 9;
idx_ArticulosREFERENCIA_PROV = 10;
idx_ArticulosPRECIO_COSTE = 11;
idx_ArticulosPRECIO_PORTE = 12;
idx_ArticulosDESCUENTO = 13;
idx_ArticulosPRECIO_NETO = 14;
idx_ArticulosINVENTARIABLE = 15;
idx_ArticulosID_PROVEEDOR = 16;
idx_ArticulosNOMBRE_PROVEEDOR = 17;
idx_ArticulosELIMINADO = 18;
idx_ArticulosCOMISIONABLE = 5;
idx_ArticulosFECHA_ALTA = 6;
idx_ArticulosFECHA_MODIFICACION = 7;
idx_ArticulosUSUARIO = 8;
idx_ArticulosREFERENCIA_PROV = 9;
idx_ArticulosPRECIO_COSTE = 10;
idx_ArticulosPRECIO_PORTE = 11;
idx_ArticulosDESCUENTO = 12;
idx_ArticulosPRECIO_NETO = 13;
idx_ArticulosINVENTARIABLE = 14;
idx_ArticulosID_PROVEEDOR = 15;
idx_ArticulosNOMBRE_PROVEEDOR = 16;
idx_ArticulosELIMINADO = 17;
idx_ArticulosTIENDA_WEB = 18;
{ Articulos_Refresh fields }
fld_Articulos_RefreshID = 'ID';
fld_Articulos_RefreshID_EMPRESA = 'ID_EMPRESA';
fld_Articulos_RefreshREFERENCIA = 'REFERENCIA';
fld_Articulos_RefreshDESCRIPCION = 'DESCRIPCION';
fld_Articulos_RefreshFAMILIA = 'FAMILIA';
fld_Articulos_RefreshCOMISIONABLE = 'COMISIONABLE';
fld_Articulos_RefreshFECHA_ALTA = 'FECHA_ALTA';
fld_Articulos_RefreshFECHA_MODIFICACION = 'FECHA_MODIFICACION';
fld_Articulos_RefreshUSUARIO = 'USUARIO';
fld_Articulos_RefreshREFERENCIA_PROV = 'REFERENCIA_PROV';
fld_Articulos_RefreshPRECIO_COSTE = 'PRECIO_COSTE';
fld_Articulos_RefreshPRECIO_PORTE = 'PRECIO_PORTE';
@ -74,21 +79,28 @@ const
fld_Articulos_RefreshID_PROVEEDOR = 'ID_PROVEEDOR';
fld_Articulos_RefreshNOMBRE_PROVEEDOR = 'NOMBRE_PROVEEDOR';
fld_Articulos_RefreshELIMINADO = 'ELIMINADO';
fld_Articulos_RefreshTIENDA_WEB = 'TIENDA_WEB';
{ Articulos_Refresh field indexes }
idx_Articulos_RefreshID = 0;
idx_Articulos_RefreshID_EMPRESA = 1;
idx_Articulos_RefreshFECHA_ALTA = 2;
idx_Articulos_RefreshFECHA_MODIFICACION = 3;
idx_Articulos_RefreshREFERENCIA_PROV = 4;
idx_Articulos_RefreshPRECIO_COSTE = 5;
idx_Articulos_RefreshPRECIO_PORTE = 6;
idx_Articulos_RefreshDESCUENTO = 7;
idx_Articulos_RefreshPRECIO_NETO = 8;
idx_Articulos_RefreshINVENTARIABLE = 9;
idx_Articulos_RefreshID_PROVEEDOR = 10;
idx_Articulos_RefreshNOMBRE_PROVEEDOR = 11;
idx_Articulos_RefreshELIMINADO = 12;
idx_Articulos_RefreshREFERENCIA = 2;
idx_Articulos_RefreshDESCRIPCION = 3;
idx_Articulos_RefreshFAMILIA = 4;
idx_Articulos_RefreshCOMISIONABLE = 5;
idx_Articulos_RefreshFECHA_ALTA = 6;
idx_Articulos_RefreshFECHA_MODIFICACION = 7;
idx_Articulos_RefreshUSUARIO = 8;
idx_Articulos_RefreshREFERENCIA_PROV = 9;
idx_Articulos_RefreshPRECIO_COSTE = 10;
idx_Articulos_RefreshPRECIO_PORTE = 11;
idx_Articulos_RefreshDESCUENTO = 12;
idx_Articulos_RefreshPRECIO_NETO = 13;
idx_Articulos_RefreshINVENTARIABLE = 14;
idx_Articulos_RefreshID_PROVEEDOR = 15;
idx_Articulos_RefreshNOMBRE_PROVEEDOR = 16;
idx_Articulos_RefreshELIMINADO = 17;
idx_Articulos_RefreshTIENDA_WEB = 18;
{ ArticulosParaCliente fields }
fld_ArticulosParaClienteID = 'ID';
@ -96,7 +108,6 @@ const
fld_ArticulosParaClienteREFERENCIA = 'REFERENCIA';
fld_ArticulosParaClienteDESCRIPCION = 'DESCRIPCION';
fld_ArticulosParaClienteFAMILIA = 'FAMILIA';
fld_ArticulosParaClienteIMAGEN = 'IMAGEN';
fld_ArticulosParaClienteCOMISIONABLE = 'COMISIONABLE';
fld_ArticulosParaClienteFECHA_ALTA = 'FECHA_ALTA';
fld_ArticulosParaClienteFECHA_MODIFICACION = 'FECHA_MODIFICACION';
@ -110,6 +121,7 @@ const
fld_ArticulosParaClienteINVENTARIABLE = 'INVENTARIABLE';
fld_ArticulosParaClienteNOMBRE_PROVEEDOR = 'NOMBRE_PROVEEDOR';
fld_ArticulosParaClienteELIMINADO = 'ELIMINADO';
fld_ArticulosParaClienteTIENDA_WEB = 'TIENDA_WEB';
{ ArticulosParaCliente field indexes }
idx_ArticulosParaClienteID = 0;
@ -117,25 +129,25 @@ const
idx_ArticulosParaClienteREFERENCIA = 2;
idx_ArticulosParaClienteDESCRIPCION = 3;
idx_ArticulosParaClienteFAMILIA = 4;
idx_ArticulosParaClienteIMAGEN = 5;
idx_ArticulosParaClienteCOMISIONABLE = 6;
idx_ArticulosParaClienteFECHA_ALTA = 7;
idx_ArticulosParaClienteFECHA_MODIFICACION = 8;
idx_ArticulosParaClienteUSUARIO = 9;
idx_ArticulosParaClienteREFERENCIA_PROV = 10;
idx_ArticulosParaClientePRECIO_COSTE = 11;
idx_ArticulosParaClientePRECIO_PORTE = 12;
idx_ArticulosParaClienteDESCUENTO = 13;
idx_ArticulosParaClientePRECIO_NETO = 14;
idx_ArticulosParaClienteID_PROVEEDOR = 15;
idx_ArticulosParaClienteINVENTARIABLE = 16;
idx_ArticulosParaClienteNOMBRE_PROVEEDOR = 17;
idx_ArticulosParaClienteELIMINADO = 18;
idx_ArticulosParaClienteCOMISIONABLE = 5;
idx_ArticulosParaClienteFECHA_ALTA = 6;
idx_ArticulosParaClienteFECHA_MODIFICACION = 7;
idx_ArticulosParaClienteUSUARIO = 8;
idx_ArticulosParaClienteREFERENCIA_PROV = 9;
idx_ArticulosParaClientePRECIO_COSTE = 10;
idx_ArticulosParaClientePRECIO_PORTE = 11;
idx_ArticulosParaClienteDESCUENTO = 12;
idx_ArticulosParaClientePRECIO_NETO = 13;
idx_ArticulosParaClienteID_PROVEEDOR = 14;
idx_ArticulosParaClienteINVENTARIABLE = 15;
idx_ArticulosParaClienteNOMBRE_PROVEEDOR = 16;
idx_ArticulosParaClienteELIMINADO = 17;
idx_ArticulosParaClienteTIENDA_WEB = 18;
type
{ IArticulos }
IArticulos = interface(IDAStronglyTypedDataTable)
['{BB269104-D1E2-417A-80A3-6AF9044FA416}']
['{4A6C2A86-EC5A-46D6-AD3C-70F4FD2800E5}']
{ Property getters and setters }
function GetIDValue: Integer;
procedure SetIDValue(const aValue: Integer);
@ -147,8 +159,6 @@ type
procedure SetDESCRIPCIONValue(const aValue: String);
function GetFAMILIAValue: String;
procedure SetFAMILIAValue(const aValue: String);
function GetIMAGENValue: IROStream;
procedure SetIMAGENValue(const aValue: IROStream);
function GetCOMISIONABLEValue: Integer;
procedure SetCOMISIONABLEValue(const aValue: Integer);
function GetFECHA_ALTAValue: DateTime;
@ -175,6 +185,8 @@ type
procedure SetNOMBRE_PROVEEDORValue(const aValue: String);
function GetELIMINADOValue: Integer;
procedure SetELIMINADOValue(const aValue: Integer);
function GetTIENDA_WEBValue: Integer;
procedure SetTIENDA_WEBValue(const aValue: Integer);
{ Properties }
@ -183,7 +195,6 @@ type
property REFERENCIA: String read GetREFERENCIAValue write SetREFERENCIAValue;
property DESCRIPCION: String read GetDESCRIPCIONValue write SetDESCRIPCIONValue;
property FAMILIA: String read GetFAMILIAValue write SetFAMILIAValue;
property IMAGEN: IROStream read GetIMAGENValue write SetIMAGENValue;
property COMISIONABLE: Integer read GetCOMISIONABLEValue write SetCOMISIONABLEValue;
property FECHA_ALTA: DateTime read GetFECHA_ALTAValue write SetFECHA_ALTAValue;
property FECHA_MODIFICACION: DateTime read GetFECHA_MODIFICACIONValue write SetFECHA_MODIFICACIONValue;
@ -197,6 +208,7 @@ type
property ID_PROVEEDOR: Integer read GetID_PROVEEDORValue write SetID_PROVEEDORValue;
property NOMBRE_PROVEEDOR: String read GetNOMBRE_PROVEEDORValue write SetNOMBRE_PROVEEDORValue;
property ELIMINADO: Integer read GetELIMINADOValue write SetELIMINADOValue;
property TIENDA_WEB: Integer read GetTIENDA_WEBValue write SetTIENDA_WEBValue;
end;
{ TArticulosDataTableRules }
@ -214,8 +226,6 @@ type
procedure SetDESCRIPCIONValue(const aValue: String); virtual;
function GetFAMILIAValue: String; virtual;
procedure SetFAMILIAValue(const aValue: String); virtual;
function GetIMAGENValue: IROStream; virtual;
procedure SetIMAGENValue(const aValue: IROStream); virtual;
function GetCOMISIONABLEValue: Integer; virtual;
procedure SetCOMISIONABLEValue(const aValue: Integer); virtual;
function GetFECHA_ALTAValue: DateTime; virtual;
@ -242,6 +252,8 @@ type
procedure SetNOMBRE_PROVEEDORValue(const aValue: String); virtual;
function GetELIMINADOValue: Integer; virtual;
procedure SetELIMINADOValue(const aValue: Integer); virtual;
function GetTIENDA_WEBValue: Integer; virtual;
procedure SetTIENDA_WEBValue(const aValue: Integer); virtual;
{ Properties }
property ID: Integer read GetIDValue write SetIDValue;
@ -249,7 +261,6 @@ type
property REFERENCIA: String read GetREFERENCIAValue write SetREFERENCIAValue;
property DESCRIPCION: String read GetDESCRIPCIONValue write SetDESCRIPCIONValue;
property FAMILIA: String read GetFAMILIAValue write SetFAMILIAValue;
property IMAGEN: IROStream read GetIMAGENValue write SetIMAGENValue;
property COMISIONABLE: Integer read GetCOMISIONABLEValue write SetCOMISIONABLEValue;
property FECHA_ALTA: DateTime read GetFECHA_ALTAValue write SetFECHA_ALTAValue;
property FECHA_MODIFICACION: DateTime read GetFECHA_MODIFICACIONValue write SetFECHA_MODIFICACIONValue;
@ -263,6 +274,7 @@ type
property ID_PROVEEDOR: Integer read GetID_PROVEEDORValue write SetID_PROVEEDORValue;
property NOMBRE_PROVEEDOR: String read GetNOMBRE_PROVEEDORValue write SetNOMBRE_PROVEEDORValue;
property ELIMINADO: Integer read GetELIMINADOValue write SetELIMINADOValue;
property TIENDA_WEB: Integer read GetTIENDA_WEBValue write SetTIENDA_WEBValue;
public
constructor Create(aDataTable: TDADataTable); override;
@ -272,16 +284,26 @@ type
{ IArticulos_Refresh }
IArticulos_Refresh = interface(IDAStronglyTypedDataTable)
['{61A7E2D4-DB41-4BC6-81C3-7EAAB50A7B1B}']
['{2CE83C46-541D-4951-952C-F19534CFDFDE}']
{ Property getters and setters }
function GetIDValue: Integer;
procedure SetIDValue(const aValue: Integer);
function GetID_EMPRESAValue: Integer;
procedure SetID_EMPRESAValue(const aValue: Integer);
function GetREFERENCIAValue: String;
procedure SetREFERENCIAValue(const aValue: String);
function GetDESCRIPCIONValue: String;
procedure SetDESCRIPCIONValue(const aValue: String);
function GetFAMILIAValue: String;
procedure SetFAMILIAValue(const aValue: String);
function GetCOMISIONABLEValue: Integer;
procedure SetCOMISIONABLEValue(const aValue: Integer);
function GetFECHA_ALTAValue: DateTime;
procedure SetFECHA_ALTAValue(const aValue: DateTime);
function GetFECHA_MODIFICACIONValue: DateTime;
procedure SetFECHA_MODIFICACIONValue(const aValue: DateTime);
function GetUSUARIOValue: String;
procedure SetUSUARIOValue(const aValue: String);
function GetREFERENCIA_PROVValue: String;
procedure SetREFERENCIA_PROVValue(const aValue: String);
function GetPRECIO_COSTEValue: Float;
@ -300,13 +322,20 @@ type
procedure SetNOMBRE_PROVEEDORValue(const aValue: String);
function GetELIMINADOValue: Integer;
procedure SetELIMINADOValue(const aValue: Integer);
function GetTIENDA_WEBValue: Integer;
procedure SetTIENDA_WEBValue(const aValue: Integer);
{ Properties }
property ID: Integer read GetIDValue write SetIDValue;
property ID_EMPRESA: Integer read GetID_EMPRESAValue write SetID_EMPRESAValue;
property REFERENCIA: String read GetREFERENCIAValue write SetREFERENCIAValue;
property DESCRIPCION: String read GetDESCRIPCIONValue write SetDESCRIPCIONValue;
property FAMILIA: String read GetFAMILIAValue write SetFAMILIAValue;
property COMISIONABLE: Integer read GetCOMISIONABLEValue write SetCOMISIONABLEValue;
property FECHA_ALTA: DateTime read GetFECHA_ALTAValue write SetFECHA_ALTAValue;
property FECHA_MODIFICACION: DateTime read GetFECHA_MODIFICACIONValue write SetFECHA_MODIFICACIONValue;
property USUARIO: String read GetUSUARIOValue write SetUSUARIOValue;
property REFERENCIA_PROV: String read GetREFERENCIA_PROVValue write SetREFERENCIA_PROVValue;
property PRECIO_COSTE: Float read GetPRECIO_COSTEValue write SetPRECIO_COSTEValue;
property PRECIO_PORTE: Float read GetPRECIO_PORTEValue write SetPRECIO_PORTEValue;
@ -316,6 +345,7 @@ type
property ID_PROVEEDOR: Integer read GetID_PROVEEDORValue write SetID_PROVEEDORValue;
property NOMBRE_PROVEEDOR: String read GetNOMBRE_PROVEEDORValue write SetNOMBRE_PROVEEDORValue;
property ELIMINADO: Integer read GetELIMINADOValue write SetELIMINADOValue;
property TIENDA_WEB: Integer read GetTIENDA_WEBValue write SetTIENDA_WEBValue;
end;
{ TArticulos_RefreshDataTableRules }
@ -327,10 +357,20 @@ type
procedure SetIDValue(const aValue: Integer); virtual;
function GetID_EMPRESAValue: Integer; virtual;
procedure SetID_EMPRESAValue(const aValue: Integer); virtual;
function GetREFERENCIAValue: String; virtual;
procedure SetREFERENCIAValue(const aValue: String); virtual;
function GetDESCRIPCIONValue: String; virtual;
procedure SetDESCRIPCIONValue(const aValue: String); virtual;
function GetFAMILIAValue: String; virtual;
procedure SetFAMILIAValue(const aValue: String); virtual;
function GetCOMISIONABLEValue: Integer; virtual;
procedure SetCOMISIONABLEValue(const aValue: Integer); virtual;
function GetFECHA_ALTAValue: DateTime; virtual;
procedure SetFECHA_ALTAValue(const aValue: DateTime); virtual;
function GetFECHA_MODIFICACIONValue: DateTime; virtual;
procedure SetFECHA_MODIFICACIONValue(const aValue: DateTime); virtual;
function GetUSUARIOValue: String; virtual;
procedure SetUSUARIOValue(const aValue: String); virtual;
function GetREFERENCIA_PROVValue: String; virtual;
procedure SetREFERENCIA_PROVValue(const aValue: String); virtual;
function GetPRECIO_COSTEValue: Float; virtual;
@ -349,12 +389,19 @@ type
procedure SetNOMBRE_PROVEEDORValue(const aValue: String); virtual;
function GetELIMINADOValue: Integer; virtual;
procedure SetELIMINADOValue(const aValue: Integer); virtual;
function GetTIENDA_WEBValue: Integer; virtual;
procedure SetTIENDA_WEBValue(const aValue: Integer); virtual;
{ Properties }
property ID: Integer read GetIDValue write SetIDValue;
property ID_EMPRESA: Integer read GetID_EMPRESAValue write SetID_EMPRESAValue;
property REFERENCIA: String read GetREFERENCIAValue write SetREFERENCIAValue;
property DESCRIPCION: String read GetDESCRIPCIONValue write SetDESCRIPCIONValue;
property FAMILIA: String read GetFAMILIAValue write SetFAMILIAValue;
property COMISIONABLE: Integer read GetCOMISIONABLEValue write SetCOMISIONABLEValue;
property FECHA_ALTA: DateTime read GetFECHA_ALTAValue write SetFECHA_ALTAValue;
property FECHA_MODIFICACION: DateTime read GetFECHA_MODIFICACIONValue write SetFECHA_MODIFICACIONValue;
property USUARIO: String read GetUSUARIOValue write SetUSUARIOValue;
property REFERENCIA_PROV: String read GetREFERENCIA_PROVValue write SetREFERENCIA_PROVValue;
property PRECIO_COSTE: Float read GetPRECIO_COSTEValue write SetPRECIO_COSTEValue;
property PRECIO_PORTE: Float read GetPRECIO_PORTEValue write SetPRECIO_PORTEValue;
@ -364,6 +411,7 @@ type
property ID_PROVEEDOR: Integer read GetID_PROVEEDORValue write SetID_PROVEEDORValue;
property NOMBRE_PROVEEDOR: String read GetNOMBRE_PROVEEDORValue write SetNOMBRE_PROVEEDORValue;
property ELIMINADO: Integer read GetELIMINADOValue write SetELIMINADOValue;
property TIENDA_WEB: Integer read GetTIENDA_WEBValue write SetTIENDA_WEBValue;
public
constructor Create(aDataTable: TDADataTable); override;
@ -373,7 +421,7 @@ type
{ IArticulosParaCliente }
IArticulosParaCliente = interface(IDAStronglyTypedDataTable)
['{D479AEB8-64DF-401B-BE84-9052F5A05EE7}']
['{AD638688-5161-4D7A-9A8A-3CC31E0140A1}']
{ Property getters and setters }
function GetIDValue: Integer;
procedure SetIDValue(const aValue: Integer);
@ -385,8 +433,6 @@ type
procedure SetDESCRIPCIONValue(const aValue: String);
function GetFAMILIAValue: String;
procedure SetFAMILIAValue(const aValue: String);
function GetIMAGENValue: IROStream;
procedure SetIMAGENValue(const aValue: IROStream);
function GetCOMISIONABLEValue: Integer;
procedure SetCOMISIONABLEValue(const aValue: Integer);
function GetFECHA_ALTAValue: DateTime;
@ -413,6 +459,8 @@ type
procedure SetNOMBRE_PROVEEDORValue(const aValue: String);
function GetELIMINADOValue: Integer;
procedure SetELIMINADOValue(const aValue: Integer);
function GetTIENDA_WEBValue: Integer;
procedure SetTIENDA_WEBValue(const aValue: Integer);
{ Properties }
@ -421,7 +469,6 @@ type
property REFERENCIA: String read GetREFERENCIAValue write SetREFERENCIAValue;
property DESCRIPCION: String read GetDESCRIPCIONValue write SetDESCRIPCIONValue;
property FAMILIA: String read GetFAMILIAValue write SetFAMILIAValue;
property IMAGEN: IROStream read GetIMAGENValue write SetIMAGENValue;
property COMISIONABLE: Integer read GetCOMISIONABLEValue write SetCOMISIONABLEValue;
property FECHA_ALTA: DateTime read GetFECHA_ALTAValue write SetFECHA_ALTAValue;
property FECHA_MODIFICACION: DateTime read GetFECHA_MODIFICACIONValue write SetFECHA_MODIFICACIONValue;
@ -435,6 +482,7 @@ type
property INVENTARIABLE: Integer read GetINVENTARIABLEValue write SetINVENTARIABLEValue;
property NOMBRE_PROVEEDOR: String read GetNOMBRE_PROVEEDORValue write SetNOMBRE_PROVEEDORValue;
property ELIMINADO: Integer read GetELIMINADOValue write SetELIMINADOValue;
property TIENDA_WEB: Integer read GetTIENDA_WEBValue write SetTIENDA_WEBValue;
end;
{ TArticulosParaClienteDataTableRules }
@ -452,8 +500,6 @@ type
procedure SetDESCRIPCIONValue(const aValue: String); virtual;
function GetFAMILIAValue: String; virtual;
procedure SetFAMILIAValue(const aValue: String); virtual;
function GetIMAGENValue: IROStream; virtual;
procedure SetIMAGENValue(const aValue: IROStream); virtual;
function GetCOMISIONABLEValue: Integer; virtual;
procedure SetCOMISIONABLEValue(const aValue: Integer); virtual;
function GetFECHA_ALTAValue: DateTime; virtual;
@ -480,6 +526,8 @@ type
procedure SetNOMBRE_PROVEEDORValue(const aValue: String); virtual;
function GetELIMINADOValue: Integer; virtual;
procedure SetELIMINADOValue(const aValue: Integer); virtual;
function GetTIENDA_WEBValue: Integer; virtual;
procedure SetTIENDA_WEBValue(const aValue: Integer); virtual;
{ Properties }
property ID: Integer read GetIDValue write SetIDValue;
@ -487,7 +535,6 @@ type
property REFERENCIA: String read GetREFERENCIAValue write SetREFERENCIAValue;
property DESCRIPCION: String read GetDESCRIPCIONValue write SetDESCRIPCIONValue;
property FAMILIA: String read GetFAMILIAValue write SetFAMILIAValue;
property IMAGEN: IROStream read GetIMAGENValue write SetIMAGENValue;
property COMISIONABLE: Integer read GetCOMISIONABLEValue write SetCOMISIONABLEValue;
property FECHA_ALTA: DateTime read GetFECHA_ALTAValue write SetFECHA_ALTAValue;
property FECHA_MODIFICACION: DateTime read GetFECHA_MODIFICACIONValue write SetFECHA_MODIFICACIONValue;
@ -501,6 +548,7 @@ type
property INVENTARIABLE: Integer read GetINVENTARIABLEValue write SetINVENTARIABLEValue;
property NOMBRE_PROVEEDOR: String read GetNOMBRE_PROVEEDORValue write SetNOMBRE_PROVEEDORValue;
property ELIMINADO: Integer read GetELIMINADOValue write SetELIMINADOValue;
property TIENDA_WEB: Integer read GetTIENDA_WEBValue write SetTIENDA_WEBValue;
public
constructor Create(aDataTable: TDADataTable); override;
@ -573,17 +621,6 @@ begin
DataTable.Fields[idx_ArticulosFAMILIA].AsString := aValue;
end;
function TArticulosDataTableRules.GetIMAGENValue: IROStream;
begin
result := NewROStream();
DataTable.Fields[idx_ArticulosIMAGEN].SaveToStream(result);
end;
procedure TArticulosDataTableRules.SetIMAGENValue(const aValue: IROStream);
begin
DataTable.Fields[idx_ArticulosIMAGEN].LoadFromStream(aValue);
end;
function TArticulosDataTableRules.GetCOMISIONABLEValue: Integer;
begin
result := DataTable.Fields[idx_ArticulosCOMISIONABLE].AsInteger;
@ -714,6 +751,16 @@ begin
DataTable.Fields[idx_ArticulosELIMINADO].AsInteger := aValue;
end;
function TArticulosDataTableRules.GetTIENDA_WEBValue: Integer;
begin
result := DataTable.Fields[idx_ArticulosTIENDA_WEB].AsInteger;
end;
procedure TArticulosDataTableRules.SetTIENDA_WEBValue(const aValue: Integer);
begin
DataTable.Fields[idx_ArticulosTIENDA_WEB].AsInteger := aValue;
end;
{ TArticulos_RefreshDataTableRules }
constructor TArticulos_RefreshDataTableRules.Create(aDataTable: TDADataTable);
@ -746,6 +793,46 @@ begin
DataTable.Fields[idx_Articulos_RefreshID_EMPRESA].AsInteger := aValue;
end;
function TArticulos_RefreshDataTableRules.GetREFERENCIAValue: String;
begin
result := DataTable.Fields[idx_Articulos_RefreshREFERENCIA].AsString;
end;
procedure TArticulos_RefreshDataTableRules.SetREFERENCIAValue(const aValue: String);
begin
DataTable.Fields[idx_Articulos_RefreshREFERENCIA].AsString := aValue;
end;
function TArticulos_RefreshDataTableRules.GetDESCRIPCIONValue: String;
begin
result := DataTable.Fields[idx_Articulos_RefreshDESCRIPCION].AsString;
end;
procedure TArticulos_RefreshDataTableRules.SetDESCRIPCIONValue(const aValue: String);
begin
DataTable.Fields[idx_Articulos_RefreshDESCRIPCION].AsString := aValue;
end;
function TArticulos_RefreshDataTableRules.GetFAMILIAValue: String;
begin
result := DataTable.Fields[idx_Articulos_RefreshFAMILIA].AsString;
end;
procedure TArticulos_RefreshDataTableRules.SetFAMILIAValue(const aValue: String);
begin
DataTable.Fields[idx_Articulos_RefreshFAMILIA].AsString := aValue;
end;
function TArticulos_RefreshDataTableRules.GetCOMISIONABLEValue: Integer;
begin
result := DataTable.Fields[idx_Articulos_RefreshCOMISIONABLE].AsInteger;
end;
procedure TArticulos_RefreshDataTableRules.SetCOMISIONABLEValue(const aValue: Integer);
begin
DataTable.Fields[idx_Articulos_RefreshCOMISIONABLE].AsInteger := aValue;
end;
function TArticulos_RefreshDataTableRules.GetFECHA_ALTAValue: DateTime;
begin
result := DataTable.Fields[idx_Articulos_RefreshFECHA_ALTA].AsDateTime;
@ -766,6 +853,16 @@ begin
DataTable.Fields[idx_Articulos_RefreshFECHA_MODIFICACION].AsDateTime := aValue;
end;
function TArticulos_RefreshDataTableRules.GetUSUARIOValue: String;
begin
result := DataTable.Fields[idx_Articulos_RefreshUSUARIO].AsString;
end;
procedure TArticulos_RefreshDataTableRules.SetUSUARIOValue(const aValue: String);
begin
DataTable.Fields[idx_Articulos_RefreshUSUARIO].AsString := aValue;
end;
function TArticulos_RefreshDataTableRules.GetREFERENCIA_PROVValue: String;
begin
result := DataTable.Fields[idx_Articulos_RefreshREFERENCIA_PROV].AsString;
@ -856,6 +953,16 @@ begin
DataTable.Fields[idx_Articulos_RefreshELIMINADO].AsInteger := aValue;
end;
function TArticulos_RefreshDataTableRules.GetTIENDA_WEBValue: Integer;
begin
result := DataTable.Fields[idx_Articulos_RefreshTIENDA_WEB].AsInteger;
end;
procedure TArticulos_RefreshDataTableRules.SetTIENDA_WEBValue(const aValue: Integer);
begin
DataTable.Fields[idx_Articulos_RefreshTIENDA_WEB].AsInteger := aValue;
end;
{ TArticulosParaClienteDataTableRules }
constructor TArticulosParaClienteDataTableRules.Create(aDataTable: TDADataTable);
@ -918,17 +1025,6 @@ begin
DataTable.Fields[idx_ArticulosParaClienteFAMILIA].AsString := aValue;
end;
function TArticulosParaClienteDataTableRules.GetIMAGENValue: IROStream;
begin
result := NewROStream();
DataTable.Fields[idx_ArticulosParaClienteIMAGEN].SaveToStream(result);
end;
procedure TArticulosParaClienteDataTableRules.SetIMAGENValue(const aValue: IROStream);
begin
DataTable.Fields[idx_ArticulosParaClienteIMAGEN].LoadFromStream(aValue);
end;
function TArticulosParaClienteDataTableRules.GetCOMISIONABLEValue: Integer;
begin
result := DataTable.Fields[idx_ArticulosParaClienteCOMISIONABLE].AsInteger;
@ -1059,6 +1155,16 @@ begin
DataTable.Fields[idx_ArticulosParaClienteELIMINADO].AsInteger := aValue;
end;
function TArticulosParaClienteDataTableRules.GetTIENDA_WEBValue: Integer;
begin
result := DataTable.Fields[idx_ArticulosParaClienteTIENDA_WEB].AsInteger;
end;
procedure TArticulosParaClienteDataTableRules.SetTIENDA_WEBValue(const aValue: Integer);
begin
DataTable.Fields[idx_ArticulosParaClienteTIENDA_WEB].AsInteger := aValue;
end;
initialization
RegisterDataTableRules(RID_Articulos, TArticulosDataTableRules);

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

@ -9,21 +9,20 @@ const
{ Delta rules ids
Feel free to change them to something more human readable
but make sure they are unique in the context of your application }
RID_ArticulosDelta = '{3C86B4D6-46CB-46C0-A38D-92B71233360F}';
RID_Articulos_RefreshDelta = '{1226EC42-63CA-45D5-9854-A19043873F47}';
RID_ArticulosParaClienteDelta = '{A6BC0C26-3A03-4434-82D3-07521A7956C4}';
RID_ArticulosDelta = '{FEE466D0-C7DF-476E-AC1A-6ED7776964A5}';
RID_Articulos_RefreshDelta = '{A9A26E8E-F05B-4130-899A-4D4D97B92EA2}';
RID_ArticulosParaClienteDelta = '{6BFE5497-11C9-4458-B427-2DCA779E2D1D}';
type
{ IArticulosDelta }
IArticulosDelta = interface(IArticulos)
['{3C86B4D6-46CB-46C0-A38D-92B71233360F}']
['{FEE466D0-C7DF-476E-AC1A-6ED7776964A5}']
{ Property getters and setters }
function GetOldIDValue : Integer;
function GetOldID_EMPRESAValue : Integer;
function GetOldREFERENCIAValue : String;
function GetOldDESCRIPCIONValue : String;
function GetOldFAMILIAValue : String;
function GetOldIMAGENValue : IROStream;
function GetOldCOMISIONABLEValue : Integer;
function GetOldFECHA_ALTAValue : DateTime;
function GetOldFECHA_MODIFICACIONValue : DateTime;
@ -37,6 +36,7 @@ type
function GetOldID_PROVEEDORValue : Integer;
function GetOldNOMBRE_PROVEEDORValue : String;
function GetOldELIMINADOValue : Integer;
function GetOldTIENDA_WEBValue : Integer;
{ Properties }
property OldID : Integer read GetOldIDValue;
@ -44,7 +44,6 @@ type
property OldREFERENCIA : String read GetOldREFERENCIAValue;
property OldDESCRIPCION : String read GetOldDESCRIPCIONValue;
property OldFAMILIA : String read GetOldFAMILIAValue;
property OldIMAGEN : IROStream read GetOldIMAGENValue;
property OldCOMISIONABLE : Integer read GetOldCOMISIONABLEValue;
property OldFECHA_ALTA : DateTime read GetOldFECHA_ALTAValue;
property OldFECHA_MODIFICACION : DateTime read GetOldFECHA_MODIFICACIONValue;
@ -58,6 +57,7 @@ type
property OldID_PROVEEDOR : Integer read GetOldID_PROVEEDORValue;
property OldNOMBRE_PROVEEDOR : String read GetOldNOMBRE_PROVEEDORValue;
property OldELIMINADO : Integer read GetOldELIMINADOValue;
property OldTIENDA_WEB : Integer read GetOldTIENDA_WEBValue;
end;
{ TArticulosBusinessProcessorRules }
@ -80,9 +80,6 @@ type
function GetFAMILIAValue: String; virtual;
function GetOldFAMILIAValue: String; virtual;
procedure SetFAMILIAValue(const aValue: String); virtual;
function GetIMAGENValue: IROStream; virtual;
function GetOldIMAGENValue: IROStream; virtual;
procedure SetIMAGENValue(const aValue: IROStream); virtual;
function GetCOMISIONABLEValue: Integer; virtual;
function GetOldCOMISIONABLEValue: Integer; virtual;
procedure SetCOMISIONABLEValue(const aValue: Integer); virtual;
@ -122,6 +119,9 @@ type
function GetELIMINADOValue: Integer; virtual;
function GetOldELIMINADOValue: Integer; virtual;
procedure SetELIMINADOValue(const aValue: Integer); virtual;
function GetTIENDA_WEBValue: Integer; virtual;
function GetOldTIENDA_WEBValue: Integer; virtual;
procedure SetTIENDA_WEBValue(const aValue: Integer); virtual;
{ Properties }
property ID : Integer read GetIDValue write SetIDValue;
@ -134,8 +134,6 @@ type
property OldDESCRIPCION : String read GetOldDESCRIPCIONValue;
property FAMILIA : String read GetFAMILIAValue write SetFAMILIAValue;
property OldFAMILIA : String read GetOldFAMILIAValue;
property IMAGEN : IROStream read GetIMAGENValue write SetIMAGENValue;
property OldIMAGEN : IROStream read GetOldIMAGENValue;
property COMISIONABLE : Integer read GetCOMISIONABLEValue write SetCOMISIONABLEValue;
property OldCOMISIONABLE : Integer read GetOldCOMISIONABLEValue;
property FECHA_ALTA : DateTime read GetFECHA_ALTAValue write SetFECHA_ALTAValue;
@ -162,6 +160,8 @@ type
property OldNOMBRE_PROVEEDOR : String read GetOldNOMBRE_PROVEEDORValue;
property ELIMINADO : Integer read GetELIMINADOValue write SetELIMINADOValue;
property OldELIMINADO : Integer read GetOldELIMINADOValue;
property TIENDA_WEB : Integer read GetTIENDA_WEBValue write SetTIENDA_WEBValue;
property OldTIENDA_WEB : Integer read GetOldTIENDA_WEBValue;
public
constructor Create(aBusinessProcessor: TDABusinessProcessor); override;
@ -171,12 +171,17 @@ type
{ IArticulos_RefreshDelta }
IArticulos_RefreshDelta = interface(IArticulos_Refresh)
['{1226EC42-63CA-45D5-9854-A19043873F47}']
['{A9A26E8E-F05B-4130-899A-4D4D97B92EA2}']
{ Property getters and setters }
function GetOldIDValue : Integer;
function GetOldID_EMPRESAValue : Integer;
function GetOldREFERENCIAValue : String;
function GetOldDESCRIPCIONValue : String;
function GetOldFAMILIAValue : String;
function GetOldCOMISIONABLEValue : Integer;
function GetOldFECHA_ALTAValue : DateTime;
function GetOldFECHA_MODIFICACIONValue : DateTime;
function GetOldUSUARIOValue : String;
function GetOldREFERENCIA_PROVValue : String;
function GetOldPRECIO_COSTEValue : Float;
function GetOldPRECIO_PORTEValue : Float;
@ -186,12 +191,18 @@ type
function GetOldID_PROVEEDORValue : Integer;
function GetOldNOMBRE_PROVEEDORValue : String;
function GetOldELIMINADOValue : Integer;
function GetOldTIENDA_WEBValue : Integer;
{ Properties }
property OldID : Integer read GetOldIDValue;
property OldID_EMPRESA : Integer read GetOldID_EMPRESAValue;
property OldREFERENCIA : String read GetOldREFERENCIAValue;
property OldDESCRIPCION : String read GetOldDESCRIPCIONValue;
property OldFAMILIA : String read GetOldFAMILIAValue;
property OldCOMISIONABLE : Integer read GetOldCOMISIONABLEValue;
property OldFECHA_ALTA : DateTime read GetOldFECHA_ALTAValue;
property OldFECHA_MODIFICACION : DateTime read GetOldFECHA_MODIFICACIONValue;
property OldUSUARIO : String read GetOldUSUARIOValue;
property OldREFERENCIA_PROV : String read GetOldREFERENCIA_PROVValue;
property OldPRECIO_COSTE : Float read GetOldPRECIO_COSTEValue;
property OldPRECIO_PORTE : Float read GetOldPRECIO_PORTEValue;
@ -201,6 +212,7 @@ type
property OldID_PROVEEDOR : Integer read GetOldID_PROVEEDORValue;
property OldNOMBRE_PROVEEDOR : String read GetOldNOMBRE_PROVEEDORValue;
property OldELIMINADO : Integer read GetOldELIMINADOValue;
property OldTIENDA_WEB : Integer read GetOldTIENDA_WEBValue;
end;
{ TArticulos_RefreshBusinessProcessorRules }
@ -214,12 +226,27 @@ type
function GetID_EMPRESAValue: Integer; virtual;
function GetOldID_EMPRESAValue: Integer; virtual;
procedure SetID_EMPRESAValue(const aValue: Integer); virtual;
function GetREFERENCIAValue: String; virtual;
function GetOldREFERENCIAValue: String; virtual;
procedure SetREFERENCIAValue(const aValue: String); virtual;
function GetDESCRIPCIONValue: String; virtual;
function GetOldDESCRIPCIONValue: String; virtual;
procedure SetDESCRIPCIONValue(const aValue: String); virtual;
function GetFAMILIAValue: String; virtual;
function GetOldFAMILIAValue: String; virtual;
procedure SetFAMILIAValue(const aValue: String); virtual;
function GetCOMISIONABLEValue: Integer; virtual;
function GetOldCOMISIONABLEValue: Integer; virtual;
procedure SetCOMISIONABLEValue(const aValue: Integer); virtual;
function GetFECHA_ALTAValue: DateTime; virtual;
function GetOldFECHA_ALTAValue: DateTime; virtual;
procedure SetFECHA_ALTAValue(const aValue: DateTime); virtual;
function GetFECHA_MODIFICACIONValue: DateTime; virtual;
function GetOldFECHA_MODIFICACIONValue: DateTime; virtual;
procedure SetFECHA_MODIFICACIONValue(const aValue: DateTime); virtual;
function GetUSUARIOValue: String; virtual;
function GetOldUSUARIOValue: String; virtual;
procedure SetUSUARIOValue(const aValue: String); virtual;
function GetREFERENCIA_PROVValue: String; virtual;
function GetOldREFERENCIA_PROVValue: String; virtual;
procedure SetREFERENCIA_PROVValue(const aValue: String); virtual;
@ -247,16 +274,29 @@ type
function GetELIMINADOValue: Integer; virtual;
function GetOldELIMINADOValue: Integer; virtual;
procedure SetELIMINADOValue(const aValue: Integer); virtual;
function GetTIENDA_WEBValue: Integer; virtual;
function GetOldTIENDA_WEBValue: Integer; virtual;
procedure SetTIENDA_WEBValue(const aValue: Integer); virtual;
{ Properties }
property ID : Integer read GetIDValue write SetIDValue;
property OldID : Integer read GetOldIDValue;
property ID_EMPRESA : Integer read GetID_EMPRESAValue write SetID_EMPRESAValue;
property OldID_EMPRESA : Integer read GetOldID_EMPRESAValue;
property REFERENCIA : String read GetREFERENCIAValue write SetREFERENCIAValue;
property OldREFERENCIA : String read GetOldREFERENCIAValue;
property DESCRIPCION : String read GetDESCRIPCIONValue write SetDESCRIPCIONValue;
property OldDESCRIPCION : String read GetOldDESCRIPCIONValue;
property FAMILIA : String read GetFAMILIAValue write SetFAMILIAValue;
property OldFAMILIA : String read GetOldFAMILIAValue;
property COMISIONABLE : Integer read GetCOMISIONABLEValue write SetCOMISIONABLEValue;
property OldCOMISIONABLE : Integer read GetOldCOMISIONABLEValue;
property FECHA_ALTA : DateTime read GetFECHA_ALTAValue write SetFECHA_ALTAValue;
property OldFECHA_ALTA : DateTime read GetOldFECHA_ALTAValue;
property FECHA_MODIFICACION : DateTime read GetFECHA_MODIFICACIONValue write SetFECHA_MODIFICACIONValue;
property OldFECHA_MODIFICACION : DateTime read GetOldFECHA_MODIFICACIONValue;
property USUARIO : String read GetUSUARIOValue write SetUSUARIOValue;
property OldUSUARIO : String read GetOldUSUARIOValue;
property REFERENCIA_PROV : String read GetREFERENCIA_PROVValue write SetREFERENCIA_PROVValue;
property OldREFERENCIA_PROV : String read GetOldREFERENCIA_PROVValue;
property PRECIO_COSTE : Float read GetPRECIO_COSTEValue write SetPRECIO_COSTEValue;
@ -275,6 +315,8 @@ type
property OldNOMBRE_PROVEEDOR : String read GetOldNOMBRE_PROVEEDORValue;
property ELIMINADO : Integer read GetELIMINADOValue write SetELIMINADOValue;
property OldELIMINADO : Integer read GetOldELIMINADOValue;
property TIENDA_WEB : Integer read GetTIENDA_WEBValue write SetTIENDA_WEBValue;
property OldTIENDA_WEB : Integer read GetOldTIENDA_WEBValue;
public
constructor Create(aBusinessProcessor: TDABusinessProcessor); override;
@ -284,14 +326,13 @@ type
{ IArticulosParaClienteDelta }
IArticulosParaClienteDelta = interface(IArticulosParaCliente)
['{A6BC0C26-3A03-4434-82D3-07521A7956C4}']
['{6BFE5497-11C9-4458-B427-2DCA779E2D1D}']
{ Property getters and setters }
function GetOldIDValue : Integer;
function GetOldID_EMPRESAValue : Integer;
function GetOldREFERENCIAValue : String;
function GetOldDESCRIPCIONValue : String;
function GetOldFAMILIAValue : String;
function GetOldIMAGENValue : IROStream;
function GetOldCOMISIONABLEValue : Integer;
function GetOldFECHA_ALTAValue : DateTime;
function GetOldFECHA_MODIFICACIONValue : DateTime;
@ -305,6 +346,7 @@ type
function GetOldINVENTARIABLEValue : Integer;
function GetOldNOMBRE_PROVEEDORValue : String;
function GetOldELIMINADOValue : Integer;
function GetOldTIENDA_WEBValue : Integer;
{ Properties }
property OldID : Integer read GetOldIDValue;
@ -312,7 +354,6 @@ type
property OldREFERENCIA : String read GetOldREFERENCIAValue;
property OldDESCRIPCION : String read GetOldDESCRIPCIONValue;
property OldFAMILIA : String read GetOldFAMILIAValue;
property OldIMAGEN : IROStream read GetOldIMAGENValue;
property OldCOMISIONABLE : Integer read GetOldCOMISIONABLEValue;
property OldFECHA_ALTA : DateTime read GetOldFECHA_ALTAValue;
property OldFECHA_MODIFICACION : DateTime read GetOldFECHA_MODIFICACIONValue;
@ -326,6 +367,7 @@ type
property OldINVENTARIABLE : Integer read GetOldINVENTARIABLEValue;
property OldNOMBRE_PROVEEDOR : String read GetOldNOMBRE_PROVEEDORValue;
property OldELIMINADO : Integer read GetOldELIMINADOValue;
property OldTIENDA_WEB : Integer read GetOldTIENDA_WEBValue;
end;
{ TArticulosParaClienteBusinessProcessorRules }
@ -348,9 +390,6 @@ type
function GetFAMILIAValue: String; virtual;
function GetOldFAMILIAValue: String; virtual;
procedure SetFAMILIAValue(const aValue: String); virtual;
function GetIMAGENValue: IROStream; virtual;
function GetOldIMAGENValue: IROStream; virtual;
procedure SetIMAGENValue(const aValue: IROStream); virtual;
function GetCOMISIONABLEValue: Integer; virtual;
function GetOldCOMISIONABLEValue: Integer; virtual;
procedure SetCOMISIONABLEValue(const aValue: Integer); virtual;
@ -390,6 +429,9 @@ type
function GetELIMINADOValue: Integer; virtual;
function GetOldELIMINADOValue: Integer; virtual;
procedure SetELIMINADOValue(const aValue: Integer); virtual;
function GetTIENDA_WEBValue: Integer; virtual;
function GetOldTIENDA_WEBValue: Integer; virtual;
procedure SetTIENDA_WEBValue(const aValue: Integer); virtual;
{ Properties }
property ID : Integer read GetIDValue write SetIDValue;
@ -402,8 +444,6 @@ type
property OldDESCRIPCION : String read GetOldDESCRIPCIONValue;
property FAMILIA : String read GetFAMILIAValue write SetFAMILIAValue;
property OldFAMILIA : String read GetOldFAMILIAValue;
property IMAGEN : IROStream read GetIMAGENValue write SetIMAGENValue;
property OldIMAGEN : IROStream read GetOldIMAGENValue;
property COMISIONABLE : Integer read GetCOMISIONABLEValue write SetCOMISIONABLEValue;
property OldCOMISIONABLE : Integer read GetOldCOMISIONABLEValue;
property FECHA_ALTA : DateTime read GetFECHA_ALTAValue write SetFECHA_ALTAValue;
@ -430,6 +470,8 @@ type
property OldNOMBRE_PROVEEDOR : String read GetOldNOMBRE_PROVEEDORValue;
property ELIMINADO : Integer read GetELIMINADOValue write SetELIMINADOValue;
property OldELIMINADO : Integer read GetOldELIMINADOValue;
property TIENDA_WEB : Integer read GetTIENDA_WEBValue write SetTIENDA_WEBValue;
property OldTIENDA_WEB : Integer read GetOldTIENDA_WEBValue;
public
constructor Create(aBusinessProcessor: TDABusinessProcessor); override;
@ -528,23 +570,6 @@ begin
BusinessProcessor.CurrentChange.NewValueByName[fld_ArticulosFAMILIA] := aValue;
end;
function TArticulosBusinessProcessorRules.GetIMAGENValue: IROStream;
begin
result := NewROStream();
WriteVariantBinaryToBinary(BusinessProcessor.CurrentChange.NewValueByName[fld_ArticulosIMAGEN], result.Stream);
end;
function TArticulosBusinessProcessorRules.GetOldIMAGENValue: IROStream;
begin
result := NewROStream();
WriteVariantBinaryToBinary(BusinessProcessor.CurrentChange.OldValueByName[fld_ArticulosIMAGEN], result.Stream);
end;
procedure TArticulosBusinessProcessorRules.SetIMAGENValue(const aValue: IROStream);
begin
BusinessProcessor.CurrentChange.NewValueByName[fld_ArticulosIMAGEN] := VariantBinaryFromBinary(aValue.Stream);
end;
function TArticulosBusinessProcessorRules.GetCOMISIONABLEValue: Integer;
begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_ArticulosCOMISIONABLE];
@ -740,6 +765,21 @@ begin
BusinessProcessor.CurrentChange.NewValueByName[fld_ArticulosELIMINADO] := aValue;
end;
function TArticulosBusinessProcessorRules.GetTIENDA_WEBValue: Integer;
begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_ArticulosTIENDA_WEB];
end;
function TArticulosBusinessProcessorRules.GetOldTIENDA_WEBValue: Integer;
begin
result := BusinessProcessor.CurrentChange.OldValueByName[fld_ArticulosTIENDA_WEB];
end;
procedure TArticulosBusinessProcessorRules.SetTIENDA_WEBValue(const aValue: Integer);
begin
BusinessProcessor.CurrentChange.NewValueByName[fld_ArticulosTIENDA_WEB] := aValue;
end;
{ TArticulos_RefreshBusinessProcessorRules }
constructor TArticulos_RefreshBusinessProcessorRules.Create(aBusinessProcessor: TDABusinessProcessor);
@ -782,6 +822,66 @@ begin
BusinessProcessor.CurrentChange.NewValueByName[fld_Articulos_RefreshID_EMPRESA] := aValue;
end;
function TArticulos_RefreshBusinessProcessorRules.GetREFERENCIAValue: String;
begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_Articulos_RefreshREFERENCIA];
end;
function TArticulos_RefreshBusinessProcessorRules.GetOldREFERENCIAValue: String;
begin
result := BusinessProcessor.CurrentChange.OldValueByName[fld_Articulos_RefreshREFERENCIA];
end;
procedure TArticulos_RefreshBusinessProcessorRules.SetREFERENCIAValue(const aValue: String);
begin
BusinessProcessor.CurrentChange.NewValueByName[fld_Articulos_RefreshREFERENCIA] := aValue;
end;
function TArticulos_RefreshBusinessProcessorRules.GetDESCRIPCIONValue: String;
begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_Articulos_RefreshDESCRIPCION];
end;
function TArticulos_RefreshBusinessProcessorRules.GetOldDESCRIPCIONValue: String;
begin
result := BusinessProcessor.CurrentChange.OldValueByName[fld_Articulos_RefreshDESCRIPCION];
end;
procedure TArticulos_RefreshBusinessProcessorRules.SetDESCRIPCIONValue(const aValue: String);
begin
BusinessProcessor.CurrentChange.NewValueByName[fld_Articulos_RefreshDESCRIPCION] := aValue;
end;
function TArticulos_RefreshBusinessProcessorRules.GetFAMILIAValue: String;
begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_Articulos_RefreshFAMILIA];
end;
function TArticulos_RefreshBusinessProcessorRules.GetOldFAMILIAValue: String;
begin
result := BusinessProcessor.CurrentChange.OldValueByName[fld_Articulos_RefreshFAMILIA];
end;
procedure TArticulos_RefreshBusinessProcessorRules.SetFAMILIAValue(const aValue: String);
begin
BusinessProcessor.CurrentChange.NewValueByName[fld_Articulos_RefreshFAMILIA] := aValue;
end;
function TArticulos_RefreshBusinessProcessorRules.GetCOMISIONABLEValue: Integer;
begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_Articulos_RefreshCOMISIONABLE];
end;
function TArticulos_RefreshBusinessProcessorRules.GetOldCOMISIONABLEValue: Integer;
begin
result := BusinessProcessor.CurrentChange.OldValueByName[fld_Articulos_RefreshCOMISIONABLE];
end;
procedure TArticulos_RefreshBusinessProcessorRules.SetCOMISIONABLEValue(const aValue: Integer);
begin
BusinessProcessor.CurrentChange.NewValueByName[fld_Articulos_RefreshCOMISIONABLE] := aValue;
end;
function TArticulos_RefreshBusinessProcessorRules.GetFECHA_ALTAValue: DateTime;
begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_Articulos_RefreshFECHA_ALTA];
@ -812,6 +912,21 @@ begin
BusinessProcessor.CurrentChange.NewValueByName[fld_Articulos_RefreshFECHA_MODIFICACION] := aValue;
end;
function TArticulos_RefreshBusinessProcessorRules.GetUSUARIOValue: String;
begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_Articulos_RefreshUSUARIO];
end;
function TArticulos_RefreshBusinessProcessorRules.GetOldUSUARIOValue: String;
begin
result := BusinessProcessor.CurrentChange.OldValueByName[fld_Articulos_RefreshUSUARIO];
end;
procedure TArticulos_RefreshBusinessProcessorRules.SetUSUARIOValue(const aValue: String);
begin
BusinessProcessor.CurrentChange.NewValueByName[fld_Articulos_RefreshUSUARIO] := aValue;
end;
function TArticulos_RefreshBusinessProcessorRules.GetREFERENCIA_PROVValue: String;
begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_Articulos_RefreshREFERENCIA_PROV];
@ -947,6 +1062,21 @@ begin
BusinessProcessor.CurrentChange.NewValueByName[fld_Articulos_RefreshELIMINADO] := aValue;
end;
function TArticulos_RefreshBusinessProcessorRules.GetTIENDA_WEBValue: Integer;
begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_Articulos_RefreshTIENDA_WEB];
end;
function TArticulos_RefreshBusinessProcessorRules.GetOldTIENDA_WEBValue: Integer;
begin
result := BusinessProcessor.CurrentChange.OldValueByName[fld_Articulos_RefreshTIENDA_WEB];
end;
procedure TArticulos_RefreshBusinessProcessorRules.SetTIENDA_WEBValue(const aValue: Integer);
begin
BusinessProcessor.CurrentChange.NewValueByName[fld_Articulos_RefreshTIENDA_WEB] := aValue;
end;
{ TArticulosParaClienteBusinessProcessorRules }
constructor TArticulosParaClienteBusinessProcessorRules.Create(aBusinessProcessor: TDABusinessProcessor);
@ -1034,23 +1164,6 @@ begin
BusinessProcessor.CurrentChange.NewValueByName[fld_ArticulosParaClienteFAMILIA] := aValue;
end;
function TArticulosParaClienteBusinessProcessorRules.GetIMAGENValue: IROStream;
begin
result := NewROStream();
WriteVariantBinaryToBinary(BusinessProcessor.CurrentChange.NewValueByName[fld_ArticulosParaClienteIMAGEN], result.Stream);
end;
function TArticulosParaClienteBusinessProcessorRules.GetOldIMAGENValue: IROStream;
begin
result := NewROStream();
WriteVariantBinaryToBinary(BusinessProcessor.CurrentChange.OldValueByName[fld_ArticulosParaClienteIMAGEN], result.Stream);
end;
procedure TArticulosParaClienteBusinessProcessorRules.SetIMAGENValue(const aValue: IROStream);
begin
BusinessProcessor.CurrentChange.NewValueByName[fld_ArticulosParaClienteIMAGEN] := VariantBinaryFromBinary(aValue.Stream);
end;
function TArticulosParaClienteBusinessProcessorRules.GetCOMISIONABLEValue: Integer;
begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_ArticulosParaClienteCOMISIONABLE];
@ -1246,6 +1359,21 @@ begin
BusinessProcessor.CurrentChange.NewValueByName[fld_ArticulosParaClienteELIMINADO] := aValue;
end;
function TArticulosParaClienteBusinessProcessorRules.GetTIENDA_WEBValue: Integer;
begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_ArticulosParaClienteTIENDA_WEB];
end;
function TArticulosParaClienteBusinessProcessorRules.GetOldTIENDA_WEBValue: Integer;
begin
result := BusinessProcessor.CurrentChange.OldValueByName[fld_ArticulosParaClienteTIENDA_WEB];
end;
procedure TArticulosParaClienteBusinessProcessorRules.SetTIENDA_WEBValue(const aValue: Integer);
begin
BusinessProcessor.CurrentChange.NewValueByName[fld_ArticulosParaClienteTIENDA_WEB] := aValue;
end;
initialization
RegisterBusinessProcessorRules(RID_ArticulosDelta, TArticulosBusinessProcessorRules);

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

@ -180,13 +180,13 @@ object srvArticulos: TsrvArticulos
SQL =
'SELECT V_ARTICULOS.ID, V_ARTICULOS.ID_EMPRESA, V_ARTICULOS.REFER' +
'ENCIA, V_ARTICULOS.DESCRIPCION,'#10' V_ARTICULOS.FAMILIA, V_AR' +
'TICULOS.IMAGEN, V_ARTICULOS.COMISIONABLE, V_ARTICULOS.FECHA_ALTA' +
','#10' V_ARTICULOS.FECHA_MODIFICACION, V_ARTICULOS.USUARIO,'#10' ' +
' V_ARTICULOS.REFERENCIA_PROV,'#10' V_ARTICULOS.PRECIO_COST' +
'E,'#10' V_ARTICULOS.PRECIO_PORTE,'#10' V_ARTICULOS.DESCUENTO' +
','#10' V_ARTICULOS.PRECIO_NETO,'#10' V_ARTICULOS.INVENTARIAB' +
'LE,'#10' V_ARTICULOS.ID_PROVEEDOR,'#10' V_ARTICULOS.NOMBRE_P' +
'ROVEEDOR,'#10' V_ARTICULOS.ELIMINADO'#10'FROM V_ARTICULOS'
'TICULOS.COMISIONABLE, V_ARTICULOS.FECHA_ALTA,'#10' V_ARTICULOS' +
'.FECHA_MODIFICACION, V_ARTICULOS.USUARIO,'#10' V_ARTICULOS.REF' +
'ERENCIA_PROV,'#10' V_ARTICULOS.PRECIO_COSTE,'#10' V_ARTICULO' +
'S.PRECIO_PORTE,'#10' V_ARTICULOS.DESCUENTO,'#10' V_ARTICULOS' +
'.PRECIO_NETO,'#10' V_ARTICULOS.INVENTARIABLE,'#10' V_ARTICUL' +
'OS.ID_PROVEEDOR,'#10' V_ARTICULOS.NOMBRE_PROVEEDOR,'#10' V_A' +
'RTICULOS.ELIMINADO, V_ARTICULOS.TIENDA_WEB'#10'FROM V_ARTICULOS'
StatementType = stSQL
ColumnMappings = <
item
@ -209,10 +209,6 @@ object srvArticulos: TsrvArticulos
DatasetField = 'FAMILIA'
TableField = 'FAMILIA'
end
item
DatasetField = 'IMAGEN'
TableField = 'IMAGEN'
end
item
DatasetField = 'COMISIONABLE'
TableField = 'COMISIONABLE'
@ -249,6 +245,10 @@ object srvArticulos: TsrvArticulos
DatasetField = 'PRECIO_NETO'
TableField = 'PRECIO_NETO'
end
item
DatasetField = 'INVENTARIABLE'
TableField = 'INVENTARIABLE'
end
item
DatasetField = 'ID_PROVEEDOR'
TableField = 'ID_PROVEEDOR'
@ -257,13 +257,13 @@ object srvArticulos: TsrvArticulos
DatasetField = 'NOMBRE_PROVEEDOR'
TableField = 'NOMBRE_PROVEEDOR'
end
item
DatasetField = 'INVENTARIABLE'
TableField = 'INVENTARIABLE'
end
item
DatasetField = 'ELIMINADO'
TableField = 'ELIMINADO'
end
item
DatasetField = 'TIENDA_WEB'
TableField = 'TIENDA_WEB'
end>
end>
Name = 'Articulos'
@ -327,8 +327,322 @@ object srvArticulos: TsrvArticulos
LookupCache = False
end
item
Name = 'IMAGEN'
DataType = datBlob
Name = 'COMISIONABLE'
DataType = datInteger
BlobType = dabtUnknown
DisplayWidth = 0
Alignment = taLeftJustify
InPrimaryKey = False
Calculated = False
Lookup = False
LookupCache = False
end
item
Name = 'FECHA_ALTA'
DataType = datDateTime
BlobType = dabtUnknown
DisplayWidth = 0
Alignment = taLeftJustify
InPrimaryKey = False
Calculated = False
Lookup = False
LookupCache = False
end
item
Name = 'FECHA_MODIFICACION'
DataType = datDateTime
BlobType = dabtUnknown
DisplayWidth = 0
Alignment = taLeftJustify
InPrimaryKey = False
Calculated = False
Lookup = False
LookupCache = False
end
item
Name = 'USUARIO'
DataType = datString
Size = 20
BlobType = dabtUnknown
DisplayWidth = 0
Alignment = taLeftJustify
InPrimaryKey = False
Calculated = False
Lookup = False
LookupCache = False
end
item
Name = 'REFERENCIA_PROV'
DataType = datString
Size = 255
BlobType = dabtUnknown
DisplayWidth = 0
Alignment = taLeftJustify
InPrimaryKey = False
Calculated = False
Lookup = False
LookupCache = False
end
item
Name = 'PRECIO_COSTE'
DataType = datFloat
BlobType = dabtUnknown
DisplayWidth = 0
Alignment = taLeftJustify
InPrimaryKey = False
Calculated = False
Lookup = False
LookupCache = False
end
item
Name = 'PRECIO_PORTE'
DataType = datFloat
BlobType = dabtUnknown
DisplayWidth = 0
Alignment = taLeftJustify
InPrimaryKey = False
Calculated = False
Lookup = False
LookupCache = False
end
item
Name = 'DESCUENTO'
DataType = datFloat
BlobType = dabtUnknown
DisplayWidth = 0
Alignment = taLeftJustify
InPrimaryKey = False
Calculated = False
Lookup = False
LookupCache = False
end
item
Name = 'PRECIO_NETO'
DataType = datFloat
BlobType = dabtUnknown
DisplayWidth = 0
Alignment = taLeftJustify
InPrimaryKey = False
Calculated = False
Lookup = False
LookupCache = False
end
item
Name = 'INVENTARIABLE'
DataType = datInteger
BlobType = dabtUnknown
DisplayWidth = 0
Alignment = taLeftJustify
InPrimaryKey = False
Calculated = False
Lookup = False
LookupCache = False
end
item
Name = 'ID_PROVEEDOR'
DataType = datInteger
BlobType = dabtUnknown
DisplayWidth = 0
Alignment = taLeftJustify
InPrimaryKey = False
Calculated = False
Lookup = False
LookupCache = False
end
item
Name = 'NOMBRE_PROVEEDOR'
DataType = datString
Size = 255
BlobType = dabtUnknown
DisplayWidth = 0
Alignment = taLeftJustify
InPrimaryKey = False
Calculated = False
Lookup = False
LookupCache = False
end
item
Name = 'ELIMINADO'
DataType = datInteger
BlobType = dabtUnknown
DisplayWidth = 0
DisplayLabel = 'Eliminado'
Alignment = taLeftJustify
InPrimaryKey = False
Calculated = False
Lookup = False
LookupCache = False
end
item
Name = 'TIENDA_WEB'
DataType = datInteger
BlobType = dabtUnknown
DisplayWidth = 0
DisplayLabel = #191'En tienda web?'
Alignment = taLeftJustify
InPrimaryKey = False
Calculated = False
Lookup = False
LookupCache = False
end>
BusinessRulesClient.ScriptLanguage = rslPascalScript
BusinessRulesServer.ScriptLanguage = rslPascalScript
end
item
Params = <
item
Name = 'ID'
DataType = datInteger
BlobType = dabtUnknown
Value = '1'
ParamType = daptInput
end>
Statements = <
item
Connection = 'IBX'
TargetTable = 'V_ARTICULOS'
SQL =
'SELECT V_ARTICULOS.ID, V_ARTICULOS.ID_EMPRESA, V_ARTICULOS.REFER' +
'ENCIA, V_ARTICULOS.DESCRIPCION,'#10' V_ARTICULOS.FAMILIA, V_AR' +
'TICULOS.COMISIONABLE, V_ARTICULOS.FECHA_ALTA,'#10' V_ARTICULOS' +
'.FECHA_MODIFICACION, V_ARTICULOS.USUARIO,'#10' V_ARTICULOS.REF' +
'ERENCIA_PROV,'#10' V_ARTICULOS.PRECIO_COSTE,'#10' V_ARTICULO' +
'S.PRECIO_PORTE,'#10' V_ARTICULOS.DESCUENTO,'#10' V_ARTICULOS' +
'.PRECIO_NETO,'#10' V_ARTICULOS.INVENTARIABLE,'#10' V_ARTICUL' +
'OS.ID_PROVEEDOR,'#10' V_ARTICULOS.NOMBRE_PROVEEDOR,'#10' V_A' +
'RTICULOS.ELIMINADO, V_ARTICULOS.TIENDA_WEB'#10'FROM V_ARTICULOS'#10'WHER' +
'E V_ARTICULOS.ID = :ID'
StatementType = stSQL
ColumnMappings = <
item
DatasetField = 'ID'
TableField = 'ID'
end
item
DatasetField = 'ID_EMPRESA'
TableField = 'ID_EMPRESA'
end
item
DatasetField = 'FECHA_ALTA'
TableField = 'FECHA_ALTA'
end
item
DatasetField = 'FECHA_MODIFICACION'
TableField = 'FECHA_MODIFICACION'
end
item
DatasetField = 'PRECIO_COSTE'
TableField = 'PRECIO_COSTE'
end
item
DatasetField = 'PRECIO_PORTE'
TableField = 'PRECIO_PORTE'
end
item
DatasetField = 'DESCUENTO'
TableField = 'DESCUENTO'
end
item
DatasetField = 'ID_PROVEEDOR'
TableField = 'ID_PROVEEDOR'
end
item
DatasetField = 'NOMBRE_PROVEEDOR'
TableField = 'NOMBRE_PROVEEDOR'
end
item
DatasetField = 'PRECIO_NETO'
TableField = 'PRECIO_NETO'
end
item
DatasetField = 'REFERENCIA_PROV'
TableField = 'REFERENCIA_PROV'
end
item
DatasetField = 'INVENTARIABLE'
TableField = 'INVENTARIABLE'
end
item
DatasetField = 'ELIMINADO'
TableField = 'ELIMINADO'
end
item
DatasetField = 'REFERENCIA'
TableField = 'REFERENCIA'
end
item
DatasetField = 'DESCRIPCION'
TableField = 'DESCRIPCION'
end
item
DatasetField = 'FAMILIA'
TableField = 'FAMILIA'
end
item
DatasetField = 'COMISIONABLE'
TableField = 'COMISIONABLE'
end
item
DatasetField = 'USUARIO'
TableField = 'USUARIO'
end
item
DatasetField = 'TIENDA_WEB'
TableField = 'TIENDA_WEB'
end>
end>
Name = 'Articulos_Refresh'
Fields = <
item
Name = 'ID'
DataType = datInteger
BlobType = dabtUnknown
DisplayWidth = 0
Alignment = taLeftJustify
InPrimaryKey = False
Calculated = False
Lookup = False
LookupCache = False
end
item
Name = 'ID_EMPRESA'
DataType = datInteger
BlobType = dabtUnknown
DisplayWidth = 0
Alignment = taLeftJustify
InPrimaryKey = False
Calculated = False
Lookup = False
LookupCache = False
end
item
Name = 'REFERENCIA'
DataType = datString
Size = 255
BlobType = dabtUnknown
DisplayWidth = 0
Alignment = taLeftJustify
InPrimaryKey = False
Calculated = False
Lookup = False
LookupCache = False
end
item
Name = 'DESCRIPCION'
DataType = datString
Size = 255
BlobType = dabtUnknown
DisplayWidth = 0
Alignment = taLeftJustify
InPrimaryKey = False
Calculated = False
Lookup = False
LookupCache = False
end
item
Name = 'FAMILIA'
DataType = datString
Size = 255
BlobType = dabtUnknown
DisplayWidth = 0
Alignment = taLeftJustify
@ -483,231 +797,13 @@ object srvArticulos: TsrvArticulos
Calculated = False
Lookup = False
LookupCache = False
end>
BusinessRulesClient.ScriptLanguage = rslPascalScript
BusinessRulesServer.ScriptLanguage = rslPascalScript
end
item
Params = <
end
item
Name = 'ID'
DataType = datInteger
BlobType = dabtUnknown
Value = '1'
ParamType = daptInput
end>
Statements = <
item
Connection = 'IBX'
TargetTable = 'V_ARTICULOS'
SQL =
'SELECT V_ARTICULOS.ID, V_ARTICULOS.ID_EMPRESA, V_ARTICULOS.REFER' +
'ENCIA, V_ARTICULOS.DESCRIPCION,'#10' V_ARTICULOS.FAMILIA, V_AR' +
'TICULOS.IMAGEN, V_ARTICULOS.COMISIONABLE, V_ARTICULOS.FECHA_ALTA' +
','#10' V_ARTICULOS.FECHA_MODIFICACION, V_ARTICULOS.USUARIO,'#10' ' +
' V_ARTICULOS.REFERENCIA_PROV,'#10' V_ARTICULOS.PRECIO_COST' +
'E,'#10' V_ARTICULOS.PRECIO_PORTE,'#10' V_ARTICULOS.DESCUENTO' +
','#10' V_ARTICULOS.PRECIO_NETO,'#10' V_ARTICULOS.INVENTARIAB' +
'LE,'#10' V_ARTICULOS.ID_PROVEEDOR,'#10' V_ARTICULOS.NOMBRE_P' +
'ROVEEDOR,'#10' V_ARTICULOS.ELIMINADO'#10'FROM V_ARTICULOS'#10'WHERE V_' +
'ARTICULOS.ID = :ID'
StatementType = stSQL
ColumnMappings = <
item
DatasetField = 'ID'
TableField = 'ID'
end
item
DatasetField = 'ID_EMPRESA'
TableField = 'ID_EMPRESA'
end
item
DatasetField = 'FECHA_ALTA'
TableField = 'FECHA_ALTA'
end
item
DatasetField = 'FECHA_MODIFICACION'
TableField = 'FECHA_MODIFICACION'
end
item
DatasetField = 'PRECIO_COSTE'
TableField = 'PRECIO_COSTE'
end
item
DatasetField = 'PRECIO_PORTE'
TableField = 'PRECIO_PORTE'
end
item
DatasetField = 'DESCUENTO'
TableField = 'DESCUENTO'
end
item
DatasetField = 'ID_PROVEEDOR'
TableField = 'ID_PROVEEDOR'
end
item
DatasetField = 'NOMBRE_PROVEEDOR'
TableField = 'NOMBRE_PROVEEDOR'
end
item
DatasetField = 'PRECIO_NETO'
TableField = 'PRECIO_NETO'
end
item
DatasetField = 'REFERENCIA_PROV'
TableField = 'REFERENCIA_PROV'
end
item
DatasetField = 'INVENTARIABLE'
TableField = 'INVENTARIABLE'
end
item
DatasetField = 'ELIMINADO'
TableField = 'ELIMINADO'
end>
end>
Name = 'Articulos_Refresh'
Fields = <
item
Name = 'ID'
Name = 'TIENDA_WEB'
DataType = datInteger
BlobType = dabtUnknown
DisplayWidth = 0
Alignment = taLeftJustify
InPrimaryKey = False
Calculated = False
Lookup = False
LookupCache = False
end
item
Name = 'ID_EMPRESA'
DataType = datInteger
BlobType = dabtUnknown
DisplayWidth = 0
Alignment = taLeftJustify
InPrimaryKey = False
Calculated = False
Lookup = False
LookupCache = False
end
item
Name = 'FECHA_ALTA'
DataType = datDateTime
BlobType = dabtUnknown
DisplayWidth = 0
Alignment = taLeftJustify
InPrimaryKey = False
Calculated = False
Lookup = False
LookupCache = False
end
item
Name = 'FECHA_MODIFICACION'
DataType = datDateTime
BlobType = dabtUnknown
DisplayWidth = 0
Alignment = taLeftJustify
InPrimaryKey = False
Calculated = False
Lookup = False
LookupCache = False
end
item
Name = 'REFERENCIA_PROV'
DataType = datString
Size = 255
BlobType = dabtUnknown
DisplayWidth = 0
Alignment = taLeftJustify
InPrimaryKey = False
Calculated = False
Lookup = False
LookupCache = False
end
item
Name = 'PRECIO_COSTE'
DataType = datFloat
BlobType = dabtUnknown
DisplayWidth = 0
Alignment = taLeftJustify
InPrimaryKey = False
Calculated = False
Lookup = False
LookupCache = False
end
item
Name = 'PRECIO_PORTE'
DataType = datFloat
BlobType = dabtUnknown
DisplayWidth = 0
Alignment = taLeftJustify
InPrimaryKey = False
Calculated = False
Lookup = False
LookupCache = False
end
item
Name = 'DESCUENTO'
DataType = datFloat
BlobType = dabtUnknown
DisplayWidth = 0
Alignment = taLeftJustify
InPrimaryKey = False
Calculated = False
Lookup = False
LookupCache = False
end
item
Name = 'PRECIO_NETO'
DataType = datFloat
BlobType = dabtUnknown
DisplayWidth = 0
Alignment = taLeftJustify
InPrimaryKey = False
Calculated = False
Lookup = False
LookupCache = False
end
item
Name = 'INVENTARIABLE'
DataType = datInteger
BlobType = dabtUnknown
DisplayWidth = 0
Alignment = taLeftJustify
InPrimaryKey = False
Calculated = False
Lookup = False
LookupCache = False
end
item
Name = 'ID_PROVEEDOR'
DataType = datInteger
BlobType = dabtUnknown
DisplayWidth = 0
Alignment = taLeftJustify
InPrimaryKey = False
Calculated = False
Lookup = False
LookupCache = False
end
item
Name = 'NOMBRE_PROVEEDOR'
DataType = datString
Size = 255
BlobType = dabtUnknown
DisplayWidth = 0
Alignment = taLeftJustify
InPrimaryKey = False
Calculated = False
Lookup = False
LookupCache = False
end
item
Name = 'ELIMINADO'
DataType = datInteger
BlobType = dabtUnknown
DisplayWidth = 0
DisplayLabel = 'Eliminado'
DisplayLabel = #191'En tienda web?'
Alignment = taLeftJustify
InPrimaryKey = False
Calculated = False
@ -728,20 +824,20 @@ object srvArticulos: TsrvArticulos
Statements = <
item
Connection = 'IBX'
TargetTable = 'ARTICULOS'
TargetTable = 'V_ARTICULOS'
SQL =
'SELECT V_ARTICULOS.ID, V_ARTICULOS.ID_EMPRESA, V_ARTICULOS.REFER' +
'ENCIA, V_ARTICULOS.DESCRIPCION,'#10' V_ARTICULOS.FAMILIA, V_AR' +
'TICULOS.IMAGEN, V_ARTICULOS.COMISIONABLE, V_ARTICULOS.FECHA_ALTA' +
','#10' V_ARTICULOS.FECHA_MODIFICACION, V_ARTICULOS.USUARIO,'#10' ' +
' V_ARTICULOS.REFERENCIA_PROV,'#10' V_ARTICULOS.PRECIO_COST' +
'E,'#10' V_ARTICULOS.PRECIO_PORTE,'#10' CLIENTES_DTOS_PROVEED' +
'ORES.DESCUENTO,'#10' V_ARTICULOS.PRECIO_NETO,'#10' V_ARTICUL' +
'OS.INVENTARIABLE,'#10' V_ARTICULOS.ID_PROVEEDOR,'#10' V_ARTI' +
'CULOS.NOMBRE_PROVEEDOR,'#10' V_ARTICULOS.ELIMINADO'#10'FROM V_ARTI' +
'CULOS'#10'LEFT OUTER JOIN CLIENTES_DTOS_PROVEEDORES'#10'ON ((CLIENTES_DT' +
'OS_PROVEEDORES.ID_PROVEEDOR = V_ARTICULOS.ID_PROVEEDOR)'#10'AND (CLI' +
'ENTES_DTOS_PROVEEDORES.ID_CLIENTE = :ID_CLIENTE))'
'TICULOS.COMISIONABLE, V_ARTICULOS.FECHA_ALTA,'#10' V_ARTICULOS' +
'.FECHA_MODIFICACION, V_ARTICULOS.USUARIO,'#10' V_ARTICULOS.REF' +
'ERENCIA_PROV,'#10' V_ARTICULOS.PRECIO_COSTE,'#10' V_ARTICULO' +
'S.PRECIO_PORTE,'#10' CLIENTES_DTOS_PROVEEDORES.DESCUENTO,'#10' ' +
' V_ARTICULOS.PRECIO_NETO,'#10' V_ARTICULOS.INVENTARIABLE,'#10' ' +
' V_ARTICULOS.ID_PROVEEDOR,'#10' V_ARTICULOS.NOMBRE_PROVEED' +
'OR,'#10' V_ARTICULOS.ELIMINADO, V_ARTICULOS.TIENDA_WEB'#10'FROM V_' +
'ARTICULOS'#10'LEFT OUTER JOIN CLIENTES_DTOS_PROVEEDORES'#10'ON ((CLIENTE' +
'S_DTOS_PROVEEDORES.ID_PROVEEDOR = V_ARTICULOS.ID_PROVEEDOR)'#10'AND ' +
'(CLIENTES_DTOS_PROVEEDORES.ID_CLIENTE = :ID_CLIENTE))'
StatementType = stSQL
ColumnMappings = <
item
@ -764,10 +860,6 @@ object srvArticulos: TsrvArticulos
DatasetField = 'FAMILIA'
TableField = 'FAMILIA'
end
item
DatasetField = 'IMAGEN'
TableField = 'IMAGEN'
end
item
DatasetField = 'COMISIONABLE'
TableField = 'COMISIONABLE'
@ -819,6 +911,10 @@ object srvArticulos: TsrvArticulos
item
DatasetField = 'ELIMINADO'
TableField = 'ELIMINADO'
end
item
DatasetField = 'TIENDA_WEB'
TableField = 'TIENDA_WEB'
end>
end>
Name = 'ArticulosParaCliente'
@ -881,17 +977,6 @@ object srvArticulos: TsrvArticulos
Lookup = False
LookupCache = False
end
item
Name = 'IMAGEN'
DataType = datBlob
BlobType = dabtUnknown
DisplayWidth = 0
Alignment = taLeftJustify
InPrimaryKey = False
Calculated = False
Lookup = False
LookupCache = False
end
item
Name = 'COMISIONABLE'
DataType = datInteger
@ -1038,6 +1123,18 @@ object srvArticulos: TsrvArticulos
Calculated = False
Lookup = False
LookupCache = False
end
item
Name = 'TIENDA_WEB'
DataType = datInteger
BlobType = dabtUnknown
DisplayWidth = 0
DisplayLabel = #191'En tienda web?'
Alignment = taLeftJustify
InPrimaryKey = False
Calculated = False
Lookup = False
LookupCache = False
end>
BusinessRulesClient.ScriptLanguage = rslPascalScript
BusinessRulesServer.ScriptLanguage = rslPascalScript
@ -1045,13 +1142,6 @@ object srvArticulos: TsrvArticulos
Commands = <
item
Params = <
item
Name = 'ELIMINADO'
DataType = datInteger
BlobType = dabtUnknown
Value = ''
ParamType = daptUnknown
end
item
Name = 'ID'
DataType = datInteger
@ -1090,13 +1180,6 @@ object srvArticulos: TsrvArticulos
Value = ''
ParamType = daptInput
end
item
Name = 'IMAGEN'
DataType = datBlob
BlobType = dabtUnknown
Value = ''
ParamType = daptInput
end
item
Name = 'COMISIONABLE'
DataType = datInteger
@ -1175,6 +1258,20 @@ object srvArticulos: TsrvArticulos
BlobType = dabtUnknown
Value = ''
ParamType = daptInput
end
item
Name = 'ELIMINADO'
DataType = datInteger
BlobType = dabtUnknown
Value = ''
ParamType = daptInput
end
item
Name = 'TIENDA_WEB'
DataType = datInteger
BlobType = dabtUnknown
Value = ''
ParamType = daptInput
end>
Statements = <
item
@ -1182,14 +1279,14 @@ object srvArticulos: TsrvArticulos
TargetTable = 'ARTICULOS'
SQL =
'INSERT'#10' INTO ARTICULOS'#10' (ID, ID_EMPRESA, REFERENCIA, DESCRIP' +
'CION, FAMILIA, IMAGEN, '#10' COMISIONABLE, FECHA_ALTA, FECHA_MOD' +
'IFICACION, USUARIO, '#10' PRECIO_COSTE, PRECIO_PORTE, DESCUENTO,' +
' ID_PROVEEDOR, '#10' PRECIO_NETO, REFERENCIA_PROV, INVENTARIABLE' +
', ELIMINADO)'#10' VALUES'#10' (:ID, :ID_EMPRESA, :REFERENCIA, :DESCR' +
'IPCION, :FAMILIA, '#10' :IMAGEN, :COMISIONABLE, :FECHA_ALTA, :FE' +
'CHA_MODIFICACION, '#10' :USUARIO, :PRECIO_COSTE, :PRECIO_PORTE, ' +
':DESCUENTO, '#10' :ID_PROVEEDOR, :PRECIO_NETO, :REFERENCIA_PROV,' +
#10' :INVENTARIABLE, :ELIMINADO)'
'CION, FAMILIA,'#10' COMISIONABLE, FECHA_ALTA, FECHA_MODIFICACION' +
', USUARIO, '#10' PRECIO_COSTE, PRECIO_PORTE, DESCUENTO, ID_PROVE' +
'EDOR, '#10' PRECIO_NETO, REFERENCIA_PROV, INVENTARIABLE, ELIMINA' +
'DO,'#10' TIENDA_WEB)'#10' VALUES'#10' (:ID, :ID_EMPRESA, :REFERENCIA' +
', :DESCRIPCION, :FAMILIA, '#10' :COMISIONABLE, :FECHA_ALTA, :FEC' +
'HA_MODIFICACION,'#10' :USUARIO, :PRECIO_COSTE, :PRECIO_PORTE, :D' +
'ESCUENTO, '#10' :ID_PROVEEDOR, :PRECIO_NETO, :REFERENCIA_PROV,'#10' ' +
' :INVENTARIABLE, :ELIMINADO, :TIENDA_WEB)'
StatementType = stSQL
ColumnMappings = <>
end>
@ -1254,13 +1351,6 @@ object srvArticulos: TsrvArticulos
Value = ''
ParamType = daptInput
end
item
Name = 'IMAGEN'
DataType = datBlob
BlobType = dabtUnknown
Value = ''
ParamType = daptInput
end
item
Name = 'COMISIONABLE'
DataType = datInteger
@ -1347,6 +1437,13 @@ object srvArticulos: TsrvArticulos
Value = ''
ParamType = daptInput
end
item
Name = 'TIENDA_WEB'
DataType = datInteger
BlobType = dabtUnknown
Value = ''
ParamType = daptInput
end
item
Name = 'OLD_ID'
DataType = datInteger
@ -1361,14 +1458,14 @@ object srvArticulos: TsrvArticulos
SQL =
'UPDATE ARTICULOS'#10' SET '#10' ID = :ID, '#10' ID_EMPRESA = :ID_EMPR' +
'ESA, '#10' REFERENCIA = :REFERENCIA, '#10' DESCRIPCION = :DESCRIPC' +
'ION, '#10' FAMILIA = :FAMILIA, '#10' IMAGEN = :IMAGEN, '#10' COMISI' +
'ONABLE = :COMISIONABLE, '#10' FECHA_ALTA = :FECHA_ALTA, '#10' FECH' +
'A_MODIFICACION = :FECHA_MODIFICACION, '#10' USUARIO = :USUARIO, '#10 +
' PRECIO_COSTE = :PRECIO_COSTE, '#10' PRECIO_PORTE = :PRECIO_PO' +
'RTE, '#10' DESCUENTO = :DESCUENTO, '#10' ID_PROVEEDOR = :ID_PROVEE' +
'DOR, '#10' PRECIO_NETO = :PRECIO_NETO,'#10' INVENTARIABLE = :INVEN' +
'TARIABLE,'#10' REFERENCIA_PROV = :REFERENCIA_PROV,'#10' ELIMINADO ' +
'= :ELIMINADO'#10' WHERE'#10' (ID = :OLD_ID)'
'ION, '#10' FAMILIA = :FAMILIA, '#10' COMISIONABLE = :COMISIONABLE,' +
#10' FECHA_ALTA = :FECHA_ALTA, '#10' FECHA_MODIFICACION = :FECHA_' +
'MODIFICACION, '#10' USUARIO = :USUARIO, '#10' PRECIO_COSTE = :PREC' +
'IO_COSTE, '#10' PRECIO_PORTE = :PRECIO_PORTE, '#10' DESCUENTO = :D' +
'ESCUENTO, '#10' ID_PROVEEDOR = :ID_PROVEEDOR, '#10' PRECIO_NETO = ' +
':PRECIO_NETO,'#10' INVENTARIABLE = :INVENTARIABLE,'#10' REFERENCIA' +
'_PROV = :REFERENCIA_PROV,'#10' ELIMINADO = :ELIMINADO,'#10' TIENDA' +
'_WEB = :TIENDA_WEB'#10' WHERE'#10' (ID = :OLD_ID)'
StatementType = stSQL
ColumnMappings = <>
end>

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

@ -11,14 +11,14 @@ inherited frViewArticulo: TfrViewArticulo
Left = 0
Top = 0
Width = 451
Height = 393
Height = 417
Align = alTop
ParentBackground = True
TabOrder = 0
AutoContentSizes = [acsWidth]
DesignSize = (
451
393)
417)
object PngSpeedButton2: TPngSpeedButton
Left = 546
Top = 28
@ -101,6 +101,8 @@ inherited frViewArticulo: TfrViewArticulo
Caption = 'Art'#237'culo no comisionable'
DataBinding.DataField = 'COMISIONABLE'
DataBinding.DataSource = dsViewArticulo
Properties.DisplayChecked = '1'
Properties.DisplayUnchecked = '0'
Properties.ImmediatePost = True
Properties.NullStyle = nssUnchecked
Properties.ValueChecked = 0
@ -137,7 +139,7 @@ inherited frViewArticulo: TfrViewArticulo
StyleFocused.LookAndFeel.NativeStyle = True
StyleHot.LookAndFeel.Kind = lfStandard
StyleHot.LookAndFeel.NativeStyle = True
TabOrder = 5
TabOrder = 6
Height = 100
Width = 140
end
@ -167,7 +169,7 @@ inherited frViewArticulo: TfrViewArticulo
end
inline frViewDatosYSeleccionProveedor1: TfrViewDatosYSeleccionProveedor
Left = 219
Top = 166
Top = 193
Width = 350
Height = 202
Font.Charset = DEFAULT_CHARSET
@ -176,10 +178,10 @@ inherited frViewArticulo: TfrViewArticulo
Font.Name = 'Tahoma'
Font.Style = []
ParentFont = False
TabOrder = 11
TabOrder = 12
ReadOnly = False
ExplicitLeft = 219
ExplicitTop = 166
ExplicitTop = 193
inherited dxLayoutControl1: TdxLayoutControl
inherited edtNIFCIF: TcxDBTextEdit
ExplicitWidth = 562
@ -201,7 +203,7 @@ inherited frViewArticulo: TfrViewArticulo
end
object eReferenciaProv: TcxDBTextEdit
Left = 103
Top = 166
Top = 193
Anchors = [akLeft, akTop, akRight]
DataBinding.DataField = 'REFERENCIA_PROV'
DataBinding.DataSource = dsViewArticulo
@ -213,12 +215,12 @@ inherited frViewArticulo: TfrViewArticulo
StyleDisabled.LookAndFeel.NativeStyle = True
StyleFocused.LookAndFeel.NativeStyle = True
StyleHot.LookAndFeel.NativeStyle = True
TabOrder = 6
TabOrder = 7
Width = 86
end
object ePrecioCoste: TcxDBCurrencyEdit
Left = 103
Top = 193
Top = 220
DataBinding.DataField = 'PRECIO_COSTE'
DataBinding.DataSource = dsViewArticulo
Properties.Alignment.Horz = taRightJustify
@ -233,12 +235,12 @@ inherited frViewArticulo: TfrViewArticulo
StyleFocused.LookAndFeel.NativeStyle = True
StyleHot.LookAndFeel.Kind = lfStandard
StyleHot.LookAndFeel.NativeStyle = True
TabOrder = 7
TabOrder = 8
Width = 86
end
object eDescuento: TcxDBSpinEdit
Left = 103
Top = 220
Top = 247
DataBinding.DataField = 'DESCUENTO'
DataBinding.DataSource = dsViewArticulo
Properties.Alignment.Horz = taRightJustify
@ -256,12 +258,12 @@ inherited frViewArticulo: TfrViewArticulo
StyleFocused.LookAndFeel.NativeStyle = True
StyleHot.LookAndFeel.Kind = lfStandard
StyleHot.LookAndFeel.NativeStyle = True
TabOrder = 8
TabOrder = 9
Width = 86
end
object ePrecioNeto: TcxDBCurrencyEdit
Left = 103
Top = 247
Top = 274
DataBinding.DataField = 'PRECIO_NETO'
DataBinding.DataSource = dsViewArticulo
Enabled = False
@ -281,12 +283,12 @@ inherited frViewArticulo: TfrViewArticulo
StyleFocused.TextColor = clWindowText
StyleHot.LookAndFeel.Kind = lfStandard
StyleHot.LookAndFeel.NativeStyle = True
TabOrder = 9
TabOrder = 10
Width = 86
end
object ePrecioPorte: TcxDBCurrencyEdit
Left = 103
Top = 274
Top = 301
DataBinding.DataField = 'PRECIO_PORTE'
DataBinding.DataSource = dsViewArticulo
Properties.Alignment.Horz = taRightJustify
@ -301,7 +303,7 @@ inherited frViewArticulo: TfrViewArticulo
StyleFocused.LookAndFeel.NativeStyle = True
StyleHot.LookAndFeel.Kind = lfStandard
StyleHot.LookAndFeel.NativeStyle = True
TabOrder = 10
TabOrder = 11
Width = 86
end
object cbNoInventariable: TcxDBCheckBox
@ -310,6 +312,8 @@ inherited frViewArticulo: TfrViewArticulo
Caption = 'Art'#237'culo no inventariable'
DataBinding.DataField = 'INVENTARIABLE'
DataBinding.DataSource = dsViewArticulo
Properties.DisplayChecked = '0'
Properties.DisplayUnchecked = '1'
Properties.ImmediatePost = True
Properties.NullStyle = nssUnchecked
Properties.ValueChecked = 0
@ -328,6 +332,32 @@ inherited frViewArticulo: TfrViewArticulo
TabOrder = 4
Width = 144
end
object cxDBCheckBox1: TcxDBCheckBox
Left = 103
Top = 136
Caption = 'Listar este art'#237'culo en la tienda web'
DataBinding.DataField = 'TIENDA_WEB'
DataBinding.DataSource = dsViewArticulo
Properties.DisplayChecked = '1'
Properties.DisplayUnchecked = '0'
Properties.ImmediatePost = True
Properties.NullStyle = nssUnchecked
Properties.ValueChecked = 1
Properties.ValueUnchecked = 0
Style.BorderColor = clWindowFrame
Style.BorderStyle = ebs3D
Style.HotTrack = False
Style.LookAndFeel.Kind = lfStandard
Style.LookAndFeel.NativeStyle = True
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 = 213
end
object dxLayoutControlArticuloGroup_Root: TdxLayoutGroup
ShowCaption = False
Hidden = True
@ -374,21 +404,31 @@ inherited frViewArticulo: TfrViewArticulo
object dxLayoutControlArticuloGroup8: TdxLayoutGroup
ShowCaption = False
Hidden = True
LayoutDirection = ldHorizontal
ShowBorder = False
object dxLayoutControlArticuloItem1: TdxLayoutItem
AutoAligns = [aaVertical]
AlignHorz = ahClient
Caption = ' '
Control = eNoComisionable
ControlOptions.ShowBorder = False
end
object dxLayoutControlArticuloItem7: TdxLayoutItem
AutoAligns = [aaVertical]
AlignHorz = ahClient
Caption = ' '
object dxLayoutControlArticuloGroup10: TdxLayoutGroup
ShowCaption = False
Control = cbNoInventariable
Hidden = True
LayoutDirection = ldHorizontal
ShowBorder = False
object dxLayoutControlArticuloItem1: TdxLayoutItem
AutoAligns = [aaVertical]
AlignHorz = ahClient
Caption = ' '
Control = eNoComisionable
ControlOptions.ShowBorder = False
end
object dxLayoutControlArticuloItem7: TdxLayoutItem
AutoAligns = [aaVertical]
AlignHorz = ahClient
Caption = ' '
ShowCaption = False
Control = cbNoInventariable
ControlOptions.ShowBorder = False
end
end
object dxLayoutControlArticuloItem9: TdxLayoutItem
Caption = ' '
Control = cxDBCheckBox1
ControlOptions.ShowBorder = False
end
end

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

@ -71,6 +71,9 @@ type
dxLayoutControlArticuloItem7: TdxLayoutItem;
cbNoInventariable: TcxDBCheckBox;
dxLayoutControlArticuloGroup8: TdxLayoutGroup;
dxLayoutControlArticuloItem9: TdxLayoutItem;
cxDBCheckBox1: TcxDBCheckBox;
dxLayoutControlArticuloGroup10: TdxLayoutGroup;
procedure actEliminarExecute(Sender: TObject);
procedure actAnadirExecute(Sender: TObject);
procedure cbFamiliaPropertiesInitPopup(Sender: TObject);
@ -227,6 +230,7 @@ begin
FArticulo.Edit;
FArticulo.ID_PROVEEDOR := frViewDatosYSeleccionProveedor1.Proveedor.ID;
FArticulo.DESCUENTO := frViewDatosYSeleccionProveedor1.Proveedor.DESCUENTO;
FArticulo.TIENDA_WEB := frViewDatosYSeleccionProveedor1.Proveedor.TIENDA_WEB;
end;
end;

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

@ -1,5 +1,9 @@
inherited frViewArticulos: TfrViewArticulos
Height = 495
ExplicitHeight = 495
inherited cxGrid: TcxGrid
Height = 367
ExplicitHeight = 367
inherited cxGridView: TcxGridDBTableView
OnMouseMove = cxGridViewMouseMove
DataController.KeyFieldNames = 'ID'
@ -68,6 +72,27 @@ inherited frViewArticulos: TfrViewArticulos
Options.HorzSizing = False
Width = 22
end
object cxGridViewTiendaWeb: TcxGridDBColumn
Caption = 'Acceso a tienda web'
DataBinding.FieldName = 'TIENDA_WEB'
PropertiesClassName = 'TcxImageComboBoxProperties'
Properties.Images = PngImageList
Properties.Items = <
item
Description = '0'
Value = 0
end
item
Description = '1'
ImageIndex = 2
Value = 1
end>
Properties.ShowDescriptions = False
BestFitMaxWidth = 22
MinWidth = 22
Options.HorzSizing = False
Width = 22
end
object cxGridViewREFERENCIA: TcxGridDBColumn
Caption = 'Referencia'
DataBinding.FieldName = 'REFERENCIA'
@ -152,7 +177,9 @@ inherited frViewArticulos: TfrViewArticulos
end
end
inherited pnlAgrupaciones: TTBXDockablePanel
Top = 469
Visible = True
ExplicitTop = 469
ExplicitWidth = 554
inherited TBXAlignmentPanel1: TTBXAlignmentPanel
inherited TBXToolbar1: TTBXToolbar
@ -237,6 +264,28 @@ inherited frViewArticulos: TfrViewArticulos
E402210000000049454E44AE426082}
Name = 'PngImage1'
Background = clWindow
end
item
PngImage.Data = {
89504E470D0A1A0A0000000D49484452000000100000001008060000001FF3FF
61000001E34944415478DAA5932D72E43010855F98D934341BC1858261D10D76
8E3047305C1685051A067A59A0E042E70682863D6C608719EE6B399EADDABFAA
AD7595CAB2DCFDF5EB1FDDE13F9FBB9F0FF258225F27AEC415D109B05A35C3CC
EF32E653FD2380CE035F4388720C41609DC2D68ABA28B42688E1820E79CAE7E9
17407316E4788F43E8033CF2F46D42F804E8E29084E0A2ACBE7B90E9798334C0
40D9145AC2BD1E8591A58B5CFE27406D462915EA59AD4A70812CF142FBD3340E
750764113C8648C9A214E20A0C762560A1A925A662A8FDD0D48A06846B782220
6F80E732C7181F14858079CB69895B1D57D6824BBB99FF4A03C9952134BD9597
21ED008BF1F341F52BAA3035098CC23428DB561A70D53EC39888EFB941D4F45E
5EB2DC0021A6035BC56A0F306660BD1B464A3DB5A8B00CED89606A62B201A61D
90CB8C3E3EA03BD2F002BD8EF4550FB441D421532B62658D02CFC4C2DBFC9AD3
0EC86CDBA349DC24B2F7BA8E2D227BCF9CFD3CB573EC69409EE6D731EF804899
EC4F3CB6D631927623FFD48F5AC84741B1B572D58B4FEB5CC67A1BA4739ECE34
18D185435DE756B070B5CDB17305B63BB741A2F38F41BA41BE38C4324D8FE6C6
3E0FBE7CEF15F602716877E7DF5EA6F330B6CBC4F6A55641CAE69EC973245714
97FDD7DBF8AFCF7740E00D20BA266C3A0000000049454E44AE426082}
Name = 'PngImage2'
Background = clWindow
end>
Left = 160
Top = 32

6
Source/Servidor/FactuGES_Server.dpr
View File

@ -112,8 +112,6 @@ uses
schRemesasProveedorServer_Intf in '..\Modulos\Remesas de proveedor\Model\schRemesasProveedorServer_Intf.pas',
schRemesasClienteClient_Intf in '..\Modulos\Remesas de cliente\Model\schRemesasClienteClient_Intf.pas',
schRemesasClienteServer_Intf in '..\Modulos\Remesas de cliente\Model\schRemesasClienteServer_Intf.pas',
schArticulosClient_Intf in '..\Modulos\Articulos\Model\schArticulosClient_Intf.pas',
schArticulosServer_Intf in '..\Modulos\Articulos\Model\schArticulosServer_Intf.pas',
srvInfMargenArticulo_Impl in '..\Modulos\Informe margen por articulo\Servidor\srvInfMargenArticulo_Impl.pas' {srvInfMargenArticulo: TDARemoteService},
schInfVentasArticuloClient_Intf in '..\Modulos\Informe ventas por articulo\Model\schInfVentasArticuloClient_Intf.pas',
schInfVentasArticuloServer_Intf in '..\Modulos\Informe ventas por articulo\Model\schInfVentasArticuloServer_Intf.pas',
@ -131,7 +129,9 @@ uses
schInventarioClient_Intf in '..\Modulos\Inventario\Model\schInventarioClient_Intf.pas',
schInventarioServer_Intf in '..\Modulos\Inventario\Model\schInventarioServer_Intf.pas',
schInfMargenArticuloClient_Intf in '..\Modulos\Informe margen por articulo\Model\schInfMargenArticuloClient_Intf.pas',
schInfMargenArticuloServer_Intf in '..\Modulos\Informe margen por articulo\Model\schInfMargenArticuloServer_Intf.pas';
schInfMargenArticuloServer_Intf in '..\Modulos\Informe margen por articulo\Model\schInfMargenArticuloServer_Intf.pas',
schArticulosClient_Intf in '..\Modulos\Articulos\Model\schArticulosClient_Intf.pas',
schArticulosServer_Intf in '..\Modulos\Articulos\Model\schArticulosServer_Intf.pas';
{$R *.res}
{$R ..\Servicios\RODLFile.res}

196
Source/Servidor/FactuGES_Server.drc
View File

@ -908,9 +908,9 @@
#define IdResourceStrings_RSStatusConnecting 65181
#define IdResourceStrings_RSStatusConnected 65182
#define IdResourceStrings_RSStatusDisconnecting 65183
#define uRODECConst_sFMT_XX 65184
#define uRODECConst_sInvalidKeySize 65185
#define uRODECConst_sNotInitialized 65186
#define ComConst_SNoMethod 65184
#define ComConst_SVarNotObject 65185
#define ComConst_STooManyParams 65186
#define IdResourceStrings_RSCannotAllocateSocket 65187
#define IdResourceStrings_RSConnectionClosedGracefully 65188
#define IdResourceStrings_RSCouldNotBindSocket 65189
@ -924,70 +924,70 @@
#define IdResourceStrings_RSNotConnected 65197
#define IdResourceStrings_RSObjectTypeNotSupported 65198
#define IdResourceStrings_RSTerminateThreadTimeout 65199
#define uRORes_err_VariantIsNotArray 65200
#define uRORes_err_InvalidVarArrayDimCount 65201
#define uRORes_err_MessageNotAssigned 65202
#define ComConst_SOleError 65203
#define ComConst_SNoMethod 65204
#define ComConst_SVarNotObject 65205
#define ComConst_STooManyParams 65206
#define uRODECConst_sProtectionCircular 65207
#define uRODECConst_sStringFormatExists 65208
#define uRODECConst_sInvalidStringFormat 65209
#define uRODECConst_sInvalidFormatString 65210
#define uRODECConst_sFMT_COPY 65211
#define uRODECConst_sFMT_HEX 65212
#define uRODECConst_sFMT_HEXL 65213
#define uRODECConst_sFMT_MIME64 65214
#define uRODECConst_sFMT_UU 65215
#define uRORes_err_ServerOnlySupportsOneDispatcher 65216
#define uRORes_err_UnhandledException 65217
#define uRORes_err_ChannelBusy 65218
#define uRORes_err_ArrayIndexOutOfBounds 65219
#define uRORes_err_InvalidHeader 65220
#define uRORes_err_UnknownClassInStream 65221
#define uRORes_err_UnexpectedClassInStream 65222
#define uRORes_err_SessionNotFound 65223
#define uRORes_err_ChannelDoesntSupportIROMetadataReader 65224
#define uRORes_err_TooManySessions 65225
#define uRORes_err_DOMElementIsNIL 65226
#define uRORes_err_CannotLoadXMLDocument 65227
#define uRORes_err_ErrorCreatingMsXmlDoc 65228
#define uRORes_err_NoXMLParsersAvailable 65229
#define uRORes_err_IDispatchMarshalingNotSupported 65230
#define uRORes_err_UnsupportedVariantType 65231
#define uRORes_str_ExceptionOnServer 65232
#define uRORes_str_ExceptionReraisedFromServer 65233
#define uRORes_err_AssignError 65234
#define uRORes_err_InvalidRequestStream 65235
#define uRORes_err_NILMessage 65236
#define uRORes_err_UnspecifiedInterface 65237
#define uRORes_err_UnspecifiedMessage 65238
#define uRORes_err_UnknownMethod 65239
#define uRORes_err_ClassFactoryDidNotReturnInstance 65240
#define uRORes_err_TypeNotSupported 65241
#define uRORes_err_ClassFactoryNotFound 65242
#define uRORes_err_IROMessageNotSupported 65243
#define uRORes_err_ClassAlreadyRegistered 65244
#define uRORes_err_UnknownProxyInterface 65245
#define uRORes_err_DispatcherAlreadyAssigned 65246
#define uRORes_err_CannotFindMessageDispatcher 65247
#define uRORes_err_InvalidIndex 65248
#define uRORes_err_InvalidType 65249
#define uRORes_err_InvalidStream 65250
#define uRORes_err_InvalidParamFlag 65251
#define uRORes_err_InvalidStringLength 65252
#define uRORes_str_InvalidClassTypeInStream 65253
#define uRORes_err_UnexpectedEndOfStream 65254
#define uRORes_err_RodlDuplicateName 65255
#define uRORes_err_RodlNoDataTypeSpecified 65256
#define uRORes_err_RodlNoEnumValues 65257
#define uRORes_err_RodlNoStructElementsDefined 65258
#define uRORes_err_RodlNoOperationsDefined 65259
#define uRORes_err_RodlUsedFileDoesNotExist 65260
#define uRORes_err_RodlInvalidDataType 65261
#define uRORes_err_RodlStructCannotBeNested 65262
#define uRORes_err_RodlInvalidAncestorType 65263
#define uRORes_err_InvalidHeader 65200
#define uRORes_err_UnknownClassInStream 65201
#define uRORes_err_UnexpectedClassInStream 65202
#define uRORes_err_SessionNotFound 65203
#define uRORes_err_ChannelDoesntSupportIROMetadataReader 65204
#define uRORes_err_TooManySessions 65205
#define uRORes_err_DOMElementIsNIL 65206
#define uRORes_err_CannotLoadXMLDocument 65207
#define uRORes_err_ErrorCreatingMsXmlDoc 65208
#define uRORes_err_NoXMLParsersAvailable 65209
#define uRORes_err_IDispatchMarshalingNotSupported 65210
#define uRORes_err_UnsupportedVariantType 65211
#define uRORes_err_VariantIsNotArray 65212
#define uRORes_err_InvalidVarArrayDimCount 65213
#define uRORes_err_MessageNotAssigned 65214
#define ComConst_SOleError 65215
#define uRORes_err_NILMessage 65216
#define uRORes_err_UnspecifiedInterface 65217
#define uRORes_err_UnspecifiedMessage 65218
#define uRORes_err_UnknownMethod 65219
#define uRORes_err_ClassFactoryDidNotReturnInstance 65220
#define uRORes_err_TypeNotSupported 65221
#define uRORes_err_ClassFactoryNotFound 65222
#define uRORes_err_IROMessageNotSupported 65223
#define uRORes_err_ClassAlreadyRegistered 65224
#define uRORes_err_UnknownProxyInterface 65225
#define uRORes_err_DispatcherAlreadyAssigned 65226
#define uRORes_err_CannotFindMessageDispatcher 65227
#define uRORes_err_ServerOnlySupportsOneDispatcher 65228
#define uRORes_err_UnhandledException 65229
#define uRORes_err_ChannelBusy 65230
#define uRORes_err_ArrayIndexOutOfBounds 65231
#define uRORes_err_InvalidStringLength 65232
#define uRORes_str_InvalidClassTypeInStream 65233
#define uRORes_err_UnexpectedEndOfStream 65234
#define uRORes_err_RodlDuplicateName 65235
#define uRORes_err_RodlNoDataTypeSpecified 65236
#define uRORes_err_RodlNoEnumValues 65237
#define uRORes_err_RodlNoStructElementsDefined 65238
#define uRORes_err_RodlNoOperationsDefined 65239
#define uRORes_err_RodlUsedFileDoesNotExist 65240
#define uRORes_err_RodlInvalidDataType 65241
#define uRORes_err_RodlStructCannotBeNested 65242
#define uRORes_err_RodlInvalidAncestorType 65243
#define uRORes_str_ExceptionOnServer 65244
#define uRORes_str_ExceptionReraisedFromServer 65245
#define uRORes_err_AssignError 65246
#define uRORes_err_InvalidRequestStream 65247
#define uRODECConst_sProtectionCircular 65248
#define uRODECConst_sStringFormatExists 65249
#define uRODECConst_sInvalidStringFormat 65250
#define uRODECConst_sInvalidFormatString 65251
#define uRODECConst_sFMT_COPY 65252
#define uRODECConst_sFMT_HEX 65253
#define uRODECConst_sFMT_HEXL 65254
#define uRODECConst_sFMT_MIME64 65255
#define uRODECConst_sFMT_UU 65256
#define uRODECConst_sFMT_XX 65257
#define uRODECConst_sInvalidKeySize 65258
#define uRODECConst_sNotInitialized 65259
#define uRORes_err_InvalidIndex 65260
#define uRORes_err_InvalidType 65261
#define uRORes_err_InvalidStream 65262
#define uRORes_err_InvalidParamFlag 65263
#define Consts_SDockedCtlNeedsName 65264
#define Consts_SDockTreeRemoveError 65265
#define Consts_SDockZoneNotFound 65266
@ -2162,9 +2162,9 @@ BEGIN
IdResourceStrings_RSStatusConnecting, "Connecting to %s."
IdResourceStrings_RSStatusConnected, "Connected."
IdResourceStrings_RSStatusDisconnecting, "Disconnecting."
uRODECConst_sFMT_XX, "XX Coding"
uRODECConst_sInvalidKeySize, "Length from Encryptionkey is invalid.\r\nKeysize for %s must be to %d-%d bytes"
uRODECConst_sNotInitialized, "%s is not initialized call Init() or InitKey() before."
ComConst_SNoMethod, "Method '%s' not supported by automation object"
ComConst_SVarNotObject, "Variant does not reference an automation object"
ComConst_STooManyParams, "Dispatch methods do not support more than 64 parameters"
IdResourceStrings_RSCannotAllocateSocket, "Cannot allocate socket."
IdResourceStrings_RSConnectionClosedGracefully, "Connection Closed Gracefully."
IdResourceStrings_RSCouldNotBindSocket, "Could not bind socket. Address and port are already in use."
@ -2178,26 +2178,6 @@ BEGIN
IdResourceStrings_RSNotConnected, "Not Connected"
IdResourceStrings_RSObjectTypeNotSupported, "Object type not supported."
IdResourceStrings_RSTerminateThreadTimeout, "Terminate Thread Timeout"
uRORes_err_VariantIsNotArray, "Variant must be Array, but is %d"
uRORes_err_InvalidVarArrayDimCount, "Variant Array DimCount must be 1 but is %d"
uRORes_err_MessageNotAssigned, "Message is NIL"
ComConst_SOleError, "OLE error %.8x"
ComConst_SNoMethod, "Method '%s' not supported by automation object"
ComConst_SVarNotObject, "Variant does not reference an automation object"
ComConst_STooManyParams, "Dispatch methods do not support more than 64 parameters"
uRODECConst_sProtectionCircular, "Circular Protection detected, Protection Object is invalid."
uRODECConst_sStringFormatExists, "String Format \"%d\" not exists."
uRODECConst_sInvalidStringFormat, "Input is not an valid %s Format."
uRODECConst_sInvalidFormatString, "Input can not be convert to %s Format."
uRODECConst_sFMT_COPY, "copy Input to Output"
uRODECConst_sFMT_HEX, "Hexadecimal"
uRODECConst_sFMT_HEXL, "Hexadecimal lowercase"
uRODECConst_sFMT_MIME64, "MIME Base 64"
uRODECConst_sFMT_UU, "UU Coding"
uRORes_err_ServerOnlySupportsOneDispatcher, "%s servers only support one dispatcher"
uRORes_err_UnhandledException, "Unhandled exception"
uRORes_err_ChannelBusy, "Channel is busy. Try again later."
uRORes_err_ArrayIndexOutOfBounds, "Array index out of bounds (%d)."
uRORes_err_InvalidHeader, "Invalid binary header. Either incompatible or not a binary message."
uRORes_err_UnknownClassInStream, "Unknown class \"%s\" found in stream."
uRORes_err_UnexpectedClassInStream, "Unexpected class found in stream; class \"%s\" does not descend from \"%s\"."
@ -2210,10 +2190,10 @@ BEGIN
uRORes_err_NoXMLParsersAvailable, "MSXML is not installed"
uRORes_err_IDispatchMarshalingNotSupported, "Marshaling of IDispatch (%d) type variants is not supported."
uRORes_err_UnsupportedVariantType, "Unsupported variant type \"%d\""
uRORes_str_ExceptionOnServer, "An exception of type %s was raised on the server: %s"
uRORes_str_ExceptionReraisedFromServer, "An exception was raised on the server: %s"
uRORes_err_AssignError, "Cannot assign a \"%s\" to a \"%s\"."
uRORes_err_InvalidRequestStream, "Invalid request stream (%d bytes)"
uRORes_err_VariantIsNotArray, "Variant must be Array, but is %d"
uRORes_err_InvalidVarArrayDimCount, "Variant Array DimCount must be 1 but is %d"
uRORes_err_MessageNotAssigned, "Message is NIL"
ComConst_SOleError, "OLE error %.8x"
uRORes_err_NILMessage, "Message is NIL"
uRORes_err_UnspecifiedInterface, "The message does not have an interface name"
uRORes_err_UnspecifiedMessage, "The message does not have a name"
@ -2226,10 +2206,10 @@ BEGIN
uRORes_err_UnknownProxyInterface, "Unknown proxy interface \"%s\""
uRORes_err_DispatcherAlreadyAssigned, "Dispatcher for %s already assigned"
uRORes_err_CannotFindMessageDispatcher, "Cannot find message dispatcher. Maybe there is no message component configured for for the requested path?"
uRORes_err_InvalidIndex, "Invalid index %d"
uRORes_err_InvalidType, "Invalid type \"%s. Expected \"%s\"\""
uRORes_err_InvalidStream, "Invalid stream"
uRORes_err_InvalidParamFlag, "Invalid Parameter Flag \"%s\""
uRORes_err_ServerOnlySupportsOneDispatcher, "%s servers only support one dispatcher"
uRORes_err_UnhandledException, "Unhandled exception"
uRORes_err_ChannelBusy, "Channel is busy. Try again later."
uRORes_err_ArrayIndexOutOfBounds, "Array index out of bounds (%d)."
uRORes_err_InvalidStringLength, "Stream read error: Invalid string length \"%d\""
uRORes_str_InvalidClassTypeInStream, "Stream read error: Invalid class type encountered: \"%s\""
uRORes_err_UnexpectedEndOfStream, "Unexpected end of stream."
@ -2242,6 +2222,26 @@ BEGIN
uRORes_err_RodlInvalidDataType, "Invalid or undefined data type \"%s\"."
uRORes_err_RodlStructCannotBeNested, "Structs cannot recursively contain themselves."
uRORes_err_RodlInvalidAncestorType, "Invalid or undefined ancestor type \"%s\"."
uRORes_str_ExceptionOnServer, "An exception of type %s was raised on the server: %s"
uRORes_str_ExceptionReraisedFromServer, "An exception was raised on the server: %s"
uRORes_err_AssignError, "Cannot assign a \"%s\" to a \"%s\"."
uRORes_err_InvalidRequestStream, "Invalid request stream (%d bytes)"
uRODECConst_sProtectionCircular, "Circular Protection detected, Protection Object is invalid."
uRODECConst_sStringFormatExists, "String Format \"%d\" not exists."
uRODECConst_sInvalidStringFormat, "Input is not an valid %s Format."
uRODECConst_sInvalidFormatString, "Input can not be convert to %s Format."
uRODECConst_sFMT_COPY, "copy Input to Output"
uRODECConst_sFMT_HEX, "Hexadecimal"
uRODECConst_sFMT_HEXL, "Hexadecimal lowercase"
uRODECConst_sFMT_MIME64, "MIME Base 64"
uRODECConst_sFMT_UU, "UU Coding"
uRODECConst_sFMT_XX, "XX Coding"
uRODECConst_sInvalidKeySize, "Length from Encryptionkey is invalid.\r\nKeysize for %s must be to %d-%d bytes"
uRODECConst_sNotInitialized, "%s is not initialized call Init() or InitKey() before."
uRORes_err_InvalidIndex, "Invalid index %d"
uRORes_err_InvalidType, "Invalid type \"%s. Expected \"%s\"\""
uRORes_err_InvalidStream, "Invalid stream"
uRORes_err_InvalidParamFlag, "Invalid Parameter Flag \"%s\""
Consts_SDockedCtlNeedsName, "Docked control must have a name"
Consts_SDockTreeRemoveError, "Error removing control from dock tree"
Consts_SDockZoneNotFound, " - Dock zone not found"

2
Source/Servidor/FactuGES_Server.rc
View File

@ -16,7 +16,7 @@ BEGIN
VALUE "FileVersion", "3.0.0.0\0"
VALUE "ProductName", "FactuGES Server\0"
VALUE "ProductVersion", "3.0.0.0\0"
VALUE "CompileDate", "miércoles, 04 de junio de 2008 18:52\0"
VALUE "CompileDate", "miércoles, 11 de junio de 2008 11:40\0"
END
END
BLOCK "VarFileInfo"

BIN
Source/Servidor/FactuGES_Server.res
View File

Binary file not shown.

4
Source/Servidor/uDataModuleServer.dfm
View File

@ -48,8 +48,8 @@ object dmServer: TdmServer
item
Name = 'MySQL'
ConnectionString =
'ADO?AuxDriver=MSDASQL.1;Server=OSCommerce Desarrollo;Option=3;Us' +
'erID=root;Password=;'
'ADO?AuxDriver=MSDASQL.1;Server=OSCommerce Desarrollo;UserID=root' +
';Password=;Option=3;'
Default = False
Tag = 0
end