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

Baja lógica de los artículos

Browse Source 
git-svn-id: https://192.168.0.254/svn/Proyectos.LuisLeon_FactuGES/trunk@96 c93665c3-c93d-084d-9b98-7d5f4a9c3376
This commit is contained in:
roberto 2007-07-17 16:34:18 +00:00
parent 91dd836812
commit 4e8269c20f
30 changed files with 841 additions and 4872 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

BIN
Database/FACTUGES.FDB
View File

Binary file not shown.

31
Database/VISTAS.SQL
View File

@ -1,5 +1,6 @@
DROP VIEW V_VENTAS_ARTICULOS;
//DROP VIEW V_INV_DETALLE_RESERVAS;
//DROP VIEW V_ARTICULOS;
/*
VISTAS RELATIVAS A PEDIDOS Y ALBARANES
@ -1977,6 +1978,7 @@ LEFT JOIN ALMACENES
ON (ALMACENES.ID = V_INVENTARIO_AUX.ID_ALMACEN)
WHERE (ID_ARTICULO <> 0)
AND (ARTICULOS.ELIMINADO = 0)
AND (ARTICULOS.INVENTARIABLE = 1)
GROUP BY ID_ALMACEN,
@ -2352,6 +2354,7 @@ WHERE (ALBARANES_CLIENTE.ID IS NOT NULL)
AND (ALBARANES_CLIENTE.ID_ALMACEN IS NOT NULL)
AND (V_ALB_CLI_SITUACION.SITUACION = 'PENDIENTE')
AND (ARTICULOS.ID is not null)
AND (ARTICULOS.ELIMINADO = 0)
AND (ARTICULOS.INVENTARIABLE = 1)
GROUP BY
@ -2371,3 +2374,31 @@ GROUP BY
ARTICULOS.DESCRIPCION;
CREATE VIEW V_ARTICULOS(
ID, ID_EMPRESA, REFERENCIA, DESCRIPCION,
FAMILIA, IMAGEN, COMISIONABLE, FECHA_ALTA,
FECHA_MODIFICACION, USUARIO,
REFERENCIA_PROV,
PRECIO_COSTE,
PRECIO_PORTE,
DESCUENTO,
PRECIO_NETO,
INVENTARIABLE,
ID_PROVEEDOR,
NOMBRE_PROVEEDOR)
AS
SELECT ARTICULOS.ID, ARTICULOS.ID_EMPRESA, ARTICULOS.REFERENCIA, ARTICULOS.DESCRIPCION,
ARTICULOS.FAMILIA, ARTICULOS.IMAGEN, ARTICULOS.COMISIONABLE, ARTICULOS.FECHA_ALTA,
ARTICULOS.FECHA_MODIFICACION, ARTICULOS.USUARIO,
ARTICULOS.REFERENCIA_PROV,
ARTICULOS.PRECIO_COSTE,
ARTICULOS.PRECIO_PORTE,
ARTICULOS.DESCUENTO,
ARTICULOS.PRECIO_NETO,
ARTICULOS.INVENTARIABLE,
ARTICULOS.ID_PROVEEDOR,
CONTACTOS.NOMBRE AS NOMBRE_PROVEEDOR
FROM ARTICULOS
LEFT OUTER JOIN CONTACTOS ON (CONTACTOS.ID = ARTICULOS.ID_PROVEEDOR)
WHERE (ARTICULOS.ELIMINADO = 0)

BIN
Output/Debug/Cliente/AlbaranesCliente_view.bpl
View File

Binary file not shown.

BIN
Output/Debug/Cliente/AlbaranesProveedor_view.bpl
View File

Binary file not shown.

BIN
Output/Debug/Cliente/Articulos_controller.bpl
View File

Binary file not shown.

BIN
Output/Debug/Cliente/Articulos_data.bpl
View File

Binary file not shown.

BIN
Output/Debug/Cliente/Articulos_model.bpl
View File

Binary file not shown.

BIN
Output/Debug/Cliente/Articulos_plugin.bpl
View File

Binary file not shown.

BIN
Output/Debug/Cliente/Articulos_view.bpl
View File

Binary file not shown.

BIN
Output/Debug/Cliente/Base.bpl
View File

Binary file not shown.

BIN
Output/Debug/Servidor/FactuGES_Server.exe
View File

Binary file not shown.

5477
Output/Debug/Servidor/ServerLog.txt
View File

File diff suppressed because it is too large Load Diff

BIN
Source/Lib/Base.dcp
View File

Binary file not shown.

BIN
Source/Modulos/Albaranes de proveedor/Views/AlbaranesProveedor_view.res
View File

Binary file not shown.

2
Source/Modulos/Albaranes de proveedor/Views/uEditorAlbaranProveedor.dfm
View File

@ -129,7 +129,7 @@ inherited fEditorAlbaranProveedor: TfEditorAlbaranProveedor
Width = 765
ExplicitWidth = 765
inherited tbxMain: TTBXToolbar
ExplicitWidth = 482
ExplicitWidth = 488
inherited TBXItem2: TTBXItem
Visible = False
end

91
Source/Modulos/Albaranes de proveedor/Views/uViewAlbaranDevProveedor.dfm
View File

@ -5,25 +5,79 @@ inherited frViewAlbaranDevProveedor: TfrViewAlbaranDevProveedor
Height = 349
ExplicitHeight = 349
inherited edtFechaAlbaran: TcxDBDateEdit
Left = 106
ExplicitLeft = 106
Left = 114
ExplicitLeft = 114
ExplicitWidth = 119
Width = 119
end
inherited memObservaciones: TcxDBMemo
ExplicitWidth = 186
ExplicitHeight = 162
Height = 162
Width = 186
end
inherited eReferencia: TcxDBTextEdit
Left = 106
ExplicitLeft = 106
Left = 114
ExplicitLeft = 114
ExplicitWidth = 143
Width = 143
end
inherited frViewProveedorAlbaran: TfrViewDatosYSeleccionProveedor
inherited dxLayoutControl1: TdxLayoutControl
inherited edtlNombre: TcxDBTextEdit
ExplicitWidth = 224
Width = 224
end
inherited edtNIFCIF: TcxDBTextEdit
ExplicitWidth = 562
Width = 562
end
inherited edtCalle: TcxDBTextEdit
ExplicitWidth = 562
Width = 562
end
inherited edtPoblacion: TcxDBTextEdit
ExplicitWidth = 177
Width = 177
end
inherited edtProvincia: TcxDBTextEdit
ExplicitWidth = 327
Width = 327
end
end
end
inherited frViewDireccionEntregaAlbaranProv1: TfrViewDireccionEntregaAlbaranProv
Width = 445
Height = 175
ExplicitWidth = 445
ExplicitHeight = 175
inherited dxLayoutControl1: TdxLayoutControl
Width = 445
Height = 175
inherited rdxDestino1: TRadioButton
Width = 255
ExplicitWidth = 255
end
inherited rdxDestino2: TRadioButton
Width = 287
ExplicitWidth = 287
end
inherited cbLista: TcxDBLookupComboBox
ExplicitWidth = 425
Width = 425
end
inherited bModificar: TBitBtn
Left = 109
Top = 109
ExplicitLeft = 109
ExplicitTop = 109
end
inherited txtDireccion: TStaticText
Width = 549
Height = 110
ExplicitWidth = 549
ExplicitHeight = 110
end
inherited dxLayoutGroup1: TdxLayoutGroup
inherited dxLayoutItem1: TdxLayoutItem
Visible = False
@ -41,16 +95,28 @@ inherited frViewAlbaranDevProveedor: TfrViewAlbaranDevProveedor
end
end
inherited cbFormaPago: TcxDBLookupComboBox
Left = 106
ExplicitLeft = 106
Left = 114
ExplicitLeft = 114
ExplicitWidth = 90
Width = 90
end
inherited eReferenciaPedidoCli: TcxTextEdit
Left = 106
ExplicitLeft = 106
Left = 114
ExplicitLeft = 114
ExplicitWidth = 69
Width = 69
end
inherited eRefFacturaProv: TcxDBTextEdit
Left = 106
ExplicitLeft = 106
inherited eRefFactura: TcxDBTextEdit
ExplicitWidth = 172
Width = 172
end
inherited eReferenciaProveedor: TcxDBTextEdit
ExplicitWidth = 172
Width = 172
end
inherited eReferenciaFacturaProveedor: TcxDBTextEdit
ExplicitWidth = 172
Width = 172
end
inherited dxLayoutControl1Group_Root: TdxLayoutGroup
inherited dxLayoutControl1Group6: TdxLayoutGroup
@ -65,6 +131,9 @@ inherited frViewAlbaranDevProveedor: TfrViewAlbaranDevProveedor
inherited dxLayoutControl1Item10: TdxLayoutItem
Caption = 'Ref. abono:'
end
inherited dxLayoutControl1Item12: TdxLayoutItem
Caption = 'Ref. abono prov.:'
end
end
inherited dxLayoutControl1Group8: TdxLayoutGroup
Caption = 'Almac'#233'n de salida'

10
Source/Modulos/Articulos/Controller/uArticulosController.pas
View File

@ -163,7 +163,7 @@ begin
if NotEmpty then
AddOperator(opAND);
OpenBraket;
AddText('ARTICULOS.' + fld_ArticulosINVENTARIABLE + ' = 1');
AddText('V_ARTICULOS.' + fld_ArticulosINVENTARIABLE + ' = 1');
CloseBraket;
end;
finally
@ -185,7 +185,7 @@ begin
if NotEmpty then
AddOperator(opAND);
OpenBraket;
AddText('UPPER(ARTICULOS.' + fld_ArticulosREFERENCIA + ') = UPPER(''' + Ref + ''')');
AddText('UPPER(V_ARTICULOS.' + fld_ArticulosREFERENCIA + ') = UPPER(''' + Ref + ''')');
CloseBraket;
end;
finally
@ -207,7 +207,7 @@ begin
if NotEmpty then
AddOperator(opAND);
OpenBraket;
AddText('UPPER(ARTICULOS.' + fld_ArticulosREFERENCIA_PROV + ') = UPPER(''' + Ref + ''')');
AddText('UPPER(V_ARTICULOS.' + fld_ArticulosREFERENCIA_PROV + ') = UPPER(''' + Ref + ''')');
CloseBraket;
end;
finally
@ -241,7 +241,7 @@ begin
if NotEmpty then
AddOperator(opAND);
OpenBraket;
AddText('ARTICULOS.' + fld_ArticulosID_PROVEEDOR + ' = ' + IntToStr(AProveedor.ID));
AddText('V_ARTICULOS.' + fld_ArticulosID_PROVEEDOR + ' = ' + IntToStr(AProveedor.ID));
CloseBraket;
end;
finally
@ -558,7 +558,7 @@ begin
AddOperator(opAND);
OpenBraket;
AddText('Articulos.' + fld_ArticulosID_EMPRESA + ' = ' + IntToStr(dmUsuarios.IDEmpresaActual));
AddText('V_ARTICULOS.' + fld_ArticulosID_EMPRESA + ' = ' + IntToStr(dmUsuarios.IDEmpresaActual));
CloseBraket;
end;
end;

2
Source/Modulos/Articulos/Data/uDataModuleArticulos.pas
View File

@ -100,7 +100,7 @@ begin
if NotEmpty then
AddOperator(opAND);
OpenBraket;
AddText('ARTICULOS.' + fld_ArticulosID + ' = ' + IntToStr(ID));
AddText('V_ARTICULOS.' + fld_ArticulosID + ' = ' + IntToStr(ID));
CloseBraket;
end;
finally

12
Source/Modulos/Articulos/Model/schArticulosClient_Intf.pas
View File

@ -9,9 +9,9 @@ const
{ Data table rules ids
Feel free to change them to something more human readable
but make sure they are unique in the context of your application }
RID_Articulos = '{D515CBD6-BB7A-4FEA-A69A-2E10784F7EEF}';
RID_Articulos_Refresh = '{4A54BF1E-2535-4927-8D1D-08616C7D2C74}';
RID_ArticulosParaCliente = '{2C3C7AEE-22D8-4987-9139-25FB1FF46AF3}';
RID_Articulos = '{E441AA4D-1DA4-442D-92BC-218930CB8A78}';
RID_Articulos_Refresh = '{858852A1-E01E-4F10-A436-22D45AA3D3F9}';
RID_ArticulosParaCliente = '{F8A7E2B4-CEC6-4858-9787-A8A23673C5A4}';
{ Data table names }
nme_Articulos = 'Articulos';
@ -129,7 +129,7 @@ const
type
{ IArticulos }
IArticulos = interface(IDAStronglyTypedDataTable)
['{191984D1-46BF-4D8E-843B-5D17BD5D17C3}']
['{CAA624A2-CFD6-4682-8D05-C0A8678D0D81}']
{ Property getters and setters }
function GetIDValue: Integer;
procedure SetIDValue(const aValue: Integer);
@ -260,7 +260,7 @@ type
{ IArticulos_Refresh }
IArticulos_Refresh = interface(IDAStronglyTypedDataTable)
['{C04ECE0F-DE5A-4E68-968E-5F571DE8A918}']
['{8159AA14-063E-401C-9305-294EF2EB1090}']
{ Property getters and setters }
function GetIDValue: Integer;
procedure SetIDValue(const aValue: Integer);
@ -355,7 +355,7 @@ type
{ IArticulosParaCliente }
IArticulosParaCliente = interface(IDAStronglyTypedDataTable)
['{80519546-6A72-4B4F-AF8F-9400A8B0F17D}']
['{34CE8C1B-13D2-4122-A142-6955B253630F}']
{ Property getters and setters }
function GetIDValue: Integer;
procedure SetIDValue(const aValue: Integer);

12
Source/Modulos/Articulos/Model/schArticulosServer_Intf.pas
View File

@ -9,14 +9,14 @@ const
{ Delta rules ids
Feel free to change them to something more human readable
but make sure they are unique in the context of your application }
RID_ArticulosDelta = '{1B840EF8-2107-4C47-9A42-88571AED53A0}';
RID_Articulos_RefreshDelta = '{F199A8AD-F0AB-43F9-B87F-0C26FEE26531}';
RID_ArticulosParaClienteDelta = '{FFAC82A1-7347-46D5-95ED-B6A9C084E3C5}';
RID_ArticulosDelta = '{80E4CC83-3996-43F3-A4E9-EB1B216DCCFC}';
RID_Articulos_RefreshDelta = '{060AC1C1-9331-4139-B6FE-2494E90D5041}';
RID_ArticulosParaClienteDelta = '{8BA0EDD6-C57F-422F-83E4-244CD203B0FB}';
type
{ IArticulosDelta }
IArticulosDelta = interface(IArticulos)
['{1B840EF8-2107-4C47-9A42-88571AED53A0}']
['{80E4CC83-3996-43F3-A4E9-EB1B216DCCFC}']
{ Property getters and setters }
function GetOldIDValue : Integer;
function GetOldID_EMPRESAValue : Integer;
@ -164,7 +164,7 @@ type
{ IArticulos_RefreshDelta }
IArticulos_RefreshDelta = interface(IArticulos_Refresh)
['{F199A8AD-F0AB-43F9-B87F-0C26FEE26531}']
['{060AC1C1-9331-4139-B6FE-2494E90D5041}']
{ Property getters and setters }
function GetOldIDValue : Integer;
function GetOldID_EMPRESAValue : Integer;
@ -270,7 +270,7 @@ type
{ IArticulosParaClienteDelta }
IArticulosParaClienteDelta = interface(IArticulosParaCliente)
['{FFAC82A1-7347-46D5-95ED-B6A9C084E3C5}']
['{8BA0EDD6-C57F-422F-83E4-244CD203B0FB}']
{ Property getters and setters }
function GetOldIDValue : Integer;
function GetOldID_EMPRESAValue : Integer;

66
Source/Modulos/Articulos/Servidor/srvArticulos_Impl.dfm
View File

@ -176,18 +176,17 @@ object srvArticulos: TsrvArticulos
Statements = <
item
Connection = 'IBX'
TargetTable = 'ARTICULOS'
TargetTable = 'V_ARTICULOS'
SQL =
'SELECT ARTICULOS.ID, ARTICULOS.ID_EMPRESA, ARTICULOS.REFERENCIA,' +
' ARTICULOS.DESCRIPCION,'#10' ARTICULOS.FAMILIA, ARTICULOS.IMAG' +
'EN, ARTICULOS.COMISIONABLE, ARTICULOS.FECHA_ALTA,'#10' ARTICUL' +
'OS.FECHA_MODIFICACION, ARTICULOS.USUARIO,'#10' ARTICULOS.REFER' +
'ENCIA_PROV,'#10' ARTICULOS.PRECIO_COSTE,'#10' ARTICULOS.PREC' +
'IO_PORTE,'#10' ARTICULOS.DESCUENTO,'#10' ARTICULOS.PRECIO_NE' +
'TO,'#10' ARTICULOS.INVENTARIABLE,'#10' ARTICULOS.ID_PROVEEDO' +
'R,'#10' CONTACTOS.NOMBRE AS NOMBRE_PROVEEDOR'#10'FROM ARTICULOS'#10'LE' +
'FT OUTER JOIN CONTACTOS ON'#10' (CONTACTOS.ID = ARTICULOS.ID_PRO' +
'VEEDOR)'
'SELECT V_ARTICULOS.ID, V_ARTICULOS.ID_EMPRESA, V_ARTICULOS.REFER' +
'ENCIA, V_ARTICULOS.DESCRIPCION,'#10' V_ARTICULOS.FAMILIA, V_AR' +
'TICULOS.IMAGEN, V_ARTICULOS.COMISIONABLE, V_ARTICULOS.FECHA_ALTA' +
','#10' V_ARTICULOS.FECHA_MODIFICACION, V_ARTICULOS.USUARIO,'#10' ' +
' V_ARTICULOS.REFERENCIA_PROV,'#10' V_ARTICULOS.PRECIO_COST' +
'E,'#10' V_ARTICULOS.PRECIO_PORTE,'#10' V_ARTICULOS.DESCUENTO' +
','#10' V_ARTICULOS.PRECIO_NETO,'#10' V_ARTICULOS.INVENTARIAB' +
'LE,'#10' V_ARTICULOS.ID_PROVEEDOR,'#10' V_ARTICULOS.NOMBRE_P' +
'ROVEEDOR'#10'FROM V_ARTICULOS'
StatementType = stSQL
ColumnMappings = <
item
@ -484,16 +483,17 @@ object srvArticulos: TsrvArticulos
Statements = <
item
Connection = 'IBX'
TargetTable = 'ARTICULOS'
TargetTable = 'V_ARTICULOS'
SQL =
'SELECT ARTICULOS.ID, ARTICULOS.ID_EMPRESA, ARTICULOS.FECHA_ALTA,' +
#10' ARTICULOS.FECHA_MODIFICACION,'#10' ARTICULOS.REFERENCI' +
'A_PROV,'#10' ARTICULOS.PRECIO_COSTE,'#10' ARTICULOS.PRECIO_P' +
'ORTE,'#10' ARTICULOS.DESCUENTO,'#10' ARTICULOS.PRECIO_NETO,'#10 +
' ARTICULOS.INVENTARIABLE,'#10' ARTICULOS.ID_PROVEEDOR,'#10' ' +
' CONTACTOS.NOMBRE AS NOMBRE_PROVEEDOR'#10'FROM ARTICULOS'#10'LEFT O' +
'UTER JOIN CONTACTOS ON'#10' (CONTACTOS.ID = ARTICULOS.ID_PROVEED' +
'OR)'#10'WHERE ARTICULOS.ID = :ID'
'SELECT V_ARTICULOS.ID, V_ARTICULOS.ID_EMPRESA, V_ARTICULOS.REFER' +
'ENCIA, V_ARTICULOS.DESCRIPCION,'#10' V_ARTICULOS.FAMILIA, V_AR' +
'TICULOS.IMAGEN, V_ARTICULOS.COMISIONABLE, V_ARTICULOS.FECHA_ALTA' +
','#10' V_ARTICULOS.FECHA_MODIFICACION, V_ARTICULOS.USUARIO,'#10' ' +
' V_ARTICULOS.REFERENCIA_PROV,'#10' V_ARTICULOS.PRECIO_COST' +
'E,'#10' V_ARTICULOS.PRECIO_PORTE,'#10' V_ARTICULOS.DESCUENTO' +
','#10' V_ARTICULOS.PRECIO_NETO,'#10' V_ARTICULOS.INVENTARIAB' +
'LE,'#10' V_ARTICULOS.ID_PROVEEDOR,'#10' V_ARTICULOS.NOMBRE_P' +
'ROVEEDOR'#10'FROM V_ARTICULOS'#10'WHERE V_ARTICULOS.ID = :ID'
StatementType = stSQL
ColumnMappings = <
item
@ -697,18 +697,18 @@ object srvArticulos: TsrvArticulos
Connection = 'IBX'
TargetTable = 'ARTICULOS'
SQL =
'SELECT ARTICULOS.ID, ARTICULOS.ID_EMPRESA, ARTICULOS.REFERENCIA,' +
' ARTICULOS.DESCRIPCION,'#10' ARTICULOS.FAMILIA, ARTICULOS.IMAG' +
'EN, ARTICULOS.COMISIONABLE, ARTICULOS.FECHA_ALTA,'#10' ARTICUL' +
'OS.FECHA_MODIFICACION, ARTICULOS.USUARIO,'#10' ARTICULOS.REFER' +
'ENCIA_PROV,'#10' ARTICULOS.PRECIO_COSTE,'#10' ARTICULOS.PREC' +
'IO_PORTE,'#10' CLIENTES_DTOS_PROVEEDORES.DESCUENTO,'#10' ART' +
'ICULOS.PRECIO_NETO,'#10' ARTICULOS.ID_PROVEEDOR,'#10' ARTICU' +
'LOS.INVENTARIABLE,'#10' CONTACTOS.NOMBRE AS NOMBRE_PROVEEDOR'#10'F' +
'ROM ARTICULOS'#10'LEFT OUTER JOIN CONTACTOS ON (CONTACTOS.ID = ARTIC' +
'ULOS.ID_PROVEEDOR)'#10'LEFT OUTER JOIN CLIENTES_DTOS_PROVEEDORES ON ' +
'((CLIENTES_DTOS_PROVEEDORES.ID_PROVEEDOR = ARTICULOS.ID_PROVEEDO' +
'R)'#10'AND (CLIENTES_DTOS_PROVEEDORES.ID_CLIENTE = :ID_CLIENTE))'
'SELECT V_ARTICULOS.ID, V_ARTICULOS.ID_EMPRESA, V_ARTICULOS.REFER' +
'ENCIA, V_ARTICULOS.DESCRIPCION,'#10' V_ARTICULOS.FAMILIA, V_AR' +
'TICULOS.IMAGEN, V_ARTICULOS.COMISIONABLE, V_ARTICULOS.FECHA_ALTA' +
','#10' V_ARTICULOS.FECHA_MODIFICACION, V_ARTICULOS.USUARIO,'#10' ' +
' V_ARTICULOS.REFERENCIA_PROV,'#10' V_ARTICULOS.PRECIO_COST' +
'E,'#10' V_ARTICULOS.PRECIO_PORTE,'#10' CLIENTES_DTOS_PROVEED' +
'ORES.DESCUENTO,'#10' V_ARTICULOS.PRECIO_NETO,'#10' V_ARTICUL' +
'OS.INVENTARIABLE,'#10' V_ARTICULOS.ID_PROVEEDOR,'#10' V_ARTI' +
'CULOS.NOMBRE_PROVEEDOR'#10'FROM V_ARTICULOS'#10'LEFT OUTER JOIN CLIENTES' +
'_DTOS_PROVEEDORES'#10'ON ((CLIENTES_DTOS_PROVEEDORES.ID_PROVEEDOR = ' +
'V_ARTICULOS.ID_PROVEEDOR)'#10'AND (CLIENTES_DTOS_PROVEEDORES.ID_CLIE' +
'NTE = :ID_CLIENTE))'
StatementType = stSQL
ColumnMappings = <
item
@ -1152,7 +1152,7 @@ object srvArticulos: TsrvArticulos
item
Connection = 'IBX'
TargetTable = 'ARTICULOS'
SQL = 'DELETE '#10' FROM'#10' ARTICULOS'#10' WHERE'#10' (ID = :OLD_ID)'
SQL = 'UPDATE ARTICULOS'#10'SET ELIMINADO = 1'#10'WHERE (ID = :OLD_ID)'
StatementType = stSQL
ColumnMappings = <>
end>

BIN
Source/Modulos/Lib/AlbaranesCliente_view.dcp
View File

Binary file not shown.

BIN
Source/Modulos/Lib/AlbaranesProveedor_view.dcp
View File

Binary file not shown.

BIN
Source/Modulos/Lib/Articulos_controller.dcp
View File

Binary file not shown.

BIN
Source/Modulos/Lib/Articulos_data.dcp
View File

Binary file not shown.

BIN
Source/Modulos/Lib/Articulos_model.dcp
View File

Binary file not shown.

BIN
Source/Modulos/Lib/Articulos_plugin.dcp
View File

Binary file not shown.

BIN
Source/Modulos/Lib/Articulos_view.dcp
View File

Binary file not shown.

4
Source/Servidor/FactuGES_Server.bdsproj
View File

@ -175,9 +175,7 @@
<VersionInfoKeys Name="ProductName"></VersionInfoKeys>
<VersionInfoKeys Name="ProductVersion">2.0.8.0</VersionInfoKeys>
<VersionInfoKeys Name="Comments"></VersionInfoKeys>
<VersionInfoKeys Name="CompileDate">lunes, 25 de junio de 2007 19:23</VersionInfoKeys></VersionInfoKeys>
<Excluded_Packages>
<VersionInfoKeys Name="CompileDate">lunes, 25 de junio de 2007 19:23</VersionInfoKeys></VersionInfoKeys> <Excluded_Packages>
<Excluded_Packages Name="C:\Archivos de programa\RemObjects Software\Pascal Script\Dcu\D10\PascalScript_RO_D10.bpl">RemObjects Pascal Script - RemObjects SDK 3.0 Integration</Excluded_Packages>
</Excluded_Packages>
</Delphi.Personality>

6
Source/Servidor/FactuGES_Server.dpr
View File

@ -45,8 +45,6 @@ uses
schFamiliasServer_Intf in '..\Modulos\Familias\Model\schFamiliasServer_Intf.pas',
schEmpresasClient_Intf in '..\Modulos\Empresas\Model\schEmpresasClient_Intf.pas',
schEmpresasServer_Intf in '..\Modulos\Empresas\Model\schEmpresasServer_Intf.pas',
schArticulosClient_Intf in '..\Modulos\Articulos\Model\schArticulosClient_Intf.pas',
schArticulosServer_Intf in '..\Modulos\Articulos\Model\schArticulosServer_Intf.pas',
uRptPedidosCliente_Server in '..\Modulos\Pedidos de cliente\Reports\uRptPedidosCliente_Server.pas' {RptPedidosCliente: TDataModule},
srvAlbaranesCliente_Impl in '..\Modulos\Albaranes de cliente\Servidor\srvAlbaranesCliente_Impl.pas' {srvAlbaranesCliente: TDARemoteService},
srvAlbaranesProveedor_Impl in '..\Modulos\Albaranes de proveedor\Servidor\srvAlbaranesProveedor_Impl.pas' {srvAlbaranesProveedor: TDARemoteService},
@ -126,7 +124,9 @@ uses
schContactosClient_Intf in '..\Modulos\Contactos\Model\schContactosClient_Intf.pas',
schContactosServer_Intf in '..\Modulos\Contactos\Model\schContactosServer_Intf.pas',
schInventarioClient_Intf in '..\Modulos\Inventario\Model\schInventarioClient_Intf.pas',
schInventarioServer_Intf in '..\Modulos\Inventario\Model\schInventarioServer_Intf.pas';
schInventarioServer_Intf in '..\Modulos\Inventario\Model\schInventarioServer_Intf.pas',
schArticulosClient_Intf in '..\Modulos\Articulos\Model\schArticulosClient_Intf.pas',
schArticulosServer_Intf in '..\Modulos\Articulos\Model\schArticulosServer_Intf.pas';
{$R *.res}
{$R ..\Servicios\RODLFile.res}