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

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

View File

@ -147,8 +147,8 @@
<VersionInfo>
<VersionInfo Name="IncludeVerInfo">True</VersionInfo>
<VersionInfo Name="AutoIncBuild">False</VersionInfo>
<VersionInfo Name="MajorVer">2</VersionInfo>
<VersionInfo Name="MinorVer">9</VersionInfo>
<VersionInfo Name="MajorVer">3</VersionInfo>
<VersionInfo Name="MinorVer">0</VersionInfo>
<VersionInfo Name="Release">0</VersionInfo>
<VersionInfo Name="Build">0</VersionInfo>
<VersionInfo Name="Debug">False</VersionInfo>
@ -162,13 +162,13 @@
<VersionInfoKeys>
<VersionInfoKeys Name="CompanyName">Rodax Software S.L.</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="LegalCopyright"></VersionInfoKeys>
<VersionInfoKeys Name="LegalTrademarks"></VersionInfoKeys>
<VersionInfoKeys Name="OriginalFilename"></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> <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>

View File

@ -1,7 +1,7 @@
MAINICON ICON "c:\Codigo Luis Leon\Source\Iconos\Factuges.ico"
1 VERSIONINFO
FILEVERSION 2,9,0,0
PRODUCTVERSION 2,9,0,0
FILEVERSION 3,0,0,0
PRODUCTVERSION 3,0,0,0
FILEFLAGSMASK 0x3FL
FILEFLAGS 0x00L
FILEOS 0x40004L
@ -13,9 +13,9 @@ BEGIN
BLOCK "0C0A04E4"
BEGIN
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 "ProductVersion", "2.9.0.0\0"
VALUE "ProductVersion", "3.0.0.0\0"
END
END
BLOCK "VarFileInfo"

Binary file not shown.

View File

@ -170,13 +170,11 @@
<VersionInfoKeys Name="ProductName"></VersionInfoKeys>
<VersionInfoKeys Name="ProductVersion">1.0.0.0</VersionInfoKeys>
<VersionInfoKeys Name="Comments"></VersionInfoKeys>
</VersionInfoKeys>
<Excluded_Packages>
</VersionInfoKeys> <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>
</Delphi.Personality>
<!-- EurekaLog First Line
<!-- EurekaLog First Line
[Exception Log]
EurekaLog Version=519
Activate=1

View File

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

View File

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

View File

@ -9,14 +9,14 @@ const
{ Delta rules ids
Feel free to change them to something more human readable
but make sure they are unique in the context of your application }
RID_InfMargenPorClienteDelta = '{2BF169D0-BE09-4DD7-ADD9-6867C0C3D18E}';
RID_InfMargenPorArticuloDelta = '{D6219F0B-3705-4E9F-854A-EE678CDA3354}';
RID_InfMargenPorFacturaDelta = '{5C45D321-F740-48B8-BCD7-4B00331BB267}';
RID_InfMargenPorClienteDelta = '{60A00CBF-ED18-41E1-975D-BA6353A4801E}';
RID_InfMargenPorArticuloDelta = '{0376D2C4-1F54-421F-AE63-F63FC0C83DA1}';
RID_InfMargenPorFacturaDelta = '{C49FE731-4C9C-4B1B-8633-558AEE8CD0BD}';
type
{ IInfMargenPorClienteDelta }
IInfMargenPorClienteDelta = interface(IInfMargenPorCliente)
['{2BF169D0-BE09-4DD7-ADD9-6867C0C3D18E}']
['{60A00CBF-ED18-41E1-975D-BA6353A4801E}']
{ Property getters and setters }
function GetOldID_EMPRESAValue : Integer;
function GetOldID_CLIENTEValue : Integer;
@ -29,6 +29,7 @@ type
function GetOldINVENTARIABLEValue : Integer;
function GetOldNIF_CIF_CLIENTEValue : String;
function GetOldNOMBRE_CLIENTEValue : String;
function GetOldPROVEEDORValue : String;
function GetOldNOMBRE_COMERCIAL_CLIENTEValue : String;
function GetOldNIF_CIF_AGENTEValue : String;
function GetOldNOMBRE_AGENTEValue : String;
@ -72,6 +73,7 @@ type
property OldINVENTARIABLE : Integer read GetOldINVENTARIABLEValue;
property OldNIF_CIF_CLIENTE : String read GetOldNIF_CIF_CLIENTEValue;
property OldNOMBRE_CLIENTE : String read GetOldNOMBRE_CLIENTEValue;
property OldPROVEEDOR : String read GetOldPROVEEDORValue;
property OldNOMBRE_COMERCIAL_CLIENTE : String read GetOldNOMBRE_COMERCIAL_CLIENTEValue;
property OldNIF_CIF_AGENTE : String read GetOldNIF_CIF_AGENTEValue;
property OldNOMBRE_AGENTE : String read GetOldNOMBRE_AGENTEValue;
@ -142,6 +144,9 @@ type
function GetNOMBRE_CLIENTEValue: String; virtual;
function GetOldNOMBRE_CLIENTEValue: 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 GetOldNOMBRE_COMERCIAL_CLIENTEValue: 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 NOMBRE_CLIENTE : String read GetNOMBRE_CLIENTEValue write SetNOMBRE_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 OldNOMBRE_COMERCIAL_CLIENTE : String read GetOldNOMBRE_COMERCIAL_CLIENTEValue;
property NIF_CIF_AGENTE : String read GetNIF_CIF_AGENTEValue write SetNIF_CIF_AGENTEValue;
@ -325,13 +332,14 @@ type
{ IInfMargenPorArticuloDelta }
IInfMargenPorArticuloDelta = interface(IInfMargenPorArticulo)
['{D6219F0B-3705-4E9F-854A-EE678CDA3354}']
['{0376D2C4-1F54-421F-AE63-F63FC0C83DA1}']
{ Property getters and setters }
function GetOldID_EMPRESAValue : Integer;
function GetOldID_ARTICULOValue : Integer;
function GetOldFAMILIAValue : String;
function GetOldREFERENCIAValue : String;
function GetOldREFERENCIA_PROVValue : String;
function GetOldPROVEEDORValue : String;
function GetOldDESCRIPCIONValue : String;
function GetOldCOMISIONABLEValue : Integer;
function GetOldINVENTARIABLEValue : Integer;
@ -369,6 +377,7 @@ type
property OldFAMILIA : String read GetOldFAMILIAValue;
property OldREFERENCIA : String read GetOldREFERENCIAValue;
property OldREFERENCIA_PROV : String read GetOldREFERENCIA_PROVValue;
property OldPROVEEDOR : String read GetOldPROVEEDORValue;
property OldDESCRIPCION : String read GetOldDESCRIPCIONValue;
property OldCOMISIONABLE : Integer read GetOldCOMISIONABLEValue;
property OldINVENTARIABLE : Integer read GetOldINVENTARIABLEValue;
@ -421,6 +430,9 @@ type
function GetREFERENCIA_PROVValue: String; virtual;
function GetOldREFERENCIA_PROVValue: 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 GetOldDESCRIPCIONValue: String; virtual;
procedure SetDESCRIPCIONValue(const aValue: String); virtual;
@ -523,6 +535,8 @@ type
property OldREFERENCIA : String read GetOldREFERENCIAValue;
property REFERENCIA_PROV : String read GetREFERENCIA_PROVValue write SetREFERENCIA_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 OldDESCRIPCION : String read GetOldDESCRIPCIONValue;
property COMISIONABLE : Integer read GetCOMISIONABLEValue write SetCOMISIONABLEValue;
@ -592,7 +606,7 @@ type
{ IInfMargenPorFacturaDelta }
IInfMargenPorFacturaDelta = interface(IInfMargenPorFactura)
['{5C45D321-F740-48B8-BCD7-4B00331BB267}']
['{C49FE731-4C9C-4B1B-8633-558AEE8CD0BD}']
{ Property getters and setters }
function GetOldID_EMPRESAValue : Integer;
function GetOldID_CLIENTEValue : Integer;
@ -609,6 +623,7 @@ type
function GetOldINVENTARIABLEValue : Integer;
function GetOldNIF_CIF_CLIENTEValue : String;
function GetOldNOMBRE_CLIENTEValue : String;
function GetOldPROVEEDORValue : String;
function GetOldNOMBRE_COMERCIAL_CLIENTEValue : String;
function GetOldNIF_CIF_AGENTEValue : String;
function GetOldNOMBRE_AGENTEValue : String;
@ -648,6 +663,7 @@ type
property OldINVENTARIABLE : Integer read GetOldINVENTARIABLEValue;
property OldNIF_CIF_CLIENTE : String read GetOldNIF_CIF_CLIENTEValue;
property OldNOMBRE_CLIENTE : String read GetOldNOMBRE_CLIENTEValue;
property OldPROVEEDOR : String read GetOldPROVEEDORValue;
property OldNOMBRE_COMERCIAL_CLIENTE : String read GetOldNOMBRE_COMERCIAL_CLIENTEValue;
property OldNIF_CIF_AGENTE : String read GetOldNIF_CIF_AGENTEValue;
property OldNOMBRE_AGENTE : String read GetOldNOMBRE_AGENTEValue;
@ -722,6 +738,9 @@ type
function GetNOMBRE_CLIENTEValue: String; virtual;
function GetOldNOMBRE_CLIENTEValue: 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 GetOldNOMBRE_COMERCIAL_CLIENTEValue: 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 NOMBRE_CLIENTE : String read GetNOMBRE_CLIENTEValue write SetNOMBRE_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 OldNOMBRE_COMERCIAL_CLIENTE : String read GetOldNOMBRE_COMERCIAL_CLIENTEValue;
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;
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;
begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_InfMargenPorClienteNOMBRE_COMERCIAL_CLIENTE];
@ -1589,6 +1625,21 @@ begin
BusinessProcessor.CurrentChange.NewValueByName[fld_InfMargenPorArticuloREFERENCIA_PROV] := aValue;
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;
begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_InfMargenPorArticuloDESCRIPCION];
@ -2276,6 +2327,21 @@ begin
BusinessProcessor.CurrentChange.NewValueByName[fld_InfMargenPorFacturaNOMBRE_CLIENTE] := aValue;
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;
begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_InfMargenPorFacturaNOMBRE_COMERCIAL_CLIENTE];

View File

@ -44,7 +44,7 @@ const
//SOLO PARA INFORME AGRUPADO POR FACTURA PARA SACAR BENEFICIO REAL
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);
begin

View File

@ -170,8 +170,7 @@
<VersionInfoKeys Name="ProductName"></VersionInfoKeys>
<VersionInfoKeys Name="ProductVersion">1.0.0.0</VersionInfoKeys>
<VersionInfoKeys Name="Comments"></VersionInfoKeys>
</VersionInfoKeys>
<Excluded_Packages>
</VersionInfoKeys> <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>
</Delphi.Personality>

View File

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

View File

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

View File

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

View File

@ -152,8 +152,8 @@
<VersionInfo>
<VersionInfo Name="IncludeVerInfo">True</VersionInfo>
<VersionInfo Name="AutoIncBuild">False</VersionInfo>
<VersionInfo Name="MajorVer">2</VersionInfo>
<VersionInfo Name="MinorVer">9</VersionInfo>
<VersionInfo Name="MajorVer">3</VersionInfo>
<VersionInfo Name="MinorVer">0</VersionInfo>
<VersionInfo Name="Release">0</VersionInfo>
<VersionInfo Name="Build">0</VersionInfo>
<VersionInfo Name="Debug">False</VersionInfo>
@ -167,15 +167,15 @@
<VersionInfoKeys>
<VersionInfoKeys Name="CompanyName">Rodax Software S.L.</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="LegalCopyright"></VersionInfoKeys>
<VersionInfoKeys Name="LegalTrademarks"></VersionInfoKeys>
<VersionInfoKeys Name="OriginalFilename"></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="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 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>

View File

@ -128,10 +128,10 @@ uses
schAlbaranesProveedorServer_Intf in '..\Modulos\Albaranes de proveedor\Model\schAlbaranesProveedorServer_Intf.pas',
schInformesClient_Intf in '..\Modulos\Informes base\Model\schInformesClient_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',
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 ..\Servicios\RODLFile.res}

View File

@ -1,7 +1,7 @@
MAINICON ICON "c:\Codigo Luis Leon\Source\Iconos\Servidor.ico"
1 VERSIONINFO
FILEVERSION 2,9,0,0
PRODUCTVERSION 2,9,0,0
FILEVERSION 3,0,0,0
PRODUCTVERSION 3,0,0,0
FILEFLAGSMASK 0x3FL
FILEFLAGS 0x00L
FILEOS 0x40004L
@ -13,10 +13,10 @@ BEGIN
BLOCK "0C0A04E4"
BEGIN
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 "ProductVersion", "2.9.0.0\0"
VALUE "CompileDate", "jueves, 29 de mayo de 2008 19:41\0"
VALUE "ProductVersion", "3.0.0.0\0"
VALUE "CompileDate", "miércoles, 04 de junio de 2008 18:52\0"
END
END
BLOCK "VarFileInfo"

Binary file not shown.