diff --git a/Database/scripts/factuges.sql b/Database/scripts/factuges.sql
index a151aece..660ca6a5 100644
--- a/Database/scripts/factuges.sql
+++ b/Database/scripts/factuges.sql
@@ -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,
diff --git a/Source/Base/Base.res b/Source/Base/Base.res
index 1641339f..8b251f31 100644
Binary files a/Source/Base/Base.res and b/Source/Base/Base.res differ
diff --git a/Source/Cliente/FactuGES.rc b/Source/Cliente/FactuGES.rc
index a8fe5655..f435b57c 100644
--- a/Source/Cliente/FactuGES.rc
+++ b/Source/Cliente/FactuGES.rc
@@ -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"
diff --git a/Source/Cliente/FactuGES.res b/Source/Cliente/FactuGES.res
index d85cfece..82920b0d 100644
Binary files a/Source/Cliente/FactuGES.res and b/Source/Cliente/FactuGES.res differ
diff --git a/Source/Modulos/Albaranes de proveedor/Data/uDataModuleAlbaranesProveedor.dfm b/Source/Modulos/Albaranes de proveedor/Data/uDataModuleAlbaranesProveedor.dfm
index d23be4c4..b8339226 100644
--- a/Source/Modulos/Albaranes de proveedor/Data/uDataModuleAlbaranesProveedor.dfm
+++ b/Source/Modulos/Albaranes de proveedor/Data/uDataModuleAlbaranesProveedor.dfm
@@ -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'
diff --git a/Source/Modulos/Albaranes de proveedor/Model/AlbaranesProveedor_model.dproj b/Source/Modulos/Albaranes de proveedor/Model/AlbaranesProveedor_model.dproj
index a5ad9a8a..0c10b632 100644
--- a/Source/Modulos/Albaranes de proveedor/Model/AlbaranesProveedor_model.dproj
+++ b/Source/Modulos/Albaranes de proveedor/Model/AlbaranesProveedor_model.dproj
@@ -51,11 +51,11 @@
MainSource
-
-
-
+
+
+
diff --git a/Source/Modulos/Albaranes de proveedor/Model/schAlbaranesProveedorClient_Intf.pas b/Source/Modulos/Albaranes de proveedor/Model/schAlbaranesProveedorClient_Intf.pas
index a25402b8..ebbabc19 100644
--- a/Source/Modulos/Albaranes de proveedor/Model/schAlbaranesProveedorClient_Intf.pas
+++ b/Source/Modulos/Albaranes de proveedor/Model/schAlbaranesProveedorClient_Intf.pas
@@ -9,8 +9,8 @@ const
{ Data table rules ids
Feel free to change them to something more human readable
but make sure they are unique in the context of your application }
- RID_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;
diff --git a/Source/Modulos/Albaranes de proveedor/Model/schAlbaranesProveedorServer_Intf.pas b/Source/Modulos/Albaranes de proveedor/Model/schAlbaranesProveedorServer_Intf.pas
index 7486df3e..4343853b 100644
--- a/Source/Modulos/Albaranes de proveedor/Model/schAlbaranesProveedorServer_Intf.pas
+++ b/Source/Modulos/Albaranes de proveedor/Model/schAlbaranesProveedorServer_Intf.pas
@@ -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];
diff --git a/Source/Modulos/Albaranes de proveedor/Reports/uRptAlbaranesProveedor_Server.pas b/Source/Modulos/Albaranes de proveedor/Reports/uRptAlbaranesProveedor_Server.pas
index 409a9431..98d58bb6 100644
--- a/Source/Modulos/Albaranes de proveedor/Reports/uRptAlbaranesProveedor_Server.pas
+++ b/Source/Modulos/Albaranes de proveedor/Reports/uRptAlbaranesProveedor_Server.pas
@@ -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);
diff --git a/Source/Modulos/Albaranes de proveedor/Servidor/srvAlbaranesProveedor_Impl.dfm b/Source/Modulos/Albaranes de proveedor/Servidor/srvAlbaranesProveedor_Impl.dfm
index db1b5643..221963f3 100644
--- a/Source/Modulos/Albaranes de proveedor/Servidor/srvAlbaranesProveedor_Impl.dfm
+++ b/Source/Modulos/Albaranes de proveedor/Servidor/srvAlbaranesProveedor_Impl.dfm
@@ -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
diff --git a/Source/Modulos/Albaranes de proveedor/Views/AlbaranesProveedor_view.dpk b/Source/Modulos/Albaranes de proveedor/Views/AlbaranesProveedor_view.dpk
index 6d5038f9..6b6abfdf 100644
Binary files a/Source/Modulos/Albaranes de proveedor/Views/AlbaranesProveedor_view.dpk and b/Source/Modulos/Albaranes de proveedor/Views/AlbaranesProveedor_view.dpk differ
diff --git a/Source/Modulos/Albaranes de proveedor/Views/AlbaranesProveedor_view.dproj b/Source/Modulos/Albaranes de proveedor/Views/AlbaranesProveedor_view.dproj
index 51d6ee1c..7c503ae1 100644
--- a/Source/Modulos/Albaranes de proveedor/Views/AlbaranesProveedor_view.dproj
+++ b/Source/Modulos/Albaranes de proveedor/Views/AlbaranesProveedor_view.dproj
@@ -49,14 +49,16 @@
MainSource
-
-
-
-
-
-
-
-
+
+
+
+
+
+
+
+
+
+
@@ -106,6 +108,10 @@
TFrame
+
+
+ TCustomView
+
TFrame
diff --git a/Source/Modulos/Albaranes de proveedor/Views/uEditorAlbaranProveedor.dfm b/Source/Modulos/Albaranes de proveedor/Views/uEditorAlbaranProveedor.dfm
index d1ce38b8..f7548248 100644
--- a/Source/Modulos/Albaranes de proveedor/Views/uEditorAlbaranProveedor.dfm
+++ b/Source/Modulos/Albaranes de proveedor/Views/uEditorAlbaranProveedor.dfm
@@ -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
diff --git a/Source/Modulos/Albaranes de proveedor/Views/uEditorAlbaranProveedor.pas b/Source/Modulos/Albaranes de proveedor/Views/uEditorAlbaranProveedor.pas
index 1e254108..d1f483fd 100644
--- a/Source/Modulos/Albaranes de proveedor/Views/uEditorAlbaranProveedor.pas
+++ b/Source/Modulos/Albaranes de proveedor/Views/uEditorAlbaranProveedor.pas
@@ -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;
diff --git a/Source/Modulos/Albaranes de proveedor/Views/uViewAlbaranProveedor.dfm b/Source/Modulos/Albaranes de proveedor/Views/uViewAlbaranProveedor.dfm
index c17dbaca..3537cd71 100644
--- a/Source/Modulos/Albaranes de proveedor/Views/uViewAlbaranProveedor.dfm
+++ b/Source/Modulos/Albaranes de proveedor/Views/uViewAlbaranProveedor.dfm
@@ -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
diff --git a/Source/Modulos/Albaranes de proveedor/Views/uViewAlbaranProveedor.pas b/Source/Modulos/Albaranes de proveedor/Views/uViewAlbaranProveedor.pas
index e572e701..ba92b0f5 100644
--- a/Source/Modulos/Albaranes de proveedor/Views/uViewAlbaranProveedor.pas
+++ b/Source/Modulos/Albaranes de proveedor/Views/uViewAlbaranProveedor.pas
@@ -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.
diff --git a/Source/Modulos/Albaranes de proveedor/Views/uViewDatosYSeleccionProveedorAlbaran.dfm b/Source/Modulos/Albaranes de proveedor/Views/uViewDatosYSeleccionProveedorAlbaran.dfm
new file mode 100644
index 00000000..63e7dd9e
--- /dev/null
+++ b/Source/Modulos/Albaranes de proveedor/Views/uViewDatosYSeleccionProveedorAlbaran.dfm
@@ -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
diff --git a/Source/Modulos/Albaranes de proveedor/Views/uViewDatosYSeleccionProveedorAlbaran.pas b/Source/Modulos/Albaranes de proveedor/Views/uViewDatosYSeleccionProveedorAlbaran.pas
new file mode 100644
index 00000000..9bbc40bc
--- /dev/null
+++ b/Source/Modulos/Albaranes de proveedor/Views/uViewDatosYSeleccionProveedorAlbaran.pas
@@ -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.
diff --git a/Source/Servidor/FactuGES_Server.RES b/Source/Servidor/FactuGES_Server.RES
index b10c6f10..7e7c906b 100644
Binary files a/Source/Servidor/FactuGES_Server.RES and b/Source/Servidor/FactuGES_Server.RES differ
diff --git a/Source/Servidor/FactuGES_Server.dproj b/Source/Servidor/FactuGES_Server.dproj
index 7321eaa9..61627ba3 100644
--- a/Source/Servidor/FactuGES_Server.dproj
+++ b/Source/Servidor/FactuGES_Server.dproj
@@ -1,323 +1,323 @@
-
+
-
- {ebdcd25d-40d7-4146-91ec-a0ea4aa1dcd1}
- FactuGES_Server.dpr
- Debug
- AnyCPU
- DCC32
- ..\..\Output\Debug\Servidor\FactuGES_Server.exe
- 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
-
-
- 7.0
- False
- False
- 0
- 3
- ..\..\Output\Release\Servidor
- RELEASE
-
-
- 7.0
- 3
- ..\..\Output\Debug\Servidor
- DEBUG;
- True
- True
- True
- $(BDS)\lib\Debug;$(BDS)\Lib\Debug\Indy10
- $(BDS)\lib\Debug;$(BDS)\Lib\Debug\Indy10
- $(BDS)\lib\Debug;$(BDS)\Lib\Debug\Indy10
- $(BDS)\lib\Debug;$(BDS)\Lib\Debug\Indy10
-
-
- Delphi.Personality
-
-
-FalseTrueFalse/standaloneTrueFalse1470FalseFalseFalseFalseFalse308212521.4.7.01.4.7.0jueves, 27 de noviembre de 2008 16:53FactuGES_Server.dpr
-
-
-
-
- MainSource
-
-
-
-
-
-
- TDARemoteService
-
-
-
- TDataModule
-
-
-
-
-
- TDataAbstractService
-
-
-
-
-
-
-
-
-
- TDataModule
-
-
-
- TDataModule
-
-
-
- TDataAbstractService
-
-
-
-
-
-
- TDataAbstractService
-
-
-
-
-
- TDARemoteService
-
-
-
-
-
-
- TDARemoteService
-
-
-
-
-
-
-
-
-
- TDataModule
-
-
-
- TDataModule
-
-
-
- TDARemoteService
-
-
-
-
-
- TDataAbstractService
-
-
-
-
-
-
- TDataModule
-
-
-
- TDataModule
-
-
-
- TDataAbstractService
-
-
-
-
-
-
- TDataModule
-
-
-
- TDataAbstractService
-
-
-
-
-
- TDataAbstractService
-
-
-
-
-
- TDataAbstractService
-
-
-
- TDataAbstractService
-
-
-
- TDataAbstractService
-
-
-
-
-
- TDataAbstractService
-
-
-
-
-
- TDataAbstractService
-
-
-
-
-
-
- TDataAbstractService
-
-
-
-
-
-
- TDataModule
-
-
-
- TDataModule
-
-
-
- TDataAbstractService
-
-
-
-
-
-
- TDataModule
-
-
-
- TDataModule
-
-
-
- TDataModule
-
-
-
- TDataAbstractService
-
-
-
-
-
- TDataModule
-
-
-
- TDataAbstractService
-
-
-
-
-
- TDataModule
-
-
-
- TDataAbstractService
-
-
-
-
-
- TDataAbstractService
-
-
-
-
-
-
- TDataAbstractService
-
-
-
-
-
-
- TDataAbstractService
-
-
-
-
-
- TDataAbstractService
-
-
-
-
-
- TDataAbstractService
-
-
-
-
-
- TDataAbstractService
-
-
-
- TFrame
-
-
-
- TFrame
-
-
-
- TForm
-
-
-
- TFrame
-
-
-
- TDARemoteService
-
-
-
-
-
-
- TDataModule
-
-
-
-
-
-
-
-
-
-
-
-
-
-
+
+ {ebdcd25d-40d7-4146-91ec-a0ea4aa1dcd1}
+ FactuGES_Server.dpr
+ Debug
+ AnyCPU
+ DCC32
+ ..\..\Output\Debug\Servidor\FactuGES_Server.exe
+ 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
+
+
+ 7.0
+ False
+ False
+ 0
+ 3
+ ..\..\Output\Release\Servidor
+ RELEASE
+
+
+ 7.0
+ 3
+ ..\..\Output\Debug\Servidor
+ DEBUG;
+ True
+ True
+ True
+ $(BDS)\lib\Debug;$(BDS)\Lib\Debug\Indy10
+ $(BDS)\lib\Debug;$(BDS)\Lib\Debug\Indy10
+ $(BDS)\lib\Debug;$(BDS)\Lib\Debug\Indy10
+ $(BDS)\lib\Debug;$(BDS)\Lib\Debug\Indy10
+
+
+ Delphi.Personality
+
+
+ FalseTrueFalse/standaloneTrueFalse1470FalseFalseFalseFalseFalse308212521.4.7.01.4.7.0jueves, 27 de noviembre de 2008 16:53FactuGES_Server.dpr
+
+
+
+
+ MainSource
+
+
+
+
+
+
+ TDARemoteService
+
+
+
+ TDataModule
+
+
+
+
+
+ TDataAbstractService
+
+
+
+
+
+
+
+
+
+ TDataModule
+
+
+
+ TDataModule
+
+
+
+ TDataAbstractService
+
+
+
+
+
+
+ TDataAbstractService
+
+
+
+
+
+ TDARemoteService
+
+
+
+
+
+
+ TDARemoteService
+
+
+
+
+
+
+
+
+
+ TDataModule
+
+
+
+ TDataModule
+
+
+
+ TDARemoteService
+
+
+
+
+
+ TDataAbstractService
+
+
+
+
+
+
+ TDataModule
+
+
+
+ TDataModule
+
+
+
+ TDataAbstractService
+
+
+
+
+
+
+ TDataModule
+
+
+
+ TDataAbstractService
+
+
+
+
+
+ TDataAbstractService
+
+
+
+
+
+ TDataAbstractService
+
+
+
+ TDataAbstractService
+
+
+
+ TDataAbstractService
+
+
+
+
+
+ TDataAbstractService
+
+
+
+
+
+ TDataAbstractService
+
+
+
+
+
+
+ TDataAbstractService
+
+
+
+
+
+
+ TDataModule
+
+
+
+ TDataModule
+
+
+
+ TDataAbstractService
+
+
+
+
+
+
+ TDataModule
+
+
+
+ TDataModule
+
+
+
+ TDataModule
+
+
+
+ TDataAbstractService
+
+
+
+
+
+ TDataModule
+
+
+
+ TDataAbstractService
+
+
+
+
+
+ TDataModule
+
+
+
+ TDataAbstractService
+
+
+
+
+
+ TDataAbstractService
+
+
+
+
+
+
+ TDataAbstractService
+
+
+
+
+
+
+ TDataAbstractService
+
+
+
+
+
+ TDataAbstractService
+
+
+
+
+
+ TDataAbstractService
+
+
+
+
+
+ TDataAbstractService
+
+
+
+ TFrame
+
+
+
+ TFrame
+
+
+
+ TForm
+
+
+
+ TFrame
+
+
+
+ TDARemoteService
+
+
+
+
+
+
+ TDataModule
+
+
+
+
+
+
+
+
+
+
+
+
+
+