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

Subida de otra parte de funcionalidad de reservas de articulos

Browse Source 
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
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
Source/Cliente/FactuGES.dproj
View File

@ -54,7 +54,7 @@
<Borland.Personality>Delphi.Personality</Borland.Personality>
<Borland.ProjectType>VCLApplication</Borland.ProjectType>
<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>

6
Source/Cliente/FactuGES.rc
View File

@ -1,7 +1,7 @@
MAINICON ICON "C:\Codigo Tecsitel\Resources\Iconos\Factuges.ico"
1 VERSIONINFO
FILEVERSION 1,2,7,0
PRODUCTVERSION 1,2,7,0
FILEVERSION 1,2,8,0
PRODUCTVERSION 1,2,8,0
FILEFLAGSMASK 0x3FL
FILEFLAGS 0x00L
FILEOS 0x40004L
@ -13,7 +13,7 @@ BEGIN
BLOCK "0C0A04E4"
BEGIN
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 "ProductName", "FactuGES\0"
VALUE "ProductVersion", "1.2.7.0\0"

BIN
Source/Cliente/FactuGES.res
View File

Binary file not shown.

2
Source/Modulos/Gestion de documentos/Controller/GestorDocumentos_controller.drc
View File

@ -13,4 +13,4 @@ BEGIN
END
/* 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 */

2
Source/Modulos/Gestion de documentos/Data/GestorDocumentos_data.drc
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\GestorDocumentos_data.res */
/* C:\DOCUME~1\Usuario\CONFIG~1\Temp\dtf197.tmp */
/* C:\DOCUME~1\Usuario\CONFIG~1\Temp\dtf29E.tmp */

6
Source/Modulos/Inventario/Controller/View/uIEditorDetalleReservas.pas
View File

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

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

@ -29,7 +29,8 @@ type
function BuscarTodosObras: IBizInventario;
function Buscar(const ID_ALMACEN: Integer): IBizInventario;
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);
function Guardar(AArticulos : IBizInventario; const FechaMovimiento: TDateTime; const CausaMovimiento: String): Boolean;
@ -38,6 +39,7 @@ type
procedure SalidaArticulosLibre(AInventario: IBizInventario; Const CodigoAlmacenOrigen: Integer);
procedure TrasladarArticulosLibre(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 SalidaAlbaran(AInventario: IBizInventario; Const CodigoAlmacenOrigen: Integer; ADetalles: IDAStronglyTypedDataTable): Boolean;
@ -55,7 +57,7 @@ type
TInventarioController = class(TControllerBase, IInventarioController)
private
FAlmacenesController: IAlmacenesController;
FObrasController: IObrasController;
FObrasController: IObrasController;
FArticulosController : IArticulosInventarioController;
FPresupuestosClienteController : IPresupuestosClienteController;
FPedidosProveedorController : IPedidosProveedorController;
@ -117,7 +119,8 @@ type
function BuscarTodosObras: IBizInventario;
function BuscarDetalleReservas: IBizDetalleReservas;
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);
function Eliminar(AInventario : IBizInventario; Todos: Boolean; ApplyUpdates: Boolean): Boolean;
@ -126,6 +129,7 @@ type
procedure SalidaArticulosLibre(AInventario: IBizInventario; Const CodigoAlmacenOrigen: Integer);
procedure TrasladarArticulosLibre(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 SalidaAlbaran(AInventario: IBizInventario; Const CodigoAlmacenOrigen: Integer; ADetalles: IDAStronglyTypedDataTable): Boolean;
@ -254,6 +258,18 @@ begin
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);
{
Procedimiento que copia en AArticulos, todos los detalles pasados por parametro ADetalles
@ -545,10 +561,10 @@ begin
if Assigned(AEditor) then
with AEditor do
begin
// Controller := Self; //OJO ORDEN MUY IMPORTANTE
Controller := Self; //OJO ORDEN MUY IMPORTANTE
DetalleReservas := FDataModule.GetDetalleReservas;
Articulo := AArticulo;
// MultiSelect := False;
MultiSelect := True;
ShowModal;
Release;
end;
@ -640,6 +656,15 @@ begin
Result := Ver(AArticulos, AInventario, APedido);
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);
{var
AArticulos: IBizInventario;

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

@ -27,102 +27,77 @@ inherited DataModuleInventario: TDataModuleInventario
RemoteUpdatesOptions = []
Fields = <
item
Name = 'ID_ALB'
Name = 'ID'
DataType = datInteger
DisplayLabel = 'IdAlbaran'
DictionaryEntry = 'DETALLE_RESERVAS_INV_ID_ALB'
end
item
Name = 'ID_EMPRESA'
DataType = datInteger
DisplayLabel = 'DETALLE_RESERVAS_INV_ID_EMPRESA'
DictionaryEntry = 'DETALLE_RESERVAS_INV_ID_EMPRESA'
end
item
Name = 'REFERENCIA_ALB'
Name = 'ID_ALMACEN'
DataType = datInteger
end
item
Name = 'NOMBRE_ALMACEN'
DataType = datString
Size = 255
DisplayLabel = 'Ref. albar'#195#161'n'
DictionaryEntry = 'DETALLE_RESERVAS_INV_REFERENCIA_ALB'
end
item
Name = 'SITUACION_ALB'
DataType = datString
Size = 9
DisplayLabel = 'Situaci'#195#179'n'
DictionaryEntry = 'DETALLE_RESERVAS_INV_SITUACION_ALB'
end
item
Name = 'FECHA_PREVISTA_ENVIO_ALB'
Name = 'FECHA_RESERVA'
DataType = datDateTime
DisplayLabel = 'Fecha prevista de envio'
DictionaryEntry = 'DETALLE_RESERVAS_INV_FECHA_PREVISTA_ENVIO_ALB'
end
item
Name = 'ID_ALMACEN_ALB'
Name = 'CAUSA_RESERVA'
DataType = datString
Size = 2000
end
item
Name = 'ID_ARTICULO'
DataType = datInteger
DisplayLabel = 'IdAlmac'#195#169'n'
DictionaryEntry = 'DETALLE_RESERVAS_INV_ID_ALMACEN_ALB'
end
item
Name = 'ALMACEN_ALB'
Name = 'REFERENCIA'
DataType = datString
Size = 255
DisplayLabel = 'Almac'#195#169'n'
DictionaryEntry = 'DETALLE_RESERVAS_INV_ALMACEN_ALB'
end
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
DisplayLabel = 'IdCliente'
DictionaryEntry = 'DETALLE_RESERVAS_INV_ID_CLIENTE_ALB'
end
item
Name = 'CLIENTE_ALB'
DataType = datString
Size = 255
DisplayLabel = 'Cliente'
DictionaryEntry = 'DETALLE_RESERVAS_INV_CLIENTE_ALB'
end
item
Name = 'ID_ART'
Name = 'ID_ALMACEN_RESERVA'
DataType = datInteger
DisplayLabel = 'IdArticulo'
DictionaryEntry = 'DETALLE_RESERVAS_INV_ID_ART'
end
item
Name = 'FAMILIA_ART'
Name = 'NOMBRE_ALMACEN_RESERVA'
DataType = datString
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>
Params = <>
StreamingOptions = [soDisableEventsWhileStreaming]

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

@ -24,6 +24,7 @@ type
function GetItems : IBizInventario; overload;
function GetItems(const ID_ALMACEN : Integer) : IBizInventario; overload;
function GetDetalleReservas: IBizDetalleReservas;
function GetDetalleReservasVacio: IBizDetalleReservas;
end;
implementation
@ -56,6 +57,25 @@ begin
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;
var
Condicion: TDAWhereExpression;

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

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

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

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

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

File diff suppressed because it is too large Load Diff

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

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

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

@ -228,165 +228,171 @@ object srvInventario: TsrvInventario
item
Connection = 'IBX'
TargetTable = 'V_INV_DETALLE_RESERVAS'
SQL =
'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
StatementType = stAutoSQL
ColumnMappings = <
item
DatasetField = 'ID_ALB'
TableField = 'ID_ALB'
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'
DatasetField = 'ID'
TableField = 'ID'
end
item
DatasetField = '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>
Name = 'DetalleReservas'
Fields = <
item
Name = 'ID_ALB'
Name = 'ID'
DataType = datInteger
DictionaryEntry = 'DETALLE_RESERVAS_INV_ID_ALB'
end
item
Name = 'ID_EMPRESA'
DataType = datInteger
DictionaryEntry = 'DETALLE_RESERVAS_INV_ID_EMPRESA'
end
item
Name = 'REFERENCIA_ALB'
Name = 'ID_ALMACEN'
DataType = datInteger
end
item
Name = 'NOMBRE_ALMACEN'
DataType = datString
Size = 255
DictionaryEntry = 'DETALLE_RESERVAS_INV_REFERENCIA_ALB'
end
item
Name = 'SITUACION_ALB'
DataType = datString
Size = 9
DictionaryEntry = 'DETALLE_RESERVAS_INV_SITUACION_ALB'
end
item
Name = 'FECHA_PREVISTA_ENVIO_ALB'
Name = 'FECHA_RESERVA'
DataType = datDateTime
DictionaryEntry = 'DETALLE_RESERVAS_INV_FECHA_PREVISTA_ENVIO_ALB'
end
item
Name = 'ID_ALMACEN_ALB'
Name = 'CAUSA_RESERVA'
DataType = datString
Size = 2000
end
item
Name = 'ID_ARTICULO'
DataType = datInteger
DictionaryEntry = 'DETALLE_RESERVAS_INV_ID_ALMACEN_ALB'
end
item
Name = 'ALMACEN_ALB'
Name = 'REFERENCIA'
DataType = datString
Size = 255
DictionaryEntry = 'DETALLE_RESERVAS_INV_ALMACEN_ALB'
end
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
DictionaryEntry = 'DETALLE_RESERVAS_INV_ID_CLIENTE_ALB'
end
item
Name = 'CLIENTE_ALB'
DataType = datString
Size = 255
DictionaryEntry = 'DETALLE_RESERVAS_INV_CLIENTE_ALB'
end
item
Name = 'ID_ART'
Name = 'ID_ALMACEN_RESERVA'
DataType = datInteger
DictionaryEntry = 'DETALLE_RESERVAS_INV_ID_ART'
end
item
Name = 'FAMILIA_ART'
Name = 'NOMBRE_ALMACEN_RESERVA'
DataType = datString
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>
JoinDataTables = <>
UnionDataTables = <>
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
Params = <
item
@ -435,7 +441,7 @@ object srvInventario: TsrvInventario
StatementType = stSQL
ColumnMappings = <>
end>
Name = 'Insert_INVENTARIO'
Name = 'Insert_Inventario'
end
item
Params = <
@ -447,11 +453,11 @@ object srvInventario: TsrvInventario
item
Connection = 'IBX'
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
ColumnMappings = <>
end>
Name = 'Delete_INVENTARIO'
Name = 'Delete_Inventario'
end
item
Params = <
@ -504,7 +510,7 @@ object srvInventario: TsrvInventario
StatementType = stSQL
ColumnMappings = <>
end>
Name = 'Update_INVENTARIO'
Name = 'Update_Inventario'
end>
RelationShips = <>
UpdateRules = <>
@ -514,9 +520,9 @@ object srvInventario: TsrvInventario
end
object bpInventario: TDABusinessProcessor
Schema = schInventario
InsertCommandName = 'Insert_INVENTARIO'
DeleteCommandName = 'Delete_INVENTARIO'
UpdateCommandName = 'Update_INVENTARIO'
InsertCommandName = 'Insert_Inventario'
DeleteCommandName = 'Delete_Inventario'
UpdateCommandName = 'Update_Inventario'
ReferencedDataset = 'INVENTARIO'
ProcessorOptions = [poAutoGenerateRefreshDataset, poPrepareCommands]
UpdateMode = updWhereKeyOnly
@ -724,4 +730,13 @@ object srvInventario: TsrvInventario
Left = 40
Top = 80
end
object bpReservas: TDABusinessProcessor
Schema = schInventario
DeleteCommandName = 'Delete_Reservas'
ReferencedDataset = 'DetalleReservas'
ProcessorOptions = [poAutoGenerateRefreshDataset, poPrepareCommands]
UpdateMode = updWhereKeyOnly
Left = 208
Top = 72
end
end

1
Source/Modulos/Inventario/Servidor/srvInventario_Impl.pas
View File

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

47
Source/Modulos/Inventario/Views/uEditorDetalleReservas.dfm
View File

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

BIN
Source/Modulos/Inventario/Views/uEditorDetalleReservas.pas
View File

Binary file not shown.

88
Source/Modulos/Inventario/Views/uViewDetalleReservas.dfm
View File

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

31
Source/Modulos/Inventario/Views/uViewDetalleReservas.pas
View File

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

BIN
Source/Servidor/FactuGES_Server.RES
View File

Binary file not shown.

6
Source/Servidor/FactuGES_Server.dpr
View File

@ -124,12 +124,12 @@ uses
srvGestorDocumentos_Impl in '..\Modulos\Gestion de documentos\Servidor\srvGestorDocumentos_Impl.pas' {srvGestorDocumentos: TDataAbstractService},
schPresupuestosClienteClient_Intf in '..\Modulos\Presupuestos de cliente\Model\schPresupuestosClienteClient_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',
schFacturasClienteServer_Intf in '..\Modulos\Facturas de cliente\Model\schFacturasClienteServer_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 ..\Servicios\RODLFile.res}

580
Source/Servidor/FactuGES_Server.dproj
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">
<PropertyGroup>
<ProjectGuid>{ebdcd25d-40d7-4146-91ec-a0ea4aa1dcd1}</ProjectGuid>
<MainSource>FactuGES_Server.dpr</MainSource>
<Configuration Condition=" '$(Configuration)' == '' ">Debug</Configuration>
<Platform Condition=" '$(Platform)' == '' ">AnyCPU</Platform>
<DCC_DCCCompiler>DCC32</DCC_DCCCompiler>
<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>
</PropertyGroup>
<PropertyGroup Condition=" '$(Configuration)|$(Platform)' == 'Release|AnyCPU' ">
<Version>7.0</Version>
<DCC_DebugInformation>False</DCC_DebugInformation>
<DCC_LocalDebugSymbols>False</DCC_LocalDebugSymbols>
<DCC_SymbolReferenceInfo>0</DCC_SymbolReferenceInfo>
<DCC_MapFile>3</DCC_MapFile>
<DCC_ExeOutput>..\..\Output\Release\Servidor</DCC_ExeOutput>
<DCC_Define>RELEASE</DCC_Define>
</PropertyGroup>
<PropertyGroup Condition=" '$(Configuration)|$(Platform)' == 'Debug|AnyCPU' ">
<Version>7.0</Version>
<DCC_MapFile>3</DCC_MapFile>
<DCC_ExeOutput>..\..\Output\Debug\Servidor</DCC_ExeOutput>
<DCC_Define>DEBUG;</DCC_Define>
<DCC_GenerateStackFrames>True</DCC_GenerateStackFrames>
<DCC_DebugInfoInExe>True</DCC_DebugInfoInExe>
<DCC_DebugVN>True</DCC_DebugVN>
<DCC_UnitSearchPath>$(BDS)\lib\Debug;$(BDS)\Lib\Debug\Indy10</DCC_UnitSearchPath>
<DCC_ResourcePath>$(BDS)\lib\Debug;$(BDS)\Lib\Debug\Indy10</DCC_ResourcePath>
<DCC_ObjPath>$(BDS)\lib\Debug;$(BDS)\Lib\Debug\Indy10</DCC_ObjPath>
<DCC_IncludePath>$(BDS)\lib\Debug;$(BDS)\Lib\Debug\Indy10</DCC_IncludePath>
</PropertyGroup>
<ProjectExtensions>
<Borland.Personality>Delphi.Personality</Borland.Personality>
<Borland.ProjectType/>
<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>
</ProjectExtensions>
<Import Project="$(MSBuildBinPath)\Borland.Delphi.Targets"/>
<ItemGroup>
<DelphiCompile Include="FactuGES_Server.dpr">
<MainSource>MainSource</MainSource>
</DelphiCompile>
<DCCReference Include="..\ApplicationBase\Empresas\Model\schEmpresasClient_Intf.pas"/>
<DCCReference Include="..\ApplicationBase\Empresas\Model\schEmpresasServer_Intf.pas"/>
<DCCReference Include="..\ApplicationBase\Empresas\Model\uBizEmpresasServer.pas"/>
<DCCReference Include="..\ApplicationBase\Empresas\Servidor\srvEmpresas_Impl.pas">
<Form>srvEmpresas</Form>
<DesignClass>TDARemoteService</DesignClass>
</DCCReference>
<DCCReference Include="..\ApplicationBase\ProvinciasPoblaciones\Servidor\srvProvinciasPoblaciones_Impl.pas"/>
<DCCReference Include="..\ApplicationBase\Usuarios\Model\schUsuariosClient_Intf.pas"/>
<DCCReference Include="..\ApplicationBase\Usuarios\Model\schUsuariosServer_Intf.pas"/>
<DCCReference Include="..\ApplicationBase\Usuarios\Servidor\srvUsuarios_Impl.pas"/>
<DCCReference Include="..\Base\schBase_Intf.pas"/>
<DCCReference Include="..\Base\Utiles\uSistemaFunc.pas"/>
<DCCReference Include="..\Base\Utiles\uStringsUtils.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\uBizAlbaranClienteServer.pas"/>
<DCCReference Include="..\Modulos\Albaranes de cliente\Reports\uRptAlbaranesCliente_Server.pas">
<Form>RptAlbaranesCliente</Form>
<DesignClass>TDataModule</DesignClass>
</DCCReference>
<DCCReference Include="..\Modulos\Albaranes de cliente\Reports\uRptWordAlbaranCliente.pas">
<Form>RptWordAlbaranCliente</Form>
<DesignClass>TDataModule</DesignClass>
</DCCReference>
<DCCReference Include="..\Modulos\Albaranes de cliente\Servidor\srvAlbaranesCliente_Impl.pas">
<Form>srvAlbaranesCliente</Form>
<DesignClass>TDataAbstractService</DesignClass>
</DCCReference>
<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\uBizAlbaranProveedorServer.PAS"/>
<DCCReference Include="..\Modulos\Albaranes de proveedor\Servidor\srvAlbaranesProveedor_Impl.pas">
<Form>srvAlbaranesProveedor</Form>
<DesignClass>TDataAbstractService</DesignClass>
</DCCReference>
<DCCReference Include="..\Modulos\Almacenes\Model\schAlmacenesClient_Intf.pas"/>
<DCCReference Include="..\Modulos\Almacenes\Model\schAlmacenesServer_Intf.pas"/>
<DCCReference Include="..\Modulos\Almacenes\Servidor\srvAlmacenes_Impl.pas">
<Form>srvAlmacenes</Form>
<DesignClass>TDARemoteService</DesignClass>
</DCCReference>
<DCCReference Include="..\Modulos\Articulos\Model\schArticulosClient_Intf.pas"/>
<DCCReference Include="..\Modulos\Articulos\Model\schArticulosServer_Intf.pas"/>
<DCCReference Include="..\Modulos\Articulos\Model\uBizArticulosServer.pas"/>
<DCCReference Include="..\Modulos\Articulos\Servidor\srvArticulos_Impl.pas">
<Form>srvArticulos</Form>
<DesignClass>TDARemoteService</DesignClass>
</DCCReference>
<DCCReference Include="..\Modulos\Contactos\Model\schContactosClient_Intf.pas"/>
<DCCReference Include="..\Modulos\Contactos\Model\schContactosServer_Intf.pas"/>
<DCCReference Include="..\Modulos\Contactos\Model\uBizClientesServer.pas"/>
<DCCReference Include="..\Modulos\Contactos\Model\uBizContactosServer.pas"/>
<DCCReference Include="..\Modulos\Contactos\Model\uBizEmpleadosServer.pas"/>
<DCCReference Include="..\Modulos\Contactos\Model\uBizProveedoresServer.pas"/>
<DCCReference Include="..\Modulos\Contactos\Reports\uRptEtiquetasContacto_Server.pas">
<Form>RptEtiquetasContacto</Form>
<DesignClass>TDataModule</DesignClass>
</DCCReference>
<DCCReference Include="..\Modulos\Contactos\Reports\uRptFichasEmpleado_Server.pas">
<Form>RptFichasEmpleado</Form>
<DesignClass>TDataModule</DesignClass>
</DCCReference>
<DCCReference Include="..\Modulos\Contactos\Servidor\srvContactos_Impl.pas">
<Form>srvContactos</Form>
<DesignClass>TDARemoteService</DesignClass>
</DCCReference>
<DCCReference Include="..\Modulos\Fabricantes\Model\schFabricantesClient_Intf.pas"/>
<DCCReference Include="..\Modulos\Fabricantes\Model\schFabricantesServer_Intf.pas"/>
<DCCReference Include="..\Modulos\Fabricantes\Servidor\srvFabricantes_Impl.pas">
<Form>srvFabricantes</Form>
<DesignClass>TDataAbstractService</DesignClass>
</DCCReference>
<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\uBizFacturasClienteServer.pas"/>
<DCCReference Include="..\Modulos\Facturas de cliente\Reports\uRptFacturasCliente_Server.pas">
<Form>RptFacturasCliente</Form>
<DesignClass>TDataModule</DesignClass>
</DCCReference>
<DCCReference Include="..\Modulos\Facturas de cliente\Reports\uRptWordFacturaCliente.pas">
<Form>RptWordFacturaCliente</Form>
<DesignClass>TDataModule</DesignClass>
</DCCReference>
<DCCReference Include="..\Modulos\Facturas de cliente\Servidor\srvFacturasCliente_Impl.pas">
<Form>srvFacturasCliente</Form>
<DesignClass>TDataAbstractService</DesignClass>
</DCCReference>
<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\uBizFacturasProveedorServer.pas"/>
<DCCReference Include="..\Modulos\Facturas de proveedor\Servidor\srvFacturasProveedor_Impl.pas">
<Form>srvFacturasProveedor</Form>
<DesignClass>TDataAbstractService</DesignClass>
</DCCReference>
<DCCReference Include="..\Modulos\Familias\Model\schFamiliasClient_Intf.pas"/>
<DCCReference Include="..\Modulos\Familias\Model\schFamiliasServer_Intf.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\schFormasPagoServer_Intf.pas"/>
<DCCReference Include="..\Modulos\Formas de pago\Servidor\srvFormasPago_Impl.pas"/>
<DCCReference Include="..\Modulos\Formas de pago\Servidor\srvUnidadesMedida_Impl.pas"/>
<DCCReference Include="..\Modulos\Gestion de documentos\Servidor\srvGestorDocumentos_Impl.pas">
<Form>srvGestorDocumentos</Form>
<DesignClass>TDataAbstractService</DesignClass>
</DCCReference>
<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\Servidor\srvHistoricoMovimientos_Impl.pas">
<Form>srvHistoricoMovimientos</Form>
<DesignClass>TDataAbstractService</DesignClass>
</DCCReference>
<DCCReference Include="..\Modulos\Inventario\Model\schInventarioClient_Intf.pas"/>
<DCCReference Include="..\Modulos\Inventario\Model\schInventarioServer_Intf.pas"/>
<DCCReference Include="..\Modulos\Inventario\Servidor\srvInventario_Impl.pas">
<Form>srvInventario</Form>
<DesignClass>TDataAbstractService</DesignClass>
</DCCReference>
<DCCReference Include="..\Modulos\Obras\Model\schObrasClient_Intf.pas"/>
<DCCReference Include="..\Modulos\Obras\Model\schObrasServer_Intf.pas"/>
<DCCReference Include="..\Modulos\Obras\Model\uBizObrasServer.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\schPedidosProveedorServer_Intf.pas"/>
<DCCReference Include="..\Modulos\Pedidos a proveedor\Model\uBizPedidosProveedorServer.pas"/>
<DCCReference Include="..\Modulos\Pedidos a proveedor\Reports\uRptPedidosProveedor_Server.pas">
<Form>RptPedidosProveedor</Form>
<DesignClass>TDataModule</DesignClass>
</DCCReference>
<DCCReference Include="..\Modulos\Pedidos a proveedor\Reports\uRptWordPedidoProveedor.pas">
<Form>RptWordPedidoProveedor</Form>
<DesignClass>TDataModule</DesignClass>
</DCCReference>
<DCCReference Include="..\Modulos\Pedidos a proveedor\Servidor\srvPedidosProveedor_Impl.pas">
<Form>srvPedidosProveedor</Form>
<DesignClass>TDataAbstractService</DesignClass>
</DCCReference>
<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\uBizPresupuestosClienteServer.pas"/>
<DCCReference Include="..\Modulos\Presupuestos de cliente\Reports\uRptPresupuestosCliente_Server.pas">
<Form>RptPresupuestosCliente</Form>
<DesignClass>TDataModule</DesignClass>
</DCCReference>
<DCCReference Include="..\Modulos\Presupuestos de cliente\Reports\uRptWordCertificadoTrabajo_Server.pas">
<Form>RptWordCertificadoTrabajo</Form>
<DesignClass>TDataModule</DesignClass>
</DCCReference>
<DCCReference Include="..\Modulos\Presupuestos de cliente\Reports\uRptWordPresupuestoCliente.pas">
<Form>RptWordPresupuestoCliente</Form>
<DesignClass>TDataModule</DesignClass>
</DCCReference>
<DCCReference Include="..\Modulos\Presupuestos de cliente\Servidor\srvPresupuestosCliente_Impl.pas">
<Form>srvPresupuestosCliente</Form>
<DesignClass>TDataAbstractService</DesignClass>
</DCCReference>
<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\Reports\uRptRecibosCliente_Server.pas">
<Form>RptRecibosCliente</Form>
<DesignClass>TDataModule</DesignClass>
</DCCReference>
<DCCReference Include="..\Modulos\Recibos de cliente\Servidor\srvRecibosCliente_Impl.pas">
<Form>srvRecibosCliente</Form>
<DesignClass>TDataAbstractService</DesignClass>
</DCCReference>
<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\Servidor\srvRecibosProveedor_Impl.pas">
<Form>srvRecibosProveedor</Form>
<DesignClass>TDataAbstractService</DesignClass>
</DCCReference>
<DCCReference Include="..\Modulos\Referencias\Model\schReferenciasClient_Intf.pas"/>
<DCCReference Include="..\Modulos\Referencias\Model\schReferenciasServer_Intf.pas"/>
<DCCReference Include="..\Modulos\Referencias\Servidor\srvReferencias_Impl.pas">
<Form>srvReferencias</Form>
<DesignClass>TDataAbstractService</DesignClass>
</DCCReference>
<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\uBizRemesasClienteServer.pas"/>
<DCCReference Include="..\Modulos\Remesas de cliente\Servidor\srvRemesasCliente_Impl.pas">
<Form>srvRemesasCliente</Form>
<DesignClass>TDataAbstractService</DesignClass>
</DCCReference>
<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\uBizRemesasProveedorServer.pas"/>
<DCCReference Include="..\Modulos\Remesas de proveedor\Servidor\srvRemesasProveedor_Impl.pas">
<Form>srvRemesasProveedor</Form>
<DesignClass>TDataAbstractService</DesignClass>
</DCCReference>
<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\Servidor\srvTiposIVA_Impl.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\Servidor\srvUnidadesMedida_Impl.pas">
<Form>srvUnidadesMedida</Form>
<DesignClass>TDataAbstractService</DesignClass>
</DCCReference>
<DCCReference Include="..\Servicios\FactuGES_Intf.pas"/>
<DCCReference Include="..\Servicios\FactuGES_Invk.pas"/>
<DCCReference Include="Configuracion\srvConfiguracion_Impl.pas">
<Form>srvConfiguracion</Form>
<DesignClass>TDataAbstractService</DesignClass>
</DCCReference>
<DCCReference Include="Configuracion\uConexionBD.pas">
<Form>frConexionBD</Form>
<DesignClass>TFrame</DesignClass>
</DCCReference>
<DCCReference Include="Configuracion\uConfGeneral.pas">
<Form>frConfGeneral</Form>
<DesignClass>TFrame</DesignClass>
</DCCReference>
<DCCReference Include="Configuracion\uConfiguracion.pas">
<Form>fConfiguracion</Form>
<DesignClass>TForm</DesignClass>
</DCCReference>
<DCCReference Include="Configuracion\uFrameConfiguracion.pas">
<Form>FrameConfiguracion</Form>
<DesignClass>TFrame</DesignClass>
</DCCReference>
<DCCReference Include="srvLogin_Impl.pas">
<Form>srvLogin</Form>
<DesignClass>TDARemoteService</DesignClass>
</DCCReference>
<DCCReference Include="uAcercaDe.pas">
<Form>fAcercaDe</Form>
</DCCReference>
<DCCReference Include="uDataModuleServer.pas">
<Form>dmServer</Form>
<DesignClass>TDataModule</DesignClass>
</DCCReference>
<DCCReference Include="uServerMainForm.pas">
<Form>fServerForm</Form>
</DCCReference>
<DCCReference Include="Utiles\AHWord97.pas"/>
<DCCReference Include="Utiles\RegExpr.pas"/>
<DCCReference Include="Utiles\uBusinessUtils.pas"/>
<DCCReference Include="Utiles\uDatabaseUtils.pas"/>
<DCCReference Include="Utiles\uReferenciasUtils.pas"/>
<DCCReference Include="Utiles\uRestriccionesUsuarioUtils.pas"/>
<DCCReference Include="Utiles\uSchemaUtilsServer.pas"/>
<DCCReference Include="Utiles\uServerAppUtils.pas"/>
<DCCReference Include="Utiles\uSesionesUtils.pas"/>
</ItemGroup>
<PropertyGroup>
<ProjectGuid>{ebdcd25d-40d7-4146-91ec-a0ea4aa1dcd1}</ProjectGuid>
<MainSource>FactuGES_Server.dpr</MainSource>
<Configuration Condition=" '$(Configuration)' == '' ">Debug</Configuration>
<Platform Condition=" '$(Platform)' == '' ">AnyCPU</Platform>
<DCC_DCCCompiler>DCC32</DCC_DCCCompiler>
<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>
</PropertyGroup>
<PropertyGroup Condition=" '$(Configuration)|$(Platform)' == 'Release|AnyCPU' ">
<Version>7.0</Version>
<DCC_DebugInformation>False</DCC_DebugInformation>
<DCC_LocalDebugSymbols>False</DCC_LocalDebugSymbols>
<DCC_SymbolReferenceInfo>0</DCC_SymbolReferenceInfo>
<DCC_MapFile>3</DCC_MapFile>
<DCC_ExeOutput>..\..\Output\Release\Servidor</DCC_ExeOutput>
<DCC_Define>RELEASE</DCC_Define>
</PropertyGroup>
<PropertyGroup Condition=" '$(Configuration)|$(Platform)' == 'Debug|AnyCPU' ">
<Version>7.0</Version>
<DCC_MapFile>3</DCC_MapFile>
<DCC_ExeOutput>..\..\Output\Debug\Servidor</DCC_ExeOutput>
<DCC_Define>DEBUG;</DCC_Define>
<DCC_GenerateStackFrames>True</DCC_GenerateStackFrames>
<DCC_DebugInfoInExe>True</DCC_DebugInfoInExe>
<DCC_DebugVN>True</DCC_DebugVN>
<DCC_UnitSearchPath>$(BDS)\lib\Debug;$(BDS)\Lib\Debug\Indy10</DCC_UnitSearchPath>
<DCC_ResourcePath>$(BDS)\lib\Debug;$(BDS)\Lib\Debug\Indy10</DCC_ResourcePath>
<DCC_ObjPath>$(BDS)\lib\Debug;$(BDS)\Lib\Debug\Indy10</DCC_ObjPath>
<DCC_IncludePath>$(BDS)\lib\Debug;$(BDS)\Lib\Debug\Indy10</DCC_IncludePath>
</PropertyGroup>
<ProjectExtensions>
<Borland.Personality>Delphi.Personality</Borland.Personality>
<Borland.ProjectType />
<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>
<Import Project="$(MSBuildBinPath)\Borland.Delphi.Targets" />
<ItemGroup>
<DelphiCompile Include="FactuGES_Server.dpr">
<MainSource>MainSource</MainSource>
</DelphiCompile>
<DCCReference Include="..\ApplicationBase\Empresas\Model\schEmpresasClient_Intf.pas" />
<DCCReference Include="..\ApplicationBase\Empresas\Model\schEmpresasServer_Intf.pas" />
<DCCReference Include="..\ApplicationBase\Empresas\Model\uBizEmpresasServer.pas" />
<DCCReference Include="..\ApplicationBase\Empresas\Servidor\srvEmpresas_Impl.pas">
<Form>srvEmpresas</Form>
<DesignClass>TDARemoteService</DesignClass>
</DCCReference>
<DCCReference Include="..\ApplicationBase\ProvinciasPoblaciones\Servidor\srvProvinciasPoblaciones_Impl.pas" />
<DCCReference Include="..\ApplicationBase\Usuarios\Model\schUsuariosClient_Intf.pas" />
<DCCReference Include="..\ApplicationBase\Usuarios\Model\schUsuariosServer_Intf.pas" />
<DCCReference Include="..\ApplicationBase\Usuarios\Servidor\srvUsuarios_Impl.pas" />
<DCCReference Include="..\Base\schBase_Intf.pas" />
<DCCReference Include="..\Base\Utiles\uSistemaFunc.pas" />
<DCCReference Include="..\Base\Utiles\uStringsUtils.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\uBizAlbaranClienteServer.pas" />
<DCCReference Include="..\Modulos\Albaranes de cliente\Reports\uRptAlbaranesCliente_Server.pas">
<Form>RptAlbaranesCliente</Form>
<DesignClass>TDataModule</DesignClass>
</DCCReference>
<DCCReference Include="..\Modulos\Albaranes de cliente\Reports\uRptWordAlbaranCliente.pas">
<Form>RptWordAlbaranCliente</Form>
<DesignClass>TDataModule</DesignClass>
</DCCReference>
<DCCReference Include="..\Modulos\Albaranes de cliente\Servidor\srvAlbaranesCliente_Impl.pas">
<Form>srvAlbaranesCliente</Form>
<DesignClass>TDataAbstractService</DesignClass>
</DCCReference>
<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\uBizAlbaranProveedorServer.PAS" />
<DCCReference Include="..\Modulos\Albaranes de proveedor\Servidor\srvAlbaranesProveedor_Impl.pas">
<Form>srvAlbaranesProveedor</Form>
<DesignClass>TDataAbstractService</DesignClass>
</DCCReference>
<DCCReference Include="..\Modulos\Almacenes\Model\schAlmacenesClient_Intf.pas" />
<DCCReference Include="..\Modulos\Almacenes\Model\schAlmacenesServer_Intf.pas" />
<DCCReference Include="..\Modulos\Almacenes\Servidor\srvAlmacenes_Impl.pas">
<Form>srvAlmacenes</Form>
<DesignClass>TDARemoteService</DesignClass>
</DCCReference>
<DCCReference Include="..\Modulos\Articulos\Model\schArticulosClient_Intf.pas" />
<DCCReference Include="..\Modulos\Articulos\Model\schArticulosServer_Intf.pas" />
<DCCReference Include="..\Modulos\Articulos\Model\uBizArticulosServer.pas" />
<DCCReference Include="..\Modulos\Articulos\Servidor\srvArticulos_Impl.pas">
<Form>srvArticulos</Form>
<DesignClass>TDARemoteService</DesignClass>
</DCCReference>
<DCCReference Include="..\Modulos\Contactos\Model\schContactosClient_Intf.pas" />
<DCCReference Include="..\Modulos\Contactos\Model\schContactosServer_Intf.pas" />
<DCCReference Include="..\Modulos\Contactos\Model\uBizClientesServer.pas" />
<DCCReference Include="..\Modulos\Contactos\Model\uBizContactosServer.pas" />
<DCCReference Include="..\Modulos\Contactos\Model\uBizEmpleadosServer.pas" />
<DCCReference Include="..\Modulos\Contactos\Model\uBizProveedoresServer.pas" />
<DCCReference Include="..\Modulos\Contactos\Reports\uRptEtiquetasContacto_Server.pas">
<Form>RptEtiquetasContacto</Form>
<DesignClass>TDataModule</DesignClass>
</DCCReference>
<DCCReference Include="..\Modulos\Contactos\Reports\uRptFichasEmpleado_Server.pas">
<Form>RptFichasEmpleado</Form>
<DesignClass>TDataModule</DesignClass>
</DCCReference>
<DCCReference Include="..\Modulos\Contactos\Servidor\srvContactos_Impl.pas">
<Form>srvContactos</Form>
<DesignClass>TDARemoteService</DesignClass>
</DCCReference>
<DCCReference Include="..\Modulos\Fabricantes\Model\schFabricantesClient_Intf.pas" />
<DCCReference Include="..\Modulos\Fabricantes\Model\schFabricantesServer_Intf.pas" />
<DCCReference Include="..\Modulos\Fabricantes\Servidor\srvFabricantes_Impl.pas">
<Form>srvFabricantes</Form>
<DesignClass>TDataAbstractService</DesignClass>
</DCCReference>
<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\uBizFacturasClienteServer.pas" />
<DCCReference Include="..\Modulos\Facturas de cliente\Reports\uRptFacturasCliente_Server.pas">
<Form>RptFacturasCliente</Form>
<DesignClass>TDataModule</DesignClass>
</DCCReference>
<DCCReference Include="..\Modulos\Facturas de cliente\Reports\uRptWordFacturaCliente.pas">
<Form>RptWordFacturaCliente</Form>
<DesignClass>TDataModule</DesignClass>
</DCCReference>
<DCCReference Include="..\Modulos\Facturas de cliente\Servidor\srvFacturasCliente_Impl.pas">
<Form>srvFacturasCliente</Form>
<DesignClass>TDataAbstractService</DesignClass>
</DCCReference>
<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\uBizFacturasProveedorServer.pas" />
<DCCReference Include="..\Modulos\Facturas de proveedor\Servidor\srvFacturasProveedor_Impl.pas">
<Form>srvFacturasProveedor</Form>
<DesignClass>TDataAbstractService</DesignClass>
</DCCReference>
<DCCReference Include="..\Modulos\Familias\Model\schFamiliasClient_Intf.pas" />
<DCCReference Include="..\Modulos\Familias\Model\schFamiliasServer_Intf.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\schFormasPagoServer_Intf.pas" />
<DCCReference Include="..\Modulos\Formas de pago\Servidor\srvFormasPago_Impl.pas" />
<DCCReference Include="..\Modulos\Formas de pago\Servidor\srvUnidadesMedida_Impl.pas" />
<DCCReference Include="..\Modulos\Gestion de documentos\Servidor\srvGestorDocumentos_Impl.pas">
<Form>srvGestorDocumentos</Form>
<DesignClass>TDataAbstractService</DesignClass>
</DCCReference>
<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\Servidor\srvHistoricoMovimientos_Impl.pas">
<Form>srvHistoricoMovimientos</Form>
<DesignClass>TDataAbstractService</DesignClass>
</DCCReference>
<DCCReference Include="..\Modulos\Inventario\Model\schInventarioClient_Intf.pas" />
<DCCReference Include="..\Modulos\Inventario\Model\schInventarioServer_Intf.pas" />
<DCCReference Include="..\Modulos\Inventario\Servidor\srvInventario_Impl.pas">
<Form>srvInventario</Form>
<DesignClass>TDataAbstractService</DesignClass>
</DCCReference>
<DCCReference Include="..\Modulos\Obras\Model\schObrasClient_Intf.pas" />
<DCCReference Include="..\Modulos\Obras\Model\schObrasServer_Intf.pas" />
<DCCReference Include="..\Modulos\Obras\Model\uBizObrasServer.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\schPedidosProveedorServer_Intf.pas" />
<DCCReference Include="..\Modulos\Pedidos a proveedor\Model\uBizPedidosProveedorServer.pas" />
<DCCReference Include="..\Modulos\Pedidos a proveedor\Reports\uRptPedidosProveedor_Server.pas">
<Form>RptPedidosProveedor</Form>
<DesignClass>TDataModule</DesignClass>
</DCCReference>
<DCCReference Include="..\Modulos\Pedidos a proveedor\Reports\uRptWordPedidoProveedor.pas">
<Form>RptWordPedidoProveedor</Form>
<DesignClass>TDataModule</DesignClass>
</DCCReference>
<DCCReference Include="..\Modulos\Pedidos a proveedor\Servidor\srvPedidosProveedor_Impl.pas">
<Form>srvPedidosProveedor</Form>
<DesignClass>TDataAbstractService</DesignClass>
</DCCReference>
<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\uBizPresupuestosClienteServer.pas" />
<DCCReference Include="..\Modulos\Presupuestos de cliente\Reports\uRptPresupuestosCliente_Server.pas">
<Form>RptPresupuestosCliente</Form>
<DesignClass>TDataModule</DesignClass>
</DCCReference>
<DCCReference Include="..\Modulos\Presupuestos de cliente\Reports\uRptWordCertificadoTrabajo_Server.pas">
<Form>RptWordCertificadoTrabajo</Form>
<DesignClass>TDataModule</DesignClass>
</DCCReference>
<DCCReference Include="..\Modulos\Presupuestos de cliente\Reports\uRptWordPresupuestoCliente.pas">
<Form>RptWordPresupuestoCliente</Form>
<DesignClass>TDataModule</DesignClass>
</DCCReference>
<DCCReference Include="..\Modulos\Presupuestos de cliente\Servidor\srvPresupuestosCliente_Impl.pas">
<Form>srvPresupuestosCliente</Form>
<DesignClass>TDataAbstractService</DesignClass>
</DCCReference>
<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\Reports\uRptRecibosCliente_Server.pas">
<Form>RptRecibosCliente</Form>
<DesignClass>TDataModule</DesignClass>
</DCCReference>
<DCCReference Include="..\Modulos\Recibos de cliente\Servidor\srvRecibosCliente_Impl.pas">
<Form>srvRecibosCliente</Form>
<DesignClass>TDataAbstractService</DesignClass>
</DCCReference>
<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\Servidor\srvRecibosProveedor_Impl.pas">
<Form>srvRecibosProveedor</Form>
<DesignClass>TDataAbstractService</DesignClass>
</DCCReference>
<DCCReference Include="..\Modulos\Referencias\Model\schReferenciasClient_Intf.pas" />
<DCCReference Include="..\Modulos\Referencias\Model\schReferenciasServer_Intf.pas" />
<DCCReference Include="..\Modulos\Referencias\Servidor\srvReferencias_Impl.pas">
<Form>srvReferencias</Form>
<DesignClass>TDataAbstractService</DesignClass>
</DCCReference>
<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\uBizRemesasClienteServer.pas" />
<DCCReference Include="..\Modulos\Remesas de cliente\Servidor\srvRemesasCliente_Impl.pas">
<Form>srvRemesasCliente</Form>
<DesignClass>TDataAbstractService</DesignClass>
</DCCReference>
<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\uBizRemesasProveedorServer.pas" />
<DCCReference Include="..\Modulos\Remesas de proveedor\Servidor\srvRemesasProveedor_Impl.pas">
<Form>srvRemesasProveedor</Form>
<DesignClass>TDataAbstractService</DesignClass>
</DCCReference>
<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\Servidor\srvTiposIVA_Impl.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\Servidor\srvUnidadesMedida_Impl.pas">
<Form>srvUnidadesMedida</Form>
<DesignClass>TDataAbstractService</DesignClass>
</DCCReference>
<DCCReference Include="..\Servicios\FactuGES_Intf.pas" />
<DCCReference Include="..\Servicios\FactuGES_Invk.pas" />
<DCCReference Include="Configuracion\srvConfiguracion_Impl.pas">
<Form>srvConfiguracion</Form>
<DesignClass>TDataAbstractService</DesignClass>
</DCCReference>
<DCCReference Include="Configuracion\uConexionBD.pas">
<Form>frConexionBD</Form>
<DesignClass>TFrame</DesignClass>
</DCCReference>
<DCCReference Include="Configuracion\uConfGeneral.pas">
<Form>frConfGeneral</Form>
<DesignClass>TFrame</DesignClass>
</DCCReference>
<DCCReference Include="Configuracion\uConfiguracion.pas">
<Form>fConfiguracion</Form>
<DesignClass>TForm</DesignClass>
</DCCReference>
<DCCReference Include="Configuracion\uFrameConfiguracion.pas">
<Form>FrameConfiguracion</Form>
<DesignClass>TFrame</DesignClass>
</DCCReference>
<DCCReference Include="srvLogin_Impl.pas">
<Form>srvLogin</Form>
<DesignClass>TDARemoteService</DesignClass>
</DCCReference>
<DCCReference Include="uAcercaDe.pas">
<Form>fAcercaDe</Form>
</DCCReference>
<DCCReference Include="uDataModuleServer.pas">
<Form>dmServer</Form>
<DesignClass>TDataModule</DesignClass>
</DCCReference>
<DCCReference Include="uServerMainForm.pas">
<Form>fServerForm</Form>
</DCCReference>
<DCCReference Include="Utiles\AHWord97.pas" />
<DCCReference Include="Utiles\RegExpr.pas" />
<DCCReference Include="Utiles\uBusinessUtils.pas" />
<DCCReference Include="Utiles\uDatabaseUtils.pas" />
<DCCReference Include="Utiles\uReferenciasUtils.pas" />
<DCCReference Include="Utiles\uRestriccionesUsuarioUtils.pas" />
<DCCReference Include="Utiles\uSchemaUtilsServer.pas" />
<DCCReference Include="Utiles\uServerAppUtils.pas" />
<DCCReference Include="Utiles\uSesionesUtils.pas" />
</ItemGroup>
</Project>
<!-- EurekaLog First Line
[Exception Log]

10
Source/Servidor/FactuGES_Server.rc
View File

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