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

Subida de 1paso de recepcion de pedidos por articulos individuales

Browse Source 
git-svn-id: https://192.168.0.254/svn/Proyectos.LuisLeon_FactuGES/trunk@220 c93665c3-c93d-084d-9b98-7d5f4a9c3376
This commit is contained in:
roberto 2008-03-28 15:10:28 +00:00
parent e081b58fd2
commit 505300b281
48 changed files with 5643 additions and 396 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

28
Build/Build.fbp5
View File

@ -574,12 +574,12 @@ source_path
<Property name="MajorVersion" type="Integer">2</Property>
<Property MultiValue="0" name="ManifestFile" type="string"></Property>
<Property name="MaxRetryAttempts" type="Cardinal">0</Property>
<Property name="MinorVersion" type="Integer">3</Property>
<Property name="MinorVersion" type="Integer">4</Property>
<Property name="NodeCollapsed" type="Boolean">False</Property>
<Property name="PauseInterval" type="Cardinal">0</Property>
<Property MultiValue="0" name="ProjectFile" type="WideString">%source_path%\Servidor\FactuGES_Server.dpr</Property>
<Property name="RegenerateResource" type="WordBool">True</Property>
<Property name="ReleaseVersion" type="Integer">9</Property>
<Property name="ReleaseVersion" type="Integer">0</Property>
<Property MultiValue="0" name="ResourceCompilerOptions" type="string"></Property>
<Property MultiValue="0" name="ResourceCompilerPath" type="string"></Property>
<Property name="ResourceCompilerType" type="TFBDelphiResourceCompiler">rcBorland</Property>
@ -594,15 +594,15 @@ source_path
<Property name="UseVersionFromDOF" type="Boolean">True</Property>
<Property MultiValue="1" name="VersionInfoKeys" type="WideString"><![CDATA[CompanyName=Rodax Software S.L.
FileDescription=
FileVersion=2.3.9.0
FileVersion=2.4.0.0
InternalName=
LegalCopyright=
LegalTrademarks=
OriginalFilename=
ProductName=FactuGES Server
ProductVersion=
ProductVersion=2.3.9.0
Comments=
CompileDate=
CompileDate=viernes, 18 de enero de 2008 21:11
]]>
</Property>
<Property MultiValue="0" name="VersionInfoPropertySetName" type="string"></Property>
@ -20599,12 +20599,12 @@ Comments=
<Property name="MajorVersion" type="Integer">2</Property>
<Property MultiValue="0" name="ManifestFile" type="string"></Property>
<Property name="MaxRetryAttempts" type="Cardinal">0</Property>
<Property name="MinorVersion" type="Integer">3</Property>
<Property name="MinorVersion" type="Integer">4</Property>
<Property name="NodeCollapsed" type="Boolean">False</Property>
<Property name="PauseInterval" type="Cardinal">0</Property>
<Property MultiValue="0" name="ProjectFile" type="WideString">%source_path%\Cliente\FactuGES.dpr</Property>
<Property name="RegenerateResource" type="WordBool">True</Property>
<Property name="ReleaseVersion" type="Integer">9</Property>
<Property name="ReleaseVersion" type="Integer">0</Property>
<Property MultiValue="0" name="ResourceCompilerOptions" type="string"></Property>
<Property MultiValue="0" name="ResourceCompilerPath" type="string"></Property>
<Property name="ResourceCompilerType" type="TFBDelphiResourceCompiler">rcBorland</Property>
@ -20619,13 +20619,13 @@ Comments=
<Property name="UseVersionFromDOF" type="Boolean">False</Property>
<Property MultiValue="1" name="VersionInfoKeys" type="WideString"><![CDATA[CompanyName=Rodax Software S.L.
FileDescription=
FileVersion=2.3.9.0
FileVersion=2.4.0.0
InternalName=FactuGES
LegalCopyright=
LegalTrademarks=
OriginalFilename=
ProductName=
ProductVersion=
ProductVersion=2.3.9.0
Comments=
]]>
</Property>
@ -20697,7 +20697,7 @@ Comments=
<Property MultiValue="0" name="ActionTypeID" type="string"></Property>
<Property MultiValue="1" name="Description" type="string"><![CDATA[Comprimir ejecutables]]>
</Property>
<Property name="Enabled" type="WordBool">True</Property>
<Property name="Enabled" type="WordBool">False</Property>
<Property name="ExpandActionLogTitle" type="Boolean">True</Property>
<Property name="IgnoreFailure" type="WordBool">False</Property>
<Property name="IsAction" type="Boolean">True</Property>
@ -20786,7 +20786,7 @@ Comments=
<Property MultiValue="0" name="ActionTypeID" type="string"></Property>
<Property MultiValue="1" name="Description" type="string"><![CDATA[Copiar informes]]>
</Property>
<Property name="Enabled" type="WordBool">True</Property>
<Property name="Enabled" type="WordBool">False</Property>
<Property name="ExpandActionLogTitle" type="Boolean">True</Property>
<Property name="IgnoreFailure" type="WordBool">False</Property>
<Property name="IsAction" type="Boolean">True</Property>
@ -20854,7 +20854,7 @@ Comments=
<Property MultiValue="0" name="ActionTypeID" type="string"></Property>
<Property MultiValue="1" name="Description" type="string"><![CDATA[Generar actualización]]>
</Property>
<Property name="Enabled" type="WordBool">True</Property>
<Property name="Enabled" type="WordBool">False</Property>
<Property name="ExpandActionLogTitle" type="Boolean">True</Property>
<Property name="IgnoreFailure" type="WordBool">False</Property>
<Property name="IsAction" type="Boolean">True</Property>
@ -21038,7 +21038,7 @@ Comments=
</Property>
<Property name="ActionTextColor" type="Cardinal">0</Property>
<Property MultiValue="0" name="ActionTypeID" type="string"></Property>
<Property name="Enabled" type="WordBool">True</Property>
<Property name="Enabled" type="WordBool">False</Property>
<Property name="ExpandActionLogTitle" type="Boolean">True</Property>
<Property name="IgnoreFailure" type="WordBool">False</Property>
<Property name="IsAction" type="Boolean">True</Property>
@ -21281,7 +21281,7 @@ Comments=
<Property MultiValue="0" name="ActionTypeID" type="string"></Property>
<Property MultiValue="1" name="Description" type="string"><![CDATA[Generar XML de actualización]]>
</Property>
<Property name="Enabled" type="WordBool">True</Property>
<Property name="Enabled" type="WordBool">False</Property>
<Property name="ExpandActionLogTitle" type="Boolean">True</Property>
<Property name="IgnoreFailure" type="WordBool">False</Property>
<Property name="IsAction" type="Boolean">True</Property>

4
Source/Cliente/FactuGES.bdsproj
View File

@ -148,7 +148,7 @@
<VersionInfo Name="IncludeVerInfo">True</VersionInfo>
<VersionInfo Name="AutoIncBuild">False</VersionInfo>
<VersionInfo Name="MajorVer">2</VersionInfo>
<VersionInfo Name="MinorVer">4</VersionInfo>
<VersionInfo Name="MinorVer">5</VersionInfo>
<VersionInfo Name="Release">0</VersionInfo>
<VersionInfo Name="Build">0</VersionInfo>
<VersionInfo Name="Debug">False</VersionInfo>
@ -162,7 +162,7 @@
<VersionInfoKeys>
<VersionInfoKeys Name="CompanyName">Rodax Software S.L.</VersionInfoKeys>
<VersionInfoKeys Name="FileDescription"></VersionInfoKeys>
<VersionInfoKeys Name="FileVersion">2.4.0.0</VersionInfoKeys>
<VersionInfoKeys Name="FileVersion">2.5.0.0</VersionInfoKeys>
<VersionInfoKeys Name="InternalName">FactuGES</VersionInfoKeys>
<VersionInfoKeys Name="LegalCopyright"></VersionInfoKeys>
<VersionInfoKeys Name="LegalTrademarks"></VersionInfoKeys>

6
Source/Cliente/FactuGES.rc
View File

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

BIN
Source/Cliente/FactuGES.res
View File

Binary file not shown.

11
Source/FactuGES_Group.bdsgroup
View File

@ -8,9 +8,7 @@
<Option Name="GUID">{897CD5E4-3D47-418F-BD7A-AD0C0C4FDE6A}</Option>
</Option>
</PersonalityInfo>
<Default.Personality>
<Projects>
<Default.Personality> <Projects>
<Projects Name="DataAbstract_D10.bpl">DataAbstract_D10\DataAbstract_D10.bdsproj</Projects>
<Projects Name="Base.bpl">Base\Base.bdsproj</Projects>
<Projects Name="ControllerBase.bpl">Base\ControllerBase\ControllerBase.bdsproj</Projects>
@ -87,13 +85,8 @@
<Projects Name="AlbaranesProveedor_plugin.bpl">Modulos\Albaranes de proveedor\Plugin\AlbaranesProveedor_plugin.bdsproj</Projects>
<Projects Name="FactuGES.exe">Cliente\FactuGES.bdsproj</Projects>
<Projects Name="FactuGES_Server.exe">Servidor\FactuGES_Server.bdsproj</Projects>
<Projects Name="Comisiones_model.bpl">Modulos\Comisiones\Model\Comisiones_model.bdsproj</Projects>
<Projects Name="Comisiones_data.bpl">Modulos\Comisiones\Data\Comisiones_data.bdsproj</Projects>
<Projects Name="Comisiones_controller.bpl">Modulos\Comisiones\Controller\Comisiones_controller.bdsproj</Projects>
<Projects Name="Comisiones_view.bpl">Modulos\Comisiones\Views\Comisiones_view.bdsproj</Projects>
<Projects Name="Comisiones_plugin.bpl">Modulos\Comisiones\Plugin\Comisiones_plugin.bdsproj</Projects>
<Projects Name="AlbCli_FacCli_relation.bpl">Modulos\Relaciones\Albaranes de cliente - Facturas de cliente\AlbCli_FacCli_relation.bdsproj</Projects>
<Projects Name="Targets">DataAbstract_D10.bpl Base.bpl ControllerBase.bpl GUIBase.bpl Empresas_model.bpl Empresas_data.bpl Empresas_controller.bpl Usuarios.bpl Empresas_view.bpl Empresas_plugin.bpl TiposIVA_model.bpl TiposIVA_data.bpl TiposIVA_controller.bpl TiposIVA_view.bpl TiposIVA_plugin.bpl Contactos_model.bpl Contactos_data.bpl Contactos_controller.bpl Contactos_view.bpl Contactos_plugin.bpl Almacenes_model.bpl Almacenes_data.bpl Almacenes_controller.bpl Almacenes_view.bpl Almacenes_plugin.bpl Articulos_model.bpl Articulos_data.bpl Articulos_controller.bpl Articulos_view.bpl Articulos_plugin.bpl RecibosCliente_model.bpl RecibosCliente_data.bpl RecibosCliente_controller.bpl RecibosCliente_view.bpl RecibosCliente_plugin.bpl RemesasCliente_model.bpl RemesasCliente_data.bpl RemesasCliente_controller.bpl BancaElectronica_controller.bpl BancaElectronica_view.bpl RemesasCliente_view.bpl RemesasCliente_plugin.bpl PedidosCliente_model.bpl PedidosCliente_data.bpl PedidosCliente_controller.bpl AlbaranesCliente_model.bpl AlbaranesCliente_data.bpl AlbaranesCliente_controller.bpl FacturasCliente_model.bpl FacturasCliente_data.bpl FacturasCliente_controller.bpl PedidosProveedor_model.bpl PedidosProveedor_data.bpl PedidosProveedor_controller.bpl Inventario_model.bpl Inventario_data.bpl Inventario_controller.bpl AlbaranesProveedor_model.bpl AlbaranesProveedor_data.bpl AlbaranesProveedor_controller.bpl PedCli_PedProv_relation.bpl PedCli_AlbCli_relation.bpl PedidosCliente_view.bpl PedidosCliente_plugin.bpl AlbaranesCliente_view.bpl AlbaranesCliente_plugin.bpl FacturasCliente_view.bpl FacturasCliente_plugin.bpl Inventario_view.bpl Inventario_plugin.bpl PedidosProveedor_view.bpl PedidosProveedor_plugin.bpl AlbaranesProveedor_view.bpl AlbaranesProveedor_plugin.bpl FactuGES.exe FactuGES_Server.exe Comisiones_model.bpl Comisiones_data.bpl Comisiones_controller.bpl Comisiones_view.bpl Comisiones_plugin.bpl AlbCli_FacCli_relation.bpl</Projects>
<Projects Name="Targets">DataAbstract_D10.bpl Base.bpl ControllerBase.bpl GUIBase.bpl Empresas_model.bpl Empresas_data.bpl Empresas_controller.bpl Usuarios.bpl Empresas_view.bpl Empresas_plugin.bpl TiposIVA_model.bpl TiposIVA_data.bpl TiposIVA_controller.bpl TiposIVA_view.bpl TiposIVA_plugin.bpl Contactos_model.bpl Contactos_data.bpl Contactos_controller.bpl Contactos_view.bpl Contactos_plugin.bpl Almacenes_model.bpl Almacenes_data.bpl Almacenes_controller.bpl Almacenes_view.bpl Almacenes_plugin.bpl Articulos_model.bpl Articulos_data.bpl Articulos_controller.bpl Articulos_view.bpl Articulos_plugin.bpl RecibosCliente_model.bpl RecibosCliente_data.bpl RecibosCliente_controller.bpl RecibosCliente_view.bpl RecibosCliente_plugin.bpl RemesasCliente_model.bpl RemesasCliente_data.bpl RemesasCliente_controller.bpl BancaElectronica_controller.bpl BancaElectronica_view.bpl RemesasCliente_view.bpl RemesasCliente_plugin.bpl PedidosCliente_model.bpl PedidosCliente_data.bpl PedidosCliente_controller.bpl AlbaranesCliente_model.bpl AlbaranesCliente_data.bpl AlbaranesCliente_controller.bpl FacturasCliente_model.bpl FacturasCliente_data.bpl FacturasCliente_controller.bpl PedidosProveedor_model.bpl PedidosProveedor_data.bpl PedidosProveedor_controller.bpl Inventario_model.bpl Inventario_data.bpl Inventario_controller.bpl AlbaranesProveedor_model.bpl AlbaranesProveedor_data.bpl AlbaranesProveedor_controller.bpl PedCli_PedProv_relation.bpl PedCli_AlbCli_relation.bpl PedidosCliente_view.bpl PedidosCliente_plugin.bpl AlbaranesCliente_view.bpl AlbaranesCliente_plugin.bpl FacturasCliente_view.bpl FacturasCliente_plugin.bpl Inventario_view.bpl Inventario_plugin.bpl PedidosProveedor_view.bpl PedidosProveedor_plugin.bpl AlbaranesProveedor_view.bpl AlbaranesProveedor_plugin.bpl FactuGES.exe FactuGES_Server.exe AlbCli_FacCli_relation.bpl</Projects>
</Projects>
<Dependencies/>
</Default.Personality>

5
Source/Modulos/Albaranes de cliente/AlbaranesCliente_Group.bdsgroup
View File

@ -22,7 +22,10 @@
<Projects Name="AlbaranesCliente_plugin.bpl">Plugin\AlbaranesCliente_plugin.bdsproj</Projects>
<Projects Name="AlbCli_FacCli_relation.bpl">..\Relaciones\Albaranes de cliente - Facturas de cliente\AlbCli_FacCli_relation.bdsproj</Projects>
<Projects Name="FacturasCliente_view.bpl">..\Facturas de cliente\Views\FacturasCliente_view.bdsproj</Projects>
<Projects Name="Targets">DataAbstract_D10.bpl Base.bpl ControllerBase.bpl GUIBase.bpl Contactos_view.bpl Articulos_view.bpl AlbaranesCliente_model.bpl AlbaranesCliente_data.bpl AlbaranesCliente_controller.bpl AlbaranesCliente_view.bpl AlbaranesCliente_plugin.bpl AlbCli_FacCli_relation.bpl FacturasCliente_view.bpl</Projects>
<Projects Name="FactuGES_Server.exe">..\..\Servidor\FactuGES_Server.bdsproj</Projects>
<Projects Name="FactuGES.exe">..\..\Cliente\FactuGES.bdsproj</Projects>
<Projects Name="PedCli_AlbCli_relation.bpl">..\Relaciones\Pedidos de cliente - Albaranes de cliente\PedCli_AlbCli_relation.bdsproj</Projects>
<Projects Name="Targets">DataAbstract_D10.bpl Base.bpl ControllerBase.bpl GUIBase.bpl Contactos_view.bpl Articulos_view.bpl AlbaranesCliente_model.bpl AlbaranesCliente_data.bpl AlbaranesCliente_controller.bpl AlbaranesCliente_view.bpl AlbaranesCliente_plugin.bpl AlbCli_FacCli_relation.bpl FacturasCliente_view.bpl FactuGES_Server.exe FactuGES.exe PedCli_AlbCli_relation.bpl</Projects>
</Projects>
<Dependencies/>
</Default.Personality>

13
Source/Modulos/Albaranes de cliente/Data/uDataModuleAlbaranesCliente.dfm
View File

@ -737,6 +737,17 @@ object DataModuleAlbaranesCliente: TDataModuleAlbaranesCliente
Lookup = False
LookupCache = False
end
item
Name = 'ID_PEDIDO'
DataType = datInteger
BlobType = dabtUnknown
DisplayWidth = 0
Alignment = taLeftJustify
InPrimaryKey = False
Calculated = False
Lookup = False
LookupCache = False
end
item
Name = 'POSICION'
DataType = datInteger
@ -897,7 +908,7 @@ object DataModuleAlbaranesCliente: TDataModuleAlbaranesCliente
Name = 'ID_ALBARAN'
DataType = datInteger
BlobType = dabtUnknown
Value = 41
Value = ''
ParamType = daptInput
end>
MasterMappingMode = mmParams

104
Source/Modulos/Albaranes de cliente/Model/schAlbaranesClienteClient_Intf.pas
View File

@ -9,11 +9,11 @@ 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_DarReferencia = '{341025B6-FE72-4C74-BDF0-C3927C245F63}';
RID_AlbaranesCliente = '{16CEF413-0B6A-4EF4-93E5-84AA225DFAD4}';
RID_AlbaranesCliente_Detalles = '{D5262A01-1237-4B9B-94C7-69EB0A2EE285}';
RID_AlbaranesCliente_Detalles_Refresh = '{185547D0-70EE-444D-9F66-AD112ED2E6DD}';
RID_AlbaranesCliente_Refresh = '{6B67F077-F0E0-4D9F-81E4-4DA4F11B1D17}';
RID_DarReferencia = '{082B0C4D-3177-4BB4-B3B3-768B55A2D4CD}';
RID_AlbaranesCliente = '{3BDADEA6-ACB7-4E6F-8877-8634A2F4B4FB}';
RID_AlbaranesCliente_Detalles = '{0ACEBB64-A4A0-410C-BA50-BE62510542C0}';
RID_AlbaranesCliente_Detalles_Refresh = '{0E3B100E-D70D-41C4-BC7C-D53C5C732E65}';
RID_AlbaranesCliente_Refresh = '{19951F6E-3BFD-4195-A2F3-0D66AAC9B375}';
{ Data table names }
nme_DarReferencia = 'DarReferencia';
@ -117,6 +117,7 @@ const
{ AlbaranesCliente_Detalles fields }
fld_AlbaranesCliente_DetallesID = 'ID';
fld_AlbaranesCliente_DetallesID_ALBARAN = 'ID_ALBARAN';
fld_AlbaranesCliente_DetallesID_PEDIDO = 'ID_PEDIDO';
fld_AlbaranesCliente_DetallesPOSICION = 'POSICION';
fld_AlbaranesCliente_DetallesTIPO_DETALLE = 'TIPO_DETALLE';
fld_AlbaranesCliente_DetallesREFERENCIA = 'REFERENCIA';
@ -133,22 +134,24 @@ const
{ AlbaranesCliente_Detalles field indexes }
idx_AlbaranesCliente_DetallesID = 0;
idx_AlbaranesCliente_DetallesID_ALBARAN = 1;
idx_AlbaranesCliente_DetallesPOSICION = 2;
idx_AlbaranesCliente_DetallesTIPO_DETALLE = 3;
idx_AlbaranesCliente_DetallesREFERENCIA = 4;
idx_AlbaranesCliente_DetallesID_ARTICULO = 5;
idx_AlbaranesCliente_DetallesCONCEPTO = 6;
idx_AlbaranesCliente_DetallesCANTIDAD = 7;
idx_AlbaranesCliente_DetallesIMPORTE_UNIDAD = 8;
idx_AlbaranesCliente_DetallesIMPORTE_TOTAL = 9;
idx_AlbaranesCliente_DetallesDESCUENTO = 10;
idx_AlbaranesCliente_DetallesIMPORTE_PORTE = 11;
idx_AlbaranesCliente_DetallesVISIBLE = 12;
idx_AlbaranesCliente_DetallesREFERENCIA_PROVEEDOR = 13;
idx_AlbaranesCliente_DetallesID_PEDIDO = 2;
idx_AlbaranesCliente_DetallesPOSICION = 3;
idx_AlbaranesCliente_DetallesTIPO_DETALLE = 4;
idx_AlbaranesCliente_DetallesREFERENCIA = 5;
idx_AlbaranesCliente_DetallesID_ARTICULO = 6;
idx_AlbaranesCliente_DetallesCONCEPTO = 7;
idx_AlbaranesCliente_DetallesCANTIDAD = 8;
idx_AlbaranesCliente_DetallesIMPORTE_UNIDAD = 9;
idx_AlbaranesCliente_DetallesIMPORTE_TOTAL = 10;
idx_AlbaranesCliente_DetallesDESCUENTO = 11;
idx_AlbaranesCliente_DetallesIMPORTE_PORTE = 12;
idx_AlbaranesCliente_DetallesVISIBLE = 13;
idx_AlbaranesCliente_DetallesREFERENCIA_PROVEEDOR = 14;
{ AlbaranesCliente_Detalles_Refresh fields }
fld_AlbaranesCliente_Detalles_RefreshID = 'ID';
fld_AlbaranesCliente_Detalles_RefreshID_ALBARAN = 'ID_ALBARAN';
fld_AlbaranesCliente_Detalles_RefreshID_PEDIDO = 'ID_PEDIDO';
fld_AlbaranesCliente_Detalles_RefreshPOSICION = 'POSICION';
fld_AlbaranesCliente_Detalles_RefreshTIPO_DETALLE = 'TIPO_DETALLE';
fld_AlbaranesCliente_Detalles_RefreshREFERENCIA = 'REFERENCIA';
@ -165,18 +168,19 @@ const
{ AlbaranesCliente_Detalles_Refresh field indexes }
idx_AlbaranesCliente_Detalles_RefreshID = 0;
idx_AlbaranesCliente_Detalles_RefreshID_ALBARAN = 1;
idx_AlbaranesCliente_Detalles_RefreshPOSICION = 2;
idx_AlbaranesCliente_Detalles_RefreshTIPO_DETALLE = 3;
idx_AlbaranesCliente_Detalles_RefreshREFERENCIA = 4;
idx_AlbaranesCliente_Detalles_RefreshID_ARTICULO = 5;
idx_AlbaranesCliente_Detalles_RefreshCONCEPTO = 6;
idx_AlbaranesCliente_Detalles_RefreshCANTIDAD = 7;
idx_AlbaranesCliente_Detalles_RefreshIMPORTE_UNIDAD = 8;
idx_AlbaranesCliente_Detalles_RefreshIMPORTE_TOTAL = 9;
idx_AlbaranesCliente_Detalles_RefreshDESCUENTO = 10;
idx_AlbaranesCliente_Detalles_RefreshIMPORTE_PORTE = 11;
idx_AlbaranesCliente_Detalles_RefreshVISIBLE = 12;
idx_AlbaranesCliente_Detalles_RefreshREFERENCIA_PROVEEDOR = 13;
idx_AlbaranesCliente_Detalles_RefreshID_PEDIDO = 2;
idx_AlbaranesCliente_Detalles_RefreshPOSICION = 3;
idx_AlbaranesCliente_Detalles_RefreshTIPO_DETALLE = 4;
idx_AlbaranesCliente_Detalles_RefreshREFERENCIA = 5;
idx_AlbaranesCliente_Detalles_RefreshID_ARTICULO = 6;
idx_AlbaranesCliente_Detalles_RefreshCONCEPTO = 7;
idx_AlbaranesCliente_Detalles_RefreshCANTIDAD = 8;
idx_AlbaranesCliente_Detalles_RefreshIMPORTE_UNIDAD = 9;
idx_AlbaranesCliente_Detalles_RefreshIMPORTE_TOTAL = 10;
idx_AlbaranesCliente_Detalles_RefreshDESCUENTO = 11;
idx_AlbaranesCliente_Detalles_RefreshIMPORTE_PORTE = 12;
idx_AlbaranesCliente_Detalles_RefreshVISIBLE = 13;
idx_AlbaranesCliente_Detalles_RefreshREFERENCIA_PROVEEDOR = 14;
{ AlbaranesCliente_Refresh fields }
fld_AlbaranesCliente_RefreshID = 'ID';
@ -267,7 +271,7 @@ const
type
{ IDarReferencia }
IDarReferencia = interface(IDAStronglyTypedDataTable)
['{C2E7FD79-3AA4-4157-8F79-E6E526FDCC9B}']
['{7E399946-10F5-4182-AF9A-88118707303F}']
{ Property getters and setters }
function GetVALORValue: String;
procedure SetVALORValue(const aValue: String);
@ -296,7 +300,7 @@ type
{ IAlbaranesCliente }
IAlbaranesCliente = interface(IDAStronglyTypedDataTable)
['{E4A33579-0951-4E59-99D3-6F272440FE61}']
['{A9F7185C-D38D-4987-8371-EAAABA04D66F}']
{ Property getters and setters }
function GetIDValue: Integer;
procedure SetIDValue(const aValue: Integer);
@ -565,12 +569,14 @@ type
{ IAlbaranesCliente_Detalles }
IAlbaranesCliente_Detalles = interface(IDAStronglyTypedDataTable)
['{97C8D6FE-11E0-4CF1-9B6F-F84B193FB0FB}']
['{B10831B5-8141-4090-8D71-0F09742F86ED}']
{ Property getters and setters }
function GetIDValue: Integer;
procedure SetIDValue(const aValue: Integer);
function GetID_ALBARANValue: Integer;
procedure SetID_ALBARANValue(const aValue: Integer);
function GetID_PEDIDOValue: Integer;
procedure SetID_PEDIDOValue(const aValue: Integer);
function GetPOSICIONValue: Integer;
procedure SetPOSICIONValue(const aValue: Integer);
function GetTIPO_DETALLEValue: String;
@ -600,6 +606,7 @@ type
{ Properties }
property ID: Integer read GetIDValue write SetIDValue;
property ID_ALBARAN: Integer read GetID_ALBARANValue write SetID_ALBARANValue;
property ID_PEDIDO: Integer read GetID_PEDIDOValue write SetID_PEDIDOValue;
property POSICION: Integer read GetPOSICIONValue write SetPOSICIONValue;
property TIPO_DETALLE: String read GetTIPO_DETALLEValue write SetTIPO_DETALLEValue;
property REFERENCIA: String read GetREFERENCIAValue write SetREFERENCIAValue;
@ -623,6 +630,8 @@ type
procedure SetIDValue(const aValue: Integer); virtual;
function GetID_ALBARANValue: Integer; virtual;
procedure SetID_ALBARANValue(const aValue: Integer); virtual;
function GetID_PEDIDOValue: Integer; virtual;
procedure SetID_PEDIDOValue(const aValue: Integer); virtual;
function GetPOSICIONValue: Integer; virtual;
procedure SetPOSICIONValue(const aValue: Integer); virtual;
function GetTIPO_DETALLEValue: String; virtual;
@ -651,6 +660,7 @@ type
{ Properties }
property ID: Integer read GetIDValue write SetIDValue;
property ID_ALBARAN: Integer read GetID_ALBARANValue write SetID_ALBARANValue;
property ID_PEDIDO: Integer read GetID_PEDIDOValue write SetID_PEDIDOValue;
property POSICION: Integer read GetPOSICIONValue write SetPOSICIONValue;
property TIPO_DETALLE: String read GetTIPO_DETALLEValue write SetTIPO_DETALLEValue;
property REFERENCIA: String read GetREFERENCIAValue write SetREFERENCIAValue;
@ -672,12 +682,14 @@ type
{ IAlbaranesCliente_Detalles_Refresh }
IAlbaranesCliente_Detalles_Refresh = interface(IDAStronglyTypedDataTable)
['{E9B38B1D-00D3-4E28-AAC2-94A82323A4CC}']
['{48F905D6-3C7F-4E0F-9E48-8B91954739ED}']
{ Property getters and setters }
function GetIDValue: Integer;
procedure SetIDValue(const aValue: Integer);
function GetID_ALBARANValue: Integer;
procedure SetID_ALBARANValue(const aValue: Integer);
function GetID_PEDIDOValue: Integer;
procedure SetID_PEDIDOValue(const aValue: Integer);
function GetPOSICIONValue: Integer;
procedure SetPOSICIONValue(const aValue: Integer);
function GetTIPO_DETALLEValue: String;
@ -707,6 +719,7 @@ type
{ Properties }
property ID: Integer read GetIDValue write SetIDValue;
property ID_ALBARAN: Integer read GetID_ALBARANValue write SetID_ALBARANValue;
property ID_PEDIDO: Integer read GetID_PEDIDOValue write SetID_PEDIDOValue;
property POSICION: Integer read GetPOSICIONValue write SetPOSICIONValue;
property TIPO_DETALLE: String read GetTIPO_DETALLEValue write SetTIPO_DETALLEValue;
property REFERENCIA: String read GetREFERENCIAValue write SetREFERENCIAValue;
@ -730,6 +743,8 @@ type
procedure SetIDValue(const aValue: Integer); virtual;
function GetID_ALBARANValue: Integer; virtual;
procedure SetID_ALBARANValue(const aValue: Integer); virtual;
function GetID_PEDIDOValue: Integer; virtual;
procedure SetID_PEDIDOValue(const aValue: Integer); virtual;
function GetPOSICIONValue: Integer; virtual;
procedure SetPOSICIONValue(const aValue: Integer); virtual;
function GetTIPO_DETALLEValue: String; virtual;
@ -758,6 +773,7 @@ type
{ Properties }
property ID: Integer read GetIDValue write SetIDValue;
property ID_ALBARAN: Integer read GetID_ALBARANValue write SetID_ALBARANValue;
property ID_PEDIDO: Integer read GetID_PEDIDOValue write SetID_PEDIDOValue;
property POSICION: Integer read GetPOSICIONValue write SetPOSICIONValue;
property TIPO_DETALLE: String read GetTIPO_DETALLEValue write SetTIPO_DETALLEValue;
property REFERENCIA: String read GetREFERENCIAValue write SetREFERENCIAValue;
@ -779,7 +795,7 @@ type
{ IAlbaranesCliente_Refresh }
IAlbaranesCliente_Refresh = interface(IDAStronglyTypedDataTable)
['{59B27143-6A32-490E-99D3-EBCA96FEF3E7}']
['{D51B67F3-2EC6-46BC-82F7-B2BE93663E91}']
{ Property getters and setters }
function GetIDValue: Integer;
procedure SetIDValue(const aValue: Integer);
@ -1527,6 +1543,16 @@ begin
DataTable.Fields[idx_AlbaranesCliente_DetallesID_ALBARAN].AsInteger := aValue;
end;
function TAlbaranesCliente_DetallesDataTableRules.GetID_PEDIDOValue: Integer;
begin
result := DataTable.Fields[idx_AlbaranesCliente_DetallesID_PEDIDO].AsInteger;
end;
procedure TAlbaranesCliente_DetallesDataTableRules.SetID_PEDIDOValue(const aValue: Integer);
begin
DataTable.Fields[idx_AlbaranesCliente_DetallesID_PEDIDO].AsInteger := aValue;
end;
function TAlbaranesCliente_DetallesDataTableRules.GetPOSICIONValue: Integer;
begin
result := DataTable.Fields[idx_AlbaranesCliente_DetallesPOSICION].AsInteger;
@ -1679,6 +1705,16 @@ begin
DataTable.Fields[idx_AlbaranesCliente_Detalles_RefreshID_ALBARAN].AsInteger := aValue;
end;
function TAlbaranesCliente_Detalles_RefreshDataTableRules.GetID_PEDIDOValue: Integer;
begin
result := DataTable.Fields[idx_AlbaranesCliente_Detalles_RefreshID_PEDIDO].AsInteger;
end;
procedure TAlbaranesCliente_Detalles_RefreshDataTableRules.SetID_PEDIDOValue(const aValue: Integer);
begin
DataTable.Fields[idx_AlbaranesCliente_Detalles_RefreshID_PEDIDO].AsInteger := aValue;
end;
function TAlbaranesCliente_Detalles_RefreshDataTableRules.GetPOSICIONValue: Integer;
begin
result := DataTable.Fields[idx_AlbaranesCliente_Detalles_RefreshPOSICION].AsInteger;

64
Source/Modulos/Albaranes de cliente/Model/schAlbaranesClienteServer_Intf.pas
View File

@ -9,16 +9,16 @@ 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_DarReferenciaDelta = '{41FD0C2E-1F83-4A29-90F8-DF7AC5F20671}';
RID_AlbaranesClienteDelta = '{DF0B838F-1795-4D57-9430-4BDC5E34F39F}';
RID_AlbaranesCliente_DetallesDelta = '{F9848F77-A24D-4559-A63E-46C49E6B6FCA}';
RID_AlbaranesCliente_Detalles_RefreshDelta = '{6F609F3D-CA71-4EDF-88DC-126708EA0DFA}';
RID_AlbaranesCliente_RefreshDelta = '{AEF4C61D-CCBB-4E95-9F61-4D891E5F00B3}';
RID_DarReferenciaDelta = '{3D8FD5D2-A886-493F-8792-FF470F196654}';
RID_AlbaranesClienteDelta = '{B423BC9B-11C5-4CD6-B4DE-15BD0746B77F}';
RID_AlbaranesCliente_DetallesDelta = '{07D56912-3A90-4AB6-A546-53E07A7F32FA}';
RID_AlbaranesCliente_Detalles_RefreshDelta = '{180849FA-AF37-4138-A0D9-B89C55E94A4D}';
RID_AlbaranesCliente_RefreshDelta = '{53C27CD8-3116-4171-97EE-4DDD39E6DFF3}';
type
{ IDarReferenciaDelta }
IDarReferenciaDelta = interface(IDarReferencia)
['{41FD0C2E-1F83-4A29-90F8-DF7AC5F20671}']
['{3D8FD5D2-A886-493F-8792-FF470F196654}']
{ Property getters and setters }
function GetOldVALORValue : String;
@ -47,7 +47,7 @@ type
{ IAlbaranesClienteDelta }
IAlbaranesClienteDelta = interface(IAlbaranesCliente)
['{DF0B838F-1795-4D57-9430-4BDC5E34F39F}']
['{B423BC9B-11C5-4CD6-B4DE-15BD0746B77F}']
{ Property getters and setters }
function GetOldIDValue : Integer;
function GetOldID_EMPRESAValue : Integer;
@ -356,10 +356,11 @@ type
{ IAlbaranesCliente_DetallesDelta }
IAlbaranesCliente_DetallesDelta = interface(IAlbaranesCliente_Detalles)
['{F9848F77-A24D-4559-A63E-46C49E6B6FCA}']
['{07D56912-3A90-4AB6-A546-53E07A7F32FA}']
{ Property getters and setters }
function GetOldIDValue : Integer;
function GetOldID_ALBARANValue : Integer;
function GetOldID_PEDIDOValue : Integer;
function GetOldPOSICIONValue : Integer;
function GetOldTIPO_DETALLEValue : String;
function GetOldREFERENCIAValue : String;
@ -376,6 +377,7 @@ type
{ Properties }
property OldID : Integer read GetOldIDValue;
property OldID_ALBARAN : Integer read GetOldID_ALBARANValue;
property OldID_PEDIDO : Integer read GetOldID_PEDIDOValue;
property OldPOSICION : Integer read GetOldPOSICIONValue;
property OldTIPO_DETALLE : String read GetOldTIPO_DETALLEValue;
property OldREFERENCIA : String read GetOldREFERENCIAValue;
@ -401,6 +403,9 @@ type
function GetID_ALBARANValue: Integer; virtual;
function GetOldID_ALBARANValue: Integer; virtual;
procedure SetID_ALBARANValue(const aValue: Integer); virtual;
function GetID_PEDIDOValue: Integer; virtual;
function GetOldID_PEDIDOValue: Integer; virtual;
procedure SetID_PEDIDOValue(const aValue: Integer); virtual;
function GetPOSICIONValue: Integer; virtual;
function GetOldPOSICIONValue: Integer; virtual;
procedure SetPOSICIONValue(const aValue: Integer); virtual;
@ -443,6 +448,8 @@ type
property OldID : Integer read GetOldIDValue;
property ID_ALBARAN : Integer read GetID_ALBARANValue write SetID_ALBARANValue;
property OldID_ALBARAN : Integer read GetOldID_ALBARANValue;
property ID_PEDIDO : Integer read GetID_PEDIDOValue write SetID_PEDIDOValue;
property OldID_PEDIDO : Integer read GetOldID_PEDIDOValue;
property POSICION : Integer read GetPOSICIONValue write SetPOSICIONValue;
property OldPOSICION : Integer read GetOldPOSICIONValue;
property TIPO_DETALLE : String read GetTIPO_DETALLEValue write SetTIPO_DETALLEValue;
@ -476,10 +483,11 @@ type
{ IAlbaranesCliente_Detalles_RefreshDelta }
IAlbaranesCliente_Detalles_RefreshDelta = interface(IAlbaranesCliente_Detalles_Refresh)
['{6F609F3D-CA71-4EDF-88DC-126708EA0DFA}']
['{180849FA-AF37-4138-A0D9-B89C55E94A4D}']
{ Property getters and setters }
function GetOldIDValue : Integer;
function GetOldID_ALBARANValue : Integer;
function GetOldID_PEDIDOValue : Integer;
function GetOldPOSICIONValue : Integer;
function GetOldTIPO_DETALLEValue : String;
function GetOldREFERENCIAValue : String;
@ -496,6 +504,7 @@ type
{ Properties }
property OldID : Integer read GetOldIDValue;
property OldID_ALBARAN : Integer read GetOldID_ALBARANValue;
property OldID_PEDIDO : Integer read GetOldID_PEDIDOValue;
property OldPOSICION : Integer read GetOldPOSICIONValue;
property OldTIPO_DETALLE : String read GetOldTIPO_DETALLEValue;
property OldREFERENCIA : String read GetOldREFERENCIAValue;
@ -521,6 +530,9 @@ type
function GetID_ALBARANValue: Integer; virtual;
function GetOldID_ALBARANValue: Integer; virtual;
procedure SetID_ALBARANValue(const aValue: Integer); virtual;
function GetID_PEDIDOValue: Integer; virtual;
function GetOldID_PEDIDOValue: Integer; virtual;
procedure SetID_PEDIDOValue(const aValue: Integer); virtual;
function GetPOSICIONValue: Integer; virtual;
function GetOldPOSICIONValue: Integer; virtual;
procedure SetPOSICIONValue(const aValue: Integer); virtual;
@ -563,6 +575,8 @@ type
property OldID : Integer read GetOldIDValue;
property ID_ALBARAN : Integer read GetID_ALBARANValue write SetID_ALBARANValue;
property OldID_ALBARAN : Integer read GetOldID_ALBARANValue;
property ID_PEDIDO : Integer read GetID_PEDIDOValue write SetID_PEDIDOValue;
property OldID_PEDIDO : Integer read GetOldID_PEDIDOValue;
property POSICION : Integer read GetPOSICIONValue write SetPOSICIONValue;
property OldPOSICION : Integer read GetOldPOSICIONValue;
property TIPO_DETALLE : String read GetTIPO_DETALLEValue write SetTIPO_DETALLEValue;
@ -596,7 +610,7 @@ type
{ IAlbaranesCliente_RefreshDelta }
IAlbaranesCliente_RefreshDelta = interface(IAlbaranesCliente_Refresh)
['{AEF4C61D-CCBB-4E95-9F61-4D891E5F00B3}']
['{53C27CD8-3116-4171-97EE-4DDD39E6DFF3}']
{ Property getters and setters }
function GetOldIDValue : Integer;
function GetOldID_EMPRESAValue : Integer;
@ -1607,6 +1621,21 @@ begin
BusinessProcessor.CurrentChange.NewValueByName[fld_AlbaranesCliente_DetallesID_ALBARAN] := aValue;
end;
function TAlbaranesCliente_DetallesBusinessProcessorRules.GetID_PEDIDOValue: Integer;
begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_AlbaranesCliente_DetallesID_PEDIDO];
end;
function TAlbaranesCliente_DetallesBusinessProcessorRules.GetOldID_PEDIDOValue: Integer;
begin
result := BusinessProcessor.CurrentChange.OldValueByName[fld_AlbaranesCliente_DetallesID_PEDIDO];
end;
procedure TAlbaranesCliente_DetallesBusinessProcessorRules.SetID_PEDIDOValue(const aValue: Integer);
begin
BusinessProcessor.CurrentChange.NewValueByName[fld_AlbaranesCliente_DetallesID_PEDIDO] := aValue;
end;
function TAlbaranesCliente_DetallesBusinessProcessorRules.GetPOSICIONValue: Integer;
begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_AlbaranesCliente_DetallesPOSICION];
@ -1829,6 +1858,21 @@ begin
BusinessProcessor.CurrentChange.NewValueByName[fld_AlbaranesCliente_Detalles_RefreshID_ALBARAN] := aValue;
end;
function TAlbaranesCliente_Detalles_RefreshBusinessProcessorRules.GetID_PEDIDOValue: Integer;
begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_AlbaranesCliente_Detalles_RefreshID_PEDIDO];
end;
function TAlbaranesCliente_Detalles_RefreshBusinessProcessorRules.GetOldID_PEDIDOValue: Integer;
begin
result := BusinessProcessor.CurrentChange.OldValueByName[fld_AlbaranesCliente_Detalles_RefreshID_PEDIDO];
end;
procedure TAlbaranesCliente_Detalles_RefreshBusinessProcessorRules.SetID_PEDIDOValue(const aValue: Integer);
begin
BusinessProcessor.CurrentChange.NewValueByName[fld_AlbaranesCliente_Detalles_RefreshID_PEDIDO] := aValue;
end;
function TAlbaranesCliente_Detalles_RefreshBusinessProcessorRules.GetPOSICIONValue: Integer;
begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_AlbaranesCliente_Detalles_RefreshPOSICION];

213
Source/Modulos/Albaranes de cliente/Servidor/srvAlbaranesCliente_Impl.dfm
View File

@ -68,7 +68,7 @@ object srvAlbaranesCliente: TsrvAlbaranesCliente
Statements = <
item
Connection = 'IBX'
TargetTable = 'V_ALBARANES_CLIENTE'
TargetTable = 'ALBARANES_CLIENTE'
SQL =
'SELECT '#10' ID, ID_EMPRESA, ID_CLIENTE, NOMBRE, FECHA_ALBARAN, '#10 +
' REFERENCIA, REFERENCIA_CLIENTE, TIPO, SITUACION, ID_ALMACEN,' +
@ -685,17 +685,18 @@ object srvAlbaranesCliente: TsrvAlbaranesCliente
TargetTable = 'ALBARANES_CLIENTE_DETALLES'
SQL =
'SELECT'#10' ALBARANES_CLIENTE_DETALLES.ID, ALBARANES_CLIENTE_DETA' +
'LLES.ID_ALBARAN,'#10' ALBARANES_CLIENTE_DETALLES.POSICION, ALBARA' +
'NES_CLIENTE_DETALLES.TIPO_DETALLE,'#10' ALBARANES_CLIENTE_DETALLE' +
'S.CONCEPTO, ALBARANES_CLIENTE_DETALLES.CANTIDAD,'#10' ALBARANES_C' +
'LIENTE_DETALLES.IMPORTE_UNIDAD, ALBARANES_CLIENTE_DETALLES.IMPOR' +
'TE_TOTAL,'#10' ALBARANES_CLIENTE_DETALLES.VISIBLE,'#10#10' ALBARANES' +
'_CLIENTE_DETALLES.ID_ARTICULO, ALBARANES_CLIENTE_DETALLES.DESCUE' +
'NTO,'#10' ALBARANES_CLIENTE_DETALLES.IMPORTE_PORTE,'#10' ARTICULOS' +
'.REFERENCIA, ARTICULOS.REFERENCIA_PROV as REFERENCIA_PROVEEDOR'#10#10 +
'FROM ALBARANES_CLIENTE_DETALLES'#10'LEFT JOIN ARTICULOS ON ALBARANES' +
'_CLIENTE_DETALLES.ID_ARTICULO = ARTICULOS.ID'#10'WHERE ALBARANES_CLI' +
'ENTE_DETALLES.ID_ALBARAN = :ID_ALBARAN'#10'ORDER BY POSICION;'
'LLES.ID_ALBARAN, ALBARANES_CLIENTE_DETALLES.ID_PEDIDO,'#10' ALBAR' +
'ANES_CLIENTE_DETALLES.POSICION, ALBARANES_CLIENTE_DETALLES.TIPO_' +
'DETALLE,'#10' ALBARANES_CLIENTE_DETALLES.CONCEPTO, ALBARANES_CLIE' +
'NTE_DETALLES.CANTIDAD,'#10' ALBARANES_CLIENTE_DETALLES.IMPORTE_UN' +
'IDAD, ALBARANES_CLIENTE_DETALLES.IMPORTE_TOTAL,'#10' ALBARANES_CL' +
'IENTE_DETALLES.VISIBLE,'#10#10' ALBARANES_CLIENTE_DETALLES.ID_ARTIC' +
'ULO, ALBARANES_CLIENTE_DETALLES.DESCUENTO,'#10' ALBARANES_CLIENTE' +
'_DETALLES.IMPORTE_PORTE,'#10' ARTICULOS.REFERENCIA, ARTICULOS.REF' +
'ERENCIA_PROV as REFERENCIA_PROVEEDOR'#10#10'FROM ALBARANES_CLIENTE_DET' +
'ALLES'#10'LEFT JOIN ARTICULOS ON ALBARANES_CLIENTE_DETALLES.ID_ARTIC' +
'ULO = ARTICULOS.ID'#10'WHERE ALBARANES_CLIENTE_DETALLES.ID_ALBARAN =' +
' :ID_ALBARAN'#10'ORDER BY POSICION;'
StatementType = stSQL
ColumnMappings = <
item
@ -777,6 +778,17 @@ object srvAlbaranesCliente: TsrvAlbaranesCliente
Lookup = False
LookupCache = False
end
item
Name = 'ID_PEDIDO'
DataType = datInteger
BlobType = dabtUnknown
DisplayWidth = 0
Alignment = taLeftJustify
InPrimaryKey = False
Calculated = False
Lookup = False
LookupCache = False
end
item
Name = 'POSICION'
DataType = datInteger
@ -926,18 +938,19 @@ object srvAlbaranesCliente: TsrvAlbaranesCliente
TargetTable = 'ALBARANES_CLIENTE_DETALLES'
SQL =
'SELECT'#10' ALBARANES_CLIENTE_DETALLES.ID, ALBARANES_CLIENTE_DETA' +
'LLES.ID_ALBARAN,'#10' ALBARANES_CLIENTE_DETALLES.POSICION, ALBARA' +
'NES_CLIENTE_DETALLES.TIPO_DETALLE,'#10' ALBARANES_CLIENTE_DETALLE' +
'S.CONCEPTO, ALBARANES_CLIENTE_DETALLES.CANTIDAD,'#10' ALBARANES_C' +
'LIENTE_DETALLES.IMPORTE_UNIDAD, ALBARANES_CLIENTE_DETALLES.IMPOR' +
'TE_TOTAL,'#10' ALBARANES_CLIENTE_DETALLES.VISIBLE,'#10#10' ALBARANES' +
'_CLIENTE_DETALLES.ID_ARTICULO, ALBARANES_CLIENTE_DETALLES.DESCUE' +
'NTO,'#10' ALBARANES_CLIENTE_DETALLES.IMPORTE_PORTE,'#10' ARTICULOS' +
'.REFERENCIA, ARTICULOS.REFERENCIA_PROV as REFERENCIA_PROVEEDOR'#10#10 +
'FROM ALBARANES_CLIENTE_DETALLES'#10'LEFT JOIN ARTICULOS ON ALBARANES' +
'_CLIENTE_DETALLES.ID_ARTICULO = ARTICULOS.ID'#10'WHERE ALBARANES_CLI' +
'ENTE_DETALLES.ID_ALBARAN = :ID_ALBARAN'#10'AND ALBARANES_CLIENTE_DET' +
'ALLES.ID = :ID'#10'ORDER BY POSICION;'
'LLES.ID_ALBARAN, ALBARANES_CLIENTE_DETALLES.ID_PEDIDO,'#10' ALBAR' +
'ANES_CLIENTE_DETALLES.POSICION, ALBARANES_CLIENTE_DETALLES.TIPO_' +
'DETALLE,'#10' ALBARANES_CLIENTE_DETALLES.CONCEPTO, ALBARANES_CLIE' +
'NTE_DETALLES.CANTIDAD,'#10' ALBARANES_CLIENTE_DETALLES.IMPORTE_UN' +
'IDAD, ALBARANES_CLIENTE_DETALLES.IMPORTE_TOTAL,'#10' ALBARANES_CL' +
'IENTE_DETALLES.VISIBLE,'#10#10' ALBARANES_CLIENTE_DETALLES.ID_ARTIC' +
'ULO, ALBARANES_CLIENTE_DETALLES.DESCUENTO,'#10' ALBARANES_CLIENTE' +
'_DETALLES.IMPORTE_PORTE,'#10' ARTICULOS.REFERENCIA, ARTICULOS.REF' +
'ERENCIA_PROV as REFERENCIA_PROVEEDOR'#10#10'FROM ALBARANES_CLIENTE_DET' +
'ALLES'#10'LEFT JOIN ARTICULOS ON ALBARANES_CLIENTE_DETALLES.ID_ARTIC' +
'ULO = ARTICULOS.ID'#10'WHERE ALBARANES_CLIENTE_DETALLES.ID_ALBARAN =' +
' :ID_ALBARAN'#10'AND ALBARANES_CLIENTE_DETALLES.ID = :ID'#10'ORDER BY PO' +
'SICION;'
StatementType = stSQL
ColumnMappings = <
item
@ -1019,6 +1032,17 @@ object srvAlbaranesCliente: TsrvAlbaranesCliente
Lookup = False
LookupCache = False
end
item
Name = 'ID_PEDIDO'
DataType = datInteger
BlobType = dabtUnknown
DisplayWidth = 0
Alignment = taLeftJustify
InPrimaryKey = False
Calculated = False
Lookup = False
LookupCache = False
end
item
Name = 'POSICION'
DataType = datInteger
@ -1158,7 +1182,7 @@ object srvAlbaranesCliente: TsrvAlbaranesCliente
Statements = <
item
Connection = 'IBX'
TargetTable = 'V_ALBARANES_CLIENTE'
TargetTable = 'ALBARANES_CLIENTE'
SQL =
'SELECT '#10' ID, ID_EMPRESA, ID_CLIENTE, NOMBRE, FECHA_ALBARAN, '#10 +
' REFERENCIA, REFERENCIA_CLIENTE, TIPO, SITUACION, ID_ALMACEN,' +
@ -1837,6 +1861,13 @@ object srvAlbaranesCliente: TsrvAlbaranesCliente
Value = ''
ParamType = daptInput
end
item
Name = 'ID_PEDIDO'
DataType = datInteger
BlobType = dabtUnknown
Value = ''
ParamType = daptInput
end
item
Name = 'POSICION'
DataType = datInteger
@ -1929,14 +1960,14 @@ object srvAlbaranesCliente: TsrvAlbaranesCliente
TargetTable = 'ALBARANES_CLIENTE_DETALLES'
SQL =
'INSERT INTO ALBARANES_CLIENTE_DETALLES ('#10' ID,'#10' ID_ALBARAN,' +
#10' POSICION,'#10' TIPO_DETALLE,'#10' ID_ARTICULO,'#10' CONCEPTO,'#10 +
' CANTIDAD,'#10' IMPORTE_UNIDAD,'#10' DESCUENTO,'#10' IMPORTE_POR' +
'TE,'#10' IMPORTE_TOTAL,'#10' VISIBLE,'#10' FECHA_ALTA,'#10' FECHA_MO' +
'DIFICACION)'#10' VALUES ('#10' :ID,'#10' :ID_ALBARAN,'#10' :POSICION,'#10 +
' :TIPO_DETALLE,'#10' :ID_ARTICULO,'#10' :CONCEPTO,'#10' :CANTIDA' +
'D,'#10' :IMPORTE_UNIDAD,'#10' :DESCUENTO,'#10' :IMPORTE_PORTE,'#10' ' +
':IMPORTE_TOTAL,'#10' :VISIBLE,'#10' :FECHA_ALTA,'#10' :FECHA_MODIFI' +
'CACION);'
#10' ID_PEDIDO,'#10' POSICION,'#10' TIPO_DETALLE,'#10' ID_ARTICULO,' +
#10' CONCEPTO,'#10' CANTIDAD,'#10' IMPORTE_UNIDAD,'#10' DESCUENTO,'#10 +
' IMPORTE_PORTE,'#10' IMPORTE_TOTAL,'#10' VISIBLE,'#10' FECHA_ALT' +
'A,'#10' FECHA_MODIFICACION)'#10' VALUES ('#10' :ID,'#10' :ID_ALBARAN,'#10 +
' :ID_PEDIDO,'#10' :POSICION,'#10' :TIPO_DETALLE,'#10' :ID_ARTICU' +
'LO,'#10' :CONCEPTO,'#10' :CANTIDAD,'#10' :IMPORTE_UNIDAD,'#10' :DESC' +
'UENTO,'#10' :IMPORTE_PORTE,'#10' :IMPORTE_TOTAL,'#10' :VISIBLE,'#10' ' +
' :FECHA_ALTA,'#10' :FECHA_MODIFICACION);'
StatementType = stSQL
ColumnMappings = <>
end>
@ -1972,6 +2003,13 @@ object srvAlbaranesCliente: TsrvAlbaranesCliente
Value = ''
ParamType = daptInput
end
item
Name = 'ID_PEDIDO'
DataType = datInteger
BlobType = dabtUnknown
Value = ''
ParamType = daptInput
end
item
Name = 'POSICION'
DataType = datInteger
@ -2064,12 +2102,13 @@ object srvAlbaranesCliente: TsrvAlbaranesCliente
TargetTable = 'ALBARANES_CLIENTE_DETALLES'
SQL =
'UPDATE ALBARANES_CLIENTE_DETALLES'#10' SET'#10' ID_ALBARAN = :ID_ALB' +
'ARAN,'#10' POSICION = :POSICION,'#10' TIPO_DETALLE = :TIPO_DETALLE' +
','#10' ID_ARTICULO = :ID_ARTICULO,'#10' CONCEPTO = :CONCEPTO,'#10' ' +
'CANTIDAD = :CANTIDAD,'#10' IMPORTE_UNIDAD = :IMPORTE_UNIDAD,'#10' ' +
'DESCUENTO = :DESCUENTO,'#10' IMPORTE_PORTE = :IMPORTE_PORTE,'#10' ' +
'IMPORTE_TOTAL = :IMPORTE_TOTAL,'#10' VISIBLE = :VISIBLE,'#10' FECH' +
'A_MODIFICACION = :FECHA_MODIFICACION'#10' WHERE'#10' (ID = :OLD_ID);'
'ARAN,'#10' ID_PEDIDO = :ID_PEDIDO,'#10' POSICION = :POSICION,'#10' ' +
'TIPO_DETALLE = :TIPO_DETALLE,'#10' ID_ARTICULO = :ID_ARTICULO,'#10' ' +
' CONCEPTO = :CONCEPTO,'#10' CANTIDAD = :CANTIDAD,'#10' IMPORTE_UN' +
'IDAD = :IMPORTE_UNIDAD,'#10' DESCUENTO = :DESCUENTO,'#10' IMPORTE_' +
'PORTE = :IMPORTE_PORTE,'#10' IMPORTE_TOTAL = :IMPORTE_TOTAL,'#10' ' +
'VISIBLE = :VISIBLE,'#10' FECHA_MODIFICACION = :FECHA_MODIFICACION' +
#10' WHERE'#10' (ID = :OLD_ID);'
StatementType = stSQL
ColumnMappings = <>
end>
@ -2106,12 +2145,6 @@ object srvAlbaranesCliente: TsrvAlbaranesCliente
Value = ''
ParamType = daptInput
end
item
Name = 'TIPO'
BlobType = dabtUnknown
Value = ''
ParamType = daptUnknown
end
item
Name = 'REFERENCIA_CLIENTE'
DataType = datString
@ -2322,6 +2355,14 @@ object srvAlbaranesCliente: TsrvAlbaranesCliente
BlobType = dabtUnknown
Value = ''
ParamType = daptInput
end
item
Name = 'TIPO'
DataType = datString
Size = 1
BlobType = dabtUnknown
Value = ''
ParamType = daptInput
end>
Statements = <
item
@ -2329,22 +2370,22 @@ object srvAlbaranesCliente: TsrvAlbaranesCliente
TargetTable = 'ALBARANES_CLIENTE'
SQL =
'INSERT'#10' INTO ALBARANES_CLIENTE'#10' (ID, ID_EMPRESA, ID_CLIENTE,' +
' REFERENCIA, TIPO, REFERENCIA_CLIENTE,'#10' FECHA_ALBARAN, ID_PE' +
'DIDO, ID_ALMACEN, ID_FACTURA, CALLE,'#10' CODIGO_POSTAL, POBLACI' +
'ON, PROVINCIA, PERSONA_CONTACTO, '#10' TELEFONO, BASE_IMPONIBLE,' +
' IMPORTE_NETO, IMPORTE_PORTE, '#10' DESCUENTO, IMPORTE_DESCUENTO' +
', IVA, IMPORTE_IVA, IMPORTE_TOTAL, '#10' OBSERVACIONES, INCIDENC' +
'IAS, INCIDENCIAS_ACTIVAS, FECHA_ALTA, '#10' FECHA_MODIFICACION, ' +
'USUARIO, ID_FORMA_PAGO,'#10' FECHA_PREVISTA_ENVIO, FECHA_ENVIO, ' +
'FECHA_RECEPCION)'#10' VALUES'#10' (:ID, :ID_EMPRESA, :ID_CLIENTE, :R' +
'EFERENCIA, :TIPO, :REFERENCIA_CLIENTE,'#10' :FECHA_ALBARAN, :ID_' +
'PEDIDO, :ID_ALMACEN, :ID_FACTURA, :CALLE,'#10' :CODIGO_POSTAL, :' +
'POBLACION, :PROVINCIA, :PERSONA_CONTACTO, '#10' :TELEFONO, :BASE' +
'_IMPONIBLE, :IMPORTE_NETO, :IMPORTE_PORTE, '#10' :DESCUENTO, :IM' +
'PORTE_DESCUENTO, :IVA, :IMPORTE_IVA, '#10' :IMPORTE_TOTAL, :OBSE' +
'RVACIONES, :INCIDENCIAS, :INCIDENCIAS_ACTIVAS, '#10' :FECHA_ALTA' +
', :FECHA_MODIFICACION, :USUARIO,'#10' :ID_FORMA_PAGO, :FECHA_PRE' +
'VISTA_ENVIO, :FECHA_ENVIO, :FECHA_RECEPCION)'
' REFERENCIA, REFERENCIA_CLIENTE,'#10' FECHA_ALBARAN, ID_PEDIDO, ' +
'ID_ALMACEN, ID_FACTURA, CALLE,'#10' CODIGO_POSTAL, POBLACION, PR' +
'OVINCIA, PERSONA_CONTACTO, '#10' TELEFONO, BASE_IMPONIBLE, IMPOR' +
'TE_NETO, IMPORTE_PORTE, '#10' DESCUENTO, IMPORTE_DESCUENTO, IVA,' +
' IMPORTE_IVA, IMPORTE_TOTAL, '#10' OBSERVACIONES, INCIDENCIAS, I' +
'NCIDENCIAS_ACTIVAS, FECHA_ALTA, '#10' FECHA_MODIFICACION, USUARI' +
'O, ID_FORMA_PAGO,'#10' FECHA_PREVISTA_ENVIO, FECHA_ENVIO, FECHA_' +
'RECEPCION, TIPO)'#10' VALUES'#10' (:ID, :ID_EMPRESA, :ID_CLIENTE, :R' +
'EFERENCIA, :REFERENCIA_CLIENTE,'#10' :FECHA_ALBARAN, :ID_PEDIDO,' +
' :ID_ALMACEN, :ID_FACTURA, :CALLE,'#10' :CODIGO_POSTAL, :POBLACI' +
'ON, :PROVINCIA, :PERSONA_CONTACTO, '#10' :TELEFONO, :BASE_IMPONI' +
'BLE, :IMPORTE_NETO, :IMPORTE_PORTE, '#10' :DESCUENTO, :IMPORTE_D' +
'ESCUENTO, :IVA, :IMPORTE_IVA, '#10' :IMPORTE_TOTAL, :OBSERVACION' +
'ES, :INCIDENCIAS, :INCIDENCIAS_ACTIVAS, '#10' :FECHA_ALTA, :FECH' +
'A_MODIFICACION, :USUARIO,'#10' :ID_FORMA_PAGO, :FECHA_PREVISTA_E' +
'NVIO, :FECHA_ENVIO, :FECHA_RECEPCION, :TIPO)'
StatementType = stSQL
ColumnMappings = <>
end>
@ -2366,12 +2407,6 @@ object srvAlbaranesCliente: TsrvAlbaranesCliente
Value = ''
ParamType = daptInput
end
item
Name = 'TIPO'
BlobType = dabtUnknown
Value = ''
ParamType = daptUnknown
end
item
Name = 'REFERENCIA'
DataType = datString
@ -2591,6 +2626,14 @@ object srvAlbaranesCliente: TsrvAlbaranesCliente
Value = ''
ParamType = daptInput
end
item
Name = 'TIPO'
DataType = datString
Size = 1
BlobType = dabtUnknown
Value = ''
ParamType = daptInput
end
item
Name = 'OLD_ID'
DataType = datInteger
@ -2604,24 +2647,24 @@ object srvAlbaranesCliente: TsrvAlbaranesCliente
TargetTable = 'ALBARANES_CLIENTE'
SQL =
'UPDATE ALBARANES_CLIENTE'#10' SET '#10' ID_EMPRESA = :ID_EMPRESA, '#10' ' +
' ID_CLIENTE = :ID_CLIENTE, '#10' TIPO = :TIPO,'#10' REFERENCIA =' +
' :REFERENCIA, '#10' REFERENCIA_CLIENTE = :REFERENCIA_CLIENTE,'#10' ' +
' FECHA_ALBARAN = :FECHA_ALBARAN, '#10' ID_PEDIDO = :ID_PEDIDO, '#10' ' +
' ID_ALMACEN = :ID_ALMACEN,'#10' ID_FACTURA = :ID_FACTURA, '#10' ' +
'CALLE = :CALLE, '#10' CODIGO_POSTAL = :CODIGO_POSTAL, '#10' POBLAC' +
'ION = :POBLACION, '#10' PROVINCIA = :PROVINCIA, '#10' PERSONA_CONT' +
'ACTO = :PERSONA_CONTACTO, '#10' TELEFONO = :TELEFONO, '#10' BASE_I' +
'MPONIBLE = :BASE_IMPONIBLE, '#10' IMPORTE_NETO = :IMPORTE_NETO, '#10 +
' IMPORTE_PORTE = :IMPORTE_PORTE, '#10' DESCUENTO = :DESCUENTO,' +
' '#10' IMPORTE_DESCUENTO = :IMPORTE_DESCUENTO, '#10' IVA = :IVA, '#10 +
' IMPORTE_IVA = :IMPORTE_IVA, '#10' IMPORTE_TOTAL = :IMPORTE_TO' +
'TAL, '#10' OBSERVACIONES = :OBSERVACIONES, '#10' INCIDENCIAS = :IN' +
'CIDENCIAS, '#10' INCIDENCIAS_ACTIVAS = :INCIDENCIAS_ACTIVAS, '#10' ' +
' FECHA_ALTA = :FECHA_ALTA, '#10' FECHA_MODIFICACION = :FECHA_MODI' +
'FICACION, '#10' USUARIO = :USUARIO, '#10' ID_FORMA_PAGO = :ID_FORM' +
'A_PAGO,'#10' FECHA_PREVISTA_ENVIO = :FECHA_PREVISTA_ENVIO,'#10' FE' +
'CHA_ENVIO = :FECHA_ENVIO, '#10' FECHA_RECEPCION = :FECHA_RECEPCIO' +
'N'#10' WHERE'#10' (ID = :OLD_ID)'
' ID_CLIENTE = :ID_CLIENTE, '#10' REFERENCIA = :REFERENCIA, '#10' ' +
' REFERENCIA_CLIENTE = :REFERENCIA_CLIENTE,'#10' FECHA_ALBARAN = :' +
'FECHA_ALBARAN, '#10' ID_PEDIDO = :ID_PEDIDO, '#10' ID_ALMACEN = :I' +
'D_ALMACEN,'#10' ID_FACTURA = :ID_FACTURA, '#10' CALLE = :CALLE, '#10' ' +
' CODIGO_POSTAL = :CODIGO_POSTAL, '#10' POBLACION = :POBLACION, ' +
#10' PROVINCIA = :PROVINCIA, '#10' PERSONA_CONTACTO = :PERSONA_CO' +
'NTACTO, '#10' TELEFONO = :TELEFONO, '#10' BASE_IMPONIBLE = :BASE_I' +
'MPONIBLE, '#10' IMPORTE_NETO = :IMPORTE_NETO, '#10' IMPORTE_PORTE ' +
'= :IMPORTE_PORTE, '#10' DESCUENTO = :DESCUENTO, '#10' IMPORTE_DESC' +
'UENTO = :IMPORTE_DESCUENTO, '#10' IVA = :IVA, '#10' IMPORTE_IVA = ' +
':IMPORTE_IVA, '#10' IMPORTE_TOTAL = :IMPORTE_TOTAL, '#10' OBSERVAC' +
'IONES = :OBSERVACIONES, '#10' INCIDENCIAS = :INCIDENCIAS, '#10' IN' +
'CIDENCIAS_ACTIVAS = :INCIDENCIAS_ACTIVAS, '#10' FECHA_ALTA = :FEC' +
'HA_ALTA, '#10' FECHA_MODIFICACION = :FECHA_MODIFICACION, '#10' USU' +
'ARIO = :USUARIO, '#10' ID_FORMA_PAGO = :ID_FORMA_PAGO,'#10' FECHA_' +
'PREVISTA_ENVIO = :FECHA_PREVISTA_ENVIO,'#10' FECHA_ENVIO = :FECHA' +
'_ENVIO, '#10' FECHA_RECEPCION = :FECHA_RECEPCION,'#10' TIPO = :TIP' +
'O'#10' WHERE'#10' (ID = :OLD_ID)'
StatementType = stSQL
ColumnMappings = <>
end>

6
Source/Modulos/Albaranes de proveedor/Controller/uAlbaranesProveedorController.pas
View File

@ -225,8 +225,8 @@ begin
ADetalles.IMPORTE_UNIDAD := APedido.Detalles.IMPORTE_UNIDAD;
ADetalles.DESCUENTO := APedido.Detalles.DESCUENTO;
ADetalles.IMPORTE_PORTE := APedido.Detalles.IMPORTE_PORTE;
ADetalles.CANTIDAD := AInventarioRecibido.CANTIDAD;
ADetalles.ID_PEDIDO := APedido.Detalles.ID_PEDIDO;
ADetalles.Post;
end;
@ -257,12 +257,14 @@ begin
if (APedido.Detalles.CANTIDAD <> 0) then
begin
ADetallesController.Add(ADetalles, TIPO_DETALLE_CONCEPTO);
ADetallesController.AnadirArticulo(ADetalles, APedido.Detalles.REFERENCIA, tCliente);
ADetallesController.AnadirArticulo(ADetalles, APedido.Detalles.ID_ARTICULO);
// ADetallesController.AnadirArticulo(ADetalles, APedido.Detalles.REFERENCIA, tCliente);
ADetalles.Edit;
ADetalles.IMPORTE_UNIDAD := APedido.Detalles.IMPORTE_UNIDAD;
ADetalles.DESCUENTO := APedido.Detalles.DESCUENTO;
ADetalles.IMPORTE_PORTE := APedido.Detalles.IMPORTE_PORTE;
ADetalles.CANTIDAD := APedido.Detalles.CANTIDAD;
ADetalles.ID_PEDIDO := APedido.Detalles.ID_PEDIDO;
ADetalles.Post;
end;
APedido.Detalles.Next;

13
Source/Modulos/Albaranes de proveedor/Data/uDataModuleAlbaranesProveedor.dfm
View File

@ -18,7 +18,7 @@ object DataModuleAlbaranesProveedor: TDataModuleAlbaranesProveedor
ProbeServers = False
ProbeFrequency = 60000
UserAgent = 'RemObjects SDK'
TargetURL = 'http://localhost:8090/bin'
TargetURL = 'http://localhost:8099/bin'
Left = 40
Top = 8
end
@ -825,6 +825,17 @@ object DataModuleAlbaranesProveedor: TDataModuleAlbaranesProveedor
Calculated = False
Lookup = False
LookupCache = False
end
item
Name = 'ID_PEDIDO'
DataType = datInteger
BlobType = dabtUnknown
DisplayWidth = 0
Alignment = taLeftJustify
InPrimaryKey = False
Calculated = False
Lookup = False
LookupCache = False
end>
Params = <
item

56
Source/Modulos/Albaranes de proveedor/Model/schAlbaranesProveedorClient_Intf.pas
View File

@ -9,11 +9,11 @@ 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_DarReferencia = '{B11C1A92-7445-40B1-804D-75362337E091}';
RID_AlbaranesProveedor = '{A8D01A62-F911-438F-910D-CCE57A97679A}';
RID_AlbaranesProveedor_Detalles = '{74BC0CAC-88BE-4D83-ABE6-CCF245762256}';
RID_AlbaranesProveedor_Detalles_Refresh = '{B8EE8C6A-F540-4124-94D2-76924081B2F3}';
RID_AlbaranesProveedor_Refresh = '{FEBB25BC-1C6E-43E2-AEC6-B2B9656D858F}';
RID_DarReferencia = '{A2ECE4F2-2EB0-4440-ABB5-C4FFB59A4AF3}';
RID_AlbaranesProveedor = '{1BF52D88-3541-47DD-8059-7E82D70C2657}';
RID_AlbaranesProveedor_Detalles = '{ED78D0F8-7B91-4C95-AB71-6716DFEFA4CA}';
RID_AlbaranesProveedor_Detalles_Refresh = '{4EDD3252-7B35-485A-89BE-A39DFE97FD43}';
RID_AlbaranesProveedor_Refresh = '{54A2F0B0-5BB2-49F3-B7E1-8FCBFE19A211}';
{ Data table names }
nme_DarReferencia = 'DarReferencia';
@ -119,6 +119,7 @@ const
fld_AlbaranesProveedor_DetallesIMPORTE_PORTE = 'IMPORTE_PORTE';
fld_AlbaranesProveedor_DetallesVISIBLE = 'VISIBLE';
fld_AlbaranesProveedor_DetallesREFERENCIA_PROVEEDOR = 'REFERENCIA_PROVEEDOR';
fld_AlbaranesProveedor_DetallesID_PEDIDO = 'ID_PEDIDO';
{ AlbaranesProveedor_Detalles field indexes }
idx_AlbaranesProveedor_DetallesID = 0;
@ -135,6 +136,7 @@ const
idx_AlbaranesProveedor_DetallesIMPORTE_PORTE = 11;
idx_AlbaranesProveedor_DetallesVISIBLE = 12;
idx_AlbaranesProveedor_DetallesREFERENCIA_PROVEEDOR = 13;
idx_AlbaranesProveedor_DetallesID_PEDIDO = 14;
{ AlbaranesProveedor_Detalles_Refresh fields }
fld_AlbaranesProveedor_Detalles_RefreshID = 'ID';
@ -151,6 +153,7 @@ const
fld_AlbaranesProveedor_Detalles_RefreshIMPORTE_PORTE = 'IMPORTE_PORTE';
fld_AlbaranesProveedor_Detalles_RefreshVISIBLE = 'VISIBLE';
fld_AlbaranesProveedor_Detalles_RefreshREFERENCIA_PROVEEDOR = 'REFERENCIA_PROVEEDOR';
fld_AlbaranesProveedor_Detalles_RefreshID_PEDIDO = 'ID_PEDIDO';
{ AlbaranesProveedor_Detalles_Refresh field indexes }
idx_AlbaranesProveedor_Detalles_RefreshID = 0;
@ -167,6 +170,7 @@ const
idx_AlbaranesProveedor_Detalles_RefreshIMPORTE_PORTE = 11;
idx_AlbaranesProveedor_Detalles_RefreshVISIBLE = 12;
idx_AlbaranesProveedor_Detalles_RefreshREFERENCIA_PROVEEDOR = 13;
idx_AlbaranesProveedor_Detalles_RefreshID_PEDIDO = 14;
{ AlbaranesProveedor_Refresh fields }
fld_AlbaranesProveedor_RefreshID = 'ID';
@ -247,7 +251,7 @@ const
type
{ IDarReferencia }
IDarReferencia = interface(IDAStronglyTypedDataTable)
['{5197CB29-BF7E-4281-9E0F-7BB774770672}']
['{70216529-9EFF-49D4-BC5D-142057D881C7}']
{ Property getters and setters }
function GetVALORValue: String;
procedure SetVALORValue(const aValue: String);
@ -276,7 +280,7 @@ type
{ IAlbaranesProveedor }
IAlbaranesProveedor = interface(IDAStronglyTypedDataTable)
['{2CFF37C0-A76F-4D9C-BB24-0AC1F3BAF19D}']
['{75EF115B-2E16-4631-B284-EB29454AB90D}']
{ Property getters and setters }
function GetIDValue: Integer;
procedure SetIDValue(const aValue: Integer);
@ -515,7 +519,7 @@ type
{ IAlbaranesProveedor_Detalles }
IAlbaranesProveedor_Detalles = interface(IDAStronglyTypedDataTable)
['{8A62B0E3-DBC8-4606-A047-4203B88513F1}']
['{71F6EB5E-95EA-4C44-BE14-F52ED4F7736E}']
{ Property getters and setters }
function GetIDValue: Integer;
procedure SetIDValue(const aValue: Integer);
@ -545,6 +549,8 @@ type
procedure SetVISIBLEValue(const aValue: Integer);
function GetREFERENCIA_PROVEEDORValue: String;
procedure SetREFERENCIA_PROVEEDORValue(const aValue: String);
function GetID_PEDIDOValue: Integer;
procedure SetID_PEDIDOValue(const aValue: Integer);
{ Properties }
@ -562,6 +568,7 @@ type
property IMPORTE_PORTE: Currency read GetIMPORTE_PORTEValue write SetIMPORTE_PORTEValue;
property VISIBLE: Integer read GetVISIBLEValue write SetVISIBLEValue;
property REFERENCIA_PROVEEDOR: String read GetREFERENCIA_PROVEEDORValue write SetREFERENCIA_PROVEEDORValue;
property ID_PEDIDO: Integer read GetID_PEDIDOValue write SetID_PEDIDOValue;
end;
{ TAlbaranesProveedor_DetallesDataTableRules }
@ -597,6 +604,8 @@ type
procedure SetVISIBLEValue(const aValue: Integer); virtual;
function GetREFERENCIA_PROVEEDORValue: String; virtual;
procedure SetREFERENCIA_PROVEEDORValue(const aValue: String); virtual;
function GetID_PEDIDOValue: Integer; virtual;
procedure SetID_PEDIDOValue(const aValue: Integer); virtual;
{ Properties }
property ID: Integer read GetIDValue write SetIDValue;
@ -613,6 +622,7 @@ type
property IMPORTE_PORTE: Currency read GetIMPORTE_PORTEValue write SetIMPORTE_PORTEValue;
property VISIBLE: Integer read GetVISIBLEValue write SetVISIBLEValue;
property REFERENCIA_PROVEEDOR: String read GetREFERENCIA_PROVEEDORValue write SetREFERENCIA_PROVEEDORValue;
property ID_PEDIDO: Integer read GetID_PEDIDOValue write SetID_PEDIDOValue;
public
constructor Create(aDataTable: TDADataTable); override;
@ -622,7 +632,7 @@ type
{ IAlbaranesProveedor_Detalles_Refresh }
IAlbaranesProveedor_Detalles_Refresh = interface(IDAStronglyTypedDataTable)
['{0773BFA8-2FAA-412C-A3A9-0978B8A03973}']
['{EF189D96-FC62-431D-9AB9-D1A88BC60632}']
{ Property getters and setters }
function GetIDValue: Integer;
procedure SetIDValue(const aValue: Integer);
@ -652,6 +662,8 @@ type
procedure SetVISIBLEValue(const aValue: Integer);
function GetREFERENCIA_PROVEEDORValue: String;
procedure SetREFERENCIA_PROVEEDORValue(const aValue: String);
function GetID_PEDIDOValue: Integer;
procedure SetID_PEDIDOValue(const aValue: Integer);
{ Properties }
@ -669,6 +681,7 @@ type
property IMPORTE_PORTE: Float read GetIMPORTE_PORTEValue write SetIMPORTE_PORTEValue;
property VISIBLE: Integer read GetVISIBLEValue write SetVISIBLEValue;
property REFERENCIA_PROVEEDOR: String read GetREFERENCIA_PROVEEDORValue write SetREFERENCIA_PROVEEDORValue;
property ID_PEDIDO: Integer read GetID_PEDIDOValue write SetID_PEDIDOValue;
end;
{ TAlbaranesProveedor_Detalles_RefreshDataTableRules }
@ -704,6 +717,8 @@ type
procedure SetVISIBLEValue(const aValue: Integer); virtual;
function GetREFERENCIA_PROVEEDORValue: String; virtual;
procedure SetREFERENCIA_PROVEEDORValue(const aValue: String); virtual;
function GetID_PEDIDOValue: Integer; virtual;
procedure SetID_PEDIDOValue(const aValue: Integer); virtual;
{ Properties }
property ID: Integer read GetIDValue write SetIDValue;
@ -720,6 +735,7 @@ type
property IMPORTE_PORTE: Float read GetIMPORTE_PORTEValue write SetIMPORTE_PORTEValue;
property VISIBLE: Integer read GetVISIBLEValue write SetVISIBLEValue;
property REFERENCIA_PROVEEDOR: String read GetREFERENCIA_PROVEEDORValue write SetREFERENCIA_PROVEEDORValue;
property ID_PEDIDO: Integer read GetID_PEDIDOValue write SetID_PEDIDOValue;
public
constructor Create(aDataTable: TDADataTable); override;
@ -729,7 +745,7 @@ type
{ IAlbaranesProveedor_Refresh }
IAlbaranesProveedor_Refresh = interface(IDAStronglyTypedDataTable)
['{F75AB4AE-10D5-4DA0-B8CA-39161C02E8BC}']
['{33F9FCD3-FD74-488D-8EBC-F3AFCCCF566B}']
{ Property getters and setters }
function GetIDValue: Integer;
procedure SetIDValue(const aValue: Integer);
@ -1517,6 +1533,16 @@ begin
DataTable.Fields[idx_AlbaranesProveedor_DetallesREFERENCIA_PROVEEDOR].AsString := aValue;
end;
function TAlbaranesProveedor_DetallesDataTableRules.GetID_PEDIDOValue: Integer;
begin
result := DataTable.Fields[idx_AlbaranesProveedor_DetallesID_PEDIDO].AsInteger;
end;
procedure TAlbaranesProveedor_DetallesDataTableRules.SetID_PEDIDOValue(const aValue: Integer);
begin
DataTable.Fields[idx_AlbaranesProveedor_DetallesID_PEDIDO].AsInteger := aValue;
end;
{ TAlbaranesProveedor_Detalles_RefreshDataTableRules }
constructor TAlbaranesProveedor_Detalles_RefreshDataTableRules.Create(aDataTable: TDADataTable);
@ -1669,6 +1695,16 @@ begin
DataTable.Fields[idx_AlbaranesProveedor_Detalles_RefreshREFERENCIA_PROVEEDOR].AsString := aValue;
end;
function TAlbaranesProveedor_Detalles_RefreshDataTableRules.GetID_PEDIDOValue: Integer;
begin
result := DataTable.Fields[idx_AlbaranesProveedor_Detalles_RefreshID_PEDIDO].AsInteger;
end;
procedure TAlbaranesProveedor_Detalles_RefreshDataTableRules.SetID_PEDIDOValue(const aValue: Integer);
begin
DataTable.Fields[idx_AlbaranesProveedor_Detalles_RefreshID_PEDIDO].AsInteger := aValue;
end;
{ TAlbaranesProveedor_RefreshDataTableRules }
constructor TAlbaranesProveedor_RefreshDataTableRules.Create(aDataTable: TDADataTable);

64
Source/Modulos/Albaranes de proveedor/Model/schAlbaranesProveedorServer_Intf.pas
View File

@ -9,16 +9,16 @@ 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_DarReferenciaDelta = '{F1B43432-A3E7-44D4-AF56-D2CA222CA3B3}';
RID_AlbaranesProveedorDelta = '{A1201763-99E7-462F-86AD-AAA14EFE7A60}';
RID_AlbaranesProveedor_DetallesDelta = '{9DD8A677-8A3F-4948-8C8C-1B40BB98AE6F}';
RID_AlbaranesProveedor_Detalles_RefreshDelta = '{5663912C-0DD4-4B61-9F49-A9EFD19CA7CE}';
RID_AlbaranesProveedor_RefreshDelta = '{978B6667-02B7-49EC-B0E0-96D2672CCE4B}';
RID_DarReferenciaDelta = '{A422DB5C-634E-474A-8CF6-74991DA1AE32}';
RID_AlbaranesProveedorDelta = '{C4E4FF3D-939D-4F34-9867-F77C33CC5CFC}';
RID_AlbaranesProveedor_DetallesDelta = '{DAF52FFB-AC66-412B-8E1C-7DAAB3B0C2C9}';
RID_AlbaranesProveedor_Detalles_RefreshDelta = '{324ADFD7-9348-41B3-BFAF-50FE30872A52}';
RID_AlbaranesProveedor_RefreshDelta = '{79C0564C-8AE9-4995-A30C-C904BEB88939}';
type
{ IDarReferenciaDelta }
IDarReferenciaDelta = interface(IDarReferencia)
['{F1B43432-A3E7-44D4-AF56-D2CA222CA3B3}']
['{A422DB5C-634E-474A-8CF6-74991DA1AE32}']
{ Property getters and setters }
function GetOldVALORValue : String;
@ -47,7 +47,7 @@ type
{ IAlbaranesProveedorDelta }
IAlbaranesProveedorDelta = interface(IAlbaranesProveedor)
['{A1201763-99E7-462F-86AD-AAA14EFE7A60}']
['{C4E4FF3D-939D-4F34-9867-F77C33CC5CFC}']
{ Property getters and setters }
function GetOldIDValue : Integer;
function GetOldID_EMPRESAValue : Integer;
@ -321,7 +321,7 @@ type
{ IAlbaranesProveedor_DetallesDelta }
IAlbaranesProveedor_DetallesDelta = interface(IAlbaranesProveedor_Detalles)
['{9DD8A677-8A3F-4948-8C8C-1B40BB98AE6F}']
['{DAF52FFB-AC66-412B-8E1C-7DAAB3B0C2C9}']
{ Property getters and setters }
function GetOldIDValue : Integer;
function GetOldID_ALBARANValue : Integer;
@ -337,6 +337,7 @@ type
function GetOldIMPORTE_PORTEValue : Currency;
function GetOldVISIBLEValue : Integer;
function GetOldREFERENCIA_PROVEEDORValue : String;
function GetOldID_PEDIDOValue : Integer;
{ Properties }
property OldID : Integer read GetOldIDValue;
@ -353,6 +354,7 @@ type
property OldIMPORTE_PORTE : Currency read GetOldIMPORTE_PORTEValue;
property OldVISIBLE : Integer read GetOldVISIBLEValue;
property OldREFERENCIA_PROVEEDOR : String read GetOldREFERENCIA_PROVEEDORValue;
property OldID_PEDIDO : Integer read GetOldID_PEDIDOValue;
end;
{ TAlbaranesProveedor_DetallesBusinessProcessorRules }
@ -402,6 +404,9 @@ type
function GetREFERENCIA_PROVEEDORValue: String; virtual;
function GetOldREFERENCIA_PROVEEDORValue: String; virtual;
procedure SetREFERENCIA_PROVEEDORValue(const aValue: String); virtual;
function GetID_PEDIDOValue: Integer; virtual;
function GetOldID_PEDIDOValue: Integer; virtual;
procedure SetID_PEDIDOValue(const aValue: Integer); virtual;
{ Properties }
property ID : Integer read GetIDValue write SetIDValue;
@ -432,6 +437,8 @@ type
property OldVISIBLE : Integer read GetOldVISIBLEValue;
property REFERENCIA_PROVEEDOR : String read GetREFERENCIA_PROVEEDORValue write SetREFERENCIA_PROVEEDORValue;
property OldREFERENCIA_PROVEEDOR : String read GetOldREFERENCIA_PROVEEDORValue;
property ID_PEDIDO : Integer read GetID_PEDIDOValue write SetID_PEDIDOValue;
property OldID_PEDIDO : Integer read GetOldID_PEDIDOValue;
public
constructor Create(aBusinessProcessor: TDABusinessProcessor); override;
@ -441,7 +448,7 @@ type
{ IAlbaranesProveedor_Detalles_RefreshDelta }
IAlbaranesProveedor_Detalles_RefreshDelta = interface(IAlbaranesProveedor_Detalles_Refresh)
['{5663912C-0DD4-4B61-9F49-A9EFD19CA7CE}']
['{324ADFD7-9348-41B3-BFAF-50FE30872A52}']
{ Property getters and setters }
function GetOldIDValue : Integer;
function GetOldID_ALBARANValue : Integer;
@ -457,6 +464,7 @@ type
function GetOldIMPORTE_PORTEValue : Float;
function GetOldVISIBLEValue : Integer;
function GetOldREFERENCIA_PROVEEDORValue : String;
function GetOldID_PEDIDOValue : Integer;
{ Properties }
property OldID : Integer read GetOldIDValue;
@ -473,6 +481,7 @@ type
property OldIMPORTE_PORTE : Float read GetOldIMPORTE_PORTEValue;
property OldVISIBLE : Integer read GetOldVISIBLEValue;
property OldREFERENCIA_PROVEEDOR : String read GetOldREFERENCIA_PROVEEDORValue;
property OldID_PEDIDO : Integer read GetOldID_PEDIDOValue;
end;
{ TAlbaranesProveedor_Detalles_RefreshBusinessProcessorRules }
@ -522,6 +531,9 @@ type
function GetREFERENCIA_PROVEEDORValue: String; virtual;
function GetOldREFERENCIA_PROVEEDORValue: String; virtual;
procedure SetREFERENCIA_PROVEEDORValue(const aValue: String); virtual;
function GetID_PEDIDOValue: Integer; virtual;
function GetOldID_PEDIDOValue: Integer; virtual;
procedure SetID_PEDIDOValue(const aValue: Integer); virtual;
{ Properties }
property ID : Integer read GetIDValue write SetIDValue;
@ -552,6 +564,8 @@ type
property OldVISIBLE : Integer read GetOldVISIBLEValue;
property REFERENCIA_PROVEEDOR : String read GetREFERENCIA_PROVEEDORValue write SetREFERENCIA_PROVEEDORValue;
property OldREFERENCIA_PROVEEDOR : String read GetOldREFERENCIA_PROVEEDORValue;
property ID_PEDIDO : Integer read GetID_PEDIDOValue write SetID_PEDIDOValue;
property OldID_PEDIDO : Integer read GetOldID_PEDIDOValue;
public
constructor Create(aBusinessProcessor: TDABusinessProcessor); override;
@ -561,7 +575,7 @@ type
{ IAlbaranesProveedor_RefreshDelta }
IAlbaranesProveedor_RefreshDelta = interface(IAlbaranesProveedor_Refresh)
['{978B6667-02B7-49EC-B0E0-96D2672CCE4B}']
['{79C0564C-8AE9-4995-A30C-C904BEB88939}']
{ Property getters and setters }
function GetOldIDValue : Integer;
function GetOldID_EMPRESAValue : Integer;
@ -1642,6 +1656,21 @@ begin
BusinessProcessor.CurrentChange.NewValueByName[fld_AlbaranesProveedor_DetallesREFERENCIA_PROVEEDOR] := aValue;
end;
function TAlbaranesProveedor_DetallesBusinessProcessorRules.GetID_PEDIDOValue: Integer;
begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_AlbaranesProveedor_DetallesID_PEDIDO];
end;
function TAlbaranesProveedor_DetallesBusinessProcessorRules.GetOldID_PEDIDOValue: Integer;
begin
result := BusinessProcessor.CurrentChange.OldValueByName[fld_AlbaranesProveedor_DetallesID_PEDIDO];
end;
procedure TAlbaranesProveedor_DetallesBusinessProcessorRules.SetID_PEDIDOValue(const aValue: Integer);
begin
BusinessProcessor.CurrentChange.NewValueByName[fld_AlbaranesProveedor_DetallesID_PEDIDO] := aValue;
end;
{ TAlbaranesProveedor_Detalles_RefreshBusinessProcessorRules }
constructor TAlbaranesProveedor_Detalles_RefreshBusinessProcessorRules.Create(aBusinessProcessor: TDABusinessProcessor);
@ -1864,6 +1893,21 @@ begin
BusinessProcessor.CurrentChange.NewValueByName[fld_AlbaranesProveedor_Detalles_RefreshREFERENCIA_PROVEEDOR] := aValue;
end;
function TAlbaranesProveedor_Detalles_RefreshBusinessProcessorRules.GetID_PEDIDOValue: Integer;
begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_AlbaranesProveedor_Detalles_RefreshID_PEDIDO];
end;
function TAlbaranesProveedor_Detalles_RefreshBusinessProcessorRules.GetOldID_PEDIDOValue: Integer;
begin
result := BusinessProcessor.CurrentChange.OldValueByName[fld_AlbaranesProveedor_Detalles_RefreshID_PEDIDO];
end;
procedure TAlbaranesProveedor_Detalles_RefreshBusinessProcessorRules.SetID_PEDIDOValue(const aValue: Integer);
begin
BusinessProcessor.CurrentChange.NewValueByName[fld_AlbaranesProveedor_Detalles_RefreshID_PEDIDO] := aValue;
end;
{ TAlbaranesProveedor_RefreshBusinessProcessorRules }
constructor TAlbaranesProveedor_RefreshBusinessProcessorRules.Create(aBusinessProcessor: TDABusinessProcessor);

159
Source/Modulos/Albaranes de proveedor/Servidor/srvAlbaranesProveedor_Impl.dfm
View File

@ -629,10 +629,11 @@ object srvAlbaranesProveedor: TsrvAlbaranesProveedor
'LE,'#10#10' ALBARANES_PROVEEDOR_DETALLES.ID_ARTICULO, ALBARANES_PRO' +
'VEEDOR_DETALLES.DESCUENTO,'#10' ALBARANES_PROVEEDOR_DETALLES.IMPO' +
'RTE_PORTE,'#10' ARTICULOS.REFERENCIA, ARTICULOS.REFERENCIA_PROV a' +
's REFERENCIA_PROVEEDOR'#10#10'FROM ALBARANES_PROVEEDOR_DETALLES'#10'LEFT J' +
'OIN ARTICULOS ON ALBARANES_PROVEEDOR_DETALLES.ID_ARTICULO = ARTI' +
'CULOS.ID'#10'WHERE ALBARANES_PROVEEDOR_DETALLES.ID_ALBARAN = :ID_ALB' +
'ARAN'#10'ORDER BY POSICION;'
's REFERENCIA_PROVEEDOR,'#10' ALBARANES_PROVEEDOR_DETALLES.ID_PEDI' +
'DO'#10#10'FROM ALBARANES_PROVEEDOR_DETALLES'#10'LEFT JOIN ARTICULOS ON ALB' +
'ARANES_PROVEEDOR_DETALLES.ID_ARTICULO = ARTICULOS.ID'#10'WHERE ALBAR' +
'ANES_PROVEEDOR_DETALLES.ID_ALBARAN = :ID_ALBARAN'#10'ORDER BY POSICI' +
'ON;'
StatementType = stSQL
ColumnMappings = <
item
@ -841,6 +842,17 @@ object srvAlbaranesProveedor: TsrvAlbaranesProveedor
Calculated = False
Lookup = False
LookupCache = False
end
item
Name = 'ID_PEDIDO'
DataType = datInteger
BlobType = dabtUnknown
DisplayWidth = 0
Alignment = taLeftJustify
InPrimaryKey = False
Calculated = False
Lookup = False
LookupCache = False
end>
BusinessRulesClient.ScriptLanguage = rslPascalScript
BusinessRulesServer.ScriptLanguage = rslPascalScript
@ -875,11 +887,11 @@ object srvAlbaranesProveedor: TsrvAlbaranesProveedor
'LE,'#10#10' ALBARANES_PROVEEDOR_DETALLES.ID_ARTICULO, ALBARANES_PRO' +
'VEEDOR_DETALLES.DESCUENTO,'#10' ALBARANES_PROVEEDOR_DETALLES.IMPO' +
'RTE_PORTE,'#10' ARTICULOS.REFERENCIA, ARTICULOS.REFERENCIA_PROV a' +
's REFERENCIA_PROVEEDOR'#10#10'FROM ALBARANES_PROVEEDOR_DETALLES'#10'LEFT J' +
'OIN ARTICULOS ON ALBARANES_PROVEEDOR_DETALLES.ID_ARTICULO = ARTI' +
'CULOS.ID'#10'WHERE ALBARANES_PROVEEDOR_DETALLES.ID_ALBARAN = :ID_ALB' +
'ARAN'#10'AND ALBARANES_PROVEEDOR_DETALLES.ID = :ID'#10'ORDER BY POSICION' +
';'
's REFERENCIA_PROVEEDOR,'#10' ALBARANES_PROVEEDOR_DETALLES.ID_PEDI' +
'DO'#10#10'FROM ALBARANES_PROVEEDOR_DETALLES'#10'LEFT JOIN ARTICULOS ON ALB' +
'ARANES_PROVEEDOR_DETALLES.ID_ARTICULO = ARTICULOS.ID'#10'WHERE ALBAR' +
'ANES_PROVEEDOR_DETALLES.ID_ALBARAN = :ID_ALBARAN'#10'AND ALBARANES_P' +
'ROVEEDOR_DETALLES.ID = :ID'#10'ORDER BY POSICION;'
StatementType = stSQL
ColumnMappings = <
item
@ -1092,6 +1104,17 @@ object srvAlbaranesProveedor: TsrvAlbaranesProveedor
Calculated = False
Lookup = False
LookupCache = False
end
item
Name = 'ID_PEDIDO'
DataType = datInteger
BlobType = dabtUnknown
DisplayWidth = 0
Alignment = taLeftJustify
InPrimaryKey = False
Calculated = False
Lookup = False
LookupCache = False
end>
BusinessRulesClient.ScriptLanguage = rslPascalScript
BusinessRulesServer.ScriptLanguage = rslPascalScript
@ -1733,14 +1756,6 @@ object srvAlbaranesProveedor: TsrvAlbaranesProveedor
Value = ''
ParamType = daptInput
end
item
Name = 'TIPO'
DataType = datString
Size = 1
BlobType = dabtUnknown
Value = ''
ParamType = daptInput
end
item
Name = 'REFERENCIA'
DataType = datString
@ -1925,6 +1940,14 @@ object srvAlbaranesProveedor: TsrvAlbaranesProveedor
BlobType = dabtUnknown
Value = ''
ParamType = daptInput
end
item
Name = 'TIPO'
DataType = datString
Size = 1
BlobType = dabtUnknown
Value = ''
ParamType = daptInput
end>
Statements = <
item
@ -1933,23 +1956,23 @@ object srvAlbaranesProveedor: TsrvAlbaranesProveedor
SQL =
'INSERT INTO ALBARANES_PROVEEDOR ('#10' ID,'#10' ID_EMPRESA,'#10' ID' +
'_PROVEEDOR,'#10' FECHA_ALBARAN,'#10' ID_PEDIDO,'#10' ID_FACTURA,'#10' ' +
' TIPO,'#10' REFERENCIA,'#10' REFERENCIA_PROVEEDOR,'#10' REF_FACTUR' +
'A_PROV,'#10' CALLE,'#10' CODIGO_POSTAL,'#10' POBLACION,'#10' PROVINC' +
'IA,'#10' PERSONA_CONTACTO,'#10' TELEFONO,'#10' BASE_IMPONIBLE,'#10' ' +
'DESCUENTO,'#10' IMPORTE_DESCUENTO,'#10' IVA,'#10' IMPORTE_IVA,'#10' ' +
'IMPORTE_TOTAL,'#10' OBSERVACIONES,'#10' INCIDENCIAS,'#10' INCIDENCI' +
'AS_ACTIVAS,'#10' FECHA_ALTA,'#10' FECHA_MODIFICACION,'#10' USUARIO,' +
#10' ID_ALMACEN,'#10' ID_FORMA_PAGO,'#10' IMPORTE_NETO,'#10' IMPORT' +
'E_PORTE)'#10' VALUES ('#10' :ID,'#10' :ID_EMPRESA,'#10' :ID_PROVEEDOR,' +
#10' :FECHA_ALBARAN,'#10' :ID_PEDIDO,'#10' :ID_FACTURA,'#10' :TIPO,' +
#10' :REFERENCIA,'#10' :REFERENCIA_PROVEEDOR,'#10' :REF_FACTURA_PR' +
'OV,'#10' :CALLE,'#10' :CODIGO_POSTAL,'#10' :POBLACION,'#10' :PROVINC' +
'IA,'#10' :PERSONA_CONTACTO,'#10' :TELEFONO,'#10' :BASE_IMPONIBLE,'#10' ' +
' :DESCUENTO,'#10' :IMPORTE_DESCUENTO,'#10' :IVA,'#10' :IMPORTE_IV' +
'A,'#10' :IMPORTE_TOTAL,'#10' :OBSERVACIONES,'#10' :INCIDENCIAS,'#10' ' +
' :INCIDENCIAS_ACTIVAS,'#10' :FECHA_ALTA,'#10' :FECHA_MODIFICACION,' +
#10' :USUARIO,'#10' :ID_ALMACEN,'#10' :ID_FORMA_PAGO,'#10' :IMPORTE' +
'_NETO,'#10' :IMPORTE_PORTE);'
' REFERENCIA,'#10' REFERENCIA_PROVEEDOR,'#10' REF_FACTURA_PROV,'#10' ' +
' CALLE,'#10' CODIGO_POSTAL,'#10' POBLACION,'#10' PROVINCIA,'#10' PE' +
'RSONA_CONTACTO,'#10' TELEFONO,'#10' BASE_IMPONIBLE,'#10' DESCUENTO,' +
#10' IMPORTE_DESCUENTO,'#10' IVA,'#10' IMPORTE_IVA,'#10' IMPORTE_TO' +
'TAL,'#10' OBSERVACIONES,'#10' INCIDENCIAS,'#10' INCIDENCIAS_ACTIVAS' +
','#10' FECHA_ALTA,'#10' FECHA_MODIFICACION,'#10' USUARIO,'#10' ID_AL' +
'MACEN,'#10' ID_FORMA_PAGO,'#10' IMPORTE_NETO,'#10' IMPORTE_PORTE,'#10' ' +
' TIPO)'#10' VALUES ('#10' :ID,'#10' :ID_EMPRESA,'#10' :ID_PROVEEDOR,' +
#10' :FECHA_ALBARAN,'#10' :ID_PEDIDO,'#10' :ID_FACTURA,'#10' :REFER' +
'ENCIA,'#10' :REFERENCIA_PROVEEDOR,'#10' :REF_FACTURA_PROV,'#10' :CA' +
'LLE,'#10' :CODIGO_POSTAL,'#10' :POBLACION,'#10' :PROVINCIA,'#10' :PE' +
'RSONA_CONTACTO,'#10' :TELEFONO,'#10' :BASE_IMPONIBLE,'#10' :DESCUEN' +
'TO,'#10' :IMPORTE_DESCUENTO,'#10' :IVA,'#10' :IMPORTE_IVA,'#10' :IMP' +
'ORTE_TOTAL,'#10' :OBSERVACIONES,'#10' :INCIDENCIAS,'#10' :INCIDENCI' +
'AS_ACTIVAS,'#10' :FECHA_ALTA,'#10' :FECHA_MODIFICACION,'#10' :USUAR' +
'IO,'#10' :ID_ALMACEN,'#10' :ID_FORMA_PAGO,'#10' :IMPORTE_NETO,'#10' ' +
':IMPORTE_PORTE,'#10' :TIPO);'
StatementType = stSQL
ColumnMappings = <>
end>
@ -2013,14 +2036,6 @@ object srvAlbaranesProveedor: TsrvAlbaranesProveedor
Value = ''
ParamType = daptInput
end
item
Name = 'TIPO'
DataType = datString
Size = 1
BlobType = dabtUnknown
Value = ''
ParamType = daptInput
end
item
Name = 'REFERENCIA'
DataType = datString
@ -2206,6 +2221,14 @@ object srvAlbaranesProveedor: TsrvAlbaranesProveedor
Value = ''
ParamType = daptInput
end
item
Name = 'TIPO'
DataType = datString
Size = 1
BlobType = dabtUnknown
Value = ''
ParamType = daptInput
end
item
Name = 'OLD_ID'
DataType = datInteger
@ -2221,20 +2244,20 @@ object srvAlbaranesProveedor: TsrvAlbaranesProveedor
'UPDATE ALBARANES_PROVEEDOR'#10' SET'#10' ID_EMPRESA = :ID_EMPRESA,'#10' ' +
' ID_PROVEEDOR = :ID_PROVEEDOR,'#10' FECHA_ALBARAN = :FECHA_ALBA' +
'RAN,'#10' ID_PEDIDO = :ID_PEDIDO,'#10' ID_FACTURA = :ID_FACTURA,'#10' ' +
' TIPO = :TIPO,'#10' REFERENCIA = :REFERENCIA,'#10' REFERENCIA_PR' +
'OVEEDOR = :REFERENCIA_PROVEEDOR,'#10' REF_FACTURA_PROV = :REF_FAC' +
'TURA_PROV,'#10' CALLE = :CALLE,'#10' CODIGO_POSTAL = :CODIGO_POSTA' +
'L,'#10' POBLACION = :POBLACION,'#10' PROVINCIA = :PROVINCIA,'#10' P' +
'ERSONA_CONTACTO = :PERSONA_CONTACTO,'#10' TELEFONO = :TELEFONO,'#10' ' +
' BASE_IMPONIBLE = :BASE_IMPONIBLE,'#10' DESCUENTO = :DESCUENTO,' +
#10' IMPORTE_DESCUENTO = :IMPORTE_DESCUENTO,'#10' IVA = :IVA,'#10' ' +
' IMPORTE_IVA = :IMPORTE_IVA,'#10' IMPORTE_TOTAL = :IMPORTE_TOTAL,' +
#10' OBSERVACIONES = :OBSERVACIONES,'#10' INCIDENCIAS = :INCIDENC' +
'IAS,'#10' INCIDENCIAS_ACTIVAS = :INCIDENCIAS_ACTIVAS,'#10' FECHA_A' +
'LTA = :FECHA_ALTA,'#10' FECHA_MODIFICACION = :FECHA_MODIFICACION,' +
#10' USUARIO = :USUARIO,'#10' ID_ALMACEN = :ID_ALMACEN,'#10' ID_FO' +
'RMA_PAGO = :ID_FORMA_PAGO,'#10' IMPORTE_NETO = :IMPORTE_NETO,'#10' ' +
' IMPORTE_PORTE = :IMPORTE_PORTE'#10' WHERE'#10' (ID = :OLD_ID);'
' REFERENCIA = :REFERENCIA,'#10' REFERENCIA_PROVEEDOR = :REFEREN' +
'CIA_PROVEEDOR,'#10' REF_FACTURA_PROV = :REF_FACTURA_PROV,'#10' CAL' +
'LE = :CALLE,'#10' CODIGO_POSTAL = :CODIGO_POSTAL,'#10' POBLACION =' +
' :POBLACION,'#10' PROVINCIA = :PROVINCIA,'#10' PERSONA_CONTACTO = ' +
':PERSONA_CONTACTO,'#10' TELEFONO = :TELEFONO,'#10' BASE_IMPONIBLE ' +
'= :BASE_IMPONIBLE,'#10' DESCUENTO = :DESCUENTO,'#10' IMPORTE_DESCU' +
'ENTO = :IMPORTE_DESCUENTO,'#10' IVA = :IVA,'#10' IMPORTE_IVA = :IM' +
'PORTE_IVA,'#10' IMPORTE_TOTAL = :IMPORTE_TOTAL,'#10' OBSERVACIONES' +
' = :OBSERVACIONES,'#10' INCIDENCIAS = :INCIDENCIAS,'#10' INCIDENCI' +
'AS_ACTIVAS = :INCIDENCIAS_ACTIVAS,'#10' FECHA_ALTA = :FECHA_ALTA,' +
#10' FECHA_MODIFICACION = :FECHA_MODIFICACION,'#10' USUARIO = :US' +
'UARIO,'#10' ID_ALMACEN = :ID_ALMACEN,'#10' ID_FORMA_PAGO = :ID_FOR' +
'MA_PAGO,'#10' IMPORTE_NETO = :IMPORTE_NETO,'#10' IMPORTE_PORTE = :' +
'IMPORTE_PORTE,'#10' TIPO = :TIPO'#10' WHERE'#10' (ID = :OLD_ID);'
StatementType = stSQL
ColumnMappings = <>
end>
@ -2327,6 +2350,13 @@ object srvAlbaranesProveedor: TsrvAlbaranesProveedor
BlobType = dabtUnknown
Value = ''
ParamType = daptInput
end
item
Name = 'ID_PEDIDO'
DataType = datInteger
BlobType = dabtUnknown
Value = ''
ParamType = daptInput
end>
Statements = <
item
@ -2336,9 +2366,10 @@ object srvAlbaranesProveedor: TsrvAlbaranesProveedor
'INSERT'#10' INTO ALBARANES_PROVEEDOR_DETALLES'#10' (CANTIDAD, POSICI' +
'ON, ID, TIPO_DETALLE, CONCEPTO, IMPORTE_UNIDAD, '#10' IMPORTE_TO' +
'TAL, VISIBLE, ID_ALBARAN,'#10' ID_ARTICULO, DESCUENTO, IMPORTE_P' +
'ORTE)'#10' VALUES'#10' (:CANTIDAD, :POSICION, :ID, :TIPO_DETALLE, :C' +
'ONCEPTO, '#10' :IMPORTE_UNIDAD, :IMPORTE_TOTAL, :VISIBLE, :ID_AL' +
'BARAN,'#10' :ID_ARTICULO, :DESCUENTO, :IMPORTE_PORTE)'
'ORTE, ID_PEDIDO)'#10' VALUES'#10' (:CANTIDAD, :POSICION, :ID, :TIPO_' +
'DETALLE, :CONCEPTO, '#10' :IMPORTE_UNIDAD, :IMPORTE_TOTAL, :VISI' +
'BLE, :ID_ALBARAN,'#10' :ID_ARTICULO, :DESCUENTO, :IMPORTE_PORTE,' +
' :ID_PEDIDO)'
StatementType = stSQL
ColumnMappings = <>
end>
@ -2453,6 +2484,13 @@ object srvAlbaranesProveedor: TsrvAlbaranesProveedor
Value = ''
ParamType = daptInput
end
item
Name = 'ID_PEDIDO'
DataType = datInteger
BlobType = dabtUnknown
Value = ''
ParamType = daptInput
end
item
Name = 'OLD_ID'
DataType = datInteger
@ -2471,7 +2509,8 @@ object srvAlbaranesProveedor: TsrvAlbaranesProveedor
' = :IMPORTE_UNIDAD, '#10' IMPORTE_TOTAL = :IMPORTE_TOTAL, '#10' VI' +
'SIBLE = :VISIBLE, '#10' ID_ALBARAN = :ID_ALBARAN,'#10' ID_ARTICULO' +
' = :ID_ARTICULO,'#10' DESCUENTO = :DESCUENTO,'#10' IMPORTE_PORTE =' +
' :IMPORTE_PORTE'#10' WHERE'#10' (ID = :OLD_ID)'
' :IMPORTE_PORTE,'#10' ID_PEDIDO = :ID_PEDIDO'#10' WHERE'#10' (ID = :O' +
'LD_ID)'
StatementType = stSQL
ColumnMappings = <>
end>

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

@ -807,6 +807,715 @@ object srvInfMargenArticulo: TsrvInfMargenArticulo
end>
BusinessRulesClient.ScriptLanguage = rslPascalScript
BusinessRulesServer.ScriptLanguage = rslPascalScript
end
item
Params = <
item
Name = 'FECHAINI'
BlobType = dabtUnknown
Value = ''
ParamType = daptInput
end
item
Name = 'FECHAFIN'
BlobType = dabtUnknown
Value = ''
ParamType = daptInput
end>
Statements = <
item
Connection = 'IBX'
TargetTable = 'INF_MARGEN_ARTICULOS'
SQL =
'SELECT'#10#10' INF_MARGEN_ARTICULOS.ID_EMPRESA,'#10'/* INF_MARGEN_AR' +
'TICULOS.ID_CLIENTE,*/'#10' INF_MARGEN_ARTICULOS.ID_ARTICULO,'#10'/*'#10' ' +
' INF_MARGEN_ARTICULOS.NIF_CIF_CLIENTE,'#10' INF_MARGEN_ARTICULO' +
'S.NOMBRE_CLIENTE,'#10' INF_MARGEN_ARTICULOS.NOMBRE_COMERCIAL_CLIE' +
'NTE,'#10' INF_MARGEN_ARTICULOS.NIF_CIF_AGENTE,'#10' INF_MARGEN_ART' +
'ICULOS.NOMBRE_AGENTE,'#10'*/'#10' INF_MARGEN_ARTICULOS.FAMILIA,'#10' I' +
'NF_MARGEN_ARTICULOS.REFERENCIA,'#10' INF_MARGEN_ARTICULOS.REFEREN' +
'CIA_PROV,'#10' INF_MARGEN_ARTICULOS.DESCRIPCION,'#10' INF_MARGEN_A' +
'RTICULOS.COMISIONABLE,'#10' INF_MARGEN_ARTICULOS.INVENTARIABLE,'#10' ' +
' INF_MARGEN_ARTICULOS.IMP_UNIDAD_ULT_VENT,'#10' INF_MARGEN_ARTI' +
'CULOS.IMP_NETO_ULT_VENT,'#10' INF_MARGEN_ARTICULOS.IMP_PORTE_ULT_' +
'VENT,'#10' INF_MARGEN_ARTICULOS.IMP_UNIDAD_PRO_VENT,'#10' INF_MARG' +
'EN_ARTICULOS.IMP_NETO_PRO_VENT,'#10' INF_MARGEN_ARTICULOS.IMP_POR' +
'TE_PRO_VENT,'#10' INF_MARGEN_ARTICULOS.IMP_UNIDAD_COMPRA,'#10' INF' +
'_MARGEN_ARTICULOS.IMP_NETO_COMPRA,'#10' INF_MARGEN_ARTICULOS.IMP_' +
'PORTE_COMPRA,'#10' INF_MARGEN_ARTICULOS.IMP_UNIDAD_ULT_COMP,'#10' ' +
'INF_MARGEN_ARTICULOS.IMP_NETO_ULT_COMP,'#10' INF_MARGEN_ARTICULOS' +
'.IMP_PORTE_ULT_COMP,'#10' INF_MARGEN_ARTICULOS.IMP_UNIDAD_PRO_COM' +
'P,'#10' INF_MARGEN_ARTICULOS.IMP_NETO_PRO_COMP,'#10' INF_MARGEN_AR' +
'TICULOS.IMP_PORTE_PRO_COMP,'#10' INF_MARGEN_ARTICULOS.IMP_MARGEN_' +
'ULT_VENT_COMPRA,'#10' INF_MARGEN_ARTICULOS.POR_MARGEN_ULT_VENT_CO' +
'MPRA,'#10' INF_MARGEN_ARTICULOS.IMP_MARGEN_ULT_VENT_ULT_COMP,'#10' ' +
' INF_MARGEN_ARTICULOS.POR_MARGEN_ULT_VENT_ULT_COMP,'#10' INF_MARG' +
'EN_ARTICULOS.IMP_MARGEN_ULT_VENT_PRO_COMP,'#10' INF_MARGEN_ARTICU' +
'LOS.POR_MARGEN_ULT_VENT_PRO_COMP,'#10' INF_MARGEN_ARTICULOS.IMP_M' +
'ARGEN_PRO_VENT_COMPRA,'#10' INF_MARGEN_ARTICULOS.POR_MARGEN_PRO_V' +
'ENT_COMPRA,'#10' INF_MARGEN_ARTICULOS.IMP_MARGEN_PRO_VENT_ULT_COM' +
'P,'#10' INF_MARGEN_ARTICULOS.POR_MARGEN_PRO_VENT_ULT_COMP,'#10' IN' +
'F_MARGEN_ARTICULOS.IMP_MARGEN_PRO_VENT_PRO_COMP,'#10' INF_MARGEN_' +
'ARTICULOS.POR_MARGEN_PRO_VENT_PRO_COMP'#10#10'FROM'#10#10'(SELECT'#10'MARGEN_VEN' +
'TAS.ID_EMPRESA AS ID_EMPRESA,'#10'/*MARGEN_VENTAS.ID_CLIENTE AS ID_C' +
'LIENTE,*/'#10'MARGEN_VENTAS.ID_ARTICULO AS ID_ARTICULO,'#10#10'/*'#10'CLIENTES' +
'.NIF_CIF AS NIF_CIF_CLIENTE,'#10'CLIENTES.NOMBRE AS NOMBRE_CLIENTE,'#10 +
'CLIENTES_DATOS.NOMBRE_COMERCIAL AS NOMBRE_COMERCIAL_CLIENTE,'#10#10'AG' +
'ENTES.NIF_CIF AS NIF_CIF_AGENTE,'#10'AGENTES.NOMBRE AS NOMBRE_AGENTE' +
','#10'*/'#10#10'ARTICULOS.FAMILIA AS FAMILIA,'#10'ARTICULOS.REFERENCIA AS REFE' +
'RENCIA,'#10'ARTICULOS.REFERENCIA_PROV AS REFERENCIA_PROV,'#10'ARTICULOS.' +
'DESCRIPCION AS DESCRIPCION,'#10'ARTICULOS.COMISIONABLE AS COMISIONAB' +
'LE,'#10'ARTICULOS.INVENTARIABLE AS INVENTARIABLE,'#10#10'COALESCE(MARGEN_V' +
'ENTAS.IMPORTE_UNIDAD_ULT_VENT, 0) AS IMP_UNIDAD_ULT_VENT,'#10'COALES' +
'CE(MARGEN_VENTAS.IMPORTE_NETO_ULT_VENT, 0) AS IMP_NETO_ULT_VENT,' +
#10'COALESCE(MARGEN_VENTAS.IMPORTE_PORTE_ULT_VENT, 0) AS IMP_PORTE_' +
'ULT_VENT,'#10#10'COALESCE(MARGEN_VENTAS.IMPORTE_UNIDAD_PRO_VENT, 0) AS' +
' IMP_UNIDAD_PRO_VENT,'#10'COALESCE(MARGEN_VENTAS.IMPORTE_NETO_PRO_VE' +
'NT, 0) AS IMP_NETO_PRO_VENT,'#10'COALESCE(MARGEN_VENTAS.IMPORTE_PORT' +
'E_PRO_VENT, 0) AS IMP_PORTE_PRO_VENT,'#10#10'COALESCE(ARTICULOS.PRECIO' +
'_COSTE, 0) AS IMP_UNIDAD_COMPRA,'#10'COALESCE(ARTICULOS.PRECIO_NETO,' +
' 0) AS IMP_NETO_COMPRA,'#10'COALESCE(ARTICULOS.PRECIO_PORTE, 0) AS I' +
'MP_PORTE_COMPRA,'#10#10'COALESCE(MARGEN_COMPRAS.IMPORTE_UNIDAD_ULT_COM' +
'P, COALESCE(ARTICULOS.PRECIO_COSTE, 0)) AS IMP_UNIDAD_ULT_COMP,'#10 +
'COALESCE(MARGEN_COMPRAS.IMPORTE_NETO_ULT_COMP, COALESCE(ARTICULO' +
'S.PRECIO_NETO, 0)) AS IMP_NETO_ULT_COMP,'#10'COALESCE(MARGEN_COMPRAS' +
'.IMPORTE_PORTE_ULT_COMP, COALESCE(ARTICULOS.PRECIO_PORTE, 0)) AS' +
' IMP_PORTE_ULT_COMP,'#10#10'COALESCE(MARGEN_COMPRAS.IMPORTE_UNIDAD_PRO' +
'_COMP, COALESCE(ARTICULOS.PRECIO_COSTE, 0)) AS IMP_UNIDAD_PRO_CO' +
'MP,'#10'COALESCE(MARGEN_COMPRAS.IMPORTE_NETO_PRO_COMP, COALESCE(ARTI' +
'CULOS.PRECIO_NETO, 0)) AS IMP_NETO_PRO_COMP,'#10'COALESCE(MARGEN_COM' +
'PRAS.IMPORTE_PORTE_PRO_COMP, COALESCE(ARTICULOS.PRECIO_PORTE, 0)' +
') AS IMP_PORTE_PRO_COMP,'#10#10#10#10#10'MARGEN_VENTAS.IMPORTE_NETO_ULT_VENT' +
' - ARTICULOS.PRECIO_NETO AS IMP_MARGEN_ULT_VENT_COMPRA,'#10'CASE'#10'WHE' +
'N ARTICULOS.PRECIO_NETO = 0 THEN 100'#10'WHEN (MARGEN_VENTAS.IMPORT' +
'E_NETO_ULT_VENT - ARTICULOS.PRECIO_NETO) > 0 THEN'#10' ((MARGEN_' +
'VENTAS.IMPORTE_NETO_ULT_VENT - ARTICULOS.PRECIO_NETO) * 100) / M' +
'ARGEN_VENTAS.IMPORTE_NETO_ULT_VENT'#10'ELSE 0'#10'END'#10'AS POR_MARGEN_ULT_' +
'VENT_COMPRA,'#10#10'MARGEN_VENTAS.IMPORTE_NETO_ULT_VENT - MARGEN_COMPR' +
'AS.IMPORTE_NETO_ULT_COMP AS IMP_MARGEN_ULT_VENT_ULT_COMP,'#10'CASE'#10'W' +
'HEN MARGEN_COMPRAS.IMPORTE_NETO_ULT_COMP = 0 THEN 100'#10'WHEN (MAR' +
'GEN_VENTAS.IMPORTE_NETO_ULT_VENT - MARGEN_COMPRAS.IMPORTE_NETO_U' +
'LT_COMP) > 0 THEN'#10' ((MARGEN_VENTAS.IMPORTE_NETO_ULT_VENT - M' +
'ARGEN_COMPRAS.IMPORTE_NETO_ULT_COMP) * 100) / MARGEN_VENTAS.IMPO' +
'RTE_NETO_ULT_VENT'#10'ELSE 0'#10'END'#10'AS POR_MARGEN_ULT_VENT_ULT_COMP,'#10#10'M' +
'ARGEN_VENTAS.IMPORTE_NETO_ULT_VENT - MARGEN_COMPRAS.IMPORTE_NETO' +
'_PRO_COMP AS IMP_MARGEN_ULT_VENT_PRO_COMP,'#10'CASE'#10'WHEN MARGEN_COM' +
'PRAS.IMPORTE_NETO_PRO_COMP = 0 THEN 100'#10'WHEN (MARGEN_VENTAS.IMPO' +
'RTE_NETO_ULT_VENT - MARGEN_COMPRAS.IMPORTE_NETO_PRO_COMP) > 0 TH' +
'EN'#10' ((MARGEN_VENTAS.IMPORTE_NETO_ULT_VENT - MARGEN_COMPRAS.I' +
'MPORTE_NETO_PRO_COMP) * 100) / MARGEN_VENTAS.IMPORTE_NETO_ULT_VE' +
'NT'#10'ELSE 0'#10'END'#10'AS POR_MARGEN_ULT_VENT_PRO_COMP,'#10#10#10#10'MARGEN_VENTAS.' +
'IMPORTE_NETO_PRO_VENT - ARTICULOS.PRECIO_NETO AS IMP_MARGEN_PRO_' +
'VENT_COMPRA,'#10'CASE'#10'WHEN ARTICULOS.PRECIO_NETO = 0 THEN 100'#10'WHEN ' +
'(MARGEN_VENTAS.IMPORTE_NETO_PRO_VENT - ARTICULOS.PRECIO_NETO) > ' +
'0 THEN'#10' ((MARGEN_VENTAS.IMPORTE_NETO_PRO_VENT - ARTICULOS.PR' +
'ECIO_NETO) * 100) / MARGEN_VENTAS.IMPORTE_NETO_PRO_VENT'#10'ELSE 0'#10'E' +
'ND'#10'AS POR_MARGEN_PRO_VENT_COMPRA,'#10#10'MARGEN_VENTAS.IMPORTE_NETO_PR' +
'O_VENT - MARGEN_COMPRAS.IMPORTE_NETO_ULT_COMP AS IMP_MARGEN_PRO_' +
'VENT_ULT_COMP,'#10'CASE'#10'WHEN MARGEN_COMPRAS.IMPORTE_NETO_ULT_COMP =' +
' 0 THEN 100'#10'WHEN (MARGEN_VENTAS.IMPORTE_NETO_PRO_VENT - MARGEN_C' +
'OMPRAS.IMPORTE_NETO_ULT_COMP) > 0 THEN'#10' ((MARGEN_VENTAS.IMPO' +
'RTE_NETO_PRO_VENT - MARGEN_COMPRAS.IMPORTE_NETO_ULT_COMP) * 100)' +
' / MARGEN_VENTAS.IMPORTE_NETO_PRO_VENT'#10'ELSE 0'#10'END'#10'AS POR_MARGEN_' +
'PRO_VENT_ULT_COMP,'#10#10'MARGEN_VENTAS.IMPORTE_NETO_PRO_VENT - MARGEN' +
'_COMPRAS.IMPORTE_NETO_PRO_COMP AS IMP_MARGEN_PRO_VENT_PRO_COMP,'#10 +
'CASE'#10'WHEN MARGEN_COMPRAS.IMPORTE_NETO_PRO_COMP = 0 THEN 100'#10'WHE' +
'N (MARGEN_VENTAS.IMPORTE_NETO_PRO_VENT - MARGEN_COMPRAS.IMPORTE_' +
'NETO_PRO_COMP) > 0 THEN'#10' ((MARGEN_VENTAS.IMPORTE_NETO_PRO_VE' +
'NT - MARGEN_COMPRAS.IMPORTE_NETO_PRO_COMP) * 100) / MARGEN_VENTA' +
'S.IMPORTE_NETO_PRO_VENT'#10'ELSE 0'#10'END'#10'AS POR_MARGEN_PRO_VENT_PRO_CO' +
'MP'#10#10'FROM'#10#10#10'(SELECT ID_EMPRESA,'#10'/* ID_CLIENTE, */'#10' ID_ARTIC' +
'ULO, COALESCE(SUM(IMPORTE_UNIDAD_ULT_VENT),0) AS IMPORTE_UNIDAD_' +
'ULT_VENT,'#10' COALESCE(SUM(IMPORTE_NETO_ULT_VENT),0) AS IMPOR' +
'TE_NETO_ULT_VENT, COALESCE(SUM(IMPORTE_PORTE_ULT_VENT),0) AS IMP' +
'ORTE_PORTE_ULT_VENT,'#10' COALESCE(SUM(IMPORTE_UNIDAD_PRO_VENT' +
'),0) AS IMPORTE_UNIDAD_PRO_VENT, COALESCE(SUM(IMPORTE_NETO_PRO_V' +
'ENT),0) AS IMPORTE_NETO_PRO_VENT,'#10' COALESCE(SUM(IMPORTE_PO' +
'RTE_PRO_VENT),0) AS IMPORTE_PORTE_PRO_VENT'#10#10' FROM'#10' (SELECT'#10' ' +
' ID_EMPRESA,'#10' /*ID_CLIENTE,*/'#10' ID_ARTICULO,'#10' IM' +
'PORTE_UNIDAD_VENTA AS IMPORTE_UNIDAD_ULT_VENT, IMPORTE_NETO_VENT' +
'A AS IMPORTE_NETO_ULT_VENT, IMPORTE_PORTE_VENTA AS IMPORTE_PORTE' +
'_ULT_VENT,'#10' NULL AS IMPORTE_UNIDAD_PRO_VENT, NULL AS IMPORT' +
'E_NETO_PRO_VENT, NULL AS IMPORTE_PORTE_PRO_VENT'#10#10' FROM V_INF_' +
'ULTIMA_VENTA'#10#10' UNION ALL'#10#10' SELECT'#10' FACTURAS_CLIENTE.I' +
'D_EMPRESA,'#10'/* FACTURAS_CLIENTE.ID_CLIENTE,*/'#10' FACTURAS' +
'_CLIENTE_DETALLES.ID_ARTICULO,'#10' NULL, NULL, NULL,'#10' AVG' +
'(FACTURAS_CLIENTE_DETALLES.IMPORTE_UNIDAD) AS IMPORTE_UNIDAD_PRO' +
'_VENT,'#10' AVG(FACTURAS_CLIENTE_DETALLES.IMPORTE_UNIDAD - (FAC' +
'TURAS_CLIENTE_DETALLES.IMPORTE_UNIDAD * (FACTURAS_CLIENTE_DETALL' +
'ES.DESCUENTO / 100))) AS IMPORTE_NETO_PRO_VENT,'#10' AVG(FACTUR' +
'AS_CLIENTE_DETALLES.IMPORTE_PORTE) AS IMPORTE_PORTE_PRO_VENT'#10#10' ' +
' FROM FACTURAS_CLIENTE_DETALLES'#10' LEFT OUTER JOIN FACTURAS_CL' +
'IENTE'#10' ON (FACTURAS_CLIENTE.ID = FACTURAS_CLIENTE_DETALLES.ID' +
'_FACTURA)'#10#10' WHERE (FACTURAS_CLIENTE_DETALLES.ID_ARTICULO IS N' +
'OT NULL) AND (FACTURAS_CLIENTE_DETALLES.ID_ARTICULO > 0)'#10' A' +
'ND (FACTURAS_CLIENTE_DETALLES.CANTIDAD > 0)'#10' AND (FACTURAS_' +
'CLIENTE.FECHA_FACTURA BETWEEN :FECHAINI AND :FECHAFIN)'#10' GROUP' +
' BY 1, 2) /*, 3)*/'#10#10' GROUP BY 1, 2)/*, 3)*/ MARGEN_VENTAS'#10#10#10'LEFT' +
' JOIN'#10#10#10'(SELECT'#10' ID_EMPRESA, ID_ARTICULO, COALESCE(SUM(IMPORT' +
'E_UNIDAD_ULT_COMP),0) AS IMPORTE_UNIDAD_ULT_COMP, COALESCE(SUM(I' +
'MPORTE_NETO_ULT_COMP),0) AS IMPORTE_NETO_ULT_COMP,'#10' COALESCE(' +
'SUM(IMPORTE_PORTE_ULT_COMP),0) AS IMPORTE_PORTE_ULT_COMP, COALES' +
'CE(SUM(IMPORTE_UNIDAD_PRO_COMP),0) AS IMPORTE_UNIDAD_PRO_COMP,'#10' ' +
' COALESCE(SUM(IMPORTE_NETO_PRO_COMP),0) AS IMPORTE_NETO_PRO_CO' +
'MP, COALESCE(SUM(IMPORTE_PORTE_PRO_COMP),0) AS IMPORTE_PORTE_PRO' +
'_COMP'#10#10' FROM'#10' (SELECT'#10' ID_EMPRESA, ID_ARTICULO,'#10' IMP' +
'ORTE_UNIDAD_COMPRA AS IMPORTE_UNIDAD_ULT_COMP, IMPORTE_NETO_COMP' +
'RA AS IMPORTE_NETO_ULT_COMP, IMPORTE_PORTE_COMPRA AS IMPORTE_POR' +
'TE_ULT_COMP,'#10' NULL AS IMPORTE_UNIDAD_PRO_COMP, NULL AS IMPO' +
'RTE_NETO_PRO_COMP, NULL AS IMPORTE_PORTE_PRO_COMP'#10#10' FROM V_IN' +
'F_ULTIMA_COMPRA'#10#10' UNION ALL'#10#10' SELECT'#10' FACTURAS_PROVEE' +
'DOR.ID_EMPRESA,'#10' FACTURAS_PROVEEDOR_DETALLES.ID_ARTICULO,'#10' ' +
' NULL, NULL, NULL,'#10' AVG(FACTURAS_PROVEEDOR_DETALLES.IMP' +
'ORTE_UNIDAD) AS IMPORTE_UNIDAD_PRO_COMP,'#10' AVG(FACTURAS_PROV' +
'EEDOR_DETALLES.IMPORTE_UNIDAD - (FACTURAS_PROVEEDOR_DETALLES.IMP' +
'ORTE_UNIDAD * (FACTURAS_PROVEEDOR_DETALLES.DESCUENTO / 100))) AS' +
' IMPORTE_NETO_PRO_COMP,'#10' AVG(FACTURAS_PROVEEDOR_DETALLES.IM' +
'PORTE_PORTE) AS IMPORTE_PORTE_PRO_COMP'#10#10' FROM FACTURAS_PROVEE' +
'DOR_DETALLES'#10' LEFT OUTER JOIN FACTURAS_PROVEEDOR'#10' ON (FACT' +
'URAS_PROVEEDOR.ID = FACTURAS_PROVEEDOR_DETALLES.ID_FACTURA)'#10#10' ' +
' WHERE (FACTURAS_PROVEEDOR_DETALLES.ID_ARTICULO IS NOT NULL) AND' +
' (FACTURAS_PROVEEDOR_DETALLES.ID_ARTICULO > 0)'#10' AND (FACTUR' +
'AS_PROVEEDOR_DETALLES.CANTIDAD > 0)'#10' /*Las compras promedio' +
' deben de calcularse desde el principio de los tiempos hasta aho' +
'ra*/'#10'/* AND (FACTURAS_PROVEEDOR.FECHA_FACTURA BETWEEN '#39'12.1' +
'2.2000'#39' AND current_date) */'#10' GROUP BY 1, 2)'#10#10' GRO' +
'UP BY 1, 2) MARGEN_COMPRAS'#10#10#10'ON (MARGEN_COMPRAS.ID_EMPRESA = MAR' +
'GEN_VENTAS.ID_EMPRESA)'#10'AND (MARGEN_COMPRAS.ID_ARTICULO = MARGEN_' +
'VENTAS.ID_ARTICULO)'#10#10#10'LEFT JOIN ARTICULOS ON (ARTICULOS.ID = MAR' +
'GEN_VENTAS.ID_ARTICULO)'#10'/*LEFT JOIN CONTACTOS CLIENTES ON (CLIEN' +
'TES.ID = MARGEN_VENTAS.ID_CLIENTE)*/'#10'/*LEFT JOIN CLIENTES_DATOS ' +
'ON (CLIENTES_DATOS.ID_CLIENTE = CLIENTES.ID)*/'#10'/*LEFT JOIN CONTA' +
'CTOS AGENTES ON (AGENTES.ID = CLIENTES_DATOS.ID_AGENTE)*/'#10'WHERE ' +
'ARTICULOS.INVENTARIABLE = 1) INF_MARGEN_ARTICULOS'
StatementType = stSQL
ColumnMappings = <
item
DatasetField = 'ID_ARTICULO'
TableField = 'ID_ARTICULO'
end
item
DatasetField = 'FAMILIA'
TableField = 'FAMILIA'
end
item
DatasetField = 'REFERENCIA'
TableField = 'REFERENCIA'
end
item
DatasetField = 'REFERENCIA_PROV'
TableField = 'REFERENCIA_PROV'
end
item
DatasetField = 'DESCRIPCION'
TableField = 'DESCRIPCION'
end
item
DatasetField = 'COMISIONABLE'
TableField = 'COMISIONABLE'
end
item
DatasetField = 'INVENTARIABLE'
TableField = 'INVENTARIABLE'
end
item
DatasetField = 'ID_EMPRESA'
TableField = 'ID_EMPRESA'
end
item
DatasetField = 'IMP_UNIDAD_ULT_VENT'
TableField = 'IMP_UNIDAD_ULT_VENT'
end
item
DatasetField = 'IMP_NETO_ULT_VENT'
TableField = 'IMP_NETO_ULT_VENT'
end
item
DatasetField = 'IMP_PORTE_ULT_VENT'
TableField = 'IMP_PORTE_ULT_VENT'
end
item
DatasetField = 'IMP_UNIDAD_PRO_VENT'
TableField = 'IMP_UNIDAD_PRO_VENT'
end
item
DatasetField = 'IMP_NETO_PRO_VENT'
TableField = 'IMP_NETO_PRO_VENT'
end
item
DatasetField = 'IMP_PORTE_PRO_VENT'
TableField = 'IMP_PORTE_PRO_VENT'
end
item
DatasetField = 'IMP_UNIDAD_COMPRA'
TableField = 'IMP_UNIDAD_COMPRA'
end
item
DatasetField = 'IMP_NETO_COMPRA'
TableField = 'IMP_NETO_COMPRA'
end
item
DatasetField = 'IMP_PORTE_COMPRA'
TableField = 'IMP_PORTE_COMPRA'
end
item
DatasetField = 'IMP_UNIDAD_ULT_COMP'
TableField = 'IMP_UNIDAD_ULT_COMP'
end
item
DatasetField = 'IMP_NETO_ULT_COMP'
TableField = 'IMP_NETO_ULT_COMP'
end
item
DatasetField = 'IMP_PORTE_ULT_COMP'
TableField = 'IMP_PORTE_ULT_COMP'
end
item
DatasetField = 'IMP_UNIDAD_PRO_COMP'
TableField = 'IMP_UNIDAD_PRO_COMP'
end
item
DatasetField = 'IMP_NETO_PRO_COMP'
TableField = 'IMP_NETO_PRO_COMP'
end
item
DatasetField = 'IMP_PORTE_PRO_COMP'
TableField = 'IMP_PORTE_PRO_COMP'
end
item
DatasetField = 'IMP_MARGEN_ULT_VENT_COMPRA'
TableField = 'IMP_MARGEN_ULT_VENT_COMPRA'
end
item
DatasetField = 'POR_MARGEN_ULT_VENT_COMPRA'
TableField = 'POR_MARGEN_ULT_VENT_COMPRA'
end
item
DatasetField = 'IMP_MARGEN_ULT_VENT_ULT_COMP'
TableField = 'IMP_MARGEN_ULT_VENT_ULT_COMP'
end
item
DatasetField = 'POR_MARGEN_ULT_VENT_ULT_COMP'
TableField = 'POR_MARGEN_ULT_VENT_ULT_COMP'
end
item
DatasetField = 'IMP_MARGEN_ULT_VENT_PRO_COMP'
TableField = 'IMP_MARGEN_ULT_VENT_PRO_COMP'
end
item
DatasetField = 'POR_MARGEN_ULT_VENT_PRO_COMP'
TableField = 'POR_MARGEN_ULT_VENT_PRO_COMP'
end
item
DatasetField = 'IMP_MARGEN_PRO_VENT_COMPRA'
TableField = 'IMP_MARGEN_PRO_VENT_COMPRA'
end
item
DatasetField = 'POR_MARGEN_PRO_VENT_COMPRA'
TableField = 'POR_MARGEN_PRO_VENT_COMPRA'
end
item
DatasetField = 'IMP_MARGEN_PRO_VENT_ULT_COMP'
TableField = 'IMP_MARGEN_PRO_VENT_ULT_COMP'
end
item
DatasetField = 'POR_MARGEN_PRO_VENT_ULT_COMP'
TableField = 'POR_MARGEN_PRO_VENT_ULT_COMP'
end
item
DatasetField = 'IMP_MARGEN_PRO_VENT_PRO_COMP'
TableField = 'IMP_MARGEN_PRO_VENT_PRO_COMP'
end
item
DatasetField = 'POR_MARGEN_PRO_VENT_PRO_COMP'
TableField = 'POR_MARGEN_PRO_VENT_PRO_COMP'
end>
end>
Name = 'InfMargenArticulo2'
Fields = <
item
Name = 'ID_EMPRESA'
DataType = datInteger
BlobType = dabtUnknown
DictionaryEntry = 'InfVentasArticulo_ID_EMPRESA'
InPrimaryKey = False
Calculated = False
Lookup = False
LookupCache = False
end
item
Name = 'ID_ARTICULO'
DataType = datInteger
BlobType = dabtUnknown
DictionaryEntry = 'InfVentasArticulo_ID_ARTICULO'
InPrimaryKey = True
Calculated = False
Lookup = False
LookupCache = False
end
item
Name = 'FAMILIA'
DataType = datString
Size = 255
BlobType = dabtUnknown
DictionaryEntry = 'InfVentasArticulo_FAMILIA'
InPrimaryKey = False
Calculated = False
Lookup = False
LookupCache = False
end
item
Name = 'REFERENCIA'
DataType = datString
Size = 255
BlobType = dabtUnknown
DictionaryEntry = 'InfVentasArticulo_REFERENCIA'
InPrimaryKey = False
Calculated = False
Lookup = False
LookupCache = False
end
item
Name = 'REFERENCIA_PROV'
DataType = datString
Size = 255
BlobType = dabtUnknown
DictionaryEntry = 'InfVentasArticulo_REFERENCIA_PROV'
InPrimaryKey = False
Calculated = False
Lookup = False
LookupCache = False
end
item
Name = 'DESCRIPCION'
DataType = datString
Size = 255
BlobType = dabtUnknown
DictionaryEntry = 'InfVentasArticulo_DESCRIPCION'
InPrimaryKey = False
Calculated = False
Lookup = False
LookupCache = False
end
item
Name = 'COMISIONABLE'
DataType = datInteger
BlobType = dabtUnknown
DictionaryEntry = 'InfVentasArticulo_COMISIONABLE'
InPrimaryKey = False
Calculated = False
Lookup = False
LookupCache = False
end
item
Name = 'INVENTARIABLE'
DataType = datInteger
BlobType = dabtUnknown
DictionaryEntry = 'InfVentasArticulo_INVENTARIABLE'
InPrimaryKey = False
Calculated = False
Lookup = False
LookupCache = False
end
item
Name = 'IMP_UNIDAD_ULT_VENT'
DataType = datFloat
BlobType = dabtUnknown
DisplayWidth = 0
Alignment = taLeftJustify
InPrimaryKey = False
Calculated = False
Lookup = False
LookupCache = False
end
item
Name = 'IMP_NETO_ULT_VENT'
DataType = datFloat
BlobType = dabtUnknown
DisplayWidth = 0
Alignment = taLeftJustify
InPrimaryKey = False
Calculated = False
Lookup = False
LookupCache = False
end
item
Name = 'IMP_PORTE_ULT_VENT'
DataType = datFloat
BlobType = dabtUnknown
DisplayWidth = 0
Alignment = taLeftJustify
InPrimaryKey = False
Calculated = False
Lookup = False
LookupCache = False
end
item
Name = 'IMP_UNIDAD_PRO_VENT'
DataType = datFloat
BlobType = dabtUnknown
DisplayWidth = 0
Alignment = taLeftJustify
InPrimaryKey = False
Calculated = False
Lookup = False
LookupCache = False
end
item
Name = 'IMP_NETO_PRO_VENT'
DataType = datFloat
BlobType = dabtUnknown
DisplayWidth = 0
Alignment = taLeftJustify
InPrimaryKey = False
Calculated = False
Lookup = False
LookupCache = False
end
item
Name = 'IMP_PORTE_PRO_VENT'
DataType = datFloat
BlobType = dabtUnknown
DisplayWidth = 0
Alignment = taLeftJustify
InPrimaryKey = False
Calculated = False
Lookup = False
LookupCache = False
end
item
Name = 'IMP_UNIDAD_COMPRA'
DataType = datFloat
BlobType = dabtUnknown
DisplayWidth = 0
Alignment = taLeftJustify
InPrimaryKey = False
Calculated = False
Lookup = False
LookupCache = False
end
item
Name = 'IMP_NETO_COMPRA'
DataType = datFloat
BlobType = dabtUnknown
DisplayWidth = 0
Alignment = taLeftJustify
InPrimaryKey = False
Calculated = False
Lookup = False
LookupCache = False
end
item
Name = 'IMP_PORTE_COMPRA'
DataType = datFloat
BlobType = dabtUnknown
DisplayWidth = 0
Alignment = taLeftJustify
InPrimaryKey = False
Calculated = False
Lookup = False
LookupCache = False
end
item
Name = 'IMP_UNIDAD_ULT_COMP'
DataType = datFloat
BlobType = dabtUnknown
DisplayWidth = 0
Alignment = taLeftJustify
InPrimaryKey = False
Calculated = False
Lookup = False
LookupCache = False
end
item
Name = 'IMP_NETO_ULT_COMP'
DataType = datFloat
BlobType = dabtUnknown
DisplayWidth = 0
Alignment = taLeftJustify
InPrimaryKey = False
Calculated = False
Lookup = False
LookupCache = False
end
item
Name = 'IMP_PORTE_ULT_COMP'
DataType = datFloat
BlobType = dabtUnknown
DisplayWidth = 0
Alignment = taLeftJustify
InPrimaryKey = False
Calculated = False
Lookup = False
LookupCache = False
end
item
Name = 'IMP_UNIDAD_PRO_COMP'
DataType = datFloat
BlobType = dabtUnknown
DisplayWidth = 0
Alignment = taLeftJustify
InPrimaryKey = False
Calculated = False
Lookup = False
LookupCache = False
end
item
Name = 'IMP_NETO_PRO_COMP'
DataType = datFloat
BlobType = dabtUnknown
DisplayWidth = 0
Alignment = taLeftJustify
InPrimaryKey = False
Calculated = False
Lookup = False
LookupCache = False
end
item
Name = 'IMP_PORTE_PRO_COMP'
DataType = datFloat
BlobType = dabtUnknown
DisplayWidth = 0
Alignment = taLeftJustify
InPrimaryKey = False
Calculated = False
Lookup = False
LookupCache = False
end
item
Name = 'IMP_MARGEN_ULT_VENT_COMPRA'
DataType = datFloat
BlobType = dabtUnknown
DisplayWidth = 0
Alignment = taLeftJustify
InPrimaryKey = False
Calculated = False
Lookup = False
LookupCache = False
end
item
Name = 'POR_MARGEN_ULT_VENT_COMPRA'
DataType = datFloat
BlobType = dabtUnknown
DisplayWidth = 0
Alignment = taLeftJustify
InPrimaryKey = False
Calculated = False
Lookup = False
LookupCache = False
end
item
Name = 'IMP_MARGEN_ULT_VENT_ULT_COMP'
DataType = datFloat
BlobType = dabtUnknown
DisplayWidth = 0
Alignment = taLeftJustify
InPrimaryKey = False
Calculated = False
Lookup = False
LookupCache = False
end
item
Name = 'POR_MARGEN_ULT_VENT_ULT_COMP'
DataType = datFloat
BlobType = dabtUnknown
DisplayWidth = 0
Alignment = taLeftJustify
InPrimaryKey = False
Calculated = False
Lookup = False
LookupCache = False
end
item
Name = 'IMP_MARGEN_ULT_VENT_PRO_COMP'
DataType = datFloat
BlobType = dabtUnknown
DisplayWidth = 0
Alignment = taLeftJustify
InPrimaryKey = False
Calculated = False
Lookup = False
LookupCache = False
end
item
Name = 'POR_MARGEN_ULT_VENT_PRO_COMP'
DataType = datFloat
BlobType = dabtUnknown
DisplayWidth = 0
Alignment = taLeftJustify
InPrimaryKey = False
Calculated = False
Lookup = False
LookupCache = False
end
item
Name = 'IMP_MARGEN_PRO_VENT_COMPRA'
DataType = datFloat
BlobType = dabtUnknown
DisplayWidth = 0
Alignment = taLeftJustify
InPrimaryKey = False
Calculated = False
Lookup = False
LookupCache = False
end
item
Name = 'POR_MARGEN_PRO_VENT_COMPRA'
DataType = datFloat
BlobType = dabtUnknown
DisplayWidth = 0
Alignment = taLeftJustify
InPrimaryKey = False
Calculated = False
Lookup = False
LookupCache = False
end
item
Name = 'IMP_MARGEN_PRO_VENT_ULT_COMP'
DataType = datFloat
BlobType = dabtUnknown
DisplayWidth = 0
Alignment = taLeftJustify
InPrimaryKey = False
Calculated = False
Lookup = False
LookupCache = False
end
item
Name = 'POR_MARGEN_PRO_VENT_ULT_COMP'
DataType = datFloat
BlobType = dabtUnknown
DisplayWidth = 0
Alignment = taLeftJustify
InPrimaryKey = False
Calculated = False
Lookup = False
LookupCache = False
end
item
Name = 'IMP_MARGEN_PRO_VENT_PRO_COMP'
DataType = datFloat
BlobType = dabtUnknown
DisplayWidth = 0
Alignment = taLeftJustify
InPrimaryKey = False
Calculated = False
Lookup = False
LookupCache = False
end
item
Name = 'POR_MARGEN_PRO_VENT_PRO_COMP'
DataType = datFloat
BlobType = dabtUnknown
DisplayWidth = 0
Alignment = taLeftJustify
InPrimaryKey = False
Calculated = False
Lookup = False
LookupCache = False
end>
BusinessRulesClient.ScriptLanguage = rslPascalScript
BusinessRulesServer.ScriptLanguage = rslPascalScript
end>
Commands = <>
RelationShips = <>

6
Source/Modulos/Informe margen por articulo/Views/uViewInfMargenArticulo.pas
View File

@ -100,6 +100,12 @@ begin
for i:= 0 to AColumnsGroup.Count - 1 do
AColumns.Add((frViewInfMargenArticuloGrid1 as IViewInformeBaseGrid).GetColumnByCaption(AColumnsGroup.Strings[i]).DataBinding.FieldName);
//PRUEBA
Datos.DataTable.Active := False;
FDatos.VisibleColumns := AColumns.CommaText;
with Datos.DataTable do

2
Source/Modulos/Inventario/Controller/Inventario_controller.bdsproj
View File

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

3
Source/Modulos/Inventario/Controller/Inventario_controller.dpk
View File

@ -52,6 +52,7 @@ contains
uIEditorElegirArticulosCatalogo in 'View\uIEditorElegirArticulosCatalogo.pas',
uIEditorElegirArticulosAlmacen in 'View\uIEditorElegirArticulosAlmacen.pas',
uInventarioUtils in '..\Utiles\uInventarioUtils.pas' {dmInventarioUtils: TDataModule},
uIEditorDetalleReservas in 'View\uIEditorDetalleReservas.pas';
uIEditorDetalleReservas in 'View\uIEditorDetalleReservas.pas',
uIEditorDetallesSinAlbaran in 'View\uIEditorDetallesSinAlbaran.pas';
end.

23
Source/Modulos/Inventario/Controller/View/uIEditorDetallesSinAlbaran.pas Normal file
View File

@ -0,0 +1,23 @@
unit uIEditorDetallesSinAlbaran;
interface
uses
uEditorGridBase, uBizInventario, uInventarioController;
type
IEditorDetallesSinAlbaran = interface(IEditorGridBase)
['{EE301C2F-98DC-49CD-B7EA-D29D0B9326D8}']
function GetDetalles: IBizDetalleSinAlbaran;
procedure SetDetalles(const Value: IBizDetalleSinAlbaran);
property Detalles: IBizDetalleSinAlbaran read GetDetalles write SetDetalles;
function GetController : IInventarioController;
procedure SetController (const Value : IInventarioController);
property Controller : IInventarioController read GetController write SetController;
end;
implementation
end.

74
Source/Modulos/Inventario/Controller/uInventarioController.pas
View File

@ -25,11 +25,14 @@ type
function Ver(AArticulos: IBizInventario; AInventario : IBizInventario; APedido: IBizPedidoProveedor = Nil): Boolean;
procedure VerTodos(AInventario: IBizInventario);
procedure VerReservas(AArticulo: IBizInventario);
procedure VerSinAlbaran; //(AArticulo: IBizInventario);
function BuscarTodos: IBizInventario;
function Buscar(const ID_ALMACEN: Integer): IBizInventario;
function BuscarDetalleReservas: IBizDetalleReservas;
function ExtraerSeleccionados(AArticulos: IBizInventario) : IBizInventario;
function BuscarDetallesSinAlbaran: IBizDetalleSinAlbaran;
function ExtraerSeleccionados(AArticulos: IBizInventario) : IBizInventario; overload;
function ExtraerSeleccionados(AArticulos: IBizDetalleSinAlbaran) : IBizDetalleSinAlbaran; overload;
procedure Anadir(AArticulos, AInventario : IBizInventario);
function Guardar(AArticulos : IBizInventario; const FechaMovimiento: TDateTime; const CausaMovimiento: String): Boolean;
@ -79,6 +82,7 @@ type
procedure FiltrarEmpresa(AInventario: IBizInventario); overload;
procedure FiltrarEmpresa(ADetalleReservas: IBizDetalleReservas); overload;
procedure FiltrarEmpresa(ADetalleSinAlbaran: IBizDetalleSinAlbaran); overload;
procedure DeshabilitarOnCalcFields(Sender: TDADataTable);
function ValidarCantidades(AArticulos: IBizInventario): Boolean;
function Validar(AArticulos: IBizInventario): Boolean;
@ -105,8 +109,10 @@ type
function Buscar(const ID_ALMACEN: Integer): IBizInventario;
function BuscarTodos: IBizInventario;
function BuscarDetalleReservas: IBizDetalleReservas;
function BuscarDetallesSinAlbaran: IBizDetalleSinAlbaran;
function ElegirArticulos(AArticulos : IBizInventario; AMensaje: String; AMultiSelect: Boolean): IBizInventario;
function ExtraerSeleccionados(AArticulos: IBizInventario) : IBizInventario;
function ExtraerSeleccionados(AArticulos: IBizInventario) : IBizInventario; overload;
function ExtraerSeleccionados(AArticulos: IBizDetalleSinAlbaran) : IBizDetalleSinAlbaran; overload;
procedure Anadir(AArticulos, AInventario : IBizInventario);
function Eliminar(AInventario : IBizInventario; Todos: Boolean; ApplyUpdates: Boolean): Boolean;
@ -121,6 +127,7 @@ type
function Ver(AArticulos: IBizInventario; AInventario : IBizInventario; APedido: IBizPedidoProveedor = Nil): Boolean;
procedure VerReservas(AArticulo: IBizInventario);
procedure VerSinAlbaran;
function Guardar(AArticulos : IBizInventario; const FechaMovimiento: TDateTime; const CausaMovimiento: String): Boolean;
@ -139,7 +146,7 @@ uses
uControllerDetallesBase, uDialogUtils,
uIEditorEntradaSalidaArticulos, schArticulosClient_Intf,
uIEditorElegirArticulosAlmacen, uInventarioUtils,
uIEditorDetalleReservas;
uIEditorDetalleReservas, uIEditorDetallesSinAlbaran;
{ TInventarioController }
@ -189,6 +196,12 @@ begin
FiltrarEmpresa(Result);
end;
function TInventarioController.BuscarDetallesSinAlbaran: IBizDetalleSinAlbaran;
begin
Result := FDataModule.GetDetalleSinAlbaran;
FiltrarEmpresa(Result);
end;
function TInventarioController.BuscarTodos: IBizInventario;
begin
Result := FDataModule.GetItems;
@ -481,7 +494,7 @@ begin
with AEditor do
begin
// Controller := Self; //OJO ORDEN MUY IMPORTANTE
DetalleReservas := FDataModule.GetDetalleReservas;
DetalleReservas := BuscarDetalleReservas;
Articulo := AArticulo;
// MultiSelect := False;
end;
@ -498,6 +511,33 @@ begin
end;
end;
procedure TInventarioController.VerSinAlbaran;
var
AEditor : IEditorDetallesSinAlbaran;
begin
AEditor := NIL;
ShowHourglassCursor;
try
CreateEditor('EditorDetallesSinAlbaran', IEditorDetallesSinAlbaran, AEditor);
with AEditor do
begin
Controller := Self; //OJO ORDEN MUY IMPORTANTE
Detalles := BuscarDetallesSinAlbaran;
MultiSelect := True;
end;
finally
HideHourglassCursor;
end;
if Assigned(AEditor) then
try
AEditor.ShowModal;
AEditor.Release;
finally
AEditor := NIL;
end;
end;
procedure TInventarioController.VerTodos(AInventario: IBizInventario);
var
AEditor : IEditorInventario;
@ -579,6 +619,15 @@ begin
Result := Ver(AArticulos, AInventario, APedido);
end;
function TInventarioController.ExtraerSeleccionados(AArticulos: IBizDetalleSinAlbaran): IBizDetalleSinAlbaran;
var
ASeleccionados : IBizDetalleSinAlbaran;
begin
ASeleccionados := (FDataModule as IDataModuleInventario).GetDetalleSinAlbaranVacio;
CopyDataTable(AArticulos.DataTable, ASeleccionados.DataTable, True);
Result := ASeleccionados;
end;
{procedure TInventarioController.RecibirArticulos(const APedido: IBizPedidoProveedor; const CodigoAlmacenDes: Integer);
{var
AArticulos: IBizInventario;
@ -1150,4 +1199,21 @@ begin
end;
}
procedure TInventarioController.FiltrarEmpresa(ADetalleSinAlbaran: IBizDetalleSinAlbaran);
begin
if ADetalleSinAlbaran.DataTable.Active then
ADetalleSinAlbaran.DataTable.Active := False;
// Filtrar los inventario actuales por empresa
with ADetalleSinAlbaran.DataTable.Where do
begin
if NotEmpty then
AddOperator(opAND);
OpenBraket;
AddText(fld_DETALLE_SIN_ALBARANARID_EMPRESA + ' = ' + IntToStr(dmUsuarios.IDEmpresaActual));
CloseBraket;
end;
end;
end.

2
Source/Modulos/Inventario/Data/Inventario_data.bdsproj
View File

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

320
Source/Modulos/Inventario/Data/uDataModuleInventario.dfm
View File

@ -66,7 +66,7 @@ object DataModuleInventario: TDataModuleInventario
ProbeServers = False
ProbeFrequency = 60000
UserAgent = 'RemObjects SDK'
TargetURL = 'http://localhost:8090/bin'
TargetURL = 'http://localhost:8099/bin'
Left = 48
Top = 272
end
@ -718,4 +718,322 @@ object DataModuleInventario: TDataModuleInventario
Left = 408
Top = 104
end
object tbl_DETALLE_SIN_ALBARANAR: TDACDSDataTable
RemoteUpdatesOptions = []
Fields = <
item
Name = 'ID_PEDIDO'
DataType = datInteger
BlobType = dabtUnknown
DisplayWidth = 0
Alignment = taLeftJustify
DictionaryEntry = 'DETALLE_SIN_ALBARANAR_ID_PEDIDO'
InPrimaryKey = False
Calculated = False
Lookup = False
LookupCache = False
end
item
Name = 'ID_EMPRESA'
DataType = datInteger
BlobType = dabtUnknown
DisplayWidth = 0
Alignment = taLeftJustify
InPrimaryKey = False
Calculated = False
Lookup = False
LookupCache = False
end
item
Name = 'REFERENCIA_PEDIDO'
DataType = datString
Size = 255
BlobType = dabtUnknown
DisplayWidth = 0
DisplayLabel = 'Ref. pedido'
Alignment = taLeftJustify
DictionaryEntry = 'DETALLE_SIN_ALBARANAR_REFERENCIA_PEDIDO'
InPrimaryKey = False
Calculated = False
Lookup = False
LookupCache = False
end
item
Name = 'FECHA_PEDIDO'
DataType = datDateTime
BlobType = dabtUnknown
DisplayWidth = 0
DisplayLabel = 'Fecha'
Alignment = taLeftJustify
DictionaryEntry = 'DETALLE_SIN_ALBARANAR_FECHA_PEDIDO'
InPrimaryKey = False
Calculated = False
Lookup = False
LookupCache = False
end
item
Name = 'FECHA_PREVISTA_PEDIDO'
DataType = datDateTime
BlobType = dabtUnknown
DisplayWidth = 0
DisplayLabel = 'Fecha prevista envio'
Alignment = taLeftJustify
DictionaryEntry = 'DETALLE_SIN_ALBARANAR_FECHA_PREVISTA_PEDIDO'
InPrimaryKey = False
Calculated = False
Lookup = False
LookupCache = False
end
item
Name = 'ID_CLIENTE'
DataType = datInteger
BlobType = dabtUnknown
DisplayWidth = 0
Alignment = taLeftJustify
DictionaryEntry = 'DETALLE_SIN_ALBARANAR_ID_CLIENTE'
InPrimaryKey = False
Calculated = False
Lookup = False
LookupCache = False
end
item
Name = 'CLIENTE'
DataType = datString
Size = 255
BlobType = dabtUnknown
DisplayWidth = 0
DisplayLabel = 'Cliente'
Alignment = taLeftJustify
DictionaryEntry = 'DETALLE_SIN_ALBARANAR_CLIENTE'
InPrimaryKey = False
Calculated = False
Lookup = False
LookupCache = False
end
item
Name = 'ID'
DataType = datInteger
BlobType = dabtUnknown
DisplayWidth = 0
Alignment = taLeftJustify
InPrimaryKey = False
Calculated = False
Lookup = False
LookupCache = False
end
item
Name = 'FAMILIA'
DataType = datString
Size = 255
BlobType = dabtUnknown
DisplayWidth = 0
DisplayLabel = 'Familia'
Alignment = taLeftJustify
DictionaryEntry = 'DETALLE_SIN_ALBARANAR_FAMILIA'
InPrimaryKey = False
Calculated = False
Lookup = False
LookupCache = False
end
item
Name = 'REFERENCIA'
DataType = datString
Size = 255
BlobType = dabtUnknown
DisplayWidth = 0
DisplayLabel = 'Referencia'
Alignment = taLeftJustify
DictionaryEntry = 'DETALLE_SIN_ALBARANAR_REFERENCIA'
InPrimaryKey = False
Calculated = False
Lookup = False
LookupCache = False
end
item
Name = 'REFERENCIA_PROVEEDOR'
DataType = datString
Size = 255
BlobType = dabtUnknown
DisplayWidth = 0
DisplayLabel = 'Ref. proveedor'
Alignment = taLeftJustify
DictionaryEntry = 'DETALLE_SIN_ALBARANAR_REFERENCIA_PROVEEDOR'
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 = 'DETALLE_SIN_ALBARANAR_DESCRIPCION'
InPrimaryKey = False
Calculated = False
Lookup = False
LookupCache = False
end
item
Name = 'CANTIDAD_PEDIDA'
DataType = datInteger
BlobType = dabtUnknown
DisplayWidth = 0
DisplayLabel = 'Cant. pedida'
Alignment = taRightJustify
DictionaryEntry = 'DETALLE_SIN_ALBARANAR_CANTIDAD_PEDIDA'
InPrimaryKey = False
Calculated = False
Lookup = False
LookupCache = False
end
item
Name = 'CANTIDAD_RESERVADA'
DataType = datInteger
BlobType = dabtUnknown
DisplayWidth = 0
DisplayLabel = 'Cant. reservada'
Alignment = taRightJustify
DictionaryEntry = 'DETALLE_SIN_ALBARANAR_CANTIDAD_RESERVADA'
InPrimaryKey = False
Calculated = False
Lookup = False
LookupCache = False
end
item
Name = 'CANTIDAD_ENVIADA'
DataType = datInteger
BlobType = dabtUnknown
DisplayWidth = 0
DisplayLabel = 'Cant. enviada'
Alignment = taRightJustify
DictionaryEntry = 'DETALLE_SIN_ALBARANAR_CANTIDAD_ENVIADA'
InPrimaryKey = False
Calculated = False
Lookup = False
LookupCache = False
end
item
Name = 'CANTIDAD_SERVIDA'
DataType = datInteger
BlobType = dabtUnknown
DisplayWidth = 0
DisplayLabel = 'Cant. servida'
Alignment = taRightJustify
DictionaryEntry = 'DETALLE_SIN_ALBARANAR_CANTIDAD_SERVIDA'
InPrimaryKey = False
Calculated = False
Lookup = False
LookupCache = False
end
item
Name = 'CANTIDAD_PENDIENTE'
DataType = datInteger
BlobType = dabtUnknown
DisplayWidth = 0
DisplayLabel = 'Cant. pendiente'
Alignment = taRightJustify
DictionaryEntry = 'DETALLE_SIN_ALBARANAR_CANTIDAD_PENDIENTE'
InPrimaryKey = False
Calculated = False
Lookup = False
LookupCache = False
end>
Params = <>
MasterMappingMode = mmDataRequest
StreamingOptions = [soDisableEventsWhileStreaming]
SchemaCall.MethodName = 'GetDatasetSchema'
SchemaCall.Params = <
item
Name = 'Result'
ParamType = fResult
DataType = rtBinary
end
item
Name = 'aDatasetName'
ParamType = fIn
DataType = rtString
Value = 'DETALLE_SIN_ALBARANAR'
end>
DataRequestCall.MethodName = 'GetDatasetDataEx'
DataRequestCall.Params = <
item
Name = 'Result'
ParamType = fResult
DataType = rtBinary
end
item
Name = 'DatasetName'
ParamType = fIn
DataType = rtString
Value = 'DETALLE_SIN_ALBARANAR'
end
item
Name = 'Params'
ParamType = fIn
DataType = rtUserDefined
UserClassName = 'TDADatasetParamArray'
end
item
Name = 'UserFilter'
ParamType = fIn
DataType = rtString
Value = ''
end
item
Name = 'IncludeSchema'
ParamType = fIn
DataType = rtBoolean
Value = False
end
item
Name = 'MaxRecords'
ParamType = fIn
DataType = rtInteger
Value = -1
end>
DataUpdateCall.MethodName = 'UpdateData'
DataUpdateCall.Params = <
item
Name = 'Result'
ParamType = fResult
DataType = rtBinary
end
item
Name = 'Delta'
ParamType = fIn
DataType = rtBinary
end>
ScriptCall.MethodName = 'GetDatasetScripts'
ScriptCall.Params = <
item
Name = 'Result'
ParamType = fResult
DataType = rtString
Value = ''
end
item
Name = 'DatasetNames'
ParamType = fIn
DataType = rtString
Value = 'DETALLE_SIN_ALBARANAR'
end>
ReadOnly = False
RemoteService = RORemoteService
Adapter = DABinAdapter
DetailOptions = [dtCascadeOpenClose, dtCascadeApplyUpdates, dtAutoFetch, dtCascadeDelete, dtCascadeUpdate, dtDisableLogOfCascadeDeletes, dtDisableLogOfCascadeUpdates, dtIncludeInAllInOneFetch]
MasterOptions = [moCascadeOpenClose, moCascadeApplyUpdates, moCascadeDelete, moCascadeUpdate, moDisableLogOfCascadeDeletes, moDisableLogOfCascadeUpdates]
LogicalName = 'DETALLE_SIN_ALBARANAR'
IndexDefs = <>
Left = 408
Top = 296
end
object ds_DETALLE_SIN_ALBARANAR: TDADataSource
DataTable = tbl_DETALLE_SIN_ALBARANAR
Left = 408
Top = 232
end
end

37
Source/Modulos/Inventario/Data/uDataModuleInventario.pas
View File

@ -21,6 +21,8 @@ type
ds_INVENTARIO: TDADataSource;
tbl_DetalleReservas: TDACDSDataTable;
dsDetalleReservas: TDADataSource;
tbl_DETALLE_SIN_ALBARANAR: TDACDSDataTable;
ds_DETALLE_SIN_ALBARANAR: TDADataSource;
procedure DAClientDataModuleCreate(Sender: TObject);
protected
@ -31,6 +33,8 @@ type
function GetItems(const ID_ALMACEN : Integer) : IBizInventario; overload;
function GetNextID(const DataSetName : String) : Integer;
function GetDetalleReservas: IBizDetalleReservas;
function GetDetalleSinAlbaran: IBizDetalleSinAlbaran;
function GetDetalleSinAlbaranVacio: IBizDetalleSinAlbaran;
end;
implementation
@ -89,6 +93,39 @@ begin
end;
end;
function TDataModuleInventario.GetDetalleSinAlbaran: IBizDetalleSinAlbaran;
var
ADetalleSinAlbaran : TDACDSDataTable;
begin
ShowHourglassCursor;
try
ADetalleSinAlbaran := _CloneDataTable(tbl_Detalle_sin_albaranar);
ADetalleSinAlbaran.BusinessRulesID := BIZ_CLIENT_DETALLE_SINALBARAN;
Result := (ADetalleSinAlbaran as IBizDetalleSinAlbaran);
finally
HideHourglassCursor;
end;
end;
function TDataModuleInventario.GetDetalleSinAlbaranVacio: IBizDetalleSinAlbaran;
begin
ShowHourglassCursor;
try
Result := Self.GetDetalleSinAlbaran;
with Result.DataTable.Where do
begin
if NotEmpty then
AddOperator(opAND);
OpenBraket;
AddText(fld_DETALLE_SIN_ALBARANARID_PEDIDO + ' = ' + IntToStr(ID_NULO));
CloseBraket;
end;
finally
HideHourglassCursor;
end;
end;
function TDataModuleInventario.GetItems(const ID_ALMACEN: Integer): IBizInventario;
begin
ShowHourglassCursor;

5
Source/Modulos/Inventario/Inventario_Group.bdsgroup
View File

@ -20,7 +20,10 @@
<Projects Name="Inventario_controller.bpl">Controller\Inventario_controller.bdsproj</Projects>
<Projects Name="Inventario_view.bpl">Views\Inventario_view.bdsproj</Projects>
<Projects Name="Inventario_plugin.bpl">Plugin\Inventario_plugin.bdsproj</Projects>
<Projects Name="Targets">DataAbstract_D10.bpl Base.bpl ControllerBase.bpl GUIBase.bpl Contactos_view.bpl Articulos_view.bpl Inventario_model.bpl Inventario_data.bpl Inventario_controller.bpl Inventario_view.bpl Inventario_plugin.bpl</Projects>
<Projects Name="FactuGES_Server.exe">..\..\Servidor\FactuGES_Server.bdsproj</Projects>
<Projects Name="AlbaranesCliente_view.bpl">..\Albaranes de cliente\Views\AlbaranesCliente_view.bdsproj</Projects>
<Projects Name="FactuGES.exe">..\..\Cliente\FactuGES.bdsproj</Projects>
<Projects Name="Targets">DataAbstract_D10.bpl Base.bpl ControllerBase.bpl GUIBase.bpl Contactos_view.bpl Articulos_view.bpl Inventario_model.bpl Inventario_data.bpl Inventario_controller.bpl Inventario_view.bpl Inventario_plugin.bpl FactuGES_Server.exe AlbaranesCliente_view.bpl FactuGES.exe</Projects>
</Projects>
<Dependencies/>
</Default.Personality>

4
Source/Modulos/Inventario/Model/Data/uIDataModuleInventario.pas
View File

@ -11,7 +11,9 @@ type
function GetItems: IBizInventario; overload;
function GetItems(const ID_ALMACEN : Integer) : IBizInventario; overload;
function GetNextID(const DataSetName : String) : Integer;
function GetDetalleReservas: IBizDetalleReservas;
function GetDetalleReservas: IBizDetalleReservas;
function GetDetalleSinAlbaran: IBizDetalleSinAlbaran;
function GetDetalleSinAlbaranVacio: IBizDetalleSinAlbaran;
end;
implementation

356
Source/Modulos/Inventario/Model/schInventarioClient_Intf.pas
View File

@ -9,12 +9,14 @@ 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_INVENTARIO = '{3AB4E732-7897-4CF1-8E79-E09DD13DC2E9}';
RID_DETALLE_RESERVAS_INV = '{EE8DE96E-5709-43B7-9AB0-B67D3DFA1353}';
RID_INVENTARIO = '{7FEDC6B5-5119-4AFA-B40D-373CF924641E}';
RID_DETALLE_RESERVAS_INV = '{0F32465D-7A01-43D4-A355-F79937DFA30B}';
RID_DETALLE_SIN_ALBARANAR = '{D945D1DF-8D83-4303-B2B8-D2720003AA88}';
{ Data table names }
nme_INVENTARIO = 'INVENTARIO';
nme_DETALLE_RESERVAS_INV = 'DETALLE_RESERVAS_INV';
nme_DETALLE_SIN_ALBARANAR = 'DETALLE_SIN_ALBARANAR';
{ INVENTARIO fields }
fld_INVENTARIOID = 'ID';
@ -92,10 +94,48 @@ const
idx_DETALLE_RESERVAS_INVDESCRIPCION_ART = 13;
idx_DETALLE_RESERVAS_INVCANTIDAD_ART = 14;
{ DETALLE_SIN_ALBARANAR fields }
fld_DETALLE_SIN_ALBARANARID_PEDIDO = 'ID_PEDIDO';
fld_DETALLE_SIN_ALBARANARID_EMPRESA = 'ID_EMPRESA';
fld_DETALLE_SIN_ALBARANARREFERENCIA_PEDIDO = 'REFERENCIA_PEDIDO';
fld_DETALLE_SIN_ALBARANARFECHA_PEDIDO = 'FECHA_PEDIDO';
fld_DETALLE_SIN_ALBARANARFECHA_PREVISTA_PEDIDO = 'FECHA_PREVISTA_PEDIDO';
fld_DETALLE_SIN_ALBARANARID_CLIENTE = 'ID_CLIENTE';
fld_DETALLE_SIN_ALBARANARCLIENTE = 'CLIENTE';
fld_DETALLE_SIN_ALBARANARID = 'ID';
fld_DETALLE_SIN_ALBARANARFAMILIA = 'FAMILIA';
fld_DETALLE_SIN_ALBARANARREFERENCIA = 'REFERENCIA';
fld_DETALLE_SIN_ALBARANARREFERENCIA_PROVEEDOR = 'REFERENCIA_PROVEEDOR';
fld_DETALLE_SIN_ALBARANARDESCRIPCION = 'DESCRIPCION';
fld_DETALLE_SIN_ALBARANARCANTIDAD_PEDIDA = 'CANTIDAD_PEDIDA';
fld_DETALLE_SIN_ALBARANARCANTIDAD_RESERVADA = 'CANTIDAD_RESERVADA';
fld_DETALLE_SIN_ALBARANARCANTIDAD_ENVIADA = 'CANTIDAD_ENVIADA';
fld_DETALLE_SIN_ALBARANARCANTIDAD_SERVIDA = 'CANTIDAD_SERVIDA';
fld_DETALLE_SIN_ALBARANARCANTIDAD_PENDIENTE = 'CANTIDAD_PENDIENTE';
{ DETALLE_SIN_ALBARANAR field indexes }
idx_DETALLE_SIN_ALBARANARID_PEDIDO = 0;
idx_DETALLE_SIN_ALBARANARID_EMPRESA = 1;
idx_DETALLE_SIN_ALBARANARREFERENCIA_PEDIDO = 2;
idx_DETALLE_SIN_ALBARANARFECHA_PEDIDO = 3;
idx_DETALLE_SIN_ALBARANARFECHA_PREVISTA_PEDIDO = 4;
idx_DETALLE_SIN_ALBARANARID_CLIENTE = 5;
idx_DETALLE_SIN_ALBARANARCLIENTE = 6;
idx_DETALLE_SIN_ALBARANARID = 7;
idx_DETALLE_SIN_ALBARANARFAMILIA = 8;
idx_DETALLE_SIN_ALBARANARREFERENCIA = 9;
idx_DETALLE_SIN_ALBARANARREFERENCIA_PROVEEDOR = 10;
idx_DETALLE_SIN_ALBARANARDESCRIPCION = 11;
idx_DETALLE_SIN_ALBARANARCANTIDAD_PEDIDA = 12;
idx_DETALLE_SIN_ALBARANARCANTIDAD_RESERVADA = 13;
idx_DETALLE_SIN_ALBARANARCANTIDAD_ENVIADA = 14;
idx_DETALLE_SIN_ALBARANARCANTIDAD_SERVIDA = 15;
idx_DETALLE_SIN_ALBARANARCANTIDAD_PENDIENTE = 16;
type
{ IINVENTARIO }
IINVENTARIO = interface(IDAStronglyTypedDataTable)
['{FF96221D-1DEB-42D7-9EB8-26DA6BD30F2A}']
['{50F9BCD9-A0E7-48C6-A3BB-5952AC159E3E}']
{ Property getters and setters }
function GetIDValue: Integer;
procedure SetIDValue(const aValue: Integer);
@ -232,7 +272,7 @@ type
{ IDETALLE_RESERVAS_INV }
IDETALLE_RESERVAS_INV = interface(IDAStronglyTypedDataTable)
['{D0FB81D1-6746-4FCF-94C2-AE823C8382C8}']
['{57FBAB34-DED9-4148-A261-77A2A78B4262}']
{ Property getters and setters }
function GetID_ALBValue: Integer;
procedure SetID_ALBValue(const aValue: Integer);
@ -343,6 +383,131 @@ type
end;
{ IDETALLE_SIN_ALBARANAR }
IDETALLE_SIN_ALBARANAR = interface(IDAStronglyTypedDataTable)
['{9D863A30-2A9F-40D8-9F69-FBCFEEBF9C27}']
{ Property getters and setters }
function GetID_PEDIDOValue: Integer;
procedure SetID_PEDIDOValue(const aValue: Integer);
function GetID_EMPRESAValue: Integer;
procedure SetID_EMPRESAValue(const aValue: Integer);
function GetREFERENCIA_PEDIDOValue: String;
procedure SetREFERENCIA_PEDIDOValue(const aValue: String);
function GetFECHA_PEDIDOValue: DateTime;
procedure SetFECHA_PEDIDOValue(const aValue: DateTime);
function GetFECHA_PREVISTA_PEDIDOValue: DateTime;
procedure SetFECHA_PREVISTA_PEDIDOValue(const aValue: DateTime);
function GetID_CLIENTEValue: Integer;
procedure SetID_CLIENTEValue(const aValue: Integer);
function GetCLIENTEValue: String;
procedure SetCLIENTEValue(const aValue: String);
function GetIDValue: Integer;
procedure SetIDValue(const aValue: Integer);
function GetFAMILIAValue: String;
procedure SetFAMILIAValue(const aValue: String);
function GetREFERENCIAValue: String;
procedure SetREFERENCIAValue(const aValue: String);
function GetREFERENCIA_PROVEEDORValue: String;
procedure SetREFERENCIA_PROVEEDORValue(const aValue: String);
function GetDESCRIPCIONValue: String;
procedure SetDESCRIPCIONValue(const aValue: String);
function GetCANTIDAD_PEDIDAValue: Integer;
procedure SetCANTIDAD_PEDIDAValue(const aValue: Integer);
function GetCANTIDAD_RESERVADAValue: Integer;
procedure SetCANTIDAD_RESERVADAValue(const aValue: Integer);
function GetCANTIDAD_ENVIADAValue: Integer;
procedure SetCANTIDAD_ENVIADAValue(const aValue: Integer);
function GetCANTIDAD_SERVIDAValue: Integer;
procedure SetCANTIDAD_SERVIDAValue(const aValue: Integer);
function GetCANTIDAD_PENDIENTEValue: Integer;
procedure SetCANTIDAD_PENDIENTEValue(const aValue: Integer);
{ Properties }
property ID_PEDIDO: Integer read GetID_PEDIDOValue write SetID_PEDIDOValue;
property ID_EMPRESA: Integer read GetID_EMPRESAValue write SetID_EMPRESAValue;
property REFERENCIA_PEDIDO: String read GetREFERENCIA_PEDIDOValue write SetREFERENCIA_PEDIDOValue;
property FECHA_PEDIDO: DateTime read GetFECHA_PEDIDOValue write SetFECHA_PEDIDOValue;
property FECHA_PREVISTA_PEDIDO: DateTime read GetFECHA_PREVISTA_PEDIDOValue write SetFECHA_PREVISTA_PEDIDOValue;
property ID_CLIENTE: Integer read GetID_CLIENTEValue write SetID_CLIENTEValue;
property CLIENTE: String read GetCLIENTEValue write SetCLIENTEValue;
property ID: Integer read GetIDValue write SetIDValue;
property FAMILIA: String read GetFAMILIAValue write SetFAMILIAValue;
property REFERENCIA: String read GetREFERENCIAValue write SetREFERENCIAValue;
property REFERENCIA_PROVEEDOR: String read GetREFERENCIA_PROVEEDORValue write SetREFERENCIA_PROVEEDORValue;
property DESCRIPCION: String read GetDESCRIPCIONValue write SetDESCRIPCIONValue;
property CANTIDAD_PEDIDA: Integer read GetCANTIDAD_PEDIDAValue write SetCANTIDAD_PEDIDAValue;
property CANTIDAD_RESERVADA: Integer read GetCANTIDAD_RESERVADAValue write SetCANTIDAD_RESERVADAValue;
property CANTIDAD_ENVIADA: Integer read GetCANTIDAD_ENVIADAValue write SetCANTIDAD_ENVIADAValue;
property CANTIDAD_SERVIDA: Integer read GetCANTIDAD_SERVIDAValue write SetCANTIDAD_SERVIDAValue;
property CANTIDAD_PENDIENTE: Integer read GetCANTIDAD_PENDIENTEValue write SetCANTIDAD_PENDIENTEValue;
end;
{ TDETALLE_SIN_ALBARANARDataTableRules }
TDETALLE_SIN_ALBARANARDataTableRules = class(TDADataTableRules, IDETALLE_SIN_ALBARANAR)
private
protected
{ Property getters and setters }
function GetID_PEDIDOValue: Integer; virtual;
procedure SetID_PEDIDOValue(const aValue: Integer); virtual;
function GetID_EMPRESAValue: Integer; virtual;
procedure SetID_EMPRESAValue(const aValue: Integer); virtual;
function GetREFERENCIA_PEDIDOValue: String; virtual;
procedure SetREFERENCIA_PEDIDOValue(const aValue: String); virtual;
function GetFECHA_PEDIDOValue: DateTime; virtual;
procedure SetFECHA_PEDIDOValue(const aValue: DateTime); virtual;
function GetFECHA_PREVISTA_PEDIDOValue: DateTime; virtual;
procedure SetFECHA_PREVISTA_PEDIDOValue(const aValue: DateTime); virtual;
function GetID_CLIENTEValue: Integer; virtual;
procedure SetID_CLIENTEValue(const aValue: Integer); virtual;
function GetCLIENTEValue: String; virtual;
procedure SetCLIENTEValue(const aValue: String); virtual;
function GetIDValue: Integer; virtual;
procedure SetIDValue(const aValue: Integer); virtual;
function GetFAMILIAValue: String; virtual;
procedure SetFAMILIAValue(const aValue: String); virtual;
function GetREFERENCIAValue: String; virtual;
procedure SetREFERENCIAValue(const aValue: String); virtual;
function GetREFERENCIA_PROVEEDORValue: String; virtual;
procedure SetREFERENCIA_PROVEEDORValue(const aValue: String); virtual;
function GetDESCRIPCIONValue: String; virtual;
procedure SetDESCRIPCIONValue(const aValue: String); virtual;
function GetCANTIDAD_PEDIDAValue: Integer; virtual;
procedure SetCANTIDAD_PEDIDAValue(const aValue: Integer); virtual;
function GetCANTIDAD_RESERVADAValue: Integer; virtual;
procedure SetCANTIDAD_RESERVADAValue(const aValue: Integer); virtual;
function GetCANTIDAD_ENVIADAValue: Integer; virtual;
procedure SetCANTIDAD_ENVIADAValue(const aValue: Integer); virtual;
function GetCANTIDAD_SERVIDAValue: Integer; virtual;
procedure SetCANTIDAD_SERVIDAValue(const aValue: Integer); virtual;
function GetCANTIDAD_PENDIENTEValue: Integer; virtual;
procedure SetCANTIDAD_PENDIENTEValue(const aValue: Integer); virtual;
{ Properties }
property ID_PEDIDO: Integer read GetID_PEDIDOValue write SetID_PEDIDOValue;
property ID_EMPRESA: Integer read GetID_EMPRESAValue write SetID_EMPRESAValue;
property REFERENCIA_PEDIDO: String read GetREFERENCIA_PEDIDOValue write SetREFERENCIA_PEDIDOValue;
property FECHA_PEDIDO: DateTime read GetFECHA_PEDIDOValue write SetFECHA_PEDIDOValue;
property FECHA_PREVISTA_PEDIDO: DateTime read GetFECHA_PREVISTA_PEDIDOValue write SetFECHA_PREVISTA_PEDIDOValue;
property ID_CLIENTE: Integer read GetID_CLIENTEValue write SetID_CLIENTEValue;
property CLIENTE: String read GetCLIENTEValue write SetCLIENTEValue;
property ID: Integer read GetIDValue write SetIDValue;
property FAMILIA: String read GetFAMILIAValue write SetFAMILIAValue;
property REFERENCIA: String read GetREFERENCIAValue write SetREFERENCIAValue;
property REFERENCIA_PROVEEDOR: String read GetREFERENCIA_PROVEEDORValue write SetREFERENCIA_PROVEEDORValue;
property DESCRIPCION: String read GetDESCRIPCIONValue write SetDESCRIPCIONValue;
property CANTIDAD_PEDIDA: Integer read GetCANTIDAD_PEDIDAValue write SetCANTIDAD_PEDIDAValue;
property CANTIDAD_RESERVADA: Integer read GetCANTIDAD_RESERVADAValue write SetCANTIDAD_RESERVADAValue;
property CANTIDAD_ENVIADA: Integer read GetCANTIDAD_ENVIADAValue write SetCANTIDAD_ENVIADAValue;
property CANTIDAD_SERVIDA: Integer read GetCANTIDAD_SERVIDAValue write SetCANTIDAD_SERVIDAValue;
property CANTIDAD_PENDIENTE: Integer read GetCANTIDAD_PENDIENTEValue write SetCANTIDAD_PENDIENTEValue;
public
constructor Create(aDataTable: TDADataTable); override;
destructor Destroy; override;
end;
implementation
uses Variants;
@ -711,8 +876,191 @@ begin
end;
{ TDETALLE_SIN_ALBARANARDataTableRules }
constructor TDETALLE_SIN_ALBARANARDataTableRules.Create(aDataTable: TDADataTable);
begin
inherited;
end;
destructor TDETALLE_SIN_ALBARANARDataTableRules.Destroy;
begin
inherited;
end;
function TDETALLE_SIN_ALBARANARDataTableRules.GetID_PEDIDOValue: Integer;
begin
result := DataTable.Fields[idx_DETALLE_SIN_ALBARANARID_PEDIDO].AsInteger;
end;
procedure TDETALLE_SIN_ALBARANARDataTableRules.SetID_PEDIDOValue(const aValue: Integer);
begin
DataTable.Fields[idx_DETALLE_SIN_ALBARANARID_PEDIDO].AsInteger := aValue;
end;
function TDETALLE_SIN_ALBARANARDataTableRules.GetID_EMPRESAValue: Integer;
begin
result := DataTable.Fields[idx_DETALLE_SIN_ALBARANARID_EMPRESA].AsInteger;
end;
procedure TDETALLE_SIN_ALBARANARDataTableRules.SetID_EMPRESAValue(const aValue: Integer);
begin
DataTable.Fields[idx_DETALLE_SIN_ALBARANARID_EMPRESA].AsInteger := aValue;
end;
function TDETALLE_SIN_ALBARANARDataTableRules.GetREFERENCIA_PEDIDOValue: String;
begin
result := DataTable.Fields[idx_DETALLE_SIN_ALBARANARREFERENCIA_PEDIDO].AsString;
end;
procedure TDETALLE_SIN_ALBARANARDataTableRules.SetREFERENCIA_PEDIDOValue(const aValue: String);
begin
DataTable.Fields[idx_DETALLE_SIN_ALBARANARREFERENCIA_PEDIDO].AsString := aValue;
end;
function TDETALLE_SIN_ALBARANARDataTableRules.GetFECHA_PEDIDOValue: DateTime;
begin
result := DataTable.Fields[idx_DETALLE_SIN_ALBARANARFECHA_PEDIDO].AsDateTime;
end;
procedure TDETALLE_SIN_ALBARANARDataTableRules.SetFECHA_PEDIDOValue(const aValue: DateTime);
begin
DataTable.Fields[idx_DETALLE_SIN_ALBARANARFECHA_PEDIDO].AsDateTime := aValue;
end;
function TDETALLE_SIN_ALBARANARDataTableRules.GetFECHA_PREVISTA_PEDIDOValue: DateTime;
begin
result := DataTable.Fields[idx_DETALLE_SIN_ALBARANARFECHA_PREVISTA_PEDIDO].AsDateTime;
end;
procedure TDETALLE_SIN_ALBARANARDataTableRules.SetFECHA_PREVISTA_PEDIDOValue(const aValue: DateTime);
begin
DataTable.Fields[idx_DETALLE_SIN_ALBARANARFECHA_PREVISTA_PEDIDO].AsDateTime := aValue;
end;
function TDETALLE_SIN_ALBARANARDataTableRules.GetID_CLIENTEValue: Integer;
begin
result := DataTable.Fields[idx_DETALLE_SIN_ALBARANARID_CLIENTE].AsInteger;
end;
procedure TDETALLE_SIN_ALBARANARDataTableRules.SetID_CLIENTEValue(const aValue: Integer);
begin
DataTable.Fields[idx_DETALLE_SIN_ALBARANARID_CLIENTE].AsInteger := aValue;
end;
function TDETALLE_SIN_ALBARANARDataTableRules.GetCLIENTEValue: String;
begin
result := DataTable.Fields[idx_DETALLE_SIN_ALBARANARCLIENTE].AsString;
end;
procedure TDETALLE_SIN_ALBARANARDataTableRules.SetCLIENTEValue(const aValue: String);
begin
DataTable.Fields[idx_DETALLE_SIN_ALBARANARCLIENTE].AsString := aValue;
end;
function TDETALLE_SIN_ALBARANARDataTableRules.GetIDValue: Integer;
begin
result := DataTable.Fields[idx_DETALLE_SIN_ALBARANARID].AsInteger;
end;
procedure TDETALLE_SIN_ALBARANARDataTableRules.SetIDValue(const aValue: Integer);
begin
DataTable.Fields[idx_DETALLE_SIN_ALBARANARID].AsInteger := aValue;
end;
function TDETALLE_SIN_ALBARANARDataTableRules.GetFAMILIAValue: String;
begin
result := DataTable.Fields[idx_DETALLE_SIN_ALBARANARFAMILIA].AsString;
end;
procedure TDETALLE_SIN_ALBARANARDataTableRules.SetFAMILIAValue(const aValue: String);
begin
DataTable.Fields[idx_DETALLE_SIN_ALBARANARFAMILIA].AsString := aValue;
end;
function TDETALLE_SIN_ALBARANARDataTableRules.GetREFERENCIAValue: String;
begin
result := DataTable.Fields[idx_DETALLE_SIN_ALBARANARREFERENCIA].AsString;
end;
procedure TDETALLE_SIN_ALBARANARDataTableRules.SetREFERENCIAValue(const aValue: String);
begin
DataTable.Fields[idx_DETALLE_SIN_ALBARANARREFERENCIA].AsString := aValue;
end;
function TDETALLE_SIN_ALBARANARDataTableRules.GetREFERENCIA_PROVEEDORValue: String;
begin
result := DataTable.Fields[idx_DETALLE_SIN_ALBARANARREFERENCIA_PROVEEDOR].AsString;
end;
procedure TDETALLE_SIN_ALBARANARDataTableRules.SetREFERENCIA_PROVEEDORValue(const aValue: String);
begin
DataTable.Fields[idx_DETALLE_SIN_ALBARANARREFERENCIA_PROVEEDOR].AsString := aValue;
end;
function TDETALLE_SIN_ALBARANARDataTableRules.GetDESCRIPCIONValue: String;
begin
result := DataTable.Fields[idx_DETALLE_SIN_ALBARANARDESCRIPCION].AsString;
end;
procedure TDETALLE_SIN_ALBARANARDataTableRules.SetDESCRIPCIONValue(const aValue: String);
begin
DataTable.Fields[idx_DETALLE_SIN_ALBARANARDESCRIPCION].AsString := aValue;
end;
function TDETALLE_SIN_ALBARANARDataTableRules.GetCANTIDAD_PEDIDAValue: Integer;
begin
result := DataTable.Fields[idx_DETALLE_SIN_ALBARANARCANTIDAD_PEDIDA].AsInteger;
end;
procedure TDETALLE_SIN_ALBARANARDataTableRules.SetCANTIDAD_PEDIDAValue(const aValue: Integer);
begin
DataTable.Fields[idx_DETALLE_SIN_ALBARANARCANTIDAD_PEDIDA].AsInteger := aValue;
end;
function TDETALLE_SIN_ALBARANARDataTableRules.GetCANTIDAD_RESERVADAValue: Integer;
begin
result := DataTable.Fields[idx_DETALLE_SIN_ALBARANARCANTIDAD_RESERVADA].AsInteger;
end;
procedure TDETALLE_SIN_ALBARANARDataTableRules.SetCANTIDAD_RESERVADAValue(const aValue: Integer);
begin
DataTable.Fields[idx_DETALLE_SIN_ALBARANARCANTIDAD_RESERVADA].AsInteger := aValue;
end;
function TDETALLE_SIN_ALBARANARDataTableRules.GetCANTIDAD_ENVIADAValue: Integer;
begin
result := DataTable.Fields[idx_DETALLE_SIN_ALBARANARCANTIDAD_ENVIADA].AsInteger;
end;
procedure TDETALLE_SIN_ALBARANARDataTableRules.SetCANTIDAD_ENVIADAValue(const aValue: Integer);
begin
DataTable.Fields[idx_DETALLE_SIN_ALBARANARCANTIDAD_ENVIADA].AsInteger := aValue;
end;
function TDETALLE_SIN_ALBARANARDataTableRules.GetCANTIDAD_SERVIDAValue: Integer;
begin
result := DataTable.Fields[idx_DETALLE_SIN_ALBARANARCANTIDAD_SERVIDA].AsInteger;
end;
procedure TDETALLE_SIN_ALBARANARDataTableRules.SetCANTIDAD_SERVIDAValue(const aValue: Integer);
begin
DataTable.Fields[idx_DETALLE_SIN_ALBARANARCANTIDAD_SERVIDA].AsInteger := aValue;
end;
function TDETALLE_SIN_ALBARANARDataTableRules.GetCANTIDAD_PENDIENTEValue: Integer;
begin
result := DataTable.Fields[idx_DETALLE_SIN_ALBARANARCANTIDAD_PENDIENTE].AsInteger;
end;
procedure TDETALLE_SIN_ALBARANARDataTableRules.SetCANTIDAD_PENDIENTEValue(const aValue: Integer);
begin
DataTable.Fields[idx_DETALLE_SIN_ALBARANARCANTIDAD_PENDIENTE].AsInteger := aValue;
end;
initialization
RegisterDataTableRules(RID_INVENTARIO, TINVENTARIODataTableRules);
RegisterDataTableRules(RID_DETALLE_RESERVAS_INV, TDETALLE_RESERVAS_INVDataTableRules);
RegisterDataTableRules(RID_DETALLE_SIN_ALBARANAR, TDETALLE_SIN_ALBARANARDataTableRules);
end.

418
Source/Modulos/Inventario/Model/schInventarioServer_Intf.pas
View File

@ -9,13 +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_INVENTARIODelta = '{FD6A3797-743C-4AE0-890F-C651A3E630A5}';
RID_DETALLE_RESERVAS_INVDelta = '{D5B89CFC-9817-4CF4-9E20-BFB33C0E196B}';
RID_INVENTARIODelta = '{22495FD1-6517-49C7-A28A-3C9D52AE3043}';
RID_DETALLE_RESERVAS_INVDelta = '{1AC04437-589D-4538-867A-DBD8FF9AE253}';
RID_DETALLE_SIN_ALBARANARDelta = '{5EE94FBF-7C32-4B77-BCF5-BCA57949E7C2}';
type
{ IINVENTARIODelta }
IINVENTARIODelta = interface(IINVENTARIO)
['{FD6A3797-743C-4AE0-890F-C651A3E630A5}']
['{22495FD1-6517-49C7-A28A-3C9D52AE3043}']
{ Property getters and setters }
function GetOldIDValue : Integer;
function GetOldID_ALMACENValue : Integer;
@ -170,7 +171,7 @@ type
{ IDETALLE_RESERVAS_INVDelta }
IDETALLE_RESERVAS_INVDelta = interface(IDETALLE_RESERVAS_INV)
['{D5B89CFC-9817-4CF4-9E20-BFB33C0E196B}']
['{1AC04437-589D-4538-867A-DBD8FF9AE253}']
{ Property getters and setters }
function GetOldID_ALBValue : Integer;
function GetOldID_EMPRESAValue : Integer;
@ -295,6 +296,147 @@ type
end;
{ IDETALLE_SIN_ALBARANARDelta }
IDETALLE_SIN_ALBARANARDelta = interface(IDETALLE_SIN_ALBARANAR)
['{5EE94FBF-7C32-4B77-BCF5-BCA57949E7C2}']
{ Property getters and setters }
function GetOldID_PEDIDOValue : Integer;
function GetOldID_EMPRESAValue : Integer;
function GetOldREFERENCIA_PEDIDOValue : String;
function GetOldFECHA_PEDIDOValue : DateTime;
function GetOldFECHA_PREVISTA_PEDIDOValue : DateTime;
function GetOldID_CLIENTEValue : Integer;
function GetOldCLIENTEValue : String;
function GetOldIDValue : Integer;
function GetOldFAMILIAValue : String;
function GetOldREFERENCIAValue : String;
function GetOldREFERENCIA_PROVEEDORValue : String;
function GetOldDESCRIPCIONValue : String;
function GetOldCANTIDAD_PEDIDAValue : Integer;
function GetOldCANTIDAD_RESERVADAValue : Integer;
function GetOldCANTIDAD_ENVIADAValue : Integer;
function GetOldCANTIDAD_SERVIDAValue : Integer;
function GetOldCANTIDAD_PENDIENTEValue : Integer;
{ Properties }
property OldID_PEDIDO : Integer read GetOldID_PEDIDOValue;
property OldID_EMPRESA : Integer read GetOldID_EMPRESAValue;
property OldREFERENCIA_PEDIDO : String read GetOldREFERENCIA_PEDIDOValue;
property OldFECHA_PEDIDO : DateTime read GetOldFECHA_PEDIDOValue;
property OldFECHA_PREVISTA_PEDIDO : DateTime read GetOldFECHA_PREVISTA_PEDIDOValue;
property OldID_CLIENTE : Integer read GetOldID_CLIENTEValue;
property OldCLIENTE : String read GetOldCLIENTEValue;
property OldID : Integer read GetOldIDValue;
property OldFAMILIA : String read GetOldFAMILIAValue;
property OldREFERENCIA : String read GetOldREFERENCIAValue;
property OldREFERENCIA_PROVEEDOR : String read GetOldREFERENCIA_PROVEEDORValue;
property OldDESCRIPCION : String read GetOldDESCRIPCIONValue;
property OldCANTIDAD_PEDIDA : Integer read GetOldCANTIDAD_PEDIDAValue;
property OldCANTIDAD_RESERVADA : Integer read GetOldCANTIDAD_RESERVADAValue;
property OldCANTIDAD_ENVIADA : Integer read GetOldCANTIDAD_ENVIADAValue;
property OldCANTIDAD_SERVIDA : Integer read GetOldCANTIDAD_SERVIDAValue;
property OldCANTIDAD_PENDIENTE : Integer read GetOldCANTIDAD_PENDIENTEValue;
end;
{ TDETALLE_SIN_ALBARANARBusinessProcessorRules }
TDETALLE_SIN_ALBARANARBusinessProcessorRules = class(TDABusinessProcessorRules, IDETALLE_SIN_ALBARANAR, IDETALLE_SIN_ALBARANARDelta)
private
protected
{ Property getters and setters }
function GetID_PEDIDOValue: Integer; virtual;
function GetOldID_PEDIDOValue: Integer; virtual;
procedure SetID_PEDIDOValue(const aValue: Integer); virtual;
function GetID_EMPRESAValue: Integer; virtual;
function GetOldID_EMPRESAValue: Integer; virtual;
procedure SetID_EMPRESAValue(const aValue: Integer); virtual;
function GetREFERENCIA_PEDIDOValue: String; virtual;
function GetOldREFERENCIA_PEDIDOValue: String; virtual;
procedure SetREFERENCIA_PEDIDOValue(const aValue: String); virtual;
function GetFECHA_PEDIDOValue: DateTime; virtual;
function GetOldFECHA_PEDIDOValue: DateTime; virtual;
procedure SetFECHA_PEDIDOValue(const aValue: DateTime); virtual;
function GetFECHA_PREVISTA_PEDIDOValue: DateTime; virtual;
function GetOldFECHA_PREVISTA_PEDIDOValue: DateTime; virtual;
procedure SetFECHA_PREVISTA_PEDIDOValue(const aValue: DateTime); virtual;
function GetID_CLIENTEValue: Integer; virtual;
function GetOldID_CLIENTEValue: Integer; virtual;
procedure SetID_CLIENTEValue(const aValue: Integer); virtual;
function GetCLIENTEValue: String; virtual;
function GetOldCLIENTEValue: String; virtual;
procedure SetCLIENTEValue(const aValue: String); virtual;
function GetIDValue: Integer; virtual;
function GetOldIDValue: Integer; virtual;
procedure SetIDValue(const aValue: Integer); virtual;
function GetFAMILIAValue: String; virtual;
function GetOldFAMILIAValue: String; virtual;
procedure SetFAMILIAValue(const aValue: String); virtual;
function GetREFERENCIAValue: String; virtual;
function GetOldREFERENCIAValue: String; virtual;
procedure SetREFERENCIAValue(const aValue: String); virtual;
function GetREFERENCIA_PROVEEDORValue: String; virtual;
function GetOldREFERENCIA_PROVEEDORValue: String; virtual;
procedure SetREFERENCIA_PROVEEDORValue(const aValue: String); virtual;
function GetDESCRIPCIONValue: String; virtual;
function GetOldDESCRIPCIONValue: String; virtual;
procedure SetDESCRIPCIONValue(const aValue: String); virtual;
function GetCANTIDAD_PEDIDAValue: Integer; virtual;
function GetOldCANTIDAD_PEDIDAValue: Integer; virtual;
procedure SetCANTIDAD_PEDIDAValue(const aValue: Integer); virtual;
function GetCANTIDAD_RESERVADAValue: Integer; virtual;
function GetOldCANTIDAD_RESERVADAValue: Integer; virtual;
procedure SetCANTIDAD_RESERVADAValue(const aValue: Integer); virtual;
function GetCANTIDAD_ENVIADAValue: Integer; virtual;
function GetOldCANTIDAD_ENVIADAValue: Integer; virtual;
procedure SetCANTIDAD_ENVIADAValue(const aValue: Integer); virtual;
function GetCANTIDAD_SERVIDAValue: Integer; virtual;
function GetOldCANTIDAD_SERVIDAValue: Integer; virtual;
procedure SetCANTIDAD_SERVIDAValue(const aValue: Integer); virtual;
function GetCANTIDAD_PENDIENTEValue: Integer; virtual;
function GetOldCANTIDAD_PENDIENTEValue: Integer; virtual;
procedure SetCANTIDAD_PENDIENTEValue(const aValue: Integer); virtual;
{ Properties }
property ID_PEDIDO : Integer read GetID_PEDIDOValue write SetID_PEDIDOValue;
property OldID_PEDIDO : Integer read GetOldID_PEDIDOValue;
property ID_EMPRESA : Integer read GetID_EMPRESAValue write SetID_EMPRESAValue;
property OldID_EMPRESA : Integer read GetOldID_EMPRESAValue;
property REFERENCIA_PEDIDO : String read GetREFERENCIA_PEDIDOValue write SetREFERENCIA_PEDIDOValue;
property OldREFERENCIA_PEDIDO : String read GetOldREFERENCIA_PEDIDOValue;
property FECHA_PEDIDO : DateTime read GetFECHA_PEDIDOValue write SetFECHA_PEDIDOValue;
property OldFECHA_PEDIDO : DateTime read GetOldFECHA_PEDIDOValue;
property FECHA_PREVISTA_PEDIDO : DateTime read GetFECHA_PREVISTA_PEDIDOValue write SetFECHA_PREVISTA_PEDIDOValue;
property OldFECHA_PREVISTA_PEDIDO : DateTime read GetOldFECHA_PREVISTA_PEDIDOValue;
property ID_CLIENTE : Integer read GetID_CLIENTEValue write SetID_CLIENTEValue;
property OldID_CLIENTE : Integer read GetOldID_CLIENTEValue;
property CLIENTE : String read GetCLIENTEValue write SetCLIENTEValue;
property OldCLIENTE : String read GetOldCLIENTEValue;
property ID : Integer read GetIDValue write SetIDValue;
property OldID : Integer read GetOldIDValue;
property FAMILIA : String read GetFAMILIAValue write SetFAMILIAValue;
property OldFAMILIA : String read GetOldFAMILIAValue;
property REFERENCIA : String read GetREFERENCIAValue write SetREFERENCIAValue;
property OldREFERENCIA : String read GetOldREFERENCIAValue;
property REFERENCIA_PROVEEDOR : String read GetREFERENCIA_PROVEEDORValue write SetREFERENCIA_PROVEEDORValue;
property OldREFERENCIA_PROVEEDOR : String read GetOldREFERENCIA_PROVEEDORValue;
property DESCRIPCION : String read GetDESCRIPCIONValue write SetDESCRIPCIONValue;
property OldDESCRIPCION : String read GetOldDESCRIPCIONValue;
property CANTIDAD_PEDIDA : Integer read GetCANTIDAD_PEDIDAValue write SetCANTIDAD_PEDIDAValue;
property OldCANTIDAD_PEDIDA : Integer read GetOldCANTIDAD_PEDIDAValue;
property CANTIDAD_RESERVADA : Integer read GetCANTIDAD_RESERVADAValue write SetCANTIDAD_RESERVADAValue;
property OldCANTIDAD_RESERVADA : Integer read GetOldCANTIDAD_RESERVADAValue;
property CANTIDAD_ENVIADA : Integer read GetCANTIDAD_ENVIADAValue write SetCANTIDAD_ENVIADAValue;
property OldCANTIDAD_ENVIADA : Integer read GetOldCANTIDAD_ENVIADAValue;
property CANTIDAD_SERVIDA : Integer read GetCANTIDAD_SERVIDAValue write SetCANTIDAD_SERVIDAValue;
property OldCANTIDAD_SERVIDA : Integer read GetOldCANTIDAD_SERVIDAValue;
property CANTIDAD_PENDIENTE : Integer read GetCANTIDAD_PENDIENTEValue write SetCANTIDAD_PENDIENTEValue;
property OldCANTIDAD_PENDIENTE : Integer read GetOldCANTIDAD_PENDIENTEValue;
public
constructor Create(aBusinessProcessor: TDABusinessProcessor); override;
destructor Destroy; override;
end;
implementation
uses
@ -834,8 +976,276 @@ begin
end;
{ TDETALLE_SIN_ALBARANARBusinessProcessorRules }
constructor TDETALLE_SIN_ALBARANARBusinessProcessorRules.Create(aBusinessProcessor: TDABusinessProcessor);
begin
inherited;
end;
destructor TDETALLE_SIN_ALBARANARBusinessProcessorRules.Destroy;
begin
inherited;
end;
function TDETALLE_SIN_ALBARANARBusinessProcessorRules.GetID_PEDIDOValue: Integer;
begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_DETALLE_SIN_ALBARANARID_PEDIDO];
end;
function TDETALLE_SIN_ALBARANARBusinessProcessorRules.GetOldID_PEDIDOValue: Integer;
begin
result := BusinessProcessor.CurrentChange.OldValueByName[fld_DETALLE_SIN_ALBARANARID_PEDIDO];
end;
procedure TDETALLE_SIN_ALBARANARBusinessProcessorRules.SetID_PEDIDOValue(const aValue: Integer);
begin
BusinessProcessor.CurrentChange.NewValueByName[fld_DETALLE_SIN_ALBARANARID_PEDIDO] := aValue;
end;
function TDETALLE_SIN_ALBARANARBusinessProcessorRules.GetID_EMPRESAValue: Integer;
begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_DETALLE_SIN_ALBARANARID_EMPRESA];
end;
function TDETALLE_SIN_ALBARANARBusinessProcessorRules.GetOldID_EMPRESAValue: Integer;
begin
result := BusinessProcessor.CurrentChange.OldValueByName[fld_DETALLE_SIN_ALBARANARID_EMPRESA];
end;
procedure TDETALLE_SIN_ALBARANARBusinessProcessorRules.SetID_EMPRESAValue(const aValue: Integer);
begin
BusinessProcessor.CurrentChange.NewValueByName[fld_DETALLE_SIN_ALBARANARID_EMPRESA] := aValue;
end;
function TDETALLE_SIN_ALBARANARBusinessProcessorRules.GetREFERENCIA_PEDIDOValue: String;
begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_DETALLE_SIN_ALBARANARREFERENCIA_PEDIDO];
end;
function TDETALLE_SIN_ALBARANARBusinessProcessorRules.GetOldREFERENCIA_PEDIDOValue: String;
begin
result := BusinessProcessor.CurrentChange.OldValueByName[fld_DETALLE_SIN_ALBARANARREFERENCIA_PEDIDO];
end;
procedure TDETALLE_SIN_ALBARANARBusinessProcessorRules.SetREFERENCIA_PEDIDOValue(const aValue: String);
begin
BusinessProcessor.CurrentChange.NewValueByName[fld_DETALLE_SIN_ALBARANARREFERENCIA_PEDIDO] := aValue;
end;
function TDETALLE_SIN_ALBARANARBusinessProcessorRules.GetFECHA_PEDIDOValue: DateTime;
begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_DETALLE_SIN_ALBARANARFECHA_PEDIDO];
end;
function TDETALLE_SIN_ALBARANARBusinessProcessorRules.GetOldFECHA_PEDIDOValue: DateTime;
begin
result := BusinessProcessor.CurrentChange.OldValueByName[fld_DETALLE_SIN_ALBARANARFECHA_PEDIDO];
end;
procedure TDETALLE_SIN_ALBARANARBusinessProcessorRules.SetFECHA_PEDIDOValue(const aValue: DateTime);
begin
BusinessProcessor.CurrentChange.NewValueByName[fld_DETALLE_SIN_ALBARANARFECHA_PEDIDO] := aValue;
end;
function TDETALLE_SIN_ALBARANARBusinessProcessorRules.GetFECHA_PREVISTA_PEDIDOValue: DateTime;
begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_DETALLE_SIN_ALBARANARFECHA_PREVISTA_PEDIDO];
end;
function TDETALLE_SIN_ALBARANARBusinessProcessorRules.GetOldFECHA_PREVISTA_PEDIDOValue: DateTime;
begin
result := BusinessProcessor.CurrentChange.OldValueByName[fld_DETALLE_SIN_ALBARANARFECHA_PREVISTA_PEDIDO];
end;
procedure TDETALLE_SIN_ALBARANARBusinessProcessorRules.SetFECHA_PREVISTA_PEDIDOValue(const aValue: DateTime);
begin
BusinessProcessor.CurrentChange.NewValueByName[fld_DETALLE_SIN_ALBARANARFECHA_PREVISTA_PEDIDO] := aValue;
end;
function TDETALLE_SIN_ALBARANARBusinessProcessorRules.GetID_CLIENTEValue: Integer;
begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_DETALLE_SIN_ALBARANARID_CLIENTE];
end;
function TDETALLE_SIN_ALBARANARBusinessProcessorRules.GetOldID_CLIENTEValue: Integer;
begin
result := BusinessProcessor.CurrentChange.OldValueByName[fld_DETALLE_SIN_ALBARANARID_CLIENTE];
end;
procedure TDETALLE_SIN_ALBARANARBusinessProcessorRules.SetID_CLIENTEValue(const aValue: Integer);
begin
BusinessProcessor.CurrentChange.NewValueByName[fld_DETALLE_SIN_ALBARANARID_CLIENTE] := aValue;
end;
function TDETALLE_SIN_ALBARANARBusinessProcessorRules.GetCLIENTEValue: String;
begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_DETALLE_SIN_ALBARANARCLIENTE];
end;
function TDETALLE_SIN_ALBARANARBusinessProcessorRules.GetOldCLIENTEValue: String;
begin
result := BusinessProcessor.CurrentChange.OldValueByName[fld_DETALLE_SIN_ALBARANARCLIENTE];
end;
procedure TDETALLE_SIN_ALBARANARBusinessProcessorRules.SetCLIENTEValue(const aValue: String);
begin
BusinessProcessor.CurrentChange.NewValueByName[fld_DETALLE_SIN_ALBARANARCLIENTE] := aValue;
end;
function TDETALLE_SIN_ALBARANARBusinessProcessorRules.GetIDValue: Integer;
begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_DETALLE_SIN_ALBARANARID];
end;
function TDETALLE_SIN_ALBARANARBusinessProcessorRules.GetOldIDValue: Integer;
begin
result := BusinessProcessor.CurrentChange.OldValueByName[fld_DETALLE_SIN_ALBARANARID];
end;
procedure TDETALLE_SIN_ALBARANARBusinessProcessorRules.SetIDValue(const aValue: Integer);
begin
BusinessProcessor.CurrentChange.NewValueByName[fld_DETALLE_SIN_ALBARANARID] := aValue;
end;
function TDETALLE_SIN_ALBARANARBusinessProcessorRules.GetFAMILIAValue: String;
begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_DETALLE_SIN_ALBARANARFAMILIA];
end;
function TDETALLE_SIN_ALBARANARBusinessProcessorRules.GetOldFAMILIAValue: String;
begin
result := BusinessProcessor.CurrentChange.OldValueByName[fld_DETALLE_SIN_ALBARANARFAMILIA];
end;
procedure TDETALLE_SIN_ALBARANARBusinessProcessorRules.SetFAMILIAValue(const aValue: String);
begin
BusinessProcessor.CurrentChange.NewValueByName[fld_DETALLE_SIN_ALBARANARFAMILIA] := aValue;
end;
function TDETALLE_SIN_ALBARANARBusinessProcessorRules.GetREFERENCIAValue: String;
begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_DETALLE_SIN_ALBARANARREFERENCIA];
end;
function TDETALLE_SIN_ALBARANARBusinessProcessorRules.GetOldREFERENCIAValue: String;
begin
result := BusinessProcessor.CurrentChange.OldValueByName[fld_DETALLE_SIN_ALBARANARREFERENCIA];
end;
procedure TDETALLE_SIN_ALBARANARBusinessProcessorRules.SetREFERENCIAValue(const aValue: String);
begin
BusinessProcessor.CurrentChange.NewValueByName[fld_DETALLE_SIN_ALBARANARREFERENCIA] := aValue;
end;
function TDETALLE_SIN_ALBARANARBusinessProcessorRules.GetREFERENCIA_PROVEEDORValue: String;
begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_DETALLE_SIN_ALBARANARREFERENCIA_PROVEEDOR];
end;
function TDETALLE_SIN_ALBARANARBusinessProcessorRules.GetOldREFERENCIA_PROVEEDORValue: String;
begin
result := BusinessProcessor.CurrentChange.OldValueByName[fld_DETALLE_SIN_ALBARANARREFERENCIA_PROVEEDOR];
end;
procedure TDETALLE_SIN_ALBARANARBusinessProcessorRules.SetREFERENCIA_PROVEEDORValue(const aValue: String);
begin
BusinessProcessor.CurrentChange.NewValueByName[fld_DETALLE_SIN_ALBARANARREFERENCIA_PROVEEDOR] := aValue;
end;
function TDETALLE_SIN_ALBARANARBusinessProcessorRules.GetDESCRIPCIONValue: String;
begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_DETALLE_SIN_ALBARANARDESCRIPCION];
end;
function TDETALLE_SIN_ALBARANARBusinessProcessorRules.GetOldDESCRIPCIONValue: String;
begin
result := BusinessProcessor.CurrentChange.OldValueByName[fld_DETALLE_SIN_ALBARANARDESCRIPCION];
end;
procedure TDETALLE_SIN_ALBARANARBusinessProcessorRules.SetDESCRIPCIONValue(const aValue: String);
begin
BusinessProcessor.CurrentChange.NewValueByName[fld_DETALLE_SIN_ALBARANARDESCRIPCION] := aValue;
end;
function TDETALLE_SIN_ALBARANARBusinessProcessorRules.GetCANTIDAD_PEDIDAValue: Integer;
begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_DETALLE_SIN_ALBARANARCANTIDAD_PEDIDA];
end;
function TDETALLE_SIN_ALBARANARBusinessProcessorRules.GetOldCANTIDAD_PEDIDAValue: Integer;
begin
result := BusinessProcessor.CurrentChange.OldValueByName[fld_DETALLE_SIN_ALBARANARCANTIDAD_PEDIDA];
end;
procedure TDETALLE_SIN_ALBARANARBusinessProcessorRules.SetCANTIDAD_PEDIDAValue(const aValue: Integer);
begin
BusinessProcessor.CurrentChange.NewValueByName[fld_DETALLE_SIN_ALBARANARCANTIDAD_PEDIDA] := aValue;
end;
function TDETALLE_SIN_ALBARANARBusinessProcessorRules.GetCANTIDAD_RESERVADAValue: Integer;
begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_DETALLE_SIN_ALBARANARCANTIDAD_RESERVADA];
end;
function TDETALLE_SIN_ALBARANARBusinessProcessorRules.GetOldCANTIDAD_RESERVADAValue: Integer;
begin
result := BusinessProcessor.CurrentChange.OldValueByName[fld_DETALLE_SIN_ALBARANARCANTIDAD_RESERVADA];
end;
procedure TDETALLE_SIN_ALBARANARBusinessProcessorRules.SetCANTIDAD_RESERVADAValue(const aValue: Integer);
begin
BusinessProcessor.CurrentChange.NewValueByName[fld_DETALLE_SIN_ALBARANARCANTIDAD_RESERVADA] := aValue;
end;
function TDETALLE_SIN_ALBARANARBusinessProcessorRules.GetCANTIDAD_ENVIADAValue: Integer;
begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_DETALLE_SIN_ALBARANARCANTIDAD_ENVIADA];
end;
function TDETALLE_SIN_ALBARANARBusinessProcessorRules.GetOldCANTIDAD_ENVIADAValue: Integer;
begin
result := BusinessProcessor.CurrentChange.OldValueByName[fld_DETALLE_SIN_ALBARANARCANTIDAD_ENVIADA];
end;
procedure TDETALLE_SIN_ALBARANARBusinessProcessorRules.SetCANTIDAD_ENVIADAValue(const aValue: Integer);
begin
BusinessProcessor.CurrentChange.NewValueByName[fld_DETALLE_SIN_ALBARANARCANTIDAD_ENVIADA] := aValue;
end;
function TDETALLE_SIN_ALBARANARBusinessProcessorRules.GetCANTIDAD_SERVIDAValue: Integer;
begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_DETALLE_SIN_ALBARANARCANTIDAD_SERVIDA];
end;
function TDETALLE_SIN_ALBARANARBusinessProcessorRules.GetOldCANTIDAD_SERVIDAValue: Integer;
begin
result := BusinessProcessor.CurrentChange.OldValueByName[fld_DETALLE_SIN_ALBARANARCANTIDAD_SERVIDA];
end;
procedure TDETALLE_SIN_ALBARANARBusinessProcessorRules.SetCANTIDAD_SERVIDAValue(const aValue: Integer);
begin
BusinessProcessor.CurrentChange.NewValueByName[fld_DETALLE_SIN_ALBARANARCANTIDAD_SERVIDA] := aValue;
end;
function TDETALLE_SIN_ALBARANARBusinessProcessorRules.GetCANTIDAD_PENDIENTEValue: Integer;
begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_DETALLE_SIN_ALBARANARCANTIDAD_PENDIENTE];
end;
function TDETALLE_SIN_ALBARANARBusinessProcessorRules.GetOldCANTIDAD_PENDIENTEValue: Integer;
begin
result := BusinessProcessor.CurrentChange.OldValueByName[fld_DETALLE_SIN_ALBARANARCANTIDAD_PENDIENTE];
end;
procedure TDETALLE_SIN_ALBARANARBusinessProcessorRules.SetCANTIDAD_PENDIENTEValue(const aValue: Integer);
begin
BusinessProcessor.CurrentChange.NewValueByName[fld_DETALLE_SIN_ALBARANARCANTIDAD_PENDIENTE] := aValue;
end;
initialization
RegisterBusinessProcessorRules(RID_INVENTARIODelta, TINVENTARIOBusinessProcessorRules);
RegisterBusinessProcessorRules(RID_DETALLE_RESERVAS_INVDelta, TDETALLE_RESERVAS_INVBusinessProcessorRules);
RegisterBusinessProcessorRules(RID_DETALLE_SIN_ALBARANARDelta, TDETALLE_SIN_ALBARANARBusinessProcessorRules);
end.

30
Source/Modulos/Inventario/Model/uBizInventario.pas
View File

@ -9,6 +9,7 @@ uses
const
BIZ_CLIENT_INVENTARIO = 'Client.Inventario';
BIZ_CLIENT_DETALLE_RESERVAS_INV = 'Client.DetallesReservasInv';
BIZ_CLIENT_DETALLE_SINALBARAN = 'Client.DetallesSinAlbaran';
CTE_TIPO_ENTRADA = 'E';
CTE_TIPO_SALIDA = 'S';
@ -24,6 +25,10 @@ type
['{7E718670-DDC1-411B-B8DF-A28B81F9B8C3}']
end;
IBizDetalleSinAlbaran = interface(IDetalle_sin_Albaranar)
['{FB982CC5-1CE6-4362-9D93-DCAC508D06AA}']
end;
IBizInventario = interface(IInventario)
['{12051CDB-9BB1-43C5-AC89-181A27A35513}']
function GetIDAlmacenOrigen: Integer;
@ -42,6 +47,16 @@ type
TBizDetalleReservas = class(TDetalle_reservas_InvDataTableRules, IBizDetalleReservas)
end;
TBizDetalleSinAlbaran = class(TDETALLE_SIN_ALBARANARDataTableRules, IBizDetalleSinAlbaran, ISeleccionable)
protected
FSeleccionableInterface : ISeleccionable;
public
property SeleccionableInterface : ISeleccionable read FSeleccionableInterface write FSeleccionableInterface implements ISeleccionable;
constructor Create(aDataTable: TDADataTable); override;
destructor Destroy; override;
end;
TBizInventario = class(TInventarioDataTableRules, IBizInventario, ISeleccionable)
private
FIDAlmacenOrigen : Integer;
@ -142,8 +157,23 @@ begin
FTipoMovimiento := Value;
end;
{ TBizDetalleSinAlbaran }
constructor TBizDetalleSinAlbaran.Create(aDataTable: TDADataTable);
begin
inherited;
FSeleccionableInterface := TSeleccionable.Create(aDataTable);
end;
destructor TBizDetalleSinAlbaran.Destroy;
begin
FSeleccionableInterface := NIL;
inherited;
end;
initialization
RegisterDataTableRules(BIZ_CLIENT_INVENTARIO, TBizInventario);
RegisterDataTableRules(BIZ_CLIENT_DETALLE_RESERVAS_INV, TBizDetalleReservas);
RegisterDataTableRules(BIZ_CLIENT_DETALLE_SINALBARAN, TBizDetalleSinAlbaran);
end.

404
Source/Modulos/Inventario/Servidor/srvInventario_Impl.dfm
View File

@ -545,6 +545,274 @@ object srvInventario: TsrvInventario
end>
BusinessRulesClient.ScriptLanguage = rslPascalScript
BusinessRulesServer.ScriptLanguage = rslPascalScript
end
item
Params = <>
Statements = <
item
Connection = 'IBX'
TargetTable = 'V_PED_CLI_ART_SIN_ALBARAN'
SQL =
'SELECT'#10' ID_PEDIDO,'#10' ID_EMPRESA,'#10' REFERENCIA_PEDIDO,'#10' ' +
' FECHA_PEDIDO,'#10' FECHA_PREVISTA_PEDIDO,'#10' ID_CLIENTE,'#10' CL' +
'IENTE,'#10' ID,'#10' FAMILIA,'#10' REFERENCIA,'#10' REFERENCIA_PROVE' +
'EDOR,'#10' DESCRIPCION,'#10' CANTIDAD_PEDIDA,'#10' CANTIDAD_RESERVA' +
'DA,'#10' CANTIDAD_ENVIADA,'#10' CANTIDAD_SERVIDA,'#10' CANTIDAD_PEN' +
'DIENTE'#10' '#10'FROM V_PED_CLI_ART_SIN_ALBARAN'#10'ORDER BY REFERENCIA_PED' +
'IDO'
StatementType = stSQL
ColumnMappings = <
item
DatasetField = 'ID_PEDIDO'
TableField = 'ID_PEDIDO'
end
item
DatasetField = 'ID_EMPRESA'
TableField = 'ID_EMPRESA'
end
item
DatasetField = 'REFERENCIA_PEDIDO'
TableField = 'REFERENCIA_PEDIDO'
end
item
DatasetField = 'FECHA_PEDIDO'
TableField = 'FECHA_PEDIDO'
end
item
DatasetField = 'FECHA_PREVISTA_PEDIDO'
TableField = 'FECHA_PREVISTA_PEDIDO'
end
item
DatasetField = 'ID_CLIENTE'
TableField = 'ID_CLIENTE'
end
item
DatasetField = 'CLIENTE'
TableField = 'CLIENTE'
end
item
DatasetField = 'ID'
TableField = 'ID'
end
item
DatasetField = 'FAMILIA'
TableField = 'FAMILIA'
end
item
DatasetField = 'REFERENCIA'
TableField = 'REFERENCIA'
end
item
DatasetField = 'REFERENCIA_PROVEEDOR'
TableField = 'REFERENCIA_PROVEEDOR'
end
item
DatasetField = 'DESCRIPCION'
TableField = 'DESCRIPCION'
end
item
DatasetField = 'CANTIDAD_PEDIDA'
TableField = 'CANTIDAD_PEDIDA'
end
item
DatasetField = 'CANTIDAD_RESERVADA'
TableField = 'CANTIDAD_RESERVADA'
end
item
DatasetField = 'CANTIDAD_ENVIADA'
TableField = 'CANTIDAD_ENVIADA'
end
item
DatasetField = 'CANTIDAD_SERVIDA'
TableField = 'CANTIDAD_SERVIDA'
end
item
DatasetField = 'CANTIDAD_PENDIENTE'
TableField = 'CANTIDAD_PENDIENTE'
end>
end>
Name = 'DETALLE_SIN_ALBARANAR'
Fields = <
item
Name = 'ID_PEDIDO'
DataType = datInteger
BlobType = dabtUnknown
DictionaryEntry = 'DETALLE_SIN_ALBARANAR_ID_PEDIDO'
InPrimaryKey = False
Calculated = False
Lookup = False
LookupCache = False
end
item
Name = 'ID_EMPRESA'
DataType = datInteger
BlobType = dabtUnknown
DisplayWidth = 0
Alignment = taLeftJustify
InPrimaryKey = False
Calculated = False
Lookup = False
LookupCache = False
end
item
Name = 'REFERENCIA_PEDIDO'
DataType = datString
Size = 255
BlobType = dabtUnknown
DictionaryEntry = 'DETALLE_SIN_ALBARANAR_REFERENCIA_PEDIDO'
InPrimaryKey = False
Calculated = False
Lookup = False
LookupCache = False
end
item
Name = 'FECHA_PEDIDO'
DataType = datDateTime
BlobType = dabtUnknown
DictionaryEntry = 'DETALLE_SIN_ALBARANAR_FECHA_PEDIDO'
InPrimaryKey = False
Calculated = False
Lookup = False
LookupCache = False
end
item
Name = 'FECHA_PREVISTA_PEDIDO'
DataType = datDateTime
BlobType = dabtUnknown
DictionaryEntry = 'DETALLE_SIN_ALBARANAR_FECHA_PREVISTA_PEDIDO'
InPrimaryKey = False
Calculated = False
Lookup = False
LookupCache = False
end
item
Name = 'ID_CLIENTE'
DataType = datInteger
BlobType = dabtUnknown
DictionaryEntry = 'DETALLE_SIN_ALBARANAR_ID_CLIENTE'
InPrimaryKey = False
Calculated = False
Lookup = False
LookupCache = False
end
item
Name = 'CLIENTE'
DataType = datString
Size = 255
BlobType = dabtUnknown
DictionaryEntry = 'DETALLE_SIN_ALBARANAR_CLIENTE'
InPrimaryKey = False
Calculated = False
Lookup = False
LookupCache = False
end
item
Name = 'ID'
DataType = datInteger
BlobType = dabtUnknown
DisplayWidth = 0
Alignment = taLeftJustify
InPrimaryKey = False
Calculated = False
Lookup = False
LookupCache = False
end
item
Name = 'FAMILIA'
DataType = datString
Size = 255
BlobType = dabtUnknown
DictionaryEntry = 'DETALLE_SIN_ALBARANAR_FAMILIA'
InPrimaryKey = False
Calculated = False
Lookup = False
LookupCache = False
end
item
Name = 'REFERENCIA'
DataType = datString
Size = 255
BlobType = dabtUnknown
DictionaryEntry = 'DETALLE_SIN_ALBARANAR_REFERENCIA'
InPrimaryKey = False
Calculated = False
Lookup = False
LookupCache = False
end
item
Name = 'REFERENCIA_PROVEEDOR'
DataType = datString
Size = 255
BlobType = dabtUnknown
DictionaryEntry = 'DETALLE_SIN_ALBARANAR_REFERENCIA_PROVEEDOR'
InPrimaryKey = False
Calculated = False
Lookup = False
LookupCache = False
end
item
Name = 'DESCRIPCION'
DataType = datString
Size = 255
BlobType = dabtUnknown
DictionaryEntry = 'DETALLE_SIN_ALBARANAR_DESCRIPCION'
InPrimaryKey = False
Calculated = False
Lookup = False
LookupCache = False
end
item
Name = 'CANTIDAD_PEDIDA'
DataType = datInteger
BlobType = dabtUnknown
DictionaryEntry = 'DETALLE_SIN_ALBARANAR_CANTIDAD_PEDIDA'
InPrimaryKey = False
Calculated = False
Lookup = False
LookupCache = False
end
item
Name = 'CANTIDAD_RESERVADA'
DataType = datInteger
BlobType = dabtUnknown
DictionaryEntry = 'DETALLE_SIN_ALBARANAR_CANTIDAD_RESERVADA'
InPrimaryKey = False
Calculated = False
Lookup = False
LookupCache = False
end
item
Name = 'CANTIDAD_ENVIADA'
DataType = datInteger
BlobType = dabtUnknown
DictionaryEntry = 'DETALLE_SIN_ALBARANAR_CANTIDAD_ENVIADA'
InPrimaryKey = False
Calculated = False
Lookup = False
LookupCache = False
end
item
Name = 'CANTIDAD_SERVIDA'
DataType = datInteger
BlobType = dabtUnknown
DictionaryEntry = 'DETALLE_SIN_ALBARANAR_CANTIDAD_SERVIDA'
InPrimaryKey = False
Calculated = False
Lookup = False
LookupCache = False
end
item
Name = 'CANTIDAD_PENDIENTE'
DataType = datInteger
BlobType = dabtUnknown
DictionaryEntry = 'DETALLE_SIN_ALBARANAR_CANTIDAD_PENDIENTE'
InPrimaryKey = False
Calculated = False
Lookup = False
LookupCache = False
end>
BusinessRulesClient.ScriptLanguage = rslPascalScript
BusinessRulesServer.ScriptLanguage = rslPascalScript
end>
Commands = <
item
@ -1033,7 +1301,7 @@ object srvInventario: TsrvInventario
BlobType = dabtUnknown
DisplayWidth = 0
DisplayLabel = 'Reservado'
Alignment = taLeftJustify
Alignment = taRightJustify
end
item
Name = 'DETALLE_RESERVAS_INV_ID_EMPRESA'
@ -1041,6 +1309,140 @@ object srvInventario: TsrvInventario
BlobType = dabtUnknown
DisplayWidth = 0
Alignment = taLeftJustify
end
item
Name = 'DETALLE_SIN_ALBARANAR_ID_PEDIDO'
DataType = datInteger
BlobType = dabtUnknown
DisplayWidth = 0
DisplayLabel = 'ID_PEDIDO'
Alignment = taLeftJustify
end
item
Name = 'DETALLE_SIN_ALBARANAR_REFERENCIA_PEDIDO'
DataType = datString
Size = 255
BlobType = dabtUnknown
DisplayWidth = 0
DisplayLabel = 'Ref. pedido'
Alignment = taLeftJustify
end
item
Name = 'DETALLE_SIN_ALBARANAR_FECHA_PEDIDO'
DataType = datDateTime
BlobType = dabtUnknown
DisplayWidth = 0
DisplayLabel = 'Fecha'
Alignment = taLeftJustify
end
item
Name = 'DETALLE_SIN_ALBARANAR_FECHA_PREVISTA_PEDIDO'
DataType = datDateTime
BlobType = dabtUnknown
DisplayWidth = 0
DisplayLabel = 'Fecha prevista envio'
Alignment = taLeftJustify
end
item
Name = 'DETALLE_SIN_ALBARANAR_ID_CLIENTE'
DataType = datInteger
BlobType = dabtUnknown
DisplayWidth = 0
DisplayLabel = 'ID_CLIENTE'
Alignment = taLeftJustify
end
item
Name = 'DETALLE_SIN_ALBARANAR_CLIENTE'
DataType = datString
Size = 255
BlobType = dabtUnknown
DisplayWidth = 0
DisplayLabel = 'Cliente'
Alignment = taLeftJustify
end
item
Name = 'DETALLE_SIN_ALBARANAR_ID_ARTICULO'
DataType = datInteger
BlobType = dabtUnknown
DisplayWidth = 0
DisplayLabel = 'ID_ARTICULO'
Alignment = taLeftJustify
end
item
Name = 'DETALLE_SIN_ALBARANAR_FAMILIA'
DataType = datString
Size = 255
BlobType = dabtUnknown
DisplayWidth = 0
DisplayLabel = 'Familia'
Alignment = taLeftJustify
end
item
Name = 'DETALLE_SIN_ALBARANAR_REFERENCIA'
DataType = datString
Size = 255
BlobType = dabtUnknown
DisplayWidth = 0
DisplayLabel = 'Referencia'
Alignment = taLeftJustify
end
item
Name = 'DETALLE_SIN_ALBARANAR_REFERENCIA_PROVEEDOR'
DataType = datString
Size = 255
BlobType = dabtUnknown
DisplayWidth = 0
DisplayLabel = 'Ref. proveedor'
Alignment = taLeftJustify
end
item
Name = 'DETALLE_SIN_ALBARANAR_DESCRIPCION'
DataType = datString
Size = 255
BlobType = dabtUnknown
DisplayWidth = 0
DisplayLabel = 'Descripci'#243'n'
Alignment = taLeftJustify
end
item
Name = 'DETALLE_SIN_ALBARANAR_CANTIDAD_PEDIDA'
DataType = datInteger
BlobType = dabtUnknown
DisplayWidth = 0
DisplayLabel = 'Cant. pedida'
Alignment = taRightJustify
end
item
Name = 'DETALLE_SIN_ALBARANAR_CANTIDAD_RESERVADA'
DataType = datInteger
BlobType = dabtUnknown
DisplayWidth = 0
DisplayLabel = 'Cant. reservada'
Alignment = taRightJustify
end
item
Name = 'DETALLE_SIN_ALBARANAR_CANTIDAD_ENVIADA'
DataType = datInteger
BlobType = dabtUnknown
DisplayWidth = 0
DisplayLabel = 'Cant. enviada'
Alignment = taRightJustify
end
item
Name = 'DETALLE_SIN_ALBARANAR_CANTIDAD_SERVIDA'
DataType = datInteger
BlobType = dabtUnknown
DisplayWidth = 0
DisplayLabel = 'Cant. servida'
Alignment = taRightJustify
end
item
Name = 'DETALLE_SIN_ALBARANAR_CANTIDAD_PENDIENTE'
DataType = datInteger
BlobType = dabtUnknown
DisplayWidth = 0
DisplayLabel = 'Cant. pendiente'
Alignment = taRightJustify
end>
Left = 126
Top = 14

2
Source/Modulos/Inventario/Views/Inventario_view.bdsproj
View File

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

4
Source/Modulos/Inventario/Views/Inventario_view.dpk
View File

@ -94,6 +94,8 @@ contains
uEditorElegirArticulosCatalogo in 'uEditorElegirArticulosCatalogo.pas' {fEditorElegirArticulosCatalogo: TfEditorElegirArticulosInventario},
uEditorElegirArticulosAlmacen in 'uEditorElegirArticulosAlmacen.pas' {fEditorElegirArticulosAlmacen: TfEditorElegirArticulosAlmacen},
uViewDetalleReservas in 'uViewDetalleReservas.pas' {frViewDetalleReservas: TFrame},
uEditorDetalleReservas in 'uEditorDetalleReservas.pas' {fEditorDetalleReservas: TfEditorDetalleReservas};
uEditorDetalleReservas in 'uEditorDetalleReservas.pas' {fEditorDetalleReservas: TfEditorDetalleReservas},
uViewDetallesSinAlbaran in 'uViewDetallesSinAlbaran.pas' {frViewDetallesSinAlbaran: TFrame},
uEditorDetallesSinAlbaran in 'uEditorDetallesSinAlbaran.pas' {fEditorDetallesSinAlbaran: TfEditorDetallesSinAlbaran};
end.

1853
Source/Modulos/Inventario/Views/uEditorDetallesSinAlbaran.dfm Normal file
View File

File diff suppressed because it is too large Load Diff

262
Source/Modulos/Inventario/Views/uEditorDetallesSinAlbaran.pas Normal file
View File

@ -0,0 +1,262 @@
unit uEditorDetallesSinAlbaran;
interface
uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
uCustomEditor, ImgList, PngImageList, StdActns, ActnList, TB2ExtItems, TBXExtItems, TBX, TB2Item,
TB2Dock, TB2Toolbar, JvExControls, JvComponent, JvNavigationPane,
uViewDetallesSinAlbaran, Menus, DB, uDADataTable, ComCtrls, uViewGrid,
uDAScriptingProvider, uDACDSDataTable, JvAppStorage,
JvAppRegistryStorage, JvFormPlacement, pngimage, ExtCtrls, uCustomView,
uViewBase, uViewBarraSeleccion, JvComponentBase, uEditorGridBase,
uIEditorDetallesSinAlbaran, uBizInventario, uViewGridBase,
JvExComCtrls, JvStatusBar, uViewGrid2Niveles, JSDialog, uInventarioController;
type
TfEditorDetallesSinAlbaran = class(TfEditorGridBase, IEditorDetallesSinAlbaran)
TBXSeparatorItem17: TTBXSeparatorItem;
actExpandir: TAction;
actContraer: TAction;
frViewDetallesSinAlbaran1: TfrViewDetallesSinAlbaran;
TBXItem38: TTBXItem;
procedure FormShow(Sender: TObject);
procedure TBXItem38Click(Sender: TObject);
private
// function SeleccionarAlmacen(Descripcion: String): Integer;
// function DarIDAlmacenSeleccionado(Descripcion: String): Integer;
protected
// FArticulo: IBizInventario;
FDetalles: IBizDetalleSinAlbaran;
FController : IInventarioController;
// function GetArticulo: IBizInventario;
// procedure SetArticulo(const Value: IBizInventario);
function GetDetalles: IBizDetalleSinAlbaran;
procedure SetDetalles(const Value: IBizDetalleSinAlbaran);
{ procedure SetMultiSelect (AValue : Boolean);
function GetMultiSelect : Boolean;
function GetArticulosSeleccionados: IBizDetallesSinAlbaran;
}
function GetController : IInventarioController;
procedure SetController (const Value : IInventarioController);
procedure ImprimirInterno; override;
procedure PrevisualizarInterno; override;
public
// property Articulo: IBizInventario read GetArticulo write SetArticulo;
property DetallesSinAlbaran: IBizDetalleSinAlbaran read GetDetalles write SetDetalles;
property Controller : IInventarioController read GetController write SetController;
// property ArticulosSeleccionados: IBizDetallesSinAlbaran read GetArticulosSeleccionados;
// property MultiSelect : Boolean read GetMultiSelect write SetMultiSelect;
constructor Create(AOwner: TComponent); override;
destructor Destroy; override;
procedure PonerTitulos(const ATitulo: string = ''); override;
end;
implementation
{$R *.DFM}
uses
cxControls, uGridUtils, uDataModuleInventario, uDataModuleUsuarios,
uEditorBase, uDBSelectionListUtils, cxGridDBTableView, cxGridCustomTableView,
uAlmacenesController, uBizAlmacenes, uGenerarAlbaranesProvUtils,
schInventarioClient_Intf;
{, uDBSelectionList, uDataModulePedidosProveedor,
uBizPedidosProveedor, uBizMontajes, uDataModuleMontajes;
}
{ TfEditorDetallesSinAlbaran }
{
***************************** TfEditorDetallesSinAlbaran *****************************
}
constructor TfEditorDetallesSinAlbaran.Create(AOwner: TComponent);
begin
inherited;
ViewGrid := frViewDetallesSinAlbaran1;
end;
{
function TfEditorDetallesSinAlbaran.DarIDAlmacenSeleccionado(Descripcion: String): Integer;
var
AAlmacenes : IBizAlmacen;
AAlmacenesController : IAlmacenesController;
Respuesta : integer;
begin
if (ViewGrid._Grid.ActiveLevel.Tag = -1) then
Result := SeleccionarAlmacen(Descripcion)
else
Result := ViewGrid._Grid.ActiveLevel.Tag;
end;
}
destructor TfEditorDetallesSinAlbaran.Destroy;
begin
FDetalles := NIL;
inherited;
end;
procedure TfEditorDetallesSinAlbaran.FormShow(Sender: TObject);
begin
inherited;
if not Assigned(ViewGrid) then
raise Exception.Create('No hay ninguna vista asignada');
if not Assigned(DetallesSinAlbaran) then
raise Exception.Create('No hay ningún DetallesSinAlbaran asignado');
DetallesSinAlbaran.DataTable.Active := True;
ViewGrid.GotoFirst;
end;
{
function TfEditorDetallesSinAlbaran.GetArticulosSeleccionados: IBizDetallesSinAlbaran;
begin
SeleccionarFilasDesdeGrid((ViewGrid as IViewDetallesSinAlbaran)._FocusedView, (DetallesSinAlbaran as ISeleccionable).SelectedRecords);
// En Presupuestos.SelectedRecords tengo los ID de las filas seleccionadas del grid
Result := Controller.ExtraerSeleccionados(DetallesSinAlbaran);
end;
function TfEditorDetallesSinAlbaran.GetController: IDetallesSinAlbaranController;
begin
Result := FController;
end;
}
{
function TfEditorDetallesSinAlbaran.GetArticulo: IBizInventario;
begin
Result := FArticulo;
end;
}
function TfEditorDetallesSinAlbaran.GetController: IInventarioController;
begin
Result := FController;
end;
function TfEditorDetallesSinAlbaran.GetDetalles: IBizDetalleSinAlbaran;
begin
Result := FDetalles;
end;
{
function TfEditorDetallesSinAlbaran.GetMultiSelect: Boolean;
begin
Result := ViewGrid.MultiSelect;
end;
}
procedure TfEditorDetallesSinAlbaran.ImprimirInterno;
begin
inherited;
end;
procedure TfEditorDetallesSinAlbaran.PonerTitulos(const ATitulo: string);
var
FTitulo : String;
begin
FTitulo := 'Detalle de artículos sin albaranar - ' + dmUsuarios.EmpresaActual.NOMBRE;
inherited PonerTitulos(FTitulo);
end;
procedure TfEditorDetallesSinAlbaran.PrevisualizarInterno;
begin
inherited;
end;
{
function TfEditorDetallesSinAlbaran.SeleccionarAlmacen(Descripcion: String): Integer;
var
AAlmacenes : IBizAlmacen;
Respuesta : integer;
begin
Result := -1;
{
JsElegirAlmacenDialog.Instruction.Text := Descripcion;
with JsElegirAlmacenDialog.RadioButtons do
begin
Clear;
AAlmacenes := (ViewGrid as IViewDetallesSinAlbaran).Almacenes;
AAlmacenes.First;
while not AAlmacenes.EOF do
begin
with Add do
begin
Caption := AAlmacenes.NOMBRE;
Value := 1000 + AAlmacenes.ID;
end;
//Asi sabemos que solo va a intentar chequear el primero si hemos añadido al menos un item
Items[0].Checked := True;
AAlmacenes.Next;
end;
end;
//Sacar la pantalla de selección y devolver el almacén seleccionado.
Respuesta := JsElegirAlmacenDialog.Execute;
if Respuesta <> IDCANCEL then
Result := JsElegirAlmacenDialog.RadioResult - 1000;
end;
}
{
procedure TfEditorDetallesSinAlbaran.SetController(const Value: IDetallesSinAlbaranController);
begin
FController := Value;
if Assigned(FController) then
begin
if Assigned(ViewGrid) then
(ViewGrid as IViewDetallesSinAlbaran).Almacenes := FController.AlmacenesController.BuscarTodos;
end;
end;
}
{
procedure TfEditorDetallesSinAlbaran.SetArticulo(const Value: IBizInventario);
begin
FArticulo := Value;
if Assigned(FArticulo) then
begin
tbxEditFiltro.Text := FArticulo.REFERENCIA;
end;
end;
}
procedure TfEditorDetallesSinAlbaran.SetController(const Value: IInventarioController);
begin
FController := Value;
end;
procedure TfEditorDetallesSinAlbaran.SetDetalles(const Value: IBizDetalleSinAlbaran);
begin
FDetalles := Value;
dsDataTable.DataTable := FDetalles.DataTable;
if Assigned(ViewGrid) then
(ViewGrid as IViewDetalleSinAlbaran).Detalles := FDetalles;
end;
procedure TfEditorDetallesSinAlbaran.TBXItem38Click(Sender: TObject);
var
aaaa: IBizDetalleSinAlbaran;
begin
inherited;
SeleccionarFilasDesdeGrid(ViewGrid._FocusedView, (DetallesSinAlbaran as ISeleccionable).SelectedRecords);
// En SelectedRecords tengo los ID de las filas seleccionadas del grid
aaaa := (Controller as IInventarioController).ExtraerSeleccionados(DetallesSinAlbaran) as IBizDetalleSinAlbaran;
showmessage(inttostr(aaaa.DataTable.RecordCount));
end;
{
procedure TfEditorDetallesSinAlbaran.SetMultiSelect(AValue: Boolean);
begin
ViewGrid.MultiSelect := AValue;
end;
}
end.

14
Source/Modulos/Inventario/Views/uEditorElegirArticulosAlmacen.dfm
View File

@ -173,23 +173,17 @@ inherited fEditorElegirArticulosAlmacen: TfEditorElegirArticulosAlmacen
inherited dxLayoutControl1: TdxLayoutControl
Width = 656
ExplicitWidth = 656
inherited txtFiltroTodo: TcxTextEdit
ExplicitWidth = 468
Width = 468
end
inherited edtFechaIniFiltro: TcxDateEdit
ExplicitWidth = 246
Width = 246
end
inherited edtFechaFinFiltro: TcxDateEdit
ExplicitWidth = 241
Width = 241
ExplicitWidth = 249
Width = 249
end
end
inherited TBXAlignmentPanel1: TTBXAlignmentPanel
Width = 656
ExplicitWidth = 656
inherited tbxBotones: TTBXToolbar
Width = 646
ExplicitWidth = 646
end
end
end

12
Source/Modulos/Inventario/Views/uEditorInventario.dfm
View File

@ -5,7 +5,7 @@ inherited fEditorInventario: TfEditorInventario
ClientHeight = 540
ClientWidth = 669
ExplicitWidth = 677
ExplicitHeight = 574
ExplicitHeight = 567
PixelsPerInch = 96
TextHeight = 13
inherited JvNavPanelHeader: TJvNavPanelHeader
@ -79,11 +79,14 @@ inherited fEditorInventario: TfEditorInventario
DockPos = 264
Visible = True
ExplicitLeft = 269
ExplicitWidth = 113
ExplicitWidth = 240
object TBXItem38: TTBXItem
Action = actReservados
DisplayMode = nbdmImageAndText
end
object TBXItem39: TTBXItem
Action = actAlbaranar
end
end
end
inherited StatusBar: TJvStatusBar
@ -301,6 +304,11 @@ inherited fEditorInventario: TfEditorInventario
OnExecute = actReservadosExecute
OnUpdate = actReservadosUpdate
end
object actAlbaranar: TAction
Category = 'Logistica'
Caption = 'Pendientes de albaranar'
OnExecute = actAlbaranarExecute
end
end
inherited SmallImages: TPngImageList [5]
PngImages = <

9
Source/Modulos/Inventario/Views/uEditorInventario.pas
View File

@ -30,6 +30,8 @@ type
JsElegirAlmacenDialog: TJSDialog;
actReservados: TAction;
TBXItem38: TTBXItem;
actAlbaranar: TAction;
TBXItem39: TTBXItem;
procedure actModificarExecute(Sender: TObject);
procedure actRecibirPedidoExecute(Sender: TObject);
procedure actTrasladarExecute(Sender: TObject);
@ -44,6 +46,7 @@ type
procedure FormShow(Sender: TObject);
procedure actReservadosUpdate(Sender: TObject);
procedure actReservadosExecute(Sender: TObject);
procedure actAlbaranarExecute(Sender: TObject);
private
function SeleccionarAlmacen(Descripcion: String): Integer;
@ -317,6 +320,12 @@ begin
RefrescarInterno;
end;
procedure TfEditorInventario.actAlbaranarExecute(Sender: TObject);
begin
inherited;
FController.VerSinAlbaran; //(Inventario);
end;
procedure TfEditorInventario.actContraerExecute(Sender: TObject);
begin
if Assigned(ViewGrid) then

6
Source/Modulos/Inventario/Views/uInventarioViewRegister.pas
View File

@ -10,7 +10,7 @@ implementation
uses
uEditorRegistryUtils, uEditorInventario, uEditorEntradaSalidaArticulos,
uEditorElegirArticulosCatalogo, uEditorElegirArticulosAlmacen,
uEditorDetalleReservas;
uEditorDetalleReservas, uEditorDetallesSinAlbaran;
procedure RegisterViews;
begin
@ -19,6 +19,7 @@ begin
EditorRegistry.RegisterClass(TfEditorElegirArticulosCatalogo, 'EditorElegirArticulosCatalogo');
EditorRegistry.RegisterClass(TfEditorElegirArticulosAlmacen, 'EditorElegirArticulosAlmacen');
EditorRegistry.RegisterClass(TfEditorDetalleReservas, 'EditorDetalleReservas');
EditorRegistry.RegisterClass(TfEditorDetallesSinAlbaran, 'EditorDetallesSinAlbaran');
end;
procedure UnregisterViews;
@ -27,7 +28,8 @@ begin
EditorRegistry.UnRegisterClass(TfEditorEntradaSalidaArticulos);
EditorRegistry.UnRegisterClass(TfEditorElegirArticulosCatalogo);
EditorRegistry.UnRegisterClass(TfEditorElegirArticulosAlmacen);
EditorRegistry.UnRegisterClass(TfEditorDetalleReservas);
EditorRegistry.UnRegisterClass(TfEditorDetalleReservas);
EditorRegistry.UnRegisterClass(TfEditorDetallesSinAlbaran);
end;
end.

256
Source/Modulos/Inventario/Views/uViewDetallesSinAlbaran.dfm Normal file
View File

@ -0,0 +1,256 @@
inherited frViewDetallesSinAlbaran: TfrViewDetallesSinAlbaran
inherited cxGrid: TcxGrid
inherited cxGridView: TcxGridDBTableView
DataController.KeyFieldNames = 'RecID'
DataController.Options = [dcoAnsiSort, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoSortByDisplayText, dcoGroupsAlwaysExpanded]
DataController.Summary.DefaultGroupSummaryItems = <
item
Format = ',0.00 '#8364';-,0.00 '#8364
Kind = skSum
Position = spFooter
end
item
Format = '0 Pedidos'
Kind = skSum
Position = spFooter
Column = cxGridViewCANTIDAD_PEDIDA
end
item
Format = '0 Pendientes'
Kind = skSum
Position = spFooter
Column = cxGridViewCANTIDAD_PENDIENTE
end>
DataController.Summary.FooterSummaryItems = <
item
Format = '0 art'#237'culos'
Kind = skCount
end
item
Format = '0 art'#237'culos'
Kind = skCount
end
item
Format = ',0.00 '#8364';-,0.00 '#8364
Kind = skSum
end
item
Format = '0'
Kind = skSum
end
item
Format = '0'
Kind = skSum
end
item
Format = '0'
Kind = skSum
end
item
Format = '0'
Kind = skSum
end
item
Format = '0 Pedidos'
Kind = skSum
Column = cxGridViewCANTIDAD_PEDIDA
end
item
Format = '0 Pendientes'
Kind = skSum
Column = cxGridViewCANTIDAD_PENDIENTE
end>
OptionsCustomize.ColumnHidingOnGrouping = False
OptionsCustomize.GroupBySorting = True
OptionsView.GroupFooters = gfAlwaysVisible
object cxGridViewRecID: TcxGridDBColumn
DataBinding.FieldName = 'RecID'
Visible = False
end
object cxGridViewREFERENCIA_PEDIDO: TcxGridDBColumn
DataBinding.FieldName = 'REFERENCIA_PEDIDO'
end
object cxGridViewFECHA_PEDIDO: TcxGridDBColumn
DataBinding.FieldName = 'FECHA_PEDIDO'
Visible = False
end
object cxGridViewFECHA_PREVISTA_PEDIDO: TcxGridDBColumn
DataBinding.FieldName = 'FECHA_PREVISTA_PEDIDO'
end
object cxGridViewID_CLIENTE: TcxGridDBColumn
DataBinding.FieldName = 'ID_CLIENTE'
Visible = False
end
object cxGridViewCLIENTE: TcxGridDBColumn
DataBinding.FieldName = 'CLIENTE'
end
object cxGridViewID_ARTICULO: TcxGridDBColumn
DataBinding.FieldName = 'ID_ARTICULO'
end
object cxGridViewFAMILIA: TcxGridDBColumn
DataBinding.FieldName = 'FAMILIA'
end
object cxGridViewREFERENCIA: TcxGridDBColumn
DataBinding.FieldName = 'REFERENCIA'
end
object cxGridViewREFERENCIA_PROVEEDOR: TcxGridDBColumn
DataBinding.FieldName = 'REFERENCIA_PROVEEDOR'
end
object cxGridViewDESCRIPCION: TcxGridDBColumn
DataBinding.FieldName = 'DESCRIPCION'
end
object cxGridViewCANTIDAD_PEDIDA: TcxGridDBColumn
DataBinding.FieldName = 'CANTIDAD_PEDIDA'
PropertiesClassName = 'TcxSpinEditProperties'
Properties.Alignment.Horz = taRightJustify
FooterAlignmentHorz = taRightJustify
end
object cxGridViewCANTIDAD_RESERVADA: TcxGridDBColumn
DataBinding.FieldName = 'CANTIDAD_RESERVADA'
end
object cxGridViewCANTIDAD_ENVIADA: TcxGridDBColumn
DataBinding.FieldName = 'CANTIDAD_ENVIADA'
end
object cxGridViewCANTIDAD_SERVIDA: TcxGridDBColumn
DataBinding.FieldName = 'CANTIDAD_SERVIDA'
end
object cxGridViewCANTIDAD_PENDIENTE: TcxGridDBColumn
DataBinding.FieldName = 'CANTIDAD_PENDIENTE'
end
end
object cxGridDBTableView1: TcxGridDBTableView [1]
NavigatorButtons.ConfirmDelete = False
DataController.Summary.DefaultGroupSummaryItems = <>
DataController.Summary.FooterSummaryItems = <>
DataController.Summary.SummaryGroups = <>
OptionsView.NewItemRowInfoText = 'Click here to add a new row'
end
inherited cxGridLevel: TcxGridLevel
Tag = -1
Caption = 'Todos los almacenes'
end
end
inherited frViewFiltroBase1: TfrViewFiltroBase
inherited TBXDockablePanel1: TTBXDockablePanel
inherited dxLayoutControl1: TdxLayoutControl
inherited txtFiltroTodo: TcxTextEdit
ExplicitWidth = 468
Width = 468
end
inherited edtFechaIniFiltro: TcxDateEdit
ExplicitWidth = 121
Width = 121
end
inherited edtFechaFinFiltro: TcxDateEdit
Left = 283
ExplicitLeft = 283
ExplicitWidth = 200
Width = 200
end
end
end
end
inherited pnlAgrupaciones: TTBXDockablePanel
Visible = True
inherited TBXAlignmentPanel1: TTBXAlignmentPanel
inherited TBXToolbar1: TTBXToolbar
object TBXSeparatorItem1: TTBXSeparatorItem
end
object TBXItem3: TTBXItem
Action = actClientes
end
object TBXSeparatorItem2: TTBXSeparatorItem
end
object TBXItem2: TTBXItem
Action = actPedidos
end
end
end
end
inherited dxComponentPrinter: TdxComponentPrinter
inherited dxComponentPrinterLink: TdxGridReportLink
ReportDocument.CreationDate = 38673.741107951390000000
BuiltInReportLink = True
end
end
inherited cxStyleRepository1: TcxStyleRepository
inherited cxStyleEven: TcxStyle
AssignedValues = [svFont]
end
inherited cxStyleOdd: TcxStyle
AssignedValues = [svColor, svFont]
end
inherited cxStyleSelection: TcxStyle
AssignedValues = [svColor, svFont, svTextColor]
end
object cxStyleArticuloSinStock: TcxStyle
AssignedValues = [svFont, svTextColor]
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'Tahoma'
Font.Style = []
TextColor = clRed
end
end
inherited ActionList1: TActionList
object actClientes: TAction
Caption = 'Clientes'
OnExecute = actClientesExecute
OnUpdate = actClientesUpdate
end
object actPedidos: TAction
Caption = 'Pedidos'
OnExecute = actPedidosExecute
OnUpdate = actPedidosUpdate
end
end
inherited dxPrintStyleManager1: TdxPrintStyleManager
inherited dxPrintStyleManager1Style1: TdxPSPrintStyle
BuiltInStyle = True
end
end
object PngImageList: TPngImageList
PngImages = <
item
PngImage.Data = {
89504E470D0A1A0A0000000D49484452000000100000001008060000001FF3FF
610000000970485973000017120000171201679FD252000001004944415478DA
63BC5C22F99F8148A0D3FD8C115D8C1164806A4B0D84F7FD3B03C3FD3B0CB3DB
3732A42EC614CB5985CF00A8C2E9177D1858B6A5420C4013C36D4075315821C3
F5AB0CD37F95430C98852986DB80287FB02D300036A012530CA701071E121788
F8C3002DC072573F67FCFF9F7004E10C449001403967A09A3D78F4BBE00C44A8
0160C3D9D9B33074FEFC398D61766C0BEE408419004C3C60C5700072E98FEF0C
D3771882D5E10C44AC0680347F7807A6A79F748618802FA0AE944A210C80697E
0FC43F7E324CBF194C82011F7A119A3F7C80B8E0552A09063CA8466806BBE03B
3CB0091A008A85E9CBE5B1CA13638033308071A6030779061700E6FAF742387F
63F70000000049454E44AE426082}
Name = 'PngImage1'
Background = clWindow
end
item
PngImage.Data = {
89504E470D0A1A0A0000000D49484452000000100000001008060000001FF3FF
610000000970485973000017120000171201679FD252000001A94944415478DA
8D925D28836114C7FF4FBEE246B9734BBB61B990C89512492925F9B6BB5D0817
98968FF21186250AADB69285D2848DB2A5AC854D44CBB7D096C495A4D078278F
BDCF986C5EAF53E7E2391FBF739E7F871C2AE229FE6952F52D098E111E20E969
F7BF3C1EC07D099DCA04F95468ACCEF017E0B350B35F80F015B91F10141306B4
35B1429C1E43C329FD00AD3F962493E22156E2AB04C2C280A8FB0B5C1FD4929F
808A4236E5CB18A0A51059CD524CE86B7E4C54CD7A611C69C5E3F51009006C57
A1822D726D181DAF816DDF0B854CC936A03E2F560EB0BC75BA0337CE7E2228A2
FA7912666D0E4A4B1A71681FF95E396D8B5695A7C2BED00597BD8F088A38F834
098B2E0795D58D705A4301DBCBDD38B7F5124111EB5DF3A277417733C9AF2236
8CC5E1D894210A48CE1FFE5D447E3A0F303ADEC0BD51B87737E1DAE944427A27
A21333F1F24AA19F3900380708A5A197CCFF930718D6BDE0BC141BBADC402EB1
C8020FF70EC3DC9138607A8D631BF0EE9CCA0B34BFF87CC974220ED0995F59F3
ED9E1177671A44C457213AA98C01ACAB677F034415E44D08C0202943A290C8C8
98EC0F53DC14659A0322CE0000000049454E44AE426082}
Name = 'PngImage0'
Background = clWindow
end>
Left = 56
Top = 48
Bitmap = {}
end
end

241
Source/Modulos/Inventario/Views/uViewDetallesSinAlbaran.pas Normal file
View File

@ -0,0 +1,241 @@
unit uViewDetallesSinAlbaran;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, frxClass, frxPreview, cxStyles,
cxCustomData, cxGraphics, cxFilter, cxData, cxDataStorage, cxEdit, DB,
cxDBData, ActnList, uDADataTable, cxGridLevel, cxClasses, cxControls,
cxGridCustomView, cxGridCustomTableView, cxGridTableView,
cxGridDBTableView, cxGrid, StdCtrls, ExtCtrls, cxLabel, dxPSGlbl, dxPSUtl,
dxPSEngn, dxPrnPg, dxBkgnd, dxWrap, dxPrnDev, dxPSCompsProvider, dxPSFillPatterns,
dxPSEdgePatterns, cxIntlPrintSys3, dxPSCore, dxPScxCommon, dxPScxGridLnk, cxImage,
cxImageComboBox, ImgList, PngImageList, cxTextEdit, Grids, DBGrids, cxDBLookupComboBox,
cxButtonEdit, cxGridCustomPopupMenu, cxGridPopupMenu, uViewGrid,
uBizInventario, uBizAlmacenes, cxSpinEdit, uViewFiltroBase, TB2Item, TBX,
TB2Toolbar, TBXDkPanels, TB2Dock, dxPgsDlg, cxCurrencyEdit, uAlmacenesController;
type
IViewDetalleSinAlbaran = interface(IViewGrid)
['{4417F53A-5BB1-4B99-8760-4C0E1D449582}']
function GetDetalles: IBizDetalleSinAlbaran;
procedure SetDetalles(const Value: IBizDetalleSinAlbaran);
property Detalles: IBizDetalleSinAlbaran read GetDetalles write SetDetalles;
// function GetAlmacenes: IBizAlmacen;
// procedure SetAlmacenes(const Value: IBizAlmacen);
// property Almacenes: IBizAlmacen read GetAlmacenes write SetAlmacenes;
end;
TfrViewDetallesSinAlbaran = class(TfrViewGrid, IViewDetalleSinAlbaran)
cxGridDBTableView1: TcxGridDBTableView;
PngImageList: TPngImageList;
cxStyleArticuloSinStock: TcxStyle;
cxGridViewRecID: TcxGridDBColumn;
cxGridViewREFERENCIA_PEDIDO: TcxGridDBColumn;
cxGridViewFECHA_PEDIDO: TcxGridDBColumn;
cxGridViewFECHA_PREVISTA_PEDIDO: TcxGridDBColumn;
cxGridViewID_CLIENTE: TcxGridDBColumn;
cxGridViewCLIENTE: TcxGridDBColumn;
cxGridViewID_ARTICULO: TcxGridDBColumn;
cxGridViewFAMILIA: TcxGridDBColumn;
cxGridViewREFERENCIA: TcxGridDBColumn;
cxGridViewREFERENCIA_PROVEEDOR: TcxGridDBColumn;
cxGridViewDESCRIPCION: TcxGridDBColumn;
cxGridViewCANTIDAD_PEDIDA: TcxGridDBColumn;
cxGridViewCANTIDAD_RESERVADA: TcxGridDBColumn;
cxGridViewCANTIDAD_ENVIADA: TcxGridDBColumn;
cxGridViewCANTIDAD_SERVIDA: TcxGridDBColumn;
cxGridViewCANTIDAD_PENDIENTE: TcxGridDBColumn;
TBXItem2: TTBXItem;
TBXItem3: TTBXItem;
actClientes: TAction;
actPedidos: TAction;
TBXSeparatorItem1: TTBXSeparatorItem;
TBXSeparatorItem2: TTBXSeparatorItem;
procedure cxGridViewStylesGetContentStyle(Sender: TcxCustomGridTableView;
ARecord: TcxCustomGridRecord; AItem: TcxCustomGridTableItem; out
AStyle: TcxStyle);
procedure actClientesExecute(Sender: TObject);
procedure actClientesUpdate(Sender: TObject);
procedure actPedidosExecute(Sender: TObject);
procedure actPedidosUpdate(Sender: TObject);
private
// FAlmacenesController: IAlmacenesController;
// FAlmacenes: IBizAlmacen;
// function GetAlmacenes: IBizAlmacen;
// procedure SetAlmacenes(const Value: IBizAlmacen);
//Filtros relativos a la vista
// procedure AnadirFiltroAlmacenes;
protected
FDetalles: IBizDetalleSinAlbaran;
function GetDetalles: IBizDetalleSinAlbaran;
procedure SetDetalles(const Value: IBizDetalleSinAlbaran);
procedure AnadirOtrosFiltros; override;
public
// property Almacenes: IBizAlmacen read GetAlmacenes write SetAlmacenes;
// property DetalleReservas: IBizDetalleReservas read GetDetalleReservas write SetDetalleReservas;
constructor Create(AOwner: TComponent); override;
destructor Destroy; override;
end;
implementation
{$R *.dfm}
uses uDataModuleInventario, schInventarioClient_Intf;
{
procedure TfrViewDetallesSinAlbaran.AnadirFiltroAlmacenes;
var
FFiltro : TcxFilterCriteriaItemList;
CodigoAlmacen: String;
begin
FFiltro := AddFilterGrid(fboAnd);
CodigoAlmacen := IntToStr(cxGrid.Levels.Items[cxGrid.ActiveLevel.Index].Tag);
if CodigoAlmacen <> '-1' then
begin
FFiltro.AddItem(cxGridViewID_ALMACEN_ALB, foEqual, CodigoAlmacen, CodigoAlmacen);
cxGridViewALMACEN_ALB.Visible := False;
end
else
cxGridViewALMACEN_ALB.Visible := True;
end;
}
procedure TfrViewDetallesSinAlbaran.actClientesExecute(Sender: TObject);
begin
if (cxGridViewCLIENTE.GroupIndex < 0) then
begin
cxGridViewCLIENTE.GroupIndex := cxGridView.GroupedColumnCount;
cxGridViewCLIENTE.Visible := False;
end
else
begin
cxGridViewCLIENTE.GroupIndex := -1;
cxGridViewCLIENTE.Visible := True;
end;
end;
procedure TfrViewDetallesSinAlbaran.actClientesUpdate(Sender: TObject);
begin
inherited;
(Sender as TAction).Checked := not (cxGridViewCLIENTE.GroupIndex < 0);
end;
procedure TfrViewDetallesSinAlbaran.actPedidosExecute(Sender: TObject);
begin
if (cxGridViewREFERENCIA_PEDIDO.GroupIndex < 0) then
begin
cxGridViewREFERENCIA_PEDIDO.GroupIndex := cxGridView.GroupedColumnCount;
cxGridViewREFERENCIA_PEDIDO.Visible := False;
end
else
begin
cxGridViewREFERENCIA_PEDIDO.GroupIndex := -1;
cxGridViewREFERENCIA_PEDIDO.Visible := True;
end;
end;
procedure TfrViewDetallesSinAlbaran.actPedidosUpdate(Sender: TObject);
begin
inherited;
(Sender as TAction).Checked := not (cxGridViewREFERENCIA_PEDIDO.GroupIndex < 0);
end;
procedure TfrViewDetallesSinAlbaran.AnadirOtrosFiltros;
begin
inherited;
// AnadirFiltroAlmacenes;
//Finalmente activamos el filtro si tenemos algo
if cxGridView.DataController.Filter.IsEmpty
then cxGridView.DataController.Filter.Active := False
else cxGridView.DataController.Filter.Active := True;
cxGrid.ActiveLevel.GridView := cxGridView;
end;
constructor TfrViewDetallesSinAlbaran.Create(AOwner: TComponent);
begin
inherited;
// FAlmacenesController := TAlmacenesController.Create;
// Almacenes := FAlmacenesController.BuscarTodos;
end;
procedure TfrViewDetallesSinAlbaran.cxGridViewStylesGetContentStyle(Sender:
TcxCustomGridTableView; ARecord: TcxCustomGridRecord; AItem:
TcxCustomGridTableItem; out AStyle: TcxStyle);
var
IndiceCol: Integer;
AStock: Variant;
begin
inherited;
{
if Assigned(ARecord) then
begin
IndiceCol := (Sender as TcxGridDBTableView).GetColumnByFieldName(fld_DetalleReservasSTOCK).Index;
AStock := ARecord.DisplayTexts[IndiceCol];
if (AStock < 0) then
AStyle := cxStyleArticuloSinStock;
end;
}
end;
destructor TfrViewDetallesSinAlbaran.Destroy;
begin
// FAlmacenesController := Nil;
// FAlmacenes := Nil;
FDetalles := Nil;
inherited;
end;
{function TfrViewDetallesSinAlbaran.GetAlmacenes: IBizAlmacen;
begin
Result := FAlmacenes;
end;
}
function TfrViewDetallesSinAlbaran.GetDetalles: IBizDetalleSinAlbaran;
begin
Result := FDetalles;
end;
{
procedure TfrViewDetallesSinAlbaran.SetAlmacenes(const Value: IBizAlmacen);
var
Nivel: TcxGridLevel;
begin
FAlmacenes := Value;
if Assigned(FAlmacenes) then
begin
if not FAlmacenes.DataTable.Active then
FAlmacenes.DataTable.Active := True;
FAlmacenes.First;
while not FAlmacenes.EOF do
begin
Nivel := cxGrid.Levels.Add;
Nivel.Caption := FAlmacenes.NOMBRE;
Nivel.Tag := FAlmacenes.ID;
FAlmacenes.Next;
end;
end;
end;
}
procedure TfrViewDetallesSinAlbaran.SetDetalles(const Value: IBizDetalleSinAlbaran);
begin
FDetalles := Value;
if Assigned(FDetalles) then
dsDataSource.DataTable := FDetalles.DataTable
else
dsDataSource.DataTable := Nil;
end;
end.

3
Source/Modulos/Pedidos a proveedor/PedidosProveedor_Group.bdsgroup
View File

@ -22,7 +22,8 @@
<Projects Name="PedidosProveedor_plugin.bpl">Plugin\PedidosProveedor_plugin.bdsproj</Projects>
<Projects Name="FactuGES.exe">..\..\Cliente\FactuGES.bdsproj</Projects>
<Projects Name="FactuGES_Server.exe">..\..\Servidor\FactuGES_Server.bdsproj</Projects>
<Projects Name="Targets">DataAbstract_D10.bpl Base.bpl ControllerBase.bpl GUIBase.bpl Contactos_view.bpl Articulos_view.bpl PedidosProveedor_model.bpl PedidosProveedor_data.bpl PedidosProveedor_controller.bpl PedidosProveedor_view.bpl PedidosProveedor_plugin.bpl FactuGES.exe FactuGES_Server.exe</Projects>
<Projects Name="PedProv_AlbProv_relation.bpl">..\Relaciones\Pedidos de proveedor - Albaranes de proveedor\PedProv_AlbProv_relation.bdsproj</Projects>
<Projects Name="Targets">DataAbstract_D10.bpl Base.bpl ControllerBase.bpl GUIBase.bpl Contactos_view.bpl Articulos_view.bpl PedidosProveedor_model.bpl PedidosProveedor_data.bpl PedidosProveedor_controller.bpl PedidosProveedor_view.bpl PedidosProveedor_plugin.bpl FactuGES.exe FactuGES_Server.exe PedProv_AlbProv_relation.bpl</Projects>
</Projects>
<Dependencies/>
</Default.Personality>

2
Source/Modulos/Relaciones/Pedidos de cliente - Albaranes de cliente/uGenerarAlbaranesCliUtils.pas
View File

@ -49,6 +49,7 @@ begin
// El albarán tiene que venir ya abierto y posicionado donde hay que copiar
AAlbaran.ID_CLIENTE := APedido.ID_CLIENTE;
AAlbaran.ID_PEDIDO := APedido.ID;
AAlbaran.TIPO := CTE_TIPO_ALBARAN;
AAlbaran.REFERENCIA_CLIENTE := APedido.REFERENCIA_CLIENTE;
AAlbaran.CALLE := APedido.CALLE;
AAlbaran.CODIGO_POSTAL := APedido.CODIGO_POSTAL;
@ -104,6 +105,7 @@ begin
begin
ADetallesController.Add(ADetalles, TIPO_DETALLE_CONCEPTO);
ADetalles.Edit;
ADetalles.ID_PEDIDO := APedido.Detalles.ID_PEDIDO;
ADetalles.REFERENCIA := APedido.Detalles.REFERENCIA;
ADetalles.ID_ARTICULO := APedido.Detalles.ID_ARTICULO;
ADetalles.CONCEPTO := APedido.Detalles.CONCEPTO;

1
Source/Modulos/Relaciones/Pedidos de proveedor - Albaranes de proveedor/uGenerarAlbaranesProvUtils.pas
View File

@ -106,6 +106,7 @@ begin
begin
ADetallesController.Add(ADetalles, TIPO_DETALLE_CONCEPTO);
ADetalles.Edit;
ADetalles.ID_PEDIDO := APedido.Detalles.ID_PEDIDO;
ADetalles.REFERENCIA := APedido.Detalles.REFERENCIA;
ADetalles.ID_ARTICULO := APedido.Detalles.ID_ARTICULO;
ADetalles.CONCEPTO := APedido.Detalles.CONCEPTO;

17
Source/Servidor/FactuGES_Server.bdsproj
View File

@ -1,4 +1,4 @@
<?xml version="1.0" encoding="utf-8"?>
<?xml version="1.0" encoding="utf-8"?>
<BorlandProject>
<PersonalityInfo>
<Option>
@ -153,7 +153,7 @@
<VersionInfo Name="IncludeVerInfo">True</VersionInfo>
<VersionInfo Name="AutoIncBuild">False</VersionInfo>
<VersionInfo Name="MajorVer">2</VersionInfo>
<VersionInfo Name="MinorVer">4</VersionInfo>
<VersionInfo Name="MinorVer">5</VersionInfo>
<VersionInfo Name="Release">0</VersionInfo>
<VersionInfo Name="Build">0</VersionInfo>
<VersionInfo Name="Debug">False</VersionInfo>
@ -167,7 +167,7 @@
<VersionInfoKeys>
<VersionInfoKeys Name="CompanyName">Rodax Software S.L.</VersionInfoKeys>
<VersionInfoKeys Name="FileDescription"></VersionInfoKeys>
<VersionInfoKeys Name="FileVersion">2.4.0.0</VersionInfoKeys>
<VersionInfoKeys Name="FileVersion">2.5.0.0</VersionInfoKeys>
<VersionInfoKeys Name="InternalName"></VersionInfoKeys>
<VersionInfoKeys Name="LegalCopyright"></VersionInfoKeys>
<VersionInfoKeys Name="LegalTrademarks"></VersionInfoKeys>
@ -175,12 +175,11 @@
<VersionInfoKeys Name="ProductName">FactuGES Server</VersionInfoKeys>
<VersionInfoKeys Name="ProductVersion">2.4.0.0</VersionInfoKeys>
<VersionInfoKeys Name="Comments"></VersionInfoKeys>
<VersionInfoKeys Name="CompileDate"></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>
</Delphi.Personality>
<VersionInfoKeys Name="CompileDate">miércoles, 05 de marzo de 2008 17:35</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>
</Delphi.Personality>
<ModelSupport>False</ModelSupport>
<!-- EurekaLog First Line
[Exception Log]

12
Source/Servidor/FactuGES_Server.dpr
View File

@ -101,8 +101,6 @@ uses
schReferenciasServer_Intf in '..\Modulos\Referencias\Model\schReferenciasServer_Intf.pas',
schPedidosClienteClient_Intf in '..\Modulos\Pedidos de cliente\Model\schPedidosClienteClient_Intf.pas',
schPedidosClienteServer_Intf in '..\Modulos\Pedidos de cliente\Model\schPedidosClienteServer_Intf.pas',
schAlbaranesProveedorClient_Intf in '..\Modulos\Albaranes de proveedor\Model\schAlbaranesProveedorClient_Intf.pas',
schAlbaranesProveedorServer_Intf in '..\Modulos\Albaranes de proveedor\Model\schAlbaranesProveedorServer_Intf.pas',
srvInformes_Impl in '..\Modulos\Informes base\Servidor\srvInformes_Impl.pas' {srvInformes: TDARemoteService},
srvInfVentasArticulo_Impl in '..\Modulos\Informe ventas por articulo\Servidor\srvInfVentasArticulo_Impl.pas' {srvInfVentasArticulo: TDARemoteService},
uSchemaUtilsServer in 'Utiles\uSchemaUtilsServer.pas',
@ -112,8 +110,6 @@ uses
schRecibosProveedorServer_Intf in '..\Modulos\Recibos de proveedor\Model\schRecibosProveedorServer_Intf.pas',
schInformesClient_Intf in '..\Modulos\Informes base\Model\schInformesClient_Intf.pas',
schInformesServer_Intf in '..\Modulos\Informes base\Model\schInformesServer_Intf.pas',
schInventarioClient_Intf in '..\Modulos\Inventario\Model\schInventarioClient_Intf.pas',
schInventarioServer_Intf in '..\Modulos\Inventario\Model\schInventarioServer_Intf.pas',
schRemesasProveedorClient_Intf in '..\Modulos\Remesas de proveedor\Model\schRemesasProveedorClient_Intf.pas',
schRemesasProveedorServer_Intf in '..\Modulos\Remesas de proveedor\Model\schRemesasProveedorServer_Intf.pas',
schRemesasClienteClient_Intf in '..\Modulos\Remesas de cliente\Model\schRemesasClienteClient_Intf.pas',
@ -128,10 +124,14 @@ uses
uRptEtiquetasContactos_Server in '..\Modulos\Contactos\Reports\uRptEtiquetasContactos_Server.pas' {RptEtiquetasContactos: TDataModule},
schContactosClient_Intf in '..\Modulos\Contactos\Model\schContactosClient_Intf.pas',
schContactosServer_Intf in '..\Modulos\Contactos\Model\schContactosServer_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',
schAlbaranesClienteClient_Intf in '..\Modulos\Albaranes de cliente\Model\schAlbaranesClienteClient_Intf.pas',
schAlbaranesClienteServer_Intf in '..\Modulos\Albaranes de cliente\Model\schAlbaranesClienteServer_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';
schAlbaranesProveedorClient_Intf in '..\Modulos\Albaranes de proveedor\Model\schAlbaranesProveedorClient_Intf.pas',
schAlbaranesProveedorServer_Intf in '..\Modulos\Albaranes de proveedor\Model\schAlbaranesProveedorServer_Intf.pas';
{$R *.res}
{$R ..\Servicios\RODLFile.res}

196
Source/Servidor/FactuGES_Server.drc
View File

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

10
Source/Servidor/FactuGES_Server.rc
View File

@ -1,7 +1,7 @@
MAINICON ICON "c:\Codigo Luis Leon\Source\Iconos\Servidor.ico"
1 VERSIONINFO
FILEVERSION 2,4,0,0
PRODUCTVERSION 2,4,0,0
FILEVERSION 2,5,0,0
PRODUCTVERSION 2,5,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.4.0.0\0"
VALUE "FileVersion", "2.5.0.0\0"
VALUE "ProductName", "FactuGES Server\0"
VALUE "ProductVersion", "2.4.0.0\0"
VALUE "CompileDate", "miércoles, 23 de enero de 2008 13:47\0"
VALUE "ProductVersion", "2.5.0.0\0"
VALUE "CompileDate", "viernes, 28 de marzo de 2008 14:25\0"
END
END
BLOCK "VarFileInfo"

BIN
Source/Servidor/FactuGES_Server.res
View File

Binary file not shown.