diff --git a/Database/scripts/factuges.sql b/Database/scripts/factuges.sql index 7a7c655d..745359cf 100644 --- a/Database/scripts/factuges.sql +++ b/Database/scripts/factuges.sql @@ -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; diff --git a/Database/scripts/factuges_borrarvistas.sql b/Database/scripts/factuges_borrarvistas.sql new file mode 100644 index 00000000..0ecf3821 --- /dev/null +++ b/Database/scripts/factuges_borrarvistas.sql @@ -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;*/ + + + + + + + + + + + diff --git a/Database/scripts/factuges_sysdata.sql b/Database/scripts/factuges_sysdata.sql index 76a74748..ba5baf05 100644 --- a/Database/scripts/factuges_sysdata.sql +++ b/Database/scripts/factuges_sysdata.sql @@ -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; \ No newline at end of file diff --git a/Source/Base/Base.dproj b/Source/Base/Base.dproj index 95ba1f77..48b37039 100644 --- a/Source/Base/Base.dproj +++ b/Source/Base/Base.dproj @@ -58,54 +58,54 @@ MainSource - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + +
fConfigurarConexion
diff --git a/Source/Base/Controladores/uControllerDetallesBase.pas b/Source/Base/Controladores/uControllerDetallesBase.pas index 93dac15b..61eea829 100644 --- a/Source/Base/Controladores/uControllerDetallesBase.pas +++ b/Source/Base/Controladores/uControllerDetallesBase.pas @@ -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; diff --git a/Source/Base/Utiles/uCalculosUtils.pas b/Source/Base/Utiles/uCalculosUtils.pas index df782305..303d4738 100644 --- a/Source/Base/Utiles/uCalculosUtils.pas +++ b/Source/Base/Utiles/uCalculosUtils.pas @@ -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; diff --git a/Source/GUIBase/uViewDetallesBase.dfm b/Source/GUIBase/uViewDetallesBase.dfm index 5bd258df..9046ff56 100644 --- a/Source/GUIBase/uViewDetallesBase.dfm +++ b/Source/GUIBase/uViewDetallesBase.dfm @@ -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 diff --git a/Source/Modulos/Albaranes de cliente/Data/AlbaranesCliente_data.dproj b/Source/Modulos/Albaranes de cliente/Data/AlbaranesCliente_data.dproj index 1047341d..6cf7a8f2 100644 --- a/Source/Modulos/Albaranes de cliente/Data/AlbaranesCliente_data.dproj +++ b/Source/Modulos/Albaranes de cliente/Data/AlbaranesCliente_data.dproj @@ -41,7 +41,7 @@ Delphi.Personality Package -FalseTrueFalseTrueFalseFalseTrueFalse1000FalseFalseFalseFalseFalse308212521.0.0.01.0.0.0AlbaranesCliente_data.dpk +FalseTrueFalseFalseFalseFalseTrueFalse1000FalseFalseFalseFalseFalse308212521.0.0.01.0.0.0AlbaranesCliente_data.dpk diff --git a/Source/Modulos/Albaranes de cliente/Data/uDataModuleAlbaranesCliente.dfm b/Source/Modulos/Albaranes de cliente/Data/uDataModuleAlbaranesCliente.dfm index c65b69bf..c49c7292 100644 --- a/Source/Modulos/Albaranes de cliente/Data/uDataModuleAlbaranesCliente.dfm +++ b/Source/Modulos/Albaranes de cliente/Data/uDataModuleAlbaranesCliente.dfm @@ -362,7 +362,7 @@ inherited DataModuleAlbaranesCliente: TDataModuleAlbaranesCliente end item Name = 'CANTIDAD' - DataType = datInteger + DataType = datFloat Alignment = taRightJustify DictionaryEntry = 'CANTIDAD' end diff --git a/Source/Modulos/Albaranes de cliente/Model/schAlbaranesClienteClient_Intf.pas b/Source/Modulos/Albaranes de cliente/Model/schAlbaranesClienteClient_Intf.pas index 3b197d31..6e718c28 100644 --- a/Source/Modulos/Albaranes de cliente/Model/schAlbaranesClienteClient_Intf.pas +++ b/Source/Modulos/Albaranes de cliente/Model/schAlbaranesClienteClient_Intf.pas @@ -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; diff --git a/Source/Modulos/Albaranes de cliente/Model/schAlbaranesClienteServer_Intf.pas b/Source/Modulos/Albaranes de cliente/Model/schAlbaranesClienteServer_Intf.pas index e09db82f..61410252 100644 --- a/Source/Modulos/Albaranes de cliente/Model/schAlbaranesClienteServer_Intf.pas +++ b/Source/Modulos/Albaranes de cliente/Model/schAlbaranesClienteServer_Intf.pas @@ -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; diff --git a/Source/Modulos/Albaranes de cliente/Reports/uRptAlbaranesCliente_Server.dfm b/Source/Modulos/Albaranes de cliente/Reports/uRptAlbaranesCliente_Server.dfm index 088ad08f..19f99216 100644 --- a/Source/Modulos/Albaranes de cliente/Reports/uRptAlbaranesCliente_Server.dfm +++ b/Source/Modulos/Albaranes de cliente/Reports/uRptAlbaranesCliente_Server.dfm @@ -678,6 +678,11 @@ object RptAlbaranesCliente: TRptAlbaranesCliente item DatasetField = 'DESCUENTO' TableField = 'DESCUENTO' + end + item + DatasetField = 'CONCEPTO_RTF' + TableField = '' + 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' diff --git a/Source/Modulos/Albaranes de cliente/Servidor/srvAlbaranesCliente_Impl.dfm b/Source/Modulos/Albaranes de cliente/Servidor/srvAlbaranesCliente_Impl.dfm index 3f599138..7937786a 100644 --- a/Source/Modulos/Albaranes de cliente/Servidor/srvAlbaranesCliente_Impl.dfm +++ b/Source/Modulos/Albaranes de cliente/Servidor/srvAlbaranesCliente_Impl.dfm @@ -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 diff --git a/Source/Modulos/Albaranes de proveedor/Data/AlbaranesProveedor_data.dproj b/Source/Modulos/Albaranes de proveedor/Data/AlbaranesProveedor_data.dproj index 4bc4a55e..b12dedee 100644 --- a/Source/Modulos/Albaranes de proveedor/Data/AlbaranesProveedor_data.dproj +++ b/Source/Modulos/Albaranes de proveedor/Data/AlbaranesProveedor_data.dproj @@ -41,60 +41,19 @@ Delphi.Personality Package - - False - True - False - - - True - False - False - - - True - False - 1 - 0 - 0 - 0 - False - False - False - False - False - 3082 - 1252 - - - - - 1.0.0.0 - - - - - - 1.0.0.0 - - - - AlbaranesProveedor_data.dpk - - +FalseTrueFalseFalseFalseFalseTrueFalse1000FalseFalseFalseFalseFalse308212521.0.0.01.0.0.0AlbaranesProveedor_data.dpk MainSource - +
DataModuleAlbaranesProveedor
 -