diff --git a/Database/scripts/factuges.sql b/Database/scripts/factuges.sql index ea3f00ea..38a10643 100644 --- a/Database/scripts/factuges.sql +++ b/Database/scripts/factuges.sql @@ -299,6 +299,7 @@ CREATE TABLE ALBARANES_CLIENTE_DETALLES ( ID_ARTICULO TIPO_ID, CONCEPTO TIPO_CONCEPTO, CANTIDAD INTEGER, + UNIDAD_MEDIDA VARCHAR(255), IMPORTE_UNIDAD TIPO_IMPORTE, DESCUENTO TIPO_PORCENTAJE, IMPORTE_PORTE TIPO_IMPORTE, @@ -354,6 +355,7 @@ CREATE TABLE ALBARANES_PROVEEDOR_DETALLES ( ID_ARTICULO TIPO_ID, CONCEPTO TIPO_CONCEPTO, CANTIDAD INTEGER, + UNIDAD_MEDIDA VARCHAR(255), IMPORTE_UNIDAD TIPO_IMPORTE, DESCUENTO TIPO_PORCENTAJE, IMPORTE_PORTE TIPO_IMPORTE, @@ -683,6 +685,7 @@ CREATE TABLE FACTURAS_CLIENTE_DETALLES ( ID_ARTICULO TIPO_ID, CONCEPTO TIPO_CONCEPTO, CANTIDAD INTEGER, + UNIDAD_MEDIDA VARCHAR(255), IMPORTE_UNIDAD TIPO_IMPORTE, DESCUENTO TIPO_PORCENTAJE, IMPORTE_PORTE TIPO_IMPORTE, @@ -734,6 +737,7 @@ CREATE TABLE FACTURAS_PROVEEDOR_DETALLES ( ID_ARTICULO TIPO_ID, CONCEPTO TIPO_CONCEPTO, CANTIDAD INTEGER, + UNIDAD_MEDIDA VARCHAR(255), IMPORTE_UNIDAD TIPO_IMPORTE, DESCUENTO TIPO_PORCENTAJE, IMPORTE_PORTE TIPO_IMPORTE, @@ -793,13 +797,14 @@ CREATE TABLE INFORMES ( CREATE TABLE MOVIMIENTOS ( - ID TIPO_ID NOT NULL, - ID_ALMACEN TIPO_ID, - ID_ARTICULO TIPO_ID, - FECHA_MOVIMIENTO DATE, - TIPO VARCHAR(1), - CANTIDAD INTEGER, - CAUSA TIPO_CONCEPTO + ID TIPO_ID NOT NULL, + ID_ALMACEN TIPO_ID, + ID_ARTICULO TIPO_ID, + FECHA_MOVIMIENTO DATE, + TIPO VARCHAR(1), + CANTIDAD INTEGER, + CAUSA TIPO_CONCEPTO, + ID_ALMACEN_RESERVA TIPO_ID ); @@ -1534,7 +1539,8 @@ MANO_OBRA, PRECIO_PVP_TOTAL, ID_ARTICULO) AS -SELECT ARTICULOS.ID, ARTICULOS.ID_EMPRESA, ARTICULOS.REFERENCIA, ARTICULOS.DESCRIPCION, +SELECT ARTICULOS.ID, + ARTICULOS.ID_EMPRESA, ARTICULOS.REFERENCIA, ARTICULOS.DESCRIPCION, ARTICULOS.UNIDAD_MEDIDA, ARTICULOS.FAMILIA, ARTICULOS.IMAGEN, ARTICULOS.COMISIONABLE, ARTICULOS.FECHA_ALTA, ARTICULOS.FECHA_MODIFICACION, ARTICULOS.USUARIO, @@ -2324,23 +2330,34 @@ WHERE (PEDIDOS_PROVEEDOR.ID_ALMACEN IS NOT NULL) GROUP BY PEDIDOS_PROVEEDOR.ID_ALMACEN, V_PED_PROV_ARTICULOS.ID_ARTICULO ; - - -/* View: V_INV_RESERVAS */ -CREATE VIEW V_INV_RESERVAS( - ID_ALMACEN, - ID_ARTICULO, - CANTIDAD) -AS +/* View: V_INV_RESERVAS_AUX */ +CREATE VIEW V_INV_RESERVAS_AUX( +ID_ALMACEN, +ID_ARTICULO, +CANTIDAD) + AS SELECT ID_ALMACEN, ID_ARTICULO, SUM(CANTIDAD) FROM V_ALB_CLI_DETALLES WHERE (ID_ALMACEN IS NOT NULL) AND (SITUACION = 'PENDIENTE') GROUP BY ID_ALMACEN, ID_ARTICULO +UNION ALL +SELECT ID_ALMACEN, + ID_ARTICULO, + CANTIDAD +FROM MOVIMIENTOS +WHERE TIPO = 'R'; + +CREATE VIEW V_INV_RESERVAS( +ID_ALMACEN, +ID_ARTICULO, +CANTIDAD) + AS +SELECT ID_ALMACEN, ID_ARTICULO, SUM(CANTIDAD) +FROM V_INV_RESERVAS_AUX +GROUP BY ID_ALMACEN, ID_ARTICULO; ; - - /* View: V_INV_SALIDAS_ALB */ CREATE VIEW V_INV_SALIDAS_ALB( ID_ALMACEN, diff --git a/Source/Base/Base.dproj b/Source/Base/Base.dproj index a7e6fe93..5779404a 100644 --- a/Source/Base/Base.dproj +++ b/Source/Base/Base.dproj @@ -55,57 +55,57 @@ MainSource - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + +
fConfigurarConexion
diff --git a/Source/Modulos/Albaranes de cliente/Data/uDataModuleAlbaranesCliente.dfm b/Source/Modulos/Albaranes de cliente/Data/uDataModuleAlbaranesCliente.dfm index b6852514..b3a3cf30 100644 --- a/Source/Modulos/Albaranes de cliente/Data/uDataModuleAlbaranesCliente.dfm +++ b/Source/Modulos/Albaranes de cliente/Data/uDataModuleAlbaranesCliente.dfm @@ -337,6 +337,11 @@ inherited DataModuleAlbaranesCliente: TDataModuleAlbaranesCliente Alignment = taRightJustify DictionaryEntry = 'CANTIDAD' end + item + Name = 'UNIDAD_MEDIDA' + DataType = datString + Size = 255 + end item Name = 'IMPORTE_UNIDAD' DataType = datCurrency @@ -385,6 +390,8 @@ inherited DataModuleAlbaranesCliente: TDataModuleAlbaranesCliente Name = 'REFERENCIA_PROVEEDOR' DataType = datString Size = 255 + DisplayLabel = 'Ref. proveedor' + DictionaryEntry = 'AlbaranesCliente_Detalles_REFERENCIA_PROVEEDOR' end item Name = 'ID_PEDIDO' diff --git a/Source/Modulos/Albaranes de cliente/Model/schAlbaranesClienteClient_Intf.pas b/Source/Modulos/Albaranes de cliente/Model/schAlbaranesClienteClient_Intf.pas index 0bbbadfa..5f816303 100644 --- a/Source/Modulos/Albaranes de cliente/Model/schAlbaranesClienteClient_Intf.pas +++ b/Source/Modulos/Albaranes de cliente/Model/schAlbaranesClienteClient_Intf.pas @@ -9,8 +9,8 @@ const { Data table rules ids Feel free to change them to something more human readable but make sure they are unique in the context of your application } - RID_AlbaranesCliente = '{FCCE9431-F9AF-47FC-827F-3B80548952DB}'; - RID_AlbaranesCliente_Detalles = '{6BE5CCD5-B3AA-464D-9FE1-694242071E0E}'; + RID_AlbaranesCliente = '{8E9C9E82-769C-4B9B-BBCD-15E8ABB5F341}'; + RID_AlbaranesCliente_Detalles = '{7438D3A0-220D-4882-8919-09C4E9995672}'; { Data table names } nme_AlbaranesCliente = 'AlbaranesCliente'; @@ -105,6 +105,7 @@ const fld_AlbaranesCliente_DetallesTIPO_DETALLE = 'TIPO_DETALLE'; fld_AlbaranesCliente_DetallesCONCEPTO = 'CONCEPTO'; fld_AlbaranesCliente_DetallesCANTIDAD = 'CANTIDAD'; + fld_AlbaranesCliente_DetallesUNIDAD_MEDIDA = 'UNIDAD_MEDIDA'; fld_AlbaranesCliente_DetallesIMPORTE_UNIDAD = 'IMPORTE_UNIDAD'; fld_AlbaranesCliente_DetallesDESCUENTO = 'DESCUENTO'; fld_AlbaranesCliente_DetallesIMPORTE_PORTE = 'IMPORTE_PORTE'; @@ -122,20 +123,21 @@ const idx_AlbaranesCliente_DetallesTIPO_DETALLE = 3; idx_AlbaranesCliente_DetallesCONCEPTO = 4; idx_AlbaranesCliente_DetallesCANTIDAD = 5; - idx_AlbaranesCliente_DetallesIMPORTE_UNIDAD = 6; - idx_AlbaranesCliente_DetallesDESCUENTO = 7; - idx_AlbaranesCliente_DetallesIMPORTE_PORTE = 8; - idx_AlbaranesCliente_DetallesIMPORTE_TOTAL = 9; - idx_AlbaranesCliente_DetallesVISIBLE = 10; - idx_AlbaranesCliente_DetallesID_ARTICULO = 11; - idx_AlbaranesCliente_DetallesREFERENCIA = 12; - idx_AlbaranesCliente_DetallesREFERENCIA_PROVEEDOR = 13; - idx_AlbaranesCliente_DetallesID_PEDIDO = 14; + idx_AlbaranesCliente_DetallesUNIDAD_MEDIDA = 6; + idx_AlbaranesCliente_DetallesIMPORTE_UNIDAD = 7; + idx_AlbaranesCliente_DetallesDESCUENTO = 8; + idx_AlbaranesCliente_DetallesIMPORTE_PORTE = 9; + idx_AlbaranesCliente_DetallesIMPORTE_TOTAL = 10; + idx_AlbaranesCliente_DetallesVISIBLE = 11; + idx_AlbaranesCliente_DetallesID_ARTICULO = 12; + idx_AlbaranesCliente_DetallesREFERENCIA = 13; + idx_AlbaranesCliente_DetallesREFERENCIA_PROVEEDOR = 14; + idx_AlbaranesCliente_DetallesID_PEDIDO = 15; type { IAlbaranesCliente } IAlbaranesCliente = interface(IDAStronglyTypedDataTable) - ['{9D9C017D-A65F-430D-9903-3724A7FA2AA7}'] + ['{7E7930B1-64D6-483A-AC1C-2CE60F883F41}'] { Property getters and setters } function GetIDValue: Integer; procedure SetIDValue(const aValue: Integer); @@ -626,7 +628,7 @@ type { IAlbaranesCliente_Detalles } IAlbaranesCliente_Detalles = interface(IDAStronglyTypedDataTable) - ['{C6B6C302-E6F3-44D6-8C18-B8EE3F64EBED}'] + ['{08CCA27A-C500-4A1D-BEE3-ED4A8D8E8726}'] { Property getters and setters } function GetIDValue: Integer; procedure SetIDValue(const aValue: Integer); @@ -652,6 +654,10 @@ type procedure SetCANTIDADValue(const aValue: Integer); function GetCANTIDADIsNull: Boolean; procedure SetCANTIDADIsNull(const aValue: Boolean); + function GetUNIDAD_MEDIDAValue: String; + procedure SetUNIDAD_MEDIDAValue(const aValue: String); + function GetUNIDAD_MEDIDAIsNull: Boolean; + procedure SetUNIDAD_MEDIDAIsNull(const aValue: Boolean); function GetIMPORTE_UNIDADValue: Currency; procedure SetIMPORTE_UNIDADValue(const aValue: Currency); function GetIMPORTE_UNIDADIsNull: Boolean; @@ -703,6 +709,8 @@ type property CONCEPTOIsNull: Boolean read GetCONCEPTOIsNull write SetCONCEPTOIsNull; property CANTIDAD: Integer read GetCANTIDADValue write SetCANTIDADValue; property CANTIDADIsNull: Boolean read GetCANTIDADIsNull write SetCANTIDADIsNull; + property UNIDAD_MEDIDA: String read GetUNIDAD_MEDIDAValue write SetUNIDAD_MEDIDAValue; + property UNIDAD_MEDIDAIsNull: Boolean read GetUNIDAD_MEDIDAIsNull write SetUNIDAD_MEDIDAIsNull; property IMPORTE_UNIDAD: Currency read GetIMPORTE_UNIDADValue write SetIMPORTE_UNIDADValue; property IMPORTE_UNIDADIsNull: Boolean read GetIMPORTE_UNIDADIsNull write SetIMPORTE_UNIDADIsNull; property DESCUENTO: Float read GetDESCUENTOValue write SetDESCUENTOValue; @@ -752,6 +760,10 @@ type procedure SetCANTIDADValue(const aValue: Integer); virtual; function GetCANTIDADIsNull: Boolean; virtual; procedure SetCANTIDADIsNull(const aValue: Boolean); virtual; + function GetUNIDAD_MEDIDAValue: String; virtual; + procedure SetUNIDAD_MEDIDAValue(const aValue: String); virtual; + function GetUNIDAD_MEDIDAIsNull: Boolean; virtual; + procedure SetUNIDAD_MEDIDAIsNull(const aValue: Boolean); virtual; function GetIMPORTE_UNIDADValue: Currency; virtual; procedure SetIMPORTE_UNIDADValue(const aValue: Currency); virtual; function GetIMPORTE_UNIDADIsNull: Boolean; virtual; @@ -802,6 +814,8 @@ type property CONCEPTOIsNull: Boolean read GetCONCEPTOIsNull write SetCONCEPTOIsNull; property CANTIDAD: Integer read GetCANTIDADValue write SetCANTIDADValue; property CANTIDADIsNull: Boolean read GetCANTIDADIsNull write SetCANTIDADIsNull; + property UNIDAD_MEDIDA: String read GetUNIDAD_MEDIDAValue write SetUNIDAD_MEDIDAValue; + property UNIDAD_MEDIDAIsNull: Boolean read GetUNIDAD_MEDIDAIsNull write SetUNIDAD_MEDIDAIsNull; property IMPORTE_UNIDAD: Currency read GetIMPORTE_UNIDADValue write SetIMPORTE_UNIDADValue; property IMPORTE_UNIDADIsNull: Boolean read GetIMPORTE_UNIDADIsNull write SetIMPORTE_UNIDADIsNull; property DESCUENTO: Float read GetDESCUENTOValue write SetDESCUENTOValue; @@ -1811,6 +1825,27 @@ begin DataTable.Fields[idx_AlbaranesCliente_DetallesCANTIDAD].AsVariant := Null; end; +function TAlbaranesCliente_DetallesDataTableRules.GetUNIDAD_MEDIDAValue: String; +begin + result := DataTable.Fields[idx_AlbaranesCliente_DetallesUNIDAD_MEDIDA].AsString; +end; + +procedure TAlbaranesCliente_DetallesDataTableRules.SetUNIDAD_MEDIDAValue(const aValue: String); +begin + DataTable.Fields[idx_AlbaranesCliente_DetallesUNIDAD_MEDIDA].AsString := aValue; +end; + +function TAlbaranesCliente_DetallesDataTableRules.GetUNIDAD_MEDIDAIsNull: boolean; +begin + result := DataTable.Fields[idx_AlbaranesCliente_DetallesUNIDAD_MEDIDA].IsNull; +end; + +procedure TAlbaranesCliente_DetallesDataTableRules.SetUNIDAD_MEDIDAIsNull(const aValue: Boolean); +begin + if aValue then + DataTable.Fields[idx_AlbaranesCliente_DetallesUNIDAD_MEDIDA].AsVariant := Null; +end; + function TAlbaranesCliente_DetallesDataTableRules.GetIMPORTE_UNIDADValue: Currency; begin result := DataTable.Fields[idx_AlbaranesCliente_DetallesIMPORTE_UNIDAD].AsCurrency; diff --git a/Source/Modulos/Albaranes de cliente/Model/schAlbaranesClienteServer_Intf.pas b/Source/Modulos/Albaranes de cliente/Model/schAlbaranesClienteServer_Intf.pas index 92752756..613c38af 100644 --- a/Source/Modulos/Albaranes de cliente/Model/schAlbaranesClienteServer_Intf.pas +++ b/Source/Modulos/Albaranes de cliente/Model/schAlbaranesClienteServer_Intf.pas @@ -9,13 +9,13 @@ const { Delta rules ids Feel free to change them to something more human readable but make sure they are unique in the context of your application } - RID_AlbaranesClienteDelta = '{A0E14879-92D0-49C8-A6D1-3A73C272869D}'; - RID_AlbaranesCliente_DetallesDelta = '{9E3B92BA-F5F8-42DB-BC6F-E85CA27897BF}'; + RID_AlbaranesClienteDelta = '{65D47153-FD9F-44D6-8200-78DC3F9417AC}'; + RID_AlbaranesCliente_DetallesDelta = '{3FF81C35-8B1C-4F7D-95EA-8F11EF184F45}'; type { IAlbaranesClienteDelta } IAlbaranesClienteDelta = interface(IAlbaranesCliente) - ['{A0E14879-92D0-49C8-A6D1-3A73C272869D}'] + ['{65D47153-FD9F-44D6-8200-78DC3F9417AC}'] { Property getters and setters } function GetOldIDValue : Integer; function GetOldID_EMPRESAValue : Integer; @@ -507,7 +507,7 @@ type { IAlbaranesCliente_DetallesDelta } IAlbaranesCliente_DetallesDelta = interface(IAlbaranesCliente_Detalles) - ['{9E3B92BA-F5F8-42DB-BC6F-E85CA27897BF}'] + ['{3FF81C35-8B1C-4F7D-95EA-8F11EF184F45}'] { Property getters and setters } function GetOldIDValue : Integer; function GetOldID_ALBARANValue : Integer; @@ -515,6 +515,7 @@ type function GetOldTIPO_DETALLEValue : String; function GetOldCONCEPTOValue : String; function GetOldCANTIDADValue : Integer; + function GetOldUNIDAD_MEDIDAValue : String; function GetOldIMPORTE_UNIDADValue : Currency; function GetOldDESCUENTOValue : Float; function GetOldIMPORTE_PORTEValue : Currency; @@ -532,6 +533,7 @@ type property OldTIPO_DETALLE : String read GetOldTIPO_DETALLEValue; property OldCONCEPTO : String read GetOldCONCEPTOValue; property OldCANTIDAD : Integer read GetOldCANTIDADValue; + property OldUNIDAD_MEDIDA : String read GetOldUNIDAD_MEDIDAValue; property OldIMPORTE_UNIDAD : Currency read GetOldIMPORTE_UNIDADValue; property OldDESCUENTO : Float read GetOldDESCUENTOValue; property OldIMPORTE_PORTE : Currency read GetOldIMPORTE_PORTEValue; @@ -584,6 +586,12 @@ type function GetOldCANTIDADIsNull: Boolean; virtual; procedure SetCANTIDADValue(const aValue: Integer); virtual; procedure SetCANTIDADIsNull(const aValue: Boolean); virtual; + function GetUNIDAD_MEDIDAValue: String; virtual; + function GetUNIDAD_MEDIDAIsNull: Boolean; virtual; + function GetOldUNIDAD_MEDIDAValue: String; virtual; + function GetOldUNIDAD_MEDIDAIsNull: Boolean; virtual; + procedure SetUNIDAD_MEDIDAValue(const aValue: String); virtual; + procedure SetUNIDAD_MEDIDAIsNull(const aValue: Boolean); virtual; function GetIMPORTE_UNIDADValue: Currency; virtual; function GetIMPORTE_UNIDADIsNull: Boolean; virtual; function GetOldIMPORTE_UNIDADValue: Currency; virtual; @@ -664,6 +672,10 @@ type property CANTIDADIsNull : Boolean read GetCANTIDADIsNull write SetCANTIDADIsNull; property OldCANTIDAD : Integer read GetOldCANTIDADValue; property OldCANTIDADIsNull : Boolean read GetOldCANTIDADIsNull; + property UNIDAD_MEDIDA : String read GetUNIDAD_MEDIDAValue write SetUNIDAD_MEDIDAValue; + property UNIDAD_MEDIDAIsNull : Boolean read GetUNIDAD_MEDIDAIsNull write SetUNIDAD_MEDIDAIsNull; + property OldUNIDAD_MEDIDA : String read GetOldUNIDAD_MEDIDAValue; + property OldUNIDAD_MEDIDAIsNull : Boolean read GetOldUNIDAD_MEDIDAIsNull; property IMPORTE_UNIDAD : Currency read GetIMPORTE_UNIDADValue write SetIMPORTE_UNIDADValue; property IMPORTE_UNIDADIsNull : Boolean read GetIMPORTE_UNIDADIsNull write SetIMPORTE_UNIDADIsNull; property OldIMPORTE_UNIDAD : Currency read GetOldIMPORTE_UNIDADValue; @@ -2144,6 +2156,37 @@ begin BusinessProcessor.CurrentChange.NewValueByName[fld_AlbaranesCliente_DetallesCANTIDAD] := Null; end; +function TAlbaranesCliente_DetallesBusinessProcessorRules.GetUNIDAD_MEDIDAValue: String; +begin + result := BusinessProcessor.CurrentChange.NewValueByName[fld_AlbaranesCliente_DetallesUNIDAD_MEDIDA]; +end; + +function TAlbaranesCliente_DetallesBusinessProcessorRules.GetUNIDAD_MEDIDAIsNull: Boolean; +begin + result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_AlbaranesCliente_DetallesUNIDAD_MEDIDA]); +end; + +function TAlbaranesCliente_DetallesBusinessProcessorRules.GetOldUNIDAD_MEDIDAValue: String; +begin + result := BusinessProcessor.CurrentChange.OldValueByName[fld_AlbaranesCliente_DetallesUNIDAD_MEDIDA]; +end; + +function TAlbaranesCliente_DetallesBusinessProcessorRules.GetOldUNIDAD_MEDIDAIsNull: Boolean; +begin + result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_AlbaranesCliente_DetallesUNIDAD_MEDIDA]); +end; + +procedure TAlbaranesCliente_DetallesBusinessProcessorRules.SetUNIDAD_MEDIDAValue(const aValue: String); +begin + BusinessProcessor.CurrentChange.NewValueByName[fld_AlbaranesCliente_DetallesUNIDAD_MEDIDA] := aValue; +end; + +procedure TAlbaranesCliente_DetallesBusinessProcessorRules.SetUNIDAD_MEDIDAIsNull(const aValue: Boolean); +begin + if aValue then + BusinessProcessor.CurrentChange.NewValueByName[fld_AlbaranesCliente_DetallesUNIDAD_MEDIDA] := Null; +end; + function TAlbaranesCliente_DetallesBusinessProcessorRules.GetIMPORTE_UNIDADValue: Currency; begin result := BusinessProcessor.CurrentChange.NewValueByName[fld_AlbaranesCliente_DetallesIMPORTE_UNIDAD]; diff --git a/Source/Modulos/Albaranes de cliente/Servidor/srvAlbaranesCliente_Impl.dfm b/Source/Modulos/Albaranes de cliente/Servidor/srvAlbaranesCliente_Impl.dfm index 8698b93b..99cd388a 100644 --- a/Source/Modulos/Albaranes de cliente/Servidor/srvAlbaranesCliente_Impl.dfm +++ b/Source/Modulos/Albaranes de cliente/Servidor/srvAlbaranesCliente_Impl.dfm @@ -411,16 +411,16 @@ object srvAlbaranesCliente: TsrvAlbaranesCliente 'LLES.ID_ALBARAN,'#10' ALBARANES_CLIENTE_DETALLES.POSICION, ALBARA' + 'NES_CLIENTE_DETALLES.TIPO_DETALLE,'#10' ALBARANES_CLIENTE_DETALLE' + 'S.CONCEPTO, ALBARANES_CLIENTE_DETALLES.CANTIDAD,'#10' ALBARANES_C' + - 'LIENTE_DETALLES.IMPORTE_UNIDAD, ALBARANES_CLIENTE_DETALLES.DESCU' + - 'ENTO,'#10' ALBARANES_CLIENTE_DETALLES.IMPORTE_PORTE, ALBARANES_CL' + - 'IENTE_DETALLES.IMPORTE_TOTAL,'#10' ALBARANES_CLIENTE_DETALLES.VIS' + - 'IBLE,'#10' ALBARANES_CLIENTE_DETALLES.ID_ARTICULO, ARTICULOS.REFE' + - 'RENCIA,'#10' '#39#39' as REFERENCIA_PROVEEDOR, /*Es necesario para que ' + - 'no pete detalles porque tanto en la rama de cliente como de prov' + - 'eedor es comun*/'#10' ALBARANES_CLIENTE_DETALLES.ID_PEDIDO'#10#10'FROM ' + - 'ALBARANES_CLIENTE_DETALLES'#10'LEFT JOIN ARTICULOS ON ALBARANES_CLIE' + - 'NTE_DETALLES.ID_ARTICULO = ARTICULOS.ID'#10'where {where}'#10'ORDER BY P' + - 'OSICION;'#10#10 + 'LIENTE_DETALLES.UNIDAD_MEDIDA, ALBARANES_CLIENTE_DETALLES.IMPORT' + + 'E_UNIDAD,'#10' ALBARANES_CLIENTE_DETALLES.DESCUENTO, ALBARANES_CL' + + 'IENTE_DETALLES.IMPORTE_PORTE,'#10' ALBARANES_CLIENTE_DETALLES.IMP' + + 'ORTE_TOTAL,'#10' ALBARANES_CLIENTE_DETALLES.VISIBLE,'#10' ALBARANE' + + 'S_CLIENTE_DETALLES.ID_ARTICULO, ARTICULOS.REFERENCIA,'#10' '#39#39' as ' + + 'REFERENCIA_PROVEEDOR, /*Es necesario para que no pete detalles p' + + 'orque tanto en la rama de cliente como de proveedor es comun*/'#10' ' + + ' ALBARANES_CLIENTE_DETALLES.ID_PEDIDO'#10#10#10'FROM ALBARANES_CLIENTE' + + '_DETALLES'#10'LEFT JOIN ARTICULOS ON ALBARANES_CLIENTE_DETALLES.ID_A' + + 'RTICULO = ARTICULOS.ID'#10'where {where}'#10'ORDER BY POSICION;'#10#10 StatementType = stSQL ColumnMappings = < item @@ -482,6 +482,10 @@ object srvAlbaranesCliente: TsrvAlbaranesCliente item DatasetField = 'ID_PEDIDO' TableField = 'ID_PEDIDO' + end + item + DatasetField = 'UNIDAD_MEDIDA' + TableField = 'UNIDAD_MEDIDA' end> end> Name = 'AlbaranesCliente_Detalles' @@ -520,6 +524,11 @@ object srvAlbaranesCliente: TsrvAlbaranesCliente DataType = datInteger DictionaryEntry = 'CANTIDAD' end + item + Name = 'UNIDAD_MEDIDA' + DataType = datString + Size = 255 + end item Name = 'IMPORTE_UNIDAD' DataType = datCurrency @@ -950,6 +959,10 @@ object srvAlbaranesCliente: TsrvAlbaranesCliente Name = 'CANTIDAD' Value = '' end + item + Name = 'UNIDAD_MEDIDA' + Value = '' + end item Name = 'IMPORTE_UNIDAD' Value = '' @@ -985,12 +998,12 @@ object srvAlbaranesCliente: TsrvAlbaranesCliente TargetTable = 'ALBARANES_CLIENTE_DETALLES' SQL = 'INSERT'#10' INTO ALBARANES_CLIENTE_DETALLES'#10' (ID, ID_ALBARAN, PO' + - 'SICION, TIPO_DETALLE, CONCEPTO, CANTIDAD,'#10' IMPORTE_UNIDAD, D' + - 'ESCUENTO, IMPORTE_PORTE, IMPORTE_TOTAL, '#10' VISIBLE, ID_ARTICU' + - 'LO, ID_PEDIDO)'#10' VALUES'#10' (:ID, :ID_ALBARAN, :POSICION, :TIPO_' + - 'DETALLE, :CONCEPTO, :CANTIDAD,'#10' :IMPORTE_UNIDAD, :DESCUENTO,' + - ' :IMPORTE_PORTE, :IMPORTE_TOTAL, '#10' :VISIBLE, :ID_ARTICULO, :' + - 'ID_PEDIDO)'#10 + 'SICION, TIPO_DETALLE, CONCEPTO, CANTIDAD, UNIDAD_MEDIDA,'#10' IM' + + 'PORTE_UNIDAD, DESCUENTO, IMPORTE_PORTE, IMPORTE_TOTAL, '#10' VIS' + + 'IBLE, ID_ARTICULO, ID_PEDIDO)'#10' VALUES'#10' (:ID, :ID_ALBARAN, :P' + + 'OSICION, :TIPO_DETALLE, :CONCEPTO, :CANTIDAD, :UNIDAD_MEDIDA,'#10' ' + + ' :IMPORTE_UNIDAD, :DESCUENTO, :IMPORTE_PORTE, :IMPORTE_TOTAL, ' + + #10' :VISIBLE, :ID_ARTICULO, :ID_PEDIDO)'#10 StatementType = stSQL ColumnMappings = <> end> @@ -1042,6 +1055,10 @@ object srvAlbaranesCliente: TsrvAlbaranesCliente Name = 'CANTIDAD' Value = '' end + item + Name = 'UNIDAD_MEDIDA' + Value = '' + end item Name = 'IMPORTE_UNIDAD' Value = '' @@ -1083,11 +1100,11 @@ object srvAlbaranesCliente: TsrvAlbaranesCliente 'UPDATE ALBARANES_CLIENTE_DETALLES'#10' SET '#10' ID = :ID,'#10' ID_AL' + 'BARAN = :ID_ALBARAN, '#10' POSICION = :POSICION, '#10' TIPO_DETALL' + 'E = :TIPO_DETALLE, '#10' CONCEPTO = :CONCEPTO, '#10' CANTIDAD = :C' + - 'ANTIDAD, '#10' IMPORTE_UNIDAD = :IMPORTE_UNIDAD, '#10' DESCUENTO =' + - ' :DESCUENTO, '#10' IMPORTE_PORTE = :IMPORTE_PORTE, '#10' IMPORTE_T' + - 'OTAL = :IMPORTE_TOTAL, '#10' VISIBLE = :VISIBLE, '#10' ID_ARTICULO' + - ' = :ID_ARTICULO,'#10' ID_PEDIDO = :ID_PEDIDO'#10' WHERE'#10' (ID = :O' + - 'LD_ID)'#10 + 'ANTIDAD, '#10' UNIDAD_MEDIDA = :UNIDAD_MEDIDA,'#10' IMPORTE_UNIDAD' + + ' = :IMPORTE_UNIDAD, '#10' DESCUENTO = :DESCUENTO, '#10' IMPORTE_PO' + + 'RTE = :IMPORTE_PORTE, '#10' IMPORTE_TOTAL = :IMPORTE_TOTAL, '#10' ' + + 'VISIBLE = :VISIBLE, '#10' ID_ARTICULO = :ID_ARTICULO,'#10' ID_PEDI' + + 'DO = :ID_PEDIDO'#10' WHERE'#10' (ID = :OLD_ID)'#10 StatementType = stSQL ColumnMappings = <> end> diff --git a/Source/Modulos/Albaranes de proveedor/Data/AlbaranesProveedor_data.dproj b/Source/Modulos/Albaranes de proveedor/Data/AlbaranesProveedor_data.dproj index 4bc4a55e..7cc19c99 100644 --- a/Source/Modulos/Albaranes de proveedor/Data/AlbaranesProveedor_data.dproj +++ b/Source/Modulos/Albaranes de proveedor/Data/AlbaranesProveedor_data.dproj @@ -41,63 +41,22 @@ 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
 -