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 156f7d0f..d2317290 100644 Binary files a/Source/Cliente/FactuGES.res and b/Source/Cliente/FactuGES.res differ diff --git a/Source/Modulos/Pedidos a proveedor/Controller/uPedidosProveedorController.pas b/Source/Modulos/Pedidos a proveedor/Controller/uPedidosProveedorController.pas index d1793e5e..6d58735a 100644 --- a/Source/Modulos/Pedidos a proveedor/Controller/uPedidosProveedorController.pas +++ b/Source/Modulos/Pedidos a proveedor/Controller/uPedidosProveedorController.pas @@ -638,7 +638,7 @@ begin ShowHourglassCursor; // solicita por José Luís que el asunto del correo y el documento adunto sean igual que la referencia del pedido impreso - ATituloEnvio := Copy(APedido.REFERENCIA, 8, 8) + '-' + APedido.NOMBRE_CLIENTE + '-' + APedido.DESCRIPCION_GENERAL; + ATituloEnvio := Copy(APedido.REF_CON_CLIENTE, 8, 6) + '-' + APedido.REF_VENDEDOR + '-' + APedido.NOMBRE_CLIENTE + '-' + APedido.DESCRIPCION_GENERAL; AFicheroTMP := DarFicheroPDFTemporal(EscapeIllegalChars(ATituloEnvio)); AReportController := TPedidosProveedorReportController.Create; diff --git a/Source/Modulos/Pedidos a proveedor/Data/uDataModulePedidosProveedor.dfm b/Source/Modulos/Pedidos a proveedor/Data/uDataModulePedidosProveedor.dfm index 38fa154f..673756b8 100644 --- a/Source/Modulos/Pedidos a proveedor/Data/uDataModulePedidosProveedor.dfm +++ b/Source/Modulos/Pedidos a proveedor/Data/uDataModulePedidosProveedor.dfm @@ -59,168 +59,251 @@ inherited DataModulePedidosProveedor: TDataModulePedidosProveedor DataType = datString Size = 255 ServerAutoRefresh = True + DictionaryEntry = 'PedidosProveedor_REFERENCIA' end item Name = 'SITUACION' DataType = datString Size = 9 + DisplayLabel = 'Situaci'#243'n' + DictionaryEntry = 'PedidosProveedor_SITUACION' end item Name = 'FECHA_ENVIO' DataType = datDateTime + DisplayLabel = #191'Enviado?' + DictionaryEntry = 'PedidosProveedor_FECHA_ENVIO' end item Name = 'FECHA_PEDIDO' DataType = datDateTime + DisplayLabel = 'Fecha pedido' + DictionaryEntry = 'PedidosProveedor_FECHA_PEDIDO' end item Name = 'FECHA_CONFIRMACION' DataType = datDateTime + DisplayLabel = #191'Confirmado?' + DictionaryEntry = 'PedidosProveedor_FECHA_CONFIRMACION' end item Name = 'FECHA_ENTREGA' DataType = datDateTime + DisplayLabel = 'Entrega prevista' + DictionaryEntry = 'PedidosProveedor_FECHA_ENTREGA' end item Name = 'ID_ALMACEN' DataType = datInteger + DisplayLabel = 'PedidosProveedor_ID_ALMACEN' + DictionaryEntry = 'PedidosProveedor_ID_ALMACEN' end item Name = 'NOMBRE_ALMACEN' DataType = datString Size = 255 + DisplayLabel = 'Almac'#233'n' + DictionaryEntry = 'PedidosProveedor_NOMBRE_ALMACEN' end item Name = 'OBSERVACIONES' DataType = datMemo + DisplayLabel = 'Observaciones' + DictionaryEntry = 'PedidosProveedor_OBSERVACIONES' end item Name = 'IMPORTE_TOTAL' DataType = datCurrency + DisplayLabel = 'Importe total' + Alignment = taRightJustify + DictionaryEntry = 'PedidosProveedor_IMPORTE_TOTAL' end item Name = 'INCIDENCIAS' DataType = datMemo + DictionaryEntry = 'PedidosProveedor_INCIDENCIAS' end item Name = 'INCIDENCIAS_ACTIVAS' DataType = datSmallInt + DictionaryEntry = 'PedidosProveedor_INCIDENCIAS_ACTIVAS' end item Name = 'CALLE' DataType = datString Size = 255 + DisplayLabel = 'Calle' + DictionaryEntry = 'PedidosProveedor_CALLE' end item Name = 'POBLACION' DataType = datString Size = 255 + DisplayLabel = 'Poblaci'#243'n' + DictionaryEntry = 'PedidosProveedor_POBLACION' end item Name = 'PROVINCIA' DataType = datString Size = 255 + DisplayLabel = 'Provincia' + DictionaryEntry = 'PedidosProveedor_PROVINCIA' end item Name = 'CODIGO_POSTAL' DataType = datString Size = 10 + DisplayLabel = 'C'#243'd. postal' + DictionaryEntry = 'PedidosProveedor_CODIGO_POSTAL' end item Name = 'PERSONA_CONTACTO' DataType = datString Size = 255 + DisplayLabel = 'Persona de contacto' + DictionaryEntry = 'PedidosProveedor_PERSONA_CONTACTO' end item Name = 'TELEFONO' DataType = datString Size = 25 + DisplayLabel = 'Tel'#233'fono' + DictionaryEntry = 'PedidosProveedor_TELEFONO' end item Name = 'FECHA_ALTA' DataType = datDateTime + DictionaryEntry = 'PedidosProveedor_FECHA_ALTA' end item Name = 'FECHA_MODIFICACION' DataType = datDateTime + DictionaryEntry = 'PedidosProveedor_FECHA_MODIFICACION' end item Name = 'USUARIO' DataType = datString Size = 30 + DictionaryEntry = 'PedidosProveedor_USUARIO' end item Name = 'ID_CONTRATO_CLIENTE' DataType = datInteger + DisplayLabel = 'PedidosProveedor_ID_CONTRATO_CLIENTE' + DictionaryEntry = 'PedidosProveedor_ID_CONTRATO_CLIENTE' end item Name = 'REF_CON_CLIENTE' DataType = datString Size = 255 + DisplayLabel = 'PedidosProveedor_REF_CON_CLIENTE' + DictionaryEntry = 'PedidosProveedor_REF_CON_CLIENTE' end item Name = 'NOMBRE_CLIENTE' DataType = datString Size = 255 + DisplayLabel = 'PedidosProveedor_NOMBRE_CLIENTE' + DictionaryEntry = 'PedidosProveedor_NOMBRE_CLIENTE' end item Name = 'IMPORTE_NETO' DataType = datCurrency + DisplayLabel = 'Importe neto' + Alignment = taRightJustify + DictionaryEntry = 'PedidosProveedor_IMPORTE_NETO' end item Name = 'IMPORTE_PORTE' DataType = datCurrency + DisplayLabel = 'Importe del porte' + Alignment = taRightJustify + DictionaryEntry = 'PedidosProveedor_IMPORTE_PORTE' end item Name = 'DESCUENTO' DataType = datFloat + DisplayLabel = 'Descuento' + DisplayFormat = ',0.00 %;-,0.00 %' + Alignment = taRightJustify + DictionaryEntry = 'PedidosProveedor_DESCUENTO' end item Name = 'IMPORTE_DESCUENTO' DataType = datCurrency + DisplayLabel = 'Importe dto.' + Alignment = taRightJustify + DictionaryEntry = 'PedidosProveedor_IMPORTE_DESCUENTO' end item Name = 'BASE_IMPONIBLE' DataType = datCurrency + DisplayLabel = 'Base imponible' + Alignment = taRightJustify + DictionaryEntry = 'PedidosProveedor_BASE_IMPONIBLE' end item Name = 'IVA' DataType = datFloat + DisplayFormat = ',0.00 %;-,0.00 %' + Alignment = taRightJustify + DictionaryEntry = 'PedidosProveedor_IVA' end item Name = 'IMPORTE_IVA' DataType = datCurrency + DisplayLabel = 'Importe IVA' + Alignment = taRightJustify + DictionaryEntry = 'PedidosProveedor_IMPORTE_IVA' end item Name = 'ID_FORMA_PAGO' DataType = datInteger + DictionaryEntry = 'PedidosProveedor_ID_FORMA_PAGO' end item Name = 'ID_TIENDA' DataType = datInteger + DisplayLabel = 'PedidosProveedor_ID_TIENDA' + DictionaryEntry = 'PedidosProveedor_ID_TIENDA' end item Name = 'TIENDA' DataType = datString Size = 255 + DisplayLabel = 'PedidosProveedor_TIENDA' + DictionaryEntry = 'PedidosProveedor_TIENDA' end item Name = 'ID_VENDEDOR' DataType = datInteger + DisplayLabel = 'PedidosProveedor_ID_VENDEDOR' + DictionaryEntry = 'PedidosProveedor_ID_VENDEDOR' end item Name = 'VENDEDOR' DataType = datString Size = 255 + DisplayLabel = 'PedidosProveedor_VENDEDOR' + DictionaryEntry = 'PedidosProveedor_VENDEDOR' + end + item + Name = 'REF_VENDEDOR' + DataType = datString + Size = 255 end item Name = 'DESCRIPCION_GENERAL' DataType = datString Size = 255 + DisplayLabel = 'PedidosProveedor_DESCRIPCION_GENERAL' + DictionaryEntry = 'PedidosProveedor_DESCRIPCION_GENERAL' end item Name = 'ID_DIRECCION_CLIENTE' DataType = datInteger + DisplayLabel = 'PedidosProveedor_ID_DIRECCION_CLIENTE' + DictionaryEntry = 'PedidosProveedor_ID_DIRECCION_CLIENTE' end> 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 0cb97e36..5de4ff40 100644 Binary files a/Source/Servidor/FactuGES_Server.res and b/Source/Servidor/FactuGES_Server.res differ