From 9c78b4b8490b9d16c7d0c1f0114dc6461ecc1063 Mon Sep 17 00:00:00 2001 From: roberto Date: Tue, 21 May 2019 14:55:29 +0000 Subject: [PATCH] Arreglo detalles de referencia en pedidos proveedor al enviar por correo git-svn-id: https://192.168.0.254/svn/Proyectos.Acana_FactuGES2/trunk@677 f4e31baf-9722-1c47-927c-6f952f962d4b --- Source/Cliente/FactuGES.rc | 8 +- Source/Cliente/FactuGES.res | Bin 172156 -> 171984 bytes .../uPedidosProveedorController.pas | 2 +- .../Data/uDataModulePedidosProveedor.dfm | 83 ++++++++++++++++ .../Model/schPedidosProveedorClient_Intf.pas | 53 +++++++++-- .../Model/schPedidosProveedorServer_Intf.pas | 51 +++++++++- .../Servidor/srvPedidosProveedor_Impl.dfm | 9 ++ .../Views/uEditorPedidoProveedor.dfm | 90 +++++++++--------- .../Views/uEditorPedidoProveedor.pas | 2 + .../Views/uViewDireccionEntregaPedidoProv.pas | 5 +- Source/Servidor/FactuGES_Server.dpr | 6 +- Source/Servidor/FactuGES_Server.dproj | 2 + Source/Servidor/FactuGES_Server.rc | 10 +- Source/Servidor/FactuGES_Server.res | Bin 23552 -> 23344 bytes 14 files changed, 249 insertions(+), 72 deletions(-) diff --git a/Source/Cliente/FactuGES.rc b/Source/Cliente/FactuGES.rc index f8a70cc0..9bd57269 100644 --- a/Source/Cliente/FactuGES.rc +++ b/Source/Cliente/FactuGES.rc @@ -1,7 +1,7 @@ MAINICON ICON "C:\Codigo Acana\Resources\Iconos\Factuges.ico" 1 VERSIONINFO -FILEVERSION 2,9,1,0 -PRODUCTVERSION 2,9,1,0 +FILEVERSION 2,9,2,0 +PRODUCTVERSION 2,9,2,0 FILEFLAGSMASK 0x3FL FILEFLAGS 0x00L FILEOS 0x40004L @@ -13,10 +13,10 @@ BEGIN BLOCK "0C0A04E4" BEGIN VALUE "CompanyName", "Rodax Software S.L.\0" - VALUE "FileVersion", "2.9.1.0\0" + VALUE "FileVersion", "2.9.2.0\0" VALUE "InternalName", "FactuGES\0" VALUE "ProductName", "FactuGES\0" - VALUE "ProductVersion", "2.9.1.0\0" + VALUE "ProductVersion", "2.9.2.0\0" END END BLOCK "VarFileInfo" diff --git a/Source/Cliente/FactuGES.res b/Source/Cliente/FactuGES.res index 156f7d0fa57d43c809d273e9e91823d0bb5eb721..d2317290cb15189499d94d2ce209b58e80530456 100644 GIT binary patch delta 284 zcmY+9u?m7v6o$Wh(^8WVS{#K48XA0oK$;vI+AC=2Eplk^0fIYeYeQpujg3A-b3+dh z)D=bPhr{9HKj(1%&)q3*PI3@eX=MA*b6gq;Ts#j1K0CAQ4H+Qu{mOfEq0>-mgFz5f z-q`}PC4H?+7}nkZdM%AvVG%`@Ihlh^99NVs!C}3w7mv^ilR>W142=e41!DdHmD>;tEIX)HG@NcfRLrFYZfmAo6~5nG^X zG>rCHg|(7-jB8-wc}B}@sFchjlWA3aztlEiy=08 Params = <> StreamingOptions = [soDisableEventsWhileStreaming] diff --git a/Source/Modulos/Pedidos a proveedor/Model/schPedidosProveedorClient_Intf.pas b/Source/Modulos/Pedidos a proveedor/Model/schPedidosProveedorClient_Intf.pas index 6d72d09d..c9dfde47 100644 --- a/Source/Modulos/Pedidos a proveedor/Model/schPedidosProveedorClient_Intf.pas +++ b/Source/Modulos/Pedidos a proveedor/Model/schPedidosProveedorClient_Intf.pas @@ -3,14 +3,14 @@ unit schPedidosProveedorClient_Intf; interface uses - Classes, DB, schBase_Intf, SysUtils, uROClasses, uDAInterfaces, uDADataTable, FmtBCD, uROXMLIntf; + Classes, DB, 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 = '{0FA0E444-2C09-4A09-AF1B-B0C792E6C02A}'; - RID_PedidosProveedor_Detalles = '{772E5829-8C5A-4EF5-8411-23B614592C6F}'; + RID_PedidosProveedor = '{41528B44-11F2-4BC5-8A9B-25C0AA4AEC6C}'; + RID_PedidosProveedor_Detalles = '{8979C9BF-ACF0-42F3-A52F-F9086B95AA6B}'; { Data table names } nme_PedidosProveedor = 'PedidosProveedor'; @@ -57,6 +57,7 @@ const fld_PedidosProveedorTIENDA = 'TIENDA'; fld_PedidosProveedorID_VENDEDOR = 'ID_VENDEDOR'; fld_PedidosProveedorVENDEDOR = 'VENDEDOR'; + fld_PedidosProveedorREF_VENDEDOR = 'REF_VENDEDOR'; fld_PedidosProveedorDESCRIPCION_GENERAL = 'DESCRIPCION_GENERAL'; fld_PedidosProveedorID_DIRECCION_CLIENTE = 'ID_DIRECCION_CLIENTE'; @@ -101,8 +102,9 @@ const idx_PedidosProveedorTIENDA = 37; idx_PedidosProveedorID_VENDEDOR = 38; idx_PedidosProveedorVENDEDOR = 39; - idx_PedidosProveedorDESCRIPCION_GENERAL = 40; - idx_PedidosProveedorID_DIRECCION_CLIENTE = 41; + idx_PedidosProveedorREF_VENDEDOR = 40; + idx_PedidosProveedorDESCRIPCION_GENERAL = 41; + idx_PedidosProveedorID_DIRECCION_CLIENTE = 42; { PedidosProveedor_Detalles fields } fld_PedidosProveedor_DetallesID = 'ID'; @@ -135,7 +137,7 @@ const type { IPedidosProveedor } IPedidosProveedor = interface(IDAStronglyTypedDataTable) - ['{E2601C1F-FDAF-4BEE-82BF-1F8B1A14983A}'] + ['{37B80D76-E710-4495-89B1-A118B885129A}'] { Property getters and setters } function GetIDValue: Integer; procedure SetIDValue(const aValue: Integer); @@ -295,6 +297,10 @@ type procedure SetVENDEDORValue(const aValue: String); function GetVENDEDORIsNull: Boolean; procedure SetVENDEDORIsNull(const aValue: Boolean); + function GetREF_VENDEDORValue: String; + procedure SetREF_VENDEDORValue(const aValue: String); + function GetREF_VENDEDORIsNull: Boolean; + procedure SetREF_VENDEDORIsNull(const aValue: Boolean); function GetDESCRIPCION_GENERALValue: String; procedure SetDESCRIPCION_GENERALValue(const aValue: String); function GetDESCRIPCION_GENERALIsNull: Boolean; @@ -386,6 +392,8 @@ type property ID_VENDEDORIsNull: Boolean read GetID_VENDEDORIsNull write SetID_VENDEDORIsNull; property VENDEDOR: String read GetVENDEDORValue write SetVENDEDORValue; property VENDEDORIsNull: Boolean read GetVENDEDORIsNull write SetVENDEDORIsNull; + property REF_VENDEDOR: String read GetREF_VENDEDORValue write SetREF_VENDEDORValue; + property REF_VENDEDORIsNull: Boolean read GetREF_VENDEDORIsNull write SetREF_VENDEDORIsNull; property DESCRIPCION_GENERAL: String read GetDESCRIPCION_GENERALValue write SetDESCRIPCION_GENERALValue; property DESCRIPCION_GENERALIsNull: Boolean read GetDESCRIPCION_GENERALIsNull write SetDESCRIPCION_GENERALIsNull; property ID_DIRECCION_CLIENTE: Integer read GetID_DIRECCION_CLIENTEValue write SetID_DIRECCION_CLIENTEValue; @@ -393,7 +401,7 @@ type end; { TPedidosProveedorDataTableRules } - TPedidosProveedorDataTableRules = class(TIntfObjectDADataTableRules, IPedidosProveedor) + TPedidosProveedorDataTableRules = class(TDADataTableRules, IPedidosProveedor) private f_OBSERVACIONES: IROStrings; f_INCIDENCIAS: IROStrings; @@ -559,6 +567,10 @@ type procedure SetVENDEDORValue(const aValue: String); virtual; function GetVENDEDORIsNull: Boolean; virtual; procedure SetVENDEDORIsNull(const aValue: Boolean); virtual; + function GetREF_VENDEDORValue: String; virtual; + procedure SetREF_VENDEDORValue(const aValue: String); virtual; + function GetREF_VENDEDORIsNull: Boolean; virtual; + procedure SetREF_VENDEDORIsNull(const aValue: Boolean); virtual; function GetDESCRIPCION_GENERALValue: String; virtual; procedure SetDESCRIPCION_GENERALValue(const aValue: String); virtual; function GetDESCRIPCION_GENERALIsNull: Boolean; virtual; @@ -649,6 +661,8 @@ type property ID_VENDEDORIsNull: Boolean read GetID_VENDEDORIsNull write SetID_VENDEDORIsNull; property VENDEDOR: String read GetVENDEDORValue write SetVENDEDORValue; property VENDEDORIsNull: Boolean read GetVENDEDORIsNull write SetVENDEDORIsNull; + property REF_VENDEDOR: String read GetREF_VENDEDORValue write SetREF_VENDEDORValue; + property REF_VENDEDORIsNull: Boolean read GetREF_VENDEDORIsNull write SetREF_VENDEDORIsNull; property DESCRIPCION_GENERAL: String read GetDESCRIPCION_GENERALValue write SetDESCRIPCION_GENERALValue; property DESCRIPCION_GENERALIsNull: Boolean read GetDESCRIPCION_GENERALIsNull write SetDESCRIPCION_GENERALIsNull; property ID_DIRECCION_CLIENTE: Integer read GetID_DIRECCION_CLIENTEValue write SetID_DIRECCION_CLIENTEValue; @@ -662,7 +676,7 @@ type { IPedidosProveedor_Detalles } IPedidosProveedor_Detalles = interface(IDAStronglyTypedDataTable) - ['{54914245-300B-4B3A-B1EA-5E77F73F3A8E}'] + ['{51BAA98D-215D-4D3D-86CF-2AF8396CD9E6}'] { Property getters and setters } function GetIDValue: Integer; procedure SetIDValue(const aValue: Integer); @@ -742,7 +756,7 @@ type end; { TPedidosProveedor_DetallesDataTableRules } - TPedidosProveedor_DetallesDataTableRules = class(TIntfObjectDADataTableRules, IPedidosProveedor_Detalles) + TPedidosProveedor_DetallesDataTableRules = class(TDADataTableRules, IPedidosProveedor_Detalles) private protected { Property getters and setters } @@ -1694,6 +1708,27 @@ begin DataTable.Fields[idx_PedidosProveedorVENDEDOR].AsVariant := Null; end; +function TPedidosProveedorDataTableRules.GetREF_VENDEDORValue: String; +begin + result := DataTable.Fields[idx_PedidosProveedorREF_VENDEDOR].AsString; +end; + +procedure TPedidosProveedorDataTableRules.SetREF_VENDEDORValue(const aValue: String); +begin + DataTable.Fields[idx_PedidosProveedorREF_VENDEDOR].AsString := aValue; +end; + +function TPedidosProveedorDataTableRules.GetREF_VENDEDORIsNull: boolean; +begin + result := DataTable.Fields[idx_PedidosProveedorREF_VENDEDOR].IsNull; +end; + +procedure TPedidosProveedorDataTableRules.SetREF_VENDEDORIsNull(const aValue: Boolean); +begin + if aValue then + DataTable.Fields[idx_PedidosProveedorREF_VENDEDOR].AsVariant := Null; +end; + function TPedidosProveedorDataTableRules.GetDESCRIPCION_GENERALValue: String; begin result := DataTable.Fields[idx_PedidosProveedorDESCRIPCION_GENERAL].AsString; diff --git a/Source/Modulos/Pedidos a proveedor/Model/schPedidosProveedorServer_Intf.pas b/Source/Modulos/Pedidos a proveedor/Model/schPedidosProveedorServer_Intf.pas index 11097188..8565f0a5 100644 --- a/Source/Modulos/Pedidos a proveedor/Model/schPedidosProveedorServer_Intf.pas +++ b/Source/Modulos/Pedidos a proveedor/Model/schPedidosProveedorServer_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_PedidosProveedorDelta = '{35F5A87E-FE86-4633-951A-CC8FDF16EA54}'; - RID_PedidosProveedor_DetallesDelta = '{606BD1BC-BDFD-4B41-81DD-963DF48A7EBB}'; + RID_PedidosProveedorDelta = '{9C00B86B-DEB7-412E-A5DE-D7706602F6DF}'; + RID_PedidosProveedor_DetallesDelta = '{401F54DA-D0A1-46CC-9553-06252660F276}'; type { IPedidosProveedorDelta } IPedidosProveedorDelta = interface(IPedidosProveedor) - ['{35F5A87E-FE86-4633-951A-CC8FDF16EA54}'] + ['{9C00B86B-DEB7-412E-A5DE-D7706602F6DF}'] { Property getters and setters } function GetOldIDValue : Integer; function GetOldID_EMPRESAValue : Integer; @@ -57,6 +57,7 @@ type function GetOldTIENDAValue : String; function GetOldID_VENDEDORValue : Integer; function GetOldVENDEDORValue : String; + function GetOldREF_VENDEDORValue : String; function GetOldDESCRIPCION_GENERALValue : String; function GetOldID_DIRECCION_CLIENTEValue : Integer; @@ -101,6 +102,7 @@ type property OldTIENDA : String read GetOldTIENDAValue; property OldID_VENDEDOR : Integer read GetOldID_VENDEDORValue; property OldVENDEDOR : String read GetOldVENDEDORValue; + property OldREF_VENDEDOR : String read GetOldREF_VENDEDORValue; property OldDESCRIPCION_GENERAL : String read GetOldDESCRIPCION_GENERALValue; property OldID_DIRECCION_CLIENTE : Integer read GetOldID_DIRECCION_CLIENTEValue; end; @@ -352,6 +354,12 @@ type function GetOldVENDEDORIsNull: Boolean; virtual; procedure SetVENDEDORValue(const aValue: String); virtual; procedure SetVENDEDORIsNull(const aValue: Boolean); virtual; + function GetREF_VENDEDORValue: String; virtual; + function GetREF_VENDEDORIsNull: Boolean; virtual; + function GetOldREF_VENDEDORValue: String; virtual; + function GetOldREF_VENDEDORIsNull: Boolean; virtual; + procedure SetREF_VENDEDORValue(const aValue: String); virtual; + procedure SetREF_VENDEDORIsNull(const aValue: Boolean); virtual; function GetDESCRIPCION_GENERALValue: String; virtual; function GetDESCRIPCION_GENERALIsNull: Boolean; virtual; function GetOldDESCRIPCION_GENERALValue: String; virtual; @@ -526,6 +534,10 @@ type property VENDEDORIsNull : Boolean read GetVENDEDORIsNull write SetVENDEDORIsNull; property OldVENDEDOR : String read GetOldVENDEDORValue; property OldVENDEDORIsNull : Boolean read GetOldVENDEDORIsNull; + property REF_VENDEDOR : String read GetREF_VENDEDORValue write SetREF_VENDEDORValue; + property REF_VENDEDORIsNull : Boolean read GetREF_VENDEDORIsNull write SetREF_VENDEDORIsNull; + property OldREF_VENDEDOR : String read GetOldREF_VENDEDORValue; + property OldREF_VENDEDORIsNull : Boolean read GetOldREF_VENDEDORIsNull; property DESCRIPCION_GENERAL : String read GetDESCRIPCION_GENERALValue write SetDESCRIPCION_GENERALValue; property DESCRIPCION_GENERALIsNull : Boolean read GetDESCRIPCION_GENERALIsNull write SetDESCRIPCION_GENERALIsNull; property OldDESCRIPCION_GENERAL : String read GetOldDESCRIPCION_GENERALValue; @@ -543,7 +555,7 @@ type { IPedidosProveedor_DetallesDelta } IPedidosProveedor_DetallesDelta = interface(IPedidosProveedor_Detalles) - ['{606BD1BC-BDFD-4B41-81DD-963DF48A7EBB}'] + ['{401F54DA-D0A1-46CC-9553-06252660F276}'] { Property getters and setters } function GetOldIDValue : Integer; function GetOldID_PEDIDOValue : Integer; @@ -1977,6 +1989,37 @@ begin BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosProveedorVENDEDOR] := Null; end; +function TPedidosProveedorBusinessProcessorRules.GetREF_VENDEDORValue: String; +begin + result := BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosProveedorREF_VENDEDOR]; +end; + +function TPedidosProveedorBusinessProcessorRules.GetREF_VENDEDORIsNull: Boolean; +begin + result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosProveedorREF_VENDEDOR]); +end; + +function TPedidosProveedorBusinessProcessorRules.GetOldREF_VENDEDORValue: String; +begin + result := BusinessProcessor.CurrentChange.OldValueByName[fld_PedidosProveedorREF_VENDEDOR]; +end; + +function TPedidosProveedorBusinessProcessorRules.GetOldREF_VENDEDORIsNull: Boolean; +begin + result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_PedidosProveedorREF_VENDEDOR]); +end; + +procedure TPedidosProveedorBusinessProcessorRules.SetREF_VENDEDORValue(const aValue: String); +begin + BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosProveedorREF_VENDEDOR] := aValue; +end; + +procedure TPedidosProveedorBusinessProcessorRules.SetREF_VENDEDORIsNull(const aValue: Boolean); +begin + if aValue then + BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosProveedorREF_VENDEDOR] := Null; +end; + function TPedidosProveedorBusinessProcessorRules.GetDESCRIPCION_GENERALValue: String; begin result := BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosProveedorDESCRIPCION_GENERAL]; diff --git a/Source/Modulos/Pedidos a proveedor/Servidor/srvPedidosProveedor_Impl.dfm b/Source/Modulos/Pedidos a proveedor/Servidor/srvPedidosProveedor_Impl.dfm index 9a1aac76..86cd899e 100644 --- a/Source/Modulos/Pedidos a proveedor/Servidor/srvPedidosProveedor_Impl.dfm +++ b/Source/Modulos/Pedidos a proveedor/Servidor/srvPedidosProveedor_Impl.dfm @@ -187,6 +187,10 @@ object srvPedidosProveedor: TsrvPedidosProveedor item DatasetField = 'ID_DIRECCION_CLIENTE' TableField = 'ID_DIRECCION_CLIENTE' + end + item + DatasetField = 'REF_VENDEDOR' + TableField = 'REF_VENDEDOR' end> end> Name = 'PedidosProveedor' @@ -411,6 +415,11 @@ object srvPedidosProveedor: TsrvPedidosProveedor Size = 255 DictionaryEntry = 'PedidosProveedor_VENDEDOR' end + item + Name = 'REF_VENDEDOR' + DataType = datString + Size = 255 + end item Name = 'DESCRIPCION_GENERAL' DataType = datString diff --git a/Source/Modulos/Pedidos a proveedor/Views/uEditorPedidoProveedor.dfm b/Source/Modulos/Pedidos a proveedor/Views/uEditorPedidoProveedor.dfm index 53b957e9..bfe35109 100644 --- a/Source/Modulos/Pedidos a proveedor/Views/uEditorPedidoProveedor.dfm +++ b/Source/Modulos/Pedidos a proveedor/Views/uEditorPedidoProveedor.dfm @@ -46,7 +46,7 @@ inherited fEditorPedidoProveedor: TfEditorPedidoProveedor Width = 922 ExplicitWidth = 922 inherited tbxMain: TTBXToolbar - ExplicitWidth = 634 + ExplicitWidth = 488 inherited TBXItem2: TTBXItem Visible = False end @@ -73,21 +73,21 @@ inherited fEditorPedidoProveedor: TfEditorPedidoProveedor end inherited pgPaginas: TPageControl Width = 916 - Height = 482 + Height = 491 TabOrder = 1 OnChanging = pgPaginasChanging ExplicitWidth = 916 - ExplicitHeight = 482 + ExplicitHeight = 491 inherited pagGeneral: TTabSheet ExplicitLeft = 4 ExplicitTop = 24 ExplicitWidth = 908 - ExplicitHeight = 454 + ExplicitHeight = 463 inline frViewPedidoProveedor1: TfrViewPedidoProveedor Left = 0 Top = 0 Width = 908 - Height = 454 + Height = 463 Align = alClient Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText @@ -98,19 +98,20 @@ inherited fEditorPedidoProveedor: TfEditorPedidoProveedor TabOrder = 0 ReadOnly = False ExplicitWidth = 908 - ExplicitHeight = 454 + ExplicitHeight = 463 inherited dxLayoutControl1: TdxLayoutControl Width = 908 - Height = 454 + Height = 463 ExplicitWidth = 908 - ExplicitHeight = 454 + ExplicitHeight = 463 inherited frViewProveedorPedido: TfrViewDatosYSeleccionProveedor - Left = 548 + Left = 551 Width = 357 - ExplicitLeft = 548 + ExplicitLeft = 551 ExplicitWidth = 357 inherited dxLayoutControl1: TdxLayoutControl Width = 357 + ExplicitWidth = 318 inherited edtlNombre: TcxDBTextEdit ExplicitWidth = 283 Width = 283 @@ -132,12 +133,12 @@ inherited fEditorPedidoProveedor: TfEditorPedidoProveedor Width = 283 end inherited edtCodigoPostal: TcxDBTextEdit - Left = 236 - ExplicitLeft = 236 + Left = 237 + ExplicitLeft = 237 end inherited Button3: TBitBtn - Left = 109 - ExplicitLeft = 109 + Left = 110 + ExplicitLeft = 110 end end end @@ -165,6 +166,8 @@ inherited fEditorPedidoProveedor: TfEditorPedidoProveedor inherited dxLayoutControl1: TdxLayoutControl Width = 273 Height = 166 + ExplicitWidth = 499 + ExplicitHeight = 20 inherited rdxDestino1: TRadioButton Width = 253 ExplicitWidth = 253 @@ -178,8 +181,8 @@ inherited fEditorPedidoProveedor: TfEditorPedidoProveedor Width = 238 end inherited bModificar: TBitBtn - Left = 285 - ExplicitLeft = 285 + Left = 292 + ExplicitLeft = 292 end inherited txtDireccion: TStaticText Width = 238 @@ -202,8 +205,8 @@ inherited fEditorPedidoProveedor: TfEditorPedidoProveedor Width = 20 end inherited bFormasPago: TButton - Left = 386 - ExplicitLeft = 386 + Left = 389 + ExplicitLeft = 389 end inherited edtFechaEnvio: TcxDBDateEdit ExplicitWidth = 158 @@ -214,16 +217,17 @@ inherited fEditorPedidoProveedor: TfEditorPedidoProveedor Width = 20 end inherited Button1: TButton - Left = 386 - ExplicitLeft = 386 + Left = 389 + ExplicitLeft = 389 end inherited frViewTienda1: TfrViewTienda - Left = 548 + Left = 551 Width = 357 - ExplicitLeft = 548 + ExplicitLeft = 551 ExplicitWidth = 357 inherited dxLayoutControl1: TdxLayoutControl Width = 357 + ExplicitWidth = 318 inherited cbTienda: TcxComboBox ExplicitWidth = 390 Width = 390 @@ -235,6 +239,7 @@ inherited fEditorPedidoProveedor: TfEditorPedidoProveedor ExplicitWidth = 422 inherited memObservaciones: TcxDBMemo DataBinding.DataSource = frViewPedidoProveedor1.DADataSource + ExplicitWidth = 363 Width = 422 end end @@ -256,15 +261,11 @@ inherited fEditorPedidoProveedor: TfEditorPedidoProveedor object pagContenido: TTabSheet Caption = 'Contenido' ImageIndex = 1 - ExplicitLeft = 0 - ExplicitTop = 0 - ExplicitWidth = 0 - ExplicitHeight = 0 inline frViewDetallesPedidoProveedor1: TfrViewDetallesPedidoProveedor Left = 0 Top = 0 Width = 908 - Height = 454 + Height = 463 Align = alClient BiDiMode = bdLeftToRight Font.Charset = DEFAULT_CHARSET @@ -277,7 +278,7 @@ inherited fEditorPedidoProveedor: TfEditorPedidoProveedor TabOrder = 0 ReadOnly = False ExplicitWidth = 908 - ExplicitHeight = 454 + ExplicitHeight = 463 inherited ToolBar1: TToolBar Width = 908 Height = 24 @@ -360,9 +361,9 @@ inherited fEditorPedidoProveedor: TfEditorPedidoProveedor end end inherited cxGrid: TcxGrid - Top = 53 + Top = 50 Width = 908 - Height = 401 + Height = 413 ExplicitTop = 53 ExplicitWidth = 908 ExplicitHeight = 401 @@ -375,9 +376,10 @@ inherited fEditorPedidoProveedor: TfEditorPedidoProveedor inherited TBXDock1: TTBXDock Top = 24 Width = 908 + ExplicitTop = 24 ExplicitWidth = 908 inherited TBXToolbar1: TTBXToolbar - ExplicitWidth = 731 + ExplicitWidth = 548 end end end @@ -385,15 +387,11 @@ inherited fEditorPedidoProveedor: TfEditorPedidoProveedor object pagInicidencias: TTabSheet Caption = 'Incidencias' ImageIndex = 2 - ExplicitLeft = 0 - ExplicitTop = 0 - ExplicitWidth = 0 - ExplicitHeight = 0 inline frViewIncidenciasProv: TfrViewIncidencias Left = 0 Top = 0 Width = 908 - Height = 454 + Height = 463 Align = alClient Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText @@ -404,7 +402,7 @@ inherited fEditorPedidoProveedor: TfEditorPedidoProveedor TabOrder = 0 ReadOnly = False ExplicitWidth = 908 - ExplicitHeight = 454 + ExplicitHeight = 463 inherited pnlSup: TPanel Width = 908 ExplicitWidth = 908 @@ -414,13 +412,13 @@ inherited fEditorPedidoProveedor: TfEditorPedidoProveedor end inherited GroupBox1: TGroupBox Width = 908 - Height = 426 + Height = 435 ExplicitWidth = 908 - ExplicitHeight = 426 + ExplicitHeight = 435 inherited eIncidencias: TcxDBMemo ExplicitWidth = 904 - ExplicitHeight = 409 - Height = 409 + ExplicitHeight = 418 + Height = 418 Width = 904 end end @@ -434,7 +432,7 @@ inherited fEditorPedidoProveedor: TfEditorPedidoProveedor Left = 0 Top = 0 Width = 908 - Height = 454 + Height = 463 Align = alClient Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText @@ -445,14 +443,14 @@ inherited fEditorPedidoProveedor: TfEditorPedidoProveedor TabOrder = 0 ReadOnly = False ExplicitWidth = 908 - ExplicitHeight = 454 + ExplicitHeight = 463 inherited TBXDock: TTBXDock Width = 908 ExplicitWidth = 908 end inherited ListView1: TListView Width = 908 - Height = 425 + Height = 440 ExplicitTop = 29 ExplicitWidth = 908 ExplicitHeight = 425 @@ -657,6 +655,10 @@ inherited fEditorPedidoProveedor: TfEditorPedidoProveedor inherited PnlComentario: TPanel [5] Width = 922 ExplicitWidth = 922 + inherited lbComentario: TLabel + Width = 912 + Height = 25 + end end inherited EditorActionList: TActionList [9] Left = 72 diff --git a/Source/Modulos/Pedidos a proveedor/Views/uEditorPedidoProveedor.pas b/Source/Modulos/Pedidos a proveedor/Views/uEditorPedidoProveedor.pas index ddaf0056..1d759174 100644 --- a/Source/Modulos/Pedidos a proveedor/Views/uEditorPedidoProveedor.pas +++ b/Source/Modulos/Pedidos a proveedor/Views/uEditorPedidoProveedor.pas @@ -150,6 +150,8 @@ begin Pedido.DataTable.Active := True; pgPaginas.ActivePage := pagGeneral; + + frViewPedidoProveedor1.frViewDireccionEntregaPedidoProv1.CambioDireccionAlmacen; end; procedure TfEditorPedidoProveedor.frViewTotales1ePortePropertiesValidate( diff --git a/Source/Modulos/Pedidos a proveedor/Views/uViewDireccionEntregaPedidoProv.pas b/Source/Modulos/Pedidos a proveedor/Views/uViewDireccionEntregaPedidoProv.pas index 144ccfa5..457ab169 100644 --- a/Source/Modulos/Pedidos a proveedor/Views/uViewDireccionEntregaPedidoProv.pas +++ b/Source/Modulos/Pedidos a proveedor/Views/uViewDireccionEntregaPedidoProv.pas @@ -18,6 +18,7 @@ type procedure SetPedidoProveedor(const Value: IBizPedidoProveedor); property PedidoProveedor: IBizPedidoProveedor read GetPedidoProveedor write SetPedidoProveedor; procedure RefrescarDireccion; + procedure CambioDireccionAlmacen; end; TfrViewDireccionEntregaPedidoProv = class(TfrViewBase, IViewDireccionEntregaPedidoProv) @@ -61,7 +62,6 @@ type function GetPedidoProveedor: IBizPedidoProveedor; function HayContratoAsociado: Boolean; procedure SetPedidoProveedor(const Value: IBizPedidoProveedor); - procedure CambioDireccionAlmacen; procedure CambioDireccionCliente; procedure RecuperarClienteAsociado; procedure SetReadOnly(Value: Boolean); override; @@ -71,6 +71,7 @@ type constructor Create(AOwner: TComponent); override; destructor Destroy; override; procedure RefrescarDireccion; + procedure CambioDireccionAlmacen; end; implementation @@ -136,7 +137,7 @@ begin FPedido.PROVINCIA := FAlmacenes.PROVINCIA; FPedido.CODIGO_POSTAL := FAlmacenes.CODIGO_POSTAL; FPedido.PERSONA_CONTACTO := FAlmacenes.PERSONA_CONTACTO; - FPedido.TELEFONO := FAlmacenes.TELEFONO; + FPedido.TELEFONO := FAlmacenes.MOVIL; RefrescarDireccion; end; end; diff --git a/Source/Servidor/FactuGES_Server.dpr b/Source/Servidor/FactuGES_Server.dpr index fc97ab30..cd96bb31 100644 --- a/Source/Servidor/FactuGES_Server.dpr +++ b/Source/Servidor/FactuGES_Server.dpr @@ -121,8 +121,6 @@ uses uRptPedidosProveedor_Server in '..\Modulos\Pedidos a proveedor\Reports\uRptPedidosProveedor_Server.pas' {RptPedidosProveedor: TDataModule}, schContactosClient_Intf in '..\Modulos\Contactos\Model\schContactosClient_Intf.pas', schContactosServer_Intf in '..\Modulos\Contactos\Model\schContactosServer_Intf.pas', - schPedidosProveedorClient_Intf in '..\Modulos\Pedidos a proveedor\Model\schPedidosProveedorClient_Intf.pas', - schPedidosProveedorServer_Intf in '..\Modulos\Pedidos a proveedor\Model\schPedidosProveedorServer_Intf.pas', schAlbaranesClienteClient_Intf in '..\Modulos\Albaranes de cliente\Model\schAlbaranesClienteClient_Intf.pas', schAlbaranesClienteServer_Intf in '..\Modulos\Albaranes de cliente\Model\schAlbaranesClienteServer_Intf.pas', schRecibosClienteClient_Intf in '..\Modulos\Recibos de cliente\Model\schRecibosClienteClient_Intf.pas', @@ -138,7 +136,9 @@ uses schFacturasClienteClient_Intf in '..\Modulos\Facturas de cliente\Model\schFacturasClienteClient_Intf.pas', schFacturasClienteServer_Intf in '..\Modulos\Facturas de cliente\Model\schFacturasClienteServer_Intf.pas', schContratosClienteClient_Intf in '..\Modulos\Contratos de cliente\Model\schContratosClienteClient_Intf.pas', - schContratosClienteServer_Intf in '..\Modulos\Contratos de cliente\Model\schContratosClienteServer_Intf.pas'; + schContratosClienteServer_Intf in '..\Modulos\Contratos de cliente\Model\schContratosClienteServer_Intf.pas', + schPedidosProveedorClient_Intf in '..\Modulos\Pedidos a proveedor\Model\schPedidosProveedorClient_Intf.pas', + schPedidosProveedorServer_Intf in '..\Modulos\Pedidos a proveedor\Model\schPedidosProveedorServer_Intf.pas'; {$R *.res} {$R ..\Servicios\RODLFile.res} diff --git a/Source/Servidor/FactuGES_Server.dproj b/Source/Servidor/FactuGES_Server.dproj index 5e4cc6a8..0e7e6a61 100644 --- a/Source/Servidor/FactuGES_Server.dproj +++ b/Source/Servidor/FactuGES_Server.dproj @@ -30,6 +30,8 @@ FalseTrueFalseTrueFalse2920FalseFalseFalseFalseFalse30821252Rodax Software S.L.2.9.2.0FactuGES (Servidor)2.9.2.0viernes, 17 de mayo de 2019 18:40 + + File C:\Documents and Settings\All Users\Documentos\RAD Studio\5.0\Bpl\dxPScxScheduler2LnkD11.bpl not found FactuGES_Server.dpr diff --git a/Source/Servidor/FactuGES_Server.rc b/Source/Servidor/FactuGES_Server.rc index 3a45ad54..0a77c497 100644 --- a/Source/Servidor/FactuGES_Server.rc +++ b/Source/Servidor/FactuGES_Server.rc @@ -1,7 +1,7 @@ MAINICON ICON "C:\Codigo Acana\Resources\Iconos\Servidor.ico" 1 VERSIONINFO -FILEVERSION 2,9,1,0 -PRODUCTVERSION 2,9,1,0 +FILEVERSION 2,9,2,0 +PRODUCTVERSION 2,9,2,0 FILEFLAGSMASK 0x3FL FILEFLAGS 0x00L FILEOS 0x40004L @@ -13,10 +13,10 @@ BEGIN BLOCK "0C0A04E4" BEGIN VALUE "CompanyName", "Rodax Software S.L.\0" - VALUE "FileVersion", "2.9.1.0\0" + VALUE "FileVersion", "2.9.2.0\0" VALUE "ProductName", "FactuGES (Servidor)\0" - VALUE "ProductVersion", "2.9.1.0\0" - VALUE "CompileDate", "viernes, 17 de mayo de 2019 18:40\0" + VALUE "ProductVersion", "2.9.2.0\0" + VALUE "CompileDate", "viernes, 17 de mayo de 2019 18:59\0" END END BLOCK "VarFileInfo" diff --git a/Source/Servidor/FactuGES_Server.res b/Source/Servidor/FactuGES_Server.res index 0cb97e36b4fe4f33eacbb49f8967eca1406ca5c7..5de4ff405d7b80bc320f28caf93672af5143ed6f 100644 GIT binary patch delta 175 zcmZqJ!MI@?RL~aEK0|PUH z2h_pBU|;~1<6~f8MetM^fMzlzCCr3ppF%>XQu8WMD U%n@ZU`A*a=W>W^s$vdOn0V8G^(EtDd delta 380 zcmY*T&1%9x7@Xax*dmfc&k_PH=qaENAXID%(q4K^ZmE-Bk!(Ny^IhuvkG@o4;L4^{tDsx0Q5R@qgb4;{@h$Ly zn0$_e^$Rl{SBId!b~E=2{}MW5_8xPutW$E0hs@I