En los albaranes a proveedor poder elegir una dirección si el proveedor tiene varias sucursales. Lo mismo para personas de contacto.
git-svn-id: https://192.168.0.254/svn/Proyectos.Tecsitel_FactuGES2/trunk@788 0c75b7a4-871f-7646-8a2f-f78d34cc349f
This commit is contained in:
parent
f26e64bd06
commit
c85cae7c75
@ -400,6 +400,8 @@ CREATE TABLE ALBARANES_PROVEEDOR (
|
||||
ID TIPO_ID NOT NULL,
|
||||
ID_EMPRESA TIPO_ID,
|
||||
ID_PROVEEDOR TIPO_ID,
|
||||
ID_DIRECCION TIPO_ID,
|
||||
PERSONA_CONTACTO_PROV VARCHAR(255),
|
||||
FECHA_ALBARAN DATE,
|
||||
ID_PEDIDO TIPO_ID,
|
||||
ID_FACTURA TIPO_ID,
|
||||
@ -1471,8 +1473,10 @@ FROM
|
||||
CREATE VIEW V_ALBARANES_PROVEEDOR(
|
||||
ID,
|
||||
ID_EMPRESA,
|
||||
ID_PROVEEDOR,
|
||||
ID_PROVEEDOR,
|
||||
NOMBRE,
|
||||
ID_DIRECCION,
|
||||
PERSONA_CONTACTO_PROV,
|
||||
FECHA_ALBARAN,
|
||||
REFERENCIA,
|
||||
REFERENCIA_PROVEEDOR,
|
||||
@ -1512,6 +1516,8 @@ SELECT
|
||||
ALBARANES_PROVEEDOR.ID_EMPRESA,
|
||||
ALBARANES_PROVEEDOR.ID_PROVEEDOR,
|
||||
CONTACTOS.NOMBRE,
|
||||
ALBARANES_PROVEEDOR.ID_DIRECCION,
|
||||
ALBARANES_PROVEEDOR.PERSONA_CONTACTO_PROV,
|
||||
ALBARANES_PROVEEDOR.FECHA_ALBARAN,
|
||||
ALBARANES_PROVEEDOR.REFERENCIA,
|
||||
ALBARANES_PROVEEDOR.REFERENCIA_PROVEEDOR,
|
||||
|
||||
Binary file not shown.
@ -1,7 +1,7 @@
|
||||
MAINICON ICON "C:\Codigo Tecsitel\Resources\Iconos\Factuges.ico"
|
||||
1 VERSIONINFO
|
||||
FILEVERSION 1,4,6,0
|
||||
PRODUCTVERSION 1,4,6,0
|
||||
FILEVERSION 1,4,7,0
|
||||
PRODUCTVERSION 1,4,7,0
|
||||
FILEFLAGSMASK 0x3FL
|
||||
FILEFLAGS 0x00L
|
||||
FILEOS 0x40004L
|
||||
@ -13,10 +13,10 @@ BEGIN
|
||||
BLOCK "0C0A04E4"
|
||||
BEGIN
|
||||
VALUE "CompanyName", "Rodax Software S.L.\0"
|
||||
VALUE "FileVersion", "1.4.6.0\0"
|
||||
VALUE "FileVersion", "1.4.7.0\0"
|
||||
VALUE "InternalName", "FactuGES\0"
|
||||
VALUE "ProductName", "FactuGES\0"
|
||||
VALUE "ProductVersion", "1.4.6.0\0"
|
||||
VALUE "ProductVersion", "1.4.7.0\0"
|
||||
END
|
||||
END
|
||||
BLOCK "VarFileInfo"
|
||||
|
||||
Binary file not shown.
@ -52,6 +52,18 @@ inherited DataModuleAlbaranesProveedor: TDataModuleAlbaranesProveedor
|
||||
ServerAutoRefresh = True
|
||||
DictionaryEntry = 'AlbaranesProveedor_NOMBRE'
|
||||
end
|
||||
item
|
||||
Name = 'ID_DIRECCION'
|
||||
DataType = datInteger
|
||||
DictionaryEntry = 'AlbaranesProveedor_ID_DIRECCION'
|
||||
end
|
||||
item
|
||||
Name = 'PERSONA_CONTACTO_PROV'
|
||||
DataType = datString
|
||||
Size = 255
|
||||
DisplayLabel = 'Contacto del proveedor'
|
||||
DictionaryEntry = 'AlbaranesProveedor_PERSONA_CONTACTO_PROV'
|
||||
end
|
||||
item
|
||||
Name = 'FECHA_ALBARAN'
|
||||
DataType = datDateTime
|
||||
@ -88,7 +100,9 @@ inherited DataModuleAlbaranesProveedor: TDataModuleAlbaranesProveedor
|
||||
Name = 'TIPO_ALMACEN'
|
||||
DataType = datString
|
||||
Size = 10
|
||||
DisplayLabel = 'AlbaranesProveedor_TIPO_ALMACEN'
|
||||
ServerAutoRefresh = True
|
||||
DictionaryEntry = 'AlbaranesProveedor_TIPO_ALMACEN'
|
||||
end
|
||||
item
|
||||
Name = 'NOMBRE_ALMACEN'
|
||||
|
||||
@ -51,11 +51,11 @@
|
||||
<DelphiCompile Include="AlbaranesProveedor_model.dpk">
|
||||
<MainSource>MainSource</MainSource>
|
||||
</DelphiCompile>
|
||||
<DCCReference Include="..\..\Pedidos a proveedor\Base.dcp" />
|
||||
<DCCReference Include="..\..\Pedidos a proveedor\Contactos_model.dcp" />
|
||||
<DCCReference Include="..\..\Pedidos a proveedor\Inventario_model.dcp" />
|
||||
<DCCReference Include="Base.dcp" />
|
||||
<DCCReference Include="Contactos_model.dcp" />
|
||||
<DCCReference Include="Data\uIDataModuleAlbaranesProveedor.pas" />
|
||||
<DCCReference Include="Data\uIDataModuleAlbaranesProveedorReport.pas" />
|
||||
<DCCReference Include="Inventario_model.dcp" />
|
||||
<DCCReference Include="schAlbaranesProveedorClient_Intf.pas" />
|
||||
<DCCReference Include="schAlbaranesProveedorServer_Intf.pas" />
|
||||
<DCCReference Include="uBizAlbaranesProveedor.pas" />
|
||||
|
||||
@ -9,8 +9,8 @@ const
|
||||
{ Data table rules ids
|
||||
Feel free to change them to something more human readable
|
||||
but make sure they are unique in the context of your application }
|
||||
RID_AlbaranesProveedor = '{BB462AD6-B2B8-4657-AD65-71223BAA1B84}';
|
||||
RID_AlbaranesProveedor_Detalles = '{522B12F2-7A2E-40D5-B022-10C07D3DA1B3}';
|
||||
RID_AlbaranesProveedor = '{53E15711-9D7A-4623-9F91-5C032C3C9418}';
|
||||
RID_AlbaranesProveedor_Detalles = '{1E0933DA-42E0-4523-9E38-7C83457FEAA1}';
|
||||
|
||||
{ Data table names }
|
||||
nme_AlbaranesProveedor = 'AlbaranesProveedor';
|
||||
@ -21,6 +21,8 @@ const
|
||||
fld_AlbaranesProveedorID_EMPRESA = 'ID_EMPRESA';
|
||||
fld_AlbaranesProveedorID_PROVEEDOR = 'ID_PROVEEDOR';
|
||||
fld_AlbaranesProveedorNOMBRE = 'NOMBRE';
|
||||
fld_AlbaranesProveedorID_DIRECCION = 'ID_DIRECCION';
|
||||
fld_AlbaranesProveedorPERSONA_CONTACTO_PROV = 'PERSONA_CONTACTO_PROV';
|
||||
fld_AlbaranesProveedorFECHA_ALBARAN = 'FECHA_ALBARAN';
|
||||
fld_AlbaranesProveedorREFERENCIA = 'REFERENCIA';
|
||||
fld_AlbaranesProveedorREFERENCIA_PROVEEDOR = 'REFERENCIA_PROVEEDOR';
|
||||
@ -60,39 +62,41 @@ const
|
||||
idx_AlbaranesProveedorID_EMPRESA = 1;
|
||||
idx_AlbaranesProveedorID_PROVEEDOR = 2;
|
||||
idx_AlbaranesProveedorNOMBRE = 3;
|
||||
idx_AlbaranesProveedorFECHA_ALBARAN = 4;
|
||||
idx_AlbaranesProveedorREFERENCIA = 5;
|
||||
idx_AlbaranesProveedorREFERENCIA_PROVEEDOR = 6;
|
||||
idx_AlbaranesProveedorTIPO = 7;
|
||||
idx_AlbaranesProveedorID_ALMACEN = 8;
|
||||
idx_AlbaranesProveedorTIPO_ALMACEN = 9;
|
||||
idx_AlbaranesProveedorNOMBRE_ALMACEN = 10;
|
||||
idx_AlbaranesProveedorID_PEDIDO = 11;
|
||||
idx_AlbaranesProveedorREF_PED_PROVEEDOR = 12;
|
||||
idx_AlbaranesProveedorID_FACTURA = 13;
|
||||
idx_AlbaranesProveedorREF_FACTURA = 14;
|
||||
idx_AlbaranesProveedorREF_FACTURA_PROV = 15;
|
||||
idx_AlbaranesProveedorCALLE = 16;
|
||||
idx_AlbaranesProveedorCODIGO_POSTAL = 17;
|
||||
idx_AlbaranesProveedorPOBLACION = 18;
|
||||
idx_AlbaranesProveedorPROVINCIA = 19;
|
||||
idx_AlbaranesProveedorPERSONA_CONTACTO = 20;
|
||||
idx_AlbaranesProveedorTELEFONO = 21;
|
||||
idx_AlbaranesProveedorIMPORTE_NETO = 22;
|
||||
idx_AlbaranesProveedorIMPORTE_PORTE = 23;
|
||||
idx_AlbaranesProveedorDESCUENTO = 24;
|
||||
idx_AlbaranesProveedorIMPORTE_DESCUENTO = 25;
|
||||
idx_AlbaranesProveedorBASE_IMPONIBLE = 26;
|
||||
idx_AlbaranesProveedorIVA = 27;
|
||||
idx_AlbaranesProveedorIMPORTE_IVA = 28;
|
||||
idx_AlbaranesProveedorIMPORTE_TOTAL = 29;
|
||||
idx_AlbaranesProveedorOBSERVACIONES = 30;
|
||||
idx_AlbaranesProveedorINCIDENCIAS = 31;
|
||||
idx_AlbaranesProveedorINCIDENCIAS_ACTIVAS = 32;
|
||||
idx_AlbaranesProveedorFECHA_ALTA = 33;
|
||||
idx_AlbaranesProveedorFECHA_MODIFICACION = 34;
|
||||
idx_AlbaranesProveedorUSUARIO = 35;
|
||||
idx_AlbaranesProveedorID_FORMA_PAGO = 36;
|
||||
idx_AlbaranesProveedorID_DIRECCION = 4;
|
||||
idx_AlbaranesProveedorPERSONA_CONTACTO_PROV = 5;
|
||||
idx_AlbaranesProveedorFECHA_ALBARAN = 6;
|
||||
idx_AlbaranesProveedorREFERENCIA = 7;
|
||||
idx_AlbaranesProveedorREFERENCIA_PROVEEDOR = 8;
|
||||
idx_AlbaranesProveedorTIPO = 9;
|
||||
idx_AlbaranesProveedorID_ALMACEN = 10;
|
||||
idx_AlbaranesProveedorTIPO_ALMACEN = 11;
|
||||
idx_AlbaranesProveedorNOMBRE_ALMACEN = 12;
|
||||
idx_AlbaranesProveedorID_PEDIDO = 13;
|
||||
idx_AlbaranesProveedorREF_PED_PROVEEDOR = 14;
|
||||
idx_AlbaranesProveedorID_FACTURA = 15;
|
||||
idx_AlbaranesProveedorREF_FACTURA = 16;
|
||||
idx_AlbaranesProveedorREF_FACTURA_PROV = 17;
|
||||
idx_AlbaranesProveedorCALLE = 18;
|
||||
idx_AlbaranesProveedorCODIGO_POSTAL = 19;
|
||||
idx_AlbaranesProveedorPOBLACION = 20;
|
||||
idx_AlbaranesProveedorPROVINCIA = 21;
|
||||
idx_AlbaranesProveedorPERSONA_CONTACTO = 22;
|
||||
idx_AlbaranesProveedorTELEFONO = 23;
|
||||
idx_AlbaranesProveedorIMPORTE_NETO = 24;
|
||||
idx_AlbaranesProveedorIMPORTE_PORTE = 25;
|
||||
idx_AlbaranesProveedorDESCUENTO = 26;
|
||||
idx_AlbaranesProveedorIMPORTE_DESCUENTO = 27;
|
||||
idx_AlbaranesProveedorBASE_IMPONIBLE = 28;
|
||||
idx_AlbaranesProveedorIVA = 29;
|
||||
idx_AlbaranesProveedorIMPORTE_IVA = 30;
|
||||
idx_AlbaranesProveedorIMPORTE_TOTAL = 31;
|
||||
idx_AlbaranesProveedorOBSERVACIONES = 32;
|
||||
idx_AlbaranesProveedorINCIDENCIAS = 33;
|
||||
idx_AlbaranesProveedorINCIDENCIAS_ACTIVAS = 34;
|
||||
idx_AlbaranesProveedorFECHA_ALTA = 35;
|
||||
idx_AlbaranesProveedorFECHA_MODIFICACION = 36;
|
||||
idx_AlbaranesProveedorUSUARIO = 37;
|
||||
idx_AlbaranesProveedorID_FORMA_PAGO = 38;
|
||||
|
||||
{ AlbaranesProveedor_Detalles fields }
|
||||
fld_AlbaranesProveedor_DetallesID = 'ID';
|
||||
@ -135,7 +139,7 @@ const
|
||||
type
|
||||
{ IAlbaranesProveedor }
|
||||
IAlbaranesProveedor = interface(IDAStronglyTypedDataTable)
|
||||
['{F1E38E39-40C8-49FC-B3F5-47F528563F9B}']
|
||||
['{F4357865-BECE-4FC7-95C0-DDE7FABBDFF0}']
|
||||
{ Property getters and setters }
|
||||
function GetIDValue: Integer;
|
||||
procedure SetIDValue(const aValue: Integer);
|
||||
@ -153,6 +157,14 @@ type
|
||||
procedure SetNOMBREValue(const aValue: String);
|
||||
function GetNOMBREIsNull: Boolean;
|
||||
procedure SetNOMBREIsNull(const aValue: Boolean);
|
||||
function GetID_DIRECCIONValue: Integer;
|
||||
procedure SetID_DIRECCIONValue(const aValue: Integer);
|
||||
function GetID_DIRECCIONIsNull: Boolean;
|
||||
procedure SetID_DIRECCIONIsNull(const aValue: Boolean);
|
||||
function GetPERSONA_CONTACTO_PROVValue: String;
|
||||
procedure SetPERSONA_CONTACTO_PROVValue(const aValue: String);
|
||||
function GetPERSONA_CONTACTO_PROVIsNull: Boolean;
|
||||
procedure SetPERSONA_CONTACTO_PROVIsNull(const aValue: Boolean);
|
||||
function GetFECHA_ALBARANValue: DateTime;
|
||||
procedure SetFECHA_ALBARANValue(const aValue: DateTime);
|
||||
function GetFECHA_ALBARANIsNull: Boolean;
|
||||
@ -294,6 +306,10 @@ type
|
||||
property ID_PROVEEDORIsNull: Boolean read GetID_PROVEEDORIsNull write SetID_PROVEEDORIsNull;
|
||||
property NOMBRE: String read GetNOMBREValue write SetNOMBREValue;
|
||||
property NOMBREIsNull: Boolean read GetNOMBREIsNull write SetNOMBREIsNull;
|
||||
property ID_DIRECCION: Integer read GetID_DIRECCIONValue write SetID_DIRECCIONValue;
|
||||
property ID_DIRECCIONIsNull: Boolean read GetID_DIRECCIONIsNull write SetID_DIRECCIONIsNull;
|
||||
property PERSONA_CONTACTO_PROV: String read GetPERSONA_CONTACTO_PROVValue write SetPERSONA_CONTACTO_PROVValue;
|
||||
property PERSONA_CONTACTO_PROVIsNull: Boolean read GetPERSONA_CONTACTO_PROVIsNull write SetPERSONA_CONTACTO_PROVIsNull;
|
||||
property FECHA_ALBARAN: DateTime read GetFECHA_ALBARANValue write SetFECHA_ALBARANValue;
|
||||
property FECHA_ALBARANIsNull: Boolean read GetFECHA_ALBARANIsNull write SetFECHA_ALBARANIsNull;
|
||||
property REFERENCIA: String read GetREFERENCIAValue write SetREFERENCIAValue;
|
||||
@ -387,6 +403,14 @@ type
|
||||
procedure SetNOMBREValue(const aValue: String); virtual;
|
||||
function GetNOMBREIsNull: Boolean; virtual;
|
||||
procedure SetNOMBREIsNull(const aValue: Boolean); virtual;
|
||||
function GetID_DIRECCIONValue: Integer; virtual;
|
||||
procedure SetID_DIRECCIONValue(const aValue: Integer); virtual;
|
||||
function GetID_DIRECCIONIsNull: Boolean; virtual;
|
||||
procedure SetID_DIRECCIONIsNull(const aValue: Boolean); virtual;
|
||||
function GetPERSONA_CONTACTO_PROVValue: String; virtual;
|
||||
procedure SetPERSONA_CONTACTO_PROVValue(const aValue: String); virtual;
|
||||
function GetPERSONA_CONTACTO_PROVIsNull: Boolean; virtual;
|
||||
procedure SetPERSONA_CONTACTO_PROVIsNull(const aValue: Boolean); virtual;
|
||||
function GetFECHA_ALBARANValue: DateTime; virtual;
|
||||
procedure SetFECHA_ALBARANValue(const aValue: DateTime); virtual;
|
||||
function GetFECHA_ALBARANIsNull: Boolean; virtual;
|
||||
@ -527,6 +551,10 @@ type
|
||||
property ID_PROVEEDORIsNull: Boolean read GetID_PROVEEDORIsNull write SetID_PROVEEDORIsNull;
|
||||
property NOMBRE: String read GetNOMBREValue write SetNOMBREValue;
|
||||
property NOMBREIsNull: Boolean read GetNOMBREIsNull write SetNOMBREIsNull;
|
||||
property ID_DIRECCION: Integer read GetID_DIRECCIONValue write SetID_DIRECCIONValue;
|
||||
property ID_DIRECCIONIsNull: Boolean read GetID_DIRECCIONIsNull write SetID_DIRECCIONIsNull;
|
||||
property PERSONA_CONTACTO_PROV: String read GetPERSONA_CONTACTO_PROVValue write SetPERSONA_CONTACTO_PROVValue;
|
||||
property PERSONA_CONTACTO_PROVIsNull: Boolean read GetPERSONA_CONTACTO_PROVIsNull write SetPERSONA_CONTACTO_PROVIsNull;
|
||||
property FECHA_ALBARAN: DateTime read GetFECHA_ALBARANValue write SetFECHA_ALBARANValue;
|
||||
property FECHA_ALBARANIsNull: Boolean read GetFECHA_ALBARANIsNull write SetFECHA_ALBARANIsNull;
|
||||
property REFERENCIA: String read GetREFERENCIAValue write SetREFERENCIAValue;
|
||||
@ -602,7 +630,7 @@ type
|
||||
|
||||
{ IAlbaranesProveedor_Detalles }
|
||||
IAlbaranesProveedor_Detalles = interface(IDAStronglyTypedDataTable)
|
||||
['{DE04C3FD-7982-4432-9F46-7BBBD5D47EE5}']
|
||||
['{C3CD4BF2-4FBF-40E1-9F50-7994CDDE3956}']
|
||||
{ Property getters and setters }
|
||||
function GetIDValue: Integer;
|
||||
procedure SetIDValue(const aValue: Integer);
|
||||
@ -946,6 +974,48 @@ begin
|
||||
DataTable.Fields[idx_AlbaranesProveedorNOMBRE].AsVariant := Null;
|
||||
end;
|
||||
|
||||
function TAlbaranesProveedorDataTableRules.GetID_DIRECCIONValue: Integer;
|
||||
begin
|
||||
result := DataTable.Fields[idx_AlbaranesProveedorID_DIRECCION].AsInteger;
|
||||
end;
|
||||
|
||||
procedure TAlbaranesProveedorDataTableRules.SetID_DIRECCIONValue(const aValue: Integer);
|
||||
begin
|
||||
DataTable.Fields[idx_AlbaranesProveedorID_DIRECCION].AsInteger := aValue;
|
||||
end;
|
||||
|
||||
function TAlbaranesProveedorDataTableRules.GetID_DIRECCIONIsNull: boolean;
|
||||
begin
|
||||
result := DataTable.Fields[idx_AlbaranesProveedorID_DIRECCION].IsNull;
|
||||
end;
|
||||
|
||||
procedure TAlbaranesProveedorDataTableRules.SetID_DIRECCIONIsNull(const aValue: Boolean);
|
||||
begin
|
||||
if aValue then
|
||||
DataTable.Fields[idx_AlbaranesProveedorID_DIRECCION].AsVariant := Null;
|
||||
end;
|
||||
|
||||
function TAlbaranesProveedorDataTableRules.GetPERSONA_CONTACTO_PROVValue: String;
|
||||
begin
|
||||
result := DataTable.Fields[idx_AlbaranesProveedorPERSONA_CONTACTO_PROV].AsString;
|
||||
end;
|
||||
|
||||
procedure TAlbaranesProveedorDataTableRules.SetPERSONA_CONTACTO_PROVValue(const aValue: String);
|
||||
begin
|
||||
DataTable.Fields[idx_AlbaranesProveedorPERSONA_CONTACTO_PROV].AsString := aValue;
|
||||
end;
|
||||
|
||||
function TAlbaranesProveedorDataTableRules.GetPERSONA_CONTACTO_PROVIsNull: boolean;
|
||||
begin
|
||||
result := DataTable.Fields[idx_AlbaranesProveedorPERSONA_CONTACTO_PROV].IsNull;
|
||||
end;
|
||||
|
||||
procedure TAlbaranesProveedorDataTableRules.SetPERSONA_CONTACTO_PROVIsNull(const aValue: Boolean);
|
||||
begin
|
||||
if aValue then
|
||||
DataTable.Fields[idx_AlbaranesProveedorPERSONA_CONTACTO_PROV].AsVariant := Null;
|
||||
end;
|
||||
|
||||
function TAlbaranesProveedorDataTableRules.GetFECHA_ALBARANValue: DateTime;
|
||||
begin
|
||||
result := DataTable.Fields[idx_AlbaranesProveedorFECHA_ALBARAN].AsDateTime;
|
||||
|
||||
@ -9,18 +9,20 @@ 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_AlbaranesProveedorDelta = '{AD8DEBAC-BCFA-4B95-A6B5-9C8948F7A56C}';
|
||||
RID_AlbaranesProveedor_DetallesDelta = '{67FD1B90-D35D-4B44-9D07-57DDA0EE7407}';
|
||||
RID_AlbaranesProveedorDelta = '{467DAA7D-392D-4AB6-BCC2-65A785D65AC7}';
|
||||
RID_AlbaranesProveedor_DetallesDelta = '{C386AE7F-4999-4952-95E5-6798E0E4CA00}';
|
||||
|
||||
type
|
||||
{ IAlbaranesProveedorDelta }
|
||||
IAlbaranesProveedorDelta = interface(IAlbaranesProveedor)
|
||||
['{AD8DEBAC-BCFA-4B95-A6B5-9C8948F7A56C}']
|
||||
['{467DAA7D-392D-4AB6-BCC2-65A785D65AC7}']
|
||||
{ Property getters and setters }
|
||||
function GetOldIDValue : Integer;
|
||||
function GetOldID_EMPRESAValue : Integer;
|
||||
function GetOldID_PROVEEDORValue : Integer;
|
||||
function GetOldNOMBREValue : String;
|
||||
function GetOldID_DIRECCIONValue : Integer;
|
||||
function GetOldPERSONA_CONTACTO_PROVValue : String;
|
||||
function GetOldFECHA_ALBARANValue : DateTime;
|
||||
function GetOldREFERENCIAValue : String;
|
||||
function GetOldREFERENCIA_PROVEEDORValue : String;
|
||||
@ -60,6 +62,8 @@ type
|
||||
property OldID_EMPRESA : Integer read GetOldID_EMPRESAValue;
|
||||
property OldID_PROVEEDOR : Integer read GetOldID_PROVEEDORValue;
|
||||
property OldNOMBRE : String read GetOldNOMBREValue;
|
||||
property OldID_DIRECCION : Integer read GetOldID_DIRECCIONValue;
|
||||
property OldPERSONA_CONTACTO_PROV : String read GetOldPERSONA_CONTACTO_PROVValue;
|
||||
property OldFECHA_ALBARAN : DateTime read GetOldFECHA_ALBARANValue;
|
||||
property OldREFERENCIA : String read GetOldREFERENCIAValue;
|
||||
property OldREFERENCIA_PROVEEDOR : String read GetOldREFERENCIA_PROVEEDORValue;
|
||||
@ -128,6 +132,18 @@ type
|
||||
function GetOldNOMBREIsNull: Boolean; virtual;
|
||||
procedure SetNOMBREValue(const aValue: String); virtual;
|
||||
procedure SetNOMBREIsNull(const aValue: Boolean); virtual;
|
||||
function GetID_DIRECCIONValue: Integer; virtual;
|
||||
function GetID_DIRECCIONIsNull: Boolean; virtual;
|
||||
function GetOldID_DIRECCIONValue: Integer; virtual;
|
||||
function GetOldID_DIRECCIONIsNull: Boolean; virtual;
|
||||
procedure SetID_DIRECCIONValue(const aValue: Integer); virtual;
|
||||
procedure SetID_DIRECCIONIsNull(const aValue: Boolean); virtual;
|
||||
function GetPERSONA_CONTACTO_PROVValue: String; virtual;
|
||||
function GetPERSONA_CONTACTO_PROVIsNull: Boolean; virtual;
|
||||
function GetOldPERSONA_CONTACTO_PROVValue: String; virtual;
|
||||
function GetOldPERSONA_CONTACTO_PROVIsNull: Boolean; virtual;
|
||||
procedure SetPERSONA_CONTACTO_PROVValue(const aValue: String); virtual;
|
||||
procedure SetPERSONA_CONTACTO_PROVIsNull(const aValue: Boolean); virtual;
|
||||
function GetFECHA_ALBARANValue: DateTime; virtual;
|
||||
function GetFECHA_ALBARANIsNull: Boolean; virtual;
|
||||
function GetOldFECHA_ALBARANValue: DateTime; virtual;
|
||||
@ -342,6 +358,14 @@ type
|
||||
property NOMBREIsNull : Boolean read GetNOMBREIsNull write SetNOMBREIsNull;
|
||||
property OldNOMBRE : String read GetOldNOMBREValue;
|
||||
property OldNOMBREIsNull : Boolean read GetOldNOMBREIsNull;
|
||||
property ID_DIRECCION : Integer read GetID_DIRECCIONValue write SetID_DIRECCIONValue;
|
||||
property ID_DIRECCIONIsNull : Boolean read GetID_DIRECCIONIsNull write SetID_DIRECCIONIsNull;
|
||||
property OldID_DIRECCION : Integer read GetOldID_DIRECCIONValue;
|
||||
property OldID_DIRECCIONIsNull : Boolean read GetOldID_DIRECCIONIsNull;
|
||||
property PERSONA_CONTACTO_PROV : String read GetPERSONA_CONTACTO_PROVValue write SetPERSONA_CONTACTO_PROVValue;
|
||||
property PERSONA_CONTACTO_PROVIsNull : Boolean read GetPERSONA_CONTACTO_PROVIsNull write SetPERSONA_CONTACTO_PROVIsNull;
|
||||
property OldPERSONA_CONTACTO_PROV : String read GetOldPERSONA_CONTACTO_PROVValue;
|
||||
property OldPERSONA_CONTACTO_PROVIsNull : Boolean read GetOldPERSONA_CONTACTO_PROVIsNull;
|
||||
property FECHA_ALBARAN : DateTime read GetFECHA_ALBARANValue write SetFECHA_ALBARANValue;
|
||||
property FECHA_ALBARANIsNull : Boolean read GetFECHA_ALBARANIsNull write SetFECHA_ALBARANIsNull;
|
||||
property OldFECHA_ALBARAN : DateTime read GetOldFECHA_ALBARANValue;
|
||||
@ -483,7 +507,7 @@ type
|
||||
|
||||
{ IAlbaranesProveedor_DetallesDelta }
|
||||
IAlbaranesProveedor_DetallesDelta = interface(IAlbaranesProveedor_Detalles)
|
||||
['{67FD1B90-D35D-4B44-9D07-57DDA0EE7407}']
|
||||
['{C386AE7F-4999-4952-95E5-6798E0E4CA00}']
|
||||
{ Property getters and setters }
|
||||
function GetOldIDValue : Integer;
|
||||
function GetOldID_ALBARANValue : Integer;
|
||||
@ -867,6 +891,68 @@ begin
|
||||
BusinessProcessor.CurrentChange.NewValueByName[fld_AlbaranesProveedorNOMBRE] := Null;
|
||||
end;
|
||||
|
||||
function TAlbaranesProveedorBusinessProcessorRules.GetID_DIRECCIONValue: Integer;
|
||||
begin
|
||||
result := BusinessProcessor.CurrentChange.NewValueByName[fld_AlbaranesProveedorID_DIRECCION];
|
||||
end;
|
||||
|
||||
function TAlbaranesProveedorBusinessProcessorRules.GetID_DIRECCIONIsNull: Boolean;
|
||||
begin
|
||||
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_AlbaranesProveedorID_DIRECCION]);
|
||||
end;
|
||||
|
||||
function TAlbaranesProveedorBusinessProcessorRules.GetOldID_DIRECCIONValue: Integer;
|
||||
begin
|
||||
result := BusinessProcessor.CurrentChange.OldValueByName[fld_AlbaranesProveedorID_DIRECCION];
|
||||
end;
|
||||
|
||||
function TAlbaranesProveedorBusinessProcessorRules.GetOldID_DIRECCIONIsNull: Boolean;
|
||||
begin
|
||||
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_AlbaranesProveedorID_DIRECCION]);
|
||||
end;
|
||||
|
||||
procedure TAlbaranesProveedorBusinessProcessorRules.SetID_DIRECCIONValue(const aValue: Integer);
|
||||
begin
|
||||
BusinessProcessor.CurrentChange.NewValueByName[fld_AlbaranesProveedorID_DIRECCION] := aValue;
|
||||
end;
|
||||
|
||||
procedure TAlbaranesProveedorBusinessProcessorRules.SetID_DIRECCIONIsNull(const aValue: Boolean);
|
||||
begin
|
||||
if aValue then
|
||||
BusinessProcessor.CurrentChange.NewValueByName[fld_AlbaranesProveedorID_DIRECCION] := Null;
|
||||
end;
|
||||
|
||||
function TAlbaranesProveedorBusinessProcessorRules.GetPERSONA_CONTACTO_PROVValue: String;
|
||||
begin
|
||||
result := BusinessProcessor.CurrentChange.NewValueByName[fld_AlbaranesProveedorPERSONA_CONTACTO_PROV];
|
||||
end;
|
||||
|
||||
function TAlbaranesProveedorBusinessProcessorRules.GetPERSONA_CONTACTO_PROVIsNull: Boolean;
|
||||
begin
|
||||
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_AlbaranesProveedorPERSONA_CONTACTO_PROV]);
|
||||
end;
|
||||
|
||||
function TAlbaranesProveedorBusinessProcessorRules.GetOldPERSONA_CONTACTO_PROVValue: String;
|
||||
begin
|
||||
result := BusinessProcessor.CurrentChange.OldValueByName[fld_AlbaranesProveedorPERSONA_CONTACTO_PROV];
|
||||
end;
|
||||
|
||||
function TAlbaranesProveedorBusinessProcessorRules.GetOldPERSONA_CONTACTO_PROVIsNull: Boolean;
|
||||
begin
|
||||
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_AlbaranesProveedorPERSONA_CONTACTO_PROV]);
|
||||
end;
|
||||
|
||||
procedure TAlbaranesProveedorBusinessProcessorRules.SetPERSONA_CONTACTO_PROVValue(const aValue: String);
|
||||
begin
|
||||
BusinessProcessor.CurrentChange.NewValueByName[fld_AlbaranesProveedorPERSONA_CONTACTO_PROV] := aValue;
|
||||
end;
|
||||
|
||||
procedure TAlbaranesProveedorBusinessProcessorRules.SetPERSONA_CONTACTO_PROVIsNull(const aValue: Boolean);
|
||||
begin
|
||||
if aValue then
|
||||
BusinessProcessor.CurrentChange.NewValueByName[fld_AlbaranesProveedorPERSONA_CONTACTO_PROV] := Null;
|
||||
end;
|
||||
|
||||
function TAlbaranesProveedorBusinessProcessorRules.GetFECHA_ALBARANValue: DateTime;
|
||||
begin
|
||||
result := BusinessProcessor.CurrentChange.NewValueByName[fld_AlbaranesProveedorFECHA_ALBARAN];
|
||||
|
||||
@ -108,7 +108,7 @@ begin
|
||||
|
||||
AInforme := DarRutaFichero(DarRutaInformes, rptInforme);
|
||||
if VarIsNull(AInforme) then
|
||||
raise Exception.Create (('Error Servidor: GenerarAlbaran, no encuentra informe' + rptInforme));
|
||||
raise Exception.Create (('Error Servidor: GenerarAlbaran, no encuentra informe ' + rptInforme));
|
||||
|
||||
frxReport.LoadFromFile(AInforme, True);
|
||||
frxReport.PrepareReport(False);
|
||||
|
||||
@ -169,6 +169,14 @@ object srvAlbaranesProveedor: TsrvAlbaranesProveedor
|
||||
item
|
||||
DatasetField = 'TIPO_ALMACEN'
|
||||
TableField = 'TIPO_ALMACEN'
|
||||
end
|
||||
item
|
||||
DatasetField = 'ID_DIRECCION'
|
||||
TableField = 'ID_DIRECCION'
|
||||
end
|
||||
item
|
||||
DatasetField = 'PERSONA_CONTACTO_PROV'
|
||||
TableField = 'PERSONA_CONTACTO_PROV'
|
||||
end>
|
||||
end>
|
||||
Name = 'AlbaranesProveedor'
|
||||
@ -198,6 +206,17 @@ object srvAlbaranesProveedor: TsrvAlbaranesProveedor
|
||||
ServerAutoRefresh = True
|
||||
DictionaryEntry = 'AlbaranesProveedor_NOMBRE'
|
||||
end
|
||||
item
|
||||
Name = 'ID_DIRECCION'
|
||||
DataType = datInteger
|
||||
DictionaryEntry = 'AlbaranesProveedor_ID_DIRECCION'
|
||||
end
|
||||
item
|
||||
Name = 'PERSONA_CONTACTO_PROV'
|
||||
DataType = datString
|
||||
Size = 255
|
||||
DictionaryEntry = 'AlbaranesProveedor_PERSONA_CONTACTO_PROV'
|
||||
end
|
||||
item
|
||||
Name = 'FECHA_ALBARAN'
|
||||
DataType = datDateTime
|
||||
@ -231,6 +250,7 @@ object srvAlbaranesProveedor: TsrvAlbaranesProveedor
|
||||
DataType = datString
|
||||
Size = 10
|
||||
ServerAutoRefresh = True
|
||||
DictionaryEntry = 'AlbaranesProveedor_TIPO_ALMACEN'
|
||||
end
|
||||
item
|
||||
Name = 'NOMBRE_ALMACEN'
|
||||
@ -578,6 +598,14 @@ object srvAlbaranesProveedor: TsrvAlbaranesProveedor
|
||||
Commands = <
|
||||
item
|
||||
Params = <
|
||||
item
|
||||
Name = 'PERSONA_CONTACTO_PROV'
|
||||
Value = ''
|
||||
end
|
||||
item
|
||||
Name = 'ID_DIRECCION'
|
||||
Value = ''
|
||||
end
|
||||
item
|
||||
Name = 'ID'
|
||||
DataType = datAutoInc
|
||||
@ -714,24 +742,25 @@ object srvAlbaranesProveedor: TsrvAlbaranesProveedor
|
||||
TargetTable = 'ALBARANES_PROVEEDOR'
|
||||
SQL =
|
||||
'INSERT INTO ALBARANES_PROVEEDOR ('#10' ID,'#10' ID_EMPRESA,'#10' ID' +
|
||||
'_PROVEEDOR,'#10' FECHA_ALBARAN,'#10' ID_PEDIDO,'#10' ID_FACTURA,'#10' ' +
|
||||
' TIPO,'#10' REFERENCIA,'#10' REFERENCIA_PROVEEDOR,'#10' REF_FACTUR' +
|
||||
'A_PROV,'#10' CALLE,'#10' CODIGO_POSTAL,'#10' POBLACION,'#10' PROVINC' +
|
||||
'IA,'#10' PERSONA_CONTACTO,'#10' TELEFONO,'#10' BASE_IMPONIBLE,'#10' ' +
|
||||
'DESCUENTO,'#10' IMPORTE_DESCUENTO,'#10' IVA,'#10' IMPORTE_IVA,'#10' ' +
|
||||
'IMPORTE_TOTAL,'#10' OBSERVACIONES,'#10' INCIDENCIAS,'#10' INCIDENCI' +
|
||||
'AS_ACTIVAS,'#10' FECHA_ALTA,'#10' FECHA_MODIFICACION,'#10' USUARIO,' +
|
||||
#10' ID_ALMACEN,'#10' ID_FORMA_PAGO,'#10' IMPORTE_NETO,'#10' IMPORT' +
|
||||
'E_PORTE)'#10' VALUES ('#10' :ID,'#10' :ID_EMPRESA,'#10' :ID_PROVEEDOR,' +
|
||||
#10' :FECHA_ALBARAN,'#10' :ID_PEDIDO,'#10' :ID_FACTURA,'#10' :TIPO,' +
|
||||
#10' :REFERENCIA,'#10' :REFERENCIA_PROVEEDOR,'#10' :REF_FACTURA_PR' +
|
||||
'OV,'#10' :CALLE,'#10' :CODIGO_POSTAL,'#10' :POBLACION,'#10' :PROVINC' +
|
||||
'IA,'#10' :PERSONA_CONTACTO,'#10' :TELEFONO,'#10' :BASE_IMPONIBLE,'#10' ' +
|
||||
' :DESCUENTO,'#10' :IMPORTE_DESCUENTO,'#10' :IVA,'#10' :IMPORTE_IV' +
|
||||
'A,'#10' :IMPORTE_TOTAL,'#10' :OBSERVACIONES,'#10' :INCIDENCIAS,'#10' ' +
|
||||
' :INCIDENCIAS_ACTIVAS,'#10' :FECHA_ALTA,'#10' :FECHA_MODIFICACION,' +
|
||||
#10' :USUARIO,'#10' :ID_ALMACEN,'#10' :ID_FORMA_PAGO,'#10' :IMPORTE' +
|
||||
'_NETO,'#10' :IMPORTE_PORTE);'#10
|
||||
'_PROVEEDOR,'#10' ID_DIRECCION,'#10' PERSONA_CONTACTO_PROV,'#10' FEC' +
|
||||
'HA_ALBARAN,'#10' ID_PEDIDO,'#10' ID_FACTURA,'#10' TIPO,'#10' REFEREN' +
|
||||
'CIA,'#10' REFERENCIA_PROVEEDOR,'#10' REF_FACTURA_PROV,'#10' CALLE,'#10 +
|
||||
' CODIGO_POSTAL,'#10' POBLACION,'#10' PROVINCIA,'#10' PERSONA_CON' +
|
||||
'TACTO,'#10' TELEFONO,'#10' BASE_IMPONIBLE,'#10' DESCUENTO,'#10' IMPO' +
|
||||
'RTE_DESCUENTO,'#10' IVA,'#10' IMPORTE_IVA,'#10' IMPORTE_TOTAL,'#10' ' +
|
||||
'OBSERVACIONES,'#10' INCIDENCIAS,'#10' INCIDENCIAS_ACTIVAS,'#10' FEC' +
|
||||
'HA_ALTA,'#10' FECHA_MODIFICACION,'#10' USUARIO,'#10' ID_ALMACEN,'#10' ' +
|
||||
' ID_FORMA_PAGO,'#10' IMPORTE_NETO,'#10' IMPORTE_PORTE)'#10' VALUES (' +
|
||||
#10' :ID,'#10' :ID_EMPRESA,'#10' :ID_PROVEEDOR,'#10' :ID_DIRECCION,' +
|
||||
#10' :PERSONA_CONTACTO_PROV,'#10' :FECHA_ALBARAN,'#10' :ID_PEDIDO,' +
|
||||
#10' :ID_FACTURA,'#10' :TIPO,'#10' :REFERENCIA,'#10' :REFERENCIA_PR' +
|
||||
'OVEEDOR,'#10' :REF_FACTURA_PROV,'#10' :CALLE,'#10' :CODIGO_POSTAL,'#10 +
|
||||
' :POBLACION,'#10' :PROVINCIA,'#10' :PERSONA_CONTACTO,'#10' :TELE' +
|
||||
'FONO,'#10' :BASE_IMPONIBLE,'#10' :DESCUENTO,'#10' :IMPORTE_DESCUENT' +
|
||||
'O,'#10' :IVA,'#10' :IMPORTE_IVA,'#10' :IMPORTE_TOTAL,'#10' :OBSERVAC' +
|
||||
'IONES,'#10' :INCIDENCIAS,'#10' :INCIDENCIAS_ACTIVAS,'#10' :FECHA_AL' +
|
||||
'TA,'#10' :FECHA_MODIFICACION,'#10' :USUARIO,'#10' :ID_ALMACEN,'#10' ' +
|
||||
':ID_FORMA_PAGO,'#10' :IMPORTE_NETO,'#10' :IMPORTE_PORTE);'#10
|
||||
StatementType = stSQL
|
||||
ColumnMappings = <>
|
||||
end>
|
||||
@ -757,6 +786,14 @@ object srvAlbaranesProveedor: TsrvAlbaranesProveedor
|
||||
end
|
||||
item
|
||||
Params = <
|
||||
item
|
||||
Name = 'PERSONA_CONTACTO_PROV'
|
||||
Value = ''
|
||||
end
|
||||
item
|
||||
Name = 'ID_DIRECCION'
|
||||
Value = ''
|
||||
end
|
||||
item
|
||||
Name = 'ID'
|
||||
Value = ''
|
||||
@ -895,23 +932,24 @@ object srvAlbaranesProveedor: TsrvAlbaranesProveedor
|
||||
TargetTable = 'ALBARANES_PROVEEDOR'
|
||||
SQL =
|
||||
'UPDATE ALBARANES_PROVEEDOR'#10' SET'#10' ID = :ID,'#10' ID_EMPRESA = ' +
|
||||
':ID_EMPRESA,'#10' ID_PROVEEDOR = :ID_PROVEEDOR,'#10' FECHA_ALBARAN' +
|
||||
' = :FECHA_ALBARAN,'#10' ID_PEDIDO = :ID_PEDIDO,'#10' ID_FACTURA = ' +
|
||||
':ID_FACTURA,'#10' TIPO = :TIPO,'#10' REFERENCIA = :REFERENCIA,'#10' ' +
|
||||
' REFERENCIA_PROVEEDOR = :REFERENCIA_PROVEEDOR,'#10' REF_FACTURA_P' +
|
||||
'ROV = :REF_FACTURA_PROV,'#10' CALLE = :CALLE,'#10' CODIGO_POSTAL =' +
|
||||
' :CODIGO_POSTAL,'#10' POBLACION = :POBLACION,'#10' PROVINCIA = :PR' +
|
||||
'OVINCIA,'#10' PERSONA_CONTACTO = :PERSONA_CONTACTO,'#10' TELEFONO ' +
|
||||
'= :TELEFONO,'#10' BASE_IMPONIBLE = :BASE_IMPONIBLE,'#10' DESCUENTO' +
|
||||
' = :DESCUENTO,'#10' IMPORTE_DESCUENTO = :IMPORTE_DESCUENTO,'#10' I' +
|
||||
'VA = :IVA,'#10' IMPORTE_IVA = :IMPORTE_IVA,'#10' IMPORTE_TOTAL = :' +
|
||||
'IMPORTE_TOTAL,'#10' OBSERVACIONES = :OBSERVACIONES,'#10' INCIDENCI' +
|
||||
'AS = :INCIDENCIAS,'#10' INCIDENCIAS_ACTIVAS = :INCIDENCIAS_ACTIVA' +
|
||||
'S,'#10' FECHA_ALTA = :FECHA_ALTA,'#10' FECHA_MODIFICACION = :FECHA' +
|
||||
'_MODIFICACION,'#10' USUARIO = :USUARIO,'#10' ID_ALMACEN = :ID_ALMA' +
|
||||
'CEN,'#10' ID_FORMA_PAGO = :ID_FORMA_PAGO,'#10' IMPORTE_NETO = :IMP' +
|
||||
'ORTE_NETO,'#10' IMPORTE_PORTE = :IMPORTE_PORTE'#10' WHERE'#10' (ID = :O' +
|
||||
'LD_ID);'#10
|
||||
':ID_EMPRESA,'#10' ID_PROVEEDOR = :ID_PROVEEDOR,'#10' ID_DIRECCION ' +
|
||||
'= :ID_DIRECCION,'#10' PERSONA_CONTACTO_PROV = :PERSONA_CONTACTO_P' +
|
||||
'ROV,'#10' FECHA_ALBARAN = :FECHA_ALBARAN,'#10' ID_PEDIDO = :ID_PED' +
|
||||
'IDO,'#10' ID_FACTURA = :ID_FACTURA,'#10' TIPO = :TIPO,'#10' REFEREN' +
|
||||
'CIA = :REFERENCIA,'#10' REFERENCIA_PROVEEDOR = :REFERENCIA_PROVEE' +
|
||||
'DOR,'#10' REF_FACTURA_PROV = :REF_FACTURA_PROV,'#10' CALLE = :CALL' +
|
||||
'E,'#10' CODIGO_POSTAL = :CODIGO_POSTAL,'#10' POBLACION = :POBLACIO' +
|
||||
'N,'#10' PROVINCIA = :PROVINCIA,'#10' PERSONA_CONTACTO = :PERSONA_C' +
|
||||
'ONTACTO,'#10' TELEFONO = :TELEFONO,'#10' BASE_IMPONIBLE = :BASE_IM' +
|
||||
'PONIBLE,'#10' DESCUENTO = :DESCUENTO,'#10' IMPORTE_DESCUENTO = :IM' +
|
||||
'PORTE_DESCUENTO,'#10' IVA = :IVA,'#10' IMPORTE_IVA = :IMPORTE_IVA,' +
|
||||
#10' IMPORTE_TOTAL = :IMPORTE_TOTAL,'#10' OBSERVACIONES = :OBSERV' +
|
||||
'ACIONES,'#10' INCIDENCIAS = :INCIDENCIAS,'#10' INCIDENCIAS_ACTIVAS' +
|
||||
' = :INCIDENCIAS_ACTIVAS,'#10' FECHA_ALTA = :FECHA_ALTA,'#10' FECHA' +
|
||||
'_MODIFICACION = :FECHA_MODIFICACION,'#10' USUARIO = :USUARIO,'#10' ' +
|
||||
' ID_ALMACEN = :ID_ALMACEN,'#10' ID_FORMA_PAGO = :ID_FORMA_PAGO,'#10' ' +
|
||||
' IMPORTE_NETO = :IMPORTE_NETO,'#10' IMPORTE_PORTE = :IMPORTE_PO' +
|
||||
'RTE'#10' WHERE'#10' (ID = :OLD_ID);'#10
|
||||
StatementType = stSQL
|
||||
ColumnMappings = <>
|
||||
end>
|
||||
@ -1505,6 +1543,23 @@ object srvAlbaranesProveedor: TsrvAlbaranesProveedor
|
||||
DataType = datString
|
||||
Size = 255
|
||||
DisplayLabel = 'Ref. factura prov'
|
||||
end
|
||||
item
|
||||
Name = 'AlbaranesProveedor_ID_DIRECCION'
|
||||
DataType = datInteger
|
||||
DisplayLabel = 'ID_DIRECCION'
|
||||
end
|
||||
item
|
||||
Name = 'AlbaranesProveedor_PERSONA_CONTACTO_PROV'
|
||||
DataType = datString
|
||||
Size = 255
|
||||
DisplayLabel = 'Contacto del proveedor'
|
||||
end
|
||||
item
|
||||
Name = 'AlbaranesProveedor_TIPO_ALMACEN'
|
||||
DataType = datString
|
||||
Size = 10
|
||||
ServerAutoRefresh = True
|
||||
end>
|
||||
Left = 48
|
||||
Top = 128
|
||||
|
||||
Binary file not shown.
@ -49,14 +49,16 @@
|
||||
<DelphiCompile Include="AlbaranesProveedor_view.dpk">
|
||||
<MainSource>MainSource</MainSource>
|
||||
</DelphiCompile>
|
||||
<DCCReference Include="..\..\Presupuestos de cliente\AlbaranesProveedor_controller.dcp" />
|
||||
<DCCReference Include="..\..\Presupuestos de cliente\AlbaranesProveedor_model.dcp" />
|
||||
<DCCReference Include="..\..\Presupuestos de cliente\AlbProv_FacProv_relation.dcp" />
|
||||
<DCCReference Include="..\..\Presupuestos de cliente\Almacenes_controller.dcp" />
|
||||
<DCCReference Include="..\..\Presupuestos de cliente\Almacenes_model.dcp" />
|
||||
<DCCReference Include="..\..\Presupuestos de cliente\Articulos_view.dcp" />
|
||||
<DCCReference Include="..\..\Presupuestos de cliente\GUIBase.dcp" />
|
||||
<DCCReference Include="..\..\Presupuestos de cliente\PedProv_AlbProv_relation.dcp" />
|
||||
<DCCReference Include="AlbaranesProveedor_controller.dcp" />
|
||||
<DCCReference Include="AlbaranesProveedor_model.dcp" />
|
||||
<DCCReference Include="AlbProv_FacProv_relation.dcp" />
|
||||
<DCCReference Include="Almacenes_controller.dcp" />
|
||||
<DCCReference Include="Almacenes_model.dcp" />
|
||||
<DCCReference Include="ApplicationBase.dcp" />
|
||||
<DCCReference Include="Articulos_view.dcp" />
|
||||
<DCCReference Include="Base.dcp" />
|
||||
<DCCReference Include="GUIBase.dcp" />
|
||||
<DCCReference Include="PedProv_AlbProv_relation.dcp" />
|
||||
<DCCReference Include="uAlbaranesProveedorViewRegister.pas" />
|
||||
<DCCReference Include="uEditorAlbaranDevProveedor.pas">
|
||||
<Form>fEditorAlbaranDevProveedor</Form>
|
||||
@ -106,6 +108,10 @@
|
||||
<Form>frViewAlbaranProveedor</Form>
|
||||
<DesignClass>TFrame</DesignClass>
|
||||
</DCCReference>
|
||||
<DCCReference Include="uViewDatosYSeleccionProveedorAlbaran.pas">
|
||||
<Form>fruViewDatosYSeleccionProveedorAlbaran</Form>
|
||||
<DesignClass>TCustomView</DesignClass>
|
||||
</DCCReference>
|
||||
<DCCReference Include="uViewDetallesAlbaranProveedor.pas">
|
||||
<Form>frViewDetallesAlbaranProveedor</Form>
|
||||
<DesignClass>TFrame</DesignClass>
|
||||
|
||||
@ -188,102 +188,103 @@ inherited fEditorAlbaranProveedor: TfEditorAlbaranProveedor
|
||||
ExplicitHeight = 426
|
||||
inherited ToolBar1: TToolBar
|
||||
Width = 751
|
||||
Height = 51
|
||||
Height = 46
|
||||
ExplicitWidth = 751
|
||||
ExplicitHeight = 51
|
||||
inherited ToolButton14: TToolButton [3]
|
||||
ExplicitHeight = 46
|
||||
inherited ToolButton3: TToolButton
|
||||
Wrap = False
|
||||
end
|
||||
inherited ToolButton4: TToolButton
|
||||
Left = 278
|
||||
Top = 0
|
||||
Wrap = True
|
||||
ExplicitLeft = 278
|
||||
ExplicitTop = 0
|
||||
end
|
||||
inherited FontName: TJvFontComboBox
|
||||
Left = 343
|
||||
Top = 0
|
||||
ExplicitLeft = 343
|
||||
ExplicitTop = 0
|
||||
inherited ToolButton14: TToolButton
|
||||
Left = 0
|
||||
Wrap = False
|
||||
ExplicitLeft = 0
|
||||
end
|
||||
inherited FontSize: TEdit [5]
|
||||
Left = 488
|
||||
Top = 0
|
||||
inherited FontName: TJvFontComboBox
|
||||
Left = 65
|
||||
Top = 22
|
||||
ExplicitLeft = 65
|
||||
ExplicitTop = 22
|
||||
end
|
||||
inherited FontSize: TEdit
|
||||
Left = 210
|
||||
Top = 22
|
||||
Width = 90
|
||||
ExplicitLeft = 488
|
||||
ExplicitTop = 0
|
||||
ExplicitLeft = 210
|
||||
ExplicitTop = 22
|
||||
ExplicitWidth = 90
|
||||
end
|
||||
inherited UpDown1: TUpDown [6]
|
||||
Left = 578
|
||||
Top = 0
|
||||
ExplicitLeft = 578
|
||||
ExplicitTop = 0
|
||||
inherited UpDown1: TUpDown
|
||||
Left = 300
|
||||
Top = 22
|
||||
ExplicitLeft = 300
|
||||
ExplicitTop = 22
|
||||
end
|
||||
inherited ToolButton13: TToolButton [7]
|
||||
Left = 0
|
||||
Top = 0
|
||||
Wrap = True
|
||||
ExplicitLeft = 0
|
||||
ExplicitTop = 0
|
||||
ExplicitHeight = 27
|
||||
inherited ToolButton13: TToolButton
|
||||
Left = 317
|
||||
Top = 22
|
||||
ExplicitLeft = 317
|
||||
ExplicitTop = 22
|
||||
end
|
||||
inherited ToolButton4: TToolButton [8]
|
||||
Top = 27
|
||||
inherited ToolButton6: TToolButton
|
||||
Left = 325
|
||||
Top = 22
|
||||
ExplicitLeft = 325
|
||||
ExplicitTop = 22
|
||||
end
|
||||
inherited ToolButton6: TToolButton [9]
|
||||
Left = 56
|
||||
Top = 27
|
||||
ExplicitLeft = 56
|
||||
ExplicitTop = 27
|
||||
inherited ToolButton7: TToolButton
|
||||
Left = 391
|
||||
Top = 22
|
||||
ExplicitLeft = 391
|
||||
ExplicitTop = 22
|
||||
end
|
||||
inherited ToolButton7: TToolButton [10]
|
||||
Left = 122
|
||||
Top = 27
|
||||
Wrap = False
|
||||
ExplicitLeft = 122
|
||||
ExplicitTop = 27
|
||||
inherited ToolButton8: TToolButton
|
||||
Left = 458
|
||||
Top = 22
|
||||
ExplicitLeft = 458
|
||||
ExplicitTop = 22
|
||||
end
|
||||
inherited ToolButton8: TToolButton [11]
|
||||
Left = 189
|
||||
Top = 27
|
||||
ExplicitLeft = 189
|
||||
ExplicitTop = 27
|
||||
inherited ToolButton12: TToolButton
|
||||
Left = 541
|
||||
Top = 22
|
||||
ExplicitLeft = 541
|
||||
ExplicitTop = 22
|
||||
end
|
||||
inherited ToolButton12: TToolButton [12]
|
||||
Left = 272
|
||||
Top = 27
|
||||
Wrap = False
|
||||
ExplicitLeft = 272
|
||||
ExplicitTop = 27
|
||||
ExplicitHeight = 22
|
||||
inherited ToolButton9: TToolButton
|
||||
Left = 549
|
||||
Top = 22
|
||||
ExplicitLeft = 549
|
||||
ExplicitTop = 22
|
||||
end
|
||||
inherited ToolButton9: TToolButton [13]
|
||||
Left = 280
|
||||
Top = 27
|
||||
ExplicitLeft = 280
|
||||
ExplicitTop = 27
|
||||
inherited ToolButton10: TToolButton
|
||||
Left = 694
|
||||
Top = 22
|
||||
ExplicitLeft = 694
|
||||
ExplicitTop = 22
|
||||
end
|
||||
inherited ToolButton10: TToolButton [14]
|
||||
Left = 425
|
||||
Top = 27
|
||||
ExplicitLeft = 425
|
||||
ExplicitTop = 27
|
||||
end
|
||||
inherited ToolButton11: TToolButton [15]
|
||||
Left = 550
|
||||
Top = 27
|
||||
ExplicitLeft = 550
|
||||
ExplicitTop = 27
|
||||
inherited ToolButton11: TToolButton
|
||||
Left = 819
|
||||
Top = 22
|
||||
ExplicitLeft = 819
|
||||
ExplicitTop = 22
|
||||
end
|
||||
end
|
||||
inherited cxGrid: TcxGrid
|
||||
Top = 77
|
||||
Top = 72
|
||||
Width = 751
|
||||
Height = 349
|
||||
Height = 354
|
||||
ExplicitTop = 77
|
||||
ExplicitWidth = 751
|
||||
ExplicitHeight = 349
|
||||
end
|
||||
inherited TBXDock1: TTBXDock
|
||||
Top = 51
|
||||
Top = 46
|
||||
Width = 751
|
||||
ExplicitTop = 51
|
||||
ExplicitWidth = 751
|
||||
|
||||
@ -291,7 +291,6 @@ begin
|
||||
|
||||
if Assigned(FController) then
|
||||
begin
|
||||
ViewAlbaran.ViewProveedorAlbaran.Controller := Controller.ProveedorController;
|
||||
frViewDetallesAlbaranProveedor1.Controller := Controller.DetallesController;
|
||||
end;
|
||||
end;
|
||||
@ -308,11 +307,14 @@ begin
|
||||
|
||||
if Assigned(FViewAlbaran) then
|
||||
begin
|
||||
FViewAlbaran.Albaran := FAlbaran;
|
||||
ViewAlbaran.ViewProveedorAlbaran.Proveedor := FAlbaran.Proveedor;
|
||||
ViewAlbaran.ViewProveedorAlbaran.OnProveedorChanged := OnProveedorChanged;
|
||||
frViewDetallesAlbaranProveedor1.Detalles := FAlbaran.Detalles;
|
||||
frViewDetallesAlbaranProveedor1.Albaran := FAlbaran; //Para poder sacar los descuento del articulos segun el proveedor seleccionado
|
||||
ViewAlbaran.ViewProveedorAlbaran.OnProveedorChanged := NIL;
|
||||
try
|
||||
FViewAlbaran.Albaran := FAlbaran;
|
||||
frViewDetallesAlbaranProveedor1.Detalles := FAlbaran.Detalles;
|
||||
frViewDetallesAlbaranProveedor1.Albaran := FAlbaran; //Para poder sacar los descuento del articulos segun el proveedor seleccionado
|
||||
finally
|
||||
ViewAlbaran.ViewProveedorAlbaran.OnProveedorChanged := OnProveedorChanged;
|
||||
end;
|
||||
end;
|
||||
end;
|
||||
end;
|
||||
|
||||
@ -30,19 +30,23 @@ inherited frViewAlbaranProveedor: TfrViewAlbaranProveedor
|
||||
Style.Color = clInfoBk
|
||||
Style.HotTrack = False
|
||||
Style.LookAndFeel.NativeStyle = True
|
||||
Style.LookAndFeel.SkinName = ''
|
||||
Style.Shadow = False
|
||||
Style.ButtonStyle = bts3D
|
||||
Style.ButtonTransparency = ebtNone
|
||||
Style.PopupBorderStyle = epbsFrame3D
|
||||
StyleDisabled.LookAndFeel.NativeStyle = True
|
||||
StyleDisabled.LookAndFeel.SkinName = ''
|
||||
StyleFocused.LookAndFeel.NativeStyle = True
|
||||
StyleFocused.LookAndFeel.SkinName = ''
|
||||
StyleHot.LookAndFeel.NativeStyle = True
|
||||
StyleHot.LookAndFeel.SkinName = ''
|
||||
TabOrder = 2
|
||||
Width = 325
|
||||
end
|
||||
object memObservaciones: TcxDBMemo
|
||||
Left = 474
|
||||
Top = 276
|
||||
Left = 434
|
||||
Top = 235
|
||||
Anchors = [akLeft, akTop, akRight, akBottom]
|
||||
DataBinding.DataField = 'OBSERVACIONES'
|
||||
DataBinding.DataSource = DADataSource
|
||||
@ -51,9 +55,13 @@ inherited frViewAlbaranProveedor: TfrViewAlbaranProveedor
|
||||
Style.BorderStyle = ebs3D
|
||||
Style.HotTrack = False
|
||||
Style.LookAndFeel.NativeStyle = True
|
||||
Style.LookAndFeel.SkinName = ''
|
||||
StyleDisabled.LookAndFeel.NativeStyle = True
|
||||
StyleDisabled.LookAndFeel.SkinName = ''
|
||||
StyleFocused.LookAndFeel.NativeStyle = True
|
||||
StyleFocused.LookAndFeel.SkinName = ''
|
||||
StyleHot.LookAndFeel.NativeStyle = True
|
||||
StyleHot.LookAndFeel.SkinName = ''
|
||||
TabOrder = 11
|
||||
Height = 287
|
||||
Width = 331
|
||||
@ -72,79 +80,18 @@ inherited frViewAlbaranProveedor: TfrViewAlbaranProveedor
|
||||
Style.Color = clWindow
|
||||
Style.HotTrack = False
|
||||
Style.LookAndFeel.NativeStyle = True
|
||||
Style.LookAndFeel.SkinName = ''
|
||||
StyleDisabled.Color = clMenuBar
|
||||
StyleDisabled.LookAndFeel.NativeStyle = True
|
||||
StyleDisabled.LookAndFeel.SkinName = ''
|
||||
StyleDisabled.TextColor = clWindowText
|
||||
StyleFocused.LookAndFeel.NativeStyle = True
|
||||
StyleFocused.LookAndFeel.SkinName = ''
|
||||
StyleHot.LookAndFeel.NativeStyle = True
|
||||
StyleHot.LookAndFeel.SkinName = ''
|
||||
TabOrder = 0
|
||||
Width = 325
|
||||
end
|
||||
inline frViewProveedorAlbaran: TfrViewDatosYSeleccionProveedor
|
||||
Left = 474
|
||||
Top = 28
|
||||
Width = 331
|
||||
Height = 212
|
||||
Font.Charset = DEFAULT_CHARSET
|
||||
Font.Color = clWindowText
|
||||
Font.Height = -11
|
||||
Font.Name = 'Tahoma'
|
||||
Font.Style = []
|
||||
ParentFont = False
|
||||
TabOrder = 10
|
||||
ReadOnly = False
|
||||
ExplicitLeft = 474
|
||||
ExplicitTop = 28
|
||||
ExplicitWidth = 331
|
||||
ExplicitHeight = 212
|
||||
inherited dxLayoutControl1: TdxLayoutControl
|
||||
Width = 331
|
||||
ExplicitWidth = 331
|
||||
inherited edtlNombre: TcxDBTextEdit
|
||||
ExplicitWidth = 257
|
||||
Width = 257
|
||||
end
|
||||
inherited edtNIFCIF: TcxDBTextEdit
|
||||
ExplicitWidth = 257
|
||||
Width = 257
|
||||
end
|
||||
inherited edtCalle: TcxDBTextEdit
|
||||
ExplicitWidth = 257
|
||||
Width = 257
|
||||
end
|
||||
inherited edtPoblacion: TcxDBTextEdit
|
||||
ExplicitWidth = 139
|
||||
Width = 139
|
||||
end
|
||||
inherited edtProvincia: TcxDBTextEdit
|
||||
ExplicitWidth = 257
|
||||
Width = 257
|
||||
end
|
||||
inherited edtCodigoPostal: TcxDBTextEdit
|
||||
Left = 239
|
||||
ExplicitLeft = 239
|
||||
end
|
||||
inherited Button3: TBitBtn
|
||||
Left = 123
|
||||
ExplicitLeft = 123
|
||||
end
|
||||
end
|
||||
inherited DADataSource: TDADataSource
|
||||
Top = 72
|
||||
end
|
||||
inherited ActionList1: TActionList
|
||||
Top = 72
|
||||
inherited actElegirContacto: TAction
|
||||
OnUpdate = frViewProveedorAlbaranactElegirContactoUpdate
|
||||
end
|
||||
inherited actAnadirContacto: TAction
|
||||
OnUpdate = frViewProveedorAlbaranactAnadirContactoUpdate
|
||||
end
|
||||
end
|
||||
inherited PngImageList: TPngImageList
|
||||
Top = 72
|
||||
end
|
||||
end
|
||||
inline frViewDireccionEntregaAlbaranProv1: TfrViewDireccionEntregaAlbaranProv
|
||||
Left = 22
|
||||
Top = 249
|
||||
@ -176,13 +123,17 @@ inherited frViewAlbaranProveedor: TfrViewAlbaranProveedor
|
||||
ExplicitWidth = 402
|
||||
end
|
||||
inherited cbLista: TcxDBLookupComboBox
|
||||
Style.LookAndFeel.SkinName = ''
|
||||
StyleDisabled.LookAndFeel.SkinName = ''
|
||||
StyleFocused.LookAndFeel.SkinName = ''
|
||||
StyleHot.LookAndFeel.SkinName = ''
|
||||
ExplicitWidth = 402
|
||||
Width = 402
|
||||
end
|
||||
inherited bModificar: TBitBtn
|
||||
Left = 284
|
||||
Left = 244
|
||||
Top = 279
|
||||
ExplicitLeft = 284
|
||||
ExplicitLeft = 244
|
||||
ExplicitTop = 279
|
||||
end
|
||||
inherited txtDireccion: TStaticText
|
||||
@ -192,6 +143,10 @@ inherited frViewAlbaranProveedor: TfrViewAlbaranProveedor
|
||||
ExplicitHeight = 140
|
||||
end
|
||||
inherited cbListaObras: TcxDBLookupComboBox
|
||||
Style.LookAndFeel.SkinName = ''
|
||||
StyleDisabled.LookAndFeel.SkinName = ''
|
||||
StyleFocused.LookAndFeel.SkinName = ''
|
||||
StyleHot.LookAndFeel.SkinName = ''
|
||||
ExplicitWidth = 402
|
||||
Width = 402
|
||||
end
|
||||
@ -224,19 +179,23 @@ inherited frViewAlbaranProveedor: TfrViewAlbaranProveedor
|
||||
Style.HotTrack = False
|
||||
Style.LookAndFeel.Kind = lfStandard
|
||||
Style.LookAndFeel.NativeStyle = True
|
||||
Style.LookAndFeel.SkinName = ''
|
||||
Style.ButtonStyle = bts3D
|
||||
Style.PopupBorderStyle = epbsFrame3D
|
||||
StyleDisabled.LookAndFeel.Kind = lfStandard
|
||||
StyleDisabled.LookAndFeel.NativeStyle = True
|
||||
StyleDisabled.LookAndFeel.SkinName = ''
|
||||
StyleFocused.LookAndFeel.Kind = lfStandard
|
||||
StyleFocused.LookAndFeel.NativeStyle = True
|
||||
StyleFocused.LookAndFeel.SkinName = ''
|
||||
StyleHot.LookAndFeel.Kind = lfStandard
|
||||
StyleHot.LookAndFeel.NativeStyle = True
|
||||
StyleHot.LookAndFeel.SkinName = ''
|
||||
TabOrder = 7
|
||||
Width = 187
|
||||
end
|
||||
object bFormasPago: TButton
|
||||
Left = 312
|
||||
Left = 272
|
||||
Top = 192
|
||||
Width = 132
|
||||
Height = 21
|
||||
@ -257,18 +216,22 @@ inherited frViewAlbaranProveedor: TfrViewAlbaranProveedor
|
||||
Style.HotTrack = False
|
||||
Style.LookAndFeel.Kind = lfStandard
|
||||
Style.LookAndFeel.NativeStyle = True
|
||||
Style.LookAndFeel.SkinName = ''
|
||||
StyleDisabled.LookAndFeel.Kind = lfStandard
|
||||
StyleDisabled.LookAndFeel.NativeStyle = True
|
||||
StyleDisabled.LookAndFeel.SkinName = ''
|
||||
StyleDisabled.TextColor = clWindowText
|
||||
StyleFocused.LookAndFeel.Kind = lfStandard
|
||||
StyleFocused.LookAndFeel.NativeStyle = True
|
||||
StyleFocused.LookAndFeel.SkinName = ''
|
||||
StyleHot.LookAndFeel.Kind = lfStandard
|
||||
StyleHot.LookAndFeel.NativeStyle = True
|
||||
StyleHot.LookAndFeel.SkinName = ''
|
||||
TabOrder = 3
|
||||
Width = 187
|
||||
end
|
||||
object Button1: TButton
|
||||
Left = 312
|
||||
Left = 272
|
||||
Top = 109
|
||||
Width = 132
|
||||
Height = 23
|
||||
@ -290,14 +253,18 @@ inherited frViewAlbaranProveedor: TfrViewAlbaranProveedor
|
||||
Style.HotTrack = False
|
||||
Style.LookAndFeel.Kind = lfStandard
|
||||
Style.LookAndFeel.NativeStyle = True
|
||||
Style.LookAndFeel.SkinName = ''
|
||||
StyleDisabled.Color = clMenuBar
|
||||
StyleDisabled.LookAndFeel.Kind = lfStandard
|
||||
StyleDisabled.LookAndFeel.NativeStyle = True
|
||||
StyleDisabled.LookAndFeel.SkinName = ''
|
||||
StyleDisabled.TextColor = clWindowText
|
||||
StyleFocused.LookAndFeel.Kind = lfStandard
|
||||
StyleFocused.LookAndFeel.NativeStyle = True
|
||||
StyleFocused.LookAndFeel.SkinName = ''
|
||||
StyleHot.LookAndFeel.Kind = lfStandard
|
||||
StyleHot.LookAndFeel.NativeStyle = True
|
||||
StyleHot.LookAndFeel.SkinName = ''
|
||||
TabOrder = 5
|
||||
Width = 325
|
||||
end
|
||||
@ -314,11 +281,15 @@ inherited frViewAlbaranProveedor: TfrViewAlbaranProveedor
|
||||
Style.Color = clWindow
|
||||
Style.HotTrack = False
|
||||
Style.LookAndFeel.NativeStyle = True
|
||||
Style.LookAndFeel.SkinName = ''
|
||||
StyleDisabled.Color = clMenuBar
|
||||
StyleDisabled.LookAndFeel.NativeStyle = True
|
||||
StyleDisabled.LookAndFeel.SkinName = ''
|
||||
StyleDisabled.TextColor = clWindowText
|
||||
StyleFocused.LookAndFeel.NativeStyle = True
|
||||
StyleFocused.LookAndFeel.SkinName = ''
|
||||
StyleHot.LookAndFeel.NativeStyle = True
|
||||
StyleHot.LookAndFeel.SkinName = ''
|
||||
TabOrder = 1
|
||||
Width = 325
|
||||
end
|
||||
@ -336,17 +307,98 @@ inherited frViewAlbaranProveedor: TfrViewAlbaranProveedor
|
||||
Style.HotTrack = False
|
||||
Style.LookAndFeel.Kind = lfStandard
|
||||
Style.LookAndFeel.NativeStyle = True
|
||||
Style.LookAndFeel.SkinName = ''
|
||||
StyleDisabled.Color = clMenuBar
|
||||
StyleDisabled.LookAndFeel.Kind = lfStandard
|
||||
StyleDisabled.LookAndFeel.NativeStyle = True
|
||||
StyleDisabled.LookAndFeel.SkinName = ''
|
||||
StyleDisabled.TextColor = clWindowText
|
||||
StyleFocused.LookAndFeel.Kind = lfStandard
|
||||
StyleFocused.LookAndFeel.NativeStyle = True
|
||||
StyleFocused.LookAndFeel.SkinName = ''
|
||||
StyleHot.LookAndFeel.Kind = lfStandard
|
||||
StyleHot.LookAndFeel.NativeStyle = True
|
||||
StyleHot.LookAndFeel.SkinName = ''
|
||||
TabOrder = 6
|
||||
Width = 325
|
||||
end
|
||||
inline frViewDatosYSeleccionProveedorAlbaran1: TfrViewDatosYSeleccionProveedorAlbaran
|
||||
Left = 434
|
||||
Top = 28
|
||||
Width = 411
|
||||
Height = 171
|
||||
Font.Charset = DEFAULT_CHARSET
|
||||
Font.Color = clWindowText
|
||||
Font.Height = -11
|
||||
Font.Name = 'Tahoma'
|
||||
Font.Style = []
|
||||
ParentFont = False
|
||||
TabOrder = 10
|
||||
ReadOnly = False
|
||||
ExplicitLeft = 434
|
||||
ExplicitTop = 28
|
||||
ExplicitWidth = 411
|
||||
inherited dxLayoutControl1: TdxLayoutControl
|
||||
Width = 411
|
||||
ExplicitWidth = 411
|
||||
inherited edtlNombre: TcxDBTextEdit
|
||||
Style.LookAndFeel.SkinName = ''
|
||||
StyleDisabled.LookAndFeel.SkinName = ''
|
||||
StyleFocused.LookAndFeel.SkinName = ''
|
||||
StyleHot.LookAndFeel.SkinName = ''
|
||||
ExplicitWidth = 224
|
||||
Width = 224
|
||||
end
|
||||
inherited edtNIFCIF: TcxDBTextEdit
|
||||
Left = 258
|
||||
Style.LookAndFeel.SkinName = ''
|
||||
StyleDisabled.LookAndFeel.SkinName = ''
|
||||
StyleFocused.LookAndFeel.SkinName = ''
|
||||
StyleHot.LookAndFeel.SkinName = ''
|
||||
ExplicitLeft = 258
|
||||
end
|
||||
inherited edtPersonaContacto: TcxDBTextEdit
|
||||
Style.LookAndFeel.SkinName = ''
|
||||
StyleDisabled.LookAndFeel.SkinName = ''
|
||||
StyleFocused.LookAndFeel.SkinName = ''
|
||||
StyleHot.LookAndFeel.SkinName = ''
|
||||
ExplicitWidth = 283
|
||||
Width = 283
|
||||
end
|
||||
inherited edtDireccion: TcxTextEdit
|
||||
Style.LookAndFeel.SkinName = ''
|
||||
StyleDisabled.LookAndFeel.SkinName = ''
|
||||
StyleFocused.LookAndFeel.SkinName = ''
|
||||
StyleHot.LookAndFeel.SkinName = ''
|
||||
ExplicitWidth = 121
|
||||
Width = 121
|
||||
end
|
||||
inherited Button4: TButton
|
||||
Left = 338
|
||||
ExplicitLeft = 338
|
||||
end
|
||||
inherited Button5: TButton
|
||||
Left = 338
|
||||
ExplicitLeft = 338
|
||||
end
|
||||
inherited Button3: TBitBtn
|
||||
Left = 163
|
||||
ExplicitLeft = 163
|
||||
end
|
||||
end
|
||||
inherited dsProveedor: TDADataSource
|
||||
Left = 288
|
||||
Top = 24
|
||||
end
|
||||
inherited ActionList1: TActionList
|
||||
Left = 312
|
||||
Top = 65528
|
||||
end
|
||||
inherited dsAlbaran: TDADataSource
|
||||
Left = 280
|
||||
Top = 65528
|
||||
end
|
||||
end
|
||||
object dxLayoutControl1Group_Root: TdxLayoutGroup
|
||||
ShowCaption = False
|
||||
Hidden = True
|
||||
@ -450,7 +502,9 @@ inherited frViewAlbaranProveedor: TfrViewAlbaranProveedor
|
||||
object dxLayoutControl1Group2: TdxLayoutGroup
|
||||
Caption = 'Datos del proveedor'
|
||||
object dxLayoutControl1Item1: TdxLayoutItem
|
||||
Control = frViewProveedorAlbaran
|
||||
Caption = 'New Item'
|
||||
ShowCaption = False
|
||||
Control = frViewDatosYSeleccionProveedorAlbaran1
|
||||
ControlOptions.AutoColor = True
|
||||
ControlOptions.ShowBorder = False
|
||||
end
|
||||
@ -478,7 +532,6 @@ inherited frViewAlbaranProveedor: TfrViewAlbaranProveedor
|
||||
Top = 120
|
||||
object actElegirDireccion: TAction
|
||||
Caption = 'Elegir una direcci'#243'n de env'#237'o...'
|
||||
OnExecute = actElegirDireccionExecute
|
||||
OnUpdate = actElegirDireccionUpdate
|
||||
end
|
||||
object actVerPedido: TAction
|
||||
|
||||
@ -7,13 +7,13 @@ uses
|
||||
Dialogs, uViewBase, uBizAlbaranesProveedor, DB, uDADataTable, uCustomView,
|
||||
AppEvnts, StdCtrls, Mask, DBCtrls,
|
||||
|
||||
uViewObservaciones, uViewDatosYSeleccionProveedor,
|
||||
uViewObservaciones,
|
||||
cxGraphics, cxDropDownEdit, cxImageComboBox, cxDBEdit, cxContainer, cxEdit,
|
||||
cxTextEdit, cxMaskEdit, cxCalendar, dxLayoutControl, cxControls, cxMemo,
|
||||
uViewDireccionEntregaAlbaranProv, Buttons, ActnList, cxLookupEdit,
|
||||
cxDBLookupEdit, cxDBLookupComboBox, uFormasPagoController,
|
||||
uBizPedidosProveedor, uPedidosProveedorController, uBizFormasPago,
|
||||
uDAInterfaces;
|
||||
uDAInterfaces, uViewDatosYSeleccionProveedorAlbaran;
|
||||
|
||||
type
|
||||
IViewAlbaranProveedor = interface(IViewBase)
|
||||
@ -22,9 +22,8 @@ type
|
||||
procedure SetAlbaran(const Value: IBizAlbaranProveedor);
|
||||
property Albaran: IBizAlbaranProveedor read GetAlbaran write SetAlbaran;
|
||||
|
||||
function GetViewProveedorAlbaran: TfrViewDatosYSeleccionProveedor;
|
||||
procedure SetViewProveedorAlbaran(const Value: TfrViewDatosYSeleccionProveedor);
|
||||
property ViewProveedorAlbaran: TfrViewDatosYSeleccionProveedor read GetViewProveedorAlbaran write SetViewProveedorAlbaran;
|
||||
function GetViewProveedorAlbaran: TfrViewDatosYSeleccionProveedorAlbaran;
|
||||
property ViewProveedorAlbaran: TfrViewDatosYSeleccionProveedorAlbaran read GetViewProveedorAlbaran;
|
||||
end;
|
||||
|
||||
TfrViewAlbaranProveedor = class(TfrViewBase, IViewAlbaranProveedor)
|
||||
@ -43,8 +42,6 @@ type
|
||||
dxLayoutControl1Group7: TdxLayoutGroup;
|
||||
dxLayoutControl1Group8: TdxLayoutGroup;
|
||||
dxLayoutControl1Group3: TdxLayoutGroup;
|
||||
dxLayoutControl1Item1: TdxLayoutItem;
|
||||
frViewProveedorAlbaran: TfrViewDatosYSeleccionProveedor;
|
||||
ActionList1: TActionList;
|
||||
actElegirDireccion: TAction;
|
||||
dxLayoutControl1Item4: TdxLayoutItem;
|
||||
@ -67,9 +64,10 @@ type
|
||||
eReferenciaProveedor: TcxDBTextEdit;
|
||||
dxLayoutControl1Item12: TdxLayoutItem;
|
||||
eReferenciaFacturaProveedor: TcxDBTextEdit;
|
||||
frViewDatosYSeleccionProveedorAlbaran1: TfrViewDatosYSeleccionProveedorAlbaran;
|
||||
dxLayoutControl1Item1: TdxLayoutItem;
|
||||
procedure CustomViewCreate(Sender: TObject);
|
||||
procedure CustomViewDestroy(Sender: TObject);
|
||||
procedure actElegirDireccionExecute(Sender: TObject);
|
||||
procedure frViewProveedorAlbaranButton1Click(Sender: TObject);
|
||||
procedure frViewProveedorAlbaranButton2Click(Sender: TObject);
|
||||
procedure bFormasPagoClick(Sender: TObject);
|
||||
@ -82,7 +80,7 @@ type
|
||||
|
||||
protected
|
||||
FAlbaran : IBizAlbaranProveedor;
|
||||
FViewProveedorAlbaran : TfrViewDatosYSeleccionProveedor;
|
||||
FViewProveedorAlbaran : TfrViewDatosYSeleccionProveedorAlbaran;
|
||||
FFormasPago : IBizFormaPago;
|
||||
FFormasPagoController : IFormasPagoController;
|
||||
FPedidoAsociado : IBizPedidoProveedor;
|
||||
@ -90,12 +88,10 @@ type
|
||||
|
||||
function GetAlbaran: IBizAlbaranProveedor;
|
||||
procedure SetAlbaran(const Value: IBizAlbaranProveedor); virtual;
|
||||
function GetViewProveedorAlbaran: TfrViewDatosYSeleccionProveedor;
|
||||
procedure SetViewProveedorAlbaran(const Value: TfrViewDatosYSeleccionProveedor);
|
||||
|
||||
function GetViewProveedorAlbaran: TfrViewDatosYSeleccionProveedorAlbaran;
|
||||
public
|
||||
property Albaran: IBizAlbaranProveedor read GetAlbaran write SetAlbaran;
|
||||
property ViewProveedorAlbaran: TfrViewDatosYSeleccionProveedor read GetViewProveedorAlbaran;
|
||||
property ViewProveedorAlbaran: TfrViewDatosYSeleccionProveedorAlbaran read GetViewProveedorAlbaran;
|
||||
end;
|
||||
|
||||
implementation
|
||||
@ -109,27 +105,6 @@ uses
|
||||
schAlbaranesProveedorClient_Intf;
|
||||
|
||||
|
||||
procedure TfrViewAlbaranProveedor.actElegirDireccionExecute(Sender: TObject);
|
||||
{var
|
||||
AProveedoresController : IProveedoresController;
|
||||
AAlbaranController : IAlbaranesProveedorController;
|
||||
ADireccion : IBizDireccionesContacto;}
|
||||
begin
|
||||
inherited;
|
||||
{ AProveedoresController := TProveedoresController.Create;
|
||||
AAlbaranController := TAlbaranesProveedorController.Create;
|
||||
try
|
||||
ADireccion := AProveedoresController.ElegirDireccionEntrega(FAlbaran.Proveedor.Direcciones,
|
||||
'Seleccione la dirección del Proveedor que quiere utilizar como dirección de envio de este Albaran.');
|
||||
if Assigned(ADireccion) then
|
||||
AAlbaranController.CopiarDireccionEnvio(ADireccion, FAlbaran);
|
||||
finally
|
||||
AProveedoresController := NIL;
|
||||
AAlbaranController := NIL;
|
||||
end;
|
||||
}
|
||||
end;
|
||||
|
||||
procedure TfrViewAlbaranProveedor.actElegirDireccionUpdate(Sender: TObject);
|
||||
begin
|
||||
inherited;
|
||||
@ -172,8 +147,7 @@ begin
|
||||
FPedidoController := TPedidosProveedorController.Create;
|
||||
FFormasPago := Nil;
|
||||
FFormasPagoController := TFormasPagoController.Create;
|
||||
FViewProveedorAlbaran := frViewProveedorAlbaran;
|
||||
FViewProveedorAlbaran.MsgElegirProveedor := 'Elija el proveedor de este albarán.';
|
||||
FViewProveedorAlbaran := frViewDatosYSeleccionProveedorAlbaran1;
|
||||
|
||||
eReferencia.Enabled := False;
|
||||
end;
|
||||
@ -181,10 +155,10 @@ end;
|
||||
procedure TfrViewAlbaranProveedor.CustomViewDestroy(Sender: TObject);
|
||||
begin
|
||||
FPedidoController := NIL;
|
||||
FFormasPago := Nil;
|
||||
FFormasPago := NIL;
|
||||
FFormasPagoController := NIL;
|
||||
FPedidoAsociado := NIL;
|
||||
FViewProveedorAlbaran := Nil;
|
||||
FViewProveedorAlbaran := NIL;
|
||||
inherited;
|
||||
end;
|
||||
|
||||
@ -208,7 +182,7 @@ begin
|
||||
if (Application.MessageBox('Si cambia de proveedor, se eliminarán todos sus artículos de la orden de devolución actual, ¿Desea continuar?', 'Atención', MB_YESNO) = IDNO) then
|
||||
Exit;
|
||||
end;
|
||||
frViewProveedorAlbaran.actElegirContacto.Execute;
|
||||
FViewProveedorAlbaran.ElegirProveedor;
|
||||
end;
|
||||
|
||||
procedure TfrViewAlbaranProveedor.frViewProveedorAlbaranButton2Click(Sender: TObject);
|
||||
@ -219,7 +193,7 @@ begin
|
||||
if (Application.MessageBox('Si cambia de proveedor, se eliminarán todos sus artículos del la orden de devolución actual, ¿Desea continuar?', 'Atención', MB_YESNO) = IDNO) then
|
||||
Exit;
|
||||
end;
|
||||
frViewProveedorAlbaran.actAnadirContacto.Execute;
|
||||
FViewProveedorAlbaran.AnadirNuevoProveedor;
|
||||
end;
|
||||
|
||||
function TfrViewAlbaranProveedor.GetAlbaran: IBizAlbaranProveedor;
|
||||
@ -227,7 +201,7 @@ begin
|
||||
Result := FAlbaran;
|
||||
end;
|
||||
|
||||
function TfrViewAlbaranProveedor.GetViewProveedorAlbaran: TfrViewDatosYSeleccionProveedor;
|
||||
function TfrViewAlbaranProveedor.GetViewProveedorAlbaran: TfrViewDatosYSeleccionProveedorAlbaran;
|
||||
begin
|
||||
Result := FViewProveedorAlbaran;
|
||||
end;
|
||||
@ -243,7 +217,7 @@ begin
|
||||
dsFormaPago.DataTable := FFormasPago.DataTable;
|
||||
dsFormaPago.DataTable.Active := True;
|
||||
|
||||
frViewProveedorAlbaran.Proveedor := FAlbaran.Proveedor;
|
||||
FViewProveedorAlbaran.Albaran := FAlbaran;
|
||||
frViewDireccionEntregaAlbaranProv1.AlbaranProveedor := FAlbaran;
|
||||
|
||||
eReferenciaPedidoCli.Enabled := False;
|
||||
@ -267,14 +241,9 @@ begin
|
||||
else begin
|
||||
DADataSource.DataTable := NIL;
|
||||
dsFormaPago.DataTable := NIL;
|
||||
frViewProveedorAlbaran.Proveedor := nil;
|
||||
FViewProveedorAlbaran.Albaran := nil;
|
||||
frViewDireccionEntregaAlbaranProv1.AlbaranProveedor := Nil;
|
||||
end;
|
||||
end;
|
||||
|
||||
procedure TfrViewAlbaranProveedor.SetViewProveedorAlbaran(const Value: TfrViewDatosYSeleccionProveedor);
|
||||
begin
|
||||
FViewProveedorAlbaran := Value;
|
||||
end;
|
||||
|
||||
end.
|
||||
|
||||
@ -0,0 +1,657 @@
|
||||
inherited frViewDatosYSeleccionProveedorAlbaran: TfrViewDatosYSeleccionProveedorAlbaran
|
||||
Width = 505
|
||||
Height = 171
|
||||
ExplicitWidth = 505
|
||||
ExplicitHeight = 171
|
||||
object dxLayoutControl1: TdxLayoutControl
|
||||
Left = 0
|
||||
Top = 0
|
||||
Width = 505
|
||||
Height = 171
|
||||
Margins.Left = 0
|
||||
Margins.Top = 0
|
||||
Margins.Right = 0
|
||||
Margins.Bottom = 0
|
||||
Align = alClient
|
||||
ParentBackground = True
|
||||
TabOrder = 0
|
||||
TabStop = False
|
||||
AutoContentSizes = [acsWidth, acsHeight]
|
||||
DesignSize = (
|
||||
505
|
||||
171)
|
||||
object edtlNombre: TcxDBTextEdit
|
||||
Left = 63
|
||||
Top = 41
|
||||
Anchors = [akLeft, akTop, akRight]
|
||||
AutoSize = False
|
||||
DataBinding.DataField = 'NOMBRE'
|
||||
DataBinding.DataSource = dsProveedor
|
||||
Enabled = False
|
||||
ParentFont = False
|
||||
Properties.ReadOnly = True
|
||||
Properties.UseLeftAlignmentOnEditing = False
|
||||
Style.BorderColor = clWindowFrame
|
||||
Style.BorderStyle = ebs3D
|
||||
Style.HotTrack = False
|
||||
Style.LookAndFeel.NativeStyle = True
|
||||
Style.LookAndFeel.SkinName = ''
|
||||
StyleDisabled.LookAndFeel.NativeStyle = True
|
||||
StyleDisabled.LookAndFeel.SkinName = ''
|
||||
StyleDisabled.TextColor = clWindowText
|
||||
StyleFocused.LookAndFeel.NativeStyle = True
|
||||
StyleFocused.LookAndFeel.SkinName = ''
|
||||
StyleHot.LookAndFeel.NativeStyle = True
|
||||
StyleHot.LookAndFeel.SkinName = ''
|
||||
TabOrder = 2
|
||||
Height = 21
|
||||
Width = 224
|
||||
end
|
||||
object edtNIFCIF: TcxDBTextEdit
|
||||
Left = 392
|
||||
Top = 41
|
||||
Anchors = [akLeft, akTop, akRight]
|
||||
AutoSize = False
|
||||
DataBinding.DataField = 'NIF_CIF'
|
||||
DataBinding.DataSource = dsProveedor
|
||||
Enabled = False
|
||||
ParentFont = False
|
||||
Properties.ReadOnly = True
|
||||
Properties.UseLeftAlignmentOnEditing = False
|
||||
Style.BorderColor = clWindowFrame
|
||||
Style.BorderStyle = ebs3D
|
||||
Style.HotTrack = False
|
||||
Style.LookAndFeel.NativeStyle = True
|
||||
Style.LookAndFeel.SkinName = ''
|
||||
StyleDisabled.LookAndFeel.NativeStyle = True
|
||||
StyleDisabled.LookAndFeel.SkinName = ''
|
||||
StyleDisabled.TextColor = clWindowText
|
||||
StyleFocused.LookAndFeel.NativeStyle = True
|
||||
StyleFocused.LookAndFeel.SkinName = ''
|
||||
StyleHot.LookAndFeel.NativeStyle = True
|
||||
StyleHot.LookAndFeel.SkinName = ''
|
||||
TabOrder = 3
|
||||
Height = 21
|
||||
Width = 103
|
||||
end
|
||||
object edtPersonaContacto: TcxDBTextEdit
|
||||
Left = 63
|
||||
Top = 101
|
||||
Anchors = [akLeft, akTop, akRight]
|
||||
AutoSize = False
|
||||
DataBinding.DataField = 'PERSONA_CONTACTO_PROV'
|
||||
DataBinding.DataSource = dsAlbaran
|
||||
ParentFont = False
|
||||
Style.BorderColor = clWindowFrame
|
||||
Style.BorderStyle = ebs3D
|
||||
Style.HotTrack = False
|
||||
Style.LookAndFeel.NativeStyle = True
|
||||
Style.LookAndFeel.SkinName = ''
|
||||
StyleDisabled.LookAndFeel.NativeStyle = True
|
||||
StyleDisabled.LookAndFeel.SkinName = ''
|
||||
StyleDisabled.TextColor = clWindowText
|
||||
StyleFocused.LookAndFeel.NativeStyle = True
|
||||
StyleFocused.LookAndFeel.SkinName = ''
|
||||
StyleHot.LookAndFeel.NativeStyle = True
|
||||
StyleHot.LookAndFeel.SkinName = ''
|
||||
TabOrder = 6
|
||||
Height = 21
|
||||
Width = 283
|
||||
end
|
||||
object edtDireccion: TcxTextEdit
|
||||
Left = 63
|
||||
Top = 70
|
||||
Style.BorderColor = clWindowFrame
|
||||
Style.BorderStyle = ebs3D
|
||||
Style.HotTrack = False
|
||||
Style.LookAndFeel.Kind = lfStandard
|
||||
Style.LookAndFeel.NativeStyle = True
|
||||
Style.LookAndFeel.SkinName = ''
|
||||
StyleDisabled.LookAndFeel.Kind = lfStandard
|
||||
StyleDisabled.LookAndFeel.NativeStyle = True
|
||||
StyleDisabled.LookAndFeel.SkinName = ''
|
||||
StyleDisabled.TextColor = clWindowText
|
||||
StyleFocused.LookAndFeel.Kind = lfStandard
|
||||
StyleFocused.LookAndFeel.NativeStyle = True
|
||||
StyleFocused.LookAndFeel.SkinName = ''
|
||||
StyleHot.LookAndFeel.Kind = lfStandard
|
||||
StyleHot.LookAndFeel.NativeStyle = True
|
||||
StyleHot.LookAndFeel.SkinName = ''
|
||||
TabOrder = 4
|
||||
Width = 121
|
||||
end
|
||||
object Button4: TButton
|
||||
Left = 472
|
||||
Top = 68
|
||||
Width = 23
|
||||
Height = 25
|
||||
Action = actElegirDireccion
|
||||
TabOrder = 5
|
||||
end
|
||||
object Button5: TButton
|
||||
Left = 472
|
||||
Top = 99
|
||||
Width = 23
|
||||
Height = 25
|
||||
Action = actElegirPersonaContacto
|
||||
TabOrder = 7
|
||||
end
|
||||
object Button3: TBitBtn
|
||||
Left = 297
|
||||
Top = 130
|
||||
Width = 198
|
||||
Height = 25
|
||||
Action = actVerContacto
|
||||
Caption = 'Ver ficha completa del proveedor...'
|
||||
TabOrder = 8
|
||||
Glyph.Data = {
|
||||
36040000424D3604000000000000360000002800000010000000100000000100
|
||||
2000000000000004000000000000000000000000000000000000FF00FF00FF00
|
||||
FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00
|
||||
FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00D3BDAE006543
|
||||
2E0065432E0065432E0065432E0065432E0065432E0065432E0065432E006543
|
||||
2E0065432E0065432E0065432E0065432E0065432E0065432E00D3BDAE00F6F1
|
||||
EE00B49F8F00B49F8F00B49F8F00B49F8F00B49F8F00B49F8F00B49F8F00B49F
|
||||
8F00B49F8F00B49F8F00B49F8F00B49F8F00B49F8F0065432E00D3BDAE00241B
|
||||
7C00190B6B00190B6B00190B6B00190B6B00190B6B00190B6B00241B7C00E2D3
|
||||
CC00DFCFC700DECDC400DBC9BF00DAC7BD00B49F8F0065432E00D3BDAE00584D
|
||||
A5002C2D870031299D003123A1003123A20030299B002B2C8900190B6B00E6DA
|
||||
D3009E7058009E7058009E7058009E705800B49F8F0065432E00D3BDAE007C75
|
||||
B9002D2B92003223A300402F9800412F9B003324A4002D299200190B6B00E9DF
|
||||
D800E6DAD300E3D5CE00E1D1C900DECDC400B49F8F0065432E00D3BDAE00CFCB
|
||||
E700473DA400412A90006D8BA8006B8DA300422D8E00190B6B00EEE7E200ECE3
|
||||
DE009E7058009E7058009E7058009E705800B49F8F0065432E00D3BDAE00FFFF
|
||||
FF00C7B6DC004B9A9D005198C6004A93C0004A8A8B00ADA5C000F1EBE700EEE7
|
||||
E200ECE3DE00E9DFD800E6DAD300E3D5CE00B49F8F0065432E00D3BDAE00FFFF
|
||||
FF00A2CBE70059A6DC0058A6DC0053A1D7004D97CA009DB7C800F5EFEC00F1EB
|
||||
E700EEE7E200ECE3DE00E9DFD800E6DAD300B49F8F0065432E00D3BDAE00EBF6
|
||||
FA0068B6DE0061AEE40061ADE4005BA8DE00529FD500649BBC00F7F4F000F5EF
|
||||
EC00F1EBE700EEE7E200ECE3DE00E9DFD800B49F8F0065432E00D3BDAE00E8F6
|
||||
FA0057ADD30058A3D30061ACDE005EABE10054A0D6002F81A400FAF8F600F7F4
|
||||
F000F79D6F00F79D6F00F79D6F00F79D6F00B49F8F0065432E00D3BDAE00F4FA
|
||||
FC0074BEDC00529DCB00529AC8004F99C8004089B8002F81A400FDFCFB00FAF8
|
||||
F600F7F4F000F5EFEC00F1EBE700EEE7E200B49F8F0065432E00D3BDAE00FFFF
|
||||
FF00CCE9F4005EB2DD0059A4D300478EBC002F81A400C4DBE500FFFFFF00FDFC
|
||||
FB00F79D6F00F79D6F00F79D6F00F79D6F00B49F8F0065432E00D3BDAE00FFFF
|
||||
FF00FFFFFF00CCE9F400A2CBE700A2CBE700CCE9F400FFFFFF00FFFFFF00FFFF
|
||||
FF00FEFEFD00FCFAF900F9F6F400F6F1EE00F2EDE90065432E00D3BDAE00D3BD
|
||||
AE00D3BDAE00D3BDAE00D3BDAE00D3BDAE00D3BDAE00D3BDAE00D3BDAE00D3BD
|
||||
AE00D3BDAE00D3BDAE00D3BDAE00D3BDAE00D3BDAE00D3BDAE00FF00FF00FF00
|
||||
FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00
|
||||
FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00}
|
||||
end
|
||||
object Button1: TBitBtn
|
||||
Left = 10
|
||||
Top = 10
|
||||
Width = 120
|
||||
Height = 25
|
||||
Action = actElegirContacto
|
||||
Caption = 'Elegir un proveedor'
|
||||
TabOrder = 0
|
||||
Glyph.Data = {
|
||||
36040000424D3604000000000000360000002800000010000000100000000100
|
||||
2000000000000004000000000000000000000000000000000000FF00FF00FF00
|
||||
FF00FF00FF00EB00EB00C507C600AB13AD00A119A2009F19A000A215A400AA10
|
||||
AC00B608B800CE00CE00EF00EF00FF00FF00FF00FF00FF00FF00FF00FF00FF00
|
||||
FF00B118C10040407B00344A830031498F002F4596002F4499002F4597003148
|
||||
900033498500374678005A3E5300D201D200FF00FF00FF00FF00FF00FF00FF00
|
||||
FF004E42860035508100314990002E429C002C3CA6002B3AAA002B3BA7002D40
|
||||
9E0030479200344F840038577500A0189F00FF00FF00FF00FF00FF00FF00FF00
|
||||
FF004C428900334D89002F4499002B3CA8002835B4002631BB002734B6002A3A
|
||||
AB002E429C00324B8C0036537B00B015B100FF00FF00FF00FF00FF00FF00FF00
|
||||
FF008726B300324A8D002D409E002938AF003138B6007A7BCB002830BF002835
|
||||
B2002D3FA10031499000483B8700EC01EC00FF00FF00FF00FF00FF00FF00FF00
|
||||
FF00F002F60051379D002D409F002937B000808AA300D2D3D3008181BB002834
|
||||
B2002D3FA2003A3F9300C511CE00FF00FF00FF00FF00FF00FF00FF00FF00FF00
|
||||
FF00FF00FF00EE02F4007324B7003C359300598CAE00498CBB004A81A600392A
|
||||
71005929A600D608E100FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00
|
||||
FF00FF00FF00FF00FF00EA0CF400608CD00054A2D80053A1D6004F9DD300488B
|
||||
C2009D11AC00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00
|
||||
FF00FF00FF00FF00FF008C67DE005CA9DD005CA9DD005AA7DC0056A4D900519F
|
||||
D400565FAB00EA00EA00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00
|
||||
FF00FF00FF00EC0DF60060A7DE0063B0E30063B0E30061AEE1005CA9DD0056A4
|
||||
D9004E94CC00C105C600FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00
|
||||
FF00FF00FF00C532ED0066B2E5006BB7E9006BB7E90067B3E60061AEE1005AA7
|
||||
DC00539FD500A817BE00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00
|
||||
FF00FF00FF00BA3AE7004989B1004A85AC005895BD0068B2E30064B0E4005CA9
|
||||
DE0053A0D400AA1BC300FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00
|
||||
FF00FF00FF00CA23E8005098C400539AC7004E93BE00437DA2005190BA005198
|
||||
C6003C79A000BE08C300FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00
|
||||
FF00FF00FF00F804FC006995D40062ACDA005DA6D3005299C6004284AD003C7F
|
||||
A900535AA100F300F300FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00
|
||||
FF00FF00FF00FF00FF00C140ED0071BAEA0068B2E00059A1CF004990BC004378
|
||||
AA00C315D600FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00
|
||||
FF00FF00FF00FF00FF00FF00FF00C83EF000808BDF00668BCC007C60C700D116
|
||||
E400FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00}
|
||||
end
|
||||
object BitBtn1: TBitBtn
|
||||
Left = 136
|
||||
Top = 10
|
||||
Width = 149
|
||||
Height = 25
|
||||
Action = actAnadirContacto
|
||||
Caption = 'Dar de alta un proveedor'
|
||||
TabOrder = 1
|
||||
Glyph.Data = {
|
||||
36040000424D3604000000000000360000002800000010000000100000000100
|
||||
2000000000000004000000000000000000000000000000000000FF00FF00FF00
|
||||
FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00
|
||||
FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00D5BFB1006947
|
||||
3100694731006947310069473100694731006947310069473100694731006947
|
||||
3100694731006947310069473100694731006947310069473100D5BFB100F6F2
|
||||
EF00B7A29300B7A29300B7A29300B7A29300B7A29300B7A29300B7A29300B7A2
|
||||
9300B7A29300B7A29300B7A29300B7A29300B7A2930069473100D5BFB100271E
|
||||
80001C0D6F001C0D6F001C0D6F001C0D6F001C0D6F001C0D6F00271E8000E3D5
|
||||
CE00E0D1C900DFCFC600DCCBC100DBC9BF00B7A2930069473100D5BFB1005C51
|
||||
A8002F308B00352CA0003526A4003526A500332C9E002E2F8D001C0D6F00E7DB
|
||||
D500A1745C00A1745C00A1745C00A1745C00B7A2930069473100D5BFB1008079
|
||||
BC00302E95003626A60044329B0045329E003727A700302C95001C0D6F00EAE0
|
||||
DA00E7DBD500E4D7D000E2D3CB00DFCFC600B7A2930069473100D5BFB100D1CD
|
||||
E8004B41A700452D9400718FAB006F91A600463092001C0D6F00EFE8E300EDE4
|
||||
DF00A1745C00A1745C00A1745C00A1745C00B7A2930069473100D5BFB100FFFF
|
||||
FF00C9B9DD004F9DA000559BC8004E96C2004E8E8F00B0A8C200F2ECE800EFE8
|
||||
E300EDE4DF00EAE0DA00E7DBD500E4D7D000B7A2930069473100D5BFB100FFFF
|
||||
FF00A5CDE8005DA9DD005CA9DD0057A4D900519ACC00A0BACA00F5F0ED00F2EC
|
||||
E800EFE8E300EDE4DF00EAE0DA00E7DBD500B7A2930069473100D5BFB100ECF6
|
||||
FA006CB9DF0065B1E50065B0E5005FABDF0056A2D700689EBE00F7F4F100F5F0
|
||||
ED00F2ECE800006000000060000000600000B7A2930069473100D5BFB100E9F6
|
||||
FA005BB0D5005CA6D50065AFDF0062AEE20058A3D8003285A700FAF8F600F7F4
|
||||
F100F7A073000060000033CB510000600000B7A2930069473100D5BFB100F4FA
|
||||
FC0078C0DD0056A0CD00569DCA00539CCA00448DBB003285A700FDFCFB000060
|
||||
0000006000000060000040D86500006000000060000000600000D5BFB100FFFF
|
||||
FF00CEEAF40062B5DE005DA7D5004B92BE003285A700C6DCE600FFFFFF000060
|
||||
000060F898005AF28F004DE57A0040D865003AD25C0000600000D5BFB100FFFF
|
||||
FF00FFFFFF00CEEAF400A5CDE800A5CDE800CEEAF400FFFFFF00FFFFFF000060
|
||||
000000600000006000005AF28F00006000000060000000600000D5BFB100D5BF
|
||||
B100D5BFB100D5BFB100D5BFB100D5BFB100D5BFB100D5BFB100D5BFB100D5BF
|
||||
B100D5BFB1000060000060F8980000600000D5BFB100D5BFB100FF00FF00FF00
|
||||
FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00
|
||||
FF00FF00FF00006000000060000000600000FF00FF00FF00FF00}
|
||||
end
|
||||
object dxLayoutControl1Group_Root: TdxLayoutGroup
|
||||
ShowCaption = False
|
||||
Hidden = True
|
||||
ShowBorder = False
|
||||
object dxLayoutControl1Group1: TdxLayoutGroup
|
||||
ShowCaption = False
|
||||
Hidden = True
|
||||
LayoutDirection = ldHorizontal
|
||||
ShowBorder = False
|
||||
object dxLayoutControl1Item7: TdxLayoutItem
|
||||
ShowCaption = False
|
||||
Control = Button1
|
||||
ControlOptions.ShowBorder = False
|
||||
end
|
||||
object dxLayoutControl1Item10: TdxLayoutItem
|
||||
ShowCaption = False
|
||||
Control = BitBtn1
|
||||
ControlOptions.ShowBorder = False
|
||||
end
|
||||
end
|
||||
object dxLayoutControl1Group4: TdxLayoutGroup
|
||||
ShowCaption = False
|
||||
Hidden = True
|
||||
LayoutDirection = ldHorizontal
|
||||
ShowBorder = False
|
||||
object dxLayoutControl1Item1: TdxLayoutItem
|
||||
AutoAligns = [aaVertical]
|
||||
AlignHorz = ahClient
|
||||
Caption = 'Nombre:'
|
||||
Control = edtlNombre
|
||||
ControlOptions.ShowBorder = False
|
||||
end
|
||||
object dxLayoutControl1Item2: TdxLayoutItem
|
||||
AutoAligns = [aaVertical]
|
||||
AlignHorz = ahRight
|
||||
Caption = 'NIF/CIF:'
|
||||
Control = edtNIFCIF
|
||||
ControlOptions.ShowBorder = False
|
||||
end
|
||||
end
|
||||
object dxLayoutControl1Group3: TdxLayoutGroup
|
||||
ShowCaption = False
|
||||
Hidden = True
|
||||
LayoutDirection = ldHorizontal
|
||||
ShowBorder = False
|
||||
object dxLayoutControl1Item4: TdxLayoutItem
|
||||
AutoAligns = []
|
||||
AlignHorz = ahClient
|
||||
AlignVert = avCenter
|
||||
Caption = 'Direcci'#243'n'
|
||||
Control = edtDireccion
|
||||
ControlOptions.ShowBorder = False
|
||||
end
|
||||
object dxLayoutControl1Item5: TdxLayoutItem
|
||||
AutoAligns = [aaVertical]
|
||||
AlignHorz = ahRight
|
||||
Caption = 'Button4'
|
||||
ShowCaption = False
|
||||
Control = Button4
|
||||
ControlOptions.ShowBorder = False
|
||||
end
|
||||
end
|
||||
object dxLayoutControl1Group5: TdxLayoutGroup
|
||||
ShowCaption = False
|
||||
Hidden = True
|
||||
ShowBorder = False
|
||||
object dxLayoutControl1Group2: TdxLayoutGroup
|
||||
ShowCaption = False
|
||||
Hidden = True
|
||||
LayoutDirection = ldHorizontal
|
||||
ShowBorder = False
|
||||
object dxLayoutControl1Item3: TdxLayoutItem
|
||||
AutoAligns = []
|
||||
AlignHorz = ahClient
|
||||
AlignVert = avCenter
|
||||
Caption = 'Contacto:'
|
||||
Control = edtPersonaContacto
|
||||
ControlOptions.ShowBorder = False
|
||||
end
|
||||
object dxLayoutControl1Item6: TdxLayoutItem
|
||||
AutoAligns = [aaVertical]
|
||||
AlignHorz = ahRight
|
||||
ShowCaption = False
|
||||
Control = Button5
|
||||
ControlOptions.ShowBorder = False
|
||||
end
|
||||
end
|
||||
object dxLayoutControl1Item9: TdxLayoutItem
|
||||
AutoAligns = [aaVertical]
|
||||
AlignHorz = ahRight
|
||||
ShowCaption = False
|
||||
Control = Button3
|
||||
ControlOptions.ShowBorder = False
|
||||
end
|
||||
end
|
||||
end
|
||||
end
|
||||
object dsProveedor: TDADataSource
|
||||
Left = 400
|
||||
Top = 8
|
||||
end
|
||||
object ActionList1: TActionList
|
||||
Images = PngImageList
|
||||
Left = 368
|
||||
Top = 8
|
||||
object actElegirContacto: TAction
|
||||
Caption = 'Elegir un proveedor'
|
||||
ImageIndex = 1
|
||||
OnExecute = actElegirContactoExecute
|
||||
end
|
||||
object actAnadirContacto: TAction
|
||||
Caption = 'Dar de alta un proveedor'
|
||||
ImageIndex = 0
|
||||
OnExecute = actAnadirContactoExecute
|
||||
end
|
||||
object actVerContacto: TAction
|
||||
Caption = 'Ver ficha completa del proveedor...'
|
||||
ImageIndex = 2
|
||||
OnExecute = actVerContactoExecute
|
||||
OnUpdate = actVerContactoUpdate
|
||||
end
|
||||
object actElegirDireccion: TAction
|
||||
Caption = '...'
|
||||
OnExecute = actElegirDireccionExecute
|
||||
OnUpdate = actElegirDireccionUpdate
|
||||
end
|
||||
object actElegirPersonaContacto: TAction
|
||||
Caption = '...'
|
||||
OnExecute = actElegirPersonaContactoExecute
|
||||
OnUpdate = actElegirPersonaContactoUpdate
|
||||
end
|
||||
end
|
||||
object dsAlbaran: TDADataSource
|
||||
Left = 336
|
||||
Top = 8
|
||||
end
|
||||
object PngImageList: TPngImageList
|
||||
PngImages = <
|
||||
item
|
||||
PngImage.Data = {
|
||||
89504E470D0A1A0A0000000D49484452000000100000001008060000001FF3FF
|
||||
610000000970485973000017120000171201679FD25200000A4D694343505068
|
||||
6F746F73686F70204943432070726F66696C65000078DA9D53775893F7163EDF
|
||||
F7650F5642D8F0B1976C81002223AC08C81059A21092006184101240C585880A
|
||||
561415119C4855C482D50A489D88E2A028B867418A885A8B555C38EE1FDCA7B5
|
||||
7D7AEFEDEDFBD7FBBCE79CE7FCCE79CF0F8011122691E6A26A003952853C3AD8
|
||||
1F8F4F48C4C9BD80021548E0042010E6CBC26705C50000F00379787E74B03FFC
|
||||
01AF6F00020070D52E2412C7E1FF83BA50265700209100E02212E70B01905200
|
||||
C82E54C81400C81800B053B3640A009400006C797C422200AA0D00ECF4493E05
|
||||
00D8A993DC1700D8A21CA908008D0100992847240240BB00605581522C02C0C2
|
||||
00A0AC40222E04C0AE018059B632470280BD0500768E58900F4060008099422C
|
||||
CC0020380200431E13CD03204C03A030D2BFE0A95F7085B8480100C0CB95CD97
|
||||
4BD23314B895D01A77F2F0E0E221E2C26CB142611729106609E4229C979B2313
|
||||
48E7034CCE0C00001AF9D1C1FE383F90E7E6E4E1E666E76CEFF4C5A2FE6BF06F
|
||||
223E21F1DFFEBC8C020400104ECFEFDA5FE5E5D60370C701B075BF6BA95B00DA
|
||||
560068DFF95D33DB09A05A0AD07AF98B7938FC401E9EA150C83C1D1C0A0B0BED
|
||||
2562A1BD30E38B3EFF33E16FE08B7EF6FC401EFEDB7AF000719A4099ADC0A383
|
||||
FD71616E76AE528EE7CB0442316EF7E723FEC7857FFD8E29D1E234B15C2C158A
|
||||
F15889B850224DC779B952914421C995E212E97F32F11F96FD0993770D00AC86
|
||||
4FC04EB607B5CB6CC07EEE01028B0E58D27600407EF32D8C1A0B910010673432
|
||||
79F7000093BFF98F402B0100CD97A4E30000BCE8185CA894174CC608000044A0
|
||||
812AB041070CC114ACC00E9CC11DBCC01702610644400C24C03C104206E4801C
|
||||
0AA11896411954C03AD804B5B0031AA0119AE110B4C131380DE7E0125C81EB70
|
||||
170660189EC218BC86090441C8081361213A8811628ED822CE0817998E042261
|
||||
48349280A420E988145122C5C872A402A9426A915D4823F22D7214398D5C40FA
|
||||
90DBC820328AFC8ABC47319481B25103D4027540B9A81F1A8AC6A073D174340F
|
||||
5D8096A26BD11AB41E3D80B6A2A7D14BE87574007D8A8E6380D1310E668CD961
|
||||
5C8C87456089581A26C71663E55835568F35631D583776151BC09E61EF082402
|
||||
8B8013EC085E8410C26C82909047584C5843A825EC23B412BA085709838431C2
|
||||
272293A84FB4257A12F9C478623AB1905846AC26EE211E219E255E270E135F93
|
||||
48240EC992E44E0A21259032490B496B48DB482DA453A43ED210699C4C26EB90
|
||||
6DC9DEE408B280AC209791B7900F904F92FBC9C3E4B7143AC588E24C09A22452
|
||||
A494124A35653FE504A59F324299A0AA51CDA99ED408AA883A9F5A496DA07650
|
||||
2F5387A91334759A25CD9B1643CBA42DA3D5D09A696769F7682FE974BA09DD83
|
||||
1E4597D097D26BE807E9E7E983F4770C0D860D83C7486228196B197B19A718B7
|
||||
192F994CA605D39799C85430D7321B9967980F986F55582AF62A7C1591CA1295
|
||||
3A9556957E95E7AA545573553FD579AA0B54AB550FAB5E567DA64655B350E3A9
|
||||
09D416ABD5A91D55BBA936AECE5277528F50CF515FA3BE5FFD82FA630DB28685
|
||||
46A08648A35463B7C6198D2116C63265F15842D6725603EB2C6B984D625BB2F9
|
||||
EC4C7605FB1B762F7B4C534373AA66AC6691669DE671CD010EC6B1E0F039D99C
|
||||
4ACE21CE0DCE7B2D032D3F2DB1D66AAD66AD7EAD37DA7ADABEDA62ED72ED16ED
|
||||
EBDAEF75709D409D2C9DF53A6D3AF77509BA36BA51BA85BADB75CFEA3ED363EB
|
||||
79E909F5CAF50EE9DDD147F56DF4A3F517EAEFD6EFD11F373034083690196C31
|
||||
3863F0CC9063E86B9869B8D1F084E1A811CB68BA91C468A3D149A327B826EE87
|
||||
67E33578173E66AC6F1C62AC34DE65DC6B3C61626932DBA4C4A4C5E4BE29CD94
|
||||
6B9A66BAD1B4D374CCCCC82CDCACD8ACC9EC8E39D59C6B9E61BED9BCDBFC8D85
|
||||
A5459CC54A8B368BC796DA967CCB05964D96F7AC98563E567956F556D7AC49D6
|
||||
5CEB2CEB6DD6576C501B579B0C9B3A9BCBB6A8AD9BADC4769B6DDF14E2148F29
|
||||
D229F5536EDA31ECFCEC0AEC9AEC06ED39F661F625F66DF6CF1DCC1C121DD63B
|
||||
743B7C727475CC766C70BCEBA4E134C3A9C4A9C3E957671B67A1739DF33517A6
|
||||
4B90CB1297769717536DA78AA76E9F7ACB95E51AEEBAD2B5D3F5A39BBB9BDCAD
|
||||
D96DD4DDCC3DC57DABFB4D2E9B1BC95DC33DEF41F4F0F758E271CCE39DA79BA7
|
||||
C2F390E72F5E765E595EFBBD1E4FB39C269ED6306DC8DBC45BE0BDCB7B603A3E
|
||||
3D65FACEE9033EC63E029F7A9F87BEA6BE22DF3DBE237ED67E997E07FC9EFB3B
|
||||
FACBFD8FF8BFE179F216F14E056001C101E501BD811A81B3036B031F049904A5
|
||||
0735058D05BB062F0C3E15420C090D591F72936FC017F21BF96333DC672C9AD1
|
||||
15CA089D155A1BFA30CC264C1ED6118E86CF08DF107E6FA6F94CE9CCB60888E0
|
||||
476C88B81F69199917F97D14292A32AA2EEA51B453747174F72CD6ACE459FB67
|
||||
BD8EF18FA98CB93BDB6AB6727667AC6A6C526C63EC9BB880B8AAB8817887F845
|
||||
F1971274132409ED89E4C4D8C43D89E37302E76C9A339CE49A54967463AEE5DC
|
||||
A2B917E6E9CECB9E773C593559907C3885981297B23FE5832042502F184FE5A7
|
||||
6E4D1D13F2849B854F45BEA28DA251B1B7B84A3C92E69D5695F638DD3B7D43FA
|
||||
68864F4675C633094F522B79911992B923F34D5644D6DEACCFD971D92D39949C
|
||||
949CA3520D6996B42BD730B728B74F662B2B930DE479E66DCA1B9387CAF7E423
|
||||
F973F3DB156C854CD1A3B452AE500E164C2FA82B785B185B78B848BD485AD433
|
||||
DF66FEEAF9230B82167CBD90B050B8B0B3D8B87859F1E022BF45BB16238B5317
|
||||
772E315D52BA647869F0D27DCB68CBB296FD50E2585255F26A79DCF28E5283D2
|
||||
A5A5432B82573495A994C9CB6EAEF45AB9631561956455EF6A97D55B567F2A17
|
||||
955FAC70ACA8AEF8B046B8E6E2574E5FD57CF5796DDADADE4AB7CAEDEB48EBA4
|
||||
EB6EACF759BFAF4ABD6A41D5D086F00DAD1BF18DE51B5F6D4ADE74A17A6AF58E
|
||||
CDB4CDCACD03356135ED5BCCB6ACDBF2A136A3F67A9D7F5DCB56FDADABB7BED9
|
||||
26DAD6BFDD777BF30E831D153BDEEF94ECBCB52B78576BBD457DF56ED2EE82DD
|
||||
8F1A621BBABFE67EDDB847774FC59E8F7BA57B07F645EFEB6A746F6CDCAFBFBF
|
||||
B2096D52368D1E483A70E59B806FDA9BED9A77B5705A2A0EC241E5C127DFA67C
|
||||
7BE350E8A1CEC3DCC3CDDF997FB7F508EB48792BD23ABF75AC2DA36DA03DA1BD
|
||||
EFE88CA39D1D5E1D47BEB7FF7EEF31E36375C7358F579EA09D283DF1F9E48293
|
||||
E3A764A79E9D4E3F3DD499DC79F74CFC996B5D515DBD6743CF9E3F1774EE4CB7
|
||||
5FF7C9F3DEE78F5DF0BC70F422F762DB25B74BAD3DAE3D477E70FDE148AF5B6F
|
||||
EB65F7CBED573CAE74F44DEB3BD1EFD37FFA6AC0D573D7F8D72E5D9F79BDEFC6
|
||||
EC1BB76E26DD1CB825BAF5F876F6ED17770AEE4CDC5D7A8F78AFFCBEDAFDEA07
|
||||
FA0FEA7FB4FEB165C06DE0F860C060CFC3590FEF0E09879EFE94FFD387E1D247
|
||||
CC47D52346238D8F9D1F1F1B0D1ABDF264CE93E1A7B2A713CFCA7E56FF79EB73
|
||||
ABE7DFFDE2FB4BCF58FCD8F00BF98BCFBFAE79A9F372EFABA9AF3AC723C71FBC
|
||||
CE793DF1A6FCADCEDB7DEFB8EFBADFC7BD1F9928FC40FE50F3D1FA63C7A7D04F
|
||||
F73EE77CFEFC2FF784F3FB25D29F33000002254944415478DA95936D48535118
|
||||
C7FFB7E58535192C322B880A217A238841238212E94B048EA217E88B26158210
|
||||
548322082422FD52862D30823230BF14A4511823D2185834B60537F37DA516B2
|
||||
B6B6E6BABB77F7DC97EE3DE6192303F7C0E1790E9CFFEFFFF0F01C0EA5443D0C
|
||||
567782B312D7DB3F642C55EF7DB41D1D1DF5686CEC446FDD1018A0B67A1BBD88
|
||||
89287ECF0CD3BA7CFD56382A76CD3F3AC531485BFB499C3FD7CDEE0C60897F84
|
||||
FC90E608E28914E2D959EC3FE1C7DAAA3D1460394B8A8244364B8F5577DD1A9C
|
||||
071CDABB015383D7F1EB6B0C9A66620D0D994C06493985A39742283B6D638E67
|
||||
2E57E37EEB407107073DAB301EB800E438ACB0DB613301393187E8F418BC17DF
|
||||
83A81AAE3D056E0ED871B8C98D6777C3B853D387078F9F2F002AF13DD80C5ECE
|
||||
C39AB34214C89284597525DCC7DBA0AA3A85ACF139997311C09A413CD20D71E2
|
||||
95D53F544290CD29D0377A51B5FB18155B670144888637EF3E160362810F087E
|
||||
BB812D3A6F7690475806DCEB1AB0F940CD3F622B07434201E071AAE8F75DC1CF
|
||||
A482CA861D20CB74241F0E6372F2337CE302155FBDFDA268273C3B5717008EC0
|
||||
138CBEEC814BE621963B613397CC2ECE215596C7D854124D42843993BF9D8485
|
||||
9102406A6FC1CC1701152A8FE50AE88EE6791D691BC1742C85B391105AEE05FE
|
||||
DF41B4EE08D26971D1F575B91CA8ED7B4D5D35DDA05937F3A7D18902609F7B13
|
||||
BA7ADE96F4AFAC6080E6567FC962B68986B1E4CFB868FC01A6204E3EB3788BD6
|
||||
0000000049454E44AE426082}
|
||||
Name = 'PngImage0'
|
||||
Background = clWindow
|
||||
end
|
||||
item
|
||||
PngImage.Data = {
|
||||
89504E470D0A1A0A0000000D49484452000000100000001008060000001FF3FF
|
||||
61000000097048597300000AC400000AC401666D82D400000A4D694343505068
|
||||
6F746F73686F70204943432070726F66696C65000078DA9D53775893F7163EDF
|
||||
F7650F5642D8F0B1976C81002223AC08C81059A21092006184101240C585880A
|
||||
561415119C4855C482D50A489D88E2A028B867418A885A8B555C38EE1FDCA7B5
|
||||
7D7AEFEDEDFBD7FBBCE79CE7FCCE79CF0F8011122691E6A26A003952853C3AD8
|
||||
1F8F4F48C4C9BD80021548E0042010E6CBC26705C50000F00379787E74B03FFC
|
||||
01AF6F00020070D52E2412C7E1FF83BA50265700209100E02212E70B01905200
|
||||
C82E54C81400C81800B053B3640A009400006C797C422200AA0D00ECF4493E05
|
||||
00D8A993DC1700D8A21CA908008D0100992847240240BB00605581522C02C0C2
|
||||
00A0AC40222E04C0AE018059B632470280BD0500768E58900F4060008099422C
|
||||
CC0020380200431E13CD03204C03A030D2BFE0A95F7085B8480100C0CB95CD97
|
||||
4BD23314B895D01A77F2F0E0E221E2C26CB142611729106609E4229C979B2313
|
||||
48E7034CCE0C00001AF9D1C1FE383F90E7E6E4E1E666E76CEFF4C5A2FE6BF06F
|
||||
223E21F1DFFEBC8C020400104ECFEFDA5FE5E5D60370C701B075BF6BA95B00DA
|
||||
560068DFF95D33DB09A05A0AD07AF98B7938FC401E9EA150C83C1D1C0A0B0BED
|
||||
2562A1BD30E38B3EFF33E16FE08B7EF6FC401EFEDB7AF000719A4099ADC0A383
|
||||
FD71616E76AE528EE7CB0442316EF7E723FEC7857FFD8E29D1E234B15C2C158A
|
||||
F15889B850224DC779B952914421C995E212E97F32F11F96FD0993770D00AC86
|
||||
4FC04EB607B5CB6CC07EEE01028B0E58D27600407EF32D8C1A0B910010673432
|
||||
79F7000093BFF98F402B0100CD97A4E30000BCE8185CA894174CC608000044A0
|
||||
812AB041070CC114ACC00E9CC11DBCC01702610644400C24C03C104206E4801C
|
||||
0AA11896411954C03AD804B5B0031AA0119AE110B4C131380DE7E0125C81EB70
|
||||
170660189EC218BC86090441C8081361213A8811628ED822CE0817998E042261
|
||||
48349280A420E988145122C5C872A402A9426A915D4823F22D7214398D5C40FA
|
||||
90DBC820328AFC8ABC47319481B25103D4027540B9A81F1A8AC6A073D174340F
|
||||
5D8096A26BD11AB41E3D80B6A2A7D14BE87574007D8A8E6380D1310E668CD961
|
||||
5C8C87456089581A26C71663E55835568F35631D583776151BC09E61EF082402
|
||||
8B8013EC085E8410C26C82909047584C5843A825EC23B412BA085709838431C2
|
||||
272293A84FB4257A12F9C478623AB1905846AC26EE211E219E255E270E135F93
|
||||
48240EC992E44E0A21259032490B496B48DB482DA453A43ED210699C4C26EB90
|
||||
6DC9DEE408B280AC209791B7900F904F92FBC9C3E4B7143AC588E24C09A22452
|
||||
A494124A35653FE504A59F324299A0AA51CDA99ED408AA883A9F5A496DA07650
|
||||
2F5387A91334759A25CD9B1643CBA42DA3D5D09A696769F7682FE974BA09DD83
|
||||
1E4597D097D26BE807E9E7E983F4770C0D860D83C7486228196B197B19A718B7
|
||||
192F994CA605D39799C85430D7321B9967980F986F55582AF62A7C1591CA1295
|
||||
3A9556957E95E7AA545573553FD579AA0B54AB550FAB5E567DA64655B350E3A9
|
||||
09D416ABD5A91D55BBA936AECE5277528F50CF515FA3BE5FFD82FA630DB28685
|
||||
46A08648A35463B7C6198D2116C63265F15842D6725603EB2C6B984D625BB2F9
|
||||
EC4C7605FB1B762F7B4C534373AA66AC6691669DE671CD010EC6B1E0F039D99C
|
||||
4ACE21CE0DCE7B2D032D3F2DB1D66AAD66AD7EAD37DA7ADABEDA62ED72ED16ED
|
||||
EBDAEF75709D409D2C9DF53A6D3AF77509BA36BA51BA85BADB75CFEA3ED363EB
|
||||
79E909F5CAF50EE9DDD147F56DF4A3F517EAEFD6EFD11F373034083690196C31
|
||||
3863F0CC9063E86B9869B8D1F084E1A811CB68BA91C468A3D149A327B826EE87
|
||||
67E33578173E66AC6F1C62AC34DE65DC6B3C61626932DBA4C4A4C5E4BE29CD94
|
||||
6B9A66BAD1B4D374CCCCC82CDCACD8ACC9EC8E39D59C6B9E61BED9BCDBFC8D85
|
||||
A5459CC54A8B368BC796DA967CCB05964D96F7AC98563E567956F556D7AC49D6
|
||||
5CEB2CEB6DD6576C501B579B0C9B3A9BCBB6A8AD9BADC4769B6DDF14E2148F29
|
||||
D229F5536EDA31ECFCEC0AEC9AEC06ED39F661F625F66DF6CF1DCC1C121DD63B
|
||||
743B7C727475CC766C70BCEBA4E134C3A9C4A9C3E957671B67A1739DF33517A6
|
||||
4B90CB1297769717536DA78AA76E9F7ACB95E51AEEBAD2B5D3F5A39BBB9BDCAD
|
||||
D96DD4DDCC3DC57DABFB4D2E9B1BC95DC33DEF41F4F0F758E271CCE39DA79BA7
|
||||
C2F390E72F5E765E595EFBBD1E4FB39C269ED6306DC8DBC45BE0BDCB7B603A3E
|
||||
3D65FACEE9033EC63E029F7A9F87BEA6BE22DF3DBE237ED67E997E07FC9EFB3B
|
||||
FACBFD8FF8BFE179F216F14E056001C101E501BD811A81B3036B031F049904A5
|
||||
0735058D05BB062F0C3E15420C090D591F72936FC017F21BF96333DC672C9AD1
|
||||
15CA089D155A1BFA30CC264C1ED6118E86CF08DF107E6FA6F94CE9CCB60888E0
|
||||
476C88B81F69199917F97D14292A32AA2EEA51B453747174F72CD6ACE459FB67
|
||||
BD8EF18FA98CB93BDB6AB6727667AC6A6C526C63EC9BB880B8AAB8817887F845
|
||||
F1971274132409ED89E4C4D8C43D89E37302E76C9A339CE49A54967463AEE5DC
|
||||
A2B917E6E9CECB9E773C593559907C3885981297B23FE5832042502F184FE5A7
|
||||
6E4D1D13F2849B854F45BEA28DA251B1B7B84A3C92E69D5695F638DD3B7D43FA
|
||||
68864F4675C633094F522B79911992B923F34D5644D6DEACCFD971D92D39949C
|
||||
949CA3520D6996B42BD730B728B74F662B2B930DE479E66DCA1B9387CAF7E423
|
||||
F973F3DB156C854CD1A3B452AE500E164C2FA82B785B185B78B848BD485AD433
|
||||
DF66FEEAF9230B82167CBD90B050B8B0B3D8B87859F1E022BF45BB16238B5317
|
||||
772E315D52BA647869F0D27DCB68CBB296FD50E2585255F26A79DCF28E5283D2
|
||||
A5A5432B82573495A994C9CB6EAEF45AB9631561956455EF6A97D55B567F2A17
|
||||
955FAC70ACA8AEF8B046B8E6E2574E5FD57CF5796DDADADE4AB7CAEDEB48EBA4
|
||||
EB6EACF759BFAF4ABD6A41D5D086F00DAD1BF18DE51B5F6D4ADE74A17A6AF58E
|
||||
CDB4CDCACD03356135ED5BCCB6ACDBF2A136A3F67A9D7F5DCB56FDADABB7BED9
|
||||
26DAD6BFDD777BF30E831D153BDEEF94ECBCB52B78576BBD457DF56ED2EE82DD
|
||||
8F1A621BBABFE67EDDB847774FC59E8F7BA57B07F645EFEB6A746F6CDCAFBFBF
|
||||
B2096D52368D1E483A70E59B806FDA9BED9A77B5705A2A0EC241E5C127DFA67C
|
||||
7BE350E8A1CEC3DCC3CDDF997FB7F508EB48792BD23ABF75AC2DA36DA03DA1BD
|
||||
EFE88CA39D1D5E1D47BEB7FF7EEF31E36375C7358F579EA09D283DF1F9E48293
|
||||
E3A764A79E9D4E3F3DD499DC79F74CFC996B5D515DBD6743CF9E3F1774EE4CB7
|
||||
5FF7C9F3DEE78F5DF0BC70F422F762DB25B74BAD3DAE3D477E70FDE148AF5B6F
|
||||
EB65F7CBED573CAE74F44DEB3BD1EFD37FFA6AC0D573D7F8D72E5D9F79BDEFC6
|
||||
EC1BB76E26DD1CB825BAF5F876F6ED17770AEE4CDC5D7A8F78AFFCBEDAFDEA07
|
||||
FA0FEA7FB4FEB165C06DE0F860C060CFC3590FEF0E09879EFE94FFD387E1D247
|
||||
CC47D52346238D8F9D1F1F1B0D1ABDF264CE93E1A7B2A713CFCA7E56FF79EB73
|
||||
ABE7DFFDE2FB4BCF58FCD8F00BF98BCFBFAE79A9F372EFABA9AF3AC723C71FBC
|
||||
CE793DF1A6FCADCEDB7DEFB8EFBADFC7BD1F9928FC40FE50F3D1FA63C7A7D04F
|
||||
F73EE77CFEFC2FF784F3FB25D29F33000002B44944415478DA7D925F4853511C
|
||||
C77F67F75EF7A799BB9A6E3A5B85A0203EA820F892502121119A523E14141A41
|
||||
F5A244819144E4430F452F99580385A4D0CC2009410B940CCC4CA60BB2F04F43
|
||||
65B639B7DD6DF7EEFED93D9D2D144DE60F0E07CEF97D3FE7F7FBFE0EC218433C
|
||||
1042B01973AFAF5C0088DDF007B82CCF7AD0E15C70DFBF63774EC0B6D8D2FD0F
|
||||
70F65C6C345BD8673C1FD5F8FD41F0F903E0F571FCA8E34F4DE7E0FCC89E80BE
|
||||
E6727D7E699ECBA0D7668A920CA15004DCDE0028B204EE7561AEA9FD5B19490D
|
||||
2707DCABA8CC31A70F531A0A045186154F042C19FBC1A803F8E5F2E0B61EE7C9
|
||||
F9656E2429E0537B75E34658B2CB0A02D6B41FF20F9A00A90A48621478418047
|
||||
2FA71ABA865D5D4901939DD575D66C733FCD3089B398A2804CCA97451144318A
|
||||
EFDA271BFBC7579203DEB41DCD2EC93FEC6252521204555549FF72C2038E8B28
|
||||
35AD1F2A577DE2E89E5398B6D7F6A6A51ACE25920820168B5721C3C4ECEADCE5
|
||||
C79315E4D8BB27A0BBB9DC5A54689E326A198B4AEEE26D6C04C3D2ADE7D34D5F
|
||||
7EF83B928E311E2DD6828C9C5CE629C2A6B3D67A1B4A05F20722C49BDE0D9C6B
|
||||
084E3804E1EA8BEF4B33DB3FD416A0E550119B9E478F6762B590151408D5D543
|
||||
71552DAC0DBC0561F01504F631E0A534A121257466646CE1E32E40EBF1D227AC
|
||||
1E5D677919D8A8025AD041E6892A08BF1F8010B1D46F60C8A2614DC4CB0FBE3A
|
||||
4A30877D3B00B74F95B94C14B699C8EB6904601463A0555490290491140A823A
|
||||
1A027A1AFC64B77B17EBD7C6BC7D3B00374F972DA6D2E8489AF84F6C9054A055
|
||||
6222F156603410D652C011711CD4BDFCFB9AE7B3BB6307E0FCB1E24B590C7A98
|
||||
C150E946ACA2F8EB14B9520940A43410411A08A8587AA78DCDFE1C9A69C01276
|
||||
EE9A0219E5019D8D2E305A0C36D05384031A2C2AB2129579C52773FC6ACC4DD2
|
||||
968826B0A9F90BC88690F0ED1F7E3F0000000049454E44AE426082}
|
||||
Name = 'PngImage1'
|
||||
Background = clWindow
|
||||
end
|
||||
item
|
||||
PngImage.Data = {
|
||||
89504E470D0A1A0A0000000D49484452000000100000001008060000001FF3FF
|
||||
610000000970485973000017120000171201679FD252000001FA4944415478DA
|
||||
A5934B6813511486BF342610A2C50A86A220150BA2145C58D120828ABA2AD2BA
|
||||
F0B510C48D1B1154A828A55D5877825474AB45375D58A80B9385292DA8A8B151
|
||||
6B6D8DB50F43C1B4C624364C1E73E7E19DA96408B50BCDC0E5CC65E6FFFE7FCE
|
||||
DCE3324D936A2E577FE46355041BD076B0C9DE280B23E412E3F6FD9A4DDBF107
|
||||
76965F3464524D33109A8E2A7459350E1FBFEC002CF1FCEB1EF28B82F98534C9
|
||||
5C9203A7EFB2A1712F9A6E70A557AD706EA88970FFD1C012E0E8BECDCC3EEF22
|
||||
33338DAECBA7A64E36FB8B5431C389EBB12557B93461D8CED6FE71F8A5036809
|
||||
AE271EBA0879177E9F0FB704284A9ED8B7498EB5476D71671F2B276809D63337
|
||||
D481B75892EEC86F5429140A7CD7D6D17CEA4E85B3D5070B181A8A3A00AB07C9
|
||||
B70F512643567E8410E4F22A46432B8D7B4E2E130BD9C4672F629580A9D02B86
|
||||
E76EB0CDF0CA0425A205D8B5F11C5B8F1C5A26B6D6F09B0F0E2058AB11B97495
|
||||
D44F95FAB34D881A831F0F26989A9EA0FDEB275B7CEDD6938A1EECDE117000FE
|
||||
701FF1A703D4153D28AB6B71E3C2A72C92F6A8C413292E8CBD2F3B8B3F67213A
|
||||
3AEE000AB7BB49CC8E11D03CAC92BFDB251D4A5E93B45B90984973FEDD08DDF7
|
||||
C22B27889D69239355FE7A54EBD6FA690D0FDAAEBA61DAD59075F4F31707B0BF
|
||||
790BBDFD83FF3C076540D7CD9EFF1FA66AC7F93783B161288AF0DFC000000000
|
||||
49454E44AE426082}
|
||||
Name = 'PngImage2'
|
||||
Background = clWindow
|
||||
end>
|
||||
Left = 432
|
||||
Top = 8
|
||||
Bitmap = {}
|
||||
end
|
||||
end
|
||||
@ -0,0 +1,421 @@
|
||||
unit uViewDatosYSeleccionProveedorAlbaran;
|
||||
|
||||
interface
|
||||
|
||||
uses
|
||||
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
|
||||
Dialogs, uViewBase, StdCtrls, cxControls, cxContainer, cxEdit, cxLabel,
|
||||
cxDBLabel, ExtCtrls, DB, uDADataTable, uBizContactos,
|
||||
ComCtrls, ToolWin, ActnList, ImgList, PngImageList, cxTextEdit, cxDBEdit,
|
||||
pngimage, JvExControls, JvComponent, JvButton, JvTransparentButton, Mask,
|
||||
DBCtrls, uProveedoresController, dxLayoutControl, Buttons, uDAInterfaces,
|
||||
cxMaskEdit, cxButtonEdit, uBizAlbaranesProveedor, uBizDireccionesContacto,
|
||||
uDireccionesContactoController, Menus, cxLookAndFeelPainters, cxButtons;
|
||||
|
||||
type
|
||||
IViewDatosYSeleccionProveedorAlbaran = interface(IViewBase)
|
||||
['{F1E1FFC0-02C9-47F5-92BC-BE10FA2C5134}']
|
||||
function GetAlbaran: IBizAlbaranProveedor;
|
||||
procedure SetAlbaran(const Value: IBizAlbaranProveedor);
|
||||
property Albaran: IBizAlbaranProveedor read GetAlbaran write SetAlbaran;
|
||||
|
||||
function GetProveedor: IBizProveedor;
|
||||
procedure SetProveedor(Value: IBizProveedor);
|
||||
property Proveedor: IBizProveedor read GetProveedor write SetProveedor;
|
||||
|
||||
function GetID_Proveedor: integer;
|
||||
procedure SetID_Proveedor(const Value: integer);
|
||||
property ID_Proveedor: integer read GetID_Proveedor write SetID_Proveedor;
|
||||
|
||||
function GetOnProveedorChanged : TNotifyEvent;
|
||||
procedure SetOnProveedorChanged (const Value : TNotifyEvent);
|
||||
property OnProveedorChanged : TNotifyEvent read GetOnProveedorChanged
|
||||
write SetOnProveedorChanged;
|
||||
|
||||
procedure ElegirPersonaContacto;
|
||||
procedure ElegirDireccionProveedor;
|
||||
procedure ElegirProveedor;
|
||||
procedure VerFichaProveedor;
|
||||
procedure AnadirNuevoProveedor;
|
||||
procedure RefrescarDireccion;
|
||||
end;
|
||||
|
||||
TfrViewDatosYSeleccionProveedorAlbaran = class(TfrViewBase, IViewDatosYSeleccionProveedorAlbaran)
|
||||
dsProveedor: TDADataSource;
|
||||
ActionList1: TActionList;
|
||||
actElegirContacto: TAction;
|
||||
actAnadirContacto: TAction;
|
||||
actVerContacto: TAction;
|
||||
dxLayoutControl1Group_Root: TdxLayoutGroup;
|
||||
dxLayoutControl1: TdxLayoutControl;
|
||||
dxLayoutControl1Item1: TdxLayoutItem;
|
||||
edtlNombre: TcxDBTextEdit;
|
||||
dxLayoutControl1Item2: TdxLayoutItem;
|
||||
edtNIFCIF: TcxDBTextEdit;
|
||||
dsAlbaran: TDADataSource;
|
||||
actElegirDireccion: TAction;
|
||||
actElegirPersonaContacto: TAction;
|
||||
dxLayoutControl1Item3: TdxLayoutItem;
|
||||
edtPersonaContacto: TcxDBTextEdit;
|
||||
dxLayoutControl1Group4: TdxLayoutGroup;
|
||||
dxLayoutControl1Item4: TdxLayoutItem;
|
||||
edtDireccion: TcxTextEdit;
|
||||
Button4: TButton;
|
||||
dxLayoutControl1Item5: TdxLayoutItem;
|
||||
dxLayoutControl1Group3: TdxLayoutGroup;
|
||||
dxLayoutControl1Item6: TdxLayoutItem;
|
||||
Button5: TButton;
|
||||
dxLayoutControl1Group5: TdxLayoutGroup;
|
||||
dxLayoutControl1Item9: TdxLayoutItem;
|
||||
Button3: TBitBtn;
|
||||
dxLayoutControl1Group2: TdxLayoutGroup;
|
||||
dxLayoutControl1Item7: TdxLayoutItem;
|
||||
Button1: TBitBtn;
|
||||
dxLayoutControl1Item10: TdxLayoutItem;
|
||||
BitBtn1: TBitBtn;
|
||||
dxLayoutControl1Group1: TdxLayoutGroup;
|
||||
PngImageList: TPngImageList;
|
||||
procedure actElegirContactoExecute(Sender: TObject);
|
||||
procedure actAnadirContactoExecute(Sender: TObject);
|
||||
procedure actVerContactoUpdate(Sender: TObject);
|
||||
procedure edtPersonaContactoPropertiesButtonClick(Sender: TObject;
|
||||
AButtonIndex: Integer);
|
||||
procedure edtDireccionPropertiesButtonClick(Sender: TObject;
|
||||
AButtonIndex: Integer);
|
||||
procedure actVerContactoExecute(Sender: TObject);
|
||||
procedure actElegirDireccionUpdate(Sender: TObject);
|
||||
procedure actElegirDireccionExecute(Sender: TObject);
|
||||
procedure actElegirPersonaContactoExecute(Sender: TObject);
|
||||
procedure actElegirPersonaContactoUpdate(Sender: TObject);
|
||||
|
||||
private
|
||||
FOnProveedorChanged : TNotifyEvent;
|
||||
FMsgElegirProveedor: String;
|
||||
protected
|
||||
FProveedoresController : IProveedoresController;
|
||||
FDireccionesController : IDireccionesContactoController;
|
||||
FAlbaran : IBizAlbaranProveedor;
|
||||
FProveedor : IBizProveedor;
|
||||
FDireccion : IBizDireccionesContacto;
|
||||
function GetProveedor: IBizProveedor; virtual;
|
||||
procedure SetProveedor(Value: IBizProveedor); virtual;
|
||||
function GetOnProveedorChanged : TNotifyEvent;
|
||||
procedure SetOnProveedorChanged (const Value : TNotifyEvent);
|
||||
procedure SetReadOnly(Value: Boolean); override;
|
||||
function GetID_Proveedor: integer; virtual;
|
||||
procedure SetID_Proveedor(const Value: integer); virtual;
|
||||
function GetAlbaran: IBizAlbaranProveedor;
|
||||
procedure SetAlbaran(const Value: IBizAlbaranProveedor);
|
||||
procedure EscribirTextoDireccion;
|
||||
public
|
||||
constructor Create(AOwner: TComponent); override;
|
||||
destructor Destroy; override;
|
||||
procedure ElegirPersonaContacto;
|
||||
procedure ElegirDireccionProveedor;
|
||||
procedure ElegirProveedor;
|
||||
procedure VerFichaProveedor;
|
||||
procedure AnadirNuevoProveedor;
|
||||
procedure RefrescarDireccion;
|
||||
property Albaran: IBizAlbaranProveedor read GetAlbaran write SetAlbaran;
|
||||
property Proveedor: IBizProveedor read GetProveedor write SetProveedor;
|
||||
property OnProveedorChanged : TNotifyEvent read GetOnProveedorChanged write SetOnProveedorChanged;
|
||||
property ID_Proveedor: integer read GetID_Proveedor write SetID_Proveedor;
|
||||
end;
|
||||
|
||||
implementation
|
||||
|
||||
{$R *.dfm}
|
||||
|
||||
uses
|
||||
uDataModuleProveedores, Math, uCustomView, uBizContactosPersonal, uDialogUtils;
|
||||
|
||||
|
||||
procedure TfrViewDatosYSeleccionProveedorAlbaran.actElegirContactoExecute(Sender: TObject);
|
||||
begin
|
||||
ElegirProveedor;
|
||||
end;
|
||||
|
||||
procedure TfrViewDatosYSeleccionProveedorAlbaran.actElegirDireccionExecute(
|
||||
Sender: TObject);
|
||||
begin
|
||||
inherited;
|
||||
ElegirDireccionProveedor;
|
||||
end;
|
||||
|
||||
procedure TfrViewDatosYSeleccionProveedorAlbaran.actElegirDireccionUpdate(
|
||||
Sender: TObject);
|
||||
begin
|
||||
inherited;
|
||||
(Sender as TAction).Enabled := not ReadOnly and Assigned(FProveedor.Direcciones) and
|
||||
(FProveedor.Direcciones.Active) and (FProveedor.Direcciones.RecordCount > 0);
|
||||
end;
|
||||
|
||||
procedure TfrViewDatosYSeleccionProveedorAlbaran.actElegirPersonaContactoExecute(
|
||||
Sender: TObject);
|
||||
begin
|
||||
inherited;
|
||||
ElegirPersonaContacto;
|
||||
end;
|
||||
|
||||
procedure TfrViewDatosYSeleccionProveedorAlbaran.actElegirPersonaContactoUpdate(
|
||||
Sender: TObject);
|
||||
begin
|
||||
inherited;
|
||||
(Sender as TAction).Enabled := not ReadOnly and Assigned(FProveedor.Personal) and
|
||||
(FProveedor.Personal.Active) and (FProveedor.Personal.RecordCount > 0);
|
||||
end;
|
||||
|
||||
procedure TfrViewDatosYSeleccionProveedorAlbaran.actAnadirContactoExecute(
|
||||
Sender: TObject);
|
||||
begin
|
||||
AnadirNuevoProveedor;
|
||||
end;
|
||||
|
||||
procedure TfrViewDatosYSeleccionProveedorAlbaran.actVerContactoExecute(
|
||||
Sender: TObject);
|
||||
begin
|
||||
inherited;
|
||||
VerFichaProveedor;
|
||||
end;
|
||||
|
||||
procedure TfrViewDatosYSeleccionProveedorAlbaran.actVerContactoUpdate(Sender: TObject);
|
||||
begin
|
||||
inherited;
|
||||
(Sender as TAction).Enabled := (Length(edtlNombre.Text) > 0);
|
||||
end;
|
||||
|
||||
procedure TfrViewDatosYSeleccionProveedorAlbaran.AnadirNuevoProveedor;
|
||||
var
|
||||
AProveedor : IBizProveedor;
|
||||
begin
|
||||
inherited;
|
||||
AProveedor := (FProveedoresController.Nuevo as IBizProveedor);
|
||||
FProveedoresController.Ver(AProveedor);
|
||||
Self.Proveedor := AProveedor;
|
||||
end;
|
||||
|
||||
constructor TfrViewDatosYSeleccionProveedorAlbaran.Create(AOwner: TComponent);
|
||||
begin
|
||||
inherited;
|
||||
FMsgElegirProveedor := 'Elija el proveedor al que se le realizará el pedido.';
|
||||
FProveedoresController := TProveedoresController.Create;
|
||||
FDireccionesController := TDireccionesContactoController.Create;
|
||||
|
||||
edtlNombre.Enabled := False;
|
||||
edtNIFCIF.Enabled := False;
|
||||
edtDireccion.Enabled := False;
|
||||
edtPersonaContacto.Enabled := False;
|
||||
end;
|
||||
|
||||
destructor TfrViewDatosYSeleccionProveedorAlbaran.Destroy;
|
||||
begin
|
||||
FProveedoresController := NIL;
|
||||
FDireccionesController := NIL;
|
||||
inherited;
|
||||
end;
|
||||
|
||||
procedure TfrViewDatosYSeleccionProveedorAlbaran.edtDireccionPropertiesButtonClick(
|
||||
Sender: TObject; AButtonIndex: Integer);
|
||||
begin
|
||||
inherited;
|
||||
ElegirDireccionProveedor;
|
||||
end;
|
||||
|
||||
procedure TfrViewDatosYSeleccionProveedorAlbaran.edtPersonaContactoPropertiesButtonClick(
|
||||
Sender: TObject; AButtonIndex: Integer);
|
||||
begin
|
||||
inherited;
|
||||
ElegirPersonaContacto;
|
||||
end;
|
||||
|
||||
procedure TfrViewDatosYSeleccionProveedorAlbaran.ElegirProveedor;
|
||||
var
|
||||
AProveedor : IBizProveedor;
|
||||
begin
|
||||
inherited;
|
||||
|
||||
AProveedor := (FProveedoresController.ElegirContacto(FProveedoresController.BuscarTodos, FMsgElegirProveedor, False) as IBizProveedor);
|
||||
|
||||
if Assigned(AProveedor) then
|
||||
Self.Proveedor := AProveedor;
|
||||
AProveedor := Nil;
|
||||
end;
|
||||
|
||||
procedure TfrViewDatosYSeleccionProveedorAlbaran.ElegirDireccionProveedor;
|
||||
var
|
||||
ADireccion : IBizDireccionesContacto;
|
||||
begin
|
||||
inherited;
|
||||
ADireccion := FProveedoresController.ElegirDireccionEntrega(FProveedor, ' ');
|
||||
|
||||
if Assigned(ADireccion) then
|
||||
begin
|
||||
FDireccion := ADireccion;
|
||||
FAlbaran.Edit;
|
||||
|
||||
if FDireccion.IDIsNull then
|
||||
begin
|
||||
FAlbaran.ClearField('ID_DIRECCION');
|
||||
FAlbaran.ClearField('IMPORTE_PORTE');
|
||||
end
|
||||
else begin
|
||||
FAlbaran.ID_DIRECCION := FDireccion.ID;
|
||||
FAlbaran.IMPORTE_PORTE := FDireccion.PORTE;
|
||||
end;
|
||||
FAlbaran.PERSONA_CONTACTO_PROV := FDireccion.PERSONA_CONTACTO;
|
||||
|
||||
EscribirTextoDireccion;
|
||||
end;
|
||||
end;
|
||||
|
||||
procedure TfrViewDatosYSeleccionProveedorAlbaran.ElegirPersonaContacto;
|
||||
var
|
||||
APersona : IBizContactoPersonal;
|
||||
begin
|
||||
inherited;
|
||||
APersona := FProveedoresController.ElegirPersonaContacto(FProveedor.Personal,
|
||||
'El proveedor dispone de personas de contacto dadas de alta en su ficha. Seleccione la que quiere utilizar.');
|
||||
if Assigned(APersona) then
|
||||
begin
|
||||
FAlbaran.Edit;
|
||||
FAlbaran.PERSONA_CONTACTO_PROV := APersona.NOMBRE;
|
||||
end;
|
||||
end;
|
||||
|
||||
procedure TfrViewDatosYSeleccionProveedorAlbaran.EscribirTextoDireccion;
|
||||
var
|
||||
ACadena : String;
|
||||
begin
|
||||
ACadena := '';
|
||||
|
||||
if Assigned(FDireccion) then
|
||||
ACadena := Format('%s %s %s %s',
|
||||
[FDireccion.CALLE, FDireccion.POBLACION,
|
||||
FDireccion.CODIGO_POSTAL, FDireccion.PROVINCIA]);
|
||||
|
||||
edtDireccion.Text := ACadena;
|
||||
end;
|
||||
|
||||
function TfrViewDatosYSeleccionProveedorAlbaran.GetProveedor: IBizProveedor;
|
||||
begin
|
||||
Result := FProveedor;
|
||||
end;
|
||||
|
||||
function TfrViewDatosYSeleccionProveedorAlbaran.GetID_Proveedor: integer;
|
||||
begin
|
||||
Result := -1;
|
||||
if Assigned(FProveedor) then
|
||||
Result := FProveedor.ID;
|
||||
end;
|
||||
|
||||
procedure TfrViewDatosYSeleccionProveedorAlbaran.SetProveedor(Value: IBizProveedor);
|
||||
begin
|
||||
FProveedor := Value;
|
||||
if Assigned(FProveedor) then
|
||||
begin
|
||||
dsProveedor.DataTable := FProveedor.DataTable;
|
||||
|
||||
if not FProveedor.DataTable.Active then
|
||||
FProveedor.DataTable.Active := True;
|
||||
|
||||
edtPersonaContacto.Enabled := True;
|
||||
|
||||
if FProveedor.Direcciones.RecordCount > 0 then
|
||||
ElegirDireccionProveedor
|
||||
else begin
|
||||
FAlbaran.Edit;
|
||||
FAlbaran.PERSONA_CONTACTO_PROV := FProveedor.PERSONA_CONTACTO;
|
||||
RefrescarDireccion;
|
||||
end;
|
||||
end
|
||||
else begin
|
||||
dsProveedor.DataTable := NIL;
|
||||
FProveedor := NIL;
|
||||
FDireccion := NIL;
|
||||
edtPersonaContacto.Enabled := False;
|
||||
end;
|
||||
|
||||
if Assigned(FOnProveedorChanged) then
|
||||
FOnProveedorChanged(Self);
|
||||
end;
|
||||
|
||||
procedure TfrViewDatosYSeleccionProveedorAlbaran.SetID_Proveedor(const Value: integer);
|
||||
begin
|
||||
Self.Proveedor := IBizProveedor(FProveedoresController.Buscar(Value));
|
||||
end;
|
||||
|
||||
function TfrViewDatosYSeleccionProveedorAlbaran.GetOnProveedorChanged: TNotifyEvent;
|
||||
begin
|
||||
Result := FOnProveedorChanged;
|
||||
end;
|
||||
|
||||
function TfrViewDatosYSeleccionProveedorAlbaran.GetAlbaran: IBizAlbaranProveedor;
|
||||
begin
|
||||
Result := FAlbaran;
|
||||
end;
|
||||
|
||||
procedure TfrViewDatosYSeleccionProveedorAlbaran.RefrescarDireccion;
|
||||
begin
|
||||
FDireccion := FDireccionesController.Nuevo;
|
||||
|
||||
if (not FAlbaran.ID_DIRECCIONIsNull) and
|
||||
(FDireccionesController.Localizar(FProveedor.Direcciones, FAlbaran.ID_DIRECCION)) then
|
||||
FDireccionesController.CopiarDireccion(FProveedor.Direcciones, FDireccion)
|
||||
else
|
||||
FDireccionesController.CopiarDireccionFiscal(FProveedor, FDireccion);
|
||||
|
||||
EscribirTextoDireccion;
|
||||
end;
|
||||
|
||||
procedure TfrViewDatosYSeleccionProveedorAlbaran.SetOnProveedorChanged(
|
||||
const Value: TNotifyEvent);
|
||||
begin
|
||||
FOnProveedorChanged := Value;
|
||||
end;
|
||||
|
||||
procedure TfrViewDatosYSeleccionProveedorAlbaran.SetAlbaran(
|
||||
const Value: IBizAlbaranProveedor);
|
||||
begin
|
||||
FAlbaran := Value;
|
||||
if Assigned(FAlbaran) then
|
||||
begin
|
||||
dsAlbaran.DataTable := FAlbaran.DataTable;
|
||||
|
||||
FProveedor := FAlbaran.Proveedor;
|
||||
dsProveedor.DataTable := FProveedor.DataTable;
|
||||
|
||||
if not FProveedor.DataTable.Active then
|
||||
FProveedor.DataTable.Active := True;
|
||||
|
||||
edtPersonaContacto.Enabled := True;
|
||||
RefrescarDireccion;
|
||||
end
|
||||
else begin
|
||||
dsAlbaran.DataTable := NIL;
|
||||
FProveedor := NIL;
|
||||
FDireccion := NIL;
|
||||
end;
|
||||
end;
|
||||
|
||||
procedure TfrViewDatosYSeleccionProveedorAlbaran.SetReadOnly(Value: Boolean);
|
||||
begin
|
||||
inherited;
|
||||
|
||||
if (csLoading in Self.ComponentState) then
|
||||
Exit;
|
||||
|
||||
actAnadirContacto.Enabled := not ReadOnly;
|
||||
actElegirContacto.Enabled := not ReadOnly;
|
||||
edtPersonaContacto.Enabled := not ReadOnly;
|
||||
end;
|
||||
|
||||
procedure TfrViewDatosYSeleccionProveedorAlbaran.VerFichaProveedor;
|
||||
begin
|
||||
if not Assigned(Proveedor) then
|
||||
ShowErrorMessage('No se ha indicado un proveedor', 'El pedido no tiene ningún proveedor asociado a mostrar.')
|
||||
else begin
|
||||
FProveedoresController.Ver(Proveedor);
|
||||
end;
|
||||
end;
|
||||
|
||||
end.
|
||||
Binary file not shown.
@ -1,323 +1,323 @@
|
||||
<?xml version="1.0" encoding="utf-8"?>
|
||||
<?xml version="1.0" encoding="utf-8"?>
|
||||
<Project xmlns="http://schemas.microsoft.com/developer/msbuild/2003">
|
||||
<PropertyGroup>
|
||||
<ProjectGuid>{ebdcd25d-40d7-4146-91ec-a0ea4aa1dcd1}</ProjectGuid>
|
||||
<MainSource>FactuGES_Server.dpr</MainSource>
|
||||
<Configuration Condition=" '$(Configuration)' == '' ">Debug</Configuration>
|
||||
<Platform Condition=" '$(Platform)' == '' ">AnyCPU</Platform>
|
||||
<DCC_DCCCompiler>DCC32</DCC_DCCCompiler>
|
||||
<DCC_DependencyCheckOutputName>..\..\Output\Debug\Servidor\FactuGES_Server.exe</DCC_DependencyCheckOutputName>
|
||||
<DCC_UsePackage>vcl;rtl;vclx;vclactnband;dbrtl;vcldb;vcldbx;bdertl;dsnap;dsnapcon;teeUI;teedb;tee;adortl;vclib;ibxpress;dbxcds;dbexpress;DbxCommonDriver;IndyCore;IndySystem;IndyProtocols;VclSmp;vclie;webdsnap;xmlrtl;inet;inetdbbde;inetdbxpress;RemObjects_BPDX_D11;RemObjects_RODX_D11;RemObjects_Indy_D11;RemObjects_Synapse_D11;RemObjects_WebBroker_D11;DataAbstract_Core_D11;DataAbstract_DBXDriver_D11;DataAbstract_IDE_D11;DataAbstract_Scripting_D11;DataAbstract_SDACDriver_D11;sdac105;dac105;DataAbstract_SQLiteDriver_D11;cxEditorsD10;cxLibraryD10;dxThemeD10;cxDataD10;cxExtEditorsD10;cxGridD10;cxPageControlD10;cxSchedulerD10;cxTreeListD10;cxVerticalGridD10;dxBarD10;dxComnD10;dxBarDBNavD10;dxBarExtDBItemsD10;dxBarExtItemsD10;dxDockingD10;dxLayoutControlD10;dxNavBarD10;dxPSCoreD10;dxsbD10;dxPScxCommonD10;dxPSLnksD10;vclshlctrls;dxPScxExtCommonD10;dxPScxGridLnkD10;dxPScxPCProdD10;dxPScxScheduler2LnkD10;dxPScxTLLnkD10;dxPSdxLCLnkD10;dxPsPrVwAdvD10;pckMD5;pckUCDataConnector;pckUserControl_RT;PluginSDK_D10R;PNG_D10;PngComponentsD10;tb2k_d10;tbx_d10;JclVcl;Jcl;JvXPCtrlsD11R;JvCoreD11R;JvSystemD11R;JvStdCtrlsD11R;JvAppFrmD11R;JvBandsD11R;JvDBD11R;JvDlgsD11R;JvBDED11R;JvCmpD11R;JvCryptD11R;JvCtrlsD11R;JvCustomD11R;JvDockingD11R;JvDotNetCtrlsD11R;JvEDID11R;JvGlobusD11R;JvHMID11R;JvInterpreterD11R;JvJansD11R;JvManagedThreadsD11R;JvMMD11R;JvNetD11R;JvPageCompsD11R;JvPluginD11R;JvPrintPreviewD11R;JvRuntimeDesignD11R;JvTimeFrameworkD11R;JvUIBD11R;JvValidatorsD11R;JvWizardD11R;pckUCADOConn;pckUCBDEConn;pckUCIBXConn;pckUCMidasConn;cxIntlPrintSys3D10;cxExportD10;cxIntl5D10;GUISDK_D11;ccpackD11;JSDialog100;fsTee11;fs11;frx11;frxADO11;frxBDE11;frxDB11;frxDBX11;frxe11;frxIBX11;frxTee11;fsADO11;fsBDE11;fsDB11;fsIBX11;websnap;soaprtl;IntrawebDB_90_100;Intraweb_90_100</DCC_UsePackage>
|
||||
</PropertyGroup>
|
||||
<PropertyGroup Condition=" '$(Configuration)|$(Platform)' == 'Release|AnyCPU' ">
|
||||
<Version>7.0</Version>
|
||||
<DCC_DebugInformation>False</DCC_DebugInformation>
|
||||
<DCC_LocalDebugSymbols>False</DCC_LocalDebugSymbols>
|
||||
<DCC_SymbolReferenceInfo>0</DCC_SymbolReferenceInfo>
|
||||
<DCC_MapFile>3</DCC_MapFile>
|
||||
<DCC_ExeOutput>..\..\Output\Release\Servidor</DCC_ExeOutput>
|
||||
<DCC_Define>RELEASE</DCC_Define>
|
||||
</PropertyGroup>
|
||||
<PropertyGroup Condition=" '$(Configuration)|$(Platform)' == 'Debug|AnyCPU' ">
|
||||
<Version>7.0</Version>
|
||||
<DCC_MapFile>3</DCC_MapFile>
|
||||
<DCC_ExeOutput>..\..\Output\Debug\Servidor</DCC_ExeOutput>
|
||||
<DCC_Define>DEBUG;</DCC_Define>
|
||||
<DCC_GenerateStackFrames>True</DCC_GenerateStackFrames>
|
||||
<DCC_DebugInfoInExe>True</DCC_DebugInfoInExe>
|
||||
<DCC_DebugVN>True</DCC_DebugVN>
|
||||
<DCC_UnitSearchPath>$(BDS)\lib\Debug;$(BDS)\Lib\Debug\Indy10</DCC_UnitSearchPath>
|
||||
<DCC_ResourcePath>$(BDS)\lib\Debug;$(BDS)\Lib\Debug\Indy10</DCC_ResourcePath>
|
||||
<DCC_ObjPath>$(BDS)\lib\Debug;$(BDS)\Lib\Debug\Indy10</DCC_ObjPath>
|
||||
<DCC_IncludePath>$(BDS)\lib\Debug;$(BDS)\Lib\Debug\Indy10</DCC_IncludePath>
|
||||
</PropertyGroup>
|
||||
<ProjectExtensions>
|
||||
<Borland.Personality>Delphi.Personality</Borland.Personality>
|
||||
<Borland.ProjectType />
|
||||
<BorlandProject>
|
||||
<BorlandProject><Delphi.Personality><Parameters><Parameters Name="UseLauncher">False</Parameters><Parameters Name="LoadAllSymbols">True</Parameters><Parameters Name="LoadUnspecifiedSymbols">False</Parameters><Parameters Name="RunParams">/standalone</Parameters></Parameters><VersionInfo><VersionInfo Name="IncludeVerInfo">True</VersionInfo><VersionInfo Name="AutoIncBuild">False</VersionInfo><VersionInfo Name="MajorVer">1</VersionInfo><VersionInfo Name="MinorVer">4</VersionInfo><VersionInfo Name="Release">7</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"></VersionInfoKeys><VersionInfoKeys Name="FileDescription"></VersionInfoKeys><VersionInfoKeys Name="FileVersion">1.4.7.0</VersionInfoKeys><VersionInfoKeys Name="InternalName"></VersionInfoKeys><VersionInfoKeys Name="LegalCopyright"></VersionInfoKeys><VersionInfoKeys Name="LegalTrademarks"></VersionInfoKeys><VersionInfoKeys Name="OriginalFilename"></VersionInfoKeys><VersionInfoKeys Name="ProductName"></VersionInfoKeys><VersionInfoKeys Name="ProductVersion">1.4.7.0</VersionInfoKeys><VersionInfoKeys Name="Comments"></VersionInfoKeys><VersionInfoKeys Name="CompileDate">jueves, 27 de noviembre de 2008 16:53</VersionInfoKeys></VersionInfoKeys><Excluded_Packages /><Source><Source Name="MainSource">FactuGES_Server.dpr</Source></Source></Delphi.Personality></BorlandProject></BorlandProject>
|
||||
</ProjectExtensions>
|
||||
<Import Project="$(MSBuildBinPath)\Borland.Delphi.Targets" />
|
||||
<ItemGroup>
|
||||
<DelphiCompile Include="FactuGES_Server.dpr">
|
||||
<MainSource>MainSource</MainSource>
|
||||
</DelphiCompile>
|
||||
<DCCReference Include="..\ApplicationBase\Empresas\Model\schEmpresasClient_Intf.pas" />
|
||||
<DCCReference Include="..\ApplicationBase\Empresas\Model\schEmpresasServer_Intf.pas" />
|
||||
<DCCReference Include="..\ApplicationBase\Empresas\Model\uBizEmpresasServer.pas" />
|
||||
<DCCReference Include="..\ApplicationBase\Empresas\Servidor\srvEmpresas_Impl.pas">
|
||||
<Form>srvEmpresas</Form>
|
||||
<DesignClass>TDARemoteService</DesignClass>
|
||||
</DCCReference>
|
||||
<DCCReference Include="..\ApplicationBase\ProvinciasPoblaciones\Servidor\srvProvinciasPoblaciones_Impl.pas">
|
||||
<Form>srvProvinciasPoblaciones_Impl</Form>
|
||||
<DesignClass>TDataModule</DesignClass>
|
||||
</DCCReference>
|
||||
<DCCReference Include="..\ApplicationBase\Usuarios\Model\schUsuariosClient_Intf.pas" />
|
||||
<DCCReference Include="..\ApplicationBase\Usuarios\Model\schUsuariosServer_Intf.pas" />
|
||||
<DCCReference Include="..\ApplicationBase\Usuarios\Servidor\srvUsuarios_Impl.pas">
|
||||
<Form>srvUsuarios</Form>
|
||||
<DesignClass>TDataAbstractService</DesignClass>
|
||||
</DCCReference>
|
||||
<DCCReference Include="..\Base\schBase_Intf.pas" />
|
||||
<DCCReference Include="..\Base\Utiles\uSistemaFunc.pas" />
|
||||
<DCCReference Include="..\Base\Utiles\uStringsUtils.pas" />
|
||||
<DCCReference Include="..\Modulos\Albaranes de cliente\Model\schAlbaranesClienteClient_Intf.pas" />
|
||||
<DCCReference Include="..\Modulos\Albaranes de cliente\Model\schAlbaranesClienteServer_Intf.pas" />
|
||||
<DCCReference Include="..\Modulos\Albaranes de cliente\Model\uBizAlbaranClienteServer.pas" />
|
||||
<DCCReference Include="..\Modulos\Albaranes de cliente\Reports\uRptAlbaranesCliente_Server.pas">
|
||||
<Form>RptAlbaranesCliente</Form>
|
||||
<DesignClass>TDataModule</DesignClass>
|
||||
</DCCReference>
|
||||
<DCCReference Include="..\Modulos\Albaranes de cliente\Reports\uRptWordAlbaranCliente.pas">
|
||||
<Form>RptWordAlbaranCliente</Form>
|
||||
<DesignClass>TDataModule</DesignClass>
|
||||
</DCCReference>
|
||||
<DCCReference Include="..\Modulos\Albaranes de cliente\Servidor\srvAlbaranesCliente_Impl.pas">
|
||||
<Form>srvAlbaranesCliente</Form>
|
||||
<DesignClass>TDataAbstractService</DesignClass>
|
||||
</DCCReference>
|
||||
<DCCReference Include="..\Modulos\Albaranes de proveedor\Model\schAlbaranesProveedorClient_Intf.pas" />
|
||||
<DCCReference Include="..\Modulos\Albaranes de proveedor\Model\schAlbaranesProveedorServer_Intf.pas" />
|
||||
<DCCReference Include="..\Modulos\Albaranes de proveedor\Model\uBizAlbaranProveedorServer.PAS" />
|
||||
<DCCReference Include="..\Modulos\Albaranes de proveedor\Servidor\srvAlbaranesProveedor_Impl.pas">
|
||||
<Form>srvAlbaranesProveedor</Form>
|
||||
<DesignClass>TDataAbstractService</DesignClass>
|
||||
</DCCReference>
|
||||
<DCCReference Include="..\Modulos\Almacenes\Model\schAlmacenesClient_Intf.pas" />
|
||||
<DCCReference Include="..\Modulos\Almacenes\Model\schAlmacenesServer_Intf.pas" />
|
||||
<DCCReference Include="..\Modulos\Almacenes\Servidor\srvAlmacenes_Impl.pas">
|
||||
<Form>srvAlmacenes</Form>
|
||||
<DesignClass>TDARemoteService</DesignClass>
|
||||
</DCCReference>
|
||||
<DCCReference Include="..\Modulos\Articulos\Model\schArticulosClient_Intf.pas" />
|
||||
<DCCReference Include="..\Modulos\Articulos\Model\schArticulosServer_Intf.pas" />
|
||||
<DCCReference Include="..\Modulos\Articulos\Model\uBizArticulosServer.pas" />
|
||||
<DCCReference Include="..\Modulos\Articulos\Servidor\srvArticulos_Impl.pas">
|
||||
<Form>srvArticulos</Form>
|
||||
<DesignClass>TDARemoteService</DesignClass>
|
||||
</DCCReference>
|
||||
<DCCReference Include="..\Modulos\Contactos\Model\schContactosClient_Intf.pas" />
|
||||
<DCCReference Include="..\Modulos\Contactos\Model\schContactosServer_Intf.pas" />
|
||||
<DCCReference Include="..\Modulos\Contactos\Model\uBizClientesServer.pas" />
|
||||
<DCCReference Include="..\Modulos\Contactos\Model\uBizContactosServer.pas" />
|
||||
<DCCReference Include="..\Modulos\Contactos\Model\uBizEmpleadosServer.pas" />
|
||||
<DCCReference Include="..\Modulos\Contactos\Model\uBizProveedoresServer.pas" />
|
||||
<DCCReference Include="..\Modulos\Contactos\Reports\uRptEtiquetasContacto_Server.pas">
|
||||
<Form>RptEtiquetasContacto</Form>
|
||||
<DesignClass>TDataModule</DesignClass>
|
||||
</DCCReference>
|
||||
<DCCReference Include="..\Modulos\Contactos\Reports\uRptFichasEmpleado_Server.pas">
|
||||
<Form>RptFichasEmpleado</Form>
|
||||
<DesignClass>TDataModule</DesignClass>
|
||||
</DCCReference>
|
||||
<DCCReference Include="..\Modulos\Contactos\Servidor\srvContactos_Impl.pas">
|
||||
<Form>srvContactos</Form>
|
||||
<DesignClass>TDARemoteService</DesignClass>
|
||||
</DCCReference>
|
||||
<DCCReference Include="..\Modulos\Fabricantes\Model\schFabricantesClient_Intf.pas" />
|
||||
<DCCReference Include="..\Modulos\Fabricantes\Model\schFabricantesServer_Intf.pas" />
|
||||
<DCCReference Include="..\Modulos\Fabricantes\Servidor\srvFabricantes_Impl.pas">
|
||||
<Form>srvFabricantes</Form>
|
||||
<DesignClass>TDataAbstractService</DesignClass>
|
||||
</DCCReference>
|
||||
<DCCReference Include="..\Modulos\Facturas de cliente\Model\schFacturasClienteClient_Intf.pas" />
|
||||
<DCCReference Include="..\Modulos\Facturas de cliente\Model\schFacturasClienteServer_Intf.pas" />
|
||||
<DCCReference Include="..\Modulos\Facturas de cliente\Model\uBizFacturasClienteServer.pas" />
|
||||
<DCCReference Include="..\Modulos\Facturas de cliente\Reports\uRptFacturasCliente_Server.pas">
|
||||
<Form>RptFacturasCliente</Form>
|
||||
<DesignClass>TDataModule</DesignClass>
|
||||
</DCCReference>
|
||||
<DCCReference Include="..\Modulos\Facturas de cliente\Reports\uRptWordFacturaCliente.pas">
|
||||
<Form>RptWordFacturaCliente</Form>
|
||||
<DesignClass>TDataModule</DesignClass>
|
||||
</DCCReference>
|
||||
<DCCReference Include="..\Modulos\Facturas de cliente\Servidor\srvFacturasCliente_Impl.pas">
|
||||
<Form>srvFacturasCliente</Form>
|
||||
<DesignClass>TDataAbstractService</DesignClass>
|
||||
</DCCReference>
|
||||
<DCCReference Include="..\Modulos\Facturas de proveedor\Model\schFacturasProveedorClient_Intf.pas" />
|
||||
<DCCReference Include="..\Modulos\Facturas de proveedor\Model\schFacturasProveedorServer_Intf.pas" />
|
||||
<DCCReference Include="..\Modulos\Facturas de proveedor\Model\uBizFacturasProveedorServer.pas" />
|
||||
<DCCReference Include="..\Modulos\Facturas de proveedor\Reports\uRptFacturasProveedor_Server.pas">
|
||||
<Form>RptFacturasProveedor</Form>
|
||||
<DesignClass>TDataModule</DesignClass>
|
||||
</DCCReference>
|
||||
<DCCReference Include="..\Modulos\Facturas de proveedor\Servidor\srvFacturasProveedor_Impl.pas">
|
||||
<Form>srvFacturasProveedor</Form>
|
||||
<DesignClass>TDataAbstractService</DesignClass>
|
||||
</DCCReference>
|
||||
<DCCReference Include="..\Modulos\Familias\Model\schFamiliasClient_Intf.pas" />
|
||||
<DCCReference Include="..\Modulos\Familias\Model\schFamiliasServer_Intf.pas" />
|
||||
<DCCReference Include="..\Modulos\Familias\Servidor\srvFamilias_Impl.pas">
|
||||
<Form>srvFamilias</Form>
|
||||
<DesignClass>TDataAbstractService</DesignClass>
|
||||
</DCCReference>
|
||||
<DCCReference Include="..\Modulos\Formas de pago\Model\schFormasPagoClient_Intf.pas" />
|
||||
<DCCReference Include="..\Modulos\Formas de pago\Model\schFormasPagoServer_Intf.pas" />
|
||||
<DCCReference Include="..\Modulos\Formas de pago\Servidor\srvFormasPago_Impl.pas">
|
||||
<Form>srvFormasPago</Form>
|
||||
<DesignClass>TDataAbstractService</DesignClass>
|
||||
</DCCReference>
|
||||
<DCCReference Include="..\Modulos\Gestion de documentos\Servidor\srvGestorDocumentos_Impl.pas">
|
||||
<Form>srvGestorDocumentos</Form>
|
||||
<DesignClass>TDataAbstractService</DesignClass>
|
||||
</DCCReference>
|
||||
<DCCReference Include="..\Modulos\Gestor de informes\Servidor\srvGestorInformes_Impl.pas">
|
||||
<Form>srvGestorInformes</Form>
|
||||
<DesignClass>TDataAbstractService</DesignClass>
|
||||
</DCCReference>
|
||||
<DCCReference Include="..\Modulos\Historico de movimientos\Model\schHistoricoMovimientosClient_Intf.pas" />
|
||||
<DCCReference Include="..\Modulos\Historico de movimientos\Model\schHistoricoMovimientosServer_Intf.pas" />
|
||||
<DCCReference Include="..\Modulos\Historico de movimientos\Servidor\srvHistoricoMovimientos_Impl.pas">
|
||||
<Form>srvHistoricoMovimientos</Form>
|
||||
<DesignClass>TDataAbstractService</DesignClass>
|
||||
</DCCReference>
|
||||
<DCCReference Include="..\Modulos\Inventario\Model\schInventarioClient_Intf.pas" />
|
||||
<DCCReference Include="..\Modulos\Inventario\Model\schInventarioServer_Intf.pas" />
|
||||
<DCCReference Include="..\Modulos\Inventario\Servidor\srvInventario_Impl.pas">
|
||||
<Form>srvInventario</Form>
|
||||
<DesignClass>TDataAbstractService</DesignClass>
|
||||
</DCCReference>
|
||||
<DCCReference Include="..\Modulos\Obras\Model\schObrasClient_Intf.pas" />
|
||||
<DCCReference Include="..\Modulos\Obras\Model\schObrasServer_Intf.pas" />
|
||||
<DCCReference Include="..\Modulos\Obras\Model\uBizObrasServer.pas" />
|
||||
<DCCReference Include="..\Modulos\Obras\Servidor\srvObras_Impl.pas">
|
||||
<Form>srvObras</Form>
|
||||
<DesignClass>TDataAbstractService</DesignClass>
|
||||
</DCCReference>
|
||||
<DCCReference Include="..\Modulos\Pedidos a proveedor\Model\schPedidosProveedorClient_Intf.pas" />
|
||||
<DCCReference Include="..\Modulos\Pedidos a proveedor\Model\schPedidosProveedorServer_Intf.pas" />
|
||||
<DCCReference Include="..\Modulos\Pedidos a proveedor\Model\uBizPedidosProveedorServer.pas" />
|
||||
<DCCReference Include="..\Modulos\Pedidos a proveedor\Reports\uRptPedidosProveedor_Server.pas">
|
||||
<Form>RptPedidosProveedor</Form>
|
||||
<DesignClass>TDataModule</DesignClass>
|
||||
</DCCReference>
|
||||
<DCCReference Include="..\Modulos\Pedidos a proveedor\Reports\uRptWordPedidoProveedor.pas">
|
||||
<Form>RptWordPedidoProveedor</Form>
|
||||
<DesignClass>TDataModule</DesignClass>
|
||||
</DCCReference>
|
||||
<DCCReference Include="..\Modulos\Pedidos a proveedor\Servidor\srvPedidosProveedor_Impl.pas">
|
||||
<Form>srvPedidosProveedor</Form>
|
||||
<DesignClass>TDataAbstractService</DesignClass>
|
||||
</DCCReference>
|
||||
<DCCReference Include="..\Modulos\Presupuestos de cliente\Model\schPresupuestosClienteClient_Intf.pas" />
|
||||
<DCCReference Include="..\Modulos\Presupuestos de cliente\Model\schPresupuestosClienteServer_Intf.pas" />
|
||||
<DCCReference Include="..\Modulos\Presupuestos de cliente\Model\uBizPresupuestosClienteServer.pas" />
|
||||
<DCCReference Include="..\Modulos\Presupuestos de cliente\Reports\uRptPresupuestosCliente_Server.pas">
|
||||
<Form>RptPresupuestosCliente</Form>
|
||||
<DesignClass>TDataModule</DesignClass>
|
||||
</DCCReference>
|
||||
<DCCReference Include="..\Modulos\Presupuestos de cliente\Reports\uRptWordCertificadoTrabajo_Server.pas">
|
||||
<Form>RptWordCertificadoTrabajo</Form>
|
||||
<DesignClass>TDataModule</DesignClass>
|
||||
</DCCReference>
|
||||
<DCCReference Include="..\Modulos\Presupuestos de cliente\Reports\uRptWordPresupuestoCliente.pas">
|
||||
<Form>RptWordPresupuestoCliente</Form>
|
||||
<DesignClass>TDataModule</DesignClass>
|
||||
</DCCReference>
|
||||
<DCCReference Include="..\Modulos\Presupuestos de cliente\Servidor\srvPresupuestosCliente_Impl.pas">
|
||||
<Form>srvPresupuestosCliente</Form>
|
||||
<DesignClass>TDataAbstractService</DesignClass>
|
||||
</DCCReference>
|
||||
<DCCReference Include="..\Modulos\Recibos de cliente\Model\schRecibosClienteClient_Intf.pas" />
|
||||
<DCCReference Include="..\Modulos\Recibos de cliente\Model\schRecibosClienteServer_Intf.pas" />
|
||||
<DCCReference Include="..\Modulos\Recibos de cliente\Reports\uRptRecibosCliente_Server.pas">
|
||||
<Form>RptRecibosCliente</Form>
|
||||
<DesignClass>TDataModule</DesignClass>
|
||||
</DCCReference>
|
||||
<DCCReference Include="..\Modulos\Recibos de cliente\Servidor\srvRecibosCliente_Impl.pas">
|
||||
<Form>srvRecibosCliente</Form>
|
||||
<DesignClass>TDataAbstractService</DesignClass>
|
||||
</DCCReference>
|
||||
<DCCReference Include="..\Modulos\Recibos de proveedor\Model\schRecibosProveedorClient_Intf.pas" />
|
||||
<DCCReference Include="..\Modulos\Recibos de proveedor\Model\schRecibosProveedorServer_Intf.pas" />
|
||||
<DCCReference Include="..\Modulos\Recibos de proveedor\Reports\uRptRecibosProveedor_Server.pas">
|
||||
<Form>RptRecibosProveedor</Form>
|
||||
<DesignClass>TDataModule</DesignClass>
|
||||
</DCCReference>
|
||||
<DCCReference Include="..\Modulos\Recibos de proveedor\Servidor\srvRecibosProveedor_Impl.pas">
|
||||
<Form>srvRecibosProveedor</Form>
|
||||
<DesignClass>TDataAbstractService</DesignClass>
|
||||
</DCCReference>
|
||||
<DCCReference Include="..\Modulos\Referencias\Model\schReferenciasClient_Intf.pas" />
|
||||
<DCCReference Include="..\Modulos\Referencias\Model\schReferenciasServer_Intf.pas" />
|
||||
<DCCReference Include="..\Modulos\Referencias\Servidor\srvReferencias_Impl.pas">
|
||||
<Form>srvReferencias</Form>
|
||||
<DesignClass>TDataAbstractService</DesignClass>
|
||||
</DCCReference>
|
||||
<DCCReference Include="..\Modulos\Remesas de cliente\Model\schRemesasClienteClient_Intf.pas" />
|
||||
<DCCReference Include="..\Modulos\Remesas de cliente\Model\schRemesasClienteServer_Intf.pas" />
|
||||
<DCCReference Include="..\Modulos\Remesas de cliente\Model\uBizRemesasClienteServer.pas" />
|
||||
<DCCReference Include="..\Modulos\Remesas de cliente\Servidor\srvRemesasCliente_Impl.pas">
|
||||
<Form>srvRemesasCliente</Form>
|
||||
<DesignClass>TDataAbstractService</DesignClass>
|
||||
</DCCReference>
|
||||
<DCCReference Include="..\Modulos\Remesas de proveedor\Model\schRemesasProveedorClient_Intf.pas" />
|
||||
<DCCReference Include="..\Modulos\Remesas de proveedor\Model\schRemesasProveedorServer_Intf.pas" />
|
||||
<DCCReference Include="..\Modulos\Remesas de proveedor\Model\uBizRemesasProveedorServer.pas" />
|
||||
<DCCReference Include="..\Modulos\Remesas de proveedor\Servidor\srvRemesasProveedor_Impl.pas">
|
||||
<Form>srvRemesasProveedor</Form>
|
||||
<DesignClass>TDataAbstractService</DesignClass>
|
||||
</DCCReference>
|
||||
<DCCReference Include="..\Modulos\Tipos de IVA\Model\schTiposIVAClient_Intf.pas" />
|
||||
<DCCReference Include="..\Modulos\Tipos de IVA\Model\schTiposIVAServer_Intf.pas" />
|
||||
<DCCReference Include="..\Modulos\Tipos de IVA\Servidor\srvTiposIVA_Impl.pas">
|
||||
<Form>srvTiposIVA</Form>
|
||||
<DesignClass>TDataAbstractService</DesignClass>
|
||||
</DCCReference>
|
||||
<DCCReference Include="..\Modulos\Unidades de medida\Model\schUnidadesMedidaClient_Intf.pas" />
|
||||
<DCCReference Include="..\Modulos\Unidades de medida\Model\schUnidadesMedidaServer_Intf.pas" />
|
||||
<DCCReference Include="..\Modulos\Unidades de medida\Servidor\srvUnidadesMedida_Impl.pas">
|
||||
<Form>srvUnidadesMedida</Form>
|
||||
<DesignClass>TDataAbstractService</DesignClass>
|
||||
</DCCReference>
|
||||
<DCCReference Include="..\Servicios\FactuGES_Intf.pas" />
|
||||
<DCCReference Include="..\Servicios\FactuGES_Invk.pas" />
|
||||
<DCCReference Include="Configuracion\srvConfiguracion_Impl.pas">
|
||||
<Form>srvConfiguracion</Form>
|
||||
<DesignClass>TDataAbstractService</DesignClass>
|
||||
</DCCReference>
|
||||
<DCCReference Include="Configuracion\uConexionBD.pas">
|
||||
<Form>frConexionBD</Form>
|
||||
<DesignClass>TFrame</DesignClass>
|
||||
</DCCReference>
|
||||
<DCCReference Include="Configuracion\uConfGeneral.pas">
|
||||
<Form>frConfGeneral</Form>
|
||||
<DesignClass>TFrame</DesignClass>
|
||||
</DCCReference>
|
||||
<DCCReference Include="Configuracion\uConfiguracion.pas">
|
||||
<Form>fConfiguracion</Form>
|
||||
<DesignClass>TForm</DesignClass>
|
||||
</DCCReference>
|
||||
<DCCReference Include="Configuracion\uFrameConfiguracion.pas">
|
||||
<Form>FrameConfiguracion</Form>
|
||||
<DesignClass>TFrame</DesignClass>
|
||||
</DCCReference>
|
||||
<DCCReference Include="srvLogin_Impl.pas">
|
||||
<Form>srvLogin</Form>
|
||||
<DesignClass>TDARemoteService</DesignClass>
|
||||
</DCCReference>
|
||||
<DCCReference Include="uAcercaDe.pas">
|
||||
<Form>fAcercaDe</Form>
|
||||
</DCCReference>
|
||||
<DCCReference Include="uDataModuleServer.pas">
|
||||
<Form>dmServer</Form>
|
||||
<DesignClass>TDataModule</DesignClass>
|
||||
</DCCReference>
|
||||
<DCCReference Include="uServerMainForm.pas">
|
||||
<Form>fServerForm</Form>
|
||||
</DCCReference>
|
||||
<DCCReference Include="Utiles\AHWord97.pas" />
|
||||
<DCCReference Include="Utiles\RegExpr.pas" />
|
||||
<DCCReference Include="Utiles\uBusinessUtils.pas" />
|
||||
<DCCReference Include="Utiles\uDatabaseUtils.pas" />
|
||||
<DCCReference Include="Utiles\uReferenciasUtils.pas" />
|
||||
<DCCReference Include="Utiles\uRestriccionesUsuarioUtils.pas" />
|
||||
<DCCReference Include="Utiles\uSchemaUtilsServer.pas" />
|
||||
<DCCReference Include="Utiles\uServerAppUtils.pas" />
|
||||
<DCCReference Include="Utiles\uSesionesUtils.pas" />
|
||||
</ItemGroup>
|
||||
<PropertyGroup>
|
||||
<ProjectGuid>{ebdcd25d-40d7-4146-91ec-a0ea4aa1dcd1}</ProjectGuid>
|
||||
<MainSource>FactuGES_Server.dpr</MainSource>
|
||||
<Configuration Condition=" '$(Configuration)' == '' ">Debug</Configuration>
|
||||
<Platform Condition=" '$(Platform)' == '' ">AnyCPU</Platform>
|
||||
<DCC_DCCCompiler>DCC32</DCC_DCCCompiler>
|
||||
<DCC_DependencyCheckOutputName>..\..\Output\Debug\Servidor\FactuGES_Server.exe</DCC_DependencyCheckOutputName>
|
||||
<DCC_UsePackage>vcl;rtl;vclx;vclactnband;dbrtl;vcldb;vcldbx;bdertl;dsnap;dsnapcon;teeUI;teedb;tee;adortl;vclib;ibxpress;dbxcds;dbexpress;DbxCommonDriver;IndyCore;IndySystem;IndyProtocols;VclSmp;vclie;webdsnap;xmlrtl;inet;inetdbbde;inetdbxpress;RemObjects_BPDX_D11;RemObjects_RODX_D11;RemObjects_Indy_D11;RemObjects_Synapse_D11;RemObjects_WebBroker_D11;DataAbstract_Core_D11;DataAbstract_DBXDriver_D11;DataAbstract_IDE_D11;DataAbstract_Scripting_D11;DataAbstract_SDACDriver_D11;sdac105;dac105;DataAbstract_SQLiteDriver_D11;cxEditorsD10;cxLibraryD10;dxThemeD10;cxDataD10;cxExtEditorsD10;cxGridD10;cxPageControlD10;cxSchedulerD10;cxTreeListD10;cxVerticalGridD10;dxBarD10;dxComnD10;dxBarDBNavD10;dxBarExtDBItemsD10;dxBarExtItemsD10;dxDockingD10;dxLayoutControlD10;dxNavBarD10;dxPSCoreD10;dxsbD10;dxPScxCommonD10;dxPSLnksD10;vclshlctrls;dxPScxExtCommonD10;dxPScxGridLnkD10;dxPScxPCProdD10;dxPScxScheduler2LnkD10;dxPScxTLLnkD10;dxPSdxLCLnkD10;dxPsPrVwAdvD10;pckMD5;pckUCDataConnector;pckUserControl_RT;PluginSDK_D10R;PNG_D10;PngComponentsD10;tb2k_d10;tbx_d10;JclVcl;Jcl;JvXPCtrlsD11R;JvCoreD11R;JvSystemD11R;JvStdCtrlsD11R;JvAppFrmD11R;JvBandsD11R;JvDBD11R;JvDlgsD11R;JvBDED11R;JvCmpD11R;JvCryptD11R;JvCtrlsD11R;JvCustomD11R;JvDockingD11R;JvDotNetCtrlsD11R;JvEDID11R;JvGlobusD11R;JvHMID11R;JvInterpreterD11R;JvJansD11R;JvManagedThreadsD11R;JvMMD11R;JvNetD11R;JvPageCompsD11R;JvPluginD11R;JvPrintPreviewD11R;JvRuntimeDesignD11R;JvTimeFrameworkD11R;JvUIBD11R;JvValidatorsD11R;JvWizardD11R;pckUCADOConn;pckUCBDEConn;pckUCIBXConn;pckUCMidasConn;cxIntlPrintSys3D10;cxExportD10;cxIntl5D10;GUISDK_D11;ccpackD11;JSDialog100;fsTee11;fs11;frx11;frxADO11;frxBDE11;frxDB11;frxDBX11;frxe11;frxIBX11;frxTee11;fsADO11;fsBDE11;fsDB11;fsIBX11;websnap;soaprtl;IntrawebDB_90_100;Intraweb_90_100</DCC_UsePackage>
|
||||
</PropertyGroup>
|
||||
<PropertyGroup Condition=" '$(Configuration)|$(Platform)' == 'Release|AnyCPU' ">
|
||||
<Version>7.0</Version>
|
||||
<DCC_DebugInformation>False</DCC_DebugInformation>
|
||||
<DCC_LocalDebugSymbols>False</DCC_LocalDebugSymbols>
|
||||
<DCC_SymbolReferenceInfo>0</DCC_SymbolReferenceInfo>
|
||||
<DCC_MapFile>3</DCC_MapFile>
|
||||
<DCC_ExeOutput>..\..\Output\Release\Servidor</DCC_ExeOutput>
|
||||
<DCC_Define>RELEASE</DCC_Define>
|
||||
</PropertyGroup>
|
||||
<PropertyGroup Condition=" '$(Configuration)|$(Platform)' == 'Debug|AnyCPU' ">
|
||||
<Version>7.0</Version>
|
||||
<DCC_MapFile>3</DCC_MapFile>
|
||||
<DCC_ExeOutput>..\..\Output\Debug\Servidor</DCC_ExeOutput>
|
||||
<DCC_Define>DEBUG;</DCC_Define>
|
||||
<DCC_GenerateStackFrames>True</DCC_GenerateStackFrames>
|
||||
<DCC_DebugInfoInExe>True</DCC_DebugInfoInExe>
|
||||
<DCC_DebugVN>True</DCC_DebugVN>
|
||||
<DCC_UnitSearchPath>$(BDS)\lib\Debug;$(BDS)\Lib\Debug\Indy10</DCC_UnitSearchPath>
|
||||
<DCC_ResourcePath>$(BDS)\lib\Debug;$(BDS)\Lib\Debug\Indy10</DCC_ResourcePath>
|
||||
<DCC_ObjPath>$(BDS)\lib\Debug;$(BDS)\Lib\Debug\Indy10</DCC_ObjPath>
|
||||
<DCC_IncludePath>$(BDS)\lib\Debug;$(BDS)\Lib\Debug\Indy10</DCC_IncludePath>
|
||||
</PropertyGroup>
|
||||
<ProjectExtensions>
|
||||
<Borland.Personality>Delphi.Personality</Borland.Personality>
|
||||
<Borland.ProjectType/>
|
||||
<BorlandProject>
|
||||
<BorlandProject><Delphi.Personality><Parameters><Parameters Name="UseLauncher">False</Parameters><Parameters Name="LoadAllSymbols">True</Parameters><Parameters Name="LoadUnspecifiedSymbols">False</Parameters><Parameters Name="RunParams">/standalone</Parameters></Parameters><VersionInfo><VersionInfo Name="IncludeVerInfo">True</VersionInfo><VersionInfo Name="AutoIncBuild">False</VersionInfo><VersionInfo Name="MajorVer">1</VersionInfo><VersionInfo Name="MinorVer">4</VersionInfo><VersionInfo Name="Release">7</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"></VersionInfoKeys><VersionInfoKeys Name="FileDescription"></VersionInfoKeys><VersionInfoKeys Name="FileVersion">1.4.7.0</VersionInfoKeys><VersionInfoKeys Name="InternalName"></VersionInfoKeys><VersionInfoKeys Name="LegalCopyright"></VersionInfoKeys><VersionInfoKeys Name="LegalTrademarks"></VersionInfoKeys><VersionInfoKeys Name="OriginalFilename"></VersionInfoKeys><VersionInfoKeys Name="ProductName"></VersionInfoKeys><VersionInfoKeys Name="ProductVersion">1.4.7.0</VersionInfoKeys><VersionInfoKeys Name="Comments"></VersionInfoKeys><VersionInfoKeys Name="CompileDate">jueves, 27 de noviembre de 2008 16:53</VersionInfoKeys></VersionInfoKeys><Excluded_Packages/><Source><Source Name="MainSource">FactuGES_Server.dpr</Source></Source></Delphi.Personality></BorlandProject></BorlandProject>
|
||||
</ProjectExtensions>
|
||||
<Import Project="$(MSBuildBinPath)\Borland.Delphi.Targets"/>
|
||||
<ItemGroup>
|
||||
<DelphiCompile Include="FactuGES_Server.dpr">
|
||||
<MainSource>MainSource</MainSource>
|
||||
</DelphiCompile>
|
||||
<DCCReference Include="..\ApplicationBase\Empresas\Model\schEmpresasClient_Intf.pas"/>
|
||||
<DCCReference Include="..\ApplicationBase\Empresas\Model\schEmpresasServer_Intf.pas"/>
|
||||
<DCCReference Include="..\ApplicationBase\Empresas\Model\uBizEmpresasServer.pas"/>
|
||||
<DCCReference Include="..\ApplicationBase\Empresas\Servidor\srvEmpresas_Impl.pas">
|
||||
<Form>srvEmpresas</Form>
|
||||
<DesignClass>TDARemoteService</DesignClass>
|
||||
</DCCReference>
|
||||
<DCCReference Include="..\ApplicationBase\ProvinciasPoblaciones\Servidor\srvProvinciasPoblaciones_Impl.pas">
|
||||
<Form>srvProvinciasPoblaciones_Impl</Form>
|
||||
<DesignClass>TDataModule</DesignClass>
|
||||
</DCCReference>
|
||||
<DCCReference Include="..\ApplicationBase\Usuarios\Model\schUsuariosClient_Intf.pas"/>
|
||||
<DCCReference Include="..\ApplicationBase\Usuarios\Model\schUsuariosServer_Intf.pas"/>
|
||||
<DCCReference Include="..\ApplicationBase\Usuarios\Servidor\srvUsuarios_Impl.pas">
|
||||
<Form>srvUsuarios</Form>
|
||||
<DesignClass>TDataAbstractService</DesignClass>
|
||||
</DCCReference>
|
||||
<DCCReference Include="..\Base\schBase_Intf.pas"/>
|
||||
<DCCReference Include="..\Base\Utiles\uSistemaFunc.pas"/>
|
||||
<DCCReference Include="..\Base\Utiles\uStringsUtils.pas"/>
|
||||
<DCCReference Include="..\Modulos\Albaranes de cliente\Model\schAlbaranesClienteClient_Intf.pas"/>
|
||||
<DCCReference Include="..\Modulos\Albaranes de cliente\Model\schAlbaranesClienteServer_Intf.pas"/>
|
||||
<DCCReference Include="..\Modulos\Albaranes de cliente\Model\uBizAlbaranClienteServer.pas"/>
|
||||
<DCCReference Include="..\Modulos\Albaranes de cliente\Reports\uRptAlbaranesCliente_Server.pas">
|
||||
<Form>RptAlbaranesCliente</Form>
|
||||
<DesignClass>TDataModule</DesignClass>
|
||||
</DCCReference>
|
||||
<DCCReference Include="..\Modulos\Albaranes de cliente\Reports\uRptWordAlbaranCliente.pas">
|
||||
<Form>RptWordAlbaranCliente</Form>
|
||||
<DesignClass>TDataModule</DesignClass>
|
||||
</DCCReference>
|
||||
<DCCReference Include="..\Modulos\Albaranes de cliente\Servidor\srvAlbaranesCliente_Impl.pas">
|
||||
<Form>srvAlbaranesCliente</Form>
|
||||
<DesignClass>TDataAbstractService</DesignClass>
|
||||
</DCCReference>
|
||||
<DCCReference Include="..\Modulos\Albaranes de proveedor\Model\schAlbaranesProveedorClient_Intf.pas"/>
|
||||
<DCCReference Include="..\Modulos\Albaranes de proveedor\Model\schAlbaranesProveedorServer_Intf.pas"/>
|
||||
<DCCReference Include="..\Modulos\Albaranes de proveedor\Model\uBizAlbaranProveedorServer.PAS"/>
|
||||
<DCCReference Include="..\Modulos\Albaranes de proveedor\Servidor\srvAlbaranesProveedor_Impl.pas">
|
||||
<Form>srvAlbaranesProveedor</Form>
|
||||
<DesignClass>TDataAbstractService</DesignClass>
|
||||
</DCCReference>
|
||||
<DCCReference Include="..\Modulos\Almacenes\Model\schAlmacenesClient_Intf.pas"/>
|
||||
<DCCReference Include="..\Modulos\Almacenes\Model\schAlmacenesServer_Intf.pas"/>
|
||||
<DCCReference Include="..\Modulos\Almacenes\Servidor\srvAlmacenes_Impl.pas">
|
||||
<Form>srvAlmacenes</Form>
|
||||
<DesignClass>TDARemoteService</DesignClass>
|
||||
</DCCReference>
|
||||
<DCCReference Include="..\Modulos\Articulos\Model\schArticulosClient_Intf.pas"/>
|
||||
<DCCReference Include="..\Modulos\Articulos\Model\schArticulosServer_Intf.pas"/>
|
||||
<DCCReference Include="..\Modulos\Articulos\Model\uBizArticulosServer.pas"/>
|
||||
<DCCReference Include="..\Modulos\Articulos\Servidor\srvArticulos_Impl.pas">
|
||||
<Form>srvArticulos</Form>
|
||||
<DesignClass>TDARemoteService</DesignClass>
|
||||
</DCCReference>
|
||||
<DCCReference Include="..\Modulos\Contactos\Model\schContactosClient_Intf.pas"/>
|
||||
<DCCReference Include="..\Modulos\Contactos\Model\schContactosServer_Intf.pas"/>
|
||||
<DCCReference Include="..\Modulos\Contactos\Model\uBizClientesServer.pas"/>
|
||||
<DCCReference Include="..\Modulos\Contactos\Model\uBizContactosServer.pas"/>
|
||||
<DCCReference Include="..\Modulos\Contactos\Model\uBizEmpleadosServer.pas"/>
|
||||
<DCCReference Include="..\Modulos\Contactos\Model\uBizProveedoresServer.pas"/>
|
||||
<DCCReference Include="..\Modulos\Contactos\Reports\uRptEtiquetasContacto_Server.pas">
|
||||
<Form>RptEtiquetasContacto</Form>
|
||||
<DesignClass>TDataModule</DesignClass>
|
||||
</DCCReference>
|
||||
<DCCReference Include="..\Modulos\Contactos\Reports\uRptFichasEmpleado_Server.pas">
|
||||
<Form>RptFichasEmpleado</Form>
|
||||
<DesignClass>TDataModule</DesignClass>
|
||||
</DCCReference>
|
||||
<DCCReference Include="..\Modulos\Contactos\Servidor\srvContactos_Impl.pas">
|
||||
<Form>srvContactos</Form>
|
||||
<DesignClass>TDARemoteService</DesignClass>
|
||||
</DCCReference>
|
||||
<DCCReference Include="..\Modulos\Fabricantes\Model\schFabricantesClient_Intf.pas"/>
|
||||
<DCCReference Include="..\Modulos\Fabricantes\Model\schFabricantesServer_Intf.pas"/>
|
||||
<DCCReference Include="..\Modulos\Fabricantes\Servidor\srvFabricantes_Impl.pas">
|
||||
<Form>srvFabricantes</Form>
|
||||
<DesignClass>TDataAbstractService</DesignClass>
|
||||
</DCCReference>
|
||||
<DCCReference Include="..\Modulos\Facturas de cliente\Model\schFacturasClienteClient_Intf.pas"/>
|
||||
<DCCReference Include="..\Modulos\Facturas de cliente\Model\schFacturasClienteServer_Intf.pas"/>
|
||||
<DCCReference Include="..\Modulos\Facturas de cliente\Model\uBizFacturasClienteServer.pas"/>
|
||||
<DCCReference Include="..\Modulos\Facturas de cliente\Reports\uRptFacturasCliente_Server.pas">
|
||||
<Form>RptFacturasCliente</Form>
|
||||
<DesignClass>TDataModule</DesignClass>
|
||||
</DCCReference>
|
||||
<DCCReference Include="..\Modulos\Facturas de cliente\Reports\uRptWordFacturaCliente.pas">
|
||||
<Form>RptWordFacturaCliente</Form>
|
||||
<DesignClass>TDataModule</DesignClass>
|
||||
</DCCReference>
|
||||
<DCCReference Include="..\Modulos\Facturas de cliente\Servidor\srvFacturasCliente_Impl.pas">
|
||||
<Form>srvFacturasCliente</Form>
|
||||
<DesignClass>TDataAbstractService</DesignClass>
|
||||
</DCCReference>
|
||||
<DCCReference Include="..\Modulos\Facturas de proveedor\Model\schFacturasProveedorClient_Intf.pas"/>
|
||||
<DCCReference Include="..\Modulos\Facturas de proveedor\Model\schFacturasProveedorServer_Intf.pas"/>
|
||||
<DCCReference Include="..\Modulos\Facturas de proveedor\Model\uBizFacturasProveedorServer.pas"/>
|
||||
<DCCReference Include="..\Modulos\Facturas de proveedor\Reports\uRptFacturasProveedor_Server.pas">
|
||||
<Form>RptFacturasProveedor</Form>
|
||||
<DesignClass>TDataModule</DesignClass>
|
||||
</DCCReference>
|
||||
<DCCReference Include="..\Modulos\Facturas de proveedor\Servidor\srvFacturasProveedor_Impl.pas">
|
||||
<Form>srvFacturasProveedor</Form>
|
||||
<DesignClass>TDataAbstractService</DesignClass>
|
||||
</DCCReference>
|
||||
<DCCReference Include="..\Modulos\Familias\Model\schFamiliasClient_Intf.pas"/>
|
||||
<DCCReference Include="..\Modulos\Familias\Model\schFamiliasServer_Intf.pas"/>
|
||||
<DCCReference Include="..\Modulos\Familias\Servidor\srvFamilias_Impl.pas">
|
||||
<Form>srvFamilias</Form>
|
||||
<DesignClass>TDataAbstractService</DesignClass>
|
||||
</DCCReference>
|
||||
<DCCReference Include="..\Modulos\Formas de pago\Model\schFormasPagoClient_Intf.pas"/>
|
||||
<DCCReference Include="..\Modulos\Formas de pago\Model\schFormasPagoServer_Intf.pas"/>
|
||||
<DCCReference Include="..\Modulos\Formas de pago\Servidor\srvFormasPago_Impl.pas">
|
||||
<Form>srvFormasPago</Form>
|
||||
<DesignClass>TDataAbstractService</DesignClass>
|
||||
</DCCReference>
|
||||
<DCCReference Include="..\Modulos\Gestion de documentos\Servidor\srvGestorDocumentos_Impl.pas">
|
||||
<Form>srvGestorDocumentos</Form>
|
||||
<DesignClass>TDataAbstractService</DesignClass>
|
||||
</DCCReference>
|
||||
<DCCReference Include="..\Modulos\Gestor de informes\Servidor\srvGestorInformes_Impl.pas">
|
||||
<Form>srvGestorInformes</Form>
|
||||
<DesignClass>TDataAbstractService</DesignClass>
|
||||
</DCCReference>
|
||||
<DCCReference Include="..\Modulos\Historico de movimientos\Model\schHistoricoMovimientosClient_Intf.pas"/>
|
||||
<DCCReference Include="..\Modulos\Historico de movimientos\Model\schHistoricoMovimientosServer_Intf.pas"/>
|
||||
<DCCReference Include="..\Modulos\Historico de movimientos\Servidor\srvHistoricoMovimientos_Impl.pas">
|
||||
<Form>srvHistoricoMovimientos</Form>
|
||||
<DesignClass>TDataAbstractService</DesignClass>
|
||||
</DCCReference>
|
||||
<DCCReference Include="..\Modulos\Inventario\Model\schInventarioClient_Intf.pas"/>
|
||||
<DCCReference Include="..\Modulos\Inventario\Model\schInventarioServer_Intf.pas"/>
|
||||
<DCCReference Include="..\Modulos\Inventario\Servidor\srvInventario_Impl.pas">
|
||||
<Form>srvInventario</Form>
|
||||
<DesignClass>TDataAbstractService</DesignClass>
|
||||
</DCCReference>
|
||||
<DCCReference Include="..\Modulos\Obras\Model\schObrasClient_Intf.pas"/>
|
||||
<DCCReference Include="..\Modulos\Obras\Model\schObrasServer_Intf.pas"/>
|
||||
<DCCReference Include="..\Modulos\Obras\Model\uBizObrasServer.pas"/>
|
||||
<DCCReference Include="..\Modulos\Obras\Servidor\srvObras_Impl.pas">
|
||||
<Form>srvObras</Form>
|
||||
<DesignClass>TDataAbstractService</DesignClass>
|
||||
</DCCReference>
|
||||
<DCCReference Include="..\Modulos\Pedidos a proveedor\Model\schPedidosProveedorClient_Intf.pas"/>
|
||||
<DCCReference Include="..\Modulos\Pedidos a proveedor\Model\schPedidosProveedorServer_Intf.pas"/>
|
||||
<DCCReference Include="..\Modulos\Pedidos a proveedor\Model\uBizPedidosProveedorServer.pas"/>
|
||||
<DCCReference Include="..\Modulos\Pedidos a proveedor\Reports\uRptPedidosProveedor_Server.pas">
|
||||
<Form>RptPedidosProveedor</Form>
|
||||
<DesignClass>TDataModule</DesignClass>
|
||||
</DCCReference>
|
||||
<DCCReference Include="..\Modulos\Pedidos a proveedor\Reports\uRptWordPedidoProveedor.pas">
|
||||
<Form>RptWordPedidoProveedor</Form>
|
||||
<DesignClass>TDataModule</DesignClass>
|
||||
</DCCReference>
|
||||
<DCCReference Include="..\Modulos\Pedidos a proveedor\Servidor\srvPedidosProveedor_Impl.pas">
|
||||
<Form>srvPedidosProveedor</Form>
|
||||
<DesignClass>TDataAbstractService</DesignClass>
|
||||
</DCCReference>
|
||||
<DCCReference Include="..\Modulos\Presupuestos de cliente\Model\schPresupuestosClienteClient_Intf.pas"/>
|
||||
<DCCReference Include="..\Modulos\Presupuestos de cliente\Model\schPresupuestosClienteServer_Intf.pas"/>
|
||||
<DCCReference Include="..\Modulos\Presupuestos de cliente\Model\uBizPresupuestosClienteServer.pas"/>
|
||||
<DCCReference Include="..\Modulos\Presupuestos de cliente\Reports\uRptPresupuestosCliente_Server.pas">
|
||||
<Form>RptPresupuestosCliente</Form>
|
||||
<DesignClass>TDataModule</DesignClass>
|
||||
</DCCReference>
|
||||
<DCCReference Include="..\Modulos\Presupuestos de cliente\Reports\uRptWordCertificadoTrabajo_Server.pas">
|
||||
<Form>RptWordCertificadoTrabajo</Form>
|
||||
<DesignClass>TDataModule</DesignClass>
|
||||
</DCCReference>
|
||||
<DCCReference Include="..\Modulos\Presupuestos de cliente\Reports\uRptWordPresupuestoCliente.pas">
|
||||
<Form>RptWordPresupuestoCliente</Form>
|
||||
<DesignClass>TDataModule</DesignClass>
|
||||
</DCCReference>
|
||||
<DCCReference Include="..\Modulos\Presupuestos de cliente\Servidor\srvPresupuestosCliente_Impl.pas">
|
||||
<Form>srvPresupuestosCliente</Form>
|
||||
<DesignClass>TDataAbstractService</DesignClass>
|
||||
</DCCReference>
|
||||
<DCCReference Include="..\Modulos\Recibos de cliente\Model\schRecibosClienteClient_Intf.pas"/>
|
||||
<DCCReference Include="..\Modulos\Recibos de cliente\Model\schRecibosClienteServer_Intf.pas"/>
|
||||
<DCCReference Include="..\Modulos\Recibos de cliente\Reports\uRptRecibosCliente_Server.pas">
|
||||
<Form>RptRecibosCliente</Form>
|
||||
<DesignClass>TDataModule</DesignClass>
|
||||
</DCCReference>
|
||||
<DCCReference Include="..\Modulos\Recibos de cliente\Servidor\srvRecibosCliente_Impl.pas">
|
||||
<Form>srvRecibosCliente</Form>
|
||||
<DesignClass>TDataAbstractService</DesignClass>
|
||||
</DCCReference>
|
||||
<DCCReference Include="..\Modulos\Recibos de proveedor\Model\schRecibosProveedorClient_Intf.pas"/>
|
||||
<DCCReference Include="..\Modulos\Recibos de proveedor\Model\schRecibosProveedorServer_Intf.pas"/>
|
||||
<DCCReference Include="..\Modulos\Recibos de proveedor\Reports\uRptRecibosProveedor_Server.pas">
|
||||
<Form>RptRecibosProveedor</Form>
|
||||
<DesignClass>TDataModule</DesignClass>
|
||||
</DCCReference>
|
||||
<DCCReference Include="..\Modulos\Recibos de proveedor\Servidor\srvRecibosProveedor_Impl.pas">
|
||||
<Form>srvRecibosProveedor</Form>
|
||||
<DesignClass>TDataAbstractService</DesignClass>
|
||||
</DCCReference>
|
||||
<DCCReference Include="..\Modulos\Referencias\Model\schReferenciasClient_Intf.pas"/>
|
||||
<DCCReference Include="..\Modulos\Referencias\Model\schReferenciasServer_Intf.pas"/>
|
||||
<DCCReference Include="..\Modulos\Referencias\Servidor\srvReferencias_Impl.pas">
|
||||
<Form>srvReferencias</Form>
|
||||
<DesignClass>TDataAbstractService</DesignClass>
|
||||
</DCCReference>
|
||||
<DCCReference Include="..\Modulos\Remesas de cliente\Model\schRemesasClienteClient_Intf.pas"/>
|
||||
<DCCReference Include="..\Modulos\Remesas de cliente\Model\schRemesasClienteServer_Intf.pas"/>
|
||||
<DCCReference Include="..\Modulos\Remesas de cliente\Model\uBizRemesasClienteServer.pas"/>
|
||||
<DCCReference Include="..\Modulos\Remesas de cliente\Servidor\srvRemesasCliente_Impl.pas">
|
||||
<Form>srvRemesasCliente</Form>
|
||||
<DesignClass>TDataAbstractService</DesignClass>
|
||||
</DCCReference>
|
||||
<DCCReference Include="..\Modulos\Remesas de proveedor\Model\schRemesasProveedorClient_Intf.pas"/>
|
||||
<DCCReference Include="..\Modulos\Remesas de proveedor\Model\schRemesasProveedorServer_Intf.pas"/>
|
||||
<DCCReference Include="..\Modulos\Remesas de proveedor\Model\uBizRemesasProveedorServer.pas"/>
|
||||
<DCCReference Include="..\Modulos\Remesas de proveedor\Servidor\srvRemesasProveedor_Impl.pas">
|
||||
<Form>srvRemesasProveedor</Form>
|
||||
<DesignClass>TDataAbstractService</DesignClass>
|
||||
</DCCReference>
|
||||
<DCCReference Include="..\Modulos\Tipos de IVA\Model\schTiposIVAClient_Intf.pas"/>
|
||||
<DCCReference Include="..\Modulos\Tipos de IVA\Model\schTiposIVAServer_Intf.pas"/>
|
||||
<DCCReference Include="..\Modulos\Tipos de IVA\Servidor\srvTiposIVA_Impl.pas">
|
||||
<Form>srvTiposIVA</Form>
|
||||
<DesignClass>TDataAbstractService</DesignClass>
|
||||
</DCCReference>
|
||||
<DCCReference Include="..\Modulos\Unidades de medida\Model\schUnidadesMedidaClient_Intf.pas"/>
|
||||
<DCCReference Include="..\Modulos\Unidades de medida\Model\schUnidadesMedidaServer_Intf.pas"/>
|
||||
<DCCReference Include="..\Modulos\Unidades de medida\Servidor\srvUnidadesMedida_Impl.pas">
|
||||
<Form>srvUnidadesMedida</Form>
|
||||
<DesignClass>TDataAbstractService</DesignClass>
|
||||
</DCCReference>
|
||||
<DCCReference Include="..\Servicios\FactuGES_Intf.pas"/>
|
||||
<DCCReference Include="..\Servicios\FactuGES_Invk.pas"/>
|
||||
<DCCReference Include="Configuracion\srvConfiguracion_Impl.pas">
|
||||
<Form>srvConfiguracion</Form>
|
||||
<DesignClass>TDataAbstractService</DesignClass>
|
||||
</DCCReference>
|
||||
<DCCReference Include="Configuracion\uConexionBD.pas">
|
||||
<Form>frConexionBD</Form>
|
||||
<DesignClass>TFrame</DesignClass>
|
||||
</DCCReference>
|
||||
<DCCReference Include="Configuracion\uConfGeneral.pas">
|
||||
<Form>frConfGeneral</Form>
|
||||
<DesignClass>TFrame</DesignClass>
|
||||
</DCCReference>
|
||||
<DCCReference Include="Configuracion\uConfiguracion.pas">
|
||||
<Form>fConfiguracion</Form>
|
||||
<DesignClass>TForm</DesignClass>
|
||||
</DCCReference>
|
||||
<DCCReference Include="Configuracion\uFrameConfiguracion.pas">
|
||||
<Form>FrameConfiguracion</Form>
|
||||
<DesignClass>TFrame</DesignClass>
|
||||
</DCCReference>
|
||||
<DCCReference Include="srvLogin_Impl.pas">
|
||||
<Form>srvLogin</Form>
|
||||
<DesignClass>TDARemoteService</DesignClass>
|
||||
</DCCReference>
|
||||
<DCCReference Include="uAcercaDe.pas">
|
||||
<Form>fAcercaDe</Form>
|
||||
</DCCReference>
|
||||
<DCCReference Include="uDataModuleServer.pas">
|
||||
<Form>dmServer</Form>
|
||||
<DesignClass>TDataModule</DesignClass>
|
||||
</DCCReference>
|
||||
<DCCReference Include="uServerMainForm.pas">
|
||||
<Form>fServerForm</Form>
|
||||
</DCCReference>
|
||||
<DCCReference Include="Utiles\AHWord97.pas"/>
|
||||
<DCCReference Include="Utiles\RegExpr.pas"/>
|
||||
<DCCReference Include="Utiles\uBusinessUtils.pas"/>
|
||||
<DCCReference Include="Utiles\uDatabaseUtils.pas"/>
|
||||
<DCCReference Include="Utiles\uReferenciasUtils.pas"/>
|
||||
<DCCReference Include="Utiles\uRestriccionesUsuarioUtils.pas"/>
|
||||
<DCCReference Include="Utiles\uSchemaUtilsServer.pas"/>
|
||||
<DCCReference Include="Utiles\uServerAppUtils.pas"/>
|
||||
<DCCReference Include="Utiles\uSesionesUtils.pas"/>
|
||||
</ItemGroup>
|
||||
</Project>
|
||||
<!-- EurekaLog First Line
|
||||
[Exception Log]
|
||||
|
||||
@ -1,7 +1,7 @@
|
||||
MAINICON ICON "C:\Codigo Tecsitel\Resources\Iconos\Servidor.ico"
|
||||
1 VERSIONINFO
|
||||
FILEVERSION 1,4,6,0
|
||||
PRODUCTVERSION 1,4,6,0
|
||||
FILEVERSION 1,4,7,0
|
||||
PRODUCTVERSION 1,4,7,0
|
||||
FILEFLAGSMASK 0x3FL
|
||||
FILEFLAGS 0x00L
|
||||
FILEOS 0x40004L
|
||||
@ -12,9 +12,9 @@ BEGIN
|
||||
BEGIN
|
||||
BLOCK "0C0A04E4"
|
||||
BEGIN
|
||||
VALUE "FileVersion", "1.4.6.0\0"
|
||||
VALUE "ProductVersion", "1.4.6.0\0"
|
||||
VALUE "CompileDate", "jueves, 27 de noviembre de 2008 16:53\0"
|
||||
VALUE "FileVersion", "1.4.7.0\0"
|
||||
VALUE "ProductVersion", "1.4.7.0\0"
|
||||
VALUE "CompileDate", "lunes, 01 de diciembre de 2008 12:06\0"
|
||||
END
|
||||
END
|
||||
BLOCK "VarFileInfo"
|
||||
|
||||
Loading…
Reference in New Issue
Block a user