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

Ticket #50: Poner referencia de fabricante en la ficha del artículo.

Browse Source 
git-svn-id: https://192.168.0.254/svn/Proyectos.Tecsitel_FactuGES2/trunk@325 0c75b7a4-871f-7646-8a2f-f78d34cc349f
This commit is contained in:
David Arranz 2008-03-03 18:22:45 +00:00
parent d7eef7403f
commit d8b742d3ff
13 changed files with 492 additions and 205 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

13
Database/scripts/factuges.sql
View File

@ -4,10 +4,10 @@
SET SQL DIALECT 3; SET SQL DIALECT 3;
SET NAMES UTF8; SET NAMES ISO8859_1;
CREATE DATABASE 'FACTUGES.FDB' PAGE_SIZE 4096 CREATE DATABASE 'FACTUGES.FDB' PAGE_SIZE 4096
DEFAULT CHARACTER SET UTF8; DEFAULT CHARACTER SET ISO8859_1;
/******************************************************************************/ /******************************************************************************/
/**** User Defined Functions ****/ /**** User Defined Functions ****/
@ -388,7 +388,8 @@ CREATE TABLE ARTICULOS (
DESCUENTO TIPO_PORCENTAJE, DESCUENTO TIPO_PORCENTAJE,
PRECIO_NETO TIPO_IMPORTE, PRECIO_NETO TIPO_IMPORTE,
PRECIO_PORTE TIPO_IMPORTE, PRECIO_PORTE TIPO_IMPORTE,
FABRICANTE VARCHAR(255), FABRICANTE VARCHAR(255),
REFERENCIA_FABR VARCHAR(255),
FECHA_ALTA TIMESTAMP, FECHA_ALTA TIMESTAMP,
FECHA_MODIFICACION TIMESTAMP, FECHA_MODIFICACION TIMESTAMP,
USUARIO TIPO_USUARIO, USUARIO TIPO_USUARIO,
@ -1399,7 +1400,8 @@ CREATE VIEW V_ARTICULOS(
ID_PROVEEDOR, ID_PROVEEDOR,
NOMBRE_PROVEEDOR, NOMBRE_PROVEEDOR,
ELIMINADO, ELIMINADO,
FABRICANTE) FABRICANTE,
REFERENCIA_FABR)
AS AS
SELECT ARTICULOS.ID, ARTICULOS.ID_EMPRESA, ARTICULOS.REFERENCIA, ARTICULOS.DESCRIPCION, SELECT ARTICULOS.ID, ARTICULOS.ID_EMPRESA, ARTICULOS.REFERENCIA, ARTICULOS.DESCRIPCION,
ARTICULOS.UNIDAD_MEDIDA, ARTICULOS.FAMILIA, ARTICULOS.IMAGEN, ARTICULOS.UNIDAD_MEDIDA, ARTICULOS.FAMILIA, ARTICULOS.IMAGEN,
@ -1414,7 +1416,8 @@ SELECT ARTICULOS.ID, ARTICULOS.ID_EMPRESA, ARTICULOS.REFERENCIA, ARTICULOS.DESCR
ARTICULOS.ID_PROVEEDOR, ARTICULOS.ID_PROVEEDOR,
CONTACTOS.NOMBRE AS NOMBRE_PROVEEDOR, CONTACTOS.NOMBRE AS NOMBRE_PROVEEDOR,
ARTICULOS.ELIMINADO, ARTICULOS.ELIMINADO,
ARTICULOS.FABRICANTE ARTICULOS.FABRICANTE,
ARTICULOS.REFERENCIA_FABR
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)

11
Source/Modulos/Articulos/Data/Articulos_data.dproj
View File

@ -47,14 +47,19 @@
<Borland.Personality>Delphi.Personality</Borland.Personality> <Borland.Personality>Delphi.Personality</Borland.Personality>
<Borland.ProjectType>Package</Borland.ProjectType> <Borland.ProjectType>Package</Borland.ProjectType>
<BorlandProject> <BorlandProject>
<BorlandProject><Delphi.Personality><Parameters><Parameters Name="UseLauncher">False</Parameters><Parameters Name="LoadAllSymbols">True</Parameters><Parameters Name="LoadUnspecifiedSymbols">False</Parameters></Parameters><Package_Options><Package_Options Name="ImplicitBuild">True</Package_Options><Package_Options Name="DesigntimeOnly">False</Package_Options><Package_Options Name="RuntimeOnly">False</Package_Options></Package_Options><VersionInfo><VersionInfo Name="IncludeVerInfo">True</VersionInfo><VersionInfo Name="AutoIncBuild">False</VersionInfo><VersionInfo Name="MajorVer">1</VersionInfo><VersionInfo Name="MinorVer">0</VersionInfo><VersionInfo Name="Release">0</VersionInfo><VersionInfo Name="Build">0</VersionInfo><VersionInfo Name="Debug">False</VersionInfo><VersionInfo Name="PreRelease">False</VersionInfo><VersionInfo Name="Special">False</VersionInfo><VersionInfo Name="Private">False</VersionInfo><VersionInfo Name="DLL">False</VersionInfo><VersionInfo Name="Locale">3082</VersionInfo><VersionInfo Name="CodePage">1252</VersionInfo></VersionInfo><VersionInfoKeys><VersionInfoKeys Name="CompanyName"></VersionInfoKeys><VersionInfoKeys Name="FileDescription"></VersionInfoKeys><VersionInfoKeys Name="FileVersion">1.0.0.0</VersionInfoKeys><VersionInfoKeys Name="InternalName"></VersionInfoKeys><VersionInfoKeys Name="LegalCopyright"></VersionInfoKeys><VersionInfoKeys Name="LegalTrademarks"></VersionInfoKeys><VersionInfoKeys Name="OriginalFilename"></VersionInfoKeys><VersionInfoKeys Name="ProductName"></VersionInfoKeys><VersionInfoKeys Name="ProductVersion">1.0.0.0</VersionInfoKeys><VersionInfoKeys Name="Comments"></VersionInfoKeys></VersionInfoKeys><Source><Source Name="MainSource">Articulos_data.dpk</Source></Source></Delphi.Personality></BorlandProject></BorlandProject> <BorlandProject><Delphi.Personality><Parameters><Parameters Name="UseLauncher">False</Parameters><Parameters Name="LoadAllSymbols">True</Parameters><Parameters Name="LoadUnspecifiedSymbols">False</Parameters></Parameters><Package_Options><Package_Options Name="ImplicitBuild">True</Package_Options><Package_Options Name="DesigntimeOnly">False</Package_Options><Package_Options Name="RuntimeOnly">False</Package_Options></Package_Options><VersionInfo><VersionInfo Name="IncludeVerInfo">True</VersionInfo><VersionInfo Name="AutoIncBuild">False</VersionInfo><VersionInfo Name="MajorVer">1</VersionInfo><VersionInfo Name="MinorVer">0</VersionInfo><VersionInfo Name="Release">0</VersionInfo><VersionInfo Name="Build">0</VersionInfo><VersionInfo Name="Debug">False</VersionInfo><VersionInfo Name="PreRelease">False</VersionInfo><VersionInfo Name="Special">False</VersionInfo><VersionInfo Name="Private">False</VersionInfo><VersionInfo Name="DLL">False</VersionInfo><VersionInfo Name="Locale">3082</VersionInfo><VersionInfo Name="CodePage">1252</VersionInfo></VersionInfo><VersionInfoKeys><VersionInfoKeys Name="CompanyName"></VersionInfoKeys><VersionInfoKeys Name="FileDescription"></VersionInfoKeys><VersionInfoKeys Name="FileVersion">1.0.0.0</VersionInfoKeys><VersionInfoKeys Name="InternalName"></VersionInfoKeys><VersionInfoKeys Name="LegalCopyright"></VersionInfoKeys><VersionInfoKeys Name="LegalTrademarks"></VersionInfoKeys><VersionInfoKeys Name="OriginalFilename"></VersionInfoKeys><VersionInfoKeys Name="ProductName"></VersionInfoKeys><VersionInfoKeys Name="ProductVersion">1.0.0.0</VersionInfoKeys><VersionInfoKeys Name="Comments"></VersionInfoKeys></VersionInfoKeys><Source><Source Name="MainSource">Articulos_data.dpk</Source></Source><Excluded_Packages>
<Excluded_Packages Name="$(BDS)\bin\dcloffice2k100.bpl">Microsoft Office 2000 Sample Automation Server Wrapper Components</Excluded_Packages>
<Excluded_Packages Name="$(BDS)\bin\dclofficexp100.bpl">Microsoft Office XP Sample Automation Server Wrapper Components</Excluded_Packages>
</Excluded_Packages></Delphi.Personality></BorlandProject></BorlandProject>
</ProjectExtensions> </ProjectExtensions>
<Import Project="$(MSBuildBinPath)\Borland.Delphi.Targets" /> <Import Project="$(MSBuildBinPath)\Borland.Delphi.Targets" />
<ItemGroup> <ItemGroup>
<DelphiCompile Include="Articulos_data.dpk"> <DelphiCompile Include="Articulos_data.dpk">
<MainSource>MainSource</MainSource> <MainSource>MainSource</MainSource>
</DelphiCompile> </DelphiCompile>
<DCCReference Include="..\Articulos_model.dcp" /> <DCCReference Include="..\..\..\Articulos_model.dcp" />
<DCCReference Include="uDataModuleArticulos.pas"> <DCCReference Include="uDataModuleArticulos.pas">
<Form>DataModuleArticulos</Form> <Form>DataModuleArticulos</Form>
</DCCReference> </DCCReference>
@ -62,7 +67,7 @@
</Project> </Project>
<!-- EurekaLog First Line <!-- EurekaLog First Line
[Exception Log] [Exception Log]
EurekaLog Version=6006 EurekaLog Version=6011
Activate=0 Activate=0
Activate Handle=1 Activate Handle=1
Save Log File=1 Save Log File=1

BIN
Source/Modulos/Articulos/Data/Articulos_data.res
View File

Binary file not shown.

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

@ -58,6 +58,8 @@ inherited DataModuleArticulos: TDataModuleArticulos
Name = 'UNIDAD_MEDIDA' Name = 'UNIDAD_MEDIDA'
DataType = datString DataType = datString
Size = 255 Size = 255
DisplayLabel = 'Unidad de medida'
DictionaryEntry = 'Articulos_UNIDAD_MEDIDA'
end end
item item
Name = 'FAMILIA' Name = 'FAMILIA'
@ -110,7 +112,7 @@ inherited DataModuleArticulos: TDataModuleArticulos
item item
Name = 'PRECIO_PORTE' Name = 'PRECIO_PORTE'
DataType = datCurrency DataType = datCurrency
DisplayLabel = 'Porte' DisplayLabel = 'Precio porte'
DictionaryEntry = 'Articulos_PRECIO_PORTE' DictionaryEntry = 'Articulos_PRECIO_PORTE'
end end
item item
@ -122,11 +124,14 @@ inherited DataModuleArticulos: TDataModuleArticulos
item item
Name = 'PRECIO_NETO' Name = 'PRECIO_NETO'
DataType = datCurrency DataType = datCurrency
DisplayLabel = 'Precio neto'
DictionaryEntry = 'Articulos_PRECIO_NETO' DictionaryEntry = 'Articulos_PRECIO_NETO'
end end
item item
Name = 'INVENTARIABLE' Name = 'INVENTARIABLE'
DataType = datSmallInt DataType = datSmallInt
DisplayLabel = 'Inventariable'
DictionaryEntry = 'Articulos_INVENTARIABLE'
end end
item item
Name = 'ID_PROVEEDOR' Name = 'ID_PROVEEDOR'
@ -144,11 +149,21 @@ inherited DataModuleArticulos: TDataModuleArticulos
Name = 'ELIMINADO' Name = 'ELIMINADO'
DataType = datSmallInt DataType = datSmallInt
DisplayLabel = 'Eliminado' DisplayLabel = 'Eliminado'
DictionaryEntry = 'Articulos_ELIMINADO'
end end
item item
Name = 'FABRICANTE' Name = 'FABRICANTE'
DataType = datString DataType = datString
Size = 255 Size = 255
DisplayLabel = 'Fabricante'
DictionaryEntry = 'Articulos_FABRICANTE'
end
item
Name = 'REFERENCIA_FABR'
DataType = datString
Size = 255
DisplayLabel = 'Ref. fabricante'
DictionaryEntry = 'Articulos_REFERENCIA_FABR'
end> end>
Params = <> Params = <>
StreamingOptions = [soDisableEventsWhileStreaming] StreamingOptions = [soDisableEventsWhileStreaming]
@ -188,6 +203,16 @@ inherited DataModuleArticulos: TDataModuleArticulos
DataType = datString DataType = datString
Size = 255 Size = 255
end end
item
Name = 'FABRICANTE'
DataType = datString
Size = 255
end
item
Name = 'REFERENCIA_FABR'
DataType = datString
Size = 255
end
item item
Name = 'UNIDAD_MEDIDA' Name = 'UNIDAD_MEDIDA'
DataType = datString DataType = datString

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

@ -64,7 +64,7 @@
</Project> </Project>
<!-- EurekaLog First Line <!-- EurekaLog First Line
[Exception Log] [Exception Log]
EurekaLog Version=6006 EurekaLog Version=6011
Activate=0 Activate=0
Activate Handle=1 Activate Handle=1
Save Log File=1 Save Log File=1

BIN
Source/Modulos/Articulos/Model/Articulos_model.res
View File

Binary file not shown.

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

@ -3,14 +3,14 @@ unit schArticulosClient_Intf;
interface interface
uses uses
Classes, DB, schBase_Intf, SysUtils, uROClasses, uDADataTable, FmtBCD, uROXMLIntf; Classes, DB, SysUtils, uROClasses, uDADataTable, FmtBCD, uROXMLIntf;
const 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 = '{042A5C28-35B0-4779-B864-11D70E7E1BD5}'; RID_Articulos = '{156CD895-4CAF-4DAD-B780-CE14A9E75C42}';
RID_ArticulosParaCliente = '{03F3C87A-2A4B-4405-8327-F442AB029B42}'; RID_ArticulosParaCliente = '{6EAEF27D-F41C-4537-9818-45A931D61E50}';
{ Data table names } { Data table names }
nme_Articulos = 'Articulos'; nme_Articulos = 'Articulos';
@ -38,6 +38,7 @@ const
fld_ArticulosNOMBRE_PROVEEDOR = 'NOMBRE_PROVEEDOR'; fld_ArticulosNOMBRE_PROVEEDOR = 'NOMBRE_PROVEEDOR';
fld_ArticulosELIMINADO = 'ELIMINADO'; fld_ArticulosELIMINADO = 'ELIMINADO';
fld_ArticulosFABRICANTE = 'FABRICANTE'; fld_ArticulosFABRICANTE = 'FABRICANTE';
fld_ArticulosREFERENCIA_FABR = 'REFERENCIA_FABR';
{ Articulos field indexes } { Articulos field indexes }
idx_ArticulosID = 0; idx_ArticulosID = 0;
@ -61,6 +62,7 @@ const
idx_ArticulosNOMBRE_PROVEEDOR = 18; idx_ArticulosNOMBRE_PROVEEDOR = 18;
idx_ArticulosELIMINADO = 19; idx_ArticulosELIMINADO = 19;
idx_ArticulosFABRICANTE = 20; idx_ArticulosFABRICANTE = 20;
idx_ArticulosREFERENCIA_FABR = 21;
{ ArticulosParaCliente fields } { ArticulosParaCliente fields }
fld_ArticulosParaClienteID = 'ID'; fld_ArticulosParaClienteID = 'ID';
@ -68,6 +70,7 @@ const
fld_ArticulosParaClienteREFERENCIA = 'REFERENCIA'; fld_ArticulosParaClienteREFERENCIA = 'REFERENCIA';
fld_ArticulosParaClienteDESCRIPCION = 'DESCRIPCION'; fld_ArticulosParaClienteDESCRIPCION = 'DESCRIPCION';
fld_ArticulosParaClienteFABRICANTE = 'FABRICANTE'; fld_ArticulosParaClienteFABRICANTE = 'FABRICANTE';
fld_ArticulosParaClienteREFERENCIA_FABR = 'REFERENCIA_FABR';
fld_ArticulosParaClienteUNIDAD_MEDIDA = 'UNIDAD_MEDIDA'; fld_ArticulosParaClienteUNIDAD_MEDIDA = 'UNIDAD_MEDIDA';
fld_ArticulosParaClienteFAMILIA = 'FAMILIA'; fld_ArticulosParaClienteFAMILIA = 'FAMILIA';
fld_ArticulosParaClienteIMAGEN = 'IMAGEN'; fld_ArticulosParaClienteIMAGEN = 'IMAGEN';
@ -91,27 +94,28 @@ const
idx_ArticulosParaClienteREFERENCIA = 2; idx_ArticulosParaClienteREFERENCIA = 2;
idx_ArticulosParaClienteDESCRIPCION = 3; idx_ArticulosParaClienteDESCRIPCION = 3;
idx_ArticulosParaClienteFABRICANTE = 4; idx_ArticulosParaClienteFABRICANTE = 4;
idx_ArticulosParaClienteUNIDAD_MEDIDA = 5; idx_ArticulosParaClienteREFERENCIA_FABR = 5;
idx_ArticulosParaClienteFAMILIA = 6; idx_ArticulosParaClienteUNIDAD_MEDIDA = 6;
idx_ArticulosParaClienteIMAGEN = 7; idx_ArticulosParaClienteFAMILIA = 7;
idx_ArticulosParaClienteCOMISIONABLE = 8; idx_ArticulosParaClienteIMAGEN = 8;
idx_ArticulosParaClienteFECHA_ALTA = 9; idx_ArticulosParaClienteCOMISIONABLE = 9;
idx_ArticulosParaClienteFECHA_MODIFICACION = 10; idx_ArticulosParaClienteFECHA_ALTA = 10;
idx_ArticulosParaClienteUSUARIO = 11; idx_ArticulosParaClienteFECHA_MODIFICACION = 11;
idx_ArticulosParaClienteREFERENCIA_PROV = 12; idx_ArticulosParaClienteUSUARIO = 12;
idx_ArticulosParaClientePRECIO_COSTE = 13; idx_ArticulosParaClienteREFERENCIA_PROV = 13;
idx_ArticulosParaClientePRECIO_PORTE = 14; idx_ArticulosParaClientePRECIO_COSTE = 14;
idx_ArticulosParaClienteDESCUENTO = 15; idx_ArticulosParaClientePRECIO_PORTE = 15;
idx_ArticulosParaClientePRECIO_NETO = 16; idx_ArticulosParaClienteDESCUENTO = 16;
idx_ArticulosParaClienteINVENTARIABLE = 17; idx_ArticulosParaClientePRECIO_NETO = 17;
idx_ArticulosParaClienteID_PROVEEDOR = 18; idx_ArticulosParaClienteINVENTARIABLE = 18;
idx_ArticulosParaClienteNOMBRE_PROVEEDOR = 19; idx_ArticulosParaClienteID_PROVEEDOR = 19;
idx_ArticulosParaClienteELIMINADO = 20; idx_ArticulosParaClienteNOMBRE_PROVEEDOR = 20;
idx_ArticulosParaClienteELIMINADO = 21;
type type
{ IArticulos } { IArticulos }
IArticulos = interface(IDAStronglyTypedDataTable) IArticulos = interface(IDAStronglyTypedDataTable)
['{F1DCC683-41C3-4835-A07F-DD9F276298F0}'] ['{83F55899-2640-40FA-AED6-7762EA6F1B4B}']
{ Property getters and setters } { Property getters and setters }
function GetIDValue: Integer; function GetIDValue: Integer;
procedure SetIDValue(const aValue: Integer); procedure SetIDValue(const aValue: Integer);
@ -196,6 +200,10 @@ type
procedure SetFABRICANTEValue(const aValue: String); procedure SetFABRICANTEValue(const aValue: String);
function GetFABRICANTEIsNull: Boolean; function GetFABRICANTEIsNull: Boolean;
procedure SetFABRICANTEIsNull(const aValue: Boolean); procedure SetFABRICANTEIsNull(const aValue: Boolean);
function GetREFERENCIA_FABRValue: String;
procedure SetREFERENCIA_FABRValue(const aValue: String);
function GetREFERENCIA_FABRIsNull: Boolean;
procedure SetREFERENCIA_FABRIsNull(const aValue: Boolean);
{ Properties } { Properties }
@ -241,10 +249,12 @@ type
property ELIMINADOIsNull: Boolean read GetELIMINADOIsNull write SetELIMINADOIsNull; property ELIMINADOIsNull: Boolean read GetELIMINADOIsNull write SetELIMINADOIsNull;
property FABRICANTE: String read GetFABRICANTEValue write SetFABRICANTEValue; property FABRICANTE: String read GetFABRICANTEValue write SetFABRICANTEValue;
property FABRICANTEIsNull: Boolean read GetFABRICANTEIsNull write SetFABRICANTEIsNull; property FABRICANTEIsNull: Boolean read GetFABRICANTEIsNull write SetFABRICANTEIsNull;
property REFERENCIA_FABR: String read GetREFERENCIA_FABRValue write SetREFERENCIA_FABRValue;
property REFERENCIA_FABRIsNull: Boolean read GetREFERENCIA_FABRIsNull write SetREFERENCIA_FABRIsNull;
end; end;
{ TArticulosDataTableRules } { TArticulosDataTableRules }
TArticulosDataTableRules = class(TIntfObjectDADataTableRules, IArticulos) TArticulosDataTableRules = class(TDADataTableRules, IArticulos)
private private
f_IMAGEN: IROStream; f_IMAGEN: IROStream;
procedure IMAGEN_OnChange(Sender: TObject); procedure IMAGEN_OnChange(Sender: TObject);
@ -333,6 +343,10 @@ type
procedure SetFABRICANTEValue(const aValue: String); virtual; procedure SetFABRICANTEValue(const aValue: String); virtual;
function GetFABRICANTEIsNull: Boolean; virtual; function GetFABRICANTEIsNull: Boolean; virtual;
procedure SetFABRICANTEIsNull(const aValue: Boolean); virtual; procedure SetFABRICANTEIsNull(const aValue: Boolean); virtual;
function GetREFERENCIA_FABRValue: String; virtual;
procedure SetREFERENCIA_FABRValue(const aValue: String); virtual;
function GetREFERENCIA_FABRIsNull: Boolean; virtual;
procedure SetREFERENCIA_FABRIsNull(const aValue: Boolean); virtual;
{ Properties } { Properties }
property ID: Integer read GetIDValue write SetIDValue; property ID: Integer read GetIDValue write SetIDValue;
@ -377,6 +391,8 @@ type
property ELIMINADOIsNull: Boolean read GetELIMINADOIsNull write SetELIMINADOIsNull; property ELIMINADOIsNull: Boolean read GetELIMINADOIsNull write SetELIMINADOIsNull;
property FABRICANTE: String read GetFABRICANTEValue write SetFABRICANTEValue; property FABRICANTE: String read GetFABRICANTEValue write SetFABRICANTEValue;
property FABRICANTEIsNull: Boolean read GetFABRICANTEIsNull write SetFABRICANTEIsNull; property FABRICANTEIsNull: Boolean read GetFABRICANTEIsNull write SetFABRICANTEIsNull;
property REFERENCIA_FABR: String read GetREFERENCIA_FABRValue write SetREFERENCIA_FABRValue;
property REFERENCIA_FABRIsNull: Boolean read GetREFERENCIA_FABRIsNull write SetREFERENCIA_FABRIsNull;
public public
constructor Create(aDataTable: TDADataTable); override; constructor Create(aDataTable: TDADataTable); override;
@ -386,7 +402,7 @@ type
{ IArticulosParaCliente } { IArticulosParaCliente }
IArticulosParaCliente = interface(IDAStronglyTypedDataTable) IArticulosParaCliente = interface(IDAStronglyTypedDataTable)
['{5615D828-ACE3-4839-B434-1E1EFC9454E5}'] ['{5D392436-9A8E-4D59-ADCB-1C16AEB25EF7}']
{ Property getters and setters } { Property getters and setters }
function GetIDValue: Integer; function GetIDValue: Integer;
procedure SetIDValue(const aValue: Integer); procedure SetIDValue(const aValue: Integer);
@ -408,6 +424,10 @@ type
procedure SetFABRICANTEValue(const aValue: String); procedure SetFABRICANTEValue(const aValue: String);
function GetFABRICANTEIsNull: Boolean; function GetFABRICANTEIsNull: Boolean;
procedure SetFABRICANTEIsNull(const aValue: Boolean); procedure SetFABRICANTEIsNull(const aValue: Boolean);
function GetREFERENCIA_FABRValue: String;
procedure SetREFERENCIA_FABRValue(const aValue: String);
function GetREFERENCIA_FABRIsNull: Boolean;
procedure SetREFERENCIA_FABRIsNull(const aValue: Boolean);
function GetUNIDAD_MEDIDAValue: String; function GetUNIDAD_MEDIDAValue: String;
procedure SetUNIDAD_MEDIDAValue(const aValue: String); procedure SetUNIDAD_MEDIDAValue(const aValue: String);
function GetUNIDAD_MEDIDAIsNull: Boolean; function GetUNIDAD_MEDIDAIsNull: Boolean;
@ -484,6 +504,8 @@ type
property DESCRIPCIONIsNull: Boolean read GetDESCRIPCIONIsNull write SetDESCRIPCIONIsNull; property DESCRIPCIONIsNull: Boolean read GetDESCRIPCIONIsNull write SetDESCRIPCIONIsNull;
property FABRICANTE: String read GetFABRICANTEValue write SetFABRICANTEValue; property FABRICANTE: String read GetFABRICANTEValue write SetFABRICANTEValue;
property FABRICANTEIsNull: Boolean read GetFABRICANTEIsNull write SetFABRICANTEIsNull; property FABRICANTEIsNull: Boolean read GetFABRICANTEIsNull write SetFABRICANTEIsNull;
property REFERENCIA_FABR: String read GetREFERENCIA_FABRValue write SetREFERENCIA_FABRValue;
property REFERENCIA_FABRIsNull: Boolean read GetREFERENCIA_FABRIsNull write SetREFERENCIA_FABRIsNull;
property UNIDAD_MEDIDA: String read GetUNIDAD_MEDIDAValue write SetUNIDAD_MEDIDAValue; property UNIDAD_MEDIDA: String read GetUNIDAD_MEDIDAValue write SetUNIDAD_MEDIDAValue;
property UNIDAD_MEDIDAIsNull: Boolean read GetUNIDAD_MEDIDAIsNull write SetUNIDAD_MEDIDAIsNull; property UNIDAD_MEDIDAIsNull: Boolean read GetUNIDAD_MEDIDAIsNull write SetUNIDAD_MEDIDAIsNull;
property FAMILIA: String read GetFAMILIAValue write SetFAMILIAValue; property FAMILIA: String read GetFAMILIAValue write SetFAMILIAValue;
@ -519,7 +541,7 @@ type
end; end;
{ TArticulosParaClienteDataTableRules } { TArticulosParaClienteDataTableRules }
TArticulosParaClienteDataTableRules = class(TIntfObjectDADataTableRules, IArticulosParaCliente) TArticulosParaClienteDataTableRules = class(TDADataTableRules, IArticulosParaCliente)
private private
f_IMAGEN: IROStream; f_IMAGEN: IROStream;
procedure IMAGEN_OnChange(Sender: TObject); procedure IMAGEN_OnChange(Sender: TObject);
@ -545,6 +567,10 @@ type
procedure SetFABRICANTEValue(const aValue: String); virtual; procedure SetFABRICANTEValue(const aValue: String); virtual;
function GetFABRICANTEIsNull: Boolean; virtual; function GetFABRICANTEIsNull: Boolean; virtual;
procedure SetFABRICANTEIsNull(const aValue: Boolean); virtual; procedure SetFABRICANTEIsNull(const aValue: Boolean); virtual;
function GetREFERENCIA_FABRValue: String; virtual;
procedure SetREFERENCIA_FABRValue(const aValue: String); virtual;
function GetREFERENCIA_FABRIsNull: Boolean; virtual;
procedure SetREFERENCIA_FABRIsNull(const aValue: Boolean); virtual;
function GetUNIDAD_MEDIDAValue: String; virtual; function GetUNIDAD_MEDIDAValue: String; virtual;
procedure SetUNIDAD_MEDIDAValue(const aValue: String); virtual; procedure SetUNIDAD_MEDIDAValue(const aValue: String); virtual;
function GetUNIDAD_MEDIDAIsNull: Boolean; virtual; function GetUNIDAD_MEDIDAIsNull: Boolean; virtual;
@ -620,6 +646,8 @@ type
property DESCRIPCIONIsNull: Boolean read GetDESCRIPCIONIsNull write SetDESCRIPCIONIsNull; property DESCRIPCIONIsNull: Boolean read GetDESCRIPCIONIsNull write SetDESCRIPCIONIsNull;
property FABRICANTE: String read GetFABRICANTEValue write SetFABRICANTEValue; property FABRICANTE: String read GetFABRICANTEValue write SetFABRICANTEValue;
property FABRICANTEIsNull: Boolean read GetFABRICANTEIsNull write SetFABRICANTEIsNull; property FABRICANTEIsNull: Boolean read GetFABRICANTEIsNull write SetFABRICANTEIsNull;
property REFERENCIA_FABR: String read GetREFERENCIA_FABRValue write SetREFERENCIA_FABRValue;
property REFERENCIA_FABRIsNull: Boolean read GetREFERENCIA_FABRIsNull write SetREFERENCIA_FABRIsNull;
property UNIDAD_MEDIDA: String read GetUNIDAD_MEDIDAValue write SetUNIDAD_MEDIDAValue; property UNIDAD_MEDIDA: String read GetUNIDAD_MEDIDAValue write SetUNIDAD_MEDIDAValue;
property UNIDAD_MEDIDAIsNull: Boolean read GetUNIDAD_MEDIDAIsNull write SetUNIDAD_MEDIDAIsNull; property UNIDAD_MEDIDAIsNull: Boolean read GetUNIDAD_MEDIDAIsNull write SetUNIDAD_MEDIDAIsNull;
property FAMILIA: String read GetFAMILIAValue write SetFAMILIAValue; property FAMILIA: String read GetFAMILIAValue write SetFAMILIAValue;
@ -1126,6 +1154,27 @@ begin
DataTable.Fields[idx_ArticulosFABRICANTE].AsVariant := Null; DataTable.Fields[idx_ArticulosFABRICANTE].AsVariant := Null;
end; end;
function TArticulosDataTableRules.GetREFERENCIA_FABRValue: String;
begin
result := DataTable.Fields[idx_ArticulosREFERENCIA_FABR].AsString;
end;
procedure TArticulosDataTableRules.SetREFERENCIA_FABRValue(const aValue: String);
begin
DataTable.Fields[idx_ArticulosREFERENCIA_FABR].AsString := aValue;
end;
function TArticulosDataTableRules.GetREFERENCIA_FABRIsNull: boolean;
begin
result := DataTable.Fields[idx_ArticulosREFERENCIA_FABR].IsNull;
end;
procedure TArticulosDataTableRules.SetREFERENCIA_FABRIsNull(const aValue: Boolean);
begin
if aValue then
DataTable.Fields[idx_ArticulosREFERENCIA_FABR].AsVariant := Null;
end;
{ TArticulosParaClienteDataTableRules } { TArticulosParaClienteDataTableRules }
constructor TArticulosParaClienteDataTableRules.Create(aDataTable: TDADataTable); constructor TArticulosParaClienteDataTableRules.Create(aDataTable: TDADataTable);
@ -1254,6 +1303,27 @@ begin
DataTable.Fields[idx_ArticulosParaClienteFABRICANTE].AsVariant := Null; DataTable.Fields[idx_ArticulosParaClienteFABRICANTE].AsVariant := Null;
end; end;
function TArticulosParaClienteDataTableRules.GetREFERENCIA_FABRValue: String;
begin
result := DataTable.Fields[idx_ArticulosParaClienteREFERENCIA_FABR].AsString;
end;
procedure TArticulosParaClienteDataTableRules.SetREFERENCIA_FABRValue(const aValue: String);
begin
DataTable.Fields[idx_ArticulosParaClienteREFERENCIA_FABR].AsString := aValue;
end;
function TArticulosParaClienteDataTableRules.GetREFERENCIA_FABRIsNull: boolean;
begin
result := DataTable.Fields[idx_ArticulosParaClienteREFERENCIA_FABR].IsNull;
end;
procedure TArticulosParaClienteDataTableRules.SetREFERENCIA_FABRIsNull(const aValue: Boolean);
begin
if aValue then
DataTable.Fields[idx_ArticulosParaClienteREFERENCIA_FABR].AsVariant := Null;
end;
function TArticulosParaClienteDataTableRules.GetUNIDAD_MEDIDAValue: String; function TArticulosParaClienteDataTableRules.GetUNIDAD_MEDIDAValue: String;
begin begin
result := DataTable.Fields[idx_ArticulosParaClienteUNIDAD_MEDIDA].AsString; result := DataTable.Fields[idx_ArticulosParaClienteUNIDAD_MEDIDA].AsString;

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

@ -9,13 +9,13 @@ const
{ Delta rules ids { Delta rules ids
Feel free to change them to something more human readable Feel free to change them to something more human readable
but make sure they are unique in the context of your application } but make sure they are unique in the context of your application }
RID_ArticulosDelta = '{4E74F5A8-5A74-41F9-B8A9-7DF2C8AA2A5A}'; RID_ArticulosDelta = '{FE99E03A-3FCB-4C45-AC72-214C99EA279D}';
RID_ArticulosParaClienteDelta = '{AD7097E1-071E-4496-8F43-216E98BC8F47}'; RID_ArticulosParaClienteDelta = '{56F158DA-2821-4DC3-AF59-B88CD666DD5E}';
type type
{ IArticulosDelta } { IArticulosDelta }
IArticulosDelta = interface(IArticulos) IArticulosDelta = interface(IArticulos)
['{4E74F5A8-5A74-41F9-B8A9-7DF2C8AA2A5A}'] ['{FE99E03A-3FCB-4C45-AC72-214C99EA279D}']
{ Property getters and setters } { Property getters and setters }
function GetOldIDValue : Integer; function GetOldIDValue : Integer;
function GetOldID_EMPRESAValue : Integer; function GetOldID_EMPRESAValue : Integer;
@ -38,6 +38,7 @@ type
function GetOldNOMBRE_PROVEEDORValue : String; function GetOldNOMBRE_PROVEEDORValue : String;
function GetOldELIMINADOValue : SmallInt; function GetOldELIMINADOValue : SmallInt;
function GetOldFABRICANTEValue : String; function GetOldFABRICANTEValue : String;
function GetOldREFERENCIA_FABRValue : String;
{ Properties } { Properties }
property OldID : Integer read GetOldIDValue; property OldID : Integer read GetOldIDValue;
@ -61,6 +62,7 @@ type
property OldNOMBRE_PROVEEDOR : String read GetOldNOMBRE_PROVEEDORValue; property OldNOMBRE_PROVEEDOR : String read GetOldNOMBRE_PROVEEDORValue;
property OldELIMINADO : SmallInt read GetOldELIMINADOValue; property OldELIMINADO : SmallInt read GetOldELIMINADOValue;
property OldFABRICANTE : String read GetOldFABRICANTEValue; property OldFABRICANTE : String read GetOldFABRICANTEValue;
property OldREFERENCIA_FABR : String read GetOldREFERENCIA_FABRValue;
end; end;
{ TArticulosBusinessProcessorRules } { TArticulosBusinessProcessorRules }
@ -195,6 +197,12 @@ type
function GetOldFABRICANTEIsNull: Boolean; virtual; function GetOldFABRICANTEIsNull: Boolean; virtual;
procedure SetFABRICANTEValue(const aValue: String); virtual; procedure SetFABRICANTEValue(const aValue: String); virtual;
procedure SetFABRICANTEIsNull(const aValue: Boolean); virtual; procedure SetFABRICANTEIsNull(const aValue: Boolean); virtual;
function GetREFERENCIA_FABRValue: String; virtual;
function GetREFERENCIA_FABRIsNull: Boolean; virtual;
function GetOldREFERENCIA_FABRValue: String; virtual;
function GetOldREFERENCIA_FABRIsNull: Boolean; virtual;
procedure SetREFERENCIA_FABRValue(const aValue: String); virtual;
procedure SetREFERENCIA_FABRIsNull(const aValue: Boolean); virtual;
{ Properties } { Properties }
property ID : Integer read GetIDValue write SetIDValue; property ID : Integer read GetIDValue write SetIDValue;
@ -281,6 +289,10 @@ type
property FABRICANTEIsNull : Boolean read GetFABRICANTEIsNull write SetFABRICANTEIsNull; property FABRICANTEIsNull : Boolean read GetFABRICANTEIsNull write SetFABRICANTEIsNull;
property OldFABRICANTE : String read GetOldFABRICANTEValue; property OldFABRICANTE : String read GetOldFABRICANTEValue;
property OldFABRICANTEIsNull : Boolean read GetOldFABRICANTEIsNull; property OldFABRICANTEIsNull : Boolean read GetOldFABRICANTEIsNull;
property REFERENCIA_FABR : String read GetREFERENCIA_FABRValue write SetREFERENCIA_FABRValue;
property REFERENCIA_FABRIsNull : Boolean read GetREFERENCIA_FABRIsNull write SetREFERENCIA_FABRIsNull;
property OldREFERENCIA_FABR : String read GetOldREFERENCIA_FABRValue;
property OldREFERENCIA_FABRIsNull : Boolean read GetOldREFERENCIA_FABRIsNull;
public public
constructor Create(aBusinessProcessor: TDABusinessProcessor); override; constructor Create(aBusinessProcessor: TDABusinessProcessor); override;
@ -290,13 +302,14 @@ type
{ IArticulosParaClienteDelta } { IArticulosParaClienteDelta }
IArticulosParaClienteDelta = interface(IArticulosParaCliente) IArticulosParaClienteDelta = interface(IArticulosParaCliente)
['{AD7097E1-071E-4496-8F43-216E98BC8F47}'] ['{56F158DA-2821-4DC3-AF59-B88CD666DD5E}']
{ 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 GetOldFABRICANTEValue : String; function GetOldFABRICANTEValue : String;
function GetOldREFERENCIA_FABRValue : String;
function GetOldUNIDAD_MEDIDAValue : String; function GetOldUNIDAD_MEDIDAValue : String;
function GetOldFAMILIAValue : String; function GetOldFAMILIAValue : String;
function GetOldIMAGENValue : IROStream; function GetOldIMAGENValue : IROStream;
@ -320,6 +333,7 @@ type
property OldREFERENCIA : String read GetOldREFERENCIAValue; property OldREFERENCIA : String read GetOldREFERENCIAValue;
property OldDESCRIPCION : String read GetOldDESCRIPCIONValue; property OldDESCRIPCION : String read GetOldDESCRIPCIONValue;
property OldFABRICANTE : String read GetOldFABRICANTEValue; property OldFABRICANTE : String read GetOldFABRICANTEValue;
property OldREFERENCIA_FABR : String read GetOldREFERENCIA_FABRValue;
property OldUNIDAD_MEDIDA : String read GetOldUNIDAD_MEDIDAValue; property OldUNIDAD_MEDIDA : String read GetOldUNIDAD_MEDIDAValue;
property OldFAMILIA : String read GetOldFAMILIAValue; property OldFAMILIA : String read GetOldFAMILIAValue;
property OldIMAGEN : IROStream read GetOldIMAGENValue; property OldIMAGEN : IROStream read GetOldIMAGENValue;
@ -375,6 +389,12 @@ type
function GetOldFABRICANTEIsNull: Boolean; virtual; function GetOldFABRICANTEIsNull: Boolean; virtual;
procedure SetFABRICANTEValue(const aValue: String); virtual; procedure SetFABRICANTEValue(const aValue: String); virtual;
procedure SetFABRICANTEIsNull(const aValue: Boolean); virtual; procedure SetFABRICANTEIsNull(const aValue: Boolean); virtual;
function GetREFERENCIA_FABRValue: String; virtual;
function GetREFERENCIA_FABRIsNull: Boolean; virtual;
function GetOldREFERENCIA_FABRValue: String; virtual;
function GetOldREFERENCIA_FABRIsNull: Boolean; virtual;
procedure SetREFERENCIA_FABRValue(const aValue: String); virtual;
procedure SetREFERENCIA_FABRIsNull(const aValue: Boolean); virtual;
function GetUNIDAD_MEDIDAValue: String; virtual; function GetUNIDAD_MEDIDAValue: String; virtual;
function GetUNIDAD_MEDIDAIsNull: Boolean; virtual; function GetUNIDAD_MEDIDAIsNull: Boolean; virtual;
function GetOldUNIDAD_MEDIDAValue: String; virtual; function GetOldUNIDAD_MEDIDAValue: String; virtual;
@ -492,6 +512,10 @@ type
property FABRICANTEIsNull : Boolean read GetFABRICANTEIsNull write SetFABRICANTEIsNull; property FABRICANTEIsNull : Boolean read GetFABRICANTEIsNull write SetFABRICANTEIsNull;
property OldFABRICANTE : String read GetOldFABRICANTEValue; property OldFABRICANTE : String read GetOldFABRICANTEValue;
property OldFABRICANTEIsNull : Boolean read GetOldFABRICANTEIsNull; property OldFABRICANTEIsNull : Boolean read GetOldFABRICANTEIsNull;
property REFERENCIA_FABR : String read GetREFERENCIA_FABRValue write SetREFERENCIA_FABRValue;
property REFERENCIA_FABRIsNull : Boolean read GetREFERENCIA_FABRIsNull write SetREFERENCIA_FABRIsNull;
property OldREFERENCIA_FABR : String read GetOldREFERENCIA_FABRValue;
property OldREFERENCIA_FABRIsNull : Boolean read GetOldREFERENCIA_FABRIsNull;
property UNIDAD_MEDIDA : String read GetUNIDAD_MEDIDAValue write SetUNIDAD_MEDIDAValue; property UNIDAD_MEDIDA : String read GetUNIDAD_MEDIDAValue write SetUNIDAD_MEDIDAValue;
property UNIDAD_MEDIDAIsNull : Boolean read GetUNIDAD_MEDIDAIsNull write SetUNIDAD_MEDIDAIsNull; property UNIDAD_MEDIDAIsNull : Boolean read GetUNIDAD_MEDIDAIsNull write SetUNIDAD_MEDIDAIsNull;
property OldUNIDAD_MEDIDA : String read GetOldUNIDAD_MEDIDAValue; property OldUNIDAD_MEDIDA : String read GetOldUNIDAD_MEDIDAValue;
@ -1242,6 +1266,37 @@ begin
BusinessProcessor.CurrentChange.NewValueByName[fld_ArticulosFABRICANTE] := Null; BusinessProcessor.CurrentChange.NewValueByName[fld_ArticulosFABRICANTE] := Null;
end; end;
function TArticulosBusinessProcessorRules.GetREFERENCIA_FABRValue: String;
begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_ArticulosREFERENCIA_FABR];
end;
function TArticulosBusinessProcessorRules.GetREFERENCIA_FABRIsNull: Boolean;
begin
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_ArticulosREFERENCIA_FABR]);
end;
function TArticulosBusinessProcessorRules.GetOldREFERENCIA_FABRValue: String;
begin
result := BusinessProcessor.CurrentChange.OldValueByName[fld_ArticulosREFERENCIA_FABR];
end;
function TArticulosBusinessProcessorRules.GetOldREFERENCIA_FABRIsNull: Boolean;
begin
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_ArticulosREFERENCIA_FABR]);
end;
procedure TArticulosBusinessProcessorRules.SetREFERENCIA_FABRValue(const aValue: String);
begin
BusinessProcessor.CurrentChange.NewValueByName[fld_ArticulosREFERENCIA_FABR] := aValue;
end;
procedure TArticulosBusinessProcessorRules.SetREFERENCIA_FABRIsNull(const aValue: Boolean);
begin
if aValue then
BusinessProcessor.CurrentChange.NewValueByName[fld_ArticulosREFERENCIA_FABR] := Null;
end;
{ TArticulosParaClienteBusinessProcessorRules } { TArticulosParaClienteBusinessProcessorRules }
constructor TArticulosParaClienteBusinessProcessorRules.Create(aBusinessProcessor: TDABusinessProcessor); constructor TArticulosParaClienteBusinessProcessorRules.Create(aBusinessProcessor: TDABusinessProcessor);
@ -1420,6 +1475,37 @@ begin
BusinessProcessor.CurrentChange.NewValueByName[fld_ArticulosParaClienteFABRICANTE] := Null; BusinessProcessor.CurrentChange.NewValueByName[fld_ArticulosParaClienteFABRICANTE] := Null;
end; end;
function TArticulosParaClienteBusinessProcessorRules.GetREFERENCIA_FABRValue: String;
begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_ArticulosParaClienteREFERENCIA_FABR];
end;
function TArticulosParaClienteBusinessProcessorRules.GetREFERENCIA_FABRIsNull: Boolean;
begin
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_ArticulosParaClienteREFERENCIA_FABR]);
end;
function TArticulosParaClienteBusinessProcessorRules.GetOldREFERENCIA_FABRValue: String;
begin
result := BusinessProcessor.CurrentChange.OldValueByName[fld_ArticulosParaClienteREFERENCIA_FABR];
end;
function TArticulosParaClienteBusinessProcessorRules.GetOldREFERENCIA_FABRIsNull: Boolean;
begin
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_ArticulosParaClienteREFERENCIA_FABR]);
end;
procedure TArticulosParaClienteBusinessProcessorRules.SetREFERENCIA_FABRValue(const aValue: String);
begin
BusinessProcessor.CurrentChange.NewValueByName[fld_ArticulosParaClienteREFERENCIA_FABR] := aValue;
end;
procedure TArticulosParaClienteBusinessProcessorRules.SetREFERENCIA_FABRIsNull(const aValue: Boolean);
begin
if aValue then
BusinessProcessor.CurrentChange.NewValueByName[fld_ArticulosParaClienteREFERENCIA_FABR] := Null;
end;
function TArticulosParaClienteBusinessProcessorRules.GetUNIDAD_MEDIDAValue: String; function TArticulosParaClienteBusinessProcessorRules.GetUNIDAD_MEDIDAValue: String;
begin begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_ArticulosParaClienteUNIDAD_MEDIDA]; result := BusinessProcessor.CurrentChange.NewValueByName[fld_ArticulosParaClienteUNIDAD_MEDIDA];

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

@ -76,7 +76,7 @@ object srvArticulos: TsrvArticulos
item item
Name = 'Articulos_PRECIO_PORTE' Name = 'Articulos_PRECIO_PORTE'
DataType = datCurrency DataType = datCurrency
DisplayLabel = 'Porte' DisplayLabel = 'Precio porte'
end end
item item
Name = 'Articulos_DESCUENTO' Name = 'Articulos_DESCUENTO'
@ -99,7 +99,7 @@ object srvArticulos: TsrvArticulos
item item
Name = 'Articulos_PRECIO_NETO' Name = 'Articulos_PRECIO_NETO'
DataType = datCurrency DataType = datCurrency
DisplayLabel = 'PRECIO_NETO' DisplayLabel = 'Precio neto'
end end
item item
Name = 'Articulos_ID_PROVEEDOR' Name = 'Articulos_ID_PROVEEDOR'
@ -113,6 +113,34 @@ object srvArticulos: TsrvArticulos
Size = 255 Size = 255
DisplayLabel = 'Nombre' DisplayLabel = 'Nombre'
ServerAutoRefresh = True ServerAutoRefresh = True
end
item
Name = 'Articulos_UNIDAD_MEDIDA'
DataType = datString
Size = 255
DisplayLabel = 'Unidad de medida'
end
item
Name = 'Articulos_INVENTARIABLE'
DataType = datSmallInt
DisplayLabel = 'Inventariable'
end
item
Name = 'Articulos_ELIMINADO'
DataType = datSmallInt
DisplayLabel = 'Eliminado'
end
item
Name = 'Articulos_FABRICANTE'
DataType = datString
Size = 255
DisplayLabel = 'Fabricante'
end
item
Name = 'Articulos_REFERENCIA_FABR'
DataType = datString
Size = 255
DisplayLabel = 'Ref. fabricante'
end> end>
Left = 150 Left = 150
Top = 22 Top = 22
@ -213,6 +241,10 @@ object srvArticulos: TsrvArticulos
item item
DatasetField = 'FABRICANTE' DatasetField = 'FABRICANTE'
TableField = 'FABRICANTE' TableField = 'FABRICANTE'
end
item
DatasetField = 'REFERENCIA_FABR'
TableField = 'REFERENCIA_FABR'
end> end>
end> end>
Name = 'Articulos' Name = 'Articulos'
@ -246,6 +278,7 @@ object srvArticulos: TsrvArticulos
Name = 'UNIDAD_MEDIDA' Name = 'UNIDAD_MEDIDA'
DataType = datString DataType = datString
Size = 255 Size = 255
DictionaryEntry = 'Articulos_UNIDAD_MEDIDA'
end end
item item
Name = 'FAMILIA' Name = 'FAMILIA'
@ -308,6 +341,7 @@ object srvArticulos: TsrvArticulos
item item
Name = 'INVENTARIABLE' Name = 'INVENTARIABLE'
DataType = datSmallInt DataType = datSmallInt
DictionaryEntry = 'Articulos_INVENTARIABLE'
end end
item item
Name = 'ID_PROVEEDOR' Name = 'ID_PROVEEDOR'
@ -323,12 +357,19 @@ object srvArticulos: TsrvArticulos
item item
Name = 'ELIMINADO' Name = 'ELIMINADO'
DataType = datSmallInt DataType = datSmallInt
DisplayLabel = 'Eliminado' DictionaryEntry = 'Articulos_ELIMINADO'
end end
item item
Name = 'FABRICANTE' Name = 'FABRICANTE'
DataType = datString DataType = datString
Size = 255 Size = 255
DictionaryEntry = 'Articulos_FABRICANTE'
end
item
Name = 'REFERENCIA_FABR'
DataType = datString
Size = 255
DictionaryEntry = 'Articulos_REFERENCIA_FABR'
end> end>
end end
item item
@ -345,18 +386,18 @@ 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.FABRICANTE,'#10' ' + 'ENCIA, V_ARTICULOS.DESCRIPCION,'#10' V_ARTICULOS.FABRICANTE,'#10' ' +
' V_ARTICULOS.UNIDAD_MEDIDA,'#10' V_ARTICULOS.FAMILIA, V_A' + ' V_ARTICULOS.REFERENCIA_FABR,'#10' V_ARTICULOS.UNIDAD_MED' +
'RTICULOS.IMAGEN, V_ARTICULOS.COMISIONABLE, V_ARTICULOS.FECHA_ALT' + 'IDA,'#10' V_ARTICULOS.FAMILIA, V_ARTICULOS.IMAGEN, V_ARTICULOS' +
'A,'#10' V_ARTICULOS.FECHA_MODIFICACION, V_ARTICULOS.USUARIO,'#10' ' + '.COMISIONABLE, V_ARTICULOS.FECHA_ALTA,'#10' V_ARTICULOS.FECHA_' +
' V_ARTICULOS.REFERENCIA_PROV,'#10' V_ARTICULOS.PRECIO_COS' + 'MODIFICACION, V_ARTICULOS.USUARIO,'#10' V_ARTICULOS.REFERENCIA' +
'TE,'#10' V_ARTICULOS.PRECIO_PORTE,'#10' CLIENTES_DTOS_PROVEE' + '_PROV,'#10' V_ARTICULOS.PRECIO_COSTE,'#10' V_ARTICULOS.PRECI' +
'DORES.DESCUENTO,'#10' V_ARTICULOS.PRECIO_NETO,'#10' V_ARTICU' + 'O_PORTE,'#10' CLIENTES_DTOS_PROVEEDORES.DESCUENTO,'#10' V_AR' +
'LOS.INVENTARIABLE,'#10' V_ARTICULOS.ID_PROVEEDOR,'#10' V_ART' + 'TICULOS.PRECIO_NETO,'#10' V_ARTICULOS.INVENTARIABLE,'#10' V_' +
'ICULOS.NOMBRE_PROVEEDOR,'#10' V_ARTICULOS.ELIMINADO'#10'FROM V_ART' + 'ARTICULOS.ID_PROVEEDOR,'#10' V_ARTICULOS.NOMBRE_PROVEEDOR,'#10' ' +
'ICULOS'#10'LEFT OUTER JOIN CLIENTES_DTOS_PROVEEDORES'#10'ON ((CLIENTES_D' + ' V_ARTICULOS.ELIMINADO'#10'FROM V_ARTICULOS'#10'LEFT OUTER JOIN CLIEN' +
'TOS_PROVEEDORES.ID_PROVEEDOR = V_ARTICULOS.ID_PROVEEDOR)'#10'AND (CL' + 'TES_DTOS_PROVEEDORES'#10'ON ((CLIENTES_DTOS_PROVEEDORES.ID_PROVEEDOR' +
'IENTES_DTOS_PROVEEDORES.ID_CLIENTE = :ID_CLIENTE))'#10'where {where}' + ' = V_ARTICULOS.ID_PROVEEDOR)'#10'AND (CLIENTES_DTOS_PROVEEDORES.ID_C' +
#10 'LIENTE = :ID_CLIENTE))'#10'where {where}'#10
StatementType = stSQL StatementType = stSQL
ColumnMappings = < ColumnMappings = <
item item
@ -443,6 +484,10 @@ object srvArticulos: TsrvArticulos
item item
DatasetField = 'FABRICANTE' DatasetField = 'FABRICANTE'
TableField = 'FABRICANTE' TableField = 'FABRICANTE'
end
item
DatasetField = 'REFERENCIA_FABR'
TableField = 'REFERENCIA_FABR'
end> end>
end> end>
Name = 'ArticulosParaCliente' Name = 'ArticulosParaCliente'
@ -471,6 +516,11 @@ object srvArticulos: TsrvArticulos
DataType = datString DataType = datString
Size = 255 Size = 255
end end
item
Name = 'REFERENCIA_FABR'
DataType = datString
Size = 255
end
item item
Name = 'UNIDAD_MEDIDA' Name = 'UNIDAD_MEDIDA'
DataType = datString DataType = datString
@ -549,8 +599,6 @@ object srvArticulos: TsrvArticulos
Params = < Params = <
item item
Name = 'ID' Name = 'ID'
DataType = datAutoInc
GeneratorName = 'GEN_ARTICULOS_ID'
Value = '' Value = ''
end end
item item
@ -628,6 +676,10 @@ object srvArticulos: TsrvArticulos
item item
Name = 'FABRICANTE' Name = 'FABRICANTE'
Value = '' Value = ''
end
item
Name = 'REFERENCIA_FABR'
Value = ''
end> end>
Statements = < Statements = <
item item
@ -638,12 +690,12 @@ object srvArticulos: TsrvArticulos
'CION, UNIDAD_MEDIDA, FAMILIA, IMAGEN,'#10' COMISIONABLE, FECHA_A' + 'CION, UNIDAD_MEDIDA, FAMILIA, IMAGEN,'#10' COMISIONABLE, FECHA_A' +
'LTA, FECHA_MODIFICACION, USUARIO, '#10' PRECIO_COSTE, PRECIO_POR' + 'LTA, FECHA_MODIFICACION, USUARIO, '#10' PRECIO_COSTE, PRECIO_POR' +
'TE, DESCUENTO, ID_PROVEEDOR, '#10' PRECIO_NETO, REFERENCIA_PROV,' + 'TE, DESCUENTO, ID_PROVEEDOR, '#10' PRECIO_NETO, REFERENCIA_PROV,' +
' INVENTARIABLE, ELIMINADO, FABRICANTE)'#10' VALUES'#10' (:ID, :ID_EM' + ' INVENTARIABLE, ELIMINADO, FABRICANTE,'#10' REFERENCIA_FABR)'#10' V' +
'PRESA, :REFERENCIA, :DESCRIPCION, :UNIDAD_MEDIDA, :FAMILIA,'#10' ' + 'ALUES'#10' (:ID, :ID_EMPRESA, :REFERENCIA, :DESCRIPCION, :UNIDAD_' +
' :IMAGEN, :COMISIONABLE, :FECHA_ALTA, :FECHA_MODIFICACION, '#10' ' + 'MEDIDA, :FAMILIA,'#10' :IMAGEN, :COMISIONABLE, :FECHA_ALTA, :FEC' +
' :USUARIO, :PRECIO_COSTE, :PRECIO_PORTE, :DESCUENTO, '#10' :ID_P' + 'HA_MODIFICACION, '#10' :USUARIO, :PRECIO_COSTE, :PRECIO_PORTE, :' +
'ROVEEDOR, :PRECIO_NETO, :REFERENCIA_PROV,'#10' :INVENTARIABLE, :' + 'DESCUENTO, '#10' :ID_PROVEEDOR, :PRECIO_NETO, :REFERENCIA_PROV,'#10 +
'ELIMINADO, :FABRICANTE)'#10 ' :INVENTARIABLE, :ELIMINADO, :FABRICANTE, :REFERENCIA_FABR)'#10
StatementType = stSQL StatementType = stSQL
ColumnMappings = <> ColumnMappings = <>
end> end>
@ -745,6 +797,10 @@ object srvArticulos: TsrvArticulos
Name = 'FABRICANTE' Name = 'FABRICANTE'
Value = '' Value = ''
end end
item
Name = 'REFERENCIA_FABR'
Value = ''
end
item item
Name = 'OLD_ID' Name = 'OLD_ID'
Value = '' Value = ''
@ -763,8 +819,9 @@ object srvArticulos: TsrvArticulos
'O_PORTE = :PRECIO_PORTE, '#10' DESCUENTO = :DESCUENTO, '#10' ID_PR' + 'O_PORTE = :PRECIO_PORTE, '#10' DESCUENTO = :DESCUENTO, '#10' ID_PR' +
'OVEEDOR = :ID_PROVEEDOR, '#10' PRECIO_NETO = :PRECIO_NETO,'#10' IN' + 'OVEEDOR = :ID_PROVEEDOR, '#10' PRECIO_NETO = :PRECIO_NETO,'#10' IN' +
'VENTARIABLE = :INVENTARIABLE,'#10' REFERENCIA_PROV = :REFERENCIA_' + 'VENTARIABLE = :INVENTARIABLE,'#10' REFERENCIA_PROV = :REFERENCIA_' +
'PROV,'#10' ELIMINADO = :ELIMINADO,'#10' FABRICANTE = :FABRICANTE'#10' ' + 'PROV,'#10' ELIMINADO = :ELIMINADO,'#10' FABRICANTE = :FABRICANTE,'#10 +
' WHERE'#10' (ID = :OLD_ID)'#10 ' REFERENCIA_FABR = :REFERENCIA_FABR'#10' WHERE'#10' (ID = :OLD_ID' +
')'#10
StatementType = stSQL StatementType = stSQL
ColumnMappings = <> ColumnMappings = <>
end> end>

BIN
Source/Modulos/Articulos/Views/Articulos_view.res
View File

Binary file not shown.

10
Source/Modulos/Articulos/Views/uEditorElegirArticulos.dfm
View File

@ -48,8 +48,10 @@ inherited fEditorElegirArticulos: TfEditorElegirArticulos
inherited TBXDock: TTBXDock inherited TBXDock: TTBXDock
Top = 87 Top = 87
Width = 656 Width = 656
Height = 49
ExplicitTop = 87 ExplicitTop = 87
ExplicitWidth = 656 ExplicitWidth = 656
ExplicitHeight = 49
inherited tbxMain: TTBXToolbar inherited tbxMain: TTBXToolbar
Align = alLeft Align = alLeft
DockPos = -6 DockPos = -6
@ -85,6 +87,14 @@ inherited fEditorElegirArticulos: TfEditorElegirArticulos
inherited tbxMenu: TTBXToolbar inherited tbxMenu: TTBXToolbar
ExplicitWidth = 656 ExplicitWidth = 656
end end
inherited TBXTMain2: TTBXToolbar
Left = 395
Top = 23
DockPos = 395
DockRow = 1
ExplicitLeft = 395
ExplicitTop = 23
end
end end
inherited StatusBar: TJvStatusBar inherited StatusBar: TJvStatusBar
Width = 656 Width = 656

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

@ -1,6 +1,6 @@
inherited frViewArticulo: TfrViewArticulo inherited frViewArticulo: TfrViewArticulo
Width = 649 Width = 986
Height = 426 Height = 439
Align = alClient Align = alClient
OnCreate = CustomViewCreate OnCreate = CustomViewCreate
OnDestroy = CustomViewDestroy OnDestroy = CustomViewDestroy
@ -10,19 +10,18 @@ inherited frViewArticulo: TfrViewArticulo
object dxLayoutControlArticulo: TdxLayoutControl object dxLayoutControlArticulo: TdxLayoutControl
Left = 0 Left = 0
Top = 0 Top = 0
Width = 649 Width = 986
Height = 393 Height = 425
Align = alTop Align = alTop
ParentBackground = True ParentBackground = True
TabOrder = 0 TabOrder = 0
AutoContentSizes = [acsWidth] AutoContentSizes = [acsWidth]
ExplicitWidth = 451
DesignSize = ( DesignSize = (
649 986
393) 425)
object PngSpeedButton2: TPngSpeedButton object PngSpeedButton2: TPngSpeedButton
Left = 588 Left = 506
Top = 28 Top = 304
Width = 23 Width = 23
Height = 22 Height = 22
Action = actAnadir Action = actAnadir
@ -48,22 +47,22 @@ inherited frViewArticulo: TfrViewArticulo
PngOptions = [pngBlendOnDisabled, pngGrayscaleOnDisabled] PngOptions = [pngBlendOnDisabled, pngGrayscaleOnDisabled]
end end
object PngSpeedButton1: TPngSpeedButton object PngSpeedButton1: TPngSpeedButton
Left = 588 Left = 506
Top = 56 Top = 332
Width = 23 Width = 23
Height = 22 Height = 22
Action = actEliminar Action = actEliminar
PngOptions = [pngBlendOnDisabled, pngGrayscaleOnDisabled] PngOptions = [pngBlendOnDisabled, pngGrayscaleOnDisabled]
end end
object eReferencia: TcxDBTextEdit object eReferencia: TcxDBTextEdit
Left = 103 Left = 122
Top = 28 Top = 55
Anchors = [akLeft, akTop, akRight] Anchors = [akLeft, akTop, akRight]
DataBinding.DataField = 'REFERENCIA' DataBinding.DataField = 'REFERENCIA'
DataBinding.DataSource = dsViewArticulo DataBinding.DataSource = dsViewArticulo
Style.BorderColor = clWindowFrame Style.BorderColor = clWindowFrame
Style.BorderStyle = ebs3D Style.BorderStyle = ebs3D
Style.Color = 14745599 Style.Color = clWindow
Style.HotTrack = False Style.HotTrack = False
Style.LookAndFeel.Kind = lfStandard Style.LookAndFeel.Kind = lfStandard
Style.LookAndFeel.NativeStyle = True Style.LookAndFeel.NativeStyle = True
@ -73,12 +72,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 = 0 TabOrder = 1
Width = 164 Width = 164
end end
object eDescripcion: TcxDBTextEdit object eDescripcion: TcxDBTextEdit
Left = 103 Left = 122
Top = 55 Top = 28
DataBinding.DataField = 'DESCRIPCION' DataBinding.DataField = 'DESCRIPCION'
DataBinding.DataSource = dsViewArticulo DataBinding.DataSource = dsViewArticulo
Style.BorderColor = clWindowFrame Style.BorderColor = clWindowFrame
@ -93,12 +92,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 = 1 TabOrder = 0
Width = 108 Width = 132
end end
object eNoComisionable: TcxDBCheckBox object eNoComisionable: TcxDBCheckBox
Left = 103 Left = 122
Top = 136 Top = 163
Caption = 'Art'#237'culo no comisionable' Caption = 'Art'#237'culo no comisionable'
DataBinding.DataField = 'COMISIONABLE' DataBinding.DataField = 'COMISIONABLE'
DataBinding.DataSource = dsViewArticulo DataBinding.DataSource = dsViewArticulo
@ -121,8 +120,8 @@ inherited frViewArticulo: TfrViewArticulo
Width = 144 Width = 144
end end
object eImagen: TcxImage object eImagen: TcxImage
Left = 468 Left = 28
Top = 28 Top = 304
Properties.GraphicClassName = 'TJPEGImage' Properties.GraphicClassName = 'TJPEGImage'
Properties.ImmediatePost = True Properties.ImmediatePost = True
Properties.PopupMenuLayout.MenuItems = [] Properties.PopupMenuLayout.MenuItems = []
@ -138,12 +137,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
Height = 100 Height = 98
Width = 140 Width = 621
end end
object cbFamilia: TcxDBComboBox object cbFamilia: TcxDBComboBox
Left = 103 Left = 122
Top = 82 Top = 82
DataBinding.DataField = 'FAMILIA' DataBinding.DataField = 'FAMILIA'
DataBinding.DataSource = dsViewArticulo DataBinding.DataSource = dsViewArticulo
@ -164,12 +163,12 @@ inherited frViewArticulo: TfrViewArticulo
StyleHot.LookAndFeel.Kind = lfStandard StyleHot.LookAndFeel.Kind = lfStandard
StyleHot.LookAndFeel.NativeStyle = True StyleHot.LookAndFeel.NativeStyle = True
TabOrder = 2 TabOrder = 2
Width = 162 Width = 383
end end
inline frViewDatosYSeleccionProveedor1: TfrViewDatosYSeleccionProveedor inline frViewDatosYSeleccionProveedor1: TfrViewDatosYSeleccionProveedor
Left = 261 Left = 559
Top = 193 Top = 28
Width = 350 Width = 526
Height = 202 Height = 202
Font.Charset = DEFAULT_CHARSET Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText Font.Color = clWindowText
@ -177,32 +176,42 @@ inherited frViewArticulo: TfrViewArticulo
Font.Name = 'Tahoma' Font.Name = 'Tahoma'
Font.Style = [] Font.Style = []
ParentFont = False ParentFont = False
TabOrder = 13 TabOrder = 9
ReadOnly = False ReadOnly = False
ExplicitLeft = 261 ExplicitLeft = 559
ExplicitTop = 193 ExplicitTop = 28
ExplicitWidth = 526
inherited dxLayoutControl1: TdxLayoutControl inherited dxLayoutControl1: TdxLayoutControl
Width = 526
inherited edtNIFCIF: TcxDBTextEdit inherited edtNIFCIF: TcxDBTextEdit
ExplicitWidth = 562 ExplicitWidth = 562
Width = 562 Width = 562
end end
inherited edtCalle: TcxDBTextEdit inherited edtCalle: TcxDBTextEdit
ExplicitWidth = 562 ExplicitWidth = 113
Width = 562 Width = 113
end end
inherited edtPoblacion: TcxDBTextEdit inherited edtPoblacion: TcxDBTextEdit
ExplicitWidth = 177 ExplicitWidth = 49
Width = 177 Width = 49
end end
inherited edtProvincia: TcxDBTextEdit inherited edtProvincia: TcxDBTextEdit
ExplicitWidth = 327 ExplicitWidth = 327
Width = 327 Width = 327
end end
inherited edtCodigoPostal: TcxDBTextEdit
Left = 313
ExplicitLeft = 313
end
inherited Button3: TBitBtn
Left = 197
ExplicitLeft = 197
end
end end
end end
object eReferenciaProv: TcxDBTextEdit object eReferenciaProv: TcxDBTextEdit
Left = 103 Left = 640
Top = 193 Top = 266
Anchors = [akLeft, akTop, akRight] Anchors = [akLeft, akTop, akRight]
DataBinding.DataField = 'REFERENCIA_PROV' DataBinding.DataField = 'REFERENCIA_PROV'
DataBinding.DataSource = dsViewArticulo DataBinding.DataSource = dsViewArticulo
@ -214,12 +223,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 = 8 TabOrder = 10
Width = 86 Width = 164
end end
object ePrecioCoste: TcxDBCurrencyEdit object ePrecioCoste: TcxDBCurrencyEdit
Left = 103 Left = 640
Top = 220 Top = 293
DataBinding.DataField = 'PRECIO_COSTE' DataBinding.DataField = 'PRECIO_COSTE'
DataBinding.DataSource = dsViewArticulo DataBinding.DataSource = dsViewArticulo
Properties.Alignment.Horz = taRightJustify Properties.Alignment.Horz = taRightJustify
@ -234,12 +243,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 = 9 TabOrder = 11
Width = 86 Width = 176
end end
object eDescuento: TcxDBSpinEdit object eDescuento: TcxDBSpinEdit
Left = 103 Left = 640
Top = 247 Top = 320
DataBinding.DataField = 'DESCUENTO' DataBinding.DataField = 'DESCUENTO'
DataBinding.DataSource = dsViewArticulo DataBinding.DataSource = dsViewArticulo
Properties.Alignment.Horz = taRightJustify Properties.Alignment.Horz = taRightJustify
@ -257,12 +266,12 @@ inherited frViewArticulo: TfrViewArticulo
StyleFocused.LookAndFeel.NativeStyle = True StyleFocused.LookAndFeel.NativeStyle = True
StyleHot.LookAndFeel.Kind = lfStandard StyleHot.LookAndFeel.Kind = lfStandard
StyleHot.LookAndFeel.NativeStyle = True StyleHot.LookAndFeel.NativeStyle = True
TabOrder = 10 TabOrder = 12
Width = 86 Width = 120
end end
object ePrecioNeto: TcxDBCurrencyEdit object ePrecioNeto: TcxDBCurrencyEdit
Left = 103 Left = 640
Top = 274 Top = 347
DataBinding.DataField = 'PRECIO_NETO' DataBinding.DataField = 'PRECIO_NETO'
DataBinding.DataSource = dsViewArticulo DataBinding.DataSource = dsViewArticulo
Enabled = False Enabled = False
@ -282,12 +291,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 = 11 TabOrder = 13
Width = 86 Width = 152
end end
object ePrecioPorte: TcxDBCurrencyEdit object ePrecioPorte: TcxDBCurrencyEdit
Left = 103 Left = 640
Top = 301 Top = 374
DataBinding.DataField = 'PRECIO_PORTE' DataBinding.DataField = 'PRECIO_PORTE'
DataBinding.DataSource = dsViewArticulo DataBinding.DataSource = dsViewArticulo
Properties.Alignment.Horz = taRightJustify Properties.Alignment.Horz = taRightJustify
@ -302,12 +311,12 @@ inherited frViewArticulo: TfrViewArticulo
StyleFocused.LookAndFeel.NativeStyle = True StyleFocused.LookAndFeel.NativeStyle = True
StyleHot.LookAndFeel.Kind = lfStandard StyleHot.LookAndFeel.Kind = lfStandard
StyleHot.LookAndFeel.NativeStyle = True StyleHot.LookAndFeel.NativeStyle = True
TabOrder = 12 TabOrder = 14
Width = 86 Width = 152
end end
object cbNoInventariable: TcxDBCheckBox object cbNoInventariable: TcxDBCheckBox
Left = 253 Left = 122
Top = 109 Top = 136
Caption = 'Art'#237'culo no inventariable' Caption = 'Art'#237'culo no inventariable'
DataBinding.DataField = 'INVENTARIABLE' DataBinding.DataField = 'INVENTARIABLE'
DataBinding.DataSource = dsViewArticulo DataBinding.DataSource = dsViewArticulo
@ -326,12 +335,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 = 6 TabOrder = 4
Width = 144 Width = 148
end end
object cbUnidadMedida: TcxDBComboBox object cbUnidadMedida: TcxDBComboBox
Left = 307 Left = 122
Top = 82 Top = 109
DataBinding.DataField = 'UNIDAD_MEDIDA' DataBinding.DataField = 'UNIDAD_MEDIDA'
DataBinding.DataSource = dsViewArticulo DataBinding.DataSource = dsViewArticulo
Properties.DropDownRows = 16 Properties.DropDownRows = 16
@ -351,11 +360,11 @@ inherited frViewArticulo: TfrViewArticulo
StyleHot.LookAndFeel.Kind = lfStandard StyleHot.LookAndFeel.Kind = lfStandard
StyleHot.LookAndFeel.NativeStyle = True StyleHot.LookAndFeel.NativeStyle = True
TabOrder = 3 TabOrder = 3
Width = 164 Width = 511
end end
object cbFabricante: TcxDBComboBox object cbFabricante: TcxDBComboBox
Left = 103 Left = 122
Top = 109 Top = 220
DataBinding.DataField = 'FABRICANTE' DataBinding.DataField = 'FABRICANTE'
DataBinding.DataSource = dsViewArticulo DataBinding.DataSource = dsViewArticulo
Properties.DropDownRows = 16 Properties.DropDownRows = 16
@ -374,23 +383,60 @@ 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 = 4 TabOrder = 6
Width = 127 Width = 479
end
object eReferenciaFabr: TcxDBTextEdit
Left = 122
Top = 247
Anchors = [akLeft, akTop, akRight]
DataBinding.DataField = 'REFERENCIA_FABR'
DataBinding.DataSource = dsViewArticulo
Style.BorderColor = clWindowFrame
Style.BorderStyle = ebs3D
Style.Color = clWindow
Style.HotTrack = False
Style.LookAndFeel.Kind = lfStandard
Style.LookAndFeel.NativeStyle = True
StyleDisabled.LookAndFeel.Kind = lfStandard
StyleDisabled.LookAndFeel.NativeStyle = True
StyleFocused.Color = clWindow
StyleFocused.LookAndFeel.Kind = lfStandard
StyleFocused.LookAndFeel.NativeStyle = True
StyleHot.LookAndFeel.Kind = lfStandard
StyleHot.LookAndFeel.NativeStyle = True
TabOrder = 7
Width = 171
end end
object dxLayoutControlArticuloGroup_Root: TdxLayoutGroup object dxLayoutControlArticuloGroup_Root: TdxLayoutGroup
ShowCaption = False ShowCaption = False
Hidden = True Hidden = True
LayoutDirection = ldHorizontal
ShowBorder = False ShowBorder = False
object dxLayoutControlArticuloGroup7: TdxLayoutGroup object dxLayoutControlArticuloGroup3: TdxLayoutGroup
Caption = 'New Group'
ShowCaption = False
LayoutDirection = ldHorizontal
ShowBorder = False
end
object dxLayoutControlArticuloGroup14: TdxLayoutGroup
AutoAligns = []
AlignHorz = ahClient
Caption = 'New Group'
ShowCaption = False ShowCaption = False
Hidden = True Hidden = True
LayoutDirection = ldHorizontal
ShowBorder = False ShowBorder = False
object dxLayoutControlArticuloGroup1: TdxLayoutGroup object dxLayoutControlArticuloGroup1: TdxLayoutGroup
AutoAligns = [] AutoAligns = []
AlignHorz = ahClient AlignHorz = ahClient
AlignVert = avClient
Caption = 'Datos del art'#237'culo' Caption = 'Datos del art'#237'culo'
object dxLayoutControlArticuloItem8: TdxLayoutItem
AutoAligns = [aaVertical]
AlignHorz = ahClient
Caption = 'Descripci'#243'n:'
Control = eDescripcion
ControlOptions.ShowBorder = False
end
object dxLayoutControlArticuloItem3: TdxLayoutItem object dxLayoutControlArticuloItem3: TdxLayoutItem
AutoAligns = [aaVertical] AutoAligns = [aaVertical]
AlignHorz = ahClient AlignHorz = ahClient
@ -402,76 +448,59 @@ inherited frViewArticulo: TfrViewArticulo
ShowCaption = False ShowCaption = False
Hidden = True Hidden = True
ShowBorder = False ShowBorder = False
object dxLayoutControlArticuloItem8: TdxLayoutItem object dxLayoutControlArticuloItem4: TdxLayoutItem
AutoAligns = [aaVertical] AutoAligns = [aaVertical]
AlignHorz = ahClient AlignHorz = ahClient
Caption = 'Descripci'#243'n:' Caption = 'Familia:'
Control = eDescripcion Control = cbFamilia
ControlOptions.ShowBorder = False
end
object dxLayoutControlArticuloItem9: TdxLayoutItem
AutoAligns = [aaVertical]
AlignHorz = ahClient
Caption = 'Unidad de medida:'
Control = cbUnidadMedida
ControlOptions.ShowBorder = False ControlOptions.ShowBorder = False
end end
object dxLayoutControlArticuloGroup6: TdxLayoutGroup object dxLayoutControlArticuloGroup6: TdxLayoutGroup
ShowCaption = False ShowCaption = False
Hidden = True Hidden = True
ShowBorder = False ShowBorder = False
object dxLayoutControlArticuloGroup9: TdxLayoutGroup object dxLayoutControlArticuloItem7: TdxLayoutItem
ShowCaption = False AutoAligns = [aaVertical]
Hidden = True AlignHorz = ahClient
LayoutDirection = ldHorizontal Caption = ' '
ShowBorder = False Control = cbNoInventariable
object dxLayoutControlArticuloItem4: TdxLayoutItem ControlOptions.ShowBorder = False
AutoAligns = [aaVertical]
AlignHorz = ahClient
Caption = 'Familia:'
Control = cbFamilia
ControlOptions.ShowBorder = False
end
object dxLayoutControlArticuloItem9: TdxLayoutItem
AutoAligns = [aaVertical]
AlignHorz = ahClient
Caption = 'Unid. medida:'
Control = cbUnidadMedida
ControlOptions.ShowBorder = False
end
end end
object dxLayoutControlArticuloGroup8: TdxLayoutGroup object dxLayoutControlArticuloItem1: TdxLayoutItem
ShowCaption = False AutoAligns = [aaVertical]
Hidden = True AlignHorz = ahClient
LayoutDirection = ldHorizontal Caption = ' '
ShowBorder = False Visible = False
object dxLayoutControlArticuloGroup10: TdxLayoutGroup Control = eNoComisionable
ShowCaption = False ControlOptions.ShowBorder = False
Hidden = True
ShowBorder = False
object dxLayoutControlArticuloItem10: TdxLayoutItem
Caption = 'Fabricante:'
Control = cbFabricante
ControlOptions.ShowBorder = False
end
object dxLayoutControlArticuloItem1: TdxLayoutItem
AutoAligns = [aaVertical]
AlignHorz = ahClient
Caption = ' '
Visible = False
Control = eNoComisionable
ControlOptions.ShowBorder = False
end
end
object dxLayoutControlArticuloItem7: TdxLayoutItem
AutoAligns = [aaVertical]
AlignHorz = ahClient
Caption = ' '
ShowCaption = False
Control = cbNoInventariable
ControlOptions.ShowBorder = False
end
end end
end end
end end
end end
object dxLayoutControlArticuloGroup10: TdxLayoutGroup
Caption = 'Datos del fabricante'
object dxLayoutControlArticuloItem10: TdxLayoutItem
Caption = 'Fabricante:'
Control = cbFabricante
ControlOptions.ShowBorder = False
end
object dxLayoutControlArticuloItem11: TdxLayoutItem
AutoAligns = [aaVertical]
Caption = 'Referencia:'
Control = eReferenciaFabr
ControlOptions.ShowBorder = False
end
end
object dxLayoutControlArticuloGroup2: TdxLayoutGroup object dxLayoutControlArticuloGroup2: TdxLayoutGroup
AutoAligns = [] AutoAligns = []
AlignHorz = ahClient AlignHorz = ahClient
AlignVert = avClient
Caption = 'Imagen' Caption = 'Imagen'
Visible = False Visible = False
LayoutDirection = ldHorizontal LayoutDirection = ldHorizontal
@ -501,14 +530,25 @@ inherited frViewArticulo: TfrViewArticulo
end end
end end
end end
object dxLayoutControlArticuloGroup3: TdxLayoutGroup object dxLayoutControlArticuloGroup7: TdxLayoutGroup
Caption = 'New Group' AutoAligns = [aaVertical]
AlignHorz = ahClient
ShowCaption = False ShowCaption = False
LayoutDirection = ldHorizontal Hidden = True
ShowBorder = False ShowBorder = False
object dxLayoutControlArticuloGroup11: TdxLayoutGroup object dxLayoutControlArticuloGroup12: TdxLayoutGroup
AutoAligns = [aaVertical] AutoAligns = [aaVertical]
AlignHorz = ahClient AlignHorz = ahClient
Caption = 'Proveedor para el art'#237'culo'
object dxLayoutControlArticuloItem14: TdxLayoutItem
Control = frViewDatosYSeleccionProveedor1
ControlOptions.AutoColor = True
ControlOptions.ShowBorder = False
end
end
object dxLayoutControlArticuloGroup11: TdxLayoutGroup
AutoAligns = []
AlignHorz = ahClient
Caption = 'Datos del proveedor para el art'#237'culo' Caption = 'Datos del proveedor para el art'#237'culo'
object dxLayoutControlArticuloItem15: TdxLayoutItem object dxLayoutControlArticuloItem15: TdxLayoutItem
Caption = 'Ref. del prov:' Caption = 'Ref. del prov:'
@ -536,16 +576,6 @@ inherited frViewArticulo: TfrViewArticulo
ControlOptions.ShowBorder = False ControlOptions.ShowBorder = False
end end
end end
object dxLayoutControlArticuloGroup12: TdxLayoutGroup
AutoAligns = [aaVertical]
AlignHorz = ahRight
Caption = 'Proveedor para el art'#237'culo'
object dxLayoutControlArticuloItem14: TdxLayoutItem
Control = frViewDatosYSeleccionProveedor1
ControlOptions.AutoColor = True
ControlOptions.ShowBorder = False
end
end
end end
end end
end end

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

@ -47,7 +47,6 @@ type
dxLayoutControlArticuloItem5: TdxLayoutItem; dxLayoutControlArticuloItem5: TdxLayoutItem;
PngSpeedButton1: TPngSpeedButton; PngSpeedButton1: TPngSpeedButton;
dxLayoutControlArticuloGroup3: TdxLayoutGroup; dxLayoutControlArticuloGroup3: TdxLayoutGroup;
dxLayoutControlArticuloGroup7: TdxLayoutGroup;
eImagen: TcxImage; eImagen: TcxImage;
dxLayoutControlArticuloItem6: TdxLayoutItem; dxLayoutControlArticuloItem6: TdxLayoutItem;
dxLayoutControlArticuloGroup5: TdxLayoutGroup; dxLayoutControlArticuloGroup5: TdxLayoutGroup;
@ -70,13 +69,15 @@ type
dxLayoutControlArticuloGroup12: TdxLayoutGroup; dxLayoutControlArticuloGroup12: TdxLayoutGroup;
dxLayoutControlArticuloItem7: TdxLayoutItem; dxLayoutControlArticuloItem7: TdxLayoutItem;
cbNoInventariable: TcxDBCheckBox; cbNoInventariable: TcxDBCheckBox;
dxLayoutControlArticuloGroup8: TdxLayoutGroup;
dxLayoutControlArticuloItem9: TdxLayoutItem; dxLayoutControlArticuloItem9: TdxLayoutItem;
cbUnidadMedida: TcxDBComboBox; cbUnidadMedida: TcxDBComboBox;
dxLayoutControlArticuloGroup9: TdxLayoutGroup;
dxLayoutControlArticuloItem10: TdxLayoutItem; dxLayoutControlArticuloItem10: TdxLayoutItem;
cbFabricante: TcxDBComboBox; cbFabricante: TcxDBComboBox;
dxLayoutControlArticuloItem11: TdxLayoutItem;
eReferenciaFabr: TcxDBTextEdit;
dxLayoutControlArticuloGroup10: TdxLayoutGroup; dxLayoutControlArticuloGroup10: TdxLayoutGroup;
dxLayoutControlArticuloGroup14: TdxLayoutGroup;
dxLayoutControlArticuloGroup7: 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);