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

Se adapta el inventario para poder detallar en las entradas y salidas los colores de las prendas

Browse Source 
git-svn-id: https://192.168.0.254/svn/Proyectos.Noviseda_FactuGES2/trunk@108 f33bb606-9f5c-448d-9c99-757f00063c96
This commit is contained in:
roberto 2010-03-26 17:10:33 +00:00
parent fb07b2bf83
commit bff926faec
46 changed files with 3480 additions and 891 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

BIN
Build/Build.fbl6
View File

Binary file not shown.

13
Database/scripts/factuges.sql
View File

@ -2894,6 +2894,9 @@ CREATE VIEW V_INVENTARIO(
DESCRIPCION,
REFERENCIA_FAB,
UNIDAD_MEDIDA,
CAMPOTECNICO,
CODIGOTECNICO,
DISENOTECNICO,
STOCK,
UNIDADES_ALMACEN,
RESERVA,
@ -2909,6 +2912,10 @@ SELECT ID_ALMACEN,
ARTICULOS.DESCRIPCION,
ARTICULOS.REFERENCIA_FABR,
ARTICULOS.UNIDAD_MEDIDA,
ARTICULOS.CAMPOTECNICO,
ARTICULOS.CODIGOTECNICO,
ARTICULOS.DISENOTECNICO,
/* COALESCE(ARTICULOS.PRECIO_NETO,0) as PRECIO_NETO,*/
(SUM(STOCK) - SUM(RESERVA)) as STOCK,
SUM(STOCK) as UNIDADES_ALMACEN,
@ -2940,7 +2947,11 @@ GROUP BY ID_ALMACEN,
ARTICULOS.FAMILIA,
ARTICULOS.DESCRIPCION,
ARTICULOS.REFERENCIA_FABR,
ARTICULOS.UNIDAD_MEDIDA
ARTICULOS.UNIDAD_MEDIDA,
ARTICULOS.CAMPOTECNICO,
ARTICULOS.CODIGOTECNICO,
ARTICULOS.DISENOTECNICO
/* ARTICULOS.PRECIO_NETO*/
/*QUITAMOS AQUELLAS TUPLAS DE LAS QUE NO TENEMOS UNIDADES EN EL ALAMCEN, NO HAY RESERVAS NI PEDIDOS PENDIENTES DE RECIBIR*/

4
Source/Base/Base.dproj
View File

@ -45,6 +45,10 @@
<Borland.ProjectType>Package</Borland.ProjectType>
<BorlandProject>
<BorlandProject><Delphi.Personality><Parameters><Parameters Name="UseLauncher">False</Parameters><Parameters Name="LoadAllSymbols">True</Parameters><Parameters Name="LoadUnspecifiedSymbols">False</Parameters></Parameters><Package_Options><Package_Options Name="PackageDescription">Libreria base de FactuGES</Package_Options><Package_Options Name="ImplicitBuild">False</Package_Options><Package_Options Name="DesigntimeOnly">False</Package_Options><Package_Options Name="RuntimeOnly">False</Package_Options></Package_Options><VersionInfo><VersionInfo Name="IncludeVerInfo">True</VersionInfo><VersionInfo Name="AutoIncBuild">False</VersionInfo><VersionInfo Name="MajorVer">1</VersionInfo><VersionInfo Name="MinorVer">0</VersionInfo><VersionInfo Name="Release">0</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.0.0.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.0.0.0</VersionInfoKeys></VersionInfoKeys><Excluded_Packages>
<Excluded_Packages Name="C:\Documents and Settings\All Users\Documentos\RAD Studio\5.0\Bpl\RemObjects_Indy_D11.bpl">RemObjects SDK - Indy Library</Excluded_Packages>
</Excluded_Packages><Source><Source Name="MainSource">Base.dpk</Source></Source></Delphi.Personality></BorlandProject></BorlandProject>
</ProjectExtensions>

BIN
Source/Base/Base.res
View File

Binary file not shown.

4
Source/Cliente/FactuGES.dpr
View File

@ -1,9 +1,7 @@
program FactuGES;
uses
// ExceptionLog,
// ExceptionLog,
// ExceptionLog,
ExceptionLog,
Forms,
Windows,
SysUtils,

2
Source/Cliente/uBootStrap.pas
View File

@ -51,7 +51,7 @@ begin
// LoadModule('RemesasProveedor_plugin.bpl');
LoadModule('Inventario_plugin.bpl');
// LoadModule('HistoricoMovimientos_plugin.bpl');
LoadModule('HistoricoMovimientos_plugin.bpl');
// LoadModule('GestorInformes_plugin.bpl');
end;

9
Source/Modulos/Historico de movimientos/Views/HistoricoMovimientos_view.dproj
View File

@ -39,15 +39,15 @@
<Borland.Personality>Delphi.Personality</Borland.Personality>
<Borland.ProjectType>Package</Borland.ProjectType>
<BorlandProject>
<BorlandProject><Delphi.Personality><Parameters><Parameters Name="UseLauncher">False</Parameters><Parameters Name="LoadAllSymbols">True</Parameters><Parameters Name="LoadUnspecifiedSymbols">False</Parameters></Parameters><Package_Options><Package_Options Name="ImplicitBuild">True</Package_Options><Package_Options Name="DesigntimeOnly">False</Package_Options><Package_Options Name="RuntimeOnly">False</Package_Options></Package_Options><VersionInfo><VersionInfo Name="IncludeVerInfo">True</VersionInfo><VersionInfo Name="AutoIncBuild">False</VersionInfo><VersionInfo Name="MajorVer">1</VersionInfo><VersionInfo Name="MinorVer">0</VersionInfo><VersionInfo Name="Release">0</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.0.0.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.0.0.0</VersionInfoKeys><VersionInfoKeys Name="Comments"></VersionInfoKeys></VersionInfoKeys><Source><Source Name="MainSource">HistoricoMovimientos_view.dpk</Source></Source></Delphi.Personality></BorlandProject></BorlandProject>
<BorlandProject><Delphi.Personality><Parameters><Parameters Name="UseLauncher">False</Parameters><Parameters Name="LoadAllSymbols">True</Parameters><Parameters Name="LoadUnspecifiedSymbols">False</Parameters></Parameters><Package_Options><Package_Options Name="ImplicitBuild">False</Package_Options><Package_Options Name="DesigntimeOnly">False</Package_Options><Package_Options Name="RuntimeOnly">False</Package_Options></Package_Options><VersionInfo><VersionInfo Name="IncludeVerInfo">True</VersionInfo><VersionInfo Name="AutoIncBuild">False</VersionInfo><VersionInfo Name="MajorVer">1</VersionInfo><VersionInfo Name="MinorVer">0</VersionInfo><VersionInfo Name="Release">0</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.0.0.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.0.0.0</VersionInfoKeys><VersionInfoKeys Name="Comments"></VersionInfoKeys></VersionInfoKeys><Source><Source Name="MainSource">HistoricoMovimientos_view.dpk</Source></Source></Delphi.Personality></BorlandProject></BorlandProject>
</ProjectExtensions>
<Import Project="$(MSBuildBinPath)\Borland.Delphi.Targets" />
<ItemGroup>
<DelphiCompile Include="HistoricoMovimientos_view.dpk">
<MainSource>MainSource</MainSource>
</DelphiCompile>
<DCCReference Include="..\..\Lib\HistoricoMovimientos_controller.dcp" />
<DCCReference Include="..\..\Lib\HistoricoMovimientos_model.dcp" />
<DCCReference Include="..\HistoricoMovimientos_controller.dcp" />
<DCCReference Include="..\HistoricoMovimientos_model.dcp" />
<DCCReference Include="uEditorHistoricoMovimientos.pas">
<Form>fEditorHistoricoMovimientos</Form>
<DesignClass>TfrEditorHistoricoMovimientos</DesignClass>
@ -59,10 +59,9 @@
</DCCReference>
</ItemGroup>
</Project>
<!-- EurekaLog First Line
[Exception Log]
EurekaLog Version=6006
EurekaLog Version=6011
Activate=0
Activate Handle=1
Save Log File=1

53
Source/Modulos/Historico de movimientos/Views/uEditorHistoricoMovimientos.dfm
View File

@ -137,10 +137,10 @@ inherited fEditorHistoricoMovimientos: TfEditorHistoricoMovimientos
Width = 902
ExplicitWidth = 902
inherited tbxMain: TSpTBXToolbar
ExplicitWidth = 606
ExplicitWidth = 358
end
inherited tbxFiltro: TSpTBXToolbar
ExplicitWidth = 269
ExplicitWidth = 328
inherited TBXItem37: TSpTBXItem
Visible = False
end
@ -149,9 +149,9 @@ inherited fEditorHistoricoMovimientos: TfEditorHistoricoMovimientos
ExplicitWidth = 902
end
inherited TBXTMain2: TSpTBXToolbar
Left = 275
Left = 328
DockPos = 275
ExplicitLeft = 275
ExplicitLeft = 328
end
end
inherited StatusBar: TJvStatusBar
@ -197,12 +197,33 @@ inherited fEditorHistoricoMovimientos: TfEditorHistoricoMovimientos
Kind = skCount
Column = frViewHistoricoMovimientos1.cxGridViewFECHA
end>
inherited cxGridViewFAMILIA: TcxGridDBColumn
Visible = False
VisibleForCustomization = False
end
inherited cxGridViewFABRICANTE: TcxGridDBColumn
Visible = False
VisibleForCustomization = False
end
inherited cxGridViewREFERENCIA_FABR: TcxGridDBColumn
Visible = False
VisibleForCustomization = False
end
inherited cxGridViewUNIDAD_MEDIDA: TcxGridDBColumn
Visible = False
VisibleForCustomization = False
end
inherited cxGridViewNOMBRE_ALMACEN: TcxGridDBColumn
Visible = False
VisibleForCustomization = False
end
end
end
inherited frViewFiltroBase1: TfrViewFiltroBase
Width = 902
ExplicitWidth = 902
inherited TBXDockablePanel1: TSpTBXDockablePanel
Width = 902
ExplicitWidth = 902
inherited dxLayoutControl1: TdxLayoutControl
Width = 902
@ -224,29 +245,29 @@ inherited fEditorHistoricoMovimientos: TfEditorHistoricoMovimientos
Width = 121
end
inherited edtFechaFinFiltro: TcxDateEdit
Left = 225
Left = 326
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitLeft = 225
ExplicitLeft = 326
ExplicitWidth = 121
Width = 121
end
inherited eLista: TcxComboBox
Left = 383
Left = 551
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitLeft = 383
ExplicitLeft = 551
ExplicitWidth = 215
Width = 215
end
end
inherited TBXAlignmentPanel1: TSpTBXDockablePanel
Width = 902
ExplicitWidth = 902
Width = 892
ExplicitWidth = 892
inherited tbxBotones: TSpTBXToolbar
Width = 892
ExplicitWidth = 892
@ -256,14 +277,15 @@ inherited fEditorHistoricoMovimientos: TfEditorHistoricoMovimientos
end
inherited pnlAgrupaciones: TSpTBXDockablePanel
Top = 473
Width = 902
ExplicitTop = 473
ExplicitWidth = 902
inherited TBXAlignmentPanel1: TSpTBXDockablePanel
Width = 902
ExplicitWidth = 902
inherited TBXToolbar1: TSpTBXToolbar
Width = 892
ExplicitWidth = 892
Width = 902
ExplicitWidth = 902
end
end
end
@ -273,6 +295,9 @@ inherited fEditorHistoricoMovimientos: TfEditorHistoricoMovimientos
BuiltInReportLink = True
end
end
inherited dxPSEngineController1: TdxPSEngineController
Active = True
end
inherited cxViewGridPopupMenu: TcxGridPopupMenu
PopupMenus = <
item
@ -312,6 +337,10 @@ inherited fEditorHistoricoMovimientos: TfEditorHistoricoMovimientos
inherited actAnchoAuto: TAction
ImageIndex = 27
end
inherited actExportarExcel: TAction
Enabled = False
Visible = False
end
end
inherited SmallImages: TPngImageList [5]
PngImages = <

BIN
Source/Modulos/Historico de movimientos/Views/uEditorHistoricoMovimientos.pas
View File

Binary file not shown.

1
Source/Modulos/Historico de movimientos/Views/uViewHistoricoMovimientos.dfm
View File

@ -155,6 +155,7 @@ inherited frViewHistoricoMovimientos: TfrViewHistoricoMovimientos
end
end
inherited dxPSEngineController1: TdxPSEngineController
Active = True
Left = 328
Top = 160
end

5
Source/Modulos/Historico de movimientos/Views/uViewHistoricoMovimientos.pas
View File

@ -14,7 +14,10 @@ uses
cxImageComboBox, ImgList, PngImageList, cxTextEdit, Grids, DBGrids, cxDBLookupComboBox,
cxButtonEdit, cxGridCustomPopupMenu, cxGridPopupMenu, uViewGrid,
uBizHistoricoMovimientos, uBizAlmacenes, cxSpinEdit, uViewFiltroBase, TB2Item, SpTBXItem,
TB2Toolbar, SpTBXDkPanels, TB2Dock, dxPgsDlg, cxCurrencyEdit, uDAInterfaces;
TB2Toolbar, SpTBXDkPanels, TB2Dock, dxPgsDlg, cxCurrencyEdit, uDAInterfaces,
cxLookAndFeels, cxLookAndFeelPainters, dxPSPDFExportCore, dxPSPDFExport,
cxDrawTextUtils, dxPSPrVwStd, dxPSPrVwAdv, dxPScxEditorProducers,
dxPScxExtEditorProducers, dxPScxPageControlProducer, uCustomView, uViewBase;
type
IViewHistoricoMovimientos = interface(IViewGrid)

36
Source/Modulos/Inventario/Controller/uArticulosInventarioController.pas
View File

@ -8,18 +8,20 @@ uses
type
IArticulosInventarioController = interface(IArticulosController)
['{33B26E09-ABE8-45A4-B9B3-E0E48F8EBB3E}']
procedure ModificarCantidadColores(ADetalles: IDAStronglyTypedDataTable);
end;
TArticulosInventarioController = class(TArticulosController, IArticulosInventarioController)
public
function ElegirArticulos(AArticulos : IBizArticulo; AMensaje: String; AMultiSelect: Boolean): IBizArticulo; override;
procedure ModificarCantidadColores(ADetalles: IDAStronglyTypedDataTable);
end;
implementation
{ TArticulosInventarioController }
uses Controls, cxControls, uIEditorElegirArticulosCatalogo;
uses Controls, cxControls, uIEditorElegirArticulosCatalogo, uEditorColores;
function TArticulosInventarioController.ElegirArticulos(AArticulos: IBizArticulo; AMensaje: String;
AMultiSelect: Boolean): IBizArticulo;
@ -41,4 +43,36 @@ begin
end;
end;
procedure TArticulosInventarioController.ModificarCantidadColores(ADetalles: IDAStronglyTypedDataTable);
var
ADetallesAux: IBizInventario;
begin
if Assigned(ADetalles) then
begin
ADetallesAux := (ADetalles as IBizInventario);
with TfEditorColores.Create(NIL) do
try
dsDataTable.DataTable := ADetallesAux.DetalleColores.DataTable;
Referencia := ADetallesAux.REFERENCIA;
Descripcion := ADetallesAux.DESCRIPCION;
if (ShowModal = mrOK) then
begin
if ADetallesAux.DetalleColores.DataTable.Editing then
ADetallesAux.DetalleColores.DataTable.Post;
if not ADetallesAux.DataTable.Editing then
ADetallesAux.DataTable.Edit;
ADetallesAux.CANTIDAD := Total;
if ADetallesAux.DataTable.Editing then
ADetallesAux.DataTable.post;
end
else
ADetallesAux.DetalleColores.DataTable.Cancel;
finally
Release;
end;
end;
end;
end.

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

@ -325,7 +325,7 @@ begin
AArticulos.ID_ARTICULO := FieldByName(fld_ArticulosID).AsInteger;
// AArticulos.REFERENCIA_PROVEEDOR := FieldByName(fld_ArticulosREFERENCIA_PROV).AsString;
AArticulos.DESCRIPCION := FieldByName(fld_INVENTARIODESCRIPCION).AsString;
AArticulos.CANTIDAD := 1;
AArticulos.CANTIDAD := 0;
end
//Casos 2, 3 ADetalles = IBizInventario, IDAStronglyTypedDataTable
else
@ -335,7 +335,7 @@ begin
if Supports(ADetalles, IBizInventario) then
begin
AArticulos.DESCRIPCION := FieldByName(fld_INVENTARIODESCRIPCION).AsString;
AArticulos.CANTIDAD := 1;
AArticulos.CANTIDAD := 0;
end
else
begin

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

@ -14,12 +14,12 @@ inherited DataModuleInventario: TDataModuleInventario
Top = 84
end
object rda_Inventario: TDARemoteDataAdapter
DataStreamer = Bin2DataStreamer
GetSchemaCall.RemoteService = RORemoteService
GetDataCall.RemoteService = RORemoteService
UpdateDataCall.RemoteService = RORemoteService
GetScriptsCall.RemoteService = RORemoteService
RemoteService = RORemoteService
DataStreamer = Bin2DataStreamer
Left = 51
Top = 151
end
@ -108,14 +108,14 @@ inherited DataModuleInventario: TDataModuleInventario
RemoteDataAdapter = rda_Inventario
LogicalName = 'DetalleReservas'
IndexDefs = <>
Left = 360
Top = 128
Left = 440
Top = 72
end
object ds_DetalleReservas: TDADataSource
DataSet = tbl_DetalleReservas.Dataset
DataTable = tbl_DetalleReservas
Left = 360
Top = 72
Left = 440
Top = 16
end
object tbl_Inventario: TDAMemDataTable
RemoteUpdatesOptions = []
@ -165,6 +165,21 @@ inherited DataModuleInventario: TDataModuleInventario
DataType = datString
Size = 255
end
item
Name = 'CAMPOTECNICO'
DataType = datString
Size = 200
end
item
Name = 'CODIGOTECNICO'
DataType = datString
Size = 15
end
item
Name = 'DISENOTECNICO'
DataType = datString
Size = 6
end
item
Name = 'STOCK'
DataType = datFloat
@ -196,7 +211,8 @@ inherited DataModuleInventario: TDataModuleInventario
end
item
Name = 'ID'
DataType = datInteger
DataType = datAutoInc
GeneratorName = 'GEN_MOVIMIENTOS_ID'
DisplayLabel = 'INVENTARIO_ID'
DictionaryEntry = 'INVENTARIO_ID'
InPrimaryKey = True
@ -245,4 +261,110 @@ inherited DataModuleInventario: TDataModuleInventario
Left = 184
Top = 72
end
object tbl_Movimientos_Detalle_Color: TDAMemDataTable
RemoteUpdatesOptions = []
Fields = <
item
Name = 'ID'
DataType = datAutoInc
GeneratorName = 'GEN_MOVIMIENTOS_DET_COLOR_ID'
DictionaryEntry = 'Movimientos_Detalle_Color_ID'
InPrimaryKey = True
end
item
Name = 'ID_MOVIMIENTO'
DataType = datInteger
DisplayLabel = 'Movimientos_Detalle_Color_ID_MOVIMIENTO'
DictionaryEntry = 'Movimientos_Detalle_Color_ID_MOVIMIENTO'
end
item
Name = 'COLOR1'
DataType = datInteger
DisplayLabel = 'Movimientos_Detalle_Color_COLOR1'
DictionaryEntry = 'Movimientos_Detalle_Color_COLOR1'
end
item
Name = 'COLOR2'
DataType = datInteger
DisplayLabel = 'Movimientos_Detalle_Color_COLOR2'
DictionaryEntry = 'Movimientos_Detalle_Color_COLOR2'
end
item
Name = 'COLOR3'
DataType = datInteger
DisplayLabel = 'Movimientos_Detalle_Color_COLOR3'
DictionaryEntry = 'Movimientos_Detalle_Color_COLOR3'
end
item
Name = 'COLOR4'
DataType = datInteger
DisplayLabel = 'Movimientos_Detalle_Color_COLOR4'
DictionaryEntry = 'Movimientos_Detalle_Color_COLOR4'
end
item
Name = 'COLOR5'
DataType = datInteger
DisplayLabel = 'Movimientos_Detalle_Color_COLOR5'
DictionaryEntry = 'Movimientos_Detalle_Color_COLOR5'
end
item
Name = 'COLOR6'
DataType = datInteger
DisplayLabel = 'Movimientos_Detalle_Color_COLOR6'
DictionaryEntry = 'Movimientos_Detalle_Color_COLOR6'
end
item
Name = 'COLOR7'
DataType = datInteger
DisplayLabel = 'Movimientos_Detalle_Color_COLOR7'
DictionaryEntry = 'Movimientos_Detalle_Color_COLOR7'
end
item
Name = 'COLOR8'
DataType = datInteger
DisplayLabel = 'Movimientos_Detalle_Color_COLOR8'
DictionaryEntry = 'Movimientos_Detalle_Color_COLOR8'
end
item
Name = 'COLOR9'
DataType = datInteger
DisplayLabel = 'Movimientos_Detalle_Color_COLOR9'
DictionaryEntry = 'Movimientos_Detalle_Color_COLOR9'
end
item
Name = 'COLOR10'
DataType = datInteger
DisplayLabel = 'Movimientos_Detalle_Color_COLOR10'
DictionaryEntry = 'Movimientos_Detalle_Color_COLOR10'
end
item
Name = 'COLOR11'
DataType = datInteger
DisplayLabel = 'Movimientos_Detalle_Color_COLOR11'
DictionaryEntry = 'Movimientos_Detalle_Color_COLOR11'
end
item
Name = 'COLOR12'
DataType = datInteger
DisplayLabel = 'Movimientos_Detalle_Color_COLOR12'
DictionaryEntry = 'Movimientos_Detalle_Color_COLOR12'
end>
Params = <>
MasterMappingMode = mmWhere
StreamingOptions = [soDisableEventsWhileStreaming, soDisableFiltering]
RemoteDataAdapter = rda_Inventario
MasterSource = ds_Inventario
MasterFields = 'ID'
DetailFields = 'ID_MOVIMIENTO'
LogicalName = 'Movimientos_Detalle_Color'
IndexDefs = <>
Left = 304
Top = 128
end
object ds_Movimientos_Detalle_Color: TDADataSource
DataSet = tbl_Movimientos_Detalle_Color.Dataset
DataTable = tbl_Movimientos_Detalle_Color
Left = 304
Top = 72
end
end

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

@ -8,7 +8,7 @@ uses
uRORemoteService, uROClient, uROBinMessage,
uDADesigntimeCall, uDataModuleBase,
uIDataModuleInventario, uBizInventario, uDARemoteDataAdapter, uDADataStreamer,
uDABin2DataStreamer, uDAInterfaces, uDAMemDataTable;
uDABin2DataStreamer, uDAInterfaces, uDAMemDataTable, uDADataAdapter, uBizMovimientosDetalleColor;
type
TDataModuleInventario = class(TDataModuleBase, IDataModuleInventario)
@ -19,7 +19,12 @@ type
ds_DetalleReservas: TDADataSource;
tbl_Inventario: TDAMemDataTable;
ds_Inventario: TDADataSource;
tbl_Movimientos_Detalle_Color: TDAMemDataTable;
ds_Movimientos_Detalle_Color: TDADataSource;
procedure DAClientDataModuleCreate(Sender: TObject);
private
function _GetDetalleColores : IBizMovimientosDetalleColor;
public
function GetItems : IBizInventario; overload;
function GetItems(const ID_ALMACEN : Integer) : IBizInventario; overload;
@ -100,6 +105,24 @@ begin
end;
end;
function TDataModuleInventario._GetDetalleColores: IBizMovimientosDetalleColor;
var
ADetalleColores : TDAMemDataTable;
begin
ShowHourglassCursor;
try
ADetalleColores := CloneDataTable(tbl_Movimientos_Detalle_Color);
with ADetalleColores do
begin
BusinessRulesID := BIZ_CLIENT_MOVIMIENTOS_DETALLE_COLOR;
DetailOptions := DetailOptions - [dtDisableLogOfCascadeDeletes, dtDisableLogOfCascadeUpdates];
end;
Result := (ADetalleColores as IBizMovimientosDetalleColor);
finally
HideHourglassCursor;
end;
end;
function TDataModuleInventario.GetItems: IBizInventario;
var
AInventario : TDAMemDataTable;
@ -108,6 +131,12 @@ begin
try
AInventario := CloneDataTable(tbl_Inventario);
AInventario.BusinessRulesID := BIZ_CLIENT_INVENTARIO;
with TBizInventario(AInventario.BusinessEventsObj) do
begin
DetalleColores := _GetDetalleColores;
end;
Result := (AInventario as IBizInventario);
finally
HideHourglassCursor;

16
Source/Modulos/Inventario/Inventario_Group.groupproj
View File

@ -9,6 +9,7 @@
<Projects Include="..\..\Cliente\FactuGES.dproj" />
<Projects Include="..\..\GUIBase\GUIBase.dproj" />
<Projects Include="..\..\Servidor\FactuGES_Server.dproj" />
<Projects Include="..\Albaranes de cliente\Views\AlbaranesCliente_view.dproj" />
<Projects Include="..\Albaranes de proveedor\Controller\AlbaranesProveedor_controller.dproj" />
<Projects Include="..\Albaranes de proveedor\Data\AlbaranesProveedor_data.dproj" />
<Projects Include="..\Almacenes\Controller\Almacenes_controller.dproj" />
@ -251,14 +252,23 @@
<Target Name="Almacenes_model:Make">
<MSBuild Projects="..\Almacenes\Model\Almacenes_model.dproj" Targets="Make" />
</Target>
<Target Name="AlbaranesCliente_view">
<MSBuild Projects="..\Albaranes de cliente\Views\AlbaranesCliente_view.dproj" Targets="" />
</Target>
<Target Name="AlbaranesCliente_view:Clean">
<MSBuild Projects="..\Albaranes de cliente\Views\AlbaranesCliente_view.dproj" Targets="Clean" />
</Target>
<Target Name="AlbaranesCliente_view:Make">
<MSBuild Projects="..\Albaranes de cliente\Views\AlbaranesCliente_view.dproj" Targets="Make" />
</Target>
<Target Name="Build">
<CallTarget Targets="Base;GUIBase;ApplicationBase;Contactos_view;Articulos_view;Inventario_model;Inventario_data;Inventario_controller;PedProv_AlbProv_relation;Inventario_view;Inventario_plugin;FactuGES;FactuGES_Server;Obras_controller;AlbaranesProveedor_controller;PedidosProveedor_view;PedidosProveedor_controller;Articulos_controller;AlbaranesProveedor_data;Almacenes_controller;Almacenes_data;Obras_data;Obras_model;Almacenes_model" />
<CallTarget Targets="Base;GUIBase;ApplicationBase;Contactos_view;Articulos_view;Inventario_model;Inventario_data;Inventario_controller;PedProv_AlbProv_relation;Inventario_view;Inventario_plugin;FactuGES;FactuGES_Server;Obras_controller;AlbaranesProveedor_controller;PedidosProveedor_view;PedidosProveedor_controller;Articulos_controller;AlbaranesProveedor_data;Almacenes_controller;Almacenes_data;Obras_data;Obras_model;Almacenes_model;AlbaranesCliente_view" />
</Target>
<Target Name="Clean">
<CallTarget Targets="Base:Clean;GUIBase:Clean;ApplicationBase:Clean;Contactos_view:Clean;Articulos_view:Clean;Inventario_model:Clean;Inventario_data:Clean;Inventario_controller:Clean;PedProv_AlbProv_relation:Clean;Inventario_view:Clean;Inventario_plugin:Clean;FactuGES:Clean;FactuGES_Server:Clean;Obras_controller:Clean;AlbaranesProveedor_controller:Clean;PedidosProveedor_view:Clean;PedidosProveedor_controller:Clean;Articulos_controller:Clean;AlbaranesProveedor_data:Clean;Almacenes_controller:Clean;Almacenes_data:Clean;Obras_data:Clean;Obras_model:Clean;Almacenes_model:Clean" />
<CallTarget Targets="Base:Clean;GUIBase:Clean;ApplicationBase:Clean;Contactos_view:Clean;Articulos_view:Clean;Inventario_model:Clean;Inventario_data:Clean;Inventario_controller:Clean;PedProv_AlbProv_relation:Clean;Inventario_view:Clean;Inventario_plugin:Clean;FactuGES:Clean;FactuGES_Server:Clean;Obras_controller:Clean;AlbaranesProveedor_controller:Clean;PedidosProveedor_view:Clean;PedidosProveedor_controller:Clean;Articulos_controller:Clean;AlbaranesProveedor_data:Clean;Almacenes_controller:Clean;Almacenes_data:Clean;Obras_data:Clean;Obras_model:Clean;Almacenes_model:Clean;AlbaranesCliente_view:Clean" />
</Target>
<Target Name="Make">
<CallTarget Targets="Base:Make;GUIBase:Make;ApplicationBase:Make;Contactos_view:Make;Articulos_view:Make;Inventario_model:Make;Inventario_data:Make;Inventario_controller:Make;PedProv_AlbProv_relation:Make;Inventario_view:Make;Inventario_plugin:Make;FactuGES:Make;FactuGES_Server:Make;Obras_controller:Make;AlbaranesProveedor_controller:Make;PedidosProveedor_view:Make;PedidosProveedor_controller:Make;Articulos_controller:Make;AlbaranesProveedor_data:Make;Almacenes_controller:Make;Almacenes_data:Make;Obras_data:Make;Obras_model:Make;Almacenes_model:Make" />
<CallTarget Targets="Base:Make;GUIBase:Make;ApplicationBase:Make;Contactos_view:Make;Articulos_view:Make;Inventario_model:Make;Inventario_data:Make;Inventario_controller:Make;PedProv_AlbProv_relation:Make;Inventario_view:Make;Inventario_plugin:Make;FactuGES:Make;FactuGES_Server:Make;Obras_controller:Make;AlbaranesProveedor_controller:Make;PedidosProveedor_view:Make;PedidosProveedor_controller:Make;Articulos_controller:Make;AlbaranesProveedor_data:Make;Almacenes_controller:Make;Almacenes_data:Make;Obras_data:Make;Obras_model:Make;Almacenes_model:Make;AlbaranesCliente_view:Make" />
</Target>
<Import Condition="Exists('$(MSBuildBinPath)\Borland.Group.Targets')" Project="$(MSBuildBinPath)\Borland.Group.Targets" />
</Project>

BIN
Source/Modulos/Inventario/Model/Inventario_model.dpk
View File

Binary file not shown.

61
Source/Modulos/Inventario/Model/Inventario_model.dproj
View File

@ -1,4 +1,5 @@
<Project xmlns="http://schemas.microsoft.com/developer/msbuild/2003">
<?xml version="1.0" encoding="utf-8"?>
<Project xmlns="http://schemas.microsoft.com/developer/msbuild/2003">
<PropertyGroup>
<ProjectGuid>{82e91760-acc0-4662-9c28-456e5ea6089c}</ProjectGuid>
<MainSource>Inventario_model.dpk</MainSource>
@ -39,65 +40,33 @@
<Borland.Personality>Delphi.Personality</Borland.Personality>
<Borland.ProjectType>Package</Borland.ProjectType>
<BorlandProject>
<BorlandProject xmlns=""> <Delphi.Personality> <Parameters>
<Parameters Name="UseLauncher">False</Parameters>
<Parameters Name="LoadAllSymbols">True</Parameters>
<Parameters Name="LoadUnspecifiedSymbols">False</Parameters>
</Parameters>
<Package_Options>
<Package_Options Name="ImplicitBuild">True</Package_Options>
<Package_Options Name="DesigntimeOnly">False</Package_Options>
<Package_Options Name="RuntimeOnly">False</Package_Options>
</Package_Options>
<VersionInfo>
<VersionInfo Name="IncludeVerInfo">True</VersionInfo>
<VersionInfo Name="AutoIncBuild">False</VersionInfo>
<VersionInfo Name="MajorVer">1</VersionInfo>
<VersionInfo Name="MinorVer">0</VersionInfo>
<VersionInfo Name="Release">0</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.0.0.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.0.0.0</VersionInfoKeys>
<VersionInfoKeys Name="Comments"></VersionInfoKeys>
</VersionInfoKeys>
<Source>
<Source Name="MainSource">Inventario_model.dpk</Source>
</Source>
</Delphi.Personality> </BorlandProject></BorlandProject>
<BorlandProject><Delphi.Personality><Parameters><Parameters Name="UseLauncher">False</Parameters><Parameters Name="LoadAllSymbols">True</Parameters><Parameters Name="LoadUnspecifiedSymbols">False</Parameters></Parameters><Package_Options><Package_Options Name="ImplicitBuild">False</Package_Options><Package_Options Name="DesigntimeOnly">False</Package_Options><Package_Options Name="RuntimeOnly">False</Package_Options></Package_Options><VersionInfo><VersionInfo Name="IncludeVerInfo">True</VersionInfo><VersionInfo Name="AutoIncBuild">False</VersionInfo><VersionInfo Name="MajorVer">1</VersionInfo><VersionInfo Name="MinorVer">0</VersionInfo><VersionInfo Name="Release">0</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.0.0.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.0.0.0</VersionInfoKeys><VersionInfoKeys Name="Comments"></VersionInfoKeys></VersionInfoKeys><Source><Source Name="MainSource">Inventario_model.dpk</Source></Source></Delphi.Personality></BorlandProject></BorlandProject>
</ProjectExtensions>
<Import Project="$(MSBuildBinPath)\Borland.Delphi.Targets" />
<ItemGroup>
<DelphiCompile Include="Inventario_model.dpk">
<MainSource>MainSource</MainSource>
</DelphiCompile>
<DCCReference Include="..\..\Lib\Articulos_model.dcp" />
<DCCReference Include="..\..\Lib\Base.dcp" />
<DCCReference Include="adortl.dcp" />
<DCCReference Include="Articulos_model.dcp" />
<DCCReference Include="Base.dcp" />
<DCCReference Include="DataAbstract_Core_D11.dcp" />
<DCCReference Include="Data\uIDataModuleInventario.pas" />
<DCCReference Include="dbrtl.dcp" />
<DCCReference Include="dsnap.dcp" />
<DCCReference Include="RemObjects_Core_D11.dcp" />
<DCCReference Include="rtl.dcp" />
<DCCReference Include="schInventarioClient_Intf.pas" />
<DCCReference Include="schInventarioServer_Intf.pas" />
<DCCReference Include="uBizInventario.pas" />
<DCCReference Include="uBizMovimientosDetalleColor.pas" />
<DCCReference Include="vcl.dcp" />
<DCCReference Include="vcldb.dcp" />
</ItemGroup>
</Project>
<!-- EurekaLog First Line
[Exception Log]
EurekaLog Version=6006
EurekaLog Version=6011
Activate=0
Activate Handle=1
Save Log File=1

BIN
Source/Modulos/Inventario/Model/Inventario_model.res
View File

Binary file not shown.

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

@ -1,19 +1,22 @@
unit schInventarioClient_Intf;
{$D-}
interface
uses
Classes, DB, schBase_Intf, SysUtils, uROClasses, uDAInterfaces, uDADataTable, FmtBCD, uROXMLIntf;
Classes, DB, SysUtils, uROClasses, uDAInterfaces, 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 = '{B558C6EC-462B-47CD-A0A1-277535DCDCD3}';
RID_DetalleReservas = '{B0B5857C-72EA-4C1D-841A-91AA5270F172}';
RID_Inventario = '{93499318-D59A-462A-9C13-BB123DCF4B52}';
RID_Movimientos_Detalle_Color = '{FCA12CB3-239D-41A7-BFB9-CC56290B001A}';
RID_DetalleReservas = '{2EE7CD8A-783F-4E0D-A1D6-92322C593CA2}';
{ Data table names }
nme_Inventario = 'Inventario';
nme_Movimientos_Detalle_Color = 'Movimientos_Detalle_Color';
nme_DetalleReservas = 'DetalleReservas';
{ Inventario fields }
@ -25,6 +28,9 @@ const
fld_InventarioFAMILIA = 'FAMILIA';
fld_InventarioDESCRIPCION = 'DESCRIPCION';
fld_InventarioUNIDAD_MEDIDA = 'UNIDAD_MEDIDA';
fld_InventarioCAMPOTECNICO = 'CAMPOTECNICO';
fld_InventarioCODIGOTECNICO = 'CODIGOTECNICO';
fld_InventarioDISENOTECNICO = 'DISENOTECNICO';
fld_InventarioSTOCK = 'STOCK';
fld_InventarioUNIDADES_ALMACEN = 'UNIDADES_ALMACEN';
fld_InventarioRESERVA = 'RESERVA';
@ -46,17 +52,52 @@ const
idx_InventarioFAMILIA = 5;
idx_InventarioDESCRIPCION = 6;
idx_InventarioUNIDAD_MEDIDA = 7;
idx_InventarioSTOCK = 8;
idx_InventarioUNIDADES_ALMACEN = 9;
idx_InventarioRESERVA = 10;
idx_InventarioPENDIENTE_RECEPCION = 11;
idx_InventarioTIPO_ALMACEN = 12;
idx_InventarioID = 13;
idx_InventarioCANTIDAD = 14;
idx_InventarioFECHA_MOVIMIENTO = 15;
idx_InventarioCAUSA = 16;
idx_InventarioTIPO = 17;
idx_InventarioID_ALMACEN_RESERVA = 18;
idx_InventarioCAMPOTECNICO = 8;
idx_InventarioCODIGOTECNICO = 9;
idx_InventarioDISENOTECNICO = 10;
idx_InventarioSTOCK = 11;
idx_InventarioUNIDADES_ALMACEN = 12;
idx_InventarioRESERVA = 13;
idx_InventarioPENDIENTE_RECEPCION = 14;
idx_InventarioTIPO_ALMACEN = 15;
idx_InventarioID = 16;
idx_InventarioCANTIDAD = 17;
idx_InventarioFECHA_MOVIMIENTO = 18;
idx_InventarioCAUSA = 19;
idx_InventarioTIPO = 20;
idx_InventarioID_ALMACEN_RESERVA = 21;
{ Movimientos_Detalle_Color fields }
fld_Movimientos_Detalle_ColorID = 'ID';
fld_Movimientos_Detalle_ColorID_MOVIMIENTO = 'ID_MOVIMIENTO';
fld_Movimientos_Detalle_ColorCOLOR1 = 'COLOR1';
fld_Movimientos_Detalle_ColorCOLOR2 = 'COLOR2';
fld_Movimientos_Detalle_ColorCOLOR3 = 'COLOR3';
fld_Movimientos_Detalle_ColorCOLOR4 = 'COLOR4';
fld_Movimientos_Detalle_ColorCOLOR5 = 'COLOR5';
fld_Movimientos_Detalle_ColorCOLOR6 = 'COLOR6';
fld_Movimientos_Detalle_ColorCOLOR7 = 'COLOR7';
fld_Movimientos_Detalle_ColorCOLOR8 = 'COLOR8';
fld_Movimientos_Detalle_ColorCOLOR9 = 'COLOR9';
fld_Movimientos_Detalle_ColorCOLOR10 = 'COLOR10';
fld_Movimientos_Detalle_ColorCOLOR11 = 'COLOR11';
fld_Movimientos_Detalle_ColorCOLOR12 = 'COLOR12';
{ Movimientos_Detalle_Color field indexes }
idx_Movimientos_Detalle_ColorID = 0;
idx_Movimientos_Detalle_ColorID_MOVIMIENTO = 1;
idx_Movimientos_Detalle_ColorCOLOR1 = 2;
idx_Movimientos_Detalle_ColorCOLOR2 = 3;
idx_Movimientos_Detalle_ColorCOLOR3 = 4;
idx_Movimientos_Detalle_ColorCOLOR4 = 5;
idx_Movimientos_Detalle_ColorCOLOR5 = 6;
idx_Movimientos_Detalle_ColorCOLOR6 = 7;
idx_Movimientos_Detalle_ColorCOLOR7 = 8;
idx_Movimientos_Detalle_ColorCOLOR8 = 9;
idx_Movimientos_Detalle_ColorCOLOR9 = 10;
idx_Movimientos_Detalle_ColorCOLOR10 = 11;
idx_Movimientos_Detalle_ColorCOLOR11 = 12;
idx_Movimientos_Detalle_ColorCOLOR12 = 13;
{ DetalleReservas fields }
fld_DetalleReservasID = 'ID';
@ -99,7 +140,7 @@ const
type
{ IInventario }
IInventario = interface(IDAStronglyTypedDataTable)
['{BE22C3F8-FA99-475E-8C10-4F08590A9331}']
['{A7EEDE91-8661-4933-B962-0E95C99F7EEE}']
{ Property getters and setters }
function GetID_ALMACENValue: Integer;
procedure SetID_ALMACENValue(const aValue: Integer);
@ -133,6 +174,18 @@ type
procedure SetUNIDAD_MEDIDAValue(const aValue: String);
function GetUNIDAD_MEDIDAIsNull: Boolean;
procedure SetUNIDAD_MEDIDAIsNull(const aValue: Boolean);
function GetCAMPOTECNICOValue: String;
procedure SetCAMPOTECNICOValue(const aValue: String);
function GetCAMPOTECNICOIsNull: Boolean;
procedure SetCAMPOTECNICOIsNull(const aValue: Boolean);
function GetCODIGOTECNICOValue: String;
procedure SetCODIGOTECNICOValue(const aValue: String);
function GetCODIGOTECNICOIsNull: Boolean;
procedure SetCODIGOTECNICOIsNull(const aValue: Boolean);
function GetDISENOTECNICOValue: String;
procedure SetDISENOTECNICOValue(const aValue: String);
function GetDISENOTECNICOIsNull: Boolean;
procedure SetDISENOTECNICOIsNull(const aValue: Boolean);
function GetSTOCKValue: Float;
procedure SetSTOCKValue(const aValue: Float);
function GetSTOCKIsNull: Boolean;
@ -196,6 +249,12 @@ type
property DESCRIPCIONIsNull: Boolean read GetDESCRIPCIONIsNull write SetDESCRIPCIONIsNull;
property UNIDAD_MEDIDA: String read GetUNIDAD_MEDIDAValue write SetUNIDAD_MEDIDAValue;
property UNIDAD_MEDIDAIsNull: Boolean read GetUNIDAD_MEDIDAIsNull write SetUNIDAD_MEDIDAIsNull;
property CAMPOTECNICO: String read GetCAMPOTECNICOValue write SetCAMPOTECNICOValue;
property CAMPOTECNICOIsNull: Boolean read GetCAMPOTECNICOIsNull write SetCAMPOTECNICOIsNull;
property CODIGOTECNICO: String read GetCODIGOTECNICOValue write SetCODIGOTECNICOValue;
property CODIGOTECNICOIsNull: Boolean read GetCODIGOTECNICOIsNull write SetCODIGOTECNICOIsNull;
property DISENOTECNICO: String read GetDISENOTECNICOValue write SetDISENOTECNICOValue;
property DISENOTECNICOIsNull: Boolean read GetDISENOTECNICOIsNull write SetDISENOTECNICOIsNull;
property STOCK: Float read GetSTOCKValue write SetSTOCKValue;
property STOCKIsNull: Boolean read GetSTOCKIsNull write SetSTOCKIsNull;
property UNIDADES_ALMACEN: Float read GetUNIDADES_ALMACENValue write SetUNIDADES_ALMACENValue;
@ -221,7 +280,7 @@ type
end;
{ TInventarioDataTableRules }
TInventarioDataTableRules = class(TIntfObjectDADataTableRules, IInventario)
TInventarioDataTableRules = class(TDADataTableRules, IInventario)
private
protected
{ Property getters and setters }
@ -257,6 +316,18 @@ type
procedure SetUNIDAD_MEDIDAValue(const aValue: String); virtual;
function GetUNIDAD_MEDIDAIsNull: Boolean; virtual;
procedure SetUNIDAD_MEDIDAIsNull(const aValue: Boolean); virtual;
function GetCAMPOTECNICOValue: String; virtual;
procedure SetCAMPOTECNICOValue(const aValue: String); virtual;
function GetCAMPOTECNICOIsNull: Boolean; virtual;
procedure SetCAMPOTECNICOIsNull(const aValue: Boolean); virtual;
function GetCODIGOTECNICOValue: String; virtual;
procedure SetCODIGOTECNICOValue(const aValue: String); virtual;
function GetCODIGOTECNICOIsNull: Boolean; virtual;
procedure SetCODIGOTECNICOIsNull(const aValue: Boolean); virtual;
function GetDISENOTECNICOValue: String; virtual;
procedure SetDISENOTECNICOValue(const aValue: String); virtual;
function GetDISENOTECNICOIsNull: Boolean; virtual;
procedure SetDISENOTECNICOIsNull(const aValue: Boolean); virtual;
function GetSTOCKValue: Float; virtual;
procedure SetSTOCKValue(const aValue: Float); virtual;
function GetSTOCKIsNull: Boolean; virtual;
@ -319,6 +390,12 @@ type
property DESCRIPCIONIsNull: Boolean read GetDESCRIPCIONIsNull write SetDESCRIPCIONIsNull;
property UNIDAD_MEDIDA: String read GetUNIDAD_MEDIDAValue write SetUNIDAD_MEDIDAValue;
property UNIDAD_MEDIDAIsNull: Boolean read GetUNIDAD_MEDIDAIsNull write SetUNIDAD_MEDIDAIsNull;
property CAMPOTECNICO: String read GetCAMPOTECNICOValue write SetCAMPOTECNICOValue;
property CAMPOTECNICOIsNull: Boolean read GetCAMPOTECNICOIsNull write SetCAMPOTECNICOIsNull;
property CODIGOTECNICO: String read GetCODIGOTECNICOValue write SetCODIGOTECNICOValue;
property CODIGOTECNICOIsNull: Boolean read GetCODIGOTECNICOIsNull write SetCODIGOTECNICOIsNull;
property DISENOTECNICO: String read GetDISENOTECNICOValue write SetDISENOTECNICOValue;
property DISENOTECNICOIsNull: Boolean read GetDISENOTECNICOIsNull write SetDISENOTECNICOIsNull;
property STOCK: Float read GetSTOCKValue write SetSTOCKValue;
property STOCKIsNull: Boolean read GetSTOCKIsNull write SetSTOCKIsNull;
property UNIDADES_ALMACEN: Float read GetUNIDADES_ALMACENValue write SetUNIDADES_ALMACENValue;
@ -348,9 +425,200 @@ type
end;
{ IMovimientos_Detalle_Color }
IMovimientos_Detalle_Color = interface(IDAStronglyTypedDataTable)
['{70321F06-A1BF-48BE-B73B-BED105679170}']
{ Property getters and setters }
function GetIDValue: Integer;
procedure SetIDValue(const aValue: Integer);
function GetIDIsNull: Boolean;
procedure SetIDIsNull(const aValue: Boolean);
function GetID_MOVIMIENTOValue: Integer;
procedure SetID_MOVIMIENTOValue(const aValue: Integer);
function GetID_MOVIMIENTOIsNull: Boolean;
procedure SetID_MOVIMIENTOIsNull(const aValue: Boolean);
function GetCOLOR1Value: Integer;
procedure SetCOLOR1Value(const aValue: Integer);
function GetCOLOR1IsNull: Boolean;
procedure SetCOLOR1IsNull(const aValue: Boolean);
function GetCOLOR2Value: Integer;
procedure SetCOLOR2Value(const aValue: Integer);
function GetCOLOR2IsNull: Boolean;
procedure SetCOLOR2IsNull(const aValue: Boolean);
function GetCOLOR3Value: Integer;
procedure SetCOLOR3Value(const aValue: Integer);
function GetCOLOR3IsNull: Boolean;
procedure SetCOLOR3IsNull(const aValue: Boolean);
function GetCOLOR4Value: Integer;
procedure SetCOLOR4Value(const aValue: Integer);
function GetCOLOR4IsNull: Boolean;
procedure SetCOLOR4IsNull(const aValue: Boolean);
function GetCOLOR5Value: Integer;
procedure SetCOLOR5Value(const aValue: Integer);
function GetCOLOR5IsNull: Boolean;
procedure SetCOLOR5IsNull(const aValue: Boolean);
function GetCOLOR6Value: Integer;
procedure SetCOLOR6Value(const aValue: Integer);
function GetCOLOR6IsNull: Boolean;
procedure SetCOLOR6IsNull(const aValue: Boolean);
function GetCOLOR7Value: Integer;
procedure SetCOLOR7Value(const aValue: Integer);
function GetCOLOR7IsNull: Boolean;
procedure SetCOLOR7IsNull(const aValue: Boolean);
function GetCOLOR8Value: Integer;
procedure SetCOLOR8Value(const aValue: Integer);
function GetCOLOR8IsNull: Boolean;
procedure SetCOLOR8IsNull(const aValue: Boolean);
function GetCOLOR9Value: Integer;
procedure SetCOLOR9Value(const aValue: Integer);
function GetCOLOR9IsNull: Boolean;
procedure SetCOLOR9IsNull(const aValue: Boolean);
function GetCOLOR10Value: Integer;
procedure SetCOLOR10Value(const aValue: Integer);
function GetCOLOR10IsNull: Boolean;
procedure SetCOLOR10IsNull(const aValue: Boolean);
function GetCOLOR11Value: Integer;
procedure SetCOLOR11Value(const aValue: Integer);
function GetCOLOR11IsNull: Boolean;
procedure SetCOLOR11IsNull(const aValue: Boolean);
function GetCOLOR12Value: Integer;
procedure SetCOLOR12Value(const aValue: Integer);
function GetCOLOR12IsNull: Boolean;
procedure SetCOLOR12IsNull(const aValue: Boolean);
{ Properties }
property ID: Integer read GetIDValue write SetIDValue;
property IDIsNull: Boolean read GetIDIsNull write SetIDIsNull;
property ID_MOVIMIENTO: Integer read GetID_MOVIMIENTOValue write SetID_MOVIMIENTOValue;
property ID_MOVIMIENTOIsNull: Boolean read GetID_MOVIMIENTOIsNull write SetID_MOVIMIENTOIsNull;
property COLOR1: Integer read GetCOLOR1Value write SetCOLOR1Value;
property COLOR1IsNull: Boolean read GetCOLOR1IsNull write SetCOLOR1IsNull;
property COLOR2: Integer read GetCOLOR2Value write SetCOLOR2Value;
property COLOR2IsNull: Boolean read GetCOLOR2IsNull write SetCOLOR2IsNull;
property COLOR3: Integer read GetCOLOR3Value write SetCOLOR3Value;
property COLOR3IsNull: Boolean read GetCOLOR3IsNull write SetCOLOR3IsNull;
property COLOR4: Integer read GetCOLOR4Value write SetCOLOR4Value;
property COLOR4IsNull: Boolean read GetCOLOR4IsNull write SetCOLOR4IsNull;
property COLOR5: Integer read GetCOLOR5Value write SetCOLOR5Value;
property COLOR5IsNull: Boolean read GetCOLOR5IsNull write SetCOLOR5IsNull;
property COLOR6: Integer read GetCOLOR6Value write SetCOLOR6Value;
property COLOR6IsNull: Boolean read GetCOLOR6IsNull write SetCOLOR6IsNull;
property COLOR7: Integer read GetCOLOR7Value write SetCOLOR7Value;
property COLOR7IsNull: Boolean read GetCOLOR7IsNull write SetCOLOR7IsNull;
property COLOR8: Integer read GetCOLOR8Value write SetCOLOR8Value;
property COLOR8IsNull: Boolean read GetCOLOR8IsNull write SetCOLOR8IsNull;
property COLOR9: Integer read GetCOLOR9Value write SetCOLOR9Value;
property COLOR9IsNull: Boolean read GetCOLOR9IsNull write SetCOLOR9IsNull;
property COLOR10: Integer read GetCOLOR10Value write SetCOLOR10Value;
property COLOR10IsNull: Boolean read GetCOLOR10IsNull write SetCOLOR10IsNull;
property COLOR11: Integer read GetCOLOR11Value write SetCOLOR11Value;
property COLOR11IsNull: Boolean read GetCOLOR11IsNull write SetCOLOR11IsNull;
property COLOR12: Integer read GetCOLOR12Value write SetCOLOR12Value;
property COLOR12IsNull: Boolean read GetCOLOR12IsNull write SetCOLOR12IsNull;
end;
{ TMovimientos_Detalle_ColorDataTableRules }
TMovimientos_Detalle_ColorDataTableRules = class(TDADataTableRules, IMovimientos_Detalle_Color)
private
protected
{ Property getters and setters }
function GetIDValue: Integer; virtual;
procedure SetIDValue(const aValue: Integer); virtual;
function GetIDIsNull: Boolean; virtual;
procedure SetIDIsNull(const aValue: Boolean); virtual;
function GetID_MOVIMIENTOValue: Integer; virtual;
procedure SetID_MOVIMIENTOValue(const aValue: Integer); virtual;
function GetID_MOVIMIENTOIsNull: Boolean; virtual;
procedure SetID_MOVIMIENTOIsNull(const aValue: Boolean); virtual;
function GetCOLOR1Value: Integer; virtual;
procedure SetCOLOR1Value(const aValue: Integer); virtual;
function GetCOLOR1IsNull: Boolean; virtual;
procedure SetCOLOR1IsNull(const aValue: Boolean); virtual;
function GetCOLOR2Value: Integer; virtual;
procedure SetCOLOR2Value(const aValue: Integer); virtual;
function GetCOLOR2IsNull: Boolean; virtual;
procedure SetCOLOR2IsNull(const aValue: Boolean); virtual;
function GetCOLOR3Value: Integer; virtual;
procedure SetCOLOR3Value(const aValue: Integer); virtual;
function GetCOLOR3IsNull: Boolean; virtual;
procedure SetCOLOR3IsNull(const aValue: Boolean); virtual;
function GetCOLOR4Value: Integer; virtual;
procedure SetCOLOR4Value(const aValue: Integer); virtual;
function GetCOLOR4IsNull: Boolean; virtual;
procedure SetCOLOR4IsNull(const aValue: Boolean); virtual;
function GetCOLOR5Value: Integer; virtual;
procedure SetCOLOR5Value(const aValue: Integer); virtual;
function GetCOLOR5IsNull: Boolean; virtual;
procedure SetCOLOR5IsNull(const aValue: Boolean); virtual;
function GetCOLOR6Value: Integer; virtual;
procedure SetCOLOR6Value(const aValue: Integer); virtual;
function GetCOLOR6IsNull: Boolean; virtual;
procedure SetCOLOR6IsNull(const aValue: Boolean); virtual;
function GetCOLOR7Value: Integer; virtual;
procedure SetCOLOR7Value(const aValue: Integer); virtual;
function GetCOLOR7IsNull: Boolean; virtual;
procedure SetCOLOR7IsNull(const aValue: Boolean); virtual;
function GetCOLOR8Value: Integer; virtual;
procedure SetCOLOR8Value(const aValue: Integer); virtual;
function GetCOLOR8IsNull: Boolean; virtual;
procedure SetCOLOR8IsNull(const aValue: Boolean); virtual;
function GetCOLOR9Value: Integer; virtual;
procedure SetCOLOR9Value(const aValue: Integer); virtual;
function GetCOLOR9IsNull: Boolean; virtual;
procedure SetCOLOR9IsNull(const aValue: Boolean); virtual;
function GetCOLOR10Value: Integer; virtual;
procedure SetCOLOR10Value(const aValue: Integer); virtual;
function GetCOLOR10IsNull: Boolean; virtual;
procedure SetCOLOR10IsNull(const aValue: Boolean); virtual;
function GetCOLOR11Value: Integer; virtual;
procedure SetCOLOR11Value(const aValue: Integer); virtual;
function GetCOLOR11IsNull: Boolean; virtual;
procedure SetCOLOR11IsNull(const aValue: Boolean); virtual;
function GetCOLOR12Value: Integer; virtual;
procedure SetCOLOR12Value(const aValue: Integer); virtual;
function GetCOLOR12IsNull: Boolean; virtual;
procedure SetCOLOR12IsNull(const aValue: Boolean); virtual;
{ Properties }
property ID: Integer read GetIDValue write SetIDValue;
property IDIsNull: Boolean read GetIDIsNull write SetIDIsNull;
property ID_MOVIMIENTO: Integer read GetID_MOVIMIENTOValue write SetID_MOVIMIENTOValue;
property ID_MOVIMIENTOIsNull: Boolean read GetID_MOVIMIENTOIsNull write SetID_MOVIMIENTOIsNull;
property COLOR1: Integer read GetCOLOR1Value write SetCOLOR1Value;
property COLOR1IsNull: Boolean read GetCOLOR1IsNull write SetCOLOR1IsNull;
property COLOR2: Integer read GetCOLOR2Value write SetCOLOR2Value;
property COLOR2IsNull: Boolean read GetCOLOR2IsNull write SetCOLOR2IsNull;
property COLOR3: Integer read GetCOLOR3Value write SetCOLOR3Value;
property COLOR3IsNull: Boolean read GetCOLOR3IsNull write SetCOLOR3IsNull;
property COLOR4: Integer read GetCOLOR4Value write SetCOLOR4Value;
property COLOR4IsNull: Boolean read GetCOLOR4IsNull write SetCOLOR4IsNull;
property COLOR5: Integer read GetCOLOR5Value write SetCOLOR5Value;
property COLOR5IsNull: Boolean read GetCOLOR5IsNull write SetCOLOR5IsNull;
property COLOR6: Integer read GetCOLOR6Value write SetCOLOR6Value;
property COLOR6IsNull: Boolean read GetCOLOR6IsNull write SetCOLOR6IsNull;
property COLOR7: Integer read GetCOLOR7Value write SetCOLOR7Value;
property COLOR7IsNull: Boolean read GetCOLOR7IsNull write SetCOLOR7IsNull;
property COLOR8: Integer read GetCOLOR8Value write SetCOLOR8Value;
property COLOR8IsNull: Boolean read GetCOLOR8IsNull write SetCOLOR8IsNull;
property COLOR9: Integer read GetCOLOR9Value write SetCOLOR9Value;
property COLOR9IsNull: Boolean read GetCOLOR9IsNull write SetCOLOR9IsNull;
property COLOR10: Integer read GetCOLOR10Value write SetCOLOR10Value;
property COLOR10IsNull: Boolean read GetCOLOR10IsNull write SetCOLOR10IsNull;
property COLOR11: Integer read GetCOLOR11Value write SetCOLOR11Value;
property COLOR11IsNull: Boolean read GetCOLOR11IsNull write SetCOLOR11IsNull;
property COLOR12: Integer read GetCOLOR12Value write SetCOLOR12Value;
property COLOR12IsNull: Boolean read GetCOLOR12IsNull write SetCOLOR12IsNull;
public
constructor Create(aDataTable: TDADataTable); override;
destructor Destroy; override;
end;
{ IDetalleReservas }
IDetalleReservas = interface(IDAStronglyTypedDataTable)
['{8A4D1E34-9AFD-4798-9D59-1649308DD4AB}']
['{CBB42F4A-4545-4E85-885C-3C83C7BE2D49}']
{ Property getters and setters }
function GetIDValue: Integer;
procedure SetIDValue(const aValue: Integer);
@ -460,7 +728,7 @@ type
end;
{ TDetalleReservasDataTableRules }
TDetalleReservasDataTableRules = class(TIntfObjectDADataTableRules, IDetalleReservas)
TDetalleReservasDataTableRules = class(TDADataTableRules, IDetalleReservas)
private
protected
{ Property getters and setters }
@ -758,6 +1026,69 @@ begin
DataTable.Fields[idx_InventarioUNIDAD_MEDIDA].AsVariant := Null;
end;
function TInventarioDataTableRules.GetCAMPOTECNICOValue: String;
begin
result := DataTable.Fields[idx_InventarioCAMPOTECNICO].AsString;
end;
procedure TInventarioDataTableRules.SetCAMPOTECNICOValue(const aValue: String);
begin
DataTable.Fields[idx_InventarioCAMPOTECNICO].AsString := aValue;
end;
function TInventarioDataTableRules.GetCAMPOTECNICOIsNull: boolean;
begin
result := DataTable.Fields[idx_InventarioCAMPOTECNICO].IsNull;
end;
procedure TInventarioDataTableRules.SetCAMPOTECNICOIsNull(const aValue: Boolean);
begin
if aValue then
DataTable.Fields[idx_InventarioCAMPOTECNICO].AsVariant := Null;
end;
function TInventarioDataTableRules.GetCODIGOTECNICOValue: String;
begin
result := DataTable.Fields[idx_InventarioCODIGOTECNICO].AsString;
end;
procedure TInventarioDataTableRules.SetCODIGOTECNICOValue(const aValue: String);
begin
DataTable.Fields[idx_InventarioCODIGOTECNICO].AsString := aValue;
end;
function TInventarioDataTableRules.GetCODIGOTECNICOIsNull: boolean;
begin
result := DataTable.Fields[idx_InventarioCODIGOTECNICO].IsNull;
end;
procedure TInventarioDataTableRules.SetCODIGOTECNICOIsNull(const aValue: Boolean);
begin
if aValue then
DataTable.Fields[idx_InventarioCODIGOTECNICO].AsVariant := Null;
end;
function TInventarioDataTableRules.GetDISENOTECNICOValue: String;
begin
result := DataTable.Fields[idx_InventarioDISENOTECNICO].AsString;
end;
procedure TInventarioDataTableRules.SetDISENOTECNICOValue(const aValue: String);
begin
DataTable.Fields[idx_InventarioDISENOTECNICO].AsString := aValue;
end;
function TInventarioDataTableRules.GetDISENOTECNICOIsNull: boolean;
begin
result := DataTable.Fields[idx_InventarioDISENOTECNICO].IsNull;
end;
procedure TInventarioDataTableRules.SetDISENOTECNICOIsNull(const aValue: Boolean);
begin
if aValue then
DataTable.Fields[idx_InventarioDISENOTECNICO].AsVariant := Null;
end;
function TInventarioDataTableRules.GetSTOCKValue: Float;
begin
result := DataTable.Fields[idx_InventarioSTOCK].AsFloat;
@ -990,6 +1321,312 @@ begin
end;
{ TMovimientos_Detalle_ColorDataTableRules }
constructor TMovimientos_Detalle_ColorDataTableRules.Create(aDataTable: TDADataTable);
begin
inherited;
end;
destructor TMovimientos_Detalle_ColorDataTableRules.Destroy;
begin
inherited;
end;
function TMovimientos_Detalle_ColorDataTableRules.GetIDValue: Integer;
begin
result := DataTable.Fields[idx_Movimientos_Detalle_ColorID].AsInteger;
end;
procedure TMovimientos_Detalle_ColorDataTableRules.SetIDValue(const aValue: Integer);
begin
DataTable.Fields[idx_Movimientos_Detalle_ColorID].AsInteger := aValue;
end;
function TMovimientos_Detalle_ColorDataTableRules.GetIDIsNull: boolean;
begin
result := DataTable.Fields[idx_Movimientos_Detalle_ColorID].IsNull;
end;
procedure TMovimientos_Detalle_ColorDataTableRules.SetIDIsNull(const aValue: Boolean);
begin
if aValue then
DataTable.Fields[idx_Movimientos_Detalle_ColorID].AsVariant := Null;
end;
function TMovimientos_Detalle_ColorDataTableRules.GetID_MOVIMIENTOValue: Integer;
begin
result := DataTable.Fields[idx_Movimientos_Detalle_ColorID_MOVIMIENTO].AsInteger;
end;
procedure TMovimientos_Detalle_ColorDataTableRules.SetID_MOVIMIENTOValue(const aValue: Integer);
begin
DataTable.Fields[idx_Movimientos_Detalle_ColorID_MOVIMIENTO].AsInteger := aValue;
end;
function TMovimientos_Detalle_ColorDataTableRules.GetID_MOVIMIENTOIsNull: boolean;
begin
result := DataTable.Fields[idx_Movimientos_Detalle_ColorID_MOVIMIENTO].IsNull;
end;
procedure TMovimientos_Detalle_ColorDataTableRules.SetID_MOVIMIENTOIsNull(const aValue: Boolean);
begin
if aValue then
DataTable.Fields[idx_Movimientos_Detalle_ColorID_MOVIMIENTO].AsVariant := Null;
end;
function TMovimientos_Detalle_ColorDataTableRules.GetCOLOR1Value: Integer;
begin
result := DataTable.Fields[idx_Movimientos_Detalle_ColorCOLOR1].AsInteger;
end;
procedure TMovimientos_Detalle_ColorDataTableRules.SetCOLOR1Value(const aValue: Integer);
begin
DataTable.Fields[idx_Movimientos_Detalle_ColorCOLOR1].AsInteger := aValue;
end;
function TMovimientos_Detalle_ColorDataTableRules.GetCOLOR1IsNull: boolean;
begin
result := DataTable.Fields[idx_Movimientos_Detalle_ColorCOLOR1].IsNull;
end;
procedure TMovimientos_Detalle_ColorDataTableRules.SetCOLOR1IsNull(const aValue: Boolean);
begin
if aValue then
DataTable.Fields[idx_Movimientos_Detalle_ColorCOLOR1].AsVariant := Null;
end;
function TMovimientos_Detalle_ColorDataTableRules.GetCOLOR2Value: Integer;
begin
result := DataTable.Fields[idx_Movimientos_Detalle_ColorCOLOR2].AsInteger;
end;
procedure TMovimientos_Detalle_ColorDataTableRules.SetCOLOR2Value(const aValue: Integer);
begin
DataTable.Fields[idx_Movimientos_Detalle_ColorCOLOR2].AsInteger := aValue;
end;
function TMovimientos_Detalle_ColorDataTableRules.GetCOLOR2IsNull: boolean;
begin
result := DataTable.Fields[idx_Movimientos_Detalle_ColorCOLOR2].IsNull;
end;
procedure TMovimientos_Detalle_ColorDataTableRules.SetCOLOR2IsNull(const aValue: Boolean);
begin
if aValue then
DataTable.Fields[idx_Movimientos_Detalle_ColorCOLOR2].AsVariant := Null;
end;
function TMovimientos_Detalle_ColorDataTableRules.GetCOLOR3Value: Integer;
begin
result := DataTable.Fields[idx_Movimientos_Detalle_ColorCOLOR3].AsInteger;
end;
procedure TMovimientos_Detalle_ColorDataTableRules.SetCOLOR3Value(const aValue: Integer);
begin
DataTable.Fields[idx_Movimientos_Detalle_ColorCOLOR3].AsInteger := aValue;
end;
function TMovimientos_Detalle_ColorDataTableRules.GetCOLOR3IsNull: boolean;
begin
result := DataTable.Fields[idx_Movimientos_Detalle_ColorCOLOR3].IsNull;
end;
procedure TMovimientos_Detalle_ColorDataTableRules.SetCOLOR3IsNull(const aValue: Boolean);
begin
if aValue then
DataTable.Fields[idx_Movimientos_Detalle_ColorCOLOR3].AsVariant := Null;
end;
function TMovimientos_Detalle_ColorDataTableRules.GetCOLOR4Value: Integer;
begin
result := DataTable.Fields[idx_Movimientos_Detalle_ColorCOLOR4].AsInteger;
end;
procedure TMovimientos_Detalle_ColorDataTableRules.SetCOLOR4Value(const aValue: Integer);
begin
DataTable.Fields[idx_Movimientos_Detalle_ColorCOLOR4].AsInteger := aValue;
end;
function TMovimientos_Detalle_ColorDataTableRules.GetCOLOR4IsNull: boolean;
begin
result := DataTable.Fields[idx_Movimientos_Detalle_ColorCOLOR4].IsNull;
end;
procedure TMovimientos_Detalle_ColorDataTableRules.SetCOLOR4IsNull(const aValue: Boolean);
begin
if aValue then
DataTable.Fields[idx_Movimientos_Detalle_ColorCOLOR4].AsVariant := Null;
end;
function TMovimientos_Detalle_ColorDataTableRules.GetCOLOR5Value: Integer;
begin
result := DataTable.Fields[idx_Movimientos_Detalle_ColorCOLOR5].AsInteger;
end;
procedure TMovimientos_Detalle_ColorDataTableRules.SetCOLOR5Value(const aValue: Integer);
begin
DataTable.Fields[idx_Movimientos_Detalle_ColorCOLOR5].AsInteger := aValue;
end;
function TMovimientos_Detalle_ColorDataTableRules.GetCOLOR5IsNull: boolean;
begin
result := DataTable.Fields[idx_Movimientos_Detalle_ColorCOLOR5].IsNull;
end;
procedure TMovimientos_Detalle_ColorDataTableRules.SetCOLOR5IsNull(const aValue: Boolean);
begin
if aValue then
DataTable.Fields[idx_Movimientos_Detalle_ColorCOLOR5].AsVariant := Null;
end;
function TMovimientos_Detalle_ColorDataTableRules.GetCOLOR6Value: Integer;
begin
result := DataTable.Fields[idx_Movimientos_Detalle_ColorCOLOR6].AsInteger;
end;
procedure TMovimientos_Detalle_ColorDataTableRules.SetCOLOR6Value(const aValue: Integer);
begin
DataTable.Fields[idx_Movimientos_Detalle_ColorCOLOR6].AsInteger := aValue;
end;
function TMovimientos_Detalle_ColorDataTableRules.GetCOLOR6IsNull: boolean;
begin
result := DataTable.Fields[idx_Movimientos_Detalle_ColorCOLOR6].IsNull;
end;
procedure TMovimientos_Detalle_ColorDataTableRules.SetCOLOR6IsNull(const aValue: Boolean);
begin
if aValue then
DataTable.Fields[idx_Movimientos_Detalle_ColorCOLOR6].AsVariant := Null;
end;
function TMovimientos_Detalle_ColorDataTableRules.GetCOLOR7Value: Integer;
begin
result := DataTable.Fields[idx_Movimientos_Detalle_ColorCOLOR7].AsInteger;
end;
procedure TMovimientos_Detalle_ColorDataTableRules.SetCOLOR7Value(const aValue: Integer);
begin
DataTable.Fields[idx_Movimientos_Detalle_ColorCOLOR7].AsInteger := aValue;
end;
function TMovimientos_Detalle_ColorDataTableRules.GetCOLOR7IsNull: boolean;
begin
result := DataTable.Fields[idx_Movimientos_Detalle_ColorCOLOR7].IsNull;
end;
procedure TMovimientos_Detalle_ColorDataTableRules.SetCOLOR7IsNull(const aValue: Boolean);
begin
if aValue then
DataTable.Fields[idx_Movimientos_Detalle_ColorCOLOR7].AsVariant := Null;
end;
function TMovimientos_Detalle_ColorDataTableRules.GetCOLOR8Value: Integer;
begin
result := DataTable.Fields[idx_Movimientos_Detalle_ColorCOLOR8].AsInteger;
end;
procedure TMovimientos_Detalle_ColorDataTableRules.SetCOLOR8Value(const aValue: Integer);
begin
DataTable.Fields[idx_Movimientos_Detalle_ColorCOLOR8].AsInteger := aValue;
end;
function TMovimientos_Detalle_ColorDataTableRules.GetCOLOR8IsNull: boolean;
begin
result := DataTable.Fields[idx_Movimientos_Detalle_ColorCOLOR8].IsNull;
end;
procedure TMovimientos_Detalle_ColorDataTableRules.SetCOLOR8IsNull(const aValue: Boolean);
begin
if aValue then
DataTable.Fields[idx_Movimientos_Detalle_ColorCOLOR8].AsVariant := Null;
end;
function TMovimientos_Detalle_ColorDataTableRules.GetCOLOR9Value: Integer;
begin
result := DataTable.Fields[idx_Movimientos_Detalle_ColorCOLOR9].AsInteger;
end;
procedure TMovimientos_Detalle_ColorDataTableRules.SetCOLOR9Value(const aValue: Integer);
begin
DataTable.Fields[idx_Movimientos_Detalle_ColorCOLOR9].AsInteger := aValue;
end;
function TMovimientos_Detalle_ColorDataTableRules.GetCOLOR9IsNull: boolean;
begin
result := DataTable.Fields[idx_Movimientos_Detalle_ColorCOLOR9].IsNull;
end;
procedure TMovimientos_Detalle_ColorDataTableRules.SetCOLOR9IsNull(const aValue: Boolean);
begin
if aValue then
DataTable.Fields[idx_Movimientos_Detalle_ColorCOLOR9].AsVariant := Null;
end;
function TMovimientos_Detalle_ColorDataTableRules.GetCOLOR10Value: Integer;
begin
result := DataTable.Fields[idx_Movimientos_Detalle_ColorCOLOR10].AsInteger;
end;
procedure TMovimientos_Detalle_ColorDataTableRules.SetCOLOR10Value(const aValue: Integer);
begin
DataTable.Fields[idx_Movimientos_Detalle_ColorCOLOR10].AsInteger := aValue;
end;
function TMovimientos_Detalle_ColorDataTableRules.GetCOLOR10IsNull: boolean;
begin
result := DataTable.Fields[idx_Movimientos_Detalle_ColorCOLOR10].IsNull;
end;
procedure TMovimientos_Detalle_ColorDataTableRules.SetCOLOR10IsNull(const aValue: Boolean);
begin
if aValue then
DataTable.Fields[idx_Movimientos_Detalle_ColorCOLOR10].AsVariant := Null;
end;
function TMovimientos_Detalle_ColorDataTableRules.GetCOLOR11Value: Integer;
begin
result := DataTable.Fields[idx_Movimientos_Detalle_ColorCOLOR11].AsInteger;
end;
procedure TMovimientos_Detalle_ColorDataTableRules.SetCOLOR11Value(const aValue: Integer);
begin
DataTable.Fields[idx_Movimientos_Detalle_ColorCOLOR11].AsInteger := aValue;
end;
function TMovimientos_Detalle_ColorDataTableRules.GetCOLOR11IsNull: boolean;
begin
result := DataTable.Fields[idx_Movimientos_Detalle_ColorCOLOR11].IsNull;
end;
procedure TMovimientos_Detalle_ColorDataTableRules.SetCOLOR11IsNull(const aValue: Boolean);
begin
if aValue then
DataTable.Fields[idx_Movimientos_Detalle_ColorCOLOR11].AsVariant := Null;
end;
function TMovimientos_Detalle_ColorDataTableRules.GetCOLOR12Value: Integer;
begin
result := DataTable.Fields[idx_Movimientos_Detalle_ColorCOLOR12].AsInteger;
end;
procedure TMovimientos_Detalle_ColorDataTableRules.SetCOLOR12Value(const aValue: Integer);
begin
DataTable.Fields[idx_Movimientos_Detalle_ColorCOLOR12].AsInteger := aValue;
end;
function TMovimientos_Detalle_ColorDataTableRules.GetCOLOR12IsNull: boolean;
begin
result := DataTable.Fields[idx_Movimientos_Detalle_ColorCOLOR12].IsNull;
end;
procedure TMovimientos_Detalle_ColorDataTableRules.SetCOLOR12IsNull(const aValue: Boolean);
begin
if aValue then
DataTable.Fields[idx_Movimientos_Detalle_ColorCOLOR12].AsVariant := Null;
end;
{ TDetalleReservasDataTableRules }
constructor TDetalleReservasDataTableRules.Create(aDataTable: TDADataTable);
begin
@ -1361,6 +1998,7 @@ end;
initialization
RegisterDataTableRules(RID_Inventario, TInventarioDataTableRules);
RegisterDataTableRules(RID_Movimientos_Detalle_Color, TMovimientos_Detalle_ColorDataTableRules);
RegisterDataTableRules(RID_DetalleReservas, TDetalleReservasDataTableRules);
end.

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

File diff suppressed because it is too large Load Diff

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

@ -4,7 +4,7 @@ interface
uses
uDAInterfaces, uDADataTable, schInventarioClient_Intf,
uBizArticulos, uDBSelectionListUtils;
uBizArticulos, uBizMovimientosDetalleColor, uDBSelectionListUtils;
const
BIZ_CLIENT_INVENTARIO = 'Client.Inventario';
@ -42,6 +42,10 @@ type
function GetTipo: TEnumTipoMovimiento;
procedure SetTipo(const Value: TEnumTipoMovimiento);
property TipoMovimiento: TEnumTipoMovimiento read GetTipo write SetTipo;
function GetDetalleColores: IBizMovimientosDetalleColor;
procedure SetDetalleColores(Value: IBizMovimientosDetalleColor);
property DetalleColores: IBizMovimientosDetalleColor read GetDetalleColores write SetDetalleColores;
end;
TBizDetalleReservas = class(TDetalleReservasDataTableRules, IBizDetalleReservas, ISeleccionable)
@ -60,6 +64,12 @@ type
FIDAlmacenOrigen : Integer;
FIDAlmacenDestino : Integer;
FTipoMovimiento : TEnumTipoMovimiento;
FDetalleColores : IBizMovimientosDetalleColor;
FDetalleColoresLink : TDADataSource;
function GetDetalleColores: IBizMovimientosDetalleColor;
procedure SetDetalleColores(Value: IBizMovimientosDetalleColor);
function GetIDAlmacenOrigen: Integer;
procedure SetIDAlmacenOrigen(const Value: Integer);
function GetIDAlmacenDestino: Integer;
@ -80,6 +90,7 @@ type
property TipoMovimiento: TEnumTipoMovimiento read GetTipo write SetTipo;
property SeleccionableInterface : ISeleccionable read FSeleccionableInterface
write FSeleccionableInterface implements ISeleccionable;
property DetalleColores: IBizMovimientosDetalleColor read GetDetalleColores write SetDetalleColores;
constructor Create(aDataTable: TDADataTable); override;
destructor Destroy; override;
@ -128,11 +139,16 @@ begin
IDAlmacenDestino := -1;
TipoMovimiento := tEntradaLibre;
FSeleccionableInterface := TSeleccionable.Create(aDataTable);
FDetalleColoresLink := TDADataSource.Create(NIL);
FDetalleColoresLink.DataTable := aDataTable;
end;
destructor TBizInventario.Destroy;
begin
FSeleccionableInterface := NIL;
FDetalleColores := NIL;
FDetalleColoresLink.Free;
inherited;
end;
@ -157,6 +173,11 @@ begin
End;
end;
function TBizInventario.GetDetalleColores: IBizMovimientosDetalleColor;
begin
Result := FDetalleColores;
end;
function TBizInventario.GetIDAlmacenDestino: Integer;
begin
Result := FIDAlmacenDestino;
@ -172,6 +193,12 @@ begin
Result := FTipoMovimiento;
end;
procedure TBizInventario.SetDetalleColores(Value: IBizMovimientosDetalleColor);
begin
FDetalleColores := Value;
EnlazarMaestroDetalle(FDetalleColoresLink, FDetalleColores);
end;
procedure TBizInventario.SetIDAlmacenDestino(const Value: Integer);
begin
FIDAlmacenDestino := Value;

48
Source/Modulos/Inventario/Model/uBizMovimientosDetalleColor.pas Normal file
View File

@ -0,0 +1,48 @@
unit uBizMovimientosDetalleColor;
interface
uses
uDADataTable, schInventarioClient_Intf;
const
BIZ_CLIENT_MOVIMIENTOS_DETALLE_COLOR = 'Client.MovimientosDetalleColor';
type
IBizMovimientosDetalleColor = interface(IMovimientos_Detalle_Color)
['{D8145BFA-9DBC-4889-9FC4-7C7194A24BBF}']
end;
TBizMovimientosDetalleColor = class(TMovimientos_Detalle_ColorDataTableRules, IBizMovimientosDetalleColor)
protected
procedure OnNewRecord(Sender: TDADataTable); override;
procedure BeforeInsert(Sender: TDADataTable); override;
end;
implementation
uses
DB;
{ TBizMovimientosDetalleColor }
procedure TBizMovimientosDetalleColor.BeforeInsert(Sender: TDADataTable);
var
AMasterTable : TDADataTable;
begin
inherited;
AMasterTable := DataTable.GetMasterDataTable;
if Assigned(AMasterTable) and (AMasterTable.State = dsInsert) then
AMasterTable.Post;
end;
procedure TBizMovimientosDetalleColor.OnNewRecord(Sender: TDADataTable);
begin
inherited;
end;
initialization
RegisterDataTableRules(BIZ_CLIENT_MOVIMIENTOS_DETALLE_COLOR, TBizMovimientosDetalleColor);
end.

2
Source/Modulos/Inventario/Plugin/uPluginInventario.dfm
View File

@ -175,7 +175,9 @@ object PluginInventario: TPluginInventario
object actInventarioObras: TAction
Category = 'Log'#237'stica'
Caption = 'Inventario obras'
Enabled = False
ImageIndex = 1
Visible = False
OnExecute = actInventarioObrasExecute
end
end

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

@ -5,8 +5,8 @@ object srvInventario: TsrvInventario
ServiceDataStreamer = Bin2DataStreamer
ExportedDataTables = <>
BeforeAcquireConnection = DataAbstractServiceBeforeAcquireConnection
Height = 168
Width = 300
Height = 212
Width = 335
object schInventario: TDASchema
ConnectionManager = dmServer.ConnectionManager
DataDictionary = DataDictionary
@ -19,18 +19,19 @@ object srvInventario: TsrvInventario
TargetTable = 'V_INVENTARIO'
SQL =
'SELECT'#10' ID_ALMACEN, ID_ARTICULO, NOMBRE as ALMACEN, ID_EMPRES' +
'A, REFERENCIA, FAMILIA,'#10' DESCRIPCION, UNIDAD_MEDIDA,'#10'/* RE' +
'FERENCIA_PROV as REFERENCIA_PROVEEDOR, PRECIO_NETO, COSTE_UNIDAD' +
'ES, SE ELIMINAN LOS PRECIOS CON HASTA SABER QUE DECISIONES SE T' +
'OMAN*/'#10' STOCK, UNIDADES_ALMACEN, RESERVA, PENDIENTE_RECEPCION' +
', TIPO_ALMACEN,'#10' '#10' /*'#10' NO BORRAR YA QUE SIRVE PARA LAS ' +
'ENTRADAS Y SALIDAS DE ALMACEN(TABLA MOVIMIENTOS)'#10' DEBERIA GEN' +
'ERAR UNA TABLA DE MOVIMIENTOS INDEPENDIENTE DEL INVENTARIO PERO ' +
'POR FALTA'#10' DE TIEMPO Y FIABILIDAD YA QUE AHORA FUNCIONA TODO,' +
' CREAMOS ESTOS CAMPOS FICTICIOS'#10' */'#10#10' 0 as ID, 0 as CANTID' +
'AD, current_date as FECHA_MOVIMIENTO, NULL as CAUSA, NULL as TIP' +
'O,'#10' 0 as ID_ALMACEN_RESERVA'#10#10#10'FROM V_INVENTARIO'#10'where {where}' +
#10'ORDER BY ID_ARTICULO'#10
'A, REFERENCIA, FAMILIA,'#10' DESCRIPCION, UNIDAD_MEDIDA, CAMPOTEC' +
'NICO, CODIGOTECNICO, DISENOTECNICO,'#10#10'/* REFERENCIA_PROV as RE' +
'FERENCIA_PROVEEDOR, PRECIO_NETO, COSTE_UNIDADES, SE ELIMINAN LO' +
'S PRECIOS CON HASTA SABER QUE DECISIONES SE TOMAN*/'#10' STOCK, U' +
'NIDADES_ALMACEN, RESERVA, PENDIENTE_RECEPCION, TIPO_ALMACEN,'#10' ' +
' '#10' /*'#10' NO BORRAR YA QUE SIRVE PARA LAS ENTRADAS Y SALIDAS ' +
'DE ALMACEN(TABLA MOVIMIENTOS)'#10' DEBERIA GENERAR UNA TABLA DE M' +
'OVIMIENTOS INDEPENDIENTE DEL INVENTARIO PERO POR FALTA'#10' DE TI' +
'EMPO Y FIABILIDAD YA QUE AHORA FUNCIONA TODO, CREAMOS ESTOS CAMP' +
'OS FICTICIOS'#10' */'#10#10' 0 as ID, 0 as CANTIDAD, current_date as' +
' FECHA_MOVIMIENTO, NULL as CAUSA, NULL as TIPO,'#10' 0 as ID_ALMA' +
'CEN_RESERVA'#10#10#10'FROM V_INVENTARIO'#10'where {where}'#10'ORDER BY ID_ARTICU' +
'LO'#10#10#10#10
StatementType = stSQL
ColumnMappings = <
item
@ -43,8 +44,7 @@ object srvInventario: TsrvInventario
end
item
DatasetField = 'ALMACEN'
TableField = '<unknown>'
SQLOrigin = 'ALMACEN'
TableField = 'ALMACEN'
end
item
DatasetField = 'ID_EMPRESA'
@ -66,6 +66,18 @@ object srvInventario: TsrvInventario
DatasetField = 'UNIDAD_MEDIDA'
TableField = 'UNIDAD_MEDIDA'
end
item
DatasetField = 'CAMPOTECNICO'
TableField = 'CAMPOTECNICO'
end
item
DatasetField = 'CODIGOTECNICO'
TableField = 'CODIGOTECNICO'
end
item
DatasetField = 'DISENOTECNICO'
TableField = 'DISENOTECNICO'
end
item
DatasetField = 'STOCK'
TableField = 'STOCK'
@ -88,33 +100,27 @@ object srvInventario: TsrvInventario
end
item
DatasetField = 'ID'
TableField = '<unknown>'
SQLOrigin = 'ID'
TableField = 'ID'
end
item
DatasetField = 'CANTIDAD'
TableField = '<unknown>'
SQLOrigin = 'CANTIDAD'
TableField = 'CANTIDAD'
end
item
DatasetField = 'FECHA_MOVIMIENTO'
TableField = '<unknown>'
SQLOrigin = 'FECHA_MOVIMIENTO'
TableField = 'FECHA_MOVIMIENTO'
end
item
DatasetField = 'CAUSA'
TableField = '<unknown>'
SQLOrigin = 'CAUSA'
TableField = 'CAUSA'
end
item
DatasetField = 'TIPO'
TableField = '<unknown>'
SQLOrigin = 'TIPO'
TableField = 'TIPO'
end
item
DatasetField = 'ID_ALMACEN_RESERVA'
TableField = '<unknown>'
SQLOrigin = 'ID_ALMACEN_RESERVA'
TableField = 'ID_ALMACEN_RESERVA'
end>
end>
Name = 'Inventario'
@ -163,6 +169,21 @@ object srvInventario: TsrvInventario
DataType = datString
Size = 255
end
item
Name = 'CAMPOTECNICO'
DataType = datString
Size = 200
end
item
Name = 'CODIGOTECNICO'
DataType = datString
Size = 15
end
item
Name = 'DISENOTECNICO'
DataType = datString
Size = 6
end
item
Name = 'STOCK'
DataType = datFloat
@ -190,7 +211,8 @@ object srvInventario: TsrvInventario
end
item
Name = 'ID'
DataType = datInteger
DataType = datAutoInc
GeneratorName = 'GEN_MOVIMIENTOS_ID'
DictionaryEntry = 'INVENTARIO_ID'
InPrimaryKey = True
end
@ -221,6 +243,151 @@ object srvInventario: TsrvInventario
DataType = datInteger
end>
end
item
Params = <>
Statements = <
item
ConnectionType = 'Interbase'
Default = True
Name = 'IBX'
SQL =
'SELECT ID, ID_MOVIMIENTO, COLOR1, COLOR2, COLOR3, COLOR4, COLOR5' +
', COLOR6, COLOR7, COLOR8,'#10' COLOR9, COLOR10, COLOR11, COLOR' +
'12'#10'FROM MOVIMIENTOS_DETALLE_COLOR'#10'where {where}'#10
StatementType = stSQL
ColumnMappings = <
item
DatasetField = 'ID'
TableField = 'ID'
end
item
DatasetField = 'ID_MOVIMIENTO'
TableField = 'ID_MOVIMIENTO'
end
item
DatasetField = 'COLOR1'
TableField = 'COLOR1'
end
item
DatasetField = 'COLOR2'
TableField = 'COLOR2'
end
item
DatasetField = 'COLOR3'
TableField = 'COLOR3'
end
item
DatasetField = 'COLOR4'
TableField = 'COLOR4'
end
item
DatasetField = 'COLOR5'
TableField = 'COLOR5'
end
item
DatasetField = 'COLOR6'
TableField = 'COLOR6'
end
item
DatasetField = 'COLOR7'
TableField = 'COLOR7'
end
item
DatasetField = 'COLOR8'
TableField = 'COLOR8'
end
item
DatasetField = 'COLOR9'
TableField = 'COLOR9'
end
item
DatasetField = 'COLOR10'
TableField = 'COLOR10'
end
item
DatasetField = 'COLOR11'
TableField = 'COLOR11'
end
item
DatasetField = 'COLOR12'
TableField = 'COLOR12'
end>
end>
Name = 'Movimientos_Detalle_Color'
Fields = <
item
Name = 'ID'
DataType = datAutoInc
GeneratorName = 'GEN_MOVIMIENTOS_DET_COLOR_ID'
DictionaryEntry = 'Movimientos_Detalle_Color_ID'
InPrimaryKey = True
end
item
Name = 'ID_MOVIMIENTO'
DataType = datInteger
DictionaryEntry = 'Movimientos_Detalle_Color_ID_MOVIMIENTO'
end
item
Name = 'COLOR1'
DataType = datInteger
DictionaryEntry = 'Movimientos_Detalle_Color_COLOR1'
end
item
Name = 'COLOR2'
DataType = datInteger
DictionaryEntry = 'Movimientos_Detalle_Color_COLOR2'
end
item
Name = 'COLOR3'
DataType = datInteger
DictionaryEntry = 'Movimientos_Detalle_Color_COLOR3'
end
item
Name = 'COLOR4'
DataType = datInteger
DictionaryEntry = 'Movimientos_Detalle_Color_COLOR4'
end
item
Name = 'COLOR5'
DataType = datInteger
DictionaryEntry = 'Movimientos_Detalle_Color_COLOR5'
end
item
Name = 'COLOR6'
DataType = datInteger
DictionaryEntry = 'Movimientos_Detalle_Color_COLOR6'
end
item
Name = 'COLOR7'
DataType = datInteger
DictionaryEntry = 'Movimientos_Detalle_Color_COLOR7'
end
item
Name = 'COLOR8'
DataType = datInteger
DictionaryEntry = 'Movimientos_Detalle_Color_COLOR8'
end
item
Name = 'COLOR9'
DataType = datInteger
DictionaryEntry = 'Movimientos_Detalle_Color_COLOR9'
end
item
Name = 'COLOR10'
DataType = datInteger
DictionaryEntry = 'Movimientos_Detalle_Color_COLOR10'
end
item
Name = 'COLOR11'
DataType = datInteger
DictionaryEntry = 'Movimientos_Detalle_Color_COLOR11'
end
item
Name = 'COLOR12'
DataType = datInteger
DictionaryEntry = 'Movimientos_Detalle_Color_COLOR12'
end>
end
item
Params = <>
Statements = <
@ -518,9 +685,264 @@ object srvInventario: TsrvInventario
ColumnMappings = <>
end>
Name = 'Update_Inventario'
end
item
Params = <
item
Name = 'ID'
DataType = datAutoInc
GeneratorName = 'GEN_MOVIMIENTOS_DET_COLOR_ID'
Value = ''
end
item
Name = 'ID_MOVIMIENTO'
DataType = datInteger
Value = ''
end
item
Name = 'COLOR1'
DataType = datInteger
Value = ''
end
item
Name = 'COLOR2'
DataType = datInteger
Value = ''
end
item
Name = 'COLOR3'
DataType = datInteger
Value = ''
end
item
Name = 'COLOR4'
DataType = datInteger
Value = ''
end
item
Name = 'COLOR5'
DataType = datInteger
Value = ''
end
item
Name = 'COLOR6'
DataType = datInteger
Value = ''
end
item
Name = 'COLOR7'
DataType = datInteger
Value = ''
end
item
Name = 'COLOR8'
DataType = datInteger
Value = ''
end
item
Name = 'COLOR9'
DataType = datInteger
Value = ''
end
item
Name = 'COLOR10'
DataType = datInteger
Value = ''
end
item
Name = 'COLOR11'
DataType = datInteger
Value = ''
end
item
Name = 'COLOR12'
DataType = datInteger
Value = ''
end>
Statements = <
item
Connection = 'IBX'
TargetTable = 'MOVIMIENTOS_DETALLE_COLOR'
SQL =
'INSERT'#10' INTO MOVIMIENTOS_DETALLE_COLOR'#10' (ID, ID_MOVIMIENTO, ' +
'COLOR1, COLOR2, COLOR3, COLOR4, '#10' COLOR5, COLOR6, COLOR7, CO' +
'LOR8, COLOR9, COLOR10, COLOR11, '#10' COLOR12)'#10' VALUES'#10' (:ID' +
', :ID_MOVIMIENTO, :COLOR1, :COLOR2, :COLOR3, :COLOR4,'#10' :COLO' +
'R5, :COLOR6, :COLOR7, :COLOR8, :COLOR9, :COLOR10, '#10' :COLOR11' +
', :COLOR12)'#10
StatementType = stSQL
ColumnMappings = <>
end>
Name = 'Insert_Movimientos_Detalle_Color'
end
item
Params = <
item
Name = 'OLD_ID'
DataType = datInteger
Value = ''
end>
Statements = <
item
Connection = 'IBX'
ConnectionType = 'Interbase'
Default = True
TargetTable = 'MOVIMIENTOS_DETALLE_COLOR'
SQL =
'DELETE '#10' FROM'#10' MOVIMIENTOS_DETALLE_COLOR'#10' WHERE'#10' (ID = :' +
'OLD_ID)'#10
StatementType = stSQL
ColumnMappings = <>
end>
Name = 'Delete_Movimientos_Detalle_Color'
end
item
Params = <
item
Name = 'ID'
DataType = datInteger
Value = ''
end
item
Name = 'ID_MOVIMIENTO'
DataType = datInteger
Value = ''
end
item
Name = 'COLOR1'
DataType = datInteger
Value = ''
end
item
Name = 'COLOR2'
DataType = datInteger
Value = ''
end
item
Name = 'COLOR3'
DataType = datInteger
Value = ''
end
item
Name = 'COLOR4'
DataType = datInteger
Value = ''
end
item
Name = 'COLOR5'
DataType = datInteger
Value = ''
end
item
Name = 'COLOR6'
DataType = datInteger
Value = ''
end
item
Name = 'COLOR7'
DataType = datInteger
Value = ''
end
item
Name = 'COLOR8'
DataType = datInteger
Value = ''
end
item
Name = 'COLOR9'
DataType = datInteger
Value = ''
end
item
Name = 'COLOR10'
DataType = datInteger
Value = ''
end
item
Name = 'COLOR11'
DataType = datInteger
Value = ''
end
item
Name = 'COLOR12'
DataType = datInteger
Value = ''
end
item
Name = 'OLD_ID'
Value = ''
end>
Statements = <
item
Connection = 'IBX'
ConnectionType = 'Interbase'
Default = True
TargetTable = 'MOVIMIENTOS_DETALLE_COLOR'
SQL =
'UPDATE MOVIMIENTOS_DETALLE_COLOR'#10' SET '#10' ID = :ID, '#10' ID_MO' +
'VIMIENTO = :ID_MOVIMIENTO,'#10' COLOR1 = :COLOR1, '#10' COLOR2 = :' +
'COLOR2, '#10' COLOR3 = :COLOR3, '#10' COLOR4 = :COLOR4, '#10' COLOR' +
'5 = :COLOR5, '#10' COLOR6 = :COLOR6, '#10' COLOR7 = :COLOR7, '#10' ' +
'COLOR8 = :COLOR8, '#10' COLOR9 = :COLOR9, '#10' COLOR10 = :COLOR10' +
', '#10' COLOR11 = :COLOR11, '#10' COLOR12 = :COLOR12'#10' WHERE'#10' (' +
'ID = :OLD_ID)'#10
StatementType = stSQL
ColumnMappings = <>
end>
Name = 'Update_Movimientos_Detalle_Color'
end>
RelationShips = <
item
Name = 'FK_Movimientos_Detalle_Color'
MasterDatasetName = 'Inventario'
MasterFields = 'ID'
DetailDatasetName = 'Movimientos_Detalle_Color'
DetailFields = 'ID_MOVIMIENTO'
RelationshipType = rtForeignKey
end>
UpdateRules = <
item
Name = 'Insert Inventario'
DoUpdate = False
DoDelete = False
DatasetName = 'Inventario'
FailureBehavior = fbRaiseException
end
item
Name = 'Insert Movimientos_Detalle_Color'
DoUpdate = False
DoDelete = False
DatasetName = 'Movimientos_Detalle_Color'
FailureBehavior = fbRaiseException
end
item
Name = 'Update Inventario'
DoInsert = False
DoDelete = False
DatasetName = 'Inventario'
FailureBehavior = fbRaiseException
end
item
Name = 'Update Movimientos_Detalle_Color'
DoInsert = False
DoDelete = False
DatasetName = 'Movimientos_Detalle_Color'
FailureBehavior = fbRaiseException
end
item
Name = 'Delete Movimientos_Detalle_Color'
DoUpdate = False
DoInsert = False
DatasetName = 'Movimientos_Detalle_Color'
FailureBehavior = fbRaiseException
end
item
Name = 'Delete Inventario'
DoUpdate = False
DoInsert = False
DatasetName = 'Inventario'
FailureBehavior = fbRaiseException
end>
RelationShips = <>
UpdateRules = <>
Version = 0
Left = 40
Top = 16
@ -531,7 +953,7 @@ object srvInventario: TsrvInventario
DeleteCommandName = 'Delete_Inventario'
UpdateCommandName = 'Update_Inventario'
ReferencedDataset = 'INVENTARIO'
ProcessorOptions = [poAutoGenerateRefreshDataset, poPrepareCommands]
ProcessorOptions = [poPrepareCommands]
UpdateMode = updWhereKeyOnly
Left = 208
Top = 16
@ -600,7 +1022,8 @@ object srvInventario: TsrvInventario
end
item
Name = 'INVENTARIO_ID'
DataType = datInteger
DataType = datAutoInc
GeneratorName = 'GEN_MOVIMIENTOS_ID'
ServerAutoRefresh = True
end
item
@ -729,6 +1152,64 @@ object srvInventario: TsrvInventario
item
Name = 'DETALLE_RESERVAS_INV_ID_EMPRESA'
DataType = datInteger
end
item
Name = 'Movimientos_Detalle_Color_ID'
DataType = datAutoInc
GeneratorName = 'GEN_MOVIMIENTOS_DET_COLOR_ID'
DisplayLabel = 'ID'
end
item
Name = 'Movimientos_Detalle_Color_ID_MOVIMIENTO'
DataType = datInteger
end
item
Name = 'Movimientos_Detalle_Color_COLOR1'
DataType = datInteger
end
item
Name = 'Movimientos_Detalle_Color_COLOR2'
DataType = datInteger
end
item
Name = 'Movimientos_Detalle_Color_COLOR3'
DataType = datInteger
end
item
Name = 'Movimientos_Detalle_Color_COLOR4'
DataType = datInteger
end
item
Name = 'Movimientos_Detalle_Color_COLOR5'
DataType = datInteger
end
item
Name = 'Movimientos_Detalle_Color_COLOR6'
DataType = datInteger
end
item
Name = 'Movimientos_Detalle_Color_COLOR7'
DataType = datInteger
end
item
Name = 'Movimientos_Detalle_Color_COLOR8'
DataType = datInteger
end
item
Name = 'Movimientos_Detalle_Color_COLOR9'
DataType = datInteger
end
item
Name = 'Movimientos_Detalle_Color_COLOR10'
DataType = datInteger
end
item
Name = 'Movimientos_Detalle_Color_COLOR11'
DataType = datInteger
end
item
Name = 'Movimientos_Detalle_Color_COLOR12'
DataType = datInteger
end>
Left = 126
Top = 14
@ -746,4 +1227,15 @@ object srvInventario: TsrvInventario
Left = 208
Top = 72
end
object bpMovimientos_DetalleColor: TDABusinessProcessor
Schema = schInventario
InsertCommandName = 'Insert_Movimientos_Detalle_Color'
DeleteCommandName = 'Delete_Movimientos_Detalle_Color'
UpdateCommandName = 'Update_Movimientos_Detalle_Color'
ReferencedDataset = 'Movimientos_Detalle_Color'
ProcessorOptions = [poPrepareCommands]
UpdateMode = updWhereKeyOnly
Left = 208
Top = 136
end
end

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

@ -24,6 +24,7 @@ type
bpInventario: TDABusinessProcessor;
Bin2DataStreamer: TDABin2DataStreamer;
bpReservas: TDABusinessProcessor;
bpMovimientos_DetalleColor: TDABusinessProcessor;
schInventario: TDASchema;
DataDictionary: TDADataDictionary;
procedure DARemoteServiceAfterGetDatasetData(const Dataset: IDADataset;

141
Source/Modulos/Inventario/Views/uEditorElegirArticulosCatalogo.dfm
View File

@ -6,80 +6,61 @@ inherited fEditorElegirArticulosCatalogo: TfEditorElegirArticulosCatalogo
ExplicitHeight = 611
PixelsPerInch = 96
TextHeight = 13
object pnlHeader: TPanel
Left = 0
Top = 0
Width = 656
Height = 64
Align = alTop
BevelOuter = bvNone
Color = clWhite
Padding.Left = 25
Padding.Top = 8
Padding.Right = 25
Padding.Bottom = 8
ParentBackground = False
TabOrder = 5
object lblTitle: TLabel
AlignWithMargins = True
Left = 25
Top = 8
Width = 606
Height = 13
Margins.Left = 0
Margins.Top = 0
Margins.Right = 0
Margins.Bottom = 8
Align = alTop
Caption = ''
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'Tahoma'
Font.Style = [fsBold]
ParentFont = False
ExplicitWidth = 135
end
object lblComments: TLabel
AlignWithMargins = True
Left = 50
Top = 29
Width = 581
Height = 27
Margins.Left = 25
Margins.Top = 0
Margins.Right = 0
Align = alClient
ExplicitWidth = 3
ExplicitHeight = 13
end
end
inherited JvNavPanelHeader: TJvNavPanelHeader
Width = 697
ExplicitWidth = 697
inherited Image1: TImage
Left = 670
ExplicitLeft = 670
end
end
inherited TBXDock: TSpTBXDock
Width = 697
ExplicitWidth = 697
inherited tbxMain: TSpTBXToolbar
ExplicitWidth = 265
end
inherited tbxFiltro: TSpTBXToolbar
Left = 265
ExplicitLeft = 265
end
inherited tbxMenu: TSpTBXToolbar
ExplicitWidth = 697
end
inherited TBXTMain2: TSpTBXToolbar
Left = 661
DockPos = 401
ExplicitLeft = 661
end
end
inherited StatusBar: TJvStatusBar
Top = 558
Width = 697
ExplicitTop = 558
ExplicitWidth = 697
end
inherited pnlHeader: TPanel
Width = 697
TabOrder = 5
inherited lblTitle: TLabel
Width = 647
end
inherited lblComments: TLabel
Width = 622
Height = 24
end
end
inherited frViewBarraSeleccion1: TfrViewBarraSeleccion
Top = 509
Width = 697
ExplicitTop = 509
ExplicitWidth = 697
inherited JvFooter1: TJvFooter
Width = 697
ExplicitWidth = 697
inherited bSeleccionar: TJvFooterBtn
Left = 485
ExplicitLeft = 485
end
inherited bCancelar: TJvFooterBtn
Left = 589
@ -89,9 +70,9 @@ inherited fEditorElegirArticulosCatalogo: TfEditorElegirArticulosCatalogo
end
inline frViewElegirArticulosCatalogo1: TfrViewElegirArticulosCatalogo [5]
Left = 0
Top = 136
Top = 140
Width = 697
Height = 373
Height = 369
Align = alClient
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
@ -101,11 +82,14 @@ inherited fEditorElegirArticulosCatalogo: TfEditorElegirArticulosCatalogo
ParentFont = False
TabOrder = 4
ReadOnly = False
ExplicitLeft = -59
ExplicitTop = -18
ExplicitTop = 140
ExplicitWidth = 697
ExplicitHeight = 369
inherited cxGrid: TcxGrid
Width = 697
Height = 245
Height = 242
ExplicitWidth = 697
ExplicitHeight = 242
inherited cxGridView: TcxGridDBTableView
DataController.Summary.FooterSummaryItems = <
item
@ -117,29 +101,69 @@ inherited fEditorElegirArticulosCatalogo: TfEditorElegirArticulosCatalogo
end
inherited frViewFiltroBase1: TfrViewFiltroBase
Width = 697
ExplicitWidth = 697
inherited TBXDockablePanel1: TSpTBXDockablePanel
Width = 697
ExplicitWidth = 697
inherited dxLayoutControl1: TdxLayoutControl
Width = 697
ExplicitWidth = 697
inherited txtFiltroTodo: TcxTextEdit
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
end
inherited edtFechaIniFiltro: TcxDateEdit
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitWidth = 121
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 = 304
Width = 304
end
end
inherited TBXAlignmentPanel1: TSpTBXDockablePanel
Width = 697
Width = 687
ExplicitWidth = 687
inherited tbxBotones: TSpTBXToolbar
Width = 687
ExplicitWidth = 687
end
end
end
end
inherited pnlAgrupaciones: TSpTBXDockablePanel
Top = 347
ExplicitWidth = 715
Top = 344
Width = 697
ExplicitTop = 344
ExplicitWidth = 697
inherited TBXAlignmentPanel1: TSpTBXDockablePanel
Width = 697
ExplicitWidth = 697
inherited TBXToolbar1: TSpTBXToolbar
Width = 687
Width = 697
ExplicitWidth = 697
end
end
end
@ -149,6 +173,9 @@ inherited fEditorElegirArticulosCatalogo: TfEditorElegirArticulosCatalogo
BuiltInReportLink = True
end
end
inherited dxPSEngineController1: TdxPSEngineController
Active = True
end
inherited cxViewGridPopupMenu: TcxGridPopupMenu
PopupMenus = <
item

3
Source/Modulos/Inventario/Views/uEditorElegirArticulosCatalogo.pas
View File

@ -10,7 +10,8 @@ uses
JvExComCtrls, JvStatusBar, SpTBXItem, TB2ExtItems, TB2Item, TB2Dock,
TB2Toolbar, pngimage, ExtCtrls, JvExControls, JvComponent, JvNavigationPane,
uIEditorElegirArticulosCatalogo, uDAInterfaces,
uViewGridBase, uViewGrid, uViewArticulos, uViewElegirArticulosCatalogo;
uViewGridBase, uViewGrid, uViewArticulos, uViewElegirArticulosCatalogo,
StdCtrls, TntStdCtrls, SpTBXEditors;
type
TfEditorElegirArticulosCatalogo = class(TfEditorElegirArticulos, IEditorElegirArticulosCatalogo)

492
Source/Modulos/Inventario/Views/uEditorEntradaSalidaArticulos.dfm
View File

@ -10,8 +10,10 @@ inherited fEditorEntradaSalidaArticulos: TfEditorEntradaSalidaArticulos
PixelsPerInch = 96
TextHeight = 13
inherited JvNavPanelHeader: TJvNavPanelHeader
Top = 177
Width = 853
Caption = 'Entrada de art'#237'culos en '
ExplicitTop = 177
ExplicitWidth = 853
inherited Image1: TImage
Left = 720
@ -37,6 +39,8 @@ inherited fEditorEntradaSalidaArticulos: TfEditorEntradaSalidaArticulos
inherited lblDesbloquear: TcxLabel
Left = 755
ExplicitLeft = 755
AnchorX = 800
AnchorY = 14
end
end
inherited TBXDock: TSpTBXDock
@ -63,19 +67,19 @@ inherited fEditorEntradaSalidaArticulos: TfEditorEntradaSalidaArticulos
end
end
inherited pgPaginas: TPageControl
Top = 257
Top = 324
Width = 847
Height = 277
Height = 210
MultiLine = True
Visible = False
ExplicitTop = 257
ExplicitTop = 324
ExplicitWidth = 847
ExplicitHeight = 277
ExplicitHeight = 210
inherited pagGeneral: TTabSheet
ExplicitLeft = 4
ExplicitTop = 24
ExplicitWidth = 839
ExplicitHeight = 249
ExplicitHeight = 182
end
end
inherited StatusBar: TJvStatusBar
@ -91,7 +95,7 @@ inherited fEditorEntradaSalidaArticulos: TfEditorEntradaSalidaArticulos
object ToolBar1: TToolBar [4]
AlignWithMargins = True
Left = 5
Top = 224
Top = 291
Width = 843
Height = 30
Margins.Left = 5
@ -137,202 +141,81 @@ inherited fEditorEntradaSalidaArticulos: TfEditorEntradaSalidaArticulos
AutoSize = True
end
end
object TBXDockPaneles: TSpTBXDock [5]
object pnlMovimiento: TSpTBXDockablePanel [5]
Left = 0
Top = 76
Top = 204
Width = 853
Height = 146
object pnlMovimiento: TSpTBXDockablePanel
Left = 0
Top = 89
Align = alTop
Caption = 'Filtrar'
CaptionRotation = dpcrAlwaysVert
DockedHeight = 53
DockMode = dmCannotFloat
DockPos = 3
DockRow = 1
FloatingWidth = 128
FloatingHeight = 84
ShowCaptionWhenDocked = False
SupportedDocks = [dkStandardDock, dkMultiDock]
TabOrder = 0
Visible = False
DesignSize = (
849
53)
object Label1: TLabel
Left = 266
Top = 17
Width = 36
Height = 13
Margins.Bottom = 0
Caption = 'Motivo:'
end
object Label2: TLabel
Left = 12
Top = 17
Width = 107
Height = 13
Margins.Bottom = 0
Caption = 'Fecha del movimiento:'
Color = 16054521
ParentColor = False
end
object eFechaMovimiento: TcxDateEdit
Left = 126
Top = 14
Style.BorderColor = clWindowFrame
Style.BorderStyle = ebs3D
Style.HotTrack = False
Style.LookAndFeel.NativeStyle = True
Style.ButtonStyle = bts3D
Style.PopupBorderStyle = epbsFrame3D
StyleDisabled.LookAndFeel.NativeStyle = True
StyleFocused.LookAndFeel.NativeStyle = True
StyleHot.LookAndFeel.NativeStyle = True
TabOrder = 0
Width = 121
end
object eCausa: TcxTextEdit
Left = 308
Top = 14
Anchors = [akLeft, akTop, akRight]
AutoSize = False
Style.BorderColor = clWindowFrame
Style.BorderStyle = ebs3D
Style.HotTrack = False
Style.LookAndFeel.Kind = lfStandard
Style.LookAndFeel.NativeStyle = True
StyleDisabled.LookAndFeel.Kind = lfStandard
StyleDisabled.LookAndFeel.NativeStyle = True
StyleFocused.LookAndFeel.Kind = lfStandard
StyleFocused.LookAndFeel.NativeStyle = True
StyleHot.LookAndFeel.Kind = lfStandard
StyleHot.LookAndFeel.NativeStyle = True
TabOrder = 1
Height = 21
Width = 1977
end
Height = 85
Caption = 'Filtrar'
Align = alTop
DockMode = dmCannotFloat
DockPos = 3
DockRow = 1
TabOrder = 0
Visible = False
ShowCaptionWhenDocked = False
DesignSize = (
853
85)
object Label1: TLabel
Left = 266
Top = 17
Width = 36
Height = 13
Margins.Bottom = 0
Caption = 'Motivo:'
end
object pnlEntradaPedido: TSpTBXDockablePanel
Left = 0
Top = 0
Align = alTop
Caption = 'Filtrar'
CaptionRotation = dpcrAlwaysVert
DockedHeight = 85
DockMode = dmCannotFloat
DockPos = 0
FloatingWidth = 128
FloatingHeight = 84
ShowCaptionWhenDocked = False
SupportedDocks = [dkStandardDock, dkMultiDock]
object Label2: TLabel
Left = 12
Top = 17
Width = 107
Height = 13
Margins.Bottom = 0
Caption = 'Fecha del movimiento:'
Color = 16054521
ParentColor = False
end
object eFechaMovimiento: TcxDateEdit
Left = 126
Top = 14
Style.BorderColor = clWindowFrame
Style.BorderStyle = ebs3D
Style.HotTrack = False
Style.LookAndFeel.NativeStyle = True
Style.ButtonStyle = bts3D
Style.PopupBorderStyle = epbsFrame3D
StyleDisabled.LookAndFeel.NativeStyle = True
StyleFocused.LookAndFeel.NativeStyle = True
StyleHot.LookAndFeel.NativeStyle = True
TabOrder = 0
Width = 121
end
object eCausa: TcxTextEdit
Left = 308
Top = 14
Anchors = [akLeft, akTop, akRight]
AutoSize = False
Style.BorderColor = clWindowFrame
Style.BorderStyle = ebs3D
Style.HotTrack = False
Style.LookAndFeel.Kind = lfStandard
Style.LookAndFeel.NativeStyle = True
StyleDisabled.LookAndFeel.Kind = lfStandard
StyleDisabled.LookAndFeel.NativeStyle = True
StyleFocused.LookAndFeel.Kind = lfStandard
StyleFocused.LookAndFeel.NativeStyle = True
StyleHot.LookAndFeel.Kind = lfStandard
StyleHot.LookAndFeel.NativeStyle = True
TabOrder = 1
Visible = False
object Label3: TLabel
Left = 202
Top = 17
Width = 60
Height = 13
Margins.Bottom = 0
Caption = 'Ref. pedido:'
end
object Label4: TLabel
Left = 8
Top = 17
Width = 85
Height = 13
Margins.Bottom = 0
Caption = 'Fecha del pedido:'
Color = 16054521
ParentColor = False
end
object edtFechaPedido: TLabel
Left = 99
Top = 17
Width = 71
Height = 13
Margins.Bottom = 0
Caption = 'FechaPedido'
Color = 16054521
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'Tahoma'
Font.Style = [fsBold]
ParentColor = False
ParentFont = False
end
object edtReferenciaPedido: TLabel
Left = 268
Top = 17
Width = 99
Height = 13
Margins.Bottom = 0
Caption = 'ReferenciaPedido'
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'Tahoma'
Font.Style = [fsBold]
ParentFont = False
end
object Label6: TLabel
Left = 5
Top = 49
Width = 47
Height = 13
Margins.Bottom = 0
Caption = 'Situaci'#243'n:'
Color = 16054521
ParentColor = False
end
object edtSituacion: TLabel
Left = 99
Top = 49
Width = 52
Height = 13
Margins.Bottom = 0
Caption = 'Situacion'
Color = 16054521
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'Tahoma'
Font.Style = [fsBold]
ParentColor = False
ParentFont = False
end
object Label7: TLabel
Left = 202
Top = 49
Width = 54
Height = 13
Margins.Bottom = 0
Caption = 'Proveedor:'
end
object edtProveedor: TLabel
Left = 268
Top = 49
Width = 59
Height = 13
Margins.Bottom = 0
Caption = 'Proveedor'
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'Tahoma'
Font.Style = [fsBold]
ParentFont = False
end
Height = 21
Width = 1977
end
end
inline frViewEntradaSalidaArticulos1: TfrViewEntradaSalidaArticulos [6]
Left = 0
Top = 254
Top = 321
Width = 853
Height = 283
Height = 216
Align = alClient
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
@ -342,14 +225,14 @@ inherited fEditorEntradaSalidaArticulos: TfEditorEntradaSalidaArticulos
ParentFont = False
TabOrder = 6
ReadOnly = False
ExplicitTop = 254
ExplicitTop = 321
ExplicitWidth = 853
ExplicitHeight = 283
ExplicitHeight = 216
inherited cxGrid: TcxGrid
Width = 837
Height = 139
Height = 72
ExplicitWidth = 837
ExplicitHeight = 139
ExplicitHeight = 72
inherited cxGridView: TcxGridDBTableView
DataController.KeyFieldNames = 'RecID'
inherited cxGridViewSTOCK: TcxGridDBColumn
@ -361,6 +244,7 @@ inherited fEditorEntradaSalidaArticulos: TfEditorEntradaSalidaArticulos
Width = 853
ExplicitWidth = 853
inherited TBXDockablePanel1: TSpTBXDockablePanel
Width = 853
ExplicitWidth = 853
inherited dxLayoutControl1: TdxLayoutControl
Width = 853
@ -380,23 +264,27 @@ inherited fEditorEntradaSalidaArticulos: TfEditorEntradaSalidaArticulos
StyleHot.LookAndFeel.SkinName = ''
end
inherited edtFechaFinFiltro: TcxDateEdit
Left = 246
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitLeft = 246
end
inherited eLista: TcxComboBox
Left = 419
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitLeft = 419
ExplicitWidth = 380
Width = 380
end
end
inherited TBXAlignmentPanel1: TSpTBXDockablePanel
Width = 853
ExplicitWidth = 853
Width = 843
ExplicitWidth = 843
inherited tbxBotones: TSpTBXToolbar
Width = 843
ExplicitWidth = 843
@ -405,15 +293,16 @@ inherited fEditorEntradaSalidaArticulos: TfEditorEntradaSalidaArticulos
end
end
inherited pnlAgrupaciones: TSpTBXDockablePanel
Top = 257
ExplicitTop = 257
Top = 190
Width = 853
ExplicitTop = 190
ExplicitWidth = 853
inherited TBXAlignmentPanel1: TSpTBXDockablePanel
Width = 853
ExplicitWidth = 853
inherited TBXToolbar1: TSpTBXToolbar
Width = 843
ExplicitWidth = 843
Width = 853
ExplicitWidth = 853
end
end
end
@ -432,56 +321,116 @@ inherited fEditorEntradaSalidaArticulos: TfEditorEntradaSalidaArticulos
end>
end
end
inherited EditorActionList: TActionList [7]
Top = 56
inherited actNuevo: TAction
Visible = False
object pnlEntradaPedido: TSpTBXDockablePanel [7]
Left = 0
Top = 49
Width = 853
Height = 128
Caption = 'Filtrar'
Align = alTop
DockMode = dmCannotFloat
DockPos = 0
TabOrder = 1
Visible = False
ShowCaptionWhenDocked = False
object Label3: TLabel
Left = 202
Top = 17
Width = 60
Height = 13
Margins.Bottom = 0
Caption = 'Ref. pedido:'
end
inherited actModificar: TAction
Visible = False
object Label4: TLabel
Left = 8
Top = 17
Width = 85
Height = 13
Margins.Bottom = 0
Caption = 'Fecha del pedido:'
Color = 16054521
ParentColor = False
end
inherited actGuardar: TAction
Visible = False
object edtFechaPedido: TLabel
Left = 99
Top = 17
Width = 71
Height = 13
Margins.Bottom = 0
Caption = 'FechaPedido'
Color = 16054521
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'Tahoma'
Font.Style = [fsBold]
ParentColor = False
ParentFont = False
end
inherited actEliminar: TAction
Visible = False
object edtReferenciaPedido: TLabel
Left = 268
Top = 17
Width = 99
Height = 13
Margins.Bottom = 0
Caption = 'ReferenciaPedido'
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'Tahoma'
Font.Style = [fsBold]
ParentFont = False
end
inherited actConfPagina: TAction
Visible = False
object Label6: TLabel
Left = 5
Top = 49
Width = 47
Height = 13
Margins.Bottom = 0
Caption = 'Situaci'#243'n:'
Color = 16054521
ParentColor = False
end
inherited actPrevisualizar: TAction
Visible = False
object edtSituacion: TLabel
Left = 99
Top = 49
Width = 52
Height = 13
Margins.Bottom = 0
Caption = 'Situacion'
Color = 16054521
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'Tahoma'
Font.Style = [fsBold]
ParentColor = False
ParentFont = False
end
inherited actImprimir: TAction
Visible = False
object Label7: TLabel
Left = 202
Top = 49
Width = 54
Height = 13
Margins.Bottom = 0
Caption = 'Proveedor:'
end
inherited actRefrescar: TAction
Visible = False
end
inherited actDuplicar: TAction
Visible = False
end
object actAnadirInventario: TAction
Category = 'Inventario'
Caption = 'Elegir art'#237'culos...'
ImageIndex = 24
OnExecute = actAnadirInventarioExecute
end
object actEliminarInventario: TAction
Category = 'Inventario'
Caption = 'Quitar este art'#237'culo'
ImageIndex = 4
OnExecute = actEliminarInventarioExecute
OnUpdate = actEliminarInventarioUpdate
end
object actAnchoAuto: TAction
Category = 'Ver'
Caption = 'Ancho autom'#225'tico'
ImageIndex = 21
OnExecute = actAnchoAutoExecute
object edtProveedor: TLabel
Left = 268
Top = 49
Width = 59
Height = 13
Margins.Bottom = 0
Caption = 'Proveedor'
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'Tahoma'
Font.Style = [fsBold]
ParentFont = False
end
end
inherited SmallImages: TPngImageList [8]
inherited SmallImages: TPngImageList
PngImages = <
item
PngImage.Data = {
@ -1023,7 +972,7 @@ inherited fEditorEntradaSalidaArticulos: TfEditorEntradaSalidaArticulos
end>
Bitmap = {}
end
inherited LargeImages: TPngImageList [9]
inherited LargeImages: TPngImageList
PngImages = <
item
PngImage.Data = {
@ -1812,12 +1761,57 @@ inherited fEditorEntradaSalidaArticulos: TfEditorEntradaSalidaArticulos
end>
Bitmap = {}
end
inherited JvFormStorage: TJvFormStorage [10]
end
inherited dsDataTable: TDADataSource [11]
inherited dsDataTable: TDADataSource
Left = 56
Top = 56
end
inherited JvAppRegistryStorage: TJvAppRegistryStorage [12]
inherited EditorActionList: TActionList [13]
Top = 56
inherited actNuevo: TAction
Visible = False
end
inherited actModificar: TAction
Visible = False
end
inherited actGuardar: TAction
Visible = False
end
inherited actEliminar: TAction
Visible = False
end
inherited actConfPagina: TAction
Visible = False
end
inherited actPrevisualizar: TAction
Visible = False
end
inherited actImprimir: TAction
Visible = False
end
inherited actRefrescar: TAction
Visible = False
end
inherited actDuplicar: TAction
Visible = False
end
object actAnadirInventario: TAction
Category = 'Inventario'
Caption = 'Elegir art'#237'culos...'
ImageIndex = 24
OnExecute = actAnadirInventarioExecute
end
object actEliminarInventario: TAction
Category = 'Inventario'
Caption = 'Quitar este art'#237'culo'
ImageIndex = 4
OnExecute = actEliminarInventarioExecute
OnUpdate = actEliminarInventarioUpdate
end
object actAnchoAuto: TAction
Category = 'Ver'
Caption = 'Ancho autom'#225'tico'
ImageIndex = 21
OnExecute = actAnchoAutoExecute
end
end
end

7
Source/Modulos/Inventario/Views/uEditorEntradaSalidaArticulos.pas
View File

@ -14,7 +14,7 @@ uses
JvStatusBar, Grids, DBGrids, cxLabel, cxControls, cxContainer, cxEdit,
cxTextEdit, cxMaskEdit, cxDropDownEdit, cxCalendar, cxMemo, ToolWin,
dxLayoutControl, cxStyles, StdCtrls, Buttons, SpTBXDkPanels, uBizPedidosProveedor,
uDAInterfaces;
uDAInterfaces, cxGraphics, cxLookAndFeels, cxLookAndFeelPainters;
type
TfEditorEntradaSalidaArticulos = class(TfEditorDBItem, IEditorEntradaSalidaArticulos)
@ -36,7 +36,6 @@ type
pnlEntradaPedido: TSpTBXDockablePanel;
Label3: TLabel;
Label4: TLabel;
TBXDockPaneles: TSpTBXDock;
edtFechaPedido: TLabel;
edtReferenciaPedido: TLabel;
Label6: TLabel;
@ -148,14 +147,14 @@ begin
else
dsDataTable.DataTable := NIL;
frViewEntradaSalidaArticulos1.dsDataSource.DataTable := dsDataTable.DataTable;
frViewEntradaSalidaArticulos1.Inventario := FArticulos;
// PonerEtiquetasEnEditor
end;
procedure TfEditorEntradaSalidaArticulos.SetController(const Value: IInventarioController);
begin
FController := Value
FController := Value;
end;
procedure TfEditorEntradaSalidaArticulos.SetInventario(const Value: IBizInventario);

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

@ -83,7 +83,7 @@ inherited fEditorInventario: TfEditorInventario
Width = 669
ExplicitWidth = 669
inherited tbxMain: TSpTBXToolbar
ExplicitWidth = 669
ExplicitWidth = 490
object TBXSeparatorItem84: TSpTBXSeparatorItem [6]
end
object TBXItem54: TSpTBXItem [7]
@ -119,7 +119,6 @@ inherited fEditorInventario: TfEditorInventario
DockPos = 264
Visible = True
ExplicitLeft = 328
ExplicitWidth = 113
object TBXItem38: TSpTBXItem
Action = actReservados
DisplayMode = nbdmImageAndText
@ -198,6 +197,30 @@ inherited fEditorInventario: TfEditorInventario
Kind = skSum
Column = frViewInventario1.cxGridViewPENDIENTE_RECEPCION
end>
inherited cxGridViewFAMILIA: TcxGridDBColumn
Visible = False
VisibleForCustomization = False
end
inherited cxGridViewREFERENCIA_PROVEEDOR: TcxGridDBColumn
Visible = False
VisibleForCustomization = False
end
inherited cxGridViewALMACEN: TcxGridDBColumn
Visible = False
VisibleForCustomization = False
end
inherited cxGridViewUNIDADES_ALMACEN: TcxGridDBColumn
Visible = False
VisibleForCustomization = False
end
inherited cxGridViewRESERVA: TcxGridDBColumn
Visible = False
VisibleForCustomization = False
end
inherited cxGridViewPENDIENTE_RECEPCION: TcxGridDBColumn
Visible = False
VisibleForCustomization = False
end
end
end
inherited frViewFiltroBase1: TfrViewFiltroBase
@ -274,6 +297,9 @@ inherited fEditorInventario: TfEditorInventario
end
inherited pnlAlmacenes: TPanel
Width = 669
Enabled = False
Visible = False
ExplicitTop = 96
ExplicitWidth = 669
DesignSize = (
669
@ -324,30 +350,41 @@ inherited fEditorInventario: TfEditorInventario
inherited actAnchoAuto: TAction
ImageIndex = 27
end
inherited actExportarExcel: TAction
Enabled = False
Visible = False
end
object actRecibirPedido: TAction
Category = 'Logistica'
Caption = 'Recibir pedido'
Enabled = False
ImageIndex = 24
Visible = False
OnExecute = actRecibirPedidoExecute
OnUpdate = actRecibirPedidoUpdate
end
object actTrasladar: TAction
Category = 'Logistica'
Caption = 'Trasladar'
Enabled = False
ImageIndex = 23
Visible = False
OnExecute = actTrasladarExecute
OnUpdate = actTrasladarUpdate
end
object actReservar: TAction
Category = 'Logistica'
Caption = 'Reservar'
Enabled = False
ImageIndex = 25
Visible = False
OnExecute = actReservarExecute
OnUpdate = actReservarUpdate
end
object actLiberar: TAction
Category = 'Logistica'
Caption = 'Liberar'
Enabled = False
ImageIndex = 26
Visible = False
OnExecute = actLiberarExecute
@ -356,7 +393,9 @@ inherited fEditorInventario: TfEditorInventario
object actReservados: TAction
Category = 'Logistica'
Caption = 'Ver reservados'
Enabled = False
ImageIndex = 25
Visible = False
OnExecute = actReservadosExecute
OnUpdate = actReservadosUpdate
end

20
Source/Modulos/Inventario/Views/uViewElegirArticulosCatalogo.dfm
View File

@ -2,14 +2,34 @@ inherited frViewElegirArticulosCatalogo: TfrViewElegirArticulosCatalogo
inherited frViewFiltroBase1: TfrViewFiltroBase
inherited TBXDockablePanel1: TSpTBXDockablePanel
inherited dxLayoutControl1: TdxLayoutControl
inherited txtFiltroTodo: TcxTextEdit
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
end
inherited edtFechaIniFiltro: TcxDateEdit
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitWidth = 121
Width = 121
end
inherited edtFechaFinFiltro: TcxDateEdit
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitWidth = 121
Width = 121
end
inherited eLista: TcxComboBox
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
end
end
end
end

5
Source/Modulos/Inventario/Views/uViewElegirArticulosCatalogo.pas
View File

@ -12,7 +12,10 @@ uses
uDADataTable, cxGridLevel, cxGridCustomTableView, cxGridTableView,
cxGridDBTableView, cxClasses, cxControls, cxGridCustomView, cxGrid, dxPgsDlg,
ActnList, TB2Item, SpTBXItem, TB2Toolbar, SpTBXDkPanels, TB2Dock, uViewFiltroBase,
uDAInterfaces;
uDAInterfaces, cxLookAndFeels, cxLookAndFeelPainters, dxPSPDFExportCore,
dxPSPDFExport, cxDrawTextUtils, dxPSPrVwStd, dxPSPrVwAdv,
dxPScxEditorProducers, dxPScxExtEditorProducers, dxPScxPageControlProducer,
uCustomView, uViewBase;
type
IViewElegirArticulosCatalogo = interface(IViewArticulos)

51
Source/Modulos/Inventario/Views/uViewEntradaSalidaArticulos.dfm
View File

@ -1,6 +1,8 @@
inherited frViewEntradaSalidaArticulos: TfrViewEntradaSalidaArticulos
Width = 674
Height = 464
OnCreate = CustomViewCreate
OnDestroy = CustomViewDestroy
ExplicitWidth = 674
ExplicitHeight = 464
inherited cxGrid: TcxGrid
@ -24,17 +26,12 @@ inherited frViewEntradaSalidaArticulos: TfrViewEntradaSalidaArticulos
OptionsSelection.CellSelect = True
object cxGridViewRecID: TcxGridDBColumn
DataBinding.FieldName = 'RecID'
Visible = False
end
object cxGridViewID: TcxGridDBColumn
DataBinding.FieldName = 'ID'
Visible = False
VisibleForCustomization = False
end
object cxGridViewID_ARTICULO: TcxGridDBColumn
DataBinding.FieldName = 'ID_ARTICULO'
Visible = False
VisibleForCustomization = False
end
object cxGridViewID_PEDIDO_PROVEEDOR: TcxGridDBColumn
DataBinding.FieldName = 'ID_PEDIDO_PROVEEDOR'
@ -57,6 +54,8 @@ inherited frViewEntradaSalidaArticulos: TfrViewEntradaSalidaArticulos
object cxGridViewREFERENCIA_PROV: TcxGridDBColumn
Caption = 'Ref. proveedor'
DataBinding.FieldName = 'REFERENCIA_PROVEEDOR'
Visible = False
VisibleForCustomization = False
Width = 80
end
object cxGridViewDESCRIPCION: TcxGridDBColumn
@ -82,13 +81,26 @@ inherited frViewEntradaSalidaArticulos: TfrViewEntradaSalidaArticulos
Properties.Alignment.Horz = taRightJustify
Properties.DisplayFormat = ',0.##;-,0.##'
Properties.EditFormat = ',0.##;-,0.##'
Visible = False
FooterAlignmentHorz = taRightJustify
HeaderAlignmentHorz = taRightJustify
VisibleForCustomization = False
Width = 80
end
object cxGridViewCANTIDAD2: TcxGridDBColumn
Caption = 'Cantidad'
DataBinding.FieldName = 'CANTIDAD'
PropertiesClassName = 'TcxButtonEditProperties'
Properties.Buttons = <
item
Default = True
Kind = bkEllipsis
end>
Properties.ReadOnly = True
Properties.OnButtonClick = cxGridViewCANTIDAD2PropertiesButtonClick
end
object cxGridViewID_EMPRESA: TcxGridDBColumn
DataBinding.FieldName = 'ID_EMPRESA'
Visible = False
end
end
end
@ -96,6 +108,7 @@ inherited frViewEntradaSalidaArticulos: TfrViewEntradaSalidaArticulos
Width = 674
ExplicitWidth = 674
inherited TBXDockablePanel1: TSpTBXDockablePanel
Width = 674
ExplicitWidth = 674
inherited dxLayoutControl1: TdxLayoutControl
Width = 674
@ -138,8 +151,8 @@ inherited frViewEntradaSalidaArticulos: TfrViewEntradaSalidaArticulos
end
end
inherited TBXAlignmentPanel1: TSpTBXDockablePanel
Width = 674
ExplicitWidth = 674
Width = 664
ExplicitWidth = 664
inherited tbxBotones: TSpTBXToolbar
Width = 664
ExplicitWidth = 664
@ -149,17 +162,31 @@ inherited frViewEntradaSalidaArticulos: TfrViewEntradaSalidaArticulos
end
inherited pnlAgrupaciones: TSpTBXDockablePanel
Top = 438
Width = 674
ExplicitTop = 438
ExplicitWidth = 674
inherited TBXAlignmentPanel1: TSpTBXDockablePanel
Width = 674
ExplicitWidth = 674
inherited TBXToolbar1: TSpTBXToolbar
Width = 664
ExplicitWidth = 664
Width = 674
ExplicitWidth = 674
end
end
end
object DBGrid1: TDBGrid [3]
Left = 48
Top = 272
Width = 488
Height = 120
DataSource = DADataSource1
TabOrder = 3
TitleFont.Charset = DEFAULT_CHARSET
TitleFont.Color = clWindowText
TitleFont.Height = -11
TitleFont.Name = 'Tahoma'
TitleFont.Style = []
end
inherited dxComponentPrinter: TdxComponentPrinter
inherited dxComponentPrinterLink: TdxGridReportLink
ReportDocument.CreationDate = 39253.500748333330000000
@ -180,4 +207,8 @@ inherited frViewEntradaSalidaArticulos: TfrViewEntradaSalidaArticulos
Left = 56
Top = 16
end
object DADataSource1: TDADataSource
Left = 32
Top = 264
end
end

60
Source/Modulos/Inventario/Views/uViewEntradaSalidaArticulos.pas
View File

@ -14,13 +14,20 @@ uses
cxGridCustomPopupMenu, cxGridPopupMenu, dxPSCore, dxPScxCommon, dxPScxGrid6Lnk,
uAlmacenesController, uBizAlmacenes, TB2Item, SpTBXItem, TB2Dock, TB2Toolbar,
uDataModuleInventario, cxRichEdit, cxTextEdit, dxPgsDlg, SpTBXDkPanels,
uViewFiltroBase, cxSpinEdit, uDAInterfaces;
uViewFiltroBase, cxSpinEdit, uDAInterfaces, cxLookAndFeels,
cxLookAndFeelPainters, dxPSPDFExportCore, dxPSPDFExport, cxDrawTextUtils,
dxPSPrVwStd, dxPSPrVwAdv, dxPScxEditorProducers, dxPScxExtEditorProducers,
dxPScxPageControlProducer, uCustomView, uViewBase, cxButtonEdit, uInventarioController,
uArticulosInventarioController, uBizInventario, Grids, DBGrids;
type
IViewViewEntradaSalidaArticulos = interface(IViewGrid)
['{C195FC01-604A-484E-A809-0ED49890DBBE}']
// function GetAlmacenes: IBizAlmacen;
// property Almacenes: IBizAlmacen read GetAlmacenes;
function GetInventario: IBizInventario;
procedure SetInventario(const Value: IBizInventario);
property Inventario: IBizInventario read GetInventario write SetInventario;
end;
TfrViewEntradaSalidaArticulos = class(TfrViewGrid, IViewViewEntradaSalidaArticulos)
@ -39,10 +46,23 @@ type
cxGridViewSTOCK: TcxGridDBColumn;
cxStyle_CANTIDAD_IMPAR: TcxStyle;
cxStyle_CANTIDAD_PAR: TcxStyle;
cxGridViewCANTIDAD2: TcxGridDBColumn;
DBGrid1: TDBGrid;
DADataSource1: TDADataSource;
procedure cxGridViewStylesGetContentStyle(
Sender: TcxCustomGridTableView; ARecord: TcxCustomGridRecord;
AItem: TcxCustomGridTableItem; out AStyle: TcxStyle);
procedure cxGridViewCANTIDAD2PropertiesButtonClick(Sender: TObject;
AButtonIndex: Integer);
procedure CustomViewDestroy(Sender: TObject);
procedure CustomViewCreate(Sender: TObject);
private
FArticulosInventarioController : IArticulosInventarioController;
FInventario: IBizInventario;
function GetInventario: IBizInventario;
procedure SetInventario(const Value: IBizInventario);
//Es para cuando el almacen destino sea relativo a cada artículo, como lo vamos a
//hacer relativo al conjunto esto sobra
// FController: IAlmacenesController;
@ -52,6 +72,8 @@ type
// property Almacenes: IBizAlmacen read GetAlmacenes;
// constructor Create(AOwner : TComponent); override;
// destructor destroy; override;
property Inventario: IBizInventario read GetInventario write SetInventario;
end;
implementation
@ -85,6 +107,27 @@ end;}
{ TfrViewEntradaSalidaArticulos }
procedure TfrViewEntradaSalidaArticulos.CustomViewCreate(Sender: TObject);
begin
inherited;
FArticulosInventarioController := TArticulosInventarioController.Create;
end;
procedure TfrViewEntradaSalidaArticulos.CustomViewDestroy(Sender: TObject);
begin
FInventario := Nil;
FArticulosInventarioController := Nil;
inherited;
end;
procedure TfrViewEntradaSalidaArticulos.cxGridViewCANTIDAD2PropertiesButtonClick(
Sender: TObject; AButtonIndex: Integer);
begin
inherited;
(FArticulosInventarioController as IArticulosInventarioController).ModificarCantidadColores(FInventario);
end;
procedure TfrViewEntradaSalidaArticulos.cxGridViewStylesGetContentStyle(
Sender: TcxCustomGridTableView; ARecord: TcxCustomGridRecord;
AItem: TcxCustomGridTableItem; out AStyle: TcxStyle);
@ -109,4 +152,17 @@ begin
end;
end;
function TfrViewEntradaSalidaArticulos.GetInventario: IBizInventario;
begin
Result := FInventario;
end;
procedure TfrViewEntradaSalidaArticulos.SetInventario(const Value: IBizInventario);
begin
FInventario := Value;
dsDataSource.DataTable := FInventario.DataTable;
DADataSource1.DataTable := FInventario.DetalleColores.DataTable;
end;
end.

23
Source/Modulos/Inventario/Views/uViewInventario.dfm
View File

@ -82,16 +82,28 @@ inherited frViewInventario: TfrViewInventario
SortIndex = 0
SortOrder = soAscending
end
object cxGridViewCODIGOTECNICO: TcxGridDBColumn
Caption = 'C'#243'digo'
DataBinding.FieldName = 'CODIGOTECNICO'
end
object cxGridViewREFERENCIA_PROVEEDOR: TcxGridDBColumn
Caption = 'Ref. proveedor'
DataBinding.FieldName = 'REFERENCIA_PROVEEDOR'
MinWidth = 30
end
object cxGridViewDISENOTECNICO: TcxGridDBColumn
Caption = 'Dise'#241'o'
DataBinding.FieldName = 'DISENOTECNICO'
end
object cxGridViewDESCRIPCION: TcxGridDBColumn
Caption = 'Descripci'#243'n'
DataBinding.FieldName = 'DESCRIPCION'
MinWidth = 80
end
object cxGridViewCAMPOTECNICO: TcxGridDBColumn
Caption = 'Campo t'#233'cnico'
DataBinding.FieldName = 'CAMPOTECNICO'
end
object cxGridViewSTOCK: TcxGridDBColumn
DataBinding.FieldName = 'STOCK'
PropertiesClassName = 'TcxSpinEditProperties'
@ -191,21 +203,25 @@ inherited frViewInventario: TfrViewInventario
StyleHot.LookAndFeel.SkinName = ''
end
inherited edtFechaFinFiltro: TcxDateEdit
Left = 300
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitLeft = 300
end
inherited eLista: TcxComboBox
Left = 507
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitLeft = 507
end
end
inherited TBXAlignmentPanel1: TSpTBXDockablePanel
Width = 668
ExplicitWidth = 678
ExplicitWidth = 668
inherited tbxBotones: TSpTBXToolbar
Width = 668
ExplicitWidth = 668
@ -223,7 +239,7 @@ inherited frViewInventario: TfrViewInventario
ExplicitWidth = 678
inherited TBXToolbar1: TSpTBXToolbar
Width = 678
ExplicitWidth = 668
ExplicitWidth = 678
end
end
end
@ -270,6 +286,9 @@ inherited frViewInventario: TfrViewInventario
BuiltInReportLink = True
end
end
inherited dxPSEngineController1: TdxPSEngineController
Active = True
end
inherited cxStyleRepository1: TcxStyleRepository
inherited cxStyleSelection: TcxStyle
AssignedValues = [svColor, svFont, svTextColor]

3
Source/Modulos/Inventario/Views/uViewInventario.pas
View File

@ -58,6 +58,9 @@ type
pnlAlmacenes: TPanel;
cxListaAlmacenesObras: TcxComboBox;
eAlmacen: TLabel;
cxGridViewCAMPOTECNICO: TcxGridDBColumn;
cxGridViewCODIGOTECNICO: TcxGridDBColumn;
cxGridViewDISENOTECNICO: TcxGridDBColumn;
procedure cxGridViewStylesGetContentStyle(Sender: TcxCustomGridTableView;
ARecord: TcxCustomGridRecord; AItem: TcxCustomGridTableItem; out
AStyle: TcxStyle);

2
Source/Modulos/Pedidos de cliente/Controller/PedidosCliente_controller.drc
View File

@ -13,4 +13,4 @@ BEGIN
END
/* C:\Codigo noviseda\Source\Modulos\Pedidos de cliente\Controller\PedidosCliente_controller.res */
/* C:\DOCUME~1\Usuario\CONFIG~1\Temp\dtf1D6.tmp */
/* C:\DOCUME~1\Usuario\CONFIG~1\Temp\dtfA2.tmp */

2
Source/Modulos/Pedidos de cliente/Data/PedidosCliente_data.drc
View File

@ -14,4 +14,4 @@ END
/* C:\Codigo noviseda\Source\Modulos\Pedidos de cliente\Data\uDataModulePedidosCliente.dfm */
/* C:\Codigo noviseda\Source\Modulos\Pedidos de cliente\Data\PedidosCliente_data.res */
/* C:\DOCUME~1\Usuario\CONFIG~1\Temp\dtf1D4.tmp */
/* C:\DOCUME~1\Usuario\CONFIG~1\Temp\dtfA0.tmp */

2
Source/Modulos/Pedidos de cliente/Model/PedidosCliente_model.drc
View File

@ -13,4 +13,4 @@ BEGIN
END
/* C:\Codigo noviseda\Source\Modulos\Pedidos de cliente\Model\PedidosCliente_model.res */
/* C:\DOCUME~1\Usuario\CONFIG~1\Temp\dtf1D2.tmp */
/* C:\DOCUME~1\Usuario\CONFIG~1\Temp\dtf9E.tmp */

2
Source/Modulos/Pedidos de cliente/Plugin/PedidosCliente_plugin.drc
View File

@ -14,4 +14,4 @@ END
/* C:\Codigo noviseda\Source\Modulos\Pedidos de cliente\Plugin\uPluginPedidosCliente.dfm */
/* C:\Codigo noviseda\Source\Modulos\Pedidos de cliente\Plugin\PedidosCliente_plugin.res */
/* C:\DOCUME~1\Usuario\CONFIG~1\Temp\dtf246.tmp */
/* C:\DOCUME~1\Usuario\CONFIG~1\Temp\dtf112.tmp */

2
Source/Modulos/Pedidos de cliente/Views/PedidosCliente_view.drc
View File

@ -25,4 +25,4 @@ END
/* C:\Codigo noviseda\Source\Modulos\Pedidos de cliente\Views\uEditorElegirArticulosPedidoCliente.dfm */
/* C:\Codigo noviseda\Source\Modulos\Pedidos de cliente\Views\uEditorPedidosClienteReport.dfm */
/* C:\Codigo noviseda\Source\Modulos\Pedidos de cliente\Views\PedidosCliente_view.res */
/* C:\DOCUME~1\Usuario\CONFIG~1\Temp\dtf244.tmp */
/* C:\DOCUME~1\Usuario\CONFIG~1\Temp\dtf110.tmp */

BIN
Source/Servidor/FactuGES_Server.RES
View File

Binary file not shown.

8
Source/Servidor/FactuGES_Server.dpr
View File

@ -3,7 +3,7 @@ program FactuGES_Server;
{#ROGEN:..\Servicios\FactuGES.rodl} // RemObjects: Careful, do not remove!
uses
// ExceptionLog,
ExceptionLog,
uROComInit,
uROComboService,
Forms,
@ -125,8 +125,6 @@ uses
MidasSpeedFix in 'Utiles\MidasSpeedFix.pas',
schAlbaranesProveedorClient_Intf in '..\Modulos\Albaranes de proveedor\Model\schAlbaranesProveedorClient_Intf.pas',
schAlbaranesProveedorServer_Intf in '..\Modulos\Albaranes de proveedor\Model\schAlbaranesProveedorServer_Intf.pas',
schInventarioClient_Intf in '..\Modulos\Inventario\Model\schInventarioClient_Intf.pas',
schInventarioServer_Intf in '..\Modulos\Inventario\Model\schInventarioServer_Intf.pas',
uBizVendedoresServer in '..\Modulos\Contactos\Model\uBizVendedoresServer.pas',
schArticulosClient_Intf in '..\Modulos\Articulos\Model\schArticulosClient_Intf.pas',
schArticulosServer_Intf in '..\Modulos\Articulos\Model\schArticulosServer_Intf.pas',
@ -143,7 +141,9 @@ uses
schAlbaranesClienteClient_Intf in '..\Modulos\Albaranes de cliente\Model\schAlbaranesClienteClient_Intf.pas',
schAlbaranesClienteServer_Intf in '..\Modulos\Albaranes de cliente\Model\schAlbaranesClienteServer_Intf.pas',
schPedidosClienteClient_Intf in '..\Modulos\Pedidos de cliente\Model\schPedidosClienteClient_Intf.pas',
schPedidosClienteServer_Intf in '..\Modulos\Pedidos de cliente\Model\schPedidosClienteServer_Intf.pas';
schPedidosClienteServer_Intf in '..\Modulos\Pedidos de cliente\Model\schPedidosClienteServer_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}

686
Source/Servidor/FactuGES_Server.dproj
View File

@ -1,347 +1,347 @@
<?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_d11;SpTBXLib_d11;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;cxExportD10;GUISDK_D11R;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;EUREKALOG;EUREKALOG_VER6</DCC_Define>
<DCC_GenerateStackFrames>True</DCC_GenerateStackFrames>
<DCC_DebugInfoInExe>True</DCC_DebugInfoInExe>
<DCC_DebugVN>True</DCC_DebugVN>
<DCC_UnitSearchPath>$(BDS)\Lib\Debug\Indy10;$(BDS)\lib\Debug</DCC_UnitSearchPath>
<DCC_ResourcePath>$(BDS)\Lib\Debug\Indy10;$(BDS)\lib\Debug</DCC_ResourcePath>
<DCC_ObjPath>$(BDS)\Lib\Debug\Indy10;$(BDS)\lib\Debug</DCC_ObjPath>
<DCC_IncludePath>$(BDS)\Lib\Debug\Indy10;$(BDS)\lib\Debug</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">0</VersionInfo><VersionInfo Name="Release">2</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.0.2.0</VersionInfoKeys><VersionInfoKeys Name="InternalName">FactuGES Servidor</VersionInfoKeys><VersionInfoKeys Name="LegalCopyright"></VersionInfoKeys><VersionInfoKeys Name="LegalTrademarks"></VersionInfoKeys><VersionInfoKeys Name="OriginalFilename"></VersionInfoKeys><VersionInfoKeys Name="ProductName">FactuGES Servidor</VersionInfoKeys><VersionInfoKeys Name="ProductVersion">1.0.2.0</VersionInfoKeys><VersionInfoKeys Name="Comments"></VersionInfoKeys><VersionInfoKeys Name="CompileDate">jueves, 18 de febrero de 2010 12:17</VersionInfoKeys></VersionInfoKeys><Excluded_Packages></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">
<DesignClass>TDARemoteService</DesignClass>
<Form>srvEmpresas</Form>
</DCCReference>
<DCCReference Include="..\ApplicationBase\ProvinciasPoblaciones\Servidor\srvProvinciasPoblaciones_Impl.pas">
<DesignClass>TDataModule</DesignClass>
<Form>srvProvinciasPoblaciones_Impl</Form>
</DCCReference>
<DCCReference Include="..\ApplicationBase\Usuarios\Model\schUsuariosClient_Intf.pas"/>
<DCCReference Include="..\ApplicationBase\Usuarios\Model\schUsuariosServer_Intf.pas"/>
<DCCReference Include="..\ApplicationBase\Usuarios\Servidor\srvUsuarios_Impl.pas">
<DesignClass>TDataAbstractService</DesignClass>
<Form>srvUsuarios</Form>
</DCCReference>
<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">
<DesignClass>TDataModule</DesignClass>
<Form>RptAlbaranesCliente</Form>
</DCCReference>
<DCCReference Include="..\Modulos\Albaranes de cliente\Reports\uRptWordAlbaranCliente.pas">
<DesignClass>TDataModule</DesignClass>
<Form>RptWordAlbaranCliente</Form>
</DCCReference>
<DCCReference Include="..\Modulos\Albaranes de cliente\Servidor\srvAlbaranesCliente_Impl.pas">
<DesignClass>TDataAbstractService</DesignClass>
<Form>srvAlbaranesCliente</Form>
</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\Reports\uRptAlbaranesProveedor_Server.pas">
<DesignClass>TDataModule</DesignClass>
<Form>RptAlbaranesProveedor</Form>
</DCCReference>
<DCCReference Include="..\Modulos\Albaranes de proveedor\Reports\uRptWordAlbaranProveedor.pas">
<DesignClass>TDataModule</DesignClass>
<Form>RptWordAlbaranProveedor</Form>
</DCCReference>
<DCCReference Include="..\Modulos\Albaranes de proveedor\Servidor\srvAlbaranesProveedor_Impl.pas">
<DesignClass>TDataAbstractService</DesignClass>
<Form>srvAlbaranesProveedor</Form>
</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">
<DesignClass>TDARemoteService</DesignClass>
<Form>srvAlmacenes</Form>
</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">
<DesignClass>TDARemoteService</DesignClass>
<Form>srvArticulos</Form>
</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\Model\uBizVendedoresServer.pas"/>
<DCCReference Include="..\Modulos\Contactos\Reports\uRptEtiquetasContacto_Server.pas">
<DesignClass>TDataModule</DesignClass>
<Form>RptEtiquetasContacto</Form>
</DCCReference>
<DCCReference Include="..\Modulos\Contactos\Reports\uRptFichasEmpleado_Server.pas">
<DesignClass>TDataModule</DesignClass>
<Form>RptFichasEmpleado</Form>
</DCCReference>
<DCCReference Include="..\Modulos\Contactos\Servidor\srvContactos_Impl.pas">
<DesignClass>TDARemoteService</DesignClass>
<Form>srvContactos</Form>
</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">
<DesignClass>TDataAbstractService</DesignClass>
<Form>srvFabricantes</Form>
</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">
<DesignClass>TDataModule</DesignClass>
<Form>RptFacturasCliente</Form>
</DCCReference>
<DCCReference Include="..\Modulos\Facturas de cliente\Reports\uRptWordFacturaCliente.pas">
<DesignClass>TDataModule</DesignClass>
<Form>RptWordFacturaCliente</Form>
</DCCReference>
<DCCReference Include="..\Modulos\Facturas de cliente\Servidor\srvFacturasCliente_Impl.pas">
<DesignClass>TDataAbstractService</DesignClass>
<Form>srvFacturasCliente</Form>
</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\Reports\uRptFacturasProveedor_Server.pas">
<DesignClass>TDataModule</DesignClass>
<Form>RptFacturasProveedor</Form>
</DCCReference>
<DCCReference Include="..\Modulos\Facturas de proveedor\Servidor\srvFacturasProveedor_Impl.pas">
<DesignClass>TDataAbstractService</DesignClass>
<Form>srvFacturasProveedor</Form>
</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">
<DesignClass>TDataAbstractService</DesignClass>
<Form>srvFamilias</Form>
</DCCReference>
<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">
<DesignClass>TDataAbstractService</DesignClass>
<Form>srvFormasPago</Form>
</DCCReference>
<DCCReference Include="..\Modulos\Gestion de documentos\Servidor\srvGestorDocumentos_Impl.pas">
<DesignClass>TDataAbstractService</DesignClass>
<Form>srvGestorDocumentos</Form>
</DCCReference>
<DCCReference Include="..\Modulos\Gestor de informes\Servidor\srvGestorInformes_Impl.pas">
<DesignClass>TDataAbstractService</DesignClass>
<Form>srvGestorInformes</Form>
</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">
<DesignClass>TDataAbstractService</DesignClass>
<Form>srvHistoricoMovimientos</Form>
</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">
<DesignClass>TDataAbstractService</DesignClass>
<Form>srvInventario</Form>
</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">
<DesignClass>TDataAbstractService</DesignClass>
<Form>srvObras</Form>
</DCCReference>
<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">
<DesignClass>TDataModule</DesignClass>
<Form>RptPedidosProveedor</Form>
</DCCReference>
<DCCReference Include="..\Modulos\Pedidos a proveedor\Reports\uRptWordPedidoProveedor.pas">
<DesignClass>TDataModule</DesignClass>
<Form>RptWordPedidoProveedor</Form>
</DCCReference>
<DCCReference Include="..\Modulos\Pedidos a proveedor\Servidor\srvPedidosProveedor_Impl.pas">
<DesignClass>TDataAbstractService</DesignClass>
<Form>srvPedidosProveedor</Form>
</DCCReference>
<DCCReference Include="..\Modulos\Pedidos de cliente\Model\schPedidosClienteClient_Intf.pas"/>
<DCCReference Include="..\Modulos\Pedidos de cliente\Model\schPedidosClienteServer_Intf.pas"/>
<DCCReference Include="..\Modulos\Pedidos de cliente\Model\uBizPedidosClienteServer.pas"/>
<DCCReference Include="..\Modulos\Pedidos de cliente\Reports\uRptPedidosCliente_Server.pas">
<Form>RptPedidosCliente</Form>
</DCCReference>
<DCCReference Include="..\Modulos\Pedidos de cliente\Servidor\srvPedidosCliente_Impl.pas">
<DesignClass>TDataAbstractService</DesignClass>
<Form>srvPedidosCliente</Form>
</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">
<DesignClass>TDataModule</DesignClass>
<Form>RptPresupuestosCliente</Form>
</DCCReference>
<DCCReference Include="..\Modulos\Presupuestos de cliente\Reports\uRptWordCertificadoTrabajo_Server.pas">
<DesignClass>TDataModule</DesignClass>
<Form>RptWordCertificadoTrabajo</Form>
</DCCReference>
<DCCReference Include="..\Modulos\Presupuestos de cliente\Reports\uRptWordPresupuestoCliente.pas">
<DesignClass>TDataModule</DesignClass>
<Form>RptWordPresupuestoCliente</Form>
</DCCReference>
<DCCReference Include="..\Modulos\Presupuestos de cliente\Servidor\srvPresupuestosCliente_Impl.pas">
<DesignClass>TDataAbstractService</DesignClass>
<Form>srvPresupuestosCliente</Form>
</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">
<DesignClass>TDataModule</DesignClass>
<Form>RptRecibosCliente</Form>
</DCCReference>
<DCCReference Include="..\Modulos\Recibos de cliente\Servidor\srvRecibosCliente_Impl.pas">
<DesignClass>TDataAbstractService</DesignClass>
<Form>srvRecibosCliente</Form>
</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\Reports\uRptRecibosProveedor_Server.pas">
<DesignClass>TDataModule</DesignClass>
<Form>RptRecibosProveedor</Form>
</DCCReference>
<DCCReference Include="..\Modulos\Recibos de proveedor\Servidor\srvRecibosProveedor_Impl.pas">
<DesignClass>TDataAbstractService</DesignClass>
<Form>srvRecibosProveedor</Form>
</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">
<DesignClass>TDataAbstractService</DesignClass>
<Form>srvReferencias</Form>
</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\Reports\uRptRemesasCliente_Server.pas">
<DesignClass>TDataModule</DesignClass>
<Form>RptRemesasCliente</Form>
</DCCReference>
<DCCReference Include="..\Modulos\Remesas de cliente\Servidor\srvRemesasCliente_Impl.pas">
<DesignClass>TDataAbstractService</DesignClass>
<Form>srvRemesasCliente</Form>
</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">
<DesignClass>TDataAbstractService</DesignClass>
<Form>srvRemesasProveedor</Form>
</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">
<DesignClass>TDataAbstractService</DesignClass>
<Form>srvTiposIVA</Form>
</DCCReference>
<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">
<DesignClass>TDataAbstractService</DesignClass>
<Form>srvUnidadesMedida</Form>
</DCCReference>
<DCCReference Include="..\Servicios\FactuGES_Intf.pas"/>
<DCCReference Include="..\Servicios\FactuGES_Invk.pas"/>
<DCCReference Include="Configuracion\srvConfiguracion_Impl.pas">
<DesignClass>TDataAbstractService</DesignClass>
<Form>srvConfiguracion</Form>
</DCCReference>
<DCCReference Include="Configuracion\uConexionBD.pas">
<DesignClass>TFrame</DesignClass>
<Form>frConexionBD</Form>
</DCCReference>
<DCCReference Include="Configuracion\uConfGeneral.pas">
<DesignClass>TFrame</DesignClass>
<Form>frConfGeneral</Form>
</DCCReference>
<DCCReference Include="Configuracion\uConfiguracion.pas">
<DesignClass>TForm</DesignClass>
<Form>fConfiguracion</Form>
</DCCReference>
<DCCReference Include="Configuracion\uFrameConfiguracion.pas">
<DesignClass>TFrame</DesignClass>
<Form>FrameConfiguracion</Form>
</DCCReference>
<DCCReference Include="srvLogin_Impl.pas">
<DesignClass>TDARemoteService</DesignClass>
<Form>srvLogin</Form>
</DCCReference>
<DCCReference Include="uAcercaDe.pas">
<Form>fAcercaDe</Form>
</DCCReference>
<DCCReference Include="uDataModuleServer.pas">
<DesignClass>TDataModule</DesignClass>
<Form>dmServer</Form>
</DCCReference>
<DCCReference Include="uServerMainForm.pas">
<Form>fServerForm</Form>
</DCCReference>
<DCCReference Include="Utiles\AHWord97.pas"/>
<DCCReference Include="Utiles\MidasSpeedFix.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_d11;SpTBXLib_d11;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;cxExportD10;GUISDK_D11R;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;EUREKALOG;EUREKALOG_VER6</DCC_Define>
<DCC_GenerateStackFrames>True</DCC_GenerateStackFrames>
<DCC_DebugInfoInExe>True</DCC_DebugInfoInExe>
<DCC_DebugVN>True</DCC_DebugVN>
<DCC_UnitSearchPath>$(BDS)\Lib\Debug\Indy10;$(BDS)\lib\Debug</DCC_UnitSearchPath>
<DCC_ResourcePath>$(BDS)\Lib\Debug\Indy10;$(BDS)\lib\Debug</DCC_ResourcePath>
<DCC_ObjPath>$(BDS)\Lib\Debug\Indy10;$(BDS)\lib\Debug</DCC_ObjPath>
<DCC_IncludePath>$(BDS)\Lib\Debug\Indy10;$(BDS)\lib\Debug</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">0</VersionInfo><VersionInfo Name="Release">2</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.0.2.0</VersionInfoKeys><VersionInfoKeys Name="InternalName">FactuGES Servidor</VersionInfoKeys><VersionInfoKeys Name="LegalCopyright"></VersionInfoKeys><VersionInfoKeys Name="LegalTrademarks"></VersionInfoKeys><VersionInfoKeys Name="OriginalFilename"></VersionInfoKeys><VersionInfoKeys Name="ProductName">FactuGES Servidor</VersionInfoKeys><VersionInfoKeys Name="ProductVersion">1.0.2.0</VersionInfoKeys><VersionInfoKeys Name="Comments"></VersionInfoKeys><VersionInfoKeys Name="CompileDate">jueves, 18 de febrero de 2010 12:17</VersionInfoKeys></VersionInfoKeys><Excluded_Packages></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">
<Form>srvProvinciasPoblaciones_Impl</Form>
<DesignClass>TDataModule</DesignClass>
</DCCReference>
<DCCReference Include="..\ApplicationBase\Usuarios\Model\schUsuariosClient_Intf.pas" />
<DCCReference Include="..\ApplicationBase\Usuarios\Model\schUsuariosServer_Intf.pas" />
<DCCReference Include="..\ApplicationBase\Usuarios\Servidor\srvUsuarios_Impl.pas">
<Form>srvUsuarios</Form>
<DesignClass>TDataAbstractService</DesignClass>
</DCCReference>
<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\Reports\uRptAlbaranesProveedor_Server.pas">
<Form>RptAlbaranesProveedor</Form>
<DesignClass>TDataModule</DesignClass>
</DCCReference>
<DCCReference Include="..\Modulos\Albaranes de proveedor\Reports\uRptWordAlbaranProveedor.pas">
<Form>RptWordAlbaranProveedor</Form>
<DesignClass>TDataModule</DesignClass>
</DCCReference>
<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\Model\uBizVendedoresServer.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\Reports\uRptFacturasProveedor_Server.pas">
<Form>RptFacturasProveedor</Form>
<DesignClass>TDataModule</DesignClass>
</DCCReference>
<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">
<Form>srvFamilias</Form>
<DesignClass>TDataAbstractService</DesignClass>
</DCCReference>
<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">
<Form>srvFormasPago</Form>
<DesignClass>TDataAbstractService</DesignClass>
</DCCReference>
<DCCReference Include="..\Modulos\Gestion de documentos\Servidor\srvGestorDocumentos_Impl.pas">
<Form>srvGestorDocumentos</Form>
<DesignClass>TDataAbstractService</DesignClass>
</DCCReference>
<DCCReference Include="..\Modulos\Gestor de informes\Servidor\srvGestorInformes_Impl.pas">
<Form>srvGestorInformes</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">
<Form>srvObras</Form>
<DesignClass>TDataAbstractService</DesignClass>
</DCCReference>
<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\Pedidos de cliente\Model\schPedidosClienteClient_Intf.pas" />
<DCCReference Include="..\Modulos\Pedidos de cliente\Model\schPedidosClienteServer_Intf.pas" />
<DCCReference Include="..\Modulos\Pedidos de cliente\Model\uBizPedidosClienteServer.pas" />
<DCCReference Include="..\Modulos\Pedidos de cliente\Reports\uRptPedidosCliente_Server.pas">
<Form>RptPedidosCliente</Form>
</DCCReference>
<DCCReference Include="..\Modulos\Pedidos de cliente\Servidor\srvPedidosCliente_Impl.pas">
<Form>srvPedidosCliente</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\Reports\uRptRecibosProveedor_Server.pas">
<Form>RptRecibosProveedor</Form>
<DesignClass>TDataModule</DesignClass>
</DCCReference>
<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\Reports\uRptRemesasCliente_Server.pas">
<Form>RptRemesasCliente</Form>
<DesignClass>TDataModule</DesignClass>
</DCCReference>
<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">
<Form>srvTiposIVA</Form>
<DesignClass>TDataAbstractService</DesignClass>
</DCCReference>
<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\MidasSpeedFix.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]

2
Source/Servidor/FactuGES_Server.rc
View File

@ -17,7 +17,7 @@ BEGIN
VALUE "InternalName", "FactuGES Servidor\0"
VALUE "ProductName", "FactuGES Servidor\0"
VALUE "ProductVersion", "1.0.2.0\0"
VALUE "CompileDate", "viernes, 19 de marzo de 2010 13:53\0"
VALUE "CompileDate", "viernes, 19 de marzo de 2010 17:59\0"
END
END
BLOCK "VarFileInfo"