Subida de otra parte de funcionalidad de reservas de articulos

git-svn-id: https://192.168.0.254/svn/Proyectos.Tecsitel_FactuGES2/trunk@568 0c75b7a4-871f-7646-8a2f-f78d34cc349f
This commit is contained in:
roberto 2008-09-04 17:38:49 +00:00
parent 8d20a38746
commit db9ec83967
23 changed files with 1419 additions and 1199 deletions

View File

@ -54,7 +54,7 @@
<Borland.Personality>Delphi.Personality</Borland.Personality> <Borland.Personality>Delphi.Personality</Borland.Personality>
<Borland.ProjectType>VCLApplication</Borland.ProjectType> <Borland.ProjectType>VCLApplication</Borland.ProjectType>
<BorlandProject> <BorlandProject>
<BorlandProject><Delphi.Personality><Parameters><Parameters Name="UseLauncher">False</Parameters><Parameters Name="LoadAllSymbols">True</Parameters><Parameters Name="LoadUnspecifiedSymbols">False</Parameters></Parameters><Language><Language Name="RootDir">C:\Archivos de programa\Borland\Delphi7\Bin\</Language></Language><VersionInfo><VersionInfo Name="IncludeVerInfo">True</VersionInfo><VersionInfo Name="AutoIncBuild">False</VersionInfo><VersionInfo Name="MajorVer">1</VersionInfo><VersionInfo Name="MinorVer">2</VersionInfo><VersionInfo Name="Release">7</VersionInfo><VersionInfo Name="Build">0</VersionInfo><VersionInfo Name="Debug">False</VersionInfo><VersionInfo Name="PreRelease">False</VersionInfo><VersionInfo Name="Special">False</VersionInfo><VersionInfo Name="Private">False</VersionInfo><VersionInfo Name="DLL">False</VersionInfo><VersionInfo Name="Locale">3082</VersionInfo><VersionInfo Name="CodePage">1252</VersionInfo></VersionInfo><VersionInfoKeys><VersionInfoKeys Name="CompanyName">Rodax Software S.L.</VersionInfoKeys><VersionInfoKeys Name="FileDescription"></VersionInfoKeys><VersionInfoKeys Name="FileVersion">1.2.7.0</VersionInfoKeys><VersionInfoKeys Name="InternalName">FactuGES</VersionInfoKeys><VersionInfoKeys Name="LegalCopyright"></VersionInfoKeys><VersionInfoKeys Name="LegalTrademarks"></VersionInfoKeys><VersionInfoKeys Name="OriginalFilename"></VersionInfoKeys><VersionInfoKeys Name="ProductName">FactuGES</VersionInfoKeys><VersionInfoKeys Name="ProductVersion">1.2.7.0</VersionInfoKeys><VersionInfoKeys Name="Comments"></VersionInfoKeys></VersionInfoKeys><Excluded_Packages> <BorlandProject><Delphi.Personality><Parameters><Parameters Name="UseLauncher">False</Parameters><Parameters Name="LoadAllSymbols">True</Parameters><Parameters Name="LoadUnspecifiedSymbols">False</Parameters></Parameters><Language><Language Name="RootDir">C:\Archivos de programa\Borland\Delphi7\Bin\</Language></Language><VersionInfo><VersionInfo Name="IncludeVerInfo">True</VersionInfo><VersionInfo Name="AutoIncBuild">False</VersionInfo><VersionInfo Name="MajorVer">1</VersionInfo><VersionInfo Name="MinorVer">2</VersionInfo><VersionInfo Name="Release">8</VersionInfo><VersionInfo Name="Build">0</VersionInfo><VersionInfo Name="Debug">False</VersionInfo><VersionInfo Name="PreRelease">False</VersionInfo><VersionInfo Name="Special">False</VersionInfo><VersionInfo Name="Private">False</VersionInfo><VersionInfo Name="DLL">False</VersionInfo><VersionInfo Name="Locale">3082</VersionInfo><VersionInfo Name="CodePage">1252</VersionInfo></VersionInfo><VersionInfoKeys><VersionInfoKeys Name="CompanyName">Rodax Software S.L.</VersionInfoKeys><VersionInfoKeys Name="FileDescription"></VersionInfoKeys><VersionInfoKeys Name="FileVersion">1.2.8.0</VersionInfoKeys><VersionInfoKeys Name="InternalName">FactuGES</VersionInfoKeys><VersionInfoKeys Name="LegalCopyright"></VersionInfoKeys><VersionInfoKeys Name="LegalTrademarks"></VersionInfoKeys><VersionInfoKeys Name="OriginalFilename"></VersionInfoKeys><VersionInfoKeys Name="ProductName">FactuGES</VersionInfoKeys><VersionInfoKeys Name="ProductVersion">1.2.7.0</VersionInfoKeys><VersionInfoKeys Name="Comments"></VersionInfoKeys></VersionInfoKeys><Excluded_Packages>

View File

@ -1,7 +1,7 @@
MAINICON ICON "C:\Codigo Tecsitel\Resources\Iconos\Factuges.ico" MAINICON ICON "C:\Codigo Tecsitel\Resources\Iconos\Factuges.ico"
1 VERSIONINFO 1 VERSIONINFO
FILEVERSION 1,2,7,0 FILEVERSION 1,2,8,0
PRODUCTVERSION 1,2,7,0 PRODUCTVERSION 1,2,8,0
FILEFLAGSMASK 0x3FL FILEFLAGSMASK 0x3FL
FILEFLAGS 0x00L FILEFLAGS 0x00L
FILEOS 0x40004L FILEOS 0x40004L
@ -13,7 +13,7 @@ BEGIN
BLOCK "0C0A04E4" BLOCK "0C0A04E4"
BEGIN BEGIN
VALUE "CompanyName", "Rodax Software S.L.\0" VALUE "CompanyName", "Rodax Software S.L.\0"
VALUE "FileVersion", "1.2.7.0\0" VALUE "FileVersion", "1.2.8.0\0"
VALUE "InternalName", "FactuGES\0" VALUE "InternalName", "FactuGES\0"
VALUE "ProductName", "FactuGES\0" VALUE "ProductName", "FactuGES\0"
VALUE "ProductVersion", "1.2.7.0\0" VALUE "ProductVersion", "1.2.7.0\0"

Binary file not shown.

View File

@ -13,4 +13,4 @@ BEGIN
END END
/* C:\Codigo Tecsitel\Source\Modulos\Gestion de documentos\Controller\GestorDocumentos_Controller.res */ /* C:\Codigo Tecsitel\Source\Modulos\Gestion de documentos\Controller\GestorDocumentos_Controller.res */
/* C:\DOCUME~1\Usuario\CONFIG~1\Temp\dtf199.tmp */ /* C:\DOCUME~1\Usuario\CONFIG~1\Temp\dtf2A0.tmp */

View File

@ -14,4 +14,4 @@ END
/* C:\Codigo Tecsitel\Source\Modulos\Gestion de documentos\Data\uDataModuleGestorDocumentos.dfm */ /* C:\Codigo Tecsitel\Source\Modulos\Gestion de documentos\Data\uDataModuleGestorDocumentos.dfm */
/* C:\Codigo Tecsitel\Source\Modulos\Gestion de documentos\Data\GestorDocumentos_data.res */ /* C:\Codigo Tecsitel\Source\Modulos\Gestion de documentos\Data\GestorDocumentos_data.res */
/* C:\DOCUME~1\Usuario\CONFIG~1\Temp\dtf197.tmp */ /* C:\DOCUME~1\Usuario\CONFIG~1\Temp\dtf29E.tmp */

View File

@ -3,11 +3,15 @@ unit uIEditorDetalleReservas;
interface interface
uses uses
uEditorGridBase, uBizInventario; uEditorGridBase, uBizInventario, uInventarioController;
type type
IEditorDetalleReservas = interface(IEditorGridBase) IEditorDetalleReservas = interface(IEditorGridBase)
['{EE301C2F-98DC-49CD-B7EA-D29D0B9326D8}'] ['{EE301C2F-98DC-49CD-B7EA-D29D0B9326D8}']
function GetController : IInventarioController;
procedure SetController (const Value : IInventarioController);
property Controller : IInventarioController read GetController write SetController;
function GetDetalleReservas: IBizDetalleReservas; function GetDetalleReservas: IBizDetalleReservas;
procedure SetDetalleReservas(const Value: IBizDetalleReservas); procedure SetDetalleReservas(const Value: IBizDetalleReservas);
property DetalleReservas: IBizDetalleReservas read GetDetalleReservas write SetDetalleReservas; property DetalleReservas: IBizDetalleReservas read GetDetalleReservas write SetDetalleReservas;

View File

@ -29,7 +29,8 @@ type
function BuscarTodosObras: IBizInventario; function BuscarTodosObras: IBizInventario;
function Buscar(const ID_ALMACEN: Integer): IBizInventario; function Buscar(const ID_ALMACEN: Integer): IBizInventario;
function BuscarDetalleReservas: IBizDetalleReservas; function BuscarDetalleReservas: IBizDetalleReservas;
function ExtraerSeleccionados(AArticulos: IBizInventario) : IBizInventario; function ExtraerSeleccionados(AArticulos: IBizInventario) : IBizInventario; overload;
function ExtraerSeleccionados(AArticulos: IBizDetalleReservas) : IBizDetalleReservas; overload;
procedure Anadir(AArticulos, AInventario : IBizInventario); procedure Anadir(AArticulos, AInventario : IBizInventario);
function Guardar(AArticulos : IBizInventario; const FechaMovimiento: TDateTime; const CausaMovimiento: String): Boolean; function Guardar(AArticulos : IBizInventario; const FechaMovimiento: TDateTime; const CausaMovimiento: String): Boolean;
@ -38,6 +39,7 @@ type
procedure SalidaArticulosLibre(AInventario: IBizInventario; Const CodigoAlmacenOrigen: Integer); procedure SalidaArticulosLibre(AInventario: IBizInventario; Const CodigoAlmacenOrigen: Integer);
procedure TrasladarArticulosLibre(AInventario: IBizInventario; Const CodigoAlmacenOrigen: Integer; Const CodigoAlmacenDestino: Integer); procedure TrasladarArticulosLibre(AInventario: IBizInventario; Const CodigoAlmacenOrigen: Integer; Const CodigoAlmacenDestino: Integer);
procedure ReservarArticulosLibre(AInventario: IBizInventario; Const CodigoAlmacenOrigen: Integer; Const CodigoAlmacenDestino: Integer); procedure ReservarArticulosLibre(AInventario: IBizInventario; Const CodigoAlmacenOrigen: Integer; Const CodigoAlmacenDestino: Integer);
procedure CancelarReservas(AReservas: IBizDetalleReservas);
function EntradaPedido(AInventario: IBizInventario; APedido: IBizPedidoProveedor; ADetalles: IDAStronglyTypedDataTable; var ADetallesFinal: IBizInventario): Boolean; function EntradaPedido(AInventario: IBizInventario; APedido: IBizPedidoProveedor; ADetalles: IDAStronglyTypedDataTable; var ADetallesFinal: IBizInventario): Boolean;
function SalidaAlbaran(AInventario: IBizInventario; Const CodigoAlmacenOrigen: Integer; ADetalles: IDAStronglyTypedDataTable): Boolean; function SalidaAlbaran(AInventario: IBizInventario; Const CodigoAlmacenOrigen: Integer; ADetalles: IDAStronglyTypedDataTable): Boolean;
@ -55,7 +57,7 @@ type
TInventarioController = class(TControllerBase, IInventarioController) TInventarioController = class(TControllerBase, IInventarioController)
private private
FAlmacenesController: IAlmacenesController; FAlmacenesController: IAlmacenesController;
FObrasController: IObrasController; FObrasController: IObrasController;
FArticulosController : IArticulosInventarioController; FArticulosController : IArticulosInventarioController;
FPresupuestosClienteController : IPresupuestosClienteController; FPresupuestosClienteController : IPresupuestosClienteController;
FPedidosProveedorController : IPedidosProveedorController; FPedidosProveedorController : IPedidosProveedorController;
@ -117,7 +119,8 @@ type
function BuscarTodosObras: IBizInventario; function BuscarTodosObras: IBizInventario;
function BuscarDetalleReservas: IBizDetalleReservas; function BuscarDetalleReservas: IBizDetalleReservas;
function ElegirArticulos(AArticulos : IBizInventario; AMensaje: String; AMultiSelect: Boolean): IBizInventario; function ElegirArticulos(AArticulos : IBizInventario; AMensaje: String; AMultiSelect: Boolean): IBizInventario;
function ExtraerSeleccionados(AArticulos: IBizInventario) : IBizInventario; function ExtraerSeleccionados(AArticulos: IBizInventario) : IBizInventario; overload;
function ExtraerSeleccionados(AArticulos: IBizDetalleReservas) : IBizDetalleReservas; overload;
procedure Anadir(AArticulos, AInventario : IBizInventario); procedure Anadir(AArticulos, AInventario : IBizInventario);
function Eliminar(AInventario : IBizInventario; Todos: Boolean; ApplyUpdates: Boolean): Boolean; function Eliminar(AInventario : IBizInventario; Todos: Boolean; ApplyUpdates: Boolean): Boolean;
@ -126,6 +129,7 @@ type
procedure SalidaArticulosLibre(AInventario: IBizInventario; Const CodigoAlmacenOrigen: Integer); procedure SalidaArticulosLibre(AInventario: IBizInventario; Const CodigoAlmacenOrigen: Integer);
procedure TrasladarArticulosLibre(AInventario: IBizInventario; Const CodigoAlmacenOrigen: Integer; Const CodigoAlmacenDestino: Integer); procedure TrasladarArticulosLibre(AInventario: IBizInventario; Const CodigoAlmacenOrigen: Integer; Const CodigoAlmacenDestino: Integer);
procedure ReservarArticulosLibre(AInventario: IBizInventario; Const CodigoAlmacenOrigen: Integer; Const CodigoAlmacenDestino: Integer); procedure ReservarArticulosLibre(AInventario: IBizInventario; Const CodigoAlmacenOrigen: Integer; Const CodigoAlmacenDestino: Integer);
procedure CancelarReservas(AReservas: IBizDetalleReservas);
function EntradaPedido(AInventario: IBizInventario; APedido: IBizPedidoProveedor; ADetalles: IDAStronglyTypedDataTable; var ADetallesFinal: IBizInventario): Boolean; function EntradaPedido(AInventario: IBizInventario; APedido: IBizPedidoProveedor; ADetalles: IDAStronglyTypedDataTable; var ADetallesFinal: IBizInventario): Boolean;
function SalidaAlbaran(AInventario: IBizInventario; Const CodigoAlmacenOrigen: Integer; ADetalles: IDAStronglyTypedDataTable): Boolean; function SalidaAlbaran(AInventario: IBizInventario; Const CodigoAlmacenOrigen: Integer; ADetalles: IDAStronglyTypedDataTable): Boolean;
@ -254,6 +258,18 @@ begin
end; end;
end; end;
procedure TInventarioController.CancelarReservas(AReservas: IBizDetalleReservas);
begin
ShowHourglassCursor;
try
AReservas.DataTable.ClearRows;
AReservas.DataTable.ApplyUpdates;
HideHourglassCursor;
finally
//
end;
end;
procedure TInventarioController.Copiar(AArticulos: IBizInventario; ADetalles: IDAStronglyTypedDataTable; AInventario: IBizInventario); procedure TInventarioController.Copiar(AArticulos: IBizInventario; ADetalles: IDAStronglyTypedDataTable; AInventario: IBizInventario);
{ {
Procedimiento que copia en AArticulos, todos los detalles pasados por parametro ADetalles Procedimiento que copia en AArticulos, todos los detalles pasados por parametro ADetalles
@ -545,10 +561,10 @@ begin
if Assigned(AEditor) then if Assigned(AEditor) then
with AEditor do with AEditor do
begin begin
// Controller := Self; //OJO ORDEN MUY IMPORTANTE Controller := Self; //OJO ORDEN MUY IMPORTANTE
DetalleReservas := FDataModule.GetDetalleReservas; DetalleReservas := FDataModule.GetDetalleReservas;
Articulo := AArticulo; Articulo := AArticulo;
// MultiSelect := False; MultiSelect := True;
ShowModal; ShowModal;
Release; Release;
end; end;
@ -640,6 +656,15 @@ begin
Result := Ver(AArticulos, AInventario, APedido); Result := Ver(AArticulos, AInventario, APedido);
end; end;
function TInventarioController.ExtraerSeleccionados(AArticulos: IBizDetalleReservas): IBizDetalleReservas;
var
ASeleccionados : IBizDetalleReservas;
begin
ASeleccionados := (FDataModule as IDataModuleInventario).GetDetalleReservasVacio;
CopyDataTableDA5(AArticulos.DataTable, ASeleccionados.DataTable, True);
Result := ASeleccionados;
end;
{procedure TInventarioController.RecibirArticulos(const APedido: IBizPedidoProveedor; const CodigoAlmacenDes: Integer); {procedure TInventarioController.RecibirArticulos(const APedido: IBizPedidoProveedor; const CodigoAlmacenDes: Integer);
{var {var
AArticulos: IBizInventario; AArticulos: IBizInventario;

View File

@ -27,102 +27,77 @@ inherited DataModuleInventario: TDataModuleInventario
RemoteUpdatesOptions = [] RemoteUpdatesOptions = []
Fields = < Fields = <
item item
Name = 'ID_ALB' Name = 'ID'
DataType = datInteger DataType = datInteger
DisplayLabel = 'IdAlbaran'
DictionaryEntry = 'DETALLE_RESERVAS_INV_ID_ALB'
end end
item item
Name = 'ID_EMPRESA' Name = 'ID_EMPRESA'
DataType = datInteger DataType = datInteger
DisplayLabel = 'DETALLE_RESERVAS_INV_ID_EMPRESA'
DictionaryEntry = 'DETALLE_RESERVAS_INV_ID_EMPRESA'
end end
item item
Name = 'REFERENCIA_ALB' Name = 'ID_ALMACEN'
DataType = datInteger
end
item
Name = 'NOMBRE_ALMACEN'
DataType = datString DataType = datString
Size = 255 Size = 255
DisplayLabel = 'Ref. albar'#195#161'n'
DictionaryEntry = 'DETALLE_RESERVAS_INV_REFERENCIA_ALB'
end end
item item
Name = 'SITUACION_ALB' Name = 'FECHA_RESERVA'
DataType = datString
Size = 9
DisplayLabel = 'Situaci'#195#179'n'
DictionaryEntry = 'DETALLE_RESERVAS_INV_SITUACION_ALB'
end
item
Name = 'FECHA_PREVISTA_ENVIO_ALB'
DataType = datDateTime DataType = datDateTime
DisplayLabel = 'Fecha prevista de envio'
DictionaryEntry = 'DETALLE_RESERVAS_INV_FECHA_PREVISTA_ENVIO_ALB'
end end
item item
Name = 'ID_ALMACEN_ALB' Name = 'CAUSA_RESERVA'
DataType = datString
Size = 2000
end
item
Name = 'ID_ARTICULO'
DataType = datInteger DataType = datInteger
DisplayLabel = 'IdAlmac'#195#169'n'
DictionaryEntry = 'DETALLE_RESERVAS_INV_ID_ALMACEN_ALB'
end end
item item
Name = 'ALMACEN_ALB' Name = 'REFERENCIA'
DataType = datString DataType = datString
Size = 255 Size = 255
DisplayLabel = 'Almac'#195#169'n'
DictionaryEntry = 'DETALLE_RESERVAS_INV_ALMACEN_ALB'
end end
item item
Name = 'ID_CLIENTE_ALB' Name = 'DESCRIPCION'
DataType = datString
Size = 255
end
item
Name = 'FAMILIA'
DataType = datString
Size = 255
end
item
Name = 'UNIDAD_MEDIDA'
DataType = datString
Size = 255
end
item
Name = 'FABRICANTE'
DataType = datString
Size = 255
end
item
Name = 'REFERENCIA_FABR'
DataType = datString
Size = 255
end
item
Name = 'CANTIDAD'
DataType = datInteger DataType = datInteger
DisplayLabel = 'IdCliente'
DictionaryEntry = 'DETALLE_RESERVAS_INV_ID_CLIENTE_ALB'
end end
item item
Name = 'CLIENTE_ALB' Name = 'ID_ALMACEN_RESERVA'
DataType = datString
Size = 255
DisplayLabel = 'Cliente'
DictionaryEntry = 'DETALLE_RESERVAS_INV_CLIENTE_ALB'
end
item
Name = 'ID_ART'
DataType = datInteger DataType = datInteger
DisplayLabel = 'IdArticulo'
DictionaryEntry = 'DETALLE_RESERVAS_INV_ID_ART'
end end
item item
Name = 'FAMILIA_ART' Name = 'NOMBRE_ALMACEN_RESERVA'
DataType = datString DataType = datString
Size = 255 Size = 255
DisplayLabel = 'Familia'
DictionaryEntry = 'DETALLE_RESERVAS_INV_FAMILIA_ART'
end
item
Name = 'REFERENCIA_ART'
DataType = datString
Size = 255
DisplayLabel = 'Referencia'
DictionaryEntry = 'DETALLE_RESERVAS_INV_REFERENCIA_ART'
end
item
Name = 'REFERENCIA_PROV_ART'
DataType = datString
Size = 255
DisplayLabel = 'Ref. proveedor'
DictionaryEntry = 'DETALLE_RESERVAS_INV_REFERENCIA_PROV_ART'
end
item
Name = 'DESCRIPCION_ART'
DataType = datString
Size = 255
DisplayLabel = 'Descripci'#195#179'n'
DictionaryEntry = 'DETALLE_RESERVAS_INV_DESCRIPCION_ART'
end
item
Name = 'CANTIDAD_ART'
DataType = datLargeInt
DisplayLabel = 'Reservado'
DictionaryEntry = 'DETALLE_RESERVAS_INV_CANTIDAD_ART'
end> end>
Params = <> Params = <>
StreamingOptions = [soDisableEventsWhileStreaming] StreamingOptions = [soDisableEventsWhileStreaming]

View File

@ -24,6 +24,7 @@ type
function GetItems : IBizInventario; overload; function GetItems : IBizInventario; overload;
function GetItems(const ID_ALMACEN : Integer) : IBizInventario; overload; function GetItems(const ID_ALMACEN : Integer) : IBizInventario; overload;
function GetDetalleReservas: IBizDetalleReservas; function GetDetalleReservas: IBizDetalleReservas;
function GetDetalleReservasVacio: IBizDetalleReservas;
end; end;
implementation implementation
@ -56,6 +57,25 @@ begin
end; end;
end; end;
function TDataModuleInventario.GetDetalleReservasVacio: IBizDetalleReservas;
begin
ShowHourglassCursor;
try
Result := Self.GetDetalleReservas;
with Result.DataTable.Where do
begin
if NotEmpty then
AddOperator(opAND);
OpenBraket;
AddText(fld_DetalleReservasID + ' = ' + IntToStr(ID_NULO));
CloseBraket;
end;
finally
HideHourglassCursor;
end;
end;
function TDataModuleInventario.GetItems(const ID_ALMACEN: Integer): IBizInventario; function TDataModuleInventario.GetItems(const ID_ALMACEN: Integer): IBizInventario;
var var
Condicion: TDAWhereExpression; Condicion: TDAWhereExpression;

View File

@ -10,7 +10,8 @@ type
['{50AFDC00-4F91-4BC3-BB8A-1F53937BF9A6}'] ['{50AFDC00-4F91-4BC3-BB8A-1F53937BF9A6}']
function GetItems: IBizInventario; overload; function GetItems: IBizInventario; overload;
function GetItems(const ID_ALMACEN : Integer) : IBizInventario; overload; function GetItems(const ID_ALMACEN : Integer) : IBizInventario; overload;
function GetDetalleReservas: IBizDetalleReservas; function GetDetalleReservas: IBizDetalleReservas;
function GetDetalleReservasVacio: IBizDetalleReservas;
end; end;
implementation implementation

View File

@ -3,14 +3,14 @@ unit schInventarioClient_Intf;
interface interface
uses uses
Classes, DB, schBase_Intf, SysUtils, uROClasses, uDADataTable, FmtBCD, uROXMLIntf; Classes, DB, SysUtils, uROClasses, uDADataTable, FmtBCD, uROXMLIntf;
const const
{ Data table rules ids { Data table rules ids
Feel free to change them to something more human readable Feel free to change them to something more human readable
but make sure they are unique in the context of your application } but make sure they are unique in the context of your application }
RID_Inventario = '{951489E3-A84E-48C4-8B21-AF96F561FD48}'; RID_Inventario = '{9DBC2875-7FEE-44C5-B6F6-36F7228B1ABF}';
RID_DetalleReservas = '{A2121200-525B-47F4-BF33-48716EE21720}'; RID_DetalleReservas = '{9582173C-A3AC-40FC-8465-057DB277739D}';
{ Data table names } { Data table names }
nme_Inventario = 'Inventario'; nme_Inventario = 'Inventario';
@ -59,43 +59,45 @@ const
idx_InventarioID_ALMACEN_RESERVA = 18; idx_InventarioID_ALMACEN_RESERVA = 18;
{ DetalleReservas fields } { DetalleReservas fields }
fld_DetalleReservasID_ALB = 'ID_ALB'; fld_DetalleReservasID = 'ID';
fld_DetalleReservasID_EMPRESA = 'ID_EMPRESA'; fld_DetalleReservasID_EMPRESA = 'ID_EMPRESA';
fld_DetalleReservasREFERENCIA_ALB = 'REFERENCIA_ALB'; fld_DetalleReservasID_ALMACEN = 'ID_ALMACEN';
fld_DetalleReservasSITUACION_ALB = 'SITUACION_ALB'; fld_DetalleReservasNOMBRE_ALMACEN = 'NOMBRE_ALMACEN';
fld_DetalleReservasFECHA_PREVISTA_ENVIO_ALB = 'FECHA_PREVISTA_ENVIO_ALB'; fld_DetalleReservasFECHA_RESERVA = 'FECHA_RESERVA';
fld_DetalleReservasID_ALMACEN_ALB = 'ID_ALMACEN_ALB'; fld_DetalleReservasCAUSA_RESERVA = 'CAUSA_RESERVA';
fld_DetalleReservasALMACEN_ALB = 'ALMACEN_ALB'; fld_DetalleReservasID_ARTICULO = 'ID_ARTICULO';
fld_DetalleReservasID_CLIENTE_ALB = 'ID_CLIENTE_ALB'; fld_DetalleReservasREFERENCIA = 'REFERENCIA';
fld_DetalleReservasCLIENTE_ALB = 'CLIENTE_ALB'; fld_DetalleReservasDESCRIPCION = 'DESCRIPCION';
fld_DetalleReservasID_ART = 'ID_ART'; fld_DetalleReservasFAMILIA = 'FAMILIA';
fld_DetalleReservasFAMILIA_ART = 'FAMILIA_ART'; fld_DetalleReservasUNIDAD_MEDIDA = 'UNIDAD_MEDIDA';
fld_DetalleReservasREFERENCIA_ART = 'REFERENCIA_ART'; fld_DetalleReservasFABRICANTE = 'FABRICANTE';
fld_DetalleReservasREFERENCIA_PROV_ART = 'REFERENCIA_PROV_ART'; fld_DetalleReservasREFERENCIA_FABR = 'REFERENCIA_FABR';
fld_DetalleReservasDESCRIPCION_ART = 'DESCRIPCION_ART'; fld_DetalleReservasCANTIDAD = 'CANTIDAD';
fld_DetalleReservasCANTIDAD_ART = 'CANTIDAD_ART'; fld_DetalleReservasID_ALMACEN_RESERVA = 'ID_ALMACEN_RESERVA';
fld_DetalleReservasNOMBRE_ALMACEN_RESERVA = 'NOMBRE_ALMACEN_RESERVA';
{ DetalleReservas field indexes } { DetalleReservas field indexes }
idx_DetalleReservasID_ALB = 0; idx_DetalleReservasID = 0;
idx_DetalleReservasID_EMPRESA = 1; idx_DetalleReservasID_EMPRESA = 1;
idx_DetalleReservasREFERENCIA_ALB = 2; idx_DetalleReservasID_ALMACEN = 2;
idx_DetalleReservasSITUACION_ALB = 3; idx_DetalleReservasNOMBRE_ALMACEN = 3;
idx_DetalleReservasFECHA_PREVISTA_ENVIO_ALB = 4; idx_DetalleReservasFECHA_RESERVA = 4;
idx_DetalleReservasID_ALMACEN_ALB = 5; idx_DetalleReservasCAUSA_RESERVA = 5;
idx_DetalleReservasALMACEN_ALB = 6; idx_DetalleReservasID_ARTICULO = 6;
idx_DetalleReservasID_CLIENTE_ALB = 7; idx_DetalleReservasREFERENCIA = 7;
idx_DetalleReservasCLIENTE_ALB = 8; idx_DetalleReservasDESCRIPCION = 8;
idx_DetalleReservasID_ART = 9; idx_DetalleReservasFAMILIA = 9;
idx_DetalleReservasFAMILIA_ART = 10; idx_DetalleReservasUNIDAD_MEDIDA = 10;
idx_DetalleReservasREFERENCIA_ART = 11; idx_DetalleReservasFABRICANTE = 11;
idx_DetalleReservasREFERENCIA_PROV_ART = 12; idx_DetalleReservasREFERENCIA_FABR = 12;
idx_DetalleReservasDESCRIPCION_ART = 13; idx_DetalleReservasCANTIDAD = 13;
idx_DetalleReservasCANTIDAD_ART = 14; idx_DetalleReservasID_ALMACEN_RESERVA = 14;
idx_DetalleReservasNOMBRE_ALMACEN_RESERVA = 15;
type type
{ IInventario } { IInventario }
IInventario = interface(IDAStronglyTypedDataTable) IInventario = interface(IDAStronglyTypedDataTable)
['{F5565441-E42C-46BC-949F-EB70792A7F94}'] ['{A7CAFCC8-D9B8-4932-ABF0-3497D4090710}']
{ Property getters and setters } { Property getters and setters }
function GetID_ALMACENValue: Integer; function GetID_ALMACENValue: Integer;
procedure SetID_ALMACENValue(const aValue: Integer); procedure SetID_ALMACENValue(const aValue: Integer);
@ -217,7 +219,7 @@ type
end; end;
{ TInventarioDataTableRules } { TInventarioDataTableRules }
TInventarioDataTableRules = class(TIntfObjectDADataTableRules, IInventario) TInventarioDataTableRules = class(TDADataTableRules, IInventario)
private private
protected protected
{ Property getters and setters } { Property getters and setters }
@ -346,200 +348,212 @@ type
{ IDetalleReservas } { IDetalleReservas }
IDetalleReservas = interface(IDAStronglyTypedDataTable) IDetalleReservas = interface(IDAStronglyTypedDataTable)
['{6574FFB0-AA80-48EE-9752-3601321A30B5}'] ['{62277A19-0930-41F8-A5F2-1CBBCDBC009F}']
{ Property getters and setters } { Property getters and setters }
function GetID_ALBValue: Integer; function GetIDValue: Integer;
procedure SetID_ALBValue(const aValue: Integer); procedure SetIDValue(const aValue: Integer);
function GetID_ALBIsNull: Boolean; function GetIDIsNull: Boolean;
procedure SetID_ALBIsNull(const aValue: Boolean); procedure SetIDIsNull(const aValue: Boolean);
function GetID_EMPRESAValue: Integer; function GetID_EMPRESAValue: Integer;
procedure SetID_EMPRESAValue(const aValue: Integer); procedure SetID_EMPRESAValue(const aValue: Integer);
function GetID_EMPRESAIsNull: Boolean; function GetID_EMPRESAIsNull: Boolean;
procedure SetID_EMPRESAIsNull(const aValue: Boolean); procedure SetID_EMPRESAIsNull(const aValue: Boolean);
function GetREFERENCIA_ALBValue: String; function GetID_ALMACENValue: Integer;
procedure SetREFERENCIA_ALBValue(const aValue: String); procedure SetID_ALMACENValue(const aValue: Integer);
function GetREFERENCIA_ALBIsNull: Boolean; function GetID_ALMACENIsNull: Boolean;
procedure SetREFERENCIA_ALBIsNull(const aValue: Boolean); procedure SetID_ALMACENIsNull(const aValue: Boolean);
function GetSITUACION_ALBValue: String; function GetNOMBRE_ALMACENValue: String;
procedure SetSITUACION_ALBValue(const aValue: String); procedure SetNOMBRE_ALMACENValue(const aValue: String);
function GetSITUACION_ALBIsNull: Boolean; function GetNOMBRE_ALMACENIsNull: Boolean;
procedure SetSITUACION_ALBIsNull(const aValue: Boolean); procedure SetNOMBRE_ALMACENIsNull(const aValue: Boolean);
function GetFECHA_PREVISTA_ENVIO_ALBValue: DateTime; function GetFECHA_RESERVAValue: DateTime;
procedure SetFECHA_PREVISTA_ENVIO_ALBValue(const aValue: DateTime); procedure SetFECHA_RESERVAValue(const aValue: DateTime);
function GetFECHA_PREVISTA_ENVIO_ALBIsNull: Boolean; function GetFECHA_RESERVAIsNull: Boolean;
procedure SetFECHA_PREVISTA_ENVIO_ALBIsNull(const aValue: Boolean); procedure SetFECHA_RESERVAIsNull(const aValue: Boolean);
function GetID_ALMACEN_ALBValue: Integer; function GetCAUSA_RESERVAValue: String;
procedure SetID_ALMACEN_ALBValue(const aValue: Integer); procedure SetCAUSA_RESERVAValue(const aValue: String);
function GetID_ALMACEN_ALBIsNull: Boolean; function GetCAUSA_RESERVAIsNull: Boolean;
procedure SetID_ALMACEN_ALBIsNull(const aValue: Boolean); procedure SetCAUSA_RESERVAIsNull(const aValue: Boolean);
function GetALMACEN_ALBValue: String; function GetID_ARTICULOValue: Integer;
procedure SetALMACEN_ALBValue(const aValue: String); procedure SetID_ARTICULOValue(const aValue: Integer);
function GetALMACEN_ALBIsNull: Boolean; function GetID_ARTICULOIsNull: Boolean;
procedure SetALMACEN_ALBIsNull(const aValue: Boolean); procedure SetID_ARTICULOIsNull(const aValue: Boolean);
function GetID_CLIENTE_ALBValue: Integer; function GetREFERENCIAValue: String;
procedure SetID_CLIENTE_ALBValue(const aValue: Integer); procedure SetREFERENCIAValue(const aValue: String);
function GetID_CLIENTE_ALBIsNull: Boolean; function GetREFERENCIAIsNull: Boolean;
procedure SetID_CLIENTE_ALBIsNull(const aValue: Boolean); procedure SetREFERENCIAIsNull(const aValue: Boolean);
function GetCLIENTE_ALBValue: String; function GetDESCRIPCIONValue: String;
procedure SetCLIENTE_ALBValue(const aValue: String); procedure SetDESCRIPCIONValue(const aValue: String);
function GetCLIENTE_ALBIsNull: Boolean; function GetDESCRIPCIONIsNull: Boolean;
procedure SetCLIENTE_ALBIsNull(const aValue: Boolean); procedure SetDESCRIPCIONIsNull(const aValue: Boolean);
function GetID_ARTValue: Integer; function GetFAMILIAValue: String;
procedure SetID_ARTValue(const aValue: Integer); procedure SetFAMILIAValue(const aValue: String);
function GetID_ARTIsNull: Boolean; function GetFAMILIAIsNull: Boolean;
procedure SetID_ARTIsNull(const aValue: Boolean); procedure SetFAMILIAIsNull(const aValue: Boolean);
function GetFAMILIA_ARTValue: String; function GetUNIDAD_MEDIDAValue: String;
procedure SetFAMILIA_ARTValue(const aValue: String); procedure SetUNIDAD_MEDIDAValue(const aValue: String);
function GetFAMILIA_ARTIsNull: Boolean; function GetUNIDAD_MEDIDAIsNull: Boolean;
procedure SetFAMILIA_ARTIsNull(const aValue: Boolean); procedure SetUNIDAD_MEDIDAIsNull(const aValue: Boolean);
function GetREFERENCIA_ARTValue: String; function GetFABRICANTEValue: String;
procedure SetREFERENCIA_ARTValue(const aValue: String); procedure SetFABRICANTEValue(const aValue: String);
function GetREFERENCIA_ARTIsNull: Boolean; function GetFABRICANTEIsNull: Boolean;
procedure SetREFERENCIA_ARTIsNull(const aValue: Boolean); procedure SetFABRICANTEIsNull(const aValue: Boolean);
function GetREFERENCIA_PROV_ARTValue: String; function GetREFERENCIA_FABRValue: String;
procedure SetREFERENCIA_PROV_ARTValue(const aValue: String); procedure SetREFERENCIA_FABRValue(const aValue: String);
function GetREFERENCIA_PROV_ARTIsNull: Boolean; function GetREFERENCIA_FABRIsNull: Boolean;
procedure SetREFERENCIA_PROV_ARTIsNull(const aValue: Boolean); procedure SetREFERENCIA_FABRIsNull(const aValue: Boolean);
function GetDESCRIPCION_ARTValue: String; function GetCANTIDADValue: Integer;
procedure SetDESCRIPCION_ARTValue(const aValue: String); procedure SetCANTIDADValue(const aValue: Integer);
function GetDESCRIPCION_ARTIsNull: Boolean; function GetCANTIDADIsNull: Boolean;
procedure SetDESCRIPCION_ARTIsNull(const aValue: Boolean); procedure SetCANTIDADIsNull(const aValue: Boolean);
function GetCANTIDAD_ARTValue: Int64; function GetID_ALMACEN_RESERVAValue: Integer;
procedure SetCANTIDAD_ARTValue(const aValue: Int64); procedure SetID_ALMACEN_RESERVAValue(const aValue: Integer);
function GetCANTIDAD_ARTIsNull: Boolean; function GetID_ALMACEN_RESERVAIsNull: Boolean;
procedure SetCANTIDAD_ARTIsNull(const aValue: Boolean); procedure SetID_ALMACEN_RESERVAIsNull(const aValue: Boolean);
function GetNOMBRE_ALMACEN_RESERVAValue: String;
procedure SetNOMBRE_ALMACEN_RESERVAValue(const aValue: String);
function GetNOMBRE_ALMACEN_RESERVAIsNull: Boolean;
procedure SetNOMBRE_ALMACEN_RESERVAIsNull(const aValue: Boolean);
{ Properties } { Properties }
property ID_ALB: Integer read GetID_ALBValue write SetID_ALBValue; property ID: Integer read GetIDValue write SetIDValue;
property ID_ALBIsNull: Boolean read GetID_ALBIsNull write SetID_ALBIsNull; property IDIsNull: Boolean read GetIDIsNull write SetIDIsNull;
property ID_EMPRESA: Integer read GetID_EMPRESAValue write SetID_EMPRESAValue; property ID_EMPRESA: Integer read GetID_EMPRESAValue write SetID_EMPRESAValue;
property ID_EMPRESAIsNull: Boolean read GetID_EMPRESAIsNull write SetID_EMPRESAIsNull; property ID_EMPRESAIsNull: Boolean read GetID_EMPRESAIsNull write SetID_EMPRESAIsNull;
property REFERENCIA_ALB: String read GetREFERENCIA_ALBValue write SetREFERENCIA_ALBValue; property ID_ALMACEN: Integer read GetID_ALMACENValue write SetID_ALMACENValue;
property REFERENCIA_ALBIsNull: Boolean read GetREFERENCIA_ALBIsNull write SetREFERENCIA_ALBIsNull; property ID_ALMACENIsNull: Boolean read GetID_ALMACENIsNull write SetID_ALMACENIsNull;
property SITUACION_ALB: String read GetSITUACION_ALBValue write SetSITUACION_ALBValue; property NOMBRE_ALMACEN: String read GetNOMBRE_ALMACENValue write SetNOMBRE_ALMACENValue;
property SITUACION_ALBIsNull: Boolean read GetSITUACION_ALBIsNull write SetSITUACION_ALBIsNull; property NOMBRE_ALMACENIsNull: Boolean read GetNOMBRE_ALMACENIsNull write SetNOMBRE_ALMACENIsNull;
property FECHA_PREVISTA_ENVIO_ALB: DateTime read GetFECHA_PREVISTA_ENVIO_ALBValue write SetFECHA_PREVISTA_ENVIO_ALBValue; property FECHA_RESERVA: DateTime read GetFECHA_RESERVAValue write SetFECHA_RESERVAValue;
property FECHA_PREVISTA_ENVIO_ALBIsNull: Boolean read GetFECHA_PREVISTA_ENVIO_ALBIsNull write SetFECHA_PREVISTA_ENVIO_ALBIsNull; property FECHA_RESERVAIsNull: Boolean read GetFECHA_RESERVAIsNull write SetFECHA_RESERVAIsNull;
property ID_ALMACEN_ALB: Integer read GetID_ALMACEN_ALBValue write SetID_ALMACEN_ALBValue; property CAUSA_RESERVA: String read GetCAUSA_RESERVAValue write SetCAUSA_RESERVAValue;
property ID_ALMACEN_ALBIsNull: Boolean read GetID_ALMACEN_ALBIsNull write SetID_ALMACEN_ALBIsNull; property CAUSA_RESERVAIsNull: Boolean read GetCAUSA_RESERVAIsNull write SetCAUSA_RESERVAIsNull;
property ALMACEN_ALB: String read GetALMACEN_ALBValue write SetALMACEN_ALBValue; property ID_ARTICULO: Integer read GetID_ARTICULOValue write SetID_ARTICULOValue;
property ALMACEN_ALBIsNull: Boolean read GetALMACEN_ALBIsNull write SetALMACEN_ALBIsNull; property ID_ARTICULOIsNull: Boolean read GetID_ARTICULOIsNull write SetID_ARTICULOIsNull;
property ID_CLIENTE_ALB: Integer read GetID_CLIENTE_ALBValue write SetID_CLIENTE_ALBValue; property REFERENCIA: String read GetREFERENCIAValue write SetREFERENCIAValue;
property ID_CLIENTE_ALBIsNull: Boolean read GetID_CLIENTE_ALBIsNull write SetID_CLIENTE_ALBIsNull; property REFERENCIAIsNull: Boolean read GetREFERENCIAIsNull write SetREFERENCIAIsNull;
property CLIENTE_ALB: String read GetCLIENTE_ALBValue write SetCLIENTE_ALBValue; property DESCRIPCION: String read GetDESCRIPCIONValue write SetDESCRIPCIONValue;
property CLIENTE_ALBIsNull: Boolean read GetCLIENTE_ALBIsNull write SetCLIENTE_ALBIsNull; property DESCRIPCIONIsNull: Boolean read GetDESCRIPCIONIsNull write SetDESCRIPCIONIsNull;
property ID_ART: Integer read GetID_ARTValue write SetID_ARTValue; property FAMILIA: String read GetFAMILIAValue write SetFAMILIAValue;
property ID_ARTIsNull: Boolean read GetID_ARTIsNull write SetID_ARTIsNull; property FAMILIAIsNull: Boolean read GetFAMILIAIsNull write SetFAMILIAIsNull;
property FAMILIA_ART: String read GetFAMILIA_ARTValue write SetFAMILIA_ARTValue; property UNIDAD_MEDIDA: String read GetUNIDAD_MEDIDAValue write SetUNIDAD_MEDIDAValue;
property FAMILIA_ARTIsNull: Boolean read GetFAMILIA_ARTIsNull write SetFAMILIA_ARTIsNull; property UNIDAD_MEDIDAIsNull: Boolean read GetUNIDAD_MEDIDAIsNull write SetUNIDAD_MEDIDAIsNull;
property REFERENCIA_ART: String read GetREFERENCIA_ARTValue write SetREFERENCIA_ARTValue; property FABRICANTE: String read GetFABRICANTEValue write SetFABRICANTEValue;
property REFERENCIA_ARTIsNull: Boolean read GetREFERENCIA_ARTIsNull write SetREFERENCIA_ARTIsNull; property FABRICANTEIsNull: Boolean read GetFABRICANTEIsNull write SetFABRICANTEIsNull;
property REFERENCIA_PROV_ART: String read GetREFERENCIA_PROV_ARTValue write SetREFERENCIA_PROV_ARTValue; property REFERENCIA_FABR: String read GetREFERENCIA_FABRValue write SetREFERENCIA_FABRValue;
property REFERENCIA_PROV_ARTIsNull: Boolean read GetREFERENCIA_PROV_ARTIsNull write SetREFERENCIA_PROV_ARTIsNull; property REFERENCIA_FABRIsNull: Boolean read GetREFERENCIA_FABRIsNull write SetREFERENCIA_FABRIsNull;
property DESCRIPCION_ART: String read GetDESCRIPCION_ARTValue write SetDESCRIPCION_ARTValue; property CANTIDAD: Integer read GetCANTIDADValue write SetCANTIDADValue;
property DESCRIPCION_ARTIsNull: Boolean read GetDESCRIPCION_ARTIsNull write SetDESCRIPCION_ARTIsNull; property CANTIDADIsNull: Boolean read GetCANTIDADIsNull write SetCANTIDADIsNull;
property CANTIDAD_ART: Int64 read GetCANTIDAD_ARTValue write SetCANTIDAD_ARTValue; property ID_ALMACEN_RESERVA: Integer read GetID_ALMACEN_RESERVAValue write SetID_ALMACEN_RESERVAValue;
property CANTIDAD_ARTIsNull: Boolean read GetCANTIDAD_ARTIsNull write SetCANTIDAD_ARTIsNull; property ID_ALMACEN_RESERVAIsNull: Boolean read GetID_ALMACEN_RESERVAIsNull write SetID_ALMACEN_RESERVAIsNull;
property NOMBRE_ALMACEN_RESERVA: String read GetNOMBRE_ALMACEN_RESERVAValue write SetNOMBRE_ALMACEN_RESERVAValue;
property NOMBRE_ALMACEN_RESERVAIsNull: Boolean read GetNOMBRE_ALMACEN_RESERVAIsNull write SetNOMBRE_ALMACEN_RESERVAIsNull;
end; end;
{ TDetalleReservasDataTableRules } { TDetalleReservasDataTableRules }
TDetalleReservasDataTableRules = class(TIntfObjectDADataTableRules, IDetalleReservas) TDetalleReservasDataTableRules = class(TDADataTableRules, IDetalleReservas)
private private
protected protected
{ Property getters and setters } { Property getters and setters }
function GetID_ALBValue: Integer; virtual; function GetIDValue: Integer; virtual;
procedure SetID_ALBValue(const aValue: Integer); virtual; procedure SetIDValue(const aValue: Integer); virtual;
function GetID_ALBIsNull: Boolean; virtual; function GetIDIsNull: Boolean; virtual;
procedure SetID_ALBIsNull(const aValue: Boolean); virtual; procedure SetIDIsNull(const aValue: Boolean); virtual;
function GetID_EMPRESAValue: Integer; virtual; function GetID_EMPRESAValue: Integer; virtual;
procedure SetID_EMPRESAValue(const aValue: Integer); virtual; procedure SetID_EMPRESAValue(const aValue: Integer); virtual;
function GetID_EMPRESAIsNull: Boolean; virtual; function GetID_EMPRESAIsNull: Boolean; virtual;
procedure SetID_EMPRESAIsNull(const aValue: Boolean); virtual; procedure SetID_EMPRESAIsNull(const aValue: Boolean); virtual;
function GetREFERENCIA_ALBValue: String; virtual; function GetID_ALMACENValue: Integer; virtual;
procedure SetREFERENCIA_ALBValue(const aValue: String); virtual; procedure SetID_ALMACENValue(const aValue: Integer); virtual;
function GetREFERENCIA_ALBIsNull: Boolean; virtual; function GetID_ALMACENIsNull: Boolean; virtual;
procedure SetREFERENCIA_ALBIsNull(const aValue: Boolean); virtual; procedure SetID_ALMACENIsNull(const aValue: Boolean); virtual;
function GetSITUACION_ALBValue: String; virtual; function GetNOMBRE_ALMACENValue: String; virtual;
procedure SetSITUACION_ALBValue(const aValue: String); virtual; procedure SetNOMBRE_ALMACENValue(const aValue: String); virtual;
function GetSITUACION_ALBIsNull: Boolean; virtual; function GetNOMBRE_ALMACENIsNull: Boolean; virtual;
procedure SetSITUACION_ALBIsNull(const aValue: Boolean); virtual; procedure SetNOMBRE_ALMACENIsNull(const aValue: Boolean); virtual;
function GetFECHA_PREVISTA_ENVIO_ALBValue: DateTime; virtual; function GetFECHA_RESERVAValue: DateTime; virtual;
procedure SetFECHA_PREVISTA_ENVIO_ALBValue(const aValue: DateTime); virtual; procedure SetFECHA_RESERVAValue(const aValue: DateTime); virtual;
function GetFECHA_PREVISTA_ENVIO_ALBIsNull: Boolean; virtual; function GetFECHA_RESERVAIsNull: Boolean; virtual;
procedure SetFECHA_PREVISTA_ENVIO_ALBIsNull(const aValue: Boolean); virtual; procedure SetFECHA_RESERVAIsNull(const aValue: Boolean); virtual;
function GetID_ALMACEN_ALBValue: Integer; virtual; function GetCAUSA_RESERVAValue: String; virtual;
procedure SetID_ALMACEN_ALBValue(const aValue: Integer); virtual; procedure SetCAUSA_RESERVAValue(const aValue: String); virtual;
function GetID_ALMACEN_ALBIsNull: Boolean; virtual; function GetCAUSA_RESERVAIsNull: Boolean; virtual;
procedure SetID_ALMACEN_ALBIsNull(const aValue: Boolean); virtual; procedure SetCAUSA_RESERVAIsNull(const aValue: Boolean); virtual;
function GetALMACEN_ALBValue: String; virtual; function GetID_ARTICULOValue: Integer; virtual;
procedure SetALMACEN_ALBValue(const aValue: String); virtual; procedure SetID_ARTICULOValue(const aValue: Integer); virtual;
function GetALMACEN_ALBIsNull: Boolean; virtual; function GetID_ARTICULOIsNull: Boolean; virtual;
procedure SetALMACEN_ALBIsNull(const aValue: Boolean); virtual; procedure SetID_ARTICULOIsNull(const aValue: Boolean); virtual;
function GetID_CLIENTE_ALBValue: Integer; virtual; function GetREFERENCIAValue: String; virtual;
procedure SetID_CLIENTE_ALBValue(const aValue: Integer); virtual; procedure SetREFERENCIAValue(const aValue: String); virtual;
function GetID_CLIENTE_ALBIsNull: Boolean; virtual; function GetREFERENCIAIsNull: Boolean; virtual;
procedure SetID_CLIENTE_ALBIsNull(const aValue: Boolean); virtual; procedure SetREFERENCIAIsNull(const aValue: Boolean); virtual;
function GetCLIENTE_ALBValue: String; virtual; function GetDESCRIPCIONValue: String; virtual;
procedure SetCLIENTE_ALBValue(const aValue: String); virtual; procedure SetDESCRIPCIONValue(const aValue: String); virtual;
function GetCLIENTE_ALBIsNull: Boolean; virtual; function GetDESCRIPCIONIsNull: Boolean; virtual;
procedure SetCLIENTE_ALBIsNull(const aValue: Boolean); virtual; procedure SetDESCRIPCIONIsNull(const aValue: Boolean); virtual;
function GetID_ARTValue: Integer; virtual; function GetFAMILIAValue: String; virtual;
procedure SetID_ARTValue(const aValue: Integer); virtual; procedure SetFAMILIAValue(const aValue: String); virtual;
function GetID_ARTIsNull: Boolean; virtual; function GetFAMILIAIsNull: Boolean; virtual;
procedure SetID_ARTIsNull(const aValue: Boolean); virtual; procedure SetFAMILIAIsNull(const aValue: Boolean); virtual;
function GetFAMILIA_ARTValue: String; virtual; function GetUNIDAD_MEDIDAValue: String; virtual;
procedure SetFAMILIA_ARTValue(const aValue: String); virtual; procedure SetUNIDAD_MEDIDAValue(const aValue: String); virtual;
function GetFAMILIA_ARTIsNull: Boolean; virtual; function GetUNIDAD_MEDIDAIsNull: Boolean; virtual;
procedure SetFAMILIA_ARTIsNull(const aValue: Boolean); virtual; procedure SetUNIDAD_MEDIDAIsNull(const aValue: Boolean); virtual;
function GetREFERENCIA_ARTValue: String; virtual; function GetFABRICANTEValue: String; virtual;
procedure SetREFERENCIA_ARTValue(const aValue: String); virtual; procedure SetFABRICANTEValue(const aValue: String); virtual;
function GetREFERENCIA_ARTIsNull: Boolean; virtual; function GetFABRICANTEIsNull: Boolean; virtual;
procedure SetREFERENCIA_ARTIsNull(const aValue: Boolean); virtual; procedure SetFABRICANTEIsNull(const aValue: Boolean); virtual;
function GetREFERENCIA_PROV_ARTValue: String; virtual; function GetREFERENCIA_FABRValue: String; virtual;
procedure SetREFERENCIA_PROV_ARTValue(const aValue: String); virtual; procedure SetREFERENCIA_FABRValue(const aValue: String); virtual;
function GetREFERENCIA_PROV_ARTIsNull: Boolean; virtual; function GetREFERENCIA_FABRIsNull: Boolean; virtual;
procedure SetREFERENCIA_PROV_ARTIsNull(const aValue: Boolean); virtual; procedure SetREFERENCIA_FABRIsNull(const aValue: Boolean); virtual;
function GetDESCRIPCION_ARTValue: String; virtual; function GetCANTIDADValue: Integer; virtual;
procedure SetDESCRIPCION_ARTValue(const aValue: String); virtual; procedure SetCANTIDADValue(const aValue: Integer); virtual;
function GetDESCRIPCION_ARTIsNull: Boolean; virtual; function GetCANTIDADIsNull: Boolean; virtual;
procedure SetDESCRIPCION_ARTIsNull(const aValue: Boolean); virtual; procedure SetCANTIDADIsNull(const aValue: Boolean); virtual;
function GetCANTIDAD_ARTValue: Int64; virtual; function GetID_ALMACEN_RESERVAValue: Integer; virtual;
procedure SetCANTIDAD_ARTValue(const aValue: Int64); virtual; procedure SetID_ALMACEN_RESERVAValue(const aValue: Integer); virtual;
function GetCANTIDAD_ARTIsNull: Boolean; virtual; function GetID_ALMACEN_RESERVAIsNull: Boolean; virtual;
procedure SetCANTIDAD_ARTIsNull(const aValue: Boolean); virtual; procedure SetID_ALMACEN_RESERVAIsNull(const aValue: Boolean); virtual;
function GetNOMBRE_ALMACEN_RESERVAValue: String; virtual;
procedure SetNOMBRE_ALMACEN_RESERVAValue(const aValue: String); virtual;
function GetNOMBRE_ALMACEN_RESERVAIsNull: Boolean; virtual;
procedure SetNOMBRE_ALMACEN_RESERVAIsNull(const aValue: Boolean); virtual;
{ Properties } { Properties }
property ID_ALB: Integer read GetID_ALBValue write SetID_ALBValue; property ID: Integer read GetIDValue write SetIDValue;
property ID_ALBIsNull: Boolean read GetID_ALBIsNull write SetID_ALBIsNull; property IDIsNull: Boolean read GetIDIsNull write SetIDIsNull;
property ID_EMPRESA: Integer read GetID_EMPRESAValue write SetID_EMPRESAValue; property ID_EMPRESA: Integer read GetID_EMPRESAValue write SetID_EMPRESAValue;
property ID_EMPRESAIsNull: Boolean read GetID_EMPRESAIsNull write SetID_EMPRESAIsNull; property ID_EMPRESAIsNull: Boolean read GetID_EMPRESAIsNull write SetID_EMPRESAIsNull;
property REFERENCIA_ALB: String read GetREFERENCIA_ALBValue write SetREFERENCIA_ALBValue; property ID_ALMACEN: Integer read GetID_ALMACENValue write SetID_ALMACENValue;
property REFERENCIA_ALBIsNull: Boolean read GetREFERENCIA_ALBIsNull write SetREFERENCIA_ALBIsNull; property ID_ALMACENIsNull: Boolean read GetID_ALMACENIsNull write SetID_ALMACENIsNull;
property SITUACION_ALB: String read GetSITUACION_ALBValue write SetSITUACION_ALBValue; property NOMBRE_ALMACEN: String read GetNOMBRE_ALMACENValue write SetNOMBRE_ALMACENValue;
property SITUACION_ALBIsNull: Boolean read GetSITUACION_ALBIsNull write SetSITUACION_ALBIsNull; property NOMBRE_ALMACENIsNull: Boolean read GetNOMBRE_ALMACENIsNull write SetNOMBRE_ALMACENIsNull;
property FECHA_PREVISTA_ENVIO_ALB: DateTime read GetFECHA_PREVISTA_ENVIO_ALBValue write SetFECHA_PREVISTA_ENVIO_ALBValue; property FECHA_RESERVA: DateTime read GetFECHA_RESERVAValue write SetFECHA_RESERVAValue;
property FECHA_PREVISTA_ENVIO_ALBIsNull: Boolean read GetFECHA_PREVISTA_ENVIO_ALBIsNull write SetFECHA_PREVISTA_ENVIO_ALBIsNull; property FECHA_RESERVAIsNull: Boolean read GetFECHA_RESERVAIsNull write SetFECHA_RESERVAIsNull;
property ID_ALMACEN_ALB: Integer read GetID_ALMACEN_ALBValue write SetID_ALMACEN_ALBValue; property CAUSA_RESERVA: String read GetCAUSA_RESERVAValue write SetCAUSA_RESERVAValue;
property ID_ALMACEN_ALBIsNull: Boolean read GetID_ALMACEN_ALBIsNull write SetID_ALMACEN_ALBIsNull; property CAUSA_RESERVAIsNull: Boolean read GetCAUSA_RESERVAIsNull write SetCAUSA_RESERVAIsNull;
property ALMACEN_ALB: String read GetALMACEN_ALBValue write SetALMACEN_ALBValue; property ID_ARTICULO: Integer read GetID_ARTICULOValue write SetID_ARTICULOValue;
property ALMACEN_ALBIsNull: Boolean read GetALMACEN_ALBIsNull write SetALMACEN_ALBIsNull; property ID_ARTICULOIsNull: Boolean read GetID_ARTICULOIsNull write SetID_ARTICULOIsNull;
property ID_CLIENTE_ALB: Integer read GetID_CLIENTE_ALBValue write SetID_CLIENTE_ALBValue; property REFERENCIA: String read GetREFERENCIAValue write SetREFERENCIAValue;
property ID_CLIENTE_ALBIsNull: Boolean read GetID_CLIENTE_ALBIsNull write SetID_CLIENTE_ALBIsNull; property REFERENCIAIsNull: Boolean read GetREFERENCIAIsNull write SetREFERENCIAIsNull;
property CLIENTE_ALB: String read GetCLIENTE_ALBValue write SetCLIENTE_ALBValue; property DESCRIPCION: String read GetDESCRIPCIONValue write SetDESCRIPCIONValue;
property CLIENTE_ALBIsNull: Boolean read GetCLIENTE_ALBIsNull write SetCLIENTE_ALBIsNull; property DESCRIPCIONIsNull: Boolean read GetDESCRIPCIONIsNull write SetDESCRIPCIONIsNull;
property ID_ART: Integer read GetID_ARTValue write SetID_ARTValue; property FAMILIA: String read GetFAMILIAValue write SetFAMILIAValue;
property ID_ARTIsNull: Boolean read GetID_ARTIsNull write SetID_ARTIsNull; property FAMILIAIsNull: Boolean read GetFAMILIAIsNull write SetFAMILIAIsNull;
property FAMILIA_ART: String read GetFAMILIA_ARTValue write SetFAMILIA_ARTValue; property UNIDAD_MEDIDA: String read GetUNIDAD_MEDIDAValue write SetUNIDAD_MEDIDAValue;
property FAMILIA_ARTIsNull: Boolean read GetFAMILIA_ARTIsNull write SetFAMILIA_ARTIsNull; property UNIDAD_MEDIDAIsNull: Boolean read GetUNIDAD_MEDIDAIsNull write SetUNIDAD_MEDIDAIsNull;
property REFERENCIA_ART: String read GetREFERENCIA_ARTValue write SetREFERENCIA_ARTValue; property FABRICANTE: String read GetFABRICANTEValue write SetFABRICANTEValue;
property REFERENCIA_ARTIsNull: Boolean read GetREFERENCIA_ARTIsNull write SetREFERENCIA_ARTIsNull; property FABRICANTEIsNull: Boolean read GetFABRICANTEIsNull write SetFABRICANTEIsNull;
property REFERENCIA_PROV_ART: String read GetREFERENCIA_PROV_ARTValue write SetREFERENCIA_PROV_ARTValue; property REFERENCIA_FABR: String read GetREFERENCIA_FABRValue write SetREFERENCIA_FABRValue;
property REFERENCIA_PROV_ARTIsNull: Boolean read GetREFERENCIA_PROV_ARTIsNull write SetREFERENCIA_PROV_ARTIsNull; property REFERENCIA_FABRIsNull: Boolean read GetREFERENCIA_FABRIsNull write SetREFERENCIA_FABRIsNull;
property DESCRIPCION_ART: String read GetDESCRIPCION_ARTValue write SetDESCRIPCION_ARTValue; property CANTIDAD: Integer read GetCANTIDADValue write SetCANTIDADValue;
property DESCRIPCION_ARTIsNull: Boolean read GetDESCRIPCION_ARTIsNull write SetDESCRIPCION_ARTIsNull; property CANTIDADIsNull: Boolean read GetCANTIDADIsNull write SetCANTIDADIsNull;
property CANTIDAD_ART: Int64 read GetCANTIDAD_ARTValue write SetCANTIDAD_ARTValue; property ID_ALMACEN_RESERVA: Integer read GetID_ALMACEN_RESERVAValue write SetID_ALMACEN_RESERVAValue;
property CANTIDAD_ARTIsNull: Boolean read GetCANTIDAD_ARTIsNull write SetCANTIDAD_ARTIsNull; property ID_ALMACEN_RESERVAIsNull: Boolean read GetID_ALMACEN_RESERVAIsNull write SetID_ALMACEN_RESERVAIsNull;
property NOMBRE_ALMACEN_RESERVA: String read GetNOMBRE_ALMACEN_RESERVAValue write SetNOMBRE_ALMACEN_RESERVAValue;
property NOMBRE_ALMACEN_RESERVAIsNull: Boolean read GetNOMBRE_ALMACEN_RESERVAIsNull write SetNOMBRE_ALMACEN_RESERVAIsNull;
public public
constructor Create(aDataTable: TDADataTable); override; constructor Create(aDataTable: TDADataTable); override;
@ -973,25 +987,25 @@ begin
inherited; inherited;
end; end;
function TDetalleReservasDataTableRules.GetID_ALBValue: Integer; function TDetalleReservasDataTableRules.GetIDValue: Integer;
begin begin
result := DataTable.Fields[idx_DetalleReservasID_ALB].AsInteger; result := DataTable.Fields[idx_DetalleReservasID].AsInteger;
end; end;
procedure TDetalleReservasDataTableRules.SetID_ALBValue(const aValue: Integer); procedure TDetalleReservasDataTableRules.SetIDValue(const aValue: Integer);
begin begin
DataTable.Fields[idx_DetalleReservasID_ALB].AsInteger := aValue; DataTable.Fields[idx_DetalleReservasID].AsInteger := aValue;
end; end;
function TDetalleReservasDataTableRules.GetID_ALBIsNull: boolean; function TDetalleReservasDataTableRules.GetIDIsNull: boolean;
begin begin
result := DataTable.Fields[idx_DetalleReservasID_ALB].IsNull; result := DataTable.Fields[idx_DetalleReservasID].IsNull;
end; end;
procedure TDetalleReservasDataTableRules.SetID_ALBIsNull(const aValue: Boolean); procedure TDetalleReservasDataTableRules.SetIDIsNull(const aValue: Boolean);
begin begin
if aValue then if aValue then
DataTable.Fields[idx_DetalleReservasID_ALB].AsVariant := Null; DataTable.Fields[idx_DetalleReservasID].AsVariant := Null;
end; end;
function TDetalleReservasDataTableRules.GetID_EMPRESAValue: Integer; function TDetalleReservasDataTableRules.GetID_EMPRESAValue: Integer;
@ -1015,277 +1029,298 @@ begin
DataTable.Fields[idx_DetalleReservasID_EMPRESA].AsVariant := Null; DataTable.Fields[idx_DetalleReservasID_EMPRESA].AsVariant := Null;
end; end;
function TDetalleReservasDataTableRules.GetREFERENCIA_ALBValue: String; function TDetalleReservasDataTableRules.GetID_ALMACENValue: Integer;
begin begin
result := DataTable.Fields[idx_DetalleReservasREFERENCIA_ALB].AsString; result := DataTable.Fields[idx_DetalleReservasID_ALMACEN].AsInteger;
end; end;
procedure TDetalleReservasDataTableRules.SetREFERENCIA_ALBValue(const aValue: String); procedure TDetalleReservasDataTableRules.SetID_ALMACENValue(const aValue: Integer);
begin begin
DataTable.Fields[idx_DetalleReservasREFERENCIA_ALB].AsString := aValue; DataTable.Fields[idx_DetalleReservasID_ALMACEN].AsInteger := aValue;
end; end;
function TDetalleReservasDataTableRules.GetREFERENCIA_ALBIsNull: boolean; function TDetalleReservasDataTableRules.GetID_ALMACENIsNull: boolean;
begin begin
result := DataTable.Fields[idx_DetalleReservasREFERENCIA_ALB].IsNull; result := DataTable.Fields[idx_DetalleReservasID_ALMACEN].IsNull;
end; end;
procedure TDetalleReservasDataTableRules.SetREFERENCIA_ALBIsNull(const aValue: Boolean); procedure TDetalleReservasDataTableRules.SetID_ALMACENIsNull(const aValue: Boolean);
begin begin
if aValue then if aValue then
DataTable.Fields[idx_DetalleReservasREFERENCIA_ALB].AsVariant := Null; DataTable.Fields[idx_DetalleReservasID_ALMACEN].AsVariant := Null;
end; end;
function TDetalleReservasDataTableRules.GetSITUACION_ALBValue: String; function TDetalleReservasDataTableRules.GetNOMBRE_ALMACENValue: String;
begin begin
result := DataTable.Fields[idx_DetalleReservasSITUACION_ALB].AsString; result := DataTable.Fields[idx_DetalleReservasNOMBRE_ALMACEN].AsString;
end; end;
procedure TDetalleReservasDataTableRules.SetSITUACION_ALBValue(const aValue: String); procedure TDetalleReservasDataTableRules.SetNOMBRE_ALMACENValue(const aValue: String);
begin begin
DataTable.Fields[idx_DetalleReservasSITUACION_ALB].AsString := aValue; DataTable.Fields[idx_DetalleReservasNOMBRE_ALMACEN].AsString := aValue;
end; end;
function TDetalleReservasDataTableRules.GetSITUACION_ALBIsNull: boolean; function TDetalleReservasDataTableRules.GetNOMBRE_ALMACENIsNull: boolean;
begin begin
result := DataTable.Fields[idx_DetalleReservasSITUACION_ALB].IsNull; result := DataTable.Fields[idx_DetalleReservasNOMBRE_ALMACEN].IsNull;
end; end;
procedure TDetalleReservasDataTableRules.SetSITUACION_ALBIsNull(const aValue: Boolean); procedure TDetalleReservasDataTableRules.SetNOMBRE_ALMACENIsNull(const aValue: Boolean);
begin begin
if aValue then if aValue then
DataTable.Fields[idx_DetalleReservasSITUACION_ALB].AsVariant := Null; DataTable.Fields[idx_DetalleReservasNOMBRE_ALMACEN].AsVariant := Null;
end; end;
function TDetalleReservasDataTableRules.GetFECHA_PREVISTA_ENVIO_ALBValue: DateTime; function TDetalleReservasDataTableRules.GetFECHA_RESERVAValue: DateTime;
begin begin
result := DataTable.Fields[idx_DetalleReservasFECHA_PREVISTA_ENVIO_ALB].AsDateTime; result := DataTable.Fields[idx_DetalleReservasFECHA_RESERVA].AsDateTime;
end; end;
procedure TDetalleReservasDataTableRules.SetFECHA_PREVISTA_ENVIO_ALBValue(const aValue: DateTime); procedure TDetalleReservasDataTableRules.SetFECHA_RESERVAValue(const aValue: DateTime);
begin begin
DataTable.Fields[idx_DetalleReservasFECHA_PREVISTA_ENVIO_ALB].AsDateTime := aValue; DataTable.Fields[idx_DetalleReservasFECHA_RESERVA].AsDateTime := aValue;
end; end;
function TDetalleReservasDataTableRules.GetFECHA_PREVISTA_ENVIO_ALBIsNull: boolean; function TDetalleReservasDataTableRules.GetFECHA_RESERVAIsNull: boolean;
begin begin
result := DataTable.Fields[idx_DetalleReservasFECHA_PREVISTA_ENVIO_ALB].IsNull; result := DataTable.Fields[idx_DetalleReservasFECHA_RESERVA].IsNull;
end; end;
procedure TDetalleReservasDataTableRules.SetFECHA_PREVISTA_ENVIO_ALBIsNull(const aValue: Boolean); procedure TDetalleReservasDataTableRules.SetFECHA_RESERVAIsNull(const aValue: Boolean);
begin begin
if aValue then if aValue then
DataTable.Fields[idx_DetalleReservasFECHA_PREVISTA_ENVIO_ALB].AsVariant := Null; DataTable.Fields[idx_DetalleReservasFECHA_RESERVA].AsVariant := Null;
end; end;
function TDetalleReservasDataTableRules.GetID_ALMACEN_ALBValue: Integer; function TDetalleReservasDataTableRules.GetCAUSA_RESERVAValue: String;
begin begin
result := DataTable.Fields[idx_DetalleReservasID_ALMACEN_ALB].AsInteger; result := DataTable.Fields[idx_DetalleReservasCAUSA_RESERVA].AsString;
end; end;
procedure TDetalleReservasDataTableRules.SetID_ALMACEN_ALBValue(const aValue: Integer); procedure TDetalleReservasDataTableRules.SetCAUSA_RESERVAValue(const aValue: String);
begin begin
DataTable.Fields[idx_DetalleReservasID_ALMACEN_ALB].AsInteger := aValue; DataTable.Fields[idx_DetalleReservasCAUSA_RESERVA].AsString := aValue;
end; end;
function TDetalleReservasDataTableRules.GetID_ALMACEN_ALBIsNull: boolean; function TDetalleReservasDataTableRules.GetCAUSA_RESERVAIsNull: boolean;
begin begin
result := DataTable.Fields[idx_DetalleReservasID_ALMACEN_ALB].IsNull; result := DataTable.Fields[idx_DetalleReservasCAUSA_RESERVA].IsNull;
end; end;
procedure TDetalleReservasDataTableRules.SetID_ALMACEN_ALBIsNull(const aValue: Boolean); procedure TDetalleReservasDataTableRules.SetCAUSA_RESERVAIsNull(const aValue: Boolean);
begin begin
if aValue then if aValue then
DataTable.Fields[idx_DetalleReservasID_ALMACEN_ALB].AsVariant := Null; DataTable.Fields[idx_DetalleReservasCAUSA_RESERVA].AsVariant := Null;
end; end;
function TDetalleReservasDataTableRules.GetALMACEN_ALBValue: String; function TDetalleReservasDataTableRules.GetID_ARTICULOValue: Integer;
begin begin
result := DataTable.Fields[idx_DetalleReservasALMACEN_ALB].AsString; result := DataTable.Fields[idx_DetalleReservasID_ARTICULO].AsInteger;
end; end;
procedure TDetalleReservasDataTableRules.SetALMACEN_ALBValue(const aValue: String); procedure TDetalleReservasDataTableRules.SetID_ARTICULOValue(const aValue: Integer);
begin begin
DataTable.Fields[idx_DetalleReservasALMACEN_ALB].AsString := aValue; DataTable.Fields[idx_DetalleReservasID_ARTICULO].AsInteger := aValue;
end; end;
function TDetalleReservasDataTableRules.GetALMACEN_ALBIsNull: boolean; function TDetalleReservasDataTableRules.GetID_ARTICULOIsNull: boolean;
begin begin
result := DataTable.Fields[idx_DetalleReservasALMACEN_ALB].IsNull; result := DataTable.Fields[idx_DetalleReservasID_ARTICULO].IsNull;
end; end;
procedure TDetalleReservasDataTableRules.SetALMACEN_ALBIsNull(const aValue: Boolean); procedure TDetalleReservasDataTableRules.SetID_ARTICULOIsNull(const aValue: Boolean);
begin begin
if aValue then if aValue then
DataTable.Fields[idx_DetalleReservasALMACEN_ALB].AsVariant := Null; DataTable.Fields[idx_DetalleReservasID_ARTICULO].AsVariant := Null;
end; end;
function TDetalleReservasDataTableRules.GetID_CLIENTE_ALBValue: Integer; function TDetalleReservasDataTableRules.GetREFERENCIAValue: String;
begin begin
result := DataTable.Fields[idx_DetalleReservasID_CLIENTE_ALB].AsInteger; result := DataTable.Fields[idx_DetalleReservasREFERENCIA].AsString;
end; end;
procedure TDetalleReservasDataTableRules.SetID_CLIENTE_ALBValue(const aValue: Integer); procedure TDetalleReservasDataTableRules.SetREFERENCIAValue(const aValue: String);
begin begin
DataTable.Fields[idx_DetalleReservasID_CLIENTE_ALB].AsInteger := aValue; DataTable.Fields[idx_DetalleReservasREFERENCIA].AsString := aValue;
end; end;
function TDetalleReservasDataTableRules.GetID_CLIENTE_ALBIsNull: boolean; function TDetalleReservasDataTableRules.GetREFERENCIAIsNull: boolean;
begin begin
result := DataTable.Fields[idx_DetalleReservasID_CLIENTE_ALB].IsNull; result := DataTable.Fields[idx_DetalleReservasREFERENCIA].IsNull;
end; end;
procedure TDetalleReservasDataTableRules.SetID_CLIENTE_ALBIsNull(const aValue: Boolean); procedure TDetalleReservasDataTableRules.SetREFERENCIAIsNull(const aValue: Boolean);
begin begin
if aValue then if aValue then
DataTable.Fields[idx_DetalleReservasID_CLIENTE_ALB].AsVariant := Null; DataTable.Fields[idx_DetalleReservasREFERENCIA].AsVariant := Null;
end; end;
function TDetalleReservasDataTableRules.GetCLIENTE_ALBValue: String; function TDetalleReservasDataTableRules.GetDESCRIPCIONValue: String;
begin begin
result := DataTable.Fields[idx_DetalleReservasCLIENTE_ALB].AsString; result := DataTable.Fields[idx_DetalleReservasDESCRIPCION].AsString;
end; end;
procedure TDetalleReservasDataTableRules.SetCLIENTE_ALBValue(const aValue: String); procedure TDetalleReservasDataTableRules.SetDESCRIPCIONValue(const aValue: String);
begin begin
DataTable.Fields[idx_DetalleReservasCLIENTE_ALB].AsString := aValue; DataTable.Fields[idx_DetalleReservasDESCRIPCION].AsString := aValue;
end; end;
function TDetalleReservasDataTableRules.GetCLIENTE_ALBIsNull: boolean; function TDetalleReservasDataTableRules.GetDESCRIPCIONIsNull: boolean;
begin begin
result := DataTable.Fields[idx_DetalleReservasCLIENTE_ALB].IsNull; result := DataTable.Fields[idx_DetalleReservasDESCRIPCION].IsNull;
end; end;
procedure TDetalleReservasDataTableRules.SetCLIENTE_ALBIsNull(const aValue: Boolean); procedure TDetalleReservasDataTableRules.SetDESCRIPCIONIsNull(const aValue: Boolean);
begin begin
if aValue then if aValue then
DataTable.Fields[idx_DetalleReservasCLIENTE_ALB].AsVariant := Null; DataTable.Fields[idx_DetalleReservasDESCRIPCION].AsVariant := Null;
end; end;
function TDetalleReservasDataTableRules.GetID_ARTValue: Integer; function TDetalleReservasDataTableRules.GetFAMILIAValue: String;
begin begin
result := DataTable.Fields[idx_DetalleReservasID_ART].AsInteger; result := DataTable.Fields[idx_DetalleReservasFAMILIA].AsString;
end; end;
procedure TDetalleReservasDataTableRules.SetID_ARTValue(const aValue: Integer); procedure TDetalleReservasDataTableRules.SetFAMILIAValue(const aValue: String);
begin begin
DataTable.Fields[idx_DetalleReservasID_ART].AsInteger := aValue; DataTable.Fields[idx_DetalleReservasFAMILIA].AsString := aValue;
end; end;
function TDetalleReservasDataTableRules.GetID_ARTIsNull: boolean; function TDetalleReservasDataTableRules.GetFAMILIAIsNull: boolean;
begin begin
result := DataTable.Fields[idx_DetalleReservasID_ART].IsNull; result := DataTable.Fields[idx_DetalleReservasFAMILIA].IsNull;
end; end;
procedure TDetalleReservasDataTableRules.SetID_ARTIsNull(const aValue: Boolean); procedure TDetalleReservasDataTableRules.SetFAMILIAIsNull(const aValue: Boolean);
begin begin
if aValue then if aValue then
DataTable.Fields[idx_DetalleReservasID_ART].AsVariant := Null; DataTable.Fields[idx_DetalleReservasFAMILIA].AsVariant := Null;
end; end;
function TDetalleReservasDataTableRules.GetFAMILIA_ARTValue: String; function TDetalleReservasDataTableRules.GetUNIDAD_MEDIDAValue: String;
begin begin
result := DataTable.Fields[idx_DetalleReservasFAMILIA_ART].AsString; result := DataTable.Fields[idx_DetalleReservasUNIDAD_MEDIDA].AsString;
end; end;
procedure TDetalleReservasDataTableRules.SetFAMILIA_ARTValue(const aValue: String); procedure TDetalleReservasDataTableRules.SetUNIDAD_MEDIDAValue(const aValue: String);
begin begin
DataTable.Fields[idx_DetalleReservasFAMILIA_ART].AsString := aValue; DataTable.Fields[idx_DetalleReservasUNIDAD_MEDIDA].AsString := aValue;
end; end;
function TDetalleReservasDataTableRules.GetFAMILIA_ARTIsNull: boolean; function TDetalleReservasDataTableRules.GetUNIDAD_MEDIDAIsNull: boolean;
begin begin
result := DataTable.Fields[idx_DetalleReservasFAMILIA_ART].IsNull; result := DataTable.Fields[idx_DetalleReservasUNIDAD_MEDIDA].IsNull;
end; end;
procedure TDetalleReservasDataTableRules.SetFAMILIA_ARTIsNull(const aValue: Boolean); procedure TDetalleReservasDataTableRules.SetUNIDAD_MEDIDAIsNull(const aValue: Boolean);
begin begin
if aValue then if aValue then
DataTable.Fields[idx_DetalleReservasFAMILIA_ART].AsVariant := Null; DataTable.Fields[idx_DetalleReservasUNIDAD_MEDIDA].AsVariant := Null;
end; end;
function TDetalleReservasDataTableRules.GetREFERENCIA_ARTValue: String; function TDetalleReservasDataTableRules.GetFABRICANTEValue: String;
begin begin
result := DataTable.Fields[idx_DetalleReservasREFERENCIA_ART].AsString; result := DataTable.Fields[idx_DetalleReservasFABRICANTE].AsString;
end; end;
procedure TDetalleReservasDataTableRules.SetREFERENCIA_ARTValue(const aValue: String); procedure TDetalleReservasDataTableRules.SetFABRICANTEValue(const aValue: String);
begin begin
DataTable.Fields[idx_DetalleReservasREFERENCIA_ART].AsString := aValue; DataTable.Fields[idx_DetalleReservasFABRICANTE].AsString := aValue;
end; end;
function TDetalleReservasDataTableRules.GetREFERENCIA_ARTIsNull: boolean; function TDetalleReservasDataTableRules.GetFABRICANTEIsNull: boolean;
begin begin
result := DataTable.Fields[idx_DetalleReservasREFERENCIA_ART].IsNull; result := DataTable.Fields[idx_DetalleReservasFABRICANTE].IsNull;
end; end;
procedure TDetalleReservasDataTableRules.SetREFERENCIA_ARTIsNull(const aValue: Boolean); procedure TDetalleReservasDataTableRules.SetFABRICANTEIsNull(const aValue: Boolean);
begin begin
if aValue then if aValue then
DataTable.Fields[idx_DetalleReservasREFERENCIA_ART].AsVariant := Null; DataTable.Fields[idx_DetalleReservasFABRICANTE].AsVariant := Null;
end; end;
function TDetalleReservasDataTableRules.GetREFERENCIA_PROV_ARTValue: String; function TDetalleReservasDataTableRules.GetREFERENCIA_FABRValue: String;
begin begin
result := DataTable.Fields[idx_DetalleReservasREFERENCIA_PROV_ART].AsString; result := DataTable.Fields[idx_DetalleReservasREFERENCIA_FABR].AsString;
end; end;
procedure TDetalleReservasDataTableRules.SetREFERENCIA_PROV_ARTValue(const aValue: String); procedure TDetalleReservasDataTableRules.SetREFERENCIA_FABRValue(const aValue: String);
begin begin
DataTable.Fields[idx_DetalleReservasREFERENCIA_PROV_ART].AsString := aValue; DataTable.Fields[idx_DetalleReservasREFERENCIA_FABR].AsString := aValue;
end; end;
function TDetalleReservasDataTableRules.GetREFERENCIA_PROV_ARTIsNull: boolean; function TDetalleReservasDataTableRules.GetREFERENCIA_FABRIsNull: boolean;
begin begin
result := DataTable.Fields[idx_DetalleReservasREFERENCIA_PROV_ART].IsNull; result := DataTable.Fields[idx_DetalleReservasREFERENCIA_FABR].IsNull;
end; end;
procedure TDetalleReservasDataTableRules.SetREFERENCIA_PROV_ARTIsNull(const aValue: Boolean); procedure TDetalleReservasDataTableRules.SetREFERENCIA_FABRIsNull(const aValue: Boolean);
begin begin
if aValue then if aValue then
DataTable.Fields[idx_DetalleReservasREFERENCIA_PROV_ART].AsVariant := Null; DataTable.Fields[idx_DetalleReservasREFERENCIA_FABR].AsVariant := Null;
end; end;
function TDetalleReservasDataTableRules.GetDESCRIPCION_ARTValue: String; function TDetalleReservasDataTableRules.GetCANTIDADValue: Integer;
begin begin
result := DataTable.Fields[idx_DetalleReservasDESCRIPCION_ART].AsString; result := DataTable.Fields[idx_DetalleReservasCANTIDAD].AsInteger;
end; end;
procedure TDetalleReservasDataTableRules.SetDESCRIPCION_ARTValue(const aValue: String); procedure TDetalleReservasDataTableRules.SetCANTIDADValue(const aValue: Integer);
begin begin
DataTable.Fields[idx_DetalleReservasDESCRIPCION_ART].AsString := aValue; DataTable.Fields[idx_DetalleReservasCANTIDAD].AsInteger := aValue;
end; end;
function TDetalleReservasDataTableRules.GetDESCRIPCION_ARTIsNull: boolean; function TDetalleReservasDataTableRules.GetCANTIDADIsNull: boolean;
begin begin
result := DataTable.Fields[idx_DetalleReservasDESCRIPCION_ART].IsNull; result := DataTable.Fields[idx_DetalleReservasCANTIDAD].IsNull;
end; end;
procedure TDetalleReservasDataTableRules.SetDESCRIPCION_ARTIsNull(const aValue: Boolean); procedure TDetalleReservasDataTableRules.SetCANTIDADIsNull(const aValue: Boolean);
begin begin
if aValue then if aValue then
DataTable.Fields[idx_DetalleReservasDESCRIPCION_ART].AsVariant := Null; DataTable.Fields[idx_DetalleReservasCANTIDAD].AsVariant := Null;
end; end;
function TDetalleReservasDataTableRules.GetCANTIDAD_ARTValue: Int64; function TDetalleReservasDataTableRules.GetID_ALMACEN_RESERVAValue: Integer;
begin begin
result := DataTable.Fields[idx_DetalleReservasCANTIDAD_ART].AsLargeInt; result := DataTable.Fields[idx_DetalleReservasID_ALMACEN_RESERVA].AsInteger;
end; end;
procedure TDetalleReservasDataTableRules.SetCANTIDAD_ARTValue(const aValue: Int64); procedure TDetalleReservasDataTableRules.SetID_ALMACEN_RESERVAValue(const aValue: Integer);
begin begin
DataTable.Fields[idx_DetalleReservasCANTIDAD_ART].AsLargeInt := aValue; DataTable.Fields[idx_DetalleReservasID_ALMACEN_RESERVA].AsInteger := aValue;
end; end;
function TDetalleReservasDataTableRules.GetCANTIDAD_ARTIsNull: boolean; function TDetalleReservasDataTableRules.GetID_ALMACEN_RESERVAIsNull: boolean;
begin begin
result := DataTable.Fields[idx_DetalleReservasCANTIDAD_ART].IsNull; result := DataTable.Fields[idx_DetalleReservasID_ALMACEN_RESERVA].IsNull;
end; end;
procedure TDetalleReservasDataTableRules.SetCANTIDAD_ARTIsNull(const aValue: Boolean); procedure TDetalleReservasDataTableRules.SetID_ALMACEN_RESERVAIsNull(const aValue: Boolean);
begin begin
if aValue then if aValue then
DataTable.Fields[idx_DetalleReservasCANTIDAD_ART].AsVariant := Null; DataTable.Fields[idx_DetalleReservasID_ALMACEN_RESERVA].AsVariant := Null;
end;
function TDetalleReservasDataTableRules.GetNOMBRE_ALMACEN_RESERVAValue: String;
begin
result := DataTable.Fields[idx_DetalleReservasNOMBRE_ALMACEN_RESERVA].AsString;
end;
procedure TDetalleReservasDataTableRules.SetNOMBRE_ALMACEN_RESERVAValue(const aValue: String);
begin
DataTable.Fields[idx_DetalleReservasNOMBRE_ALMACEN_RESERVA].AsString := aValue;
end;
function TDetalleReservasDataTableRules.GetNOMBRE_ALMACEN_RESERVAIsNull: boolean;
begin
result := DataTable.Fields[idx_DetalleReservasNOMBRE_ALMACEN_RESERVA].IsNull;
end;
procedure TDetalleReservasDataTableRules.SetNOMBRE_ALMACEN_RESERVAIsNull(const aValue: Boolean);
begin
if aValue then
DataTable.Fields[idx_DetalleReservasNOMBRE_ALMACEN_RESERVA].AsVariant := Null;
end; end;

File diff suppressed because it is too large Load Diff

View File

@ -44,7 +44,15 @@ type
property TipoMovimiento: TEnumTipoMovimiento read GetTipo write SetTipo; property TipoMovimiento: TEnumTipoMovimiento read GetTipo write SetTipo;
end; end;
TBizDetalleReservas = class(TDetalleReservasDataTableRules, IBizDetalleReservas) TBizDetalleReservas = class(TDetalleReservasDataTableRules, IBizDetalleReservas, ISeleccionable)
protected
FSeleccionableInterface : ISeleccionable;
public
property SeleccionableInterface : ISeleccionable read FSeleccionableInterface
write FSeleccionableInterface implements ISeleccionable;
constructor Create(aDataTable: TDADataTable); override;
destructor Destroy; override;
end; end;
TBizInventario = class(TInventarioDataTableRules, IBizInventario, ISeleccionable) TBizInventario = class(TInventarioDataTableRules, IBizInventario, ISeleccionable)
@ -74,7 +82,6 @@ type
write FSeleccionableInterface implements ISeleccionable; write FSeleccionableInterface implements ISeleccionable;
constructor Create(aDataTable: TDADataTable); override; constructor Create(aDataTable: TDADataTable); override;
destructor Destroy; override; destructor Destroy; override;
end; end;
@ -179,6 +186,20 @@ begin
FTipoMovimiento := Value; FTipoMovimiento := Value;
end; end;
{ TBizDetalleReservas }
constructor TBizDetalleReservas.Create(aDataTable: TDADataTable);
begin
inherited;
FSeleccionableInterface := TSeleccionable.Create(aDataTable);
end;
destructor TBizDetalleReservas.Destroy;
begin
FSeleccionableInterface := NIL;
inherited;
end;
initialization initialization
RegisterDataTableRules(BIZ_CLIENT_INVENTARIO, TBizInventario); RegisterDataTableRules(BIZ_CLIENT_INVENTARIO, TBizInventario);
RegisterDataTableRules(BIZ_CLIENT_DETALLE_RESERVAS_INV, TBizDetalleReservas); RegisterDataTableRules(BIZ_CLIENT_DETALLE_RESERVAS_INV, TBizDetalleReservas);

View File

@ -228,165 +228,171 @@ object srvInventario: TsrvInventario
item item
Connection = 'IBX' Connection = 'IBX'
TargetTable = 'V_INV_DETALLE_RESERVAS' TargetTable = 'V_INV_DETALLE_RESERVAS'
SQL = StatementType = stAutoSQL
'SELECT'#10' ID_ALB,'#10' ID_EMPRESA,'#10' REFERENCIA_ALB,'#10' SITUACION_ALB' +
','#10' FECHA_PREVISTA_ENVIO_ALB,'#10' ID_ALMACEN_ALB,'#10' ALMACEN_ALB,'#10' ' +
' ID_CLIENTE_ALB,'#10' CLIENTE_ALB,'#10' ID_ART,'#10' FAMILIA_ART,'#10' REFER' +
'ENCIA_ART,'#10' REFERENCIA_PROV_ART,'#10' DESCRIPCION_ART,'#10' CANTIDAD_' +
'ART'#10' '#10'FROM V_INV_DETALLE_RESERVAS'#10'where {where}'#10'ORDER BY REFERE' +
'NCIA_ALB'#10
StatementType = stSQL
ColumnMappings = < ColumnMappings = <
item item
DatasetField = 'ID_ALB' DatasetField = 'ID'
TableField = 'ID_ALB' TableField = 'ID'
end
item
DatasetField = 'REFERENCIA_ALB'
TableField = 'REFERENCIA_ALB'
end
item
DatasetField = 'SITUACION_ALB'
TableField = 'SITUACION_ALB'
end
item
DatasetField = 'FECHA_PREVISTA_ENVIO_ALB'
TableField = 'FECHA_PREVISTA_ENVIO_ALB'
end
item
DatasetField = 'ID_ALMACEN_ALB'
TableField = 'ID_ALMACEN_ALB'
end
item
DatasetField = 'ALMACEN_ALB'
TableField = 'ALMACEN_ALB'
end
item
DatasetField = 'ID_CLIENTE_ALB'
TableField = 'ID_CLIENTE_ALB'
end
item
DatasetField = 'CLIENTE_ALB'
TableField = 'CLIENTE_ALB'
end
item
DatasetField = 'ID_ART'
TableField = 'ID_ART'
end
item
DatasetField = 'FAMILIA_ART'
TableField = 'FAMILIA_ART'
end
item
DatasetField = 'REFERENCIA_ART'
TableField = 'REFERENCIA_ART'
end
item
DatasetField = 'REFERENCIA_PROV_ART'
TableField = 'REFERENCIA_PROV_ART'
end
item
DatasetField = 'DESCRIPCION_ART'
TableField = 'DESCRIPCION_ART'
end
item
DatasetField = 'CANTIDAD_ART'
TableField = 'CANTIDAD_ART'
end end
item item
DatasetField = 'ID_EMPRESA' DatasetField = 'ID_EMPRESA'
TableField = 'ID_EMPRESA' TableField = 'ID_EMPRESA'
end
item
DatasetField = 'ID_ALMACEN'
TableField = 'ID_ALMACEN'
end
item
DatasetField = 'NOMBRE_ALMACEN'
TableField = 'NOMBRE_ALMACEN'
end
item
DatasetField = 'FECHA_RESERVA'
TableField = 'FECHA_RESERVA'
end
item
DatasetField = 'CAUSA_RESERVA'
TableField = 'CAUSA_RESERVA'
end
item
DatasetField = 'ID_ARTICULO'
TableField = 'ID_ARTICULO'
end
item
DatasetField = 'REFERENCIA'
TableField = 'REFERENCIA'
end
item
DatasetField = 'DESCRIPCION'
TableField = 'DESCRIPCION'
end
item
DatasetField = 'FAMILIA'
TableField = 'FAMILIA'
end
item
DatasetField = 'UNIDAD_MEDIDA'
TableField = 'UNIDAD_MEDIDA'
end
item
DatasetField = 'FABRICANTE'
TableField = 'FABRICANTE'
end
item
DatasetField = 'REFERENCIA_FABR'
TableField = 'REFERENCIA_FABR'
end
item
DatasetField = 'CANTIDAD'
TableField = 'CANTIDAD'
end
item
DatasetField = 'ID_ALMACEN_RESERVA'
TableField = 'ID_ALMACEN_RESERVA'
end
item
DatasetField = 'NOMBRE_ALMACEN_RESERVA'
TableField = 'NOMBRE_ALMACEN_RESERVA'
end> end>
end> end>
Name = 'DetalleReservas' Name = 'DetalleReservas'
Fields = < Fields = <
item item
Name = 'ID_ALB' Name = 'ID'
DataType = datInteger DataType = datInteger
DictionaryEntry = 'DETALLE_RESERVAS_INV_ID_ALB'
end end
item item
Name = 'ID_EMPRESA' Name = 'ID_EMPRESA'
DataType = datInteger DataType = datInteger
DictionaryEntry = 'DETALLE_RESERVAS_INV_ID_EMPRESA'
end end
item item
Name = 'REFERENCIA_ALB' Name = 'ID_ALMACEN'
DataType = datInteger
end
item
Name = 'NOMBRE_ALMACEN'
DataType = datString DataType = datString
Size = 255 Size = 255
DictionaryEntry = 'DETALLE_RESERVAS_INV_REFERENCIA_ALB'
end end
item item
Name = 'SITUACION_ALB' Name = 'FECHA_RESERVA'
DataType = datString
Size = 9
DictionaryEntry = 'DETALLE_RESERVAS_INV_SITUACION_ALB'
end
item
Name = 'FECHA_PREVISTA_ENVIO_ALB'
DataType = datDateTime DataType = datDateTime
DictionaryEntry = 'DETALLE_RESERVAS_INV_FECHA_PREVISTA_ENVIO_ALB'
end end
item item
Name = 'ID_ALMACEN_ALB' Name = 'CAUSA_RESERVA'
DataType = datString
Size = 2000
end
item
Name = 'ID_ARTICULO'
DataType = datInteger DataType = datInteger
DictionaryEntry = 'DETALLE_RESERVAS_INV_ID_ALMACEN_ALB'
end end
item item
Name = 'ALMACEN_ALB' Name = 'REFERENCIA'
DataType = datString DataType = datString
Size = 255 Size = 255
DictionaryEntry = 'DETALLE_RESERVAS_INV_ALMACEN_ALB'
end end
item item
Name = 'ID_CLIENTE_ALB' Name = 'DESCRIPCION'
DataType = datString
Size = 255
end
item
Name = 'FAMILIA'
DataType = datString
Size = 255
end
item
Name = 'UNIDAD_MEDIDA'
DataType = datString
Size = 255
end
item
Name = 'FABRICANTE'
DataType = datString
Size = 255
end
item
Name = 'REFERENCIA_FABR'
DataType = datString
Size = 255
end
item
Name = 'CANTIDAD'
DataType = datInteger DataType = datInteger
DictionaryEntry = 'DETALLE_RESERVAS_INV_ID_CLIENTE_ALB'
end end
item item
Name = 'CLIENTE_ALB' Name = 'ID_ALMACEN_RESERVA'
DataType = datString
Size = 255
DictionaryEntry = 'DETALLE_RESERVAS_INV_CLIENTE_ALB'
end
item
Name = 'ID_ART'
DataType = datInteger DataType = datInteger
DictionaryEntry = 'DETALLE_RESERVAS_INV_ID_ART'
end end
item item
Name = 'FAMILIA_ART' Name = 'NOMBRE_ALMACEN_RESERVA'
DataType = datString DataType = datString
Size = 255 Size = 255
DictionaryEntry = 'DETALLE_RESERVAS_INV_FAMILIA_ART'
end
item
Name = 'REFERENCIA_ART'
DataType = datString
Size = 255
DictionaryEntry = 'DETALLE_RESERVAS_INV_REFERENCIA_ART'
end
item
Name = 'REFERENCIA_PROV_ART'
DataType = datString
Size = 255
DictionaryEntry = 'DETALLE_RESERVAS_INV_REFERENCIA_PROV_ART'
end
item
Name = 'DESCRIPCION_ART'
DataType = datString
Size = 255
DictionaryEntry = 'DETALLE_RESERVAS_INV_DESCRIPCION_ART'
end
item
Name = 'CANTIDAD_ART'
DataType = datLargeInt
DictionaryEntry = 'DETALLE_RESERVAS_INV_CANTIDAD_ART'
end> end>
end> end>
JoinDataTables = <> JoinDataTables = <>
UnionDataTables = <> UnionDataTables = <>
Commands = < Commands = <
item
Params = <
item
Name = 'OLD_ID'
Value = ''
end>
Statements = <
item
Connection = 'IBX'
ConnectionType = 'Interbase'
Default = True
TargetTable = 'MOVIMIENTOS'
Name = 'IBX'
SQL = 'DELETE'#10' FROM'#10' MOVIMIENTOS'#10' WHERE'#10' (ID = :OLD_ID)'#10
StatementType = stSQL
ColumnMappings = <>
end>
Name = 'Delete_Reservas'
end
item item
Params = < Params = <
item item
@ -435,7 +441,7 @@ object srvInventario: TsrvInventario
StatementType = stSQL StatementType = stSQL
ColumnMappings = <> ColumnMappings = <>
end> end>
Name = 'Insert_INVENTARIO' Name = 'Insert_Inventario'
end end
item item
Params = < Params = <
@ -447,11 +453,11 @@ object srvInventario: TsrvInventario
item item
Connection = 'IBX' Connection = 'IBX'
TargetTable = 'MOVIMIENTOS' TargetTable = 'MOVIMIENTOS'
SQL = 'DELETE '#10' FROM'#10' MOVIMIENTO'#10' WHERE'#10' (ID = :OLD_ID)' SQL = 'DELETE '#10' FROM'#10' MOVIMIENTOS'#10' WHERE'#10' (ID = :OLD_ID)'#10
StatementType = stSQL StatementType = stSQL
ColumnMappings = <> ColumnMappings = <>
end> end>
Name = 'Delete_INVENTARIO' Name = 'Delete_Inventario'
end end
item item
Params = < Params = <
@ -504,7 +510,7 @@ object srvInventario: TsrvInventario
StatementType = stSQL StatementType = stSQL
ColumnMappings = <> ColumnMappings = <>
end> end>
Name = 'Update_INVENTARIO' Name = 'Update_Inventario'
end> end>
RelationShips = <> RelationShips = <>
UpdateRules = <> UpdateRules = <>
@ -514,9 +520,9 @@ object srvInventario: TsrvInventario
end end
object bpInventario: TDABusinessProcessor object bpInventario: TDABusinessProcessor
Schema = schInventario Schema = schInventario
InsertCommandName = 'Insert_INVENTARIO' InsertCommandName = 'Insert_Inventario'
DeleteCommandName = 'Delete_INVENTARIO' DeleteCommandName = 'Delete_Inventario'
UpdateCommandName = 'Update_INVENTARIO' UpdateCommandName = 'Update_Inventario'
ReferencedDataset = 'INVENTARIO' ReferencedDataset = 'INVENTARIO'
ProcessorOptions = [poAutoGenerateRefreshDataset, poPrepareCommands] ProcessorOptions = [poAutoGenerateRefreshDataset, poPrepareCommands]
UpdateMode = updWhereKeyOnly UpdateMode = updWhereKeyOnly
@ -724,4 +730,13 @@ object srvInventario: TsrvInventario
Left = 40 Left = 40
Top = 80 Top = 80
end end
object bpReservas: TDABusinessProcessor
Schema = schInventario
DeleteCommandName = 'Delete_Reservas'
ReferencedDataset = 'DetalleReservas'
ProcessorOptions = [poAutoGenerateRefreshDataset, poPrepareCommands]
UpdateMode = updWhereKeyOnly
Left = 208
Top = 72
end
end end

View File

@ -23,6 +23,7 @@ type
TsrvInventario = class(TDataAbstractService, IsrvInventario) TsrvInventario = class(TDataAbstractService, IsrvInventario)
bpInventario: TDABusinessProcessor; bpInventario: TDABusinessProcessor;
Bin2DataStreamer: TDABin2DataStreamer; Bin2DataStreamer: TDABin2DataStreamer;
bpReservas: TDABusinessProcessor;
schInventario: TDASchema; schInventario: TDASchema;
DataDictionary: TDADataDictionary; DataDictionary: TDADataDictionary;
procedure DARemoteServiceAfterGetDatasetData(const Dataset: IDADataset; procedure DARemoteServiceAfterGetDatasetData(const Dataset: IDADataset;

View File

@ -5,7 +5,7 @@ inherited fEditorDetalleReservas: TfEditorDetalleReservas
ClientHeight = 540 ClientHeight = 540
ClientWidth = 669 ClientWidth = 669
ExplicitWidth = 677 ExplicitWidth = 677
ExplicitHeight = 567 ExplicitHeight = 574
PixelsPerInch = 96 PixelsPerInch = 96
TextHeight = 13 TextHeight = 13
inherited JvNavPanelHeader: TJvNavPanelHeader inherited JvNavPanelHeader: TJvNavPanelHeader
@ -42,7 +42,7 @@ inherited fEditorDetalleReservas: TfEditorDetalleReservas
Width = 669 Width = 669
ExplicitWidth = 669 ExplicitWidth = 669
inherited tbxMain: TTBXToolbar inherited tbxMain: TTBXToolbar
ExplicitWidth = 358 ExplicitWidth = 501
object TBXSeparatorItem84: TTBXSeparatorItem [6] object TBXSeparatorItem84: TTBXSeparatorItem [6]
end end
object TBXItem54: TTBXItem [7] object TBXItem54: TTBXItem [7]
@ -86,7 +86,15 @@ inherited fEditorDetalleReservas: TfEditorDetalleReservas
inherited TBXTMain2: TTBXToolbar inherited TBXTMain2: TTBXToolbar
Left = 269 Left = 269
DockPos = 264 DockPos = 264
Visible = True
ExplicitLeft = 269 ExplicitLeft = 269
ExplicitWidth = 209
object TBXItem39: TTBXItem
Action = actTrasladarReservados
end
object TBXItem38: TTBXItem
Action = actCancelarReserva
end
end end
end end
inherited StatusBar: TJvStatusBar inherited StatusBar: TJvStatusBar
@ -150,7 +158,6 @@ inherited fEditorDetalleReservas: TfEditorDetalleReservas
item item
Format = '0 Reservados' Format = '0 Reservados'
Kind = skSum Kind = skSum
Column = frViewDetalleReservas1.cxGridViewCANTIDAD_ART
end> end>
end end
end end
@ -162,7 +169,31 @@ inherited fEditorDetalleReservas: TfEditorDetalleReservas
inherited dxLayoutControl1: TdxLayoutControl inherited dxLayoutControl1: TdxLayoutControl
Width = 669 Width = 669
ExplicitWidth = 669 ExplicitWidth = 669
inherited txtFiltroTodo: TcxTextEdit
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitWidth = 273
Width = 273
end
inherited edtFechaIniFiltro: TcxDateEdit
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
end
inherited edtFechaFinFiltro: TcxDateEdit
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
end
inherited eLista: TcxComboBox inherited eLista: TcxComboBox
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitWidth = 20 ExplicitWidth = 20
Width = 20 Width = 20
end end
@ -247,6 +278,16 @@ inherited fEditorDetalleReservas: TfEditorDetalleReservas
Caption = 'Contraer' Caption = 'Contraer'
Visible = False Visible = False
end end
object actCancelarReserva: TAction
Category = 'Reservas'
Caption = 'Cancelar reserva'
OnExecute = actCancelarReservaExecute
end
object actTrasladarReservados: TAction
Category = 'Reservas'
Caption = 'Trasladar al destino'
OnExecute = actTrasladarReservadosExecute
end
end end
inherited SmallImages: TPngImageList [5] inherited SmallImages: TPngImageList [5]
PngImages = < PngImages = <

View File

@ -42,52 +42,79 @@ inherited frViewDetalleReservas: TfrViewDetalleReservas
item item
Format = '0 Reservados' Format = '0 Reservados'
Kind = skSum Kind = skSum
Column = cxGridViewCANTIDAD_ART Column = cxGridViewCANTIDAD
end> end>
OptionsCustomize.ColumnHidingOnGrouping = False OptionsCustomize.ColumnHidingOnGrouping = False
OptionsCustomize.GroupBySorting = True OptionsCustomize.GroupBySorting = True
object cxGridViewRecID: TcxGridDBColumn object cxGridViewRecID: TcxGridDBColumn
DataBinding.FieldName = 'RecID' DataBinding.FieldName = 'RecID'
Visible = False Visible = False
VisibleForCustomization = False
end end
object cxGridViewREFERENCIA_ALB: TcxGridDBColumn object cxGridViewFECHA_RESERVA: TcxGridDBColumn
DataBinding.FieldName = 'REFERENCIA_ALB' Caption = 'Fecha de reserva'
DataBinding.FieldName = 'FECHA_RESERVA'
end end
object cxGridViewSITUACION_ALB: TcxGridDBColumn object cxGridViewCAUSA_RESERVA: TcxGridDBColumn
DataBinding.FieldName = 'SITUACION_ALB' Caption = 'Causa'
DataBinding.FieldName = 'CAUSA_RESERVA'
end
object cxGridViewID_ALMACEN: TcxGridDBColumn
DataBinding.FieldName = 'ID_ALMACEN'
Visible = False Visible = False
VisibleForCustomization = False
end end
object cxGridViewFECHA_PREVISTA_ENVIO_ALB: TcxGridDBColumn object cxGridViewALMACEN: TcxGridDBColumn
DataBinding.FieldName = 'FECHA_PREVISTA_ENVIO_ALB' Caption = 'Almac'#233'n'
DataBinding.FieldName = 'NOMBRE_ALMACEN'
end end
object cxGridViewID_ALMACEN_ALB: TcxGridDBColumn object cxGridViewID_ARTICULO: TcxGridDBColumn
DataBinding.FieldName = 'ID_ALMACEN_ALB' DataBinding.FieldName = 'ID_ARTICULO'
Visible = False Visible = False
VisibleForCustomization = False
end end
object cxGridViewALMACEN_ALB: TcxGridDBColumn object cxGridViewREFERENCIA: TcxGridDBColumn
DataBinding.FieldName = 'ALMACEN_ALB' Caption = 'Referencia'
DataBinding.FieldName = 'REFERENCIA'
end end
object cxGridViewCLIENTE_ALB: TcxGridDBColumn object cxGridViewDESCRIPCION: TcxGridDBColumn
DataBinding.FieldName = 'CLIENTE_ALB' Caption = 'Descripci'#243'n'
DataBinding.FieldName = 'DESCRIPCION'
end end
object cxGridViewFAMILIA_ART: TcxGridDBColumn object cxGridViewFAMILIA: TcxGridDBColumn
DataBinding.FieldName = 'FAMILIA_ART' Caption = 'Familia'
DataBinding.FieldName = 'FAMILIA'
end end
object cxGridViewREFERENCIA_ART: TcxGridDBColumn object cxGridViewUNIDAD_MEDIDA: TcxGridDBColumn
DataBinding.FieldName = 'REFERENCIA_ART' Caption = 'Unidad de medida'
DataBinding.FieldName = 'UNIDAD_MEDIDA'
Visible = False
VisibleForCustomization = False
end end
object cxGridViewREFERENCIA_PROV_ART: TcxGridDBColumn object cxGridViewFABRICANTE: TcxGridDBColumn
DataBinding.FieldName = 'REFERENCIA_PROV_ART' Caption = 'Fabricante'
DataBinding.FieldName = 'FABRICANTE'
end end
object cxGridViewDESCRIPCION_ART: TcxGridDBColumn object cxGridViewREFERENCIA_FABR: TcxGridDBColumn
DataBinding.FieldName = 'DESCRIPCION_ART' Caption = 'Ref. fabricante'
DataBinding.FieldName = 'REFERENCIA_FABR'
end end
object cxGridViewCANTIDAD_ART: TcxGridDBColumn object cxGridViewCANTIDAD: TcxGridDBColumn
DataBinding.FieldName = 'CANTIDAD_ART' Caption = 'Reservado'
DataBinding.FieldName = 'CANTIDAD'
PropertiesClassName = 'TcxSpinEditProperties' PropertiesClassName = 'TcxSpinEditProperties'
Properties.Alignment.Horz = taRightJustify Properties.Alignment.Horz = taRightJustify
FooterAlignmentHorz = taRightJustify FooterAlignmentHorz = taRightJustify
end end
object cxGridViewID_ALMACEN_RESERVA: TcxGridDBColumn
DataBinding.FieldName = 'ID_ALMACEN_RESERVA'
Visible = False
VisibleForCustomization = False
end
object cxGridViewALMACEN_RESERVA: TcxGridDBColumn
Caption = 'Resevado para'
DataBinding.FieldName = 'NOMBRE_ALMACEN_RESERVA'
end
end end
object cxGridDBTableView1: TcxGridDBTableView [1] object cxGridDBTableView1: TcxGridDBTableView [1]
NavigatorButtons.ConfirmDelete = False NavigatorButtons.ConfirmDelete = False
@ -120,19 +147,28 @@ inherited frViewDetalleReservas: TfrViewDetalleReservas
Width = 121 Width = 121
end end
inherited edtFechaFinFiltro: TcxDateEdit inherited edtFechaFinFiltro: TcxDateEdit
Left = 225
Style.LookAndFeel.SkinName = '' Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = '' StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = '' StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = '' StyleHot.LookAndFeel.SkinName = ''
ExplicitLeft = 225
ExplicitWidth = 121 ExplicitWidth = 121
Width = 121 Width = 121
end end
inherited eLista: TcxComboBox
Left = 383
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitLeft = 383
ExplicitWidth = 215
Width = 215
end
end end
end end
end end
inherited pnlAgrupaciones: TTBXDockablePanel
ExplicitWidth = 128
end
inherited dxComponentPrinter: TdxComponentPrinter inherited dxComponentPrinter: TdxComponentPrinter
inherited dxComponentPrinterLink: TdxGridReportLink inherited dxComponentPrinterLink: TdxGridReportLink
ReportDocument.CreationDate = 38673.741107951390000000 ReportDocument.CreationDate = 38673.741107951390000000

View File

@ -33,17 +33,20 @@ type
PngImageList: TPngImageList; PngImageList: TPngImageList;
cxStyleArticuloSinStock: TcxStyle; cxStyleArticuloSinStock: TcxStyle;
cxGridViewRecID: TcxGridDBColumn; cxGridViewRecID: TcxGridDBColumn;
cxGridViewREFERENCIA_ALB: TcxGridDBColumn; cxGridViewFECHA_RESERVA: TcxGridDBColumn;
cxGridViewSITUACION_ALB: TcxGridDBColumn; cxGridViewCAUSA_RESERVA: TcxGridDBColumn;
cxGridViewFECHA_PREVISTA_ENVIO_ALB: TcxGridDBColumn; cxGridViewID_ALMACEN: TcxGridDBColumn;
cxGridViewID_ALMACEN_ALB: TcxGridDBColumn; cxGridViewALMACEN: TcxGridDBColumn;
cxGridViewALMACEN_ALB: TcxGridDBColumn; cxGridViewID_ARTICULO: TcxGridDBColumn;
cxGridViewCLIENTE_ALB: TcxGridDBColumn; cxGridViewFAMILIA: TcxGridDBColumn;
cxGridViewFAMILIA_ART: TcxGridDBColumn; cxGridViewREFERENCIA: TcxGridDBColumn;
cxGridViewREFERENCIA_ART: TcxGridDBColumn; cxGridViewDESCRIPCION: TcxGridDBColumn;
cxGridViewREFERENCIA_PROV_ART: TcxGridDBColumn; cxGridViewCANTIDAD: TcxGridDBColumn;
cxGridViewDESCRIPCION_ART: TcxGridDBColumn; cxGridViewUNIDAD_MEDIDA: TcxGridDBColumn;
cxGridViewCANTIDAD_ART: TcxGridDBColumn; cxGridViewFABRICANTE: TcxGridDBColumn;
cxGridViewREFERENCIA_FABR: TcxGridDBColumn;
cxGridViewID_ALMACEN_RESERVA: TcxGridDBColumn;
cxGridViewALMACEN_RESERVA: TcxGridDBColumn;
procedure cxGridActiveTabChanged(Sender: TcxCustomGrid; ALevel: TcxGridLevel); procedure cxGridActiveTabChanged(Sender: TcxCustomGrid; ALevel: TcxGridLevel);
procedure cxGridViewStylesGetContentStyle(Sender: TcxCustomGridTableView; procedure cxGridViewStylesGetContentStyle(Sender: TcxCustomGridTableView;
@ -87,11 +90,11 @@ begin
CodigoAlmacen := IntToStr(cxGrid.Levels.Items[cxGrid.ActiveLevel.Index].Tag); CodigoAlmacen := IntToStr(cxGrid.Levels.Items[cxGrid.ActiveLevel.Index].Tag);
if CodigoAlmacen <> '-1' then if CodigoAlmacen <> '-1' then
begin begin
FFiltro.AddItem(cxGridViewID_ALMACEN_ALB, foEqual, CodigoAlmacen, CodigoAlmacen); FFiltro.AddItem(cxGridViewID_ALMACEN, foEqual, CodigoAlmacen, CodigoAlmacen);
cxGridViewALMACEN_ALB.Visible := False; cxGridViewALMACEN.Visible := False;
end end
else else
cxGridViewALMACEN_ALB.Visible := True; cxGridViewALMACEN.Visible := True;
end; end;
procedure TfrViewDetalleReservas.AnadirOtrosFiltros; procedure TfrViewDetalleReservas.AnadirOtrosFiltros;

Binary file not shown.

View File

@ -124,12 +124,12 @@ uses
srvGestorDocumentos_Impl in '..\Modulos\Gestion de documentos\Servidor\srvGestorDocumentos_Impl.pas' {srvGestorDocumentos: TDataAbstractService}, srvGestorDocumentos_Impl in '..\Modulos\Gestion de documentos\Servidor\srvGestorDocumentos_Impl.pas' {srvGestorDocumentos: TDataAbstractService},
schPresupuestosClienteClient_Intf in '..\Modulos\Presupuestos de cliente\Model\schPresupuestosClienteClient_Intf.pas', schPresupuestosClienteClient_Intf in '..\Modulos\Presupuestos de cliente\Model\schPresupuestosClienteClient_Intf.pas',
schPresupuestosClienteServer_Intf in '..\Modulos\Presupuestos de cliente\Model\schPresupuestosClienteServer_Intf.pas', schPresupuestosClienteServer_Intf in '..\Modulos\Presupuestos de cliente\Model\schPresupuestosClienteServer_Intf.pas',
schInventarioClient_Intf in '..\Modulos\Inventario\Model\schInventarioClient_Intf.pas',
schInventarioServer_Intf in '..\Modulos\Inventario\Model\schInventarioServer_Intf.pas',
schFacturasClienteClient_Intf in '..\Modulos\Facturas de cliente\Model\schFacturasClienteClient_Intf.pas', schFacturasClienteClient_Intf in '..\Modulos\Facturas de cliente\Model\schFacturasClienteClient_Intf.pas',
schFacturasClienteServer_Intf in '..\Modulos\Facturas de cliente\Model\schFacturasClienteServer_Intf.pas', schFacturasClienteServer_Intf in '..\Modulos\Facturas de cliente\Model\schFacturasClienteServer_Intf.pas',
schFacturasProveedorClient_Intf in '..\Modulos\Facturas de proveedor\Model\schFacturasProveedorClient_Intf.pas', schFacturasProveedorClient_Intf in '..\Modulos\Facturas de proveedor\Model\schFacturasProveedorClient_Intf.pas',
schFacturasProveedorServer_Intf in '..\Modulos\Facturas de proveedor\Model\schFacturasProveedorServer_Intf.pas'; schFacturasProveedorServer_Intf in '..\Modulos\Facturas de proveedor\Model\schFacturasProveedorServer_Intf.pas',
schInventarioClient_Intf in '..\Modulos\Inventario\Model\schInventarioClient_Intf.pas',
schInventarioServer_Intf in '..\Modulos\Inventario\Model\schInventarioServer_Intf.pas';
{$R *.res} {$R *.res}
{$R ..\Servicios\RODLFile.res} {$R ..\Servicios\RODLFile.res}

View File

@ -1,294 +1,294 @@
<?xml version="1.0" encoding="utf-8"?> <?xml version="1.0" encoding="utf-8"?>
<Project xmlns="http://schemas.microsoft.com/developer/msbuild/2003"> <Project xmlns="http://schemas.microsoft.com/developer/msbuild/2003">
<PropertyGroup> <PropertyGroup>
<ProjectGuid>{ebdcd25d-40d7-4146-91ec-a0ea4aa1dcd1}</ProjectGuid> <ProjectGuid>{ebdcd25d-40d7-4146-91ec-a0ea4aa1dcd1}</ProjectGuid>
<MainSource>FactuGES_Server.dpr</MainSource> <MainSource>FactuGES_Server.dpr</MainSource>
<Configuration Condition=" '$(Configuration)' == '' ">Debug</Configuration> <Configuration Condition=" '$(Configuration)' == '' ">Debug</Configuration>
<Platform Condition=" '$(Platform)' == '' ">AnyCPU</Platform> <Platform Condition=" '$(Platform)' == '' ">AnyCPU</Platform>
<DCC_DCCCompiler>DCC32</DCC_DCCCompiler> <DCC_DCCCompiler>DCC32</DCC_DCCCompiler>
<DCC_DependencyCheckOutputName>..\..\Output\Debug\Servidor\FactuGES_Server.exe</DCC_DependencyCheckOutputName> <DCC_DependencyCheckOutputName>..\..\Output\Debug\Servidor\FactuGES_Server.exe</DCC_DependencyCheckOutputName>
<DCC_UsePackage>vcl;rtl;vclx;vclactnband;dbrtl;vcldb;vcldbx;bdertl;dsnap;dsnapcon;teeUI;teedb;tee;adortl;vclib;ibxpress;dbxcds;dbexpress;DbxCommonDriver;IndyCore;IndySystem;IndyProtocols;VclSmp;vclie;webdsnap;xmlrtl;inet;inetdbbde;inetdbxpress;RemObjects_BPDX_D11;RemObjects_RODX_D11;RemObjects_Indy_D11;RemObjects_Synapse_D11;RemObjects_WebBroker_D11;DataAbstract_Core_D11;DataAbstract_DBXDriver_D11;DataAbstract_IDE_D11;DataAbstract_Scripting_D11;DataAbstract_SDACDriver_D11;sdac105;dac105;DataAbstract_SQLiteDriver_D11;cxEditorsD10;cxLibraryD10;dxThemeD10;cxDataD10;cxExtEditorsD10;cxGridD10;cxPageControlD10;cxSchedulerD10;cxTreeListD10;cxVerticalGridD10;dxBarD10;dxComnD10;dxBarDBNavD10;dxBarExtDBItemsD10;dxBarExtItemsD10;dxDockingD10;dxLayoutControlD10;dxNavBarD10;dxPSCoreD10;dxsbD10;dxPScxCommonD10;dxPSLnksD10;vclshlctrls;dxPScxExtCommonD10;dxPScxGridLnkD10;dxPScxPCProdD10;dxPScxScheduler2LnkD10;dxPScxTLLnkD10;dxPSdxLCLnkD10;dxPsPrVwAdvD10;pckMD5;pckUCDataConnector;pckUserControl_RT;PluginSDK_D10R;PNG_D10;PngComponentsD10;tb2k_d10;tbx_d10;JclVcl;Jcl;JvXPCtrlsD11R;JvCoreD11R;JvSystemD11R;JvStdCtrlsD11R;JvAppFrmD11R;JvBandsD11R;JvDBD11R;JvDlgsD11R;JvBDED11R;JvCmpD11R;JvCryptD11R;JvCtrlsD11R;JvCustomD11R;JvDockingD11R;JvDotNetCtrlsD11R;JvEDID11R;JvGlobusD11R;JvHMID11R;JvInterpreterD11R;JvJansD11R;JvManagedThreadsD11R;JvMMD11R;JvNetD11R;JvPageCompsD11R;JvPluginD11R;JvPrintPreviewD11R;JvRuntimeDesignD11R;JvTimeFrameworkD11R;JvUIBD11R;JvValidatorsD11R;JvWizardD11R;pckUCADOConn;pckUCBDEConn;pckUCIBXConn;pckUCMidasConn;cxIntlPrintSys3D10;cxExportD10;cxIntl5D10;GUISDK_D11;ccpackD11;JSDialog100;fsTee11;fs11;frx11;frxADO11;frxBDE11;frxDB11;frxDBX11;frxe11;frxIBX11;frxTee11;fsADO11;fsBDE11;fsDB11;fsIBX11;websnap;soaprtl;IntrawebDB_90_100;Intraweb_90_100</DCC_UsePackage> <DCC_UsePackage>vcl;rtl;vclx;vclactnband;dbrtl;vcldb;vcldbx;bdertl;dsnap;dsnapcon;teeUI;teedb;tee;adortl;vclib;ibxpress;dbxcds;dbexpress;DbxCommonDriver;IndyCore;IndySystem;IndyProtocols;VclSmp;vclie;webdsnap;xmlrtl;inet;inetdbbde;inetdbxpress;RemObjects_BPDX_D11;RemObjects_RODX_D11;RemObjects_Indy_D11;RemObjects_Synapse_D11;RemObjects_WebBroker_D11;DataAbstract_Core_D11;DataAbstract_DBXDriver_D11;DataAbstract_IDE_D11;DataAbstract_Scripting_D11;DataAbstract_SDACDriver_D11;sdac105;dac105;DataAbstract_SQLiteDriver_D11;cxEditorsD10;cxLibraryD10;dxThemeD10;cxDataD10;cxExtEditorsD10;cxGridD10;cxPageControlD10;cxSchedulerD10;cxTreeListD10;cxVerticalGridD10;dxBarD10;dxComnD10;dxBarDBNavD10;dxBarExtDBItemsD10;dxBarExtItemsD10;dxDockingD10;dxLayoutControlD10;dxNavBarD10;dxPSCoreD10;dxsbD10;dxPScxCommonD10;dxPSLnksD10;vclshlctrls;dxPScxExtCommonD10;dxPScxGridLnkD10;dxPScxPCProdD10;dxPScxScheduler2LnkD10;dxPScxTLLnkD10;dxPSdxLCLnkD10;dxPsPrVwAdvD10;pckMD5;pckUCDataConnector;pckUserControl_RT;PluginSDK_D10R;PNG_D10;PngComponentsD10;tb2k_d10;tbx_d10;JclVcl;Jcl;JvXPCtrlsD11R;JvCoreD11R;JvSystemD11R;JvStdCtrlsD11R;JvAppFrmD11R;JvBandsD11R;JvDBD11R;JvDlgsD11R;JvBDED11R;JvCmpD11R;JvCryptD11R;JvCtrlsD11R;JvCustomD11R;JvDockingD11R;JvDotNetCtrlsD11R;JvEDID11R;JvGlobusD11R;JvHMID11R;JvInterpreterD11R;JvJansD11R;JvManagedThreadsD11R;JvMMD11R;JvNetD11R;JvPageCompsD11R;JvPluginD11R;JvPrintPreviewD11R;JvRuntimeDesignD11R;JvTimeFrameworkD11R;JvUIBD11R;JvValidatorsD11R;JvWizardD11R;pckUCADOConn;pckUCBDEConn;pckUCIBXConn;pckUCMidasConn;cxIntlPrintSys3D10;cxExportD10;cxIntl5D10;GUISDK_D11;ccpackD11;JSDialog100;fsTee11;fs11;frx11;frxADO11;frxBDE11;frxDB11;frxDBX11;frxe11;frxIBX11;frxTee11;fsADO11;fsBDE11;fsDB11;fsIBX11;websnap;soaprtl;IntrawebDB_90_100;Intraweb_90_100</DCC_UsePackage>
</PropertyGroup> </PropertyGroup>
<PropertyGroup Condition=" '$(Configuration)|$(Platform)' == 'Release|AnyCPU' "> <PropertyGroup Condition=" '$(Configuration)|$(Platform)' == 'Release|AnyCPU' ">
<Version>7.0</Version> <Version>7.0</Version>
<DCC_DebugInformation>False</DCC_DebugInformation> <DCC_DebugInformation>False</DCC_DebugInformation>
<DCC_LocalDebugSymbols>False</DCC_LocalDebugSymbols> <DCC_LocalDebugSymbols>False</DCC_LocalDebugSymbols>
<DCC_SymbolReferenceInfo>0</DCC_SymbolReferenceInfo> <DCC_SymbolReferenceInfo>0</DCC_SymbolReferenceInfo>
<DCC_MapFile>3</DCC_MapFile> <DCC_MapFile>3</DCC_MapFile>
<DCC_ExeOutput>..\..\Output\Release\Servidor</DCC_ExeOutput> <DCC_ExeOutput>..\..\Output\Release\Servidor</DCC_ExeOutput>
<DCC_Define>RELEASE</DCC_Define> <DCC_Define>RELEASE</DCC_Define>
</PropertyGroup> </PropertyGroup>
<PropertyGroup Condition=" '$(Configuration)|$(Platform)' == 'Debug|AnyCPU' "> <PropertyGroup Condition=" '$(Configuration)|$(Platform)' == 'Debug|AnyCPU' ">
<Version>7.0</Version> <Version>7.0</Version>
<DCC_MapFile>3</DCC_MapFile> <DCC_MapFile>3</DCC_MapFile>
<DCC_ExeOutput>..\..\Output\Debug\Servidor</DCC_ExeOutput> <DCC_ExeOutput>..\..\Output\Debug\Servidor</DCC_ExeOutput>
<DCC_Define>DEBUG;</DCC_Define> <DCC_Define>DEBUG;</DCC_Define>
<DCC_GenerateStackFrames>True</DCC_GenerateStackFrames> <DCC_GenerateStackFrames>True</DCC_GenerateStackFrames>
<DCC_DebugInfoInExe>True</DCC_DebugInfoInExe> <DCC_DebugInfoInExe>True</DCC_DebugInfoInExe>
<DCC_DebugVN>True</DCC_DebugVN> <DCC_DebugVN>True</DCC_DebugVN>
<DCC_UnitSearchPath>$(BDS)\lib\Debug;$(BDS)\Lib\Debug\Indy10</DCC_UnitSearchPath> <DCC_UnitSearchPath>$(BDS)\lib\Debug;$(BDS)\Lib\Debug\Indy10</DCC_UnitSearchPath>
<DCC_ResourcePath>$(BDS)\lib\Debug;$(BDS)\Lib\Debug\Indy10</DCC_ResourcePath> <DCC_ResourcePath>$(BDS)\lib\Debug;$(BDS)\Lib\Debug\Indy10</DCC_ResourcePath>
<DCC_ObjPath>$(BDS)\lib\Debug;$(BDS)\Lib\Debug\Indy10</DCC_ObjPath> <DCC_ObjPath>$(BDS)\lib\Debug;$(BDS)\Lib\Debug\Indy10</DCC_ObjPath>
<DCC_IncludePath>$(BDS)\lib\Debug;$(BDS)\Lib\Debug\Indy10</DCC_IncludePath> <DCC_IncludePath>$(BDS)\lib\Debug;$(BDS)\Lib\Debug\Indy10</DCC_IncludePath>
</PropertyGroup> </PropertyGroup>
<ProjectExtensions> <ProjectExtensions>
<Borland.Personality>Delphi.Personality</Borland.Personality> <Borland.Personality>Delphi.Personality</Borland.Personality>
<Borland.ProjectType/> <Borland.ProjectType />
<BorlandProject> <BorlandProject>
<BorlandProject><Delphi.Personality><Parameters><Parameters Name="UseLauncher">False</Parameters><Parameters Name="LoadAllSymbols">True</Parameters><Parameters Name="LoadUnspecifiedSymbols">False</Parameters><Parameters Name="RunParams">/standalone</Parameters></Parameters><VersionInfo><VersionInfo Name="IncludeVerInfo">True</VersionInfo><VersionInfo Name="AutoIncBuild">False</VersionInfo><VersionInfo Name="MajorVer">1</VersionInfo><VersionInfo Name="MinorVer">2</VersionInfo><VersionInfo Name="Release">7</VersionInfo><VersionInfo Name="Build">0</VersionInfo><VersionInfo Name="Debug">False</VersionInfo><VersionInfo Name="PreRelease">False</VersionInfo><VersionInfo Name="Special">False</VersionInfo><VersionInfo Name="Private">False</VersionInfo><VersionInfo Name="DLL">False</VersionInfo><VersionInfo Name="Locale">3082</VersionInfo><VersionInfo Name="CodePage">1252</VersionInfo></VersionInfo><VersionInfoKeys><VersionInfoKeys Name="CompanyName"></VersionInfoKeys><VersionInfoKeys Name="FileDescription"></VersionInfoKeys><VersionInfoKeys Name="FileVersion">1.2.7.0</VersionInfoKeys><VersionInfoKeys Name="InternalName"></VersionInfoKeys><VersionInfoKeys Name="LegalCopyright"></VersionInfoKeys><VersionInfoKeys Name="LegalTrademarks"></VersionInfoKeys><VersionInfoKeys Name="OriginalFilename"></VersionInfoKeys><VersionInfoKeys Name="ProductName"></VersionInfoKeys><VersionInfoKeys Name="ProductVersion">1.2.7.0</VersionInfoKeys><VersionInfoKeys Name="Comments"></VersionInfoKeys><VersionInfoKeys Name="CompileDate">martes, 02 de septiembre de 2008 20:39</VersionInfoKeys></VersionInfoKeys><Excluded_Packages/><Source><Source Name="MainSource">FactuGES_Server.dpr</Source></Source></Delphi.Personality></BorlandProject></BorlandProject> <BorlandProject><Delphi.Personality><Parameters><Parameters Name="UseLauncher">False</Parameters><Parameters Name="LoadAllSymbols">True</Parameters><Parameters Name="LoadUnspecifiedSymbols">False</Parameters><Parameters Name="RunParams">/standalone</Parameters></Parameters><VersionInfo><VersionInfo Name="IncludeVerInfo">True</VersionInfo><VersionInfo Name="AutoIncBuild">False</VersionInfo><VersionInfo Name="MajorVer">1</VersionInfo><VersionInfo Name="MinorVer">2</VersionInfo><VersionInfo Name="Release">8</VersionInfo><VersionInfo Name="Build">0</VersionInfo><VersionInfo Name="Debug">False</VersionInfo><VersionInfo Name="PreRelease">False</VersionInfo><VersionInfo Name="Special">False</VersionInfo><VersionInfo Name="Private">False</VersionInfo><VersionInfo Name="DLL">False</VersionInfo><VersionInfo Name="Locale">3082</VersionInfo><VersionInfo Name="CodePage">1252</VersionInfo></VersionInfo><VersionInfoKeys><VersionInfoKeys Name="CompanyName"></VersionInfoKeys><VersionInfoKeys Name="FileDescription"></VersionInfoKeys><VersionInfoKeys Name="FileVersion">1.2.8.0</VersionInfoKeys><VersionInfoKeys Name="InternalName"></VersionInfoKeys><VersionInfoKeys Name="LegalCopyright"></VersionInfoKeys><VersionInfoKeys Name="LegalTrademarks"></VersionInfoKeys><VersionInfoKeys Name="OriginalFilename"></VersionInfoKeys><VersionInfoKeys Name="ProductName"></VersionInfoKeys><VersionInfoKeys Name="ProductVersion">1.2.7.0</VersionInfoKeys><VersionInfoKeys Name="Comments"></VersionInfoKeys><VersionInfoKeys Name="CompileDate">jueves, 04 de septiembre de 2008 16:14</VersionInfoKeys></VersionInfoKeys><Excluded_Packages /><Source><Source Name="MainSource">FactuGES_Server.dpr</Source></Source></Delphi.Personality></BorlandProject></BorlandProject>
</ProjectExtensions> </ProjectExtensions>
<Import Project="$(MSBuildBinPath)\Borland.Delphi.Targets"/> <Import Project="$(MSBuildBinPath)\Borland.Delphi.Targets" />
<ItemGroup> <ItemGroup>
<DelphiCompile Include="FactuGES_Server.dpr"> <DelphiCompile Include="FactuGES_Server.dpr">
<MainSource>MainSource</MainSource> <MainSource>MainSource</MainSource>
</DelphiCompile> </DelphiCompile>
<DCCReference Include="..\ApplicationBase\Empresas\Model\schEmpresasClient_Intf.pas"/> <DCCReference Include="..\ApplicationBase\Empresas\Model\schEmpresasClient_Intf.pas" />
<DCCReference Include="..\ApplicationBase\Empresas\Model\schEmpresasServer_Intf.pas"/> <DCCReference Include="..\ApplicationBase\Empresas\Model\schEmpresasServer_Intf.pas" />
<DCCReference Include="..\ApplicationBase\Empresas\Model\uBizEmpresasServer.pas"/> <DCCReference Include="..\ApplicationBase\Empresas\Model\uBizEmpresasServer.pas" />
<DCCReference Include="..\ApplicationBase\Empresas\Servidor\srvEmpresas_Impl.pas"> <DCCReference Include="..\ApplicationBase\Empresas\Servidor\srvEmpresas_Impl.pas">
<Form>srvEmpresas</Form> <Form>srvEmpresas</Form>
<DesignClass>TDARemoteService</DesignClass> <DesignClass>TDARemoteService</DesignClass>
</DCCReference> </DCCReference>
<DCCReference Include="..\ApplicationBase\ProvinciasPoblaciones\Servidor\srvProvinciasPoblaciones_Impl.pas"/> <DCCReference Include="..\ApplicationBase\ProvinciasPoblaciones\Servidor\srvProvinciasPoblaciones_Impl.pas" />
<DCCReference Include="..\ApplicationBase\Usuarios\Model\schUsuariosClient_Intf.pas"/> <DCCReference Include="..\ApplicationBase\Usuarios\Model\schUsuariosClient_Intf.pas" />
<DCCReference Include="..\ApplicationBase\Usuarios\Model\schUsuariosServer_Intf.pas"/> <DCCReference Include="..\ApplicationBase\Usuarios\Model\schUsuariosServer_Intf.pas" />
<DCCReference Include="..\ApplicationBase\Usuarios\Servidor\srvUsuarios_Impl.pas"/> <DCCReference Include="..\ApplicationBase\Usuarios\Servidor\srvUsuarios_Impl.pas" />
<DCCReference Include="..\Base\schBase_Intf.pas"/> <DCCReference Include="..\Base\schBase_Intf.pas" />
<DCCReference Include="..\Base\Utiles\uSistemaFunc.pas"/> <DCCReference Include="..\Base\Utiles\uSistemaFunc.pas" />
<DCCReference Include="..\Base\Utiles\uStringsUtils.pas"/> <DCCReference Include="..\Base\Utiles\uStringsUtils.pas" />
<DCCReference Include="..\Modulos\Albaranes de cliente\Model\schAlbaranesClienteClient_Intf.pas"/> <DCCReference Include="..\Modulos\Albaranes de cliente\Model\schAlbaranesClienteClient_Intf.pas" />
<DCCReference Include="..\Modulos\Albaranes de cliente\Model\schAlbaranesClienteServer_Intf.pas"/> <DCCReference Include="..\Modulos\Albaranes de cliente\Model\schAlbaranesClienteServer_Intf.pas" />
<DCCReference Include="..\Modulos\Albaranes de cliente\Model\uBizAlbaranClienteServer.pas"/> <DCCReference Include="..\Modulos\Albaranes de cliente\Model\uBizAlbaranClienteServer.pas" />
<DCCReference Include="..\Modulos\Albaranes de cliente\Reports\uRptAlbaranesCliente_Server.pas"> <DCCReference Include="..\Modulos\Albaranes de cliente\Reports\uRptAlbaranesCliente_Server.pas">
<Form>RptAlbaranesCliente</Form> <Form>RptAlbaranesCliente</Form>
<DesignClass>TDataModule</DesignClass> <DesignClass>TDataModule</DesignClass>
</DCCReference> </DCCReference>
<DCCReference Include="..\Modulos\Albaranes de cliente\Reports\uRptWordAlbaranCliente.pas"> <DCCReference Include="..\Modulos\Albaranes de cliente\Reports\uRptWordAlbaranCliente.pas">
<Form>RptWordAlbaranCliente</Form> <Form>RptWordAlbaranCliente</Form>
<DesignClass>TDataModule</DesignClass> <DesignClass>TDataModule</DesignClass>
</DCCReference> </DCCReference>
<DCCReference Include="..\Modulos\Albaranes de cliente\Servidor\srvAlbaranesCliente_Impl.pas"> <DCCReference Include="..\Modulos\Albaranes de cliente\Servidor\srvAlbaranesCliente_Impl.pas">
<Form>srvAlbaranesCliente</Form> <Form>srvAlbaranesCliente</Form>
<DesignClass>TDataAbstractService</DesignClass> <DesignClass>TDataAbstractService</DesignClass>
</DCCReference> </DCCReference>
<DCCReference Include="..\Modulos\Albaranes de proveedor\Model\schAlbaranesProveedorClient_Intf.pas"/> <DCCReference Include="..\Modulos\Albaranes de proveedor\Model\schAlbaranesProveedorClient_Intf.pas" />
<DCCReference Include="..\Modulos\Albaranes de proveedor\Model\schAlbaranesProveedorServer_Intf.pas"/> <DCCReference Include="..\Modulos\Albaranes de proveedor\Model\schAlbaranesProveedorServer_Intf.pas" />
<DCCReference Include="..\Modulos\Albaranes de proveedor\Model\uBizAlbaranProveedorServer.PAS"/> <DCCReference Include="..\Modulos\Albaranes de proveedor\Model\uBizAlbaranProveedorServer.PAS" />
<DCCReference Include="..\Modulos\Albaranes de proveedor\Servidor\srvAlbaranesProveedor_Impl.pas"> <DCCReference Include="..\Modulos\Albaranes de proveedor\Servidor\srvAlbaranesProveedor_Impl.pas">
<Form>srvAlbaranesProveedor</Form> <Form>srvAlbaranesProveedor</Form>
<DesignClass>TDataAbstractService</DesignClass> <DesignClass>TDataAbstractService</DesignClass>
</DCCReference> </DCCReference>
<DCCReference Include="..\Modulos\Almacenes\Model\schAlmacenesClient_Intf.pas"/> <DCCReference Include="..\Modulos\Almacenes\Model\schAlmacenesClient_Intf.pas" />
<DCCReference Include="..\Modulos\Almacenes\Model\schAlmacenesServer_Intf.pas"/> <DCCReference Include="..\Modulos\Almacenes\Model\schAlmacenesServer_Intf.pas" />
<DCCReference Include="..\Modulos\Almacenes\Servidor\srvAlmacenes_Impl.pas"> <DCCReference Include="..\Modulos\Almacenes\Servidor\srvAlmacenes_Impl.pas">
<Form>srvAlmacenes</Form> <Form>srvAlmacenes</Form>
<DesignClass>TDARemoteService</DesignClass> <DesignClass>TDARemoteService</DesignClass>
</DCCReference> </DCCReference>
<DCCReference Include="..\Modulos\Articulos\Model\schArticulosClient_Intf.pas"/> <DCCReference Include="..\Modulos\Articulos\Model\schArticulosClient_Intf.pas" />
<DCCReference Include="..\Modulos\Articulos\Model\schArticulosServer_Intf.pas"/> <DCCReference Include="..\Modulos\Articulos\Model\schArticulosServer_Intf.pas" />
<DCCReference Include="..\Modulos\Articulos\Model\uBizArticulosServer.pas"/> <DCCReference Include="..\Modulos\Articulos\Model\uBizArticulosServer.pas" />
<DCCReference Include="..\Modulos\Articulos\Servidor\srvArticulos_Impl.pas"> <DCCReference Include="..\Modulos\Articulos\Servidor\srvArticulos_Impl.pas">
<Form>srvArticulos</Form> <Form>srvArticulos</Form>
<DesignClass>TDARemoteService</DesignClass> <DesignClass>TDARemoteService</DesignClass>
</DCCReference> </DCCReference>
<DCCReference Include="..\Modulos\Contactos\Model\schContactosClient_Intf.pas"/> <DCCReference Include="..\Modulos\Contactos\Model\schContactosClient_Intf.pas" />
<DCCReference Include="..\Modulos\Contactos\Model\schContactosServer_Intf.pas"/> <DCCReference Include="..\Modulos\Contactos\Model\schContactosServer_Intf.pas" />
<DCCReference Include="..\Modulos\Contactos\Model\uBizClientesServer.pas"/> <DCCReference Include="..\Modulos\Contactos\Model\uBizClientesServer.pas" />
<DCCReference Include="..\Modulos\Contactos\Model\uBizContactosServer.pas"/> <DCCReference Include="..\Modulos\Contactos\Model\uBizContactosServer.pas" />
<DCCReference Include="..\Modulos\Contactos\Model\uBizEmpleadosServer.pas"/> <DCCReference Include="..\Modulos\Contactos\Model\uBizEmpleadosServer.pas" />
<DCCReference Include="..\Modulos\Contactos\Model\uBizProveedoresServer.pas"/> <DCCReference Include="..\Modulos\Contactos\Model\uBizProveedoresServer.pas" />
<DCCReference Include="..\Modulos\Contactos\Reports\uRptEtiquetasContacto_Server.pas"> <DCCReference Include="..\Modulos\Contactos\Reports\uRptEtiquetasContacto_Server.pas">
<Form>RptEtiquetasContacto</Form> <Form>RptEtiquetasContacto</Form>
<DesignClass>TDataModule</DesignClass> <DesignClass>TDataModule</DesignClass>
</DCCReference> </DCCReference>
<DCCReference Include="..\Modulos\Contactos\Reports\uRptFichasEmpleado_Server.pas"> <DCCReference Include="..\Modulos\Contactos\Reports\uRptFichasEmpleado_Server.pas">
<Form>RptFichasEmpleado</Form> <Form>RptFichasEmpleado</Form>
<DesignClass>TDataModule</DesignClass> <DesignClass>TDataModule</DesignClass>
</DCCReference> </DCCReference>
<DCCReference Include="..\Modulos\Contactos\Servidor\srvContactos_Impl.pas"> <DCCReference Include="..\Modulos\Contactos\Servidor\srvContactos_Impl.pas">
<Form>srvContactos</Form> <Form>srvContactos</Form>
<DesignClass>TDARemoteService</DesignClass> <DesignClass>TDARemoteService</DesignClass>
</DCCReference> </DCCReference>
<DCCReference Include="..\Modulos\Fabricantes\Model\schFabricantesClient_Intf.pas"/> <DCCReference Include="..\Modulos\Fabricantes\Model\schFabricantesClient_Intf.pas" />
<DCCReference Include="..\Modulos\Fabricantes\Model\schFabricantesServer_Intf.pas"/> <DCCReference Include="..\Modulos\Fabricantes\Model\schFabricantesServer_Intf.pas" />
<DCCReference Include="..\Modulos\Fabricantes\Servidor\srvFabricantes_Impl.pas"> <DCCReference Include="..\Modulos\Fabricantes\Servidor\srvFabricantes_Impl.pas">
<Form>srvFabricantes</Form> <Form>srvFabricantes</Form>
<DesignClass>TDataAbstractService</DesignClass> <DesignClass>TDataAbstractService</DesignClass>
</DCCReference> </DCCReference>
<DCCReference Include="..\Modulos\Facturas de cliente\Model\schFacturasClienteClient_Intf.pas"/> <DCCReference Include="..\Modulos\Facturas de cliente\Model\schFacturasClienteClient_Intf.pas" />
<DCCReference Include="..\Modulos\Facturas de cliente\Model\schFacturasClienteServer_Intf.pas"/> <DCCReference Include="..\Modulos\Facturas de cliente\Model\schFacturasClienteServer_Intf.pas" />
<DCCReference Include="..\Modulos\Facturas de cliente\Model\uBizFacturasClienteServer.pas"/> <DCCReference Include="..\Modulos\Facturas de cliente\Model\uBizFacturasClienteServer.pas" />
<DCCReference Include="..\Modulos\Facturas de cliente\Reports\uRptFacturasCliente_Server.pas"> <DCCReference Include="..\Modulos\Facturas de cliente\Reports\uRptFacturasCliente_Server.pas">
<Form>RptFacturasCliente</Form> <Form>RptFacturasCliente</Form>
<DesignClass>TDataModule</DesignClass> <DesignClass>TDataModule</DesignClass>
</DCCReference> </DCCReference>
<DCCReference Include="..\Modulos\Facturas de cliente\Reports\uRptWordFacturaCliente.pas"> <DCCReference Include="..\Modulos\Facturas de cliente\Reports\uRptWordFacturaCliente.pas">
<Form>RptWordFacturaCliente</Form> <Form>RptWordFacturaCliente</Form>
<DesignClass>TDataModule</DesignClass> <DesignClass>TDataModule</DesignClass>
</DCCReference> </DCCReference>
<DCCReference Include="..\Modulos\Facturas de cliente\Servidor\srvFacturasCliente_Impl.pas"> <DCCReference Include="..\Modulos\Facturas de cliente\Servidor\srvFacturasCliente_Impl.pas">
<Form>srvFacturasCliente</Form> <Form>srvFacturasCliente</Form>
<DesignClass>TDataAbstractService</DesignClass> <DesignClass>TDataAbstractService</DesignClass>
</DCCReference> </DCCReference>
<DCCReference Include="..\Modulos\Facturas de proveedor\Model\schFacturasProveedorClient_Intf.pas"/> <DCCReference Include="..\Modulos\Facturas de proveedor\Model\schFacturasProveedorClient_Intf.pas" />
<DCCReference Include="..\Modulos\Facturas de proveedor\Model\schFacturasProveedorServer_Intf.pas"/> <DCCReference Include="..\Modulos\Facturas de proveedor\Model\schFacturasProveedorServer_Intf.pas" />
<DCCReference Include="..\Modulos\Facturas de proveedor\Model\uBizFacturasProveedorServer.pas"/> <DCCReference Include="..\Modulos\Facturas de proveedor\Model\uBizFacturasProveedorServer.pas" />
<DCCReference Include="..\Modulos\Facturas de proveedor\Servidor\srvFacturasProveedor_Impl.pas"> <DCCReference Include="..\Modulos\Facturas de proveedor\Servidor\srvFacturasProveedor_Impl.pas">
<Form>srvFacturasProveedor</Form> <Form>srvFacturasProveedor</Form>
<DesignClass>TDataAbstractService</DesignClass> <DesignClass>TDataAbstractService</DesignClass>
</DCCReference> </DCCReference>
<DCCReference Include="..\Modulos\Familias\Model\schFamiliasClient_Intf.pas"/> <DCCReference Include="..\Modulos\Familias\Model\schFamiliasClient_Intf.pas" />
<DCCReference Include="..\Modulos\Familias\Model\schFamiliasServer_Intf.pas"/> <DCCReference Include="..\Modulos\Familias\Model\schFamiliasServer_Intf.pas" />
<DCCReference Include="..\Modulos\Familias\Servidor\srvFamilias_Impl.pas"/> <DCCReference Include="..\Modulos\Familias\Servidor\srvFamilias_Impl.pas" />
<DCCReference Include="..\Modulos\Formas de pago\Model\schFormasPagoClient_Intf.pas"/> <DCCReference Include="..\Modulos\Formas de pago\Model\schFormasPagoClient_Intf.pas" />
<DCCReference Include="..\Modulos\Formas de pago\Model\schFormasPagoServer_Intf.pas"/> <DCCReference Include="..\Modulos\Formas de pago\Model\schFormasPagoServer_Intf.pas" />
<DCCReference Include="..\Modulos\Formas de pago\Servidor\srvFormasPago_Impl.pas"/> <DCCReference Include="..\Modulos\Formas de pago\Servidor\srvFormasPago_Impl.pas" />
<DCCReference Include="..\Modulos\Formas de pago\Servidor\srvUnidadesMedida_Impl.pas"/> <DCCReference Include="..\Modulos\Formas de pago\Servidor\srvUnidadesMedida_Impl.pas" />
<DCCReference Include="..\Modulos\Gestion de documentos\Servidor\srvGestorDocumentos_Impl.pas"> <DCCReference Include="..\Modulos\Gestion de documentos\Servidor\srvGestorDocumentos_Impl.pas">
<Form>srvGestorDocumentos</Form> <Form>srvGestorDocumentos</Form>
<DesignClass>TDataAbstractService</DesignClass> <DesignClass>TDataAbstractService</DesignClass>
</DCCReference> </DCCReference>
<DCCReference Include="..\Modulos\Historico de movimientos\Model\schHistoricoMovimientosClient_Intf.pas"/> <DCCReference Include="..\Modulos\Historico de movimientos\Model\schHistoricoMovimientosClient_Intf.pas" />
<DCCReference Include="..\Modulos\Historico de movimientos\Model\schHistoricoMovimientosServer_Intf.pas"/> <DCCReference Include="..\Modulos\Historico de movimientos\Model\schHistoricoMovimientosServer_Intf.pas" />
<DCCReference Include="..\Modulos\Historico de movimientos\Servidor\srvHistoricoMovimientos_Impl.pas"> <DCCReference Include="..\Modulos\Historico de movimientos\Servidor\srvHistoricoMovimientos_Impl.pas">
<Form>srvHistoricoMovimientos</Form> <Form>srvHistoricoMovimientos</Form>
<DesignClass>TDataAbstractService</DesignClass> <DesignClass>TDataAbstractService</DesignClass>
</DCCReference> </DCCReference>
<DCCReference Include="..\Modulos\Inventario\Model\schInventarioClient_Intf.pas"/> <DCCReference Include="..\Modulos\Inventario\Model\schInventarioClient_Intf.pas" />
<DCCReference Include="..\Modulos\Inventario\Model\schInventarioServer_Intf.pas"/> <DCCReference Include="..\Modulos\Inventario\Model\schInventarioServer_Intf.pas" />
<DCCReference Include="..\Modulos\Inventario\Servidor\srvInventario_Impl.pas"> <DCCReference Include="..\Modulos\Inventario\Servidor\srvInventario_Impl.pas">
<Form>srvInventario</Form> <Form>srvInventario</Form>
<DesignClass>TDataAbstractService</DesignClass> <DesignClass>TDataAbstractService</DesignClass>
</DCCReference> </DCCReference>
<DCCReference Include="..\Modulos\Obras\Model\schObrasClient_Intf.pas"/> <DCCReference Include="..\Modulos\Obras\Model\schObrasClient_Intf.pas" />
<DCCReference Include="..\Modulos\Obras\Model\schObrasServer_Intf.pas"/> <DCCReference Include="..\Modulos\Obras\Model\schObrasServer_Intf.pas" />
<DCCReference Include="..\Modulos\Obras\Model\uBizObrasServer.pas"/> <DCCReference Include="..\Modulos\Obras\Model\uBizObrasServer.pas" />
<DCCReference Include="..\Modulos\Obras\Servidor\srvObras_Impl.pas"/> <DCCReference Include="..\Modulos\Obras\Servidor\srvObras_Impl.pas" />
<DCCReference Include="..\Modulos\Pedidos a proveedor\Model\schPedidosProveedorClient_Intf.pas"/> <DCCReference Include="..\Modulos\Pedidos a proveedor\Model\schPedidosProveedorClient_Intf.pas" />
<DCCReference Include="..\Modulos\Pedidos a proveedor\Model\schPedidosProveedorServer_Intf.pas"/> <DCCReference Include="..\Modulos\Pedidos a proveedor\Model\schPedidosProveedorServer_Intf.pas" />
<DCCReference Include="..\Modulos\Pedidos a proveedor\Model\uBizPedidosProveedorServer.pas"/> <DCCReference Include="..\Modulos\Pedidos a proveedor\Model\uBizPedidosProveedorServer.pas" />
<DCCReference Include="..\Modulos\Pedidos a proveedor\Reports\uRptPedidosProveedor_Server.pas"> <DCCReference Include="..\Modulos\Pedidos a proveedor\Reports\uRptPedidosProveedor_Server.pas">
<Form>RptPedidosProveedor</Form> <Form>RptPedidosProveedor</Form>
<DesignClass>TDataModule</DesignClass> <DesignClass>TDataModule</DesignClass>
</DCCReference> </DCCReference>
<DCCReference Include="..\Modulos\Pedidos a proveedor\Reports\uRptWordPedidoProveedor.pas"> <DCCReference Include="..\Modulos\Pedidos a proveedor\Reports\uRptWordPedidoProveedor.pas">
<Form>RptWordPedidoProveedor</Form> <Form>RptWordPedidoProveedor</Form>
<DesignClass>TDataModule</DesignClass> <DesignClass>TDataModule</DesignClass>
</DCCReference> </DCCReference>
<DCCReference Include="..\Modulos\Pedidos a proveedor\Servidor\srvPedidosProveedor_Impl.pas"> <DCCReference Include="..\Modulos\Pedidos a proveedor\Servidor\srvPedidosProveedor_Impl.pas">
<Form>srvPedidosProveedor</Form> <Form>srvPedidosProveedor</Form>
<DesignClass>TDataAbstractService</DesignClass> <DesignClass>TDataAbstractService</DesignClass>
</DCCReference> </DCCReference>
<DCCReference Include="..\Modulos\Presupuestos de cliente\Model\schPresupuestosClienteClient_Intf.pas"/> <DCCReference Include="..\Modulos\Presupuestos de cliente\Model\schPresupuestosClienteClient_Intf.pas" />
<DCCReference Include="..\Modulos\Presupuestos de cliente\Model\schPresupuestosClienteServer_Intf.pas"/> <DCCReference Include="..\Modulos\Presupuestos de cliente\Model\schPresupuestosClienteServer_Intf.pas" />
<DCCReference Include="..\Modulos\Presupuestos de cliente\Model\uBizPresupuestosClienteServer.pas"/> <DCCReference Include="..\Modulos\Presupuestos de cliente\Model\uBizPresupuestosClienteServer.pas" />
<DCCReference Include="..\Modulos\Presupuestos de cliente\Reports\uRptPresupuestosCliente_Server.pas"> <DCCReference Include="..\Modulos\Presupuestos de cliente\Reports\uRptPresupuestosCliente_Server.pas">
<Form>RptPresupuestosCliente</Form> <Form>RptPresupuestosCliente</Form>
<DesignClass>TDataModule</DesignClass> <DesignClass>TDataModule</DesignClass>
</DCCReference> </DCCReference>
<DCCReference Include="..\Modulos\Presupuestos de cliente\Reports\uRptWordCertificadoTrabajo_Server.pas"> <DCCReference Include="..\Modulos\Presupuestos de cliente\Reports\uRptWordCertificadoTrabajo_Server.pas">
<Form>RptWordCertificadoTrabajo</Form> <Form>RptWordCertificadoTrabajo</Form>
<DesignClass>TDataModule</DesignClass> <DesignClass>TDataModule</DesignClass>
</DCCReference> </DCCReference>
<DCCReference Include="..\Modulos\Presupuestos de cliente\Reports\uRptWordPresupuestoCliente.pas"> <DCCReference Include="..\Modulos\Presupuestos de cliente\Reports\uRptWordPresupuestoCliente.pas">
<Form>RptWordPresupuestoCliente</Form> <Form>RptWordPresupuestoCliente</Form>
<DesignClass>TDataModule</DesignClass> <DesignClass>TDataModule</DesignClass>
</DCCReference> </DCCReference>
<DCCReference Include="..\Modulos\Presupuestos de cliente\Servidor\srvPresupuestosCliente_Impl.pas"> <DCCReference Include="..\Modulos\Presupuestos de cliente\Servidor\srvPresupuestosCliente_Impl.pas">
<Form>srvPresupuestosCliente</Form> <Form>srvPresupuestosCliente</Form>
<DesignClass>TDataAbstractService</DesignClass> <DesignClass>TDataAbstractService</DesignClass>
</DCCReference> </DCCReference>
<DCCReference Include="..\Modulos\Recibos de cliente\Model\schRecibosClienteClient_Intf.pas"/> <DCCReference Include="..\Modulos\Recibos de cliente\Model\schRecibosClienteClient_Intf.pas" />
<DCCReference Include="..\Modulos\Recibos de cliente\Model\schRecibosClienteServer_Intf.pas"/> <DCCReference Include="..\Modulos\Recibos de cliente\Model\schRecibosClienteServer_Intf.pas" />
<DCCReference Include="..\Modulos\Recibos de cliente\Reports\uRptRecibosCliente_Server.pas"> <DCCReference Include="..\Modulos\Recibos de cliente\Reports\uRptRecibosCliente_Server.pas">
<Form>RptRecibosCliente</Form> <Form>RptRecibosCliente</Form>
<DesignClass>TDataModule</DesignClass> <DesignClass>TDataModule</DesignClass>
</DCCReference> </DCCReference>
<DCCReference Include="..\Modulos\Recibos de cliente\Servidor\srvRecibosCliente_Impl.pas"> <DCCReference Include="..\Modulos\Recibos de cliente\Servidor\srvRecibosCliente_Impl.pas">
<Form>srvRecibosCliente</Form> <Form>srvRecibosCliente</Form>
<DesignClass>TDataAbstractService</DesignClass> <DesignClass>TDataAbstractService</DesignClass>
</DCCReference> </DCCReference>
<DCCReference Include="..\Modulos\Recibos de proveedor\Model\schRecibosProveedorClient_Intf.pas"/> <DCCReference Include="..\Modulos\Recibos de proveedor\Model\schRecibosProveedorClient_Intf.pas" />
<DCCReference Include="..\Modulos\Recibos de proveedor\Model\schRecibosProveedorServer_Intf.pas"/> <DCCReference Include="..\Modulos\Recibos de proveedor\Model\schRecibosProveedorServer_Intf.pas" />
<DCCReference Include="..\Modulos\Recibos de proveedor\Servidor\srvRecibosProveedor_Impl.pas"> <DCCReference Include="..\Modulos\Recibos de proveedor\Servidor\srvRecibosProveedor_Impl.pas">
<Form>srvRecibosProveedor</Form> <Form>srvRecibosProveedor</Form>
<DesignClass>TDataAbstractService</DesignClass> <DesignClass>TDataAbstractService</DesignClass>
</DCCReference> </DCCReference>
<DCCReference Include="..\Modulos\Referencias\Model\schReferenciasClient_Intf.pas"/> <DCCReference Include="..\Modulos\Referencias\Model\schReferenciasClient_Intf.pas" />
<DCCReference Include="..\Modulos\Referencias\Model\schReferenciasServer_Intf.pas"/> <DCCReference Include="..\Modulos\Referencias\Model\schReferenciasServer_Intf.pas" />
<DCCReference Include="..\Modulos\Referencias\Servidor\srvReferencias_Impl.pas"> <DCCReference Include="..\Modulos\Referencias\Servidor\srvReferencias_Impl.pas">
<Form>srvReferencias</Form> <Form>srvReferencias</Form>
<DesignClass>TDataAbstractService</DesignClass> <DesignClass>TDataAbstractService</DesignClass>
</DCCReference> </DCCReference>
<DCCReference Include="..\Modulos\Remesas de cliente\Model\schRemesasClienteClient_Intf.pas"/> <DCCReference Include="..\Modulos\Remesas de cliente\Model\schRemesasClienteClient_Intf.pas" />
<DCCReference Include="..\Modulos\Remesas de cliente\Model\schRemesasClienteServer_Intf.pas"/> <DCCReference Include="..\Modulos\Remesas de cliente\Model\schRemesasClienteServer_Intf.pas" />
<DCCReference Include="..\Modulos\Remesas de cliente\Model\uBizRemesasClienteServer.pas"/> <DCCReference Include="..\Modulos\Remesas de cliente\Model\uBizRemesasClienteServer.pas" />
<DCCReference Include="..\Modulos\Remesas de cliente\Servidor\srvRemesasCliente_Impl.pas"> <DCCReference Include="..\Modulos\Remesas de cliente\Servidor\srvRemesasCliente_Impl.pas">
<Form>srvRemesasCliente</Form> <Form>srvRemesasCliente</Form>
<DesignClass>TDataAbstractService</DesignClass> <DesignClass>TDataAbstractService</DesignClass>
</DCCReference> </DCCReference>
<DCCReference Include="..\Modulos\Remesas de proveedor\Model\schRemesasProveedorClient_Intf.pas"/> <DCCReference Include="..\Modulos\Remesas de proveedor\Model\schRemesasProveedorClient_Intf.pas" />
<DCCReference Include="..\Modulos\Remesas de proveedor\Model\schRemesasProveedorServer_Intf.pas"/> <DCCReference Include="..\Modulos\Remesas de proveedor\Model\schRemesasProveedorServer_Intf.pas" />
<DCCReference Include="..\Modulos\Remesas de proveedor\Model\uBizRemesasProveedorServer.pas"/> <DCCReference Include="..\Modulos\Remesas de proveedor\Model\uBizRemesasProveedorServer.pas" />
<DCCReference Include="..\Modulos\Remesas de proveedor\Servidor\srvRemesasProveedor_Impl.pas"> <DCCReference Include="..\Modulos\Remesas de proveedor\Servidor\srvRemesasProveedor_Impl.pas">
<Form>srvRemesasProveedor</Form> <Form>srvRemesasProveedor</Form>
<DesignClass>TDataAbstractService</DesignClass> <DesignClass>TDataAbstractService</DesignClass>
</DCCReference> </DCCReference>
<DCCReference Include="..\Modulos\Tipos de IVA\Model\schTiposIVAClient_Intf.pas"/> <DCCReference Include="..\Modulos\Tipos de IVA\Model\schTiposIVAClient_Intf.pas" />
<DCCReference Include="..\Modulos\Tipos de IVA\Model\schTiposIVAServer_Intf.pas"/> <DCCReference Include="..\Modulos\Tipos de IVA\Model\schTiposIVAServer_Intf.pas" />
<DCCReference Include="..\Modulos\Tipos de IVA\Servidor\srvTiposIVA_Impl.pas"/> <DCCReference Include="..\Modulos\Tipos de IVA\Servidor\srvTiposIVA_Impl.pas" />
<DCCReference Include="..\Modulos\Unidades de medida\Model\schUnidadesMedidaClient_Intf.pas"/> <DCCReference Include="..\Modulos\Unidades de medida\Model\schUnidadesMedidaClient_Intf.pas" />
<DCCReference Include="..\Modulos\Unidades de medida\Model\schUnidadesMedidaServer_Intf.pas"/> <DCCReference Include="..\Modulos\Unidades de medida\Model\schUnidadesMedidaServer_Intf.pas" />
<DCCReference Include="..\Modulos\Unidades de medida\Servidor\srvUnidadesMedida_Impl.pas"> <DCCReference Include="..\Modulos\Unidades de medida\Servidor\srvUnidadesMedida_Impl.pas">
<Form>srvUnidadesMedida</Form> <Form>srvUnidadesMedida</Form>
<DesignClass>TDataAbstractService</DesignClass> <DesignClass>TDataAbstractService</DesignClass>
</DCCReference> </DCCReference>
<DCCReference Include="..\Servicios\FactuGES_Intf.pas"/> <DCCReference Include="..\Servicios\FactuGES_Intf.pas" />
<DCCReference Include="..\Servicios\FactuGES_Invk.pas"/> <DCCReference Include="..\Servicios\FactuGES_Invk.pas" />
<DCCReference Include="Configuracion\srvConfiguracion_Impl.pas"> <DCCReference Include="Configuracion\srvConfiguracion_Impl.pas">
<Form>srvConfiguracion</Form> <Form>srvConfiguracion</Form>
<DesignClass>TDataAbstractService</DesignClass> <DesignClass>TDataAbstractService</DesignClass>
</DCCReference> </DCCReference>
<DCCReference Include="Configuracion\uConexionBD.pas"> <DCCReference Include="Configuracion\uConexionBD.pas">
<Form>frConexionBD</Form> <Form>frConexionBD</Form>
<DesignClass>TFrame</DesignClass> <DesignClass>TFrame</DesignClass>
</DCCReference> </DCCReference>
<DCCReference Include="Configuracion\uConfGeneral.pas"> <DCCReference Include="Configuracion\uConfGeneral.pas">
<Form>frConfGeneral</Form> <Form>frConfGeneral</Form>
<DesignClass>TFrame</DesignClass> <DesignClass>TFrame</DesignClass>
</DCCReference> </DCCReference>
<DCCReference Include="Configuracion\uConfiguracion.pas"> <DCCReference Include="Configuracion\uConfiguracion.pas">
<Form>fConfiguracion</Form> <Form>fConfiguracion</Form>
<DesignClass>TForm</DesignClass> <DesignClass>TForm</DesignClass>
</DCCReference> </DCCReference>
<DCCReference Include="Configuracion\uFrameConfiguracion.pas"> <DCCReference Include="Configuracion\uFrameConfiguracion.pas">
<Form>FrameConfiguracion</Form> <Form>FrameConfiguracion</Form>
<DesignClass>TFrame</DesignClass> <DesignClass>TFrame</DesignClass>
</DCCReference> </DCCReference>
<DCCReference Include="srvLogin_Impl.pas"> <DCCReference Include="srvLogin_Impl.pas">
<Form>srvLogin</Form> <Form>srvLogin</Form>
<DesignClass>TDARemoteService</DesignClass> <DesignClass>TDARemoteService</DesignClass>
</DCCReference> </DCCReference>
<DCCReference Include="uAcercaDe.pas"> <DCCReference Include="uAcercaDe.pas">
<Form>fAcercaDe</Form> <Form>fAcercaDe</Form>
</DCCReference> </DCCReference>
<DCCReference Include="uDataModuleServer.pas"> <DCCReference Include="uDataModuleServer.pas">
<Form>dmServer</Form> <Form>dmServer</Form>
<DesignClass>TDataModule</DesignClass> <DesignClass>TDataModule</DesignClass>
</DCCReference> </DCCReference>
<DCCReference Include="uServerMainForm.pas"> <DCCReference Include="uServerMainForm.pas">
<Form>fServerForm</Form> <Form>fServerForm</Form>
</DCCReference> </DCCReference>
<DCCReference Include="Utiles\AHWord97.pas"/> <DCCReference Include="Utiles\AHWord97.pas" />
<DCCReference Include="Utiles\RegExpr.pas"/> <DCCReference Include="Utiles\RegExpr.pas" />
<DCCReference Include="Utiles\uBusinessUtils.pas"/> <DCCReference Include="Utiles\uBusinessUtils.pas" />
<DCCReference Include="Utiles\uDatabaseUtils.pas"/> <DCCReference Include="Utiles\uDatabaseUtils.pas" />
<DCCReference Include="Utiles\uReferenciasUtils.pas"/> <DCCReference Include="Utiles\uReferenciasUtils.pas" />
<DCCReference Include="Utiles\uRestriccionesUsuarioUtils.pas"/> <DCCReference Include="Utiles\uRestriccionesUsuarioUtils.pas" />
<DCCReference Include="Utiles\uSchemaUtilsServer.pas"/> <DCCReference Include="Utiles\uSchemaUtilsServer.pas" />
<DCCReference Include="Utiles\uServerAppUtils.pas"/> <DCCReference Include="Utiles\uServerAppUtils.pas" />
<DCCReference Include="Utiles\uSesionesUtils.pas"/> <DCCReference Include="Utiles\uSesionesUtils.pas" />
</ItemGroup> </ItemGroup>
</Project> </Project>
<!-- EurekaLog First Line <!-- EurekaLog First Line
[Exception Log] [Exception Log]

View File

@ -1,7 +1,7 @@
MAINICON ICON "C:\Codigo Tecsitel\Resources\Iconos\Servidor.ico" MAINICON ICON "C:\Codigo Tecsitel\Resources\Iconos\Servidor.ico"
1 VERSIONINFO 1 VERSIONINFO
FILEVERSION 1,2,7,0 FILEVERSION 1,2,8,0
PRODUCTVERSION 1,2,7,0 PRODUCTVERSION 1,2,8,0
FILEFLAGSMASK 0x3FL FILEFLAGSMASK 0x3FL
FILEFLAGS 0x00L FILEFLAGS 0x00L
FILEOS 0x40004L FILEOS 0x40004L
@ -12,9 +12,9 @@ BEGIN
BEGIN BEGIN
BLOCK "0C0A04E4" BLOCK "0C0A04E4"
BEGIN BEGIN
VALUE "FileVersion", "1.2.7.0\0" VALUE "FileVersion", "1.2.8.0\0"
VALUE "ProductVersion", "1.2.7.0\0" VALUE "ProductVersion", "1.2.8.0\0"
VALUE "CompileDate", "jueves, 04 de septiembre de 2008 16:14\0" VALUE "CompileDate", "jueves, 04 de septiembre de 2008 16:37\0"
END END
END END
BLOCK "VarFileInfo" BLOCK "VarFileInfo"