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_PEDIDOS_PROVEEDOR;
DROP VIEW V_PED_PROV_SITUACION; DROP VIEW V_PED_PROV_SITUACION;
DROP VIEW V_PED_PROV_PROCESO; 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_PENDIENTES_PROCESO;
DROP VIEW V_PED_PROV_ARTICULOS; 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) 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( CREATE VIEW V_PED_PROV_PROCESO(
ID_PEDIDO) ID_PEDIDO)
AS AS
@ -2394,7 +2405,7 @@ CREATE VIEW V_ARTICULOS(
INVENTARIABLE, INVENTARIABLE,
ID_PROVEEDOR, ID_PROVEEDOR,
NOMBRE_PROVEEDOR, NOMBRE_PROVEEDOR,
ELIMINADO) ELIMINADO, TIENDA_WEB)
AS AS
SELECT ARTICULOS.ID, ARTICULOS.ID_EMPRESA, ARTICULOS.REFERENCIA, ARTICULOS.DESCRIPCION, 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.INVENTARIABLE,
ARTICULOS.ID_PROVEEDOR, ARTICULOS.ID_PROVEEDOR,
CONTACTOS.NOMBRE AS NOMBRE_PROVEEDOR, CONTACTOS.NOMBRE AS NOMBRE_PROVEEDOR,
ARTICULOS.ELIMINADO ARTICULOS.ELIMINADO, ARTICULOS.TIENDA_WEB
FROM ARTICULOS FROM ARTICULOS
LEFT OUTER JOIN CONTACTOS ON (CONTACTOS.ID = ARTICULOS.ID_PROVEEDOR) LEFT OUTER JOIN CONTACTOS ON (CONTACTOS.ID = ARTICULOS.ID_PROVEEDOR)
WHERE (ARTICULOS.ELIMINADO = 0); 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="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="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="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 Name="UsePackages">True</Directories>
</Directories> </Directories>
<Parameters> <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="Base.bpl">..\..\Base\Base.bdsproj</Projects>
<Projects Name="GUIBase.bpl">..\..\Base\GUIBase\GUIBase.bdsproj</Projects> <Projects Name="GUIBase.bpl">..\..\Base\GUIBase\GUIBase.bdsproj</Projects>
<Projects Name="Usuarios.bpl">..\..\Base\Usuarios\Usuarios.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_model.bpl">Model\Articulos_model.bdsproj</Projects>
<Projects Name="Articulos_data.bpl">Data\Articulos_data.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_controller.bpl">Controller\Articulos_controller.bdsproj</Projects>
<Projects Name="Articulos_view.bpl">Views\Articulos_view.bdsproj</Projects> <Projects Name="Articulos_view.bpl">Views\Articulos_view.bdsproj</Projects>
<Projects Name="Articulos_plugin.bpl">Plugin\Articulos_plugin.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> </Projects>
<Dependencies/> <Dependencies/>
</Default.Personality> </Default.Personality>

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

@ -23,57 +23,6 @@ object DataModuleArticulos: TDataModuleArticulos
Left = 48 Left = 48
Top = 80 Top = 80
end 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 object tbl_Articulos: TDACDSDataTable
RemoteUpdatesOptions = [] RemoteUpdatesOptions = []
Fields = < Fields = <
@ -135,17 +84,6 @@ object DataModuleArticulos: TDataModuleArticulos
Lookup = False Lookup = False
LookupCache = False LookupCache = False
end end
item
Name = 'IMAGEN'
DataType = datBlob
BlobType = dabtUnknown
DisplayWidth = 0
Alignment = taLeftJustify
InPrimaryKey = False
Calculated = False
Lookup = False
LookupCache = False
end
item item
Name = 'COMISIONABLE' Name = 'COMISIONABLE'
DataType = datInteger DataType = datInteger
@ -286,7 +224,19 @@ object DataModuleArticulos: TDataModuleArticulos
DataType = datInteger DataType = datInteger
BlobType = dabtUnknown BlobType = dabtUnknown
DisplayWidth = 0 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 Alignment = taLeftJustify
InPrimaryKey = False InPrimaryKey = False
Calculated = False Calculated = False
@ -448,17 +398,6 @@ object DataModuleArticulos: TDataModuleArticulos
Lookup = False Lookup = False
LookupCache = False LookupCache = False
end end
item
Name = 'IMAGEN'
DataType = datBlob
BlobType = dabtUnknown
DisplayWidth = 0
Alignment = taLeftJustify
InPrimaryKey = False
Calculated = False
Lookup = False
LookupCache = False
end
item item
Name = 'COMISIONABLE' Name = 'COMISIONABLE'
DataType = datInteger DataType = datInteger
@ -605,6 +544,18 @@ object DataModuleArticulos: TDataModuleArticulos
Calculated = False Calculated = False
Lookup = False Lookup = False
LookupCache = 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> end>
Params = < Params = <
item item
@ -706,4 +657,55 @@ object DataModuleArticulos: TDataModuleArticulos
Left = 392 Left = 392
Top = 40 Top = 40
end 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 end

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

@ -1,5 +1,9 @@
inherited frViewArticulos: TfrViewArticulos inherited frViewArticulos: TfrViewArticulos
Height = 495
ExplicitHeight = 495
inherited cxGrid: TcxGrid inherited cxGrid: TcxGrid
Height = 367
ExplicitHeight = 367
inherited cxGridView: TcxGridDBTableView inherited cxGridView: TcxGridDBTableView
OnMouseMove = cxGridViewMouseMove OnMouseMove = cxGridViewMouseMove
DataController.KeyFieldNames = 'ID' DataController.KeyFieldNames = 'ID'
@ -68,6 +72,27 @@ inherited frViewArticulos: TfrViewArticulos
Options.HorzSizing = False Options.HorzSizing = False
Width = 22 Width = 22
end 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 object cxGridViewREFERENCIA: TcxGridDBColumn
Caption = 'Referencia' Caption = 'Referencia'
DataBinding.FieldName = 'REFERENCIA' DataBinding.FieldName = 'REFERENCIA'
@ -152,7 +177,9 @@ inherited frViewArticulos: TfrViewArticulos
end end
end end
inherited pnlAgrupaciones: TTBXDockablePanel inherited pnlAgrupaciones: TTBXDockablePanel
Top = 469
Visible = True Visible = True
ExplicitTop = 469
ExplicitWidth = 554 ExplicitWidth = 554
inherited TBXAlignmentPanel1: TTBXAlignmentPanel inherited TBXAlignmentPanel1: TTBXAlignmentPanel
inherited TBXToolbar1: TTBXToolbar inherited TBXToolbar1: TTBXToolbar
@ -237,6 +264,28 @@ inherited frViewArticulos: TfrViewArticulos
E402210000000049454E44AE426082} E402210000000049454E44AE426082}
Name = 'PngImage1' Name = 'PngImage1'
Background = clWindow 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> end>
Left = 160 Left = 160
Top = 32 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', schRemesasProveedorServer_Intf in '..\Modulos\Remesas de proveedor\Model\schRemesasProveedorServer_Intf.pas',
schRemesasClienteClient_Intf in '..\Modulos\Remesas de cliente\Model\schRemesasClienteClient_Intf.pas', schRemesasClienteClient_Intf in '..\Modulos\Remesas de cliente\Model\schRemesasClienteClient_Intf.pas',
schRemesasClienteServer_Intf in '..\Modulos\Remesas de cliente\Model\schRemesasClienteServer_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}, 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', schInfVentasArticuloClient_Intf in '..\Modulos\Informe ventas por articulo\Model\schInfVentasArticuloClient_Intf.pas',
schInfVentasArticuloServer_Intf in '..\Modulos\Informe ventas por articulo\Model\schInfVentasArticuloServer_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', schInventarioClient_Intf in '..\Modulos\Inventario\Model\schInventarioClient_Intf.pas',
schInventarioServer_Intf in '..\Modulos\Inventario\Model\schInventarioServer_Intf.pas', schInventarioServer_Intf in '..\Modulos\Inventario\Model\schInventarioServer_Intf.pas',
schInfMargenArticuloClient_Intf in '..\Modulos\Informe margen por articulo\Model\schInfMargenArticuloClient_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 *.res}
{$R ..\Servicios\RODLFile.res} {$R ..\Servicios\RODLFile.res}

196
Source/Servidor/FactuGES_Server.drc
View File

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