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
This commit is contained in:
parent
c1edaa5e1b
commit
9c78b4b849
@ -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"
|
||||
|
||||
Binary file not shown.
@ -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;
|
||||
|
||||
@ -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]
|
||||
|
||||
@ -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;
|
||||
|
||||
@ -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];
|
||||
|
||||
@ -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
|
||||
|
||||
@ -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
|
||||
|
||||
@ -150,6 +150,8 @@ begin
|
||||
|
||||
Pedido.DataTable.Active := True;
|
||||
pgPaginas.ActivePage := pagGeneral;
|
||||
|
||||
frViewPedidoProveedor1.frViewDireccionEntregaPedidoProv1.CambioDireccionAlmacen;
|
||||
end;
|
||||
|
||||
procedure TfEditorPedidoProveedor.frViewTotales1ePortePropertiesValidate(
|
||||
|
||||
@ -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;
|
||||
|
||||
@ -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}
|
||||
|
||||
@ -30,6 +30,8 @@
|
||||
<BorlandProject>
|
||||
<BorlandProject><Delphi.Personality><Parameters><Parameters Name="UseLauncher">False</Parameters><Parameters Name="LoadAllSymbols">True</Parameters><Parameters Name="LoadUnspecifiedSymbols">False</Parameters></Parameters><VersionInfo><VersionInfo Name="IncludeVerInfo">True</VersionInfo><VersionInfo Name="AutoIncBuild">False</VersionInfo><VersionInfo Name="MajorVer">2</VersionInfo><VersionInfo Name="MinorVer">9</VersionInfo><VersionInfo Name="Release">2</VersionInfo><VersionInfo Name="Build">0</VersionInfo><VersionInfo Name="Debug">False</VersionInfo><VersionInfo Name="PreRelease">False</VersionInfo><VersionInfo Name="Special">False</VersionInfo><VersionInfo Name="Private">False</VersionInfo><VersionInfo Name="DLL">False</VersionInfo><VersionInfo Name="Locale">3082</VersionInfo><VersionInfo Name="CodePage">1252</VersionInfo></VersionInfo><VersionInfoKeys><VersionInfoKeys Name="CompanyName">Rodax Software S.L.</VersionInfoKeys><VersionInfoKeys Name="FileDescription"></VersionInfoKeys><VersionInfoKeys Name="FileVersion">2.9.2.0</VersionInfoKeys><VersionInfoKeys Name="InternalName"></VersionInfoKeys><VersionInfoKeys Name="LegalCopyright"></VersionInfoKeys><VersionInfoKeys Name="LegalTrademarks"></VersionInfoKeys><VersionInfoKeys Name="OriginalFilename"></VersionInfoKeys><VersionInfoKeys Name="ProductName">FactuGES (Servidor)</VersionInfoKeys><VersionInfoKeys Name="ProductVersion">2.9.2.0</VersionInfoKeys><VersionInfoKeys Name="Comments"></VersionInfoKeys><VersionInfoKeys Name="CompileDate">viernes, 17 de mayo de 2019 18:40</VersionInfoKeys></VersionInfoKeys><Excluded_Packages>
|
||||
|
||||
|
||||
|
||||
<Excluded_Packages Name="C:\Documents and Settings\All Users\Documentos\RAD Studio\5.0\Bpl\dxPScxScheduler2LnkD11.bpl">File C:\Documents and Settings\All Users\Documentos\RAD Studio\5.0\Bpl\dxPScxScheduler2LnkD11.bpl not found</Excluded_Packages>
|
||||
</Excluded_Packages><Source><Source Name="MainSource">FactuGES_Server.dpr</Source></Source></Delphi.Personality></BorlandProject></BorlandProject>
|
||||
</ProjectExtensions>
|
||||
|
||||
@ -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"
|
||||
|
||||
Binary file not shown.
Loading…
Reference in New Issue
Block a user