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_VENTAS_ARTICULOS;
//DROP VIEW V_INV_DETALLE_RESERVAS; //DROP VIEW V_INV_DETALLE_RESERVAS;
//DROP VIEW V_ARTICULOS;
/* /*
VISTAS RELATIVAS A PEDIDOS Y ALBARANES VISTAS RELATIVAS A PEDIDOS Y ALBARANES
@ -1977,6 +1978,7 @@ LEFT JOIN ALMACENES
ON (ALMACENES.ID = V_INVENTARIO_AUX.ID_ALMACEN) ON (ALMACENES.ID = V_INVENTARIO_AUX.ID_ALMACEN)
WHERE (ID_ARTICULO <> 0) WHERE (ID_ARTICULO <> 0)
AND (ARTICULOS.ELIMINADO = 0)
AND (ARTICULOS.INVENTARIABLE = 1) AND (ARTICULOS.INVENTARIABLE = 1)
GROUP BY ID_ALMACEN, GROUP BY ID_ALMACEN,
@ -2352,6 +2354,7 @@ WHERE (ALBARANES_CLIENTE.ID IS NOT NULL)
AND (ALBARANES_CLIENTE.ID_ALMACEN IS NOT NULL) AND (ALBARANES_CLIENTE.ID_ALMACEN IS NOT NULL)
AND (V_ALB_CLI_SITUACION.SITUACION = 'PENDIENTE') AND (V_ALB_CLI_SITUACION.SITUACION = 'PENDIENTE')
AND (ARTICULOS.ID is not null) AND (ARTICULOS.ID is not null)
AND (ARTICULOS.ELIMINADO = 0)
AND (ARTICULOS.INVENTARIABLE = 1) AND (ARTICULOS.INVENTARIABLE = 1)
GROUP BY GROUP BY
@ -2371,3 +2374,31 @@ GROUP BY
ARTICULOS.DESCRIPCION; 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.

5437
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 Width = 765
ExplicitWidth = 765 ExplicitWidth = 765
inherited tbxMain: TTBXToolbar inherited tbxMain: TTBXToolbar
ExplicitWidth = 482 ExplicitWidth = 488
inherited TBXItem2: TTBXItem inherited TBXItem2: TTBXItem
Visible = False Visible = False
end end

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

@ -5,25 +5,79 @@ inherited frViewAlbaranDevProveedor: TfrViewAlbaranDevProveedor
Height = 349 Height = 349
ExplicitHeight = 349 ExplicitHeight = 349
inherited edtFechaAlbaran: TcxDBDateEdit inherited edtFechaAlbaran: TcxDBDateEdit
Left = 106 Left = 114
ExplicitLeft = 106 ExplicitLeft = 114
ExplicitWidth = 119
Width = 119
end end
inherited memObservaciones: TcxDBMemo inherited memObservaciones: TcxDBMemo
ExplicitWidth = 186
ExplicitHeight = 162 ExplicitHeight = 162
Height = 162 Height = 162
Width = 186
end end
inherited eReferencia: TcxDBTextEdit inherited eReferencia: TcxDBTextEdit
Left = 106 Left = 114
ExplicitLeft = 106 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 end
inherited frViewDireccionEntregaAlbaranProv1: TfrViewDireccionEntregaAlbaranProv inherited frViewDireccionEntregaAlbaranProv1: TfrViewDireccionEntregaAlbaranProv
Width = 445
Height = 175
ExplicitWidth = 445
ExplicitHeight = 175
inherited dxLayoutControl1: TdxLayoutControl 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 inherited bModificar: TBitBtn
Left = 109 Left = 109
Top = 109 Top = 109
ExplicitLeft = 109 ExplicitLeft = 109
ExplicitTop = 109 ExplicitTop = 109
end end
inherited txtDireccion: TStaticText
Width = 549
Height = 110
ExplicitWidth = 549
ExplicitHeight = 110
end
inherited dxLayoutGroup1: TdxLayoutGroup inherited dxLayoutGroup1: TdxLayoutGroup
inherited dxLayoutItem1: TdxLayoutItem inherited dxLayoutItem1: TdxLayoutItem
Visible = False Visible = False
@ -41,16 +95,28 @@ inherited frViewAlbaranDevProveedor: TfrViewAlbaranDevProveedor
end end
end end
inherited cbFormaPago: TcxDBLookupComboBox inherited cbFormaPago: TcxDBLookupComboBox
Left = 106 Left = 114
ExplicitLeft = 106 ExplicitLeft = 114
ExplicitWidth = 90
Width = 90
end end
inherited eReferenciaPedidoCli: TcxTextEdit inherited eReferenciaPedidoCli: TcxTextEdit
Left = 106 Left = 114
ExplicitLeft = 106 ExplicitLeft = 114
ExplicitWidth = 69
Width = 69
end end
inherited eRefFacturaProv: TcxDBTextEdit inherited eRefFactura: TcxDBTextEdit
Left = 106 ExplicitWidth = 172
ExplicitLeft = 106 Width = 172
end
inherited eReferenciaProveedor: TcxDBTextEdit
ExplicitWidth = 172
Width = 172
end
inherited eReferenciaFacturaProveedor: TcxDBTextEdit
ExplicitWidth = 172
Width = 172
end end
inherited dxLayoutControl1Group_Root: TdxLayoutGroup inherited dxLayoutControl1Group_Root: TdxLayoutGroup
inherited dxLayoutControl1Group6: TdxLayoutGroup inherited dxLayoutControl1Group6: TdxLayoutGroup
@ -65,6 +131,9 @@ inherited frViewAlbaranDevProveedor: TfrViewAlbaranDevProveedor
inherited dxLayoutControl1Item10: TdxLayoutItem inherited dxLayoutControl1Item10: TdxLayoutItem
Caption = 'Ref. abono:' Caption = 'Ref. abono:'
end end
inherited dxLayoutControl1Item12: TdxLayoutItem
Caption = 'Ref. abono prov.:'
end
end end
inherited dxLayoutControl1Group8: TdxLayoutGroup inherited dxLayoutControl1Group8: TdxLayoutGroup
Caption = 'Almac'#233'n de salida' Caption = 'Almac'#233'n de salida'

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

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

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

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

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

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

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

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

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

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

6
Source/Servidor/FactuGES_Server.dpr
View File

@ -45,8 +45,6 @@ uses
schFamiliasServer_Intf in '..\Modulos\Familias\Model\schFamiliasServer_Intf.pas', schFamiliasServer_Intf in '..\Modulos\Familias\Model\schFamiliasServer_Intf.pas',
schEmpresasClient_Intf in '..\Modulos\Empresas\Model\schEmpresasClient_Intf.pas', schEmpresasClient_Intf in '..\Modulos\Empresas\Model\schEmpresasClient_Intf.pas',
schEmpresasServer_Intf in '..\Modulos\Empresas\Model\schEmpresasServer_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}, 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}, 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}, 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', schContactosClient_Intf in '..\Modulos\Contactos\Model\schContactosClient_Intf.pas',
schContactosServer_Intf in '..\Modulos\Contactos\Model\schContactosServer_Intf.pas', schContactosServer_Intf in '..\Modulos\Contactos\Model\schContactosServer_Intf.pas',
schInventarioClient_Intf in '..\Modulos\Inventario\Model\schInventarioClient_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 *.res}
{$R ..\Servicios\RODLFile.res} {$R ..\Servicios\RODLFile.res}