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

Arraglo de informe de margen ventas-compra (se pone el proveedor del articulo para que se falsee el informe al filtrar

Browse Source 
git-svn-id: https://192.168.0.254/svn/Proyectos.LuisLeon_FactuGES/trunk@239 c93665c3-c93d-084d-9b98-7d5f4a9c3376
This commit is contained in:
roberto 2008-06-04 17:17:54 +00:00
parent d17d0d2e9b
commit d309e38ec1
17 changed files with 859 additions and 613 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
Source/Cliente/FactuGES.bdsproj
View File

@ -147,8 +147,8 @@
<VersionInfo> <VersionInfo>
<VersionInfo Name="IncludeVerInfo">True</VersionInfo> <VersionInfo Name="IncludeVerInfo">True</VersionInfo>
<VersionInfo Name="AutoIncBuild">False</VersionInfo> <VersionInfo Name="AutoIncBuild">False</VersionInfo>
<VersionInfo Name="MajorVer">2</VersionInfo> <VersionInfo Name="MajorVer">3</VersionInfo>
<VersionInfo Name="MinorVer">9</VersionInfo> <VersionInfo Name="MinorVer">0</VersionInfo>
<VersionInfo Name="Release">0</VersionInfo> <VersionInfo Name="Release">0</VersionInfo>
<VersionInfo Name="Build">0</VersionInfo> <VersionInfo Name="Build">0</VersionInfo>
<VersionInfo Name="Debug">False</VersionInfo> <VersionInfo Name="Debug">False</VersionInfo>
@ -162,13 +162,13 @@
<VersionInfoKeys> <VersionInfoKeys>
<VersionInfoKeys Name="CompanyName">Rodax Software S.L.</VersionInfoKeys> <VersionInfoKeys Name="CompanyName">Rodax Software S.L.</VersionInfoKeys>
<VersionInfoKeys Name="FileDescription"></VersionInfoKeys> <VersionInfoKeys Name="FileDescription"></VersionInfoKeys>
<VersionInfoKeys Name="FileVersion">2.9.0.0</VersionInfoKeys> <VersionInfoKeys Name="FileVersion">3.0.0.0</VersionInfoKeys>
<VersionInfoKeys Name="InternalName">FactuGES</VersionInfoKeys> <VersionInfoKeys Name="InternalName">FactuGES</VersionInfoKeys>
<VersionInfoKeys Name="LegalCopyright"></VersionInfoKeys> <VersionInfoKeys Name="LegalCopyright"></VersionInfoKeys>
<VersionInfoKeys Name="LegalTrademarks"></VersionInfoKeys> <VersionInfoKeys Name="LegalTrademarks"></VersionInfoKeys>
<VersionInfoKeys Name="OriginalFilename"></VersionInfoKeys> <VersionInfoKeys Name="OriginalFilename"></VersionInfoKeys>
<VersionInfoKeys Name="ProductName"></VersionInfoKeys> <VersionInfoKeys Name="ProductName"></VersionInfoKeys>
<VersionInfoKeys Name="ProductVersion">2.9.0.0</VersionInfoKeys> <VersionInfoKeys Name="ProductVersion">3.0.0.0</VersionInfoKeys>
<VersionInfoKeys Name="Comments"></VersionInfoKeys> <VersionInfoKeys Name="Comments"></VersionInfoKeys>
</VersionInfoKeys> <Excluded_Packages> </VersionInfoKeys> <Excluded_Packages>
<Excluded_Packages Name="C:\Documents and Settings\Usuario\Mis documentos\Borland Studio Projects\Bpl\EasyListviewD10.bpl">Muststang Peak EasyListview Runtime Package</Excluded_Packages> <Excluded_Packages Name="C:\Documents and Settings\Usuario\Mis documentos\Borland Studio Projects\Bpl\EasyListviewD10.bpl">Muststang Peak EasyListview Runtime Package</Excluded_Packages>

8
Source/Cliente/FactuGES.rc
View File

@ -1,7 +1,7 @@
MAINICON ICON "c:\Codigo Luis Leon\Source\Iconos\Factuges.ico" MAINICON ICON "c:\Codigo Luis Leon\Source\Iconos\Factuges.ico"
1 VERSIONINFO 1 VERSIONINFO
FILEVERSION 2,9,0,0 FILEVERSION 3,0,0,0
PRODUCTVERSION 2,9,0,0 PRODUCTVERSION 3,0,0,0
FILEFLAGSMASK 0x3FL FILEFLAGSMASK 0x3FL
FILEFLAGS 0x00L FILEFLAGS 0x00L
FILEOS 0x40004L FILEOS 0x40004L
@ -13,9 +13,9 @@ BEGIN
BLOCK "0C0A04E4" BLOCK "0C0A04E4"
BEGIN BEGIN
VALUE "CompanyName", "Rodax Software S.L.\0" VALUE "CompanyName", "Rodax Software S.L.\0"
VALUE "FileVersion", "2.9.0.0\0" VALUE "FileVersion", "3.0.0.0\0"
VALUE "InternalName", "FactuGES\0" VALUE "InternalName", "FactuGES\0"
VALUE "ProductVersion", "2.9.0.0\0" VALUE "ProductVersion", "3.0.0.0\0"
END END
END END
BLOCK "VarFileInfo" BLOCK "VarFileInfo"

BIN
Source/Cliente/FactuGES.res
View File

Binary file not shown.

6
Source/Modulos/Informe margen por articulo/Data/InfMargenArticulo_data.bdsproj
View File

@ -170,13 +170,11 @@
<VersionInfoKeys Name="ProductName"></VersionInfoKeys> <VersionInfoKeys Name="ProductName"></VersionInfoKeys>
<VersionInfoKeys Name="ProductVersion">1.0.0.0</VersionInfoKeys> <VersionInfoKeys Name="ProductVersion">1.0.0.0</VersionInfoKeys>
<VersionInfoKeys Name="Comments"></VersionInfoKeys> <VersionInfoKeys Name="Comments"></VersionInfoKeys>
</VersionInfoKeys> </VersionInfoKeys> <Excluded_Packages>
<Excluded_Packages>
<Excluded_Packages Name="C:\Archivos de programa\RemObjects Software\Pascal Script\Dcu\D10\PascalScript_RO_D10.bpl">RemObjects Pascal Script - RemObjects SDK 3.0 Integration</Excluded_Packages> <Excluded_Packages Name="C:\Archivos de programa\RemObjects Software\Pascal Script\Dcu\D10\PascalScript_RO_D10.bpl">RemObjects Pascal Script - RemObjects SDK 3.0 Integration</Excluded_Packages>
</Excluded_Packages> </Excluded_Packages>
</Delphi.Personality> </Delphi.Personality>
<!-- EurekaLog First Line <!-- EurekaLog First Line
[Exception Log] [Exception Log]
EurekaLog Version=519 EurekaLog Version=519
Activate=1 Activate=1

114
Source/Modulos/Informe margen por articulo/Data/uDataModuleInfMargenArticulo.dfm
View File

@ -173,7 +173,6 @@ object dmInfMargenArticulo: TdmInfMargenArticulo
DataType = datInteger DataType = datInteger
BlobType = dabtUnknown BlobType = dabtUnknown
DisplayWidth = 0 DisplayWidth = 0
DisplayLabel = 'Id empresa'
Alignment = taLeftJustify Alignment = taLeftJustify
DictionaryEntry = 'InfVentasArticulo_ID_EMPRESA' DictionaryEntry = 'InfVentasArticulo_ID_EMPRESA'
InPrimaryKey = False InPrimaryKey = False
@ -186,7 +185,6 @@ object dmInfMargenArticulo: TdmInfMargenArticulo
DataType = datInteger DataType = datInteger
BlobType = dabtUnknown BlobType = dabtUnknown
DisplayWidth = 0 DisplayWidth = 0
DisplayLabel = 'Id art'#237'culo'
Alignment = taLeftJustify Alignment = taLeftJustify
DictionaryEntry = 'InfVentasArticulo_ID_ARTICULO' DictionaryEntry = 'InfVentasArticulo_ID_ARTICULO'
InPrimaryKey = True InPrimaryKey = True
@ -200,7 +198,6 @@ object dmInfMargenArticulo: TdmInfMargenArticulo
Size = 255 Size = 255
BlobType = dabtUnknown BlobType = dabtUnknown
DisplayWidth = 0 DisplayWidth = 0
DisplayLabel = 'Familia'
Alignment = taLeftJustify Alignment = taLeftJustify
DictionaryEntry = 'InfVentasArticulo_FAMILIA' DictionaryEntry = 'InfVentasArticulo_FAMILIA'
InPrimaryKey = False InPrimaryKey = False
@ -214,7 +211,6 @@ object dmInfMargenArticulo: TdmInfMargenArticulo
Size = 255 Size = 255
BlobType = dabtUnknown BlobType = dabtUnknown
DisplayWidth = 0 DisplayWidth = 0
DisplayLabel = 'Referencia'
Alignment = taLeftJustify Alignment = taLeftJustify
DictionaryEntry = 'InfVentasArticulo_REFERENCIA' DictionaryEntry = 'InfVentasArticulo_REFERENCIA'
InPrimaryKey = False InPrimaryKey = False
@ -228,7 +224,6 @@ object dmInfMargenArticulo: TdmInfMargenArticulo
Size = 255 Size = 255
BlobType = dabtUnknown BlobType = dabtUnknown
DisplayWidth = 0 DisplayWidth = 0
DisplayLabel = 'Ref. proveedor'
Alignment = taLeftJustify Alignment = taLeftJustify
DictionaryEntry = 'InfVentasArticulo_REFERENCIA_PROV' DictionaryEntry = 'InfVentasArticulo_REFERENCIA_PROV'
InPrimaryKey = False InPrimaryKey = False
@ -236,13 +231,24 @@ object dmInfMargenArticulo: TdmInfMargenArticulo
Lookup = False Lookup = False
LookupCache = False LookupCache = False
end end
item
Name = 'PROVEEDOR'
DataType = datString
Size = 255
BlobType = dabtUnknown
DisplayWidth = 0
Alignment = taLeftJustify
InPrimaryKey = False
Calculated = False
Lookup = False
LookupCache = False
end
item item
Name = 'DESCRIPCION' Name = 'DESCRIPCION'
DataType = datString DataType = datString
Size = 255 Size = 255
BlobType = dabtUnknown BlobType = dabtUnknown
DisplayWidth = 0 DisplayWidth = 0
DisplayLabel = 'Descripci'#243'n'
Alignment = taLeftJustify Alignment = taLeftJustify
DictionaryEntry = 'InfVentasArticulo_DESCRIPCION' DictionaryEntry = 'InfVentasArticulo_DESCRIPCION'
InPrimaryKey = False InPrimaryKey = False
@ -255,7 +261,6 @@ object dmInfMargenArticulo: TdmInfMargenArticulo
DataType = datInteger DataType = datInteger
BlobType = dabtUnknown BlobType = dabtUnknown
DisplayWidth = 0 DisplayWidth = 0
DisplayLabel = 'Comisionable'
Alignment = taLeftJustify Alignment = taLeftJustify
DictionaryEntry = 'InfVentasArticulo_COMISIONABLE' DictionaryEntry = 'InfVentasArticulo_COMISIONABLE'
InPrimaryKey = False InPrimaryKey = False
@ -268,7 +273,6 @@ object dmInfMargenArticulo: TdmInfMargenArticulo
DataType = datInteger DataType = datInteger
BlobType = dabtUnknown BlobType = dabtUnknown
DisplayWidth = 0 DisplayWidth = 0
DisplayLabel = 'Inventariable'
Alignment = taLeftJustify Alignment = taLeftJustify
DictionaryEntry = 'InfVentasArticulo_INVENTARIABLE' DictionaryEntry = 'InfVentasArticulo_INVENTARIABLE'
InPrimaryKey = False InPrimaryKey = False
@ -282,6 +286,7 @@ object dmInfMargenArticulo: TdmInfMargenArticulo
BlobType = dabtUnknown BlobType = dabtUnknown
DisplayWidth = 0 DisplayWidth = 0
Alignment = taLeftJustify Alignment = taLeftJustify
DictionaryEntry = 'InfMargenPorArticulo_IMP_UNIDAD_ULT_VENT'
InPrimaryKey = False InPrimaryKey = False
Calculated = False Calculated = False
Lookup = False Lookup = False
@ -293,6 +298,7 @@ object dmInfMargenArticulo: TdmInfMargenArticulo
BlobType = dabtUnknown BlobType = dabtUnknown
DisplayWidth = 0 DisplayWidth = 0
Alignment = taLeftJustify Alignment = taLeftJustify
DictionaryEntry = 'InfMargenPorArticulo_IMP_NETO_ULT_VENT'
InPrimaryKey = False InPrimaryKey = False
Calculated = False Calculated = False
Lookup = False Lookup = False
@ -304,6 +310,7 @@ object dmInfMargenArticulo: TdmInfMargenArticulo
BlobType = dabtUnknown BlobType = dabtUnknown
DisplayWidth = 0 DisplayWidth = 0
Alignment = taLeftJustify Alignment = taLeftJustify
DictionaryEntry = 'InfMargenPorArticulo_IMP_PORTE_ULT_VENT'
InPrimaryKey = False InPrimaryKey = False
Calculated = False Calculated = False
Lookup = False Lookup = False
@ -315,6 +322,7 @@ object dmInfMargenArticulo: TdmInfMargenArticulo
BlobType = dabtUnknown BlobType = dabtUnknown
DisplayWidth = 0 DisplayWidth = 0
Alignment = taLeftJustify Alignment = taLeftJustify
DictionaryEntry = 'InfMargenPorArticulo_IMP_UNIDAD_PRO_VENT'
InPrimaryKey = False InPrimaryKey = False
Calculated = False Calculated = False
Lookup = False Lookup = False
@ -326,6 +334,7 @@ object dmInfMargenArticulo: TdmInfMargenArticulo
BlobType = dabtUnknown BlobType = dabtUnknown
DisplayWidth = 0 DisplayWidth = 0
Alignment = taLeftJustify Alignment = taLeftJustify
DictionaryEntry = 'InfMargenPorArticulo_IMP_NETO_PRO_VENT'
InPrimaryKey = False InPrimaryKey = False
Calculated = False Calculated = False
Lookup = False Lookup = False
@ -337,6 +346,7 @@ object dmInfMargenArticulo: TdmInfMargenArticulo
BlobType = dabtUnknown BlobType = dabtUnknown
DisplayWidth = 0 DisplayWidth = 0
Alignment = taLeftJustify Alignment = taLeftJustify
DictionaryEntry = 'InfMargenPorArticulo_IMP_PORTE_PRO_VENT'
InPrimaryKey = False InPrimaryKey = False
Calculated = False Calculated = False
Lookup = False Lookup = False
@ -348,6 +358,7 @@ object dmInfMargenArticulo: TdmInfMargenArticulo
BlobType = dabtUnknown BlobType = dabtUnknown
DisplayWidth = 0 DisplayWidth = 0
Alignment = taLeftJustify Alignment = taLeftJustify
DictionaryEntry = 'InfMargenPorArticulo_IMP_UNIDAD_COMPRA'
InPrimaryKey = False InPrimaryKey = False
Calculated = False Calculated = False
Lookup = False Lookup = False
@ -359,6 +370,7 @@ object dmInfMargenArticulo: TdmInfMargenArticulo
BlobType = dabtUnknown BlobType = dabtUnknown
DisplayWidth = 0 DisplayWidth = 0
Alignment = taLeftJustify Alignment = taLeftJustify
DictionaryEntry = 'InfMargenPorArticulo_IMP_NETO_COMPRA'
InPrimaryKey = False InPrimaryKey = False
Calculated = False Calculated = False
Lookup = False Lookup = False
@ -370,6 +382,7 @@ object dmInfMargenArticulo: TdmInfMargenArticulo
BlobType = dabtUnknown BlobType = dabtUnknown
DisplayWidth = 0 DisplayWidth = 0
Alignment = taLeftJustify Alignment = taLeftJustify
DictionaryEntry = 'InfMargenPorArticulo_IMP_PORTE_COMPRA'
InPrimaryKey = False InPrimaryKey = False
Calculated = False Calculated = False
Lookup = False Lookup = False
@ -381,6 +394,7 @@ object dmInfMargenArticulo: TdmInfMargenArticulo
BlobType = dabtUnknown BlobType = dabtUnknown
DisplayWidth = 0 DisplayWidth = 0
Alignment = taLeftJustify Alignment = taLeftJustify
DictionaryEntry = 'InfMargenPorArticulo_IMP_UNIDAD_ULT_COMP'
InPrimaryKey = False InPrimaryKey = False
Calculated = False Calculated = False
Lookup = False Lookup = False
@ -392,6 +406,7 @@ object dmInfMargenArticulo: TdmInfMargenArticulo
BlobType = dabtUnknown BlobType = dabtUnknown
DisplayWidth = 0 DisplayWidth = 0
Alignment = taLeftJustify Alignment = taLeftJustify
DictionaryEntry = 'InfMargenPorArticulo_IMP_NETO_ULT_COMP'
InPrimaryKey = False InPrimaryKey = False
Calculated = False Calculated = False
Lookup = False Lookup = False
@ -403,6 +418,7 @@ object dmInfMargenArticulo: TdmInfMargenArticulo
BlobType = dabtUnknown BlobType = dabtUnknown
DisplayWidth = 0 DisplayWidth = 0
Alignment = taLeftJustify Alignment = taLeftJustify
DictionaryEntry = 'InfMargenPorArticulo_IMP_PORTE_ULT_COMP'
InPrimaryKey = False InPrimaryKey = False
Calculated = False Calculated = False
Lookup = False Lookup = False
@ -414,6 +430,7 @@ object dmInfMargenArticulo: TdmInfMargenArticulo
BlobType = dabtUnknown BlobType = dabtUnknown
DisplayWidth = 0 DisplayWidth = 0
Alignment = taLeftJustify Alignment = taLeftJustify
DictionaryEntry = 'InfMargenPorArticulo_IMP_UNIDAD_PRO_COMP'
InPrimaryKey = False InPrimaryKey = False
Calculated = False Calculated = False
Lookup = False Lookup = False
@ -425,6 +442,7 @@ object dmInfMargenArticulo: TdmInfMargenArticulo
BlobType = dabtUnknown BlobType = dabtUnknown
DisplayWidth = 0 DisplayWidth = 0
Alignment = taLeftJustify Alignment = taLeftJustify
DictionaryEntry = 'InfMargenPorArticulo_IMP_NETO_PRO_COMP'
InPrimaryKey = False InPrimaryKey = False
Calculated = False Calculated = False
Lookup = False Lookup = False
@ -436,6 +454,7 @@ object dmInfMargenArticulo: TdmInfMargenArticulo
BlobType = dabtUnknown BlobType = dabtUnknown
DisplayWidth = 0 DisplayWidth = 0
Alignment = taLeftJustify Alignment = taLeftJustify
DictionaryEntry = 'InfMargenPorArticulo_IMP_PORTE_PRO_COMP'
InPrimaryKey = False InPrimaryKey = False
Calculated = False Calculated = False
Lookup = False Lookup = False
@ -447,6 +466,7 @@ object dmInfMargenArticulo: TdmInfMargenArticulo
BlobType = dabtUnknown BlobType = dabtUnknown
DisplayWidth = 0 DisplayWidth = 0
Alignment = taLeftJustify Alignment = taLeftJustify
DictionaryEntry = 'InfMargenPorArticulo_IMP_MARGEN_ULT_VENT_COMPRA'
InPrimaryKey = False InPrimaryKey = False
Calculated = False Calculated = False
Lookup = False Lookup = False
@ -458,6 +478,7 @@ object dmInfMargenArticulo: TdmInfMargenArticulo
BlobType = dabtUnknown BlobType = dabtUnknown
DisplayWidth = 0 DisplayWidth = 0
Alignment = taLeftJustify Alignment = taLeftJustify
DictionaryEntry = 'InfMargenPorArticulo_POR_MARGEN_ULT_VENT_COMPRA'
InPrimaryKey = False InPrimaryKey = False
Calculated = False Calculated = False
Lookup = False Lookup = False
@ -469,6 +490,7 @@ object dmInfMargenArticulo: TdmInfMargenArticulo
BlobType = dabtUnknown BlobType = dabtUnknown
DisplayWidth = 0 DisplayWidth = 0
Alignment = taLeftJustify Alignment = taLeftJustify
DictionaryEntry = 'InfMargenPorArticulo_IMP_MARGEN_ULT_VENT_ULT_COMP'
InPrimaryKey = False InPrimaryKey = False
Calculated = False Calculated = False
Lookup = False Lookup = False
@ -480,6 +502,7 @@ object dmInfMargenArticulo: TdmInfMargenArticulo
BlobType = dabtUnknown BlobType = dabtUnknown
DisplayWidth = 0 DisplayWidth = 0
Alignment = taLeftJustify Alignment = taLeftJustify
DictionaryEntry = 'InfMargenPorArticulo_POR_MARGEN_ULT_VENT_ULT_COMP'
InPrimaryKey = False InPrimaryKey = False
Calculated = False Calculated = False
Lookup = False Lookup = False
@ -491,6 +514,7 @@ object dmInfMargenArticulo: TdmInfMargenArticulo
BlobType = dabtUnknown BlobType = dabtUnknown
DisplayWidth = 0 DisplayWidth = 0
Alignment = taLeftJustify Alignment = taLeftJustify
DictionaryEntry = 'InfMargenPorArticulo_IMP_MARGEN_ULT_VENT_PRO_COMP'
InPrimaryKey = False InPrimaryKey = False
Calculated = False Calculated = False
Lookup = False Lookup = False
@ -502,6 +526,7 @@ object dmInfMargenArticulo: TdmInfMargenArticulo
BlobType = dabtUnknown BlobType = dabtUnknown
DisplayWidth = 0 DisplayWidth = 0
Alignment = taLeftJustify Alignment = taLeftJustify
DictionaryEntry = 'InfMargenPorArticulo_POR_MARGEN_ULT_VENT_PRO_COMP'
InPrimaryKey = False InPrimaryKey = False
Calculated = False Calculated = False
Lookup = False Lookup = False
@ -513,6 +538,7 @@ object dmInfMargenArticulo: TdmInfMargenArticulo
BlobType = dabtUnknown BlobType = dabtUnknown
DisplayWidth = 0 DisplayWidth = 0
Alignment = taLeftJustify Alignment = taLeftJustify
DictionaryEntry = 'InfMargenPorArticulo_IMP_MARGEN_PRO_VENT_COMPRA'
InPrimaryKey = False InPrimaryKey = False
Calculated = False Calculated = False
Lookup = False Lookup = False
@ -524,6 +550,7 @@ object dmInfMargenArticulo: TdmInfMargenArticulo
BlobType = dabtUnknown BlobType = dabtUnknown
DisplayWidth = 0 DisplayWidth = 0
Alignment = taLeftJustify Alignment = taLeftJustify
DictionaryEntry = 'InfMargenPorArticulo_POR_MARGEN_PRO_VENT_COMPRA'
InPrimaryKey = False InPrimaryKey = False
Calculated = False Calculated = False
Lookup = False Lookup = False
@ -535,6 +562,7 @@ object dmInfMargenArticulo: TdmInfMargenArticulo
BlobType = dabtUnknown BlobType = dabtUnknown
DisplayWidth = 0 DisplayWidth = 0
Alignment = taLeftJustify Alignment = taLeftJustify
DictionaryEntry = 'InfMargenPorArticulo_IMP_MARGEN_PRO_VENT_ULT_COMP'
InPrimaryKey = False InPrimaryKey = False
Calculated = False Calculated = False
Lookup = False Lookup = False
@ -546,6 +574,7 @@ object dmInfMargenArticulo: TdmInfMargenArticulo
BlobType = dabtUnknown BlobType = dabtUnknown
DisplayWidth = 0 DisplayWidth = 0
Alignment = taLeftJustify Alignment = taLeftJustify
DictionaryEntry = 'InfMargenPorArticulo_POR_MARGEN_PRO_VENT_ULT_COMP'
InPrimaryKey = False InPrimaryKey = False
Calculated = False Calculated = False
Lookup = False Lookup = False
@ -557,6 +586,7 @@ object dmInfMargenArticulo: TdmInfMargenArticulo
BlobType = dabtUnknown BlobType = dabtUnknown
DisplayWidth = 0 DisplayWidth = 0
Alignment = taLeftJustify Alignment = taLeftJustify
DictionaryEntry = 'InfMargenPorArticulo_IMP_MARGEN_PRO_VENT_PRO_COMP'
InPrimaryKey = False InPrimaryKey = False
Calculated = False Calculated = False
Lookup = False Lookup = False
@ -568,6 +598,7 @@ object dmInfMargenArticulo: TdmInfMargenArticulo
BlobType = dabtUnknown BlobType = dabtUnknown
DisplayWidth = 0 DisplayWidth = 0
Alignment = taLeftJustify Alignment = taLeftJustify
DictionaryEntry = 'InfMargenPorArticulo_POR_MARGEN_PRO_VENT_PRO_COMP'
InPrimaryKey = False InPrimaryKey = False
Calculated = False Calculated = False
Lookup = False Lookup = False
@ -687,7 +718,6 @@ object dmInfMargenArticulo: TdmInfMargenArticulo
DataType = datInteger DataType = datInteger
BlobType = dabtUnknown BlobType = dabtUnknown
DisplayWidth = 0 DisplayWidth = 0
DisplayLabel = 'Id empresa'
Alignment = taLeftJustify Alignment = taLeftJustify
DictionaryEntry = 'InfVentasArticulo_ID_EMPRESA' DictionaryEntry = 'InfVentasArticulo_ID_EMPRESA'
InPrimaryKey = False InPrimaryKey = False
@ -701,7 +731,8 @@ object dmInfMargenArticulo: TdmInfMargenArticulo
BlobType = dabtUnknown BlobType = dabtUnknown
DisplayWidth = 0 DisplayWidth = 0
Alignment = taLeftJustify Alignment = taLeftJustify
InPrimaryKey = False DictionaryEntry = 'InfMargenPorCliente_ID_CLIENTE'
InPrimaryKey = True
Calculated = False Calculated = False
Lookup = False Lookup = False
LookupCache = False LookupCache = False
@ -711,7 +742,6 @@ object dmInfMargenArticulo: TdmInfMargenArticulo
DataType = datInteger DataType = datInteger
BlobType = dabtUnknown BlobType = dabtUnknown
DisplayWidth = 0 DisplayWidth = 0
DisplayLabel = 'Id art'#237'culo'
Alignment = taLeftJustify Alignment = taLeftJustify
DictionaryEntry = 'InfVentasArticulo_ID_ARTICULO' DictionaryEntry = 'InfVentasArticulo_ID_ARTICULO'
InPrimaryKey = True InPrimaryKey = True
@ -725,7 +755,6 @@ object dmInfMargenArticulo: TdmInfMargenArticulo
Size = 255 Size = 255
BlobType = dabtUnknown BlobType = dabtUnknown
DisplayWidth = 0 DisplayWidth = 0
DisplayLabel = 'Familia'
Alignment = taLeftJustify Alignment = taLeftJustify
DictionaryEntry = 'InfVentasArticulo_FAMILIA' DictionaryEntry = 'InfVentasArticulo_FAMILIA'
InPrimaryKey = False InPrimaryKey = False
@ -739,7 +768,6 @@ object dmInfMargenArticulo: TdmInfMargenArticulo
Size = 255 Size = 255
BlobType = dabtUnknown BlobType = dabtUnknown
DisplayWidth = 0 DisplayWidth = 0
DisplayLabel = 'Referencia'
Alignment = taLeftJustify Alignment = taLeftJustify
DictionaryEntry = 'InfVentasArticulo_REFERENCIA' DictionaryEntry = 'InfVentasArticulo_REFERENCIA'
InPrimaryKey = False InPrimaryKey = False
@ -753,7 +781,6 @@ object dmInfMargenArticulo: TdmInfMargenArticulo
Size = 255 Size = 255
BlobType = dabtUnknown BlobType = dabtUnknown
DisplayWidth = 0 DisplayWidth = 0
DisplayLabel = 'Ref. proveedor'
Alignment = taLeftJustify Alignment = taLeftJustify
DictionaryEntry = 'InfVentasArticulo_REFERENCIA_PROV' DictionaryEntry = 'InfVentasArticulo_REFERENCIA_PROV'
InPrimaryKey = False InPrimaryKey = False
@ -767,7 +794,6 @@ object dmInfMargenArticulo: TdmInfMargenArticulo
Size = 255 Size = 255
BlobType = dabtUnknown BlobType = dabtUnknown
DisplayWidth = 0 DisplayWidth = 0
DisplayLabel = 'Descripci'#243'n'
Alignment = taLeftJustify Alignment = taLeftJustify
DictionaryEntry = 'InfVentasArticulo_DESCRIPCION' DictionaryEntry = 'InfVentasArticulo_DESCRIPCION'
InPrimaryKey = False InPrimaryKey = False
@ -780,7 +806,6 @@ object dmInfMargenArticulo: TdmInfMargenArticulo
DataType = datInteger DataType = datInteger
BlobType = dabtUnknown BlobType = dabtUnknown
DisplayWidth = 0 DisplayWidth = 0
DisplayLabel = 'Comisionable'
Alignment = taLeftJustify Alignment = taLeftJustify
DictionaryEntry = 'InfVentasArticulo_COMISIONABLE' DictionaryEntry = 'InfVentasArticulo_COMISIONABLE'
InPrimaryKey = False InPrimaryKey = False
@ -793,7 +818,6 @@ object dmInfMargenArticulo: TdmInfMargenArticulo
DataType = datInteger DataType = datInteger
BlobType = dabtUnknown BlobType = dabtUnknown
DisplayWidth = 0 DisplayWidth = 0
DisplayLabel = 'Inventariable'
Alignment = taLeftJustify Alignment = taLeftJustify
DictionaryEntry = 'InfVentasArticulo_INVENTARIABLE' DictionaryEntry = 'InfVentasArticulo_INVENTARIABLE'
InPrimaryKey = False InPrimaryKey = False
@ -807,7 +831,6 @@ object dmInfMargenArticulo: TdmInfMargenArticulo
Size = 15 Size = 15
BlobType = dabtUnknown BlobType = dabtUnknown
DisplayWidth = 0 DisplayWidth = 0
DisplayLabel = 'NIF/CIF cli.'
Alignment = taLeftJustify Alignment = taLeftJustify
DictionaryEntry = 'InfVentasArticulo_NIF_CIF_CLIENTE' DictionaryEntry = 'InfVentasArticulo_NIF_CIF_CLIENTE'
InPrimaryKey = False InPrimaryKey = False
@ -821,7 +844,6 @@ object dmInfMargenArticulo: TdmInfMargenArticulo
Size = 255 Size = 255
BlobType = dabtUnknown BlobType = dabtUnknown
DisplayWidth = 0 DisplayWidth = 0
DisplayLabel = 'Cliente'
Alignment = taLeftJustify Alignment = taLeftJustify
DictionaryEntry = 'InfVentasArticulo_NOMBRE_CLIENTE' DictionaryEntry = 'InfVentasArticulo_NOMBRE_CLIENTE'
InPrimaryKey = False InPrimaryKey = False
@ -829,13 +851,24 @@ object dmInfMargenArticulo: TdmInfMargenArticulo
Lookup = False Lookup = False
LookupCache = False LookupCache = False
end end
item
Name = 'PROVEEDOR'
DataType = datString
Size = 255
BlobType = dabtUnknown
DisplayWidth = 0
Alignment = taLeftJustify
InPrimaryKey = False
Calculated = False
Lookup = False
LookupCache = False
end
item item
Name = 'NOMBRE_COMERCIAL_CLIENTE' Name = 'NOMBRE_COMERCIAL_CLIENTE'
DataType = datString DataType = datString
Size = 255 Size = 255
BlobType = dabtUnknown BlobType = dabtUnknown
DisplayWidth = 0 DisplayWidth = 0
DisplayLabel = 'Nombre comercial'
Alignment = taLeftJustify Alignment = taLeftJustify
DictionaryEntry = 'InfVentasArticulo_NOMBRE_COMERCIAL_CLIENTE' DictionaryEntry = 'InfVentasArticulo_NOMBRE_COMERCIAL_CLIENTE'
InPrimaryKey = False InPrimaryKey = False
@ -849,7 +882,6 @@ object dmInfMargenArticulo: TdmInfMargenArticulo
Size = 15 Size = 15
BlobType = dabtUnknown BlobType = dabtUnknown
DisplayWidth = 0 DisplayWidth = 0
DisplayLabel = 'NIF/CIF agente'
Alignment = taLeftJustify Alignment = taLeftJustify
DictionaryEntry = 'InfVentasArticulo_NIF_CIF_AGENTE' DictionaryEntry = 'InfVentasArticulo_NIF_CIF_AGENTE'
InPrimaryKey = False InPrimaryKey = False
@ -863,7 +895,6 @@ object dmInfMargenArticulo: TdmInfMargenArticulo
Size = 255 Size = 255
BlobType = dabtUnknown BlobType = dabtUnknown
DisplayWidth = 0 DisplayWidth = 0
DisplayLabel = 'Agente'
Alignment = taLeftJustify Alignment = taLeftJustify
DictionaryEntry = 'InfVentasArticulo_NOMBRE_AGENTE' DictionaryEntry = 'InfVentasArticulo_NOMBRE_AGENTE'
InPrimaryKey = False InPrimaryKey = False
@ -877,6 +908,7 @@ object dmInfMargenArticulo: TdmInfMargenArticulo
BlobType = dabtUnknown BlobType = dabtUnknown
DisplayWidth = 0 DisplayWidth = 0
Alignment = taLeftJustify Alignment = taLeftJustify
DictionaryEntry = 'InfMargenPorCliente_IMP_UNIDAD_ULT_VENT'
InPrimaryKey = False InPrimaryKey = False
Calculated = False Calculated = False
Lookup = False Lookup = False
@ -888,6 +920,7 @@ object dmInfMargenArticulo: TdmInfMargenArticulo
BlobType = dabtUnknown BlobType = dabtUnknown
DisplayWidth = 0 DisplayWidth = 0
Alignment = taLeftJustify Alignment = taLeftJustify
DictionaryEntry = 'InfMargenPorCliente_IMP_NETO_ULT_VENT'
InPrimaryKey = False InPrimaryKey = False
Calculated = False Calculated = False
Lookup = False Lookup = False
@ -899,6 +932,7 @@ object dmInfMargenArticulo: TdmInfMargenArticulo
BlobType = dabtUnknown BlobType = dabtUnknown
DisplayWidth = 0 DisplayWidth = 0
Alignment = taLeftJustify Alignment = taLeftJustify
DictionaryEntry = 'InfMargenPorCliente_IMP_PORTE_ULT_VENT'
InPrimaryKey = False InPrimaryKey = False
Calculated = False Calculated = False
Lookup = False Lookup = False
@ -910,6 +944,7 @@ object dmInfMargenArticulo: TdmInfMargenArticulo
BlobType = dabtUnknown BlobType = dabtUnknown
DisplayWidth = 0 DisplayWidth = 0
Alignment = taLeftJustify Alignment = taLeftJustify
DictionaryEntry = 'InfMargenPorCliente_IMP_UNIDAD_PRO_VENT'
InPrimaryKey = False InPrimaryKey = False
Calculated = False Calculated = False
Lookup = False Lookup = False
@ -921,6 +956,7 @@ object dmInfMargenArticulo: TdmInfMargenArticulo
BlobType = dabtUnknown BlobType = dabtUnknown
DisplayWidth = 0 DisplayWidth = 0
Alignment = taLeftJustify Alignment = taLeftJustify
DictionaryEntry = 'InfMargenPorCliente_IMP_NETO_PRO_VENT'
InPrimaryKey = False InPrimaryKey = False
Calculated = False Calculated = False
Lookup = False Lookup = False
@ -932,6 +968,7 @@ object dmInfMargenArticulo: TdmInfMargenArticulo
BlobType = dabtUnknown BlobType = dabtUnknown
DisplayWidth = 0 DisplayWidth = 0
Alignment = taLeftJustify Alignment = taLeftJustify
DictionaryEntry = 'InfMargenPorCliente_IMP_PORTE_PRO_VENT'
InPrimaryKey = False InPrimaryKey = False
Calculated = False Calculated = False
Lookup = False Lookup = False
@ -943,6 +980,7 @@ object dmInfMargenArticulo: TdmInfMargenArticulo
BlobType = dabtUnknown BlobType = dabtUnknown
DisplayWidth = 0 DisplayWidth = 0
Alignment = taLeftJustify Alignment = taLeftJustify
DictionaryEntry = 'InfMargenPorCliente_IMP_UNIDAD_COMPRA'
InPrimaryKey = False InPrimaryKey = False
Calculated = False Calculated = False
Lookup = False Lookup = False
@ -954,6 +992,7 @@ object dmInfMargenArticulo: TdmInfMargenArticulo
BlobType = dabtUnknown BlobType = dabtUnknown
DisplayWidth = 0 DisplayWidth = 0
Alignment = taLeftJustify Alignment = taLeftJustify
DictionaryEntry = 'InfMargenPorCliente_IMP_NETO_COMPRA'
InPrimaryKey = False InPrimaryKey = False
Calculated = False Calculated = False
Lookup = False Lookup = False
@ -965,6 +1004,7 @@ object dmInfMargenArticulo: TdmInfMargenArticulo
BlobType = dabtUnknown BlobType = dabtUnknown
DisplayWidth = 0 DisplayWidth = 0
Alignment = taLeftJustify Alignment = taLeftJustify
DictionaryEntry = 'InfMargenPorCliente_IMP_PORTE_COMPRA'
InPrimaryKey = False InPrimaryKey = False
Calculated = False Calculated = False
Lookup = False Lookup = False
@ -976,6 +1016,7 @@ object dmInfMargenArticulo: TdmInfMargenArticulo
BlobType = dabtUnknown BlobType = dabtUnknown
DisplayWidth = 0 DisplayWidth = 0
Alignment = taLeftJustify Alignment = taLeftJustify
DictionaryEntry = 'InfMargenPorCliente_IMP_UNIDAD_ULT_COMP'
InPrimaryKey = False InPrimaryKey = False
Calculated = False Calculated = False
Lookup = False Lookup = False
@ -987,6 +1028,7 @@ object dmInfMargenArticulo: TdmInfMargenArticulo
BlobType = dabtUnknown BlobType = dabtUnknown
DisplayWidth = 0 DisplayWidth = 0
Alignment = taLeftJustify Alignment = taLeftJustify
DictionaryEntry = 'InfMargenPorCliente_IMP_NETO_ULT_COMP'
InPrimaryKey = False InPrimaryKey = False
Calculated = False Calculated = False
Lookup = False Lookup = False
@ -998,6 +1040,7 @@ object dmInfMargenArticulo: TdmInfMargenArticulo
BlobType = dabtUnknown BlobType = dabtUnknown
DisplayWidth = 0 DisplayWidth = 0
Alignment = taLeftJustify Alignment = taLeftJustify
DictionaryEntry = 'InfMargenPorCliente_IMP_PORTE_ULT_COMP'
InPrimaryKey = False InPrimaryKey = False
Calculated = False Calculated = False
Lookup = False Lookup = False
@ -1009,6 +1052,7 @@ object dmInfMargenArticulo: TdmInfMargenArticulo
BlobType = dabtUnknown BlobType = dabtUnknown
DisplayWidth = 0 DisplayWidth = 0
Alignment = taLeftJustify Alignment = taLeftJustify
DictionaryEntry = 'InfMargenPorCliente_IMP_UNIDAD_PRO_COMP'
InPrimaryKey = False InPrimaryKey = False
Calculated = False Calculated = False
Lookup = False Lookup = False
@ -1020,6 +1064,7 @@ object dmInfMargenArticulo: TdmInfMargenArticulo
BlobType = dabtUnknown BlobType = dabtUnknown
DisplayWidth = 0 DisplayWidth = 0
Alignment = taLeftJustify Alignment = taLeftJustify
DictionaryEntry = 'InfMargenPorCliente_IMP_NETO_PRO_COMP'
InPrimaryKey = False InPrimaryKey = False
Calculated = False Calculated = False
Lookup = False Lookup = False
@ -1031,6 +1076,7 @@ object dmInfMargenArticulo: TdmInfMargenArticulo
BlobType = dabtUnknown BlobType = dabtUnknown
DisplayWidth = 0 DisplayWidth = 0
Alignment = taLeftJustify Alignment = taLeftJustify
DictionaryEntry = 'InfMargenPorCliente_IMP_PORTE_PRO_COMP'
InPrimaryKey = False InPrimaryKey = False
Calculated = False Calculated = False
Lookup = False Lookup = False
@ -1042,6 +1088,7 @@ object dmInfMargenArticulo: TdmInfMargenArticulo
BlobType = dabtUnknown BlobType = dabtUnknown
DisplayWidth = 0 DisplayWidth = 0
Alignment = taLeftJustify Alignment = taLeftJustify
DictionaryEntry = 'InfMargenPorCliente_IMP_MARGEN_ULT_VENT_COMPRA'
InPrimaryKey = False InPrimaryKey = False
Calculated = False Calculated = False
Lookup = False Lookup = False
@ -1053,6 +1100,7 @@ object dmInfMargenArticulo: TdmInfMargenArticulo
BlobType = dabtUnknown BlobType = dabtUnknown
DisplayWidth = 0 DisplayWidth = 0
Alignment = taLeftJustify Alignment = taLeftJustify
DictionaryEntry = 'InfMargenPorCliente_POR_MARGEN_ULT_VENT_COMPRA'
InPrimaryKey = False InPrimaryKey = False
Calculated = False Calculated = False
Lookup = False Lookup = False
@ -1064,6 +1112,7 @@ object dmInfMargenArticulo: TdmInfMargenArticulo
BlobType = dabtUnknown BlobType = dabtUnknown
DisplayWidth = 0 DisplayWidth = 0
Alignment = taLeftJustify Alignment = taLeftJustify
DictionaryEntry = 'InfMargenPorCliente_IMP_MARGEN_ULT_VENT_ULT_COMP'
InPrimaryKey = False InPrimaryKey = False
Calculated = False Calculated = False
Lookup = False Lookup = False
@ -1075,6 +1124,7 @@ object dmInfMargenArticulo: TdmInfMargenArticulo
BlobType = dabtUnknown BlobType = dabtUnknown
DisplayWidth = 0 DisplayWidth = 0
Alignment = taLeftJustify Alignment = taLeftJustify
DictionaryEntry = 'InfMargenPorCliente_POR_MARGEN_ULT_VENT_ULT_COMP'
InPrimaryKey = False InPrimaryKey = False
Calculated = False Calculated = False
Lookup = False Lookup = False
@ -1086,6 +1136,7 @@ object dmInfMargenArticulo: TdmInfMargenArticulo
BlobType = dabtUnknown BlobType = dabtUnknown
DisplayWidth = 0 DisplayWidth = 0
Alignment = taLeftJustify Alignment = taLeftJustify
DictionaryEntry = 'InfMargenPorCliente_IMP_MARGEN_ULT_VENT_PRO_COMP'
InPrimaryKey = False InPrimaryKey = False
Calculated = False Calculated = False
Lookup = False Lookup = False
@ -1097,6 +1148,7 @@ object dmInfMargenArticulo: TdmInfMargenArticulo
BlobType = dabtUnknown BlobType = dabtUnknown
DisplayWidth = 0 DisplayWidth = 0
Alignment = taLeftJustify Alignment = taLeftJustify
DictionaryEntry = 'InfMargenPorCliente_POR_MARGEN_ULT_VENT_PRO_COMP'
InPrimaryKey = False InPrimaryKey = False
Calculated = False Calculated = False
Lookup = False Lookup = False
@ -1108,6 +1160,7 @@ object dmInfMargenArticulo: TdmInfMargenArticulo
BlobType = dabtUnknown BlobType = dabtUnknown
DisplayWidth = 0 DisplayWidth = 0
Alignment = taLeftJustify Alignment = taLeftJustify
DictionaryEntry = 'InfMargenPorCliente_IMP_MARGEN_PRO_VENT_COMPRA'
InPrimaryKey = False InPrimaryKey = False
Calculated = False Calculated = False
Lookup = False Lookup = False
@ -1119,6 +1172,7 @@ object dmInfMargenArticulo: TdmInfMargenArticulo
BlobType = dabtUnknown BlobType = dabtUnknown
DisplayWidth = 0 DisplayWidth = 0
Alignment = taLeftJustify Alignment = taLeftJustify
DictionaryEntry = 'InfMargenPorCliente_POR_MARGEN_PRO_VENT_COMPRA'
InPrimaryKey = False InPrimaryKey = False
Calculated = False Calculated = False
Lookup = False Lookup = False
@ -1130,6 +1184,7 @@ object dmInfMargenArticulo: TdmInfMargenArticulo
BlobType = dabtUnknown BlobType = dabtUnknown
DisplayWidth = 0 DisplayWidth = 0
Alignment = taLeftJustify Alignment = taLeftJustify
DictionaryEntry = 'InfMargenPorCliente_IMP_MARGEN_PRO_VENT_ULT_COMP'
InPrimaryKey = False InPrimaryKey = False
Calculated = False Calculated = False
Lookup = False Lookup = False
@ -1141,6 +1196,7 @@ object dmInfMargenArticulo: TdmInfMargenArticulo
BlobType = dabtUnknown BlobType = dabtUnknown
DisplayWidth = 0 DisplayWidth = 0
Alignment = taLeftJustify Alignment = taLeftJustify
DictionaryEntry = 'InfMargenPorCliente_POR_MARGEN_PRO_VENT_ULT_COMP'
InPrimaryKey = False InPrimaryKey = False
Calculated = False Calculated = False
Lookup = False Lookup = False
@ -1152,6 +1208,7 @@ object dmInfMargenArticulo: TdmInfMargenArticulo
BlobType = dabtUnknown BlobType = dabtUnknown
DisplayWidth = 0 DisplayWidth = 0
Alignment = taLeftJustify Alignment = taLeftJustify
DictionaryEntry = 'InfMargenPorCliente_IMP_MARGEN_PRO_VENT_PRO_COMP'
InPrimaryKey = False InPrimaryKey = False
Calculated = False Calculated = False
Lookup = False Lookup = False
@ -1163,6 +1220,7 @@ object dmInfMargenArticulo: TdmInfMargenArticulo
BlobType = dabtUnknown BlobType = dabtUnknown
DisplayWidth = 0 DisplayWidth = 0
Alignment = taLeftJustify Alignment = taLeftJustify
DictionaryEntry = 'InfMargenPorCliente_POR_MARGEN_PRO_VENT_PRO_COMP'
InPrimaryKey = False InPrimaryKey = False
Calculated = False Calculated = False
Lookup = False Lookup = False
@ -1460,6 +1518,18 @@ object dmInfMargenArticulo: TdmInfMargenArticulo
Lookup = False Lookup = False
LookupCache = False LookupCache = False
end end
item
Name = 'PROVEEDOR'
DataType = datString
Size = 255
BlobType = dabtUnknown
DisplayWidth = 0
Alignment = taLeftJustify
InPrimaryKey = False
Calculated = False
Lookup = False
LookupCache = False
end
item item
Name = 'NOMBRE_COMERCIAL_CLIENTE' Name = 'NOMBRE_COMERCIAL_CLIENTE'
DataType = datString DataType = datString

230
Source/Modulos/Informe margen por articulo/Model/schInfMargenArticuloClient_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_InfMargenPorCliente = '{71F1B324-9D58-4E38-A5C4-2C38BC7E4FD9}'; RID_InfMargenPorCliente = '{D4BE82F8-A68B-47B9-8BED-199E8ED87582}';
RID_InfMargenPorArticulo = '{D95DC29E-5669-4288-B15E-74000DB84382}'; RID_InfMargenPorArticulo = '{8786CCDC-5343-46C3-B988-ACC91BDB0BA9}';
RID_InfMargenPorFactura = '{54A84FBA-D162-432F-BE16-91557F00B416}'; RID_InfMargenPorFactura = '{78AE1203-BCFA-4659-BED3-83CA81FE3306}';
{ Data table names } { Data table names }
nme_InfMargenPorCliente = 'InfMargenPorCliente'; nme_InfMargenPorCliente = 'InfMargenPorCliente';
@ -30,6 +30,7 @@ const
fld_InfMargenPorClienteINVENTARIABLE = 'INVENTARIABLE'; fld_InfMargenPorClienteINVENTARIABLE = 'INVENTARIABLE';
fld_InfMargenPorClienteNIF_CIF_CLIENTE = 'NIF_CIF_CLIENTE'; fld_InfMargenPorClienteNIF_CIF_CLIENTE = 'NIF_CIF_CLIENTE';
fld_InfMargenPorClienteNOMBRE_CLIENTE = 'NOMBRE_CLIENTE'; fld_InfMargenPorClienteNOMBRE_CLIENTE = 'NOMBRE_CLIENTE';
fld_InfMargenPorClientePROVEEDOR = 'PROVEEDOR';
fld_InfMargenPorClienteNOMBRE_COMERCIAL_CLIENTE = 'NOMBRE_COMERCIAL_CLIENTE'; fld_InfMargenPorClienteNOMBRE_COMERCIAL_CLIENTE = 'NOMBRE_COMERCIAL_CLIENTE';
fld_InfMargenPorClienteNIF_CIF_AGENTE = 'NIF_CIF_AGENTE'; fld_InfMargenPorClienteNIF_CIF_AGENTE = 'NIF_CIF_AGENTE';
fld_InfMargenPorClienteNOMBRE_AGENTE = 'NOMBRE_AGENTE'; fld_InfMargenPorClienteNOMBRE_AGENTE = 'NOMBRE_AGENTE';
@ -73,36 +74,37 @@ const
idx_InfMargenPorClienteINVENTARIABLE = 8; idx_InfMargenPorClienteINVENTARIABLE = 8;
idx_InfMargenPorClienteNIF_CIF_CLIENTE = 9; idx_InfMargenPorClienteNIF_CIF_CLIENTE = 9;
idx_InfMargenPorClienteNOMBRE_CLIENTE = 10; idx_InfMargenPorClienteNOMBRE_CLIENTE = 10;
idx_InfMargenPorClienteNOMBRE_COMERCIAL_CLIENTE = 11; idx_InfMargenPorClientePROVEEDOR = 11;
idx_InfMargenPorClienteNIF_CIF_AGENTE = 12; idx_InfMargenPorClienteNOMBRE_COMERCIAL_CLIENTE = 12;
idx_InfMargenPorClienteNOMBRE_AGENTE = 13; idx_InfMargenPorClienteNIF_CIF_AGENTE = 13;
idx_InfMargenPorClienteIMP_UNIDAD_ULT_VENT = 14; idx_InfMargenPorClienteNOMBRE_AGENTE = 14;
idx_InfMargenPorClienteIMP_NETO_ULT_VENT = 15; idx_InfMargenPorClienteIMP_UNIDAD_ULT_VENT = 15;
idx_InfMargenPorClienteIMP_PORTE_ULT_VENT = 16; idx_InfMargenPorClienteIMP_NETO_ULT_VENT = 16;
idx_InfMargenPorClienteIMP_UNIDAD_PRO_VENT = 17; idx_InfMargenPorClienteIMP_PORTE_ULT_VENT = 17;
idx_InfMargenPorClienteIMP_NETO_PRO_VENT = 18; idx_InfMargenPorClienteIMP_UNIDAD_PRO_VENT = 18;
idx_InfMargenPorClienteIMP_PORTE_PRO_VENT = 19; idx_InfMargenPorClienteIMP_NETO_PRO_VENT = 19;
idx_InfMargenPorClienteIMP_UNIDAD_COMPRA = 20; idx_InfMargenPorClienteIMP_PORTE_PRO_VENT = 20;
idx_InfMargenPorClienteIMP_NETO_COMPRA = 21; idx_InfMargenPorClienteIMP_UNIDAD_COMPRA = 21;
idx_InfMargenPorClienteIMP_PORTE_COMPRA = 22; idx_InfMargenPorClienteIMP_NETO_COMPRA = 22;
idx_InfMargenPorClienteIMP_UNIDAD_ULT_COMP = 23; idx_InfMargenPorClienteIMP_PORTE_COMPRA = 23;
idx_InfMargenPorClienteIMP_NETO_ULT_COMP = 24; idx_InfMargenPorClienteIMP_UNIDAD_ULT_COMP = 24;
idx_InfMargenPorClienteIMP_PORTE_ULT_COMP = 25; idx_InfMargenPorClienteIMP_NETO_ULT_COMP = 25;
idx_InfMargenPorClienteIMP_UNIDAD_PRO_COMP = 26; idx_InfMargenPorClienteIMP_PORTE_ULT_COMP = 26;
idx_InfMargenPorClienteIMP_NETO_PRO_COMP = 27; idx_InfMargenPorClienteIMP_UNIDAD_PRO_COMP = 27;
idx_InfMargenPorClienteIMP_PORTE_PRO_COMP = 28; idx_InfMargenPorClienteIMP_NETO_PRO_COMP = 28;
idx_InfMargenPorClienteIMP_MARGEN_ULT_VENT_COMPRA = 29; idx_InfMargenPorClienteIMP_PORTE_PRO_COMP = 29;
idx_InfMargenPorClientePOR_MARGEN_ULT_VENT_COMPRA = 30; idx_InfMargenPorClienteIMP_MARGEN_ULT_VENT_COMPRA = 30;
idx_InfMargenPorClienteIMP_MARGEN_ULT_VENT_ULT_COMP = 31; idx_InfMargenPorClientePOR_MARGEN_ULT_VENT_COMPRA = 31;
idx_InfMargenPorClientePOR_MARGEN_ULT_VENT_ULT_COMP = 32; idx_InfMargenPorClienteIMP_MARGEN_ULT_VENT_ULT_COMP = 32;
idx_InfMargenPorClienteIMP_MARGEN_ULT_VENT_PRO_COMP = 33; idx_InfMargenPorClientePOR_MARGEN_ULT_VENT_ULT_COMP = 33;
idx_InfMargenPorClientePOR_MARGEN_ULT_VENT_PRO_COMP = 34; idx_InfMargenPorClienteIMP_MARGEN_ULT_VENT_PRO_COMP = 34;
idx_InfMargenPorClienteIMP_MARGEN_PRO_VENT_COMPRA = 35; idx_InfMargenPorClientePOR_MARGEN_ULT_VENT_PRO_COMP = 35;
idx_InfMargenPorClientePOR_MARGEN_PRO_VENT_COMPRA = 36; idx_InfMargenPorClienteIMP_MARGEN_PRO_VENT_COMPRA = 36;
idx_InfMargenPorClienteIMP_MARGEN_PRO_VENT_ULT_COMP = 37; idx_InfMargenPorClientePOR_MARGEN_PRO_VENT_COMPRA = 37;
idx_InfMargenPorClientePOR_MARGEN_PRO_VENT_ULT_COMP = 38; idx_InfMargenPorClienteIMP_MARGEN_PRO_VENT_ULT_COMP = 38;
idx_InfMargenPorClienteIMP_MARGEN_PRO_VENT_PRO_COMP = 39; idx_InfMargenPorClientePOR_MARGEN_PRO_VENT_ULT_COMP = 39;
idx_InfMargenPorClientePOR_MARGEN_PRO_VENT_PRO_COMP = 40; idx_InfMargenPorClienteIMP_MARGEN_PRO_VENT_PRO_COMP = 40;
idx_InfMargenPorClientePOR_MARGEN_PRO_VENT_PRO_COMP = 41;
{ InfMargenPorArticulo fields } { InfMargenPorArticulo fields }
fld_InfMargenPorArticuloID_EMPRESA = 'ID_EMPRESA'; fld_InfMargenPorArticuloID_EMPRESA = 'ID_EMPRESA';
@ -110,6 +112,7 @@ const
fld_InfMargenPorArticuloFAMILIA = 'FAMILIA'; fld_InfMargenPorArticuloFAMILIA = 'FAMILIA';
fld_InfMargenPorArticuloREFERENCIA = 'REFERENCIA'; fld_InfMargenPorArticuloREFERENCIA = 'REFERENCIA';
fld_InfMargenPorArticuloREFERENCIA_PROV = 'REFERENCIA_PROV'; fld_InfMargenPorArticuloREFERENCIA_PROV = 'REFERENCIA_PROV';
fld_InfMargenPorArticuloPROVEEDOR = 'PROVEEDOR';
fld_InfMargenPorArticuloDESCRIPCION = 'DESCRIPCION'; fld_InfMargenPorArticuloDESCRIPCION = 'DESCRIPCION';
fld_InfMargenPorArticuloCOMISIONABLE = 'COMISIONABLE'; fld_InfMargenPorArticuloCOMISIONABLE = 'COMISIONABLE';
fld_InfMargenPorArticuloINVENTARIABLE = 'INVENTARIABLE'; fld_InfMargenPorArticuloINVENTARIABLE = 'INVENTARIABLE';
@ -147,36 +150,37 @@ const
idx_InfMargenPorArticuloFAMILIA = 2; idx_InfMargenPorArticuloFAMILIA = 2;
idx_InfMargenPorArticuloREFERENCIA = 3; idx_InfMargenPorArticuloREFERENCIA = 3;
idx_InfMargenPorArticuloREFERENCIA_PROV = 4; idx_InfMargenPorArticuloREFERENCIA_PROV = 4;
idx_InfMargenPorArticuloDESCRIPCION = 5; idx_InfMargenPorArticuloPROVEEDOR = 5;
idx_InfMargenPorArticuloCOMISIONABLE = 6; idx_InfMargenPorArticuloDESCRIPCION = 6;
idx_InfMargenPorArticuloINVENTARIABLE = 7; idx_InfMargenPorArticuloCOMISIONABLE = 7;
idx_InfMargenPorArticuloIMP_UNIDAD_ULT_VENT = 8; idx_InfMargenPorArticuloINVENTARIABLE = 8;
idx_InfMargenPorArticuloIMP_NETO_ULT_VENT = 9; idx_InfMargenPorArticuloIMP_UNIDAD_ULT_VENT = 9;
idx_InfMargenPorArticuloIMP_PORTE_ULT_VENT = 10; idx_InfMargenPorArticuloIMP_NETO_ULT_VENT = 10;
idx_InfMargenPorArticuloIMP_UNIDAD_PRO_VENT = 11; idx_InfMargenPorArticuloIMP_PORTE_ULT_VENT = 11;
idx_InfMargenPorArticuloIMP_NETO_PRO_VENT = 12; idx_InfMargenPorArticuloIMP_UNIDAD_PRO_VENT = 12;
idx_InfMargenPorArticuloIMP_PORTE_PRO_VENT = 13; idx_InfMargenPorArticuloIMP_NETO_PRO_VENT = 13;
idx_InfMargenPorArticuloIMP_UNIDAD_COMPRA = 14; idx_InfMargenPorArticuloIMP_PORTE_PRO_VENT = 14;
idx_InfMargenPorArticuloIMP_NETO_COMPRA = 15; idx_InfMargenPorArticuloIMP_UNIDAD_COMPRA = 15;
idx_InfMargenPorArticuloIMP_PORTE_COMPRA = 16; idx_InfMargenPorArticuloIMP_NETO_COMPRA = 16;
idx_InfMargenPorArticuloIMP_UNIDAD_ULT_COMP = 17; idx_InfMargenPorArticuloIMP_PORTE_COMPRA = 17;
idx_InfMargenPorArticuloIMP_NETO_ULT_COMP = 18; idx_InfMargenPorArticuloIMP_UNIDAD_ULT_COMP = 18;
idx_InfMargenPorArticuloIMP_PORTE_ULT_COMP = 19; idx_InfMargenPorArticuloIMP_NETO_ULT_COMP = 19;
idx_InfMargenPorArticuloIMP_UNIDAD_PRO_COMP = 20; idx_InfMargenPorArticuloIMP_PORTE_ULT_COMP = 20;
idx_InfMargenPorArticuloIMP_NETO_PRO_COMP = 21; idx_InfMargenPorArticuloIMP_UNIDAD_PRO_COMP = 21;
idx_InfMargenPorArticuloIMP_PORTE_PRO_COMP = 22; idx_InfMargenPorArticuloIMP_NETO_PRO_COMP = 22;
idx_InfMargenPorArticuloIMP_MARGEN_ULT_VENT_COMPRA = 23; idx_InfMargenPorArticuloIMP_PORTE_PRO_COMP = 23;
idx_InfMargenPorArticuloPOR_MARGEN_ULT_VENT_COMPRA = 24; idx_InfMargenPorArticuloIMP_MARGEN_ULT_VENT_COMPRA = 24;
idx_InfMargenPorArticuloIMP_MARGEN_ULT_VENT_ULT_COMP = 25; idx_InfMargenPorArticuloPOR_MARGEN_ULT_VENT_COMPRA = 25;
idx_InfMargenPorArticuloPOR_MARGEN_ULT_VENT_ULT_COMP = 26; idx_InfMargenPorArticuloIMP_MARGEN_ULT_VENT_ULT_COMP = 26;
idx_InfMargenPorArticuloIMP_MARGEN_ULT_VENT_PRO_COMP = 27; idx_InfMargenPorArticuloPOR_MARGEN_ULT_VENT_ULT_COMP = 27;
idx_InfMargenPorArticuloPOR_MARGEN_ULT_VENT_PRO_COMP = 28; idx_InfMargenPorArticuloIMP_MARGEN_ULT_VENT_PRO_COMP = 28;
idx_InfMargenPorArticuloIMP_MARGEN_PRO_VENT_COMPRA = 29; idx_InfMargenPorArticuloPOR_MARGEN_ULT_VENT_PRO_COMP = 29;
idx_InfMargenPorArticuloPOR_MARGEN_PRO_VENT_COMPRA = 30; idx_InfMargenPorArticuloIMP_MARGEN_PRO_VENT_COMPRA = 30;
idx_InfMargenPorArticuloIMP_MARGEN_PRO_VENT_ULT_COMP = 31; idx_InfMargenPorArticuloPOR_MARGEN_PRO_VENT_COMPRA = 31;
idx_InfMargenPorArticuloPOR_MARGEN_PRO_VENT_ULT_COMP = 32; idx_InfMargenPorArticuloIMP_MARGEN_PRO_VENT_ULT_COMP = 32;
idx_InfMargenPorArticuloIMP_MARGEN_PRO_VENT_PRO_COMP = 33; idx_InfMargenPorArticuloPOR_MARGEN_PRO_VENT_ULT_COMP = 33;
idx_InfMargenPorArticuloPOR_MARGEN_PRO_VENT_PRO_COMP = 34; idx_InfMargenPorArticuloIMP_MARGEN_PRO_VENT_PRO_COMP = 34;
idx_InfMargenPorArticuloPOR_MARGEN_PRO_VENT_PRO_COMP = 35;
{ InfMargenPorFactura fields } { InfMargenPorFactura fields }
fld_InfMargenPorFacturaID_EMPRESA = 'ID_EMPRESA'; fld_InfMargenPorFacturaID_EMPRESA = 'ID_EMPRESA';
@ -194,6 +198,7 @@ const
fld_InfMargenPorFacturaINVENTARIABLE = 'INVENTARIABLE'; fld_InfMargenPorFacturaINVENTARIABLE = 'INVENTARIABLE';
fld_InfMargenPorFacturaNIF_CIF_CLIENTE = 'NIF_CIF_CLIENTE'; fld_InfMargenPorFacturaNIF_CIF_CLIENTE = 'NIF_CIF_CLIENTE';
fld_InfMargenPorFacturaNOMBRE_CLIENTE = 'NOMBRE_CLIENTE'; fld_InfMargenPorFacturaNOMBRE_CLIENTE = 'NOMBRE_CLIENTE';
fld_InfMargenPorFacturaPROVEEDOR = 'PROVEEDOR';
fld_InfMargenPorFacturaNOMBRE_COMERCIAL_CLIENTE = 'NOMBRE_COMERCIAL_CLIENTE'; fld_InfMargenPorFacturaNOMBRE_COMERCIAL_CLIENTE = 'NOMBRE_COMERCIAL_CLIENTE';
fld_InfMargenPorFacturaNIF_CIF_AGENTE = 'NIF_CIF_AGENTE'; fld_InfMargenPorFacturaNIF_CIF_AGENTE = 'NIF_CIF_AGENTE';
fld_InfMargenPorFacturaNOMBRE_AGENTE = 'NOMBRE_AGENTE'; fld_InfMargenPorFacturaNOMBRE_AGENTE = 'NOMBRE_AGENTE';
@ -233,33 +238,34 @@ const
idx_InfMargenPorFacturaINVENTARIABLE = 12; idx_InfMargenPorFacturaINVENTARIABLE = 12;
idx_InfMargenPorFacturaNIF_CIF_CLIENTE = 13; idx_InfMargenPorFacturaNIF_CIF_CLIENTE = 13;
idx_InfMargenPorFacturaNOMBRE_CLIENTE = 14; idx_InfMargenPorFacturaNOMBRE_CLIENTE = 14;
idx_InfMargenPorFacturaNOMBRE_COMERCIAL_CLIENTE = 15; idx_InfMargenPorFacturaPROVEEDOR = 15;
idx_InfMargenPorFacturaNIF_CIF_AGENTE = 16; idx_InfMargenPorFacturaNOMBRE_COMERCIAL_CLIENTE = 16;
idx_InfMargenPorFacturaNOMBRE_AGENTE = 17; idx_InfMargenPorFacturaNIF_CIF_AGENTE = 17;
idx_InfMargenPorFacturaCANTIDAD = 18; idx_InfMargenPorFacturaNOMBRE_AGENTE = 18;
idx_InfMargenPorFacturaIMP_UNIDAD = 19; idx_InfMargenPorFacturaCANTIDAD = 19;
idx_InfMargenPorFacturaIMP_NETO = 20; idx_InfMargenPorFacturaIMP_UNIDAD = 20;
idx_InfMargenPorFacturaIMP_PORTE = 21; idx_InfMargenPorFacturaIMP_NETO = 21;
idx_InfMargenPorFacturaIMP_TOTAL = 22; idx_InfMargenPorFacturaIMP_PORTE = 22;
idx_InfMargenPorFacturaIMP_UNIDAD_ULT_COMP = 23; idx_InfMargenPorFacturaIMP_TOTAL = 23;
idx_InfMargenPorFacturaIMP_NETO_ULT_COMP = 24; idx_InfMargenPorFacturaIMP_UNIDAD_ULT_COMP = 24;
idx_InfMargenPorFacturaIMP_PORTE_ULT_COMP = 25; idx_InfMargenPorFacturaIMP_NETO_ULT_COMP = 25;
idx_InfMargenPorFacturaIMP_NETO_ULT_COM_TOTAL = 26; idx_InfMargenPorFacturaIMP_PORTE_ULT_COMP = 26;
idx_InfMargenPorFacturaIMP_UNIDAD_PRO_COMP = 27; idx_InfMargenPorFacturaIMP_NETO_ULT_COM_TOTAL = 27;
idx_InfMargenPorFacturaIMP_NETO_PRO_COMP = 28; idx_InfMargenPorFacturaIMP_UNIDAD_PRO_COMP = 28;
idx_InfMargenPorFacturaIMP_PORTE_PRO_COMP = 29; idx_InfMargenPorFacturaIMP_NETO_PRO_COMP = 29;
idx_InfMargenPorFacturaIMP_NETO_PRO_COM_TOTAL = 30; idx_InfMargenPorFacturaIMP_PORTE_PRO_COMP = 30;
idx_InfMargenPorFacturaIMP_MARGEN_ULT_COMP = 31; idx_InfMargenPorFacturaIMP_NETO_PRO_COM_TOTAL = 31;
idx_InfMargenPorFacturaIMP_MARGEN_ULT_COMP_TOTAL = 32; idx_InfMargenPorFacturaIMP_MARGEN_ULT_COMP = 32;
idx_InfMargenPorFacturaPOR_MARGEN_ULT_COMP = 33; idx_InfMargenPorFacturaIMP_MARGEN_ULT_COMP_TOTAL = 33;
idx_InfMargenPorFacturaIMP_MARGEN_PRO_COMP = 34; idx_InfMargenPorFacturaPOR_MARGEN_ULT_COMP = 34;
idx_InfMargenPorFacturaIMP_MARGEN_PRO_COMP_TOTAL = 35; idx_InfMargenPorFacturaIMP_MARGEN_PRO_COMP = 35;
idx_InfMargenPorFacturaPOR_MARGEN_PRO_COMP = 36; idx_InfMargenPorFacturaIMP_MARGEN_PRO_COMP_TOTAL = 36;
idx_InfMargenPorFacturaPOR_MARGEN_PRO_COMP = 37;
type type
{ IInfMargenPorCliente } { IInfMargenPorCliente }
IInfMargenPorCliente = interface(IDAStronglyTypedDataTable) IInfMargenPorCliente = interface(IDAStronglyTypedDataTable)
['{5C8BB6D6-706F-4DC2-97EA-8BA94A055EF5}'] ['{EDFD0216-1B3D-4DE4-B9BA-BA3160A2F189}']
{ Property getters and setters } { Property getters and setters }
function GetID_EMPRESAValue: Integer; function GetID_EMPRESAValue: Integer;
procedure SetID_EMPRESAValue(const aValue: Integer); procedure SetID_EMPRESAValue(const aValue: Integer);
@ -283,6 +289,8 @@ type
procedure SetNIF_CIF_CLIENTEValue(const aValue: String); procedure SetNIF_CIF_CLIENTEValue(const aValue: String);
function GetNOMBRE_CLIENTEValue: String; function GetNOMBRE_CLIENTEValue: String;
procedure SetNOMBRE_CLIENTEValue(const aValue: String); procedure SetNOMBRE_CLIENTEValue(const aValue: String);
function GetPROVEEDORValue: String;
procedure SetPROVEEDORValue(const aValue: String);
function GetNOMBRE_COMERCIAL_CLIENTEValue: String; function GetNOMBRE_COMERCIAL_CLIENTEValue: String;
procedure SetNOMBRE_COMERCIAL_CLIENTEValue(const aValue: String); procedure SetNOMBRE_COMERCIAL_CLIENTEValue(const aValue: String);
function GetNIF_CIF_AGENTEValue: String; function GetNIF_CIF_AGENTEValue: String;
@ -357,6 +365,7 @@ type
property INVENTARIABLE: Integer read GetINVENTARIABLEValue write SetINVENTARIABLEValue; property INVENTARIABLE: Integer read GetINVENTARIABLEValue write SetINVENTARIABLEValue;
property NIF_CIF_CLIENTE: String read GetNIF_CIF_CLIENTEValue write SetNIF_CIF_CLIENTEValue; property NIF_CIF_CLIENTE: String read GetNIF_CIF_CLIENTEValue write SetNIF_CIF_CLIENTEValue;
property NOMBRE_CLIENTE: String read GetNOMBRE_CLIENTEValue write SetNOMBRE_CLIENTEValue; property NOMBRE_CLIENTE: String read GetNOMBRE_CLIENTEValue write SetNOMBRE_CLIENTEValue;
property PROVEEDOR: String read GetPROVEEDORValue write SetPROVEEDORValue;
property NOMBRE_COMERCIAL_CLIENTE: String read GetNOMBRE_COMERCIAL_CLIENTEValue write SetNOMBRE_COMERCIAL_CLIENTEValue; property NOMBRE_COMERCIAL_CLIENTE: String read GetNOMBRE_COMERCIAL_CLIENTEValue write SetNOMBRE_COMERCIAL_CLIENTEValue;
property NIF_CIF_AGENTE: String read GetNIF_CIF_AGENTEValue write SetNIF_CIF_AGENTEValue; property NIF_CIF_AGENTE: String read GetNIF_CIF_AGENTEValue write SetNIF_CIF_AGENTEValue;
property NOMBRE_AGENTE: String read GetNOMBRE_AGENTEValue write SetNOMBRE_AGENTEValue; property NOMBRE_AGENTE: String read GetNOMBRE_AGENTEValue write SetNOMBRE_AGENTEValue;
@ -416,6 +425,8 @@ type
procedure SetNIF_CIF_CLIENTEValue(const aValue: String); virtual; procedure SetNIF_CIF_CLIENTEValue(const aValue: String); virtual;
function GetNOMBRE_CLIENTEValue: String; virtual; function GetNOMBRE_CLIENTEValue: String; virtual;
procedure SetNOMBRE_CLIENTEValue(const aValue: String); virtual; procedure SetNOMBRE_CLIENTEValue(const aValue: String); virtual;
function GetPROVEEDORValue: String; virtual;
procedure SetPROVEEDORValue(const aValue: String); virtual;
function GetNOMBRE_COMERCIAL_CLIENTEValue: String; virtual; function GetNOMBRE_COMERCIAL_CLIENTEValue: String; virtual;
procedure SetNOMBRE_COMERCIAL_CLIENTEValue(const aValue: String); virtual; procedure SetNOMBRE_COMERCIAL_CLIENTEValue(const aValue: String); virtual;
function GetNIF_CIF_AGENTEValue: String; virtual; function GetNIF_CIF_AGENTEValue: String; virtual;
@ -489,6 +500,7 @@ type
property INVENTARIABLE: Integer read GetINVENTARIABLEValue write SetINVENTARIABLEValue; property INVENTARIABLE: Integer read GetINVENTARIABLEValue write SetINVENTARIABLEValue;
property NIF_CIF_CLIENTE: String read GetNIF_CIF_CLIENTEValue write SetNIF_CIF_CLIENTEValue; property NIF_CIF_CLIENTE: String read GetNIF_CIF_CLIENTEValue write SetNIF_CIF_CLIENTEValue;
property NOMBRE_CLIENTE: String read GetNOMBRE_CLIENTEValue write SetNOMBRE_CLIENTEValue; property NOMBRE_CLIENTE: String read GetNOMBRE_CLIENTEValue write SetNOMBRE_CLIENTEValue;
property PROVEEDOR: String read GetPROVEEDORValue write SetPROVEEDORValue;
property NOMBRE_COMERCIAL_CLIENTE: String read GetNOMBRE_COMERCIAL_CLIENTEValue write SetNOMBRE_COMERCIAL_CLIENTEValue; property NOMBRE_COMERCIAL_CLIENTE: String read GetNOMBRE_COMERCIAL_CLIENTEValue write SetNOMBRE_COMERCIAL_CLIENTEValue;
property NIF_CIF_AGENTE: String read GetNIF_CIF_AGENTEValue write SetNIF_CIF_AGENTEValue; property NIF_CIF_AGENTE: String read GetNIF_CIF_AGENTEValue write SetNIF_CIF_AGENTEValue;
property NOMBRE_AGENTE: String read GetNOMBRE_AGENTEValue write SetNOMBRE_AGENTEValue; property NOMBRE_AGENTE: String read GetNOMBRE_AGENTEValue write SetNOMBRE_AGENTEValue;
@ -528,7 +540,7 @@ type
{ IInfMargenPorArticulo } { IInfMargenPorArticulo }
IInfMargenPorArticulo = interface(IDAStronglyTypedDataTable) IInfMargenPorArticulo = interface(IDAStronglyTypedDataTable)
['{D395CB2C-9508-48A5-8917-A702DB78620D}'] ['{1AC9E5E3-0FDF-4FAF-9DD9-FF619FC0BE5B}']
{ Property getters and setters } { Property getters and setters }
function GetID_EMPRESAValue: Integer; function GetID_EMPRESAValue: Integer;
procedure SetID_EMPRESAValue(const aValue: Integer); procedure SetID_EMPRESAValue(const aValue: Integer);
@ -540,6 +552,8 @@ type
procedure SetREFERENCIAValue(const aValue: String); procedure SetREFERENCIAValue(const aValue: String);
function GetREFERENCIA_PROVValue: String; function GetREFERENCIA_PROVValue: String;
procedure SetREFERENCIA_PROVValue(const aValue: String); procedure SetREFERENCIA_PROVValue(const aValue: String);
function GetPROVEEDORValue: String;
procedure SetPROVEEDORValue(const aValue: String);
function GetDESCRIPCIONValue: String; function GetDESCRIPCIONValue: String;
procedure SetDESCRIPCIONValue(const aValue: String); procedure SetDESCRIPCIONValue(const aValue: String);
function GetCOMISIONABLEValue: Integer; function GetCOMISIONABLEValue: Integer;
@ -608,6 +622,7 @@ type
property FAMILIA: String read GetFAMILIAValue write SetFAMILIAValue; property FAMILIA: String read GetFAMILIAValue write SetFAMILIAValue;
property REFERENCIA: String read GetREFERENCIAValue write SetREFERENCIAValue; property REFERENCIA: String read GetREFERENCIAValue write SetREFERENCIAValue;
property REFERENCIA_PROV: String read GetREFERENCIA_PROVValue write SetREFERENCIA_PROVValue; property REFERENCIA_PROV: String read GetREFERENCIA_PROVValue write SetREFERENCIA_PROVValue;
property PROVEEDOR: String read GetPROVEEDORValue write SetPROVEEDORValue;
property DESCRIPCION: String read GetDESCRIPCIONValue write SetDESCRIPCIONValue; property DESCRIPCION: String read GetDESCRIPCIONValue write SetDESCRIPCIONValue;
property COMISIONABLE: Integer read GetCOMISIONABLEValue write SetCOMISIONABLEValue; property COMISIONABLE: Integer read GetCOMISIONABLEValue write SetCOMISIONABLEValue;
property INVENTARIABLE: Integer read GetINVENTARIABLEValue write SetINVENTARIABLEValue; property INVENTARIABLE: Integer read GetINVENTARIABLEValue write SetINVENTARIABLEValue;
@ -655,6 +670,8 @@ type
procedure SetREFERENCIAValue(const aValue: String); virtual; procedure SetREFERENCIAValue(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 GetPROVEEDORValue: String; virtual;
procedure SetPROVEEDORValue(const aValue: String); virtual;
function GetDESCRIPCIONValue: String; virtual; function GetDESCRIPCIONValue: String; virtual;
procedure SetDESCRIPCIONValue(const aValue: String); virtual; procedure SetDESCRIPCIONValue(const aValue: String); virtual;
function GetCOMISIONABLEValue: Integer; virtual; function GetCOMISIONABLEValue: Integer; virtual;
@ -722,6 +739,7 @@ type
property FAMILIA: String read GetFAMILIAValue write SetFAMILIAValue; property FAMILIA: String read GetFAMILIAValue write SetFAMILIAValue;
property REFERENCIA: String read GetREFERENCIAValue write SetREFERENCIAValue; property REFERENCIA: String read GetREFERENCIAValue write SetREFERENCIAValue;
property REFERENCIA_PROV: String read GetREFERENCIA_PROVValue write SetREFERENCIA_PROVValue; property REFERENCIA_PROV: String read GetREFERENCIA_PROVValue write SetREFERENCIA_PROVValue;
property PROVEEDOR: String read GetPROVEEDORValue write SetPROVEEDORValue;
property DESCRIPCION: String read GetDESCRIPCIONValue write SetDESCRIPCIONValue; property DESCRIPCION: String read GetDESCRIPCIONValue write SetDESCRIPCIONValue;
property COMISIONABLE: Integer read GetCOMISIONABLEValue write SetCOMISIONABLEValue; property COMISIONABLE: Integer read GetCOMISIONABLEValue write SetCOMISIONABLEValue;
property INVENTARIABLE: Integer read GetINVENTARIABLEValue write SetINVENTARIABLEValue; property INVENTARIABLE: Integer read GetINVENTARIABLEValue write SetINVENTARIABLEValue;
@ -761,7 +779,7 @@ type
{ IInfMargenPorFactura } { IInfMargenPorFactura }
IInfMargenPorFactura = interface(IDAStronglyTypedDataTable) IInfMargenPorFactura = interface(IDAStronglyTypedDataTable)
['{EDE9393E-812F-470D-AAF0-FFEA52BD5E02}'] ['{B05E8DF3-D584-49C4-BCBC-8E10007DC382}']
{ Property getters and setters } { Property getters and setters }
function GetID_EMPRESAValue: Integer; function GetID_EMPRESAValue: Integer;
procedure SetID_EMPRESAValue(const aValue: Integer); procedure SetID_EMPRESAValue(const aValue: Integer);
@ -793,6 +811,8 @@ type
procedure SetNIF_CIF_CLIENTEValue(const aValue: String); procedure SetNIF_CIF_CLIENTEValue(const aValue: String);
function GetNOMBRE_CLIENTEValue: String; function GetNOMBRE_CLIENTEValue: String;
procedure SetNOMBRE_CLIENTEValue(const aValue: String); procedure SetNOMBRE_CLIENTEValue(const aValue: String);
function GetPROVEEDORValue: String;
procedure SetPROVEEDORValue(const aValue: String);
function GetNOMBRE_COMERCIAL_CLIENTEValue: String; function GetNOMBRE_COMERCIAL_CLIENTEValue: String;
procedure SetNOMBRE_COMERCIAL_CLIENTEValue(const aValue: String); procedure SetNOMBRE_COMERCIAL_CLIENTEValue(const aValue: String);
function GetNIF_CIF_AGENTEValue: String; function GetNIF_CIF_AGENTEValue: String;
@ -855,6 +875,7 @@ type
property INVENTARIABLE: Integer read GetINVENTARIABLEValue write SetINVENTARIABLEValue; property INVENTARIABLE: Integer read GetINVENTARIABLEValue write SetINVENTARIABLEValue;
property NIF_CIF_CLIENTE: String read GetNIF_CIF_CLIENTEValue write SetNIF_CIF_CLIENTEValue; property NIF_CIF_CLIENTE: String read GetNIF_CIF_CLIENTEValue write SetNIF_CIF_CLIENTEValue;
property NOMBRE_CLIENTE: String read GetNOMBRE_CLIENTEValue write SetNOMBRE_CLIENTEValue; property NOMBRE_CLIENTE: String read GetNOMBRE_CLIENTEValue write SetNOMBRE_CLIENTEValue;
property PROVEEDOR: String read GetPROVEEDORValue write SetPROVEEDORValue;
property NOMBRE_COMERCIAL_CLIENTE: String read GetNOMBRE_COMERCIAL_CLIENTEValue write SetNOMBRE_COMERCIAL_CLIENTEValue; property NOMBRE_COMERCIAL_CLIENTE: String read GetNOMBRE_COMERCIAL_CLIENTEValue write SetNOMBRE_COMERCIAL_CLIENTEValue;
property NIF_CIF_AGENTE: String read GetNIF_CIF_AGENTEValue write SetNIF_CIF_AGENTEValue; property NIF_CIF_AGENTE: String read GetNIF_CIF_AGENTEValue write SetNIF_CIF_AGENTEValue;
property NOMBRE_AGENTE: String read GetNOMBRE_AGENTEValue write SetNOMBRE_AGENTEValue; property NOMBRE_AGENTE: String read GetNOMBRE_AGENTEValue write SetNOMBRE_AGENTEValue;
@ -914,6 +935,8 @@ type
procedure SetNIF_CIF_CLIENTEValue(const aValue: String); virtual; procedure SetNIF_CIF_CLIENTEValue(const aValue: String); virtual;
function GetNOMBRE_CLIENTEValue: String; virtual; function GetNOMBRE_CLIENTEValue: String; virtual;
procedure SetNOMBRE_CLIENTEValue(const aValue: String); virtual; procedure SetNOMBRE_CLIENTEValue(const aValue: String); virtual;
function GetPROVEEDORValue: String; virtual;
procedure SetPROVEEDORValue(const aValue: String); virtual;
function GetNOMBRE_COMERCIAL_CLIENTEValue: String; virtual; function GetNOMBRE_COMERCIAL_CLIENTEValue: String; virtual;
procedure SetNOMBRE_COMERCIAL_CLIENTEValue(const aValue: String); virtual; procedure SetNOMBRE_COMERCIAL_CLIENTEValue(const aValue: String); virtual;
function GetNIF_CIF_AGENTEValue: String; virtual; function GetNIF_CIF_AGENTEValue: String; virtual;
@ -975,6 +998,7 @@ type
property INVENTARIABLE: Integer read GetINVENTARIABLEValue write SetINVENTARIABLEValue; property INVENTARIABLE: Integer read GetINVENTARIABLEValue write SetINVENTARIABLEValue;
property NIF_CIF_CLIENTE: String read GetNIF_CIF_CLIENTEValue write SetNIF_CIF_CLIENTEValue; property NIF_CIF_CLIENTE: String read GetNIF_CIF_CLIENTEValue write SetNIF_CIF_CLIENTEValue;
property NOMBRE_CLIENTE: String read GetNOMBRE_CLIENTEValue write SetNOMBRE_CLIENTEValue; property NOMBRE_CLIENTE: String read GetNOMBRE_CLIENTEValue write SetNOMBRE_CLIENTEValue;
property PROVEEDOR: String read GetPROVEEDORValue write SetPROVEEDORValue;
property NOMBRE_COMERCIAL_CLIENTE: String read GetNOMBRE_COMERCIAL_CLIENTEValue write SetNOMBRE_COMERCIAL_CLIENTEValue; property NOMBRE_COMERCIAL_CLIENTE: String read GetNOMBRE_COMERCIAL_CLIENTEValue write SetNOMBRE_COMERCIAL_CLIENTEValue;
property NIF_CIF_AGENTE: String read GetNIF_CIF_AGENTEValue write SetNIF_CIF_AGENTEValue; property NIF_CIF_AGENTE: String read GetNIF_CIF_AGENTEValue write SetNIF_CIF_AGENTEValue;
property NOMBRE_AGENTE: String read GetNOMBRE_AGENTEValue write SetNOMBRE_AGENTEValue; property NOMBRE_AGENTE: String read GetNOMBRE_AGENTEValue write SetNOMBRE_AGENTEValue;
@ -1129,6 +1153,16 @@ begin
DataTable.Fields[idx_InfMargenPorClienteNOMBRE_CLIENTE].AsString := aValue; DataTable.Fields[idx_InfMargenPorClienteNOMBRE_CLIENTE].AsString := aValue;
end; end;
function TInfMargenPorClienteDataTableRules.GetPROVEEDORValue: String;
begin
result := DataTable.Fields[idx_InfMargenPorClientePROVEEDOR].AsString;
end;
procedure TInfMargenPorClienteDataTableRules.SetPROVEEDORValue(const aValue: String);
begin
DataTable.Fields[idx_InfMargenPorClientePROVEEDOR].AsString := aValue;
end;
function TInfMargenPorClienteDataTableRules.GetNOMBRE_COMERCIAL_CLIENTEValue: String; function TInfMargenPorClienteDataTableRules.GetNOMBRE_COMERCIAL_CLIENTEValue: String;
begin begin
result := DataTable.Fields[idx_InfMargenPorClienteNOMBRE_COMERCIAL_CLIENTE].AsString; result := DataTable.Fields[idx_InfMargenPorClienteNOMBRE_COMERCIAL_CLIENTE].AsString;
@ -1491,6 +1525,16 @@ begin
DataTable.Fields[idx_InfMargenPorArticuloREFERENCIA_PROV].AsString := aValue; DataTable.Fields[idx_InfMargenPorArticuloREFERENCIA_PROV].AsString := aValue;
end; end;
function TInfMargenPorArticuloDataTableRules.GetPROVEEDORValue: String;
begin
result := DataTable.Fields[idx_InfMargenPorArticuloPROVEEDOR].AsString;
end;
procedure TInfMargenPorArticuloDataTableRules.SetPROVEEDORValue(const aValue: String);
begin
DataTable.Fields[idx_InfMargenPorArticuloPROVEEDOR].AsString := aValue;
end;
function TInfMargenPorArticuloDataTableRules.GetDESCRIPCIONValue: String; function TInfMargenPorArticuloDataTableRules.GetDESCRIPCIONValue: String;
begin begin
result := DataTable.Fields[idx_InfMargenPorArticuloDESCRIPCION].AsString; result := DataTable.Fields[idx_InfMargenPorArticuloDESCRIPCION].AsString;
@ -1953,6 +1997,16 @@ begin
DataTable.Fields[idx_InfMargenPorFacturaNOMBRE_CLIENTE].AsString := aValue; DataTable.Fields[idx_InfMargenPorFacturaNOMBRE_CLIENTE].AsString := aValue;
end; end;
function TInfMargenPorFacturaDataTableRules.GetPROVEEDORValue: String;
begin
result := DataTable.Fields[idx_InfMargenPorFacturaPROVEEDOR].AsString;
end;
procedure TInfMargenPorFacturaDataTableRules.SetPROVEEDORValue(const aValue: String);
begin
DataTable.Fields[idx_InfMargenPorFacturaPROVEEDOR].AsString := aValue;
end;
function TInfMargenPorFacturaDataTableRules.GetNOMBRE_COMERCIAL_CLIENTEValue: String; function TInfMargenPorFacturaDataTableRules.GetNOMBRE_COMERCIAL_CLIENTEValue: String;
begin begin
result := DataTable.Fields[idx_InfMargenPorFacturaNOMBRE_COMERCIAL_CLIENTE].AsString; result := DataTable.Fields[idx_InfMargenPorFacturaNOMBRE_COMERCIAL_CLIENTE].AsString;

78
Source/Modulos/Informe margen por articulo/Model/schInfMargenArticuloServer_Intf.pas
View File

@ -9,14 +9,14 @@ 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_InfMargenPorClienteDelta = '{2BF169D0-BE09-4DD7-ADD9-6867C0C3D18E}'; RID_InfMargenPorClienteDelta = '{60A00CBF-ED18-41E1-975D-BA6353A4801E}';
RID_InfMargenPorArticuloDelta = '{D6219F0B-3705-4E9F-854A-EE678CDA3354}'; RID_InfMargenPorArticuloDelta = '{0376D2C4-1F54-421F-AE63-F63FC0C83DA1}';
RID_InfMargenPorFacturaDelta = '{5C45D321-F740-48B8-BCD7-4B00331BB267}'; RID_InfMargenPorFacturaDelta = '{C49FE731-4C9C-4B1B-8633-558AEE8CD0BD}';
type type
{ IInfMargenPorClienteDelta } { IInfMargenPorClienteDelta }
IInfMargenPorClienteDelta = interface(IInfMargenPorCliente) IInfMargenPorClienteDelta = interface(IInfMargenPorCliente)
['{2BF169D0-BE09-4DD7-ADD9-6867C0C3D18E}'] ['{60A00CBF-ED18-41E1-975D-BA6353A4801E}']
{ Property getters and setters } { Property getters and setters }
function GetOldID_EMPRESAValue : Integer; function GetOldID_EMPRESAValue : Integer;
function GetOldID_CLIENTEValue : Integer; function GetOldID_CLIENTEValue : Integer;
@ -29,6 +29,7 @@ type
function GetOldINVENTARIABLEValue : Integer; function GetOldINVENTARIABLEValue : Integer;
function GetOldNIF_CIF_CLIENTEValue : String; function GetOldNIF_CIF_CLIENTEValue : String;
function GetOldNOMBRE_CLIENTEValue : String; function GetOldNOMBRE_CLIENTEValue : String;
function GetOldPROVEEDORValue : String;
function GetOldNOMBRE_COMERCIAL_CLIENTEValue : String; function GetOldNOMBRE_COMERCIAL_CLIENTEValue : String;
function GetOldNIF_CIF_AGENTEValue : String; function GetOldNIF_CIF_AGENTEValue : String;
function GetOldNOMBRE_AGENTEValue : String; function GetOldNOMBRE_AGENTEValue : String;
@ -72,6 +73,7 @@ type
property OldINVENTARIABLE : Integer read GetOldINVENTARIABLEValue; property OldINVENTARIABLE : Integer read GetOldINVENTARIABLEValue;
property OldNIF_CIF_CLIENTE : String read GetOldNIF_CIF_CLIENTEValue; property OldNIF_CIF_CLIENTE : String read GetOldNIF_CIF_CLIENTEValue;
property OldNOMBRE_CLIENTE : String read GetOldNOMBRE_CLIENTEValue; property OldNOMBRE_CLIENTE : String read GetOldNOMBRE_CLIENTEValue;
property OldPROVEEDOR : String read GetOldPROVEEDORValue;
property OldNOMBRE_COMERCIAL_CLIENTE : String read GetOldNOMBRE_COMERCIAL_CLIENTEValue; property OldNOMBRE_COMERCIAL_CLIENTE : String read GetOldNOMBRE_COMERCIAL_CLIENTEValue;
property OldNIF_CIF_AGENTE : String read GetOldNIF_CIF_AGENTEValue; property OldNIF_CIF_AGENTE : String read GetOldNIF_CIF_AGENTEValue;
property OldNOMBRE_AGENTE : String read GetOldNOMBRE_AGENTEValue; property OldNOMBRE_AGENTE : String read GetOldNOMBRE_AGENTEValue;
@ -142,6 +144,9 @@ type
function GetNOMBRE_CLIENTEValue: String; virtual; function GetNOMBRE_CLIENTEValue: String; virtual;
function GetOldNOMBRE_CLIENTEValue: String; virtual; function GetOldNOMBRE_CLIENTEValue: String; virtual;
procedure SetNOMBRE_CLIENTEValue(const aValue: String); virtual; procedure SetNOMBRE_CLIENTEValue(const aValue: String); virtual;
function GetPROVEEDORValue: String; virtual;
function GetOldPROVEEDORValue: String; virtual;
procedure SetPROVEEDORValue(const aValue: String); virtual;
function GetNOMBRE_COMERCIAL_CLIENTEValue: String; virtual; function GetNOMBRE_COMERCIAL_CLIENTEValue: String; virtual;
function GetOldNOMBRE_COMERCIAL_CLIENTEValue: String; virtual; function GetOldNOMBRE_COMERCIAL_CLIENTEValue: String; virtual;
procedure SetNOMBRE_COMERCIAL_CLIENTEValue(const aValue: String); virtual; procedure SetNOMBRE_COMERCIAL_CLIENTEValue(const aValue: String); virtual;
@ -256,6 +261,8 @@ type
property OldNIF_CIF_CLIENTE : String read GetOldNIF_CIF_CLIENTEValue; property OldNIF_CIF_CLIENTE : String read GetOldNIF_CIF_CLIENTEValue;
property NOMBRE_CLIENTE : String read GetNOMBRE_CLIENTEValue write SetNOMBRE_CLIENTEValue; property NOMBRE_CLIENTE : String read GetNOMBRE_CLIENTEValue write SetNOMBRE_CLIENTEValue;
property OldNOMBRE_CLIENTE : String read GetOldNOMBRE_CLIENTEValue; property OldNOMBRE_CLIENTE : String read GetOldNOMBRE_CLIENTEValue;
property PROVEEDOR : String read GetPROVEEDORValue write SetPROVEEDORValue;
property OldPROVEEDOR : String read GetOldPROVEEDORValue;
property NOMBRE_COMERCIAL_CLIENTE : String read GetNOMBRE_COMERCIAL_CLIENTEValue write SetNOMBRE_COMERCIAL_CLIENTEValue; property NOMBRE_COMERCIAL_CLIENTE : String read GetNOMBRE_COMERCIAL_CLIENTEValue write SetNOMBRE_COMERCIAL_CLIENTEValue;
property OldNOMBRE_COMERCIAL_CLIENTE : String read GetOldNOMBRE_COMERCIAL_CLIENTEValue; property OldNOMBRE_COMERCIAL_CLIENTE : String read GetOldNOMBRE_COMERCIAL_CLIENTEValue;
property NIF_CIF_AGENTE : String read GetNIF_CIF_AGENTEValue write SetNIF_CIF_AGENTEValue; property NIF_CIF_AGENTE : String read GetNIF_CIF_AGENTEValue write SetNIF_CIF_AGENTEValue;
@ -325,13 +332,14 @@ type
{ IInfMargenPorArticuloDelta } { IInfMargenPorArticuloDelta }
IInfMargenPorArticuloDelta = interface(IInfMargenPorArticulo) IInfMargenPorArticuloDelta = interface(IInfMargenPorArticulo)
['{D6219F0B-3705-4E9F-854A-EE678CDA3354}'] ['{0376D2C4-1F54-421F-AE63-F63FC0C83DA1}']
{ Property getters and setters } { Property getters and setters }
function GetOldID_EMPRESAValue : Integer; function GetOldID_EMPRESAValue : Integer;
function GetOldID_ARTICULOValue : Integer; function GetOldID_ARTICULOValue : Integer;
function GetOldFAMILIAValue : String; function GetOldFAMILIAValue : String;
function GetOldREFERENCIAValue : String; function GetOldREFERENCIAValue : String;
function GetOldREFERENCIA_PROVValue : String; function GetOldREFERENCIA_PROVValue : String;
function GetOldPROVEEDORValue : String;
function GetOldDESCRIPCIONValue : String; function GetOldDESCRIPCIONValue : String;
function GetOldCOMISIONABLEValue : Integer; function GetOldCOMISIONABLEValue : Integer;
function GetOldINVENTARIABLEValue : Integer; function GetOldINVENTARIABLEValue : Integer;
@ -369,6 +377,7 @@ type
property OldFAMILIA : String read GetOldFAMILIAValue; property OldFAMILIA : String read GetOldFAMILIAValue;
property OldREFERENCIA : String read GetOldREFERENCIAValue; property OldREFERENCIA : String read GetOldREFERENCIAValue;
property OldREFERENCIA_PROV : String read GetOldREFERENCIA_PROVValue; property OldREFERENCIA_PROV : String read GetOldREFERENCIA_PROVValue;
property OldPROVEEDOR : String read GetOldPROVEEDORValue;
property OldDESCRIPCION : String read GetOldDESCRIPCIONValue; property OldDESCRIPCION : String read GetOldDESCRIPCIONValue;
property OldCOMISIONABLE : Integer read GetOldCOMISIONABLEValue; property OldCOMISIONABLE : Integer read GetOldCOMISIONABLEValue;
property OldINVENTARIABLE : Integer read GetOldINVENTARIABLEValue; property OldINVENTARIABLE : Integer read GetOldINVENTARIABLEValue;
@ -421,6 +430,9 @@ type
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;
function GetPROVEEDORValue: String; virtual;
function GetOldPROVEEDORValue: String; virtual;
procedure SetPROVEEDORValue(const aValue: String); virtual;
function GetDESCRIPCIONValue: String; virtual; function GetDESCRIPCIONValue: String; virtual;
function GetOldDESCRIPCIONValue: String; virtual; function GetOldDESCRIPCIONValue: String; virtual;
procedure SetDESCRIPCIONValue(const aValue: String); virtual; procedure SetDESCRIPCIONValue(const aValue: String); virtual;
@ -523,6 +535,8 @@ type
property OldREFERENCIA : String read GetOldREFERENCIAValue; property OldREFERENCIA : String read GetOldREFERENCIAValue;
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 PROVEEDOR : String read GetPROVEEDORValue write SetPROVEEDORValue;
property OldPROVEEDOR : String read GetOldPROVEEDORValue;
property DESCRIPCION : String read GetDESCRIPCIONValue write SetDESCRIPCIONValue; property DESCRIPCION : String read GetDESCRIPCIONValue write SetDESCRIPCIONValue;
property OldDESCRIPCION : String read GetOldDESCRIPCIONValue; property OldDESCRIPCION : String read GetOldDESCRIPCIONValue;
property COMISIONABLE : Integer read GetCOMISIONABLEValue write SetCOMISIONABLEValue; property COMISIONABLE : Integer read GetCOMISIONABLEValue write SetCOMISIONABLEValue;
@ -592,7 +606,7 @@ type
{ IInfMargenPorFacturaDelta } { IInfMargenPorFacturaDelta }
IInfMargenPorFacturaDelta = interface(IInfMargenPorFactura) IInfMargenPorFacturaDelta = interface(IInfMargenPorFactura)
['{5C45D321-F740-48B8-BCD7-4B00331BB267}'] ['{C49FE731-4C9C-4B1B-8633-558AEE8CD0BD}']
{ Property getters and setters } { Property getters and setters }
function GetOldID_EMPRESAValue : Integer; function GetOldID_EMPRESAValue : Integer;
function GetOldID_CLIENTEValue : Integer; function GetOldID_CLIENTEValue : Integer;
@ -609,6 +623,7 @@ type
function GetOldINVENTARIABLEValue : Integer; function GetOldINVENTARIABLEValue : Integer;
function GetOldNIF_CIF_CLIENTEValue : String; function GetOldNIF_CIF_CLIENTEValue : String;
function GetOldNOMBRE_CLIENTEValue : String; function GetOldNOMBRE_CLIENTEValue : String;
function GetOldPROVEEDORValue : String;
function GetOldNOMBRE_COMERCIAL_CLIENTEValue : String; function GetOldNOMBRE_COMERCIAL_CLIENTEValue : String;
function GetOldNIF_CIF_AGENTEValue : String; function GetOldNIF_CIF_AGENTEValue : String;
function GetOldNOMBRE_AGENTEValue : String; function GetOldNOMBRE_AGENTEValue : String;
@ -648,6 +663,7 @@ type
property OldINVENTARIABLE : Integer read GetOldINVENTARIABLEValue; property OldINVENTARIABLE : Integer read GetOldINVENTARIABLEValue;
property OldNIF_CIF_CLIENTE : String read GetOldNIF_CIF_CLIENTEValue; property OldNIF_CIF_CLIENTE : String read GetOldNIF_CIF_CLIENTEValue;
property OldNOMBRE_CLIENTE : String read GetOldNOMBRE_CLIENTEValue; property OldNOMBRE_CLIENTE : String read GetOldNOMBRE_CLIENTEValue;
property OldPROVEEDOR : String read GetOldPROVEEDORValue;
property OldNOMBRE_COMERCIAL_CLIENTE : String read GetOldNOMBRE_COMERCIAL_CLIENTEValue; property OldNOMBRE_COMERCIAL_CLIENTE : String read GetOldNOMBRE_COMERCIAL_CLIENTEValue;
property OldNIF_CIF_AGENTE : String read GetOldNIF_CIF_AGENTEValue; property OldNIF_CIF_AGENTE : String read GetOldNIF_CIF_AGENTEValue;
property OldNOMBRE_AGENTE : String read GetOldNOMBRE_AGENTEValue; property OldNOMBRE_AGENTE : String read GetOldNOMBRE_AGENTEValue;
@ -722,6 +738,9 @@ type
function GetNOMBRE_CLIENTEValue: String; virtual; function GetNOMBRE_CLIENTEValue: String; virtual;
function GetOldNOMBRE_CLIENTEValue: String; virtual; function GetOldNOMBRE_CLIENTEValue: String; virtual;
procedure SetNOMBRE_CLIENTEValue(const aValue: String); virtual; procedure SetNOMBRE_CLIENTEValue(const aValue: String); virtual;
function GetPROVEEDORValue: String; virtual;
function GetOldPROVEEDORValue: String; virtual;
procedure SetPROVEEDORValue(const aValue: String); virtual;
function GetNOMBRE_COMERCIAL_CLIENTEValue: String; virtual; function GetNOMBRE_COMERCIAL_CLIENTEValue: String; virtual;
function GetOldNOMBRE_COMERCIAL_CLIENTEValue: String; virtual; function GetOldNOMBRE_COMERCIAL_CLIENTEValue: String; virtual;
procedure SetNOMBRE_COMERCIAL_CLIENTEValue(const aValue: String); virtual; procedure SetNOMBRE_COMERCIAL_CLIENTEValue(const aValue: String); virtual;
@ -820,6 +839,8 @@ type
property OldNIF_CIF_CLIENTE : String read GetOldNIF_CIF_CLIENTEValue; property OldNIF_CIF_CLIENTE : String read GetOldNIF_CIF_CLIENTEValue;
property NOMBRE_CLIENTE : String read GetNOMBRE_CLIENTEValue write SetNOMBRE_CLIENTEValue; property NOMBRE_CLIENTE : String read GetNOMBRE_CLIENTEValue write SetNOMBRE_CLIENTEValue;
property OldNOMBRE_CLIENTE : String read GetOldNOMBRE_CLIENTEValue; property OldNOMBRE_CLIENTE : String read GetOldNOMBRE_CLIENTEValue;
property PROVEEDOR : String read GetPROVEEDORValue write SetPROVEEDORValue;
property OldPROVEEDOR : String read GetOldPROVEEDORValue;
property NOMBRE_COMERCIAL_CLIENTE : String read GetNOMBRE_COMERCIAL_CLIENTEValue write SetNOMBRE_COMERCIAL_CLIENTEValue; property NOMBRE_COMERCIAL_CLIENTE : String read GetNOMBRE_COMERCIAL_CLIENTEValue write SetNOMBRE_COMERCIAL_CLIENTEValue;
property OldNOMBRE_COMERCIAL_CLIENTE : String read GetOldNOMBRE_COMERCIAL_CLIENTEValue; property OldNOMBRE_COMERCIAL_CLIENTE : String read GetOldNOMBRE_COMERCIAL_CLIENTEValue;
property NIF_CIF_AGENTE : String read GetNIF_CIF_AGENTEValue write SetNIF_CIF_AGENTEValue; property NIF_CIF_AGENTE : String read GetNIF_CIF_AGENTEValue write SetNIF_CIF_AGENTEValue;
@ -1052,6 +1073,21 @@ begin
BusinessProcessor.CurrentChange.NewValueByName[fld_InfMargenPorClienteNOMBRE_CLIENTE] := aValue; BusinessProcessor.CurrentChange.NewValueByName[fld_InfMargenPorClienteNOMBRE_CLIENTE] := aValue;
end; end;
function TInfMargenPorClienteBusinessProcessorRules.GetPROVEEDORValue: String;
begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_InfMargenPorClientePROVEEDOR];
end;
function TInfMargenPorClienteBusinessProcessorRules.GetOldPROVEEDORValue: String;
begin
result := BusinessProcessor.CurrentChange.OldValueByName[fld_InfMargenPorClientePROVEEDOR];
end;
procedure TInfMargenPorClienteBusinessProcessorRules.SetPROVEEDORValue(const aValue: String);
begin
BusinessProcessor.CurrentChange.NewValueByName[fld_InfMargenPorClientePROVEEDOR] := aValue;
end;
function TInfMargenPorClienteBusinessProcessorRules.GetNOMBRE_COMERCIAL_CLIENTEValue: String; function TInfMargenPorClienteBusinessProcessorRules.GetNOMBRE_COMERCIAL_CLIENTEValue: String;
begin begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_InfMargenPorClienteNOMBRE_COMERCIAL_CLIENTE]; result := BusinessProcessor.CurrentChange.NewValueByName[fld_InfMargenPorClienteNOMBRE_COMERCIAL_CLIENTE];
@ -1589,6 +1625,21 @@ begin
BusinessProcessor.CurrentChange.NewValueByName[fld_InfMargenPorArticuloREFERENCIA_PROV] := aValue; BusinessProcessor.CurrentChange.NewValueByName[fld_InfMargenPorArticuloREFERENCIA_PROV] := aValue;
end; end;
function TInfMargenPorArticuloBusinessProcessorRules.GetPROVEEDORValue: String;
begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_InfMargenPorArticuloPROVEEDOR];
end;
function TInfMargenPorArticuloBusinessProcessorRules.GetOldPROVEEDORValue: String;
begin
result := BusinessProcessor.CurrentChange.OldValueByName[fld_InfMargenPorArticuloPROVEEDOR];
end;
procedure TInfMargenPorArticuloBusinessProcessorRules.SetPROVEEDORValue(const aValue: String);
begin
BusinessProcessor.CurrentChange.NewValueByName[fld_InfMargenPorArticuloPROVEEDOR] := aValue;
end;
function TInfMargenPorArticuloBusinessProcessorRules.GetDESCRIPCIONValue: String; function TInfMargenPorArticuloBusinessProcessorRules.GetDESCRIPCIONValue: String;
begin begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_InfMargenPorArticuloDESCRIPCION]; result := BusinessProcessor.CurrentChange.NewValueByName[fld_InfMargenPorArticuloDESCRIPCION];
@ -2276,6 +2327,21 @@ begin
BusinessProcessor.CurrentChange.NewValueByName[fld_InfMargenPorFacturaNOMBRE_CLIENTE] := aValue; BusinessProcessor.CurrentChange.NewValueByName[fld_InfMargenPorFacturaNOMBRE_CLIENTE] := aValue;
end; end;
function TInfMargenPorFacturaBusinessProcessorRules.GetPROVEEDORValue: String;
begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_InfMargenPorFacturaPROVEEDOR];
end;
function TInfMargenPorFacturaBusinessProcessorRules.GetOldPROVEEDORValue: String;
begin
result := BusinessProcessor.CurrentChange.OldValueByName[fld_InfMargenPorFacturaPROVEEDOR];
end;
procedure TInfMargenPorFacturaBusinessProcessorRules.SetPROVEEDORValue(const aValue: String);
begin
BusinessProcessor.CurrentChange.NewValueByName[fld_InfMargenPorFacturaPROVEEDOR] := aValue;
end;
function TInfMargenPorFacturaBusinessProcessorRules.GetNOMBRE_COMERCIAL_CLIENTEValue: String; function TInfMargenPorFacturaBusinessProcessorRules.GetNOMBRE_COMERCIAL_CLIENTEValue: String;
begin begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_InfMargenPorFacturaNOMBRE_COMERCIAL_CLIENTE]; result := BusinessProcessor.CurrentChange.NewValueByName[fld_InfMargenPorFacturaNOMBRE_COMERCIAL_CLIENTE];

979
Source/Modulos/Informe margen por articulo/Servidor/srvInfMargenArticulo_Impl.dfm
View File

File diff suppressed because it is too large Load Diff

2
Source/Modulos/Informe margen por articulo/Servidor/srvInfMargenArticulo_Impl.pas
View File

@ -44,7 +44,7 @@ const
//SOLO PARA INFORME AGRUPADO POR FACTURA PARA SACAR BENEFICIO REAL //SOLO PARA INFORME AGRUPADO POR FACTURA PARA SACAR BENEFICIO REAL
CTE_DATA_NAME = 'InfMargenPorFactura'; CTE_DATA_NAME = 'InfMargenPorFactura';
CAMPOS_SUMA = 'CANTIDAD#IMP_UNIDAD#IMP_NETO#IMP_PORTE#IMP_TOTAL#IMP_NETO_ULT_COM_TOTAL#IMP_NETO_PRO_COM_TOTAL#IMP_MARGEN_ULT_COMP_TOTAL#IMP_MARGEN_PRO_COMP_TOTAL'; CAMPOS_SUMA = '#CANTIDAD#IMP_UNIDAD#IMP_NETO#IMP_PORTE#IMP_TOTAL#IMP_NETO_ULT_COM_TOTAL#IMP_NETO_PRO_COM_TOTAL#IMP_MARGEN_ULT_COMP_TOTAL#IMP_MARGEN_PRO_COMP_TOTAL';
procedure Create_srv_InfMargenArticulo(out anInstance : IUnknown); procedure Create_srv_InfMargenArticulo(out anInstance : IUnknown);
begin begin

3
Source/Modulos/Informe margen por articulo/Views/InfMargenArticulo_view.bdsproj
View File

@ -170,8 +170,7 @@
<VersionInfoKeys Name="ProductName"></VersionInfoKeys> <VersionInfoKeys Name="ProductName"></VersionInfoKeys>
<VersionInfoKeys Name="ProductVersion">1.0.0.0</VersionInfoKeys> <VersionInfoKeys Name="ProductVersion">1.0.0.0</VersionInfoKeys>
<VersionInfoKeys Name="Comments"></VersionInfoKeys> <VersionInfoKeys Name="Comments"></VersionInfoKeys>
</VersionInfoKeys> </VersionInfoKeys> <Excluded_Packages>
<Excluded_Packages>
<Excluded_Packages Name="C:\Archivos de programa\RemObjects Software\Pascal Script\Dcu\D10\PascalScript_RO_D10.bpl">RemObjects Pascal Script - RemObjects SDK 3.0 Integration</Excluded_Packages> <Excluded_Packages Name="C:\Archivos de programa\RemObjects Software\Pascal Script\Dcu\D10\PascalScript_RO_D10.bpl">RemObjects Pascal Script - RemObjects SDK 3.0 Integration</Excluded_Packages>
</Excluded_Packages> </Excluded_Packages>
</Delphi.Personality> </Delphi.Personality>

12
Source/Modulos/Informe margen por articulo/Views/uEditorInfMargenArticulo.dfm
View File

@ -167,8 +167,6 @@ inherited fEditorInfMargenArticulo: TfEditorInfMargenArticulo
ExplicitWidth = 679 ExplicitWidth = 679
ExplicitHeight = 452 ExplicitHeight = 452
inherited pagGeneral: TTabSheet inherited pagGeneral: TTabSheet
ExplicitLeft = 0
ExplicitTop = 0
ExplicitWidth = 671 ExplicitWidth = 671
ExplicitHeight = 424 ExplicitHeight = 424
end end
@ -282,12 +280,12 @@ inherited fEditorInfMargenArticulo: TfEditorInfMargenArticulo
end end
inherited frViewPeriodoFechas1: TfrViewPeriodoFechas inherited frViewPeriodoFechas1: TfrViewPeriodoFechas
Width = 659 Width = 659
ExplicitWidth = 124 ExplicitWidth = 659
inherited TBXDockablePanel1: TTBXDockablePanel inherited TBXDockablePanel1: TTBXDockablePanel
ExplicitWidth = 124 ExplicitWidth = 659
inherited dxLayoutControl1: TdxLayoutControl inherited dxLayoutControl1: TdxLayoutControl
Width = 659 Width = 659
ExplicitWidth = 124 ExplicitWidth = 659
end end
end end
end end
@ -426,7 +424,9 @@ inherited fEditorInfMargenArticulo: TfEditorInfMargenArticulo
end end
inherited cxGridViewREFERENCIA_PROV: TcxGridDBColumn [16] inherited cxGridViewREFERENCIA_PROV: TcxGridDBColumn [16]
end end
inherited cxGridViewDESCRIPCION: TcxGridDBColumn [17] inherited cxGridViewPROVEEDOR: TcxGridDBColumn [17]
end
inherited cxGridViewDESCRIPCION: TcxGridDBColumn [18]
end end
end end
end end

5
Source/Modulos/Informe margen por articulo/Views/uViewInfMargenArticuloGrid.dfm
View File

@ -151,7 +151,6 @@ inherited frViewInfMargenArticuloGrid: TfrViewInfMargenArticuloGrid
OptionsView.GroupByBox = False OptionsView.GroupByBox = False
OptionsView.GroupFooters = gfAlwaysVisible OptionsView.GroupFooters = gfAlwaysVisible
OptionsView.HeaderEndEllipsis = True OptionsView.HeaderEndEllipsis = True
OptionsView.NewItemRowInfoText = 'Click here to add a new row'
Styles.FilterBox = cxStyleFilterBox Styles.FilterBox = cxStyleFilterBox
Styles.OnGetContentStyle = cxGridViewStylesGetContentStyle Styles.OnGetContentStyle = cxGridViewStylesGetContentStyle
OnColumnPosChanged = cxGridViewColumnPosChanged OnColumnPosChanged = cxGridViewColumnPosChanged
@ -219,6 +218,10 @@ inherited frViewInfMargenArticuloGrid: TfrViewInfMargenArticuloGrid
Caption = 'Ref. proveedor' Caption = 'Ref. proveedor'
DataBinding.FieldName = 'REFERENCIA_PROV' DataBinding.FieldName = 'REFERENCIA_PROV'
end end
object cxGridViewPROVEEDOR: TcxGridDBColumn
Caption = 'Proveedor'
DataBinding.FieldName = 'PROVEEDOR'
end
object cxGridViewDESCRIPCION: TcxGridDBColumn object cxGridViewDESCRIPCION: TcxGridDBColumn
Caption = 'Descripci'#243'n' Caption = 'Descripci'#243'n'
DataBinding.FieldName = 'DESCRIPCION' DataBinding.FieldName = 'DESCRIPCION'

1
Source/Modulos/Informe margen por articulo/Views/uViewInfMargenArticuloGrid.pas
View File

@ -85,6 +85,7 @@ type
cxGridViewIMP_NETO_PRO_COM_TOTAL: TcxGridDBColumn; cxGridViewIMP_NETO_PRO_COM_TOTAL: TcxGridDBColumn;
cxGridViewIMP_MARGEN_ULT_COMP_TOTAL: TcxGridDBColumn; cxGridViewIMP_MARGEN_ULT_COMP_TOTAL: TcxGridDBColumn;
cxGridViewIMP_MARGEN_PRO_COMP_TOTAL: TcxGridDBColumn; cxGridViewIMP_MARGEN_PRO_COMP_TOTAL: TcxGridDBColumn;
cxGridViewPROVEEDOR: TcxGridDBColumn;
procedure cxGridViewStylesGetContentStyle( procedure cxGridViewStylesGetContentStyle(
Sender: TcxCustomGridTableView; ARecord: TcxCustomGridRecord; Sender: TcxCustomGridTableView; ARecord: TcxCustomGridRecord;
AItem: TcxCustomGridTableItem; out AStyle: TcxStyle); AItem: TcxCustomGridTableItem; out AStyle: TcxStyle);

10
Source/Servidor/FactuGES_Server.bdsproj
View File

@ -152,8 +152,8 @@
<VersionInfo> <VersionInfo>
<VersionInfo Name="IncludeVerInfo">True</VersionInfo> <VersionInfo Name="IncludeVerInfo">True</VersionInfo>
<VersionInfo Name="AutoIncBuild">False</VersionInfo> <VersionInfo Name="AutoIncBuild">False</VersionInfo>
<VersionInfo Name="MajorVer">2</VersionInfo> <VersionInfo Name="MajorVer">3</VersionInfo>
<VersionInfo Name="MinorVer">9</VersionInfo> <VersionInfo Name="MinorVer">0</VersionInfo>
<VersionInfo Name="Release">0</VersionInfo> <VersionInfo Name="Release">0</VersionInfo>
<VersionInfo Name="Build">0</VersionInfo> <VersionInfo Name="Build">0</VersionInfo>
<VersionInfo Name="Debug">False</VersionInfo> <VersionInfo Name="Debug">False</VersionInfo>
@ -167,15 +167,15 @@
<VersionInfoKeys> <VersionInfoKeys>
<VersionInfoKeys Name="CompanyName">Rodax Software S.L.</VersionInfoKeys> <VersionInfoKeys Name="CompanyName">Rodax Software S.L.</VersionInfoKeys>
<VersionInfoKeys Name="FileDescription"></VersionInfoKeys> <VersionInfoKeys Name="FileDescription"></VersionInfoKeys>
<VersionInfoKeys Name="FileVersion">2.9.0.0</VersionInfoKeys> <VersionInfoKeys Name="FileVersion">3.0.0.0</VersionInfoKeys>
<VersionInfoKeys Name="InternalName"></VersionInfoKeys> <VersionInfoKeys Name="InternalName"></VersionInfoKeys>
<VersionInfoKeys Name="LegalCopyright"></VersionInfoKeys> <VersionInfoKeys Name="LegalCopyright"></VersionInfoKeys>
<VersionInfoKeys Name="LegalTrademarks"></VersionInfoKeys> <VersionInfoKeys Name="LegalTrademarks"></VersionInfoKeys>
<VersionInfoKeys Name="OriginalFilename"></VersionInfoKeys> <VersionInfoKeys Name="OriginalFilename"></VersionInfoKeys>
<VersionInfoKeys Name="ProductName">FactuGES Server</VersionInfoKeys> <VersionInfoKeys Name="ProductName">FactuGES Server</VersionInfoKeys>
<VersionInfoKeys Name="ProductVersion">2.9.0.0</VersionInfoKeys> <VersionInfoKeys Name="ProductVersion">3.0.0.0</VersionInfoKeys>
<VersionInfoKeys Name="Comments"></VersionInfoKeys> <VersionInfoKeys Name="Comments"></VersionInfoKeys>
<VersionInfoKeys Name="CompileDate">miércoles, 28 de mayo de 2008 16:31</VersionInfoKeys></VersionInfoKeys> <VersionInfoKeys Name="CompileDate">jueves, 29 de mayo de 2008 19:41</VersionInfoKeys></VersionInfoKeys>
<Excluded_Packages> <Excluded_Packages>
<Excluded_Packages Name="C:\Archivos de programa\RemObjects Software\Pascal Script\Dcu\D10\PascalScript_RO_D10.bpl">RemObjects Pascal Script - RemObjects SDK 3.0 Integration</Excluded_Packages> <Excluded_Packages Name="C:\Archivos de programa\RemObjects Software\Pascal Script\Dcu\D10\PascalScript_RO_D10.bpl">RemObjects Pascal Script - RemObjects SDK 3.0 Integration</Excluded_Packages>
</Excluded_Packages> </Excluded_Packages>

6
Source/Servidor/FactuGES_Server.dpr
View File

@ -128,10 +128,10 @@ uses
schAlbaranesProveedorServer_Intf in '..\Modulos\Albaranes de proveedor\Model\schAlbaranesProveedorServer_Intf.pas', schAlbaranesProveedorServer_Intf in '..\Modulos\Albaranes de proveedor\Model\schAlbaranesProveedorServer_Intf.pas',
schInformesClient_Intf in '..\Modulos\Informes base\Model\schInformesClient_Intf.pas', schInformesClient_Intf in '..\Modulos\Informes base\Model\schInformesClient_Intf.pas',
schInformesServer_Intf in '..\Modulos\Informes base\Model\schInformesServer_Intf.pas', schInformesServer_Intf in '..\Modulos\Informes base\Model\schInformesServer_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',
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',
schInfMargenArticuloServer_Intf in '..\Modulos\Informe margen por articulo\Model\schInfMargenArticuloServer_Intf.pas';
{$R *.res} {$R *.res}
{$R ..\Servicios\RODLFile.res} {$R ..\Servicios\RODLFile.res}

10
Source/Servidor/FactuGES_Server.rc
View File

@ -1,7 +1,7 @@
MAINICON ICON "c:\Codigo Luis Leon\Source\Iconos\Servidor.ico" MAINICON ICON "c:\Codigo Luis Leon\Source\Iconos\Servidor.ico"
1 VERSIONINFO 1 VERSIONINFO
FILEVERSION 2,9,0,0 FILEVERSION 3,0,0,0
PRODUCTVERSION 2,9,0,0 PRODUCTVERSION 3,0,0,0
FILEFLAGSMASK 0x3FL FILEFLAGSMASK 0x3FL
FILEFLAGS 0x00L FILEFLAGS 0x00L
FILEOS 0x40004L FILEOS 0x40004L
@ -13,10 +13,10 @@ BEGIN
BLOCK "0C0A04E4" BLOCK "0C0A04E4"
BEGIN BEGIN
VALUE "CompanyName", "Rodax Software S.L.\0" VALUE "CompanyName", "Rodax Software S.L.\0"
VALUE "FileVersion", "2.9.0.0\0" VALUE "FileVersion", "3.0.0.0\0"
VALUE "ProductName", "FactuGES Server\0" VALUE "ProductName", "FactuGES Server\0"
VALUE "ProductVersion", "2.9.0.0\0" VALUE "ProductVersion", "3.0.0.0\0"
VALUE "CompileDate", "jueves, 29 de mayo de 2008 19:41\0" VALUE "CompileDate", "miércoles, 04 de junio de 2008 18:52\0"
END END
END END
BLOCK "VarFileInfo" BLOCK "VarFileInfo"

BIN
Source/Servidor/FactuGES_Server.res
View File

Binary file not shown.