diff --git a/Source/Base/Base.dproj b/Source/Base/Base.dproj
index 6f70ea9c..f3588d42 100644
--- a/Source/Base/Base.dproj
+++ b/Source/Base/Base.dproj
@@ -44,6 +44,13 @@
Package
FalseTrueFalseLibreria base de FactuGESTrueFalseFalseTrueFalse1000FalseFalseFalseFalseFalse308212521.0.0.01.0.0.0
+
+
+
+
+
+
+
VCL for the Web Design Package for CodeGear RAD Studio
CodeGear WebSnap Components
CodeGear SOAP Components
@@ -58,57 +65,57 @@
MainSource
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
+
+
+
+
+
+
+
+
+
+
+
diff --git a/Source/Base/Base.res b/Source/Base/Base.res
index 8b251f31..1641339f 100644
Binary files a/Source/Base/Base.res and b/Source/Base/Base.res differ
diff --git a/Source/Modulos/Articulos/Views/uViewDetallesArticulos.dfm b/Source/Modulos/Articulos/Views/uViewDetallesArticulos.dfm
index e2a2afb9..a3f7fd72 100644
--- a/Source/Modulos/Articulos/Views/uViewDetallesArticulos.dfm
+++ b/Source/Modulos/Articulos/Views/uViewDetallesArticulos.dfm
@@ -63,13 +63,8 @@ inherited frViewDetallesArticulos: TfrViewDetallesArticulos
end
inherited cxGrid: TcxGrid
inherited cxGridView: TcxGridDBTableView
- inherited cxGridViewID: TcxGridDBColumn
- Visible = True
- end
- inherited cxGridViewPOSICION: TcxGridDBColumn
- Visible = True
- end
inherited cxGridViewTIPO: TcxGridDBColumn
+ Visible = False
Width = 26
end
object cxGridViewID_ARTICULO: TcxGridDBColumn [3]
diff --git a/Source/Modulos/Pedidos a proveedor/Data/uDataModulePedidosProveedor.dfm b/Source/Modulos/Pedidos a proveedor/Data/uDataModulePedidosProveedor.dfm
index e3a818b0..83675ac7 100644
--- a/Source/Modulos/Pedidos a proveedor/Data/uDataModulePedidosProveedor.dfm
+++ b/Source/Modulos/Pedidos a proveedor/Data/uDataModulePedidosProveedor.dfm
@@ -31,6 +31,7 @@ inherited DataModulePedidosProveedor: TDataModulePedidosProveedor
DataType = datAutoInc
GeneratorName = 'GEN_PEDIDOS_PROV_ID'
Required = True
+ ServerAutoRefresh = True
DictionaryEntry = 'PedidosProveedor_ID'
InPrimaryKey = True
end
@@ -62,13 +63,13 @@ inherited DataModulePedidosProveedor: TDataModulePedidosProveedor
Name = 'SITUACION'
DataType = datString
Size = 255
- DisplayLabel = 'Situaci'#195#179'n'
+ DisplayLabel = 'Situaci'#243'n'
DictionaryEntry = 'PedidosProveedor_SITUACION'
end
item
Name = 'FECHA_ENVIO'
DataType = datDateTime
- DisplayLabel = #194#191'Enviado?'
+ DisplayLabel = #191'Enviado?'
DictionaryEntry = 'PedidosProveedor_FECHA_ENVIO'
end
item
@@ -80,7 +81,7 @@ inherited DataModulePedidosProveedor: TDataModulePedidosProveedor
item
Name = 'FECHA_CONFIRMACION'
DataType = datDateTime
- DisplayLabel = #194#191'Confirmado?'
+ DisplayLabel = #191'Confirmado?'
DictionaryEntry = 'PedidosProveedor_FECHA_CONFIRMACION'
end
item
@@ -99,7 +100,7 @@ inherited DataModulePedidosProveedor: TDataModulePedidosProveedor
Name = 'NOMBRE_ALMACEN'
DataType = datString
Size = 255
- DisplayLabel = 'Almac'#195#169'n'
+ DisplayLabel = 'Almac'#233'n'
DictionaryEntry = 'PedidosProveedor_NOMBRE_ALMACEN'
end
item
@@ -136,7 +137,7 @@ inherited DataModulePedidosProveedor: TDataModulePedidosProveedor
Name = 'POBLACION'
DataType = datString
Size = 255
- DisplayLabel = 'Poblaci'#195#179'n'
+ DisplayLabel = 'Poblaci'#243'n'
DictionaryEntry = 'PedidosProveedor_POBLACION'
end
item
@@ -150,7 +151,7 @@ inherited DataModulePedidosProveedor: TDataModulePedidosProveedor
Name = 'CODIGO_POSTAL'
DataType = datString
Size = 10
- DisplayLabel = 'C'#195#179'd. postal'
+ DisplayLabel = 'C'#243'd. postal'
DictionaryEntry = 'PedidosProveedor_CODIGO_POSTAL'
end
item
@@ -164,7 +165,7 @@ inherited DataModulePedidosProveedor: TDataModulePedidosProveedor
Name = 'TELEFONO'
DataType = datString
Size = 25
- DisplayLabel = 'Tel'#195#169'fono'
+ DisplayLabel = 'Tel'#233'fono'
DictionaryEntry = 'PedidosProveedor_TELEFONO'
end
item
@@ -327,8 +328,11 @@ inherited DataModulePedidosProveedor: TDataModulePedidosProveedor
Fields = <
item
Name = 'ID'
- DataType = datInteger
+ DataType = datAutoInc
+ GeneratorName = 'GEN_PEDIDOS_PROV_DETALLES_ID'
Required = True
+ ServerAutoRefresh = True
+ DictionaryEntry = 'PedidosProveedor_Detalles_ID'
InPrimaryKey = True
end
item
diff --git a/Source/Modulos/Pedidos a proveedor/Model/PedidosProveedor_model.identcache b/Source/Modulos/Pedidos a proveedor/Model/PedidosProveedor_model.identcache
index 7499a4dd..1472f38c 100644
Binary files a/Source/Modulos/Pedidos a proveedor/Model/PedidosProveedor_model.identcache and b/Source/Modulos/Pedidos a proveedor/Model/PedidosProveedor_model.identcache differ
diff --git a/Source/Modulos/Pedidos a proveedor/Model/schPedidosProveedorClient_Intf.pas b/Source/Modulos/Pedidos a proveedor/Model/schPedidosProveedorClient_Intf.pas
index 820d342c..ddacb35c 100644
--- a/Source/Modulos/Pedidos a proveedor/Model/schPedidosProveedorClient_Intf.pas
+++ b/Source/Modulos/Pedidos a proveedor/Model/schPedidosProveedorClient_Intf.pas
@@ -3,16 +3,16 @@ unit schPedidosProveedorClient_Intf;
interface
uses
- Classes, DB, schBase_Intf, SysUtils, uROClasses, uDADataTable, FmtBCD, uROXMLIntf;
+ Classes, DB, SysUtils, uROClasses, uDADataTable, FmtBCD, uROXMLIntf;
const
{ Data table rules ids
Feel free to change them to something more human readable
but make sure they are unique in the context of your application }
- RID_DarReferencia = '{ECD374FB-DEC3-4BD3-8B94-3D682010F0FC}';
- RID_PedidosProveedor = '{2D04B1A7-0FD8-4D76-A3C5-A359F90149B0}';
- RID_PedidosProveedor_Detalles = '{C2304714-5565-46A7-B19D-3E0B8FB1CCAC}';
- RID_PedidosProveedor_Articulos_Pendientes = '{6016265E-4953-4240-BB67-842699A43AD5}';
+ RID_DarReferencia = '{CA7994DB-6CC3-4494-8CDA-4D8411DB5D2D}';
+ RID_PedidosProveedor = '{684C5776-911B-490A-9C71-D4EDCCAD631E}';
+ RID_PedidosProveedor_Detalles = '{FCF3DE95-4073-4679-92C0-87B7E7C46108}';
+ RID_PedidosProveedor_Articulos_Pendientes = '{EA978B2E-441A-49F8-AF4D-76517D74CF10}';
{ Data table names }
nme_DarReferencia = 'DarReferencia';
@@ -151,7 +151,7 @@ const
type
{ IDarReferencia }
IDarReferencia = interface(IDAStronglyTypedDataTable)
- ['{87AF2361-34C9-47CE-8B54-87175DC678BB}']
+ ['{04456888-5D38-48BB-8CED-95617D1F2BB9}']
{ Property getters and setters }
function GetVALORValue: String;
procedure SetVALORValue(const aValue: String);
@@ -165,7 +165,7 @@ type
end;
{ TDarReferenciaDataTableRules }
- TDarReferenciaDataTableRules = class(TIntfObjectDADataTableRules, IDarReferencia)
+ TDarReferenciaDataTableRules = class(TDADataTableRules, IDarReferencia)
private
protected
{ Property getters and setters }
@@ -186,7 +186,7 @@ type
{ IPedidosProveedor }
IPedidosProveedor = interface(IDAStronglyTypedDataTable)
- ['{E49280D2-1776-46E8-86B8-5149F77BDCF3}']
+ ['{4E3D9B42-CF76-460B-8136-2D0C2B3417D4}']
{ Property getters and setters }
function GetIDValue: Integer;
procedure SetIDValue(const aValue: Integer);
@@ -402,7 +402,7 @@ type
end;
{ TPedidosProveedorDataTableRules }
- TPedidosProveedorDataTableRules = class(TIntfObjectDADataTableRules, IPedidosProveedor)
+ TPedidosProveedorDataTableRules = class(TDADataTableRules, IPedidosProveedor)
private
f_OBSERVACIONES: IROStrings;
f_INCIDENCIAS: IROStrings;
@@ -629,7 +629,7 @@ type
{ IPedidosProveedor_Detalles }
IPedidosProveedor_Detalles = interface(IDAStronglyTypedDataTable)
- ['{89FC103E-BFB3-41F8-9043-F97B9A488EAA}']
+ ['{127BE3FD-DEF4-4C58-ABC5-5A54DCE0608D}']
{ Property getters and setters }
function GetIDValue: Integer;
procedure SetIDValue(const aValue: Integer);
@@ -721,7 +721,7 @@ type
end;
{ TPedidosProveedor_DetallesDataTableRules }
- TPedidosProveedor_DetallesDataTableRules = class(TIntfObjectDADataTableRules, IPedidosProveedor_Detalles)
+ TPedidosProveedor_DetallesDataTableRules = class(TDADataTableRules, IPedidosProveedor_Detalles)
private
protected
{ Property getters and setters }
@@ -820,7 +820,7 @@ type
{ IPedidosProveedor_Articulos_Pendientes }
IPedidosProveedor_Articulos_Pendientes = interface(IDAStronglyTypedDataTable)
- ['{809B7C0C-097F-41C4-B931-B8E1C69B6CA5}']
+ ['{34BDDF31-970F-4F58-923B-1C0E66F27A5F}']
{ Property getters and setters }
function GetID_PEDIDOValue: Integer;
procedure SetID_PEDIDOValue(const aValue: Integer);
@@ -864,7 +864,7 @@ type
end;
{ TPedidosProveedor_Articulos_PendientesDataTableRules }
- TPedidosProveedor_Articulos_PendientesDataTableRules = class(TIntfObjectDADataTableRules, IPedidosProveedor_Articulos_Pendientes)
+ TPedidosProveedor_Articulos_PendientesDataTableRules = class(TDADataTableRules, IPedidosProveedor_Articulos_Pendientes)
private
protected
{ Property getters and setters }
diff --git a/Source/Modulos/Pedidos a proveedor/Model/schPedidosProveedorServer_Intf.pas b/Source/Modulos/Pedidos a proveedor/Model/schPedidosProveedorServer_Intf.pas
index e4dbd92b..662cc9b0 100644
--- a/Source/Modulos/Pedidos a proveedor/Model/schPedidosProveedorServer_Intf.pas
+++ b/Source/Modulos/Pedidos a proveedor/Model/schPedidosProveedorServer_Intf.pas
@@ -9,15 +9,15 @@ 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_DarReferenciaDelta = '{C99C46FF-39A2-4012-9082-AB75F2697D32}';
- RID_PedidosProveedorDelta = '{202FCF2F-55FB-46BF-BE89-70B9FF26C348}';
- RID_PedidosProveedor_DetallesDelta = '{2C1855B3-AB89-4FCF-901B-0B55C5B1C45F}';
- RID_PedidosProveedor_Articulos_PendientesDelta = '{C22CA682-0E3B-40F8-9F4A-D422BC284233}';
+ RID_DarReferenciaDelta = '{A1F1C534-FD91-42C1-856B-0CAE9DE48B68}';
+ RID_PedidosProveedorDelta = '{349D50BE-57FD-468A-8751-0374A571AAA4}';
+ RID_PedidosProveedor_DetallesDelta = '{E924668B-8D1B-44C3-9DA2-D033F8C44E06}';
+ RID_PedidosProveedor_Articulos_PendientesDelta = '{0B859C3A-9F82-4451-A206-24CEF18A61E9}';
type
{ IDarReferenciaDelta }
IDarReferenciaDelta = interface(IDarReferencia)
- ['{C99C46FF-39A2-4012-9082-AB75F2697D32}']
+ ['{A1F1C534-FD91-42C1-856B-0CAE9DE48B68}']
{ Property getters and setters }
function GetOldVALORValue : String;
@@ -51,7 +51,7 @@ type
{ IPedidosProveedorDelta }
IPedidosProveedorDelta = interface(IPedidosProveedor)
- ['{202FCF2F-55FB-46BF-BE89-70B9FF26C348}']
+ ['{349D50BE-57FD-468A-8751-0374A571AAA4}']
{ Property getters and setters }
function GetOldIDValue : Integer;
function GetOldID_EMPRESAValue : Integer;
@@ -495,7 +495,7 @@ type
{ IPedidosProveedor_DetallesDelta }
IPedidosProveedor_DetallesDelta = interface(IPedidosProveedor_Detalles)
- ['{2C1855B3-AB89-4FCF-901B-0B55C5B1C45F}']
+ ['{E924668B-8D1B-44C3-9DA2-D033F8C44E06}']
{ Property getters and setters }
function GetOldIDValue : Integer;
function GetOldID_PEDIDOValue : Integer;
@@ -685,7 +685,7 @@ type
{ IPedidosProveedor_Articulos_PendientesDelta }
IPedidosProveedor_Articulos_PendientesDelta = interface(IPedidosProveedor_Articulos_Pendientes)
- ['{C22CA682-0E3B-40F8-9F4A-D422BC284233}']
+ ['{0B859C3A-9F82-4451-A206-24CEF18A61E9}']
{ Property getters and setters }
function GetOldID_PEDIDOValue : Integer;
function GetOldREFERENCIAValue : String;
diff --git a/Source/Modulos/Pedidos a proveedor/Model/uBizPedidosProveedorServer.pas b/Source/Modulos/Pedidos a proveedor/Model/uBizPedidosProveedorServer.pas
index 9b97e78d..5c128d8e 100644
--- a/Source/Modulos/Pedidos a proveedor/Model/uBizPedidosProveedorServer.pas
+++ b/Source/Modulos/Pedidos a proveedor/Model/uBizPedidosProveedorServer.pas
@@ -46,7 +46,7 @@ begin
try
//Siempre va a estar rellena
Empresa := Sender.CurrentChange.NewValueByName[fld_PedidosProveedorID_EMPRESA];
- dsData := ASchema.NewDataset(ACurrentConn, 'DarReferencia', ['CODIGO', 'ID_EMPRESA'], [REF_PEDIDOS_PROVEEDOR, Empresa]);
+ dsData := ASchema.NewDataset(ACurrentConn, 'DarReferencia', ['CODIGO', 'EMPRESA'], [REF_PEDIDOS_PROVEEDOR, Empresa]);
except
RaiseError('No existe la tabla REFERENCIAS');
end;
@@ -59,7 +59,7 @@ begin
REFERENCIA := dsData.FieldByName(fld_DarReferenciaVALOR).AsString;
try
- ASchema.NewCommand(ACurrentConn, 'ModificarReferencia', ['CODIGO', 'VALOR', 'ID_EMPRESA'], [REF_PEDIDOS_PROVEEDOR, DarReferenciaSiguiente(REFERENCIA), Empresa]);
+ ASchema.NewCommand(ACurrentConn, 'ModificarReferencia', ['CODIGO', 'VALOR', 'EMPRESA'], [REF_PEDIDOS_PROVEEDOR, DarReferenciaSiguiente(REFERENCIA), Empresa]);
except
RaiseError('Error al asignar la nueva ' + REFERENCIA + ' referencia en tabla');
end;
diff --git a/Source/Modulos/Pedidos a proveedor/Servidor/srvPedidosProveedor_Impl.dfm b/Source/Modulos/Pedidos a proveedor/Servidor/srvPedidosProveedor_Impl.dfm
index afb87490..aab23622 100644
--- a/Source/Modulos/Pedidos a proveedor/Servidor/srvPedidosProveedor_Impl.dfm
+++ b/Source/Modulos/Pedidos a proveedor/Servidor/srvPedidosProveedor_Impl.dfm
@@ -203,6 +203,7 @@ object srvPedidosProveedor: TsrvPedidosProveedor
Name = 'ID'
DataType = datAutoInc
GeneratorName = 'GEN_PEDIDOS_PROV_ID'
+ ServerAutoRefresh = True
DictionaryEntry = 'PedidosProveedor_ID'
InPrimaryKey = True
end
@@ -473,8 +474,10 @@ object srvPedidosProveedor: TsrvPedidosProveedor
Fields = <
item
Name = 'ID'
- DataType = datInteger
- Required = True
+ DataType = datAutoInc
+ GeneratorName = 'GEN_PEDIDOS_PROV_DETALLES_ID'
+ ServerAutoRefresh = True
+ DictionaryEntry = 'PedidosProveedor_Detalles_ID'
InPrimaryKey = True
end
item
@@ -620,23 +623,15 @@ object srvPedidosProveedor: TsrvPedidosProveedor
Params = <
item
Name = 'VALOR'
- DataType = datString
- Size = 255
Value = ''
- ParamType = daptInput
end
item
Name = 'CODIGO'
- DataType = datString
- Size = 50
Value = ''
- ParamType = daptInput
end
item
- Name = 'ID_EMPRESA'
- DataType = datInteger
+ Name = 'EMPRESA'
Value = ''
- ParamType = daptInput
end>
Statements = <
item
@@ -644,7 +639,7 @@ object srvPedidosProveedor: TsrvPedidosProveedor
TargetTable = 'REFERENCIAS'
SQL =
'UPDATE REFERENCIAS SET'#10' VALOR = :VALOR'#10'WHERE CODIGO = :COD' +
- 'IGO AND'#10' ID_EMPRESA = :ID_EMPRESA'
+ 'IGO AND'#10' ID_EMPRESA = :EMPRESA'#10
StatementType = stSQL
ColumnMappings = <>
end>
@@ -654,9 +649,7 @@ object srvPedidosProveedor: TsrvPedidosProveedor
Params = <
item
Name = 'OLD_ID'
- DataType = datInteger
Value = ''
- ParamType = daptInput
end>
Statements = <
item
@@ -672,77 +665,53 @@ object srvPedidosProveedor: TsrvPedidosProveedor
Params = <
item
Name = 'CANTIDAD'
- DataType = datInteger
Value = ''
- ParamType = daptInput
end
item
Name = 'POSICION'
- DataType = datInteger
Value = ''
- ParamType = daptInput
end
item
Name = 'ID'
- DataType = datInteger
+ DataType = datAutoInc
+ GeneratorName = 'GEN_PEDIDOS_PROV_DETALLES_ID'
Value = ''
- ParamType = daptInput
end
item
Name = 'TIPO_DETALLE'
- DataType = datString
- Size = 10
Value = ''
- ParamType = daptInput
end
item
Name = 'CONCEPTO'
- DataType = datString
- Size = 2000
Value = ''
- ParamType = daptInput
end
item
Name = 'IMPORTE_UNIDAD'
- DataType = datFloat
Value = ''
- ParamType = daptInput
end
item
Name = 'IMPORTE_TOTAL'
- DataType = datFloat
Value = ''
- ParamType = daptInput
end
item
Name = 'VISIBLE'
- DataType = datInteger
Value = ''
- ParamType = daptInput
end
item
Name = 'ID_PEDIDO'
- DataType = datInteger
Value = ''
- ParamType = daptInput
end
item
Name = 'ID_ARTICULO'
- DataType = datInteger
Value = ''
- ParamType = daptInput
end
item
Name = 'DESCUENTO'
- DataType = datFloat
Value = ''
- ParamType = daptInput
end
item
Name = 'IMPORTE_PORTE'
- DataType = datFloat
Value = ''
- ParamType = daptInput
end>
Statements = <
item
@@ -764,9 +733,7 @@ object srvPedidosProveedor: TsrvPedidosProveedor
Params = <
item
Name = 'OLD_ID'
- DataType = datInteger
Value = ''
- ParamType = daptInput
end>
Statements = <
item
@@ -784,83 +751,55 @@ object srvPedidosProveedor: TsrvPedidosProveedor
Params = <
item
Name = 'CANTIDAD'
- DataType = datInteger
Value = ''
- ParamType = daptInput
end
item
Name = 'POSICION'
- DataType = datInteger
Value = ''
- ParamType = daptInput
end
item
Name = 'ID'
- DataType = datInteger
Value = ''
- ParamType = daptInput
end
item
Name = 'TIPO_DETALLE'
- DataType = datString
- Size = 10
Value = ''
- ParamType = daptInput
end
item
Name = 'CONCEPTO'
- DataType = datString
- Size = 2000
Value = ''
- ParamType = daptInput
end
item
Name = 'IMPORTE_UNIDAD'
- DataType = datFloat
Value = ''
- ParamType = daptInput
end
item
Name = 'IMPORTE_TOTAL'
- DataType = datFloat
Value = ''
- ParamType = daptInput
end
item
Name = 'VISIBLE'
- DataType = datInteger
Value = ''
- ParamType = daptInput
end
item
Name = 'ID_PEDIDO'
- DataType = datInteger
Value = ''
- ParamType = daptInput
end
item
Name = 'ID_ARTICULO'
- DataType = datInteger
Value = ''
- ParamType = daptInput
end
item
Name = 'DESCUENTO'
- DataType = datFloat
Value = ''
- ParamType = daptInput
end
item
Name = 'IMPORTE_PORTE'
- DataType = datFloat
Value = ''
- ParamType = daptInput
end
item
Name = 'OLD_ID'
- DataType = datInteger
Value = ''
- ParamType = daptInput
end>
Statements = <
item
@@ -883,197 +822,129 @@ object srvPedidosProveedor: TsrvPedidosProveedor
Params = <
item
Name = 'USUARIO'
- DataType = datString
- Size = 20
Value = ''
- ParamType = daptInput
end
item
Name = 'OBSERVACIONES'
- DataType = datMemo
Value = ''
- ParamType = daptInput
end
item
Name = 'REFERENCIA'
- DataType = datString
- Size = 255
Value = ''
- ParamType = daptInput
end
item
Name = 'ID'
- DataType = datInteger
+ DataType = datAutoInc
+ GeneratorName = 'GEN_PEDIDOS_PROV_ID'
Value = ''
- ParamType = daptInput
end
item
Name = 'ID_EMPRESA'
- DataType = datInteger
Value = ''
- ParamType = daptInput
end
item
Name = 'FECHA_ALTA'
- DataType = datDateTime
Value = ''
- ParamType = daptInput
end
item
Name = 'FECHA_MODIFICACION'
- DataType = datDateTime
Value = ''
- ParamType = daptInput
end
item
Name = 'ID_PROVEEDOR'
- DataType = datInteger
Value = ''
- ParamType = daptInput
end
item
Name = 'FECHA_ENVIO'
- DataType = datDateTime
Value = ''
- ParamType = daptInput
end
item
Name = 'FECHA_PEDIDO'
- DataType = datDateTime
Value = ''
- ParamType = daptInput
end
item
Name = 'FECHA_CONFIRMACION'
- DataType = datDateTime
Value = ''
- ParamType = daptInput
end
item
Name = 'FECHA_ENTREGA'
- DataType = datDateTime
Value = ''
- ParamType = daptInput
end
item
Name = 'INCIDENCIAS'
- DataType = datMemo
Value = ''
- ParamType = daptInput
end
item
Name = 'IMPORTE_TOTAL'
- DataType = datFloat
Value = ''
- ParamType = daptInput
end
item
Name = 'INCIDENCIAS_ACTIVAS'
- DataType = datInteger
Value = ''
- ParamType = daptInput
end
item
Name = 'ID_ALMACEN'
- DataType = datInteger
Value = ''
- ParamType = daptInput
end
item
Name = 'CALLE'
- DataType = datString
- Size = 255
Value = ''
- ParamType = daptInput
end
item
Name = 'POBLACION'
- DataType = datString
- Size = 255
Value = ''
- ParamType = daptInput
end
item
Name = 'PROVINCIA'
- DataType = datString
- Size = 255
Value = ''
- ParamType = daptInput
end
item
Name = 'CODIGO_POSTAL'
- DataType = datString
- Size = 10
Value = ''
- ParamType = daptInput
end
item
Name = 'PERSONA_CONTACTO'
- DataType = datString
- Size = 255
Value = ''
- ParamType = daptInput
end
item
Name = 'TELEFONO'
- DataType = datString
- Size = 25
Value = ''
- ParamType = daptInput
end
item
Name = 'ID_PEDIDO_CLIENTE'
- DataType = datInteger
Value = ''
- ParamType = daptInput
end
item
Name = 'IMPORTE_NETO'
- DataType = datFloat
Value = ''
- ParamType = daptInput
end
item
Name = 'IMPORTE_PORTE'
- DataType = datFloat
Value = ''
- ParamType = daptInput
end
item
Name = 'DESCUENTO'
- DataType = datFloat
Value = ''
- ParamType = daptInput
end
item
Name = 'IMPORTE_DESCUENTO'
- DataType = datFloat
Value = ''
- ParamType = daptInput
end
item
Name = 'BASE_IMPONIBLE'
- DataType = datFloat
Value = ''
- ParamType = daptInput
end
item
Name = 'IVA'
- DataType = datFloat
Value = ''
- ParamType = daptInput
end
item
Name = 'IMPORTE_IVA'
- DataType = datFloat
Value = ''
- ParamType = daptInput
end
item
Name = 'ID_FORMA_PAGO'
- DataType = datInteger
Value = ''
- ParamType = daptInput
end>
Statements = <
item
@@ -1104,222 +975,156 @@ object srvPedidosProveedor: TsrvPedidosProveedor
item
Params = <
item
- Name = 'USUARIO'
- DataType = datString
- Size = 20
+ Name = 'ID'
+ Value = ''
+ end
+ item
+ Name = 'USUARIO'
Value = ''
- ParamType = daptInput
end
item
Name = 'OBSERVACIONES'
- DataType = datMemo
Value = ''
- ParamType = daptInput
end
item
Name = 'REFERENCIA'
- DataType = datString
- Size = 255
Value = ''
- ParamType = daptInput
end
item
Name = 'ID_EMPRESA'
- DataType = datInteger
Value = ''
- ParamType = daptInput
end
item
Name = 'FECHA_ALTA'
- DataType = datDateTime
Value = ''
- ParamType = daptInput
end
item
Name = 'FECHA_MODIFICACION'
- DataType = datDateTime
Value = ''
- ParamType = daptInput
end
item
Name = 'ID_PROVEEDOR'
- DataType = datInteger
Value = ''
- ParamType = daptInput
end
item
Name = 'FECHA_ENVIO'
- DataType = datDateTime
Value = ''
- ParamType = daptInput
end
item
Name = 'FECHA_PEDIDO'
- DataType = datDateTime
Value = ''
- ParamType = daptInput
end
item
Name = 'FECHA_CONFIRMACION'
- DataType = datDateTime
Value = ''
- ParamType = daptInput
end
item
Name = 'FECHA_ENTREGA'
- DataType = datDateTime
Value = ''
- ParamType = daptInput
end
item
Name = 'INCIDENCIAS'
- DataType = datMemo
Value = ''
- ParamType = daptInput
end
item
Name = 'IMPORTE_TOTAL'
- DataType = datFloat
Value = ''
- ParamType = daptInput
end
item
Name = 'INCIDENCIAS_ACTIVAS'
- DataType = datInteger
Value = ''
- ParamType = daptInput
end
item
Name = 'ID_ALMACEN'
- DataType = datInteger
Value = ''
- ParamType = daptInput
end
item
Name = 'CALLE'
- DataType = datString
- Size = 255
Value = ''
- ParamType = daptInput
end
item
Name = 'POBLACION'
- DataType = datString
- Size = 255
Value = ''
- ParamType = daptInput
end
item
Name = 'PROVINCIA'
- DataType = datString
- Size = 255
Value = ''
- ParamType = daptInput
end
item
Name = 'CODIGO_POSTAL'
- DataType = datString
- Size = 10
Value = ''
- ParamType = daptInput
end
item
Name = 'PERSONA_CONTACTO'
- DataType = datString
- Size = 255
Value = ''
- ParamType = daptInput
end
item
Name = 'TELEFONO'
- DataType = datString
- Size = 25
Value = ''
- ParamType = daptInput
end
item
Name = 'ID_PEDIDO_CLIENTE'
- DataType = datInteger
Value = ''
- ParamType = daptInput
end
item
Name = 'IMPORTE_NETO'
- DataType = datFloat
Value = ''
- ParamType = daptInput
end
item
Name = 'IMPORTE_PORTE'
- DataType = datFloat
Value = ''
- ParamType = daptInput
end
item
Name = 'DESCUENTO'
- DataType = datFloat
Value = ''
- ParamType = daptInput
end
item
Name = 'IMPORTE_DESCUENTO'
- DataType = datFloat
Value = ''
- ParamType = daptInput
end
item
Name = 'BASE_IMPONIBLE'
- DataType = datFloat
Value = ''
- ParamType = daptInput
end
item
Name = 'IVA'
- DataType = datFloat
Value = ''
- ParamType = daptInput
end
item
Name = 'IMPORTE_IVA'
- DataType = datFloat
Value = ''
- ParamType = daptInput
end
item
Name = 'ID_FORMA_PAGO'
- DataType = datInteger
Value = ''
- ParamType = daptInput
end
item
Name = 'OLD_ID'
- DataType = datInteger
Value = ''
- ParamType = daptInput
end>
Statements = <
item
Connection = 'IBX'
TargetTable = 'PEDIDOS_PROVEEDOR'
SQL =
- 'UPDATE PEDIDOS_PROVEEDOR'#10' SET '#10' USUARIO = :USUARIO, '#10' OBS' +
- 'ERVACIONES = :OBSERVACIONES, '#10' REFERENCIA = :REFERENCIA,'#10' ' +
- 'ID_EMPRESA = :ID_EMPRESA,'#10' FECHA_ALTA = :FECHA_ALTA,'#10' FECH' +
- 'A_MODIFICACION = :FECHA_MODIFICACION, '#10' ID_PROVEEDOR = :ID_PR' +
- 'OVEEDOR, '#10' FECHA_ENVIO = :FECHA_ENVIO,'#10' FECHA_PEDIDO = :FE' +
- 'CHA_PEDIDO, '#10' FECHA_CONFIRMACION = :FECHA_CONFIRMACION, '#10' ' +
- 'FECHA_ENTREGA = :FECHA_ENTREGA, '#10' INCIDENCIAS = :INCIDENCIAS,' +
- ' '#10' IMPORTE_TOTAL = :IMPORTE_TOTAL, '#10' INCIDENCIAS_ACTIVAS =' +
- ' :INCIDENCIAS_ACTIVAS, '#10' ID_ALMACEN = :ID_ALMACEN, '#10' CALLE' +
- ' = :CALLE, '#10' POBLACION = :POBLACION, '#10' PROVINCIA = :PROVIN' +
- 'CIA, '#10' CODIGO_POSTAL = :CODIGO_POSTAL, '#10' PERSONA_CONTACTO ' +
- '= :PERSONA_CONTACTO, '#10' TELEFONO = :TELEFONO, '#10' ID_PEDIDO_C' +
- 'LIENTE = :ID_PEDIDO_CLIENTE, '#10' IMPORTE_NETO = :IMPORTE_NETO, ' +
- #10' IMPORTE_PORTE = :IMPORTE_PORTE, '#10' DESCUENTO = :DESCUENTO' +
- ', '#10' IMPORTE_DESCUENTO = :IMPORTE_DESCUENTO, '#10' BASE_IMPONIB' +
- 'LE = :BASE_IMPONIBLE, '#10' IVA = :IVA, '#10' IMPORTE_IVA = :IMPOR' +
- 'TE_IVA, '#10' ID_FORMA_PAGO = :ID_FORMA_PAGO'#10' WHERE'#10' (ID = :O' +
- 'LD_ID)'
+ 'UPDATE PEDIDOS_PROVEEDOR'#10' SET '#10' ID = :ID,'#10' USUARIO = :USU' +
+ 'ARIO, '#10' OBSERVACIONES = :OBSERVACIONES, '#10' REFERENCIA = :RE' +
+ 'FERENCIA,'#10' ID_EMPRESA = :ID_EMPRESA,'#10' FECHA_ALTA = :FECHA_' +
+ 'ALTA,'#10' FECHA_MODIFICACION = :FECHA_MODIFICACION, '#10' ID_PROV' +
+ 'EEDOR = :ID_PROVEEDOR, '#10' FECHA_ENVIO = :FECHA_ENVIO,'#10' FECH' +
+ 'A_PEDIDO = :FECHA_PEDIDO, '#10' FECHA_CONFIRMACION = :FECHA_CONFI' +
+ 'RMACION, '#10' FECHA_ENTREGA = :FECHA_ENTREGA, '#10' INCIDENCIAS =' +
+ ' :INCIDENCIAS, '#10' IMPORTE_TOTAL = :IMPORTE_TOTAL, '#10' INCIDEN' +
+ 'CIAS_ACTIVAS = :INCIDENCIAS_ACTIVAS, '#10' ID_ALMACEN = :ID_ALMAC' +
+ 'EN, '#10' CALLE = :CALLE, '#10' POBLACION = :POBLACION, '#10' PROVI' +
+ 'NCIA = :PROVINCIA, '#10' CODIGO_POSTAL = :CODIGO_POSTAL, '#10' PER' +
+ 'SONA_CONTACTO = :PERSONA_CONTACTO, '#10' TELEFONO = :TELEFONO, '#10' ' +
+ ' ID_PEDIDO_CLIENTE = :ID_PEDIDO_CLIENTE, '#10' IMPORTE_NETO = :' +
+ 'IMPORTE_NETO, '#10' IMPORTE_PORTE = :IMPORTE_PORTE, '#10' DESCUENT' +
+ 'O = :DESCUENTO, '#10' IMPORTE_DESCUENTO = :IMPORTE_DESCUENTO, '#10' ' +
+ ' BASE_IMPONIBLE = :BASE_IMPONIBLE, '#10' IVA = :IVA, '#10' IMPORT' +
+ 'E_IVA = :IMPORTE_IVA, '#10' ID_FORMA_PAGO = :ID_FORMA_PAGO'#10' WHER' +
+ 'E'#10' (ID = :OLD_ID)'#10
StatementType = stSQL
ColumnMappings = <>
end>
diff --git a/Source/Modulos/Pedidos a proveedor/Servidor/srvPedidosProveedor_Impl.pas b/Source/Modulos/Pedidos a proveedor/Servidor/srvPedidosProveedor_Impl.pas
index 7dc045c0..c50d6e0c 100644
--- a/Source/Modulos/Pedidos a proveedor/Servidor/srvPedidosProveedor_Impl.pas
+++ b/Source/Modulos/Pedidos a proveedor/Servidor/srvPedidosProveedor_Impl.pas
@@ -42,9 +42,9 @@ implementation
uses
Dialogs,
{Generated:} FactuGES_Invk, uDataModuleServer, uDatabaseUtils,
- schPedidosProveedorClient_Intf, uRestriccionesUsuarioUtils;
-
-// uRptPedidosProveedor_Server, uBizPedidosProveedorServer;
+ schPedidosProveedorClient_Intf, uRestriccionesUsuarioUtils,
+ uBizPedidosProveedorServer;
+// uRptPedidosProveedor_Server, ;
{ uRORemoteDataModule,
fServerForm, Variants, IB, schPedidosProveedorClient_Intf;
@@ -73,7 +73,7 @@ end;
procedure TsrvPedidosProveedor.DARemoteServiceCreate(Sender: TObject);
begin
SessionManager := dmServer.SessionManager;
-// bpPedidosProveedor.BusinessRulesID := BIZ_SERVER_PEDIDOS_PROVEEDOR;
+ bpPedidosProveedor.BusinessRulesID := BIZ_SERVER_PEDIDOS_PROVEEDOR;
end;
procedure TsrvPedidosProveedor.DataAbstractServiceBeforeAcquireConnection(
diff --git a/Source/Modulos/Pedidos a proveedor/Views/PedidosProveedor_view.identcache b/Source/Modulos/Pedidos a proveedor/Views/PedidosProveedor_view.identcache
index 38326ad0..c7fdbcaa 100644
Binary files a/Source/Modulos/Pedidos a proveedor/Views/PedidosProveedor_view.identcache and b/Source/Modulos/Pedidos a proveedor/Views/PedidosProveedor_view.identcache differ
diff --git a/Source/Servidor/FactuGES_Server.RES b/Source/Servidor/FactuGES_Server.RES
index e0c921e5..09e53fe6 100644
Binary files a/Source/Servidor/FactuGES_Server.RES and b/Source/Servidor/FactuGES_Server.RES differ
diff --git a/Source/Servidor/FactuGES_Server.dpr b/Source/Servidor/FactuGES_Server.dpr
index 3ff781a7..8dfa5dd7 100644
--- a/Source/Servidor/FactuGES_Server.dpr
+++ b/Source/Servidor/FactuGES_Server.dpr
@@ -79,9 +79,9 @@ uses
schAlbaranesProveedorClient_Intf in '..\Modulos\Albaranes de proveedor\Model\schAlbaranesProveedorClient_Intf.pas',
schAlbaranesProveedorServer_Intf in '..\Modulos\Albaranes de proveedor\Model\schAlbaranesProveedorServer_Intf.pas',
srvPedidosProveedor_Impl in '..\Modulos\Pedidos a proveedor\Servidor\srvPedidosProveedor_Impl.pas' {srvPedidosProveedor: TDataAbstractService},
+ uBizPedidosProveedorServer in '..\Modulos\Pedidos a proveedor\Model\uBizPedidosProveedorServer.pas',
schPedidosProveedorClient_Intf in '..\Modulos\Pedidos a proveedor\Model\schPedidosProveedorClient_Intf.pas',
- schPedidosProveedorServer_Intf in '..\Modulos\Pedidos a proveedor\Model\schPedidosProveedorServer_Intf.pas',
- uBizPedidosProveedorServer in '..\Modulos\Pedidos a proveedor\Model\uBizPedidosProveedorServer.pas';
+ schPedidosProveedorServer_Intf in '..\Modulos\Pedidos a proveedor\Model\schPedidosProveedorServer_Intf.pas';
{$R *.res}
{$R ..\Servicios\RODLFile.res}
diff --git a/Source/Servidor/FactuGES_Server.dproj b/Source/Servidor/FactuGES_Server.dproj
index bf24e8a2..04f1d3b0 100644
--- a/Source/Servidor/FactuGES_Server.dproj
+++ b/Source/Servidor/FactuGES_Server.dproj
@@ -1,180 +1,184 @@
-
+
-
- {ebdcd25d-40d7-4146-91ec-a0ea4aa1dcd1}
- FactuGES_Server.dpr
- Debug
- AnyCPU
- DCC32
- ..\..\Output\Debug\Servidor\FactuGES_Server.exe
-
-
- 7.0
- False
- False
- 0
- 3
- ..\..\Output\Release\Servidor
- RELEASE
-
-
- 7.0
- 3
- ..\..\Output\Debug\Servidor
- DEBUG;
- True
-
-
- Delphi.Personality
-
-
- FalseTrueFalseTrueFalse3000FalseFalseFalseFalseFalse308212523.0.0.03.0.0.0domingo, 30 de septiembre de 2007 20:47
- RemObjects Pascal Script - RemObjects SDK 3.0 Integration
- FactuGES_Server.dpr
-
-
-
-
- MainSource
-
-
-
-
-
- TDARemoteService
-
-
-
-
-
-
-
-
-
-
- TDataAbstractService
-
-
-
-
-
- TDataAbstractService
-
-
-
-
-
- TDARemoteService
-
-
-
-
-
-
-
-
-
-
-
-
- TDARemoteService
-
-
-
-
-
-
- TDataAbstractService
-
-
-
-
-
- TDataAbstractService
-
-
-
-
-
-
-
-
-
-
-
-
- TDataAbstractService
-
-
-
-
-
-
-
-
-
- TDataAbstractService
-
-
-
-
-
- TDataAbstractService
-
-
-
-
-
- TDataAbstractService
-
-
-
-
-
-
-
-
- TDataAbstractService
-
-
-
- TFrame
-
-
-
- TFrame
-
-
-
- TForm
-
-
-
- TFrame
-
-
-
- TDARemoteService
-
-
-
-
-
-
- TDataModule
-
-
-
-
-
-
-
-
-
-
-
-
-
+
+ {ebdcd25d-40d7-4146-91ec-a0ea4aa1dcd1}
+ FactuGES_Server.dpr
+ Debug
+ AnyCPU
+ DCC32
+ ..\..\Output\Debug\Servidor\FactuGES_Server.exe
+
+
+ 7.0
+ False
+ False
+ 0
+ 3
+ ..\..\Output\Release\Servidor
+ RELEASE
+
+
+ 7.0
+ 3
+ ..\..\Output\Debug\Servidor
+ DEBUG;
+ True
+
+
+ Delphi.Personality
+
+
+FalseTrueFalseTrueFalse3000FalseFalseFalseFalseFalse308212523.0.0.03.0.0.0domingo, 30 de septiembre de 2007 20:47
+
+
+
+
+ RemObjects Pascal Script - RemObjects SDK 3.0 Integration
+ FactuGES_Server.dpr
+
+
+
+
+ MainSource
+
+
+
+
+
+ TDARemoteService
+
+
+
+
+
+
+
+
+
+
+ TDataAbstractService
+
+
+
+
+
+ TDataAbstractService
+
+
+
+
+
+ TDARemoteService
+
+
+
+
+
+
+
+
+
+
+
+
+ TDARemoteService
+
+
+
+
+
+
+ TDataAbstractService
+
+
+
+
+
+ TDataAbstractService
+
+
+
+
+
+
+
+
+
+
+
+
+ TDataAbstractService
+
+
+
+
+
+
+
+
+
+ TDataAbstractService
+
+
+
+
+
+ TDataAbstractService
+
+
+
+
+
+ TDataAbstractService
+
+
+
+
+
+
+
+
+ TDataAbstractService
+
+
+
+ TFrame
+
+
+
+ TFrame
+
+
+
+ TForm
+
+
+
+ TFrame
+
+
+
+ TDARemoteService
+
+
+
+
+
+
+ TDataModule
+
+
+
+
+
+
+
+
+
+
+
+
+