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

Arreglo de UNIDAD_MEDIDA para todos los documentos

Browse Source 
git-svn-id: https://192.168.0.254/svn/Proyectos.Tecsitel_FactuGES2/trunk@565 0c75b7a4-871f-7646-8a2f-f78d34cc349f
This commit is contained in:
roberto 2008-09-04 14:33:27 +00:00
parent e2264229df
commit 54878e0094
34 changed files with 1160 additions and 691 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

53
Database/scripts/factuges.sql
View File

@ -299,6 +299,7 @@ CREATE TABLE ALBARANES_CLIENTE_DETALLES (
ID_ARTICULO TIPO_ID,
CONCEPTO TIPO_CONCEPTO,
CANTIDAD INTEGER,
UNIDAD_MEDIDA VARCHAR(255),
IMPORTE_UNIDAD TIPO_IMPORTE,
DESCUENTO TIPO_PORCENTAJE,
IMPORTE_PORTE TIPO_IMPORTE,
@ -354,6 +355,7 @@ CREATE TABLE ALBARANES_PROVEEDOR_DETALLES (
ID_ARTICULO TIPO_ID,
CONCEPTO TIPO_CONCEPTO,
CANTIDAD INTEGER,
UNIDAD_MEDIDA VARCHAR(255),
IMPORTE_UNIDAD TIPO_IMPORTE,
DESCUENTO TIPO_PORCENTAJE,
IMPORTE_PORTE TIPO_IMPORTE,
@ -683,6 +685,7 @@ CREATE TABLE FACTURAS_CLIENTE_DETALLES (
ID_ARTICULO TIPO_ID,
CONCEPTO TIPO_CONCEPTO,
CANTIDAD INTEGER,
UNIDAD_MEDIDA VARCHAR(255),
IMPORTE_UNIDAD TIPO_IMPORTE,
DESCUENTO TIPO_PORCENTAJE,
IMPORTE_PORTE TIPO_IMPORTE,
@ -734,6 +737,7 @@ CREATE TABLE FACTURAS_PROVEEDOR_DETALLES (
ID_ARTICULO TIPO_ID,
CONCEPTO TIPO_CONCEPTO,
CANTIDAD INTEGER,
UNIDAD_MEDIDA VARCHAR(255),
IMPORTE_UNIDAD TIPO_IMPORTE,
DESCUENTO TIPO_PORCENTAJE,
IMPORTE_PORTE TIPO_IMPORTE,
@ -793,13 +797,14 @@ CREATE TABLE INFORMES (
CREATE TABLE MOVIMIENTOS (
ID TIPO_ID NOT NULL,
ID_ALMACEN TIPO_ID,
ID_ARTICULO TIPO_ID,
FECHA_MOVIMIENTO DATE,
TIPO VARCHAR(1),
CANTIDAD INTEGER,
CAUSA TIPO_CONCEPTO
ID TIPO_ID NOT NULL,
ID_ALMACEN TIPO_ID,
ID_ARTICULO TIPO_ID,
FECHA_MOVIMIENTO DATE,
TIPO VARCHAR(1),
CANTIDAD INTEGER,
CAUSA TIPO_CONCEPTO,
ID_ALMACEN_RESERVA TIPO_ID
);
@ -1534,7 +1539,8 @@ MANO_OBRA,
PRECIO_PVP_TOTAL,
ID_ARTICULO)
AS
SELECT ARTICULOS.ID, ARTICULOS.ID_EMPRESA, ARTICULOS.REFERENCIA, ARTICULOS.DESCRIPCION,
SELECT ARTICULOS.ID,
ARTICULOS.ID_EMPRESA, ARTICULOS.REFERENCIA, ARTICULOS.DESCRIPCION,
ARTICULOS.UNIDAD_MEDIDA, ARTICULOS.FAMILIA, ARTICULOS.IMAGEN,
ARTICULOS.COMISIONABLE, ARTICULOS.FECHA_ALTA,
ARTICULOS.FECHA_MODIFICACION, ARTICULOS.USUARIO,
@ -2324,23 +2330,34 @@ WHERE (PEDIDOS_PROVEEDOR.ID_ALMACEN IS NOT NULL)
GROUP BY PEDIDOS_PROVEEDOR.ID_ALMACEN, V_PED_PROV_ARTICULOS.ID_ARTICULO
;
/* View: V_INV_RESERVAS */
CREATE VIEW V_INV_RESERVAS(
ID_ALMACEN,
ID_ARTICULO,
CANTIDAD)
AS
/* View: V_INV_RESERVAS_AUX */
CREATE VIEW V_INV_RESERVAS_AUX(
ID_ALMACEN,
ID_ARTICULO,
CANTIDAD)
AS
SELECT ID_ALMACEN, ID_ARTICULO, SUM(CANTIDAD)
FROM V_ALB_CLI_DETALLES
WHERE (ID_ALMACEN IS NOT NULL)
AND (SITUACION = 'PENDIENTE')
GROUP BY ID_ALMACEN, ID_ARTICULO
UNION ALL
SELECT ID_ALMACEN,
ID_ARTICULO,
CANTIDAD
FROM MOVIMIENTOS
WHERE TIPO = 'R';
CREATE VIEW V_INV_RESERVAS(
ID_ALMACEN,
ID_ARTICULO,
CANTIDAD)
AS
SELECT ID_ALMACEN, ID_ARTICULO, SUM(CANTIDAD)
FROM V_INV_RESERVAS_AUX
GROUP BY ID_ALMACEN, ID_ARTICULO;
;
/* View: V_INV_SALIDAS_ALB */
CREATE VIEW V_INV_SALIDAS_ALB(
ID_ALMACEN,

102
Source/Base/Base.dproj
View File

@ -55,57 +55,57 @@
<DelphiCompile Include="Base.dpk">
<MainSource>MainSource</MainSource>
</DelphiCompile>
<DCCReference Include="..\Modulos\Articulos\adortl.dcp" />
<DCCReference Include="..\Modulos\Articulos\cxDataD11.dcp" />
<DCCReference Include="..\Modulos\Articulos\cxEditorsD11.dcp" />
<DCCReference Include="..\Modulos\Articulos\cxExportD11.dcp" />
<DCCReference Include="..\Modulos\Articulos\cxExtEditorsD11.dcp" />
<DCCReference Include="..\Modulos\Articulos\cxGridD11.dcp" />
<DCCReference Include="..\Modulos\Articulos\cxIntl6D11.dcp" />
<DCCReference Include="..\Modulos\Articulos\cxIntlPrintSys3D11.dcp" />
<DCCReference Include="..\Modulos\Articulos\cxLibraryD11.dcp" />
<DCCReference Include="..\Modulos\Articulos\cxPageControlD11.dcp" />
<DCCReference Include="..\Modulos\Articulos\DataAbstract_Core_D11.dcp" />
<DCCReference Include="..\Modulos\Articulos\dbrtl.dcp" />
<DCCReference Include="..\Modulos\Articulos\dclIndyCore.dcp" />
<DCCReference Include="..\Modulos\Articulos\designide.dcp" />
<DCCReference Include="..\Modulos\Articulos\dsnap.dcp" />
<DCCReference Include="..\Modulos\Articulos\dxGDIPlusD11.dcp" />
<DCCReference Include="..\Modulos\Articulos\dxPSCoreD11.dcp" />
<DCCReference Include="..\Modulos\Articulos\dxThemeD11.dcp" />
<DCCReference Include="..\Modulos\Articulos\GUISDK_D11.dcp" />
<DCCReference Include="..\Modulos\Articulos\IndyCore.dcp" />
<DCCReference Include="..\Modulos\Articulos\IndyProtocols.dcp" />
<DCCReference Include="..\Modulos\Articulos\IndySystem.dcp" />
<DCCReference Include="..\Modulos\Articulos\Jcl.dcp" />
<DCCReference Include="..\Modulos\Articulos\JclVcl.dcp" />
<DCCReference Include="..\Modulos\Articulos\JSDialog100.dcp" />
<DCCReference Include="..\Modulos\Articulos\JvCmpD11R.dcp" />
<DCCReference Include="..\Modulos\Articulos\JvCoreD11R.dcp" />
<DCCReference Include="..\Modulos\Articulos\JvCtrlsD11R.dcp" />
<DCCReference Include="..\Modulos\Articulos\JvDlgsD11R.dcp" />
<DCCReference Include="..\Modulos\Articulos\JvMMD11R.dcp" />
<DCCReference Include="..\Modulos\Articulos\JvNetD11R.dcp" />
<DCCReference Include="..\Modulos\Articulos\JvPageCompsD11R.dcp" />
<DCCReference Include="..\Modulos\Articulos\JvStdCtrlsD11R.dcp" />
<DCCReference Include="..\Modulos\Articulos\JvSystemD11R.dcp" />
<DCCReference Include="..\Modulos\Articulos\pckMD5.dcp" />
<DCCReference Include="..\Modulos\Articulos\pckUCDataConnector.dcp" />
<DCCReference Include="..\Modulos\Articulos\pckUserControl_RT.dcp" />
<DCCReference Include="..\Modulos\Articulos\PngComponentsD10.dcp" />
<DCCReference Include="..\Modulos\Articulos\PNG_D10.dcp" />
<DCCReference Include="..\Modulos\Articulos\RemObjects_Core_D11.dcp" />
<DCCReference Include="..\Modulos\Articulos\RemObjects_Indy_D11.dcp" />
<DCCReference Include="..\Modulos\Articulos\rtl.dcp" />
<DCCReference Include="..\Modulos\Articulos\TB2k_D10.dcp" />
<DCCReference Include="..\Modulos\Articulos\tbx_d10.dcp" />
<DCCReference Include="..\Modulos\Articulos\vcl.dcp" />
<DCCReference Include="..\Modulos\Articulos\vclactnband.dcp" />
<DCCReference Include="..\Modulos\Articulos\vcldb.dcp" />
<DCCReference Include="..\Modulos\Articulos\vcljpg.dcp" />
<DCCReference Include="..\Modulos\Articulos\VclSmp.dcp" />
<DCCReference Include="..\Modulos\Articulos\vclx.dcp" />
<DCCReference Include="..\Modulos\Articulos\xmlrtl.dcp" />
<DCCReference Include="..\Modulos\Albaranes de proveedor\Controller\adortl.dcp" />
<DCCReference Include="..\Modulos\Albaranes de proveedor\Controller\cxDataD11.dcp" />
<DCCReference Include="..\Modulos\Albaranes de proveedor\Controller\cxEditorsD11.dcp" />
<DCCReference Include="..\Modulos\Albaranes de proveedor\Controller\cxExportD11.dcp" />
<DCCReference Include="..\Modulos\Albaranes de proveedor\Controller\cxExtEditorsD11.dcp" />
<DCCReference Include="..\Modulos\Albaranes de proveedor\Controller\cxGridD11.dcp" />
<DCCReference Include="..\Modulos\Albaranes de proveedor\Controller\cxIntl6D11.dcp" />
<DCCReference Include="..\Modulos\Albaranes de proveedor\Controller\cxIntlPrintSys3D11.dcp" />
<DCCReference Include="..\Modulos\Albaranes de proveedor\Controller\cxLibraryD11.dcp" />
<DCCReference Include="..\Modulos\Albaranes de proveedor\Controller\cxPageControlD11.dcp" />
<DCCReference Include="..\Modulos\Albaranes de proveedor\Controller\DataAbstract_Core_D11.dcp" />
<DCCReference Include="..\Modulos\Albaranes de proveedor\Controller\dbrtl.dcp" />
<DCCReference Include="..\Modulos\Albaranes de proveedor\Controller\dclIndyCore.dcp" />
<DCCReference Include="..\Modulos\Albaranes de proveedor\Controller\designide.dcp" />
<DCCReference Include="..\Modulos\Albaranes de proveedor\Controller\dsnap.dcp" />
<DCCReference Include="..\Modulos\Albaranes de proveedor\Controller\dxGDIPlusD11.dcp" />
<DCCReference Include="..\Modulos\Albaranes de proveedor\Controller\dxPSCoreD11.dcp" />
<DCCReference Include="..\Modulos\Albaranes de proveedor\Controller\dxThemeD11.dcp" />
<DCCReference Include="..\Modulos\Albaranes de proveedor\Controller\GUISDK_D11.dcp" />
<DCCReference Include="..\Modulos\Albaranes de proveedor\Controller\IndyCore.dcp" />
<DCCReference Include="..\Modulos\Albaranes de proveedor\Controller\IndyProtocols.dcp" />
<DCCReference Include="..\Modulos\Albaranes de proveedor\Controller\IndySystem.dcp" />
<DCCReference Include="..\Modulos\Albaranes de proveedor\Controller\Jcl.dcp" />
<DCCReference Include="..\Modulos\Albaranes de proveedor\Controller\JclVcl.dcp" />
<DCCReference Include="..\Modulos\Albaranes de proveedor\Controller\JSDialog100.dcp" />
<DCCReference Include="..\Modulos\Albaranes de proveedor\Controller\JvCmpD11R.dcp" />
<DCCReference Include="..\Modulos\Albaranes de proveedor\Controller\JvCoreD11R.dcp" />
<DCCReference Include="..\Modulos\Albaranes de proveedor\Controller\JvCtrlsD11R.dcp" />
<DCCReference Include="..\Modulos\Albaranes de proveedor\Controller\JvDlgsD11R.dcp" />
<DCCReference Include="..\Modulos\Albaranes de proveedor\Controller\JvMMD11R.dcp" />
<DCCReference Include="..\Modulos\Albaranes de proveedor\Controller\JvNetD11R.dcp" />
<DCCReference Include="..\Modulos\Albaranes de proveedor\Controller\JvPageCompsD11R.dcp" />
<DCCReference Include="..\Modulos\Albaranes de proveedor\Controller\JvStdCtrlsD11R.dcp" />
<DCCReference Include="..\Modulos\Albaranes de proveedor\Controller\JvSystemD11R.dcp" />
<DCCReference Include="..\Modulos\Albaranes de proveedor\Controller\pckMD5.dcp" />
<DCCReference Include="..\Modulos\Albaranes de proveedor\Controller\pckUCDataConnector.dcp" />
<DCCReference Include="..\Modulos\Albaranes de proveedor\Controller\pckUserControl_RT.dcp" />
<DCCReference Include="..\Modulos\Albaranes de proveedor\Controller\PngComponentsD10.dcp" />
<DCCReference Include="..\Modulos\Albaranes de proveedor\Controller\PNG_D10.dcp" />
<DCCReference Include="..\Modulos\Albaranes de proveedor\Controller\RemObjects_Core_D11.dcp" />
<DCCReference Include="..\Modulos\Albaranes de proveedor\Controller\RemObjects_Indy_D11.dcp" />
<DCCReference Include="..\Modulos\Albaranes de proveedor\Controller\rtl.dcp" />
<DCCReference Include="..\Modulos\Albaranes de proveedor\Controller\TB2k_D10.dcp" />
<DCCReference Include="..\Modulos\Albaranes de proveedor\Controller\tbx_d10.dcp" />
<DCCReference Include="..\Modulos\Albaranes de proveedor\Controller\vcl.dcp" />
<DCCReference Include="..\Modulos\Albaranes de proveedor\Controller\vclactnband.dcp" />
<DCCReference Include="..\Modulos\Albaranes de proveedor\Controller\vcldb.dcp" />
<DCCReference Include="..\Modulos\Albaranes de proveedor\Controller\vcljpg.dcp" />
<DCCReference Include="..\Modulos\Albaranes de proveedor\Controller\VclSmp.dcp" />
<DCCReference Include="..\Modulos\Albaranes de proveedor\Controller\vclx.dcp" />
<DCCReference Include="..\Modulos\Albaranes de proveedor\Controller\xmlrtl.dcp" />
<DCCReference Include="..\Servicios\FactuGES_Intf.pas" />
<DCCReference Include="Conexion\uConfigurarConexion.pas">
<Form>fConfigurarConexion</Form>

7
Source/Modulos/Albaranes de cliente/Data/uDataModuleAlbaranesCliente.dfm
View File

@ -337,6 +337,11 @@ inherited DataModuleAlbaranesCliente: TDataModuleAlbaranesCliente
Alignment = taRightJustify
DictionaryEntry = 'CANTIDAD'
end
item
Name = 'UNIDAD_MEDIDA'
DataType = datString
Size = 255
end
item
Name = 'IMPORTE_UNIDAD'
DataType = datCurrency
@ -385,6 +390,8 @@ inherited DataModuleAlbaranesCliente: TDataModuleAlbaranesCliente
Name = 'REFERENCIA_PROVEEDOR'
DataType = datString
Size = 255
DisplayLabel = 'Ref. proveedor'
DictionaryEntry = 'AlbaranesCliente_Detalles_REFERENCIA_PROVEEDOR'
end
item
Name = 'ID_PEDIDO'

61
Source/Modulos/Albaranes de cliente/Model/schAlbaranesClienteClient_Intf.pas
View File

@ -9,8 +9,8 @@ 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_AlbaranesCliente = '{FCCE9431-F9AF-47FC-827F-3B80548952DB}';
RID_AlbaranesCliente_Detalles = '{6BE5CCD5-B3AA-464D-9FE1-694242071E0E}';
RID_AlbaranesCliente = '{8E9C9E82-769C-4B9B-BBCD-15E8ABB5F341}';
RID_AlbaranesCliente_Detalles = '{7438D3A0-220D-4882-8919-09C4E9995672}';
{ Data table names }
nme_AlbaranesCliente = 'AlbaranesCliente';
@ -105,6 +105,7 @@ const
fld_AlbaranesCliente_DetallesTIPO_DETALLE = 'TIPO_DETALLE';
fld_AlbaranesCliente_DetallesCONCEPTO = 'CONCEPTO';
fld_AlbaranesCliente_DetallesCANTIDAD = 'CANTIDAD';
fld_AlbaranesCliente_DetallesUNIDAD_MEDIDA = 'UNIDAD_MEDIDA';
fld_AlbaranesCliente_DetallesIMPORTE_UNIDAD = 'IMPORTE_UNIDAD';
fld_AlbaranesCliente_DetallesDESCUENTO = 'DESCUENTO';
fld_AlbaranesCliente_DetallesIMPORTE_PORTE = 'IMPORTE_PORTE';
@ -122,20 +123,21 @@ const
idx_AlbaranesCliente_DetallesTIPO_DETALLE = 3;
idx_AlbaranesCliente_DetallesCONCEPTO = 4;
idx_AlbaranesCliente_DetallesCANTIDAD = 5;
idx_AlbaranesCliente_DetallesIMPORTE_UNIDAD = 6;
idx_AlbaranesCliente_DetallesDESCUENTO = 7;
idx_AlbaranesCliente_DetallesIMPORTE_PORTE = 8;
idx_AlbaranesCliente_DetallesIMPORTE_TOTAL = 9;
idx_AlbaranesCliente_DetallesVISIBLE = 10;
idx_AlbaranesCliente_DetallesID_ARTICULO = 11;
idx_AlbaranesCliente_DetallesREFERENCIA = 12;
idx_AlbaranesCliente_DetallesREFERENCIA_PROVEEDOR = 13;
idx_AlbaranesCliente_DetallesID_PEDIDO = 14;
idx_AlbaranesCliente_DetallesUNIDAD_MEDIDA = 6;
idx_AlbaranesCliente_DetallesIMPORTE_UNIDAD = 7;
idx_AlbaranesCliente_DetallesDESCUENTO = 8;
idx_AlbaranesCliente_DetallesIMPORTE_PORTE = 9;
idx_AlbaranesCliente_DetallesIMPORTE_TOTAL = 10;
idx_AlbaranesCliente_DetallesVISIBLE = 11;
idx_AlbaranesCliente_DetallesID_ARTICULO = 12;
idx_AlbaranesCliente_DetallesREFERENCIA = 13;
idx_AlbaranesCliente_DetallesREFERENCIA_PROVEEDOR = 14;
idx_AlbaranesCliente_DetallesID_PEDIDO = 15;
type
{ IAlbaranesCliente }
IAlbaranesCliente = interface(IDAStronglyTypedDataTable)
['{9D9C017D-A65F-430D-9903-3724A7FA2AA7}']
['{7E7930B1-64D6-483A-AC1C-2CE60F883F41}']
{ Property getters and setters }
function GetIDValue: Integer;
procedure SetIDValue(const aValue: Integer);
@ -626,7 +628,7 @@ type
{ IAlbaranesCliente_Detalles }
IAlbaranesCliente_Detalles = interface(IDAStronglyTypedDataTable)
['{C6B6C302-E6F3-44D6-8C18-B8EE3F64EBED}']
['{08CCA27A-C500-4A1D-BEE3-ED4A8D8E8726}']
{ Property getters and setters }
function GetIDValue: Integer;
procedure SetIDValue(const aValue: Integer);
@ -652,6 +654,10 @@ type
procedure SetCANTIDADValue(const aValue: Integer);
function GetCANTIDADIsNull: Boolean;
procedure SetCANTIDADIsNull(const aValue: Boolean);
function GetUNIDAD_MEDIDAValue: String;
procedure SetUNIDAD_MEDIDAValue(const aValue: String);
function GetUNIDAD_MEDIDAIsNull: Boolean;
procedure SetUNIDAD_MEDIDAIsNull(const aValue: Boolean);
function GetIMPORTE_UNIDADValue: Currency;
procedure SetIMPORTE_UNIDADValue(const aValue: Currency);
function GetIMPORTE_UNIDADIsNull: Boolean;
@ -703,6 +709,8 @@ type
property CONCEPTOIsNull: Boolean read GetCONCEPTOIsNull write SetCONCEPTOIsNull;
property CANTIDAD: Integer read GetCANTIDADValue write SetCANTIDADValue;
property CANTIDADIsNull: Boolean read GetCANTIDADIsNull write SetCANTIDADIsNull;
property UNIDAD_MEDIDA: String read GetUNIDAD_MEDIDAValue write SetUNIDAD_MEDIDAValue;
property UNIDAD_MEDIDAIsNull: Boolean read GetUNIDAD_MEDIDAIsNull write SetUNIDAD_MEDIDAIsNull;
property IMPORTE_UNIDAD: Currency read GetIMPORTE_UNIDADValue write SetIMPORTE_UNIDADValue;
property IMPORTE_UNIDADIsNull: Boolean read GetIMPORTE_UNIDADIsNull write SetIMPORTE_UNIDADIsNull;
property DESCUENTO: Float read GetDESCUENTOValue write SetDESCUENTOValue;
@ -752,6 +760,10 @@ type
procedure SetCANTIDADValue(const aValue: Integer); virtual;
function GetCANTIDADIsNull: Boolean; virtual;
procedure SetCANTIDADIsNull(const aValue: Boolean); virtual;
function GetUNIDAD_MEDIDAValue: String; virtual;
procedure SetUNIDAD_MEDIDAValue(const aValue: String); virtual;
function GetUNIDAD_MEDIDAIsNull: Boolean; virtual;
procedure SetUNIDAD_MEDIDAIsNull(const aValue: Boolean); virtual;
function GetIMPORTE_UNIDADValue: Currency; virtual;
procedure SetIMPORTE_UNIDADValue(const aValue: Currency); virtual;
function GetIMPORTE_UNIDADIsNull: Boolean; virtual;
@ -802,6 +814,8 @@ type
property CONCEPTOIsNull: Boolean read GetCONCEPTOIsNull write SetCONCEPTOIsNull;
property CANTIDAD: Integer read GetCANTIDADValue write SetCANTIDADValue;
property CANTIDADIsNull: Boolean read GetCANTIDADIsNull write SetCANTIDADIsNull;
property UNIDAD_MEDIDA: String read GetUNIDAD_MEDIDAValue write SetUNIDAD_MEDIDAValue;
property UNIDAD_MEDIDAIsNull: Boolean read GetUNIDAD_MEDIDAIsNull write SetUNIDAD_MEDIDAIsNull;
property IMPORTE_UNIDAD: Currency read GetIMPORTE_UNIDADValue write SetIMPORTE_UNIDADValue;
property IMPORTE_UNIDADIsNull: Boolean read GetIMPORTE_UNIDADIsNull write SetIMPORTE_UNIDADIsNull;
property DESCUENTO: Float read GetDESCUENTOValue write SetDESCUENTOValue;
@ -1811,6 +1825,27 @@ begin
DataTable.Fields[idx_AlbaranesCliente_DetallesCANTIDAD].AsVariant := Null;
end;
function TAlbaranesCliente_DetallesDataTableRules.GetUNIDAD_MEDIDAValue: String;
begin
result := DataTable.Fields[idx_AlbaranesCliente_DetallesUNIDAD_MEDIDA].AsString;
end;
procedure TAlbaranesCliente_DetallesDataTableRules.SetUNIDAD_MEDIDAValue(const aValue: String);
begin
DataTable.Fields[idx_AlbaranesCliente_DetallesUNIDAD_MEDIDA].AsString := aValue;
end;
function TAlbaranesCliente_DetallesDataTableRules.GetUNIDAD_MEDIDAIsNull: boolean;
begin
result := DataTable.Fields[idx_AlbaranesCliente_DetallesUNIDAD_MEDIDA].IsNull;
end;
procedure TAlbaranesCliente_DetallesDataTableRules.SetUNIDAD_MEDIDAIsNull(const aValue: Boolean);
begin
if aValue then
DataTable.Fields[idx_AlbaranesCliente_DetallesUNIDAD_MEDIDA].AsVariant := Null;
end;
function TAlbaranesCliente_DetallesDataTableRules.GetIMPORTE_UNIDADValue: Currency;
begin
result := DataTable.Fields[idx_AlbaranesCliente_DetallesIMPORTE_UNIDAD].AsCurrency;

51
Source/Modulos/Albaranes de cliente/Model/schAlbaranesClienteServer_Intf.pas
View File

@ -9,13 +9,13 @@ 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_AlbaranesClienteDelta = '{A0E14879-92D0-49C8-A6D1-3A73C272869D}';
RID_AlbaranesCliente_DetallesDelta = '{9E3B92BA-F5F8-42DB-BC6F-E85CA27897BF}';
RID_AlbaranesClienteDelta = '{65D47153-FD9F-44D6-8200-78DC3F9417AC}';
RID_AlbaranesCliente_DetallesDelta = '{3FF81C35-8B1C-4F7D-95EA-8F11EF184F45}';
type
{ IAlbaranesClienteDelta }
IAlbaranesClienteDelta = interface(IAlbaranesCliente)
['{A0E14879-92D0-49C8-A6D1-3A73C272869D}']
['{65D47153-FD9F-44D6-8200-78DC3F9417AC}']
{ Property getters and setters }
function GetOldIDValue : Integer;
function GetOldID_EMPRESAValue : Integer;
@ -507,7 +507,7 @@ type
{ IAlbaranesCliente_DetallesDelta }
IAlbaranesCliente_DetallesDelta = interface(IAlbaranesCliente_Detalles)
['{9E3B92BA-F5F8-42DB-BC6F-E85CA27897BF}']
['{3FF81C35-8B1C-4F7D-95EA-8F11EF184F45}']
{ Property getters and setters }
function GetOldIDValue : Integer;
function GetOldID_ALBARANValue : Integer;
@ -515,6 +515,7 @@ type
function GetOldTIPO_DETALLEValue : String;
function GetOldCONCEPTOValue : String;
function GetOldCANTIDADValue : Integer;
function GetOldUNIDAD_MEDIDAValue : String;
function GetOldIMPORTE_UNIDADValue : Currency;
function GetOldDESCUENTOValue : Float;
function GetOldIMPORTE_PORTEValue : Currency;
@ -532,6 +533,7 @@ type
property OldTIPO_DETALLE : String read GetOldTIPO_DETALLEValue;
property OldCONCEPTO : String read GetOldCONCEPTOValue;
property OldCANTIDAD : Integer read GetOldCANTIDADValue;
property OldUNIDAD_MEDIDA : String read GetOldUNIDAD_MEDIDAValue;
property OldIMPORTE_UNIDAD : Currency read GetOldIMPORTE_UNIDADValue;
property OldDESCUENTO : Float read GetOldDESCUENTOValue;
property OldIMPORTE_PORTE : Currency read GetOldIMPORTE_PORTEValue;
@ -584,6 +586,12 @@ type
function GetOldCANTIDADIsNull: Boolean; virtual;
procedure SetCANTIDADValue(const aValue: Integer); virtual;
procedure SetCANTIDADIsNull(const aValue: Boolean); virtual;
function GetUNIDAD_MEDIDAValue: String; virtual;
function GetUNIDAD_MEDIDAIsNull: Boolean; virtual;
function GetOldUNIDAD_MEDIDAValue: String; virtual;
function GetOldUNIDAD_MEDIDAIsNull: Boolean; virtual;
procedure SetUNIDAD_MEDIDAValue(const aValue: String); virtual;
procedure SetUNIDAD_MEDIDAIsNull(const aValue: Boolean); virtual;
function GetIMPORTE_UNIDADValue: Currency; virtual;
function GetIMPORTE_UNIDADIsNull: Boolean; virtual;
function GetOldIMPORTE_UNIDADValue: Currency; virtual;
@ -664,6 +672,10 @@ type
property CANTIDADIsNull : Boolean read GetCANTIDADIsNull write SetCANTIDADIsNull;
property OldCANTIDAD : Integer read GetOldCANTIDADValue;
property OldCANTIDADIsNull : Boolean read GetOldCANTIDADIsNull;
property UNIDAD_MEDIDA : String read GetUNIDAD_MEDIDAValue write SetUNIDAD_MEDIDAValue;
property UNIDAD_MEDIDAIsNull : Boolean read GetUNIDAD_MEDIDAIsNull write SetUNIDAD_MEDIDAIsNull;
property OldUNIDAD_MEDIDA : String read GetOldUNIDAD_MEDIDAValue;
property OldUNIDAD_MEDIDAIsNull : Boolean read GetOldUNIDAD_MEDIDAIsNull;
property IMPORTE_UNIDAD : Currency read GetIMPORTE_UNIDADValue write SetIMPORTE_UNIDADValue;
property IMPORTE_UNIDADIsNull : Boolean read GetIMPORTE_UNIDADIsNull write SetIMPORTE_UNIDADIsNull;
property OldIMPORTE_UNIDAD : Currency read GetOldIMPORTE_UNIDADValue;
@ -2144,6 +2156,37 @@ begin
BusinessProcessor.CurrentChange.NewValueByName[fld_AlbaranesCliente_DetallesCANTIDAD] := Null;
end;
function TAlbaranesCliente_DetallesBusinessProcessorRules.GetUNIDAD_MEDIDAValue: String;
begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_AlbaranesCliente_DetallesUNIDAD_MEDIDA];
end;
function TAlbaranesCliente_DetallesBusinessProcessorRules.GetUNIDAD_MEDIDAIsNull: Boolean;
begin
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_AlbaranesCliente_DetallesUNIDAD_MEDIDA]);
end;
function TAlbaranesCliente_DetallesBusinessProcessorRules.GetOldUNIDAD_MEDIDAValue: String;
begin
result := BusinessProcessor.CurrentChange.OldValueByName[fld_AlbaranesCliente_DetallesUNIDAD_MEDIDA];
end;
function TAlbaranesCliente_DetallesBusinessProcessorRules.GetOldUNIDAD_MEDIDAIsNull: Boolean;
begin
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_AlbaranesCliente_DetallesUNIDAD_MEDIDA]);
end;
procedure TAlbaranesCliente_DetallesBusinessProcessorRules.SetUNIDAD_MEDIDAValue(const aValue: String);
begin
BusinessProcessor.CurrentChange.NewValueByName[fld_AlbaranesCliente_DetallesUNIDAD_MEDIDA] := aValue;
end;
procedure TAlbaranesCliente_DetallesBusinessProcessorRules.SetUNIDAD_MEDIDAIsNull(const aValue: Boolean);
begin
if aValue then
BusinessProcessor.CurrentChange.NewValueByName[fld_AlbaranesCliente_DetallesUNIDAD_MEDIDA] := Null;
end;
function TAlbaranesCliente_DetallesBusinessProcessorRules.GetIMPORTE_UNIDADValue: Currency;
begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_AlbaranesCliente_DetallesIMPORTE_UNIDAD];

59
Source/Modulos/Albaranes de cliente/Servidor/srvAlbaranesCliente_Impl.dfm
View File

@ -411,16 +411,16 @@ object srvAlbaranesCliente: TsrvAlbaranesCliente
'LLES.ID_ALBARAN,'#10' ALBARANES_CLIENTE_DETALLES.POSICION, ALBARA' +
'NES_CLIENTE_DETALLES.TIPO_DETALLE,'#10' ALBARANES_CLIENTE_DETALLE' +
'S.CONCEPTO, ALBARANES_CLIENTE_DETALLES.CANTIDAD,'#10' ALBARANES_C' +
'LIENTE_DETALLES.IMPORTE_UNIDAD, ALBARANES_CLIENTE_DETALLES.DESCU' +
'ENTO,'#10' ALBARANES_CLIENTE_DETALLES.IMPORTE_PORTE, ALBARANES_CL' +
'IENTE_DETALLES.IMPORTE_TOTAL,'#10' ALBARANES_CLIENTE_DETALLES.VIS' +
'IBLE,'#10' ALBARANES_CLIENTE_DETALLES.ID_ARTICULO, ARTICULOS.REFE' +
'RENCIA,'#10' '#39#39' as REFERENCIA_PROVEEDOR, /*Es necesario para que ' +
'no pete detalles porque tanto en la rama de cliente como de prov' +
'eedor es comun*/'#10' ALBARANES_CLIENTE_DETALLES.ID_PEDIDO'#10#10'FROM ' +
'ALBARANES_CLIENTE_DETALLES'#10'LEFT JOIN ARTICULOS ON ALBARANES_CLIE' +
'NTE_DETALLES.ID_ARTICULO = ARTICULOS.ID'#10'where {where}'#10'ORDER BY P' +
'OSICION;'#10#10
'LIENTE_DETALLES.UNIDAD_MEDIDA, ALBARANES_CLIENTE_DETALLES.IMPORT' +
'E_UNIDAD,'#10' ALBARANES_CLIENTE_DETALLES.DESCUENTO, ALBARANES_CL' +
'IENTE_DETALLES.IMPORTE_PORTE,'#10' ALBARANES_CLIENTE_DETALLES.IMP' +
'ORTE_TOTAL,'#10' ALBARANES_CLIENTE_DETALLES.VISIBLE,'#10' ALBARANE' +
'S_CLIENTE_DETALLES.ID_ARTICULO, ARTICULOS.REFERENCIA,'#10' '#39#39' as ' +
'REFERENCIA_PROVEEDOR, /*Es necesario para que no pete detalles p' +
'orque tanto en la rama de cliente como de proveedor es comun*/'#10' ' +
' ALBARANES_CLIENTE_DETALLES.ID_PEDIDO'#10#10#10'FROM ALBARANES_CLIENTE' +
'_DETALLES'#10'LEFT JOIN ARTICULOS ON ALBARANES_CLIENTE_DETALLES.ID_A' +
'RTICULO = ARTICULOS.ID'#10'where {where}'#10'ORDER BY POSICION;'#10#10
StatementType = stSQL
ColumnMappings = <
item
@ -482,6 +482,10 @@ object srvAlbaranesCliente: TsrvAlbaranesCliente
item
DatasetField = 'ID_PEDIDO'
TableField = 'ID_PEDIDO'
end
item
DatasetField = 'UNIDAD_MEDIDA'
TableField = 'UNIDAD_MEDIDA'
end>
end>
Name = 'AlbaranesCliente_Detalles'
@ -520,6 +524,11 @@ object srvAlbaranesCliente: TsrvAlbaranesCliente
DataType = datInteger
DictionaryEntry = 'CANTIDAD'
end
item
Name = 'UNIDAD_MEDIDA'
DataType = datString
Size = 255
end
item
Name = 'IMPORTE_UNIDAD'
DataType = datCurrency
@ -950,6 +959,10 @@ object srvAlbaranesCliente: TsrvAlbaranesCliente
Name = 'CANTIDAD'
Value = ''
end
item
Name = 'UNIDAD_MEDIDA'
Value = ''
end
item
Name = 'IMPORTE_UNIDAD'
Value = ''
@ -985,12 +998,12 @@ object srvAlbaranesCliente: TsrvAlbaranesCliente
TargetTable = 'ALBARANES_CLIENTE_DETALLES'
SQL =
'INSERT'#10' INTO ALBARANES_CLIENTE_DETALLES'#10' (ID, ID_ALBARAN, PO' +
'SICION, TIPO_DETALLE, CONCEPTO, CANTIDAD,'#10' IMPORTE_UNIDAD, D' +
'ESCUENTO, IMPORTE_PORTE, IMPORTE_TOTAL, '#10' VISIBLE, ID_ARTICU' +
'LO, ID_PEDIDO)'#10' VALUES'#10' (:ID, :ID_ALBARAN, :POSICION, :TIPO_' +
'DETALLE, :CONCEPTO, :CANTIDAD,'#10' :IMPORTE_UNIDAD, :DESCUENTO,' +
' :IMPORTE_PORTE, :IMPORTE_TOTAL, '#10' :VISIBLE, :ID_ARTICULO, :' +
'ID_PEDIDO)'#10
'SICION, TIPO_DETALLE, CONCEPTO, CANTIDAD, UNIDAD_MEDIDA,'#10' IM' +
'PORTE_UNIDAD, DESCUENTO, IMPORTE_PORTE, IMPORTE_TOTAL, '#10' VIS' +
'IBLE, ID_ARTICULO, ID_PEDIDO)'#10' VALUES'#10' (:ID, :ID_ALBARAN, :P' +
'OSICION, :TIPO_DETALLE, :CONCEPTO, :CANTIDAD, :UNIDAD_MEDIDA,'#10' ' +
' :IMPORTE_UNIDAD, :DESCUENTO, :IMPORTE_PORTE, :IMPORTE_TOTAL, ' +
#10' :VISIBLE, :ID_ARTICULO, :ID_PEDIDO)'#10
StatementType = stSQL
ColumnMappings = <>
end>
@ -1042,6 +1055,10 @@ object srvAlbaranesCliente: TsrvAlbaranesCliente
Name = 'CANTIDAD'
Value = ''
end
item
Name = 'UNIDAD_MEDIDA'
Value = ''
end
item
Name = 'IMPORTE_UNIDAD'
Value = ''
@ -1083,11 +1100,11 @@ object srvAlbaranesCliente: TsrvAlbaranesCliente
'UPDATE ALBARANES_CLIENTE_DETALLES'#10' SET '#10' ID = :ID,'#10' ID_AL' +
'BARAN = :ID_ALBARAN, '#10' POSICION = :POSICION, '#10' TIPO_DETALL' +
'E = :TIPO_DETALLE, '#10' CONCEPTO = :CONCEPTO, '#10' CANTIDAD = :C' +
'ANTIDAD, '#10' IMPORTE_UNIDAD = :IMPORTE_UNIDAD, '#10' DESCUENTO =' +
' :DESCUENTO, '#10' IMPORTE_PORTE = :IMPORTE_PORTE, '#10' IMPORTE_T' +
'OTAL = :IMPORTE_TOTAL, '#10' VISIBLE = :VISIBLE, '#10' ID_ARTICULO' +
' = :ID_ARTICULO,'#10' ID_PEDIDO = :ID_PEDIDO'#10' WHERE'#10' (ID = :O' +
'LD_ID)'#10
'ANTIDAD, '#10' UNIDAD_MEDIDA = :UNIDAD_MEDIDA,'#10' IMPORTE_UNIDAD' +
' = :IMPORTE_UNIDAD, '#10' DESCUENTO = :DESCUENTO, '#10' IMPORTE_PO' +
'RTE = :IMPORTE_PORTE, '#10' IMPORTE_TOTAL = :IMPORTE_TOTAL, '#10' ' +
'VISIBLE = :VISIBLE, '#10' ID_ARTICULO = :ID_ARTICULO,'#10' ID_PEDI' +
'DO = :ID_PEDIDO'#10' WHERE'#10' (ID = :OLD_ID)'#10
StatementType = stSQL
ColumnMappings = <>
end>

47
Source/Modulos/Albaranes de proveedor/Data/AlbaranesProveedor_data.dproj
View File

@ -41,63 +41,22 @@
<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">AlbaranesProveedor_data.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">AlbaranesProveedor_data.dpk</Source></Source></Delphi.Personality></BorlandProject></BorlandProject>
</ProjectExtensions>
<Import Project="$(MSBuildBinPath)\Borland.Delphi.Targets" />
<ItemGroup>
<DelphiCompile Include="AlbaranesProveedor_data.dpk">
<MainSource>MainSource</MainSource>
</DelphiCompile>
<DCCReference Include="..\..\Albaranes de cliente\Data\AlbaranesProveedor_model.dcp" />
<DCCReference Include="..\AlbaranesProveedor_model.dcp" />
<DCCReference Include="uDataModuleAlbaranesProveedor.pas">
<Form>DataModuleAlbaranesProveedor</Form>
</DCCReference>
</ItemGroup>
</Project>
<!-- EurekaLog First Line
[Exception Log]
EurekaLog Version=6006
EurekaLog Version=6011
Activate=0
Activate Handle=1
Save Log File=1

22
Source/Modulos/Albaranes de proveedor/Data/AlbaranesProveedor_data.rc
View File

@ -0,0 +1,22 @@
1 VERSIONINFO
FILEVERSION 1,0,0,0
PRODUCTVERSION 1,0,0,0
FILEFLAGSMASK 0x3FL
FILEFLAGS 0x00L
FILEOS 0x40004L
FILETYPE 0x1L
FILESUBTYPE 0x0L
BEGIN
BLOCK "StringFileInfo"
BEGIN
BLOCK "0C0A04E4"
BEGIN
VALUE "FileVersion", "1.0.0.0\0"
VALUE "ProductVersion", "1.0.0.0\0"
END
END
BLOCK "VarFileInfo"
BEGIN
VALUE "Translation", 0x0C0A, 1252
END
END

BIN
Source/Modulos/Albaranes de proveedor/Data/AlbaranesProveedor_data.res
View File

Binary file not shown.

5
Source/Modulos/Albaranes de proveedor/Data/uDataModuleAlbaranesProveedor.dfm
View File

@ -323,6 +323,11 @@ inherited DataModuleAlbaranesProveedor: TDataModuleAlbaranesProveedor
DataType = datInteger
DictionaryEntry = 'CANTIDAD'
end
item
Name = 'UNIDAD_MEDIDA'
DataType = datString
Size = 255
end
item
Name = 'IMPORTE_UNIDAD'
DataType = datCurrency

30
Source/Modulos/Albaranes de proveedor/Model/AlbaranesProveedor_model.dproj
View File

@ -42,6 +42,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="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><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\EurekaLog 5\Delphi10\ExceptionExpert10.bpl">EurekaLog 5.1.9</Excluded_Packages>
</Excluded_Packages><Source><Source Name="MainSource">AlbaranesProveedor_model.dpk</Source></Source></Delphi.Personality></BorlandProject></BorlandProject>
@ -53,31 +57,7 @@
</DelphiCompile>
<DCCReference Include="..\Base.dcp" />
<DCCReference Include="..\Contactos_model.dcp" />
<DCCReference Include="..\I.dcp" />
<DCCReference Include="..\In.dcp" />
<DCCReference Include="..\Inv.dcp" />
<DCCReference Include="..\Inve.dcp" />
<DCCReference Include="..\Inven.dcp" />
<DCCReference Include="..\Invent.dcp" />
<DCCReference Include="..\Inventa.dcp" />
<DCCReference Include="..\Inventar.dcp" />
<DCCReference Include="..\Inventari.dcp" />
<DCCReference Include="..\Inventario.dcp" />
<DCCReference Include="..\Inventario_.dcp" />
<DCCReference Include="..\Inventario_c.dcp" />
<DCCReference Include="..\Inventario_co.dcp" />
<DCCReference Include="..\Inventario_con.dcp" />
<DCCReference Include="..\Inventario_cont.dcp" />
<DCCReference Include="..\Inventario_contr.dcp" />
<DCCReference Include="..\Inventario_contro.dcp" />
<DCCReference Include="..\Inventario_control.dcp" />
<DCCReference Include="..\Inventario_controll.dcp" />
<DCCReference Include="..\Inventario_controlle.dcp" />
<DCCReference Include="..\Inventario_controller.dcp" />
<DCCReference Include="..\Inventario_m.dcp" />
<DCCReference Include="..\Inventario_mo.dcp" />
<DCCReference Include="..\Inventario_mod.dcp" />
<DCCReference Include="..\Inventario_mode.dcp" />
<DCCReference Include="..\Inventario_model.dcp" />
<DCCReference Include="Data\uIDataModuleAlbaranesProveedor.pas" />
<DCCReference Include="Data\uIDataModuleAlbaranesProveedorReport.pas" />
<DCCReference Include="schAlbaranesProveedorClient_Intf.pas" />

63
Source/Modulos/Albaranes de proveedor/Model/schAlbaranesProveedorClient_Intf.pas
View File

@ -9,8 +9,8 @@ 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_AlbaranesProveedor = '{3A5B87A4-05C4-4A7D-BD0E-091B8622129E}';
RID_AlbaranesProveedor_Detalles = '{BDCD22AF-3E75-41A4-B687-2877C9E4AA34}';
RID_AlbaranesProveedor = '{AEA50745-91B1-4767-BD4C-0342B4369E7F}';
RID_AlbaranesProveedor_Detalles = '{D4FA78EC-16C7-4A90-91B8-3A82A4E7E76A}';
{ Data table names }
nme_AlbaranesProveedor = 'AlbaranesProveedor';
@ -101,6 +101,7 @@ const
fld_AlbaranesProveedor_DetallesTIPO_DETALLE = 'TIPO_DETALLE';
fld_AlbaranesProveedor_DetallesCONCEPTO = 'CONCEPTO';
fld_AlbaranesProveedor_DetallesCANTIDAD = 'CANTIDAD';
fld_AlbaranesProveedor_DetallesUNIDAD_MEDIDA = 'UNIDAD_MEDIDA';
fld_AlbaranesProveedor_DetallesIMPORTE_UNIDAD = 'IMPORTE_UNIDAD';
fld_AlbaranesProveedor_DetallesIMPORTE_TOTAL = 'IMPORTE_TOTAL';
fld_AlbaranesProveedor_DetallesVISIBLE = 'VISIBLE';
@ -119,21 +120,22 @@ const
idx_AlbaranesProveedor_DetallesTIPO_DETALLE = 3;
idx_AlbaranesProveedor_DetallesCONCEPTO = 4;
idx_AlbaranesProveedor_DetallesCANTIDAD = 5;
idx_AlbaranesProveedor_DetallesIMPORTE_UNIDAD = 6;
idx_AlbaranesProveedor_DetallesIMPORTE_TOTAL = 7;
idx_AlbaranesProveedor_DetallesVISIBLE = 8;
idx_AlbaranesProveedor_DetallesID_ARTICULO = 9;
idx_AlbaranesProveedor_DetallesDESCUENTO = 10;
idx_AlbaranesProveedor_DetallesIMPORTE_PORTE = 11;
idx_AlbaranesProveedor_DetallesREFERENCIA = 12;
idx_AlbaranesProveedor_DetallesREFERENCIA_PROVEEDOR = 13;
idx_AlbaranesProveedor_DetallesID_PEDIDO = 14;
idx_AlbaranesProveedor_DetallesREFERENCIA_FABRICANTE = 15;
idx_AlbaranesProveedor_DetallesUNIDAD_MEDIDA = 6;
idx_AlbaranesProveedor_DetallesIMPORTE_UNIDAD = 7;
idx_AlbaranesProveedor_DetallesIMPORTE_TOTAL = 8;
idx_AlbaranesProveedor_DetallesVISIBLE = 9;
idx_AlbaranesProveedor_DetallesID_ARTICULO = 10;
idx_AlbaranesProveedor_DetallesDESCUENTO = 11;
idx_AlbaranesProveedor_DetallesIMPORTE_PORTE = 12;
idx_AlbaranesProveedor_DetallesREFERENCIA = 13;
idx_AlbaranesProveedor_DetallesREFERENCIA_PROVEEDOR = 14;
idx_AlbaranesProveedor_DetallesID_PEDIDO = 15;
idx_AlbaranesProveedor_DetallesREFERENCIA_FABRICANTE = 16;
type
{ IAlbaranesProveedor }
IAlbaranesProveedor = interface(IDAStronglyTypedDataTable)
['{12014A01-A016-4D80-934F-3E446BD3931A}']
['{748AC7A5-9E6C-468E-BE35-CF169E6ADBC8}']
{ Property getters and setters }
function GetIDValue: Integer;
procedure SetIDValue(const aValue: Integer);
@ -600,7 +602,7 @@ type
{ IAlbaranesProveedor_Detalles }
IAlbaranesProveedor_Detalles = interface(IDAStronglyTypedDataTable)
['{5D73C93F-C093-4F2A-803D-44FECA360FD4}']
['{7E9AB0E2-DB09-4CE4-9893-F72625C02A01}']
{ Property getters and setters }
function GetIDValue: Integer;
procedure SetIDValue(const aValue: Integer);
@ -626,6 +628,10 @@ type
procedure SetCANTIDADValue(const aValue: Integer);
function GetCANTIDADIsNull: Boolean;
procedure SetCANTIDADIsNull(const aValue: Boolean);
function GetUNIDAD_MEDIDAValue: String;
procedure SetUNIDAD_MEDIDAValue(const aValue: String);
function GetUNIDAD_MEDIDAIsNull: Boolean;
procedure SetUNIDAD_MEDIDAIsNull(const aValue: Boolean);
function GetIMPORTE_UNIDADValue: Currency;
procedure SetIMPORTE_UNIDADValue(const aValue: Currency);
function GetIMPORTE_UNIDADIsNull: Boolean;
@ -681,6 +687,8 @@ type
property CONCEPTOIsNull: Boolean read GetCONCEPTOIsNull write SetCONCEPTOIsNull;
property CANTIDAD: Integer read GetCANTIDADValue write SetCANTIDADValue;
property CANTIDADIsNull: Boolean read GetCANTIDADIsNull write SetCANTIDADIsNull;
property UNIDAD_MEDIDA: String read GetUNIDAD_MEDIDAValue write SetUNIDAD_MEDIDAValue;
property UNIDAD_MEDIDAIsNull: Boolean read GetUNIDAD_MEDIDAIsNull write SetUNIDAD_MEDIDAIsNull;
property IMPORTE_UNIDAD: Currency read GetIMPORTE_UNIDADValue write SetIMPORTE_UNIDADValue;
property IMPORTE_UNIDADIsNull: Boolean read GetIMPORTE_UNIDADIsNull write SetIMPORTE_UNIDADIsNull;
property IMPORTE_TOTAL: Currency read GetIMPORTE_TOTALValue write SetIMPORTE_TOTALValue;
@ -732,6 +740,10 @@ type
procedure SetCANTIDADValue(const aValue: Integer); virtual;
function GetCANTIDADIsNull: Boolean; virtual;
procedure SetCANTIDADIsNull(const aValue: Boolean); virtual;
function GetUNIDAD_MEDIDAValue: String; virtual;
procedure SetUNIDAD_MEDIDAValue(const aValue: String); virtual;
function GetUNIDAD_MEDIDAIsNull: Boolean; virtual;
procedure SetUNIDAD_MEDIDAIsNull(const aValue: Boolean); virtual;
function GetIMPORTE_UNIDADValue: Currency; virtual;
procedure SetIMPORTE_UNIDADValue(const aValue: Currency); virtual;
function GetIMPORTE_UNIDADIsNull: Boolean; virtual;
@ -786,6 +798,8 @@ type
property CONCEPTOIsNull: Boolean read GetCONCEPTOIsNull write SetCONCEPTOIsNull;
property CANTIDAD: Integer read GetCANTIDADValue write SetCANTIDADValue;
property CANTIDADIsNull: Boolean read GetCANTIDADIsNull write SetCANTIDADIsNull;
property UNIDAD_MEDIDA: String read GetUNIDAD_MEDIDAValue write SetUNIDAD_MEDIDAValue;
property UNIDAD_MEDIDAIsNull: Boolean read GetUNIDAD_MEDIDAIsNull write SetUNIDAD_MEDIDAIsNull;
property IMPORTE_UNIDAD: Currency read GetIMPORTE_UNIDADValue write SetIMPORTE_UNIDADValue;
property IMPORTE_UNIDADIsNull: Boolean read GetIMPORTE_UNIDADIsNull write SetIMPORTE_UNIDADIsNull;
property IMPORTE_TOTAL: Currency read GetIMPORTE_TOTALValue write SetIMPORTE_TOTALValue;
@ -1755,6 +1769,27 @@ begin
DataTable.Fields[idx_AlbaranesProveedor_DetallesCANTIDAD].AsVariant := Null;
end;
function TAlbaranesProveedor_DetallesDataTableRules.GetUNIDAD_MEDIDAValue: String;
begin
result := DataTable.Fields[idx_AlbaranesProveedor_DetallesUNIDAD_MEDIDA].AsString;
end;
procedure TAlbaranesProveedor_DetallesDataTableRules.SetUNIDAD_MEDIDAValue(const aValue: String);
begin
DataTable.Fields[idx_AlbaranesProveedor_DetallesUNIDAD_MEDIDA].AsString := aValue;
end;
function TAlbaranesProveedor_DetallesDataTableRules.GetUNIDAD_MEDIDAIsNull: boolean;
begin
result := DataTable.Fields[idx_AlbaranesProveedor_DetallesUNIDAD_MEDIDA].IsNull;
end;
procedure TAlbaranesProveedor_DetallesDataTableRules.SetUNIDAD_MEDIDAIsNull(const aValue: Boolean);
begin
if aValue then
DataTable.Fields[idx_AlbaranesProveedor_DetallesUNIDAD_MEDIDA].AsVariant := Null;
end;
function TAlbaranesProveedor_DetallesDataTableRules.GetIMPORTE_UNIDADValue: Currency;
begin
result := DataTable.Fields[idx_AlbaranesProveedor_DetallesIMPORTE_UNIDAD].AsCurrency;

51
Source/Modulos/Albaranes de proveedor/Model/schAlbaranesProveedorServer_Intf.pas
View File

@ -9,13 +9,13 @@ 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_AlbaranesProveedorDelta = '{8C34C6D7-BC91-4324-A5D5-67927710645B}';
RID_AlbaranesProveedor_DetallesDelta = '{6FEB7C72-73D0-40DE-B837-AB43E2791374}';
RID_AlbaranesProveedorDelta = '{4D8E87E2-EC7B-4811-8361-AF6CA86C03AA}';
RID_AlbaranesProveedor_DetallesDelta = '{54442582-9203-4008-9E87-3F639EBDA771}';
type
{ IAlbaranesProveedorDelta }
IAlbaranesProveedorDelta = interface(IAlbaranesProveedor)
['{8C34C6D7-BC91-4324-A5D5-67927710645B}']
['{4D8E87E2-EC7B-4811-8361-AF6CA86C03AA}']
{ Property getters and setters }
function GetOldIDValue : Integer;
function GetOldID_EMPRESAValue : Integer;
@ -483,7 +483,7 @@ type
{ IAlbaranesProveedor_DetallesDelta }
IAlbaranesProveedor_DetallesDelta = interface(IAlbaranesProveedor_Detalles)
['{6FEB7C72-73D0-40DE-B837-AB43E2791374}']
['{54442582-9203-4008-9E87-3F639EBDA771}']
{ Property getters and setters }
function GetOldIDValue : Integer;
function GetOldID_ALBARANValue : Integer;
@ -491,6 +491,7 @@ type
function GetOldTIPO_DETALLEValue : String;
function GetOldCONCEPTOValue : String;
function GetOldCANTIDADValue : Integer;
function GetOldUNIDAD_MEDIDAValue : String;
function GetOldIMPORTE_UNIDADValue : Currency;
function GetOldIMPORTE_TOTALValue : Currency;
function GetOldVISIBLEValue : Integer;
@ -509,6 +510,7 @@ type
property OldTIPO_DETALLE : String read GetOldTIPO_DETALLEValue;
property OldCONCEPTO : String read GetOldCONCEPTOValue;
property OldCANTIDAD : Integer read GetOldCANTIDADValue;
property OldUNIDAD_MEDIDA : String read GetOldUNIDAD_MEDIDAValue;
property OldIMPORTE_UNIDAD : Currency read GetOldIMPORTE_UNIDADValue;
property OldIMPORTE_TOTAL : Currency read GetOldIMPORTE_TOTALValue;
property OldVISIBLE : Integer read GetOldVISIBLEValue;
@ -562,6 +564,12 @@ type
function GetOldCANTIDADIsNull: Boolean; virtual;
procedure SetCANTIDADValue(const aValue: Integer); virtual;
procedure SetCANTIDADIsNull(const aValue: Boolean); virtual;
function GetUNIDAD_MEDIDAValue: String; virtual;
function GetUNIDAD_MEDIDAIsNull: Boolean; virtual;
function GetOldUNIDAD_MEDIDAValue: String; virtual;
function GetOldUNIDAD_MEDIDAIsNull: Boolean; virtual;
procedure SetUNIDAD_MEDIDAValue(const aValue: String); virtual;
procedure SetUNIDAD_MEDIDAIsNull(const aValue: Boolean); virtual;
function GetIMPORTE_UNIDADValue: Currency; virtual;
function GetIMPORTE_UNIDADIsNull: Boolean; virtual;
function GetOldIMPORTE_UNIDADValue: Currency; virtual;
@ -648,6 +656,10 @@ type
property CANTIDADIsNull : Boolean read GetCANTIDADIsNull write SetCANTIDADIsNull;
property OldCANTIDAD : Integer read GetOldCANTIDADValue;
property OldCANTIDADIsNull : Boolean read GetOldCANTIDADIsNull;
property UNIDAD_MEDIDA : String read GetUNIDAD_MEDIDAValue write SetUNIDAD_MEDIDAValue;
property UNIDAD_MEDIDAIsNull : Boolean read GetUNIDAD_MEDIDAIsNull write SetUNIDAD_MEDIDAIsNull;
property OldUNIDAD_MEDIDA : String read GetOldUNIDAD_MEDIDAValue;
property OldUNIDAD_MEDIDAIsNull : Boolean read GetOldUNIDAD_MEDIDAIsNull;
property IMPORTE_UNIDAD : Currency read GetIMPORTE_UNIDADValue write SetIMPORTE_UNIDADValue;
property IMPORTE_UNIDADIsNull : Boolean read GetIMPORTE_UNIDADIsNull write SetIMPORTE_UNIDADIsNull;
property OldIMPORTE_UNIDAD : Currency read GetOldIMPORTE_UNIDADValue;
@ -2070,6 +2082,37 @@ begin
BusinessProcessor.CurrentChange.NewValueByName[fld_AlbaranesProveedor_DetallesCANTIDAD] := Null;
end;
function TAlbaranesProveedor_DetallesBusinessProcessorRules.GetUNIDAD_MEDIDAValue: String;
begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_AlbaranesProveedor_DetallesUNIDAD_MEDIDA];
end;
function TAlbaranesProveedor_DetallesBusinessProcessorRules.GetUNIDAD_MEDIDAIsNull: Boolean;
begin
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_AlbaranesProveedor_DetallesUNIDAD_MEDIDA]);
end;
function TAlbaranesProveedor_DetallesBusinessProcessorRules.GetOldUNIDAD_MEDIDAValue: String;
begin
result := BusinessProcessor.CurrentChange.OldValueByName[fld_AlbaranesProveedor_DetallesUNIDAD_MEDIDA];
end;
function TAlbaranesProveedor_DetallesBusinessProcessorRules.GetOldUNIDAD_MEDIDAIsNull: Boolean;
begin
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_AlbaranesProveedor_DetallesUNIDAD_MEDIDA]);
end;
procedure TAlbaranesProveedor_DetallesBusinessProcessorRules.SetUNIDAD_MEDIDAValue(const aValue: String);
begin
BusinessProcessor.CurrentChange.NewValueByName[fld_AlbaranesProveedor_DetallesUNIDAD_MEDIDA] := aValue;
end;
procedure TAlbaranesProveedor_DetallesBusinessProcessorRules.SetUNIDAD_MEDIDAIsNull(const aValue: Boolean);
begin
if aValue then
BusinessProcessor.CurrentChange.NewValueByName[fld_AlbaranesProveedor_DetallesUNIDAD_MEDIDA] := Null;
end;
function TAlbaranesProveedor_DetallesBusinessProcessorRules.GetIMPORTE_UNIDADValue: Currency;
begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_AlbaranesProveedor_DetallesIMPORTE_UNIDAD];

74
Source/Modulos/Albaranes de proveedor/Servidor/srvAlbaranesProveedor_Impl.dfm
View File

@ -393,20 +393,21 @@ object srvAlbaranesProveedor: TsrvAlbaranesProveedor
'DETALLES.ID_ALBARAN,'#10' ALBARANES_PROVEEDOR_DETALLES.POSICION, ' +
'ALBARANES_PROVEEDOR_DETALLES.TIPO_DETALLE,'#10' ALBARANES_PROVEED' +
'OR_DETALLES.CONCEPTO, ALBARANES_PROVEEDOR_DETALLES.CANTIDAD,'#10' ' +
' ALBARANES_PROVEEDOR_DETALLES.IMPORTE_UNIDAD, ALBARANES_PROVEEDO' +
'R_DETALLES.IMPORTE_TOTAL,'#10' ALBARANES_PROVEEDOR_DETALLES.VISIB' +
'LE,'#10#10' ALBARANES_PROVEEDOR_DETALLES.ID_ARTICULO, ALBARANES_PRO' +
'VEEDOR_DETALLES.DESCUENTO,'#10' ALBARANES_PROVEEDOR_DETALLES.IMPO' +
'RTE_PORTE,'#10' ARTICULOS.REFERENCIA, ARTICULOS_PROVEEDORES.REFER' +
'ENCIA_PROV as REFERENCIA_PROVEEDOR,'#10' ALBARANES_PROVEEDOR_DETA' +
'LLES.ID_PEDIDO,'#10' ARTICULOS.REFERENCIA_FABR as REFERENCIA_FABR' +
'ICANTE'#10#10'FROM ALBARANES_PROVEEDOR_DETALLES'#10'LEFT JOIN ARTICULOS ON' +
' ALBARANES_PROVEEDOR_DETALLES.ID_ARTICULO = ARTICULOS.ID'#10'LEFT JO' +
'IN ALBARANES_PROVEEDOR ON (ALBARANES_PROVEEDOR.ID = ALBARANES_PR' +
'OVEEDOR_DETALLES.ID_ALBARAN)'#10'LEFT JOIN ARTICULOS_PROVEEDORES ON ' +
'((ARTICULOS_PROVEEDORES.ID_ARTICULO = ARTICULOS.ID) AND (ARTICUL' +
'OS_PROVEEDORES.ID_PROVEEDOR = ALBARANES_PROVEEDOR.ID_PROVEEDOR))' +
#10'WHERE {where}'#10'ORDER BY POSICION;'#10#10#10#10
' ALBARANES_PROVEEDOR_DETALLES.UNIDAD_MEDIDA, ALBARANES_PROVEEDOR' +
'_DETALLES.IMPORTE_UNIDAD,'#10' ALBARANES_PROVEEDOR_DETALLES.IMPOR' +
'TE_TOTAL, ALBARANES_PROVEEDOR_DETALLES.VISIBLE,'#10#10' ALBARANES_P' +
'ROVEEDOR_DETALLES.ID_ARTICULO, ALBARANES_PROVEEDOR_DETALLES.DESC' +
'UENTO,'#10' ALBARANES_PROVEEDOR_DETALLES.IMPORTE_PORTE,'#10' ARTIC' +
'ULOS.REFERENCIA, ARTICULOS_PROVEEDORES.REFERENCIA_PROV as REFERE' +
'NCIA_PROVEEDOR,'#10' ALBARANES_PROVEEDOR_DETALLES.ID_PEDIDO,'#10' ' +
'ARTICULOS.REFERENCIA_FABR as REFERENCIA_FABRICANTE'#10#10'FROM ALBARAN' +
'ES_PROVEEDOR_DETALLES'#10'LEFT JOIN ARTICULOS ON ALBARANES_PROVEEDOR' +
'_DETALLES.ID_ARTICULO = ARTICULOS.ID'#10'LEFT JOIN ALBARANES_PROVEED' +
'OR ON (ALBARANES_PROVEEDOR.ID = ALBARANES_PROVEEDOR_DETALLES.ID_' +
'ALBARAN)'#10'LEFT JOIN ARTICULOS_PROVEEDORES ON ((ARTICULOS_PROVEEDO' +
'RES.ID_ARTICULO = ARTICULOS.ID) AND (ARTICULOS_PROVEEDORES.ID_PR' +
'OVEEDOR = ALBARANES_PROVEEDOR.ID_PROVEEDOR))'#10'WHERE {where}'#10'ORDER' +
' BY POSICION;'#10#10#10#10
StatementType = stSQL
ColumnMappings = <
item
@ -472,6 +473,10 @@ object srvAlbaranesProveedor: TsrvAlbaranesProveedor
item
DatasetField = 'REFERENCIA_FABRICANTE'
TableField = 'REFERENCIA_FABRICANTE'
end
item
DatasetField = 'UNIDAD_MEDIDA'
TableField = 'UNIDAD_MEDIDA'
end>
end>
Name = 'AlbaranesProveedor_Detalles'
@ -511,6 +516,11 @@ object srvAlbaranesProveedor: TsrvAlbaranesProveedor
DataType = datInteger
DictionaryEntry = 'CANTIDAD'
end
item
Name = 'UNIDAD_MEDIDA'
DataType = datString
Size = 255
end
item
Name = 'IMPORTE_UNIDAD'
DataType = datCurrency
@ -913,6 +923,10 @@ object srvAlbaranesProveedor: TsrvAlbaranesProveedor
Name = 'CANTIDAD'
Value = ''
end
item
Name = 'UNIDAD_MEDIDA'
Value = ''
end
item
Name = 'POSICION'
Value = ''
@ -968,13 +982,13 @@ object srvAlbaranesProveedor: TsrvAlbaranesProveedor
Connection = 'IBX'
TargetTable = 'ALBARANES_PROVEEDOR_DETALLES'
SQL =
'INSERT'#10' INTO ALBARANES_PROVEEDOR_DETALLES'#10' (CANTIDAD, POSICI' +
'ON, ID, TIPO_DETALLE, CONCEPTO, IMPORTE_UNIDAD,'#10' IMPORTE_TOT' +
'AL, VISIBLE, ID_ALBARAN,'#10' ID_ARTICULO, DESCUENTO, IMPORTE_PO' +
'RTE, ID_PEDIDO)'#10' VALUES'#10' (:CANTIDAD, :POSICION, :ID, :TIPO_D' +
'ETALLE, :CONCEPTO,'#10' :IMPORTE_UNIDAD, :IMPORTE_TOTAL, :VISIBL' +
'E, :ID_ALBARAN,'#10' :ID_ARTICULO, :DESCUENTO, :IMPORTE_PORTE, :' +
'ID_PEDIDO)'#10
'INSERT'#10' INTO ALBARANES_PROVEEDOR_DETALLES'#10' (CANTIDAD, UNIDAD' +
'_MEDIDA, POSICION, ID, TIPO_DETALLE, CONCEPTO, IMPORTE_UNIDAD,'#10' ' +
' IMPORTE_TOTAL, VISIBLE, ID_ALBARAN,'#10' ID_ARTICULO, DESCUE' +
'NTO, IMPORTE_PORTE, ID_PEDIDO)'#10' VALUES'#10' (:CANTIDAD, :UNIDAD_' +
'MEDIDA, :POSICION, :ID, :TIPO_DETALLE, :CONCEPTO,'#10' :IMPORTE_' +
'UNIDAD, :IMPORTE_TOTAL, :VISIBLE, :ID_ALBARAN,'#10' :ID_ARTICULO' +
', :DESCUENTO, :IMPORTE_PORTE, :ID_PEDIDO)'#10
StatementType = stSQL
ColumnMappings = <>
end>
@ -1004,6 +1018,10 @@ object srvAlbaranesProveedor: TsrvAlbaranesProveedor
Name = 'CANTIDAD'
Value = ''
end
item
Name = 'UNIDAD_MEDIDA'
Value = ''
end
item
Name = 'POSICION'
Value = ''
@ -1062,13 +1080,13 @@ object srvAlbaranesProveedor: TsrvAlbaranesProveedor
TargetTable = 'ALBARANES_PROVEEDOR_DETALLES'
SQL =
'UPDATE ALBARANES_PROVEEDOR_DETALLES'#10' SET '#10' CANTIDAD = :CANTI' +
'DAD, '#10' POSICION = :POSICION, '#10' ID = :ID, '#10' TIPO_DETALLE' +
' = :TIPO_DETALLE, '#10' CONCEPTO = :CONCEPTO, '#10' IMPORTE_UNIDAD' +
' = :IMPORTE_UNIDAD, '#10' IMPORTE_TOTAL = :IMPORTE_TOTAL, '#10' VI' +
'SIBLE = :VISIBLE, '#10' ID_ALBARAN = :ID_ALBARAN,'#10' ID_ARTICULO' +
' = :ID_ARTICULO,'#10' DESCUENTO = :DESCUENTO,'#10' IMPORTE_PORTE =' +
' :IMPORTE_PORTE,'#10' ID_PEDIDO = :ID_PEDIDO'#10' WHERE'#10' (ID = :O' +
'LD_ID)'#10
'DAD, '#10' UNIDAD_MEDIDA = :UNIDAD_MEDIDA,'#10' POSICION = :POSICI' +
'ON, '#10' ID = :ID, '#10' TIPO_DETALLE = :TIPO_DETALLE, '#10' CONCE' +
'PTO = :CONCEPTO, '#10' IMPORTE_UNIDAD = :IMPORTE_UNIDAD, '#10' IMP' +
'ORTE_TOTAL = :IMPORTE_TOTAL, '#10' VISIBLE = :VISIBLE, '#10' ID_AL' +
'BARAN = :ID_ALBARAN,'#10' ID_ARTICULO = :ID_ARTICULO,'#10' DESCUEN' +
'TO = :DESCUENTO,'#10' IMPORTE_PORTE = :IMPORTE_PORTE,'#10' ID_PEDI' +
'DO = :ID_PEDIDO'#10' WHERE'#10' (ID = :OLD_ID)'#10
StatementType = stSQL
ColumnMappings = <>
end>

7
Source/Modulos/Facturas de cliente/Data/uDataModuleFacturasCliente.dfm
View File

@ -303,6 +303,11 @@ inherited DataModuleFacturasCliente: TDataModuleFacturasCliente
DisplayLabel = 'Cantidad'
DictionaryEntry = 'FacturasCliente_Detalles_CANTIDAD'
end
item
Name = 'UNIDAD_MEDIDA'
DataType = datString
Size = 255
end
item
Name = 'IMPORTE_UNIDAD'
DataType = datCurrency
@ -350,6 +355,8 @@ inherited DataModuleFacturasCliente: TDataModuleFacturasCliente
Name = 'REFERENCIA_PROVEEDOR'
DataType = datString
Size = 255
DisplayLabel = 'FacturasCliente_Detalles_REFERENCIA_PROVEEDOR'
DictionaryEntry = 'FacturasCliente_Detalles_REFERENCIA_PROVEEDOR'
end>
Params = <>
MasterMappingMode = mmWhere

59
Source/Modulos/Facturas de cliente/Model/schFacturasClienteClient_Intf.pas
View File

@ -9,8 +9,8 @@ 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_FacturasCliente = '{FD805B27-D47D-4EB9-9C4A-83049E34F7C2}';
RID_FacturasCliente_Detalles = '{F90F3F16-5248-421A-AE8E-62BB89BAC55F}';
RID_FacturasCliente = '{AD741F75-5D7A-43A4-AAE0-E35405E7BA1B}';
RID_FacturasCliente_Detalles = '{904C6FB4-5BD2-465F-B0C3-B3D44A76D809}';
{ Data table names }
nme_FacturasCliente = 'FacturasCliente';
@ -95,6 +95,7 @@ const
fld_FacturasCliente_DetallesTIPO_DETALLE = 'TIPO_DETALLE';
fld_FacturasCliente_DetallesCONCEPTO = 'CONCEPTO';
fld_FacturasCliente_DetallesCANTIDAD = 'CANTIDAD';
fld_FacturasCliente_DetallesUNIDAD_MEDIDA = 'UNIDAD_MEDIDA';
fld_FacturasCliente_DetallesIMPORTE_UNIDAD = 'IMPORTE_UNIDAD';
fld_FacturasCliente_DetallesIMPORTE_TOTAL = 'IMPORTE_TOTAL';
fld_FacturasCliente_DetallesVISIBLE = 'VISIBLE';
@ -111,19 +112,20 @@ const
idx_FacturasCliente_DetallesTIPO_DETALLE = 3;
idx_FacturasCliente_DetallesCONCEPTO = 4;
idx_FacturasCliente_DetallesCANTIDAD = 5;
idx_FacturasCliente_DetallesIMPORTE_UNIDAD = 6;
idx_FacturasCliente_DetallesIMPORTE_TOTAL = 7;
idx_FacturasCliente_DetallesVISIBLE = 8;
idx_FacturasCliente_DetallesID_ARTICULO = 9;
idx_FacturasCliente_DetallesDESCUENTO = 10;
idx_FacturasCliente_DetallesIMPORTE_PORTE = 11;
idx_FacturasCliente_DetallesREFERENCIA = 12;
idx_FacturasCliente_DetallesREFERENCIA_PROVEEDOR = 13;
idx_FacturasCliente_DetallesUNIDAD_MEDIDA = 6;
idx_FacturasCliente_DetallesIMPORTE_UNIDAD = 7;
idx_FacturasCliente_DetallesIMPORTE_TOTAL = 8;
idx_FacturasCliente_DetallesVISIBLE = 9;
idx_FacturasCliente_DetallesID_ARTICULO = 10;
idx_FacturasCliente_DetallesDESCUENTO = 11;
idx_FacturasCliente_DetallesIMPORTE_PORTE = 12;
idx_FacturasCliente_DetallesREFERENCIA = 13;
idx_FacturasCliente_DetallesREFERENCIA_PROVEEDOR = 14;
type
{ IFacturasCliente }
IFacturasCliente = interface(IDAStronglyTypedDataTable)
['{8FEF79E3-8EC3-4036-A964-AA9BDFA8E393}']
['{73279B00-4445-4DA2-9D31-2E3469AAB404}']
{ Property getters and setters }
function GetIDValue: Integer;
procedure SetIDValue(const aValue: Integer);
@ -554,7 +556,7 @@ type
{ IFacturasCliente_Detalles }
IFacturasCliente_Detalles = interface(IDAStronglyTypedDataTable)
['{EFE4BA4B-0666-4263-8CD1-0E9C808DF75E}']
['{2BA86FBB-A3F7-479C-BDC4-2A8A906CE4E8}']
{ Property getters and setters }
function GetIDValue: Integer;
procedure SetIDValue(const aValue: Integer);
@ -580,6 +582,10 @@ type
procedure SetCANTIDADValue(const aValue: Integer);
function GetCANTIDADIsNull: Boolean;
procedure SetCANTIDADIsNull(const aValue: Boolean);
function GetUNIDAD_MEDIDAValue: String;
procedure SetUNIDAD_MEDIDAValue(const aValue: String);
function GetUNIDAD_MEDIDAIsNull: Boolean;
procedure SetUNIDAD_MEDIDAIsNull(const aValue: Boolean);
function GetIMPORTE_UNIDADValue: Currency;
procedure SetIMPORTE_UNIDADValue(const aValue: Currency);
function GetIMPORTE_UNIDADIsNull: Boolean;
@ -627,6 +633,8 @@ type
property CONCEPTOIsNull: Boolean read GetCONCEPTOIsNull write SetCONCEPTOIsNull;
property CANTIDAD: Integer read GetCANTIDADValue write SetCANTIDADValue;
property CANTIDADIsNull: Boolean read GetCANTIDADIsNull write SetCANTIDADIsNull;
property UNIDAD_MEDIDA: String read GetUNIDAD_MEDIDAValue write SetUNIDAD_MEDIDAValue;
property UNIDAD_MEDIDAIsNull: Boolean read GetUNIDAD_MEDIDAIsNull write SetUNIDAD_MEDIDAIsNull;
property IMPORTE_UNIDAD: Currency read GetIMPORTE_UNIDADValue write SetIMPORTE_UNIDADValue;
property IMPORTE_UNIDADIsNull: Boolean read GetIMPORTE_UNIDADIsNull write SetIMPORTE_UNIDADIsNull;
property IMPORTE_TOTAL: Currency read GetIMPORTE_TOTALValue write SetIMPORTE_TOTALValue;
@ -674,6 +682,10 @@ type
procedure SetCANTIDADValue(const aValue: Integer); virtual;
function GetCANTIDADIsNull: Boolean; virtual;
procedure SetCANTIDADIsNull(const aValue: Boolean); virtual;
function GetUNIDAD_MEDIDAValue: String; virtual;
procedure SetUNIDAD_MEDIDAValue(const aValue: String); virtual;
function GetUNIDAD_MEDIDAIsNull: Boolean; virtual;
procedure SetUNIDAD_MEDIDAIsNull(const aValue: Boolean); virtual;
function GetIMPORTE_UNIDADValue: Currency; virtual;
procedure SetIMPORTE_UNIDADValue(const aValue: Currency); virtual;
function GetIMPORTE_UNIDADIsNull: Boolean; virtual;
@ -720,6 +732,8 @@ type
property CONCEPTOIsNull: Boolean read GetCONCEPTOIsNull write SetCONCEPTOIsNull;
property CANTIDAD: Integer read GetCANTIDADValue write SetCANTIDADValue;
property CANTIDADIsNull: Boolean read GetCANTIDADIsNull write SetCANTIDADIsNull;
property UNIDAD_MEDIDA: String read GetUNIDAD_MEDIDAValue write SetUNIDAD_MEDIDAValue;
property UNIDAD_MEDIDAIsNull: Boolean read GetUNIDAD_MEDIDAIsNull write SetUNIDAD_MEDIDAIsNull;
property IMPORTE_UNIDAD: Currency read GetIMPORTE_UNIDADValue write SetIMPORTE_UNIDADValue;
property IMPORTE_UNIDADIsNull: Boolean read GetIMPORTE_UNIDADIsNull write SetIMPORTE_UNIDADIsNull;
property IMPORTE_TOTAL: Currency read GetIMPORTE_TOTALValue write SetIMPORTE_TOTALValue;
@ -1617,6 +1631,27 @@ begin
DataTable.Fields[idx_FacturasCliente_DetallesCANTIDAD].AsVariant := Null;
end;
function TFacturasCliente_DetallesDataTableRules.GetUNIDAD_MEDIDAValue: String;
begin
result := DataTable.Fields[idx_FacturasCliente_DetallesUNIDAD_MEDIDA].AsString;
end;
procedure TFacturasCliente_DetallesDataTableRules.SetUNIDAD_MEDIDAValue(const aValue: String);
begin
DataTable.Fields[idx_FacturasCliente_DetallesUNIDAD_MEDIDA].AsString := aValue;
end;
function TFacturasCliente_DetallesDataTableRules.GetUNIDAD_MEDIDAIsNull: boolean;
begin
result := DataTable.Fields[idx_FacturasCliente_DetallesUNIDAD_MEDIDA].IsNull;
end;
procedure TFacturasCliente_DetallesDataTableRules.SetUNIDAD_MEDIDAIsNull(const aValue: Boolean);
begin
if aValue then
DataTable.Fields[idx_FacturasCliente_DetallesUNIDAD_MEDIDA].AsVariant := Null;
end;
function TFacturasCliente_DetallesDataTableRules.GetIMPORTE_UNIDADValue: Currency;
begin
result := DataTable.Fields[idx_FacturasCliente_DetallesIMPORTE_UNIDAD].AsCurrency;

51
Source/Modulos/Facturas de cliente/Model/schFacturasClienteServer_Intf.pas
View File

@ -9,13 +9,13 @@ 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_FacturasClienteDelta = '{5FE12677-931B-45C0-BA3E-7C74EBA25522}';
RID_FacturasCliente_DetallesDelta = '{AB782F02-4224-40C4-90E8-5501122FA123}';
RID_FacturasClienteDelta = '{95399966-522E-40D5-8AC4-9B411575BD5B}';
RID_FacturasCliente_DetallesDelta = '{AA165F8F-A3A0-4DCE-87FB-81DA2C9C6020}';
type
{ IFacturasClienteDelta }
IFacturasClienteDelta = interface(IFacturasCliente)
['{5FE12677-931B-45C0-BA3E-7C74EBA25522}']
['{95399966-522E-40D5-8AC4-9B411575BD5B}']
{ Property getters and setters }
function GetOldIDValue : Integer;
function GetOldID_EMPRESAValue : Integer;
@ -446,7 +446,7 @@ type
{ IFacturasCliente_DetallesDelta }
IFacturasCliente_DetallesDelta = interface(IFacturasCliente_Detalles)
['{AB782F02-4224-40C4-90E8-5501122FA123}']
['{AA165F8F-A3A0-4DCE-87FB-81DA2C9C6020}']
{ Property getters and setters }
function GetOldIDValue : Integer;
function GetOldID_FACTURAValue : Integer;
@ -454,6 +454,7 @@ type
function GetOldTIPO_DETALLEValue : String;
function GetOldCONCEPTOValue : String;
function GetOldCANTIDADValue : Integer;
function GetOldUNIDAD_MEDIDAValue : String;
function GetOldIMPORTE_UNIDADValue : Currency;
function GetOldIMPORTE_TOTALValue : Currency;
function GetOldVISIBLEValue : Integer;
@ -470,6 +471,7 @@ type
property OldTIPO_DETALLE : String read GetOldTIPO_DETALLEValue;
property OldCONCEPTO : String read GetOldCONCEPTOValue;
property OldCANTIDAD : Integer read GetOldCANTIDADValue;
property OldUNIDAD_MEDIDA : String read GetOldUNIDAD_MEDIDAValue;
property OldIMPORTE_UNIDAD : Currency read GetOldIMPORTE_UNIDADValue;
property OldIMPORTE_TOTAL : Currency read GetOldIMPORTE_TOTALValue;
property OldVISIBLE : Integer read GetOldVISIBLEValue;
@ -521,6 +523,12 @@ type
function GetOldCANTIDADIsNull: Boolean; virtual;
procedure SetCANTIDADValue(const aValue: Integer); virtual;
procedure SetCANTIDADIsNull(const aValue: Boolean); virtual;
function GetUNIDAD_MEDIDAValue: String; virtual;
function GetUNIDAD_MEDIDAIsNull: Boolean; virtual;
function GetOldUNIDAD_MEDIDAValue: String; virtual;
function GetOldUNIDAD_MEDIDAIsNull: Boolean; virtual;
procedure SetUNIDAD_MEDIDAValue(const aValue: String); virtual;
procedure SetUNIDAD_MEDIDAIsNull(const aValue: Boolean); virtual;
function GetIMPORTE_UNIDADValue: Currency; virtual;
function GetIMPORTE_UNIDADIsNull: Boolean; virtual;
function GetOldIMPORTE_UNIDADValue: Currency; virtual;
@ -595,6 +603,10 @@ type
property CANTIDADIsNull : Boolean read GetCANTIDADIsNull write SetCANTIDADIsNull;
property OldCANTIDAD : Integer read GetOldCANTIDADValue;
property OldCANTIDADIsNull : Boolean read GetOldCANTIDADIsNull;
property UNIDAD_MEDIDA : String read GetUNIDAD_MEDIDAValue write SetUNIDAD_MEDIDAValue;
property UNIDAD_MEDIDAIsNull : Boolean read GetUNIDAD_MEDIDAIsNull write SetUNIDAD_MEDIDAIsNull;
property OldUNIDAD_MEDIDA : String read GetOldUNIDAD_MEDIDAValue;
property OldUNIDAD_MEDIDAIsNull : Boolean read GetOldUNIDAD_MEDIDAIsNull;
property IMPORTE_UNIDAD : Currency read GetIMPORTE_UNIDADValue write SetIMPORTE_UNIDADValue;
property IMPORTE_UNIDADIsNull : Boolean read GetIMPORTE_UNIDADIsNull write SetIMPORTE_UNIDADIsNull;
property OldIMPORTE_UNIDAD : Currency read GetOldIMPORTE_UNIDADValue;
@ -1910,6 +1922,37 @@ begin
BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasCliente_DetallesCANTIDAD] := Null;
end;
function TFacturasCliente_DetallesBusinessProcessorRules.GetUNIDAD_MEDIDAValue: String;
begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasCliente_DetallesUNIDAD_MEDIDA];
end;
function TFacturasCliente_DetallesBusinessProcessorRules.GetUNIDAD_MEDIDAIsNull: Boolean;
begin
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasCliente_DetallesUNIDAD_MEDIDA]);
end;
function TFacturasCliente_DetallesBusinessProcessorRules.GetOldUNIDAD_MEDIDAValue: String;
begin
result := BusinessProcessor.CurrentChange.OldValueByName[fld_FacturasCliente_DetallesUNIDAD_MEDIDA];
end;
function TFacturasCliente_DetallesBusinessProcessorRules.GetOldUNIDAD_MEDIDAIsNull: Boolean;
begin
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_FacturasCliente_DetallesUNIDAD_MEDIDA]);
end;
procedure TFacturasCliente_DetallesBusinessProcessorRules.SetUNIDAD_MEDIDAValue(const aValue: String);
begin
BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasCliente_DetallesUNIDAD_MEDIDA] := aValue;
end;
procedure TFacturasCliente_DetallesBusinessProcessorRules.SetUNIDAD_MEDIDAIsNull(const aValue: Boolean);
begin
if aValue then
BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasCliente_DetallesUNIDAD_MEDIDA] := Null;
end;
function TFacturasCliente_DetallesBusinessProcessorRules.GetIMPORTE_UNIDADValue: Currency;
begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasCliente_DetallesIMPORTE_UNIDAD];

110
Source/Modulos/Facturas de cliente/Servidor/srvFacturasCliente_Impl.dfm
View File

@ -358,15 +358,15 @@ object srvFacturasCliente: TsrvFacturasCliente
'ES.ID_FACTURA,'#10' FACTURAS_CLIENTE_DETALLES.POSICION, FACTURAS_' +
'CLIENTE_DETALLES.TIPO_DETALLE,'#10' FACTURAS_CLIENTE_DETALLES.CON' +
'CEPTO, FACTURAS_CLIENTE_DETALLES.CANTIDAD,'#10' FACTURAS_CLIENTE_' +
'DETALLES.IMPORTE_UNIDAD, FACTURAS_CLIENTE_DETALLES.IMPORTE_TOTAL' +
','#10' FACTURAS_CLIENTE_DETALLES.VISIBLE,'#10#10' FACTURAS_CLIENTE_D' +
'ETALLES.ID_ARTICULO, FACTURAS_CLIENTE_DETALLES.DESCUENTO,'#10' FA' +
'CTURAS_CLIENTE_DETALLES.IMPORTE_PORTE, ARTICULOS.REFERENCIA,'#10' ' +
' '#10' '#39#39' as REFERENCIA_PROVEEDOR /*Es necesario porque los detal' +
'les es comun para la rama del cliente como del proveedor*/'#10#10'FROM' +
' FACTURAS_CLIENTE_DETALLES'#10'LEFT JOIN ARTICULOS ON FACTURAS_CLIEN' +
'TE_DETALLES.ID_ARTICULO = ARTICULOS.ID'#10'where {where}'#10'ORDER BY PO' +
'SICION;'#10
'DETALLES.UNIDAD_MEDIDA, FACTURAS_CLIENTE_DETALLES.IMPORTE_UNIDAD' +
','#10' FACTURAS_CLIENTE_DETALLES.IMPORTE_TOTAL, FACTURAS_CLIENTE_' +
'DETALLES.VISIBLE,'#10#10' FACTURAS_CLIENTE_DETALLES.ID_ARTICULO, FA' +
'CTURAS_CLIENTE_DETALLES.DESCUENTO,'#10' FACTURAS_CLIENTE_DETALLES' +
'.IMPORTE_PORTE, ARTICULOS.REFERENCIA,'#10' '#10' '#39#39' as REFERENCIA_' +
'PROVEEDOR /*Es necesario porque los detalles es comun para la ra' +
'ma del cliente como del proveedor*/'#10#10'FROM FACTURAS_CLIENTE_DETAL' +
'LES'#10'LEFT JOIN ARTICULOS ON FACTURAS_CLIENTE_DETALLES.ID_ARTICULO' +
' = ARTICULOS.ID'#10'where {where}'#10'ORDER BY POSICION;'#10
StatementType = stSQL
ColumnMappings = <
item
@ -426,6 +426,10 @@ object srvFacturasCliente: TsrvFacturasCliente
DatasetField = 'REFERENCIA_PROVEEDOR'
TableField = '<unknown>'
SQLOrigin = 'REFERENCIA_PROVEEDOR'
end
item
DatasetField = 'UNIDAD_MEDIDA'
TableField = 'UNIDAD_MEDIDA'
end>
end>
Name = 'FacturasCliente_Detalles'
@ -465,6 +469,11 @@ object srvFacturasCliente: TsrvFacturasCliente
DataType = datInteger
DictionaryEntry = 'FacturasCliente_Detalles_CANTIDAD'
end
item
Name = 'UNIDAD_MEDIDA'
DataType = datString
Size = 255
end
item
Name = 'IMPORTE_UNIDAD'
DataType = datCurrency
@ -556,71 +565,51 @@ object srvFacturasCliente: TsrvFacturasCliente
end
item
Name = 'CANTIDAD'
DataType = datInteger
Value = ''
ParamType = daptInput
end
item
Name = 'UNIDAD_MEDIDA'
Value = ''
end
item
Name = 'POSICION'
DataType = datInteger
Value = ''
ParamType = daptInput
end
item
Name = 'ID_FACTURA'
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_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
@ -628,12 +617,13 @@ object srvFacturasCliente: TsrvFacturasCliente
Default = True
TargetTable = 'FACTURAS_CLIENTE_DETALLES'
SQL =
'INSERT'#10' INTO FACTURAS_CLIENTE_DETALLES'#10' (ID, CANTIDAD, POSIC' +
'ION, ID_FACTURA, TIPO_DETALLE, CONCEPTO,'#10' IMPORTE_UNIDAD, IM' +
'PORTE_TOTAL, VISIBLE,'#10' ID_ARTICULO, DESCUENTO, IMPORTE_PORTE' +
')'#10' VALUES'#10' (:ID, :CANTIDAD, :POSICION, :ID_FACTURA, :TIPO_DE' +
'TALLE, :CONCEPTO,'#10' :IMPORTE_UNIDAD, :IMPORTE_TOTAL, :VISIBLE' +
','#10' :ID_ARTICULO, :DESCUENTO, :IMPORTE_PORTE)'
'INSERT'#10' INTO FACTURAS_CLIENTE_DETALLES'#10' (ID, CANTIDAD, UNIDA' +
'D_MEDIDA, POSICION, ID_FACTURA, TIPO_DETALLE, CONCEPTO,'#10' IMP' +
'ORTE_UNIDAD, IMPORTE_TOTAL, VISIBLE,'#10' ID_ARTICULO, DESCUENTO' +
', IMPORTE_PORTE)'#10' VALUES'#10' (:ID, :CANTIDAD, :UNIDAD_MEDIDA, :' +
'POSICION, :ID_FACTURA, :TIPO_DETALLE, :CONCEPTO,'#10' :IMPORTE_U' +
'NIDAD, :IMPORTE_TOTAL, :VISIBLE,'#10' :ID_ARTICULO, :DESCUENTO, ' +
':IMPORTE_PORTE)'#10
StatementType = stSQL
ColumnMappings = <>
end>
@ -663,77 +653,55 @@ object srvFacturasCliente: TsrvFacturasCliente
Params = <
item
Name = 'CANTIDAD'
DataType = datInteger
Value = ''
ParamType = daptInput
end
item
Name = 'UNIDAD_MEDIDA'
Value = ''
end
item
Name = 'POSICION'
DataType = datInteger
Value = ''
ParamType = daptInput
end
item
Name = 'ID_FACTURA'
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_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
@ -741,12 +709,12 @@ object srvFacturasCliente: TsrvFacturasCliente
TargetTable = 'FACTURAS_CLIENTE_DETALLES'
SQL =
'UPDATE FACTURAS_CLIENTE_DETALLES'#10' SET '#10' CANTIDAD = :CANTIDAD' +
', '#10' POSICION = :POSICION, '#10' ID_FACTURA = :ID_FACTURA, '#10' ' +
' TIPO_DETALLE = :TIPO_DETALLE, '#10' CONCEPTO = :CONCEPTO, '#10' I' +
'MPORTE_UNIDAD = :IMPORTE_UNIDAD, '#10' IMPORTE_TOTAL = :IMPORTE_T' +
'OTAL,'#10' VISIBLE = :VISIBLE,'#10' ID_ARTICULO = :ID_ARTICULO,'#10' ' +
' DESCUENTO = :DESCUENTO,'#10' IMPORTE_PORTE = :IMPORTE_PORTE'#10' W' +
'HERE'#10' (ID = :OLD_ID)'
', '#10' UNIDAD_MEDIDA = :UNIDAD_MEDIDA,'#10' POSICION = :POSICION,' +
' '#10' ID_FACTURA = :ID_FACTURA, '#10' TIPO_DETALLE = :TIPO_DETALL' +
'E, '#10' CONCEPTO = :CONCEPTO, '#10' IMPORTE_UNIDAD = :IMPORTE_UNI' +
'DAD, '#10' IMPORTE_TOTAL = :IMPORTE_TOTAL,'#10' VISIBLE = :VISIBLE' +
','#10' ID_ARTICULO = :ID_ARTICULO,'#10' DESCUENTO = :DESCUENTO,'#10' ' +
' IMPORTE_PORTE = :IMPORTE_PORTE'#10' WHERE'#10' (ID = :OLD_ID)'#10
StatementType = stSQL
ColumnMappings = <>
end>

5
Source/Modulos/Facturas de proveedor/Data/uDataModuleFacturasProveedor.dfm
View File

@ -287,6 +287,11 @@ inherited DataModuleFacturasProveedor: TDataModuleFacturasProveedor
DisplayLabel = 'Cantidad'
DictionaryEntry = 'FacturasProveedor_Detalles_CANTIDAD'
end
item
Name = 'UNIDAD_MEDIDA'
DataType = datString
Size = 255
end
item
Name = 'IMPORTE_UNIDAD'
DataType = datCurrency

65
Source/Modulos/Facturas de proveedor/Model/schFacturasProveedorClient_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_FacturasProveedor = '{BE8C0C93-24E0-4676-9B2E-55D49ED616CE}';
RID_FacturasProveedor_Detalles = '{49E3130F-6728-4F2D-9060-4521AE8B08D9}';
RID_FacturasProveedor_Pedidos = '{8E4DF052-40F0-4756-896A-F90E6E5A054A}';
RID_FacturasProveedor = '{264BEC8F-1838-4623-B8BC-D199CF26E76C}';
RID_FacturasProveedor_Detalles = '{41B4D692-A949-48D0-9C99-7B6C0A5CB0E2}';
RID_FacturasProveedor_Pedidos = '{FAC8A6A2-FD2F-4FD0-8F10-12F2FCC3A286}';
{ Data table names }
nme_FacturasProveedor = 'FacturasProveedor';
@ -91,6 +91,7 @@ const
fld_FacturasProveedor_DetallesTIPO_DETALLE = 'TIPO_DETALLE';
fld_FacturasProveedor_DetallesCONCEPTO = 'CONCEPTO';
fld_FacturasProveedor_DetallesCANTIDAD = 'CANTIDAD';
fld_FacturasProveedor_DetallesUNIDAD_MEDIDA = 'UNIDAD_MEDIDA';
fld_FacturasProveedor_DetallesIMPORTE_UNIDAD = 'IMPORTE_UNIDAD';
fld_FacturasProveedor_DetallesIMPORTE_TOTAL = 'IMPORTE_TOTAL';
fld_FacturasProveedor_DetallesVISIBLE = 'VISIBLE';
@ -108,15 +109,16 @@ const
idx_FacturasProveedor_DetallesTIPO_DETALLE = 3;
idx_FacturasProveedor_DetallesCONCEPTO = 4;
idx_FacturasProveedor_DetallesCANTIDAD = 5;
idx_FacturasProveedor_DetallesIMPORTE_UNIDAD = 6;
idx_FacturasProveedor_DetallesIMPORTE_TOTAL = 7;
idx_FacturasProveedor_DetallesVISIBLE = 8;
idx_FacturasProveedor_DetallesID_ARTICULO = 9;
idx_FacturasProveedor_DetallesDESCUENTO = 10;
idx_FacturasProveedor_DetallesIMPORTE_PORTE = 11;
idx_FacturasProveedor_DetallesREFERENCIA = 12;
idx_FacturasProveedor_DetallesREFERENCIA_PROVEEDOR = 13;
idx_FacturasProveedor_DetallesREFERENCIA_FABRICANTE = 14;
idx_FacturasProveedor_DetallesUNIDAD_MEDIDA = 6;
idx_FacturasProveedor_DetallesIMPORTE_UNIDAD = 7;
idx_FacturasProveedor_DetallesIMPORTE_TOTAL = 8;
idx_FacturasProveedor_DetallesVISIBLE = 9;
idx_FacturasProveedor_DetallesID_ARTICULO = 10;
idx_FacturasProveedor_DetallesDESCUENTO = 11;
idx_FacturasProveedor_DetallesIMPORTE_PORTE = 12;
idx_FacturasProveedor_DetallesREFERENCIA = 13;
idx_FacturasProveedor_DetallesREFERENCIA_PROVEEDOR = 14;
idx_FacturasProveedor_DetallesREFERENCIA_FABRICANTE = 15;
{ FacturasProveedor_Pedidos fields }
fld_FacturasProveedor_PedidosID = 'ID';
@ -139,7 +141,7 @@ const
type
{ IFacturasProveedor }
IFacturasProveedor = interface(IDAStronglyTypedDataTable)
['{0A8CF376-7853-4F50-9ED5-3F4513480499}']
['{02FE95A7-9632-4D21-9DEC-954BE797C359}']
{ Property getters and setters }
function GetIDValue: Integer;
procedure SetIDValue(const aValue: Integer);
@ -534,7 +536,7 @@ type
{ IFacturasProveedor_Detalles }
IFacturasProveedor_Detalles = interface(IDAStronglyTypedDataTable)
['{980CACEA-3D1C-44CD-B272-610BF86F3CE9}']
['{9A1532CD-0223-4661-B366-D7FE8D7F7F75}']
{ Property getters and setters }
function GetIDValue: Integer;
procedure SetIDValue(const aValue: Integer);
@ -560,6 +562,10 @@ type
procedure SetCANTIDADValue(const aValue: Integer);
function GetCANTIDADIsNull: Boolean;
procedure SetCANTIDADIsNull(const aValue: Boolean);
function GetUNIDAD_MEDIDAValue: String;
procedure SetUNIDAD_MEDIDAValue(const aValue: String);
function GetUNIDAD_MEDIDAIsNull: Boolean;
procedure SetUNIDAD_MEDIDAIsNull(const aValue: Boolean);
function GetIMPORTE_UNIDADValue: Currency;
procedure SetIMPORTE_UNIDADValue(const aValue: Currency);
function GetIMPORTE_UNIDADIsNull: Boolean;
@ -611,6 +617,8 @@ type
property CONCEPTOIsNull: Boolean read GetCONCEPTOIsNull write SetCONCEPTOIsNull;
property CANTIDAD: Integer read GetCANTIDADValue write SetCANTIDADValue;
property CANTIDADIsNull: Boolean read GetCANTIDADIsNull write SetCANTIDADIsNull;
property UNIDAD_MEDIDA: String read GetUNIDAD_MEDIDAValue write SetUNIDAD_MEDIDAValue;
property UNIDAD_MEDIDAIsNull: Boolean read GetUNIDAD_MEDIDAIsNull write SetUNIDAD_MEDIDAIsNull;
property IMPORTE_UNIDAD: Currency read GetIMPORTE_UNIDADValue write SetIMPORTE_UNIDADValue;
property IMPORTE_UNIDADIsNull: Boolean read GetIMPORTE_UNIDADIsNull write SetIMPORTE_UNIDADIsNull;
property IMPORTE_TOTAL: Currency read GetIMPORTE_TOTALValue write SetIMPORTE_TOTALValue;
@ -660,6 +668,10 @@ type
procedure SetCANTIDADValue(const aValue: Integer); virtual;
function GetCANTIDADIsNull: Boolean; virtual;
procedure SetCANTIDADIsNull(const aValue: Boolean); virtual;
function GetUNIDAD_MEDIDAValue: String; virtual;
procedure SetUNIDAD_MEDIDAValue(const aValue: String); virtual;
function GetUNIDAD_MEDIDAIsNull: Boolean; virtual;
procedure SetUNIDAD_MEDIDAIsNull(const aValue: Boolean); virtual;
function GetIMPORTE_UNIDADValue: Currency; virtual;
procedure SetIMPORTE_UNIDADValue(const aValue: Currency); virtual;
function GetIMPORTE_UNIDADIsNull: Boolean; virtual;
@ -710,6 +722,8 @@ type
property CONCEPTOIsNull: Boolean read GetCONCEPTOIsNull write SetCONCEPTOIsNull;
property CANTIDAD: Integer read GetCANTIDADValue write SetCANTIDADValue;
property CANTIDADIsNull: Boolean read GetCANTIDADIsNull write SetCANTIDADIsNull;
property UNIDAD_MEDIDA: String read GetUNIDAD_MEDIDAValue write SetUNIDAD_MEDIDAValue;
property UNIDAD_MEDIDAIsNull: Boolean read GetUNIDAD_MEDIDAIsNull write SetUNIDAD_MEDIDAIsNull;
property IMPORTE_UNIDAD: Currency read GetIMPORTE_UNIDADValue write SetIMPORTE_UNIDADValue;
property IMPORTE_UNIDADIsNull: Boolean read GetIMPORTE_UNIDADIsNull write SetIMPORTE_UNIDADIsNull;
property IMPORTE_TOTAL: Currency read GetIMPORTE_TOTALValue write SetIMPORTE_TOTALValue;
@ -737,7 +751,7 @@ type
{ IFacturasProveedor_Pedidos }
IFacturasProveedor_Pedidos = interface(IDAStronglyTypedDataTable)
['{D295F776-AA85-42C6-B773-FA6E4CEDE53D}']
['{21D42C09-7B00-4DB2-B421-0973FB01096E}']
{ Property getters and setters }
function GetIDValue: Integer;
procedure SetIDValue(const aValue: Integer);
@ -1653,6 +1667,27 @@ begin
DataTable.Fields[idx_FacturasProveedor_DetallesCANTIDAD].AsVariant := Null;
end;
function TFacturasProveedor_DetallesDataTableRules.GetUNIDAD_MEDIDAValue: String;
begin
result := DataTable.Fields[idx_FacturasProveedor_DetallesUNIDAD_MEDIDA].AsString;
end;
procedure TFacturasProveedor_DetallesDataTableRules.SetUNIDAD_MEDIDAValue(const aValue: String);
begin
DataTable.Fields[idx_FacturasProveedor_DetallesUNIDAD_MEDIDA].AsString := aValue;
end;
function TFacturasProveedor_DetallesDataTableRules.GetUNIDAD_MEDIDAIsNull: boolean;
begin
result := DataTable.Fields[idx_FacturasProveedor_DetallesUNIDAD_MEDIDA].IsNull;
end;
procedure TFacturasProveedor_DetallesDataTableRules.SetUNIDAD_MEDIDAIsNull(const aValue: Boolean);
begin
if aValue then
DataTable.Fields[idx_FacturasProveedor_DetallesUNIDAD_MEDIDA].AsVariant := Null;
end;
function TFacturasProveedor_DetallesDataTableRules.GetIMPORTE_UNIDADValue: Currency;
begin
result := DataTable.Fields[idx_FacturasProveedor_DetallesIMPORTE_UNIDAD].AsCurrency;

55
Source/Modulos/Facturas de proveedor/Model/schFacturasProveedorServer_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_FacturasProveedorDelta = '{C752FE92-FDB7-47D1-8B23-543B90839542}';
RID_FacturasProveedor_DetallesDelta = '{04A500AC-1499-4078-9D99-1FFDD24D8126}';
RID_FacturasProveedor_PedidosDelta = '{E3F38771-DBED-4161-B017-DB4C017D75D6}';
RID_FacturasProveedorDelta = '{53B5E3FB-54DF-4133-9EFD-579D14E99112}';
RID_FacturasProveedor_DetallesDelta = '{3500D47C-7EFB-4260-ACEA-DF426DE7461E}';
RID_FacturasProveedor_PedidosDelta = '{FBE61C21-7C61-4C6A-9B58-138EDD69A9E5}';
type
{ IFacturasProveedorDelta }
IFacturasProveedorDelta = interface(IFacturasProveedor)
['{C752FE92-FDB7-47D1-8B23-543B90839542}']
['{53B5E3FB-54DF-4133-9EFD-579D14E99112}']
{ Property getters and setters }
function GetOldIDValue : Integer;
function GetOldID_EMPRESAValue : Integer;
@ -411,7 +411,7 @@ type
{ IFacturasProveedor_DetallesDelta }
IFacturasProveedor_DetallesDelta = interface(IFacturasProveedor_Detalles)
['{04A500AC-1499-4078-9D99-1FFDD24D8126}']
['{3500D47C-7EFB-4260-ACEA-DF426DE7461E}']
{ Property getters and setters }
function GetOldIDValue : Integer;
function GetOldID_FACTURAValue : Integer;
@ -419,6 +419,7 @@ type
function GetOldTIPO_DETALLEValue : String;
function GetOldCONCEPTOValue : String;
function GetOldCANTIDADValue : Integer;
function GetOldUNIDAD_MEDIDAValue : String;
function GetOldIMPORTE_UNIDADValue : Currency;
function GetOldIMPORTE_TOTALValue : Currency;
function GetOldVISIBLEValue : SmallInt;
@ -436,6 +437,7 @@ type
property OldTIPO_DETALLE : String read GetOldTIPO_DETALLEValue;
property OldCONCEPTO : String read GetOldCONCEPTOValue;
property OldCANTIDAD : Integer read GetOldCANTIDADValue;
property OldUNIDAD_MEDIDA : String read GetOldUNIDAD_MEDIDAValue;
property OldIMPORTE_UNIDAD : Currency read GetOldIMPORTE_UNIDADValue;
property OldIMPORTE_TOTAL : Currency read GetOldIMPORTE_TOTALValue;
property OldVISIBLE : SmallInt read GetOldVISIBLEValue;
@ -488,6 +490,12 @@ type
function GetOldCANTIDADIsNull: Boolean; virtual;
procedure SetCANTIDADValue(const aValue: Integer); virtual;
procedure SetCANTIDADIsNull(const aValue: Boolean); virtual;
function GetUNIDAD_MEDIDAValue: String; virtual;
function GetUNIDAD_MEDIDAIsNull: Boolean; virtual;
function GetOldUNIDAD_MEDIDAValue: String; virtual;
function GetOldUNIDAD_MEDIDAIsNull: Boolean; virtual;
procedure SetUNIDAD_MEDIDAValue(const aValue: String); virtual;
procedure SetUNIDAD_MEDIDAIsNull(const aValue: Boolean); virtual;
function GetIMPORTE_UNIDADValue: Currency; virtual;
function GetIMPORTE_UNIDADIsNull: Boolean; virtual;
function GetOldIMPORTE_UNIDADValue: Currency; virtual;
@ -568,6 +576,10 @@ type
property CANTIDADIsNull : Boolean read GetCANTIDADIsNull write SetCANTIDADIsNull;
property OldCANTIDAD : Integer read GetOldCANTIDADValue;
property OldCANTIDADIsNull : Boolean read GetOldCANTIDADIsNull;
property UNIDAD_MEDIDA : String read GetUNIDAD_MEDIDAValue write SetUNIDAD_MEDIDAValue;
property UNIDAD_MEDIDAIsNull : Boolean read GetUNIDAD_MEDIDAIsNull write SetUNIDAD_MEDIDAIsNull;
property OldUNIDAD_MEDIDA : String read GetOldUNIDAD_MEDIDAValue;
property OldUNIDAD_MEDIDAIsNull : Boolean read GetOldUNIDAD_MEDIDAIsNull;
property IMPORTE_UNIDAD : Currency read GetIMPORTE_UNIDADValue write SetIMPORTE_UNIDADValue;
property IMPORTE_UNIDADIsNull : Boolean read GetIMPORTE_UNIDADIsNull write SetIMPORTE_UNIDADIsNull;
property OldIMPORTE_UNIDAD : Currency read GetOldIMPORTE_UNIDADValue;
@ -613,7 +625,7 @@ type
{ IFacturasProveedor_PedidosDelta }
IFacturasProveedor_PedidosDelta = interface(IFacturasProveedor_Pedidos)
['{E3F38771-DBED-4161-B017-DB4C017D75D6}']
['{FBE61C21-7C61-4C6A-9B58-138EDD69A9E5}']
{ Property getters and setters }
function GetOldIDValue : Integer;
function GetOldID_FACTURAValue : Integer;
@ -1900,6 +1912,37 @@ begin
BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasProveedor_DetallesCANTIDAD] := Null;
end;
function TFacturasProveedor_DetallesBusinessProcessorRules.GetUNIDAD_MEDIDAValue: String;
begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasProveedor_DetallesUNIDAD_MEDIDA];
end;
function TFacturasProveedor_DetallesBusinessProcessorRules.GetUNIDAD_MEDIDAIsNull: Boolean;
begin
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasProveedor_DetallesUNIDAD_MEDIDA]);
end;
function TFacturasProveedor_DetallesBusinessProcessorRules.GetOldUNIDAD_MEDIDAValue: String;
begin
result := BusinessProcessor.CurrentChange.OldValueByName[fld_FacturasProveedor_DetallesUNIDAD_MEDIDA];
end;
function TFacturasProveedor_DetallesBusinessProcessorRules.GetOldUNIDAD_MEDIDAIsNull: Boolean;
begin
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_FacturasProveedor_DetallesUNIDAD_MEDIDA]);
end;
procedure TFacturasProveedor_DetallesBusinessProcessorRules.SetUNIDAD_MEDIDAValue(const aValue: String);
begin
BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasProveedor_DetallesUNIDAD_MEDIDA] := aValue;
end;
procedure TFacturasProveedor_DetallesBusinessProcessorRules.SetUNIDAD_MEDIDAIsNull(const aValue: Boolean);
begin
if aValue then
BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasProveedor_DetallesUNIDAD_MEDIDA] := Null;
end;
function TFacturasProveedor_DetallesBusinessProcessorRules.GetIMPORTE_UNIDADValue: Currency;
begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasProveedor_DetallesIMPORTE_UNIDAD];

66
Source/Modulos/Facturas de proveedor/Servidor/srvFacturasProveedor_Impl.dfm
View File

@ -331,19 +331,20 @@ object srvFacturasProveedor: TsrvFacturasProveedor
'TALLES.ID_FACTURA,'#10' FACTURAS_PROVEEDOR_DETALLES.POSICION, FAC' +
'TURAS_PROVEEDOR_DETALLES.TIPO_DETALLE,'#10' FACTURAS_PROVEEDOR_DE' +
'TALLES.CONCEPTO, FACTURAS_PROVEEDOR_DETALLES.CANTIDAD,'#10' FACTU' +
'RAS_PROVEEDOR_DETALLES.IMPORTE_UNIDAD, FACTURAS_PROVEEDOR_DETALL' +
'ES.IMPORTE_TOTAL,'#10' FACTURAS_PROVEEDOR_DETALLES.VISIBLE,'#10#10' ' +
'FACTURAS_PROVEEDOR_DETALLES.ID_ARTICULO, FACTURAS_PROVEEDOR_DETA' +
'LLES.DESCUENTO,'#10' FACTURAS_PROVEEDOR_DETALLES.IMPORTE_PORTE,'#10' ' +
' ARTICULOS.REFERENCIA, ARTICULOS_PROVEEDORES.REFERENCIA_PROV a' +
's REFERENCIA_PROVEEDOR,'#10' ARTICULOS.REFERENCIA_FABR as REFEREN' +
'CIA_FABRICANTE'#10' '#10'FROM FACTURAS_PROVEEDOR_DETALLES'#10'LEFT JOIN A' +
'RTICULOS ON FACTURAS_PROVEEDOR_DETALLES.ID_ARTICULO = ARTICULOS.' +
'ID'#10'LEFT JOIN FACTURAS_PROVEEDOR ON (FACTURAS_PROVEEDOR.ID = FACT' +
'URAS_PROVEEDOR_DETALLES.ID_FACTURA)'#10'LEFT JOIN ARTICULOS_PROVEEDO' +
'RES ON ((ARTICULOS_PROVEEDORES.ID_ARTICULO = ARTICULOS.ID) AND (' +
'ARTICULOS_PROVEEDORES.ID_PROVEEDOR = FACTURAS_PROVEEDOR.ID_PROVE' +
'EDOR))'#10#10'WHERE {where}'#10'ORDER BY POSICION;'#10#10#10
'RAS_PROVEEDOR_DETALLES.UNIDAD_MEDIDA, FACTURAS_PROVEEDOR_DETALLE' +
'S.IMPORTE_UNIDAD,'#10' FACTURAS_PROVEEDOR_DETALLES.IMPORTE_TOTAL,' +
' FACTURAS_PROVEEDOR_DETALLES.VISIBLE,'#10#10' FACTURAS_PROVEEDOR_DE' +
'TALLES.ID_ARTICULO, FACTURAS_PROVEEDOR_DETALLES.DESCUENTO,'#10' F' +
'ACTURAS_PROVEEDOR_DETALLES.IMPORTE_PORTE,'#10' ARTICULOS.REFERENC' +
'IA, ARTICULOS_PROVEEDORES.REFERENCIA_PROV as REFERENCIA_PROVEEDO' +
'R,'#10' ARTICULOS.REFERENCIA_FABR as REFERENCIA_FABRICANTE'#10#10'FROM ' +
'FACTURAS_PROVEEDOR_DETALLES'#10'LEFT JOIN ARTICULOS ON FACTURAS_PROV' +
'EEDOR_DETALLES.ID_ARTICULO = ARTICULOS.ID'#10'LEFT JOIN FACTURAS_PRO' +
'VEEDOR ON (FACTURAS_PROVEEDOR.ID = FACTURAS_PROVEEDOR_DETALLES.I' +
'D_FACTURA)'#10'LEFT JOIN ARTICULOS_PROVEEDORES ON ((ARTICULOS_PROVEE' +
'DORES.ID_ARTICULO = ARTICULOS.ID) AND (ARTICULOS_PROVEEDORES.ID_' +
'PROVEEDOR = FACTURAS_PROVEEDOR.ID_PROVEEDOR))'#10#10'WHERE {where}'#10'ORD' +
'ER BY POSICION;'#10#10#10
StatementType = stSQL
ColumnMappings = <
item
@ -408,6 +409,11 @@ object srvFacturasProveedor: TsrvFacturasProveedor
DatasetField = 'REFERENCIA_FABRICANTE'
TableField = '<unknown>'
SQLOrigin = 'REFERENCIA_FABRICANTE'
end
item
DatasetField = 'UNIDAD_MEDIDA'
TableField = '<unknown>'
SQLOrigin = 'UNIDAD_MEDIDA'
end>
end>
Name = 'FacturasProveedor_Detalles'
@ -447,6 +453,11 @@ object srvFacturasProveedor: TsrvFacturasProveedor
DataType = datInteger
DictionaryEntry = 'FacturasProveedor_Detalles_CANTIDAD'
end
item
Name = 'UNIDAD_MEDIDA'
DataType = datString
Size = 255
end
item
Name = 'IMPORTE_UNIDAD'
DataType = datCurrency
@ -949,6 +960,10 @@ object srvFacturasProveedor: TsrvFacturasProveedor
Name = 'CANTIDAD'
Value = ''
end
item
Name = 'UNIDAD_MEDIDA'
Value = ''
end
item
Name = 'IMPORTE_UNIDAD'
Value = ''
@ -980,12 +995,12 @@ object srvFacturasProveedor: TsrvFacturasProveedor
TargetTable = 'FACTURAS_PROVEEDOR_DETALLES'
SQL =
'INSERT'#10' INTO FACTURAS_PROVEEDOR_DETALLES'#10' (ID, ID_FACTURA, P' +
'OSICION, TIPO_DETALLE, CONCEPTO, CANTIDAD,'#10' IMPORTE_UNIDAD, ' +
'IMPORTE_TOTAL, VISIBLE, ID_ARTICULO, '#10' DESCUENTO, IMPORTE_PO' +
'RTE)'#10' VALUES'#10' (:ID, :ID_FACTURA, :POSICION, :TIPO_DETALLE, :' +
'CONCEPTO, :CANTIDAD,'#10' :IMPORTE_UNIDAD, :IMPORTE_TOTAL, :VISI' +
'BLE, :ID_ARTICULO, '#10' :DESCUENTO, :IMPORTE_PORTE)'#10' '#10' ' +
#10#10
'OSICION, TIPO_DETALLE, CONCEPTO, CANTIDAD, UNIDAD_MEDIDA,'#10' I' +
'MPORTE_UNIDAD, IMPORTE_TOTAL, VISIBLE, ID_ARTICULO, '#10' DESCUE' +
'NTO, IMPORTE_PORTE)'#10' VALUES'#10' (:ID, :ID_FACTURA, :POSICION, :' +
'TIPO_DETALLE, :CONCEPTO, :CANTIDAD, :UNIDAD_MEDIDA,'#10' :IMPORT' +
'E_UNIDAD, :IMPORTE_TOTAL, :VISIBLE, :ID_ARTICULO, '#10' :DESCUEN' +
'TO, :IMPORTE_PORTE)'#10' '#10' '#10#10
StatementType = stSQL
ColumnMappings = <>
end>
@ -1036,6 +1051,10 @@ object srvFacturasProveedor: TsrvFacturasProveedor
Name = 'CANTIDAD'
Value = ''
end
item
Name = 'UNIDAD_MEDIDA'
Value = ''
end
item
Name = 'IMPORTE_UNIDAD'
Value = ''
@ -1073,10 +1092,11 @@ object srvFacturasProveedor: TsrvFacturasProveedor
'UPDATE FACTURAS_PROVEEDOR_DETALLES'#10' SET '#10' ID = :ID,'#10' ID_F' +
'ACTURA = :ID_FACTURA, '#10' POSICION = :POSICION, '#10' TIPO_DETAL' +
'LE = :TIPO_DETALLE, '#10' CONCEPTO = :CONCEPTO, '#10' CANTIDAD = :' +
'CANTIDAD, '#10' IMPORTE_UNIDAD = :IMPORTE_UNIDAD, '#10' IMPORTE_TO' +
'TAL = :IMPORTE_TOTAL, '#10' VISIBLE = :VISIBLE, '#10' ID_ARTICULO ' +
'= :ID_ARTICULO, '#10' DESCUENTO = :DESCUENTO, '#10' IMPORTE_PORTE ' +
'= :IMPORTE_PORTE'#10' WHERE'#10' (ID = :OLD_ID)'#10
'CANTIDAD, '#10' UNIDAD_MEDIDA = :UNIDAD_MEDIDA,'#10' IMPORTE_UNIDA' +
'D = :IMPORTE_UNIDAD, '#10' IMPORTE_TOTAL = :IMPORTE_TOTAL, '#10' V' +
'ISIBLE = :VISIBLE, '#10' ID_ARTICULO = :ID_ARTICULO, '#10' DESCUEN' +
'TO = :DESCUENTO, '#10' IMPORTE_PORTE = :IMPORTE_PORTE'#10' WHERE'#10' ' +
' (ID = :OLD_ID)'#10
StatementType = stSQL
ColumnMappings = <>
end>

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

@ -13,4 +13,4 @@ BEGIN
END
/* C:\Codigo Tecsitel\Source\Modulos\Gestion de documentos\Controller\GestorDocumentos_Controller.res */
/* C:\DOCUME~1\Usuario\CONFIG~1\Temp\dtf498.tmp */
/* C:\DOCUME~1\Usuario\CONFIG~1\Temp\dtf199.tmp */

2
Source/Modulos/Gestion de documentos/Data/GestorDocumentos_data.drc
View File

@ -14,4 +14,4 @@ END
/* C:\Codigo Tecsitel\Source\Modulos\Gestion de documentos\Data\uDataModuleGestorDocumentos.dfm */
/* C:\Codigo Tecsitel\Source\Modulos\Gestion de documentos\Data\GestorDocumentos_data.res */
/* C:\DOCUME~1\Usuario\CONFIG~1\Temp\dtf496.tmp */
/* C:\DOCUME~1\Usuario\CONFIG~1\Temp\dtf197.tmp */

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

@ -183,6 +183,11 @@ inherited DataModuleInventario: TDataModuleInventario
Size = 255
DictionaryEntry = 'INVENTARIO_DESCRIPCION'
end
item
Name = 'UNIDAD_MEDIDA'
DataType = datString
Size = 255
end
item
Name = 'STOCK'
DataType = datLargeInt

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

@ -10,9 +10,13 @@
<Projects Include="..\..\GUIBase\GUIBase.dproj" />
<Projects Include="..\..\Servidor\FactuGES_Server.dproj" />
<Projects Include="..\Albaranes de proveedor\Controller\AlbaranesProveedor_controller.dproj" />
<Projects Include="..\Albaranes de proveedor\Data\AlbaranesProveedor_data.dproj" />
<Projects Include="..\Articulos\Controller\Articulos_controller.dproj" />
<Projects Include="..\Articulos\Views\Articulos_view.dproj" />
<Projects Include="..\Contactos\Views\Contactos_view.dproj" />
<Projects Include="..\Obras\Controller\Obras_controller.dproj" />
<Projects Include="..\Pedidos a proveedor\Controller\PedidosProveedor_controller.dproj" />
<Projects Include="..\Pedidos a proveedor\Views\PedidosProveedor_view.dproj" />
<Projects Include="..\Relaciones\Pedidos de proveedor - Albaranes de proveedor\PedProv_AlbProv_relation.dproj" />
<Projects Include="Controller\Inventario_controller.dproj" />
<Projects Include="Data\Inventario_data.dproj" />
@ -161,14 +165,50 @@
<Target Name="AlbaranesProveedor_controller:Make">
<MSBuild Projects="..\Albaranes de proveedor\Controller\AlbaranesProveedor_controller.dproj" Targets="Make" />
</Target>
<Target Name="PedidosProveedor_controller">
<MSBuild Projects="..\Pedidos a proveedor\Controller\PedidosProveedor_controller.dproj" Targets="" />
</Target>
<Target Name="PedidosProveedor_controller:Clean">
<MSBuild Projects="..\Pedidos a proveedor\Controller\PedidosProveedor_controller.dproj" Targets="Clean" />
</Target>
<Target Name="PedidosProveedor_controller:Make">
<MSBuild Projects="..\Pedidos a proveedor\Controller\PedidosProveedor_controller.dproj" Targets="Make" />
</Target>
<Target Name="PedidosProveedor_view">
<MSBuild Projects="..\Pedidos a proveedor\Views\PedidosProveedor_view.dproj" Targets="" />
</Target>
<Target Name="PedidosProveedor_view:Clean">
<MSBuild Projects="..\Pedidos a proveedor\Views\PedidosProveedor_view.dproj" Targets="Clean" />
</Target>
<Target Name="PedidosProveedor_view:Make">
<MSBuild Projects="..\Pedidos a proveedor\Views\PedidosProveedor_view.dproj" Targets="Make" />
</Target>
<Target Name="Articulos_controller">
<MSBuild Projects="..\Articulos\Controller\Articulos_controller.dproj" Targets="" />
</Target>
<Target Name="Articulos_controller:Clean">
<MSBuild Projects="..\Articulos\Controller\Articulos_controller.dproj" Targets="Clean" />
</Target>
<Target Name="Articulos_controller:Make">
<MSBuild Projects="..\Articulos\Controller\Articulos_controller.dproj" Targets="Make" />
</Target>
<Target Name="AlbaranesProveedor_data">
<MSBuild Projects="..\Albaranes de proveedor\Data\AlbaranesProveedor_data.dproj" Targets="" />
</Target>
<Target Name="AlbaranesProveedor_data:Clean">
<MSBuild Projects="..\Albaranes de proveedor\Data\AlbaranesProveedor_data.dproj" Targets="Clean" />
</Target>
<Target Name="AlbaranesProveedor_data:Make">
<MSBuild Projects="..\Albaranes de proveedor\Data\AlbaranesProveedor_data.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" />
<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_controller;PedidosProveedor_view;Articulos_controller;AlbaranesProveedor_data" />
</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" />
<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_controller:Clean;PedidosProveedor_view:Clean;Articulos_controller:Clean;AlbaranesProveedor_data: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" />
<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_controller:Make;PedidosProveedor_view:Make;Articulos_controller:Make;AlbaranesProveedor_data:Make" />
</Target>
<Import Condition="Exists('$(MSBuildBinPath)\Borland.Group.Targets')" Project="$(MSBuildBinPath)\Borland.Group.Targets" />
</Project>

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

@ -3,14 +3,14 @@ unit schInventarioClient_Intf;
interface
uses
Classes, DB, SysUtils, uROClasses, uDADataTable, FmtBCD, uROXMLIntf;
Classes, DB, schBase_Intf, SysUtils, uROClasses, uDADataTable, FmtBCD, uROXMLIntf;
const
{ Data table rules ids
Feel free to change them to something more human readable
but make sure they are unique in the context of your application }
RID_Inventario = '{D1DF74C9-3CDA-4909-AE85-3CE5B811364D}';
RID_DetalleReservas = '{ECE1496D-C7C9-432E-955D-3034C7D1B03E}';
RID_Inventario = '{951489E3-A84E-48C4-8B21-AF96F561FD48}';
RID_DetalleReservas = '{A2121200-525B-47F4-BF33-48716EE21720}';
{ Data table names }
nme_Inventario = 'Inventario';
@ -24,6 +24,7 @@ const
fld_InventarioREFERENCIA = 'REFERENCIA';
fld_InventarioFAMILIA = 'FAMILIA';
fld_InventarioDESCRIPCION = 'DESCRIPCION';
fld_InventarioUNIDAD_MEDIDA = 'UNIDAD_MEDIDA';
fld_InventarioSTOCK = 'STOCK';
fld_InventarioUNIDADES_ALMACEN = 'UNIDADES_ALMACEN';
fld_InventarioRESERVA = 'RESERVA';
@ -44,17 +45,18 @@ const
idx_InventarioREFERENCIA = 4;
idx_InventarioFAMILIA = 5;
idx_InventarioDESCRIPCION = 6;
idx_InventarioSTOCK = 7;
idx_InventarioUNIDADES_ALMACEN = 8;
idx_InventarioRESERVA = 9;
idx_InventarioPENDIENTE_RECEPCION = 10;
idx_InventarioTIPO_ALMACEN = 11;
idx_InventarioID = 12;
idx_InventarioCANTIDAD = 13;
idx_InventarioFECHA_MOVIMIENTO = 14;
idx_InventarioCAUSA = 15;
idx_InventarioTIPO = 16;
idx_InventarioID_ALMACEN_RESERVA = 17;
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;
{ DetalleReservas fields }
fld_DetalleReservasID_ALB = 'ID_ALB';
@ -93,7 +95,7 @@ const
type
{ IInventario }
IInventario = interface(IDAStronglyTypedDataTable)
['{A64740C9-B495-4BD6-880F-C09A714F35F9}']
['{F5565441-E42C-46BC-949F-EB70792A7F94}']
{ Property getters and setters }
function GetID_ALMACENValue: Integer;
procedure SetID_ALMACENValue(const aValue: Integer);
@ -123,6 +125,10 @@ type
procedure SetDESCRIPCIONValue(const aValue: String);
function GetDESCRIPCIONIsNull: Boolean;
procedure SetDESCRIPCIONIsNull(const aValue: Boolean);
function GetUNIDAD_MEDIDAValue: String;
procedure SetUNIDAD_MEDIDAValue(const aValue: String);
function GetUNIDAD_MEDIDAIsNull: Boolean;
procedure SetUNIDAD_MEDIDAIsNull(const aValue: Boolean);
function GetSTOCKValue: Int64;
procedure SetSTOCKValue(const aValue: Int64);
function GetSTOCKIsNull: Boolean;
@ -184,6 +190,8 @@ type
property FAMILIAIsNull: Boolean read GetFAMILIAIsNull write SetFAMILIAIsNull;
property DESCRIPCION: String read GetDESCRIPCIONValue write SetDESCRIPCIONValue;
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 STOCK: Int64 read GetSTOCKValue write SetSTOCKValue;
property STOCKIsNull: Boolean read GetSTOCKIsNull write SetSTOCKIsNull;
property UNIDADES_ALMACEN: Int64 read GetUNIDADES_ALMACENValue write SetUNIDADES_ALMACENValue;
@ -209,7 +217,7 @@ type
end;
{ TInventarioDataTableRules }
TInventarioDataTableRules = class(TDADataTableRules, IInventario)
TInventarioDataTableRules = class(TIntfObjectDADataTableRules, IInventario)
private
protected
{ Property getters and setters }
@ -241,6 +249,10 @@ type
procedure SetDESCRIPCIONValue(const aValue: String); virtual;
function GetDESCRIPCIONIsNull: Boolean; virtual;
procedure SetDESCRIPCIONIsNull(const aValue: Boolean); virtual;
function GetUNIDAD_MEDIDAValue: String; virtual;
procedure SetUNIDAD_MEDIDAValue(const aValue: String); virtual;
function GetUNIDAD_MEDIDAIsNull: Boolean; virtual;
procedure SetUNIDAD_MEDIDAIsNull(const aValue: Boolean); virtual;
function GetSTOCKValue: Int64; virtual;
procedure SetSTOCKValue(const aValue: Int64); virtual;
function GetSTOCKIsNull: Boolean; virtual;
@ -301,6 +313,8 @@ type
property FAMILIAIsNull: Boolean read GetFAMILIAIsNull write SetFAMILIAIsNull;
property DESCRIPCION: String read GetDESCRIPCIONValue write SetDESCRIPCIONValue;
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 STOCK: Int64 read GetSTOCKValue write SetSTOCKValue;
property STOCKIsNull: Boolean read GetSTOCKIsNull write SetSTOCKIsNull;
property UNIDADES_ALMACEN: Int64 read GetUNIDADES_ALMACENValue write SetUNIDADES_ALMACENValue;
@ -332,7 +346,7 @@ type
{ IDetalleReservas }
IDetalleReservas = interface(IDAStronglyTypedDataTable)
['{1FB20B44-1A59-409F-A614-17754E6C10A9}']
['{6574FFB0-AA80-48EE-9752-3601321A30B5}']
{ Property getters and setters }
function GetID_ALBValue: Integer;
procedure SetID_ALBValue(const aValue: Integer);
@ -430,7 +444,7 @@ type
end;
{ TDetalleReservasDataTableRules }
TDetalleReservasDataTableRules = class(TDADataTableRules, IDetalleReservas)
TDetalleReservasDataTableRules = class(TIntfObjectDADataTableRules, IDetalleReservas)
private
protected
{ Property getters and setters }
@ -695,6 +709,27 @@ begin
DataTable.Fields[idx_InventarioDESCRIPCION].AsVariant := Null;
end;
function TInventarioDataTableRules.GetUNIDAD_MEDIDAValue: String;
begin
result := DataTable.Fields[idx_InventarioUNIDAD_MEDIDA].AsString;
end;
procedure TInventarioDataTableRules.SetUNIDAD_MEDIDAValue(const aValue: String);
begin
DataTable.Fields[idx_InventarioUNIDAD_MEDIDA].AsString := aValue;
end;
function TInventarioDataTableRules.GetUNIDAD_MEDIDAIsNull: boolean;
begin
result := DataTable.Fields[idx_InventarioUNIDAD_MEDIDA].IsNull;
end;
procedure TInventarioDataTableRules.SetUNIDAD_MEDIDAIsNull(const aValue: Boolean);
begin
if aValue then
DataTable.Fields[idx_InventarioUNIDAD_MEDIDA].AsVariant := Null;
end;
function TInventarioDataTableRules.GetSTOCKValue: Int64;
begin
result := DataTable.Fields[idx_InventarioSTOCK].AsLargeInt;

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

@ -9,13 +9,13 @@ 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_InventarioDelta = '{1E24258E-A81B-4308-BBB0-A5E5B4C6F6E7}';
RID_DetalleReservasDelta = '{6BD6D070-EEFF-4BA9-B4AE-9FDEAB2B569C}';
RID_InventarioDelta = '{9F4C5D85-1850-4952-8645-E9B2964B79D9}';
RID_DetalleReservasDelta = '{2C992942-76C6-4182-A8D5-9CC48C89D841}';
type
{ IInventarioDelta }
IInventarioDelta = interface(IInventario)
['{1E24258E-A81B-4308-BBB0-A5E5B4C6F6E7}']
['{9F4C5D85-1850-4952-8645-E9B2964B79D9}']
{ Property getters and setters }
function GetOldID_ALMACENValue : Integer;
function GetOldID_ARTICULOValue : Integer;
@ -24,6 +24,7 @@ type
function GetOldREFERENCIAValue : String;
function GetOldFAMILIAValue : String;
function GetOldDESCRIPCIONValue : String;
function GetOldUNIDAD_MEDIDAValue : String;
function GetOldSTOCKValue : Int64;
function GetOldUNIDADES_ALMACENValue : Int64;
function GetOldRESERVAValue : Int64;
@ -44,6 +45,7 @@ type
property OldREFERENCIA : String read GetOldREFERENCIAValue;
property OldFAMILIA : String read GetOldFAMILIAValue;
property OldDESCRIPCION : String read GetOldDESCRIPCIONValue;
property OldUNIDAD_MEDIDA : String read GetOldUNIDAD_MEDIDAValue;
property OldSTOCK : Int64 read GetOldSTOCKValue;
property OldUNIDADES_ALMACEN : Int64 read GetOldUNIDADES_ALMACENValue;
property OldRESERVA : Int64 read GetOldRESERVAValue;
@ -104,6 +106,12 @@ type
function GetOldDESCRIPCIONIsNull: Boolean; virtual;
procedure SetDESCRIPCIONValue(const aValue: String); virtual;
procedure SetDESCRIPCIONIsNull(const aValue: Boolean); virtual;
function GetUNIDAD_MEDIDAValue: String; virtual;
function GetUNIDAD_MEDIDAIsNull: Boolean; virtual;
function GetOldUNIDAD_MEDIDAValue: String; virtual;
function GetOldUNIDAD_MEDIDAIsNull: Boolean; virtual;
procedure SetUNIDAD_MEDIDAValue(const aValue: String); virtual;
procedure SetUNIDAD_MEDIDAIsNull(const aValue: Boolean); virtual;
function GetSTOCKValue: Int64; virtual;
function GetSTOCKIsNull: Boolean; virtual;
function GetOldSTOCKValue: Int64; virtual;
@ -200,6 +208,10 @@ type
property DESCRIPCIONIsNull : Boolean read GetDESCRIPCIONIsNull write SetDESCRIPCIONIsNull;
property OldDESCRIPCION : String read GetOldDESCRIPCIONValue;
property OldDESCRIPCIONIsNull : Boolean read GetOldDESCRIPCIONIsNull;
property UNIDAD_MEDIDA : String read GetUNIDAD_MEDIDAValue write SetUNIDAD_MEDIDAValue;
property UNIDAD_MEDIDAIsNull : Boolean read GetUNIDAD_MEDIDAIsNull write SetUNIDAD_MEDIDAIsNull;
property OldUNIDAD_MEDIDA : String read GetOldUNIDAD_MEDIDAValue;
property OldUNIDAD_MEDIDAIsNull : Boolean read GetOldUNIDAD_MEDIDAIsNull;
property STOCK : Int64 read GetSTOCKValue write SetSTOCKValue;
property STOCKIsNull : Boolean read GetSTOCKIsNull write SetSTOCKIsNull;
property OldSTOCK : Int64 read GetOldSTOCKValue;
@ -253,7 +265,7 @@ type
{ IDetalleReservasDelta }
IDetalleReservasDelta = interface(IDetalleReservas)
['{6BD6D070-EEFF-4BA9-B4AE-9FDEAB2B569C}']
['{2C992942-76C6-4182-A8D5-9CC48C89D841}']
{ Property getters and setters }
function GetOldID_ALBValue : Integer;
function GetOldID_EMPRESAValue : Integer;
@ -686,6 +698,37 @@ begin
BusinessProcessor.CurrentChange.NewValueByName[fld_InventarioDESCRIPCION] := Null;
end;
function TInventarioBusinessProcessorRules.GetUNIDAD_MEDIDAValue: String;
begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_InventarioUNIDAD_MEDIDA];
end;
function TInventarioBusinessProcessorRules.GetUNIDAD_MEDIDAIsNull: Boolean;
begin
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_InventarioUNIDAD_MEDIDA]);
end;
function TInventarioBusinessProcessorRules.GetOldUNIDAD_MEDIDAValue: String;
begin
result := BusinessProcessor.CurrentChange.OldValueByName[fld_InventarioUNIDAD_MEDIDA];
end;
function TInventarioBusinessProcessorRules.GetOldUNIDAD_MEDIDAIsNull: Boolean;
begin
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_InventarioUNIDAD_MEDIDA]);
end;
procedure TInventarioBusinessProcessorRules.SetUNIDAD_MEDIDAValue(const aValue: String);
begin
BusinessProcessor.CurrentChange.NewValueByName[fld_InventarioUNIDAD_MEDIDA] := aValue;
end;
procedure TInventarioBusinessProcessorRules.SetUNIDAD_MEDIDAIsNull(const aValue: Boolean);
begin
if aValue then
BusinessProcessor.CurrentChange.NewValueByName[fld_InventarioUNIDAD_MEDIDA] := Null;
end;
function TInventarioBusinessProcessorRules.GetSTOCKValue: Int64;
begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_InventarioSTOCK];

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

@ -20,18 +20,18 @@ object srvInventario: TsrvInventario
TargetTable = 'V_INVENTARIO'
SQL =
'SELECT'#10' ID_ALMACEN, ID_ARTICULO, NOMBRE as ALMACEN, ID_EMPRES' +
'A, REFERENCIA, FAMILIA,'#10' DESCRIPCION,'#10'/* REFERENCIA_PROV a' +
's REFERENCIA_PROVEEDOR, PRECIO_NETO, COSTE_UNIDADES, SE ELIMINA' +
'N LOS PRECIOS CON HASTA SABER QUE DECISIONES SE TOMAN*/'#10' STOC' +
'K, UNIDADES_ALMACEN, RESERVA, PENDIENTE_RECEPCION, TIPO_ALMACEN,' +
#10' '#10' /*'#10' NO BORRAR YA QUE SIRVE PARA LAS ENTRADAS Y SALI' +
'DAS DE ALMACEN(TABLA MOVIMIENTOS)'#10' DEBERIA GENERAR UNA TABLA ' +
'DE MOVIMIENTOS INDEPENDIENTE DEL INVENTARIO PERO POR FALTA'#10' D' +
'E TIEMPO Y FIABILIDAD YA QUE AHORA FUNCIONA TODO, CREAMOS ESTOS ' +
'CAMPOS FICTICIOS'#10' */'#10#10' 0 as ID, 0 as CANTIDAD, current_dat' +
'e as FECHA_MOVIMIENTO, NULL as CAUSA, NULL as TIPO,'#10' 0 as ID_' +
'ALMACEN_RESERVA'#10#10#10'FROM V_INVENTARIO'#10'where {where}'#10'ORDER BY ID_AR' +
'TICULO'#10
'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
StatementType = stSQL
ColumnMappings = <
item
@ -63,6 +63,10 @@ object srvInventario: TsrvInventario
DatasetField = 'DESCRIPCION'
TableField = 'DESCRIPCION'
end
item
DatasetField = 'UNIDAD_MEDIDA'
TableField = 'UNIDAD_MEDIDA'
end
item
DatasetField = 'STOCK'
TableField = 'STOCK'
@ -155,6 +159,11 @@ object srvInventario: TsrvInventario
Size = 255
DictionaryEntry = 'INVENTARIO_DESCRIPCION'
end
item
Name = 'UNIDAD_MEDIDA'
DataType = datString
Size = 255
end
item
Name = 'STOCK'
DataType = datLargeInt

6
Source/Modulos/Presupuestos de cliente/Model/schPresupuestosClienteClient_Intf.pas
View File

@ -3,7 +3,7 @@ unit schPresupuestosClienteClient_Intf;
interface
uses
Classes, DB, SysUtils, uROClasses, uDADataTable, FmtBCD, uROXMLIntf;
Classes, DB, schBase_Intf, SysUtils, uROClasses, uDADataTable, FmtBCD, uROXMLIntf;
const
{ Data table rules ids
@ -317,7 +317,7 @@ type
end;
{ TPresupuestosClienteDataTableRules }
TPresupuestosClienteDataTableRules = class(TDADataTableRules, IPresupuestosCliente)
TPresupuestosClienteDataTableRules = class(TIntfObjectDADataTableRules, IPresupuestosCliente)
private
f_PORTADA: IROStrings;
f_MEMORIA: IROStrings;
@ -626,7 +626,7 @@ type
end;
{ TPresupuestosCliente_DetallesDataTableRules }
TPresupuestosCliente_DetallesDataTableRules = class(TDADataTableRules, IPresupuestosCliente_Detalles)
TPresupuestosCliente_DetallesDataTableRules = class(TIntfObjectDADataTableRules, IPresupuestosCliente_Detalles)
private
protected
{ Property getters and setters }

BIN
Source/Servidor/FactuGES_Server.RES
View File

Binary file not shown.

10
Source/Servidor/FactuGES_Server.dpr
View File

@ -108,8 +108,6 @@ uses
schEmpresasServer_Intf in '..\ApplicationBase\Empresas\Model\schEmpresasServer_Intf.pas',
schAlbaranesClienteClient_Intf in '..\Modulos\Albaranes de cliente\Model\schAlbaranesClienteClient_Intf.pas',
schAlbaranesClienteServer_Intf in '..\Modulos\Albaranes de cliente\Model\schAlbaranesClienteServer_Intf.pas',
schFacturasClienteClient_Intf in '..\Modulos\Facturas de cliente\Model\schFacturasClienteClient_Intf.pas',
schFacturasClienteServer_Intf in '..\Modulos\Facturas de cliente\Model\schFacturasClienteServer_Intf.pas',
schAlmacenesClient_Intf in '..\Modulos\Almacenes\Model\schAlmacenesClient_Intf.pas',
schAlmacenesServer_Intf in '..\Modulos\Almacenes\Model\schAlmacenesServer_Intf.pas',
schAlbaranesProveedorClient_Intf in '..\Modulos\Albaranes de proveedor\Model\schAlbaranesProveedorClient_Intf.pas',
@ -122,14 +120,16 @@ uses
schContactosServer_Intf in '..\Modulos\Contactos\Model\schContactosServer_Intf.pas',
schPedidosProveedorClient_Intf in '..\Modulos\Pedidos a proveedor\Model\schPedidosProveedorClient_Intf.pas',
schPedidosProveedorServer_Intf in '..\Modulos\Pedidos a proveedor\Model\schPedidosProveedorServer_Intf.pas',
schFacturasProveedorClient_Intf in '..\Modulos\Facturas de proveedor\Model\schFacturasProveedorClient_Intf.pas',
schFacturasProveedorServer_Intf in '..\Modulos\Facturas de proveedor\Model\schFacturasProveedorServer_Intf.pas',
schUsuariosClient_Intf in '..\ApplicationBase\Usuarios\Model\schUsuariosClient_Intf.pas',
srvGestorDocumentos_Impl in '..\Modulos\Gestion de documentos\Servidor\srvGestorDocumentos_Impl.pas' {srvGestorDocumentos: TDataAbstractService},
schPresupuestosClienteClient_Intf in '..\Modulos\Presupuestos de cliente\Model\schPresupuestosClienteClient_Intf.pas',
schPresupuestosClienteServer_Intf in '..\Modulos\Presupuestos de cliente\Model\schPresupuestosClienteServer_Intf.pas',
schInventarioClient_Intf in '..\Modulos\Inventario\Model\schInventarioClient_Intf.pas',
schInventarioServer_Intf in '..\Modulos\Inventario\Model\schInventarioServer_Intf.pas';
schInventarioServer_Intf in '..\Modulos\Inventario\Model\schInventarioServer_Intf.pas',
schFacturasClienteClient_Intf in '..\Modulos\Facturas de cliente\Model\schFacturasClienteClient_Intf.pas',
schFacturasClienteServer_Intf in '..\Modulos\Facturas de cliente\Model\schFacturasClienteServer_Intf.pas',
schFacturasProveedorClient_Intf in '..\Modulos\Facturas de proveedor\Model\schFacturasProveedorClient_Intf.pas',
schFacturasProveedorServer_Intf in '..\Modulos\Facturas de proveedor\Model\schFacturasProveedorServer_Intf.pas';
{$R *.res}
{$R ..\Servicios\RODLFile.res}

580
Source/Servidor/FactuGES_Server.dproj
View File

@ -1,294 +1,294 @@
<?xml version="1.0" encoding="utf-8"?>
<?xml version="1.0" encoding="utf-8"?>
<Project xmlns="http://schemas.microsoft.com/developer/msbuild/2003">
<PropertyGroup>
<ProjectGuid>{ebdcd25d-40d7-4146-91ec-a0ea4aa1dcd1}</ProjectGuid>
<MainSource>FactuGES_Server.dpr</MainSource>
<Configuration Condition=" '$(Configuration)' == '' ">Debug</Configuration>
<Platform Condition=" '$(Platform)' == '' ">AnyCPU</Platform>
<DCC_DCCCompiler>DCC32</DCC_DCCCompiler>
<DCC_DependencyCheckOutputName>..\..\Output\Debug\Servidor\FactuGES_Server.exe</DCC_DependencyCheckOutputName>
<DCC_UsePackage>vcl;rtl;vclx;vclactnband;dbrtl;vcldb;vcldbx;bdertl;dsnap;dsnapcon;teeUI;teedb;tee;adortl;vclib;ibxpress;dbxcds;dbexpress;DbxCommonDriver;IndyCore;IndySystem;IndyProtocols;VclSmp;vclie;webdsnap;xmlrtl;inet;inetdbbde;inetdbxpress;RemObjects_BPDX_D11;RemObjects_RODX_D11;RemObjects_Indy_D11;RemObjects_Synapse_D11;RemObjects_WebBroker_D11;DataAbstract_Core_D11;DataAbstract_DBXDriver_D11;DataAbstract_IDE_D11;DataAbstract_Scripting_D11;DataAbstract_SDACDriver_D11;sdac105;dac105;DataAbstract_SQLiteDriver_D11;cxEditorsD10;cxLibraryD10;dxThemeD10;cxDataD10;cxExtEditorsD10;cxGridD10;cxPageControlD10;cxSchedulerD10;cxTreeListD10;cxVerticalGridD10;dxBarD10;dxComnD10;dxBarDBNavD10;dxBarExtDBItemsD10;dxBarExtItemsD10;dxDockingD10;dxLayoutControlD10;dxNavBarD10;dxPSCoreD10;dxsbD10;dxPScxCommonD10;dxPSLnksD10;vclshlctrls;dxPScxExtCommonD10;dxPScxGridLnkD10;dxPScxPCProdD10;dxPScxScheduler2LnkD10;dxPScxTLLnkD10;dxPSdxLCLnkD10;dxPsPrVwAdvD10;pckMD5;pckUCDataConnector;pckUserControl_RT;PluginSDK_D10R;PNG_D10;PngComponentsD10;tb2k_d10;tbx_d10;JclVcl;Jcl;JvXPCtrlsD11R;JvCoreD11R;JvSystemD11R;JvStdCtrlsD11R;JvAppFrmD11R;JvBandsD11R;JvDBD11R;JvDlgsD11R;JvBDED11R;JvCmpD11R;JvCryptD11R;JvCtrlsD11R;JvCustomD11R;JvDockingD11R;JvDotNetCtrlsD11R;JvEDID11R;JvGlobusD11R;JvHMID11R;JvInterpreterD11R;JvJansD11R;JvManagedThreadsD11R;JvMMD11R;JvNetD11R;JvPageCompsD11R;JvPluginD11R;JvPrintPreviewD11R;JvRuntimeDesignD11R;JvTimeFrameworkD11R;JvUIBD11R;JvValidatorsD11R;JvWizardD11R;pckUCADOConn;pckUCBDEConn;pckUCIBXConn;pckUCMidasConn;cxIntlPrintSys3D10;cxExportD10;cxIntl5D10;GUISDK_D11;ccpackD11;JSDialog100;fsTee11;fs11;frx11;frxADO11;frxBDE11;frxDB11;frxDBX11;frxe11;frxIBX11;frxTee11;fsADO11;fsBDE11;fsDB11;fsIBX11;websnap;soaprtl;IntrawebDB_90_100;Intraweb_90_100</DCC_UsePackage>
</PropertyGroup>
<PropertyGroup Condition=" '$(Configuration)|$(Platform)' == 'Release|AnyCPU' ">
<Version>7.0</Version>
<DCC_DebugInformation>False</DCC_DebugInformation>
<DCC_LocalDebugSymbols>False</DCC_LocalDebugSymbols>
<DCC_SymbolReferenceInfo>0</DCC_SymbolReferenceInfo>
<DCC_MapFile>3</DCC_MapFile>
<DCC_ExeOutput>..\..\Output\Release\Servidor</DCC_ExeOutput>
<DCC_Define>RELEASE</DCC_Define>
</PropertyGroup>
<PropertyGroup Condition=" '$(Configuration)|$(Platform)' == 'Debug|AnyCPU' ">
<Version>7.0</Version>
<DCC_MapFile>3</DCC_MapFile>
<DCC_ExeOutput>..\..\Output\Debug\Servidor</DCC_ExeOutput>
<DCC_Define>DEBUG;</DCC_Define>
<DCC_GenerateStackFrames>True</DCC_GenerateStackFrames>
<DCC_DebugInfoInExe>True</DCC_DebugInfoInExe>
<DCC_DebugVN>True</DCC_DebugVN>
<DCC_UnitSearchPath>$(BDS)\lib\Debug;$(BDS)\Lib\Debug\Indy10</DCC_UnitSearchPath>
<DCC_ResourcePath>$(BDS)\lib\Debug;$(BDS)\Lib\Debug\Indy10</DCC_ResourcePath>
<DCC_ObjPath>$(BDS)\lib\Debug;$(BDS)\Lib\Debug\Indy10</DCC_ObjPath>
<DCC_IncludePath>$(BDS)\lib\Debug;$(BDS)\Lib\Debug\Indy10</DCC_IncludePath>
</PropertyGroup>
<ProjectExtensions>
<Borland.Personality>Delphi.Personality</Borland.Personality>
<Borland.ProjectType />
<BorlandProject>
<BorlandProject><Delphi.Personality><Parameters><Parameters Name="UseLauncher">False</Parameters><Parameters Name="LoadAllSymbols">True</Parameters><Parameters Name="LoadUnspecifiedSymbols">False</Parameters><Parameters Name="RunParams">/standalone</Parameters></Parameters><VersionInfo><VersionInfo Name="IncludeVerInfo">True</VersionInfo><VersionInfo Name="AutoIncBuild">False</VersionInfo><VersionInfo Name="MajorVer">1</VersionInfo><VersionInfo Name="MinorVer">2</VersionInfo><VersionInfo Name="Release">7</VersionInfo><VersionInfo Name="Build">0</VersionInfo><VersionInfo Name="Debug">False</VersionInfo><VersionInfo Name="PreRelease">False</VersionInfo><VersionInfo Name="Special">False</VersionInfo><VersionInfo Name="Private">False</VersionInfo><VersionInfo Name="DLL">False</VersionInfo><VersionInfo Name="Locale">3082</VersionInfo><VersionInfo Name="CodePage">1252</VersionInfo></VersionInfo><VersionInfoKeys><VersionInfoKeys Name="CompanyName"></VersionInfoKeys><VersionInfoKeys Name="FileDescription"></VersionInfoKeys><VersionInfoKeys Name="FileVersion">1.2.7.0</VersionInfoKeys><VersionInfoKeys Name="InternalName"></VersionInfoKeys><VersionInfoKeys Name="LegalCopyright"></VersionInfoKeys><VersionInfoKeys Name="LegalTrademarks"></VersionInfoKeys><VersionInfoKeys Name="OriginalFilename"></VersionInfoKeys><VersionInfoKeys Name="ProductName"></VersionInfoKeys><VersionInfoKeys Name="ProductVersion">1.2.7.0</VersionInfoKeys><VersionInfoKeys Name="Comments"></VersionInfoKeys><VersionInfoKeys Name="CompileDate">martes, 02 de septiembre de 2008 20:39</VersionInfoKeys></VersionInfoKeys><Excluded_Packages /><Source><Source Name="MainSource">FactuGES_Server.dpr</Source></Source></Delphi.Personality></BorlandProject></BorlandProject>
</ProjectExtensions>
<Import Project="$(MSBuildBinPath)\Borland.Delphi.Targets" />
<ItemGroup>
<DelphiCompile Include="FactuGES_Server.dpr">
<MainSource>MainSource</MainSource>
</DelphiCompile>
<DCCReference Include="..\ApplicationBase\Empresas\Model\schEmpresasClient_Intf.pas" />
<DCCReference Include="..\ApplicationBase\Empresas\Model\schEmpresasServer_Intf.pas" />
<DCCReference Include="..\ApplicationBase\Empresas\Model\uBizEmpresasServer.pas" />
<DCCReference Include="..\ApplicationBase\Empresas\Servidor\srvEmpresas_Impl.pas">
<Form>srvEmpresas</Form>
<DesignClass>TDARemoteService</DesignClass>
</DCCReference>
<DCCReference Include="..\ApplicationBase\ProvinciasPoblaciones\Servidor\srvProvinciasPoblaciones_Impl.pas" />
<DCCReference Include="..\ApplicationBase\Usuarios\Model\schUsuariosClient_Intf.pas" />
<DCCReference Include="..\ApplicationBase\Usuarios\Model\schUsuariosServer_Intf.pas" />
<DCCReference Include="..\ApplicationBase\Usuarios\Servidor\srvUsuarios_Impl.pas" />
<DCCReference Include="..\Base\schBase_Intf.pas" />
<DCCReference Include="..\Base\Utiles\uSistemaFunc.pas" />
<DCCReference Include="..\Base\Utiles\uStringsUtils.pas" />
<DCCReference Include="..\Modulos\Albaranes de cliente\Model\schAlbaranesClienteClient_Intf.pas" />
<DCCReference Include="..\Modulos\Albaranes de cliente\Model\schAlbaranesClienteServer_Intf.pas" />
<DCCReference Include="..\Modulos\Albaranes de cliente\Model\uBizAlbaranClienteServer.pas" />
<DCCReference Include="..\Modulos\Albaranes de cliente\Reports\uRptAlbaranesCliente_Server.pas">
<Form>RptAlbaranesCliente</Form>
<DesignClass>TDataModule</DesignClass>
</DCCReference>
<DCCReference Include="..\Modulos\Albaranes de cliente\Reports\uRptWordAlbaranCliente.pas">
<Form>RptWordAlbaranCliente</Form>
<DesignClass>TDataModule</DesignClass>
</DCCReference>
<DCCReference Include="..\Modulos\Albaranes de cliente\Servidor\srvAlbaranesCliente_Impl.pas">
<Form>srvAlbaranesCliente</Form>
<DesignClass>TDataAbstractService</DesignClass>
</DCCReference>
<DCCReference Include="..\Modulos\Albaranes de proveedor\Model\schAlbaranesProveedorClient_Intf.pas" />
<DCCReference Include="..\Modulos\Albaranes de proveedor\Model\schAlbaranesProveedorServer_Intf.pas" />
<DCCReference Include="..\Modulos\Albaranes de proveedor\Model\uBizAlbaranProveedorServer.PAS" />
<DCCReference Include="..\Modulos\Albaranes de proveedor\Servidor\srvAlbaranesProveedor_Impl.pas">
<Form>srvAlbaranesProveedor</Form>
<DesignClass>TDataAbstractService</DesignClass>
</DCCReference>
<DCCReference Include="..\Modulos\Almacenes\Model\schAlmacenesClient_Intf.pas" />
<DCCReference Include="..\Modulos\Almacenes\Model\schAlmacenesServer_Intf.pas" />
<DCCReference Include="..\Modulos\Almacenes\Servidor\srvAlmacenes_Impl.pas">
<Form>srvAlmacenes</Form>
<DesignClass>TDARemoteService</DesignClass>
</DCCReference>
<DCCReference Include="..\Modulos\Articulos\Model\schArticulosClient_Intf.pas" />
<DCCReference Include="..\Modulos\Articulos\Model\schArticulosServer_Intf.pas" />
<DCCReference Include="..\Modulos\Articulos\Model\uBizArticulosServer.pas" />
<DCCReference Include="..\Modulos\Articulos\Servidor\srvArticulos_Impl.pas">
<Form>srvArticulos</Form>
<DesignClass>TDARemoteService</DesignClass>
</DCCReference>
<DCCReference Include="..\Modulos\Contactos\Model\schContactosClient_Intf.pas" />
<DCCReference Include="..\Modulos\Contactos\Model\schContactosServer_Intf.pas" />
<DCCReference Include="..\Modulos\Contactos\Model\uBizClientesServer.pas" />
<DCCReference Include="..\Modulos\Contactos\Model\uBizContactosServer.pas" />
<DCCReference Include="..\Modulos\Contactos\Model\uBizEmpleadosServer.pas" />
<DCCReference Include="..\Modulos\Contactos\Model\uBizProveedoresServer.pas" />
<DCCReference Include="..\Modulos\Contactos\Reports\uRptEtiquetasContacto_Server.pas">
<Form>RptEtiquetasContacto</Form>
<DesignClass>TDataModule</DesignClass>
</DCCReference>
<DCCReference Include="..\Modulos\Contactos\Reports\uRptFichasEmpleado_Server.pas">
<Form>RptFichasEmpleado</Form>
<DesignClass>TDataModule</DesignClass>
</DCCReference>
<DCCReference Include="..\Modulos\Contactos\Servidor\srvContactos_Impl.pas">
<Form>srvContactos</Form>
<DesignClass>TDARemoteService</DesignClass>
</DCCReference>
<DCCReference Include="..\Modulos\Fabricantes\Model\schFabricantesClient_Intf.pas" />
<DCCReference Include="..\Modulos\Fabricantes\Model\schFabricantesServer_Intf.pas" />
<DCCReference Include="..\Modulos\Fabricantes\Servidor\srvFabricantes_Impl.pas">
<Form>srvFabricantes</Form>
<DesignClass>TDataAbstractService</DesignClass>
</DCCReference>
<DCCReference Include="..\Modulos\Facturas de cliente\Model\schFacturasClienteClient_Intf.pas" />
<DCCReference Include="..\Modulos\Facturas de cliente\Model\schFacturasClienteServer_Intf.pas" />
<DCCReference Include="..\Modulos\Facturas de cliente\Model\uBizFacturasClienteServer.pas" />
<DCCReference Include="..\Modulos\Facturas de cliente\Reports\uRptFacturasCliente_Server.pas">
<Form>RptFacturasCliente</Form>
<DesignClass>TDataModule</DesignClass>
</DCCReference>
<DCCReference Include="..\Modulos\Facturas de cliente\Reports\uRptWordFacturaCliente.pas">
<Form>RptWordFacturaCliente</Form>
<DesignClass>TDataModule</DesignClass>
</DCCReference>
<DCCReference Include="..\Modulos\Facturas de cliente\Servidor\srvFacturasCliente_Impl.pas">
<Form>srvFacturasCliente</Form>
<DesignClass>TDataAbstractService</DesignClass>
</DCCReference>
<DCCReference Include="..\Modulos\Facturas de proveedor\Model\schFacturasProveedorClient_Intf.pas" />
<DCCReference Include="..\Modulos\Facturas de proveedor\Model\schFacturasProveedorServer_Intf.pas" />
<DCCReference Include="..\Modulos\Facturas de proveedor\Model\uBizFacturasProveedorServer.pas" />
<DCCReference Include="..\Modulos\Facturas de proveedor\Servidor\srvFacturasProveedor_Impl.pas">
<Form>srvFacturasProveedor</Form>
<DesignClass>TDataAbstractService</DesignClass>
</DCCReference>
<DCCReference Include="..\Modulos\Familias\Model\schFamiliasClient_Intf.pas" />
<DCCReference Include="..\Modulos\Familias\Model\schFamiliasServer_Intf.pas" />
<DCCReference Include="..\Modulos\Familias\Servidor\srvFamilias_Impl.pas" />
<DCCReference Include="..\Modulos\Formas de pago\Model\schFormasPagoClient_Intf.pas" />
<DCCReference Include="..\Modulos\Formas de pago\Model\schFormasPagoServer_Intf.pas" />
<DCCReference Include="..\Modulos\Formas de pago\Servidor\srvFormasPago_Impl.pas" />
<DCCReference Include="..\Modulos\Formas de pago\Servidor\srvUnidadesMedida_Impl.pas" />
<DCCReference Include="..\Modulos\Gestion de documentos\Servidor\srvGestorDocumentos_Impl.pas">
<Form>srvGestorDocumentos</Form>
<DesignClass>TDataAbstractService</DesignClass>
</DCCReference>
<DCCReference Include="..\Modulos\Historico de movimientos\Model\schHistoricoMovimientosClient_Intf.pas" />
<DCCReference Include="..\Modulos\Historico de movimientos\Model\schHistoricoMovimientosServer_Intf.pas" />
<DCCReference Include="..\Modulos\Historico de movimientos\Servidor\srvHistoricoMovimientos_Impl.pas">
<Form>srvHistoricoMovimientos</Form>
<DesignClass>TDataAbstractService</DesignClass>
</DCCReference>
<DCCReference Include="..\Modulos\Inventario\Model\schInventarioClient_Intf.pas" />
<DCCReference Include="..\Modulos\Inventario\Model\schInventarioServer_Intf.pas" />
<DCCReference Include="..\Modulos\Inventario\Servidor\srvInventario_Impl.pas">
<Form>srvInventario</Form>
<DesignClass>TDataAbstractService</DesignClass>
</DCCReference>
<DCCReference Include="..\Modulos\Obras\Model\schObrasClient_Intf.pas" />
<DCCReference Include="..\Modulos\Obras\Model\schObrasServer_Intf.pas" />
<DCCReference Include="..\Modulos\Obras\Model\uBizObrasServer.pas" />
<DCCReference Include="..\Modulos\Obras\Servidor\srvObras_Impl.pas" />
<DCCReference Include="..\Modulos\Pedidos a proveedor\Model\schPedidosProveedorClient_Intf.pas" />
<DCCReference Include="..\Modulos\Pedidos a proveedor\Model\schPedidosProveedorServer_Intf.pas" />
<DCCReference Include="..\Modulos\Pedidos a proveedor\Model\uBizPedidosProveedorServer.pas" />
<DCCReference Include="..\Modulos\Pedidos a proveedor\Reports\uRptPedidosProveedor_Server.pas">
<Form>RptPedidosProveedor</Form>
<DesignClass>TDataModule</DesignClass>
</DCCReference>
<DCCReference Include="..\Modulos\Pedidos a proveedor\Reports\uRptWordPedidoProveedor.pas">
<Form>RptWordPedidoProveedor</Form>
<DesignClass>TDataModule</DesignClass>
</DCCReference>
<DCCReference Include="..\Modulos\Pedidos a proveedor\Servidor\srvPedidosProveedor_Impl.pas">
<Form>srvPedidosProveedor</Form>
<DesignClass>TDataAbstractService</DesignClass>
</DCCReference>
<DCCReference Include="..\Modulos\Presupuestos de cliente\Model\schPresupuestosClienteClient_Intf.pas" />
<DCCReference Include="..\Modulos\Presupuestos de cliente\Model\schPresupuestosClienteServer_Intf.pas" />
<DCCReference Include="..\Modulos\Presupuestos de cliente\Model\uBizPresupuestosClienteServer.pas" />
<DCCReference Include="..\Modulos\Presupuestos de cliente\Reports\uRptPresupuestosCliente_Server.pas">
<Form>RptPresupuestosCliente</Form>
<DesignClass>TDataModule</DesignClass>
</DCCReference>
<DCCReference Include="..\Modulos\Presupuestos de cliente\Reports\uRptWordCertificadoTrabajo_Server.pas">
<Form>RptWordCertificadoTrabajo</Form>
<DesignClass>TDataModule</DesignClass>
</DCCReference>
<DCCReference Include="..\Modulos\Presupuestos de cliente\Reports\uRptWordPresupuestoCliente.pas">
<Form>RptWordPresupuestoCliente</Form>
<DesignClass>TDataModule</DesignClass>
</DCCReference>
<DCCReference Include="..\Modulos\Presupuestos de cliente\Servidor\srvPresupuestosCliente_Impl.pas">
<Form>srvPresupuestosCliente</Form>
<DesignClass>TDataAbstractService</DesignClass>
</DCCReference>
<DCCReference Include="..\Modulos\Recibos de cliente\Model\schRecibosClienteClient_Intf.pas" />
<DCCReference Include="..\Modulos\Recibos de cliente\Model\schRecibosClienteServer_Intf.pas" />
<DCCReference Include="..\Modulos\Recibos de cliente\Reports\uRptRecibosCliente_Server.pas">
<Form>RptRecibosCliente</Form>
<DesignClass>TDataModule</DesignClass>
</DCCReference>
<DCCReference Include="..\Modulos\Recibos de cliente\Servidor\srvRecibosCliente_Impl.pas">
<Form>srvRecibosCliente</Form>
<DesignClass>TDataAbstractService</DesignClass>
</DCCReference>
<DCCReference Include="..\Modulos\Recibos de proveedor\Model\schRecibosProveedorClient_Intf.pas" />
<DCCReference Include="..\Modulos\Recibos de proveedor\Model\schRecibosProveedorServer_Intf.pas" />
<DCCReference Include="..\Modulos\Recibos de proveedor\Servidor\srvRecibosProveedor_Impl.pas">
<Form>srvRecibosProveedor</Form>
<DesignClass>TDataAbstractService</DesignClass>
</DCCReference>
<DCCReference Include="..\Modulos\Referencias\Model\schReferenciasClient_Intf.pas" />
<DCCReference Include="..\Modulos\Referencias\Model\schReferenciasServer_Intf.pas" />
<DCCReference Include="..\Modulos\Referencias\Servidor\srvReferencias_Impl.pas">
<Form>srvReferencias</Form>
<DesignClass>TDataAbstractService</DesignClass>
</DCCReference>
<DCCReference Include="..\Modulos\Remesas de cliente\Model\schRemesasClienteClient_Intf.pas" />
<DCCReference Include="..\Modulos\Remesas de cliente\Model\schRemesasClienteServer_Intf.pas" />
<DCCReference Include="..\Modulos\Remesas de cliente\Model\uBizRemesasClienteServer.pas" />
<DCCReference Include="..\Modulos\Remesas de cliente\Servidor\srvRemesasCliente_Impl.pas">
<Form>srvRemesasCliente</Form>
<DesignClass>TDataAbstractService</DesignClass>
</DCCReference>
<DCCReference Include="..\Modulos\Remesas de proveedor\Model\schRemesasProveedorClient_Intf.pas" />
<DCCReference Include="..\Modulos\Remesas de proveedor\Model\schRemesasProveedorServer_Intf.pas" />
<DCCReference Include="..\Modulos\Remesas de proveedor\Model\uBizRemesasProveedorServer.pas" />
<DCCReference Include="..\Modulos\Remesas de proveedor\Servidor\srvRemesasProveedor_Impl.pas">
<Form>srvRemesasProveedor</Form>
<DesignClass>TDataAbstractService</DesignClass>
</DCCReference>
<DCCReference Include="..\Modulos\Tipos de IVA\Model\schTiposIVAClient_Intf.pas" />
<DCCReference Include="..\Modulos\Tipos de IVA\Model\schTiposIVAServer_Intf.pas" />
<DCCReference Include="..\Modulos\Tipos de IVA\Servidor\srvTiposIVA_Impl.pas" />
<DCCReference Include="..\Modulos\Unidades de medida\Model\schUnidadesMedidaClient_Intf.pas" />
<DCCReference Include="..\Modulos\Unidades de medida\Model\schUnidadesMedidaServer_Intf.pas" />
<DCCReference Include="..\Modulos\Unidades de medida\Servidor\srvUnidadesMedida_Impl.pas">
<Form>srvUnidadesMedida</Form>
<DesignClass>TDataAbstractService</DesignClass>
</DCCReference>
<DCCReference Include="..\Servicios\FactuGES_Intf.pas" />
<DCCReference Include="..\Servicios\FactuGES_Invk.pas" />
<DCCReference Include="Configuracion\srvConfiguracion_Impl.pas">
<Form>srvConfiguracion</Form>
<DesignClass>TDataAbstractService</DesignClass>
</DCCReference>
<DCCReference Include="Configuracion\uConexionBD.pas">
<Form>frConexionBD</Form>
<DesignClass>TFrame</DesignClass>
</DCCReference>
<DCCReference Include="Configuracion\uConfGeneral.pas">
<Form>frConfGeneral</Form>
<DesignClass>TFrame</DesignClass>
</DCCReference>
<DCCReference Include="Configuracion\uConfiguracion.pas">
<Form>fConfiguracion</Form>
<DesignClass>TForm</DesignClass>
</DCCReference>
<DCCReference Include="Configuracion\uFrameConfiguracion.pas">
<Form>FrameConfiguracion</Form>
<DesignClass>TFrame</DesignClass>
</DCCReference>
<DCCReference Include="srvLogin_Impl.pas">
<Form>srvLogin</Form>
<DesignClass>TDARemoteService</DesignClass>
</DCCReference>
<DCCReference Include="uAcercaDe.pas">
<Form>fAcercaDe</Form>
</DCCReference>
<DCCReference Include="uDataModuleServer.pas">
<Form>dmServer</Form>
<DesignClass>TDataModule</DesignClass>
</DCCReference>
<DCCReference Include="uServerMainForm.pas">
<Form>fServerForm</Form>
</DCCReference>
<DCCReference Include="Utiles\AHWord97.pas" />
<DCCReference Include="Utiles\RegExpr.pas" />
<DCCReference Include="Utiles\uBusinessUtils.pas" />
<DCCReference Include="Utiles\uDatabaseUtils.pas" />
<DCCReference Include="Utiles\uReferenciasUtils.pas" />
<DCCReference Include="Utiles\uRestriccionesUsuarioUtils.pas" />
<DCCReference Include="Utiles\uSchemaUtilsServer.pas" />
<DCCReference Include="Utiles\uServerAppUtils.pas" />
<DCCReference Include="Utiles\uSesionesUtils.pas" />
</ItemGroup>
<PropertyGroup>
<ProjectGuid>{ebdcd25d-40d7-4146-91ec-a0ea4aa1dcd1}</ProjectGuid>
<MainSource>FactuGES_Server.dpr</MainSource>
<Configuration Condition=" '$(Configuration)' == '' ">Debug</Configuration>
<Platform Condition=" '$(Platform)' == '' ">AnyCPU</Platform>
<DCC_DCCCompiler>DCC32</DCC_DCCCompiler>
<DCC_DependencyCheckOutputName>..\..\Output\Debug\Servidor\FactuGES_Server.exe</DCC_DependencyCheckOutputName>
<DCC_UsePackage>vcl;rtl;vclx;vclactnband;dbrtl;vcldb;vcldbx;bdertl;dsnap;dsnapcon;teeUI;teedb;tee;adortl;vclib;ibxpress;dbxcds;dbexpress;DbxCommonDriver;IndyCore;IndySystem;IndyProtocols;VclSmp;vclie;webdsnap;xmlrtl;inet;inetdbbde;inetdbxpress;RemObjects_BPDX_D11;RemObjects_RODX_D11;RemObjects_Indy_D11;RemObjects_Synapse_D11;RemObjects_WebBroker_D11;DataAbstract_Core_D11;DataAbstract_DBXDriver_D11;DataAbstract_IDE_D11;DataAbstract_Scripting_D11;DataAbstract_SDACDriver_D11;sdac105;dac105;DataAbstract_SQLiteDriver_D11;cxEditorsD10;cxLibraryD10;dxThemeD10;cxDataD10;cxExtEditorsD10;cxGridD10;cxPageControlD10;cxSchedulerD10;cxTreeListD10;cxVerticalGridD10;dxBarD10;dxComnD10;dxBarDBNavD10;dxBarExtDBItemsD10;dxBarExtItemsD10;dxDockingD10;dxLayoutControlD10;dxNavBarD10;dxPSCoreD10;dxsbD10;dxPScxCommonD10;dxPSLnksD10;vclshlctrls;dxPScxExtCommonD10;dxPScxGridLnkD10;dxPScxPCProdD10;dxPScxScheduler2LnkD10;dxPScxTLLnkD10;dxPSdxLCLnkD10;dxPsPrVwAdvD10;pckMD5;pckUCDataConnector;pckUserControl_RT;PluginSDK_D10R;PNG_D10;PngComponentsD10;tb2k_d10;tbx_d10;JclVcl;Jcl;JvXPCtrlsD11R;JvCoreD11R;JvSystemD11R;JvStdCtrlsD11R;JvAppFrmD11R;JvBandsD11R;JvDBD11R;JvDlgsD11R;JvBDED11R;JvCmpD11R;JvCryptD11R;JvCtrlsD11R;JvCustomD11R;JvDockingD11R;JvDotNetCtrlsD11R;JvEDID11R;JvGlobusD11R;JvHMID11R;JvInterpreterD11R;JvJansD11R;JvManagedThreadsD11R;JvMMD11R;JvNetD11R;JvPageCompsD11R;JvPluginD11R;JvPrintPreviewD11R;JvRuntimeDesignD11R;JvTimeFrameworkD11R;JvUIBD11R;JvValidatorsD11R;JvWizardD11R;pckUCADOConn;pckUCBDEConn;pckUCIBXConn;pckUCMidasConn;cxIntlPrintSys3D10;cxExportD10;cxIntl5D10;GUISDK_D11;ccpackD11;JSDialog100;fsTee11;fs11;frx11;frxADO11;frxBDE11;frxDB11;frxDBX11;frxe11;frxIBX11;frxTee11;fsADO11;fsBDE11;fsDB11;fsIBX11;websnap;soaprtl;IntrawebDB_90_100;Intraweb_90_100</DCC_UsePackage>
</PropertyGroup>
<PropertyGroup Condition=" '$(Configuration)|$(Platform)' == 'Release|AnyCPU' ">
<Version>7.0</Version>
<DCC_DebugInformation>False</DCC_DebugInformation>
<DCC_LocalDebugSymbols>False</DCC_LocalDebugSymbols>
<DCC_SymbolReferenceInfo>0</DCC_SymbolReferenceInfo>
<DCC_MapFile>3</DCC_MapFile>
<DCC_ExeOutput>..\..\Output\Release\Servidor</DCC_ExeOutput>
<DCC_Define>RELEASE</DCC_Define>
</PropertyGroup>
<PropertyGroup Condition=" '$(Configuration)|$(Platform)' == 'Debug|AnyCPU' ">
<Version>7.0</Version>
<DCC_MapFile>3</DCC_MapFile>
<DCC_ExeOutput>..\..\Output\Debug\Servidor</DCC_ExeOutput>
<DCC_Define>DEBUG;</DCC_Define>
<DCC_GenerateStackFrames>True</DCC_GenerateStackFrames>
<DCC_DebugInfoInExe>True</DCC_DebugInfoInExe>
<DCC_DebugVN>True</DCC_DebugVN>
<DCC_UnitSearchPath>$(BDS)\lib\Debug;$(BDS)\Lib\Debug\Indy10</DCC_UnitSearchPath>
<DCC_ResourcePath>$(BDS)\lib\Debug;$(BDS)\Lib\Debug\Indy10</DCC_ResourcePath>
<DCC_ObjPath>$(BDS)\lib\Debug;$(BDS)\Lib\Debug\Indy10</DCC_ObjPath>
<DCC_IncludePath>$(BDS)\lib\Debug;$(BDS)\Lib\Debug\Indy10</DCC_IncludePath>
</PropertyGroup>
<ProjectExtensions>
<Borland.Personality>Delphi.Personality</Borland.Personality>
<Borland.ProjectType/>
<BorlandProject>
<BorlandProject><Delphi.Personality><Parameters><Parameters Name="UseLauncher">False</Parameters><Parameters Name="LoadAllSymbols">True</Parameters><Parameters Name="LoadUnspecifiedSymbols">False</Parameters><Parameters Name="RunParams">/standalone</Parameters></Parameters><VersionInfo><VersionInfo Name="IncludeVerInfo">True</VersionInfo><VersionInfo Name="AutoIncBuild">False</VersionInfo><VersionInfo Name="MajorVer">1</VersionInfo><VersionInfo Name="MinorVer">2</VersionInfo><VersionInfo Name="Release">7</VersionInfo><VersionInfo Name="Build">0</VersionInfo><VersionInfo Name="Debug">False</VersionInfo><VersionInfo Name="PreRelease">False</VersionInfo><VersionInfo Name="Special">False</VersionInfo><VersionInfo Name="Private">False</VersionInfo><VersionInfo Name="DLL">False</VersionInfo><VersionInfo Name="Locale">3082</VersionInfo><VersionInfo Name="CodePage">1252</VersionInfo></VersionInfo><VersionInfoKeys><VersionInfoKeys Name="CompanyName"></VersionInfoKeys><VersionInfoKeys Name="FileDescription"></VersionInfoKeys><VersionInfoKeys Name="FileVersion">1.2.7.0</VersionInfoKeys><VersionInfoKeys Name="InternalName"></VersionInfoKeys><VersionInfoKeys Name="LegalCopyright"></VersionInfoKeys><VersionInfoKeys Name="LegalTrademarks"></VersionInfoKeys><VersionInfoKeys Name="OriginalFilename"></VersionInfoKeys><VersionInfoKeys Name="ProductName"></VersionInfoKeys><VersionInfoKeys Name="ProductVersion">1.2.7.0</VersionInfoKeys><VersionInfoKeys Name="Comments"></VersionInfoKeys><VersionInfoKeys Name="CompileDate">martes, 02 de septiembre de 2008 20:39</VersionInfoKeys></VersionInfoKeys><Excluded_Packages/><Source><Source Name="MainSource">FactuGES_Server.dpr</Source></Source></Delphi.Personality></BorlandProject></BorlandProject>
</ProjectExtensions>
<Import Project="$(MSBuildBinPath)\Borland.Delphi.Targets"/>
<ItemGroup>
<DelphiCompile Include="FactuGES_Server.dpr">
<MainSource>MainSource</MainSource>
</DelphiCompile>
<DCCReference Include="..\ApplicationBase\Empresas\Model\schEmpresasClient_Intf.pas"/>
<DCCReference Include="..\ApplicationBase\Empresas\Model\schEmpresasServer_Intf.pas"/>
<DCCReference Include="..\ApplicationBase\Empresas\Model\uBizEmpresasServer.pas"/>
<DCCReference Include="..\ApplicationBase\Empresas\Servidor\srvEmpresas_Impl.pas">
<Form>srvEmpresas</Form>
<DesignClass>TDARemoteService</DesignClass>
</DCCReference>
<DCCReference Include="..\ApplicationBase\ProvinciasPoblaciones\Servidor\srvProvinciasPoblaciones_Impl.pas"/>
<DCCReference Include="..\ApplicationBase\Usuarios\Model\schUsuariosClient_Intf.pas"/>
<DCCReference Include="..\ApplicationBase\Usuarios\Model\schUsuariosServer_Intf.pas"/>
<DCCReference Include="..\ApplicationBase\Usuarios\Servidor\srvUsuarios_Impl.pas"/>
<DCCReference Include="..\Base\schBase_Intf.pas"/>
<DCCReference Include="..\Base\Utiles\uSistemaFunc.pas"/>
<DCCReference Include="..\Base\Utiles\uStringsUtils.pas"/>
<DCCReference Include="..\Modulos\Albaranes de cliente\Model\schAlbaranesClienteClient_Intf.pas"/>
<DCCReference Include="..\Modulos\Albaranes de cliente\Model\schAlbaranesClienteServer_Intf.pas"/>
<DCCReference Include="..\Modulos\Albaranes de cliente\Model\uBizAlbaranClienteServer.pas"/>
<DCCReference Include="..\Modulos\Albaranes de cliente\Reports\uRptAlbaranesCliente_Server.pas">
<Form>RptAlbaranesCliente</Form>
<DesignClass>TDataModule</DesignClass>
</DCCReference>
<DCCReference Include="..\Modulos\Albaranes de cliente\Reports\uRptWordAlbaranCliente.pas">
<Form>RptWordAlbaranCliente</Form>
<DesignClass>TDataModule</DesignClass>
</DCCReference>
<DCCReference Include="..\Modulos\Albaranes de cliente\Servidor\srvAlbaranesCliente_Impl.pas">
<Form>srvAlbaranesCliente</Form>
<DesignClass>TDataAbstractService</DesignClass>
</DCCReference>
<DCCReference Include="..\Modulos\Albaranes de proveedor\Model\schAlbaranesProveedorClient_Intf.pas"/>
<DCCReference Include="..\Modulos\Albaranes de proveedor\Model\schAlbaranesProveedorServer_Intf.pas"/>
<DCCReference Include="..\Modulos\Albaranes de proveedor\Model\uBizAlbaranProveedorServer.PAS"/>
<DCCReference Include="..\Modulos\Albaranes de proveedor\Servidor\srvAlbaranesProveedor_Impl.pas">
<Form>srvAlbaranesProveedor</Form>
<DesignClass>TDataAbstractService</DesignClass>
</DCCReference>
<DCCReference Include="..\Modulos\Almacenes\Model\schAlmacenesClient_Intf.pas"/>
<DCCReference Include="..\Modulos\Almacenes\Model\schAlmacenesServer_Intf.pas"/>
<DCCReference Include="..\Modulos\Almacenes\Servidor\srvAlmacenes_Impl.pas">
<Form>srvAlmacenes</Form>
<DesignClass>TDARemoteService</DesignClass>
</DCCReference>
<DCCReference Include="..\Modulos\Articulos\Model\schArticulosClient_Intf.pas"/>
<DCCReference Include="..\Modulos\Articulos\Model\schArticulosServer_Intf.pas"/>
<DCCReference Include="..\Modulos\Articulos\Model\uBizArticulosServer.pas"/>
<DCCReference Include="..\Modulos\Articulos\Servidor\srvArticulos_Impl.pas">
<Form>srvArticulos</Form>
<DesignClass>TDARemoteService</DesignClass>
</DCCReference>
<DCCReference Include="..\Modulos\Contactos\Model\schContactosClient_Intf.pas"/>
<DCCReference Include="..\Modulos\Contactos\Model\schContactosServer_Intf.pas"/>
<DCCReference Include="..\Modulos\Contactos\Model\uBizClientesServer.pas"/>
<DCCReference Include="..\Modulos\Contactos\Model\uBizContactosServer.pas"/>
<DCCReference Include="..\Modulos\Contactos\Model\uBizEmpleadosServer.pas"/>
<DCCReference Include="..\Modulos\Contactos\Model\uBizProveedoresServer.pas"/>
<DCCReference Include="..\Modulos\Contactos\Reports\uRptEtiquetasContacto_Server.pas">
<Form>RptEtiquetasContacto</Form>
<DesignClass>TDataModule</DesignClass>
</DCCReference>
<DCCReference Include="..\Modulos\Contactos\Reports\uRptFichasEmpleado_Server.pas">
<Form>RptFichasEmpleado</Form>
<DesignClass>TDataModule</DesignClass>
</DCCReference>
<DCCReference Include="..\Modulos\Contactos\Servidor\srvContactos_Impl.pas">
<Form>srvContactos</Form>
<DesignClass>TDARemoteService</DesignClass>
</DCCReference>
<DCCReference Include="..\Modulos\Fabricantes\Model\schFabricantesClient_Intf.pas"/>
<DCCReference Include="..\Modulos\Fabricantes\Model\schFabricantesServer_Intf.pas"/>
<DCCReference Include="..\Modulos\Fabricantes\Servidor\srvFabricantes_Impl.pas">
<Form>srvFabricantes</Form>
<DesignClass>TDataAbstractService</DesignClass>
</DCCReference>
<DCCReference Include="..\Modulos\Facturas de cliente\Model\schFacturasClienteClient_Intf.pas"/>
<DCCReference Include="..\Modulos\Facturas de cliente\Model\schFacturasClienteServer_Intf.pas"/>
<DCCReference Include="..\Modulos\Facturas de cliente\Model\uBizFacturasClienteServer.pas"/>
<DCCReference Include="..\Modulos\Facturas de cliente\Reports\uRptFacturasCliente_Server.pas">
<Form>RptFacturasCliente</Form>
<DesignClass>TDataModule</DesignClass>
</DCCReference>
<DCCReference Include="..\Modulos\Facturas de cliente\Reports\uRptWordFacturaCliente.pas">
<Form>RptWordFacturaCliente</Form>
<DesignClass>TDataModule</DesignClass>
</DCCReference>
<DCCReference Include="..\Modulos\Facturas de cliente\Servidor\srvFacturasCliente_Impl.pas">
<Form>srvFacturasCliente</Form>
<DesignClass>TDataAbstractService</DesignClass>
</DCCReference>
<DCCReference Include="..\Modulos\Facturas de proveedor\Model\schFacturasProveedorClient_Intf.pas"/>
<DCCReference Include="..\Modulos\Facturas de proveedor\Model\schFacturasProveedorServer_Intf.pas"/>
<DCCReference Include="..\Modulos\Facturas de proveedor\Model\uBizFacturasProveedorServer.pas"/>
<DCCReference Include="..\Modulos\Facturas de proveedor\Servidor\srvFacturasProveedor_Impl.pas">
<Form>srvFacturasProveedor</Form>
<DesignClass>TDataAbstractService</DesignClass>
</DCCReference>
<DCCReference Include="..\Modulos\Familias\Model\schFamiliasClient_Intf.pas"/>
<DCCReference Include="..\Modulos\Familias\Model\schFamiliasServer_Intf.pas"/>
<DCCReference Include="..\Modulos\Familias\Servidor\srvFamilias_Impl.pas"/>
<DCCReference Include="..\Modulos\Formas de pago\Model\schFormasPagoClient_Intf.pas"/>
<DCCReference Include="..\Modulos\Formas de pago\Model\schFormasPagoServer_Intf.pas"/>
<DCCReference Include="..\Modulos\Formas de pago\Servidor\srvFormasPago_Impl.pas"/>
<DCCReference Include="..\Modulos\Formas de pago\Servidor\srvUnidadesMedida_Impl.pas"/>
<DCCReference Include="..\Modulos\Gestion de documentos\Servidor\srvGestorDocumentos_Impl.pas">
<Form>srvGestorDocumentos</Form>
<DesignClass>TDataAbstractService</DesignClass>
</DCCReference>
<DCCReference Include="..\Modulos\Historico de movimientos\Model\schHistoricoMovimientosClient_Intf.pas"/>
<DCCReference Include="..\Modulos\Historico de movimientos\Model\schHistoricoMovimientosServer_Intf.pas"/>
<DCCReference Include="..\Modulos\Historico de movimientos\Servidor\srvHistoricoMovimientos_Impl.pas">
<Form>srvHistoricoMovimientos</Form>
<DesignClass>TDataAbstractService</DesignClass>
</DCCReference>
<DCCReference Include="..\Modulos\Inventario\Model\schInventarioClient_Intf.pas"/>
<DCCReference Include="..\Modulos\Inventario\Model\schInventarioServer_Intf.pas"/>
<DCCReference Include="..\Modulos\Inventario\Servidor\srvInventario_Impl.pas">
<Form>srvInventario</Form>
<DesignClass>TDataAbstractService</DesignClass>
</DCCReference>
<DCCReference Include="..\Modulos\Obras\Model\schObrasClient_Intf.pas"/>
<DCCReference Include="..\Modulos\Obras\Model\schObrasServer_Intf.pas"/>
<DCCReference Include="..\Modulos\Obras\Model\uBizObrasServer.pas"/>
<DCCReference Include="..\Modulos\Obras\Servidor\srvObras_Impl.pas"/>
<DCCReference Include="..\Modulos\Pedidos a proveedor\Model\schPedidosProveedorClient_Intf.pas"/>
<DCCReference Include="..\Modulos\Pedidos a proveedor\Model\schPedidosProveedorServer_Intf.pas"/>
<DCCReference Include="..\Modulos\Pedidos a proveedor\Model\uBizPedidosProveedorServer.pas"/>
<DCCReference Include="..\Modulos\Pedidos a proveedor\Reports\uRptPedidosProveedor_Server.pas">
<Form>RptPedidosProveedor</Form>
<DesignClass>TDataModule</DesignClass>
</DCCReference>
<DCCReference Include="..\Modulos\Pedidos a proveedor\Reports\uRptWordPedidoProveedor.pas">
<Form>RptWordPedidoProveedor</Form>
<DesignClass>TDataModule</DesignClass>
</DCCReference>
<DCCReference Include="..\Modulos\Pedidos a proveedor\Servidor\srvPedidosProveedor_Impl.pas">
<Form>srvPedidosProveedor</Form>
<DesignClass>TDataAbstractService</DesignClass>
</DCCReference>
<DCCReference Include="..\Modulos\Presupuestos de cliente\Model\schPresupuestosClienteClient_Intf.pas"/>
<DCCReference Include="..\Modulos\Presupuestos de cliente\Model\schPresupuestosClienteServer_Intf.pas"/>
<DCCReference Include="..\Modulos\Presupuestos de cliente\Model\uBizPresupuestosClienteServer.pas"/>
<DCCReference Include="..\Modulos\Presupuestos de cliente\Reports\uRptPresupuestosCliente_Server.pas">
<Form>RptPresupuestosCliente</Form>
<DesignClass>TDataModule</DesignClass>
</DCCReference>
<DCCReference Include="..\Modulos\Presupuestos de cliente\Reports\uRptWordCertificadoTrabajo_Server.pas">
<Form>RptWordCertificadoTrabajo</Form>
<DesignClass>TDataModule</DesignClass>
</DCCReference>
<DCCReference Include="..\Modulos\Presupuestos de cliente\Reports\uRptWordPresupuestoCliente.pas">
<Form>RptWordPresupuestoCliente</Form>
<DesignClass>TDataModule</DesignClass>
</DCCReference>
<DCCReference Include="..\Modulos\Presupuestos de cliente\Servidor\srvPresupuestosCliente_Impl.pas">
<Form>srvPresupuestosCliente</Form>
<DesignClass>TDataAbstractService</DesignClass>
</DCCReference>
<DCCReference Include="..\Modulos\Recibos de cliente\Model\schRecibosClienteClient_Intf.pas"/>
<DCCReference Include="..\Modulos\Recibos de cliente\Model\schRecibosClienteServer_Intf.pas"/>
<DCCReference Include="..\Modulos\Recibos de cliente\Reports\uRptRecibosCliente_Server.pas">
<Form>RptRecibosCliente</Form>
<DesignClass>TDataModule</DesignClass>
</DCCReference>
<DCCReference Include="..\Modulos\Recibos de cliente\Servidor\srvRecibosCliente_Impl.pas">
<Form>srvRecibosCliente</Form>
<DesignClass>TDataAbstractService</DesignClass>
</DCCReference>
<DCCReference Include="..\Modulos\Recibos de proveedor\Model\schRecibosProveedorClient_Intf.pas"/>
<DCCReference Include="..\Modulos\Recibos de proveedor\Model\schRecibosProveedorServer_Intf.pas"/>
<DCCReference Include="..\Modulos\Recibos de proveedor\Servidor\srvRecibosProveedor_Impl.pas">
<Form>srvRecibosProveedor</Form>
<DesignClass>TDataAbstractService</DesignClass>
</DCCReference>
<DCCReference Include="..\Modulos\Referencias\Model\schReferenciasClient_Intf.pas"/>
<DCCReference Include="..\Modulos\Referencias\Model\schReferenciasServer_Intf.pas"/>
<DCCReference Include="..\Modulos\Referencias\Servidor\srvReferencias_Impl.pas">
<Form>srvReferencias</Form>
<DesignClass>TDataAbstractService</DesignClass>
</DCCReference>
<DCCReference Include="..\Modulos\Remesas de cliente\Model\schRemesasClienteClient_Intf.pas"/>
<DCCReference Include="..\Modulos\Remesas de cliente\Model\schRemesasClienteServer_Intf.pas"/>
<DCCReference Include="..\Modulos\Remesas de cliente\Model\uBizRemesasClienteServer.pas"/>
<DCCReference Include="..\Modulos\Remesas de cliente\Servidor\srvRemesasCliente_Impl.pas">
<Form>srvRemesasCliente</Form>
<DesignClass>TDataAbstractService</DesignClass>
</DCCReference>
<DCCReference Include="..\Modulos\Remesas de proveedor\Model\schRemesasProveedorClient_Intf.pas"/>
<DCCReference Include="..\Modulos\Remesas de proveedor\Model\schRemesasProveedorServer_Intf.pas"/>
<DCCReference Include="..\Modulos\Remesas de proveedor\Model\uBizRemesasProveedorServer.pas"/>
<DCCReference Include="..\Modulos\Remesas de proveedor\Servidor\srvRemesasProveedor_Impl.pas">
<Form>srvRemesasProveedor</Form>
<DesignClass>TDataAbstractService</DesignClass>
</DCCReference>
<DCCReference Include="..\Modulos\Tipos de IVA\Model\schTiposIVAClient_Intf.pas"/>
<DCCReference Include="..\Modulos\Tipos de IVA\Model\schTiposIVAServer_Intf.pas"/>
<DCCReference Include="..\Modulos\Tipos de IVA\Servidor\srvTiposIVA_Impl.pas"/>
<DCCReference Include="..\Modulos\Unidades de medida\Model\schUnidadesMedidaClient_Intf.pas"/>
<DCCReference Include="..\Modulos\Unidades de medida\Model\schUnidadesMedidaServer_Intf.pas"/>
<DCCReference Include="..\Modulos\Unidades de medida\Servidor\srvUnidadesMedida_Impl.pas">
<Form>srvUnidadesMedida</Form>
<DesignClass>TDataAbstractService</DesignClass>
</DCCReference>
<DCCReference Include="..\Servicios\FactuGES_Intf.pas"/>
<DCCReference Include="..\Servicios\FactuGES_Invk.pas"/>
<DCCReference Include="Configuracion\srvConfiguracion_Impl.pas">
<Form>srvConfiguracion</Form>
<DesignClass>TDataAbstractService</DesignClass>
</DCCReference>
<DCCReference Include="Configuracion\uConexionBD.pas">
<Form>frConexionBD</Form>
<DesignClass>TFrame</DesignClass>
</DCCReference>
<DCCReference Include="Configuracion\uConfGeneral.pas">
<Form>frConfGeneral</Form>
<DesignClass>TFrame</DesignClass>
</DCCReference>
<DCCReference Include="Configuracion\uConfiguracion.pas">
<Form>fConfiguracion</Form>
<DesignClass>TForm</DesignClass>
</DCCReference>
<DCCReference Include="Configuracion\uFrameConfiguracion.pas">
<Form>FrameConfiguracion</Form>
<DesignClass>TFrame</DesignClass>
</DCCReference>
<DCCReference Include="srvLogin_Impl.pas">
<Form>srvLogin</Form>
<DesignClass>TDARemoteService</DesignClass>
</DCCReference>
<DCCReference Include="uAcercaDe.pas">
<Form>fAcercaDe</Form>
</DCCReference>
<DCCReference Include="uDataModuleServer.pas">
<Form>dmServer</Form>
<DesignClass>TDataModule</DesignClass>
</DCCReference>
<DCCReference Include="uServerMainForm.pas">
<Form>fServerForm</Form>
</DCCReference>
<DCCReference Include="Utiles\AHWord97.pas"/>
<DCCReference Include="Utiles\RegExpr.pas"/>
<DCCReference Include="Utiles\uBusinessUtils.pas"/>
<DCCReference Include="Utiles\uDatabaseUtils.pas"/>
<DCCReference Include="Utiles\uReferenciasUtils.pas"/>
<DCCReference Include="Utiles\uRestriccionesUsuarioUtils.pas"/>
<DCCReference Include="Utiles\uSchemaUtilsServer.pas"/>
<DCCReference Include="Utiles\uServerAppUtils.pas"/>
<DCCReference Include="Utiles\uSesionesUtils.pas"/>
</ItemGroup>
</Project>
<!-- EurekaLog First Line
[Exception Log]

2
Source/Servidor/FactuGES_Server.rc
View File

@ -14,7 +14,7 @@ BEGIN
BEGIN
VALUE "FileVersion", "1.2.7.0\0"
VALUE "ProductVersion", "1.2.7.0\0"
VALUE "CompileDate", "miércoles, 03 de septiembre de 2008 12:40\0"
VALUE "CompileDate", "jueves, 04 de septiembre de 2008 16:14\0"
END
END
BLOCK "VarFileInfo"