Acana_Interiorismo/FactuGES2
2
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Se adaptan los detalles para que soporten cantidades float y no solo integer

Browse Source 
git-svn-id: https://192.168.0.254/svn/Proyectos.Acana_FactuGES2/trunk@483 f4e31baf-9722-1c47-927c-6f952f962d4b
This commit is contained in:
roberto 2009-12-15 17:31:48 +00:00
parent 1f0194d47c
commit 42567b72d2
55 changed files with 1285 additions and 1144 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

39
Database/scripts/factuges.sql
View File

@ -76,6 +76,8 @@ FLOAT;
CREATE DOMAIN TIPO_USUARIO AS
VARCHAR(30);
CREATE DOMAIN TIPO_CANTIDAD AS
NUMERIC(11,2);
/******************************************************************************/
@ -481,7 +483,7 @@ CREATE TABLE ALBARANES_CLIENTE_DETALLES (
TIPO_DETALLE VARCHAR(10),
ID_ARTICULO TIPO_ID,
CONCEPTO TIPO_CONCEPTO,
CANTIDAD INTEGER,
CANTIDAD TIPO_CANTIDAD,
IMPORTE_UNIDAD TIPO_IMPORTE,
DESCUENTO TIPO_PORCENTAJE,
IMPORTE_PORTE TIPO_IMPORTE,
@ -535,7 +537,7 @@ CREATE TABLE ALBARANES_PROVEEDOR_DETALLES (
TIPO_DETALLE VARCHAR(10),
ID_ARTICULO TIPO_ID,
CONCEPTO TIPO_CONCEPTO,
CANTIDAD INTEGER,
CANTIDAD TIPO_CANTIDAD,
IMPORTE_UNIDAD TIPO_IMPORTE,
DESCUENTO TIPO_PORCENTAJE,
IMPORTE_PORTE TIPO_IMPORTE,
@ -925,7 +927,7 @@ CREATE TABLE FACTURAS_CLIENTE_DETALLES (
TIPO_DETALLE VARCHAR(10),
ID_ARTICULO TIPO_ID,
CONCEPTO TIPO_CONCEPTO,
CANTIDAD INTEGER,
CANTIDAD TIPO_CANTIDAD,
IMPORTE_UNIDAD TIPO_IMPORTE,
DESCUENTO TIPO_PORCENTAJE,
IMPORTE_PORTE TIPO_IMPORTE,
@ -977,7 +979,7 @@ CREATE TABLE FACTURAS_PROVEEDOR_DETALLES (
TIPO_DETALLE VARCHAR(10),
ID_ARTICULO TIPO_ID,
CONCEPTO TIPO_CONCEPTO,
CANTIDAD INTEGER,
CANTIDAD TIPO_CANTIDAD,
IMPORTE_UNIDAD TIPO_IMPORTE,
DESCUENTO TIPO_PORCENTAJE,
IMPORTE_PORTE TIPO_IMPORTE,
@ -1029,7 +1031,7 @@ CREATE TABLE MOVIMIENTOS (
ID_ARTICULO TIPO_ID,
FECHA_MOVIMIENTO DATE,
TIPO VARCHAR(1),
CANTIDAD INTEGER,
CANTIDAD TIPO_CANTIDAD,
CAUSA TIPO_CONCEPTO
);
@ -1105,7 +1107,7 @@ CREATE TABLE PEDIDOS_CLIENTE_DETALLES (
TIPO_DETALLE VARCHAR(10),
ID_ARTICULO TIPO_ID,
CONCEPTO TIPO_CONCEPTO,
CANTIDAD INTEGER,
CANTIDAD TIPO_CANTIDAD,
IMPORTE_UNIDAD TIPO_IMPORTE,
DESCUENTO TIPO_PORCENTAJE,
IMPORTE_PORTE TIPO_IMPORTE,
@ -1157,7 +1159,7 @@ CREATE TABLE PEDIDOS_PROVEEDOR_DETALLES (
TIPO_DETALLE VARCHAR(10),
ID_ARTICULO TIPO_ID,
CONCEPTO TIPO_CONCEPTO,
CANTIDAD INTEGER,
CANTIDAD TIPO_CANTIDAD,
IMPORTE_UNIDAD TIPO_IMPORTE,
DESCUENTO TIPO_PORCENTAJE,
IMPORTE_PORTE TIPO_IMPORTE,
@ -1256,7 +1258,7 @@ CREATE TABLE PRESUPUESTOS_CLIENTE_DETALLES (
ID_ARTICULO TIPO_ID,
TIPO_ARTICULO VARCHAR(2) COLLATE ES_ES,
CONCEPTO TIPO_CONCEPTO,
CANTIDAD INTEGER,
CANTIDAD TIPO_CANTIDAD,
IMPORTE_UNIDAD TIPO_IMPORTE,
DESCUENTO TIPO_PORCENTAJE,
IMPORTE_PORTE TIPO_IMPORTE,
@ -1316,7 +1318,7 @@ CREATE TABLE CONTRATOS_CLIENTE_DETALLES (
ID_ARTICULO TIPO_ID,
TIPO_ARTICULO VARCHAR(2) COLLATE ES_ES,
CONCEPTO TIPO_CONCEPTO,
CANTIDAD INTEGER,
CANTIDAD TIPO_CANTIDAD,
IMPORTE_UNIDAD TIPO_IMPORTE,
DESCUENTO TIPO_PORCENTAJE,
IMPORTE_PORTE TIPO_IMPORTE,
@ -2737,9 +2739,6 @@ SELECT FACTURAS_CLIENTE.ID,
;
update facturas_cliente
set sin_comision = 0;
/* Create view: V_FACTURAS_PROVEEDOR*/
CREATE VIEW V_FACTURAS_PROVEEDOR(
ID,
@ -3639,7 +3638,8 @@ CREATE VIEW V_PRESUPUESTOS_CLIENTE(
ID_VENDEDOR,
VENDEDOR,
ID_CONTRATO,
REF_CONTRATO)
REF_CONTRATO,
NO_VALORADO)
AS
SELECT
PRESUPUESTOS_CLIENTE.ID,
@ -3681,7 +3681,8 @@ SELECT
PRESUPUESTOS_CLIENTE.ID_VENDEDOR,
CONTACTOS2.NOMBRE AS VENDEDOR,
PRESUPUESTOS_CLIENTE.ID_CONTRATO,
CONTRATOS_CLIENTE.REFERENCIA
CONTRATOS_CLIENTE.REFERENCIA,
PRESUPUESTOS_CLIENTE.NO_VALORADO
FROM
PRESUPUESTOS_CLIENTE
@ -5178,11 +5179,11 @@ returns (
posicion integer,
tipo_detalle varchar(25),
concepto varchar(2000),
importe_total numeric(11,2),
importe_total numeric(11,4),
visible smallint,
tipo_articulo varchar(2),
descuento float,
importe_descuento numeric(11,2))
importe_descuento numeric(11,4))
as
declare variable num_filas integer;
declare variable contador integer;
@ -5478,10 +5479,10 @@ returns (
propiedad varchar(50),
concepto varchar(2000),
cantidad numeric(11,2),
importe_unidad numeric(11,2),
importe_unidad numeric(11,4),
descuento numeric(2,2),
importe_porte numeric(11,2),
importe_total numeric(11,2),
importe_porte numeric(11,4),
importe_total numeric(11,4),
visible smallint)
as
declare variable capitulo_actual integer;

102
Database/scripts/factuges_borrarvistas.sql Normal file
View File

@ -0,0 +1,102 @@
DROP VIEW V_INV_DETALLE_RESERVAS;
DROP VIEW V_ARTICULOS;
/*
VISTAS RELATIVAS A PEDIDOS Y ALBARANES
*/
DROP VIEW V_HISTORICO_MOVIMIENTOS;
DROP VIEW V_HIS_MOV_AUX;
DROP VIEW V_HIS_MOV_ALB_CLI;
DROP VIEW V_HIS_MOV_ALB_PROV;
DROP VIEW V_HIS_MOV_REGULARIZACIONES;
DROP VIEW V_INVENTARIO;
DROP VIEW V_INVENTARIO_AUX;
DROP VIEW V_INV_STOCK;
DROP VIEW V_INV_STOCK_AUX;
DROP VIEW V_INV_ENTRADAS_PENDIENTES;
DROP VIEW V_INV_SALIDAS;
DROP VIEW V_INV_SALIDAS_AUX;
DROP VIEW V_INV_SALIDAS_MOV;
DROP VIEW V_INV_ENTRADAS;
DROP VIEW V_INV_ENTRADAS_AUX;
DROP VIEW V_INV_ENTRADAS_MOV;
DROP VIEW V_INV_ENTRADAS_ALB;
DROP VIEW V_INV_RESERVAS;
DROP VIEW V_INV_SALIDAS_ALB;
DROP VIEW V_ALB_CLI_DETALLES;
DROP VIEW V_ALBARANES_CLIENTE;
DROP VIEW V_ALB_CLI_SITUACION;
DROP VIEW V_PEDIDOS_PROVEEDOR;
DROP VIEW V_PED_PROV_SITUACION;
DROP VIEW V_PED_PROV_ARTICULOS;
DROP VIEW V_PED_PROV_ARTICULOS_AUX;
DROP VIEW V_PED_PROV_ARTICULOS_RECIBIDOS;
DROP VIEW V_PED_PROV_DETALLES;
DROP VIEW V_ALB_PROV_DETALLES;
/*
VISTAS GENERALES
*/
DROP VIEW V_FACTURAS_CLIENTE;
DROP VIEW V_FACTURAS_PROVEEDOR;
DROP VIEW V_FAC_CLI_SITUACION;
DROP VIEW V_FAC_PRO_SITUACION;
DROP VIEW V_REC_FAC_CLI_COBRADOS;
DROP VIEW V_REC_FAC_PRO_PAGADOS;
DROP VIEW V_RECIBOS_CLIENTE;
DROP VIEW V_REMESAS_CLIENTE;
DROP VIEW V_REC_CLI_COMPENSADOS;
DROP VIEW V_RECIBOS_PROVEEDOR;
DROP VIEW V_REMESAS_PROVEEDOR;
DROP VIEW V_REC_PRO_COMPENSADOS;
DROP VIEW V_REC_CLI_SITUACION;
DROP VIEW V_REC_PRO_SITUACION;
DROP VIEW V_REC_FAC_CLI;
DROP VIEW V_REC_FAC_PRO;
DROP VIEW V_VENDEDORES;
DROP VIEW V_ALBARANES_PROVEEDOR;
DROP VIEW V_PROVEEDORES;
DROP VIEW V_CLIENTES;
DROP VIEW V_CONTACTOS;
DROP VIEW V_COMISIONES;
DROP VIEW V_PAGOS_CLIENTE;
DROP VIEW V_PAGOS_PROVEEDOR;
DROP VIEW V_PRESUPUESTOS_CLIENTE;
DROP VIEW V_CONTRATOS_CLIENTE;
DROP VIEW V_PERFILES;
DROP VIEW V_USUARIOS;
/*CONTABILIDAD*/
DROP VIEW V_CONT_SUBCUENTAS;
DROP VIEW V_CONT_SUBCUENTAS_SALDO;
DROP VIEW V_CONT_PAGOS_PRO_COMPRAS;
DROP VIEW V_CONT_FAC_PRO_COMPRAS;
DROP VIEW V_CONT_PAGOS_CLI_VENTAS;
DROP VIEW V_CONT_FAC_CLI_VENTAS;
DROP VIEW V_CONT_EPIGRAFES;
DROP VIEW V_CONT_CUENTAS;
commit work;
/*NO PUEDE SER BORRADA A NO SER QUE SE BORREN LOS PROCEDIMIENTOS*/
/*DROP VIEW V_CONT_DIARIO;*/

9
Database/scripts/factuges_sysdata.sql
View File

@ -119,10 +119,10 @@ INSERT INTO REFERENCIAS (ID, ID_EMPRESA, ID_TIENDA, CODIGO, VALOR, DESCRIPCION)
INSERT INTO REFERENCIAS (ID, ID_EMPRESA, ID_TIENDA, CODIGO, VALOR, DESCRIPCION) VALUES (74, 1, 0, 'REF_CONTRATOS_CLIENTE', 'COAC08/00000', 'Ref. contrato de cliente General');
INSERT INTO REFERENCIAS (ID, ID_EMPRESA, ID_TIENDA, CODIGO, VALOR, DESCRIPCION) VALUES (75, 1, 1, 'REF_CONTRATOS_CLIENTE', 'COAL08/00000', 'Ref. contrato de cliente Alcalá');
INSERT INTO REFERENCIAS (ID, ID_EMPRESA, ID_TIENDA, CODIGO, VALOR, DESCRIPCION) VALUES (76, 1, 3, 'REF_CONTRATOS_CLIENTE', 'COAB08/00000', 'Ref. contrato de cliente Abeto');
INSERT INTO REFERENCIAS (ID, ID_EMPRESA, ID_TIENDA, CODIGO, VALOR, DESCRIPCION) VALUES (77, 2, 2, 'REF_CONTRATOS_CLIENTE', 'BCOVA08/0000', 'Ref. contrato de cliente Valdebernardo');
INSERT INTO REFERENCIAS (ID, ID_EMPRESA, ID_TIENDA, CODIGO, VALOR, DESCRIPCION) VALUES (77, 2, 5, 'REF_CONTRATOS_CLIENTE', 'BCOVA08/0000', 'Ref. contrato de cliente Valdebernardo');
INSERT INTO REFERENCIAS (ID, ID_EMPRESA, ID_TIENDA, CODIGO, VALOR, DESCRIPCION) VALUES (78, 2, 0, 'REF_CONTRATOS_CLIENTE', 'BCOAC08/0000', 'Ref. contrato de cliente General');
INSERT INTO REFERENCIAS (ID, ID_EMPRESA, ID_TIENDA, CODIGO, VALOR, DESCRIPCION) VALUES (79, 2, 1, 'REF_CONTRATOS_CLIENTE', 'BCOAL08/0000', 'Ref. contrato de cliente Alcalá');
INSERT INTO REFERENCIAS (ID, ID_EMPRESA, ID_TIENDA, CODIGO, VALOR, DESCRIPCION) VALUES (80, 2, 3, 'REF_CONTRATOS_CLIENTE', 'BCOAB08/0000', 'Ref. contrato de cliente Abeto');
INSERT INTO REFERENCIAS (ID, ID_EMPRESA, ID_TIENDA, CODIGO, VALOR, DESCRIPCION) VALUES (79, 2, 4, 'REF_CONTRATOS_CLIENTE', 'BCOAL08/0000', 'Ref. contrato de cliente Alcalá');
INSERT INTO REFERENCIAS (ID, ID_EMPRESA, ID_TIENDA, CODIGO, VALOR, DESCRIPCION) VALUES (80, 2, 6, 'REF_CONTRATOS_CLIENTE', 'BCOAB08/0000', 'Ref. contrato de cliente Abeto');
COMMIT WORK;
@ -147,3 +147,6 @@ INSERT INTO UNIDADES_MEDIDA (ID, DESCRIPCION) VALUES (10, 'PAQUETE');
SET GENERATOR GEN_UNIDADES_MEDIDA_ID TO 11;
COMMIT WORK;
update facturas_cliente
set sin_comision = 0;
COMMIT WORK;

96
Source/Base/Base.dproj
View File

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

2
Source/Base/Controladores/uControllerDetallesBase.pas
View File

@ -150,7 +150,7 @@ end;
function TControllerDetallesBase.CalcularImporteTotalConcepto(DataTable: TDADataTable): Double;
begin
with DataTable do
Result := FieldByName(CAMPO_CANTIDAD).asInteger * FieldByName(CAMPO_IMPORTE_UNIDAD).AsFloat;
Result := FieldByName(CAMPO_CANTIDAD).asFloat * FieldByName(CAMPO_IMPORTE_UNIDAD).AsFloat;
end;
function TControllerDetallesBase.CalcularTotales(Modificar: boolean; DataTable: TDADataTable): Double;

12
Source/Base/Utiles/uCalculosUtils.pas
View File

@ -37,14 +37,14 @@ begin
with ADataTable do
begin
if (VarIsNull(FieldByName(CAMPO_DESCUENTO).AsVariant)) then
ImporteTotal := FieldByName(CAMPO_CANTIDAD).asInteger * FieldByName(CAMPO_IMPORTE_UNIDAD).AsFloat
ImporteTotal := FieldByName(CAMPO_CANTIDAD).asFloat * FieldByName(CAMPO_IMPORTE_UNIDAD).AsFloat
else
ImporteTotal := FieldByName(CAMPO_CANTIDAD).asInteger * (FieldByName(CAMPO_IMPORTE_UNIDAD).AsFloat - (FieldByName(CAMPO_IMPORTE_UNIDAD).AsFloat * (FieldByName(CAMPO_DESCUENTO).AsFloat/100)));
ImporteTotal := FieldByName(CAMPO_CANTIDAD).asFloat * (FieldByName(CAMPO_IMPORTE_UNIDAD).AsFloat - (FieldByName(CAMPO_IMPORTE_UNIDAD).AsFloat * (FieldByName(CAMPO_DESCUENTO).AsFloat/100)));
if (VarIsNull(FieldByName(CAMPO_IMPORTE_PORTE).AsVariant)) then
ImporteTotal := ImporteTotal
else
ImporteTotal := ImporteTotal + (FieldByName(CAMPO_CANTIDAD).asInteger * FieldByName(CAMPO_IMPORTE_PORTE).AsFloat);
ImporteTotal := ImporteTotal + (FieldByName(CAMPO_CANTIDAD).asFloat * FieldByName(CAMPO_IMPORTE_PORTE).AsFloat);
end;
Result := ImporteTotal;
@ -67,7 +67,7 @@ end;
procedure DesglosarPorte(ImportePorte: Currency; ADetalles: IDAStronglyTypedDataTable);
var
Unidades: Integer;
Unidades: Double;
ImporteUnidad: Currency;
ImporteSobrante: Currency;
ABookmark : TBookmark;
@ -86,7 +86,7 @@ begin
while not ADetalles.DataTable.eof do
begin
if (ADetalles.DataTable.FieldByName(CAMPO_ID_ARTICULOS).AsInteger > 0) then
Unidades := Unidades + ADetalles.DataTable.FieldByName(CAMPO_CANTIDAD).AsInteger;
Unidades := Unidades + ADetalles.DataTable.FieldByName(CAMPO_CANTIDAD).AsFloat;
ADetalles.DataTable.Next;
end;
@ -137,7 +137,7 @@ begin
while not ADetalles.DataTable.eof do
begin
if (ADetalles.DataTable.FieldByName(CAMPO_ID_ARTICULOS).AsInteger > 0) then
ImporteTotal := ImporteTotal + (ADetalles.DataTable.FieldByName(CAMPO_CANTIDAD).AsInteger * ADetalles.DataTable.FieldByName(CAMPO_IMPORTE_PORTE).AsFloat);
ImporteTotal := ImporteTotal + (ADetalles.DataTable.FieldByName(CAMPO_CANTIDAD).AsFloat * ADetalles.DataTable.FieldByName(CAMPO_IMPORTE_PORTE).AsFloat);
ADetalles.DataTable.Next;
end;

5
Source/GUIBase/uViewDetallesBase.dfm
View File

@ -233,8 +233,9 @@ inherited frViewDetallesBase: TfrViewDetallesBase
object cxGridViewCANTIDAD: TcxGridDBColumn
Caption = 'Cantidad'
DataBinding.FieldName = 'CANTIDAD'
PropertiesClassName = 'TcxMaskEditProperties'
Properties.Alignment.Horz = taRightJustify
PropertiesClassName = 'TcxCurrencyEditProperties'
Properties.DisplayFormat = ',0.##;-,0.##'
Properties.EditFormat = ',0.##;-,0.##'
BestFitMaxWidth = 64
HeaderAlignmentHorz = taRightJustify
Width = 30

2
Source/Modulos/Albaranes de cliente/Data/AlbaranesCliente_data.dproj
View File

@ -41,7 +41,7 @@
<Borland.Personality>Delphi.Personality</Borland.Personality>
<Borland.ProjectType>Package</Borland.ProjectType>
<BorlandProject>
<BorlandProject><Delphi.Personality><Parameters><Parameters Name="UseLauncher">False</Parameters><Parameters Name="LoadAllSymbols">True</Parameters><Parameters Name="LoadUnspecifiedSymbols">False</Parameters></Parameters><Package_Options><Package_Options Name="ImplicitBuild">True</Package_Options><Package_Options Name="DesigntimeOnly">False</Package_Options><Package_Options Name="RuntimeOnly">False</Package_Options></Package_Options><VersionInfo><VersionInfo Name="IncludeVerInfo">True</VersionInfo><VersionInfo Name="AutoIncBuild">False</VersionInfo><VersionInfo Name="MajorVer">1</VersionInfo><VersionInfo Name="MinorVer">0</VersionInfo><VersionInfo Name="Release">0</VersionInfo><VersionInfo Name="Build">0</VersionInfo><VersionInfo Name="Debug">False</VersionInfo><VersionInfo Name="PreRelease">False</VersionInfo><VersionInfo Name="Special">False</VersionInfo><VersionInfo Name="Private">False</VersionInfo><VersionInfo Name="DLL">False</VersionInfo><VersionInfo Name="Locale">3082</VersionInfo><VersionInfo Name="CodePage">1252</VersionInfo></VersionInfo><VersionInfoKeys><VersionInfoKeys Name="CompanyName"></VersionInfoKeys><VersionInfoKeys Name="FileDescription"></VersionInfoKeys><VersionInfoKeys Name="FileVersion">1.0.0.0</VersionInfoKeys><VersionInfoKeys Name="InternalName"></VersionInfoKeys><VersionInfoKeys Name="LegalCopyright"></VersionInfoKeys><VersionInfoKeys Name="LegalTrademarks"></VersionInfoKeys><VersionInfoKeys Name="OriginalFilename"></VersionInfoKeys><VersionInfoKeys Name="ProductName"></VersionInfoKeys><VersionInfoKeys Name="ProductVersion">1.0.0.0</VersionInfoKeys><VersionInfoKeys Name="Comments"></VersionInfoKeys></VersionInfoKeys><Source><Source Name="MainSource">AlbaranesCliente_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">AlbaranesCliente_data.dpk</Source></Source></Delphi.Personality></BorlandProject></BorlandProject>
</ProjectExtensions>
<Import Project="$(MSBuildBinPath)\Borland.Delphi.Targets" />
<ItemGroup>

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

@ -362,7 +362,7 @@ inherited DataModuleAlbaranesCliente: TDataModuleAlbaranesCliente
end
item
Name = 'CANTIDAD'
DataType = datInteger
DataType = datFloat
Alignment = taRightJustify
DictionaryEntry = 'CANTIDAD'
end

32
Source/Modulos/Albaranes de cliente/Model/schAlbaranesClienteClient_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_ListaAnosAlbaranes = '{3FD76345-0267-4CAB-872E-A80F4E99C680}';
RID_AlbaranesCliente = '{88DF5498-A3FD-47CE-BCC4-58551DC487B8}';
RID_AlbaranesCliente_Detalles = '{F8B04F9E-412C-4619-BE66-6371E88EFF2B}';
RID_ListaAnosAlbaranes = '{17726A4E-5A91-4FCC-9EEA-00BB25D5B972}';
RID_AlbaranesCliente = '{F4115AF9-14A0-466F-B917-8EF2340CC9DB}';
RID_AlbaranesCliente_Detalles = '{5BF43F37-E84F-4030-A839-DD2A75B4F475}';
{ Data table names }
nme_ListaAnosAlbaranes = 'ListaAnosAlbaranes';
@ -151,7 +151,7 @@ const
type
{ IListaAnosAlbaranes }
IListaAnosAlbaranes = interface(IDAStronglyTypedDataTable)
['{A66B4C1D-755C-4343-9151-59CB651E3E65}']
['{37509FE2-3951-4C80-A9ED-67F0ED5E63A8}']
{ Property getters and setters }
function GetANOValue: String;
procedure SetANOValue(const aValue: String);
@ -186,7 +186,7 @@ type
{ IAlbaranesCliente }
IAlbaranesCliente = interface(IDAStronglyTypedDataTable)
['{4FF1010A-2F81-47C7-8AFF-26D564E911EA}']
['{EE11BFE0-85D8-41A3-BC1A-E2FD5EDCF6FC}']
{ Property getters and setters }
function GetIDValue: Integer;
procedure SetIDValue(const aValue: Integer);
@ -737,7 +737,7 @@ type
{ IAlbaranesCliente_Detalles }
IAlbaranesCliente_Detalles = interface(IDAStronglyTypedDataTable)
['{619230C6-3730-4350-8418-11AABE561FDB}']
['{69558C4F-1024-405D-978D-61DC9D27C40D}']
{ Property getters and setters }
function GetIDValue: Integer;
procedure SetIDValue(const aValue: Integer);
@ -759,8 +759,8 @@ type
procedure SetCONCEPTOValue(const aValue: String);
function GetCONCEPTOIsNull: Boolean;
procedure SetCONCEPTOIsNull(const aValue: Boolean);
function GetCANTIDADValue: Integer;
procedure SetCANTIDADValue(const aValue: Integer);
function GetCANTIDADValue: Float;
procedure SetCANTIDADValue(const aValue: Float);
function GetCANTIDADIsNull: Boolean;
procedure SetCANTIDADIsNull(const aValue: Boolean);
function GetIMPORTE_UNIDADValue: Currency;
@ -808,7 +808,7 @@ type
property TIPO_DETALLEIsNull: Boolean read GetTIPO_DETALLEIsNull write SetTIPO_DETALLEIsNull;
property CONCEPTO: String read GetCONCEPTOValue write SetCONCEPTOValue;
property CONCEPTOIsNull: Boolean read GetCONCEPTOIsNull write SetCONCEPTOIsNull;
property CANTIDAD: Integer read GetCANTIDADValue write SetCANTIDADValue;
property CANTIDAD: Float read GetCANTIDADValue write SetCANTIDADValue;
property CANTIDADIsNull: Boolean read GetCANTIDADIsNull write SetCANTIDADIsNull;
property IMPORTE_UNIDAD: Currency read GetIMPORTE_UNIDADValue write SetIMPORTE_UNIDADValue;
property IMPORTE_UNIDADIsNull: Boolean read GetIMPORTE_UNIDADIsNull write SetIMPORTE_UNIDADIsNull;
@ -853,8 +853,8 @@ type
procedure SetCONCEPTOValue(const aValue: String); virtual;
function GetCONCEPTOIsNull: Boolean; virtual;
procedure SetCONCEPTOIsNull(const aValue: Boolean); virtual;
function GetCANTIDADValue: Integer; virtual;
procedure SetCANTIDADValue(const aValue: Integer); virtual;
function GetCANTIDADValue: Float; virtual;
procedure SetCANTIDADValue(const aValue: Float); virtual;
function GetCANTIDADIsNull: Boolean; virtual;
procedure SetCANTIDADIsNull(const aValue: Boolean); virtual;
function GetIMPORTE_UNIDADValue: Currency; virtual;
@ -901,7 +901,7 @@ type
property TIPO_DETALLEIsNull: Boolean read GetTIPO_DETALLEIsNull write SetTIPO_DETALLEIsNull;
property CONCEPTO: String read GetCONCEPTOValue write SetCONCEPTOValue;
property CONCEPTOIsNull: Boolean read GetCONCEPTOIsNull write SetCONCEPTOIsNull;
property CANTIDAD: Integer read GetCANTIDADValue write SetCANTIDADValue;
property CANTIDAD: Float read GetCANTIDADValue write SetCANTIDADValue;
property CANTIDADIsNull: Boolean read GetCANTIDADIsNull write SetCANTIDADIsNull;
property IMPORTE_UNIDAD: Currency read GetIMPORTE_UNIDADValue write SetIMPORTE_UNIDADValue;
property IMPORTE_UNIDADIsNull: Boolean read GetIMPORTE_UNIDADIsNull write SetIMPORTE_UNIDADIsNull;
@ -2027,14 +2027,14 @@ begin
DataTable.Fields[idx_AlbaranesCliente_DetallesCONCEPTO].AsVariant := Null;
end;
function TAlbaranesCliente_DetallesDataTableRules.GetCANTIDADValue: Integer;
function TAlbaranesCliente_DetallesDataTableRules.GetCANTIDADValue: Float;
begin
result := DataTable.Fields[idx_AlbaranesCliente_DetallesCANTIDAD].AsInteger;
result := DataTable.Fields[idx_AlbaranesCliente_DetallesCANTIDAD].AsFloat;
end;
procedure TAlbaranesCliente_DetallesDataTableRules.SetCANTIDADValue(const aValue: Integer);
procedure TAlbaranesCliente_DetallesDataTableRules.SetCANTIDADValue(const aValue: Float);
begin
DataTable.Fields[idx_AlbaranesCliente_DetallesCANTIDAD].AsInteger := aValue;
DataTable.Fields[idx_AlbaranesCliente_DetallesCANTIDAD].AsFloat := aValue;
end;
function TAlbaranesCliente_DetallesDataTableRules.GetCANTIDADIsNull: boolean;

32
Source/Modulos/Albaranes de cliente/Model/schAlbaranesClienteServer_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_ListaAnosAlbaranesDelta = '{C2B986AC-7EA4-4932-8892-4602A352691A}';
RID_AlbaranesClienteDelta = '{7525A2BE-7DCC-4C0C-B9E0-16191F9F6416}';
RID_AlbaranesCliente_DetallesDelta = '{10D986DD-E44E-4F55-9CF9-EB504147D343}';
RID_ListaAnosAlbaranesDelta = '{C5E3B735-D225-4270-9E1D-84D7A64C7588}';
RID_AlbaranesClienteDelta = '{78F83AC0-0C1C-4D2A-A679-E44E5444B823}';
RID_AlbaranesCliente_DetallesDelta = '{01B9EB4F-E434-4BBE-BA71-FEB563D95A39}';
type
{ IListaAnosAlbaranesDelta }
IListaAnosAlbaranesDelta = interface(IListaAnosAlbaranes)
['{C2B986AC-7EA4-4932-8892-4602A352691A}']
['{C5E3B735-D225-4270-9E1D-84D7A64C7588}']
{ Property getters and setters }
function GetOldANOValue : String;
@ -50,7 +50,7 @@ type
{ IAlbaranesClienteDelta }
IAlbaranesClienteDelta = interface(IAlbaranesCliente)
['{7525A2BE-7DCC-4C0C-B9E0-16191F9F6416}']
['{78F83AC0-0C1C-4D2A-A679-E44E5444B823}']
{ Property getters and setters }
function GetOldIDValue : Integer;
function GetOldID_EMPRESAValue : Integer;
@ -602,14 +602,14 @@ type
{ IAlbaranesCliente_DetallesDelta }
IAlbaranesCliente_DetallesDelta = interface(IAlbaranesCliente_Detalles)
['{10D986DD-E44E-4F55-9CF9-EB504147D343}']
['{01B9EB4F-E434-4BBE-BA71-FEB563D95A39}']
{ Property getters and setters }
function GetOldIDValue : Integer;
function GetOldID_ALBARANValue : Integer;
function GetOldPOSICIONValue : Integer;
function GetOldTIPO_DETALLEValue : String;
function GetOldCONCEPTOValue : String;
function GetOldCANTIDADValue : Integer;
function GetOldCANTIDADValue : Float;
function GetOldIMPORTE_UNIDADValue : Currency;
function GetOldDESCUENTOValue : Float;
function GetOldIMPORTE_PORTEValue : Currency;
@ -625,7 +625,7 @@ type
property OldPOSICION : Integer read GetOldPOSICIONValue;
property OldTIPO_DETALLE : String read GetOldTIPO_DETALLEValue;
property OldCONCEPTO : String read GetOldCONCEPTOValue;
property OldCANTIDAD : Integer read GetOldCANTIDADValue;
property OldCANTIDAD : Float read GetOldCANTIDADValue;
property OldIMPORTE_UNIDAD : Currency read GetOldIMPORTE_UNIDADValue;
property OldDESCUENTO : Float read GetOldDESCUENTOValue;
property OldIMPORTE_PORTE : Currency read GetOldIMPORTE_PORTEValue;
@ -671,11 +671,11 @@ type
function GetOldCONCEPTOIsNull: Boolean; virtual;
procedure SetCONCEPTOValue(const aValue: String); virtual;
procedure SetCONCEPTOIsNull(const aValue: Boolean); virtual;
function GetCANTIDADValue: Integer; virtual;
function GetCANTIDADValue: Float; virtual;
function GetCANTIDADIsNull: Boolean; virtual;
function GetOldCANTIDADValue: Integer; virtual;
function GetOldCANTIDADValue: Float; virtual;
function GetOldCANTIDADIsNull: Boolean; virtual;
procedure SetCANTIDADValue(const aValue: Integer); virtual;
procedure SetCANTIDADValue(const aValue: Float); virtual;
procedure SetCANTIDADIsNull(const aValue: Boolean); virtual;
function GetIMPORTE_UNIDADValue: Currency; virtual;
function GetIMPORTE_UNIDADIsNull: Boolean; virtual;
@ -747,9 +747,9 @@ type
property CONCEPTOIsNull : Boolean read GetCONCEPTOIsNull write SetCONCEPTOIsNull;
property OldCONCEPTO : String read GetOldCONCEPTOValue;
property OldCONCEPTOIsNull : Boolean read GetOldCONCEPTOIsNull;
property CANTIDAD : Integer read GetCANTIDADValue write SetCANTIDADValue;
property CANTIDAD : Float read GetCANTIDADValue write SetCANTIDADValue;
property CANTIDADIsNull : Boolean read GetCANTIDADIsNull write SetCANTIDADIsNull;
property OldCANTIDAD : Integer read GetOldCANTIDADValue;
property OldCANTIDAD : Float read GetOldCANTIDADValue;
property OldCANTIDADIsNull : Boolean read GetOldCANTIDADIsNull;
property IMPORTE_UNIDAD : Currency read GetIMPORTE_UNIDADValue write SetIMPORTE_UNIDADValue;
property IMPORTE_UNIDADIsNull : Boolean read GetIMPORTE_UNIDADIsNull write SetIMPORTE_UNIDADIsNull;
@ -2394,7 +2394,7 @@ begin
BusinessProcessor.CurrentChange.NewValueByName[fld_AlbaranesCliente_DetallesCONCEPTO] := Null;
end;
function TAlbaranesCliente_DetallesBusinessProcessorRules.GetCANTIDADValue: Integer;
function TAlbaranesCliente_DetallesBusinessProcessorRules.GetCANTIDADValue: Float;
begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_AlbaranesCliente_DetallesCANTIDAD];
end;
@ -2404,7 +2404,7 @@ begin
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_AlbaranesCliente_DetallesCANTIDAD]);
end;
function TAlbaranesCliente_DetallesBusinessProcessorRules.GetOldCANTIDADValue: Integer;
function TAlbaranesCliente_DetallesBusinessProcessorRules.GetOldCANTIDADValue: Float;
begin
result := BusinessProcessor.CurrentChange.OldValueByName[fld_AlbaranesCliente_DetallesCANTIDAD];
end;
@ -2414,7 +2414,7 @@ begin
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_AlbaranesCliente_DetallesCANTIDAD]);
end;
procedure TAlbaranesCliente_DetallesBusinessProcessorRules.SetCANTIDADValue(const aValue: Integer);
procedure TAlbaranesCliente_DetallesBusinessProcessorRules.SetCANTIDADValue(const aValue: Float);
begin
BusinessProcessor.CurrentChange.NewValueByName[fld_AlbaranesCliente_DetallesCANTIDAD] := aValue;
end;

9
Source/Modulos/Albaranes de cliente/Reports/uRptAlbaranesCliente_Server.dfm
View File

@ -678,6 +678,11 @@ object RptAlbaranesCliente: TRptAlbaranesCliente
item
DatasetField = 'DESCUENTO'
TableField = 'DESCUENTO'
end
item
DatasetField = 'CONCEPTO_RTF'
TableField = '<unknown>'
SQLOrigin = 'CONCEPTO_RTF'
end>
end>
Name = 'Informe_Detalles'
@ -707,11 +712,11 @@ object RptAlbaranesCliente: TRptAlbaranesCliente
item
Name = 'CONCEPTO'
DataType = datString
Size = 2000
Size = 32765
end
item
Name = 'CANTIDAD'
DataType = datInteger
DataType = datCurrency
end
item
Name = 'DESCUENTO'

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

@ -588,7 +588,7 @@ object srvAlbaranesCliente: TsrvAlbaranesCliente
end
item
Name = 'CANTIDAD'
DataType = datInteger
DataType = datFloat
DictionaryEntry = 'CANTIDAD'
end
item
@ -1535,7 +1535,7 @@ object srvAlbaranesCliente: TsrvAlbaranesCliente
end
item
Name = 'CANTIDAD'
DataType = datInteger
DataType = datFloat
Alignment = taRightJustify
end
item

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

@ -41,60 +41,19 @@
<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

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.

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

@ -320,7 +320,7 @@ inherited DataModuleAlbaranesProveedor: TDataModuleAlbaranesProveedor
end
item
Name = 'CANTIDAD'
DataType = datInteger
DataType = datCurrency
DictionaryEntry = 'CANTIDAD'
end
item

28
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 = '{3F159891-20AC-4728-BAAB-3B16AB745437}';
RID_AlbaranesProveedor_Detalles = '{EDF49D53-B867-4DD5-B137-E1406B18A5F4}';
RID_AlbaranesProveedor = '{FC51EA41-4822-47DC-9EA6-8A81B75EEBF0}';
RID_AlbaranesProveedor_Detalles = '{D33B5B6F-E114-4A97-B524-94872D62277C}';
{ Data table names }
nme_AlbaranesProveedor = 'AlbaranesProveedor';
@ -133,7 +133,7 @@ const
type
{ IAlbaranesProveedor }
IAlbaranesProveedor = interface(IDAStronglyTypedDataTable)
['{DF86E222-838A-4191-A322-32E85EF36CF5}']
['{5166113D-4E31-4A0E-9B2A-D95DE1724A0C}']
{ Property getters and setters }
function GetIDValue: Integer;
procedure SetIDValue(const aValue: Integer);
@ -624,7 +624,7 @@ type
{ IAlbaranesProveedor_Detalles }
IAlbaranesProveedor_Detalles = interface(IDAStronglyTypedDataTable)
['{72E5DE8B-9611-4DF1-A51A-ABF0D0F340C6}']
['{4589DE0C-CDAD-4373-B7D2-D433C4DED5BF}']
{ Property getters and setters }
function GetIDValue: Integer;
procedure SetIDValue(const aValue: Integer);
@ -646,8 +646,8 @@ type
procedure SetCONCEPTOValue(const aValue: String);
function GetCONCEPTOIsNull: Boolean;
procedure SetCONCEPTOIsNull(const aValue: Boolean);
function GetCANTIDADValue: Integer;
procedure SetCANTIDADValue(const aValue: Integer);
function GetCANTIDADValue: Currency;
procedure SetCANTIDADValue(const aValue: Currency);
function GetCANTIDADIsNull: Boolean;
procedure SetCANTIDADIsNull(const aValue: Boolean);
function GetIMPORTE_UNIDADValue: Currency;
@ -695,7 +695,7 @@ type
property TIPO_DETALLEIsNull: Boolean read GetTIPO_DETALLEIsNull write SetTIPO_DETALLEIsNull;
property CONCEPTO: String read GetCONCEPTOValue write SetCONCEPTOValue;
property CONCEPTOIsNull: Boolean read GetCONCEPTOIsNull write SetCONCEPTOIsNull;
property CANTIDAD: Integer read GetCANTIDADValue write SetCANTIDADValue;
property CANTIDAD: Currency read GetCANTIDADValue write SetCANTIDADValue;
property CANTIDADIsNull: Boolean read GetCANTIDADIsNull write SetCANTIDADIsNull;
property IMPORTE_UNIDAD: Currency read GetIMPORTE_UNIDADValue write SetIMPORTE_UNIDADValue;
property IMPORTE_UNIDADIsNull: Boolean read GetIMPORTE_UNIDADIsNull write SetIMPORTE_UNIDADIsNull;
@ -740,8 +740,8 @@ type
procedure SetCONCEPTOValue(const aValue: String); virtual;
function GetCONCEPTOIsNull: Boolean; virtual;
procedure SetCONCEPTOIsNull(const aValue: Boolean); virtual;
function GetCANTIDADValue: Integer; virtual;
procedure SetCANTIDADValue(const aValue: Integer); virtual;
function GetCANTIDADValue: Currency; virtual;
procedure SetCANTIDADValue(const aValue: Currency); virtual;
function GetCANTIDADIsNull: Boolean; virtual;
procedure SetCANTIDADIsNull(const aValue: Boolean); virtual;
function GetIMPORTE_UNIDADValue: Currency; virtual;
@ -788,7 +788,7 @@ type
property TIPO_DETALLEIsNull: Boolean read GetTIPO_DETALLEIsNull write SetTIPO_DETALLEIsNull;
property CONCEPTO: String read GetCONCEPTOValue write SetCONCEPTOValue;
property CONCEPTOIsNull: Boolean read GetCONCEPTOIsNull write SetCONCEPTOIsNull;
property CANTIDAD: Integer read GetCANTIDADValue write SetCANTIDADValue;
property CANTIDAD: Currency read GetCANTIDADValue write SetCANTIDADValue;
property CANTIDADIsNull: Boolean read GetCANTIDADIsNull write SetCANTIDADIsNull;
property IMPORTE_UNIDAD: Currency read GetIMPORTE_UNIDADValue write SetIMPORTE_UNIDADValue;
property IMPORTE_UNIDADIsNull: Boolean read GetIMPORTE_UNIDADIsNull write SetIMPORTE_UNIDADIsNull;
@ -1776,14 +1776,14 @@ begin
DataTable.Fields[idx_AlbaranesProveedor_DetallesCONCEPTO].AsVariant := Null;
end;
function TAlbaranesProveedor_DetallesDataTableRules.GetCANTIDADValue: Integer;
function TAlbaranesProveedor_DetallesDataTableRules.GetCANTIDADValue: Currency;
begin
result := DataTable.Fields[idx_AlbaranesProveedor_DetallesCANTIDAD].AsInteger;
result := DataTable.Fields[idx_AlbaranesProveedor_DetallesCANTIDAD].AsCurrency;
end;
procedure TAlbaranesProveedor_DetallesDataTableRules.SetCANTIDADValue(const aValue: Integer);
procedure TAlbaranesProveedor_DetallesDataTableRules.SetCANTIDADValue(const aValue: Currency);
begin
DataTable.Fields[idx_AlbaranesProveedor_DetallesCANTIDAD].AsInteger := aValue;
DataTable.Fields[idx_AlbaranesProveedor_DetallesCANTIDAD].AsCurrency := aValue;
end;
function TAlbaranesProveedor_DetallesDataTableRules.GetCANTIDADIsNull: boolean;

28
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 = '{9A131B3F-22A5-4DB8-8327-680C633F2C55}';
RID_AlbaranesProveedor_DetallesDelta = '{62B223D8-558C-4A23-9449-D737FDE252BD}';
RID_AlbaranesProveedorDelta = '{C93949D2-C150-41AD-8520-FBC50DBA7ECD}';
RID_AlbaranesProveedor_DetallesDelta = '{EC66A666-6CC9-4784-ABF0-3B63D981C24E}';
type
{ IAlbaranesProveedorDelta }
IAlbaranesProveedorDelta = interface(IAlbaranesProveedor)
['{9A131B3F-22A5-4DB8-8327-680C633F2C55}']
['{C93949D2-C150-41AD-8520-FBC50DBA7ECD}']
{ Property getters and setters }
function GetOldIDValue : Integer;
function GetOldID_EMPRESAValue : Integer;
@ -507,14 +507,14 @@ type
{ IAlbaranesProveedor_DetallesDelta }
IAlbaranesProveedor_DetallesDelta = interface(IAlbaranesProveedor_Detalles)
['{62B223D8-558C-4A23-9449-D737FDE252BD}']
['{EC66A666-6CC9-4784-ABF0-3B63D981C24E}']
{ Property getters and setters }
function GetOldIDValue : Integer;
function GetOldID_ALBARANValue : Integer;
function GetOldPOSICIONValue : Integer;
function GetOldTIPO_DETALLEValue : String;
function GetOldCONCEPTOValue : String;
function GetOldCANTIDADValue : Integer;
function GetOldCANTIDADValue : Currency;
function GetOldIMPORTE_UNIDADValue : Currency;
function GetOldIMPORTE_TOTALValue : Currency;
function GetOldVISIBLEValue : Integer;
@ -530,7 +530,7 @@ type
property OldPOSICION : Integer read GetOldPOSICIONValue;
property OldTIPO_DETALLE : String read GetOldTIPO_DETALLEValue;
property OldCONCEPTO : String read GetOldCONCEPTOValue;
property OldCANTIDAD : Integer read GetOldCANTIDADValue;
property OldCANTIDAD : Currency read GetOldCANTIDADValue;
property OldIMPORTE_UNIDAD : Currency read GetOldIMPORTE_UNIDADValue;
property OldIMPORTE_TOTAL : Currency read GetOldIMPORTE_TOTALValue;
property OldVISIBLE : Integer read GetOldVISIBLEValue;
@ -576,11 +576,11 @@ type
function GetOldCONCEPTOIsNull: Boolean; virtual;
procedure SetCONCEPTOValue(const aValue: String); virtual;
procedure SetCONCEPTOIsNull(const aValue: Boolean); virtual;
function GetCANTIDADValue: Integer; virtual;
function GetCANTIDADValue: Currency; virtual;
function GetCANTIDADIsNull: Boolean; virtual;
function GetOldCANTIDADValue: Integer; virtual;
function GetOldCANTIDADValue: Currency; virtual;
function GetOldCANTIDADIsNull: Boolean; virtual;
procedure SetCANTIDADValue(const aValue: Integer); virtual;
procedure SetCANTIDADValue(const aValue: Currency); virtual;
procedure SetCANTIDADIsNull(const aValue: Boolean); virtual;
function GetIMPORTE_UNIDADValue: Currency; virtual;
function GetIMPORTE_UNIDADIsNull: Boolean; virtual;
@ -652,9 +652,9 @@ type
property CONCEPTOIsNull : Boolean read GetCONCEPTOIsNull write SetCONCEPTOIsNull;
property OldCONCEPTO : String read GetOldCONCEPTOValue;
property OldCONCEPTOIsNull : Boolean read GetOldCONCEPTOIsNull;
property CANTIDAD : Integer read GetCANTIDADValue write SetCANTIDADValue;
property CANTIDAD : Currency read GetCANTIDADValue write SetCANTIDADValue;
property CANTIDADIsNull : Boolean read GetCANTIDADIsNull write SetCANTIDADIsNull;
property OldCANTIDAD : Integer read GetOldCANTIDADValue;
property OldCANTIDAD : Currency read GetOldCANTIDADValue;
property OldCANTIDADIsNull : Boolean read GetOldCANTIDADIsNull;
property IMPORTE_UNIDAD : Currency read GetIMPORTE_UNIDADValue write SetIMPORTE_UNIDADValue;
property IMPORTE_UNIDADIsNull : Boolean read GetIMPORTE_UNIDADIsNull write SetIMPORTE_UNIDADIsNull;
@ -2101,7 +2101,7 @@ begin
BusinessProcessor.CurrentChange.NewValueByName[fld_AlbaranesProveedor_DetallesCONCEPTO] := Null;
end;
function TAlbaranesProveedor_DetallesBusinessProcessorRules.GetCANTIDADValue: Integer;
function TAlbaranesProveedor_DetallesBusinessProcessorRules.GetCANTIDADValue: Currency;
begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_AlbaranesProveedor_DetallesCANTIDAD];
end;
@ -2111,7 +2111,7 @@ begin
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_AlbaranesProveedor_DetallesCANTIDAD]);
end;
function TAlbaranesProveedor_DetallesBusinessProcessorRules.GetOldCANTIDADValue: Integer;
function TAlbaranesProveedor_DetallesBusinessProcessorRules.GetOldCANTIDADValue: Currency;
begin
result := BusinessProcessor.CurrentChange.OldValueByName[fld_AlbaranesProveedor_DetallesCANTIDAD];
end;
@ -2121,7 +2121,7 @@ begin
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_AlbaranesProveedor_DetallesCANTIDAD]);
end;
procedure TAlbaranesProveedor_DetallesBusinessProcessorRules.SetCANTIDADValue(const aValue: Integer);
procedure TAlbaranesProveedor_DetallesBusinessProcessorRules.SetCANTIDADValue(const aValue: Currency);
begin
BusinessProcessor.CurrentChange.NewValueByName[fld_AlbaranesProveedor_DetallesCANTIDAD] := aValue;
end;

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

@ -505,7 +505,7 @@ object srvAlbaranesProveedor: TsrvAlbaranesProveedor
end
item
Name = 'CANTIDAD'
DataType = datInteger
DataType = datCurrency
DictionaryEntry = 'CANTIDAD'
end
item

92
Source/Modulos/Articulos/Controller/uControllerDetallesArticulos.pas
View File

@ -15,7 +15,9 @@ type
IControllerDetallesArticulos = interface(IControllerDetallesBase)
['{6E156796-DB1F-4727-BBFB-FBAEF2E5C098}']
procedure AnadirArticulos(ADetalles: IDAStronglyTypedDataTable; const ANuevaFila :Boolean = True);
function AnadirArticulo(ADetalles: IDAStronglyTypedDataTable; Referencia: String; TipoReferencia: TEnumReferencia; AClienteID: Integer = -1; const ACantidad: Integer = 1): Boolean; overload;
function AnadirArticulo(ADetalles: IDAStronglyTypedDataTable; Referencia: String; TipoReferencia: TEnumReferencia; AClienteID: Integer = -1; const ACantidad: Float = 1): Boolean; overload;
function AnadirArticulo(ADetalles: IDAStronglyTypedDataTable; IDArticulo: Integer; AClienteID: Integer = -1; const ACantidad: Float = 1): Boolean; overload;
procedure ActualizarDetalles(ADetalles: IDAStronglyTypedDataTable; AArticulos: IBizArticulo);
procedure CambiarSignoDetalles(ADetalles: IDAStronglyTypedDataTable; const AAll: Boolean = True);
procedure AnadirConceptoInicial(ADetalles: IDAStronglyTypedDataTable; AConcepto: String);
@ -30,15 +32,16 @@ type
procedure RellenarOtros(ADetalles: IDAStronglyTypedDataTable; AArticulos: IBizArticulo); virtual;
procedure RellenarImportes(ADetalles: IDAStronglyTypedDataTable; AArticulos: IBizArticulo); virtual;
procedure RellenarGenerales(ADetalles: IDAStronglyTypedDataTable; AArticulos: IBizArticulo); virtual;
procedure RellenarCantidad(ADetalles: IDAStronglyTypedDataTable; const ACantidad: Integer); virtual;
procedure RellenarDetalle(ADetalles: IDAStronglyTypedDataTable; AArticulos: IBizArticulo; const ACantidad: Integer = 1); virtual;
procedure Add(ADetalles: IDAStronglyTypedDataTable; AArticulos: IBizArticulo; const ACantidad: Integer = 1); overload;
procedure RellenarCantidad(ADetalles: IDAStronglyTypedDataTable; const ACantidad: Float); virtual;
procedure RellenarDetalle(ADetalles: IDAStronglyTypedDataTable; AArticulos: IBizArticulo; const ACantidad: Float = 1); virtual;
procedure Add(ADetalles: IDAStronglyTypedDataTable; AArticulos: IBizArticulo; const ACantidad: Float = 1); overload;
procedure AsignarController; virtual;
public
function AnadirArticulo(ADetalles: IDAStronglyTypedDataTable; Referencia: String; TipoReferencia: TEnumReferencia; AClienteID: Integer = -1; const ACantidad: Integer = 1): Boolean; overload;
procedure AnadirArticulos(ADetalles: IDAStronglyTypedDataTable; const ANuevaFila :Boolean = True);
function AnadirArticulo(ADetalles: IDAStronglyTypedDataTable; Referencia: String; TipoReferencia: TEnumReferencia; AClienteID: Integer = -1; const ACantidad: Float = 1): Boolean; overload;
function AnadirArticulo(ADetalles: IDAStronglyTypedDataTable; IDArticulo: Integer; AClienteID: Integer = -1; const ACantidad: Float = 1): Boolean; overload;
procedure AnadirArticulos(ADetalles: IDAStronglyTypedDataTable; const ANuevaFila :Boolean = True);
procedure ActualizarDetalles(ADetalles: IDAStronglyTypedDataTable; AArticulos: IBizArticulo);
procedure CambiarSignoDetalles(ADetalles: IDAStronglyTypedDataTable; const AAll: Boolean = True);
procedure AnadirConceptoInicial(ADetalles: IDAStronglyTypedDataTable; AConcepto: String);
@ -58,8 +61,8 @@ uses DB, Dialogs, cxControls, SysUtils, uDAInterfaces, uCalculosUtils, schArticu
{ TControllerDetallesArticulos }
procedure TControllerDetallesArticulos.ActualizarDetalles(ADetalles: IDAStronglyTypedDataTable; AArticulos: IBizArticulo);
var
ACantidad: Integer;
var
ACantidad: Float;
begin
if (Assigned(ADetalles) and Assigned(AArticulos)) then
begin
@ -79,7 +82,7 @@ begin
if AArticulos.DataTable.Locate(CAMPO_ID, FieldByName(CAMPO_ID_ARTICULOS).AsVariant, []) then
begin
//Para mantener la cantidad que ya tuviera el detalle se debe guardar y volver a poner
ACantidad := ADetalles.DataTable.FieldByName(CAMPO_CANTIDAD).AsInteger;
ACantidad := ADetalles.DataTable.FieldByName(CAMPO_CANTIDAD).AsFloat;
RellenarDetalle(ADetalles, AArticulos, ACantidad);
end;
except
@ -97,7 +100,7 @@ begin
end;
end;
procedure TControllerDetallesArticulos.Add(ADetalles: IDAStronglyTypedDataTable; AArticulos: IBizArticulo; const ACantidad: Integer);
procedure TControllerDetallesArticulos.Add(ADetalles: IDAStronglyTypedDataTable; AArticulos: IBizArticulo; const ACantidad: Float);
begin
if Assigned(ADetalles) and Assigned(AArticulos) then
begin
@ -128,6 +131,35 @@ begin
end;
end;
function TControllerDetallesArticulos.AnadirArticulo(ADetalles: IDAStronglyTypedDataTable; IDArticulo, AClienteID: Integer; const ACantidad: Float): Boolean;
var
AArticulo: IBizArticulo;
begin
{
Añade el artículo con la referencia pasada por parametro a los detalles pasados por parametro
En el caso de asignar un AClienteID el articulo debe contener el descuento para ese cliente
}
Result := False;
BeginUpdate(ADetalles);
ShowHourglassCursor;
try
AArticulo := FArticulosController.Buscar(IDArticulo, AClienteID);
if Assigned(AArticulo) then
begin
AArticulo.DataTable.Active := True;
if (AArticulo.RecordCount > 0) then
begin
RellenarDetalle(ADetalles, AArticulo, ACantidad);
Result := True;
end;
end;
finally
EndUpdate(ADetalles);
HideHourglassCursor;
end;
end;
procedure TControllerDetallesArticulos.AnadirArticulos(ADetalles: IDAStronglyTypedDataTable; const ANuevaFila: Boolean);
var
AArticulos: IBizArticulo;
@ -206,21 +238,21 @@ begin
First;
while not EOF do
begin
if (FieldByName(CAMPO_CANTIDAD).AsInteger <> 0) then
begin
Edit;
FieldByName(CAMPO_CANTIDAD).AsInteger := (-1) * FieldByName(CAMPO_CANTIDAD).AsInteger;
end;
Next;
end;
end
//Solo cambia el signo al seleccionado
else
if (FieldByName(CAMPO_CANTIDAD).AsFloat <> 0) then
begin
Edit;
FieldByName(CAMPO_CANTIDAD).AsFloat := (-1) * FieldByName(CAMPO_CANTIDAD).AsFloat;
end;
Next;
end;
end
//Solo cambia el signo al seleccionado
else
begin
if (FieldByName(CAMPO_CANTIDAD).AsInteger <> 0) then
if (FieldByName(CAMPO_CANTIDAD).AsFloat <> 0) then
begin
Edit;
FieldByName(CAMPO_CANTIDAD).AsInteger := (-1) * FieldByName(CAMPO_CANTIDAD).AsInteger;
FieldByName(CAMPO_CANTIDAD).AsFloat := (-1) * FieldByName(CAMPO_CANTIDAD).AsFloat;
end;
end;
end;
@ -258,7 +290,7 @@ begin
end;
end;
function TControllerDetallesArticulos.AnadirArticulo(ADetalles: IDAStronglyTypedDataTable; Referencia: String; TipoReferencia: TEnumReferencia; AClienteID: Integer = -1; const ACantidad: Integer = 1): Boolean;
function TControllerDetallesArticulos.AnadirArticulo(ADetalles: IDAStronglyTypedDataTable; Referencia: String; TipoReferencia: TEnumReferencia; AClienteID: Integer = -1; const ACantidad: Float = 1): Boolean;
var
AArticulo: IBizArticulo;
begin
@ -290,12 +322,12 @@ begin
end;
end;
procedure TControllerDetallesArticulos.RellenarCantidad(ADetalles: IDAStronglyTypedDataTable; const ACantidad: Integer);
begin
if Assigned(ADetalles) then
begin
ADetalles.DataTable.FieldByName(CAMPO_CANTIDAD).AsInteger := ACantidad;
end;
procedure TControllerDetallesArticulos.RellenarCantidad(ADetalles: IDAStronglyTypedDataTable; const ACantidad: Float);
begin
if Assigned(ADetalles) then
begin
ADetalles.DataTable.FieldByName(CAMPO_CANTIDAD).AsFloat := ACantidad;
end;
end;
procedure TControllerDetallesArticulos.RellenarOtros(ADetalles: IDAStronglyTypedDataTable; AArticulos: IBizArticulo);
@ -303,7 +335,7 @@ begin
// Procedimiento que en los hijos se sobreescribirá para rellenar otros campos según necesidades
end;
procedure TControllerDetallesArticulos.RellenarDetalle(ADetalles: IDAStronglyTypedDataTable; AArticulos: IBizArticulo; const ACantidad: Integer);
procedure TControllerDetallesArticulos.RellenarDetalle(ADetalles: IDAStronglyTypedDataTable; AArticulos: IBizArticulo; const ACantidad: Float);
begin
if Assigned(ADetalles) then
begin

2
Source/Modulos/Contratos de cliente/Data/uDataModuleContratosCliente.dfm
View File

@ -356,7 +356,7 @@ inherited DataModuleContratosCliente: TDataModuleContratosCliente
end
item
Name = 'CANTIDAD'
DataType = datInteger
DataType = datCurrency
end
item
Name = 'IMPORTE_UNIDAD'

44
Source/Modulos/Contratos de cliente/Model/schContratosClienteClient_Intf.pas
View File

@ -9,12 +9,12 @@ 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_Valores = '{FBB517BC-F25D-4748-B9E4-0BF81772409E}';
RID_Propiedades = '{3E75B9DE-D38A-490E-9E08-38A43EAD69E0}';
RID_ListaAnosContratos = '{DB102921-5CAC-47C1-83F9-2EED505EB8B6}';
RID_ContratosCliente = '{8B45031B-F683-4BA5-942F-AD605C28DE53}';
RID_TiposCapitulos = '{CD343E85-93B4-49D1-AA02-5AA9E1FA86C8}';
RID_ContratosCliente_Detalles = '{2DB77ECF-A693-47DF-95FA-3D2A96347C11}';
RID_Valores = '{C4BF01E2-31F4-4AB9-8B68-44342C4EC58C}';
RID_Propiedades = '{54F6EFB8-CF1F-49A0-A5ED-410EE8AF1E84}';
RID_ListaAnosContratos = '{B15460FD-230C-47B6-B916-9DD01DBF78D7}';
RID_ContratosCliente = '{AA883DBC-951B-429E-ACF6-25E65CD069CF}';
RID_TiposCapitulos = '{A5CF013F-B9D5-4F6E-9CF9-EAEC850DABAF}';
RID_ContratosCliente_Detalles = '{6BF2A61B-E6A3-4683-9E5E-517F1C2A9414}';
{ Data table names }
nme_Valores = 'Valores';
@ -195,7 +195,7 @@ const
type
{ IValores }
IValores = interface(IDAStronglyTypedDataTable)
['{E49F0060-590E-4D59-8BA1-D2542A48FACB}']
['{1182811B-CA60-444B-8E48-100F58175E23}']
{ Property getters and setters }
function GetIDValue: Integer;
procedure SetIDValue(const aValue: Integer);
@ -254,7 +254,7 @@ type
{ IPropiedades }
IPropiedades = interface(IDAStronglyTypedDataTable)
['{163049F7-F031-4246-8645-85C3F6408C22}']
['{3CC8D26D-D024-4B4C-B349-63C6BC8828B8}']
{ Property getters and setters }
function GetIDValue: Integer;
procedure SetIDValue(const aValue: Integer);
@ -313,7 +313,7 @@ type
{ IListaAnosContratos }
IListaAnosContratos = interface(IDAStronglyTypedDataTable)
['{9E8C7D31-F335-4C2F-9835-78E2EF2A0D85}']
['{115F0DE9-0E1F-481F-8A31-A4F2B409ED8B}']
{ Property getters and setters }
function GetANOValue: String;
procedure SetANOValue(const aValue: String);
@ -348,7 +348,7 @@ type
{ IContratosCliente }
IContratosCliente = interface(IDAStronglyTypedDataTable)
['{91A528D4-9847-4130-9348-CBFE9FAB78A8}']
['{0D9EA959-92B6-43CB-95E5-5A0F0F1A8845}']
{ Property getters and setters }
function GetIDValue: Integer;
procedure SetIDValue(const aValue: Integer);
@ -902,7 +902,7 @@ type
}
{ ITiposCapitulos }
ITiposCapitulos = interface(IDAStronglyTypedDataTable)
['{763B12B5-0660-4187-A31B-CEB15307E075}']
['{C7356BFF-06B4-4FA2-A24C-9B3B9A82480C}']
{ Property getters and setters }
function GetIDValue: Integer;
procedure SetIDValue(const aValue: Integer);
@ -997,7 +997,7 @@ type
{ IContratosCliente_Detalles }
IContratosCliente_Detalles = interface(IDAStronglyTypedDataTable)
['{F2816464-B44B-4A9B-92BF-90C523B5C5D6}']
['{8D251749-25EB-4C4C-B0E0-8E8848E0DE02}']
{ Property getters and setters }
function GetIDValue: Integer;
procedure SetIDValue(const aValue: Integer);
@ -1019,8 +1019,8 @@ type
procedure SetCONCEPTOValue(const aValue: String);
function GetCONCEPTOIsNull: Boolean;
procedure SetCONCEPTOIsNull(const aValue: Boolean);
function GetCANTIDADValue: Integer;
procedure SetCANTIDADValue(const aValue: Integer);
function GetCANTIDADValue: Currency;
procedure SetCANTIDADValue(const aValue: Currency);
function GetCANTIDADIsNull: Boolean;
procedure SetCANTIDADIsNull(const aValue: Boolean);
function GetIMPORTE_UNIDADValue: Currency;
@ -1072,7 +1072,7 @@ type
property TIPO_DETALLEIsNull: Boolean read GetTIPO_DETALLEIsNull write SetTIPO_DETALLEIsNull;
property CONCEPTO: String read GetCONCEPTOValue write SetCONCEPTOValue;
property CONCEPTOIsNull: Boolean read GetCONCEPTOIsNull write SetCONCEPTOIsNull;
property CANTIDAD: Integer read GetCANTIDADValue write SetCANTIDADValue;
property CANTIDAD: Currency read GetCANTIDADValue write SetCANTIDADValue;
property CANTIDADIsNull: Boolean read GetCANTIDADIsNull write SetCANTIDADIsNull;
property IMPORTE_UNIDAD: Currency read GetIMPORTE_UNIDADValue write SetIMPORTE_UNIDADValue;
property IMPORTE_UNIDADIsNull: Boolean read GetIMPORTE_UNIDADIsNull write SetIMPORTE_UNIDADIsNull;
@ -1119,8 +1119,8 @@ type
procedure SetCONCEPTOValue(const aValue: String); virtual;
function GetCONCEPTOIsNull: Boolean; virtual;
procedure SetCONCEPTOIsNull(const aValue: Boolean); virtual;
function GetCANTIDADValue: Integer; virtual;
procedure SetCANTIDADValue(const aValue: Integer); virtual;
function GetCANTIDADValue: Currency; virtual;
procedure SetCANTIDADValue(const aValue: Currency); virtual;
function GetCANTIDADIsNull: Boolean; virtual;
procedure SetCANTIDADIsNull(const aValue: Boolean); virtual;
function GetIMPORTE_UNIDADValue: Currency; virtual;
@ -1171,7 +1171,7 @@ type
property TIPO_DETALLEIsNull: Boolean read GetTIPO_DETALLEIsNull write SetTIPO_DETALLEIsNull;
property CONCEPTO: String read GetCONCEPTOValue write SetCONCEPTOValue;
property CONCEPTOIsNull: Boolean read GetCONCEPTOIsNull write SetCONCEPTOIsNull;
property CANTIDAD: Integer read GetCANTIDADValue write SetCANTIDADValue;
property CANTIDAD: Currency read GetCANTIDADValue write SetCANTIDADValue;
property CANTIDADIsNull: Boolean read GetCANTIDADIsNull write SetCANTIDADIsNull;
property IMPORTE_UNIDAD: Currency read GetIMPORTE_UNIDADValue write SetIMPORTE_UNIDADValue;
property IMPORTE_UNIDADIsNull: Boolean read GetIMPORTE_UNIDADIsNull write SetIMPORTE_UNIDADIsNull;
@ -2597,14 +2597,14 @@ begin
DataTable.Fields[idx_ContratosCliente_DetallesCONCEPTO].AsVariant := Null;
end;
function TContratosCliente_DetallesDataTableRules.GetCANTIDADValue: Integer;
function TContratosCliente_DetallesDataTableRules.GetCANTIDADValue: Currency;
begin
result := DataTable.Fields[idx_ContratosCliente_DetallesCANTIDAD].AsInteger;
result := DataTable.Fields[idx_ContratosCliente_DetallesCANTIDAD].AsCurrency;
end;
procedure TContratosCliente_DetallesDataTableRules.SetCANTIDADValue(const aValue: Integer);
procedure TContratosCliente_DetallesDataTableRules.SetCANTIDADValue(const aValue: Currency);
begin
DataTable.Fields[idx_ContratosCliente_DetallesCANTIDAD].AsInteger := aValue;
DataTable.Fields[idx_ContratosCliente_DetallesCANTIDAD].AsCurrency := aValue;
end;
function TContratosCliente_DetallesDataTableRules.GetCANTIDADIsNull: boolean;

44
Source/Modulos/Contratos de cliente/Model/schContratosClienteServer_Intf.pas
View File

@ -9,17 +9,17 @@ 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_ValoresDelta = '{2E14F7CF-EDB5-4945-B876-90C4D74FF180}';
RID_PropiedadesDelta = '{E649CEF7-68E9-45A6-9653-470814A72238}';
RID_ListaAnosContratosDelta = '{471911A0-5622-4E98-A471-82A6686B3D2D}';
RID_ContratosClienteDelta = '{ADBEAAE3-AAC2-4EA1-8B59-BF7C8831AC45}';
RID_TiposCapitulosDelta = '{AE98CA03-BEAA-4CE6-897D-6A646BF05C8B}';
RID_ContratosCliente_DetallesDelta = '{97DEC7D7-36AF-42DA-B906-1FB326A36797}';
RID_ValoresDelta = '{99FB8B11-BABD-437D-8CF7-E71ED3293C56}';
RID_PropiedadesDelta = '{957B81A4-2A44-4028-A288-7D141540CFB7}';
RID_ListaAnosContratosDelta = '{5099A92C-DD01-4C99-8739-32C7316F0F29}';
RID_ContratosClienteDelta = '{08EE2D2A-1788-482F-AC8D-C6ABF921D84E}';
RID_TiposCapitulosDelta = '{C725F601-473D-44E3-A497-3AAD4D96A6AA}';
RID_ContratosCliente_DetallesDelta = '{5BA78EB9-366D-4035-8B44-A771F9EBB0D3}';
type
{ IValoresDelta }
IValoresDelta = interface(IValores)
['{2E14F7CF-EDB5-4945-B876-90C4D74FF180}']
['{99FB8B11-BABD-437D-8CF7-E71ED3293C56}']
{ Property getters and setters }
function GetOldIDValue : Integer;
function GetOldID_PROPIEDADValue : Integer;
@ -77,7 +77,7 @@ type
{ IPropiedadesDelta }
IPropiedadesDelta = interface(IPropiedades)
['{E649CEF7-68E9-45A6-9653-470814A72238}']
['{957B81A4-2A44-4028-A288-7D141540CFB7}']
{ Property getters and setters }
function GetOldIDValue : Integer;
function GetOldDESCRIPCIONValue : String;
@ -135,7 +135,7 @@ type
{ IListaAnosContratosDelta }
IListaAnosContratosDelta = interface(IListaAnosContratos)
['{471911A0-5622-4E98-A471-82A6686B3D2D}']
['{5099A92C-DD01-4C99-8739-32C7316F0F29}']
{ Property getters and setters }
function GetOldANOValue : String;
@ -169,7 +169,7 @@ type
{ IContratosClienteDelta }
IContratosClienteDelta = interface(IContratosCliente)
['{ADBEAAE3-AAC2-4EA1-8B59-BF7C8831AC45}']
['{08EE2D2A-1788-482F-AC8D-C6ABF921D84E}']
{ Property getters and setters }
function GetOldIDValue : Integer;
function GetOldID_EMPRESAValue : Integer;
@ -723,7 +723,7 @@ type
{ ITiposCapitulosDelta }
ITiposCapitulosDelta = interface(ITiposCapitulos)
['{AE98CA03-BEAA-4CE6-897D-6A646BF05C8B}']
['{C725F601-473D-44E3-A497-3AAD4D96A6AA}']
{ Property getters and setters }
function GetOldIDValue : Integer;
function GetOldPOSICIONValue : Integer;
@ -817,14 +817,14 @@ type
{ IContratosCliente_DetallesDelta }
IContratosCliente_DetallesDelta = interface(IContratosCliente_Detalles)
['{97DEC7D7-36AF-42DA-B906-1FB326A36797}']
['{5BA78EB9-366D-4035-8B44-A771F9EBB0D3}']
{ Property getters and setters }
function GetOldIDValue : Integer;
function GetOldID_CONTRATOValue : Integer;
function GetOldPOSICIONValue : Integer;
function GetOldTIPO_DETALLEValue : String;
function GetOldCONCEPTOValue : String;
function GetOldCANTIDADValue : Integer;
function GetOldCANTIDADValue : Currency;
function GetOldIMPORTE_UNIDADValue : Currency;
function GetOldIMPORTE_TOTALValue : Currency;
function GetOldVISIBLEValue : SmallInt;
@ -841,7 +841,7 @@ type
property OldPOSICION : Integer read GetOldPOSICIONValue;
property OldTIPO_DETALLE : String read GetOldTIPO_DETALLEValue;
property OldCONCEPTO : String read GetOldCONCEPTOValue;
property OldCANTIDAD : Integer read GetOldCANTIDADValue;
property OldCANTIDAD : Currency read GetOldCANTIDADValue;
property OldIMPORTE_UNIDAD : Currency read GetOldIMPORTE_UNIDADValue;
property OldIMPORTE_TOTAL : Currency read GetOldIMPORTE_TOTALValue;
property OldVISIBLE : SmallInt read GetOldVISIBLEValue;
@ -888,11 +888,11 @@ type
function GetOldCONCEPTOIsNull: Boolean; virtual;
procedure SetCONCEPTOValue(const aValue: String); virtual;
procedure SetCONCEPTOIsNull(const aValue: Boolean); virtual;
function GetCANTIDADValue: Integer; virtual;
function GetCANTIDADValue: Currency; virtual;
function GetCANTIDADIsNull: Boolean; virtual;
function GetOldCANTIDADValue: Integer; virtual;
function GetOldCANTIDADValue: Currency; virtual;
function GetOldCANTIDADIsNull: Boolean; virtual;
procedure SetCANTIDADValue(const aValue: Integer); virtual;
procedure SetCANTIDADValue(const aValue: Currency); virtual;
procedure SetCANTIDADIsNull(const aValue: Boolean); virtual;
function GetIMPORTE_UNIDADValue: Currency; virtual;
function GetIMPORTE_UNIDADIsNull: Boolean; virtual;
@ -970,9 +970,9 @@ type
property CONCEPTOIsNull : Boolean read GetCONCEPTOIsNull write SetCONCEPTOIsNull;
property OldCONCEPTO : String read GetOldCONCEPTOValue;
property OldCONCEPTOIsNull : Boolean read GetOldCONCEPTOIsNull;
property CANTIDAD : Integer read GetCANTIDADValue write SetCANTIDADValue;
property CANTIDAD : Currency read GetCANTIDADValue write SetCANTIDADValue;
property CANTIDADIsNull : Boolean read GetCANTIDADIsNull write SetCANTIDADIsNull;
property OldCANTIDAD : Integer read GetOldCANTIDADValue;
property OldCANTIDAD : Currency read GetOldCANTIDADValue;
property OldCANTIDADIsNull : Boolean read GetOldCANTIDADIsNull;
property IMPORTE_UNIDAD : Currency read GetIMPORTE_UNIDADValue write SetIMPORTE_UNIDADValue;
property IMPORTE_UNIDADIsNull : Boolean read GetIMPORTE_UNIDADIsNull write SetIMPORTE_UNIDADIsNull;
@ -3041,7 +3041,7 @@ begin
BusinessProcessor.CurrentChange.NewValueByName[fld_ContratosCliente_DetallesCONCEPTO] := Null;
end;
function TContratosCliente_DetallesBusinessProcessorRules.GetCANTIDADValue: Integer;
function TContratosCliente_DetallesBusinessProcessorRules.GetCANTIDADValue: Currency;
begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_ContratosCliente_DetallesCANTIDAD];
end;
@ -3051,7 +3051,7 @@ begin
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_ContratosCliente_DetallesCANTIDAD]);
end;
function TContratosCliente_DetallesBusinessProcessorRules.GetOldCANTIDADValue: Integer;
function TContratosCliente_DetallesBusinessProcessorRules.GetOldCANTIDADValue: Currency;
begin
result := BusinessProcessor.CurrentChange.OldValueByName[fld_ContratosCliente_DetallesCANTIDAD];
end;
@ -3061,7 +3061,7 @@ begin
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_ContratosCliente_DetallesCANTIDAD]);
end;
procedure TContratosCliente_DetallesBusinessProcessorRules.SetCANTIDADValue(const aValue: Integer);
procedure TContratosCliente_DetallesBusinessProcessorRules.SetCANTIDADValue(const aValue: Currency);
begin
BusinessProcessor.CurrentChange.NewValueByName[fld_ContratosCliente_DetallesCANTIDAD] := aValue;
end;

6
Source/Modulos/Contratos de cliente/Servidor/srvContratosCliente_Impl.dfm
View File

@ -743,7 +743,7 @@ object srvContratosCliente: TsrvContratosCliente
end
item
Name = 'CANTIDAD'
DataType = datInteger
DataType = datCurrency
end
item
Name = 'IMPORTE_UNIDAD'
@ -1287,7 +1287,7 @@ object srvContratosCliente: TsrvContratosCliente
end
item
Name = 'CANTIDAD'
DataType = datInteger
DataType = datCurrency
Value = ''
end
item
@ -1395,7 +1395,7 @@ object srvContratosCliente: TsrvContratosCliente
end
item
Name = 'CANTIDAD'
DataType = datInteger
DataType = datCurrency
Value = ''
end
item

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

@ -343,7 +343,7 @@ inherited DataModuleFacturasCliente: TDataModuleFacturasCliente
item
Name = 'POSICION'
DataType = datInteger
DisplayLabel = 'Posici'#195#179'n'
DisplayLabel = 'Posici'#243'n'
DictionaryEntry = 'FacturasCliente_Detalles_POSICION'
end
item
@ -362,7 +362,7 @@ inherited DataModuleFacturasCliente: TDataModuleFacturasCliente
end
item
Name = 'CANTIDAD'
DataType = datInteger
DataType = datFloat
DisplayLabel = 'Cantidad'
DictionaryEntry = 'FacturasCliente_Detalles_CANTIDAD'
end
@ -383,7 +383,7 @@ inherited DataModuleFacturasCliente: TDataModuleFacturasCliente
item
Name = 'VISIBLE'
DataType = datInteger
DisplayLabel = #194#191'Visible?'
DisplayLabel = #191'Visible?'
DictionaryEntry = 'FacturasCliente_Detalles_VISIBLE'
end
item

32
Source/Modulos/Facturas de cliente/Model/schFacturasClienteClient_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_ListaAnosFacturas = '{B3CC2885-3705-4BC8-B921-2F2557CB66A1}';
RID_FacturasCliente = '{DBC2C52D-8B55-4B32-9C3A-EA6B5435576F}';
RID_FacturasCliente_Detalles = '{1163C02B-0BE3-41F7-A346-BD6017A0DC4D}';
RID_ListaAnosFacturas = '{0B7FFA50-F8E0-48C1-A562-D787DFD31113}';
RID_FacturasCliente = '{17EE5BA0-9C09-4BC1-B224-ECBE27955EB5}';
RID_FacturasCliente_Detalles = '{23406660-F90F-495F-8EDC-DE160A640BE3}';
{ Data table names }
nme_ListaAnosFacturas = 'ListaAnosFacturas';
@ -159,7 +159,7 @@ const
type
{ IListaAnosFacturas }
IListaAnosFacturas = interface(IDAStronglyTypedDataTable)
['{AFDC48B7-CAC8-49CF-9841-0B5D6A4EA22E}']
['{F7A21916-AD6A-4354-AC97-24ACEB11D229}']
{ Property getters and setters }
function GetANOValue: String;
procedure SetANOValue(const aValue: String);
@ -194,7 +194,7 @@ type
{ IFacturasCliente }
IFacturasCliente = interface(IDAStronglyTypedDataTable)
['{384238A5-DA30-44AE-BCFB-6E8FB855EE43}']
['{2FE56E65-87BC-45FE-A4D5-CA3DF8D941B5}']
{ Property getters and setters }
function GetIDValue: Integer;
procedure SetIDValue(const aValue: Integer);
@ -793,7 +793,7 @@ type
{ IFacturasCliente_Detalles }
IFacturasCliente_Detalles = interface(IDAStronglyTypedDataTable)
['{CA479886-F282-4EE6-B576-5E07F6676407}']
['{054390A6-7A81-4F0A-886E-29CE32371B63}']
{ Property getters and setters }
function GetIDValue: Integer;
procedure SetIDValue(const aValue: Integer);
@ -815,8 +815,8 @@ type
procedure SetCONCEPTOValue(const aValue: String);
function GetCONCEPTOIsNull: Boolean;
procedure SetCONCEPTOIsNull(const aValue: Boolean);
function GetCANTIDADValue: Integer;
procedure SetCANTIDADValue(const aValue: Integer);
function GetCANTIDADValue: Float;
procedure SetCANTIDADValue(const aValue: Float);
function GetCANTIDADIsNull: Boolean;
procedure SetCANTIDADIsNull(const aValue: Boolean);
function GetIMPORTE_UNIDADValue: Currency;
@ -864,7 +864,7 @@ type
property TIPO_DETALLEIsNull: Boolean read GetTIPO_DETALLEIsNull write SetTIPO_DETALLEIsNull;
property CONCEPTO: String read GetCONCEPTOValue write SetCONCEPTOValue;
property CONCEPTOIsNull: Boolean read GetCONCEPTOIsNull write SetCONCEPTOIsNull;
property CANTIDAD: Integer read GetCANTIDADValue write SetCANTIDADValue;
property CANTIDAD: Float read GetCANTIDADValue write SetCANTIDADValue;
property CANTIDADIsNull: Boolean read GetCANTIDADIsNull write SetCANTIDADIsNull;
property IMPORTE_UNIDAD: Currency read GetIMPORTE_UNIDADValue write SetIMPORTE_UNIDADValue;
property IMPORTE_UNIDADIsNull: Boolean read GetIMPORTE_UNIDADIsNull write SetIMPORTE_UNIDADIsNull;
@ -909,8 +909,8 @@ type
procedure SetCONCEPTOValue(const aValue: String); virtual;
function GetCONCEPTOIsNull: Boolean; virtual;
procedure SetCONCEPTOIsNull(const aValue: Boolean); virtual;
function GetCANTIDADValue: Integer; virtual;
procedure SetCANTIDADValue(const aValue: Integer); virtual;
function GetCANTIDADValue: Float; virtual;
procedure SetCANTIDADValue(const aValue: Float); virtual;
function GetCANTIDADIsNull: Boolean; virtual;
procedure SetCANTIDADIsNull(const aValue: Boolean); virtual;
function GetIMPORTE_UNIDADValue: Currency; virtual;
@ -957,7 +957,7 @@ type
property TIPO_DETALLEIsNull: Boolean read GetTIPO_DETALLEIsNull write SetTIPO_DETALLEIsNull;
property CONCEPTO: String read GetCONCEPTOValue write SetCONCEPTOValue;
property CONCEPTOIsNull: Boolean read GetCONCEPTOIsNull write SetCONCEPTOIsNull;
property CANTIDAD: Integer read GetCANTIDADValue write SetCANTIDADValue;
property CANTIDAD: Float read GetCANTIDADValue write SetCANTIDADValue;
property CANTIDADIsNull: Boolean read GetCANTIDADIsNull write SetCANTIDADIsNull;
property IMPORTE_UNIDAD: Currency read GetIMPORTE_UNIDADValue write SetIMPORTE_UNIDADValue;
property IMPORTE_UNIDADIsNull: Boolean read GetIMPORTE_UNIDADIsNull write SetIMPORTE_UNIDADIsNull;
@ -2162,14 +2162,14 @@ begin
DataTable.Fields[idx_FacturasCliente_DetallesCONCEPTO].AsVariant := Null;
end;
function TFacturasCliente_DetallesDataTableRules.GetCANTIDADValue: Integer;
function TFacturasCliente_DetallesDataTableRules.GetCANTIDADValue: Float;
begin
result := DataTable.Fields[idx_FacturasCliente_DetallesCANTIDAD].AsInteger;
result := DataTable.Fields[idx_FacturasCliente_DetallesCANTIDAD].AsFloat;
end;
procedure TFacturasCliente_DetallesDataTableRules.SetCANTIDADValue(const aValue: Integer);
procedure TFacturasCliente_DetallesDataTableRules.SetCANTIDADValue(const aValue: Float);
begin
DataTable.Fields[idx_FacturasCliente_DetallesCANTIDAD].AsInteger := aValue;
DataTable.Fields[idx_FacturasCliente_DetallesCANTIDAD].AsFloat := aValue;
end;
function TFacturasCliente_DetallesDataTableRules.GetCANTIDADIsNull: boolean;

32
Source/Modulos/Facturas de cliente/Model/schFacturasClienteServer_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_ListaAnosFacturasDelta = '{B959365B-CFBF-4C4B-848E-4F97B481B71D}';
RID_FacturasClienteDelta = '{D35BA392-FA41-4FA8-BBF8-4BD4F2F994A2}';
RID_FacturasCliente_DetallesDelta = '{4BB27398-EDD5-4CA6-9418-0B4FA94D6C68}';
RID_ListaAnosFacturasDelta = '{D5A9BC5A-02B1-4447-9B85-091759C3F578}';
RID_FacturasClienteDelta = '{82202330-E0FD-415C-BCDF-BFC47BCB4B92}';
RID_FacturasCliente_DetallesDelta = '{CC9347DB-60EC-498B-A524-61302BD37A6A}';
type
{ IListaAnosFacturasDelta }
IListaAnosFacturasDelta = interface(IListaAnosFacturas)
['{B959365B-CFBF-4C4B-848E-4F97B481B71D}']
['{D5A9BC5A-02B1-4447-9B85-091759C3F578}']
{ Property getters and setters }
function GetOldANOValue : String;
@ -50,7 +50,7 @@ type
{ IFacturasClienteDelta }
IFacturasClienteDelta = interface(IFacturasCliente)
['{D35BA392-FA41-4FA8-BBF8-4BD4F2F994A2}']
['{82202330-E0FD-415C-BCDF-BFC47BCB4B92}']
{ Property getters and setters }
function GetOldIDValue : Integer;
function GetOldID_EMPRESAValue : Integer;
@ -649,14 +649,14 @@ type
{ IFacturasCliente_DetallesDelta }
IFacturasCliente_DetallesDelta = interface(IFacturasCliente_Detalles)
['{4BB27398-EDD5-4CA6-9418-0B4FA94D6C68}']
['{CC9347DB-60EC-498B-A524-61302BD37A6A}']
{ Property getters and setters }
function GetOldIDValue : Integer;
function GetOldID_FACTURAValue : Integer;
function GetOldPOSICIONValue : Integer;
function GetOldTIPO_DETALLEValue : String;
function GetOldCONCEPTOValue : String;
function GetOldCANTIDADValue : Integer;
function GetOldCANTIDADValue : Float;
function GetOldIMPORTE_UNIDADValue : Currency;
function GetOldIMPORTE_TOTALValue : Currency;
function GetOldVISIBLEValue : Integer;
@ -672,7 +672,7 @@ type
property OldPOSICION : Integer read GetOldPOSICIONValue;
property OldTIPO_DETALLE : String read GetOldTIPO_DETALLEValue;
property OldCONCEPTO : String read GetOldCONCEPTOValue;
property OldCANTIDAD : Integer read GetOldCANTIDADValue;
property OldCANTIDAD : Float read GetOldCANTIDADValue;
property OldIMPORTE_UNIDAD : Currency read GetOldIMPORTE_UNIDADValue;
property OldIMPORTE_TOTAL : Currency read GetOldIMPORTE_TOTALValue;
property OldVISIBLE : Integer read GetOldVISIBLEValue;
@ -718,11 +718,11 @@ type
function GetOldCONCEPTOIsNull: Boolean; virtual;
procedure SetCONCEPTOValue(const aValue: String); virtual;
procedure SetCONCEPTOIsNull(const aValue: Boolean); virtual;
function GetCANTIDADValue: Integer; virtual;
function GetCANTIDADValue: Float; virtual;
function GetCANTIDADIsNull: Boolean; virtual;
function GetOldCANTIDADValue: Integer; virtual;
function GetOldCANTIDADValue: Float; virtual;
function GetOldCANTIDADIsNull: Boolean; virtual;
procedure SetCANTIDADValue(const aValue: Integer); virtual;
procedure SetCANTIDADValue(const aValue: Float); virtual;
procedure SetCANTIDADIsNull(const aValue: Boolean); virtual;
function GetIMPORTE_UNIDADValue: Currency; virtual;
function GetIMPORTE_UNIDADIsNull: Boolean; virtual;
@ -794,9 +794,9 @@ type
property CONCEPTOIsNull : Boolean read GetCONCEPTOIsNull write SetCONCEPTOIsNull;
property OldCONCEPTO : String read GetOldCONCEPTOValue;
property OldCONCEPTOIsNull : Boolean read GetOldCONCEPTOIsNull;
property CANTIDAD : Integer read GetCANTIDADValue write SetCANTIDADValue;
property CANTIDAD : Float read GetCANTIDADValue write SetCANTIDADValue;
property CANTIDADIsNull : Boolean read GetCANTIDADIsNull write SetCANTIDADIsNull;
property OldCANTIDAD : Integer read GetOldCANTIDADValue;
property OldCANTIDAD : Float read GetOldCANTIDADValue;
property OldCANTIDADIsNull : Boolean read GetOldCANTIDADIsNull;
property IMPORTE_UNIDAD : Currency read GetIMPORTE_UNIDADValue write SetIMPORTE_UNIDADValue;
property IMPORTE_UNIDADIsNull : Boolean read GetIMPORTE_UNIDADIsNull write SetIMPORTE_UNIDADIsNull;
@ -2559,7 +2559,7 @@ begin
BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasCliente_DetallesCONCEPTO] := Null;
end;
function TFacturasCliente_DetallesBusinessProcessorRules.GetCANTIDADValue: Integer;
function TFacturasCliente_DetallesBusinessProcessorRules.GetCANTIDADValue: Float;
begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasCliente_DetallesCANTIDAD];
end;
@ -2569,7 +2569,7 @@ begin
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasCliente_DetallesCANTIDAD]);
end;
function TFacturasCliente_DetallesBusinessProcessorRules.GetOldCANTIDADValue: Integer;
function TFacturasCliente_DetallesBusinessProcessorRules.GetOldCANTIDADValue: Float;
begin
result := BusinessProcessor.CurrentChange.OldValueByName[fld_FacturasCliente_DetallesCANTIDAD];
end;
@ -2579,7 +2579,7 @@ begin
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_FacturasCliente_DetallesCANTIDAD]);
end;
procedure TFacturasCliente_DetallesBusinessProcessorRules.SetCANTIDADValue(const aValue: Integer);
procedure TFacturasCliente_DetallesBusinessProcessorRules.SetCANTIDADValue(const aValue: Float);
begin
BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasCliente_DetallesCANTIDAD] := aValue;
end;

37
Source/Modulos/Facturas de cliente/Reports/uRptFacturasCliente_Server.dfm
View File

@ -279,17 +279,23 @@ object RptFacturasCliente: TRptFacturasCliente
item
Name = 'CONCEPTO'
DataType = datString
Size = 2000
Size = 32765
DictionaryEntry = 'FacturasCliente_Detalles_CONCEPTO'
end
item
Name = 'CONCEPTO_RTF'
DataType = datString
Size = 2000
BlobType = dabtMemo
end
item
Name = 'CANTIDAD'
DataType = datInteger
DataType = datCurrency
DictionaryEntry = 'FacturasCliente_Detalles_CANTIDAD'
end
item
Name = 'IMPORTE_UNIDAD'
DataType = datFloat
DataType = datCurrency
DictionaryEntry = 'FacturasCliente_Detalles_IMPORTE_UNIDAD'
end
item
@ -298,12 +304,12 @@ object RptFacturasCliente: TRptFacturasCliente
end
item
Name = 'IMPORTE_TOTAL'
DataType = datFloat
DataType = datCurrency
DictionaryEntry = 'FacturasCliente_Detalles_IMPORTE_TOTAL'
end
item
Name = 'VISIBLE'
DataType = datInteger
DataType = datSmallInt
DictionaryEntry = 'FacturasCliente_Detalles_VISIBLE'
end>
Params = <
@ -1127,25 +1133,26 @@ object RptFacturasCliente: TRptFacturasCliente
Size = 10
DictionaryEntry = 'FacturasCliente_Detalles_TIPO_DETALLE'
end
item
Name = 'CONCEPTO_RTF'
DataType = datString
BlobType = dabtMemo
end
item
Name = 'CONCEPTO'
DataType = datString
Size = 2000
Size = 32765
DictionaryEntry = 'FacturasCliente_Detalles_CONCEPTO'
end
item
Name = 'CONCEPTO_RTF'
DataType = datString
Size = 2000
BlobType = dabtMemo
end
item
Name = 'CANTIDAD'
DataType = datInteger
DataType = datCurrency
DictionaryEntry = 'FacturasCliente_Detalles_CANTIDAD'
end
item
Name = 'IMPORTE_UNIDAD'
DataType = datFloat
DataType = datCurrency
DictionaryEntry = 'FacturasCliente_Detalles_IMPORTE_UNIDAD'
end
item
@ -1154,12 +1161,12 @@ object RptFacturasCliente: TRptFacturasCliente
end
item
Name = 'IMPORTE_TOTAL'
DataType = datFloat
DataType = datCurrency
DictionaryEntry = 'FacturasCliente_Detalles_IMPORTE_TOTAL'
end
item
Name = 'VISIBLE'
DataType = datInteger
DataType = datSmallInt
DictionaryEntry = 'FacturasCliente_Detalles_VISIBLE'
end>
end

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

@ -607,7 +607,7 @@ object srvFacturasCliente: TsrvFacturasCliente
end
item
Name = 'CANTIDAD'
DataType = datInteger
DataType = datFloat
DictionaryEntry = 'FacturasCliente_Detalles_CANTIDAD'
end
item
@ -728,71 +728,60 @@ object srvFacturasCliente: TsrvFacturasCliente
end
item
Name = 'CANTIDAD'
DataType = datInteger
DataType = datCurrency
Value = ''
ParamType = daptInput
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
DataType = datCurrency
Value = ''
ParamType = daptInput
end
item
Name = 'IMPORTE_TOTAL'
DataType = datFloat
DataType = datCurrency
Value = ''
ParamType = daptInput
end
item
Name = 'VISIBLE'
DataType = datInteger
DataType = datSmallInt
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
DataType = datCurrency
Value = ''
ParamType = daptInput
end>
Statements = <
item
@ -835,77 +824,64 @@ object srvFacturasCliente: TsrvFacturasCliente
Params = <
item
Name = 'CANTIDAD'
DataType = datInteger
DataType = datCurrency
Value = ''
ParamType = daptInput
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
DataType = datCurrency
Value = ''
ParamType = daptInput
end
item
Name = 'IMPORTE_TOTAL'
DataType = datFloat
DataType = datCurrency
Value = ''
ParamType = daptInput
end
item
Name = 'VISIBLE'
DataType = datInteger
DataType = datSmallInt
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
DataType = datCurrency
Value = ''
ParamType = daptInput
end
item
Name = 'OLD_ID'
DataType = datInteger
Value = ''
ParamType = daptInput
end>
Statements = <
item
@ -1593,7 +1569,7 @@ object srvFacturasCliente: TsrvFacturasCliente
end
item
Name = 'FacturasCliente_Detalles_CANTIDAD'
DataType = datInteger
DataType = datFloat
DisplayLabel = 'Cantidad'
end
item

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

@ -14,12 +14,12 @@ inherited DataModuleFacturasProveedor: TDataModuleFacturasProveedor
Top = 84
end
object rda_FacturasProveedor: TDARemoteDataAdapter
DataStreamer = Bin2DataStreamer
GetSchemaCall.RemoteService = RORemoteService
GetDataCall.RemoteService = RORemoteService
UpdateDataCall.RemoteService = RORemoteService
GetScriptsCall.RemoteService = RORemoteService
RemoteService = RORemoteService
DataStreamer = Bin2DataStreamer
Left = 51
Top = 151
end
@ -283,8 +283,6 @@ inherited DataModuleFacturasProveedor: TDataModuleFacturasProveedor
Params = <>
StreamingOptions = [soDisableEventsWhileStreaming]
RemoteDataAdapter = rda_FacturasProveedor
DetailOptions = [dtCascadeOpenClose, dtCascadeApplyUpdates, dtAutoFetch, dtCascadeDelete, dtCascadeUpdate, dtDisableLogOfCascadeDeletes, dtDisableLogOfCascadeUpdates, dtIncludeInAllInOneFetch]
MasterOptions = [moCascadeOpenClose, moCascadeApplyUpdates, moCascadeDelete, moCascadeUpdate, moDisableLogOfCascadeDeletes, moDisableLogOfCascadeUpdates]
LogicalName = 'FacturasProveedor'
IndexDefs = <>
Left = 208
@ -335,7 +333,7 @@ inherited DataModuleFacturasProveedor: TDataModuleFacturasProveedor
end
item
Name = 'CANTIDAD'
DataType = datInteger
DataType = datFloat
DisplayLabel = 'Cantidad'
DictionaryEntry = 'FacturasProveedor_Detalles_CANTIDAD'
end
@ -393,8 +391,6 @@ inherited DataModuleFacturasProveedor: TDataModuleFacturasProveedor
MasterSource = ds_FacturasProveedor
MasterFields = 'ID'
DetailFields = 'ID_FACTURA'
DetailOptions = [dtCascadeOpenClose, dtCascadeApplyUpdates, dtAutoFetch, dtCascadeDelete, dtCascadeUpdate, dtDisableLogOfCascadeDeletes, dtDisableLogOfCascadeUpdates, dtIncludeInAllInOneFetch]
MasterOptions = [moCascadeOpenClose, moCascadeApplyUpdates, moCascadeDelete, moCascadeUpdate, moDisableLogOfCascadeDeletes, moDisableLogOfCascadeUpdates]
LogicalName = 'FacturasProveedor_Detalles'
IndexDefs = <>
Left = 368
@ -417,8 +413,6 @@ inherited DataModuleFacturasProveedor: TDataModuleFacturasProveedor
Params = <>
StreamingOptions = [soDisableEventsWhileStreaming]
RemoteDataAdapter = rda_FacturasProveedor
DetailOptions = [dtCascadeOpenClose, dtCascadeApplyUpdates, dtAutoFetch, dtCascadeDelete, dtCascadeUpdate, dtDisableLogOfCascadeDeletes, dtDisableLogOfCascadeUpdates, dtIncludeInAllInOneFetch]
MasterOptions = [moCascadeOpenClose, moCascadeApplyUpdates, moCascadeDelete, moCascadeUpdate, moDisableLogOfCascadeDeletes, moDisableLogOfCascadeUpdates]
LogicalName = 'ListaAnosFacturas'
IndexDefs = <>
Left = 208

34
Source/Modulos/Facturas de proveedor/Model/schFacturasProveedorClient_Intf.pas
View File

@ -3,15 +3,15 @@ unit schFacturasProveedorClient_Intf;
interface
uses
Classes, DB, schBase_Intf, SysUtils, uROClasses, uDADataTable, FmtBCD, uROXMLIntf;
Classes, DB, schBase_Intf, SysUtils, uROClasses, uDAInterfaces, uDADataTable, FmtBCD, uROXMLIntf;
const
{ Data table rules ids
Feel free to change them to something more human readable
but make sure they are unique in the context of your application }
RID_ListaAnosFacturas = '{9E91F819-43C2-41C2-9676-F03332208B2C}';
RID_FacturasProveedor = '{5C533F5E-8FCD-4317-9D2E-F1F0E33A34A9}';
RID_FacturasProveedor_Detalles = '{8BF1D455-8054-4877-BB76-B513DC0D5013}';
RID_ListaAnosFacturas = '{6D612B76-FD37-4A12-A8FC-AEBF06FE9DFF}';
RID_FacturasProveedor = '{19A5FACD-B082-4017-9472-473A335CC4CD}';
RID_FacturasProveedor_Detalles = '{8F1894C4-09C5-46A6-9C33-BA6CDCE61EF3}';
{ Data table names }
nme_ListaAnosFacturas = 'ListaAnosFacturas';
@ -147,7 +147,7 @@ const
type
{ IListaAnosFacturas }
IListaAnosFacturas = interface(IDAStronglyTypedDataTable)
['{48A9B6D2-E50C-49BA-9A65-83DC0A717606}']
['{D2198D6D-34A4-4ADB-ACA0-62A4FA0126C7}']
{ Property getters and setters }
function GetANOValue: String;
procedure SetANOValue(const aValue: String);
@ -182,7 +182,7 @@ type
{ IFacturasProveedor }
IFacturasProveedor = interface(IDAStronglyTypedDataTable)
['{2A13A3FA-6FBB-4E2B-A5B9-52470DCAF0E6}']
['{233A9E71-2F88-4FEC-8520-7D094756B72C}']
{ Property getters and setters }
function GetIDValue: Integer;
procedure SetIDValue(const aValue: Integer);
@ -709,7 +709,7 @@ type
{ IFacturasProveedor_Detalles }
IFacturasProveedor_Detalles = interface(IDAStronglyTypedDataTable)
['{36E09C88-81CA-409B-BEA3-5BEFD098DF61}']
['{982FA653-D815-42BA-8B55-2014F12285FE}']
{ Property getters and setters }
function GetIDValue: Integer;
procedure SetIDValue(const aValue: Integer);
@ -731,8 +731,8 @@ type
procedure SetCONCEPTOValue(const aValue: String);
function GetCONCEPTOIsNull: Boolean;
procedure SetCONCEPTOIsNull(const aValue: Boolean);
function GetCANTIDADValue: Integer;
procedure SetCANTIDADValue(const aValue: Integer);
function GetCANTIDADValue: Float;
procedure SetCANTIDADValue(const aValue: Float);
function GetCANTIDADIsNull: Boolean;
procedure SetCANTIDADIsNull(const aValue: Boolean);
function GetIMPORTE_UNIDADValue: Currency;
@ -780,7 +780,7 @@ type
property TIPO_DETALLEIsNull: Boolean read GetTIPO_DETALLEIsNull write SetTIPO_DETALLEIsNull;
property CONCEPTO: String read GetCONCEPTOValue write SetCONCEPTOValue;
property CONCEPTOIsNull: Boolean read GetCONCEPTOIsNull write SetCONCEPTOIsNull;
property CANTIDAD: Integer read GetCANTIDADValue write SetCANTIDADValue;
property CANTIDAD: Float read GetCANTIDADValue write SetCANTIDADValue;
property CANTIDADIsNull: Boolean read GetCANTIDADIsNull write SetCANTIDADIsNull;
property IMPORTE_UNIDAD: Currency read GetIMPORTE_UNIDADValue write SetIMPORTE_UNIDADValue;
property IMPORTE_UNIDADIsNull: Boolean read GetIMPORTE_UNIDADIsNull write SetIMPORTE_UNIDADIsNull;
@ -825,8 +825,8 @@ type
procedure SetCONCEPTOValue(const aValue: String); virtual;
function GetCONCEPTOIsNull: Boolean; virtual;
procedure SetCONCEPTOIsNull(const aValue: Boolean); virtual;
function GetCANTIDADValue: Integer; virtual;
procedure SetCANTIDADValue(const aValue: Integer); virtual;
function GetCANTIDADValue: Float; virtual;
procedure SetCANTIDADValue(const aValue: Float); virtual;
function GetCANTIDADIsNull: Boolean; virtual;
procedure SetCANTIDADIsNull(const aValue: Boolean); virtual;
function GetIMPORTE_UNIDADValue: Currency; virtual;
@ -873,7 +873,7 @@ type
property TIPO_DETALLEIsNull: Boolean read GetTIPO_DETALLEIsNull write SetTIPO_DETALLEIsNull;
property CONCEPTO: String read GetCONCEPTOValue write SetCONCEPTOValue;
property CONCEPTOIsNull: Boolean read GetCONCEPTOIsNull write SetCONCEPTOIsNull;
property CANTIDAD: Integer read GetCANTIDADValue write SetCANTIDADValue;
property CANTIDAD: Float read GetCANTIDADValue write SetCANTIDADValue;
property CANTIDADIsNull: Boolean read GetCANTIDADIsNull write SetCANTIDADIsNull;
property IMPORTE_UNIDAD: Currency read GetIMPORTE_UNIDADValue write SetIMPORTE_UNIDADValue;
property IMPORTE_UNIDADIsNull: Boolean read GetIMPORTE_UNIDADIsNull write SetIMPORTE_UNIDADIsNull;
@ -1952,14 +1952,14 @@ begin
DataTable.Fields[idx_FacturasProveedor_DetallesCONCEPTO].AsVariant := Null;
end;
function TFacturasProveedor_DetallesDataTableRules.GetCANTIDADValue: Integer;
function TFacturasProveedor_DetallesDataTableRules.GetCANTIDADValue: Float;
begin
result := DataTable.Fields[idx_FacturasProveedor_DetallesCANTIDAD].AsInteger;
result := DataTable.Fields[idx_FacturasProveedor_DetallesCANTIDAD].AsFloat;
end;
procedure TFacturasProveedor_DetallesDataTableRules.SetCANTIDADValue(const aValue: Integer);
procedure TFacturasProveedor_DetallesDataTableRules.SetCANTIDADValue(const aValue: Float);
begin
DataTable.Fields[idx_FacturasProveedor_DetallesCANTIDAD].AsInteger := aValue;
DataTable.Fields[idx_FacturasProveedor_DetallesCANTIDAD].AsFloat := aValue;
end;
function TFacturasProveedor_DetallesDataTableRules.GetCANTIDADIsNull: boolean;

32
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_ListaAnosFacturasDelta = '{09861C81-9AF3-4E90-BF83-37A720C86F50}';
RID_FacturasProveedorDelta = '{2E0BD84E-DC1F-4FCC-A4B6-7B966E4EC2C1}';
RID_FacturasProveedor_DetallesDelta = '{850D863A-48C3-46C3-9CB1-B8F0A110870A}';
RID_ListaAnosFacturasDelta = '{A45050BB-F735-43E0-8E89-C9AFAD7410D0}';
RID_FacturasProveedorDelta = '{1DB4D8A7-7089-4F96-A433-E160E9BCF222}';
RID_FacturasProveedor_DetallesDelta = '{F8EAC101-E855-449E-84E3-C54BC44929DB}';
type
{ IListaAnosFacturasDelta }
IListaAnosFacturasDelta = interface(IListaAnosFacturas)
['{09861C81-9AF3-4E90-BF83-37A720C86F50}']
['{A45050BB-F735-43E0-8E89-C9AFAD7410D0}']
{ Property getters and setters }
function GetOldANOValue : String;
@ -50,7 +50,7 @@ type
{ IFacturasProveedorDelta }
IFacturasProveedorDelta = interface(IFacturasProveedor)
['{2E0BD84E-DC1F-4FCC-A4B6-7B966E4EC2C1}']
['{1DB4D8A7-7089-4F96-A433-E160E9BCF222}']
{ Property getters and setters }
function GetOldIDValue : Integer;
function GetOldID_EMPRESAValue : Integer;
@ -577,14 +577,14 @@ type
{ IFacturasProveedor_DetallesDelta }
IFacturasProveedor_DetallesDelta = interface(IFacturasProveedor_Detalles)
['{850D863A-48C3-46C3-9CB1-B8F0A110870A}']
['{F8EAC101-E855-449E-84E3-C54BC44929DB}']
{ Property getters and setters }
function GetOldIDValue : Integer;
function GetOldID_FACTURAValue : Integer;
function GetOldPOSICIONValue : Integer;
function GetOldTIPO_DETALLEValue : String;
function GetOldCONCEPTOValue : String;
function GetOldCANTIDADValue : Integer;
function GetOldCANTIDADValue : Float;
function GetOldIMPORTE_UNIDADValue : Currency;
function GetOldIMPORTE_TOTALValue : Currency;
function GetOldVISIBLEValue : SmallInt;
@ -600,7 +600,7 @@ type
property OldPOSICION : Integer read GetOldPOSICIONValue;
property OldTIPO_DETALLE : String read GetOldTIPO_DETALLEValue;
property OldCONCEPTO : String read GetOldCONCEPTOValue;
property OldCANTIDAD : Integer read GetOldCANTIDADValue;
property OldCANTIDAD : Float read GetOldCANTIDADValue;
property OldIMPORTE_UNIDAD : Currency read GetOldIMPORTE_UNIDADValue;
property OldIMPORTE_TOTAL : Currency read GetOldIMPORTE_TOTALValue;
property OldVISIBLE : SmallInt read GetOldVISIBLEValue;
@ -646,11 +646,11 @@ type
function GetOldCONCEPTOIsNull: Boolean; virtual;
procedure SetCONCEPTOValue(const aValue: String); virtual;
procedure SetCONCEPTOIsNull(const aValue: Boolean); virtual;
function GetCANTIDADValue: Integer; virtual;
function GetCANTIDADValue: Float; virtual;
function GetCANTIDADIsNull: Boolean; virtual;
function GetOldCANTIDADValue: Integer; virtual;
function GetOldCANTIDADValue: Float; virtual;
function GetOldCANTIDADIsNull: Boolean; virtual;
procedure SetCANTIDADValue(const aValue: Integer); virtual;
procedure SetCANTIDADValue(const aValue: Float); virtual;
procedure SetCANTIDADIsNull(const aValue: Boolean); virtual;
function GetIMPORTE_UNIDADValue: Currency; virtual;
function GetIMPORTE_UNIDADIsNull: Boolean; virtual;
@ -722,9 +722,9 @@ type
property CONCEPTOIsNull : Boolean read GetCONCEPTOIsNull write SetCONCEPTOIsNull;
property OldCONCEPTO : String read GetOldCONCEPTOValue;
property OldCONCEPTOIsNull : Boolean read GetOldCONCEPTOIsNull;
property CANTIDAD : Integer read GetCANTIDADValue write SetCANTIDADValue;
property CANTIDAD : Float read GetCANTIDADValue write SetCANTIDADValue;
property CANTIDADIsNull : Boolean read GetCANTIDADIsNull write SetCANTIDADIsNull;
property OldCANTIDAD : Integer read GetOldCANTIDADValue;
property OldCANTIDAD : Float read GetOldCANTIDADValue;
property OldCANTIDADIsNull : Boolean read GetOldCANTIDADIsNull;
property IMPORTE_UNIDAD : Currency read GetIMPORTE_UNIDADValue write SetIMPORTE_UNIDADValue;
property IMPORTE_UNIDADIsNull : Boolean read GetIMPORTE_UNIDADIsNull write SetIMPORTE_UNIDADIsNull;
@ -2301,7 +2301,7 @@ begin
BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasProveedor_DetallesCONCEPTO] := Null;
end;
function TFacturasProveedor_DetallesBusinessProcessorRules.GetCANTIDADValue: Integer;
function TFacturasProveedor_DetallesBusinessProcessorRules.GetCANTIDADValue: Float;
begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasProveedor_DetallesCANTIDAD];
end;
@ -2311,7 +2311,7 @@ begin
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasProveedor_DetallesCANTIDAD]);
end;
function TFacturasProveedor_DetallesBusinessProcessorRules.GetOldCANTIDADValue: Integer;
function TFacturasProveedor_DetallesBusinessProcessorRules.GetOldCANTIDADValue: Float;
begin
result := BusinessProcessor.CurrentChange.OldValueByName[fld_FacturasProveedor_DetallesCANTIDAD];
end;
@ -2321,7 +2321,7 @@ begin
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_FacturasProveedor_DetallesCANTIDAD]);
end;
procedure TFacturasProveedor_DetallesBusinessProcessorRules.SetCANTIDADValue(const aValue: Integer);
procedure TFacturasProveedor_DetallesBusinessProcessorRules.SetCANTIDADValue(const aValue: Float);
begin
BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasProveedor_DetallesCANTIDAD] := aValue;
end;

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

@ -555,7 +555,7 @@ object srvFacturasProveedor: TsrvFacturasProveedor
end
item
Name = 'CANTIDAD'
DataType = datInteger
DataType = datFloat
DictionaryEntry = 'FacturasProveedor_Detalles_CANTIDAD'
end
item
@ -1019,46 +1019,59 @@ object srvFacturasProveedor: TsrvFacturasProveedor
end
item
Name = 'ID_FACTURA'
DataType = datInteger
Value = ''
end
item
Name = 'POSICION'
DataType = datInteger
Value = ''
end
item
Name = 'TIPO_DETALLE'
DataType = datString
Size = 10
Value = ''
end
item
Name = 'CONCEPTO'
DataType = datString
Size = 2000
Value = ''
end
item
Name = 'CANTIDAD'
DataType = datCurrency
Value = ''
end
item
Name = 'IMPORTE_UNIDAD'
DataType = datCurrency
Value = ''
end
item
Name = 'IMPORTE_TOTAL'
DataType = datCurrency
Value = ''
end
item
Name = 'VISIBLE'
DataType = datSmallInt
Value = ''
end
item
Name = 'ID_ARTICULO'
DataType = datInteger
Value = ''
end
item
Name = 'DESCUENTO'
DataType = datFloat
Value = ''
end
item
Name = 'IMPORTE_PORTE'
DataType = datCurrency
Value = ''
end>
Statements = <
@ -1102,50 +1115,64 @@ object srvFacturasProveedor: TsrvFacturasProveedor
Params = <
item
Name = 'ID'
DataType = datInteger
Value = ''
end
item
Name = 'ID_FACTURA'
DataType = datInteger
Value = ''
end
item
Name = 'POSICION'
DataType = datInteger
Value = ''
end
item
Name = 'TIPO_DETALLE'
DataType = datString
Size = 10
Value = ''
end
item
Name = 'CONCEPTO'
DataType = datString
Size = 2000
Value = ''
end
item
Name = 'CANTIDAD'
DataType = datCurrency
Value = ''
end
item
Name = 'IMPORTE_UNIDAD'
DataType = datCurrency
Value = ''
end
item
Name = 'IMPORTE_TOTAL'
DataType = datCurrency
Value = ''
end
item
Name = 'VISIBLE'
DataType = datSmallInt
Value = ''
end
item
Name = 'ID_ARTICULO'
DataType = datInteger
Value = ''
end
item
Name = 'DESCUENTO'
DataType = datFloat
Value = ''
end
item
Name = 'IMPORTE_PORTE'
DataType = datCurrency
Value = ''
end
item
@ -1415,7 +1442,7 @@ object srvFacturasProveedor: TsrvFacturasProveedor
end
item
Name = 'FacturasProveedor_Detalles_CANTIDAD'
DataType = datInteger
DataType = datFloat
DisplayLabel = 'Cantidad'
end
item

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

@ -207,7 +207,7 @@ procedure TInventarioController.Copiar(AArticulos: IBizInventario; ADetalles: ID
- 3 Detalles de un pedido de proveedor u albaran de cliente: IDAStronglyTypedDataTable (cumple con los tipos de controller detalles base
}
var
StockArticulo: Integer;
StockArticulo: Double;
begin
if (not Assigned(AArticulos))
@ -258,7 +258,7 @@ begin
else
begin
AArticulos.DESCRIPCION := FieldByName(fld_PedidosProveedor_DetallesCONCEPTO).AsString;
AArticulos.CANTIDAD := FieldByName(fld_INVENTARIOCANTIDAD).AsInteger;
AArticulos.CANTIDAD := FieldByName(fld_INVENTARIOCANTIDAD).AsFloat;
end;
end;

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

@ -14,12 +14,12 @@ inherited DataModuleInventario: TDataModuleInventario
Top = 84
end
object rda_Inventario: TDARemoteDataAdapter
DataStreamer = Bin2DataStreamer
GetSchemaCall.RemoteService = RORemoteService
GetDataCall.RemoteService = RORemoteService
UpdateDataCall.RemoteService = RORemoteService
GetScriptsCall.RemoteService = RORemoteService
RemoteService = RORemoteService
DataStreamer = Bin2DataStreamer
Left = 51
Top = 151
end
@ -42,14 +42,14 @@ inherited DataModuleInventario: TDataModuleInventario
Name = 'REFERENCIA_ALB'
DataType = datString
Size = 255
DisplayLabel = 'Ref. albar'#195#161'n'
DisplayLabel = 'Ref. albar'#225'n'
DictionaryEntry = 'DETALLE_RESERVAS_INV_REFERENCIA_ALB'
end
item
Name = 'SITUACION_ALB'
DataType = datString
Size = 9
DisplayLabel = 'Situaci'#195#179'n'
DisplayLabel = 'Situaci'#243'n'
DictionaryEntry = 'DETALLE_RESERVAS_INV_SITUACION_ALB'
end
item
@ -61,14 +61,14 @@ inherited DataModuleInventario: TDataModuleInventario
item
Name = 'ID_ALMACEN_ALB'
DataType = datInteger
DisplayLabel = 'IdAlmac'#195#169'n'
DisplayLabel = 'IdAlmac'#233'n'
DictionaryEntry = 'DETALLE_RESERVAS_INV_ID_ALMACEN_ALB'
end
item
Name = 'ALMACEN_ALB'
DataType = datString
Size = 255
DisplayLabel = 'Almac'#195#169'n'
DisplayLabel = 'Almac'#233'n'
DictionaryEntry = 'DETALLE_RESERVAS_INV_ALMACEN_ALB'
end
item
@ -115,20 +115,18 @@ inherited DataModuleInventario: TDataModuleInventario
Name = 'DESCRIPCION_ART'
DataType = datString
Size = 255
DisplayLabel = 'Descripci'#195#179'n'
DisplayLabel = 'Descripci'#243'n'
DictionaryEntry = 'DETALLE_RESERVAS_INV_DESCRIPCION_ART'
end
item
Name = 'CANTIDAD_ART'
DataType = datLargeInt
DataType = datFloat
DisplayLabel = 'Reservado'
DictionaryEntry = 'DETALLE_RESERVAS_INV_CANTIDAD_ART'
end>
Params = <>
StreamingOptions = [soDisableEventsWhileStreaming]
RemoteDataAdapter = rda_Inventario
DetailOptions = [dtCascadeOpenClose, dtCascadeApplyUpdates, dtAutoFetch, dtCascadeDelete, dtCascadeUpdate, dtDisableLogOfCascadeDeletes, dtDisableLogOfCascadeUpdates, dtIncludeInAllInOneFetch]
MasterOptions = [moCascadeOpenClose, moCascadeApplyUpdates, moCascadeDelete, moCascadeUpdate, moDisableLogOfCascadeDeletes, moDisableLogOfCascadeUpdates]
LogicalName = 'DetalleReservas'
IndexDefs = <>
Left = 360
@ -265,8 +263,6 @@ inherited DataModuleInventario: TDataModuleInventario
Params = <>
StreamingOptions = [soDisableEventsWhileStreaming]
RemoteDataAdapter = rda_Inventario
DetailOptions = [dtCascadeOpenClose, dtCascadeApplyUpdates, dtAutoFetch, dtCascadeDelete, dtCascadeUpdate, dtDisableLogOfCascadeDeletes, dtDisableLogOfCascadeUpdates, dtIncludeInAllInOneFetch]
MasterOptions = [moCascadeOpenClose, moCascadeApplyUpdates, moCascadeDelete, moCascadeUpdate, moDisableLogOfCascadeDeletes, moDisableLogOfCascadeUpdates]
LogicalName = 'Inventario'
IndexDefs = <>
Left = 184

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

@ -3,14 +3,14 @@ unit schInventarioClient_Intf;
interface
uses
Classes, DB, schBase_Intf, SysUtils, uROClasses, uDADataTable, FmtBCD, uROXMLIntf;
Classes, DB, schBase_Intf, SysUtils, uROClasses, uDAInterfaces, uDADataTable, FmtBCD, uROXMLIntf;
const
{ Data table rules ids
Feel free to change them to something more human readable
but make sure they are unique in the context of your application }
RID_Inventario = '{308FFF0B-E3D1-48F4-901A-38F4A16CCA35}';
RID_DetalleReservas = '{CE79FB16-723C-4B31-BE6C-4C48D6D8852F}';
RID_Inventario = '{0BE4852B-9A3A-41C0-A474-E53C55D135B2}';
RID_DetalleReservas = '{FC79490D-CB5A-41A4-8163-92EC6F2DA49D}';
{ Data table names }
nme_Inventario = 'Inventario';
@ -95,7 +95,7 @@ const
type
{ IInventario }
IInventario = interface(IDAStronglyTypedDataTable)
['{E59DAC0B-889A-47F9-9049-052D880B24BE}']
['{E24DF110-88BD-4BB9-AE2D-17BEEE4EE1A3}']
{ Property getters and setters }
function GetID_ALMACENValue: Integer;
procedure SetID_ALMACENValue(const aValue: Integer);
@ -133,32 +133,32 @@ type
procedure SetPRECIO_NETOValue(const aValue: Currency);
function GetPRECIO_NETOIsNull: Boolean;
procedure SetPRECIO_NETOIsNull(const aValue: Boolean);
function GetSTOCKValue: Int64;
procedure SetSTOCKValue(const aValue: Int64);
function GetSTOCKValue: Float;
procedure SetSTOCKValue(const aValue: Float);
function GetSTOCKIsNull: Boolean;
procedure SetSTOCKIsNull(const aValue: Boolean);
function GetUNIDADES_ALMACENValue: Int64;
procedure SetUNIDADES_ALMACENValue(const aValue: Int64);
function GetUNIDADES_ALMACENValue: Float;
procedure SetUNIDADES_ALMACENValue(const aValue: Float);
function GetUNIDADES_ALMACENIsNull: Boolean;
procedure SetUNIDADES_ALMACENIsNull(const aValue: Boolean);
function GetCOSTE_UNIDADESValue: Currency;
procedure SetCOSTE_UNIDADESValue(const aValue: Currency);
function GetCOSTE_UNIDADESIsNull: Boolean;
procedure SetCOSTE_UNIDADESIsNull(const aValue: Boolean);
function GetRESERVAValue: Int64;
procedure SetRESERVAValue(const aValue: Int64);
function GetRESERVAValue: Float;
procedure SetRESERVAValue(const aValue: Float);
function GetRESERVAIsNull: Boolean;
procedure SetRESERVAIsNull(const aValue: Boolean);
function GetPENDIENTE_RECEPCIONValue: Int64;
procedure SetPENDIENTE_RECEPCIONValue(const aValue: Int64);
function GetPENDIENTE_RECEPCIONValue: Float;
procedure SetPENDIENTE_RECEPCIONValue(const aValue: Float);
function GetPENDIENTE_RECEPCIONIsNull: Boolean;
procedure SetPENDIENTE_RECEPCIONIsNull(const aValue: Boolean);
function GetIDValue: Integer;
procedure SetIDValue(const aValue: Integer);
function GetIDIsNull: Boolean;
procedure SetIDIsNull(const aValue: Boolean);
function GetCANTIDADValue: Integer;
procedure SetCANTIDADValue(const aValue: Integer);
function GetCANTIDADValue: Float;
procedure SetCANTIDADValue(const aValue: Float);
function GetCANTIDADIsNull: Boolean;
procedure SetCANTIDADIsNull(const aValue: Boolean);
function GetFECHA_MOVIMIENTOValue: DateTime;
@ -194,19 +194,19 @@ type
property REFERENCIA_PROVEEDORIsNull: Boolean read GetREFERENCIA_PROVEEDORIsNull write SetREFERENCIA_PROVEEDORIsNull;
property PRECIO_NETO: Currency read GetPRECIO_NETOValue write SetPRECIO_NETOValue;
property PRECIO_NETOIsNull: Boolean read GetPRECIO_NETOIsNull write SetPRECIO_NETOIsNull;
property STOCK: Int64 read GetSTOCKValue write SetSTOCKValue;
property STOCK: Float read GetSTOCKValue write SetSTOCKValue;
property STOCKIsNull: Boolean read GetSTOCKIsNull write SetSTOCKIsNull;
property UNIDADES_ALMACEN: Int64 read GetUNIDADES_ALMACENValue write SetUNIDADES_ALMACENValue;
property UNIDADES_ALMACEN: Float read GetUNIDADES_ALMACENValue write SetUNIDADES_ALMACENValue;
property UNIDADES_ALMACENIsNull: Boolean read GetUNIDADES_ALMACENIsNull write SetUNIDADES_ALMACENIsNull;
property COSTE_UNIDADES: Currency read GetCOSTE_UNIDADESValue write SetCOSTE_UNIDADESValue;
property COSTE_UNIDADESIsNull: Boolean read GetCOSTE_UNIDADESIsNull write SetCOSTE_UNIDADESIsNull;
property RESERVA: Int64 read GetRESERVAValue write SetRESERVAValue;
property RESERVA: Float read GetRESERVAValue write SetRESERVAValue;
property RESERVAIsNull: Boolean read GetRESERVAIsNull write SetRESERVAIsNull;
property PENDIENTE_RECEPCION: Int64 read GetPENDIENTE_RECEPCIONValue write SetPENDIENTE_RECEPCIONValue;
property PENDIENTE_RECEPCION: Float read GetPENDIENTE_RECEPCIONValue write SetPENDIENTE_RECEPCIONValue;
property PENDIENTE_RECEPCIONIsNull: Boolean read GetPENDIENTE_RECEPCIONIsNull write SetPENDIENTE_RECEPCIONIsNull;
property ID: Integer read GetIDValue write SetIDValue;
property IDIsNull: Boolean read GetIDIsNull write SetIDIsNull;
property CANTIDAD: Integer read GetCANTIDADValue write SetCANTIDADValue;
property CANTIDAD: Float read GetCANTIDADValue write SetCANTIDADValue;
property CANTIDADIsNull: Boolean read GetCANTIDADIsNull write SetCANTIDADIsNull;
property FECHA_MOVIMIENTO: DateTime read GetFECHA_MOVIMIENTOValue write SetFECHA_MOVIMIENTOValue;
property FECHA_MOVIMIENTOIsNull: Boolean read GetFECHA_MOVIMIENTOIsNull write SetFECHA_MOVIMIENTOIsNull;
@ -257,32 +257,32 @@ type
procedure SetPRECIO_NETOValue(const aValue: Currency); virtual;
function GetPRECIO_NETOIsNull: Boolean; virtual;
procedure SetPRECIO_NETOIsNull(const aValue: Boolean); virtual;
function GetSTOCKValue: Int64; virtual;
procedure SetSTOCKValue(const aValue: Int64); virtual;
function GetSTOCKValue: Float; virtual;
procedure SetSTOCKValue(const aValue: Float); virtual;
function GetSTOCKIsNull: Boolean; virtual;
procedure SetSTOCKIsNull(const aValue: Boolean); virtual;
function GetUNIDADES_ALMACENValue: Int64; virtual;
procedure SetUNIDADES_ALMACENValue(const aValue: Int64); virtual;
function GetUNIDADES_ALMACENValue: Float; virtual;
procedure SetUNIDADES_ALMACENValue(const aValue: Float); virtual;
function GetUNIDADES_ALMACENIsNull: Boolean; virtual;
procedure SetUNIDADES_ALMACENIsNull(const aValue: Boolean); virtual;
function GetCOSTE_UNIDADESValue: Currency; virtual;
procedure SetCOSTE_UNIDADESValue(const aValue: Currency); virtual;
function GetCOSTE_UNIDADESIsNull: Boolean; virtual;
procedure SetCOSTE_UNIDADESIsNull(const aValue: Boolean); virtual;
function GetRESERVAValue: Int64; virtual;
procedure SetRESERVAValue(const aValue: Int64); virtual;
function GetRESERVAValue: Float; virtual;
procedure SetRESERVAValue(const aValue: Float); virtual;
function GetRESERVAIsNull: Boolean; virtual;
procedure SetRESERVAIsNull(const aValue: Boolean); virtual;
function GetPENDIENTE_RECEPCIONValue: Int64; virtual;
procedure SetPENDIENTE_RECEPCIONValue(const aValue: Int64); virtual;
function GetPENDIENTE_RECEPCIONValue: Float; virtual;
procedure SetPENDIENTE_RECEPCIONValue(const aValue: Float); virtual;
function GetPENDIENTE_RECEPCIONIsNull: Boolean; virtual;
procedure SetPENDIENTE_RECEPCIONIsNull(const aValue: Boolean); virtual;
function GetIDValue: Integer; virtual;
procedure SetIDValue(const aValue: Integer); virtual;
function GetIDIsNull: Boolean; virtual;
procedure SetIDIsNull(const aValue: Boolean); virtual;
function GetCANTIDADValue: Integer; virtual;
procedure SetCANTIDADValue(const aValue: Integer); virtual;
function GetCANTIDADValue: Float; virtual;
procedure SetCANTIDADValue(const aValue: Float); virtual;
function GetCANTIDADIsNull: Boolean; virtual;
procedure SetCANTIDADIsNull(const aValue: Boolean); virtual;
function GetFECHA_MOVIMIENTOValue: DateTime; virtual;
@ -317,19 +317,19 @@ type
property REFERENCIA_PROVEEDORIsNull: Boolean read GetREFERENCIA_PROVEEDORIsNull write SetREFERENCIA_PROVEEDORIsNull;
property PRECIO_NETO: Currency read GetPRECIO_NETOValue write SetPRECIO_NETOValue;
property PRECIO_NETOIsNull: Boolean read GetPRECIO_NETOIsNull write SetPRECIO_NETOIsNull;
property STOCK: Int64 read GetSTOCKValue write SetSTOCKValue;
property STOCK: Float read GetSTOCKValue write SetSTOCKValue;
property STOCKIsNull: Boolean read GetSTOCKIsNull write SetSTOCKIsNull;
property UNIDADES_ALMACEN: Int64 read GetUNIDADES_ALMACENValue write SetUNIDADES_ALMACENValue;
property UNIDADES_ALMACEN: Float read GetUNIDADES_ALMACENValue write SetUNIDADES_ALMACENValue;
property UNIDADES_ALMACENIsNull: Boolean read GetUNIDADES_ALMACENIsNull write SetUNIDADES_ALMACENIsNull;
property COSTE_UNIDADES: Currency read GetCOSTE_UNIDADESValue write SetCOSTE_UNIDADESValue;
property COSTE_UNIDADESIsNull: Boolean read GetCOSTE_UNIDADESIsNull write SetCOSTE_UNIDADESIsNull;
property RESERVA: Int64 read GetRESERVAValue write SetRESERVAValue;
property RESERVA: Float read GetRESERVAValue write SetRESERVAValue;
property RESERVAIsNull: Boolean read GetRESERVAIsNull write SetRESERVAIsNull;
property PENDIENTE_RECEPCION: Int64 read GetPENDIENTE_RECEPCIONValue write SetPENDIENTE_RECEPCIONValue;
property PENDIENTE_RECEPCION: Float read GetPENDIENTE_RECEPCIONValue write SetPENDIENTE_RECEPCIONValue;
property PENDIENTE_RECEPCIONIsNull: Boolean read GetPENDIENTE_RECEPCIONIsNull write SetPENDIENTE_RECEPCIONIsNull;
property ID: Integer read GetIDValue write SetIDValue;
property IDIsNull: Boolean read GetIDIsNull write SetIDIsNull;
property CANTIDAD: Integer read GetCANTIDADValue write SetCANTIDADValue;
property CANTIDAD: Float read GetCANTIDADValue write SetCANTIDADValue;
property CANTIDADIsNull: Boolean read GetCANTIDADIsNull write SetCANTIDADIsNull;
property FECHA_MOVIMIENTO: DateTime read GetFECHA_MOVIMIENTOValue write SetFECHA_MOVIMIENTOValue;
property FECHA_MOVIMIENTOIsNull: Boolean read GetFECHA_MOVIMIENTOIsNull write SetFECHA_MOVIMIENTOIsNull;
@ -346,7 +346,7 @@ type
{ IDetalleReservas }
IDetalleReservas = interface(IDAStronglyTypedDataTable)
['{BA120247-EDE7-4A2A-A826-64062E6E767C}']
['{93FBB98C-4B7B-49C0-8615-8FB28E9AB01D}']
{ Property getters and setters }
function GetID_ALBValue: Integer;
procedure SetID_ALBValue(const aValue: Integer);
@ -404,8 +404,8 @@ type
procedure SetDESCRIPCION_ARTValue(const aValue: String);
function GetDESCRIPCION_ARTIsNull: Boolean;
procedure SetDESCRIPCION_ARTIsNull(const aValue: Boolean);
function GetCANTIDAD_ARTValue: Int64;
procedure SetCANTIDAD_ARTValue(const aValue: Int64);
function GetCANTIDAD_ARTValue: Float;
procedure SetCANTIDAD_ARTValue(const aValue: Float);
function GetCANTIDAD_ARTIsNull: Boolean;
procedure SetCANTIDAD_ARTIsNull(const aValue: Boolean);
@ -439,7 +439,7 @@ type
property REFERENCIA_PROV_ARTIsNull: Boolean read GetREFERENCIA_PROV_ARTIsNull write SetREFERENCIA_PROV_ARTIsNull;
property DESCRIPCION_ART: String read GetDESCRIPCION_ARTValue write SetDESCRIPCION_ARTValue;
property DESCRIPCION_ARTIsNull: Boolean read GetDESCRIPCION_ARTIsNull write SetDESCRIPCION_ARTIsNull;
property CANTIDAD_ART: Int64 read GetCANTIDAD_ARTValue write SetCANTIDAD_ARTValue;
property CANTIDAD_ART: Float read GetCANTIDAD_ARTValue write SetCANTIDAD_ARTValue;
property CANTIDAD_ARTIsNull: Boolean read GetCANTIDAD_ARTIsNull write SetCANTIDAD_ARTIsNull;
end;
@ -504,8 +504,8 @@ type
procedure SetDESCRIPCION_ARTValue(const aValue: String); virtual;
function GetDESCRIPCION_ARTIsNull: Boolean; virtual;
procedure SetDESCRIPCION_ARTIsNull(const aValue: Boolean); virtual;
function GetCANTIDAD_ARTValue: Int64; virtual;
procedure SetCANTIDAD_ARTValue(const aValue: Int64); virtual;
function GetCANTIDAD_ARTValue: Float; virtual;
procedure SetCANTIDAD_ARTValue(const aValue: Float); virtual;
function GetCANTIDAD_ARTIsNull: Boolean; virtual;
procedure SetCANTIDAD_ARTIsNull(const aValue: Boolean); virtual;
@ -538,7 +538,7 @@ type
property REFERENCIA_PROV_ARTIsNull: Boolean read GetREFERENCIA_PROV_ARTIsNull write SetREFERENCIA_PROV_ARTIsNull;
property DESCRIPCION_ART: String read GetDESCRIPCION_ARTValue write SetDESCRIPCION_ARTValue;
property DESCRIPCION_ARTIsNull: Boolean read GetDESCRIPCION_ARTIsNull write SetDESCRIPCION_ARTIsNull;
property CANTIDAD_ART: Int64 read GetCANTIDAD_ARTValue write SetCANTIDAD_ARTValue;
property CANTIDAD_ART: Float read GetCANTIDAD_ARTValue write SetCANTIDAD_ARTValue;
property CANTIDAD_ARTIsNull: Boolean read GetCANTIDAD_ARTIsNull write SetCANTIDAD_ARTIsNull;
public
@ -751,14 +751,14 @@ begin
DataTable.Fields[idx_InventarioPRECIO_NETO].AsVariant := Null;
end;
function TInventarioDataTableRules.GetSTOCKValue: Int64;
function TInventarioDataTableRules.GetSTOCKValue: Float;
begin
result := DataTable.Fields[idx_InventarioSTOCK].AsLargeInt;
result := DataTable.Fields[idx_InventarioSTOCK].AsFloat;
end;
procedure TInventarioDataTableRules.SetSTOCKValue(const aValue: Int64);
procedure TInventarioDataTableRules.SetSTOCKValue(const aValue: Float);
begin
DataTable.Fields[idx_InventarioSTOCK].AsLargeInt := aValue;
DataTable.Fields[idx_InventarioSTOCK].AsFloat := aValue;
end;
function TInventarioDataTableRules.GetSTOCKIsNull: boolean;
@ -772,14 +772,14 @@ begin
DataTable.Fields[idx_InventarioSTOCK].AsVariant := Null;
end;
function TInventarioDataTableRules.GetUNIDADES_ALMACENValue: Int64;
function TInventarioDataTableRules.GetUNIDADES_ALMACENValue: Float;
begin
result := DataTable.Fields[idx_InventarioUNIDADES_ALMACEN].AsLargeInt;
result := DataTable.Fields[idx_InventarioUNIDADES_ALMACEN].AsFloat;
end;
procedure TInventarioDataTableRules.SetUNIDADES_ALMACENValue(const aValue: Int64);
procedure TInventarioDataTableRules.SetUNIDADES_ALMACENValue(const aValue: Float);
begin
DataTable.Fields[idx_InventarioUNIDADES_ALMACEN].AsLargeInt := aValue;
DataTable.Fields[idx_InventarioUNIDADES_ALMACEN].AsFloat := aValue;
end;
function TInventarioDataTableRules.GetUNIDADES_ALMACENIsNull: boolean;
@ -814,14 +814,14 @@ begin
DataTable.Fields[idx_InventarioCOSTE_UNIDADES].AsVariant := Null;
end;
function TInventarioDataTableRules.GetRESERVAValue: Int64;
function TInventarioDataTableRules.GetRESERVAValue: Float;
begin
result := DataTable.Fields[idx_InventarioRESERVA].AsLargeInt;
result := DataTable.Fields[idx_InventarioRESERVA].AsFloat;
end;
procedure TInventarioDataTableRules.SetRESERVAValue(const aValue: Int64);
procedure TInventarioDataTableRules.SetRESERVAValue(const aValue: Float);
begin
DataTable.Fields[idx_InventarioRESERVA].AsLargeInt := aValue;
DataTable.Fields[idx_InventarioRESERVA].AsFloat := aValue;
end;
function TInventarioDataTableRules.GetRESERVAIsNull: boolean;
@ -835,14 +835,14 @@ begin
DataTable.Fields[idx_InventarioRESERVA].AsVariant := Null;
end;
function TInventarioDataTableRules.GetPENDIENTE_RECEPCIONValue: Int64;
function TInventarioDataTableRules.GetPENDIENTE_RECEPCIONValue: Float;
begin
result := DataTable.Fields[idx_InventarioPENDIENTE_RECEPCION].AsLargeInt;
result := DataTable.Fields[idx_InventarioPENDIENTE_RECEPCION].AsFloat;
end;
procedure TInventarioDataTableRules.SetPENDIENTE_RECEPCIONValue(const aValue: Int64);
procedure TInventarioDataTableRules.SetPENDIENTE_RECEPCIONValue(const aValue: Float);
begin
DataTable.Fields[idx_InventarioPENDIENTE_RECEPCION].AsLargeInt := aValue;
DataTable.Fields[idx_InventarioPENDIENTE_RECEPCION].AsFloat := aValue;
end;
function TInventarioDataTableRules.GetPENDIENTE_RECEPCIONIsNull: boolean;
@ -877,14 +877,14 @@ begin
DataTable.Fields[idx_InventarioID].AsVariant := Null;
end;
function TInventarioDataTableRules.GetCANTIDADValue: Integer;
function TInventarioDataTableRules.GetCANTIDADValue: Float;
begin
result := DataTable.Fields[idx_InventarioCANTIDAD].AsInteger;
result := DataTable.Fields[idx_InventarioCANTIDAD].AsFloat;
end;
procedure TInventarioDataTableRules.SetCANTIDADValue(const aValue: Integer);
procedure TInventarioDataTableRules.SetCANTIDADValue(const aValue: Float);
begin
DataTable.Fields[idx_InventarioCANTIDAD].AsInteger := aValue;
DataTable.Fields[idx_InventarioCANTIDAD].AsFloat := aValue;
end;
function TInventarioDataTableRules.GetCANTIDADIsNull: boolean;
@ -1267,14 +1267,14 @@ begin
DataTable.Fields[idx_DetalleReservasDESCRIPCION_ART].AsVariant := Null;
end;
function TDetalleReservasDataTableRules.GetCANTIDAD_ARTValue: Int64;
function TDetalleReservasDataTableRules.GetCANTIDAD_ARTValue: Float;
begin
result := DataTable.Fields[idx_DetalleReservasCANTIDAD_ART].AsLargeInt;
result := DataTable.Fields[idx_DetalleReservasCANTIDAD_ART].AsFloat;
end;
procedure TDetalleReservasDataTableRules.SetCANTIDAD_ARTValue(const aValue: Int64);
procedure TDetalleReservasDataTableRules.SetCANTIDAD_ARTValue(const aValue: Float);
begin
DataTable.Fields[idx_DetalleReservasCANTIDAD_ART].AsLargeInt := aValue;
DataTable.Fields[idx_DetalleReservasCANTIDAD_ART].AsFloat := aValue;
end;
function TDetalleReservasDataTableRules.GetCANTIDAD_ARTIsNull: boolean;

128
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 = '{85349204-7741-43F5-9BA3-E220A4FD11A6}';
RID_DetalleReservasDelta = '{33516718-F449-4975-84BC-AA4394AD0C53}';
RID_InventarioDelta = '{1EB22602-1C4D-48A2-8C42-A2C310937FCF}';
RID_DetalleReservasDelta = '{1334ABD7-C1C7-400F-961C-2E85AF1B4C3D}';
type
{ IInventarioDelta }
IInventarioDelta = interface(IInventario)
['{85349204-7741-43F5-9BA3-E220A4FD11A6}']
['{1EB22602-1C4D-48A2-8C42-A2C310937FCF}']
{ Property getters and setters }
function GetOldID_ALMACENValue : Integer;
function GetOldID_ARTICULOValue : Integer;
@ -26,13 +26,13 @@ type
function GetOldDESCRIPCIONValue : String;
function GetOldREFERENCIA_PROVEEDORValue : String;
function GetOldPRECIO_NETOValue : Currency;
function GetOldSTOCKValue : Int64;
function GetOldUNIDADES_ALMACENValue : Int64;
function GetOldSTOCKValue : Float;
function GetOldUNIDADES_ALMACENValue : Float;
function GetOldCOSTE_UNIDADESValue : Currency;
function GetOldRESERVAValue : Int64;
function GetOldPENDIENTE_RECEPCIONValue : Int64;
function GetOldRESERVAValue : Float;
function GetOldPENDIENTE_RECEPCIONValue : Float;
function GetOldIDValue : Integer;
function GetOldCANTIDADValue : Integer;
function GetOldCANTIDADValue : Float;
function GetOldFECHA_MOVIMIENTOValue : DateTime;
function GetOldCAUSAValue : String;
function GetOldTIPOValue : String;
@ -47,13 +47,13 @@ type
property OldDESCRIPCION : String read GetOldDESCRIPCIONValue;
property OldREFERENCIA_PROVEEDOR : String read GetOldREFERENCIA_PROVEEDORValue;
property OldPRECIO_NETO : Currency read GetOldPRECIO_NETOValue;
property OldSTOCK : Int64 read GetOldSTOCKValue;
property OldUNIDADES_ALMACEN : Int64 read GetOldUNIDADES_ALMACENValue;
property OldSTOCK : Float read GetOldSTOCKValue;
property OldUNIDADES_ALMACEN : Float read GetOldUNIDADES_ALMACENValue;
property OldCOSTE_UNIDADES : Currency read GetOldCOSTE_UNIDADESValue;
property OldRESERVA : Int64 read GetOldRESERVAValue;
property OldPENDIENTE_RECEPCION : Int64 read GetOldPENDIENTE_RECEPCIONValue;
property OldRESERVA : Float read GetOldRESERVAValue;
property OldPENDIENTE_RECEPCION : Float read GetOldPENDIENTE_RECEPCIONValue;
property OldID : Integer read GetOldIDValue;
property OldCANTIDAD : Integer read GetOldCANTIDADValue;
property OldCANTIDAD : Float read GetOldCANTIDADValue;
property OldFECHA_MOVIMIENTO : DateTime read GetOldFECHA_MOVIMIENTOValue;
property OldCAUSA : String read GetOldCAUSAValue;
property OldTIPO : String read GetOldTIPOValue;
@ -118,17 +118,17 @@ type
function GetOldPRECIO_NETOIsNull: Boolean; virtual;
procedure SetPRECIO_NETOValue(const aValue: Currency); virtual;
procedure SetPRECIO_NETOIsNull(const aValue: Boolean); virtual;
function GetSTOCKValue: Int64; virtual;
function GetSTOCKValue: Float; virtual;
function GetSTOCKIsNull: Boolean; virtual;
function GetOldSTOCKValue: Int64; virtual;
function GetOldSTOCKValue: Float; virtual;
function GetOldSTOCKIsNull: Boolean; virtual;
procedure SetSTOCKValue(const aValue: Int64); virtual;
procedure SetSTOCKValue(const aValue: Float); virtual;
procedure SetSTOCKIsNull(const aValue: Boolean); virtual;
function GetUNIDADES_ALMACENValue: Int64; virtual;
function GetUNIDADES_ALMACENValue: Float; virtual;
function GetUNIDADES_ALMACENIsNull: Boolean; virtual;
function GetOldUNIDADES_ALMACENValue: Int64; virtual;
function GetOldUNIDADES_ALMACENValue: Float; virtual;
function GetOldUNIDADES_ALMACENIsNull: Boolean; virtual;
procedure SetUNIDADES_ALMACENValue(const aValue: Int64); virtual;
procedure SetUNIDADES_ALMACENValue(const aValue: Float); virtual;
procedure SetUNIDADES_ALMACENIsNull(const aValue: Boolean); virtual;
function GetCOSTE_UNIDADESValue: Currency; virtual;
function GetCOSTE_UNIDADESIsNull: Boolean; virtual;
@ -136,17 +136,17 @@ type
function GetOldCOSTE_UNIDADESIsNull: Boolean; virtual;
procedure SetCOSTE_UNIDADESValue(const aValue: Currency); virtual;
procedure SetCOSTE_UNIDADESIsNull(const aValue: Boolean); virtual;
function GetRESERVAValue: Int64; virtual;
function GetRESERVAValue: Float; virtual;
function GetRESERVAIsNull: Boolean; virtual;
function GetOldRESERVAValue: Int64; virtual;
function GetOldRESERVAValue: Float; virtual;
function GetOldRESERVAIsNull: Boolean; virtual;
procedure SetRESERVAValue(const aValue: Int64); virtual;
procedure SetRESERVAValue(const aValue: Float); virtual;
procedure SetRESERVAIsNull(const aValue: Boolean); virtual;
function GetPENDIENTE_RECEPCIONValue: Int64; virtual;
function GetPENDIENTE_RECEPCIONValue: Float; virtual;
function GetPENDIENTE_RECEPCIONIsNull: Boolean; virtual;
function GetOldPENDIENTE_RECEPCIONValue: Int64; virtual;
function GetOldPENDIENTE_RECEPCIONValue: Float; virtual;
function GetOldPENDIENTE_RECEPCIONIsNull: Boolean; virtual;
procedure SetPENDIENTE_RECEPCIONValue(const aValue: Int64); virtual;
procedure SetPENDIENTE_RECEPCIONValue(const aValue: Float); virtual;
procedure SetPENDIENTE_RECEPCIONIsNull(const aValue: Boolean); virtual;
function GetIDValue: Integer; virtual;
function GetIDIsNull: Boolean; virtual;
@ -154,11 +154,11 @@ type
function GetOldIDIsNull: Boolean; virtual;
procedure SetIDValue(const aValue: Integer); virtual;
procedure SetIDIsNull(const aValue: Boolean); virtual;
function GetCANTIDADValue: Integer; virtual;
function GetCANTIDADValue: Float; virtual;
function GetCANTIDADIsNull: Boolean; virtual;
function GetOldCANTIDADValue: Integer; virtual;
function GetOldCANTIDADValue: Float; virtual;
function GetOldCANTIDADIsNull: Boolean; virtual;
procedure SetCANTIDADValue(const aValue: Integer); virtual;
procedure SetCANTIDADValue(const aValue: Float); virtual;
procedure SetCANTIDADIsNull(const aValue: Boolean); virtual;
function GetFECHA_MOVIMIENTOValue: DateTime; virtual;
function GetFECHA_MOVIMIENTOIsNull: Boolean; virtual;
@ -216,33 +216,33 @@ type
property PRECIO_NETOIsNull : Boolean read GetPRECIO_NETOIsNull write SetPRECIO_NETOIsNull;
property OldPRECIO_NETO : Currency read GetOldPRECIO_NETOValue;
property OldPRECIO_NETOIsNull : Boolean read GetOldPRECIO_NETOIsNull;
property STOCK : Int64 read GetSTOCKValue write SetSTOCKValue;
property STOCK : Float read GetSTOCKValue write SetSTOCKValue;
property STOCKIsNull : Boolean read GetSTOCKIsNull write SetSTOCKIsNull;
property OldSTOCK : Int64 read GetOldSTOCKValue;
property OldSTOCK : Float read GetOldSTOCKValue;
property OldSTOCKIsNull : Boolean read GetOldSTOCKIsNull;
property UNIDADES_ALMACEN : Int64 read GetUNIDADES_ALMACENValue write SetUNIDADES_ALMACENValue;
property UNIDADES_ALMACEN : Float read GetUNIDADES_ALMACENValue write SetUNIDADES_ALMACENValue;
property UNIDADES_ALMACENIsNull : Boolean read GetUNIDADES_ALMACENIsNull write SetUNIDADES_ALMACENIsNull;
property OldUNIDADES_ALMACEN : Int64 read GetOldUNIDADES_ALMACENValue;
property OldUNIDADES_ALMACEN : Float read GetOldUNIDADES_ALMACENValue;
property OldUNIDADES_ALMACENIsNull : Boolean read GetOldUNIDADES_ALMACENIsNull;
property COSTE_UNIDADES : Currency read GetCOSTE_UNIDADESValue write SetCOSTE_UNIDADESValue;
property COSTE_UNIDADESIsNull : Boolean read GetCOSTE_UNIDADESIsNull write SetCOSTE_UNIDADESIsNull;
property OldCOSTE_UNIDADES : Currency read GetOldCOSTE_UNIDADESValue;
property OldCOSTE_UNIDADESIsNull : Boolean read GetOldCOSTE_UNIDADESIsNull;
property RESERVA : Int64 read GetRESERVAValue write SetRESERVAValue;
property RESERVA : Float read GetRESERVAValue write SetRESERVAValue;
property RESERVAIsNull : Boolean read GetRESERVAIsNull write SetRESERVAIsNull;
property OldRESERVA : Int64 read GetOldRESERVAValue;
property OldRESERVA : Float read GetOldRESERVAValue;
property OldRESERVAIsNull : Boolean read GetOldRESERVAIsNull;
property PENDIENTE_RECEPCION : Int64 read GetPENDIENTE_RECEPCIONValue write SetPENDIENTE_RECEPCIONValue;
property PENDIENTE_RECEPCION : Float read GetPENDIENTE_RECEPCIONValue write SetPENDIENTE_RECEPCIONValue;
property PENDIENTE_RECEPCIONIsNull : Boolean read GetPENDIENTE_RECEPCIONIsNull write SetPENDIENTE_RECEPCIONIsNull;
property OldPENDIENTE_RECEPCION : Int64 read GetOldPENDIENTE_RECEPCIONValue;
property OldPENDIENTE_RECEPCION : Float read GetOldPENDIENTE_RECEPCIONValue;
property OldPENDIENTE_RECEPCIONIsNull : Boolean read GetOldPENDIENTE_RECEPCIONIsNull;
property ID : Integer read GetIDValue write SetIDValue;
property IDIsNull : Boolean read GetIDIsNull write SetIDIsNull;
property OldID : Integer read GetOldIDValue;
property OldIDIsNull : Boolean read GetOldIDIsNull;
property CANTIDAD : Integer read GetCANTIDADValue write SetCANTIDADValue;
property CANTIDAD : Float read GetCANTIDADValue write SetCANTIDADValue;
property CANTIDADIsNull : Boolean read GetCANTIDADIsNull write SetCANTIDADIsNull;
property OldCANTIDAD : Integer read GetOldCANTIDADValue;
property OldCANTIDAD : Float read GetOldCANTIDADValue;
property OldCANTIDADIsNull : Boolean read GetOldCANTIDADIsNull;
property FECHA_MOVIMIENTO : DateTime read GetFECHA_MOVIMIENTOValue write SetFECHA_MOVIMIENTOValue;
property FECHA_MOVIMIENTOIsNull : Boolean read GetFECHA_MOVIMIENTOIsNull write SetFECHA_MOVIMIENTOIsNull;
@ -265,7 +265,7 @@ type
{ IDetalleReservasDelta }
IDetalleReservasDelta = interface(IDetalleReservas)
['{33516718-F449-4975-84BC-AA4394AD0C53}']
['{1334ABD7-C1C7-400F-961C-2E85AF1B4C3D}']
{ Property getters and setters }
function GetOldID_ALBValue : Integer;
function GetOldID_EMPRESAValue : Integer;
@ -281,7 +281,7 @@ type
function GetOldREFERENCIA_ARTValue : String;
function GetOldREFERENCIA_PROV_ARTValue : String;
function GetOldDESCRIPCION_ARTValue : String;
function GetOldCANTIDAD_ARTValue : Int64;
function GetOldCANTIDAD_ARTValue : Float;
{ Properties }
property OldID_ALB : Integer read GetOldID_ALBValue;
@ -298,7 +298,7 @@ type
property OldREFERENCIA_ART : String read GetOldREFERENCIA_ARTValue;
property OldREFERENCIA_PROV_ART : String read GetOldREFERENCIA_PROV_ARTValue;
property OldDESCRIPCION_ART : String read GetOldDESCRIPCION_ARTValue;
property OldCANTIDAD_ART : Int64 read GetOldCANTIDAD_ARTValue;
property OldCANTIDAD_ART : Float read GetOldCANTIDAD_ARTValue;
end;
{ TDetalleReservasBusinessProcessorRules }
@ -390,11 +390,11 @@ type
function GetOldDESCRIPCION_ARTIsNull: Boolean; virtual;
procedure SetDESCRIPCION_ARTValue(const aValue: String); virtual;
procedure SetDESCRIPCION_ARTIsNull(const aValue: Boolean); virtual;
function GetCANTIDAD_ARTValue: Int64; virtual;
function GetCANTIDAD_ARTValue: Float; virtual;
function GetCANTIDAD_ARTIsNull: Boolean; virtual;
function GetOldCANTIDAD_ARTValue: Int64; virtual;
function GetOldCANTIDAD_ARTValue: Float; virtual;
function GetOldCANTIDAD_ARTIsNull: Boolean; virtual;
procedure SetCANTIDAD_ARTValue(const aValue: Int64); virtual;
procedure SetCANTIDAD_ARTValue(const aValue: Float); virtual;
procedure SetCANTIDAD_ARTIsNull(const aValue: Boolean); virtual;
{ Properties }
@ -454,9 +454,9 @@ type
property DESCRIPCION_ARTIsNull : Boolean read GetDESCRIPCION_ARTIsNull write SetDESCRIPCION_ARTIsNull;
property OldDESCRIPCION_ART : String read GetOldDESCRIPCION_ARTValue;
property OldDESCRIPCION_ARTIsNull : Boolean read GetOldDESCRIPCION_ARTIsNull;
property CANTIDAD_ART : Int64 read GetCANTIDAD_ARTValue write SetCANTIDAD_ARTValue;
property CANTIDAD_ART : Float read GetCANTIDAD_ARTValue write SetCANTIDAD_ARTValue;
property CANTIDAD_ARTIsNull : Boolean read GetCANTIDAD_ARTIsNull write SetCANTIDAD_ARTIsNull;
property OldCANTIDAD_ART : Int64 read GetOldCANTIDAD_ARTValue;
property OldCANTIDAD_ART : Float read GetOldCANTIDAD_ARTValue;
property OldCANTIDAD_ARTIsNull : Boolean read GetOldCANTIDAD_ARTIsNull;
public
@ -760,7 +760,7 @@ begin
BusinessProcessor.CurrentChange.NewValueByName[fld_InventarioPRECIO_NETO] := Null;
end;
function TInventarioBusinessProcessorRules.GetSTOCKValue: Int64;
function TInventarioBusinessProcessorRules.GetSTOCKValue: Float;
begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_InventarioSTOCK];
end;
@ -770,7 +770,7 @@ begin
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_InventarioSTOCK]);
end;
function TInventarioBusinessProcessorRules.GetOldSTOCKValue: Int64;
function TInventarioBusinessProcessorRules.GetOldSTOCKValue: Float;
begin
result := BusinessProcessor.CurrentChange.OldValueByName[fld_InventarioSTOCK];
end;
@ -780,7 +780,7 @@ begin
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_InventarioSTOCK]);
end;
procedure TInventarioBusinessProcessorRules.SetSTOCKValue(const aValue: Int64);
procedure TInventarioBusinessProcessorRules.SetSTOCKValue(const aValue: Float);
begin
BusinessProcessor.CurrentChange.NewValueByName[fld_InventarioSTOCK] := aValue;
end;
@ -791,7 +791,7 @@ begin
BusinessProcessor.CurrentChange.NewValueByName[fld_InventarioSTOCK] := Null;
end;
function TInventarioBusinessProcessorRules.GetUNIDADES_ALMACENValue: Int64;
function TInventarioBusinessProcessorRules.GetUNIDADES_ALMACENValue: Float;
begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_InventarioUNIDADES_ALMACEN];
end;
@ -801,7 +801,7 @@ begin
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_InventarioUNIDADES_ALMACEN]);
end;
function TInventarioBusinessProcessorRules.GetOldUNIDADES_ALMACENValue: Int64;
function TInventarioBusinessProcessorRules.GetOldUNIDADES_ALMACENValue: Float;
begin
result := BusinessProcessor.CurrentChange.OldValueByName[fld_InventarioUNIDADES_ALMACEN];
end;
@ -811,7 +811,7 @@ begin
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_InventarioUNIDADES_ALMACEN]);
end;
procedure TInventarioBusinessProcessorRules.SetUNIDADES_ALMACENValue(const aValue: Int64);
procedure TInventarioBusinessProcessorRules.SetUNIDADES_ALMACENValue(const aValue: Float);
begin
BusinessProcessor.CurrentChange.NewValueByName[fld_InventarioUNIDADES_ALMACEN] := aValue;
end;
@ -853,7 +853,7 @@ begin
BusinessProcessor.CurrentChange.NewValueByName[fld_InventarioCOSTE_UNIDADES] := Null;
end;
function TInventarioBusinessProcessorRules.GetRESERVAValue: Int64;
function TInventarioBusinessProcessorRules.GetRESERVAValue: Float;
begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_InventarioRESERVA];
end;
@ -863,7 +863,7 @@ begin
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_InventarioRESERVA]);
end;
function TInventarioBusinessProcessorRules.GetOldRESERVAValue: Int64;
function TInventarioBusinessProcessorRules.GetOldRESERVAValue: Float;
begin
result := BusinessProcessor.CurrentChange.OldValueByName[fld_InventarioRESERVA];
end;
@ -873,7 +873,7 @@ begin
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_InventarioRESERVA]);
end;
procedure TInventarioBusinessProcessorRules.SetRESERVAValue(const aValue: Int64);
procedure TInventarioBusinessProcessorRules.SetRESERVAValue(const aValue: Float);
begin
BusinessProcessor.CurrentChange.NewValueByName[fld_InventarioRESERVA] := aValue;
end;
@ -884,7 +884,7 @@ begin
BusinessProcessor.CurrentChange.NewValueByName[fld_InventarioRESERVA] := Null;
end;
function TInventarioBusinessProcessorRules.GetPENDIENTE_RECEPCIONValue: Int64;
function TInventarioBusinessProcessorRules.GetPENDIENTE_RECEPCIONValue: Float;
begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_InventarioPENDIENTE_RECEPCION];
end;
@ -894,7 +894,7 @@ begin
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_InventarioPENDIENTE_RECEPCION]);
end;
function TInventarioBusinessProcessorRules.GetOldPENDIENTE_RECEPCIONValue: Int64;
function TInventarioBusinessProcessorRules.GetOldPENDIENTE_RECEPCIONValue: Float;
begin
result := BusinessProcessor.CurrentChange.OldValueByName[fld_InventarioPENDIENTE_RECEPCION];
end;
@ -904,7 +904,7 @@ begin
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_InventarioPENDIENTE_RECEPCION]);
end;
procedure TInventarioBusinessProcessorRules.SetPENDIENTE_RECEPCIONValue(const aValue: Int64);
procedure TInventarioBusinessProcessorRules.SetPENDIENTE_RECEPCIONValue(const aValue: Float);
begin
BusinessProcessor.CurrentChange.NewValueByName[fld_InventarioPENDIENTE_RECEPCION] := aValue;
end;
@ -946,7 +946,7 @@ begin
BusinessProcessor.CurrentChange.NewValueByName[fld_InventarioID] := Null;
end;
function TInventarioBusinessProcessorRules.GetCANTIDADValue: Integer;
function TInventarioBusinessProcessorRules.GetCANTIDADValue: Float;
begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_InventarioCANTIDAD];
end;
@ -956,7 +956,7 @@ begin
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_InventarioCANTIDAD]);
end;
function TInventarioBusinessProcessorRules.GetOldCANTIDADValue: Integer;
function TInventarioBusinessProcessorRules.GetOldCANTIDADValue: Float;
begin
result := BusinessProcessor.CurrentChange.OldValueByName[fld_InventarioCANTIDAD];
end;
@ -966,7 +966,7 @@ begin
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_InventarioCANTIDAD]);
end;
procedure TInventarioBusinessProcessorRules.SetCANTIDADValue(const aValue: Integer);
procedure TInventarioBusinessProcessorRules.SetCANTIDADValue(const aValue: Float);
begin
BusinessProcessor.CurrentChange.NewValueByName[fld_InventarioCANTIDAD] := aValue;
end;
@ -1516,7 +1516,7 @@ begin
BusinessProcessor.CurrentChange.NewValueByName[fld_DetalleReservasDESCRIPCION_ART] := Null;
end;
function TDetalleReservasBusinessProcessorRules.GetCANTIDAD_ARTValue: Int64;
function TDetalleReservasBusinessProcessorRules.GetCANTIDAD_ARTValue: Float;
begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_DetalleReservasCANTIDAD_ART];
end;
@ -1526,7 +1526,7 @@ begin
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_DetalleReservasCANTIDAD_ART]);
end;
function TDetalleReservasBusinessProcessorRules.GetOldCANTIDAD_ARTValue: Int64;
function TDetalleReservasBusinessProcessorRules.GetOldCANTIDAD_ARTValue: Float;
begin
result := BusinessProcessor.CurrentChange.OldValueByName[fld_DetalleReservasCANTIDAD_ART];
end;
@ -1536,7 +1536,7 @@ begin
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_DetalleReservasCANTIDAD_ART]);
end;
procedure TDetalleReservasBusinessProcessorRules.SetCANTIDAD_ARTValue(const aValue: Int64);
procedure TDetalleReservasBusinessProcessorRules.SetCANTIDAD_ARTValue(const aValue: Float);
begin
BusinessProcessor.CurrentChange.NewValueByName[fld_DetalleReservasCANTIDAD_ART] := aValue;
end;

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

@ -110,106 +110,106 @@ object srvInventario: TsrvInventario
item
Name = 'ID_ALMACEN'
DataType = datInteger
DictionaryEntry = 'INVENTARIO_ID_ALMACEN'
DictionaryEntry = 'Inventario_ID_ALMACEN'
end
item
Name = 'ID_ARTICULO'
DataType = datInteger
DictionaryEntry = 'INVENTARIO_ID_ARTICULO'
DictionaryEntry = 'Inventario_ID_ARTICULO'
end
item
Name = 'ALMACEN'
DataType = datString
Size = 255
DictionaryEntry = 'INVENTARIO_ALMACEN'
DictionaryEntry = 'Inventario_ALMACEN'
end
item
Name = 'ID_EMPRESA'
DataType = datInteger
DictionaryEntry = 'INVENTARIO_ID_EMPRESA'
DictionaryEntry = 'Inventario_ID_EMPRESA'
end
item
Name = 'REFERENCIA'
DataType = datString
Size = 255
DictionaryEntry = 'INVENTARIO_REFERENCIA'
DictionaryEntry = 'Inventario_REFERENCIA'
end
item
Name = 'FAMILIA'
DataType = datString
Size = 255
DictionaryEntry = 'INVENTARIO_FAMILIA'
DictionaryEntry = 'Inventario_FAMILIA'
end
item
Name = 'DESCRIPCION'
DataType = datString
Size = 255
DictionaryEntry = 'INVENTARIO_DESCRIPCION'
DictionaryEntry = 'Inventario_DESCRIPCION'
end
item
Name = 'REFERENCIA_PROVEEDOR'
DataType = datString
Size = 255
DictionaryEntry = 'INVENTARIO_REFERENCIA_PROVEEDOR'
DictionaryEntry = 'Inventario_REFERENCIA_PROVEEDOR'
end
item
Name = 'PRECIO_NETO'
DataType = datCurrency
DictionaryEntry = 'INVENTARIO_PRECIO_NETO'
DictionaryEntry = 'Inventario_PRECIO_NETO'
end
item
Name = 'STOCK'
DataType = datLargeInt
DictionaryEntry = 'INVENTARIO_STOCK'
DataType = datFloat
DictionaryEntry = 'Inventario_STOCK'
end
item
Name = 'UNIDADES_ALMACEN'
DataType = datLargeInt
DictionaryEntry = 'INVENTARIO_UNIDADES_ALMACEN'
DataType = datFloat
DictionaryEntry = 'Inventario_UNIDADES_ALMACEN'
end
item
Name = 'COSTE_UNIDADES'
DataType = datCurrency
DictionaryEntry = 'INVENTARIO_COSTE_UNIDADES'
DictionaryEntry = 'Inventario_COSTE_UNIDADES'
end
item
Name = 'RESERVA'
DataType = datLargeInt
DictionaryEntry = 'INVENTARIO_RESERVA'
DataType = datFloat
DictionaryEntry = 'Inventario_RESERVA'
end
item
Name = 'PENDIENTE_RECEPCION'
DataType = datLargeInt
DictionaryEntry = 'INVENTARIO_PENDIENTE_RECEPCION'
DataType = datFloat
DictionaryEntry = 'Inventario_PENDIENTE_RECEPCION'
end
item
Name = 'ID'
DataType = datInteger
DictionaryEntry = 'INVENTARIO_ID'
DictionaryEntry = 'Inventario_ID'
InPrimaryKey = True
Calculated = True
end
item
Name = 'CANTIDAD'
DataType = datInteger
DictionaryEntry = 'INVENTARIO_CANTIDAD'
DataType = datFloat
DictionaryEntry = 'Inventario_CANTIDAD'
end
item
Name = 'FECHA_MOVIMIENTO'
DataType = datDateTime
DictionaryEntry = 'INVENTARIO_FECHA_MOVIMIENTO'
DictionaryEntry = 'Inventario_FECHA_MOVIMIENTO'
end
item
Name = 'CAUSA'
DataType = datString
Size = 255
DictionaryEntry = 'INVENTARIO_CAUSA'
Size = 1
DictionaryEntry = 'Inventario_CAUSA'
end
item
Name = 'TIPO'
DataType = datString
Size = 1
DictionaryEntry = 'INVENTARIO_TIPO'
DictionaryEntry = 'Inventario_TIPO'
end>
end
item
@ -370,7 +370,7 @@ object srvInventario: TsrvInventario
end
item
Name = 'CANTIDAD_ART'
DataType = datLargeInt
DataType = datFloat
DictionaryEntry = 'DETALLE_RESERVAS_INV_CANTIDAD_ART'
end>
end>
@ -384,45 +384,38 @@ object srvInventario: TsrvInventario
DataType = datAutoInc
GeneratorName = 'GEN_MOVIMIENTOS_ID'
Value = ''
ParamType = daptInput
end
item
Name = 'ID_ALMACEN'
DataType = datInteger
Value = ''
ParamType = daptInput
end
item
Name = 'ID_ARTICULO'
DataType = datInteger
Value = ''
ParamType = daptInput
end
item
Name = 'FECHA_MOVIMIENTO'
DataType = datDateTime
Value = ''
ParamType = daptInput
end
item
Name = 'TIPO'
DataType = datString
Size = 1
Value = ''
ParamType = daptInput
end
item
Name = 'CANTIDAD'
DataType = datInteger
DataType = datCurrency
Value = ''
ParamType = daptInput
end
item
Name = 'CAUSA'
DataType = datString
Size = 2000
Value = ''
ParamType = daptInput
end>
Statements = <
item
@ -457,30 +450,39 @@ object srvInventario: TsrvInventario
Params = <
item
Name = 'ID'
DataType = datInteger
Value = ''
end
item
Name = 'ID_ALMACEN'
DataType = datInteger
Value = ''
end
item
Name = 'ID_ARTICULO'
DataType = datInteger
Value = ''
end
item
Name = 'FECHA_MOVIMIENTO'
DataType = datDateTime
Value = ''
end
item
Name = 'TIPO'
DataType = datString
Size = 1
Value = ''
end
item
Name = 'CANTIDAD'
DataType = datCurrency
Value = ''
end
item
Name = 'CAUSA'
DataType = datString
Size = 2000
Value = ''
end
item
@ -520,116 +522,6 @@ object srvInventario: TsrvInventario
end
object DataDictionary: TDADataDictionary
Fields = <
item
Name = 'INVENTARIO_ID_ALMACEN'
DataType = datInteger
DisplayLabel = 'ID_ALMACEN'
end
item
Name = 'INVENTARIO_ID_ARTICULO'
DataType = datInteger
DisplayLabel = 'ID_ARTICULO'
end
item
Name = 'INVENTARIO_ALMACEN'
DataType = datString
Size = 255
DisplayLabel = 'ALMACEN'
end
item
Name = 'INVENTARIO_ID_EMPRESA'
DataType = datInteger
DisplayLabel = 'ID_EMPRESA'
end
item
Name = 'INVENTARIO_REFERENCIA_CLIENTE'
DataType = datString
Size = 255
DisplayLabel = 'REFERENCIA_CLIENTE'
end
item
Name = 'INVENTARIO_FAMILIA'
DataType = datString
Size = 255
DisplayLabel = 'FAMILIA'
end
item
Name = 'INVENTARIO_DESCRIPCION'
DataType = datString
Size = 255
DisplayLabel = 'DESCRIPCION'
end
item
Name = 'INVENTARIO_REFERENCIA_PROVEEDOR'
DataType = datString
Size = 255
DisplayLabel = 'REFERENCIA_PROVEEDOR'
end
item
Name = 'INVENTARIO_STOCK'
DataType = datLargeInt
DisplayLabel = 'Stock disponible'
end
item
Name = 'INVENTARIO_RESERVA'
DataType = datLargeInt
DisplayLabel = 'Reservado'
end
item
Name = 'INVENTARIO_PENDIENTE_RECEPCION'
DataType = datLargeInt
DisplayLabel = 'Pendiente de recibir'
end
item
Name = 'INVENTARIO_ID'
DataType = datInteger
ServerAutoRefresh = True
end
item
Name = 'INVENTARIO_CANTIDAD'
DataType = datInteger
end
item
Name = 'INVENTARIO_FECHA_MOVIMIENTO'
DataType = datDateTime
end
item
Name = 'INVENTARIO_CAUSA'
DataType = datString
Size = 255
end
item
Name = 'INVENTARIO_TIPO'
DataType = datString
Size = 1
end
item
Name = 'INVENTARIO_REFERENCIA'
DataType = datString
Size = 255
end
item
Name = 'INVENTARIO_REFERENCIA_PROV'
DataType = datString
Size = 255
end
item
Name = 'INVENTARIO_UNIDADES_ALMACEN'
DataType = datLargeInt
DisplayLabel = 'U. Almac'#233'n'
end
item
Name = 'INVENTARIO_PRECIO_NETO'
DataType = datCurrency
DisplayLabel = 'Precio unidad'
Alignment = taRightJustify
end
item
Name = 'INVENTARIO_COSTE_UNIDADES'
DataType = datCurrency
DisplayLabel = 'Coste unidades'
Alignment = taRightJustify
end
item
Name = 'DETALLE_RESERVAS_INV_ID_ALB'
DataType = datInteger
@ -705,12 +597,117 @@ object srvInventario: TsrvInventario
end
item
Name = 'DETALLE_RESERVAS_INV_CANTIDAD_ART'
DataType = datLargeInt
DataType = datFloat
DisplayLabel = 'Reservado'
end
item
Name = 'DETALLE_RESERVAS_INV_ID_EMPRESA'
DataType = datInteger
end
item
Name = 'Inventario_ID_ALMACEN'
DataType = datInteger
DisplayLabel = 'ID_ALMACEN'
end
item
Name = 'Inventario_ID_ARTICULO'
DataType = datInteger
DisplayLabel = 'ID_ARTICULO'
end
item
Name = 'Inventario_ALMACEN'
DataType = datString
Size = 255
DisplayLabel = 'ALMACEN'
end
item
Name = 'Inventario_ID_EMPRESA'
DataType = datInteger
DisplayLabel = 'ID_EMPRESA'
end
item
Name = 'Inventario_REFERENCIA'
DataType = datString
Size = 255
DisplayLabel = 'INVENTARIO_REFERENCIA'
end
item
Name = 'Inventario_FAMILIA'
DataType = datString
Size = 255
DisplayLabel = 'FAMILIA'
end
item
Name = 'Inventario_DESCRIPCION'
DataType = datString
Size = 255
DisplayLabel = 'DESCRIPCION'
end
item
Name = 'Inventario_REFERENCIA_PROVEEDOR'
DataType = datString
Size = 255
DisplayLabel = 'REFERENCIA_PROVEEDOR'
end
item
Name = 'Inventario_PRECIO_NETO'
DataType = datCurrency
DisplayLabel = 'Precio unidad'
Alignment = taRightJustify
end
item
Name = 'Inventario_STOCK'
DataType = datFloat
DisplayLabel = 'Stock disponible'
end
item
Name = 'Inventario_UNIDADES_ALMACEN'
DataType = datFloat
DisplayLabel = 'U. Almac'#233'n'
end
item
Name = 'Inventario_COSTE_UNIDADES'
DataType = datCurrency
DisplayLabel = 'Coste unidades'
Alignment = taRightJustify
end
item
Name = 'Inventario_RESERVA'
DataType = datFloat
DisplayLabel = 'Reservado'
end
item
Name = 'Inventario_PENDIENTE_RECEPCION'
DataType = datFloat
DisplayLabel = 'Pendiente de recibir'
end
item
Name = 'Inventario_ID'
DataType = datInteger
LogChanges = False
DisplayLabel = 'INVENTARIO_ID'
end
item
Name = 'Inventario_CANTIDAD'
DataType = datFloat
DisplayLabel = 'INVENTARIO_CANTIDAD'
end
item
Name = 'Inventario_FECHA_MOVIMIENTO'
DataType = datDateTime
DisplayLabel = 'INVENTARIO_FECHA_MOVIMIENTO'
end
item
Name = 'Inventario_CAUSA'
DataType = datString
Size = 1
DisplayLabel = 'INVENTARIO_CAUSA'
end
item
Name = 'Inventario_TIPO'
DataType = datString
Size = 1
DisplayLabel = 'INVENTARIO_TIPO'
end>
Left = 126
Top = 14

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

@ -41,6 +41,8 @@ inherited frViewEntradaSalidaArticulos: TfrViewEntradaSalidaArticulos
DataBinding.FieldName = 'CANTIDAD'
PropertiesClassName = 'TcxSpinEditProperties'
Properties.Alignment.Horz = taRightJustify
Properties.DisplayFormat = ',0.##;-,0.##'
Properties.EditFormat = ',0.##;-,0.##'
FooterAlignmentHorz = taRightJustify
HeaderAlignmentHorz = taRightJustify
end
@ -51,6 +53,9 @@ inherited frViewEntradaSalidaArticulos: TfrViewEntradaSalidaArticulos
object cxGridViewSTOCK: TcxGridDBColumn
Caption = 'Stock actual'
DataBinding.FieldName = 'STOCK'
PropertiesClassName = 'TcxSpinEditProperties'
Properties.DisplayFormat = ',0.##;-,0.##'
Properties.EditFormat = ',0.##;-,0.##'
end
end
end
@ -58,14 +63,26 @@ inherited frViewEntradaSalidaArticulos: TfrViewEntradaSalidaArticulos
inherited TBXDockablePanel1: TTBXDockablePanel
inherited dxLayoutControl1: TdxLayoutControl
inherited txtFiltroTodo: TcxTextEdit
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitWidth = 273
Width = 273
end
inherited edtFechaIniFiltro: TcxDateEdit
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitWidth = 121
Width = 121
end
inherited edtFechaFinFiltro: TcxDateEdit
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitWidth = 121
Width = 121
end

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

Binary file not shown.

47
Source/Modulos/Pedidos a proveedor/Data/PedidosProveedor_data.dproj
View File

@ -41,61 +41,20 @@
<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">PedidosProveedor_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">PedidosProveedor_data.dpk</Source></Source></Delphi.Personality></BorlandProject></BorlandProject>
</ProjectExtensions>
<Import Project="$(MSBuildBinPath)\Borland.Delphi.Targets" />
<ItemGroup>
<DelphiCompile Include="PedidosProveedor_data.dpk">
<MainSource>MainSource</MainSource>
</DelphiCompile>
<DCCReference Include="..\..\Presupuestos de cliente\Data\Base.dcp" />
<DCCReference Include="..\..\Presupuestos de cliente\Data\PedidosProveedor_model.dcp" />
<DCCReference Include="..\Base.dcp" />
<DCCReference Include="..\PedidosProveedor_model.dcp" />
<DCCReference Include="uDataModulePedidosProveedor.pas">
<Form>DataModulePedidosProveedor</Form>
</DCCReference>
</ItemGroup>
</Project>
<!-- EurekaLog First Line
[Exception Log]
EurekaLog Version=6006

22
Source/Modulos/Pedidos a proveedor/Data/PedidosProveedor_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/Pedidos a proveedor/Data/PedidosProveedor_data.res
View File

Binary file not shown.

12
Source/Modulos/Pedidos a proveedor/Data/uDataModulePedidosProveedor.dfm
View File

@ -14,12 +14,12 @@ inherited DataModulePedidosProveedor: TDataModulePedidosProveedor
Top = 84
end
object rda_PedidosProveedor: TDARemoteDataAdapter
DataStreamer = Bin2DataStreamer
GetSchemaCall.RemoteService = RORemoteService
GetDataCall.RemoteService = RORemoteService
UpdateDataCall.RemoteService = RORemoteService
GetScriptsCall.RemoteService = RORemoteService
RemoteService = RORemoteService
DataStreamer = Bin2DataStreamer
Left = 43
Top = 151
end
@ -264,8 +264,6 @@ inherited DataModulePedidosProveedor: TDataModulePedidosProveedor
Params = <>
StreamingOptions = [soDisableEventsWhileStreaming]
RemoteDataAdapter = rda_PedidosProveedor
DetailOptions = [dtCascadeOpenClose, dtCascadeApplyUpdates, dtAutoFetch, dtCascadeDelete, dtCascadeUpdate, dtDisableLogOfCascadeDeletes, dtDisableLogOfCascadeUpdates, dtIncludeInAllInOneFetch]
MasterOptions = [moCascadeOpenClose, moCascadeApplyUpdates, moCascadeDelete, moCascadeUpdate, moDisableLogOfCascadeDeletes, moDisableLogOfCascadeUpdates]
LogicalName = 'PedidosProveedor'
IndexDefs = <>
Left = 160
@ -305,7 +303,7 @@ inherited DataModulePedidosProveedor: TDataModulePedidosProveedor
end
item
Name = 'CANTIDAD'
DataType = datInteger
DataType = datFloat
Alignment = taRightJustify
DictionaryEntry = 'CANTIDAD'
end
@ -319,8 +317,6 @@ inherited DataModulePedidosProveedor: TDataModulePedidosProveedor
Params = <>
StreamingOptions = [soDisableEventsWhileStreaming]
RemoteDataAdapter = rda_PedidosProveedor
DetailOptions = [dtCascadeOpenClose, dtCascadeApplyUpdates, dtAutoFetch, dtCascadeDelete, dtCascadeUpdate, dtDisableLogOfCascadeDeletes, dtDisableLogOfCascadeUpdates, dtIncludeInAllInOneFetch]
MasterOptions = [moCascadeOpenClose, moCascadeApplyUpdates, moCascadeDelete, moCascadeUpdate, moDisableLogOfCascadeDeletes, moDisableLogOfCascadeUpdates]
LogicalName = 'PedidosProveedor_Articulos_Pendientes'
IndexDefs = <>
Left = 480
@ -365,7 +361,7 @@ inherited DataModulePedidosProveedor: TDataModulePedidosProveedor
end
item
Name = 'CANTIDAD'
DataType = datInteger
DataType = datFloat
Alignment = taRightJustify
DictionaryEntry = 'CANTIDAD'
end
@ -410,8 +406,6 @@ inherited DataModulePedidosProveedor: TDataModulePedidosProveedor
MasterSource = ds_PedidosProveedor
MasterFields = 'ID'
DetailFields = 'ID_PEDIDO'
DetailOptions = [dtCascadeOpenClose, dtCascadeApplyUpdates, dtAutoFetch, dtCascadeDelete, dtCascadeUpdate, dtDisableLogOfCascadeDeletes, dtDisableLogOfCascadeUpdates, dtIncludeInAllInOneFetch]
MasterOptions = [moCascadeOpenClose, moCascadeApplyUpdates, moCascadeDelete, moCascadeUpdate, moDisableLogOfCascadeDeletes, moDisableLogOfCascadeUpdates]
LogicalName = 'PedidosProveedor_Detalles'
IndexDefs = <>
Left = 296

54
Source/Modulos/Pedidos a proveedor/Model/schPedidosProveedorClient_Intf.pas
View File

@ -3,15 +3,15 @@ unit schPedidosProveedorClient_Intf;
interface
uses
Classes, DB, schBase_Intf, SysUtils, uROClasses, uDADataTable, FmtBCD, uROXMLIntf;
Classes, DB, schBase_Intf, SysUtils, uROClasses, uDAInterfaces, uDADataTable, FmtBCD, uROXMLIntf;
const
{ Data table rules ids
Feel free to change them to something more human readable
but make sure they are unique in the context of your application }
RID_PedidosProveedor = '{95ADF9CA-E144-4050-81F3-B009263FCFBD}';
RID_PedidosProveedor_Detalles = '{EF8EF7A7-1C99-4DBF-8303-745AD2DEFEB9}';
RID_PedidosProveedor_Articulos_Pendientes = '{A9F29F28-16E4-47B6-B062-6A9E6DB53DBF}';
RID_PedidosProveedor = '{E91640D3-98FE-4E09-A47E-DDB8DEF91010}';
RID_PedidosProveedor_Detalles = '{8E5080FE-7C58-4F98-A7F4-9D7FCF9E21F9}';
RID_PedidosProveedor_Articulos_Pendientes = '{A37CB497-DB53-43F6-8A3B-8D511DA79A43}';
{ Data table names }
nme_PedidosProveedor = 'PedidosProveedor';
@ -147,7 +147,7 @@ const
type
{ IPedidosProveedor }
IPedidosProveedor = interface(IDAStronglyTypedDataTable)
['{E13F02ED-19FE-45ED-935B-4821CEBD1B35}']
['{72630E6B-BABA-47E8-AECF-364D3A9E8F7C}']
{ Property getters and setters }
function GetIDValue: Integer;
procedure SetIDValue(const aValue: Integer);
@ -614,7 +614,7 @@ type
{ IPedidosProveedor_Detalles }
IPedidosProveedor_Detalles = interface(IDAStronglyTypedDataTable)
['{4754BD62-04BE-492E-B130-DC29306F9FC9}']
['{75167B38-5DCF-48A0-A0DB-D9B20EEB227A}']
{ Property getters and setters }
function GetIDValue: Integer;
procedure SetIDValue(const aValue: Integer);
@ -636,8 +636,8 @@ type
procedure SetCONCEPTOValue(const aValue: String);
function GetCONCEPTOIsNull: Boolean;
procedure SetCONCEPTOIsNull(const aValue: Boolean);
function GetCANTIDADValue: Integer;
procedure SetCANTIDADValue(const aValue: Integer);
function GetCANTIDADValue: Float;
procedure SetCANTIDADValue(const aValue: Float);
function GetCANTIDADIsNull: Boolean;
procedure SetCANTIDADIsNull(const aValue: Boolean);
function GetIMPORTE_UNIDADValue: Currency;
@ -685,7 +685,7 @@ type
property TIPO_DETALLEIsNull: Boolean read GetTIPO_DETALLEIsNull write SetTIPO_DETALLEIsNull;
property CONCEPTO: String read GetCONCEPTOValue write SetCONCEPTOValue;
property CONCEPTOIsNull: Boolean read GetCONCEPTOIsNull write SetCONCEPTOIsNull;
property CANTIDAD: Integer read GetCANTIDADValue write SetCANTIDADValue;
property CANTIDAD: Float read GetCANTIDADValue write SetCANTIDADValue;
property CANTIDADIsNull: Boolean read GetCANTIDADIsNull write SetCANTIDADIsNull;
property IMPORTE_UNIDAD: Currency read GetIMPORTE_UNIDADValue write SetIMPORTE_UNIDADValue;
property IMPORTE_UNIDADIsNull: Boolean read GetIMPORTE_UNIDADIsNull write SetIMPORTE_UNIDADIsNull;
@ -730,8 +730,8 @@ type
procedure SetCONCEPTOValue(const aValue: String); virtual;
function GetCONCEPTOIsNull: Boolean; virtual;
procedure SetCONCEPTOIsNull(const aValue: Boolean); virtual;
function GetCANTIDADValue: Integer; virtual;
procedure SetCANTIDADValue(const aValue: Integer); virtual;
function GetCANTIDADValue: Float; virtual;
procedure SetCANTIDADValue(const aValue: Float); virtual;
function GetCANTIDADIsNull: Boolean; virtual;
procedure SetCANTIDADIsNull(const aValue: Boolean); virtual;
function GetIMPORTE_UNIDADValue: Currency; virtual;
@ -778,7 +778,7 @@ type
property TIPO_DETALLEIsNull: Boolean read GetTIPO_DETALLEIsNull write SetTIPO_DETALLEIsNull;
property CONCEPTO: String read GetCONCEPTOValue write SetCONCEPTOValue;
property CONCEPTOIsNull: Boolean read GetCONCEPTOIsNull write SetCONCEPTOIsNull;
property CANTIDAD: Integer read GetCANTIDADValue write SetCANTIDADValue;
property CANTIDAD: Float read GetCANTIDADValue write SetCANTIDADValue;
property CANTIDADIsNull: Boolean read GetCANTIDADIsNull write SetCANTIDADIsNull;
property IMPORTE_UNIDAD: Currency read GetIMPORTE_UNIDADValue write SetIMPORTE_UNIDADValue;
property IMPORTE_UNIDADIsNull: Boolean read GetIMPORTE_UNIDADIsNull write SetIMPORTE_UNIDADIsNull;
@ -805,7 +805,7 @@ type
{ IPedidosProveedor_Articulos_Pendientes }
IPedidosProveedor_Articulos_Pendientes = interface(IDAStronglyTypedDataTable)
['{E93D57D7-A766-4DC3-A503-93B284E64DEA}']
['{9D55B3FD-88B7-44FA-9380-CAE6DAD5B7CA}']
{ Property getters and setters }
function GetID_PEDIDOValue: Integer;
procedure SetID_PEDIDOValue(const aValue: Integer);
@ -823,8 +823,8 @@ type
procedure SetCONCEPTOValue(const aValue: String);
function GetCONCEPTOIsNull: Boolean;
procedure SetCONCEPTOIsNull(const aValue: Boolean);
function GetCANTIDADValue: Integer;
procedure SetCANTIDADValue(const aValue: Integer);
function GetCANTIDADValue: Float;
procedure SetCANTIDADValue(const aValue: Float);
function GetCANTIDADIsNull: Boolean;
procedure SetCANTIDADIsNull(const aValue: Boolean);
function GetREFERENCIA_PROVEEDORValue: String;
@ -842,7 +842,7 @@ type
property ID_ARTICULOIsNull: Boolean read GetID_ARTICULOIsNull write SetID_ARTICULOIsNull;
property CONCEPTO: String read GetCONCEPTOValue write SetCONCEPTOValue;
property CONCEPTOIsNull: Boolean read GetCONCEPTOIsNull write SetCONCEPTOIsNull;
property CANTIDAD: Integer read GetCANTIDADValue write SetCANTIDADValue;
property CANTIDAD: Float read GetCANTIDADValue write SetCANTIDADValue;
property CANTIDADIsNull: Boolean read GetCANTIDADIsNull write SetCANTIDADIsNull;
property REFERENCIA_PROVEEDOR: String read GetREFERENCIA_PROVEEDORValue write SetREFERENCIA_PROVEEDORValue;
property REFERENCIA_PROVEEDORIsNull: Boolean read GetREFERENCIA_PROVEEDORIsNull write SetREFERENCIA_PROVEEDORIsNull;
@ -869,8 +869,8 @@ type
procedure SetCONCEPTOValue(const aValue: String); virtual;
function GetCONCEPTOIsNull: Boolean; virtual;
procedure SetCONCEPTOIsNull(const aValue: Boolean); virtual;
function GetCANTIDADValue: Integer; virtual;
procedure SetCANTIDADValue(const aValue: Integer); virtual;
function GetCANTIDADValue: Float; virtual;
procedure SetCANTIDADValue(const aValue: Float); virtual;
function GetCANTIDADIsNull: Boolean; virtual;
procedure SetCANTIDADIsNull(const aValue: Boolean); virtual;
function GetREFERENCIA_PROVEEDORValue: String; virtual;
@ -887,7 +887,7 @@ type
property ID_ARTICULOIsNull: Boolean read GetID_ARTICULOIsNull write SetID_ARTICULOIsNull;
property CONCEPTO: String read GetCONCEPTOValue write SetCONCEPTOValue;
property CONCEPTOIsNull: Boolean read GetCONCEPTOIsNull write SetCONCEPTOIsNull;
property CANTIDAD: Integer read GetCANTIDADValue write SetCANTIDADValue;
property CANTIDAD: Float read GetCANTIDADValue write SetCANTIDADValue;
property CANTIDADIsNull: Boolean read GetCANTIDADIsNull write SetCANTIDADIsNull;
property REFERENCIA_PROVEEDOR: String read GetREFERENCIA_PROVEEDORValue write SetREFERENCIA_PROVEEDORValue;
property REFERENCIA_PROVEEDORIsNull: Boolean read GetREFERENCIA_PROVEEDORIsNull write SetREFERENCIA_PROVEEDORIsNull;
@ -1819,14 +1819,14 @@ begin
DataTable.Fields[idx_PedidosProveedor_DetallesCONCEPTO].AsVariant := Null;
end;
function TPedidosProveedor_DetallesDataTableRules.GetCANTIDADValue: Integer;
function TPedidosProveedor_DetallesDataTableRules.GetCANTIDADValue: Float;
begin
result := DataTable.Fields[idx_PedidosProveedor_DetallesCANTIDAD].AsInteger;
result := DataTable.Fields[idx_PedidosProveedor_DetallesCANTIDAD].AsFloat;
end;
procedure TPedidosProveedor_DetallesDataTableRules.SetCANTIDADValue(const aValue: Integer);
procedure TPedidosProveedor_DetallesDataTableRules.SetCANTIDADValue(const aValue: Float);
begin
DataTable.Fields[idx_PedidosProveedor_DetallesCANTIDAD].AsInteger := aValue;
DataTable.Fields[idx_PedidosProveedor_DetallesCANTIDAD].AsFloat := aValue;
end;
function TPedidosProveedor_DetallesDataTableRules.GetCANTIDADIsNull: boolean;
@ -2104,14 +2104,14 @@ begin
DataTable.Fields[idx_PedidosProveedor_Articulos_PendientesCONCEPTO].AsVariant := Null;
end;
function TPedidosProveedor_Articulos_PendientesDataTableRules.GetCANTIDADValue: Integer;
function TPedidosProveedor_Articulos_PendientesDataTableRules.GetCANTIDADValue: Float;
begin
result := DataTable.Fields[idx_PedidosProveedor_Articulos_PendientesCANTIDAD].AsInteger;
result := DataTable.Fields[idx_PedidosProveedor_Articulos_PendientesCANTIDAD].AsFloat;
end;
procedure TPedidosProveedor_Articulos_PendientesDataTableRules.SetCANTIDADValue(const aValue: Integer);
procedure TPedidosProveedor_Articulos_PendientesDataTableRules.SetCANTIDADValue(const aValue: Float);
begin
DataTable.Fields[idx_PedidosProveedor_Articulos_PendientesCANTIDAD].AsInteger := aValue;
DataTable.Fields[idx_PedidosProveedor_Articulos_PendientesCANTIDAD].AsFloat := aValue;
end;
function TPedidosProveedor_Articulos_PendientesDataTableRules.GetCANTIDADIsNull: boolean;

52
Source/Modulos/Pedidos a proveedor/Model/schPedidosProveedorServer_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_PedidosProveedorDelta = '{85528A24-427F-4B72-8C10-778ECBA819FB}';
RID_PedidosProveedor_DetallesDelta = '{8990FADE-6496-414C-8E96-5C783CE7D56D}';
RID_PedidosProveedor_Articulos_PendientesDelta = '{1D0D5BBC-29A1-4481-8FD9-BE9C679444A9}';
RID_PedidosProveedorDelta = '{EA735EC9-0277-4D0F-8843-4A6F66360099}';
RID_PedidosProveedor_DetallesDelta = '{8799A75C-3602-4CCD-A0C5-5F065E20EC1D}';
RID_PedidosProveedor_Articulos_PendientesDelta = '{C60973BB-B8E7-483F-A7C6-FF5122FEC81D}';
type
{ IPedidosProveedorDelta }
IPedidosProveedorDelta = interface(IPedidosProveedor)
['{85528A24-427F-4B72-8C10-778ECBA819FB}']
['{EA735EC9-0277-4D0F-8843-4A6F66360099}']
{ Property getters and setters }
function GetOldIDValue : Integer;
function GetOldID_EMPRESAValue : Integer;
@ -484,14 +484,14 @@ type
{ IPedidosProveedor_DetallesDelta }
IPedidosProveedor_DetallesDelta = interface(IPedidosProveedor_Detalles)
['{8990FADE-6496-414C-8E96-5C783CE7D56D}']
['{8799A75C-3602-4CCD-A0C5-5F065E20EC1D}']
{ Property getters and setters }
function GetOldIDValue : Integer;
function GetOldID_PEDIDOValue : Integer;
function GetOldPOSICIONValue : Integer;
function GetOldTIPO_DETALLEValue : String;
function GetOldCONCEPTOValue : String;
function GetOldCANTIDADValue : Integer;
function GetOldCANTIDADValue : Float;
function GetOldIMPORTE_UNIDADValue : Currency;
function GetOldIMPORTE_TOTALValue : Currency;
function GetOldVISIBLEValue : SmallInt;
@ -507,7 +507,7 @@ type
property OldPOSICION : Integer read GetOldPOSICIONValue;
property OldTIPO_DETALLE : String read GetOldTIPO_DETALLEValue;
property OldCONCEPTO : String read GetOldCONCEPTOValue;
property OldCANTIDAD : Integer read GetOldCANTIDADValue;
property OldCANTIDAD : Float read GetOldCANTIDADValue;
property OldIMPORTE_UNIDAD : Currency read GetOldIMPORTE_UNIDADValue;
property OldIMPORTE_TOTAL : Currency read GetOldIMPORTE_TOTALValue;
property OldVISIBLE : SmallInt read GetOldVISIBLEValue;
@ -553,11 +553,11 @@ type
function GetOldCONCEPTOIsNull: Boolean; virtual;
procedure SetCONCEPTOValue(const aValue: String); virtual;
procedure SetCONCEPTOIsNull(const aValue: Boolean); virtual;
function GetCANTIDADValue: Integer; virtual;
function GetCANTIDADValue: Float; virtual;
function GetCANTIDADIsNull: Boolean; virtual;
function GetOldCANTIDADValue: Integer; virtual;
function GetOldCANTIDADValue: Float; virtual;
function GetOldCANTIDADIsNull: Boolean; virtual;
procedure SetCANTIDADValue(const aValue: Integer); virtual;
procedure SetCANTIDADValue(const aValue: Float); virtual;
procedure SetCANTIDADIsNull(const aValue: Boolean); virtual;
function GetIMPORTE_UNIDADValue: Currency; virtual;
function GetIMPORTE_UNIDADIsNull: Boolean; virtual;
@ -629,9 +629,9 @@ type
property CONCEPTOIsNull : Boolean read GetCONCEPTOIsNull write SetCONCEPTOIsNull;
property OldCONCEPTO : String read GetOldCONCEPTOValue;
property OldCONCEPTOIsNull : Boolean read GetOldCONCEPTOIsNull;
property CANTIDAD : Integer read GetCANTIDADValue write SetCANTIDADValue;
property CANTIDAD : Float read GetCANTIDADValue write SetCANTIDADValue;
property CANTIDADIsNull : Boolean read GetCANTIDADIsNull write SetCANTIDADIsNull;
property OldCANTIDAD : Integer read GetOldCANTIDADValue;
property OldCANTIDAD : Float read GetOldCANTIDADValue;
property OldCANTIDADIsNull : Boolean read GetOldCANTIDADIsNull;
property IMPORTE_UNIDAD : Currency read GetIMPORTE_UNIDADValue write SetIMPORTE_UNIDADValue;
property IMPORTE_UNIDADIsNull : Boolean read GetIMPORTE_UNIDADIsNull write SetIMPORTE_UNIDADIsNull;
@ -674,13 +674,13 @@ type
{ IPedidosProveedor_Articulos_PendientesDelta }
IPedidosProveedor_Articulos_PendientesDelta = interface(IPedidosProveedor_Articulos_Pendientes)
['{1D0D5BBC-29A1-4481-8FD9-BE9C679444A9}']
['{C60973BB-B8E7-483F-A7C6-FF5122FEC81D}']
{ Property getters and setters }
function GetOldID_PEDIDOValue : Integer;
function GetOldREFERENCIAValue : String;
function GetOldID_ARTICULOValue : Integer;
function GetOldCONCEPTOValue : String;
function GetOldCANTIDADValue : Integer;
function GetOldCANTIDADValue : Float;
function GetOldREFERENCIA_PROVEEDORValue : String;
{ Properties }
@ -688,7 +688,7 @@ type
property OldREFERENCIA : String read GetOldREFERENCIAValue;
property OldID_ARTICULO : Integer read GetOldID_ARTICULOValue;
property OldCONCEPTO : String read GetOldCONCEPTOValue;
property OldCANTIDAD : Integer read GetOldCANTIDADValue;
property OldCANTIDAD : Float read GetOldCANTIDADValue;
property OldREFERENCIA_PROVEEDOR : String read GetOldREFERENCIA_PROVEEDORValue;
end;
@ -721,11 +721,11 @@ type
function GetOldCONCEPTOIsNull: Boolean; virtual;
procedure SetCONCEPTOValue(const aValue: String); virtual;
procedure SetCONCEPTOIsNull(const aValue: Boolean); virtual;
function GetCANTIDADValue: Integer; virtual;
function GetCANTIDADValue: Float; virtual;
function GetCANTIDADIsNull: Boolean; virtual;
function GetOldCANTIDADValue: Integer; virtual;
function GetOldCANTIDADValue: Float; virtual;
function GetOldCANTIDADIsNull: Boolean; virtual;
procedure SetCANTIDADValue(const aValue: Integer); virtual;
procedure SetCANTIDADValue(const aValue: Float); virtual;
procedure SetCANTIDADIsNull(const aValue: Boolean); virtual;
function GetREFERENCIA_PROVEEDORValue: String; virtual;
function GetREFERENCIA_PROVEEDORIsNull: Boolean; virtual;
@ -751,9 +751,9 @@ type
property CONCEPTOIsNull : Boolean read GetCONCEPTOIsNull write SetCONCEPTOIsNull;
property OldCONCEPTO : String read GetOldCONCEPTOValue;
property OldCONCEPTOIsNull : Boolean read GetOldCONCEPTOIsNull;
property CANTIDAD : Integer read GetCANTIDADValue write SetCANTIDADValue;
property CANTIDAD : Float read GetCANTIDADValue write SetCANTIDADValue;
property CANTIDADIsNull : Boolean read GetCANTIDADIsNull write SetCANTIDADIsNull;
property OldCANTIDAD : Integer read GetOldCANTIDADValue;
property OldCANTIDAD : Float read GetOldCANTIDADValue;
property OldCANTIDADIsNull : Boolean read GetOldCANTIDADIsNull;
property REFERENCIA_PROVEEDOR : String read GetREFERENCIA_PROVEEDORValue write SetREFERENCIA_PROVEEDORValue;
property REFERENCIA_PROVEEDORIsNull : Boolean read GetREFERENCIA_PROVEEDORIsNull write SetREFERENCIA_PROVEEDORIsNull;
@ -2110,7 +2110,7 @@ begin
BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosProveedor_DetallesCONCEPTO] := Null;
end;
function TPedidosProveedor_DetallesBusinessProcessorRules.GetCANTIDADValue: Integer;
function TPedidosProveedor_DetallesBusinessProcessorRules.GetCANTIDADValue: Float;
begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosProveedor_DetallesCANTIDAD];
end;
@ -2120,7 +2120,7 @@ begin
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosProveedor_DetallesCANTIDAD]);
end;
function TPedidosProveedor_DetallesBusinessProcessorRules.GetOldCANTIDADValue: Integer;
function TPedidosProveedor_DetallesBusinessProcessorRules.GetOldCANTIDADValue: Float;
begin
result := BusinessProcessor.CurrentChange.OldValueByName[fld_PedidosProveedor_DetallesCANTIDAD];
end;
@ -2130,7 +2130,7 @@ begin
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_PedidosProveedor_DetallesCANTIDAD]);
end;
procedure TPedidosProveedor_DetallesBusinessProcessorRules.SetCANTIDADValue(const aValue: Integer);
procedure TPedidosProveedor_DetallesBusinessProcessorRules.SetCANTIDADValue(const aValue: Float);
begin
BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosProveedor_DetallesCANTIDAD] := aValue;
end;
@ -2525,7 +2525,7 @@ begin
BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosProveedor_Articulos_PendientesCONCEPTO] := Null;
end;
function TPedidosProveedor_Articulos_PendientesBusinessProcessorRules.GetCANTIDADValue: Integer;
function TPedidosProveedor_Articulos_PendientesBusinessProcessorRules.GetCANTIDADValue: Float;
begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosProveedor_Articulos_PendientesCANTIDAD];
end;
@ -2535,7 +2535,7 @@ begin
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosProveedor_Articulos_PendientesCANTIDAD]);
end;
function TPedidosProveedor_Articulos_PendientesBusinessProcessorRules.GetOldCANTIDADValue: Integer;
function TPedidosProveedor_Articulos_PendientesBusinessProcessorRules.GetOldCANTIDADValue: Float;
begin
result := BusinessProcessor.CurrentChange.OldValueByName[fld_PedidosProveedor_Articulos_PendientesCANTIDAD];
end;
@ -2545,7 +2545,7 @@ begin
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_PedidosProveedor_Articulos_PendientesCANTIDAD]);
end;
procedure TPedidosProveedor_Articulos_PendientesBusinessProcessorRules.SetCANTIDADValue(const aValue: Integer);
procedure TPedidosProveedor_Articulos_PendientesBusinessProcessorRules.SetCANTIDADValue(const aValue: Float);
begin
BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosProveedor_Articulos_PendientesCANTIDAD] := aValue;
end;

33
Source/Modulos/Pedidos a proveedor/Servidor/srvPedidosProveedor_Impl.dfm
View File

@ -482,7 +482,7 @@ object srvPedidosProveedor: TsrvPedidosProveedor
end
item
Name = 'CANTIDAD'
DataType = datInteger
DataType = datFloat
DictionaryEntry = 'CANTIDAD'
end
item
@ -587,7 +587,7 @@ object srvPedidosProveedor: TsrvPedidosProveedor
end
item
Name = 'CANTIDAD'
DataType = datInteger
DataType = datFloat
DictionaryEntry = 'CANTIDAD'
end
item
@ -620,10 +620,12 @@ object srvPedidosProveedor: TsrvPedidosProveedor
Params = <
item
Name = 'CANTIDAD'
DataType = datCurrency
Value = ''
end
item
Name = 'POSICION'
DataType = datInteger
Value = ''
end
item
@ -634,38 +636,49 @@ object srvPedidosProveedor: TsrvPedidosProveedor
end
item
Name = 'TIPO_DETALLE'
DataType = datString
Size = 10
Value = ''
end
item
Name = 'CONCEPTO'
DataType = datString
Size = 2000
Value = ''
end
item
Name = 'IMPORTE_UNIDAD'
DataType = datCurrency
Value = ''
end
item
Name = 'IMPORTE_TOTAL'
DataType = datCurrency
Value = ''
end
item
Name = 'VISIBLE'
DataType = datSmallInt
Value = ''
end
item
Name = 'ID_PEDIDO'
DataType = datInteger
Value = ''
end
item
Name = 'ID_ARTICULO'
DataType = datInteger
Value = ''
end
item
Name = 'DESCUENTO'
DataType = datFloat
Value = ''
end
item
Name = 'IMPORTE_PORTE'
DataType = datCurrency
Value = ''
end>
Statements = <
@ -706,50 +719,64 @@ object srvPedidosProveedor: TsrvPedidosProveedor
Params = <
item
Name = 'CANTIDAD'
DataType = datCurrency
Value = ''
end
item
Name = 'POSICION'
DataType = datInteger
Value = ''
end
item
Name = 'ID'
DataType = datInteger
Value = ''
end
item
Name = 'TIPO_DETALLE'
DataType = datString
Size = 10
Value = ''
end
item
Name = 'CONCEPTO'
DataType = datString
Size = 2000
Value = ''
end
item
Name = 'IMPORTE_UNIDAD'
DataType = datCurrency
Value = ''
end
item
Name = 'IMPORTE_TOTAL'
DataType = datCurrency
Value = ''
end
item
Name = 'VISIBLE'
DataType = datSmallInt
Value = ''
end
item
Name = 'ID_PEDIDO'
DataType = datInteger
Value = ''
end
item
Name = 'ID_ARTICULO'
DataType = datInteger
Value = ''
end
item
Name = 'DESCUENTO'
DataType = datFloat
Value = ''
end
item
Name = 'IMPORTE_PORTE'
DataType = datCurrency
Value = ''
end
item
@ -1364,7 +1391,7 @@ object srvPedidosProveedor: TsrvPedidosProveedor
end
item
Name = 'CANTIDAD'
DataType = datInteger
DataType = datFloat
Alignment = taRightJustify
end
item

2
Source/Modulos/Presupuestos de cliente/Data/uDataModulePresupuestosCliente.dfm
View File

@ -292,7 +292,7 @@ inherited DataModulePresupuestosCliente: TDataModulePresupuestosCliente
end
item
Name = 'CANTIDAD'
DataType = datInteger
DataType = datCurrency
end
item
Name = 'IMPORTE_UNIDAD'

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

@ -9,12 +9,12 @@ 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_Valores = '{8A248C45-9A96-4FD6-8BF5-F5DD87468FB0}';
RID_Propiedades = '{62BED4E0-B77C-4391-AC72-1330D1BDDF91}';
RID_ListaAnosPresupuestos = '{18983DA7-37EA-4FE3-9B68-494C2FEDAC97}';
RID_PresupuestosCliente = '{B2A0846C-F3BD-4FE6-A1EB-66480B11C8AE}';
RID_CapitulosPresupuesto = '{CF0AEF82-06DB-47B4-80B2-004C9807E6CA}';
RID_PresupuestosCliente_Detalles = '{4A1E8272-F885-46E3-A4C9-DD07E86A2A49}';
RID_Valores = '{47CB5138-B2A2-4B1B-A76F-0D0578645C2A}';
RID_Propiedades = '{A26BD447-7743-4314-8051-9A00EEE14A1C}';
RID_ListaAnosPresupuestos = '{994EB4CB-B7C0-4163-BBBF-78E2B8EE107E}';
RID_PresupuestosCliente = '{BFD4DB1C-713D-4017-BD50-E109C769CE70}';
RID_CapitulosPresupuesto = '{DE694896-6DF6-4781-8380-6564E58E8365}';
RID_PresupuestosCliente_Detalles = '{D14257E6-F56D-4E40-95DE-E54C80094513}';
{ Data table names }
nme_Valores = 'Valores';
@ -187,7 +187,7 @@ const
type
{ IValores }
IValores = interface(IDAStronglyTypedDataTable)
['{FD357A67-C729-46D0-A93B-092D32EF7BD9}']
['{52DBB238-0B6D-40B1-B33C-1F5C1EFD40A0}']
{ Property getters and setters }
function GetIDValue: Integer;
procedure SetIDValue(const aValue: Integer);
@ -246,7 +246,7 @@ type
{ IPropiedades }
IPropiedades = interface(IDAStronglyTypedDataTable)
['{55925E9A-70DD-4907-9775-D84ED9DDDC6E}']
['{33B3FE10-6DFB-4851-9DF8-6202167D06D2}']
{ Property getters and setters }
function GetIDValue: Integer;
procedure SetIDValue(const aValue: Integer);
@ -305,7 +305,7 @@ type
{ IListaAnosPresupuestos }
IListaAnosPresupuestos = interface(IDAStronglyTypedDataTable)
['{D0535709-D00F-4249-9347-0DC816C84FA6}']
['{F4F6B769-D02A-4219-A1B1-6B6E256A8E14}']
{ Property getters and setters }
function GetANOValue: String;
procedure SetANOValue(const aValue: String);
@ -340,7 +340,7 @@ type
{ IPresupuestosCliente }
IPresupuestosCliente = interface(IDAStronglyTypedDataTable)
['{32E7F691-CD44-4414-B5CF-F20AE6652BBC}']
['{AE1838F1-4F83-45C8-80BF-F07435AD100E}']
{ Property getters and setters }
function GetIDValue: Integer;
procedure SetIDValue(const aValue: Integer);
@ -843,7 +843,7 @@ type
{ ICapitulosPresupuesto }
ICapitulosPresupuesto = interface(IDAStronglyTypedDataTable)
['{35FC48F2-F977-48FE-A35F-249F1DC30A17}']
['{990BEB54-0389-476D-9DDF-F364219F93BF}']
{ Property getters and setters }
function GetIDValue: Integer;
procedure SetIDValue(const aValue: Integer);
@ -938,7 +938,7 @@ type
{ IPresupuestosCliente_Detalles }
IPresupuestosCliente_Detalles = interface(IDAStronglyTypedDataTable)
['{7825A33D-23E9-4C85-BF64-35EE17100CE7}']
['{720EF2D3-AB45-4606-8F49-869BF3B5FDCB}']
{ Property getters and setters }
function GetIDValue: Integer;
procedure SetIDValue(const aValue: Integer);
@ -960,8 +960,8 @@ type
procedure SetCONCEPTOValue(const aValue: String);
function GetCONCEPTOIsNull: Boolean;
procedure SetCONCEPTOIsNull(const aValue: Boolean);
function GetCANTIDADValue: Integer;
procedure SetCANTIDADValue(const aValue: Integer);
function GetCANTIDADValue: Currency;
procedure SetCANTIDADValue(const aValue: Currency);
function GetCANTIDADIsNull: Boolean;
procedure SetCANTIDADIsNull(const aValue: Boolean);
function GetIMPORTE_UNIDADValue: Currency;
@ -1013,7 +1013,7 @@ type
property TIPO_DETALLEIsNull: Boolean read GetTIPO_DETALLEIsNull write SetTIPO_DETALLEIsNull;
property CONCEPTO: String read GetCONCEPTOValue write SetCONCEPTOValue;
property CONCEPTOIsNull: Boolean read GetCONCEPTOIsNull write SetCONCEPTOIsNull;
property CANTIDAD: Integer read GetCANTIDADValue write SetCANTIDADValue;
property CANTIDAD: Currency read GetCANTIDADValue write SetCANTIDADValue;
property CANTIDADIsNull: Boolean read GetCANTIDADIsNull write SetCANTIDADIsNull;
property IMPORTE_UNIDAD: Currency read GetIMPORTE_UNIDADValue write SetIMPORTE_UNIDADValue;
property IMPORTE_UNIDADIsNull: Boolean read GetIMPORTE_UNIDADIsNull write SetIMPORTE_UNIDADIsNull;
@ -1060,8 +1060,8 @@ type
procedure SetCONCEPTOValue(const aValue: String); virtual;
function GetCONCEPTOIsNull: Boolean; virtual;
procedure SetCONCEPTOIsNull(const aValue: Boolean); virtual;
function GetCANTIDADValue: Integer; virtual;
procedure SetCANTIDADValue(const aValue: Integer); virtual;
function GetCANTIDADValue: Currency; virtual;
procedure SetCANTIDADValue(const aValue: Currency); virtual;
function GetCANTIDADIsNull: Boolean; virtual;
procedure SetCANTIDADIsNull(const aValue: Boolean); virtual;
function GetIMPORTE_UNIDADValue: Currency; virtual;
@ -1112,7 +1112,7 @@ type
property TIPO_DETALLEIsNull: Boolean read GetTIPO_DETALLEIsNull write SetTIPO_DETALLEIsNull;
property CONCEPTO: String read GetCONCEPTOValue write SetCONCEPTOValue;
property CONCEPTOIsNull: Boolean read GetCONCEPTOIsNull write SetCONCEPTOIsNull;
property CANTIDAD: Integer read GetCANTIDADValue write SetCANTIDADValue;
property CANTIDAD: Currency read GetCANTIDADValue write SetCANTIDADValue;
property CANTIDADIsNull: Boolean read GetCANTIDADIsNull write SetCANTIDADIsNull;
property IMPORTE_UNIDAD: Currency read GetIMPORTE_UNIDADValue write SetIMPORTE_UNIDADValue;
property IMPORTE_UNIDADIsNull: Boolean read GetIMPORTE_UNIDADIsNull write SetIMPORTE_UNIDADIsNull;
@ -2454,14 +2454,14 @@ begin
DataTable.Fields[idx_PresupuestosCliente_DetallesCONCEPTO].AsVariant := Null;
end;
function TPresupuestosCliente_DetallesDataTableRules.GetCANTIDADValue: Integer;
function TPresupuestosCliente_DetallesDataTableRules.GetCANTIDADValue: Currency;
begin
result := DataTable.Fields[idx_PresupuestosCliente_DetallesCANTIDAD].AsInteger;
result := DataTable.Fields[idx_PresupuestosCliente_DetallesCANTIDAD].AsCurrency;
end;
procedure TPresupuestosCliente_DetallesDataTableRules.SetCANTIDADValue(const aValue: Integer);
procedure TPresupuestosCliente_DetallesDataTableRules.SetCANTIDADValue(const aValue: Currency);
begin
DataTable.Fields[idx_PresupuestosCliente_DetallesCANTIDAD].AsInteger := aValue;
DataTable.Fields[idx_PresupuestosCliente_DetallesCANTIDAD].AsCurrency := aValue;
end;
function TPresupuestosCliente_DetallesDataTableRules.GetCANTIDADIsNull: boolean;

44
Source/Modulos/Presupuestos de cliente/Model/schPresupuestosClienteServer_Intf.pas
View File

@ -9,17 +9,17 @@ 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_ValoresDelta = '{AA9644B7-EC9A-4EA2-8298-3CBC27486E70}';
RID_PropiedadesDelta = '{0EE5CE01-3C2D-4773-AD08-35637A0B76B9}';
RID_ListaAnosPresupuestosDelta = '{2FDFADE5-C92C-417B-AB90-536690A1FAB5}';
RID_PresupuestosClienteDelta = '{2E46BBAA-A0AD-4649-BA55-DF504B40D213}';
RID_CapitulosPresupuestoDelta = '{F15B79D8-0929-4D08-9E3F-3F4FBB9EBD5B}';
RID_PresupuestosCliente_DetallesDelta = '{0D7528AC-6393-4480-868F-8D6CA59F06F4}';
RID_ValoresDelta = '{5674F0D4-8781-41A1-A1E8-3040DA88BD15}';
RID_PropiedadesDelta = '{F5F26CFF-3B43-41F8-ADEF-98F8DAA6E6EE}';
RID_ListaAnosPresupuestosDelta = '{284F52EE-A6E8-4E02-B372-540531A71D7A}';
RID_PresupuestosClienteDelta = '{CEEA57A1-E91D-410E-B756-3EACED212587}';
RID_CapitulosPresupuestoDelta = '{65E7790F-AEF1-4B91-A7FA-E008AE822301}';
RID_PresupuestosCliente_DetallesDelta = '{1F9BFF84-923A-4B05-B9D0-423478ACBF34}';
type
{ IValoresDelta }
IValoresDelta = interface(IValores)
['{AA9644B7-EC9A-4EA2-8298-3CBC27486E70}']
['{5674F0D4-8781-41A1-A1E8-3040DA88BD15}']
{ Property getters and setters }
function GetOldIDValue : Integer;
function GetOldID_PROPIEDADValue : Integer;
@ -77,7 +77,7 @@ type
{ IPropiedadesDelta }
IPropiedadesDelta = interface(IPropiedades)
['{0EE5CE01-3C2D-4773-AD08-35637A0B76B9}']
['{F5F26CFF-3B43-41F8-ADEF-98F8DAA6E6EE}']
{ Property getters and setters }
function GetOldIDValue : Integer;
function GetOldDESCRIPCIONValue : String;
@ -135,7 +135,7 @@ type
{ IListaAnosPresupuestosDelta }
IListaAnosPresupuestosDelta = interface(IListaAnosPresupuestos)
['{2FDFADE5-C92C-417B-AB90-536690A1FAB5}']
['{284F52EE-A6E8-4E02-B372-540531A71D7A}']
{ Property getters and setters }
function GetOldANOValue : String;
@ -169,7 +169,7 @@ type
{ IPresupuestosClienteDelta }
IPresupuestosClienteDelta = interface(IPresupuestosCliente)
['{2E46BBAA-A0AD-4649-BA55-DF504B40D213}']
['{CEEA57A1-E91D-410E-B756-3EACED212587}']
{ Property getters and setters }
function GetOldIDValue : Integer;
function GetOldID_EMPRESAValue : Integer;
@ -675,7 +675,7 @@ type
{ ICapitulosPresupuestoDelta }
ICapitulosPresupuestoDelta = interface(ICapitulosPresupuesto)
['{F15B79D8-0929-4D08-9E3F-3F4FBB9EBD5B}']
['{65E7790F-AEF1-4B91-A7FA-E008AE822301}']
{ Property getters and setters }
function GetOldIDValue : Integer;
function GetOldPOSICIONValue : Integer;
@ -769,14 +769,14 @@ type
{ IPresupuestosCliente_DetallesDelta }
IPresupuestosCliente_DetallesDelta = interface(IPresupuestosCliente_Detalles)
['{0D7528AC-6393-4480-868F-8D6CA59F06F4}']
['{1F9BFF84-923A-4B05-B9D0-423478ACBF34}']
{ Property getters and setters }
function GetOldIDValue : Integer;
function GetOldID_PRESUPUESTOValue : Integer;
function GetOldPOSICIONValue : Integer;
function GetOldTIPO_DETALLEValue : String;
function GetOldCONCEPTOValue : String;
function GetOldCANTIDADValue : Integer;
function GetOldCANTIDADValue : Currency;
function GetOldIMPORTE_UNIDADValue : Currency;
function GetOldIMPORTE_TOTALValue : Currency;
function GetOldVISIBLEValue : SmallInt;
@ -793,7 +793,7 @@ type
property OldPOSICION : Integer read GetOldPOSICIONValue;
property OldTIPO_DETALLE : String read GetOldTIPO_DETALLEValue;
property OldCONCEPTO : String read GetOldCONCEPTOValue;
property OldCANTIDAD : Integer read GetOldCANTIDADValue;
property OldCANTIDAD : Currency read GetOldCANTIDADValue;
property OldIMPORTE_UNIDAD : Currency read GetOldIMPORTE_UNIDADValue;
property OldIMPORTE_TOTAL : Currency read GetOldIMPORTE_TOTALValue;
property OldVISIBLE : SmallInt read GetOldVISIBLEValue;
@ -840,11 +840,11 @@ type
function GetOldCONCEPTOIsNull: Boolean; virtual;
procedure SetCONCEPTOValue(const aValue: String); virtual;
procedure SetCONCEPTOIsNull(const aValue: Boolean); virtual;
function GetCANTIDADValue: Integer; virtual;
function GetCANTIDADValue: Currency; virtual;
function GetCANTIDADIsNull: Boolean; virtual;
function GetOldCANTIDADValue: Integer; virtual;
function GetOldCANTIDADValue: Currency; virtual;
function GetOldCANTIDADIsNull: Boolean; virtual;
procedure SetCANTIDADValue(const aValue: Integer); virtual;
procedure SetCANTIDADValue(const aValue: Currency); virtual;
procedure SetCANTIDADIsNull(const aValue: Boolean); virtual;
function GetIMPORTE_UNIDADValue: Currency; virtual;
function GetIMPORTE_UNIDADIsNull: Boolean; virtual;
@ -922,9 +922,9 @@ type
property CONCEPTOIsNull : Boolean read GetCONCEPTOIsNull write SetCONCEPTOIsNull;
property OldCONCEPTO : String read GetOldCONCEPTOValue;
property OldCONCEPTOIsNull : Boolean read GetOldCONCEPTOIsNull;
property CANTIDAD : Integer read GetCANTIDADValue write SetCANTIDADValue;
property CANTIDAD : Currency read GetCANTIDADValue write SetCANTIDADValue;
property CANTIDADIsNull : Boolean read GetCANTIDADIsNull write SetCANTIDADIsNull;
property OldCANTIDAD : Integer read GetOldCANTIDADValue;
property OldCANTIDAD : Currency read GetOldCANTIDADValue;
property OldCANTIDADIsNull : Boolean read GetOldCANTIDADIsNull;
property IMPORTE_UNIDAD : Currency read GetIMPORTE_UNIDADValue write SetIMPORTE_UNIDADValue;
property IMPORTE_UNIDADIsNull : Boolean read GetIMPORTE_UNIDADIsNull write SetIMPORTE_UNIDADIsNull;
@ -2869,7 +2869,7 @@ begin
BusinessProcessor.CurrentChange.NewValueByName[fld_PresupuestosCliente_DetallesCONCEPTO] := Null;
end;
function TPresupuestosCliente_DetallesBusinessProcessorRules.GetCANTIDADValue: Integer;
function TPresupuestosCliente_DetallesBusinessProcessorRules.GetCANTIDADValue: Currency;
begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_PresupuestosCliente_DetallesCANTIDAD];
end;
@ -2879,7 +2879,7 @@ begin
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_PresupuestosCliente_DetallesCANTIDAD]);
end;
function TPresupuestosCliente_DetallesBusinessProcessorRules.GetOldCANTIDADValue: Integer;
function TPresupuestosCliente_DetallesBusinessProcessorRules.GetOldCANTIDADValue: Currency;
begin
result := BusinessProcessor.CurrentChange.OldValueByName[fld_PresupuestosCliente_DetallesCANTIDAD];
end;
@ -2889,7 +2889,7 @@ begin
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_PresupuestosCliente_DetallesCANTIDAD]);
end;
procedure TPresupuestosCliente_DetallesBusinessProcessorRules.SetCANTIDADValue(const aValue: Integer);
procedure TPresupuestosCliente_DetallesBusinessProcessorRules.SetCANTIDADValue(const aValue: Currency);
begin
BusinessProcessor.CurrentChange.NewValueByName[fld_PresupuestosCliente_DetallesCANTIDAD] := aValue;
end;

6
Source/Modulos/Presupuestos de cliente/Servidor/srvPresupuestosCliente_Impl.dfm
View File

@ -682,7 +682,7 @@ object srvPresupuestosCliente: TsrvPresupuestosCliente
end
item
Name = 'CANTIDAD'
DataType = datInteger
DataType = datCurrency
end
item
Name = 'IMPORTE_UNIDAD'
@ -1156,7 +1156,7 @@ object srvPresupuestosCliente: TsrvPresupuestosCliente
end
item
Name = 'CANTIDAD'
DataType = datInteger
DataType = datCurrency
Value = ''
end
item
@ -1264,7 +1264,7 @@ object srvPresupuestosCliente: TsrvPresupuestosCliente
end
item
Name = 'CANTIDAD'
DataType = datInteger
DataType = datCurrency
Value = ''
end
item

20
Source/Servidor/FactuGES_Server.dpr
View File

@ -65,8 +65,6 @@ uses
srvInventario_Impl in '..\Modulos\Inventario\Servidor\srvInventario_Impl.pas' {srvInventario: TDataAbstractService},
srvHistoricoMovimientos_Impl in '..\Modulos\Historico de movimientos\Servidor\srvHistoricoMovimientos_Impl.pas' {srvHistoricoMovimientos: TDataAbstractService},
srvReferencias_Impl in '..\Modulos\Referencias\Servidor\srvReferencias_Impl.pas' {srvReferencias: TDataAbstractService},
schInventarioClient_Intf in '..\Modulos\Inventario\Model\schInventarioClient_Intf.pas',
schInventarioServer_Intf in '..\Modulos\Inventario\Model\schInventarioServer_Intf.pas',
schHistoricoMovimientosClient_Intf in '..\Modulos\Historico de movimientos\Model\schHistoricoMovimientosClient_Intf.pas',
schHistoricoMovimientosServer_Intf in '..\Modulos\Historico de movimientos\Model\schHistoricoMovimientosServer_Intf.pas',
srvEjercicios_Impl in '..\ApplicationBase\Ejercicios\Servidor\srvEjercicios_Impl.pas' {srvEjercicios: TDataAbstractService},
@ -84,8 +82,6 @@ uses
uRptEtiquetasContacto_Server in '..\Modulos\Contactos\Reports\uRptEtiquetasContacto_Server.pas' {RptEtiquetasContacto: TDataModule},
uRptFacturasCliente_Server in '..\Modulos\Facturas de cliente\Reports\uRptFacturasCliente_Server.pas' {RptFacturasCliente: TDataModule},
uRptRecibosCliente_Server in '..\Modulos\Recibos de cliente\Reports\uRptRecibosCliente_Server.pas' {RptRecibosCliente: TDataModule},
schPedidosProveedorClient_Intf in '..\Modulos\Pedidos a proveedor\Model\schPedidosProveedorClient_Intf.pas',
schPedidosProveedorServer_Intf in '..\Modulos\Pedidos a proveedor\Model\schPedidosProveedorServer_Intf.pas',
uBizRecibosClienteServer in '..\Modulos\Recibos de cliente\Model\uBizRecibosClienteServer.pas',
schReferenciasClient_Intf in '..\Modulos\Referencias\Model\schReferenciasClient_Intf.pas',
schReferenciasServer_Intf in '..\Modulos\Referencias\Model\schReferenciasServer_Intf.pas',
@ -116,23 +112,27 @@ uses
schRemesasClienteServer_Intf in '..\Modulos\Remesas de cliente\Model\schRemesasClienteServer_Intf.pas',
schContabilidadClient_Intf in '..\Modulos\Contabilidad\Model\schContabilidadClient_Intf.pas',
schContabilidadServer_Intf in '..\Modulos\Contabilidad\Model\schContabilidadServer_Intf.pas',
schFacturasProveedorClient_Intf in '..\Modulos\Facturas de proveedor\Model\schFacturasProveedorClient_Intf.pas',
schFacturasProveedorServer_Intf in '..\Modulos\Facturas de proveedor\Model\schFacturasProveedorServer_Intf.pas',
schRecibosClienteClient_Intf in '..\Modulos\Recibos de cliente\Model\schRecibosClienteClient_Intf.pas',
schRecibosClienteServer_Intf in '..\Modulos\Recibos de cliente\Model\schRecibosClienteServer_Intf.pas',
schRecibosProveedorClient_Intf in '..\Modulos\Recibos de proveedor\Model\schRecibosProveedorClient_Intf.pas',
schRecibosProveedorServer_Intf in '..\Modulos\Recibos de proveedor\Model\schRecibosProveedorServer_Intf.pas',
schAlbaranesProveedorClient_Intf in '..\Modulos\Albaranes de proveedor\Model\schAlbaranesProveedorClient_Intf.pas',
schAlbaranesProveedorServer_Intf in '..\Modulos\Albaranes de proveedor\Model\schAlbaranesProveedorServer_Intf.pas',
schAlbaranesClienteClient_Intf in '..\Modulos\Albaranes de cliente\Model\schAlbaranesClienteClient_Intf.pas',
schAlbaranesClienteServer_Intf in '..\Modulos\Albaranes de cliente\Model\schAlbaranesClienteServer_Intf.pas',
schEmpresasClient_Intf in '..\ApplicationBase\Empresas\Model\schEmpresasClient_Intf.pas',
schEmpresasServer_Intf in '..\ApplicationBase\Empresas\Model\schEmpresasServer_Intf.pas',
srvContratosCliente_Impl in '..\Modulos\Contratos de cliente\Servidor\srvContratosCliente_Impl.pas' {srvContratosCliente: TDataAbstractService},
uBizContratosClienteServer in '..\Modulos\Contratos de cliente\Model\uBizContratosClienteServer.pas',
uRptContratosCliente_Server in '..\Modulos\Contratos de cliente\Reports\uRptContratosCliente_Server.pas' {RptContratosCliente},
schAlbaranesClienteClient_Intf in '..\Modulos\Albaranes de cliente\Model\schAlbaranesClienteClient_Intf.pas',
schAlbaranesClienteServer_Intf in '..\Modulos\Albaranes de cliente\Model\schAlbaranesClienteServer_Intf.pas',
schAlbaranesProveedorClient_Intf in '..\Modulos\Albaranes de proveedor\Model\schAlbaranesProveedorClient_Intf.pas',
schAlbaranesProveedorServer_Intf in '..\Modulos\Albaranes de proveedor\Model\schAlbaranesProveedorServer_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',
schInventarioClient_Intf in '..\Modulos\Inventario\Model\schInventarioClient_Intf.pas',
schInventarioServer_Intf in '..\Modulos\Inventario\Model\schInventarioServer_Intf.pas',
schPedidosProveedorClient_Intf in '..\Modulos\Pedidos a proveedor\Model\schPedidosProveedorClient_Intf.pas',
schPedidosProveedorServer_Intf in '..\Modulos\Pedidos a proveedor\Model\schPedidosProveedorServer_Intf.pas',
schPresupuestosClienteClient_Intf in '..\Modulos\Presupuestos de cliente\Model\schPresupuestosClienteClient_Intf.pas',
schPresupuestosClienteServer_Intf in '..\Modulos\Presupuestos de cliente\Model\schPresupuestosClienteServer_Intf.pas',
schContratosClienteClient_Intf in '..\Modulos\Contratos de cliente\Model\schContratosClienteClient_Intf.pas',

584
Source/Servidor/FactuGES_Server.dproj
View File

@ -1,296 +1,296 @@
<?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>
</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>
</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><VersionInfo><VersionInfo Name="IncludeVerInfo">True</VersionInfo><VersionInfo Name="AutoIncBuild">False</VersionInfo><VersionInfo Name="MajorVer">2</VersionInfo><VersionInfo Name="MinorVer">4</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">Rodax Software S.L.</VersionInfoKeys><VersionInfoKeys Name="FileDescription"></VersionInfoKeys><VersionInfoKeys Name="FileVersion">2.4.0.0</VersionInfoKeys><VersionInfoKeys Name="InternalName"></VersionInfoKeys><VersionInfoKeys Name="LegalCopyright"></VersionInfoKeys><VersionInfoKeys Name="LegalTrademarks"></VersionInfoKeys><VersionInfoKeys Name="OriginalFilename"></VersionInfoKeys><VersionInfoKeys Name="ProductName">FactuGES (Servidor)</VersionInfoKeys><VersionInfoKeys Name="ProductVersion">2.4.0.0</VersionInfoKeys><VersionInfoKeys Name="Comments"></VersionInfoKeys><VersionInfoKeys Name="CompileDate">miércoles, 25 de noviembre de 2009 15:56</VersionInfoKeys></VersionInfoKeys><Excluded_Packages>
<Excluded_Packages Name="C:\Documents and Settings\All Users\Documentos\RAD Studio\5.0\Bpl\cxLibraryD11.bpl">Express Cross Platform Library by Developer Express Inc.</Excluded_Packages>
<Excluded_Packages Name="C:\Documents and Settings\All Users\Documentos\RAD Studio\5.0\Bpl\dxPSCoreD11.bpl">ExpressPrinting System by Developer Express Inc.</Excluded_Packages>
<Excluded_Packages Name="C:\Documents and Settings\All Users\Documentos\RAD Studio\5.0\Bpl\DataAbstract_SDACDriver_D11.bpl">RemObjects Data Abstract - CoreLabs SDAC Driver</Excluded_Packages>
</Excluded_Packages><Source><Source Name="MainSource">FactuGES_Server.dpr</Source></Source></Delphi.Personality></BorlandProject></BorlandProject>
</ProjectExtensions>
<Import Project="$(MSBuildBinPath)\Borland.Delphi.Targets" />
<ItemGroup>
<DelphiCompile Include="FactuGES_Server.dpr">
<MainSource>MainSource</MainSource>
</DelphiCompile>
<DCCReference Include="..\ApplicationBase\Ejercicios\Model\schEjerciciosClient_Intf.pas" />
<DCCReference Include="..\ApplicationBase\Ejercicios\Model\schEjerciciosServer_Intf.pas" />
<DCCReference Include="..\ApplicationBase\Ejercicios\Model\uBizEjerciciosServer.pas" />
<DCCReference Include="..\ApplicationBase\Ejercicios\Servidor\srvEjercicios_Impl.pas">
<Form>srvEjercicios</Form>
<DesignClass>TDataAbstractService</DesignClass>
</DCCReference>
<DCCReference Include="..\ApplicationBase\Empresas\Model\schEmpresasClient_Intf.pas" />
<DCCReference Include="..\ApplicationBase\Empresas\Model\schEmpresasServer_Intf.pas" />
<DCCReference Include="..\ApplicationBase\Empresas\Servidor\srvEmpresas_Impl.pas">
<Form>srvEmpresas</Form>
<DesignClass>TDARemoteService</DesignClass>
</DCCReference>
<DCCReference Include="..\ApplicationBase\ProvinciasPoblaciones\Servidor\srvProvinciasPoblaciones_Impl.pas">
<Form>srvProvinciasPoblaciones</Form>
<DesignClass>TRORemoteDataModule</DesignClass>
</DCCReference>
<DCCReference Include="..\ApplicationBase\Usuarios\Model\schUsuariosClient_Intf.pas" />
<DCCReference Include="..\ApplicationBase\Usuarios\Model\schUsuariosServer_Intf.pas" />
<DCCReference Include="..\ApplicationBase\Usuarios\Servidor\srvUsuarios_Impl.pas" />
<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" />
<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\Servidor\srvArticulos_Impl.pas" />
<DCCReference Include="..\Modulos\Comisiones\Model\schComisionesClient_Intf.pas" />
<DCCReference Include="..\Modulos\Comisiones\Model\schComisionesServer_Intf.pas" />
<DCCReference Include="..\Modulos\Comisiones\Model\uBizComisionesServer.pas" />
<DCCReference Include="..\Modulos\Comisiones\Reports\uRptComisiones_Server.pas">
<Form>RptComisiones</Form>
<DesignClass>TDataModule</DesignClass>
</DCCReference>
<DCCReference Include="..\Modulos\Comisiones\Servidor\srvComisiones_Impl.pas">
<Form>srvComisiones</Form>
<DesignClass>TDataAbstractService</DesignClass>
</DCCReference>
<DCCReference Include="..\Modulos\Contabilidad\Model\schContabilidadClient_Intf.pas" />
<DCCReference Include="..\Modulos\Contabilidad\Model\schContabilidadServer_Intf.pas" />
<DCCReference Include="..\Modulos\Contabilidad\Model\uBizAsientosServer.pas" />
<DCCReference Include="..\Modulos\Contabilidad\Servidor\srvContabilidad_Impl.pas">
<Form>srvContabilidad</Form>
<DesignClass>TDataAbstractService</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\uBizProveedoresServer.pas" />
<DCCReference Include="..\Modulos\Contactos\Model\uBizVendedoresServer.pas" />
<DCCReference Include="..\Modulos\Contactos\Reports\uRptEtiquetasContacto_Server.pas">
<Form>RptEtiquetasContacto</Form>
<DesignClass>TDataModule</DesignClass>
</DCCReference>
<DCCReference Include="..\Modulos\Contactos\Servidor\srvContactos_Impl.pas">
<Form>srvContactos</Form>
<DesignClass>TDARemoteService</DesignClass>
</DCCReference>
<DCCReference Include="..\Modulos\Contratos de cliente\Model\schContratosClienteClient_Intf.pas" />
<DCCReference Include="..\Modulos\Contratos de cliente\Model\schContratosClienteServer_Intf.pas" />
<DCCReference Include="..\Modulos\Contratos de cliente\Model\uBizContratosClienteServer.pas" />
<DCCReference Include="..\Modulos\Contratos de cliente\Reports\uRptContratosCliente_Server.pas">
<Form>RptContratosCliente</Form>
</DCCReference>
<DCCReference Include="..\Modulos\Contratos de cliente\Servidor\srvContratosCliente_Impl.pas">
<Form>srvContratosCliente</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\Servidor\srvFacturasCliente_Impl.pas">
<Form>srvFacturasCliente</Form>
<DesignClass>TDataAbstractService</DesignClass>
</DCCReference>
<DCCReference Include="..\Modulos\Facturas de proveedor\Model\schFacturasProveedorClient_Intf.pas" />
<DCCReference Include="..\Modulos\Facturas de proveedor\Model\schFacturasProveedorServer_Intf.pas" />
<DCCReference Include="..\Modulos\Facturas de proveedor\Model\uBizFacturasProveedorServer.pas" />
<DCCReference Include="..\Modulos\Facturas de proveedor\Reports\uRptFacturasProveedor_Server.pas">
<Form>RptFacturasProveedor</Form>
<DesignClass>TDataModule</DesignClass>
</DCCReference>
<DCCReference Include="..\Modulos\Facturas de proveedor\Servidor\srvFacturasProveedor_Impl.pas">
<Form>srvFacturasProveedor</Form>
<DesignClass>TDataAbstractService</DesignClass>
</DCCReference>
<DCCReference Include="..\Modulos\Familias\Model\schFamiliasClient_Intf.pas" />
<DCCReference Include="..\Modulos\Familias\Model\schFamiliasServer_Intf.pas" />
<DCCReference Include="..\Modulos\Familias\Servidor\srvFamilias_Impl.pas" />
<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\Gestion de documentos\Servidor\srvGestorDocumentos_Impl.pas">
<Form>srvGestorDocumentos</Form>
<DesignClass>TDataAbstractService</DesignClass>
</DCCReference>
<DCCReference Include="..\Modulos\Gestor de informes\Servidor\srvGestorInformes_Impl.pas">
<Form>srvGestorInformes</Form>
<DesignClass>TDataAbstractService</DesignClass>
</DCCReference>
<DCCReference Include="..\Modulos\Historico de movimientos\Model\schHistoricoMovimientosClient_Intf.pas" />
<DCCReference Include="..\Modulos\Historico de movimientos\Model\schHistoricoMovimientosServer_Intf.pas" />
<DCCReference Include="..\Modulos\Historico de movimientos\Servidor\srvHistoricoMovimientos_Impl.pas">
<Form>srvHistoricoMovimientos</Form>
<DesignClass>TDataAbstractService</DesignClass>
</DCCReference>
<DCCReference Include="..\Modulos\Inventario\Model\schInventarioClient_Intf.pas" />
<DCCReference Include="..\Modulos\Inventario\Model\schInventarioServer_Intf.pas" />
<DCCReference Include="..\Modulos\Inventario\Servidor\srvInventario_Impl.pas">
<Form>srvInventario</Form>
<DesignClass>TDataAbstractService</DesignClass>
</DCCReference>
<DCCReference Include="..\Modulos\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\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>
</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\Model\uBizPagosClienteServer.pas" />
<DCCReference Include="..\Modulos\Recibos de cliente\Model\uBizRecibosClienteServer.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\Model\uBizPagosProveedorServer.pas" />
<DCCReference Include="..\Modulos\Recibos de proveedor\Model\uBizRecibosProveedorServer.pas" />
<DCCReference Include="..\Modulos\Recibos de proveedor\Reports\uRptRecibosProveedor_Server.pas">
<Form>RptRecibosProveedor</Form>
<DesignClass>TDataModule</DesignClass>
</DCCReference>
<DCCReference Include="..\Modulos\Recibos de proveedor\Servidor\srvRecibosProveedor_Impl.pas">
<Form>srvRecibosProveedor</Form>
<DesignClass>TDataAbstractService</DesignClass>
</DCCReference>
<DCCReference Include="..\Modulos\Referencias\Model\schReferenciasClient_Intf.pas" />
<DCCReference Include="..\Modulos\Referencias\Model\schReferenciasServer_Intf.pas" />
<DCCReference Include="..\Modulos\Referencias\Servidor\srvReferencias_Impl.pas">
<Form>srvReferencias</Form>
<DesignClass>TDataAbstractService</DesignClass>
</DCCReference>
<DCCReference Include="..\Modulos\Remesas de cliente\Model\schRemesasClienteClient_Intf.pas" />
<DCCReference Include="..\Modulos\Remesas de cliente\Model\schRemesasClienteServer_Intf.pas" />
<DCCReference Include="..\Modulos\Remesas de cliente\Model\uBizRemesasClienteServer.pas" />
<DCCReference Include="..\Modulos\Remesas de cliente\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\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>
</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>
</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><VersionInfo><VersionInfo Name="IncludeVerInfo">True</VersionInfo><VersionInfo Name="AutoIncBuild">False</VersionInfo><VersionInfo Name="MajorVer">2</VersionInfo><VersionInfo Name="MinorVer">4</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">Rodax Software S.L.</VersionInfoKeys><VersionInfoKeys Name="FileDescription"></VersionInfoKeys><VersionInfoKeys Name="FileVersion">2.4.0.0</VersionInfoKeys><VersionInfoKeys Name="InternalName"></VersionInfoKeys><VersionInfoKeys Name="LegalCopyright"></VersionInfoKeys><VersionInfoKeys Name="LegalTrademarks"></VersionInfoKeys><VersionInfoKeys Name="OriginalFilename"></VersionInfoKeys><VersionInfoKeys Name="ProductName">FactuGES (Servidor)</VersionInfoKeys><VersionInfoKeys Name="ProductVersion">2.4.0.0</VersionInfoKeys><VersionInfoKeys Name="Comments"></VersionInfoKeys><VersionInfoKeys Name="CompileDate">miércoles, 25 de noviembre de 2009 15:56</VersionInfoKeys></VersionInfoKeys><Excluded_Packages>
<Excluded_Packages Name="C:\Documents and Settings\All Users\Documentos\RAD Studio\5.0\Bpl\cxLibraryD11.bpl">Express Cross Platform Library by Developer Express Inc.</Excluded_Packages>
<Excluded_Packages Name="C:\Documents and Settings\All Users\Documentos\RAD Studio\5.0\Bpl\dxPSCoreD11.bpl">ExpressPrinting System by Developer Express Inc.</Excluded_Packages>
<Excluded_Packages Name="C:\Documents and Settings\All Users\Documentos\RAD Studio\5.0\Bpl\DataAbstract_SDACDriver_D11.bpl">RemObjects Data Abstract - CoreLabs SDAC Driver</Excluded_Packages>
</Excluded_Packages><Source><Source Name="MainSource">FactuGES_Server.dpr</Source></Source></Delphi.Personality></BorlandProject></BorlandProject>
</ProjectExtensions>
<Import Project="$(MSBuildBinPath)\Borland.Delphi.Targets"/>
<ItemGroup>
<DelphiCompile Include="FactuGES_Server.dpr">
<MainSource>MainSource</MainSource>
</DelphiCompile>
<DCCReference Include="..\ApplicationBase\Ejercicios\Model\schEjerciciosClient_Intf.pas"/>
<DCCReference Include="..\ApplicationBase\Ejercicios\Model\schEjerciciosServer_Intf.pas"/>
<DCCReference Include="..\ApplicationBase\Ejercicios\Model\uBizEjerciciosServer.pas"/>
<DCCReference Include="..\ApplicationBase\Ejercicios\Servidor\srvEjercicios_Impl.pas">
<Form>srvEjercicios</Form>
<DesignClass>TDataAbstractService</DesignClass>
</DCCReference>
<DCCReference Include="..\ApplicationBase\Empresas\Model\schEmpresasClient_Intf.pas"/>
<DCCReference Include="..\ApplicationBase\Empresas\Model\schEmpresasServer_Intf.pas"/>
<DCCReference Include="..\ApplicationBase\Empresas\Servidor\srvEmpresas_Impl.pas">
<Form>srvEmpresas</Form>
<DesignClass>TDARemoteService</DesignClass>
</DCCReference>
<DCCReference Include="..\ApplicationBase\ProvinciasPoblaciones\Servidor\srvProvinciasPoblaciones_Impl.pas">
<Form>srvProvinciasPoblaciones</Form>
<DesignClass>TRORemoteDataModule</DesignClass>
</DCCReference>
<DCCReference Include="..\ApplicationBase\Usuarios\Model\schUsuariosClient_Intf.pas"/>
<DCCReference Include="..\ApplicationBase\Usuarios\Model\schUsuariosServer_Intf.pas"/>
<DCCReference Include="..\ApplicationBase\Usuarios\Servidor\srvUsuarios_Impl.pas"/>
<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"/>
<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\Servidor\srvArticulos_Impl.pas"/>
<DCCReference Include="..\Modulos\Comisiones\Model\schComisionesClient_Intf.pas"/>
<DCCReference Include="..\Modulos\Comisiones\Model\schComisionesServer_Intf.pas"/>
<DCCReference Include="..\Modulos\Comisiones\Model\uBizComisionesServer.pas"/>
<DCCReference Include="..\Modulos\Comisiones\Reports\uRptComisiones_Server.pas">
<Form>RptComisiones</Form>
<DesignClass>TDataModule</DesignClass>
</DCCReference>
<DCCReference Include="..\Modulos\Comisiones\Servidor\srvComisiones_Impl.pas">
<Form>srvComisiones</Form>
<DesignClass>TDataAbstractService</DesignClass>
</DCCReference>
<DCCReference Include="..\Modulos\Contabilidad\Model\schContabilidadClient_Intf.pas"/>
<DCCReference Include="..\Modulos\Contabilidad\Model\schContabilidadServer_Intf.pas"/>
<DCCReference Include="..\Modulos\Contabilidad\Model\uBizAsientosServer.pas"/>
<DCCReference Include="..\Modulos\Contabilidad\Servidor\srvContabilidad_Impl.pas">
<Form>srvContabilidad</Form>
<DesignClass>TDataAbstractService</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\uBizProveedoresServer.pas"/>
<DCCReference Include="..\Modulos\Contactos\Model\uBizVendedoresServer.pas"/>
<DCCReference Include="..\Modulos\Contactos\Reports\uRptEtiquetasContacto_Server.pas">
<Form>RptEtiquetasContacto</Form>
<DesignClass>TDataModule</DesignClass>
</DCCReference>
<DCCReference Include="..\Modulos\Contactos\Servidor\srvContactos_Impl.pas">
<Form>srvContactos</Form>
<DesignClass>TDARemoteService</DesignClass>
</DCCReference>
<DCCReference Include="..\Modulos\Contratos de cliente\Model\schContratosClienteClient_Intf.pas"/>
<DCCReference Include="..\Modulos\Contratos de cliente\Model\schContratosClienteServer_Intf.pas"/>
<DCCReference Include="..\Modulos\Contratos de cliente\Model\uBizContratosClienteServer.pas"/>
<DCCReference Include="..\Modulos\Contratos de cliente\Reports\uRptContratosCliente_Server.pas">
<Form>RptContratosCliente</Form>
</DCCReference>
<DCCReference Include="..\Modulos\Contratos de cliente\Servidor\srvContratosCliente_Impl.pas">
<Form>srvContratosCliente</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\Servidor\srvFacturasCliente_Impl.pas">
<Form>srvFacturasCliente</Form>
<DesignClass>TDataAbstractService</DesignClass>
</DCCReference>
<DCCReference Include="..\Modulos\Facturas de proveedor\Model\schFacturasProveedorClient_Intf.pas"/>
<DCCReference Include="..\Modulos\Facturas de proveedor\Model\schFacturasProveedorServer_Intf.pas"/>
<DCCReference Include="..\Modulos\Facturas de proveedor\Model\uBizFacturasProveedorServer.pas"/>
<DCCReference Include="..\Modulos\Facturas de proveedor\Reports\uRptFacturasProveedor_Server.pas">
<Form>RptFacturasProveedor</Form>
<DesignClass>TDataModule</DesignClass>
</DCCReference>
<DCCReference Include="..\Modulos\Facturas de proveedor\Servidor\srvFacturasProveedor_Impl.pas">
<Form>srvFacturasProveedor</Form>
<DesignClass>TDataAbstractService</DesignClass>
</DCCReference>
<DCCReference Include="..\Modulos\Familias\Model\schFamiliasClient_Intf.pas"/>
<DCCReference Include="..\Modulos\Familias\Model\schFamiliasServer_Intf.pas"/>
<DCCReference Include="..\Modulos\Familias\Servidor\srvFamilias_Impl.pas"/>
<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\Gestion de documentos\Servidor\srvGestorDocumentos_Impl.pas">
<Form>srvGestorDocumentos</Form>
<DesignClass>TDataAbstractService</DesignClass>
</DCCReference>
<DCCReference Include="..\Modulos\Gestor de informes\Servidor\srvGestorInformes_Impl.pas">
<Form>srvGestorInformes</Form>
<DesignClass>TDataAbstractService</DesignClass>
</DCCReference>
<DCCReference Include="..\Modulos\Historico de movimientos\Model\schHistoricoMovimientosClient_Intf.pas"/>
<DCCReference Include="..\Modulos\Historico de movimientos\Model\schHistoricoMovimientosServer_Intf.pas"/>
<DCCReference Include="..\Modulos\Historico de movimientos\Servidor\srvHistoricoMovimientos_Impl.pas">
<Form>srvHistoricoMovimientos</Form>
<DesignClass>TDataAbstractService</DesignClass>
</DCCReference>
<DCCReference Include="..\Modulos\Inventario\Model\schInventarioClient_Intf.pas"/>
<DCCReference Include="..\Modulos\Inventario\Model\schInventarioServer_Intf.pas"/>
<DCCReference Include="..\Modulos\Inventario\Servidor\srvInventario_Impl.pas">
<Form>srvInventario</Form>
<DesignClass>TDataAbstractService</DesignClass>
</DCCReference>
<DCCReference Include="..\Modulos\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\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>
</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\Model\uBizPagosClienteServer.pas"/>
<DCCReference Include="..\Modulos\Recibos de cliente\Model\uBizRecibosClienteServer.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\Model\uBizPagosProveedorServer.pas"/>
<DCCReference Include="..\Modulos\Recibos de proveedor\Model\uBizRecibosProveedorServer.pas"/>
<DCCReference Include="..\Modulos\Recibos de proveedor\Reports\uRptRecibosProveedor_Server.pas">
<Form>RptRecibosProveedor</Form>
<DesignClass>TDataModule</DesignClass>
</DCCReference>
<DCCReference Include="..\Modulos\Recibos de proveedor\Servidor\srvRecibosProveedor_Impl.pas">
<Form>srvRecibosProveedor</Form>
<DesignClass>TDataAbstractService</DesignClass>
</DCCReference>
<DCCReference Include="..\Modulos\Referencias\Model\schReferenciasClient_Intf.pas"/>
<DCCReference Include="..\Modulos\Referencias\Model\schReferenciasServer_Intf.pas"/>
<DCCReference Include="..\Modulos\Referencias\Servidor\srvReferencias_Impl.pas">
<Form>srvReferencias</Form>
<DesignClass>TDataAbstractService</DesignClass>
</DCCReference>
<DCCReference Include="..\Modulos\Remesas de cliente\Model\schRemesasClienteClient_Intf.pas"/>
<DCCReference Include="..\Modulos\Remesas de cliente\Model\schRemesasClienteServer_Intf.pas"/>
<DCCReference Include="..\Modulos\Remesas de cliente\Model\uBizRemesasClienteServer.pas"/>
<DCCReference Include="..\Modulos\Remesas de cliente\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\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

@ -16,7 +16,7 @@ BEGIN
VALUE "FileVersion", "2.4.0.0\0"
VALUE "ProductName", "FactuGES (Servidor)\0"
VALUE "ProductVersion", "2.4.0.0\0"
VALUE "CompileDate", "miércoles, 09 de diciembre de 2009 16:01\0"
VALUE "CompileDate", "martes, 15 de diciembre de 2009 18:00\0"
END
END
BLOCK "VarFileInfo"